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