add string split method

src/stl/strings.rs

@@ -115,3 +115,36 @@ pub fn contains_callback(ast: &Seg, _syms: &mut SymTable) -> Result<Ctr, String>
 
     Ok(Ctr::Bool(parent_str.contains(&child_str)))
 }
+
+pub const SPLIT_DOCSTRING: &str = "Takes two strings. String 1 is a source string and string 2 is a delimiter.
+Returns a list of substrings from string 1 that were found delimited by string 2.";
+
+pub fn split_callback(ast: &Seg, _syms: &mut SymTable) -> Result<Ctr, String> {
+    let parent_str: String;
+    if let Ctr::String(ref s) = *ast.car {
+        parent_str = s.to_string();
+    } else {
+        return Err("first argument must be a string".to_string());
+    }
+
+    let second_arg_obj: &Ctr;
+    let delim_str: String;
+    if let Ctr::Seg(ref s) = *ast.cdr {
+        second_arg_obj = &*s.car;
+    } else {
+        return Err("impossible error: needs two arguments".to_string());
+    }
+
+    if let Ctr::String(ref s) = &*second_arg_obj {
+        delim_str = s.clone();
+    } else {
+        return Err("second argument must be a string".to_string());
+    }
+
+    let mut ret = Seg::new();
+    for substr in parent_str.split(&delim_str) {
+        ret.append(Box::new(Ctr::String(substr.to_string())));
+    }
+
+    Ok(Ctr::Seg(ret))
+}