From 1d7fff817dd878f0faf198692742c4bf2ab70074 Mon Sep 17 00:00:00 2001
Message-Id: <1d7fff817dd878f0faf198692742c4bf2ab70074.1714056517.git.mdw@distorted.org.uk>
From: Mark Wooding <mdw@chiark.greenend.org.uk>
Date: Sun, 8 Jan 2012 17:45:16 +0000
Subject: [PATCH] quoting of weird chars
Organization: Straylight/Edgeware

From: Ian Jackson <ijackson@chiark.greenend.org.uk>

---
 mkrules | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/mkrules b/mkrules
index 734e2a2..ea3afeb 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
-- 
[mdw]