486 |
# Process the arguments for real this time. |
# Process the arguments for real this time. |
487 |
my @trace; |
my @trace; |
488 |
my @prepend_include; |
my @prepend_include; |
|
my $include_envvar; |
|
|
my @site_macro_subdirs; |
|
489 |
getopt |
getopt |
490 |
( |
( |
491 |
# Operation modes: |
# Operation modes: |
497 |
# Library directories: |
# Library directories: |
498 |
"B|prepend-include=s" => \@prepend_include, |
"B|prepend-include=s" => \@prepend_include, |
499 |
"I|include=s" => \@include, |
"I|include=s" => \@include, |
|
"include-envvar=s" => \$include_envvar, |
|
|
"site-macro-subdir=s" => \@site_macro_subdirs, |
|
500 |
|
|
501 |
# Tracing: |
# Tracing: |
502 |
# Using a hash for traces is seducing. Unfortunately, upon `-t FOO', |
# Using a hash for traces is seducing. Unfortunately, upon `-t FOO', |
525 |
if $freeze; |
if $freeze; |
526 |
|
|
527 |
# Add directories from the appropriate env var to the include path. |
# Add directories from the appropriate env var to the include path. |
528 |
@include = (@include, split(/:/, $ENV{$include_envvar})) |
@include = (@include, split(/:/, $ENV{'AUTOM4TE_PATH'})) |
529 |
if defined($include_envvar) && exists($ENV{$include_envvar}); |
if exists($ENV{'AUTOM4TE_PATH'}); |
530 |
|
|
531 |
# Also add the site macro directory, if applicable. |
# Also add the site macro directory, if applicable. |
532 |
map { @include = (@include, "@SITE_MACRO_DIR@/$_"); } @site_macro_subdirs |
@include = (@include, '@SITE_MACRO_DIR@') |
533 |
if ('@SITE_MACRO_DIR@' ne 'no') && @site_macro_subdirs; |
if ('@SITE_MACRO_DIR@' ne 'no'); |
534 |
|
|
535 |
# Normalize the includes: the first occurrence is enough, several is |
# Normalize the includes: the first occurrence is enough, several is |
536 |
# a pain since it introduces a useless difference in the path which |
# a pain since it introduces a useless difference in the path which |