FM / Init

/usr/share/ghostscript/Resource/Init

Name	Size	Mode	Actions
cidfmap	2156	0644	edit dl rm
FAPIcidfmap	1483	0644	edit dl rm
FAPIconfig	815	0644	edit dl rm
FAPIfontmap	1468	0644	edit dl rm
FCOfontmap-PCLPS2	2857	0644	edit dl rm
Fontmap	109	0644	edit dl rm
Fontmap.GS	12929	0644	edit dl rm
gs_agl.ps	218021	0644	edit dl rm
gs_btokn.ps	12765	0644	edit dl rm
gs_cet.ps	4964	0644	edit dl rm
gs_cff.ps	6969	0644	edit dl rm
gs_cidcm.ps	16827	0644	edit dl rm
gs_ciddc.ps	8505	0644	edit dl rm
gs_cidfm.ps	8069	0644	edit dl rm
gs_cidfn.ps	14547	0644	edit dl rm
gs_cidtt.ps	5847	0644	edit dl rm
gs_cmap.ps	18444	0644	edit dl rm
gs_cspace.ps	4059	0644	edit dl rm
gs_dbt_e.ps	2134	0644	edit dl rm
gs_diskn.ps	6867	0644	edit dl rm
gs_dps1.ps	4756	0644	edit dl rm
gs_dps2.ps	8771	0644	edit dl rm
gs_dscp.ps	3938	0644	edit dl rm
gs_epsf.ps	12161	0644	edit dl rm
gs_fapi.ps	15611	0644	edit dl rm
gs_fntem.ps	11389	0644	edit dl rm
gs_fonts.ps	48531	0644	edit dl rm
gs_frsd.ps	3780	0644	edit dl rm
gs_icc.ps	3104	0644	edit dl rm
gs_il1_e.ps	2722	0644	edit dl rm
gs_img.ps	23998	0644	edit dl rm
gs_init.ps	94572	0644	edit dl rm
gs_lev2.ps	43850	0644	edit dl rm
gs_ll3.ps	19572	0644	edit dl rm
gs_mex_e.ps	3843	0644	edit dl rm
gs_mgl_e.ps	2181	0644	edit dl rm
gs_mro_e.ps	2506	0644	edit dl rm
gs_pdfwr.ps	32179	0644	edit dl rm
gs_pdf_e.ps	1556	0644	edit dl rm
gs_res.ps	42450	0644	edit dl rm
gs_resmp.ps	22482	0644	edit dl rm
gs_setpd.ps	38487	0644	edit dl rm
gs_statd.ps	17851	0644	edit dl rm
gs_std_e.ps	3143	0644	edit dl rm
gs_sym_e.ps	3104	0644	edit dl rm
gs_trap.ps	2946	0644	edit dl rm
gs_ttf.ps	66173	0644	edit dl rm
gs_typ32.ps	4560	0644	edit dl rm
gs_typ42.ps	2096	0644	edit dl rm
gs_type1.ps	12543	0644	edit dl rm
gs_wan_e.ps	1563	0644	edit dl rm
pdf_base.ps	60815	0644	edit dl rm
pdf_draw.ps	188723	0644	edit dl rm
pdf_font.ps	98378	0644	edit dl rm
pdf_main.ps	143907	0644	edit dl rm
pdf_ops.ps	75878	0644	edit dl rm
pdf_rbld.ps	20480	0644	edit dl rm
pdf_sec.ps	27865	0644	edit dl rm
xlatmap	1767	0644	edit dl rm

Edit: /usr/share/ghostscript/Resource/Init/gs_dps1.ps (4756B)

% Copyright (C) 2001-2021 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.
%
% Refer to licensing information at http://www.artifex.com or contact
% Artifex Software, Inc.,  1305 Grant Avenue - Suite 200, Novato,
% CA 94945, U.S.A., +1(415)492-9861, for further information.
%

% Initialization file for most of the Display PostScript functions
% that are also included in Level 2.

level2dict begin

% ------ Virtual memory ------ %

/currentshared /.currentglobal load def
/scheck {.gcheck} bind odef
%****** FOLLOWING IS WRONG ******
/shareddict currentdict /globaldict .knownget not { 20 dict } if def

% Global and LocalFontDirectory must remain in systemdict
% even if we temporarily exit Level 2 mode.

end				% level2dict
systemdict begin

/SharedFontDirectory .FontDirectory .gcheck
 { .currentglobal //false .setglobal
   currentdict
   /LocalFontDirectory .FontDirectory dup maxlength dict copy
   .forceput	% LocalFontDirectory is local, systemdict is global
   .setglobal .FontDirectory
 } executeonly
 {
   currentdict
   /LocalFontDirectory .FontDirectory
   .forceput	% LocalFontDirectory is local, systemdict is global
   50 dict
 }executeonly
ifelse def

end				% systemdict
level2dict begin

% setshared must rebind FontDirectory to the appropriate one of
% Local or SharedFontDirectory.

/.setglobal		% <bool> .setglobal -
 { dup .setglobal
   //systemdict /FontDirectory .currentglobal
    { //SharedFontDirectory }
    { /LocalFontDirectory .systemvar }	% can't embed ref to local VM
   ifelse .forceput pop	% LocalFontDirectory is local, systemdict is global
 } .bind executeonly odef
% Don't just copy (load) the definition of .setglobal:
% it gets redefined for LL3.
/setshared { /.setglobal .systemvar exec } odef
.currentglobal setshared

% See below for changes in save and restore.

% ------ Fonts ------ %

/selectfont		% <fontname> <size> selectfont -
 {
   {
     1 .argindex findfont
     1 index dup type /arraytype eq { makefont } { scalefont } ifelse
     setfont pop pop
   } stopped { /selectfont .systemvar $error /errorname get signalerror } if
 } odef
% undefinefont has to take local/global VM into account.
/undefinefont		% <fontname> undefinefont -
 { //.FontDirectory 1 .argindex .forceundef	% FontDirectory is readonly
   .currentglobal
    {		% Current mode is global; delete from local directory too.
      //systemdict /LocalFontDirectory .knownget
       { 1 index .forceundef } executeonly		% LocalFontDirectory is readonly
      if
    }
    {		% Current mode is local; if there was a shadowed global
                % definition, copy it into the local directory.
      //systemdict /SharedFontDirectory .knownget
       { 1 index .knownget
          { //.FontDirectory 2 index 3 -1 roll .forceput } % readonly
         if
       }
      if
    }
   ifelse pop
 } odef

% If we load a font into global VM within an inner save, the restore
% will delete it from FontDirectory but not from SharedFontDirectory.
% We have to handle this by making restore copy missing entries from
% SharedFontDirectory to FontDirectory.  Since this could slow down restore
% considerably, we define a new operator .forcecopynew for this purpose.
% Furthermore, if FAKEFONTS is in effect, we want global real fonts to
% override fake local ones.  We handle this by brute force.
/restore		% <save> restore -
 { dup //restore
   /LocalFontDirectory .systemvar
   FAKEFONTS
    { mark
                % We want to delete a fake font from the local directory
                % iff the global directory now has no definition for it,
                % or a non-fake definition.
      1 index dup
       {		% Stack: lfd mark lfd key ... lfd key value
         length 1 gt
          {		% This is a real local definition; don't do anything.
            pop
          }
          {		% This is a fake local definition, check for global.
            //SharedFontDirectory 1 index .knownget
             {		% A global definition exists, check for fake.
               length 1 eq { pop } { 1 index } ifelse
             }
             {		% No global definition, delete the local one.
               1 index
             }
            ifelse
          }
         ifelse
       } forall
      pop counttomark 2 idiv { .forceundef } executeonly repeat pop		% readonly
    }
   if
   //SharedFontDirectory exch .forcecopynew pop
   .currentglobal .setglobal	% Rebind FontDirectory according to current VM.
   pop
 } .bind odef

end				% level2dict

cmd: