1 // Locale support -*- C++ -*-
3 // Copyright (C) 2007-2017 Free Software Foundation, Inc.
5 // This file is part of the GNU ISO C++ Library. This library is free
6 // software; you can redistribute it and/or modify it under the
7 // terms of the GNU General Public License as published by the
8 // Free Software Foundation; either version 3, or (at your option)
11 // This library is distributed in the hope that it will be useful,
12 // but WITHOUT ANY WARRANTY; without even the implied warranty of
13 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 // GNU General Public License for more details.
16 // Under Section 7 of GPL version 3, you are granted additional
17 // permissions described in the GCC Runtime Library Exception, version
18 // 3.1, as published by the Free Software Foundation.
20 // You should have received a copy of the GNU General Public License and
21 // a copy of the GCC Runtime Library Exception along with this program;
22 // see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
23 // <http://www.gnu.org/licenses/>.
25 /** @file bits/locale_facets_nonio.tcc
26 * This is an internal header file, included by other library headers.
27 * Do not attempt to use it directly. @headername{locale}
30 #ifndef _LOCALE_FACETS_NONIO_TCC
31 #define _LOCALE_FACETS_NONIO_TCC 1
33 #pragma GCC system_header
35 namespace std _GLIBCXX_VISIBILITY(default)
37 _GLIBCXX_BEGIN_NAMESPACE_VERSION
39 template<typename _CharT, bool _Intl>
40 struct __use_cache<__moneypunct_cache<_CharT, _Intl> >
42 const __moneypunct_cache<_CharT, _Intl>*
43 operator() (const locale& __loc) const
45 const size_t __i = moneypunct<_CharT, _Intl>::id._M_id();
46 const locale::facet** __caches = __loc._M_impl->_M_caches;
49 __moneypunct_cache<_CharT, _Intl>* __tmp = 0;
52 __tmp = new __moneypunct_cache<_CharT, _Intl>;
53 __tmp->_M_cache(__loc);
58 __throw_exception_again;
60 __loc._M_impl->_M_install_cache(__tmp, __i);
63 const __moneypunct_cache<_CharT, _Intl>*>(__caches[__i]);
67 template<typename _CharT, bool _Intl>
69 __moneypunct_cache<_CharT, _Intl>::_M_cache(const locale& __loc)
71 const moneypunct<_CharT, _Intl>& __mp =
72 use_facet<moneypunct<_CharT, _Intl> >(__loc);
74 _M_decimal_point = __mp.decimal_point();
75 _M_thousands_sep = __mp.thousands_sep();
76 _M_frac_digits = __mp.frac_digits();
79 _CharT* __curr_symbol = 0;
80 _CharT* __positive_sign = 0;
81 _CharT* __negative_sign = 0;
84 const string& __g = __mp.grouping();
85 _M_grouping_size = __g.size();
86 __grouping = new char[_M_grouping_size];
87 __g.copy(__grouping, _M_grouping_size);
88 _M_use_grouping = (_M_grouping_size
89 && static_cast<signed char>(__grouping[0]) > 0
91 != __gnu_cxx::__numeric_traits<char>::__max));
93 const basic_string<_CharT>& __cs = __mp.curr_symbol();
94 _M_curr_symbol_size = __cs.size();
95 __curr_symbol = new _CharT[_M_curr_symbol_size];
96 __cs.copy(__curr_symbol, _M_curr_symbol_size);
98 const basic_string<_CharT>& __ps = __mp.positive_sign();
99 _M_positive_sign_size = __ps.size();
100 __positive_sign = new _CharT[_M_positive_sign_size];
101 __ps.copy(__positive_sign, _M_positive_sign_size);
103 const basic_string<_CharT>& __ns = __mp.negative_sign();
104 _M_negative_sign_size = __ns.size();
105 __negative_sign = new _CharT[_M_negative_sign_size];
106 __ns.copy(__negative_sign, _M_negative_sign_size);
108 _M_pos_format = __mp.pos_format();
109 _M_neg_format = __mp.neg_format();
111 const ctype<_CharT>& __ct = use_facet<ctype<_CharT> >(__loc);
112 __ct.widen(money_base::_S_atoms,
113 money_base::_S_atoms + money_base::_S_end, _M_atoms);
115 _M_grouping = __grouping;
116 _M_curr_symbol = __curr_symbol;
117 _M_positive_sign = __positive_sign;
118 _M_negative_sign = __negative_sign;
123 delete [] __grouping;
124 delete [] __curr_symbol;
125 delete [] __positive_sign;
126 delete [] __negative_sign;
127 __throw_exception_again;
131 _GLIBCXX_BEGIN_NAMESPACE_LDBL_OR_CXX11
133 template<typename _CharT, typename _InIter>
136 money_get<_CharT, _InIter>::
137 _M_extract(iter_type __beg, iter_type __end, ios_base& __io,
138 ios_base::iostate& __err, string& __units) const
140 typedef char_traits<_CharT> __traits_type;
141 typedef typename string_type::size_type size_type;
142 typedef money_base::part part;
143 typedef __moneypunct_cache<_CharT, _Intl> __cache_type;
145 const locale& __loc = __io._M_getloc();
146 const ctype<_CharT>& __ctype = use_facet<ctype<_CharT> >(__loc);
148 __use_cache<__cache_type> __uc;
149 const __cache_type* __lc = __uc(__loc);
150 const char_type* __lit = __lc->_M_atoms;
153 bool __negative = false;
155 size_type __sign_size = 0;
156 // True if sign is mandatory.
157 const bool __mandatory_sign = (__lc->_M_positive_sign_size
158 && __lc->_M_negative_sign_size);
159 // String of grouping info from thousands_sep plucked from __units.
160 string __grouping_tmp;
161 if (__lc->_M_use_grouping)
162 __grouping_tmp.reserve(32);
163 // Last position before the decimal point.
165 // Separator positions, then, possibly, fractional digits.
167 // If input iterator is in a valid state.
168 bool __testvalid = true;
169 // Flag marking when a decimal point is found.
170 bool __testdecfound = false;
172 // The tentative returned string is stored here.
176 const char_type* __lit_zero = __lit + money_base::_S_zero;
177 const money_base::pattern __p = __lc->_M_neg_format;
178 for (int __i = 0; __i < 4 && __testvalid; ++__i)
180 const part __which = static_cast<part>(__p.field[__i]);
183 case money_base::symbol:
184 // According to 22.2.6.1.2, p2, symbol is required
185 // if (__io.flags() & ios_base::showbase), otherwise
186 // is optional and consumed only if other characters
187 // are needed to complete the format.
188 if (__io.flags() & ios_base::showbase || __sign_size > 1
190 || (__i == 1 && (__mandatory_sign
191 || (static_cast<part>(__p.field[0])
193 || (static_cast<part>(__p.field[2])
194 == money_base::space)))
195 || (__i == 2 && ((static_cast<part>(__p.field[3])
196 == money_base::value)
198 && (static_cast<part>(__p.field[3])
199 == money_base::sign)))))
201 const size_type __len = __lc->_M_curr_symbol_size;
203 for (; __beg != __end && __j < __len
204 && *__beg == __lc->_M_curr_symbol[__j];
205 ++__beg, (void)++__j);
207 && (__j || __io.flags() & ios_base::showbase))
211 case money_base::sign:
212 // Sign might not exist, or be more than one character long.
213 if (__lc->_M_positive_sign_size && __beg != __end
214 && *__beg == __lc->_M_positive_sign[0])
216 __sign_size = __lc->_M_positive_sign_size;
219 else if (__lc->_M_negative_sign_size && __beg != __end
220 && *__beg == __lc->_M_negative_sign[0])
223 __sign_size = __lc->_M_negative_sign_size;
226 else if (__lc->_M_positive_sign_size
227 && !__lc->_M_negative_sign_size)
228 // "... if no sign is detected, the result is given the sign
229 // that corresponds to the source of the empty string"
231 else if (__mandatory_sign)
234 case money_base::value:
235 // Extract digits, remove and stash away the
236 // grouping of found thousands separators.
237 for (; __beg != __end; ++__beg)
239 const char_type __c = *__beg;
240 const char_type* __q = __traits_type::find(__lit_zero,
244 __res += money_base::_S_atoms[__q - __lit];
247 else if (__c == __lc->_M_decimal_point
250 if (__lc->_M_frac_digits <= 0)
255 __testdecfound = true;
257 else if (__lc->_M_use_grouping
258 && __c == __lc->_M_thousands_sep
263 // Mark position for later analysis.
264 __grouping_tmp += static_cast<char>(__n);
279 case money_base::space:
280 // At least one space is required.
281 if (__beg != __end && __ctype.is(ctype_base::space, *__beg))
285 case money_base::none:
286 // Only if not at the end of the pattern.
288 for (; __beg != __end
289 && __ctype.is(ctype_base::space, *__beg); ++__beg);
294 // Need to get the rest of the sign characters, if they exist.
295 if (__sign_size > 1 && __testvalid)
297 const char_type* __sign = __negative ? __lc->_M_negative_sign
298 : __lc->_M_positive_sign;
300 for (; __beg != __end && __i < __sign_size
301 && *__beg == __sign[__i]; ++__beg, (void)++__i);
303 if (__i != __sign_size)
309 // Strip leading zeros.
310 if (__res.size() > 1)
312 const size_type __first = __res.find_first_not_of('0');
313 const bool __only_zeros = __first == string::npos;
315 __res.erase(0, __only_zeros ? __res.size() - 1 : __first);
319 if (__negative && __res[0] != '0')
320 __res.insert(__res.begin(), '-');
322 // Test for grouping fidelity.
323 if (__grouping_tmp.size())
325 // Add the ending grouping.
326 __grouping_tmp += static_cast<char>(__testdecfound ? __last_pos
328 if (!std::__verify_grouping(__lc->_M_grouping,
329 __lc->_M_grouping_size,
331 __err |= ios_base::failbit;
334 // Iff not enough digits were supplied after the decimal-point.
335 if (__testdecfound && __n != __lc->_M_frac_digits)
339 // Iff valid sequence is not recognized.
341 __err |= ios_base::failbit;
345 // Iff no more characters are available.
347 __err |= ios_base::eofbit;
351 #if defined _GLIBCXX_LONG_DOUBLE_COMPAT && defined __LONG_DOUBLE_128__ \
352 && _GLIBCXX_USE_CXX11_ABI == 0
353 template<typename _CharT, typename _InIter>
355 money_get<_CharT, _InIter>::
356 __do_get(iter_type __beg, iter_type __end, bool __intl, ios_base& __io,
357 ios_base::iostate& __err, double& __units) const
360 __beg = __intl ? _M_extract<true>(__beg, __end, __io, __err, __str)
361 : _M_extract<false>(__beg, __end, __io, __err, __str);
362 std::__convert_to_v(__str.c_str(), __units, __err, _S_get_c_locale());
367 template<typename _CharT, typename _InIter>
369 money_get<_CharT, _InIter>::
370 do_get(iter_type __beg, iter_type __end, bool __intl, ios_base& __io,
371 ios_base::iostate& __err, long double& __units) const
374 __beg = __intl ? _M_extract<true>(__beg, __end, __io, __err, __str)
375 : _M_extract<false>(__beg, __end, __io, __err, __str);
376 std::__convert_to_v(__str.c_str(), __units, __err, _S_get_c_locale());
380 template<typename _CharT, typename _InIter>
382 money_get<_CharT, _InIter>::
383 do_get(iter_type __beg, iter_type __end, bool __intl, ios_base& __io,
384 ios_base::iostate& __err, string_type& __digits) const
386 typedef typename string::size_type size_type;
388 const locale& __loc = __io._M_getloc();
389 const ctype<_CharT>& __ctype = use_facet<ctype<_CharT> >(__loc);
392 __beg = __intl ? _M_extract<true>(__beg, __end, __io, __err, __str)
393 : _M_extract<false>(__beg, __end, __io, __err, __str);
394 const size_type __len = __str.size();
397 __digits.resize(__len);
398 __ctype.widen(__str.data(), __str.data() + __len, &__digits[0]);
403 template<typename _CharT, typename _OutIter>
406 money_put<_CharT, _OutIter>::
407 _M_insert(iter_type __s, ios_base& __io, char_type __fill,
408 const string_type& __digits) const
410 typedef typename string_type::size_type size_type;
411 typedef money_base::part part;
412 typedef __moneypunct_cache<_CharT, _Intl> __cache_type;
414 const locale& __loc = __io._M_getloc();
415 const ctype<_CharT>& __ctype = use_facet<ctype<_CharT> >(__loc);
417 __use_cache<__cache_type> __uc;
418 const __cache_type* __lc = __uc(__loc);
419 const char_type* __lit = __lc->_M_atoms;
421 // Determine if negative or positive formats are to be used, and
422 // discard leading negative_sign if it is present.
423 const char_type* __beg = __digits.data();
425 money_base::pattern __p;
426 const char_type* __sign;
427 size_type __sign_size;
428 if (!(*__beg == __lit[money_base::_S_minus]))
430 __p = __lc->_M_pos_format;
431 __sign = __lc->_M_positive_sign;
432 __sign_size = __lc->_M_positive_sign_size;
436 __p = __lc->_M_neg_format;
437 __sign = __lc->_M_negative_sign;
438 __sign_size = __lc->_M_negative_sign_size;
443 // Look for valid numbers in the ctype facet within input digits.
444 size_type __len = __ctype.scan_not(ctype_base::digit, __beg,
445 __beg + __digits.size()) - __beg;
448 // Assume valid input, and attempt to format.
449 // Break down input numbers into base components, as follows:
450 // final_value = grouped units + (decimal point) + (digits)
452 __value.reserve(2 * __len);
454 // Add thousands separators to non-decimal digits, per
456 long __paddec = __len - __lc->_M_frac_digits;
459 if (__lc->_M_frac_digits < 0)
461 if (__lc->_M_grouping_size)
463 __value.assign(2 * __paddec, char_type());
465 std::__add_grouping(&__value[0], __lc->_M_thousands_sep,
467 __lc->_M_grouping_size,
468 __beg, __beg + __paddec);
469 __value.erase(__vend - &__value[0]);
472 __value.assign(__beg, __paddec);
475 // Deal with decimal point, decimal digits.
476 if (__lc->_M_frac_digits > 0)
478 __value += __lc->_M_decimal_point;
480 __value.append(__beg + __paddec, __lc->_M_frac_digits);
483 // Have to pad zeros in the decimal position.
484 __value.append(-__paddec, __lit[money_base::_S_zero]);
485 __value.append(__beg, __len);
489 // Calculate length of resulting string.
490 const ios_base::fmtflags __f = __io.flags()
491 & ios_base::adjustfield;
492 __len = __value.size() + __sign_size;
493 __len += ((__io.flags() & ios_base::showbase)
494 ? __lc->_M_curr_symbol_size : 0);
497 __res.reserve(2 * __len);
499 const size_type __width = static_cast<size_type>(__io.width());
500 const bool __testipad = (__f == ios_base::internal
502 // Fit formatted digits into the required pattern.
503 for (int __i = 0; __i < 4; ++__i)
505 const part __which = static_cast<part>(__p.field[__i]);
508 case money_base::symbol:
509 if (__io.flags() & ios_base::showbase)
510 __res.append(__lc->_M_curr_symbol,
511 __lc->_M_curr_symbol_size);
513 case money_base::sign:
514 // Sign might not exist, or be more than one
515 // character long. In that case, add in the rest
520 case money_base::value:
523 case money_base::space:
524 // At least one space is required, but if internal
525 // formatting is required, an arbitrary number of
526 // fill spaces will be necessary.
528 __res.append(__width - __len, __fill);
532 case money_base::none:
534 __res.append(__width - __len, __fill);
539 // Special case of multi-part sign parts.
541 __res.append(__sign + 1, __sign_size - 1);
543 // Pad, if still necessary.
544 __len = __res.size();
547 if (__f == ios_base::left)
549 __res.append(__width - __len, __fill);
552 __res.insert(0, __width - __len, __fill);
556 // Write resulting, fully-formatted string to output iterator.
557 __s = std::__write(__s, __res.data(), __len);
563 #if defined _GLIBCXX_LONG_DOUBLE_COMPAT && defined __LONG_DOUBLE_128__ \
564 && _GLIBCXX_USE_CXX11_ABI == 0
565 template<typename _CharT, typename _OutIter>
567 money_put<_CharT, _OutIter>::
568 __do_put(iter_type __s, bool __intl, ios_base& __io, char_type __fill,
569 double __units) const
570 { return this->do_put(__s, __intl, __io, __fill, (long double) __units); }
573 template<typename _CharT, typename _OutIter>
575 money_put<_CharT, _OutIter>::
576 do_put(iter_type __s, bool __intl, ios_base& __io, char_type __fill,
577 long double __units) const
579 const locale __loc = __io.getloc();
580 const ctype<_CharT>& __ctype = use_facet<ctype<_CharT> >(__loc);
581 #if _GLIBCXX_USE_C99_STDIO
582 // First try a buffer perhaps big enough.
584 char* __cs = static_cast<char*>(__builtin_alloca(__cs_size));
585 // _GLIBCXX_RESOLVE_LIB_DEFECTS
586 // 328. Bad sprintf format modifier in money_put<>::do_put()
587 int __len = std::__convert_from_v(_S_get_c_locale(), __cs, __cs_size,
588 "%.*Lf", 0, __units);
589 // If the buffer was not large enough, try again with the correct size.
590 if (__len >= __cs_size)
592 __cs_size = __len + 1;
593 __cs = static_cast<char*>(__builtin_alloca(__cs_size));
594 __len = std::__convert_from_v(_S_get_c_locale(), __cs, __cs_size,
595 "%.*Lf", 0, __units);
598 // max_exponent10 + 1 for the integer part, + 2 for sign and '\0'.
599 const int __cs_size =
600 __gnu_cxx::__numeric_traits<long double>::__max_exponent10 + 3;
601 char* __cs = static_cast<char*>(__builtin_alloca(__cs_size));
602 int __len = std::__convert_from_v(_S_get_c_locale(), __cs, 0, "%.*Lf",
605 string_type __digits(__len, char_type());
606 __ctype.widen(__cs, __cs + __len, &__digits[0]);
607 return __intl ? _M_insert<true>(__s, __io, __fill, __digits)
608 : _M_insert<false>(__s, __io, __fill, __digits);
611 template<typename _CharT, typename _OutIter>
613 money_put<_CharT, _OutIter>::
614 do_put(iter_type __s, bool __intl, ios_base& __io, char_type __fill,
615 const string_type& __digits) const
616 { return __intl ? _M_insert<true>(__s, __io, __fill, __digits)
617 : _M_insert<false>(__s, __io, __fill, __digits); }
619 _GLIBCXX_END_NAMESPACE_LDBL_OR_CXX11
621 // NB: Not especially useful. Without an ios_base object or some
622 // kind of locale reference, we are left clawing at the air where
623 // the side of the mountain used to be...
624 template<typename _CharT, typename _InIter>
626 time_get<_CharT, _InIter>::do_date_order() const
627 { return time_base::no_order; }
629 // Expand a strftime format string and parse it. E.g., do_get_date() may
630 // pass %m/%d/%Y => extracted characters.
631 template<typename _CharT, typename _InIter>
633 time_get<_CharT, _InIter>::
634 _M_extract_via_format(iter_type __beg, iter_type __end, ios_base& __io,
635 ios_base::iostate& __err, tm* __tm,
636 const _CharT* __format) const
638 const locale& __loc = __io._M_getloc();
639 const __timepunct<_CharT>& __tp = use_facet<__timepunct<_CharT> >(__loc);
640 const ctype<_CharT>& __ctype = use_facet<ctype<_CharT> >(__loc);
641 const size_t __len = char_traits<_CharT>::length(__format);
643 ios_base::iostate __tmperr = ios_base::goodbit;
645 for (; __beg != __end && __i < __len && !__tmperr; ++__i)
647 if (__ctype.narrow(__format[__i], 0) == '%')
649 // Verify valid formatting code, attempt to extract.
650 char __c = __ctype.narrow(__format[++__i], 0);
652 if (__c == 'E' || __c == 'O')
653 __c = __ctype.narrow(__format[++__i], 0);
659 // Abbreviated weekday name [tm_wday]
660 const char_type* __days1[7];
661 __tp._M_days_abbreviated(__days1);
662 __beg = _M_extract_name(__beg, __end, __mem, __days1,
665 __tm->tm_wday = __mem;
668 // Weekday name [tm_wday].
669 const char_type* __days2[7];
670 __tp._M_days(__days2);
671 __beg = _M_extract_name(__beg, __end, __mem, __days2,
674 __tm->tm_wday = __mem;
678 // Abbreviated month name [tm_mon]
679 const char_type* __months1[12];
680 __tp._M_months_abbreviated(__months1);
681 __beg = _M_extract_name(__beg, __end, __mem,
682 __months1, 12, __io, __tmperr);
684 __tm->tm_mon = __mem;
687 // Month name [tm_mon].
688 const char_type* __months2[12];
689 __tp._M_months(__months2);
690 __beg = _M_extract_name(__beg, __end, __mem,
691 __months2, 12, __io, __tmperr);
693 __tm->tm_mon = __mem;
696 // Default time and date representation.
697 const char_type* __dt[2];
698 __tp._M_date_time_formats(__dt);
699 __beg = _M_extract_via_format(__beg, __end, __io, __tmperr,
703 // Day [01, 31]. [tm_mday]
704 __beg = _M_extract_num(__beg, __end, __mem, 1, 31, 2,
707 __tm->tm_mday = __mem;
710 // Day [1, 31], with single digits preceded by
712 if (__ctype.is(ctype_base::space, *__beg))
713 __beg = _M_extract_num(++__beg, __end, __mem, 1, 9,
716 __beg = _M_extract_num(__beg, __end, __mem, 10, 31,
719 __tm->tm_mday = __mem;
722 // Equivalent to %m/%d/%y.[tm_mon, tm_mday, tm_year]
724 __ctype.widen(__cs, __cs + 9, __wcs);
725 __beg = _M_extract_via_format(__beg, __end, __io, __tmperr,
729 // Hour [00, 23]. [tm_hour]
730 __beg = _M_extract_num(__beg, __end, __mem, 0, 23, 2,
733 __tm->tm_hour = __mem;
736 // Hour [01, 12]. [tm_hour]
737 __beg = _M_extract_num(__beg, __end, __mem, 1, 12, 2,
740 __tm->tm_hour = __mem;
743 // Month [01, 12]. [tm_mon]
744 __beg = _M_extract_num(__beg, __end, __mem, 1, 12, 2,
747 __tm->tm_mon = __mem - 1;
750 // Minute [00, 59]. [tm_min]
751 __beg = _M_extract_num(__beg, __end, __mem, 0, 59, 2,
754 __tm->tm_min = __mem;
757 if (__ctype.narrow(*__beg, 0) == '\n')
760 __tmperr |= ios_base::failbit;
763 // Equivalent to (%H:%M).
765 __ctype.widen(__cs, __cs + 6, __wcs);
766 __beg = _M_extract_via_format(__beg, __end, __io, __tmperr,
771 // [00, 60] in C99 (one leap-second), [00, 61] in C89.
773 __beg = _M_extract_num(__beg, __end, __mem, 0, 60, 2,
775 __beg = _M_extract_num(__beg, __end, __mem, 0, 61, 2,
779 __tm->tm_sec = __mem;
782 if (__ctype.narrow(*__beg, 0) == '\t')
785 __tmperr |= ios_base::failbit;
788 // Equivalent to (%H:%M:%S).
790 __ctype.widen(__cs, __cs + 9, __wcs);
791 __beg = _M_extract_via_format(__beg, __end, __io, __tmperr,
796 const char_type* __dates[2];
797 __tp._M_date_formats(__dates);
798 __beg = _M_extract_via_format(__beg, __end, __io, __tmperr,
803 const char_type* __times[2];
804 __tp._M_time_formats(__times);
805 __beg = _M_extract_via_format(__beg, __end, __io, __tmperr,
813 // NB: We parse either two digits, implicitly years since
814 // 1900, or 4 digits, full year. In both cases we can
815 // reconstruct [tm_year]. See also libstdc++/26701.
816 __beg = _M_extract_num(__beg, __end, __mem, 0, 9999, 4,
819 __tm->tm_year = __mem < 0 ? __mem + 100 : __mem - 1900;
823 if (__ctype.is(ctype_base::upper, *__beg))
826 __beg = _M_extract_name(__beg, __end, __tmp,
827 __timepunct_cache<_CharT>::_S_timezones,
830 // GMT requires special effort.
831 if (__beg != __end && !__tmperr && __tmp == 0
832 && (*__beg == __ctype.widen('-')
833 || *__beg == __ctype.widen('+')))
835 __beg = _M_extract_num(__beg, __end, __tmp, 0, 23, 2,
837 __beg = _M_extract_num(__beg, __end, __tmp, 0, 59, 2,
842 __tmperr |= ios_base::failbit;
846 __tmperr |= ios_base::failbit;
851 // Verify format and input match, extract and discard.
852 if (__format[__i] == *__beg)
855 __tmperr |= ios_base::failbit;
859 if (__tmperr || __i != __len)
860 __err |= ios_base::failbit;
865 template<typename _CharT, typename _InIter>
867 time_get<_CharT, _InIter>::
868 _M_extract_num(iter_type __beg, iter_type __end, int& __member,
869 int __min, int __max, size_t __len,
870 ios_base& __io, ios_base::iostate& __err) const
872 const locale& __loc = __io._M_getloc();
873 const ctype<_CharT>& __ctype = use_facet<ctype<_CharT> >(__loc);
875 // As-is works for __len = 1, 2, 4, the values actually used.
876 int __mult = __len == 2 ? 10 : (__len == 4 ? 1000 : 1);
881 for (; __beg != __end && __i < __len; ++__beg, (void)++__i)
883 const char __c = __ctype.narrow(*__beg, '*');
884 if (__c >= '0' && __c <= '9')
886 __value = __value * 10 + (__c - '0');
887 const int __valuec = __value * __mult;
888 if (__valuec > __max || __valuec + __mult < __min)
897 // Special encoding for do_get_year, 'y', and 'Y' above.
898 else if (__len == 4 && __i == 2)
899 __member = __value - 100;
901 __err |= ios_base::failbit;
907 // All elements in __names are unique.
908 template<typename _CharT, typename _InIter>
910 time_get<_CharT, _InIter>::
911 _M_extract_name(iter_type __beg, iter_type __end, int& __member,
912 const _CharT** __names, size_t __indexlen,
913 ios_base& __io, ios_base::iostate& __err) const
915 typedef char_traits<_CharT> __traits_type;
916 const locale& __loc = __io._M_getloc();
917 const ctype<_CharT>& __ctype = use_facet<ctype<_CharT> >(__loc);
919 int* __matches = static_cast<int*>(__builtin_alloca(sizeof(int)
921 size_t __nmatches = 0;
923 bool __testvalid = true;
924 const char_type* __name;
926 // Look for initial matches.
927 // NB: Some of the locale data is in the form of all lowercase
928 // names, and some is in the form of initially-capitalized
929 // names. Look for both.
932 const char_type __c = *__beg;
933 for (size_t __i1 = 0; __i1 < __indexlen; ++__i1)
934 if (__c == __names[__i1][0]
935 || __c == __ctype.toupper(__names[__i1][0]))
936 __matches[__nmatches++] = __i1;
939 while (__nmatches > 1)
941 // Find smallest matching string.
942 size_t __minlen = __traits_type::length(__names[__matches[0]]);
943 for (size_t __i2 = 1; __i2 < __nmatches; ++__i2)
944 __minlen = std::min(__minlen,
945 __traits_type::length(__names[__matches[__i2]]));
948 if (__pos < __minlen && __beg != __end)
949 for (size_t __i3 = 0; __i3 < __nmatches;)
951 __name = __names[__matches[__i3]];
952 if (!(__name[__pos] == *__beg))
953 __matches[__i3] = __matches[--__nmatches];
963 // Make sure found name is completely extracted.
966 __name = __names[__matches[0]];
967 const size_t __len = __traits_type::length(__name);
968 while (__pos < __len && __beg != __end && __name[__pos] == *__beg)
969 ++__beg, (void)++__pos;
972 __member = __matches[0];
979 __err |= ios_base::failbit;
984 template<typename _CharT, typename _InIter>
986 time_get<_CharT, _InIter>::
987 _M_extract_wday_or_month(iter_type __beg, iter_type __end, int& __member,
988 const _CharT** __names, size_t __indexlen,
989 ios_base& __io, ios_base::iostate& __err) const
991 typedef char_traits<_CharT> __traits_type;
992 const locale& __loc = __io._M_getloc();
993 const ctype<_CharT>& __ctype = use_facet<ctype<_CharT> >(__loc);
995 int* __matches = static_cast<int*>(__builtin_alloca(2 * sizeof(int)
997 size_t __nmatches = 0;
998 size_t* __matches_lengths = 0;
1003 const char_type __c = *__beg;
1004 for (size_t __i = 0; __i < 2 * __indexlen; ++__i)
1005 if (__c == __names[__i][0]
1006 || __c == __ctype.toupper(__names[__i][0]))
1007 __matches[__nmatches++] = __i;
1016 = static_cast<size_t*>(__builtin_alloca(sizeof(size_t)
1018 for (size_t __i = 0; __i < __nmatches; ++__i)
1019 __matches_lengths[__i]
1020 = __traits_type::length(__names[__matches[__i]]);
1023 for (; __beg != __end; ++__beg, (void)++__pos)
1025 size_t __nskipped = 0;
1026 const char_type __c = *__beg;
1027 for (size_t __i = 0; __i < __nmatches;)
1029 const char_type* __name = __names[__matches[__i]];
1030 if (__pos >= __matches_lengths[__i])
1031 ++__nskipped, ++__i;
1032 else if (!(__name[__pos] == __c))
1035 __matches[__i] = __matches[__nmatches];
1036 __matches_lengths[__i] = __matches_lengths[__nmatches];
1041 if (__nskipped == __nmatches)
1045 if ((__nmatches == 1 && __matches_lengths[0] == __pos)
1046 || (__nmatches == 2 && (__matches_lengths[0] == __pos
1047 || __matches_lengths[1] == __pos)))
1048 __member = (__matches[0] >= __indexlen
1049 ? __matches[0] - __indexlen : __matches[0]);
1051 __err |= ios_base::failbit;
1056 template<typename _CharT, typename _InIter>
1058 time_get<_CharT, _InIter>::
1059 do_get_time(iter_type __beg, iter_type __end, ios_base& __io,
1060 ios_base::iostate& __err, tm* __tm) const
1062 const locale& __loc = __io._M_getloc();
1063 const __timepunct<_CharT>& __tp = use_facet<__timepunct<_CharT> >(__loc);
1064 const char_type* __times[2];
1065 __tp._M_time_formats(__times);
1066 __beg = _M_extract_via_format(__beg, __end, __io, __err,
1069 __err |= ios_base::eofbit;
1073 template<typename _CharT, typename _InIter>
1075 time_get<_CharT, _InIter>::
1076 do_get_date(iter_type __beg, iter_type __end, ios_base& __io,
1077 ios_base::iostate& __err, tm* __tm) const
1079 const locale& __loc = __io._M_getloc();
1080 const __timepunct<_CharT>& __tp = use_facet<__timepunct<_CharT> >(__loc);
1081 const char_type* __dates[2];
1082 __tp._M_date_formats(__dates);
1083 __beg = _M_extract_via_format(__beg, __end, __io, __err,
1086 __err |= ios_base::eofbit;
1090 template<typename _CharT, typename _InIter>
1092 time_get<_CharT, _InIter>::
1093 do_get_weekday(iter_type __beg, iter_type __end, ios_base& __io,
1094 ios_base::iostate& __err, tm* __tm) const
1096 const locale& __loc = __io._M_getloc();
1097 const __timepunct<_CharT>& __tp = use_facet<__timepunct<_CharT> >(__loc);
1098 const ctype<_CharT>& __ctype = use_facet<ctype<_CharT> >(__loc);
1099 const char_type* __days[14];
1100 __tp._M_days_abbreviated(__days);
1101 __tp._M_days(__days + 7);
1103 ios_base::iostate __tmperr = ios_base::goodbit;
1105 __beg = _M_extract_wday_or_month(__beg, __end, __tmpwday, __days, 7,
1108 __tm->tm_wday = __tmpwday;
1110 __err |= ios_base::failbit;
1113 __err |= ios_base::eofbit;
1117 template<typename _CharT, typename _InIter>
1119 time_get<_CharT, _InIter>::
1120 do_get_monthname(iter_type __beg, iter_type __end,
1121 ios_base& __io, ios_base::iostate& __err, tm* __tm) const
1123 const locale& __loc = __io._M_getloc();
1124 const __timepunct<_CharT>& __tp = use_facet<__timepunct<_CharT> >(__loc);
1125 const ctype<_CharT>& __ctype = use_facet<ctype<_CharT> >(__loc);
1126 const char_type* __months[24];
1127 __tp._M_months_abbreviated(__months);
1128 __tp._M_months(__months + 12);
1130 ios_base::iostate __tmperr = ios_base::goodbit;
1132 __beg = _M_extract_wday_or_month(__beg, __end, __tmpmon, __months, 12,
1135 __tm->tm_mon = __tmpmon;
1137 __err |= ios_base::failbit;
1140 __err |= ios_base::eofbit;
1144 template<typename _CharT, typename _InIter>
1146 time_get<_CharT, _InIter>::
1147 do_get_year(iter_type __beg, iter_type __end, ios_base& __io,
1148 ios_base::iostate& __err, tm* __tm) const
1150 const locale& __loc = __io._M_getloc();
1151 const ctype<_CharT>& __ctype = use_facet<ctype<_CharT> >(__loc);
1153 ios_base::iostate __tmperr = ios_base::goodbit;
1155 __beg = _M_extract_num(__beg, __end, __tmpyear, 0, 9999, 4,
1158 __tm->tm_year = __tmpyear < 0 ? __tmpyear + 100 : __tmpyear - 1900;
1160 __err |= ios_base::failbit;
1163 __err |= ios_base::eofbit;
1167 #if __cplusplus >= 201103L
1168 template<typename _CharT, typename _InIter>
1171 time_get<_CharT, _InIter>::
1172 get(iter_type __s, iter_type __end, ios_base& __io,
1173 ios_base::iostate& __err, tm* __tm, const char_type* __fmt,
1174 const char_type* __fmtend) const
1176 const locale& __loc = __io._M_getloc();
1177 ctype<_CharT> const& __ctype = use_facet<ctype<_CharT> >(__loc);
1178 __err = ios_base::goodbit;
1179 while (__fmt != __fmtend &&
1180 __err == ios_base::goodbit)
1184 __err = ios_base::eofbit | ios_base::failbit;
1187 else if (__ctype.narrow(*__fmt, 0) == '%')
1191 if (++__fmt == __fmtend)
1193 __err = ios_base::failbit;
1196 const char __c = __ctype.narrow(*__fmt, 0);
1197 if (__c != 'E' && __c != 'O')
1199 else if (++__fmt != __fmtend)
1202 __format = __ctype.narrow(*__fmt, 0);
1206 __err = ios_base::failbit;
1209 __s = this->do_get(__s, __end, __io, __err, __tm, __format,
1213 else if (__ctype.is(ctype_base::space, *__fmt))
1216 while (__fmt != __fmtend &&
1217 __ctype.is(ctype_base::space, *__fmt))
1220 while (__s != __end &&
1221 __ctype.is(ctype_base::space, *__s))
1224 // TODO real case-insensitive comparison
1225 else if (__ctype.tolower(*__s) == __ctype.tolower(*__fmt) ||
1226 __ctype.toupper(*__s) == __ctype.toupper(*__fmt))
1233 __err = ios_base::failbit;
1240 template<typename _CharT, typename _InIter>
1243 time_get<_CharT, _InIter>::
1244 do_get(iter_type __beg, iter_type __end, ios_base& __io,
1245 ios_base::iostate& __err, tm* __tm,
1246 char __format, char __mod) const
1248 const locale& __loc = __io._M_getloc();
1249 ctype<_CharT> const& __ctype = use_facet<ctype<_CharT> >(__loc);
1250 __err = ios_base::goodbit;
1253 __fmt[0] = __ctype.widen('%');
1256 __fmt[1] = __format;
1257 __fmt[2] = char_type();
1262 __fmt[2] = __format;
1263 __fmt[3] = char_type();
1266 __beg = _M_extract_via_format(__beg, __end, __io, __err, __tm, __fmt);
1268 __err |= ios_base::eofbit;
1272 #endif // __cplusplus >= 201103L
1274 template<typename _CharT, typename _OutIter>
1276 time_put<_CharT, _OutIter>::
1277 put(iter_type __s, ios_base& __io, char_type __fill, const tm* __tm,
1278 const _CharT* __beg, const _CharT* __end) const
1280 const locale& __loc = __io._M_getloc();
1281 ctype<_CharT> const& __ctype = use_facet<ctype<_CharT> >(__loc);
1282 for (; __beg != __end; ++__beg)
1283 if (__ctype.narrow(*__beg, 0) != '%')
1288 else if (++__beg != __end)
1292 const char __c = __ctype.narrow(*__beg, 0);
1293 if (__c != 'E' && __c != 'O')
1295 else if (++__beg != __end)
1298 __format = __ctype.narrow(*__beg, 0);
1302 __s = this->do_put(__s, __io, __fill, __tm, __format, __mod);
1309 template<typename _CharT, typename _OutIter>
1311 time_put<_CharT, _OutIter>::
1312 do_put(iter_type __s, ios_base& __io, char_type, const tm* __tm,
1313 char __format, char __mod) const
1315 const locale& __loc = __io._M_getloc();
1316 ctype<_CharT> const& __ctype = use_facet<ctype<_CharT> >(__loc);
1317 __timepunct<_CharT> const& __tp = use_facet<__timepunct<_CharT> >(__loc);
1319 // NB: This size is arbitrary. Should this be a data member,
1320 // initialized at construction?
1321 const size_t __maxlen = 128;
1322 char_type __res[__maxlen];
1324 // NB: In IEE 1003.1-200x, and perhaps other locale models, it
1325 // is possible that the format character will be longer than one
1326 // character. Possibilities include 'E' or 'O' followed by a
1327 // format character: if __mod is not the default argument, assume
1328 // it's a valid modifier.
1330 __fmt[0] = __ctype.widen('%');
1333 __fmt[1] = __format;
1334 __fmt[2] = char_type();
1339 __fmt[2] = __format;
1340 __fmt[3] = char_type();
1343 __tp._M_put(__res, __maxlen, __fmt, __tm);
1345 // Write resulting, fully-formatted string to output iterator.
1346 return std::__write(__s, __res, char_traits<char_type>::length(__res));
1350 // Inhibit implicit instantiations for required instantiations,
1351 // which are defined via explicit instantiations elsewhere.
1352 #if _GLIBCXX_EXTERN_TEMPLATE
1353 extern template class moneypunct<char, false>;
1354 extern template class moneypunct<char, true>;
1355 extern template class moneypunct_byname<char, false>;
1356 extern template class moneypunct_byname<char, true>;
1357 extern template class _GLIBCXX_NAMESPACE_LDBL_OR_CXX11 money_get<char>;
1358 extern template class _GLIBCXX_NAMESPACE_LDBL_OR_CXX11 money_put<char>;
1359 extern template class __timepunct<char>;
1360 extern template class time_put<char>;
1361 extern template class time_put_byname<char>;
1362 extern template class time_get<char>;
1363 extern template class time_get_byname<char>;
1364 extern template class messages<char>;
1365 extern template class messages_byname<char>;
1368 const moneypunct<char, true>&
1369 use_facet<moneypunct<char, true> >(const locale&);
1372 const moneypunct<char, false>&
1373 use_facet<moneypunct<char, false> >(const locale&);
1376 const money_put<char>&
1377 use_facet<money_put<char> >(const locale&);
1380 const money_get<char>&
1381 use_facet<money_get<char> >(const locale&);
1384 const __timepunct<char>&
1385 use_facet<__timepunct<char> >(const locale&);
1388 const time_put<char>&
1389 use_facet<time_put<char> >(const locale&);
1392 const time_get<char>&
1393 use_facet<time_get<char> >(const locale&);
1396 const messages<char>&
1397 use_facet<messages<char> >(const locale&);
1401 has_facet<moneypunct<char> >(const locale&);
1405 has_facet<money_put<char> >(const locale&);
1409 has_facet<money_get<char> >(const locale&);
1413 has_facet<__timepunct<char> >(const locale&);
1417 has_facet<time_put<char> >(const locale&);
1421 has_facet<time_get<char> >(const locale&);
1425 has_facet<messages<char> >(const locale&);
1427 #ifdef _GLIBCXX_USE_WCHAR_T
1428 extern template class moneypunct<wchar_t, false>;
1429 extern template class moneypunct<wchar_t, true>;
1430 extern template class moneypunct_byname<wchar_t, false>;
1431 extern template class moneypunct_byname<wchar_t, true>;
1432 extern template class _GLIBCXX_NAMESPACE_LDBL_OR_CXX11 money_get<wchar_t>;
1433 extern template class _GLIBCXX_NAMESPACE_LDBL_OR_CXX11 money_put<wchar_t>;
1434 extern template class __timepunct<wchar_t>;
1435 extern template class time_put<wchar_t>;
1436 extern template class time_put_byname<wchar_t>;
1437 extern template class time_get<wchar_t>;
1438 extern template class time_get_byname<wchar_t>;
1439 extern template class messages<wchar_t>;
1440 extern template class messages_byname<wchar_t>;
1443 const moneypunct<wchar_t, true>&
1444 use_facet<moneypunct<wchar_t, true> >(const locale&);
1447 const moneypunct<wchar_t, false>&
1448 use_facet<moneypunct<wchar_t, false> >(const locale&);
1451 const money_put<wchar_t>&
1452 use_facet<money_put<wchar_t> >(const locale&);
1455 const money_get<wchar_t>&
1456 use_facet<money_get<wchar_t> >(const locale&);
1459 const __timepunct<wchar_t>&
1460 use_facet<__timepunct<wchar_t> >(const locale&);
1463 const time_put<wchar_t>&
1464 use_facet<time_put<wchar_t> >(const locale&);
1467 const time_get<wchar_t>&
1468 use_facet<time_get<wchar_t> >(const locale&);
1471 const messages<wchar_t>&
1472 use_facet<messages<wchar_t> >(const locale&);
1476 has_facet<moneypunct<wchar_t> >(const locale&);
1480 has_facet<money_put<wchar_t> >(const locale&);
1484 has_facet<money_get<wchar_t> >(const locale&);
1488 has_facet<__timepunct<wchar_t> >(const locale&);
1492 has_facet<time_put<wchar_t> >(const locale&);
1496 has_facet<time_get<wchar_t> >(const locale&);
1500 has_facet<messages<wchar_t> >(const locale&);
1504 _GLIBCXX_END_NAMESPACE_VERSION