Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!utgpu!water!watmath!clyde!rutgers!ucla-cs!sdcrdcf!burdvax!psuvax1!vu-vlsi!hvrunix!swatsun!greenber
From: greenber@swatsun.UUCP
Newsgroups: net.sources
Subject: Re: GETAFM - print in PostScript fonts you never knew you had.
Message-ID: <1085@pompeii.UUCP>
Date: Wed, 22-Apr-87 19:08:25 EST
Article-I.D.: pompeii.1085
Posted: Wed Apr 22 19:08:25 1987
Date-Received: Sat, 25-Apr-87 04:34:59 EST
References: <1041@byzantium.UUCP>
Organization: Swarthmore College, Swarthmore PA
Lines: 52
Keywords: PostScript, Adobe Font Metics file, fonts
Summary: Diffs for those who ran this program and got shell error messages



PostScriptFolk,
	I recently posted getafm, a PostScript program wrapped in a Bourne shell
script. The PostScript part works fine, but I used function definitions in the 
Bourne shell part, and now I find that many Bourne shell implementations do not
support this. If you got getafm, and it works, you are golden. But if you get
shell errors, then you have to apply this patch.

---------------------------------SNIP-SNIP-SNIP--------------------------------
52,56c52,55
< if [ $# = 0 ]
< then
< 	echo "$0: usage: $0 fontname ..." 
< 	exit 1
< fi
---
> emit_header () {
> echo '%!'
> echo "/Font /$1 def" 
> } 
58,61c57,58
< while test $# -gt 0 ; do
< $spooler $spoolopts <<End-Of-PostScript
< %!
< /Font /$1 def   
---
> emit_rest () {
> cat <<End-Of-PostScript-Code  
157,159c154,165
< End-Of-PostScript
< # Back in Bourne Shell
< shift
---
> End-Of-PostScript-Code
> } # end of emit_rest shell subroutine
> # Back in Bourne shell.
> 
> emit_header () {
> echo '%!'
> echo "/Font /$1 def" 
> } 
> 
> for font in $@
> do
> 	(emit_header $font ; emit_rest ) |  $spooler $spoolopts
---------------------------SNIP-SNIP-SNIP---------------------------------------
-- 
Peter Greenberg, Swarthmore College, Swarthmore, PA 19081 
AT&T:(215) 328-8384 or 8610
UUCP: ...{{seismo | inhp4}!bpa | {sun | rutgers}!liberty}!swatsun!greenber
ARPA: swatsun!greenber@bpa.BELL-ATL.COM