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