home *** CD-ROM | disk | FTP | other *** search
/ jppd.dyndns.org / jppd.dyndns.org.tar / jppd.dyndns.org / QUERYPRO / Impressora_PDF / converter.exe / GPLGS / gs_cidfm.ps < prev    next >
Text File  |  2004-09-14  |  5KB  |  125 lines
  1. %    Copyright (C) 2000 artofcode LLC.  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_cidfm.ps,v 1.5.2.1 2004/09/13 07:22:23 igor Exp $
  17. % Redefine CIDFont category with cidfmap .
  18.  
  19. languagelevel 2 .setlanguagelevel
  20.  
  21. 4 dict begin
  22. /CategoryName /CIDFont def
  23.  
  24. /MapFileName (cidfmap) def
  25.  
  26. /IsMyRecord      % <raw_record> -> <raw_record> bool
  27. { % Only for client's needs.
  28.   dup type /nametype eq
  29. } bind def
  30.  
  31. /RecordVirtualMethods 3 dict begin
  32.  
  33.   /MakeInstance   % <Name> <record> MakeInstance <Name> <Instance> <size>
  34.   { % We know that currentdict is the category.
  35.     /Substitute get FindResource            % /Name <<CIDFont>>
  36.     dup length dict copy                    % /Name <<CIDFont>>
  37.     1 index ResourceStatus pop exch pop     % /Name <<CIDFont>> size
  38.   } bind def
  39.  
  40.   /GetFilePath  % <scratch> <Name> <record> GetFilePath <filepath>
  41.   { % We know that currentdict is the category.
  42.     exch pop
  43.     /Substitute get exch ResourceFileName
  44.   } bind def
  45.  
  46.   /GetSize   % <Name> <record> GetSize <size>
  47.   { % We know that currentdict is the category.
  48.     /Substitute get ResourceStatus {
  49.       exch pop exch pop
  50.     } {
  51.       /undefinedresource signalerror
  52.     } ifelse
  53.   } bind def
  54.  
  55.   /GetCSI   % <record> GetCSI null
  56.   { pop null
  57.   } bind def
  58.  
  59.   /IsActive % <record> IsActive <bool>
  60.   { pop true
  61.   } bind def
  62.  
  63. currentdict end def
  64.  
  65. /VerifyMap  % <raw_map> VerifyMap -
  66. { % Checks for vicious substitution cycles.
  67.   dup length dict copy                  % <<map>>
  68.   dup length dict                       % <<map>> <<temp>>
  69.   { % Choose a random record :
  70.     true 2 index {                      % <<map>> <<temp>> true /Name /Subs
  71.       3 2 roll pop false exit           % <<map>> <<temp>> /Name /Subs false
  72.     } forall
  73.     { exit                              % <<map>> <<temp>>
  74.     } if                                % <<map>> <<temp>> /Name /Subs
  75.     % Move the substitution chain to <<temp>>, checking for a cycle :
  76.     3 index 2 index undef               % <<map>> <<temp>> /Name /Subs
  77.     exch 2 index exch 0 put             % <<map>> <<temp>> /Subs
  78.     { //IsMyRecord exec not {
  79.         % Not a substitution, the chain terminates.
  80.         pop exit                        % <<map>> <<temp>>
  81.       } if                              % <<map>> <<temp>> /Subs
  82.       1 index 1 index known {
  83.         (Vicious substitution cycle in map file with the entry ) print =string cvs print ( .) =
  84.         /VerifyMap cvx /undefinedresource signalerror
  85.       } if                              % <<map>> <<temp>> /Subs
  86.       1 index 1 index 0 put
  87.       dup 3 index exch .knownget not {  % <<map>> <<temp>> /Subs
  88.         % No more substitutions, the chain terminates.
  89.         pop exit                        % <<map>> <<temp>>
  90.       } if                              % <<map>> <<temp>> /Subs /Subs1
  91.       exch                              % <<map>> <<temp>> /Subs1 /Subs
  92.       3 index exch undef                % <<map>> <<temp>> /Subs1
  93.     } loop
  94.     % Not cycled, now purge the <<temp>> :
  95.     { % Choose a random record :
  96.       true 1 index {                    % <<map>> <<temp>> true /Name /Subs
  97.         3 2 roll pop false exit         % <<map>> <<temp>> /Name /Subs false
  98.       } forall
  99.       { exit                            % <<map>> <<temp>>
  100.       } if                              % <<map>> <<temp>> /Name /Subs
  101.       % Remove it :
  102.       pop 1 index exch undef            % <<map>> <<temp>>
  103.     } loop
  104.   } loop
  105.   pop pop                               %
  106. } bind def
  107.  
  108. /PreprocessRecord  % <map> <Name> <raw_record> PreprocessRecord <map> <Name> <record> <bool>
  109. { //IsMyRecord exec {
  110.     1 dict begin
  111.     /Substitute exch def
  112.     /RecordVirtualMethods //RecordVirtualMethods def
  113.     currentdict end
  114.     true
  115.   } {
  116.     false
  117.   } ifelse
  118. } bind def
  119.  
  120. currentdict end 
  121.  
  122. /MappedCategoryRedefiner /ProcSet findresource /Redefine get exec
  123.  
  124. .setlanguagelevel
  125.