author | wenzelm |
Thu, 10 Oct 2019 16:51:47 +0200 | |
changeset 70828 | cb70d84a9f5e |
parent 67146 | 909dcdec2122 |
permissions | -rwxr-xr-x |
#!/usr/bin/env perl print "\\begin{supertabular}{ll\@{\\qquad}ll}\n"; $eol = "&"; while (<ARGV>) { if (m/^\\newcommand\{\\isasym([A-Za-z]+)\}/) { print "\\verb,\\<$1>, & {\\isasym$1} $eol\n"; if ("$eol" eq "&") { $eol = "\\\\"; } else { $eol = "&"; } } } if ("$eol" eq "\\\\") { print "$eol\n"; } print "\\end{supertabular}\n";