home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / APPS / gs403osk.tgz / gs403osk.tar / pdf_main.ps < prev    next >
Text File  |  1996-10-12  |  14KB  |  473 lines
  1. %    Copyright (C) 1994, 1996 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % pdf_main.ps
  19. % PDF file- and page-level operations.
  20.  
  21. % We handle the following PDF 1.2 constructs:
  22. %   page number rather than page object in Dest array
  23.  
  24. /.setlanguagelevel where { pop 2 .setlanguagelevel } if
  25. .currentglobal true .setglobal
  26. /pdfdict where { pop } { /pdfdict 100 dict def } ifelse
  27. pdfdict begin
  28.  
  29. % For simplicity, we use a single interpretation dictionary for all
  30. % PDF graphics execution, even though this is too liberal.
  31. /pdfopdict mark
  32.   objopdict { } forall
  33.   drawopdict { } forall
  34.   /endstream { exit } bind
  35.   (%%EOF) cvn { exit } bind     % for filters
  36. .dicttomark readonly def
  37.  
  38. % ======================== Main program ======================== %
  39.  
  40. end         % pdfdict
  41. userdict begin
  42.  
  43. /defaultfontname /Times-Roman def
  44.  
  45. % Make sure the registered encodings are loaded, so we don't run the risk
  46. % that some of the indices for their names will overflow the packed
  47. % representation.  (Yes, this is a hack.)
  48. SymbolEncoding pop
  49. DingbatsEncoding pop
  50.  
  51. % Redefine 'run' so it recognizes PDF files.
  52. systemdict begin
  53. /runps /run load def
  54. /runpdfstring 50 string def     % length is arbitrary
  55. /run
  56.  { dup type /filetype ne { (r) file } if
  57.    dup read
  58.     { dup (%) 0 get eq
  59.        { pop dup //runpdfstring
  60.         % Some invalid files might have extra-long first lines....
  61.       {  { readline } .internalstopped not { pop pop exit } if
  62.         pop =string
  63.       }
  64.      loop
  65.      //runpdfstring (PDF-) anchorsearch
  66.       { pop pop runpdf }
  67.       { pop cvx .runexec }
  68.      ifelse
  69.        }
  70.        { 2 copy unread pop cvx .runexec
  71.        }
  72.       ifelse
  73.     }
  74.     { closefile
  75.     }
  76.    ifelse
  77.  } bind odef
  78. /runpdf         % <file> runpdf -
  79.  { userdict begin
  80.    /PSFile where { pop PSFile (w) file /PSout exch def } if
  81.    /Page# null def
  82.    /Page null def
  83.    /DSCPageCount 0 def
  84.    /PDFSave null def
  85.    GS_PDF_ProcSet begin
  86.    pdfdict begin
  87.    pdfopen begin
  88.    Trailer /Root oget /Pages oget /CropBox knownoget
  89.     { mark /CropBox 3 -1 roll /PAGES pdfmark
  90.     }
  91.    if
  92.    /FirstPage where { pop FirstPage } { 1 } ifelse
  93.    1
  94.    /LastPage where { pop LastPage } { pdfpagecount } ifelse
  95.    QUIET not
  96.     { (Processing pages ) print 2 index =only ( through ) print dup =only
  97.       (.\n) print flush
  98.     }
  99.    if
  100.     { dup /Page# exch store
  101.       QUIET not { (Page ) print dup == flush } if
  102.       pdfgetpage pdfshowpage
  103.     } for
  104.    currentdict pdfclose
  105.    end          % temporary dict
  106.    end          % pdfdict
  107.    end          % userdict
  108.  } bind def
  109. % Rebind procedures that invoke 'run'.
  110. % Note that .runstdin will fail if stdin is not seekable.
  111. /runlibfile
  112.     { findlibfile dup pop
  113.        { exch pop run }
  114.        { /undefinedfilename signalerror }
  115.       ifelse
  116.     } bind def
  117. /.runlibfile /runlibfile load def
  118. /.runstdin 
  119.     { (%stdin) (r) file run
  120.     } bind def
  121. end         % systemdict
  122.  
  123. end         % userdict
  124. pdfdict begin
  125.  
  126. % ======================== File parsing ======================== %
  127.  
  128. % Read the cross-reference and trailer sections.
  129.  
  130. /traileropdict mark
  131.   (<<) cvn { mark } bind
  132.   (>>) cvn /.dicttomark load
  133.   ([) cvn { mark } bind     % ditto
  134.   (]) cvn dup load
  135.   /true true
  136.   /false false
  137.   /null null
  138.   /R { /resolveR cvx 3 packedarray cvx } bind   % see Objects below
  139.   /startxref /exit load
  140. .dicttomark readonly def
  141.  
  142. % Because of EOL conversion, lines with fixed contents might be followed
  143. % by one or more blanks.
  144. /lineeq         % <filestr> <conststr> lineeq <bool>
  145.  { anchorsearch
  146.     { pop { ( ) anchorsearch not { () eq exit } if pop } loop }
  147.     { pop false }
  148.    ifelse
  149.  } bind def
  150. /linene { lineeq not } bind def
  151.  
  152. % Read (mostly scan) the cross-reference table.
  153. /readxref       % <pos> readxref <trailerdict>
  154.  { PDFoffset add PDFfile exch setfileposition
  155.    PDFfile pdfstring readline pop
  156.    (xref) linene { /readxref cvx /syntaxerror signalerror } if
  157.         % Store the xref table entry position for each object.
  158.         % We only need to read the run headers, not every entry.
  159.     { PDFfile token pop     % first object # or trailer
  160.       dup /trailer eq { pop exit } if
  161.       PDFfile pdfstring readline pop
  162.       token pop         % entry count
  163.       exch pop exch
  164.         % This section might be adding new objects:
  165.         % ensure that Objects and Generations are big enough.
  166.         % Stack: count obj#
  167.       2 copy add
  168.       dup Objects length gt
  169.        { dup array Objects 1 index copy pop /Objects exch def }
  170.       if
  171.       dup Generations length gt
  172.        { dup string Generations 1 index copy pop /Generations exch def }
  173.       if
  174.       pop
  175.       PDFfile fileposition 3 -1 roll
  176.        { Objects 2 index get null eq    % later update might have set it
  177.       { Objects 2 index 2 index cvx put }
  178.          if exch 1 add exch 20 add
  179.        }
  180.       repeat PDFfile exch setfileposition pop
  181.     } loop
  182.    PDFfile traileropdict .pdfrun
  183.  } bind def
  184.  
  185. % Open a PDF file and read the trailer and cross-reference.
  186. /pdfopen        % <file> pdfopen <dict>
  187.  { pdfdict readonly pop     % can't do it any earlier than this
  188.    /PSout where { pop /pdf2psdict where { pop pdf2psdict begin } if } if
  189.    10 dict begin
  190.    /PSLevel1 where { pop } { /PSLevel1 false def } ifelse
  191.    cvlit /PDFfile exch def
  192.    /PDFsource PDFfile def
  193.    PDFfile dup 0 setfileposition pdfstring readstring 
  194.    not {/pdfopen cvx /syntaxerror signalerror} if
  195.    (%PDF-) search not {/pdfopen cvx /syntaxerror signalerror} if
  196.    length /PDFoffset exch def pop pop
  197.    PDFfile dup dup 0 setfileposition bytesavailable 
  198.     % Scan backwards over trailing control-character garbage
  199.     % (nulls, ^Zs, EOLs).
  200.     { 1 sub 2 copy setfileposition 1 index read pop
  201.       32 ge {exit} if
  202.     } loop 1 sub setfileposition
  203.    prevline (%%EOF) linene { /pdfopen cvx /syntaxerror signalerror } if
  204.    PDFfile exch setfileposition
  205.    prevline cvi     % xref start position
  206.    exch PDFfile exch setfileposition
  207.    prevline (startxref) linene { /pdfopen cvx /syntaxerror signalerror } if
  208.    pop
  209.         % Stack: xrefpos
  210.    /Objects [] def
  211.    /Generations <> def
  212.     % Read the last cross-reference table.
  213.    readxref /Trailer exch def
  214.    Trailer /Encrypt known
  215.     { pdf_process_Encrypt   % signal error
  216.     }
  217.    if
  218.     % Read any previous cross-reference tables.
  219.    Trailer { /Prev .knownget not { exit } if readxref } loop
  220.     % Create and initialize some caches.
  221.    /PageCount pdfpagecount def
  222.    /PageNumbers PageCount dict def
  223.    /PageIndex PageCount array def
  224.     % Write the DSC header if appropriate.
  225.    [ (%!PS-Adobe-1.0) #dsc
  226.    [ (%%Pages: (atend)) #dsc
  227.    [ (%%EndComments) #dsc
  228.    [ (%%BeginProlog) #dsc
  229.    [ (% This copyright applies to everything between here and the %%EndProlog:) #dsc
  230.    [ (% ) copyright #dsc
  231.    (gs_pdf.ps) #dscfile
  232.    PSLevel1 { (gs_l2img.ps) #dscfile } if
  233.    [ (%%EndProlog) #dsc
  234.     % Copy bookmarks (outline) to the output.
  235.    #?
  236.     { Trailer /Root oget /Outlines knownoget
  237.        { /First knownoget
  238.       { { dup writeoutline /Next knownoget not { exit } if } loop }
  239.      if
  240.        }
  241.       if
  242.     }
  243.    if   
  244.    currentdict end
  245.  } bind def
  246.  
  247. % Write the outline structure for a file.  Uses linkdest (below).
  248. /writeoutline       % <outlinedict> writeoutline -
  249.  { mark
  250.    0 2 index /First knownoget
  251.     { { exch 1 add exch /Next knownoget not { exit } if } loop }
  252.    if
  253.         % stack: dict mark count
  254.    dup 0 eq
  255.     { pop 1 index
  256.     }
  257.     { 2 index /Count knownoget { 0 lt { neg } if } if
  258.       /Count exch 3 index
  259.     }
  260.    ifelse linkdest /Title oget /Title exch /OUT pdfmark
  261.    /First knownoget
  262.     { { dup writeoutline /Next knownoget not { exit } if } loop }
  263.    if
  264.  } bind def
  265.  
  266. % Close a PDF file.
  267. /pdfclose       % <dict> pdfclose -
  268.  { begin
  269.    /PSout where
  270.     { pop
  271.       [ (%%Trailer) #dsc
  272.       [ (%%Pages: ) DSCPageCount #dsc
  273.       PSout closefile
  274.     }
  275.    if
  276.    PDFfile closefile
  277.    end
  278.    pdf2psdict where { pop currentdict pdf2psdict eq { end } if } if
  279.  } bind def
  280.  
  281. % ======================== Page accessing ======================== %
  282.  
  283. % Get a (possibly inherited) attribute of a page.
  284. /pget           % <pagedict> <key> pget <value> -true-
  285.             % <pagedict> <key> pget -false-
  286.  { 2 copy knownoget
  287.     { exch pop exch pop true
  288.     }
  289.     { exch /Parent knownoget
  290.        { exch pget }
  291.        { pop false }
  292.       ifelse
  293.     }
  294.    ifelse
  295.  } bind def
  296.  
  297. % Get the total number of pages in the document.
  298. /pdfpagecount       % - pdfpagecount <int>
  299.  { Trailer /Root oget /Pages oget /Count oget
  300.  } bind def
  301.  
  302. % Find the N'th page of the document by iterating through the Pages tree.
  303. % The first page is numbered 1.
  304. /pdffindpage        % <int> pdffindpage <pagedict>
  305.  { dup Trailer /Root oget /Pages oget
  306.     {       % We should be able to tell when we reach a leaf
  307.         % by finding a Type unequal to /Pages.  Unfortunately,
  308.         % some files distributed by Adobe lack the Type key
  309.         % in some of the Pages nodes!  Instead, we check for Kids.
  310.       dup /Kids knownoget not { exit } if
  311.       exch pop null
  312.       0 1 3 index length 1 sub
  313.        { 2 index exch oget
  314.      dup /Kids known { dup /Count oget } { 1 } ifelse
  315.         % Stack: index kids null node count
  316.      dup 5 index ge { pop exch pop exit } if
  317.      5 -1 roll exch sub 4 1 roll pop
  318.        }
  319.       for exch pop
  320.       dup null eq { pop pop 1 null exit } if
  321.     }
  322.    loop
  323.         % Stack: index countleft node
  324.    1 index 1 ne { pop pop /pdffindpage cvx /rangecheck signalerror } if
  325.    exch pop
  326.    PageIndex 2 index 1 sub 2 index put
  327.    PageNumbers 1 index 3 index put
  328.    exch pop
  329.  } bind def
  330.  
  331. % Find the N'th page of the document.
  332. % The first page is numbered 1.
  333. /pdfgetpage     % <int> pdfgetpage <pagedict>
  334.  { PageIndex 1 index 1 sub get dup null ne
  335.     { exch pop }
  336.     { pop pdffindpage }
  337.    ifelse
  338.  } bind def
  339.  
  340. % Find the page number of a page object (inverse of pdfgetpage).
  341. /pdfpagenumber      % <pagedict> pdfpagenumber <int>
  342.  {  % We use the simplest and stupidest of all possible algorithms....
  343.    PageNumbers 1 index .knownget
  344.     { exch pop
  345.     }
  346.     { 1 1 PageCount 1 add   % will give a rangecheck if not found
  347.        { dup pdfgetpage oforce 2 index eq { exit } if pop
  348.        }
  349.       for exch pop
  350.     }
  351.    ifelse
  352.  } bind def
  353.  
  354. % Display a given page.
  355. /boxrect        % [<llx> <lly> <urx> <ury>] boxrect <x> <y> <w> <h>
  356.  { aload pop exch 3 index sub exch 2 index sub
  357.  } bind def
  358. /linkdest       % <link|outline> linkdest
  359.             %   ([/Page <n>] /View <view> | ) <link|outline>
  360.  { dup /Dest knownoget
  361.     {       % Check for a name, to be looked up in Dests.
  362.       dup type /nametype eq
  363.        { Trailer /Root oget /Dests oget exch oget
  364.          dup type /dicttype eq { /D get } if
  365.        }
  366.       if
  367.       dup 0 oget
  368.       dup null eq
  369.        { pop }
  370.        { dup type /integertype ne { pdfpagenumber } if /Page exch 4 -2 roll }
  371.       ifelse
  372.       dup length 1 sub 1 exch getinterval /View exch 3 -1 roll
  373.     }
  374.    if
  375.  } bind def
  376. /annottypes 5 dict dup begin
  377.   /Text
  378.     { mark exch
  379.        { /Rect /Open /Contents }
  380.        { 2 copy knownoget { 3 -1 roll } { pop } ifelse }
  381.       forall pop /ANN pdfmark
  382.     } bind def
  383.   /Link
  384.     { mark exch
  385.        { /Rect /Border }
  386.        { 2 copy knownoget { 3 -1 roll } { pop } ifelse }
  387.       forall linkdest pop /LNK pdfmark
  388.     } bind def
  389. end def
  390.  
  391. /pdfshowpage        % <pagedict> pdfshowpage -
  392.  { dup /Page exch store
  393.    pdfshowpage_init 
  394.    pdfshowpage_setpage 
  395.    save /PDFSave exch store
  396.    (before exec) VMDEBUG
  397.      pdfshowpage_finish
  398.    (after exec) VMDEBUG
  399.    PDFSave restore
  400.  } bind def
  401.  
  402. /pdfpagecontents    % <pagedict> pdfpagecontents <contents>
  403.  { } bind def
  404.  
  405. /pdfshowpage_init   % <pagedict> pdfshowpage_init <pagedict>
  406.  { gsave
  407.    [ (%%Page: ) Page# ( ) 
  408.      DSCPageCount 1 add /DSCPageCount 1 index store #dsc
  409.    [ (GS_PDF_ProcSet begin) #dsc
  410.  } bind def
  411.  
  412. /pdfshowpage_setpage    % <pagedict> pdfshowpage_setpage <pagedict>
  413.  { 
  414.    3 dict   % for setpagedevice
  415.     % Stack: pagedict setpagedict
  416.     % We want to look at Rotate for displays, but not for printers.
  417.     % The following is a hack, but we don't know a better way to do this.
  418.    currentpagedevice /OutputFile known not
  419.     { dup /Orientation 3 index /Rotate pget not { 0 } if 90 idiv
  420.     % Rotate specifies *clockwise* rotation!
  421.       neg 3 and put
  422.     }
  423.    if
  424.     % Stack: pagedict setpagedict
  425.    1 index /MediaBox pget
  426.     {           % Set the page size.
  427.       boxrect [ 2 index 5 index sub 2 index 5 index sub ]
  428.     % Stack: pagedict setpagedict llx lly urx ury pagesize
  429.       5 index exch /PageSize exch put
  430.     % Stack: pagedict contents setpagedict llx lly urx ury
  431.       pop pop
  432.       neg exch neg exch
  433.       [ 3 1 roll ]
  434.     % Stack: pagedict setpagedict pageoffset
  435.       1 index exch /PageOffset exch put
  436.     }
  437.    if
  438.     % Stack: pagedict setpagedict
  439.    setpagedevice
  440.  } bind def
  441.  
  442. /pdfshowpage_finish % <pagedict> pdfshowpage_finish -
  443.  {
  444.     % Copy crop box.
  445.    dup /CropBox pget
  446.     { boxrect rectclip
  447.       dup /CropBox knownoget { mark /CropBox 3 -1 roll /PAGE pdfmark } if
  448.     }
  449.    if
  450.  
  451.     % Copy annotations and links.
  452.    dup /Annots knownoget
  453.     { 0 1 2 index length 1 sub
  454.        { 1 index exch oget
  455.          dup /Subtype oget annottypes exch .knownget { exec } { pop } ifelse
  456.        }
  457.       for pop
  458.     }
  459.    if
  460.  
  461.     % Display the actual page contents.
  462.    matrix currentmatrix /beginpage 0 # setmatrix
  463.    /Contents knownoget not { 0 array } if
  464.    dup type /arraytype ne { 1 array astore } if
  465.     { oforce false resolvestream pdfopdict .pdfrun } forall
  466.    /endpage 0 #
  467.    grestore
  468.    [ (end) #dsc
  469.  } bind def
  470.  
  471. end         % pdfdict
  472. .setglobal
  473.