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