chars () {
for c in $rest; do
- ord=`perl -e 'print ord($ARGV[0]),"\n" or die $!' "$c"`
+ case " $c " in
+ " "?" ")
+ ord=`perl -e 'print ord($ARGV[0]),"\n" or die $!' "$c"`
+ ;;
+ " "d?*" ")
+ ord="${c#d}"
+ c=`perl -e 'printf "%c", $ARGV[0]' "$ord"`
+ ;;
+ *)
+ echo >&2 "??? $c"
+ exit 1
+ ;;
+ esac
./printrule >&3 "$bad" "$good" $height \
"^ENCODING $ord$" $partial "$c"
done
partial=1
chars
;;
+ verbatim)
+ echo >&3 " $rest"
+ ;;
*)
echo >&2 "??? $keyword"
exit 1