#! /bin/sh
#
# Copyright (c) 1985 by Sun Microsystems, Inc.
#
#
# This file is a product of Sun Microsystems, Inc. and is provided for
# unrestricted use provided that this legend is included on all tape
# media and as a part of the software program in whole or part.  Users
# may copy or modify this file without charge, but are not authorized to
# license or distribute it to anyone else except as part of a product
# or program developed by the user.
# 
# THIS FILE IS PROVIDED AS IS WITH NO WARRANTIES OF ANY KIND INCLUDING THE
# WARRANTIES OF DESIGN, MERCHANTIBILITY AND FITNESS FOR A PARTICULAR
# PURPOSE, OR ARISING FROM A COURSE OF DEALING, USAGE OR TRADE PRACTICE.
# 
# This file is provided with no support and without any obligation on the
# part of Sun Microsystems, Inc. to assist in its use, correction,
# modification or enhancement.
# 
# SUN MICROSYSTEMS, INC. SHALL HAVE NO LIABILITY WITH RESPECT TO THE
# INFRINGEMENT OF COPYRIGHTS, TRADE SECRETS OR ANY PATENTS BY THIS FILE
# OR ANY PART THEREOF.
# 
# In no event will Sun Microsystems, Inc. be liable for any lost revenue
# or profits or other special, indirect and consequential damages, even
# if Sun has been advised of the possibility of such damages.
# 
# Sun Microsystems, Inc.
# 2550 Garcia Avenue
# Mountain View, California  94043
#
# ldf: load PostScript font or list the avaiable ones
#

# set prog to name of utility for error messages
prog=`basename $0`

if [ ! "$FONTPATH" ]; then
	if [ "$OPENWINHOME" ]; then
		FONTPATH=$OPENWINHOME/lib/fonts;
	else
		echo "$prog:  No FONTPATH or OPENWINHOME defined in environment.";
		exit;
	fi
fi

OLDIFS=$IFS
IFS=:
fpath=$FONTPATH

for fp in $fpath; do
	fn=$fp/$1.ps
	if [ -r $fn ]; then
		psh $fn
		exit
	fi
done

echo "$prog:  loads PostScript defined NeWS fonts."
echo "Usage:  $prog fontname"
echo "Where fontname may be one of the following:"
echo "	fontname	PostScript name"
echo "	--------	---------------"

for fp in $fpath; do
	if [ ! -d $fp ]; then
		echo "$prog:  Bad directory in FONTPATH:" $fp;
		continue;
	fi
	cd $fp
	IFS=$OLDIFS
	foo=`echo *.ps`
	if [ "*.ps" != "$foo" ]; then
		for i in `echo *.ps`; do
			echo "	" `basename $i .ps` "	" `grep '^/FontName /.* def' $i|sed 's:^/FontName /\([^ ]*\) def:\1:'`
		done
	fi
done
