summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlgs/lib/pphs.ps
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlgs/lib/pphs.ps')
-rw-r--r--Master/tlpkg/tlgs/lib/pphs.ps26
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