OSDN Git Service

2003-07-08 Benjamin Kosnik <bkoz@redhat.com>
[pf3gnuchains/gcc-fork.git] / libstdc++-v3 / include / bits / locale_facets.h
index 2340973..6b5a99d 100644 (file)
@@ -1,6 +1,7 @@
 // Locale support -*- C++ -*-
 
-// Copyright (C) 1997, 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
+// Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003
+// 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
 // ISO C++ 14882: 22.1  Locales
 //
 
-// Warning: this file is not meant for user inclusion.  Use <locale>.
+/** @file locale_facets.h
+ *  This is an internal header file, included by other library headers.
+ *  You should not attempt to use it directly.
+ */
 
-#ifndef _CPP_BITS_LOCFACETS_H
-#define _CPP_BITS_LOCFACETS_H  1
+#ifndef _LOCALE_FACETS_H
+#define _LOCALE_FACETS_H 1
 
 #pragma GCC system_header
 
-#include <bits/std_ctime.h>    // For struct tm
-#include <bits/std_ios.h>      // For ios_base
-#ifdef _GLIBCPP_USE_WCHAR_T
-# include <langinfo.h>         // For codecvt
-# include <bits/std_cwctype.h> // For wctype_t
-# include <iconv.h>            // For codecvt using iconv, iconv_t
-#endif 
+#include <ctime>       // For struct tm
+#include <cwctype>     // For wctype_t
+#include <iosfwd>
+#include <bits/ios_base.h>  // For ios_base, ios_base::iostate
+#include <streambuf>
 
 namespace std
 {
+  // NB: Don't instantiate required wchar_t facets if no wchar_t support.
+#ifdef _GLIBCXX_USE_WCHAR_T
+# define  _GLIBCXX_NUM_FACETS 28
+#else
+# define  _GLIBCXX_NUM_FACETS 14
+#endif
+
+  // Convert string to numeric value of type _Tv and store results.  
+  // NB: This is specialized for all required types, there is no
+  // generic definition.
+  template<typename _Tv>
+    void
+    __convert_to_v(const char* __in, _Tv& __out, ios_base::iostate& __err, 
+                  const __c_locale& __cloc, int __base = 10);
+
+  // Explicit specializations for required types.
+  template<>
+    void
+    __convert_to_v(const char*, long&, ios_base::iostate&, 
+                  const __c_locale&, int);
+
+  template<>
+    void
+    __convert_to_v(const char*, unsigned long&, ios_base::iostate&, 
+                  const __c_locale&, int);
+
+#ifdef _GLIBCXX_USE_LONG_LONG
+  template<>
+    void
+    __convert_to_v(const char*, long long&, ios_base::iostate&, 
+                  const __c_locale&, int);
+
+  template<>
+    void
+    __convert_to_v(const char*, unsigned long long&, ios_base::iostate&, 
+                  const __c_locale&, int);
+#endif
+
+  template<>
+    void
+    __convert_to_v(const char*, float&, ios_base::iostate&, 
+                  const __c_locale&, int);
+
+  template<>
+    void
+    __convert_to_v(const char*, double&, ios_base::iostate&, 
+                  const __c_locale&, int);
+
+ template<>
+    void
+    __convert_to_v(const char*, long double&, ios_base::iostate&, 
+                  const __c_locale&, int);
+
+  // NB: __pad is a struct, rather than a function, so it can be
+  // partially-specialized.
+  template<typename _CharT, typename _Traits>
+    struct __pad
+    {
+      static void
+      _S_pad(ios_base& __io, _CharT __fill, _CharT* __news, 
+            const _CharT* __olds, const streamsize __newlen, 
+            const streamsize __oldlen, const bool __num);
+    };
+
+  // Used by both numeric and monetary facets.
+  // Check to make sure that the __grouping_tmp string constructed in
+  // money_get or num_get matches the canonical grouping for a given
+  // locale.
+  // __grouping_tmp is parsed L to R
+  // 1,222,444 == __grouping_tmp of "\1\3\3"
+  // __grouping is parsed R to L
+  // 1,222,444 == __grouping of "\3" == "\3\3\3"
+  template<typename _CharT>
+    bool
+    __verify_grouping(const basic_string<_CharT>& __grouping, 
+                     basic_string<_CharT>& __grouping_tmp);
+
+  // Used by both numeric and monetary facets.
+  // Inserts "group separator" characters into an array of characters.
+  // It's recursive, one iteration per group.  It moves the characters
+  // in the buffer this way: "xxxx12345" -> "12,345xxx".  Call this
+  // only with __gbeg != __gend.
+  template<typename _CharT>
+    _CharT*
+    __add_grouping(_CharT* __s, _CharT __sep,  
+                  const char* __gbeg, const char* __gend, 
+                  const _CharT* __first, const _CharT* __last);
+
+  // This template permits specializing facet output code for
+  // ostreambuf_iterator.  For ostreambuf_iterator, sputn is
+  // significantly more efficient than incrementing iterators.
+  template<typename _CharT>
+    inline
+    ostreambuf_iterator<_CharT>
+    __write(ostreambuf_iterator<_CharT> __s, const _CharT* __ws, int __len)
+    {
+      __s._M_put(__ws, __len);
+      return __s;
+    }
+
+  // This is the unspecialized form of the template.
+  template<typename _CharT, typename _OutIter>
+    inline
+    _OutIter
+    __write(_OutIter __s, const _CharT* __ws, int __len)
+    {
+      for (int __j = 0; __j < __len; __j++, ++__s)
+       *__s = __ws[__j];
+      return __s;
+    }
+
+
   // 22.2.1.1  Template class ctype
-  // Include host-specific ctype enums for ctype_base.
+  // Include host and configuration specific ctype enums for ctype_base.
   #include <bits/ctype_base.h>
 
-  // __ctype_abstract_base is the common base for ctype<_CharT>.  
+  // Common base for ctype<_CharT>.  
   template<typename _CharT>
     class __ctype_abstract_base : public locale::facet, public ctype_base
     {
@@ -81,33 +195,33 @@ namespace std
       { return this->do_toupper(__c); }
 
       const char_type*
-      toupper(char_type *__low, const char_type* __high) const
-      { return this->do_toupper(__low, __high); }
+      toupper(char_type *__lo, const char_type* __hi) const
+      { return this->do_toupper(__lo, __hi); }
 
       char_type 
       tolower(char_type __c) const
       { return this->do_tolower(__c); }
 
       const char_type*
-      tolower(char_type* __low, const char_type* __high) const
-      { return this->do_tolower(__low, __high); }
+      tolower(char_type* __lo, const char_type* __hi) const
+      { return this->do_tolower(__lo, __hi); }
 
       char_type 
       widen(char __c) const
       { return this->do_widen(__c); }
 
       const char*
-      widen(const char* __low, const char* __high, char_type* __to) const
-      { return this->do_widen(__low, __high, __to); }
+      widen(const char* __lo, const char* __hi, char_type* __to) const
+      { return this->do_widen(__lo, __hi, __to); }
 
       char 
       narrow(char_type __c, char __dfault) const
       { return this->do_narrow(__c, __dfault); }
 
       const char_type*
-      narrow(const char_type* __low, const char_type* __high,
+      narrow(const char_type* __lo, const char_type* __hi,
              char __dfault, char *__to) const
-      { return this->do_narrow(__low, __high, __dfault, __to); }
+      { return this->do_narrow(__lo, __hi, __dfault, __to); }
 
     protected:
       explicit 
@@ -124,7 +238,7 @@ namespace std
            mask* __vec) const = 0;
 
       virtual const char_type*
-      do_scan_is(mask __m, const char_type* __lo, 
+      do_scan_is(mask __m, const char_type* __lo,
                 const char_type* __hi) const = 0;
 
       virtual const char_type*
@@ -135,26 +249,26 @@ namespace std
       do_toupper(char_type) const = 0;
 
       virtual const char_type*
-      do_toupper(char_type* __low, const char_type* __high) const = 0;
+      do_toupper(char_type* __lo, const char_type* __hi) const = 0;
 
       virtual char_type 
       do_tolower(char_type) const = 0;
 
       virtual const char_type*
-      do_tolower(char_type* __low, const char_type* __high) const = 0;
+      do_tolower(char_type* __lo, const char_type* __hi) const = 0;
       
       virtual char_type 
       do_widen(char) const = 0;
 
       virtual const char*
-      do_widen(const char* __low, const char* __high,
+      do_widen(const char* __lo, const char* __hi, 
               char_type* __dest) const = 0;
 
       virtual char 
       do_narrow(char_type, char __dfault) const = 0;
 
       virtual const char_type*
-      do_narrow(const char_type* __low, const char_type* __high,
+      do_narrow(const char_type* __lo, const char_type* __hi,
                 char __dfault, char* __dest) const = 0;
     };
 
@@ -167,34 +281,72 @@ namespace std
       typedef _CharT                   char_type;
       typedef typename ctype::mask     mask;
 
+      static locale::id                id;
+
       explicit 
       ctype(size_t __refs = 0) : __ctype_abstract_base<_CharT>(__refs) { }
 
-      static locale::id id;
-
    protected:
       virtual 
-      ~ctype() { }
+      ~ctype();
+
+      virtual bool 
+      do_is(mask __m, char_type __c) const;
+
+      virtual const char_type*
+      do_is(const char_type* __lo, const char_type* __hi, mask* __vec) const;
+
+      virtual const char_type*
+      do_scan_is(mask __m, const char_type* __lo, const char_type* __hi) const;
+
+      virtual const char_type*
+      do_scan_not(mask __m, const char_type* __lo,
+                 const char_type* __hi) const;
+
+      virtual char_type 
+      do_toupper(char_type __c) const;
+
+      virtual const char_type*
+      do_toupper(char_type* __lo, const char_type* __hi) const;
+
+      virtual char_type 
+      do_tolower(char_type __c) const;
+
+      virtual const char_type*
+      do_tolower(char_type* __lo, const char_type* __hi) const;
+
+      virtual char_type 
+      do_widen(char __c) const;
+
+      virtual const char*
+      do_widen(const char* __lo, const char* __hi, char_type* __dest) const;
+
+      virtual char 
+      do_narrow(char_type, char __dfault) const;
+
+      virtual const char_type*
+      do_narrow(const char_type* __lo, const char_type* __hi,
+               char __dfault, char* __dest) const;
     };
 
   template<typename _CharT>
     locale::id ctype<_CharT>::id;
 
-  // 22.2.1.3  ctype specializations
+  // 22.2.1.3  ctype<char> specialization.
   template<>
     class ctype<char> : public __ctype_abstract_base<char>
     {
     public:
       // Types:
-      typedef char            char_type;
+      typedef char             char_type;
 
-    private:
+    protected:
       // Data Members:
-      bool                    _M_del;
-      __to_type const&                _M_toupper;
-      __to_type const&                _M_tolower;
-      const mask* const&       _M_ctable;
-      const mask*              _M_table;
+      __c_locale               _M_c_locale_ctype;
+      bool                     _M_del;
+      __to_type                _M_toupper;
+      __to_type                _M_tolower;
+      const mask*                      _M_table;
       
     public:
       static locale::id        id;
@@ -203,40 +355,41 @@ namespace std
       explicit 
       ctype(const mask* __table = 0, bool __del = false, size_t __refs = 0);
 
+      explicit 
+      ctype(__c_locale __cloc, const mask* __table = 0, bool __del = false, 
+           size_t __refs = 0);
+
       inline bool 
       is(mask __m, char __c) const;
  
       inline const char*
-      is(const char* __low, const char* __high, mask* __vec) const;
+      is(const char* __lo, const char* __hi, mask* __vec) const;
  
       inline const char*
-      scan_is(mask __m, const char* __low, const char* __high) const;
+      scan_is(mask __m, const char* __lo, const char* __hi) const;
 
       inline const char*
-      scan_not(mask __m, const char* __low, const char* __high) const;
+      scan_not(mask __m, const char* __lo, const char* __hi) const;
      
     protected:
-      virtual 
-      ~ctype();
-
       const mask* 
       table() const throw()
       { return _M_table; }
 
-      const mask* 
-      classic_table() throw()
-      { return _M_ctable; }
+      static const mask* 
+      classic_table() throw();
+
+      virtual 
+      ~ctype();
 
       virtual bool 
       do_is(mask __m, char_type __c) const;
 
       virtual const char_type*
-      do_is(const char_type* __lo, const char_type* __hi, 
-           mask* __vec) const;
+      do_is(const char_type* __lo, const char_type* __hi, mask* __vec) const;
 
       virtual const char_type*
-      do_scan_is(mask __m, const char_type* __lo, 
-                const char_type* __hi) const;
+      do_scan_is(mask __m, const char_type* __lo, const char_type* __hi) const;
 
       virtual const char_type*
       do_scan_not(mask __m, const char_type* __lo, 
@@ -246,49 +399,55 @@ namespace std
       do_toupper(char_type) const;
 
       virtual const char_type*
-      do_toupper(char_type* __low, const char_type* __high) const;
+      do_toupper(char_type* __lo, const char_type* __hi) const;
 
       virtual char_type 
       do_tolower(char_type) const;
 
       virtual const char_type*
-      do_tolower(char_type* __low, const char_type* __high) const;
+      do_tolower(char_type* __lo, const char_type* __hi) const;
       
       virtual char_type 
       do_widen(char) const;
 
       virtual const char*
-      do_widen(const char* __low, const char* __high,
-              char_type* __dest) const;
+      do_widen(const char* __lo, const char* __hi, char_type* __dest) const;
 
       virtual char 
       do_narrow(char_type, char __dfault) const;
 
       virtual const char_type*
-      do_narrow(const char_type* __low, const char_type* __high,
-                char __dfault, char* __dest) const;
+      do_narrow(const char_type* __lo, const char_type* __hi,
+               char __dfault, char* __dest) const;
     };
  
   template<>
     const ctype<char>&
     use_facet<ctype<char> >(const locale& __loc);
 
-#ifdef _GLIBCPP_USE_WCHAR_T
-  // ctype<wchar_t> specialization
+#ifdef _GLIBCXX_USE_WCHAR_T
+  // 22.2.1.3  ctype<wchar_t> specialization
   template<>
     class ctype<wchar_t> : public __ctype_abstract_base<wchar_t>
     {
     public:
       // Types:
-      typedef wchar_t         char_type;
-      typedef wctype_t        __wmask_type;
+      typedef wchar_t          char_type;
+      typedef wctype_t         __wmask_type;
+
+    protected:
+      __c_locale               _M_c_locale_ctype;
 
+    public:
       // Data Members:
-      static locale::id        id;
+      static locale::id                id;
 
       explicit 
       ctype(size_t __refs = 0);
 
+      explicit 
+      ctype(__c_locale __cloc, size_t __refs = 0);
+
     protected:
       __wmask_type
       _M_convert_to_wmask(const mask __m) const;
@@ -300,12 +459,10 @@ namespace std
       do_is(mask __m, char_type __c) const;
 
       virtual const char_type*
-      do_is(const char_type* __lo, const char_type* __hi, 
-           mask* __vec) const;
+      do_is(const char_type* __lo, const char_type* __hi, mask* __vec) const;
 
       virtual const char_type*
-      do_scan_is(mask __m, const char_type* __lo, 
-                const char_type* __hi) const;
+      do_scan_is(mask __m, const char_type* __lo, const char_type* __hi) const;
 
       virtual const char_type*
       do_scan_not(mask __m, const char_type* __lo, 
@@ -315,36 +472,35 @@ namespace std
       do_toupper(char_type) const;
 
       virtual const char_type*
-      do_toupper(char_type* __low, const char_type* __high) const;
+      do_toupper(char_type* __lo, const char_type* __hi) const;
 
       virtual char_type 
       do_tolower(char_type) const;
 
       virtual const char_type*
-      do_tolower(char_type* __low, const char_type* __high) const;
+      do_tolower(char_type* __lo, const char_type* __hi) const;
       
       virtual char_type 
       do_widen(char) const;
 
       virtual const char*
-      do_widen(const char* __low, const char* __high,
-              char_type* __dest) const;
+      do_widen(const char* __lo, const char* __hi, char_type* __dest) const;
 
       virtual char 
       do_narrow(char_type, char __dfault) const;
 
       virtual const char_type*
-      do_narrow(const char_type* __low, const char_type* __high,
-                char __dfault, char* __dest) const;
+      do_narrow(const char_type* __lo, const char_type* __hi,
+               char __dfault, char* __dest) const;
 
     };
 
   template<>
     const ctype<wchar_t>&
     use_facet<ctype<wchar_t> >(const locale& __loc);
-#endif //_GLIBCPP_USE_WCHAR_T
+#endif //_GLIBCXX_USE_WCHAR_T
 
-  // Include host-specific ctype inlines.
+  // Include host and configuration specific ctype inlines.
   #include <bits/ctype_inline.h>
 
   // 22.2.1.2  Template class ctype_byname
@@ -355,178 +511,290 @@ namespace std
       typedef _CharT           char_type;
 
       explicit 
-      ctype_byname(const char*, size_t __refs = 0);
+      ctype_byname(const char* __s, size_t __refs = 0);
 
     protected:
       virtual 
-      ~ctype_byname() { }
+      ~ctype_byname() { };
     };
 
-  // 22.2.1.4  Class ctype_byname specialization
+  // 22.2.1.4  Class ctype_byname specializations.
   template<>
     ctype_byname<char>::ctype_byname(const char*, size_t refs);
 
+  template<>
+    ctype_byname<wchar_t>::ctype_byname(const char*, size_t refs);
 
   // 22.2.1.5  Template class codecvt
   #include <bits/codecvt.h>
 
-  template<typename _CharT, typename _InIter>
-    class _Numeric_get;  // forward
+  // 22.2.2  The numeric category.
+  class __num_base 
+  {
+  public:
+    // NB: Code depends on the order of _S_atoms_out elements.
+    // Below are the indices into _S_atoms_out.
+    enum 
+      {  
+        _S_ominus, 
+        _S_oplus, 
+        _S_ox, 
+        _S_oX, 
+        _S_odigits,
+        _S_odigits_end = _S_odigits + 16,
+        _S_oudigits = _S_odigits_end,  
+        _S_oudigits_end = _S_oudigits + 16,
+        _S_oe = _S_odigits + 14,  // For scientific notation, 'e'
+        _S_oE = _S_oudigits + 14, // For scientific notation, 'E'
+       _S_oend = _S_oudigits_end
+      };
+    
+    // A list of valid numeric literals for output.  This array
+    // contains chars that will be passed through the current locale's
+    // ctype<_CharT>.widen() and then used to render numbers.
+    // For the standard "C" locale, this is
+    // "-+xX0123456789abcdef0123456789ABCDEF".
+    static const char* _S_atoms_out;
+
+    // String literal of acceptable (narrow) input, for num_get.
+    // "0123456789eEabcdfABCDF"
+    static const char* _S_atoms_in;
+
+    enum 
+    {  
+      _S_izero,
+      _S_ie = _S_izero + 10,
+      _S_iE = _S_izero + 11,
+      _S_iend = 21 + 1
+    };
+
+    // num_put
+    // Construct and return valid scanf format for floating point types.
+    static void
+    _S_format_float(const ios_base& __io, char* __fptr, char __mod);
+  };
 
-  // _Format_cache holds the information extracted from the numpunct<>
-  // and moneypunct<> facets in a form optimized for parsing and
-  // formatting.  It is stored via a void* pointer in the pword()
-  // array of an iosbase object passed to the _get and _put facets.
-  // NB: contains no user-serviceable parts.
   template<typename _CharT>
-    class _Format_cache
+    struct __numpunct_cache : public locale::facet
     {
-    public: 
       // Types:
-      typedef _CharT                           char_type;
-      typedef char_traits<_CharT>              traits_type;
-      typedef basic_string<_CharT>             string_type;
-      typedef typename string_type::size_type  size_type;
-
-      // Forward decls and Friends:
-      friend class locale;
-      template<typename _Char, typename _InIter>
-        friend class _Numeric_get;
-      friend class num_get<_CharT>;
-      friend class num_put<_CharT>;
-      friend class time_get<_CharT>;
-      friend class money_get<_CharT>;
-      friend class time_put<_CharT>;
-      friend class money_put<_CharT>;
+      typedef _CharT                   char_type;
 
-      // Data Members:
+      const char*                      _M_grouping;
+      bool                             _M_use_grouping;
+      const char_type*                         _M_truename;
+      const char_type*                 _M_falsename;
+      char_type                        _M_decimal_point;
+      char_type                        _M_thousands_sep;
+      
+      // A list of valid numeric literals for output: in the standard
+      // "C" locale, this is "-+xX0123456789abcdef0123456789ABCDEF".
+      // This array contains the chars after having been passed
+      // through the current locale's ctype<_CharT>.widen().
+      char_type                        _M_atoms_out[__num_base::_S_oend + 1];
+
+      // A list of valid numeric literals for output: in the standard
+      // "C" locale, this is "0123456789eEabcdfABCDF"
+      // This array contains the chars after having been passed
+      // through the current locale's ctype<_CharT>.widen().
+      char_type                        _M_atoms_in[__num_base::_S_iend + 1];
+
+      bool                             _M_allocated;
+
+      __numpunct_cache(size_t __refs = 0) : locale::facet(__refs), 
+      _M_grouping(NULL), _M_use_grouping(false), _M_truename(NULL), 
+      _M_falsename(NULL), _M_decimal_point(char_type()), 
+      _M_thousands_sep(char_type()), _M_allocated(false)
+      { } 
+
+      ~__numpunct_cache();
+
+      void
+      _M_cache(const locale& __loc);
+    };
+
+  template<typename _CharT>
+    void
+    __numpunct_cache<_CharT>::_M_cache(const locale& __loc)
+    {
+      const numpunct<_CharT>& __np = use_facet<numpunct<_CharT> >(__loc);
+      string __grouping = __np.grouping();
+      char* __group = new char[__grouping.length() + 1];
+      __grouping.copy(__group, __grouping.length());
+      __group[__grouping.length()] = char();
+      _M_grouping = __group;
+      
+      _M_use_grouping = __grouping.length() != 0 && __grouping.data()[0] != 0;
+
+      typedef basic_string<_CharT> __string_type;
+
+      __string_type __true = __np.truename();
+      _CharT* __truename = new _CharT[__true.length() + 1];
+      __true.copy(__truename, __true.length());
+      __truename[__true.length()] = _CharT(); 
+      _M_truename = __truename;
+
+      __string_type __false = __np.falsename();
+      _CharT* __falsename = new _CharT[__false.length() + 1];
+      __false.copy(__falsename, __false.length());
+      __falsename[__false.length()] = _CharT(); 
+      _M_falsename = __falsename;
+            
+      _M_decimal_point = __np.decimal_point();
+      _M_thousands_sep = __np.thousands_sep();
+
+      const ctype<_CharT>& __ct = use_facet<ctype<_CharT> >(__loc);
+      __ct.widen(__num_base::_S_atoms_out, 
+                __num_base::_S_atoms_out + __num_base::_S_oend, _M_atoms_out);
+      _M_atoms_out[__num_base::_S_oend] = _CharT();
+      __ct.widen(__num_base::_S_atoms_in, 
+                __num_base::_S_atoms_in + __num_base::_S_iend, _M_atoms_in);
+      _M_atoms_in[__num_base::_S_iend] = _CharT();
+
+      _M_allocated = true;
+    }
+
+  template<typename _CharT>
+    __numpunct_cache<_CharT>::~__numpunct_cache()
+    {
+      if (_M_allocated)
+       {
+         delete [] _M_grouping;
+         delete [] _M_truename;
+         delete [] _M_falsename;
+       }
+    }
+
+  template<typename _CharT>
+    class numpunct : public locale::facet
+    {
+    public:
+      // Types:
+      typedef _CharT                   char_type;
+      typedef basic_string<_CharT>     string_type;
+      typedef __numpunct_cache<_CharT>  __cache_type;
+
+    protected:
+      __cache_type*                    _M_data;
 
-      // ios_base::pword() reserved cell
-      static int               _S_pword_ix; 
+    public:
+      static locale::id                id;
 
-      // True iff data members are consistent with the current locale,
-      // ie imbue sets this to false.
-      bool                     _M_valid;
+      explicit 
+      numpunct(size_t __refs = 0) : facet(__refs), _M_data(NULL)
+      { _M_initialize_numpunct(); }
 
-      // A list of valid numeric literals: for the standard "C" locale,
-      // this would usually be: "-+xX0123456789abcdef0123456789ABCDEF"
-      static const char        _S_literals[];
+      explicit 
+      numpunct(__cache_type* __cache, size_t __refs = 0) 
+      : facet(__refs), _M_data(__cache)
+      { _M_initialize_numpunct(); }
 
-      // NB: Code depends on the order of definitions of the names
-      // these are indices into _S_literals, above.
-      // This string is formatted for putting, not getting. (output, not input)
-      enum 
-      {  
-       _S_minus, 
-       _S_plus, 
-       _S_x, 
-       _S_X, 
-       _S_digits,
-       _S_digits_end = _S_digits + 16,
-       _S_udigits = _S_digits_end,  
-       _S_udigits_end = _S_udigits + 16,
-       _S_ee = _S_digits + 14, // For scientific notation, 'E'
-       _S_Ee = _S_udigits + 14 // For scientific notation, 'e'
-      };
+      explicit 
+      numpunct(__c_locale __cloc, size_t __refs = 0) 
+      : locale::facet(__refs), _M_data(NULL)
+      { _M_initialize_numpunct(__cloc); }
+
+      char_type    
+      decimal_point() const
+      { return this->do_decimal_point(); }
+
+      char_type    
+      thousands_sep() const
+      { return this->do_thousands_sep(); }
+
+      string       
+      grouping() const
+      { return this->do_grouping(); }
 
-      // The sign used to separate decimal values: for standard US
-      // locales, this would usually be: "."
-      // Abstracted from numpunct::decimal_point().
-      char_type                _M_decimal_point;
+      string_type  
+      truename() const
+      { return this->do_truename(); }
 
-      // The sign used to separate groups of digits into smaller
-      // strings that the eye can parse with less difficulty: for
-      // standard US locales, this would usually be: ","
-      // Abstracted from numpunct::thousands_sep().
-      char_type                        _M_thousands_sep;
+      string_type  
+      falsename() const
+      { return this->do_falsename(); }
 
-      // However the US's "false" and "true" are translated.
-      // From numpunct::truename() and numpunct::falsename(), respectively.
-      string_type              _M_truename;
-      string_type              _M_falsename;
+    protected:
+      virtual 
+      ~numpunct();
 
-      // If we are checking groupings. This should be equivalent to 
-      // numpunct::groupings().size() != 0
-      bool                     _M_use_grouping;
+      virtual char_type    
+      do_decimal_point() const
+      { return _M_data->_M_decimal_point; }
 
-      // If we are using numpunct's groupings, this is the current
-      // grouping string in effect (from numpunct::grouping()).
-      string                   _M_grouping;
+      virtual char_type    
+      do_thousands_sep() const
+      { return _M_data->_M_thousands_sep; }
 
-      _Format_cache();
+      virtual string
+      do_grouping() const
+      { return _M_data->_M_grouping; }
 
-      ~_Format_cache() throw() { }
+      virtual string_type  
+      do_truename() const
+      { return _M_data->_M_truename; }
 
-      // Given a member of the ios heirarchy as an argument, extract
-      // out all the current formatting information into a
-      // _Format_cache object and return a pointer to it.
-      static _Format_cache<_CharT>* 
-      _S_get(ios_base& __ios);
+      virtual string_type  
+      do_falsename() const
+      { return _M_data->_M_falsename; }
 
+      // For use at construction time only.
       void 
-      _M_populate(ios_base&);
-
-      static void 
-      _S_callback(ios_base::event __event, ios_base& __ios, int __ix) throw();
+      _M_initialize_numpunct(__c_locale __cloc = NULL);
     };
 
   template<typename _CharT>
-    int _Format_cache<_CharT>::_S_pword_ix;
+    locale::id numpunct<_CharT>::id;
 
-  template<typename _CharT>
-    const char _Format_cache<_CharT>::
-    _S_literals[] = "-+xX0123456789abcdef0123456789ABCDEF";
+  template<> 
+    numpunct<char>::~numpunct();
+
+  template<> 
+    void
+    numpunct<char>::_M_initialize_numpunct(__c_locale __cloc);
 
-   template<> _Format_cache<char>::_Format_cache();
-#ifdef _GLIBCPP_USE_WCHAR_T
-   template<> _Format_cache<wchar_t>::_Format_cache();
+#ifdef _GLIBCXX_USE_WCHAR_T
+  template<> 
+    numpunct<wchar_t>::~numpunct();
+
+  template<> 
+    void
+    numpunct<wchar_t>::_M_initialize_numpunct(__c_locale __cloc);
 #endif
 
-  // _Numeric_get is used by num_get, money_get, and time_get to help
-  // in parsing out numbers.
-  template<typename _CharT, typename _InIter>
-    class _Numeric_get
+  template<typename _CharT>
+    class numpunct_byname : public numpunct<_CharT>
     {
+      // Data Member.
+      __c_locale                       _M_c_locale_numpunct;
+
     public:
-      // Types:
-      typedef _CharT     char_type;
-      typedef _InIter    iter_type;
-
-      // Forward decls and Friends:
-      template<typename _Char, typename _InIterT>
-      friend class num_get;
-      template<typename _Char, typename _InIterT>
-      friend class time_get;
-      template<typename _Char, typename _InIterT>
-      friend class money_get;
-      template<typename _Char, typename _InIterT>
-      friend class num_put;
-      template<typename _Char, typename _InIterT>
-      friend class time_put;
-      template<typename _Char, typename _InIterT>
-      friend class money_put;
+      typedef _CharT                   char_type;
+      typedef basic_string<_CharT>     string_type;
 
-    private:
       explicit 
-      _Numeric_get() { }
+      numpunct_byname(const char* __s, size_t __refs = 0)
+      : numpunct<_CharT>(__refs)
+      {
+       _S_create_c_locale(_M_c_locale_numpunct, __s);
+       _M_initialize_numpunct(_M_c_locale_numpunct);   
+      }
 
+    protected:
       virtual 
-      ~_Numeric_get() { }
-
-      iter_type 
-      _M_get_digits(iter_type __in, iter_type __end) const;
+      ~numpunct_byname() 
+      { _S_destroy_c_locale(_M_c_locale_numpunct); }
     };
 
   template<typename _CharT, typename _InIter>
-    class num_get : public locale::facet
+    class num_get : public locale::facet, public __num_base
     {
     public:
       // Types:
       typedef _CharT                           char_type;
       typedef _InIter                          iter_type;
-      typedef char_traits<_CharT>      __traits_type;
 
-      static locale::id id;
+      static locale::id                id;
 
       explicit 
       num_get(size_t __refs = 0) : locale::facet(__refs) { }
@@ -534,116 +802,100 @@ namespace std
       iter_type 
       get(iter_type __in, iter_type __end, ios_base& __io,
          ios_base::iostate& __err, bool& __v) const
-      { return do_get(__in, __end, __io, __err, __v); }
-
-#ifdef _GLIBCPP_RESOLVE_LIB_DEFECTS
-      iter_type 
-      get(iter_type __in, iter_type __end, ios_base& __io,
-         ios_base::iostate& __err, short& __v) const
-      { return do_get(__in, __end, __io, __err, __v); }
-
-      iter_type 
-      get(iter_type __in, iter_type __end, ios_base& __io,
-         ios_base::iostate& __err, int& __v)   const
-      { return do_get(__in, __end, __io, __err, __v); }
-#endif
+      { return this->do_get(__in, __end, __io, __err, __v); }
 
       iter_type
       get(iter_type __in, iter_type __end, ios_base& __io, 
          ios_base::iostate& __err, long& __v) const
-      { return do_get(__in, __end, __io, __err, __v); }
-
-#ifdef _GLIBCPP_USE_LONG_LONG
-      iter_type 
-      get(iter_type __in, iter_type __end, ios_base& __io,
-         ios_base::iostate& __err, long long& __v) const
-      { return do_get(__in, __end, __io, __err, __v); }
-#endif
+      { return this->do_get(__in, __end, __io, __err, __v); }
 
       iter_type 
       get(iter_type __in, iter_type __end, ios_base& __io,
          ios_base::iostate& __err, unsigned short& __v) const
-      { return do_get(__in, __end, __io, __err, __v); }
+      { return this->do_get(__in, __end, __io, __err, __v); }
 
       iter_type 
       get(iter_type __in, iter_type __end, ios_base& __io,
          ios_base::iostate& __err, unsigned int& __v)   const
-      { return do_get(__in, __end, __io, __err, __v); }
+      { return this->do_get(__in, __end, __io, __err, __v); }
 
       iter_type 
       get(iter_type __in, iter_type __end, ios_base& __io,
          ios_base::iostate& __err, unsigned long& __v)  const
-      { return do_get(__in, __end, __io, __err, __v); }
+      { return this->do_get(__in, __end, __io, __err, __v); }
+
+#ifdef _GLIBCXX_USE_LONG_LONG
+      iter_type 
+      get(iter_type __in, iter_type __end, ios_base& __io,
+         ios_base::iostate& __err, long long& __v) const
+      { return this->do_get(__in, __end, __io, __err, __v); }
 
-#ifdef _GLIBCPP_USE_LONG_LONG
       iter_type 
       get(iter_type __in, iter_type __end, ios_base& __io,
          ios_base::iostate& __err, unsigned long long& __v)  const
-      { return do_get(__in, __end, __io, __err, __v); }
+      { return this->do_get(__in, __end, __io, __err, __v); }
 #endif
 
       iter_type 
       get(iter_type __in, iter_type __end, ios_base& __io,
          ios_base::iostate& __err, float& __v) const
-      { return do_get(__in, __end, __io, __err, __v); }
+      { return this->do_get(__in, __end, __io, __err, __v); }
 
       iter_type 
       get(iter_type __in, iter_type __end, ios_base& __io,
          ios_base::iostate& __err, double& __v) const
-      { return do_get(__in, __end, __io, __err, __v); }
+      { return this->do_get(__in, __end, __io, __err, __v); }
 
       iter_type 
       get(iter_type __in, iter_type __end, ios_base& __io,
          ios_base::iostate& __err, long double& __v) const
-      { return do_get(__in, __end, __io, __err, __v); }
+      { return this->do_get(__in, __end, __io, __err, __v); }
 
       iter_type 
       get(iter_type __in, iter_type __end, ios_base& __io,
          ios_base::iostate& __err, void*& __v) const
-      { return do_get(__in, __end, __io, __err, __v); }      
+      { return this->do_get(__in, __end, __io, __err, __v); }      
 
     protected:
       virtual ~num_get() { }
 
-      // This consolidates the extraction, storage and
-      // error-processing parts of the do_get(...) overloaded member
-      // functions. 
-      // NB: This is specialized for char.
-      void 
-      _M_extract(iter_type __beg, iter_type __end, ios_base& __io, 
-                ios_base::iostate& __err, char* __xtrc, 
-                int& __base, bool __fp = true) const;
+      iter_type 
+      _M_extract_float(iter_type, iter_type, ios_base&, ios_base::iostate&, 
+                      string& __xtrc) const;
+
+      iter_type 
+      _M_extract_int(iter_type, iter_type, ios_base&, ios_base::iostate&, 
+                    string& __xtrc, int& __base) const;
 
       virtual iter_type 
       do_get(iter_type, iter_type, ios_base&, ios_base::iostate&, bool&) const;
 
-#ifdef _GLIBCPP_RESOLVE_LIB_DEFECTS
-      virtual iter_type 
-      do_get(iter_type, iter_type, ios_base&, ios_base::iostate&, short&) const;
-      virtual iter_type 
-      do_get(iter_type, iter_type, ios_base&, ios_base::iostate&, int&) const;
-#endif
+
       virtual iter_type 
-      do_get (iter_type, iter_type, ios_base&, ios_base::iostate&, long&) const;
-#ifdef _GLIBCPP_USE_LONG_LONG 
+      do_get(iter_type, iter_type, ios_base&, ios_base::iostate&, long&) const;
+
       virtual iter_type 
       do_get(iter_type, iter_type, ios_base&, ios_base::iostate& __err, 
-            long long&) const;
-#endif
+             unsigned short&) const;
+
       virtual iter_type 
       do_get(iter_type, iter_type, ios_base&, ios_base::iostate& __err, 
-             unsigned short&) const;
+            unsigned int&) const;
+
       virtual iter_type 
-      do_get(iter_type, iter_type, ios_base&,
-             ios_base::iostate& __err, unsigned int&) const;
+      do_get(iter_type, iter_type, ios_base&, ios_base::iostate& __err, 
+            unsigned long&) const;
+
+#ifdef _GLIBCXX_USE_LONG_LONG 
       virtual iter_type 
-      do_get(iter_type, iter_type, ios_base&,
-             ios_base::iostate& __err, unsigned long&) const;
-#ifdef _GLIBCPP_USE_LONG_LONG 
+      do_get(iter_type, iter_type, ios_base&, ios_base::iostate& __err, 
+            long long&) const;
+
       virtual iter_type 
-      do_get(iter_type, iter_type, ios_base&,
-            ios_base::iostate& __err, unsigned long long&) const;
+      do_get(iter_type, iter_type, ios_base&, ios_base::iostate& __err, 
+            unsigned long long&) const;
 #endif
+
       virtual iter_type 
       do_get(iter_type, iter_type, ios_base&, ios_base::iostate& __err, 
             float&) const;
@@ -653,8 +905,8 @@ namespace std
             double&) const;
 
       virtual iter_type 
-      do_get(iter_type, iter_type, ios_base&, 
-            ios_base::iostate& __err, long double&) const;
+      do_get(iter_type, iter_type, ios_base&, ios_base::iostate& __err, 
+            long double&) const;
 
       virtual iter_type 
       do_get(iter_type, iter_type, ios_base&, ios_base::iostate& __err, 
@@ -664,83 +916,98 @@ namespace std
   template<typename _CharT, typename _InIter>
     locale::id num_get<_CharT, _InIter>::id;
 
-  // Declare specialized extraction member function.
-  template<>
-    void
-    num_get<char, istreambuf_iterator<char> >::    
-    _M_extract(istreambuf_iterator<char> __beg, 
-              istreambuf_iterator<char> __end, ios_base& __io, 
-              ios_base::iostate& __err, char* __xtrc, 
-              int& __base, bool __fp) const;
-
-  // _Numeric_put is used by num_put, money_put, and time_put
-  //   to help in formatting out numbers.
-  template<typename _CharT, typename _OutIter>
-    class _Numeric_put
-    {
-    public:
-      typedef _CharT      char_type;
-      typedef _OutIter    iter_type;
-    protected:
-      explicit 
-      _Numeric_put() { }
+#if 0
+  // Partial specialization for istreambuf_iterator, so can use traits_type.
+  template<typename _CharT>
+    class num_get<_CharT, istreambuf_iterator<_CharT> >;
 
-      virtual 
-      ~_Numeric_put() { }
-    };
+      iter_type 
+      _M_extract_float(iter_type, iter_type, ios_base&, ios_base::iostate&, 
+                      string& __xtrc) const;
+
+      iter_type 
+      _M_extract_int(iter_type, iter_type, ios_base&, ios_base::iostate&, 
+                    string& __xtrc, int& __base) const;
+
+      virtual iter_type 
+      do_get(iter_type, iter_type, ios_base&, ios_base::iostate&, bool&) const;
+#endif
 
   template<typename _CharT, typename _OutIter>
-    class num_put : public locale::facet
+    class num_put : public locale::facet, public __num_base
     {
     public:
       // Types:
-      typedef _CharT       char_type;
-      typedef _OutIter     iter_type;
-
-      static locale::id id;
+      typedef _CharT           char_type;
+      typedef _OutIter         iter_type;
+      static locale::id                id;
 
       explicit 
       num_put(size_t __refs = 0) : locale::facet(__refs) { }
 
       iter_type 
       put(iter_type __s, ios_base& __f, char_type __fill, bool __v) const
-      { return do_put(__s, __f, __fill, __v); }
+      { return this->do_put(__s, __f, __fill, __v); }
 
       iter_type 
       put(iter_type __s, ios_base& __f, char_type __fill, long __v) const
-      { return do_put(__s, __f, __fill, __v); }
+      { return this->do_put(__s, __f, __fill, __v); }
 
       iter_type 
       put(iter_type __s, ios_base& __f, char_type __fill, 
          unsigned long __v) const
-      { return do_put(__s, __f, __fill, __v); }
+      { return this->do_put(__s, __f, __fill, __v); }
 
-#ifdef _GLIBCPP_USE_LONG_LONG 
+#ifdef _GLIBCXX_USE_LONG_LONG 
       iter_type 
       put(iter_type __s, ios_base& __f, char_type __fill, long long __v) const
-      { return do_put(__s, __f, __fill, __v); }
+      { return this->do_put(__s, __f, __fill, __v); }
 
       iter_type 
       put(iter_type __s, ios_base& __f, char_type __fill, 
          unsigned long long __v) const
-      { return do_put(__s, __f, __fill, __v); }
+      { return this->do_put(__s, __f, __fill, __v); }
 #endif
 
       iter_type 
       put(iter_type __s, ios_base& __f, char_type __fill, double __v) const
-      { return do_put(__s, __f, __fill, __v); }
+      { return this->do_put(__s, __f, __fill, __v); }
 
       iter_type 
       put(iter_type __s, ios_base& __f, char_type __fill, 
          long double __v) const
-      { return do_put(__s, __f, __fill, __v); }
+      { return this->do_put(__s, __f, __fill, __v); }
 
       iter_type 
       put(iter_type __s, ios_base& __f, char_type __fill, 
          const void* __v) const
-      { return do_put(__s, __f, __fill, __v); }
+      { return this->do_put(__s, __f, __fill, __v); }
 
     protected:
+      template<typename _ValueT>
+        iter_type
+        _M_convert_float(iter_type, ios_base& __io, char_type __fill, 
+                        char __mod, _ValueT __v) const;
+
+      void
+      _M_group_float(const string& __grouping, char_type __sep, 
+                    const char_type* __p, char_type* __new, char_type* __cs,
+                    int& __len) const;
+
+      template<typename _ValueT>
+        iter_type
+        _M_convert_int(iter_type, ios_base& __io, char_type __fill, 
+                      _ValueT __v) const;
+
+      void
+      _M_group_int(const string& __grouping, char_type __sep, 
+                  ios_base& __io, char_type* __new, char_type* __cs, 
+                  int& __len) const;
+
+      void
+      _M_pad(char_type __fill, streamsize __w, ios_base& __io, 
+            char_type* __new, const char_type* __cs, int& __len) const;
+
       virtual 
       ~num_put() { };
 
@@ -750,15 +1017,13 @@ namespace std
       virtual iter_type 
       do_put(iter_type, ios_base&, char_type __fill, long __v) const;
 
-#ifdef _GLIBCPP_USE_LONG_LONG 
       virtual iter_type 
-      do_put(iter_type, ios_base&, char_type __fill, long long __v) const;
-#endif
+      do_put(iter_type, ios_base&, char_type __fill, unsigned long) const;
 
+#ifdef _GLIBCXX_USE_LONG_LONG 
       virtual iter_type 
-      do_put(iter_type, ios_base&, char_type __fill, unsigned long) const;
+      do_put(iter_type, ios_base&, char_type __fill, long long __v) const;
 
-#ifdef _GLIBCPP_USE_LONG_LONG
       virtual iter_type
       do_put(iter_type, ios_base&, char_type __fill, unsigned long long) const;
 #endif
@@ -776,136 +1041,32 @@ namespace std
   template <typename _CharT, typename _OutIter>
     locale::id num_put<_CharT, _OutIter>::id;
 
-  template<typename _CharT>
-    class numpunct : public locale::facet
-    {
-    public:
-      // Types:
-      typedef _CharT                   char_type;
-      typedef basic_string<_CharT>     string_type;
-
-      static locale::id id;
-
-    private:
-      char_type        _M_decimal_point;
-      char_type        _M_thousands_sep;
-      string           _M_grouping;
-      string_type      _M_truename;
-      string_type      _M_falsename;
-
-    public:
-      explicit 
-      numpunct(size_t __refs = 0) : locale::facet(__refs) 
-      { _M_initialize_numpunct(); }
-
-      explicit 
-      numpunct(__c_locale __cloc, size_t __refs = 0) : locale::facet(__refs) 
-      { _M_initialize_numpunct(__cloc); }
-
-      char_type    
-      decimal_point() const
-      { return do_decimal_point(); }
-
-      char_type    
-      thousands_sep() const
-      { return do_thousands_sep(); }
-
-      string       
-      grouping() const
-      { return do_grouping(); }
-
-      string_type  
-      truename() const
-      { return do_truename(); }
-
-      string_type  
-      falsename() const
-      { return do_falsename(); }
-
-    protected:
-      virtual 
-      ~numpunct() { }
-
-      virtual char_type    
-      do_decimal_point() const
-      { return _M_decimal_point; }
-
-      virtual char_type    
-      do_thousands_sep() const
-      { return _M_thousands_sep; }
-
-      virtual string
-      do_grouping() const
-      { return _M_grouping; }
-
-      virtual string_type  
-      do_truename() const
-      { return _M_truename; }
-
-      virtual string_type  
-      do_falsename() const
-      { return _M_falsename; }
-
-      // For use at construction time only.
-      void 
-      _M_initialize_numpunct(__c_locale __cloc = NULL);
-    };
 
   template<typename _CharT>
-    locale::id numpunct<_CharT>::id;
-
-  template<typename _CharT>
-    void
-    numpunct<_CharT>::_M_initialize_numpunct(__c_locale /*__cloc*/)
-    { 
-      // NB: Cannot be made generic. 
-    }
-
-  template<> 
-    void
-    numpunct<char>::_M_initialize_numpunct(__c_locale __cloc);
-#ifdef _GLIBCPP_USE_WCHAR_T
-  template<> 
-    void
-    numpunct<wchar_t>::_M_initialize_numpunct(__c_locale __cloc);
-#endif
-
-
-  template<typename _CharT>
-    class numpunct_byname : public numpunct<_CharT>
+    class collate : public locale::facet
     {
-      __c_locale                       _M_c_locale_numpunct;
     public:
+      // Types:
       typedef _CharT                   char_type;
       typedef basic_string<_CharT>     string_type;
 
-      explicit 
-      numpunct_byname(const char* __s, size_t __refs = 0)
-      : numpunct<_CharT>(__refs)
-      {
-       _S_create_c_locale(_M_c_locale_numpunct, __s);
-       _M_initialize_numpunct(_M_c_locale_numpunct);   
-      }
-
     protected:
-      virtual 
-      ~numpunct_byname() 
-      { _S_destroy_c_locale(_M_c_locale_numpunct); }
-    };
-
-
-  template<typename _CharT>
-    class collate : public locale::facet
-    {
+      // Underlying "C" library locale information saved from
+      // initialization, needed by collate_byname as well.
+      __c_locale                       _M_c_locale_collate;
     public:
-      // Types:
-      typedef _CharT               char_type;
-      typedef basic_string<_CharT> string_type;
+      static locale::id                id;
 
-      static locale::id id;
+      explicit 
+      collate(size_t __refs = 0)
+      : locale::facet(__refs)
+      { _M_c_locale_collate = _S_c_locale; }
 
       explicit 
-      collate(size_t __refs = 0) : locale::facet(__refs) { }
+      collate(__c_locale __cloc, size_t __refs = 0) 
+      : locale::facet(__refs)
+      { _M_c_locale_collate = _S_clone_c_locale(__cloc); }
 
       int 
       compare(const _CharT* __lo1, const _CharT* __hi1,
@@ -920,8 +1081,17 @@ namespace std
       hash(const _CharT* __lo, const _CharT* __hi) const
       { return this->do_hash(__lo, __hi); }
       
+      // Used to abstract out _CharT bits in virtual member functions, below.
+      int
+      _M_compare(const _CharT*, const _CharT*) const;
+
+      size_t
+      _M_transform(_CharT*, const _CharT*, size_t) const;
+
   protected:
-      ~collate() { } // virtual
+      virtual
+      ~collate() 
+      { _S_destroy_c_locale(_M_c_locale_collate); }
 
       virtual int  
       do_compare(const _CharT* __lo1, const _CharT* __hi1,
@@ -937,58 +1107,45 @@ namespace std
   template<typename _CharT>
     locale::id collate<_CharT>::id;
 
-  // Required specializations.
+  // Specializations.
   template<>
     int 
-    collate<char>::do_compare(const char* __lo1, const char* __hi1, 
-                             const char* __lo2, const char* __hi2) const;
+    collate<char>::_M_compare(const char*, const char*) const;
 
   template<>
-    string
-    collate<char>::do_transform(const char* __lo, const char* __hi) const;
+    size_t
+    collate<char>::_M_transform(char*, const char*, size_t) const;
 
-  template<>
-    long
-    collate<char>::do_hash(const char* __lo, const char* __hi) const;
-#ifdef _GLIBCPP_USE_WCHAR_T
+#ifdef _GLIBCXX_USE_WCHAR_T
   template<>
     int 
-    collate<wchar_t>::do_compare(const wchar_t* __lo1, const wchar_t* __hi1, 
-                                const wchar_t* __lo2, 
-                                const wchar_t* __hi2) const;
+    collate<wchar_t>::_M_compare(const wchar_t*, const wchar_t*) const;
 
   template<>
-    wstring
-    collate<wchar_t>::do_transform(const wchar_t* __lo, 
-                                  const wchar_t* __hi) const;
-
-  template<>
-    long
-    collate<wchar_t>::do_hash(const wchar_t* __lo, const wchar_t* __hi) const;
+    size_t
+    collate<wchar_t>::_M_transform(wchar_t*, const wchar_t*, size_t) const;
 #endif
 
   template<typename _CharT>
     class collate_byname : public collate<_CharT>
     {
     public:
-      // Types:
       typedef _CharT               char_type;
       typedef basic_string<_CharT> string_type;
 
       explicit 
-      collate_byname(const char*, size_t __refs = 0);
+      collate_byname(const char* __s, size_t __refs = 0)
+      : collate<_CharT>(__refs) 
+      { 
+       _S_destroy_c_locale(this->_M_c_locale_collate);
+       _S_create_c_locale(this->_M_c_locale_collate, __s); 
+      }
 
     protected:
-      virtual 
+      virtual   
       ~collate_byname() { }
     };
 
-  template<>
-    collate_byname<char>::collate_byname(const char*, size_t __refs);
-#ifdef _GLIBCPP_USE_WCHAR_T
-  template<>
-    collate_byname<wchar_t>::collate_byname(const char*, size_t __refs);
-#endif
 
   class time_base
   {
@@ -996,86 +1153,315 @@ namespace std
     enum dateorder { no_order, dmy, mdy, ymd, ydm };
   };
 
+  template<typename _CharT>
+    class __timepunct : public locale::facet
+    {
+    public:
+      // Types:
+      typedef _CharT                   __char_type;
+      typedef basic_string<_CharT>     __string_type;
+
+      static locale::id                id;
+
+      // List of all known timezones, with GMT first.
+      static const _CharT*             _S_timezones[14];
+
+    protected:
+      __c_locale                       _M_c_locale_timepunct;
+      char*                            _M_name_timepunct;
+      const _CharT*                    _M_date_format;
+      const _CharT*                    _M_date_era_format;
+      const _CharT*                    _M_time_format;
+      const _CharT*                    _M_time_era_format;
+      const _CharT*                    _M_date_time_format;
+      const _CharT*                    _M_date_time_era_format;
+      const _CharT*                    _M_am;
+      const _CharT*                    _M_pm;
+      const _CharT*                    _M_am_pm_format;
+
+      // Day names, starting with "C"'s Sunday.
+      const _CharT*                    _M_day1;
+      const _CharT*                    _M_day2;
+      const _CharT*                    _M_day3;
+      const _CharT*                    _M_day4;
+      const _CharT*                    _M_day5;
+      const _CharT*                    _M_day6;
+      const _CharT*                    _M_day7;
+
+      // Abbreviated day names, starting with "C"'s Sun.
+      const _CharT*                    _M_day_a1;
+      const _CharT*                    _M_day_a2;
+      const _CharT*                    _M_day_a3;
+      const _CharT*                    _M_day_a4;
+      const _CharT*                    _M_day_a5;
+      const _CharT*                    _M_day_a6;
+      const _CharT*                    _M_day_a7;
+
+      // Month names, starting with "C"'s January.
+      const _CharT*                    _M_month01;
+      const _CharT*                    _M_month02;
+      const _CharT*                    _M_month03;
+      const _CharT*                    _M_month04;
+      const _CharT*                    _M_month05;
+      const _CharT*                    _M_month06;
+      const _CharT*                    _M_month07;
+      const _CharT*                    _M_month08;
+      const _CharT*                    _M_month09;
+      const _CharT*                    _M_month10;
+      const _CharT*                    _M_month11;
+      const _CharT*                    _M_month12;
+
+      // Abbreviated month names, starting with "C"'s Jan.
+      const _CharT*                    _M_month_a01;
+      const _CharT*                    _M_month_a02;
+      const _CharT*                    _M_month_a03;
+      const _CharT*                    _M_month_a04;
+      const _CharT*                    _M_month_a05;
+      const _CharT*                    _M_month_a06;
+      const _CharT*                    _M_month_a07;
+      const _CharT*                    _M_month_a08;
+      const _CharT*                    _M_month_a09;
+      const _CharT*                    _M_month_a10;
+      const _CharT*                    _M_month_a11;
+      const _CharT*                    _M_month_a12;
+
+    public:
+      explicit 
+      __timepunct(size_t __refs = 0);
+
+      explicit 
+      __timepunct(__c_locale __cloc, const char* __s, size_t __refs = 0);
+
+      void
+      _M_put(_CharT* __s, size_t __maxlen, const _CharT* __format, 
+            const tm* __tm) const;
+
+      void
+      _M_date_formats(const _CharT** __date) const
+      {
+       // Always have default first.
+       __date[0] = _M_date_format;
+       __date[1] = _M_date_era_format; 
+      }
+
+      void
+      _M_time_formats(const _CharT** __time) const
+      {
+       // Always have default first.
+       __time[0] = _M_time_format;
+       __time[1] = _M_time_era_format; 
+      }
+
+      void
+      _M_ampm(const _CharT** __ampm) const
+      { 
+       __ampm[0] = _M_am;
+       __ampm[1] = _M_pm;
+      }      
+
+      void
+      _M_date_time_formats(const _CharT** __dt) const
+      {
+       // Always have default first.
+       __dt[0] = _M_date_time_format;
+       __dt[1] = _M_date_time_era_format;      
+      }
+
+      void
+      _M_days(const _CharT** __days) const
+      { 
+       __days[0] = _M_day1;
+       __days[1] = _M_day2;
+       __days[2] = _M_day3;
+       __days[3] = _M_day4;
+       __days[4] = _M_day5;
+       __days[5] = _M_day6;
+       __days[6] = _M_day7;
+      }
+
+      void
+      _M_days_abbreviated(const _CharT** __days) const
+      { 
+       __days[0] = _M_day_a1;
+       __days[1] = _M_day_a2;
+       __days[2] = _M_day_a3;
+       __days[3] = _M_day_a4;
+       __days[4] = _M_day_a5;
+       __days[5] = _M_day_a6;
+       __days[6] = _M_day_a7;
+      }
+
+      void
+      _M_months(const _CharT** __months) const
+      { 
+       __months[0] = _M_month01;
+       __months[1] = _M_month02;
+       __months[2] = _M_month03;
+       __months[3] = _M_month04;
+       __months[4] = _M_month05;
+       __months[5] = _M_month06;
+       __months[6] = _M_month07;
+       __months[7] = _M_month08;
+       __months[8] = _M_month09;
+       __months[9] = _M_month10;
+       __months[10] = _M_month11;
+       __months[11] = _M_month12;
+      }
+
+      void
+      _M_months_abbreviated(const _CharT** __months) const
+      { 
+       __months[0] = _M_month_a01;
+       __months[1] = _M_month_a02;
+       __months[2] = _M_month_a03;
+       __months[3] = _M_month_a04;
+       __months[4] = _M_month_a05;
+       __months[5] = _M_month_a06;
+       __months[6] = _M_month_a07;
+       __months[7] = _M_month_a08;
+       __months[8] = _M_month_a09;
+       __months[9] = _M_month_a10;
+       __months[10] = _M_month_a11;
+       __months[11] = _M_month_a12;
+      }
+
+    protected:
+      virtual 
+      ~__timepunct();
+
+      // For use at construction time only.
+      void 
+      _M_initialize_timepunct(__c_locale __cloc = NULL);
+    };
+
+  template<typename _CharT>
+    locale::id __timepunct<_CharT>::id;
+
+  // Specializations.
+  template<> 
+    const char*
+    __timepunct<char>::_S_timezones[14];
+
+  template<> 
+    void
+    __timepunct<char>::_M_initialize_timepunct(__c_locale __cloc);
+
+  template<>
+    void
+    __timepunct<char>::_M_put(char*, size_t, const char*, const tm*) const;
+
+#ifdef _GLIBCXX_USE_WCHAR_T
+  template<> 
+    const wchar_t*
+    __timepunct<wchar_t>::_S_timezones[14];
+
+  template<> 
+    void
+    __timepunct<wchar_t>::_M_initialize_timepunct(__c_locale __cloc);
+
+  template<>
+    void
+    __timepunct<wchar_t>::_M_put(wchar_t*, size_t, const wchar_t*, 
+                                const tm*) const;
+#endif
+
+  // Generic.
+  template<typename _CharT>
+    const _CharT* __timepunct<_CharT>::_S_timezones[14];
+
+  // Include host and configuration specific timepunct functions.
+  #include <bits/time_members.h>
+
   template<typename _CharT, typename _InIter>
     class time_get : public locale::facet, public time_base
     {
     public:
       // Types:
-      typedef _CharT     char_type;
-      typedef _InIter    iter_type;
+      typedef _CharT                   char_type;
+      typedef _InIter                  iter_type;
+      typedef basic_string<_CharT>     __string_type;
 
-      static locale::id id;
+      static locale::id                id;
 
       explicit 
       time_get(size_t __refs = 0) 
-      : locale::facet (__refs), _M_daynames(0), _M_monthnames(0) { }
+      : locale::facet (__refs) { }
 
       dateorder 
       date_order()  const
-      { return do_date_order(); }
+      { return this->do_date_order(); }
 
       iter_type 
-      get_time(iter_type __s, iter_type __end, ios_base& __f
-              ios_base::iostate& __err, tm* __t)  const
-      { return do_get_time(__s, __end, __f, __err, __t); }
+      get_time(iter_type __beg, iter_type __end, ios_base& __io
+              ios_base::iostate& __err, tm* __tm)  const
+      { return this->do_get_time(__beg, __end, __io, __err, __tm); }
 
       iter_type 
-      get_date(iter_type __s, iter_type __end, ios_base& __f,
-              ios_base::iostate& __err, tm* __t)  const
-      { return do_get_date(__s, __end, __f, __err, __t); }
+      get_date(iter_type __beg, iter_type __end, ios_base& __io,
+              ios_base::iostate& __err, tm* __tm)  const
+      { return this->do_get_date(__beg, __end, __io, __err, __tm); }
 
       iter_type 
-      get_weekday(iter_type __s, iter_type __end, ios_base& __f,
-                 ios_base::iostate& __err, tm* __t) const
-      { return do_get_weekday(__s,__end,__f,__err,__t); }
+      get_weekday(iter_type __beg, iter_type __end, ios_base& __io,
+                 ios_base::iostate& __err, tm* __tm) const
+      { return this->do_get_weekday(__beg, __end, __io, __err, __tm); }
 
       iter_type 
-      get_monthname(iter_type __s, iter_type __end, ios_base& __f
-                   ios_base::iostate& __err, tm* __t) const
-      { return do_get_monthname(__s,__end,__f,__err,__t); }
+      get_monthname(iter_type __beg, iter_type __end, ios_base& __io
+                   ios_base::iostate& __err, tm* __tm) const
+      { return this->do_get_monthname(__beg, __end, __io, __err, __tm); }
 
       iter_type 
-      get_year(iter_type __s, iter_type __end, ios_base& __f,
-              ios_base::iostate& __err, tm* __t) const
-      { return do_get_year(__s,__end,__f,__err,__t); }
+      get_year(iter_type __beg, iter_type __end, ios_base& __io,
+              ios_base::iostate& __err, tm* __tm) const
+      { return this->do_get_year(__beg, __end, __io, __err, __tm); }
 
     protected:
       virtual 
-      ~time_get() 
-      {      
-       delete [] _M_monthnames; 
-       delete [] _M_daynames; 
-      }
+      ~time_get() { }
 
       virtual dateorder 
-      do_date_order()  const
-      { return time_base::ymd; }
+      do_date_order() const;
 
       virtual iter_type 
-      do_get_time(iter_type __s, iter_type /*__end*/, ios_base&,
-                 ios_base::iostate& /*__err*/, tm* /*__t*/) const
-      { return __s; }
+      do_get_time(iter_type __beg, iter_type __end, ios_base& __io,
+                 ios_base::iostate& __err, tm* __tm) const;
 
       virtual iter_type 
-      do_get_date(iter_type __s, iter_type /*__end*/, ios_base&,
-                 ios_base::iostate& /*__err*/, tm* /*__t*/) const
-      { return __s; }
+      do_get_date(iter_type __beg, iter_type __end, ios_base& __io,
+                 ios_base::iostate& __err, tm* __tm) const;
 
       virtual iter_type 
-      do_get_weekday(iter_type __s, iter_type __end, ios_base&,
-                    ios_base::iostate& __err, tm* __t) const;
+      do_get_weekday(iter_type __beg, iter_type __end, ios_base&,
+                    ios_base::iostate& __err, tm* __tm) const;
 
       virtual iter_type 
-      do_get_monthname(iter_type __s, iter_type __end, ios_base&, 
-                      ios_base::iostate& __err, tm* __t) const;
+      do_get_monthname(iter_type __beg, iter_type __end, ios_base&, 
+                      ios_base::iostate& __err, tm* __tm) const;
 
       virtual iter_type 
-      do_get_year(iter_type __s, iter_type /*__end*/, ios_base&,
-                  ios_base::iostate& /*__err*/, tm* /*__t*/) const
-      { return __s; }
-
-      mutable basic_string<_CharT>* _M_daynames;
-      mutable basic_string<_CharT>* _M_monthnames;
+      do_get_year(iter_type __beg, iter_type __end, ios_base& __io,
+                 ios_base::iostate& __err, tm* __tm) const;
+
+      // Extract numeric component of length __len.
+      void
+      _M_extract_num(iter_type& __beg, iter_type& __end, int& __member,
+                    int __min, int __max, size_t __len,
+                    const ctype<_CharT>& __ctype, 
+                    ios_base::iostate& __err) const;
+      
+      // Extract day or month name, or any unique array of string
+      // literals in a const _CharT* array.
+      void
+      _M_extract_name(iter_type& __beg, iter_type& __end, int& __member,
+                     const _CharT** __names, size_t __indexlen, 
+                     ios_base::iostate& __err) const;
+
+      // Extract on a component-by-component basis, via __format argument.
+      void
+      _M_extract_via_format(iter_type& __beg, iter_type& __end, ios_base& __io,
+                           ios_base::iostate& __err, tm* __tm, 
+                           const _CharT* __format) const;
     };
 
   template<typename _CharT, typename _InIter>
@@ -1085,12 +1471,14 @@ namespace std
     class time_get_byname : public time_get<_CharT, _InIter>
     {
     public:
-      typedef _CharT     char_type;
-      typedef _InIter    iter_type;
+      // Types:
+      typedef _CharT                   char_type;
+      typedef _InIter                  iter_type;
 
       explicit 
       time_get_byname(const char*, size_t __refs = 0) 
       : time_get<_CharT, _InIter>(__refs) { }
+
     protected:
       virtual 
       ~time_get_byname() { }
@@ -1100,34 +1488,33 @@ namespace std
     class time_put : public locale::facet, public time_base
     {
     public:
-      typedef _CharT     char_type;
-      typedef _OutIter   iter_type;
+      // Types:
+      typedef _CharT                   char_type;
+      typedef _OutIter                 iter_type;
 
-      static locale::id id;
+      static locale::id                id;
 
       explicit 
-      time_put(size_t __refs = 0) : locale::facet (__refs) { }
+      time_put(size_t __refs = 0) 
+      : locale::facet(__refs) { }
 
-      // NB: this is a nonvirtual, calls do_put in a loop.
       iter_type 
-      put(iter_type __s, ios_base& /*__f*/, char_type /*__fill*/,
-          const tm* /*__tmb*/, const _CharT* /*__pattern*/,
-          const _CharT* /*__pat_end*/) const
-      { return __s; }
+      put(iter_type __s, ios_base& __io, char_type __fill, const tm* __tm, 
+         const _CharT* __beg, const _CharT* __end) const;
 
       iter_type 
-      put(iter_type __s, ios_base& __f, char_type __fill,
-         const tm* __tmb, char __format, char __modifier = 0) const
-      { return do_put(__s, __f, __fill, __tmb, __format, __modifier); }
+      put(iter_type __s, ios_base& __io, char_type __fill,
+         const tm* __tm, char __format, char __mod = 0) const
+      { return this->do_put(__s, __io, __fill, __tm, __format, __mod); }
 
     protected:
       virtual 
-      ~time_put() { }
+      ~time_put()
+      { }
 
       virtual iter_type 
-      do_put(iter_type __s, ios_base&, char_type, const tm* /*__t*/, 
-            char /*__format*/, char /*__mod*/) const
-      { return __s; }
+      do_put(iter_type __s, ios_base& __io, char_type __fill, const tm* __tm, 
+            char __format, char __mod) const;
     };
 
   template<typename _CharT, typename _OutIter>
@@ -1137,12 +1524,14 @@ namespace std
     class time_put_byname : public time_put<_CharT, _OutIter>
     {
     public:
-      typedef _CharT     char_type;
-      typedef _OutIter   iter_type;
+      // Types:
+      typedef _CharT                   char_type;
+      typedef _OutIter                 iter_type;
 
       explicit 
-      time_put_byname(const char*, size_t __refs = 0) 
-      : time_put<_CharT, _OutIter> (__refs) { }
+      time_put_byname(const char* /*__s*/, size_t __refs = 0) 
+      : time_put<_CharT, _OutIter>(__refs) 
+      { };
 
     protected:
       virtual 
@@ -1150,92 +1539,9 @@ namespace std
     };
 
 
-  template<typename _CharT, typename _InIter>
-    class money_get : public locale::facet
-    {
-    public:
-      typedef _CharT        char_type;
-      typedef _InIter       iter_type;
-      typedef basic_string<_CharT> string_type;
-
-      static locale::id id;
-
-      explicit 
-      money_get(size_t __refs = 0) : locale::facet(__refs) { }
-
-      iter_type 
-      get(iter_type __s, iter_type __end, bool __intl,
-         ios_base& __f, ios_base::iostate& __err, long double& __units) const
-      { return do_get(__s, __end, __intl, __f, __err, __units); }
-
-      iter_type 
-      get(iter_type __s, iter_type __end, bool __intl, ios_base& __f, 
-          ios_base::iostate& __err, string_type& __digits) const
-      { return do_get(__s, __end, __intl, __f, __err, __digits); }
-
-    protected:
-      virtual 
-      ~money_get() { }
-
-      virtual iter_type 
-      do_get(iter_type __s, iter_type /*__end*/, bool /*__intl*/,
-             ios_base& /*__io*/, ios_base::iostate& /*__err*/,
-             long double& /*__units*/) const
-      { return __s; }
-
-      virtual iter_type 
-      do_get(iter_type __s, iter_type /*__end*/, bool /*__intl*/,
-             ios_base& /*__io*/, ios_base::iostate& /*__err*/,
-             string_type& /*__digits*/) const
-      { return __s; }
-    };
-
-  template<typename _CharT, typename _InIter>
-    locale::id money_get<_CharT, _InIter>::id;
-
-  template<typename _CharT, typename _OutIter>
-    class money_put : public locale::facet
-    {
-    public:
-      typedef _CharT              char_type;
-      typedef _OutIter            iter_type;
-      typedef basic_string<_CharT> string_type;
-
-      static locale::id id;
-
-      explicit 
-      money_put(size_t __refs = 0) : locale::facet(__refs) { }
-
-      iter_type 
-      put(iter_type __s, bool __intl, ios_base& __f,
-         char_type __fill, long double __units) const
-      { return do_put(__s, __intl, __f, __fill, __units); }
-
-      iter_type 
-      put(iter_type __s, bool __intl, ios_base& __f,
-         char_type __fill, const string_type& __digits) const
-      { return do_put(__s, __intl, __f, __fill, __digits); }
-
-    protected:
-      virtual 
-      ~money_put() { }
-
-      virtual iter_type
-      do_put(iter_type __s, bool, ios_base& /*__io*/, char_type /*__fill*/,
-            long double /*__units*/) const
-      { return __s; }
-
-      virtual iter_type
-      do_put(iter_type __s, bool, ios_base& /*__io*/, char_type /*__fill*/,
-            const string_type& /*__digits*/) const
-      { return __s; }
-    };
-
-  template<typename _CharT, typename _OutIter>
-    locale::id money_put<_CharT, _OutIter>::id;
-
-  struct money_base
+  class money_base
   {
+  public:
     enum part { none, space, symbol, sign, value };
     struct pattern { char field[4]; };
 
@@ -1244,7 +1550,7 @@ namespace std
     // Construct and return valid pattern consisting of some combination of:
     // space none symbol sign value
     static pattern 
-    _S_construct_pattern(char __preceeds, char __space, char __posn);
+    _S_construct_pattern(char __precedes, char __space, char __posn);
   };
 
   template<typename _CharT, bool _Intl>
@@ -1255,19 +1561,19 @@ namespace std
       typedef _CharT                   char_type;
       typedef basic_string<_CharT>     string_type;
 
-      static const bool intl = _Intl;
-      static locale::id id;
+      static const bool                intl = _Intl;
+      static locale::id                id;
 
     private:
-      char_type        _M_decimal_point;
-      char_type        _M_thousands_sep;
-      string           _M_grouping;
-      string_type      _M_curr_symbol;
-      string_type      _M_positive_sign;
-      string_type      _M_negative_sign;
-      int              _M_frac_digits;
-      pattern          _M_pos_format;
-      pattern          _M_neg_format;
+      const char*                      _M_grouping;
+      char_type                        _M_decimal_point;
+      char_type                        _M_thousands_sep;
+      const char_type*                         _M_curr_symbol;
+      const char_type*                 _M_positive_sign;
+      const char_type*                 _M_negative_sign;
+      int                              _M_frac_digits;
+      pattern                          _M_pos_format;
+      pattern                          _M_neg_format;
 
     public:
       explicit 
@@ -1275,8 +1581,9 @@ namespace std
       { _M_initialize_moneypunct(); }
 
       explicit 
-      moneypunct(__c_locale __cloc, size_t __refs = 0) : locale::facet(__refs)
-      { _M_initialize_moneypunct(__cloc); }
+      moneypunct(__c_locale __cloc, const char* __s, size_t __refs = 0) 
+      : locale::facet(__refs)
+      { _M_initialize_moneypunct(__cloc, __s); }
 
       char_type
       decimal_point() const
@@ -1316,7 +1623,7 @@ namespace std
 
     protected:
       virtual 
-      ~moneypunct() { }
+      ~moneypunct();
 
       virtual char_type
       do_decimal_point() const
@@ -1355,8 +1662,9 @@ namespace std
       { return _M_neg_format; }
 
       // For use at construction time only.
-      void 
-      _M_initialize_moneypunct(__c_locale __cloc = NULL);
+       void 
+       _M_initialize_moneypunct(__c_locale __cloc = NULL, 
+                               const char* __name = NULL);
     };
 
   template<typename _CharT, bool _Intl>
@@ -1365,26 +1673,43 @@ namespace std
   template<typename _CharT, bool _Intl>
     const bool moneypunct<_CharT, _Intl>::intl;
 
-  template<typename _CharT, bool _Intl>
+  template<>
+    moneypunct<char, true>::~moneypunct();
+
+  template<>
+    moneypunct<char, false>::~moneypunct();
+
+  template<> 
     void
-    moneypunct<_CharT, _Intl>::_M_initialize_moneypunct(__c_locale /*__cloc*/)
-    { 
-      // NB: Cannot be made generic. 
-    }
+    moneypunct<char, true>::_M_initialize_moneypunct(__c_locale, const char*);
 
   template<> 
     void
-    moneypunct<char>::_M_initialize_moneypunct(__c_locale __cloc);
-#ifdef _GLIBCPP_USE_WCHAR_T
+    moneypunct<char, false>::_M_initialize_moneypunct(__c_locale, const char*);
+
+#ifdef _GLIBCXX_USE_WCHAR_T
+  template<>
+    moneypunct<wchar_t, true>::~moneypunct();
+
+  template<>
+    moneypunct<wchar_t, false>::~moneypunct();
+
+  template<> 
+    void
+    moneypunct<wchar_t, true>::_M_initialize_moneypunct(__c_locale, 
+                                                       const char*);
+
   template<> 
     void
-    moneypunct<wchar_t>::_M_initialize_moneypunct(__c_locale __cloc);
+    moneypunct<wchar_t, false>::_M_initialize_moneypunct(__c_locale, 
+                                                        const char*);
 #endif
 
   template<typename _CharT, bool _Intl>
     class moneypunct_byname : public moneypunct<_CharT, _Intl>
     {
       __c_locale                       _M_c_locale_moneypunct;
+
     public:
       typedef _CharT                   char_type;
       typedef basic_string<_CharT>     string_type;
@@ -1408,6 +1733,85 @@ namespace std
   template<typename _CharT, bool _Intl>
     const bool moneypunct_byname<_CharT, _Intl>::intl;
 
+  template<typename _CharT, typename _InIter>
+    class money_get : public locale::facet
+    {
+    public:
+      // Types:
+      typedef _CharT                   char_type;
+      typedef _InIter                  iter_type;
+      typedef basic_string<_CharT>     string_type;
+
+      static locale::id                id;
+
+      explicit 
+      money_get(size_t __refs = 0) : locale::facet(__refs) { }
+
+      iter_type 
+      get(iter_type __s, iter_type __end, bool __intl, ios_base& __io, 
+         ios_base::iostate& __err, long double& __units) const
+      { return this->do_get(__s, __end, __intl, __io, __err, __units); }
+
+      iter_type 
+      get(iter_type __s, iter_type __end, bool __intl, ios_base& __io, 
+         ios_base::iostate& __err, string_type& __digits) const
+      { return this->do_get(__s, __end, __intl, __io, __err, __digits); }
+
+    protected:
+      virtual 
+      ~money_get() { }
+
+      virtual iter_type 
+      do_get(iter_type __s, iter_type __end, bool __intl, ios_base& __io, 
+            ios_base::iostate& __err, long double& __units) const;
+
+      virtual iter_type 
+      do_get(iter_type __s, iter_type __end, bool __intl, ios_base& __io, 
+            ios_base::iostate& __err, string_type& __digits) const;
+    };
+
+  template<typename _CharT, typename _InIter>
+    locale::id money_get<_CharT, _InIter>::id;
+
+  template<typename _CharT, typename _OutIter>
+    class money_put : public locale::facet
+    {
+    public:
+      typedef _CharT                   char_type;
+      typedef _OutIter                 iter_type;
+      typedef basic_string<_CharT>     string_type;
+
+      static locale::id                id;
+
+      explicit 
+      money_put(size_t __refs = 0) : locale::facet(__refs) { }
+
+      iter_type 
+      put(iter_type __s, bool __intl, ios_base& __io,
+         char_type __fill, long double __units) const
+      { return this->do_put(__s, __intl, __io, __fill, __units); }
+
+      iter_type 
+      put(iter_type __s, bool __intl, ios_base& __io,
+         char_type __fill, const string_type& __digits) const
+      { return this->do_put(__s, __intl, __io, __fill, __digits); }
+
+    protected:
+      virtual 
+      ~money_put() { }
+
+      virtual iter_type
+      do_put(iter_type __s, bool __intl, ios_base& __io, char_type __fill,
+            long double __units) const;
+
+      virtual iter_type
+      do_put(iter_type __s, bool __intl, ios_base& __io, char_type __fill,
+            const string_type& __digits) const;
+    };
+
+  template<typename _CharT, typename _OutIter>
+    locale::id money_put<_CharT, _OutIter>::id;
+
 
   struct messages_base
   {
@@ -1418,73 +1822,142 @@ namespace std
     class messages : public locale::facet, public messages_base
     {
     public:
+      // Types:
       typedef _CharT                   char_type;
       typedef basic_string<_CharT>     string_type;
 
-      static locale::id id;
+    protected:
+      // Underlying "C" library locale information saved from
+      // initialization, needed by messages_byname as well.
+      __c_locale                       _M_c_locale_messages;
+      char*                            _M_name_messages;
 
+    public:
+      static locale::id                id;
+
+      explicit 
+      messages(size_t __refs = 0);
+
+      // Non-standard.
       explicit 
-      messages(size_t __refs = 0) : locale::facet(__refs) { }
+      messages(__c_locale __cloc, const char* __s, size_t __refs = 0);
 
       catalog 
       open(const basic_string<char>& __s, const locale& __loc) const
-      { return do_open(__s, __loc); }
+      { return this->do_open(__s, __loc); }
+
+      // Non-standard and unorthodox, yet effective.
+      catalog 
+      open(const basic_string<char>&, const locale&, const char*) const;
 
       string_type  
       get(catalog __c, int __set, int __msgid, const string_type& __s) const
-      { return do_get(__c,__set,__msgid,__s); }
+      { return this->do_get(__c, __set, __msgid, __s); }
 
       void 
       close(catalog __c) const
-      { return do_close(__c); }
+      { return this->do_close(__c); }
 
     protected:
       virtual 
-      ~messages() { }
+      ~messages();
 
-      // NB: Probably these should be pure, and implemented only in
-      //  specializations of messages<>.  But for now...
       virtual catalog 
-      do_open(const basic_string<char>&, const locale&) const
-      { return 0; }
+      do_open(const basic_string<char>&, const locale&) const;
 
       virtual string_type  
-      do_get(catalog, int, int /*__msgid*/, const string_type& __dfault) const
-      { return __dfault; }
+      do_get(catalog, int, int, const string_type& __dfault) const;
 
       virtual void    
-      do_close(catalog) const { }
-    };
+      do_close(catalog) const;
+
+      // Returns a locale and codeset-converted string, given a char* message.
+      char*
+      _M_convert_to_char(const string_type& __msg) const
+      {
+       // XXX
+       return reinterpret_cast<char*>(const_cast<_CharT*>(__msg.c_str()));
+      }
+
+      // Returns a locale and codeset-converted string, given a char* message.
+      string_type
+      _M_convert_from_char(char* __msg) const
+      {
+       // Length of message string without terminating null.
+       size_t __len = char_traits<char>::length(__msg) - 1;
+
+       // "everybody can easily convert the string using
+       // mbsrtowcs/wcsrtombs or with iconv()"
+#if 0
+       // Convert char* to _CharT in locale used to open catalog.
+       // XXX need additional template parameter on messages class for this..
+       // typedef typename codecvt<char, _CharT, _StateT> __codecvt_type;
+       typedef typename codecvt<char, _CharT, mbstate_t> __codecvt_type;      
+
+       __codecvt_type::state_type __state;
+       // XXX may need to initialize state.
+       //initialize_state(__state._M_init());
+       
+       char* __from_next;
+       // XXX what size for this string?
+       _CharT* __to = static_cast<_CharT*>(__builtin_alloca(__len + 1));
+       const __codecvt_type& __cvt = use_facet<__codecvt_type>(_M_locale_conv);
+       __cvt.out(__state, __msg, __msg + __len, __from_next,
+                 __to, __to + __len + 1, __to_next);
+       return string_type(__to);
+#endif
+#if 0
+       typedef ctype<_CharT> __ctype_type;
+       // const __ctype_type& __cvt = use_facet<__ctype_type>(_M_locale_msg);
+       const __ctype_type& __cvt = use_facet<__ctype_type>(locale());
+       // XXX Again, proper length of converted string an issue here.
+       // For now, assume the converted length is not larger.
+       _CharT* __dest = static_cast<_CharT*>(__builtin_alloca(__len + 1));
+       __cvt.widen(__msg, __msg + __len, __dest);
+       return basic_string<_CharT>(__dest);
+#endif
+       return string_type();
+      }
+     };
 
   template<typename _CharT>
     locale::id messages<_CharT>::id;
 
+  // Specializations for required instantiations.
+  template<>
+    string
+    messages<char>::do_get(catalog, int, int, const string&) const;
+
+#ifdef _GLIBCXX_USE_WCHAR_T
+  template<>
+    wstring
+    messages<wchar_t>::do_get(catalog, int, int, const wstring&) const;
+#endif
+
   template<typename _CharT>
     class messages_byname : public messages<_CharT>
     {
     public:
-      typedef _CharT char_type;
-      typedef basic_string<_CharT> string_type;
+      typedef _CharT                   char_type;
+      typedef basic_string<_CharT>     string_type;
 
       explicit 
-      messages_byname(const char*, size_t __refs = 0);
+      messages_byname(const char* __s, size_t __refs = 0);
 
     protected:
       virtual 
-      ~messages_byname() { }
+      ~messages_byname() 
+      { }
     };
 
-  template<>
-    messages_byname<char>::messages_byname(const char*, size_t __refs);
-#ifdef _GLIBCPP_USE_WCHAR_T
-  template<>
-    messages_byname<wchar_t>::messages_byname(const char*, size_t __refs);
-#endif
+  // Include host and configuration specific messages functions.
+  #include <bits/messages_members.h>
+
 
-  // Subclause convenience interfaces, inlines 
-  // NB: these are inline
-  // because, when used in a loop, some compilers can hoist the body
-  // out of the loop; then it's just as fast as the C is*() function.
+  // Subclause convenience interfaces, inlines.
+  // NB: These are inline because, when used in a loop, some compilers
+  // can hoist the body out of the loop; then it's just as fast as the
+  // C is*() function.
   template<typename _CharT>
     inline bool 
     isspace(_CharT __c, const locale& __loc)
@@ -1550,8 +2023,4 @@ namespace std
     { return use_facet<ctype<_CharT> >(__loc).tolower(__c); }
 } // namespace std
 
-#endif /* _CPP_BITS_LOCFACETS_H */
-
-// Local Variables:
-// mode:c++
-// End:
+#endif