1use crate::{ast::*, language::TclLanguage, lexer::TclLexer, parser::TclParser};
2use oak_core::{Builder, BuilderCache, GreenNode, Lexer, OakDiagnostics, OakError, Parser, RedNode, SourceText, TextEdit, source::Source};
3
4#[derive(Clone)]
6pub struct TclBuilder<'config> {
7 config: &'config TclLanguage,
9}
10
11impl<'config> TclBuilder<'config> {
12 pub fn new(config: &'config TclLanguage) -> Self {
14 Self { config }
15 }
16}
17
18impl<'config> Builder<TclLanguage> for TclBuilder<'config> {
19 fn build<'a, S: Source + ?Sized>(&self, source: &'a S, edits: &[TextEdit], _cache: &'a mut impl BuilderCache<TclLanguage>) -> oak_core::builder::BuildOutput<TclLanguage> {
20 let parser = TclParser::new(self.config);
21 let lexer = TclLexer::new(&self.config);
22
23 let mut cache = oak_core::parser::session::ParseSession::<TclLanguage>::default();
24 lexer.lex(source, edits, &mut cache);
25 let parse_result = parser.parse(source, edits, &mut cache);
26
27 match parse_result.result {
28 Ok(green_tree) => {
29 let source_text = SourceText::new(source.get_text_in((0..source.length()).into()).into_owned());
30 match self.build_root(green_tree.clone(), &source_text) {
31 Ok(ast_root) => OakDiagnostics { result: Ok(ast_root), diagnostics: parse_result.diagnostics },
32 Err(build_error) => {
33 let mut diagnostics = parse_result.diagnostics;
34 diagnostics.push(build_error.clone());
35 OakDiagnostics { result: Err(build_error), diagnostics }
36 }
37 }
38 }
39 Err(parse_error) => OakDiagnostics { result: Err(parse_error), diagnostics: parse_result.diagnostics },
40 }
41 }
42}
43
44impl<'config> TclBuilder<'config> {
45 pub(crate) fn build_root(&self, green_tree: GreenNode<TclLanguage>, _source: &SourceText) -> Result<TclRoot, OakError> {
47 let red_root = RedNode::new(&green_tree, 0);
48 let span = red_root.span();
49 let items = Vec::new();
50
51 Ok(TclRoot { span: span.into(), items })
54 }
55}