home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / ghostscript / 8.64 / Resource / Init / gs_cidfn.ps < prev    next >
Encoding:
Text File  |  2009-04-17  |  12.6 KB  |  413 lines
  1. %    Copyright (C) 1995, 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is provided AS-IS with no warranty, either express or
  4. % implied.
  5. % 
  6. % This software is distributed under license and may not be copied,
  7. % modified or distributed except as expressly authorized under the terms
  8. % of the license contained in the file LICENSE in this distribution.
  9. % 
  10. % For more information about licensing, please refer to
  11. % http://www.ghostscript.com/licensing/. For information on
  12. % commercial licensing, go to http://www.artifex.com/licensing/ or
  13. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14. % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15.  
  16. % $Id: gs_cidfn.ps 8954 2008-08-08 04:22:38Z ray $
  17. % ProcSet for implementing CIDFont and CIDMap resources.
  18. % When this is run, systemdict is still writable.
  19.  
  20. % ---------------- Defining CIDFont resources ---------------- %
  21.  
  22. % Define a CIDFont resource.  This is the defineresource implementation for
  23. % the CIDFont resource category.
  24.  
  25. /.checkfonttype {    % <cidfont> <fonttype> .checkfonttype <cidfont> <new?>
  26.   1 index /FID known {
  27.     1 index /FontType get ne {
  28.       /definefont cvx /invalidfont signalerror
  29.     } if false
  30.   } {
  31.     1 index /FontType 3 -1 roll put true
  32.   } ifelse
  33. } bind def
  34.  
  35. /.cidfonttypes where { pop } { /.cidfonttypes 6 dict def } ifelse
  36. .cidfonttypes
  37.  
  38. 30 dict begin
  39.  
  40. % The key in .cidfonttypes is the CIDFontType value;
  41. % the value is a procedure that takes a font name and the CIDFont dictionary
  42. % and replaces the latter with a real font.
  43.  
  44. % ------ CIDFontType 0 (FontType 9) ------ %
  45.  
  46. % We add the following entries to the CIDFont dictionary, in addition to
  47. % the ones documented by Adobe:
  48. %    SubrCache - dictionary for caching Subr arrays
  49. % For CIDFonts where we read the data from disk incrementally:
  50. %    GlyphData is 0 (arbitrary)
  51. %    DataSource - a ReusableStreamDecode filter for the data
  52. % We also add a FID entry, and possibly a Subrs entry, to each element of
  53. % FDArray.
  54.  
  55. dup 0 {
  56.   9 .checkfonttype {
  57.     /CIDInit /ProcSet findresource begin
  58.     .completefont9
  59.     end
  60.   } if
  61.   1 index exch .buildfont9 exch pop
  62. } put % Don't bind it here, because gs_fapi.ps redefines .buildfont9
  63.  
  64. % Add entries to a new CIDFontType 0 font per documentation (FontMatrix)
  65. % or for .buildfont9 (FDArray.Private.Subrs).
  66. /.completefont9 {    % <cidfont0> .completefont9 <cidfont0>
  67.   currentglobal 3 1 roll dup gcheck setglobal
  68.   dup /FontMatrix known {
  69.     dup /FDArray get {
  70.       dup /FontMatrix get 0 get 1000000 ge {
  71.         /FontMatrix matrix put  % Bug 688517
  72.       } {
  73.         pop
  74.       } ifelse
  75.     } forall
  76.   } {
  77.     dup /FontMatrix [0.001 0 0 0.001 0 0] put
  78.     dup /FDArray get {
  79.        currentglobal exch dup gcheck setglobal
  80.        dup /FontMatrix get {1000 0 0 1000 0 0} matrix concatmatrix
  81.        /FontMatrix exch put
  82.        setglobal
  83.     } forall
  84.   } ifelse
  85.   dup /FDArray get {
  86.         % Read the Subrs if necessary.
  87.     dup /Private get dup /Subrs known not {
  88.       dup /SubrCount .knownget {
  89.         % Stack: font Private SubrCount
  90.     currentglobal 3 1 roll 1 index gcheck setglobal
  91.     array 1 index /Subrs 3 -1 roll put
  92.         % Stack: font global Private
  93.     2 index begin begin .loadsubrs end end
  94.     setglobal
  95.       } {
  96.     pop
  97.       } ifelse readonly pop
  98.     } {
  99.       pop pop
  100.     } ifelse
  101.   } forall
  102.   3 -1 roll setglobal
  103. } bind def
  104.  
  105. % Read some Subrs for the current Type 1 subfont.
  106. % The subfont's Private dict is currentdict; the CIDFont itself is the
  107. % next dictionary on the stack.
  108. /.readsubrs {        % <Subrs> <start> .readsubrs <Subrs>
  109.   1 SubrCount 1 sub {
  110.     dup SDBytes mul SubrMapOffset add
  111.     dup SDBytes .readint exch SDBytes add SDBytes .readint
  112.     1 index sub string ReadString 2 index 3 1 roll put
  113.   } for
  114. } bind def
  115.  
  116. % Ensure that all the Subrs for the current Type 1 subfont are loaded.
  117. % The subfont's Private dict is currentdict; the CIDFont itself is the
  118. % next dictionary on the stack.
  119. /.loadsubrs {
  120.   Subrs length 0 ne {
  121.     SubrCache SubrMapOffset .knownget {
  122.         % We've already loaded some Subrs at this offset.
  123.         % Make sure we've got as many as we need.
  124.       dup length SubrCount lt {
  125.         % We need to load more.
  126.     SubrCount array exch 1 index copy length .readsubrs
  127.     SubrCache SubrMapOffset 2 index put
  128.       } if
  129.     } {
  130.         % We haven't loaded any Subrs at this offset yet.
  131.       SubrCount array 0 .readsubrs
  132.       SubrCache SubrMapOffset 2 index put
  133.     } ifelse
  134.     Subrs copy pop
  135.   } if
  136. } bind def
  137.  
  138. % ------ CIDFontType 1 (FontType 10) ------ %
  139.  
  140. dup 1 {
  141.   10 .checkfonttype pop
  142.   1 index exch .buildfont10 exch pop
  143. } put % Don't bind it here because gs_fapi.ps redefines .buildfont10
  144.  
  145. % ------ CIDFontType 2 (FontType 11) ------ %
  146.  
  147. dup 2 {
  148.   11 .checkfonttype pop
  149.   1 index exch .buildfont11 exch pop
  150. } put % Don't bind it here because gs_fapi.ps redefines .buildfont11
  151.  
  152. pop        % .cidfonttypes
  153.  
  154. % ---------------- Reading CIDFontType 0 files ---------------- %
  155.  
  156. /StartData {        % <(Binary)|(Hex)> <datalength> StartData -
  157.             %   (currentdict is CID font dict)
  158.         % If we're loading a resource file and the data format is
  159.         % binary, we can just save a pointer to the data and load it
  160.         % incrementally.
  161.   mark {
  162.         % Previous versions of this code made provisions for
  163.         % reading hex-encoded data incrementally.  Since hex data
  164.         % doesn't seem to be used in practice, we no longer bother.
  165.     2 index (Binary) ne { stop } if
  166.     currentfile .currentresourcefile ne { stop } if
  167.         % Hack: the pdfwrite driver relies on finalization to write
  168.         % out fonts.  However, the font may be finalized after the
  169.         % resource file, in which case the resource file will be
  170.         % closed.  So if the current output device is pdfwrite,
  171.         % don't use incremental loading.
  172.     currentdevice .devicename /pdfwrite eq { stop } if
  173.     currentfile fileposition
  174.   } .internalstopped {
  175.         % File is not positionable, or uses hex data.
  176.         % Load the data now.
  177.     cleartomark exch
  178.     currentfile exch
  179.     (Hex) eq { /ASCIIHexDecode filter } if
  180.     exch
  181.         % Stack: file length
  182.     dup 65400 le {
  183.         % readstring with a 0-length string causes a rangecheck,
  184.         % but a data length of 0 is allowed.
  185.       string dup () ne { 1 index exch readstring pop } if
  186.     } {
  187.       mark 3 1 roll {
  188.         % Stack: mark str ... file length
  189.     dup 0 eq { pop exit } if
  190.     dup 65400 .min dup string 3 index exch readstring pop
  191.         % Stack: mark str ... file length newstrlen newstr
  192.     4 1 roll sub
  193.       } loop
  194.       counttomark 1 add 1 roll ]
  195.     } ifelse
  196.     /GlyphData exch def
  197.     dup currentfile eq { pop } { closefile } ifelse
  198.   } {
  199.         % File is positionable and binary, just save a pointer.
  200.         % Stack: (Binary) length -mark- pos
  201.     /GlyphData 0 def
  202.     exch pop 3 -1 roll pop exch
  203.         % Stack: pos length
  204.     /DataSource currentfile 2 index () .subfiledecode true .reusablestream def
  205.     currentfile 3 1 roll add setfileposition
  206.   } ifelse
  207.   /SubrCache 10 dict def
  208.   CIDFontName currentdict /CIDFont defineresource pop
  209.   end            % CID font dict
  210.   end            % resource category dict
  211. } bind def
  212.  
  213. % Some Adobe fonts include the line
  214. %   /Setup /cid_Setup load def
  215. % This is apparently included only to prevent proper, conforming PostScript
  216. % interpreters (as opposed to ATM or a special Adobe font loader) from
  217. % loading the font, since Setup is not referenced anywhere else in the file.
  218. /cid_Setup { } def
  219.  
  220. % ------ Generic ------ %
  221.  
  222. % Read a string at a given offset in a "file" (binary file or
  223. % GlyphData in RAM).
  224. /ReadString {        % <pos> <string> ReadString <string>
  225.   GlyphData 0 eq {
  226.     % Read from the file.
  227.     DataSource 3 -1 roll setfileposition
  228.     DataSource exch readstring pop
  229.   } {
  230.     % Read from a string or an array of strings.
  231.     GlyphData .stringsreadstring
  232.   } ifelse
  233. } bind def
  234. /.stringsreadstring    % <pos> <string> <strings> .stringsreadstring
  235.             %   <vmstring>
  236. { dup type /stringtype eq
  237.    { 3 1 roll length getinterval
  238.    }
  239.    {  {        % Stack: pos string glyphdata
  240.     dup 0 get length dup 4 index gt { exit } if
  241.     4 -1 roll exch sub 3 1 roll
  242.     dup length 1 sub 1 exch getinterval
  243.       }
  244.      loop
  245.         % Stack: pos string glyphdata glyphdata[0]length
  246.         % We know no request can span more than 2 strings.
  247.      3 index 3 index length add 1 index le
  248.       {        % Request fits in a single string: just return a substring.
  249.     pop 0 get 3 1 roll length getinterval
  250.       }
  251.       {        % Request spans 2 strings.  Copy the first part.
  252.     1 index 0 get 4 index 3 -1 roll 1 index sub getinterval
  253.     2 index copy
  254.         % Copy the second part.
  255.         % Stack: pos str glyphdata str1
  256.     length exch 1 get 0 3 index length
  257.     3 index sub getinterval 2 index 3 1 roll putinterval
  258.     exch pop
  259.       }
  260.      ifelse
  261.    }
  262.   ifelse
  263. } bind def
  264.  
  265. % Interpret a byte string as a (big-endian) integer.
  266. /.cvbsi            % <bytes> .cvbsi <int>
  267. { 0 exch { exch 8 bitshift add } forall
  268. } bind def
  269.  
  270. % Read an integer from binary data.
  271. /.readint        % <pos> <nbytes> .readint <int>
  272. { string ReadString .cvbsi
  273. } bind def
  274.  
  275. currentdict end
  276.  
  277. % ---------------- Rendering ---------------- %
  278.  
  279. % ------ CIDFontType 0 ------ %
  280.  
  281. /.readglyphdata {
  282.   currentfont exch .type9mapcid
  283.   FDArray exch get exch
  284. } bind def
  285.  
  286. % BuildGlyph procedure for CIDFontType 0.
  287. % The name %Type9BuildGlyph is known to the interpreter.
  288. /.cid0buildstring 10 string def
  289. (%Type9BuildGlyph) cvn {    % <cidfont> <cid> %Type9BuildGlyph -
  290.   .currentglobal 3 1 roll 1 index gcheck .setglobal
  291.   1 index begin
  292.   dup .readglyphdata dup null eq {
  293.         % Substitute CID 0. **** WRONG ****
  294.     pop pop 0 .readglyphdata
  295.   } if
  296.         % Stack: cidfont cid subfont charstring
  297.   dup null eq { pop pop pop pop } {    %**** WRONG ****
  298.     4 -1 roll pop
  299.     3 1 roll exch dup 4 -1 roll 0 0 moveto
  300.     3 index /FontType get 2 eq { .type2execchar } { .type1execchar } ifelse
  301.   } ifelse    %**** WRONG ****
  302.   end
  303.   .setglobal
  304. } bind def
  305.  
  306. % ------ CIDFontType 2 ------ %
  307.  
  308. % BuildGlyph procedure for CIDFontType 2.
  309. % The name %Type11BuildGlyph is known to the interpreter.
  310. (%Type11BuildGlyph) cvn {    % <cidfont> <cid> %Type11BuildGlyph -
  311.         % We must be prepared for out-of-range CIDs.
  312.   2 copy { .type11mapcid } .internalstopped {
  313.     pop /CharStrings get /.notdef get
  314.   } if
  315.             % Stack: cidfont cid glyphindex
  316.   1 index exch .type42execchar
  317. } bind def
  318.  
  319. % ---------------- Define resources ---------------- %
  320.  
  321. languagelevel exch 2 .setlanguagelevel
  322.  
  323. % Define the CIDInit ProcSet resource.
  324. % The ProcSet dictionary is still on the stack.
  325.  
  326. % We might have loaded CMap support already.  However, Adobe's
  327. % protected font downloader defines a CIDInit ProcSet that will be
  328. % loaded from the filesystem later, so we must check specifically
  329. % for the ProcSet being defined in VM.
  330. /CIDInit /ProcSet 2 copy resourcestatus { pop 0 eq } { false } ifelse {
  331.   pop pop findresource dup length 4 index length add dict .copydict
  332.   4 -1 roll exch .copydict
  333. } {
  334.   3 -1 roll
  335. } ifelse exch defineresource pop
  336.  
  337. % Define the CIDFont resource category.
  338. % We break out .buildcidfont because it appears that at least for
  339. % Type 32 (CIDFontType 4) fonts, the font can be registered in the Font
  340. % category with only a CIDFontType and no FontType.
  341. /.buildcidfont {        % <name> <fontdict> .buildcidfont
  342.                 %   <name> <cidfont>
  343.   systemdict /ProvideUnicode .knownget not { false } if {
  344.     /FontEmulationProcs /ProcSet findresource
  345.     /ProvideUnicodeDecoding get exec
  346.   } if
  347.   dup /CIDFontType get //.cidfonttypes exch get exec
  348. } odef
  349.  
  350. /CIDFont /Generic /Category findresource dup length dict .copydict
  351. dup /InstanceType /dicttype put
  352. dup /DefineResource {
  353.   .buildcidfont
  354.   dup /OrigFont known not {
  355.      dup dup /OrigFont exch .growput  % CPSI does it. Adding just for CET 33_all.PS conformity.
  356.   } if
  357.   dup /PaintType known not {
  358.      dup /PaintType 0 .growput  % CPSI does it. Adding just for CET 33_all.PS conformity.
  359.   } if
  360.   /Generic /Category findresource /DefineResource get exec
  361. } put
  362. % CIDFonts may be defined in CFF OpenType files.
  363. % Check for this here.
  364. /.loadcidfontresource {
  365.   dup .ResourceFile {
  366.     {.loadfont} .execasresource
  367.   } {
  368.     dup /undefinedresource signalerror
  369.   } ifelse
  370. } bind def
  371. dup /.LoadResource {
  372.   currentglobal {
  373.     .loadcidfontresource
  374.   } {
  375.     true setglobal {.loadcidfontresource} stopped false setglobal {stop} if
  376.   } ifelse
  377. } bind put
  378.  
  379. /Category defineresource pop
  380.  
  381. % Add the new FontType resources.
  382.  
  383. 9 1 11 { dup /FontType defineresource pop } for
  384.  
  385. % Add the new FMapType resource.
  386.  
  387. 9 dup /FMapType defineresource pop
  388.  
  389. % Define the CIDMap resource category.
  390. % These aren't documented, but it's clear what they are for:
  391. % to give names to CIDMaps for CIDFontType 2 fonts.
  392.  
  393. /CIDMap /Generic /Category findresource dup length dict .copydict
  394. dup /.CheckResource {
  395.     % Allow a string, an array of strings, or (as of Adobe release 3011)
  396.     % a dictionary.
  397.   dup type dup dup /stringtype eq exch /dicttype eq or {
  398.     pop true
  399.   } {
  400.     dup /arraytype eq exch /packedarraytype eq or {
  401.       true exch { type /stringtype eq and } forall
  402.     } {
  403.       false
  404.     } ifelse
  405.   } ifelse
  406. } bind put
  407. /Category defineresource pop
  408.  
  409. .setlanguagelevel
  410.  
  411. %% Replace 1 (gs_ciddc.ps)
  412. (gs_ciddc.ps) runlibfile
  413.