1 1.1 christos #! /bin/sh 2 1.1 christos # Fix the path name of an AFM file. 3 1.1 christos if test -f "$1" 4 1.1 christos then 5 1.1 christos echo "$1" 6 1.1 christos else 7 1.1 christos echo `dirname $1`/`basename $1 .afm | awk ' 8 1.1 christos /^AvantGarde-Book$/ { print "avangbk" } 9 1.1 christos /^AvantGarde-BookOblique$/ { print "avangbko" } 10 1.1 christos /^AvantGarde-Demi$/ { print "avangd" } 11 1.1 christos /^AvantGarde-DemiOblique$/ { print "avangdo" } 12 1.1 christos /^Bookman-Demi$/ { print "bookmd" } 13 1.1 christos /^Bookman-DemiItalic$/ { print "bookmdi" } 14 1.1 christos /^Bookman-Light$/ { print "bookml" } 15 1.1 christos /^Bookman-LightItalic$/ { print "bookmli" } 16 1.1 christos /^Courier$/ { print "couri" } 17 1.1 christos /^Courier-Bold$/ { print "courib" } 18 1.1 christos /^Courier-BoldOblique$/ { print "couribo" } 19 1.1 christos /^Courier-Oblique$/ { print "courio" } 20 1.1 christos /^Helvetica$/ { print "helve" } 21 1.1 christos /^Helvetica-Bold$/ { print "helveb" } 22 1.1 christos /^Helvetica-BoldOblique$/ { print "helvebo" } 23 1.1 christos /^Helvetica-Narrow$/ { print "helven" } 24 1.1 christos /^Helvetica-Narrow-Bold$/ { print "helvenb" } 25 1.1 christos /^Helvetica-Narrow-BoldOblique$/ { print "helvenbo" } 26 1.1 christos /^Helvetica-Narrow-Oblique$/ { print "helveno" } 27 1.1 christos /^Helvetica-Oblique$/ { print "helveo" } 28 1.1 christos /^NewCenturySchlbk-Bold$/ { print "newcsb" } 29 1.1 christos /^NewCenturySchlbk-BoldItalic$/ { print "newcsbi" } 30 1.1 christos /^NewCenturySchlbk-Italic$/ { print "newcsi" } 31 1.1 christos /^NewCenturySchlbk-Roman$/ { print "newcsr" } 32 1.1 christos /^Palatino-Bold$/ { print "palatb" } 33 1.1 christos /^Palatino-BoldItalic$/ { print "palatbi" } 34 1.1 christos /^Palatino-Italic$/ { print "palati" } 35 1.1 christos /^Palatino-Roman$/ { print "palatr" } 36 1.1 christos /^Symbol$/ { print "symbol" } 37 1.1 christos /^Times-Bold$/ { print "timesb" } 38 1.1 christos /^Times-BoldItalic$/ { print "timesbi" } 39 1.1 christos /^Times-Italic$/ { print "timesi" } 40 1.1 christos /^Times-Roman$/ { print "timesr" } 41 1.1 christos /^ZapfChancery-MediumItalic$/ { print "zapfcmi" } 42 1.1 christos /^ZapfDingbats$/ { print "zapfd" } 43 1.1 christos ' `.afm 44 1.1 christos fi 45