home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Updates / GhostScript / !GhostScr / 6_01 / lib / gs_cff.ps < prev    next >
Text File  |  2000-03-29  |  19KB  |  621 lines
  1. %    Copyright (C) 1997, 1998, 1999 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % $Id: gs_cff.ps,v 1.1 2000/03/09 08:40:39 lpd Exp $
  19. % Loader for CFF (compressed) fonts.
  20. % The following are not implemented yet:
  21. %    Deleted entries in the Name Index
  22. %    Embedded PostScript
  23. %    Multiple Master fonts
  24. %    CIDFonts
  25. %    Chameleon fonts
  26. %    Synthetic fonts
  27. % Also, Type 2 charstrings are converted into FontType 2 fonts,
  28. % which may or may not be supported.
  29.  
  30. 30 dict begin
  31.  
  32. % ---------------- Standard strings (actually names) ---------------- %
  33.  
  34. /StandardStrings mark
  35. % 0
  36.   /.notdef /space /exclam /quotedbl /numbersign
  37.   /dollar /percent /ampersand /quoteright /parenleft
  38.   /parenright /asterisk /plus /comma /hyphen
  39.   /period /slash /zero /one /two
  40.   /three /four /five /six /seven
  41.   /eight /nine /colon /semicolon /less
  42.   /equal /greater /question /at /A
  43.   /B /C /D /E /F
  44.   /G /H /I /J /K
  45.   /L /M /N /O /P
  46. % 50
  47.   /Q /R /S /T /U
  48.   /V /W /X /Y /Z
  49.   /bracketleft /backslash /bracketright /asciicircum /underscore
  50.   /quoteleft /a /b /c /d
  51.   /e /f /g /h /i
  52.   /j /k /l /m /n
  53.   /o /p /q /r /s
  54.   /t /u /v /w /x
  55.   /y /z /braceleft /bar /braceright
  56.   /asciitilde /exclamdown /cent /sterling /fraction
  57. % 100
  58.   /yen /florin /section /currency /quotesingle
  59.   /quotedblleft /guillemotleft /guilsinglleft /guilsinglright /fi
  60.   /fl /endash /dagger /daggerdbl /periodcentered
  61.   /paragraph /bullet /quotesinglbase /quotedblbase /quotedblright
  62.   /guillemotright /ellipsis /perthousand /questiondown /grave
  63.   /acute /circumflex /tilde /macron /breve
  64.   /dotaccent /dieresis /ring /cedilla /hungarumlaut
  65.   /ogonek /caron /emdash /AE /ordfeminine
  66.   /Lslash /Oslash /OE /ordmasculine /ae
  67.   /dotlessi /lslash /oslash /oe /germandbls
  68. % 150
  69.   /onesuperior /logicalnot /mu /trademark /Eth
  70.   /onehalf /plusminus /Thorn /onequarter /divide
  71.   /brokenbar /degree /thorn /threequarters /twosuperior
  72.   /registered /minus /eth /multiply /threesuperior
  73.   /copyright /Aacute /Acircumflex /Adieresis /Agrave
  74.   /Aring /Atilde /Ccedilla /Eacute /Ecircumflex
  75.   /Edieresis /Egrave /Iacute /Icircumflex /Idieresis
  76.   /Igrave /Ntilde /Oacute /Ocircumflex /Odieresis
  77.   /Ograve /Otilde /Scaron /Uacute /Ucircumflex
  78.   /Udieresis /Ugrave /Yacute /Ydieresis /Zcaron
  79. % 200
  80.   /aacute /acircumflex /adieresis /agrave /aring
  81.   /atilde /ccedilla /eacute /ecircumflex /edieresis
  82.   /egrave /iacute /icircumflex /idieresis /igrave
  83.   /ntilde /oacute /ocircumflex /odieresis /ograve
  84.   /otilde /scaron /uacute /ucircumflex /udieresis
  85.   /ugrave /yacute /ydieresis /zcaron /exclamsmall
  86.   /Hungarumlautsmall /dollaroldstyle /dollarsuperior /ampersandsmall /Acutesmall
  87.   /parenleftsuperior /parenrightsuperior /twodotenleader /onedotenleader /zerooldstyle
  88.   /oneoldstyle /twooldstyle /threeoldstyle /fouroldstyle /fiveoldstyle
  89.   /sixoldstyle /sevenoldstyle /eightoldstyle /nineoldstyle /commasuperior
  90. % 250
  91.   /threequartersemdash /periodsuperior /questionsmall /asuperior /bsuperior
  92.   /centsuperior /dsuperior /esuperior /isuperior /lsuperior
  93.   /msuperior /nsuperior /osuperior /rsuperior /ssuperior
  94.   /tsuperior /ff /ffi /ffl /parenleftinferior
  95.   /parenrightinferior /Circumflexsmall /hyphensuperior /Gravesmall /Asmall
  96.   /Bsmall /Csmall /Dsmall /Esmall /Fsmall
  97.   /Gsmall /Hsmall /Ismall /Jsmall /Ksmall
  98.   /Lsmall /Msmall /Nsmall /Osmall /Psmall
  99.   /Qsmall /Rsmall /Ssmall /Tsmall /Usmall
  100.   /Vsmall /Wsmall /Xsmall /Ysmall /Zsmall
  101. % 300
  102.   /colonmonetary /onefitted /rupiah /Tildesmall /exclamdownsmall
  103.   /centoldstyle /Lslashsmall /Scaronsmall /Zcaronsmall /Dieresissmall
  104.   /Brevesmall /Caronsmall /Dotaccentsmall /Macronsmall /figuredash
  105.   /hypheninferior /Ogoneksmall /Ringsmall /Cedillasmall /questiondownsmall
  106.   /oneeighth /threeeighths /fiveeighths /seveneighths /onethird
  107.   /twothirds /zerosuperior /foursuperior /fivesuperior /sixsuperior
  108.   /sevensuperior /eightsuperior /ninesuperior /zeroinferior /oneinferior
  109.   /twoinferior /threeinferior /fourinferior /fiveinferior /sixinferior
  110.   /seveninferior /eightinferior /nineinferior /centinferior /dollarinferior
  111.   /periodinferior /commainferior /Agravesmall /Aacutesmall /Acircumflexsmall
  112. % 350
  113.   /Atildesmall /Adieresissmall /Aringsmall /AEsmall /Ccedillasmall
  114.   /Egravesmall /Eacutesmall /Ecircumflexsmall /Edieresissmall /Igravesmall
  115.   /Iacutesmall /Icircumflexsmall /Idieresissmall /Ethsmall /Ntildesmall
  116.   /Ogravesmall /Oacutesmall /Ocircumflexsmall /Otildesmall /Odieresissmall
  117.   /OEsmall /Oslashsmall /Ugravesmall /Uacutesmall /Ucircumflexsmall
  118.   /Udieresissmall /Yacutesmall /Thornsmall /Ydieresissmall (001.000)
  119.   (001.001) (001.002) (001.003) /Black /Bold
  120.   /Book /Light /Medium /Regular /Roman
  121.   /Semibold
  122. .packtomark def
  123.  
  124. % ---------------- Standard encodings ---------------- %
  125.  
  126. /StandardEncodings [
  127.  
  128. % StandardEncoding
  129. mark
  130.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  131.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  132.   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
  133.   17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
  134.   33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48
  135.   49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64
  136.   65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80
  137.   81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 0
  138.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  139.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  140.   0 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110
  141.   0 111 112 113 114 0 115 116 117 118 119 120 121 122 0 123
  142.   0 124 125 126 127 128 129 130 131 0 132 133 0 134 135 136
  143.   137 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  144.   0 138 0 139 0 0 0 0 140 141 142 143 0 0 0 0
  145.   0 144 0 0 0 145 0 0 146 147 148 149 0 0 0 0
  146. .packtomark
  147.  
  148. % ExpertEncoding
  149. mark
  150.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  151.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  152.   1 229 230 0 231 232 233 234 235 236 237 238 13 14 15 99
  153.   239 240 241 242 243 244 245 246 247 248 27 28 249 250 251 252
  154.   0 253 254 255 256 257 0 0 0 258 0 0 259 260 261 262
  155.   0 0 263 264 265 0 266 109 110 267 268 269 0 270 271 272
  156.   273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288
  157.   289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 0
  158.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  159.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  160.   0 304 305 306 0 0 307 308 309 310 311 0 312 0 0 313
  161.   0 0 314 315 0 0 316 317 318 0 0 0 158 155 163 319
  162.   320 321 322 323 324 325 0 0 326 150 164 169 327 328 329 330
  163.   331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346
  164.   347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362
  165.   363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378
  166. .packtomark
  167.  
  168. ] readonly def
  169.  
  170. % ---------------- Standard Charsets ---------------- %
  171.  
  172. % We include an explicit 0 at the beginning of each charset.
  173.  
  174. /StandardCharsets [
  175.  
  176. % ISOAdobe
  177. mark
  178.   0
  179.   1 1 228 { } for
  180. .packtomark
  181.  
  182. % Expert
  183. mark
  184.   0
  185.   1 229 230 231 232 233 234 235 236 237 238 13 14 15 99 239
  186.   240 241 242 243 244 245 246 247 248 27 28 249 250 251 252 253
  187.   254 255 256 257 258 259 260 261 262 263 264 265 266 109 110 267
  188.   268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283
  189.   284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299
  190.   300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315
  191.   316 317 318 158 155 163 319 320 321 322 323 324 325 326 150 164
  192.   169 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341
  193.   342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357
  194.   358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373
  195.   374 375 376 377 378
  196. .packtomark
  197.  
  198. % ExpertSubset
  199. mark
  200.   0
  201.   1 231 232 235 236 237 238 13 14 15 99 239 240 241 242 243
  202.   244 245 246 247 248 27 28 249 250 251 253 254 255 256 257 258
  203.   259 260 261 262 263 264 265 266 109 110 267 268 269 270 272 300
  204.   301 302 305 314 315 158 155 163 320 321 322 323 324 325 326 150
  205.   164 169 327 328 329 330 331 332 333 334 335 336 337 338 339 340
  206.   341 342 343 344 345 346
  207. .packtomark
  208.  
  209. ] readonly def
  210.  
  211. % ---------------- Font loading ---------------- %
  212.  
  213. % ------ Utilities ------ %
  214.  
  215. /advance {    % <n> advance -
  216.   f cff eq { /pos pos 3 -1 roll add store } { pop } ifelse
  217. } def
  218. /next {        % - next <byte>
  219.   f read {
  220.     1 advance
  221.     DEBUG { (  ) print dup = } if
  222.   } if
  223. } def
  224. /nextstring {    % <length> nextstring <string>
  225.   dup 0 eq {
  226.     pop ()
  227.   } {
  228.     string f exch readstring pop dup length advance
  229.     DEBUG { (  ) print dup == } if
  230.   } ifelse
  231. } def
  232. /card8        % - card8 <card8>
  233.  /next load
  234. def
  235. /card16 {    % - card16 <card16>
  236.   card8 8 bitshift card8 add
  237. } def
  238. /offset {    % <offsize> offset <offset>
  239.   0 exch { 8 bitshift next add } repeat
  240. } def
  241. /sid        % - <sid> sid
  242.   /card16 load
  243. def
  244. /Index {    % - Index <array>
  245.   mark card16 dup 0 ne {
  246.     1 exch next dup offset pop exch {
  247.       dup offset dup 4 -1 roll sub 3 1 roll exch
  248.     } repeat pop
  249.   } if pop .packtomark
  250.   [ exch { nextstring } forall ] readonly
  251. } def
  252. /tokens {    % - tokens <num1> ... <op#> (op# = 12 means EOF)
  253.   {
  254.     f read not { 12 exit } if
  255.     DEBUG { (..) print dup = } if
  256.     1 advance
  257.     dup 12 eq { pop next 32 add exit } if
  258.     dup 28 lt { exit } if
  259.     dup 32 lt {
  260.       28 sub {
  261.     { card16 32768 xor 32768 sub }
  262.     { 4 offset dup 16#7fffffff gt { -1 32 bitshift add } if }
  263.     { tokenreal }
  264.     { 31 exit }
  265.       } exch get exec
  266.     } {
  267.       dup 247 lt {
  268.     139 sub
  269.       } {
  270.     247 sub {
  271.       { next 108 add }
  272.       { next 364 add }
  273.       { next 620 add }
  274.       { next 876 add }
  275.       { next 108 add neg }
  276.       { next 364 add neg }
  277.       { next 620 add neg }
  278.       { next 876 add neg }
  279.       % 255 is deliberately omitted and will cause a rangecheck
  280.     } exch get exec
  281.       } ifelse
  282.     } ifelse
  283.   } loop
  284. } def
  285. /tokenbuf 100 string def
  286. /tokenput {    % <index> <char> tokenput <index+1>
  287.   tokenbuf 2 index 3 -1 roll put 1 add
  288. } def
  289. /tokenrealarray [
  290.  (0123456789.E) { } forall
  291.  [(E) 0 get /tokenput cvx (-) 0 get] cvx
  292.  null        % will give an error
  293.  (-) 0 get
  294.  { exit }
  295. ] readonly def
  296. /tokenreal {    % - tokenreal <float>
  297.   0 {
  298.     next exch 1 index -4 bitshift tokenrealarray exch get exec tokenput
  299.         % We must leave the byte on the stack temporarily so that
  300.         % the exit will see a consistent stack state.
  301.     1 index 15 and tokenrealarray exch get exec tokenput exch pop
  302.   } loop
  303.   tokenbuf 0 3 -1 roll getinterval cvr exch pop
  304. } def
  305. /Dict {        % <opsdict> Dict -
  306.   /opdict exch store {
  307.     mark tokens
  308.     DEBUG { (tokens: ) print ] dup === mark exch aload pop } if
  309.     opdict exch .knownget { exec } if cleartomark
  310.   } loop cleartomark
  311. } def
  312. /idstring {    % <sid> idstring <string|name>
  313.   dup 391 lt { StandardStrings } { 391 sub strings } ifelse exch get
  314. } def
  315. /idname {    % <sid> idname <name>
  316.   idstring dup type /nametype ne { cvn } if
  317. } def
  318. /subfilefilter {    % <file> <length> subfilefilter <filter>
  319.     % SubFileDecode interprets a length of 0 as infinite.
  320.   dup 0 le { pop pop () 0 } if () /SubFileDecode filter
  321. } def
  322.  
  323. % ------ Top dictionary ------ %
  324.  
  325. /offput {    % <offset> <proc> offput -
  326.   DEBUG { (queued: ) print 1 index =only ( ) print dup === } if
  327.   currentdict exch aload length 1 add packedarray cvx
  328.   offsets 3 1 roll put
  329. } def
  330. /queueput {    % <font> <proc> queueput -
  331.   16#7fffffff offsets { pop .min } forall
  332.   pos sub nextstring
  333.   3 1 roll aload length 2 add packedarray cvx
  334.   [ queued aload pop counttomark 2 add -1 roll ]
  335.   /queued exch store
  336. } def
  337. /xxput {    % <value> <key> <dict> xxput -
  338.   3 1 roll exch put
  339. } def
  340. /putfi {    % <value> <key> putfi -
  341.   FontInfo xxput
  342. } def
  343. /xdef {        % <value> <key> xdef -
  344.   exch def
  345. } def
  346. /topdictops mark
  347.   12 { exit }
  348.   0 { idstring /version putfi }
  349.   1 { idstring /Notice putfi }
  350.   32 { idstring /Copyright putfi }
  351.   2 { idstring /FullName putfi }
  352.   3 { idstring /FamilyName putfi }
  353.   4 { idstring /Weight putfi }
  354.   33 { 0 ne /isFixedPitch putfi }
  355.   34 { /ItalicAngle putfi }
  356.   35 { /UnderlinePosition putfi }
  357.   36 { /UnderlineThickness putfi }
  358.   37 { /PaintType xdef }
  359.   38 { /FontType xdef }        % actually CharstringType
  360.   39 { counttomark array astore /FontMatrix xdef }
  361.   13 { /UniqueID xdef }
  362.   5 { counttomark array astore /FontBBox xdef }
  363.   40 { /StrokeWidth xdef }
  364.   14 { counttomark array astore /XUID xdef }
  365.   15 {
  366.     dup StandardCharsets length lt {
  367.       StandardCharsets exch get /charset xdef
  368.     } {
  369.       { queuecharset } offput
  370.     } ifelse
  371.   }
  372.   16 {
  373.     dup StandardEncodings length lt {
  374.       /Encoding xdef
  375.     } {
  376.       { queueEncoding } offput
  377.     } ifelse
  378.   }
  379.   17 { { readCharStrings } offput }
  380.   18 { exch /readPrivate cvx 2 packedarray offput }
  381. .dicttomark readonly def
  382.  
  383. /readCharStrings {    % <font> readCharStrings -
  384.   /CharStringArray Index put
  385. } def
  386.  
  387. % ------ Charsets and encodings ------ %
  388.  
  389. % Note: formats 1 and 2 can overflow the operand stack.
  390. % We'll fix this if it ever becomes necessary.
  391. /charsetformats [
  392. { [ 0 CharStringArray length 1 sub { sid } repeat ]
  393. }
  394. { [ 0 CharStringArray length 1 sub {
  395.     dup 0 eq { pop exit } if
  396.     sid card8 1 add 2 index .min { exch 1 sub 1 index 1 add } repeat pop
  397.   } loop ]
  398. }
  399. { [ 0 CharStringArray length 1 sub {
  400.     dup 0 eq { pop exit } if
  401.     sid card16 1 add 2 index .min { exch 1 sub 1 index 1 add } repeat pop
  402.   } loop ]
  403. }
  404. ] readonly def
  405. /queuecharset {        % <font> queuecharset -
  406.   { readcharset } queueput
  407. } def
  408. /readcharset {        % <data> <font> readcharset -
  409.   begin 0 () /SubFileDecode filter /f exch store
  410.   charsetformats next get exec /charset exch def end
  411. } def
  412.  
  413. /encodingformats [
  414. { 1 1 next { next exch Encoding 3 1 roll put } for
  415. }
  416. { 1 next {
  417.     next next 1 add {
  418.             % Stack: gid code
  419.       Encoding 1 index 3 index put
  420.       exch 1 add exch 1 add
  421.     } repeat pop
  422.   } repeat pop
  423. }
  424. ] readonly def
  425. /queueEncoding {    % <font> queueEncoding -
  426.   { readEncoding } queueput
  427. } def
  428. /readEncoding {        % <data> <font> readEncoding -
  429.   begin 0 () /SubFileDecode filter /f exch store
  430.   /Encoding [ 256 { /.notdef } repeat ] def
  431.   next encodingformats 1 index 127 and get exec
  432.   128 ge {
  433.             % Read supplementary encodings.
  434.     next {
  435.       Encoding next sid idname put
  436.     } repeat
  437.   } if end
  438. } def
  439.  
  440. % ------ Private dictionary ------ %
  441.  
  442. /deltarray {        % -mark- <num1> ... deltarray <num1'> ...
  443.   0 counttomark 1 sub { counttomark -1 roll add dup } repeat pop
  444.   counttomark array astore
  445. } def
  446.  
  447. /privatedictops mark
  448.   12 { exit }
  449.   6 { deltarray /BlueValues xdef }
  450.   7 { deltarray /OtherBlues xdef }
  451.   8 { deltarray /FamilyBlues xdef }
  452.   9 { deltarray /FamilyOtherBlues xdef }
  453.   41 { /BlueScale xdef }
  454.   42 { /BlueShift xdef }
  455.   43 { /BlueFuzz xdef }
  456.   10 { 1 array astore /StdHW xdef }
  457.   11 { 1 array astore /StdVW xdef }
  458.   44 { deltarray /StemSnapH xdef }
  459.   45 { deltarray /StemSnapV xdef }
  460.   46 { 0 ne /ForceBold xdef }
  461.   47 { /ForceBoldThreshold xdef }
  462.   48 { /lenIV xdef }
  463.   49 { /LanguageGroup xdef }
  464.   50 { /ExpansionFactor xdef }
  465.   51 { /initialRandomSeed xdef }
  466.   19 { { readSubrs } offput }
  467.   20 { /defaultWidthX xdef }
  468.   21 { /nominalWidthX xdef }
  469.     % Multiple Master fonts only
  470.   59 { /NDV xdef }
  471.   60 { /CDV xdef }
  472.   61 { /lenBuildCharArray xdef }
  473. .dicttomark readonly def
  474.  
  475. /readPrivate {        % <font> <size> readPrivate -
  476.   exch 1 index f exch subfilefilter /f exch def
  477.   /Private get begin //privatedictops Dict end
  478.   /f cff def advance
  479. } def
  480.  
  481. % ------ Main program ------ %
  482.  
  483. % We need to pass the file as a parameter for the sake of the PDF
  484. % interpreter.
  485. /StartData {        % <resname> <nbytes> StartData -
  486.   currentfile exch subfilefilter ReadData
  487. } def
  488. /ReadData {        % <resname> <file> ReadData -
  489.  
  490.     % Initialize.
  491.  
  492.   30 dict begin
  493.   /cff exch def
  494.   /pos 0 def
  495.   /resname exch cvlit def
  496.  
  497.     % Read the header.
  498.  
  499.   /f cff def
  500.   /vmajor next def
  501.   /vminor next def
  502.   /hdrsize next def
  503.   /aoffsize next def
  504.  
  505.     % Read the Indexes.
  506.  
  507.   /names Index def
  508.   /topdicts Index def
  509.   /strings Index def
  510.   /gsubrs Index def
  511.  
  512.     % Read the top Dicts.
  513.  
  514.   /offsets 50 dict def
  515.   /queued [] def
  516.   /opdict null def        % reserve a slot
  517.   /fonts [ topdicts {
  518.     0 () /SubFileDecode filter /f exch def
  519.     40 dict begin
  520.         % Preload defaults that differ from PostScript defaults,
  521.         % or that are required.
  522.       /FontType 2 def
  523.       /PaintType 0 def
  524.       /FontMatrix [0.001 0 0 0.001 0 0] def
  525.       /charset StandardCharsets 0 get def
  526.       /Encoding 0 def
  527.       /FontInfo 10 dict
  528.     dup /UnderlinePosition -100 put
  529.     dup /UnderlineThickness 50 put
  530.       def
  531.       /Private 20 dict
  532.     gsubrs length 0 ne { dup /GlobalSubrs gsubrs put } if
  533.       def
  534.       //topdictops Dict
  535.     currentdict end
  536.   } forall ] def
  537.  
  538.     % Read other tables with queued offsets.
  539.  
  540.   DEBUG { (offsets: ) print [ offsets { pop } forall ] == } if
  541.   { /f cff def
  542.     DEBUG { (pos=) print pos = } if
  543.     offsets pos 2 copy .knownget not { pop pop exit } if
  544.     3 1 roll undef exec
  545.   } loop
  546.   offsets length 0 ne {
  547.     (Error: missing tables at ) print [ offsets { pop } forall ] ==
  548.     (Current position is ) print pos ==
  549.     flush stop
  550.   } if
  551.  
  552.     % Process out-of-order tables.
  553.  
  554.   DEBUG { queued length =only ( queued) = flush } if
  555.   queued { exec } forall
  556.  
  557.     % Update Encoding and CharStrings.
  558.  
  559.   fonts {
  560.     begin
  561.         % Construct the real Encoding.
  562.         % The value of Encoding is either a number, for predefined
  563.         % encodings, or an array of mixed GIDs and names.
  564.       /Encoding mark Encoding
  565.       DEBUG { (Encoding: ) print dup === flush } if
  566.       dup type /integertype eq {
  567.     StandardEncodings exch get { idname } forall
  568.       } {
  569.     {
  570.       dup type /integertype eq { charset exch get idname } if
  571.         } forall
  572.       } ifelse .packtomark def
  573.         % Construct the CharStrings.
  574.         % Note that they may only correspond to an initial
  575.         % subset of the charset.
  576.       /CharStrings charset length CharStringArray length .min dict def
  577.       DEBUG {
  578.     charset length =only ( charset ) print
  579.     CharStringArray length =only ( CharStringArray) =
  580.     charset == flush
  581.       } if
  582.       0 1 CharStrings maxlength 1 sub {
  583.     dup CharStringArray exch get
  584.     exch charset exch get idstring
  585.     CharStrings xxput
  586.       } for
  587.         % Remove unwanted entries.
  588.       currentdict /charset undef
  589.       currentdict /CharStringArray undef
  590.     end
  591.   } forall
  592.  
  593.     % Wrap up.
  594.  
  595.   resname mark 0 1 fonts length 1 sub {
  596.     DEBUG { dup =only ( ) print flush } if
  597.     dup names exch get
  598.     DEBUG { dup == flush } if
  599.     exch fonts exch get
  600.     dup /FontName 3 index put
  601.     1 index exch definefont
  602.   } for .dicttomark
  603.   end        % temporary dict
  604.   end        % FontSetInit ProcSet
  605.   /FontSet defineresource pop
  606.  
  607. } bind def
  608.  
  609. % ---------------- Resource category definition ---------------- %
  610.  
  611. currentdict end readonly
  612.  
  613. languagelevel exch 2 .setlanguagelevel
  614.  
  615. /FontSet /Generic /Category findresource dup length dict .copydict
  616. /Category defineresource pop
  617.  
  618. /FontSetInit exch /ProcSet defineresource pop
  619.  
  620. .setlanguagelevel
  621.