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
|
/*=============================================================================
Copyright (c) 2001-2015 Joel de Guzman
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)
=============================================================================*/
#include <boost/detail/lightweight_test.hpp>
#include <boost/spirit/home/x3.hpp>
#include <string>
#include <cstring>
#include <iostream>
#include "test.hpp"
int
main()
{
using spirit_test::test_attr;
using spirit_test::test;
using namespace boost::spirit::x3::ascii;
using boost::spirit::x3::rule;
using boost::spirit::x3::lit;
using boost::spirit::x3::unused_type;
using boost::spirit::x3::_attr;
{ // context tests
char ch;
auto a = rule<class a, char>() = alpha;
// this semantic action requires the context
auto f = [&](auto& ctx){ ch = _attr(ctx); };
BOOST_TEST(test("x", a[f]));
BOOST_TEST(ch == 'x');
// this semantic action requires the (unused) context
auto f2 = [&](auto&){ ch = 'y'; };
BOOST_TEST(test("x", a[f2]));
BOOST_TEST(ch == 'y');
// the semantic action may optionally not have any arguments at all
auto f3 = [&]{ ch = 'z'; };
BOOST_TEST(test("x", a[f3]));
BOOST_TEST(ch == 'z');
BOOST_TEST(test_attr("z", a, ch)); // attribute is given.
BOOST_TEST(ch == 'z');
}
{ // auto rules tests
char ch = '\0';
auto a = rule<class a, char>() = alpha;
auto f = [&](auto& ctx){ ch = _attr(ctx); };
BOOST_TEST(test("x", a[f]));
BOOST_TEST(ch == 'x');
ch = '\0';
BOOST_TEST(test_attr("z", a, ch)); // attribute is given.
BOOST_TEST(ch == 'z');
ch = '\0';
BOOST_TEST(test("x", a[f]));
BOOST_TEST(ch == 'x');
ch = '\0';
BOOST_TEST(test_attr("z", a, ch)); // attribute is given.
BOOST_TEST(ch == 'z');
}
{ // auto rules tests: allow stl containers as attributes to
// sequences (in cases where attributes of the elements
// are convertible to the value_type of the container or if
// the element itself is an stl container with value_type
// that is convertible to the value_type of the attribute).
std::string s;
auto f = [&](auto& ctx){ s = _attr(ctx); };
{
auto r = rule<class r, std::string>()
= char_ >> *(',' >> char_)
;
BOOST_TEST(test("a,b,c,d,e,f", r[f]));
BOOST_TEST(s == "abcdef");
}
{
auto r = rule<class r, std::string>()
= char_ >> *(',' >> char_);
s.clear();
BOOST_TEST(test("a,b,c,d,e,f", r[f]));
BOOST_TEST(s == "abcdef");
}
{
auto r = rule<class r, std::string>()
= char_ >> char_ >> char_ >> char_ >> char_ >> char_;
s.clear();
BOOST_TEST(test("abcdef", r[f]));
BOOST_TEST(s == "abcdef");
}
}
return boost::report_errors();
}
|
