1 |
|
---|
2 | #ifndef BOOST_MPL_SEQUENCE_TAG_HPP_INCLUDED
|
---|
3 | #define BOOST_MPL_SEQUENCE_TAG_HPP_INCLUDED
|
---|
4 |
|
---|
5 | // Copyright Aleksey Gurtovoy 2000-2004
|
---|
6 | //
|
---|
7 | // Distributed under the Boost Software License, Version 1.0.
|
---|
8 | // (See accompanying file LICENSE_1_0.txt or copy at
|
---|
9 | // http://www.boost.org/LICENSE_1_0.txt)
|
---|
10 | //
|
---|
11 | // See http://www.boost.org/libs/mpl for documentation.
|
---|
12 |
|
---|
13 | // $Source: /cvsroot/boost/boost/boost/mpl/sequence_tag.hpp,v $
|
---|
14 | // $Date: 2004/09/02 15:40:42 $
|
---|
15 | // $Revision: 1.8 $
|
---|
16 |
|
---|
17 | #include <boost/mpl/sequence_tag_fwd.hpp>
|
---|
18 | #include <boost/mpl/aux_/has_tag.hpp>
|
---|
19 | #include <boost/mpl/aux_/has_begin.hpp>
|
---|
20 | #include <boost/mpl/aux_/na_spec.hpp>
|
---|
21 | #include <boost/mpl/aux_/is_msvc_eti_arg.hpp>
|
---|
22 | #include <boost/mpl/aux_/config/eti.hpp>
|
---|
23 | #include <boost/mpl/aux_/yes_no.hpp>
|
---|
24 | #include <boost/mpl/aux_/config/workaround.hpp>
|
---|
25 |
|
---|
26 | namespace boost { namespace mpl {
|
---|
27 |
|
---|
28 | // agurt, 27/nov/02: have to use a simplistic 'sequence_tag' implementation
|
---|
29 | // on MSVC to avoid dreadful "internal structure overflow" error
|
---|
30 | #if BOOST_WORKAROUND(BOOST_MSVC, < 1300) \
|
---|
31 | || defined(BOOST_MPL_CFG_NO_HAS_XXX)
|
---|
32 |
|
---|
33 | template<
|
---|
34 | typename BOOST_MPL_AUX_NA_PARAM(Sequence)
|
---|
35 | >
|
---|
36 | struct sequence_tag
|
---|
37 | {
|
---|
38 | typedef typename Sequence::tag type;
|
---|
39 | };
|
---|
40 |
|
---|
41 | #elif BOOST_WORKAROUND(BOOST_MSVC, == 1300)
|
---|
42 |
|
---|
43 | // agurt, 07/feb/03: workaround for what seems to be MSVC 7.0-specific ETI issue
|
---|
44 |
|
---|
45 | namespace aux {
|
---|
46 |
|
---|
47 | template< bool >
|
---|
48 | struct sequence_tag_impl
|
---|
49 | {
|
---|
50 | template< typename Sequence > struct result_
|
---|
51 | {
|
---|
52 | typedef typename Sequence::tag type;
|
---|
53 | };
|
---|
54 | };
|
---|
55 |
|
---|
56 | template<>
|
---|
57 | struct sequence_tag_impl<false>
|
---|
58 | {
|
---|
59 | template< typename Sequence > struct result_
|
---|
60 | {
|
---|
61 | typedef int type;
|
---|
62 | };
|
---|
63 | };
|
---|
64 |
|
---|
65 | } // namespace aux
|
---|
66 |
|
---|
67 | template<
|
---|
68 | typename BOOST_MPL_AUX_NA_PARAM(Sequence)
|
---|
69 | >
|
---|
70 | struct sequence_tag
|
---|
71 | : aux::sequence_tag_impl< !aux::is_msvc_eti_arg<Sequence>::value >
|
---|
72 | ::template result_<Sequence>
|
---|
73 | {
|
---|
74 | };
|
---|
75 |
|
---|
76 | #else
|
---|
77 |
|
---|
78 | namespace aux {
|
---|
79 |
|
---|
80 | template< bool has_tag_, bool has_begin_ >
|
---|
81 | struct sequence_tag_impl
|
---|
82 | {
|
---|
83 | // agurt 24/nov/02: MSVC 6.5 gets confused in 'sequence_tag_impl<true>'
|
---|
84 | // specialization below, if we name it 'result_' here
|
---|
85 | template< typename Sequence > struct result2_;
|
---|
86 | };
|
---|
87 |
|
---|
88 | # define AUX_CLASS_SEQUENCE_TAG_SPEC(has_tag, has_begin, result_type) \
|
---|
89 | template<> struct sequence_tag_impl<has_tag,has_begin> \
|
---|
90 | { \
|
---|
91 | template< typename Sequence > struct result2_ \
|
---|
92 | { \
|
---|
93 | typedef result_type type; \
|
---|
94 | }; \
|
---|
95 | }; \
|
---|
96 | /**/
|
---|
97 |
|
---|
98 | AUX_CLASS_SEQUENCE_TAG_SPEC(true, true, typename Sequence::tag)
|
---|
99 | AUX_CLASS_SEQUENCE_TAG_SPEC(true, false, typename Sequence::tag)
|
---|
100 | AUX_CLASS_SEQUENCE_TAG_SPEC(false, true, nested_begin_end_tag)
|
---|
101 | AUX_CLASS_SEQUENCE_TAG_SPEC(false, false, non_sequence_tag)
|
---|
102 |
|
---|
103 | # undef AUX_CLASS_SEQUENCE_TAG_SPEC
|
---|
104 |
|
---|
105 | } // namespace aux
|
---|
106 |
|
---|
107 | template<
|
---|
108 | typename BOOST_MPL_AUX_NA_PARAM(Sequence)
|
---|
109 | >
|
---|
110 | struct sequence_tag
|
---|
111 | : aux::sequence_tag_impl<
|
---|
112 | ::boost::mpl::aux::has_tag<Sequence>::value
|
---|
113 | , ::boost::mpl::aux::has_begin<Sequence>::value
|
---|
114 | >::template result2_<Sequence>
|
---|
115 | {
|
---|
116 | };
|
---|
117 |
|
---|
118 | #endif // BOOST_MSVC
|
---|
119 |
|
---|
120 | BOOST_MPL_AUX_NA_SPEC(1, sequence_tag)
|
---|
121 |
|
---|
122 | }}
|
---|
123 |
|
---|
124 | #endif // BOOST_MPL_SEQUENCE_TAG_HPP_INCLUDED
|
---|