dlls/msvcrt/time.c

   1 /*
   2  * msvcrt.dll date/time functions
   3  *
   4  * Copyright 1996,1998 Marcus Meissner
   5  * Copyright 1996 Jukka Iivonen
   6  * Copyright 1997,2000 Uwe Bonnes
   7  * Copyright 2000 Jon Griffiths
   8  * Copyright 2004 Hans Leidekker
   9  *
  10  * This library is free software; you can redistribute it and/or
  11  * modify it under the terms of the GNU Lesser General Public
  12  * License as published by the Free Software Foundation; either
  13  * version 2.1 of the License, or (at your option) any later version.
  14  *
  15  * This library is distributed in the hope that it will be useful,
  16  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  17  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  18  * Lesser General Public License for more details.
  19  *
  20  * You should have received a copy of the GNU Lesser General Public
  21  * License along with this library; if not, write to the Free Software
  22  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  23  */
  24
  25 #include "config.h"
  26
  27 #define _POSIX_PTHREAD_SEMANTICS /* switch to a 2 arg style asctime_r on Solaris */
  28 #include <time.h>
  29 #ifdef HAVE_SYS_TIMES_H
  30 # include <sys/times.h>
  31 #endif
  32 #include <limits.h>
  33
  34 #include "msvcrt.h"
  35 #include "winbase.h"
  36 #include "winnls.h"
  37 #include "wine/debug.h"
  38
  39 WINE_DEFAULT_DEBUG_CHANNEL(msvcrt);
  40
  41 static const int MonthLengths[2][12] =
  42 {
  43     { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 },
  44     { 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 }
  45 };
  46
  47 static inline int IsLeapYear(int Year)
  48 {
  49     return Year % 4 == 0 && (Year % 100 != 0 || Year % 400 == 0);
  50 }
  51
  52 static inline void msvcrt_tm_to_unix( struct tm *dest, const struct MSVCRT_tm *src )
  53 {
  54     memset( dest, 0, sizeof(*dest) );
  55     dest->tm_sec   = src->tm_sec;
  56     dest->tm_min   = src->tm_min;
  57     dest->tm_hour  = src->tm_hour;
  58     dest->tm_mday  = src->tm_mday;
  59     dest->tm_mon   = src->tm_mon;
  60     dest->tm_year  = src->tm_year;
  61     dest->tm_wday  = src->tm_wday;
  62     dest->tm_yday  = src->tm_yday;
  63     dest->tm_isdst = src->tm_isdst;
  64 }
  65
  66 static inline void unix_tm_to_msvcrt( struct MSVCRT_tm *dest, const struct tm *src )
  67 {
  68     memset( dest, 0, sizeof(*dest) );
  69     dest->tm_sec   = src->tm_sec;
  70     dest->tm_min   = src->tm_min;
  71     dest->tm_hour  = src->tm_hour;
  72     dest->tm_mday  = src->tm_mday;
  73     dest->tm_mon   = src->tm_mon;
  74     dest->tm_year  = src->tm_year;
  75     dest->tm_wday  = src->tm_wday;
  76     dest->tm_yday  = src->tm_yday;
  77     dest->tm_isdst = src->tm_isdst;
  78 }
  79
  80 #define SECSPERDAY        86400
  81 /* 1601 to 1970 is 369 years plus 89 leap days */
  82 #define SECS_1601_TO_1970  ((369 * 365 + 89) * (ULONGLONG)SECSPERDAY)
  83 #define TICKSPERSEC       10000000
  84 #define TICKSPERMSEC      10000
  85 #define TICKS_1601_TO_1970 (SECS_1601_TO_1970 * TICKSPERSEC)
  86
  87 /**********************************************************************
  88  *              mktime (MSVCRT.@)
  89  */
  90 MSVCRT_time_t CDECL MSVCRT_mktime(struct MSVCRT_tm *mstm)
  91 {
  92     time_t secs;
  93     struct tm tm;
  94
  95     msvcrt_tm_to_unix( &tm, mstm );
  96     secs = mktime( &tm );
  97     unix_tm_to_msvcrt( mstm, &tm );
  98
  99     return secs < 0 ? -1 : secs;
 100 }
 101
 102 /*********************************************************************
 103  *      localtime (MSVCRT.@)
 104  */
 105 struct MSVCRT_tm* CDECL MSVCRT_localtime(const MSVCRT_time_t* secs)
 106 {
 107     struct tm tm;
 108     thread_data_t *data;
 109     time_t seconds = *secs;
 110
 111     if (seconds < 0) return NULL;
 112
 113     if (!localtime_r( &seconds, &tm )) return NULL;
 114
 115     data = msvcrt_get_thread_data();
 116     unix_tm_to_msvcrt( &data->time_buffer, &tm );
 117
 118     return &data->time_buffer;
 119 }
 120
 121 /*********************************************************************
 122  *      gmtime (MSVCRT.@)
 123  */
 124 struct MSVCRT_tm* CDECL MSVCRT_gmtime(const MSVCRT_time_t* secs)
 125 {
 126   thread_data_t * const data = msvcrt_get_thread_data();
 127   int i;
 128   FILETIME ft;
 129   SYSTEMTIME st;
 130
 131   ULONGLONG time = *secs * (ULONGLONG)TICKSPERSEC + TICKS_1601_TO_1970;
 132
 133   ft.dwHighDateTime = (UINT)(time >> 32);
 134   ft.dwLowDateTime  = (UINT)time;
 135
 136   FileTimeToSystemTime(&ft, &st);
 137
 138   if (st.wYear < 1970) return NULL;
 139
 140   data->time_buffer.tm_sec  = st.wSecond;
 141   data->time_buffer.tm_min  = st.wMinute;
 142   data->time_buffer.tm_hour = st.wHour;
 143   data->time_buffer.tm_mday = st.wDay;
 144   data->time_buffer.tm_year = st.wYear - 1900;
 145   data->time_buffer.tm_mon  = st.wMonth - 1;
 146   data->time_buffer.tm_wday = st.wDayOfWeek;
 147   for (i = data->time_buffer.tm_yday = 0; i < st.wMonth - 1; i++) {
 148     data->time_buffer.tm_yday += MonthLengths[IsLeapYear(st.wYear)][i];
 149   }
 150
 151   data->time_buffer.tm_yday += st.wDay - 1;
 152   data->time_buffer.tm_isdst = 0;
 153
 154   return &data->time_buffer;
 155 }
 156
 157 /**********************************************************************
 158  *              _strdate (MSVCRT.@)
 159  */
 160 char* CDECL _strdate(char* date)
 161 {
 162   static const char format[] = "MM'/'dd'/'yy";
 163
 164   GetDateFormatA(LOCALE_NEUTRAL, 0, NULL, format, date, 9);
 165
 166   return date;
 167 }
 168
 169 /**********************************************************************
 170  *              _wstrdate (MSVCRT.@)
 171  */
 172 MSVCRT_wchar_t* CDECL _wstrdate(MSVCRT_wchar_t* date)
 173 {
 174   static const WCHAR format[] = { 'M','M','\'','/','\'','d','d','\'','/','\'','y','y',0 };
 175
 176   GetDateFormatW(LOCALE_NEUTRAL, 0, NULL, format, (LPWSTR)date, 9);
 177
 178   return date;
 179 }
 180
 181 /*********************************************************************
 182  *              _strtime (MSVCRT.@)
 183  */
 184 char* CDECL _strtime(char* time)
 185 {
 186   static const char format[] = "HH':'mm':'ss";
 187
 188   GetTimeFormatA(LOCALE_NEUTRAL, 0, NULL, format, time, 9);
 189
 190   return time;
 191 }
 192
 193 /*********************************************************************
 194  *              _wstrtime (MSVCRT.@)
 195  */
 196 MSVCRT_wchar_t* CDECL _wstrtime(MSVCRT_wchar_t* time)
 197 {
 198   static const WCHAR format[] = { 'H','H','\'',':','\'','m','m','\'',':','\'','s','s',0 };
 199
 200   GetTimeFormatW(LOCALE_NEUTRAL, 0, NULL, format, (LPWSTR)time, 9);
 201
 202   return time;
 203 }
 204
 205 /*********************************************************************
 206  *              clock (MSVCRT.@)
 207  */
 208 MSVCRT_clock_t CDECL MSVCRT_clock(void)
 209 {
 210   FILETIME ftc, fte, ftk, ftu;
 211   ULONGLONG utime, ktime;
 212
 213   MSVCRT_clock_t clock;
 214
 215   GetProcessTimes(GetCurrentProcess(), &ftc, &fte, &ftk, &ftu);
 216
 217   ktime = ((ULONGLONG)ftk.dwHighDateTime << 32) | ftk.dwLowDateTime;
 218   utime = ((ULONGLONG)ftu.dwHighDateTime << 32) | ftu.dwLowDateTime;
 219
 220   clock = (utime + ktime) / (TICKSPERSEC / MSVCRT_CLOCKS_PER_SEC);
 221
 222   return clock;
 223 }
 224
 225 /*********************************************************************
 226  *              difftime (MSVCRT.@)
 227  */
 228 double CDECL MSVCRT_difftime(MSVCRT_time_t time1, MSVCRT_time_t time2)
 229 {
 230   return (double)(time1 - time2);
 231 }
 232
 233 /*********************************************************************
 234  *              _ftime (MSVCRT.@)
 235  */
 236 void CDECL _ftime(struct MSVCRT__timeb *buf)
 237 {
 238   TIME_ZONE_INFORMATION tzinfo;
 239   FILETIME ft;
 240   ULONGLONG time;
 241
 242   DWORD tzid = GetTimeZoneInformation(&tzinfo);
 243   GetSystemTimeAsFileTime(&ft);
 244
 245   time = ((ULONGLONG)ft.dwHighDateTime << 32) | ft.dwLowDateTime;
 246
 247   buf->time = time / TICKSPERSEC - SECS_1601_TO_1970;
 248   buf->millitm = (time % TICKSPERSEC) / TICKSPERMSEC;
 249   buf->timezone = tzinfo.Bias +
 250       ( tzid == TIME_ZONE_ID_STANDARD ? tzinfo.StandardBias :
 251       ( tzid == TIME_ZONE_ID_DAYLIGHT ? tzinfo.DaylightBias : 0 ));
 252   buf->dstflag = (tzid == TIME_ZONE_ID_DAYLIGHT?1:0);
 253 }
 254
 255 /*********************************************************************
 256  *              time (MSVCRT.@)
 257  */
 258 MSVCRT_time_t CDECL MSVCRT_time(MSVCRT_time_t* buf)
 259 {
 260   MSVCRT_time_t curtime;
 261   struct MSVCRT__timeb tb;
 262
 263   _ftime(&tb);
 264
 265   curtime = tb.time;
 266   return buf ? *buf = curtime : curtime;
 267 }
 268
 269 /*********************************************************************
 270  *              _daylight (MSVCRT.@)
 271  */
 272 int MSVCRT___daylight = 0;
 273
 274 /*********************************************************************
 275  *              __p_daylight (MSVCRT.@)
 276  */
 277 int * CDECL MSVCRT___p__daylight(void)
 278 {
 279         return &MSVCRT___daylight;
 280 }
 281
 282 /*********************************************************************
 283  *              _dstbias (MSVCRT.@)
 284  */
 285 int MSVCRT__dstbias = 0;
 286
 287 /*********************************************************************
 288  *              __p_dstbias (MSVCRT.@)
 289  */
 290 int * CDECL __p__dstbias(void)
 291 {
 292     return &MSVCRT__dstbias;
 293 }
 294
 295 /*********************************************************************
 296  *              _timezone (MSVCRT.@)
 297  */
 298 long MSVCRT___timezone = 0;
 299
 300 /*********************************************************************
 301  *              __p_timezone (MSVCRT.@)
 302  */
 303 long * CDECL MSVCRT___p__timezone(void)
 304 {
 305         return &MSVCRT___timezone;
 306 }
 307
 308 /*********************************************************************
 309  *              _tzname (MSVCRT.@)
 310  * NOTES
 311  *  Some apps (notably Mozilla) insist on writing to these, so the buffer
 312  *  must be large enough.  The size is picked based on observation of
 313  *  Windows XP.
 314  */
 315 static char tzname_std[64] = "";
 316 static char tzname_dst[64] = "";
 317 char *MSVCRT__tzname[2] = { tzname_std, tzname_dst };
 318
 319 /*********************************************************************
 320  *              __p_tzname (MSVCRT.@)
 321  */
 322 char ** CDECL __p__tzname(void)
 323 {
 324         return MSVCRT__tzname;
 325 }
 326
 327 /*********************************************************************
 328  *              _tzset (MSVCRT.@)
 329  */
 330 void CDECL MSVCRT__tzset(void)
 331 {
 332     tzset();
 333 #if defined(HAVE_TIMEZONE) && defined(HAVE_DAYLIGHT)
 334     MSVCRT___daylight = daylight;
 335     MSVCRT___timezone = timezone;
 336 #else
 337     {
 338         static const time_t seconds_in_year = (365 * 24 + 6) * 3600;
 339         time_t t;
 340         struct tm *tmp;
 341         long zone_january, zone_july;
 342
 343         t = (time((time_t *)0) / seconds_in_year) * seconds_in_year;
 344         tmp = localtime(&t);
 345         zone_january = -tmp->tm_gmtoff;
 346         t += seconds_in_year / 2;
 347         tmp = localtime(&t);
 348         zone_july = -tmp->tm_gmtoff;
 349         MSVCRT___daylight = (zone_january != zone_july);
 350         MSVCRT___timezone = max(zone_january, zone_july);
 351     }
 352 #endif
 353     lstrcpynA(tzname_std, tzname[0], sizeof(tzname_std));
 354     tzname_std[sizeof(tzname_std) - 1] = '\0';
 355     lstrcpynA(tzname_dst, tzname[1], sizeof(tzname_dst));
 356     tzname_dst[sizeof(tzname_dst) - 1] = '\0';
 357 }
 358
 359 /*********************************************************************
 360  *              strftime (MSVCRT.@)
 361  */
 362 MSVCRT_size_t CDECL MSVCRT_strftime( char *str, MSVCRT_size_t max, const char *format,
 363                                      const struct MSVCRT_tm *mstm )
 364 {
 365     struct tm tm;
 366
 367     msvcrt_tm_to_unix( &tm, mstm );
 368     return strftime( str, max, format, &tm );
 369 }
 370
 371 /*********************************************************************
 372  *              wcsftime (MSVCRT.@)
 373  */
 374 MSVCRT_size_t CDECL MSVCRT_wcsftime( MSVCRT_wchar_t *str, MSVCRT_size_t max,
 375                                      const MSVCRT_wchar_t *format, const struct MSVCRT_tm *mstm )
 376 {
 377     char *s, *fmt;
 378     MSVCRT_size_t len;
 379
 380     TRACE("%p %d %s %p\n", str, max, debugstr_w(format), mstm );
 381
 382     len = WideCharToMultiByte( CP_UNIXCP, 0, format, -1, NULL, 0, NULL, NULL );
 383     if (!(fmt = MSVCRT_malloc( len ))) return 0;
 384     WideCharToMultiByte( CP_UNIXCP, 0, format, -1, fmt, len, NULL, NULL );
 385
 386     if ((s = MSVCRT_malloc( max*4 )))
 387     {
 388         struct tm tm;
 389         msvcrt_tm_to_unix( &tm, mstm );
 390         if (!strftime( s, max*4, fmt, &tm )) s[0] = 0;
 391         len = MultiByteToWideChar( CP_UNIXCP, 0, s, -1, str, max );
 392         if (len) len--;
 393         MSVCRT_free( s );
 394     }
 395     else len = 0;
 396
 397     MSVCRT_free( fmt );
 398     return len;
 399 }
 400
 401 /*********************************************************************
 402  *              asctime (MSVCRT.@)
 403  */
 404 char * CDECL MSVCRT_asctime(const struct MSVCRT_tm *mstm)
 405 {
 406     thread_data_t *data = msvcrt_get_thread_data();
 407     struct tm tm;
 408
 409     msvcrt_tm_to_unix( &tm, mstm );
 410
 411     if (!data->asctime_buffer)
 412         data->asctime_buffer = MSVCRT_malloc( 30 ); /* ought to be enough */
 413
 414     /* FIXME: may want to map from Unix codepage to CP_ACP */
 415 #ifdef HAVE_ASCTIME_R
 416     asctime_r( &tm, data->asctime_buffer );
 417 #else
 418     strcpy( data->asctime_buffer, asctime(&tm) );
 419 #endif
 420     return data->asctime_buffer;
 421 }
 422
 423 /*********************************************************************
 424  *              _wasctime (MSVCRT.@)
 425  */
 426 MSVCRT_wchar_t * CDECL MSVCRT__wasctime(const struct MSVCRT_tm *mstm)
 427 {
 428     thread_data_t *data = msvcrt_get_thread_data();
 429     struct tm tm;
 430     char buffer[30];
 431
 432     msvcrt_tm_to_unix( &tm, mstm );
 433
 434     if (!data->wasctime_buffer)
 435         data->wasctime_buffer = MSVCRT_malloc( 30*sizeof(MSVCRT_wchar_t) ); /* ought to be enough */
 436 #ifdef HAVE_ASCTIME_R
 437     asctime_r( &tm, buffer );
 438 #else
 439     strcpy( buffer, asctime(&tm) );
 440 #endif
 441     MultiByteToWideChar( CP_UNIXCP, 0, buffer, -1, data->wasctime_buffer, 30 );
 442     return data->wasctime_buffer;
 443 }
 444
 445 /*********************************************************************
 446  *              ctime (MSVCRT.@)
 447  */
 448 char * CDECL MSVCRT_ctime(const MSVCRT_time_t *time)
 449 {
 450     return MSVCRT_asctime( MSVCRT_localtime(time) );
 451 }
 452
 453 /*********************************************************************
 454  *              _wctime (MSVCRT.@)
 455  */
 456 MSVCRT_wchar_t * CDECL MSVCRT__wctime(const MSVCRT_time_t *time)
 457 {
 458     return MSVCRT__wasctime( MSVCRT_localtime(time) );
 459 }