2018-04-03 23:24:13 -07:00
|
|
|
#![feature(slice_patterns, box_patterns, box_syntax)]
|
2018-04-27 02:19:09 -07:00
|
|
|
#![feature(proc_macro)]
|
2018-03-23 18:43:43 -07:00
|
|
|
extern crate itertools;
|
|
|
|
#[macro_use]
|
|
|
|
extern crate lazy_static;
|
|
|
|
#[macro_use]
|
|
|
|
extern crate maplit;
|
2018-04-29 00:04:31 -07:00
|
|
|
#[macro_use]
|
2018-03-23 18:43:43 -07:00
|
|
|
extern crate schala_repl;
|
2018-05-02 02:14:36 -07:00
|
|
|
#[macro_use]
|
2018-04-27 02:19:09 -07:00
|
|
|
extern crate schala_codegen;
|
2018-03-23 18:43:43 -07:00
|
|
|
|
2018-05-13 18:02:54 -07:00
|
|
|
use std::cell::RefCell;
|
|
|
|
use std::rc::Rc;
|
|
|
|
|
2017-10-23 00:45:01 -07:00
|
|
|
use itertools::Itertools;
|
2018-03-20 21:17:46 -07:00
|
|
|
use schala_repl::{ProgrammingLanguageInterface, EvalOptions, TraceArtifact, UnfinishedComputation, FinishedComputation};
|
2017-10-23 00:45:01 -07:00
|
|
|
|
2018-02-23 03:04:19 -08:00
|
|
|
macro_rules! bx {
|
|
|
|
($e:expr) => { Box::new($e) }
|
|
|
|
}
|
|
|
|
|
2018-05-10 22:23:42 -07:00
|
|
|
mod util;
|
2018-02-23 04:10:00 -08:00
|
|
|
mod builtin;
|
2018-02-23 01:58:06 -08:00
|
|
|
mod tokenizing;
|
2017-10-23 00:45:01 -07:00
|
|
|
mod parsing;
|
2018-02-21 02:31:28 -08:00
|
|
|
mod typechecking;
|
2018-05-09 02:02:17 -07:00
|
|
|
mod ast_reducing;
|
2017-10-23 00:45:01 -07:00
|
|
|
mod eval;
|
|
|
|
|
2018-05-02 02:14:36 -07:00
|
|
|
#[derive(ProgrammingLanguageInterface)]
|
2018-05-02 03:53:38 -07:00
|
|
|
#[LanguageName = "Schala"]
|
2018-05-02 20:43:05 -07:00
|
|
|
#[SourceFileExtension = "schala"]
|
2018-05-09 02:02:17 -07:00
|
|
|
#[PipelineSteps(tokenizing, parsing, symbol_table, typechecking, ast_reducing, eval)]
|
2017-10-23 00:45:01 -07:00
|
|
|
pub struct Schala {
|
2018-02-24 13:56:04 -08:00
|
|
|
state: eval::State<'static>,
|
2018-05-13 18:02:54 -07:00
|
|
|
type_context: Rc<RefCell<typechecking::TypeContext>>,
|
2017-10-23 00:45:01 -07:00
|
|
|
}
|
|
|
|
|
|
|
|
impl Schala {
|
|
|
|
pub fn new() -> Schala {
|
2018-05-13 18:02:54 -07:00
|
|
|
let type_context = Rc::new(RefCell::new(typechecking::TypeContext::new()));
|
2017-10-23 00:45:01 -07:00
|
|
|
Schala {
|
2018-05-13 18:02:54 -07:00
|
|
|
type_context: type_context.clone(),
|
|
|
|
state: eval::State::new(Some(type_context)),
|
2017-10-23 00:45:01 -07:00
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2018-05-05 02:06:08 -07:00
|
|
|
fn tokenizing(_handle: &mut Schala, input: &str, comp: Option<&mut UnfinishedComputation>) -> Result<Vec<tokenizing::Token>, String> {
|
2018-04-29 21:15:19 -07:00
|
|
|
let tokens = tokenizing::tokenize(input);
|
|
|
|
comp.map(|comp| {
|
|
|
|
let token_string = tokens.iter().map(|t| format!("{:?}<L:{},C:{}>", t.token_type, t.offset.0, t.offset.1)).join(", ");
|
|
|
|
comp.add_artifact(TraceArtifact::new("tokens", token_string));
|
|
|
|
});
|
2018-05-02 00:27:58 -07:00
|
|
|
|
2018-05-02 01:14:46 -07:00
|
|
|
let errors: Vec<String> = tokens.iter().filter_map(|t| t.get_error()).collect();
|
|
|
|
if errors.len() == 0 {
|
|
|
|
Ok(tokens)
|
|
|
|
} else {
|
|
|
|
Err(format!("{:?}", errors))
|
|
|
|
}
|
2018-04-29 00:04:31 -07:00
|
|
|
}
|
|
|
|
|
2018-05-13 13:40:11 -07:00
|
|
|
fn parsing(_handle: &mut Schala, input: Vec<tokenizing::Token>, comp: Option<&mut UnfinishedComputation>) -> Result<parsing::AST, String> {
|
2018-04-29 21:15:19 -07:00
|
|
|
|
|
|
|
let (ast, trace) = parsing::parse(input);
|
|
|
|
comp.map(|comp| {
|
|
|
|
//TODO need to control which of these debug stages get added
|
|
|
|
comp.add_artifact(TraceArtifact::new_parse_trace(trace));
|
|
|
|
comp.add_artifact(TraceArtifact::new("ast", format!("{:#?}", ast)));
|
|
|
|
});
|
2018-05-13 13:40:11 -07:00
|
|
|
ast.map_err(|err| err.msg)
|
2018-04-29 00:04:31 -07:00
|
|
|
}
|
|
|
|
|
2018-05-05 02:06:08 -07:00
|
|
|
fn symbol_table(handle: &mut Schala, input: parsing::AST, comp: Option<&mut UnfinishedComputation>) -> Result<parsing::AST, String> {
|
2018-05-13 18:02:54 -07:00
|
|
|
let add = handle.type_context.borrow_mut().add_top_level_types(&input);
|
|
|
|
match add {
|
2018-04-29 22:51:01 -07:00
|
|
|
Ok(()) => {
|
2018-05-13 18:02:54 -07:00
|
|
|
let artifact = TraceArtifact::new("symbol_table", handle.type_context.borrow().debug_symbol_table());
|
2018-05-05 12:14:19 -07:00
|
|
|
comp.map(|comp| comp.add_artifact(artifact));
|
2018-04-29 22:51:01 -07:00
|
|
|
Ok(input)
|
|
|
|
},
|
2018-04-29 03:45:31 -07:00
|
|
|
Err(msg) => Err(msg)
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2018-05-05 02:06:08 -07:00
|
|
|
fn typechecking(handle: &mut Schala, input: parsing::AST, comp: Option<&mut UnfinishedComputation>) -> Result<parsing::AST, String> {
|
2018-05-13 18:02:54 -07:00
|
|
|
match handle.type_context.borrow_mut().type_check_ast(&input) {
|
2018-04-29 03:45:31 -07:00
|
|
|
Ok(ty) => {
|
2018-04-29 22:51:01 -07:00
|
|
|
comp.map(|comp| comp.add_artifact(TraceArtifact::new("type_check", format!("{:?}", ty))));
|
2018-04-29 03:45:31 -07:00
|
|
|
Ok(input)
|
|
|
|
},
|
2018-05-05 02:07:27 -07:00
|
|
|
Err(msg) => {
|
2018-05-05 12:14:19 -07:00
|
|
|
comp.map(|comp| comp.add_artifact(TraceArtifact::new("type_check", format!("Type error: {:?}", msg))));
|
2018-05-05 02:07:27 -07:00
|
|
|
Ok(input)
|
|
|
|
}
|
2018-04-29 03:45:31 -07:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2018-05-12 13:00:39 -07:00
|
|
|
fn ast_reducing(_handle: &mut Schala, input: parsing::AST, comp: Option<&mut UnfinishedComputation>) -> Result<ast_reducing::ReducedAST, String> {
|
2018-05-11 00:45:32 -07:00
|
|
|
let output = input.reduce();
|
2018-05-11 02:58:14 -07:00
|
|
|
comp.map(|comp| comp.add_artifact(TraceArtifact::new("ast_reducing", format!("{:?}", output))));
|
2018-05-12 02:20:50 -07:00
|
|
|
Ok(output)
|
2018-05-09 02:02:17 -07:00
|
|
|
}
|
|
|
|
|
2018-05-12 02:20:50 -07:00
|
|
|
fn eval(handle: &mut Schala, input: ast_reducing::ReducedAST, comp: Option<&mut UnfinishedComputation>) -> Result<String, String> {
|
2018-05-11 02:33:19 -07:00
|
|
|
comp.map(|comp| comp.add_artifact(TraceArtifact::new("value_state", handle.state.debug_print())));
|
2018-05-12 02:20:50 -07:00
|
|
|
let evaluation_outputs = handle.state.evaluate(input, true);
|
2018-04-29 03:45:31 -07:00
|
|
|
let text_output: Result<Vec<String>, String> = evaluation_outputs
|
|
|
|
.into_iter()
|
|
|
|
.collect();
|
|
|
|
|
|
|
|
let eval_output: Result<String, String> = text_output
|
|
|
|
.map(|v| { v.into_iter().intersperse(format!("\n")).collect() });
|
|
|
|
eval_output
|
|
|
|
}
|
2018-05-09 02:02:17 -07:00
|
|
|
|