123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221 |
- % Copyright (C) 2001 Aladdin Enterprises. All rights reserved.
- %
- % This software is provided AS-IS with no warranty, either express or
- % implied.
- %
- % This software is distributed under license and may not be copied,
- % modified or distributed except as expressly authorized under the terms
- % of the license contained in the file LICENSE in this distribution.
- %
- % For more information about licensing, please refer to
- % http://www.ghostscript.com/licensing/. For information on
- % commercial licensing, go to http://www.artifex.com/licensing/ or
- % contact Artifex Software, Inc., 101 Lucas Valley Road
- % San Rafael, CA 94903, U.S.A., +1(415)492-9861.
- % $Id: pphs.ps,v 1.6 2003/08/08 18:45:05 ray Exp $
- % Print Linearized PDF hint streams
- % Utilities
- /read1 { % <file> read1 <value>
- read not {
- (**** Unexpected EOF) = flush quit
- } if
- } bind def
- /read2 { % <file> read2 <value>
- dup read1 8 bitshift exch read1 add
- } bind def
- /read4 { % <file> read4 <value>
- dup read2 16 bitshift exch read2 add
- } bind def
- % Free variables: Bits, Bitsleft
- /readninit { % - <readninit> -
- /Bits 0 def
- /Bitsleft 0 def
- } bind def
- /pdftoken { % <file> pdftoken <token>
- dup token pop
- dup type /nametype eq 1 index xcheck and {
- dup dup (<<) cvn eq exch ([) eq or {
- exec exch {
- dup pdftoken dup dup (>>) cvn eq exch (]) eq or {
- exch pop exec exit
- } if exch
- } loop
- } {
- exch pop
- } ifelse
- } {
- exch pop
- } ifelse
- } bind def
- /makemask { % <nbits> makemask <mask>
- 1 exch bitshift 1 sub
- } bind def
- /readn { % <file> <nbits> readn <value>
- dup Bitsleft le {
- exch pop
- /Bitsleft Bitsleft 2 index sub def
- makemask Bits Bitsleft neg bitshift and
- } {
- Bitsleft makemask Bits and
- exch Bitsleft sub exch 1 index bitshift 3 1 roll
- /Bits 2 index read1 def /Bitsleft 8 def
- readn add
- } ifelse
- } bind def
- /sread { % <string> sread <file>
- 0 () /SubFileDecode filter
- } bind def
- /ptag { % <pre-tag> <proc> <post-tag> ptag -
- 3 -1 roll print (: ) print
- exch exec
- ( % ) print =
- } bind def
- % Print the linearization parameters dictionary.
- /plpkeys <<
- /E (end of p. 1 objects)
- /L (total file length)
- /H (PHS start + length)
- /N (
- /O (p. 1 object
- /T (offset of first main xref entry)
- >> def
- /plpdict { % <dict> plpdict -
- (<<) = plpkeys {
- 2 index 2 index .knownget {
- % Stack: dict key label value
- ( ) print 3 -1 roll ===only ( ) print ===only
- ( % ) print =
- } {
- pop pop
- } ifelse
- } forall {
- plpkeys 2 index known {
- pop pop
- } {
- ( ) print exch ===only ( ) print ===
- } ifelse
- } forall (>>) =
- } bind def
- % Print the Page Offset Hint Table.
- /ppoht { % <npages> <file> ppoht -
- 20 dict begin
- /f exch def
- /npages exch def
- readninit
- (1) { f read4 =only } (least
- (2) { f read4 =only } (offset of p. 1 object (+PHS length if beyond PHS)) ptag
- (3) { f read2 dup =only /nb3 exch def } (
- (4) { f read4 =only } (least
- (5) { f read2 dup =only /nb5 exch def } (
- (6) { f read4 =only } (least content stream offset-in-page) ptag
- (7) { f read2 dup =only /nb7 exch def } (
- (8) { f read4 =only } (least content stream length) ptag
- (9) { f read2 dup =only /nb9 exch def } (
- (10) { f read2 dup =only /nb10 exch def } (
- (11) { f read2 dup =only /nb11 exch def } (
- (12) { f read2 dup =only /nb12 exch def } (
- (13) { f read2 =only } (shared obj ref pos denominator) ptag
- (*1) { [ npages { f nb3 readn } repeat ] ==only } (
- (*2) { [ npages { f nb5 readn } repeat ] ==only } (
- (*3) { [ npages { f nb10 readn } repeat ] dup ==only /nso exch def } (
- (*4) { [ nso { [ exch { f nb11 readn } repeat ] } forall ] ==only } (shared obj indices (see 11)) ptag
- (*5) { [ nso { [ exch { f nb12 readn } repeat ] } forall ] ==only } (shared obj ref pos numerators (see 12)) ptag
- (*6) { [ npages { f nb7 readn } repeat ] ==only } (content stream offset-in-page deltas (see 6,7)) ptag
- (*7) { [ npages { f nb9 readn } repeat ] ==only } (content stream length deltas (see 8,9)) ptag
- end % temp dict
- } bind def
- % Print the Shared Objects Hint Table.
- /psoht { % <file> psoht -
- 20 dict begin
- /f exch def
- readninit
- (1) { f read4 =only } (first shared obj
- (2) { f read4 =only } (first shared obj offset (+PHS length if beyond PHS)) ptag
- (3) { f read4 dup =only /n3 exch def } (
- (4) { f read4 dup =only /n4 exch def } (total
- (5) { f read2 dup =only /nb5 exch def } (
- (6) { f read4 =only } (least shared obj group length) ptag
- (7) { f read2 dup =only /nb7 exch def } (
- /nse n4 def
- (*1) { [ nse { f nb7 readn } repeat ] ==only } (shared obj group length deltas (see 6,7)) ptag
- (*2) { [ nse { f 1 readn } repeat ] dup ==only /md5s exch def } (MD5 present?) ptag
- (*3:) = md5s {
- 0 ne {
- ( ) print f 16 string readstring pop
- (%stdout) (w) file dup 3 -1 roll writehexstring closefile () =
- } if
- } forall
- (*4) { [ nse { f nb5 readn } repeat ] ==only } (
- end % temp dict
- } bind def
- % Print the Primary Hint Stream of a PDF file.
- /pphs { % <file> pphs -
- /pdf exch def
- % Read the linearization parameter dictionary.
- { pdf pdftoken /obj eq { exit } if } loop
- pdf pdftoken /lpdict exch def
- /lpdict type /dicttype eq { lpdict /Linearized known } { false } ifelse {
- (Not a linearized PDF file.) = stop
- } if
- lpdict plpdict flush
- % Read the primary hint stream.
- null {
- pdf pdftoken dup /stream eq { pop exit } if
- exch pop
- } loop
- /phsdict exch def
- % Remove Length if indirect reference.
- phsdict 0 known {
- phsdict 0 undef phsdict /Length undef
- } if
- (PHS: ) print phsdict === flush
- pdf 0 (endstream) /SubFileDecode filter
- dup 64000 string readstring pop exch closefile
- sread /phsdata exch def
- % Decode the hint stream data if necessary.
- phsdict /Filter .knownget {
- phsdata exch filter
- dup 5000 string readstring pop exch closefile
- sread /phsdata exch def
- } if
- % Adobe says we can assume /P = 0.
- (Page Offset Hint Table:) =
- lpdict /N get
- phsdata phsdict /S get string readstring pop sread
- ppoht
- (Shared Objects Hint Table:) =
- phsdata psoht
- } bind def
- % Check for command line arguments.
- [ shellarguments
- { ] dup length 1 eq
- { 0 get (r) file dup pphs closefile }
- { (Usage: pphs filename.pdf\n) print flush }
- ifelse
- }
- { pop }
- ifelse
|