ACC SHELL

# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
# This file is machine-generated by lib/unicore/mktables from the Unicode
# database, Version 5.2.0.  Any changes made here will be lost!

# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
# This file is for internal use by the Perl program only.  The format and even
# the name or existence of this file are subject to change without notice.
# Don't use it directly.

# This file returns the 299 code points in Unicode Version 5.2.0 that match
# any of the following regular expression constructs:
# 
#         \p{Script=Katakana}
#         \p{Sc=Kana}
#         \p{Is_Script=Katakana}
#         \p{Is_Sc=Kana}
# 
#         \p{Katakana}
#         \p{Is_Katakana}
#         \p{Kana}
#         \p{Is_Kana}
# 
#     Note that contrary to what you might expect, the above is NOT the same
#     as \p{Block=Katakana}
# 
# perluniprops.pod should be consulted for the syntax rules for any of these,
# including if adding or subtracting white space, underscore, and hyphen
# characters matters or doesn't matter, and other permissible syntactic
# variants.  Upper/lower case distinctions never matter.
# 
# A colon can be substituted for the equals sign, and anything to the left of
# the equals (or colon) can be combined with anything to the right.  Thus,
# for example,
#         \p{Is_Sc: Katakana}
# is also valid.
# 
# The format of the lines of this file is: START\tSTOP\twhere START is the
# starting code point of the range, in hex; STOP is the ending point, or if
# omitted, the range has just one code point.  Numbers in comments in
# [brackets] indicate how many code points are in the range.

return <<'END';
30A1	30FA	 # [90]
30FD	30FF	 # [3]
31F0	31FF	 # [16]
32D0	32FE	 # [47]
3300	3357	 # [88]
FF66	FF6F	 # [10]
FF71	FF9D	 # [45]
END