Chris@16
|
1 /*=============================================================================
|
Chris@16
|
2 Copyright (c) 2006 Eric Niebler
|
Chris@16
|
3
|
Chris@16
|
4 Distributed under the Boost Software License, Version 1.0. (See accompanying
|
Chris@16
|
5 file LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt)
|
Chris@16
|
6 ==============================================================================*/
|
Chris@16
|
7 #if !defined(BOOST_FUSION_SEGMENTS_04052005_1141)
|
Chris@16
|
8 #define BOOST_FUSION_SEGMENTS_04052005_1141
|
Chris@16
|
9
|
Chris@101
|
10 #include <boost/fusion/support/config.hpp>
|
Chris@16
|
11 #include <boost/type_traits/is_const.hpp>
|
Chris@16
|
12 #include <boost/utility/enable_if.hpp>
|
Chris@16
|
13 #include <boost/fusion/sequence/intrinsic_fwd.hpp>
|
Chris@16
|
14 #include <boost/fusion/support/tag_of.hpp>
|
Chris@16
|
15
|
Chris@16
|
16 namespace boost { namespace fusion
|
Chris@16
|
17 {
|
Chris@16
|
18 // Special tags:
|
Chris@16
|
19 struct sequence_facade_tag;
|
Chris@16
|
20 struct iterator_range_tag;
|
Chris@16
|
21
|
Chris@16
|
22 // segments: returns a sequence of sequences
|
Chris@16
|
23 namespace extension
|
Chris@16
|
24 {
|
Chris@16
|
25 template <typename Tag>
|
Chris@16
|
26 struct segments_impl
|
Chris@16
|
27 {
|
Chris@16
|
28 template <typename Sequence>
|
Chris@16
|
29 struct apply {};
|
Chris@16
|
30 };
|
Chris@16
|
31
|
Chris@16
|
32 template <>
|
Chris@16
|
33 struct segments_impl<sequence_facade_tag>
|
Chris@16
|
34 {
|
Chris@16
|
35 template <typename Sequence>
|
Chris@16
|
36 struct apply : Sequence::template segments<Sequence> {};
|
Chris@16
|
37 };
|
Chris@16
|
38
|
Chris@16
|
39 template <>
|
Chris@16
|
40 struct segments_impl<iterator_range_tag>;
|
Chris@16
|
41 }
|
Chris@16
|
42
|
Chris@16
|
43 namespace result_of
|
Chris@16
|
44 {
|
Chris@16
|
45 template <typename Sequence>
|
Chris@16
|
46 struct segments
|
Chris@16
|
47 {
|
Chris@16
|
48 typedef typename traits::tag_of<Sequence>::type tag_type;
|
Chris@16
|
49
|
Chris@16
|
50 typedef typename
|
Chris@16
|
51 extension::segments_impl<tag_type>::template apply<Sequence>::type
|
Chris@16
|
52 type;
|
Chris@16
|
53 };
|
Chris@16
|
54 }
|
Chris@16
|
55
|
Chris@16
|
56 template <typename Sequence>
|
Chris@101
|
57 BOOST_CONSTEXPR BOOST_FUSION_GPU_ENABLED
|
Chris@16
|
58 inline typename
|
Chris@16
|
59 lazy_disable_if<
|
Chris@16
|
60 is_const<Sequence>
|
Chris@16
|
61 , result_of::segments<Sequence>
|
Chris@16
|
62 >::type
|
Chris@16
|
63 segments(Sequence& seq)
|
Chris@16
|
64 {
|
Chris@16
|
65 typedef typename traits::tag_of<Sequence>::type tag_type;
|
Chris@16
|
66 return extension::segments_impl<tag_type>::template apply<Sequence>::call(seq);
|
Chris@16
|
67 }
|
Chris@16
|
68
|
Chris@16
|
69 template <typename Sequence>
|
Chris@101
|
70 BOOST_CONSTEXPR BOOST_FUSION_GPU_ENABLED
|
Chris@16
|
71 inline typename result_of::segments<Sequence const>::type
|
Chris@16
|
72 segments(Sequence const& seq)
|
Chris@16
|
73 {
|
Chris@16
|
74 typedef typename traits::tag_of<Sequence const>::type tag_type;
|
Chris@16
|
75 return extension::segments_impl<tag_type>::template apply<Sequence const>::call(seq);
|
Chris@16
|
76 }
|
Chris@16
|
77 }}
|
Chris@16
|
78
|
Chris@16
|
79 #endif
|