FM / lib

/usr/share/ghostscript/lib

Name	Size	Mode	Actions
acctest.ps	4269	0644	edit dl rm
align.ps	2156	0644	edit dl rm
bj8.rpd	639	0644	edit dl rm
bj8gc12f.upp	1532	0644	edit dl rm
bj8hg12f.upp	1531	0644	edit dl rm
bj8oh06n.upp	1517	0644	edit dl rm
bj8pa06n.upp	1525	0644	edit dl rm
bj8pp12f.upp	1542	0644	edit dl rm
bj8ts06n.upp	1530	0644	edit dl rm
bjc610a0.upp	1527	0644	edit dl rm
bjc610a1.upp	1516	0644	edit dl rm
bjc610a2.upp	1517	0644	edit dl rm
bjc610a3.upp	1522	0644	edit dl rm
bjc610a4.upp	1530	0644	edit dl rm
bjc610a5.upp	1517	0644	edit dl rm
bjc610a6.upp	1517	0644	edit dl rm
bjc610a7.upp	1520	0644	edit dl rm
bjc610a8.upp	1526	0644	edit dl rm
bjc610b1.upp	1516	0644	edit dl rm
bjc610b2.upp	1517	0644	edit dl rm
bjc610b3.upp	1522	0644	edit dl rm
bjc610b4.upp	1530	0644	edit dl rm
bjc610b6.upp	1517	0644	edit dl rm
bjc610b7.upp	1521	0644	edit dl rm
bjc610b8.upp	1526	0644	edit dl rm
bjc6000a1.upp	1660	0644	edit dl rm
bjc6000b1.upp	1660	0644	edit dl rm
caption.ps	1759	0644	edit dl rm
cbjc600.ppd	11148	0644	edit dl rm
cbjc800.ppd	11491	0644	edit dl rm
cdj550.upp	1690	0644	edit dl rm
cdj690.upp	1999	0644	edit dl rm
cdj690ec.upp	2060	0644	edit dl rm
cid2code.ps	4491	0644	edit dl rm
dmp_init.ps	7246	0644	edit dl rm
dmp_site.ps	459	0644	edit dl rm
dnj750c.upp	2808	0644	edit dl rm
dnj750m.upp	1975	0644	edit dl rm
docie.ps	7498	0644	edit dl rm
escp_24.src	350	0644	edit dl rm
font2pcl.ps	18439	0644	edit dl rm
ghostpdf.ppd	25643	0644	edit dl rm
gslp.ps	20728	0644	edit dl rm
gsnup.ps	2634	0644	edit dl rm
gs_ce_e.ps	2219	0644	edit dl rm
gs_il2_e.ps	2631	0644	edit dl rm
gs_kanji.ps	4007	0644	edit dl rm
gs_ksb_e.ps	3145	0644	edit dl rm
gs_l.xbm	1945	0644	edit dl rm
gs_l.xpm	2751	0644	edit dl rm
gs_lgo_e.ps	2734	0644	edit dl rm
gs_lgx_e.ps	1766	0644	edit dl rm
gs_l_m.xbm	1955	0644	edit dl rm
gs_m.xbm	945	0644	edit dl rm
gs_m.xpm	1437	0644	edit dl rm
gs_m_m.xbm	955	0644	edit dl rm
gs_s.xbm	594	0644	edit dl rm
gs_s.xpm	957	0644	edit dl rm
gs_s_m.xbm	604	0644	edit dl rm
gs_t.xbm	345	0644	edit dl rm
gs_t.xpm	605	0644	edit dl rm
gs_t_m.xbm	355	0644	edit dl rm
gs_wl1_e.ps	2495	0644	edit dl rm
gs_wl2_e.ps	2494	0644	edit dl rm
gs_wl5_e.ps	2512	0644	edit dl rm
ht_ccsto.ps	228143	0644	edit dl rm
image-qa.ps	73050	0644	edit dl rm
jispaper.ps	784	0644	edit dl rm
landscap.ps	1468	0644	edit dl rm
lines.ps	3736	0644	edit dl rm
mkcidfm.ps	22321	0644	edit dl rm
necp2x.upp	1045	0644	edit dl rm
necp2x6.upp	1069	0644	edit dl rm
pdf2dsc.ps	8063	0644	edit dl rm
PDFA_def.ps	1276	0644	edit dl rm
PDFX_def.ps	1812	0644	edit dl rm
pf2afm.ps	15295	0644	edit dl rm
pfbtopfa.ps	996	0644	edit dl rm
PM760p.upp	1160	0644	edit dl rm
PM760pl.upp	1124	0644	edit dl rm
PM820p.upp	1142	0644	edit dl rm
PM820pl.upp	1117	0644	edit dl rm
ppath.ps	1819	0644	edit dl rm
pphs.ps	6844	0644	edit dl rm
prfont.ps	7213	0644	edit dl rm
printafm.ps	4898	0644	edit dl rm
ps2ai.ps	22306	0644	edit dl rm
ps2epsi.ps	8540	0644	edit dl rm
ras1.upp	215	0644	edit dl rm
ras3.upp	214	0644	edit dl rm
ras4.upp	220	0644	edit dl rm
ras8m.upp	209	0644	edit dl rm
ras24.upp	219	0644	edit dl rm
ras32.upp	196	0644	edit dl rm
rollconv.ps	12526	0644	edit dl rm
s400a1.upp	1454	0644	edit dl rm
s400b1.upp	1603	0644	edit dl rm
sharp.upp	1936	0644	edit dl rm
sipixa6.upp	529	0644	edit dl rm
st640ih.upp	2281	0644	edit dl rm
st640ihg.upp	1508	0644	edit dl rm
st640p.upp	1914	0644	edit dl rm
st640pg.upp	1141	0644	edit dl rm
st640pl.upp	1878	0644	edit dl rm
st640plg.upp	1105	0644	edit dl rm
stc.upp	1923	0644	edit dl rm
stc2.upp	1904	0644	edit dl rm
stc2s_h.upp	2272	0644	edit dl rm
stc2_h.upp	1879	0644	edit dl rm
stc200_h.upp	1848	0644	edit dl rm
stc300.upp	2136	0644	edit dl rm
stc300bl.upp	1341	0644	edit dl rm
stc300bm.upp	1430	0644	edit dl rm
stc500p.upp	1903	0644	edit dl rm
stc500ph.upp	1903	0644	edit dl rm
stc600ih.upp	2281	0644	edit dl rm
stc600p.upp	1151	0644	edit dl rm
stc600pl.upp	1115	0644	edit dl rm
stc640p.upp	1095	0644	edit dl rm
Stc670p.upp	1159	0644	edit dl rm
Stc670pl.upp	1124	0644	edit dl rm
Stc680p.upp	1140	0644	edit dl rm
Stc680pl.upp	1115	0644	edit dl rm
stc740ih.upp	2123	0644	edit dl rm
Stc740p.upp	1039	0644	edit dl rm
Stc740pl.upp	1115	0644	edit dl rm
Stc760p.upp	1141	0644	edit dl rm
Stc760pl.upp	1115	0644	edit dl rm
Stc777p.upp	1140	0644	edit dl rm
Stc777pl.upp	1115	0644	edit dl rm
stc800ih.upp	2158	0644	edit dl rm
stc800p.upp	1115	0644	edit dl rm
stc800pl.upp	1097	0644	edit dl rm
stc1520h.upp	2154	0644	edit dl rm
stcany.upp	673	0644	edit dl rm
stcany_h.upp	681	0644	edit dl rm
stcinfo.ps	25517	0644	edit dl rm
stcolor.ps	5065	0644	edit dl rm
stc_h.upp	1913	0644	edit dl rm
stc_l.upp	734	0644	edit dl rm
stocht.ps	2494	0644	edit dl rm
Stp720p.upp	1158	0644	edit dl rm
Stp720pl.upp	1115	0644	edit dl rm
Stp870p.upp	1140	0644	edit dl rm
Stp870pl.upp	1115	0644	edit dl rm
traceimg.ps	1382	0644	edit dl rm
traceop.ps	2572	0644	edit dl rm
uninfo.ps	5986	0644	edit dl rm
viewcmyk.ps	1984	0644	edit dl rm
viewgif.ps	5395	0644	edit dl rm
viewjpeg.ps	5691	0644	edit dl rm
viewmiff.ps	4253	0644	edit dl rm
viewpbm.ps	10282	0644	edit dl rm
viewpcx.ps	5232	0644	edit dl rm
viewps2a.ps	1136	0644	edit dl rm
winmaps.ps	3605	0644	edit dl rm
zeroline.ps	2317	0644	edit dl rm

Edit: /usr/share/ghostscript/lib/ps2epsi.ps (8540B)

% Copyright (C) 2001-2019 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.
%

% Convert an arbitrary PostScript file to an EPSI file.
%
% Please do not contact these users if you have questions.  They no longer
% have the time, interest, or current expertise to keep this code working.
% If you find bugs, please send proposed fixes to bug-gs@ghostscript.com.
%
% Bug fix 2002-04-20 by rayjj: Bounding box was incorrect since it depended
%   on the dither pattern and gray shade at the boundary. Changed to use
%   8-bit grayscale preview image to allow correct bounding box (at the
%   expense of a 8x larger preview image). Also moved .setsafe until after
%   the device and file operations are complete (but still before the input
%   file is processed.
% Bug fix 2000-04-11 by lpd: if a font didn't have a FontName (which is the
%   case for bitmap fonts produced by recent versions of dvips), setfont
%   caused an error.
% Bug fix 8/21/99 by lpd: many of the margin and width computations were
%   wrong (off by 1).  The code only "worked" because the bugs were
%   (mostly) in conservative directions.
% Modified 3/17/98 by lpd to make it possible to run this file without
%   running the ps2epsi script first, for debugging.
% Bug fix 9/29/97 by lpd <ghost@aladdin.com>: if the page size wasn't an
%   exact multiple of 8 bits, an incorrect bounding box (or a rangecheck
%   error) could occur.
% Patched 7/26/95 by
%	Greg P. Kochanski <gpk@bell-labs.com>
%   to add many new DSC comments and make the comments conforming.
% Original version contributed by
%	George Cameron <george@bio-medical-physics.aberdeen.ac.uk>
%

% Initialize, and redefine copypage and showpage.

% ps2edict is normally defined in the pre-loaded code created by the
% ps2epsi script.
/ps2edict where { pop } { /ps2edict 25 dict def } ifelse
ps2edict begin

% The main procedure
  /ps2epsi
   {
        % bbox written to outfile by bbox device from ps2epsi command file
        outfile (r) file /epsifile exch def
        /BBoxString epsifile 256 string readline pop def
        /HiresBBoxString epsifile 256 string readline pop def
        epsifile closefile
                        % Open the file
     outfile (w) file /epsifile exch def
                                        % Get the device parameters
     currentdevice getdeviceprops .dicttomark
     /HWSize get aload pop
       /devheight exch def
       /devwidth exch def
     matrix defaultmatrix
       /devmatrix exch def
                                % Make a corresponding 8-bit deep memory device
     devmatrix devwidth devheight
     256 string 0 1 255 { 1 index exch dup 255 exch sub put } for
     makeimagedevice
     /arraydevice exch def
     arraydevice
     % Turn on anti-aliasing
     mark /TextAlphaBits 4 /GraphicsAlphaBits 4 6 -1 roll
     putdeviceprops
     setdevice	% (does an erasepage)
     /rowwidth devwidth def
     /row rowwidth string def
     /zerorow rowwidth string def	% all zero
                                % Replace the definition of showpage
     userdict /showpage { ps2edict begin epsipage end } bind put
     userdict /setfont { ps2edict begin epsisetfont end } bind put
     userdict /setpagedevice /pop load put
   } bind def

/epsifontdict 100 dict def

/epsisetfont
 {
 % code here keeps a list of font names in dictionary epsifontdict
 /tmpfont exch def
 tmpfont /FontName known {
   /tmpfontname tmpfont /FontName get def
   epsifontdict tmpfontname known not { epsifontdict tmpfontname 0 put } if
   epsifontdict tmpfontname 2 copy get 1 add put
 } if
 tmpfont setfont
 } bind def

% Get a scan line from the memory device, zeroing any bits beyond
% the device width.
/getscanline {		% <device> <y> <string> getscanline <string>
  dup 4 1 roll copyscanlines pop
  16#ff00 devwidth 7 and neg bitshift 255 and
  dup 0 ne {
    1 index dup length 1 sub 2 copy get 4 -1 roll and put
  } {
    pop
  } ifelse
} bind def

/margintest {		% <y-start> <step> <y-limit> margintest <y-non-blank>
                        % <y-start> <step> <y-limit> margintest -
  { dup arraydevice exch row getscanline
    zerorow ne { exit } if pop
  } for
} bind def

/epsiNameStr 200 string def
  /epsiNpages 0 def
  /epsiNpageStr 20 string def
  /epsipage
   {
     /epsiNpages epsiNpages 1 add def
     /loopcount devheight 1 sub def

% Find top margin -- minimum Y of non-blank scan line.
     -1 0 1 loopcount margintest
     dup -1 eq { (blank page!!\n) print quit }{ exch pop } ifelse
     /tm exch def

% Find bottom margin -- maximum Y of non-blank scan line.
     loopcount -1 0 margintest
     /bm exch def

% Initialise limit variables
     /loopcount rowwidth 1 sub def
     /lm loopcount def
     /rm 0 def

% Find left and right boundaries of image
     tm 1 bm
      { % Get more data
        arraydevice exch row getscanline pop
        % Scan from left to find first non-zero element
        % We save first the element, then the index
        -1 0 1 loopcount
        { dup row exch get 0 ne { exch pop exit }{ pop } ifelse
        } for
        % If we found -1, row is blank ..
        dup -1 ne
        { % Find the leftmost index
          dup lm lt
          % If the new index is less, we save index and element
          { /lm exch def } { pop } ifelse
          % Now find the rightmost index
          loopcount -1 0
          { dup row exch get 0 ne { exit }{ pop } ifelse
          } for
          dup rm gt
          % If the new index is greater, we save index and element
          { /rm exch def } { pop } ifelse
        } {
          pop
        } ifelse
      } for

% Write out the magic string and bounding box information
     epsifile (%!PS-Adobe-2.0 EPSF-1.2\n) writestring
         /epsititle where { pop epsifile epsititle writestring } if
         /epsicreator where { pop epsifile epsicreator writestring } if
         /epsicrdt where { pop epsifile epsicrdt writestring } if
         /epsifor where { pop epsifile epsifor writestring } if
     epsifile flushfile

% Write out the page count:
         epsifile (%%Pages: ) writestring
         epsifile epsiNpages epsiNpageStr cvs writestring
         epsifile (\n) writestring
     epsifile flushfile

% Write out the list of used fonts:
         epsifile (%%DocumentFonts:) writestring
         epsifontdict {
                                        epsifile ( ) writestring
                                        pop epsiNameStr cvs epsifile exch writestring
                                        } forall
         epsifile (\n) writestring
     epsifile flushfile

epsifile BBoxString writestring epsifile (\n) writestring
        epsifile HiresBBoxString writestring epsifile (\n) writestring

% Define character and bit widths for the output line buffer:
     /cwidth rm lm sub 1 add def
     /out cwidth string def

epsifile (%%EndComments\n\n) writestring
     epsifile (%%BeginProlog\n) writestring
     epsifile (%%BeginPreview: ) writestring
     epsifile cwidth write==only epsifile ( ) writestring
     epsifile bm tm sub 1 add write==only epsifile ( 8 ) writestring
     epsifile bm tm sub 1 add
     cwidth 39 add 40 idiv mul write==
     epsifile flushfile

gsave

tm 1 bm
      { % Get a scan line interval from the array device
        arraydevice exch row copyscanlines lm cwidth getinterval
        % Write out the hex data as 40 bytes per line (82 chars)
        0 40 cwidth
         { epsifile (% ) writestring
           epsifile exch 2 index exch
           dup cwidth exch sub 40 .min getinterval writehexstring
           epsifile (\n) writestring
         } for
        pop
      } for

epsifile (%%EndImage\n) writestring
     epsifile (%%EndPreview\n) writestring
     epsifile flushfile
     grestore
     erasepage initgraphics

DonePage 0 1 put
   } bind def

(outfile) getenv
  { /outfile exch def
    ps2epsi

/DonePage 1 string def
    (%stdin) (r) file cvx execute0
    DonePage 0 get 0 eq { showpage } if
  } if

end
quit

cmd: