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
dnj750c.upp	2808	0644	edit dl rm
dnj750m.upp	1975	0644	edit dl rm
docie.ps	7498	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_css_e.ps	4922	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	2582	0644	edit dl rm
PDFX_def.ps	3864	0644	edit dl rm
pdf_info.ps	15152	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	6070	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/pdf2dsc.ps (8063B)

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

% pdf2dsc.ps
% read pdf file and produce DSC "index" file.
%
% Input  file is named PDFname
% Output file is named DSCname
%
% Run using:
%  gs -dNODISPLAY -sPDFname=pdffilename -sDSCname=tempfilename pdf2dsc.ps
% Then display the PDF file with
%  gs tempfilename
%
% Modified by Jason McCarty, bug 688071
%       Add PageLabels support.
% Modified by Geoff Keating <geoffk@ozemail.com.au> 21/12/98:
%	Add DocumentMedia, PageMedia comments
%	Use inherited BoundingBox and Orientation
%	Reformat, add new macro 'puts', generally clean up
% Modified by Johannes Plass <plass@dipmza.physik.uni-mainz.de> 1996-11-05:
%	Adds BoundingBox and Orientation if available.
% Modified by rjl/lpd 9/19/96
%	Updates for compatibility with modified pdf_*.ps code for handling
%	  page ranges (i.e., partial files) better.
% Modified by Geoff Keating <Geoff.Keating@anu.edu.au> 7/3/96:
%	include Title and CreationDate DSC comments (these are displayed by
%	  Ghostview);
%	reduce the size of typical output files by a factor of about 3.
% Modified by L. Peter Deutsch 3/18/96:
%	Removes unnecessary and error-prone code duplicated from pdf_main.ps
% Modified by L. Peter Deutsch for GS 3.33
% Originally by Russell Lang  1995-04-26

/PDFfile PDFname (r) file def
/DSCfile DSCname (w) file def
systemdict /.setsafe known { .setsafe } if

/puts { DSCfile exch writestring } bind def
/DSCstring 255 string def
/MediaTypes 10 dict def

PDFfile runpdfbegin
   /FirstPage where { pop } { /FirstPage 1 def } ifelse
   /LastPage where { pop } { /LastPage pdfpagecount def } ifelse

% scan through for media sizes, keep them in the dictionary
   FirstPage 1 LastPage {
      pdfgetpage /MediaBox pget pop   % MediaBox is a required attribute
      aload pop
      3 -1 roll sub 3 1 roll exch sub exch
      2 array astore
      aload 3 1 roll 10 string cvs exch 10 string cvs
      (x) 3 -1 roll concatstrings concatstrings cvn
      MediaTypes 3 1 roll exch put
   } for

% write header and prolog
   (%!PS-Adobe-3.0\n) puts
   Trailer /Info knownoget
    {
      dup /Title knownoget
       {
         (%%Title: ) puts
         DSCfile exch write==
       }
      if
      /CreationDate knownoget
       {
         (%%CreationDate: ) puts
         DSCfile exch write==
       }
      if
    }
   if
   % This is really supposed to be sorted by frequency of usage...
   (%%DocumentMedia: )
   MediaTypes {
      exch pop
      1 index puts
      (y) puts dup 1 get DSCstring cvs puts
      (x) puts dup 0 get DSCstring cvs puts
      ( ) puts dup 0 get DSCstring cvs puts
      ( ) puts 1 get DSCstring cvs puts
      ( 70 white ()\n) puts
      pop (%%+ )
   } forall
   pop

(%%Pages: ) puts
   LastPage FirstPage sub 1 add DSCstring cvs puts
   (\n%%EndComments\n) puts
   (%%BeginProlog\n) puts
   (/Page null def\n/Page# 0 def\n/PDFSave null def\n) puts
   (/DSCPageCount 0 def\n) puts
   (/DoPDFPage {dup /Page# exch store dup dopdfpages } def\n) puts
   (%%EndProlog\n) puts
   (%%BeginSetup\n) puts
   DSCfile PDFname write==only
   ( \(r\) file { DELAYSAFER { .setsafe } if } stopped pop\n) puts
   ( runpdfbegin\n) puts
   ( process_trailer_attrs\n) puts
   (%%EndSetup\n) puts

/.hasPageLabels false def % see "Page Labels" in the PDF Reference
   Trailer /Root knownoget {
     /PageLabels knownoget {
       /PageLabels exch def
       /.pageCounter 1 def
       /.pageCounterType /D def
       /.pagePrefix () def

% (TEXT)  .ToLower  (text)  -- convert text to lowercase -- only letters!
       /.ToLower {
         dup length 1 sub  -1 0 {
           1 index exch 2 copy get 2#00100000 or put
         } for
       } def

% int  .CvAlpha  (int in alphabetic base 26)  -- convert a positive
       % integer to base 26 in capital letters, with 1=A; i.e. A..Z, AA..AZ, ...
       /.CvAlpha { % using cvrs seems futile since this isn't zero-based ...
         [ exch % construct an array of ASCII values, in reverse
         { % the remainder stays on the top of stack
           dup 0 eq { pop exit } if % quit if the value is zero
           dup 26 mod dup 0 eq { 26 add } if % so that the division is correct
           dup 64 add 3 1 roll sub 26 idiv % save the ASCII value and iterate
         } loop ]
         dup length dup string 3 1 roll
         dup -1 1 { % put the letters in a string
           4 copy sub exch 4 -1 roll 1 sub get put
         } for pop pop
       } def

% int  .CvRoman  (int in capital Roman numerals)
       % convert a positive integer to capital Roman numerals
       % return a decimal string if >= 4000
       /.CvRoman {
         dup DSCstring cvs % start with the decimal representation
         exch 4000 lt { % convert only if Roman numerals can represent this
           dup length
           [ [ () (I) (II) (III) (IV) (V) (VI) (VII) (VIII) (IX) ]
             [ () (X) (XX) (XXX) (XL) (L) (LX) (LXX) (LXXX) (XC) ]
             [ () (C) (CC) (CCC) (CD) (D) (DC) (DCC) (DCCC) (CM) ]
             [ () (M) (MM) (MMM) ] ] % Roman equivalents
           () % append the Roman equivalent of each decimal digit to this string
           2 index  -1 1 {
             2 index 1 index 1 sub get
             5 index 5 index 4 -1 roll sub get
             48 sub get concatstrings
           } for
           4 1 roll pop pop pop
         } if
       } def

/PageToString <<
         /D { DSCstring cvs }
         /R { .CvRoman }
         /r { .CvRoman .ToLower }
         /A { .CvAlpha }
         /a { .CvAlpha .ToLower }
       >> def
       /.hasPageLabels true def
     } if
   } if

% process each page
   FirstPage 1 LastPage {
       (%%Page: ) puts

.hasPageLabels {
         dup 1 sub PageLabels exch numoget dup null ne {
           % page labels changed at this page, reset the values
           dup /S known { dup /S get } { null } ifelse
           /.pageCounterType exch def

dup /P known { dup /P get } { () } ifelse
           /.pagePrefix exch def

dup /St known { /St get } { pop 1 } ifelse
           /.pageCounter exch def
         } { pop } ifelse

% output the page label
         (\() .pagePrefix
         .pageCounterType //null ne dup {
           PageToString .pageCounterType known and
         } if { % format the page number
           .pageCounter dup 0 gt { % don't try to format nonpositive numbers
             PageToString .pageCounterType get exec
           } {
             DSCstring cvs
          } ifelse
         } { () } ifelse
         (\)) concatstrings concatstrings concatstrings puts

/.pageCounter .pageCounter 1 add def
       } {
         dup DSCstring cvs puts
       } ifelse
       ( ) puts
       dup DSCstring cvs puts
       (\n) puts

dup pdfgetpage
       dup /MediaBox pget pop
         (%%PageMedia: y) puts
         aload pop 3 -1 roll sub DSCstring cvs puts
         (x) puts exch sub DSCstring cvs puts
         (\n) puts
       dup /CropBox pget {
         (%%PageBoundingBox: ) puts
         {DSCfile exch write=only ( ) puts} forall
         (\n) puts
       } if
       /Rotate pget {
         (%%PageOrientation: ) puts
         90 div cvi 4 mod dup 0 lt {4 add} if
         [(Portrait) (Landscape) (UpsideDown) (Seascape)] exch get puts
         (\n) puts
       } if

DSCfile exch DSCstring cvs writestring
       ( DoPDFPage\n) puts
    } for
    runpdfend
% write trailer
(%%Trailer\n) puts
(runpdfend\n) puts
(%%EOF\n) puts
% close output file and exit
DSCfile closefile
quit
% end of pdf2dsc.ps

cmd: