From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 2 Sep 2019 13:46:59 +0900 Subject: Initial commit --- fonts/archaic/phaistos/var/getglyphs | 31 ++++++++++++++++++++++++++++++ fonts/archaic/phaistos/var/glyphTable.pdf | Bin 0 -> 185096 bytes 2 files changed, 31 insertions(+) create mode 100755 fonts/archaic/phaistos/var/getglyphs create mode 100644 fonts/archaic/phaistos/var/glyphTable.pdf (limited to 'fonts/archaic/phaistos/var') 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 <){ + if (s/^\\DeclareTextSymbol\{\\//) { + /^(\w*)/; + print YY "\\verb|\\$1 = |\\$1\\newline \n"; + } +} +print YY <