dlls/ntdll/time.c

   1 /*
   2  * Nt time functions.
   3  *
   4  * RtlTimeToTimeFields, RtlTimeFieldsToTime and defines are taken from ReactOS and
   5  * adapted to wine with special permissions of the author. This code is
   6  * Copyright 2002 Rex Jolliff (rex@lvcablemodem.com)
   7  *
   8  * Copyright 1999 Juergen Schmied
   9  * Copyright 2007 Dmitry Timoshkov
  10  *
  11  * This library is free software; you can redistribute it and/or
  12  * modify it under the terms of the GNU Lesser General Public
  13  * License as published by the Free Software Foundation; either
  14  * version 2.1 of the License, or (at your option) any later version.
  15  *
  16  * This library is distributed in the hope that it will be useful,
  17  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  18  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  19  * Lesser General Public License for more details.
  20  *
  21  * You should have received a copy of the GNU Lesser General Public
  22  * License along with this library; if not, write to the Free Software
  23  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  24  */
  25
  26 #include "config.h"
  27 #include "wine/port.h"
  28
  29 #include <stdarg.h>
  30 #include <stdlib.h>
  31 #include <errno.h>
  32 #include <string.h>
  33 #include <limits.h>
  34 #include <time.h>
  35 #ifdef HAVE_SYS_TIME_H
  36 # include <sys/time.h>
  37 #endif
  38 #ifdef HAVE_UNISTD_H
  39 # include <unistd.h>
  40 #endif
  41 #ifdef __APPLE__
  42 # include <mach/mach_time.h>
  43 #endif
  44
  45 #include "ntstatus.h"
  46 #define WIN32_NO_STATUS
  47 #include "windef.h"
  48 #include "winternl.h"
  49 #include "wine/exception.h"
  50 #include "wine/unicode.h"
  51 #include "wine/debug.h"
  52 #include "ntdll_misc.h"
  53
  54 WINE_DEFAULT_DEBUG_CHANNEL(ntdll);
  55
  56 static int init_tz_info(RTL_DYNAMIC_TIME_ZONE_INFORMATION *tzi);
  57
  58 static RTL_CRITICAL_SECTION TIME_tz_section;
  59 static RTL_CRITICAL_SECTION_DEBUG critsect_debug =
  60 {
  61     0, 0, &TIME_tz_section,
  62     { &critsect_debug.ProcessLocksList, &critsect_debug.ProcessLocksList },
  63       0, 0, { (DWORD_PTR)(__FILE__ ": TIME_tz_section") }
  64 };
  65 static RTL_CRITICAL_SECTION TIME_tz_section = { &critsect_debug, -1, 0, 0, 0, 0 };
  66
  67 #define TICKSPERSEC        10000000
  68 #define TICKSPERMSEC       10000
  69 #define SECSPERDAY         86400
  70 #define SECSPERHOUR        3600
  71 #define SECSPERMIN         60
  72 #define MINSPERHOUR        60
  73 #define HOURSPERDAY        24
  74 #define EPOCHWEEKDAY       1  /* Jan 1, 1601 was Monday */
  75 #define DAYSPERWEEK        7
  76 #define MONSPERYEAR        12
  77 #define DAYSPERQUADRICENTENNIUM (365 * 400 + 97)
  78 #define DAYSPERNORMALQUADRENNIUM (365 * 4 + 1)
  79
  80 /* 1601 to 1970 is 369 years plus 89 leap days */
  81 #define SECS_1601_TO_1970  ((369 * 365 + 89) * (ULONGLONG)SECSPERDAY)
  82 #define TICKS_1601_TO_1970 (SECS_1601_TO_1970 * TICKSPERSEC)
  83 /* 1601 to 1980 is 379 years plus 91 leap days */
  84 #define SECS_1601_TO_1980  ((379 * 365 + 91) * (ULONGLONG)SECSPERDAY)
  85 #define TICKS_1601_TO_1980 (SECS_1601_TO_1980 * TICKSPERSEC)
  86
  87
  88 static const int MonthLengths[2][MONSPERYEAR] =
  89 {
  90         { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 },
  91         { 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 }
  92 };
  93
  94 static inline BOOL IsLeapYear(int Year)
  95 {
  96     return Year % 4 == 0 && (Year % 100 != 0 || Year % 400 == 0);
  97 }
  98
  99 /* return a monotonic time counter, in Win32 ticks */
 100 static ULONGLONG monotonic_counter(void)
 101 {
 102     struct timeval now;
 103
 104 #ifdef __APPLE__
 105     static mach_timebase_info_data_t timebase;
 106
 107     if (!timebase.denom) mach_timebase_info( &timebase );
 108     return mach_absolute_time() * timebase.numer / timebase.denom / 100;
 109 #elif defined(HAVE_CLOCK_GETTIME)
 110     struct timespec ts;
 111 #ifdef CLOCK_MONOTONIC_RAW
 112     if (!clock_gettime( CLOCK_MONOTONIC_RAW, &ts ))
 113         return ts.tv_sec * (ULONGLONG)TICKSPERSEC + ts.tv_nsec / 100;
 114 #endif
 115     if (!clock_gettime( CLOCK_MONOTONIC, &ts ))
 116         return ts.tv_sec * (ULONGLONG)TICKSPERSEC + ts.tv_nsec / 100;
 117 #endif
 118
 119     gettimeofday( &now, 0 );
 120     return now.tv_sec * (ULONGLONG)TICKSPERSEC + now.tv_usec * 10 + TICKS_1601_TO_1970 - server_start_time;
 121 }
 122
 123 /******************************************************************************
 124  *       RtlTimeToTimeFields [NTDLL.@]
 125  *
 126  * Convert a time into a TIME_FIELDS structure.
 127  *
 128  * PARAMS
 129  *   liTime     [I] Time to convert.
 130  *   TimeFields [O] Destination for the converted time.
 131  *
 132  * RETURNS
 133  *   Nothing.
 134  */
 135 VOID WINAPI RtlTimeToTimeFields(
 136         const LARGE_INTEGER *liTime,
 137         PTIME_FIELDS TimeFields)
 138 {
 139         int SecondsInDay;
 140         long int cleaps, years, yearday, months;
 141         long int Days;
 142         LONGLONG Time;
 143
 144         /* Extract millisecond from time and convert time into seconds */
 145         TimeFields->Milliseconds =
 146             (CSHORT) (( liTime->QuadPart % TICKSPERSEC) / TICKSPERMSEC);
 147         Time = liTime->QuadPart / TICKSPERSEC;
 148
 149         /* The native version of RtlTimeToTimeFields does not take leap seconds
 150          * into account */
 151
 152         /* Split the time into days and seconds within the day */
 153         Days = Time / SECSPERDAY;
 154         SecondsInDay = Time % SECSPERDAY;
 155
 156         /* compute time of day */
 157         TimeFields->Hour = (CSHORT) (SecondsInDay / SECSPERHOUR);
 158         SecondsInDay = SecondsInDay % SECSPERHOUR;
 159         TimeFields->Minute = (CSHORT) (SecondsInDay / SECSPERMIN);
 160         TimeFields->Second = (CSHORT) (SecondsInDay % SECSPERMIN);
 161
 162         /* compute day of week */
 163         TimeFields->Weekday = (CSHORT) ((EPOCHWEEKDAY + Days) % DAYSPERWEEK);
 164
 165         /* compute year, month and day of month. */
 166         cleaps=( 3 * ((4 * Days + 1227) / DAYSPERQUADRICENTENNIUM) + 3 ) / 4;
 167         Days += 28188 + cleaps;
 168         years = (20 * Days - 2442) / (5 * DAYSPERNORMALQUADRENNIUM);
 169         yearday = Days - (years * DAYSPERNORMALQUADRENNIUM)/4;
 170         months = (64 * yearday) / 1959;
 171         /* the result is based on a year starting on March.
 172          * To convert take 12 from Januari and Februari and
 173          * increase the year by one. */
 174         if( months < 14 ) {
 175             TimeFields->Month = months - 1;
 176             TimeFields->Year = years + 1524;
 177         } else {
 178             TimeFields->Month = months - 13;
 179             TimeFields->Year = years + 1525;
 180         }
 181         /* calculation of day of month is based on the wonderful
 182          * sequence of INT( n * 30.6): it reproduces the
 183          * 31-30-31-30-31-31 month lengths exactly for small n's */
 184         TimeFields->Day = yearday - (1959 * months) / 64 ;
 185         return;
 186 }
 187
 188 /******************************************************************************
 189  *       RtlTimeFieldsToTime [NTDLL.@]
 190  *
 191  * Convert a TIME_FIELDS structure into a time.
 192  *
 193  * PARAMS
 194  *   ftTimeFields [I] TIME_FIELDS structure to convert.
 195  *   Time         [O] Destination for the converted time.
 196  *
 197  * RETURNS
 198  *   Success: TRUE.
 199  *   Failure: FALSE.
 200  */
 201 BOOLEAN WINAPI RtlTimeFieldsToTime(
 202         PTIME_FIELDS tfTimeFields,
 203         PLARGE_INTEGER Time)
 204 {
 205         int month, year, cleaps, day;
 206
 207         /* FIXME: normalize the TIME_FIELDS structure here */
 208         /* No, native just returns 0 (error) if the fields are not */
 209         if( tfTimeFields->Milliseconds< 0 || tfTimeFields->Milliseconds > 999 ||
 210                 tfTimeFields->Second < 0 || tfTimeFields->Second > 59 ||
 211                 tfTimeFields->Minute < 0 || tfTimeFields->Minute > 59 ||
 212                 tfTimeFields->Hour < 0 || tfTimeFields->Hour > 23 ||
 213                 tfTimeFields->Month < 1 || tfTimeFields->Month > 12 ||
 214                 tfTimeFields->Day < 1 ||
 215                 tfTimeFields->Day > MonthLengths
 216                     [ tfTimeFields->Month ==2 || IsLeapYear(tfTimeFields->Year)]
 217                     [ tfTimeFields->Month - 1] ||
 218                 tfTimeFields->Year < 1601 )
 219             return FALSE;
 220
 221         /* now calculate a day count from the date
 222          * First start counting years from March. This way the leap days
 223          * are added at the end of the year, not somewhere in the middle.
 224          * Formula's become so much less complicate that way.
 225          * To convert: add 12 to the month numbers of Jan and Feb, and
 226          * take 1 from the year */
 227         if(tfTimeFields->Month < 3) {
 228             month = tfTimeFields->Month + 13;
 229             year = tfTimeFields->Year - 1;
 230         } else {
 231             month = tfTimeFields->Month + 1;
 232             year = tfTimeFields->Year;
 233         }
 234         cleaps = (3 * (year / 100) + 3) / 4;   /* nr of "century leap years"*/
 235         day =  (36525 * year) / 100 - cleaps + /* year * dayperyr, corrected */
 236                  (1959 * month) / 64 +         /* months * daypermonth */
 237                  tfTimeFields->Day -          /* day of the month */
 238                  584817 ;                      /* zero that on 1601-01-01 */
 239         /* done */
 240
 241         Time->QuadPart = (((((LONGLONG) day * HOURSPERDAY +
 242             tfTimeFields->Hour) * MINSPERHOUR +
 243             tfTimeFields->Minute) * SECSPERMIN +
 244             tfTimeFields->Second ) * 1000 +
 245             tfTimeFields->Milliseconds ) * TICKSPERMSEC;
 246
 247         return TRUE;
 248 }
 249
 250 /***********************************************************************
 251  *       TIME_GetBias [internal]
 252  *
 253  * Helper function calculates delta local time from UTC.
 254  *
 255  * PARAMS
 256  *   utc [I] The current utc time.
 257  *   pdaylight [I] Local daylight.
 258  *
 259  * RETURNS
 260  *   The bias for the current timezone.
 261  */
 262 static LONG TIME_GetBias(void)
 263 {
 264     static time_t last_utc;
 265     static LONG last_bias;
 266     LONG ret;
 267     time_t utc;
 268
 269     utc = time( NULL );
 270
 271     RtlEnterCriticalSection( &TIME_tz_section );
 272     if (utc != last_utc)
 273     {
 274         RTL_DYNAMIC_TIME_ZONE_INFORMATION tzi;
 275         int is_dst = init_tz_info( &tzi );
 276
 277         last_utc = utc;
 278         last_bias = tzi.Bias;
 279         last_bias += is_dst ? tzi.DaylightBias : tzi.StandardBias;
 280         last_bias *= SECSPERMIN;
 281     }
 282
 283     ret = last_bias;
 284
 285     RtlLeaveCriticalSection( &TIME_tz_section );
 286     return ret;
 287 }
 288
 289 /******************************************************************************
 290  *        RtlLocalTimeToSystemTime [NTDLL.@]
 291  *
 292  * Convert a local time into system time.
 293  *
 294  * PARAMS
 295  *   LocalTime  [I] Local time to convert.
 296  *   SystemTime [O] Destination for the converted time.
 297  *
 298  * RETURNS
 299  *   Success: STATUS_SUCCESS.
 300  *   Failure: An NTSTATUS error code indicating the problem.
 301  */
 302 NTSTATUS WINAPI RtlLocalTimeToSystemTime( const LARGE_INTEGER *LocalTime,
 303                                           PLARGE_INTEGER SystemTime)
 304 {
 305     LONG bias;
 306
 307     TRACE("(%p, %p)\n", LocalTime, SystemTime);
 308
 309     bias = TIME_GetBias();
 310     SystemTime->QuadPart = LocalTime->QuadPart + bias * (LONGLONG)TICKSPERSEC;
 311     return STATUS_SUCCESS;
 312 }
 313
 314 /******************************************************************************
 315  *       RtlSystemTimeToLocalTime [NTDLL.@]
 316  *
 317  * Convert a system time into a local time.
 318  *
 319  * PARAMS
 320  *   SystemTime [I] System time to convert.
 321  *   LocalTime  [O] Destination for the converted time.
 322  *
 323  * RETURNS
 324  *   Success: STATUS_SUCCESS.
 325  *   Failure: An NTSTATUS error code indicating the problem.
 326  */
 327 NTSTATUS WINAPI RtlSystemTimeToLocalTime( const LARGE_INTEGER *SystemTime,
 328                                           PLARGE_INTEGER LocalTime )
 329 {
 330     LONG bias;
 331
 332     TRACE("(%p, %p)\n", SystemTime, LocalTime);
 333
 334     bias = TIME_GetBias();
 335     LocalTime->QuadPart = SystemTime->QuadPart - bias * (LONGLONG)TICKSPERSEC;
 336     return STATUS_SUCCESS;
 337 }
 338
 339 /******************************************************************************
 340  *       RtlTimeToSecondsSince1970 [NTDLL.@]
 341  *
 342  * Convert a time into a count of seconds since 1970.
 343  *
 344  * PARAMS
 345  *   Time    [I] Time to convert.
 346  *   Seconds [O] Destination for the converted time.
 347  *
 348  * RETURNS
 349  *   Success: TRUE.
 350  *   Failure: FALSE, if the resulting value will not fit in a DWORD.
 351  */
 352 BOOLEAN WINAPI RtlTimeToSecondsSince1970( const LARGE_INTEGER *Time, LPDWORD Seconds )
 353 {
 354     ULONGLONG tmp = Time->QuadPart / TICKSPERSEC - SECS_1601_TO_1970;
 355     if (tmp > 0xffffffff) return FALSE;
 356     *Seconds = tmp;
 357     return TRUE;
 358 }
 359
 360 /******************************************************************************
 361  *       RtlTimeToSecondsSince1980 [NTDLL.@]
 362  *
 363  * Convert a time into a count of seconds since 1980.
 364  *
 365  * PARAMS
 366  *   Time    [I] Time to convert.
 367  *   Seconds [O] Destination for the converted time.
 368  *
 369  * RETURNS
 370  *   Success: TRUE.
 371  *   Failure: FALSE, if the resulting value will not fit in a DWORD.
 372  */
 373 BOOLEAN WINAPI RtlTimeToSecondsSince1980( const LARGE_INTEGER *Time, LPDWORD Seconds )
 374 {
 375     ULONGLONG tmp = Time->QuadPart / TICKSPERSEC - SECS_1601_TO_1980;
 376     if (tmp > 0xffffffff) return FALSE;
 377     *Seconds = tmp;
 378     return TRUE;
 379 }
 380
 381 /******************************************************************************
 382  *       RtlSecondsSince1970ToTime [NTDLL.@]
 383  *
 384  * Convert a count of seconds since 1970 to a time.
 385  *
 386  * PARAMS
 387  *   Seconds [I] Time to convert.
 388  *   Time    [O] Destination for the converted time.
 389  *
 390  * RETURNS
 391  *   Nothing.
 392  */
 393 void WINAPI RtlSecondsSince1970ToTime( DWORD Seconds, LARGE_INTEGER *Time )
 394 {
 395     Time->QuadPart = Seconds * (ULONGLONG)TICKSPERSEC + TICKS_1601_TO_1970;
 396 }
 397
 398 /******************************************************************************
 399  *       RtlSecondsSince1980ToTime [NTDLL.@]
 400  *
 401  * Convert a count of seconds since 1980 to a time.
 402  *
 403  * PARAMS
 404  *   Seconds [I] Time to convert.
 405  *   Time    [O] Destination for the converted time.
 406  *
 407  * RETURNS
 408  *   Nothing.
 409  */
 410 void WINAPI RtlSecondsSince1980ToTime( DWORD Seconds, LARGE_INTEGER *Time )
 411 {
 412     Time->QuadPart = Seconds * (ULONGLONG)TICKSPERSEC + TICKS_1601_TO_1980;
 413 }
 414
 415 /******************************************************************************
 416  *       RtlTimeToElapsedTimeFields [NTDLL.@]
 417  *
 418  * Convert a time to a count of elapsed seconds.
 419  *
 420  * PARAMS
 421  *   Time       [I] Time to convert.
 422  *   TimeFields [O] Destination for the converted time.
 423  *
 424  * RETURNS
 425  *   Nothing.
 426  */
 427 void WINAPI RtlTimeToElapsedTimeFields( const LARGE_INTEGER *Time, PTIME_FIELDS TimeFields )
 428 {
 429     LONGLONG time;
 430     INT rem;
 431
 432     time = Time->QuadPart / TICKSPERSEC;
 433     TimeFields->Milliseconds = (Time->QuadPart % TICKSPERSEC) / TICKSPERMSEC;
 434
 435     /* time is now in seconds */
 436     TimeFields->Year  = 0;
 437     TimeFields->Month = 0;
 438     TimeFields->Day   = time / SECSPERDAY;
 439
 440     /* rem is now the remaining seconds in the last day */
 441     rem = time % SECSPERDAY;
 442     TimeFields->Second = rem % 60;
 443     rem /= 60;
 444     TimeFields->Minute = rem % 60;
 445     TimeFields->Hour = rem / 60;
 446 }
 447
 448 /***********************************************************************
 449  *       NtQuerySystemTime [NTDLL.@]
 450  *       ZwQuerySystemTime [NTDLL.@]
 451  *
 452  * Get the current system time.
 453  *
 454  * PARAMS
 455  *   Time [O] Destination for the current system time.
 456  *
 457  * RETURNS
 458  *   Success: STATUS_SUCCESS.
 459  *   Failure: An NTSTATUS error code indicating the problem.
 460  */
 461 NTSTATUS WINAPI NtQuerySystemTime( PLARGE_INTEGER Time )
 462 {
 463     struct timeval now;
 464
 465     gettimeofday( &now, 0 );
 466     Time->QuadPart = now.tv_sec * (ULONGLONG)TICKSPERSEC + TICKS_1601_TO_1970;
 467     Time->QuadPart += now.tv_usec * 10;
 468     return STATUS_SUCCESS;
 469 }
 470
 471 /******************************************************************************
 472  *  NtQueryPerformanceCounter   [NTDLL.@]
 473  */
 474 NTSTATUS WINAPI NtQueryPerformanceCounter( LARGE_INTEGER *counter, LARGE_INTEGER *frequency )
 475 {
 476     __TRY
 477     {
 478         counter->QuadPart = monotonic_counter();
 479         if (frequency) frequency->QuadPart = TICKSPERSEC;
 480     }
 481     __EXCEPT_PAGE_FAULT
 482     {
 483         return STATUS_ACCESS_VIOLATION;
 484     }
 485     __ENDTRY
 486
 487     return STATUS_SUCCESS;
 488 }
 489
 490
 491 /******************************************************************************
 492  * NtGetTickCount   (NTDLL.@)
 493  * ZwGetTickCount   (NTDLL.@)
 494  */
 495 ULONG WINAPI NtGetTickCount(void)
 496 {
 497     return monotonic_counter() / TICKSPERMSEC;
 498 }
 499
 500 /* calculate the mday of dst change date, so that for instance Sun 5 Oct 2007
 501  * (last Sunday in October of 2007) becomes Sun Oct 28 2007
 502  *
 503  * Note: year, day and month must be in unix format.
 504  */
 505 static int weekday_to_mday(int year, int day, int mon, int day_of_week)
 506 {
 507     struct tm date;
 508     time_t tmp;
 509     int wday, mday;
 510
 511     /* find first day in the month matching week day of the date */
 512     memset(&date, 0, sizeof(date));
 513     date.tm_year = year;
 514     date.tm_mon = mon;
 515     date.tm_mday = -1;
 516     date.tm_wday = -1;
 517     do
 518     {
 519         date.tm_mday++;
 520         tmp = mktime(&date);
 521     } while (date.tm_wday != day_of_week || date.tm_mon != mon);
 522
 523     mday = date.tm_mday;
 524
 525     /* find number of week days in the month matching week day of the date */
 526     wday = 1; /* 1 - 1st, ...., 5 - last */
 527     while (wday < day)
 528     {
 529         struct tm *tm;
 530
 531         date.tm_mday += 7;
 532         tmp = mktime(&date);
 533         tm = localtime(&tmp);
 534         if (tm->tm_mon != mon)
 535             break;
 536         mday = tm->tm_mday;
 537         wday++;
 538     }
 539
 540     return mday;
 541 }
 542
 543 static BOOL match_tz_date(const RTL_SYSTEM_TIME *st, const RTL_SYSTEM_TIME *reg_st)
 544 {
 545     WORD wDay;
 546
 547     if (st->wMonth != reg_st->wMonth) return FALSE;
 548
 549     if (!st->wMonth) return TRUE; /* no transition dates */
 550
 551     wDay = reg_st->wDay;
 552     if (!reg_st->wYear) /* date in a day-of-week format */
 553         wDay = weekday_to_mday(st->wYear - 1900, reg_st->wDay, reg_st->wMonth - 1, reg_st->wDayOfWeek);
 554
 555     if (st->wDay != wDay ||
 556         st->wHour != reg_st->wHour ||
 557         st->wMinute != reg_st->wMinute ||
 558         st->wSecond != reg_st->wSecond ||
 559         st->wMilliseconds != reg_st->wMilliseconds) return FALSE;
 560
 561     return TRUE;
 562 }
 563
 564 static BOOL match_tz_info(const RTL_DYNAMIC_TIME_ZONE_INFORMATION *tzi, const RTL_DYNAMIC_TIME_ZONE_INFORMATION *reg_tzi)
 565 {
 566     if (tzi->Bias == reg_tzi->Bias &&
 567         match_tz_date(&tzi->StandardDate, &reg_tzi->StandardDate) &&
 568         match_tz_date(&tzi->DaylightDate, &reg_tzi->DaylightDate))
 569         return TRUE;
 570
 571     return FALSE;
 572 }
 573
 574 static BOOL reg_query_value(HKEY hkey, LPCWSTR name, DWORD type, void *data, DWORD count)
 575 {
 576     UNICODE_STRING nameW;
 577     char buf[256];
 578     KEY_VALUE_PARTIAL_INFORMATION *info = (KEY_VALUE_PARTIAL_INFORMATION *)buf;
 579
 580     if (count > sizeof(buf) - sizeof(KEY_VALUE_PARTIAL_INFORMATION))
 581         return FALSE;
 582
 583     RtlInitUnicodeString(&nameW, name);
 584
 585     if (NtQueryValueKey(hkey, &nameW, KeyValuePartialInformation,
 586                         buf, sizeof(buf), &count))
 587         return FALSE;
 588
 589     if (info->Type != type) return FALSE;
 590
 591     memcpy(data, info->Data, info->DataLength);
 592     return TRUE;
 593 }
 594
 595 static void find_reg_tz_info(RTL_DYNAMIC_TIME_ZONE_INFORMATION *tzi, int year)
 596 {
 597     static const WCHAR Time_ZonesW[] = { 'M','a','c','h','i','n','e','\\',
 598         'S','o','f','t','w','a','r','e','\\',
 599         'M','i','c','r','o','s','o','f','t','\\',
 600         'W','i','n','d','o','w','s',' ','N','T','\\',
 601         'C','u','r','r','e','n','t','V','e','r','s','i','o','n','\\',
 602         'T','i','m','e',' ','Z','o','n','e','s',0 };
 603     static const WCHAR Dynamic_DstW[] = { 'D','y','n','a','m','i','c',' ','D','S','T',0 };
 604     static const WCHAR fmtW[] = { '%','d',0 };
 605     HANDLE hkey;
 606     ULONG idx;
 607     OBJECT_ATTRIBUTES attr, attrDynamic;
 608     UNICODE_STRING nameW, nameDynamicW;
 609     WCHAR buf[128], yearW[16];
 610
 611     sprintfW(yearW, fmtW, year);
 612
 613     attrDynamic.Length = sizeof(attrDynamic);
 614     attrDynamic.RootDirectory = 0; /* will be replaced later */
 615     attrDynamic.ObjectName = &nameDynamicW;
 616     attrDynamic.Attributes = 0;
 617     attrDynamic.SecurityDescriptor = NULL;
 618     attrDynamic.SecurityQualityOfService = NULL;
 619     RtlInitUnicodeString(&nameDynamicW, Dynamic_DstW);
 620
 621     attr.Length = sizeof(attr);
 622     attr.RootDirectory = 0;
 623     attr.ObjectName = &nameW;
 624     attr.Attributes = 0;
 625     attr.SecurityDescriptor = NULL;
 626     attr.SecurityQualityOfService = NULL;
 627     RtlInitUnicodeString(&nameW, Time_ZonesW);
 628     if (NtOpenKey(&hkey, KEY_READ, &attr))
 629     {
 630         WARN("Unable to open the time zones key\n");
 631         return;
 632     }
 633
 634     idx = 0;
 635     nameW.Buffer = buf;
 636     nameW.Length = sizeof(buf);
 637     nameW.MaximumLength = sizeof(buf);
 638
 639     while (!RtlpNtEnumerateSubKey(hkey, &nameW, idx++))
 640     {
 641         static const WCHAR stdW[] = { 'S','t','d',0 };
 642         static const WCHAR dltW[] = { 'D','l','t',0 };
 643         static const WCHAR tziW[] = { 'T','Z','I',0 };
 644         RTL_DYNAMIC_TIME_ZONE_INFORMATION reg_tzi;
 645         HANDLE hSubkey, hSubkeyDynamicDST;
 646         BOOL is_dynamic = FALSE;
 647
 648         struct tz_reg_data
 649         {
 650             LONG bias;
 651             LONG std_bias;
 652             LONG dlt_bias;
 653             RTL_SYSTEM_TIME std_date;
 654             RTL_SYSTEM_TIME dlt_date;
 655         } tz_data;
 656
 657         attr.Length = sizeof(attr);
 658         attr.RootDirectory = hkey;
 659         attr.ObjectName = &nameW;
 660         attr.Attributes = 0;
 661         attr.SecurityDescriptor = NULL;
 662         attr.SecurityQualityOfService = NULL;
 663         if (NtOpenKey(&hSubkey, KEY_READ, &attr))
 664         {
 665             WARN("Unable to open subkey %s\n", debugstr_wn(nameW.Buffer, nameW.Length/sizeof(WCHAR)));
 666             continue;
 667         }
 668
 669 #define get_value(hkey, name, type, data, len) \
 670     if (!reg_query_value(hkey, name, type, data, len)) \
 671     { \
 672         WARN("can't read data from %s\n", debugstr_w(name)); \
 673         NtClose(hkey); \
 674         continue; \
 675     }
 676
 677         get_value(hSubkey, stdW, REG_SZ, reg_tzi.StandardName, sizeof(reg_tzi.StandardName));
 678         get_value(hSubkey, dltW, REG_SZ, reg_tzi.DaylightName, sizeof(reg_tzi.DaylightName));
 679         memcpy(reg_tzi.TimeZoneKeyName, nameW.Buffer, nameW.Length);
 680         reg_tzi.TimeZoneKeyName[nameW.Length/sizeof(WCHAR)] = 0;
 681
 682         /* Check for Dynamic DST entry first */
 683         attrDynamic.RootDirectory = hSubkey;
 684         if (!NtOpenKey(&hSubkeyDynamicDST, KEY_READ, &attrDynamic))
 685         {
 686             is_dynamic = reg_query_value(hSubkeyDynamicDST, yearW, REG_BINARY, &tz_data, sizeof(tz_data));
 687             NtClose(hSubkeyDynamicDST);
 688         }
 689
 690         if (!is_dynamic)
 691             get_value(hSubkey, tziW, REG_BINARY, &tz_data, sizeof(tz_data));
 692
 693 #undef get_value
 694
 695         reg_tzi.Bias = tz_data.bias;
 696         reg_tzi.StandardBias = tz_data.std_bias;
 697         reg_tzi.DaylightBias = tz_data.dlt_bias;
 698         reg_tzi.StandardDate = tz_data.std_date;
 699         reg_tzi.DaylightDate = tz_data.dlt_date;
 700
 701         TRACE("%s: bias %d\n", debugstr_wn(nameW.Buffer, nameW.Length/sizeof(WCHAR)), reg_tzi.Bias);
 702         TRACE("std (d/m/y): %u/%02u/%04u day of week %u %u:%02u:%02u.%03u bias %d\n",
 703             reg_tzi.StandardDate.wDay, reg_tzi.StandardDate.wMonth,
 704             reg_tzi.StandardDate.wYear, reg_tzi.StandardDate.wDayOfWeek,
 705             reg_tzi.StandardDate.wHour, reg_tzi.StandardDate.wMinute,
 706             reg_tzi.StandardDate.wSecond, reg_tzi.StandardDate.wMilliseconds,
 707             reg_tzi.StandardBias);
 708         TRACE("dst (d/m/y): %u/%02u/%04u day of week %u %u:%02u:%02u.%03u bias %d\n",
 709             reg_tzi.DaylightDate.wDay, reg_tzi.DaylightDate.wMonth,
 710             reg_tzi.DaylightDate.wYear, reg_tzi.DaylightDate.wDayOfWeek,
 711             reg_tzi.DaylightDate.wHour, reg_tzi.DaylightDate.wMinute,
 712             reg_tzi.DaylightDate.wSecond, reg_tzi.DaylightDate.wMilliseconds,
 713             reg_tzi.DaylightBias);
 714
 715         NtClose(hSubkey);
 716
 717         if (match_tz_info(tzi, &reg_tzi))
 718         {
 719             *tzi = reg_tzi;
 720             NtClose(hkey);
 721             return;
 722         }
 723
 724         /* reset len */
 725         nameW.Length = sizeof(buf);
 726         nameW.MaximumLength = sizeof(buf);
 727     }
 728
 729     NtClose(hkey);
 730
 731     FIXME("Can't find matching timezone information in the registry for "
 732           "bias %d, std (d/m/y): %u/%02u/%04u, dlt (d/m/y): %u/%02u/%04u\n",
 733           tzi->Bias,
 734           tzi->StandardDate.wDay, tzi->StandardDate.wMonth, tzi->StandardDate.wYear,
 735           tzi->DaylightDate.wDay, tzi->DaylightDate.wMonth, tzi->DaylightDate.wYear);
 736 }
 737
 738 static time_t find_dst_change(unsigned long min, unsigned long max, int *is_dst)
 739 {
 740     time_t start;
 741     struct tm *tm;
 742
 743     start = min;
 744     tm = localtime(&start);
 745     *is_dst = !tm->tm_isdst;
 746     TRACE("starting date isdst %d, %s", !*is_dst, ctime(&start));
 747
 748     while (min <= max)
 749     {
 750         time_t pos = (min + max) / 2;
 751         tm = localtime(&pos);
 752
 753         if (tm->tm_isdst != *is_dst)
 754             min = pos + 1;
 755         else
 756             max = pos - 1;
 757     }
 758     return min;
 759 }
 760
 761 static int init_tz_info(RTL_DYNAMIC_TIME_ZONE_INFORMATION *tzi)
 762 {
 763     static RTL_DYNAMIC_TIME_ZONE_INFORMATION cached_tzi;
 764     static int current_year = -1, current_bias = 65535;
 765     struct tm *tm;
 766     time_t year_start, year_end, tmp, dlt = 0, std = 0;
 767     int is_dst, current_is_dst, bias;
 768
 769     RtlEnterCriticalSection( &TIME_tz_section );
 770
 771     year_start = time(NULL);
 772     tm = gmtime(&year_start);
 773     bias = (LONG)(mktime(tm) - year_start) / 60;
 774
 775     tm = localtime(&year_start);
 776     current_is_dst = tm->tm_isdst;
 777     if (current_year == tm->tm_year && current_bias == bias)
 778     {
 779         *tzi = cached_tzi;
 780         RtlLeaveCriticalSection( &TIME_tz_section );
 781         return current_is_dst;
 782     }
 783
 784     memset(tzi, 0, sizeof(*tzi));
 785
 786     TRACE("tz data will be valid through year %d, bias %d\n", tm->tm_year + 1900, bias);
 787     current_year = tm->tm_year;
 788     current_bias = bias;
 789
 790     tzi->Bias = bias;
 791
 792     tm->tm_isdst = 0;
 793     tm->tm_mday = 1;
 794     tm->tm_mon = tm->tm_hour = tm->tm_min = tm->tm_sec = tm->tm_wday = tm->tm_yday = 0;
 795     year_start = mktime(tm);
 796     TRACE("year_start: %s", ctime(&year_start));
 797
 798     tm->tm_mday = tm->tm_wday = tm->tm_yday = 0;
 799     tm->tm_mon = 12;
 800     tm->tm_hour = 23;
 801     tm->tm_min = tm->tm_sec = 59;
 802     year_end = mktime(tm);
 803     TRACE("year_end: %s", ctime(&year_end));
 804
 805     tmp = find_dst_change(year_start, year_end, &is_dst);
 806     if (is_dst)
 807         dlt = tmp;
 808     else
 809         std = tmp;
 810
 811     tmp = find_dst_change(tmp, year_end, &is_dst);
 812     if (is_dst)
 813         dlt = tmp;
 814     else
 815         std = tmp;
 816
 817     TRACE("std: %s", ctime(&std));
 818     TRACE("dlt: %s", ctime(&dlt));
 819
 820     if (dlt == std || !dlt || !std)
 821         TRACE("there is no daylight saving rules in this time zone\n");
 822     else
 823     {
 824         tmp = dlt - tzi->Bias * 60;
 825         tm = gmtime(&tmp);
 826         TRACE("dlt gmtime: %s", asctime(tm));
 827
 828         tzi->DaylightBias = -60;
 829         tzi->DaylightDate.wYear = tm->tm_year + 1900;
 830         tzi->DaylightDate.wMonth = tm->tm_mon + 1;
 831         tzi->DaylightDate.wDayOfWeek = tm->tm_wday;
 832         tzi->DaylightDate.wDay = tm->tm_mday;
 833         tzi->DaylightDate.wHour = tm->tm_hour;
 834         tzi->DaylightDate.wMinute = tm->tm_min;
 835         tzi->DaylightDate.wSecond = tm->tm_sec;
 836         tzi->DaylightDate.wMilliseconds = 0;
 837
 838         TRACE("daylight (d/m/y): %u/%02u/%04u day of week %u %u:%02u:%02u.%03u bias %d\n",
 839             tzi->DaylightDate.wDay, tzi->DaylightDate.wMonth,
 840             tzi->DaylightDate.wYear, tzi->DaylightDate.wDayOfWeek,
 841             tzi->DaylightDate.wHour, tzi->DaylightDate.wMinute,
 842             tzi->DaylightDate.wSecond, tzi->DaylightDate.wMilliseconds,
 843             tzi->DaylightBias);
 844
 845         tmp = std - tzi->Bias * 60 - tzi->DaylightBias * 60;
 846         tm = gmtime(&tmp);
 847         TRACE("std gmtime: %s", asctime(tm));
 848
 849         tzi->StandardBias = 0;
 850         tzi->StandardDate.wYear = tm->tm_year + 1900;
 851         tzi->StandardDate.wMonth = tm->tm_mon + 1;
 852         tzi->StandardDate.wDayOfWeek = tm->tm_wday;
 853         tzi->StandardDate.wDay = tm->tm_mday;
 854         tzi->StandardDate.wHour = tm->tm_hour;
 855         tzi->StandardDate.wMinute = tm->tm_min;
 856         tzi->StandardDate.wSecond = tm->tm_sec;
 857         tzi->StandardDate.wMilliseconds = 0;
 858
 859         TRACE("standard (d/m/y): %u/%02u/%04u day of week %u %u:%02u:%02u.%03u bias %d\n",
 860             tzi->StandardDate.wDay, tzi->StandardDate.wMonth,
 861             tzi->StandardDate.wYear, tzi->StandardDate.wDayOfWeek,
 862             tzi->StandardDate.wHour, tzi->StandardDate.wMinute,
 863             tzi->StandardDate.wSecond, tzi->StandardDate.wMilliseconds,
 864             tzi->StandardBias);
 865     }
 866
 867     find_reg_tz_info(tzi, current_year + 1900);
 868     cached_tzi = *tzi;
 869
 870     RtlLeaveCriticalSection( &TIME_tz_section );
 871
 872     return current_is_dst;
 873 }
 874
 875 /***********************************************************************
 876  *      RtlQueryTimeZoneInformation [NTDLL.@]
 877  *
 878  * Get information about the current timezone.
 879  *
 880  * PARAMS
 881  *   tzinfo [O] Destination for the retrieved timezone info.
 882  *
 883  * RETURNS
 884  *   Success: STATUS_SUCCESS.
 885  *   Failure: An NTSTATUS error code indicating the problem.
 886  */
 887 NTSTATUS WINAPI RtlQueryTimeZoneInformation(RTL_TIME_ZONE_INFORMATION *ret)
 888 {
 889     RTL_DYNAMIC_TIME_ZONE_INFORMATION tzinfo;
 890
 891     init_tz_info( &tzinfo );
 892     memcpy( ret, &tzinfo, sizeof(*ret) );
 893     return STATUS_SUCCESS;
 894 }
 895
 896 /***********************************************************************
 897  *      RtlQueryDynamicTimeZoneInformation [NTDLL.@]
 898  *
 899  * Get information about the current timezone.
 900  *
 901  * PARAMS
 902  *   tzinfo [O] Destination for the retrieved timezone info.
 903  *
 904  * RETURNS
 905  *   Success: STATUS_SUCCESS.
 906  *   Failure: An NTSTATUS error code indicating the problem.
 907  */
 908 NTSTATUS WINAPI RtlQueryDynamicTimeZoneInformation(RTL_DYNAMIC_TIME_ZONE_INFORMATION *tzinfo)
 909 {
 910     init_tz_info( tzinfo );
 911
 912     return STATUS_SUCCESS;
 913 }
 914
 915 /***********************************************************************
 916  *       RtlSetTimeZoneInformation [NTDLL.@]
 917  *
 918  * Set the current time zone information.
 919  *
 920  * PARAMS
 921  *   tzinfo [I] Timezone information to set.
 922  *
 923  * RETURNS
 924  *   Success: STATUS_SUCCESS.
 925  *   Failure: An NTSTATUS error code indicating the problem.
 926  *
 927  */
 928 NTSTATUS WINAPI RtlSetTimeZoneInformation( const RTL_TIME_ZONE_INFORMATION *tzinfo )
 929 {
 930     return STATUS_PRIVILEGE_NOT_HELD;
 931 }
 932
 933 /***********************************************************************
 934  *        NtSetSystemTime [NTDLL.@]
 935  *        ZwSetSystemTime [NTDLL.@]
 936  *
 937  * Set the system time.
 938  *
 939  * PARAMS
 940  *   NewTime [I] The time to set.
 941  *   OldTime [O] Optional destination for the previous system time.
 942  *
 943  * RETURNS
 944  *   Success: STATUS_SUCCESS.
 945  *   Failure: An NTSTATUS error code indicating the problem.
 946  */
 947 NTSTATUS WINAPI NtSetSystemTime(const LARGE_INTEGER *NewTime, LARGE_INTEGER *OldTime)
 948 {
 949     struct timeval tv;
 950     time_t tm_t;
 951     DWORD sec, oldsec;
 952     LARGE_INTEGER tm;
 953
 954     /* Return the old time if necessary */
 955     if (!OldTime) OldTime = &tm;
 956
 957     NtQuerySystemTime( OldTime );
 958     RtlTimeToSecondsSince1970( OldTime, &oldsec );
 959
 960     RtlTimeToSecondsSince1970( NewTime, &sec );
 961
 962     /* fake success if time didn't change */
 963     if (oldsec == sec)
 964         return STATUS_SUCCESS;
 965
 966     /* set the new time */
 967     tv.tv_sec = sec;
 968     tv.tv_usec = 0;
 969
 970 #ifdef HAVE_SETTIMEOFDAY
 971     tm_t = sec;
 972     if (!settimeofday(&tv, NULL)) /* 0 is OK, -1 is error */
 973     {
 974         TRACE("OS time changed to %s\n", ctime(&tm_t));
 975         return STATUS_SUCCESS;
 976     }
 977     ERR("Cannot set time to %s, time adjustment %ld: %s\n",
 978         ctime(&tm_t), (long)(sec-oldsec), strerror(errno));
 979     if (errno == EPERM)
 980         return STATUS_PRIVILEGE_NOT_HELD;
 981     else
 982         return STATUS_INVALID_PARAMETER;
 983 #else
 984     tm_t = sec;
 985     FIXME("setting time to %s not implemented for missing settimeofday\n",
 986         ctime(&tm_t));
 987     return STATUS_NOT_IMPLEMENTED;
 988 #endif
 989 }
 990
 991 /***********************************************************************
 992  *        RtlQueryUnbiasedInterruptTime [NTDLL.@]
 993  */
 994 NTSTATUS WINAPI RtlQueryUnbiasedInterruptTime(ULONGLONG *time)
 995 {
 996     *time = monotonic_counter();
 997     return STATUS_SUCCESS;
 998 }