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_cmap.ps < prev    next >
Text File  |  2000-12-05  |  12KB  |  377 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_cmap.ps,v 1.6.2.1 2000/10/17 15:54:50 rayjj Exp $
  19. % ProcSet for implementing CMap resources.
  20. % When this is run, systemdict is still writable.
  21.  
  22. % NOTE: Rearranged fonts are not implemented yet.
  23.  
  24. % ---------------- Public operators ---------------- %
  25.  
  26. % composefont doesn't appear in CMap files -- it's documented in
  27. % the "PostScript Language Reference Manual Supplement".
  28. /composefont {        % <name> <cmap|cmapname> <fonts> composefont <font>
  29.   10 dict begin
  30.     /CMap 2 index dup type /dicttype ne { /CMap findresource } if def
  31.     /FDepVector 1 index cvlit def    % temporarily
  32.     /Encoding [ 0 1 FDepVector length 1 sub { } for ] def
  33.     /FDepVector [ 0 1 FDepVector length 1 sub {
  34.         % Stack: name cmap[name] fonts /FDepVector [ fonts... i
  35.       FDepVector 1 index get
  36.       dup type /dicttype ne {
  37.     dup /CIDFont resourcestatus {
  38.       pop pop /CIDFont
  39.     } {
  40.       /Font
  41.     } ifelse findresource
  42.       } if
  43.       exch CMap /FontMatrices get dup length 2 index gt {
  44.     exch get dup null eq { pop } { makefont } ifelse
  45.       } {
  46.     pop pop
  47.       } ifelse
  48.     } for ] readonly def
  49.     /FMapType 9 def
  50.     /FontMatrix matrix def
  51.     /FontName 3 index def
  52.     CMap /WMode .knownget { /WMode exch def } if
  53.     /FontType 0 def
  54.   pop pop currentdict end /Font defineresource
  55. } bind odef
  56.  
  57. % ---------------- CMap operators ---------------- %
  58.  
  59. 40 dict begin
  60.  
  61. % Our internal .CodeMapData structure closely mirrors the structures
  62. % defined in gxfcmap.h (q.v.).  () indicate a string, [] indicate an array,
  63. % ? indicates a Boolean, # indicates an integer, {} for grouping.
  64. %    [[(first) (last) ...]        % code space ranges
  65. %     [(prefix) (key_size,?is_range,value_type,value_size) (keys...)
  66. %       {(values...) | [value ...]} #font_index    % code mappings
  67. %      ...]
  68. %     <<same>>        % notdef mappings
  69. %    ]
  70. % FontMatrices is the array of matrices defined by begin/endusematrix.
  71. % All of the arrays and strings are read-only after they have been built.
  72. %
  73. % Note that the code in zfcmap.c that constructs the C structures from
  74. % the PostScript structures has intimate knowledge of the above format.
  75.  
  76. % ****** NOTE: The code currently only handles "well-behaved" CMaps:
  77. %    - CID values only (no bfchars), 16-bit
  78. %    - Entries (both code space and map) must be sorted
  79. %    - Only the last byte must vary in each map range, except for
  80. %    the identity mapping
  81.  
  82. % ------ Font-level operators ------ %
  83.  
  84. /begincmap {        % - begincmap -
  85.   /.CodeMapData [[] [] []] def
  86.   /FontMatrices [] def
  87.   /.FontIndex 0 def
  88.   /.TempMaps [20 dict 50 dict 50 dict] def
  89.   /CodeMap null def        % for .buildcmap
  90. } bind def
  91. /endcmap {        % - endcmap -
  92.   10 dict begin 0 1 2 {
  93.     /i exch def
  94.         % Append data from .TempMaps to .CodeMapData.
  95.     /t .TempMaps i get def
  96.     .CodeMapData i get length t { exch pop length add } forall
  97.     array /a exch def
  98.     a 0 .CodeMapData i get .putmore
  99.     0 1 t length 1 sub {
  100.       t exch get .putmore
  101.     } for pop pop
  102.     .CodeMapData i a put
  103.   } for end
  104.   currentdict /.TempMaps undef
  105.   /.CodeMapData .CodeMapData .endmap def
  106.   /FontMatrices FontMatrices .endmap def
  107. } bind def
  108.  
  109. /.putmore {        % <array> <i> <array2> .putmore <array> <i+len(array2)>
  110.   3 copy putinterval length add
  111. } bind def
  112.  
  113. /.endmap {        % <map> .endmap <map>
  114.   dup type /arraytype eq {
  115.     % This might be a shared read-only array inherited via usecmap.
  116.     % Don't try to update its elements if this is the case.
  117.     dup wcheck {
  118.       0 1 2 index length 1 sub {
  119.     2 copy 2 copy get .endmap put pop
  120.       } for readonly
  121.     } if
  122.   } {
  123.     dup type /stringtype eq { readonly } if
  124.   } ifelse
  125. } bind def
  126.  
  127. /.appendmap {        % -mark- <elt> ... <array#> .appendmap -
  128.   .TempMaps exch get counttomark 1 add 1 roll
  129.   ] 1 index length exch put
  130. } bind def
  131.  
  132. /begincodespacerange {    % <count> begincodespacerange -
  133.   pop mark
  134. } bind def
  135. /endcodespacerange {    % <code_lo> <code_hi> ... endcodespacerange -
  136.   0 .appendmap
  137. } bind def
  138.  
  139. /usecmap {        % <CMap_name> usecmap -
  140.   /CMap findresource dup
  141.         % Copy the top level of .CodeMapData
  142.   /.CodeMapData exch /.CodeMapData get copyarray def
  143.   /FontMatrices exch /FontMatrices get copyarray def
  144. } bind def
  145.  
  146. /usefont {        % <fontID> usefont -
  147.   /.FontIndex exch def
  148. } bind def
  149.  
  150. /beginusematrix {    % <fontID> beginusematrix -
  151.   FontMatrices wcheck not FontMatrices length 2 index le or {
  152.     FontMatrices length 1 index 1 add .max array
  153.     dup 0 FontMatrices putinterval
  154.     /FontMatrices exch def
  155.   } if
  156. } bind def
  157. /endusematrix {        % <matrix> endusematrix -
  158.   FontMatrices 3 1 roll put
  159. } bind def
  160.  
  161. % ------ Rearranged font operators ------ %
  162.  
  163. /beginrearrangedfont {    % <font_name> <font*> beginrearrangedfont -
  164.   10 dict begin
  165.   /.FontNames exch def
  166.   /.FontName exch def
  167.   begincmap
  168. } bind def
  169. /endrearrangedfont {    % - endrearrangedfont -
  170.   (REARRANGED FONTS NOT IMPLEMENTED YET.) = flush
  171.   FontName .FontNames 0 get findfont end definefont pop
  172. } bind def
  173.  
  174. % ------ Character name/code selector operators ------ %
  175.  
  176. /beginbfchar {        % <count> beginbfchar -
  177.   pop mark
  178. } bind def
  179. /endbfchar {        % <code> <to_code|charname> ... endbfchar
  180.   counttomark 2 idiv {
  181.     counttomark -2 roll        % process in correct order
  182.     .addbfchar
  183.   } repeat 1 .appendmap
  184. } bind def
  185.  
  186. /beginbfrange {        % <count> beginbfrange -
  187.   pop mark
  188. } bind def
  189. /endbfrange {        % <code_lo> <code_hi> <to_code|(charname*)> ...
  190.             %   endbfrange -
  191.   counttomark 3 idiv {
  192.     counttomark -3 roll        % process in correct order
  193.     dup type dup /arraytype eq exch /packedarraytype eq or {
  194.             % Array value, split up.
  195.       exch pop {
  196.             % Stack: code to_code|charname
  197.     1 index exch .addbfchar
  198.             % Increment the code.  As noted above, we require
  199.             % that only the last byte vary, but we still must
  200.             % mask it after incrementing, in case the last
  201.             % value was 0xff.
  202.             % Stack: code prefix params key value fontindex
  203.     6 -1 roll dup length string copy
  204.     dup dup length 1 sub 2 copy get 1 add 255 and put
  205.       } forall pop
  206.     } {
  207.             % Single value, handle directly.
  208.       .addbfrange
  209.     } ifelse
  210.   } repeat 1 .appendmap
  211. } bind def
  212.  
  213. /.addbfchar {        % <code> <to_code|charname> .addbfchar
  214.             %   <prefix> <params> <key> <value> <font_index>
  215.   1 index exch .addbfrange
  216. } bind def
  217. /.addbfrange {        % <code_lo> <code_hi> <to_code|charname>
  218.             %   .addbfrange <<same as .addbfchar>>
  219.   4 string dup 3
  220.   3 index type /nametype eq {
  221.     2 index 2 1 put
  222.     4 -1 roll 1 array astore 4 1 roll 4
  223.   } {
  224.     2 index 2 2 put
  225.     3 index length
  226.   } ifelse put
  227.             % Stack: code_lo code_hi value params
  228.   3 index 3 index eq {
  229.             % Single value.
  230.     3 -1 roll pop exch () exch
  231.   } {
  232.             % Range.
  233.     dup 0 1 put dup 1 1 put
  234.     4 2 roll
  235.     dup dup length 1 sub 0 exch getinterval 5 1 roll    % prefix
  236.             % Stack: prefix value params code_lo code_hi
  237.     2 { exch dup length 1 sub 1 getinterval } repeat concatstrings
  238.     3 -1 roll
  239.   } ifelse
  240.   .FontIndex
  241. } bind def
  242.  
  243. % ------ CID selector operators ------ %
  244.  
  245. /begincidchar {        % <count> begincidchar -
  246.   pop mark
  247. } bind def
  248. /endcidchar {        % <code> <cid> ... endcidchar -
  249.   1 .endmapchars
  250. } bind def
  251.  
  252. /begincidrange {    % <count> begincidrange -
  253.   pop mark
  254. } bind def
  255. /endcidrange {        % <code_lo> <code_hi> <cid_base> ... endcidrange -
  256.   1 .endmapranges
  257. } bind def
  258.  
  259. /.endmapchars {        % -mark- <code> <cid> ... <map#> .endmapchars -
  260.   counttomark 1 add 1 roll
  261.   counttomark 2 idiv {
  262.     counttomark -2 roll        % process in correct order
  263.         % Construct prefix, params, key, value, font_index
  264.     <00 00 00 02> ()    % params, key
  265.     3 -1 roll .endmapvalue
  266.   } repeat
  267.   counttomark 2 add -1 roll .appendmap
  268. } bind def
  269.  
  270. /.endmapranges {    % -mark- <code_lo> <code_hi> <cid_base> ... <map#>
  271.             %   .endmapranges -
  272.   2 dict begin /merge false def
  273.   counttomark 1 add 1 roll
  274.   counttomark 3 idiv {
  275.     counttomark -3 roll        % process in correct order
  276.         % Construct prefix, params, key_lo, key_hi, value, font_index
  277.     3 1 roll dup length 1 eq {
  278.       exch 0 get exch 0 get 1 exch {
  279.         % Stack: cid code
  280.     1 string dup 0 4 -1 roll put    % prefix
  281.     <00 00 00 02> ()    % params, keys
  282.     3 index .endmapvalue
  283.     6 -1 roll 1 add
  284.       } for pop
  285.       /merge false def
  286.     } {
  287.         % Hack: handle 16-bit single-range mappings specially.
  288.       counttomark 3 eq 1 index length 2 eq and {
  289.     () 3 1 roll    % prefix
  290.     <02 01 00 02>    % params
  291.     3 1 roll    % keys
  292.     concatstrings 4 -1 roll .endmapvalue
  293.     /merge false def
  294.       } {
  295.     exch dup dup length 1 sub 0 exch getinterval    % prefix
  296.     <01 01 00 02>    % params
  297.     3 -1 roll dup length 1 sub 1 getinterval    % key_lo
  298.     4 -1 roll dup length 1 sub 1 getinterval    % key_hi
  299.     concatstrings 4 -1 roll .endmapvalue
  300.         % See if we can merge with the previous value.
  301.         % Stack: prefix params keys value fontindex
  302.     merge {
  303.       4 index 10 index eq 1 index 7 index eq and {
  304.         pop 4 2 roll pop pop
  305.         % Stack: prefix params keys value fontindex keys2 value2
  306.         5 -1 roll 3 -1 roll concatstrings
  307.         % Stack: prefix params value fontindex value2 keys'
  308.         4 -1 roll 3 -1 roll concatstrings
  309.         % Stack: prefix params fontindex keys' values'
  310.         3 -1 roll
  311.       } if
  312.     } if
  313.     /merge true def
  314.       } ifelse
  315.     } ifelse
  316.   } repeat
  317.   counttomark 2 add -1 roll .appendmap end
  318. } bind def
  319.  
  320. /.endmapvalue {        % <cid> .endmapvalue (hi,lo) .FontIndex
  321.   2 string dup 0 3 index -8 bitshift put    % value
  322.   dup 1 4 -1 roll 255 and put
  323.   .FontIndex        % font_index
  324. } bind def
  325.  
  326. % ------ notdef operators ------ %
  327.  
  328. /beginnotdefchar {    % <count> beginnotdefchar -
  329.   pop mark
  330. } bind def
  331. /endnotdefchar {    % <code> <cid> ... endnotdefchar -
  332.   2 .endmapchars
  333. } bind def
  334.  
  335. /beginnotdefrange {    % <count> beginnotdefrange -
  336.   pop mark
  337. } bind def
  338. /endnotdefrange {    % <code_lo> <code_hi> <cid> ... endnotdefrange -
  339.   2 .endmapranges
  340. } bind def
  341.  
  342. % ---------------- Resource category definition ---------------- %
  343.  
  344. currentdict end
  345.  
  346. languagelevel exch 2 .setlanguagelevel
  347.  
  348. /CMap /Generic /Category findresource dup length dict .copydict
  349. dup /InstanceType /dicttype put
  350. dup /DefineResource {
  351.         % The AdobePS5 Windows driver emits code that attempts to
  352.         % create CMaps without the require CMapName entry.
  353.         % Work around this here.
  354.   dup /CMapName known not {
  355.     dup wcheck not {
  356.       .currentglobal exch dup wcheck .setglobal
  357.       dup length dict .copydict exch .setglobal
  358.     } if
  359.     dup gcheck 2 index gcheck not and {
  360.       exch .currentglobal exch true .setglobal
  361.       dup length string copy exch .setglobal exch
  362.     } if dup /CMapName 3 index put
  363.   } if
  364.   dup /CodeMap get null eq { .buildcmap } if
  365.   /Generic /Category findresource /DefineResource get exec
  366. } put
  367. /Category defineresource pop
  368.     % We might have loaded CID font support already.
  369. /CIDInit /ProcSet 2 copy { findresource } .internalstopped
  370.     % An interior `stopped' might have reset VM allocation to local.
  371. true .setglobal
  372.  { pop pop 3 -1 roll }
  373.  { dup length 4 index length add dict .copydict 4 -1 roll exch .copydict }
  374. ifelse exch defineresource pop
  375.  
  376. .setlanguagelevel
  377.