summaryrefslogtreecommitdiff
path: root/fonts/archaic/phaistos/var/getglyphs
blob: 3a999c7f694e26a97ec04d696d94972258d88803 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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__