candidate for TR18 compliance

[perl5.git] / lib / unicore / lib / gc_sc / Kana.pl

diff --git a/lib/unicore/lib/gc_sc/Kana.pl b/lib/unicore/lib/gc_sc/Kana.pl
new file mode 100644 (file)
index 0000000..d544196
--- /dev/null
+++ b/lib/unicore/lib/gc_sc/Kana.pl
@@ -0,0 +1,17 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!! 
+# This file is built by mktables from e.g. UnicodeData.txt.
+# Any changes made here will be lost!
+
+#
+# This file supports:
+#      \p{Katakana} (and fuzzy permutations)
+# 
+# Meaning: Script 'Katakana'
+#
+return <<'END';
+30A1   30FA    Katakana
+30FD   30FF    Katakana
+31F0   31FF    Katakana
+FF66   FF6F    Katakana
+FF71   FF9D    Katakana
+END