add small example programs, update regex pattern display formatter to show escapes

Author: erkkikeranen

examples/README.md

@@ -0,0 +1,6 @@
+# ClojureRS Examples
+
+These small programs show some implemented functionality as small 
+programs as that can be interpreted by ClojureRS. 
+
+

examples/guess_number.clj

@@ -0,0 +1,9 @@
+(println "Guess a number between 1 and 3.")
+(print "guess > ")
+(flush)
+(let [answer (read-line)
+      number (+ (rand-int 3) 1)]
+
+  (if (= answer (str number))
+    (println "correct!")
+    (println "wrong, the correct was " number)))

examples/strings.clj

@@ -0,0 +1,23 @@
+
+(defn main []
+
+      (println "'hello world' ends with 'orld' : " (clojure.string/ends-with? "hello world" "orld"))
+      (println "'hello world' starts with 'hel' : " (clojure.string/starts-with? "hello world" "hel"))
+
+      (println "nil is empty string : " (clojure.string/blank? nil))
+      (println "whitespace is empty string : " (clojure.string/blank? " "))
+      (println "hello is empty string : " (clojure.string/blank? "hello"))
+
+      (println "hello,world splitted by regex pattern " #"\"" " " (clojure.string/split "hello,world", #","))
+
+      (println "murder is backwards : " (clojure.string/reverse "murder"))
+
+      (println "upper case hello : " (clojure.string/upper-case "hello"))
+      (println "lower case HELLO : " (clojure.string/lower-case "HELLO"))
+
+      (println "joining array of items with ', ' : " (clojure.string/join ", " [1, "second", true]))
+
+      (println "hello world includes 'o wor' : " (clojure.string/includes? "hello world" "o wor")))
+
+(main)
+

examples/what_is_your_name.clj

@@ -0,0 +1,4 @@
+(print "What is your name? " )
+(flush)
+(let [answer (read-line)]
+  (println "Hello, " answer "!"))

src/environment.rs

@@ -402,11 +402,6 @@ impl Environment {
         //
         // @TODO its time for a RT (runtime), which environment seems to be becoming
         let _ = Repl::new(Rc::clone(&environment)).try_eval_file("./src/clojure/core.clj");
-        println!(
-            "{:#?} {:#?}",
-            &environment.get_current_namespace(),
-            &environment.get_current_namespace_name()
-        );
         // TODO: should read into namespace if (ns ..) is given in source file
         let _ = Repl::new(Rc::clone(&environment)).try_eval_file("./src/clojure/string.clj");
 

src/value.rs

@@ -1,4 +1,3 @@
-use core::fmt::Display;
 use crate::environment::Environment;
 use crate::ifn::IFn;
 use crate::keyword::Keyword;
@@ -10,6 +9,7 @@ use crate::persistent_list_map::{PersistentListMap, ToPersistentListMapIter};
 use crate::persistent_vector::PersistentVector;
 use crate::symbol::Symbol;
 use crate::type_tag::TypeTag;
+use core::fmt::Display;
 
 extern crate rand;
 use rand::Rng;
@@ -173,9 +173,9 @@ impl fmt::Display for Value {
             IfMacro => std::string::String::from("#macro[if*]"),
             LetMacro => std::string::String::from("#macro[let*]"),
             Value::String(string) => string.clone(),
-            Pattern(pattern) => {
-                std::string::String::from("#\"".to_owned() + pattern.as_str().clone() + "\"")
-            }
+            Pattern(pattern) => std::string::String::from(
+                "#\"".to_owned() + &pattern.as_str().escape_default().to_string().clone() + "\"",
+            ),
             Nil => std::string::String::from("nil"),
         };
         write!(f, "{}", str)
@@ -624,11 +624,11 @@ impl ToValue for PersistentListMap {
         Value::PersistentListMap(self.clone())
     }
 }
-impl<T: Display> ToValue for Result<Value,T> {
+impl<T: Display> ToValue for Result<Value, T> {
     fn to_value(&self) -> Value {
         match self {
             Ok(val) => val.clone(),
-            Err(err) => Value::Condition(err.to_string())
+            Err(err) => Value::Condition(err.to_string()),
         }
     }
 }