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