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