complexpr/src/interpreter.rs

use std::{cell::RefCell, rc::Rc};

use crate::{value::Value, lexer::Lexer, parser::Parser, eval::{Environment, eval_stmt, eval_expr, EnvRef}, expr::Stmt, stdlib};

pub fn interpret(src: &str, fname: Option<String>, env: Option<EnvRef>, repl: bool) -> Result<Value, Box<dyn std::error::Error>> {
    let mut lexer = Lexer::new(src, fname);
    lexer.lex()?;
    let mut parser = Parser::new(lexer.into_tokens(), repl);
    let ast = parser.parse()?;
    let environ;
    if let Some(env) = env {
        environ = env;
    } else {
        environ = Rc::new(RefCell::new(Environment::new()));
        stdlib::load(&mut environ.borrow_mut());
    }

    let mut result = Value::Nil;
    for stmt in ast {
        if let Stmt::Expr{expr} = stmt {
            result = eval_expr(&expr, environ.clone())?;
        } else {
            eval_stmt(&stmt, environ.clone()).map_err(|e| e.as_error())?;
            result = Value::Nil;
        }
    }
    Ok(result)
}