Merge pull request sl-sh-dev#169 from sl-sh-dev/io-builtins

Io builtins

Author: sstanfield

Cargo.lock

@@ -34,6 +34,7 @@ compile_state = { path = "compile_state" }
 sl-compiler = { path = "compiler" }
 compiler_test_utils = { path = "compiler/test_utils" }
 slvm = { path = "vm" }
+shell = { path = "shell" }
 regex = "1"
 lazy_static = "1"
 mdbook = "0.4.37"

Cargo.toml

@@ -279,9 +279,3 @@ impl SlFrom<Value> for Value {
         Ok(value)
     }
 }
-
-impl<'a> SlFromRef<'a, Value> for Value {
-    fn sl_from_ref(value: Value, _vm: &'a SloshVm) -> VMResult<Self> {
-        Ok(value)
-    }
-}

bridge_adapters/src/lisp_adapters.rs

@@ -35,6 +35,11 @@ impl SlFrom<u32> for Value {
     }
 }
 
+impl SlFrom<i64> for Value {
+    fn sl_from(value: i64, _vm: &mut SloshVm) -> VMResult<Self> {
+        Ok(to_i56(value))
+    }
+}
 impl<'a> SlFromRef<'a, Value> for i32 {
     fn sl_from_ref(value: Value, vm: &'a SloshVm) -> VMResult<i32> {
         match value {

bridge_adapters/src/lisp_adapters/numbers.rs

@@ -2,6 +2,12 @@ use crate::lisp_adapters::{SlFrom, SlFromRef};
 use compile_state::state::SloshVm;
 use slvm::{VMResult, Value};
 
+impl<'a> SlFromRef<'a, Value> for Value {
+    fn sl_from_ref(value: Value, _vm: &SloshVm) -> VMResult<Self> {
+        Ok(value)
+    }
+}
+
 impl<'a> SlFromRef<'a, Value> for bool {
     fn sl_from_ref(value: Value, _vm: &SloshVm) -> VMResult<Self> {
         match value {

bridge_adapters/src/lisp_adapters/primitives.rs

@@ -166,6 +166,7 @@ impl<'a> SlFromRef<'a, Value> for String {
     fn sl_from_ref(value: Value, vm: &'a SloshVm) -> VMResult<Self> {
         match value {
             Value::String(h) => Ok(vm.get_string(h).to_string()),
+            Value::StringConst(i) => Ok(vm.get_interned(i).to_string()),
             _ => Err(VMError::new_conversion(
                 ErrorStrings::fix_me_mismatched_type(
                     <&'static str>::from(ValueType::String),

bridge_adapters/src/lisp_adapters/text.rs

@@ -8,12 +8,18 @@ edition = "2021"
 [dependencies]
 slvm = { workspace = true }
 compile_state = { workspace = true }
+shell = { workspace = true }
 sl-compiler = { workspace = true }
 bridge_adapters = { path = "../bridge_adapters" }
 unicode-segmentation = "1.10.1"
+unicode_reader = "1"
 bridge_types = { workspace = true }
 bridge_macros = { path = "../bridge_macros" }
 static_assertions = "1.1.0"
+rand = "0.8.5"
+walkdir = "2.5.0"
+same-file = "1.0.6"
+glob = "0.3"
 
 [dev-dependencies]
 trybuild = "1.0"