summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlgs/lib/gs_pfile.ps
diff options
context:
space:
mode:
authorReinhard Kotucha <reinhard.kotucha@web.de>2011-09-10 20:02:58 +0000
committerReinhard Kotucha <reinhard.kotucha@web.de>2011-09-10 20:02:58 +0000
commit4c7ea1ec21f149b4164551b72860054d241d4c16 (patch)
treeb015d34a5429bd77beb1dba6b350fd8e3ff5d920 /Master/tlpkg/tlgs/lib/gs_pfile.ps
parent309924b61f1069504394a05b0f8652bafc5d43d4 (diff)
tlpkg/tlgs: gs-8.71 => gs-9.04
git-svn-id: svn://tug.org/texlive/trunk@23888 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlgs/lib/gs_pfile.ps')
-rw-r--r--Master/tlpkg/tlgs/lib/gs_pfile.ps52
1 files changed, 26 insertions, 26 deletions
diff --git a/Master/tlpkg/tlgs/lib/gs_pfile.ps b/Master/tlpkg/tlgs/lib/gs_pfile.ps
index d56c6b47c14..264fa2beb5b 100644
--- a/Master/tlpkg/tlgs/lib/gs_pfile.ps
+++ b/Master/tlpkg/tlgs/lib/gs_pfile.ps
@@ -1,19 +1,19 @@
% Copyright (C) 1994, 1995 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: gs_pfile.ps 6300 2005-12-28 19:56:24Z giles $
+% $Id$
% Runtime support for minimum-space fonts and packed files.
% ****** NOTE: This file must be kept consistent with
@@ -30,29 +30,29 @@
% the starting address and length of the outer compressed file,
% and the starting address and length of the inner file.
/.packedfilefilter % <file> <ostart> <olength> <istart> <ilength>
- % .packedfilefilter <filter>
+ % .packedfilefilter <filter>
{ 4 index systemdict begin token pop end 6 1 roll
- % Stack: fproc file ostart olength istart ilength
+ % Stack: fproc file ostart olength istart ilength
4 index 5 -1 roll setfileposition
- % Stack: fproc file olength istart ilength
+ % Stack: fproc file olength istart ilength
4 -2 roll () /SubFileDecode filter
- % Stack: fproc istart ilength ofilter
+ % Stack: fproc istart ilength ofilter
4 -1 roll exec
- % Filters don't support setfileposition, so we must skip data
- % by reading it into a buffer. We rely on the fact that
- % save/restore don't affect file positions.
- % Stack: istart ilength dfilter
+ % Filters don't support setfileposition, so we must skip data
+ % by reading it into a buffer. We rely on the fact that
+ % save/restore don't affect file positions.
+ % Stack: istart ilength dfilter
save exch 64000 string
- % Stack: istart ilength save dfilter scratch
+ % Stack: istart ilength save dfilter scratch
4 index 1 index length idiv { 2 copy readstring pop pop } repeat
2 copy 0 8 -1 roll 2 index length mod getinterval readstring pop pop pop
- % Stack: ilength save dfilter
+ % Stack: ilength save dfilter
exch restore exch () /SubFileDecode filter
} bind def
% Run a packed library file.
/.runpackedlibfile % <filename> <ostart> <olength> <istart> <ilength>
- % .runpackedlibfile
+ % .runpackedlibfile
{ 5 -1 roll findlibfile
{ exch pop dup 6 2 roll .packedfilefilter
currentobjectformat exch 1 setobjectformat run
@@ -69,18 +69,18 @@
% specifications of the procedures and data in this section.
/.compactfontdefault mark
- /PaintType 0
- /FontMatrix [0.001 0 0 0.001 0 0] readonly
- /FontType 1
- /Encoding StandardEncoding
+ /PaintType 0
+ /FontMatrix [0.001 0 0 0.001 0 0] readonly
+ /FontType 1
+ /Encoding StandardEncoding
.dicttomark readonly def
/.checkexistingfont % <fontname> <uid> <privatesize> <fontsize>
- % .checkexistingfont
- % {} (<font> on d-stack)
- % <fontname> <uid> <privatesize> <fontsize>
- % .checkexistingfont
- % -save- --restore-- (<font> on d-stack)
+ % .checkexistingfont
+ % {} (<font> on d-stack)
+ % <fontname> <uid> <privatesize> <fontsize>
+ % .checkexistingfont
+ % -save- --restore-- (<font> on d-stack)
{ FontDirectory 4 index .knownget
{ dup /UniqueID .knownget
{ 4 index eq exch /FontType get 1 eq and }
@@ -118,8 +118,8 @@
{ 2 index exch get
}
{ % Stack: encrypt dict dict key value
- 4 index { 4330 exch dup .type1encrypt exch pop } if
- readonly
+ 4 index { 4330 exch dup .type1encrypt exch pop } if
+ readonly
}
ifelse put dup
}