1 //  Copyright (c) 2001-2011 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 //#define KARMA_FAIL_COMPILATION
7 
8 #include <boost/config/warning_disable.hpp>
9 #include <boost/detail/lightweight_test.hpp>
10 #include <boost/lexical_cast.hpp>
11 #include <boost/mpl/vector.hpp>
12 #include <boost/mpl/for_each.hpp>
13 #include <boost/mpl/if.hpp>
14 #include <boost/mpl/bool.hpp>
15 
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 
20 #include <boost/spirit/include/karma_char.hpp>
21 #include <boost/spirit/include/karma_numeric.hpp>
22 #include <boost/spirit/include/karma_directive.hpp>
23 #include <boost/spirit/include/karma_action.hpp>
24 #include <boost/spirit/include/karma_rule.hpp>
25 #include <boost/spirit/include/karma_phoenix_attributes.hpp>
26 
27 #include <boost/limits.hpp>
28 #include "test.hpp"
29 
30 using namespace spirit_test;
31 
32 
33 ///////////////////////////////////////////////////////////////////////////////
34 int
main()35 main()
36 {
37     using namespace boost::spirit;
38 
39     {
40         using namespace boost::spirit::ascii;
41 
42         karma::int_generator<int, 10, true> const signed_int =
43             karma::int_generator<int, 10, true>();
44 
45         ///////////////////////////////////////////////////////////////////////
46         BOOST_TEST(test(" 0", signed_int, 0));
47         BOOST_TEST(test("+123", signed_int, 123));
48         BOOST_TEST(test("-123", signed_int, -123));
49 
50         BOOST_TEST(test_delimited(" 0 ", signed_int, 0, char_(' ')));
51         BOOST_TEST(test_delimited("+123 ", signed_int, 123, char_(' ')));
52         BOOST_TEST(test_delimited("-123 ", signed_int, -123, char_(' ')));
53 
54         BOOST_TEST(test(" 0", lower[signed_int], 0));
55         BOOST_TEST(test("+123", lower[signed_int], 123));
56         BOOST_TEST(test("-123", lower[signed_int], -123));
57 
58         BOOST_TEST(test_delimited(" 0 ", lower[signed_int], 0, char_(' ')));
59         BOOST_TEST(test_delimited("+123 ", lower[signed_int], 123, char_(' ')));
60         BOOST_TEST(test_delimited("-123 ", lower[signed_int], -123, char_(' ')));
61 
62         BOOST_TEST(test(" 0", upper[signed_int], 0));
63         BOOST_TEST(test("+123", upper[signed_int], 123));
64         BOOST_TEST(test("-123", upper[signed_int], -123));
65 
66         BOOST_TEST(test_delimited(" 0 ", upper[signed_int], 0, char_(' ')));
67         BOOST_TEST(test_delimited("+123 ", upper[signed_int], 123, char_(' ')));
68         BOOST_TEST(test_delimited("-123 ", upper[signed_int], -123, char_(' ')));
69 
70         ///////////////////////////////////////////////////////////////////////
71         BOOST_TEST(test(" 0", signed_int(0)));
72         BOOST_TEST(test("+123", signed_int(123)));
73         BOOST_TEST(test("-123", signed_int(-123)));
74 
75         BOOST_TEST(test_delimited(" 0 ", signed_int(0), char_(' ')));
76         BOOST_TEST(test_delimited("+123 ", signed_int(123), char_(' ')));
77         BOOST_TEST(test_delimited("-123 ", signed_int(-123), char_(' ')));
78 
79         BOOST_TEST(test(" 0", lower[signed_int(0)]));
80         BOOST_TEST(test("+123", lower[signed_int(123)]));
81         BOOST_TEST(test("-123", lower[signed_int(-123)]));
82 
83         BOOST_TEST(test_delimited(" 0 ", lower[signed_int(0)], char_(' ')));
84         BOOST_TEST(test_delimited("+123 ", lower[signed_int(123)], char_(' ')));
85         BOOST_TEST(test_delimited("-123 ", lower[signed_int(-123)], char_(' ')));
86 
87         BOOST_TEST(test(" 0", upper[signed_int(0)]));
88         BOOST_TEST(test("+123", upper[signed_int(123)]));
89         BOOST_TEST(test("-123", upper[signed_int(-123)]));
90 
91         BOOST_TEST(test_delimited(" 0 ", upper[signed_int(0)], char_(' ')));
92         BOOST_TEST(test_delimited("+123 ", upper[signed_int(123)], char_(' ')));
93         BOOST_TEST(test_delimited("-123 ", upper[signed_int(-123)], char_(' ')));
94 
95         using namespace boost::phoenix;
96 
97         BOOST_TEST(test(" 0", signed_int(val(0))));
98         BOOST_TEST(test("+123", signed_int(val(123))));
99         BOOST_TEST(test("-123", signed_int(val(-123))));
100 
101         int i1 = 0, i2 = 123, i3 = -123;
102         BOOST_TEST(test(" 0", signed_int(ref(i1))));
103         BOOST_TEST(test("+123", signed_int(ref(i2))));
104         BOOST_TEST(test("-123", signed_int(ref(i3))));
105     }
106 
107     {
108         ///////////////////////////////////////////////////////////////////////
109         using namespace boost::spirit::ascii;
110 
111         BOOST_TEST(test("1234", uint_, 1234));
112         BOOST_TEST(test("ff", hex, 0xff));
113         BOOST_TEST(test("1234", oct, 01234));
114         BOOST_TEST(test("11110000", bin, 0xf0));
115 
116         BOOST_TEST(test_delimited("1234 ", uint_, 1234, char_(' ')));
117         BOOST_TEST(test_delimited("ff ", hex, 0xff, char_(' ')));
118         BOOST_TEST(test_delimited("1234 ", oct, 01234, char_(' ')));
119         BOOST_TEST(test_delimited("11110000 ", bin, 0xf0, char_(' ')));
120 
121         // test unsigned generator with signed integral value
122         BOOST_TEST(test("ff", hex, (char)0xff));
123         BOOST_TEST(test_delimited("ff ", hex, (char)0xff, char_(' ')));
124 
125         BOOST_TEST(test("1234", lower[uint_], 1234));
126         BOOST_TEST(test("ff", lower[hex], 0xff));
127         BOOST_TEST(test("1234", lower[oct], 01234));
128         BOOST_TEST(test("11110000", lower[bin], 0xf0));
129 
130         BOOST_TEST(test_delimited("1234 ", lower[uint_], 1234, char_(' ')));
131         BOOST_TEST(test_delimited("ff ", lower[hex], 0xff, char_(' ')));
132         BOOST_TEST(test_delimited("1234 ", lower[oct], 01234, char_(' ')));
133         BOOST_TEST(test_delimited("11110000 ", lower[bin], 0xf0, char_(' ')));
134 
135         BOOST_TEST(test("1234", upper[uint_], 1234));
136         BOOST_TEST(test("FF", upper[hex], 0xff));
137         BOOST_TEST(test("1234", upper[oct], 01234));
138         BOOST_TEST(test("11110000", upper[bin], 0xf0));
139 
140         BOOST_TEST(test_delimited("1234 ", upper[uint_], 1234, char_(' ')));
141         BOOST_TEST(test_delimited("FF ", upper[hex], 0xff, char_(' ')));
142         BOOST_TEST(test_delimited("1234 ", upper[oct], 01234, char_(' ')));
143         BOOST_TEST(test_delimited("11110000 ", upper[bin], 0xf0, char_(' ')));
144 
145         // no generator transformation should occur for uint_'s
146         BOOST_TEST(test("1234", upper[upper[uint_]], 1234));
147         BOOST_TEST(test("1234", upper[lower[uint_]], 1234));
148         BOOST_TEST(test("1234", lower[upper[uint_]], 1234));
149         BOOST_TEST(test("1234", lower[lower[uint_]], 1234));
150 
151         BOOST_TEST(test_delimited("1234 ", upper[upper[uint_]], 1234, char_(' ')));
152         BOOST_TEST(test_delimited("1234 ", upper[lower[uint_]], 1234, char_(' ')));
153         BOOST_TEST(test_delimited("1234 ", lower[upper[uint_]], 1234, char_(' ')));
154         BOOST_TEST(test_delimited("1234 ", lower[lower[uint_]], 1234, char_(' ')));
155 
156         BOOST_TEST(test("FF", upper[upper[hex]], 0xff));
157         BOOST_TEST(test("FF", upper[lower[hex]], 0xff));
158         BOOST_TEST(test("ff", lower[upper[hex]], 0xff));
159         BOOST_TEST(test("ff", lower[lower[hex]], 0xff));
160 
161         BOOST_TEST(test_delimited("FF ", upper[upper[hex]], 0xff, char_(' ')));
162         BOOST_TEST(test_delimited("FF ", upper[lower[hex]], 0xff, char_(' ')));
163         BOOST_TEST(test_delimited("ff ", lower[upper[hex]], 0xff, char_(' ')));
164         BOOST_TEST(test_delimited("ff ", lower[lower[hex]], 0xff, char_(' ')));
165     }
166 
167     ///////////////////////////////////////////////////////////////////////////
168     {
169         using boost::spirit::karma::int_;
170         using boost::spirit::karma::_1;
171         using boost::spirit::karma::_val;
172         using boost::spirit::karma::space;
173 
174         int i = 123;
175         int j = 456;
176         BOOST_TEST(test("123", int_[_1 = _val], i));
177         BOOST_TEST(test_delimited("456 ", int_[_1 = _val], j, space));
178     }
179 
180     return boost::report_errors();
181 }
182 
183