home *** CD-ROM | disk | FTP | other *** search
/ jppd.dyndns.org / jppd.dyndns.org.tar / jppd.dyndns.org / QUERYPRO / Impressora_PDF / converter.exe / GPLGS / gs_ciddc.ps < prev    next >
Text File  |  2003-12-13  |  7KB  |  197 lines
  1. %    Copyright (C) 1994, 1996, 1997, 1998, 1999, 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_ciddc.ps,v 1.11.2.1 2003/12/12 22:07:58 giles Exp $
  17. % Define Decoding and CIDDecoding resource categories and related procsets.
  18.  
  19. languagelevel 2 .setlanguagelevel
  20. currentglobal true setglobal
  21.  
  22. %----------------ParseDecoding procset----------------------------
  23.  
  24. /ParseDecoding <<
  25.  
  26. /Parse    % <resource_name> <num_tokens> Parse -
  27. { dict begin                                  % /ResName
  28.   0                                           % /ResName nCode
  29.   { currentfile token not {
  30.       exit
  31.     } if                                      % /ResName nCode token
  32.     dup type /integertype eq {                % /ResName nCode
  33.        exch pop
  34.     } {
  35.       1 index def                             % /ResName nCode
  36.     } ifelse
  37.   } loop                                      % /ResName nCode
  38.   pop                                         % /ResName
  39.   currentdict end /Decoding                   % /ResName <<inst>> /Decoding
  40.   defineresource pop
  41. } bind
  42.  
  43. >> /ProcSet defineresource pop
  44.  
  45. %----------------Decoding category----------------------------
  46.  
  47. /Generic /Category findresource dup length dict copy
  48. dup /InstanceType /dicttype put
  49. /Decoding exch /Category defineresource pop
  50.  
  51. %----------------ParseCMap_Inverse procset----------------------------
  52.  
  53. /ParseCMap_Inverse <<
  54.   /findresource { pop } bind
  55.   /defineresource { pop pop } bind
  56.   /dict {}
  57.   /def { pop pop } bind
  58.   /dup null
  59.   /begin { pop } bind
  60.   /end {}
  61.   /currentdict null
  62.   /CMapName null
  63.   /usecmap { pop } bind
  64.   /begincmap {}
  65.   /endcmap {}
  66.   /begincodespacerange { pop mark } bind
  67.   /endcodespacerange { cleartomark } bind
  68.   /beginnotdefrange { pop mark } bind
  69.   /endnotdefrange { cleartomark } bind
  70.   /beginbfchar { pop mark } bind
  71.   /endbfchar { pop mark } bind
  72.   /beginbfrange { begincidrange }
  73.   /endbfrange { endcidrange }
  74.   /begincidchar { beginbfchar }
  75.   /endcidchar { endbfchar }
  76.   /begincidrange { pop mark } bind
  77.   /endcidrange  { cleartomark } bind
  78. >>  % Just keep it on stack for a while.
  79.  
  80. % Now we define another dict for local binding, than merge it with the previous one :
  81. dup length 5 add dict begin
  82.  
  83.   /.Ranges 40 dict def % Key = CID/256, value = array of 256 integer codes.
  84.   //.Ranges /CIDCount 0 put
  85.  
  86.   /.StringToInt     % <string> .StringToInt <integer>
  87.   { 0 exch { exch 8 bitshift add } forall
  88.   } bind def
  89.  
  90.   /.SetCouple    % <I> <b> .SetCouple -
  91.   { exch                                    % b I
  92.     dup 256 idiv                            % b I I0
  93.     dup //.Ranges exch known not {
  94.       dup //.Ranges exch 256 array put
  95.     } if                                    % b I I0
  96.     //.Ranges exch get                      % b I [Range]
  97.     exch 256 mod                            % b [Range] I1
  98.     3 2 roll put                            %
  99.   } bind def
  100.  
  101.   /endcidrange
  102.   { % Writes the inversed CMap to .Ranges
  103.     counttomark 3 idiv {                    % (b) (e) I
  104.       exch .StringToInt                     % (b) I e
  105.       3 2 roll .StringToInt                 % I e b
  106.       % Note : this code does't handle multidimentional CID ranges.
  107.       % fixme : optimize below.
  108.       dup 3 2 roll exch sub 1 add           % I b d
  109.       { 2 copy //.SetCouple exec            % I b
  110.         1 add exch 1 add exch
  111.       } repeat                              % I b
  112.       pop                                   % I
  113.       dup //.Ranges /CIDCount get gt {      % I
  114.         dup //.Ranges exch /CIDCount exch put
  115.       } if                                  % I
  116.       pop
  117.     } repeat
  118.     pop % mark
  119.   } bind def
  120.  
  121.   /.GetCIDDecoding         % - .GetCIDDEcoding <dict>
  122.   { //.Ranges dup length dict copy
  123.     //.Ranges //.PurgeDict exec
  124.     //.Ranges /CIDCount 0 put
  125.   } bind def
  126.  
  127. currentdict end
  128. exch copy % Merge the dicts - see above.
  129. /ProcSet defineresource pop
  130.  
  131. %----------------CIDDecoding category----------------------------
  132. % Note that we put all instances in global memory - see FindResource.
  133.  
  134. /Generic /Category findresource dup length dict copy
  135. begin
  136.   /Category /CIDDecoding def
  137.   /InstanceType /dicttype def
  138.  
  139.   /.CMapChooser <<
  140.     % This lists CMaps to inverse and unite for creating a CIDDecoding.
  141.     % Choose by FAPIcidfmap.Registry concatenated with TrueType encoding ID.
  142.     % Font renderer must provide the glyph substitution internally.
  143.  
  144.     /CNS1.Big5       [ /ETen-B5-H /ETen-B5-V ]
  145.     /CNS1.Unicode    [ /UniCNS-UCS2-H /UniCNS-UCS2-V]
  146.     /GB1.GB2312      [ /GBK-EUC-H /GBK-EUC-V ]
  147.     /GB1.Unicode     [ /UniGB-UCS2-H /UniGB-UCS2-V ]
  148.     /Japan1.ShiftJIS [ /90ms-RKSJ-H /90ms-RKSJ-V ]
  149.     /Japan1.Unicode  [ /UniJIS-UCS2-H  /UniJIS-UCS2-V]
  150.     /Japan2.ShiftJIS [ /90ms-RKSJ-H /90ms-RKSJ-V ]
  151.     /Japan2.Unicode  [ /UniHojo-UCS2-H ]
  152.     /Korea1.Johab    [ /KSC-Johab-V /KSC-Johab-H ]
  153.     /Korea1.Wansung  [ /KSCms-UHC-V /KSCms-UHC-H ]
  154.     /Korea1.Unicode  [ /UniKS-UCS2-H /UniKS-UCS2-V ]
  155.   >> def
  156.  
  157.   /.MakeInstance    % <name> .MakeInstance <inst>
  158.   { dup                                              % /Name /Name
  159.     //.CMapChooser exch .knownget not {
  160.       (Can't build /) print =string cvs print ( /CIDDecoding resource. See gs_ciddc.ps . ) =
  161.       /findresource cvx /undefinedresource signalerror
  162.     } if                                             % /Name [CMaps]
  163.     exch pop                                         % [CMaps]
  164.     /CMap /Category findresource                     % [CMaps] <CMapCategory>
  165.     /ParseCMap_Inverse /ProcSet findresource         % [CMaps] <CMapCategory> <PCI>
  166.     3 2 roll {                                       % <CMapCategory> <PCI> /CMapName
  167.       3 2 roll begin                                 % <PCI> /CMapName
  168.       dup .ResourceFile not {
  169.         (Can't find CMap ) print =string cvs print ( building a CIDDecoding resource. ) =
  170.         /findresource cvx /undefinedresource signalerror
  171.       } if
  172.       currentdict end exch                           % <PCI> /CMapName <CMapCategory> file
  173.  
  174.       3 index begin
  175.       cvx exec                                       % <PCI> /CMapName <CMapCategory>
  176.       end
  177.       exch pop exch                                  % <CMapCategory> <PCI>
  178.     } forall
  179.     exch pop begin                                   %
  180.     .GetCIDDecoding
  181.     end
  182.   } bind def
  183.  
  184.   /FindResource      % <name> FindResource <dict>
  185.   { currentglobal exch                               % bGlobal /InstName
  186.     true setglobal
  187.     dup //.MakeInstance exec                         % bGlobal /InstName <Inst>
  188.     DefineResource                                   % bGlobal <Inst>
  189.     exch setglobal                                   % <Inst>
  190.   } bind def
  191.  
  192. currentdict end
  193. /CIDDecoding exch /Category defineresource pop
  194.  
  195. setglobal
  196. .setlanguagelevel
  197.