pub(crate) use decl::make_module;

#[pymodule(name = "symtable")]
mod decl {
    use std::fmt;

    use crate::builtins::pystr::PyStrRef;
    use crate::builtins::pytype::PyTypeRef;
    use crate::compile::{self, Symbol, SymbolScope, SymbolTable, SymbolTableType};
    use crate::vm::VirtualMachine;
    use crate::{PyRef, PyResult, PyValue, StaticType};

    /// symtable. Return top level SymbolTable.
    /// See docs: https://docs.python.org/3/library/symtable.html?highlight=symtable#symtable.symtable
    #[pyfunction]
    fn symtable(
        source: PyStrRef,
        filename: PyStrRef,
        mode: PyStrRef,
        vm: &VirtualMachine,
    ) -> PyResult<PySymbolTableRef> {
        let mode = mode
            .as_str()
            .parse::<compile::Mode>()
            .map_err(|err| vm.new_value_error(err.to_string()))?;

        let symtable = compile::compile_symtable(source.as_str(), mode, filename.as_str())
            .map_err(|err| vm.new_syntax_error(&err))?;

        let py_symbol_table = to_py_symbol_table(symtable);
        Ok(py_symbol_table.into_ref(vm))
    }

    fn to_py_symbol_table(symtable: SymbolTable) -> PySymbolTable {
        PySymbolTable { symtable }
    }

    type PySymbolTableRef = PyRef<PySymbolTable>;
    type PySymbolRef = PyRef<PySymbol>;

    #[pyattr]
    #[pyclass(name = "SymbolTable")]
    struct PySymbolTable {
        symtable: SymbolTable,
    }

    impl fmt::Debug for PySymbolTable {
        fn fmt(&self, f: &mut fmt::Formatter) -> fmt::Result {
            write!(f, "SymbolTable()")
        }
    }

    impl PyValue for PySymbolTable {
        fn class(_vm: &VirtualMachine) -> &PyTypeRef {
            Self::static_type()
        }
    }

    #[pyimpl]
    impl PySymbolTable {
        #[pymethod(name = "get_name")]
        fn get_name(&self) -> String {
            self.symtable.name.clone()
        }

        #[pymethod(name = "get_type")]
        fn get_type(&self) -> String {
            self.symtable.typ.to_string()
        }

        #[pymethod(name = "get_lineno")]
        fn get_lineno(&self) -> usize {
            self.symtable.line_number
        }

        #[pymethod(name = "is_nested")]
        fn is_nested(&self) -> bool {
            self.symtable.is_nested
        }

        #[pymethod(name = "is_optimized")]
        fn is_optimized(&self) -> bool {
            self.symtable.typ == SymbolTableType::Function
        }

        #[pymethod(name = "lookup")]
        fn lookup(&self, name: PyStrRef, vm: &VirtualMachine) -> PyResult<PySymbolRef> {
            let name = name.as_str();
            if let Some(symbol) = self.symtable.symbols.get(name) {
                Ok(PySymbol {
                    symbol: symbol.clone(),
                    namespaces: self
                        .symtable
                        .sub_tables
                        .iter()
                        .filter(|table| table.name == name)
                        .cloned()
                        .collect(),
                }
                .into_ref(vm))
            } else {
                Err(vm.new_key_error(vm.ctx.new_str(format!("lookup {} failed", name))))
            }
        }

        #[pymethod(name = "get_identifiers")]
        fn get_identifiers(&self, vm: &VirtualMachine) -> PyResult {
            let symbols = self
                .symtable
                .symbols
                .keys()
                .map(|s| vm.ctx.new_str(s))
                .collect();
            Ok(vm.ctx.new_list(symbols))
        }

        #[pymethod(name = "get_symbols")]
        fn get_symbols(&self, vm: &VirtualMachine) -> PyResult {
            let symbols = self
                .symtable
                .symbols
                .values()
                .map(|s| {
                    (PySymbol {
                        symbol: s.clone(),
                        namespaces: self
                            .symtable
                            .sub_tables
                            .iter()
                            .filter(|&table| table.name == s.name)
                            .cloned()
                            .collect(),
                    })
                    .into_ref(vm)
                    .into_object()
                })
                .collect();
            Ok(vm.ctx.new_list(symbols))
        }

        #[pymethod(name = "has_children")]
        fn has_children(&self) -> bool {
            !self.symtable.sub_tables.is_empty()
        }

        #[pymethod(name = "get_children")]
        fn get_children(&self, vm: &VirtualMachine) -> PyResult {
            let children = self
                .symtable
                .sub_tables
                .iter()
                .map(|t| to_py_symbol_table(t.clone()).into_object(vm))
                .collect();
            Ok(vm.ctx.new_list(children))
        }
    }

    #[pyattr]
    #[pyclass(name = "Symbol")]
    struct PySymbol {
        symbol: Symbol,
        namespaces: Vec<SymbolTable>,
    }

    impl fmt::Debug for PySymbol {
        fn fmt(&self, f: &mut fmt::Formatter) -> fmt::Result {
            write!(f, "Symbol()")
        }
    }

    impl PyValue for PySymbol {
        fn class(_vm: &VirtualMachine) -> &PyTypeRef {
            Self::static_type()
        }
    }

    #[pyimpl]
    impl PySymbol {
        #[pymethod(name = "get_name")]
        fn get_name(&self) -> String {
            self.symbol.name.clone()
        }

        #[pymethod(name = "is_global")]
        fn is_global(&self) -> bool {
            self.symbol.is_global()
        }

        #[pymethod(name = "is_local")]
        fn is_local(&self) -> bool {
            self.symbol.is_local()
        }

        #[pymethod(name = "is_imported")]
        fn is_imported(&self) -> bool {
            self.symbol.is_imported
        }

        #[pymethod(name = "is_nested")]
        fn is_nested(&self) -> bool {
            // TODO
            false
        }

        #[pymethod(name = "is_nonlocal")]
        fn is_nonlocal(&self) -> bool {
            self.symbol.is_nonlocal
        }

        #[pymethod(name = "is_referenced")]
        fn is_referenced(&self) -> bool {
            self.symbol.is_referenced
        }

        #[pymethod(name = "is_assigned")]
        fn is_assigned(&self) -> bool {
            self.symbol.is_assigned
        }

        #[pymethod(name = "is_parameter")]
        fn is_parameter(&self) -> bool {
            self.symbol.is_parameter
        }

        #[pymethod(name = "is_free")]
        fn is_free(&self) -> bool {
            matches!(self.symbol.scope, SymbolScope::Free)
        }

        #[pymethod(name = "is_namespace")]
        fn is_namespace(&self) -> bool {
            !self.namespaces.is_empty()
        }

        #[pymethod(name = "is_annotated")]
        fn is_annotated(&self) -> bool {
            self.symbol.is_annotated
        }

        #[pymethod(name = "get_namespaces")]
        fn get_namespaces(&self, vm: &VirtualMachine) -> PyResult {
            let namespaces = self
                .namespaces
                .iter()
                .map(|table| to_py_symbol_table(table.clone()).into_object(vm))
                .collect();
            Ok(vm.ctx.new_list(namespaces))
        }

        #[pymethod(name = "get_namespace")]
        fn get_namespace(&self, vm: &VirtualMachine) -> PyResult {
            if self.namespaces.len() != 1 {
                Err(vm.new_value_error("namespace is bound to multiple namespaces".to_owned()))
            } else {
                Ok(to_py_symbol_table(self.namespaces.first().unwrap().clone())
                    .into_ref(vm)
                    .into_object())
            }
        }
    }
}