sys/lib/ghostscript/pphs.ps

   1 %    Copyright (C) 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: pphs.ps,v 1.6 2003/08/08 18:45:05 ray Exp $
  17 % Print Linearized PDF hint streams
  18
  19 % Utilities
  20 /read1 {        % <file> read1 <value>
  21   read not {
  22     (**** Unexpected EOF) = flush quit
  23   } if
  24 } bind def
  25 /read2 {        % <file> read2 <value>
  26   dup read1 8 bitshift exch read1 add
  27 } bind def
  28 /read4 {        % <file> read4 <value>
  29   dup read2 16 bitshift exch read2 add
  30 } bind def
  31 % Free variables: Bits, Bitsleft
  32 /readninit {    % - <readninit> -
  33   /Bits 0 def
  34   /Bitsleft 0 def
  35 } bind def
  36
  37 /pdftoken {     % <file> pdftoken <token>
  38   dup token pop
  39   dup type /nametype eq 1 index xcheck and {
  40     dup dup (<<) cvn eq exch ([) eq or {
  41       exec exch {
  42         dup pdftoken dup dup (>>) cvn eq exch (]) eq or {
  43           exch pop exec exit
  44         } if exch
  45       } loop
  46     } {
  47       exch pop
  48     } ifelse
  49   } {
  50     exch pop
  51   } ifelse
  52 } bind def
  53 /makemask {     % <nbits> makemask <mask>
  54   1 exch bitshift 1 sub
  55 } bind def
  56 /readn {        % <file> <nbits> readn <value>
  57   dup Bitsleft le {
  58     exch pop
  59     /Bitsleft Bitsleft 2 index sub def
  60     makemask Bits Bitsleft neg bitshift and
  61   } {
  62     Bitsleft makemask Bits and
  63     exch Bitsleft sub exch 1 index bitshift 3 1 roll
  64     /Bits 2 index read1 def /Bitsleft 8 def
  65     readn add
  66   } ifelse
  67 } bind def
  68 /sread {        % <string> sread <file>
  69   0 () /SubFileDecode filter
  70 } bind def
  71
  72 /ptag {         % <pre-tag> <proc> <post-tag> ptag -
  73   3 -1 roll print (: ) print
  74   exch exec
  75   (        % ) print =
  76 } bind def
  77
  78 % Print the linearization parameters dictionary.
  79 /plpkeys <<
  80   /E (end of p. 1 objects)
  81   /L (total file length)
  82   /H (PHS start + length)
  83   /N (# of pages)
  84   /O (p. 1 object #)
  85   /T (offset of first main xref entry)
  86 >> def
  87 /plpdict {      % <dict> plpdict -
  88   (<<) = plpkeys {
  89     2 index 2 index .knownget {
  90         % Stack: dict key label value
  91       (  ) print 3 -1 roll ===only ( ) print ===only
  92       (        % ) print =
  93     } {
  94       pop pop
  95     } ifelse
  96   } forall {
  97     plpkeys 2 index known {
  98       pop pop
  99     } {
 100       (  ) print exch ===only ( ) print ===
 101     } ifelse
 102   } forall (>>) =
 103 } bind def
 104
 105 % Print the Page Offset Hint Table.
 106 /ppoht {        % <npages> <file> ppoht -
 107
 108   20 dict begin
 109   /f exch def
 110   /npages exch def
 111   readninit
 112
 113   (1) { f read4 =only } (least # objs/page) ptag
 114   (2) { f read4 =only } (offset of p. 1 object (+PHS length if beyond PHS)) ptag
 115   (3) { f read2 dup =only /nb3 exch def } (# bits for # objs/page delta) ptag
 116   (4) { f read4 =only } (least # bytes/page) ptag
 117   (5) { f read2 dup =only /nb5 exch def } (# bits for # bytes/page delta) ptag
 118   (6) { f read4 =only } (least content stream offset-in-page) ptag
 119   (7) { f read2 dup =only /nb7 exch def } (# bits for content stream offset delta) ptag
 120   (8) { f read4 =only } (least content stream length) ptag
 121   (9) { f read2 dup =only /nb9 exch def } (# bits for content stream length delta) ptag
 122   (10) { f read2 dup =only /nb10 exch def } (# bits for # of shared obj refs) ptag
 123   (11) { f read2 dup =only /nb11 exch def } (# bits for shared obj indices) ptag
 124   (12) { f read2 dup =only /nb12 exch def } (# bits for shared obj ref pos numerators) ptag
 125   (13) { f read2 =only } (shared obj ref pos denominator) ptag
 126
 127   (*1) { [ npages { f nb3 readn } repeat ] ==only } (# objs/page deltas (see 1,3)) ptag
 128   (*2) { [ npages { f nb5 readn } repeat ] ==only } (# bytes/page deltas (see 4,5)) ptag
 129   (*3) { [ npages { f nb10 readn } repeat ] dup ==only /nso exch def } (# of shared obj refs (see 10)) ptag
 130   (*4) { [ nso { [ exch { f nb11 readn } repeat ] } forall ] ==only } (shared obj indices (see 11)) ptag
 131   (*5) { [ nso { [ exch { f nb12 readn } repeat ] } forall ] ==only } (shared obj ref pos numerators (see 12)) ptag
 132   (*6) { [ npages { f nb7 readn } repeat ] ==only } (content stream offset-in-page deltas (see 6,7)) ptag
 133   (*7) { [ npages { f nb9 readn } repeat ] ==only } (content stream length deltas (see 8,9)) ptag
 134
 135   end           % temp dict
 136
 137 } bind def
 138
 139 % Print the Shared Objects Hint Table.
 140 /psoht {        % <file> psoht -
 141
 142   20 dict begin
 143   /f exch def
 144   readninit
 145
 146   (1) { f read4 =only } (first shared obj #) ptag
 147   (2) { f read4 =only } (first shared obj offset (+PHS length if beyond PHS)) ptag
 148   (3) { f read4 dup =only /n3 exch def } (# of p. 1 shared objs) ptag
 149   (4) { f read4 dup =only /n4 exch def } (total # of shared objs) ptag
 150   (5) { f read2 dup =only /nb5 exch def } (# bits for # of shared objs/group) ptag
 151   (6) { f read4 =only } (least shared obj group length) ptag
 152   (7) { f read2 dup =only /nb7 exch def } (# bits for shared obj group length delta) ptag
 153
 154   /nse n4 def
 155   (*1) { [ nse { f nb7 readn } repeat ] ==only } (shared obj group length deltas (see 6,7)) ptag
 156   (*2) { [ nse { f 1 readn } repeat ] dup ==only /md5s exch def } (MD5 present?) ptag
 157   (*3:) = md5s {
 158     0 ne {
 159       (  ) print f 16 string readstring pop
 160       (%stdout) (w) file dup 3 -1 roll writehexstring closefile () =
 161     } if
 162   } forall
 163   (*4) { [ nse { f nb5 readn } repeat ] ==only } (# objs/group (see 5)) ptag
 164
 165   end           % temp dict
 166
 167 } bind def
 168
 169 % Print the Primary Hint Stream of a PDF file.
 170 /pphs {         % <file> pphs -
 171   /pdf exch def
 172
 173         % Read the linearization parameter dictionary.
 174   { pdf pdftoken /obj eq { exit } if } loop
 175   pdf pdftoken /lpdict exch def
 176   /lpdict type /dicttype eq { lpdict /Linearized known } { false } ifelse {
 177     (Not a linearized PDF file.) = stop
 178   } if
 179
 180   lpdict plpdict flush
 181
 182         % Read the primary hint stream.
 183   null {
 184     pdf pdftoken dup /stream eq { pop exit } if
 185     exch pop
 186   } loop
 187   /phsdict exch def
 188         % Remove Length if indirect reference.
 189   phsdict 0 known {
 190     phsdict 0 undef  phsdict /Length undef
 191   } if
 192   (PHS: ) print phsdict === flush
 193   pdf 0 (endstream) /SubFileDecode filter
 194   dup 64000 string readstring pop exch closefile
 195   sread /phsdata exch def
 196
 197         % Decode the hint stream data if necessary.
 198   phsdict /Filter .knownget {
 199     phsdata exch filter
 200     dup 5000 string readstring pop exch closefile
 201     sread /phsdata exch def
 202   } if
 203
 204         % Adobe says we can assume /P = 0.
 205   (Page Offset Hint Table:) =
 206   lpdict /N get
 207   phsdata phsdict /S get string readstring pop sread
 208   ppoht
 209   (Shared Objects Hint Table:) =
 210   phsdata psoht
 211 } bind def
 212
 213 % Check for command line arguments.
 214 [ shellarguments
 215  { ] dup length 1 eq
 216     { 0 get (r) file dup pphs closefile }
 217     { (Usage: pphs filename.pdf\n) print flush }
 218    ifelse
 219  }
 220  { pop }
 221 ifelse