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_dpnxt.ps (4773B)

%    Copyright (C) 1997, 1998 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_dpnxt.ps 9246 2008-11-27 01:58:54Z alexcher $
% gs_dpnxt.ps
% NeXT Display PostScript extensions

% Define the operation values for compositing.  These must match the values
% in gsdpnext.h, which also are the ones from the NeXT documentation.
% We put them in systemdict, which seems like as good a place as any.
mark
  /Clear /Copy /Sover /Sin /Sout /Satop /Dover /Din /Dout /Datop /Xor
  /PlusD /PlusL /Highlight	% not sure about Highlight
counttomark { counttomark 1 sub def } repeat pop

% We implement readimage and sizeimage using the following 3 otherwise
% undocumented lower-level operators:
%
%	<x> <y> <width> <height> <matrix> .sizeimagebox
%	  <dev_x> <dev_y> <dev_width> <dev_height> <matrix>
%
%	- .sizeimageparams <bits/sample> <multiproc> <ncolors>
%
%	<device> <x> <y> <width> <max_height> <alpha?> <std_depth|null>
%	  <string> .getbitsrect <height> <substring>
%
% NOTE: These operators are subject to change without notice!

% Implement readimage using .getbitsrect.  Experimentation on a NeXT system
% shows that the data is always returned in order of increasing device Y,
% regardless of the CTM.
%
% Note that we can't make stack protection work for this operator,
% because it must remove its operands from the stack before calling
% the supplied procedure(s).

/readimage {		% <x> <y> <width> <height> <proc> [... <procN-1>]
			%   <string> <alpha?> readimage -
  .sizeimageparams exch {
	% multiproc = true.  If N > 1, store the procedures in an array.
    exch pop 1 index { 1 add } if
	% Stack: ... string alpha? nprocs
    dup 1 eq {
      pop false		% only 1 procedure, multiproc is irrelevant
    } {
      dup array 4 1 roll 3 add 2 roll astore 3 1 roll true
    } ifelse
  } {
	% multiproc = false.
    pop pop false
  } ifelse
	% Map the rectangle to device coordinates.
	% Stack: x y w h proc(s) str alpha? multi?
  8 -4 roll matrix .sizeimagebox pop 8 4 roll
	% Make sure we allocate the operand array in local VM
	% to avoid a possible invalidaccess.
  .currentglobal false .setglobal 9 1 roll
  exch { 1 } { 0 } ifelse exch		% alpha is last, if present
  exch 4 1 roll 8 array astore exch .setglobal
  {	% Read out a block of scan lines and pass them to the procedure.
	% Stack: [x y w h alpha? proc(s) str multi?] -- we must consume this.
    dup 3 get 0 eq { pop exit } if
    aload 9 1 roll pop exch pop currentdevice 7 1 roll
	% Always read out the data as standard (not native) pixels.
    .sizeimageparams pop pop exch .getbitsrect
	% Stack: [x y w h alpha? proc(s) str multi?] hread substr
    3 -1 roll
	% Stack: hread substr [x y w h alpha? proc(s) str multi?]
    dup 1 2 copy get 5 index add put
	% Stack: hread substr [x y' w h alpha? proc(s) str multi?]
    dup 3 2 copy get 6 -1 roll sub put
	% Stack: substr [x y' w h' alpha? proc(s) str multi?]
    dup 5 get exch 7 get {
	% multiproc = true, pass each plane to a different procedure.
	% Stack: substr procs
      0 1 2 index length 1 sub {
	% Push 1 plane and its procedure under the top 2 elements.
	% Stack: ... substr procs plane#
	2 index length 2 index length idiv	% bytes per plane
	dup 2 index mul exch
	% Stack: ... substr procs plane# start length
	4 index 3 1 roll getinterval 4 1 roll
	2 copy get 4 1 roll pop
      } for
      exch pop length 2 mul .execn
    } {
	% multiproc = false, just call the procedure.
      exec
    } ifelse
  } //systemdict /exec get 3 packedarray cvx loop
} bind odef

%
%   <w>  <h>  <bpc>  <mtx>  <dsrc0> ... <multi>  <ncomp>   alphaimage   -
%
img_utils_dict begin
/.alphaimage  where
  {
    pop
    .currentglobal true .setglobal
    /alphaimage
      {
        //true
          //.colorimage
        stopped
          { /alphaimage .systemvar $error /errorname get signalerror }
        if
      }
    .bind systemdict begin odef end
    .setglobal
  }
if
end

% Implement sizeimage using lower-level operators.

/sizeimage {		% <x> <y> <width> <height> <matrix> sizeimage
			%   <devwidth> <devheight> <bits/sample> <matrix>
			%   <multiproc> <ncolors>
  .sizeimagebox 5 -2 roll pop pop
  .sizeimageparams 3 -1 roll 4 1 roll
} bind odef

cmd: