% Copyright (C) 2000, 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 #110,% San Rafael, CA 94903, U.S.A., +1(415)492-9861. % $Id: dumphint.ps,v 1.2 2004/04/08 16:18:25 giles Exp $% Linearized PDF hint formatting utility. %% Linearized PDF hints generated by Acrobat suite seem to deviate from% the published specification.%% /P (page offset hint table) key in hint stream is not generated by% Adobe products. The key is no longer required in PDF 1.5.%% Per-page items 4 and 5 of the page offset hint table start from 1st% page rather than 2nd page as the spec claims.%% All array entries start from the new byte boundary.% /table_width 79 def /col1_width 66 def % Skip bits to the next byte boundary/bytealign { % <stream> bytealign - begin /N 0 def /B 0 def end} bind def % Set bit stream position and align it to byte boundary/set_align { % <<>> pos set_align - exch begin S exch setfileposition /N 0 def /B 0 def end} bind def % Read requested number of bits from the bit stream./bitread { % <bstream> <width> bitwrite <value> exch begin 0 % bit val { 1 index N .min % bit val m dup 3 1 roll % bit m val m bitshift % bit m val<<m B 2 index N sub % bit m val<<m B m-N bitshift add % bit m val<<m+B>>(N-m) 3 -1 roll % m val' bit 2 index sub % m val' bit' 3 -1 roll % val' bit' m N exch sub dup % val' bit' N' N' 1 exch bitshift % val' bit' N' 1<<N' 1 sub B and % val' bit' N' B&(1<<N') /B exch def % val' bit' N' /N exch def % val' bit' dup 0 le { pop exit % val' } if /N N 8 add def /B B 8 bitshift S read not { 0 ( *** EOF! *** ) = } if add def exch } loop % bit' val' end} bind def % Print a string several times/multiprint { % cnt (s) multiprint - exch { dup print } repeat pop} bind def % Split the line into 2 substrings./split_line { % (s) split_line () () dup length col1_width gt { col1_width 1 sub dup -1 0 { dup % (s) w i i 3 index % (s) w i i () exch get % (s) w i c 32 eq { exch pop exit } if pop } for 1 add % (s) w' 1 index exch % (s) (s) w' 0 exch % (s) (s) 0 w' getinterval % (s) (v) } { dup % (s) (s) } ifelse (\n) search { 4 1 roll % (pre) (s) (post) (match) pop pop % (pre) (s) 1 index length % (pre) (s) len 1 add % (pre) (s) len+1 } { exch % (pre) (s) 1 index length % (pre) (s) len } ifelse 1 index length % (pre) (s) len Len 1 index sub % (pre) (s) len Len-len getinterval % (pre) (post)} bind def % Print a 2 column table. The string is printed in 1st column% left-aligned. The number is printed in 2nd column right-aligned./two_column { % n () two_column - split_line % n (a) () 3 1 roll % () n (a) dup length % () n (a) len exch print % () n len exch =string cvs % () len (n) dup length % () len (n) len2 3 -1 roll add % () (n) len+len2 //table_width % () (n) len+len2 78 exch sub % () (n) 78-len+len2 ( ) multiprint % () (n) = % () { dup length 0 eq { exit } if split_line exch = } loop pop () =} bind def % Print the header of a hint table/table_header { % () table_header - dup length dup table_width exch sub 2 idiv % () len sp dup ( ) multiprint % () len sp 3 -1 roll = % len sp ( ) multiprint % len (=) multiprint ()= ()=} bind def % Pretty-print an array on top level/dump_array { % [ ] dump_array - ([) = ( ) print 1 exch { =string cvs % pos () dup length dup % pos () len len 3 index add 1 add % pos () len len+pos+1 table_width gt { () = ( ) print % pos () len 2 add % pos () pos' 3 1 roll print pop % pos' } { ( ) print % pos () len exch print % pos len add 1 add % pos' } ifelse } forall pop () = (]) =} bind def % Pretty-print an array on 2nd level/dump_array2 { % [ ] dump_array2 - ( [) print 3 exch { =string cvs % pos () dup length dup % pos () len len 3 index add 1 add % pos () len len+pos+1 table_width 2 sub gt { () = ( ) print % pos () len 4 add % pos () pos' 3 1 roll print pop % pos' } { ( ) print % pos () len exch print % pos len add 1 add % pos' } ifelse } forall pop ( ]) =} bind def % Print an array header/array_header { () = =} bind def % Analyze the page offset hint table./dump_page_offset_table { % - dump_page_offset_table - hint_stream dup 32 bitread dup /hint_minnop exch def (1. The least number of objects in a page.) two_column dup 32 bitread dup /hint_1st_obj exch def (2. Location of the first page's page object.) two_column dup 16 bitread dup /hint_maxnopbits exch def (3. Bits for difference between max and min number of page objects.) two_column dup 32 bitread dup /hint_minpl exch def (4. Least length of a page.) two_column dup 16 bitread dup /hint_maxplbits exch def (5. Bits for difference between max and min length of a page.) two_column dup 32 bitread dup /hint_minsco exch def (6. Least start of Contents offset. ) 1 index 0 ne { (\n*** Acrobat expects 0 ***) concatstrings } if two_column dup 16 bitread dup /hint_maxscobits exch def (7. Bits for difference between max and min offset to the start of the content stream.) two_column dup 32 bitread dup /hint_mincl exch def (8. Least contents length.) two_column dup 16 bitread dup /hint_maxclbits exch def (9. Bits needed to represent the greatest Contents length.) two_column dup 16 bitread dup /hint_maxsorbits exch def (10. Bits needed to represent the greatest number of Shared Object references.) two_column dup 16 bitread dup /hint_sobits exch def (11. Bits needed to identify a Shared Object.) two_column dup 16 bitread dup /hint_numfbits exch def (12. Bits needed to represent numerator of fraction.) two_column dup 16 bitread dup /hint_denf exch def (13. Denominator of fraction.) two_column pop LinearizationParams /N get % 1. Number of objects in the page. hint_stream bytealign /hint_page_obj [ 2 index { hint_stream hint_maxnopbits bitread hint_minnop add } repeat ] readonly def (1. Number of objects on the page) array_header hint_page_obj dump_array % 2, Page length in bytes. hint_stream bytealign /hint_page_len [ 2 index { hint_stream hint_maxplbits bitread hint_minpl add } repeat ] readonly def (2. Page length in bytes.) array_header hint_page_len dump_array % 3, Number of shared objects referenced from the page hint_stream bytealign /hint_page_sobj [ 2 index { hint_stream hint_maxsorbits bitread } repeat ] readonly def (3. Number of shared objects referenced from the page.) array_header hint_page_sobj dump_array % 4. Index into the shared objects hint table hint_stream bytealign /hint_page_sobj_id [ 0 1 4 index 1 sub { hint_page_sobj exch get [ exch { hint_stream hint_sobits bitread } repeat ] readonly } for ] readonly def (4. Index into the shared objects hint table.) array_header ([) = hint_page_sobj_id { dump_array2 } forall (])= % 5. Fractional position for each shared object reference hint_stream bytealign /hint_page_sobj_pos [ 0 1 4 index 1 sub { hint_page_sobj exch get [ exch { hint_stream hint_numfbits bitread hint_denf div } repeat ] readonly } for ] readonly def (5. Fractional position for each shared object reference. ) array_header ([)= hint_page_sobj_pos { dump_array2 } forall (])= % 6. Offset of the page's content stream from the beginning of the page. hint_stream bytealign /hint_page_content_offset [ 2 index { hint_stream hint_maxscobits bitread hint_minsco add } repeat ] readonly def (6. Offset of the page's content stream from the beginning of the page.) array_header hint_page_content_offset dump_array % 7. Length of the page's content stream in bytes. hint_stream bytealign /hint_page_content_len [ 2 index { hint_stream hint_maxclbits bitread hint_mincl add } repeat ] readonly def (7. Length of the page's content stream in bytes.) array_header hint_page_content_len dump_array pop} bind def % Analyze tha shared object hint table/dump_shared_object_table { hint_stream dup 32 bitread dup /shint_1st_obj_id exch def (1. Object number of the first object in the shared objects section) two_column dup 32 bitread dup /shint_1st_obj_pos exch def (2. Location of the first object in the shared objects section.) two_column dup 32 bitread dup /shint_1st_shared exch def (3. The number of shared object entries for the first page.) two_column dup 32 bitread dup /shint_all_shared exch def (4. Number of shared object entries for the shared objects section including 1st page.) two_column dup 16 bitread dup /shint_group_bits exch def (5. Number of bits needed to represent the greatest number of objects in a shared object group.) two_column dup 32 bitread dup /shint_group_least_sz exch def (6. Least length of a shared object group in bytes.) two_column dup 16 bitread dup /shint_group_diff_bits exch def (7. Bits for the difference between the greatest and least length of a shared object group size.) two_column pop (1. length of the object group in bytes.) array_header hint_stream bytealign /shint_group_sz [ shint_all_shared { hint_stream shint_group_diff_bits bitread shint_group_least_sz add } repeat ] readonly def shint_group_sz dump_array (2. MD5 signature flag) array_header hint_stream bytealign /shint_md5_flags [ shint_all_shared { hint_stream 1 bitread } repeat ] readonly def shint_md5_flags dump_array (3. MD5 signature string) array_header false shint_md5_flags { 0 ne or } forall { shint_md5_flags { 0 eq { (<>)= } { hint_stream /S get 128 string readstring pop dup length 128 eq { == } { pop (Error reading nd5 string.) == } ifelse } ifelse } forall } { () = (none) = } ifelse (4. The number of objects in the group.) array_header hint_stream bytealign /shint_group_cnt [ shint_all_shared { hint_stream shint_group_bits bitread } repeat ] readonly def shint_group_cnt dump_array } bind def % Analyze the thumbnail hint table./dump_thumbnail_table { hint_stream dup 32 bitread dup /thint_1st_obj_id exch def (1. Object number of the first thumbnail image.) two_column dup 32 bitread dup /thint_1st_obj_pos exch def (2. Location of the first thumbnail image.) two_column dup 32 bitread dup /thint_page_cnt exch def (3. Number of pages that have thumbnail images.) two_column dup 16 bitread dup /thint_no_thumbnail_bits exch def (4. Bits for the max number of consecutive pages without a thumbnail image.) two_column dup 32 bitread dup /thint_min_sz exch def (5. The least length of a thumbnail image in bytes.) two_column dup 15 bitread dup /thint_obj_sz_bits exch def (6. Bits for the difference between max and min length of a thumbnail image.) two_column dup 32 bitread dup /thint_min_obj_cnt exch def (7. The least number of objects in a thumbnail image.) two_column dup 16 bitread dup /thint_obj_cnt_bits exch def (8. Bits for the difference between max and min number of objects in a thumbnail image.) two_column dup 32 bitread dup /thint_1st_shared_obj exch def (9. First object in the thumbnail shared objects section.) two_column dup 32 bitread dup /thint_1st_shared_pos exch def (10. Location of the first object in the thumbnail shared objects section.) two_column dup 32 bitread dup /thint_shared_cnt exch def (11. Number of thumbnail shared objects.) two_column dup 32 bitread dup /thint_shared_section_sz exch def (12. Length of the thumbnail shared objects section in bytes.) two_column pop LinearizationParams /N get (1. The number of preceding pages lacking a thumbnail image.) array_header hint_stream bytealign /thint_no_thumbnail_pages [ 2 index { hint_stream thint_no_thumbnail_bits bitread } repeat ] readonly defLines 1–500 of 756. Load more
% Copyright (C) 2000, 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 #110, % San Rafael, CA 94903, U.S.A., +1(415)492-9861. % $Id: dumphint.ps,v 1.2 2004/04/08 16:18:25 giles Exp $ % Linearized PDF hint formatting utility. % % Linearized PDF hints generated by Acrobat suite seem to deviate from % the published specification. % % /P (page offset hint table) key in hint stream is not generated by % Adobe products. The key is no longer required in PDF 1.5. % % Per-page items 4 and 5 of the page offset hint table start from 1st % page rather than 2nd page as the spec claims. % % All array entries start from the new byte boundary. % /table_width 79 def /col1_width 66 def % Skip bits to the next byte boundary /bytealign { % <stream> bytealign - begin /N 0 def /B 0 def end } bind def % Set bit stream position and align it to byte boundary /set_align { % <<>> pos set_align - exch begin S exch setfileposition /N 0 def /B 0 def end } bind def % Read requested number of bits from the bit stream. /bitread { % <bstream> <width> bitwrite <value> exch begin 0 % bit val { 1 index N .min % bit val m dup 3 1 roll % bit m val m bitshift % bit m val<<m B 2 index N sub % bit m val<<m B m-N bitshift add % bit m val<<m+B>>(N-m) 3 -1 roll % m val' bit 2 index sub % m val' bit' 3 -1 roll % val' bit' m N exch sub dup % val' bit' N' N' 1 exch bitshift % val' bit' N' 1<<N' 1 sub B and % val' bit' N' B&(1<<N') /B exch def % val' bit' N' /N exch def % val' bit' dup 0 le { pop exit % val' } if /N N 8 add def /B B 8 bitshift S read not { 0 ( *** EOF! *** ) = } if add def exch } loop % bit' val' end } bind def % Print a string several times /multiprint { % cnt (s) multiprint - exch { dup print } repeat pop } bind def % Split the line into 2 substrings. /split_line { % (s) split_line () () dup length col1_width gt { col1_width 1 sub dup -1 0 { dup % (s) w i i 3 index % (s) w i i () exch get % (s) w i c 32 eq { exch pop exit } if pop } for 1 add % (s) w' 1 index exch % (s) (s) w' 0 exch % (s) (s) 0 w' getinterval % (s) (v) } { dup % (s) (s) } ifelse (\n) search { 4 1 roll % (pre) (s) (post) (match) pop pop % (pre) (s) 1 index length % (pre) (s) len 1 add % (pre) (s) len+1 } { exch % (pre) (s) 1 index length % (pre) (s) len } ifelse 1 index length % (pre) (s) len Len 1 index sub % (pre) (s) len Len-len getinterval % (pre) (post) } bind def % Print a 2 column table. The string is printed in 1st column % left-aligned. The number is printed in 2nd column right-aligned. /two_column { % n () two_column - split_line % n (a) () 3 1 roll % () n (a) dup length % () n (a) len exch print % () n len exch =string cvs % () len (n) dup length % () len (n) len2 3 -1 roll add % () (n) len+len2 //table_width % () (n) len+len2 78 exch sub % () (n) 78-len+len2 ( ) multiprint % () (n) = % () { dup length 0 eq { exit } if split_line exch = } loop pop () = } bind def % Print the header of a hint table /table_header { % () table_header - dup length dup table_width exch sub 2 idiv % () len sp dup ( ) multiprint % () len sp 3 -1 roll = % len sp ( ) multiprint % len (=) multiprint ()= ()= } bind def % Pretty-print an array on top level /dump_array { % [ ] dump_array - ([) = ( ) print 1 exch { =string cvs % pos () dup length dup % pos () len len 3 index add 1 add % pos () len len+pos+1 table_width gt { () = ( ) print % pos () len 2 add % pos () pos' 3 1 roll print pop % pos' } { ( ) print % pos () len exch print % pos len add 1 add % pos' } ifelse } forall pop () = (]) = } bind def % Pretty-print an array on 2nd level /dump_array2 { % [ ] dump_array2 - ( [) print 3 exch { =string cvs % pos () dup length dup % pos () len len 3 index add 1 add % pos () len len+pos+1 table_width 2 sub gt { () = ( ) print % pos () len 4 add % pos () pos' 3 1 roll print pop % pos' } { ( ) print % pos () len exch print % pos len add 1 add % pos' } ifelse } forall pop ( ]) = } bind def % Print an array header /array_header { () = = } bind def % Analyze the page offset hint table. /dump_page_offset_table { % - dump_page_offset_table - hint_stream dup 32 bitread dup /hint_minnop exch def (1. The least number of objects in a page.) two_column dup 32 bitread dup /hint_1st_obj exch def (2. Location of the first page's page object.) two_column dup 16 bitread dup /hint_maxnopbits exch def (3. Bits for difference between max and min number of page objects.) two_column dup 32 bitread dup /hint_minpl exch def (4. Least length of a page.) two_column dup 16 bitread dup /hint_maxplbits exch def (5. Bits for difference between max and min length of a page.) two_column dup 32 bitread dup /hint_minsco exch def (6. Least start of Contents offset. ) 1 index 0 ne { (\n*** Acrobat expects 0 ***) concatstrings } if two_column dup 16 bitread dup /hint_maxscobits exch def (7. Bits for difference between max and min offset to the start of the content stream.) two_column dup 32 bitread dup /hint_mincl exch def (8. Least contents length.) two_column dup 16 bitread dup /hint_maxclbits exch def (9. Bits needed to represent the greatest Contents length.) two_column dup 16 bitread dup /hint_maxsorbits exch def (10. Bits needed to represent the greatest number of Shared Object references.) two_column dup 16 bitread dup /hint_sobits exch def (11. Bits needed to identify a Shared Object.) two_column dup 16 bitread dup /hint_numfbits exch def (12. Bits needed to represent numerator of fraction.) two_column dup 16 bitread dup /hint_denf exch def (13. Denominator of fraction.) two_column pop LinearizationParams /N get % 1. Number of objects in the page. hint_stream bytealign /hint_page_obj [ 2 index { hint_stream hint_maxnopbits bitread hint_minnop add } repeat ] readonly def (1. Number of objects on the page) array_header hint_page_obj dump_array % 2, Page length in bytes. hint_stream bytealign /hint_page_len [ 2 index { hint_stream hint_maxplbits bitread hint_minpl add } repeat ] readonly def (2. Page length in bytes.) array_header hint_page_len dump_array % 3, Number of shared objects referenced from the page hint_stream bytealign /hint_page_sobj [ 2 index { hint_stream hint_maxsorbits bitread } repeat ] readonly def (3. Number of shared objects referenced from the page.) array_header hint_page_sobj dump_array % 4. Index into the shared objects hint table hint_stream bytealign /hint_page_sobj_id [ 0 1 4 index 1 sub { hint_page_sobj exch get [ exch { hint_stream hint_sobits bitread } repeat ] readonly } for ] readonly def (4. Index into the shared objects hint table.) array_header ([) = hint_page_sobj_id { dump_array2 } forall (])= % 5. Fractional position for each shared object reference hint_stream bytealign /hint_page_sobj_pos [ 0 1 4 index 1 sub { hint_page_sobj exch get [ exch { hint_stream hint_numfbits bitread hint_denf div } repeat ] readonly } for ] readonly def (5. Fractional position for each shared object reference. ) array_header ([)= hint_page_sobj_pos { dump_array2 } forall (])= % 6. Offset of the page's content stream from the beginning of the page. hint_stream bytealign /hint_page_content_offset [ 2 index { hint_stream hint_maxscobits bitread hint_minsco add } repeat ] readonly def (6. Offset of the page's content stream from the beginning of the page.) array_header hint_page_content_offset dump_array % 7. Length of the page's content stream in bytes. hint_stream bytealign /hint_page_content_len [ 2 index { hint_stream hint_maxclbits bitread hint_mincl add } repeat ] readonly def (7. Length of the page's content stream in bytes.) array_header hint_page_content_len dump_array pop } bind def % Analyze tha shared object hint table /dump_shared_object_table { hint_stream dup 32 bitread dup /shint_1st_obj_id exch def (1. Object number of the first object in the shared objects section) two_column dup 32 bitread dup /shint_1st_obj_pos exch def (2. Location of the first object in the shared objects section.) two_column dup 32 bitread dup /shint_1st_shared exch def (3. The number of shared object entries for the first page.) two_column dup 32 bitread dup /shint_all_shared exch def (4. Number of shared object entries for the shared objects section including 1st page.) two_column dup 16 bitread dup /shint_group_bits exch def (5. Number of bits needed to represent the greatest number of objects in a shared object group.) two_column dup 32 bitread dup /shint_group_least_sz exch def (6. Least length of a shared object group in bytes.) two_column dup 16 bitread dup /shint_group_diff_bits exch def (7. Bits for the difference between the greatest and least length of a shared object group size.) two_column pop (1. length of the object group in bytes.) array_header hint_stream bytealign /shint_group_sz [ shint_all_shared { hint_stream shint_group_diff_bits bitread shint_group_least_sz add } repeat ] readonly def shint_group_sz dump_array (2. MD5 signature flag) array_header hint_stream bytealign /shint_md5_flags [ shint_all_shared { hint_stream 1 bitread } repeat ] readonly def shint_md5_flags dump_array (3. MD5 signature string) array_header false shint_md5_flags { 0 ne or } forall { shint_md5_flags { 0 eq { (<>)= } { hint_stream /S get 128 string readstring pop dup length 128 eq { == } { pop (Error reading nd5 string.) == } ifelse } ifelse } forall } { () = (none) = } ifelse (4. The number of objects in the group.) array_header hint_stream bytealign /shint_group_cnt [ shint_all_shared { hint_stream shint_group_bits bitread } repeat ] readonly def shint_group_cnt dump_array } bind def % Analyze the thumbnail hint table. /dump_thumbnail_table { hint_stream dup 32 bitread dup /thint_1st_obj_id exch def (1. Object number of the first thumbnail image.) two_column dup 32 bitread dup /thint_1st_obj_pos exch def (2. Location of the first thumbnail image.) two_column dup 32 bitread dup /thint_page_cnt exch def (3. Number of pages that have thumbnail images.) two_column dup 16 bitread dup /thint_no_thumbnail_bits exch def (4. Bits for the max number of consecutive pages without a thumbnail image.) two_column dup 32 bitread dup /thint_min_sz exch def (5. The least length of a thumbnail image in bytes.) two_column dup 15 bitread dup /thint_obj_sz_bits exch def (6. Bits for the difference between max and min length of a thumbnail image.) two_column dup 32 bitread dup /thint_min_obj_cnt exch def (7. The least number of objects in a thumbnail image.) two_column dup 16 bitread dup /thint_obj_cnt_bits exch def (8. Bits for the difference between max and min number of objects in a thumbnail image.) two_column dup 32 bitread dup /thint_1st_shared_obj exch def (9. First object in the thumbnail shared objects section.) two_column dup 32 bitread dup /thint_1st_shared_pos exch def (10. Location of the first object in the thumbnail shared objects section.) two_column dup 32 bitread dup /thint_shared_cnt exch def (11. Number of thumbnail shared objects.) two_column dup 32 bitread dup /thint_shared_section_sz exch def (12. Length of the thumbnail shared objects section in bytes.) two_column pop LinearizationParams /N get (1. The number of preceding pages lacking a thumbnail image.) array_header hint_stream bytealign /thint_no_thumbnail_pages [ 2 index { hint_stream thint_no_thumbnail_bits bitread } repeat ] readonly def