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