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