1 | /*============================================================================= |
2 | Copyright (c) 2001-2011 Joel de Guzman |
3 | Copyright (c) 2005 Eric Niebler |
4 | Copyright (c) 2007 Dan Marsden |
5 | |
6 | Distributed under the Boost Software License, Version 1.0. (See accompanying |
7 | file LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt) |
8 | ==============================================================================*/ |
9 | #if !defined(FUSION_ANY_05052005_1229) |
10 | #define FUSION_ANY_05052005_1229 |
11 | |
12 | #include <boost/fusion/support/config.hpp> |
13 | #include <boost/mpl/bool.hpp> |
14 | #include <boost/fusion/sequence/intrinsic/begin.hpp> |
15 | #include <boost/fusion/sequence/intrinsic/end.hpp> |
16 | #include <boost/fusion/iterator/advance.hpp> |
17 | #include <boost/fusion/iterator/equal_to.hpp> |
18 | #include <boost/fusion/iterator/next.hpp> |
19 | #include <boost/fusion/iterator/deref.hpp> |
20 | #include <boost/fusion/iterator/distance.hpp> |
21 | |
22 | namespace boost { namespace fusion { |
23 | struct random_access_traversal_tag; |
24 | namespace detail |
25 | { |
26 | template <typename First, typename Last, typename F> |
27 | BOOST_CONSTEXPR BOOST_FUSION_GPU_ENABLED |
28 | inline bool |
29 | linear_any(First const&, Last const&, F const&, mpl::true_) |
30 | { |
31 | return false; |
32 | } |
33 | |
34 | template <typename First, typename Last, typename F> |
35 | BOOST_CXX14_CONSTEXPR BOOST_FUSION_GPU_ENABLED |
36 | inline bool |
37 | linear_any(First const& first, Last const& last, F& f, mpl::false_) |
38 | { |
39 | typename result_of::deref<First>::type x = *first; |
40 | return f(x) || |
41 | detail::linear_any( |
42 | fusion::next(first) |
43 | , last |
44 | , f |
45 | , result_of::equal_to<typename result_of::next<First>::type, Last>()); |
46 | } |
47 | |
48 | template <typename Sequence, typename F, typename Tag> |
49 | BOOST_CONSTEXPR BOOST_FUSION_GPU_ENABLED |
50 | inline bool |
51 | any(Sequence const& seq, F f, Tag) |
52 | { |
53 | return detail::linear_any( |
54 | fusion::begin(seq) |
55 | , fusion::end(seq) |
56 | , f |
57 | , result_of::equal_to< |
58 | typename result_of::begin<Sequence>::type |
59 | , typename result_of::end<Sequence>::type>()); |
60 | } |
61 | |
62 | template<int N> |
63 | struct unrolled_any |
64 | { |
65 | template <typename It, typename F> |
66 | BOOST_CONSTEXPR BOOST_FUSION_GPU_ENABLED |
67 | static bool call(It const& it, F f) |
68 | { |
69 | return |
70 | f(*it) || |
71 | f(*fusion::advance_c<1>(it))|| |
72 | f(*fusion::advance_c<2>(it)) || |
73 | f(*fusion::advance_c<3>(it)) || |
74 | detail::unrolled_any<N-4>::call(fusion::advance_c<4>(it), f); |
75 | } |
76 | }; |
77 | |
78 | template<> |
79 | struct unrolled_any<3> |
80 | { |
81 | template <typename It, typename F> |
82 | BOOST_CONSTEXPR BOOST_FUSION_GPU_ENABLED |
83 | static bool call(It const& it, F f) |
84 | { |
85 | return |
86 | f(*it) || |
87 | f(*fusion::advance_c<1>(it)) || |
88 | f(*fusion::advance_c<2>(it)); |
89 | } |
90 | }; |
91 | |
92 | template<> |
93 | struct unrolled_any<2> |
94 | { |
95 | template <typename It, typename F> |
96 | BOOST_CONSTEXPR BOOST_FUSION_GPU_ENABLED |
97 | static bool call(It const& it, F f) |
98 | { |
99 | return |
100 | f(*it) || |
101 | f(*fusion::advance_c<1>(it)); |
102 | } |
103 | }; |
104 | |
105 | template<> |
106 | struct unrolled_any<1> |
107 | { |
108 | template <typename It, typename F> |
109 | BOOST_CONSTEXPR BOOST_FUSION_GPU_ENABLED |
110 | static bool call(It const& it, F f) |
111 | { |
112 | return f(*it); |
113 | } |
114 | }; |
115 | |
116 | template<> |
117 | struct unrolled_any<0> |
118 | { |
119 | template <typename It, typename F> |
120 | BOOST_CONSTEXPR BOOST_FUSION_GPU_ENABLED |
121 | static bool call(It const&, F) |
122 | { |
123 | return false; |
124 | } |
125 | }; |
126 | |
127 | template <typename Sequence, typename F> |
128 | BOOST_CONSTEXPR BOOST_FUSION_GPU_ENABLED |
129 | inline bool |
130 | any(Sequence const& seq, F f, random_access_traversal_tag) |
131 | { |
132 | typedef typename result_of::begin<Sequence>::type begin; |
133 | typedef typename result_of::end<Sequence>::type end; |
134 | return detail::unrolled_any<result_of::distance<begin, end>::type::value>::call( |
135 | fusion::begin(seq), f); |
136 | } |
137 | }}} |
138 | |
139 | #endif |
140 | |
141 | |