oak_perl/builder/
mod.rs

1use crate::{ast::PerlRoot, language::PerlLanguage, parser::PerlParser};
2use oak_core::{Builder, BuilderCache, OakDiagnostics, Parser, Source, SourceText, TextEdit, parser::session::ParseSession};
3
4/// Builder for Perl AST nodes.
5///
6/// This builder coordinates the lexing and parsing processes to produce a `PerlRoot` AST.
7pub struct PerlBuilder<'config> {
8    /// The Perl language configuration.
9    config: &'config PerlLanguage,
10}
11
12impl<'config> PerlBuilder<'config> {
13    /// Creates a new `PerlBuilder` with the given language configuration.
14    pub fn new(config: &'config PerlLanguage) -> Self {
15        Self { config }
16    }
17}
18
19impl<'config> Builder<PerlLanguage> for PerlBuilder<'config> {
20    fn build<'a, S: Source + ?Sized>(&self, source: &S, edits: &[TextEdit], _cache: &'a mut impl BuilderCache<PerlLanguage>) -> OakDiagnostics<PerlRoot> {
21        let parser = PerlParser::new(self.config);
22
23        let mut parse_cache = ParseSession::<PerlLanguage>::default();
24        let parse_result = parser.parse(source, edits, &mut parse_cache);
25
26        match parse_result.result {
27            Ok(_green_tree) => {
28                let _source_text = SourceText::new(source.get_text_in((0..source.length()).into()).into_owned());
29                // Placeholder implementation
30                let ast_root = PerlRoot { items: Vec::new() };
31                OakDiagnostics { result: Ok(ast_root), diagnostics: parse_result.diagnostics }
32            }
33            Err(e) => OakDiagnostics { result: Err(e), diagnostics: parse_result.diagnostics },
34        }
35    }
36}
oak_perl/builder/mod.rs

oak_perl/builder/
mod.rs
