GopherProxy

#
# Shell library - for building devutf tables.
#

RESOLUTION=720
UNITWIDTH=10

OCTALESCAPES=${OCTALESCAPES:-160} # <= code means add \0ddd names
DOWNLOADVECTOR=FALSE # TRUE can mean incomplete tables

#
# BuiltinTables returns command lines that generate PostScript programs
# for building a typesetter description file and font width tables for
# a relatively standard collection of fonts. Use awk to select a command
# line or modify an existing command to build a width table for a new
# font.
#

BuiltinTables() {
cat <<-'//End of BuiltinTables'
Proportional R Times-Roman
Proportional I Times-Italic
Proportional B Times-Bold
Proportional BI Times-BoldItalic
Proportional AB AvantGarde-Demi
Proportional AI AvantGarde-BookOblique
Proportional AR AvantGarde-Book
Proportional AX AvantGarde-DemiOblique
Proportional H Helvetica
Proportional HB Helvetica-Bold
Proportional HI Helvetica-Oblique
Proportional HX Helvetica-BoldOblique
Proportional Hb Helvetica-Narrow-Bold
Proportional Hi Helvetica-Narrow-Oblique
Proportional Hr Helvetica-Narrow
Proportional Hx Helvetica-Narrow-BoldOblique
Proportional KB Bookman-Demi
Proportional KI Bookman-LightItalic
Proportional KR Bookman-Light
Proportional KX Bookman-DemiItalic
Proportional NB NewCenturySchlbk-Bold
Proportional NI NewCenturySchlbk-Italic
Proportional NR NewCenturySchlbk-Roman
Proportional NX NewCenturySchlbk-BoldItalic
Proportional PA Palatino-Roman
Proportional PB Palatino-Bold
Proportional PI Palatino-Italic
Proportional PX Palatino-BoldItalic
Proportional ZI ZapfChancery-MediumItalic
FixedWidth C Courier
FixedWidth CB Courier-Bold
FixedWidth CI Courier-Oblique
FixedWidth CO Courier
FixedWidth CW Courier
FixedWidth CX Courier-BoldOblique
Dingbats ZD ZapfDingbats
Greek GR Symbol
Symbol S Symbol
Special S1 Times-Roman
Description DESC ---
//End of BuiltinTables
}

#
# AllTables prints the complete list of builtin font names.
#

AllTables() {
BuiltinTables | awk '{print $2}'
}

#
# Charset functions generate keyword/value pairs (as PostScript objects)
# that describe the character set available in a font. The keyword is a
# PostScript string that represents troff's name for the character. The
# value is usually the literal name (i.e. begins with a /) assigned to
# the character in the PostScript font. The value can also be an integer
# or a PostScript string. An integer value is used as an index in the
# current font's Encoding array. A string value is returned to the host
# unchanged when the entry for the character is constructed. Entries that
# have (") as their value are synonyms for the preceeding character.
#
# The 18 characters missing from ROM resident fonts on older printers are
# flagged with the PostScript comment "% missing".
#

StandardCharset() {
cat <<-'//End of StandardCharset'
(!) /exclam
(") /quotedbl
(dq) (") % synonym
(#) /numbersign
($) /dollar
(%) /percent
(&) /ampersand
(') /quoteright
($) /parenleft
($) /parenright
(*) /asterisk
(+) /plus
(,) /comma
(-) /hyphen % changed from minus by request
(.) /period
(/) /slash
(0) /zero
(1) /one
(2) /two
(3) /three
(4) /four
(5) /five
(6) /six
(7) /seven
(8) /eight
(9) /nine
(:) /colon
(;) /semicolon
(<) /less
(=) /equal
(>) /greater
(?) /question
(@) /at
(A) /A
(B) /B
(C) /C
(D) /D
(E) /E
(F) /F
(G) /G
(H) /H
(I) /I
(J) /J
(K) /K
(L) /L
(M) /M
(N) /N
(O) /O
(P) /P
(Q) /Q
(R) /R
(S) /S
(T) /T
(U) /U
(V) /V
(W) /W
(X) /X
(Y) /Y
(Z) /Z
([) /bracketleft
(\\) /backslash
(bs) (") % synonym
(]) /bracketright
(^) /asciicircum
(_) /underscore
(`) /quoteleft
(a) /a
(b) /b
(c) /c
(d) /d
(e) /e
(f) /f
(g) /g
(h) /h
(i) /i
(j) /j
(k) /k
(l) /l
(m) /m
(n) /n
(o) /o
(p) /p
(q) /q
(r) /r
(s) /s
(t) /t
(u) /u
(v) /v
(w) /w
(x) /x
(y) /y
(z) /z
({) /braceleft
(|) /bar
(}) /braceright
(~) /asciitilde
(\\`) /grave % devpost character
(ga) (") % synonym
(!!) /exclamdown
(c|) /cent
(ct) (") % devpost synonym
(L-) /sterling
(ps) (") % devpost synonym
(xo) /currency
(cr) (") % devpost synonym
(Y-) /yen
(yn) (") % devpost synonym
(||) /brokenbar % missing
(so) /section
(sc) (") % devpost synonym
("") /dieresis
(:a) (") % devpost synonym
(co) /copyright
(a_) /ordfeminine
(<<) /guillemotleft
(-,) /logicalnot
(hy) /hyphen
(--) /minus
(ro) /registered
(rg) (") % devpost synonym
(-^) /macron
(-a) (") % devpost synonym
(0^) /degree % missing
(+-) /plusminus % missing
(2^) /twosuperior % missing
(3^) /threesuperior % missing
(\\') /acute
(aa) (") % devpost synonym
(/u) /mu % missing
(P!) /paragraph
(pg) (") % devpost synonym
(.^) /periodcentered
(,,) /cedilla
(,a) (") % devpost synonym
(1^) /onesuperior % missing
(o_) /ordmasculine
(>>) /guillemotright
(14) /onequarter % missing
(12) /onehalf % missing
(34) /threequarters % missing
(??) /questiondown
(A`) /Agrave
(A') /Aacute
(A^) /Acircumflex
(A~) /Atilde
(A") /Adieresis
(A*) /Aring
(AE) /AE
(C,) /Ccedilla
(E`) /Egrave
(E') /Eacute
(E^) /Ecircumflex
(E") /Edieresis
(I`) /Igrave
(I') /Iacute
(I^) /Icircumflex
(I") /Idieresis
(D-) /Eth % missing
(N~) /Ntilde
(O`) /Ograve
(O') /Oacute
(O^) /Ocircumflex
(O~) /Otilde
(O") /Odieresis
(xx) /multiply % missing
(O/) /Oslash
(U`) /Ugrave
(U') /Uacute
(U^) /Ucircumflex
(U") /Udieresis
(Y') /Yacute % missing
(TH) /Thorn % missing
(ss) /germandbls
(a`) /agrave
(a') /aacute
(a^) /acircumflex
(a~) /atilde
(a") /adieresis
(a*) /aring
(ae) /ae
(c,) /ccedilla
(e`) /egrave
(e') /eacute
(e^) /ecircumflex
(e") /edieresis
(i`) /igrave
(i') /iacute
(i^) /icircumflex
(i") /idieresis
(d-) /eth % missing
(n~) /ntilde
(o`) /ograve
(o') /oacute
(o^) /ocircumflex
(o~) /otilde
(o") /odieresis
(-:) /divide % missing
(o/) /oslash
(u`) /ugrave
(u') /uacute
(u^) /ucircumflex
(u") /udieresis
(y') /yacute % missing
(th) /thorn % missing
(y") /ydieresis
(^a) /circumflex % devpost accent
(~a) /tilde % devpost accent
(Ua) /breve % devpost accent
(.a) /dotaccent % devpost accent
(oa) /ring % devpost accent
("a) /hungarumlaut % devpost accent
(Ca) /ogonek % devpost accent
(va) /caron % devpost accent
//End of StandardCharset
}

#
# DingbatsCharset guarantees changes in StandardCharset don't show up in ZD.
#

DingbatsCharset() {
cat <<-'//End of DingbatsCharset'
(!) /exclam
(") /quotedbl
(#) /numbersign
($) /dollar
(%) /percent
(&) /ampersand
(') /quoteright
($) /parenleft
($) /parenright
(*) /asterisk
(+) /plus
(,) /comma
(-) /minus % also hyphen in devpost
(.) /period
(/) /slash
(0) /zero
(1) /one
(2) /two
(3) /three
(4) /four
(5) /five
(6) /six
(7) /seven
(8) /eight
(9) /nine
(:) /colon
(;) /semicolon
(<) /less
(=) /equal
(>) /greater
(?) /question
(@) /at
(A) /A
(B) /B
(C) /C
(D) /D
(E) /E
(F) /F
(G) /G
(H) /H
(I) /I
(J) /J
(K) /K
(L) /L
(M) /M
(N) /N
(O) /O
(P) /P
(Q) /Q
(R) /R
(S) /S
(T) /T
(U) /U
(V) /V
(W) /W
(X) /X
(Y) /Y
(Z) /Z
([) /bracketleft
(\\) /backslash
(]) /bracketright
(^) /asciicircum
(_) /underscore
(`) /quoteleft
(a) /a
(b) /b
(c) /c
(d) /d
(e) /e
(f) /f
(g) /g
(h) /h
(i) /i
(j) /j
(k) /k
(l) /l
(m) /m
(n) /n
(o) /o
(p) /p
(q) /q
(r) /r
(s) /s
(t) /t
(u) /u
(v) /v
(w) /w
(x) /x
(y) /y
(z) /z
({) /braceleft
(|) /bar
(}) /braceright
(~) /asciitilde
(\\`) /grave % devpost character
(!!) /exclamdown
(c|) /cent
(L-) /sterling
(xo) /currency
(Y-) /yen
(||) /brokenbar % missing
(so) /section
("") /dieresis
(co) /copyright
(a_) /ordfeminine
(<<) /guillemotleft
(-,) /logicalnot
(hy) /hyphen
(ro) /registered
(-^) /macron
(0^) /degree % missing
(+-) /plusminus % missing
(2^) /twosuperior % missing
(3^) /threesuperior % missing
(\\') /acute
(/u) /mu % missing
(P!) /paragraph
(.^) /periodcentered
(,,) /cedilla
(1^) /onesuperior % missing
(o_) /ordmasculine
(>>) /guillemotright
(14) /onequarter % missing
(12) /onehalf % missing
(34) /threequarters % missing
(??) /questiondown
(A`) /Agrave
(A') /Aacute
(A^) /Acircumflex
(A~) /Atilde
(A") /Adieresis
(A*) /Aring
(AE) /AE
(C,) /Ccedilla
(E`) /Egrave
(E') /Eacute
(E^) /Ecircumflex
(E") /Edieresis
(I`) /Igrave
(I') /Iacute
(I^) /Icircumflex
(I") /Idieresis
(D-) /Eth % missing
(N~) /Ntilde
(O`) /Ograve
(O') /Oacute
(O^) /Ocircumflex
(O~) /Otilde
(O") /Odieresis
(xx) /multiply % missing
(O/) /Oslash
(U`) /Ugrave
(U') /Uacute
(U^) /Ucircumflex
(U") /Udieresis
(Y') /Yacute % missing
(TH) /Thorn % missing
(ss) /germandbls
(a`) /agrave
(a') /aacute
(a^) /acircumflex
(a~) /atilde
(a") /adieresis
(a*) /aring
(ae) /ae
(c,) /ccedilla
(e`) /egrave
(e') /eacute
(e^) /ecircumflex
(e") /edieresis
(i`) /igrave
(i') /iacute
(i^) /icircumflex
(i") /idieresis
(d-) /eth % missing
(n~) /ntilde
(o`) /ograve
(o') /oacute
(o^) /ocircumflex
(o~) /otilde
(o") /odieresis
(-:) /divide % missing
(o/) /oslash
(u`) /ugrave
(u') /uacute
(u^) /ucircumflex
(u") /udieresis
(y') /yacute % missing
(th) /thorn % missing
(y") /ydieresis
//End of DingbatsCharset
}

SymbolCharset() {
cat <<-'//End of SymbolCharset'
(---) /exclam
(fa) /universal
(---) /numbersign
(te) /existential
(---) /percent
(---) /ampersand
(st) /suchthat
(---) /parenleft
(---) /parenright
(**) /asteriskmath
(pl) /plus
(---) /comma
(mi) /minus
(---) /period
(sl) /slash
(---) /zero
(---) /one
(---) /two
(---) /three
(---) /four
(---) /five
(---) /six
(---) /seven
(---) /eight
(---) /nine
(---) /colon
(---) /semicolon
(<) /less
(eq) /equal
(>) /greater
(---) /question
(cg) /congruent
(*A) /Alpha
(\244x) (")
(*B) /Beta
(\244y) (")
(*X) /Chi
(\244\257) (")
(*D) /Delta
(\244{) (")
(*E) /Epsilon
(\244|) (")
(*F) /Phi
(\244\256) (")
(*G) /Gamma
(\244z) (")
(*Y) /Eta
(\244~) (")
(*I) /Iota
(\244\241) (")
(---) /theta1
(\244\331) (")
(*K) /Kappa
(\244\242) (")
(*L) /Lambda
(\244\243) (")
(*M) /Mu
(\244\244) (")
(*N) /Nu
(\244\245) (")
(*O) /Omicron
(\244\247) (")
(*P) /Pi
(\244\250) (")
(*H) /Theta
(\244\240) (")
(*R) /Rho
(\244\251) (")
(*S) /Sigma
(\244\253) (")
(*T) /Tau
(\244\254) (")
(*U) /Upsilon
(\244\255) (")
(ts) /sigma1
(\244\312) (")
(*W) /Omega
(\244\261) (")
(*C) /Xi
(\244\246) (")
(*Q) /Psi
(\244\260) (")
(*Z) /Zeta
(\244}) (")
(---) /bracketleft
(tf) /therefore
(---) /bracketright
(pp) /perpendicular
(ul) /underscore
(_) (") % synonym
(rn) /radicalex
(*a) /alpha
(\244\271) (")
(*b) /beta
(\244\272) (")
(*x) /chi
(\244\317) (")
(*d) /delta
(\244\274) (")
(*e) /epsilon
(\244\275) (")
(*f) /phi
(\244\316) (")
(*g) /gamma
(\244\273) (")
(*y) /eta
(\244\277) (")
(*i) /iota
(\244\301) (")
(---) /phi1
(\244\335) (")
(*k) /kappa
(\244\302) (")
(*l) /lambda
(\244\303) (")
(*m) /mu
(\244\304) (")
(*n) /nu
(\244\305) (")
(*o) /omicron
(\244\307) (")
(*p) /pi
(\244\310) (")
(*h) /theta
(\244\300) (")
(*r) /rho
(\244\311) (")
(*s) /sigma
(\244\313) (")
(*t) /tau
(\244\314) (")
(*u) /upsilon
(\244\315) (")
(---) /omega1
(\244\336) (")
(*w) /omega
(\244\321) (")
(*c) /xi
(\244\306) (")
(*q) /psi
(\244\320) (")
(*z) /zeta
(\244\276) (")
(---) /braceleft
(or) /bar
(---) /braceright
(ap) /similar
(---) /Upsilon1
(fm) /minute
(<=) /lessequal
(fr) /fraction % devpost character
(if) /infinity
(fn) /florin % devpost character
(---) /club
(---) /diamond
(---) /heart
(---) /spade
(ab) /arrowboth
(<-) /arrowleft
(ua) /arrowup
(->) /arrowright
(da) /arrowdown
(de) /degree
(+-) /plusminus
(---) /second
(>=) /greaterequal
(mu) /multiply
(pt) /proportional
(pd) /partialdiff
(bu) /bullet
(di) /divide
(!=) /notequal
(==) /equivalence
(~~) /approxequal
(el) /ellipsis
(av) /arrowvertex
(ah) /arrowhorizex
(CR) /carriagereturn
(af) /aleph
(If) /Ifraktur
(Rf) /Rfraktur
(ws) /weierstrass
(Ox) /circlemultiply
(O+) /circleplus
(es) /emptyset
(ca) /intersection
(cu) /union
(sp) /propersuperset
(ip) /reflexsuperset
(!b) /notsubset
(sb) /propersubset
(ib) /reflexsubset
(mo) /element
(!m) /notelement
(an) /angle
(gr) /gradient
(rg) /registerserif
(co) /copyrightserif
(tm) /trademarkserif
(---) /product
(sr) /radical
(c.) /dotmath
(no) /logicalnot
(l&) /logicaland
(l|) /logicalor
(---) /arrowdblboth
(---) /arrowdblleft
(---) /arrowdblup
(---) /arrowdblright
(---) /arrowdbldown
(lz) /lozenge
(b<) /angleleft
(RG) /registersans
(CO) /copyrightsans
(TM) /trademarksans
(---) /summation
(LT) /parenlefttp
(br) /parenleftex
(LX) (") % synonym
(LB) /parenleftbt
(lc) /bracketlefttp
(lx) /bracketleftex
(lf) /bracketleftbt
(lt) /bracelefttp
(lk) /braceleftmid
(lb) /braceleftbt
(bv) /braceex
(|) (") % synonym
(b>) /angleright
(is) /integral
(---) /integraltp
(---) /integralex
(---) /integralbt
(RT) /parenrighttp
(RX) /parenrightex
(RB) /parenrightbt
(rc) /bracketrighttp
(rx) /bracketrightex
(rf) /bracketrightbt
(rt) /bracerighttp
(rk) /bracerightmid
(rb) /bracerightbt
(~=) (55 0 1) % charlib
//End of SymbolCharset
}

SpecialCharset() {
cat <<-'//End of SpecialCharset'
(ru) /underscore
('') /quotedblright % devpost character
(``) /quotedblleft % devpost character
(dg) /dagger % devpost character
(dd) /daggerdbl % devpost character
(en) /endash % devpost character
(\\-) (") % synonym
(em) /emdash
% (ff) (60 2 1) % charlib
% (Fi) (84 2 1) % charlib
% (Fl) (84 2 1) % charlib
(14) (75 2 1) % charlib
(12) (75 2 1) % charlib
(34) (75 2 1) % charlib
(bx) (50 2 1) % charlib
(ob) (38 2 1) % charlib
(ci) (75 0 1) % charlib
(sq) (50 2 1) % charlib
(Sl) (50 2 1) % charlib
(L1) (110 1 1) % charlib
(LA) (110 1 1) % charlib
(LV) (110 3 1) % charlib
(LH) (210 1 1) % charlib
(lh) (100 0 1) % charlib
(rh) (100 0 1) % charlib
(lH) (100 0 1) % charlib
(rH) (100 0 1) % charlib
(PC) (220 2 1) % charlib
(DG) (185 2 1) % charlib
//End of SpecialCharset
}

#
# Latin1 ensures a font uses the ISOLatin1Encoding vector, although only
# text fonts should be re-encoded. Downloading the Encoding vector doesn't
# often make sense. No ISOLatin1Encoding array likely means ROM based fonts
# on your printer are incomplete. Type 1 fonts with a full Latin1 character
# set appeared sometime after Version 50.0.
#

Latin1() {
if [ "$DOWNLOADVECTOR" = TRUE ]; then
cat <<-'//End of ISOLatin1Encoding'
/ISOLatin1Encoding [
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/space
/exclam
/quotedbl
/numbersign
/dollar
/percent
/ampersand
/quoteright
/parenleft
/parenright
/asterisk
/plus
/comma
/minus
/period
/slash
/zero
/one
/two
/three
/four
/five
/six
/seven
/eight
/nine
/colon
/semicolon
/less
/equal
/greater
/question
/at
/A
/B
/C
/D
/E
/F
/G
/H
/I
/J
/K
/L
/M
/N
/O
/P
/Q
/R
/S
/T
/U
/V
/W
/X
/Y
/Z
/bracketleft
/backslash
/bracketright
/asciicircum
/underscore
/quoteleft
/a
/b
/c
/d
/e
/f
/g
/h
/i
/j
/k
/l
/m
/n
/o
/p
/q
/r
/s
/t
/u
/v
/w
/x
/y
/z
/braceleft
/bar
/braceright
/asciitilde
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/.notdef
/dotlessi
/grave
/acute
/circumflex
/tilde
/macron
/breve
/dotaccent
/dieresis
/.notdef
/ring
/cedilla
/.notdef
/hungarumlaut
/ogonek
/caron
/space
/exclamdown
/cent
/sterling
/currency
/yen
/brokenbar
/section
/dieresis
/copyright
/ordfeminine
/guillemotleft
/logicalnot
/hyphen
/registered
/macron
/degree
/plusminus
/twosuperior
/threesuperior
/acute
/mu
/paragraph
/periodcentered
/cedilla
/onesuperior
/ordmasculine
/guillemotright
/onequarter
/onehalf
/threequarters
/questiondown
/Agrave
/Aacute
/Acircumflex
/Atilde
/Adieresis
/Aring
/AE
/Ccedilla
/Egrave
/Eacute
/Ecircumflex
/Edieresis
/Igrave
/Iacute
/Icircumflex
/Idieresis
/Eth
/Ntilde
/Ograve
/Oacute
/Ocircumflex
/Otilde
/Odieresis
/multiply
/Oslash
/Ugrave
/Uacute
/Ucircumflex
/Udieresis
/Yacute
/Thorn
/germandbls
/agrave
/aacute
/acircumflex
/atilde
/adieresis
/aring
/ae
/ccedilla
/egrave
/eacute
/ecircumflex
/edieresis
/igrave
/iacute
/icircumflex
/idieresis
/eth
/ntilde
/ograve
/oacute
/ocircumflex
/otilde
/odieresis
/divide
/oslash
/ugrave
/uacute
/ucircumflex
/udieresis
/yacute
/thorn
/ydieresis
] def
//End of ISOLatin1Encoding
fi

echo "ISOLatin1Encoding /$1 ReEncode"
}

#
# Generating functions output PostScript programs that build font width
# tables or a typesetter description file. Send the program to a printer
# and the complete table will come back on the serial port. All write on
# stdout and assume the prologue and other required PostScript files are
# all available.
#

Proportional() {
echo "/unitwidth $UNITWIDTH def"
echo "/resolution $RESOLUTION def"
echo "/octalescapes $OCTALESCAPES def"
echo "/charset ["
# Get <>_ and | from S. Use accents for ascii ^ and ~.
StandardCharset | awk '
$1 == "(<)" && $2 == "/less" {$1 = "(---)"}
$1 == "(>)" && $2 == "/greater" {$1 = "(---)"}
$1 == "(_)" && $2 == "/underscore" {$1 = "(---)"}
$1 == "(|)" && $2 == "/bar" {$1 = "(---)"}
$1 == "(^)" && $2 == "/asciicircum" {
printf "(^)\t/circumflex\n"
$1 = "(---)"
}
$1 == "(~)" && $2 == "/asciitilde" {
printf "(~)\t/tilde\n"
$1 = "(---)"
}
{printf "%s\t%s\n", $1, $2}
'
echo "] def"

Latin1 $2
echo "/$2 SelectFont"
echo "(opO) SetAscender"

echo "(name $1\\\\n) Print"
echo "(fontname $2\\\\n) Print"
echo "/$1 NamedInPrologue"
echo "(spacewidth ) Print 32 GetWidth Print (\n) Print"
echo "(charset\\\\n) Print"
echo "BuildFontCharset"
}

FixedWidth() {
echo "/unitwidth $UNITWIDTH def"
echo "/resolution $RESOLUTION def"
echo "/octalescapes $OCTALESCAPES def"
echo "/charset ["
StandardCharset
echo "] def"

Latin1 $2
echo "/$2 SelectFont"
echo "(opO) SetAscender"

echo "(name $1\\\\n) Print"
echo "(fontname $2\\\\n) Print"
echo "/$1 NamedInPrologue"
echo "(spacewidth ) Print 32 GetWidth Print (\n) Print"
echo "(charset\\\\n) Print"
echo "BuildFontCharset"
}

Dingbats() {
echo "/unitwidth $UNITWIDTH def"
echo "/resolution $RESOLUTION def"
echo "/octalescapes $OCTALESCAPES def"
echo "/charset ["
DingbatsCharset | awk '$1 != "(---)" && $2 ~ /^\/[a-zA-Z]/ {
printf "%s\tISOLatin1Encoding %s GetCode\n", $1, $2
}'
echo "] def"

echo "/$2 SelectFont"
echo "( ) SetAscender"

echo "(name $1\\\\n) Print"
echo "(fontname $2\\\\n) Print"
echo "/$1 NamedInPrologue"
echo "(charset\\\\n) Print"
echo "BuildFontCharset"
}

Greek() {
echo "/unitwidth $UNITWIDTH def"
echo "/resolution $RESOLUTION def"
echo "/charset ["
SymbolCharset | awk '
BEGIN {hit = -1}
$1 ~ /$\*[a-zA-Z]$/ {print; hit = NR}
$2 == "(\")" && hit == NR-1 {print; hit = NR}
'
echo "] def"

echo "/$2 SelectFont"
echo "(orO) SetAscender"

echo "(name $1\\\\n) Print"
echo "(fontname $2\\\\n) Print"
echo "/$1 NamedInPrologue"
echo "(spacewidth ) Print 32 GetWidth Print (\n) Print"
echo "(charset\\\\n) Print"
echo "BuildFontCharset"
}

Symbol() {
echo "/unitwidth $UNITWIDTH def"
echo "/resolution $RESOLUTION def"
echo "/charset ["
SymbolCharset
echo "] def"

echo "ChangeMetrics"
echo "/S SelectFont"
echo "(orO) SetAscender"

echo "(name $1\\\\n) Print"
echo "(fontname $2\\\\n) Print"
echo "/$1 NamedInPrologue"
echo "(special\\\\n) Print"
echo "(charset\\\\n) Print"
echo "BuildFontCharset"
}

Special() {
echo "/unitwidth $UNITWIDTH def"
echo "/resolution $RESOLUTION def"
echo "/charset ["
SpecialCharset
echo "] def"

echo "ChangeMetrics"
echo "/S1 SelectFont"

echo "(# Times-Roman special font\\\\n) Print"
echo "(name $1\\\\n) Print"
echo "(fontname $2\\\\n) Print"
echo "/$1 NamedInPrologue"
echo "(special\\\\n) Print"
echo "(charset\\\\n) Print"
echo "BuildFontCharset"
}

#
# The DESC file doesn't have to be built on a printer. It's only here for
# consistency.
#

Description() {
echo "/charset [" # awk - so the stack doesn't overflow
StandardCharset | awk '$1 !~ /\(\\[0-9]/ {print $1}'
SymbolCharset | awk '$1 !~ /\(\\[0-9]/ {print $1}'
SpecialCharset | awk '$1 !~ /\(\\[0-9]/ {print $1}'
echo "] def"

cat <<-//DESC
(#Device Description - utf character set

PDL PostScript
Encoding Latin1

fonts 10 R I B BI CW H HI HB S1 S
sizes 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 32 33 34 35 36 38 40 42 44 46
48 50 52 54 56 58 60 64 68 72 78 84 90 96 100 105 110 115
120 125 130 135 140 145 150 155 160 0
res $RESOLUTION
hor 1
vert 1
unitwidth $UNITWIDTH

) Print
//DESC
echo "(charset\\\\n) Print"
echo "BuildDescCharset"
echo "(\\\\n) Print"
}