home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Updates / GhostScript / !GhostScr / 6_01 / lib / pdf2dsc.ps < prev    next >
Text File  |  2000-03-09  |  5KB  |  165 lines

  1. %    Copyright (C) 1994, 1995, 1996, 1997, 1998 Aladdin Enterprises.  All rights reserved.
  2. % This file is part of Aladdin Ghostscript.
  3. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  4. % or distributor accepts any responsibility for the consequences of using it,
  5. % or for whether it serves any particular purpose or works at all, unless he
  6. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  7. % License (the "License") for full details.
  8. % Every copy of Aladdin Ghostscript must include a copy of the License,
  9. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  10. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  11. % under certain conditions described in the License.  Among other things, the
  12. % License requires that the copyright notice and this notice be preserved on
  13. % all copies.
  14.  
  15. % $Id: pdf2dsc.ps,v 1.1 2000/03/09 08:40:40 lpd Exp $
  16. % pdf2dsc.ps
  17. % read pdf file and produce DSC "index" file.
  18. %
  19. % Input  file is named PDFname
  20. % Output file is named DSCname
  21. %
  22. % Run using:
  23. %  gs -dNODISPLAY -sPDFname=pdffilename -sDSCname=tempfilename pdf2dsc.ps
  24. % Then display the PDF file with
  25. %  gs tempfilename
  26. %
  27. % Modified by Geoff Keating <geoffk@ozemail.com.au> 21/12/98:
  28. %    Add DocumentMedia, PageMedia comments
  29. %    Use inherited BoundingBox and Orientation
  30. %    Reformat, add new macro 'puts', generally clean up
  31. % Modified by Johannes Plass <plass@dipmza.physik.uni-mainz.de> 1996-11-05:
  32. %    Adds BoundingBox and Orientation if available.
  33. % Modified by rjl/lpd 9/19/96
  34. %    Updates for compatibility with modified pdf_*.ps code for handling
  35. %      page ranges (i.e., partial files) better.
  36. % Modified by Geoff Keating <Geoff.Keating@anu.edu.au> 7/3/96:
  37. %    include Title and CreationDate DSC comments (these are displayed by
  38. %      Ghostview);
  39. %    reduce the size of typical output files by a factor of about 3.
  40. % Modified by L. Peter Deutsch 3/18/96:
  41. %    Removes unnecessary and error-prone code duplicated from pdf_main.ps
  42. % Modified by L. Peter Deutsch for GS 3.33
  43. % Originally by Russell Lang  1995-04-26
  44.  
  45. % (str1) (str2)  concatstr  (str1str2)
  46. /concatstr {
  47.   2 copy length exch length add string
  48.   dup dup 5 2 roll copy length
  49. % stack: newstring newstring str2 str1-length
  50.   exch putinterval
  51. } bind def
  52.  
  53. /DSCfile DSCname (w) file def
  54. /puts { DSCfile exch writestring } bind def
  55. /DSCstring 255 string def
  56. /MediaTypes 10 dict def
  57.  
  58.    GS_PDF_ProcSet begin
  59.    pdfdict begin
  60.    PDFname (r) file
  61.    pdfopen begin
  62.    /FirstPage where { pop } { /FirstPage 1 def } ifelse
  63.    /LastPage where { pop } { /LastPage pdfpagecount def } ifelse
  64.  
  65. % scan through for media sizes, keep them in the dictionary
  66.    FirstPage 1 LastPage {
  67.       pdfgetpage /MediaBox pget pop   % MediaBox is a required attribute
  68.       aload pop 
  69.       3 -1 roll sub 3 1 roll exch sub exch
  70.       2 array astore 
  71.       aload 3 1 roll 10 string cvs exch 10 string cvs
  72.       (x) exch concatstr concatstr cvn
  73.       MediaTypes 3 1 roll exch put
  74.    } for
  75.  
  76. % write header and prolog
  77.    (%!PS-Adobe-3.0\n) puts
  78.    Trailer /Info knownoget
  79.     {
  80.       dup /Title knownoget
  81.        {
  82.          (%%Title: ) puts
  83.          DSCfile exch write==
  84.        }
  85.       if
  86.       /CreationDate knownoget
  87.        {
  88.          (%%CreationDate: ) puts
  89.          DSCfile exch write==
  90.        }
  91.       if
  92.     }
  93.    if
  94.    % This is really supposed to be sorted by frequency of usage...
  95.    (%%DocumentMedia: )
  96.    MediaTypes { 
  97.       exch pop
  98.       1 index puts
  99.       (y) puts dup 1 get DSCstring cvs puts
  100.       (x) puts dup 0 get DSCstring cvs puts 
  101.       ( ) puts dup 0 get DSCstring cvs puts
  102.       ( ) puts 1 get DSCstring cvs puts 
  103.       ( 70 white ()\n) puts
  104.       pop (%%+ )
  105.    } forall
  106.    pop
  107.  
  108.    (%%Pages: ) puts
  109.    LastPage FirstPage sub 1 add DSCstring cvs puts
  110.    (\n%%EndComments\n) puts
  111.    (%%BeginProlog\n) puts
  112.    (/Page null def\n/Page# 0 def\n/PDFSave null def\n) puts
  113.    (/DSCPageCount 0 def\n) puts
  114.    (/DoPDFPage {dup /Page# exch store pdfgetpage pdfshowpage } def\n) puts
  115.    (GS_PDF_ProcSet begin\npdfdict begin\n) puts
  116.    (%%EndProlog\n) puts
  117.    (%%BeginSetup\n) puts
  118.    DSCfile PDFname write==only
  119.    ( \(r\) file pdfopen begin\n) puts
  120.    (%%EndSetup\n) puts
  121.    % process each page
  122.    FirstPage 1 LastPage {
  123.        (%%Page: ) puts
  124.        dup DSCstring cvs puts
  125.        ( ) puts
  126.        dup DSCstring cvs puts
  127.        (\n) puts
  128.  
  129.        dup pdfgetpage
  130.        dup /MediaBox pget pop
  131.          (%%PageMedia: y) puts
  132.      aload pop 3 -1 roll sub DSCstring cvs puts
  133.      (x) puts exch sub DSCstring cvs puts
  134.      (\n) puts
  135.        dup /CropBox pget {
  136.          (%%PageBoundingBox: ) puts
  137.          {DSCfile exch write=only ( ) puts} forall
  138.          (\n) puts
  139.        } if
  140.        /Rotate pget {
  141.          (%%PageOrientation: ) puts
  142.          90 div cvi 4 mod dup 0 lt {4 add} if
  143.          [(Portrait) (Landscape) (UpsideDown) (Seascape)] exch get puts
  144.          (\n) puts
  145.        } if
  146.  
  147.        DSCfile exch DSCstring cvs writestring
  148.        ( DoPDFPage\n) puts
  149.     } for
  150.    currentdict pdfclose
  151.    end
  152.    end
  153.    end
  154. % write trailer
  155. (%%Trailer\n) puts
  156. (currentdict pdfclose\nend\nend\nend\n) puts
  157. (%%EOF\n) puts
  158. % close output file and exit
  159. DSCfile closefile
  160. quit
  161. % end of pdf2dsc.ps
  162.