home *** CD-ROM | disk | FTP | other *** search
/ jppd.dyndns.org / jppd.dyndns.org.tar / jppd.dyndns.org / QUERYPRO / Impressora_PDF / converter.exe / GPLGS / pdf2dsc.ps < prev    next >
Text File  |  2002-03-31  |  5KB  |  167 lines
  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
  167.