diff options
Diffstat (limited to 'Master/tlpkg/tlgs/lib/dumphint.ps')
| -rw-r--r-- | Master/tlpkg/tlgs/lib/dumphint.ps | 57 |
1 files changed, 28 insertions, 29 deletions
diff --git a/Master/tlpkg/tlgs/lib/dumphint.ps b/Master/tlpkg/tlgs/lib/dumphint.ps index 80e92eb1dba..444692a0c83 100644 --- a/Master/tlpkg/tlgs/lib/dumphint.ps +++ b/Master/tlpkg/tlgs/lib/dumphint.ps @@ -1,19 +1,19 @@ % 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 8284 2007-10-10 17:40:38Z giles $ +% $Id$ % Linearized PDF hint formatting utility. % @@ -29,7 +29,7 @@ % All array entries start from the new byte boundary. % -/table_width 79 def +/table_width 79 def /col1_width 66 def % Skip bits to the next byte boundary @@ -49,13 +49,13 @@ /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 + 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 + 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' @@ -97,7 +97,7 @@ getinterval % (s) (v) } { dup % (s) (s) - } ifelse + } ifelse (\n) search { 4 1 roll % (pre) (s) (post) (match) pop pop % (pre) (s) @@ -121,9 +121,9 @@ exch print % () n len exch =string cvs % () len (n) dup length % () len (n) len2 - 3 -1 roll add % () (n) len+len2 + 3 -1 roll add % () (n) len+len2 //table_width % () (n) len+len2 78 - exch sub % () (n) 78-len+len2 + exch sub % () (n) 78-len+len2 ( ) multiprint % () (n) = % () { dup length 0 eq { exit } if @@ -196,7 +196,7 @@ % 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 @@ -219,7 +219,7 @@ dup 32 bitread dup /hint_minsco exch def - (6. Least start of Contents offset. ) + (6. Least start of Contents offset. ) 1 index 0 ne { (\n*** Acrobat expects 0 ***) concatstrings } if two_column @@ -251,7 +251,7 @@ dup /hint_denf exch def (13. Denominator of fraction.) two_column - pop + pop LinearizationParams /N get @@ -353,9 +353,9 @@ } bind def % Analyze tha shared object hint table -/dump_shared_object_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 @@ -399,7 +399,7 @@ (2. MD5 signature flag) array_header hint_stream bytealign /shint_md5_flags - [ shint_all_shared + [ shint_all_shared { hint_stream 1 bitread } repeat ] readonly def @@ -407,7 +407,7 @@ shint_md5_flags dump_array (3. MD5 signature string) array_header - false shint_md5_flags { 0 ne or } forall { + false shint_md5_flags { 0 ne or } forall { shint_md5_flags { 0 eq { (<>)= @@ -419,7 +419,7 @@ } { pop (Error reading nd5 string.) == } ifelse } ifelse - } forall + } forall } { () = (none) = } ifelse @@ -526,8 +526,8 @@ } bind def % Analyze the generic hint table. -% The hint field names are re-used. -/dump_generic_table { +% The hint field names are re-used. +/dump_generic_table { hint_stream dup 32 bitread @@ -578,7 +578,7 @@ dup /ihint_shared_obj_bits exch def (6. Bits for the max shared object id used by the interactive form or the logical structure hierarchy.) 1 index hint_sobits ne { - (\n*** This fiels is not equal to max shared object ID bits ***) concatstrings + (\n*** This fiels is not equal to max shared object ID bits ***) concatstrings } if pop @@ -612,7 +612,7 @@ (T, Thumbnail hint table) table_header hint_stream exch set_align dump_thumbnail_table - } if + } if dup /O .knownget { (O, Outline hint table) table_header @@ -621,7 +621,7 @@ } if dup /A .knownget { - (A, Thread information hint table) table_header + (A, Thread information hint table) table_header hint_stream exch set_align dump_generic_table } if @@ -659,11 +659,10 @@ pop } bind def - % Load PDF file and extract the hint stream. /pdf_dump_hints { % <infile> pdf_dump_hints - dup (r) file % fname - false exch % fname F file + false exch % fname F file { dup 7 string readstring pop % fname F file () (%PDF-1.) ne { pop exit } if % fname F file @@ -696,10 +695,10 @@ LinearizationParams /H get dup length 2 eq { 0 get PDFoffset add PDFfile exch setfileposition - PDFfile token pop + PDFfile token pop PDFfile token pop resolveR dup true resolvestream - /ReusableStreamDecode filter + /ReusableStreamDecode filter bitstream dup bytealign /hint_stream exch def @@ -730,7 +729,7 @@ exch pop save exch 3000000 setvmthreshold - pdfoptdict begin + pdfoptdict begin pdf_dump_hints end restore |