author | wenzelm |
Fri, 23 Jun 2017 14:38:32 +0200 | |
changeset 66176 | b51a40281016 |
parent 63676 | 88727334666e |
child 67146 | 909dcdec2122 |
permissions | -rwxr-xr-x |
#!/usr/bin/env perl print "\\begin{supertabular}{ll\@{\\qquad}ll}\n"; $eol = "&"; while (<ARGV>) { if (m/^\\newcommand\{\\(isasym|isactrl)([A-Za-z]+)\}/) { if ($1 eq "isasym") { print "\\verb,\\<$2>, & {\\isasym$2} $eol\n"; } else { print "\\verb,\\<^$2>, & {\\isactrl$2} $eol\n"; } if ("$eol" eq "&") { $eol = "\\\\"; } else { $eol = "&"; } } } if ("$eol" eq "\\\\") { print "$eol\n"; } print "\\end{supertabular}\n";