File Manager

Hackfut Security File Manager

Current Path: /usr/share/ghostscript/8.70/Resource/Init

usr / share / ghostscript / 8.70 / Resource / Init /

📁 ..
📄 CIDFnmap(291 B)
📄 FCOfontmap-PCLPS2(2.94 KB)
📄 Fontmap(216 B)
📄 Fontmap.GS(11.93 KB)
📄 cidfmap(398 B)
📄 cidfmap.GS(991 B)
📄 gs_agl.ps(27.93 KB)
📄 gs_btokn.ps(11.11 KB)
📄 gs_cet.ps(1.77 KB)
📄 gs_cff.ps(24 KB)
📄 gs_cidcm.ps(16.97 KB)
📄 gs_ciddc.ps(8.18 KB)
📄 gs_cidfm.ps(4.53 KB)
📄 gs_cidfn.ps(12.59 KB)
📄 gs_cidtt.ps(5.37 KB)
📄 gs_cmap.ps(17.31 KB)
📄 gs_cspace.ps(6.79 KB)
📄 gs_css_e.ps(4.83 KB)
📄 gs_dbt_e.ps(2.23 KB)
📄 gs_diskf.ps(7.4 KB)
📄 gs_diskn.ps(6.75 KB)
📄 gs_dpnxt.ps(4.66 KB)
📄 gs_dps.ps(7.79 KB)
📄 gs_dps1.ps(4.61 KB)
📄 gs_dps2.ps(7.9 KB)
📄 gs_dscp.ps(3.84 KB)
📄 gs_epsf.ps(7.04 KB)
📄 gs_fapi.ps(11.2 KB)
📄 gs_fntem.ps(11.36 KB)
📄 gs_fonts.ps(43.84 KB)
📄 gs_frsd.ps(2.95 KB)
📄 gs_icc.ps(3.2 KB)
📄 gs_il1_e.ps(2.73 KB)
📄 gs_img.ps(27.51 KB)
📄 gs_init.ps(72.42 KB)
📄 gs_l2img.ps(5.5 KB)
📄 gs_lev2.ps(33.8 KB)
📄 gs_ll3.ps(11.83 KB)
📄 gs_mex_e.ps(3.9 KB)
📄 gs_mgl_e.ps(2.14 KB)
📄 gs_mro_e.ps(2.47 KB)
📄 gs_pdf_e.ps(1.66 KB)
📄 gs_pdfwr.ps(27.34 KB)
📄 gs_res.ps(36 KB)
📄 gs_resmp.ps(22.2 KB)
📄 gs_setpd.ps(29.17 KB)
📄 gs_statd.ps(13.24 KB)
📄 gs_std_e.ps(3.16 KB)
📄 gs_sym_e.ps(3.02 KB)
📄 gs_trap.ps(2.96 KB)
📄 gs_ttf.ps(77.36 KB)
📄 gs_typ32.ps(4.25 KB)
📄 gs_typ42.ps(2.08 KB)
📄 gs_type1.ps(8.09 KB)
📄 gs_wan_e.ps(1.64 KB)
📄 opdfread.ps(138.44 KB)
📄 pdf_base.ps(40.03 KB)
📄 pdf_cslayer.ps(3.96 KB)
📄 pdf_draw.ps(60.05 KB)
📄 pdf_font.ps(59.32 KB)
📄 pdf_main.ps(64.76 KB)
📄 pdf_ops.ps(27.75 KB)
📄 pdf_rbld.ps(14.7 KB)
📄 pdf_sec.ps(15.54 KB)
📄 xlatmap(1.75 KB)

Editing: gs_diskn.ps

%    Copyright (C) 1990, 2000 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_diskn.ps 8954 2008-08-08 04:22:38Z ray $
% Initialization file for %disk device modifications
% When this is run, systemdict is still writable,

systemdict begin

% Collect the list of searchable IODevices in SearchOrder
% Efficiency here doesn't matter since we run this at the end
% of gs_init and convert it to a static array.
/.getsearchabledevs { % - .getsearchabledevs [ list_of_strings ]
  //systemdict /.searchabledevs .knownget not {
    .currentglobal true .setglobal
    mark (*) { 
      dup length string copy dup currentdevparams /Searchable
      .knownget { not { pop } if } { pop } ifelse
    } 8192 string /IODevice resourceforall
    ]
    % now process the array into correct SearchOrder
    0 1 2 {
      mark exch 2 index {
	dup currentdevparams /SearchOrder get 2 index eq
	{ exch } { pop } ifelse
      } forall % devices on the old list
      pop
      % make the array and sort it by name
      ] { lt } bind .sort 
      exch
    } for
    % collect all devices with SearchOrder > 2
    mark 2 index {
      dup currentdevparams /SearchOrder get 2 gt 
      { exch } { pop } ifelse
    } forall 
    ] exch pop
    % We now have 4 arrays on the stack, SO=0 SO=1 SO=2 SO>2
    % make them into a single array
    mark 5 1 roll ] mark exch { { } forall } forall ]
    //systemdict /.searchabledevs 2 index .forceput
    exch .setglobal
  }
  if
} .bind executeonly def % must be bound and hidden for .forceput

% Modify .putdevparams to force regeneration of .searchabledevs list
/.putdevparams {
  % We could be smarter and check for %disk* device, but this
  % doesn't get run enough to justify the complication
  //.putdevparams
  //systemdict /.searchabledevs .forceundef  
} .bind odef % must be bound and hidden for .forceundef

% ------ extend filenameforall to handle wildcards in %dev% part of pattern -------%
/filenameforall {
  count 3 ge {
    2 index (%) search {
      pop pop 
    } {
      % no device specified, so search them all
      pop (*%) 3 index concatstrings
      % we need to suppress the device when we return the string
      % in order to match Adobe's behaviour with %disk devices.
      4 -2 roll		% the callers procedure
      [ { (%) search { pop pop (%) search { pop pop } if } if } /exec load
        4 -1 roll		% the callers procedure
        /exec load
      ] cvx
      4 2 roll		% put the modified procedure where it belongs
    } ifelse
    % extract device portion (up to end of string or next %)
    (%) search { exch pop } if	% stack: opat proc scratch npat device
    dup (*) search { pop pop pop true } { pop false } ifelse
    1 index (?) search { pop pop pop true } { pop false } ifelse
    or not {
      pop pop //filenameforall	% device with no wildcard
    } {
      (%) concatstrings (%) exch concatstrings
      .getsearchabledevs
      % find all matching devices and add the rest of the search string
      mark exch {
          dup counttomark 1 add index .stringmatch {
          counttomark 2 add index concatstrings
        } {
          pop
        } ifelse
      } forall
      ]
      3 1 roll pop pop
      4 -1 roll pop 
      % now we need to invoke filenameforall for each of the strings
      % in the array. We do this by building a procedure that is like
      % an unrolled 'forall' loop. We do this to get the parameters
      % for each filenameforall, since each execution will pop its
      % parameters, but we can't use the operand stack for storage
      % since each invocation must have the same operand stack.
      mark exch {
          counttomark dup 3 add index exch
          2 add index
          /filenameforall load
        } forall
      ] cvx
      3 1 roll pop pop
      exec		% run our unrolled loop
    }
    ifelse
  } {
    //filenameforall	% not enough parameters -- just let it fail
  }
  ifelse
} odef

% redefine file to search all devices in order
/file {
  dup 0 get (r) 0 get eq dup {
    pop false				% success code
    2 index 0 get 37 eq { [ () ] } { .getsearchabledevs } ifelse
    { 3 index concatstrings	% prepend the device
      {
        2 index //file } .internalstopped not {
	4 1 roll pop pop pop true
	exit		% exit with success
      } {
        pop pop
      }
      ifelse
    }
    forall
  }
  if
  not {		% just let standard file operator handle things
    //file
  }
  if
} bind odef

% redefine deletefile to search all devices in order
/deletefile {
  false				% success code
  1 index 0 get 37 eq { [ () ] } { .getsearchabledevs } ifelse
  { 2 index concatstrings	% prepend the device
    { //deletefile } .internalstopped exch pop not {
      pop true exit		% exit with success
    }
    if
  }
  forall
  not { $error /errorname get /deletefile .systemvar exch signalerror } if
} bind odef

% redefine status to search all devices in order
/status {
  dup type /stringtype eq {
    false				% success code
    1 index 0 get 37 eq { [ () ] } { .getsearchabledevs } ifelse
    { 2 index concatstrings	% prepend the device
      { //status } .internalstopped not {
        { true 7 -2 roll pop pop true exit } % exit with success
	if
      }
      if
    }
    forall
    % If we made it this far, no devices were found to status the file
    	% clean up to return 'false'
    exch pop
  } {
    //status
  }
  ifelse
} bind odef

% Also redefine renamefile to search all devices in order
/renamefile {
  false				% success code
  2 index 0 get 37 eq { [ () ] } { .getsearchabledevs } ifelse
  { dup 4 index concatstrings	% prepend the device
    { (r) //file } .internalstopped
    not {
      closefile exch pop true exit	% exit with success
    } {
      pop pop
    } ifelse
  }
  forall
  not { $error /errorname get /renamefile .systemvar exch signalerror } if
  3 -1 roll concatstrings exch
  //renamefile
} bind odef

% redefine devforall to process devices in numeric order
% Spec's for 'devforall' are unclear, but font downloaders may expect this
/devforall {		% <proc> <scratch> devforall -
  [ { dup length string copy } 2 index //devforall ]	
  % stack: proc scratch array_of_device_names
  { lt } .sort
  % We don't really invoke the procedure with the scratch string
  % but rather with the strings from our array
  exch pop exch forall
} odef
end				% systemdict

Hackfut Security File Manager

Editing: gs_diskn.ps

Upload File

Create Folder