🚀 go-pugleaf

Loading of PFB encoded fonts is broken is gs2.5.  The shar archive below
contains two files, that demonstrate the bug: a piece of gs code (test.ps)
that tries to load a PFB encoded file (font.pfb).

font.pfb contains:

	currentfile eexec
	d9d6...
             <more eexec encoded bytes containing the commands...
		( in eexec\n) print flush
		mark currentfile closefile
	     >
	...0000
	cleartomark
	( after eexec\n) print
	pstack

gs2.5 does't execute the commands that follow the binary coded eexec string:

	leo 291% gs25 -dNODISPLAY test.ps
	Initializing... done.
	 in eexec		<<<< after eexec output missing
	Ghostscript 2.5 (8/18/92)
	  Copyright (C) 1990, 1992 Aladdin Enterprises, Menlo Park, CA.
	  All rights reserved.
	Distributed by Free Software Foundation, Inc.
	Ghostscript comes with NO WARRANTY: see the file LICENSE for details.
	GS<2>pstack
	-marktype-		<<<< mark still on stack
	(font.pfb)
	GS<2>quit

	leo 292% gs241 -dNODISPLAY test.ps
	Initializing... done.
	 in eexec
	 after eexec
	(font.pfb)
	Ghostscript 2.4.1 (4/21/92)
	  Copyright (C) 1990, 1992 Aladdin Enterprises, Menlo Park, CA.
	  All rights reserved.
	Distributed by Free Software Foundation, Inc.
	Ghostscript comes with NO WARRANTY: see the file LICENSE for details.
	GS<1>pstack
	(font.pfb)
	GS<1>quit

#! /bin/sh
# This is a shell archive.  Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file".  To overwrite existing
# files, type "sh file -c".  You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g..  If this archive is complete, you
# will see the following message at the end:
#		"End of shell archive."
# Contents:  test.ps font.pfb
# Wrapped by jk@leo on Fri Aug 28 21:12:58 1992
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f test.ps -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"test.ps\"
else
echo shar: Extracting \"test.ps\" \(154 characters\)
sed "s/^X//" >test.ps <<'END_OF_test.ps'
X%
X(font.pfb) findlibfile
X  {
X    gsrevision 250 ge { false } if
X    /PFBDecode filter cvx exec
X  }
X  {
X    ( pfb file not found\n) print flush
X  }
Xifelse
END_OF_test.ps
if test 154 -ne `wc -c <test.ps`; then
    echo shar: \"test.ps\" unpacked with wrong size!
fi
echo shar: Extracting \"font.pfb\" \(398 characters\)
uudecode <<'END_OF_font.pfb'
begin 644 font.pfb
M@ $2    8W5R<F5N=&9I;&4@965X96,-@ (Y 0  V=9O8W=RKH)>%LD+A8]>
M(>9''Q!-T(94%5VF.A19R=@=Y\-%?EDMC60-;547HP37E?@D%9$SC.T)    
M                                                            
M                                                            
M                                                            
M                                                            
M                                                            
M                                     ( !*P    UC;&5A<G1O;6%R
F:PTH(&%F=&5R(&5E>&5C7&XI('!R:6YT#7!S=&%C:PV  P    !A
 
end
END_OF_font.pfb
if test 398 -ne `wc -c <font.pfb`; then
    echo shar: \"font.pfb\" unpacked with wrong size!
fi
# end of overwriting check
fi
echo shar: End of shell archive.
exit 0
--
Juergen Keil          jk@tools.de ...!{uunet,mcsun}!unido!tools!jk