Skip to main content

oak_delphi/builder/
mod.rs

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