summaryrefslogtreecommitdiff
path: root/fonts/archaic/phaistos/var/getglyphs
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /fonts/archaic/phaistos/var/getglyphs
Initial commit
Diffstat (limited to 'fonts/archaic/phaistos/var/getglyphs')
-rwxr-xr-xfonts/archaic/phaistos/var/getglyphs31
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__