123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778 |
- % Copyright (C) 1997, 1998, 1999, 2000 Aladdin Enterprises. All rights reserved.
- %
- % This software is provided AS-IS with no warranty, either express or
- % implied.
- %
- % This software is distributed under license and may not be copied,
- % modified or distributed except as expressly authorized under the terms
- % of the license contained in the file LICENSE in this distribution.
- %
- % For more information about licensing, please refer to
- % http://www.ghostscript.com/licensing/. For information on
- % commercial licensing, go to http://www.artifex.com/licensing/ or
- % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
- % San Rafael, CA 94903, U.S.A., +1(415)492-9861.
- % $Id: gs_cff.ps,v 1.19 2005/07/18 05:51:57 ray Exp $
- % Loader for CFF (compressed) fonts, including OpenType CFFs.
- % The following are not implemented yet:
- % Deleted entries in the Name Index
- % Embedded PostScript
- % Multiple Master fonts
- % Chameleon fonts
- % Synthetic fonts
- % ---------------- Font loading machinery ---------------- %
- % Augment the FONTPATH machinery so it recognizes OpenType CFF font sets.
- /.scanfontheaders where {
- pop /.scanfontheaders [
- .scanfontheaders aload pop (OTTO*)
- ] def
- } if
- % Load a font file that might be an OpenType CFF font set.
- % <file> .loadfontfile -
- /.loadnonottofontfile /.loadfontfile load def
- /.loadfontfile {
- dup 4 string .peekstring pop (OTTO) eq {
- % If this is a font at all, it's an OpenType CFF font set.
- .loadottofontfile
- } {
- % Not a TrueType font.
- .loadnonottofontfile
- } ifelse
- } bind def
- % <file> .loadottofontfile -
- /.loadottofontfile {
- /FontSetInit /ProcSet findresource begin
- 2 dict begin
- /f exch def /cff null def
- card32 pop card16 6 { next pop } repeat dup {
- % Stack: numtables tablesleft
- dup 0 eq {
- pop pop /.loadottofontfile cvx /invalidfont signalerror
- } if
- f 4 string readstring pop (CFF ) eq { sub exit } if
- f 12 string readstring pop pop 1 sub % skip to next table
- } loop
- % Stack: tablesread
- card32 pop card32 card32
- % Stack: tablesread start length
- exch 3 -1 roll 1 add 16 mul 12 add sub
- f exch subfilefilter flushfile % skip to start
- f exch subfilefilter end
- % Use a random FontSet resource name. ****** WRONG ******
- realtime rand xor =string cvs exch false
- ReadData
- } bind def
- 30 dict begin
- % ---------------- Standard strings (actually names) ---------------- %
- /StandardStrings mark
- % The initial StandardStrings that that denote characters are
- % defined as a pseudo-Encoding.
- % 0
- /CFFStandardStrings .findencoding aload pop
- % 379
- (001.000)
- % 380
- (001.001) (001.002) (001.003) /Black /Bold
- /Book /Light /Medium /Regular /Roman
- /Semibold
- .packtomark def
- % ---------------- Standard encodings ---------------- %
- /StandardEncodings [
- % StandardEncoding
- mark
- 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
- 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
- 1 2 3 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 37 38 39 40 41 42 43 44 45 46 47 48
- 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64
- 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80
- 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 0
- 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
- 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
- 0 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110
- 0 111 112 113 114 0 115 116 117 118 119 120 121 122 0 123
- 0 124 125 126 127 128 129 130 131 0 132 133 0 134 135 136
- 137 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
- 0 138 0 139 0 0 0 0 140 141 142 143 0 0 0 0
- 0 144 0 0 0 145 0 0 146 147 148 149 0 0 0 0
- .packtomark
- % ExpertEncoding
- mark
- 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
- 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
- 1 229 230 0 231 232 233 234 235 236 237 238 13 14 15 99
- 239 240 241 242 243 244 245 246 247 248 27 28 249 250 251 252
- 0 253 254 255 256 257 0 0 0 258 0 0 259 260 261 262
- 0 0 263 264 265 0 266 109 110 267 268 269 0 270 271 272
- 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288
- 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 0
- 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
- 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
- 0 304 305 306 0 0 307 308 309 310 311 0 312 0 0 313
- 0 0 314 315 0 0 316 317 318 0 0 0 158 155 163 319
- 320 321 322 323 324 325 0 0 326 150 164 169 327 328 329 330
- 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346
- 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362
- 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378
- .packtomark
- ] readonly def
- % ---------------- Standard Charsets ---------------- %
- % We include an explicit 0 at the beginning of each charset.
- /StandardCharsets [
- % ISOAdobe
- mark
- 0
- 1 1 228 { } for
- .packtomark
- % Expert
- mark
- 0
- 1 229 230 231 232 233 234 235 236 237 238 13 14 15 99 239
- 240 241 242 243 244 245 246 247 248 27 28 249 250 251 252 253
- 254 255 256 257 258 259 260 261 262 263 264 265 266 109 110 267
- 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283
- 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299
- 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315
- 316 317 318 158 155 163 319 320 321 322 323 324 325 326 150 164
- 169 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341
- 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357
- 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373
- 374 375 376 377 378
- .packtomark
- % ExpertSubset
- mark
- 0
- 1 231 232 235 236 237 238 13 14 15 99 239 240 241 242 243
- 244 245 246 247 248 27 28 249 250 251 253 254 255 256 257 258
- 259 260 261 262 263 264 265 266 109 110 267 268 269 270 272 300
- 301 302 305 314 315 158 155 163 320 321 322 323 324 325 326 150
- 164 169 327 328 329 330 331 332 333 334 335 336 337 338 339 340
- 341 342 343 344 345 346
- .packtomark
- ] readonly def
- % ---------------- Font loading ---------------- %
- % ------ Utilities ------ %
- /advance { % <n> advance -
- f cff eq { pos add /pos exch store } { pop } ifelse
- } bind def
- /next { % - next <byte>
- f read {
- 1 advance
- CFFDEBUG { ( ) print dup = } if
- } if
- } bind def
- /next2 { % - next2 <byte1> <byte2>
- f read {
- f read {
- 2 advance
- CFFDEBUG { ( ) print 1 index =only (,) print dup = } if
- } {
- 1 advance
- CFFDEBUG { ( ) print dup = } if
- } ifelse
- } if
- } bind def
- /nextstring { % <length> nextstring <string>
- dup 0 eq {
- pop ()
- } {
- string f exch readstring pop dup length advance
- CFFDEBUG { ( ) print dup == } if
- } ifelse
- } bind def
- /card8 % - card8 <card8>
- /next load
- def
- /card16 { % - card16 <card16>
- next2 exch 8 bitshift add
- } bind def
- /card32 { % - card32 <card32>
- card16 16 bitshift card16 add
- } bind def
- /offsetprocs [
- /card8 load
- /card16 load
- { card8 16 bitshift card16 add } bind
- /card32 load
- ] readonly def
- /offsetproc { % <offsize> offsetproc <proc>
- 1 sub //offsetprocs exch get
- } bind def
- /offset { % <offsize> offset <offset>
- offsetproc exec
- } bind def
- /sid % - <sid> sid
- /card16 load
- def
- /Index { % <name> Index <name> <array>
- CFFDEBUG { (% reading Index: ) print dup = } if
- mark card16 dup 0 ne {
- 1 exch next offsetproc dup exec pop exch {
- dup exec dup 4 -1 roll sub 3 1 roll exch
- } repeat pop
- } if pop .packtomark
- CFFDEBUG { (% Index lengths = ) print dup === } if
- [ exch { nextstring } forall ] readonly
- } bind def
- /tokens { % - tokens <num1> ... <op#> (op# = 12 means EOF)
- {
- f read not { 12 exit } if
- CFFDEBUG { (..) print dup = } if
- 1 advance
- dup 12 eq { pop next 32 add exit } if
- dup 28 lt { exit } if
- dup 32 lt {
- 28 sub {
- { card16 32768 xor 32768 sub }
- { 4 offset dup 16#7fffffff gt { -1 32 bitshift add } if }
- { tokenreal }
- { 31 exit }
- } exch get exec
- } {
- dup 247 lt {
- 139 sub
- } {
- 247 sub {
- { next 108 add }
- { next 364 add }
- { next 620 add }
- { next 876 add }
- { next 108 add neg }
- { next 364 add neg }
- { next 620 add neg }
- { next 876 add neg }
- % 255 is deliberately omitted and will cause a rangecheck
- } exch get exec
- } ifelse
- } ifelse
- } loop
- } bind def
- /tokenbuf 100 string def
- /tokenput { % <index> <char> tokenput <index+1>
- tokenbuf 2 index 3 -1 roll put 1 add
- } bind def
- /tokenrealarray [
- (0123456789.E) { } forall
- [(E) 0 get /tokenput cvx (-) 0 get] cvx
- null % will give an error
- (-) 0 get
- { exit }
- ] readonly def
- /tokenreal { % - tokenreal <float>
- 0 {
- next exch 1 index -4 bitshift tokenrealarray exch get exec tokenput
- % We must leave the byte on the stack temporarily so that
- % the exit will see a consistent stack state.
- 1 index 15 and tokenrealarray exch get exec tokenput exch pop
- } loop
- tokenbuf 0 3 -1 roll getinterval cvr exch pop
- } bind def
- /Dict { % <opsdict> Dict -
- /opdict exch store {
- mark tokens
- CFFDEBUG { (tokens: ) print ] dup === mark exch aload pop } if
- opdict exch .knownget { exec } if cleartomark
- } loop cleartomark
- } bind def
- /idstring { % <sid> idstring <string|name>
- dup 391 lt { //StandardStrings } { 391 sub strings } ifelse exch get
- } bind def
- /idname { % <sid> idname <name>
- idstring dup type /nametype ne { cvn } if
- } bind def
- /subfilefilter { % <file> <length> subfilefilter <filter>
- % SubFileDecode interprets a length of 0 as infinite.
- dup 0 le { pop pop () 0 } if () /SubFileDecode filter
- } bind def
- % ------ Top dictionary ------ %
- /offput { % <offset> <proc> offput -
- 1 index 0 le
- CFFDEBUG { dup { (not ) print } if (queued: ) print 2 index =only ( ) print 1 index === } if
- { pop pop
- }
- { currentdict exch aload length 1 add packedarray cvx
- offsets 3 1 roll put
- }
- ifelse
- } bind def
- /queueput { % <font> <proc> queueput -
- 16#7fffffff offsets { pop .min } forall
- pos sub nextstring
- 3 1 roll aload length 2 add packedarray cvx
- [ queued aload pop counttomark 2 add -1 roll ]
- /queued exch store
- } bind def
- /printvk { % <value> <key> printvk <value> <key>
- CFFDEBUG { (\t% ) print dup =only ( = ) print 1 index === } if
- } bind def
- /xxput { % <value> <key> <dict> xxput -
- 3 1 roll exch put
- } bind def
- /putfi { % <value> <key> putfi -
- printvk FontInfo xxput
- } bind def
- /xdef { % <value> <key> xdef -
- exch def
- } bind def
- /pxdef { % <value> <key> pxdef -
- printvk xdef
- } bind def
- /topdictops mark
- 12 { CFFDEBUG { (\t% EOD) = } if exit }
- 0 { idstring /version putfi }
- 1 { idstring /Notice putfi }
- 32 { idstring /Copyright putfi }
- 2 { idstring /FullName putfi }
- 3 { idstring /FamilyName putfi }
- 4 { idstring /Weight putfi }
- 33 { 0 ne /isFixedPitch putfi }
- 34 { /ItalicAngle putfi }
- 35 { /UnderlinePosition putfi }
- 36 { /UnderlineThickness putfi }
- 37 { /PaintType pxdef }
- 38 { /FontType pxdef } % actually CharstringType
- 39 { counttomark array astore /FontMatrix pxdef }
- 13 { /UniqueID pxdef }
- 5 { counttomark array astore /FontBBox pxdef }
- 40 { /StrokeWidth pxdef }
- 14 { counttomark array astore /XUID pxdef }
- 15 {
- /charset printvk pop
- dup StandardCharsets length lt {
- StandardCharsets exch get /charset xdef
- } {
- { queuecharset } offput
- } ifelse
- }
- 16 {
- /Encoding printvk pop
- dup StandardEncodings length lt {
- /Encoding xdef
- } {
- { queueEncoding } offput
- } ifelse
- }
- 17 { { readCharStrings } offput }
- 18 { exch /readPrivate cvx 2 packedarray offput }
- % CIDFont operators
- 62 { % ROS, must be first in a CIDFont
- currentdict /FontType undef
- currentdict /Encoding undef
- currentdict /FontMatrix undef
- /CIDFontVersion 0 def
- /CIDFontRevision 0 def
- /CIDFontType 0 def
- /CIDCount 8720 def % Default value defined in CFF spec.
- 3 dict begin
- /Supplement pxdef
- idstring /Ordering pxdef
- idstring /Registry pxdef
- /CIDSystemInfo currentdict end def
- }
- 63 { /CIDFontVersion pxdef }
- 64 { /CIDFontRevision pxdef }
- 65 { /CIDFontType pxdef }
- 66 { /CIDCount pxdef }
- 67 { /UIDBase pxdef }
- 68 { { readFDArray } offput }
- 69 { { readFDSelect } offput }
- % This operator only appears in a FDArray element.
- % We don't really need it, so ignore an error.
- 70 { { idstring } .internalstopped { pop pop } { /FontName pxdef } ifelse }
- .dicttomark readonly def
- % readcharset and readFDSelect may require the length of CharStringArray,
- % but these structures may occur in the file before the CharStrings.
- % If that happens, use a hack: assume that all the data up to the next
- % queued read should be read.
- /charstringcount { % <font> charstringcount <count> true
- % <font> charstringcount <length> false
- /CharStringArray .knownget {
- length true
- } {
- % Hack: look for the next queued read.
- 16#7fffffff offsets { pop .min } forall
- pos sub false
- } ifelse
- } bind def
- /readCharStrings { % <font> readCharStrings -
- /CharStringArray Index put
- } bind def
- % ------ Charsets and encodings ------ %
- % Note: formats 1 and 2 can overflow the operand stack.
- % We'll fix this if it ever becomes necessary.
- /charsetcount {
- charstringcount { 1 sub } { 2 idiv } ifelse
- } bind def
- /charsetformats [
- { [ 0 3 -1 roll charsetcount { sid } repeat ]
- } bind
- { [ 0 3 -1 roll charsetcount {
- dup 0 eq { pop exit } if
- sid card8 1 add 2 index .min { exch 1 sub 1 index 1 add } repeat pop
- } loop ]
- } bind
- { [ 0 3 -1 roll charsetcount {
- dup 0 eq { pop exit } if
- sid card16 1 add 2 index .min { exch 1 sub 1 index 1 add } repeat pop
- } loop ]
- } bind
- ] readonly def
- /queuecharset { % <font> queuecharset -
- { readcharset } queueput
- } bind def
- /readcharset { % <data> <font> readcharset -
- begin 0 () /SubFileDecode filter /f exch store
- charsetformats next get currentdict exch exec /charset exch def end
- } bind def
- /encodingformats [
- { 1 1 next { next exch Encoding 3 1 roll put } for
- } bind
- { 1 next {
- next next 1 add {
- % Stack: gid code
- Encoding 1 index 3 index put
- exch 1 add exch 1 add
- } repeat pop
- } repeat pop
- } bind
- ] readonly def
- /queueEncoding { % <font> queueEncoding -
- { readEncoding } queueput
- } bind def
- /readEncoding { % <data> <font> readEncoding -
- begin 0 () /SubFileDecode filter /f exch store
- /Encoding [ 256 { /.notdef } repeat ] def
- next encodingformats 1 index 127 and get exec
- 128 ge {
- % Read supplementary encodings.
- next {
- Encoding next sid idname put
- } repeat
- } if end
- } bind def
- % ------ FDArray and FDSelect ------ %
- /readFDArray { % <font> readFDArray -
- /FDarray Index exch pop exch
- 2 dict begin /f null def begin
- [ exch {
- dup length subfilefilter /f exch store
- 10 dict begin
- /FontType 2 def
- /PaintType 0 def
- /FontMatrix [0.001 0 0 0.001 0 0] def
- /Private 20 dict def
- //topdictops Dict currentdict end
- } forall ] /FDArray xdef end end
- } bind def
- /fdselectformats [
- % Note: this procedure can overflow the operand stack.
- % We'll fix this if it ever becomes necessary.
- { [ exch charstringcount pop { card8 } repeat ] } bind % Format 0
- { /FDSelect cvx /invalidfont signalerror } bind % Format 1
- dup % Format 2
- % The following procedure does not use excessive op-stack space.
- { pop 65535 array card16 card16 exch % Format 3
- { % Stack: array previndex
- card8 card16
- exch 1 index 4 -1 roll
- exch 1 exch 1 sub
- { 3 index exch 2 index put } for pop
- } repeat
- % now resize the array to the final index.
- 0 exch getinterval
- } bind
- ] readonly def
- /readFDSelect { % <font> readFDSelect -
- begin fdselectformats next get currentdict exch exec /FDSelect exch def end
- } bind def
- % ------ Private dictionary ------ %
- /deltarray { % -mark- <num1> ... deltarray <num1'> ...
- 0 counttomark 1 sub { counttomark -1 roll add dup } repeat pop
- counttomark array astore
- } bind def
- /privatedictops mark
- 12 { CFFDEBUG { (\t% EOD) = } if exit }
- 6 { deltarray /BlueValues pxdef }
- 7 { deltarray /OtherBlues pxdef }
- 8 { deltarray /FamilyBlues pxdef }
- 9 { deltarray /FamilyOtherBlues pxdef }
- 41 { /BlueScale pxdef }
- 42 { /BlueShift pxdef }
- 43 { /BlueFuzz pxdef }
- 10 { 1 array astore /StdHW pxdef }
- 11 { 1 array astore /StdVW pxdef }
- 44 { deltarray /StemSnapH pxdef }
- 45 { deltarray /StemSnapV pxdef }
- 46 { 0 ne /ForceBold pxdef }
- 47 { /ForceBoldThreshold pxdef }
- 48 { /lenIV pxdef }
- 49 { /LanguageGroup pxdef }
- 50 { /ExpansionFactor pxdef }
- 51 { /initialRandomSeed pxdef }
- 19 { PrivateStart add { readSubrs } offput }
- 20 { /defaultWidthX pxdef }
- 21 { /nominalWidthX pxdef }
- % Multiple Master fonts only
- 59 { /NDV pxdef }
- 60 { /CDV pxdef }
- 61 { /lenBuildCharArray pxdef }
- .dicttomark readonly def
- /readPrivate { % <font> <size> readPrivate -
- 2 dict begin
- /PrivateStart pos def
- f 3 1 roll exch 1 index f exch subfilefilter /f exch store
- dup /FontType get exch
- /Private get begin
- % Default lenIV to -1 even for Type 1 CharStrings.
- 2 ne { /lenIV -1 def } if
- //privatedictops Dict end
- exch /f exch store advance
- end
- } bind def
- /readSubrs { % <font> readSubrs -
- /Subrs Index put
- } bind def
- % ------ Main program ------ %
- % Clean up after finishing a font.
- /cleanupFont { % (currentdict) cleanupFont -
- % Remove unwanted entries.
- currentdict /charset undef
- currentdict /CharStringArray undef
- } bind def
- % Update the Encoding and CharStrings for a real font.
- /finishFont { % (currentdict) finishFont -
- % Construct the real Encoding.
- % The value of Encoding is either a number, for predefined
- % encodings, or an array of mixed GIDs and names.
- /Encoding mark Encoding
- CFFDEBUG { (Encoding: ) print dup === flush } if
- dup type /integertype eq {
- StandardEncodings exch get { idname } forall
- } {
- {
- dup type /integertype eq { charset exch get idname } if
- } forall
- } ifelse .packtomark def
- % Construct the CharStrings.
- % Note that they may only correspond to an initial
- % subset of the charset.
- /CharStrings charset length CharStringArray length .min dict def
- CFFDEBUG {
- charset length =only ( charset ) print
- CharStringArray length =only ( CharStringArray) =
- charset == flush
- } if
- 0 1 CharStrings maxlength 1 sub {
- dup CharStringArray exch get
- exch charset exch get idstring CharStrings xxput
- } for
- cleanupFont
- } bind def
- % Replace CharStrings with GlyphDirectory for a CIDFont;
- % Move GlobalSubrs to descendent fonts.
- /finishCIDFont { % (currentdict) finishCIDFont -
- % Construct the GlyphDirectory, similar to CharStrings.
- /FDBytes FDArray length 1 gt { 1 } { 0 } ifelse def
- /GlyphDirectory charset length CharStringArray length .min dict def
- CFFDEBUG {
- charset length =only ( charset ) print
- CharStringArray length =only ( CharStringArray) =
- charset == flush
- } if
- 0 1 GlyphDirectory maxlength 1 sub {
- dup CharStringArray exch get
- % If there is more than one FDArray entry, add the font
- % index to the beginning of each charstring.
- FDBytes 1 eq {
- FDSelect 2 index get
- 1 string dup 0 4 -1 roll put exch concatstrings
- } if
- exch charset exch get GlyphDirectory xxput
- } for
- Private /GlobalSubrs .knownget {
- FDArray {
- /Private get /GlobalSubrs 2 index put
- } forall
- pop
- Private /GlobalSubrs undef
- } if
- % Clean up.
- currentdict /FDSelect undef
- cleanupFont
- } bind def
- % We need to pass the file as a parameter for the sake of the PDF
- % interpreter. Also for the sake of PDF, a flag forces the font
- % to be defined as <resname> instead of the name embedded in the data.
- % This is needed for subsetted fonts; it is valid if the CFF
- % contains only a single font.
- /StartData { % <resname> <nbytes> StartData -
- currentfile exch subfilefilter false ReadData
- } bind def
- /ReadData { % <resname> <file> <forceresname> ReadData -
- % Initialize.
- 30 dict begin
- /forceresname exch def
- /cff exch def
- /pos 0 def
- /resname exch cvlit def
- /DEBUG CFFDEBUG def % bring the binding closer
- % Read the header.
- /f cff def
- /vmajor next def
- /vminor next def
- /hdrsize next def
- /aoffsize next def
- % Read the Indexes.
- /names Index def
- /topdicts Index def
- /strings Index def
- /gsubrs Index def
- % Read the top Dicts.
- /offsets 50 dict def
- /queued [] def
- /opdict null def % reserve a slot
- /fonts [ topdicts {
- 0 () /SubFileDecode filter /f exch def
- 40 dict begin
- % Preload defaults that differ from PostScript defaults,
- % or that are required.
- /FontType 2 def
- /PaintType 0 def
- /FontMatrix [0.001 0 0 0.001 0 0] def
- /charset StandardCharsets 0 get def
- /Encoding 0 def
- /FontInfo 10 dict
- dup /UnderlinePosition -100 put
- dup /UnderlineThickness 50 put
- def
- /Private 20 dict
- gsubrs length 0 ne { dup /GlobalSubrs gsubrs put } if
- def
- //topdictops Dict
- currentdict end
- } forall ] def
- % Read other tables with queued offsets.
- % We process these in order so we can advance if needed.
- % The CFF file may not be positionable.
- { % outer loop since offsets may be updated when processing
- CFFDEBUG { (offsets: ) print [ offsets { pop } forall ] == } if
- [ offsets { pop } forall ] { lt } .sort % process in order of appearance
- {
- /f cff def
- CFFDEBUG { (queued offset: ) print dup =print flush (, current pos=) print pos = } if
- dup pos ne { dup pos sub nextstring pop } if % negative advance will cause error
- offsets exch 2 copy get 3 1 roll undef
- CFFDEBUG { (exec queued: ) print dup == } if
- exec
- } forall
- offsets length 0 eq { exit } if
- } loop
- % Process out-of-order tables.
- CFFDEBUG { queued length =only ( queued) = flush } if
- queued { exec } forall
- % Update Encoding and CharStrings.
- fonts {
- begin
- currentdict /CIDFontType known { finishCIDFont } { finishFont } ifelse
- end
- } forall
- % Wrap up.
- resname mark 0 1 fonts length 1 sub {
- CFFDEBUG { dup =only ( ) print flush } if
- dup names exch get
- forceresname { pop resname } if
- CFFDEBUG { dup == flush } if
- exch fonts exch get
- dup /CIDFontType known {
- % This is a CIDFont.
- dup /CIDFontName 3 index put
- 1 index exch /CIDFont defineresource
- } {
- % This is a font.
- dup /FontName 3 index put
- 1 index exch definefont
- } ifelse
- } for .dicttomark
- end % temporary dict
- end % FontSetInit ProcSet
- /FontSet defineresource pop
- } bind def
- % ---------------- Resource category definition ---------------- %
- currentdict end readonly
- languagelevel exch 2 .setlanguagelevel
- /FontSet /Generic /Category findresource dup length dict .copydict
- /Category defineresource pop
- /FontSetInit exch /ProcSet defineresource pop
- .setlanguagelevel
|