Author: leo
Date: Sat Apr 16 01:59:15 2005
New Revision: 7848
Modified:
trunk/include/parrot/string_primitives.h
trunk/src/call_list.txt
trunk/src/string_primitives.c
Log:
more ICU whitespace fun
Modified: trunk/include/parrot/string_primitives.h
==============================================================================
--- trunk/include/parrot/string_primitives.h (original)
+++ trunk/include/parrot/string_primitives.h Sat Apr 16 01:59:15 2005
@@ -43,7 +43,10 @@
INTVAL Parrot_char_is_print(Interp *interpreter, UINTVAL character);
INTVAL Parrot_char_is_punct(Interp *interpreter, UINTVAL character);
INTVAL Parrot_char_is_space(Interp *interpreter, UINTVAL character);
+INTVAL Parrot_char_is_UWhiteSpace(Interp *interpreter, UINTVAL character);
+INTVAL Parrot_char_is_Whitespace(Interp *interpreter, UINTVAL character);
INTVAL Parrot_char_is_upper(Interp *interpreter, UINTVAL character);
+INTVAL Parrot_char_is_JavaSpaceChar(Interp *interpreter, UINTVAL character);
INTVAL Parrot_char_is_xdigit(Interp *interpreter, UINTVAL character);
#endif /* PARROT_IN_CORE */
Modified: trunk/src/call_list.txt
==============================================================================
--- trunk/src/call_list.txt (original)
+++ trunk/src/call_list.txt Sat Apr 16 01:59:15 2005
@@ -58,6 +58,7 @@
d d
d JOd # Parrot builtins
d v
+I JI # Parrot_is_char_*
v JPPP # infix MMD
v JPIP
Modified: trunk/src/string_primitives.c
==============================================================================
--- trunk/src/string_primitives.c (original)
+++ trunk/src/string_primitives.c Sat Apr 16 01:59:15 2005
@@ -596,6 +596,15 @@
=item C<INTVAL
Parrot_char_is_space(Interp *interpreter, UINTVAL character)>
+=item C<INTVAL
+Parrot_char_is_UWhiteSpace(Interp *interpreter, UINTVAL character)>
+
+=item C<INTVAL
+Parrot_char_is_Whitespace(Interp *interpreter, UINTVAL character)>
+
+=item C<INTVAL
+Parrot_char_is_JavaSpaceChar(Interp *interpreter, UINTVAL character)>
+
Returns whether the specified character is a space character.
=cut
@@ -610,6 +619,36 @@
#else
return isspace(character);
#endif
+}
+
+INTVAL
+Parrot_char_is_UWhiteSpace(Interp *interpreter, UINTVAL character)
+{
+#if PARROT_HAS_ICU
+ return u_isUWhiteSpace(character);
+#else
+ return isspace(character);
+#endif
+}
+
+INTVAL
+Parrot_char_is_Whitespace(Interp *interpreter, UINTVAL character)
+{
+#if PARROT_HAS_ICU
+ return u_isWhitespace(character);
+#else
+ return isspace(character);
+#endif
+}
+
+INTVAL
+Parrot_char_is_JavaSpaceChar(Interp *interpreter, UINTVAL character)
+{
+#if PARROT_HAS_ICU
+ return u_isJavaSpaceChar(character);
+#else
+ return isspace(character);
+#endif
}
/*
