Gecko [ technovaaa.co.uk ]

Name	Size	Permission	Date
FAPIcidfmap	1.45 KB	-rw-r--r--	2025-05-14 16:03
FAPIconfig	815 B	-rw-r--r--	2025-05-14 16:03
FAPIfontmap	1.43 KB	-rw-r--r--	2025-05-14 16:03
FCOfontmap-PCLPS2	2.79 KB	-rw-r--r--	2025-05-14 16:03
Fontmap	109 B	-rw-r--r--	2025-05-14 16:03
Fontmap.GS	12.63 KB	-rw-r--r--	2025-05-14 16:03
cidfmap	2.11 KB	-rw-r--r--	2025-05-14 16:03
gs_agl.ps	212.91 KB	-rw-r--r--	2025-05-14 16:03
gs_btokn.ps	12.47 KB	-rw-r--r--	2025-05-14 16:03
gs_cet.ps	4.85 KB	-rw-r--r--	2025-05-14 16:03
gs_cff.ps	6.81 KB	-rw-r--r--	2025-05-14 16:03
gs_cidcm.ps	16.43 KB	-rw-r--r--	2025-05-14 16:03
gs_ciddc.ps	8.31 KB	-rw-r--r--	2025-05-14 16:03
gs_cidfm.ps	7.88 KB	-rw-r--r--	2025-05-14 16:03
gs_cidfn.ps	14.21 KB	-rw-r--r--	2025-05-14 16:03
gs_cidtt.ps	5.71 KB	-rw-r--r--	2025-05-14 16:03
gs_cmap.ps	18.01 KB	-rw-r--r--	2025-05-14 16:03
gs_cspace.ps	3.96 KB	-rw-r--r--	2025-05-14 16:03
gs_dbt_e.ps	2.08 KB	-rw-r--r--	2025-05-14 16:03
gs_diskn.ps	6.71 KB	-rw-r--r--	2025-05-14 16:03
gs_dps1.ps	4.64 KB	-rw-r--r--	2025-05-14 16:03
gs_dps2.ps	8.57 KB	-rw-r--r--	2025-05-14 16:03
gs_dscp.ps	3.85 KB	-rw-r--r--	2025-05-14 16:03
gs_epsf.ps	11.88 KB	-rw-r--r--	2025-05-14 16:03
gs_fapi.ps	15.25 KB	-rw-r--r--	2025-05-14 16:03
gs_fntem.ps	11.12 KB	-rw-r--r--	2025-05-14 16:03
gs_fonts.ps	47.39 KB	-rw-r--r--	2025-05-14 16:03
gs_frsd.ps	3.69 KB	-rw-r--r--	2025-05-14 16:03
gs_icc.ps	3.03 KB	-rw-r--r--	2025-05-14 16:03
gs_il1_e.ps	2.66 KB	-rw-r--r--	2025-05-14 16:03
gs_img.ps	23.44 KB	-rw-r--r--	2025-05-14 16:03
gs_init.ps	92.36 KB	-rw-r--r--	2025-05-14 16:03
gs_lev2.ps	42.82 KB	-rw-r--r--	2025-05-14 16:03
gs_ll3.ps	19.11 KB	-rw-r--r--	2025-05-14 16:03
gs_mex_e.ps	3.75 KB	-rw-r--r--	2025-05-14 16:03
gs_mgl_e.ps	2.13 KB	-rw-r--r--	2025-05-14 16:03
gs_mro_e.ps	2.45 KB	-rw-r--r--	2025-05-14 16:03
gs_pdf_e.ps	1.52 KB	-rw-r--r--	2025-05-14 16:03
gs_pdfwr.ps	31.42 KB	-rw-r--r--	2025-05-14 16:03
gs_res.ps	41.46 KB	-rw-r--r--	2025-05-14 16:03
gs_resmp.ps	21.96 KB	-rw-r--r--	2025-05-14 16:03
gs_setpd.ps	37.58 KB	-rw-r--r--	2025-05-14 16:03
gs_statd.ps	17.43 KB	-rw-r--r--	2025-05-14 16:03
gs_std_e.ps	3.07 KB	-rw-r--r--	2025-05-14 16:03
gs_sym_e.ps	3.03 KB	-rw-r--r--	2025-05-14 16:03
gs_trap.ps	2.88 KB	-rw-r--r--	2025-05-14 16:03
gs_ttf.ps	64.62 KB	-rw-r--r--	2025-05-14 16:03
gs_typ32.ps	4.45 KB	-rw-r--r--	2025-05-14 16:03
gs_typ42.ps	2.05 KB	-rw-r--r--	2025-05-14 16:03
gs_type1.ps	12.25 KB	-rw-r--r--	2025-05-14 16:03
gs_wan_e.ps	1.53 KB	-rw-r--r--	2025-05-14 16:03
pdf_base.ps	59.39 KB	-rw-r--r--	2025-05-14 16:03
pdf_draw.ps	184.3 KB	-rw-r--r--	2025-05-14 16:03
pdf_font.ps	96.07 KB	-rw-r--r--	2025-05-14 16:03
pdf_main.ps	140.53 KB	-rw-r--r--	2025-05-14 16:03
pdf_ops.ps	74.1 KB	-rw-r--r--	2025-05-14 16:03
pdf_rbld.ps	20 KB	-rw-r--r--	2025-05-14 16:03
pdf_sec.ps	27.21 KB	-rw-r--r--	2025-05-14 16:03
xlatmap	1.73 KB	-rw-r--r--	2025-05-14 16:03

Rename

% Set defaults for Ghostscript to match Adobe CPSI behaviour for CET

% skip if we've already run this -- based on fake "product"
systemdict /product get (PhotoPRINT SE 5.0v2) readonly eq
{
  (%END GS_CET) .skipeof
} if

% Note: this must be run at save level 0 and when systemdict is writeable
currentglobal //true setglobal
systemdict dup dup dup
/version (3017.102) readonly .forceput		% match CPSI 3017.102
/product (PhotoPRINT SE 5.0v2) readonly .forceput	% match CPSI 3017.102
/revision 0 put			% match CPSI 3017.103 Tek shows revision 5
/serialnumber dup {233640} readonly .makeoperator .forceput % match CPSI 3017.102 Tek shows serialnumber 1401788461

systemdict /.odef {           % <name> <proc> odef -
  1 index exch //.makeoperator def
} .bind .forceput          % this will be undefined at the end

300 .sethiresscreen	% needed for language switch build since it
                        % processes gs_init.ps BEFORE setting the resolution

0 array 0 setdash % CET 09-08 wants local setdash

/UNROLLFORMS //true def

(%.defaultbgrucrproc) cvn { } bind def

(%.defaultbgrucrproc) cvn load dup
setblackgeneration
setundercolorremoval
0 array cvx readonly dup dup dup setcolortransfer

% CPSI doesn't define "Localization" resource.
/Localization /Category undefineresource

% Quality Logic test 09-59.ps tries to set each listed /OutputDevice.
% This can cause problems with some devices (eg mswinpr2 on Windows)
% so for the CET files we define the OutputDevice resource as
% being empty. We need to redefine /.definecategory as that definition
% gets destroyed at the end of gs_res.ps
/OutputDevice /Category undefineresource

/.definecategory	% <name> -mark- <key1> ... <valuen> .definecategory -
 { counttomark 2 idiv 2 add		% .Instances, Category
   /Generic /Category findresource dup maxlength 3 -1 roll add
   dict .copydict begin
   counttomark 2 idiv { def } repeat pop	% pop the mark
   currentdict end /Category defineresource pop
 } bind def

/OutputDevice mark /InstanceType /dicttype .definecategory

% Redefine Font category to return -1 (unknown) VM usage
% in all cases to avoid differences between hosts.
/Font /Category findresource
dup length dict copy
dup
dup /.loadfontresource get
dup length array copy cvx
dup 1 0 put
dup 7 -1 put
/.loadfontresource exch put
/Font exch /Category defineresource pop

% Some previously compile time options such as USE_ADOBE_CMYK_RGB
% and GS_CHAR_FILL are now dynamic. Force CPSI compatibility.
//true .setCPSImode

% Some QL jobs (/23-12B.PS for example) do:
% '(%stdin) (r) file'
% expecting that they are being read from stdin.
% if that is not the case, they block waiting for input
% from stdin.
% This hooks the 'file' operator', so if a job tries to
% open %stdin, and we're *not* reading the job from stdin
% it'll return currentfile instead.
/ofile /file load def
/file
{
   1 index (%stdin) eq 2 index (%stdin%) eq or
   {
     ofile dup currentfile eq not
     {
       pop currentfile
     }if
   }
   {
     ofile
   } ifelse
} .bind //.odef exec
currentdict /ofile undef

% One QL job (23-12B.PS) effectively does:
% (%stdin) (r) file 0 setfileposition
% expecting it to throw an ioerror (stdin not being a positionable
% stream.
% With the above 'file' hook, when running from a file
% rather than stdin, setfileposition will succeed, and we hit
% an infinite loop - '0 setfileposition' meaning we restart intepreting
% from the beginning of the file.
% Hook setfileposition to throw an error attempting to reposition
% the current file.
/osetfileposition /setfileposition load def
/setfileposition
{
    1 index currentfile eq
    {
        /setfileposition cvx /ioerror signalerror
    }
    {
      osetfileposition
    } ifelse
} .bind //.odef exec
currentdict /osetfileposition undef

setglobal

% Remove all but the default page size (the 0 entry in the InputAttributes
% dictionary). This is usually 'letter'.
<<
% As we're removing all but the default, make sure we're
% using the default.
/PageSize currentpagedevice /InputAttributes get 0 get /PageSize get

currentpagedevice /InputAttributes get
1 1 2 index length 1 sub {
  1 index exch undef
} for
/InputAttributes exch
>>
setpagedevice

% Patch setsmoothness, currentsmoothness for a better view of shadings :
userdict /.smoothness currentsmoothness put
/setsmoothness {
   dup type dup /integertype eq exch /realtype eq or {
     userdict /.smoothness 3 2 roll cvr put
   } {
     /setsmoothness .systemvar /typecheck signalerror
   } ifelse
} bind //.odef exec
/currentsmoothness { userdict /.smoothness get } bind //.odef exec % for 09-55.PS, 09-57.PS .

% slightly nasty hack to give consistent cluster results
/ofnfa systemdict /filenameforall get def

/filenameforall
{
  2 index dup length 1 eq
  {
    (*) eq
    {
      3 -1 roll pop ( ) 3 1 roll
    } if
  }
  {
    pop
  } ifelse
  ofnfa
} bind def

systemdict /.odef .undef

% end of slightly nasty hack to give consistent cluster results
%END GS_CET