sl@0: /*
sl@0:  * © Portions copyright (c) 2006-2007 Nokia Corporation.  All rights reserved.
sl@0:  *
sl@0:  * Copyright (c) 1999
sl@0:  * Silicon Graphics Computer Systems, Inc.
sl@0:  *
sl@0:  * Copyright (c) 1999 
sl@0:  * Boris Fomitchev
sl@0:  *
sl@0:  * This material is provided "as is", with absolutely no warranty expressed
sl@0:  * or implied. Any use is at your own risk.
sl@0:  *
sl@0:  * Permission to use or copy this software for any purpose is hereby granted 
sl@0:  * without fee, provided the above notices are retained on all copies.
sl@0:  * Permission to modify the code and to distribute modified code is granted,
sl@0:  * provided the above notices are retained, and a notice that the code was
sl@0:  * modified is included with the above copyright notice.
sl@0:  *
sl@0:  */ 
sl@0: 
sl@0: 
sl@0: #include "stlport_prefix.h"
sl@0: #include <stl/_time_facets.h>
sl@0: #include <stl/_istream.h>
sl@0: #include "c_locale.h"
sl@0: 
sl@0: #if defined(__LIBSTD_CPP_SYMBIAN32_WSD__) || defined(_STLP_LIBSTD_CPP_NO_STATIC_VAR_)
sl@0: #include "libstdcppwsd.h"
sl@0: # endif
sl@0: 
sl@0: _STLP_BEGIN_NAMESPACE
sl@0: 
sl@0: /*char* _STLP_CALL
sl@0: __write_integer(char* buf, ios_base::fmtflags flags, long x);*/
sl@0: 
sl@0: // The function copy_cstring is used to initialize a string
sl@0: // with a C-style string.  Used to initialize the month and weekday
sl@0: // tables in time_get and time_put.  Called only by _Init_timeinfo
sl@0: // so its name does not require leading underscores.
sl@0: 
sl@0: static inline void copy_cstring(const char * s, string& v) {
sl@0:   copy(s, s + strlen(s), back_insert_iterator<string >(v));
sl@0: }
sl@0: 
sl@0: // default "C" values for month and day names
sl@0: 
sl@0:   const char default_dayname[][14] = {
sl@0:     "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat",
sl@0:     "Sunday", "Monday", "Tuesday", "Wednesday", "Thursday",
sl@0:     "Friday", "Saturday"};
sl@0: 
sl@0:   const char default_monthname[][24] = {
sl@0:     "Jan", "Feb", "Mar", "Apr", "May", "Jun",
sl@0:     "Jul", "Aug", "Sep", "Oct", "Nov", "Dec",
sl@0:     "January", "February", "March", "April", "May", "June",
sl@0:     "July", "August", "September", "October", "November", "December"};
sl@0: 
sl@0: // _Init_time_info: initialize table with
sl@0: // "C" values (note these are not defined in the C standard, so this
sl@0: // is somewhat arbitrary).
sl@0: 
sl@0: _STLP_EXP_DECLSPEC void _STLP_CALL _Init_timeinfo(_Time_Info& table) {
sl@0:   int i;
sl@0:   for (i = 0; i < 14; ++i)
sl@0:     copy_cstring(default_dayname[i], table._M_dayname[i]);
sl@0:   for (i = 0; i < 24; ++i)
sl@0:     copy_cstring(default_monthname[i], table._M_monthname[i]);
sl@0:   copy_cstring("AM", table._M_am_pm[0]);
sl@0:   copy_cstring("PM", table._M_am_pm[1]);
sl@0:   copy_cstring("%H:%M:%S", table._M_time_format);
sl@0: #ifdef __SYMBIAN32__
sl@0: 	copy_cstring("%m/%d/%Y",  table._M_date_format); //linux follows the same default. Y = year in 4 digit
sl@0: #else  
sl@0:   copy_cstring("%m/%d/%y",  table._M_date_format);
sl@0: #endif  
sl@0:   copy_cstring("%a %b %e %H:%M:%S %Y", table._M_date_time_format);
sl@0: }
sl@0: 
sl@0: _STLP_EXP_DECLSPEC void _STLP_CALL _Init_timeinfo(_Time_Info& table, _Locale_time * time) {
sl@0:   int i;
sl@0:   for (i = 0; i < 7; ++i)
sl@0:     copy_cstring(_Locale_abbrev_dayofweek(time, i),
sl@0: 		 table._M_dayname[i]);
sl@0:   for (i = 0; i < 7; ++i)
sl@0:     copy_cstring(_Locale_full_dayofweek(time, i),
sl@0: 		 table._M_dayname[i+7]); 
sl@0:   for (i = 0; i < 12; ++i)
sl@0:     copy_cstring(_Locale_abbrev_monthname(time, i),
sl@0: 		 table._M_monthname[i]);
sl@0:   for (i = 0; i < 12; ++i)
sl@0:     copy_cstring(_Locale_full_monthname(time, i),
sl@0: 		 table._M_monthname[i+12]);
sl@0:   copy_cstring(_Locale_am_str(time),
sl@0: 		 table._M_am_pm[0]);
sl@0:   copy_cstring(_Locale_pm_str(time),
sl@0: 	       table._M_am_pm[1]);
sl@0:   copy_cstring(_Locale_t_fmt(time), table._M_time_format);
sl@0:   copy_cstring(_Locale_d_fmt(time), table._M_date_format);
sl@0:   copy_cstring(_Locale_d_t_fmt(time), table._M_date_time_format);
sl@0:   copy_cstring(_Locale_long_d_fmt(time), table._M_long_date_format);
sl@0:   copy_cstring(_Locale_long_d_t_fmt(time), table._M_long_date_time_format);
sl@0: }
sl@0: 
sl@0: inline char* __subformat(string format, char*& buf, 
sl@0: 			 const _Time_Info&  table, const tm* t) {
sl@0:   const char * cp = format.data();
sl@0:   const char * cp_end = cp + format.size();
sl@0:   while (cp != cp_end) {
sl@0:     if (*cp == '%') {
sl@0:   	  char mod = 0;
sl@0:       ++cp;
sl@0:       if(*cp == '#') {
sl@0:         mod = *cp; ++cp;
sl@0:       }
sl@0:       buf = __write_formatted_time(buf, *cp++, mod, table, t);
sl@0:     } else
sl@0:       *buf++ = *cp++;
sl@0:   }
sl@0:   return buf;
sl@0: }
sl@0: 
sl@0: /* The number of days from the first day of the first ISO week of this
sl@0:    year to the year day YDAY with week day WDAY.  ISO weeks start on
sl@0:    Monday; the first ISO week has the year's first Thursday.  YDAY may
sl@0:    be as small as YDAY_MINIMUM.  */
sl@0: #define __ISO_WEEK_START_WDAY 1 /* Monday */
sl@0: #define __ISO_WEEK1_WDAY 4 /* Thursday */
sl@0: #define __YDAY_MINIMUM (-366)
sl@0: #define __TM_YEAR_BASE 1900
sl@0: #if defined(__GNUC__)
sl@0: static int
sl@0: __iso_week_days (int yday, int wday)
sl@0: {
sl@0:   /* Add enough to the first operand of % to make it nonnegative.  */
sl@0:   int big_enough_multiple_of_7 = (-__YDAY_MINIMUM / 7 + 2) * 7;
sl@0:   return (yday
sl@0: 	  - (yday - wday + __ISO_WEEK1_WDAY + big_enough_multiple_of_7) % 7
sl@0: 	  + __ISO_WEEK1_WDAY - __ISO_WEEK_START_WDAY);
sl@0: }
sl@0: #endif
sl@0: 
sl@0: #define	__is_leap(year)	\
sl@0:   ((year) % 4 == 0 && ((year) % 100 != 0 || (year) % 400 == 0))
sl@0: 
sl@0: #define __hour12(hour) \
sl@0:   (((hour) % 12 == 0) ? (12) : (hour) % 12)
sl@0: 
sl@0: _STLP_EXP_DECLSPEC char * __write_formatted_time(char* buf, char format, char modifier,
sl@0: 			      const _Time_Info& table, const tm* t) {
sl@0:   switch(format) {
sl@0:     case 'a':
sl@0:       return copy(table._M_dayname[t->tm_wday].begin(),
sl@0: 	          table._M_dayname[t->tm_wday].end(),
sl@0: 	          buf);
sl@0: 
sl@0:     case 'A':
sl@0:       return copy(table._M_dayname[t->tm_wday+7].begin(),
sl@0: 	          table._M_dayname[t->tm_wday+7].end(),
sl@0: 	          buf);
sl@0: 
sl@0:     case 'b':
sl@0:       return copy(table._M_monthname[t->tm_mon].begin(),
sl@0: 	          table._M_monthname[t->tm_mon].end(),
sl@0: 	          buf);
sl@0: 
sl@0:     case 'B':
sl@0:       return copy(table._M_monthname[t->tm_mon+12].begin(),
sl@0: 	     table._M_monthname[t->tm_mon+12].end(),
sl@0: 	     buf);
sl@0: 
sl@0:     case 'c': {
sl@0:       const char * cp = (modifier != '#') ? table._M_date_time_format.data():\
sl@0:       									   table._M_long_date_time_format.data();
sl@0:       const char* cp_end = (modifier != '#') ? cp + table._M_date_time_format.size():\
sl@0:       										  cp + table._M_long_date_time_format.size();
sl@0:       char mod = 0;
sl@0:       while (cp != cp_end) {
sl@0: 	if (*cp == '%') {
sl@0: 	  ++cp; if(*cp == '#') mod = *cp++; else mod = 0;
sl@0: 	  buf = __write_formatted_time(buf, *cp++, mod, table, t);
sl@0: 	}
sl@0: 	else
sl@0: 	  *buf++ = *cp++;
sl@0:       }
sl@0:       return buf;
sl@0:     }
sl@0: 
sl@0:     case 'd': 
sl@0:       sprintf(buf, (modifier != '#')?"%.2ld":"%ld", (long)t->tm_mday);
sl@0:       return ((long)t->tm_mday < 10L && modifier == '#')?buf+1:buf + 2;
sl@0: 
sl@0:     case 'e':
sl@0:       sprintf(buf, "%2ld", (long)t->tm_mday);
sl@0:       return buf + 2;
sl@0: 
sl@0:     case 'H':
sl@0:       sprintf(buf, (modifier != '#')?"%.2ld":"%ld", (long)t->tm_hour);
sl@0:       return ((long)t->tm_hour < 10L && modifier == '#')?buf+1:buf + 2;
sl@0: 
sl@0:     case 'I':
sl@0:       sprintf(buf, (modifier != '#')?"%.2ld":"%ld", (long)__hour12(t->tm_hour));
sl@0:       return ((long)__hour12(t->tm_hour) < 10L && modifier == '#')?buf+1:buf + 2;
sl@0: 
sl@0:     case 'j':
sl@0:       return __write_integer(buf, 0, (long)((long)t->tm_yday + 1));
sl@0: 
sl@0:     case 'm':
sl@0:       sprintf(buf, (modifier != '#')?"%.2ld":"%ld", (long)t->tm_mon + 1);
sl@0:       return ((long)(t->tm_mon + 1) < 10L && modifier == '#')?buf+1:buf + 2;
sl@0: 
sl@0:     case 'M':
sl@0:       sprintf(buf, (modifier != '#')?"%.2ld":"%ld", (long)t->tm_min);
sl@0:       return ((long)t->tm_min < 10L && modifier == '#')?buf+1:buf + 2;
sl@0: 
sl@0:     case 'p':
sl@0:       return copy(table._M_am_pm[t->tm_hour/12].begin(),
sl@0: 	          table._M_am_pm[t->tm_hour/12].end(),
sl@0: 	   	  buf);
sl@0: 
sl@0:     case 'S': // pad with zeros
sl@0:        sprintf(buf, (modifier != '#')?"%.2ld":"%ld", (long)t->tm_sec);
sl@0:        return ((long)t->tm_sec < 10L && modifier == '#')?buf+1:buf + 2;
sl@0: 
sl@0:     case 'U':
sl@0:       return __write_integer(buf, 0, 
sl@0: 			    long((t->tm_yday - t->tm_wday + 7) / 7));
sl@0:       //      break;
sl@0: 
sl@0:     case 'w':
sl@0:       return __write_integer(buf, 0, (long)t->tm_wday);
sl@0:       //      break;
sl@0: 
sl@0:     case 'W':
sl@0:       return __write_integer(buf, 0,
sl@0: 		             (long)(t->tm_wday == 0       ?
sl@0: 			      (t->tm_yday + 1) / 7 :
sl@0: 			      (t->tm_yday + 8 - t->tm_wday) / 7));
sl@0: 
sl@0:     case'x': {
sl@0:       const char * cp = (modifier != '#') ? table._M_date_format.data():\
sl@0:       									   table._M_long_date_format.data();
sl@0:       const char* cp_end = (modifier != '#') ? cp + table._M_date_format.size():\
sl@0:       										  cp + table._M_long_date_format.size();
sl@0:       char mod = 0;
sl@0:       while (cp != cp_end) {
sl@0: 	if (*cp == '%') {
sl@0: 	  ++cp; if(*cp == '#') mod = *cp++; else mod = 0;
sl@0: 	  buf = __write_formatted_time(buf, *cp++, mod, table, t);
sl@0: 	}
sl@0: 	else
sl@0: 	  *buf++ = *cp++;
sl@0:       }
sl@0:       return buf;
sl@0:     }
sl@0: 
sl@0:     case 'X': {
sl@0:       const char * cp = table._M_time_format.data();
sl@0:       const char* cp_end = cp + table._M_time_format.size();
sl@0:       char mod = 0;
sl@0:       while (cp != cp_end) {
sl@0: 	if (*cp == '%') {
sl@0: 	  ++cp; if(*cp == '#') mod = *cp++; else mod = 0;
sl@0: 	  buf = __write_formatted_time(buf, *cp++, mod, table, t);
sl@0: 	}
sl@0: 	else
sl@0: 	  *buf++ = *cp++;
sl@0:       }
sl@0:       return buf;
sl@0:     }
sl@0:     case 'y':
sl@0:       return __write_integer(buf, 0, (long)((long)(t->tm_year + 1900) % 100));
sl@0: 
sl@0:     case 'Y':
sl@0:       return __write_integer(buf, 0, (long)((long)t->tm_year + 1900));
sl@0: 
sl@0:     case '%':
sl@0:       *buf++ = '%';
sl@0:       return buf;
sl@0: 
sl@0: #ifdef __GNUC__
sl@0: 
sl@0:       // fbp : at least on SUN 
sl@0: # if defined ( _STLP_UNIX ) && ! defined (__linux__)
sl@0: #  define __USE_BSD 1
sl@0: # endif
sl@0:  
sl@0:    /*********************************************
sl@0:     *     JGS, handle various extensions        *
sl@0:     *********************************************/
sl@0: 
sl@0:     case 'h': /* POSIX.2 extension */
sl@0:       // same as 'b', abbrev month name
sl@0:       return copy(table._M_monthname[t->tm_mon].begin(),
sl@0: 	          table._M_monthname[t->tm_mon].end(),
sl@0: 	          buf);
sl@0: 
sl@0:     case 'C': /* POSIX.2 extension */
sl@0:       // same as 'd', the day 
sl@0:       sprintf(buf, "%2ld", (long)t->tm_mday);
sl@0:       return buf + 2;
sl@0: 
sl@0:     case 'D': /* POSIX.2 extension */
sl@0:       // same as 'x'
sl@0:       return __subformat(table._M_date_format, buf, table, t);
sl@0: 
sl@0:     case 'k': /* GNU extension */
sl@0:       sprintf(buf, "%2ld", (long)t->tm_hour);
sl@0:       return buf + 2;
sl@0: 
sl@0:     case 'l': /* GNU extension */
sl@0:       sprintf(buf, "%2ld", (long)t->tm_hour % 12);
sl@0:       return buf + 2;
sl@0: 
sl@0:     case 'n': /* POSIX.2 extension */
sl@0:       *buf++ = '\n';
sl@0:       return buf;
sl@0: 
sl@0:     case 'R': /* GNU extension */
sl@0:       return __subformat("%H:%M", buf, table, t);
sl@0: 
sl@0:     case 'r': /* POSIX.2 extension */
sl@0:       return __subformat("%I:%M:%S %p", buf, table, t);
sl@0: 
sl@0:     case 'T': /* POSIX.2 extension.  */
sl@0:       return __subformat("%H:%M:%S", buf, table, t);
sl@0: 
sl@0:     case 't': /* POSIX.2 extension.  */
sl@0:       *buf++ = '\t';
sl@0:       return buf;
sl@0: 
sl@0:     case 'u': /* POSIX.2 extension.  */
sl@0:       return __write_integer(buf, 0, long((t->tm_wday - 1 + 7)) % 7 + 1);
sl@0: 
sl@0:     case 's': {
sl@0:       time_t __t;
sl@0:       __t = mktime ((tm*)t);
sl@0:       return __write_integer(buf, 0, (long)__t );
sl@0:     }
sl@0:     case 'g': /* GNU extension */
sl@0:     case 'G': {
sl@0:       int year = t->tm_year + __TM_YEAR_BASE;
sl@0:       int days = __iso_week_days (t->tm_yday, t->tm_wday);
sl@0:       if (days < 0) {
sl@0: 	  /* This ISO week belongs to the previous year.  */
sl@0: 	  year--;
sl@0: 	  days = __iso_week_days (t->tm_yday + (365 + __is_leap (year)),
sl@0: 				t->tm_wday);
sl@0:       } else {
sl@0: 	int d = __iso_week_days (t->tm_yday - (365 + __is_leap (year)),
sl@0: 			       t->tm_wday);
sl@0: 	if (0 <= d) {
sl@0: 	  /* This ISO week belongs to the next year.  */
sl@0: 	  year++;
sl@0: 	  days = d;
sl@0: 	}
sl@0:       }
sl@0:       switch (format) {
sl@0:       case 'g':
sl@0: 	return __write_integer(buf, 0, (long)(year % 100 + 100) % 100);
sl@0:       case 'G':
sl@0: 	return __write_integer(buf, 0, (long)year);
sl@0:       default:
sl@0: 	return __write_integer(buf, 0, (long)days / 7 + 1);
sl@0:       }
sl@0:     }
sl@0: 
sl@0: # if defined ( _STLP_USE_GLIBC  ) && ! defined (__CYGWIN__)
sl@0:     case 'z':		/* GNU extension.  */
sl@0:       if (t->tm_isdst < 0)
sl@0: 	break;
sl@0:       {
sl@0: 	int diff;
sl@0: #if defined(__USE_BSD) || defined(__BEOS__)
sl@0: 	diff = t->tm_gmtoff;
sl@0: #else
sl@0: 	diff = t->__tm_gmtoff;
sl@0: #endif	
sl@0: 	if (diff < 0) {
sl@0: 	  *buf++ = '-';
sl@0: 	  diff = -diff;
sl@0: 	} else
sl@0: 	  *buf++ = '+';
sl@0: 	
sl@0: 	diff /= 60;
sl@0: 	sprintf(buf, "%.4d", (diff / 60) * 100 + diff % 60);
sl@0: 	return buf + 4;
sl@0:       }
sl@0: # endif /* __GLIBC__ */
sl@0: #endif /* __GNUC__ */
sl@0: 
sl@0:     default:
sl@0:       //      return buf;
sl@0:       break;
sl@0:   }
sl@0:   return buf;
sl@0: }
sl@0: 
sl@0: _STLP_EXP_DECLSPEC  time_base::dateorder _STLP_CALL
sl@0: __get_date_order(_Locale_time* time)
sl@0: {
sl@0:   const char * fmt = _Locale_d_fmt(time);
sl@0:   char first, second, third;
sl@0: 
sl@0:   while (*fmt != 0 && *fmt != '%') ++fmt;
sl@0:   if (*fmt == 0)
sl@0:     return time_base::no_order;
sl@0:   first = *++fmt;
sl@0:   while (*fmt != 0 && *fmt != '%') ++fmt;
sl@0:   if (*fmt == 0)
sl@0:     return time_base::no_order;
sl@0:   second = *++fmt;
sl@0:   while (*fmt != 0 && *fmt != '%') ++fmt;
sl@0:   if (*fmt == 0)
sl@0:     return time_base::no_order;
sl@0:   third = *++fmt;
sl@0: 
sl@0:   switch (first) {
sl@0:     case 'd':
sl@0:       return (second == 'm' && third == 'y') ? time_base::dmy
sl@0: 					     : time_base::no_order;
sl@0:     case 'm':
sl@0:       return (second == 'd' && third == 'y') ? time_base::mdy
sl@0: 					     : time_base::no_order;
sl@0:     case 'y':
sl@0:       switch (second) {
sl@0: 	case 'd':
sl@0: 	  return third == 'm' ? time_base::ydm : time_base::no_order;
sl@0:         case 'm':
sl@0: 	  return third == 'd' ? time_base::ymd : time_base::no_order;
sl@0: 	default:
sl@0: 	  return time_base::no_order;
sl@0:       }
sl@0:     default:
sl@0:       return time_base::no_order;
sl@0:   }
sl@0: }
sl@0: 
sl@0: #if !defined(_STLP_NO_FORCE_INSTANTIATE)
sl@0: template class time_get<char, istreambuf_iterator<char, char_traits<char> > >;
sl@0: // template class time_get<char, const char*>;
sl@0: template class time_put<char, ostreambuf_iterator<char, char_traits<char> > >;
sl@0: // template class time_put<char, char*>;
sl@0: 
sl@0: #ifndef _STLP_NO_WCHAR_T
sl@0: template class time_get<wchar_t, istreambuf_iterator<wchar_t, char_traits<wchar_t> > >;
sl@0: // template class time_get<wchar_t, const wchar_t*>;
sl@0: template class time_put<wchar_t, ostreambuf_iterator<wchar_t, char_traits<wchar_t> > >;
sl@0: // template class time_put<wchar_t, wchar_t*>;
sl@0: #endif /* INSTANTIATE_WIDE_STREAMS */
sl@0: 
sl@0: #endif
sl@0: 
sl@0: _STLP_END_NAMESPACE