/*=============================================================================
    Copyright (c) 2001-2013 Joel de Guzman

    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/detail/lightweight_test.hpp>
#include <boost/spirit/home/x3.hpp>
#include <boost/fusion/adapted/struct.hpp>
#include <boost/fusion/include/vector.hpp>

#include <iostream>
#include "test.hpp"

struct adata
{
    int a;
    boost::optional<int> b;
};

BOOST_FUSION_ADAPT_STRUCT(
    adata,
    (int, a)
    (boost::optional<int>, b)
)

//~ struct test_attribute_type
//~ {
    //~ template <typename Attribute, typename Context>
    //~ void operator()(Attribute&, Context&, bool&) const
    //~ {
        //~ BOOST_TEST(typeid(Attribute).name() == typeid(boost::optional<int>).name());
    //~ }
//~ };

int
main()
{
    using spirit_test::test;
    using spirit_test::test_attr;

    //~ using boost::spirit::x3::_1;
    using boost::spirit::x3::int_;
    //~ using boost::spirit::x3::omit;
    using boost::spirit::x3::ascii::char_;

    {
        BOOST_TEST((test("1234", -int_)));
        BOOST_TEST((test("abcd", -int_, false)));
    }

    {   // test propagation of unused
        using boost::fusion::at_c;
        using boost::fusion::vector;

        vector<char, char> v;
        //~ BOOST_TEST((test_attr("a1234c", char_ >> -omit[int_] >> char_, v)));
        //~ BOOST_TEST((at_c<0>(v) == 'a'));
        //~ BOOST_TEST((at_c<1>(v) == 'c'));

        v = boost::fusion::vector<char, char>();
        //~ BOOST_TEST((test_attr("a1234c", char_ >> omit[-int_] >> char_, v)));
        //~ BOOST_TEST((at_c<0>(v) == 'a'));
        //~ BOOST_TEST((at_c<1>(v) == 'c'));

        char ch;
        BOOST_TEST((test_attr(",c", -(',' >> char_), ch)));
        BOOST_TEST((ch == 'c'));
    }

    // $$$ Not yet implemented $$$
    //~ {   // test action
        //~ boost::optional<int> n = 0;
        //~ BOOST_TEST((test_attr("1234", (-int_)[test_attribute_type()], n)));
        //~ BOOST_TEST((n.get() == 1234));
    //~ }

    {
        std::string s;
        BOOST_TEST((test_attr("abc", char_ >> -(char_ >> char_), s)));
        BOOST_TEST(s == "abc");
    }

    // $$$ Not yet implemented $$$
    //~ {
        //~ namespace phx = boost::phoenix;

        //~ boost::optional<int> n = 0;
        //~ BOOST_TEST((test("1234", (-int_)[phx::ref(n) = _1])));
        //~ BOOST_TEST(n.get() == 1234);

        //~ n = boost::optional<int>();
        //~ BOOST_TEST((test("abcd", (-int_)[phx::ref(n) = _1], false)));
        //~ BOOST_TEST(!n);
    //~ }

    {
        std::vector<adata> v;
        BOOST_TEST((test_attr("a 1 2 a 2", *('a' >> int_ >> -int_), v
          , char_(' '))));
        BOOST_TEST(2 == v.size() &&
            1 == v[0].a && v[0].b && 2 == *(v[0].b) &&
            2 == v[1].a && !v[1].b);
    }

    return boost::report_errors();
}