oak_clojure/builder/
mod.rs

1#![doc = include_str!("readme.md")]
2use crate::{ast::*, language::ClojureLanguage, parser::ClojureParser};
3use oak_core::{Builder, BuilderCache, GreenNode, OakDiagnostics, Parser, SourceText, TextEdit, source::Source};
4
5/// AST builder for the Clojure language
6#[derive(Clone)]
7pub struct ClojureBuilder<'config> {
8    /// Language configuration
9    config: &'config ClojureLanguage,
10}
11
12impl<'config> ClojureBuilder<'config> {
13    /// Creates a new Clojure builder
14    pub fn new(config: &'config ClojureLanguage) -> Self {
15        Self { config }
16    }
17
18    /// Builds the AST root node from the green tree
19    pub fn build_root<'a>(&self, green: &'a GreenNode<'a, ClojureLanguage>, _source: &SourceText) -> Result<ClojureRoot<'a>, oak_core::OakError> {
20        // Simplified AST building logic
21        // Note: The current definition of ClojureRoot requires a RedNode; here we return a basic implementation.
22        // The actual implementation usually involves converting GreenNode to RedNode.
23        let tree = oak_core::tree::RedNode::new(green, 0);
24        ClojureRoot::cast(tree).ok_or_else(|| oak_core::OakError::custom_error("Failed to cast to ClojureRoot"))
25    }
26}
27
28impl<'config> Builder<ClojureLanguage> for ClojureBuilder<'config> {
29    fn build<'a, S: Source + ?Sized>(&self, source: &'a S, edits: &[TextEdit], cache: &'a mut impl BuilderCache<ClojureLanguage>) -> oak_core::builder::BuildOutput<ClojureLanguage> {
30        let parser = ClojureParser::new(self.config);
31        // We use the provided cache instead of creating a local one
32        let parse_result = parser.parse(source, edits, cache);
33
34        match parse_result.result {
35            Ok(green_tree) => {
36                let source_text = SourceText::new(source.get_text_in((0..source.length()).into()).into_owned());
37                match self.build_root(green_tree, &source_text) {
38                    Ok(_ast_root) => {
39                        // Since ClojureRoot has a lifetime, it might need special handling here.
40                        // In the Builder trait, TypedRoot is usually () or a type without a lifetime.
41                        // For now, we return Ok(()) if TypedRoot is ().
42                        OakDiagnostics { result: Ok(()), diagnostics: parse_result.diagnostics }
43                    }
44                    Err(build_error) => {
45                        let mut diagnostics = parse_result.diagnostics;
46                        diagnostics.push(build_error.clone());
47                        OakDiagnostics { result: Err(build_error), diagnostics }
48                    }
49                }
50            }
51            Err(parse_error) => OakDiagnostics { result: Err(parse_error), diagnostics: parse_result.diagnostics },
52        }
53    }
54}
oak_clojure/builder/mod.rs

oak_clojure/builder/
mod.rs
