chiark
/
gitweb
/
~ian
/
xfonts-traditional.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
use template for confirm q
[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
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
./printrule >&3 "$bad" "$good" $height \
"^ENCODING $ord$" $partial "$c"
done
@@
-58,6
+70,9
@@
while read keyword rest; do
partial=1
chars
;;
partial=1
chars
;;
+ verbatim)
+ echo >&3 " $rest"
+ ;;
*)
echo >&2 "??? $keyword"
exit 1
*)
echo >&2 "??? $keyword"
exit 1