| /* |
| * Copyright (c) 1999 |
| * Silicon Graphics Computer Systems, Inc. |
| * |
| * Copyright (c) 1999 |
| * Boris Fomitchev |
| * |
| * This material is provided "as is", with absolutely no warranty expressed |
| * or implied. Any use is at your own risk. |
| * |
| * Permission to use or copy this software for any purpose is hereby granted |
| * without fee, provided the above notices are retained on all copies. |
| * Permission to modify the code and to distribute modified code is granted, |
| * provided the above notices are retained, and a notice that the code was |
| * modified is included with the above copyright notice. |
| * |
| */ |
| #ifndef _STLP_TIME_FACETS_C |
| #define _STLP_TIME_FACETS_C |
| |
| #ifndef _STLP_INTERNAL_TIME_FACETS_H |
| # include <stl/_time_facets.h> |
| #endif |
| |
| #ifndef _STLP_INTERNAL_NUM_PUT_H |
| # include <stl/_num_put.h> |
| #endif |
| |
| #ifndef _STLP_INTERNAL_NUM_GET_H |
| # include <stl/_num_get.h> |
| #endif |
| |
| _STLP_BEGIN_NAMESPACE |
| |
| //---------------------------------------------------------------------- |
| // Declarations of static template members. |
| #if (_STLP_STATIC_TEMPLATE_DATA > 0) |
| |
| # if !defined (__BORLANDC__) |
| template <class _CharT, class _InputIterator> |
| locale::id time_get<_CharT, _InputIterator>::id; |
| |
| template <class _CharT, class _OutputIterator> |
| locale::id time_put<_CharT, _OutputIterator>::id; |
| # endif |
| |
| # if (defined (__CYGWIN__) || defined (__MINGW32__)) && \ |
| defined (_STLP_USE_DYNAMIC_LIB) && !defined (__BUILDING_STLPORT) |
| /* |
| * Under cygwin, when STLport is used as a shared library, the id needs |
| * to be specified as imported otherwise they will be duplicated in the |
| * calling executable. |
| */ |
| template <> |
| _STLP_DECLSPEC locale::id time_get<char, istreambuf_iterator<char, char_traits<char> > >::id; |
| /* |
| template <> |
| _STLP_DECLSPEC locale::id time_get<char, const char*>::id; |
| */ |
| |
| template <> |
| _STLP_DECLSPEC locale::id time_put<char, ostreambuf_iterator<char, char_traits<char> > >::id; |
| /* |
| template <> |
| _STLP_DECLSPEC locale::id time_put<char, char*>::id; |
| */ |
| |
| # ifndef _STLP_NO_WCHAR_T |
| template <> |
| _STLP_DECLSPEC locale::id time_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id; |
| /* |
| template <> |
| _STLP_DECLSPEC locale::id time_get<wchar_t, const wchar_t*>::id; |
| */ |
| |
| template <> |
| _STLP_DECLSPEC locale::id time_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >::id; |
| /* |
| template <> |
| _STLP_DECLSPEC locale::id time_put<wchar_t, wchar_t*>::id; |
| */ |
| # endif /* _STLP_NO_WCHAR_T */ |
| # endif /* __CUGWIN__ && _STLP_USE_DYNAMIC_LIB */ |
| |
| #else /* ( _STLP_STATIC_TEMPLATE_DATA > 0 ) */ |
| |
| //typedef time_get<char, const char*> time_get_char; |
| typedef time_get<char, istreambuf_iterator<char, char_traits<char> > > time_get_char_2; |
| //typedef time_put<char, char*> time_put_char; |
| typedef time_put<char, ostreambuf_iterator<char, char_traits<char> > > time_put_char_2; |
| |
| //__DECLARE_INSTANCE(locale::id, time_get_char::id, ); |
| __DECLARE_INSTANCE(locale::id, time_get_char_2::id, ); |
| //__DECLARE_INSTANCE(locale::id, time_put_char::id, ); |
| __DECLARE_INSTANCE(locale::id, time_put_char_2::id, ); |
| |
| # if !defined (_STLP_NO_WCHAR_T) |
| |
| //typedef time_get<wchar_t, const wchar_t*> time_get_wchar_t; |
| typedef time_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > > time_get_wchar_t_2; |
| //typedef time_put<wchar_t, wchar_t*> time_put_wchar_t; |
| typedef time_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > > time_put_wchar_t_2; |
| |
| //__DECLARE_INSTANCE(locale::id, time_get_wchar_t::id, ); |
| __DECLARE_INSTANCE(locale::id, time_get_wchar_t_2::id, ); |
| //__DECLARE_INSTANCE(locale::id, time_put_wchar_t::id, ); |
| __DECLARE_INSTANCE(locale::id, time_put_wchar_t_2::id, ); |
| |
| # endif |
| |
| #endif /* ( _STLP_STATIC_TEMPLATE_DATA > 0 ) */ |
| |
| _STLP_MOVE_TO_PRIV_NAMESPACE |
| |
| template <class _InIt, class _CharT> |
| const string* _STLP_CALL |
| __match(_InIt& __first, _InIt& __last, const string *__name, const string *__name_end, |
| const ctype<_CharT>& __ct) { |
| typedef ptrdiff_t difference_type; |
| difference_type __n = __name_end - __name; |
| difference_type __i; |
| size_t __pos = 0; |
| difference_type __check_count = __n; |
| bool __do_check[_MAXNAMES]; |
| const string* __matching_name[_MAX_NAME_LENGTH]; |
| |
| for (__i = 0; __i < _MAXNAMES; ++__i) |
| __do_check[__i] = true; |
| |
| for (__i = 0; __i < _MAX_NAME_LENGTH; ++__i) |
| __matching_name[__i] = __name_end; |
| |
| while (__first != __last) { |
| for (__i = 0; __i < __n; ++__i) { |
| if (__do_check[__i]) { |
| if (*__first == __ct.widen(__name[__i][__pos])) { |
| if (__pos == (__name[__i].size() - 1)) { |
| __do_check[__i] = 0; |
| __matching_name[__pos + 1] = __name + __i; |
| --__check_count; |
| if (__check_count == 0) { |
| ++__first; |
| return __name + __i; |
| } |
| } |
| } |
| else { |
| __do_check[__i] = 0; |
| --__check_count; |
| if (__check_count == 0) |
| return __matching_name[__pos]; |
| } |
| } |
| } |
| |
| ++__first; ++__pos; |
| } |
| |
| return __matching_name[__pos]; |
| } |
| |
| // __get_formatted_time reads input that is assumed to be formatted |
| // according to the rules for the C strftime function (C standard, |
| // 7.12.3.5). This function is used to implement the do_get_time |
| // and do_get_date virtual functions, which depend on the locale |
| // specifications for the time and day formats respectively. |
| // Note the catchall default case, intended mainly for the '%Z' |
| // format designator, which does not make sense here since the |
| // representation of timezones is not part of the locale. |
| // |
| // The case branches are implemented either by doing a match using |
| // the appopriate name table or by doing a __get_integer_nogroup. |
| // |
| // 'y' format is assumed to mean that the input represents years |
| // since 1900. That is, 2002 should be represented as 102. There |
| // is no century-guessing. |
| // |
| // The match is successful if and only if the second component of the |
| // return value is format_end. |
| |
| // Note that the antepenultimate parameter is being used only to determine |
| // the correct overloading for the calls to __get_integer_nogroup. |
| template <class _InIt1, class _Ch> |
| string::const_iterator _STLP_CALL |
| __get_formatted_time _STLP_WEAK (_InIt1 __first, _InIt1 __last, |
| string::const_iterator __format, string::const_iterator __format_end, |
| _Ch*, const _Time_Info& __table, |
| const ios_base& __s, ios_base::iostate& __err, tm* __t) { |
| const ctype<_Ch>& __ct = *__STATIC_CAST(const ctype<_Ch>*, __s._M_ctype_facet()); |
| while (__first != __last && __format != __format_end) { |
| if (*__format == '%') { |
| ++__format; |
| char __c = *__format; |
| if (__c == '#') { //MS extension |
| ++__format; |
| __c = *__format; |
| } |
| |
| switch (__c) { |
| case 'a': { |
| const string* __pr = __match(__first, __last, |
| __table._M_dayname + 0, __table._M_dayname + 7, |
| __ct); |
| if (__pr == __table._M_dayname + 7) |
| return __format; |
| __t->tm_wday = __STATIC_CAST(int, __pr - __table._M_dayname); |
| break; |
| } |
| |
| case 'A': { |
| const string* __pr = __match(__first, __last, |
| __table._M_dayname + 7, __table._M_dayname + 14, |
| __ct); |
| if (__pr == __table._M_dayname + 14) |
| return __format; |
| __t->tm_wday = __STATIC_CAST(int, __pr - __table._M_dayname - 7); |
| break; |
| } |
| |
| case 'b': { |
| const string* __pr = __match(__first, __last, |
| __table._M_monthname + 0, __table._M_monthname + 12, |
| __ct); |
| if (__pr == __table._M_monthname + 12) |
| return __format; |
| __t->tm_mon = __STATIC_CAST(int, __pr - __table._M_monthname); |
| break; |
| } |
| |
| case 'B': { |
| const string* __pr = __match(__first, __last, |
| __table._M_monthname + 12, __table._M_monthname + 24, |
| __ct); |
| if (__pr == __table._M_monthname + 24) |
| return __format; |
| __t->tm_mon = __STATIC_CAST(int, __pr - __table._M_monthname - 12); |
| break; |
| } |
| |
| case 'd': { |
| bool __pr = __get_decimal_integer(__first, __last, __t->tm_mday, __STATIC_CAST(_Ch*, 0)); |
| if (!__pr || __t->tm_mday < 1 || __t->tm_mday > 31) { |
| __err |= ios_base::failbit; |
| return __format; |
| } |
| break; |
| } |
| |
| case 'H': case 'I': { |
| bool __pr = __get_decimal_integer(__first, __last, __t->tm_hour, __STATIC_CAST(_Ch*, 0)); |
| if (!__pr) |
| return __format; |
| break; |
| } |
| |
| case 'j': { |
| bool __pr = __get_decimal_integer(__first, __last, __t->tm_yday, __STATIC_CAST(_Ch*, 0)); |
| if (!__pr) |
| return __format; |
| break; |
| } |
| |
| case 'm': { |
| bool __pr = __get_decimal_integer(__first, __last, __t->tm_mon, __STATIC_CAST(_Ch*, 0)); |
| --__t->tm_mon; |
| if (!__pr || __t->tm_mon < 0 || __t->tm_mon > 11) { |
| __err |= ios_base::failbit; |
| return __format; |
| } |
| break; |
| } |
| |
| case 'M': { |
| bool __pr = __get_decimal_integer(__first, __last, __t->tm_min, __STATIC_CAST(_Ch*, 0)); |
| if (!__pr) |
| return __format; |
| break; |
| } |
| |
| case 'p': { |
| const string* __pr = __match(__first, __last, |
| __table._M_am_pm + 0, __table._M_am_pm + 2, __ct); |
| if (__pr == __table._M_am_pm + 2) |
| return __format; |
| // 12:00 PM <=> 12:00, 12:00 AM <=> 00:00 |
| if (__pr == __table._M_am_pm + 1 && __t->tm_hour != 12 ) |
| __t->tm_hour += 12; |
| if (__pr == __table._M_am_pm && __t->tm_hour == 12 ) |
| __t->tm_hour = 0; |
| break; |
| } |
| |
| case 'S': { |
| bool __pr = __get_decimal_integer(__first, __last, __t->tm_sec, __STATIC_CAST(_Ch*, 0)); |
| if (!__pr) |
| return __format; |
| break; |
| } |
| |
| case 'y': { |
| bool __pr = __get_decimal_integer(__first, __last, __t->tm_year, __STATIC_CAST(_Ch*, 0)); |
| if (!__pr) |
| return __format; |
| break; |
| } |
| |
| case 'Y': { |
| bool __pr = __get_decimal_integer(__first, __last, __t->tm_year, __STATIC_CAST(_Ch*, 0)); |
| __t->tm_year -= 1900; |
| if (!__pr) |
| return __format; |
| break; |
| } |
| |
| default: |
| break; |
| } |
| } |
| else { |
| if (*__first++ != __ct.widen(*__format)) break; |
| } |
| |
| ++__format; |
| } |
| |
| return __format; |
| } |
| |
| template <class _InIt, class _CharT> |
| bool _STLP_CALL |
| __get_short_or_long_dayname(_InIt& __first, _InIt& __last, const ctype<_CharT>& __ct, |
| const _Time_Info& __table, tm* __t) { |
| const string* __pr = |
| __match(__first, __last, __table._M_dayname + 0, __table._M_dayname + 14, __ct); |
| __t->tm_wday = __STATIC_CAST(int, (__pr - __table._M_dayname) % 7); |
| return __pr != __table._M_dayname + 14; |
| } |
| |
| template <class _InIt, class _CharT> |
| bool _STLP_CALL |
| __get_short_or_long_monthname(_InIt& __first, _InIt& __last, const ctype<_CharT>& __ct, |
| const _Time_Info& __table, tm* __t) { |
| const string* __pr = |
| __match(__first, __last, __table._M_monthname + 0, __table._M_monthname + 24, __ct); |
| __t->tm_mon = __STATIC_CAST(int, (__pr - __table._M_monthname) % 12); |
| return __pr != __table._M_monthname + 24; |
| } |
| |
| #if !defined (_STLP_NO_WCHAR_T) |
| template <class _OuIt> |
| _OuIt _STLP_CALL |
| __put_time(char * __first, char * __last, _OuIt __out_ite, |
| const ios_base& __s, wchar_t) { |
| const ctype<wchar_t>& __ct = *__STATIC_CAST(const ctype<wchar_t>*, __s._M_ctype_facet()); |
| wchar_t __wbuf[64]; |
| __ct.widen(__first, __last, __wbuf); |
| ptrdiff_t __len = __last - __first; |
| wchar_t * __eend = __wbuf + __len; |
| return copy((wchar_t*)__wbuf, __eend, __out_ite); |
| } |
| #endif |
| |
| _STLP_MOVE_TO_STD_NAMESPACE |
| |
| template <class _Ch, class _InIt> |
| _InIt |
| time_get<_Ch, _InIt>::do_get_date(_InIt __s, _InIt __end, |
| ios_base& __str, ios_base::iostate& __err, |
| tm* __t) const { |
| typedef string::const_iterator string_iterator; |
| |
| string_iterator __format = _M_timeinfo._M_date_format.begin(); |
| string_iterator __format_end = _M_timeinfo._M_date_format.end(); |
| |
| string_iterator __result |
| = _STLP_PRIV __get_formatted_time(__s, __end, __format, __format_end, |
| __STATIC_CAST(_Ch*, 0), _M_timeinfo, |
| __str, __err, __t); |
| if (__result == __format_end) |
| __err = ios_base::goodbit; |
| else { |
| __err = ios_base::failbit; |
| if (__s == __end) |
| __err |= ios_base::eofbit; |
| } |
| return __s; |
| } |
| |
| template <class _Ch, class _InIt> |
| _InIt |
| time_get<_Ch, _InIt>::do_get_time(_InIt __s, _InIt __end, |
| ios_base& __str, ios_base::iostate& __err, |
| tm* __t) const { |
| typedef string::const_iterator string_iterator; |
| string_iterator __format = _M_timeinfo._M_time_format.begin(); |
| string_iterator __format_end = _M_timeinfo._M_time_format.end(); |
| |
| string_iterator __result |
| = _STLP_PRIV __get_formatted_time(__s, __end, __format, __format_end, |
| __STATIC_CAST(_Ch*, 0), _M_timeinfo, |
| __str, __err, __t); |
| __err = __result == __format_end ? ios_base::goodbit |
| : ios_base::failbit; |
| if (__s == __end) |
| __err |= ios_base::eofbit; |
| return __s; |
| } |
| |
| template <class _Ch, class _InIt> |
| _InIt |
| time_get<_Ch, _InIt>::do_get_year(_InIt __s, _InIt __end, |
| ios_base&, ios_base::iostate& __err, |
| tm* __t) const { |
| if (__s == __end) { |
| __err = ios_base::failbit | ios_base::eofbit; |
| return __s; |
| } |
| |
| bool __pr = _STLP_PRIV __get_decimal_integer(__s, __end, __t->tm_year, __STATIC_CAST(_Ch*, 0)); |
| __t->tm_year -= 1900; |
| __err = __pr ? ios_base::goodbit : ios_base::failbit; |
| if (__s == __end) |
| __err |= ios_base::eofbit; |
| |
| return __s; |
| } |
| |
| template <class _Ch, class _InIt> |
| _InIt |
| time_get<_Ch, _InIt>::do_get_weekday(_InIt __s, _InIt __end, |
| ios_base &__str, ios_base::iostate &__err, |
| tm *__t) const { |
| const ctype<_Ch>& __ct = *__STATIC_CAST(const ctype<_Ch>*, __str._M_ctype_facet()); |
| bool __result = |
| _STLP_PRIV __get_short_or_long_dayname(__s, __end, __ct, _M_timeinfo, __t); |
| if (__result) |
| __err = ios_base::goodbit; |
| else { |
| __err = ios_base::failbit; |
| if (__s == __end) |
| __err |= ios_base::eofbit; |
| } |
| return __s; |
| } |
| |
| template <class _Ch, class _InIt> |
| _InIt |
| time_get<_Ch, _InIt>::do_get_monthname(_InIt __s, _InIt __end, |
| ios_base &__str, ios_base::iostate &__err, |
| tm *__t) const { |
| const ctype<_Ch>& __ct = *__STATIC_CAST(const ctype<_Ch>*, __str._M_ctype_facet()); |
| bool __result = |
| _STLP_PRIV __get_short_or_long_monthname(__s, __end, __ct, _M_timeinfo, __t); |
| if (__result) |
| __err = ios_base::goodbit; |
| else { |
| __err = ios_base::failbit; |
| if (__s == __end) |
| __err |= ios_base::eofbit; |
| } |
| return __s; |
| } |
| |
| template<class _Ch, class _OutputIter> |
| _OutputIter |
| time_put<_Ch,_OutputIter>::put(_OutputIter __s, ios_base& __f, _Ch __fill, |
| const tm* __tmb, const _Ch* __pat, |
| const _Ch* __pat_end) const { |
| // locale __loc = __f.getloc(); |
| // const ctype<_Ch>& _Ct = use_facet<ctype<_Ch> >(__loc); |
| const ctype<_Ch>& _Ct = *__STATIC_CAST(const ctype<_Ch>*, __f._M_ctype_facet()); |
| while (__pat != __pat_end) { |
| char __c = _Ct.narrow(*__pat, 0); |
| if (__c == '%') { |
| char __mod = 0; |
| ++__pat; |
| __c = _Ct.narrow(*__pat++, 0); |
| if (__c == '#') { // MS extension |
| __mod = __c; |
| __c = _Ct.narrow(*__pat++, 0); |
| } |
| __s = do_put(__s, __f, __fill, __tmb, __c, __mod); |
| } |
| else |
| *__s++ = *__pat++; |
| } |
| return __s; |
| } |
| |
| template<class _Ch, class _OutputIter> |
| _OutputIter |
| time_put<_Ch,_OutputIter>::do_put(_OutputIter __s, ios_base& __f, _Ch /* __fill */, |
| const tm* __tmb, char __format, |
| char __modifier ) const { |
| char __buf[64]; |
| char * __iend = _STLP_PRIV __write_formatted_time(_STLP_ARRAY_AND_SIZE(__buf), |
| __format, __modifier, _M_timeinfo, __tmb); |
| // locale __loc = __f.getloc(); |
| return _STLP_PRIV __put_time(__buf, __iend, __s, __f, _Ch()); |
| } |
| |
| _STLP_END_NAMESPACE |
| |
| #endif /* _STLP_TIME_FACETS_C */ |
| |
| // Local Variables: |
| // mode:C++ |
| // End: |