#!/bin/sh
FONTMAP=Fontmap
PSFONTSMAP=psfonts.map
PSPS=/usr/local/fonts/pstops.map
PSRESOURCEPATH=/usr/lpp/DPS/fonts:/usr/local/lib/texmf/fonts
export PSRESOURCEPATH

TMPFILE=/tmp/mkfontmaps.$$

rm -f $TMPFILE $FONTMAP $PSFONTSMAP

cat << EOF >> $FONTMAP
/Ugly /Courier

% Fontmap: maps PostScript names to .pf[ab] files,
%           and aliases to real names.
% Generated by mkfontmaps

% Aliases (from pstops.map)
EOF

cat << EOF >> $PSFONTSMAP
% psfonts.map: maps TeX names to PostScript names
%                            and .pf[ab] files.
% Generated by mkfontmaps

% Resident fonts (from pstops.map)
EOF

# Clean up upon exit.
trap "rm -f /tmp/mkfontmaps.$$ >/dev/null" 0 1 2 15

# First process pstops.map.
awk '
NF==2 {
	print $2 >> "'$TMPFILE'"; 
	print "/"$1"	/"$2"	;" >> "'$FONTMAP'";
	print $1 >> "'$PSFONTSMAP'";
}' $PSPS > /dev/null

cat << EOF >> $FONTMAP

% Real fonts (from PSres.upr)
EOF

cat << EOF >> $PSFONTSMAP

% Non-resident fonts (from PSres.upr)
EOF
	
# Now process PSres.upr. Send output destined for Fontmap
# to stdout because we need to pipe it through fgrep.
/usr/local/bin/lspsres -a FontOutline |
awk '
NF==2 {
	print "/"$1"	("$2")	;";
	print $1"	<"$2 >> "'$PSFONTSMAP'";
}' | fgrep -f $TMPFILE >> $FONTMAP;