nyavascript 0.1.0

pub mod evaluate;
pub mod s_expression;
pub mod parse;

use evaluate::{ Environment, evaluate, McCarthyScope, FunScope };
use s_expression::SExpressionRef;
use parse::parse;
use std::error::Error;

pub fn run(text: &str) -> Result<SExpressionRef, Box<dyn Error>> {
    let parsed = parse(text)?;

    let mut context = Environment::new();
    context.push_lib(McCarthyScope::new());
    context.push_lib(FunScope::new());

    let ret = evaluate(parsed, &mut context)?;

    Ok(ret)
}

#[cfg(test)]
mod test {
    use super::*;
    use crate::s_expression::{
        SExpressionRef as SXRef,
        ConsCell,
    };

    #[test]
    fn pipe() {
        let code = "(|> '(1 2) (cdr) (cons 4) (quote))";

        let expected = SXRef::from(vec![
            SXRef::number(4),
            SXRef::number(2),
        ]);

        let actual = run(code).unwrap();

        assert_eq!(expected, actual);
    }

    #[test]
    fn list_fns() {
        let code = "(cons (car '(1 2)) (cdr '(3 4)))";

        let expected = SXRef::from(vec![
            SXRef::number(1),
            SXRef::number(4),
        ]);

        let actual = run(code).unwrap();

        assert_eq!(expected, actual);
    }

    #[test]
    fn dot_notation() {
        let code = "(cons (car '(1 . 2)) (cdr '(3 . 4)))";

        let expected = SXRef::cons_cell(ConsCell::new(
            SXRef::number(1),
            SXRef::number(4),
        ));

        let actual = run(code).unwrap();

        assert_eq!(expected, actual);
    }
}