Merge pull request #39 from ruifonseca/add_string_lower_core_method

Add String.lower() core method

Author: maximecb

docs/language.md

@@ -204,6 +204,7 @@ render_text("Hello world");
     -   `parse_int(radix)`: Try to parse the entire string as an integer of the given `radix`. Returns `nil` on failure.
     -   `trim()`: Produce a new string without whitespace at the beginning or end.
     -   `upper()`: Produce a new string as the uppercase version of the string.
+    -   `lower()`: Produce a new string as the lowercase version of the string.
     -   `split(sep)`: Given a separator string, split a string into an array of parts.
 -   **Array**
     -   `with_size(size, value)`: Creates a new array of the given size, filled with the given value.

src/runtime.rs

@@ -273,6 +273,15 @@ fn string_upper(actor: &mut Actor, s: Value) -> Result<Value, String>
     Ok(actor.alloc.str_val(&s).unwrap())
 }
 
+/// Lowercase a String
+fn string_lower(actor: &mut Actor, s: Value) -> Result<Value, String>
+{
+    let s = unwrap_str!(s);
+    let s = s.to_lowercase();
+    actor.gc_check(size_of::<Str>() + s.len(), &mut []);
+    Ok(actor.alloc.str_val(&s).unwrap())
+}
+
 /// Split a string by a separator and return an array of strings
 fn string_split(actor: &mut Actor, mut input: Value, sep: Value) -> Result<Value, String>
 {
@@ -396,6 +405,7 @@ pub fn get_method(val: Value, method_name: &str) -> Value
     static STRING_PARSE_INT: HostFn = HostFn { name: "parse_int", f: Fn2(string_parse_int) };
     static STRING_TRIM: HostFn = HostFn { name: "trim", f: Fn1(string_trim) };
     static STRING_UPPER: HostFn = HostFn { name: "upper", f: Fn1(string_upper) };
+    static STRING_LOWER: HostFn = HostFn { name: "lower", f: Fn1(string_lower) };
     static STRING_SPLIT: HostFn = HostFn { name: "split", f: Fn2(string_split) };
     static STRING_TO_S: HostFn = HostFn { name: "to_s", f: Fn1(identity_method) };
 
@@ -458,6 +468,7 @@ pub fn get_method(val: Value, method_name: &str) -> Value
         (Value::String(_), "parse_int") => &STRING_PARSE_INT,
         (Value::String(_), "trim") => &STRING_TRIM,
         (Value::String(_), "upper") => &STRING_UPPER,
+        (Value::String(_), "lower") => &STRING_LOWER,
         (Value::String(_), "split") => &STRING_SPLIT,
         (Value::String(_), "to_s") => &STRING_TO_S,
 

tests/strings.psh

@@ -90,4 +90,12 @@ assert("Cabaça".upper() == "CABAÇA");
 assert("λambda".upper() == "ΛAMBDA");
 assert("Γεια σας!".upper() == "ΓΕΙΑ ΣΑΣ!");
 
+// Test lower
+assert("Hello, World!".lower() == "hello, world!");
+assert("lower".lower() == "lower");
+assert("TSCHÜSS".lower() == "tschüss");
+assert("CABAÇA".lower() == "cabaça");
+assert("ΛAMBDA".lower() == "λambda");
+assert("ΓΕΙΑ ΣΑΣ!".lower() == "γεια σας!");
+
 $println("string tests passed");