diff options
Diffstat (limited to 'Master/texmf-dist/doc/latex/latex-tipps-und-tricks/such.pl')
-rw-r--r-- | Master/texmf-dist/doc/latex/latex-tipps-und-tricks/such.pl | 41 |
1 files changed, 0 insertions, 41 deletions
diff --git a/Master/texmf-dist/doc/latex/latex-tipps-und-tricks/such.pl b/Master/texmf-dist/doc/latex/latex-tipps-und-tricks/such.pl deleted file mode 100644 index ceb271c4ee2..00000000000 --- a/Master/texmf-dist/doc/latex/latex-tipps-und-tricks/such.pl +++ /dev/null @@ -1,41 +0,0 @@ -# such.pl <lst-file> <dateiname> -# liefert liste aller INCLUDE/INPUT-texfiles und -# durchsucht diese ebenfalls nach -# - listinginput, includegraphics - -$out = ">" . shift; -open(OUT,$out) || die "cannot open $out: $!"; -while (<>) -{ if (eof) { print OUT "$ARGV\n"; } - # \include{file} - if (m/^\\include\{(\w+)\}/) - { print "$1 included as TeX in $ARGV\n"; - unshift(ARGV, $1.".tex"); - } - # \input file - if (m/^\\input (\w+)/) - { print "$1 included via \input in $ARGV\n"; - unshift(ARGV, $1.".tex"); - } - # \listininput{n}{file} - if (m/^\\listinginput\{\d+\}\{([\w\.]+)\}/) - { print OUT "$1\n"; - print "$1 included in $ARGV\n"; - } - # \includegraphics[opt]{file} - if (m/^\\.*\\includegraphics(\[.+\])*\{([\w\.]+)\}/) - { print "$2 included as graphics\n"; - print OUT "$2\n"; - } - # \showpage{file} - if (m/\\showpage\{([\w\.]+)\}/) - { print "$1 included as graphics in showpage\n"; - print OUT "$1\n"; - } - # \requirefile{file} - if (m/^%\\requirefile\{([\w\.]+)\}/) - { print OUT "$1\n"; - print "$1 included in $ARGV (aux file)\n"; - } -} -close(OUT); |