/[autoconf]/autoconf/bin/autoscan.in
ViewVC logotype

Diff of /autoconf/bin/autoscan.in

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.78 by eggert, Wed Jun 12 17:26:19 2002 UTC revision 1.79 by eggert, Wed Jul 17 08:30:43 2002 UTC
# Line 80  my $log = new Autom4te::XFile ">$me.log" Line 80  my $log = new Autom4te::XFile ">$me.log"
80  # Autoconf and lib files.  # Autoconf and lib files.
81  my $autom4te = $ENV{'AUTOM4TE'} || '@bindir@/@autom4te-name@';  my $autom4te = $ENV{'AUTOM4TE'} || '@bindir@/@autom4te-name@';
82  my $autoconf = "$autom4te --language=autoconf";  my $autoconf = "$autom4te --language=autoconf";
83    my @prepend_include;
84  my @include = ('@datadir@');  my @include = ('@datadir@');
85    
86  # $help  # $help
# Line 96  preliminary `configure.ac' for that pack Line 97  preliminary `configure.ac' for that pack
97    -V, --version       print version number, then exit    -V, --version       print version number, then exit
98    -v, --verbose       verbosely report processing    -v, --verbose       verbosely report processing
99    -d, --debug         don't remove temporary files    -d, --debug         don't remove temporary files
100    -I, --include=DIR   look for input files in DIR (cumulative)    -B, --prepend-include=DIR  prepend directory DIR to search path
101      -I, --include=DIR          append directory DIR to search path
102    
103  Report bugs to <bug-autoconf\@gnu.org>.\n";  Report bugs to <bug-autoconf\@gnu.org>.\n";
104    
# Line 121  warranty; not even for MERCHANTABILITY o Line 123  warranty; not even for MERCHANTABILITY o
123  # Process any command line arguments.  # Process any command line arguments.
124  sub parse_args ()  sub parse_args ()
125  {  {
126    getopt ("I|include|A|autoconf-dir|m|macrodir=s" => \@include);    getopt ('I|include|A|autoconf-dir|m|macrodir=s' => \@include,
127              'B|prepend-include=s' => @prepend_include);
128    
129    die "$me: too many arguments    die "$me: too many arguments
130  Try `$me --help' for more information.\n"  Try `$me --help' for more information.\n"
# Line 151  sub init_tables () Line 154  sub init_tables ()
154    my $tables_are_consistent = 1;    my $tables_are_consistent = 1;
155    foreach my $kind (@kinds)    foreach my $kind (@kinds)
156      {      {
157        my $file = find_file ("autoscan/$kind", @include);        my $file = find_file ("autoscan/$kind",
158                                reverse(@prepend_include), @include);
159        my $table = new Autom4te::XFile $file;        my $table = new Autom4te::XFile $file;
160        while ($_ = $table->getline)        while ($_ = $table->getline)
161          {          {
# Line 586  parse_args; Line 590  parse_args;
590  $autoconf .= " --debug" if $debug;  $autoconf .= " --debug" if $debug;
591  $autoconf .= " --verbose" if $verbose;  $autoconf .= " --verbose" if $verbose;
592  $autoconf .= join (' --include=', '', @include);  $autoconf .= join (' --include=', '', @include);
593    $autoconf .= join (' --prepend-include=', '', @prepend_include);
594    
595  my $configure_ac = find_configure_ac;  my $configure_ac = find_configure_ac;
596  init_tables;  init_tables;

Legend:
Removed from v.1.78  
changed lines
  Added in v.1.79

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26