X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=xfonts-traditional.git;a=blobdiff_plain;f=mkrules;h=5b07879fcf99a3de55c9ce8651daea72bca9cd2e;hp=734e2a2ca82d91c2f473cbea60cf8dae9f694ac1;hb=e6fbf840b937b069c31182eb6c5de4fb51ebbefa;hpb=15fc3ba19faec7f483788f208af4df66579104f9

diff --git a/mkrules b/mkrules
index 734e2a2..5b07879 100755
--- a/mkrules
+++ b/mkrules
@@ -6,7 +6,19 @@ rm -f rules/*.rules rules/foundries.new
 
 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
@@ -58,6 +70,9 @@ while read keyword rest; do
 		partial=1
 		chars
 		;;
+	verbatim)
+		echo >&3 "    $rest"
+		;;
 	*)
 		echo >&2 "??? $keyword"
 		exit 1