tlpkg/tlgs: gs-8.71 => gs-9.04

git-svn-id: svn://tug.org/texlive/trunk@23888 c570f23f-e606-0410-a88d-b1316a301751

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
     }