1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
// Copyright (c) 2001-2011 Hartmut Kaiser
//
// 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(BOOST_PP_IS_ITERATING)
#if !defined(BOOST_SPIRIT_QI_TEST_ATTR_APR_23_2009_0605PM)
#define BOOST_SPIRIT_QI_TEST_ATTR_APR_23_2009_0605PM
#include <cstring>
#include <string>
#include <iterator>
#include <iostream>
#include <typeinfo>
#include <boost/spirit/include/qi_parse.hpp>
#include <boost/spirit/include/qi_what.hpp>
#include <boost/preprocessor/cat.hpp>
#include <boost/preprocessor/iterate.hpp>
#include <boost/preprocessor/repetition/repeat.hpp>
#include <boost/preprocessor/repetition/enum_params.hpp>
#include <boost/preprocessor/repetition/enum_binary_params.hpp>
#define BOOST_PP_FILENAME_1 "test_attr.hpp"
#define BOOST_PP_ITERATION_LIMITS (1, SPIRIT_ARGUMENTS_LIMIT)
#include BOOST_PP_ITERATE()
#endif
///////////////////////////////////////////////////////////////////////////////
//
// Preprocessor vertical repetition code
//
///////////////////////////////////////////////////////////////////////////////
#else // defined(BOOST_PP_IS_ITERATING)
#define N BOOST_PP_ITERATION()
#define DEFINE_ATTRIBUTE(z, n, _) \
BOOST_PP_CAT(A, n) BOOST_PP_CAT(attr, n) = BOOST_PP_CAT(A, n)();
#define COMPARE_ATTRIBUTE(z, n, _) \
BOOST_PP_CAT(attr, n) == BOOST_PP_CAT(val, n) &&
namespace spirit_test
{
///////////////////////////////////////////////////////////////////////////
template <typename Char, typename Parser
, BOOST_PP_ENUM_PARAMS(N, typename A)>
inline bool test(Char const *in, Parser const& p
, BOOST_PP_ENUM_BINARY_PARAMS(N, A, val))
{
namespace qi = boost::spirit::qi;
// we don't care about the result of the "what" function.
// we only care that all parsers have it:
qi::what(p);
Char const* last = in;
while (*last)
last++;
BOOST_PP_REPEAT(N, DEFINE_ATTRIBUTE, _);
bool result = qi::parse(in, last, p, BOOST_PP_ENUM_PARAMS(N, attr));
return result && BOOST_PP_REPEAT(N, COMPARE_ATTRIBUTE, _) in == last;
}
///////////////////////////////////////////////////////////////////////////
template <typename Char, typename Parser, typename Skipper
, BOOST_PP_ENUM_PARAMS(N, typename A)>
inline bool test_skipped(Char const *in, Parser const& p
, Skipper const& skipper, BOOST_PP_ENUM_BINARY_PARAMS(N, A, val))
{
namespace qi = boost::spirit::qi;
// we don't care about the result of the "what" function.
// we only care that all parsers have it:
qi::what(p);
Char const* last = in;
while (*last)
last++;
BOOST_PP_REPEAT(N, DEFINE_ATTRIBUTE, _);
bool result = qi::phrase_parse(in, last, p, skipper
, BOOST_PP_ENUM_PARAMS(N, attr));
return result && BOOST_PP_REPEAT(N, COMPARE_ATTRIBUTE, _) in == last;
}
///////////////////////////////////////////////////////////////////////////
template <typename Char, typename Parser, typename Skipper
, BOOST_PP_ENUM_PARAMS(N, typename A)>
inline bool test_postskipped(Char const *in, Parser const& p
, Skipper const& skipper
, BOOST_SCOPED_ENUM(boost::spirit::qi::skip_flag) post_skip
, BOOST_PP_ENUM_BINARY_PARAMS(N, A, val))
{
namespace qi = boost::spirit::qi;
// we don't care about the result of the "what" function.
// we only care that all parsers have it:
qi::what(p);
Char const* last = in;
while (*last)
last++;
BOOST_PP_REPEAT(N, DEFINE_ATTRIBUTE, _);
bool result = qi::phrase_parse(in, last, p, skipper, post_skip
, BOOST_PP_ENUM_PARAMS(N, attr));
return result && BOOST_PP_REPEAT(N, COMPARE_ATTRIBUTE, _) in == last;
}
} // namespace spirit_test
#undef COMPARE_ATTRIBUTE
#undef DEFINE_ATTRIBUTE
#undef N
#endif
|
