external/bsd/libc++/dist/libcxx/include/__locale

   1 // -*- C++ -*-
   2 //===----------------------------------------------------------------------===//
   3 //
   4 //                     The LLVM Compiler Infrastructure
   5 //
   6 // This file is dual licensed under the MIT and the University of Illinois Open
   7 // Source Licenses. See LICENSE.TXT for details.
   8 //
   9 //===----------------------------------------------------------------------===//
  10
  11 #ifndef _LIBCPP___LOCALE
  12 #define _LIBCPP___LOCALE
  13
  14 #include <__config>
  15 #include <string>
  16 #include <memory>
  17 #include <utility>
  18 #include <mutex>
  19 #include <cstdint>
  20 #include <cctype>
  21 #include <locale.h>
  22 #if defined(_LIBCPP_MSVCRT) || defined(__MINGW32__)
  23 # include <support/win32/locale_win32.h>
  24 #elif defined(_AIX)
  25 # include <support/ibm/xlocale.h>
  26 #elif defined(__ANDROID__)
  27 // Android gained the locale aware functions in L (API level 21)
  28 # include <android/api-level.h>
  29 # if __ANDROID_API__ <= 20
  30 #  include <support/android/locale_bionic.h>
  31 # endif
  32 #elif defined(__sun__)
  33 # include <xlocale.h>
  34 # include <support/solaris/xlocale.h>
  35 #elif defined(_NEWLIB_VERSION)
  36 # include <support/newlib/xlocale.h>
  37 #elif (defined(__GLIBC__) || defined(__APPLE__)      || defined(__FreeBSD__) \
  38     || defined(__EMSCRIPTEN__) || defined(__IBMCPP__))
  39 # include <xlocale.h>
  40 #endif // __GLIBC__ || __APPLE__ || __FreeBSD__ || __sun__ || __EMSCRIPTEN__ || __IBMCPP__
  41
  42 #if !defined(_LIBCPP_HAS_NO_PRAGMA_SYSTEM_HEADER)
  43 #pragma GCC system_header
  44 #endif
  45
  46 _LIBCPP_BEGIN_NAMESPACE_STD
  47
  48 class _LIBCPP_TYPE_VIS locale;
  49
  50 template <class _Facet>
  51 _LIBCPP_INLINE_VISIBILITY
  52 bool
  53 has_facet(const locale&) _NOEXCEPT;
  54
  55 template <class _Facet>
  56 _LIBCPP_INLINE_VISIBILITY
  57 const _Facet&
  58 use_facet(const locale&);
  59
  60 class _LIBCPP_TYPE_VIS locale
  61 {
  62 public:
  63     // types:
  64     class _LIBCPP_TYPE_VIS facet;
  65     class _LIBCPP_TYPE_VIS id;
  66
  67     typedef int category;
  68     static const category // values assigned here are for exposition only
  69         none     = 0,
  70         collate  = LC_COLLATE_MASK,
  71         ctype    = LC_CTYPE_MASK,
  72         monetary = LC_MONETARY_MASK,
  73         numeric  = LC_NUMERIC_MASK,
  74         time     = LC_TIME_MASK,
  75         messages = LC_MESSAGES_MASK,
  76         all = collate | ctype | monetary | numeric | time | messages;
  77
  78     // construct/copy/destroy:
  79     locale()  _NOEXCEPT;
  80     locale(const locale&)  _NOEXCEPT;
  81     explicit locale(const char*);
  82     explicit locale(const string&);
  83     locale(const locale&, const char*, category);
  84     locale(const locale&, const string&, category);
  85     template <class _Facet>
  86         _LIBCPP_INLINE_VISIBILITY locale(const locale&, _Facet*);
  87     locale(const locale&, const locale&, category);
  88
  89     ~locale();
  90
  91     const locale& operator=(const locale&)  _NOEXCEPT;
  92
  93     template <class _Facet> locale combine(const locale&) const;
  94
  95     // locale operations:
  96     string name() const;
  97     bool operator==(const locale&) const;
  98     bool operator!=(const locale& __y) const {return !(*this == __y);}
  99     template <class _CharT, class _Traits, class _Allocator>
 100       bool operator()(const basic_string<_CharT, _Traits, _Allocator>&,
 101                       const basic_string<_CharT, _Traits, _Allocator>&) const;
 102
 103     // global locale objects:
 104     static locale global(const locale&);
 105     static const locale& classic();
 106
 107 private:
 108     class __imp;
 109     __imp* __locale_;
 110
 111     void __install_ctor(const locale&, facet*, long);
 112     static locale& __global();
 113     bool has_facet(id&) const;
 114     const facet* use_facet(id&) const;
 115
 116     template <class _Facet> friend bool has_facet(const locale&)  _NOEXCEPT;
 117     template <class _Facet> friend const _Facet& use_facet(const locale&);
 118 };
 119
 120 class _LIBCPP_TYPE_VIS locale::facet
 121     : public __shared_count
 122 {
 123 protected:
 124     _LIBCPP_INLINE_VISIBILITY
 125     explicit facet(size_t __refs = 0)
 126         : __shared_count(static_cast<long>(__refs)-1) {}
 127
 128     virtual ~facet();
 129
 130 //    facet(const facet&) = delete;     // effectively done in __shared_count
 131 //    void operator=(const facet&) = delete;
 132 private:
 133     virtual void __on_zero_shared() _NOEXCEPT;
 134 };
 135
 136 class _LIBCPP_TYPE_VIS locale::id
 137 {
 138     once_flag      __flag_;
 139     int32_t        __id_;
 140
 141     static int32_t __next_id;
 142 public:
 143     _LIBCPP_INLINE_VISIBILITY _LIBCPP_CONSTEXPR id() :__id_(0) {}
 144 private:
 145     void __init();
 146     void operator=(const id&); // = delete;
 147     id(const id&); // = delete;
 148 public:  // only needed for tests
 149     long __get();
 150
 151     friend class locale;
 152     friend class locale::__imp;
 153 };
 154
 155 template <class _Facet>
 156 inline _LIBCPP_INLINE_VISIBILITY
 157 locale::locale(const locale& __other, _Facet* __f)
 158 {
 159     __install_ctor(__other, __f, __f ? __f->id.__get() : 0);
 160 }
 161
 162 template <class _Facet>
 163 locale
 164 locale::combine(const locale& __other) const
 165 {
 166 #ifndef _LIBCPP_NO_EXCEPTIONS
 167     if (!_VSTD::has_facet<_Facet>(__other))
 168         throw runtime_error("locale::combine: locale missing facet");
 169 #endif  // _LIBCPP_NO_EXCEPTIONS
 170     return locale(*this, &const_cast<_Facet&>(_VSTD::use_facet<_Facet>(__other)));
 171 }
 172
 173 template <class _Facet>
 174 inline _LIBCPP_INLINE_VISIBILITY
 175 bool
 176 has_facet(const locale& __l)  _NOEXCEPT
 177 {
 178     return __l.has_facet(_Facet::id);
 179 }
 180
 181 template <class _Facet>
 182 inline _LIBCPP_INLINE_VISIBILITY
 183 const _Facet&
 184 use_facet(const locale& __l)
 185 {
 186     return static_cast<const _Facet&>(*__l.use_facet(_Facet::id));
 187 }
 188
 189 // template <class _CharT> class collate;
 190
 191 template <class _CharT>
 192 class _LIBCPP_TYPE_VIS_ONLY collate
 193     : public locale::facet
 194 {
 195 public:
 196     typedef _CharT char_type;
 197     typedef basic_string<char_type> string_type;
 198
 199     _LIBCPP_INLINE_VISIBILITY
 200     explicit collate(size_t __refs = 0)
 201         : locale::facet(__refs) {}
 202
 203     _LIBCPP_INLINE_VISIBILITY
 204     int compare(const char_type* __lo1, const char_type* __hi1,
 205                 const char_type* __lo2, const char_type* __hi2) const
 206     {
 207         return do_compare(__lo1, __hi1, __lo2, __hi2);
 208     }
 209
 210     _LIBCPP_INLINE_VISIBILITY
 211     string_type transform(const char_type* __lo, const char_type* __hi) const
 212     {
 213         return do_transform(__lo, __hi);
 214     }
 215
 216     _LIBCPP_INLINE_VISIBILITY
 217     long hash(const char_type* __lo, const char_type* __hi) const
 218     {
 219         return do_hash(__lo, __hi);
 220     }
 221
 222     static locale::id id;
 223
 224 protected:
 225     ~collate();
 226     virtual int do_compare(const char_type* __lo1, const char_type* __hi1,
 227                            const char_type* __lo2, const char_type* __hi2) const;
 228     virtual string_type do_transform(const char_type* __lo, const char_type* __hi) const
 229         {return string_type(__lo, __hi);}
 230     virtual long do_hash(const char_type* __lo, const char_type* __hi) const;
 231 };
 232
 233 template <class _CharT> locale::id collate<_CharT>::id;
 234
 235 template <class _CharT>
 236 collate<_CharT>::~collate()
 237 {
 238 }
 239
 240 template <class _CharT>
 241 int
 242 collate<_CharT>::do_compare(const char_type* __lo1, const char_type* __hi1,
 243                             const char_type* __lo2, const char_type* __hi2) const
 244 {
 245     for (; __lo2 != __hi2; ++__lo1, ++__lo2)
 246     {
 247         if (__lo1 == __hi1 || *__lo1 < *__lo2)
 248             return -1;
 249         if (*__lo2 < *__lo1)
 250             return 1;
 251     }
 252     return __lo1 != __hi1;
 253 }
 254
 255 template <class _CharT>
 256 long
 257 collate<_CharT>::do_hash(const char_type* __lo, const char_type* __hi) const
 258 {
 259     size_t __h = 0;
 260     const size_t __sr = __CHAR_BIT__ * sizeof(size_t) - 8;
 261     const size_t __mask = size_t(0xF) << (__sr + 4);
 262     for(const char_type* __p = __lo; __p != __hi; ++__p)
 263     {
 264         __h = (__h << 4) + static_cast<size_t>(*__p);
 265         size_t __g = __h & __mask;
 266         __h ^= __g | (__g >> __sr);
 267     }
 268     return static_cast<long>(__h);
 269 }
 270
 271 _LIBCPP_EXTERN_TEMPLATE2(class _LIBCPP_TYPE_VIS collate<char>)
 272 _LIBCPP_EXTERN_TEMPLATE2(class _LIBCPP_TYPE_VIS collate<wchar_t>)
 273
 274 // template <class CharT> class collate_byname;
 275
 276 template <class _CharT> class _LIBCPP_TYPE_VIS_ONLY collate_byname;
 277
 278 template <>
 279 class _LIBCPP_TYPE_VIS collate_byname<char>
 280     : public collate<char>
 281 {
 282     locale_t __l;
 283 public:
 284     typedef char char_type;
 285     typedef basic_string<char_type> string_type;
 286
 287     explicit collate_byname(const char* __n, size_t __refs = 0);
 288     explicit collate_byname(const string& __n, size_t __refs = 0);
 289
 290 protected:
 291     ~collate_byname();
 292     virtual int do_compare(const char_type* __lo1, const char_type* __hi1,
 293                            const char_type* __lo2, const char_type* __hi2) const;
 294     virtual string_type do_transform(const char_type* __lo, const char_type* __hi) const;
 295 };
 296
 297 template <>
 298 class _LIBCPP_TYPE_VIS collate_byname<wchar_t>
 299     : public collate<wchar_t>
 300 {
 301     locale_t __l;
 302 public:
 303     typedef wchar_t char_type;
 304     typedef basic_string<char_type> string_type;
 305
 306     explicit collate_byname(const char* __n, size_t __refs = 0);
 307     explicit collate_byname(const string& __n, size_t __refs = 0);
 308
 309 protected:
 310     ~collate_byname();
 311
 312     virtual int do_compare(const char_type* __lo1, const char_type* __hi1,
 313                            const char_type* __lo2, const char_type* __hi2) const;
 314     virtual string_type do_transform(const char_type* __lo, const char_type* __hi) const;
 315 };
 316
 317 template <class _CharT, class _Traits, class _Allocator>
 318 bool
 319 locale::operator()(const basic_string<_CharT, _Traits, _Allocator>& __x,
 320                    const basic_string<_CharT, _Traits, _Allocator>& __y) const
 321 {
 322     return _VSTD::use_facet<_VSTD::collate<_CharT> >(*this).compare(
 323                                        __x.data(), __x.data() + __x.size(),
 324                                        __y.data(), __y.data() + __y.size()) < 0;
 325 }
 326
 327 // template <class charT> class ctype
 328
 329 class _LIBCPP_TYPE_VIS ctype_base
 330 {
 331 public:
 332 #ifdef __GLIBC__
 333     typedef unsigned short mask;
 334     static const mask space  = _ISspace;
 335     static const mask print  = _ISprint;
 336     static const mask cntrl  = _IScntrl;
 337     static const mask upper  = _ISupper;
 338     static const mask lower  = _ISlower;
 339     static const mask alpha  = _ISalpha;
 340     static const mask digit  = _ISdigit;
 341     static const mask punct  = _ISpunct;
 342     static const mask xdigit = _ISxdigit;
 343     static const mask blank  = _ISblank;
 344 #elif defined(_WIN32)
 345     typedef unsigned short mask;
 346     static const mask space  = _SPACE;
 347     static const mask print  = _BLANK|_PUNCT|_ALPHA|_DIGIT;
 348     static const mask cntrl  = _CONTROL;
 349     static const mask upper  = _UPPER;
 350     static const mask lower  = _LOWER;
 351     static const mask alpha  = _ALPHA;
 352     static const mask digit  = _DIGIT;
 353     static const mask punct  = _PUNCT;
 354     static const mask xdigit = _HEX;
 355     static const mask blank  = _BLANK;
 356 # define _LIBCPP_CTYPE_MASK_IS_COMPOSITE_PRINT
 357 #elif defined(__APPLE__) || defined(__FreeBSD__) || defined(__EMSCRIPTEN__) || defined(__NetBSD__) || defined(__minix)
 358 # ifdef __APPLE__
 359     typedef __uint32_t mask;
 360 # elif defined(__FreeBSD__)
 361     typedef unsigned long mask;
 362 # elif defined(__EMSCRIPTEN__) ||  defined(__NetBSD__) || defined(__minix)
 363     typedef unsigned short mask;
 364 # endif
 365     static const mask space  = _CTYPE_S;
 366     static const mask print  = _CTYPE_R;
 367     static const mask cntrl  = _CTYPE_C;
 368     static const mask upper  = _CTYPE_U;
 369     static const mask lower  = _CTYPE_L;
 370     static const mask alpha  = _CTYPE_A;
 371     static const mask digit  = _CTYPE_D;
 372     static const mask punct  = _CTYPE_P;
 373     static const mask xdigit = _CTYPE_X;
 374
 375 # if defined(__NetBSD__) || defined(__minix)
 376     static const mask blank  = _CTYPE_BL;
 377 # else
 378     static const mask blank  = _CTYPE_B;
 379 # endif
 380 #elif defined(__sun__) || defined(_AIX)
 381     typedef unsigned int mask;
 382     static const mask space  = _ISSPACE;
 383     static const mask print  = _ISPRINT;
 384     static const mask cntrl  = _ISCNTRL;
 385     static const mask upper  = _ISUPPER;
 386     static const mask lower  = _ISLOWER;
 387     static const mask alpha  = _ISALPHA;
 388     static const mask digit  = _ISDIGIT;
 389     static const mask punct  = _ISPUNCT;
 390     static const mask xdigit = _ISXDIGIT;
 391     static const mask blank  = _ISBLANK;
 392 #elif defined(_NEWLIB_VERSION)
 393     // Same type as Newlib's _ctype_ array in newlib/libc/include/ctype.h.
 394     typedef char mask;
 395     static const mask space  = _S;
 396     static const mask print  = _P | _U | _L | _N | _B;
 397     static const mask cntrl  = _C;
 398     static const mask upper  = _U;
 399     static const mask lower  = _L;
 400     static const mask alpha  = _U | _L;
 401     static const mask digit  = _N;
 402     static const mask punct  = _P;
 403     static const mask xdigit = _X | _N;
 404     static const mask blank  = _B;
 405 # define _LIBCPP_CTYPE_MASK_IS_COMPOSITE_PRINT
 406 # define _LIBCPP_CTYPE_MASK_IS_COMPOSITE_ALPHA
 407 # define _LIBCPP_CTYPE_MASK_IS_COMPOSITE_XDIGIT
 408 #else
 409     typedef unsigned long mask;
 410     static const mask space  = 1<<0;
 411     static const mask print  = 1<<1;
 412     static const mask cntrl  = 1<<2;
 413     static const mask upper  = 1<<3;
 414     static const mask lower  = 1<<4;
 415     static const mask alpha  = 1<<5;
 416     static const mask digit  = 1<<6;
 417     static const mask punct  = 1<<7;
 418     static const mask xdigit = 1<<8;
 419     static const mask blank  = 1<<9;
 420 #endif
 421     static const mask alnum  = alpha | digit;
 422     static const mask graph  = alnum | punct;
 423
 424     _LIBCPP_ALWAYS_INLINE ctype_base() {}
 425 };
 426
 427 template <class _CharT> class _LIBCPP_TYPE_VIS_ONLY ctype;
 428
 429 template <>
 430 class _LIBCPP_TYPE_VIS ctype<wchar_t>
 431     : public locale::facet,
 432       public ctype_base
 433 {
 434 public:
 435     typedef wchar_t char_type;
 436
 437     _LIBCPP_ALWAYS_INLINE
 438     explicit ctype(size_t __refs = 0)
 439         : locale::facet(__refs) {}
 440
 441     _LIBCPP_ALWAYS_INLINE
 442     bool is(mask __m, char_type __c) const
 443     {
 444         return do_is(__m, __c);
 445     }
 446
 447     _LIBCPP_ALWAYS_INLINE
 448     const char_type* is(const char_type* __low, const char_type* __high, mask* __vec) const
 449     {
 450         return do_is(__low, __high, __vec);
 451     }
 452
 453     _LIBCPP_ALWAYS_INLINE
 454     const char_type* scan_is(mask __m, const char_type* __low, const char_type* __high) const
 455     {
 456         return do_scan_is(__m, __low, __high);
 457     }
 458
 459     _LIBCPP_ALWAYS_INLINE
 460     const char_type* scan_not(mask __m, const char_type* __low, const char_type* __high) const
 461     {
 462         return do_scan_not(__m, __low, __high);
 463     }
 464
 465     _LIBCPP_ALWAYS_INLINE
 466     char_type toupper(char_type __c) const
 467     {
 468         return do_toupper(__c);
 469     }
 470
 471     _LIBCPP_ALWAYS_INLINE
 472     const char_type* toupper(char_type* __low, const char_type* __high) const
 473     {
 474         return do_toupper(__low, __high);
 475     }
 476
 477     _LIBCPP_ALWAYS_INLINE
 478     char_type tolower(char_type __c) const
 479     {
 480         return do_tolower(__c);
 481     }
 482
 483     _LIBCPP_ALWAYS_INLINE
 484     const char_type* tolower(char_type* __low, const char_type* __high) const
 485     {
 486         return do_tolower(__low, __high);
 487     }
 488
 489     _LIBCPP_ALWAYS_INLINE
 490     char_type widen(char __c) const
 491     {
 492         return do_widen(__c);
 493     }
 494
 495     _LIBCPP_ALWAYS_INLINE
 496     const char* widen(const char* __low, const char* __high, char_type* __to) const
 497     {
 498         return do_widen(__low, __high, __to);
 499     }
 500
 501     _LIBCPP_ALWAYS_INLINE
 502     char narrow(char_type __c, char __dfault) const
 503     {
 504         return do_narrow(__c, __dfault);
 505     }
 506
 507     _LIBCPP_ALWAYS_INLINE
 508     const char_type* narrow(const char_type* __low, const char_type* __high, char __dfault, char* __to) const
 509     {
 510         return do_narrow(__low, __high, __dfault, __to);
 511     }
 512
 513     static locale::id id;
 514
 515 protected:
 516     ~ctype();
 517     virtual bool do_is(mask __m, char_type __c) const;
 518     virtual const char_type* do_is(const char_type* __low, const char_type* __high, mask* __vec) const;
 519     virtual const char_type* do_scan_is(mask __m, const char_type* __low, const char_type* __high) const;
 520     virtual const char_type* do_scan_not(mask __m, const char_type* __low, const char_type* __high) const;
 521     virtual char_type do_toupper(char_type) const;
 522     virtual const char_type* do_toupper(char_type* __low, const char_type* __high) const;
 523     virtual char_type do_tolower(char_type) const;
 524     virtual const char_type* do_tolower(char_type* __low, const char_type* __high) const;
 525     virtual char_type do_widen(char) const;
 526     virtual const char* do_widen(const char* __low, const char* __high, char_type* __dest) const;
 527     virtual char do_narrow(char_type, char __dfault) const;
 528     virtual const char_type* do_narrow(const char_type* __low, const char_type* __high, char __dfault, char* __dest) const;
 529 };
 530
 531 template <>
 532 class _LIBCPP_TYPE_VIS ctype<char>
 533     : public locale::facet, public ctype_base
 534 {
 535     const mask* __tab_;
 536     bool        __del_;
 537 public:
 538     typedef char char_type;
 539
 540     explicit ctype(const mask* __tab = 0, bool __del = false, size_t __refs = 0);
 541
 542     _LIBCPP_ALWAYS_INLINE
 543     bool is(mask __m, char_type __c) const
 544     {
 545         return isascii(__c) ? (__tab_[static_cast<int>(__c)] & __m) !=0 : false;
 546     }
 547
 548     _LIBCPP_ALWAYS_INLINE
 549     const char_type* is(const char_type* __low, const char_type* __high, mask* __vec) const
 550     {
 551         for (; __low != __high; ++__low, ++__vec)
 552             *__vec = isascii(*__low) ? __tab_[static_cast<int>(*__low)] : 0;
 553         return __low;
 554     }
 555
 556     _LIBCPP_ALWAYS_INLINE
 557     const char_type* scan_is (mask __m, const char_type* __low, const char_type* __high) const
 558     {
 559         for (; __low != __high; ++__low)
 560             if (isascii(*__low) && (__tab_[static_cast<int>(*__low)] & __m))
 561                 break;
 562         return __low;
 563     }
 564
 565     _LIBCPP_ALWAYS_INLINE
 566     const char_type* scan_not(mask __m, const char_type* __low, const char_type* __high) const
 567     {
 568         for (; __low != __high; ++__low)
 569             if (!(isascii(*__low) && (__tab_[static_cast<int>(*__low)] & __m)))
 570                 break;
 571         return __low;
 572     }
 573
 574     _LIBCPP_ALWAYS_INLINE
 575     char_type toupper(char_type __c) const
 576     {
 577         return do_toupper(__c);
 578     }
 579
 580     _LIBCPP_ALWAYS_INLINE
 581     const char_type* toupper(char_type* __low, const char_type* __high) const
 582     {
 583         return do_toupper(__low, __high);
 584     }
 585
 586     _LIBCPP_ALWAYS_INLINE
 587     char_type tolower(char_type __c) const
 588     {
 589         return do_tolower(__c);
 590     }
 591
 592     _LIBCPP_ALWAYS_INLINE
 593     const char_type* tolower(char_type* __low, const char_type* __high) const
 594     {
 595         return do_tolower(__low, __high);
 596     }
 597
 598     _LIBCPP_ALWAYS_INLINE
 599     char_type widen(char __c) const
 600     {
 601         return do_widen(__c);
 602     }
 603
 604     _LIBCPP_ALWAYS_INLINE
 605     const char* widen(const char* __low, const char* __high, char_type* __to) const
 606     {
 607         return do_widen(__low, __high, __to);
 608     }
 609
 610     _LIBCPP_ALWAYS_INLINE
 611     char narrow(char_type __c, char __dfault) const
 612     {
 613         return do_narrow(__c, __dfault);
 614     }
 615
 616     _LIBCPP_ALWAYS_INLINE
 617     const char* narrow(const char_type* __low, const char_type* __high, char __dfault, char* __to) const
 618     {
 619         return do_narrow(__low, __high, __dfault, __to);
 620     }
 621
 622     static locale::id id;
 623
 624 #ifdef _CACHED_RUNES
 625     static const size_t table_size = _CACHED_RUNES;
 626 #else
 627     static const size_t table_size = 256;  // FIXME: Don't hardcode this.
 628 #endif
 629     _LIBCPP_ALWAYS_INLINE const mask* table() const  _NOEXCEPT {return __tab_;}
 630     static const mask* classic_table()  _NOEXCEPT;
 631 #if defined(__GLIBC__) || defined(__EMSCRIPTEN__)
 632     static const int* __classic_upper_table() _NOEXCEPT;
 633     static const int* __classic_lower_table() _NOEXCEPT;
 634 #endif
 635 #if defined(__NetBSD__) || defined(__minix)
 636     static const short* __classic_upper_table() _NOEXCEPT;
 637     static const short* __classic_lower_table() _NOEXCEPT;
 638 #endif
 639
 640 protected:
 641     ~ctype();
 642     virtual char_type do_toupper(char_type __c) const;
 643     virtual const char_type* do_toupper(char_type* __low, const char_type* __high) const;
 644     virtual char_type do_tolower(char_type __c) const;
 645     virtual const char_type* do_tolower(char_type* __low, const char_type* __high) const;
 646     virtual char_type do_widen(char __c) const;
 647     virtual const char* do_widen(const char* __low, const char* __high, char_type* __to) const;
 648     virtual char do_narrow(char_type __c, char __dfault) const;
 649     virtual const char* do_narrow(const char_type* __low, const char_type* __high, char __dfault, char* __to) const;
 650 };
 651
 652 // template <class CharT> class ctype_byname;
 653
 654 template <class _CharT> class _LIBCPP_TYPE_VIS_ONLY ctype_byname;
 655
 656 template <>
 657 class _LIBCPP_TYPE_VIS ctype_byname<char>
 658     : public ctype<char>
 659 {
 660     locale_t __l;
 661
 662 public:
 663     explicit ctype_byname(const char*, size_t = 0);
 664     explicit ctype_byname(const string&, size_t = 0);
 665
 666 protected:
 667     ~ctype_byname();
 668     virtual char_type do_toupper(char_type) const;
 669     virtual const char_type* do_toupper(char_type* __low, const char_type* __high) const;
 670     virtual char_type do_tolower(char_type) const;
 671     virtual const char_type* do_tolower(char_type* __low, const char_type* __high) const;
 672 };
 673
 674 template <>
 675 class _LIBCPP_TYPE_VIS ctype_byname<wchar_t>
 676     : public ctype<wchar_t>
 677 {
 678     locale_t __l;
 679
 680 public:
 681     explicit ctype_byname(const char*, size_t = 0);
 682     explicit ctype_byname(const string&, size_t = 0);
 683
 684 protected:
 685     ~ctype_byname();
 686     virtual bool do_is(mask __m, char_type __c) const;
 687     virtual const char_type* do_is(const char_type* __low, const char_type* __high, mask* __vec) const;
 688     virtual const char_type* do_scan_is(mask __m, const char_type* __low, const char_type* __high) const;
 689     virtual const char_type* do_scan_not(mask __m, const char_type* __low, const char_type* __high) const;
 690     virtual char_type do_toupper(char_type) const;
 691     virtual const char_type* do_toupper(char_type* __low, const char_type* __high) const;
 692     virtual char_type do_tolower(char_type) const;
 693     virtual const char_type* do_tolower(char_type* __low, const char_type* __high) const;
 694     virtual char_type do_widen(char) const;
 695     virtual const char* do_widen(const char* __low, const char* __high, char_type* __dest) const;
 696     virtual char do_narrow(char_type, char __dfault) const;
 697     virtual const char_type* do_narrow(const char_type* __low, const char_type* __high, char __dfault, char* __dest) const;
 698 };
 699
 700 template <class _CharT>
 701 inline _LIBCPP_INLINE_VISIBILITY
 702 bool
 703 isspace(_CharT __c, const locale& __loc)
 704 {
 705     return use_facet<ctype<_CharT> >(__loc).is(ctype_base::space, __c);
 706 }
 707
 708 template <class _CharT>
 709 inline _LIBCPP_INLINE_VISIBILITY
 710 bool
 711 isprint(_CharT __c, const locale& __loc)
 712 {
 713     return use_facet<ctype<_CharT> >(__loc).is(ctype_base::print, __c);
 714 }
 715
 716 template <class _CharT>
 717 inline _LIBCPP_INLINE_VISIBILITY
 718 bool
 719 iscntrl(_CharT __c, const locale& __loc)
 720 {
 721     return use_facet<ctype<_CharT> >(__loc).is(ctype_base::cntrl, __c);
 722 }
 723
 724 template <class _CharT>
 725 inline _LIBCPP_INLINE_VISIBILITY
 726 bool
 727 isupper(_CharT __c, const locale& __loc)
 728 {
 729     return use_facet<ctype<_CharT> >(__loc).is(ctype_base::upper, __c);
 730 }
 731
 732 template <class _CharT>
 733 inline _LIBCPP_INLINE_VISIBILITY
 734 bool
 735 islower(_CharT __c, const locale& __loc)
 736 {
 737     return use_facet<ctype<_CharT> >(__loc).is(ctype_base::lower, __c);
 738 }
 739
 740 template <class _CharT>
 741 inline _LIBCPP_INLINE_VISIBILITY
 742 bool
 743 isalpha(_CharT __c, const locale& __loc)
 744 {
 745     return use_facet<ctype<_CharT> >(__loc).is(ctype_base::alpha, __c);
 746 }
 747
 748 template <class _CharT>
 749 inline _LIBCPP_INLINE_VISIBILITY
 750 bool
 751 isdigit(_CharT __c, const locale& __loc)
 752 {
 753     return use_facet<ctype<_CharT> >(__loc).is(ctype_base::digit, __c);
 754 }
 755
 756 template <class _CharT>
 757 inline _LIBCPP_INLINE_VISIBILITY
 758 bool
 759 ispunct(_CharT __c, const locale& __loc)
 760 {
 761     return use_facet<ctype<_CharT> >(__loc).is(ctype_base::punct, __c);
 762 }
 763
 764 template <class _CharT>
 765 inline _LIBCPP_INLINE_VISIBILITY
 766 bool
 767 isxdigit(_CharT __c, const locale& __loc)
 768 {
 769     return use_facet<ctype<_CharT> >(__loc).is(ctype_base::xdigit, __c);
 770 }
 771
 772 template <class _CharT>
 773 inline _LIBCPP_INLINE_VISIBILITY
 774 bool
 775 isalnum(_CharT __c, const locale& __loc)
 776 {
 777     return use_facet<ctype<_CharT> >(__loc).is(ctype_base::alnum, __c);
 778 }
 779
 780 template <class _CharT>
 781 inline _LIBCPP_INLINE_VISIBILITY
 782 bool
 783 isgraph(_CharT __c, const locale& __loc)
 784 {
 785     return use_facet<ctype<_CharT> >(__loc).is(ctype_base::graph, __c);
 786 }
 787
 788 template <class _CharT>
 789 inline _LIBCPP_INLINE_VISIBILITY
 790 _CharT
 791 toupper(_CharT __c, const locale& __loc)
 792 {
 793     return use_facet<ctype<_CharT> >(__loc).toupper(__c);
 794 }
 795
 796 template <class _CharT>
 797 inline _LIBCPP_INLINE_VISIBILITY
 798 _CharT
 799 tolower(_CharT __c, const locale& __loc)
 800 {
 801     return use_facet<ctype<_CharT> >(__loc).tolower(__c);
 802 }
 803
 804 // codecvt_base
 805
 806 class _LIBCPP_TYPE_VIS codecvt_base
 807 {
 808 public:
 809     _LIBCPP_ALWAYS_INLINE codecvt_base() {}
 810     enum result {ok, partial, error, noconv};
 811 };
 812
 813 // template <class internT, class externT, class stateT> class codecvt;
 814
 815 template <class _InternT, class _ExternT, class _StateT> class _LIBCPP_TYPE_VIS_ONLY codecvt;
 816
 817 // template <> class codecvt<char, char, mbstate_t>
 818
 819 template <>
 820 class _LIBCPP_TYPE_VIS codecvt<char, char, mbstate_t>
 821     : public locale::facet,
 822       public codecvt_base
 823 {
 824 public:
 825     typedef char      intern_type;
 826     typedef char      extern_type;
 827     typedef mbstate_t state_type;
 828
 829     _LIBCPP_ALWAYS_INLINE
 830     explicit codecvt(size_t __refs = 0)
 831         : locale::facet(__refs) {}
 832
 833     _LIBCPP_ALWAYS_INLINE
 834     result out(state_type& __st,
 835                const intern_type* __frm, const intern_type* __frm_end, const intern_type*& __frm_nxt,
 836                extern_type* __to, extern_type* __to_end, extern_type*& __to_nxt) const
 837     {
 838         return do_out(__st, __frm, __frm_end, __frm_nxt, __to, __to_end, __to_nxt);
 839     }
 840
 841     _LIBCPP_ALWAYS_INLINE
 842     result unshift(state_type& __st,
 843                    extern_type* __to, extern_type* __to_end, extern_type*& __to_nxt) const
 844     {
 845         return do_unshift(__st, __to, __to_end, __to_nxt);
 846     }
 847
 848     _LIBCPP_ALWAYS_INLINE
 849     result in(state_type& __st,
 850               const extern_type* __frm, const extern_type* __frm_end, const extern_type*& __frm_nxt,
 851               intern_type* __to, intern_type* __to_end, intern_type*& __to_nxt) const
 852     {
 853         return do_in(__st, __frm, __frm_end, __frm_nxt, __to, __to_end, __to_nxt);
 854     }
 855
 856     _LIBCPP_ALWAYS_INLINE
 857     int encoding() const  _NOEXCEPT
 858     {
 859         return do_encoding();
 860     }
 861
 862     _LIBCPP_ALWAYS_INLINE
 863     bool always_noconv() const  _NOEXCEPT
 864     {
 865         return do_always_noconv();
 866     }
 867
 868     _LIBCPP_ALWAYS_INLINE
 869     int length(state_type& __st, const extern_type* __frm, const extern_type* __end, size_t __mx) const
 870     {
 871         return do_length(__st, __frm, __end, __mx);
 872     }
 873
 874     _LIBCPP_ALWAYS_INLINE
 875     int max_length() const  _NOEXCEPT
 876     {
 877         return do_max_length();
 878     }
 879
 880     static locale::id id;
 881
 882 protected:
 883     _LIBCPP_ALWAYS_INLINE
 884     explicit codecvt(const char*, size_t __refs = 0)
 885         : locale::facet(__refs) {}
 886
 887     ~codecvt();
 888
 889     virtual result do_out(state_type& __st,
 890                           const intern_type* __frm, const intern_type* __frm_end, const intern_type*& __frm_nxt,
 891                           extern_type* __to, extern_type* __to_end, extern_type*& __to_nxt) const;
 892     virtual result do_in(state_type& __st,
 893                          const extern_type* __frm, const extern_type* __frm_end, const extern_type*& __frm_nxt,
 894                          intern_type* __to, intern_type* __to_end, intern_type*& __to_nxt) const;
 895     virtual result do_unshift(state_type& __st,
 896                               extern_type* __to, extern_type* __to_end, extern_type*& __to_nxt) const;
 897     virtual int do_encoding() const  _NOEXCEPT;
 898     virtual bool do_always_noconv() const  _NOEXCEPT;
 899     virtual int do_length(state_type& __st, const extern_type* __frm, const extern_type* __end, size_t __mx) const;
 900     virtual int do_max_length() const  _NOEXCEPT;
 901 };
 902
 903 // template <> class codecvt<wchar_t, char, mbstate_t>
 904
 905 template <>
 906 class _LIBCPP_TYPE_VIS codecvt<wchar_t, char, mbstate_t>
 907     : public locale::facet,
 908       public codecvt_base
 909 {
 910     locale_t __l;
 911 public:
 912     typedef wchar_t   intern_type;
 913     typedef char      extern_type;
 914     typedef mbstate_t state_type;
 915
 916     explicit codecvt(size_t __refs = 0);
 917
 918     _LIBCPP_ALWAYS_INLINE
 919     result out(state_type& __st,
 920                const intern_type* __frm, const intern_type* __frm_end, const intern_type*& __frm_nxt,
 921                extern_type* __to, extern_type* __to_end, extern_type*& __to_nxt) const
 922     {
 923         return do_out(__st, __frm, __frm_end, __frm_nxt, __to, __to_end, __to_nxt);
 924     }
 925
 926     _LIBCPP_ALWAYS_INLINE
 927     result unshift(state_type& __st,
 928                    extern_type* __to, extern_type* __to_end, extern_type*& __to_nxt) const
 929     {
 930         return do_unshift(__st, __to, __to_end, __to_nxt);
 931     }
 932
 933     _LIBCPP_ALWAYS_INLINE
 934     result in(state_type& __st,
 935               const extern_type* __frm, const extern_type* __frm_end, const extern_type*& __frm_nxt,
 936               intern_type* __to, intern_type* __to_end, intern_type*& __to_nxt) const
 937     {
 938         return do_in(__st, __frm, __frm_end, __frm_nxt, __to, __to_end, __to_nxt);
 939     }
 940
 941     _LIBCPP_ALWAYS_INLINE
 942     int encoding() const  _NOEXCEPT
 943     {
 944         return do_encoding();
 945     }
 946
 947     _LIBCPP_ALWAYS_INLINE
 948     bool always_noconv() const  _NOEXCEPT
 949     {
 950         return do_always_noconv();
 951     }
 952
 953     _LIBCPP_ALWAYS_INLINE
 954     int length(state_type& __st, const extern_type* __frm, const extern_type* __end, size_t __mx) const
 955     {
 956         return do_length(__st, __frm, __end, __mx);
 957     }
 958
 959     _LIBCPP_ALWAYS_INLINE
 960     int max_length() const  _NOEXCEPT
 961     {
 962         return do_max_length();
 963     }
 964
 965     static locale::id id;
 966
 967 protected:
 968     explicit codecvt(const char*, size_t __refs = 0);
 969
 970     ~codecvt();
 971
 972     virtual result do_out(state_type& __st,
 973                           const intern_type* __frm, const intern_type* __frm_end, const intern_type*& __frm_nxt,
 974                           extern_type* __to, extern_type* __to_end, extern_type*& __to_nxt) const;
 975     virtual result do_in(state_type& __st,
 976                          const extern_type* __frm, const extern_type* __frm_end, const extern_type*& __frm_nxt,
 977                          intern_type* __to, intern_type* __to_end, intern_type*& __to_nxt) const;
 978     virtual result do_unshift(state_type& __st,
 979                               extern_type* __to, extern_type* __to_end, extern_type*& __to_nxt) const;
 980     virtual int do_encoding() const  _NOEXCEPT;
 981     virtual bool do_always_noconv() const  _NOEXCEPT;
 982     virtual int do_length(state_type&, const extern_type* __frm, const extern_type* __end, size_t __mx) const;
 983     virtual int do_max_length() const  _NOEXCEPT;
 984 };
 985
 986 // template <> class codecvt<char16_t, char, mbstate_t>
 987
 988 template <>
 989 class _LIBCPP_TYPE_VIS codecvt<char16_t, char, mbstate_t>
 990     : public locale::facet,
 991       public codecvt_base
 992 {
 993 public:
 994     typedef char16_t  intern_type;
 995     typedef char      extern_type;
 996     typedef mbstate_t state_type;
 997
 998     _LIBCPP_ALWAYS_INLINE
 999     explicit codecvt(size_t __refs = 0)
1000         : locale::facet(__refs) {}
1001
1002     _LIBCPP_ALWAYS_INLINE
1003     result out(state_type& __st,
1004                const intern_type* __frm, const intern_type* __frm_end, const intern_type*& __frm_nxt,
1005                extern_type* __to, extern_type* __to_end, extern_type*& __to_nxt) const
1006     {
1007         return do_out(__st, __frm, __frm_end, __frm_nxt, __to, __to_end, __to_nxt);
1008     }
1009
1010     _LIBCPP_ALWAYS_INLINE
1011     result unshift(state_type& __st,
1012                    extern_type* __to, extern_type* __to_end, extern_type*& __to_nxt) const
1013     {
1014         return do_unshift(__st, __to, __to_end, __to_nxt);
1015     }
1016
1017     _LIBCPP_ALWAYS_INLINE
1018     result in(state_type& __st,
1019               const extern_type* __frm, const extern_type* __frm_end, const extern_type*& __frm_nxt,
1020               intern_type* __to, intern_type* __to_end, intern_type*& __to_nxt) const
1021     {
1022         return do_in(__st, __frm, __frm_end, __frm_nxt, __to, __to_end, __to_nxt);
1023     }
1024
1025     _LIBCPP_ALWAYS_INLINE
1026     int encoding() const  _NOEXCEPT
1027     {
1028         return do_encoding();
1029     }
1030
1031     _LIBCPP_ALWAYS_INLINE
1032     bool always_noconv() const  _NOEXCEPT
1033     {
1034         return do_always_noconv();
1035     }
1036
1037     _LIBCPP_ALWAYS_INLINE
1038     int length(state_type& __st, const extern_type* __frm, const extern_type* __end, size_t __mx) const
1039     {
1040         return do_length(__st, __frm, __end, __mx);
1041     }
1042
1043     _LIBCPP_ALWAYS_INLINE
1044     int max_length() const  _NOEXCEPT
1045     {
1046         return do_max_length();
1047     }
1048
1049     static locale::id id;
1050
1051 protected:
1052     _LIBCPP_ALWAYS_INLINE
1053     explicit codecvt(const char*, size_t __refs = 0)
1054         : locale::facet(__refs) {}
1055
1056     ~codecvt();
1057
1058     virtual result do_out(state_type& __st,
1059                           const intern_type* __frm, const intern_type* __frm_end, const intern_type*& __frm_nxt,
1060                           extern_type* __to, extern_type* __to_end, extern_type*& __to_nxt) const;
1061     virtual result do_in(state_type& __st,
1062                          const extern_type* __frm, const extern_type* __frm_end, const extern_type*& __frm_nxt,
1063                          intern_type* __to, intern_type* __to_end, intern_type*& __to_nxt) const;
1064     virtual result do_unshift(state_type& __st,
1065                               extern_type* __to, extern_type* __to_end, extern_type*& __to_nxt) const;
1066     virtual int do_encoding() const  _NOEXCEPT;
1067     virtual bool do_always_noconv() const  _NOEXCEPT;
1068     virtual int do_length(state_type&, const extern_type* __frm, const extern_type* __end, size_t __mx) const;
1069     virtual int do_max_length() const  _NOEXCEPT;
1070 };
1071
1072 // template <> class codecvt<char32_t, char, mbstate_t>
1073
1074 template <>
1075 class _LIBCPP_TYPE_VIS codecvt<char32_t, char, mbstate_t>
1076     : public locale::facet,
1077       public codecvt_base
1078 {
1079 public:
1080     typedef char32_t  intern_type;
1081     typedef char      extern_type;
1082     typedef mbstate_t state_type;
1083
1084     _LIBCPP_ALWAYS_INLINE
1085     explicit codecvt(size_t __refs = 0)
1086         : locale::facet(__refs) {}
1087
1088     _LIBCPP_ALWAYS_INLINE
1089     result out(state_type& __st,
1090                const intern_type* __frm, const intern_type* __frm_end, const intern_type*& __frm_nxt,
1091                extern_type* __to, extern_type* __to_end, extern_type*& __to_nxt) const
1092     {
1093         return do_out(__st, __frm, __frm_end, __frm_nxt, __to, __to_end, __to_nxt);
1094     }
1095
1096     _LIBCPP_ALWAYS_INLINE
1097     result unshift(state_type& __st,
1098                    extern_type* __to, extern_type* __to_end, extern_type*& __to_nxt) const
1099     {
1100         return do_unshift(__st, __to, __to_end, __to_nxt);
1101     }
1102
1103     _LIBCPP_ALWAYS_INLINE
1104     result in(state_type& __st,
1105               const extern_type* __frm, const extern_type* __frm_end, const extern_type*& __frm_nxt,
1106               intern_type* __to, intern_type* __to_end, intern_type*& __to_nxt) const
1107     {
1108         return do_in(__st, __frm, __frm_end, __frm_nxt, __to, __to_end, __to_nxt);
1109     }
1110
1111     _LIBCPP_ALWAYS_INLINE
1112     int encoding() const  _NOEXCEPT
1113     {
1114         return do_encoding();
1115     }
1116
1117     _LIBCPP_ALWAYS_INLINE
1118     bool always_noconv() const  _NOEXCEPT
1119     {
1120         return do_always_noconv();
1121     }
1122
1123     _LIBCPP_ALWAYS_INLINE
1124     int length(state_type& __st, const extern_type* __frm, const extern_type* __end, size_t __mx) const
1125     {
1126         return do_length(__st, __frm, __end, __mx);
1127     }
1128
1129     _LIBCPP_ALWAYS_INLINE
1130     int max_length() const  _NOEXCEPT
1131     {
1132         return do_max_length();
1133     }
1134
1135     static locale::id id;
1136
1137 protected:
1138     _LIBCPP_ALWAYS_INLINE
1139     explicit codecvt(const char*, size_t __refs = 0)
1140         : locale::facet(__refs) {}
1141
1142     ~codecvt();
1143
1144     virtual result do_out(state_type& __st,
1145                           const intern_type* __frm, const intern_type* __frm_end, const intern_type*& __frm_nxt,
1146                           extern_type* __to, extern_type* __to_end, extern_type*& __to_nxt) const;
1147     virtual result do_in(state_type& __st,
1148                          const extern_type* __frm, const extern_type* __frm_end, const extern_type*& __frm_nxt,
1149                          intern_type* __to, intern_type* __to_end, intern_type*& __to_nxt) const;
1150     virtual result do_unshift(state_type& __st,
1151                               extern_type* __to, extern_type* __to_end, extern_type*& __to_nxt) const;
1152     virtual int do_encoding() const  _NOEXCEPT;
1153     virtual bool do_always_noconv() const  _NOEXCEPT;
1154     virtual int do_length(state_type&, const extern_type* __frm, const extern_type* __end, size_t __mx) const;
1155     virtual int do_max_length() const  _NOEXCEPT;
1156 };
1157
1158 // template <class _InternT, class _ExternT, class _StateT> class codecvt_byname
1159
1160 template <class _InternT, class _ExternT, class _StateT>
1161 class _LIBCPP_TYPE_VIS_ONLY codecvt_byname
1162     : public codecvt<_InternT, _ExternT, _StateT>
1163 {
1164 public:
1165     _LIBCPP_ALWAYS_INLINE
1166     explicit codecvt_byname(const char* __nm, size_t __refs = 0)
1167         : codecvt<_InternT, _ExternT, _StateT>(__nm, __refs) {}
1168     _LIBCPP_ALWAYS_INLINE
1169     explicit codecvt_byname(const string& __nm, size_t __refs = 0)
1170         : codecvt<_InternT, _ExternT, _StateT>(__nm.c_str(), __refs) {}
1171 protected:
1172     ~codecvt_byname();
1173 };
1174
1175 template <class _InternT, class _ExternT, class _StateT>
1176 codecvt_byname<_InternT, _ExternT, _StateT>::~codecvt_byname()
1177 {
1178 }
1179
1180 _LIBCPP_EXTERN_TEMPLATE2(class _LIBCPP_TYPE_VIS codecvt_byname<char, char, mbstate_t>)
1181 _LIBCPP_EXTERN_TEMPLATE2(class _LIBCPP_TYPE_VIS codecvt_byname<wchar_t, char, mbstate_t>)
1182 _LIBCPP_EXTERN_TEMPLATE2(class _LIBCPP_TYPE_VIS codecvt_byname<char16_t, char, mbstate_t>)
1183 _LIBCPP_EXTERN_TEMPLATE2(class _LIBCPP_TYPE_VIS codecvt_byname<char32_t, char, mbstate_t>)
1184
1185 _LIBCPP_FUNC_VIS void __throw_runtime_error(const char*);
1186
1187 template <size_t _Np>
1188 struct __narrow_to_utf8
1189 {
1190     template <class _OutputIterator, class _CharT>
1191     _OutputIterator
1192     operator()(_OutputIterator __s, const _CharT* __wb, const _CharT* __we) const;
1193 };
1194
1195 template <>
1196 struct __narrow_to_utf8<8>
1197 {
1198     template <class _OutputIterator, class _CharT>
1199     _LIBCPP_ALWAYS_INLINE
1200     _OutputIterator
1201     operator()(_OutputIterator __s, const _CharT* __wb, const _CharT* __we) const
1202     {
1203         for (; __wb < __we; ++__wb, ++__s)
1204             *__s = *__wb;
1205         return __s;
1206     }
1207 };
1208
1209 template <>
1210 struct __narrow_to_utf8<16>
1211     : public codecvt<char16_t, char, mbstate_t>
1212 {
1213     _LIBCPP_ALWAYS_INLINE
1214     __narrow_to_utf8() : codecvt<char16_t, char, mbstate_t>(1) {}
1215
1216     ~__narrow_to_utf8();
1217
1218     template <class _OutputIterator, class _CharT>
1219     _LIBCPP_ALWAYS_INLINE
1220     _OutputIterator
1221     operator()(_OutputIterator __s, const _CharT* __wb, const _CharT* __we) const
1222     {
1223         result __r = ok;
1224         mbstate_t __mb;
1225         while (__wb < __we && __r != error)
1226         {
1227             const int __sz = 32;
1228             char __buf[__sz];
1229             char* __bn;
1230             const char16_t* __wn = (const char16_t*)__wb;
1231             __r = do_out(__mb, (const char16_t*)__wb, (const char16_t*)__we, __wn,
1232                          __buf, __buf+__sz, __bn);
1233             if (__r == codecvt_base::error || __wn == (const char16_t*)__wb)
1234                 __throw_runtime_error("locale not supported");
1235             for (const char* __p = __buf; __p < __bn; ++__p, ++__s)
1236                 *__s = *__p;
1237             __wb = (const _CharT*)__wn;
1238         }
1239         return __s;
1240     }
1241 };
1242
1243 template <>
1244 struct __narrow_to_utf8<32>
1245     : public codecvt<char32_t, char, mbstate_t>
1246 {
1247     _LIBCPP_ALWAYS_INLINE
1248     __narrow_to_utf8() : codecvt<char32_t, char, mbstate_t>(1) {}
1249
1250     ~__narrow_to_utf8();
1251
1252     template <class _OutputIterator, class _CharT>
1253     _LIBCPP_ALWAYS_INLINE
1254     _OutputIterator
1255     operator()(_OutputIterator __s, const _CharT* __wb, const _CharT* __we) const
1256     {
1257         result __r = ok;
1258         mbstate_t __mb;
1259         while (__wb < __we && __r != error)
1260         {
1261             const int __sz = 32;
1262             char __buf[__sz];
1263             char* __bn;
1264             const char32_t* __wn = (const char32_t*)__wb;
1265             __r = do_out(__mb, (const char32_t*)__wb, (const char32_t*)__we, __wn,
1266                          __buf, __buf+__sz, __bn);
1267             if (__r == codecvt_base::error || __wn == (const char32_t*)__wb)
1268                 __throw_runtime_error("locale not supported");
1269             for (const char* __p = __buf; __p < __bn; ++__p, ++__s)
1270                 *__s = *__p;
1271             __wb = (const _CharT*)__wn;
1272         }
1273         return __s;
1274     }
1275 };
1276
1277 template <size_t _Np>
1278 struct __widen_from_utf8
1279 {
1280     template <class _OutputIterator>
1281     _OutputIterator
1282     operator()(_OutputIterator __s, const char* __nb, const char* __ne) const;
1283 };
1284
1285 template <>
1286 struct __widen_from_utf8<8>
1287 {
1288     template <class _OutputIterator>
1289     _LIBCPP_ALWAYS_INLINE
1290     _OutputIterator
1291     operator()(_OutputIterator __s, const char* __nb, const char* __ne) const
1292     {
1293         for (; __nb < __ne; ++__nb, ++__s)
1294             *__s = *__nb;
1295         return __s;
1296     }
1297 };
1298
1299 template <>
1300 struct __widen_from_utf8<16>
1301     : public codecvt<char16_t, char, mbstate_t>
1302 {
1303     _LIBCPP_ALWAYS_INLINE
1304     __widen_from_utf8() : codecvt<char16_t, char, mbstate_t>(1) {}
1305
1306     ~__widen_from_utf8();
1307
1308     template <class _OutputIterator>
1309     _LIBCPP_ALWAYS_INLINE
1310     _OutputIterator
1311     operator()(_OutputIterator __s, const char* __nb, const char* __ne) const
1312     {
1313         result __r = ok;
1314         mbstate_t __mb;
1315         while (__nb < __ne && __r != error)
1316         {
1317             const int __sz = 32;
1318             char16_t __buf[__sz];
1319             char16_t* __bn;
1320             const char* __nn = __nb;
1321             __r = do_in(__mb, __nb, __ne - __nb > __sz ? __nb+__sz : __ne, __nn,
1322                         __buf, __buf+__sz, __bn);
1323             if (__r == codecvt_base::error || __nn == __nb)
1324                 __throw_runtime_error("locale not supported");
1325             for (const char16_t* __p = __buf; __p < __bn; ++__p, ++__s)
1326                 *__s = (wchar_t)*__p;
1327             __nb = __nn;
1328         }
1329         return __s;
1330     }
1331 };
1332
1333 template <>
1334 struct __widen_from_utf8<32>
1335     : public codecvt<char32_t, char, mbstate_t>
1336 {
1337     _LIBCPP_ALWAYS_INLINE
1338     __widen_from_utf8() : codecvt<char32_t, char, mbstate_t>(1) {}
1339
1340     ~__widen_from_utf8();
1341
1342     template <class _OutputIterator>
1343     _LIBCPP_ALWAYS_INLINE
1344     _OutputIterator
1345     operator()(_OutputIterator __s, const char* __nb, const char* __ne) const
1346     {
1347         result __r = ok;
1348         mbstate_t __mb;
1349         while (__nb < __ne && __r != error)
1350         {
1351             const int __sz = 32;
1352             char32_t __buf[__sz];
1353             char32_t* __bn;
1354             const char* __nn = __nb;
1355             __r = do_in(__mb, __nb, __ne - __nb > __sz ? __nb+__sz : __ne, __nn,
1356                         __buf, __buf+__sz, __bn);
1357             if (__r == codecvt_base::error || __nn == __nb)
1358                 __throw_runtime_error("locale not supported");
1359             for (const char32_t* __p = __buf; __p < __bn; ++__p, ++__s)
1360                 *__s = (wchar_t)*__p;
1361             __nb = __nn;
1362         }
1363         return __s;
1364     }
1365 };
1366
1367 // template <class charT> class numpunct
1368
1369 template <class _CharT> class _LIBCPP_TYPE_VIS_ONLY numpunct;
1370
1371 template <>
1372 class _LIBCPP_TYPE_VIS numpunct<char>
1373     : public locale::facet
1374 {
1375 public:
1376     typedef char char_type;
1377     typedef basic_string<char_type> string_type;
1378
1379     explicit numpunct(size_t __refs = 0);
1380
1381     _LIBCPP_ALWAYS_INLINE char_type decimal_point() const {return do_decimal_point();}
1382     _LIBCPP_ALWAYS_INLINE char_type thousands_sep() const {return do_thousands_sep();}
1383     _LIBCPP_ALWAYS_INLINE string grouping() const         {return do_grouping();}
1384     _LIBCPP_ALWAYS_INLINE string_type truename() const    {return do_truename();}
1385     _LIBCPP_ALWAYS_INLINE string_type falsename() const   {return do_falsename();}
1386
1387     static locale::id id;
1388
1389 protected:
1390     ~numpunct();
1391     virtual char_type do_decimal_point() const;
1392     virtual char_type do_thousands_sep() const;
1393     virtual string do_grouping() const;
1394     virtual string_type do_truename() const;
1395     virtual string_type do_falsename() const;
1396
1397     char_type __decimal_point_;
1398     char_type __thousands_sep_;
1399     string __grouping_;
1400 };
1401
1402 template <>
1403 class _LIBCPP_TYPE_VIS numpunct<wchar_t>
1404     : public locale::facet
1405 {
1406 public:
1407     typedef wchar_t char_type;
1408     typedef basic_string<char_type> string_type;
1409
1410     explicit numpunct(size_t __refs = 0);
1411
1412     _LIBCPP_ALWAYS_INLINE char_type decimal_point() const {return do_decimal_point();}
1413     _LIBCPP_ALWAYS_INLINE char_type thousands_sep() const {return do_thousands_sep();}
1414     _LIBCPP_ALWAYS_INLINE string grouping() const         {return do_grouping();}
1415     _LIBCPP_ALWAYS_INLINE string_type truename() const    {return do_truename();}
1416     _LIBCPP_ALWAYS_INLINE string_type falsename() const   {return do_falsename();}
1417
1418     static locale::id id;
1419
1420 protected:
1421     ~numpunct();
1422     virtual char_type do_decimal_point() const;
1423     virtual char_type do_thousands_sep() const;
1424     virtual string do_grouping() const;
1425     virtual string_type do_truename() const;
1426     virtual string_type do_falsename() const;
1427
1428     char_type __decimal_point_;
1429     char_type __thousands_sep_;
1430     string __grouping_;
1431 };
1432
1433 // template <class charT> class numpunct_byname
1434
1435 template <class _CharT> class _LIBCPP_TYPE_VIS_ONLY numpunct_byname;
1436
1437 template <>
1438 class _LIBCPP_TYPE_VIS numpunct_byname<char>
1439 : public numpunct<char>
1440 {
1441 public:
1442     typedef char char_type;
1443     typedef basic_string<char_type> string_type;
1444
1445     explicit numpunct_byname(const char* __nm, size_t __refs = 0);
1446     explicit numpunct_byname(const string& __nm, size_t __refs = 0);
1447
1448 protected:
1449     ~numpunct_byname();
1450
1451 private:
1452     void __init(const char*);
1453 };
1454
1455 template <>
1456 class _LIBCPP_TYPE_VIS numpunct_byname<wchar_t>
1457 : public numpunct<wchar_t>
1458 {
1459 public:
1460     typedef wchar_t char_type;
1461     typedef basic_string<char_type> string_type;
1462
1463     explicit numpunct_byname(const char* __nm, size_t __refs = 0);
1464     explicit numpunct_byname(const string& __nm, size_t __refs = 0);
1465
1466 protected:
1467     ~numpunct_byname();
1468
1469 private:
1470     void __init(const char*);
1471 };
1472
1473 _LIBCPP_END_NAMESPACE_STD
1474
1475 #endif  // _LIBCPP___LOCALE