123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141 |
- // 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/karma_directive.hpp>
- #include <boost/spirit/include/phoenix_core.hpp>
- #include <boost/spirit/include/phoenix_operator.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;
- {
- karma::rule<outiter_type, void(char, int, double)> start;
- fusion::vector<char, int, double> vec('a', 10, 12.4);
- start = char_[_1 = _r1] << int_[_1 = _r2] << double_[_1 = _r3];
- BOOST_TEST(test("a1012.4", start('a', 10, 12.4)));
- start = (char_ << int_ << double_)[_1 = _r1, _2 = _r2, _3 = _r3];
- BOOST_TEST(test("a1012.4", start('a', 10, 12.4)));
- karma::rule<outiter_type, void(char)> a;
- karma::rule<outiter_type, void(int)> b;
- karma::rule<outiter_type, void(double)> c;
- a = char_[_1 = _r1];
- b = int_[_1 = _r1];
- c = double_[_1 = _r1];
- start = a(_r1) << b(_r2) << c(_r3);
- BOOST_TEST(test("a1012.4", start('a', 10, 12.4)));
- }
- {
- karma::rule<outiter_type, space_type, void(char, int, double)> start;
- fusion::vector<char, int, double> vec('a', 10, 12.4);
- start = char_[_1 = _r1] << int_[_1 = _r2] << double_[_1 = _r3];
- BOOST_TEST(test_delimited("a 10 12.4 ", start('a', 10, 12.4), space));
- start = (char_ << int_ << double_)[_1 = _r1, _2 = _r2, _3 = _r3];
- BOOST_TEST(test_delimited("a 10 12.4 ", start('a', 10, 12.4), space));
- karma::rule<outiter_type, space_type, void(char)> a;
- karma::rule<outiter_type, space_type, void(int)> b;
- karma::rule<outiter_type, space_type, void(double)> c;
- a = char_[_1 = _r1];
- b = int_[_1 = _r1];
- c = double_[_1 = _r1];
- start = a(_r1) << b(_r2) << c(_r3);
- BOOST_TEST(test_delimited("a 10 12.4 ", start('a', 10, 12.4), space));
- }
- // copy tests
- {
- karma::rule<outiter_type> a, b, c, start;
- a = 'a';
- b = int_(10);
- c = double_(12.4);
- // The FF is the dynamic equivalent of start = a << b << c;
- start = a;
- start = start.copy() << b;
- start = start.copy() << c;
- start = start.copy();
- BOOST_TEST(test("a1012.4", start));
- }
- {
- karma::rule<outiter_type, space_type> a, b, c, start;
- a = 'a';
- b = int_(10);
- c = double_(12.4);
- // The FF is the dynamic equivalent of start = a << b << c;
- start = a;
- start = start.copy() << b;
- start = start.copy() << c;
- start = start.copy();
- BOOST_TEST(test_delimited("a 10 12.4 ", start, space));
- }
- { // specifying the encoding
- using karma::lower;
- using karma::upper;
- using karma::string;
- typedef boost::spirit::char_encoding::iso8859_1 iso8859_1;
- karma::rule<outiter_type, iso8859_1> r;
- r = lower['\xE1'];
- BOOST_TEST(test("\xE1", r));
- r = lower[char_('\xC1')];
- BOOST_TEST(test("\xE1", r));
- r = upper['\xE1'];
- BOOST_TEST(test("\xC1", r));
- r = upper[char_('\xC1')];
- BOOST_TEST(test("\xC1", r));
- r = lower["\xE1\xC1"];
- BOOST_TEST(test("\xE1\xE1", r));
- r = lower[lit("\xE1\xC1")];
- BOOST_TEST(test("\xE1\xE1", r));
- r = lower[string("\xE1\xC1")];
- BOOST_TEST(test("\xE1\xE1", r));
- r = upper["\xE1\xC1"];
- BOOST_TEST(test("\xC1\xC1", r));
- r = upper[lit("\xE1\xC1")];
- BOOST_TEST(test("\xC1\xC1", r));
- r = upper[string("\xE1\xC1")];
- BOOST_TEST(test("\xC1\xC1", r));
- }
- return boost::report_errors();
- }
|