EcchiShell v1.0

proc

self

root

usr

share

ghostscript

.init_otto_font_file /.init_otto_font_file { /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 } bind def % .init_otto_font_file /.init_wOFF_otto_font_file { /FontSetInit /ProcSet findresource begin 2 dict begin /f exch def /cff //null def 3 {card32 pop} repeat % (wOFF), (OTTO) and file length card16 30 { 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 4 { card32 } repeat % Stack: tablesread start complen len checksum pop % Stack: tablesread start complen len 4 -2 roll exch % Stack: complen len start tablesread 1 add 20 mul 44 add sub % Stack: complen len offset f exch subfilefilter flushfile % skip to start % Stack: complen len % the table can legally be uncompressed: complen == len 1 index 1 index eq { exch pop f exch subfilefilter} { pop f exch subfilefilter /FlateDecode filter} ifelse end } bind def 20 dict begin % ------ Utilities ------ % /subfilefilter { % subfilefilter % SubFileDecode interprets a length of 0 as infinite. dup 0 le { pop pop () 0 } if () /SubFileDecode filter } bind def /advance { % advance - f cff eq { pos add /pos exch store } { pop } ifelse } bind def /next { % - next f read { 1 advance CFFDEBUG { ( ) print dup = } if } { 0 CFFDEBUG { ( Out of range access, assuming 0) = } if /pdfformaterror where { pop ( **** Warning: Out of range access to a CFF table, assuming 0.\n) pdfformaterror } if } ifelse } bind def /next2 { % - next2 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 { % nextstring dup 0 eq { pop () } { string f exch readstring pop dup length advance CFFDEBUG { ( ) print dup //== exec } if } ifelse } bind def /card8 % - card8 /next load def /card16 { % - card16 next2 exch 8 bitshift add } bind def /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 { % offsetproc 1 sub //offsetprocs exch get } bind def /offset { % offset offsetproc exec } bind def /sid % - sid /card16 load def % ------ Main program ------ % % 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 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. % Finally, PDF interpreter may request creation of CIDFont out of an % ordinary CFF font. /StartData { % StartData - currentfile exch subfilefilter //false //false ReadData pop } bind executeonly def /ReadData { % ReadData % Initialize. 30 dict begin /forcecidfont exch def /forceresname exch def /cff exch def /pos 0 def /resname exch cvlit def /DEBUG CFFDEBUG def % bring the binding closer /StringCache 1 dict def % Private DICT may be reused. forcecidfont [ { cff 1024 string readstring not { exit } if } loop ] .parsecff /fonts exch def resname mark fonts { forceresname { exch pop resname exch } if 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 dup /FontType 2 put 1 index exch definefont } ifelse } forall .dicttomark end % temporary dict end % FontSetInit ProcSet /FontSet defineresource } bind executeonly 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