home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 September / PCWorld_2001-09_cd.bin / Software / Vyzkuste / rychlokurz / gs700w32.exe / gs7.00 / lib / gs_cidfn.ps < prev    next >
Text File  |  2000-12-08  |  13KB  |  394 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.18 2000/12/08 23:35:38 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.         % Hack: the pdfwrite driver relies on finalization to write
  159.         % out fonts.  However, the font may be finalized after the
  160.         % resource file, in which case the resource file will be
  161.         % closed.  So if the current output device is pdfwrite,
  162.         % don't use incremental loading.
  163.     currentdevice .devicename /pdfwrite eq { stop } if
  164.     currentfile fileposition
  165.   } .internalstopped {
  166.         % File is not positionable, or uses hex data.
  167.         % Load the data now.
  168.     cleartomark exch (Hex) eq
  169.       { { currentfile exch readhexstring pop } }
  170.       { { currentfile exch readstring pop } }
  171.     ifelse exch
  172.         % Stack: readproc length
  173.     dup 65400 le {
  174.         % readstring with a 0-length string causes a rangecheck,
  175.         % but a data length of 0 is allowed.
  176.       string dup () ne { 1 index exec } if
  177.     } {
  178.       mark 3 1 roll {
  179.         % Stack: mark str ... readproc length
  180.     dup 0 eq { pop exit } if
  181.     dup 65400 min dup string 3 index exec
  182.         % Stack: mark str ... readproc length newstrlen newstr
  183.     4 1 roll sub
  184.       } loop
  185.       counttomark 1 add 1 roll ]
  186.     } ifelse
  187.     /GlyphData exch def
  188.         % If we were reading hex data, skip past the >.
  189.     2 get { readhexstring } 0 get eq {
  190.       currentfile 0 (>) .subfiledecode dup flushfile closefile
  191.     } if
  192.   } {
  193.         % File is positionable and binary, just save a pointer.
  194.         % Stack: (Binary) length -mark- pos
  195.     /GlyphData 0 def
  196.     exch pop 3 -1 roll pop exch
  197.         % Stack: pos length
  198.     /DataSource currentfile 2 index () .subfiledecode true .reusablestream def
  199.     currentfile 3 1 roll add setfileposition
  200.   } ifelse
  201.   /SubrCache 10 dict def
  202.   CIDFontName currentdict /CIDFont defineresource pop
  203.   end            % CID font dict
  204.   end            % resource category dict
  205. } bind def
  206.  
  207. % Some Adobe fonts include the line
  208. %   /Setup /cid_Setup load def
  209. % This is apparently included only to prevent proper, conforming PostScript
  210. % interpreters (as opposed to ATM or a special Adobe font loader) from
  211. % loading the font, since Setup is not referenced anywhere else in the file.
  212. /cid_Setup { } def
  213.  
  214. currentdict end
  215.  
  216. % ---------------- Rendering ---------------- %
  217.  
  218. % ------ Generic ------ %
  219.  
  220. % Read a string at a given offset in a "file" (binary file or
  221. % GlyphData in RAM).
  222. /ReadString {        % <pos> <string> ReadString <string>
  223.   GlyphData 0 eq {
  224.     % Read from the file.
  225.     DataSource 3 -1 roll setfileposition
  226.     DataSource exch readstring pop
  227.   } {
  228.     % Read from a string or an array of strings.
  229.     GlyphData .stringsreadstring
  230.   } ifelse
  231. } bind def
  232. /.stringsreadstring    % <pos> <string> <strings> .stringsreadstring
  233.             %   <vmstring>
  234. { dup type /stringtype eq
  235.    { 3 1 roll length getinterval
  236.    }
  237.    {  {        % Stack: pos string glyphdata
  238.     dup 0 get length dup 4 index gt { exit } if
  239.     4 -1 roll exch sub 3 1 roll
  240.     dup length 1 sub 1 exch getinterval
  241.       }
  242.      loop
  243.         % Stack: pos string glyphdata glyphdata[0]length
  244.         % We know no request can span more than 2 strings.
  245.      3 index 3 index length add 1 index le
  246.       {        % Request fits in a single string: just return a substring.
  247.     pop 0 get 3 1 roll length getinterval
  248.       }
  249.       {        % Request spans 2 strings.  Copy the first part.
  250.     1 index 0 get 4 index 3 -1 roll 1 index sub getinterval
  251.     2 index copy
  252.         % Copy the second part.
  253.         % Stack: pos str glyphdata str1
  254.     length exch 1 get 0 3 index length
  255.     3 index sub getinterval 2 index 3 1 roll putinterval
  256.     exch pop
  257.       }
  258.      ifelse
  259.    }
  260.   ifelse
  261. } bind def
  262.  
  263. % Interpret a byte string as a (big-endian) integer.
  264. /.cvbsi            % <bytes> .cvbsi <int>
  265. { 0 exch { exch 8 bitshift add } forall
  266. } bind def
  267.  
  268. % Read an integer from binary data.
  269. /.readint        % <pos> <nbytes> .readint <int>
  270. { string ReadString .cvbsi
  271. } bind def
  272.  
  273. % ------ CIDFontType 0 ------ %
  274.  
  275. /.readglyphdata {
  276.   currentfont exch .type9mapcid
  277.   FDArray exch get exch
  278. } bind def
  279.  
  280. % BuildGlyph procedure for CIDFontType 0.
  281. % The name %Type9BuildGlyph is known to the interpreter.
  282. /.cid0buildstring 10 string def
  283. (%Type9BuildGlyph) cvn {    % <cidfont> <cid> %Type9BuildGlyph -
  284.   .currentglobal 3 1 roll 1 index gcheck .setglobal
  285.   1 index begin
  286.   dup .readglyphdata dup null eq {
  287.         % Substitute CID 0. **** WRONG ****
  288.     pop pop 0 .readglyphdata
  289.   } if
  290.         % Stack: cidfont cid subfont charstring
  291.   dup null eq { pop pop pop pop } {    %**** WRONG ****
  292.     4 -1 roll pop
  293.     3 1 roll exch dup 4 -1 roll 0 0 moveto
  294.     3 index /FontType get 2 eq { .type2execchar } { .type1execchar } ifelse
  295.   } ifelse    %**** WRONG ****
  296.   end
  297.   .setglobal
  298. } bind def
  299.  
  300. % ------ CIDFontType 2 ------ %
  301.  
  302. % BuildGlyph procedure for CIDFontType 2.
  303. % The name %Type11BuildGlyph is known to the interpreter.
  304. (%Type11BuildGlyph) cvn {    % <cidfont> <cid> %Type11BuildGlyph -
  305.         % We must be prepared for out-of-range CIDs.
  306.   2 copy { .type11mapcid } .internalstopped {
  307.     pop /CharStrings get /.notdef get
  308.   } if
  309.             % Stack: cidfont cid glyphindex
  310.   1 index exch .type42execchar
  311. } bind def
  312.  
  313. % ---------------- Define resources ---------------- %
  314.  
  315. languagelevel exch 2 .setlanguagelevel
  316.  
  317. % Define the CIDInit ProcSet resource.
  318. % The ProcSet dictionary is still on the stack.
  319.  
  320. % We might have loaded CMap support already.  However, Adobe's
  321. % protected font downloader defines a CIDInit ProcSet that will be
  322. % loaded from the filesystem later, so we must check specifically
  323. % for the ProcSet being defined in VM.
  324. /CIDInit /ProcSet 2 copy resourcestatus { pop 0 eq } { false } ifelse {
  325.   pop pop findresource dup length 4 index length add dict .copydict
  326.   4 -1 roll exch .copydict
  327. } {
  328.   3 -1 roll
  329. } ifelse exch defineresource pop
  330.  
  331. % Define the CIDFont resource category.
  332. % We break out .buildcidfont because it appears that at least for
  333. % Type 32 (CIDFontType 4) fonts, the font can be registered in the Font
  334. % category with only a CIDFontType and no FontType.
  335. /.buildcidfont {        % <name> <fontdict> .buildcidfont
  336.                 %   <name> <cidfont>
  337.   dup /CIDFontType get //.cidfonttypes exch get exec
  338. } odef
  339.  
  340. /CIDFont /Generic /Category findresource dup length dict .copydict
  341. dup /InstanceType /dicttype put
  342. dup /DefineResource {
  343.   .buildcidfont
  344.   /Generic /Category findresource /DefineResource get exec
  345. } put
  346. % CIDFonts may be defined in CFF OpenType files.
  347. % Check for this here.
  348. /.loadcidfontresource {
  349.   dup .ResourceFile {
  350.     {.loadfont} .execasresource
  351.   } {
  352.     dup /undefinedresource signalerror
  353.   } ifelse
  354. } bind def
  355. dup /.LoadResource {
  356.   currentglobal {
  357.     .loadcidfontresource
  358.   } {
  359.     true setglobal {.loadcidfontresource} stopped false setglobal {stop} if
  360.   } ifelse
  361. } bind put
  362.  
  363. /Category defineresource pop
  364.  
  365. % Add the new FontType resources.
  366.  
  367. 9 1 11 { dup /FontType defineresource pop } for
  368.  
  369. % Add the new FMapType resource.
  370.  
  371. 9 dup /FMapType defineresource pop
  372.  
  373. % Define the CIDMap resource category.
  374. % These aren't documented, but it's clear what they are for:
  375. % to give names to CIDMaps for CIDFontType 2 fonts.
  376.  
  377. /CIDMap /Generic /Category findresource dup length dict .copydict
  378. dup /.CheckResource {
  379.     % Allow a string, an array of strings, or (as of Adobe release 3011)
  380.     % a dictionary.
  381.   dup type dup dup /stringtype eq exch /dicttype eq or {
  382.     pop true
  383.   } {
  384.     dup /arraytype eq exch /packedarraytype eq or {
  385.       true exch { type /stringtype eq and } forall
  386.     } {
  387.       false
  388.     } ifelse
  389.   } ifelse
  390. } bind put
  391. /Category defineresource pop
  392.  
  393. .setlanguagelevel
  394.