Chris@16: /*=============================================================================
Chris@16:     Copyright (c) 2001-2011 Joel de Guzman
Chris@16:     Copyright (c) 2005 Eric Niebler
Chris@16: 
Chris@16:     Distributed under the Boost Software License, Version 1.0. (See accompanying 
Chris@16:     file LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt)
Chris@16: ==============================================================================*/
Chris@16: #if !defined(FUSION_CONS_07172005_0843)
Chris@16: #define FUSION_CONS_07172005_0843
Chris@16: 
Chris@101: #include <boost/fusion/support/config.hpp>
Chris@16: #include <boost/fusion/container/list/cons_fwd.hpp>
Chris@16: #include <boost/fusion/support/detail/access.hpp>
Chris@16: #include <boost/fusion/sequence/intrinsic/begin.hpp>
Chris@16: #include <boost/fusion/sequence/intrinsic/end.hpp>
Chris@16: #include <boost/fusion/iterator/next.hpp>
Chris@16: #include <boost/fusion/iterator/deref.hpp>
Chris@101: #include <boost/fusion/container/list/nil.hpp>
Chris@16: #include <boost/fusion/container/list/cons_iterator.hpp>
Chris@16: #include <boost/fusion/container/list/detail/begin_impl.hpp>
Chris@16: #include <boost/fusion/container/list/detail/end_impl.hpp>
Chris@16: #include <boost/fusion/container/list/detail/at_impl.hpp>
Chris@16: #include <boost/fusion/container/list/detail/value_at_impl.hpp>
Chris@16: #include <boost/fusion/container/list/detail/empty_impl.hpp>
Chris@16: #include <boost/type_traits/is_convertible.hpp>
Chris@16: #include <boost/utility/enable_if.hpp>
Chris@16: #include <boost/fusion/support/sequence_base.hpp>
Chris@101: #include <boost/fusion/support/is_sequence.hpp>
Chris@16: #include <boost/mpl/int.hpp>
Chris@16: #include <boost/mpl/bool.hpp>
Chris@101: #include <boost/mpl/and.hpp>
Chris@101: #include <boost/mpl/not.hpp>
Chris@16: 
Chris@16: namespace boost { namespace fusion
Chris@16: {
Chris@16:     struct void_;
Chris@16:     struct cons_tag;
Chris@16:     struct forward_traversal_tag;
Chris@16:     struct fusion_sequence_tag;
Chris@16: 
Chris@16:     template <typename Car, typename Cdr /*= nil_*/>
Chris@16:     struct cons : sequence_base<cons<Car, Cdr> >
Chris@16:     {
Chris@16:         typedef mpl::int_<Cdr::size::value+1> size;
Chris@16:         typedef cons_tag fusion_tag;
Chris@16:         typedef fusion_sequence_tag tag; // this gets picked up by MPL
Chris@16:         typedef mpl::false_ is_view;
Chris@16:         typedef forward_traversal_tag category;
Chris@16:         typedef Car car_type;
Chris@16:         typedef Cdr cdr_type;
Chris@16: 
Chris@101:         BOOST_CONSTEXPR BOOST_FUSION_GPU_ENABLED
Chris@16:         cons()
Chris@16:             : car(), cdr() {}
Chris@16: 
Chris@101:         BOOST_CONSTEXPR BOOST_FUSION_GPU_ENABLED
Chris@16:         explicit cons(typename detail::call_param<Car>::type in_car)
Chris@16:             : car(in_car), cdr() {}
Chris@16: 
Chris@101:         BOOST_CONSTEXPR BOOST_FUSION_GPU_ENABLED
Chris@16:         cons(
Chris@16:             typename detail::call_param<Car>::type in_car
Chris@16:           , typename detail::call_param<Cdr>::type in_cdr)
Chris@16:             : car(in_car), cdr(in_cdr) {}
Chris@16:         
Chris@16:         template <typename Car2, typename Cdr2>
Chris@101:         BOOST_CONSTEXPR BOOST_FUSION_GPU_ENABLED
Chris@16:         cons(cons<Car2, Cdr2> const& rhs)
Chris@16:             : car(rhs.car), cdr(rhs.cdr) {}
Chris@16: 
Chris@101:         BOOST_CONSTEXPR BOOST_FUSION_GPU_ENABLED
Chris@16:         cons(cons const& rhs)
Chris@16:             : car(rhs.car), cdr(rhs.cdr) {}
Chris@16: 
Chris@16:         template <typename Sequence>
Chris@101:         BOOST_CONSTEXPR BOOST_FUSION_GPU_ENABLED
Chris@16:         cons(
Chris@16:             Sequence const& seq
Chris@101:           , typename boost::enable_if<
Chris@101:                 mpl::and_<
Chris@101:                     traits::is_sequence<Sequence>
Chris@101:                   , mpl::not_<is_convertible<Sequence, Car> > > // use copy to car instead
Chris@16:             >::type* /*dummy*/ = 0
Chris@16:         )
Chris@16:             : car(*fusion::begin(seq))
Chris@16:             , cdr(fusion::next(fusion::begin(seq)), mpl::true_()) {}
Chris@16: 
Chris@16:         template <typename Iterator>
Chris@101:         BOOST_CONSTEXPR BOOST_FUSION_GPU_ENABLED
Chris@16:         cons(Iterator const& iter, mpl::true_ /*this_is_an_iterator*/)
Chris@16:             : car(*iter)
Chris@16:             , cdr(fusion::next(iter), mpl::true_()) {}
Chris@16: 
Chris@16:         template <typename Car2, typename Cdr2>
Chris@101:         BOOST_CXX14_CONSTEXPR BOOST_FUSION_GPU_ENABLED
Chris@16:         cons& operator=(cons<Car2, Cdr2> const& rhs)
Chris@16:         {
Chris@16:             car = rhs.car;
Chris@16:             cdr = rhs.cdr;
Chris@16:             return *this;
Chris@16:         }
Chris@16: 
Chris@101:         BOOST_CXX14_CONSTEXPR BOOST_FUSION_GPU_ENABLED
Chris@16:         cons& operator=(cons const& rhs)
Chris@16:         {
Chris@16:             car = rhs.car;
Chris@16:             cdr = rhs.cdr;
Chris@16:             return *this;
Chris@16:         }
Chris@16: 
Chris@16:         template <typename Sequence>
Chris@101:         BOOST_CXX14_CONSTEXPR BOOST_FUSION_GPU_ENABLED
Chris@101:         typename boost::enable_if<
Chris@101:             mpl::and_<
Chris@101:                 traits::is_sequence<Sequence>
Chris@101:               , mpl::not_<is_convertible<Sequence, Car> > >
Chris@101:           , cons&>::type
Chris@16:         operator=(Sequence const& seq)
Chris@16:         {
Chris@16:             typedef typename result_of::begin<Sequence const>::type Iterator;
Chris@16:             Iterator iter = fusion::begin(seq);
Chris@16:             this->assign_from_iter(iter);
Chris@16:             return *this;
Chris@16:         }
Chris@16: 
Chris@16:         template <typename Iterator>
Chris@101:         BOOST_CXX14_CONSTEXPR BOOST_FUSION_GPU_ENABLED
Chris@16:         void assign_from_iter(Iterator const& iter)
Chris@16:         {
Chris@16:             car = *iter;
Chris@16:             cdr.assign_from_iter(fusion::next(iter));
Chris@16:         }
Chris@16: 
Chris@16:         car_type car;
Chris@16:         cdr_type cdr;
Chris@16:     };
Chris@16: }}
Chris@16: 
Chris@16: #endif
Chris@16: