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