cha-core 1.15.0

use std::collections::HashMap;
use std::path::{Path, PathBuf};

use streaming_iterator::StreamingIterator;
use wasmtime::component::{Component, HasSelf, Linker};
use wasmtime::{Engine, Store};
use wasmtime_wasi::{ResourceTable, WasiCtx, WasiCtxBuilder, WasiCtxView, WasiView};

use crate::model::ArmValue;
use crate::plugin::{Finding, Location, Severity, SmellCategory};
use crate::{AnalysisContext, Plugin};

mod bindings {
    wasmtime::component::bindgen!({
        path: "wit/plugin.wit",
        world: "analyzer",
    });
}

use bindings::Analyzer;
use bindings::cha::plugin::project_query;
use bindings::cha::plugin::tree_query;
pub use bindings::cha::plugin::types as wit;

use crate::ProjectQuery;

// cha:ignore large_class
struct HostState {
    wasi: WasiCtx,
    table: ResourceTable,
    tree: Option<tree_sitter::Tree>,
    source: Vec<u8>,
    ts_language: Option<tree_sitter::Language>,
    query_cache: HashMap<String, tree_sitter::Query>,
    project: Option<std::sync::Arc<dyn ProjectQuery>>,
}

impl WasiView for HostState {
    fn ctx(&mut self) -> WasiCtxView<'_> {
        WasiCtxView {
            ctx: &mut self.wasi,
            table: &mut self.table,
        }
    }
}

fn new_host_state(
    tree: Option<tree_sitter::Tree>,
    source: Vec<u8>,
    ts_language: Option<tree_sitter::Language>,
    project: Option<std::sync::Arc<dyn ProjectQuery>>,
) -> HostState {
    let wasi = WasiCtxBuilder::new().build();
    HostState {
        wasi,
        table: ResourceTable::new(),
        tree,
        source,
        ts_language,
        query_cache: HashMap::new(),
        project,
    }
}

impl bindings::cha::plugin::types::Host for HostState {}

impl project_query::Host for HostState {
    fn is_called_externally(&mut self, name: String, exclude_path: String) -> bool {
        self.project
            .as_ref()
            .is_some_and(|p| p.is_called_externally(&name, std::path::Path::new(&exclude_path)))
    }

    fn callers_of(&mut self, name: String) -> Vec<String> {
        self.project
            .as_ref()
            .map(|p| {
                p.callers_of(&name)
                    .into_iter()
                    .map(|p| p.to_string_lossy().into_owned())
                    .collect()
            })
            .unwrap_or_default()
    }

    fn cross_file_call_counts(&mut self) -> Vec<(String, String, u32)> {
        self.project
            .as_ref()
            .map(|p| {
                p.cross_file_call_counts()
                    .into_iter()
                    .map(|((a, b), c)| {
                        (
                            a.to_string_lossy().into_owned(),
                            b.to_string_lossy().into_owned(),
                            c,
                        )
                    })
                    .collect()
            })
            .unwrap_or_default()
    }

    fn function_home(&mut self, name: String) -> Option<String> {
        self.project
            .as_ref()
            .and_then(|p| p.function_home(&name))
            .map(|p| p.to_string_lossy().into_owned())
    }

    fn function_by_name(&mut self, name: String) -> Option<(String, wit::FunctionInfo)> {
        let p = self.project.as_ref()?;
        let (path, info) = p.function_by_name(&name)?;
        Some((
            path.to_string_lossy().into_owned(),
            convert_function_info(&info),
        ))
    }

    fn class_home(&mut self, name: String) -> Option<String> {
        self.project
            .as_ref()
            .and_then(|p| p.class_home(&name))
            .map(|p| p.to_string_lossy().into_owned())
    }

    fn is_project_type(&mut self, name: String) -> bool {
        self.project
            .as_ref()
            .is_some_and(|p| p.is_project_type(&name))
    }

    fn is_third_party(&mut self, type_ref: wit::TypeRef) -> bool {
        let core_ref = wit_to_core_type_ref(&type_ref);
        self.project
            .as_ref()
            .is_some_and(|p| p.is_third_party(&core_ref))
    }

    fn workspace_crate_names(&mut self) -> Vec<String> {
        self.project
            .as_ref()
            .map(|p| p.workspace_crate_names())
            .unwrap_or_default()
    }

    fn is_test_path(&mut self, path: String) -> bool {
        self.project
            .as_ref()
            .is_some_and(|p| p.is_test_path(std::path::Path::new(&path)))
    }

    fn file_count(&mut self) -> u32 {
        self.project
            .as_ref()
            .map(|p| p.file_count() as u32)
            .unwrap_or(0)
    }
}

fn wit_to_core_type_ref(t: &wit::TypeRef) -> crate::model::TypeRef {
    crate::model::TypeRef {
        name: t.name.clone(),
        raw: t.raw.clone(),
        origin: match &t.origin {
            wit::TypeOrigin::ProjectLocal => crate::model::TypeOrigin::Local,
            wit::TypeOrigin::External(s) => crate::model::TypeOrigin::External(s.clone()),
            wit::TypeOrigin::Primitive => crate::model::TypeOrigin::Primitive,
            wit::TypeOrigin::Unknown => crate::model::TypeOrigin::Unknown,
        },
    }
}

/// Convert a core FunctionInfo to its WIT counterpart for project_query callbacks.
fn convert_function_info(f: &crate::model::FunctionInfo) -> wit::FunctionInfo {
    wit::FunctionInfo {
        name: f.name.clone(),
        start_line: f.start_line as u32,
        end_line: f.end_line as u32,
        name_col: f.name_col as u32,
        name_end_col: f.name_end_col as u32,
        line_count: f.line_count as u32,
        complexity: f.complexity as u32,
        parameter_count: f.parameter_count as u32,
        parameter_types: f.parameter_types.iter().map(to_wit_type_ref).collect(),
        parameter_names: f.parameter_names.clone(),
        chain_depth: f.chain_depth as u32,
        switch_arms: f.switch_arms as u32,
        switch_arm_values: f.switch_arm_values.iter().map(to_wit_arm_value).collect(),
        external_refs: f.external_refs.clone(),
        is_delegating: f.is_delegating,
        is_exported: f.is_exported,
        comment_lines: f.comment_lines as u32,
        referenced_fields: f.referenced_fields.clone(),
        null_check_fields: f.null_check_fields.clone(),
        switch_dispatch_target: f.switch_dispatch_target.clone(),
        optional_param_count: f.optional_param_count as u32,
        called_functions: f.called_functions.clone(),
        cognitive_complexity: f.cognitive_complexity as u32,
        body_hash: f.body_hash.map(|h| format!("{h:016x}")),
        return_type: f.return_type.as_ref().map(to_wit_type_ref),
    }
}

impl tree_query::Host for HostState {
    fn run_query(&mut self, pattern: String) -> Vec<Vec<tree_query::QueryMatch>> {
        self.execute_query(&pattern)
    }

    fn run_queries(&mut self, patterns: Vec<String>) -> Vec<Vec<Vec<tree_query::QueryMatch>>> {
        patterns.iter().map(|p| self.execute_query(p)).collect()
    }

    fn node_at(&mut self, line: u32, col: u32) -> Option<tree_query::QueryMatch> {
        let tree = self.tree.as_ref()?;
        let point = tree_sitter::Point::new(line as usize, col as usize);
        let node = tree.root_node().descendant_for_point_range(point, point)?;
        Some(node_to_query_match(&node, &self.source, ""))
    }

    fn nodes_in_range(&mut self, start_line: u32, end_line: u32) -> Vec<tree_query::QueryMatch> {
        let tree = match &self.tree {
            Some(t) => t,
            None => return vec![],
        };
        let mut results = vec![];
        let mut cursor = tree.root_node().walk();
        for child in tree.root_node().children(&mut cursor) {
            let node_start = child.start_position().row as u32;
            let node_end = child.end_position().row as u32;
            if node_end < start_line {
                continue;
            }
            if node_start > end_line {
                break;
            }
            if child.is_named() {
                results.push(node_to_query_match(&child, &self.source, ""));
            }
        }
        results
    }
}

impl HostState {
    fn execute_query(&mut self, pattern: &str) -> Vec<Vec<tree_query::QueryMatch>> {
        let (tree, ts_lang) = match (&self.tree, &self.ts_language) {
            (Some(t), Some(l)) => (t, l),
            _ => return vec![],
        };

        if !self.query_cache.contains_key(pattern) {
            let q = match tree_sitter::Query::new(ts_lang, pattern) {
                Ok(q) => q,
                Err(_) => return vec![],
            };
            self.query_cache.insert(pattern.to_string(), q);
        }
        let query = self.query_cache.get(pattern).unwrap();
        let capture_names: Vec<&str> = query.capture_names().to_vec();

        let mut cursor = tree_sitter::QueryCursor::new();
        let mut results = vec![];
        let mut matches = cursor.matches(query, tree.root_node(), self.source.as_slice());
        while let Some(m) = StreamingIterator::next(&mut matches) {
            let captures: Vec<_> = m
                .captures
                .iter()
                .map(|c| {
                    let name: &str = capture_names.get(c.index as usize).copied().unwrap_or("");
                    node_to_query_match(&c.node, &self.source, name)
                })
                .collect();
            results.push(captures);
        }
        results
    }
}

fn node_to_query_match(
    node: &tree_sitter::Node,
    source: &[u8],
    capture_name: &str,
) -> tree_query::QueryMatch {
    let text = node.utf8_text(source).unwrap_or("").to_string();
    tree_query::QueryMatch {
        capture_name: capture_name.to_string(),
        node_kind: node.kind().to_string(),
        text,
        start_line: node.start_position().row as u32,
        start_col: node.start_position().column as u32,
        end_line: node.end_position().row as u32,
        end_col: node.end_position().column as u32,
    }
}

/// Adapter that loads a WASM component and wraps it as a Plugin.
pub struct WasmPlugin {
    engine: Engine,
    component: Component,
    plugin_name: String,
    plugin_version: String,
    plugin_description: String,
    plugin_authors: Vec<String>,
    plugin_smells: Vec<String>,
    options: Vec<(String, wit::OptionValue)>,
}

impl WasmPlugin {
    pub fn load(path: &Path) -> wasmtime::Result<Self> {
        let engine = Engine::default();
        let bytes = std::fs::read(path)?;
        let component = Component::from_binary(&engine, &bytes)?;

        let mut linker = Linker::<HostState>::new(&engine);
        wasmtime_wasi::p2::add_to_linker_sync(&mut linker)?;
        Analyzer::add_to_linker::<HostState, HasSelf<HostState>>(&mut linker, |s| s)?;

        let mut store = Store::new(&engine, new_host_state(None, vec![], None, None));
        let instance = Analyzer::instantiate(&mut store, &component, &linker)?;
        let name = instance.call_name(&mut store)?;
        let version = instance.call_version(&mut store)?;
        let description = instance.call_description(&mut store)?;
        let authors = instance.call_authors(&mut store)?;
        let smells = instance.call_smells(&mut store)?;

        Ok(Self {
            engine,
            component,
            plugin_name: name,
            plugin_version: version,
            plugin_description: description,
            plugin_authors: authors,
            plugin_smells: smells,
            options: vec![],
        })
    }

    /// Set plugin options from config.
    pub fn set_options(&mut self, options: Vec<(String, wit::OptionValue)>) {
        self.options = options;
    }
}

impl Plugin for WasmPlugin {
    fn name(&self) -> &str {
        &self.plugin_name
    }

    fn version(&self) -> &str {
        &self.plugin_version
    }

    fn description(&self) -> &str {
        &self.plugin_description
    }

    fn authors(&self) -> Vec<String> {
        self.plugin_authors.clone()
    }

    fn smells(&self) -> Vec<String> {
        self.plugin_smells.clone()
    }

    fn analyze(&self, ctx: &AnalysisContext) -> Vec<Finding> {
        let result = (|| -> wasmtime::Result<Vec<Finding>> {
            let mut linker = Linker::<HostState>::new(&self.engine);
            wasmtime_wasi::p2::add_to_linker_sync(&mut linker)?;
            Analyzer::add_to_linker::<HostState, HasSelf<HostState>>(&mut linker, |s| s)?;

            let (tree, ts_lang) = match (ctx.tree, ctx.ts_language) {
                (Some(t), Some(l)) => (Some(t.clone()), Some(l.clone())),
                _ => (None, None),
            };
            let source = ctx.file.content.as_bytes().to_vec();
            let project = ctx.project.cloned();
            let mut store =
                Store::new(&self.engine, new_host_state(tree, source, ts_lang, project));
            let instance = Analyzer::instantiate(&mut store, &self.component, &linker)?;
            let input = to_wit_input(ctx, &self.options);
            let results = instance.call_analyze(&mut store, &input)?;
            Ok(results.into_iter().map(from_wit_finding).collect())
        })();

        result.unwrap_or_else(|e| {
            eprintln!("wasm plugin error: {}", e);
            vec![]
        })
    }
}

fn to_wit_input(
    ctx: &AnalysisContext,
    options: &[(String, wit::OptionValue)],
) -> wit::AnalysisInput {
    wit::AnalysisInput {
        path: ctx.file.path.to_string_lossy().into(),
        content: ctx.file.content.clone(),
        language: ctx.model.language.clone(),
        total_lines: ctx.model.total_lines as u32,
        role: infer_file_role(&ctx.file.path),
        functions: convert_functions(&ctx.model.functions),
        classes: convert_classes(&ctx.model.classes),
        imports: convert_imports(&ctx.model.imports),
        comments: convert_comments(&ctx.model.comments),
        type_aliases: ctx
            .model
            .type_aliases
            .iter()
            .map(|(k, v)| (k.clone(), v.clone()))
            .collect(),
        options: options.to_vec(),
    }
}

fn infer_file_role(path: &Path) -> wit::FileRole {
    let s = path.to_string_lossy();
    if s.contains("/test") || s.contains("_test.") || s.contains("/tests/") || s.contains("/spec/")
    {
        return wit::FileRole::Test;
    }
    if s.contains("/generated/") || s.contains(".generated.") || s.contains(".gen.") {
        return wit::FileRole::Generated;
    }
    match path.extension().and_then(|e| e.to_str()) {
        Some("md" | "txt" | "rst" | "adoc") => return wit::FileRole::Doc,
        Some("toml" | "json" | "yaml" | "yml" | "ini" | "cfg") => return wit::FileRole::Config,
        _ => {}
    }
    wit::FileRole::Source
}

/// Generic slice converter to avoid duplicate map-collect patterns.
fn convert_slice<T, U>(items: &[T], f: impl Fn(&T) -> U) -> Vec<U> {
    items.iter().map(f).collect()
}

fn convert_functions(funcs: &[crate::model::FunctionInfo]) -> Vec<wit::FunctionInfo> {
    convert_slice(funcs, |f| wit::FunctionInfo {
        name: f.name.clone(),
        start_line: f.start_line as u32,
        end_line: f.end_line as u32,
        name_col: f.name_col as u32,
        name_end_col: f.name_end_col as u32,
        line_count: f.line_count as u32,
        complexity: f.complexity as u32,
        parameter_count: f.parameter_count as u32,
        parameter_types: f.parameter_types.iter().map(to_wit_type_ref).collect(),
        parameter_names: f.parameter_names.clone(),
        chain_depth: f.chain_depth as u32,
        switch_arms: f.switch_arms as u32,
        switch_arm_values: f.switch_arm_values.iter().map(to_wit_arm_value).collect(),
        external_refs: f.external_refs.clone(),
        is_delegating: f.is_delegating,
        is_exported: f.is_exported,
        comment_lines: f.comment_lines as u32,
        referenced_fields: f.referenced_fields.clone(),
        null_check_fields: f.null_check_fields.clone(),
        switch_dispatch_target: f.switch_dispatch_target.clone(),
        optional_param_count: f.optional_param_count as u32,
        called_functions: f.called_functions.clone(),
        cognitive_complexity: f.cognitive_complexity as u32,
        body_hash: f.body_hash.map(|h| format!("{h:016x}")),
        return_type: f.return_type.as_ref().map(to_wit_type_ref),
    })
}

fn to_wit_arm_value(v: &ArmValue) -> wit::ArmValue {
    match v {
        ArmValue::Str(s) => wit::ArmValue::StrLit(s.clone()),
        ArmValue::Int(i) => wit::ArmValue::IntLit(*i),
        ArmValue::Char(c) => wit::ArmValue::CharLit(*c as u32),
        ArmValue::Other => wit::ArmValue::Other,
    }
}

fn to_wit_type_ref(t: &crate::model::TypeRef) -> wit::TypeRef {
    wit::TypeRef {
        name: t.name.clone(),
        raw: t.raw.clone(),
        origin: match &t.origin {
            crate::model::TypeOrigin::Local => wit::TypeOrigin::ProjectLocal,
            crate::model::TypeOrigin::External(m) => wit::TypeOrigin::External(m.clone()),
            crate::model::TypeOrigin::Primitive => wit::TypeOrigin::Primitive,
            crate::model::TypeOrigin::Unknown => wit::TypeOrigin::Unknown,
        },
    }
}

fn convert_classes(classes: &[crate::model::ClassInfo]) -> Vec<wit::ClassInfo> {
    convert_slice(classes, |c| wit::ClassInfo {
        name: c.name.clone(),
        start_line: c.start_line as u32,
        end_line: c.end_line as u32,
        name_col: c.name_col as u32,
        name_end_col: c.name_end_col as u32,
        method_count: c.method_count as u32,
        line_count: c.line_count as u32,
        delegating_method_count: c.delegating_method_count as u32,
        field_count: c.field_count as u32,
        field_names: c.field_names.clone(),
        field_types: c.field_types.clone(),
        is_exported: c.is_exported,
        has_behavior: c.has_behavior,
        is_interface: c.is_interface,
        parent_name: c.parent_name.clone(),
        override_count: c.override_count as u32,
        self_call_count: c.self_call_count as u32,
        has_listener_field: c.has_listener_field,
        has_notify_method: c.has_notify_method,
    })
}

fn convert_imports(imports: &[crate::model::ImportInfo]) -> Vec<wit::ImportInfo> {
    convert_slice(imports, |i| wit::ImportInfo {
        source: i.source.clone(),
        line: i.line as u32,
        col: i.col as u32,
        is_module_decl: i.is_module_decl,
    })
}

fn convert_comments(comments: &[crate::model::CommentInfo]) -> Vec<wit::CommentInfo> {
    convert_slice(comments, |c| wit::CommentInfo {
        text: c.text.clone(),
        line: c.line as u32,
    })
}

fn from_wit_finding(f: wit::Finding) -> Finding {
    Finding {
        smell_name: f.smell_name,
        category: convert_category(f.category),
        severity: convert_severity(f.severity),
        location: Location {
            path: PathBuf::from(&f.location.path),
            start_line: f.location.start_line as usize,
            start_col: f.location.start_col as usize,
            end_line: f.location.end_line as usize,
            end_col: f.location.end_col as usize,
            name: f.location.name,
        },
        message: f.message,
        suggested_refactorings: f.suggested_refactorings,
        actual_value: f.actual_value,
        threshold: f.threshold,
        risk_score: None,
    }
}

fn convert_severity(s: wit::Severity) -> Severity {
    match s {
        wit::Severity::Hint => Severity::Hint,
        wit::Severity::Warning => Severity::Warning,
        wit::Severity::Error => Severity::Error,
    }
}

fn convert_category(c: wit::SmellCategory) -> SmellCategory {
    match c {
        wit::SmellCategory::Bloaters => SmellCategory::Bloaters,
        wit::SmellCategory::OoAbusers => SmellCategory::OoAbusers,
        wit::SmellCategory::ChangePreventers => SmellCategory::ChangePreventers,
        wit::SmellCategory::Dispensables => SmellCategory::Dispensables,
        wit::SmellCategory::Couplers => SmellCategory::Couplers,
        wit::SmellCategory::Security => SmellCategory::Security,
    }
}

/// Scan plugin directories and load all .wasm components.
pub fn load_wasm_plugins(project_dir: &Path) -> Vec<WasmPlugin> {
    let mut plugins: Vec<WasmPlugin> = Vec::new();
    let mut seen = HashMap::new();

    let project_plugins = project_dir.join(".cha").join("plugins");
    let global_plugins = home_dir().join(".cha").join("plugins");

    for dir in [&project_plugins, &global_plugins] {
        load_plugins_from_dir(dir, &mut seen, &mut plugins);
    }

    plugins
}

/// Load .wasm plugins from a single directory, skipping duplicates by filename.
fn load_plugins_from_dir(
    dir: &Path,
    seen: &mut HashMap<String, bool>,
    plugins: &mut Vec<WasmPlugin>,
) {
    let entries = match std::fs::read_dir(dir) {
        Ok(e) => e,
        Err(_) => return,
    };
    for entry in entries.flatten() {
        let path = entry.path();
        if path.extension().is_none_or(|e| e != "wasm") {
            continue;
        }
        let filename = path.file_name().unwrap().to_string_lossy().to_string();
        if seen.contains_key(&filename) {
            continue;
        }
        match WasmPlugin::load(&path) {
            Ok(p) => {
                seen.insert(filename, true);
                plugins.push(p);
            }
            Err(e) => {
                eprintln!("failed to load wasm plugin {}: {}", path.display(), e);
            }
        }
    }
}

fn home_dir() -> PathBuf {
    std::env::var("HOME")
        .map(PathBuf::from)
        .unwrap_or_else(|_| PathBuf::from("."))
}

/// Convert a TOML value to a WIT option-value.
pub fn toml_to_option_value(v: &toml::Value) -> Option<wit::OptionValue> {
    match v {
        toml::Value::String(s) => Some(wit::OptionValue::Str(s.clone())),
        toml::Value::Integer(i) => Some(wit::OptionValue::Int(*i)),
        toml::Value::Float(f) => Some(wit::OptionValue::Float(*f)),
        toml::Value::Boolean(b) => Some(wit::OptionValue::Boolean(*b)),
        toml::Value::Array(arr) => {
            let strs: Vec<String> = arr
                .iter()
                .filter_map(|v| v.as_str().map(String::from))
                .collect();
            Some(wit::OptionValue::ListStr(strs))
        }
        _ => None,
    }
}