home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 September / PCWorld_2001-09_cd.bin / Software / Vyzkuste / rychlokurz / gs700w32.exe / gs7.00 / lib / cid2code.ps < prev    next >
Text File  |  2000-11-30  |  5KB  |  163 lines
  1. %    Copyright (C) 1998, 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: cid2code.ps,v 1.3 2000/11/30 18:22:11 lpd Exp $
  19. % Construct an inverse map from CIDs to codes.
  20.  
  21. % Create an inverse map from CIDs to code values.
  22. % We only use this for 16-bit Unicode, so it has some limitations.
  23. % After invoking .cmap2code, loading a CMap file prints out the map
  24. % instead of doing what it usually does.  For example:
  25. %
  26. %    gs -dNODISPLAY -dBATCH lib/cid2code.ps -c .cmap2code\
  27. %      -f Resource/CMap/UniJIS-UCS2-H > mapfile
  28.  
  29. /.cmap2codedict 10 dict begin
  30.  
  31. /begincmap {
  32.   mark
  33. } def
  34. /endcmap {
  35.         % Stack: mark code_lo1 code_hi1 cid1 ...
  36.   20 dict begin
  37.     /depth counttomark 3 sub def
  38.         % Do a first pass to determine the maximum CID.
  39.     0 0 3 depth {
  40.       1 add /d exch def
  41.       d index d 2 add index 1 get add d 3 add index 1 get sub .max
  42.     } for
  43.     1 add /ncid exch def
  44.     /map ncid 2 mul string def
  45.         % Now fill in the map.
  46.     0 3 depth {
  47.       /d exch def
  48.       d index 2 mul /cid2 exch def
  49.       d 1 add index /hi exch def
  50.       d 2 add index 2 string copy /lo exch def
  51.       lo 1 get 1 hi 1 get {
  52.     map cid2 lo 0 get put
  53.     map cid2 1 add 3 -1 roll put
  54.     /cid2 cid2 2 add def
  55.       } for
  56.     } for
  57.         % Print the map.
  58.     (%stdout) (w) file
  59.       dup (<) print
  60.       dup /ASCIIHexEncode filter
  61.     dup map writestring
  62.       closefile
  63.       () = flush
  64.     closefile
  65.   end
  66. } def
  67. %/begincodespacerange
  68. /endcodespacerange {cleartomark} def
  69. %/usecmap
  70.  
  71. %/beginbfchar
  72. /endbfchar {cleartomark} def
  73. %/beginbfrange
  74. /endbfrange {cleartomark} def
  75.  
  76. %/begincidchar
  77. /endcidchar {
  78.   counttomark 2 idiv { dup counttomark 1 add 3 roll } repeat pop
  79. } def
  80. %/begincidrange
  81. /endcidrange {
  82.   counttomark 1 add -1 roll pop
  83. } def
  84.  
  85. %/beginnotdefchar
  86. /endnotdefchar {cleartomark} def
  87. %/beginnotdefrange
  88. /endnotdefrange {cleartomark} def
  89.  
  90. currentdict end readonly def
  91.  
  92. /.cmap2code {        % - .cmap2code -
  93.   /CIDInit /ProcSet findresource dup length dict copy
  94.   .cmap2codedict { 3 copy put pop pop } forall
  95.   /CIDInit exch /ProcSet defineresource pop
  96. } def
  97.  
  98. % Extract and print reverse mapping information from a cid2code.txt file.
  99. /.printhex2 {        % <int16> .printhex2 -
  100.   (<) print
  101.   16#10000 add 16 =string cvrs 1 4 getinterval print
  102.   (>) print
  103. } def
  104. /.cid2code {        % <cmaptemplate> <file> <column> .cid2code -
  105.   30 dict begin
  106.   /column exch def
  107.   (r) file /f exch def
  108.   (%!) =
  109.   (/CIDInit /ProcSet findresource begin   12 dict begin   begincmap) =
  110.         % Print the information from the template.
  111.   {
  112.     exch ==only ( ) print
  113.     dup type /dicttype eq {
  114.       dup length =only ( dict dup begin) = {
  115.     (  ) print exch ===only ( ) print ===only ( def) =
  116.       } forall (end def) =
  117.     } {
  118.       ===only
  119.     } ifelse ( def) =
  120.   } forall
  121.         % Read the data from the cid2code.txt file.
  122.   {
  123.     f =string readline pop (CID\t) anchorsearch { pop pop exit } if pop
  124.   } loop
  125.   /map [ {
  126.     f =string readline not { pop exit } if
  127.     column { (\t) search pop pop pop } repeat
  128.     (\t) search { exch pop exch pop } if
  129.     (,) search { exch pop exch pop } if
  130.     dup length 4 ne { pop (*) } if
  131.     dup (*) eq { pop (0000) } if
  132.     (16#) exch concatstrings cvi
  133.   } loop ] def
  134.         % Print the code space range(s).
  135.   /maxcid map length 1 sub def
  136.   mark maxcid
  137.   dup 255 and 255 eq {
  138.     0 exch
  139.   } {
  140.     dup 16#ff00 and exch 0 2 index 1 sub
  141.   } ifelse
  142.   counttomark 2 idiv dup =only ( begincodespacerange) = {
  143.     exch .printhex2 .printhex2 () =
  144.   } repeat (endcodespacerange) =
  145.         % Print the map data.
  146.   0 1 100 maxcid {
  147.     /lo exch def
  148.     /hi lo 99 add maxcid .min def
  149.     0 lo 1 hi { map exch get 0 ne { 1 add } if } for
  150.     dup 0 eq {
  151.       pop
  152.     } {
  153.       =only ( begincidchar) = lo 1 hi {
  154.     map 1 index get dup 0 eq { pop pop } { exch .printhex2 = } ifelse
  155.       } for (endcidchar) =
  156.     } ifelse
  157.   } for
  158.         % Wrap up.
  159.   (endcmap   CMapName currentdict /CMap defineresource pop   end   end) =
  160.   f closefile
  161.   end
  162. } bind def
  163.