OSDN Git Service

96fc3a0da35d5ffe7b7359877e138e31b06704e1
[pf3gnuchains/gcc-fork.git] / libstdc++-v3 / include / bits / locale_facets.h
1 // Locale support -*- C++ -*-
2
3 // Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003
4 // Free Software Foundation, Inc.
5 //
6 // This file is part of the GNU ISO C++ Library.  This library is free
7 // software; you can redistribute it and/or modify it under the
8 // terms of the GNU General Public License as published by the
9 // Free Software Foundation; either version 2, or (at your option)
10 // any later version.
11
12 // This library is distributed in the hope that it will be useful,
13 // but WITHOUT ANY WARRANTY; without even the implied warranty of
14 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15 // GNU General Public License for more details.
16
17 // You should have received a copy of the GNU General Public License along
18 // with this library; see the file COPYING.  If not, write to the Free
19 // Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307,
20 // USA.
21
22 // As a special exception, you may use this file as part of a free software
23 // library without restriction.  Specifically, if other files instantiate
24 // templates or use macros or inline functions from this file, or you compile
25 // this file and link it with other files to produce an executable, this
26 // file does not by itself cause the resulting executable to be covered by
27 // the GNU General Public License.  This exception does not however
28 // invalidate any other reasons why the executable file might be covered by
29 // the GNU General Public License.
30
31 //
32 // ISO C++ 14882: 22.1  Locales
33 //
34
35 /** @file locale_facets.h
36  *  This is an internal header file, included by other library headers.
37  *  You should not attempt to use it directly.
38  */
39
40 #ifndef _LOCALE_FACETS_H
41 #define _LOCALE_FACETS_H 1
42
43 #pragma GCC system_header
44
45 #include <ctime>        // For struct tm
46 #include <cwctype>      // For wctype_t
47 #include <iosfwd>
48 #include <bits/ios_base.h>  // For ios_base, ios_base::iostate
49 #include <streambuf>
50
51 namespace std
52 {
53   // NB: Don't instantiate required wchar_t facets if no wchar_t support.
54 #ifdef _GLIBCXX_USE_WCHAR_T
55 # define  _GLIBCXX_NUM_FACETS 28
56 #else
57 # define  _GLIBCXX_NUM_FACETS 14
58 #endif
59
60   // Convert string to numeric value of type _Tv and store results.  
61   // NB: This is specialized for all required types, there is no
62   // generic definition.
63   template<typename _Tv>
64     void
65     __convert_to_v(const char* __in, _Tv& __out, ios_base::iostate& __err, 
66                    const __c_locale& __cloc, int __base = 10);
67
68   // Explicit specializations for required types.
69   template<>
70     void
71     __convert_to_v(const char*, long&, ios_base::iostate&, 
72                    const __c_locale&, int);
73
74   template<>
75     void
76     __convert_to_v(const char*, unsigned long&, ios_base::iostate&, 
77                    const __c_locale&, int);
78
79 #ifdef _GLIBCXX_USE_LONG_LONG
80   template<>
81     void
82     __convert_to_v(const char*, long long&, ios_base::iostate&, 
83                    const __c_locale&, int);
84
85   template<>
86     void
87     __convert_to_v(const char*, unsigned long long&, ios_base::iostate&, 
88                    const __c_locale&, int);
89 #endif
90
91   template<>
92     void
93     __convert_to_v(const char*, float&, ios_base::iostate&, 
94                    const __c_locale&, int);
95
96   template<>
97     void
98     __convert_to_v(const char*, double&, ios_base::iostate&, 
99                    const __c_locale&, int);
100
101  template<>
102     void
103     __convert_to_v(const char*, long double&, ios_base::iostate&, 
104                    const __c_locale&, int);
105
106   // NB: __pad is a struct, rather than a function, so it can be
107   // partially-specialized.
108   template<typename _CharT, typename _Traits>
109     struct __pad
110     {
111       static void
112       _S_pad(ios_base& __io, _CharT __fill, _CharT* __news, 
113              const _CharT* __olds, const streamsize __newlen, 
114              const streamsize __oldlen, const bool __num);
115     };
116
117   // Used by both numeric and monetary facets.
118   // Check to make sure that the __grouping_tmp string constructed in
119   // money_get or num_get matches the canonical grouping for a given
120   // locale.
121   // __grouping_tmp is parsed L to R
122   // 1,222,444 == __grouping_tmp of "\1\3\3"
123   // __grouping is parsed R to L
124   // 1,222,444 == __grouping of "\3" == "\3\3\3"
125   template<typename _CharT>
126     bool
127     __verify_grouping(const basic_string<_CharT>& __grouping, 
128                       basic_string<_CharT>& __grouping_tmp);
129
130   // Used by both numeric and monetary facets.
131   // Inserts "group separator" characters into an array of characters.
132   // It's recursive, one iteration per group.  It moves the characters
133   // in the buffer this way: "xxxx12345" -> "12,345xxx".  Call this
134   // only with __gbeg != __gend.
135   template<typename _CharT>
136     _CharT*
137     __add_grouping(_CharT* __s, _CharT __sep,  
138                    const char* __gbeg, const char* __gend, 
139                    const _CharT* __first, const _CharT* __last);
140
141   // This template permits specializing facet output code for
142   // ostreambuf_iterator.  For ostreambuf_iterator, sputn is
143   // significantly more efficient than incrementing iterators.
144   template<typename _CharT>
145     inline
146     ostreambuf_iterator<_CharT>
147     __write(ostreambuf_iterator<_CharT> __s, const _CharT* __ws, int __len)
148     {
149       __s._M_put(__ws, __len);
150       return __s;
151     }
152
153   // This is the unspecialized form of the template.
154   template<typename _CharT, typename _OutIter>
155     inline
156     _OutIter
157     __write(_OutIter __s, const _CharT* __ws, int __len)
158     {
159       for (int __j = 0; __j < __len; __j++, ++__s)
160         *__s = __ws[__j];
161       return __s;
162     }
163
164
165   // 22.2.1.1  Template class ctype
166   // Include host and configuration specific ctype enums for ctype_base.
167   #include <bits/ctype_base.h>
168
169   // Common base for ctype<_CharT>.  
170   template<typename _CharT>
171     class __ctype_abstract_base : public locale::facet, public ctype_base
172     {
173     public:
174       // Types:
175       typedef _CharT char_type;
176
177       bool 
178       is(mask __m, char_type __c) const
179       { return this->do_is(__m, __c); }
180
181       const char_type*
182       is(const char_type *__lo, const char_type *__hi, mask *__vec) const   
183       { return this->do_is(__lo, __hi, __vec); }
184
185       const char_type*
186       scan_is(mask __m, const char_type* __lo, const char_type* __hi) const
187       { return this->do_scan_is(__m, __lo, __hi); }
188
189       const char_type*
190       scan_not(mask __m, const char_type* __lo, const char_type* __hi) const
191       { return this->do_scan_not(__m, __lo, __hi); }
192
193       char_type 
194       toupper(char_type __c) const
195       { return this->do_toupper(__c); }
196
197       const char_type*
198       toupper(char_type *__lo, const char_type* __hi) const
199       { return this->do_toupper(__lo, __hi); }
200
201       char_type 
202       tolower(char_type __c) const
203       { return this->do_tolower(__c); }
204
205       const char_type*
206       tolower(char_type* __lo, const char_type* __hi) const
207       { return this->do_tolower(__lo, __hi); }
208
209       char_type 
210       widen(char __c) const
211       { return this->do_widen(__c); }
212
213       const char*
214       widen(const char* __lo, const char* __hi, char_type* __to) const
215       { return this->do_widen(__lo, __hi, __to); }
216
217       char 
218       narrow(char_type __c, char __dfault) const
219       { return this->do_narrow(__c, __dfault); }
220
221       const char_type*
222       narrow(const char_type* __lo, const char_type* __hi,
223               char __dfault, char *__to) const
224       { return this->do_narrow(__lo, __hi, __dfault, __to); }
225
226     protected:
227       explicit 
228       __ctype_abstract_base(size_t __refs = 0): facet(__refs) { }
229
230       virtual 
231       ~__ctype_abstract_base() { }
232       
233       virtual bool 
234       do_is(mask __m, char_type __c) const = 0;
235
236       virtual const char_type*
237       do_is(const char_type* __lo, const char_type* __hi, 
238             mask* __vec) const = 0;
239
240       virtual const char_type*
241       do_scan_is(mask __m, const char_type* __lo,
242                  const char_type* __hi) const = 0;
243
244       virtual const char_type*
245       do_scan_not(mask __m, const char_type* __lo, 
246                   const char_type* __hi) const = 0;
247
248       virtual char_type 
249       do_toupper(char_type) const = 0;
250
251       virtual const char_type*
252       do_toupper(char_type* __lo, const char_type* __hi) const = 0;
253
254       virtual char_type 
255       do_tolower(char_type) const = 0;
256
257       virtual const char_type*
258       do_tolower(char_type* __lo, const char_type* __hi) const = 0;
259       
260       virtual char_type 
261       do_widen(char) const = 0;
262
263       virtual const char*
264       do_widen(const char* __lo, const char* __hi, 
265                char_type* __dest) const = 0;
266
267       virtual char 
268       do_narrow(char_type, char __dfault) const = 0;
269
270       virtual const char_type*
271       do_narrow(const char_type* __lo, const char_type* __hi,
272                  char __dfault, char* __dest) const = 0;
273     };
274
275   // NB: Generic, mostly useless implementation.
276   template<typename _CharT>
277     class ctype : public __ctype_abstract_base<_CharT>
278     {
279     public:
280       // Types:
281       typedef _CharT                    char_type;
282       typedef typename ctype::mask      mask;
283
284       static locale::id                 id;
285
286       explicit 
287       ctype(size_t __refs = 0) : __ctype_abstract_base<_CharT>(__refs) { }
288
289    protected:
290       virtual 
291       ~ctype();
292
293       virtual bool 
294       do_is(mask __m, char_type __c) const;
295
296       virtual const char_type*
297       do_is(const char_type* __lo, const char_type* __hi, mask* __vec) const;
298
299       virtual const char_type*
300       do_scan_is(mask __m, const char_type* __lo, const char_type* __hi) const;
301
302       virtual const char_type*
303       do_scan_not(mask __m, const char_type* __lo,
304                   const char_type* __hi) const;
305
306       virtual char_type 
307       do_toupper(char_type __c) const;
308
309       virtual const char_type*
310       do_toupper(char_type* __lo, const char_type* __hi) const;
311
312       virtual char_type 
313       do_tolower(char_type __c) const;
314
315       virtual const char_type*
316       do_tolower(char_type* __lo, const char_type* __hi) const;
317
318       virtual char_type 
319       do_widen(char __c) const;
320
321       virtual const char*
322       do_widen(const char* __lo, const char* __hi, char_type* __dest) const;
323
324       virtual char 
325       do_narrow(char_type, char __dfault) const;
326
327       virtual const char_type*
328       do_narrow(const char_type* __lo, const char_type* __hi,
329                 char __dfault, char* __dest) const;
330     };
331
332   template<typename _CharT>
333     locale::id ctype<_CharT>::id;
334
335   // 22.2.1.3  ctype<char> specialization.
336   template<>
337     class ctype<char> : public __ctype_abstract_base<char>
338     {
339     public:
340       // Types:
341       typedef char              char_type;
342
343     protected:
344       // Data Members:
345       __c_locale                _M_c_locale_ctype;
346       bool                      _M_del;
347       __to_type                 _M_toupper;
348       __to_type                 _M_tolower;
349       const mask*               _M_table;
350       
351     public:
352       static locale::id        id;
353       static const size_t      table_size = 1 + static_cast<unsigned char>(-1);
354
355       explicit 
356       ctype(const mask* __table = 0, bool __del = false, size_t __refs = 0);
357
358       explicit 
359       ctype(__c_locale __cloc, const mask* __table = 0, bool __del = false, 
360             size_t __refs = 0);
361
362       inline bool 
363       is(mask __m, char __c) const;
364  
365       inline const char*
366       is(const char* __lo, const char* __hi, mask* __vec) const;
367  
368       inline const char*
369       scan_is(mask __m, const char* __lo, const char* __hi) const;
370
371       inline const char*
372       scan_not(mask __m, const char* __lo, const char* __hi) const;
373      
374     protected:
375       const mask* 
376       table() const throw()
377       { return _M_table; }
378
379       static const mask* 
380       classic_table() throw();
381
382       virtual 
383       ~ctype();
384
385       virtual bool 
386       do_is(mask __m, char_type __c) const;
387
388       virtual const char_type*
389       do_is(const char_type* __lo, const char_type* __hi, mask* __vec) const;
390
391       virtual const char_type*
392       do_scan_is(mask __m, const char_type* __lo, const char_type* __hi) const;
393
394       virtual const char_type*
395       do_scan_not(mask __m, const char_type* __lo, 
396                   const char_type* __hi) const;
397
398       virtual char_type 
399       do_toupper(char_type) const;
400
401       virtual const char_type*
402       do_toupper(char_type* __lo, const char_type* __hi) const;
403
404       virtual char_type 
405       do_tolower(char_type) const;
406
407       virtual const char_type*
408       do_tolower(char_type* __lo, const char_type* __hi) const;
409       
410       virtual char_type 
411       do_widen(char) const;
412
413       virtual const char*
414       do_widen(const char* __lo, const char* __hi, char_type* __dest) const;
415
416       virtual char 
417       do_narrow(char_type, char __dfault) const;
418
419       virtual const char_type*
420       do_narrow(const char_type* __lo, const char_type* __hi,
421                 char __dfault, char* __dest) const;
422     };
423  
424   template<>
425     const ctype<char>&
426     use_facet<ctype<char> >(const locale& __loc);
427
428 #ifdef _GLIBCXX_USE_WCHAR_T
429   // 22.2.1.3  ctype<wchar_t> specialization
430   template<>
431     class ctype<wchar_t> : public __ctype_abstract_base<wchar_t>
432     {
433     public:
434       // Types:
435       typedef wchar_t           char_type;
436       typedef wctype_t          __wmask_type;
437
438     protected:
439       __c_locale                _M_c_locale_ctype;
440
441     public:
442       // Data Members:
443       static locale::id         id;
444
445       explicit 
446       ctype(size_t __refs = 0);
447
448       explicit 
449       ctype(__c_locale __cloc, size_t __refs = 0);
450
451     protected:
452       __wmask_type
453       _M_convert_to_wmask(const mask __m) const;
454
455       virtual 
456       ~ctype();
457
458       virtual bool 
459       do_is(mask __m, char_type __c) const;
460
461       virtual const char_type*
462       do_is(const char_type* __lo, const char_type* __hi, mask* __vec) const;
463
464       virtual const char_type*
465       do_scan_is(mask __m, const char_type* __lo, const char_type* __hi) const;
466
467       virtual const char_type*
468       do_scan_not(mask __m, const char_type* __lo, 
469                   const char_type* __hi) const;
470
471       virtual char_type 
472       do_toupper(char_type) const;
473
474       virtual const char_type*
475       do_toupper(char_type* __lo, const char_type* __hi) const;
476
477       virtual char_type 
478       do_tolower(char_type) const;
479
480       virtual const char_type*
481       do_tolower(char_type* __lo, const char_type* __hi) const;
482       
483       virtual char_type 
484       do_widen(char) const;
485
486       virtual const char*
487       do_widen(const char* __lo, const char* __hi, char_type* __dest) const;
488
489       virtual char 
490       do_narrow(char_type, char __dfault) const;
491
492       virtual const char_type*
493       do_narrow(const char_type* __lo, const char_type* __hi,
494                 char __dfault, char* __dest) const;
495
496     };
497
498   template<>
499     const ctype<wchar_t>&
500     use_facet<ctype<wchar_t> >(const locale& __loc);
501 #endif //_GLIBCXX_USE_WCHAR_T
502
503   // Include host and configuration specific ctype inlines.
504   #include <bits/ctype_inline.h>
505
506   // 22.2.1.2  Template class ctype_byname
507   template<typename _CharT>
508     class ctype_byname : public ctype<_CharT>
509     {
510     public:
511       typedef _CharT            char_type;
512
513       explicit 
514       ctype_byname(const char* __s, size_t __refs = 0);
515
516     protected:
517       virtual 
518       ~ctype_byname() { };
519     };
520
521   // 22.2.1.4  Class ctype_byname specializations.
522   template<>
523     ctype_byname<char>::ctype_byname(const char*, size_t refs);
524
525   template<>
526     ctype_byname<wchar_t>::ctype_byname(const char*, size_t refs);
527
528   // 22.2.1.5  Template class codecvt
529   #include <bits/codecvt.h>
530
531   // 22.2.2  The numeric category.
532   class __num_base 
533   {
534   public:
535     // NB: Code depends on the order of _S_atoms_out elements.
536     // Below are the indices into _S_atoms_out.
537     enum 
538       {  
539         _S_ominus, 
540         _S_oplus, 
541         _S_ox, 
542         _S_oX, 
543         _S_odigits,
544         _S_odigits_end = _S_odigits + 16,
545         _S_oudigits = _S_odigits_end,  
546         _S_oudigits_end = _S_oudigits + 16,
547         _S_oe = _S_odigits + 14,  // For scientific notation, 'e'
548         _S_oE = _S_oudigits + 14, // For scientific notation, 'E'
549         _S_oend = _S_oudigits_end
550       };
551     
552     // A list of valid numeric literals for output.  This array
553     // contains chars that will be passed through the current locale's
554     // ctype<_CharT>.widen() and then used to render numbers.
555     // For the standard "C" locale, this is
556     // "-+xX0123456789abcdef0123456789ABCDEF".
557     static const char* _S_atoms_out;
558
559     // String literal of acceptable (narrow) input, for num_get.
560     // "-+xX0123456789eEabcdfABCDF"
561     static const char* _S_atoms_in;
562
563     enum 
564     {  
565       _S_iminus, 
566       _S_iplus, 
567       _S_ix, 
568       _S_iX, 
569       _S_izero,
570       _S_ie = _S_izero + 10,
571       _S_iE = _S_izero + 11,
572       _S_iend = 26
573     };
574
575     // num_put
576     // Construct and return valid scanf format for floating point types.
577     static void
578     _S_format_float(const ios_base& __io, char* __fptr, char __mod);
579   };
580
581   template<typename _CharT>
582     struct __numpunct_cache : public locale::facet
583     {
584       const char*                       _M_grouping;
585       bool                              _M_use_grouping;
586       const _CharT*                     _M_truename;
587       const _CharT*                     _M_falsename;
588       _CharT                            _M_decimal_point;
589       _CharT                            _M_thousands_sep;
590       
591       // A list of valid numeric literals for output: in the standard
592       // "C" locale, this is "-+xX0123456789abcdef0123456789ABCDEF".
593       // This array contains the chars after having been passed
594       // through the current locale's ctype<_CharT>.widen().
595       _CharT                            _M_atoms_out[__num_base::_S_oend + 1];
596
597       // A list of valid numeric literals for input: in the standard
598       // "C" locale, this is "-+xX0123456789eEabcdfABCDF"
599       // This array contains the chars after having been passed
600       // through the current locale's ctype<_CharT>.widen().
601       _CharT                            _M_atoms_in[__num_base::_S_iend + 1];
602
603       bool                              _M_allocated;
604
605       __numpunct_cache(size_t __refs = 0) : facet(__refs), 
606       _M_grouping(NULL), _M_use_grouping(false), _M_truename(NULL), 
607       _M_falsename(NULL), _M_decimal_point(_CharT()), 
608       _M_thousands_sep(_CharT()), _M_allocated(false)
609       { } 
610
611       ~__numpunct_cache();
612
613       void
614       _M_cache(const locale& __loc);
615     };
616
617   template<typename _CharT>
618     void
619     __numpunct_cache<_CharT>::_M_cache(const locale& __loc)
620     {
621       const numpunct<_CharT>& __np = use_facet<numpunct<_CharT> >(__loc);
622       string __grouping = __np.grouping();
623       char* __group = new char[__grouping.length() + 1];
624       __grouping.copy(__group, __grouping.length());
625       __group[__grouping.length()] = char();
626       _M_grouping = __group;
627       
628       _M_use_grouping = __grouping.length() != 0 && __grouping.data()[0] != 0;
629
630       typedef basic_string<_CharT> __string_type;
631
632       __string_type __true = __np.truename();
633       _CharT* __truename = new _CharT[__true.length() + 1];
634       __true.copy(__truename, __true.length());
635       __truename[__true.length()] = _CharT(); 
636       _M_truename = __truename;
637
638       __string_type __false = __np.falsename();
639       _CharT* __falsename = new _CharT[__false.length() + 1];
640       __false.copy(__falsename, __false.length());
641       __falsename[__false.length()] = _CharT(); 
642       _M_falsename = __falsename;
643             
644       _M_decimal_point = __np.decimal_point();
645       _M_thousands_sep = __np.thousands_sep();
646
647       const ctype<_CharT>& __ct = use_facet<ctype<_CharT> >(__loc);
648       __ct.widen(__num_base::_S_atoms_out, 
649                  __num_base::_S_atoms_out + __num_base::_S_oend, _M_atoms_out);
650       _M_atoms_out[__num_base::_S_oend] = _CharT();
651       __ct.widen(__num_base::_S_atoms_in, 
652                  __num_base::_S_atoms_in + __num_base::_S_iend, _M_atoms_in);
653       _M_atoms_in[__num_base::_S_iend] = _CharT();
654
655       _M_allocated = true;
656     }
657
658   template<typename _CharT>
659     __numpunct_cache<_CharT>::~__numpunct_cache()
660     {
661       if (_M_allocated)
662         {
663           delete [] _M_grouping;
664           delete [] _M_truename;
665           delete [] _M_falsename;
666         }
667     }
668
669   template<typename _CharT>
670     class numpunct : public locale::facet
671     {
672     public:
673       // Types:
674       typedef _CharT                    char_type;
675       typedef basic_string<_CharT>      string_type;
676       typedef __numpunct_cache<_CharT>  __cache_type;
677
678     protected:
679       __cache_type*                     _M_data;
680
681     public:
682       static locale::id                 id;
683
684       explicit 
685       numpunct(size_t __refs = 0) : facet(__refs), _M_data(NULL)
686       { _M_initialize_numpunct(); }
687
688       explicit 
689       numpunct(__cache_type* __cache, size_t __refs = 0) 
690       : facet(__refs), _M_data(__cache)
691       { _M_initialize_numpunct(); }
692
693       explicit 
694       numpunct(__c_locale __cloc, size_t __refs = 0) 
695       : facet(__refs), _M_data(NULL)
696       { _M_initialize_numpunct(__cloc); }
697
698       char_type    
699       decimal_point() const
700       { return this->do_decimal_point(); }
701
702       char_type    
703       thousands_sep() const
704       { return this->do_thousands_sep(); }
705
706       string       
707       grouping() const
708       { return this->do_grouping(); }
709
710       string_type  
711       truename() const
712       { return this->do_truename(); }
713
714       string_type  
715       falsename() const
716       { return this->do_falsename(); }
717
718     protected:
719       virtual 
720       ~numpunct();
721
722       virtual char_type    
723       do_decimal_point() const
724       { return _M_data->_M_decimal_point; }
725
726       virtual char_type    
727       do_thousands_sep() const
728       { return _M_data->_M_thousands_sep; }
729
730       virtual string
731       do_grouping() const
732       { return _M_data->_M_grouping; }
733
734       virtual string_type  
735       do_truename() const
736       { return _M_data->_M_truename; }
737
738       virtual string_type  
739       do_falsename() const
740       { return _M_data->_M_falsename; }
741
742       // For use at construction time only.
743       void 
744       _M_initialize_numpunct(__c_locale __cloc = NULL);
745     };
746
747   template<typename _CharT>
748     locale::id numpunct<_CharT>::id;
749
750   template<> 
751     numpunct<char>::~numpunct();
752
753   template<> 
754     void
755     numpunct<char>::_M_initialize_numpunct(__c_locale __cloc);
756
757 #ifdef _GLIBCXX_USE_WCHAR_T
758   template<> 
759     numpunct<wchar_t>::~numpunct();
760
761   template<> 
762     void
763     numpunct<wchar_t>::_M_initialize_numpunct(__c_locale __cloc);
764 #endif
765
766   template<typename _CharT>
767     class numpunct_byname : public numpunct<_CharT>
768     {
769       // Data Member.
770       __c_locale                        _M_c_locale_numpunct;
771
772     public:
773       typedef _CharT                    char_type;
774       typedef basic_string<_CharT>      string_type;
775
776       explicit 
777       numpunct_byname(const char* __s, size_t __refs = 0)
778       : numpunct<_CharT>(__refs)
779       {
780         this->_S_create_c_locale(_M_c_locale_numpunct, __s);
781         this->_M_initialize_numpunct(_M_c_locale_numpunct);     
782       }
783
784     protected:
785       virtual 
786       ~numpunct_byname() 
787       { this->_S_destroy_c_locale(_M_c_locale_numpunct); }
788     };
789
790   template<typename _CharT, typename _InIter>
791     class num_get : public locale::facet, public __num_base
792     {
793     public:
794       // Types:
795       typedef _CharT                    char_type;
796       typedef _InIter                   iter_type;
797
798       static locale::id                 id;
799
800       explicit 
801       num_get(size_t __refs = 0) : facet(__refs) { }
802
803       iter_type 
804       get(iter_type __in, iter_type __end, ios_base& __io,
805           ios_base::iostate& __err, bool& __v) const
806       { return this->do_get(__in, __end, __io, __err, __v); }
807
808       iter_type
809       get(iter_type __in, iter_type __end, ios_base& __io, 
810           ios_base::iostate& __err, long& __v) const
811       { return this->do_get(__in, __end, __io, __err, __v); }
812
813       iter_type 
814       get(iter_type __in, iter_type __end, ios_base& __io,
815           ios_base::iostate& __err, unsigned short& __v) const
816       { return this->do_get(__in, __end, __io, __err, __v); }
817
818       iter_type 
819       get(iter_type __in, iter_type __end, ios_base& __io,
820           ios_base::iostate& __err, unsigned int& __v)   const
821       { return this->do_get(__in, __end, __io, __err, __v); }
822
823       iter_type 
824       get(iter_type __in, iter_type __end, ios_base& __io,
825           ios_base::iostate& __err, unsigned long& __v)  const
826       { return this->do_get(__in, __end, __io, __err, __v); }
827
828 #ifdef _GLIBCXX_USE_LONG_LONG
829       iter_type 
830       get(iter_type __in, iter_type __end, ios_base& __io,
831           ios_base::iostate& __err, long long& __v) const
832       { return this->do_get(__in, __end, __io, __err, __v); }
833
834       iter_type 
835       get(iter_type __in, iter_type __end, ios_base& __io,
836           ios_base::iostate& __err, unsigned long long& __v)  const
837       { return this->do_get(__in, __end, __io, __err, __v); }
838 #endif
839
840       iter_type 
841       get(iter_type __in, iter_type __end, ios_base& __io,
842           ios_base::iostate& __err, float& __v) const
843       { return this->do_get(__in, __end, __io, __err, __v); }
844
845       iter_type 
846       get(iter_type __in, iter_type __end, ios_base& __io,
847           ios_base::iostate& __err, double& __v) const
848       { return this->do_get(__in, __end, __io, __err, __v); }
849
850       iter_type 
851       get(iter_type __in, iter_type __end, ios_base& __io,
852           ios_base::iostate& __err, long double& __v) const
853       { return this->do_get(__in, __end, __io, __err, __v); }
854
855       iter_type 
856       get(iter_type __in, iter_type __end, ios_base& __io,
857           ios_base::iostate& __err, void*& __v) const
858       { return this->do_get(__in, __end, __io, __err, __v); }      
859
860     protected:
861       virtual ~num_get() { }
862
863       iter_type 
864       _M_extract_float(iter_type, iter_type, ios_base&, ios_base::iostate&, 
865                        string& __xtrc) const;
866
867       iter_type 
868       _M_extract_int(iter_type, iter_type, ios_base&, ios_base::iostate&, 
869                      string& __xtrc, int& __base) const;
870
871       virtual iter_type 
872       do_get(iter_type, iter_type, ios_base&, ios_base::iostate&, bool&) const;
873
874
875       virtual iter_type 
876       do_get(iter_type, iter_type, ios_base&, ios_base::iostate&, long&) const;
877
878       virtual iter_type 
879       do_get(iter_type, iter_type, ios_base&, ios_base::iostate& __err, 
880               unsigned short&) const;
881
882       virtual iter_type 
883       do_get(iter_type, iter_type, ios_base&, ios_base::iostate& __err, 
884              unsigned int&) const;
885
886       virtual iter_type 
887       do_get(iter_type, iter_type, ios_base&, ios_base::iostate& __err, 
888              unsigned long&) const;
889
890 #ifdef _GLIBCXX_USE_LONG_LONG 
891       virtual iter_type 
892       do_get(iter_type, iter_type, ios_base&, ios_base::iostate& __err, 
893              long long&) const;
894
895       virtual iter_type 
896       do_get(iter_type, iter_type, ios_base&, ios_base::iostate& __err, 
897              unsigned long long&) const;
898 #endif
899
900       virtual iter_type 
901       do_get(iter_type, iter_type, ios_base&, ios_base::iostate& __err, 
902              float&) const;
903
904       virtual iter_type 
905       do_get(iter_type, iter_type, ios_base&, ios_base::iostate& __err, 
906              double&) const;
907
908       virtual iter_type 
909       do_get(iter_type, iter_type, ios_base&, ios_base::iostate& __err, 
910              long double&) const;
911
912       virtual iter_type 
913       do_get(iter_type, iter_type, ios_base&, ios_base::iostate& __err, 
914              void*&) const;
915     };
916
917   template<typename _CharT, typename _InIter>
918     locale::id num_get<_CharT, _InIter>::id;
919
920
921   template<typename _CharT, typename _OutIter>
922     class num_put : public locale::facet, public __num_base
923     {
924     public:
925       // Types:
926       typedef _CharT            char_type;
927       typedef _OutIter          iter_type;
928       static locale::id         id;
929
930       explicit 
931       num_put(size_t __refs = 0) : facet(__refs) { }
932
933       iter_type 
934       put(iter_type __s, ios_base& __f, char_type __fill, bool __v) const
935       { return this->do_put(__s, __f, __fill, __v); }
936
937       iter_type 
938       put(iter_type __s, ios_base& __f, char_type __fill, long __v) const
939       { return this->do_put(__s, __f, __fill, __v); }
940
941       iter_type 
942       put(iter_type __s, ios_base& __f, char_type __fill, 
943           unsigned long __v) const
944       { return this->do_put(__s, __f, __fill, __v); }
945
946 #ifdef _GLIBCXX_USE_LONG_LONG 
947       iter_type 
948       put(iter_type __s, ios_base& __f, char_type __fill, long long __v) const
949       { return this->do_put(__s, __f, __fill, __v); }
950
951       iter_type 
952       put(iter_type __s, ios_base& __f, char_type __fill, 
953           unsigned long long __v) const
954       { return this->do_put(__s, __f, __fill, __v); }
955 #endif
956
957       iter_type 
958       put(iter_type __s, ios_base& __f, char_type __fill, double __v) const
959       { return this->do_put(__s, __f, __fill, __v); }
960
961       iter_type 
962       put(iter_type __s, ios_base& __f, char_type __fill, 
963           long double __v) const
964       { return this->do_put(__s, __f, __fill, __v); }
965
966       iter_type 
967       put(iter_type __s, ios_base& __f, char_type __fill, 
968           const void* __v) const
969       { return this->do_put(__s, __f, __fill, __v); }
970
971     protected:
972       template<typename _ValueT>
973         iter_type
974         _M_insert_float(iter_type, ios_base& __io, char_type __fill, 
975                         char __mod, _ValueT __v) const;
976
977       void
978       _M_group_float(const string& __grouping, char_type __sep, 
979                      const char_type* __p, char_type* __new, char_type* __cs,
980                      int& __len) const;
981
982       template<typename _ValueT>
983         iter_type
984         _M_insert_int(iter_type, ios_base& __io, char_type __fill, 
985                       _ValueT __v) const;
986
987       void
988       _M_group_int(const string& __grouping, char_type __sep, 
989                    ios_base& __io, char_type* __new, char_type* __cs, 
990                    int& __len) const;
991
992       void
993       _M_pad(char_type __fill, streamsize __w, ios_base& __io, 
994              char_type* __new, const char_type* __cs, int& __len) const;
995
996       virtual 
997       ~num_put() { };
998
999       virtual iter_type 
1000       do_put(iter_type, ios_base&, char_type __fill, bool __v) const;
1001
1002       virtual iter_type 
1003       do_put(iter_type, ios_base&, char_type __fill, long __v) const;
1004
1005       virtual iter_type 
1006       do_put(iter_type, ios_base&, char_type __fill, unsigned long) const;
1007
1008 #ifdef _GLIBCXX_USE_LONG_LONG 
1009       virtual iter_type 
1010       do_put(iter_type, ios_base&, char_type __fill, long long __v) const;
1011
1012       virtual iter_type
1013       do_put(iter_type, ios_base&, char_type __fill, unsigned long long) const;
1014 #endif
1015
1016       virtual iter_type 
1017       do_put(iter_type, ios_base&, char_type __fill, double __v) const;
1018
1019       virtual iter_type 
1020       do_put(iter_type, ios_base&, char_type __fill, long double __v) const;
1021
1022       virtual iter_type 
1023       do_put(iter_type, ios_base&, char_type __fill, const void* __v) const;
1024     };
1025
1026   template <typename _CharT, typename _OutIter>
1027     locale::id num_put<_CharT, _OutIter>::id;
1028
1029
1030   template<typename _CharT>
1031     class collate : public locale::facet
1032     {
1033     public:
1034       // Types:
1035       typedef _CharT                    char_type;
1036       typedef basic_string<_CharT>      string_type;
1037
1038     protected:
1039       // Underlying "C" library locale information saved from
1040       // initialization, needed by collate_byname as well.
1041       __c_locale                        _M_c_locale_collate;
1042  
1043     public:
1044       static locale::id                 id;
1045
1046       explicit 
1047       collate(size_t __refs = 0)
1048       : facet(__refs)
1049       { _M_c_locale_collate = _S_get_c_locale(); }
1050
1051       explicit 
1052       collate(__c_locale __cloc, size_t __refs = 0) 
1053       : facet(__refs)
1054       { _M_c_locale_collate = _S_clone_c_locale(__cloc); }
1055
1056       int 
1057       compare(const _CharT* __lo1, const _CharT* __hi1,
1058               const _CharT* __lo2, const _CharT* __hi2) const
1059       { return this->do_compare(__lo1, __hi1, __lo2, __hi2); }
1060
1061       string_type 
1062       transform(const _CharT* __lo, const _CharT* __hi) const
1063       { return this->do_transform(__lo, __hi); }
1064
1065       long 
1066       hash(const _CharT* __lo, const _CharT* __hi) const
1067       { return this->do_hash(__lo, __hi); }
1068       
1069       // Used to abstract out _CharT bits in virtual member functions, below.
1070       int
1071       _M_compare(const _CharT*, const _CharT*) const;
1072
1073       size_t
1074       _M_transform(_CharT*, const _CharT*, size_t) const;
1075
1076   protected:
1077       virtual
1078       ~collate() 
1079       { _S_destroy_c_locale(_M_c_locale_collate); }
1080
1081       virtual int  
1082       do_compare(const _CharT* __lo1, const _CharT* __hi1,
1083                  const _CharT* __lo2, const _CharT* __hi2) const;
1084
1085       virtual string_type 
1086       do_transform(const _CharT* __lo, const _CharT* __hi) const;
1087
1088       virtual long   
1089       do_hash(const _CharT* __lo, const _CharT* __hi) const;
1090     };
1091
1092   template<typename _CharT>
1093     locale::id collate<_CharT>::id;
1094
1095   // Specializations.
1096   template<>
1097     int 
1098     collate<char>::_M_compare(const char*, const char*) const;
1099
1100   template<>
1101     size_t
1102     collate<char>::_M_transform(char*, const char*, size_t) const;
1103
1104 #ifdef _GLIBCXX_USE_WCHAR_T
1105   template<>
1106     int 
1107     collate<wchar_t>::_M_compare(const wchar_t*, const wchar_t*) const;
1108
1109   template<>
1110     size_t
1111     collate<wchar_t>::_M_transform(wchar_t*, const wchar_t*, size_t) const;
1112 #endif
1113
1114   template<typename _CharT>
1115     class collate_byname : public collate<_CharT>
1116     {
1117     public:
1118       typedef _CharT               char_type;
1119       typedef basic_string<_CharT> string_type;
1120
1121       explicit 
1122       collate_byname(const char* __s, size_t __refs = 0)
1123       : collate<_CharT>(__refs) 
1124       { 
1125         this->_S_destroy_c_locale(this->_M_c_locale_collate);
1126         this->_S_create_c_locale(this->_M_c_locale_collate, __s); 
1127       }
1128
1129     protected:
1130       virtual   
1131       ~collate_byname() { }
1132     };
1133
1134
1135   class time_base
1136   {
1137   public:
1138     enum dateorder { no_order, dmy, mdy, ymd, ydm };
1139   };
1140
1141   template<typename _CharT>
1142     struct __timepunct_cache : public locale::facet
1143     {
1144       // List of all known timezones, with GMT first.
1145       static const _CharT*              _S_timezones[14];
1146
1147       const _CharT*                     _M_date_format;
1148       const _CharT*                     _M_date_era_format;
1149       const _CharT*                     _M_time_format;
1150       const _CharT*                     _M_time_era_format;
1151       const _CharT*                     _M_date_time_format;
1152       const _CharT*                     _M_date_time_era_format;
1153       const _CharT*                     _M_am;
1154       const _CharT*                     _M_pm;
1155       const _CharT*                     _M_am_pm_format;
1156
1157       // Day names, starting with "C"'s Sunday.
1158       const _CharT*                     _M_day1;
1159       const _CharT*                     _M_day2;
1160       const _CharT*                     _M_day3;
1161       const _CharT*                     _M_day4;
1162       const _CharT*                     _M_day5;
1163       const _CharT*                     _M_day6;
1164       const _CharT*                     _M_day7;
1165
1166       // Abbreviated day names, starting with "C"'s Sun.
1167       const _CharT*                     _M_aday1;
1168       const _CharT*                     _M_aday2;
1169       const _CharT*                     _M_aday3;
1170       const _CharT*                     _M_aday4;
1171       const _CharT*                     _M_aday5;
1172       const _CharT*                     _M_aday6;
1173       const _CharT*                     _M_aday7;
1174
1175       // Month names, starting with "C"'s January.
1176       const _CharT*                     _M_month01;
1177       const _CharT*                     _M_month02;
1178       const _CharT*                     _M_month03;
1179       const _CharT*                     _M_month04;
1180       const _CharT*                     _M_month05;
1181       const _CharT*                     _M_month06;
1182       const _CharT*                     _M_month07;
1183       const _CharT*                     _M_month08;
1184       const _CharT*                     _M_month09;
1185       const _CharT*                     _M_month10;
1186       const _CharT*                     _M_month11;
1187       const _CharT*                     _M_month12;
1188
1189       // Abbreviated month names, starting with "C"'s Jan.
1190       const _CharT*                     _M_amonth01;
1191       const _CharT*                     _M_amonth02;
1192       const _CharT*                     _M_amonth03;
1193       const _CharT*                     _M_amonth04;
1194       const _CharT*                     _M_amonth05;
1195       const _CharT*                     _M_amonth06;
1196       const _CharT*                     _M_amonth07;
1197       const _CharT*                     _M_amonth08;
1198       const _CharT*                     _M_amonth09;
1199       const _CharT*                     _M_amonth10;
1200       const _CharT*                     _M_amonth11;
1201       const _CharT*                     _M_amonth12;
1202
1203       bool                              _M_allocated;
1204
1205       __timepunct_cache(size_t __refs = 0) : facet(__refs), 
1206       _M_date_format(NULL), _M_date_era_format(NULL), _M_time_format(NULL),
1207       _M_time_era_format(NULL), _M_date_time_format(NULL), 
1208       _M_date_time_era_format(NULL), _M_am(NULL), _M_pm(NULL), 
1209       _M_am_pm_format(NULL), _M_day1(NULL), _M_day2(NULL), _M_day3(NULL), 
1210       _M_day4(NULL), _M_day5(NULL), _M_day6(NULL), _M_day7(NULL), 
1211       _M_aday1(NULL), _M_aday2(NULL), _M_aday3(NULL), _M_aday4(NULL), 
1212       _M_aday5(NULL), _M_aday6(NULL), _M_aday7(NULL), _M_month01(NULL),
1213       _M_month02(NULL), _M_month03(NULL), _M_month04(NULL), _M_month05(NULL), 
1214       _M_month06(NULL), _M_month07(NULL), _M_month08(NULL), _M_month09(NULL), 
1215       _M_month10(NULL), _M_month11(NULL), _M_month12(NULL), _M_amonth01(NULL),
1216       _M_amonth02(NULL), _M_amonth03(NULL), _M_amonth04(NULL), 
1217       _M_amonth05(NULL), _M_amonth06(NULL), _M_amonth07(NULL), 
1218       _M_amonth08(NULL), _M_amonth09(NULL), _M_amonth10(NULL), 
1219       _M_amonth11(NULL), _M_amonth12(NULL), _M_allocated(false)
1220       { } 
1221
1222       ~__timepunct_cache();
1223
1224       void
1225       _M_cache(const locale& __loc);
1226     };
1227
1228   template<typename _CharT>
1229     __timepunct_cache<_CharT>::~__timepunct_cache()
1230     {
1231       if (_M_allocated)
1232         {
1233           // XXX.
1234         }
1235     }
1236
1237   // Specializations.
1238   template<> 
1239     const char*
1240     __timepunct_cache<char>::_S_timezones[14];
1241
1242 #ifdef _GLIBCXX_USE_WCHAR_T
1243   template<> 
1244     const wchar_t*
1245     __timepunct_cache<wchar_t>::_S_timezones[14];
1246 #endif
1247
1248   // Generic.
1249   template<typename _CharT>
1250     const _CharT* __timepunct_cache<_CharT>::_S_timezones[14];
1251
1252   template<typename _CharT>
1253     class __timepunct : public locale::facet
1254     {
1255     public:
1256       // Types:
1257       typedef _CharT                    __char_type;
1258       typedef basic_string<_CharT>      __string_type;
1259       typedef __timepunct_cache<_CharT> __cache_type;
1260
1261     protected:
1262       __cache_type*                     _M_data;
1263       __c_locale                        _M_c_locale_timepunct;
1264       const char*                       _M_name_timepunct;
1265
1266     public:
1267       static locale::id                 id;
1268
1269       explicit 
1270       __timepunct(size_t __refs = 0);
1271
1272       explicit 
1273       __timepunct(__cache_type* __cache, size_t __refs = 0);
1274
1275       explicit 
1276       __timepunct(__c_locale __cloc, const char* __s, size_t __refs = 0);
1277
1278       void
1279       _M_put(_CharT* __s, size_t __maxlen, const _CharT* __format, 
1280              const tm* __tm) const;
1281
1282       void
1283       _M_date_formats(const _CharT** __date) const
1284       {
1285         // Always have default first.
1286         __date[0] = _M_data->_M_date_format;
1287         __date[1] = _M_data->_M_date_era_format;        
1288       }
1289
1290       void
1291       _M_time_formats(const _CharT** __time) const
1292       {
1293         // Always have default first.
1294         __time[0] = _M_data->_M_time_format;
1295         __time[1] = _M_data->_M_time_era_format;        
1296       }
1297
1298       void
1299       _M_ampm(const _CharT** __ampm) const
1300       { 
1301         __ampm[0] = _M_data->_M_am;
1302         __ampm[1] = _M_data->_M_pm;
1303       }      
1304
1305       void
1306       _M_date_time_formats(const _CharT** __dt) const
1307       {
1308         // Always have default first.
1309         __dt[0] = _M_data->_M_date_time_format;
1310         __dt[1] = _M_data->_M_date_time_era_format;     
1311       }
1312
1313       void
1314       _M_days(const _CharT** __days) const
1315       { 
1316         __days[0] = _M_data->_M_day1;
1317         __days[1] = _M_data->_M_day2;
1318         __days[2] = _M_data->_M_day3;
1319         __days[3] = _M_data->_M_day4;
1320         __days[4] = _M_data->_M_day5;
1321         __days[5] = _M_data->_M_day6;
1322         __days[6] = _M_data->_M_day7;
1323       }
1324
1325       void
1326       _M_days_abbreviated(const _CharT** __days) const
1327       { 
1328         __days[0] = _M_data->_M_aday1;
1329         __days[1] = _M_data->_M_aday2;
1330         __days[2] = _M_data->_M_aday3;
1331         __days[3] = _M_data->_M_aday4;
1332         __days[4] = _M_data->_M_aday5;
1333         __days[5] = _M_data->_M_aday6;
1334         __days[6] = _M_data->_M_aday7;
1335       }
1336
1337       void
1338       _M_months(const _CharT** __months) const
1339       { 
1340         __months[0] = _M_data->_M_month01;
1341         __months[1] = _M_data->_M_month02;
1342         __months[2] = _M_data->_M_month03;
1343         __months[3] = _M_data->_M_month04;
1344         __months[4] = _M_data->_M_month05;
1345         __months[5] = _M_data->_M_month06;
1346         __months[6] = _M_data->_M_month07;
1347         __months[7] = _M_data->_M_month08;
1348         __months[8] = _M_data->_M_month09;
1349         __months[9] = _M_data->_M_month10;
1350         __months[10] = _M_data->_M_month11;
1351         __months[11] = _M_data->_M_month12;
1352       }
1353
1354       void
1355       _M_months_abbreviated(const _CharT** __months) const
1356       { 
1357         __months[0] = _M_data->_M_amonth01;
1358         __months[1] = _M_data->_M_amonth02;
1359         __months[2] = _M_data->_M_amonth03;
1360         __months[3] = _M_data->_M_amonth04;
1361         __months[4] = _M_data->_M_amonth05;
1362         __months[5] = _M_data->_M_amonth06;
1363         __months[6] = _M_data->_M_amonth07;
1364         __months[7] = _M_data->_M_amonth08;
1365         __months[8] = _M_data->_M_amonth09;
1366         __months[9] = _M_data->_M_amonth10;
1367         __months[10] = _M_data->_M_amonth11;
1368         __months[11] = _M_data->_M_amonth12;
1369       }
1370
1371     protected:
1372       virtual 
1373       ~__timepunct();
1374
1375       // For use at construction time only.
1376       void 
1377       _M_initialize_timepunct(__c_locale __cloc = NULL);
1378     };
1379
1380   template<typename _CharT>
1381     locale::id __timepunct<_CharT>::id;
1382
1383   // Specializations.
1384   template<> 
1385     void
1386     __timepunct<char>::_M_initialize_timepunct(__c_locale __cloc);
1387
1388   template<>
1389     void
1390     __timepunct<char>::_M_put(char*, size_t, const char*, const tm*) const;
1391
1392 #ifdef _GLIBCXX_USE_WCHAR_T
1393   template<> 
1394     void
1395     __timepunct<wchar_t>::_M_initialize_timepunct(__c_locale __cloc);
1396
1397   template<>
1398     void
1399     __timepunct<wchar_t>::_M_put(wchar_t*, size_t, const wchar_t*, 
1400                                  const tm*) const;
1401 #endif
1402
1403   // Include host and configuration specific timepunct functions.
1404   #include <bits/time_members.h>
1405
1406   template<typename _CharT, typename _InIter>
1407     class time_get : public locale::facet, public time_base
1408     {
1409     public:
1410       // Types:
1411       typedef _CharT                    char_type;
1412       typedef _InIter                   iter_type;
1413       typedef basic_string<_CharT>      __string_type;
1414
1415       static locale::id                 id;
1416
1417       explicit 
1418       time_get(size_t __refs = 0) 
1419       : facet (__refs) { }
1420
1421       dateorder 
1422       date_order()  const
1423       { return this->do_date_order(); }
1424
1425       iter_type 
1426       get_time(iter_type __beg, iter_type __end, ios_base& __io, 
1427                ios_base::iostate& __err, tm* __tm)  const
1428       { return this->do_get_time(__beg, __end, __io, __err, __tm); }
1429
1430       iter_type 
1431       get_date(iter_type __beg, iter_type __end, ios_base& __io,
1432                ios_base::iostate& __err, tm* __tm)  const
1433       { return this->do_get_date(__beg, __end, __io, __err, __tm); }
1434
1435       iter_type 
1436       get_weekday(iter_type __beg, iter_type __end, ios_base& __io,
1437                   ios_base::iostate& __err, tm* __tm) const
1438       { return this->do_get_weekday(__beg, __end, __io, __err, __tm); }
1439
1440       iter_type 
1441       get_monthname(iter_type __beg, iter_type __end, ios_base& __io, 
1442                     ios_base::iostate& __err, tm* __tm) const
1443       { return this->do_get_monthname(__beg, __end, __io, __err, __tm); }
1444
1445       iter_type 
1446       get_year(iter_type __beg, iter_type __end, ios_base& __io,
1447                ios_base::iostate& __err, tm* __tm) const
1448       { return this->do_get_year(__beg, __end, __io, __err, __tm); }
1449
1450     protected:
1451       virtual 
1452       ~time_get() { }
1453
1454       virtual dateorder 
1455       do_date_order() const;
1456
1457       virtual iter_type 
1458       do_get_time(iter_type __beg, iter_type __end, ios_base& __io,
1459                   ios_base::iostate& __err, tm* __tm) const;
1460
1461       virtual iter_type 
1462       do_get_date(iter_type __beg, iter_type __end, ios_base& __io,
1463                   ios_base::iostate& __err, tm* __tm) const;
1464
1465       virtual iter_type 
1466       do_get_weekday(iter_type __beg, iter_type __end, ios_base&,
1467                      ios_base::iostate& __err, tm* __tm) const;
1468
1469       virtual iter_type 
1470       do_get_monthname(iter_type __beg, iter_type __end, ios_base&, 
1471                        ios_base::iostate& __err, tm* __tm) const;
1472
1473       virtual iter_type 
1474       do_get_year(iter_type __beg, iter_type __end, ios_base& __io,
1475                   ios_base::iostate& __err, tm* __tm) const;
1476
1477       // Extract numeric component of length __len.
1478       void
1479       _M_extract_num(iter_type& __beg, iter_type& __end, int& __member,
1480                      int __min, int __max, size_t __len,
1481                      const ctype<_CharT>& __ctype, 
1482                      ios_base::iostate& __err) const;
1483       
1484       // Extract day or month name, or any unique array of string
1485       // literals in a const _CharT* array.
1486       void
1487       _M_extract_name(iter_type& __beg, iter_type& __end, int& __member,
1488                       const _CharT** __names, size_t __indexlen, 
1489                       ios_base::iostate& __err) const;
1490
1491       // Extract on a component-by-component basis, via __format argument.
1492       void
1493       _M_extract_via_format(iter_type& __beg, iter_type& __end, ios_base& __io,
1494                             ios_base::iostate& __err, tm* __tm, 
1495                             const _CharT* __format) const;
1496     };
1497
1498   template<typename _CharT, typename _InIter>
1499     locale::id time_get<_CharT, _InIter>::id;
1500
1501   template<typename _CharT, typename _InIter>
1502     class time_get_byname : public time_get<_CharT, _InIter>
1503     {
1504     public:
1505       // Types:
1506       typedef _CharT                    char_type;
1507       typedef _InIter                   iter_type;
1508
1509       explicit 
1510       time_get_byname(const char*, size_t __refs = 0) 
1511       : time_get<_CharT, _InIter>(__refs) { }
1512
1513     protected:
1514       virtual 
1515       ~time_get_byname() { }
1516     };
1517
1518   template<typename _CharT, typename _OutIter>
1519     class time_put : public locale::facet, public time_base
1520     {
1521     public:
1522       // Types:
1523       typedef _CharT                    char_type;
1524       typedef _OutIter                  iter_type;
1525
1526       static locale::id                 id;
1527
1528       explicit 
1529       time_put(size_t __refs = 0) 
1530       : facet(__refs) { }
1531
1532       iter_type 
1533       put(iter_type __s, ios_base& __io, char_type __fill, const tm* __tm, 
1534           const _CharT* __beg, const _CharT* __end) const;
1535
1536       iter_type 
1537       put(iter_type __s, ios_base& __io, char_type __fill,
1538           const tm* __tm, char __format, char __mod = 0) const
1539       { return this->do_put(__s, __io, __fill, __tm, __format, __mod); }
1540
1541     protected:
1542       virtual 
1543       ~time_put()
1544       { }
1545
1546       virtual iter_type 
1547       do_put(iter_type __s, ios_base& __io, char_type __fill, const tm* __tm, 
1548              char __format, char __mod) const;
1549     };
1550
1551   template<typename _CharT, typename _OutIter>
1552     locale::id time_put<_CharT, _OutIter>::id;
1553
1554   template<typename _CharT, typename _OutIter>
1555     class time_put_byname : public time_put<_CharT, _OutIter>
1556     {
1557     public:
1558       // Types:
1559       typedef _CharT                    char_type;
1560       typedef _OutIter                  iter_type;
1561
1562       explicit 
1563       time_put_byname(const char* /*__s*/, size_t __refs = 0) 
1564       : time_put<_CharT, _OutIter>(__refs) 
1565       { };
1566
1567     protected:
1568       virtual 
1569       ~time_put_byname() { }
1570     };
1571
1572
1573   class money_base
1574   {
1575   public:
1576     enum part { none, space, symbol, sign, value };
1577     struct pattern { char field[4]; };
1578
1579     static const pattern _S_default_pattern;
1580
1581     // Construct and return valid pattern consisting of some combination of:
1582     // space none symbol sign value
1583     static pattern 
1584     _S_construct_pattern(char __precedes, char __space, char __posn);
1585   };
1586
1587   template<typename _CharT>
1588     struct __moneypunct_cache : public locale::facet
1589     {
1590       const char*                       _M_grouping;
1591       bool                              _M_use_grouping;
1592       _CharT                            _M_decimal_point;
1593       _CharT                            _M_thousands_sep;
1594       const _CharT*                     _M_curr_symbol;
1595       const _CharT*                     _M_positive_sign;
1596       const _CharT*                     _M_negative_sign;
1597       int                               _M_frac_digits;
1598       money_base::pattern               _M_pos_format;
1599       money_base::pattern               _M_neg_format;
1600
1601       bool                              _M_allocated;
1602
1603       __moneypunct_cache(size_t __refs = 0) : facet(__refs), 
1604       _M_grouping(NULL), _M_use_grouping(false), _M_decimal_point(_CharT()), 
1605       _M_thousands_sep(_CharT()), _M_curr_symbol(NULL), _M_positive_sign(NULL),
1606       _M_negative_sign(NULL), _M_frac_digits(0), 
1607       _M_pos_format(money_base::pattern()), 
1608       _M_neg_format(money_base::pattern()), _M_allocated(false)
1609       { } 
1610
1611       ~__moneypunct_cache();
1612
1613       void
1614       _M_cache(const locale& __loc);
1615     };
1616
1617   template<typename _CharT>
1618     __moneypunct_cache<_CharT>::~__moneypunct_cache()
1619     {
1620       if (_M_allocated)
1621         {
1622           // XXX.
1623         }
1624     }
1625
1626   template<typename _CharT, bool _Intl>
1627     class moneypunct : public locale::facet, public money_base
1628     {
1629     public:
1630       // Types:
1631       typedef _CharT                    char_type;
1632       typedef basic_string<_CharT>      string_type;
1633       typedef __moneypunct_cache<_CharT>        __cache_type;
1634
1635     private:
1636       __cache_type*                     _M_data;
1637
1638     public:
1639       static const bool                 intl = _Intl;
1640       static locale::id                 id;
1641
1642       explicit 
1643       moneypunct(size_t __refs = 0) : facet(__refs), _M_data(NULL)
1644       { _M_initialize_moneypunct(); }
1645
1646       explicit 
1647       moneypunct(__cache_type* __cache, size_t __refs = 0) 
1648       : facet(__refs), _M_data(__cache)
1649       { _M_initialize_moneypunct(); }
1650
1651       explicit 
1652       moneypunct(__c_locale __cloc, const char* __s, size_t __refs = 0) 
1653       : facet(__refs), _M_data(NULL)
1654       { _M_initialize_moneypunct(__cloc, __s); }
1655
1656       char_type
1657       decimal_point() const
1658       { return this->do_decimal_point(); }
1659       
1660       char_type
1661       thousands_sep() const
1662       { return this->do_thousands_sep(); }
1663       
1664       string 
1665       grouping() const
1666       { return this->do_grouping(); }
1667
1668       string_type  
1669       curr_symbol() const
1670       { return this->do_curr_symbol(); }
1671
1672       string_type  
1673       positive_sign() const
1674       { return this->do_positive_sign(); }
1675
1676       string_type  
1677       negative_sign() const
1678       { return this->do_negative_sign(); }
1679
1680       int          
1681       frac_digits() const
1682       { return this->do_frac_digits(); }
1683
1684       pattern      
1685       pos_format() const
1686       { return this->do_pos_format(); }
1687
1688       pattern      
1689       neg_format() const
1690       { return this->do_neg_format(); }
1691
1692     protected:
1693       virtual 
1694       ~moneypunct();
1695
1696       virtual char_type
1697       do_decimal_point() const
1698       { return _M_data->_M_decimal_point; }
1699       
1700       virtual char_type
1701       do_thousands_sep() const
1702       { return _M_data->_M_thousands_sep; }
1703       
1704       virtual string 
1705       do_grouping() const
1706       { return _M_data->_M_grouping; }
1707
1708       virtual string_type  
1709       do_curr_symbol()   const
1710       { return _M_data->_M_curr_symbol; }
1711
1712       virtual string_type  
1713       do_positive_sign() const
1714       { return _M_data->_M_positive_sign; }
1715
1716       virtual string_type  
1717       do_negative_sign() const
1718       { return _M_data->_M_negative_sign; }
1719
1720       virtual int          
1721       do_frac_digits() const
1722       { return _M_data->_M_frac_digits; }
1723
1724       virtual pattern      
1725       do_pos_format() const
1726       { return _M_data->_M_pos_format; }
1727
1728       virtual pattern      
1729       do_neg_format() const
1730       { return _M_data->_M_neg_format; }
1731
1732       // For use at construction time only.
1733        void 
1734        _M_initialize_moneypunct(__c_locale __cloc = NULL, 
1735                                 const char* __name = NULL);
1736     };
1737
1738   template<typename _CharT, bool _Intl>
1739     locale::id moneypunct<_CharT, _Intl>::id;
1740
1741   template<typename _CharT, bool _Intl>
1742     const bool moneypunct<_CharT, _Intl>::intl;
1743
1744   template<>
1745     moneypunct<char, true>::~moneypunct();
1746
1747   template<>
1748     moneypunct<char, false>::~moneypunct();
1749
1750   template<> 
1751     void
1752     moneypunct<char, true>::_M_initialize_moneypunct(__c_locale, const char*);
1753
1754   template<> 
1755     void
1756     moneypunct<char, false>::_M_initialize_moneypunct(__c_locale, const char*);
1757
1758 #ifdef _GLIBCXX_USE_WCHAR_T
1759   template<>
1760     moneypunct<wchar_t, true>::~moneypunct();
1761
1762   template<>
1763     moneypunct<wchar_t, false>::~moneypunct();
1764
1765   template<> 
1766     void
1767     moneypunct<wchar_t, true>::_M_initialize_moneypunct(__c_locale, 
1768                                                         const char*);
1769
1770   template<> 
1771     void
1772     moneypunct<wchar_t, false>::_M_initialize_moneypunct(__c_locale, 
1773                                                          const char*);
1774 #endif
1775
1776   template<typename _CharT, bool _Intl>
1777     class moneypunct_byname : public moneypunct<_CharT, _Intl>
1778     {
1779       __c_locale                        _M_c_locale_moneypunct;
1780
1781     public:
1782       typedef _CharT                    char_type;
1783       typedef basic_string<_CharT>      string_type;
1784
1785       static const bool intl = _Intl;
1786
1787       explicit 
1788       moneypunct_byname(const char* __s, size_t __refs = 0)
1789       : moneypunct<_CharT, _Intl>(__refs)
1790       {
1791         this->_S_create_c_locale(_M_c_locale_moneypunct, __s);
1792         this->_M_initialize_moneypunct(_M_c_locale_moneypunct); 
1793       }
1794
1795     protected:
1796       virtual 
1797       ~moneypunct_byname() 
1798       { this->_S_destroy_c_locale(_M_c_locale_moneypunct); }
1799     };
1800
1801   template<typename _CharT, bool _Intl>
1802     const bool moneypunct_byname<_CharT, _Intl>::intl;
1803
1804   template<typename _CharT, typename _InIter>
1805     class money_get : public locale::facet
1806     {
1807     public:
1808       // Types:
1809       typedef _CharT                    char_type;
1810       typedef _InIter                   iter_type;
1811       typedef basic_string<_CharT>      string_type;
1812
1813       static locale::id                 id;
1814
1815       explicit 
1816       money_get(size_t __refs = 0) : facet(__refs) { }
1817
1818       iter_type 
1819       get(iter_type __s, iter_type __end, bool __intl, ios_base& __io, 
1820           ios_base::iostate& __err, long double& __units) const
1821       { return this->do_get(__s, __end, __intl, __io, __err, __units); }
1822
1823       iter_type 
1824       get(iter_type __s, iter_type __end, bool __intl, ios_base& __io, 
1825           ios_base::iostate& __err, string_type& __digits) const
1826       { return this->do_get(__s, __end, __intl, __io, __err, __digits); }
1827
1828     protected:
1829       virtual 
1830       ~money_get() { }
1831
1832       virtual iter_type 
1833       do_get(iter_type __s, iter_type __end, bool __intl, ios_base& __io, 
1834              ios_base::iostate& __err, long double& __units) const;
1835
1836       virtual iter_type 
1837       do_get(iter_type __s, iter_type __end, bool __intl, ios_base& __io, 
1838              ios_base::iostate& __err, string_type& __digits) const;
1839     };
1840
1841   template<typename _CharT, typename _InIter>
1842     locale::id money_get<_CharT, _InIter>::id;
1843
1844   template<typename _CharT, typename _OutIter>
1845     class money_put : public locale::facet
1846     {
1847     public:
1848       typedef _CharT                    char_type;
1849       typedef _OutIter                  iter_type;
1850       typedef basic_string<_CharT>      string_type;
1851
1852       static locale::id                 id;
1853
1854       explicit 
1855       money_put(size_t __refs = 0) : facet(__refs) { }
1856
1857       iter_type 
1858       put(iter_type __s, bool __intl, ios_base& __io,
1859           char_type __fill, long double __units) const
1860       { return this->do_put(__s, __intl, __io, __fill, __units); }
1861
1862       iter_type 
1863       put(iter_type __s, bool __intl, ios_base& __io,
1864           char_type __fill, const string_type& __digits) const
1865       { return this->do_put(__s, __intl, __io, __fill, __digits); }
1866
1867     protected:
1868       virtual 
1869       ~money_put() { }
1870
1871       virtual iter_type
1872       do_put(iter_type __s, bool __intl, ios_base& __io, char_type __fill,
1873              long double __units) const;
1874
1875       virtual iter_type
1876       do_put(iter_type __s, bool __intl, ios_base& __io, char_type __fill,
1877              const string_type& __digits) const;
1878     };
1879
1880   template<typename _CharT, typename _OutIter>
1881     locale::id money_put<_CharT, _OutIter>::id;
1882
1883
1884   struct messages_base
1885   {
1886     typedef int catalog;
1887   };
1888
1889   template<typename _CharT>
1890     class messages : public locale::facet, public messages_base
1891     {
1892     public:
1893       // Types:
1894       typedef _CharT                    char_type;
1895       typedef basic_string<_CharT>      string_type;
1896
1897     protected:
1898       // Underlying "C" library locale information saved from
1899       // initialization, needed by messages_byname as well.
1900       __c_locale                        _M_c_locale_messages;
1901       const char*                       _M_name_messages;
1902
1903     public:
1904       static locale::id                 id;
1905
1906       explicit 
1907       messages(size_t __refs = 0);
1908
1909       // Non-standard.
1910       explicit 
1911       messages(__c_locale __cloc, const char* __s, size_t __refs = 0);
1912
1913       catalog 
1914       open(const basic_string<char>& __s, const locale& __loc) const
1915       { return this->do_open(__s, __loc); }
1916
1917       // Non-standard and unorthodox, yet effective.
1918       catalog 
1919       open(const basic_string<char>&, const locale&, const char*) const;
1920
1921       string_type  
1922       get(catalog __c, int __set, int __msgid, const string_type& __s) const
1923       { return this->do_get(__c, __set, __msgid, __s); }
1924
1925       void 
1926       close(catalog __c) const
1927       { return this->do_close(__c); }
1928
1929     protected:
1930       virtual 
1931       ~messages();
1932
1933       virtual catalog 
1934       do_open(const basic_string<char>&, const locale&) const;
1935
1936       virtual string_type  
1937       do_get(catalog, int, int, const string_type& __dfault) const;
1938
1939       virtual void    
1940       do_close(catalog) const;
1941
1942       // Returns a locale and codeset-converted string, given a char* message.
1943       char*
1944       _M_convert_to_char(const string_type& __msg) const
1945       {
1946         // XXX
1947         return reinterpret_cast<char*>(const_cast<_CharT*>(__msg.c_str()));
1948       }
1949
1950       // Returns a locale and codeset-converted string, given a char* message.
1951       string_type
1952       _M_convert_from_char(char* __msg) const
1953       {
1954         // Length of message string without terminating null.
1955         size_t __len = char_traits<char>::length(__msg) - 1;
1956
1957         // "everybody can easily convert the string using
1958         // mbsrtowcs/wcsrtombs or with iconv()"
1959 #if 0
1960         // Convert char* to _CharT in locale used to open catalog.
1961         // XXX need additional template parameter on messages class for this..
1962         // typedef typename codecvt<char, _CharT, _StateT> __codecvt_type;
1963         typedef typename codecvt<char, _CharT, mbstate_t> __codecvt_type;      
1964
1965         __codecvt_type::state_type __state;
1966         // XXX may need to initialize state.
1967         //initialize_state(__state._M_init());
1968         
1969         char* __from_next;
1970         // XXX what size for this string?
1971         _CharT* __to = static_cast<_CharT*>(__builtin_alloca(__len + 1));
1972         const __codecvt_type& __cvt = use_facet<__codecvt_type>(_M_locale_conv);
1973         __cvt.out(__state, __msg, __msg + __len, __from_next,
1974                   __to, __to + __len + 1, __to_next);
1975         return string_type(__to);
1976 #endif
1977 #if 0
1978         typedef ctype<_CharT> __ctype_type;
1979         // const __ctype_type& __cvt = use_facet<__ctype_type>(_M_locale_msg);
1980         const __ctype_type& __cvt = use_facet<__ctype_type>(locale());
1981         // XXX Again, proper length of converted string an issue here.
1982         // For now, assume the converted length is not larger.
1983         _CharT* __dest = static_cast<_CharT*>(__builtin_alloca(__len + 1));
1984         __cvt.widen(__msg, __msg + __len, __dest);
1985         return basic_string<_CharT>(__dest);
1986 #endif
1987         return string_type();
1988       }
1989      };
1990
1991   template<typename _CharT>
1992     locale::id messages<_CharT>::id;
1993
1994   // Specializations for required instantiations.
1995   template<>
1996     string
1997     messages<char>::do_get(catalog, int, int, const string&) const;
1998
1999 #ifdef _GLIBCXX_USE_WCHAR_T
2000   template<>
2001     wstring
2002     messages<wchar_t>::do_get(catalog, int, int, const wstring&) const;
2003 #endif
2004
2005   template<typename _CharT>
2006     class messages_byname : public messages<_CharT>
2007     {
2008     public:
2009       typedef _CharT                    char_type;
2010       typedef basic_string<_CharT>      string_type;
2011
2012       explicit 
2013       messages_byname(const char* __s, size_t __refs = 0);
2014
2015     protected:
2016       virtual 
2017       ~messages_byname() 
2018       { }
2019     };
2020
2021   // Include host and configuration specific messages functions.
2022   #include <bits/messages_members.h>
2023
2024
2025   // Subclause convenience interfaces, inlines.
2026   // NB: These are inline because, when used in a loop, some compilers
2027   // can hoist the body out of the loop; then it's just as fast as the
2028   // C is*() function.
2029   template<typename _CharT>
2030     inline bool 
2031     isspace(_CharT __c, const locale& __loc)
2032     { return use_facet<ctype<_CharT> >(__loc).is(ctype_base::space, __c); }
2033
2034   template<typename _CharT>
2035     inline bool 
2036     isprint(_CharT __c, const locale& __loc)
2037     { return use_facet<ctype<_CharT> >(__loc).is(ctype_base::print, __c); }
2038
2039   template<typename _CharT>
2040     inline bool 
2041     iscntrl(_CharT __c, const locale& __loc)
2042     { return use_facet<ctype<_CharT> >(__loc).is(ctype_base::cntrl, __c); }
2043
2044   template<typename _CharT>
2045     inline bool 
2046     isupper(_CharT __c, const locale& __loc)
2047     { return use_facet<ctype<_CharT> >(__loc).is(ctype_base::upper, __c); }
2048
2049   template<typename _CharT>
2050     inline bool islower(_CharT __c, const locale& __loc)
2051     { return use_facet<ctype<_CharT> >(__loc).is(ctype_base::lower, __c); }
2052
2053   template<typename _CharT>
2054     inline bool 
2055     isalpha(_CharT __c, const locale& __loc)
2056     { return use_facet<ctype<_CharT> >(__loc).is(ctype_base::alpha, __c); }
2057
2058   template<typename _CharT>
2059     inline bool 
2060     isdigit(_CharT __c, const locale& __loc)
2061     { return use_facet<ctype<_CharT> >(__loc).is(ctype_base::digit, __c); }
2062
2063   template<typename _CharT>
2064     inline bool 
2065     ispunct(_CharT __c, const locale& __loc)
2066     { return use_facet<ctype<_CharT> >(__loc).is(ctype_base::punct, __c); }
2067
2068   template<typename _CharT>
2069     inline bool 
2070     isxdigit(_CharT __c, const locale& __loc)
2071     { return use_facet<ctype<_CharT> >(__loc).is(ctype_base::xdigit, __c); }
2072
2073   template<typename _CharT>
2074     inline bool 
2075     isalnum(_CharT __c, const locale& __loc)
2076     { return use_facet<ctype<_CharT> >(__loc).is(ctype_base::alnum, __c); }
2077
2078   template<typename _CharT>
2079     inline bool 
2080     isgraph(_CharT __c, const locale& __loc)
2081     { return use_facet<ctype<_CharT> >(__loc).is(ctype_base::graph, __c); }
2082
2083   template<typename _CharT>
2084     inline _CharT 
2085     toupper(_CharT __c, const locale& __loc)
2086     { return use_facet<ctype<_CharT> >(__loc).toupper(__c); }
2087
2088   template<typename _CharT>
2089     inline _CharT 
2090     tolower(_CharT __c, const locale& __loc)
2091     { return use_facet<ctype<_CharT> >(__loc).tolower(__c); }
2092 } // namespace std
2093
2094 #endif