home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 April / PCWorld_2001-04_cd.bin / Software / Vyzkuste / gs / gs650w32.exe / gs6.50 / lib / gs_cff.ps < prev    next >
Text File  |  2000-12-05  |  21KB  |  751 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.7.2.2 2000/11/09 23:11:33 rayjj 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 /Private undef
  376.     currentdict /Encoding undef
  377.     currentdict /FontMatrix undef
  378.     /CIDFontVersion 0 def
  379.     /CIDFontRevision 0 def
  380.     /CIDFontType 0 def
  381.     /CIDCount 8720 def
  382.     3 dict begin
  383.     /Supplement xdef
  384.     idstring /Ordering xdef
  385.     idstring /Registry xdef
  386.     /CIDSystemInfo currentdict end def
  387.   }
  388.   63 { /CIDFontVersion xdef }
  389.   64 { /CIDFontRevision xdef }
  390.   65 { /CIDFontType xdef }
  391.   66 { /CIDCount xdef }
  392.   67 { /UIDBase xdef }
  393.   68 { { readFDArray } offput }
  394.   69 { { readFDSelect } offput }
  395.     % This operator only appears in a FDArray element.
  396.   70 { idstring /FontName exch def }
  397. .dicttomark readonly def
  398.  
  399. % readcharset and readFDSelect may require the length of CharStringArray,
  400. % but these structures may occur in the file before the CharStrings.
  401. % If that happens, use a hack: assume that all the data up to the next
  402. % queued read should be read.
  403.  
  404. /charstringcount {    % <font> charstringcount <count> true
  405.             % <font> charstringcount <length> false
  406.   /CharStringArray .knownget {
  407.     length true
  408.   } {
  409.     % Hack: look for the next queued read.
  410.     16#7fffffff offsets { pop .min } forall
  411.     pos sub false
  412.   } ifelse
  413. } bind def
  414.  
  415. /readCharStrings {    % <font> readCharStrings -
  416.   /CharStringArray Index put
  417. } bind def
  418.  
  419. % ------ Charsets and encodings ------ %
  420.  
  421. % Note: formats 1 and 2 can overflow the operand stack.
  422. % We'll fix this if it ever becomes necessary.
  423. /charsetcount {
  424.   charstringcount { 1 sub } { 2 idiv } ifelse
  425. } bind def
  426. /charsetformats [
  427. { [ 0 3 -1 roll charsetcount { sid } repeat ]
  428. } bind
  429. { [ 0 3 -1 roll charsetcount {
  430.     dup 0 eq { pop exit } if
  431.     sid card8 1 add 2 index .min { exch 1 sub 1 index 1 add } repeat pop
  432.   } loop ]
  433. } bind
  434. { [ 0 3 -1 roll charsetcount {
  435.     dup 0 eq { pop exit } if
  436.     sid card16 1 add 2 index .min { exch 1 sub 1 index 1 add } repeat pop
  437.   } loop ]
  438. } bind
  439. ] readonly def
  440. /queuecharset {        % <font> queuecharset -
  441.   { readcharset } queueput
  442. } bind def
  443. /readcharset {        % <data> <font> readcharset -
  444.   begin 0 () /SubFileDecode filter /f exch store
  445.   charsetformats next get currentdict exch exec /charset exch def end
  446. } bind def
  447.  
  448. /encodingformats [
  449. { 1 1 next { next exch Encoding 3 1 roll put } for
  450. } bind
  451. { 1 next {
  452.     next next 1 add {
  453.             % Stack: gid code
  454.       Encoding 1 index 3 index put
  455.       exch 1 add exch 1 add
  456.     } repeat pop
  457.   } repeat pop
  458. } bind
  459. ] readonly def
  460. /queueEncoding {    % <font> queueEncoding -
  461.   { readEncoding } queueput
  462. } bind def
  463. /readEncoding {        % <data> <font> readEncoding -
  464.   begin 0 () /SubFileDecode filter /f exch store
  465.   /Encoding [ 256 { /.notdef } repeat ] def
  466.   next encodingformats 1 index 127 and get exec
  467.   128 ge {
  468.             % Read supplementary encodings.
  469.     next {
  470.       Encoding next sid idname put
  471.     } repeat
  472.   } if end
  473. } bind def
  474.  
  475. % ------ FDArray and FDSelect ------ %
  476.  
  477. /readFDArray {        % <font> readFDArray -
  478.   Index exch
  479.   2 dict begin /f null def begin
  480.   [ exch {
  481.     dup length subfilefilter /f exch store
  482.     10 dict begin
  483.     /FontType 2 def
  484.     /PaintType 0 def
  485.     /FontMatrix [0.001 0 0 0.001 0 0] def
  486.     /Private 20 dict def
  487.     //topdictops Dict currentdict end
  488.   } forall ] /FDArray xdef end end
  489. } bind def
  490.  
  491. % Note: this implementation can overflow the operand stack.
  492. % We'll fix this if it ever becomes necessary.
  493. /fdselectformats [
  494. { [ exch charstringcount pop { card8 } repeat ] } bind
  495. { /FDSelect cvx /invalidfont signalerror } bind
  496. dup
  497. { pop [ card16 card16 exch {
  498.         % Stack: previndex
  499.     card8 card16 dup 4 1 roll 3 -1 roll sub 1 sub {
  500.       exch 1 index
  501.     } repeat exch
  502.   } repeat pop ]
  503. } bind
  504. ] readonly def
  505.  
  506. /readFDSelect {        % <font> readFDSelect -
  507.   begin fdselectformats next get currentdict exch exec /FDSelect exch def end
  508. } bind def
  509.  
  510.  
  511. % ------ Private dictionary ------ %
  512.  
  513. /deltarray {        % -mark- <num1> ... deltarray <num1'> ...
  514.   0 counttomark 1 sub { counttomark -1 roll add dup } repeat pop
  515.   counttomark array astore
  516. } bind def
  517.  
  518. /privatedictops mark
  519.   12 { exit }
  520.   6 { deltarray /BlueValues xdef }
  521.   7 { deltarray /OtherBlues xdef }
  522.   8 { deltarray /FamilyBlues xdef }
  523.   9 { deltarray /FamilyOtherBlues xdef }
  524.   41 { /BlueScale xdef }
  525.   42 { /BlueShift xdef }
  526.   43 { /BlueFuzz xdef }
  527.   10 { 1 array astore /StdHW xdef }
  528.   11 { 1 array astore /StdVW xdef }
  529.   44 { deltarray /StemSnapH xdef }
  530.   45 { deltarray /StemSnapV xdef }
  531.   46 { 0 ne /ForceBold xdef }
  532.   47 { /ForceBoldThreshold xdef }
  533.   48 { /lenIV xdef }
  534.   49 { /LanguageGroup xdef }
  535.   50 { /ExpansionFactor xdef }
  536.   51 { /initialRandomSeed xdef }
  537.   19 { PrivateStart add { readSubrs } offput }
  538.   20 { /defaultWidthX xdef }
  539.   21 { /nominalWidthX xdef }
  540.     % Multiple Master fonts only
  541.   59 { /NDV xdef }
  542.   60 { /CDV xdef }
  543.   61 { /lenBuildCharArray xdef }
  544. .dicttomark readonly def
  545.  
  546. /readPrivate {        % <font> <size> readPrivate -
  547.   2 dict begin
  548.   /PrivateStart pos def
  549.   f 3 1 roll exch 1 index f exch subfilefilter /f exch store
  550.   dup /FontType get exch
  551.   /Private get begin
  552.         % Default lenIV to -1 even for Type 1 CharStrings.
  553.   2 ne { /lenIV -1 def } if
  554.   //privatedictops Dict end
  555.   exch /f exch store advance
  556.   end
  557. } bind def
  558.  
  559. /readSubrs {        % <font> readSubrs -
  560.   /Subrs Index put
  561. } bind def
  562.  
  563. % ------ Main program ------ %
  564.  
  565. % Clean up after finishing a font.
  566. /cleanupFont {        % (currentdict) cleanupFont -
  567.         % Remove unwanted entries.
  568.   currentdict /charset undef
  569.   currentdict /CharStringArray undef
  570. } bind def
  571.  
  572. % Update the Encoding and CharStrings for a real font.
  573. /finishFont {        % (currentdict) finishFont -
  574.         % Construct the real Encoding.
  575.         % The value of Encoding is either a number, for predefined
  576.         % encodings, or an array of mixed GIDs and names.
  577.   /Encoding mark Encoding
  578.   DEBUG { (Encoding: ) print dup === flush } if
  579.   dup type /integertype eq {
  580.     StandardEncodings exch get { idname } forall
  581.   } {
  582.     {
  583.       dup type /integertype eq { charset exch get idname } if
  584.     } forall
  585.   } ifelse .packtomark def
  586.         % Construct the CharStrings.
  587.         % Note that they may only correspond to an initial
  588.         % subset of the charset.
  589.   /CharStrings charset length CharStringArray length .min dict def
  590.   DEBUG {
  591.     charset length =only ( charset ) print
  592.     CharStringArray length =only ( CharStringArray) =
  593.     charset == flush
  594.   } if
  595.   0 1 CharStrings maxlength 1 sub {
  596.     dup CharStringArray exch get
  597.     exch charset exch get idstring CharStrings xxput
  598.   } for
  599.   cleanupFont
  600. } bind def
  601.  
  602. % Replace CharStrings with GlyphDirectory for a CIDFont.
  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.         % Clean up.
  623.   currentdict /FDSelect undef
  624.   cleanupFont
  625. } bind def
  626. % We need to pass the file as a parameter for the sake of the PDF
  627. % interpreter. Also for the sake of PDF, a flag forces the font
  628. % to be defined as <resname> instead of the name embedded in the data.
  629. % This is needed for subsetted fonts; it is valid if the CFF
  630. % contains only a single font.
  631. /StartData {          % <resname> <nbytes> StartData -
  632.   currentfile exch subfilefilter false ReadData
  633. } bind def
  634. /ReadData {           % <resname> <file> <forceresname> ReadData -
  635.  
  636.     % Initialize.
  637.  
  638.   30 dict begin
  639.   /forceresname exch def
  640.   /cff exch def
  641.   /pos 0 def
  642.   /resname exch cvlit def
  643.   /DEBUG DEBUG def    % bring the binding closer
  644.  
  645.     % Read the header.
  646.  
  647.   /f cff def
  648.   /vmajor next def
  649.   /vminor next def
  650.   /hdrsize next def
  651.   /aoffsize next def
  652.  
  653.     % Read the Indexes.
  654.  
  655.   /names Index def
  656.   /topdicts Index def
  657.   /strings Index def
  658.   /gsubrs Index def
  659.  
  660.     % Read the top Dicts.
  661.  
  662.   /offsets 50 dict def
  663.   /queued [] def
  664.   /opdict null def        % reserve a slot
  665.   /fonts [ topdicts {
  666.     0 () /SubFileDecode filter /f exch def
  667.     40 dict begin
  668.         % Preload defaults that differ from PostScript defaults,
  669.         % or that are required.
  670.       /FontType 2 def
  671.       /PaintType 0 def
  672.       /FontMatrix [0.001 0 0 0.001 0 0] def
  673.       /charset StandardCharsets 0 get def
  674.       /Encoding 0 def
  675.       /FontInfo 10 dict
  676.     dup /UnderlinePosition -100 put
  677.     dup /UnderlineThickness 50 put
  678.       def
  679.       /Private 20 dict
  680.     gsubrs length 0 ne { dup /GlobalSubrs gsubrs put } if
  681.       def
  682.       //topdictops Dict
  683.     currentdict end
  684.   } forall ] def
  685.  
  686.     % Read other tables with queued offsets.
  687.  
  688.   DEBUG { (offsets: ) print [ offsets { pop } forall ] == } if
  689.   { /f cff def
  690.     DEBUG { (pos=) print pos = } if
  691.     offsets pos 2 copy .knownget not { pop pop exit } if
  692.     3 1 roll undef
  693.     DEBUG { (exec queued: ) print dup == } if
  694.     exec
  695.   } loop
  696.   offsets length 0 ne {
  697.     (Error: missing tables at ) print [ offsets { pop } forall ] ==
  698.     (Current position is ) print pos ==
  699.     flush stop
  700.   } if
  701.  
  702.     % Process out-of-order tables.
  703.  
  704.   DEBUG { queued length =only ( queued) = flush } if
  705.   queued { exec } forall
  706.  
  707.     % Update Encoding and CharStrings.
  708.  
  709.   fonts {
  710.     begin
  711.     currentdict /CIDFontType known { finishCIDFont } { finishFont } ifelse
  712.     end
  713.   } forall
  714.  
  715.     % Wrap up.
  716.  
  717.   resname mark 0 1 fonts length 1 sub {
  718.     DEBUG { dup =only ( ) print flush } if
  719.     dup names exch get
  720.     forceresname { pop resname } if
  721.     DEBUG { dup == flush } if
  722.     exch fonts exch get
  723.     dup /CIDFontType known {
  724.         % This is a CIDFont.
  725.       dup /CIDFontName 3 index put
  726.       1 index exch /CIDFont defineresource
  727.     } {
  728.         % This is a font.
  729.       dup /FontName 3 index put
  730.       1 index exch definefont
  731.     } ifelse
  732.   } for .dicttomark
  733.   end        % temporary dict
  734.   end        % FontSetInit ProcSet
  735.   /FontSet defineresource pop
  736.  
  737. } bind def
  738.  
  739. % ---------------- Resource category definition ---------------- %
  740.  
  741. currentdict end readonly
  742.  
  743. languagelevel exch 2 .setlanguagelevel
  744.  
  745. /FontSet /Generic /Category findresource dup length dict .copydict
  746. /Category defineresource pop
  747.  
  748. /FontSetInit exch /ProcSet defineresource pop
  749.  
  750. .setlanguagelevel
  751.