unicode: declare characters in unicode tables
authorMischa POSLAWSKY <perl@shiar.org>
Wed, 5 Jan 2011 21:30:50 +0000 (22:30 +0100)
committerMischa POSLAWSKY <perl@shiar.org>
Tue, 11 Jan 2011 22:41:38 +0000 (23:41 +0100)
tools/convert-unicode.pl
unicode-table.inc.pl

index 731210b..348878c 100755 (executable)
@@ -16,6 +16,20 @@ my %info = (
 );
 $info{chr $_} //= {} for 32 .. 126;
 
+eval {
+       my $tables = do 'unicode-table.inc.pl' or die $@ || $!;
+       for (values %$tables) {
+               for (values %$_) {
+                       for (@$_) {
+                               length $_ == 1 or next;  # ignore meta values
+                               s/\\//;  # unescape
+                               $info{$_} //= {};
+                       }
+               }
+       }
+       1;
+} or warn "Failed reading unicode tables: $@";
+
 my %diinc = (
        'digraphs.inc.pl' => 'u-di',
 );
index 3907553..941003f 100644 (file)
@@ -1,4 +1,5 @@
-{
+use utf8;
++{
 
 punctuation => {
        quoting  => [qw{. « » . ‹ › . ‘ ’ . “ ” . „ ‚ . ‟ ‛}],