sys/lib/ghostscript/pdf2dsc.ps

   1 %    Copyright (C) 1994, 1995, 1996, 1997, 1998 Aladdin Enterprises.  All rights reserved.
   2 %
   3 % This software is provided AS-IS with no warranty, either express or
   4 % implied.
   5 %
   6 % This software is distributed under license and may not be copied,
   7 % modified or distributed except as expressly authorized under the terms
   8 % of the license contained in the file LICENSE in this distribution.
   9 %
  10 % For more information about licensing, please refer to
  11 % http://www.ghostscript.com/licensing/. For information on
  12 % commercial licensing, go to http://www.artifex.com/licensing/ or
  13 % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14 % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15
  16 % $Id: pdf2dsc.ps,v 1.7 2002/03/30 23:39:15 raph Exp $
  17 % pdf2dsc.ps
  18 % read pdf file and produce DSC "index" file.
  19 %
  20 % Input  file is named PDFname
  21 % Output file is named DSCname
  22 %
  23 % Run using:
  24 %  gs -dNODISPLAY -sPDFname=pdffilename -sDSCname=tempfilename pdf2dsc.ps
  25 % Then display the PDF file with
  26 %  gs tempfilename
  27 %
  28 % Modified by Geoff Keating <geoffk@ozemail.com.au> 21/12/98:
  29 %       Add DocumentMedia, PageMedia comments
  30 %       Use inherited BoundingBox and Orientation
  31 %       Reformat, add new macro 'puts', generally clean up
  32 % Modified by Johannes Plass <plass@dipmza.physik.uni-mainz.de> 1996-11-05:
  33 %       Adds BoundingBox and Orientation if available.
  34 % Modified by rjl/lpd 9/19/96
  35 %       Updates for compatibility with modified pdf_*.ps code for handling
  36 %         page ranges (i.e., partial files) better.
  37 % Modified by Geoff Keating <Geoff.Keating@anu.edu.au> 7/3/96:
  38 %       include Title and CreationDate DSC comments (these are displayed by
  39 %         Ghostview);
  40 %       reduce the size of typical output files by a factor of about 3.
  41 % Modified by L. Peter Deutsch 3/18/96:
  42 %       Removes unnecessary and error-prone code duplicated from pdf_main.ps
  43 % Modified by L. Peter Deutsch for GS 3.33
  44 % Originally by Russell Lang  1995-04-26
  45
  46 /PDFfile PDFname (r) file def
  47 /DSCfile DSCname (w) file def
  48 systemdict /.setsafe known { .setsafe } if
  49
  50 /puts { DSCfile exch writestring } bind def
  51 /DSCstring 255 string def
  52 /MediaTypes 10 dict def
  53
  54 % (str1) (str2)  concatstr  (str1str2)
  55 /concatstr {
  56   2 copy length exch length add string
  57   dup dup 5 2 roll copy length
  58 % stack: newstring newstring str2 str1-length
  59   exch putinterval
  60 } bind def
  61
  62    GS_PDF_ProcSet begin
  63    pdfdict begin
  64    PDFfile
  65    pdfopen begin
  66    /FirstPage where { pop } { /FirstPage 1 def } ifelse
  67    /LastPage where { pop } { /LastPage pdfpagecount def } ifelse
  68
  69 % scan through for media sizes, keep them in the dictionary
  70    FirstPage 1 LastPage {
  71       pdfgetpage /MediaBox pget pop   % MediaBox is a required attribute
  72       aload pop
  73       3 -1 roll sub 3 1 roll exch sub exch
  74       2 array astore
  75       aload 3 1 roll 10 string cvs exch 10 string cvs
  76       (x) exch concatstr concatstr cvn
  77       MediaTypes 3 1 roll exch put
  78    } for
  79
  80 % write header and prolog
  81    (%!PS-Adobe-3.0\n) puts
  82    Trailer /Info knownoget
  83     {
  84       dup /Title knownoget
  85        {
  86          (%%Title: ) puts
  87          DSCfile exch write==
  88        }
  89       if
  90       /CreationDate knownoget
  91        {
  92          (%%CreationDate: ) puts
  93          DSCfile exch write==
  94        }
  95       if
  96     }
  97    if
  98    % This is really supposed to be sorted by frequency of usage...
  99    (%%DocumentMedia: )
 100    MediaTypes {
 101       exch pop
 102       1 index puts
 103       (y) puts dup 1 get DSCstring cvs puts
 104       (x) puts dup 0 get DSCstring cvs puts
 105       ( ) puts dup 0 get DSCstring cvs puts
 106       ( ) puts 1 get DSCstring cvs puts
 107       ( 70 white ()\n) puts
 108       pop (%%+ )
 109    } forall
 110    pop
 111
 112    (%%Pages: ) puts
 113    LastPage FirstPage sub 1 add DSCstring cvs puts
 114    (\n%%EndComments\n) puts
 115    (%%BeginProlog\n) puts
 116    (/Page null def\n/Page# 0 def\n/PDFSave null def\n) puts
 117    (/DSCPageCount 0 def\n) puts
 118    (/DoPDFPage {dup /Page# exch store pdfgetpage pdfshowpage } def\n) puts
 119    (GS_PDF_ProcSet begin\npdfdict begin\n) puts
 120    (%%EndProlog\n) puts
 121    (%%BeginSetup\n) puts
 122    DSCfile PDFname write==only
 123    ( \(r\) file { DELAYSAFER { .setsafe } if } stopped pop\n) puts
 124    ( pdfopen begin\n) puts
 125    (%%EndSetup\n) puts
 126    % process each page
 127    FirstPage 1 LastPage {
 128        (%%Page: ) puts
 129        dup DSCstring cvs puts
 130        ( ) puts
 131        dup DSCstring cvs puts
 132        (\n) puts
 133
 134        dup pdfgetpage
 135        dup /MediaBox pget pop
 136          (%%PageMedia: y) puts
 137          aload pop 3 -1 roll sub DSCstring cvs puts
 138          (x) puts exch sub DSCstring cvs puts
 139          (\n) puts
 140        dup /CropBox pget {
 141          (%%PageBoundingBox: ) puts
 142          {DSCfile exch write=only ( ) puts} forall
 143          (\n) puts
 144        } if
 145        /Rotate pget {
 146          (%%PageOrientation: ) puts
 147          90 div cvi 4 mod dup 0 lt {4 add} if
 148          [(Portrait) (Landscape) (UpsideDown) (Seascape)] exch get puts
 149          (\n) puts
 150        } if
 151
 152        DSCfile exch DSCstring cvs writestring
 153        ( DoPDFPage\n) puts
 154     } for
 155    currentdict pdfclose
 156    end
 157    end
 158    end
 159 % write trailer
 160 (%%Trailer\n) puts
 161 (currentdict pdfclose\nend\nend\nend\n) puts
 162 (%%EOF\n) puts
 163 % close output file and exit
 164 DSCfile closefile
 165 quit
 166 % end of pdf2dsc.ps