---

yaml
---
r: 6943
b: refs/heads/master
c: eb0cdc0
h: refs/heads/master
i:
  6941: 56a22f5
  6939: 59804b6
  6935: de57d4d
  6927: 06761c5
  6911: f33e750
v: v3

Author: Lenny222

[refs]

@@ -1,2 +1,2 @@
 ---
-refs/heads/master: 47271ab4c85ecc4b7c3f1c079f8bc221a5d7ca0d
+refs/heads/master: eb0cdc02e3b443fe119cb4957856a63dbd5923d4

trunk/src/libcore/char.rs

@@ -41,6 +41,26 @@ import is_alphabetic = unicode::derived_property::Alphabetic;
 import is_XID_start = unicode::derived_property::XID_Start;
 import is_XID_continue = unicode::derived_property::XID_Continue;
 
+/*
+Function: is_lowercase
+
+Indicates whether a character is in lower case, defined in terms of the
+Unicode General Category 'Ll'.
+*/
+pure fn is_lowercase(c: char) -> bool {
+    ret unicode::general_category::Ll(c);
+}
+
+/*
+Function: is_uppercase
+
+Indicates whether a character is in upper case, defined in terms of the
+Unicode General Category 'Lu'.
+*/
+pure fn is_uppercase(c: char) -> bool {
+    ret unicode::general_category::Lu(c);
+}
+
 /*
 Function: is_whitespace
 
@@ -126,4 +146,4 @@ pure fn cmp(a: char, b: char) -> int {
     ret  if b > a { -1 }
     else if b < a { 1 }
     else { 0 }
-}
+}

trunk/src/test/stdtest/char.rs

@@ -3,6 +3,24 @@ import core::*;
 use std;
 import char;
 
+#[test]
+fn test_is_lowercase() {
+    assert char::is_lowercase('a');
+    assert char::is_lowercase('ö');
+    assert char::is_lowercase('ß');
+    assert !char::is_lowercase('Ü');
+    assert !char::is_lowercase('P');
+}
+
+#[test]
+fn test_is_uppercase() {
+    assert !char::is_uppercase('h');
+    assert !char::is_uppercase('ä');
+    assert !char::is_uppercase('ß');
+    assert char::is_uppercase('Ö');
+    assert char::is_uppercase('T');
+}
+
 #[test]
 fn test_is_whitespace() {
     assert char::is_whitespace(' ');