15 # echo "Error: Include file \`$1' does not exist" > /dev/stderr
16 # # echo "Fehler: Includedatei $1 existiert nicht" > /dev/stderr
27 if ($f =~ m,\$\((.*)\),) {
29 $f =~ s,\$\($1\),$var{$pivot},;
32 return "$f" if (-f "$f");
34 foreach $p (@INCPATH) {
35 return "$p/$f" if (-f "$p/$f");
38 printf STDERR "Error: Include file `$f' does not exist.\n"
49 open (F, $f) || printf STDERR "Error: Can't open $f, $!\n";
51 push (@lines, $_) if (m,^#(include|read)\s+[<"][^><"]*[>"].*,);
56 if ($l =~ m,^#(include|read)\s+[<"]([^>"]*)[><"]\s+(.*),) {
58 $foo = expandfile ($p, %var);
59 if ($3 =~ m,(\S+)="([^"]*)",) {
61 if ($e =~ m,\$\((.*)\),) {
63 $e =~ s,\$\($1\),$var{$pivot},;
67 } elsif ($l =~ m,^#(include|read)\s+[<"]([^><"]*)[>"].*,) {
69 $foo = expandfile ($p, %var);
71 printf " \\\n\t%s", $foo;
72 findincludes ($foo, %var);
78 while ($foo = shift (@ARGV)) {
79 if ($foo =~ m,-I(.*),) {
89 $foo =~ s/\.wml$/\.html/;
90 printf "%s: %s", $foo, $f;
91 findincludes ($f, %var);