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