home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / ghostscript / 8.64 / Resource / Init / pdf_main.ps < prev    next >
Encoding:
Text File  |  2009-04-17  |  63.3 KB  |  1,911 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 9382 2009-01-22 01:17:35Z alexcher $
  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.   /obj { (   **** Warning: Content stream is not terminated by 'endstream'.\n)
  44.          pdfformaterror pop pop exit
  45.        } bind
  46.            % PDF 1.1 operators
  47.   /BX { /BXlevel BXlevel 1 add store } bind
  48.   /EX { /BXlevel BXlevel 1 sub store } bind
  49.   /PS { cvx exec } bind
  50.     % PDF 1.2 operators
  51.   /BMC { pop } bind
  52.   /BDC { pop pop } bind
  53.   /EMC { }
  54.   /MP { pop } bind
  55.   /DP { pop pop } bind
  56.   /- { 0  % Bug 690016
  57.        (   **** Warning: Invalid operator '-' is assumed to be a number 0.\n)
  58.        pdfformaterror
  59.      } bind
  60. .dicttomark readonly def
  61.  
  62. % ======================== Main program ======================== %
  63.  
  64. end            % pdfdict
  65. userdict begin
  66.  
  67. /defaultfontname /Times-Roman def
  68.  
  69. % Make sure the registered encodings are loaded, so we don't run the risk
  70. % that some of the indices for their names will overflow the packed
  71. % representation.  (Yes, this is a hack.)
  72. SymbolEncoding pop
  73. DingbatsEncoding pop
  74.  
  75. % Redefine 'run' so it recognizes PDF files.
  76. systemdict begin
  77. /.runps /run load def
  78. /run {
  79.   dup type /filetype ne { (r) file } if
  80.   % skip leading whitespace characters (actually anything less than or equal to <sp>)
  81.   { dup ( ) .peekstring not { false exit } if
  82.     dup 0 get 32 le { pop dup read pop pop } { true exit } ifelse
  83.   } loop
  84.   exch pop
  85.   {
  86.     % Appletalk PAP sends short strings with %! header expecting a response. 
  87.     % 'gv' swallows the %!PS line, then sends DSC comments beginning with %%
  88.     % and also waits for a response. The following avoids those hangs.
  89.     dup 2 string .peekstring pop dup (%!) eq exch (%%) eq or {
  90.       cvx .runps
  91.     } {
  92.       dup 1023 string .peekstring pop dup length 400 ge {
  93.     % "1024 string" exceeds current %stdin buffer
  94.     % Valid PDF file cannot be smaller than 400 bytes.
  95.     (%PDF-) search {
  96.       3 1 roll pop pop
  97.       dup (%!PS) search not {
  98.         length 0 ne { 
  99.           1 index exch readstring pop pop
  100.           (%stderr) (w) file dup 
  101.           (   **** Warning: File has some garbage before %PDF- .\n)
  102.           writestring flushfile
  103.         } { 
  104.           pop
  105.         } ifelse
  106.         dup (%stdin) (r) file eq {
  107.           % Copy PDF from stdin to temporary file then run it.
  108.           null (w+) /.tempfile .systemvar exec exch 3 1 roll
  109.           % stack: tempname stdin tempfile
  110.           64000 string
  111.           {
  112.         % stack: tempname stdin tempfile string
  113.         2 index 1 index readstring
  114.         exch 3 index exch writestring
  115.         not { exit } if
  116.           }
  117.           loop
  118.           pop exch closefile
  119.           % stack: tempname tempfile
  120.           dup 0 setfileposition
  121.           dup runpdf
  122.           closefile deletefile
  123.         } { 
  124.           runpdf
  125.         } ifelse
  126.       } {
  127.         pop pop pop pop cvx .runps % (%!PS) found first
  128.       } ifelse
  129.     } { 
  130.       pop cvx .runps % (%PDF-) not found
  131.     } ifelse
  132.       } { 
  133.     pop cvx .runps   % too short for PDF
  134.       } ifelse
  135.     } ifelse
  136.   } {
  137.     closefile % file was empty
  138.   } ifelse
  139. } bind odef
  140. currentdict /runpdfstring .undef
  141.  
  142.  
  143. /runpdfbegin {        % <file> runpdfbegin - 
  144.    userdict begin
  145.     % It turns out that the PDF interpreter uses memory more
  146.     % effectively if it is run under at least one level of save.
  147.     % This is counter-intuitive, and we don't understand why it happens,
  148.     % but the improvement is significant.
  149.    /PDFTopSave save def
  150.    0 setobjectformat
  151.    /Page# null def
  152.    /Page null def
  153.    /DSCPageCount 0 def
  154.    /PDFSave null def
  155.    GS_PDF_ProcSet begin
  156.    pdfdict begin
  157.    pdfopen begin
  158. } bind def
  159.  
  160. /runpdfpagerange {    % - runpdfpagerange <firstpage#> <lastpage#>
  161.    /FirstPage where 
  162.     { pop FirstPage dup pdfpagecount gt
  163.       { (\nRequested FirstPage is greater than the number of pages in the file: ) print
  164.         pdfpagecount = flush
  165.       } if
  166.     } {
  167.       1
  168.     } ifelse
  169.    /LastPage where { pop LastPage pdfpagecount .min } { pdfpagecount } ifelse
  170.    1 index 1 index gt
  171.     { (   No pages will be processed \(FirstPage > LastPage\).) = flush }
  172.     { QUIET not
  173.       { (Processing pages ) print 1 index =only ( through ) print dup =only
  174.         (.) = flush
  175.       }
  176.      if
  177.     }
  178.    ifelse
  179. } bind def
  180.  
  181. /dopdfpages {   % firstpage# lastpage# dopdfpages -
  182.   << /PDFScanRules //true >> setuserparams    % set scanning rules for PDF vs. PS
  183.   << /RenderTTNotdef systemdict 
  184.      /RENDERTTNOTDEF get >> setuserparams    % Should we render TT /.notdef
  185.   1 exch
  186.     { dup /Page# exch store
  187.       QUIET not { (Page ) print dup == flush } if
  188.       pdfgetpage pdfshowpage
  189.     } for
  190.   << /PDFScanRules //null >> setuserparams    % restore scanning rules for PS
  191. } bind def
  192.  
  193. /runpdfend {
  194.    Repaired { printrepaired } if
  195.    currentdict pdfclose
  196.    end            % temporary dict
  197.    end            % pdfdict
  198.    end            % GS_PDF_ProcSet
  199.    PDFTopSave restore
  200.    end            % userdict
  201.    2 vmreclaim        % couldn't hurt
  202. } bind def
  203.  
  204.  
  205. % Copy default subfile to a temporary file and return the file name
  206. % as a PostScript name to protect it from restore. Return null if
  207. % there's no default subfile.
  208. %
  209. % - pdf_collection_files /temp_file_name | null
  210. /pdf_collection_files {
  211.   //null
  212.   Trailer /Root oget /Collection knownoget {
  213.     /D knownoget { % We have default document in the collection
  214.       Trailer /Root oget /Names knownoget {
  215.         /EmbeddedFiles knownoget {
  216.           exch nameoget dup //null ne {
  217.             /EF knownoget {
  218.               /F knownoget {
  219.                 //true resolvestream    % null strm
  220.                 //null (w) /.tempfile   % null strm (name) null (w) /.tempfile
  221.                 .systemvar exec         % null strm (name) file
  222.                 3 -1 roll               % null (name) file strm
  223.                 32768 string            % null (name) file strm (buf)
  224.                 { 3 copy readstring     % null (name) file strm (buf) file (data) bool
  225.                   3 1 roll              % null (name) file strm (buf) bool file (data)
  226.                   writestring           % null (name) file strm (buf) bool
  227.                   not { exit } if
  228.                 } loop                  
  229.                 pop closefile           % null (name) file
  230.                 closefile               % null (name)
  231.                 exch pop cvn            % /name
  232.               } if
  233.             } if
  234.           } {
  235.             pop
  236.           } ifelse
  237.         } {
  238.           pop
  239.         } ifelse
  240.       } {
  241.         pop
  242.       } ifelse
  243.     } if
  244.   } if
  245. } bind def
  246.  
  247. /runpdf {        % <file> runpdf -
  248.   //runpdfbegin exec
  249.   //pdf_collection_files exec
  250.   dup type /nametype ne {
  251.     copy_trailer_attrs
  252.     //runpdfpagerange exec
  253.     //dopdfpages exec
  254.   } if
  255.   //runpdfend exec
  256.   dup type /nametype eq {
  257.     .namestring dup (r) file
  258.     //runpdfbegin exec
  259.     copy_trailer_attrs
  260.     //runpdfpagerange exec
  261.     //dopdfpages exec
  262.     //runpdfend exec
  263.     deletefile
  264.   } {
  265.     pop
  266.   } ifelse
  267. } bind def
  268.  
  269. currentdict /pdf_collection_files .undef
  270.  
  271. end            % systemdict
  272. % Redefine the procedure that the C code uses for running piped input.
  273. % It is OK to use { (%stdin) run } here, because a startjob cannot occur.
  274. /.runstdin {
  275.   { (%stdin) run } execute0
  276. } bind def
  277.  
  278. end            % userdict
  279. pdfdict begin
  280.  
  281. % ======================== File parsing ======================== %
  282.  
  283. % Read the cross-reference and trailer sections.
  284.  
  285. /traileropdict mark
  286.   (<<) cvn { /dictlevelcount dictlevelcount 1 add store mark } bind
  287.   (>>) cvn { { .dicttomark } stopped {
  288.           (   **** File has unbalanced >> in trailer.\n) pdfformaterror
  289.              } if
  290.          /dictlevelcount dictlevelcount 1 sub def
  291.              dictlevelcount 0 eq { exit } if
  292.            } bind
  293.   ([) cvn { mark } bind        % ditto
  294.   (]) cvn dup load
  295. %  /true true        % see .pdfexectoken in pdf_base.ps
  296. %  /false false        % ibid.
  297. %  /null null        % ibid.
  298.   /R { /resolveR cvx 3 packedarray cvx } bind    % see Objects below
  299. .dicttomark readonly def
  300.  
  301. % Because of EOL conversion, lines with fixed contents might be followed
  302. % by one or more blanks.
  303. /lineeq            % <filestr> <conststr> lineeq <bool>
  304.  { anchorsearch
  305.     { pop { ( ) anchorsearch not { () eq exit } if pop } loop }
  306.     { pop false }
  307.    ifelse
  308.  } bind def
  309. /linene { lineeq not } bind def
  310.  
  311.  %  Read original version (pre PDF 1.5) of the xref table.
  312.  %  Note:  The position is the location of 'xref'.  The current PDFfile
  313.  %  position is just after the 'XREF'.
  314. /readorigxref        % <pos> readorigxref <trailerdict>
  315.  {
  316.    pop                % We do not need the position.
  317.    0                % Initialize xref table error counter
  318.    { PDFfile token pop        % first object # or trailer
  319.      dup /trailer eq { pop exit } if
  320.      PDFfile pdfstring readline pop
  321.      token pop            % entry count
  322.      % remaining must be whitespace only (otherwise this xref Size was invalid.
  323.      exch dup length 0 ne {
  324.        false 1 index { 32 gt { pop true exit } if } forall {
  325.          (   **** Warning: xref subsection header has extra characters.\n)
  326.          pdfformaterror
  327.          /setxrefentry cvx /syntaxerror signalerror
  328.        } if
  329.      } if
  330.      pop            % remove last
  331.         % This section might be adding new objects:
  332.         % ensure that Objects and Generations are big enough.
  333.         % stack: <err count> <first obj> <entry count>
  334.      2 copy add growPDFobjects
  335.      {                % stack: <err count> <obj num>
  336.         % Read xref line
  337.        PDFfile 20 string readstring pop  % always read 20 chars.
  338.        token pop        % object position
  339.        exch token pop        % generation #
  340.        exch token pop        % n or f
  341.        exch            % stack: <err count> <obj#> <loc> <gen#> <tag> <remainder of line>
  342.        dup length 0 ne {
  343.          % check to make sure trailing garbage is just white space
  344.      dup { 32 gt { 5 -1 roll 1 add 5 1 roll } if } forall   % bump error count on garbage
  345.        } if
  346.        pop            % Stack: <err count> <obj#> <loc> <gen#> <tag>
  347.        dup /n eq {        % xref line tag is /n
  348.      pop            % pop dup of line tag
  349.      0 3 1 roll        % Set ObjectStream object number = 0
  350.      //false setxrefentry    % Save xref entry, don't change existing entries
  351.      3 -1 roll pop        % Remove ObjectStream object onumber
  352.        }
  353.        {            % xref line tag was not /n
  354.      /f ne            % verify that the tag was /f
  355.          { /setxrefentry cvx /syntaxerror signalerror
  356.      } if
  357.        } ifelse
  358.        pop pop            % pop <obj location> and <gen num>
  359.        % stack: <err count> <obj num>
  360.        1 add            % increment object number
  361.      } repeat
  362.      pop            % pop <obj #>
  363.    } loop
  364.    0 ne {
  365.      (   **** Warning:  length of some xref entries is not equal to 20 bytes.\n)
  366.      pdfformaterror
  367.    } if
  368.    /dictlevelcount 0 def
  369.    PDFfile traileropdict .pdfrun
  370.  } bind def
  371.  
  372.  % This dicitonary is used to read the xref dictionary.  It should work for
  373.  % reading any dictionary.  dictlevelcount must contain 0.
  374. /xrefopdict mark
  375.   (<<) cvn { /dictlevelcount dictlevelcount 1 add def mark } bind
  376.   (>>) cvn { .dicttomark /dictlevelcount dictlevelcount 1 sub def
  377.            dictlevelcount 0 eq { exit} if } bind
  378.   ([) cvn { mark } bind        % ditto
  379.   (]) cvn dup load
  380. %  /true true        % see .pdfexectoken in pdf_base.ps
  381. %  /false false        % ibid.
  382. %  /null null        % ibid.
  383.   /R { /resolveR cvx 3 packedarray cvx } bind    % see Objects below
  384. .dicttomark readonly def
  385.  
  386. % Get a variable length positive integer value from a stream.  A value
  387. % of zero is returned if the count is zero.
  388. /getintn {    % <stream> <count> getintn int
  389.   0 exch { 256 mul 1 index read pop add } repeat
  390.   exch pop            % Discard stream
  391. } bind def
  392.  
  393. % This array contains handlers for processing the different types of
  394. % entries in the XRef stream.
  395. % Stack: <Xrefdict> <xref stream> <Index array> <pair loc> <obj num>
  396. %      <field 2> <field 3>
  397. % The handlers leave the stack unchanged.
  398. /xref15entryhandlers [
  399.   {    % XRef entry type 0 - free or f type xref entry
  400. %    (free ) print
  401. %    (obj num: ) print 2 index pdfstring cvs print ( ) print
  402. %    (loc: ) print 1 index pdfstring cvs print ( ) print
  403. %    (gen: ) print dup === flush
  404.   } bind        % Do nothing for free xref entries
  405.     % XRef entry type 1 - normal or n type xref entry
  406.   {    % field 2 = obj loc, field 3 = gen num
  407. %    (normal ) print
  408. %    (obj num: ) print 2 index pdfstring cvs print ( ) print
  409. %    (loc: ) print 1 index pdfstring cvs print ( ) print
  410. %    (gen: ) print dup === flush
  411.     0 3 1 roll            % set stream number = 0
  412.     //false setxrefentry
  413.     3 -1 roll pop        % remove stream number
  414.   } bind
  415.     % XRef entry type 2 - compressed object type xref entry
  416.   {    % field 2 = object stream num, field 3 = index into object stream
  417. %    (Compressed objects: ) print
  418. %    (obj num: ) print 2 index pdfstring cvs print ( ) print
  419. %    (field 2: ) print 1 index pdfstring cvs print ( ) print
  420. %    (field 3: ) print dup === flush
  421.     0 //false setxrefentry pop    % set generation number = 0
  422.   } bind
  423. ] def
  424.  
  425.  %  Read the PDF 1.5 version of the xref table.
  426.  %  Note:  The position is the location of the start of the dictionary object
  427.  %  In PDF 1.5, the XRef dictionary also serves as the trailer dictionary
  428. /readpdf15xref        % <pos> readpdf15xref <trailerdict>
  429.  {
  430.    PDFfile exch setfileposition        % move to start of object
  431.        % Get object number, revision, and 'obj' and discard
  432.    PDFfile token pop pop
  433.    PDFfile token pop pop
  434.    PDFfile token pop pop
  435.     % Get the XRef dicitionary
  436.    /dictlevelcount 0 def PDFfile xrefopdict .pdfrun
  437.     % Verify that we have an XRef dictionary
  438.    dup /Type get /XRef ne {
  439.      /readpdf15xref cvx /syntaxerror signalerror
  440.    } if
  441.        % Ensure that we we have room in the objects array, etc.
  442.    dup /Size get growPDFobjects
  443.     % Create a stream for the XRef data
  444.    PDFfile token pop pop        % Skip over 'stream'
  445.    dup stream false resolvestream
  446.        % Stack: <XRefdict> <xref stream>
  447.     % The Index array defines the ranges of object numbers in the
  448.     % XRef stream.  Each value pair is consists of starting object
  449.     % number and the count of consecutive objects.
  450.     % Get the Index array, if present
  451.    1 index /Index .knownget not {    % If no Index array ...
  452.      [ 0 3 index /Size get ]        % Default = [ 0 Size ]
  453.    } if
  454.     % Loop through the Index array
  455.    0 2 2 index length 1 sub {
  456.     % Get start and end of object range
  457.      2 copy get                % Start of the range
  458.      dup 3 index 3 index 1 add get     % Number of entries in range
  459.          % Loop through the range of object numbers
  460.      add 1 sub 1 exch {            % Form end of range, set increment = 1
  461.     % Stack: <Xrefdict> <xref stream> <Index array> <pair loc> <obj num>
  462.     % Get xref parameters.  Note:  The number of bytes for each parameter
  463.     % is defined by the entries in the W array.
  464.        4 index /W get aload pop        % Get W array values
  465.            % The first field indicates type of entry.  Get first field value.
  466.     % If the num. of bytes for field 1 is 0 then default field value is 1
  467.        3 -1 roll dup 0 eq { pop 1 } { 6 index exch getintn } ifelse
  468.     % Get the handler for the xref entry type.  We will execute the
  469.     % handler after we get the other two field values.
  470.        xref15entryhandlers exch get
  471.        3 -1 roll 6 index exch getintn    % Get second field
  472.        3 -1 roll 6 index exch getintn    % Get third field
  473.        3 -1 roll exec            % Execute Xref entry handler
  474.        pop pop pop            % Remove field values and obj num
  475.      } for                % Loop through Xref entries
  476.      pop                % Remove Index array pair loc
  477.    } for                % Loop through Index array entries
  478.    pop pop                % Remove Index array and xref stream
  479.  } bind def
  480.  
  481. % Read the cross-reference table.
  482. % <pos> is the position either from the startxref statement or the /Prev
  483. % entry in the prior trailer dictionary.
  484. /readxref        % <pos> readxref <trailerdict>
  485.  {
  486.    PDFoffset add PDFfile exch
  487.    % Check that the given location is within the file.
  488.    dup PDFfilelen gt {
  489.        (   **** Warning:  Specified xref location is beyond end of file.\n)
  490.        pdfformaterror
  491.        /readxref cvx /invalidaccess signalerror
  492.    } if
  493.    setfileposition
  494.         % In some PDF files, this position actually points to
  495.         % white space before the xref line.  Skip over this here.
  496.    {
  497.      PDFfile fileposition PDFfile read pop 32 gt { exit } if pop
  498.    } loop
  499.    dup        % Make copy of the file position (before last char was read).
  500.    PDFfile exch setfileposition
  501.         % The PDF specification says that the 'xref' must be on a line
  502.         % by itself. The code here formerly used readline and linene to
  503.         % check this. However, Acrobat Reader only requires the line to
  504.         % begin with 'xref', and there are enough applications producing
  505.         % non-compliant PDF files that we have to do this too.
  506.    PDFfile pdfstring 0 4 getinterval readstring pop
  507.    (xref) eq
  508.    {
  509.      readorigxref    % 'xref' -> original xref table
  510.      % if hybrid-reference PDF, also fetch the entries 
  511.      % found in the XRef stream pointed by /XRefStm
  512.      dup /XRefStm knownoget {
  513.        readpdf15xref pop
  514.      } if
  515.    }
  516.    { readpdf15xref }    % otherwise assume PDF 1.5 xref stream
  517.    ifelse
  518.  } bind def
  519.  
  520. % Open a PDF file and read the header, trailer, and cross-reference.
  521. /pdfopen {        % <file> pdfopen <dict>
  522.     % Color space substitution in PDF is handled somewhat differently
  523.     % than in PostScript. A given device color space will be substituted
  524.     % if the corresponding "Default..." entry exists in the Page's
  525.     % Resource dictionary (which might be inhereted); there is no
  526.     % UseCIEColor to enable/disable color mapping.
  527.     %
  528.     % This behavior is achieved by always setting UseCIEColor to true
  529.     % in the page device dictionary. If the value of this parameter was
  530.     % originally false (i.e.: the output device does not perform color
  531.     % space substitution by default), the instances DefaultGray,
  532.     % DefaultRGB, and DefaultCMYK of the (local) ColorSpace category
  533.     % are redefined to be DeviceGray, DeviceRGB, and DeviceCMYK,
  534.     % respectively. This is not done if UseCIEColor is true by default,
  535.     % as in that case color substitution is presumably desired even
  536.     % if the file does not request it.
  537.    currentpagedevice /UseCIEColor .knownget dup { pop } if not
  538.     { .currentglobal false .setglobal
  539.       /DefaultGray { /DeviceGray } cvlit /ColorSpace defineresource pop
  540.       /DefaultRGB { /DeviceRGB } cvlit /ColorSpace defineresource pop
  541.       /DefaultCMYK { /DeviceCMYK } cvlit /ColorSpace defineresource pop
  542.       .setglobal
  543.     }
  544.    if
  545.   pdfopenfile begin
  546.   pdfopencache
  547.   currentdict end
  548. } bind def
  549.  
  550. /copy_trailer_attrs {  % - copy_trailer_attrs -
  551.   writeoutputintents
  552.   .writepdfmarks {
  553.     % Copy bookmarks (outline) to the output.
  554.     Trailer /Root oget /Outlines knownoget {
  555.       /First knownoget {
  556.     { dup writeoutline /Next knownoget not { exit } if } loop
  557.       } if
  558.     } if
  559.   } if        % end .writepdfmarks
  560. } bind def
  561.  
  562. % Verify that each entry in the xref table is pointing at an object with
  563. % the correct object number and generation number.
  564. /verify_xref                % - verify_xref -
  565. { PDFfilelen
  566.   1 1 Objects llength 1 sub    % stack: filesize 1 1 <number of objects - 1>
  567.   {    % Check if the object is free (i.e. not used).  The values in
  568.     % Generations is the generation number plus 1.  If the value in
  569.     % Generations is zero then the object is free.
  570.     % Stack:  <filesize> <obj num>
  571.     Generations 1 index lget         % Get the genration number
  572.     0 ne {                % Skip if object number is free
  573.       ObjectStream 1 index lget     % Check if object is in objectstream
  574.       0 eq {    % We only check objects not in an objectstream
  575.         {    % Use stop context since we may get an error if object is invalid
  576.           dup Objects exch lget     % Get the object location
  577.       PDFoffset add dup 3 index ge    % Compare object location to file size
  578.       { pop true }            % Rebuild if location not in file
  579.       { PDFfile exch setfileposition % Go to the object location
  580.         true            % Stack:  <filesize> <obj num> <true>
  581.         PDFfile token pop        % Read object number from file
  582.         2 index eq {        % Verify object number
  583.           PDFfile token pop        % Read generation number from file
  584.           Generations 3 index    % Get specified generaton number
  585.           lget 1 sub        % Gen numbs are stored with 1 added.
  586.           eq {             % Verify generation number
  587.             PDFfile token pop
  588.             /obj eq { % Verify 'obj' text
  589.           pop false        % We have valid object, do not rebuild
  590.             } if
  591.           } if
  592.         } if
  593.       } ifelse
  594.     } .internalstopped
  595.     { true } if            % If we stop then we need to rebuild
  596.     % Stack:  <filesize> <obj num> <need rebuild flag>
  597.     { 
  598.       (   **** Warning:  File has an invalid xref entry:  )
  599.       pdfformaterror
  600.       pdfstring cvs pdfformaterror
  601.       (.  Rebuilding xref table.\n) pdfformaterror
  602.       search_objects
  603.       exit
  604.     } if                % If the entry is invalid
  605.       } {
  606.           % The object is in an object stream.  We currently do not rebuild
  607.           % objects in an object stream.  So If we find one, then abort the
  608.           % verification of the xref table entries.
  609.     pop exit            % Pop object number and then exit loop
  610.       } ifelse                % If not in an object stream
  611.     } if                % If object entry is not free
  612.     pop                    % Remove object number
  613.   } for
  614.   pop                    % Remove the size of the file
  615. } bind odef
  616.  
  617. /pdfopencache {        % - pdfopencache -
  618.     % Create and initialize some caches.
  619.   /PageCount pdfpagecount def
  620.   /PageNumbers PageCount 65534 .min dict def
  621.   /PageIndex PageCount 65534 .min array def
  622. } bind def
  623.  
  624. /pdfopenfile {        % <file> pdfopenfile <dict>
  625.    pdfdict readonly pop        % can't do it any earlier than this
  626.    15 dict begin
  627.    /LocalResources 0 dict def
  628.    /DefaultQstate //null def    % establish binding
  629.    /Printed where { pop } {
  630.         % Guess whether the output device is a printer.
  631.      /Printed currentpagedevice /OutputFile known def
  632.    } ifelse
  633.    /PSLevel1 where { pop } { /PSLevel1 false def } ifelse
  634.    % NB: PDFfile is used outside of the PDF code to determine that a
  635.    % PDF job is being processed; to not change or hide this key.
  636.    cvlit /PDFfile exch def
  637.    /PDFsource PDFfile def
  638.    /Repaired false def
  639.    currentglobal true .setglobal globaldict begin
  640.    /UndefProcList 0 dict def
  641.    end .setglobal
  642.    PDFfile dup 0 setfileposition
  643.    0 () /SubFileDecode filter   % to avoid file closure
  644.    pdfstring readstring pop
  645.    (%PDF-) search not {/pdfopen cvx /syntaxerror signalerror} if
  646.    length /PDFoffset exch def pop
  647.    % some badly formed PDF's (Visioneer) have something other than EOL
  648.    % after the version number. If we get an error, shorten the string
  649.    % and try again.
  650.    false exch        % error encountered
  651.    { { cvr } stopped
  652.      { exch pop true exch 0 1 index length 1 sub dup 0 eq
  653.        { pop 0 exit } if    % exit if string now empty
  654.        getinterval        % trim character from right end and retry
  655.      }
  656.      { exch {
  657.          (   **** Warning: PDF version number not followed by EOL.\n)
  658.          pdfformaterror
  659.        }
  660.        if exit
  661.      }
  662.      ifelse
  663.    } loop
  664.  
  665.    /PDFversion exch def
  666.     % Read the last cross-reference table.
  667.    count /pdfemptycount exch def
  668.    /Trailer << >> def        % Initialize to an emptry dict.
  669.    { initPDFobjects findxref readxref } .internalstopped {
  670.      recover_xref_data        % Read failed.  Attempt to recover xref data.
  671.      search_trailer        % Search for the primary trailer
  672.    } {
  673.      /Trailer exch def        % Save trailer dict after first xref table
  674.     % Read any previous cross-reference tables.  When we are done,
  675.     % verify that the entries in the xref tables are valid if NoVerifyXref
  676.     % is not defined.
  677.      Trailer
  678.      { /Prev knownoget not {    % If no previous xref table then ...
  679.          /NoVerifyXref where { pop } { verify_xref } ifelse exit
  680.        } if
  681.        { readxref } .internalstopped {
  682.          recover_xref_data    % Read failed.  Attempt to recover xref data.
  683.      exit            % Exit loop since recover gets all obj data.
  684.        } if              % If readxref stopped
  685.        % The PDF spec. says that each trailer dict should contain the required
  686.        % entries.  However we have seen a PDF file that only has a Prev entry in
  687.        % the initial trailer dict.  Acrobat complains but it accepts these files.
  688.        % To work with these files, we are copying any entries which we find in
  689.        % a previous trailer dict which are not present in the initial dict.
  690.        dup {
  691.          Trailer 2 index known {
  692.            pop pop              % discard if key already present
  693.          } {
  694.            Trailer 3 1 roll put % add key if not present
  695.          } ifelse
  696.        } forall
  697.      } loop            % Loop to previous trailer
  698.    } ifelse            % Ifelse readxref stopped
  699.  
  700.    % Scan numbers in the range 2147483648..4294967295 in Encrypt dictionary
  701.    % as unsigned integers for compatibility with Acrobat Reader. Bug 689010.
  702.    << /PDFScanUnsigned //true >> setuserparams
  703.    { Trailer /Encrypt knownoget {
  704.        pop
  705.        pdf_process_Encrypt    % signal error
  706.      } if
  707.    } stopped
  708.    << /PDFScanUnsigned //false >> setuserparams
  709.    { stop } if
  710.  
  711.    % Check for recursion in the page tree. Bug 689954, MOAB-06-01-2007
  712.    verify_page_tree
  713.  
  714.    currentdict end
  715.  } bind def
  716.  
  717. % Look for [\r\n]%%EO from the current position of the file.
  718. % Return the position of %%EO if found or -1 .
  719. /findeof {  % <file> find_eof <file> <position>
  720.   -1 exch
  721.   {
  722.     dup bytesavailable 4 lt { exit } if
  723.     dup 0 (%%EO) /SubFileDecode filter flushfile
  724.     dup dup fileposition 5 sub setfileposition
  725.     dup 5 string readstring not { pop exit } if
  726.     dup (\r%%EO) eq exch (\n%%EO) eq or {
  727.       dup fileposition 4 sub
  728.       3 1 roll exch pop
  729.     } if
  730.   } loop
  731.   exch
  732. } bind def
  733.  
  734. % Skip backward over the %%EOF at the end of the PDF file, and read
  735. % the preceding startxref line.  The PDF specification unambiguously
  736. % requires that the %%EOF appear on a line by itself, and that the
  737. % startxref and the following position value appear on separate lines;
  738. % however, some applications truncate the %%EOF to %%EO, and/or put the
  739. % startxref and the following value on the same line.
  740. % There seems to be no limit on the amount of garbage that can be
  741. % appended to the PDF file. Current record (60K) belongs to
  742. % PDF-Out (v 2.0 - 35). We start the search for %%EO from the last 1024
  743. % bytes and continue from the beginning of the file.
  744. /findxref {        % - findxref <xrefpos>
  745.   PDFfile dup dup dup 0 setfileposition bytesavailable
  746.   dup /PDFfilelen exch def
  747.     % Find the last %%EOF string (within 1024 bytes)
  748.   1024 sub PDFoffset .max
  749.   setfileposition findeof                  % search the last 1024 bytes
  750.   dup 0 le {
  751.     pop
  752.     dup PDFoffset setfileposition findeof  % search from the beginnibg
  753.     dup 0 le {
  754.        (   **** Error: Cannot find a %%EOF marker anywhere in the file.\n)
  755.        pdfformaterror
  756.        /findxref cvx /syntaxerror signalerror
  757.     } if
  758.   } if
  759.   dup 3 1 roll setfileposition
  760.         % Stack: eofpos
  761.     % Check for whether this is, in fact, a valid PDF file.
  762.   dup PDFfilelen exch sub dup dup 7 gt exch 5 lt or {
  763.     pop true
  764.   } {
  765.     string PDFfile exch readstring pop
  766.     dup (%%EOF\n) eq exch dup (%%EOF\r) eq
  767.     exch dup (%%EOF\r\n) eq exch (%%EOF) eq or or or not
  768.   } ifelse {
  769.     (   **** Warning: File has a corrupted %%EOF marker, or garbage after %%EOF.\n)
  770.     pdfformaterror
  771.   } if
  772.   PDFfile exch setfileposition
  773.     % Now read the startxref and xref start position.
  774.   prevline token not { null } if dup type /integertype eq {
  775.     exch pop cvi        % xref start position
  776.     exch PDFfile exch setfileposition
  777.     prevline dup (startxref) linene {
  778.       % startxref not on a line by itself.  We have found PDF from
  779.       % www.verypdf.com in which the startxref was on the same line as
  780.       % the end of trailer dictionary.  Check for this.  Note:  This
  781.       % violates the spec.
  782.       dup (startxref) search {
  783.     % found startxref - print warning
  784.     pop pop pop             % clear strings from search
  785.         (   **** Warning: format of the startxref line in this file is invalid.\n)
  786.         pdfformaterror
  787.       } {                % no startxref - we have a problem.
  788.         /findxref cvx /syntaxerror signalerror
  789.       } ifelse
  790.     } if
  791.     pop pop
  792.   } {    % else, this file has 'startxref #####' format
  793.     (startxref) ne { /findxref cvx /syntaxerror signalerror } if
  794.     cvi        % xref start position
  795.     (   **** Warning: format of the startxref line in this file is invalid.\n)
  796.     pdfformaterror
  797.     exch PDFfile exch setfileposition
  798.   } ifelse
  799. } bind def
  800. /stderrfile (%stderr) (w) file def
  801. /stderrprint {                % <string> stderrprint -
  802.   //stderrfile dup 3 -1 roll writestring flushfile
  803. } bind def
  804. /pdfformaterror {    % <string> pdfformaterror -
  805.   stderrprint
  806.   /Repaired true store
  807. } bind def
  808.  
  809. /knownoget_safe
  810. { 2 copy knownoget { 3 1 roll pop pop //true } { pop pop //false } ifelse
  811. } odef
  812.  
  813. /printProducer {
  814.   Trailer /Info { knownoget_safe } stopped { pop pop false } if {
  815.     /Producer knownoget not { null } if
  816.   } {
  817.     null
  818.   } ifelse
  819.   dup null eq {
  820.     pop
  821.   } {
  822.     (   **** The file was produced by: \n   **** >>>> ) stderrprint
  823.     % Handle a Unicode Producer.
  824.     (\376\377) anchorsearch {
  825.       pop dup length 2 idiv string 0 1 2 index length 1 sub {
  826.         % Stack: origstr newstr i
  827.     1 index exch 3 index 1 index 2 mul 1 add get put
  828.       } for exch pop
  829.     } if
  830.     stderrprint
  831.     ( <<<<\n) stderrprint
  832.   } ifelse
  833. } bind def
  834. % The UndefProcList collects noisy warnings.
  835. % This gets rid of many multiple warnings from pdf_font.ps
  836. /printCollectedWarnings {
  837.    UndefProcList length 0 gt {
  838.       (\n   **** Embedded font uses undefined procedure\(s\):  ) stderrprint
  839.       UndefProcList {
  840.          exch .namestring stderrprint ( ) stderrprint
  841.      =string cvs stderrprint ( times, ) stderrprint
  842.       } forall 
  843.       (\n) stderrprint
  844.    } if
  845. } bind def
  846. /printrepaired {
  847.    printCollectedWarnings
  848.    (\n   **** This file had errors that were repaired or ignored.\n)
  849.   stderrprint
  850.   printProducer
  851.   (   **** Please notify the author of the software that produced this\n)
  852.   stderrprint
  853.   (   **** file that it does not conform to Adobe's published PDF\n)
  854.   stderrprint
  855.   (   **** specification.\n\n)
  856.   stderrprint
  857. } bind def
  858.  
  859. % Write the outline structure for a file.  Uses linkdest (below).
  860. % omit links to pages that don't exist.
  861. /writeoutline        % <outlinedict> writeoutline -
  862.  { mark
  863.    0 2 index /First knownoget
  864.     { { exch 1 add exch /Next knownoget not { exit } if } loop }
  865.    if
  866.         % stack: dict mark count
  867.    dup 0 eq
  868.     { pop 1 index }
  869.     { 2 index /Count knownoget { 0 lt { neg } if } if
  870.       /Count exch 3 index
  871.     }
  872.     ifelse
  873.     {
  874.       dup /A knownoget {
  875.         dup /URI known {
  876.           /A mark 3 2 roll    % <<>> /A [ <<action>>
  877.           { oforce } forall
  878.           .dicttomark
  879.           3 2 roll
  880.         } {
  881.           dup /D knownoget {
  882.             exch pop exch dup length dict copy dup /Dest 4 -1 roll put
  883.           } {
  884.             /N knownoget {                % Assume /S /Named
  885.                namedactions exch .knownget { exec } if
  886.              } if
  887.           } ifelse
  888.         } ifelse
  889.       } if
  890.       linkdest
  891.     } stopped
  892.     {
  893.       cleartomark    % ignore this link
  894.       (   **** Warning: Outline has invalid link that was discarded.\n)
  895.       pdfformaterror
  896.     } {
  897.       /Title oget /Title exch /OUT pdfmark
  898.     }
  899.    ifelse
  900.    /First knownoget
  901.     { { dup writeoutline /Next knownoget not { exit } if } loop }
  902.    if
  903.  } bind def
  904.  
  905. % Close a PDF file.
  906. /pdfclose        % <dict> pdfclose -
  907.  { begin
  908.    PDFfile closefile
  909.    end
  910.  } bind def
  911.  
  912. % ======================== Page accessing ======================== %
  913.  
  914. % Get a (possibly inherited) attribute of a page.
  915. /pget            % <pagedict> <key> pget <value> -true-
  916.             % <pagedict> <key> pget -false-
  917.  {
  918.    2 copy knownoget
  919.     { exch pop exch pop true }
  920.     { exch /Parent knownoget
  921.       { exch pget }
  922.     % finally see if the key is (misplaced) in the Root Catalog dict
  923.       { dup Trailer /Root oget exch knownoget dup {
  924.       3 -1 roll (   **** Warning:  The /) pdfformaterror 50 string cvs pdfformaterror
  925.       ( key is missing from the Page tree.\n) pdfformaterror
  926.         }
  927.     { exch pop }
  928.     ifelse
  929.       }
  930.       ifelse
  931.     }
  932.    ifelse
  933.  } bind def
  934.  
  935. % Get the value of a resource on a given page.
  936. /rget {            % <resname> <pagedict> <restype> rget <value> -true-
  937.             % <resname> <pagedict> <restype> rget -false-
  938.   LocalResources 1 index knownoget {
  939.      3 index knownoget
  940.   } {
  941.     false
  942.   } ifelse {
  943.     exch pop exch pop exch pop true
  944.   } {
  945.     exch /Resources pget {
  946.       exch knownoget { exch knownoget } { pop false } ifelse
  947.     } {
  948.       pop pop false
  949.     } ifelse
  950.   } ifelse
  951. } bind def
  952.  
  953. % Get the total number of pages in the document.
  954. /pdfpagecount        % - pdfpagecount <int>
  955.  { Trailer /Root oget /Pages oget
  956.    dup /Count knownoget {
  957.      dup 0 le {
  958.        pop (   **** Warning:  Invalid Page count.\n) pdfformaterror
  959.        % find the last page and use that as the Count
  960.        1 1 999999999 {
  961.          dup pdffindpage?
  962.      exch pop
  963.          //null eq { exit } { pop } ifelse
  964.        } for
  965.        1 sub        % decrement to last page that we were able to find
  966.        2 copy /Count exch put
  967.      } if
  968.      exch pop
  969.    } {
  970.        dup /Type oget /Page eq {
  971.          << exch 1 array astore /Kids exch /Count 1 /Type /Pages >>
  972.          Trailer /Root oget /Pages 3 -1 roll put
  973.          1
  974.          (   **** Warning:  No /Pages node. The document root directly point a page.\n)
  975.          pdfformaterror
  976.      } {
  977.        (   **** Warning:  Page count not found; assuming 1.\n)
  978.        pdfformaterror
  979.        pop 1 
  980.      } ifelse
  981.    } ifelse
  982.  } bind def
  983.  
  984. % Check for loops in the 'page tree' but accept an acyclic graph.
  985. % - verify_page_tree -
  986. /verify_page_tree { 
  987.   Trailer /Root oget /Pages oget
  988.   10 dict begin
  989.   /verify_page_tree_recursive {
  990.     dup 1 def
  991.     dup /Kids knownoget {
  992.       { oforce
  993.         currentdict 1 index known {
  994.           (   **** Error: there's a loop in the page tree. Giving up.\n) pdfformaterror
  995.           /verify_page_tree cvx /syntaxerror signalerror
  996.         } if
  997.         verify_page_tree_recursive
  998.       } forall
  999.     } if
  1000.     currentdict exch undef
  1001.   } def
  1002.   verify_page_tree_recursive
  1003.   end
  1004. } bind def
  1005.  
  1006. /pdffindpage? {        % <int> pdffindpage? 1 null     (page not found)
  1007.             %  <int> pdffindpage? 1 noderef (page found)
  1008.             %  <int> pdffindpage? 0 null    (Error: page not found)
  1009.   Trailer /Root oget /Pages get
  1010.     {        % We should be able to tell when we reach a leaf
  1011.         % by finding a Type unequal to /Pages.  Unfortunately,
  1012.         % some files distributed by Adobe lack the Type key
  1013.         % in some of the Pages nodes!  Instead, we check for Kids.
  1014.       dup oforce /Kids knownoget not { exit } if
  1015.       exch pop null
  1016.       0 1 3 index length 1 sub {
  1017.          2 index exch get
  1018.      dup oforce dup /Kids known { /Count oget } { pop 1 } ifelse
  1019.         % Stack: index kids null noderef count
  1020.      dup 5 index ge { pop exch pop exit } if
  1021.      5 -1 roll exch sub 4 1 roll pop
  1022.       } for exch pop
  1023.         % Stack: index null|noderef
  1024.       dup null eq { pop pop 1 null exit } if
  1025.     } loop
  1026. } bind def
  1027.  
  1028. % Find the N'th page of the document by iterating through the Pages tree.
  1029. % The first page is numbered 1.
  1030. /pdffindpageref {        % <int> pdffindpage <objref>
  1031.   dup pdffindpage?
  1032.         % Stack: index countleft noderef
  1033.    1 index 1 ne { pop pop /pdffindpage cvx /rangecheck signalerror } if
  1034.    exch pop
  1035.    PageIndex 2 index 1 sub 65533 .min 2 index oforce put
  1036.    PageNumbers 1 index oforce 3 index dup 65534 le
  1037.     { put }
  1038.     { pop pop pop }    % don't store more than 65534 pagenumbers
  1039.    ifelse
  1040.    exch pop
  1041. } bind def
  1042. /pdffindpage {        % <int> pdffindpage <pagedict>
  1043.   pdffindpageref oforce
  1044. } bind def
  1045.  
  1046. % Find the N'th page of the document.
  1047. % The first page is numbered 1.
  1048. /pdfgetpage        % <int> pdfgetpage <pagedict>
  1049.  { PageIndex 1 index 1 sub dup 65533 lt
  1050.     { get }
  1051.     { pop pop null }
  1052.    ifelse
  1053.    dup null ne
  1054.     { exch pop oforce }
  1055.     { pop pdffindpage }
  1056.    ifelse
  1057.  } bind def
  1058.  
  1059. % Find the page number of a page object (inverse of pdfgetpage).
  1060. /pdfpagenumber        % <pagedict> pdfpagenumber <int>
  1061.  {    % We use the simplest and stupidest of all possible algorithms....
  1062.    PageNumbers 1 index .knownget
  1063.     { exch pop
  1064.     }
  1065.     { 1 1 PageCount 1 add    % will give a rangecheck if not found
  1066.        { dup pdfgetpage oforce 2 index eq { exit } if pop
  1067.        }
  1068.       for exch pop
  1069.     }
  1070.    ifelse
  1071.  } bind def
  1072.  
  1073. % Arrange the four elements that define a rectangle into a 'normal' order.
  1074. /normrect_elems   % <x1> <y1> <x2> <y2> normrect_elems <llx> <lly> <urx> <ury>
  1075. {
  1076.     exch 4 1 roll            % <x2> <x1> <y1> <y2>
  1077.     2 copy gt { exch } if        % <x2> <x1> <lly> <ury>
  1078.     4 2 roll 2 copy lt { exch } if    % <lly> <ury> <urx> <llx>
  1079.     4 1 roll exch            % <llx> <lly> <urx> <ury>
  1080. } bind def
  1081.  
  1082. % Arrange a rectangle into a 'normal' order.  I.e the lower left corner
  1083. % followed by the upper right corner.
  1084. /normrect     % <rect> normrect <rect>
  1085. {
  1086.     aload pop normrect_elems 4 array astore
  1087. } bind def
  1088.  
  1089. /fix_empty_rect_elems % </Name> <x1> <y1> <x2> <y2> fix_empty_rect_elems <x1> <y1> <x2'> <y2'>
  1090. {  dup 3 index eq { //true } { 1 index 4 index eq } ifelse {
  1091.      pop pop pop pop
  1092.      (   **** Warning:  File has an empty ) pdfformaterror pdfstring cvs pdfformaterror
  1093.      (. Using the current page size instead.\n) pdfformaterror
  1094.      0 0 currentpagedevice /PageSize get aload pop
  1095.    } {
  1096.      5 -1 roll pop
  1097.    } ifelse
  1098. } bind def
  1099.  
  1100. /boxrect        % <llx> <lly> <urx> <ury> boxrect <x> <y> <w> <h>
  1101.  { exch 3 index sub exch 2 index sub
  1102.  } bind def
  1103. /resolvedest {        % <name|string|other> resolvedest <other|null>
  1104.   dup type /nametype eq {
  1105.     Trailer /Root oget /Dests knownoget {
  1106.       exch knownoget not { null } if
  1107.     } {
  1108.       pop null
  1109.     } ifelse
  1110.   } {
  1111.     dup type /stringtype eq {
  1112.       Trailer /Root oget /Names knownoget {
  1113.     /Dests knownoget {
  1114.       exch nameoget
  1115.     } {
  1116.       pop null
  1117.     } ifelse
  1118.       } {
  1119.     pop null
  1120.       } ifelse
  1121.     } if
  1122.   } ifelse
  1123. } bind def
  1124.  
  1125. % Procedures to do the necessary transformations of view destinations
  1126. % <PDF2PS_matrix> <rot> <view> -- <view'>
  1127. /viewdestprocs 8 dict dup begin
  1128.     /Fit  { exch pop exch pop } bind def
  1129.     /FitH {
  1130.     aload pop
  1131.     0 4 -1 roll 1 and 0 eq { exch } if
  1132.     4 -1 roll transform exch pop
  1133.     2 array astore
  1134.     } bind def
  1135.     /FitV {
  1136.     aload pop
  1137.     0 4 -1 roll 1 and 0 ne { exch } if
  1138.     4 -1 roll transform pop
  1139.     2 array astore
  1140.     } bind def
  1141.     /FitB  /Fit  load def
  1142.     /FitBH /FitH load def
  1143.     /FitBV /FitV load def
  1144.     /XYZ  {
  1145.     aload pop
  1146.     3 1 roll
  1147.     2 copy 7 -1 roll 1 and 0 ne { exch } if    4 2 roll    % odd rotation switches x<->y
  1148.     2 { dup null eq { pop 0 } if exch } repeat        % replace nulls with 0
  1149.     7 -1 roll transform                    % transform coordinates
  1150.     2 { 3 -1 roll null eq { pop null } if exch } repeat % put the nulls back
  1151.     3 -1 roll
  1152.     4 array astore
  1153.     } bind def
  1154.     /FitR {
  1155.     exch pop
  1156.     aload pop
  1157.     2 { 5 index transform 4 2 roll } repeat normrect_elems
  1158.     5 array astore
  1159.     exch pop
  1160.     } bind def
  1161. end readonly def
  1162.  
  1163. /linkdest {        % <link|outline> linkdest
  1164.             %   ([/Page <n>] /View <view> | ) <link|outline>
  1165.   dup /Dest knownoget
  1166.     { resolvedest
  1167.       dup type /dicttype eq { /D knownoget not { null } if } if
  1168.       dup null eq
  1169.        { pop }
  1170.        { dup 0 oget
  1171.      false % don't have a page# and transformation matrix (yet)
  1172.      1 index type /dicttype eq {
  1173.        1 index /Type knownoget {
  1174.              /Page eq {
  1175.            pop % the "false" flag
  1176.            dup pdf_cached_PDF2PS_matrix exch
  1177.            dup /Rotate pget not { 0 } if 90 idiv exch
  1178.                pdfpagenumber
  1179.                true % now we have a page# and a transformation matrix
  1180.              } if
  1181.            } if
  1182.          } if
  1183.      % stack: <link|outline> <dest>    ( <PDF2PS_matrix> <rot>    <page#>    true  |     <page> false )
  1184.      {
  1185.        /Page exch 6    2 roll
  1186.        % stack: [/Page <page#>] <link|outline> <dest> <PDF2PS_matrix> <rot>
  1187.        3 -1 roll dup length 1    sub 1 exch getinterval /View 4 1 roll
  1188.        % stack: [/Page <page#>] <link|outline> /View <PDF2PS_matrix> <rot> <view>
  1189.        //viewdestprocs 1 index 0 get get exec
  1190.        3 -1 roll
  1191.      } { 
  1192.        pop
  1193.        dup length 1 sub 1 exch getinterval /View exch 3 -1 roll
  1194.      } ifelse
  1195.        }
  1196.       ifelse
  1197.     }
  1198.    if
  1199. } bind def
  1200. % <pagedict> mark ... -proc- <page#> <error>
  1201. /namedactions 8 dict dup begin
  1202.   /FirstPage { 1 //false } def
  1203.   /LastPage { pdfpagecount //false } def
  1204.   /NextPage { counttomark 2 add index pdfpagenumber 1 add dup pdfpagecount gt } bind def
  1205.   /PrevPage { counttomark 2 add index pdfpagenumber 1 sub dup 1 lt } bind def
  1206. end readonly def
  1207. % <pagedict> <annotdict> -proc- -
  1208. /annottypes 5 dict dup begin
  1209.   /Text {
  1210.     mark exch
  1211.      { /Rect /Open /Contents }
  1212.      { 2 copy knownoget { 3 -1 roll } { pop } ifelse }
  1213.     forall pop /ANN pdfmark
  1214.   } bind def
  1215.   /Link {
  1216.     mark exch
  1217.     dup /C knownoget { /Color exch 3 -1 roll } if
  1218.      { /Rect /Border }
  1219.      { 2 copy knownoget { 3 -1 roll } { pop } ifelse }
  1220.     forall dup /A knownoget {
  1221.       dup /URI known {
  1222.         /A mark 3 2 roll    % <<>> /A [ <<action>>
  1223.         { oforce } forall
  1224.         .dicttomark
  1225.         3 2 roll
  1226.       } {
  1227.         dup /D knownoget {
  1228.       exch pop exch dup length dict copy dup /Dest 4 -1 roll put
  1229.         } {
  1230.       /N knownoget {        % Assume /S /Named
  1231.          namedactions exch .knownget {
  1232.                exec {
  1233.                  pop
  1234.                  (   **** Warning: Ignoring a named action pointing out of the document page range.\n)
  1235.                  pdfformaterror
  1236.                } {
  1237.                  /Page exch 3 -1 roll
  1238.                } ifelse
  1239.              } if
  1240.       } if
  1241.         } ifelse
  1242.       } ifelse
  1243.     } if
  1244.     linkdest pop /LNK pdfmark
  1245.   } bind def
  1246. end readonly def
  1247.  
  1248. % **** The following procedure should not be changed to allow clients
  1249. % **** to directly interface with the constituent procedures. GSview
  1250. % **** and some Artifex customers rely on the pdfshowpage_init,
  1251. % **** pdfshowpage_setpage, pdfshowpage_finish so all logic should be
  1252. % **** implemented in one of those three procedures.
  1253. /pdfshowpage        % <pagedict> pdfshowpage -
  1254.  { dup /Page exch store
  1255.    pdfshowpage_init 
  1256.    pdfshowpage_setpage 
  1257.    pdfshowpage_finish
  1258.  } bind def
  1259.  
  1260. /pdfpagecontents    % <pagedict> pdfpagecontents <contents>
  1261.  { } bind def
  1262.  
  1263. /pdfshowpage_init     % <pagedict> pdfshowpage_init <pagedict>
  1264.  { /DSCPageCount DSCPageCount 1 add store
  1265.  } bind def
  1266.  
  1267. /get_media_box { % <pagedict> get_media_box <box>
  1268.   /MediaBox pget not {
  1269.     (   **** Page has no /MediaBox attribute. Using the current page size.\n)
  1270.     pdfformaterror
  1271.     [ 0 0 currentpagedevice /PageSize get aload pop ]
  1272.   } if
  1273. } bind def
  1274.  
  1275. % Compute the matrix that transforms the PDF->PS "default" user space
  1276. /pdf_PDF2PS_matrix {    % <pdfpagedict> -- matrix
  1277.   matrix currentmatrix matrix setmatrix exch
  1278.   % stack: savedCTM <pdfpagedict>
  1279.   dup /CropBox pget dup {exch pop} if //systemdict /UseCropBox known and {
  1280.     /CropBox 2 copy pget pop
  1281.   } {
  1282.     /MediaBox 1 index get_media_box
  1283.   } ifelse
  1284.   % stack: savedCTM <pdfpagedict> /Crop|MediaBox <Crop|Media Box>
  1285.   oforce_elems normrect_elems fix_empty_rect_elems 4 array astore
  1286.   //systemdict /PDFFitPage known {
  1287.     PDFDEBUG { (Fiting PDF to imageable area of the page.) = flush } if
  1288.     currentpagedevice /.HWMargins get aload pop
  1289.     currentpagedevice /PageSize get aload pop
  1290.     % Adjust PageSize and .HWMargins for the page portrait/landscape orientation
  1291.     2 copy gt
  1292.     7 index aload pop 3 -1 roll sub 3 1 roll exch sub exch
  1293.     10 index /Rotate pget not { 0 } if 90 idiv 1 and 0 ne { exch } if
  1294.     gt
  1295.     ne {
  1296.       2 copy ne {
  1297.         % rotate the .HWMargins
  1298.         2 copy lt {
  1299.       6 2 roll 4 -1 roll 6 -2 roll
  1300.         } {
  1301.       6 2 roll 4  1 roll 6 -2 roll
  1302.         } ifelse
  1303.         % rotate the page dimensions
  1304.         exch
  1305.       } if
  1306.     } if
  1307.     3 -1 roll sub 3 1 roll exch sub exch
  1308.     % stack: savedCTM <pdfpagedict> <Crop|Media Box> Xmin Ymin Xmax Ymax
  1309.     PDFDEBUG { (    Translate up by [ ) print 3 index =print (, ) print 2 index =print ( ]) = flush } if
  1310.     3 index 3 index translate        % move origin up to imageable area
  1311.     2 index sub exch 3 index sub exch 4 2 roll pop pop
  1312.         % stack: savedCTM <pdfpagedict> [Box] XImageable YImageable
  1313.     2 index aload pop 2 index sub exch 3 index sub exch 4 2 roll pop pop
  1314.     5 index /Rotate pget not { 0 } if 90 idiv 1 and 0 ne { exch } if
  1315.         % stack: savedCTM <pdfpagedict> [Box] XImageable YImageable XBox YBox
  1316.     3 -1 roll exch div 3 1 roll div .min
  1317.     PDFDEBUG { (    Scale by ) print dup = flush } if
  1318.   } {
  1319.     //systemdict /NoUserUnit .knownget not { false } if {
  1320.       1
  1321.     } {
  1322.       1 index /UserUnit knownoget {
  1323.         PDFDEBUG { (Scaling due to UserUnit by ) print dup = flush } if
  1324.       } {
  1325.         1
  1326.       } ifelse
  1327.     } ifelse
  1328.   } ifelse
  1329.   % stack: savedCTM <pdfpagedict> [Box] scale
  1330.   dup scale
  1331.   % Rotate according to /Rotate
  1332.   aload pop boxrect
  1333.   {
  1334.     {     pop pop }
  1335.     { -90 rotate pop neg 0 translate }
  1336.     { 180 rotate neg exch neg exch translate }
  1337.     {  90 rotate neg 0 exch translate pop }
  1338.   }
  1339.   5 index /Rotate pget not { 0 } if
  1340.   PDFDEBUG { dup 0 ne { (Rotating by ) print dup =print ( degrees.) = flush } if } if
  1341.   90 idiv 3 and get exec
  1342.   % Now translate to the origin given in the Crop|Media Box
  1343.   exch neg exch neg translate
  1344.   % stack: savedCTM <pdfpagedict>
  1345.   pop
  1346.   matrix currentmatrix exch setmatrix
  1347. } bind def
  1348.  
  1349. % Cache the matrix that transforms the PDF->PS "default" user space
  1350. % into <pdfpagedict> under the key //PDF2PS_matrix_key, then return it
  1351. /PDF2PS_matrix_key (PDF->PS matrix) cvn def
  1352. /pdf_cached_PDF2PS_matrix {  % <pdfpagedict> -- <PDF2PS_matrix>
  1353.   dup //PDF2PS_matrix_key .knownget {
  1354.     exch pop
  1355.   } {
  1356.     dup dup pdf_PDF2PS_matrix //PDF2PS_matrix_key exch put
  1357.     //PDF2PS_matrix_key get
  1358.   } ifelse
  1359. } bind def
  1360. currentdict /PDF2PS_matrix_key undef
  1361.  
  1362. /.pdfshowpage_Install {    % <pagedict> [<prevproc>] .pdfshowpage_Install -
  1363.   0 get exec
  1364.   pdf_cached_PDF2PS_matrix concat
  1365. } bind def
  1366.  
  1367. /pdfshowpage_setpage {    % <pagedict> pdfshowpage_setpage <pagedict>
  1368.   6 dict begin        % for setpagedevice
  1369.     % Stack: pdfpagedict
  1370.   % UseCIEColor is always true for PDF; see the comment in runpdf above
  1371.   /UseCIEColor true def
  1372.   /Orientation 0 def
  1373.   currentpagedevice
  1374.     % Stack: pdfpagedict currentpagedevicedict
  1375.   1 index /CropBox pget dup {exch pop} if //systemdict /UseCropBox known and {
  1376.     /CropBox 2 index /CropBox pget % will use the CropBox
  1377.   } {
  1378.     /MediaBox 2 index get_media_box true % will use the MediaBox
  1379.   } ifelse
  1380.   {
  1381.     oforce_elems normrect_elems fix_empty_rect_elems boxrect 4 2 roll pop pop
  1382.     3 index /Rotate pget not { 0 } if 90 idiv 1 and 0 ne { exch } if
  1383.     % stack: pdfpagedict currentpagedevicedict boxwidth boxheight
  1384.     //systemdict /PDFFitPage known {
  1385.       % Preserve page size,
  1386.       % but choose portrait/landscape depending on box width:height ratio
  1387.       % (if box width == height, select portrait orientation)
  1388.       gt
  1389.       1 index /PageSize get aload pop
  1390.       2 copy gt
  1391.       4 -1 roll ne { exch } if
  1392.     } {
  1393.       % Set the page size.
  1394.       //systemdict /NoUserUnit .knownget not { false } if not {
  1395.         3 index /UserUnit knownoget {
  1396.           dup 4 -1 roll mul 3 1 roll mul
  1397.         } if
  1398.       } if
  1399.     } ifelse
  1400.     2 array astore /PageSize exch def
  1401.   } {
  1402.     pop % pops /Crop|MediaBox
  1403.   } ifelse
  1404.   % Determine the number of spot colors used on the page.  Note: This searches
  1405.   % the pages resources.  It may be high if a spot color is in a resource but
  1406.   % is not actually used on the page.
  1407.   /PageSpotColors 2 index countspotcolors def
  1408.  
  1409.   % Let the device know if we will be using PDF 1.4 transparency.
  1410.   % The clist logic may need to adjust the size of bands.
  1411.   1 index pageusestransparency /PageUsesTransparency exch def
  1412.   dup /Install .knownget {
  1413.             % Don't let the Install procedure get more deeply
  1414.             % nested after every page.
  1415.       dup type dup /arraytype eq exch /packedarraytype eq or {
  1416.     dup length 4 eq {
  1417.       dup 2 get /.pdfshowpage_Install load eq {
  1418.         1 get 0 get    % previous procedure
  1419.       } if
  1420.     } if
  1421.       } if
  1422.   } {
  1423.     { }
  1424.   } ifelse 1 array astore
  1425.   2 index exch /.pdfshowpage_Install load /exec load
  1426.   4 packedarray cvx
  1427.     % Stack: pagedict currentpagedict installproc
  1428.   /Install exch def
  1429.     % Stack: pagedict currentpagedict
  1430.   pop currentdict end setpagedevice
  1431. } bind def
  1432.  
  1433. /.free_page_resources {   % - .free_page_resources -
  1434.   Page /Resources pget {
  1435.     /Shading knownoget {
  1436.       { dup type /dicttype eq {
  1437.           dup /.shading_dict known {
  1438.             dup /.shading_dict undef
  1439.           } if
  1440.         } if
  1441.         pop pop
  1442.       } forall
  1443.     } if
  1444.   } if
  1445. } bind def
  1446.  
  1447. /pdfshowpage_finish {    % <pagedict> pdfshowpage_finish -
  1448.    save /PDFSave exch store
  1449.    /PDFdictstackcount countdictstack store
  1450.    (before exec) VMDEBUG
  1451.  
  1452.    % set up color space substitution (this must be inside the page save)
  1453.    pdfshowpage_setcspacesub
  1454.  
  1455.   .writepdfmarks {
  1456.  
  1457.     % Copy the crop box.
  1458.     dup /CropBox pget {
  1459.         % .pdfshowpage_Install transforms the user space -
  1460.         % do same here with the CropBox.
  1461.       oforce_elems
  1462.       2 { Page pdf_cached_PDF2PS_matrix transform 4 2 roll } repeat
  1463.       normrect_elems /CropBox 5 1 roll fix_empty_rect_elems 4 array astore
  1464.       mark /CropBox 3 -1 roll
  1465.       /PAGE pdfmark
  1466.     } if
  1467.  
  1468.     % Copy annotations and links.
  1469.     dup /Annots knownoget {
  1470.       0 1 2 index length 1 sub
  1471.        { 1 index exch oget
  1472.          dup type /dicttype eq {
  1473.            dup /Subtype oget annottypes exch .knownget { exec } { pop } ifelse
  1474.          } {
  1475.            pop
  1476.          } ifelse
  1477.        }
  1478.       for pop
  1479.     } if
  1480.  
  1481.   } if        % end .writepdfmarks
  1482.  
  1483.     % Display the actual page contents.
  1484.    6 dict begin
  1485.    /BXlevel 0 def
  1486.    /BGDefault currentblackgeneration def
  1487.    /UCRDefault currentundercolorremoval def
  1488.     %****** DOESN'T HANDLE COLOR TRANSFER YET ******
  1489.    /TRDefault currenttransfer def
  1490.   matrix currentmatrix 2 dict
  1491.   2 index /CropBox pget {
  1492.     oforce_elems normrect_elems boxrect
  1493.     4 array astore 1 index /ClipRect 3 -1 roll put
  1494.   } if
  1495.   dictbeginpage setmatrix
  1496.   /DefaultQstate qstate store
  1497.  
  1498.   count 1 sub /pdfemptycount exch store
  1499.     % If the page uses any transparency features, show it within
  1500.     % a transparency group.
  1501.   dup pageusestransparency dup /PDFusingtransparency exch def {
  1502.     % Show the page within a PDF 1.4 device filter.
  1503.     0 .pushpdf14devicefilter {
  1504.       /DefaultQstate qstate store        % device has changed -- reset DefaultQstate
  1505.       % If the page has a Group, enclose contents in transparency group.
  1506.       % (Adobe Tech Note 5407, sec 9.2)
  1507.       dup /Group knownoget {
  1508.     1 index /CropBox pget {
  1509.           /CropBox exch
  1510.         } {
  1511.       1 index get_media_box /MediaBox exch
  1512.     } ifelse
  1513.         oforce_elems normrect_elems fix_empty_rect_elems 4 array astore .beginformgroup {
  1514.       showpagecontents
  1515.     } stopped {
  1516.       .discardtransparencygroup stop
  1517.     } if .endtransparencygroup
  1518.       } {
  1519.     showpagecontents
  1520.       } ifelse
  1521.     } stopped {
  1522.       % todo: discard
  1523.       .poppdf14devicefilter 
  1524.       /DefaultQstate qstate store    % device has changed -- reset DefaultQstate
  1525.       stop
  1526.     } if .poppdf14devicefilter
  1527.     /DefaultQstate qstate store    % device has changed -- reset DefaultQstate
  1528.   } {
  1529.     showpagecontents
  1530.   } ifelse
  1531.   .free_page_resources
  1532.   % todo: mixing drawing ops outside the device filter could cause
  1533.   % problems, for example with the pnga device.
  1534.   endpage
  1535.   end            % scratch dict
  1536.   % Indicate that the number of spot colors is unknown in case the next page
  1537.   % imaged is a PS file.
  1538.   << /PageSpotColors -1 >> .setpagedevice
  1539.   % Some PDF files don't have matching q/Q (gsave/grestore) so we need
  1540.   % to clean up any left over dicts from the dictstack
  1541.   countdictstack PDFdictstackcount sub dup 0 ne { 
  1542.     (   **** Warning: File has imbalanced q/Q operators \(too many q's\)\n)
  1543.     pdfformaterror
  1544.     { end } repeat
  1545.   } {
  1546.     pop
  1547.   } ifelse
  1548.   (after exec) VMDEBUG
  1549.   Repaired        % pass Repaired state around the restore
  1550.   PDFSave restore
  1551.   /Repaired exch def
  1552. } bind def
  1553.  
  1554. % Display the contents of a page (including annotations).
  1555. /showpagecontents {    % <pagedict> showpagecontents -
  1556.   dup        % Save the pagedict for the Annotations
  1557.   count 1 sub  /pdfemptycount exch store
  1558.   gsave        % preserve gstate for Annotations later
  1559.   /Contents knownoget not { 0 array } if
  1560.   dup type /arraytype ne { 1 array astore } if {
  1561.     oforce false resolvestream pdfopdict .pdfrun
  1562.   } forall
  1563.   % check for extra garbage on the ostack and clean it up
  1564.   count pdfemptycount sub dup 0 ne {
  1565.     (   **** File did not complete the page properly and may be damaged.\n)
  1566.     pdfformaterror
  1567.     { pop } repeat
  1568.   } {
  1569.     pop
  1570.   } ifelse
  1571.   grestore
  1572.   % Draw the annotations
  1573.   //systemdict /ShowAnnots .knownget not { //true } if {
  1574.     /Annots knownoget {
  1575.       { oforce
  1576.         dup //null ne {
  1577.           drawannot
  1578.         } {
  1579.           pop
  1580.         } ifelse
  1581.       } forall
  1582.     } if
  1583.   } if
  1584.   //systemdict /ShowAcroForm .knownget { //true eq } { //false } ifelse {
  1585.     Trailer /Root oget /AcroForm knownoget { draw_acro_form } if
  1586.   } if
  1587. } bind def
  1588.  
  1589. /processcolorspace {    % - processcolorspace <colorspace>
  1590.     % The following is per the PLRM3.
  1591.   currentdevice 1 dict dup /ProcessColorModel dup put .getdeviceparams
  1592.   exch pop exch pop
  1593.   dup type /nametype ne { cvn } if
  1594.   dup { setcolorspace } .internalstopped { pop /DeviceRGB } if
  1595. } bind def
  1596.  
  1597. % ------ Transparency support ------ %
  1598.  
  1599. % Define minimum PDF version for checking for transparency features.
  1600. % Transparency is a 1.4 feature however we have seen files that claimed
  1601. % to be PDF 1.2 with transparency features. Bug 689288.
  1602. /PDFtransparencyversion 1.2 def
  1603.  
  1604. % Determine whether a page might invoke any transparency features:
  1605. %    - Non-default BM, ca, CA, or SMask in an ExtGState
  1606. %    - Image XObject with SMask
  1607. % Note: we deliberately don't check to see whether a Group is defined,
  1608. % because Adobe Illustrator 10 (and possibly other applications) define
  1609. % a page-level group whether transparency is actually used or not.
  1610. % Ignoring the presence of Group is justified because, in the absence
  1611. % of any other transparency features, they have no effect.
  1612. /pageusestransparency {        % <pagedict> pageusestransparency <bool>
  1613.   PDFversion PDFtransparencyversion lt NOTRANSPARENCY or {
  1614.     pop //false
  1615.   } {
  1616.     dup //false exch {
  1617.       4 dict 1 index resourceusestransparency { pop not exit } if
  1618.       /Parent knownoget not { exit } if
  1619.     } loop
  1620.     % Also check for transparency in the annotation (if not in resources).
  1621.     { pop //true } { annotsusetransparency } ifelse
  1622.   } ifelse
  1623. } bind def
  1624.  
  1625. % Check if transparency is specified in an ExtGState dict
  1626. /extgstateusestransparency {    % <gstate dict> extgstateusestransparency <bool>
  1627.   //false exch        % Assume no transparency
  1628.   {            % establish loop context
  1629.     exch pop oforce
  1630.     dup /BM knownoget { dup /Normal ne exch /Compatible ne and
  1631.                         { pop not exit } if
  1632.                           } if
  1633.     dup /ca knownoget { 1 ne { pop not exit } if } if
  1634.     dup /CA knownoget { 1 ne { pop not exit } if } if
  1635.     dup /SMask knownoget { /None ne { pop not exit } if } if
  1636.     pop
  1637.   } forall
  1638. } bind def
  1639.  
  1640. % Check the Resources of a page or Form. Check for loops in the resource chain.
  1641. /resourceusestransparency {    % <dict> <dict> resourceusestransparency <bool>
  1642.   {    % Use loop to provide an exitable context.
  1643.     /Resources knownoget not { 0 dict } if
  1644.     2 copy .knownget {
  1645.       { % Some circular references may be missed because scanning stops
  1646.         % when the 1st transparency is found.
  1647.         (   **** File has circular references in resource dictionaries.\n)
  1648.         pdfformaterror
  1649.       } if
  1650.       pop //false exit
  1651.     } if
  1652.     2 copy //true put              % In the current chain.
  1653.     dup /ExtGState knownoget {
  1654.       extgstateusestransparency
  1655.       { pop //true exit } if
  1656.     } if
  1657.     dup /XObject knownoget {
  1658.       //false exch {
  1659.     exch pop oforce dup /Subtype get
  1660.     dup /Image eq { 1 index /SMask known { pop pop not exit } if } if
  1661.     /Form eq {
  1662.       3 index exch resourceusestransparency { not exit } if
  1663.     } {
  1664.       pop
  1665.     } ifelse
  1666.       } forall { pop //true exit } if
  1667.     } if
  1668.     2 copy //false put             % Visited but not in the current chain.
  1669.     pop //false exit
  1670.   } loop
  1671.   exch pop
  1672. } bind def
  1673.  
  1674. % Check if the annotations on a page use transparency
  1675. /annotsusetransparency {    % <page dict> annotsusetransparency <bool>
  1676.    //false exch            % Assume no transparency
  1677.    /Annots knownoget {        % Get Annots array
  1678.      {
  1679.        oforce
  1680.        dup //null ne {
  1681.          /AP knownoget {    % Get appearance dict for the annoation
  1682.            /N knownogetdict {     % Get the /N (i.e. normal) appearance stream
  1683.              4 dict exch resourceusestransparency { pop //true exit } if
  1684.            } if
  1685.          } if              % If AP dict known
  1686.        } {
  1687.          pop
  1688.        } ifelse
  1689.      } forall            % For all annots on the page
  1690.    } if
  1691. } bind def
  1692.  
  1693. % Add a color name to our spot color list.  Ignore /All and /None
  1694. /putspotcolor {            % <name> <spotcolordict> putspotcolor -
  1695.   % The 'name' could be a string.  If so then convert to a name.
  1696.   exch dup type /stringtype eq { cvn } if
  1697.   dup dup /None eq exch /All eq or { pop pop } { 0 put } ifelse
  1698. } bind def
  1699.  
  1700. % Determine which spot colors are used within a color space  Note: This
  1701. % dict will include all colors used in Separation or DeviceN color spaces.
  1702. % Thus it may include Cyan, Magenta, Yellow, and Black.
  1703. %    <colorspace> <spotcolordict> colorspacespotcolors -
  1704. /colorspacespotcolors {
  1705.   exch dup type /arraytype eq {
  1706.     % If we have an Indexed color space then get the base space.
  1707.     dup 0 oget dup /Indexed eq {
  1708.       pop 1 oget 2 copy colorspacespotcolors
  1709.     } {
  1710.       % Stack:  <spotcolordict> <colorspace> <colorspacetype>
  1711.       dup /Separation eq exch /DeviceN eq or {
  1712.         dup 1 oget dup type /arraytype eq { 
  1713.       { oforce 2 index putspotcolor } forall
  1714.         } {
  1715.           2 index putspotcolor
  1716.         } ifelse
  1717.       } if
  1718.     } ifelse
  1719.   } if
  1720.   pop pop
  1721. } bind def
  1722.  
  1723. % Check the Resources of a page, form, or annotation.  Determine which spot
  1724. % colors are used within the resource  Note: The spot color dict will include
  1725. % all colors used in Separation or DeviceN color spaces.  Thus it may include
  1726. % Cyan, Magenta, Yellow, and Black.  We also pass a dict that is used to check
  1727. % for loops in the resource list.
  1728. %    <spotcolordict> <loopdict> <page/form/annot dict>
  1729. %          resourcespotcolors <spotcolordict> <loopdict>
  1730. /resourcespotcolors {
  1731.   {    % Use loop to provide an exitable context.
  1732.     % Exit if no Resources entry
  1733.     /Resources knownoget not { exit } if
  1734.     % Exit if we have already seen this dict
  1735.     2 copy known { pop exit } if
  1736.  
  1737.     % Save the Resources dict into our loop checking dict.
  1738.     2 copy 0 put
  1739.  
  1740.     % Scan resources that might contain a color space.
  1741.     dup /ColorSpace knownoget {
  1742.       { exch pop oforce 3 index colorspacespotcolors } forall
  1743.     } if
  1744.     dup /Pattern knownoget {
  1745.       { exch pop oforce 4 copy exch pop resourcespotcolors pop pop pop } forall
  1746.     } if
  1747.     dup /Shading knownoget {
  1748.       { exch pop oforce /ColorSpace oget 3 index colorspacespotcolors } forall
  1749.     } if
  1750.     /XObject knownoget {
  1751.       { exch pop oforce dup
  1752.         /Subtype get /Form eq { resourcespotcolors } { pop } ifelse
  1753.       } forall
  1754.     } if
  1755.     exit
  1756.   } loop
  1757. } bind def
  1758.  
  1759. % Determine which spot colors are used within the annotations.  Note: This
  1760. % dict will include all colors used in Separation or DeviceN color spaces.
  1761. % Thus it may include Cyan, Magenta, Yellow, and Black.
  1762. %    <spotcolordict> <loopdict> <annotsarray>
  1763. %          annotsspotcolors <spotcolordict> <loopdict>
  1764. /annotsspotcolors {
  1765.   { oforce
  1766.     dup //null ne {
  1767.       /AP knownoget {    % Get appearance dict for the annoation
  1768.         /N knownogetdict {        % Get the /N (i.e. normal) appearance stream
  1769.           resourcespotcolors
  1770.         } if            % If normal appearance streamknown
  1771.       } if            % If AP dict known
  1772.     } { 
  1773.       pop
  1774.     } ifelse
  1775.  } forall
  1776. } bind def
  1777.  
  1778. % Determine spot colors are used within a page.  We are creating a dict to
  1779. % hold the spot color names as keys.  Using a dict avoids having to worry
  1780. % about duplicate entries.  The keys in the dict contain the spot color
  1781. % names.  However the values have no meaning.  Note: This dict will include
  1782. % all colors used in Separation or DeviceN color spaces specified in the
  1783. % page's resources.  Thus it may include Cyan, Magenta, Yellow, and Black.
  1784. % There is no attempt to verify that these color spaces are actually used
  1785. % within the object streams for the page.
  1786. /pagespotcolors {        % <pagedict> pagespotcolors <spotcolordict>
  1787.   dup
  1788.   % Create a dict to hold spot color names.
  1789.   0 dict exch
  1790.   % Create a dict to be used to check for reference loops.
  1791.   4 dict exch 
  1792.   % Check for color spaces in the Resources
  1793.   resourcespotcolors
  1794.   % Also check for color spaces in the annotations.
  1795.   3 -1 roll
  1796.   /Annots knownoget { annotsspotcolors } if
  1797.   pop                % Discard reference loop dict
  1798. } bind def
  1799.  
  1800. % Determine how many (if any) spot colors are used by a page.
  1801. % Note:  This count does not include Cyan, Magenta, Yellow, or Black
  1802. /countspotcolors {        % <pagedict> countspotcolors <count>
  1803.   pagespotcolors        % Get dict with all spot colors
  1804.   dup length            % spot color dict length
  1805.   % Remove CMYK from the spot color count.
  1806.   [ /Cyan /Magenta /Yellow /Black ]
  1807.   { 2 index exch known { 1 sub } if } forall
  1808.   exch pop            % Remove spot color dict
  1809. } bind def
  1810.  
  1811. % ------ ColorSpace substitution support ------ %
  1812.  
  1813. %
  1814. %  <pagedict>   pdfshowpage_setcspacesub   <pagedict>
  1815. %
  1816. % Set up color space substitution for a page. Invocations of this procedure
  1817. % must be bracketed by the save/restore operation for the page, to avoid
  1818. % unintended effects on other pages.
  1819. %
  1820. % If any color space substitution is used, and the current color space is a
  1821. % device dependent color space, make sure the current color space is updated.
  1822. % There is an optimization in the setcolorspace pseudo-operator that does
  1823. % nothing if both the current and operand color spaces are the same. For
  1824. % PostScript this optimization is disabled if the UseCIEColor page device
  1825. % parameter is true. This is not the case for PDF, as performance suffers
  1826. % significantly on some PDF files if color spaces are set repeatedly. Hence,
  1827. % if color space substitution is to be used, and the current color space
  1828. % is a device dependent color space, we must make sure to "transition" the
  1829. % current color space.
  1830. %
  1831. /pdfshowpage_setcspacesub
  1832.   {
  1833.     false
  1834.       { /DefaultGray /DefaultRGB /DefaultCMYK }
  1835.       {
  1836.         dup 3 index /ColorSpace //rget exec
  1837.           { resolvecolorspace /ColorSpace defineresource pop }
  1838.           { pop }
  1839.         ifelse
  1840.       }
  1841.     forall
  1842.  
  1843.     % if using color space substitution, "transition" the current color space
  1844.       {
  1845.         currentcolorspace dup length 1 eq   % always an array
  1846.           {
  1847.             0 get
  1848.             dup /DeviceGray eq 1 index /DeviceRGB eq or 1 index /DeviceCMYK or
  1849.               { /Pattern setcolorspace setcolorspace }
  1850.               { pop }
  1851.             ifelse
  1852.           }
  1853.           { pop }
  1854.         if
  1855.       }
  1856.     if
  1857.   }
  1858. bind def
  1859.  
  1860. % Write OutputIntents to device if the device handles it
  1861. /writeoutputintents {
  1862.   currentdevice 1 dict dup /OutputIntent //null put readonly
  1863.   .getdeviceparams
  1864.   mark ne { pop pop
  1865.     % device supports OutputIntent parameter
  1866.     Trailer /Root oget /OutputIntents knownoget {
  1867.       dup type /arraytype eq {
  1868.         {    % process all output profiles present
  1869.           oforce
  1870.           dup length dict .copydict
  1871.       dup /DestOutputProfile knownoget {
  1872.           PDFfile fileposition exch
  1873.         mark exch { oforce } forall .dicttomark
  1874.         //true resolvestream
  1875.         [ { counttomark 1 add index
  1876.             64000 string readstring
  1877.             not { exit } if
  1878.           } loop
  1879.         ] exch closefile
  1880.         0 1 index { length add } forall .bytestring
  1881.         0 3 2 roll {
  1882.           3 copy putinterval
  1883.           length add
  1884.         } forall pop
  1885.         exch PDFfile exch setfileposition
  1886.         1 index /DestOutputProfile 3 2 roll put
  1887.       } if
  1888.       % Convert to string array because it's easier for the device
  1889.       [ 1 index /OutputCondition knownoget not { () } if
  1890.         2 index /OutputConditionIdentifier knownoget not { () } if
  1891.         3 index /RegistryName knownoget not { () } if
  1892.         4 index /Info knownoget not { () } if
  1893.         5 index /DestOutputProfile knownoget not { () } if
  1894.       ]
  1895.       [ /OutputIntent 3 2 roll .pdfputparams pop pop
  1896.           pop      % done with this OutputIntent dictionary
  1897.         } forall
  1898.       } {
  1899.         pop
  1900.         (   **** Warning: OutputIntent attribute of a wrong type is ignored.\n)
  1901.         pdfformaterror
  1902.       } ifelse
  1903.     } if    % OutputIntents known
  1904.     % tell device there are no more OutputIntents
  1905.     [ /OutputIntent [ ] .pdfputparams pop pop
  1906.   } if
  1907. } bind def
  1908.  
  1909. end            % pdfdict
  1910. .setglobal
  1911.