From 38bcd6e779ae06ff7da2aba1066307d9f3666dc1 Mon Sep 17 00:00:00 2001
From: Kohei Takahashi <flast@flast.jp>
Date: Wed, 17 Oct 2012 18:05:39 +0900
Subject: [PATCH] Add mpl::clear implementation for Boost.Tuple

Signed-off-by: Kohei Takahashi <flast@flast.jp>
---
 include/boost/fusion/adapted/boost_tuple.hpp  |  1 +
 .../fusion/adapted/boost_tuple/mpl/clear.hpp  | 23 +++++++++++++++++++
 2 files changed, 24 insertions(+)
 create mode 100644 include/boost/fusion/adapted/boost_tuple/mpl/clear.hpp

diff --git a/include/boost/fusion/adapted/boost_tuple.hpp b/include/boost/fusion/adapted/boost_tuple.hpp
index a391156d..7ef65686 100644
--- a/include/boost/fusion/adapted/boost_tuple.hpp
+++ b/include/boost/fusion/adapted/boost_tuple.hpp
@@ -18,5 +18,6 @@
 #include <boost/fusion/adapted/boost_tuple/detail/at_impl.hpp>
 #include <boost/fusion/adapted/boost_tuple/detail/value_at_impl.hpp>
 #include <boost/fusion/adapted/boost_tuple/detail/convert_impl.hpp>
+#include <boost/fusion/adapted/boost_tuple/mpl/clear.hpp>
 
 #endif
diff --git a/include/boost/fusion/adapted/boost_tuple/mpl/clear.hpp b/include/boost/fusion/adapted/boost_tuple/mpl/clear.hpp
new file mode 100644
index 00000000..1cca019c
--- /dev/null
+++ b/include/boost/fusion/adapted/boost_tuple/mpl/clear.hpp
@@ -0,0 +1,23 @@
+/*=============================================================================
+    Copyright (c) 2012 Kohei Takahashi
+
+    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)
+==============================================================================*/
+#if !defined(BOOST_FUSION_CLEAR_10172012_0100)
+#define BOOST_FUSION_CLEAR_10172012_0100
+
+#include <boost/mpl/identity.hpp>
+#include <boost/fusion/adapted/boost_tuple/tag_of.hpp>
+
+namespace boost { namespace fusion { namespace detail {
+
+  template <typename Tag>
+  struct clear;
+
+  template <>
+  struct clear<boost_tuple_tag> : mpl::identity<boost::tuple<> > {};
+
+}}}
+
+#endif