mirror of
git://git.sv.gnu.org/autoconf
synced 2024-12-09 02:10:22 +08:00
* autoscan.pl (scan_c_file): When in verbose mode, don't print
out hashes common for the whole package. Do it in scan_files() instead. (scan_makefile): Likewise. (scan_sh_file): Likewise. Thanks to Jim Meyering for improved implementation.
This commit is contained in:
Pavel Roskin
parent
7aaa1f5959
commit
9c5fe516c9
@ -1,3 +1,12 @@
|
||||
2001-02-02 Pavel Roskin <proski@gnu.org>
|
||||
|
||||
* autoscan.pl (scan_c_file): When in verbose mode, don't print
|
||||
out hashes common for the whole package. Do it in scan_files()
|
||||
instead.
|
||||
(scan_makefile): Likewise.
|
||||
(scan_sh_file): Likewise.
|
||||
Thanks to Jim Meyering for improved implementation.
|
||||
|
||||
2001-02-01 Pavel Roskin <proski@gnu.org>
|
||||
|
||||
* autoreconf.sh: Fix the case when the verbose output was not
|
||||
|
||||
82
autoscan.in
82
autoscan.in
@ -235,13 +235,6 @@ sub scan_files ()
|
||||
$initfile = $cfiles[0]; # Pick one at random.
|
||||
}
|
||||
|
||||
if ($verbose)
|
||||
{
|
||||
print "cfiles:", join(" ", @cfiles), "\n";
|
||||
print "makefiles:", join(" ", @makefiles), "\n";
|
||||
print "shfiles:", join(" ", @shfiles), "\n";
|
||||
}
|
||||
|
||||
foreach $file (@cfiles)
|
||||
{
|
||||
push (@{$programs{"cc"}}, $file);
|
||||
@ -257,6 +250,24 @@ sub scan_files ()
|
||||
{
|
||||
scan_sh_file ($file);
|
||||
}
|
||||
|
||||
if ($verbose)
|
||||
{
|
||||
print "cfiles:", join(" ", @cfiles), "\n";
|
||||
print "makefiles:", join(" ", @makefiles), "\n";
|
||||
print "shfiles:", join(" ", @shfiles), "\n";
|
||||
|
||||
foreach my $class (qw (functions identifiers headers
|
||||
makevars libraries programs))
|
||||
{
|
||||
print "\n$class:\n";
|
||||
my $h = eval "\\\%$class";
|
||||
foreach my $word (sort keys %$h)
|
||||
{
|
||||
print "$word: @{$h->{$word}}\n";
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -313,29 +324,6 @@ sub scan_c_file ($)
|
||||
}
|
||||
}
|
||||
close(CFILE);
|
||||
|
||||
if ($verbose)
|
||||
{
|
||||
my ($word);
|
||||
|
||||
print "\n$file functions:\n";
|
||||
foreach $word (sort keys %functions)
|
||||
{
|
||||
print "$word: @{$functions{$word}}\n";
|
||||
}
|
||||
|
||||
print "\n$file identifiers:\n";
|
||||
foreach $word (sort keys %identifiers)
|
||||
{
|
||||
print "$word: @{$identifiers{$word}}\n";
|
||||
}
|
||||
|
||||
print "\n$file headers:\n";
|
||||
foreach $word (sort keys %headers)
|
||||
{
|
||||
print "$word: @{$headers{$word}}\n";
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -371,29 +359,6 @@ sub scan_makefile ($)
|
||||
}
|
||||
}
|
||||
close(MFILE);
|
||||
|
||||
if ($verbose)
|
||||
{
|
||||
my ($word);
|
||||
|
||||
print "\n$file makevars:\n";
|
||||
foreach $word (sort keys %makevars)
|
||||
{
|
||||
print "$word: @{$makevars{$word}}\n";
|
||||
}
|
||||
|
||||
print "\n$file libraries:\n";
|
||||
foreach $word (sort keys %libraries)
|
||||
{
|
||||
print "$word: @{$libraries{$word}}\n";
|
||||
}
|
||||
|
||||
print "\n$file programs:\n";
|
||||
foreach $word (sort keys %programs)
|
||||
{
|
||||
print "$word: @{$programs{$word}}\n";
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -418,17 +383,6 @@ sub scan_sh_file ($)
|
||||
}
|
||||
}
|
||||
close(MFILE);
|
||||
|
||||
if ($verbose)
|
||||
{
|
||||
my ($word);
|
||||
|
||||
print "\n$file programs:\n";
|
||||
foreach $word (sort keys %programs)
|
||||
{
|
||||
print "$word: @{$programs{$word}}\n";
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
||||
82
autoscan.pl
82
autoscan.pl
@ -235,13 +235,6 @@ sub scan_files ()
|
||||
$initfile = $cfiles[0]; # Pick one at random.
|
||||
}
|
||||
|
||||
if ($verbose)
|
||||
{
|
||||
print "cfiles:", join(" ", @cfiles), "\n";
|
||||
print "makefiles:", join(" ", @makefiles), "\n";
|
||||
print "shfiles:", join(" ", @shfiles), "\n";
|
||||
}
|
||||
|
||||
foreach $file (@cfiles)
|
||||
{
|
||||
push (@{$programs{"cc"}}, $file);
|
||||
@ -257,6 +250,24 @@ sub scan_files ()
|
||||
{
|
||||
scan_sh_file ($file);
|
||||
}
|
||||
|
||||
if ($verbose)
|
||||
{
|
||||
print "cfiles:", join(" ", @cfiles), "\n";
|
||||
print "makefiles:", join(" ", @makefiles), "\n";
|
||||
print "shfiles:", join(" ", @shfiles), "\n";
|
||||
|
||||
foreach my $class (qw (functions identifiers headers
|
||||
makevars libraries programs))
|
||||
{
|
||||
print "\n$class:\n";
|
||||
my $h = eval "\\\%$class";
|
||||
foreach my $word (sort keys %$h)
|
||||
{
|
||||
print "$word: @{$h->{$word}}\n";
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -313,29 +324,6 @@ sub scan_c_file ($)
|
||||
}
|
||||
}
|
||||
close(CFILE);
|
||||
|
||||
if ($verbose)
|
||||
{
|
||||
my ($word);
|
||||
|
||||
print "\n$file functions:\n";
|
||||
foreach $word (sort keys %functions)
|
||||
{
|
||||
print "$word: @{$functions{$word}}\n";
|
||||
}
|
||||
|
||||
print "\n$file identifiers:\n";
|
||||
foreach $word (sort keys %identifiers)
|
||||
{
|
||||
print "$word: @{$identifiers{$word}}\n";
|
||||
}
|
||||
|
||||
print "\n$file headers:\n";
|
||||
foreach $word (sort keys %headers)
|
||||
{
|
||||
print "$word: @{$headers{$word}}\n";
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -371,29 +359,6 @@ sub scan_makefile ($)
|
||||
}
|
||||
}
|
||||
close(MFILE);
|
||||
|
||||
if ($verbose)
|
||||
{
|
||||
my ($word);
|
||||
|
||||
print "\n$file makevars:\n";
|
||||
foreach $word (sort keys %makevars)
|
||||
{
|
||||
print "$word: @{$makevars{$word}}\n";
|
||||
}
|
||||
|
||||
print "\n$file libraries:\n";
|
||||
foreach $word (sort keys %libraries)
|
||||
{
|
||||
print "$word: @{$libraries{$word}}\n";
|
||||
}
|
||||
|
||||
print "\n$file programs:\n";
|
||||
foreach $word (sort keys %programs)
|
||||
{
|
||||
print "$word: @{$programs{$word}}\n";
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -418,17 +383,6 @@ sub scan_sh_file ($)
|
||||
}
|
||||
}
|
||||
close(MFILE);
|
||||
|
||||
if ($verbose)
|
||||
{
|
||||
my ($word);
|
||||
|
||||
print "\n$file programs:\n";
|
||||
foreach $word (sort keys %programs)
|
||||
{
|
||||
print "$word: @{$programs{$word}}\n";
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
||||
@ -235,13 +235,6 @@ sub scan_files ()
|
||||
$initfile = $cfiles[0]; # Pick one at random.
|
||||
}
|
||||
|
||||
if ($verbose)
|
||||
{
|
||||
print "cfiles:", join(" ", @cfiles), "\n";
|
||||
print "makefiles:", join(" ", @makefiles), "\n";
|
||||
print "shfiles:", join(" ", @shfiles), "\n";
|
||||
}
|
||||
|
||||
foreach $file (@cfiles)
|
||||
{
|
||||
push (@{$programs{"cc"}}, $file);
|
||||
@ -257,6 +250,24 @@ sub scan_files ()
|
||||
{
|
||||
scan_sh_file ($file);
|
||||
}
|
||||
|
||||
if ($verbose)
|
||||
{
|
||||
print "cfiles:", join(" ", @cfiles), "\n";
|
||||
print "makefiles:", join(" ", @makefiles), "\n";
|
||||
print "shfiles:", join(" ", @shfiles), "\n";
|
||||
|
||||
foreach my $class (qw (functions identifiers headers
|
||||
makevars libraries programs))
|
||||
{
|
||||
print "\n$class:\n";
|
||||
my $h = eval "\\\%$class";
|
||||
foreach my $word (sort keys %$h)
|
||||
{
|
||||
print "$word: @{$h->{$word}}\n";
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -313,29 +324,6 @@ sub scan_c_file ($)
|
||||
}
|
||||
}
|
||||
close(CFILE);
|
||||
|
||||
if ($verbose)
|
||||
{
|
||||
my ($word);
|
||||
|
||||
print "\n$file functions:\n";
|
||||
foreach $word (sort keys %functions)
|
||||
{
|
||||
print "$word: @{$functions{$word}}\n";
|
||||
}
|
||||
|
||||
print "\n$file identifiers:\n";
|
||||
foreach $word (sort keys %identifiers)
|
||||
{
|
||||
print "$word: @{$identifiers{$word}}\n";
|
||||
}
|
||||
|
||||
print "\n$file headers:\n";
|
||||
foreach $word (sort keys %headers)
|
||||
{
|
||||
print "$word: @{$headers{$word}}\n";
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -371,29 +359,6 @@ sub scan_makefile ($)
|
||||
}
|
||||
}
|
||||
close(MFILE);
|
||||
|
||||
if ($verbose)
|
||||
{
|
||||
my ($word);
|
||||
|
||||
print "\n$file makevars:\n";
|
||||
foreach $word (sort keys %makevars)
|
||||
{
|
||||
print "$word: @{$makevars{$word}}\n";
|
||||
}
|
||||
|
||||
print "\n$file libraries:\n";
|
||||
foreach $word (sort keys %libraries)
|
||||
{
|
||||
print "$word: @{$libraries{$word}}\n";
|
||||
}
|
||||
|
||||
print "\n$file programs:\n";
|
||||
foreach $word (sort keys %programs)
|
||||
{
|
||||
print "$word: @{$programs{$word}}\n";
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -418,17 +383,6 @@ sub scan_sh_file ($)
|
||||
}
|
||||
}
|
||||
close(MFILE);
|
||||
|
||||
if ($verbose)
|
||||
{
|
||||
my ($word);
|
||||
|
||||
print "\n$file programs:\n";
|
||||
foreach $word (sort keys %programs)
|
||||
{
|
||||
print "$word: @{$programs{$word}}\n";
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user