diff options
Diffstat (limited to 'Master/tlpkg/tlgs/lib/pphs.ps')
-rw-r--r-- | Master/tlpkg/tlgs/lib/pphs.ps | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/Master/tlpkg/tlgs/lib/pphs.ps b/Master/tlpkg/tlgs/lib/pphs.ps index 9a45383ecf1..6d1854c8dfa 100644 --- a/Master/tlpkg/tlgs/lib/pphs.ps +++ b/Master/tlpkg/tlgs/lib/pphs.ps @@ -1,19 +1,19 @@ % 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 #110, % San Rafael, CA 94903, U.S.A., +1(415)492-9861. -% $Id: pphs.ps 6300 2005-12-28 19:56:24Z giles $ +% $Id$ % Print Linearized PDF hint streams % Utilities @@ -39,9 +39,9 @@ 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 + dup pdftoken dup dup (>>) cvn eq exch (]) eq or { + exch pop exec exit + } if exch } loop } { exch pop @@ -87,7 +87,7 @@ /plpdict { % <dict> plpdict - (<<) = plpkeys { 2 index 2 index .knownget { - % Stack: dict key label value + % Stack: dict key label value ( ) print 3 -1 roll ===only ( ) print ===only ( % ) print = } { @@ -170,7 +170,7 @@ /pphs { % <file> pphs - /pdf exch def - % Read the linearization parameter dictionary. + % 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 { @@ -179,13 +179,13 @@ lpdict plpdict flush - % Read the primary hint stream. + % 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. + % Remove Length if indirect reference. phsdict 0 known { phsdict 0 undef phsdict /Length undef } if @@ -194,14 +194,14 @@ dup 64000 string readstring pop exch closefile sread /phsdata exch def - % Decode the hint stream data if necessary. + % 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. + % Adobe says we can assume /P = 0. (Page Offset Hint Table:) = lpdict /N get phsdata phsdict /S get string readstring pop sread |