diff options
Diffstat (limited to 'Master/texmf-dist/source/latex/stex/bin/old/symdef')
-rwxr-xr-x | Master/texmf-dist/source/latex/stex/bin/old/symdef | 46 |
1 files changed, 0 insertions, 46 deletions
diff --git a/Master/texmf-dist/source/latex/stex/bin/old/symdef b/Master/texmf-dist/source/latex/stex/bin/old/symdef deleted file mode 100755 index b5c789a1c72..00000000000 --- a/Master/texmf-dist/source/latex/stex/bin/old/symdef +++ /dev/null @@ -1,46 +0,0 @@ -#!/usr/bin/perl -w - -use strict; -use Getopt::Long; -use Pod::Usage; - -my $output = "-"; -my $input = "-"; - -GetOptions("output=s",\$output); - -$input = $ARGV[0] if @ARGV; - -open(FIN,$input) or die "Can't open input file."; -open(FOUT,">$output"); - -my $line; - -while ($line=<FIN>){ - if ($line !~ m/symdef/ && $line !~ m/elldef/ && $line !~ m/abbrdef/){ - print FOUT $line; - next; - } - if ($line =~ m/\}\[\d,/){ - print FOUT $line; - next; - } - - if ($line =~ m/\\(sym|abbr|ell)def\{\\([^\}]+)\}\[(\d)\]([^\n\%]+)(.*)/){ - print FOUT "\\$1def{\\$2}[$3,name=$2]$4$5\n"; - } else { - if ($line =~ m/\\(sym|ell|abbr)def\{\\([^\}]+)\}([^\n\%]+)(.*)/){ - print FOUT "\\$1def{\\$2}[0,name=$2]$3$4\n"; - } - } -} - -close(FIN); -close(FOUT); - - -__END__ - -=head1 SYNOPSIS - -symdef [--output=outputfile] [texfile] |