object-safe 0.3.1

//! Do you need trait objects, in the form `dyn MyTrait`, that implement traits
//! which are not object-safe?
//!
//! This crate solves the problem by providing object-safe traits which are
//! analogous to some commonly used traits that are not object-safe, and
//! auto-implementing both for a wide range of types. Currently, the following
//! traits are supported:
//! - Hash
//! - PartialEq
//! - Eq
//!
//! I plan to extend this support to other traits, and offer macros to simplify
//! the process for custom traits.
//!
//! Learn about object safety here:
//! https://doc.rust-lang.org/reference/items/traits.html#object-safety
//!
//! ## Example
//!
//! Let's take the `Hash` trait as an example. `Hash` is not object-safe. This
//! means that `dyn Hash` is not a valid type in rust. Now, imagine you define
//! this custom trait:
//! ```rust ignore
//! pub trait MyTrait: Hash {}
//! ```
//! Since `MyTrait` extends `Hash`, it is not object safe either, and `dyn
//! MyTrait` is not a valid type. This crate offers a way to work around this
//! limitation, so you can have object-safe traits whose objects implement
//! object-unsafe traits such as `Hash`.
//!
//! Instead of expressing `Hash` as the trait bound, express `HashObj` as the
//! trait bound.
//! ```rust ignore
//! pub trait MyTrait: HashObj {}
//! ```
//!
//! You do not need to implement `HashObj`. It is automatically implemented for
//! any type that implements `Hash`. Now, `dyn MyTrait` is object-safe. Add one
//! line of code if you want `dyn MyTrait` to implement `Hash`:
//!
//! ```rust ignore
//! impl_hash(dyn MyTrait);
//! ```
//!
//! Here are all the characteristics that come with HashObj:
//! - anything implementing `Hash` automatically implements `HashObj`
//! - `dyn HashObj` implements `Hash`.
//! - `Obj<T>` implements `Hash` for any `T` that derefs to something
//!   implementing `HashObj`.
//! - `impl_hash` can implement `Hash` for any type that implements `HashObj`,
//!   for example a trait object `dyn MyTrait` where `MyTrait` is a trait
//!   extending `HashObj`.
//!
//! ```rust ignore
//! impl_hash! {
//!     // typical use, where MyTrait: HashObj
//!     dyn MyTrait,
//!     dyn AnotherTrait,
//!
//!     // structs and enums are supported if they deref to
//!     // a target that implements HashObj or Hash.
//!     MyStruct,
//!
//!     // special syntax for generics.
//!     MySimpleGeneric<T> where <T>,
//!     MyGenericType<T, F> where <T, F: HashObj>,
//!     dyn MyGenericTrait<T> where <T: SomeTraitBound>,
//!
//!     // the actual impl for Obj
//!     Obj<T> where <T: Deref<Target=X>, X: HashObj + ?Sized>,
//! }
//! ```

use core::{
    any::Any,
    hash::{Hash, Hasher},
    ops::Deref,
};

mod obj;

pub use obj::Obj;

/// Helper trait to enable trait upcasting, since upcasting is not stable.
pub trait AsAny: Any {
    fn as_any(&self) -> &dyn Any;
}

impl<T: Any> AsAny for T {
    fn as_any(&self) -> &(dyn Any) {
        self as &dyn Any
    }
}

/// Object-safe version of Eq
pub trait EqObj: PartialEqObj {
    fn as_eq_object(&self) -> &dyn EqObj;
    fn to_eq_object(self) -> Box<dyn EqObj>;
}

impl<T> EqObj for T
where
    T: Eq + PartialEqObj,
{
    fn as_eq_object(&self) -> &dyn EqObj {
        self
    }

    fn to_eq_object(self) -> Box<dyn EqObj> {
        Box::new(self)
    }
}

impl_eq! {
    Obj<T> where <T: Deref<Target=X>, X: EqObj + ?Sized>,
    dyn EqObj,
}

#[macro_export]
macro_rules! impl_eq {
    ($(
        $Type:ty $(where <$(
            $G:ident$(:
                $($Gb:ident $(<$($GbIn:ident$(=$GbInEq:ty)?)+>)?)?
                $(?$Gbq:ident)?
                $(
                    +
                    $($Gb2:ident $(<$($GbIn2:ident$(=$GbInEq2:ty)?)+>)?)?
                    $(?$Gbq2:ident)?
                )*
            )?
        ),+>)?
    ),*$(,)?) => {$(
        impl$(<$(
            $G$(:
                $($Gb $(<$($GbIn$(=$GbInEq)?)+>)?)?
                $(?$Gbq)?
                $(
                    +
                    $($Gb2 $({$($GbIn2$(=$GbInEq2:ty)?)+})?)?
                    $(?$Gbq2)?
                )*
            )?
        ),+>)?
        Eq for $Type where $Type: 'static {})*
    };
}

/// Object-safe version of PartialEq
pub trait PartialEqObj: AsAny {
    fn eq_object(&self, other: &dyn PartialEqObj) -> bool;
    fn as_partial_eq_object(&self) -> &dyn PartialEqObj;
    fn to_partial_eq_object(self) -> Box<dyn PartialEqObj>;
}

impl<T> PartialEqObj for T
where
    T: PartialEq + AsAny,
{
    fn eq_object(&self, other: &dyn PartialEqObj) -> bool {
        match other.as_any().downcast_ref::<Self>() {
            Some(other) => self == other,
            None => false,
        }
    }

    fn as_partial_eq_object(&self) -> &dyn PartialEqObj {
        self
    }

    fn to_partial_eq_object(self) -> Box<dyn PartialEqObj> {
        Box::new(self)
    }
}

impl_partial_eq! {
    Obj<T> where <T: Deref<Target=X>, X: PartialEqObj + ?Sized>,
    dyn PartialEqObj,
    dyn EqObj,
}

#[macro_export]
macro_rules! impl_partial_eq {
    ($(
        $Type:ty $(where <$(
            $G:ident$(:
                $($Gb:ident $(<$($GbIn:ident$(=$GbInEq:ty)?)+>)?)?
                $(?$Gbq:ident)?
                $(
                    +
                    $($Gb2:ident $(<$($GbIn2:ident$(=$GbInEq2:ty)?)+>)?)?
                    $(?$Gbq2:ident)?
                )*
            )?
        ),+>)?
    ),*$(,)?) => {$(
        impl$(<$(
            $G$(:
                $($Gb $(<$($GbIn$(=$GbInEq)?)+>)?)?
                $(?$Gbq)?
                $(
                    +
                    $($Gb2 $({$($GbIn2$(=$GbInEq2:ty)?)+})?)?
                    $(?$Gbq2)?
                )*
            )?
        ),+>)?
        PartialEq for $Type where $Type: 'static {
            fn eq(&self, other: &Self) -> bool {
                self.deref().eq_object(other.deref().as_partial_eq_object())
            }
        })*
    };
}

/// Object-safe version of `std::hash::Hash`
pub trait HashObj {
    fn hash_object(&self, state: &mut dyn Hasher);
    fn as_hash_object(&self) -> &dyn HashObj;
    fn to_hash_object(self) -> Box<dyn HashObj>
    where
        Self: 'static;
}

impl<T: Hash> HashObj for T {
    fn hash_object(&self, mut state: &mut dyn Hasher) {
        self.hash(&mut state);
    }

    fn as_hash_object(&self) -> &dyn HashObj {
        self
    }

    fn to_hash_object(self) -> Box<dyn HashObj>
    where
        Self: 'static,
    {
        Box::new(self)
    }
}

impl_hash! {
    Obj<T> where <T: Deref<Target=X>, X: HashObj + ?Sized>,
    dyn HashObj,
}

#[macro_export]
macro_rules! impl_hash {
    ($(
        $Type:ty $(where <$(
            $G:ident$(:
                $($Gb:ident $(<$($GbIn:ident$(=$GbInEq:ty)?)+>)?)?
                $(?$Gbq:ident)?
                $(
                    +
                    $($Gb2:ident $(<$($GbIn2:ident$(=$GbInEq2:ty)?)+>)?)?
                    $(?$Gbq2:ident)?
                )*
            )?
        ),+>)?
    ),*$(,)?) => {$(
        impl$(<$(
            $G$(:
                $($Gb $(<$($GbIn$(=$GbInEq)?)+>)?)?
                $(?$Gbq)?
                $(
                    +
                    $($Gb2 $({$($GbIn2$(=$GbInEq2:ty)?)+})?)?
                    $(?$Gbq2)?
                )*
            )?
        ),+>)?
        std::hash::Hash for $Type {
            fn hash<H: std::hash::Hasher>(&self, state: &mut H) {
                self.deref().hash_object(state);
            }
        }
    )*};
}

#[cfg(test)]
mod test {
    use std::collections::hash_map::DefaultHasher;

    use super::*;

    #[test]
    fn eq() {
        let x: Box<dyn EqObj> = Box::new(10);
        let y: Box<dyn EqObj> = Box::new(10);
        let z: Box<dyn EqObj> = Box::new(11);
        if x != y {
            panic!("should be equal")
        }
        if x == z {
            panic!("should not be equal")
        }
    }

    #[test]
    fn hash_works() {
        let x: &str = "Hello, World!";
        let y: &dyn HashObj = "Hello, World!".as_hash_object();
        let z: &dyn HashObj = "banana".as_hash_object();
        assert_eq!(hash(x), hash(y));
        assert_ne!(hash(y), hash(z));
    }

    fn hash<T: Hash>(t: T) -> u64 {
        let mut hasher = DefaultHasher::new();
        t.hash(&mut hasher);
        hasher.finish()
    }

    mod obj_tests {
        use crate::*;
        /// compiler test: hash
        trait MyHash: HashObj {}
        #[derive(Hash)]
        struct MyHashWrapper(Obj<Box<dyn MyHash>>);
        impl<T> MyHash for T where T: Hash {}

        /// compiler test: partial eq
        trait MyPartialEq: PartialEqObj {}
        #[derive(PartialEq)]
        struct MyPartialEqWrapper(Obj<Box<dyn MyPartialEq>>);
        impl<T> MyPartialEq for T where T: PartialEq + 'static {}

        /// compiler test: eq
        trait MyEq: EqObj + PartialEqObj + std::fmt::Debug {}
        #[derive(PartialEq, Eq, Debug)]
        struct MyEqWrapper(Obj<Box<dyn MyEq>>);
        impl<T> MyEq for T where T: Eq + 'static + std::fmt::Debug {}

        #[test]
        fn hash_obj_works() {
            let a = super::hash(0);
            let b = super::hash(Box::new(0));
            let c = super::hash(Obj(Box::new(0)));
            let d = super::hash(MyHashWrapper(Obj(Box::new(0))));
            assert_eq!(a, b);
            assert_eq!(a, c);
            assert_eq!(a, d);
        }

        #[test]
        fn obj_box_dyn_custom_eq() {
            assert_eq!(
                Obj(Box::new(0) as Box<dyn MyEq>),
                Obj(Box::new(0) as Box<dyn MyEq>)
            );
            assert_ne!(
                Obj(Box::new(0) as Box<dyn MyEq>),
                Obj(Box::new(1) as Box<dyn MyEq>)
            );
        }

        #[test]
        fn wrapped_obj_box_dyn_custom_eq() {
            assert_eq!(
                MyEqWrapper(Obj(Box::new(0) as Box<dyn MyEq>)),
                MyEqWrapper(Obj(Box::new(0) as Box<dyn MyEq>))
            );
            assert_ne!(
                MyEqWrapper(Obj(Box::new(0) as Box<dyn MyEq>)),
                MyEqWrapper(Obj(Box::new(1) as Box<dyn MyEq>))
            );
        }

        #[test]
        fn obj_box_eq() {
            assert_eq!(Obj(Box::new(0)), Obj(Box::new(0)));
            assert_ne!(Obj(Box::new(0)), Obj(Box::new(1)));
        }

        #[test]
        fn wrapped_ob_box_eq() {
            assert_eq!(MyEqWrapper(Obj(Box::new(0))), MyEqWrapper(Obj(Box::new(0))));
            assert_ne!(MyEqWrapper(Obj(Box::new(0))), MyEqWrapper(Obj(Box::new(1))));
        }
    }

    mod impl_tests {
        use crate::*;
        trait MyTrait: HashObj + EqObj + PartialEqObj {}
        impl<T> MyTrait for T where T: Hash + Eq + PartialEq + 'static {}

        impl_hash!(dyn MyTrait);
        impl_eq!(dyn MyTrait);
        impl_partial_eq!(dyn MyTrait);

        #[test]
        fn box_dyn_custom_eq() {
            if Box::new(0) as Box<dyn MyTrait> != Box::new(0) as Box<dyn MyTrait> {
                panic!("should be equal");
            }
            if Box::new(0) as Box<dyn MyTrait> == Box::new(1) as Box<dyn MyTrait> {
                panic!("should not be equal");
            }
        }
    }
}

// /// TODO:
// /// - handle different method signature between declaration and definition
// /// - create impl_* macro
// /// - better syntax, find a way around square brackets
// /// - converting this to a proc macro is probably best
// ///
// /// wip! {
// ///     PartialEq: AsAny {
// ///         [fn eq_object(&self, other: &dyn PartialEqObject) -> bool] {
// ///             match other.as_any().downcast_ref::<Self>() {
// ///                 Some(other) => self == other,
// ///                 None => false,
// ///             }
// ///         }
// ///     }
// ///
// ///     Eq: PartialEqObject {}
// /// }
// #[allow(unused)]
// macro_rules! wip {
//     (
//         $(
//             $Trait:ty $(: $($TraitBound:ty)+)? $(where T: $($ImplBound:ty)+)?
//             {$(
//                 [$($fn_sig:tt)*]
//                 $fn_impl:block
//             )*}
//         )*
//     ) => {$(paste::paste!{
//         pub trait [<$Trait Object>] $(: $($TraitBound)++)? {
//             fn [<as_ $Trait:snake _object>](&self) -> &dyn [<$Trait Object>];

//             $($($fn_sig)*;)*
//         }

//         impl<T> [<$Trait Object>] for T
//         where
//             T: $Trait $($(+ $TraitBound)+)?,
//         {
//             fn [<as_ $Trait:snake _object>](&self) -> &dyn [<$Trait Object>] {
//                 self
//             }

//             $($($fn_sig)* {$fn_impl})*
//         }
//     })*};
// }