home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 October / Chip_2002-10_cd1.bin / zkuste / pdf / download / gs704w32.exe / gs7.04 / lib / gs_cff.ps < prev    next >
Encoding:
Text File  |  2002-01-31  |  21.7 KB  |  760 lines
  1. %    Copyright (C) 1997, 1998, 1999, 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of AFPL Ghostscript.
  4. % 
  5. % AFPL Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author or
  6. % distributor accepts any responsibility for the consequences of using it, or
  7. % for whether it serves any particular purpose or works at all, unless he or
  8. % she says so in writing.  Refer to the Aladdin Free Public License (the
  9. % "License") for full details.
  10. % 
  11. % Every copy of AFPL Ghostscript must include a copy of the License, normally
  12. % in a plain ASCII text file named PUBLIC.  The License grants you the right
  13. % to copy, modify and redistribute AFPL Ghostscript, but only under certain
  14. % conditions described in the License.  Among other things, the License
  15. % requires that the copyright notice and this notice be preserved on all
  16. % copies.
  17.  
  18. % $Id: gs_cff.ps,v 1.10 2001/10/12 08:52:14 igorm Exp $
  19. % Loader for CFF (compressed) fonts, including OpenType CFFs.
  20. % The following are not implemented yet:
  21. %    Deleted entries in the Name Index
  22. %    Embedded PostScript
  23. %    Multiple Master fonts
  24. %    Chameleon fonts
  25. %    Synthetic fonts
  26.  
  27. % ---------------- Font loading machinery ---------------- %
  28.  
  29. % Augment the FONTPATH machinery so it recognizes OpenType CFF font sets.
  30.  
  31. /.scanfontheaders where {
  32.   pop /.scanfontheaders [
  33.    .scanfontheaders aload pop (OTTO*)
  34.   ] def
  35. } if
  36.  
  37. % Load a font file that might be an OpenType CFF font set.
  38.  
  39. % <file> .loadfontfile -
  40. /.loadnonottofontfile /.loadfontfile load def
  41. /.loadfontfile {
  42.   dup 4 string .peekstring pop (OTTO) eq {
  43.         % If this is a font at all, it's an OpenType CFF font set.
  44.     .loadottofontfile
  45.   } {
  46.         % Not a TrueType font.
  47.     .loadnonottofontfile
  48.   } ifelse
  49. } bind def
  50.  
  51. % <file> .loadottofontfile -
  52. /.loadottofontfile {
  53.   /FontSetInit /ProcSet findresource begin
  54.   2 dict begin
  55.   /f exch def /cff null def
  56.   card32 pop card16 6 { next pop } repeat dup {
  57.         % Stack: numtables tablesleft
  58.     dup 0 eq {
  59.       pop pop /.loadottofontfile cvx /invalidfont signalerror
  60.     } if
  61.     f 4 string readstring pop (CFF ) eq { sub exit } if
  62.     1 sub
  63.   } loop
  64.         % Stack: tablesread
  65.   card32 pop card32 card32
  66.         % Stack: tablesread start length
  67.   exch 3 -1 roll 1 add 16 mul 12 add sub
  68.   f exch subfilefilter flushfile    % skip to start
  69.   f exch subfilefilter end
  70.     % Use a random FontSet resource name.  ****** WRONG ******
  71.   realtime rand xor =string cvs exch false
  72.   ReadData
  73. } bind def
  74.  
  75. 30 dict begin
  76.  
  77. % ---------------- Standard strings (actually names) ---------------- %
  78.  
  79. /StandardStrings mark
  80.     % The initial StandardStrings that that denote characters are
  81.     % defined as a pseudo-Encoding.
  82. % 0
  83.   /CFFStandardStrings .findencoding aload pop
  84. % 379
  85.   (001.000)
  86. % 380
  87.   (001.001) (001.002) (001.003) /Black /Bold
  88.   /Book /Light /Medium /Regular /Roman
  89.   /Semibold
  90. .packtomark def
  91.  
  92. % ---------------- Standard encodings ---------------- %
  93.  
  94. /StandardEncodings [
  95.  
  96. % StandardEncoding
  97. mark
  98.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  99.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  100.   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
  101.   17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
  102.   33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48
  103.   49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64
  104.   65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80
  105.   81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 0
  106.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  107.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  108.   0 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110
  109.   0 111 112 113 114 0 115 116 117 118 119 120 121 122 0 123
  110.   0 124 125 126 127 128 129 130 131 0 132 133 0 134 135 136
  111.   137 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  112.   0 138 0 139 0 0 0 0 140 141 142 143 0 0 0 0
  113.   0 144 0 0 0 145 0 0 146 147 148 149 0 0 0 0
  114. .packtomark
  115.  
  116. % ExpertEncoding
  117. mark
  118.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  119.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  120.   1 229 230 0 231 232 233 234 235 236 237 238 13 14 15 99
  121.   239 240 241 242 243 244 245 246 247 248 27 28 249 250 251 252
  122.   0 253 254 255 256 257 0 0 0 258 0 0 259 260 261 262
  123.   0 0 263 264 265 0 266 109 110 267 268 269 0 270 271 272
  124.   273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288
  125.   289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 0
  126.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  127.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  128.   0 304 305 306 0 0 307 308 309 310 311 0 312 0 0 313
  129.   0 0 314 315 0 0 316 317 318 0 0 0 158 155 163 319
  130.   320 321 322 323 324 325 0 0 326 150 164 169 327 328 329 330
  131.   331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346
  132.   347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362
  133.   363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378
  134. .packtomark
  135.  
  136. ] readonly def
  137.  
  138. % ---------------- Standard Charsets ---------------- %
  139.  
  140. % We include an explicit 0 at the beginning of each charset.
  141.  
  142. /StandardCharsets [
  143.  
  144. % ISOAdobe
  145. mark
  146.   0
  147.   1 1 228 { } for
  148. .packtomark
  149.  
  150. % Expert
  151. mark
  152.   0
  153.   1 229 230 231 232 233 234 235 236 237 238 13 14 15 99 239
  154.   240 241 242 243 244 245 246 247 248 27 28 249 250 251 252 253
  155.   254 255 256 257 258 259 260 261 262 263 264 265 266 109 110 267
  156.   268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283
  157.   284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299
  158.   300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315
  159.   316 317 318 158 155 163 319 320 321 322 323 324 325 326 150 164
  160.   169 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341
  161.   342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357
  162.   358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373
  163.   374 375 376 377 378
  164. .packtomark
  165.  
  166. % ExpertSubset
  167. mark
  168.   0
  169.   1 231 232 235 236 237 238 13 14 15 99 239 240 241 242 243
  170.   244 245 246 247 248 27 28 249 250 251 253 254 255 256 257 258
  171.   259 260 261 262 263 264 265 266 109 110 267 268 269 270 272 300
  172.   301 302 305 314 315 158 155 163 320 321 322 323 324 325 326 150
  173.   164 169 327 328 329 330 331 332 333 334 335 336 337 338 339 340
  174.   341 342 343 344 345 346
  175. .packtomark
  176.  
  177. ] readonly def
  178.  
  179. % ---------------- Font loading ---------------- %
  180.  
  181. % ------ Utilities ------ %
  182.  
  183. /advance {    % <n> advance -
  184.   f cff eq { pos add /pos exch store } { pop } ifelse
  185. } bind def
  186. /next {        % - next <byte>
  187.   f read {
  188.     1 advance
  189.     DEBUG { (  ) print dup = } if
  190.   } if
  191. } bind def
  192. /next2 {    % - next2 <byte1> <byte2>
  193.   f read {
  194.     f read {
  195.       2 advance
  196.       DEBUG { (  ) print 1 index =only (,) print dup = } if
  197.     } {
  198.       1 advance
  199.       DEBUG { (  ) print dup = } if
  200.     } ifelse
  201.   } if
  202. } bind def
  203. /nextstring {    % <length> nextstring <string>
  204.   dup 0 eq {
  205.     pop ()
  206.   } {
  207.     string f exch readstring pop dup length advance
  208.     DEBUG { (  ) print dup == } if
  209.   } ifelse
  210. } bind def
  211. /card8        % - card8 <card8>
  212.  /next load
  213. def
  214. /card16 {    % - card16 <card16>
  215.   next2 exch 8 bitshift add
  216. } bind def
  217. /card32 {    % - card32 <card32>
  218.   card16 16 bitshift card16 add
  219. } bind def
  220. /offsetprocs [
  221.   /card8 load
  222.   /card16 load
  223.   { card8 16 bitshift card16 add } bind
  224.   /card32 load
  225. ] readonly def
  226. /offsetproc {    % <offsize> offsetproc <proc>
  227.   1 sub //offsetprocs exch get
  228. } bind def
  229. /offset {    % <offsize> offset <offset>
  230.   offsetproc exec
  231. } bind def
  232. /sid        % - <sid> sid
  233.   /card16 load
  234. def
  235. /Index {    % - Index <array>
  236.   mark card16 dup 0 ne {
  237.     1 exch next offsetproc dup exec pop exch {
  238.       dup exec dup 4 -1 roll sub 3 1 roll exch
  239.     } repeat pop
  240.   } if pop .packtomark
  241.   [ exch { nextstring } forall ] readonly
  242. } bind def
  243. /tokens {    % - tokens <num1> ... <op#> (op# = 12 means EOF)
  244.   {
  245.     f read not { 12 exit } if
  246.     DEBUG { (..) print dup = } if
  247.     1 advance
  248.     dup 12 eq { pop next 32 add exit } if
  249.     dup 28 lt { exit } if
  250.     dup 32 lt {
  251.       28 sub {
  252.     { card16 32768 xor 32768 sub }
  253.     { 4 offset dup 16#7fffffff gt { -1 32 bitshift add } if }
  254.     { tokenreal }
  255.     { 31 exit }
  256.       } exch get exec
  257.     } {
  258.       dup 247 lt {
  259.     139 sub
  260.       } {
  261.     247 sub {
  262.       { next 108 add }
  263.       { next 364 add }
  264.       { next 620 add }
  265.       { next 876 add }
  266.       { next 108 add neg }
  267.       { next 364 add neg }
  268.       { next 620 add neg }
  269.       { next 876 add neg }
  270.       % 255 is deliberately omitted and will cause a rangecheck
  271.     } exch get exec
  272.       } ifelse
  273.     } ifelse
  274.   } loop
  275. } bind def
  276. /tokenbuf 100 string def
  277. /tokenput {    % <index> <char> tokenput <index+1>
  278.   tokenbuf 2 index 3 -1 roll put 1 add
  279. } bind def
  280. /tokenrealarray [
  281.  (0123456789.E) { } forall
  282.  [(E) 0 get /tokenput cvx (-) 0 get] cvx
  283.  null        % will give an error
  284.  (-) 0 get
  285.  { exit }
  286. ] readonly def
  287. /tokenreal {    % - tokenreal <float>
  288.   0 {
  289.     next exch 1 index -4 bitshift tokenrealarray exch get exec tokenput
  290.         % We must leave the byte on the stack temporarily so that
  291.         % the exit will see a consistent stack state.
  292.     1 index 15 and tokenrealarray exch get exec tokenput exch pop
  293.   } loop
  294.   tokenbuf 0 3 -1 roll getinterval cvr exch pop
  295. } bind def
  296. /Dict {        % <opsdict> Dict -
  297.   /opdict exch store {
  298.     mark tokens
  299.     DEBUG { (tokens: ) print ] dup === mark exch aload pop } if
  300.     opdict exch .knownget { exec } if cleartomark
  301.   } loop cleartomark
  302. } bind def
  303. /idstring {    % <sid> idstring <string|name>
  304.   dup 391 lt { //StandardStrings } { 391 sub strings } ifelse exch get
  305. } bind def
  306. /idname {    % <sid> idname <name>
  307.   idstring dup type /nametype ne { cvn } if
  308. } bind def
  309. /subfilefilter {    % <file> <length> subfilefilter <filter>
  310.     % SubFileDecode interprets a length of 0 as infinite.
  311.   dup 0 le { pop pop () 0 } if () /SubFileDecode filter
  312. } bind def
  313.  
  314. % ------ Top dictionary ------ %
  315.  
  316. /offput {    % <offset> <proc> offput -
  317.   DEBUG { (queued: ) print 1 index =only ( ) print dup === } if
  318.   currentdict exch aload length 1 add packedarray cvx
  319.   offsets 3 1 roll put
  320. } bind def
  321. /queueput {    % <font> <proc> queueput -
  322.   16#7fffffff offsets { pop .min } forall
  323.   pos sub nextstring
  324.   3 1 roll aload length 2 add packedarray cvx
  325.   [ queued aload pop counttomark 2 add -1 roll ]
  326.   /queued exch store
  327. } bind def
  328. /xxput {    % <value> <key> <dict> xxput -
  329.   3 1 roll exch put
  330. } bind def
  331. /putfi {    % <value> <key> putfi -
  332.   FontInfo xxput
  333. } bind def
  334. /xdef {        % <value> <key> xdef -
  335.   exch def
  336. } bind def
  337. /topdictops mark
  338.   12 { exit }
  339.   0 { idstring /version putfi }
  340.   1 { idstring /Notice putfi }
  341.   32 { idstring /Copyright putfi }
  342.   2 { idstring /FullName putfi }
  343.   3 { idstring /FamilyName putfi }
  344.   4 { idstring /Weight putfi }
  345.   33 { 0 ne /isFixedPitch putfi }
  346.   34 { /ItalicAngle putfi }
  347.   35 { /UnderlinePosition putfi }
  348.   36 { /UnderlineThickness putfi }
  349.   37 { /PaintType xdef }
  350.   38 { /FontType xdef }        % actually CharstringType
  351.   39 { counttomark array astore /FontMatrix xdef }
  352.   13 { /UniqueID xdef }
  353.   5 { counttomark array astore /FontBBox xdef }
  354.   40 { /StrokeWidth xdef }
  355.   14 { counttomark array astore /XUID xdef }
  356.   15 {
  357.     dup StandardCharsets length lt {
  358.       StandardCharsets exch get /charset xdef
  359.     } {
  360.       { queuecharset } offput
  361.     } ifelse
  362.   }
  363.   16 {
  364.     dup StandardEncodings length lt {
  365.       /Encoding xdef
  366.     } {
  367.       { queueEncoding } offput
  368.     } ifelse
  369.   }
  370.   17 { { readCharStrings } offput }
  371.   18 { exch /readPrivate cvx 2 packedarray offput }
  372.     % CIDFont operators
  373.   62 {        % ROS, must be first in a CIDFont
  374.     currentdict /FontType undef
  375.     currentdict /Encoding undef
  376.     currentdict /FontMatrix undef
  377.     /CIDFontVersion 0 def
  378.     /CIDFontRevision 0 def
  379.     /CIDFontType 0 def
  380.     /CIDCount 8720 def % Default value defined in CFF spec.
  381.     3 dict begin
  382.     /Supplement xdef
  383.     idstring /Ordering xdef
  384.     idstring /Registry xdef
  385.     /CIDSystemInfo currentdict end def
  386.   }
  387.   63 { /CIDFontVersion xdef }
  388.   64 { /CIDFontRevision xdef }
  389.   65 { /CIDFontType xdef }
  390.   66 { /CIDCount xdef }
  391.   67 { /UIDBase xdef }
  392.   68 { { readFDArray } offput }
  393.   69 { { readFDSelect } offput }
  394.     % This operator only appears in a FDArray element.
  395.   70 { idstring /FontName exch def }
  396. .dicttomark readonly def
  397.  
  398. % readcharset and readFDSelect may require the length of CharStringArray,
  399. % but these structures may occur in the file before the CharStrings.
  400. % If that happens, use a hack: assume that all the data up to the next
  401. % queued read should be read.
  402.  
  403. /charstringcount {    % <font> charstringcount <count> true
  404.             % <font> charstringcount <length> false
  405.   /CharStringArray .knownget {
  406.     length true
  407.   } {
  408.     % Hack: look for the next queued read.
  409.     16#7fffffff offsets { pop .min } forall
  410.     pos sub false
  411.   } ifelse
  412. } bind def
  413.  
  414. /readCharStrings {    % <font> readCharStrings -
  415.   /CharStringArray Index put
  416. } bind def
  417.  
  418. % ------ Charsets and encodings ------ %
  419.  
  420. % Note: formats 1 and 2 can overflow the operand stack.
  421. % We'll fix this if it ever becomes necessary.
  422. /charsetcount {
  423.   charstringcount { 1 sub } { 2 idiv } ifelse
  424. } bind def
  425. /charsetformats [
  426. { [ 0 3 -1 roll charsetcount { sid } repeat ]
  427. } bind
  428. { [ 0 3 -1 roll charsetcount {
  429.     dup 0 eq { pop exit } if
  430.     sid card8 1 add 2 index .min { exch 1 sub 1 index 1 add } repeat pop
  431.   } loop ]
  432. } bind
  433. { [ 0 3 -1 roll charsetcount {
  434.     dup 0 eq { pop exit } if
  435.     sid card16 1 add 2 index .min { exch 1 sub 1 index 1 add } repeat pop
  436.   } loop ]
  437. } bind
  438. ] readonly def
  439. /queuecharset {        % <font> queuecharset -
  440.   { readcharset } queueput
  441. } bind def
  442. /readcharset {        % <data> <font> readcharset -
  443.   begin 0 () /SubFileDecode filter /f exch store
  444.   charsetformats next get currentdict exch exec /charset exch def end
  445. } bind def
  446.  
  447. /encodingformats [
  448. { 1 1 next { next exch Encoding 3 1 roll put } for
  449. } bind
  450. { 1 next {
  451.     next next 1 add {
  452.             % Stack: gid code
  453.       Encoding 1 index 3 index put
  454.       exch 1 add exch 1 add
  455.     } repeat pop
  456.   } repeat pop
  457. } bind
  458. ] readonly def
  459. /queueEncoding {    % <font> queueEncoding -
  460.   { readEncoding } queueput
  461. } bind def
  462. /readEncoding {        % <data> <font> readEncoding -
  463.   begin 0 () /SubFileDecode filter /f exch store
  464.   /Encoding [ 256 { /.notdef } repeat ] def
  465.   next encodingformats 1 index 127 and get exec
  466.   128 ge {
  467.             % Read supplementary encodings.
  468.     next {
  469.       Encoding next sid idname put
  470.     } repeat
  471.   } if end
  472. } bind def
  473.  
  474. % ------ FDArray and FDSelect ------ %
  475.  
  476. /readFDArray {        % <font> readFDArray -
  477.   Index exch
  478.   2 dict begin /f null def begin
  479.   [ exch {
  480.     dup length subfilefilter /f exch store
  481.     10 dict begin
  482.     /FontType 2 def
  483.     /PaintType 0 def
  484.     /FontMatrix [0.001 0 0 0.001 0 0] def
  485.     /Private 20 dict def
  486.     //topdictops Dict currentdict end
  487.   } forall ] /FDArray xdef end end
  488. } bind def
  489.  
  490. % Note: this implementation can overflow the operand stack.
  491. % We'll fix this if it ever becomes necessary.
  492. /fdselectformats [
  493. { [ exch charstringcount pop { card8 } repeat ] } bind
  494. { /FDSelect cvx /invalidfont signalerror } bind
  495. dup
  496. { pop [ card16 card16 exch {
  497.         % Stack: previndex
  498.     card8 card16 dup 4 1 roll 3 -1 roll sub 1 sub {
  499.       exch 1 index
  500.     } repeat exch
  501.   } repeat pop ]
  502. } bind
  503. ] readonly def
  504.  
  505. /readFDSelect {        % <font> readFDSelect -
  506.   begin fdselectformats next get currentdict exch exec /FDSelect exch def end
  507. } bind def
  508.  
  509.  
  510. % ------ Private dictionary ------ %
  511.  
  512. /deltarray {        % -mark- <num1> ... deltarray <num1'> ...
  513.   0 counttomark 1 sub { counttomark -1 roll add dup } repeat pop
  514.   counttomark array astore
  515. } bind def
  516.  
  517. /privatedictops mark
  518.   12 { exit }
  519.   6 { deltarray /BlueValues xdef }
  520.   7 { deltarray /OtherBlues xdef }
  521.   8 { deltarray /FamilyBlues xdef }
  522.   9 { deltarray /FamilyOtherBlues xdef }
  523.   41 { /BlueScale xdef }
  524.   42 { /BlueShift xdef }
  525.   43 { /BlueFuzz xdef }
  526.   10 { 1 array astore /StdHW xdef }
  527.   11 { 1 array astore /StdVW xdef }
  528.   44 { deltarray /StemSnapH xdef }
  529.   45 { deltarray /StemSnapV xdef }
  530.   46 { 0 ne /ForceBold xdef }
  531.   47 { /ForceBoldThreshold xdef }
  532.   48 { /lenIV xdef }
  533.   49 { /LanguageGroup xdef }
  534.   50 { /ExpansionFactor xdef }
  535.   51 { /initialRandomSeed xdef }
  536.   19 { PrivateStart add { readSubrs } offput }
  537.   20 { /defaultWidthX xdef }
  538.   21 { /nominalWidthX xdef }
  539.     % Multiple Master fonts only
  540.   59 { /NDV xdef }
  541.   60 { /CDV xdef }
  542.   61 { /lenBuildCharArray xdef }
  543. .dicttomark readonly def
  544.  
  545. /readPrivate {        % <font> <size> readPrivate -
  546.   2 dict begin
  547.   /PrivateStart pos def
  548.   f 3 1 roll exch 1 index f exch subfilefilter /f exch store
  549.   dup /FontType get exch
  550.   /Private get begin
  551.         % Default lenIV to -1 even for Type 1 CharStrings.
  552.   2 ne { /lenIV -1 def } if
  553.   //privatedictops Dict end
  554.   exch /f exch store advance
  555.   end
  556. } bind def
  557.  
  558. /readSubrs {        % <font> readSubrs -
  559.   /Subrs Index put
  560. } bind def
  561.  
  562. % ------ Main program ------ %
  563.  
  564. % Clean up after finishing a font.
  565. /cleanupFont {        % (currentdict) cleanupFont -
  566.         % Remove unwanted entries.
  567.   currentdict /charset undef
  568.   currentdict /CharStringArray undef
  569. } bind def
  570.  
  571. % Update the Encoding and CharStrings for a real font.
  572. /finishFont {        % (currentdict) finishFont -
  573.         % Construct the real Encoding.
  574.         % The value of Encoding is either a number, for predefined
  575.         % encodings, or an array of mixed GIDs and names.
  576.   /Encoding mark Encoding
  577.   DEBUG { (Encoding: ) print dup === flush } if
  578.   dup type /integertype eq {
  579.     StandardEncodings exch get { idname } forall
  580.   } {
  581.     {
  582.       dup type /integertype eq { charset exch get idname } if
  583.     } forall
  584.   } ifelse .packtomark def
  585.         % Construct the CharStrings.
  586.         % Note that they may only correspond to an initial
  587.         % subset of the charset.
  588.   /CharStrings charset length CharStringArray length .min dict def
  589.   DEBUG {
  590.     charset length =only ( charset ) print
  591.     CharStringArray length =only ( CharStringArray) =
  592.     charset == flush
  593.   } if
  594.   0 1 CharStrings maxlength 1 sub {
  595.     dup CharStringArray exch get
  596.     exch charset exch get idstring CharStrings xxput
  597.   } for
  598.   cleanupFont
  599. } bind def
  600.  
  601. % Replace CharStrings with GlyphDirectory for a CIDFont;
  602. % Move GlobalSubrs to descendent fonts.
  603. /finishCIDFont {    % (currentdict) finishCIDFont -
  604.         % Construct the GlyphDirectory, similar to CharStrings.
  605.   /FDBytes FDArray length 1 gt { 1 } { 0 } ifelse def
  606.   /GlyphDirectory charset length CharStringArray length .min dict def
  607.   DEBUG {
  608.     charset length =only ( charset ) print
  609.     CharStringArray length =only ( CharStringArray) =
  610.     charset == flush
  611.   } if
  612.   0 1 GlyphDirectory maxlength 1 sub {
  613.     dup CharStringArray exch get
  614.         % If there is more than one FDArray entry, add the font
  615.         % index to the beginning of each charstring.
  616.     FDBytes 1 eq {
  617.       FDSelect 2 index get
  618.       1 string dup 0 4 -1 roll put exch concatstrings
  619.     } if
  620.     exch charset exch get GlyphDirectory xxput
  621.   } for
  622.  
  623.   Private /GlobalSubrs .knownget {
  624.     FDArray {
  625.     /Private get /GlobalSubrs 2 index put
  626.     } forall
  627.     pop
  628.     Private /GlobalSubrs undef
  629.   } if
  630.  
  631.         % Clean up.
  632.   currentdict /FDSelect undef
  633.   cleanupFont
  634. } bind def
  635. % We need to pass the file as a parameter for the sake of the PDF
  636. % interpreter. Also for the sake of PDF, a flag forces the font
  637. % to be defined as <resname> instead of the name embedded in the data.
  638. % This is needed for subsetted fonts; it is valid if the CFF
  639. % contains only a single font.
  640. /StartData {          % <resname> <nbytes> StartData -
  641.   currentfile exch subfilefilter false ReadData
  642. } bind def
  643. /ReadData {           % <resname> <file> <forceresname> ReadData -
  644.  
  645.     % Initialize.
  646.  
  647.   30 dict begin
  648.   /forceresname exch def
  649.   /cff exch def
  650.   /pos 0 def
  651.   /resname exch cvlit def
  652.   /DEBUG DEBUG def    % bring the binding closer
  653.  
  654.     % Read the header.
  655.  
  656.   /f cff def
  657.   /vmajor next def
  658.   /vminor next def
  659.   /hdrsize next def
  660.   /aoffsize next def
  661.  
  662.     % Read the Indexes.
  663.  
  664.   /names Index def
  665.   /topdicts Index def
  666.   /strings Index def
  667.   /gsubrs Index def
  668.  
  669.     % Read the top Dicts.
  670.  
  671.   /offsets 50 dict def
  672.   /queued [] def
  673.   /opdict null def        % reserve a slot
  674.   /fonts [ topdicts {
  675.     0 () /SubFileDecode filter /f exch def
  676.     40 dict begin
  677.         % Preload defaults that differ from PostScript defaults,
  678.         % or that are required.
  679.       /FontType 2 def
  680.       /PaintType 0 def
  681.       /FontMatrix [0.001 0 0 0.001 0 0] def
  682.       /charset StandardCharsets 0 get def
  683.       /Encoding 0 def
  684.       /FontInfo 10 dict
  685.     dup /UnderlinePosition -100 put
  686.     dup /UnderlineThickness 50 put
  687.       def
  688.       /Private 20 dict
  689.     gsubrs length 0 ne { dup /GlobalSubrs gsubrs put } if
  690.       def
  691.       //topdictops Dict
  692.     currentdict end
  693.   } forall ] def
  694.  
  695.     % Read other tables with queued offsets.
  696.  
  697.   DEBUG { (offsets: ) print [ offsets { pop } forall ] == } if
  698.   { /f cff def
  699.     DEBUG { (pos=) print pos = } if
  700.     offsets pos 2 copy .knownget not { pop pop exit } if
  701.     3 1 roll undef
  702.     DEBUG { (exec queued: ) print dup == } if
  703.     exec
  704.   } loop
  705.   offsets length 0 ne {
  706.     (Error: missing tables at ) print [ offsets { pop } forall ] ==
  707.     (Current position is ) print pos ==
  708.     flush stop
  709.   } if
  710.  
  711.     % Process out-of-order tables.
  712.  
  713.   DEBUG { queued length =only ( queued) = flush } if
  714.   queued { exec } forall
  715.  
  716.     % Update Encoding and CharStrings.
  717.  
  718.   fonts {
  719.     begin
  720.     currentdict /CIDFontType known { finishCIDFont } { finishFont } ifelse
  721.     end
  722.   } forall
  723.  
  724.     % Wrap up.
  725.  
  726.   resname mark 0 1 fonts length 1 sub {
  727.     DEBUG { dup =only ( ) print flush } if
  728.     dup names exch get
  729.     forceresname { pop resname } if
  730.     DEBUG { dup == flush } if
  731.     exch fonts exch get
  732.     dup /CIDFontType known {
  733.         % This is a CIDFont.
  734.       dup /CIDFontName 3 index put
  735.       1 index exch /CIDFont defineresource
  736.     } {
  737.         % This is a font.
  738.       dup /FontName 3 index put
  739.       1 index exch definefont
  740.     } ifelse
  741.   } for .dicttomark
  742.   end        % temporary dict
  743.   end        % FontSetInit ProcSet
  744.   /FontSet defineresource pop
  745.  
  746. } bind def
  747.  
  748. % ---------------- Resource category definition ---------------- %
  749.  
  750. currentdict end readonly
  751.  
  752. languagelevel exch 2 .setlanguagelevel
  753.  
  754. /FontSet /Generic /Category findresource dup length dict .copydict
  755. /Category defineresource pop
  756.  
  757. /FontSetInit exch /ProcSet defineresource pop
  758.  
  759. .setlanguagelevel
  760.