+print STDERR "Accent rules\n";
+if (open(ACC, "misc/user_unacc")) {
+ while (<ACC>) {
+ chomp;
+ (/^\s*$/ || /^#/) && next;
+ s/0x([0-9a-zA-Z]+)/hex($1)/ge;
+ (/^(\d+)\s+(\d+)$/) || die "Syntax error in user accent rules";
+ $expand{$1} = $2;
+ }
+ close ACC;
+}
+