OSDN Git Service

2010-02-04 Benjamin Kosnik <bkoz@redhat.com>
[pf3gnuchains/gcc-fork.git] / libstdc++-v3 / include / tr1 / functional
index 897d487..7bc0d5e 100644 (file)
@@ -1,11 +1,12 @@
 // TR1 functional header -*- C++ -*-
 
-// Copyright (C) 2004, 2005, 2006, 2007 Free Software Foundation, Inc.
+// Copyright (C) 2004, 2005, 2006, 2007, 2009, 2010
+// 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 tr1/functional
  *  This is a TR1 C++ Library header.
  */
 
-#ifndef _TR1_FUNCTIONAL
-#define _TR1_FUNCTIONAL 1
+#ifndef _GLIBCXX_TR1_FUNCTIONAL
+#define _GLIBCXX_TR1_FUNCTIONAL 1
 
 #pragma GCC system_header
 
-#include <cstdlib>              // for std::abort
-#include <cmath>                // for std::frexp
-#include <string>               // for std::tr1::hash
-#include <functional>
+#include <bits/c++config.h>
+#include <bits/stl_function.h>
+
 #include <typeinfo>
+#include <new>
 #include <tr1/tuple>
 #include <tr1/type_traits>
+#include <bits/stringfwd.h>
+#include <tr1/functional_hash.h>
 #include <ext/type_traits.h>
 
 namespace std
 {
-_GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
-
+namespace tr1
+{
   template<typename _MemberPointer>
     class _Mem_fn;
 
   /**
-   *  @if maint
    *  Actual implementation of _Has_result_type, which uses SFINAE to
    *  determine if the type _Tp has a publicly-accessible member type
    *  result_type.
-   *  @endif
   */
   template<typename _Tp>
     class _Has_result_type_helper : __sfinae_types
     {
       template<typename _Up>
-      struct _Wrap_type
-      { };
+        struct _Wrap_type
+       { };
 
       template<typename _Up>
         static __one __test(_Wrap_type<typename _Up::result_type>*);
@@ -78,16 +74,14 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
 
   template<typename _Tp>
     struct _Has_result_type
-       : integral_constant<
-           bool,
-           _Has_result_type_helper<typename remove_cv<_Tp>::type>::value>
+    : integral_constant<bool,
+             _Has_result_type_helper<typename remove_cv<_Tp>::type>::value>
     { };
 
   /**
-   *  @if maint
-   *  If we have found a result_type, extract it.
-   *  @endif
+   *  
   */
+  /// If we have found a result_type, extract it.
   template<bool _Has_result_type, typename _Functor>
     struct _Maybe_get_result_type
     { };
@@ -99,10 +93,8 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
     };
 
   /**
-   *  @if maint
    *  Base class for any function object that has a weak result type, as
    *  defined in 3.3/3 of TR1.
-   *  @endif
   */
   template<typename _Functor>
     struct _Weak_result_type_impl
@@ -110,77 +102,49 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
     {
     };
 
-  /**
-   * @if maint
-   * Retrieve the result type for a function type.
-   * @endif 
-   */
+  /// Retrieve the result type for a function type.
   template<typename _Res, typename... _ArgTypes> 
     struct _Weak_result_type_impl<_Res(_ArgTypes...)>
     {
       typedef _Res result_type;
     };
 
-  /**
-   * @if maint
-   * Retrieve the result type for a function reference.
-   * @endif 
-   */
+  /// Retrieve the result type for a function reference.
   template<typename _Res, typename... _ArgTypes> 
     struct _Weak_result_type_impl<_Res(&)(_ArgTypes...)>
     {
       typedef _Res result_type;
     };
 
-  /**
-   * @if maint
-   * Retrieve the result type for a function pointer.
-   * @endif 
-   */
+  /// Retrieve the result type for a function pointer.
   template<typename _Res, typename... _ArgTypes> 
     struct _Weak_result_type_impl<_Res(*)(_ArgTypes...)>
     {
       typedef _Res result_type;
     };
 
-  /**
-   * @if maint
-   * Retrieve result type for a member function pointer.
-   * @endif maint
-   */ 
+  /// Retrieve result type for a member function pointer. 
   template<typename _Res, typename _Class, typename... _ArgTypes> 
     struct _Weak_result_type_impl<_Res (_Class::*)(_ArgTypes...)>
     {
       typedef _Res result_type;
     };
 
-  /**
-   * @if maint
-   * Retrieve result type for a const member function pointer.
-   * @endif maint
-   */ 
+  /// Retrieve result type for a const member function pointer. 
   template<typename _Res, typename _Class, typename... _ArgTypes> 
     struct _Weak_result_type_impl<_Res (_Class::*)(_ArgTypes...) const>
     {
       typedef _Res result_type;
     };
 
-  /**
-   * @if maint
-   * Retrieve result type for a volatile member function pointer.
-   * @endif maint
-   */ 
+  /// Retrieve result type for a volatile member function pointer. 
   template<typename _Res, typename _Class, typename... _ArgTypes> 
     struct _Weak_result_type_impl<_Res (_Class::*)(_ArgTypes...) volatile>
     {
       typedef _Res result_type;
     };
 
-  /**
-   * @if maint
-   * Retrieve result type for a const volatile member function pointer.
-   * @endif maint
-   */ 
+  /// Retrieve result type for a const volatile member function pointer. 
   template<typename _Res, typename _Class, typename... _ArgTypes> 
     struct _Weak_result_type_impl<_Res (_Class::*)(_ArgTypes...)const volatile>
     {
@@ -188,10 +152,8 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
     };
 
   /**
-   *  @if maint
    *  Strip top-level cv-qualifiers from the function object and let
    *  _Weak_result_type_impl perform the real work.
-   *  @endif
   */
   template<typename _Functor>
     struct _Weak_result_type
@@ -203,12 +165,10 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
     class result_of;
 
   /**
-   *  @if maint
    *  Actual implementation of result_of. When _Has_result_type is
    *  true, gets its result from _Weak_result_type. Otherwise, uses
    *  the function object's member template result to extract the
    *  result type.
-   *  @endif
   */
   template<bool _Has_result_type, typename _Signature>
     struct _Result_of_impl;
@@ -222,24 +182,18 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
     };
 
   /**
-   * @if maint
    * Determine whether we can determine a result type from @c Functor 
    * alone.
-   * @endif
    */ 
   template<typename _Functor, typename... _ArgTypes>
     class result_of<_Functor(_ArgTypes...)>
-      : public _Result_of_impl<
-                 _Has_result_type<_Weak_result_type<_Functor> >::value,
-                 _Functor(_ArgTypes...)>
+    : public _Result_of_impl<
+               _Has_result_type<_Weak_result_type<_Functor> >::value,
+               _Functor(_ArgTypes...)>
     {
     };
 
-  /**
-   * @if maint
-   * We already know the result type for @c Functor; use it.
-   * @endif
-   */
+  /// We already know the result type for @c Functor; use it.
   template<typename _Functor, typename... _ArgTypes>
     struct _Result_of_impl<true, _Functor(_ArgTypes...)>
     {
@@ -247,10 +201,8 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
     };
 
   /**
-   * @if maint
    * We need to compute the result type for this invocation the hard 
    * way.
-   * @endif
    */
   template<typename _Functor, typename... _ArgTypes>
     struct _Result_of_impl<false, _Functor(_ArgTypes...)>
@@ -260,10 +212,8 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
     };
 
   /**
-   * @if maint
    * It is unsafe to access ::result when there are zero arguments, so we 
    * return @c void instead.
-   * @endif
    */
   template<typename _Functor>
     struct _Result_of_impl<false, _Functor()>
@@ -271,11 +221,7 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
       typedef void type;
     };
 
-  /**
-   *  @if maint
-   *  Determines if the type _Tp derives from unary_function.
-   *  @endif
-  */
+  /// Determines if the type _Tp derives from unary_function.
   template<typename _Tp>
     struct _Derives_from_unary_function : __sfinae_types
     {
@@ -291,11 +237,7 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
       static const bool value = sizeof(__test((_Tp*)0)) == 1;
     };
 
-  /**
-   *  @if maint
-   *  Determines if the type _Tp derives from binary_function.
-   *  @endif
-  */
+  /// Determines if the type _Tp derives from binary_function.
   template<typename _Tp>
     struct _Derives_from_binary_function : __sfinae_types
     {
@@ -311,11 +253,7 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
       static const bool value = sizeof(__test((_Tp*)0)) == 1;
     };
 
-  /**
-   *  @if maint
-   *  Turns a function type into a function pointer type
-   *  @endif
-  */
+  /// Turns a function type into a function pointer type
   template<typename _Tp, bool _IsFunctionType = is_function<_Tp>::value>
     struct _Function_to_function_pointer
     {
@@ -329,19 +267,17 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
     };
 
   /**
-   * @if maint
    * Invoke a function object, which may be either a member pointer or a
    * function object. The first parameter will tell which.
-   * @endif
    */
   template<typename _Functor, typename... _Args>
     inline
     typename __gnu_cxx::__enable_if<
-               (!is_member_pointer<_Functor>::value
-                && !is_function<_Functor>::value
-                && !is_function<typename remove_pointer<_Functor>::type>::value),
-               typename result_of<_Functor(_Args...)>::type
-             >::__type
+             (!is_member_pointer<_Functor>::value
+              && !is_function<_Functor>::value
+              && !is_function<typename remove_pointer<_Functor>::type>::value),
+             typename result_of<_Functor(_Args...)>::type
+           >::__type
     __invoke(_Functor& __f, _Args&... __args)
     {
       return __f(__args...);
@@ -350,11 +286,11 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
   template<typename _Functor, typename... _Args>
     inline
     typename __gnu_cxx::__enable_if<
-               (is_member_pointer<_Functor>::value
-                && !is_function<_Functor>::value
-                && !is_function<typename remove_pointer<_Functor>::type>::value),
-               typename result_of<_Functor(_Args...)>::type
-             >::__type
+             (is_member_pointer<_Functor>::value
+              && !is_function<_Functor>::value
+              && !is_function<typename remove_pointer<_Functor>::type>::value),
+             typename result_of<_Functor(_Args...)>::type
+           >::__type
     __invoke(_Functor& __f, _Args&... __args)
     {
       return mem_fn(__f)(__args...);
@@ -364,26 +300,24 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
   template<typename _Functor, typename... _Args>
     inline
     typename __gnu_cxx::__enable_if<
-               (is_pointer<_Functor>::value
-                && is_function<typename remove_pointer<_Functor>::type>::value),
-               typename result_of<_Functor(_Args...)>::type
-             >::__type
+             (is_pointer<_Functor>::value
+              && is_function<typename remove_pointer<_Functor>::type>::value),
+             typename result_of<_Functor(_Args...)>::type
+           >::__type
     __invoke(_Functor __f, _Args&... __args)
     {
       return __f(__args...);
     }
 
   /**
-   *  @if maint
    *  Knowing which of unary_function and binary_function _Tp derives
    *  from, derives from the same and ensures that reference_wrapper
    *  will have a weak result type. See cases below.
-   *  @endif
    */
   template<bool _Unary, bool _Binary, typename _Tp>
     struct _Reference_wrapper_base_impl;
 
-  // Not a unary_function or binary_function, so try a weak result type
+  // Not a unary_function or binary_function, so try a weak result type.
   template<typename _Tp>
     struct _Reference_wrapper_base_impl<false, false, _Tp>
     : _Weak_result_type<_Tp>
@@ -404,7 +338,7 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
                      typename _Tp::result_type>
     { };
 
-  // both unary_function and binary_function. import result_type to
+  // Both unary_function and binary_function. Import result_type to
   // avoid conflicts.
    template<typename _Tp>
     struct _Reference_wrapper_base_impl<true, true, _Tp>
@@ -418,12 +352,10 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
     };
 
   /**
-   *  @if maint
    *  Derives from unary_function or binary_function when it
    *  can. Specializations handle all of the easy cases. The primary
    *  template determines what to do with a class type, which may
    *  derive from both unary_function and binary_function.
-   *  @endif
   */
   template<typename _Tp>
     struct _Reference_wrapper_base
@@ -505,9 +437,10 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
     : binary_function<const volatile _T1*, _T2, _Res>
     { };
 
+  /// reference_wrapper
   template<typename _Tp>
     class reference_wrapper
-      : public _Reference_wrapper_base<typename remove_cv<_Tp>::type>
+    : public _Reference_wrapper_base<typename remove_cv<_Tp>::type>
     {
       // If _Tp is a function type, we can't form result_of<_Tp(...)>,
       // so turn it into a function pointer type.
@@ -517,7 +450,9 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
       _Tp* _M_data;
     public:
       typedef _Tp type;
-      explicit reference_wrapper(_Tp& __indata): _M_data(&__indata)
+
+      explicit
+      reference_wrapper(_Tp& __indata): _M_data(&__indata)
       { }
 
       reference_wrapper(const reference_wrapper<_Tp>& __inref):
@@ -539,11 +474,11 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
       { return *_M_data; }
 
       template<typename... _Args>
-      typename result_of<_M_func_type(_Args...)>::type
-      operator()(_Args&... __args) const
-      {
-        return __invoke(get(), __args...);
-      }
+        typename result_of<_M_func_type(_Args...)>::type
+        operator()(_Args&... __args) const
+        {
+         return __invoke(get(), __args...);
+       }
     };
 
 
@@ -569,54 +504,40 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
     cref(reference_wrapper<_Tp> __t)
     { return cref(__t.get()); }
 
-   template<typename _Tp, bool>
-     struct _Mem_fn_const_or_non
-     {
-       typedef const _Tp& type;
-     };
+  template<typename _Tp, bool>
+    struct _Mem_fn_const_or_non
+    {
+      typedef const _Tp& type;
+    };
 
-    template<typename _Tp>
-      struct _Mem_fn_const_or_non<_Tp, false>
-      {
-        typedef _Tp& type;
-      };
+  template<typename _Tp>
+    struct _Mem_fn_const_or_non<_Tp, false>
+    {
+      typedef _Tp& type;
+    };
 
   /**
-   * @if maint
    * Derives from @c unary_function or @c binary_function, or perhaps
    * nothing, depending on the number of arguments provided. The
    * primary template is the basis case, which derives nothing.
-   * @endif maint
    */
-   template<typename _Res, typename... _ArgTypes> 
-     struct _Maybe_unary_or_binary_function { };
+  template<typename _Res, typename... _ArgTypes> 
+    struct _Maybe_unary_or_binary_function { };
 
-  /**
-   * @if maint
-   * Derives from @c unary_function, as appropriate.
-   * @endif
-   */ 
-   template<typename _Res, typename _T1> 
-     struct _Maybe_unary_or_binary_function<_Res, _T1>
-      : std::unary_function<_T1, _Res> { };
+  /// Derives from @c unary_function, as appropriate. 
+  template<typename _Res, typename _T1> 
+    struct _Maybe_unary_or_binary_function<_Res, _T1>
+    : std::unary_function<_T1, _Res> { };
 
-  /**
-   * @if maint
-   * Derives from @c binary_function, as appropriate.
-   * @endif
-   */ 
-   template<typename _Res, typename _T1, typename _T2> 
-     struct _Maybe_unary_or_binary_function<_Res, _T1, _T2>
-      : std::binary_function<_T1, _T2, _Res> { };
+  /// Derives from @c binary_function, as appropriate. 
+  template<typename _Res, typename _T1, typename _T2> 
+    struct _Maybe_unary_or_binary_function<_Res, _T1, _T2>
+    : std::binary_function<_T1, _T2, _Res> { };
 
-  /**
-   * @if maint
-   * Implementation of @c mem_fn for member function pointers.
-   * @endif
-   */
+  /// Implementation of @c mem_fn for member function pointers.
   template<typename _Res, typename _Class, typename... _ArgTypes>
     class _Mem_fn<_Res (_Class::*)(_ArgTypes...)>
-      : public _Maybe_unary_or_binary_function<_Res, _Class*, _ArgTypes...>
+    : public _Maybe_unary_or_binary_function<_Res, _Class*, _ArgTypes...>
     {
       typedef _Res (_Class::*_Functor)(_ArgTypes...);
 
@@ -637,31 +558,30 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
       explicit _Mem_fn(_Functor __pmf) : __pmf(__pmf) { }
 
       // Handle objects
-      _Res operator()(_Class& __object, _ArgTypes... __args) const
+      _Res
+      operator()(_Class& __object, _ArgTypes... __args) const
       { return (__object.*__pmf)(__args...); }
 
       // Handle pointers
-      _Res operator()(_Class* __object, _ArgTypes... __args) const
+      _Res
+      operator()(_Class* __object, _ArgTypes... __args) const
       { return (__object->*__pmf)(__args...); }
 
       // Handle smart pointers, references and pointers to derived
       template<typename _Tp>
-        _Res operator()(_Tp& __object, _ArgTypes... __args) const
+        _Res
+       operator()(_Tp& __object, _ArgTypes... __args) const
         { return _M_call(__object, &__object, __args...); }
 
     private:
       _Functor __pmf;
     };
 
-  /**
-   * @if maint
-   * Implementation of @c mem_fn for const member function pointers.
-   * @endif
-   */
+  /// Implementation of @c mem_fn for const member function pointers.
   template<typename _Res, typename _Class, typename... _ArgTypes>
     class _Mem_fn<_Res (_Class::*)(_ArgTypes...) const>
-      : public _Maybe_unary_or_binary_function<_Res, const _Class*, 
-                                               _ArgTypes...>
+    : public _Maybe_unary_or_binary_function<_Res, const _Class*, 
+                                            _ArgTypes...>
     {
       typedef _Res (_Class::*_Functor)(_ArgTypes...) const;
 
@@ -682,11 +602,13 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
       explicit _Mem_fn(_Functor __pmf) : __pmf(__pmf) { }
 
       // Handle objects
-      _Res operator()(const _Class& __object, _ArgTypes... __args) const
+      _Res
+      operator()(const _Class& __object, _ArgTypes... __args) const
       { return (__object.*__pmf)(__args...); }
 
       // Handle pointers
-      _Res operator()(const _Class* __object, _ArgTypes... __args) const
+      _Res
+      operator()(const _Class* __object, _ArgTypes... __args) const
       { return (__object->*__pmf)(__args...); }
 
       // Handle smart pointers, references and pointers to derived
@@ -698,15 +620,11 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
       _Functor __pmf;
     };
 
-  /**
-   * @if maint
-   * Implementation of @c mem_fn for volatile member function pointers.
-   * @endif
-   */
+  /// Implementation of @c mem_fn for volatile member function pointers.
   template<typename _Res, typename _Class, typename... _ArgTypes>
     class _Mem_fn<_Res (_Class::*)(_ArgTypes...) volatile>
-      : public _Maybe_unary_or_binary_function<_Res, volatile _Class*, 
-                                               _ArgTypes...>
+    : public _Maybe_unary_or_binary_function<_Res, volatile _Class*, 
+                                            _ArgTypes...>
     {
       typedef _Res (_Class::*_Functor)(_ArgTypes...) volatile;
 
@@ -727,31 +645,30 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
       explicit _Mem_fn(_Functor __pmf) : __pmf(__pmf) { }
 
       // Handle objects
-      _Res operator()(volatile _Class& __object, _ArgTypes... __args) const
+      _Res
+      operator()(volatile _Class& __object, _ArgTypes... __args) const
       { return (__object.*__pmf)(__args...); }
 
       // Handle pointers
-      _Res operator()(volatile _Class* __object, _ArgTypes... __args) const
+      _Res
+      operator()(volatile _Class* __object, _ArgTypes... __args) const
       { return (__object->*__pmf)(__args...); }
 
       // Handle smart pointers, references and pointers to derived
       template<typename _Tp>
-        _Res operator()(_Tp& __object, _ArgTypes... __args) const
+        _Res
+       operator()(_Tp& __object, _ArgTypes... __args) const
         { return _M_call(__object, &__object, __args...); }
 
     private:
       _Functor __pmf;
     };
 
-  /**
-   * @if maint
-   * Implementation of @c mem_fn for const volatile member function pointers.
-   * @endif
-   */
+  /// Implementation of @c mem_fn for const volatile member function pointers.
   template<typename _Res, typename _Class, typename... _ArgTypes>
     class _Mem_fn<_Res (_Class::*)(_ArgTypes...) const volatile>
-      : public _Maybe_unary_or_binary_function<_Res, const volatile _Class*, 
-                                               _ArgTypes...>
+    : public _Maybe_unary_or_binary_function<_Res, const volatile _Class*, 
+                                            _ArgTypes...>
     {
       typedef _Res (_Class::*_Functor)(_ArgTypes...) const volatile;
 
@@ -792,94 +709,97 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
 
 
   template<typename _Res, typename _Class>
-  class _Mem_fn<_Res _Class::*>
-  {
-    // This bit of genius is due to Peter Dimov, improved slightly by
-    // Douglas Gregor.
-    template<typename _Tp>
-      _Res&
-      _M_call(_Tp& __object, _Class *) const
-      { return __object.*__pm; }
+    class _Mem_fn<_Res _Class::*>
+    {
+      // This bit of genius is due to Peter Dimov, improved slightly by
+      // Douglas Gregor.
+      template<typename _Tp>
+        _Res&
+        _M_call(_Tp& __object, _Class *) const
+        { return __object.*__pm; }
 
-    template<typename _Tp, typename _Up>
-      _Res&
-      _M_call(_Tp& __object, _Up * const *) const
-      { return (*__object).*__pm; }
+      template<typename _Tp, typename _Up>
+        _Res&
+        _M_call(_Tp& __object, _Up * const *) const
+        { return (*__object).*__pm; }
 
-    template<typename _Tp, typename _Up>
-      const _Res&
-      _M_call(_Tp& __object, const _Up * const *) const
-      { return (*__object).*__pm; }
+      template<typename _Tp, typename _Up>
+        const _Res&
+        _M_call(_Tp& __object, const _Up * const *) const
+        { return (*__object).*__pm; }
 
-    template<typename _Tp>
-      const _Res&
-      _M_call(_Tp& __object, const _Class *) const
-      { return __object.*__pm; }
+      template<typename _Tp>
+        const _Res&
+        _M_call(_Tp& __object, const _Class *) const
+        { return __object.*__pm; }
 
-    template<typename _Tp>
-      const _Res&
-      _M_call(_Tp& __ptr, const volatile void*) const
-      { return (*__ptr).*__pm; }
+      template<typename _Tp>
+        const _Res&
+        _M_call(_Tp& __ptr, const volatile void*) const
+        { return (*__ptr).*__pm; }
 
-    template<typename _Tp> static _Tp& __get_ref();
+      template<typename _Tp> static _Tp& __get_ref();
 
-    template<typename _Tp>
-      static __sfinae_types::__one __check_const(_Tp&, _Class*);
-    template<typename _Tp, typename _Up>
-      static __sfinae_types::__one __check_const(_Tp&, _Up * const *);
-    template<typename _Tp, typename _Up>
-      static __sfinae_types::__two __check_const(_Tp&, const _Up * const *);
-    template<typename _Tp>
-      static __sfinae_types::__two __check_const(_Tp&, const _Class*);
-    template<typename _Tp>
-      static __sfinae_types::__two __check_const(_Tp&, const volatile void*);
+      template<typename _Tp>
+        static __sfinae_types::__one __check_const(_Tp&, _Class*);
+      template<typename _Tp, typename _Up>
+        static __sfinae_types::__one __check_const(_Tp&, _Up * const *);
+      template<typename _Tp, typename _Up>
+        static __sfinae_types::__two __check_const(_Tp&, const _Up * const *);
+      template<typename _Tp>
+        static __sfinae_types::__two __check_const(_Tp&, const _Class*);
+      template<typename _Tp>
+        static __sfinae_types::__two __check_const(_Tp&, const volatile void*);
 
-  public:
-    template<typename _Tp>
-      struct _Result_type
-      : _Mem_fn_const_or_non<
-        _Res,
-        (sizeof(__sfinae_types::__two)
-        == sizeof(__check_const<_Tp>(__get_ref<_Tp>(), (_Tp*)0)))>
-      { };
+    public:
+      template<typename _Tp>
+        struct _Result_type
+       : _Mem_fn_const_or_non<_Res,
+         (sizeof(__sfinae_types::__two)
+          == sizeof(__check_const<_Tp>(__get_ref<_Tp>(), (_Tp*)0)))>
+        { };
 
-    template<typename _Signature>
-      struct result;
+      template<typename _Signature>
+        struct result;
 
-    template<typename _CVMem, typename _Tp>
-      struct result<_CVMem(_Tp)>
-      : public _Result_type<_Tp> { };
+      template<typename _CVMem, typename _Tp>
+        struct result<_CVMem(_Tp)>
+       : public _Result_type<_Tp> { };
 
-    template<typename _CVMem, typename _Tp>
-      struct result<_CVMem(_Tp&)>
-      : public _Result_type<_Tp> { };
+      template<typename _CVMem, typename _Tp>
+        struct result<_CVMem(_Tp&)>
+       : public _Result_type<_Tp> { };
 
-    explicit _Mem_fn(_Res _Class::*__pm) : __pm(__pm) { }
+      explicit
+      _Mem_fn(_Res _Class::*__pm) : __pm(__pm) { }
 
-    // Handle objects
-    _Res&       operator()(_Class& __object)       const
-    { return __object.*__pm; }
+      // Handle objects
+      _Res&
+      operator()(_Class& __object) const
+      { return __object.*__pm; }
 
-    const _Res& operator()(const _Class& __object) const
-    { return __object.*__pm; }
+      const _Res&
+      operator()(const _Class& __object) const
+      { return __object.*__pm; }
 
-    // Handle pointers
-    _Res&       operator()(_Class* __object)       const
-    { return __object->*__pm; }
+      // Handle pointers
+      _Res&
+      operator()(_Class* __object) const
+      { return __object->*__pm; }
 
-    const _Res&
-    operator()(const _Class* __object) const
-    { return __object->*__pm; }
+      const _Res&
+      operator()(const _Class* __object) const
+      { return __object->*__pm; }
 
-    // Handle smart pointers and derived
-    template<typename _Tp>
-      typename _Result_type<_Tp>::type
-      operator()(_Tp& __unknown) const
-      { return _M_call(__unknown, &__unknown); }
+      // Handle smart pointers and derived
+      template<typename _Tp>
+        typename _Result_type<_Tp>::type
+        operator()(_Tp& __unknown) const
+        { return _M_call(__unknown, &__unknown); }
 
-  private:
-    _Res _Class::*__pm;
-  };
+    private:
+      _Res _Class::*__pm;
+    };
 
   /**
    *  @brief Returns a function object that forwards to the member
@@ -915,53 +835,55 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
   template<typename _Tp>
     const int is_placeholder<_Tp>::value;
 
-  /**
-   *  @if maint
-   *  The type of placeholder objects defined by libstdc++.
-   *  @endif
-   */
+  /// The type of placeholder objects defined by libstdc++.
   template<int _Num> struct _Placeholder { };
 
-  // Define a large number of placeholders. There is no way to
-  // simplify this with variadic templates, because we're introducing
-  // unique names for each.
-  namespace placeholders { namespace {
-    _Placeholder<1> _1;
-    _Placeholder<2> _2;
-    _Placeholder<3> _3;
-    _Placeholder<4> _4;
-    _Placeholder<5> _5;
-    _Placeholder<6> _6;
-    _Placeholder<7> _7;
-    _Placeholder<8> _8;
-    _Placeholder<9> _9;
-    _Placeholder<10> _10;
-    _Placeholder<11> _11;
-    _Placeholder<12> _12;
-    _Placeholder<13> _13;
-    _Placeholder<14> _14;
-    _Placeholder<15> _15;
-    _Placeholder<16> _16;
-    _Placeholder<17> _17;
-    _Placeholder<18> _18;
-    _Placeholder<19> _19;
-    _Placeholder<20> _20;
-    _Placeholder<21> _21;
-    _Placeholder<22> _22;
-    _Placeholder<23> _23;
-    _Placeholder<24> _24;
-    _Placeholder<25> _25;
-    _Placeholder<26> _26;
-    _Placeholder<27> _27;
-    _Placeholder<28> _28;
-    _Placeholder<29> _29;
-  } }
+  /** @namespace std::placeholders
+   *  @brief ISO C++ 0x entities sub namespace for functional.
+   *
+   *  Define a large number of placeholders. There is no way to
+   *  simplify this with variadic templates, because we're introducing
+   *  unique names for each.
+   */
+  namespace placeholders 
+  { 
+    namespace 
+    {
+      _Placeholder<1> _1;
+      _Placeholder<2> _2;
+      _Placeholder<3> _3;
+      _Placeholder<4> _4;
+      _Placeholder<5> _5;
+      _Placeholder<6> _6;
+      _Placeholder<7> _7;
+      _Placeholder<8> _8;
+      _Placeholder<9> _9;
+      _Placeholder<10> _10;
+      _Placeholder<11> _11;
+      _Placeholder<12> _12;
+      _Placeholder<13> _13;
+      _Placeholder<14> _14;
+      _Placeholder<15> _15;
+      _Placeholder<16> _16;
+      _Placeholder<17> _17;
+      _Placeholder<18> _18;
+      _Placeholder<19> _19;
+      _Placeholder<20> _20;
+      _Placeholder<21> _21;
+      _Placeholder<22> _22;
+      _Placeholder<23> _23;
+      _Placeholder<24> _24;
+      _Placeholder<25> _25;
+      _Placeholder<26> _26;
+      _Placeholder<27> _27;
+      _Placeholder<28> _28;
+      _Placeholder<29> _29;
+    } 
+  }
 
   /**
-   *  @if maint
    *  Partial specialization of is_placeholder that provides the placeholder
    *  number for the placeholder objects defined by libstdc++.
-   *  @endif
    */
   template<int _Num>
     struct is_placeholder<_Placeholder<_Num> >
@@ -971,60 +893,48 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
     const int is_placeholder<_Placeholder<_Num> >::value;
 
   /**
-   * @if maint
    * Stores a tuple of indices. Used by bind() to extract the elements
    * in a tuple. 
-   * @endif
    */
-  template<int... Indexes>
+  template<int... _Indexes>
     struct _Index_tuple { };
 
-  /**
-   *  @if maint
-   *  Builds an _Index_tuple<0, 1, 2, ..., _Num-1>.
-   *  @endif
-   */
+  /// Builds an _Index_tuple<0, 1, 2, ..., _Num-1>.
   template<std::size_t _Num, typename _Tuple = _Index_tuple<> >
-  struct _Build_index_tuple;
+    struct _Build_index_tuple;
  
   template<std::size_t _Num, int... _Indexes> 
-  struct _Build_index_tuple<_Num, _Index_tuple<_Indexes...> >
+    struct _Build_index_tuple<_Num, _Index_tuple<_Indexes...> >
     : _Build_index_tuple<_Num - 1, 
                          _Index_tuple<_Indexes..., sizeof...(_Indexes)> >
-  {
-  };
+    {
+    };
 
   template<int... _Indexes>
-  struct _Build_index_tuple<0, _Index_tuple<_Indexes...> >
-  {
-    typedef _Index_tuple<_Indexes...> __type;
-  };
+    struct _Build_index_tuple<0, _Index_tuple<_Indexes...> >
+    {
+      typedef _Index_tuple<_Indexes...> __type;
+    };
 
   /** 
-   * @if maint
    * Used by _Safe_tuple_element to indicate that there is no tuple
    * element at this position.
-   * @endif
    */
   struct _No_tuple_element;
 
   /**
-   * @if maint
    * Implementation helper for _Safe_tuple_element. This primary
    * template handles the case where it is safe to use @c
    * tuple_element.
-   * @endif
    */
   template<int __i, typename _Tuple, bool _IsSafe>
     struct _Safe_tuple_element_impl
-      : tuple_element<__i, _Tuple> { };
+    : tuple_element<__i, _Tuple> { };
 
   /**
-   * @if maint
    * Implementation helper for _Safe_tuple_element. This partial
    * specialization handles the case where it is not safe to use @c
    * tuple_element. We just return @c _No_tuple_element.
-   * @endif
    */
   template<int __i, typename _Tuple>
     struct _Safe_tuple_element_impl<__i, _Tuple, false>
@@ -1038,23 +948,21 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
    */
  template<int __i, typename _Tuple>
    struct _Safe_tuple_element
-     : _Safe_tuple_element_impl<__i, _Tuple, 
-                                (__i >= 0 && __i < tuple_size<_Tuple>::value)>
+   : _Safe_tuple_element_impl<__i, _Tuple, 
+                              (__i >= 0 && __i < tuple_size<_Tuple>::value)>
    {
    };
 
   /**
-   *  @if maint
    *  Maps an argument to bind() into an actual argument to the bound
    *  function object [TR1 3.6.3/5]. Only the first parameter should
    *  be specified: the rest are used to determine among the various
    *  implementations. Note that, although this class is a function
-   *  object, isn't not entirely normal because it takes only two
+   *  object, it isn't entirely normal because it takes only two
    *  parameters regardless of the number of parameters passed to the
    *  bind expression. The first parameter is the bound argument and
    *  the second parameter is a tuple containing references to the
    *  rest of the arguments.
-   *  @endif
    */
   template<typename _Arg,
            bool _IsBindExp = is_bind_expression<_Arg>::value,
@@ -1062,10 +970,8 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
     class _Mu;
 
   /**
-   *  @if maint
    *  If the argument is reference_wrapper<_Tp>, returns the
    *  underlying reference. [TR1 3.6.3/5 bullet 1]
-   *  @endif
    */
   template<typename _Tp>
     class _Mu<reference_wrapper<_Tp>, false, false>
@@ -1078,17 +984,15 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
        * but not volatile-qualified. This might be a defect in the TR.
        */
       template<typename _CVRef, typename _Tuple>
-      result_type
-      operator()(_CVRef& __arg, const _Tuple&) const volatile
-      { return __arg.get(); }
+        result_type
+        operator()(_CVRef& __arg, const _Tuple&) const volatile
+        { return __arg.get(); }
     };
 
   /**
-   *  @if maint
    *  If the argument is a bind expression, we invoke the underlying
    *  function object with the same cv-qualifiers as we are given and
    *  pass along all of our arguments (unwrapped). [TR1 3.6.3/5 bullet 2]
-   *  @endif
    */
   template<typename _Arg>
     class _Mu<_Arg, true, false>
@@ -1100,37 +1004,36 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
       // involves passing along the cv-qualifiers placed on _Mu and
       // unwrapping the argument bundle.
       template<typename _CVMu, typename _CVArg, typename... _Args>
-      class result<_CVMu(_CVArg, tuple<_Args...>)>
-        : public result_of<_CVArg(_Args...)> { };
+        class result<_CVMu(_CVArg, tuple<_Args...>)>
+       : public result_of<_CVArg(_Args...)> { };
 
       template<typename _CVArg, typename... _Args>
-      typename result_of<_CVArg(_Args...)>::type
-      operator()(_CVArg& __arg, const tuple<_Args...>& __tuple)
-        const volatile
-      {
-        // Construct an index tuple and forward to __call
-        typedef typename _Build_index_tuple<sizeof...(_Args)>::__type _Indexes;
-        return this->__call(__arg, __tuple, _Indexes());
-      }     
+        typename result_of<_CVArg(_Args...)>::type
+        operator()(_CVArg& __arg,
+                  const tuple<_Args...>& __tuple) const volatile
+        {
+         // Construct an index tuple and forward to __call
+         typedef typename _Build_index_tuple<sizeof...(_Args)>::__type
+           _Indexes;
+         return this->__call(__arg, __tuple, _Indexes());
+       }
 
     private:
       // Invokes the underlying function object __arg by unpacking all
       // of the arguments in the tuple. 
       template<typename _CVArg, typename... _Args, int... _Indexes>
-      typename result_of<_CVArg(_Args...)>::type
-      __call(_CVArg& __arg, const tuple<_Args...>& __tuple,
-             const _Index_tuple<_Indexes...>&) const volatile
-      {
-        return __arg(_GLIBCXX_TR1::get<_Indexes>(__tuple)...);
-      }
+        typename result_of<_CVArg(_Args...)>::type
+        __call(_CVArg& __arg, const tuple<_Args...>& __tuple,
+              const _Index_tuple<_Indexes...>&) const volatile
+        {
+         return __arg(tr1::get<_Indexes>(__tuple)...);
+       }
     };
 
   /**
-   *  @if maint
    *  If the argument is a placeholder for the Nth argument, returns
    *  a reference to the Nth argument to the bind function object.
    *  [TR1 3.6.3/5 bullet 3]
-   *  @endif
    */
   template<typename _Arg>
     class _Mu<_Arg, false, true>
@@ -1139,32 +1042,31 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
       template<typename _Signature> class result;
 
       template<typename _CVMu, typename _CVArg, typename _Tuple>
-      class result<_CVMu(_CVArg, _Tuple)>
-      {
-        // Add a reference, if it hasn't already been done for us.
-        // This allows us to be a little bit sloppy in constructing
-        // the tuple that we pass to result_of<...>.
-        typedef typename _Safe_tuple_element<(is_placeholder<_Arg>::value - 1),
-                                             _Tuple>::type __base_type;
+        class result<_CVMu(_CVArg, _Tuple)>
+        {
+         // Add a reference, if it hasn't already been done for us.
+         // This allows us to be a little bit sloppy in constructing
+         // the tuple that we pass to result_of<...>.
+         typedef typename _Safe_tuple_element<(is_placeholder<_Arg>::value
+                                               - 1), _Tuple>::type
+           __base_type;
 
-      public:
-        typedef typename add_reference<__base_type>::type type;
-      };
+       public:
+         typedef typename add_reference<__base_type>::type type;
+       };
 
       template<typename _Tuple>
-      typename result<_Mu(_Arg, _Tuple)>::type
-      operator()(const volatile _Arg&, const _Tuple& __tuple) const volatile
-      {
-        return ::std::_GLIBCXX_TR1::get<(is_placeholder<_Arg>::value - 1)>(__tuple);
-      }
+        typename result<_Mu(_Arg, _Tuple)>::type
+        operator()(const volatile _Arg&, const _Tuple& __tuple) const volatile
+        {
+         return ::std::tr1::get<(is_placeholder<_Arg>::value - 1)>(__tuple);
+       }
     };
 
   /**
-   *  @if maint
    *  If the argument is just a value, returns a reference to that
    *  value. The cv-qualifiers on the reference are the same as the
    *  cv-qualifiers on the _Mu object. [TR1 3.6.3/5 bullet 4]
-   *  @endif
    */
   template<typename _Arg>
     class _Mu<_Arg, false, false>
@@ -1173,56 +1075,55 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
       template<typename _Signature> struct result;
 
       template<typename _CVMu, typename _CVArg, typename _Tuple>
-      struct result<_CVMu(_CVArg, _Tuple)>
-      {
-        typedef typename add_reference<_CVArg>::type type;
-      };
+        struct result<_CVMu(_CVArg, _Tuple)>
+        {
+         typedef typename add_reference<_CVArg>::type type;
+       };
 
       // Pick up the cv-qualifiers of the argument
       template<typename _CVArg, typename _Tuple>
-      _CVArg& operator()(_CVArg& __arg, const _Tuple&) const volatile
-      { return __arg; }
+        _CVArg&
+        operator()(_CVArg& __arg, const _Tuple&) const volatile
+        { return __arg; }
     };
 
   /**
-   *  @if maint
    *  Maps member pointers into instances of _Mem_fn but leaves all
    *  other function objects untouched. Used by tr1::bind(). The
    *  primary template handles the non--member-pointer case.
-   *  @endif
    */
   template<typename _Tp>
     struct _Maybe_wrap_member_pointer
     {
       typedef _Tp type;
-      static const _Tp& __do_wrap(const _Tp& __x) { return __x; }
+      
+      static const _Tp&
+      __do_wrap(const _Tp& __x)
+      { return __x; }
     };
 
   /**
-   *  @if maint
    *  Maps member pointers into instances of _Mem_fn but leaves all
    *  other function objects untouched. Used by tr1::bind(). This
    *  partial specialization handles the member pointer case.
-   *  @endif
    */
   template<typename _Tp, typename _Class>
     struct _Maybe_wrap_member_pointer<_Tp _Class::*>
     {
       typedef _Mem_fn<_Tp _Class::*> type;
-      static type __do_wrap(_Tp _Class::* __pm) { return type(__pm); }
+      
+      static type
+      __do_wrap(_Tp _Class::* __pm)
+      { return type(__pm); }
     };
 
-  /**
-   *  @if maint
-   *  Type of the function object returned from bind().
-   *  @endif
-   */
+  /// Type of the function object returned from bind().
   template<typename _Signature>
     struct _Bind;
 
    template<typename _Functor, typename... _Bound_args>
     class _Bind<_Functor(_Bound_args...)>
-      : public _Weak_result_type<_Functor>
+    : public _Weak_result_type<_Functor>
     {
       typedef _Bind __self_type;
       typedef typename _Build_index_tuple<sizeof...(_Bound_args)>::__type 
@@ -1240,7 +1141,7 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
         __call(const tuple<_Args...>& __args, _Index_tuple<_Indexes...>)
         {
           return _M_f(_Mu<_Bound_args>()
-                      (_GLIBCXX_TR1::get<_Indexes>(_M_bound_args), __args)...);
+                      (tr1::get<_Indexes>(_M_bound_args), __args)...);
         }
 
       // Call as const
@@ -1252,7 +1153,7 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
         __call(const tuple<_Args...>& __args, _Index_tuple<_Indexes...>) const
         {
           return _M_f(_Mu<_Bound_args>()
-                      (_GLIBCXX_TR1::get<_Indexes>(_M_bound_args), __args)...);
+                      (tr1::get<_Indexes>(_M_bound_args), __args)...);
         }
 
       // Call as volatile
@@ -1265,7 +1166,7 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
                _Index_tuple<_Indexes...>) volatile
         {
           return _M_f(_Mu<_Bound_args>()
-                      (_GLIBCXX_TR1::get<_Indexes>(_M_bound_args), __args)...);
+                      (tr1::get<_Indexes>(_M_bound_args), __args)...);
         }
 
       // Call as const volatile
@@ -1279,7 +1180,7 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
                _Index_tuple<_Indexes...>) const volatile
         {
           return _M_f(_Mu<_Bound_args>()
-                      (_GLIBCXX_TR1::get<_Indexes>(_M_bound_args), __args)...);
+                      (tr1::get<_Indexes>(_M_bound_args), __args)...);
         }
 
      public:
@@ -1294,7 +1195,7 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
                  >::type
         operator()(_Args&... __args)
         {
-          return this->__call(_GLIBCXX_TR1::tie(__args...), _Bound_indexes());
+          return this->__call(tr1::tie(__args...), _Bound_indexes());
         }
 
       // Call as const
@@ -1305,7 +1206,7 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
                  >::type
         operator()(_Args&... __args) const
         {
-          return this->__call(_GLIBCXX_TR1::tie(__args...), _Bound_indexes());
+          return this->__call(tr1::tie(__args...), _Bound_indexes());
         }
 
 
@@ -1317,7 +1218,7 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
                  >::type
         operator()(_Args&... __args) volatile
         {
-          return this->__call(_GLIBCXX_TR1::tie(__args...), _Bound_indexes());
+          return this->__call(tr1::tie(__args...), _Bound_indexes());
         }
 
 
@@ -1330,15 +1231,11 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
                  >::type
         operator()(_Args&... __args) const volatile
         {
-          return this->__call(_GLIBCXX_TR1::tie(__args...), _Bound_indexes());
+          return this->__call(tr1::tie(__args...), _Bound_indexes());
         }
     };
 
-  /**
-   *  @if maint
-   *  Type of the function object returned from bind<R>().
-   *  @endif
-   */
+  /// Type of the function object returned from bind<R>().
   template<typename _Result, typename _Signature>
     struct _Bind_result;
 
@@ -1358,7 +1255,7 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
         __call(const tuple<_Args...>& __args, _Index_tuple<_Indexes...>)
         {
           return _M_f(_Mu<_Bound_args>()
-                      (_GLIBCXX_TR1::get<_Indexes>(_M_bound_args), __args)...);
+                      (tr1::get<_Indexes>(_M_bound_args), __args)...);
         }
 
       // Call as const
@@ -1367,7 +1264,7 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
         __call(const tuple<_Args...>& __args, _Index_tuple<_Indexes...>) const
         {
           return _M_f(_Mu<_Bound_args>()
-                      (_GLIBCXX_TR1::get<_Indexes>(_M_bound_args), __args)...);
+                      (tr1::get<_Indexes>(_M_bound_args), __args)...);
         }
 
       // Call as volatile
@@ -1377,7 +1274,7 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
                _Index_tuple<_Indexes...>) volatile
         {
           return _M_f(_Mu<_Bound_args>()
-                      (_GLIBCXX_TR1::get<_Indexes>(_M_bound_args), __args)...);
+                      (tr1::get<_Indexes>(_M_bound_args), __args)...);
         }
 
       // Call as const volatile
@@ -1387,21 +1284,22 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
                _Index_tuple<_Indexes...>) const volatile
         {
           return _M_f(_Mu<_Bound_args>()
-                      (_GLIBCXX_TR1::get<_Indexes>(_M_bound_args), __args)...);
+                      (tr1::get<_Indexes>(_M_bound_args), __args)...);
         }
 
-     public:
+    public:
       typedef _Result result_type;
 
-      explicit _Bind_result(_Functor __f, _Bound_args... __bound_args)
-        : _M_f(__f), _M_bound_args(__bound_args...) { }
+      explicit
+      _Bind_result(_Functor __f, _Bound_args... __bound_args)
+      : _M_f(__f), _M_bound_args(__bound_args...) { }
 
       // Call unqualified
       template<typename... _Args>
         result_type
         operator()(_Args&... __args)
         {
-          return this->__call(_GLIBCXX_TR1::tie(__args...), _Bound_indexes());
+          return this->__call(tr1::tie(__args...), _Bound_indexes());
         }
 
       // Call as const
@@ -1409,51 +1307,43 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
         result_type
         operator()(_Args&... __args) const
         {
-          return this->__call(_GLIBCXX_TR1::tie(__args...), _Bound_indexes());
+          return this->__call(tr1::tie(__args...), _Bound_indexes());
         }
 
-
       // Call as volatile
       template<typename... _Args>
         result_type
         operator()(_Args&... __args) volatile
         {
-          return this->__call(_GLIBCXX_TR1::tie(__args...), _Bound_indexes());
+          return this->__call(tr1::tie(__args...), _Bound_indexes());
         }
 
-
       // Call as const volatile
       template<typename... _Args>
         result_type
         operator()(_Args&... __args) const volatile
         {
-          return this->__call(_GLIBCXX_TR1::tie(__args...), _Bound_indexes());
+          return this->__call(tr1::tie(__args...), _Bound_indexes());
         }
     };
 
-  /**
-   *  @if maint
-   *  Class template _Bind is always a bind expression.
-   *  @endif
-   */
+  /// Class template _Bind is always a bind expression.
   template<typename _Signature>
-     struct is_bind_expression<_Bind<_Signature> >
-     { static const bool value = true; };
+    struct is_bind_expression<_Bind<_Signature> >
+    { static const bool value = true; };
 
-   template<typename _Signature>
-     const bool is_bind_expression<_Bind<_Signature> >::value;
+  template<typename _Signature>
+    const bool is_bind_expression<_Bind<_Signature> >::value;
 
-  /**
-   *  @if maint
-   *  Class template _Bind_result is always a bind expression.
-   *  @endif
-   */
+  /// Class template _Bind_result is always a bind expression.
   template<typename _Result, typename _Signature>
     struct is_bind_expression<_Bind_result<_Result, _Signature> >
-    {
-      static const bool value = true;
-    };
+    { static const bool value = true; };
 
+  template<typename _Result, typename _Signature>
+    const bool is_bind_expression<_Bind_result<_Result, _Signature> >::value;
+
+  /// bind
   template<typename _Functor, typename... _ArgTypes>
     inline
     _Bind<typename _Maybe_wrap_member_pointer<_Functor>::type(_ArgTypes...)>
@@ -1466,44 +1356,37 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
     } 
 
   template<typename _Result, typename _Functor, typename... _ArgTypes>
-  inline
-  _Bind_result<_Result,
-               typename _Maybe_wrap_member_pointer<_Functor>::type
-                          (_ArgTypes...)>
-  bind(_Functor __f, _ArgTypes... __args)
-  {
-    typedef _Maybe_wrap_member_pointer<_Functor> __maybe_type;
-    typedef typename __maybe_type::type __functor_type;
-    typedef _Bind_result<_Result, __functor_type(_ArgTypes...)>
-      __result_type;
-    return __result_type(__maybe_type::__do_wrap(__f), __args...);
-  } 
-
-   template<typename _Result, typename _Signature>
-     const bool is_bind_expression<_Bind_result<_Result, _Signature> >::value;
+    inline
+    _Bind_result<_Result,
+                typename _Maybe_wrap_member_pointer<_Functor>::type
+                            (_ArgTypes...)>
+    bind(_Functor __f, _ArgTypes... __args)
+    {
+      typedef _Maybe_wrap_member_pointer<_Functor> __maybe_type;
+      typedef typename __maybe_type::type __functor_type;
+      typedef _Bind_result<_Result, __functor_type(_ArgTypes...)>
+       __result_type;
+      return __result_type(__maybe_type::__do_wrap(__f), __args...);
+    }
 
   /**
    *  @brief Exception class thrown when class template function's
    *  operator() is called with an empty target.
-   *
+   *  @ingroup exceptions
    */
   class bad_function_call : public std::exception { };
 
   /**
-   *  @if maint
    *  The integral constant expression 0 can be converted into a
    *  pointer to this type. It is used by the function template to
    *  accept NULL pointers.
-   *  @endif
    */
   struct _M_clear_type;
 
   /**
-   *  @if maint
-   *  Trait identifying "location-invariant" types, meaning that the
+   *  Trait identifying @a location-invariant types, meaning that the
    *  address of the object (or any of its members) will not escape.
    *  Also implies a trivial copy constructor and assignment operator.
-   *   @endif
    */
   template<typename _Tp>
     struct __is_location_invariant
@@ -1523,15 +1406,20 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
     void (_Undefined_class::*_M_member_pointer)();
   };
 
-  union _Any_data {
+  union _Any_data
+  {
     void*       _M_access()       { return &_M_pod_data[0]; }
     const void* _M_access() const { return &_M_pod_data[0]; }
 
-    template<typename _Tp> _Tp& _M_access()
-    { return *static_cast<_Tp*>(_M_access()); }
+    template<typename _Tp>
+      _Tp&
+      _M_access()
+      { return *static_cast<_Tp*>(_M_access()); }
 
-    template<typename _Tp> const _Tp& _M_access() const
-    { return *static_cast<const _Tp*>(_M_access()); }
+    template<typename _Tp>
+      const _Tp&
+      _M_access() const
+      { return *static_cast<const _Tp*>(_M_access()); }
 
     _Nocopy_types _M_unused;
     char _M_pod_data[sizeof(_Nocopy_types)];
@@ -1545,8 +1433,8 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
     __destroy_functor
   };
 
-  /* Simple type wrapper that helps avoid annoying const problems
-     when casting between void pointers and pointers-to-pointers. */
+  // Simple type wrapper that helps avoid annoying const problems
+  // when casting between void pointers and pointers-to-pointers.
   template<typename _Tp>
     struct _Simple_type_wrapper
     {
@@ -1557,14 +1445,16 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
 
   template<typename _Tp>
     struct __is_location_invariant<_Simple_type_wrapper<_Tp> >
-      : __is_location_invariant<_Tp>
+    : __is_location_invariant<_Tp>
     {
     };
 
   // Converts a reference to a function object into a callable
   // function object.
   template<typename _Functor>
-    inline _Functor& __callable_functor(_Functor& __f) { return __f; }
+    inline _Functor&
+    __callable_functor(_Functor& __f)
+    { return __f; }
 
   template<typename _Member, typename _Class>
     inline _Mem_fn<_Member _Class::*>
@@ -1579,11 +1469,7 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
   template<typename _Signature>
     class function;
 
-  /**
-   *  @if maint
-   *  Base class of all polymorphic function object wrappers.
-   *  @endif
-   */
+  /// Base class of all polymorphic function object wrappers.
   class _Function_base
   {
   public:
@@ -1591,172 +1477,162 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
     static const std::size_t _M_max_align = __alignof__(_Nocopy_types);
 
     template<typename _Functor>
-    class _Base_manager
-    {
-    protected:
-      static const bool __stored_locally =
+      class _Base_manager
+      {
+      protected:
+       static const bool __stored_locally =
         (__is_location_invariant<_Functor>::value
          && sizeof(_Functor) <= _M_max_size
          && __alignof__(_Functor) <= _M_max_align
          && (_M_max_align % __alignof__(_Functor) == 0));
-      typedef integral_constant<bool, __stored_locally> _Local_storage;
-
-      // Retrieve a pointer to the function object
-      static _Functor* _M_get_pointer(const _Any_data& __source)
-      {
-        const _Functor* __ptr =
-          __stored_locally? &__source._M_access<_Functor>()
-          /* have stored a pointer */ : __source._M_access<_Functor*>();
-        return const_cast<_Functor*>(__ptr);
-      }
-
-      // Clone a location-invariant function object that fits within
-      // an _Any_data structure.
-      static void
-      _M_clone(_Any_data& __dest, const _Any_data& __source, true_type)
-      {
-        new (__dest._M_access()) _Functor(__source._M_access<_Functor>());
-      }
-
-      // Clone a function object that is not location-invariant or
-      // that cannot fit into an _Any_data structure.
-      static void
-      _M_clone(_Any_data& __dest, const _Any_data& __source, false_type)
-      {
-        __dest._M_access<_Functor*>() =
-          new _Functor(*__source._M_access<_Functor*>());
-      }
-
-      // Destroying a location-invariant object may still require
-      // destruction.
-      static void
-      _M_destroy(_Any_data& __victim, true_type)
-      {
-        __victim._M_access<_Functor>().~_Functor();
-      }
-
-      // Destroying an object located on the heap.
-      static void
-      _M_destroy(_Any_data& __victim, false_type)
-      {
-        delete __victim._M_access<_Functor*>();
-      }
-
-    public:
-      static bool
-      _M_manager(_Any_data& __dest, const _Any_data& __source,
-                 _Manager_operation __op)
-      {
-        switch (__op) {
-        case __get_type_info:
-          __dest._M_access<const type_info*>() = &typeid(_Functor);
-          break;
-
-        case __get_functor_ptr:
-          __dest._M_access<_Functor*>() = _M_get_pointer(__source);
-          break;
-
-        case __clone_functor:
-          _M_clone(__dest, __source, _Local_storage());
-          break;
-
-        case __destroy_functor:
-          _M_destroy(__dest, _Local_storage());
-          break;
-        }
-        return false;
-      }
-
-      static void
-      _M_init_functor(_Any_data& __functor, const _Functor& __f)
-      {
-        _M_init_functor(__functor, __f, _Local_storage());
-      }
-
-      template<typename _Signature>
-      static bool
-      _M_not_empty_function(const function<_Signature>& __f)
-      {
-        return __f;
-      }
-
-      template<typename _Tp>
-      static bool
-      _M_not_empty_function(const _Tp*& __fp)
-      {
-        return __fp;
-      }
-
-      template<typename _Class, typename _Tp>
-      static bool
-      _M_not_empty_function(_Tp _Class::* const& __mp)
-      {
-        return __mp;
-      }
-
-      template<typename _Tp>
-      static bool
-      _M_not_empty_function(const _Tp&)
-      {
-        return true;
-      }
-
-    private:
-      static void
-      _M_init_functor(_Any_data& __functor, const _Functor& __f, true_type)
-      {
-        new (__functor._M_access()) _Functor(__f);
-      }
-
-      static void
-      _M_init_functor(_Any_data& __functor, const _Functor& __f, false_type)
-      {
-        __functor._M_access<_Functor*>() = new _Functor(__f);
-      }
-    };
+       
+       typedef integral_constant<bool, __stored_locally> _Local_storage;
+
+       // Retrieve a pointer to the function object
+       static _Functor*
+       _M_get_pointer(const _Any_data& __source)
+       {
+         const _Functor* __ptr =
+           __stored_locally? &__source._M_access<_Functor>()
+           /* have stored a pointer */ : __source._M_access<_Functor*>();
+         return const_cast<_Functor*>(__ptr);
+       }
+
+       // Clone a location-invariant function object that fits within
+       // an _Any_data structure.
+       static void
+       _M_clone(_Any_data& __dest, const _Any_data& __source, true_type)
+       {
+         new (__dest._M_access()) _Functor(__source._M_access<_Functor>());
+       }
+
+       // Clone a function object that is not location-invariant or
+       // that cannot fit into an _Any_data structure.
+       static void
+       _M_clone(_Any_data& __dest, const _Any_data& __source, false_type)
+       {
+         __dest._M_access<_Functor*>() =
+           new _Functor(*__source._M_access<_Functor*>());
+       }
+
+       // Destroying a location-invariant object may still require
+       // destruction.
+       static void
+       _M_destroy(_Any_data& __victim, true_type)
+       {
+         __victim._M_access<_Functor>().~_Functor();
+       }
+       
+       // Destroying an object located on the heap.
+       static void
+       _M_destroy(_Any_data& __victim, false_type)
+       {
+         delete __victim._M_access<_Functor*>();
+       }
+       
+      public:
+       static bool
+       _M_manager(_Any_data& __dest, const _Any_data& __source,
+                  _Manager_operation __op)
+       {
+         switch (__op)
+           {
+#ifdef __GXX_RTTI
+           case __get_type_info:
+             __dest._M_access<const type_info*>() = &typeid(_Functor);
+             break;
+#endif
+           case __get_functor_ptr:
+             __dest._M_access<_Functor*>() = _M_get_pointer(__source);
+             break;
+             
+           case __clone_functor:
+             _M_clone(__dest, __source, _Local_storage());
+             break;
+
+           case __destroy_functor:
+             _M_destroy(__dest, _Local_storage());
+             break;
+           }
+         return false;
+       }
+
+       static void
+       _M_init_functor(_Any_data& __functor, const _Functor& __f)
+       { _M_init_functor(__functor, __f, _Local_storage()); }
+       
+       template<typename _Signature>
+         static bool
+         _M_not_empty_function(const function<_Signature>& __f)
+          { return static_cast<bool>(__f); }
+
+       template<typename _Tp>
+         static bool
+         _M_not_empty_function(const _Tp*& __fp)
+         { return __fp; }
+
+       template<typename _Class, typename _Tp>
+         static bool
+         _M_not_empty_function(_Tp _Class::* const& __mp)
+         { return __mp; }
+
+       template<typename _Tp>
+         static bool
+         _M_not_empty_function(const _Tp&)
+         { return true; }
+
+      private:
+       static void
+       _M_init_functor(_Any_data& __functor, const _Functor& __f, true_type)
+       { new (__functor._M_access()) _Functor(__f); }
+
+       static void
+       _M_init_functor(_Any_data& __functor, const _Functor& __f, false_type)
+       { __functor._M_access<_Functor*>() = new _Functor(__f); }
+      };
 
     template<typename _Functor>
-    class _Ref_manager : public _Base_manager<_Functor*>
-    {
-      typedef _Function_base::_Base_manager<_Functor*> _Base;
-
-    public:
-      static bool
-      _M_manager(_Any_data& __dest, const _Any_data& __source,
-                 _Manager_operation __op)
+      class _Ref_manager : public _Base_manager<_Functor*>
       {
-        switch (__op) {
-        case __get_type_info:
-          __dest._M_access<const type_info*>() = &typeid(_Functor);
-          break;
-
-        case __get_functor_ptr:
-          __dest._M_access<_Functor*>() = *_Base::_M_get_pointer(__source);
-          return is_const<_Functor>::value;
-          break;
-
-        default:
-          _Base::_M_manager(__dest, __source, __op);
-        }
-        return false;
-      }
+       typedef _Function_base::_Base_manager<_Functor*> _Base;
 
-      static void
-      _M_init_functor(_Any_data& __functor, reference_wrapper<_Functor> __f)
-      {
-        // TBD: Use address_of function instead
-        _Base::_M_init_functor(__functor, &__f.get());
-      }
-    };
+    public:
+       static bool
+       _M_manager(_Any_data& __dest, const _Any_data& __source,
+                  _Manager_operation __op)
+       {
+         switch (__op)
+           {
+#ifdef __GXX_RTTI
+           case __get_type_info:
+             __dest._M_access<const type_info*>() = &typeid(_Functor);
+             break;
+#endif
+           case __get_functor_ptr:
+             __dest._M_access<_Functor*>() = *_Base::_M_get_pointer(__source);
+             return is_const<_Functor>::value;
+             break;
+             
+           default:
+             _Base::_M_manager(__dest, __source, __op);
+           }
+         return false;
+       }
+
+       static void
+       _M_init_functor(_Any_data& __functor, reference_wrapper<_Functor> __f)
+       {
+         // TBD: Use address_of function instead.
+         _Base::_M_init_functor(__functor, &__f.get());
+       }
+      };
 
     _Function_base() : _M_manager(0) { }
-
+    
     ~_Function_base()
     {
       if (_M_manager)
-        {
-          _M_manager(_M_functor, _M_functor, __destroy_functor);
-        }
+       _M_manager(_M_functor, _M_functor, __destroy_functor);
     }
 
 
@@ -1774,12 +1650,13 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
 
   template<typename _Res, typename _Functor, typename... _ArgTypes>
     class _Function_handler<_Res(_ArgTypes...), _Functor>
-      : public _Function_base::_Base_manager<_Functor>
+    : public _Function_base::_Base_manager<_Functor>
     {
       typedef _Function_base::_Base_manager<_Functor> _Base;
 
     public:
-      static _Res _M_invoke(const _Any_data& __functor, _ArgTypes... __args)
+      static _Res
+      _M_invoke(const _Any_data& __functor, _ArgTypes... __args)
       {
         return (*_Base::_M_get_pointer(__functor))(__args...);
       }
@@ -1787,12 +1664,13 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
 
   template<typename _Functor, typename... _ArgTypes>
     class _Function_handler<void(_ArgTypes...), _Functor>
-      : public _Function_base::_Base_manager<_Functor>
+    : public _Function_base::_Base_manager<_Functor>
     {
       typedef _Function_base::_Base_manager<_Functor> _Base;
 
      public:
-      static void _M_invoke(const _Any_data& __functor, _ArgTypes... __args)
+      static void
+      _M_invoke(const _Any_data& __functor, _ArgTypes... __args)
       {
         (*_Base::_M_get_pointer(__functor))(__args...);
       }
@@ -1800,12 +1678,13 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
 
   template<typename _Res, typename _Functor, typename... _ArgTypes>
     class _Function_handler<_Res(_ArgTypes...), reference_wrapper<_Functor> >
-      : public _Function_base::_Ref_manager<_Functor>
+    : public _Function_base::_Ref_manager<_Functor>
     {
       typedef _Function_base::_Ref_manager<_Functor> _Base;
 
      public:
-      static _Res _M_invoke(const _Any_data& __functor, _ArgTypes... __args)
+      static _Res
+      _M_invoke(const _Any_data& __functor, _ArgTypes... __args)
       {
         return 
           __callable_functor(**_Base::_M_get_pointer(__functor))(__args...);
@@ -1814,12 +1693,13 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
 
   template<typename _Functor, typename... _ArgTypes>
     class _Function_handler<void(_ArgTypes...), reference_wrapper<_Functor> >
-      : public _Function_base::_Ref_manager<_Functor>
+    : public _Function_base::_Ref_manager<_Functor>
     {
       typedef _Function_base::_Ref_manager<_Functor> _Base;
 
      public:
-      static void _M_invoke(const _Any_data& __functor, _ArgTypes... __args)
+      static void
+      _M_invoke(const _Any_data& __functor, _ArgTypes... __args)
       {
         __callable_functor(**_Base::_M_get_pointer(__functor))(__args...);
       }
@@ -1828,25 +1708,27 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
   template<typename _Class, typename _Member, typename _Res, 
            typename... _ArgTypes>
     class _Function_handler<_Res(_ArgTypes...), _Member _Class::*>
-      : public _Function_handler<void(_ArgTypes...), _Member _Class::*>
+    : public _Function_handler<void(_ArgTypes...), _Member _Class::*>
     {
       typedef _Function_handler<void(_ArgTypes...), _Member _Class::*>
         _Base;
 
      public:
-      static _Res _M_invoke(const _Any_data& __functor, _ArgTypes... __args)
+      static _Res
+      _M_invoke(const _Any_data& __functor, _ArgTypes... __args)
       {
-        return _GLIBCXX_TR1::mem_fn(_Base::_M_get_pointer(__functor)->__value)(__args...);
+        return tr1::
+         mem_fn(_Base::_M_get_pointer(__functor)->__value)(__args...);
       }
     };
 
   template<typename _Class, typename _Member, typename... _ArgTypes>
     class _Function_handler<void(_ArgTypes...), _Member _Class::*>
-      : public _Function_base::_Base_manager<
+    : public _Function_base::_Base_manager<
                  _Simple_type_wrapper< _Member _Class::* > >
     {
       typedef _Member _Class::* _Functor;
-      typedef _Simple_type_wrapper< _Functor > _Wrapper;
+      typedef _Simple_type_wrapper<_Functor> _Wrapper;
       typedef _Function_base::_Base_manager<_Wrapper> _Base;
 
      public:
@@ -1854,301 +1736,319 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
       _M_manager(_Any_data& __dest, const _Any_data& __source,
                  _Manager_operation __op)
       {
-        switch (__op) {
-        case __get_type_info:
-          __dest._M_access<const type_info*>() = &typeid(_Functor);
-          break;
-
-        case __get_functor_ptr:
-          __dest._M_access<_Functor*>() =
-            &_Base::_M_get_pointer(__source)->__value;
-          break;
-
-        default:
-          _Base::_M_manager(__dest, __source, __op);
-        }
+        switch (__op)
+         {
+#ifdef __GXX_RTTI
+         case __get_type_info:
+           __dest._M_access<const type_info*>() = &typeid(_Functor);
+           break;
+#endif     
+         case __get_functor_ptr:
+           __dest._M_access<_Functor*>() =
+             &_Base::_M_get_pointer(__source)->__value;
+           break;
+           
+         default:
+           _Base::_M_manager(__dest, __source, __op);
+         }
         return false;
       }
 
-      static void _M_invoke(const _Any_data& __functor, _ArgTypes... __args)
+      static void
+      _M_invoke(const _Any_data& __functor, _ArgTypes... __args)
       {
-        _GLIBCXX_TR1::mem_fn(_Base::_M_get_pointer(__functor)->__value)(__args...);
+       tr1::mem_fn(_Base::_M_get_pointer(__functor)->__value)(__args...);
       }
     };
 
+  /// class function
   template<typename _Res, typename... _ArgTypes>
-  class function<_Res(_ArgTypes...)>
+    class function<_Res(_ArgTypes...)>
     : public _Maybe_unary_or_binary_function<_Res, _ArgTypes...>,
       private _Function_base
-  {
-    /**
-     *  @if maint
-     *  This class is used to implement the safe_bool idiom.
-     *  @endif
-     */
-    struct _Hidden_type
     {
-      _Hidden_type* _M_bool;
-    };
+#ifndef __GXX_EXPERIMENTAL_CXX0X__
+      /// This class is used to implement the safe_bool idiom.
+      struct _Hidden_type
+      {
+       _Hidden_type* _M_bool;
+      };
 
-    /**
-     *  @if maint
-     *  This typedef is used to implement the safe_bool idiom.
-     *  @endif
-     */
-    typedef _Hidden_type* _Hidden_type::* _Safe_bool;
-
-    typedef _Res _Signature_type(_ArgTypes...);
-
-    struct _Useless {};
-
-   public:
-    typedef _Res result_type;
-
-    // [3.7.2.1] construct/copy/destroy
-
-    /**
-     *  @brief Default construct creates an empty function call wrapper.
-     *  @post @c !(bool)*this
-     */
-    function() : _Function_base() { }
-
-    /**
-     *  @brief Default construct creates an empty function call wrapper.
-     *  @post @c !(bool)*this
-     */
-    function(_M_clear_type*) : _Function_base() { }
-
-    /**
-     *  @brief %Function copy constructor.
-     *  @param x A %function object with identical call signature.
-     *  @pre @c (bool)*this == (bool)x
-     *
-     *  The newly-created %function contains a copy of the target of @a
-     *  x (if it has one).
-     */
-    function(const function& __x);
-
-    /**
-     *  @brief Builds a %function that targets a copy of the incoming
-     *  function object.
-     *  @param f A %function object that is callable with parameters of
-     *  type @c T1, @c T2, ..., @c TN and returns a value convertible
-     *  to @c Res.
-     *
-     *  The newly-created %function object will target a copy of @a
-     *  f. If @a f is @c reference_wrapper<F>, then this function
-     *  object will contain a reference to the function object @c
-     *  f.get(). If @a f is a NULL function pointer or NULL
-     *  pointer-to-member, the newly-created object will be empty.
-     *
-     *  If @a f is a non-NULL function pointer or an object of type @c
-     *  reference_wrapper<F>, this function will not throw.
-     */
-    template<typename _Functor>
-      function(_Functor __f,
-               typename __gnu_cxx::__enable_if<
-                         !is_integral<_Functor>::value, _Useless>::__type
-                 = _Useless());
-
-    /**
-     *  @brief %Function assignment operator.
-     *  @param x A %function with identical call signature.
-     *  @post @c (bool)*this == (bool)x
-     *  @returns @c *this
-     *
-     *  The target of @a x is copied to @c *this. If @a x has no
-     *  target, then @c *this will be empty.
-     *
-     *  If @a x targets a function pointer or a reference to a function
-     *  object, then this operation will not throw an exception.
-     */
-    function& operator=(const function& __x)
+      /// This typedef is used to implement the safe_bool idiom.
+      typedef _Hidden_type* _Hidden_type::* _Safe_bool;
+#endif
+
+      typedef _Res _Signature_type(_ArgTypes...);
+      
+      struct _Useless { };
+      
+    public:
+      typedef _Res result_type;
+      
+      // [3.7.2.1] construct/copy/destroy
+      
+      /**
+       *  @brief Default construct creates an empty function call wrapper.
+       *  @post @c !(bool)*this
+       */
+      function() : _Function_base() { }
+      
+      /**
+       *  @brief Default construct creates an empty function call wrapper.
+       *  @post @c !(bool)*this
+       */
+      function(_M_clear_type*) : _Function_base() { }
+      
+      /**
+       *  @brief %Function copy constructor.
+       *  @param x A %function object with identical call signature.
+       *  @post @c (bool)*this == (bool)x
+       *
+       *  The newly-created %function contains a copy of the target of @a
+       *  x (if it has one).
+       */
+      function(const function& __x);
+
+      /**
+       *  @brief Builds a %function that targets a copy of the incoming
+       *  function object.
+       *  @param f A %function object that is callable with parameters of
+       *  type @c T1, @c T2, ..., @c TN and returns a value convertible
+       *  to @c Res.
+       *
+       *  The newly-created %function object will target a copy of @a
+       *  f. If @a f is @c reference_wrapper<F>, then this function
+       *  object will contain a reference to the function object @c
+       *  f.get(). If @a f is a NULL function pointer or NULL
+       *  pointer-to-member, the newly-created object will be empty.
+       *
+       *  If @a f is a non-NULL function pointer or an object of type @c
+       *  reference_wrapper<F>, this function will not throw.
+       */
+      template<typename _Functor>
+        function(_Functor __f,
+                 typename __gnu_cxx::__enable_if<
+                           !is_integral<_Functor>::value, _Useless>::__type
+                   = _Useless());
+
+      /**
+       *  @brief %Function assignment operator.
+       *  @param x A %function with identical call signature.
+       *  @post @c (bool)*this == (bool)x
+       *  @returns @c *this
+       *
+       *  The target of @a x is copied to @c *this. If @a x has no
+       *  target, then @c *this will be empty.
+       *
+       *  If @a x targets a function pointer or a reference to a function
+       *  object, then this operation will not throw an %exception.
+       */
+      function&
+      operator=(const function& __x)
       {
         function(__x).swap(*this);
         return *this;
       }
 
-    /**
-     *  @brief %Function assignment to zero.
-     *  @post @c !(bool)*this
-     *  @returns @c *this
-     *
-     *  The target of @a *this is deallocated, leaving it empty.
-     */
-    function& operator=(_M_clear_type*)
+      /**
+       *  @brief %Function assignment to zero.
+       *  @post @c !(bool)*this
+       *  @returns @c *this
+       *
+       *  The target of @c *this is deallocated, leaving it empty.
+       */
+      function&
+      operator=(_M_clear_type*)
       {
-        if (_M_manager) {
-          _M_manager(_M_functor, _M_functor, __destroy_functor);
-          _M_manager = 0;
-          _M_invoker = 0;
-        }
+        if (_M_manager)
+         {
+           _M_manager(_M_functor, _M_functor, __destroy_functor);
+           _M_manager = 0;
+           _M_invoker = 0;
+         }
         return *this;
       }
 
-    /**
-     *  @brief %Function assignment to a new target.
-     *  @param f A %function object that is callable with parameters of
-     *  type @c T1, @c T2, ..., @c TN and returns a value convertible
-     *  to @c Res.
-     *  @return @c *this
-     *
-     *  This  %function object wrapper will target a copy of @a
-     *  f. If @a f is @c reference_wrapper<F>, then this function
-     *  object will contain a reference to the function object @c
-     *  f.get(). If @a f is a NULL function pointer or NULL
-     *  pointer-to-member, @c this object will be empty.
-     *
-     *  If @a f is a non-NULL function pointer or an object of type @c
-     *  reference_wrapper<F>, this function will not throw.
-     */
-    template<typename _Functor>
-      typename __gnu_cxx::__enable_if<!is_integral<_Functor>::value,
-                                      function&>::__type
-      operator=(_Functor __f)
+      /**
+       *  @brief %Function assignment to a new target.
+       *  @param f A %function object that is callable with parameters of
+       *  type @c T1, @c T2, ..., @c TN and returns a value convertible
+       *  to @c Res.
+       *  @return @c *this
+       *
+       *  This  %function object wrapper will target a copy of @a
+       *  f. If @a f is @c reference_wrapper<F>, then this function
+       *  object will contain a reference to the function object @c
+       *  f.get(). If @a f is a NULL function pointer or NULL
+       *  pointer-to-member, @c this object will be empty.
+       *
+       *  If @a f is a non-NULL function pointer or an object of type @c
+       *  reference_wrapper<F>, this function will not throw.
+       */
+      template<typename _Functor>
+        typename __gnu_cxx::__enable_if<!is_integral<_Functor>::value,
+                                       function&>::__type
+       operator=(_Functor __f)
+       {
+         function(__f).swap(*this);
+         return *this;
+       }
+
+      // [3.7.2.2] function modifiers
+      
+      /**
+       *  @brief Swap the targets of two %function objects.
+       *  @param f A %function with identical call signature.
+       *
+       *  Swap the targets of @c this function object and @a f. This
+       *  function will not throw an %exception.
+       */
+      void swap(function& __x)
       {
-        function(__f).swap(*this);
-        return *this;
+        /* We cannot perform direct assignments of the _M_functor
+          parts as they are of type _Any_data and have a different
+          dynamic type.  Doing so would violate type-based aliasing
+          rules and lead to spurious miscompilations.
+          Instead perform a bytewise exchange of the memory of
+          both POD objects.
+          ???  A wordwise exchange honoring alignment of _M_functor
+          would be more efficient.  See PR42845.  */
+       for (unsigned i = 0; i < sizeof (_M_functor._M_pod_data); ++i)
+         std::swap (_M_functor._M_pod_data[i], __x._M_functor._M_pod_data[i]);
+       _Manager_type __old_manager = _M_manager;
+       _M_manager = __x._M_manager;
+       __x._M_manager = __old_manager;
+       _Invoker_type __old_invoker = _M_invoker;
+       _M_invoker = __x._M_invoker;
+       __x._M_invoker = __old_invoker;
       }
 
-    // [3.7.2.2] function modifiers
+      // [3.7.2.3] function capacity
 
-    /**
-     *  @brief Swap the targets of two %function objects.
-     *  @param f A %function with identical call signature.
-     *
-     *  Swap the targets of @c this function object and @a f. This
-     *  function will not throw an exception.
-     */
-    void swap(function& __x)
-    {
-      _Any_data __old_functor = _M_functor;
-      _M_functor = __x._M_functor;
-      __x._M_functor = __old_functor;
-      _Manager_type __old_manager = _M_manager;
-      _M_manager = __x._M_manager;
-      __x._M_manager = __old_manager;
-      _Invoker_type __old_invoker = _M_invoker;
-      _M_invoker = __x._M_invoker;
-      __x._M_invoker = __old_invoker;
-    }
-
-    // [3.7.2.3] function capacity
-
-    /**
-     *  @brief Determine if the %function wrapper has a target.
-     *
-     *  @return @c true when this %function object contains a target,
-     *  or @c false when it is empty.
-     *
-     *  This function will not throw an exception.
-     */
-    operator _Safe_bool() const
+      /**
+       *  @brief Determine if the %function wrapper has a target.
+       *
+       *  @return @c true when this %function object contains a target,
+       *  or @c false when it is empty.
+       *
+       *  This function will not throw an %exception.
+       */
+#ifdef __GXX_EXPERIMENTAL_CXX0X__
+      explicit operator bool() const
+      { return !_M_empty(); }
+#else
+      operator _Safe_bool() const
       {
         if (_M_empty())
-          {
-            return 0;
-          }
-        else
-          {
-            return &_Hidden_type::_M_bool;
-          }
+         return 0;
+       else
+         return &_Hidden_type::_M_bool;
       }
+#endif
+
+      // [3.7.2.4] function invocation
 
-    // [3.7.2.4] function invocation
-
-    /**
-     *  @brief Invokes the function targeted by @c *this.
-     *  @returns the result of the target.
-     *  @throws bad_function_call when @c !(bool)*this
-     *
-     *  The function call operator invokes the target function object
-     *  stored by @c this.
-     */
-    _Res operator()(_ArgTypes... __args) const;
-
-    // [3.7.2.5] function target access
-    /**
-     *  @brief Determine the type of the target of this function object
-     *  wrapper.
-     *
-     *  @returns the type identifier of the target function object, or
-     *  @c typeid(void) if @c !(bool)*this.
-     *
-     *  This function will not throw an exception.
-     */
-    const type_info& target_type() const;
-
-    /**
-     *  @brief Access the stored target function object.
-     *
-     *  @return Returns a pointer to the stored target function object,
-     *  if @c typeid(Functor).equals(target_type()); otherwise, a NULL
-     *  pointer.
-     *
-     * This function will not throw an exception.
-     */
-    template<typename _Functor>       _Functor* target();
-
-    /**
-     *  @overload
-     */
-    template<typename _Functor> const _Functor* target() const;
-
-   private:
-    // [3.7.2.6] undefined operators
-    template<typename _Function>
-      void operator==(const function<_Function>&) const;
-    template<typename _Function>
-      void operator!=(const function<_Function>&) const;
-
-    typedef _Res (*_Invoker_type)(const _Any_data&, _ArgTypes...);
-    _Invoker_type _M_invoker;
+      /**
+       *  @brief Invokes the function targeted by @c *this.
+       *  @returns the result of the target.
+       *  @throws bad_function_call when @c !(bool)*this
+       *
+       *  The function call operator invokes the target function object
+       *  stored by @c this.
+       */
+      _Res operator()(_ArgTypes... __args) const;
+
+#ifdef __GXX_RTTI
+      // [3.7.2.5] function target access
+      /**
+       *  @brief Determine the type of the target of this function object
+       *  wrapper.
+       *
+       *  @returns the type identifier of the target function object, or
+       *  @c typeid(void) if @c !(bool)*this.
+       *
+       *  This function will not throw an %exception.
+       */
+      const type_info& target_type() const;
+      
+      /**
+       *  @brief Access the stored target function object.
+       *
+       *  @return Returns a pointer to the stored target function object,
+       *  if @c typeid(Functor).equals(target_type()); otherwise, a NULL
+       *  pointer.
+       *
+       * This function will not throw an %exception.
+       */
+      template<typename _Functor>       _Functor* target();
+      
+      /// @overload
+      template<typename _Functor> const _Functor* target() const;
+#endif
+
+    private:
+      // [3.7.2.6] undefined operators
+      template<typename _Function>
+       void operator==(const function<_Function>&) const;
+      template<typename _Function>
+       void operator!=(const function<_Function>&) const;
+
+      typedef _Res (*_Invoker_type)(const _Any_data&, _ArgTypes...);
+      _Invoker_type _M_invoker;
   };
 
   template<typename _Res, typename... _ArgTypes>
-    function<_Res(_ArgTypes...)>::function(const function& __x)
-      : _Function_base()
-    {
-      if (__x) {
-        _M_invoker = __x._M_invoker;
-        _M_manager = __x._M_manager;
-        __x._M_manager(_M_functor, __x._M_functor, __clone_functor);
-      }
+    function<_Res(_ArgTypes...)>::
+    function(const function& __x)
+    : _Function_base()
+    {
+      if (static_cast<bool>(__x))
+       {
+         _M_invoker = __x._M_invoker;
+         _M_manager = __x._M_manager;
+         __x._M_manager(_M_functor, __x._M_functor, __clone_functor);
+       }
     }
 
   template<typename _Res, typename... _ArgTypes>
-  template<typename _Functor>
-    function<_Res(_ArgTypes...)>
-    ::function(_Functor __f,
-               typename __gnu_cxx::__enable_if<
-                         !is_integral<_Functor>::value, _Useless>::__type)
+    template<typename _Functor>
+      function<_Res(_ArgTypes...)>::
+      function(_Functor __f,
+              typename __gnu_cxx::__enable_if<
+                       !is_integral<_Functor>::value, _Useless>::__type)
       : _Function_base()
-  {
-    typedef _Function_handler<_Signature_type, _Functor> _My_handler;
-    if (_My_handler::_M_not_empty_function(__f)) {
-      _M_invoker = &_My_handler::_M_invoke;
-      _M_manager = &_My_handler::_M_manager;
-      _My_handler::_M_init_functor(_M_functor, __f);
-    }
-  }
+      {
+       typedef _Function_handler<_Signature_type, _Functor> _My_handler;
+
+       if (_My_handler::_M_not_empty_function(__f))
+         {
+           _M_invoker = &_My_handler::_M_invoke;
+           _M_manager = &_My_handler::_M_manager;
+           _My_handler::_M_init_functor(_M_functor, __f);
+         }
+      }
 
   template<typename _Res, typename... _ArgTypes>
-    _Res function<_Res(_ArgTypes...)>::operator()(_ArgTypes... __args) const
+    _Res
+    function<_Res(_ArgTypes...)>::
+    operator()(_ArgTypes... __args) const
     {
       if (_M_empty())
         {
 #if __EXCEPTIONS
           throw bad_function_call();
 #else
-          std::abort();
+          __builtin_abort();
 #endif
         }
       return _M_invoker(_M_functor, __args...);
     }
 
+#ifdef __GXX_RTTI
   template<typename _Res, typename... _ArgTypes>
-    const type_info& function<_Res(_ArgTypes...)>::target_type() const
+    const type_info&
+    function<_Res(_ArgTypes...)>::
+    target_type() const
     {
       if (_M_manager)
         {
@@ -2157,45 +2057,44 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
           return *__typeinfo_result._M_access<const type_info*>();
         }
       else
-        {
-          return typeid(void);
-        }
+       return typeid(void);
     }
 
   template<typename _Res, typename... _ArgTypes>
-  template<typename _Functor>
-    _Functor* function<_Res(_ArgTypes...)>::target()
-    {
-      if (typeid(_Functor) == target_type() && _M_manager)
-        {
-          _Any_data __ptr;
-          if (_M_manager(__ptr, _M_functor, __get_functor_ptr)
-              && !is_const<_Functor>::value)
-            return 0;
-          else
-            return __ptr._M_access<_Functor*>();
-        }
-      else
-        {
-          return 0;
-        }
-    }
+    template<typename _Functor>
+      _Functor*
+      function<_Res(_ArgTypes...)>::
+      target()
+      {
+       if (typeid(_Functor) == target_type() && _M_manager)
+         {
+           _Any_data __ptr;
+           if (_M_manager(__ptr, _M_functor, __get_functor_ptr)
+               && !is_const<_Functor>::value)
+             return 0;
+           else
+             return __ptr._M_access<_Functor*>();
+         }
+       else
+         return 0;
+      }
 
   template<typename _Res, typename... _ArgTypes>
-  template<typename _Functor>
-    const _Functor* function<_Res(_ArgTypes...)>::target() const
-    {
-      if (typeid(_Functor) == target_type() && _M_manager)
-        {
-          _Any_data __ptr;
-          _M_manager(__ptr, _M_functor, __get_functor_ptr);
-          return __ptr._M_access<const _Functor*>();
-        }
-      else
-        {
-          return 0;
-        }
-    }
+    template<typename _Functor>
+      const _Functor*
+      function<_Res(_ArgTypes...)>::
+      target() const
+      {
+       if (typeid(_Functor) == target_type() && _M_manager)
+         {
+           _Any_data __ptr;
+           _M_manager(__ptr, _M_functor, __get_functor_ptr);
+           return __ptr._M_access<const _Functor*>();
+         }
+       else
+         return 0;
+      }
+#endif
 
   // [3.7.2.7] null pointer comparisons
 
@@ -2204,66 +2103,49 @@ _GLIBCXX_BEGIN_NAMESPACE(_GLIBCXX_TR1)
    *  (the NULL pointer).
    *  @returns @c true if the wrapper has no target, @c false otherwise
    *
-   *  This function will not throw an exception.
+   *  This function will not throw an %exception.
    */
   template<typename _Signature>
     inline bool
     operator==(const function<_Signature>& __f, _M_clear_type*)
-    {
-      return !__f;
-    }
+    { return !static_cast<bool>(__f); }
 
-  /**
-   *  @overload
-   */
+  /// @overload
   template<typename _Signature>
     inline bool
     operator==(_M_clear_type*, const function<_Signature>& __f)
-    {
-      return !__f;
-    }
+    { return !static_cast<bool>(__f); }
 
   /**
    *  @brief Compares a polymorphic function object wrapper against 0
    *  (the NULL pointer).
    *  @returns @c false if the wrapper has no target, @c true otherwise
    *
-   *  This function will not throw an exception.
+   *  This function will not throw an %exception.
    */
   template<typename _Signature>
     inline bool
     operator!=(const function<_Signature>& __f, _M_clear_type*)
-    {
-      return __f;
-    }
+    { return static_cast<bool>(__f); }
 
-  /**
-   *  @overload
-   */
+  /// @overload
   template<typename _Signature>
     inline bool
     operator!=(_M_clear_type*, const function<_Signature>& __f)
-    {
-      return __f;
-    }
+    { return static_cast<bool>(__f); }
 
   // [3.7.2.8] specialized algorithms
 
   /**
    *  @brief Swap the targets of two polymorphic function object wrappers.
    *
-   *  This function will not throw an exception.
+   *  This function will not throw an %exception.
    */
   template<typename _Signature>
     inline void
     swap(function<_Signature>& __x, function<_Signature>& __y)
-    {
-      __x.swap(__y);
-    }
-
-_GLIBCXX_END_NAMESPACE
+    { __x.swap(__y); }
+}
 }
 
-#include <tr1/functional_hash.h>
-
-#endif
+#endif // _GLIBCXX_TR1_FUNCTIONAL