| // 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_binary.hpp> |
| #include <boost/spirit/include/karma_generate.hpp> |
| #include <boost/spirit/include/karma_phoenix_attributes.hpp> |
| |
| #include <boost/spirit/include/phoenix_core.hpp> |
| #include <boost/spirit/include/phoenix_operator.hpp> |
| #include <boost/spirit/include/phoenix_statement.hpp> |
| |
| #include "test.hpp" |
| |
| using namespace spirit_test; |
| |
| /////////////////////////////////////////////////////////////////////////////// |
| int |
| main() |
| { |
| using namespace boost::spirit; |
| using namespace boost::phoenix; |
| |
| { // test native endian binaries |
| #ifdef BOOST_LITTLE_ENDIAN |
| BOOST_TEST(binary_test("\x01", 1, byte_, 0x01)); |
| BOOST_TEST(binary_test("\x80", 1, byte_, 0x80)); |
| BOOST_TEST(binary_test("\x01\x82", 2, word, 0x8201)); |
| BOOST_TEST(binary_test("\x81\x02", 2, word, 0x0281)); |
| BOOST_TEST(binary_test("\x01\x02\x03\x84", 4, dword, 0x84030201)); |
| BOOST_TEST(binary_test("\x81\x02\x03\x04", 4, dword, 0x04030281)); |
| #ifdef BOOST_HAS_LONG_LONG |
| BOOST_TEST(binary_test("\x01\x02\x03\x04\x05\x06\x07\x88", 8, qword, |
| 0x8807060504030201LL)); |
| BOOST_TEST(binary_test("\x81\x02\x03\x04\x05\x06\x07\x08", 8, qword, |
| 0x0807060504030281LL)); |
| #endif |
| |
| BOOST_TEST(binary_test_delimited("\x01\x00\x00\x00", 4, byte_, 0x01, pad(4))); |
| BOOST_TEST(binary_test_delimited("\x01\x02\x00\x00", 4, word, 0x0201, pad(4))); |
| BOOST_TEST(binary_test_delimited("\x01\x02\x03\x04", 4, dword, 0x04030201, pad(4))); |
| #ifdef BOOST_HAS_LONG_LONG |
| BOOST_TEST(binary_test_delimited("\x01\x02\x03\x04\x05\x06\x07\x08\x00\x00", 10, |
| qword, 0x0807060504030201LL, pad(10))); |
| #endif |
| |
| #else // BOOST_LITTLE_ENDIAN |
| |
| BOOST_TEST(binary_test("\x01", 1, byte_, 0x01)); |
| BOOST_TEST(binary_test("\x80", 1, byte_, 0x80)); |
| BOOST_TEST(binary_test("\x01\x82", 2, word, 0x0182)); |
| BOOST_TEST(binary_test("\x81\x02", 2, word, 0x8102)); |
| BOOST_TEST(binary_test("\x01\x02\x03\x84", 4, dword, 0x01020384)); |
| BOOST_TEST(binary_test("\x81\x02\x03\x04", 4, dword, 0x81020304)); |
| #ifdef BOOST_HAS_LONG_LONG |
| BOOST_TEST(binary_test("\x01\x02\x03\x04\x05\x06\x07\x88", 8, qword, |
| 0x0102030405060788LL)); |
| BOOST_TEST(binary_test("\x81\x02\x03\x04\x05\x06\x07\x08", 8, qword, |
| 0x8102030405060708LL)); |
| #endif |
| |
| BOOST_TEST(binary_test_delimited("\x01\x00\x00\x00", 4, byte_, 0x01, pad(4))); |
| BOOST_TEST(binary_test_delimited("\x01\x02\x00\x00", 4, word, 0x0102, pad(4))); |
| BOOST_TEST(binary_test_delimited("\x01\x02\x03\x04", 4, dword, 0x01020304, pad(4))); |
| #ifdef BOOST_HAS_LONG_LONG |
| BOOST_TEST(binary_test_delimited("\x01\x02\x03\x04\x05\x06\x07\x08\x00\x00", 10, |
| qword, 0x0102030405060708LL, pad(10))); |
| #endif |
| #endif |
| } |
| |
| { // test native endian binaries |
| #ifdef BOOST_LITTLE_ENDIAN |
| BOOST_TEST(binary_test("\x01", 1, byte_(0x01))); |
| BOOST_TEST(binary_test("\x01\x02", 2, word(0x0201))); |
| BOOST_TEST(binary_test("\x01\x02\x03\x04", 4, dword(0x04030201))); |
| #ifdef BOOST_HAS_LONG_LONG |
| BOOST_TEST(binary_test("\x01\x02\x03\x04\x05\x06\x07\x08", 8, |
| qword(0x0807060504030201LL))); |
| #endif |
| #else |
| BOOST_TEST(binary_test("\x01", 1, byte_(0x01))); |
| BOOST_TEST(binary_test("\x01\x02", 2, word(0x0102))); |
| BOOST_TEST(binary_test("\x01\x02\x03\x04", 4, dword(0x01020304))); |
| #ifdef BOOST_HAS_LONG_LONG |
| BOOST_TEST(binary_test("\x01\x02\x03\x04\x05\x06\x07\x08", 8, |
| qword(0x0102030405060708LL))); |
| #endif |
| #endif |
| } |
| |
| { // test big endian binaries |
| BOOST_TEST(binary_test("\x01\x82", 2, big_word, 0x0182)); |
| BOOST_TEST(binary_test("\x81\x02", 2, big_word, 0x8102)); |
| BOOST_TEST(binary_test("\x01\x02\x03\x84", 4, big_dword, 0x01020384)); |
| BOOST_TEST(binary_test("\x81\x02\x03\x04", 4, big_dword, 0x81020304)); |
| #ifdef BOOST_HAS_LONG_LONG |
| BOOST_TEST(binary_test("\x01\x02\x03\x04\x05\x06\x07\x88", 8, big_qword, |
| 0x0102030405060788LL)); |
| BOOST_TEST(binary_test("\x81\x02\x03\x04\x05\x06\x07\x08", 8, big_qword, |
| 0x8102030405060708LL)); |
| BOOST_TEST(binary_test_delimited("\x01\x02\x03\x04\x05\x06\x07\x08\x00\x00", |
| 10, big_qword, 0x0102030405060708LL, pad(10))); |
| #endif |
| } |
| |
| { |
| BOOST_TEST(binary_test("\x01\x02", 2, big_word(0x0102))); |
| BOOST_TEST(binary_test("\x01\x02\x03\x04", 4, big_dword(0x01020304))); |
| #ifdef BOOST_HAS_LONG_LONG |
| BOOST_TEST(binary_test("\x01\x02\x03\x04\x05\x06\x07\x08", 8, |
| big_qword(0x0102030405060708LL))); |
| BOOST_TEST(binary_test_delimited("\x01\x02\x03\x04\x05\x06\x07\x08\x00\x00", |
| 10, big_qword(0x0102030405060708LL), pad(10))); |
| #endif |
| } |
| |
| { // test little endian binaries |
| BOOST_TEST(binary_test("\x01\x82", 2, little_word, 0x8201)); |
| BOOST_TEST(binary_test("\x81\x02", 2, little_word, 0x0281)); |
| BOOST_TEST(binary_test("\x01\x02\x03\x84", 4, little_dword, 0x84030201)); |
| BOOST_TEST(binary_test("\x81\x02\x03\x04", 4, little_dword, 0x04030281)); |
| #ifdef BOOST_HAS_LONG_LONG |
| BOOST_TEST(binary_test("\x01\x02\x03\x04\x05\x06\x07\x88", 8, little_qword, |
| 0x8807060504030201LL)); |
| BOOST_TEST(binary_test("\x81\x02\x03\x04\x05\x06\x07\x08", 8, little_qword, |
| 0x0807060504030281LL)); |
| BOOST_TEST(binary_test_delimited("\x01\x02\x03\x04\x05\x06\x07\x08\x00\x00", |
| 10, little_qword, 0x0807060504030201LL, pad(10))); |
| #endif |
| } |
| |
| { |
| BOOST_TEST(binary_test("\x01\x02", 2, little_word(0x0201))); |
| BOOST_TEST(binary_test("\x01\x02\x03\x04", 4, little_dword(0x04030201))); |
| #ifdef BOOST_HAS_LONG_LONG |
| BOOST_TEST(binary_test("\x01\x02\x03\x04\x05\x06\x07\x08", 8, |
| little_qword(0x0807060504030201LL))); |
| BOOST_TEST(binary_test_delimited("\x01\x02\x03\x04\x05\x06\x07\x08\x00\x00", |
| 10, little_qword(0x0807060504030201LL), pad(10))); |
| #endif |
| } |
| |
| { // test native endian binaries |
| boost::optional<boost::uint8_t> v8; |
| boost::optional<boost::uint16_t> v16; |
| boost::optional<boost::uint32_t> v32; |
| |
| #ifdef BOOST_LITTLE_ENDIAN |
| |
| BOOST_TEST(!binary_test("", 1, byte_, v8)); |
| BOOST_TEST(!binary_test("", 2, word, v16)); |
| BOOST_TEST(!binary_test("", 4, dword, v32)); |
| #ifdef BOOST_HAS_LONG_LONG |
| boost::optional<boost::uint64_t> v64; |
| BOOST_TEST(!binary_test("", 8, qword, v64)); |
| #endif |
| |
| #else // BOOST_LITTLE_ENDIAN |
| |
| BOOST_TEST(!binary_test("", 1, byte_, v8)); |
| BOOST_TEST(!binary_test("", 2, word, v16)); |
| BOOST_TEST(!binary_test("", 4, dword, v32)); |
| #ifdef BOOST_HAS_LONG_LONG |
| boost::optional<boost::uint64_t> v64; |
| BOOST_TEST(!binary_test("", 8, qword, v64)); |
| #endif |
| |
| #endif |
| } |
| |
| { // test optional attributes |
| |
| #ifdef BOOST_LITTLE_ENDIAN |
| boost::optional<boost::uint8_t> v8 (0x01); |
| BOOST_TEST(binary_test("\x01", 1, byte_, v8)); |
| boost::optional<boost::uint16_t> v16 (0x0201); |
| BOOST_TEST(binary_test("\x01\x02", 2, word, v16)); |
| boost::optional<boost::uint32_t> v32 (0x04030201); |
| BOOST_TEST(binary_test("\x01\x02\x03\x04", 4, dword, v32)); |
| #ifdef BOOST_HAS_LONG_LONG |
| boost::optional<boost::uint64_t> v64 (0x0807060504030201LL); |
| BOOST_TEST(binary_test("\x01\x02\x03\x04\x05\x06\x07\x08", 8, qword, v64)); |
| #endif |
| |
| #else // BOOST_LITTLE_ENDIAN |
| |
| boost::optional<boost::uint8_t> v8 (0x01); |
| BOOST_TEST(binary_test("\x01", 1, byte_, v8)); |
| boost::optional<boost::uint16_t> v16 (0x0102); |
| BOOST_TEST(binary_test("\x01\x02", 2, word, v16)); |
| boost::optional<boost::uint32_t> v32 (0x01020304); |
| BOOST_TEST(binary_test("\x01\x02\x03\x04", 4, dword, v32)); |
| #ifdef BOOST_HAS_LONG_LONG |
| boost::optional<boost::uint64_t> v64 (0x0102030405060708LL); |
| BOOST_TEST(binary_test("\x01\x02\x03\x04\x05\x06\x07\x08", 8, qword, v64)); |
| #endif |
| |
| #endif |
| } |
| |
| // we support Phoenix attributes only starting with V2.2 |
| #if SPIRIT_VERSION >= 0x2020 |
| { // test Phoenix expression attributes, only supported if |
| // karma_phoenix_attributes.hpp is included |
| namespace phoenix = boost::phoenix; |
| |
| #ifdef BOOST_LITTLE_ENDIAN |
| BOOST_TEST(binary_test("\x01", 1, byte_, phoenix::val(0x01))); |
| BOOST_TEST(binary_test("\x01\x02", 2, word, phoenix::val(0x0201))); |
| BOOST_TEST(binary_test("\x01\x02\x03\x04", 4, dword, |
| phoenix::val(0x04030201))); |
| |
| boost::uint8_t v8 (0x01); |
| BOOST_TEST(binary_test("\x01", 1, byte_, phoenix::ref(v8))); |
| BOOST_TEST(binary_test("\x02", 1, byte_, ++phoenix::ref(v8))); |
| |
| boost::uint16_t v16 (0x0201); |
| BOOST_TEST(binary_test("\x01\x02", 2, word, phoenix::ref(v16))); |
| BOOST_TEST(binary_test("\x02\x02", 2, word, ++phoenix::ref(v16))); |
| |
| boost::uint32_t v32 (0x04030201); |
| BOOST_TEST(binary_test("\x01\x02\x03\x04", 4, dword, phoenix::ref(v32))); |
| BOOST_TEST(binary_test("\x02\x02\x03\x04", 4, dword, ++phoenix::ref(v32))); |
| |
| #ifdef BOOST_HAS_LONG_LONG |
| BOOST_TEST(binary_test("\x01\x02\x03\x04\x05\x06\x07\x08", 8, qword, |
| phoenix::val(0x0807060504030201LL))); |
| |
| boost::uint64_t v64 (0x0807060504030201LL); |
| BOOST_TEST(binary_test("\x01\x02\x03\x04\x05\x06\x07\x08", 8, qword, |
| phoenix::ref(v64))); |
| BOOST_TEST(binary_test("\x02\x02\x03\x04\x05\x06\x07\x08", 8, qword, |
| ++phoenix::ref(v64))); |
| #endif |
| |
| #else // BOOST_LITTLE_ENDIAN |
| |
| BOOST_TEST(binary_test("\x01", 1, byte_, phoenix::val(0x01))); |
| BOOST_TEST(binary_test("\x01\x02", 2, word, phoenix::val(0x0102))); |
| BOOST_TEST(binary_test("\x01\x02\x03\x04", 4, dword, |
| phoenix::val(0x01020304))); |
| |
| boost::uint8_t v8 (0x01); |
| BOOST_TEST(binary_test("\x01", 1, byte_, phoenix::ref(v8))); |
| BOOST_TEST(binary_test("\x02", 1, byte_, ++phoenix::ref(v8))); |
| |
| boost::uint16_t v16 (0x0102); |
| BOOST_TEST(binary_test("\x01\x02", 2, word, phoenix::ref(v16))); |
| BOOST_TEST(binary_test("\x01\x03", 2, word, ++phoenix::ref(v16))); |
| |
| boost::uint32_t v32 (0x01020304); |
| BOOST_TEST(binary_test("\x01\x02\x03\x04", 4, dword, phoenix::ref(v32))); |
| BOOST_TEST(binary_test("\x01\x02\x03\x05", 4, dword, ++phoenix::ref(v32))); |
| |
| #ifdef BOOST_HAS_LONG_LONG |
| BOOST_TEST(binary_test("\x01\x02\x03\x04\x05\x06\x07\x08", 8, qword, |
| phoenix::val(0x0102030405060708LL))); |
| |
| boost::uint64_t v64 (0x0102030405060708LL); |
| BOOST_TEST(binary_test("\x01\x02\x03\x04\x05\x06\x07\x08", 8, qword, |
| phoenix::ref(v64))); |
| BOOST_TEST(binary_test("\x01\x02\x03\x04\x05\x06\x07\x09", 8, qword, |
| ++phoenix::ref(v64))); |
| #endif |
| |
| #endif |
| } |
| #endif |
| |
| return boost::report_errors(); |
| } |
