| /*============================================================================= |
| Copyright (c) 2001-2007 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 <iostream> |
| #include <cmath> |
| #include <boost/detail/lightweight_test.hpp> |
| #include <boost/spirit/include/phoenix_core.hpp> |
| #include <boost/spirit/include/phoenix_operator.hpp> |
| #include <boost/spirit/include/phoenix_bind.hpp> |
| |
| using namespace boost::phoenix; |
| using namespace boost::phoenix::arg_names; |
| using namespace std; |
| |
| struct test |
| { |
| typedef void result_type; |
| void operator()() const |
| { |
| cout << "Test lazy functions...\n"; |
| } |
| }; |
| |
| struct sqr |
| { |
| template <typename Arg> |
| struct result |
| { |
| typedef Arg type; |
| }; |
| |
| template <typename Arg> |
| Arg operator()(Arg n) const |
| { |
| return n * n; |
| } |
| }; |
| |
| struct fact |
| { |
| template <typename Arg> |
| struct result |
| { |
| typedef Arg type; |
| }; |
| |
| template <typename Arg> |
| Arg operator()(Arg n) const |
| { |
| return (n <= 0) ? 1 : n * (*this)(n-1); |
| } |
| }; |
| |
| struct power |
| { |
| template <typename Arg1, typename Arg2> |
| struct result |
| { |
| typedef Arg1 type; |
| }; |
| |
| template <typename Arg1, typename Arg2> |
| Arg1 operator()(Arg1 a, Arg2 b) const |
| { |
| return pow(a, b); |
| } |
| }; |
| |
| struct add |
| { |
| template <typename Arg1, typename Arg2, typename Arg3, typename Arg4> |
| struct result |
| { |
| typedef Arg1 type; |
| }; |
| |
| template <typename Arg1, typename Arg2, typename Arg3, typename Arg4> |
| Arg1 operator()(Arg1 a, Arg2 b, Arg3 c, Arg4 d) const |
| { |
| return a + b + c + d; |
| } |
| }; |
| |
| int |
| main() |
| { |
| int i5 = 5; |
| double d5 = 5, d3 = 3; |
| |
| test()(); |
| BOOST_TEST(bind(sqr(), arg1)(i5) == (i5*i5)); |
| BOOST_TEST(bind(fact(), 4)() == 24); |
| BOOST_TEST(bind(fact(), arg1)(i5) == 120); |
| BOOST_TEST((int)bind(power(), arg1, arg2)(d5, d3) == (int)pow(d5, d3)); |
| BOOST_TEST((bind(sqr(), arg1) + 5)(i5) == ((i5*i5)+5)); |
| BOOST_TEST(bind(add(), arg1, arg1, arg1, arg1)(i5) == (5+5+5+5)); |
| |
| int const ic5 = 5; |
| // testing consts |
| BOOST_TEST(bind(sqr(), arg1)(ic5) == (ic5*ic5)); |
| |
| // From Steven Watanabe |
| sqr s; |
| int x = 2; |
| int result = bind(ref(s), _1)(x); |
| BOOST_TEST(result == 4); |
| |
| return boost::report_errors(); |
| } |