aboutsummaryrefslogtreecommitdiff
path: root/crates/sloth_vm/src/sloth_std/stdio.rs
diff options
context:
space:
mode:
Diffstat (limited to 'crates/sloth_vm/src/sloth_std/stdio.rs')
-rw-r--r--crates/sloth_vm/src/sloth_std/stdio.rs51
1 files changed, 51 insertions, 0 deletions
diff --git a/crates/sloth_vm/src/sloth_std/stdio.rs b/crates/sloth_vm/src/sloth_std/stdio.rs
new file mode 100644
index 0000000..a743ad1
--- /dev/null
+++ b/crates/sloth_vm/src/sloth_std/stdio.rs
@@ -0,0 +1,51 @@
+use std::io::{stdin, BufRead};
+
+use crate::native::{self, NativeFunction, NativeFunctionResult};
+use crate::value::{Object, ObjectType, Primitive};
+use crate::VM;
+
+fn write(vm: &mut VM, args: &[Primitive]) -> NativeFunctionResult {
+ let Some(Primitive::Object(ptr)) = args.get(0).cloned() else {
+ return Err(native::Error::InvalidArgument);
+ };
+
+ let object = vm
+ .objects()
+ .get(ptr as usize)
+ .ok_or(native::Error::InvalidArgument)?;
+
+ let ObjectType::String(str) = &object.typ else {
+ return Err(native::Error::InvalidArgument);
+ };
+
+ println!("{str}");
+
+ Ok(Primitive::Empty)
+}
+
+pub const WRITE_FUNCTION: NativeFunction = NativeFunction {
+ name: "write",
+ function: write,
+ arity: 1,
+ returns_value: false,
+};
+
+fn read(vm: &mut VM, _args: &[Primitive]) -> NativeFunctionResult {
+ let mut line = String::new();
+ stdin()
+ .lock()
+ .read_line(&mut line)
+ .map_err(|it| native::Error::Unknown(it.to_string()))?;
+
+ let object = Object::new(ObjectType::String(line));
+ let ptr = vm.objects_mut().allocate(object);
+
+ Ok(Primitive::Object(ptr as u32))
+}
+
+pub const READ_FUNCTION: NativeFunction = NativeFunction {
+ name: "read",
+ function: read,
+ arity: 0,
+ returns_value: true,
+};