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_icc.ps (3274B)

%    Copyright (C) 2001, 2002 Aladdin Enterprises.  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_icc.ps 8962 2008-08-11 14:16:18Z ken $
% ICCBased color space method dictionaries.
% This assumes gs_ciecs2.ps has already been processed.

.currentglobal true .setglobal

% gs_res.ps uses these entries in colorspacedict
% to populate the ColorSpaceFamily resource, so we need
% to add the supported spaces.
%
systemdict /colorspacedict get begin
/ICCBased [] def
end

NOPSICC { (%END PSICC) .skipeof } if
% Now set up ICC profile loading for PostScript %%BeginICCProfile sections.

systemdict begin
/.ProcessICCcomment { % file comment --  file comment
  dup
  (%%BeginICCProfile) anchorsearch {
    pop pop
    DEBUG { (.ProcessICCcomment found %%BeginICCProfile) print flush } if

% load an ICC profile defined as comments (hex encoded).
    % Ends with %%End at the start of a line. Read the data into
    % a bytestring to allow seeking. This string can be used as a
    % seekable ReusableStreamDecode filter source by the ICC logic.
    %
    % Since .bigstring needs to know the size, we first read an array of
    % strings each 64000 max length.
    %
    % stack: --file-- (%%BeginICCProfile: ...) 
    1 index 0 (%%EndICCProfile) /SubFileDecode filter
    [ { counttomark 1 add index
        64000 string readhexstring
        not { exit } if
      } loop
    ] exch closefile
    0 1 index { length add } forall
    .bigstring
    exch 0 exch {
      % stack: --file-- (%%BeginICCProfile: ...) --bytestring-- cur_index --string--
      2 copy length add 	% calculate next string start point
      3 1 roll 3 index 3 1 roll putinterval
    } forall
    pop				% discard length of bytestring
    % make a seekable -file- out of the bytestring
    mark /AsyncRead true .dicttomark /ReusableStreamDecode filter
    % stack: --file-- (%%BeginICCProfile: ...) --icc_subfile-- 
    /DeviceCMYK setcolorspace
    << /DataSource 3 -1 roll
       /N 4		% Try CMYK first
    >> { .seticcspace } stopped {
      /DeviceRGB setcolorspace
      dup /N 3 put  { .seticcspace } stopped {
        /DeviceGray setcolorspace
        dup /N 1 put { .seticcspace } stopped {	% last choice
          QUIET not { (   *** Unable to load ICC profile from PostScript DSC comments ***) = flush } if
          pop
        } if
      } if
    } if
  } {
    pop % Not interested in this DSC comment
  } ifelse
} bind def

% Merge ProcessICCcomment with existing handler
/.ProcessICCcomment load /exec load
currentuserparams /ProcessDSCComment get 
dup null eq {pop {pop pop}} if /exec load
4 array astore cvx readonly
<< /ProcessDSCComment 3 -1 roll >> setuserparams

end	% systemdict
%END PSICC
.setglobal

cmd: