home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 October / Chip_2002-10_cd1.bin / zkuste / pdf / download / gs704w32.exe / gs7.04 / lib / pdf_main.ps < prev    next >
Encoding:
Text File  |  2002-01-31  |  23.6 KB  |  788 lines
  1. %    Copyright (C) 1994, 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of AFPL Ghostscript.
  4. % 
  5. % AFPL Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author or
  6. % distributor accepts any responsibility for the consequences of using it, or
  7. % for whether it serves any particular purpose or works at all, unless he or
  8. % she says so in writing.  Refer to the Aladdin Free Public License (the
  9. % "License") for full details.
  10. % 
  11. % Every copy of AFPL Ghostscript must include a copy of the License, normally
  12. % in a plain ASCII text file named PUBLIC.  The License grants you the right
  13. % to copy, modify and redistribute AFPL Ghostscript, but only under certain
  14. % conditions described in the License.  Among other things, the License
  15. % requires that the copyright notice and this notice be preserved on all
  16. % copies.
  17.  
  18. % $Id: pdf_main.ps,v 1.35 2001/10/12 07:07:54 rayjj 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. % Test whether the current output device handles pdfmark.
  31. /.writepdfmarkdict 1 dict dup /pdfmark null put readonly def
  32. /.writepdfmarks {    % - .writepdfmarks <bool>
  33.   currentdevice //.writepdfmarkdict .getdeviceparams
  34.   mark eq { false } { pop pop true } ifelse
  35.   systemdict /DOPDFMARKS known or 
  36. } bind def
  37.  
  38. % For simplicity, we use a single interpretation dictionary for all
  39. % PDF graphics execution, even though this is too liberal.
  40. /pdfopdict mark
  41.   objopdict { } forall
  42.   drawopdict { } forall
  43.   /endstream { exit } bind
  44.   (%%EOF) cvn { exit } bind        % for filters
  45.     % PDF 1.1 operators
  46.   /BX { /BXlevel BXlevel 1 add store } bind
  47.   /EX { /BXlevel BXlevel 1 sub store } bind
  48.   /PS { cvx exec } bind
  49.     % PDF 1.2 operators
  50.   /BMC { pop } bind
  51.   /BDC { pop pop } bind
  52.   /EMC { }
  53.   /MP { pop } bind
  54.   /DP { pop pop } bind
  55. .dicttomark readonly def
  56.  
  57. % ======================== Main program ======================== %
  58.  
  59. end            % pdfdict
  60. userdict begin
  61.  
  62. /defaultfontname /Times-Roman def
  63.  
  64. % Make sure the registered encodings are loaded, so we don't run the risk
  65. % that some of the indices for their names will overflow the packed
  66. % representation.  (Yes, this is a hack.)
  67. SymbolEncoding pop
  68. DingbatsEncoding pop
  69.  
  70. % Redefine 'run' so it recognizes PDF files.
  71. systemdict begin
  72. /.runps /run load def
  73. /runpdfstring 50 string def        % length is arbitrary
  74. /run {
  75.   dup type /filetype ne { (r) file } if
  76.   dup ( ) .peekstring {
  77.     (%) eq {
  78.       dup (  ) .peekstring {
  79.     (%P) eq {
  80.       dup //runpdfstring {
  81.         % Some invalid files might have extra-long first lines....
  82.         { readline } .internalstopped not { pop pop exit } if
  83.         pop =string
  84.       } loop
  85.       //runpdfstring (%PDF-) anchorsearch {
  86.         pop pop runpdf
  87.       } {
  88.         pop cvx .runexec
  89.       } ifelse
  90.     } {
  91.       cvx .runps
  92.     } ifelse
  93.       } {
  94.     closefile
  95.       } ifelse
  96.     } {
  97.       cvx .runps
  98.     } ifelse
  99.   } {
  100.     closefile
  101.   } ifelse
  102. } bind odef
  103. currentdict /runpdfstring .undef
  104.  
  105. /runpdf            % <file> runpdf -
  106.  { userdict begin
  107.    /Page# null def
  108.    /Page null def
  109.    /DSCPageCount 0 def
  110.    /PDFSave null def
  111.    GS_PDF_ProcSet begin
  112.    pdfdict begin
  113.    pdfopen begin
  114.    Trailer /Root oget /Pages oget /CropBox knownoget
  115.     { mark /CropBox 3 -1 roll /PAGES pdfmark
  116.     }
  117.    if
  118.    /FirstPage where 
  119.     { pop FirstPage dup pdfpagecount gt
  120.       { (\nRequested FirstPage is greater than the number of pages in the file: ) print
  121.         pdfpagecount = flush
  122.       } if
  123.     } {
  124.       1
  125.     } ifelse
  126.    1
  127.    /LastPage where { pop LastPage pdfpagecount .min } { pdfpagecount } ifelse
  128.    2 index 1 index gt
  129.     { (   No pages will be processed \(FirstPage > LastPage\).) = flush }
  130.     { QUIET not
  131.       { (Processing pages ) print 2 index =only ( through ) print dup =only
  132.         (.) = flush
  133.       }
  134.      if
  135.     }
  136.    ifelse
  137.     { dup /Page# exch store
  138.       QUIET not { (Page ) print dup == flush } if
  139.       pdfgetpage pdfshowpage
  140.     } for
  141.    currentdict pdfclose
  142.    end            % temporary dict
  143.    end            % pdfdict
  144.    end            % userdict
  145.  } bind def
  146. end            % systemdict
  147. % Redefine the procedure that the C code uses for running piped input.
  148. % It is OK to use { (%stdin) run } here, because a startjob cannot occur.
  149. /.runstdin {
  150.   { (%stdin) run } execute0
  151. } bind def
  152.  
  153. end            % userdict
  154. pdfdict begin
  155.  
  156. % ======================== File parsing ======================== %
  157.  
  158. % Read the cross-reference and trailer sections.
  159.  
  160. /traileropdict mark
  161.   (<<) cvn { mark } bind
  162.   (>>) cvn /.dicttomark load
  163.   ([) cvn { mark } bind        % ditto
  164.   (]) cvn dup load
  165. %  /true true        % see .pdfexectoken in pdf_base.ps
  166. %  /false false        % ibid.
  167. %  /null null        % ibid.
  168.   /R { /resolveR cvx 3 packedarray cvx } bind    % see Objects below
  169.   /startxref /exit load
  170. .dicttomark readonly def
  171.  
  172. % Because of EOL conversion, lines with fixed contents might be followed
  173. % by one or more blanks.
  174. /lineeq            % <filestr> <conststr> lineeq <bool>
  175.  { anchorsearch
  176.     { pop { ( ) anchorsearch not { () eq exit } if pop } loop }
  177.     { pop false }
  178.    ifelse
  179.  } bind def
  180. /linene { lineeq not } bind def
  181.  
  182. % Read (mostly scan) the cross-reference table.
  183. /readxref        % <pos> readxref <trailerdict>
  184.  { PDFoffset add PDFfile exch setfileposition
  185.         % In some PDF files, this position actually points to
  186.         % white space before the xref line.  Skip over this here.
  187.    { PDFfile fileposition PDFfile read pop 32 gt { exit } if pop
  188.    } loop
  189.    PDFfile exch setfileposition
  190.         % The PDF specification says that the 'xref' must be on a line
  191.         % by itself. The code here formerly used readline and linene to
  192.         % check this. However, Acrobat Reader only requires the line to
  193.         % begin with 'xref', and there are enough applications producing
  194.         % non-compliant PDF files that we have to do this too.
  195.    PDFfile pdfstring 0 4 getinterval readstring pop
  196.    (xref) ne { /readxref cvx /syntaxerror signalerror } if
  197.         % Store the xref table entry position for each object.
  198.         % We only need to read the run headers, not every entry.
  199.     { PDFfile token pop        % first object # or trailer
  200.       dup /trailer eq { pop exit } if
  201.       PDFfile pdfstring readline pop
  202.       token pop            % entry count
  203.       exch pop exch
  204.         % This section might be adding new objects:
  205.         % ensure that Objects and Generations are big enough.
  206.         % Stack: count obj#
  207.       2 copy add growPDFobjects
  208.       PDFfile fileposition 3 -1 roll
  209.        { Objects 2 index lget null eq    % later update might have set it
  210.       { Objects 2 index 2 index cvx lput }
  211.          if exch 1 add exch 20 add
  212.        }
  213.       repeat PDFfile exch setfileposition pop
  214.     } loop
  215.    count /pdfemptycount exch def
  216.    PDFfile traileropdict .pdfrun
  217.  } bind def
  218.  
  219. % Open a PDF file and read the header, trailer, and cross-reference.
  220. /pdfopen {        % <file> pdfopen <dict>
  221.   pdfopenfile begin
  222.   pdfopencache
  223.   .writepdfmarks {
  224.     % Copy bookmarks (outline) to the output.
  225.     Trailer /Root oget /Outlines knownoget {
  226.       /First knownoget {
  227.     { dup writeoutline /Next knownoget not { exit } if } loop
  228.       } if
  229.     } if
  230.   } if        % end .writepdfmarks
  231.   currentdict end
  232. } bind def
  233. /pdfopencache {        % - pdfopencache -
  234.     % Create and initialize some caches.
  235.   /PageCount pdfpagecount def
  236.   /PageNumbers PageCount 65534 min dict def
  237.   /PageIndex PageCount 65534 min array def
  238. } bind def
  239. /pdfopenfile {        % <file> pdfopenfile <dict>
  240.    pdfdict readonly pop        % can't do it any earlier than this
  241.    15 dict begin
  242.    /LocalResources 0 dict def
  243.    /DefaultMatrix null def    % establish binding
  244.    /Printed where { pop } {
  245.         % Guess whether the output device is a printer.
  246.      /Printed currentpagedevice /OutputFile known def
  247.    } ifelse
  248.    /PSLevel1 where { pop } { /PSLevel1 false def } ifelse
  249.    cvlit /PDFfile exch def
  250.    /PDFsource PDFfile def
  251.    /Repaired false def
  252.    PDFfile dup 0 setfileposition pdfstring readstring 
  253.    not {/pdfopen cvx /syntaxerror signalerror} if
  254.    (%PDF-) search not {/pdfopen cvx /syntaxerror signalerror} if
  255.    length /PDFoffset exch def pop cvr /PDFversion exch def
  256.    findxref
  257.    initPDFobjects
  258.     % Read the last cross-reference table.
  259.    readxref /Trailer exch def
  260.    Trailer /Encrypt known
  261.     { pdf_process_Encrypt    % signal error
  262.     }
  263.    if
  264.     % Read any previous cross-reference tables.
  265.    Trailer { /Prev .knownget not { exit } if readxref } loop
  266.    Repaired { printrepaired } if
  267.    currentdict end
  268.  } bind def
  269.  
  270. % Skip backward over the %%EOF at the end of the PDF file, and read
  271. % the preceding startxref line.  The PDF specification unambiguously
  272. % requires that the %%EOF appear on a line by itself, and that the
  273. % startxref and the following position value appear on separate lines;
  274. % however, some applications (including, apparently, Acrobat Distiller
  275. % on the Macintosh) may add up to 2K of garbage after the %%EOF, and some
  276. % other applications also truncate the %%EOF to %%EO, and/or put the
  277. % startxref and the following value on the same line.
  278. % A file reported from Distiller 3.02b for AIX 4.1.1 has 2076 bytes
  279. % of garbage. The tolerance is increased to 4K to cover future
  280. % applications and bigger allocation units.
  281. /findxref {        % - findxref <xrefpos>
  282.   PDFfile dup dup 0 setfileposition bytesavailable
  283.   dup /PDFfilelen exch def
  284.     % Find the last %%EOF string (within 4096 bytes)
  285.   4096 sub PDFoffset .max
  286.   2 copy setfileposition
  287.   PDFfilelen exch sub string 1 index exch readstring pop {
  288.     (\015%%EO) search {        % Adobe can handle truncated key string
  289.       pop pop            % if found, keep searching 'post' string
  290.     } {
  291.       (\012%%EO) search
  292.     { pop pop } { exit } ifelse    % exit if neither string found
  293.     } ifelse
  294.   } loop
  295.   PDFfilelen exch length sub 4 sub PDFoffset .max exch 1 index setfileposition
  296.     % Stack: eofpos
  297.     % Check for whether this is, in fact, a valid PDF file.
  298.   dup PDFfilelen exch sub dup dup 7 gt exch 6 lt or {
  299.     pop true
  300.   } {
  301.     string PDFfile exch readstring pop
  302.     dup (%%EOF\n) eq exch dup (%%EOF\r) eq
  303.     exch (%%EOF\r\n) eq or or not
  304.   } ifelse {
  305.     (
  306.    **** This file has a corrupted %%EOF marker, or garbage after the %%EOF.
  307. ) pdfformaterror
  308.   } if
  309.   PDFfile exch setfileposition
  310.     % Now read the startxref and xref start position.
  311.   prevline token not { null } if dup type /integertype eq {
  312.     exch pop cvi        % xref start position
  313.     exch PDFfile exch setfileposition
  314.     prevline (startxref) linene { /findxref cvx /syntaxerror signalerror } if
  315.     pop
  316.   } {    % else, this file has 'startxref #####' format
  317.     (startxref) ne { /findxref cvx /syntaxerror signalerror } if
  318.     cvi        % xref start position
  319.     (
  320.    **** The format of the startxref line in this file is invalid.
  321. ) pdfformaterror
  322.     exch PDFfile exch setfileposition
  323.   } ifelse
  324. } bind def
  325. /stderrfile (%stderr) (w) file def
  326. /stderrprint {                % <string> stderrprint -
  327.   //stderrfile dup 3 -1 roll writestring flushfile
  328. } bind def
  329. /pdfformaterror {    % <string> pdfformaterror -
  330.   stderrprint
  331.   /Repaired true store
  332. } bind def
  333. /printrepaired {
  334.   Trailer /Info knownoget {
  335.     /Producer knownoget not { null } if
  336.   } {
  337.     null
  338.   } ifelse
  339.   dup null eq {
  340.     pop (\
  341.    **** Please notify the author of the software that produced this file
  342. )
  343.   } {
  344.     (   **** The file was produced by ) stderrprint
  345.     % Handle a Unicode Producer.
  346.     (\376\377) anchorsearch {
  347.       pop dup length 2 idiv string 0 1 2 index length 1 sub {
  348.         % Stack: origstr newstr i
  349.     1 index exch 3 index 1 index 2 mul 1 add get put
  350.       } for exch pop
  351.     } if
  352.     stderrprint
  353.     (:
  354.    **** please notify the author of this software
  355. )
  356.   } ifelse stderrprint
  357. (\
  358.    **** that the file does not conform to Adobe's published PDF
  359.    **** specification.  Processing of the file will continue normally.
  360.  
  361. ) stderrprint
  362. } bind def
  363.  
  364. % Write the outline structure for a file.  Uses linkdest (below).
  365. /writeoutline        % <outlinedict> writeoutline -
  366.  { mark
  367.    0 2 index /First knownoget
  368.     { { exch 1 add exch /Next knownoget not { exit } if } loop }
  369.    if
  370.         % stack: dict mark count
  371.    dup 0 eq
  372.     { pop 1 index
  373.     }
  374.     { 2 index /Count knownoget { 0 lt { neg } if } if
  375.       /Count exch 3 index
  376.     }
  377.    ifelse linkdest /Title oget /Title exch /OUT pdfmark
  378.    /First knownoget
  379.     { { dup writeoutline /Next knownoget not { exit } if } loop }
  380.    if
  381.  } bind def
  382.  
  383. % Close a PDF file.
  384. /pdfclose        % <dict> pdfclose -
  385.  { begin
  386.    PDFfile closefile
  387.    end
  388.  } bind def
  389.  
  390. % ======================== Page accessing ======================== %
  391.  
  392. % Get a (possibly inherited) attribute of a page.
  393. /pget            % <pagedict> <key> pget <value> -true-
  394.             % <pagedict> <key> pget -false-
  395.  { 2 copy knownoget
  396.     { exch pop exch pop true
  397.     }
  398.     { exch /Parent knownoget
  399.        { exch pget }
  400.        { pop false }
  401.       ifelse
  402.     }
  403.    ifelse
  404.  } bind def
  405.  
  406. % Get the value of a resource on a given page.
  407. /rget {            % <resname> <pagedict> <restype> rget <value> -true-
  408.             % <resname> <pagedict> <restype> rget -false-
  409.   LocalResources 1 index knownoget {
  410.      3 index knownoget
  411.   } {
  412.     false
  413.   } ifelse {
  414.     exch pop exch pop exch pop true
  415.   } {
  416.     exch /Resources pget {
  417.       exch knownoget { exch knownoget } { pop false } ifelse
  418.     } {
  419.       pop pop false
  420.     } ifelse
  421.   } ifelse
  422. } bind def
  423.  
  424. % Get the total number of pages in the document.
  425. /pdfpagecount        % - pdfpagecount <int>
  426.  { Trailer /Root oget /Pages oget /Count oget
  427.  } bind def
  428.  
  429. % Find the N'th page of the document by iterating through the Pages tree.
  430. % The first page is numbered 1.
  431. /pdffindpageref {        % <int> pdffindpage <objref>
  432.   dup Trailer /Root oget /Pages get
  433.     {        % We should be able to tell when we reach a leaf
  434.         % by finding a Type unequal to /Pages.  Unfortunately,
  435.         % some files distributed by Adobe lack the Type key
  436.         % in some of the Pages nodes!  Instead, we check for Kids.
  437.       dup oforce /Kids knownoget not { exit } if
  438.       exch pop null
  439.       0 1 3 index length 1 sub {
  440.          2 index exch get
  441.      dup oforce dup /Kids known { /Count oget } { pop 1 } ifelse
  442.         % Stack: index kids null noderef count
  443.      dup 5 index ge { pop exch pop exit } if
  444.      5 -1 roll exch sub 4 1 roll pop
  445.       } for exch pop
  446.         % Stack: index null|noderef
  447.       dup null eq { pop pop 1 null exit } if
  448.     } loop
  449.         % Stack: index countleft noderef
  450.    1 index 1 ne { pop pop /pdffindpage cvx /rangecheck signalerror } if
  451.    exch pop
  452.    PageIndex 2 index 1 sub 65533 min 2 index oforce put
  453.    PageNumbers 1 index oforce 3 index dup 65534 le
  454.     { put }
  455.     { pop pop pop }    % don't store more than 65534 pagenumbers
  456.    ifelse
  457.    exch pop
  458. } bind def
  459. /pdffindpage {        % <int> pdffindpage <pagedict>
  460.   pdffindpageref oforce
  461. } bind def
  462.  
  463. % Find the N'th page of the document.
  464. % The first page is numbered 1.
  465. /pdfgetpage        % <int> pdfgetpage <pagedict>
  466.  { PageIndex 1 index 1 sub dup 65533 lt
  467.     { get }
  468.     { pop pop null }
  469.    ifelse
  470.    dup null ne
  471.     { exch pop oforce }
  472.     { pop pdffindpage }
  473.    ifelse
  474.  } bind def
  475.  
  476. % Find the page number of a page object (inverse of pdfgetpage).
  477. /pdfpagenumber        % <pagedict> pdfpagenumber <int>
  478.  {    % We use the simplest and stupidest of all possible algorithms....
  479.    PageNumbers 1 index .knownget
  480.     { exch pop
  481.     }
  482.     { 1 1 PageCount 1 add    % will give a rangecheck if not found
  483.        { dup pdfgetpage oforce 2 index eq { exit } if pop
  484.        }
  485.       for exch pop
  486.     }
  487.    ifelse
  488.  } bind def
  489.  
  490. % Display a given page.
  491. /boxrect        % [<llx> <lly> <urx> <ury>] boxrect <x> <y> <w> <h>
  492.  { aload pop exch 3 index sub exch 2 index sub
  493.  } bind def
  494. /resolvedest {        % <name|string|other> resolvedest <other|null>
  495.   dup type /nametype eq {
  496.     Trailer /Root oget /Dests knownoget {
  497.       exch knownoget not { null } if
  498.     } {
  499.       null
  500.     } ifelse
  501.   } {
  502.     dup type /stringtype eq {
  503.       Trailer /Root oget /Names knownoget {
  504.     /Dests knownoget {
  505.       exch nameoget
  506.     } {
  507.       pop null
  508.     } ifelse
  509.       } {
  510.     pop null
  511.       } ifelse
  512.     } if
  513.   } ifelse
  514. } bind def
  515. /linkdest {        % <link|outline> linkdest
  516.             %   ([/Page <n>] /View <view> | ) <link|outline>
  517.   dup /Dest knownoget
  518.     { resolvedest
  519.       dup type /dicttype eq { /D knownoget not { null } if } if
  520.       dup null eq
  521.        { pop }
  522.        { dup 0 oget
  523.      dup null eq
  524.       { pop }
  525.       { dup type /integertype ne { pdfpagenumber } if
  526.         /Page exch 4 -2 roll
  527.       }
  528.      ifelse
  529.      dup length 1 sub 1 exch getinterval /View exch 3 -1 roll
  530.        }
  531.       ifelse
  532.     }
  533.    if
  534. } bind def
  535. % <pagedict> mark ... -proc- -
  536. /namedactions 8 dict dup begin
  537.   /FirstPage {
  538.     /Page 1 3 -1 roll
  539.   } def
  540.   /LastPage {
  541.     counttomark 2 add index pdfpagecount /Page exch 3 -1 roll
  542.   } def
  543.   /NextPage {
  544.     counttomark 2 add index pdfpagenumber 1 add /Page exch 3 -1 roll
  545.   } def
  546.   /PrevPage {
  547.     counttomark 2 add index pdfpagenumber 1 sub /Page exch 3 -1 roll
  548.   } def
  549. end readonly def
  550. % <pagedict> <annotdict> -proc- -
  551. /annottypes 5 dict dup begin
  552.   /Text {
  553.     mark exch
  554.      { /Rect /Open /Contents }
  555.      { 2 copy knownoget { 3 -1 roll } { pop } ifelse }
  556.     forall pop /ANN pdfmark
  557.   } bind def
  558.   /Link {
  559.     mark exch
  560.      { /Rect /Border }
  561.      { 2 copy knownoget { 3 -1 roll } { pop } ifelse }
  562.     forall dup /A knownoget {
  563.       dup /URI known {
  564.         /A mark 3 2 roll    % <<>> /A [ <<action>>
  565.         { oforce } forall
  566.         .dicttomark
  567.         3 2 roll
  568.       } {
  569.         dup /D knownoget {
  570.       exch pop exch dup length dict copy dup /Dest 4 -1 roll put
  571.         } {
  572.       /N knownoget {        % Assume /S /Named
  573.          namedactions exch .knownget { exec } if
  574.       } if
  575.         } ifelse
  576.       } ifelse
  577.     } if
  578.     linkdest pop /LNK pdfmark
  579.   } bind def
  580. end readonly def
  581.  
  582. /pdfshowpage        % <pagedict> pdfshowpage -
  583.  { dup /Page exch store
  584.    pdfshowpage_init 
  585.    pdfshowpage_setpage 
  586.    save /PDFSave exch store
  587.    (before exec) VMDEBUG
  588.      pdfshowpage_finish
  589.    (after exec) VMDEBUG
  590.    PDFSave restore
  591.  } bind def
  592.  
  593. /pdfpagecontents    % <pagedict> pdfpagecontents <contents>
  594.  { } bind def
  595.  
  596. /pdfshowpage_init     % <pagedict> pdfshowpage_init <pagedict>
  597.  { /DSCPageCount DSCPageCount 1 add store
  598.  } bind def
  599.  
  600. /.pdfshowpage_Install {    % <pagedict> [<prevproc>] .pdfshowpage_Install -
  601.   exch
  602.     % We would like to clip to the CropBox here, but the subsequent
  603.     % initgraphics would override it.  Instead, we have to handle it
  604.     % in graphicsbeginpage.
  605.   dup /MediaBox pget {
  606.     dup 0 get neg exch 1 get neg translate
  607.   } if
  608.   pop 0 get exec
  609. } bind def
  610.  
  611. /pdfshowpage_setpage {    % <pagedict> pdfshowpage_setpage <pagedict>
  612.   4 dict begin        % for setpagedevice
  613.     % Stack: pagedict
  614.   currentpagedevice /Orientation 2 index /Rotate pget not { 0 } if 90 idiv
  615.     % Rotate specifies *clockwise* rotation!
  616.     neg 3 and def
  617.     % Stack: pagedict currentpagedict
  618.   1 index /MediaBox pget {
  619.             % Set the page size.
  620.     boxrect 2 array astore /PageSize exch def pop pop
  621.   } if
  622.   dup /Install .knownget {
  623.             % Don't let the Install procedure get more deeply
  624.             % nested after every page.
  625.       dup type dup /arraytype eq exch /packedarraytype eq or {
  626.     dup length 4 eq {
  627.       dup 2 get /.pdfshowpage_Install load eq {
  628.         1 get 0 get    % previous procedure
  629.       } if
  630.     } if
  631.       } if
  632.   } {
  633.     { }
  634.   } ifelse 1 array astore
  635.   2 index exch /.pdfshowpage_Install load /exec load
  636.   4 packedarray cvx
  637.     % Stack: pagedict currentpagedict installproc
  638.   /Install exch def
  639.     % Stack: pagedict currentpagedict
  640.   pop currentdict end setpagedevice
  641. } bind def
  642.  
  643. /pdfshowpage_finish {    % <pagedict> pdfshowpage_finish -
  644.  
  645.   .writepdfmarks {
  646.  
  647.     % Copy the crop box.
  648.     dup /CropBox knownoget {
  649.     % If the page has been rotated, rotate the CropBox.
  650.       mark /CropBox 3 -1 roll
  651.       3 index /Rotate pget {
  652.     90 idiv 1 and 0 ne {
  653.       aload pop 4 -2 roll exch 4 2 roll exch 4 array astore
  654.     } if
  655.       } if
  656.       /PAGE pdfmark
  657.     } if
  658.  
  659.     % Copy annotations and links.
  660.     dup /Annots knownoget {
  661.       0 1 2 index length 1 sub
  662.        { 1 index exch oget
  663.          dup /Subtype oget annottypes exch .knownget { exec } { pop } ifelse
  664.        }
  665.       for pop
  666.     } if
  667.  
  668.   } if        % end .writepdfmarks
  669.  
  670.     % Display the actual page contents.
  671.    6 dict begin
  672.    /BXlevel 0 def
  673.    /BGDefault currentblackgeneration def
  674.    /UCRDefault currentundercolorremoval def
  675.     %****** DOESN'T HANDLE COLOR TRANSFER YET ******
  676.    /TRDefault currenttransfer def
  677.   matrix currentmatrix 2 dict
  678.   2 index /CropBox knownoget {
  679.     boxrect 4 array astore 1 index /ClipRect 3 -1 roll put
  680.   } if
  681.   dictbeginpage /DefaultMatrix 1 index store setmatrix
  682.   dup          % for showing annotations below
  683.   count /pdfemptycount exch store
  684.   gsave
  685.     % If the page uses any transparency features, show it within
  686.     % a transparency group.
  687.   PDFversion 1.4 lt {
  688.     showpagecontents
  689.   } {
  690.     dup pageusestransparency {
  691.       % Show the page within a PDF 1.4 device filter.
  692.       0 .pushpdf14devicefilter {
  693.     % If the page has a Group, enclose contents in transparency group.
  694.         % (Adobe Tech Note 5407, sec 9.2)
  695.         dup /Group knownoget {
  696.       1 index /CropBox knownoget not {
  697.         1 index /MediaBox oget
  698.       } if .beginformgroup {
  699.         showpagecontents
  700.       } .internalstopped {
  701.         .discardtransparencygroup stop
  702.       } if .endtransparencygroup
  703.         } {
  704.       showpagecontents
  705.         } ifelse
  706.       } .internalstopped {
  707.     % todo: discard
  708.     .popdevicefilter stop
  709.       } if .popdevicefilter
  710.     } {
  711.       showpagecontents
  712.     } ifelse
  713.   } ifelse
  714.   grestore
  715.    % todo: mixing drawing ops outside the device filter could cause
  716.    % problems, for example with the pnga device.
  717.    /Annots knownoget { { oforce drawannot } forall } if
  718.    endpage
  719.    end            % scratch dict
  720. } bind def
  721. /showpagecontents {    % <pagedict> showpagecontents -
  722.   /Contents knownoget not { 0 array } if
  723.   dup type /arraytype ne { 1 array astore } if {
  724.     oforce false resolvestream pdfopdict .pdfrun
  725.   } forall
  726. } bind def
  727. /processcolorspace {    % - processcolorspace <colorspace>
  728.     % The following is per the PLRM3.
  729.   currentdevice 1 dict dup /ProcessColorModel dup put .getdeviceparams
  730.   exch pop exch pop
  731.   dup type /nametype ne { cvn } if
  732.   dup { setcolorspace } .internalstopped { pop /DeviceRGB } if
  733. } bind def
  734.  
  735. % ------ Transparency support ------ %
  736.  
  737. % Determine whether a page might invoke any transparency features:
  738. %    - Group in the page dictionary
  739. %    - Non-default ca, CA, or SMask in an ExtGState
  740. %    - Form XObject with Group
  741. %    - Image XObject with SMask
  742. % ****** DO WE NEED TO LOOK IN RESOURCE DICTS OF OTHER CONTENT STREAMS? ******
  743. /pageusestransparency {        % <pagedict> pageusestransparency <bool>
  744.   PDFversion 1.4 lt {
  745.     pop false
  746.   } {
  747.     dup /Group known {
  748.       pop true
  749.     } {
  750.       false exch {
  751.     dup resourceusestransparency { pop not exit } if
  752.     /Parent knownoget not { exit } if
  753.       } loop
  754.     } ifelse
  755.   } ifelse
  756. } bind def
  757. % Check the Resources of a page or Form.
  758. /resourceusestransparency {    % <dict> resourceusestransparency <bool>
  759.   {    % Use loop to provide an exitable context.
  760.     /Resources knownoget not { 0 dict } if
  761.     dup /ExtGState knownoget {
  762.       false exch {
  763.     exch pop oforce
  764.     dup /ca knownoget { 1 ne { pop not exit } if } if
  765.     dup /CA knownoget { 1 ne { pop not exit } if } if
  766.     dup /SMask knownoget { /None ne { pop not exit } if } if
  767.     pop
  768.       } forall { pop true exit } if
  769.     } if
  770.     dup /XObject knownoget {
  771.       false exch {
  772.     exch pop oforce dup /Subtype get
  773.     dup /Image eq { 1 index /SMask known { pop pop not exit } if } if
  774.     /Form eq {
  775.       dup /Group known { pop not exit } if
  776.       resourceusestransparency { not exit } if
  777.     } {
  778.       pop
  779.     } ifelse
  780.       } forall { pop true exit } if
  781.     } if
  782.     pop false exit
  783.   } loop
  784. } bind def
  785.  
  786. end            % pdfdict
  787. .setglobal
  788.