oak-perl 0.0.11

Perl scripting language parser with support for text processing, system administration, and modern Perl features.
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

use crate::{ast::PerlRoot, language::PerlLanguage, parser::PerlParser};
use oak_core::{Builder, BuilderCache, OakDiagnostics, Parser, Source, SourceText, TextEdit, parser::session::ParseSession};

/// Builder for Perl AST nodes.
///
/// This builder coordinates the lexing and parsing processes to produce a `PerlRoot` AST.
pub struct PerlBuilder<'config> {
    /// The Perl language configuration.
    config: &'config PerlLanguage,
}

impl<'config> PerlBuilder<'config> {
    /// Creates a new `PerlBuilder` with the given language configuration.
    pub fn new(config: &'config PerlLanguage) -> Self {
        Self { config }
    }
}

impl<'config> Builder<PerlLanguage> for PerlBuilder<'config> {
    fn build<'a, S: Source + ?Sized>(&self, source: &S, edits: &[TextEdit], _cache: &'a mut impl BuilderCache<PerlLanguage>) -> OakDiagnostics<PerlRoot> {
        let parser = PerlParser::new(self.config);

        let mut parse_cache = ParseSession::<PerlLanguage>::default();
        let parse_result = parser.parse(source, edits, &mut parse_cache);

        match parse_result.result {
            Ok(_green_tree) => {
                let _source_text = SourceText::new(source.get_text_in((0..source.length()).into()).into_owned());
                // Placeholder implementation
                let ast_root = PerlRoot { items: Vec::new() };
                OakDiagnostics { result: Ok(ast_root), diagnostics: parse_result.diagnostics }
            }
            Err(e) => OakDiagnostics { result: Err(e), diagnostics: parse_result.diagnostics },
        }
    }
}