// Copyright Daniel Wallin 2006. Use, modification and distribution is
// subject to 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/parameter/parameters.hpp>
#include <boost/parameter/name.hpp>
#include <boost/parameter/binding.hpp>
#include <boost/mpl/for_each.hpp>
#include "basics.hpp"

namespace parameter = boost::parameter;
namespace mpl = boost::mpl;

struct not_present_tag {};
not_present_tag not_present;

BOOST_PARAMETER_NAME(x)
BOOST_PARAMETER_NAME(y)
BOOST_PARAMETER_NAME(z)

template <class E, class ArgPack>
struct assert_expected
{
    assert_expected(E const& e, ArgPack const& args)
      : expected(e)
      , args(args)
    {}

    template <class T>
    bool check_not_present(T const&) const
    {
        BOOST_MPL_ASSERT((boost::is_same<T,not_present_tag>));
        return true;
    }

    template <class K>
    bool check(K const& k, not_present_tag const&, long) const
    {
        return check_not_present(args[k | not_present]);
    }

    template <class K, class Expected>
    bool check(K const& k, Expected const& expected, int) const
    {
        return test::equal(args[k], expected);
    }

    template <class K>
    void operator()(K) const
    {
        parameter::keyword<K> const& k = parameter::keyword<K>::get();
        assert(check(k, expected[k], 0L));
    }

    E const& expected;
    ArgPack const& args;
};

template <class E, class ArgPack>
void check0(E const& e, ArgPack const& args)
{
    mpl::for_each<E>(assert_expected<E,ArgPack>(e, args));
}

template <class P, class E, class A0>
void check(E const& e, A0 const& a0)
{
    check0(e, P()(a0));
}

template <class P, class E, class A0, class A1>
void check(E const& e, A0 const& a0, A1 const& a1)
{
    check0(e, P()(a0,a1));
}

template <class P, class E, class A0, class A1, class A2>
void check(E const& e, A0 const& a0, A1 const& a1, A2 const& a2)
{
    check0(e, P()(a0,a1,a2));
}

int main()
{
    using namespace parameter;

    check<
        parameters<
            tag::x
          , tag::y
        >
    >(
        (_x = 0, _y = 1)
      , 0
      , 1
    );

    check<
        parameters<
            tag::x
          , required<deduced<tag::y>, boost::is_convertible<mpl::_, int> >
          , optional<deduced<tag::z>, boost::is_convertible<mpl::_, char const*> >
        >
    >(
        (_x = 0, _y = not_present, _z = "foo")
      , _x = 0
      , "foo"
    );

    check<
        parameters<
            tag::x
          , required<deduced<tag::y>, boost::is_convertible<mpl::_, int> >
          , optional<deduced<tag::z>, boost::is_convertible<mpl::_, char const*> >
        >
    >(
        (_x = 0, _y = 1, _z = "foo")
      , 0
      , "foo"
      , 1
    );

    check<
        parameters<
            tag::x
          , required<deduced<tag::y>, boost::is_convertible<mpl::_, int> >
          , optional<deduced<tag::z>, boost::is_convertible<mpl::_, char const*> >
        >
    >(
        (_x = 0, _y = 1, _z = "foo")
      , 0
      , 1
      , "foo"
    );

    check<
        parameters<
            tag::x
          , required<deduced<tag::y>, boost::is_convertible<mpl::_, int> >
          , optional<deduced<tag::z>, boost::is_convertible<mpl::_, char const*> >
        >
    >(
        (_x = 0, _y = 1, _z = "foo")
      , 0
      , _y = 1
      , "foo"
    );

    check<
        parameters<
            tag::x
          , required<deduced<tag::y>, boost::is_convertible<mpl::_, int> >
          , optional<deduced<tag::z>, boost::is_convertible<mpl::_, char const*> >
        >
    >(
        (_x = 0, _y = 1, _z = "foo")
      , _z = "foo"
      , _x = 0
      , 1
    );

    // Fails becasue of parameters.hpp:428
/*
    check<
        parameters<
            tag::x
          , required<deduced<tag::y>, boost::is_convertible<mpl::_, int> >
          , optional<deduced<tag::z>, boost::is_convertible<mpl::_, char const*> >
        >
    >(
        (_x = 0, _y = 1, _z = "foo")
      , _x = 0
      , (long*)0
      , 1
    );
*/

    return 0;
};