diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /fonts/archaic/phaistos/var/getglyphs |
Initial commit
Diffstat (limited to 'fonts/archaic/phaistos/var/getglyphs')
-rwxr-xr-x | fonts/archaic/phaistos/var/getglyphs | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/fonts/archaic/phaistos/var/getglyphs b/fonts/archaic/phaistos/var/getglyphs new file mode 100755 index 0000000000..3a999c7f69 --- /dev/null +++ b/fonts/archaic/phaistos/var/getglyphs @@ -0,0 +1,31 @@ +#!/usr/bin/perl +# +# (c) Copyright 2004 Apostolos Syropoulos +# +# This program can be used to geneate a table of the glyphs +# that are provided by the ``phaistos'' LaTeX package. +# This program is absolutely free software. +# +open (XX, "phaistos.sty") || die "Can't open file './phaistos.sty'\n"; +open (YY, ">glyphs.tex") || die "Can't create file './glyphs.tex'\n"; +print YY <<Header; +\\documentclass[a4paper]{article} +\\usepackage{phaistos,multicol,fullpage} +\\begin{document} +\\small +\\setlength{\\columnseprule}{0.5pt} +\\begin{multicols}{4} +\\noindent +Header +while(<XX>){ + if (s/^\\DeclareTextSymbol\{\\//) { + /^(\w*)/; + print YY "\\verb|\\$1 = |\\$1\\newline \n"; + } +} +print YY <<Trailer; +\\end{multicols} +\\thispagestyle{empty} +\\end{document} +Trailer +__END__ |