home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 April / PCWorld_2001-04_cd.bin / Software / Vyzkuste / gs / gs650w32.exe / gs6.50 / lib / pdfopt.ps < prev    next >
Text File  |  2000-12-05  |  30KB  |  1,055 lines
  1. %    Copyright (C) 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of AFPL Ghostscript.
  4. % 
  5. % AFPL Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author or
  6. % distributor accepts any responsibility for the consequences of using it, or
  7. % for whether it serves any particular purpose or works at all, unless he or
  8. % she says so in writing.  Refer to the Aladdin Free Public License (the
  9. % "License") for full details.
  10. % 
  11. % Every copy of AFPL Ghostscript must include a copy of the License, normally
  12. % in a plain ASCII text file named PUBLIC.  The License grants you the right
  13. % to copy, modify and redistribute AFPL Ghostscript, but only under certain
  14. % conditions described in the License.  Among other things, the License
  15. % requires that the copyright notice and this notice be preserved on all
  16. % copies.
  17.  
  18. % $Id: pdfopt.ps,v 1.3.2.1 2000/12/01 05:48:45 rayjj Exp $
  19. % PDF linearizer ("optimizer").
  20.  
  21. .currentglobal true .setglobal
  22. /pdfoptdict 200 dict def
  23. pdfoptdict begin
  24.  
  25. % This linearizer is designed for simplicity, not for performance.
  26. % See the main program (the last procedure in the file) for comments
  27. % describing the main processing sequence.
  28.  
  29. % ---------------- Utilities ---------------- %
  30.  
  31. % ------ Data structures ------ %
  32.  
  33. % Distinguish dictionaries, arrays, and everything else.
  34. /ifdaelse {        % <obj> <dictproc> <arrayproc> <otherproc> ifdaelse -
  35.   3 index type dup /dicttype eq {
  36.     pop pop pop
  37.   } {
  38.     dup /arraytype ne exch /packedarraytype ne and {
  39.       exch
  40.     } if pop exch pop
  41.   } ifelse exec
  42. } bind def
  43.  
  44. % Implement dynamically growable arrays using a dictionary.
  45. /darray {        % <size> darray <darray>
  46.   dict
  47. } bind def
  48. /dadd {            % <darray> <value> dadd -
  49.   1 index length exch put
  50. } bind def
  51. /daforall {        % <darray> <proc> daforall -
  52.   /exch cvx /get cvx 3 -1 roll /exec cvx 5 packedarray cvx
  53.   0 1 2 index 0 get length 1 sub 4 -1 roll for
  54. } bind def
  55. /dacontents {        % <darray> dacontents <array>
  56.   [ exch { } daforall ]
  57. } bind def
  58. /dacontstring {        % <darray> dacontstring <string>
  59.   0 1 index { exch pop length add } forall string
  60.   dup /NullEncode filter
  61.             % Stack: darray str filter
  62.   3 -1 roll { 1 index exch writestring } daforall
  63.   closefile
  64. } bind def
  65.  
  66. % Force an object, mapping it if it is a reference.
  67. /omforcenew {        % <obj> omforce <obj'> <notseen>
  68.   dup oforce 2 copy eq { pop true } { exch 0 get omapnew exch pop } ifelse
  69. } bind def
  70. /omforce {        % <obj> omforce <obj'>
  71.   omforcenew pop
  72. } bind def
  73. /omget {        % <dict|array> <key> omget <obj>
  74.   get omforce
  75. } bind def
  76. % Visit an entire tree.
  77. /omvisit {        % <obj> omvisit -
  78.   omforcenew {
  79.     { { omvisit omvisit } forall }
  80.     { { omvisit } forall }
  81.     { pop }
  82.     ifdaelse
  83.   } {
  84.     pop
  85.   } ifelse
  86. } bind def
  87.  
  88. % Collect the list of currently mapped object numbers, in order.
  89. /omapped {        % - omapped <obj#s>
  90.   RMap length array RMap {
  91.     2 index 3 1 roll 1 sub exch put
  92.   } forall
  93. } bind def
  94.  
  95. % Collect the list of object numbers passed to omap by a procedure.
  96. /visited {        % <proc> visited <obj#s>
  97.   false currentomap 2 .execn
  98.   omapped exch setomap
  99. } bind def
  100.  
  101. % ------ Output ------ %
  102.  
  103. % Provide a framework for closure-based streams.
  104. .currentglobal false .setglobal
  105. userdict /clostreams 20 dict put    % stream -> [data endproc]
  106. .setglobal
  107. % Create a closure-based stream.
  108. /clostream {        % <data> <proc> <endproc> clostream <stream>
  109.   2 index 3 -1 roll /exec load 3 packedarray cvx
  110.   /NullEncode filter
  111.         % Stack: data endproc stream
  112.   clostreams 1 index 5 -2 roll 2 array astore put
  113. } bind def
  114. % Close a closure-based stream.
  115. /closend {        % <stream> closend <result>
  116.   dup closefile clostreams exch
  117.   2 copy get 3 1 roll undef aload pop exec
  118. } bind def
  119.  
  120. % Implement in-memory output streams.
  121. /msproc {        % <data> <more> <accum> msproc <scratch>
  122.   3 -1 roll dadd { 100 string } { () } ifelse
  123. } bind def
  124. /mstream {        % - mstream <mstream>
  125.   10 darray {msproc} {dacontstring} clostream
  126. } bind def
  127. /mcontents {        % <mstream> mcontents <string>
  128.   closend
  129. } bind def
  130.  
  131. % Implement a stream that only keeps track of its position.
  132. % (All streams should do this, but the PLRM doesn't require it.)
  133. /posbuf 100 string def
  134. /posproc {        % <data> <more> <accum> posproc <scratch>
  135.   0 2 copy get 5 -1 roll length add put
  136.   pop //posbuf
  137. } bind def
  138. /postream {        % - postream <postream>
  139.   [0] {posproc} {0 get} clostream
  140. } bind def
  141. /poslength {        % <postream> poslength <pos>
  142.   closend
  143. } bind def
  144.  
  145. % Implement streams with variable-bit-width data.
  146. % Note that these are dictionary objects, not stream objects.
  147. /bitstream {        % <stream> bitstream <bstream>
  148.   4 dict begin /S exch def /N 8 def /B 0 def
  149.   currentdict end
  150. } bind def
  151. /bitwrite {        % <bstream> <value> <width> bitwrite -
  152.   PDEBUG { ( ) print 1 index =only (:) print dup = } if
  153.   3 -1 roll begin
  154.   N exch sub dup 0 ge {
  155.     /N exch def N bitshift B add
  156.   } {
  157.     2 copy bitshift B add S exch write
  158.             % Stack: value -left
  159.     { 8 add dup 0 ge { exit } if
  160.       2 copy bitshift 255 and S exch write
  161.     } loop
  162.     /N 1 index def bitshift 255 and
  163.   } ifelse /B exch def
  164.   end
  165. } bind def
  166. /bitflush {        % <bstream> bitflush -
  167.   begin N 8 ne { S B write /B 0 def /N 8 def } if end
  168. } bind def
  169.  
  170. % Capture OFile output on the temporary file, in memory, or just as a length.
  171. /totemp {        % <proc> totemp <start> <end>
  172.   TFile fileposition OFile
  173.   /OFile TFile def 3 .execn
  174.   /OFile exch def
  175.   TFile fileposition
  176. } bind def
  177. /tomemory {        % <proc> tomemory <string>
  178.   OFile /OFile mstream def 2 .execn
  179.   OFile mcontents exch /OFile exch def
  180. } bind def
  181. /tolength {        % <proc> tolength <string>
  182.   OFile /OFile postream def 2 .execn
  183.   OFile poslength exch /OFile exch def
  184. } bind def
  185.  
  186. % Copy a range of bytes from TFile to OFile.
  187. /copyrange {        % <start> <end> copybytes -
  188.   TFile 2 index setfileposition
  189.   exch sub 1024 string exch {
  190.         % Stack: buf left
  191.     2 copy 1 index length .min 0 exch getinterval
  192.     TFile exch readstring pop OFile exch writestring
  193.     1 index length sub dup 0 le { exit } if
  194.   } loop pop pop
  195. } bind def
  196.  
  197. % Pad with blanks to a specified position.
  198. /padto {        % <pos> padto -
  199.   OFile fileposition sub
  200.   dup 0 lt {
  201.     (ERROR: file position incorrect by ) print =
  202.     /padto cvx /rangecheck signalerror
  203.   } {
  204.     { ( ) ows } repeat
  205.   } ifelse
  206. } bind def
  207.  
  208. % ---------------- Read objects into memory ---------------- %
  209.  
  210. /touch {        % <object> touch -
  211.   {
  212.     { touch touch } forall
  213.   } {
  214.     dup xcheck {
  215.         % Executable array, must be an indirect object.
  216.       dup 0 get resolved? { pop pop } { oforce touch } ifelse
  217.     } {
  218.       { touch } forall
  219.     } ifelse
  220.   } {
  221.     pop
  222.   } ifdaelse
  223. } bind def
  224.  
  225. % ---------------- Replace references with referents ---------------- %
  226.  
  227. /replaceable? {        % <value> replaceable? <bool>
  228.   dup type /integertype eq exch xcheck not and
  229. } bind def
  230. /replacement {        % <obj|ref> replacement <obj'>
  231.   dup oforce dup replaceable? { exch } if pop
  232. } bind def
  233.  
  234. /replacerefs {        % <object> replacerefs <object>
  235.   {
  236.     dup {
  237.       2 index 2 index undef
  238.       exch replacement exch replacement
  239.       2 index 3 1 roll put
  240.     } forall
  241.   } {
  242.     0 1 2 index length 1 sub {
  243.       1 index exch 2 copy get replacement put
  244.     } for
  245.   } {
  246.   } ifdaelse
  247. } bind def
  248.  
  249. /replaceReferences {    % - replaceReferences -
  250.   Objects { replacerefs pop } lforall
  251.         % Delete replaced objects.
  252.   0 1 Objects llength 1 sub {
  253.     Objects 1 index lget replaceable? {
  254.       PDEBUG { (Deleting ) print dup = } if
  255.       Generations 1 index 0 lput
  256.     } if pop
  257.   } for
  258. } bind def
  259.  
  260. % ---------------- Create new objects ---------------- %
  261.  
  262. /createObjects {    % [<obj>...] createObjects <firstobj#>
  263.   Objects llength dup
  264.   dup 3 index length add growPDFobjects
  265.         % Stack: objects objn objn
  266.   3 1 roll exch {
  267.     Objects 2 index 3 -1 roll lput
  268.     Generations 1 index 1 lput
  269.     1 add
  270.   } forall pop
  271. } bind def
  272.  
  273. % ---------------- Propagate attributes ---------------- %
  274.  
  275. /nopropattrs <<
  276.     % Never propagate these.
  277.   /Type dup /Kids dup /Count dup /Parent dup
  278.     % Handle Resources specially.
  279.   /Resources dup
  280. >> def
  281.  
  282. % Merge Resources.
  283. /mergeres {        % <fromdict> <todict> mergeres -
  284.         % Values in todict take priority over fromdict.
  285.   1 index /Resources .knownget {
  286.     1 index /Resources .knownget {
  287.         % Stack: fromdict todict fromres tores
  288.       exch oforce exch oforce
  289.         % todict's Resources may be shared, so make a copy.
  290.       dup length dict .copydict
  291.       exch {
  292.         % Stack: fromdict todict tores' fromkey fromvalue
  293.     2 index 2 index knownoget {
  294.         % Stack: fromdict todict tores' fromkey fromvalue tovalue
  295.       exch oforce exch
  296.         % ProcSet is an array, other types are dictionaries.
  297.       dup type /dicttype eq {
  298.         % Dictionary, not ProcSet.
  299.         exch dup length 2 index length add dict .copydict .copydict
  300.       } {
  301.         % Array or packed array, ProcSet.
  302.         % Use dictionaries to do the merge.
  303.         dup length 2 index length add dict begin
  304.         exch { dup def } forall { dup def } forall
  305.         mark currentdict end { pop } forall .packtomark
  306.       } ifelse
  307.     } if
  308.     2 index 3 1 roll put
  309.       } forall
  310.     } if /Resources exch put pop
  311.   } {
  312.     pop pop
  313.   } ifelse
  314. } bind def
  315.  
  316. % Merge attributes other than Resources.
  317. /mergeattrs {        % <fromdict> <todict> mergeattrs <fromdict> <todict>
  318.         % Values in todict take priority over fromdict.
  319.   1 index {
  320.         % Stack: fromdict todict fromkey fromvalue
  321.     //nopropattrs 2 index known {
  322.       pop pop
  323.     } {
  324.       2 index 2 index known { pop pop } { 2 index 3 1 roll put } ifelse
  325.     } ifelse
  326.   } forall
  327. } bind def
  328.  
  329. % Propagate attributes to a subtree.
  330. /proppage {        % <attrs> <subtree> proppage -
  331.         % We should be able to tell when we reach a leaf
  332.         % by finding a Type unequal to /Pages.  Unfortunately,
  333.         % some files distributed by Adobe lack the Type key
  334.         % in some of the Pages nodes!  Instead, we check for Kids.
  335.   dup /Kids knownoget {
  336.         % Accumulate inherited values.
  337.     3 1 roll
  338.         % Stack: kids attrs pagesnode
  339.     dup length dict .copydict mergeattrs
  340.     dup 3 1 roll mergeres
  341.     exch { oforce 1 index exch proppage } forall pop
  342.   } {
  343.         % Merge inherited values into the leaf.
  344.     mergeattrs mergeres
  345.   } ifelse
  346. } bind def
  347.  
  348. % Propagate attributes to all pages.
  349. /propagateAttributes {    % - propagateAttributes -
  350.   0 dict Trailer /Root oget /Pages oget proppage
  351. } bind def
  352.  
  353. % ---------------- Identify document-level objects ---------------- %
  354.  
  355. /identifyDocumentObjects {    % - identifyDocumentObjects <obj#s>
  356.   {
  357.     Trailer /Root omget
  358.     dup /PageMode .knownget { omvisit } if
  359.     dup /OpenAction .knownget { omvisit } if
  360.     Trailer /Encrypt .knownget { omvisit } if
  361.     dup /Threads .knownget {
  362.       omforce { omforce } forall
  363.     } if
  364.     dup /AcroForm .knownget { omvisit } if
  365.     pop
  366.   } visited
  367. } bind def
  368.  
  369. % ---------------- Identify the objects of each page ---------------- %
  370.  
  371. /identifyfont {        % <fontref> identifyfont -
  372.   omforce {
  373.     exch /FontDescriptor eq {
  374.       omforce dup /Flags .knownget { 32 and 0 ne } { false } ifelse
  375.       exch {
  376.     exch dup dup /FontFile eq exch /FontFile2 eq or
  377.     exch /FontFile3 eq or 2 index and {
  378.       fontfiles exch dadd
  379.     } {
  380.       omvisit
  381.     } ifelse
  382.       } forall pop
  383.     } {
  384.       omvisit
  385.     } ifelse
  386.   } forall
  387. } bind def
  388.  
  389. /identifyPageObjects {    % <extra> <page#> identifyPageObjects <obj#s>
  390.   pdffindpageref
  391.   4 dict begin
  392.   /images 10 darray def
  393.   /fontfiles 10 darray def
  394.   {
  395.     omforce
  396.         % Stack: extra page
  397.         % Visit any extra objects if applicable.
  398.     exch omvisit
  399.         % Visit Annots, if any.
  400.         % We don't try to defer the drawing information.
  401.     dup /Annots .knownget { omvisit } if
  402.         % Visit beads.
  403.     dup /B .knownget { omvisit } if
  404.         % Visit resources dictionaries.
  405.     dup /Resources .knownget {
  406.       omforce dup {
  407.         % Visit the first-level Resource dictionaries.
  408.     omforce pop pop
  409.       } forall {
  410.         % Visit the resources themselves.
  411.         % Skip Image XObjects, and FontFile streams if the
  412.         % FontDescriptor Flags have bit 6 set.
  413.         % We don't try to visit the resources in the order in which
  414.         % the Contents stream(s) reference(s) them.
  415.     exch dup /XObject eq {
  416.       pop oforce {
  417.         dup oforce /Subtype get /Image eq {
  418.           images exch dadd
  419.         } {
  420.           omvisit
  421.         } ifelse pop
  422.       } forall
  423.     } {
  424.       /Font eq {
  425.         oforce { identifyfont pop } forall
  426.       } {
  427.         oforce omvisit
  428.       } ifelse
  429.     } ifelse
  430.       } forall
  431.     } if
  432.         % Visit the Contents stream(s).
  433.     dup /Contents .knownget { omvisit } if
  434.         % Visit Image XObjects.  We don't try to visit them in
  435.         % reference order.
  436.     images { omvisit } daforall
  437.         % Visit FontFile streams.  We don't try to visit them in
  438.         % reference order.
  439.     fontfiles { omvisit } daforall
  440.     pop
  441.   } visited end
  442. } bind def
  443.  
  444. % Identify the objects of the first page.
  445. /identifyFirstPageObjects {    % -identifyFirstPageObjects <obj#s>
  446.   Trailer /Root oget null
  447.   1 index /PageMode knownoget {
  448.     /UseOutlines eq {
  449.       pop dup /Outlines get
  450.     } if
  451.   } if exch pop
  452.   1 identifyPageObjects
  453. } bind def
  454.  
  455. % Identify the non-shared objects of the other pages, and the shared objects.
  456. /identifyOtherPageObjects {    % - identifyOtherPageObjects [<pageobj#s> ...]
  457.                 %   <sharedobj#s>
  458.   4 dict begin
  459.   /marks lstring Objects llength lgrowto def
  460.         % Mark document-level and first page objectsw.
  461.   [CatalogNs FirstPageNs] {
  462.     { marks exch 255 lput } forall
  463.   } forall
  464.         % Collect objects of other pages and identify sharing.
  465.   [ 2 1 pdfpagecount { null exch identifyPageObjects } for ]
  466.   dup {
  467.     { marks exch 2 copy lget 1 add 254 min lput } forall
  468.   } forall
  469.   [ exch {
  470.     [ exch {
  471.       marks 1 index lget 1 ne { pop } if
  472.     } forall ]
  473.   } forall ]
  474.   [ 1 1 marks llength 1 sub {
  475.     marks 1 index lget dup 1 le exch 255 eq or { pop } if
  476.   } for ]
  477.   end
  478. } bind def
  479.  
  480. % Identify objects not associated with any page.
  481. /identifyNonPageObjects {    % - identifyNonPageObjects <obj#s>
  482.   4 dict begin
  483.   /marks lstring Objects llength lgrowto def
  484.   [[[LPDictN PHSN] CatalogNs FirstPageNs SharedNs] OtherPageNs] {
  485.     { { marks exch 1 lput } forall } forall
  486.   } forall
  487.     %****** PUT THESE IN A REASONABLE ORDER ******
  488.   [ 1 1 Objects llength 1 sub {
  489.     marks 1 index lget 0 eq {
  490.       Generations 1 index lget 0 eq { pop } if
  491.     } {
  492.       pop
  493.     } ifelse
  494.   } for ]
  495. } bind def
  496.  
  497. % ---------------- Assign object numbers ---------------- %
  498.  
  499. % Assign object numbers to all objects that will be copied.
  500. % Return the first (translated) object number in the First Page xref table.
  501. /assignObjectNumbers {        % - assignObjectNumbers -
  502.   OtherPageNs { { omap pop } forall } forall
  503.   SharedNs { omap pop } forall
  504.   NonPageNs { omap pop } forall
  505.         % Assign object numbers for the First Page xref table last.
  506.   LPDictN omap    % don't pop, this is the return value
  507.   CatalogNs { omap pop } forall
  508.   FirstPageNs { omap pop } forall
  509.   PHSN omap pop
  510. } bind def
  511.  
  512. % ---------------- Create the LPDict ---------------- %
  513.  
  514. % Create the contents of the LPDict.  Free variables:
  515. %   PHSStart PHSEnd FirstPageEnd Xref0Start FileEnd
  516. /createLPDict {            % <phsstart> <phsend> <firstpageend>
  517.                 %   <xref0start> <filelength> createLPDict -
  518.   LPDict
  519.   dup /Linearized 1 put
  520.   dup /L 4 -1 roll put
  521.   dup /T 4 -1 roll put
  522.   dup /E 4 -1 roll put
  523.   dup /H 5 -2 roll 1 index sub 2 array astore put
  524.   dup /O 1 pdffindpageref 0 get omap put
  525.   /N pdfpagecount put
  526. } bind def
  527.  
  528. % ---------------- Adjust object positions ---------------- %
  529.  
  530. /adjustObjectPositions {    % <boundary> <deltabelow> <deltaabove>
  531.                 %   adjustObjectPositions -
  532.     % Objects fall into 4 categories: LPDict, PHS, Catalog, and others.
  533.     % We handle the first two as special cases.
  534.   XRef {
  535.         % Stack: bdy below above key loc
  536.     dup 5 index ge { 2 } { 3 } ifelse index add
  537.     XRef 3 1 roll put
  538.   } forall pop pop pop
  539.   XRef LPDictN omap HeaderLength put
  540.   XRef PHSN omap PHSStart put
  541. } bind def
  542.  
  543. % ---------------- Write the output file ---------------- %
  544.  
  545. % Write objects identified by object number.
  546. /writeobjn {        % <obj#> writeobjn
  547.   Generations 1 index lget pdfwriteobj
  548. } bind def
  549. /writeobjns {        % <obj#s> writeobjns -
  550.   { writeobjn } forall
  551. } bind def
  552.  
  553. % Write the header.
  554. /writePart1 {        % - writePart1 -
  555.   pdfwriteheader
  556. } bind def
  557.  
  558. % Write the linearization parameters dictionary.
  559. /writePart2 {        % - writePart2 -
  560.   LPDictN writeobjn
  561. } bind def
  562.  
  563. % Write the First Page xref table and trailer.
  564. % Free variables: FirstPageXN.
  565. /writePart3 {        % <xrefstart> writePart3 -
  566.   FirstPageXN NObjects 1 add 1 index sub pdfwritexref
  567.   Trailer dup length 1 add dict copy
  568.   dup /Size NObjects 1 add put
  569.   dup /Prev 4 -1 roll put
  570.   pdfwritetrailer
  571.   0 pdfwritestartxref
  572. } bind def
  573.  
  574. % Write the Catalog and other required document-level objects.
  575. % Free variables: CatalogNs.
  576. /writePart4 {        % - writePart4 -
  577.   CatalogNs writeobjns
  578. } bind def
  579.  
  580. % Write the Primary Hint Stream.
  581. /writePart5 {        % - writePart5 -
  582.   PHSN writeobjn
  583. } bind def
  584.  
  585. % Write the First Page's objects.
  586. % Free variables: FirstPageNs.
  587. /writePart6 {        % - writePart6 -
  588.   FirstPageNs writeobjns
  589. } bind def
  590.  
  591. % Write the objects of other pages (Page + non-shared objects).
  592. % Free variables: OtherPageNs.
  593. /writePart7 {        % - writePart7 <lengths>
  594.   [ OtherPageNs {
  595.     OFile fileposition exch
  596.     writeobjns OFile fileposition exch sub
  597.   } forall ]
  598. } bind def
  599.  
  600. % Write the shared objects of other pages.
  601. % Free variables: SharedNs.
  602. /writePart8 {        % - writePart8 -
  603.   SharedNs writeobjns
  604. } bind def
  605.  
  606. % Write the other objects not associated with pages.
  607. % Free variables: NonPageNs.
  608. /writePart9 {        % - writePart9 -
  609.   NonPageNs writeobjns
  610. } bind def
  611.  
  612. % Write the main xref table and trailer.
  613. % Free variables: FirstPageXN.
  614. /writePart11xref {    % writePart11 -
  615.   0 FirstPageXN pdfwritexref
  616. } bind def
  617. /writePart11rest {    % <part3start> writePart11rest -
  618.   << /Size FirstPageXN >> pdfwritetrailer
  619.   pdfwritestartxref
  620. } bind def
  621.  
  622. % ---------------- Write hint tables ---------------- %
  623.  
  624. /bitsneeded {        % <maxvalue> bitsneeded <#bits>
  625.   0 exch { dup 0 eq { pop exit } if exch 1 add exch 2 idiv } loop
  626. } bind def
  627.  
  628. % Find the start and end of objects in the output.
  629. /omstart {        % <obj#> omstart <pos>
  630.   PDEBUG { (start\() print dup =only } if
  631.   omap XRef exch get
  632.   PDEBUG { (\)=) print dup = } if
  633. } bind def
  634. /omend {        % <obj#> omend <pos>
  635.     % The end of an object is the start of the next object.
  636.     % The caller must be sure that this object is not the last one
  637.     % in part 9.
  638.   PDEBUG { (end\() print dup =only } if
  639.   omap 1 add
  640.     % Check that the requested object wasn't the last one in part 6:
  641.     % the next object in the output file is the first in part 7.
  642.   PHSN omap 1 index eq { pop 1 } if
  643.   XRef exch get
  644.   PDEBUG { (\)=) print dup = } if
  645. } bind def
  646. /omlength {        % <obj#> omlength <length>
  647.   dup omend exch omstart sub
  648. } bind def
  649.  
  650. % Find the Contents of a page.
  651. /contentsobjects {    % <pagedict> contentsobjects <firstobj#> <lastobj#>
  652.   /Contents get
  653.   dup oforce dup type /dicttype eq {
  654.     pop dup
  655.   } {
  656.     dup 0 get exch dup length 1 sub get
  657.   } ifelse
  658.   exch 0 get exch 0 get
  659. } bind def
  660. /contentsstart {    % <pagedict> contentsstart <pos>
  661.   contentsobjects pop omstart
  662. } bind def
  663. /contentslength {    % <pagedict> contentslength <length>
  664.   contentsobjects omend exch omstart sub
  665. } bind def
  666.  
  667.  
  668. /writePageOffsetHints {
  669.   PDEBUG { /writePageOffsetHints == } if
  670.   20 dict begin
  671.   /bits OFile bitstream def
  672.   /bwn { bits 3 1 roll bitwrite } def
  673.  
  674.         % Least number of objects in a page:
  675.   FirstPageNs length OtherPageNs { length .min } forall
  676.   /minnop 1 index def 32 bwn
  677.         % Location of first page's Page object:
  678.   FirstPageNs 0 get omap XRef exch get 32 bwn
  679.         % Bits needed to represent greatest # of objects in a page:
  680.   FirstPageNs length OtherPageNs { length .max } forall
  681.   minnop sub bitsneeded /maxnopbits 1 index def 16 bwn
  682.         % Least length of a page:
  683.   FirstPageLength OtherPageLengths { .min } forall
  684.   /minpl 1 index def 32 bwn
  685.         % Bits needed to represent the greatest page length:
  686.   FirstPageLength OtherPageLengths { .max } forall
  687.   minpl sub bitsneeded /maxplbits 1 index def 16 bwn
  688.         % Least start of Contents offset:
  689.   0        % (Acrobat requires that this be 0.)
  690.   /minsco 1 index def 32 bwn
  691.         % Bits needed to represent the greatest start of Contents
  692.         % offset:
  693.   0        % (Acrobat requires that this be 0?!)
  694.   /maxscobits 1 index def 16 bwn
  695.         % Least contents length:
  696.   FirstPageNs 0 get Objects exch lget contentslength
  697.   OtherPageNs { 0 get Objects exch lget contentslength .min } forall
  698.   /mincl 1 index def 32 bwn
  699.         % Bits needed to represent the greatest Contents length:
  700.   FirstPageNs 0 get Objects exch lget contentslength
  701.   OtherPageNs { 0 get Objects exch lget contentslength .max } forall
  702.   mincl sub bitsneeded
  703.   /maxclbits 1 index def 16 bwn
  704.         % Bits needed to represent the greatest number of Shared
  705.   0        % Object references (we don't report any):
  706.   /maxsorbits 1 index def 16 bwn
  707.         % Bits needed to identify a Shared Object (we don't
  708.   0        % report any):
  709.   /sobits 1 index def 16 bwn
  710.         % Bits needed to represent numerator of fraction (only needed
  711.   0        % for Shared Object references, which we don't report):
  712.   /numfbits 1 index def 16 bwn
  713.         % Denominator of fraction (only needed for Shared Object
  714.         % references, which we don't report):
  715.   255    % arbitrary
  716.   /denf 1 index def 16 bwn
  717.  
  718.         % Number of objects in pages:
  719.   FirstPageNs length minnop sub maxnopbits bwn
  720.   OtherPageNs {
  721.     length minnop sub maxnopbits bwn
  722.   } forall
  723.  
  724.         % Total length of pages in bytes;
  725.   FirstPageLength minpl sub maxplbits bwn
  726.   OtherPageLengths {
  727.     minpl sub maxplbits bwn
  728.   } forall
  729.  
  730.         % Number of shared objects referenced from page:
  731.         % (Currently we don't report this.)
  732.   OtherPageNs length 1 add { 0 maxsorbits bwn } repeat
  733.  
  734.         % Since there are no shared object references,
  735.         % the next two sections are empty.
  736.  
  737.         % Contents offsets:
  738.   [FirstPageNs OtherPageNs aload pop] {
  739.     0 get Objects exch lget contentsstart minsco sub maxscobits bwn
  740.   } forall
  741.  
  742.         % Contents lengths:
  743.   [FirstPageNs OtherPageNs aload pop] {
  744.     0 get Objects exch lget contentslength mincl sub maxclbits bwn
  745.   } forall
  746.  
  747.   bits bitflush end
  748. } bind def
  749.  
  750. /writeSharedObjectHints {
  751.   PDEBUG { /writeSharedObjectHints == } if
  752.   20 dict begin
  753.   /bits OFile bitstream def
  754.   /bwn { bits 3 1 roll bitwrite } def
  755.  
  756.         % Currently we use the Shared Object hint table only for
  757.         % the objects in the first page, which are all treated as
  758.         % "shared" objects.
  759.  
  760.         % Object number of first object in Shared Objects section
  761.         % (not currently used):
  762.   0 32 bwn
  763.         % Location of first object in Shared Objects section
  764.         % (not currently used):
  765.         % **** Acrobat always sets this to 16.
  766.   16 32 bwn
  767.         % Number of Shared Object entries for first page:
  768.   FirstPageNs length 32 bwn
  769.         % Number of Shared Object entries for Shared Objects
  770.         % section (not currently used):
  771.         % **** Acrobat adds in the previous value.
  772.   FirstPageNs length 32 bwn
  773.         % Bits needed to represent the greatest number of objects
  774.         % in a shared object group (always 0, because all groups
  775.         % have only 1 object):
  776.   0 16 bwn
  777.         % Least length of a Shared Object Group in bytes:
  778.   16#7fffffff FirstPageNs { omlength .min } forall
  779.   /minsol 1 index def 32 bwn
  780.         % Bits needed to represent the greatest length of a
  781.         % Shared Object Group:
  782.   0 FirstPageNs { omlength .max } forall
  783.   minsol sub bitsneeded
  784.   /maxsolbits 1 index def 16 bwn
  785.  
  786.         % Lengths of shared object groups:
  787.   FirstPageNs { omlength minsol sub maxsolbits bwn } forall
  788.  
  789.         % MD5 flag:
  790.   0 1 bwn
  791.  
  792.   bits bitflush end
  793. } bind def
  794.  
  795. % ---------------- Main program ---------------- %
  796.  
  797. /tmpprefix (/tmp/) def
  798.  
  799. /pdfOptimize {        % <infile> <outfile> pdfOptimize -
  800.   realtime 3 1 roll
  801.   exch pdfdict begin pdfopenfile dup begin
  802.   40 dict begin
  803.   /IDict exch def
  804.   /OFile exch def
  805.   /starttime exch def
  806.   /now {
  807.     QUIET { pop } { print (, t = ) print realtime starttime sub = flush } ifelse
  808.   } def
  809.   omapinit
  810.   
  811.     % Create and open a temporary file.
  812.  
  813.   { tmpprefix realtime abs =string cvs concatstrings
  814.     mark 1 index status {
  815.       cleartomark pop
  816.     } {
  817.       pop exit
  818.     } ifelse
  819.   } loop
  820.   /TFileName 1 index def
  821.   (w) file /TFile exch def
  822.  
  823.     % Read all objects into memory.
  824.  
  825.   Trailer touch
  826.   (Read objects) now
  827.  
  828.     % Replace indirect references to numbers.  This is needed
  829.     % for the Length of streams, and doesn't hurt anything else.
  830.  
  831.   replaceReferences
  832.   (Replaced references) now
  833.  
  834.     % Create the two new objects: the linearization parameter
  835.     % dictionary, and the Primary Hint Stream.
  836.  
  837.   /LPDict 10 dict def
  838.   /PHS 10 dict cvx def        % executable = stream
  839.   [LPDict PHS] createObjects
  840.   /LPDictN 1 index def 1 add
  841.   /PHSN exch def
  842.  
  843.     % Count the number of objects in the output.
  844.  
  845.   0 0 1 Objects llength 1 sub {
  846.     Generations exch lget 0 ne { 1 add } if
  847.   } for
  848.   /NObjects exch def
  849.   QUIET not { NObjects =only ( objects total) = flush } if
  850.  
  851.     % Propagate inherited attributes down the page tree.
  852.  
  853.   propagateAttributes
  854.   (Propagated attributes) now
  855.  
  856.     % Identify the document-level objects (part 4).
  857.  
  858.   identifyDocumentObjects /CatalogNs exch def
  859.   QUIET not { CatalogNs === flush } if
  860.   (Identified Catalog) now
  861.  
  862.       % Identify the first page's objects (part 6),
  863.     % including the Outlines tree if appropriate.
  864.  
  865.   pdfopencache
  866.   /FirstPageNs identifyFirstPageObjects def
  867.   QUIET not { FirstPageNs === flush } if
  868.   (Identified first page) now
  869.  
  870.     % Identify shared vs. non-shared objects for remaining pages
  871.     % (parts 7 and 8).
  872.  
  873.   identifyOtherPageObjects
  874.   /SharedNs exch def
  875.   /OtherPageNs exch def
  876.   QUIET not { OtherPageNs === flush SharedNs === flush } if
  877.   (Identified other pages) now
  878.  
  879.     % Identify objects not associated with any page (part 9).
  880.  
  881.   /NonPageNs identifyNonPageObjects def
  882.   QUIET not { NonPageNs === flush } if
  883.   (Identified non-pages) now
  884.  
  885.     % Assign final object numbers to all the objects.
  886.     % (The omap is currently empty.)
  887.  
  888.   /FirstPageXN assignObjectNumbers def
  889.   (Assigned objects #s) now
  890.  
  891.     % Write the document-level objects (part 4).
  892.  
  893.   { writePart4 } totemp
  894.   /CatalogTempEnd exch def /CatalogTempStart exch def
  895.   (Wrote Catalog) now
  896.  
  897.     % Write the first page's objects (part 6).
  898.  
  899.   { writePart6 } totemp
  900.   /FirstPageTempEnd exch def /FirstPageTempStart exch def
  901.   (Wrote first page) now
  902.  
  903.     % Write the non-shared objects for other pages (part 7).
  904.  
  905.   { writePart7 /OtherPageLengths exch def } totemp
  906.   /OtherPageTempEnd exch def /OtherPageTempStart exch def
  907.   (Wrote other pages) now
  908.  
  909.     % Write the shared objects for other pages (part 8).
  910.  
  911.   { writePart8 } totemp
  912.   /SharedTempEnd exch def /SharedTempStart exch def
  913.   (Wrote shared objects) now
  914.  
  915.     % Write the objects not associated with pages (part 9).
  916.  
  917.   { writePart9 } totemp
  918.   /NonPageTempEnd exch def /NonPageTempStart exch def
  919.  
  920.     % Compute conservative lengths of parts 2,3,5,11 of the output.
  921.     % It's OK for these to be too large, but not too small.
  922.  
  923.   % Make dummy XRef entres for LPDict and PHS.
  924.   XRef LPDictN omap 0 put
  925.   XRef PHSN omap 0 put
  926.  
  927.   /HeaderLength {    % this is exact
  928.     writePart1            % part 1
  929.   } tolength def
  930.   /CatalogLength    % this is exact
  931.     CatalogTempEnd CatalogTempStart sub def    % part 4
  932.   /FirstPageLength    % this is exact
  933.     FirstPageTempEnd FirstPageTempStart sub def    % part 6
  934.   /OtherObjectsLength    % this is exact
  935.     NonPageTempEnd OtherPageTempStart sub def    % parts 7,8,9
  936.   /ObjectsLength    % this is exact
  937.     CatalogLength FirstPageLength add OtherObjectsLength add def
  938.   /XrefLength {            % part 11
  939.     % The LPDict must end within the first 1024 bytes,
  940.     % so the start of the FirstPage xref table can't exceed 1024.
  941.     writePart11xref 1024 writePart11rest
  942.   } tolength def
  943.   /NominalFileLength     % Make a generous allowance for parts 2,3,5.
  944.     HeaderLength ObjectsLength 3 mul add 10000 add 99999 max def
  945.   /FirstPageXrefLength {    % part 3
  946.     NominalFileLength writePart3
  947.   } tolength def
  948.   /LPDictLength {        % part 2
  949.     NominalFileLength dup dup 2 mul 1 index dup createLPDict writePart2
  950.   } tolength def
  951.  
  952.     % Compute a few additional values from the above.
  953.  
  954.   /XrefBeginLength {
  955.     (xref\n0 ) ows
  956.     OFile FirstPageXN write=
  957.   } tolength def
  958.   HeaderLength LPDictLength add
  959.   /FirstPageXrefStart 1 index def
  960.   FirstPageXrefLength add
  961.   /CatalogStart 1 index def
  962.   CatalogLength add        % phsstart
  963.   /PHSStart exch def
  964.  
  965.     % Adjust the object positions ignoring PHS.
  966.     % (Writing the PHS needs these.)
  967.  
  968.   0 0 CatalogStart CatalogTempStart sub adjustObjectPositions
  969.   % Make a temporary XRef entry for the PHS, for the benefit of omend.
  970.   XRef PHSN omap CatalogStart put
  971.   (Adjusted positions) now
  972.  
  973.     % Construct the hint tables (part 5).
  974.  
  975.   { writePageOffsetHints } totemp
  976.   pop /PHSTempStart exch def
  977.   { writeSharedObjectHints } totemp
  978.   exch PHSTempStart sub PHS /S 3 -1 roll put
  979.   PHSTempStart sub /PHSTempLength exch def
  980.   (Wrote hints) now
  981.  
  982.   % Prepare to read TFile.
  983.   TFile closefile
  984.   /TFile TFileName (r) file def
  985.  
  986.   PHS
  987.     dup /File TFile put
  988.     dup /FilePosition PHSTempStart put
  989.     dup /Length PHSTempLength put
  990.   pop
  991.   /PHSLength { writePart5 } tolength def
  992.  
  993.     % Construct the linearization parameter dictionary (part 2).
  994.  
  995.   PHSStart
  996.   dup PHSLength add        % phsend
  997.   /FirstPageStart 1 index def
  998.   dup FirstPageLength add    % firstpageend
  999.   dup OtherObjectsLength add
  1000.   /XrefStart 1 index def
  1001.   XrefBeginLength add        % xref0start
  1002.   dup XrefBeginLength sub XrefLength add    % fileend
  1003.   /FileLength 1 index def
  1004.   createLPDict
  1005.  
  1006.     % Adjust the object positions again, taking the PHS into account.
  1007.  
  1008.   PHSStart 0 PHSLength adjustObjectPositions
  1009.   (Readjusted positions) now
  1010.  
  1011.     % Finally, write the output file.
  1012.  
  1013.   writePart1
  1014.   writePart2
  1015.   FirstPageXrefStart padto
  1016.   XrefStart writePart3
  1017.   CatalogStart padto
  1018.   CatalogTempStart CatalogTempEnd copyrange    % part 4
  1019.   writePart5
  1020.   FirstPageStart padto
  1021.   FirstPageTempStart NonPageTempEnd copyrange    % parts 6,7,8,9
  1022.   % No Overflow Hint Stream (part 10).
  1023.   XrefStart padto
  1024.   writePart11xref
  1025.   { FirstPageXrefStart writePart11rest } tomemory
  1026.   FileLength 1 index length sub padto ows
  1027.   (Wrote output file) now
  1028.  
  1029.     % Wrap up.
  1030.  
  1031.   TFile closefile TFileName deletefile
  1032.   end        % temporary dict
  1033.   end        % IDict
  1034. } bind def
  1035.  
  1036. end            % pdfoptdict
  1037. .setglobal
  1038.  
  1039. % Check for command line arguments.
  1040. [ shellarguments {
  1041.   ] dup length 2 eq {
  1042.     % Load the pdfwrite utilities if necessary.
  1043.     /omapinit where { pop } { (pdfwrite.ps) runlibfile } ifelse
  1044.     save exch
  1045.     aload pop exch (r) file exch (w) file
  1046.     3000000 setvmthreshold
  1047.     pdfoptdict begin pdfOptimize end
  1048.     restore
  1049.   } {
  1050.     (Usage: gs -dNODISPLAY -- pdfopt.ps input.pdf output.pdf) = flush quit
  1051.   } ifelse
  1052. } {
  1053.   pop
  1054. } ifelse
  1055.