You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
845 lines
27 KiB
845 lines
27 KiB
/****************************************************************************
|
|
*
|
|
* _punct.cc - Internal classes for numeric formatting and parsing.
|
|
*
|
|
* $Id: _punct.cc 186353 2014-07-29 16:30:44Z ransin01 $
|
|
*
|
|
***************************************************************************
|
|
*
|
|
* Copyright (c) 1994-2001 Rogue Wave Software, Inc. All Rights Reserved.
|
|
*
|
|
* This computer software is owned by Rogue Wave Software, Inc. and is
|
|
* protected by U.S. copyright laws and other laws and by international
|
|
* treaties. This computer software is furnished by Rogue Wave Software,
|
|
* Inc. pursuant to a written license agreement and may be used, copied,
|
|
* transmitted, and stored only in accordance with the terms of such
|
|
* license and with the inclusion of the above copyright notice. This
|
|
* computer software or any other copies thereof may not be provided or
|
|
* otherwise made available to any other person.
|
|
*
|
|
* U.S. Government Restricted Rights. This computer software is provided
|
|
* with Restricted Rights. Use, duplication, or disclosure by the
|
|
* Government is subject to restrictions as set forth in subparagraph (c)
|
|
* (1) (ii) of The Rights in Technical Data and Computer Software clause
|
|
* at DFARS 252.227-7013 or subparagraphs (c) (1) and (2) of the
|
|
* Commercial Computer Software--Restricted Rights at 48 CFR 52.227-19,
|
|
* as applicable. Manufacturer is Rogue Wave Software, Inc., 5500
|
|
* Flatiron Parkway, Boulder, Colorado 80301 USA.
|
|
*
|
|
***************************************************************************/
|
|
|
|
#include <rw/_locimp.h>
|
|
#include <rw/_ctype.h>
|
|
#include <rw/_defs.h>
|
|
|
|
#include _RWSTD_CLOCALE
|
|
|
|
|
|
_RWSTD_NAMESPACE_BEGIN (__rw)
|
|
|
|
_USING (namespace std);
|
|
|
|
|
|
// -----------------------------------------------------
|
|
// Template __rw_timepunct_impl_data<_CharT> member templates.
|
|
// -----------------------------------------------------
|
|
|
|
template <class _CharT>
|
|
__rw_timepunct_impl_data<_CharT>::__rw_timepunct_impl_data
|
|
(const __rw_timepunct_init<_CharT> &__p)
|
|
{
|
|
int __i;
|
|
for (__i=0; __i<7; __i++) {
|
|
_C_day_nms[__i][0]=__p._C_get_day (__i, false);
|
|
_C_day_nms[__i][1]=__p._C_get_day (__i, true);
|
|
}
|
|
for (__i=0; __i<12; __i++) {
|
|
_C_month_nms[__i][0]=__p._C_get_month (__i, false);
|
|
_C_month_nms[__i][1]=__p._C_get_month (__i, true);
|
|
}
|
|
_C_ampm_nms[0]=__p._C_get_ampm (false);
|
|
_C_ampm_nms[1]=__p._C_get_ampm (true);
|
|
_C_bad_nm=__p._C_get_bad ();
|
|
for (__i=0; __i<100; __i++)
|
|
_C_ord_nms[__i]=__p._C_get_ord (__i);
|
|
for (size_t __j=0; __j<sizeof _C_dt_tm_pats/sizeof _C_dt_tm_pats[0]; __j++)
|
|
_C_dt_tm_pats[__j]=__p._C_get_pattern (int(__j));
|
|
}
|
|
|
|
// struct for storing formatting information in map
|
|
struct __rwstd_fmt {
|
|
__rwstd_fmt () {}
|
|
__rwstd_fmt (size_t __pos, size_t __len, char __fmtc)
|
|
: _C_pos(__pos), _C_len(__len), _C_fmt_char(__fmtc) {}
|
|
size_t _C_pos;
|
|
size_t _C_len;
|
|
char _C_fmt_char;
|
|
bool operator < (const __rwstd_fmt& __fmt) {
|
|
return _C_pos < __fmt._C_pos;
|
|
}
|
|
};
|
|
|
|
// initialize data member pat_ which holds formatting strings
|
|
template <class _CharT>
|
|
void __rw_timepunct_impl_data<_CharT>::_C_initpat (const locale &__loc)
|
|
{
|
|
static const char __tm_single_data_patts[] = "YyjSMIHmBbAapdZUWw";
|
|
|
|
tm __tmb;
|
|
char __buf[256];
|
|
__rwstd_fmt __fmtstruct_array[20];
|
|
|
|
// set up tmp
|
|
__tmb.tm_sec = 56;
|
|
__tmb.tm_min = 54;
|
|
__tmb.tm_hour = 22;
|
|
__tmb.tm_mday = 30;
|
|
__tmb.tm_mon = 10;
|
|
__tmb.tm_year = 90;
|
|
__tmb.tm_wday = 5;
|
|
__tmb.tm_yday = -1;
|
|
__tmb.tm_isdst = -1;
|
|
(void) mktime (&__tmb);
|
|
|
|
typedef ctype<_CharT> _Ctype;
|
|
typedef __rw_facet_maker<_Ctype> _FacetMaker;
|
|
|
|
// bypass the mutex in std::use_facet<>() by directly calling
|
|
// the implementation locale member function to prevent a deadlock
|
|
|
|
const _Ctype &__ctp =
|
|
_RWSTD_STATIC_CAST (const _Ctype&,
|
|
__loc._C_unsafe_use_facet (_Ctype::id,
|
|
_Ctype::_C_ok_implicit,
|
|
_Ctype::_C_facet_cat,
|
|
_FacetMaker::_C_maker_func));
|
|
|
|
// Set up passed in locale
|
|
string __oldloc = setlocale (LC_ALL, 0);
|
|
#ifdef __BORLANDC__
|
|
string::size_type __posd = __loc->name ().find ('=')+1;
|
|
setlocale (LC_ALL, string (__loc->name (), __posd, __loc->name ().find ('\n')-__posd).c_str ());
|
|
#else
|
|
setlocale (LC_ALL, __loc.name ().c_str ());
|
|
#endif // __BORLANDC__
|
|
|
|
// For each composite format character create format string
|
|
static const char __tm_mult_data_patts[] = "xXcDrT";
|
|
|
|
for (unsigned int __j = 0; __j != sizeof __tm_mult_data_patts - 1; ++__j) {
|
|
// create format string to parse
|
|
char __tmfmt_pat[] = "% ";
|
|
__tmfmt_pat[1] = __tm_mult_data_patts[__j];
|
|
strftime (__buf, sizeof (__buf), __tmfmt_pat, &__tmb);
|
|
string __tmfmt_result (__buf);
|
|
|
|
// starting at the beginning of the formatted string find each component
|
|
// and save in an ordered structure
|
|
size_t __pos;
|
|
int __fmtstruct_index = 0;
|
|
for (unsigned int __i=0; __i < sizeof (__tm_single_data_patts) - 1; ++__i) {
|
|
char __tmp_fmt_arg[] = "% ";
|
|
__tmp_fmt_arg[1] = __tm_single_data_patts[__i];
|
|
strftime (__buf, sizeof (__buf), __tmp_fmt_arg, &__tmb);
|
|
// Some locales don't have am/pm, in which case strftime (...%p...)
|
|
// returns a space. Exclude this case to ensure valid substring searches.
|
|
if (!(__tm_single_data_patts[__i]=='p' && strcmp (__buf, " ")==0)) {
|
|
if ((__pos = __tmfmt_result.find (__buf)) != size_t (-1)) {
|
|
if (strlen (__buf) > 0) {
|
|
__fmtstruct_array[__fmtstruct_index++] =
|
|
__rwstd_fmt (__pos, strlen (__buf),
|
|
__tm_single_data_patts[__i]);
|
|
__tmfmt_result.replace (__pos, strlen (__buf), strlen (__buf), ' ');
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
// Sort Format Items
|
|
for (int __top = __fmtstruct_index; __top > 0; --__top) {
|
|
int __large = 0;
|
|
for (int __k = 0; __k < __top; ++__k) {
|
|
if (__fmtstruct_array[__k] < __fmtstruct_array[__large])
|
|
__large = __k;
|
|
}
|
|
__rwstd_fmt __temp = __fmtstruct_array[__large];
|
|
__fmtstruct_array[__large] = __fmtstruct_array[__top-1];
|
|
__fmtstruct_array[__top-1] = __temp;
|
|
}
|
|
|
|
// Attempt to deal with implementations of strftime that use '%e'
|
|
{
|
|
string __alt_tmfmt (__tmfmt_result); // Alternate timepunct format string
|
|
char __compare_buf[256]; // Buffer to compare with strftime
|
|
|
|
// put format characters into formatting string
|
|
for (__rwstd_fmt *__tmpfmt = __fmtstruct_array;
|
|
__tmpfmt < (__fmtstruct_array + __fmtstruct_index);
|
|
++__tmpfmt) {
|
|
__tmfmt_result.replace ((*__tmpfmt)._C_pos, (*__tmpfmt)._C_len,
|
|
(string ("%").append (1, (*__tmpfmt)._C_fmt_char)));
|
|
// create an alternate formatting string that uses "%e" instead of "%d"
|
|
if ((*__tmpfmt)._C_fmt_char != 'd') {
|
|
__alt_tmfmt.replace ((*__tmpfmt)._C_pos, (*__tmpfmt)._C_len,
|
|
(string ("%").append (1, (*__tmpfmt)._C_fmt_char)));
|
|
} else {
|
|
__alt_tmfmt.replace ((*__tmpfmt)._C_pos, (*__tmpfmt)._C_len,
|
|
(string ("%e")));
|
|
}
|
|
}
|
|
|
|
// We need a single-digit day to see if spaces or zeroes are used to pad
|
|
__tmb.tm_mday=3;
|
|
|
|
// See if our usual format string is correct
|
|
strftime (__buf, sizeof (__buf), __tmfmt_result.c_str (), &__tmb);
|
|
strftime (__compare_buf, sizeof (__compare_buf), __tmfmt_pat, &__tmb);
|
|
|
|
// Make a best-effort guess ... we can't verify that a "%e" format
|
|
// string will do the trick, since the 'e' modifier is not specified by
|
|
// the C standard, and hence the result of strftime would be undefined.
|
|
|
|
if (strcmp (__buf, __compare_buf)) {
|
|
__tmfmt_result = __alt_tmfmt; // use the alternate format string
|
|
}
|
|
|
|
// And restore the "safe" day-of-month for next time.
|
|
__tmb.tm_mday=30;
|
|
}
|
|
|
|
// convert to string_type and insert in array _C_dt_tm_pats
|
|
string_type __str;
|
|
for (_TYPENAME string_type::size_type __k = 0;
|
|
__k < __tmfmt_result.length (); ++__k)
|
|
__str += __ctp.widen (__tmfmt_result[__k]);
|
|
_C_dt_tm_pats[__j] = __str;
|
|
|
|
}
|
|
|
|
setlocale (LC_ALL, __oldloc.c_str ());
|
|
}
|
|
|
|
template <class _CharT>
|
|
void __rw_timepunct_impl_data<_CharT>::_C_initfacet (const locale &__loc) {
|
|
|
|
int __i;
|
|
for (__i=0; __i<7; ++__i) {
|
|
_C_dn_defs[__i][0]._C_name=_C_day_nms[__i][0].c_str ();
|
|
_C_dn_defs[__i][0]._C_indx=__i;
|
|
_C_dn_defs[__i][1]._C_name=_C_day_nms[__i][1].c_str ();
|
|
_C_dn_defs[__i][1]._C_indx=__i;
|
|
}
|
|
|
|
for (__i=0; __i<12; ++__i) {
|
|
_C_mn_defs[__i][0]._C_name=_C_month_nms[__i][0].c_str ();
|
|
_C_mn_defs[__i][0]._C_indx=__i;
|
|
_C_mn_defs[__i][1]._C_name=_C_month_nms[__i][1].c_str ();
|
|
_C_mn_defs[__i][1]._C_indx=__i;
|
|
}
|
|
|
|
_C_ampm_defs[0]._C_name=_C_ampm_nms[0].c_str ();
|
|
_C_ampm_defs[0]._C_indx= 0;
|
|
_C_ampm_defs[1]._C_name=_C_ampm_nms[1].c_str ();
|
|
_C_ampm_defs[1]._C_indx= 1;
|
|
|
|
_C_dn_defsmap._C_numdefs=7*2;
|
|
_C_dn_defsmap._C_defs=&(_C_dn_defs[0][0]);
|
|
_C_mn_defsmap._C_numdefs=12*2;
|
|
_C_mn_defsmap._C_defs=&(_C_mn_defs[0][0]);
|
|
_C_ampm_defsmap._C_numdefs=2;
|
|
_C_ampm_defsmap._C_defs=&(_C_ampm_defs[0]);
|
|
_C_initpat (__loc);
|
|
}
|
|
|
|
|
|
template <class _CharT>
|
|
const _CharT __rw_bool_name<_CharT>::_C_name[][6] = {
|
|
{ 'f', 'a', 'l', 's', 'e', '\0' },
|
|
{ 't', 'r', 'u', 'e', '\0' }
|
|
};
|
|
|
|
|
|
template <class _CharT>
|
|
const __rw_numpunct_init_data<_CharT>
|
|
__rw_numpunct_impl<_CharT>::_C_ivals = {
|
|
false, // don't delete
|
|
'.', // decimal point
|
|
#if !defined (_WIN32) && !defined (_WIN64)
|
|
'\0', // standard "C" locale thousands separator
|
|
#else
|
|
',', // Windows "C" locale thousands separator
|
|
#endif
|
|
"", // Digit grouping rule
|
|
__rw_bool_name<_CharT>::_C_name [true], // Boolean true value as string
|
|
__rw_bool_name<_CharT>::_C_name [false] // Boolean false value as string
|
|
};
|
|
|
|
|
|
// ----------------------------------------------------
|
|
// Facet rwstd::__rw_timepunct<_CharT> member templates.
|
|
// ----------------------------------------------------
|
|
|
|
template <class _CharT>
|
|
locale::id __rw_timepunct<_CharT>::id;
|
|
|
|
template <class _CharT>
|
|
void __rw_timepunct<_CharT>::_C_initfacet (const locale &__loc) {
|
|
__rw_timepunct_impl<_CharT>::_C_initfacet (__loc);
|
|
}
|
|
|
|
template <class _CharT>
|
|
_TYPENAME __rw_timepunct<_CharT>::string_type
|
|
__rw_timepunct<_CharT>::do_dayname (int __day, bool __abbr) const {
|
|
return this->_C_day_nms[__day][__abbr];
|
|
}
|
|
|
|
template <class _CharT>
|
|
_TYPENAME __rw_timepunct<_CharT>::string_type
|
|
__rw_timepunct<_CharT>::do_monthname (int __mon, bool __abbr) const {
|
|
return this->_C_month_nms[__mon][__abbr];
|
|
}
|
|
|
|
template <class _CharT>
|
|
_TYPENAME __rw_timepunct<_CharT>::string_type
|
|
__rw_timepunct<_CharT>::do_ordinal (int __num) const {
|
|
return (__num<0 || __num>99) ? this->_C_bad_nm : this->_C_ord_nms[__num];
|
|
}
|
|
|
|
|
|
// ---------------------------------------
|
|
// Template __rw_digit_reader members
|
|
// ---------------------------------------
|
|
|
|
template <class _CharT, class _InputIter>
|
|
char* __rw_digit_reader<_CharT, _InputIter>::
|
|
_C_get_digit_string (char *__first, bool __discard /* = false */) {
|
|
|
|
char *__last = __first;
|
|
|
|
// get a set of punctuator characters
|
|
const _CharT *__punct = this->_C_dmap._C_get_punct ();
|
|
|
|
// convert a sequence starting at iterator 'in' into
|
|
// a binary (not character) string of digits
|
|
while (!eof ()) {
|
|
|
|
_CharT __c = *_C_in; // extracted character
|
|
int __digit = this->_C_dmap._C_eval (__c); // binary equivalent
|
|
|
|
// validate and break out on unknown char
|
|
if ( __digit >= this->_C_base || __digit < 0
|
|
&& ( 16 != this->_C_base
|
|
|| __c != __punct [this->_C_x] && __c != __punct [this->_C_X]))
|
|
break;
|
|
|
|
// buffer full, reallocate
|
|
if (__last == this->_C_digits + this->_C_bufsize)
|
|
__last = this->_C_realloc ();
|
|
|
|
// append digit to the end of buffer
|
|
// leading zeros may be optionally discarded
|
|
if ( 0 < __digit
|
|
|| 0 == __digit && (!__discard || __first != __last))
|
|
*__last++ = char (__digit);
|
|
|
|
++_C_in;
|
|
}
|
|
|
|
return __last;
|
|
}
|
|
|
|
|
|
template <class _CharT, class _InputIter>
|
|
char* __rw_digit_reader<_CharT, _InputIter>::_C_get_digits (int)
|
|
{
|
|
char *__last = this->_C_digits;
|
|
const _CharT* __punct = this->_C_dmap._C_get_punct ();
|
|
|
|
if (!eof () && (this->_C_state & this->_C_signed)) {
|
|
|
|
_CharT __ch = *_C_in;
|
|
|
|
// If a sign is present, set negative if it's a minus sign.
|
|
if ( __ch == __punct [this->_C_plus]
|
|
|| __ch == __punct [this->_C_minus]) {
|
|
|
|
if (__ch == __punct [this->_C_minus])
|
|
this->_C_state |= this->_C_negative;
|
|
|
|
do
|
|
++_C_in;
|
|
while (!eof () && this->_C_ctyp.is (ctype_base::space, *_C_in));
|
|
|
|
this->_C_state |= this->_C_advanced;
|
|
}
|
|
}
|
|
|
|
if (!this->_C_base) {
|
|
|
|
this->_C_base = _C_io._C_base ();
|
|
|
|
if (0 == this->_C_base || (_C_io.flags () & ios_base::showbase)) {
|
|
// No radix was forced by the ios_base flags, so poke around
|
|
// for a radix specifier on the front of the input value.
|
|
|
|
if (0 == this->_C_base)
|
|
this->_C_base = 10;
|
|
|
|
if (!eof () && *_C_in == __punct[this->_C_zero]) {
|
|
this->_C_base = 8;
|
|
++_C_in;
|
|
*__last++ = 0;
|
|
this->_C_state |= this->_C_advanced;
|
|
|
|
_CharT __ch;
|
|
|
|
if ( !eof ()
|
|
&& ( (__ch = *_C_in) == __punct[this->_C_x]
|
|
|| __ch == __punct[this->_C_X])) {
|
|
this->_C_base = 16;
|
|
++_C_in;
|
|
__last--; // Leading 0 was not a digit after all.
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
if (!*(_C_grouping = this->_C_get_grouping ()))
|
|
__last = _C_get_digit_string (__last);
|
|
else {
|
|
_C_gpos = _C_groups;
|
|
|
|
thousands_sep = this->_C_get_thousands_sep ();
|
|
__last = _C_get_digit_groups (__last);
|
|
|
|
if (!this->_C_error && --_C_gpos > _C_groups) {
|
|
// Digit grouping is optional, but if present it must be right.
|
|
const char *__gdef = _C_grouping;
|
|
do {
|
|
if (*__gdef != *_C_gpos && *__gdef != CHAR_MAX)
|
|
break;
|
|
|
|
if (__gdef[1])
|
|
++__gdef;
|
|
} while (--_C_gpos > _C_groups);
|
|
|
|
if (_C_gpos > _C_groups || *_C_gpos > *__gdef)
|
|
this->_C_error |= this->_C_bad_grouping;
|
|
}
|
|
}
|
|
|
|
if (__last > this->_C_digits)
|
|
this->_C_state |= this->_C_advanced;
|
|
|
|
return __last;
|
|
}
|
|
|
|
|
|
#ifndef __SOFTFP
|
|
#ifdef __TARGET_ARCH_AARCH64
|
|
#define __SOFTFP
|
|
#else
|
|
#ifdef __EDG__
|
|
#define __SOFTFP __softfp
|
|
#else
|
|
#define __SOFTFP __attribute__((pcs("aapcs")))
|
|
#endif
|
|
#endif
|
|
#endif
|
|
|
|
template <class _CharT, class _InputIter>
|
|
char* __rw_digit_reader<_CharT, _InputIter>::_C_get_digits (double) __SOFTFP
|
|
{
|
|
// get leading digits if any, discaring leading zeros
|
|
this->_C_base = 10;
|
|
char *__first = _C_get_digits (0);
|
|
|
|
// get a set of valid punctuators
|
|
const _CharT *__punct = this->_C_dmap._C_get_punct ();
|
|
|
|
this->_C_frac_beg = __first;
|
|
|
|
if (!this->_C_error && !eof ()) {
|
|
if (*_C_in == this->_C_get_decimal_point ()) {
|
|
// advance past decimal point and append fractional part
|
|
// to the end of internal buffer
|
|
++_C_in;
|
|
__first = _C_get_digit_string (__first);
|
|
}
|
|
}
|
|
|
|
// 7.19.6.1 of C99: determine whether we're parsing one of:
|
|
// "inf", "infinity", "nan", "nan(n-char-sequence)"
|
|
|
|
if (__first == this->_C_digits && !eof ()) {
|
|
|
|
const ctype<char> &__ctp = _USE_FACET (ctype<char>, _C_io.getloc ());
|
|
|
|
char __c = (__ctp.tolower)(char (*_C_in));
|
|
|
|
if ('i' == __c) {
|
|
static const char __inf[] = "infinity";
|
|
|
|
for (const char *__p = __inf; ; ++__p, ++_C_in) {
|
|
// both "inf" and "infinity" are recognized
|
|
if ( !*__p || 3 == __p - __inf
|
|
&& *__p != (__ctp.tolower)(char(*_C_in))) {
|
|
this->_C_state |= this->_C_infinity;
|
|
return __first;
|
|
}
|
|
if (eof () || *__p != (__ctp.tolower)(char(*_C_in)))
|
|
break; // error
|
|
}
|
|
}
|
|
else if ('n' == __c) {
|
|
for (const char *__p = "nan"; ; ++__p, ++_C_in) {
|
|
// both "nan" and "nan(n-char-sequence)" are recognized
|
|
if (!*__p) {
|
|
if (eof ()) {
|
|
this->_C_state |= this->_C_nan;
|
|
return __first;
|
|
}
|
|
if ('(' == *_C_in) {
|
|
// FIXME: "(n-char-sequence)" ignored
|
|
while (!eof ())
|
|
if (')' == *_C_in++) {
|
|
this->_C_state |= this->_C_nan;
|
|
return __first;
|
|
}
|
|
}
|
|
break; // error
|
|
}
|
|
else if (eof () || (__ctp.tolower)(char(*_C_in)) != *__p)
|
|
break; // error
|
|
}
|
|
}
|
|
}
|
|
|
|
if (__first == this->_C_digits)
|
|
this->_C_error |= this->_C_no_digits;
|
|
|
|
this->_C_exp_beg = __first;
|
|
this->_C_state &= ~this->_C_exp_negative;
|
|
|
|
_CharT __ch;
|
|
|
|
if ( !this->_C_error && !eof ()
|
|
&& ( (__ch = *_C_in) == __punct [this->_C_e]
|
|
|| __ch == __punct [this->_C_E])) {
|
|
|
|
// advance past 'e' or 'E' and append exponent
|
|
// to the end of internal buffer
|
|
++_C_in;
|
|
if (eof ())
|
|
this->_C_error |= this->_C_bad_exponent;
|
|
else {
|
|
// check for '+' or '-' after 'e' or 'E'
|
|
if ((__ch = *_C_in) == __punct [this->_C_plus])
|
|
++_C_in;
|
|
else if (__ch == __punct [this->_C_minus]) {
|
|
this->_C_state |= this->_C_exp_negative;
|
|
++_C_in;
|
|
}
|
|
|
|
// read _C_in (decimal) exponent digits
|
|
int __radix = this->_C_base;
|
|
this->_C_base = 10;
|
|
__first = _C_get_digit_string (__first);
|
|
this->_C_base = __radix;
|
|
|
|
if (__first == this->_C_exp_beg)
|
|
this->_C_error |= this->_C_bad_exponent;
|
|
}
|
|
}
|
|
|
|
return __first;
|
|
}
|
|
|
|
|
|
template <class _CharT, class _InputIter>
|
|
char* __rw_digit_reader<_CharT, _InputIter>::
|
|
_C_get_digit_groups (char *__first) {
|
|
|
|
char *__eod=_C_get_digit_string (__first);
|
|
|
|
if (_C_gpos==_C_groups+sizeof _C_groups)
|
|
this->_C_error|=this->_C_too_many_groups;
|
|
else {
|
|
ptrdiff_t __i=__eod-__first;
|
|
if (__i >= CHAR_MAX)
|
|
this->_C_error|=this->_C_group_too_long;
|
|
else {
|
|
if (__i!=0) {
|
|
*_C_gpos++=char(__i);
|
|
if (!eof () && *_C_in==thousands_sep) {
|
|
++_C_in;
|
|
__eod=_C_get_digit_groups (__eod);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
return __eod;
|
|
}
|
|
|
|
|
|
template <class _CharT, class _InputIter>
|
|
int __rw_digit_reader<_CharT, _InputIter>::
|
|
_C_get_keyword (const __rw_keyword_map<_CharT> &__in_map) {
|
|
|
|
const __rw_keyword_def<_CharT> *__map_ptr=__in_map._C_defs;
|
|
const __rw_keyword_def<_CharT> *__end_ptr=__in_map._C_defs+__in_map._C_numdefs;
|
|
|
|
__rw_keyword_def<_CharT> __can_ary[40], // Candidate names.
|
|
*__can_ptr=__can_ary;
|
|
|
|
const _CharT *__name;
|
|
int __res;
|
|
_CharT __input;
|
|
|
|
// The first pass produces a set of candidate
|
|
// names in the local array. Successive passes
|
|
// deal with local array exclusively -- iteratively
|
|
// stripping matching characters and keeping their
|
|
// related map info while discarding map info if not
|
|
// matching.
|
|
|
|
for ( ; ; ) {
|
|
if (eof ()) {
|
|
for ( ; __map_ptr<__end_ptr; ++__map_ptr)
|
|
if (!*__map_ptr->_C_name)
|
|
return __map_ptr->_C_indx;
|
|
return -1;
|
|
}
|
|
|
|
__input=*_C_in;
|
|
__res=-1;
|
|
|
|
for ( ; __map_ptr<__end_ptr; ++__map_ptr) {
|
|
__name=__map_ptr->_C_name;
|
|
if (__input==*__name) {
|
|
__can_ptr->_C_name=++__name;
|
|
__can_ptr->_C_indx=__map_ptr->_C_indx;
|
|
++__can_ptr;
|
|
}
|
|
else if (*__name==0 ) // End of abbreviated name.
|
|
__res=__can_ptr->_C_indx;// NOTE: If an abbreviation is followed
|
|
// by characters that could match the
|
|
} // full name, continues reading until
|
|
// full name is matched, else fails
|
|
// (per 22.2.5.1.2-6 in the Standard)
|
|
if (__can_ptr==__can_ary) //
|
|
return __res; // EX: If table has "Sunday" and "Sun",
|
|
// input "Sund" will fail, but "Suni"
|
|
// evals to "Sun".
|
|
|
|
++_C_in;
|
|
|
|
if (__can_ptr==__can_ary+1) { // Only one matching candidate name left.
|
|
for (__name=__can_ary[0]._C_name; *__name; ++__name) {
|
|
if (eof () || *_C_in!=*__name)
|
|
return -1;
|
|
++_C_in;
|
|
}
|
|
return __can_ary[0]._C_indx;
|
|
}
|
|
|
|
__end_ptr =__can_ptr; // After first pass, vars refer
|
|
__can_ptr =__can_ary; // to local array.
|
|
__map_ptr =__can_ary;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
// ---------------------------------------------------
|
|
// Template __rw_digit_writer_base_1 member templates.
|
|
// ---------------------------------------------------
|
|
|
|
|
|
template <class _CharT>
|
|
__rw_digit_writer_base_1<_CharT>::
|
|
__rw_digit_writer_base_1(ios_base &__flags,
|
|
const __rw_punct_data<_CharT> &__mp)
|
|
: __rw_digit_writer_base (__flags),
|
|
__rw_digit_handler_base_1<_CharT>(__flags.getloc (), __mp) {
|
|
|
|
_C_flags &= ~(ios_base::floatfield | ios_base::showpos);
|
|
_C_flags |= ios_base::fixed;
|
|
_C_base = 10;
|
|
_C_precision = 0;
|
|
}
|
|
|
|
// --------------------------------------------
|
|
// Template __rw_digit_writer member templates.
|
|
// --------------------------------------------
|
|
|
|
template <class _CharT, class _OutputIter>
|
|
void __rw_digit_writer<_CharT, _OutputIter>::_C_put_digits (_CharT __fill) {
|
|
|
|
char *__p=this->_C_start;
|
|
bool __has_sign=false, __has_point=false,
|
|
__has_prefix_8=false, __has_prefix_16=false;
|
|
|
|
if (__p<this->_C_end && (*__p==' ' || *__p=='-' || *__p=='+')) {
|
|
__has_sign=true;
|
|
__p++;
|
|
}
|
|
|
|
if (__p+1 < this->_C_end
|
|
&& (this->_C_base == 16 && *__p == '0'
|
|
&& (*(__p+1) == 'x') || *(__p+1) == 'X'))
|
|
__has_prefix_16 = true;
|
|
|
|
if (__p+1 < this->_C_end
|
|
&& (this->_C_base == 8 && *__p == '0'))
|
|
__has_prefix_8 = true;
|
|
|
|
// Locate the end of the integral digits.
|
|
char *__dec;
|
|
if (!this->_C_fractional)
|
|
__dec=this->_C_end;
|
|
else {
|
|
__dec=this->_C_start;
|
|
if (__has_sign) __dec++;
|
|
for ( ; __dec<this->_C_end; ++__dec)
|
|
if (*__dec<'0' || *__dec>'9') {
|
|
if (*__dec!='e' && *__dec!='E')
|
|
__has_point=true;
|
|
break;
|
|
}
|
|
}
|
|
|
|
|
|
// Calculate the number and pattern of separators needed if any.
|
|
_CharT __separator = _CharT ();
|
|
|
|
_RWSTD_C::ptrdiff_t __ungrouped = __dec - this->_C_start;
|
|
if (__has_sign)
|
|
__ungrouped--;
|
|
if (__has_prefix_16)
|
|
__ungrouped -= 2;
|
|
if (__has_prefix_8)
|
|
__ungrouped--;
|
|
|
|
if (this->_C_separable) {
|
|
__ungrouped = this->_C_calc_groups (int (__ungrouped),
|
|
this->_C_get_grouping ());
|
|
if (this->_C_num_groups)
|
|
__separator=this->_C_get_thousands_sep ();
|
|
}
|
|
|
|
// Compute the number of __fill _CharT-s needed, and where they should be put.
|
|
ptrdiff_t __left_fill=0, __internal_fill=0, __right_fill=0;
|
|
if (this->_C_width>0) {
|
|
ptrdiff_t __w=this->_C_width - (this->_C_end - this->_C_start)
|
|
- this->_C_num_groups;
|
|
this->_C_width=0;
|
|
|
|
if (__w>0) {
|
|
switch (this->_C_adjust) {
|
|
case __rw_digit_writer_base::_C_left:
|
|
__right_fill=__w;
|
|
break;
|
|
case __rw_digit_writer_base::_C_internal:
|
|
__internal_fill=__w;
|
|
break;
|
|
default:
|
|
__left_fill=__w;
|
|
}
|
|
}
|
|
}
|
|
|
|
// widen the sign + digits + exponent string
|
|
|
|
// default buffer, will allocate larger if necessary
|
|
_CharT __widebuf [__rw_digit_writer_base::_C_DEF_BUFSIZE];
|
|
_CharT *__wide_digits = __widebuf;
|
|
|
|
// increase the size of the buffer
|
|
if (this->_C_end - this->_C_start >= __rw_digit_writer_base::_C_DEF_BUFSIZE)
|
|
__wide_digits = new _CharT [this->_C_end - this->_C_start + 1];
|
|
|
|
this->_C_ctyp.widen (this->_C_start, this->_C_end, __wide_digits);
|
|
|
|
// Write the widened string with fill and decorations to output.
|
|
_CharT *__digit_pos = __wide_digits;
|
|
while (__left_fill--)
|
|
*_C_out++ = __fill;
|
|
|
|
if (__has_sign)
|
|
*_C_out++ = *__digit_pos++; // the widened sign
|
|
|
|
if (__has_prefix_16) {
|
|
*_C_out++ = *__digit_pos++; // the "0"
|
|
*_C_out++ = *__digit_pos++; // the "x"
|
|
}
|
|
if (__has_prefix_8)
|
|
*_C_out++ = *__digit_pos++; // the "0"
|
|
|
|
while (__internal_fill--)
|
|
*_C_out++ = __fill;
|
|
|
|
while (__ungrouped--)
|
|
*_C_out++ = *__digit_pos++;
|
|
|
|
while (this->_C_num_groups--) {
|
|
*_C_out++ = __separator;
|
|
|
|
while (this->_C_group[0]--)
|
|
*_C_out++=*__digit_pos++;
|
|
++this->_C_group;
|
|
}
|
|
|
|
if (__has_point) {
|
|
*_C_out++=this->_C_get_decimal_point ();
|
|
++__digit_pos;
|
|
}
|
|
|
|
__ungrouped = this->_C_end - __dec;
|
|
|
|
if (__has_point)
|
|
__ungrouped--;
|
|
|
|
while ((__ungrouped--) > 0)
|
|
*_C_out++ = *__digit_pos++;
|
|
|
|
while (__right_fill--)
|
|
*_C_out++ = __fill;
|
|
|
|
if (__wide_digits != __widebuf)
|
|
delete[] __wide_digits;
|
|
}
|
|
|
|
template <class _CharT, class _OutputIter>
|
|
void __rw_digit_writer<_CharT, _OutputIter>::
|
|
_C_put_keyword (const string_type &__instr, _CharT __fillchar) {
|
|
|
|
ptrdiff_t __left_fill=0, __right_fill=0;
|
|
ptrdiff_t __fillnum=this->_C_width-__instr.length ();
|
|
if (__fillnum>0) {
|
|
switch (this->_C_adjust) {
|
|
case __rw_digit_writer_base::_C_left:
|
|
__right_fill=__fillnum;
|
|
break;
|
|
case __rw_digit_writer_base::_C_internal:
|
|
default:
|
|
__left_fill=__fillnum;
|
|
}
|
|
if (__left_fill)
|
|
do *_C_out++=__fillchar;
|
|
while (--__left_fill);
|
|
}
|
|
|
|
const _CharT *__tmp=__instr.c_str (), *__endtmp=__tmp+__instr.length ();
|
|
while (__tmp<__endtmp)
|
|
*_C_out++=*__tmp++;
|
|
|
|
if (__right_fill)
|
|
do *_C_out++=__fillchar;
|
|
while (--__right_fill);
|
|
}
|
|
|
|
_RWSTD_NAMESPACE_END // __rw
|
|
|