mirror/autoconf
2
0
Fork 0
mirror of git://git.sv.gnu.org/autoconf synced 2025-02-17 14:01:27 +08:00
Code Issues Packages Projects Releases Wiki Activity

Add more blank lines to output. Pacify perl -w.

Browse Source
This commit is contained in:
David MacKenzie 1994-10-20 11:12:02 +00:00
parent de79142b1e
commit 65f16d9962
3 changed files with 45 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
autoscan.in
View File

@ -1,9 +1,4 @@
#!@PERL@ #!@PERL@
eval "exec @PERL@ -S $0 $*"
if $running_under_some_shell;
# this emulates #! processing on NIH machines.
# (remove #! line above if indigestible)
# autoscan - Create configure.scan (a preliminary configure.in) for a package. # autoscan - Create configure.scan (a preliminary configure.in) for a package.
# Copyright (C) 1994 Free Software Foundation, Inc. # Copyright (C) 1994 Free Software Foundation, Inc.
@ -27,6 +22,10 @@ require "find.pl";
$datadir = $ENV{"AC_MACRODIR"} || "@datadir@"; $datadir = $ENV{"AC_MACRODIR"} || "@datadir@";
$verbose = 0; $verbose = 0;
# Reference these variables to pacify perl -w.
undef %identifiers_macros;
undef %makevars_macros;
undef %programs_macros;
&parse_args; &parse_args;
&init_tables; &init_tables;
@ -87,7 +86,7 @@ sub version
# Put values in the tables of what to do with each token. # Put values in the tables of what to do with each token.
sub init_tables sub init_tables
{ {
local($kind, $word, $macro, %files); local($kind, $word, $macro);
# Initialize a table of C keywords (to ignore). # Initialize a table of C keywords (to ignore).
# Taken from K&R 1st edition p. 180. # Taken from K&R 1st edition p. 180.
@ -316,7 +315,7 @@ sub output
s/\.in$//; s/\.in$//;
$unique_makefiles{$_}++; $unique_makefiles{$_}++;
} }
print CONF "AC_OUTPUT(", join(" ", keys(%unique_makefiles)), ")\n"; print CONF "\nAC_OUTPUT(", join(" ", keys(%unique_makefiles)), ")\n";
close CONF; close CONF;
} }
@ -336,14 +335,14 @@ sub output_programs
{ {
local ($word); local ($word);
print CONF "dnl Checks for programs.\n"; print CONF "\ndnl Checks for programs.\n";
foreach $word (sort keys %programs) { foreach $word (sort keys %programs) {
&print_unique($programs_macros{$word}); &print_unique($programs_macros{$word});
} }
foreach $word (sort keys %makevars) { foreach $word (sort keys %makevars) {
&print_unique($makevars_macros{$word}); &print_unique($makevars_macros{$word});
} }
print CONF "dnl Checks for libraries.\n"; print CONF "\ndnl Checks for libraries.\n";
foreach $word (sort keys %libraries) { foreach $word (sort keys %libraries) {
print CONF "AC_HAVE_LIBRARY($word)\n"; print CONF "AC_HAVE_LIBRARY($word)\n";
} }
@ -353,9 +352,10 @@ sub output_headers
{ {
local ($word); local ($word);
print CONF "dnl Checks for header files.\n"; print CONF "\ndnl Checks for header files.\n";
foreach $word (sort keys %headers) { foreach $word (sort keys %headers) {
if ($headers_macros{$word} eq 'AC_CHECK_HEADERS') { if (defined($headers_macros{$word}) &&
$headers_macros{$word} eq 'AC_CHECK_HEADERS') {
push(@have_headers, $word); push(@have_headers, $word);
} else { } else {
&print_unique($headers_macros{$word}); &print_unique($headers_macros{$word});
@ -369,7 +369,7 @@ sub output_identifiers
{ {
local ($word); local ($word);
print CONF "dnl Checks for typedefs, structures, and compiler characteristics.\n"; print CONF "\ndnl Checks for typedefs, structures, and compiler characteristics.\n";
foreach $word (sort keys %identifiers) { foreach $word (sort keys %identifiers) {
&print_unique($identifiers_macros{$word}); &print_unique($identifiers_macros{$word});
} }
@ -379,9 +379,10 @@ sub output_functions
{ {
local ($word); local ($word);
print CONF "dnl Checks for library functions.\n"; print CONF "\ndnl Checks for library functions.\n";
foreach $word (sort keys %functions) { foreach $word (sort keys %functions) {
if ($functions_macros{$word} eq 'AC_CHECK_FUNCS') { if (defined($functions_macros{$word}) &&
$functions_macros{$word} eq 'AC_CHECK_FUNCS') {
push(@have_funcs, $word); push(@have_funcs, $word);
} else { } else {
&print_unique($functions_macros{$word}); &print_unique($functions_macros{$word});

29
autoscan.pl
View File

@ -1,9 +1,4 @@
#!@PERL@ #!@PERL@
eval "exec @PERL@ -S $0 $*"
if $running_under_some_shell;
# this emulates #! processing on NIH machines.
# (remove #! line above if indigestible)
# autoscan - Create configure.scan (a preliminary configure.in) for a package. # autoscan - Create configure.scan (a preliminary configure.in) for a package.
# Copyright (C) 1994 Free Software Foundation, Inc. # Copyright (C) 1994 Free Software Foundation, Inc.
@ -27,6 +22,10 @@ require "find.pl";
$datadir = $ENV{"AC_MACRODIR"} || "@datadir@"; $datadir = $ENV{"AC_MACRODIR"} || "@datadir@";
$verbose = 0; $verbose = 0;
# Reference these variables to pacify perl -w.
undef %identifiers_macros;
undef %makevars_macros;
undef %programs_macros;
&parse_args; &parse_args;
&init_tables; &init_tables;
@ -87,7 +86,7 @@ sub version
# Put values in the tables of what to do with each token. # Put values in the tables of what to do with each token.
sub init_tables sub init_tables
{ {
local($kind, $word, $macro, %files); local($kind, $word, $macro);
# Initialize a table of C keywords (to ignore). # Initialize a table of C keywords (to ignore).
# Taken from K&R 1st edition p. 180. # Taken from K&R 1st edition p. 180.
@ -316,7 +315,7 @@ sub output
s/\.in$//; s/\.in$//;
$unique_makefiles{$_}++; $unique_makefiles{$_}++;
} }
print CONF "AC_OUTPUT(", join(" ", keys(%unique_makefiles)), ")\n"; print CONF "\nAC_OUTPUT(", join(" ", keys(%unique_makefiles)), ")\n";
close CONF; close CONF;
} }
@ -336,14 +335,14 @@ sub output_programs
{ {
local ($word); local ($word);
print CONF "dnl Checks for programs.\n"; print CONF "\ndnl Checks for programs.\n";
foreach $word (sort keys %programs) { foreach $word (sort keys %programs) {
&print_unique($programs_macros{$word}); &print_unique($programs_macros{$word});
} }
foreach $word (sort keys %makevars) { foreach $word (sort keys %makevars) {
&print_unique($makevars_macros{$word}); &print_unique($makevars_macros{$word});
} }
print CONF "dnl Checks for libraries.\n"; print CONF "\ndnl Checks for libraries.\n";
foreach $word (sort keys %libraries) { foreach $word (sort keys %libraries) {
print CONF "AC_HAVE_LIBRARY($word)\n"; print CONF "AC_HAVE_LIBRARY($word)\n";
} }
@ -353,9 +352,10 @@ sub output_headers
{ {
local ($word); local ($word);
print CONF "dnl Checks for header files.\n"; print CONF "\ndnl Checks for header files.\n";
foreach $word (sort keys %headers) { foreach $word (sort keys %headers) {
if ($headers_macros{$word} eq 'AC_CHECK_HEADERS') { if (defined($headers_macros{$word}) &&
$headers_macros{$word} eq 'AC_CHECK_HEADERS') {
push(@have_headers, $word); push(@have_headers, $word);
} else { } else {
&print_unique($headers_macros{$word}); &print_unique($headers_macros{$word});
@ -369,7 +369,7 @@ sub output_identifiers
{ {
local ($word); local ($word);
print CONF "dnl Checks for typedefs, structures, and compiler characteristics.\n"; print CONF "\ndnl Checks for typedefs, structures, and compiler characteristics.\n";
foreach $word (sort keys %identifiers) { foreach $word (sort keys %identifiers) {
&print_unique($identifiers_macros{$word}); &print_unique($identifiers_macros{$word});
} }
@ -379,9 +379,10 @@ sub output_functions
{ {
local ($word); local ($word);
print CONF "dnl Checks for library functions.\n"; print CONF "\ndnl Checks for library functions.\n";
foreach $word (sort keys %functions) { foreach $word (sort keys %functions) {
if ($functions_macros{$word} eq 'AC_CHECK_FUNCS') { if (defined($functions_macros{$word}) &&
$functions_macros{$word} eq 'AC_CHECK_FUNCS') {
push(@have_funcs, $word); push(@have_funcs, $word);
} else { } else {
&print_unique($functions_macros{$word}); &print_unique($functions_macros{$word});

29
bin/autoscan.in
View File

@ -1,9 +1,4 @@
#!@PERL@ #!@PERL@
eval "exec @PERL@ -S $0 $*"
if $running_under_some_shell;
# this emulates #! processing on NIH machines.
# (remove #! line above if indigestible)
# autoscan - Create configure.scan (a preliminary configure.in) for a package. # autoscan - Create configure.scan (a preliminary configure.in) for a package.
# Copyright (C) 1994 Free Software Foundation, Inc. # Copyright (C) 1994 Free Software Foundation, Inc.
@ -27,6 +22,10 @@ require "find.pl";
$datadir = $ENV{"AC_MACRODIR"} || "@datadir@"; $datadir = $ENV{"AC_MACRODIR"} || "@datadir@";
$verbose = 0; $verbose = 0;
# Reference these variables to pacify perl -w.
undef %identifiers_macros;
undef %makevars_macros;
undef %programs_macros;
&parse_args; &parse_args;
&init_tables; &init_tables;
@ -87,7 +86,7 @@ sub version
# Put values in the tables of what to do with each token. # Put values in the tables of what to do with each token.
sub init_tables sub init_tables
{ {
local($kind, $word, $macro, %files); local($kind, $word, $macro);
# Initialize a table of C keywords (to ignore). # Initialize a table of C keywords (to ignore).
# Taken from K&R 1st edition p. 180. # Taken from K&R 1st edition p. 180.
@ -316,7 +315,7 @@ sub output
s/\.in$//; s/\.in$//;
$unique_makefiles{$_}++; $unique_makefiles{$_}++;
} }
print CONF "AC_OUTPUT(", join(" ", keys(%unique_makefiles)), ")\n"; print CONF "\nAC_OUTPUT(", join(" ", keys(%unique_makefiles)), ")\n";
close CONF; close CONF;
} }
@ -336,14 +335,14 @@ sub output_programs
{ {
local ($word); local ($word);
print CONF "dnl Checks for programs.\n"; print CONF "\ndnl Checks for programs.\n";
foreach $word (sort keys %programs) { foreach $word (sort keys %programs) {
&print_unique($programs_macros{$word}); &print_unique($programs_macros{$word});
} }
foreach $word (sort keys %makevars) { foreach $word (sort keys %makevars) {
&print_unique($makevars_macros{$word}); &print_unique($makevars_macros{$word});
} }
print CONF "dnl Checks for libraries.\n"; print CONF "\ndnl Checks for libraries.\n";
foreach $word (sort keys %libraries) { foreach $word (sort keys %libraries) {
print CONF "AC_HAVE_LIBRARY($word)\n"; print CONF "AC_HAVE_LIBRARY($word)\n";
} }
@ -353,9 +352,10 @@ sub output_headers
{ {
local ($word); local ($word);
print CONF "dnl Checks for header files.\n"; print CONF "\ndnl Checks for header files.\n";
foreach $word (sort keys %headers) { foreach $word (sort keys %headers) {
if ($headers_macros{$word} eq 'AC_CHECK_HEADERS') { if (defined($headers_macros{$word}) &&
$headers_macros{$word} eq 'AC_CHECK_HEADERS') {
push(@have_headers, $word); push(@have_headers, $word);
} else { } else {
&print_unique($headers_macros{$word}); &print_unique($headers_macros{$word});
@ -369,7 +369,7 @@ sub output_identifiers
{ {
local ($word); local ($word);
print CONF "dnl Checks for typedefs, structures, and compiler characteristics.\n"; print CONF "\ndnl Checks for typedefs, structures, and compiler characteristics.\n";
foreach $word (sort keys %identifiers) { foreach $word (sort keys %identifiers) {
&print_unique($identifiers_macros{$word}); &print_unique($identifiers_macros{$word});
} }
@ -379,9 +379,10 @@ sub output_functions
{ {
local ($word); local ($word);
print CONF "dnl Checks for library functions.\n"; print CONF "\ndnl Checks for library functions.\n";
foreach $word (sort keys %functions) { foreach $word (sort keys %functions) {
if ($functions_macros{$word} eq 'AC_CHECK_FUNCS') { if (defined($functions_macros{$word}) &&
$functions_macros{$word} eq 'AC_CHECK_FUNCS') {
push(@have_funcs, $word); push(@have_funcs, $word);
} else { } else {
&print_unique($functions_macros{$word}); &print_unique($functions_macros{$word});