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