Big project dir refactor

* split into multi member workspace in preparation for a no_std core
* env and posix stuff neatly crammed into a seperate shell project
* some pokes at interactive-devel.f
* updated ci
* removed 'l' shortcut for 'load' and update docs
* remove out of date readme content
* updated tests
* more sensible cond implementation and extra tests
* substr stdlib function with tests

Signed-off-by: Ava Affine <ava@sunnypup.io>

core/tests/test_lib_file.rs

@@ -0,0 +1,76 @@
+mod file_lib_tests {
+    use flesh::ast::{eval, lex, SymTable};
+    use flesh::stdlib::static_stdlib;
+
+    #[test]
+    fn test_fexists() {
+        let document = "(exists? \"/tmp\")";
+        let result = "true";
+
+        let mut syms = SymTable::new();
+        static_stdlib(&mut syms);
+        assert_eq!(
+            *eval(&lex(&document.to_string()).unwrap(), &mut syms)
+                .unwrap()
+                .to_string(),
+            result.to_string(),
+        );
+    }
+
+    #[test]
+    fn test_fexists_doesnt() {
+        let document = "(exists? \"cargo.timtam\")";
+        let result = "false";
+
+        let mut syms = SymTable::new();
+        static_stdlib(&mut syms);
+        assert_eq!(
+            *eval(&lex(&document.to_string()).unwrap(), &mut syms)
+                .unwrap()
+                .to_string(),
+            result.to_string(),
+        );
+    }
+
+    #[test]
+    fn test_write_file() {
+        let document = "
+          (let ((s \"test\")
+                (t \"/tmp/flesh-lib-test-file-1\"))
+            (write-file t s)
+            (echo (read-file t))
+            (eq? (read-file t) s))";
+        let result = "true";
+
+        let mut syms = SymTable::new();
+        static_stdlib(&mut syms);
+        assert_eq!(
+            *eval(&lex(&document.to_string()).unwrap(), &mut syms)
+                .unwrap()
+                .to_string(),
+            result.to_string(),
+        );
+    }
+
+    #[test]
+    fn test_append_file() {
+        let document = "
+          (let ((s \"test\")
+                (t \"/tmp/flesh-lib-test-file-2\"))
+            (write-file t s)
+            (append-file t s)
+            (eq? (read-file t)
+                (concat s s)))";
+        let result = "true";
+
+        let mut syms = SymTable::new();
+        static_stdlib(&mut syms);
+        assert_eq!(
+            *eval(&lex(&document.to_string()).unwrap(), &mut syms)
+                .unwrap()
+                .to_string(),
+            result.to_string(),
+        );
+    }
+
+}