1 files changed, 38 insertions, 6 deletions

diff --git a/src/utils.rs b/src/utils.rs
index 3e5ff55..fc96615 100644
--- a/src/utils.rs
+++ b/src/utils.rs
@@ -1,4 +1,18 @@
-use crate::{consts::FONT_PATH, lisp::error::LispError, message::Message};
+use crate::{
+    app::AppState,
+    consts::FONT_PATH,
+    lisp::{
+        error::{EvalError, LispError, ParseError},
+        eval::eval,
+        expr::LispExpr,
+        lex::Lexer,
+        parse::Parser,
+    },
+    message::Message,
+};
+
+use std::{fs::OpenOptions, io::Read, path::Path};
+
 use sdl2::{
     keyboard::{Keycode, Mod},
     pixels::Color,
@@ -47,11 +61,29 @@ pub fn is_paste_event(keycode: Option<Keycode>, keymod: Mod) -> bool {
     keycode == Some(Keycode::V) && (keymod == Mod::LCTRLMOD || keymod == Mod::RCTRLMOD)
 }
 
-pub fn handle_error(err: LispError, src: &str) -> Message {
+pub fn handle_error(err: ParseError, src: &str, file_name: &str) -> Message {
     let mut message = Message::new();
-    match err {
-        LispError::Parse(p) => message.set_error(p.display(&src)),
-        eval_err => message.set_error(eval_err.to_string()),
-    }
+    message.set_error(err.display(&src, file_name));
     message
 }
+
+pub fn load_script<P: AsRef<Path>>(path: P, app: &mut AppState) -> Result<(), LispError> {
+    let mut script = OpenOptions::new()
+        .read(true)
+        .write(false)
+        .create(false)
+        .open(path.as_ref())
+        .map_err(EvalError::ScriptLoadError)?;
+    let mut buf = String::new();
+    script
+        .read_to_string(&mut buf)
+        .map_err(EvalError::ScriptLoadError)?;
+
+    let mut parser = Parser::new(Lexer::new(&buf, 0));
+    for expr in parser.parse_exprs().map_err(|err| {
+        LispError::Stringified(err.display(&buf, path.as_ref().to_str().unwrap_or("<unknown>")))
+    })? {
+        eval(&expr, app)?;
+    }
+    return Ok(());
+}