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/// Delphi 语言的 AST 构建器
5#[derive(Clone, Default)]
6pub struct DelphiBuilder;
7
8impl DelphiBuilder {
9    pub fn new() -> Self {
10        Self
11    }
12}
13
14impl Builder<DelphiLanguage> for DelphiBuilder {
15    fn build<'a, S: Source + ?Sized>(&self, source: &S, edits: &[TextEdit], _cache: &'a mut impl BuilderCache<DelphiLanguage>) -> OakDiagnostics<DelphiRoot> {
16        let config = DelphiLanguage::default();
17        let parser = DelphiParser::new(&config);
18
19        let mut parse_cache = oak_core::parser::session::ParseSession::<DelphiLanguage>::default();
20        let parse_result = parser.parse(source, edits, &mut parse_cache);
21
22        match parse_result.result {
23            Ok(green_tree) => {
24                let source_text = SourceText::new(source.get_text_in((0..source.length()).into()));
25                match self.build_root(green_tree, &source_text) {
26                    Ok(ast_root) => OakDiagnostics { result: Ok(ast_root), diagnostics: parse_result.diagnostics },
27                    Err(build_error) => {
28                        let mut diagnostics = parse_result.diagnostics;
29                        diagnostics.push(build_error.clone());
30                        OakDiagnostics { result: Err(build_error), diagnostics }
31                    }
32                }
33            }
34            Err(parse_error) => OakDiagnostics { result: Err(parse_error), diagnostics: parse_result.diagnostics },
35        }
36    }
37}
38
39impl DelphiBuilder {
40    fn build_root<'a>(&self, green_tree: &'a GreenNode<'a, DelphiLanguage>, _source: &SourceText) -> Result<DelphiRoot, OakError> {
41        let _red_root = RedNode::new(green_tree, 0);
42        // 简单实现
43        Ok(DelphiRoot { items: Vec::new() })
44    }
45}