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