1 /*=============================================================================
2 Copyright (c) 2001-2011 Joel de Guzman
4 Distributed under the Boost Software License, Version 1.0. (See accompanying
5 file LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt)
6 ==============================================================================*/
7 #if !defined(FUSION_ERASE_07232005_0534)
8 #define FUSION_ERASE_07232005_0534
10 #include <boost/fusion/support/config.hpp>
11 #include <boost/fusion/iterator/equal_to.hpp>
12 #include <boost/fusion/iterator/mpl/convert_iterator.hpp>
13 #include <boost/fusion/view/joint_view/joint_view.hpp>
14 #include <boost/fusion/view/iterator_range/iterator_range.hpp>
15 #include <boost/fusion/support/detail/as_fusion_element.hpp>
16 #include <boost/fusion/sequence/intrinsic/begin.hpp>
17 #include <boost/fusion/sequence/intrinsic/end.hpp>
18 #include <boost/fusion/adapted/mpl/mpl_iterator.hpp>
19 #include <boost/fusion/support/is_sequence.hpp>
20 #include <boost/utility/enable_if.hpp>
21 #include <boost/mpl/if.hpp>
23 namespace boost { namespace fusion
27 template <typename Sequence, typename First>
28 struct compute_erase_last // put this in detail!!!
30 typedef typename result_of::end<Sequence>::type seq_last_type;
31 typedef typename convert_iterator<First>::type first_type;
34 result_of::equal_to<first_type, seq_last_type>
36 , typename result_of::next<first_type>::type
40 BOOST_CONSTEXPR BOOST_FUSION_GPU_ENABLED
42 call(First const& first, mpl::false_)
44 return fusion::next(convert_iterator<First>::call(first));
47 BOOST_CONSTEXPR BOOST_FUSION_GPU_ENABLED
49 call(First const& first, mpl::true_)
51 return convert_iterator<First>::call(first);
54 BOOST_CONSTEXPR BOOST_FUSION_GPU_ENABLED
56 call(First const& first)
58 return call(first, result_of::equal_to<first_type, seq_last_type>());
64 template <class T, class Default>
65 struct fusion_default_help
67 is_same<T, use_default>
77 , typename Last = use_default>
80 typedef typename result_of::begin<Sequence>::type seq_first_type;
81 typedef typename result_of::end<Sequence>::type seq_last_type;
82 BOOST_STATIC_ASSERT((!result_of::equal_to<seq_first_type, seq_last_type>::value));
84 typedef First FirstType;
88 , typename compute_erase_last<Sequence, First>::type
92 typedef typename convert_iterator<FirstType>::type first_type;
93 typedef typename convert_iterator<LastType>::type last_type;
94 typedef iterator_range<seq_first_type, first_type> left_type;
95 typedef iterator_range<last_type, seq_last_type> right_type;
96 typedef joint_view<left_type, right_type> type;
100 template <typename Sequence, typename First>
101 BOOST_CXX14_CONSTEXPR BOOST_FUSION_GPU_ENABLED
104 traits::is_sequence<Sequence>
105 , typename result_of::erase<Sequence const, First>
107 erase(Sequence const& seq, First const& first)
109 typedef result_of::erase<Sequence const, First> result_of;
110 typedef typename result_of::left_type left_type;
111 typedef typename result_of::right_type right_type;
112 typedef typename result_of::type result_type;
116 , convert_iterator<First>::call(first));
118 fusion::result_of::compute_erase_last<Sequence const, First>::call(first)
120 return result_type(left, right);
123 template <typename Sequence, typename First, typename Last>
124 BOOST_CXX14_CONSTEXPR BOOST_FUSION_GPU_ENABLED
125 inline typename result_of::erase<Sequence const, First, Last>::type
126 erase(Sequence const& seq, First const& first, Last const& last)
128 typedef result_of::erase<Sequence const, First, Last> result_of;
129 typedef typename result_of::left_type left_type;
130 typedef typename result_of::right_type right_type;
131 typedef typename result_of::type result_type;
133 left_type left(fusion::begin(seq), first);
134 right_type right(last, fusion::end(seq));
135 return result_type(left, right);