1use crate::{ast::OCamlRoot, language::OCamlLanguage, parser::OCamlParser};
2use oak_core::{Builder, BuilderCache, Lexer, OakDiagnostics, Parser, TextEdit, source::Source};
3
4#[derive(Clone)]
5pub struct OCamlBuilder<'config> {
6 config: &'config OCamlLanguage,
7}
8
9impl<'config> OCamlBuilder<'config> {
10 pub fn new(config: &'config OCamlLanguage) -> Self {
11 Self { config }
12 }
13}
14
15impl<'config> Builder<OCamlLanguage> for OCamlBuilder<'config> {
16 fn build<'a, S: Source + ?Sized>(&self, source: &'a S, edits: &[TextEdit], _cache: &'a mut impl BuilderCache<OCamlLanguage>) -> OakDiagnostics<OCamlRoot> {
17 let parser = OCamlParser::new(self.config);
18 let lexer = crate::lexer::OCamlLexer::new(self.config);
19
20 let mut session = oak_core::parser::session::ParseSession::<OCamlLanguage>::default();
21 lexer.lex(source, edits, &mut session);
22 let parse_result = parser.parse(source, edits, &mut session);
23
24 match parse_result.result {
25 Ok(_green_tree) => {
26 let ast_root = OCamlRoot { items: vec![] };
27 OakDiagnostics { result: Ok(ast_root), diagnostics: parse_result.diagnostics }
28 }
29 Err(parse_error) => OakDiagnostics { result: Err(parse_error), diagnostics: parse_result.diagnostics },
30 }
31 }
32}