use spl::{lexer::lex, runtime::*};

use std::{fs, env::args};

fn main() -> OError {
    let rt = Runtime::new();
    rt.set();
    let mut stack = Stack::new_in(FrameInfo {
        file: "std.spl".to_owned(),
        function: "root".to_owned(),
    });
    fn argv(stack: &mut Stack) -> OError {
        stack.push(Value::Array(args().into_iter().map(|x| Value::Str(x).spl()).collect()).spl());
        Ok(())
    }
    fn read_file(stack: &mut Stack) -> OError {
        let Value::Str(s) = stack.pop().lock_ro().native.clone() else {
            return stack.err(ErrorKind::InvalidCall("read_file".to_owned()))
        };
        stack.push(Value::Str(fs::read_to_string(s).map_err(|x| stack.error(ErrorKind::IO(format!("{x:?}"))))?).spl());
        Ok(())
    }
    stack.define_func("argv".to_owned(), AFunc::new(Func {
        ret_count: 1,
        to_call: FuncImpl::Native(argv),
        origin: stack.get_frame(),
        fname: None,
        name: "argv".to_owned(),
    }));
    stack.define_func("read-file".to_owned(), AFunc::new(Func {
        ret_count: 1,
        to_call: FuncImpl::Native(read_file),
        origin: stack.get_frame(),
        fname: None,
        name: "read-file".to_owned(),
    }));
    let words = lex(fs::read_to_string("std.spl").unwrap()).map_err(|x| Error {
        kind: ErrorKind::LexError(format!("{x:?}")),
        stack: Vec::new(),
    })?;
    words.exec(&mut stack)?;
    Runtime::reset();
    Ok(())
}