home *** CD-ROM | disk | FTP | other *** search
/ jppd.dyndns.org / jppd.dyndns.org.tar / jppd.dyndns.org / QUERYPRO / Impressora_PDF / converter.exe / GPLGS / pdf_main.ps < prev    next >
Text File  |  2004-09-01  |  35KB  |  1,064 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.5 2004/08/31 18:18:51 ray 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. % Skip backward over the %%EOF at the end of the PDF file, and read
  390. % the preceding startxref line.  The PDF specification unambiguously
  391. % requires that the %%EOF appear on a line by itself, and that the
  392. % startxref and the following position value appear on separate lines;
  393. % however, some applications (including, apparently, Acrobat Distiller
  394. % on the Macintosh) may add up to 2K of garbage after the %%EOF, and some
  395. % other applications also truncate the %%EOF to %%EO, and/or put the
  396. % startxref and the following value on the same line.
  397. % A file reported from Distiller 3.02b for AIX 4.1.1 has 2076 bytes
  398. % of garbage. The tolerance is increased to 4K to cover future
  399. % applications and bigger allocation units.
  400. /findxref {        % - findxref <xrefpos>
  401.   PDFfile dup dup 0 setfileposition bytesavailable
  402.   dup /PDFfilelen exch def
  403.     % Find the last %%EOF string (within 4096 bytes)
  404.   4096 sub PDFoffset .max
  405.   2 copy setfileposition
  406.   PDFfilelen exch sub string 1 index exch readstring pop {
  407.     (\015%%EO) search {        % Adobe can handle truncated key string
  408.       pop pop            % if found, keep searching 'post' string
  409.     } {
  410.       (\012%%EO) search
  411.     { pop pop } { exit } ifelse    % exit if neither string found
  412.     } ifelse
  413.   } loop
  414.   PDFfilelen exch length sub 4 sub PDFoffset .max exch 1 index setfileposition
  415.     % Stack: eofpos
  416.     % Check for whether this is, in fact, a valid PDF file.
  417.   dup PDFfilelen exch sub dup dup 7 gt exch 5 lt or {
  418.     pop true
  419.   } {
  420.     string PDFfile exch readstring pop
  421.     dup (%%EOF\n) eq exch dup (%%EOF\r) eq
  422.     exch dup (%%EOF\r\n) eq exch (%%EOF) eq or or or not
  423.   } ifelse {
  424.     (   **** Warning: File has a corrupted %%EOF marker, or garbage after %%EOF.\n)
  425.     pdfformaterror
  426.   } if
  427.   PDFfile exch setfileposition
  428.     % Now read the startxref and xref start position.
  429.   prevline token not { null } if dup type /integertype eq {
  430.     exch pop cvi        % xref start position
  431.     exch PDFfile exch setfileposition
  432.     prevline dup (startxref) linene {
  433.       % startxref not on a line by itself.  We have found PDF from
  434.       % www.verypdf.com in which the startxref was on the same line as
  435.       % the end of trailer dictionary.  Check for this.  Note:  This
  436.       % violates the spec.
  437.       dup (startxref) search {
  438.     % found startxref - print warning
  439.     pop pop pop             % clear strings from search
  440.         (   **** Warning: format of the startxref line in this file is invalid.\n)
  441.         pdfformaterror
  442.       } {                % no startxref - we have a problem.
  443.         /findxref cvx /syntaxerror signalerror
  444.       } ifelse
  445.     } if
  446.     pop pop
  447.   } {    % else, this file has 'startxref #####' format
  448.     (startxref) ne { /findxref cvx /syntaxerror signalerror } if
  449.     cvi        % xref start position
  450.     (   **** Warning: format of the startxref line in this file is invalid.\n)
  451.     pdfformaterror
  452.     exch PDFfile exch setfileposition
  453.   } ifelse
  454. } bind def
  455. /stderrfile (%stderr) (w) file def
  456. /stderrprint {                % <string> stderrprint -
  457.   //stderrfile dup 3 -1 roll writestring flushfile
  458. } bind def
  459. /pdfformaterror {    % <string> pdfformaterror -
  460.   stderrprint
  461.   /Repaired true store
  462. } bind def
  463.  
  464. /knownoget_safe
  465. { knownoget
  466. } odef
  467.  
  468. /printProducer {
  469.   Trailer /Info { knownoget_safe } stopped { false } if {
  470.     /Producer knownoget not { null } if
  471.   } {
  472.     null
  473.   } ifelse
  474.   dup null eq {
  475.     pop
  476.   } {
  477.     (   **** The file was produced by: \n   **** >>>> ) stderrprint
  478.     % Handle a Unicode Producer.
  479.     (\376\377) anchorsearch {
  480.       pop dup length 2 idiv string 0 1 2 index length 1 sub {
  481.         % Stack: origstr newstr i
  482.     1 index exch 3 index 1 index 2 mul 1 add get put
  483.       } for exch pop
  484.     } if
  485.     stderrprint
  486.     ( <<<<\n) stderrprint
  487.   } ifelse
  488. } bind def
  489. /printrepaired {
  490.    (\n   **** This file had errors that were repaired or ignored.\n)
  491.   stderrprint
  492.   printProducer
  493.   (   **** Please notify the author of the software that produced this\n)
  494.   stderrprint
  495.   (   **** file that it does not conform to Adobe's published PDF\n)
  496.   stderrprint
  497.   (   **** specification.\n\n)
  498.   stderrprint
  499. } bind def
  500.  
  501. % Write the outline structure for a file.  Uses linkdest (below).
  502. /writeoutline        % <outlinedict> writeoutline -
  503.  { mark
  504.    0 2 index /First knownoget
  505.     { { exch 1 add exch /Next knownoget not { exit } if } loop }
  506.    if
  507.         % stack: dict mark count
  508.    dup 0 eq
  509.     { pop 1 index
  510.     }
  511.     { 2 index /Count knownoget { 0 lt { neg } if } if
  512.       /Count exch 3 index
  513.     }
  514.    ifelse linkdest /Title oget /Title exch /OUT pdfmark
  515.    /First knownoget
  516.     { { dup writeoutline /Next knownoget not { exit } if } loop }
  517.    if
  518.  } bind def
  519.  
  520. % Close a PDF file.
  521. /pdfclose        % <dict> pdfclose -
  522.  { begin
  523.    PDFfile closefile
  524.    end
  525.  } bind def
  526.  
  527. % ======================== Page accessing ======================== %
  528.  
  529. % Get a (possibly inherited) attribute of a page.
  530. /pget            % <pagedict> <key> pget <value> -true-
  531.             % <pagedict> <key> pget -false-
  532.  { 2 copy knownoget
  533.     { exch pop exch pop true
  534.     }
  535.     { exch /Parent knownoget
  536.        { exch pget }
  537.        { pop false }
  538.       ifelse
  539.     }
  540.    ifelse
  541.  } bind def
  542.  
  543. % Get the value of a resource on a given page.
  544. /rget {            % <resname> <pagedict> <restype> rget <value> -true-
  545.             % <resname> <pagedict> <restype> rget -false-
  546.   LocalResources 1 index knownoget {
  547.      3 index knownoget
  548.   } {
  549.     false
  550.   } ifelse {
  551.     exch pop exch pop exch pop true
  552.   } {
  553.     exch /Resources pget {
  554.       exch knownoget { exch knownoget } { pop false } ifelse
  555.     } {
  556.       pop pop false
  557.     } ifelse
  558.   } ifelse
  559. } bind def
  560.  
  561. % Get the total number of pages in the document.
  562. /pdfpagecount        % - pdfpagecount <int>
  563.  { Trailer /Root oget /Pages oget /Count oget
  564.  } bind def
  565.  
  566. % Find the N'th page of the document by iterating through the Pages tree.
  567. % The first page is numbered 1.
  568. /pdffindpageref {        % <int> pdffindpage <objref>
  569.   dup Trailer /Root oget /Pages get
  570.     {        % We should be able to tell when we reach a leaf
  571.         % by finding a Type unequal to /Pages.  Unfortunately,
  572.         % some files distributed by Adobe lack the Type key
  573.         % in some of the Pages nodes!  Instead, we check for Kids.
  574.       dup oforce /Kids knownoget not { exit } if
  575.       exch pop null
  576.       0 1 3 index length 1 sub {
  577.          2 index exch get
  578.      dup oforce dup /Kids known { /Count oget } { pop 1 } ifelse
  579.         % Stack: index kids null noderef count
  580.      dup 5 index ge { pop exch pop exit } if
  581.      5 -1 roll exch sub 4 1 roll pop
  582.       } for exch pop
  583.         % Stack: index null|noderef
  584.       dup null eq { pop pop 1 null exit } if
  585.     } loop
  586.         % Stack: index countleft noderef
  587.    1 index 1 ne { pop pop /pdffindpage cvx /rangecheck signalerror } if
  588.    exch pop
  589.    PageIndex 2 index 1 sub 65533 .min 2 index oforce put
  590.    PageNumbers 1 index oforce 3 index dup 65534 le
  591.     { put }
  592.     { pop pop pop }    % don't store more than 65534 pagenumbers
  593.    ifelse
  594.    exch pop
  595. } bind def
  596. /pdffindpage {        % <int> pdffindpage <pagedict>
  597.   pdffindpageref oforce
  598. } bind def
  599.  
  600. % Find the N'th page of the document.
  601. % The first page is numbered 1.
  602. /pdfgetpage        % <int> pdfgetpage <pagedict>
  603.  { PageIndex 1 index 1 sub dup 65533 lt
  604.     { get }
  605.     { pop pop null }
  606.    ifelse
  607.    dup null ne
  608.     { exch pop oforce }
  609.     { pop pdffindpage }
  610.    ifelse
  611.  } bind def
  612.  
  613. % Find the page number of a page object (inverse of pdfgetpage).
  614. /pdfpagenumber        % <pagedict> pdfpagenumber <int>
  615.  {    % We use the simplest and stupidest of all possible algorithms....
  616.    PageNumbers 1 index .knownget
  617.     { exch pop
  618.     }
  619.     { 1 1 PageCount 1 add    % will give a rangecheck if not found
  620.        { dup pdfgetpage oforce 2 index eq { exit } if pop
  621.        }
  622.       for exch pop
  623.     }
  624.    ifelse
  625.  } bind def
  626.  
  627. % Display a given page.
  628. /boxrect        % <llx> <lly> <urx> <ury> boxrect <x> <y> <w> <h>
  629.  { exch 3 index sub exch 2 index sub
  630.  } bind def
  631. /resolvedest {        % <name|string|other> resolvedest <other|null>
  632.   dup type /nametype eq {
  633.     Trailer /Root oget /Dests knownoget {
  634.       exch knownoget not { null } if
  635.     } {
  636.       pop null
  637.     } ifelse
  638.   } {
  639.     dup type /stringtype eq {
  640.       Trailer /Root oget /Names knownoget {
  641.     /Dests knownoget {
  642.       exch nameoget
  643.     } {
  644.       pop null
  645.     } ifelse
  646.       } {
  647.     pop null
  648.       } ifelse
  649.     } if
  650.   } ifelse
  651. } bind def
  652. /linkdest {        % <link|outline> linkdest
  653.             %   ([/Page <n>] /View <view> | ) <link|outline>
  654.   dup /Dest knownoget
  655.     { resolvedest
  656.       dup type /dicttype eq { /D knownoget not { null } if } if
  657.       dup null eq
  658.        { pop }
  659.        { dup 0 oget
  660.          dup type /dicttype eq {
  661.            dup /Type knownoget {
  662.              /Page eq {
  663.                pdfpagenumber
  664.              } if
  665.            } if
  666.          } if
  667.          dup type /integertype ne 
  668.            { pop }
  669.            { /Page exch 4 -2 roll }
  670.          ifelse
  671.      dup length 1 sub 1 exch getinterval /View exch 3 -1 roll
  672.        }
  673.       ifelse
  674.     }
  675.    if
  676. } bind def
  677. % <pagedict> mark ... -proc- -
  678. /namedactions 8 dict dup begin
  679.   /FirstPage {
  680.     /Page 1 3 -1 roll
  681.   } def
  682.   /LastPage {
  683.     counttomark 2 add index pdfpagecount /Page exch 3 -1 roll
  684.   } def
  685.   /NextPage {
  686.     counttomark 2 add index pdfpagenumber 1 add /Page exch 3 -1 roll
  687.   } def
  688.   /PrevPage {
  689.     counttomark 2 add index pdfpagenumber 1 sub /Page exch 3 -1 roll
  690.   } def
  691. end readonly def
  692. % <pagedict> <annotdict> -proc- -
  693. /annottypes 5 dict dup begin
  694.   /Text {
  695.     mark exch
  696.      { /Rect /Open /Contents }
  697.      { 2 copy knownoget { 3 -1 roll } { pop } ifelse }
  698.     forall pop /ANN pdfmark
  699.   } bind def
  700.   /Link {
  701.     mark exch
  702.     dup /C knownoget { /Color exch 3 -1 roll } if
  703.      { /Rect /Border }
  704.      { 2 copy knownoget { 3 -1 roll } { pop } ifelse }
  705.     forall dup /A knownoget {
  706.       dup /URI known {
  707.         /A mark 3 2 roll    % <<>> /A [ <<action>>
  708.         { oforce } forall
  709.         .dicttomark
  710.         3 2 roll
  711.       } {
  712.         dup /D knownoget {
  713.       exch pop exch dup length dict copy dup /Dest 4 -1 roll put
  714.         } {
  715.       /N knownoget {        % Assume /S /Named
  716.          namedactions exch .knownget { exec } if
  717.       } if
  718.         } ifelse
  719.       } ifelse
  720.     } if
  721.     linkdest pop /LNK pdfmark
  722.   } bind def
  723. end readonly def
  724.  
  725. % **** The following procedure should not be changed to allow clients
  726. % **** to directly interface with the constituent procedures. GSview
  727. % **** and some Artifex customers rely on the pdfshowpage_init,
  728. % **** pdfshowpage_setpage, pdfshowpage_finish so all logic should be
  729. % **** implemented in one of those three procedures.
  730. /pdfshowpage        % <pagedict> pdfshowpage -
  731.  { dup /Page exch store
  732.    pdfshowpage_init 
  733.    pdfshowpage_setpage 
  734.    pdfshowpage_finish
  735.  } bind def
  736.  
  737. /pdfpagecontents    % <pagedict> pdfpagecontents <contents>
  738.  { } bind def
  739.  
  740. /pdfshowpage_init     % <pagedict> pdfshowpage_init <pagedict>
  741.  { /DSCPageCount DSCPageCount 1 add store
  742.  } bind def
  743.  
  744. /.pdfshowpage_Install {    % <pagedict> [<prevproc>] .pdfshowpage_Install -
  745.   exch
  746.     % We would like to clip to the CropBox here, but the subsequent
  747.     % initgraphics would override it.  Instead, we have to handle it
  748.     % in graphicsbeginpage.
  749.   dup /CropBox pget dup {exch pop} if systemdict /UseCropBox known and {
  750.     dup /CropBox pget pop
  751.   } {
  752.     dup /MediaBox pget pop    % There has to be a MediaBox
  753.   } ifelse
  754.   % stack: [<prevproc>] <pagedict> <Crop|Media Box>
  755.   exch pop oforce_array            % done with the pagedict
  756.   systemdict /PDFFitPage known {
  757.     PDFDEBUG { (Fiting PDF to imageable area of the page.) = flush } if
  758.     currentpagedevice /.HWMargins get aload pop
  759.     currentpagedevice /PageSize get aload pop
  760.     3 -1 roll sub 3 1 roll exch sub exch
  761.     % stack: [<prevproc>] <pagedict> <Crop|Media Box> Xmin Ymin Xmax Ymax
  762.     PDFDEBUG { (    Translate up by [ ) print 3 index =print (, ) print 2 index =print ( ]) = flush } if
  763.     3 index 3 index translate        % move origin up to imageable area
  764.     2 index sub exch 3 index sub exch 4 2 roll pop pop
  765.         % stack: [Box] XImageable YImageable
  766.     2 index aload pop 2 index sub exch 3 index sub exch 4 2 roll pop pop
  767.         % stack: [Box] XImageable YImageable XBox YBox
  768.     3 -1 roll exch div 3 1 roll div .min
  769.     PDFDEBUG { (    Scale by ) print dup = flush } if
  770.     dup scale
  771.   } if
  772.   % Now translate to the origin given in the Crop|Media Box
  773.   dup 0 get neg exch 1 get neg translate
  774.   0 get
  775.   exec
  776. } bind def
  777.  
  778. /pdfshowpage_setpage {    % <pagedict> pdfshowpage_setpage <pagedict>
  779.   5 dict begin        % for setpagedevice
  780.     % Stack: pagedict
  781.   % UseCIEColor is always true for PDF; see the comment in runpdf above
  782.   /UseCIEColor true def
  783.   currentpagedevice /Orientation 2 index /Rotate pget not { 0 } if 90 idiv
  784.     % Rotate specifies *clockwise* rotation!
  785.     neg 3 and def
  786.     % Stack: pagedict currentpagedict
  787.   1 index /CropBox pget dup {exch pop} if systemdict /UseCropBox known and {
  788.             % Set the page size.
  789.     1 index /CropBox pget pop oforce_elems
  790.     boxrect 2 array astore /PageSize exch def pop pop
  791.   } {
  792.     1 index /MediaBox pget {
  793.             % Set the page size.
  794.       oforce_elems boxrect 2 array astore /PageSize exch def pop pop
  795.     } if
  796.   } ifelse
  797.   % Don't change the page size if we are going to fit the PDF to the page
  798.   systemdict /PDFFitPage known { currentdict /PageSize undef } if
  799.   dup /Install .knownget {
  800.             % Don't let the Install procedure get more deeply
  801.             % nested after every page.
  802.       dup type dup /arraytype eq exch /packedarraytype eq or {
  803.     dup length 4 eq {
  804.       dup 2 get /.pdfshowpage_Install load eq {
  805.         1 get 0 get    % previous procedure
  806.       } if
  807.     } if
  808.       } if
  809.   } {
  810.     { }
  811.   } ifelse 1 array astore
  812.   2 index exch /.pdfshowpage_Install load /exec load
  813.   4 packedarray cvx
  814.     % Stack: pagedict currentpagedict installproc
  815.   /Install exch def
  816.     % Stack: pagedict currentpagedict
  817.   pop currentdict end setpagedevice
  818. } bind def
  819.  
  820. /pdfshowpage_finish {    % <pagedict> pdfshowpage_finish -
  821.    save /PDFSave exch store
  822.    /PDFdictstackcount countdictstack store
  823.    (before exec) VMDEBUG
  824.  
  825.    % set up color space substitution (this must be inside the page save)
  826.    pdfshowpage_setcspacesub
  827.  
  828.   .writepdfmarks {
  829.  
  830.     % Copy the crop box.
  831.     dup /CropBox knownoget {
  832.       oforce_array
  833.  
  834.         % .pdfshowpage_Install translates the origin -
  835.         % do same here with the CropBox.
  836.  
  837.       1 index /CropBox pget dup {exch pop} if systemdict /UseCropBox known and {
  838.         1 index /CropBox pget pop
  839.       } {
  840.         1 index /MediaBox pget pop    % There has to be a MediaBox
  841.       } ifelse
  842.       oforce_array
  843.       dup 0 get exch 1 get   % [] tx ty
  844.       2 index 0 get 2 index sub 3 index exch 0 exch put
  845.       2 index 2 get 2 index sub 3 index exch 2 exch put
  846.       2 index 1 get 1 index sub 3 index exch 1 exch put
  847.       2 index 3 get 1 index sub 3 index exch 3 exch put
  848.       pop pop
  849.  
  850.     % If the page has been rotated, rotate the CropBox.
  851.       mark /CropBox 3 -1 roll
  852.       3 index /Rotate pget {
  853.     90 idiv 1 and 0 ne {
  854.       aload pop 4 -2 roll exch 4 2 roll exch 4 array astore
  855.     } if
  856.       } if
  857.       /PAGE pdfmark
  858.     } if
  859.  
  860.     % Copy annotations and links.
  861.     dup /Annots knownoget {
  862.       0 1 2 index length 1 sub
  863.        { 1 index exch oget
  864.          dup /Subtype oget annottypes exch .knownget { exec } { pop } ifelse
  865.        }
  866.       for pop
  867.     } if
  868.  
  869.   } if        % end .writepdfmarks
  870.  
  871.     % Display the actual page contents.
  872.    6 dict begin
  873.    /BXlevel 0 def
  874.    /BGDefault currentblackgeneration def
  875.    /UCRDefault currentundercolorremoval def
  876.     %****** DOESN'T HANDLE COLOR TRANSFER YET ******
  877.    /TRDefault currenttransfer def
  878.   matrix currentmatrix 2 dict
  879.   2 index /CropBox knownoget {
  880.     oforce_elems boxrect 4 array astore 1 index /ClipRect 3 -1 roll put
  881.   } if
  882.   dictbeginpage setmatrix
  883.   /DefaultQstate qstate store
  884.  
  885.   dup          % for showing annotations below
  886.   count 1 sub /pdfemptycount exch store
  887.     % If the page uses any transparency features, show it within
  888.     % a transparency group.
  889.   dup pageusestransparency dup /PDFusingtransparency exch def {
  890.     % Show the page within a PDF 1.4 device filter.
  891.     0 .pushpdf14devicefilter {
  892.       % If the page has a Group, enclose contents in transparency group.
  893.       % (Adobe Tech Note 5407, sec 9.2)
  894.       dup /Group knownoget {
  895.     1 index /CropBox knownoget not {
  896.       1 index /MediaBox pget pop
  897.     } if oforce_array .beginformgroup {
  898.       showpagecontents
  899.     } .internalstopped {
  900.       .discardtransparencygroup stop
  901.     } if .endtransparencygroup
  902.       } {
  903.     showpagecontents
  904.       } ifelse
  905.     } .internalstopped {
  906.       % todo: discard
  907.       .popdevicefilter stop
  908.     } if .popdevicefilter
  909.   } {
  910.     showpagecontents
  911.   } ifelse
  912.   % check for extra garbage on the ostack and clean it up
  913.   count pdfemptycount sub dup 0 ne {
  914.     (   **** File did not complete the page properly and may be damaged.\n)
  915.     pdfformaterror
  916.     { pop } repeat
  917.   } {
  918.     pop
  919.   } ifelse
  920.   % todo: mixing drawing ops outside the device filter could cause
  921.   % problems, for example with the pnga device.
  922.   /Annots knownoget { { oforce drawannot } forall } if
  923.   endpage
  924.   end            % scratch dict
  925.   % Some PDF files don't have matching q/Q (gsave/grestore) so we need
  926.   % to clean up any left over dicts from the dictstack
  927.   countdictstack PDFdictstackcount sub dup 0 ne { 
  928.     (   **** Warning: File has imbalanced q/Q operators \(too many q's\)\n)
  929.     pdfformaterror
  930.     { end } repeat
  931.   } {
  932.     pop
  933.   } ifelse
  934.   (after exec) VMDEBUG
  935.   Repaired        % pass Repaired state around the restore
  936.   PDFSave restore
  937.   /Repaired exch def
  938. } bind def
  939. /showpagecontents {    % <pagedict> showpagecontents -
  940.   gsave        % preserve gstate for Annotations later
  941.   /Contents knownoget not { 0 array } if
  942.   dup type /arraytype ne { 1 array astore } if {
  943.     oforce false resolvestream pdfopdict .pdfrun
  944.   } forall
  945.   grestore
  946. } bind def
  947. /processcolorspace {    % - processcolorspace <colorspace>
  948.     % The following is per the PLRM3.
  949.   currentdevice 1 dict dup /ProcessColorModel dup put .getdeviceparams
  950.   exch pop exch pop
  951.   dup type /nametype ne { cvn } if
  952.   dup { setcolorspace } .internalstopped { pop /DeviceRGB } if
  953. } bind def
  954.  
  955. % ------ Transparency support ------ %
  956.  
  957. % Define minimum PDF version for checking for transparency features.
  958. % Transparency is a 1.4 feature however we have seen files that claimed
  959. % to be PDF 1.3 with transparency features.
  960. /PDFtransparencyversion 1.3 def
  961.  
  962. % Determine whether a page might invoke any transparency features:
  963. %    - Non-default BM, ca, CA, or SMask in an ExtGState
  964. %    - Image XObject with SMask
  965. % Note: we deliberately don't check to see whether a Group is defined,
  966. % because Adobe Illustrator 10 (and possibly other applications) define
  967. % a page-level group whether transparency is actually used or not.
  968. % Ignoring the presence of Group is justified because, in the absence
  969. % of any other transparency features, they have no effect.
  970. /pageusestransparency {        % <pagedict> pageusestransparency <bool>
  971.   PDFversion PDFtransparencyversion lt NOTRANSPARENCY or {
  972.     pop false
  973.   } {
  974.     false exch {
  975.       dup resourceusestransparency { pop not exit } if
  976.       /Parent knownoget not { exit } if
  977.     } loop
  978.   } ifelse
  979. } bind def
  980. % Check the Resources of a page or Form.
  981. /resourceusestransparency {    % <dict> resourceusestransparency <bool>
  982.   {    % Use loop to provide an exitable context.
  983.     /Resources knownoget not { 0 dict } if
  984.     dup /ExtGState knownoget {
  985.       false exch {
  986.     exch pop oforce
  987.     dup /BM knownoget { dup /Normal ne exch /Compatible ne and
  988.                         { pop not exit } if
  989.                           } if
  990.     dup /ca knownoget { 1 ne { pop not exit } if } if
  991.     dup /CA knownoget { 1 ne { pop not exit } if } if
  992.     dup /SMask knownoget { /None ne { pop not exit } if } if
  993.     pop
  994.       } forall { pop true exit } if
  995.     } if
  996.     dup /XObject knownoget {
  997.       false exch {
  998.     exch pop oforce dup /Subtype get
  999.     dup /Image eq { 1 index /SMask known { pop pop not exit } if } if
  1000.     /Form eq {
  1001.       resourceusestransparency { not exit } if
  1002.     } {
  1003.       pop
  1004.     } ifelse
  1005.       } forall { pop true exit } if
  1006.     } if
  1007.     pop false exit
  1008.   } loop
  1009. } bind def
  1010.  
  1011. % ------ ColorSpace substitution support ------ %
  1012.  
  1013. %
  1014. %  <pagedict>   pdfshowpage_setcspacesub   <pagedict>
  1015. %
  1016. % Set up color space substitution for a page. Invocations of this procedure
  1017. % must be bracketed by the save/restore operation for the page, to avoid
  1018. % unintended effects on other pages.
  1019. %
  1020. % If any color space substitution is used, and the current color space is a
  1021. % device dependent color space, make sure the current color space is updated.
  1022. % There is an optimization in the setcolorspace pseudo-operator that does
  1023. % nothing if both the current and operand color spaces are the same. For
  1024. % PostScript this optimization is disabled if the UseCIEColor page device
  1025. % parameter is true. This is not the case for PDF, as performance suffers
  1026. % significantly on some PDF files if color spaces are set repeatedly. Hence,
  1027. % if color space substitution is to be used, and the current color space
  1028. % is a device dependent color space, we must make sure to "transition" the
  1029. % current color space.
  1030. %
  1031. /pdfshowpage_setcspacesub
  1032.   {
  1033.     false
  1034.       { /DefaultGray /DefaultRGB /DefaultCMYK }
  1035.       {
  1036.         dup 3 index /ColorSpace //rget exec
  1037.           { resolvecolorspace /ColorSpace defineresource pop }
  1038.           { pop }
  1039.         ifelse
  1040.       }
  1041.     forall
  1042.  
  1043.     % if using color space substitution, "transition" the current color space
  1044.       {
  1045.         currentcolorspace dup length 1 eq   % always an array
  1046.           {
  1047.             0 get
  1048.             dup /DeviceGray eq 1 index /DeviceRGB eq or 1 index /DeviceCMYK or
  1049.               { /Pattern setcolorspace setcolorspace }
  1050.               { pop }
  1051.             ifelse
  1052.           }
  1053.           { pop }
  1054.         if
  1055.       }
  1056.     if
  1057.   }
  1058. bind def
  1059.  
  1060.  
  1061.  
  1062. end            % pdfdict
  1063. .setglobal
  1064.