digraphs: mark reversed matches

[sheet.git] / rfc1345convert

diff --git a/rfc1345convert b/rfc1345convert
index d33377fc5cbd413c4b43f816dc15861357b1f4d0..c5a3e80c9cec88d0c5f71ba8f4cd9c6469a333f1 100644 (file)
--- a/rfc1345convert
+++ b/rfc1345convert
@@ -90,7 +90,10 @@ for (keys %di) {
 
 # output perl code of hash
 # (assume no backslashes or curlies, so we can just q{} w/o escaping)
-print "{\n";
+print "+{\n";
+printf '(map {$_=>0} qw{%s}),'."\n", join(' ',
+       map { substr($_, 1, 1).substr($_, 0, 1) } sort keys %di
+);
 printf "q{%s}=>[%s],\n", $_, join(',',
        $di{$_},       # glyph code point
        $info{$_}  # optional additional arguments