V10/cmd/troff/dev202/nmakefont

case $# in
0)	echo 'nmakefont 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
FILENAME != "proto" && $1 ~ /^C[0-9][0-9][0-9]/ {
	if ($2 > 100)
		$2 = substr($2,1,2)
	w[0+substr($1,2)] = $2
}

# read proto file to get char name, number
FILENAME == "proto" && $2 ~ /^[0123]$/ && NF == 3 {
	print $1, w[$3], $2, $3
	if ($1 == "hy")
		print "-	\"	=hy"
} ' $arch proto >>$1