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