ceph/src/boost/libs/spirit/test/karma/pattern1.cpp

   1 //  Copyright (c) 2001-2010 Hartmut Kaiser
   2 //
   3 //  Distributed under the Boost Software License, Version 1.0. (See accompanying
   4 //  file LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt)
   5
   6 #include <boost/config/warning_disable.hpp>
   7 #include <boost/detail/lightweight_test.hpp>
   8
   9 #include <boost/spirit/include/karma_operator.hpp>
  10 #include <boost/spirit/include/karma_char.hpp>
  11 #include <boost/spirit/include/karma_auxiliary.hpp>
  12 #include <boost/spirit/include/karma_string.hpp>
  13 #include <boost/spirit/include/karma_numeric.hpp>
  14 #include <boost/spirit/include/karma_nonterminal.hpp>
  15 #include <boost/spirit/include/karma_action.hpp>
  16 #include <boost/spirit/include/phoenix_core.hpp>
  17 #include <boost/spirit/include/phoenix_operator.hpp>
  18 #include <boost/spirit/include/phoenix_statement.hpp>
  19 #include <boost/spirit/include/phoenix_fusion.hpp>
  20
  21 #include "test.hpp"
  22
  23 using namespace spirit_test;
  24
  25 ///////////////////////////////////////////////////////////////////////////////
  26 int main()
  27 {
  28     using namespace boost;
  29     using namespace boost::spirit;
  30     using namespace boost::spirit::ascii;
  31
  32     typedef spirit_test::output_iterator<char>::type outiter_type;
  33
  34     // test rule parameter propagation
  35     {
  36         using boost::phoenix::at_c;
  37
  38         karma::rule<outiter_type, fusion::vector<char, int, double>()> start;
  39         fusion::vector<char, int, double> vec('a', 10, 12.4);
  40
  41         start %= char_ << int_ << double_;
  42         BOOST_TEST(test("a1012.4", start, vec));
  43
  44         karma::rule<outiter_type, char()> a;
  45         karma::rule<outiter_type, int()> b;
  46         karma::rule<outiter_type, double()> c;
  47
  48         a %= char_ << eps;
  49         b %= int_;
  50         c %= double_;
  51         start = a[_1 = at_c<0>(_r0)] << b[_1 = at_c<1>(_r0)] << c[_1 = at_c<2>(_r0)];
  52         BOOST_TEST(test("a1012.4", start, vec));
  53
  54         start = (a << b << c)[_1 = at_c<0>(_r0), _2 = at_c<1>(_r0), _3 = at_c<2>(_r0)];
  55         BOOST_TEST(test("a1012.4", start, vec));
  56
  57         start = a << b << c;
  58         BOOST_TEST(test("a1012.4", start, vec));
  59
  60         start %= a << b << c;
  61         BOOST_TEST(test("a1012.4", start, vec));
  62     }
  63
  64     {
  65         using boost::phoenix::at_c;
  66
  67         karma::rule<outiter_type, space_type, fusion::vector<char, int, double>()> start;
  68         fusion::vector<char, int, double> vec('a', 10, 12.4);
  69
  70         start %= char_ << int_ << double_;
  71         BOOST_TEST(test_delimited("a 10 12.4 ", start, vec, space));
  72
  73         karma::rule<outiter_type, space_type, char()> a;
  74         karma::rule<outiter_type, space_type, int()> b;
  75         karma::rule<outiter_type, space_type, double()> c;
  76
  77         a %= char_ << eps;
  78         b %= int_;
  79         c %= double_;
  80         start = a[_1 = at_c<0>(_r0)] << b[_1 = at_c<1>(_r0)] << c[_1 = at_c<2>(_r0)];
  81         BOOST_TEST(test_delimited("a  10 12.4 ", start, vec, space));
  82
  83         start = (a << b << c)[_1 = at_c<0>(_r0), _2 = at_c<1>(_r0), _3 = at_c<2>(_r0)];
  84         BOOST_TEST(test_delimited("a  10 12.4 ", start, vec, space));
  85
  86         start = a << b << c;
  87         BOOST_TEST(test_delimited("a  10 12.4 ", start, vec, space));
  88
  89         start %= a << b << c;
  90         BOOST_TEST(test_delimited("a  10 12.4 ", start, vec, space));
  91     }
  92
  93     // test direct initalization
  94     {
  95         using boost::phoenix::at_c;
  96
  97         fusion::vector<char, int, double> vec('a', 10, 12.4);
  98         karma::rule<outiter_type, space_type, fusion::vector<char, int, double>()>
  99             start = char_ << int_ << double_;;
 100
 101         BOOST_TEST(test_delimited("a 10 12.4 ", start, vec, space));
 102
 103         karma::rule<outiter_type, space_type, char()> a = char_ << eps;
 104         karma::rule<outiter_type, space_type, int()> b = int_;
 105         karma::rule<outiter_type, space_type, double()> c = double_;
 106
 107         start = a[_1 = at_c<0>(_r0)] << b[_1 = at_c<1>(_r0)] << c[_1 = at_c<2>(_r0)];
 108         BOOST_TEST(test_delimited("a  10 12.4 ", start, vec, space));
 109     }
 110
 111     return boost::report_errors();
 112 }
 113