#!/usr/bin/perl # This file is part of the LibreOffice project. # # This Source Code Form is subject to the terms of the Mozilla Public # License, v. 2.0. If a copy of the MPL was not distributed with this # file, You can obtain one at http://mozilla.org/MPL/2.0/. # # use strict; use warnings; use File::Find qw(finddepth); use File::Basename; # Find dirs in: # workdir/Dep/CxxObject/ # workdir/Dep/CObject # # Concat these files and compare them with the output of # `git ls-tree HEAD -r --name-only` and report files in the git ls-tree that aren't in the first. my @files; my $tmp; my %data = (); # define a wanted function sub wanted { return if($_ eq '.' || $_ eq '..' || -d $_); $tmp = basename($File::Find::name); # remove file extension ( .o ) $tmp =~ s/\.[^.]*$//; $data{$tmp} = $File::Find::name; } finddepth(\&wanted, 'workdir/Dep/CxxObject'); finddepth(\&wanted, 'workdir/Dep/CObject'); my @gitfiles = `git ls-tree HEAD -r --name-only`; # loop over found gitfiles foreach my $file (@gitfiles){ if($file =~ /\.[hxx|h|c|cxx]$/){ $tmp = basename($file); $tmp =~ s/\.[^.]*$//; chomp($tmp); if(!exists($data{$tmp})){ print $file; } } } pgemini/cg-4.1'>distro/capgemini/cg-4.1 LibreOffice 核心代码仓库文档基金会
summaryrefslogtreecommitdiff
path: root/svgio
AgeCommit message (Expand)Author
2012-11-22fix export on windowsLuboš Luňák
2012-11-22Some svgio clean-upStephan Bergmann
2012-11-21accept svg documents in svg: namespace (hack)Fridrich Štrba
2012-11-21dropped dead code from svgEnrico Weigelt, metux ITS
2012-11-07drop precompiled header crackDavid Tardon
2012-11-07add missing package nameDavid Tardon
2012-11-06re-base on ALv2 code. Includes (at least) relevant parts of:Michael Meeks