diff options
Diffstat (limited to 'Build/source/libs/teckit/TECkit-src/source/MakeUnicodeNames.pl')
-rw-r--r-- | Build/source/libs/teckit/TECkit-src/source/MakeUnicodeNames.pl | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/Build/source/libs/teckit/TECkit-src/source/MakeUnicodeNames.pl b/Build/source/libs/teckit/TECkit-src/source/MakeUnicodeNames.pl deleted file mode 100644 index e29439f51a3..00000000000 --- a/Build/source/libs/teckit/TECkit-src/source/MakeUnicodeNames.pl +++ /dev/null @@ -1,32 +0,0 @@ -#!perl - -# make name list for teckit compiler from UnicodeData.txt - -open FH, "<UnicodeData.txt" or die; -while (<FH>) { - chomp; - @fields = split(/;/); - $uc = $fields[0]; - $un = $fields[1]; - - next if $un =~ /</; - - push @names, [ $uc, $un ]; -} -close FH; - -print << '__END__'; -#include "Compiler.h" - -CharName gUnicodeNames[] = { -__END__ - -# sort the names so that we can use binary search -foreach (sort { $a->[1] cmp $b->[1] } @names) { - print "{0x$_->[0],\"$_->[1]\"},\n"; -} - -print << '__END__'; -{0,0} -}; -__END__ |