use crate::parse::traits::{Block, Edge, EdgeType, Parameter, Visibility};
use crate::parse::traits::{
CodeIntelligence, ComplexityMetrics, Error, Graph, ImportInfo, Result, SignatureInfo,
};
use tree_sitter::Parser;
pub struct ScalaParser;
impl Default for ScalaParser {
fn default() -> Self {
Self::new()
}
}
impl ScalaParser {
pub fn new() -> Self {
Self
}
}
impl CodeIntelligence for ScalaParser {
fn get_signatures(&self, source: &[u8]) -> Result<Vec<SignatureInfo>> {
let mut parser = Parser::new();
parser
.set_language(&crate::parse::traits::languages::scala::language())
.map_err(|e| Error::ParseFailed(e.to_string()))?;
let tree = parser
.parse(source, None)
.ok_or_else(|| Error::ParseFailed("Failed to parse Scala source".to_string()))?;
let root_node = tree.root_node();
let imports = extract_scala_imports(root_node, source);
let mut signatures = Vec::new();
visit(&root_node, source, &mut signatures, &[]);
for sig in &mut signatures {
sig.imports = imports.clone();
}
Ok(signatures)
}
fn compute_cfg(&self, source: &[u8], node_id: usize) -> Result<Graph<Block, Edge>> {
let mut parser = Parser::new();
parser
.set_language(&crate::parse::traits::languages::scala::language())
.map_err(|e| Error::ParseFailed(e.to_string()))?;
let tree = parser
.parse(source, None)
.ok_or_else(|| Error::ParseFailed("Failed to parse Scala source".to_string()))?;
let root_node = tree.root_node();
let node = find_node_by_id(&root_node, node_id)
.ok_or_else(|| Error::ParseFailed(format!("Node {} not found", node_id)))?;
let mut cfg_builder = CfgBuilder::new(source);
cfg_builder.build_from_node(&node)?;
Ok(cfg_builder.finish())
}
fn extract_complexity(&self, node: &tree_sitter::Node<'_>) -> ComplexityMetrics {
let mut complexity = ComplexityMetrics {
cyclomatic: 1,
nesting_depth: 0,
line_count: 0,
token_count: 0,
};
calculate_complexity(node, &mut complexity, 0);
complexity
}
}
fn visit(
node: &tree_sitter::Node<'_>,
source: &[u8],
sigs: &mut Vec<SignatureInfo>,
parent_path: &[String],
) {
match node.kind() {
"function_definition" => {
if let Some(name) = node
.child_by_field_name("name")
.and_then(|n| n.utf8_text(source).ok())
{
let parameters = node
.child_by_field_name("parameters")
.map(|params| extract_parameters(¶ms, source))
.unwrap_or_default();
let return_type = node
.child_by_field_name("return_type")
.and_then(|rt| rt.utf8_text(source).ok())
.map(|s| s.trim().to_string());
let mut qualified_path = parent_path.to_vec();
qualified_path.push(name.to_string());
let qualified_name = qualified_path.join(".");
let calls = extract_scala_calls(node, source);
sigs.push(SignatureInfo {
name: name.to_string(),
qualified_name,
parameters,
return_type,
visibility: Visibility::Public,
is_async: false,
is_method: !parent_path.is_empty(),
docstring: extract_docstring(node, source),
calls,
imports: vec![],
byte_range: (0, 0),
cyclomatic_complexity: 0,
});
}
}
"class_definition" | "trait_definition" | "object_definition" => {
if let Some(name) = node
.child_by_field_name("name")
.and_then(|n| n.utf8_text(source).ok())
{
let entity_type = match node.kind() {
"trait_definition" => "trait",
"object_definition" => "object",
_ => "class",
};
let mut qualified_path = parent_path.to_vec();
qualified_path.push(name.to_string());
let qualified_name = qualified_path.join(".");
sigs.push(SignatureInfo {
name: name.to_string(),
qualified_name,
parameters: vec![],
return_type: Some(entity_type.to_string()),
visibility: Visibility::Public,
is_async: false,
is_method: false,
docstring: extract_docstring(node, source),
calls: vec![],
imports: vec![],
byte_range: (0, 0),
cyclomatic_complexity: 0,
});
let mut c = node.walk();
for ch in node.children(&mut c) {
visit(&ch, source, sigs, &qualified_path);
}
}
}
_ => {
let mut c = node.walk();
for ch in node.children(&mut c) {
visit(&ch, source, sigs, parent_path);
}
}
}
}
fn extract_scala_imports(root: tree_sitter::Node<'_>, source: &[u8]) -> Vec<ImportInfo> {
let mut imports = Vec::new();
fn add_import(imports: &mut Vec<ImportInfo>, path: &str, alias: Option<String>) {
let path = path.trim().trim_end_matches(';').trim();
if path.is_empty() {
return;
}
imports.push(ImportInfo {
path: path.to_string(),
alias,
});
}
fn parse_import_text(imports: &mut Vec<ImportInfo>, text: &str) {
let text = text
.trim()
.trim_end_matches(';')
.trim_start_matches("import ");
if text.contains("=>") {
for part in text.split(',') {
let part = part.trim().trim_matches('{').trim_matches('}');
if let Some((path, alias)) = part.split_once("=>") {
add_import(imports, path.trim(), Some(alias.trim().to_string()));
}
}
} else {
for part in text.split(',') {
let part = part.trim();
if part.is_empty() {
continue;
}
let alias = part.split('.').next_back().map(|s| s.to_string());
add_import(imports, part, alias);
}
}
}
fn visit(node: &tree_sitter::Node<'_>, source: &[u8], imports: &mut Vec<ImportInfo>) {
if node.kind() == "import_declaration" {
if let Ok(text) = node.utf8_text(source) {
parse_import_text(imports, text);
}
}
let mut cursor = node.walk();
for child in node.children(&mut cursor) {
visit(&child, source, imports);
}
}
visit(&root, source, &mut imports);
imports
}
fn extract_scala_calls(node: &tree_sitter::Node<'_>, source: &[u8]) -> Vec<String> {
let mut calls = Vec::new();
fn clean_call_text(raw: &str) -> String {
raw.split('(').next().unwrap_or(raw).trim().to_string()
}
fn find_calls(node: &tree_sitter::Node<'_>, source: &[u8], calls: &mut Vec<String>) {
match node.kind() {
"call_expression" | "method_call" | "function_call" => {
if let Some(func) = node
.child_by_field_name("function")
.or_else(|| node.child_by_field_name("name"))
{
if let Ok(text) = func.utf8_text(source) {
let name = clean_call_text(text);
if !name.is_empty() {
calls.push(name);
}
}
} else if let Ok(text) = node.utf8_text(source) {
let name = clean_call_text(text);
if !name.is_empty() {
calls.push(name);
}
}
}
_ => {}
}
let mut cursor = node.walk();
for child in node.children(&mut cursor) {
find_calls(&child, source, calls);
}
}
find_calls(node, source, &mut calls);
calls
}
fn extract_parameters(params_node: &tree_sitter::Node<'_>, source: &[u8]) -> Vec<Parameter> {
let mut parameters = Vec::new();
let mut cursor = params_node.walk();
for child in params_node.children(&mut cursor) {
if child.kind() == "parameter" {
if let Some(name_node) = child.child_by_field_name("name") {
if let Ok(name) = name_node.utf8_text(source) {
let type_annotation = child
.child_by_field_name("type")
.and_then(|t| t.utf8_text(source).ok())
.map(|s| s.trim().to_string());
parameters.push(Parameter {
name: name.to_string(),
type_annotation,
default_value: None,
});
}
}
}
}
parameters
}
fn extract_docstring(node: &tree_sitter::Node<'_>, source: &[u8]) -> Option<String> {
let mut cursor = node.walk();
for child in node.children(&mut cursor) {
if child.kind() == "comment" {
if let Ok(comment) = child.utf8_text(source) {
let cleaned = comment
.trim_start_matches("/**")
.trim_start_matches("/*")
.trim_end_matches("*/")
.trim()
.to_string();
if !cleaned.is_empty() {
return Some(cleaned);
}
}
}
}
None
}
fn find_node_by_id<'a>(
node: &'a tree_sitter::Node<'a>,
id: usize,
) -> Option<tree_sitter::Node<'a>> {
use std::collections::VecDeque;
if node.id() == id {
return Some(*node);
}
let mut queue: VecDeque<tree_sitter::Node<'a>> = VecDeque::new();
let mut cursor = node.walk();
for child in node.children(&mut cursor) {
queue.push_back(child);
}
while let Some(current) = queue.pop_front() {
if current.id() == id {
return Some(current);
}
let mut child_cursor = current.walk();
for child in current.children(&mut child_cursor) {
queue.push_back(child);
}
}
None
}
fn calculate_complexity(
node: &tree_sitter::Node<'_>,
metrics: &mut ComplexityMetrics,
depth: usize,
) {
metrics.nesting_depth = metrics.nesting_depth.max(depth);
metrics.line_count = std::cmp::max(metrics.line_count, 1);
match node.kind() {
"if_expression" | "while_expression" | "for_expression" | "match_expression"
| "try_expression" => {
metrics.cyclomatic += 1;
}
"case_clause" => {
metrics.cyclomatic += 1;
}
_ => {}
}
metrics.token_count += node.child_count();
let mut cursor = node.walk();
for child in node.children(&mut cursor) {
calculate_complexity(&child, metrics, depth + 1);
}
}
struct CfgBuilder<'a> {
source: &'a [u8],
blocks: Vec<Block>,
edges: Vec<Edge>,
next_block_id: usize,
}
impl<'a> CfgBuilder<'a> {
fn new(source: &'a [u8]) -> Self {
Self {
source,
blocks: Vec::new(),
edges: Vec::new(),
next_block_id: 0,
}
}
fn build_from_node(&mut self, node: &tree_sitter::Node<'_>) -> Result<()> {
let entry_id = self.create_block();
self.build_cfg_recursive(node, entry_id)?;
Ok(())
}
fn build_cfg_recursive(
&mut self,
node: &tree_sitter::Node<'_>,
current_block: usize,
) -> Result<()> {
match node.kind() {
"if_expression" => {
self.handle_if_statement(node, current_block)?;
}
"while_expression" => {
self.handle_while_statement(node, current_block)?;
}
"for_expression" => {
self.handle_for_statement(node, current_block)?;
}
"match_expression" => {
self.handle_match_statement(node, current_block)?;
}
_ => {
if let Ok(text) = node.utf8_text(self.source) {
self.add_statement_to_block(current_block, text.to_string());
}
let mut cursor = node.walk();
for child in node.children(&mut cursor) {
self.build_cfg_recursive(&child, current_block)?;
}
}
}
Ok(())
}
fn handle_if_statement(
&mut self,
_node: &tree_sitter::Node<'_>,
current_block: usize,
) -> Result<()> {
let true_block = self.create_block();
let false_block = self.create_block();
let merge_block = self.create_block();
self.edges.push(Edge {
from: current_block,
to: true_block,
edge_type: EdgeType::TrueBranch,
});
self.edges.push(Edge {
from: current_block,
to: false_block,
edge_type: EdgeType::FalseBranch,
});
self.edges.push(Edge {
from: true_block,
to: merge_block,
edge_type: EdgeType::Unconditional,
});
self.edges.push(Edge {
from: false_block,
to: merge_block,
edge_type: EdgeType::Unconditional,
});
Ok(())
}
fn handle_while_statement(
&mut self,
_node: &tree_sitter::Node<'_>,
current_block: usize,
) -> Result<()> {
let body_block = self.create_block();
self.edges.push(Edge {
from: current_block,
to: body_block,
edge_type: EdgeType::TrueBranch,
});
self.edges.push(Edge {
from: body_block,
to: current_block,
edge_type: EdgeType::Loop,
});
Ok(())
}
fn handle_for_statement(
&mut self,
_node: &tree_sitter::Node<'_>,
current_block: usize,
) -> Result<()> {
let body_block = self.create_block();
self.edges.push(Edge {
from: current_block,
to: body_block,
edge_type: EdgeType::Unconditional,
});
self.edges.push(Edge {
from: body_block,
to: current_block,
edge_type: EdgeType::Loop,
});
Ok(())
}
fn handle_match_statement(
&mut self,
_node: &tree_sitter::Node<'_>,
current_block: usize,
) -> Result<()> {
let merge_block = self.create_block();
let mut cursor = _node.walk();
for child in _node.children(&mut cursor) {
if child.kind() == "case_clause" {
let case_block = self.create_block();
self.edges.push(Edge {
from: current_block,
to: case_block,
edge_type: EdgeType::TrueBranch,
});
self.edges.push(Edge {
from: case_block,
to: merge_block,
edge_type: EdgeType::Unconditional,
});
}
}
Ok(())
}
fn create_block(&mut self) -> usize {
let id = self.next_block_id;
self.next_block_id += 1;
self.blocks.push(Block {
id,
statements: Vec::new(),
});
id
}
fn add_statement_to_block(&mut self, block_id: usize, statement: String) {
if let Some(block) = self.blocks.get_mut(block_id) {
block.statements.push(statement);
}
}
fn finish(self) -> Graph<Block, Edge> {
Graph {
blocks: self.blocks,
edges: self.edges,
entry_block: 0,
exit_blocks: vec![self.next_block_id.saturating_sub(1)],
}
}
}
#[cfg(test)]
mod tests {
use super::*;
#[test]
fn test_scala_function() {
let source = b"def greet(name: String): String = s\"Hello, $name\"";
let parser = ScalaParser::new();
let sigs = parser.get_signatures(source).unwrap();
assert!(!sigs.is_empty());
}
#[test]
fn test_scala_class() {
let source = b"class Person(name: String)";
let parser = ScalaParser::new();
let sigs = parser.get_signatures(source).unwrap();
assert_eq!(sigs.len(), 1);
assert_eq!(sigs[0].return_type, Some("class".to_string()));
}
}