| // Copyright (c) 2001-2010 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) |
| |
| #include <boost/config/warning_disable.hpp> |
| #include <boost/detail/lightweight_test.hpp> |
| |
| #include <boost/spirit/include/karma_operator.hpp> |
| #include <boost/spirit/include/karma_char.hpp> |
| #include <boost/spirit/include/karma_auxiliary.hpp> |
| #include <boost/spirit/include/karma_string.hpp> |
| #include <boost/spirit/include/karma_numeric.hpp> |
| #include <boost/spirit/include/karma_nonterminal.hpp> |
| #include <boost/spirit/include/karma_action.hpp> |
| #include <boost/spirit/include/phoenix_core.hpp> |
| #include <boost/spirit/include/phoenix_operator.hpp> |
| #include <boost/spirit/include/phoenix_statement.hpp> |
| #include <boost/spirit/include/phoenix_fusion.hpp> |
| |
| #include "test.hpp" |
| |
| using namespace spirit_test; |
| |
| /////////////////////////////////////////////////////////////////////////////// |
| int main() |
| { |
| using namespace boost; |
| using namespace boost::spirit; |
| using namespace boost::spirit::ascii; |
| |
| typedef spirit_test::output_iterator<char>::type outiter_type; |
| |
| // test rule parameter propagation |
| { |
| using boost::phoenix::at_c; |
| |
| karma::rule<outiter_type, fusion::vector<char, int, double>()> start; |
| fusion::vector<char, int, double> vec('a', 10, 12.4); |
| |
| start %= char_ << int_ << double_; |
| BOOST_TEST(test("a1012.4", start, vec)); |
| |
| karma::rule<outiter_type, char()> a; |
| karma::rule<outiter_type, int()> b; |
| karma::rule<outiter_type, double()> c; |
| |
| a %= char_ << eps; |
| b %= int_; |
| c %= double_; |
| start = a[_1 = at_c<0>(_r0)] << b[_1 = at_c<1>(_r0)] << c[_1 = at_c<2>(_r0)]; |
| BOOST_TEST(test("a1012.4", start, vec)); |
| |
| start = (a << b << c)[_1 = at_c<0>(_r0), _2 = at_c<1>(_r0), _3 = at_c<2>(_r0)]; |
| BOOST_TEST(test("a1012.4", start, vec)); |
| |
| start = a << b << c; |
| BOOST_TEST(test("a1012.4", start, vec)); |
| |
| start %= a << b << c; |
| BOOST_TEST(test("a1012.4", start, vec)); |
| } |
| |
| { |
| using boost::phoenix::at_c; |
| |
| karma::rule<outiter_type, space_type, fusion::vector<char, int, double>()> start; |
| fusion::vector<char, int, double> vec('a', 10, 12.4); |
| |
| start %= char_ << int_ << double_; |
| BOOST_TEST(test_delimited("a 10 12.4 ", start, vec, space)); |
| |
| karma::rule<outiter_type, space_type, char()> a; |
| karma::rule<outiter_type, space_type, int()> b; |
| karma::rule<outiter_type, space_type, double()> c; |
| |
| a %= char_ << eps; |
| b %= int_; |
| c %= double_; |
| start = a[_1 = at_c<0>(_r0)] << b[_1 = at_c<1>(_r0)] << c[_1 = at_c<2>(_r0)]; |
| BOOST_TEST(test_delimited("a 10 12.4 ", start, vec, space)); |
| |
| start = (a << b << c)[_1 = at_c<0>(_r0), _2 = at_c<1>(_r0), _3 = at_c<2>(_r0)]; |
| BOOST_TEST(test_delimited("a 10 12.4 ", start, vec, space)); |
| |
| start = a << b << c; |
| BOOST_TEST(test_delimited("a 10 12.4 ", start, vec, space)); |
| |
| start %= a << b << c; |
| BOOST_TEST(test_delimited("a 10 12.4 ", start, vec, space)); |
| } |
| |
| // test direct initalization |
| { |
| using boost::phoenix::at_c; |
| |
| fusion::vector<char, int, double> vec('a', 10, 12.4); |
| karma::rule<outiter_type, space_type, fusion::vector<char, int, double>()> |
| start = char_ << int_ << double_;; |
| |
| BOOST_TEST(test_delimited("a 10 12.4 ", start, vec, space)); |
| |
| karma::rule<outiter_type, space_type, char()> a = char_ << eps; |
| karma::rule<outiter_type, space_type, int()> b = int_; |
| karma::rule<outiter_type, space_type, double()> c = double_; |
| |
| start = a[_1 = at_c<0>(_r0)] << b[_1 = at_c<1>(_r0)] << c[_1 = at_c<2>(_r0)]; |
| BOOST_TEST(test_delimited("a 10 12.4 ", start, vec, space)); |
| } |
| |
| // locals test |
| { |
| karma::rule<outiter_type, locals<std::string> > start; |
| |
| start = string[_1 = "abc", _a = _1] << int_[_1 = 10] << string[_1 = _a]; |
| BOOST_TEST(test("abc10abc", start)); |
| } |
| |
| { |
| karma::rule<outiter_type, space_type, locals<std::string> > start; |
| |
| start = string[_1 = "abc", _a = _1] << int_[_1 = 10] << string[_1 = _a]; |
| BOOST_TEST(test_delimited("abc 10 abc ", start, space)); |
| } |
| |
| // alias tests |
| { |
| typedef variant<char, int, double> var_type; |
| |
| karma::rule<outiter_type, var_type()> d, start; |
| |
| d = start.alias(); // d will always track start |
| |
| start = (char_ | int_ | double_)[_1 = _val]; |
| |
| var_type v ('a'); |
| BOOST_TEST(test("a", d, v)); |
| v = 10; |
| BOOST_TEST(test("10", d, v)); |
| v = 12.4; |
| BOOST_TEST(test("12.4", d, v)); |
| } |
| |
| { |
| typedef variant<char, int, double> var_type; |
| |
| karma::rule<outiter_type, space_type, var_type()> d, start; |
| |
| d = start.alias(); // d will always track start |
| |
| start = (char_ | int_ | double_)[_1 = _val]; |
| |
| var_type v ('a'); |
| BOOST_TEST(test_delimited("a ", d, v, space)); |
| v = 10; |
| BOOST_TEST(test_delimited("10 ", d, v, space)); |
| v = 12.4; |
| BOOST_TEST(test_delimited("12.4 ", d, v, space)); |
| } |
| |
| { |
| typedef variant<char, int, double> var_type; |
| |
| karma::rule<outiter_type, var_type()> d, start; |
| |
| d = start.alias(); // d will always track start |
| |
| start %= char_ | int_ | double_; |
| |
| var_type v ('a'); |
| BOOST_TEST(test("a", d, v)); |
| v = 10; |
| BOOST_TEST(test("10", d, v)); |
| v = 12.4; |
| BOOST_TEST(test("12.4", d, v)); |
| |
| start = char_ | int_ | double_; |
| |
| v = 'a'; |
| BOOST_TEST(test("a", d, v)); |
| v = 10; |
| BOOST_TEST(test("10", d, v)); |
| v = 12.4; |
| BOOST_TEST(test("12.4", d, v)); |
| } |
| |
| { |
| typedef variant<char, int, double> var_type; |
| |
| karma::rule<outiter_type, space_type, var_type()> d, start; |
| |
| d = start.alias(); // d will always track start |
| |
| start %= char_ | int_ | double_; |
| |
| var_type v ('a'); |
| BOOST_TEST(test_delimited("a ", d, v, space)); |
| v = 10; |
| BOOST_TEST(test_delimited("10 ", d, v, space)); |
| v = 12.4; |
| BOOST_TEST(test_delimited("12.4 ", d, v, space)); |
| |
| start = char_ | int_ | double_; |
| |
| v = 'a'; |
| BOOST_TEST(test_delimited("a ", d, v, space)); |
| v = 10; |
| BOOST_TEST(test_delimited("10 ", d, v, space)); |
| v = 12.4; |
| BOOST_TEST(test_delimited("12.4 ", d, v, space)); |
| } |
| |
| return boost::report_errors(); |
| } |
| |