Gecko [ herbhavenuk.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

% 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.
%

% 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 /stringtype eq exch
  dup type /nametype eq 3 -1 roll or
} bind def

/RecordVirtualMethods 3 dict begin

/MakeInstance   % <Name> <record> MakeInstance <Name> <Instance> <size>
  { % We know that currentdict is the category.
    /Substitute get dup type /stringtype eq
    {
      (r) file dup cvx exec closefile
      dup
    } if

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 dup type /stringtype eq not
    {
      exch ResourceFileName
    } if
  } bind def

/GetSize   % <Name> <record> GetSize <size>
  { % We know that currentdict is the category.
    dup /Substitute get dup type /stringtype eq
    {
      % The simplest solution is to instantiate the resource
      pop //MakeInstance exec
      3 1 roll pop pop
    }
    {
      exch pop
      ResourceStatus {
        exch pop exch pop
      } {
        /undefinedresource signalerror
      } ifelse
    }ifelse
  } bind def

/GetCSI   % <record> GetCSI null
            % <record> GetCSI dict
  { % We know that currentdict is the category.
    RESMPDEBUG { (cidfm GetCSI beg ) = } if
    dup /Substitute get dup type /stringtype eq
    {
      pop
      dup /Name get exch //MakeInstance exec
      pop exch pop
      /CIDSystemInfo get
    }
    {
      exch pop                     % /Name
      GetCIDSystemInfoFromMap
    } ifelse
    RESMPDEBUG { (cidfm GetCSI end ) print dup = } if
  } bind def

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

currentdict end def

% This is the default definition of our fallback CIDFont
/DefaultCIDFallBack
<<
  /Path
  systemdict /CIDFSubstPath .knownget
  {
    (/) concatstrings
  }
  {
    (CIDFSUBSTPATH) getenv
    {
      (/) concatstrings
    }
    {
      currentsystemparams /GenericResourceDir get (CIDFSubst/) concatstrings
    } ifelse
  } ifelse

systemdict /CIDFSubstFont .knownget not
  {
    (CIDFSUBSTFONT) getenv not
    {
      (DroidSansFallback.ttf)
    } if
  } if
  % If CIDFSubstFont looks like a path/file (rather than just file)
  % use it without the CIDFSubstPath string
  dup .file_name_directory_separator rsearch
  {pop pop pop exch pop}
  {pop concatstrings}
  ifelse
  % The CSI data just has to be valid, the substition machinery will
  % generally overwrite it with appropriate values for the missing font.
  /CSI  [(Identity) 0]
  /RecordVirtualMethods //RecordVirtualMethods
  /FileType /TrueType

(CIDFSUBSTFONTID) getenv
  {
    /SubfontID exch cvi
  } if
>> def

% <dir.../base.extn> .basename <dir>
/.splitdirname {
  (/) rsearch { //true } { (\\) rsearch } ifelse
  {exch concatstrings exch pop //true}{//false} ifelse
} bind def

% <file> .addcidfmappath -
/.addcidfmpermitpath
{
  .filename
  {
    //.splitdirname exec
    {dup def} if
  } if
} bind def

/VerifyMap  % <raw_map> VerifyMap -
{
  % This is where we insert the default fallback into the map
  % checking first to see if there is a user specified alternative
  dup /CIDFallBack known not{
     //DefaultCIDFallBack dup /Path get status
     {
       pop pop pop pop
       /CIDFallBack exch 2 index 3 1 roll put
     }
     {
       pop
     }ifelse
  } if

% Remove any mappings for which we cannot find the font file
  dup length dict begin
  dup
  {
    % if we have a name1->name2 mapping, follow the "trail",
    % so if the name2 mapping is known in the .map dict, retrieve
    % that map value and loop round until we either reach a map
    % which references a TTF (i.e. a dictionary record) or we have
    % a name not known in the .map, in which case we have to resort
    % to the normal Postscript "resourcestatus".
    {
      dup type /nametype eq
      {
        dup 3 index exch .knownget
        { exch pop }
        {
          /CIDFont resourcestatus
          { pop pop pop }
          { 2 index exch .undef }
          ifelse
          exit
        } ifelse
      }
      {
        dup type /dicttype eq
        {
          /Path .knownget
          {
            .libfile
            {
              dup //.addcidfmpermitpath exec closefile pop}
            {
              {(r) file} //.internalstopped exec
              {pop pop 2 index exch .undef}
              {dup //.addcidfmpermitpath exec closefile pop} ifelse
            } ifelse
          }
          {2 index exch .undef}
          ifelse
          exit
        } if
      } ifelse
    } loop
  } forall
  currentdict end
  {exch pop /PermitFileReading exch .addcontrolpath} forall

% 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

currentdict /.splitdirname undef
currentdict /.addcidfmpermitpath undef

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

currentdict end

/MappedCategoryRedefiner /ProcSet findresource /Redefine get exec

.setlanguagelevel