1 files changed, 333 insertions, 333 deletions
diff --git a/Master/tlpkg/tlgs/lib/packfile.ps b/Master/tlpkg/tlgs/lib/packfile.ps
index 549ca5b7294..a7690448947 100755..100644
--- a/Master/tlpkg/tlgs/lib/packfile.ps
+++ b/Master/tlpkg/tlgs/lib/packfile.ps
@@ -1,333 +1,333 @@
-%    Copyright (C) 1994, 1995, 1996 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: packfile.ps 6300 2005-12-28 19:56:24Z giles $
-% packfile.ps
-% Pack groups of files together, with compression, for use in
-% storage-scarce environments.
-
-% ****** NOTE: This file must be kept consistent with gs_pfile.ps.
-
-% ---------------- Huffman coding utilities ---------------- %
-
-% We count runs of zeros, and individual byte frequencies separately
-% depending on whether they follow or do not follow a run of zeros.
-/zruns 256 array def
-/zfreq 256 array def
-/nzfreq 256 array def
-/maxcode 13 def		% max code length, must be between 10 and 16
-/maxzrun 100 def	% max length of zero run, must be <= 100
-/statbuf 10000 string def
-
-% Initialize statistics.
-/initstats		% - initstats -
- { 0 1 255 { zruns exch 0 put } for
-   0 1 255 { zfreq exch 0 put } for
-   0 1 255 { nzfreq exch 0 put } for
- } bind def
-
-% Accumulate statistics from an individual file.
-/addstats		% <file> addstats -
- { 0
-    { 1 index //statbuf readstring 3 1 roll
-	% Stack: file eof numzeros data
-       { dup 0 eq
-	  { pop 1 add
-	  }
-	  { 1 index 0 ne
-	     { exch 255 .min
-	       //zruns exch 2 copy get 1 add put
-	       0 exch //zfreq
-	     }
-	     { //nzfreq
-	     }
-	    ifelse
-	    exch 2 copy get 1 add put
-	  }
-	 ifelse
-       } forall
-      exch not { exit } if (.) print flush
-    } loop
-   pop closefile
- } bind def
-
-% Compute the Huffman codes from the statistics.
-/statcodes		% - statcodes <array>
- { maxcode 1 add 256 add maxzrun 2 sub add 1 add array	% full array
-   dup maxcode 1 add dup 2 index length exch sub getinterval	% data
-	% Put statistics into array
-   dup 0 1 255
-    { zfreq 1 index get nzfreq 2 index get add put dup
-    } for
-   0 zruns 1 get put
-   256 zruns 2 maxzrun 2 sub getinterval putinterval
-   dup dup length 1 sub 1 put	% EOD
-   maxcode .computecodes
- } bind def
-
-% ---------------- File handling ---------------- %
-
-% Copy one file to another.
-% Close the input file, but not the output file.
-/copyfile		% <infile> <outfile> copyfile <outfile> <length>
- { 0 mark statbuf
-    { 4 index 1 index readstring
-      exch 5 index 1 index writestring
-      length 5 -1 roll add 4 1 roll
-      not { exit } if (.) print flush
-    } loop
-   cleartomark 3 -1 roll closefile dup == flush
- } bind def
-
-% Represent a Type 1 font in its most compressed format.
-% Requires -dWRITESYSTEMDICT to run.
-% Does not close the output file.
-(wrfont.ps) runlibfile
-/compressfont		% <fontname> <outfile> compressfont <outfile>
- { exch save
-   systemdict /executeonly /readonly load put
-   systemdict /noaccess /readonly load put
-   systemdict readonly pop
-   wrfont_dict begin
-     /binary_CharStrings true def
-     /binary_tokens true def
-     /encrypt_CharStrings false def
-     /standard_only false def
-     /use_lenIV 0 def
-     /smallest_output true def
-   end
-   exch findfont setfont
-   1 index writefont
-   restore
- } bind def
-
-% ---------------- Main program ---------------- %
-
-% Find the length of a file.
-/filelength		% <filename> filelength <length>
- { status { pop pop exch pop } { -1 } ifelse
- } bind def
-
-% Define the header string for a compressed file.
-/beginfilestring
-({dup token pop exch[/MaxCodeLength 2 index token pop/Tables 4 index token pop
-/EndOfData true/EncodeZeroRuns 256 .dicttomark
-/BoundedHuffmanDecode filter/MoveToFrontDecode filter
-[/BlockSize 4 -1 roll .dicttomark/BWBlockSortDecode filter
-}) readonly def
-
-% Write a 16-bit big-endian non-negative integer on a file.
-/write16		% <file> <int> write16 -
- { 2 copy -8 bitshift write 255 and write
- } bind def
-
-% Compress a group of files together.
-% Return a dictionary in which the keys are the input file names
-% and the values are [startpos length] in the uncompressed concatenation.
-% Does not open or close the output file.
-/tempname (t.em) def
-/packfiles		% <filenames> <outfile> packfiles <outfile> <posdict>
- {	% Concatenate files to a temporary file.
-   tempname (w) file
-   dup /MoveToFrontEncode filter
-   dup <<
-	/BlockSize 1000000
-   >> /BWBlockSortEncode filter
-		% Stack: filenames outfile tempfile mtfe bwe
-   5 -1 roll dup length dict 0 6 2 roll
-    {		% Stack: outfile posdict pos tempfile mtfe bwe infilename
-      dup ==only dup (r) file 2 index copyfile exch pop
-      dup 7 index 4 2 roll 7 index exch 2 array astore put
-      5 -1 roll add 4 1 roll
-    } forall
-   closefile closefile closefile pop exch
-		% Stack: posdict outfile
-	% Compute an optimal Huffman code.
-   initstats
-   tempname (r) file addstats
-	% Actually compress the file.
-	% Write the decompression information on the output first.
-   dup tempname filelength write==
-   dup maxcode write==
-	% Write the code table as a homogenous number array.
-   statcodes exch
-     dup 149 write dup 32 write dup 2 index length write16
-     exch { 2 copy write16 pop } forall
-   dup <<
-	/MaxCodeLength maxcode
-	/EndOfData true
-	/EncodeZeroRuns 256
-	/Tables statcodes
-   >> /BoundedHuffmanEncode filter
-   tempname (r) file exch copyfile pop closefile
-   exch
- } bind def
-
-% Squeeze a font to a .cpf file in anticipation of compression.
-/squeezefont		% <fontname> squeezefont <filename.cpf>
- { dup type /nametype ne { cvn } if
-   dup
-    { dup type /stringtype eq { exit } if
-      Fontmap exch get
-    }
-   loop
-		% Stack: fontname filename
-   dup dup
-    { (.) search not { exit } if
-      exch pop exch 3 -1 roll pop
-    }
-   loop
-		% Stack: fontname filename noextname extension
-   exch
-    { (/) search not { (\\) search not { exit } if } if
-      pop pop
-    }
-   loop
-		% If the font extension is anything other than
-		% .pfa or .pfb, we assume it can't be rewritten
-		% using compressfont.
-		% Stack: fontname filename extension basename
-   (.cpf) concatstrings dup 5 1 roll (w) file
-		% Stack: outfilename fontname filename extension outfile
-   exch dup (pfa) eq exch (pfb) eq or
-		% Stack: outfilename fontname filename outfile bool
-    { exch pop compressfont
-    }
-    { 3 -1 roll pop
-      exch findlibfile pop exch pop
-      exch copyfile pop
-    }
-   ifelse closefile
- } bind def
-
-% ---------------- Production code ---------------- %
-
-% The following code constructs a packed version of the commercial-quality
-% fonts available from Aladdin Enterprises.  To use this code:
-%	- If desired, change the output file names below.
-%	- Make sure you have the synthetic font data (fontmap.shs and the
-%	  *.ps files for the commercial fonts) in a directory that is on
-%	  Ghostscript's search path.
-%	- Construct the packed fonts by running
-%		gs -dNODISPLAY -dWRITESYSTEMDICT packfile.ps
-%	- If desired, move the output files to the directory that will be
-%	  used at run time.  You no longer need the *.pfb or *.ps files
-%	  for the original fonts; however, you do still need the Fontmap
-%	  for these fonts, because it defines the font name aliases.
-%	- Add the following line to the end of gs_fonts.ps:
-%		(ALL.cmp) run
-%	  (substituting the definition of allmapname if you changed it).
-
-% Define the output file names.  The extensions are arbitrary;
-% any legal file name is allowed.
-/allname (ALL.cff) def		% the compressed font file
-/allmapname (ALL.cmp) def	% the Fontmap override file
-
-% Load an alternate Fontmap that references the synthetic oblique and
-% narrow fonts.
-true .setglobal
-(fontmap.shs) findlibfile pop exch pop .loadFontmap
-false .setglobal
-
-% Define the packaging of fonts into font groups.
-% Fewer larger groups compress better, but make decompression slower.
-/Lists [
-[	% The oblique and narrow fonts are synthetic,
-	% and take very little space.
-  /AvantGarde-BookOblique /AvantGarde-DemiOblique
-  /Courier-Oblique /Courier-BoldOblique
-  /Helvetica-Oblique /Helvetica-BoldOblique
-  /Helvetica-Narrow /Helvetica-Narrow-Oblique
-  /Helvetica-Narrow-Bold /Helvetica-Narrow-BoldOblique
-]
-[/AvantGarde-Book /AvantGarde-Demi
- /Bookman-Light] [/Bookman-LightItalic
- /Bookman-Demi /Bookman-DemiItalic
- /Courier] [/Courier-Bold
- /Helvetica /Helvetica-Bold]
-[/NewCenturySchlbk-Roman /NewCenturySchlbk-Italic
- /NewCenturySchlbk-Bold /NewCenturySchlbk-BoldItalic]
-[/Palatino-Roman /Palatino-Italic
- /Palatino-Bold /Palatino-BoldItalic]
-[/Times-Roman /Times-Italic
- /Times-Bold /Times-BoldItalic]
-[/Symbol
- /ZapfChancery-MediumItalic
- /ZapfDingbats]
-] def
-
-% We need to register the fonts under their true names, not aliases.
-/Lists Lists mark exch
- { mark exch
-    {  { Fontmap 1 index get dup type /nametype ne { pop exit } if
-	 exch pop
-       }
-      loop
-    }
-   forall ]
- }
-forall ] def
-
-% Squeeze the fonts to their .cpf format.
-(Squeezing... ) print flush
-/fdict mark
-Lists
- { { dup squeezefont } forall } forall
-.dicttomark def
-(done.\n) print flush
-
-% Invert fdict.
-/f2dict fdict length dict def
-fdict { exch f2dict 3 1 roll put } forall
-
-% Construct the compressed font file.
-(Creating ) print allname print (... ) print flush
-/posdict fdict length dict def
-/all allname (w) file def
-all beginfilestring writestring
-Lists
- { dup == flush
-   /fbegin all fileposition def
-   mark exch { fdict exch get } forall ]
-   all packfiles exch pop
-   /flength all fileposition fbegin sub def
-    { fbegin flength 3 -1 roll aload pop 4 packedarray
-      exch f2dict exch get exch posdict 3 1 roll put
-    }
-   forall
- }
-forall
-all closefile
-(done.\n) print flush
-
-% Write the Fontmap addendum for accessing compressed fonts.
-(Writing ) print allmapname print (... ) print flush
-allmapname (w) file
-dup (%!
-/.runpackedlibfile where{pop}{(gs_pfile.ps)runlibfile}ifelse
-.currentglobal true .setglobal
-) writestring
-posdict
- { exch 2 index exch write==only exch dup ({) writestring
-   dup allname write==only
-   exch { 1 index dup ( ) writestring exch write==only } forall
-   dup ( .runpackedlibfile}bind .definefontmap
-) writestring
- }
-forall
-dup (.setglobal
-) writestring
-closefile
-(done.\n) print flush
+%    Copyright (C) 1994, 1995, 1996 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: packfile.ps 6300 2005-12-28 19:56:24Z giles $
+% packfile.ps
+% Pack groups of files together, with compression, for use in
+% storage-scarce environments.
+
+% ****** NOTE: This file must be kept consistent with gs_pfile.ps.
+
+% ---------------- Huffman coding utilities ---------------- %
+
+% We count runs of zeros, and individual byte frequencies separately
+% depending on whether they follow or do not follow a run of zeros.
+/zruns 256 array def
+/zfreq 256 array def
+/nzfreq 256 array def
+/maxcode 13 def		% max code length, must be between 10 and 16
+/maxzrun 100 def	% max length of zero run, must be <= 100
+/statbuf 10000 string def
+
+% Initialize statistics.
+/initstats		% - initstats -
+ { 0 1 255 { zruns exch 0 put } for
+   0 1 255 { zfreq exch 0 put } for
+   0 1 255 { nzfreq exch 0 put } for
+ } bind def
+
+% Accumulate statistics from an individual file.
+/addstats		% <file> addstats -
+ { 0
+    { 1 index //statbuf readstring 3 1 roll
+	% Stack: file eof numzeros data
+       { dup 0 eq
+	  { pop 1 add
+	  }
+	  { 1 index 0 ne
+	     { exch 255 .min
+	       //zruns exch 2 copy get 1 add put
+	       0 exch //zfreq
+	     }
+	     { //nzfreq
+	     }
+	    ifelse
+	    exch 2 copy get 1 add put
+	  }
+	 ifelse
+       } forall
+      exch not { exit } if (.) print flush
+    } loop
+   pop closefile
+ } bind def
+
+% Compute the Huffman codes from the statistics.
+/statcodes		% - statcodes <array>
+ { maxcode 1 add 256 add maxzrun 2 sub add 1 add array	% full array
+   dup maxcode 1 add dup 2 index length exch sub getinterval	% data
+	% Put statistics into array
+   dup 0 1 255
+    { zfreq 1 index get nzfreq 2 index get add put dup
+    } for
+   0 zruns 1 get put
+   256 zruns 2 maxzrun 2 sub getinterval putinterval
+   dup dup length 1 sub 1 put	% EOD
+   maxcode .computecodes
+ } bind def
+
+% ---------------- File handling ---------------- %
+
+% Copy one file to another.
+% Close the input file, but not the output file.
+/copyfile		% <infile> <outfile> copyfile <outfile> <length>
+ { 0 mark statbuf
+    { 4 index 1 index readstring
+      exch 5 index 1 index writestring
+      length 5 -1 roll add 4 1 roll
+      not { exit } if (.) print flush
+    } loop
+   cleartomark 3 -1 roll closefile dup == flush
+ } bind def
+
+% Represent a Type 1 font in its most compressed format.
+% Requires -dWRITESYSTEMDICT to run.
+% Does not close the output file.
+(wrfont.ps) runlibfile
+/compressfont		% <fontname> <outfile> compressfont <outfile>
+ { exch save
+   systemdict /executeonly /readonly load put
+   systemdict /noaccess /readonly load put
+   systemdict readonly pop
+   wrfont_dict begin
+     /binary_CharStrings true def
+     /binary_tokens true def
+     /encrypt_CharStrings false def
+     /standard_only false def
+     /use_lenIV 0 def
+     /smallest_output true def
+   end
+   exch findfont setfont
+   1 index writefont
+   restore
+ } bind def
+
+% ---------------- Main program ---------------- %
+
+% Find the length of a file.
+/filelength		% <filename> filelength <length>
+ { status { pop pop exch pop } { -1 } ifelse
+ } bind def
+
+% Define the header string for a compressed file.
+/beginfilestring
+({dup token pop exch[/MaxCodeLength 2 index token pop/Tables 4 index token pop
+/EndOfData true/EncodeZeroRuns 256 .dicttomark
+/BoundedHuffmanDecode filter/MoveToFrontDecode filter
+[/BlockSize 4 -1 roll .dicttomark/BWBlockSortDecode filter
+}) readonly def
+
+% Write a 16-bit big-endian non-negative integer on a file.
+/write16		% <file> <int> write16 -
+ { 2 copy -8 bitshift write 255 and write
+ } bind def
+
+% Compress a group of files together.
+% Return a dictionary in which the keys are the input file names
+% and the values are [startpos length] in the uncompressed concatenation.
+% Does not open or close the output file.
+/tempname (t.em) def
+/packfiles		% <filenames> <outfile> packfiles <outfile> <posdict>
+ {	% Concatenate files to a temporary file.
+   tempname (w) file
+   dup /MoveToFrontEncode filter
+   dup <<
+	/BlockSize 1000000
+   >> /BWBlockSortEncode filter
+		% Stack: filenames outfile tempfile mtfe bwe
+   5 -1 roll dup length dict 0 6 2 roll
+    {		% Stack: outfile posdict pos tempfile mtfe bwe infilename
+      dup ==only dup (r) file 2 index copyfile exch pop
+      dup 7 index 4 2 roll 7 index exch 2 array astore put
+      5 -1 roll add 4 1 roll
+    } forall
+   closefile closefile closefile pop exch
+		% Stack: posdict outfile
+	% Compute an optimal Huffman code.
+   initstats
+   tempname (r) file addstats
+	% Actually compress the file.
+	% Write the decompression information on the output first.
+   dup tempname filelength write==
+   dup maxcode write==
+	% Write the code table as a homogenous number array.
+   statcodes exch
+     dup 149 write dup 32 write dup 2 index length write16
+     exch { 2 copy write16 pop } forall
+   dup <<
+	/MaxCodeLength maxcode
+	/EndOfData true
+	/EncodeZeroRuns 256
+	/Tables statcodes
+   >> /BoundedHuffmanEncode filter
+   tempname (r) file exch copyfile pop closefile
+   exch
+ } bind def
+
+% Squeeze a font to a .cpf file in anticipation of compression.
+/squeezefont		% <fontname> squeezefont <filename.cpf>
+ { dup type /nametype ne { cvn } if
+   dup
+    { dup type /stringtype eq { exit } if
+      Fontmap exch get
+    }
+   loop
+		% Stack: fontname filename
+   dup dup
+    { (.) search not { exit } if
+      exch pop exch 3 -1 roll pop
+    }
+   loop
+		% Stack: fontname filename noextname extension
+   exch
+    { (/) search not { (\\) search not { exit } if } if
+      pop pop
+    }
+   loop
+		% If the font extension is anything other than
+		% .pfa or .pfb, we assume it can't be rewritten
+		% using compressfont.
+		% Stack: fontname filename extension basename
+   (.cpf) concatstrings dup 5 1 roll (w) file
+		% Stack: outfilename fontname filename extension outfile
+   exch dup (pfa) eq exch (pfb) eq or
+		% Stack: outfilename fontname filename outfile bool
+    { exch pop compressfont
+    }
+    { 3 -1 roll pop
+      exch findlibfile pop exch pop
+      exch copyfile pop
+    }
+   ifelse closefile
+ } bind def
+
+% ---------------- Production code ---------------- %
+
+% The following code constructs a packed version of the commercial-quality
+% fonts available from Aladdin Enterprises.  To use this code:
+%	- If desired, change the output file names below.
+%	- Make sure you have the synthetic font data (fontmap.shs and the
+%	  *.ps files for the commercial fonts) in a directory that is on
+%	  Ghostscript's search path.
+%	- Construct the packed fonts by running
+%		gs -dNODISPLAY -dWRITESYSTEMDICT packfile.ps
+%	- If desired, move the output files to the directory that will be
+%	  used at run time.  You no longer need the *.pfb or *.ps files
+%	  for the original fonts; however, you do still need the Fontmap
+%	  for these fonts, because it defines the font name aliases.
+%	- Add the following line to the end of gs_fonts.ps:
+%		(ALL.cmp) run
+%	  (substituting the definition of allmapname if you changed it).
+
+% Define the output file names.  The extensions are arbitrary;
+% any legal file name is allowed.
+/allname (ALL.cff) def		% the compressed font file
+/allmapname (ALL.cmp) def	% the Fontmap override file
+
+% Load an alternate Fontmap that references the synthetic oblique and
+% narrow fonts.
+true .setglobal
+(fontmap.shs) findlibfile pop exch pop .loadFontmap
+false .setglobal
+
+% Define the packaging of fonts into font groups.
+% Fewer larger groups compress better, but make decompression slower.
+/Lists [
+[	% The oblique and narrow fonts are synthetic,
+	% and take very little space.
+  /AvantGarde-BookOblique /AvantGarde-DemiOblique
+  /Courier-Oblique /Courier-BoldOblique
+  /Helvetica-Oblique /Helvetica-BoldOblique
+  /Helvetica-Narrow /Helvetica-Narrow-Oblique
+  /Helvetica-Narrow-Bold /Helvetica-Narrow-BoldOblique
+]
+[/AvantGarde-Book /AvantGarde-Demi
+ /Bookman-Light] [/Bookman-LightItalic
+ /Bookman-Demi /Bookman-DemiItalic
+ /Courier] [/Courier-Bold
+ /Helvetica /Helvetica-Bold]
+[/NewCenturySchlbk-Roman /NewCenturySchlbk-Italic
+ /NewCenturySchlbk-Bold /NewCenturySchlbk-BoldItalic]
+[/Palatino-Roman /Palatino-Italic
+ /Palatino-Bold /Palatino-BoldItalic]
+[/Times-Roman /Times-Italic
+ /Times-Bold /Times-BoldItalic]
+[/Symbol
+ /ZapfChancery-MediumItalic
+ /ZapfDingbats]
+] def
+
+% We need to register the fonts under their true names, not aliases.
+/Lists Lists mark exch
+ { mark exch
+    {  { Fontmap 1 index get dup type /nametype ne { pop exit } if
+	 exch pop
+       }
+      loop
+    }
+   forall ]
+ }
+forall ] def
+
+% Squeeze the fonts to their .cpf format.
+(Squeezing... ) print flush
+/fdict mark
+Lists
+ { { dup squeezefont } forall } forall
+.dicttomark def
+(done.\n) print flush
+
+% Invert fdict.
+/f2dict fdict length dict def
+fdict { exch f2dict 3 1 roll put } forall
+
+% Construct the compressed font file.
+(Creating ) print allname print (... ) print flush
+/posdict fdict length dict def
+/all allname (w) file def
+all beginfilestring writestring
+Lists
+ { dup == flush
+   /fbegin all fileposition def
+   mark exch { fdict exch get } forall ]
+   all packfiles exch pop
+   /flength all fileposition fbegin sub def
+    { fbegin flength 3 -1 roll aload pop 4 packedarray
+      exch f2dict exch get exch posdict 3 1 roll put
+    }
+   forall
+ }
+forall
+all closefile
+(done.\n) print flush
+
+% Write the Fontmap addendum for accessing compressed fonts.
+(Writing ) print allmapname print (... ) print flush
+allmapname (w) file
+dup (%!
+/.runpackedlibfile where{pop}{(gs_pfile.ps)runlibfile}ifelse
+.currentglobal true .setglobal
+) writestring
+posdict
+ { exch 2 index exch write==only exch dup ({) writestring
+   dup allname write==only
+   exch { 1 index dup ( ) writestring exch write==only } forall
+   dup ( .runpackedlibfile}bind .definefontmap
+) writestring
+ }
+forall
+dup (.setglobal
+) writestring
+closefile
+(done.\n) print flush