1 files changed, 70 insertions, 0 deletions
diff --git a/boost/compute/lambda/make_pair.hpp b/boost/compute/lambda/make_pair.hpp
new file mode 100644
index 0000000000..3adca97c71
--- /dev/null
+++ b/boost/compute/lambda/make_pair.hpp
@@ -0,0 +1,70 @@
+//---------------------------------------------------------------------------//
+// Copyright (c) 2013-2014 Kyle Lutz <kyle.r.lutz@gmail.com>
+//
+// 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
+//
+// See http://boostorg.github.com/compute for more information.
+//---------------------------------------------------------------------------//
+
+#ifndef BOOST_COMPUTE_LAMBDA_MAKE_PAIR_HPP
+#define BOOST_COMPUTE_LAMBDA_MAKE_PAIR_HPP
+
+#include <boost/compute/types/pair.hpp>
+
+namespace boost {
+namespace compute {
+namespace lambda {
+namespace detail {
+
+// function wrapper for make_pair() in lambda expressions
+struct make_pair_func
+{
+    template<class Expr, class Args>
+    struct lambda_result
+    {
+        typedef typename proto::result_of::child_c<Expr, 1>::type Arg1;
+        typedef typename proto::result_of::child_c<Expr, 2>::type Arg2;
+
+        typedef typename lambda::result_of<Arg1, Args>::type T1;
+        typedef typename lambda::result_of<Arg2, Args>::type T2;
+
+        typedef std::pair<T1, T2> type;
+    };
+
+    template<class Context, class Arg1, class Arg2>
+    static void apply(Context &ctx, const Arg1 &arg1, const Arg2 &arg2)
+    {
+        typedef typename lambda::result_of<Arg1, typename Context::args_tuple>::type T1;
+        typedef typename lambda::result_of<Arg2, typename Context::args_tuple>::type T2;
+
+        ctx.stream << "boost_make_pair(";
+        ctx.stream << type_name<T1>() << ", ";
+        proto::eval(arg1, ctx);
+        ctx.stream << ", ";
+        ctx.stream << type_name<T2>() << ", ";
+        proto::eval(arg2, ctx);
+        ctx.stream << ")";
+    }
+};
+
+} // end detail namespace
+
+// make_pair(first, second)
+template<class Arg1, class Arg2>
+inline typename proto::result_of::make_expr<
+    proto::tag::function, detail::make_pair_func, const Arg1&, const Arg2&
+>::type const
+make_pair(const Arg1 &first, const Arg2 &second)
+{
+    return proto::make_expr<proto::tag::function>(
+        detail::make_pair_func(), ::boost::ref(first), ::boost::ref(second)
+    );
+}
+
+} // end lambda namespace
+} // end compute namespace
+} // end boost namespace
+
+#endif // BOOST_COMPUTE_LAMBDA_MAKE_PAIR_HPP