18 # echo "Error: Include file \`$1' does not exist" > /dev/stderr
19 # # echo "Fehler: Includedatei $1 existiert nicht" > /dev/stderr
31 if ($f =~ m,\$\((.*)\),) {
33 $f =~ s,\$\($1\),$var{$pivot},;
36 return "$f" if (-f "$f");
38 foreach $p (@INCPATH) {
39 return "$p/$f" if (-f "$p/$f");
42 printf STDERR "Error: Include file `$f' does not exist.\n"
53 open (F, $f) || printf STDERR "Error: Can't open $f, $!\n";
55 push (@lines, $_) if (m,^#(include|read)\s+[<"][^><"]*[>"].*,);
60 if ($l =~ m,^#(include|read)\s+[<"]([^>"]*)[><"]\s+(.*),) {
62 $foo = expandfile ($p, %var);
63 if ($3 =~ m,(\S+)="([^"]*)",) {
65 if ($e =~ m,\$\((.*)\),) {
67 $e =~ s,\$\($1\),$var{$pivot},;
71 } elsif ($l =~ m,^#(include|read)\s+[<"]([^><"]*)[>"].*,) {
73 $foo = expandfile ($p, %var);
75 printf " \\\n\t%s", $foo;
76 findincludes ($foo, %var);
82 while (my $foo = shift (@ARGV)) {
83 if ($foo =~ m,-I(.*),) {
91 foreach my $f (@FILES) {
93 $foo =~ s/\.wml$/\.php/;
94 printf "%s: %s", $foo, $f;
95 findincludes ($f, %var);