case $# in 0) echo 'makefont widthfile Name internal# ...'; exit ;; esac arch=$1 shift echo "# $* name $1 internalname $2" >$1 awk ' BEGIN { OFS = " " print "charset" } # read width file to get char number and width $1 == "char" { w[$2] = $7 } # read proto file to get char name, number $2 ~ /^[0123]$/ && NF == 3 { print $1, w[$3], $2, $3 if ($1 == "hy") print "- \" =hy" } ' $arch proto >>$1