summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/latex-tipps-und-tricks/such.pl
diff options
context:
space:
mode:
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.pl41
1 files changed, 41 insertions, 0 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
new file mode 100644
index 00000000000..ceb271c4ee2
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/latex-tipps-und-tricks/such.pl
@@ -0,0 +1,41 @@
+# 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);