bug report

[xfonts-traditional.git] / mkrules

diff --git a/mkrules b/mkrules
index 734e2a2ca82d91c2f473cbea60cf8dae9f694ac1..5b07879fcf99a3de55c9ce8651daea72bca9cd2e 100755 (executable)
--- 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