summaryrefslogtreecommitdiff
path: root/Build/source/libs/teckit/TECkit-src/source/MakeUnicodeNames.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/libs/teckit/TECkit-src/source/MakeUnicodeNames.pl')
-rw-r--r--Build/source/libs/teckit/TECkit-src/source/MakeUnicodeNames.pl32
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__