% Copyright (C) 2001-2018 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
Name | Type | Size | Permission | Actions |
---|---|---|---|---|
PDFA_def.ps | File | 1.25 KB | 0644 |
|
PDFX_def.ps | File | 1.77 KB | 0644 |
|
PM760p.upp | File | 1.13 KB | 0644 |
|
PM760pl.upp | File | 1.1 KB | 0644 |
|
PM820p.upp | File | 1.12 KB | 0644 |
|
PM820pl.upp | File | 1.09 KB | 0644 |
|
Stc670p.upp | File | 1.13 KB | 0644 |
|
Stc670pl.upp | File | 1.1 KB | 0644 |
|
Stc680p.upp | File | 1.11 KB | 0644 |
|
Stc680pl.upp | File | 1.09 KB | 0644 |
|
Stc740p.upp | File | 1.01 KB | 0644 |
|
Stc740pl.upp | File | 1.09 KB | 0644 |
|
Stc760p.upp | File | 1.11 KB | 0644 |
|
Stc760pl.upp | File | 1.09 KB | 0644 |
|
Stc777p.upp | File | 1.11 KB | 0644 |
|
Stc777pl.upp | File | 1.09 KB | 0644 |
|
Stp720p.upp | File | 1.13 KB | 0644 |
|
Stp720pl.upp | File | 1.09 KB | 0644 |
|
Stp870p.upp | File | 1.11 KB | 0644 |
|
Stp870pl.upp | File | 1.09 KB | 0644 |
|
acctest.ps | File | 4.17 KB | 0644 |
|
align.ps | File | 2.11 KB | 0644 |
|
bj8.rpd | File | 639 B | 0644 |
|
bj8gc12f.upp | File | 1.5 KB | 0644 |
|
bj8hg12f.upp | File | 1.5 KB | 0644 |
|
bj8oh06n.upp | File | 1.48 KB | 0644 |
|
bj8pa06n.upp | File | 1.49 KB | 0644 |
|
bj8pp12f.upp | File | 1.51 KB | 0644 |
|
bj8ts06n.upp | File | 1.49 KB | 0644 |
|
bjc6000a1.upp | File | 1.62 KB | 0644 |
|
bjc6000b1.upp | File | 1.62 KB | 0644 |
|
bjc610a0.upp | File | 1.49 KB | 0644 |
|
bjc610a1.upp | File | 1.48 KB | 0644 |
|
bjc610a2.upp | File | 1.48 KB | 0644 |
|
bjc610a3.upp | File | 1.49 KB | 0644 |
|
bjc610a4.upp | File | 1.49 KB | 0644 |
|
bjc610a5.upp | File | 1.48 KB | 0644 |
|
bjc610a6.upp | File | 1.48 KB | 0644 |
|
bjc610a7.upp | File | 1.48 KB | 0644 |
|
bjc610a8.upp | File | 1.49 KB | 0644 |
|
bjc610b1.upp | File | 1.48 KB | 0644 |
|
bjc610b2.upp | File | 1.48 KB | 0644 |
|
bjc610b3.upp | File | 1.49 KB | 0644 |
|
bjc610b4.upp | File | 1.49 KB | 0644 |
|
bjc610b6.upp | File | 1.48 KB | 0644 |
|
bjc610b7.upp | File | 1.49 KB | 0644 |
|
bjc610b8.upp | File | 1.49 KB | 0644 |
|
caption.ps | File | 1.72 KB | 0644 |
|
cbjc600.ppd | File | 10.89 KB | 0644 |
|
cbjc800.ppd | File | 11.22 KB | 0644 |
|
cdj550.upp | File | 1.65 KB | 0644 |
|
cdj690.upp | File | 1.95 KB | 0644 |
|
cdj690ec.upp | File | 2.01 KB | 0644 |
|
cid2code.ps | File | 4.39 KB | 0644 |
|
dmp_init.ps | File | 7.08 KB | 0644 |
|
dmp_site.ps | File | 459 B | 0644 |
|
dnj750c.upp | File | 2.74 KB | 0644 |
|
dnj750m.upp | File | 1.93 KB | 0644 |
|
docie.ps | File | 7.32 KB | 0644 |
|
escp_24.src | File | 350 B | 0644 |
|
font2pcl.ps | File | 18.01 KB | 0644 |
|
ghostpdf.ppd | File | 25.04 KB | 0644 |
|
gs_ce_e.ps | File | 2.17 KB | 0644 |
|
gs_il2_e.ps | File | 2.57 KB | 0644 |
|
gs_kanji.ps | File | 3.91 KB | 0644 |
|
gs_ksb_e.ps | File | 3.07 KB | 0644 |
|
gs_l.xbm | File | 1.9 KB | 0644 |
|
gs_l.xpm | File | 2.69 KB | 0644 |
|
gs_l_m.xbm | File | 1.91 KB | 0644 |
|
gs_lgo_e.ps | File | 2.67 KB | 0644 |
|
gs_lgx_e.ps | File | 1.72 KB | 0644 |
|
gs_m.xbm | File | 945 B | 0644 |
|
gs_m.xpm | File | 1.4 KB | 0644 |
|
gs_m_m.xbm | File | 955 B | 0644 |
|
gs_s.xbm | File | 594 B | 0644 |
|
gs_s.xpm | File | 957 B | 0644 |
|
gs_s_m.xbm | File | 604 B | 0644 |
|
gs_t.xbm | File | 345 B | 0644 |
|
gs_t.xpm | File | 605 B | 0644 |
|
gs_t_m.xbm | File | 355 B | 0644 |
|
gs_wl1_e.ps | File | 2.44 KB | 0644 |
|
gs_wl2_e.ps | File | 2.44 KB | 0644 |
|
gs_wl5_e.ps | File | 2.45 KB | 0644 |
|
gslp.ps | File | 20.24 KB | 0644 |
|
gsnup.ps | File | 2.57 KB | 0644 |
|
ht_ccsto.ps | File | 222.8 KB | 0644 |
|
image-qa.ps | File | 71.34 KB | 0644 |
|
jispaper.ps | File | 784 B | 0644 |
|
landscap.ps | File | 1.43 KB | 0644 |
|
lines.ps | File | 3.65 KB | 0644 |
|
mkcidfm.ps | File | 21.8 KB | 0644 |
|
necp2x.upp | File | 1.02 KB | 0644 |
|
necp2x6.upp | File | 1.04 KB | 0644 |
|
pdf2dsc.ps | File | 7.87 KB | 0644 |
|
pf2afm.ps | File | 14.94 KB | 0644 |
|
pfbtopfa.ps | File | 995 B | 0644 |
|
ppath.ps | File | 1.78 KB | 0644 |
|
pphs.ps | File | 6.68 KB | 0644 |
|
prfont.ps | File | 7.04 KB | 0644 |
|
printafm.ps | File | 4.78 KB | 0644 |
|
ps2ai.ps | File | 21.78 KB | 0644 |
|
ps2epsi.ps | File | 8.34 KB | 0644 |
|
ras1.upp | File | 215 B | 0644 |
|
ras24.upp | File | 219 B | 0644 |
|
ras3.upp | File | 214 B | 0644 |
|
ras32.upp | File | 196 B | 0644 |
|
ras4.upp | File | 220 B | 0644 |
|
ras8m.upp | File | 209 B | 0644 |
|
rollconv.ps | File | 12.23 KB | 0644 |
|
s400a1.upp | File | 1.42 KB | 0644 |
|
s400b1.upp | File | 1.57 KB | 0644 |
|
sharp.upp | File | 1.89 KB | 0644 |
|
sipixa6.upp | File | 529 B | 0644 |
|
st640ih.upp | File | 2.23 KB | 0644 |
|
st640ihg.upp | File | 1.47 KB | 0644 |
|
st640p.upp | File | 1.87 KB | 0644 |
|
st640pg.upp | File | 1.11 KB | 0644 |
|
st640pl.upp | File | 1.83 KB | 0644 |
|
st640plg.upp | File | 1.08 KB | 0644 |
|
stc.upp | File | 1.88 KB | 0644 |
|
stc1520h.upp | File | 2.1 KB | 0644 |
|
stc2.upp | File | 1.86 KB | 0644 |
|
stc200_h.upp | File | 1.8 KB | 0644 |
|
stc2_h.upp | File | 1.83 KB | 0644 |
|
stc2s_h.upp | File | 2.22 KB | 0644 |
|
stc300.upp | File | 2.09 KB | 0644 |
|
stc300bl.upp | File | 1.31 KB | 0644 |
|
stc300bm.upp | File | 1.4 KB | 0644 |
|
stc500p.upp | File | 1.86 KB | 0644 |
|
stc500ph.upp | File | 1.86 KB | 0644 |
|
stc600ih.upp | File | 2.23 KB | 0644 |
|
stc600p.upp | File | 1.12 KB | 0644 |
|
stc600pl.upp | File | 1.09 KB | 0644 |
|
stc640p.upp | File | 1.07 KB | 0644 |
|
stc740ih.upp | File | 2.07 KB | 0644 |
|
stc800ih.upp | File | 2.11 KB | 0644 |
|
stc800p.upp | File | 1.09 KB | 0644 |
|
stc800pl.upp | File | 1.07 KB | 0644 |
|
stc_h.upp | File | 1.87 KB | 0644 |
|
stc_l.upp | File | 734 B | 0644 |
|
stcany.upp | File | 673 B | 0644 |
|
stcany_h.upp | File | 681 B | 0644 |
|
stcinfo.ps | File | 24.92 KB | 0644 |
|
stcolor.ps | File | 4.95 KB | 0644 |
|
stocht.ps | File | 2.44 KB | 0644 |
|
traceimg.ps | File | 1.35 KB | 0644 |
|
traceop.ps | File | 2.51 KB | 0644 |
|
uninfo.ps | File | 5.85 KB | 0644 |
|
viewcmyk.ps | File | 1.94 KB | 0644 |
|
viewgif.ps | File | 5.27 KB | 0644 |
|
viewjpeg.ps | File | 5.56 KB | 0644 |
|
viewmiff.ps | File | 4.15 KB | 0644 |
|
viewpbm.ps | File | 10.04 KB | 0644 |
|
viewpcx.ps | File | 5.11 KB | 0644 |
|
viewps2a.ps | File | 1.11 KB | 0644 |
|
winmaps.ps | File | 3.52 KB | 0644 |
|
zeroline.ps | File | 2.26 KB | 0644 |
|