1151497Sru#! /bin/sh
275584Sru# Fix the path name of an AFM file.
375584Sruif test -f "$1"
475584Sruthen
575584Sru	echo "$1"
675584Sruelse
775584Sru	echo `dirname $1`/`basename $1 .afm | awk '
875584Sru/^AvantGarde-Book$/ { print "avangbk" }
975584Sru/^AvantGarde-BookOblique$/ { print "avangbko" }
1075584Sru/^AvantGarde-Demi$/ { print "avangd" }
1175584Sru/^AvantGarde-DemiOblique$/ { print "avangdo" }
1275584Sru/^Bookman-Demi$/ { print "bookmd" }
1375584Sru/^Bookman-DemiItalic$/ { print "bookmdi" }
1475584Sru/^Bookman-Light$/ { print "bookml" }
1575584Sru/^Bookman-LightItalic$/ { print "bookmli" }
1675584Sru/^Courier$/ { print "couri" }
1775584Sru/^Courier-Bold$/ { print "courib" }
1875584Sru/^Courier-BoldOblique$/ { print "couribo" }
1975584Sru/^Courier-Oblique$/ { print "courio" }
2075584Sru/^Helvetica$/ { print "helve" }
2175584Sru/^Helvetica-Bold$/ { print "helveb" }
2275584Sru/^Helvetica-BoldOblique$/ { print "helvebo" }
2375584Sru/^Helvetica-Narrow$/ { print "helven" }
2475584Sru/^Helvetica-Narrow-Bold$/ { print "helvenb" }
2575584Sru/^Helvetica-Narrow-BoldOblique$/ { print "helvenbo" }
2675584Sru/^Helvetica-Narrow-Oblique$/ { print "helveno" }
2775584Sru/^Helvetica-Oblique$/ { print "helveo" }
2875584Sru/^NewCenturySchlbk-Bold$/ { print "newcsb" }
2975584Sru/^NewCenturySchlbk-BoldItalic$/ { print "newcsbi" }
3075584Sru/^NewCenturySchlbk-Italic$/ { print "newcsi" }
3175584Sru/^NewCenturySchlbk-Roman$/ { print "newcsr" }
3275584Sru/^Palatino-Bold$/ { print "palatb" }
3375584Sru/^Palatino-BoldItalic$/ { print "palatbi" }
3475584Sru/^Palatino-Italic$/ { print "palati" }
3575584Sru/^Palatino-Roman$/ { print "palatr" }
3675584Sru/^Symbol$/ { print "symbol" }
3775584Sru/^Times-Bold$/ { print "timesb" }
3875584Sru/^Times-BoldItalic$/ { print "timesbi" }
3975584Sru/^Times-Italic$/ { print "timesi" }
4075584Sru/^Times-Roman$/ { print "timesr" }
4175584Sru/^ZapfChancery-MediumItalic$/ { print "zapfcmi" }
4275584Sru/^ZapfDingbats$/ { print "zapfd" }
4375584Sru' `.afm
4475584Srufi
45