#!/bin/sh
# °ʸĹΥեץ
# (c)2001 ҥ
#
# chotai <Ĺֹ> <TFM̾>
#
case "$1" in
1) suf="ba" ;;
2) suf="ca" ;;
3) suf="da" ;;
4) suf="ea" ;;
esac
awk '
BEGIN{
	cho='$1'
	rate=(10.0-cho)/10.0
}
{
	if (($1 ~ /\(CHARACTER/) && ($2 ~ /O/)) {
		if ($3 >= 200) {
			getline
			getline
		}
		else print $0
		next
	}
	if ($1 ~ /\(SPACE/) {
		printf "   (SPACE R %f)\n",$3*rate
		next
	}
	if ($1 ~ /\(STRETCH/) {
		printf "   (STRETCH R %f)\n",$3*rate
		next
	}
	if ($1 ~ /\(SHRINK/) {
		printf "   (SHRINK R %f)\n",$3*rate
		next
	}
	if ($1 ~ /\(QUAD/) {
		printf "   (QUAD R %f)\n",$3*rate
		next
	}
	if ($1 ~ /\(EXTRASPACE/) {
		printf "   (EXTRASPACE R %f)\n",$3*rate
		next
	}
	if ($1 ~ /\(CHARWD/) {
		printf "   (CHARWD R %f)\n",$3*rate
		next
	}
	print $0
}' < $2.pl > $2-$suf.pl
pltotf $2-$suf.pl $2-$suf.tfm
rm $2-$suf.pl
