home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 November (DVD) / PCWELT_11_2006.ISO / casper / filesystem.squashfs / usr / share / gs-esp / 8.15 / lib / pdf_main.ps < prev    next >
Encoding:
Text File  |  2006-07-06  |  34.0 KB  |  1,081 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.71.2.7 2005/03/16 23:05:47 alexcher 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. /run {
  72.   dup type /filetype ne { (r) file } if
  73.   dup ( ) .peekstring {
  74.     (%) eq {
  75.       dup (     ) .peekstring {
  76.     (%PDF-) eq {
  77.         dup (%stdin) (r) file eq {
  78.           % Copy PDF from stdin to temporary file then run it.
  79.           null (w+) //systemdict /.tempfile get exec exch 3 1 roll
  80.           % stack: tempname stdin tempfile
  81.           64000 string
  82.           {
  83.         % stack: tempname stdin tempfile string
  84.         2 index 1 index readstring
  85.         exch 3 index exch writestring
  86.         not { exit } if
  87.           }
  88.           loop
  89.           pop exch closefile
  90.           % stack: tempname tempfile
  91.           dup 0 setfileposition
  92.           dup runpdf
  93.           closefile deletefile
  94.         } {
  95.           runpdf
  96.         } ifelse
  97.       } {
  98.         cvx .runps % doesn't start with %PDF-
  99.       } ifelse
  100.     } {
  101.       pop cvx .runps % didn't read 5 characters
  102.     } ifelse
  103.     } {
  104.       cvx .runps % didn't start with %
  105.     } ifelse
  106.   } {
  107.     pop closefile % file was empty
  108.   } ifelse
  109. } bind odef
  110. currentdict /runpdfstring .undef
  111.  
  112.  
  113. /runpdfbegin {        % <file> runpdf -
  114.    userdict begin
  115.     % It turns out that the PDF interpreter uses memory more
  116.     % effectively if it is run under at least one level of save.
  117.     % This is counter-intuitive, and we don't understand why it happens,
  118.     % but the improvement is significant.
  119.    /PDFTopSave save def
  120.    0 setobjectformat
  121.    /Page# null def
  122.    /Page null def
  123.    /DSCPageCount 0 def
  124.    /PDFSave null def
  125.    GS_PDF_ProcSet begin
  126.    pdfdict begin
  127.    pdfopen begin
  128.    Trailer /Root oget /Pages oget /CropBox knownoget
  129.     { oforce_array mark /CropBox 3 -1 roll /PAGES pdfmark
  130.     }
  131.    if
  132.    /FirstPage where 
  133.     { pop FirstPage dup pdfpagecount gt
  134.       { (\nRequested FirstPage is greater than the number of pages in the file: ) print
  135.         pdfpagecount = flush
  136.       } if
  137.     } {
  138.       1
  139.     } ifelse
  140.    /LastPage where { pop LastPage pdfpagecount .min } { pdfpagecount } ifelse
  141.    1 index 1 index gt
  142.     { (   No pages will be processed \(FirstPage > LastPage\).) = flush }
  143.     { QUIET not
  144.       { (Processing pages ) print 1 index =only ( through ) print dup =only
  145.         (.) = flush
  146.       }
  147.      if
  148.     }
  149.    ifelse
  150. } bind def
  151.  
  152. /dopdfpages {   % firstpage# lastpage# dopdfpages -
  153.   << /PDFScanRules true >> setuserparams    % set scanning rules for PDF vs. PS
  154.   1 exch
  155.     { dup /Page# exch store
  156.       QUIET not { (Page ) print dup == flush } if
  157.       pdfgetpage pdfshowpage
  158.     } for
  159.   << /PDFScanRules null >> setuserparams    % restore scanning rules for PS
  160. } bind def
  161.  
  162. /runpdfend {
  163.    Repaired { printrepaired } if
  164.    currentdict pdfclose
  165.    end            % temporary dict
  166.    end            % pdfdict
  167.    end            % GS_PDF_ProcSet
  168.    PDFTopSave restore
  169.    end            % userdict
  170. } bind def
  171.  
  172. /runpdf {        % <file> runpdf -
  173.   runpdfbegin
  174.   dopdfpages
  175.   runpdfend
  176. } bind def
  177.  
  178. end            % systemdict
  179. % Redefine the procedure that the C code uses for running piped input.
  180. % It is OK to use { (%stdin) run } here, because a startjob cannot occur.
  181. /.runstdin {
  182.   { (%stdin) run } execute0
  183. } bind def
  184.  
  185. end            % userdict
  186. pdfdict begin
  187.  
  188. % ======================== File parsing ======================== %
  189.  
  190. % Read the cross-reference and trailer sections.
  191.  
  192. /traileropdict mark
  193.   (<<) cvn { mark } bind
  194.   (>>) cvn { { .dicttomark } stopped {
  195.           (   **** File has unbalanced >> in trailer.\n) pdfformaterror
  196.              } if } bind
  197.   ([) cvn { mark } bind        % ditto
  198.   (]) cvn dup load
  199. %  /true true        % see .pdfexectoken in pdf_base.ps
  200. %  /false false        % ibid.
  201. %  /null null        % ibid.
  202.   /R { /resolveR cvx 3 packedarray cvx } bind    % see Objects below
  203.   /startxref /exit load
  204. .dicttomark readonly def
  205.  
  206. % Because of EOL conversion, lines with fixed contents might be followed
  207. % by one or more blanks.
  208. /lineeq            % <filestr> <conststr> lineeq <bool>
  209.  { anchorsearch
  210.     { pop { ( ) anchorsearch not { () eq exit } if pop } loop }
  211.     { pop false }
  212.    ifelse
  213.  } bind def
  214. /linene { lineeq not } bind def
  215.  
  216. % Read the cross-reference table.
  217. /readxref        % <pos> readxref <trailerdict>
  218.  {
  219.    PDFoffset add PDFfile exch setfileposition
  220.         % In some PDF files, this position actually points to
  221.         % white space before the xref line.  Skip over this here.
  222.    { PDFfile fileposition PDFfile read pop 32 gt { exit } if pop
  223.    } loop
  224.    PDFfile exch setfileposition
  225.    0        % Initialize xref table error counter
  226.  
  227.         % The PDF specification says that the 'xref' must be on a line
  228.         % by itself. The code here formerly used readline and linene to
  229.         % check this. However, Acrobat Reader only requires the line to
  230.         % begin with 'xref', and there are enough applications producing
  231.         % non-compliant PDF files that we have to do this too.
  232.    PDFfile pdfstring 0 4 getinterval readstring pop
  233.    (xref) ne { /readxref cvx /syntaxerror signalerror } if
  234.         % Store the xref table entry position for each object.
  235.    { PDFfile token pop        % first object # or trailer
  236.      dup /trailer eq { pop exit } if
  237.      PDFfile pdfstring readline pop
  238.      token pop            % entry count
  239.      exch pop            % remove last
  240.         % This section might be adding new objects:
  241.         % ensure that Objects and Generations are big enough.
  242.         % stack: <err count> <first obj> <entry count>
  243.      2 copy add growPDFobjects
  244.      PDFfile fileposition
  245.      3 1 roll            % stack: <err count> <filepos> <first obj> <entry count>
  246.      {                % stack: <err count> <file pos> <obj num>
  247.         % Read xref line
  248.        PDFfile pdfstring readline pop  
  249.        token pop        % object position
  250.        exch token pop        % generation #
  251.        exch token pop        % n or f
  252.        exch pop            % Stack: <err count> <file pos> <obj#> <loc> <gen#> <tag>
  253.        dup /n eq {        % xref line tag is /n
  254.      pop            % pop dup of line tag
  255.          Objects 3 index lget null eq {    % later update might have set it
  256.        setxrefentry
  257.          } if
  258.        }
  259.        {            % xref line tag was not /n
  260.      /f ne            % verify that the tag was /f
  261.          { /setxrefentry cvx /syntaxerror signalerror
  262.      } if
  263.        } ifelse
  264.        pop pop            % pop <obj location> and <gen num>
  265.         % Check if line length is 20 chars (Adobe spec.)
  266.        exch            % stack: <err count> <obj num> <file pos>
  267.        PDFfile fileposition    % <err count> <obj#> <old pos> <new pos>
  268.        dup 4 1 roll        % <err count> <new Pos> <obj#> <old pos> <new pos>
  269.        exch sub 20 ne        % <err count> <new Pos> <obj#> <bool>
  270.        { 3 -1 roll 1 add 3 1 roll % Increment error count
  271.        } if
  272.        1 add            % increment object number
  273.      } repeat
  274.      pop pop            % pop <file pos> <obj #>
  275.    } loop
  276.    0 ne {
  277.      (   **** Warning:  length of some xref entries is not equal to 20 bytes.\n)
  278.      pdfformaterror
  279.    } if
  280.    PDFfile traileropdict .pdfrun
  281.  } bind def
  282.  
  283. % Open a PDF file and read the header, trailer, and cross-reference.
  284. /pdfopen {        % <file> pdfopen <dict>
  285.     % Color space substitution in PDF is handled somewhat differently
  286.     % than in PostScript. A given device color space will be substituted
  287.     % if the corresponding "Default..." entry exists in the Page's
  288.     % Resource dictionary (which might be inhereted); there is no
  289.     % UseCIEColor to enable/disable color mapping.
  290.     %
  291.     % This behavior is achieved by always setting UseCIEColor to true
  292.     % in the page device dictionary. If the value of this parameter was
  293.     % originally false (i.e.: the output device does not perform color
  294.     % space substitution by default), the instances DefaultGray,
  295.     % DefaultRGB, and DefaultCMYK of the (local) ColorSpace category
  296.     % are redefined to be DeviceGray, DeviceRGB, and DeviceCMYK,
  297.     % respectively. This is not done if UseCIEColor is true by default,
  298.     % as in that case color substitution is presumably desired even
  299.     % if the file does not request it.
  300.    currentpagedevice /UseCIEColor .knownget dup { pop } if not
  301.     { .currentglobal false .setglobal
  302.       /DefaultGray { /DeviceGray } cvlit /ColorSpace defineresource pop
  303.       /DefaultRGB { /DeviceRGB } cvlit /ColorSpace defineresource pop
  304.       /DefaultCMYK { /DeviceCMYK } cvlit /ColorSpace defineresource pop
  305.       .setglobal
  306.     }
  307.    if
  308.   pdfopenfile begin
  309.   pdfopencache
  310.   .writepdfmarks {
  311.     % Copy bookmarks (outline) to the output.
  312.     Trailer /Root oget /Outlines knownoget {
  313.       /First knownoget {
  314.     { dup writeoutline /Next knownoget not { exit } if } loop
  315.       } if
  316.     } if
  317.   } if        % end .writepdfmarks
  318.   currentdict end
  319. } bind def
  320.  
  321. /pdfopencache {        % - pdfopencache -
  322.     % Create and initialize some caches.
  323.   /PageCount pdfpagecount def
  324.   /PageNumbers PageCount 65534 .min dict def
  325.   /PageIndex PageCount 65534 .min array def
  326. } bind def
  327.  
  328. /pdfopenfile {        % <file> pdfopenfile <dict>
  329.    pdfdict readonly pop        % can't do it any earlier than this
  330.    15 dict begin
  331.    /LocalResources 0 dict def
  332.    /DefaultQstate //null def    % establish binding
  333.    /Printed where { pop } {
  334.         % Guess whether the output device is a printer.
  335.      /Printed currentpagedevice /OutputFile known def
  336.    } ifelse
  337.    /PSLevel1 where { pop } { /PSLevel1 false def } ifelse
  338.    % NB: PDFfile is used outside of the PDF code to determine that a
  339.    % PDF job is being processed; to not change or hide this key.
  340.    cvlit /PDFfile exch def
  341.    /PDFsource PDFfile def
  342.    /Repaired false def
  343.    PDFfile dup 0 setfileposition pdfstring readstring 
  344.    not {/pdfopen cvx /syntaxerror signalerror} if
  345.    (%PDF-) search not {/pdfopen cvx /syntaxerror signalerror} if
  346.    length /PDFoffset exch def pop cvr /PDFversion exch def
  347.     % Read the last cross-reference table.
  348.    count /pdfemptycount exch def
  349.    /Trailer << >> def        % Initialize to an emptry dict.
  350.    { initPDFobjects findxref readxref } .internalstopped {
  351.         % Read failed.  Attempt to recover xref data.
  352.      print_xref_warning 
  353.      count pdfemptycount sub { pop } repeat % remove anything left by readxref
  354.      search_objects
  355.      search_trailer
  356.    } { /Trailer exch def
  357.     % Read any previous cross-reference tables.
  358.      Trailer
  359.      { /Prev knownoget not { exit } if
  360.        { readxref } .internalstopped {
  361.          % Read failed.  Attempt to recover xref data.
  362.          print_xref_warning
  363.          count pdfemptycount sub { pop } repeat    % remove anything left by readxref
  364.      search_objects
  365.          search_trailer
  366.      exit
  367.        } if
  368.        % The PDF spec. says that each trailer dict should contain the required
  369.        % entries.  However we have seen a PDF file that only has a Prev entry in
  370.        % the initial trailer dict.  Acrobat complains but it accepts these files.
  371.        % To work with these files, we are copying any entries which we find in
  372.        % a previous trailer dict which are not present in the initial dict.
  373.        dup {
  374.          Trailer 2 index known {
  375.            pop pop              % discard if key already present
  376.          } {
  377.            Trailer 3 1 roll put % add key if not present
  378.          } ifelse
  379.        } forall
  380.      } loop
  381.    } ifelse
  382.    Trailer /Encrypt knownoget {
  383.      pop
  384.      pdf_process_Encrypt    % signal error
  385.    } if
  386.    currentdict end
  387.  } bind def
  388.  
  389. % Look for [\r\n]%%EO from the current position of the file.
  390. % Return the position of %%EO if found or -1 .
  391. /findeof {  % <file> find_eof <file> <position>
  392.   -1 exch
  393.   {
  394.     dup bytesavailable 4 lt { exit } if
  395.     dup 0 (%%EO) /SubFileDecode filter flushfile
  396.     dup dup fileposition 5 sub setfileposition
  397.     dup 5 string readstring not { pop exit } if
  398.     dup (\r%%EO) eq exch (\n%%EO) eq or {
  399.       dup fileposition 4 sub
  400.       3 1 roll exch pop
  401.     } if
  402.   } loop
  403.   exch
  404. } bind def
  405.  
  406. % Skip backward over the %%EOF at the end of the PDF file, and read
  407. % the preceding startxref line.  The PDF specification unambiguously
  408. % requires that the %%EOF appear on a line by itself, and that the
  409. % startxref and the following position value appear on separate lines;
  410. % however, some applications truncate the %%EOF to %%EO, and/or put the
  411. % startxref and the following value on the same line.
  412. % There seems to be no limit on the amount of garbage that can be
  413. % appended to the PDF file. Current record (60K) belongs to
  414. % PDF-Out (v 2.0 - 35). We start the search for %%EO from the last 1024
  415. % bytes and continue from the beginning of the file.
  416. /findxref {        % - findxref <xrefpos>
  417.   PDFfile dup dup dup 0 setfileposition bytesavailable
  418.   dup /PDFfilelen exch def
  419.     % Find the last %%EOF string (within 1024 bytes)
  420.   1024 sub PDFoffset .max
  421.   setfileposition findeof                  % search the last 1024 bytes
  422.   dup 0 le {
  423.     pop
  424.     dup PDFoffset setfileposition findeof  % search from the beginnibg
  425.     dup 0 le {
  426.        (ERROR: Cannot find a %%EOF marker anywhere in the file.\n)
  427.        pdfformaterror
  428.        /findxref cvx /syntaxerror signalerror
  429.     } if
  430.   } if
  431.   dup 3 1 roll setfileposition
  432.     % Stack: eofpos
  433.     % Check for whether this is, in fact, a valid PDF file.
  434.   dup PDFfilelen exch sub dup dup 7 gt exch 5 lt or {
  435.     pop true
  436.   } {
  437.     string PDFfile exch readstring pop
  438.     dup (%%EOF\n) eq exch dup (%%EOF\r) eq
  439.     exch dup (%%EOF\r\n) eq exch (%%EOF) eq or or or not
  440.   } ifelse {
  441.     (   **** Warning: File has a corrupted %%EOF marker, or garbage after %%EOF.\n)
  442.     pdfformaterror
  443.   } if
  444.   PDFfile exch setfileposition
  445.     % Now read the startxref and xref start position.
  446.   prevline token not { null } if dup type /integertype eq {
  447.     exch pop cvi        % xref start position
  448.     exch PDFfile exch setfileposition
  449.     prevline dup (startxref) linene {
  450.       % startxref not on a line by itself.  We have found PDF from
  451.       % www.verypdf.com in which the startxref was on the same line as
  452.       % the end of trailer dictionary.  Check for this.  Note:  This
  453.       % violates the spec.
  454.       dup (startxref) search {
  455.     % found startxref - print warning
  456.     pop pop pop             % clear strings from search
  457.         (   **** Warning: format of the startxref line in this file is invalid.\n)
  458.         pdfformaterror
  459.       } {                % no startxref - we have a problem.
  460.         /findxref cvx /syntaxerror signalerror
  461.       } ifelse
  462.     } if
  463.     pop pop
  464.   } {    % else, this file has 'startxref #####' format
  465.     (startxref) ne { /findxref cvx /syntaxerror signalerror } if
  466.     cvi        % xref start position
  467.     (   **** Warning: format of the startxref line in this file is invalid.\n)
  468.     pdfformaterror
  469.     exch PDFfile exch setfileposition
  470.   } ifelse
  471. } bind def
  472. /stderrfile (%stderr) (w) file def
  473. /stderrprint {                % <string> stderrprint -
  474.   //stderrfile dup 3 -1 roll writestring flushfile
  475. } bind def
  476. /pdfformaterror {    % <string> pdfformaterror -
  477.   stderrprint
  478.   /Repaired true store
  479. } bind def
  480.  
  481. /knownoget_safe
  482. { 2 copy knownoget { 3 1 roll pop pop //true } { pop pop //false } ifelse
  483. } odef
  484.  
  485. /printProducer {
  486.   Trailer /Info { knownoget_safe } stopped { pop pop false } if {
  487.     /Producer knownoget not { null } if
  488.   } {
  489.     null
  490.   } ifelse
  491.   dup null eq {
  492.     pop
  493.   } {
  494.     (   **** The file was produced by: \n   **** >>>> ) stderrprint
  495.     % Handle a Unicode Producer.
  496.     (\376\377) anchorsearch {
  497.       pop dup length 2 idiv string 0 1 2 index length 1 sub {
  498.         % Stack: origstr newstr i
  499.     1 index exch 3 index 1 index 2 mul 1 add get put
  500.       } for exch pop
  501.     } if
  502.     stderrprint
  503.     ( <<<<\n) stderrprint
  504.   } ifelse
  505. } bind def
  506. /printrepaired {
  507.    (\n   **** This file had errors that were repaired or ignored.\n)
  508.   stderrprint
  509.   printProducer
  510.   (   **** Please notify the author of the software that produced this\n)
  511.   stderrprint
  512.   (   **** file that it does not conform to Adobe's published PDF\n)
  513.   stderrprint
  514.   (   **** specification.\n\n)
  515.   stderrprint
  516. } bind def
  517.  
  518. % Write the outline structure for a file.  Uses linkdest (below).
  519. /writeoutline        % <outlinedict> writeoutline -
  520.  { mark
  521.    0 2 index /First knownoget
  522.     { { exch 1 add exch /Next knownoget not { exit } if } loop }
  523.    if
  524.         % stack: dict mark count
  525.    dup 0 eq
  526.     { pop 1 index
  527.     }
  528.     { 2 index /Count knownoget { 0 lt { neg } if } if
  529.       /Count exch 3 index
  530.     }
  531.    ifelse linkdest /Title oget /Title exch /OUT pdfmark
  532.    /First knownoget
  533.     { { dup writeoutline /Next knownoget not { exit } if } loop }
  534.    if
  535.  } bind def
  536.  
  537. % Close a PDF file.
  538. /pdfclose        % <dict> pdfclose -
  539.  { begin
  540.    PDFfile closefile
  541.    end
  542.  } bind def
  543.  
  544. % ======================== Page accessing ======================== %
  545.  
  546. % Get a (possibly inherited) attribute of a page.
  547. /pget            % <pagedict> <key> pget <value> -true-
  548.             % <pagedict> <key> pget -false-
  549.  { 2 copy knownoget
  550.     { exch pop exch pop true
  551.     }
  552.     { exch /Parent knownoget
  553.        { exch pget }
  554.        { pop false }
  555.       ifelse
  556.     }
  557.    ifelse
  558.  } bind def
  559.  
  560. % Get the value of a resource on a given page.
  561. /rget {            % <resname> <pagedict> <restype> rget <value> -true-
  562.             % <resname> <pagedict> <restype> rget -false-
  563.   LocalResources 1 index knownoget {
  564.      3 index knownoget
  565.   } {
  566.     false
  567.   } ifelse {
  568.     exch pop exch pop exch pop true
  569.   } {
  570.     exch /Resources pget {
  571.       exch knownoget { exch knownoget } { pop false } ifelse
  572.     } {
  573.       pop pop false
  574.     } ifelse
  575.   } ifelse
  576. } bind def
  577.  
  578. % Get the total number of pages in the document.
  579. /pdfpagecount        % - pdfpagecount <int>
  580.  { Trailer /Root oget /Pages oget /Count oget
  581.  } bind def
  582.  
  583. % Find the N'th page of the document by iterating through the Pages tree.
  584. % The first page is numbered 1.
  585. /pdffindpageref {        % <int> pdffindpage <objref>
  586.   dup Trailer /Root oget /Pages get
  587.     {        % We should be able to tell when we reach a leaf
  588.         % by finding a Type unequal to /Pages.  Unfortunately,
  589.         % some files distributed by Adobe lack the Type key
  590.         % in some of the Pages nodes!  Instead, we check for Kids.
  591.       dup oforce /Kids knownoget not { exit } if
  592.       exch pop null
  593.       0 1 3 index length 1 sub {
  594.          2 index exch get
  595.      dup oforce dup /Kids known { /Count oget } { pop 1 } ifelse
  596.         % Stack: index kids null noderef count
  597.      dup 5 index ge { pop exch pop exit } if
  598.      5 -1 roll exch sub 4 1 roll pop
  599.       } for exch pop
  600.         % Stack: index null|noderef
  601.       dup null eq { pop pop 1 null exit } if
  602.     } loop
  603.         % Stack: index countleft noderef
  604.    1 index 1 ne { pop pop /pdffindpage cvx /rangecheck signalerror } if
  605.    exch pop
  606.    PageIndex 2 index 1 sub 65533 .min 2 index oforce put
  607.    PageNumbers 1 index oforce 3 index dup 65534 le
  608.     { put }
  609.     { pop pop pop }    % don't store more than 65534 pagenumbers
  610.    ifelse
  611.    exch pop
  612. } bind def
  613. /pdffindpage {        % <int> pdffindpage <pagedict>
  614.   pdffindpageref oforce
  615. } bind def
  616.  
  617. % Find the N'th page of the document.
  618. % The first page is numbered 1.
  619. /pdfgetpage        % <int> pdfgetpage <pagedict>
  620.  { PageIndex 1 index 1 sub dup 65533 lt
  621.     { get }
  622.     { pop pop null }
  623.    ifelse
  624.    dup null ne
  625.     { exch pop oforce }
  626.     { pop pdffindpage }
  627.    ifelse
  628.  } bind def
  629.  
  630. % Find the page number of a page object (inverse of pdfgetpage).
  631. /pdfpagenumber        % <pagedict> pdfpagenumber <int>
  632.  {    % We use the simplest and stupidest of all possible algorithms....
  633.    PageNumbers 1 index .knownget
  634.     { exch pop
  635.     }
  636.     { 1 1 PageCount 1 add    % will give a rangecheck if not found
  637.        { dup pdfgetpage oforce 2 index eq { exit } if pop
  638.        }
  639.       for exch pop
  640.     }
  641.    ifelse
  642.  } bind def
  643.  
  644. % Display a given page.
  645. /boxrect        % <llx> <lly> <urx> <ury> boxrect <x> <y> <w> <h>
  646.  { exch 3 index sub exch 2 index sub
  647.  } bind def
  648. /resolvedest {        % <name|string|other> resolvedest <other|null>
  649.   dup type /nametype eq {
  650.     Trailer /Root oget /Dests knownoget {
  651.       exch knownoget not { null } if
  652.     } {
  653.       pop null
  654.     } ifelse
  655.   } {
  656.     dup type /stringtype eq {
  657.       Trailer /Root oget /Names knownoget {
  658.     /Dests knownoget {
  659.       exch nameoget
  660.     } {
  661.       pop null
  662.     } ifelse
  663.       } {
  664.     pop null
  665.       } ifelse
  666.     } if
  667.   } ifelse
  668. } bind def
  669. /linkdest {        % <link|outline> linkdest
  670.             %   ([/Page <n>] /View <view> | ) <link|outline>
  671.   dup /Dest knownoget
  672.     { resolvedest
  673.       dup type /dicttype eq { /D knownoget not { null } if } if
  674.       dup null eq
  675.        { pop }
  676.        { dup 0 oget
  677.          dup type /dicttype eq {
  678.            dup /Type knownoget {
  679.              /Page eq {
  680.                pdfpagenumber
  681.              } if
  682.            } if
  683.          } if
  684.          dup type /integertype ne 
  685.            { pop }
  686.            { /Page exch 4 -2 roll }
  687.          ifelse
  688.      dup length 1 sub 1 exch getinterval /View exch 3 -1 roll
  689.        }
  690.       ifelse
  691.     }
  692.    if
  693. } bind def
  694. % <pagedict> mark ... -proc- -
  695. /namedactions 8 dict dup begin
  696.   /FirstPage {
  697.     /Page 1 3 -1 roll
  698.   } def
  699.   /LastPage {
  700.     counttomark 2 add index pdfpagecount /Page exch 3 -1 roll
  701.   } def
  702.   /NextPage {
  703.     counttomark 2 add index pdfpagenumber 1 add /Page exch 3 -1 roll
  704.   } def
  705.   /PrevPage {
  706.     counttomark 2 add index pdfpagenumber 1 sub /Page exch 3 -1 roll
  707.   } def
  708. end readonly def
  709. % <pagedict> <annotdict> -proc- -
  710. /annottypes 5 dict dup begin
  711.   /Text {
  712.     mark exch
  713.      { /Rect /Open /Contents }
  714.      { 2 copy knownoget { 3 -1 roll } { pop } ifelse }
  715.     forall pop /ANN pdfmark
  716.   } bind def
  717.   /Link {
  718.     mark exch
  719.     dup /C knownoget { /Color exch 3 -1 roll } if
  720.      { /Rect /Border }
  721.      { 2 copy knownoget { 3 -1 roll } { pop } ifelse }
  722.     forall dup /A knownoget {
  723.       dup /URI known {
  724.         /A mark 3 2 roll    % <<>> /A [ <<action>>
  725.         { oforce } forall
  726.         .dicttomark
  727.         3 2 roll
  728.       } {
  729.         dup /D knownoget {
  730.       exch pop exch dup length dict copy dup /Dest 4 -1 roll put
  731.         } {
  732.       /N knownoget {        % Assume /S /Named
  733.          namedactions exch .knownget { exec } if
  734.       } if
  735.         } ifelse
  736.       } ifelse
  737.     } if
  738.     linkdest pop /LNK pdfmark
  739.   } bind def
  740. end readonly def
  741.  
  742. % **** The following procedure should not be changed to allow clients
  743. % **** to directly interface with the constituent procedures. GSview
  744. % **** and some Artifex customers rely on the pdfshowpage_init,
  745. % **** pdfshowpage_setpage, pdfshowpage_finish so all logic should be
  746. % **** implemented in one of those three procedures.
  747. /pdfshowpage        % <pagedict> pdfshowpage -
  748.  { dup /Page exch store
  749.    pdfshowpage_init 
  750.    pdfshowpage_setpage 
  751.    pdfshowpage_finish
  752.  } bind def
  753.  
  754. /pdfpagecontents    % <pagedict> pdfpagecontents <contents>
  755.  { } bind def
  756.  
  757. /pdfshowpage_init     % <pagedict> pdfshowpage_init <pagedict>
  758.  { /DSCPageCount DSCPageCount 1 add store
  759.  } bind def
  760.  
  761. /.pdfshowpage_Install {    % <pagedict> [<prevproc>] .pdfshowpage_Install -
  762.   exch
  763.     % We would like to clip to the CropBox here, but the subsequent
  764.     % initgraphics would override it.  Instead, we have to handle it
  765.     % in graphicsbeginpage.
  766.   dup /CropBox pget dup {exch pop} if systemdict /UseCropBox known and {
  767.     dup /CropBox pget pop
  768.   } {
  769.     dup /MediaBox pget pop    % There has to be a MediaBox
  770.   } ifelse
  771.   % stack: [<prevproc>] <pagedict> <Crop|Media Box>
  772.   exch pop oforce_array            % done with the pagedict
  773.   systemdict /PDFFitPage known {
  774.     PDFDEBUG { (Fiting PDF to imageable area of the page.) = flush } if
  775.     currentpagedevice /.HWMargins get aload pop
  776.     currentpagedevice /PageSize get aload pop
  777.     3 -1 roll sub 3 1 roll exch sub exch
  778.     % stack: [<prevproc>] <pagedict> <Crop|Media Box> Xmin Ymin Xmax Ymax
  779.     PDFDEBUG { (    Translate up by [ ) print 3 index =print (, ) print 2 index =print ( ]) = flush } if
  780.     3 index 3 index translate        % move origin up to imageable area
  781.     2 index sub exch 3 index sub exch 4 2 roll pop pop
  782.         % stack: [Box] XImageable YImageable
  783.     2 index aload pop 2 index sub exch 3 index sub exch 4 2 roll pop pop
  784.         % stack: [Box] XImageable YImageable XBox YBox
  785.     3 -1 roll exch div 3 1 roll div .min
  786.     PDFDEBUG { (    Scale by ) print dup = flush } if
  787.     dup scale
  788.   } if
  789.   % Now translate to the origin given in the Crop|Media Box
  790.   dup 0 get neg exch 1 get neg translate
  791.   0 get
  792.   exec
  793. } bind def
  794.  
  795. /pdfshowpage_setpage {    % <pagedict> pdfshowpage_setpage <pagedict>
  796.   5 dict begin        % for setpagedevice
  797.     % Stack: pagedict
  798.   % UseCIEColor is always true for PDF; see the comment in runpdf above
  799.   /UseCIEColor true def
  800.   currentpagedevice /Orientation 2 index /Rotate pget not { 0 } if 90 idiv
  801.     % Rotate specifies *clockwise* rotation!
  802.     neg 3 and def
  803.     % Stack: pagedict currentpagedict
  804.   1 index /CropBox pget dup {exch pop} if systemdict /UseCropBox known and {
  805.             % Set the page size.
  806.     1 index /CropBox pget pop oforce_elems
  807.     boxrect 2 array astore /PageSize exch def pop pop
  808.   } {
  809.     1 index /MediaBox pget {
  810.             % Set the page size.
  811.       oforce_elems boxrect 2 array astore /PageSize exch def pop pop
  812.     } if
  813.   } ifelse
  814.   % Don't change the page size if we are going to fit the PDF to the page
  815.   systemdict /PDFFitPage known { currentdict /PageSize undef } if
  816.   dup /Install .knownget {
  817.             % Don't let the Install procedure get more deeply
  818.             % nested after every page.
  819.       dup type dup /arraytype eq exch /packedarraytype eq or {
  820.     dup length 4 eq {
  821.       dup 2 get /.pdfshowpage_Install load eq {
  822.         1 get 0 get    % previous procedure
  823.       } if
  824.     } if
  825.       } if
  826.   } {
  827.     { }
  828.   } ifelse 1 array astore
  829.   2 index exch /.pdfshowpage_Install load /exec load
  830.   4 packedarray cvx
  831.     % Stack: pagedict currentpagedict installproc
  832.   /Install exch def
  833.     % Stack: pagedict currentpagedict
  834.   pop currentdict end setpagedevice
  835. } bind def
  836.  
  837. /pdfshowpage_finish {    % <pagedict> pdfshowpage_finish -
  838.    save /PDFSave exch store
  839.    /PDFdictstackcount countdictstack store
  840.    (before exec) VMDEBUG
  841.  
  842.    % set up color space substitution (this must be inside the page save)
  843.    pdfshowpage_setcspacesub
  844.  
  845.   .writepdfmarks {
  846.  
  847.     % Copy the crop box.
  848.     dup /CropBox knownoget {
  849.       oforce_array
  850.  
  851.         % .pdfshowpage_Install translates the origin -
  852.         % do same here with the CropBox.
  853.  
  854.       1 index /CropBox pget dup {exch pop} if systemdict /UseCropBox known and {
  855.         1 index /CropBox pget pop
  856.       } {
  857.         1 index /MediaBox pget pop    % There has to be a MediaBox
  858.       } ifelse
  859.       oforce_array
  860.       dup 0 get exch 1 get   % [] tx ty
  861.       2 index 0 get 2 index sub 3 index exch 0 exch put
  862.       2 index 2 get 2 index sub 3 index exch 2 exch put
  863.       2 index 1 get 1 index sub 3 index exch 1 exch put
  864.       2 index 3 get 1 index sub 3 index exch 3 exch put
  865.       pop pop
  866.  
  867.     % If the page has been rotated, rotate the CropBox.
  868.       mark /CropBox 3 -1 roll
  869.       3 index /Rotate pget {
  870.     90 idiv 1 and 0 ne {
  871.       aload pop 4 -2 roll exch 4 2 roll exch 4 array astore
  872.     } if
  873.       } if
  874.       /PAGE pdfmark
  875.     } if
  876.  
  877.     % Copy annotations and links.
  878.     dup /Annots knownoget {
  879.       0 1 2 index length 1 sub
  880.        { 1 index exch oget
  881.          dup /Subtype oget annottypes exch .knownget { exec } { pop } ifelse
  882.        }
  883.       for pop
  884.     } if
  885.  
  886.   } if        % end .writepdfmarks
  887.  
  888.     % Display the actual page contents.
  889.    6 dict begin
  890.    /BXlevel 0 def
  891.    /BGDefault currentblackgeneration def
  892.    /UCRDefault currentundercolorremoval def
  893.     %****** DOESN'T HANDLE COLOR TRANSFER YET ******
  894.    /TRDefault currenttransfer def
  895.   matrix currentmatrix 2 dict
  896.   2 index /CropBox knownoget {
  897.     oforce_elems boxrect 4 array astore 1 index /ClipRect 3 -1 roll put
  898.   } if
  899.   dictbeginpage setmatrix
  900.   /DefaultQstate qstate store
  901.  
  902.   dup          % for showing annotations below
  903.   count 1 sub /pdfemptycount exch store
  904.     % If the page uses any transparency features, show it within
  905.     % a transparency group.
  906.   dup pageusestransparency dup /PDFusingtransparency exch def {
  907.     % Show the page within a PDF 1.4 device filter.
  908.     0 .pushpdf14devicefilter {
  909.       % If the page has a Group, enclose contents in transparency group.
  910.       % (Adobe Tech Note 5407, sec 9.2)
  911.       dup /Group knownoget {
  912.     1 index /CropBox knownoget not {
  913.       1 index /MediaBox pget pop
  914.     } if oforce_array .beginformgroup {
  915.       showpagecontents
  916.     } .internalstopped {
  917.       .discardtransparencygroup stop
  918.     } if .endtransparencygroup
  919.       } {
  920.     showpagecontents
  921.       } ifelse
  922.     } .internalstopped {
  923.       % todo: discard
  924.       .popdevicefilter stop
  925.     } if .popdevicefilter
  926.   } {
  927.     showpagecontents
  928.   } ifelse
  929.   % check for extra garbage on the ostack and clean it up
  930.   count pdfemptycount sub dup 0 ne {
  931.     (   **** File did not complete the page properly and may be damaged.\n)
  932.     pdfformaterror
  933.     { pop } repeat
  934.   } {
  935.     pop
  936.   } ifelse
  937.   % todo: mixing drawing ops outside the device filter could cause
  938.   % problems, for example with the pnga device.
  939.   /Annots knownoget { { oforce drawannot } forall } if
  940.   endpage
  941.   end            % scratch dict
  942.   % Some PDF files don't have matching q/Q (gsave/grestore) so we need
  943.   % to clean up any left over dicts from the dictstack
  944.   countdictstack PDFdictstackcount sub dup 0 ne { 
  945.     (   **** Warning: File has imbalanced q/Q operators \(too many q's\)\n)
  946.     pdfformaterror
  947.     { end } repeat
  948.   } {
  949.     pop
  950.   } ifelse
  951.   (after exec) VMDEBUG
  952.   Repaired        % pass Repaired state around the restore
  953.   PDFSave restore
  954.   /Repaired exch def
  955. } bind def
  956. /showpagecontents {    % <pagedict> showpagecontents -
  957.   gsave        % preserve gstate for Annotations later
  958.   /Contents knownoget not { 0 array } if
  959.   dup type /arraytype ne { 1 array astore } if {
  960.     oforce false resolvestream pdfopdict .pdfrun
  961.   } forall
  962.   grestore
  963. } bind def
  964. /processcolorspace {    % - processcolorspace <colorspace>
  965.     % The following is per the PLRM3.
  966.   currentdevice 1 dict dup /ProcessColorModel dup put .getdeviceparams
  967.   exch pop exch pop
  968.   dup type /nametype ne { cvn } if
  969.   dup { setcolorspace } .internalstopped { pop /DeviceRGB } if
  970. } bind def
  971.  
  972. % ------ Transparency support ------ %
  973.  
  974. % Define minimum PDF version for checking for transparency features.
  975. % Transparency is a 1.4 feature however we have seen files that claimed
  976. % to be PDF 1.3 with transparency features.
  977. /PDFtransparencyversion 1.3 def
  978.  
  979. % Determine whether a page might invoke any transparency features:
  980. %    - Non-default BM, ca, CA, or SMask in an ExtGState
  981. %    - Image XObject with SMask
  982. % Note: we deliberately don't check to see whether a Group is defined,
  983. % because Adobe Illustrator 10 (and possibly other applications) define
  984. % a page-level group whether transparency is actually used or not.
  985. % Ignoring the presence of Group is justified because, in the absence
  986. % of any other transparency features, they have no effect.
  987. /pageusestransparency {        % <pagedict> pageusestransparency <bool>
  988.   PDFversion PDFtransparencyversion lt NOTRANSPARENCY or {
  989.     pop false
  990.   } {
  991.     false exch {
  992.       dup resourceusestransparency { pop not exit } if
  993.       /Parent knownoget not { exit } if
  994.     } loop
  995.   } ifelse
  996. } bind def
  997. % Check the Resources of a page or Form.
  998. /resourceusestransparency {    % <dict> resourceusestransparency <bool>
  999.   {    % Use loop to provide an exitable context.
  1000.     /Resources knownoget not { 0 dict } if
  1001.     dup /ExtGState knownoget {
  1002.       false exch {
  1003.     exch pop oforce
  1004.     dup /BM knownoget { dup /Normal ne exch /Compatible ne and
  1005.                         { pop not exit } if
  1006.                           } if
  1007.     dup /ca knownoget { 1 ne { pop not exit } if } if
  1008.     dup /CA knownoget { 1 ne { pop not exit } if } if
  1009.     dup /SMask knownoget { /None ne { pop not exit } if } if
  1010.     pop
  1011.       } forall { pop true exit } if
  1012.     } if
  1013.     dup /XObject knownoget {
  1014.       false exch {
  1015.     exch pop oforce dup /Subtype get
  1016.     dup /Image eq { 1 index /SMask known { pop pop not exit } if } if
  1017.     /Form eq {
  1018.       resourceusestransparency { not exit } if
  1019.     } {
  1020.       pop
  1021.     } ifelse
  1022.       } forall { pop true exit } if
  1023.     } if
  1024.     pop false exit
  1025.   } loop
  1026. } bind def
  1027.  
  1028. % ------ ColorSpace substitution support ------ %
  1029.  
  1030. %
  1031. %  <pagedict>   pdfshowpage_setcspacesub   <pagedict>
  1032. %
  1033. % Set up color space substitution for a page. Invocations of this procedure
  1034. % must be bracketed by the save/restore operation for the page, to avoid
  1035. % unintended effects on other pages.
  1036. %
  1037. % If any color space substitution is used, and the current color space is a
  1038. % device dependent color space, make sure the current color space is updated.
  1039. % There is an optimization in the setcolorspace pseudo-operator that does
  1040. % nothing if both the current and operand color spaces are the same. For
  1041. % PostScript this optimization is disabled if the UseCIEColor page device
  1042. % parameter is true. This is not the case for PDF, as performance suffers
  1043. % significantly on some PDF files if color spaces are set repeatedly. Hence,
  1044. % if color space substitution is to be used, and the current color space
  1045. % is a device dependent color space, we must make sure to "transition" the
  1046. % current color space.
  1047. %
  1048. /pdfshowpage_setcspacesub
  1049.   {
  1050.     false
  1051.       { /DefaultGray /DefaultRGB /DefaultCMYK }
  1052.       {
  1053.         dup 3 index /ColorSpace //rget exec
  1054.           { resolvecolorspace /ColorSpace defineresource pop }
  1055.           { pop }
  1056.         ifelse
  1057.       }
  1058.     forall
  1059.  
  1060.     % if using color space substitution, "transition" the current color space
  1061.       {
  1062.         currentcolorspace dup length 1 eq   % always an array
  1063.           {
  1064.             0 get
  1065.             dup /DeviceGray eq 1 index /DeviceRGB eq or 1 index /DeviceCMYK or
  1066.               { /Pattern setcolorspace setcolorspace }
  1067.               { pop }
  1068.             ifelse
  1069.           }
  1070.           { pop }
  1071.         if
  1072.       }
  1073.     if
  1074.   }
  1075. bind def
  1076.  
  1077.  
  1078.  
  1079. end            % pdfdict
  1080. .setglobal
  1081.