ref: 8188b4f4f0e07b6669e6ae3c6c1099af917eaab4
dir: /sys/src/cmd/postscript/trofftable/trofftable.ps/
%
% Prologue for building troff width tables. The gsave/grestore pairs are
% for hardcopy.
%
/slowdown 25 def
/flagduplicates false def
/ascenderheight -1 def
/descenderdepth 0 def
/octalescapes 256 def
/startcomments 256 def
/currentfontdict null def
/scratchstring 512 string def
/Print {
scratchstring cvs print flush
slowdown {1 pop} repeat
} def
/ReEncode { % vector fontname ReEncode -
dup
findfont dup length dict begin
{1 index /FID ne {def}{pop pop} ifelse} forall
/Encoding 3 -1 roll def
currentdict
end
definefont pop
} bind def
/SelectFont { % fontname SelectFont -
findfont
dup /PaintType get 0 eq {
/scaling 1 def
unitwidth resolution 72.0 div mul
}{
/scaling resolution 72 div def
unitwidth
} ifelse
scalefont
/currentfontdict exch def
} def
/ChangeMetrics {DpostPrologue begin addmetrics end} def
/NamedInPrologue {
dup
DpostPrologue exch known {
DpostPrologue exch get type /nametype eq {
(named in prologue\n) Print
} if
}{pop} ifelse
} def
/SetAscender {
/str exch def
gsave
currentfontdict setfont
newpath
0 0 moveto
str false charpath flattenpath pathbbox
/descenderdepth 4 -1 roll .5 mul def
exch pop exch pop
newpath
0 0 moveto
str 0 1 getinterval false charpath flattenpath pathbbox
4 1 roll pop pop pop
dup 3 1 roll sub .25 mul add
/ascenderheight exch def
grestore
} def
/GetAscender {
ascenderheight descenderdepth ge {
gsave
currentfontdict setfont
newpath
0 0 moveto
( ) dup 0 4 -1 roll put
false charpath flattenpath pathbbox
exch pop 3 -1 roll pop
ascenderheight gt {2}{0} ifelse
exch descenderdepth lt {1}{0} ifelse
or
grestore
}{0} ifelse
} def
/GetWidth {
gsave
currentfontdict setfont
( ) dup 0 4 -1 roll put
stringwidth pop scaling mul round cvi
grestore
} def
/GetCode {
256 3 1 roll % last unprintable match
0 3 -1 roll {
2 index eq {
dup 127 and 32 ge {exit} if
3 -1 roll pop
dup 3 1 roll
} if
1 add
} forall
exch pop
dup 255 gt {pop}{exch pop} ifelse
} def
/BuildFontCharset {
0 2 charset length 2 sub {
/i exch def
/chcode -1 def
/chname null def
/key charset i get def
/val charset i 1 add get def
val type /integertype eq {
/chcode val def
/chname currentfontdict /Encoding get chcode get def
} if
val type /nametype eq {
/chname val def
/chcode currentfontdict /Encoding get chname GetCode def
} if
val type /stringtype eq {/chcode 0 def} if
chcode 0 lt chcode 255 gt or {
chcode 0 lt {(syntaxerror: )}{(undefinedname: )} ifelse
Print key Print (\t) Print val Print (\n) Print
quit
} if
val type /stringtype eq {
key Print
(\t) Print val Print
(\n) Print
}{
chcode octalescapes ge key (---) eq and {
(\\0) Print chcode 8 ( ) cvrs Print
}{key Print} ifelse
(\t) Print chcode GetWidth Print
(\t) Print chcode GetAscender Print
(\t) Print chcode Print
chcode startcomments ge {
(\t# ) Print chname Print
} if
(\n) Print
chcode octalescapes ge (---) key ne and {
key (\\0) anchorsearch not {
pop
(\\0) Print chcode 8 ( ) cvrs Print
(\t"\n) Print
}{pop pop} ifelse
} if
} ifelse
} for
} def
/BuildDescCharset {
/DescDict 512 dict def
/Characters 0 def
0 1 charset length 1 sub {
/i exch def
/key charset i get def
key length 2 eq {
DescDict key cvn known {
flagduplicates { % for debugging
(<<<duplicated character: ) Print
key Print
(>>>\n) Print
} if
}{
DescDict key cvn 1 put
key Print
/Characters Characters 1 add def
Characters 20 mod 0 eq {(\n)}{( )} ifelse Print
} ifelse
} if
} for
} def