65 lines
1.7 KiB
Rust
65 lines
1.7 KiB
Rust
mod environment;
|
|
mod interpreter;
|
|
mod lexer;
|
|
mod parser;
|
|
mod primitives;
|
|
|
|
use std::env;
|
|
use std::fs;
|
|
use std::io;
|
|
use std::io::prelude::*;
|
|
use std::path::Path;
|
|
|
|
fn repl() {
|
|
let mut env = environment::get_global_environment();
|
|
loop {
|
|
let mut input = String::new();
|
|
print!(" ]=> ");
|
|
io::stdout().flush().ok().expect("Could not flush stdout");
|
|
match io::stdin().read_line(&mut input) {
|
|
Ok(_) => {
|
|
let tokens = lexer::read(&input);
|
|
let datum = parser::parse(tokens);
|
|
let result = interpreter::interpret(&datum, &mut env);
|
|
println!("{:?}", result);
|
|
}
|
|
Err(error) => println!("error: {}", error),
|
|
}
|
|
}
|
|
}
|
|
|
|
fn interpret_code(scm_code: &str) {
|
|
let tokens = lexer::read(scm_code);
|
|
let datum = parser::parse(tokens);
|
|
let mut env = environment::get_global_environment();
|
|
let result = interpreter::interpret(&datum, &mut env);
|
|
println!("{:?}", result);
|
|
}
|
|
|
|
fn interpret_file(filename: &Path) {
|
|
match fs::read_to_string(filename) {
|
|
Ok(scm_code) => {
|
|
let tokens = lexer::read(scm_code.as_str());
|
|
let datum = parser::parse(tokens);
|
|
let mut env = environment::get_global_environment();
|
|
let _result = interpreter::interpret(&datum, &mut env);
|
|
// println!("{:?}", result);
|
|
}
|
|
Err(error) => println!("error: {} {:?}", error, filename),
|
|
}
|
|
}
|
|
|
|
fn main() {
|
|
let args: Vec<String> = env::args().collect();
|
|
let scm_code = "";
|
|
|
|
if args.len() == 2 {
|
|
let arg_path = Path::new(&args[1]);
|
|
interpret_file(arg_path);
|
|
} else if scm_code.len() > 0 {
|
|
interpret_code(scm_code);
|
|
} else {
|
|
repl();
|
|
}
|
|
}
|