1 //---------------------------------------------------------------------------//
2 // Copyright (c) 2013-2014 Kyle Lutz <kyle.r.lutz@gmail.com>
4 // Distributed under the Boost Software License, Version 1.0
5 // See accompanying file LICENSE_1_0.txt or copy at
6 // http://www.boost.org/LICENSE_1_0.txt
8 // See http://boostorg.github.com/compute for more information.
9 //---------------------------------------------------------------------------//
11 #ifndef BOOST_COMPUTE_LAMBDA_MAKE_TUPLE_HPP
12 #define BOOST_COMPUTE_LAMBDA_MAKE_TUPLE_HPP
14 #include <boost/preprocessor/repetition.hpp>
16 #include <boost/compute/config.hpp>
17 #include <boost/compute/types/tuple.hpp>
24 // function wrapper for make_tuple() in lambda expressions
25 struct make_tuple_func
27 template<class Expr, class Args, int N>
28 struct make_tuple_result_type;
30 #define BOOST_COMPUTE_MAKE_TUPLE_RESULT_GET_ARG(z, n, unused) \
31 typedef typename proto::result_of::child_c<Expr, BOOST_PP_INC(n)>::type BOOST_PP_CAT(Arg, n);
33 #define BOOST_COMPUTE_MAKE_TUPLE_RESULT_GET_ARG_TYPE(z, n, unused) \
34 typedef typename lambda::result_of<BOOST_PP_CAT(Arg, n), Args>::type BOOST_PP_CAT(T, n);
36 #define BOOST_COMPUTE_MAKE_TUPLE_RESULT_TYPE(z, n, unused) \
37 template<class Expr, class Args> \
38 struct make_tuple_result_type<Expr, Args, n> \
40 BOOST_PP_REPEAT(n, BOOST_COMPUTE_MAKE_TUPLE_RESULT_GET_ARG, ~) \
41 BOOST_PP_REPEAT(n, BOOST_COMPUTE_MAKE_TUPLE_RESULT_GET_ARG_TYPE, ~) \
42 typedef boost::tuple<BOOST_PP_ENUM_PARAMS(n, T)> type; \
45 BOOST_PP_REPEAT_FROM_TO(1, BOOST_COMPUTE_MAX_ARITY, BOOST_COMPUTE_MAKE_TUPLE_RESULT_TYPE, ~)
47 #undef BOOST_COMPUTE_MAKE_TUPLE_RESULT_GET_ARG
48 #undef BOOST_COMPUTE_MAKE_TUPLE_RESULT_GET_ARG_TYPE
49 #undef BOOST_COMPUTE_MAKE_TUPLE_RESULT_TYPE
51 template<class Expr, class Args>
54 typedef typename make_tuple_result_type<
55 Expr, Args, proto::arity_of<Expr>::value - 1
59 #define BOOST_COMPUTE_MAKE_TUPLE_GET_ARG_TYPE(z, n, unused) \
60 typedef typename lambda::result_of< \
61 BOOST_PP_CAT(Arg, n), typename Context::args_tuple \
62 >::type BOOST_PP_CAT(T, n);
64 #define BOOST_COMPUTE_LAMBDA_MAKE_TUPLE_APPLY_ARG(z, n, unused) \
65 BOOST_PP_COMMA_IF(n) BOOST_PP_CAT(const Arg, n) BOOST_PP_CAT(&arg, n)
67 #define BOOST_COMPUTE_LAMBDA_MAKE_TUPLE_APPLY_EVAL_ARG(z, n, unused) \
68 BOOST_PP_EXPR_IF(n, ctx.stream << ", ";) proto::eval(BOOST_PP_CAT(arg, n), ctx);
70 #define BOOST_COMPUTE_MAKE_TUPLE_APPLY(z, n, unused) \
71 template<class Context, BOOST_PP_ENUM_PARAMS(n, class Arg)> \
72 static void apply(Context &ctx, BOOST_PP_REPEAT(n, BOOST_COMPUTE_LAMBDA_MAKE_TUPLE_APPLY_ARG, ~)) \
74 BOOST_PP_REPEAT(n, BOOST_COMPUTE_MAKE_TUPLE_GET_ARG_TYPE, ~) \
75 typedef typename boost::tuple<BOOST_PP_ENUM_PARAMS(n, T)> tuple_type; \
76 ctx.stream.template inject_type<tuple_type>(); \
77 ctx.stream << "((" << type_name<tuple_type>() << "){"; \
78 BOOST_PP_REPEAT(n, BOOST_COMPUTE_LAMBDA_MAKE_TUPLE_APPLY_EVAL_ARG, ~) \
82 BOOST_PP_REPEAT_FROM_TO(1, BOOST_COMPUTE_MAX_ARITY, BOOST_COMPUTE_MAKE_TUPLE_APPLY, ~)
84 #undef BOOST_COMPUTE_MAKE_TUPLE_GET_ARG_TYPE
85 #undef BOOST_COMPUTE_LAMBDA_MAKE_TUPLE_APPLY_ARG
86 #undef BOOST_COMPUTE_LAMBDA_MAKE_TUPLE_APPLY_EVAL_ARG
87 #undef BOOST_COMPUTE_LAMBDA_MAKE_TUPLE_APPLY
90 } // end detail namespace
92 #define BOOST_COMPUTE_LAMBDA_MAKE_TUPLE_ARG(z, n, unused) \
93 BOOST_PP_COMMA_IF(n) BOOST_PP_CAT(const Arg, n) BOOST_PP_CAT(&arg, n)
95 #define BOOST_COMPUTE_LAMBDA_MAKE_TUPLE_ARG_TYPE(z, n, unused) \
96 BOOST_PP_COMMA_IF(n) BOOST_PP_CAT(const Arg, n) &
98 #define BOOST_COMPUTE_LAMBDA_MAKE_TUPLE_REF_ARG(z, n, unused) \
99 BOOST_PP_COMMA_IF(n) ::boost::ref(BOOST_PP_CAT(arg, n))
101 #define BOOST_COMPUTE_LAMBDA_MAKE_TUPLE(z, n, unused) \
102 template<BOOST_PP_ENUM_PARAMS(n, class Arg)> \
103 inline typename proto::result_of::make_expr< \
104 proto::tag::function, \
105 detail::make_tuple_func, \
106 BOOST_PP_REPEAT(n, BOOST_COMPUTE_LAMBDA_MAKE_TUPLE_ARG_TYPE, ~) \
108 make_tuple(BOOST_PP_REPEAT(n, BOOST_COMPUTE_LAMBDA_MAKE_TUPLE_ARG, ~)) \
110 return proto::make_expr<proto::tag::function>( \
111 detail::make_tuple_func(), \
112 BOOST_PP_REPEAT(n, BOOST_COMPUTE_LAMBDA_MAKE_TUPLE_REF_ARG, ~) \
116 BOOST_PP_REPEAT_FROM_TO(1, BOOST_COMPUTE_MAX_ARITY, BOOST_COMPUTE_LAMBDA_MAKE_TUPLE, ~)
118 #undef BOOST_COMPUTE_LAMBDA_MAKE_TUPLE_ARG
119 #undef BOOST_COMPUTE_LAMBDA_MAKE_TUPLE_ARG_TYPE
120 #undef BOOST_COMPUTE_LAMBDA_MAKE_TUPLE_REF_ARG
121 #undef BOOST_COMPUTE_LAMBDA_MAKE_TUPLE
123 } // end lambda namespace
124 } // end compute namespace
125 } // end boost namespace
127 #endif // BOOST_COMPUTE_LAMBDA_MAKE_TUPLE_HPP