unicode: declare characters in unicode tables

[sheet.git] / tools / convert-unicode.pl

diff --git a/tools/convert-unicode.pl b/tools/convert-unicode.pl
index 731210bd88d6d624d2d080c813efec50e73372f7..348878cf62da3d0f9d37d165d456bf2cf8fa86f0 100755 (executable)
--- a/tools/convert-unicode.pl
+++ b/tools/convert-unicode.pl
@@ -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',
 );