winapi: Get the list of files from git-ls-files if possible.

oldstable
Alexandre Julliard 2010-06-07 16:46:33 +02:00
parent 32f240bfc1
commit 84ff0631d4
1 changed files with 35 additions and 27 deletions

View File

@ -236,38 +236,46 @@ sub parse_files($) {
}
}
if($#c_files == -1 && $#h_files == -1 && $#paths == -1)
if($#c_files == -1 && $#h_files == -1 && $#paths == -1 && -d ".git")
{
@paths = ".";
@$c_files = sort split /\0/, `git ls-files -z \\*.c`;
@$h_files = sort split /\0/, `git ls-files -z \\*.h`;
}
else
{
if($#c_files == -1 && $#h_files == -1 && $#paths == -1)
{
@paths = ".";
}
if($#paths != -1 || $#c_files != -1) {
my $c_command = "find " . join(" ", @paths, @c_files) . " -name \\*.c";
my %found;
@$c_files = sort(map {
s/^\.\/(.*)$/$1/;
if(defined($found{$_})) {
();
} else {
$found{$_}++;
$_;
}
} split(/\n/, `$c_command`));
}
if($#paths != -1 || $#c_files != -1) {
my $c_command = "find " . join(" ", @paths, @c_files) . " -name \\*.c";
my %found;
@$c_files = sort(map {
s/^\.\/(.*)$/$1/;
if(defined($found{$_})) {
();
} else {
$found{$_}++;
$_;
}
} split(/\n/, `$c_command`));
}
if($#paths != -1 || $#h_files != -1) {
my $h_command = "find " . join(" ", @paths, @h_files) . " -name \\*.h";
my %found;
if($#paths != -1 || $#h_files != -1) {
my $h_command = "find " . join(" ", @paths, @h_files) . " -name \\*.h";
my %found;
@$h_files = sort(map {
s/^\.\/(.*)$/$1/;
if(defined($found{$_})) {
();
} else {
$found{$_}++;
$_;
}
} split(/\n/, `$h_command`));
@$h_files = sort(map {
s/^\.\/(.*)$/$1/;
if(defined($found{$_})) {
();
} else {
$found{$_}++;
$_;
}
} split(/\n/, `$h_command`));
}
}
my %dirs;