OSDN Git Service

2011-05-30 Jonathan Wakely <jwakely.gcc@gmail.com>
[pf3gnuchains/gcc-fork.git] / libstdc++-v3 / include / std / tuple
index 38a6bbb..a0e9e69 100644 (file)
@@ -1,11 +1,11 @@
 // <tuple> -*- C++ -*-
 
-// Copyright (C) 2007, 2008 Free Software Foundation, Inc.
+// Copyright (C) 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
 //
 // This file is part of the GNU ISO C++ Library.  This library is free
 // software; you can redistribute it and/or modify it under the
 // terms of the GNU General Public License as published by the
-// Free Software Foundation; either version 2, or (at your option)
+// Free Software Foundation; either version 3, or (at your option)
 // any later version.
 
 // This library is distributed in the hope that it will be useful,
 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 // GNU General Public License for more details.
 
-// You should have received a copy of the GNU General Public License
-// along with this library; see the file COPYING.  If not, write to
-// the Free Software Foundation, 51 Franklin Street, Fifth Floor,
-// Boston, MA 02110-1301, USA.
+// Under Section 7 of GPL version 3, you are granted additional
+// permissions described in the GCC Runtime Library Exception, version
+// 3.1, as published by the Free Software Foundation.
 
-// As a special exception, you may use this file as part of a free software
-// library without restriction.  Specifically, if other files instantiate
-// templates or use macros or inline functions from this file, or you compile
-// this file and link it with other files to produce an executable, this
-// file does not by itself cause the resulting executable to be covered by
-// the GNU General Public License.  This exception does not however
-// invalidate any other reasons why the executable file might be covered by
-// the GNU General Public License.
+// You should have received a copy of the GNU General Public License and
+// a copy of the GCC Runtime Library Exception along with this program;
+// see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
+// <http://www.gnu.org/licenses/>.
 
 /** @file include/tuple
  *  This is a Standard C++ Library header.
 #pragma GCC system_header
 
 #ifndef __GXX_EXPERIMENTAL_CXX0X__
-# include <c++0x_warning.h>
-#endif
+# include <bits/c++0x_warning.h>
+#else
 
 #include <utility>
+#include <bits/uses_allocator.h>
 
-namespace std
+namespace std _GLIBCXX_VISIBILITY(default)
 {
+_GLIBCXX_BEGIN_NAMESPACE_VERSION
+
   // Adds a const reference to a non-reference type.
   template<typename _Tp>
     struct __add_c_ref
@@ -62,42 +60,102 @@ namespace std
     struct __add_ref<_Tp&>
     { typedef _Tp& type; };
 
-  template<int _Idx, typename _Head, bool _IsEmpty>
+  // Adds an rvalue reference to a non-reference type.
+  template<typename _Tp>
+    struct __add_r_ref
+    { typedef _Tp&& type; };
+
+  template<typename _Tp>
+    struct __add_r_ref<_Tp&>
+    { typedef _Tp& type; };
+
+  template<std::size_t _Idx, typename _Head, bool _IsEmpty>
     struct _Head_base;
 
-  template<int _Idx, typename _Head>
+  template<std::size_t _Idx, typename _Head>
     struct _Head_base<_Idx, _Head, true>
     : public _Head
     {
-      _Head_base()
+      constexpr _Head_base()
       : _Head() { }
 
-      _Head_base(const _Head& __h)
+      constexpr _Head_base(const _Head& __h)
       : _Head(__h) { }
 
+      template<typename _UHead, typename = typename
+              enable_if<!is_convertible<_UHead,
+                                        __uses_alloc_base>::value>::type>
+        _Head_base(_UHead&& __h)
+       : _Head(std::forward<_UHead>(__h)) { }
+
+      _Head_base(__uses_alloc0)
+      : _Head() { }
+
+      template<typename _Alloc>
+       _Head_base(__uses_alloc1<_Alloc> __a)
+       : _Head(allocator_arg, *__a._M_a) { }
+
+      template<typename _Alloc>
+       _Head_base(__uses_alloc2<_Alloc> __a)
+       : _Head(*__a._M_a) { }
+
       template<typename _UHead>
-      _Head_base(_UHead&& __h)
-      : _Head(std::forward<_UHead>(__h)) { }
+       _Head_base(__uses_alloc0, _UHead&& __uhead)
+       : _Head(std::forward<_UHead>(__uhead)) { }
+
+      template<typename _Alloc, typename _UHead>
+       _Head_base(__uses_alloc1<_Alloc> __a, _UHead&& __uhead)
+       : _Head(allocator_arg, *__a._M_a, std::forward<_UHead>(__uhead)) { }
+
+      template<typename _Alloc, typename _UHead>
+       _Head_base(__uses_alloc2<_Alloc> __a, _UHead&& __uhead)
+       : _Head(std::forward<_UHead>(__uhead), *__a._M_a) { }
 
-      _Head&       _M_head()       { return *this; }
-      const _Head& _M_head() const { return *this; }
+      _Head&       _M_head() noexcept       { return *this; }
+      const _Head& _M_head() const noexcept { return *this; }
     };
 
-  template<int _Idx, typename _Head>
+  template<std::size_t _Idx, typename _Head>
     struct _Head_base<_Idx, _Head, false>
     {
-      _Head_base()
+      constexpr _Head_base()
       : _M_head_impl() { }
 
-      _Head_base(const _Head& __h)
+      constexpr _Head_base(const _Head& __h)
       : _M_head_impl(__h) { }
 
+      template<typename _UHead, typename = typename
+              enable_if<!is_convertible<_UHead,
+                                        __uses_alloc_base>::value>::type>
+        _Head_base(_UHead&& __h)
+       : _M_head_impl(std::forward<_UHead>(__h)) { }
+
+      _Head_base(__uses_alloc0)
+      : _M_head_impl() { }
+
+      template<typename _Alloc>
+       _Head_base(__uses_alloc1<_Alloc> __a)
+       : _M_head_impl(allocator_arg, *__a._M_a) { }
+
+      template<typename _Alloc>
+       _Head_base(__uses_alloc2<_Alloc> __a)
+       : _M_head_impl(*__a._M_a) { }
+
       template<typename _UHead>
-      _Head_base(_UHead&& __h)
-      : _M_head_impl(std::forward<_UHead>(__h)) { }
+       _Head_base(__uses_alloc0, _UHead&& __uhead)
+       : _M_head_impl(std::forward<_UHead>(__uhead)) { }
 
-      _Head&       _M_head()       { return _M_head_impl; }
-      const _Head& _M_head() const { return _M_head_impl; }        
+      template<typename _Alloc, typename _UHead>
+       _Head_base(__uses_alloc1<_Alloc> __a, _UHead&& __uhead)
+       : _M_head_impl(allocator_arg, *__a._M_a, std::forward<_UHead>(__uhead))
+       { }
+
+      template<typename _Alloc, typename _UHead>
+       _Head_base(__uses_alloc2<_Alloc> __a, _UHead&& __uhead)
+       : _M_head_impl(std::forward<_UHead>(__uhead), *__a._M_a) { }
+
+      _Head&       _M_head() noexcept       { return _M_head_impl; }
+      const _Head& _M_head() const noexcept { return _M_head_impl; }        
 
       _Head _M_head_impl; 
     };
@@ -110,65 +168,132 @@ namespace std
    * point in the hierarchy; we use it to implement a constant-time
    * get() operation.
    */
-  template<int _Idx, typename... _Elements>
+  template<std::size_t _Idx, typename... _Elements>
     struct _Tuple_impl; 
 
   /**
    * Zero-element tuple implementation. This is the basis case for the 
    * inheritance recursion.
    */
-  template<int _Idx>
-    struct _Tuple_impl<_Idx> { };
+  template<std::size_t _Idx>
+    struct _Tuple_impl<_Idx>
+    {
+      template<std::size_t, typename...> friend class _Tuple_impl;
+
+      _Tuple_impl() = default;
+
+      template<typename _Alloc>
+        _Tuple_impl(allocator_arg_t, const _Alloc&) { }
+
+      template<typename _Alloc>
+        _Tuple_impl(allocator_arg_t, const _Alloc&, const _Tuple_impl&) { }
+
+      template<typename _Alloc>
+        _Tuple_impl(allocator_arg_t, const _Alloc&, _Tuple_impl&&) { }
+
+    protected:
+      void _M_swap(_Tuple_impl&) noexcept { /* no-op */ }
+    };
 
   /**
    * Recursive tuple implementation. Here we store the @c Head element
    * and derive from a @c Tuple_impl containing the remaining elements
    * (which contains the @c Tail).
    */
-  template<int _Idx, typename _Head, typename... _Tail>
+  template<std::size_t _Idx, typename _Head, typename... _Tail>
     struct _Tuple_impl<_Idx, _Head, _Tail...>
     : public _Tuple_impl<_Idx + 1, _Tail...>,
       private _Head_base<_Idx, _Head, std::is_empty<_Head>::value>
     {
+      template<std::size_t, typename...> friend class _Tuple_impl;
+
       typedef _Tuple_impl<_Idx + 1, _Tail...> _Inherited;
       typedef _Head_base<_Idx, _Head, std::is_empty<_Head>::value> _Base;
 
-      _Head&            _M_head()       { return _Base::_M_head(); }
-      const _Head&      _M_head() const { return _Base::_M_head(); }
+      _Head&            _M_head() noexcept       { return _Base::_M_head(); }
+      const _Head&      _M_head() const noexcept { return _Base::_M_head(); }
 
-      _Inherited&       _M_tail()       { return *this; }
-      const _Inherited& _M_tail() const { return *this; }
+      _Inherited&       _M_tail() noexcept       { return *this; }
+      const _Inherited& _M_tail() const noexcept { return *this; }
 
-      _Tuple_impl()
+      constexpr _Tuple_impl()
       : _Inherited(), _Base() { }
 
       explicit 
-      _Tuple_impl(const _Head& __head, const _Tail&... __tail)
+      constexpr _Tuple_impl(const _Head& __head, const _Tail&... __tail)
       : _Inherited(__tail...), _Base(__head) { }
 
-      template<typename _UHead, typename... _UTail> 
+      template<typename _UHead, typename... _UTail, typename = typename
+               std::enable_if<sizeof...(_Tail)==sizeof...(_UTail)>::type> 
         explicit
         _Tuple_impl(_UHead&& __head, _UTail&&... __tail)
        : _Inherited(std::forward<_UTail>(__tail)...),
          _Base(std::forward<_UHead>(__head)) { }
 
-      _Tuple_impl(const _Tuple_impl& __in)
-      : _Inherited(__in._M_tail()), _Base(__in._M_head()) { }
+      constexpr _Tuple_impl(const _Tuple_impl&) = default;
 
       _Tuple_impl(_Tuple_impl&& __in)
-      : _Inherited(std::move<_Inherited&&>(__in._M_tail())),
+      noexcept(std::is_nothrow_move_constructible<_Head>::value
+              && std::is_nothrow_move_constructible<_Inherited>::value)
+      : _Inherited(std::move(__in._M_tail())), 
        _Base(std::forward<_Head>(__in._M_head())) { }
 
       template<typename... _UElements>
         _Tuple_impl(const _Tuple_impl<_Idx, _UElements...>& __in)
        : _Inherited(__in._M_tail()), _Base(__in._M_head()) { }
 
-      template<typename... _UElements>
-        _Tuple_impl(_Tuple_impl<_Idx, _UElements...>&& __in)
-       : _Inherited(std::move<typename _Tuple_impl<_Idx, _UElements...>::
-                    _Inherited&&>(__in._M_tail())),
-         _Base(std::forward<typename _Tuple_impl<_Idx, _UElements...>::
-               _Base>(__in._M_head())) { }
+      template<typename _UHead, typename... _UTails>
+        _Tuple_impl(_Tuple_impl<_Idx, _UHead, _UTails...>&& __in)
+       : _Inherited(std::move(__in._M_tail())),
+         _Base(std::forward<_UHead>(__in._M_head())) { }
+
+      template<typename _Alloc>
+       _Tuple_impl(allocator_arg_t __tag, const _Alloc& __a)
+       : _Inherited(__tag, __a),
+          _Base(__use_alloc<_Head>(__a)) { }
+
+      template<typename _Alloc>
+       _Tuple_impl(allocator_arg_t __tag, const _Alloc& __a,
+           const _Head& __head, const _Tail&... __tail)
+       : _Inherited(__tag, __a, __tail...),
+          _Base(__use_alloc<_Head, _Alloc, _Head>(__a), __head) { }
+
+      template<typename _Alloc, typename _UHead, typename... _UTail,
+               typename = typename std::enable_if<sizeof...(_Tail)
+                                                 ==sizeof...(_UTail)>::type>
+       _Tuple_impl(allocator_arg_t __tag, const _Alloc& __a,
+                   _UHead&& __head, _UTail&&... __tail)
+       : _Inherited(__tag, __a, std::forward<_UTail>(__tail)...),
+          _Base(__use_alloc<_Head, _Alloc, _UHead>(__a),
+               std::forward<_UHead>(__head)) { }
+
+      template<typename _Alloc>
+        _Tuple_impl(allocator_arg_t __tag, const _Alloc& __a,
+                   const _Tuple_impl& __in)
+       : _Inherited(__tag, __a, __in._M_tail()), 
+          _Base(__use_alloc<_Head, _Alloc, _Head>(__a), __in._M_head()) { }
+
+      template<typename _Alloc>
+       _Tuple_impl(allocator_arg_t __tag, const _Alloc& __a,
+                   _Tuple_impl&& __in)
+       noexcept(std::is_nothrow_move_constructible<_Head>::value
+                && std::is_nothrow_move_constructible<_Inherited>::value)
+       : _Inherited(__tag, __a, std::move(__in._M_tail())), 
+         _Base(__use_alloc<_Head, _Alloc, _Head>(__a),
+               std::forward<_Head>(__in._M_head())) { }
+
+      template<typename _Alloc, typename... _UElements>
+       _Tuple_impl(allocator_arg_t __tag, const _Alloc& __a,
+                   const _Tuple_impl<_Idx, _UElements...>& __in)
+       : _Inherited(__tag, __a, __in._M_tail()),
+         _Base(__use_alloc<_Head, _Alloc, _Head>(__a), __in._M_head()) { }
+
+      template<typename _Alloc, typename _UHead, typename... _UTails>
+       _Tuple_impl(allocator_arg_t __tag, const _Alloc& __a,
+                   _Tuple_impl<_Idx, _UHead, _UTails...>&& __in)
+       : _Inherited(__tag, __a, std::move(__in._M_tail())),
+         _Base(__use_alloc<_Head, _Alloc, _UHead>(__a),
+                std::forward<_UHead>(__in._M_head())) { }
 
       _Tuple_impl&
       operator=(const _Tuple_impl& __in)
@@ -180,8 +305,10 @@ namespace std
 
       _Tuple_impl&
       operator=(_Tuple_impl&& __in)
+      noexcept(std::is_nothrow_move_assignable<_Head>::value
+              && std::is_nothrow_move_assignable<_Inherited>::value)
       {
-       _M_head() = std::move(__in._M_head());
+       _M_head() = std::forward<_Head>(__in._M_head());
        _M_tail() = std::move(__in._M_tail());
        return *this;
       }
@@ -195,14 +322,26 @@ namespace std
          return *this;
        }
 
-      template<typename... _UElements>
+      template<typename _UHead, typename... _UTails>
         _Tuple_impl&
-        operator=(_Tuple_impl<_Idx, _UElements...>&& __in)
+        operator=(_Tuple_impl<_Idx, _UHead, _UTails...>&& __in)
         {
-         _M_head() = std::move(__in._M_head());
+         _M_head() = std::forward<_UHead>(__in._M_head());
          _M_tail() = std::move(__in._M_tail());
          return *this;
        }
+
+    protected:
+      void
+      _M_swap(_Tuple_impl& __in)
+      noexcept(noexcept(swap(std::declval<_Head&>(),
+                            std::declval<_Head&>()))
+              && noexcept(__in._M_tail()._M_swap(__in._M_tail())))
+      {
+       using std::swap;
+       swap(this->_M_head(), __in._M_head());
+       _Inherited::_M_swap(__in._M_tail());
+      }
     };
 
   /// tuple
@@ -212,37 +351,79 @@ namespace std
       typedef _Tuple_impl<0, _Elements...> _Inherited;
 
     public:
-      tuple()
+      constexpr tuple()
       : _Inherited() { }
 
       explicit
-      tuple(const _Elements&... __elements)
+      constexpr tuple(const _Elements&... __elements)
       : _Inherited(__elements...) { }
 
-      template<typename... _UElements>
+      template<typename... _UElements, typename = typename
+              std::enable_if<sizeof...(_UElements)
+                             == sizeof...(_Elements)>::type>
         explicit
         tuple(_UElements&&... __elements)
        : _Inherited(std::forward<_UElements>(__elements)...) { }
 
-      tuple(const tuple& __in)
-      : _Inherited(static_cast<const _Inherited&>(__in)) { }
+      constexpr tuple(const tuple&) = default;
+      tuple(tuple&&) = default;
 
-      tuple(tuple&& __in)
-      : _Inherited(std::move<_Inherited>(__in)) { }
-
-      template<typename... _UElements>
+      template<typename... _UElements, typename = typename
+              std::enable_if<sizeof...(_UElements)
+                             == sizeof...(_Elements)>::type>
         tuple(const tuple<_UElements...>& __in)
-       : _Inherited(static_cast<const _Tuple_impl<0, _UElements...>&>(__in))
-       { }
+        : _Inherited(static_cast<const _Tuple_impl<0, _UElements...>&>(__in))
+        { }
 
-      template<typename... _UElements>
+      template<typename... _UElements, typename = typename
+              std::enable_if<sizeof...(_UElements)
+                             == sizeof...(_Elements)>::type>
         tuple(tuple<_UElements...>&& __in)
-       : _Inherited(std::move<_Tuple_impl<0, _UElements...> >(__in)) { }
+        : _Inherited(static_cast<_Tuple_impl<0, _UElements...>&&>(__in)) { }
+
+      // allocator-extended constructors
+
+      template<typename _Alloc>
+       tuple(allocator_arg_t __tag, const _Alloc& __a)
+       : _Inherited(__tag, __a) { }
+
+      template<typename _Alloc>
+       tuple(allocator_arg_t __tag, const _Alloc& __a,
+             const _Elements&... __elements)
+       : _Inherited(__tag, __a, __elements...) { }
+
+      template<typename _Alloc, typename... _UElements, typename = typename
+              std::enable_if<sizeof...(_UElements)
+                             == sizeof...(_Elements)>::type>
+       tuple(allocator_arg_t __tag, const _Alloc& __a,
+             _UElements&&... __elements)
+       : _Inherited(__tag, __a, std::forward<_UElements>(__elements)...)
+               { }
+
+      template<typename _Alloc>
+       tuple(allocator_arg_t __tag, const _Alloc& __a, const tuple& __in)
+       : _Inherited(__tag, __a, static_cast<const _Inherited&>(__in)) { }
+
+      template<typename _Alloc>
+       tuple(allocator_arg_t __tag, const _Alloc& __a, tuple&& __in)
+       : _Inherited(__tag, __a, static_cast<_Inherited&&>(__in)) { }
+
+      template<typename _Alloc, typename... _UElements, typename = typename
+              std::enable_if<sizeof...(_UElements)
+                             == sizeof...(_Elements)>::type>
+       tuple(allocator_arg_t __tag, const _Alloc& __a,
+             const tuple<_UElements...>& __in)
+       : _Inherited(__tag, __a,
+                    static_cast<const _Tuple_impl<0, _UElements...>&>(__in))
+       { }
 
-      // XXX http://gcc.gnu.org/ml/libstdc++/2008-02/msg00047.html
-      template<typename... _UElements>
-        tuple(tuple<_UElements...>& __in)
-       : _Inherited(static_cast<const _Tuple_impl<0, _UElements...>&>(__in))
+      template<typename _Alloc, typename... _UElements, typename = typename
+              std::enable_if<sizeof...(_UElements)
+                             == sizeof...(_Elements)>::type>
+       tuple(allocator_arg_t __tag, const _Alloc& __a,
+             tuple<_UElements...>&& __in)
+       : _Inherited(__tag, __a,
+                    static_cast<_Tuple_impl<0, _UElements...>&&>(__in))
        { }
 
       tuple&
@@ -254,12 +435,15 @@ namespace std
 
       tuple&
       operator=(tuple&& __in)
+      noexcept(std::is_nothrow_move_assignable<_Inherited>::value)
       {
        static_cast<_Inherited&>(*this) = std::move(__in);
        return *this;
       }
 
-      template<typename... _UElements>
+      template<typename... _UElements, typename = typename
+              std::enable_if<sizeof...(_UElements)
+                             == sizeof...(_Elements)>::type>
         tuple&
         operator=(const tuple<_UElements...>& __in)
         {
@@ -267,18 +451,28 @@ namespace std
          return *this;
        }
 
-      template<typename... _UElements>
+      template<typename... _UElements, typename = typename
+              std::enable_if<sizeof...(_UElements)
+                             == sizeof...(_Elements)>::type>
         tuple&
         operator=(tuple<_UElements...>&& __in)
         {
          static_cast<_Inherited&>(*this) = std::move(__in);
          return *this;
        }
-    };
 
+      void
+      swap(tuple& __in)
+      noexcept(noexcept(__in._M_swap(__in)))
+      { _Inherited::_M_swap(__in); }
+    };
 
   template<>  
-    class tuple<> { };
+    class tuple<>
+    {
+    public:
+      void swap(tuple&) noexcept { /* no-op */ }
+    };
 
   /// tuple (2-element), with construction and assignment from a pair.
   template<typename _T1, typename _T2>
@@ -287,11 +481,11 @@ namespace std
       typedef _Tuple_impl<0, _T1, _T2> _Inherited;
 
     public:
-      tuple()
+      constexpr tuple()
       : _Inherited() { }
 
       explicit
-      tuple(const _T1& __a1, const _T2& __a2)
+      constexpr tuple(const _T1& __a1, const _T2& __a2)
       : _Inherited(__a1, __a2) { }
 
       template<typename _U1, typename _U2>
@@ -299,11 +493,8 @@ namespace std
         tuple(_U1&& __a1, _U2&& __a2)
        : _Inherited(std::forward<_U1>(__a1), std::forward<_U2>(__a2)) { }
 
-      tuple(const tuple& __in)
-      : _Inherited(static_cast<const _Inherited&>(__in)) { }
-
-      tuple(tuple&& __in)
-      : _Inherited(std::move<_Inherited>(__in)) { }
+      constexpr tuple(const tuple&) = default;
+      tuple(tuple&&) = default;
 
       template<typename _U1, typename _U2>
         tuple(const tuple<_U1, _U2>& __in)
@@ -311,7 +502,7 @@ namespace std
 
       template<typename _U1, typename _U2>
         tuple(tuple<_U1, _U2>&& __in)
-       : _Inherited(std::move<_Tuple_impl<0, _U1, _U2> >(__in)) { }
+       : _Inherited(static_cast<_Tuple_impl<0, _U1, _U2>&&>(__in)) { }
 
       template<typename _U1, typename _U2>
         tuple(const pair<_U1, _U2>& __in)
@@ -319,7 +510,54 @@ namespace std
 
       template<typename _U1, typename _U2>
         tuple(pair<_U1, _U2>&& __in)
-       : _Inherited(std::move(__in.first), std::move(__in.second)) { }
+       : _Inherited(std::forward<_U1>(__in.first),
+                    std::forward<_U2>(__in.second)) { }
+
+      // allocator-extended constructors
+
+      template<typename _Alloc>
+       tuple(allocator_arg_t __tag, const _Alloc& __a)
+       : _Inherited(__tag, __a) { }
+
+      template<typename _Alloc>
+       tuple(allocator_arg_t __tag, const _Alloc& __a,
+             const _T1& __a1, const _T2& __a2)
+       : _Inherited(__tag, __a, __a1, __a2) { }
+
+      template<typename _Alloc, typename _U1, typename _U2>
+       tuple(allocator_arg_t __tag, const _Alloc& __a, _U1&& __a1, _U2&& __a2)
+       : _Inherited(__tag, __a, std::forward<_U1>(__a1),
+                    std::forward<_U2>(__a2)) { }
+
+      template<typename _Alloc>
+       tuple(allocator_arg_t __tag, const _Alloc& __a, const tuple& __in)
+       : _Inherited(__tag, __a, static_cast<const _Inherited&>(__in)) { }
+
+      template<typename _Alloc>
+       tuple(allocator_arg_t __tag, const _Alloc& __a, tuple&& __in)
+       : _Inherited(__tag, __a, static_cast<_Inherited&&>(__in)) { }
+
+      template<typename _Alloc, typename _U1, typename _U2>
+       tuple(allocator_arg_t __tag, const _Alloc& __a,
+             const tuple<_U1, _U2>& __in)
+       : _Inherited(__tag, __a,
+                    static_cast<const _Tuple_impl<0, _U1, _U2>&>(__in))
+       { }
+
+      template<typename _Alloc, typename _U1, typename _U2>
+       tuple(allocator_arg_t __tag, const _Alloc& __a, tuple<_U1, _U2>&& __in)
+       : _Inherited(__tag, __a, static_cast<_Tuple_impl<0, _U1, _U2>&&>(__in))
+       { }
+
+      template<typename _Alloc, typename _U1, typename _U2>
+        tuple(allocator_arg_t __tag, const _Alloc& __a,
+             const pair<_U1, _U2>& __in)
+       : _Inherited(__tag, __a, __in.first, __in.second) { }
+
+      template<typename _Alloc, typename _U1, typename _U2>
+        tuple(allocator_arg_t __tag, const _Alloc& __a, pair<_U1, _U2>&& __in)
+       : _Inherited(__tag, __a, std::forward<_U1>(__in.first),
+                    std::forward<_U2>(__in.second)) { }
 
       tuple&
       operator=(const tuple& __in)
@@ -330,6 +568,7 @@ namespace std
 
       tuple&
       operator=(tuple&& __in)
+      noexcept(std::is_nothrow_move_assignable<_Inherited>::value)
       {
        static_cast<_Inherited&>(*this) = std::move(__in);
        return *this;
@@ -364,22 +603,127 @@ namespace std
         tuple&
         operator=(pair<_U1, _U2>&& __in)
         {
-         this->_M_head() = std::move(__in.first);
-         this->_M_tail()._M_head() = std::move(__in.second);
+         this->_M_head() = std::forward<_U1>(__in.first);
+         this->_M_tail()._M_head() = std::forward<_U2>(__in.second);
+         return *this;
+       }
+
+      void
+      swap(tuple& __in)
+      noexcept(noexcept(__in._M_swap(__in)))
+      { _Inherited::_M_swap(__in); }
+    };
+
+  /// tuple (1-element).
+  template<typename _T1>
+    class tuple<_T1> : public _Tuple_impl<0, _T1>
+    {
+      typedef _Tuple_impl<0, _T1> _Inherited;
+
+    public:
+      constexpr tuple()
+      : _Inherited() { }
+
+      explicit
+      constexpr tuple(const _T1& __a1)
+      : _Inherited(__a1) { }
+
+      template<typename _U1, typename = typename
+              std::enable_if<std::is_constructible<_T1, _U1&&>::value>::type>
+        explicit
+        tuple(_U1&& __a1)
+       : _Inherited(std::forward<_U1>(__a1)) { }
+
+      constexpr tuple(const tuple&) = default;
+      tuple(tuple&&) = default;
+
+      template<typename _U1>
+        tuple(const tuple<_U1>& __in)
+       : _Inherited(static_cast<const _Tuple_impl<0, _U1>&>(__in)) { }
+
+      template<typename _U1>
+        tuple(tuple<_U1>&& __in)
+       : _Inherited(static_cast<_Tuple_impl<0, _U1>&&>(__in)) { }
+
+      // allocator-extended constructors
+
+      template<typename _Alloc>
+       tuple(allocator_arg_t __tag, const _Alloc& __a)
+       : _Inherited(__tag, __a) { }
+
+      template<typename _Alloc>
+       tuple(allocator_arg_t __tag, const _Alloc& __a, const _T1& __a1)
+       : _Inherited(__tag, __a, __a1) { }
+
+      // TODO: constrain for is_uses_allocator_constructible<_T1, _U1&&, _Alloc>
+      template<typename _Alloc, typename _U1>
+       tuple(allocator_arg_t __tag, const _Alloc& __a, _U1&& __a1)
+       : _Inherited(__tag, __a, std::forward<_U1>(__a1)) { }
+
+      template<typename _Alloc>
+       tuple(allocator_arg_t __tag, const _Alloc& __a, const tuple& __in)
+       : _Inherited(__tag, __a, static_cast<const _Inherited&>(__in)) { }
+
+      template<typename _Alloc>
+       tuple(allocator_arg_t __tag, const _Alloc& __a, tuple&& __in)
+       : _Inherited(__tag, __a, static_cast<_Inherited&&>(__in)) { }
+
+      template<typename _Alloc, typename _U1>
+       tuple(allocator_arg_t __tag, const _Alloc& __a, const tuple<_U1>& __in)
+       : _Inherited(__tag, __a, static_cast<const _Tuple_impl<0, _U1>&>(__in))
+               { }
+
+      template<typename _Alloc, typename _U1>
+       tuple(allocator_arg_t __tag, const _Alloc& __a, tuple<_U1>&& __in)
+       : _Inherited(__tag, __a, static_cast<_Tuple_impl<0, _U1>&&>(__in)) { }
+
+      tuple&
+      operator=(const tuple& __in)
+      {
+       static_cast<_Inherited&>(*this) = __in;
+       return *this;
+      }
+
+      tuple&
+      operator=(tuple&& __in)
+      noexcept(std::is_nothrow_move_assignable<_Inherited>::value)
+      {
+       static_cast<_Inherited&>(*this) = std::move(__in);
+       return *this;
+      }
+
+      template<typename _U1>
+        tuple&
+        operator=(const tuple<_U1>& __in)
+        {
+         static_cast<_Inherited&>(*this) = __in;
+         return *this;
+       }
+
+      template<typename _U1>
+        tuple&
+        operator=(tuple<_U1>&& __in)
+        {
+         static_cast<_Inherited&>(*this) = std::move(__in);
          return *this;
        }
+
+      void
+      swap(tuple& __in)
+      noexcept(noexcept(__in._M_swap(__in)))
+      { _Inherited::_M_swap(__in); }
     };
 
 
   /// Gives the type of the ith element of a given tuple type.
-  template<int __i, typename _Tp>
+  template<std::size_t __i, typename _Tp>
     struct tuple_element;
 
   /**
    * Recursive case for tuple_element: strip off the first element in
    * the tuple and retrieve the (i-1)th element of the remaining tuple.
    */
-  template<int __i, typename _Head, typename... _Tail>
+  template<std::size_t __i, typename _Head, typename... _Tail>
     struct tuple_element<__i, tuple<_Head, _Tail...> >
     : tuple_element<__i - 1, tuple<_Tail...> > { };
 
@@ -392,69 +736,112 @@ namespace std
       typedef _Head type;
     };
 
+  template<std::size_t __i, typename _Tp>
+    struct tuple_element<__i, const _Tp>
+    {
+      typedef typename
+      add_const<typename tuple_element<__i, _Tp>::type>::type type;
+    };
+
+  template<std::size_t __i, typename _Tp>
+    struct tuple_element<__i, volatile _Tp>
+    {
+      typedef typename
+      add_volatile<typename tuple_element<__i, _Tp>::type>::type type;
+    };
+
+  template<std::size_t __i, typename _Tp>
+    struct tuple_element<__i, const volatile _Tp>
+    {
+      typedef typename
+      add_cv<typename tuple_element<__i, _Tp>::type>::type type;
+    };
+
   /// Finds the size of a given tuple type.
   template<typename _Tp>
     struct tuple_size;
 
-  /// class tuple_size
-  template<typename... _Elements>
-    struct tuple_size<tuple<_Elements...> >
-    {
-      static const int value = sizeof...(_Elements);
-    };
+  template<typename _Tp>
+    struct tuple_size<const _Tp>
+    : public integral_constant<
+             typename remove_cv<decltype(tuple_size<_Tp>::value)>::type,
+             tuple_size<_Tp>::value> { };
+
+  template<typename _Tp>
+    struct tuple_size<volatile _Tp>
+    : public integral_constant<
+             typename remove_cv<decltype(tuple_size<_Tp>::value)>::type,
+             tuple_size<_Tp>::value> { };
+
+  template<typename _Tp>
+    struct tuple_size<const volatile _Tp>
+    : public integral_constant<
+             typename remove_cv<decltype(tuple_size<_Tp>::value)>::type,
+             tuple_size<_Tp>::value> { };
 
+  /// class tuple_size
   template<typename... _Elements>
-    const int tuple_size<tuple<_Elements...> >::value;
+    struct tuple_size<tuple<_Elements...>>
+    : public integral_constant<std::size_t, sizeof...(_Elements)> { };
 
-  template<int __i, typename _Head, typename... _Tail>
+  template<std::size_t __i, typename _Head, typename... _Tail>
     inline typename __add_ref<_Head>::type
-    __get_helper(_Tuple_impl<__i, _Head, _Tail...>& __t)
+    __get_helper(_Tuple_impl<__i, _Head, _Tail...>& __t) noexcept
     { return __t._M_head(); }
 
-  template<int __i, typename _Head, typename... _Tail>
+  template<std::size_t __i, typename _Head, typename... _Tail>
     inline typename __add_c_ref<_Head>::type
-    __get_helper(const _Tuple_impl<__i, _Head, _Tail...>& __t)
+    __get_helper(const _Tuple_impl<__i, _Head, _Tail...>& __t) noexcept
     { return __t._M_head(); }
 
-  // Return a reference (const reference) to the ith element of a tuple.
-  // Any const or non-const ref elements are returned with their original type.
-  template<int __i, typename... _Elements>
+  // Return a reference (const reference, rvalue reference) to the ith element
+  // of a tuple.  Any const or non-const ref elements are returned with their
+  // original type.
+  template<std::size_t __i, typename... _Elements>
     inline typename __add_ref<
-                      typename tuple_element<__i, tuple<_Elements...> >::type
+                      typename tuple_element<__i, tuple<_Elements...>>::type
                     >::type
-    get(tuple<_Elements...>& __t)
+    get(tuple<_Elements...>& __t) noexcept
     { return __get_helper<__i>(__t); }
 
-  template<int __i, typename... _Elements>
+  template<std::size_t __i, typename... _Elements>
     inline typename __add_c_ref<
-                      typename tuple_element<__i, tuple<_Elements...> >::type
+                      typename tuple_element<__i, tuple<_Elements...>>::type
                     >::type
-    get(const tuple<_Elements...>& __t)
+    get(const tuple<_Elements...>& __t) noexcept
     { return __get_helper<__i>(__t); }
 
+  template<std::size_t __i, typename... _Elements>
+    inline typename __add_r_ref<
+                      typename tuple_element<__i, tuple<_Elements...>>::type
+                    >::type
+    get(tuple<_Elements...>&& __t) noexcept
+    { return std::forward<typename tuple_element<__i,
+       tuple<_Elements...>>::type&&>(get<__i>(__t)); }
+
   // This class helps construct the various comparison operations on tuples
-  template<int __check_equal_size, int __i, int __j,
+  template<std::size_t __check_equal_size, std::size_t __i, std::size_t __j,
           typename _Tp, typename _Up>
     struct __tuple_compare;
 
-  template<int __i, int __j, typename _Tp, typename _Up>
+  template<std::size_t __i, std::size_t __j, typename _Tp, typename _Up>
     struct __tuple_compare<0, __i, __j, _Tp, _Up>
     {
       static bool __eq(const _Tp& __t, const _Up& __u)
       {
        return (get<__i>(__t) == get<__i>(__u) &&
-               __tuple_compare<0, __i+1, __j, _Tp, _Up>::__eq(__t, __u));
+               __tuple_compare<0, __i + 1, __j, _Tp, _Up>::__eq(__t, __u));
       }
      
       static bool __less(const _Tp& __t, const _Up& __u)
       {
        return ((get<__i>(__t) < get<__i>(__u))
                || !(get<__i>(__u) < get<__i>(__t)) &&
-               __tuple_compare<0, __i+1, __j, _Tp, _Up>::__less(__t, __u));
+               __tuple_compare<0, __i + 1, __j, _Tp, _Up>::__less(__t, __u));
       }
     };
 
-  template<int __i, typename _Tp, typename _Up>
+  template<std::size_t __i, typename _Tp, typename _Up>
     struct __tuple_compare<0, __i, __i, _Tp, _Up>
     {
       static bool __eq(const _Tp&, const _Up&)
@@ -520,12 +907,18 @@ namespace std
       return __result_type(std::forward<_Elements>(__args)...);
     }
 
-  template<int...> struct __index_holder { };    
+  template<typename... _Elements>
+    inline tuple<_Elements&&...>
+    forward_as_tuple(_Elements&&... __args) noexcept
+    { return tuple<_Elements&&...>(std::forward<_Elements>(__args)...); }
+
+  template<std::size_t...> struct __index_holder { };    
 
-  template<int __i, typename _IdxHolder, typename... _Elements>
+  template<std::size_t __i, typename _IdxHolder, typename... _Elements>
     struct __index_holder_impl;
 
-  template<int __i, int... _Indexes, typename _IdxHolder, typename... _Elements>
+  template<std::size_t __i, std::size_t... _Indexes, typename _IdxHolder,
+          typename... _Elements>
     struct __index_holder_impl<__i, __index_holder<_Indexes...>,
                               _IdxHolder, _Elements...> 
     {
@@ -534,7 +927,7 @@ namespace std
                                           _Elements...>::type type;
     };
  
-  template<int __i, int... _Indexes>
+  template<std::size_t __i, std::size_t... _Indexes>
     struct __index_holder_impl<__i, __index_holder<_Indexes...> >
     { typedef __index_holder<_Indexes...> type; };
 
@@ -542,8 +935,8 @@ namespace std
     struct __make_index_holder 
     : __index_holder_impl<0, __index_holder<>, _Elements...> { };
     
-  template<typename... _TElements, int... _TIdx,
-          typename... _UElements, int... _UIdx> 
+  template<typename... _TElements, std::size_t... _TIdx,
+          typename... _UElements, std::size_t... _UIdx> 
     inline tuple<_TElements..., _UElements...> 
     __tuple_cat_helper(const tuple<_TElements...>& __t,
                       const __index_holder<_TIdx...>&,
@@ -552,40 +945,41 @@ namespace std
     { return tuple<_TElements..., _UElements...>(get<_TIdx>(__t)...,
                                                 get<_UIdx>(__u)...); }
 
-  template<typename... _TElements, int... _TIdx,
-          typename... _UElements, int... _UIdx> 
+  template<typename... _TElements, std::size_t... _TIdx,
+          typename... _UElements, std::size_t... _UIdx> 
     inline tuple<_TElements..., _UElements...> 
     __tuple_cat_helper(tuple<_TElements...>&& __t,
                       const __index_holder<_TIdx...>&, 
                       const tuple<_UElements...>& __u,
                       const __index_holder<_UIdx...>&)
     { return tuple<_TElements..., _UElements...>
-       (std::move(get<_TIdx>(__t))..., get<_UIdx>(__u)...); }
+       (std::forward<_TElements>(get<_TIdx>(__t))..., get<_UIdx>(__u)...); }
 
-  template<typename... _TElements, int... _TIdx,
-          typename... _UElements, int... _UIdx>
+  template<typename... _TElements, std::size_t... _TIdx,
+          typename... _UElements, std::size_t... _UIdx>
     inline tuple<_TElements..., _UElements...> 
     __tuple_cat_helper(const tuple<_TElements...>& __t,
                       const __index_holder<_TIdx...>&, 
                       tuple<_UElements...>&& __u,
                       const __index_holder<_UIdx...>&)
     { return tuple<_TElements..., _UElements...>
-       (get<_TIdx>(__t)..., std::move(get<_UIdx>(__u))...); }
+       (get<_TIdx>(__t)..., std::forward<_UElements>(get<_UIdx>(__u))...); }
 
-  template<typename... _TElements, int... _TIdx,
-          typename... _UElements, int... _UIdx> 
+  template<typename... _TElements, std::size_t... _TIdx,
+          typename... _UElements, std::size_t... _UIdx> 
     inline tuple<_TElements..., _UElements...> 
     __tuple_cat_helper(tuple<_TElements...>&& __t,
                       const __index_holder<_TIdx...>&, 
                       tuple<_UElements...>&& __u,
                       const __index_holder<_UIdx...>&)
     { return tuple<_TElements..., _UElements...>
-       (std::move(get<_TIdx>(__t))..., std::move(get<_UIdx>(__u))...); }
+       (std::forward<_TElements>(get<_TIdx>(__t))...,
+        std::forward<_UElements>(get<_UIdx>(__u))...); }
 
   template<typename... _TElements, typename... _UElements>
     inline tuple<_TElements..., _UElements...> 
     tuple_cat(const tuple<_TElements...>& __t, const tuple<_UElements...>& __u)
-    { 
+    {
       return __tuple_cat_helper(__t, typename
                                __make_index_holder<_TElements...>::type(),
                                __u, typename
@@ -624,24 +1018,77 @@ namespace std
 
   template<typename... _Elements>
     inline tuple<_Elements&...>
-    tie(_Elements&... __args)
+    tie(_Elements&... __args) noexcept
     { return tuple<_Elements&...>(__args...); }
 
+  template<typename... _Elements>
+    inline void 
+    swap(tuple<_Elements...>& __x, tuple<_Elements...>& __y)
+    noexcept(noexcept(__x.swap(__y)))
+    { __x.swap(__y); }
+
   // A class (and instance) which can be used in 'tie' when an element
   // of a tuple is not required
   struct _Swallow_assign
   {
     template<class _Tp>
-      _Swallow_assign&
-      operator=(const _Tp&)
+      const _Swallow_assign&
+      operator=(const _Tp&) const
       { return *this; }
   };
 
-  // TODO: Put this in some kind of shared file.
-  namespace
-  {
-    _Swallow_assign ignore;
-  }; // anonymous namespace
-}
+  const _Swallow_assign ignore{};
+
+  /// Partial specialization for tuples
+  template<typename... _Types, typename _Alloc>
+    struct uses_allocator<tuple<_Types...>, _Alloc> : true_type { };
+
+  /**
+   * Stores a tuple of indices. Used by bind() to extract the elements
+   * in a tuple. 
+   */
+  template<int... _Indexes>
+    struct _Index_tuple
+    {
+      typedef _Index_tuple<_Indexes..., sizeof...(_Indexes)> __next;
+    };
+
+  /// Builds an _Index_tuple<0, 1, 2, ..., _Num-1>.
+  template<std::size_t _Num>
+    struct _Build_index_tuple
+    {
+      typedef typename _Build_index_tuple<_Num-1>::__type::__next __type;
+    };
+
+  template<>
+    struct _Build_index_tuple<0>
+    {
+      typedef _Index_tuple<> __type;
+    };
+
+  // See stl_pair.h...
+  template<class _T1, class _T2>
+    template<typename _Tp, typename... _Args>
+      inline _Tp
+      pair<_T1, _T2>::
+      __cons(tuple<_Args...>&& __tuple)
+      {
+       typedef typename _Build_index_tuple<sizeof...(_Args)>::__type
+         _Indexes;
+       return __do_cons<_Tp>(std::move(__tuple), _Indexes());
+      }
+
+  template<class _T1, class _T2>
+    template<typename _Tp, typename... _Args, int... _Indexes>
+      inline _Tp
+      pair<_T1, _T2>::
+      __do_cons(tuple<_Args...>&& __tuple,
+               const _Index_tuple<_Indexes...>&)
+      { return _Tp(std::forward<_Args>(get<_Indexes>(__tuple))...); }
+
+_GLIBCXX_END_NAMESPACE_VERSION
+} // namespace
+
+#endif // __GXX_EXPERIMENTAL_CXX0X__
 
 #endif // _GLIBCXX_TUPLE