# edit a vpl file to put in Greek upper case from Symbol font

#!/bin/sh
# edit a vpl file to put in Greek upper case from Symbol font
COMMAND="$0 $1 $2"
case "$1" in
-s) SFONT=Symbol; shift ;;
*) SFONT=Symbolsl
esac
case "$1" in
"") echo 'Usage: addgreekcaps [-s] name[.vpl]'; exit 1 ;;
*.vpl) VFILE=$1 ;;
*) VFILE=$1.vpl
esac
case $SFONT in
Symbol)
ed $VFILE <<endofscript
/VTITLE/s/)/; $COMMAND)/
/LIGTABLE/i
(MAPFONT D 1
(FONTNAME Symbol)
(FONTCHECKSUM O 5346612612)
)