summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/texlive/texlive-en/archive/l.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/texlive/texlive-en/archive/l.pl')
-rw-r--r--Master/texmf-dist/doc/texlive/texlive-en/archive/l.pl44
1 files changed, 44 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/texlive/texlive-en/archive/l.pl b/Master/texmf-dist/doc/texlive/texlive-en/archive/l.pl
new file mode 100644
index 00000000000..d74f313a5cc
--- /dev/null
+++ b/Master/texmf-dist/doc/texlive/texlive-en/archive/l.pl
@@ -0,0 +1,44 @@
+require "status.pl";
+require "texlive.pl";
+while (<>) {
+ chop;
+ s/,$//;
+ if (/^\@TeXIndex/)
+ {
+ ($nam) = /^\@TeXIndex.(.*)/;
+ print "\@TeXIndex\{$nam";
+ $Status=1;
+ $Texlive=1;
+ $Modified=0;
+ }
+ elsif (/^ *modified/) { s/, *$//; $mod=$_; }
+ elsif (/^ *status/) { $Status=0;
+ if ($L{$nam})
+ { print ",\n status\t= \{$L{$nam}\}";
+ $Modified=1;}
+ else { print ",\n$_"; }
+ }
+ elsif (/^ *texlive/) { $Texlive=0;
+ if ($texlive{$nam} ne "")
+ { print ",\n texlive\t= \{$texlive{$nam}\}";
+ $Modified=1;}
+ }
+ elsif (/^}/) {
+ if ($Status) {
+ print ",\n status\t= \{unknown\}";
+ }
+ if ($Texlive && $texlive{$nam} ne "")
+ { print ",\n texlive\t= \{$texlive{$nam}\},\n"; }
+ if ($Modified)
+ { print ",\n modified\t= {1999/03/26 10:00:00 <s.rahtz\@elsevier.co.uk>}\n"; }
+ elsif ($M{$nam} ne "")
+ { print ",\n modified\t= \{$M{$nam}\}\n"; }
+ else
+ {print ",\n$mod\n"; }
+ print "}\n";
+ }
+
+ elsif (/= {/) { print ",\n$_"; }
+ else { print "\n$_"; }
+ }
+