FM / Init

/usr/share/ghostscript/8.70/Resource/Init/

/usr/share/ghostscript/8.70/Resource/Init

Name	Size	Mode	Actions
cidfmap	398	0644	edit dl rm
cidfmap.GS	991	0644	edit dl rm
CIDFnmap	291	0644	edit dl rm
FCOfontmap-PCLPS2	3013	0644	edit dl rm
Fontmap	216	0644	edit dl rm
Fontmap.GS	12219	0644	edit dl rm
gs_agl.ps	28598	0644	edit dl rm
gs_btokn.ps	11376	0644	edit dl rm
gs_cet.ps	1812	0644	edit dl rm
gs_cff.ps	24571	0644	edit dl rm
gs_cidcm.ps	17375	0644	edit dl rm
gs_ciddc.ps	8374	0644	edit dl rm
gs_cidfm.ps	4641	0644	edit dl rm
gs_cidfn.ps	12894	0644	edit dl rm
gs_cidtt.ps	5496	0644	edit dl rm
gs_cmap.ps	17725	0644	edit dl rm
gs_cspace.ps	6958	0644	edit dl rm
gs_css_e.ps	4949	0644	edit dl rm
gs_dbt_e.ps	2282	0644	edit dl rm
gs_diskf.ps	7578	0644	edit dl rm
gs_diskn.ps	6910	0644	edit dl rm
gs_dpnxt.ps	4773	0644	edit dl rm
gs_dps.ps	7975	0644	edit dl rm
gs_dps1.ps	4725	0644	edit dl rm
gs_dps2.ps	8088	0644	edit dl rm
gs_dscp.ps	3930	0644	edit dl rm
gs_epsf.ps	7210	0644	edit dl rm
gs_fapi.ps	11469	0644	edit dl rm
gs_fntem.ps	11636	0644	edit dl rm
gs_fonts.ps	44891	0644	edit dl rm
gs_frsd.ps	3020	0644	edit dl rm
gs_icc.ps	3274	0644	edit dl rm
gs_il1_e.ps	2794	0644	edit dl rm
gs_img.ps	28171	0644	edit dl rm
gs_init.ps	74153	0644	edit dl rm
gs_l2img.ps	5635	0644	edit dl rm
gs_lev2.ps	34607	0644	edit dl rm
gs_ll3.ps	12111	0644	edit dl rm
gs_mex_e.ps	3991	0644	edit dl rm
gs_mgl_e.ps	2187	0644	edit dl rm
gs_mro_e.ps	2533	0644	edit dl rm
gs_pdfwr.ps	27994	0644	edit dl rm
gs_pdf_e.ps	1703	0644	edit dl rm
gs_res.ps	36866	0644	edit dl rm
gs_resmp.ps	22737	0644	edit dl rm
gs_setpd.ps	29872	0644	edit dl rm
gs_statd.ps	13558	0644	edit dl rm
gs_std_e.ps	3237	0644	edit dl rm
gs_sym_e.ps	3096	0644	edit dl rm
gs_trap.ps	3031	0644	edit dl rm
gs_ttf.ps	79221	0644	edit dl rm
gs_typ32.ps	4353	0644	edit dl rm
gs_typ42.ps	2132	0644	edit dl rm
gs_type1.ps	8285	0644	edit dl rm
gs_wan_e.ps	1681	0644	edit dl rm
opdfread.ps	141760	0644	edit dl rm
pdf_base.ps	40992	0644	edit dl rm
pdf_cslayer.ps	4058	0644	edit dl rm
pdf_draw.ps	61490	0644	edit dl rm
pdf_font.ps	60742	0644	edit dl rm
pdf_main.ps	66315	0644	edit dl rm
pdf_ops.ps	28419	0644	edit dl rm
pdf_rbld.ps	15056	0644	edit dl rm
pdf_sec.ps	15917	0644	edit dl rm
xlatmap	1788	0644	edit dl rm

Edit: /usr/share/ghostscript/8.70/Resource/Init/gs_cidfm.ps (4641B)

% $Id: gs_cidfm.ps 8954 2008-08-08 04:22:38Z ray $
% Redefine CIDFont category with cidfmap .

languagelevel 2 .setlanguagelevel

4 dict begin
/CategoryName /CIDFont def

/MapFileName (cidfmap) def

/IsMyRecord      % <raw_record> -> <raw_record> bool
{ % Only for client's needs.
  dup type /nametype eq
} bind def

/RecordVirtualMethods 3 dict begin

/MakeInstance   % <Name> <record> MakeInstance <Name> <Instance> <size>
  { % We know that currentdict is the category.
    /Substitute get FindResource            % /Name <<CIDFont>>
    dup length dict copy                    % /Name <<CIDFont>>
    1 index ResourceStatus pop exch pop     % /Name <<CIDFont>> size
  } bind def

/GetFilePath  % <scratch> <Name> <record> GetFilePath <filepath>
  { % We know that currentdict is the category.
    exch pop
    /Substitute get exch ResourceFileName
  } bind def

/GetSize   % <Name> <record> GetSize <size>
  { % We know that currentdict is the category.
    /Substitute get ResourceStatus {
      exch pop exch pop
    } {
      /undefinedresource signalerror
    } ifelse
  } bind def

/GetCSI   % <record> GetCSI null
  	    % <record> GetCSI dict
  { % We know that currentdict is the category.
    RESMPDEBUG { (cidfm GetCSI beg ) = } if
    /Substitute get			% /Name
    GetCIDSystemInfoFromMap
    RESMPDEBUG { (cidfm GetCSI end ) print dup = } if
  } bind def

/IsActive % <record> IsActive <bool>
  { pop true
  } bind def

currentdict end def

/VerifyMap  % <raw_map> VerifyMap -
{ % Checks for vicious substitution cycles.
  dup length dict copy                  % <<map>>
  dup length dict                       % <<map>> <<temp>>
  { % Choose a random record :
    true 2 index {                      % <<map>> <<temp>> true /Name /Subs
      3 2 roll pop false exit           % <<map>> <<temp>> /Name /Subs false
    } forall
    { exit                              % <<map>> <<temp>>
    } if                                % <<map>> <<temp>> /Name /Subs
    % Move the substitution chain to <<temp>>, checking for a cycle :
    3 index 2 index undef               % <<map>> <<temp>> /Name /Subs
    exch 2 index exch 0 put             % <<map>> <<temp>> /Subs
    { //IsMyRecord exec not {
        % Not a substitution, the chain terminates.
        pop exit                        % <<map>> <<temp>>
      } if                              % <<map>> <<temp>> /Subs
      1 index 1 index known {
        (Vicious substitution cycle in map file with the entry ) print =string cvs print ( .) =
        /VerifyMap cvx /undefinedresource signalerror
      } if                              % <<map>> <<temp>> /Subs
      1 index 1 index 0 put
      dup 3 index exch .knownget not {  % <<map>> <<temp>> /Subs
        % No more substitutions, the chain terminates.
        pop exit                        % <<map>> <<temp>>
      } if                              % <<map>> <<temp>> /Subs /Subs1
      exch                              % <<map>> <<temp>> /Subs1 /Subs
      3 index exch undef                % <<map>> <<temp>> /Subs1
    } loop
    % Not cycled, now purge the <<temp>> :
    { % Choose a random record :
      true 1 index {                    % <<map>> <<temp>> true /Name /Subs
        3 2 roll pop false exit         % <<map>> <<temp>> /Name /Subs false
      } forall
      { exit                            % <<map>> <<temp>>
      } if                              % <<map>> <<temp>> /Name /Subs
      % Remove it :
      pop 1 index exch undef            % <<map>> <<temp>>
    } loop
  } loop
  pop pop                               %
} bind def

/PreprocessRecord  % <map> <Name> <raw_record> PreprocessRecord <map> <Name> <record> <bool>
{ //IsMyRecord exec {
    1 dict begin
    /Substitute exch def
    /RecordVirtualMethods //RecordVirtualMethods def
    currentdict end
    true
  } {
    false
  } ifelse
} bind def

currentdict end

/MappedCategoryRedefiner /ProcSet findresource /Redefine get exec

.setlanguagelevel

% Copyright (C) 2000 Artifex Software, Inc. All rights reserved. % % This software is provided AS-IS with no warranty, either express or % implied. % % This software is distributed under license and may not be copied, % modified or distributed except as expressly authorized under the terms % of the license contained in the file LICENSE in this distribution. % % For more information about licensing, please refer to % http://www.ghostscript.com/licensing/. For information on % commercial licensing, go to http://www.artifex.com/licensing/ or % contact Artifex Software, Inc., 101 Lucas Valley Road #110, % San Rafael, CA 94903, U.S.A., +1(415)492-9861. % $Id: gs_cidfm.ps 8954 2008-08-08 04:22:38Z ray $ % Redefine CIDFont category with cidfmap . languagelevel 2 .setlanguagelevel 4 dict begin /CategoryName /CIDFont def /MapFileName (cidfmap) def /IsMyRecord % -> bool { % Only for client's needs. dup type /nametype eq } bind def /RecordVirtualMethods 3 dict begin /MakeInstance % MakeInstance { % We know that currentdict is the category. /Substitute get FindResource % /Name <> dup length dict copy % /Name <> 1 index ResourceStatus pop exch pop % /Name <> size } bind def /GetFilePath % GetFilePath { % We know that currentdict is the category. exch pop /Substitute get exch ResourceFileName } bind def /GetSize % GetSize { % We know that currentdict is the category. /Substitute get ResourceStatus { exch pop exch pop } { /undefinedresource signalerror } ifelse } bind def /GetCSI % GetCSI null % GetCSI dict { % We know that currentdict is the category. RESMPDEBUG { (cidfm GetCSI beg ) = } if /Substitute get % /Name GetCIDSystemInfoFromMap RESMPDEBUG { (cidfm GetCSI end ) print dup = } if } bind def /IsActive % IsActive { pop true } bind def currentdict end def /VerifyMap % VerifyMap - { % Checks for vicious substitution cycles. dup length dict copy % <> dup length dict % <> <> { % Choose a random record : true 2 index { % <> <> true /Name /Subs 3 2 roll pop false exit % <> <> /Name /Subs false } forall { exit % <> <> } if % <> <> /Name /Subs % Move the substitution chain to <>, checking for a cycle : 3 index 2 index undef % <> <> /Name /Subs exch 2 index exch 0 put % <> <> /Subs { //IsMyRecord exec not { % Not a substitution, the chain terminates. pop exit % <> <> } if % <> <> /Subs 1 index 1 index known { (Vicious substitution cycle in map file with the entry ) print =string cvs print ( .) = /VerifyMap cvx /undefinedresource signalerror } if % <> <> /Subs 1 index 1 index 0 put dup 3 index exch .knownget not { % <> <> /Subs % No more substitutions, the chain terminates. pop exit % <> <> } if % <> <> /Subs /Subs1 exch % <> <> /Subs1 /Subs 3 index exch undef % <> <> /Subs1 } loop % Not cycled, now purge the <> : { % Choose a random record : true 1 index { % <> <> true /Name /Subs 3 2 roll pop false exit % <> <> /Name /Subs false } forall { exit % <> <> } if % <> <> /Name /Subs % Remove it : pop 1 index exch undef % <> <> } loop } loop pop pop % } bind def /PreprocessRecord % PreprocessRecord { //IsMyRecord exec { 1 dict begin /Substitute exch def /RecordVirtualMethods //RecordVirtualMethods def currentdict end true } { false } ifelse } bind def currentdict end /MappedCategoryRedefiner /ProcSet findresource /Redefine get exec .setlanguagelevel