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

use std::rc::Rc;

pub use builder::{SemanticBuilder, SemanticBuilderReturn};
pub use jsdoc::{JSDoc, JSDocComment, JSDocTag};
use oxc_ast::{ast::IdentifierReference, AstKind, Trivias};
use oxc_span::SourceType;
pub use oxc_syntax::{
    module_record::ModuleRecord,
    scope::{ScopeFlags, ScopeId},
    symbol::{SymbolFlags, SymbolId},
};

pub use crate::{
    node::{AstNode, AstNodeId, AstNodes, NodeFlags},
    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,

    trivias: Rc<Trivias>,

    module_record: ModuleRecord,

    jsdoc: JSDoc<'a>,

    unused_labels: Vec<AstNodeId>,
}

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 trivias(&self) -> &Trivias {
        &self.trivias
    }

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

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

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

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

    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)
    }

    /// 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(
        &'a self,
        symbol_id: SymbolId,
    ) -> impl Iterator<Item = &'a 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)
    }
}

#[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(), &Atom::from("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_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 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 = 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::write()),
            (SourceType::default(), "let a, b; b = (a = 1)", ReferenceFlag::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::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}");
            }
        }
    }
}
