mod binder;
mod builder;
mod checker;
mod class;
mod diagnostics;
mod jsdoc;
mod label;
mod module_record;
mod node;
mod reference;
mod scope;
mod symbol;

pub mod dot;

use std::sync::Arc;

pub use builder::{SemanticBuilder, SemanticBuilderReturn};
use class::ClassTable;
pub use jsdoc::{JSDoc, JSDocFinder, JSDocTag};
pub use node::{AstNode, AstNodeId, AstNodes};
use oxc_ast::{ast::IdentifierReference, AstKind, Trivias};
use oxc_cfg::ControlFlowGraph;
use oxc_span::SourceType;
pub use oxc_syntax::{
    module_record::ModuleRecord,
    scope::{ScopeFlags, ScopeId},
    symbol::{SymbolFlags, SymbolId},
};
use rustc_hash::FxHashSet;

pub use crate::{
    reference::{Reference, ReferenceFlag, ReferenceId},
    scope::ScopeTree,
    symbol::SymbolTable,
};

pub struct Semantic<'a> {
    source_text: &'a str,

    source_type: SourceType,

    nodes: AstNodes<'a>,

    scopes: ScopeTree,

    symbols: SymbolTable,

    classes: ClassTable,

    trivias: Trivias,

    module_record: Arc<ModuleRecord>,

    jsdoc: JSDocFinder<'a>,

    unused_labels: FxHashSet<AstNodeId>,

    cfg: Option<ControlFlowGraph>,
}

impl<'a> Semantic<'a> {
    pub fn into_symbol_table_and_scope_tree(self) -> (SymbolTable, ScopeTree) {
        (self.symbols, self.scopes)
    }

    pub fn source_text(&self) -> &'a str {
        self.source_text
    }

    pub fn source_type(&self) -> &SourceType {
        &self.source_type
    }

    pub fn nodes(&self) -> &AstNodes<'a> {
        &self.nodes
    }

    pub fn scopes(&self) -> &ScopeTree {
        &self.scopes
    }

    pub fn classes(&self) -> &ClassTable {
        &self.classes
    }

    pub fn scopes_mut(&mut self) -> &mut ScopeTree {
        &mut self.scopes
    }

    pub fn trivias(&self) -> &Trivias {
        &self.trivias
    }

    pub fn jsdoc(&self) -> &JSDocFinder<'a> {
        &self.jsdoc
    }

    pub fn module_record(&self) -> &ModuleRecord {
        self.module_record.as_ref()
    }

    pub fn symbols(&self) -> &SymbolTable {
        &self.symbols
    }

    pub fn unused_labels(&self) -> &FxHashSet<AstNodeId> {
        &self.unused_labels
    }

    pub fn cfg(&self) -> Option<&ControlFlowGraph> {
        self.cfg.as_ref()
    }

    pub fn is_unresolved_reference(&self, node_id: AstNodeId) -> bool {
        let reference_node = self.nodes.get_node(node_id);
        let AstKind::IdentifierReference(id) = reference_node.kind() else {
            return false;
        };
        self.scopes().root_unresolved_references().contains_key(id.name.as_str())
    }

    /// Find which scope a symbol is declared in
    pub fn symbol_scope(&self, symbol_id: SymbolId) -> ScopeId {
        self.symbols.get_scope_id(symbol_id)
    }

    /// Get all resolved references for a symbol
    pub fn symbol_references(&self, symbol_id: SymbolId) -> impl Iterator<Item = &Reference> + '_ {
        self.symbols.get_resolved_references(symbol_id)
    }

    pub fn symbol_declaration(&self, symbol_id: SymbolId) -> &AstNode<'a> {
        self.nodes.get_node(self.symbols.get_declaration(symbol_id))
    }

    pub fn is_reference_to_global_variable(&self, ident: &IdentifierReference) -> bool {
        self.scopes().root_unresolved_references().contains_key(ident.name.as_str())
    }
}

#[cfg(test)]
mod tests {
    use oxc_allocator::Allocator;
    use oxc_ast::{ast::VariableDeclarationKind, AstKind};
    use oxc_span::{Atom, SourceType};

    use super::*;

    /// Create a [`Semantic`] from source code, assuming there are no syntax/semantic errors.
    fn get_semantic<'s, 'a: 's>(
        allocator: &'a Allocator,
        source: &'s str,
        source_type: SourceType,
    ) -> Semantic<'s> {
        let parse = oxc_parser::Parser::new(allocator, source, source_type).parse();
        assert!(parse.errors.is_empty());
        let program = allocator.alloc(parse.program);
        let semantic = SemanticBuilder::new(source, source_type).build(program);
        assert!(semantic.errors.is_empty(), "Parse error: {}", semantic.errors[0]);
        semantic.semantic
    }

    #[test]
    fn test_symbols() {
        let source = "
            let a;
            function foo(a) {
                return a + 1;
            }
            let b = a + foo(1);";
        let allocator = Allocator::default();
        let semantic = get_semantic(&allocator, source, SourceType::default());

        let top_level_a =
            semantic.scopes().get_binding(semantic.scopes().root_scope_id(), "a").unwrap();

        let decl = semantic.symbol_declaration(top_level_a);
        match decl.kind() {
            AstKind::VariableDeclarator(decl) => {
                assert_eq!(decl.kind, VariableDeclarationKind::Let);
            }
            kind => panic!("Expected VariableDeclarator for 'let', got {kind:?}"),
        }

        let references = semantic.symbol_references(top_level_a);
        assert_eq!(references.count(), 1);
    }

    #[test]
    fn test_top_level_symbols() {
        let source = "function Fn() {}";
        let allocator = Allocator::default();
        let semantic = get_semantic(&allocator, source, SourceType::default());

        let top_level_a = semantic
            .scopes()
            .iter_bindings()
            .find(|(_scope_id, _symbol_id, name)| name.as_str() == "Fn")
            .unwrap();
        assert_eq!(semantic.symbols.get_scope_id(top_level_a.1), top_level_a.0);
    }

    #[test]
    fn test_is_global() {
        let source = "
            var a = 0;
            function foo() {
            a += 1;
            }

            var b = a + 2;
        ";
        let allocator = Allocator::default();
        let semantic = get_semantic(&allocator, source, SourceType::default());
        for node in semantic.nodes().iter() {
            if let AstKind::IdentifierReference(id) = node.kind() {
                assert!(!semantic.is_reference_to_global_variable(id));
            }
        }
    }

    #[test]
    fn type_alias_gets_reference() {
        let source = "type A = 1; type B = A";
        let allocator = Allocator::default();
        let source_type: SourceType = SourceType::default().with_typescript(true);
        let semantic = get_semantic(&allocator, source, source_type);
        assert!(semantic.symbols().references.len() == 1);
    }

    #[test]
    fn test_reference_resolutions_simple_read_write() {
        let alloc = Allocator::default();
        let target_symbol_name = Atom::from("a");
        let typescript = SourceType::default().with_typescript(true).with_module(true);
        let sources = [
            // simple cases
            (SourceType::default(), "let a = 1; a = 2", ReferenceFlag::write()),
            (SourceType::default(), "let a = 1, b; b = a", ReferenceFlag::read()),
            (SourceType::default(), "let a = 1, b; b[a]", ReferenceFlag::read()),
            (SourceType::default(), "let a = 1, b = 1, c; c = a + b", ReferenceFlag::read()),
            (SourceType::default(), "function a() { return }; a()", ReferenceFlag::read()),
            (SourceType::default(), "class a {}; new a()", ReferenceFlag::read()),
            (SourceType::default(), "let a; function foo() { return a }", ReferenceFlag::read()),
            // pattern assignment
            (SourceType::default(), "let a = 1, b; b = { a }", ReferenceFlag::read()),
            (SourceType::default(), "let a, b; ({ b } = { a })", ReferenceFlag::read()),
            (SourceType::default(), "let a, b; ({ a } = { b })", ReferenceFlag::write()),
            (SourceType::default(), "let a, b; ([ b ] = [ a ])", ReferenceFlag::read()),
            (SourceType::default(), "let a, b; ([ a ] = [ b ])", ReferenceFlag::write()),
            // property access/mutation
            (SourceType::default(), "let a = { b: 1 }; a.b = 2", ReferenceFlag::read()),
            (SourceType::default(), "let a = { b: 1 }; a.b += 2", ReferenceFlag::read()),
            // parens are pass-through
            (SourceType::default(), "let a = 1, b; b = (a)", ReferenceFlag::read()),
            (SourceType::default(), "let a = 1, b; b = ++(a)", ReferenceFlag::read_write()),
            (SourceType::default(), "let a = 1, b; b = ++((((a))))", ReferenceFlag::read_write()),
            (SourceType::default(), "let a = 1, b; b = ((++((a))))", ReferenceFlag::read_write()),
            // simple binops/calls for sanity check
            (SourceType::default(), "let a, b; a + b", ReferenceFlag::read()),
            (SourceType::default(), "let a, b; b(a)", ReferenceFlag::read()),
            (SourceType::default(), "let a, b; a = 5", ReferenceFlag::write()),
            // unary op counts as write, but checking continues up tree
            (SourceType::default(), "let a = 1, b; b = ++a", ReferenceFlag::read_write()),
            (SourceType::default(), "let a = 1, b; b = --a", ReferenceFlag::read_write()),
            (SourceType::default(), "let a = 1, b; b = a++", ReferenceFlag::read_write()),
            (SourceType::default(), "let a = 1, b; b = a--", ReferenceFlag::read_write()),
            // assignment expressions count as read-write
            (SourceType::default(), "let a = 1, b; b = a += 5", ReferenceFlag::read_write()),
            (SourceType::default(), "let a = 1; a += 5", ReferenceFlag::read_write()),
            // note: we consider a to be written, and the read of `1` propagates upwards
            (SourceType::default(), "let a, b; b = a = 1", ReferenceFlag::read_write()),
            (SourceType::default(), "let a, b; b = (a = 1)", ReferenceFlag::read_write()),
            (SourceType::default(), "let a, b, c; b = c = a", ReferenceFlag::read()),
            // sequences return last value in sequence
            (SourceType::default(), "let a, b; b = (0, a++)", ReferenceFlag::read_write()),
            // loops
            (
                SourceType::default(),
                "var a, arr = [1, 2, 3]; for(a in arr) { break }",
                ReferenceFlag::write(),
            ),
            (
                SourceType::default(),
                "var a, obj = { }; for(a of obj) { break }",
                ReferenceFlag::write(),
            ),
            (SourceType::default(), "var a; for(; false; a++) { }", ReferenceFlag::read_write()),
            (SourceType::default(), "var a = 1; while(a < 5) { break }", ReferenceFlag::read()),
            // if statements
            (SourceType::default(), "let a; if (a) { true } else { false }", ReferenceFlag::read()),
            (
                SourceType::default(),
                "let a, b; if (a == b) { true } else { false }",
                ReferenceFlag::read(),
            ),
            (
                SourceType::default(),
                "let a, b; if (b == a) { true } else { false }",
                ReferenceFlag::read(),
            ),
            // identifiers not in last value are also considered a read (at
            // least, or now)
            (SourceType::default(), "let a, b; b = (a, 0)", ReferenceFlag::read()),
            (SourceType::default(), "let a, b; b = (--a, 0)", ReferenceFlag::read_write()),
            // other reads after a is written
            // a = 1 writes, but the CallExpression reads the rhs (1) so a isn't read
            (
                SourceType::default(),
                "let a; function foo(a) { return a }; foo(a = 1)",
                ReferenceFlag::read_write(),
            ),
            // member expression
            (SourceType::default(), "let a; a.b = 1", ReferenceFlag::read()),
            (SourceType::default(), "let a; let b; b[a += 1] = 1", ReferenceFlag::read_write()),
            (
                SourceType::default(),
                "let a; let b; let c; b[c[a = c['a']] = 'c'] = 'b'",
                ReferenceFlag::read_write(),
            ),
            (
                SourceType::default(),
                "let a; let b; let c; a[c[b = c['a']] = 'c'] = 'b'",
                ReferenceFlag::read(),
            ),
            (SourceType::default(), "console.log;let a=0;a++", ReferenceFlag::write()),
            // typescript
            (typescript, "let a: number = 1; (a as any) = true", ReferenceFlag::write()),
            (typescript, "let a: number = 1; a = true as any", ReferenceFlag::write()),
            (typescript, "let a: number = 1; a = 2 as const", ReferenceFlag::write()),
            (typescript, "let a: number = 1; a = 2 satisfies number", ReferenceFlag::write()),
            (typescript, "let a: number; (a as any) = 1;", ReferenceFlag::write()),
        ];

        for (source_type, source, flag) in sources {
            let semantic = get_semantic(&alloc, source, source_type);
            let a_id =
                semantic.scopes().get_root_binding(&target_symbol_name).unwrap_or_else(|| {
                    panic!("no references for '{target_symbol_name}' found");
                });
            let a_refs: Vec<_> = semantic.symbol_references(a_id).collect();
            let num_refs = a_refs.len();

            assert!(
                num_refs == 1,
                "expected to find 1 reference to '{target_symbol_name}' but {num_refs} were found\n\nsource:\n{source}"
            );
            let ref_type = a_refs[0];
            if flag.is_write() {
                assert!(
                    ref_type.is_write(),
                    "expected reference to '{target_symbol_name}' to be write\n\nsource:\n{source}"
                );
            } else {
                assert!(
                    !ref_type.is_write(),
                    "expected reference to '{target_symbol_name}' not to have been written to, but it is\n\nsource:\n{source}"
                );
            }
            if flag.is_read() {
                assert!(
                    ref_type.is_read(),
                    "expected reference to '{target_symbol_name}' to be read\n\nsource:\n{source}"
                );
            } else {
                assert!(
                    !ref_type.is_read(),
                    "expected reference to '{target_symbol_name}' not to be read, but it is\n\nsource:\n{source}"
                );
            }
        }
    }
}