object_s_di.hpp

/*
 * object_write.hpp
 *
 *  Created on: Jun 11, 2015
 *      Author: i-bird
 */
 
#ifndef OBJECT_WRITE_HPP_
#define OBJECT_WRITE_HPP_
 
 
#include "for_each_ref.hpp"
#include "util/variadic_to_vmpl.hpp"
#include "util/copy_compare/meta_copy.hpp"
#include <boost/mpl/range_c.hpp>
#include <boost/fusion/include/size.hpp>
 
template<typename T>
struct object_s_di_e_cnk_meta_copy_selector
{
    template<unsigned int T_value, typename v_prp, typename copy_rtype, typename Tsrc, typename Tdst>
    static inline void copy(const Tsrc & src, Tdst & dst, int sub_id)
    {
        meta_copy<typename copy_rtype::value_type>::meta_copy_(src.template get<T_value>(),dst.template get<boost::mpl::at<v_prp,boost::mpl::int_<T_value>>::type::value>()[sub_id]);
    }
};
 
template<unsigned int N1, typename T>
struct object_s_di_e_cnk_meta_copy_selector<T[N1]>
{
    template<unsigned int T_value, typename v_prp, typename copy_rtype, typename Tsrc, typename Tdst>
    static inline void copy(const Tsrc & src, Tdst & dst, int sub_id)
    {
        for (int i = 0 ; i < N1 ; i++)
        {
            meta_copy<typename T::value_type>::meta_copy_(src.template get<T_value>()[i],dst.template get<boost::mpl::at<v_prp,boost::mpl::int_<T_value>>::type::value>()[i][sub_id]);
        }
    }
};
 
template<typename v_src,typename v_dst, int... prp>
struct object_s_di_e_cnk
{
    typedef typename to_boost_vmpl<prp...>::type v_prp;
 
    const v_src & src;
 
    v_dst & dst;
 
    size_t sub_id;
 
    object_s_di_e_cnk(const v_src & src, v_dst & dst,size_t sub_id)
    :src(src),dst(dst),sub_id(sub_id)
    {
    };
 
    template<typename T>
    void operator()(T& t)
    {
        // Remove the reference from the type to copy
        typedef typename boost::remove_reference<decltype(dst.template get<boost::mpl::at<v_prp,boost::mpl::int_<T::value>>::type::value>())>::type copy_rtype;
 
        //meta_copy<copy_rtype>::meta_copy_(src.template get<T::value>(),dst.template get<boost::mpl::at<v_prp,boost::mpl::int_<T::value>>::type::value>()[sub_id]);
 
        object_s_di_e_cnk_meta_copy_selector<copy_rtype>::template copy<T::value,v_prp,copy_rtype>(src,dst,sub_id);
    }
};
 
 
template<typename v_src,typename v_dst, int... prp>
struct object_s_di_e
{
    typedef typename to_boost_vmpl<prp...>::type v_prp;
 
    const v_src & src;
 
    v_dst & dst;
 
    __device__ __host__ object_s_di_e(const v_src & src, v_dst & dst)
    :src(src),dst(dst)
    {
    };
 
#ifdef SE_CLASS1
    object_s_di_e(const v_src && src, v_dst & dst)
    :src(src),dst(dst)
    {std::cerr << "Error: " <<__FILE__ << ":" << __LINE__ << " Passing a temporal object\n";};
#endif
 
    template<typename T>
    __device__ __host__ void operator()(T& t)
    {
        // Remove the reference from the type to copy
        typedef typename boost::remove_reference<decltype(dst.template get<boost::mpl::at<v_prp,boost::mpl::int_<T::value>>::type::value>())>::type copy_dtype;
        typedef typename std::remove_reference<decltype(src.template get<T::value>())>::type copy_stype;
 
        meta_copy_d<copy_stype,copy_dtype>::meta_copy_d_(src.template get<T::value>(),dst.template get<boost::mpl::at<v_prp,boost::mpl::int_<T::value>>::type::value>());
    }
};
 
 
template<template<typename,typename> class op, typename v_src,typename v_dst, int... prp>
struct object_s_di_e_op
{
    typedef typename to_boost_vmpl<prp...>::type v_prp;
 
    const v_src & src;
 
    v_dst & dst;
 
    __device__ __host__ object_s_di_e_op(const v_src & src, v_dst & dst)
    :src(src),dst(dst)
    {
    };
 
#ifdef SE_CLASS1
    object_s_di_e_op(v_src && src, v_dst & dst)
    :src(src),dst(dst)
    {std::cerr << "Error: " <<__FILE__ << ":" << __LINE__ << " Passing a temporal object\n";};
#endif
 
    template<typename T>
    __device__ __host__ void operator()(T& t)
    {
        // Remove the reference from the type to copy
        typedef typename boost::remove_reference<decltype(dst.template get<boost::mpl::at<v_prp,boost::mpl::int_<T::value>>::type::value>())>::type copy_dtype;
        typedef typename std::remove_reference<decltype(src.template get<T::value>())>::type copy_stype;
 
        meta_copy_op_d<op,copy_stype,copy_dtype>::meta_copy_op_d_(src.template get<T::value>(),dst.template get<boost::mpl::at<v_prp,boost::mpl::int_<T::value>>::type::value>());
    }
};
 
template<template<typename,typename> class op, typename v_src,typename v_dst, int... prp>
struct object_s_di_e_op_cnk
{
    typedef typename to_boost_vmpl<prp...>::type v_prp;
 
    const v_src & src;
 
    v_dst & dst;
 
    size_t sub_id;
 
    object_s_di_e_op_cnk(const v_src & src, v_dst & dst,size_t sub_id)
    :src(src),dst(dst),sub_id(sub_id)
    {
    };
 
#ifdef SE_CLASS1
    object_s_di_e_op_cnk(v_src && src, v_dst & dst, size_t sub_id)
    :src(src),dst(dst),sub_id(sub_id)
    {std::cerr << "Error: " <<__FILE__ << ":" << __LINE__ << " Passing a temporal object\n";};
#endif
 
    template<typename T>
    void operator()(T& t)
    {
        // Remove the reference from the type to copy
        typedef typename boost::remove_reference<decltype(dst.template get<boost::mpl::at<v_prp,boost::mpl::int_<T::value>>::type::value>()[sub_id])>::type copy_rtype;
 
        meta_copy_op<op,copy_rtype>::meta_copy_op_(src.template get<T::value>(),dst.template get<boost::mpl::at<v_prp,boost::mpl::int_<T::value>>::type::value>()[sub_id]);
    }
};
 
template<typename v_src,typename v_dst, int... prp>
struct object_s_di_f
{
    typedef typename to_boost_vmpl<prp...>::type v_prp;
 
    const v_src & src;
 
    v_dst & dst;
 
    object_s_di_f(const v_src & src, v_dst & dst)
    :src(src),dst(dst)
    {
    };
 
#ifdef DEBUG
    object_s_di_f(const v_src && src, v_dst & dst)
    :src(src),dst(dst)
    {std::cerr << "Error: " <<__FILE__ << ":" << __LINE__ << " Passing a temporal object\n";};
#endif
 
    template<typename T>
    void operator()(T& t)
    {
        typedef typename boost::mpl::at<typename v_dst::type,typename boost::mpl::int_<boost::mpl::at<v_prp,boost::mpl::int_<T::value>>::type::value>>::type ctype;
 
        meta_copy<ctype>::meta_copy_(boost::fusion::at_c<T::value>(src.data),boost::fusion::at_c<boost::mpl::at<v_prp,boost::mpl::int_<T::value>>::type::value>(dst.data));
    }
};
 
 
template<template<typename,typename> class op, typename v_src,typename v_dst, int... prp>
struct object_s_di_f_op
{
    typedef typename to_boost_vmpl<prp...>::type v_prp;
 
    const v_src & src;
 
    v_dst & dst;
 
    object_s_di_f_op(const v_src & src, v_dst & dst)
    :src(src),dst(dst)
    {
    };
 
#ifdef DEBUG
    object_s_di_f_op(v_src && src, v_dst & dst)
    :src(src),dst(dst)
    {std::cerr << "Error: " <<__FILE__ << ":" << __LINE__ << " Passing a temporal object\n";};
#endif
 
    template<typename T>
    void operator()(T& t)
    {
        typedef typename boost::mpl::at<typename v_dst::type,typename boost::mpl::int_<boost::mpl::at<v_prp,boost::mpl::int_<T::value>>::type::value>>::type ctype;
 
        meta_copy_op<op,ctype>::meta_copy_op_(boost::fusion::at_c<T::value>(src.data),boost::fusion::at_c<boost::mpl::at<v_prp,boost::mpl::int_<T::value>>::type::value>(dst.data));
    }
};
 
#define OBJ_ENCAP 1
#define OBJ_NORMAL 2
#define OBJ_ENCAP_CHUNKING 3
 
template<typename v_src, typename v_dst,int type_copy, int... prp>
struct object_s_di
{
    inline object_s_di(const v_src & vs, v_dst & vd)
    {
        std::cerr << "Error object_copy: " << __FILE__ << " " << __LINE__ << "\n";
    };
};
 
template<typename v_src, typename v_dst, int... prp>
struct object_s_di<v_src,v_dst,OBJ_NORMAL,prp...>
{
    inline object_s_di(const v_src && vs, v_dst && vd)
    {
        object_s_di_f<v_src,v_dst,prp...> obj(vs,vd);
        boost::mpl::for_each_ref< boost::mpl::range_c<int,0,sizeof...(prp)> >(obj);
    }
 
    inline object_s_di(const v_src & vs, v_dst & vd)
    {
        object_s_di_f<v_src,v_dst,prp...> obj(vs,vd);
        boost::mpl::for_each_ref< boost::mpl::range_c<int,0,sizeof...(prp)> >(obj);
    }
};
 
template<typename v_src, typename v_dst, int... prp>
struct object_s_di<v_src,v_dst,OBJ_ENCAP,prp...>
{
    __host__ __device__ inline object_s_di(const v_src & vs, v_dst && vd)
    {
        object_s_di_e<v_src,v_dst,prp...> obj(vs,vd);
        boost::mpl::for_each_ref< boost::mpl::range_c<int,0,(int)sizeof...(prp)> >(obj);
    }
 
    __host__ __device__ inline object_s_di(const v_src & vs, v_dst & vd)
    {
        object_s_di_e<v_src,v_dst,prp...> obj(vs,vd);
        boost::mpl::for_each_ref< boost::mpl::range_c<int,0,sizeof...(prp)> >(obj);
    }
};
 
 
 
template<typename v_src, typename v_dst, int... prp>
struct object_s_di<v_src,v_dst,OBJ_ENCAP_CHUNKING,prp...>
{
    inline object_s_di(const v_src & vs, v_dst && vd, size_t sub_id)
    {
        object_s_di_e_cnk<v_src,v_dst,prp...> obj(vs,vd,sub_id);
        boost::mpl::for_each_ref< boost::mpl::range_c<int,0,sizeof...(prp)> >(obj);
    }
 
    inline object_s_di(const v_src & vs, v_dst & vd, size_t sub_id)
    {
        object_s_di_e_cnk<v_src,v_dst,prp...> obj(vs,vd,sub_id);
        boost::mpl::for_each_ref< boost::mpl::range_c<int,0,sizeof...(prp)> >(obj);
    }
};
 
 
template<template<typename,typename> class op, typename v_src, typename v_dst,int type_copy, int... prp>
struct object_s_di_op
{
    inline object_s_di_op(const v_src & vs, v_dst & vd)
    {
        std::cerr << "Error object_copy: " << __FILE__ << " " << __LINE__ << "\n";
    };
};
 
template<template<typename,typename> class op, typename v_src, typename v_dst, int... prp>
struct object_s_di_op<op,v_src,v_dst,OBJ_NORMAL,prp...>
{
    inline object_s_di_op(const v_src && vs, v_dst && vd)
    {
        object_s_di_f_op<op,v_src,v_dst,prp...> obj(vs,vd);
        boost::mpl::for_each_ref< boost::mpl::range_c<int,0,sizeof...(prp)> >(obj);
    }
 
    inline object_s_di_op(const v_src & vs, v_dst & vd)
    {
        object_s_di_f_op<op,v_src,v_dst,prp...> obj(vs,vd);
        boost::mpl::for_each_ref< boost::mpl::range_c<int,0,sizeof...(prp)> >(obj);
    }
};
 
 
template<template<typename,typename> class op, typename v_src, typename v_dst, int... prp>
struct object_s_di_op<op, v_src,v_dst,OBJ_ENCAP,prp...>
{
    __device__ __host__ inline object_s_di_op(const v_src & vs, v_dst && vd)
    {
        object_s_di_e_op<op,v_src,v_dst,prp...> obj(vs,vd);
        boost::mpl::for_each_ref< boost::mpl::range_c<int,0,sizeof...(prp)> >(obj);
    }
 
    __device__ __host__ inline object_s_di_op(const v_src & vs, v_dst & vd)
    {
        object_s_di_e_op<op,v_src,v_dst,prp...> obj(vs,vd);
        boost::mpl::for_each_ref< boost::mpl::range_c<int,0,sizeof...(prp)> >(obj);
    }
};
 
template<template<typename,typename> class op, typename v_src, typename v_dst, int... prp>
struct object_s_di_op<op, v_src,v_dst,OBJ_ENCAP_CHUNKING,prp...>
{
    inline object_s_di_op(const v_src & vs, v_dst && vd)
    {
        object_s_di_e_op_cnk<op,v_src,v_dst,prp...> obj(vs,vd);
        boost::mpl::for_each_ref< boost::mpl::range_c<int,0,sizeof...(prp)> >(obj);
    }
 
    inline object_s_di_op(const v_src & vs, v_dst & vd, size_t sub_id)
    {
        object_s_di_e_op_cnk<op,v_src,v_dst,prp...> obj(vs,vd,sub_id);
        boost::mpl::for_each_ref< boost::mpl::range_c<int,0,sizeof...(prp)> >(obj);
    }
};
 
#endif /* OBJECT_WRITE_HPP_ */