use super::objbool;
use super::objdict::PyDictRef;
use super::objlist::PyList;
use super::objstr::PyStringRef;
use super::objtype::{self, PyClassRef};
use crate::function::{OptionalArg, PyFuncArgs};
use crate::pyhash;
use crate::pyobject::{
    IdProtocol, ItemProtocol, PyArithmaticValue::*, PyAttributes, PyClassImpl, PyComparisonValue,
    PyContext, PyObject, PyObjectRef, PyResult, PyValue, TryFromObject, TypeProtocol,
};
use crate::vm::VirtualMachine;

/// The most base type
#[pyclass]
#[derive(Debug)]
pub struct PyBaseObject;

impl PyValue for PyBaseObject {
    fn class(vm: &VirtualMachine) -> PyClassRef {
        vm.ctx.object()
    }
}

#[pyimpl(flags(BASETYPE))]
impl PyBaseObject {
    #[pyslot]
    fn tp_new(vm: &VirtualMachine, mut args: PyFuncArgs) -> PyResult {
        // more or less __new__ operator
        let cls = PyClassRef::try_from_object(vm, args.shift())?;
        let dict = if cls.is(&vm.ctx.object()) {
            None
        } else {
            Some(vm.ctx.new_dict())
        };
        Ok(PyObject::new(PyBaseObject, cls, dict))
    }

    #[pymethod(magic)]
    fn eq(zelf: PyObjectRef, other: PyObjectRef) -> PyComparisonValue {
        if zelf.is(&other) {
            Implemented(true)
        } else {
            NotImplemented
        }
    }

    #[pymethod(magic)]
    fn ne(
        zelf: PyObjectRef,
        other: PyObjectRef,
        vm: &VirtualMachine,
    ) -> PyResult<PyComparisonValue> {
        let eq_method = match vm.get_method(zelf, "__eq__") {
            Some(func) => func?,
            None => return Ok(NotImplemented), // XXX: is this a possible case?
        };
        let eq = vm.invoke(&eq_method, vec![other])?;
        if eq.is(&vm.ctx.not_implemented()) {
            return Ok(NotImplemented);
        }
        let bool_eq = objbool::boolval(vm, eq)?;
        Ok(Implemented(!bool_eq))
    }

    #[pymethod(magic)]
    fn lt(_zelf: PyObjectRef, _other: PyObjectRef) -> PyComparisonValue {
        NotImplemented
    }

    #[pymethod(magic)]
    fn le(_zelf: PyObjectRef, _other: PyObjectRef) -> PyComparisonValue {
        NotImplemented
    }

    #[pymethod(magic)]
    fn gt(_zelf: PyObjectRef, _other: PyObjectRef) -> PyComparisonValue {
        NotImplemented
    }

    #[pymethod(magic)]
    fn ge(_zelf: PyObjectRef, _other: PyObjectRef) -> PyComparisonValue {
        NotImplemented
    }

    #[pymethod(magic)]
    fn hash(zelf: PyObjectRef) -> pyhash::PyHash {
        zelf.get_id() as pyhash::PyHash
    }

    #[pymethod(magic)]
    pub(crate) fn setattr(
        obj: PyObjectRef,
        attr_name: PyStringRef,
        value: PyObjectRef,
        vm: &VirtualMachine,
    ) -> PyResult<()> {
        setattr(obj, attr_name, value, vm)
    }

    #[pymethod(magic)]
    fn delattr(obj: PyObjectRef, attr_name: PyStringRef, vm: &VirtualMachine) -> PyResult<()> {
        let cls = obj.class();

        if let Some(attr) = cls.get_attr(attr_name.as_str()) {
            if let Some(descriptor) = attr.class().get_attr("__delete__") {
                return vm.invoke(&descriptor, vec![attr, obj.clone()]).map(|_| ());
            }
        }

        if let Some(ref dict) = obj.dict {
            dict.borrow().del_item(attr_name.as_str(), vm)?;
            Ok(())
        } else {
            Err(vm.new_attribute_error(format!(
                "'{}' object has no attribute '{}'",
                obj.class().name,
                attr_name.as_str()
            )))
        }
    }

    #[pymethod(magic)]
    fn str(zelf: PyObjectRef, vm: &VirtualMachine) -> PyResult {
        vm.call_method(&zelf, "__repr__", vec![])
    }

    #[pymethod(magic)]
    fn repr(zelf: PyObjectRef) -> String {
        format!("<{} object at 0x{:x}>", zelf.class().name, zelf.get_id())
    }

    #[pyclassmethod(magic)]
    fn subclasshook(vm: &VirtualMachine, _args: PyFuncArgs) -> PyResult {
        Ok(vm.ctx.not_implemented())
    }

    #[pymethod(magic)]
    pub fn dir(obj: PyObjectRef, vm: &VirtualMachine) -> PyResult<PyList> {
        let attributes: PyAttributes = obj.class().get_attributes();

        let dict = PyDictRef::from_attributes(attributes, vm)?;

        // Get instance attributes:
        if let Some(object_dict) = &obj.dict {
            vm.invoke(
                &vm.get_attribute(dict.clone().into_object(), "update")?,
                object_dict.borrow().clone().into_object(),
            )?;
        }

        let attributes: Vec<_> = dict.into_iter().map(|(k, _v)| k).collect();

        Ok(PyList::from(attributes))
    }

    #[pymethod(magic)]
    fn format(
        obj: PyObjectRef,
        format_spec: PyStringRef,
        vm: &VirtualMachine,
    ) -> PyResult<PyStringRef> {
        if format_spec.as_str().is_empty() {
            vm.to_str(&obj)
        } else {
            Err(vm.new_type_error(
                "unsupported format string passed to object.__format__".to_string(),
            ))
        }
    }

    #[pymethod(magic)]
    fn init(vm: &VirtualMachine, _args: PyFuncArgs) -> PyResult {
        Ok(vm.ctx.none())
    }

    #[pyproperty(name = "__class__")]
    fn get_class(obj: PyObjectRef) -> PyObjectRef {
        obj.class().into_object()
    }

    #[pyproperty(name = "__class__", setter)]
    fn set_class(instance: PyObjectRef, _value: PyObjectRef, vm: &VirtualMachine) -> PyResult<()> {
        let type_repr = vm.to_pystr(&instance.class())?;
        Err(vm.new_type_error(format!("can't change class of type '{}'", type_repr)))
    }

    #[pyproperty(magic)]
    fn dict(object: PyObjectRef, vm: &VirtualMachine) -> PyResult<PyDictRef> {
        if let Some(ref dict) = object.dict {
            Ok(dict.borrow().clone())
        } else {
            Err(vm.new_attribute_error("no dictionary.".to_string()))
        }
    }

    #[pyproperty(magic, setter)]
    fn set_dict(instance: PyObjectRef, value: PyDictRef, vm: &VirtualMachine) -> PyResult<()> {
        if let Some(dict) = &instance.dict {
            *dict.borrow_mut() = value;
            Ok(())
        } else {
            Err(vm.new_attribute_error(format!(
                "'{}' object has no attribute '__dict__'",
                instance.class().name
            )))
        }
    }

    #[pymethod(magic)]
    fn getattribute(obj: PyObjectRef, name: PyStringRef, vm: &VirtualMachine) -> PyResult {
        vm_trace!("object.__getattribute__({:?}, {:?})", obj, name);
        vm.generic_getattribute(obj.clone(), name.clone())?
            .ok_or_else(|| vm.new_attribute_error(format!("{} has no attribute '{}'", obj, name)))
    }

    #[pymethod(magic)]
    fn reduce(obj: PyObjectRef, proto: OptionalArg<usize>, vm: &VirtualMachine) -> PyResult {
        common_reduce(obj, proto.unwrap_or(0), vm)
    }

    #[pymethod(magic)]
    fn reduce_ex(obj: PyObjectRef, proto: usize, vm: &VirtualMachine) -> PyResult {
        let cls = obj.class();
        if let Some(reduce) = cls.get_attr("__reduce__") {
            let object_reduce = vm.ctx.types.object_type.get_attr("__reduce__").unwrap();
            if !reduce.is(&object_reduce) {
                return vm.invoke(&reduce, vec![]);
            }
        }
        common_reduce(obj, proto, vm)
    }
}

pub(crate) fn setattr(
    obj: PyObjectRef,
    attr_name: PyStringRef,
    value: PyObjectRef,
    vm: &VirtualMachine,
) -> PyResult<()> {
    vm_trace!("object.__setattr__({:?}, {}, {:?})", obj, attr_name, value);
    let cls = obj.class();

    if let Some(attr) = cls.get_attr(attr_name.as_str()) {
        if let Some(descriptor) = attr.class().get_attr("__set__") {
            return vm
                .invoke(&descriptor, vec![attr, obj.clone(), value])
                .map(|_| ());
        }
    }

    if let Some(ref dict) = obj.clone().dict {
        dict.borrow().set_item(attr_name.as_str(), value, vm)?;
        Ok(())
    } else {
        Err(vm.new_attribute_error(format!(
            "'{}' object has no attribute '{}'",
            obj.class().name,
            attr_name.as_str()
        )))
    }
}

pub fn init(context: &PyContext) {
    PyBaseObject::extend_class(context, &context.types.object_type);
    extend_class!(context, &context.types.object_type, {
        // yeah, it's `type_new`, but we're putting here so it's available on every object
        "__new__" => context.new_classmethod(objtype::type_new),
    });
}

fn common_reduce(obj: PyObjectRef, proto: usize, vm: &VirtualMachine) -> PyResult {
    if proto >= 2 {
        let reducelib = vm.import("__reducelib", &[], 0)?;
        let reduce_2 = vm.get_attribute(reducelib, "reduce_2")?;
        vm.invoke(&reduce_2, vec![obj])
    } else {
        let copyreg = vm.import("copyreg", &[], 0)?;
        let reduce_ex = vm.get_attribute(copyreg, "_reduce_ex")?;
        vm.invoke(&reduce_ex, vec![obj, vm.new_int(proto)])
    }
}