summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/fonts/phaistos/getglyphs
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/fonts/phaistos/getglyphs')
-rwxr-xr-xMaster/texmf-dist/doc/fonts/phaistos/getglyphs31
1 files changed, 31 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/fonts/phaistos/getglyphs b/Master/texmf-dist/doc/fonts/phaistos/getglyphs
new file mode 100755
index 00000000000..3a999c7f694
--- /dev/null
+++ b/Master/texmf-dist/doc/fonts/phaistos/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__