home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Updates / GhostScript / !GhostScr / 6_01 / lib / pdf_main.ps < prev    next >
Text File  |  2000-03-29  |  18KB  |  587 lines
  1. %    Copyright (C) 1994, 2000 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. % $Id: pdf_main.ps,v 1.2 2000/03/10 03:56:11 lpd Exp $
  19. % pdf_main.ps
  20. % PDF file- and page-level operations.
  21.  
  22. /.setlanguagelevel where { pop 2 .setlanguagelevel } if
  23. .currentglobal true .setglobal
  24. /pdfdict where { pop } { /pdfdict 100 dict def } ifelse
  25. pdfdict begin
  26.  
  27. % Patch in an obsolete variable used by some third-party software.
  28. /#? false def
  29.  
  30. % For simplicity, we use a single interpretation dictionary for all
  31. % PDF graphics execution, even though this is too liberal.
  32. /pdfopdict mark
  33.   objopdict { } forall
  34.   drawopdict { } forall
  35.   /endstream { exit } bind
  36.   (%%EOF) cvn { exit } bind        % for filters
  37.     % PDF 1.1 operators
  38.   /BX { /BXlevel BXlevel 1 add store } bind
  39.   /EX { /BXlevel BXlevel 1 sub store } bind
  40.   /PS { cvx exec } bind
  41.     % PDF 1.2 operators
  42.   /BMC { pop } bind
  43.   /BDC { pop pop } bind
  44.   /EMC { }
  45.   /MP { pop } bind
  46.   /DP { pop pop } bind
  47. .dicttomark readonly def
  48.  
  49. % ======================== Main program ======================== %
  50.  
  51. end            % pdfdict
  52. userdict begin
  53.  
  54. /defaultfontname /Times-Roman def
  55.  
  56. % Make sure the registered encodings are loaded, so we don't run the risk
  57. % that some of the indices for their names will overflow the packed
  58. % representation.  (Yes, this is a hack.)
  59. SymbolEncoding pop
  60. DingbatsEncoding pop
  61.  
  62. % Redefine 'run' so it recognizes PDF files.
  63. systemdict begin
  64. /.runps /run load def
  65. /runpdfstring 50 string def        % length is arbitrary
  66. /run
  67.  { dup type /filetype ne { (r) file } if
  68.    dup read
  69.     { dup (%) 0 get eq
  70.        { pop dup //runpdfstring
  71.         % Some invalid files might have extra-long first lines....
  72.       {  { readline } .internalstopped not { pop pop exit } if
  73.         pop =string
  74.       }
  75.      loop
  76.      //runpdfstring (PDF-) anchorsearch
  77.       { pop pop runpdf }
  78.       { pop cvx .runexec }
  79.      ifelse
  80.        }
  81.        { 2 copy unread pop .runps
  82.        }
  83.       ifelse
  84.     }
  85.     { closefile
  86.     }
  87.    ifelse
  88.  } bind odef
  89. /runpdf            % <file> runpdf -
  90.  { userdict begin
  91.    /Page# null def
  92.    /Page null def
  93.    /DSCPageCount 0 def
  94.    /PDFSave null def
  95.    GS_PDF_ProcSet begin
  96.    pdfdict begin
  97.    pdfopen begin
  98.    Trailer /Root oget /Pages oget /CropBox knownoget
  99.     { mark /CropBox 3 -1 roll /PAGES pdfmark
  100.     }
  101.    if
  102.    /FirstPage where { pop FirstPage } { 1 } ifelse
  103.    1
  104.    /LastPage where { pop LastPage } { pdfpagecount } ifelse
  105.    QUIET not
  106.     { (Processing pages ) print 2 index =only ( through ) print dup =only
  107.       (.) = flush
  108.     }
  109.    if
  110.     { dup /Page# exch store
  111.       QUIET not { (Page ) print dup == flush } if
  112.       pdfgetpage pdfshowpage
  113.     } for
  114.    currentdict pdfclose
  115.    end            % temporary dict
  116.    end            % pdfdict
  117.    end            % userdict
  118.  } bind def
  119. end            % systemdict
  120. % Redefine the procedure that the C code uses for running piped input.
  121. % It is OK to use { (%stdin) run } here, because a startjob cannot occur.
  122. /.runstdin {
  123.   { (%stdin) run } execute0
  124. } bind def
  125.  
  126. end            % userdict
  127. pdfdict begin
  128.  
  129. % ======================== File parsing ======================== %
  130.  
  131. % Read the cross-reference and trailer sections.
  132.  
  133. /traileropdict mark
  134.   (<<) cvn { mark } bind
  135.   (>>) cvn /.dicttomark load
  136.   ([) cvn { mark } bind        % ditto
  137.   (]) cvn dup load
  138.   /true true
  139.   /false false
  140.   /null null
  141.   /R { /resolveR cvx 3 packedarray cvx } bind    % see Objects below
  142.   /startxref /exit load
  143. .dicttomark readonly def
  144.  
  145. % Because of EOL conversion, lines with fixed contents might be followed
  146. % by one or more blanks.
  147. /lineeq            % <filestr> <conststr> lineeq <bool>
  148.  { anchorsearch
  149.     { pop { ( ) anchorsearch not { () eq exit } if pop } loop }
  150.     { pop false }
  151.    ifelse
  152.  } bind def
  153. /linene { lineeq not } bind def
  154.  
  155. % Read (mostly scan) the cross-reference table.
  156. /readxref        % <pos> readxref <trailerdict>
  157.  { PDFoffset add PDFfile exch setfileposition
  158.         % In some PDF files, this position actually points to
  159.         % white space before the xref line.  Skip over this here.
  160.    { PDFfile fileposition PDFfile read pop 32 gt { exit } if pop
  161.    } loop
  162.    PDFfile exch setfileposition
  163.    PDFfile pdfstring readline pop
  164.    (xref) linene { /readxref cvx /syntaxerror signalerror } if
  165.         % Store the xref table entry position for each object.
  166.         % We only need to read the run headers, not every entry.
  167.     { PDFfile token pop        % first object # or trailer
  168.       dup /trailer eq { pop exit } if
  169.       PDFfile pdfstring readline pop
  170.       token pop            % entry count
  171.       exch pop exch
  172.         % This section might be adding new objects:
  173.         % ensure that Objects and Generations are big enough.
  174.         % Stack: count obj#
  175.       2 copy add growPDFobjects
  176.       PDFfile fileposition 3 -1 roll
  177.        { Objects 2 index lget null eq    % later update might have set it
  178.       { Objects 2 index 2 index cvx lput }
  179.          if exch 1 add exch 20 add
  180.        }
  181.       repeat PDFfile exch setfileposition pop
  182.     } loop
  183.    count /pdfemptycount exch def
  184.    PDFfile traileropdict .pdfrun
  185.  } bind def
  186.  
  187. % Open a PDF file and read the header, trailer, and cross-reference.
  188. /pdfopen        % <file> pdfopen <dict>
  189.  { pdfdict readonly pop        % can't do it any earlier than this
  190.    15 dict begin
  191.    /LocalResources 0 dict def
  192.    /PSLevel1 where { pop } { /PSLevel1 false def } ifelse
  193.    cvlit /PDFfile exch def
  194.    /PDFsource PDFfile def
  195.    PDFfile dup 0 setfileposition pdfstring readstring 
  196.    not {/pdfopen cvx /syntaxerror signalerror} if
  197.    (%PDF-) search not {/pdfopen cvx /syntaxerror signalerror} if
  198.    length /PDFoffset exch def pop cvr /PDFversion exch def
  199.    findxref
  200.    initPDFobjects
  201.     % Read the last cross-reference table.
  202.    readxref /Trailer exch def
  203.    Trailer /Encrypt known
  204.     { pdf_process_Encrypt    % signal error
  205.     }
  206.    if
  207.     % Read any previous cross-reference tables.
  208.    Trailer { /Prev .knownget not { exit } if readxref } loop
  209.     % Create and initialize some caches.
  210.    /PageCount pdfpagecount def
  211.    /PageNumbers PageCount dict def
  212.    /PageIndex PageCount array def
  213.     % Copy bookmarks (outline) to the output.
  214.    Trailer /Root oget /Outlines knownoget
  215.     { /First knownoget
  216.       { { dup writeoutline /Next knownoget not { exit } if } loop } if
  217.     }
  218.    if
  219.    currentdict end
  220.  } bind def
  221.  
  222. % Skip backward over the %%EOF at the end of the PDF file, and read
  223. % the preceding startxref line.  We put this in a separate procedure so
  224. % we can offer the option of accepting certain invalid files that Acrobat
  225. % Reader also accepts.
  226. % ****** NOTE: this will be changed in a future release so that %%EO
  227. % ****** (missing the F), and startxref followed by a blank rather than
  228. % ****** an EOL, will no longer be accepted.
  229. /findxref {        % - findxref <xrefpos>
  230.   PDFfile dup dup 0 setfileposition bytesavailable {
  231.     % Scan backwards over trailing control-character garbage
  232.     % (nulls, ^Zs, EOLs, blanks).
  233.     1 sub 2 copy setfileposition 1 index read pop
  234.     32 gt {exit} if
  235.   } loop
  236.     % Stack: file endpos
  237.     % The top of the stack is now the file position of the last
  238.     % non-garbage character.
  239.     % We can't use prevline to check for the %%EOF, because if the
  240.     % %%EOF isn't followed by an EOL, prevline will read past the
  241.     % end of the file, and the file will get closed.
  242.     % Acrobat apparently accepts files in which the %%EOF was
  243.     % truncated to %%EO (!); we do the same.
  244.   5 sub 2 copy setfileposition
  245.   1 index (xxxxxx) readstring pop
  246.   (\015%%EO) anchorsearch { pop pop } {
  247.     (\012%%EO) anchorsearch { pop pop } {
  248.       pop findxreferror
  249.     } ifelse
  250.   } ifelse
  251.   1 add setfileposition
  252.     % Now read the startxref and xref start position.
  253.   prevline token pop dup type /integertype eq {
  254.     exch pop cvi        % xref start position
  255.     exch PDFfile exch setfileposition
  256.     prevline (startxref) linene { findxreferror } if
  257.     pop
  258.   } {    % else, this file has 'startxref #####' format
  259.     (startxref) ne { findxreferror } if
  260.     cvi        % xref start position
  261.     exch PDFfile exch setfileposition
  262.   } ifelse
  263. } bind def
  264. /findxreferror {
  265.   (\n) =
  266.   (    **** The PDF input file appears to be corrupted, or not a PDF file.) =
  267.   (    **** Try preceding the input file with lib/pdfeof.ps.) =
  268.   (    **** If the file then is processed without error, please notify the) =
  269.   (    **** author of the software that produced the PDF file that the file) =
  270.   (    **** does not conform to Adobe's published PDF specification.) =
  271.   (\n) = flush
  272.   /pdfopen cvx /syntaxerror signalerror
  273. } bind def
  274.  
  275. % Write the outline structure for a file.  Uses linkdest (below).
  276. /writeoutline        % <outlinedict> writeoutline -
  277.  { mark
  278.    0 2 index /First knownoget
  279.     { { exch 1 add exch /Next knownoget not { exit } if } loop }
  280.    if
  281.         % stack: dict mark count
  282.    dup 0 eq
  283.     { pop 1 index
  284.     }
  285.     { 2 index /Count knownoget { 0 lt { neg } if } if
  286.       /Count exch 3 index
  287.     }
  288.    ifelse linkdest /Title oget /Title exch /OUT pdfmark
  289.    /First knownoget
  290.     { { dup writeoutline /Next knownoget not { exit } if } loop }
  291.    if
  292.  } bind def
  293.  
  294. % Close a PDF file.
  295. /pdfclose        % <dict> pdfclose -
  296.  { begin
  297.    PDFfile closefile
  298.    end
  299.  } bind def
  300.  
  301. % ======================== Page accessing ======================== %
  302.  
  303. % Get a (possibly inherited) attribute of a page.
  304. /pget            % <pagedict> <key> pget <value> -true-
  305.             % <pagedict> <key> pget -false-
  306.  { 2 copy knownoget
  307.     { exch pop exch pop true
  308.     }
  309.     { exch /Parent knownoget
  310.        { exch pget }
  311.        { pop false }
  312.       ifelse
  313.     }
  314.    ifelse
  315.  } bind def
  316.  
  317. % Get the value of a resource on a given page.
  318. /rget {            % <resname> <pagedict> <restype> rget <value> -true-
  319.             % <resname> <pagedict> <restype> rget -false-
  320.   LocalResources 1 index knownoget {
  321.      3 index knownoget
  322.   } {
  323.     false
  324.   } ifelse {
  325.     exch pop exch pop exch pop true
  326.   } {
  327.     exch /Resources pget {
  328.       exch knownoget { exch knownoget } { pop false } ifelse
  329.     } {
  330.       pop pop false
  331.     } ifelse
  332.   } ifelse
  333. } bind def
  334.  
  335. % Get the total number of pages in the document.
  336. /pdfpagecount        % - pdfpagecount <int>
  337.  { Trailer /Root oget /Pages oget /Count oget
  338.  } bind def
  339.  
  340. % Find the N'th page of the document by iterating through the Pages tree.
  341. % The first page is numbered 1.
  342. /pdffindpage        % <int> pdffindpage <pagedict>
  343.  { dup Trailer /Root oget /Pages oget
  344.     {        % We should be able to tell when we reach a leaf
  345.         % by finding a Type unequal to /Pages.  Unfortunately,
  346.         % some files distributed by Adobe lack the Type key
  347.         % in some of the Pages nodes!  Instead, we check for Kids.
  348.       dup /Kids knownoget not { exit } if
  349.       exch pop null
  350.       0 1 3 index length 1 sub
  351.        { 2 index exch oget
  352.      dup /Kids known { dup /Count oget } { 1 } ifelse
  353.         % Stack: index kids null node count
  354.      dup 5 index ge { pop exch pop exit } if
  355.      5 -1 roll exch sub 4 1 roll pop
  356.        }
  357.       for exch pop
  358.       dup null eq { pop pop 1 null exit } if
  359.     }
  360.    loop
  361.         % Stack: index countleft node
  362.    1 index 1 ne { pop pop /pdffindpage cvx /rangecheck signalerror } if
  363.    exch pop
  364.    PageIndex 2 index 1 sub 2 index put
  365.    PageNumbers 1 index 3 index put
  366.    exch pop
  367.  } bind def
  368.  
  369. % Find the N'th page of the document.
  370. % The first page is numbered 1.
  371. /pdfgetpage        % <int> pdfgetpage <pagedict>
  372.  { PageIndex 1 index 1 sub get dup null ne
  373.     { exch pop }
  374.     { pop pdffindpage }
  375.    ifelse
  376.  } bind def
  377.  
  378. % Find the page number of a page object (inverse of pdfgetpage).
  379. /pdfpagenumber        % <pagedict> pdfpagenumber <int>
  380.  {    % We use the simplest and stupidest of all possible algorithms....
  381.    PageNumbers 1 index .knownget
  382.     { exch pop
  383.     }
  384.     { 1 1 PageCount 1 add    % will give a rangecheck if not found
  385.        { dup pdfgetpage oforce 2 index eq { exit } if pop
  386.        }
  387.       for exch pop
  388.     }
  389.    ifelse
  390.  } bind def
  391.  
  392. % Display a given page.
  393. /boxrect        % [<llx> <lly> <urx> <ury>] boxrect <x> <y> <w> <h>
  394.  { aload pop exch 3 index sub exch 2 index sub
  395.  } bind def
  396. /resolvedest {        % <name|string|other> resolvedest <other|null>
  397.   dup type /nametype eq {
  398.     Trailer /Root oget /Dests knownoget {
  399.       exch knownoget not { null } if
  400.     } {
  401.       null
  402.     } ifelse
  403.   } {
  404.     dup type /stringtype eq {
  405.       Trailer /Root oget /Names knownoget {
  406.     /Dests knownoget {
  407.       exch nameoget
  408.     } {
  409.       pop null
  410.     } ifelse
  411.       } {
  412.     pop null
  413.       } ifelse
  414.     } if
  415.   } ifelse
  416. } bind def
  417. /linkdest {        % <link|outline> linkdest
  418.             %   ([/Page <n>] /View <view> | ) <link|outline>
  419.   dup /Dest knownoget
  420.     { resolvedest
  421.       dup type /dicttype eq { /D knownoget not { null } if } if
  422.       dup null eq
  423.        { pop }
  424.        { dup 0 oget
  425.      dup null eq
  426.       { pop }
  427.       { dup type /integertype ne { pdfpagenumber } if
  428.         /Page exch 4 -2 roll
  429.       }
  430.      ifelse
  431.      dup length 1 sub 1 exch getinterval /View exch 3 -1 roll
  432.        }
  433.       ifelse
  434.     }
  435.    if
  436. } bind def
  437. % <pagedict> mark ... -proc- -
  438. /namedactions 8 dict dup begin
  439.   /FirstPage {
  440.     /Page 1 3 -1 roll
  441.   } def
  442.   /LastPage {
  443.     counttomark 2 add index pdfpagecount /Page exch 3 -1 roll
  444.   } def
  445.   /NextPage {
  446.     counttomark 2 add index pdfpagenumber 1 add /Page exch 3 -1 roll
  447.   } def
  448.   /PrevPage {
  449.     counttomark 2 add index pdfpagenumber 1 sub /Page exch 3 -1 roll
  450.   } def
  451. end readonly def
  452. % <pagedict> <annotdict> -proc- -
  453. /annottypes 5 dict dup begin
  454.   /Text {
  455.     mark exch
  456.      { /Rect /Open /Contents }
  457.      { 2 copy knownoget { 3 -1 roll } { pop } ifelse }
  458.     forall pop /ANN pdfmark
  459.   } bind def
  460.   /Link {
  461.     mark exch
  462.      { /Rect /Border }
  463.      { 2 copy knownoget { 3 -1 roll } { pop } ifelse }
  464.     forall dup /A knownoget {
  465.       dup /D knownoget {
  466.     exch pop exch dup length dict copy dup /Dest 4 -1 roll put
  467.       } {
  468.     /N knownoget {        % Assume /S /Named
  469.       namedactions exch .knownget { exec } if
  470.     } if
  471.       } ifelse
  472.     } if
  473.     linkdest pop /LNK pdfmark
  474.   } bind def
  475. end readonly def
  476.  
  477. /pdfshowpage        % <pagedict> pdfshowpage -
  478.  { dup /Page exch store
  479.    pdfshowpage_init 
  480.    pdfshowpage_setpage 
  481.    save /PDFSave exch store
  482.    (before exec) VMDEBUG
  483.      pdfshowpage_finish
  484.    (after exec) VMDEBUG
  485.    PDFSave restore
  486.  } bind def
  487.  
  488. /pdfpagecontents    % <pagedict> pdfpagecontents <contents>
  489.  { } bind def
  490.  
  491. /pdfshowpage_init     % <pagedict> pdfshowpage_init <pagedict>
  492.  { /DSCPageCount DSCPageCount 1 add store
  493.  } bind def
  494.  
  495. /.pdfshowpage_Install {    % <tx> <ty> [<prevproc>] .pdfshowpage_Install -
  496.   3 1 roll translate 0 get exec
  497. } bind def
  498.  
  499. /pdfshowpage_setpage {    % <pagedict> pdfshowpage_setpage <pagedict>
  500.   4 dict begin        % for setpagedevice
  501.     % Stack: pagedict
  502.     % We want to look at Rotate for displays, but not for printers.
  503.     % The following is a hack, but we don't know a better way to do this.
  504.   currentpagedevice dup /OutputFile known not {
  505.     /Orientation 2 index /Rotate pget not { 0 } if 90 idiv
  506.     % Rotate specifies *clockwise* rotation!
  507.     neg 3 and def
  508.   } if
  509.     % Stack: pagedict currentpagedict
  510.   1 index /MediaBox pget {
  511.             % Set the page size.
  512.     boxrect [ 2 index 2 index ]
  513.     % Stack: pagedict currentpagedict llx lly width height pagesize
  514.     /PageSize exch def
  515.             % Set the offset on the page.
  516.     % Stack: pagedict currentpagedict llx lly width height
  517.             % Make the page offset values reals to simplify the
  518.             % testing of the Install procedure below.
  519.     pop pop exch 0.0 exch sub exch 0.0 exch sub
  520.     % Stack: pagedict currentpagedict -llx -lly
  521.     [ 3 1 roll 3 index /Install .knownget {
  522.             % Don't let the Install procedure get more deeply
  523.             % nested after every page.
  524.       dup type /arraytype eq {
  525.     dup length 5 eq {
  526.       dup 3 get /.pdfshowpage_Install load eq {
  527.     % Stack: mark tx ty [oldtx oldty [oldproc] .pdfshowpage_Install exec]
  528.         aload pop pop pop
  529.         5 2 roll 3 -1 roll add
  530.     % Stack: mark oldty [oldproc] ty newtx
  531.         exch 4 -1 roll add
  532.     % Stack: mark [oldproc] newtx newty
  533.         3 -1 roll 0 get
  534.       } if
  535.     } if
  536.       } if
  537.       1 array astore /.pdfshowpage_Install load /exec load
  538.     } {
  539.       /translate load
  540.     } ifelse ] cvx
  541.     % Stack: pagedict currentpagedict installproc
  542.     /Install exch def
  543.   } if
  544.     % Stack: pagedict currentpagedict
  545.   pop currentdict end setpagedevice
  546. } bind def
  547.  
  548. /pdfshowpage_finish    % <pagedict> pdfshowpage_finish -
  549.  {
  550.     % Copy crop box.
  551.    dup /CropBox pget
  552.     { boxrect rectclip
  553.       dup /CropBox knownoget { mark /CropBox 3 -1 roll /PAGE pdfmark } if
  554.     }
  555.    if
  556.  
  557.     % Copy annotations and links.
  558.    dup /Annots knownoget
  559.     { 0 1 2 index length 1 sub
  560.        { 1 index exch oget
  561.          dup /Subtype oget annottypes exch .knownget { exec } { pop } ifelse
  562.        }
  563.       for pop
  564.     }
  565.    if
  566.  
  567.     % Display the actual page contents.
  568.    6 dict begin
  569.    /BXlevel 0 def
  570.    /BGDefault currentblackgeneration def
  571.    /UCRDefault currentundercolorremoval def
  572.     %****** DOESN'T HANDLE COLOR TRANSFER YET ******
  573.    /TRDefault currenttransfer def
  574.    matrix currentmatrix beginpage setmatrix
  575.    dup /Contents knownoget not { 0 array } if
  576.    dup type /arraytype ne { 1 array astore } if
  577.    count 1 sub /pdfemptycount exch store
  578.     { oforce false resolvestream pdfopdict .pdfrun
  579.     } forall
  580.    /Annots knownoget { { oforce drawannot } forall } if
  581.    endpage
  582.    end            % scratch dict
  583.  } bind def
  584.  
  585. end            % pdfdict
  586. .setglobal
  587.