/*==============================================================================
    Copyright (c) 2005 Peter Dimov
    Copyright (c) 2005-2010 Joel de Guzman
    Copyright (c) 2010 Thomas Heller
    Copyright (c) 2015 John Fletcher

    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.hpp>

#if defined(BOOST_MSVC)
#pragma warning(disable: 4786)  // identifier truncated in debug info
#pragma warning(disable: 4710)  // function not inlined
#pragma warning(disable: 4711)  // function selected for automatic inline expansion
#pragma warning(disable: 4514)  // unreferenced inline removed
#endif

#include <boost/phoenix/core.hpp>
#include <boost/phoenix/bind.hpp>

#if defined(BOOST_MSVC) && (BOOST_MSVC < 1300)
#pragma warning(push, 3)
#endif

#include <iostream>

#if defined(BOOST_MSVC) && (BOOST_MSVC < 1300)
#pragma warning(pop)
#endif

#include <boost/detail/lightweight_test.hpp>

struct X
{
    int m;
};

X f( int v )
{
    X r = { v };
    return r;
}

int main()
{
    using boost::phoenix::bind;
    using boost::phoenix::ref;
    using boost::phoenix::placeholders::_1;

    X x = { 17041 };
    X * px = &x;

    BOOST_TEST( bind( &X::m, _1 )( x ) == 17041 );
    BOOST_TEST( bind( &X::m, _1 )( px ) == 17041 );

    BOOST_TEST( bind( &X::m, x )() == 17041 );
    BOOST_TEST( bind( &X::m, px )() == 17041 );
    BOOST_TEST( bind( &X::m, ref(x) )() == 17041 );


    X const cx = x;
    X const * pcx = &cx;

    BOOST_TEST( bind( &X::m, _1 )( cx ) == 17041 );
    BOOST_TEST( bind( &X::m, _1 )( pcx ) == 17041 );

    BOOST_TEST( bind( &X::m, cx )() == 17041 );
    BOOST_TEST( bind( &X::m, pcx )() == 17041 );
    BOOST_TEST( bind( &X::m, ref(cx) )() == 17041 );

    int const v = 42;

// NOTE: The second case does not work with compiler optimization.
// This is a bug which has not yet been fixed.
// The current test for gcc 4.7.3 does use -O2 but does not
// satisfy this first part of the test for some unknown reason.
// So this is set to run the first case for all gcc 4.7
#if (defined(__OPTIMIZE__) && __OPTIMIZE__) || \
    defined(BOOST_GCC_VERSION) && (BOOST_GCC_VERSION >= 40700) && (BOOST_GCC_VERSION < 40800)
    // Change bind_dm_test.cpp to bind to _1 twice.
    BOOST_TEST( bind( &X::m, _1)( bind( f, _1 )( v ) ) == v );
#else
    BOOST_TEST( bind( &X::m, bind( f, _1 ) )( v ) == v );
#endif
    return boost::report_errors();
}