/// Bool is a wrapper for i32 in the context of an R's tristate boolean.
/// It can be TRUE, FALSE or NA_LOGICAL.
#[derive(PartialEq, Eq)]
pub struct Bool(pub i32);

impl Bool {
    /// Convert this Bool to a bool. Note NA will be true.
    pub fn to_bool(&self) -> bool {
        self.0 != 0
    }

    /// Convert this construct a Bool from a rust boolean.
    pub fn from_bool(val: bool) -> Self {
        Bool(val as i32)
    }

    /// Test if TRUE
    pub fn is_true(&self) -> bool {
        self.0 == 1
    }

    /// Test if FALSE
    pub fn is_false(&self) -> bool {
        self.0 == 0
    }
}

impl Clone for Bool {
    fn clone(&self) -> Self {
        Self(self.0)
    }
}

impl Copy for Bool {}

impl From<i32> for Bool {
    fn from(v: i32) -> Self {
        Self(v)
    }
}

impl From<bool> for Bool {
    fn from(v: bool) -> Self {
        Self(v as i32)
    }
}

impl From<Bool> for bool {
    fn from(v: Bool) -> Self {
        v.0 != 0
    }
}

impl From<&Bool> for bool {
    fn from(v: &Bool) -> Self {
        v.0 != 0
    }
}

impl std::fmt::Debug for Bool {
    fn fmt(&self, f: &mut std::fmt::Formatter<'_>) -> std::fmt::Result {
        match self {
            Bool(0) => write!(f, "FALSE"),
            Bool(1) => write!(f, "TRUE"),
            Bool(std::i32::MIN) => write!(f, "NA_LOGICAL"),
            _ => write!(f, "Bool({})", self.0),
        }
    }
}