dlls/kernel32/time.c

   1 /*
   2  * Win32 kernel time functions
   3  *
   4  * Copyright 1995 Martin von Loewis and Cameron Heide
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library; if not, write to the Free Software
  18  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  19  */
  20
  21 #include "config.h"
  22
  23 #include <string.h>
  24 #ifdef HAVE_UNISTD_H
  25 # include <unistd.h>
  26 #endif
  27 #include <stdarg.h>
  28 #include <stdlib.h>
  29 #include <time.h>
  30 #ifdef HAVE_SYS_TIME_H
  31 # include <sys/time.h>
  32 #endif
  33 #ifdef HAVE_SYS_TIMES_H
  34 # include <sys/times.h>
  35 #endif
  36 #ifdef HAVE_SYS_LIMITS_H
  37 #include <sys/limits.h>
  38 #elif defined(HAVE_MACHINE_LIMITS_H)
  39 #include <machine/limits.h>
  40 #endif
  41
  42 #include "ntstatus.h"
  43 #define WIN32_NO_STATUS
  44 #define NONAMELESSUNION
  45 #include "windef.h"
  46 #include "winbase.h"
  47 #include "winternl.h"
  48 #include "kernel_private.h"
  49 #include "wine/unicode.h"
  50 #include "wine/debug.h"
  51
  52 WINE_DEFAULT_DEBUG_CHANNEL(time);
  53
  54 #define CALINFO_MAX_YEAR 2029
  55
  56 #define LL2FILETIME( ll, pft )\
  57     (pft)->dwLowDateTime = (UINT)(ll); \
  58     (pft)->dwHighDateTime = (UINT)((ll) >> 32);
  59 #define FILETIME2LL( pft, ll) \
  60     ll = (((LONGLONG)((pft)->dwHighDateTime))<<32) + (pft)-> dwLowDateTime ;
  61
  62
  63 static const int MonthLengths[2][12] =
  64 {
  65         { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 },
  66         { 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 }
  67 };
  68
  69 static inline BOOL IsLeapYear(int Year)
  70 {
  71     return Year % 4 == 0 && (Year % 100 != 0 || Year % 400 == 0);
  72 }
  73
  74 /***********************************************************************
  75  *  TIME_DayLightCompareDate
  76  *
  77  * Compares two dates without looking at the year.
  78  *
  79  * PARAMS
  80  *   date        [in] The local time to compare.
  81  *   compareDate [in] The daylight savings begin or end date.
  82  *
  83  * RETURNS
  84  *
  85  *  -1 if date < compareDate
  86  *   0 if date == compareDate
  87  *   1 if date > compareDate
  88  *  -2 if an error occurs
  89  */
  90 static int TIME_DayLightCompareDate( const SYSTEMTIME *date,
  91     const SYSTEMTIME *compareDate )
  92 {
  93     int limit_day, dayinsecs;
  94
  95     if (date->wMonth < compareDate->wMonth)
  96         return -1; /* We are in a month before the date limit. */
  97
  98     if (date->wMonth > compareDate->wMonth)
  99         return 1; /* We are in a month after the date limit. */
 100
 101     /* if year is 0 then date is in day-of-week format, otherwise
 102      * it's absolute date.
 103      */
 104     if (compareDate->wYear == 0)
 105     {
 106         WORD First;
 107         /* compareDate->wDay is interpreted as number of the week in the month
 108          * 5 means: the last week in the month */
 109         int weekofmonth = compareDate->wDay;
 110           /* calculate the day of the first DayOfWeek in the month */
 111         First = ( 6 + compareDate->wDayOfWeek - date->wDayOfWeek + date->wDay
 112                ) % 7 + 1;
 113         limit_day = First + 7 * (weekofmonth - 1);
 114         /* check needed for the 5th weekday of the month */
 115         if(limit_day > MonthLengths[date->wMonth==2 && IsLeapYear(date->wYear)]
 116                 [date->wMonth - 1])
 117             limit_day -= 7;
 118     }
 119     else
 120     {
 121        limit_day = compareDate->wDay;
 122     }
 123
 124     /* convert to seconds */
 125     limit_day = ((limit_day * 24  + compareDate->wHour) * 60 +
 126             compareDate->wMinute ) * 60;
 127     dayinsecs = ((date->wDay * 24  + date->wHour) * 60 +
 128             date->wMinute ) * 60 + date->wSecond;
 129     /* and compare */
 130     return dayinsecs < limit_day ? -1 :
 131            dayinsecs > limit_day ? 1 :
 132            0;   /* date is equal to the date limit. */
 133 }
 134
 135 /***********************************************************************
 136  *  TIME_CompTimeZoneID
 137  *
 138  *  Computes the local time bias for a given time and time zone.
 139  *
 140  *  PARAMS
 141  *      pTZinfo     [in] The time zone data.
 142  *      lpFileTime  [in] The system or local time.
 143  *      islocal     [in] it is local time.
 144  *
 145  *  RETURNS
 146  *      TIME_ZONE_ID_INVALID    An error occurred
 147  *      TIME_ZONE_ID_UNKNOWN    There are no transition time known
 148  *      TIME_ZONE_ID_STANDARD   Current time is standard time
 149  *      TIME_ZONE_ID_DAYLIGHT   Current time is daylight savings time
 150  */
 151 static DWORD TIME_CompTimeZoneID ( const TIME_ZONE_INFORMATION *pTZinfo,
 152     FILETIME *lpFileTime, BOOL islocal )
 153 {
 154     int ret, year;
 155     BOOL beforeStandardDate, afterDaylightDate;
 156     DWORD retval = TIME_ZONE_ID_INVALID;
 157     LONGLONG llTime = 0; /* initialized to prevent gcc complaining */
 158     SYSTEMTIME SysTime;
 159     FILETIME ftTemp;
 160
 161     if (pTZinfo->DaylightDate.wMonth != 0)
 162     {
 163         /* if year is 0 then date is in day-of-week format, otherwise
 164          * it's absolute date.
 165          */
 166         if (pTZinfo->StandardDate.wMonth == 0 ||
 167             (pTZinfo->StandardDate.wYear == 0 &&
 168             (pTZinfo->StandardDate.wDay<1 ||
 169             pTZinfo->StandardDate.wDay>5 ||
 170             pTZinfo->DaylightDate.wDay<1 ||
 171             pTZinfo->DaylightDate.wDay>5)))
 172         {
 173             SetLastError(ERROR_INVALID_PARAMETER);
 174             return TIME_ZONE_ID_INVALID;
 175         }
 176
 177         if (!islocal) {
 178             FILETIME2LL( lpFileTime, llTime );
 179             llTime -= pTZinfo->Bias * (LONGLONG)600000000;
 180             LL2FILETIME( llTime, &ftTemp)
 181             lpFileTime = &ftTemp;
 182         }
 183
 184         FileTimeToSystemTime(lpFileTime, &SysTime);
 185         year = SysTime.wYear;
 186
 187         if (!islocal) {
 188             llTime -= pTZinfo->DaylightBias * (LONGLONG)600000000;
 189             LL2FILETIME( llTime, &ftTemp)
 190             FileTimeToSystemTime(lpFileTime, &SysTime);
 191         }
 192
 193         /* check for daylight savings */
 194         if(year == SysTime.wYear) {
 195             ret = TIME_DayLightCompareDate( &SysTime, &pTZinfo->StandardDate);
 196             if (ret == -2)
 197                 return TIME_ZONE_ID_INVALID;
 198
 199             beforeStandardDate = ret < 0;
 200         } else
 201             beforeStandardDate = SysTime.wYear < year;
 202
 203         if (!islocal) {
 204             llTime -= ( pTZinfo->StandardBias - pTZinfo->DaylightBias )
 205                 * (LONGLONG)600000000;
 206             LL2FILETIME( llTime, &ftTemp)
 207             FileTimeToSystemTime(lpFileTime, &SysTime);
 208         }
 209
 210         if(year == SysTime.wYear) {
 211             ret = TIME_DayLightCompareDate( &SysTime, &pTZinfo->DaylightDate);
 212             if (ret == -2)
 213                 return TIME_ZONE_ID_INVALID;
 214
 215             afterDaylightDate = ret >= 0;
 216         } else
 217             afterDaylightDate = SysTime.wYear > year;
 218
 219         retval = TIME_ZONE_ID_STANDARD;
 220         if( pTZinfo->DaylightDate.wMonth <  pTZinfo->StandardDate.wMonth ) {
 221             /* Northern hemisphere */
 222             if( beforeStandardDate && afterDaylightDate )
 223                 retval = TIME_ZONE_ID_DAYLIGHT;
 224         } else    /* Down south */
 225             if( beforeStandardDate || afterDaylightDate )
 226             retval = TIME_ZONE_ID_DAYLIGHT;
 227     } else
 228         /* No transition date */
 229         retval = TIME_ZONE_ID_UNKNOWN;
 230
 231     return retval;
 232 }
 233
 234 /***********************************************************************
 235  *  TIME_TimeZoneID
 236  *
 237  *  Calculates whether daylight savings is on now.
 238  *
 239  *  PARAMS
 240  *      pTzi [in] Timezone info.
 241  *
 242  *  RETURNS
 243  *      TIME_ZONE_ID_INVALID    An error occurred
 244  *      TIME_ZONE_ID_UNKNOWN    There are no transition time known
 245  *      TIME_ZONE_ID_STANDARD   Current time is standard time
 246  *      TIME_ZONE_ID_DAYLIGHT   Current time is daylight savings time
 247  */
 248 static DWORD TIME_ZoneID( const TIME_ZONE_INFORMATION *pTzi )
 249 {
 250     FILETIME ftTime;
 251     GetSystemTimeAsFileTime( &ftTime);
 252     return TIME_CompTimeZoneID( pTzi, &ftTime, FALSE);
 253 }
 254
 255 /***********************************************************************
 256  *  TIME_GetTimezoneBias
 257  *
 258  *  Calculates the local time bias for a given time zone.
 259  *
 260  * PARAMS
 261  *  pTZinfo    [in]  The time zone data.
 262  *  lpFileTime [in]  The system or local time.
 263  *  islocal    [in]  It is local time.
 264  *  pBias      [out] The calculated bias in minutes.
 265  *
 266  * RETURNS
 267  *  TRUE when the time zone bias was calculated.
 268  */
 269 static BOOL TIME_GetTimezoneBias( const TIME_ZONE_INFORMATION *pTZinfo,
 270     FILETIME *lpFileTime, BOOL islocal, LONG *pBias )
 271 {
 272     LONG bias = pTZinfo->Bias;
 273     DWORD tzid = TIME_CompTimeZoneID( pTZinfo, lpFileTime, islocal);
 274
 275     if( tzid == TIME_ZONE_ID_INVALID)
 276         return FALSE;
 277     if (tzid == TIME_ZONE_ID_DAYLIGHT)
 278         bias += pTZinfo->DaylightBias;
 279     else if (tzid == TIME_ZONE_ID_STANDARD)
 280         bias += pTZinfo->StandardBias;
 281     *pBias = bias;
 282     return TRUE;
 283 }
 284
 285 /***********************************************************************
 286  *  TIME_GetSpecificTimeZoneKey
 287  *
 288  *  Opens the registry key for the time zone with the given name.
 289  *
 290  * PARAMS
 291  *  key_name   [in]  The time zone name.
 292  *  result     [out] The open registry key handle.
 293  *
 294  * RETURNS
 295  *  TRUE if successful.
 296  */
 297 static BOOL TIME_GetSpecificTimeZoneKey( const WCHAR *key_name, HANDLE *result )
 298 {
 299     static const WCHAR Time_ZonesW[] = { '\\','R','E','G','I','S','T','R','Y','\\',
 300         'M','a','c','h','i','n','e','\\',
 301         'S','o','f','t','w','a','r','e','\\',
 302         'M','i','c','r','o','s','o','f','t','\\',
 303         'W','i','n','d','o','w','s',' ','N','T','\\',
 304         'C','u','r','r','e','n','t','V','e','r','s','i','o','n','\\',
 305         'T','i','m','e',' ','Z','o','n','e','s',0 };
 306     HANDLE time_zones_key;
 307     OBJECT_ATTRIBUTES attr;
 308     UNICODE_STRING nameW;
 309     NTSTATUS status;
 310
 311     attr.Length = sizeof(attr);
 312     attr.RootDirectory = 0;
 313     attr.ObjectName = &nameW;
 314     attr.Attributes = 0;
 315     attr.SecurityDescriptor = NULL;
 316     attr.SecurityQualityOfService = NULL;
 317     RtlInitUnicodeString( &nameW, Time_ZonesW );
 318     status = NtOpenKey( &time_zones_key, KEY_READ, &attr );
 319     if (status)
 320     {
 321         WARN("Unable to open the time zones key\n");
 322         SetLastError( RtlNtStatusToDosError(status) );
 323         return FALSE;
 324     }
 325
 326     attr.RootDirectory = time_zones_key;
 327     RtlInitUnicodeString( &nameW, key_name );
 328     status = NtOpenKey( result, KEY_READ, &attr );
 329
 330     NtClose( time_zones_key );
 331
 332     if (status)
 333     {
 334         SetLastError( RtlNtStatusToDosError(status) );
 335         return FALSE;
 336     }
 337
 338     return TRUE;
 339 }
 340
 341 static BOOL reg_query_value(HKEY hkey, LPCWSTR name, DWORD type, void *data, DWORD count)
 342 {
 343     UNICODE_STRING nameW;
 344     char buf[256];
 345     KEY_VALUE_PARTIAL_INFORMATION *info = (KEY_VALUE_PARTIAL_INFORMATION *)buf;
 346     NTSTATUS status;
 347
 348     if (count > sizeof(buf) - sizeof(KEY_VALUE_PARTIAL_INFORMATION))
 349         return FALSE;
 350
 351     RtlInitUnicodeString(&nameW, name);
 352
 353     if ((status = NtQueryValueKey(hkey, &nameW, KeyValuePartialInformation,
 354                                   buf, sizeof(buf), &count)))
 355     {
 356         SetLastError( RtlNtStatusToDosError(status) );
 357         return FALSE;
 358     }
 359
 360     if (info->Type != type)
 361     {
 362         SetLastError( ERROR_DATATYPE_MISMATCH );
 363         return FALSE;
 364     }
 365
 366     memcpy(data, info->Data, info->DataLength);
 367     return TRUE;
 368 }
 369
 370 /***********************************************************************
 371  *  TIME_GetSpecificTimeZoneInfo
 372  *
 373  *  Returns time zone information for the given time zone and year.
 374  *
 375  * PARAMS
 376  *  key_name   [in]  The time zone name.
 377  *  year       [in]  The year, if Dynamic DST is used.
 378  *  dynamic    [in]  Whether to use Dynamic DST.
 379  *  result     [out] The time zone information.
 380  *
 381  * RETURNS
 382  *  TRUE if successful.
 383  */
 384 static BOOL TIME_GetSpecificTimeZoneInfo( const WCHAR *key_name, WORD year,
 385     BOOL dynamic, DYNAMIC_TIME_ZONE_INFORMATION *tzinfo )
 386 {
 387     static const WCHAR Dynamic_DstW[] = { 'D','y','n','a','m','i','c',' ','D','S','T',0 };
 388     static const WCHAR fmtW[] = { '%','d',0 };
 389     static const WCHAR stdW[] = { 'S','t','d',0 };
 390     static const WCHAR dltW[] = { 'D','l','t',0 };
 391     static const WCHAR tziW[] = { 'T','Z','I',0 };
 392     HANDLE time_zone_key, dynamic_dst_key;
 393     OBJECT_ATTRIBUTES attr;
 394     UNICODE_STRING nameW;
 395     WCHAR yearW[16];
 396     BOOL got_reg_data = FALSE;
 397     struct tz_reg_data
 398     {
 399         LONG bias;
 400         LONG std_bias;
 401         LONG dlt_bias;
 402         SYSTEMTIME std_date;
 403         SYSTEMTIME dlt_date;
 404     } tz_data;
 405
 406     if (!TIME_GetSpecificTimeZoneKey( key_name, &time_zone_key ))
 407         return FALSE;
 408
 409     if (!reg_query_value( time_zone_key, stdW, REG_SZ, tzinfo->StandardName, sizeof(tzinfo->StandardName)) ||
 410         !reg_query_value( time_zone_key, dltW, REG_SZ, tzinfo->DaylightName, sizeof(tzinfo->DaylightName)))
 411     {
 412         NtClose( time_zone_key );
 413         return FALSE;
 414     }
 415
 416     lstrcpyW(tzinfo->TimeZoneKeyName, key_name);
 417
 418     if (dynamic)
 419     {
 420         attr.Length = sizeof(attr);
 421         attr.RootDirectory = time_zone_key;
 422         attr.ObjectName = &nameW;
 423         attr.Attributes = 0;
 424         attr.SecurityDescriptor = NULL;
 425         attr.SecurityQualityOfService = NULL;
 426         RtlInitUnicodeString( &nameW, Dynamic_DstW );
 427         if (!NtOpenKey( &dynamic_dst_key, KEY_READ, &attr ))
 428         {
 429             sprintfW( yearW, fmtW, year );
 430             got_reg_data = reg_query_value( dynamic_dst_key, yearW, REG_BINARY, &tz_data, sizeof(tz_data) );
 431
 432             NtClose( dynamic_dst_key );
 433         }
 434     }
 435
 436     if (!got_reg_data)
 437     {
 438         if (!reg_query_value( time_zone_key, tziW, REG_BINARY, &tz_data, sizeof(tz_data) ))
 439         {
 440             NtClose( time_zone_key );
 441             return FALSE;
 442         }
 443     }
 444
 445     tzinfo->Bias = tz_data.bias;
 446     tzinfo->StandardBias = tz_data.std_bias;
 447     tzinfo->DaylightBias = tz_data.dlt_bias;
 448     tzinfo->StandardDate = tz_data.std_date;
 449     tzinfo->DaylightDate = tz_data.dlt_date;
 450
 451     tzinfo->DynamicDaylightTimeDisabled = !dynamic;
 452
 453     NtClose( time_zone_key );
 454
 455     return TRUE;
 456 }
 457
 458
 459 /***********************************************************************
 460  *              SetLocalTime            (KERNEL32.@)
 461  *
 462  *  Set the local time using current time zone and daylight
 463  *  savings settings.
 464  *
 465  * PARAMS
 466  *  systime [in] The desired local time.
 467  *
 468  * RETURNS
 469  *  Success: TRUE. The time was set.
 470  *  Failure: FALSE, if the time was invalid or caller does not have
 471  *           permission to change the time.
 472  */
 473 BOOL WINAPI SetLocalTime( const SYSTEMTIME *systime )
 474 {
 475     FILETIME ft;
 476     LARGE_INTEGER st, st2;
 477     NTSTATUS status;
 478
 479     if( !SystemTimeToFileTime( systime, &ft ))
 480         return FALSE;
 481     st.u.LowPart = ft.dwLowDateTime;
 482     st.u.HighPart = ft.dwHighDateTime;
 483     RtlLocalTimeToSystemTime( &st, &st2 );
 484
 485     if ((status = NtSetSystemTime(&st2, NULL)))
 486         SetLastError( RtlNtStatusToDosError(status) );
 487     return !status;
 488 }
 489
 490
 491 /***********************************************************************
 492  *           GetSystemTimeAdjustment     (KERNEL32.@)
 493  *
 494  *  Get the period between clock interrupts and the amount the clock
 495  *  is adjusted each interrupt so as to keep it in sync with an external source.
 496  *
 497  * PARAMS
 498  *  lpTimeAdjustment [out] The clock adjustment per interrupt in 100's of nanoseconds.
 499  *  lpTimeIncrement  [out] The time between clock interrupts in 100's of nanoseconds.
 500  *  lpTimeAdjustmentDisabled [out] The clock synchronisation has been disabled.
 501  *
 502  * RETURNS
 503  *  TRUE.
 504  *
 505  * BUGS
 506  *  Only the special case of disabled time adjustments is supported.
 507  */
 508 BOOL WINAPI GetSystemTimeAdjustment( PDWORD lpTimeAdjustment, PDWORD lpTimeIncrement,
 509     PBOOL  lpTimeAdjustmentDisabled )
 510 {
 511     *lpTimeAdjustment = 0;
 512     *lpTimeIncrement = 10000000 / sysconf(_SC_CLK_TCK);
 513     *lpTimeAdjustmentDisabled = TRUE;
 514     return TRUE;
 515 }
 516
 517
 518 /***********************************************************************
 519  *              SetSystemTime            (KERNEL32.@)
 520  *
 521  *  Set the system time in utc.
 522  *
 523  * PARAMS
 524  *  systime [in] The desired system time.
 525  *
 526  * RETURNS
 527  *  Success: TRUE. The time was set.
 528  *  Failure: FALSE, if the time was invalid or caller does not have
 529  *           permission to change the time.
 530  */
 531 BOOL WINAPI SetSystemTime( const SYSTEMTIME *systime )
 532 {
 533     FILETIME ft;
 534     LARGE_INTEGER t;
 535     NTSTATUS status;
 536
 537     if( !SystemTimeToFileTime( systime, &ft ))
 538         return FALSE;
 539     t.u.LowPart = ft.dwLowDateTime;
 540     t.u.HighPart = ft.dwHighDateTime;
 541     if ((status = NtSetSystemTime(&t, NULL)))
 542         SetLastError( RtlNtStatusToDosError(status) );
 543     return !status;
 544 }
 545
 546 /***********************************************************************
 547  *              SetSystemTimeAdjustment  (KERNEL32.@)
 548  *
 549  *  Enables or disables the timing adjustments to the system's clock.
 550  *
 551  * PARAMS
 552  *  dwTimeAdjustment        [in] Number of units to add per clock interrupt.
 553  *  bTimeAdjustmentDisabled [in] Adjustment mode.
 554  *
 555  * RETURNS
 556  *  Success: TRUE.
 557  *  Failure: FALSE.
 558  */
 559 BOOL WINAPI SetSystemTimeAdjustment( DWORD dwTimeAdjustment, BOOL bTimeAdjustmentDisabled )
 560 {
 561     /* Fake function for now... */
 562     FIXME("(%08x,%d): stub !\n", dwTimeAdjustment, bTimeAdjustmentDisabled);
 563     return TRUE;
 564 }
 565
 566 /***********************************************************************
 567  *              GetTimeZoneInformation  (KERNEL32.@)
 568  *
 569  *  Get information about the current local time zone.
 570  *
 571  * PARAMS
 572  *  tzinfo [out] Destination for time zone information.
 573  *
 574  * RETURNS
 575  *  TIME_ZONE_ID_INVALID    An error occurred
 576  *  TIME_ZONE_ID_UNKNOWN    There are no transition time known
 577  *  TIME_ZONE_ID_STANDARD   Current time is standard time
 578  *  TIME_ZONE_ID_DAYLIGHT   Current time is daylight savings time
 579  */
 580 DWORD WINAPI GetTimeZoneInformation( LPTIME_ZONE_INFORMATION tzinfo )
 581 {
 582     NTSTATUS status;
 583
 584     status = RtlQueryTimeZoneInformation( (RTL_TIME_ZONE_INFORMATION*)tzinfo );
 585     if ( status != STATUS_SUCCESS )
 586     {
 587         SetLastError( RtlNtStatusToDosError(status) );
 588         return TIME_ZONE_ID_INVALID;
 589     }
 590     return TIME_ZoneID( tzinfo );
 591 }
 592
 593 /***********************************************************************
 594  *              GetTimeZoneInformationForYear  (KERNEL32.@)
 595  */
 596 BOOL WINAPI GetTimeZoneInformationForYear( USHORT wYear,
 597     PDYNAMIC_TIME_ZONE_INFORMATION pdtzi, LPTIME_ZONE_INFORMATION ptzi )
 598 {
 599     DYNAMIC_TIME_ZONE_INFORMATION local_dtzi, result;
 600
 601     if (!pdtzi)
 602     {
 603         if (GetDynamicTimeZoneInformation(&local_dtzi) == TIME_ZONE_ID_INVALID)
 604             return FALSE;
 605         pdtzi = &local_dtzi;
 606     }
 607
 608     if (!TIME_GetSpecificTimeZoneInfo(pdtzi->TimeZoneKeyName, wYear,
 609             !pdtzi->DynamicDaylightTimeDisabled, &result))
 610         return FALSE;
 611
 612     memcpy(ptzi, &result, sizeof(*ptzi));
 613
 614     return TRUE;
 615 }
 616
 617 /***********************************************************************
 618  *              SetTimeZoneInformation  (KERNEL32.@)
 619  *
 620  *  Change the settings of the current local time zone.
 621  *
 622  * PARAMS
 623  *  tzinfo [in] The new time zone.
 624  *
 625  * RETURNS
 626  *  Success: TRUE. The time zone was updated with the settings from tzinfo.
 627  *  Failure: FALSE.
 628  */
 629 BOOL WINAPI SetTimeZoneInformation( const TIME_ZONE_INFORMATION *tzinfo )
 630 {
 631     NTSTATUS status;
 632     status = RtlSetTimeZoneInformation( (const RTL_TIME_ZONE_INFORMATION *)tzinfo );
 633     if ( status != STATUS_SUCCESS )
 634         SetLastError( RtlNtStatusToDosError(status) );
 635     return !status;
 636 }
 637
 638 /***********************************************************************
 639  *              SystemTimeToTzSpecificLocalTime  (KERNEL32.@)
 640  *
 641  *  Convert a utc system time to a local time in a given time zone.
 642  *
 643  * PARAMS
 644  *  lpTimeZoneInformation [in]  The desired time zone.
 645  *  lpUniversalTime       [in]  The utc time to base local time on.
 646  *  lpLocalTime           [out] The local time in the time zone.
 647  *
 648  * RETURNS
 649  *  Success: TRUE. lpLocalTime contains the converted time
 650  *  Failure: FALSE.
 651  */
 652
 653 BOOL WINAPI SystemTimeToTzSpecificLocalTime(
 654     const TIME_ZONE_INFORMATION *lpTimeZoneInformation,
 655     const SYSTEMTIME *lpUniversalTime, LPSYSTEMTIME lpLocalTime )
 656 {
 657     FILETIME ft;
 658     LONG lBias;
 659     LONGLONG llTime;
 660     TIME_ZONE_INFORMATION tzinfo;
 661
 662     if (lpTimeZoneInformation != NULL)
 663     {
 664         tzinfo = *lpTimeZoneInformation;
 665     }
 666     else
 667     {
 668         if (GetTimeZoneInformation(&tzinfo) == TIME_ZONE_ID_INVALID)
 669             return FALSE;
 670     }
 671
 672     if (!SystemTimeToFileTime(lpUniversalTime, &ft))
 673         return FALSE;
 674     FILETIME2LL( &ft, llTime)
 675     if (!TIME_GetTimezoneBias(&tzinfo, &ft, FALSE, &lBias))
 676         return FALSE;
 677     /* convert minutes to 100-nanoseconds-ticks */
 678     llTime -= (LONGLONG)lBias * 600000000;
 679     LL2FILETIME( llTime, &ft)
 680
 681     return FileTimeToSystemTime(&ft, lpLocalTime);
 682 }
 683
 684
 685 /***********************************************************************
 686  *              TzSpecificLocalTimeToSystemTime  (KERNEL32.@)
 687  *
 688  *  Converts a local time to a time in utc.
 689  *
 690  * PARAMS
 691  *  lpTimeZoneInformation [in]  The desired time zone.
 692  *  lpLocalTime           [in]  The local time.
 693  *  lpUniversalTime       [out] The calculated utc time.
 694  *
 695  * RETURNS
 696  *  Success: TRUE. lpUniversalTime contains the converted time.
 697  *  Failure: FALSE.
 698  */
 699 BOOL WINAPI TzSpecificLocalTimeToSystemTime(
 700     const TIME_ZONE_INFORMATION *lpTimeZoneInformation,
 701     const SYSTEMTIME *lpLocalTime, LPSYSTEMTIME lpUniversalTime)
 702 {
 703     FILETIME ft;
 704     LONG lBias;
 705     LONGLONG t;
 706     TIME_ZONE_INFORMATION tzinfo;
 707
 708     if (lpTimeZoneInformation != NULL)
 709     {
 710         tzinfo = *lpTimeZoneInformation;
 711     }
 712     else
 713     {
 714         if (GetTimeZoneInformation(&tzinfo) == TIME_ZONE_ID_INVALID)
 715             return FALSE;
 716     }
 717
 718     if (!SystemTimeToFileTime(lpLocalTime, &ft))
 719         return FALSE;
 720     FILETIME2LL( &ft, t)
 721     if (!TIME_GetTimezoneBias(&tzinfo, &ft, TRUE, &lBias))
 722         return FALSE;
 723     /* convert minutes to 100-nanoseconds-ticks */
 724     t += (LONGLONG)lBias * 600000000;
 725     LL2FILETIME( t, &ft)
 726     return FileTimeToSystemTime(&ft, lpUniversalTime);
 727 }
 728
 729
 730 /***********************************************************************
 731  *              GetSystemTimeAsFileTime  (KERNEL32.@)
 732  *
 733  *  Get the current time in utc format.
 734  *
 735  *  RETURNS
 736  *   Nothing.
 737  */
 738 VOID WINAPI GetSystemTimeAsFileTime(
 739     LPFILETIME time) /* [out] Destination for the current utc time */
 740 {
 741     LARGE_INTEGER t;
 742     NtQuerySystemTime( &t );
 743     time->dwLowDateTime = t.u.LowPart;
 744     time->dwHighDateTime = t.u.HighPart;
 745 }
 746
 747
 748 /***********************************************************************
 749  *              GetSystemTimePreciseAsFileTime  (KERNEL32.@)
 750  *
 751  *  Get the current time in utc format, with <1 us precision.
 752  *
 753  *  RETURNS
 754  *   Nothing.
 755  */
 756 VOID WINAPI GetSystemTimePreciseAsFileTime(
 757     LPFILETIME time) /* [out] Destination for the current utc time */
 758 {
 759     GetSystemTimeAsFileTime(time);
 760 }
 761
 762
 763 /*********************************************************************
 764  *      TIME_ClockTimeToFileTime    (olorin@fandra.org, 20-Sep-1998)
 765  *
 766  *  Used by GetProcessTimes to convert clock_t into FILETIME.
 767  *
 768  *      Differences to UnixTimeToFileTime:
 769  *          1) Divided by CLK_TCK
 770  *          2) Time is relative. There is no 'starting date', so there is
 771  *             no need for offset correction, like in UnixTimeToFileTime
 772  */
 773 static void TIME_ClockTimeToFileTime(clock_t unix_time, LPFILETIME filetime)
 774 {
 775     long clocksPerSec = sysconf(_SC_CLK_TCK);
 776     ULONGLONG secs = (ULONGLONG)unix_time * 10000000 / clocksPerSec;
 777     filetime->dwLowDateTime  = (DWORD)secs;
 778     filetime->dwHighDateTime = (DWORD)(secs >> 32);
 779 }
 780
 781 /*********************************************************************
 782  *      GetProcessTimes                         (KERNEL32.@)
 783  *
 784  *  Get the user and kernel execution times of a process,
 785  *  along with the creation and exit times if known.
 786  *
 787  * PARAMS
 788  *  hprocess       [in]  The process to be queried.
 789  *  lpCreationTime [out] The creation time of the process.
 790  *  lpExitTime     [out] The exit time of the process if exited.
 791  *  lpKernelTime   [out] The time spent in kernel routines in 100's of nanoseconds.
 792  *  lpUserTime     [out] The time spent in user routines in 100's of nanoseconds.
 793  *
 794  * RETURNS
 795  *  TRUE.
 796  *
 797  * NOTES
 798  *  olorin@fandra.org:
 799  *  Would be nice to subtract the cpu time used by Wine at startup.
 800  *  Also, there is a need to separate times used by different applications.
 801  *
 802  * BUGS
 803  *  KernelTime and UserTime are always for the current process
 804  */
 805 BOOL WINAPI GetProcessTimes( HANDLE hprocess, LPFILETIME lpCreationTime,
 806     LPFILETIME lpExitTime, LPFILETIME lpKernelTime, LPFILETIME lpUserTime )
 807 {
 808     struct tms tms;
 809     KERNEL_USER_TIMES pti;
 810
 811     times(&tms);
 812     TIME_ClockTimeToFileTime(tms.tms_utime,lpUserTime);
 813     TIME_ClockTimeToFileTime(tms.tms_stime,lpKernelTime);
 814     if (NtQueryInformationProcess( hprocess, ProcessTimes, &pti, sizeof(pti), NULL))
 815         return FALSE;
 816     LL2FILETIME( pti.CreateTime.QuadPart, lpCreationTime);
 817     LL2FILETIME( pti.ExitTime.QuadPart, lpExitTime);
 818     return TRUE;
 819 }
 820
 821 /*********************************************************************
 822  *      GetCalendarInfoA                                (KERNEL32.@)
 823  *
 824  */
 825 int WINAPI GetCalendarInfoA(LCID lcid, CALID Calendar, CALTYPE CalType,
 826                             LPSTR lpCalData, int cchData, LPDWORD lpValue)
 827 {
 828     int ret, cchDataW = cchData;
 829     LPWSTR lpCalDataW = NULL;
 830
 831     if (NLS_IsUnicodeOnlyLcid(lcid))
 832     {
 833       SetLastError(ERROR_INVALID_PARAMETER);
 834       return 0;
 835     }
 836
 837     if (!cchData && !(CalType & CAL_RETURN_NUMBER))
 838         cchDataW = GetCalendarInfoW(lcid, Calendar, CalType, NULL, 0, NULL);
 839     if (!(lpCalDataW = HeapAlloc(GetProcessHeap(), 0, cchDataW*sizeof(WCHAR))))
 840         return 0;
 841
 842     ret = GetCalendarInfoW(lcid, Calendar, CalType, lpCalDataW, cchDataW, lpValue);
 843     if(ret && lpCalDataW && lpCalData)
 844         ret = WideCharToMultiByte(CP_ACP, 0, lpCalDataW, -1, lpCalData, cchData, NULL, NULL);
 845     else if (CalType & CAL_RETURN_NUMBER)
 846         ret *= sizeof(WCHAR);
 847     HeapFree(GetProcessHeap(), 0, lpCalDataW);
 848
 849     return ret;
 850 }
 851
 852 /*********************************************************************
 853  *      GetCalendarInfoW                                (KERNEL32.@)
 854  *
 855  */
 856 int WINAPI GetCalendarInfoW(LCID Locale, CALID Calendar, CALTYPE CalType,
 857                             LPWSTR lpCalData, int cchData, LPDWORD lpValue)
 858 {
 859     if (CalType & CAL_NOUSEROVERRIDE)
 860         FIXME("flag CAL_NOUSEROVERRIDE used, not fully implemented\n");
 861     if (CalType & CAL_USE_CP_ACP)
 862         FIXME("flag CAL_USE_CP_ACP used, not fully implemented\n");
 863
 864     if (CalType & CAL_RETURN_NUMBER) {
 865         if (!lpValue)
 866         {
 867             SetLastError( ERROR_INVALID_PARAMETER );
 868             return 0;
 869         }
 870         if (lpCalData != NULL)
 871             WARN("lpCalData not NULL (%p) when it should!\n", lpCalData);
 872         if (cchData != 0)
 873             WARN("cchData not 0 (%d) when it should!\n", cchData);
 874     } else {
 875         if (lpValue != NULL)
 876             WARN("lpValue not NULL (%p) when it should!\n", lpValue);
 877     }
 878
 879     /* FIXME: No verification is made yet wrt Locale
 880      * for the CALTYPES not requiring GetLocaleInfoA */
 881     switch (CalType & ~(CAL_NOUSEROVERRIDE|CAL_RETURN_NUMBER|CAL_USE_CP_ACP)) {
 882         case CAL_ICALINTVALUE:
 883             if (CalType & CAL_RETURN_NUMBER)
 884                 return GetLocaleInfoW(Locale, LOCALE_RETURN_NUMBER | LOCALE_ICALENDARTYPE,
 885                         (LPWSTR)lpValue, 2);
 886             return GetLocaleInfoW(Locale, LOCALE_ICALENDARTYPE, lpCalData, cchData);
 887         case CAL_SCALNAME:
 888             FIXME("Unimplemented caltype %d\n", CalType & 0xffff);
 889             if (lpCalData) *lpCalData = 0;
 890             return 1;
 891         case CAL_IYEAROFFSETRANGE:
 892             FIXME("Unimplemented caltype %d\n", CalType & 0xffff);
 893             return 0;
 894         case CAL_SERASTRING:
 895             FIXME("Unimplemented caltype %d\n", CalType & 0xffff);
 896             return 0;
 897         case CAL_SSHORTDATE:
 898             return GetLocaleInfoW(Locale, LOCALE_SSHORTDATE, lpCalData, cchData);
 899         case CAL_SLONGDATE:
 900             return GetLocaleInfoW(Locale, LOCALE_SLONGDATE, lpCalData, cchData);
 901         case CAL_SDAYNAME1:
 902             return GetLocaleInfoW(Locale, LOCALE_SDAYNAME1, lpCalData, cchData);
 903         case CAL_SDAYNAME2:
 904             return GetLocaleInfoW(Locale, LOCALE_SDAYNAME2, lpCalData, cchData);
 905         case CAL_SDAYNAME3:
 906             return GetLocaleInfoW(Locale, LOCALE_SDAYNAME3, lpCalData, cchData);
 907         case CAL_SDAYNAME4:
 908             return GetLocaleInfoW(Locale, LOCALE_SDAYNAME4, lpCalData, cchData);
 909         case CAL_SDAYNAME5:
 910             return GetLocaleInfoW(Locale, LOCALE_SDAYNAME5, lpCalData, cchData);
 911         case CAL_SDAYNAME6:
 912             return GetLocaleInfoW(Locale, LOCALE_SDAYNAME6, lpCalData, cchData);
 913         case CAL_SDAYNAME7:
 914             return GetLocaleInfoW(Locale, LOCALE_SDAYNAME7, lpCalData, cchData);
 915         case CAL_SABBREVDAYNAME1:
 916             return GetLocaleInfoW(Locale, LOCALE_SABBREVDAYNAME1, lpCalData, cchData);
 917         case CAL_SABBREVDAYNAME2:
 918             return GetLocaleInfoW(Locale, LOCALE_SABBREVDAYNAME2, lpCalData, cchData);
 919         case CAL_SABBREVDAYNAME3:
 920             return GetLocaleInfoW(Locale, LOCALE_SABBREVDAYNAME3, lpCalData, cchData);
 921         case CAL_SABBREVDAYNAME4:
 922             return GetLocaleInfoW(Locale, LOCALE_SABBREVDAYNAME4, lpCalData, cchData);
 923         case CAL_SABBREVDAYNAME5:
 924             return GetLocaleInfoW(Locale, LOCALE_SABBREVDAYNAME5, lpCalData, cchData);
 925         case CAL_SABBREVDAYNAME6:
 926             return GetLocaleInfoW(Locale, LOCALE_SABBREVDAYNAME6, lpCalData, cchData);
 927         case CAL_SABBREVDAYNAME7:
 928             return GetLocaleInfoW(Locale, LOCALE_SABBREVDAYNAME7, lpCalData, cchData);
 929         case CAL_SMONTHNAME1:
 930             return GetLocaleInfoW(Locale, LOCALE_SMONTHNAME1, lpCalData, cchData);
 931         case CAL_SMONTHNAME2:
 932             return GetLocaleInfoW(Locale, LOCALE_SMONTHNAME2, lpCalData, cchData);
 933         case CAL_SMONTHNAME3:
 934             return GetLocaleInfoW(Locale, LOCALE_SMONTHNAME3, lpCalData, cchData);
 935         case CAL_SMONTHNAME4:
 936             return GetLocaleInfoW(Locale, LOCALE_SMONTHNAME4, lpCalData, cchData);
 937         case CAL_SMONTHNAME5:
 938             return GetLocaleInfoW(Locale, LOCALE_SMONTHNAME5, lpCalData, cchData);
 939         case CAL_SMONTHNAME6:
 940             return GetLocaleInfoW(Locale, LOCALE_SMONTHNAME6, lpCalData, cchData);
 941         case CAL_SMONTHNAME7:
 942             return GetLocaleInfoW(Locale, LOCALE_SMONTHNAME7, lpCalData, cchData);
 943         case CAL_SMONTHNAME8:
 944             return GetLocaleInfoW(Locale, LOCALE_SMONTHNAME8, lpCalData, cchData);
 945         case CAL_SMONTHNAME9:
 946             return GetLocaleInfoW(Locale, LOCALE_SMONTHNAME9, lpCalData, cchData);
 947         case CAL_SMONTHNAME10:
 948             return GetLocaleInfoW(Locale, LOCALE_SMONTHNAME10, lpCalData, cchData);
 949         case CAL_SMONTHNAME11:
 950             return GetLocaleInfoW(Locale, LOCALE_SMONTHNAME11, lpCalData, cchData);
 951         case CAL_SMONTHNAME12:
 952             return GetLocaleInfoW(Locale, LOCALE_SMONTHNAME12, lpCalData, cchData);
 953         case CAL_SMONTHNAME13:
 954             return GetLocaleInfoW(Locale, LOCALE_SMONTHNAME13, lpCalData, cchData);
 955         case CAL_SABBREVMONTHNAME1:
 956             return GetLocaleInfoW(Locale, LOCALE_SABBREVMONTHNAME1, lpCalData, cchData);
 957         case CAL_SABBREVMONTHNAME2:
 958             return GetLocaleInfoW(Locale, LOCALE_SABBREVMONTHNAME2, lpCalData, cchData);
 959         case CAL_SABBREVMONTHNAME3:
 960             return GetLocaleInfoW(Locale, LOCALE_SABBREVMONTHNAME3, lpCalData, cchData);
 961         case CAL_SABBREVMONTHNAME4:
 962             return GetLocaleInfoW(Locale, LOCALE_SABBREVMONTHNAME4, lpCalData, cchData);
 963         case CAL_SABBREVMONTHNAME5:
 964             return GetLocaleInfoW(Locale, LOCALE_SABBREVMONTHNAME5, lpCalData, cchData);
 965         case CAL_SABBREVMONTHNAME6:
 966             return GetLocaleInfoW(Locale, LOCALE_SABBREVMONTHNAME6, lpCalData, cchData);
 967         case CAL_SABBREVMONTHNAME7:
 968             return GetLocaleInfoW(Locale, LOCALE_SABBREVMONTHNAME7, lpCalData, cchData);
 969         case CAL_SABBREVMONTHNAME8:
 970             return GetLocaleInfoW(Locale, LOCALE_SABBREVMONTHNAME8, lpCalData, cchData);
 971         case CAL_SABBREVMONTHNAME9:
 972             return GetLocaleInfoW(Locale, LOCALE_SABBREVMONTHNAME9, lpCalData, cchData);
 973         case CAL_SABBREVMONTHNAME10:
 974             return GetLocaleInfoW(Locale, LOCALE_SABBREVMONTHNAME10, lpCalData, cchData);
 975         case CAL_SABBREVMONTHNAME11:
 976             return GetLocaleInfoW(Locale, LOCALE_SABBREVMONTHNAME11, lpCalData, cchData);
 977         case CAL_SABBREVMONTHNAME12:
 978             return GetLocaleInfoW(Locale, LOCALE_SABBREVMONTHNAME12, lpCalData, cchData);
 979         case CAL_SABBREVMONTHNAME13:
 980             return GetLocaleInfoW(Locale, LOCALE_SABBREVMONTHNAME13, lpCalData, cchData);
 981         case CAL_SYEARMONTH:
 982             return GetLocaleInfoW(Locale, LOCALE_SYEARMONTH, lpCalData, cchData);
 983         case CAL_ITWODIGITYEARMAX:
 984             if (CalType & CAL_RETURN_NUMBER)
 985             {
 986                 *lpValue = CALINFO_MAX_YEAR;
 987                 return sizeof(DWORD) / sizeof(WCHAR);
 988             }
 989             else
 990             {
 991                 static const WCHAR fmtW[] = {'%','u',0};
 992                 WCHAR buffer[10];
 993                 int ret = snprintfW( buffer, 10, fmtW, CALINFO_MAX_YEAR  ) + 1;
 994                 if (!lpCalData) return ret;
 995                 if (ret <= cchData)
 996                 {
 997                     strcpyW( lpCalData, buffer );
 998                     return ret;
 999                 }
1000                 SetLastError( ERROR_INSUFFICIENT_BUFFER );
1001                 return 0;
1002             }
1003             break;
1004         default:
1005             FIXME("Unknown caltype %d\n",CalType & 0xffff);
1006             SetLastError(ERROR_INVALID_FLAGS);
1007             return 0;
1008     }
1009     return 0;
1010 }
1011
1012 /*********************************************************************
1013  *      GetCalendarInfoEx                               (KERNEL32.@)
1014  */
1015 int WINAPI GetCalendarInfoEx(LPCWSTR locale, CALID calendar, LPCWSTR lpReserved, CALTYPE caltype,
1016     LPWSTR data, int len, DWORD *value)
1017 {
1018     LCID lcid = LocaleNameToLCID(locale, 0);
1019     FIXME("(%s, %d, %p, 0x%08x, %p, %d, %p): semi-stub\n", debugstr_w(locale), calendar, lpReserved, caltype,
1020         data, len, value);
1021     return GetCalendarInfoW(lcid, calendar, caltype, data, len, value);
1022 }
1023
1024 /*********************************************************************
1025  *      SetCalendarInfoA                                (KERNEL32.@)
1026  *
1027  */
1028 int WINAPI      SetCalendarInfoA(LCID Locale, CALID Calendar, CALTYPE CalType, LPCSTR lpCalData)
1029 {
1030     FIXME("(%08x,%08x,%08x,%s): stub\n",
1031           Locale, Calendar, CalType, debugstr_a(lpCalData));
1032     return 0;
1033 }
1034
1035 /*********************************************************************
1036  *      SetCalendarInfoW                                (KERNEL32.@)
1037  *
1038  *
1039  */
1040 int WINAPI      SetCalendarInfoW(LCID Locale, CALID Calendar, CALTYPE CalType, LPCWSTR lpCalData)
1041 {
1042     FIXME("(%08x,%08x,%08x,%s): stub\n",
1043           Locale, Calendar, CalType, debugstr_w(lpCalData));
1044     return 0;
1045 }
1046
1047 /*********************************************************************
1048  *      LocalFileTimeToFileTime                         (KERNEL32.@)
1049  */
1050 BOOL WINAPI LocalFileTimeToFileTime( const FILETIME *localft, LPFILETIME utcft )
1051 {
1052     NTSTATUS status;
1053     LARGE_INTEGER local, utc;
1054
1055     local.u.LowPart = localft->dwLowDateTime;
1056     local.u.HighPart = localft->dwHighDateTime;
1057     if (!(status = RtlLocalTimeToSystemTime( &local, &utc )))
1058     {
1059         utcft->dwLowDateTime = utc.u.LowPart;
1060         utcft->dwHighDateTime = utc.u.HighPart;
1061     }
1062     else SetLastError( RtlNtStatusToDosError(status) );
1063
1064     return !status;
1065 }
1066
1067 /*********************************************************************
1068  *      FileTimeToLocalFileTime                         (KERNEL32.@)
1069  */
1070 BOOL WINAPI FileTimeToLocalFileTime( const FILETIME *utcft, LPFILETIME localft )
1071 {
1072     NTSTATUS status;
1073     LARGE_INTEGER local, utc;
1074
1075     utc.u.LowPart = utcft->dwLowDateTime;
1076     utc.u.HighPart = utcft->dwHighDateTime;
1077     if (!(status = RtlSystemTimeToLocalTime( &utc, &local )))
1078     {
1079         localft->dwLowDateTime = local.u.LowPart;
1080         localft->dwHighDateTime = local.u.HighPart;
1081     }
1082     else SetLastError( RtlNtStatusToDosError(status) );
1083
1084     return !status;
1085 }
1086
1087 /*********************************************************************
1088  *      FileTimeToSystemTime                            (KERNEL32.@)
1089  */
1090 BOOL WINAPI FileTimeToSystemTime( const FILETIME *ft, LPSYSTEMTIME syst )
1091 {
1092     TIME_FIELDS tf;
1093     LARGE_INTEGER t;
1094
1095     t.u.LowPart = ft->dwLowDateTime;
1096     t.u.HighPart = ft->dwHighDateTime;
1097     RtlTimeToTimeFields(&t, &tf);
1098
1099     syst->wYear = tf.Year;
1100     syst->wMonth = tf.Month;
1101     syst->wDay = tf.Day;
1102     syst->wHour = tf.Hour;
1103     syst->wMinute = tf.Minute;
1104     syst->wSecond = tf.Second;
1105     syst->wMilliseconds = tf.Milliseconds;
1106     syst->wDayOfWeek = tf.Weekday;
1107     return TRUE;
1108 }
1109
1110 /*********************************************************************
1111  *      SystemTimeToFileTime                            (KERNEL32.@)
1112  */
1113 BOOL WINAPI SystemTimeToFileTime( const SYSTEMTIME *syst, LPFILETIME ft )
1114 {
1115     TIME_FIELDS tf;
1116     LARGE_INTEGER t;
1117
1118     tf.Year = syst->wYear;
1119     tf.Month = syst->wMonth;
1120     tf.Day = syst->wDay;
1121     tf.Hour = syst->wHour;
1122     tf.Minute = syst->wMinute;
1123     tf.Second = syst->wSecond;
1124     tf.Milliseconds = syst->wMilliseconds;
1125
1126     if( !RtlTimeFieldsToTime(&tf, &t)) {
1127         SetLastError( ERROR_INVALID_PARAMETER);
1128         return FALSE;
1129     }
1130     ft->dwLowDateTime = t.u.LowPart;
1131     ft->dwHighDateTime = t.u.HighPart;
1132     return TRUE;
1133 }
1134
1135 /*********************************************************************
1136  *      CompareFileTime                                 (KERNEL32.@)
1137  *
1138  * Compare two FILETIME's to each other.
1139  *
1140  * PARAMS
1141  *  x [I] First time
1142  *  y [I] time to compare to x
1143  *
1144  * RETURNS
1145  *  -1, 0, or 1 indicating that x is less than, equal to, or greater
1146  *  than y respectively.
1147  */
1148 INT WINAPI CompareFileTime( const FILETIME *x, const FILETIME *y )
1149 {
1150     if (!x || !y) return -1;
1151
1152     if (x->dwHighDateTime > y->dwHighDateTime)
1153         return 1;
1154     if (x->dwHighDateTime < y->dwHighDateTime)
1155         return -1;
1156     if (x->dwLowDateTime > y->dwLowDateTime)
1157         return 1;
1158     if (x->dwLowDateTime < y->dwLowDateTime)
1159         return -1;
1160     return 0;
1161 }
1162
1163 /*********************************************************************
1164  *      GetLocalTime                                    (KERNEL32.@)
1165  *
1166  * Get the current local time.
1167  *
1168  * PARAMS
1169  *  systime [O] Destination for current time.
1170  *
1171  * RETURNS
1172  *  Nothing.
1173  */
1174 VOID WINAPI GetLocalTime(LPSYSTEMTIME systime)
1175 {
1176     FILETIME lft;
1177     LARGE_INTEGER ft, ft2;
1178
1179     NtQuerySystemTime(&ft);
1180     RtlSystemTimeToLocalTime(&ft, &ft2);
1181     lft.dwLowDateTime = ft2.u.LowPart;
1182     lft.dwHighDateTime = ft2.u.HighPart;
1183     FileTimeToSystemTime(&lft, systime);
1184 }
1185
1186 /*********************************************************************
1187  *      GetSystemTime                                   (KERNEL32.@)
1188  *
1189  * Get the current system time.
1190  *
1191  * PARAMS
1192  *  systime [O] Destination for current time.
1193  *
1194  * RETURNS
1195  *  Nothing.
1196  */
1197 VOID WINAPI GetSystemTime(LPSYSTEMTIME systime)
1198 {
1199     FILETIME ft;
1200     LARGE_INTEGER t;
1201
1202     NtQuerySystemTime(&t);
1203     ft.dwLowDateTime = t.u.LowPart;
1204     ft.dwHighDateTime = t.u.HighPart;
1205     FileTimeToSystemTime(&ft, systime);
1206 }
1207
1208 /*********************************************************************
1209  *      GetDaylightFlag                                   (KERNEL32.@)
1210  *
1211  *  Specifies if daylight savings time is in operation.
1212  *
1213  * NOTES
1214  *  This function is called from the Win98's control applet timedate.cpl.
1215  *
1216  * RETURNS
1217  *  TRUE if daylight savings time is in operation.
1218  *  FALSE otherwise.
1219  */
1220 BOOL WINAPI GetDaylightFlag(void)
1221 {
1222     TIME_ZONE_INFORMATION tzinfo;
1223     return GetTimeZoneInformation( &tzinfo) == TIME_ZONE_ID_DAYLIGHT;
1224 }
1225
1226 /***********************************************************************
1227  *           DosDateTimeToFileTime   (KERNEL32.@)
1228  */
1229 BOOL WINAPI DosDateTimeToFileTime( WORD fatdate, WORD fattime, LPFILETIME ft)
1230 {
1231     struct tm newtm;
1232 #ifndef HAVE_TIMEGM
1233     struct tm *gtm;
1234     time_t time1, time2;
1235 #endif
1236
1237     newtm.tm_sec  = (fattime & 0x1f) * 2;
1238     newtm.tm_min  = (fattime >> 5) & 0x3f;
1239     newtm.tm_hour = (fattime >> 11);
1240     newtm.tm_mday = (fatdate & 0x1f);
1241     newtm.tm_mon  = ((fatdate >> 5) & 0x0f) - 1;
1242     newtm.tm_year = (fatdate >> 9) + 80;
1243     newtm.tm_isdst = -1;
1244 #ifdef HAVE_TIMEGM
1245     RtlSecondsSince1970ToTime( timegm(&newtm), (LARGE_INTEGER *)ft );
1246 #else
1247     time1 = mktime(&newtm);
1248     gtm = gmtime(&time1);
1249     time2 = mktime(gtm);
1250     RtlSecondsSince1970ToTime( 2*time1-time2, (LARGE_INTEGER *)ft );
1251 #endif
1252     return TRUE;
1253 }
1254
1255
1256 /***********************************************************************
1257  *           FileTimeToDosDateTime   (KERNEL32.@)
1258  */
1259 BOOL WINAPI FileTimeToDosDateTime( const FILETIME *ft, LPWORD fatdate,
1260                                      LPWORD fattime )
1261 {
1262     LARGE_INTEGER       li;
1263     ULONG               t;
1264     time_t              unixtime;
1265     struct tm*          tm;
1266
1267     if (!fatdate || !fattime)
1268     {
1269         SetLastError(ERROR_INVALID_PARAMETER);
1270         return FALSE;
1271     }
1272     li.u.LowPart = ft->dwLowDateTime;
1273     li.u.HighPart = ft->dwHighDateTime;
1274     if (!RtlTimeToSecondsSince1970( &li, &t ))
1275     {
1276         SetLastError(ERROR_INVALID_PARAMETER);
1277         return FALSE;
1278     }
1279     unixtime = t;
1280     tm = gmtime( &unixtime );
1281     if (fattime)
1282         *fattime = (tm->tm_hour << 11) + (tm->tm_min << 5) + (tm->tm_sec / 2);
1283     if (fatdate)
1284         *fatdate = ((tm->tm_year - 80) << 9) + ((tm->tm_mon + 1) << 5)
1285                    + tm->tm_mday;
1286     return TRUE;
1287 }
1288
1289 /*********************************************************************
1290  *      GetSystemTimes                                  (KERNEL32.@)
1291  *
1292  * Retrieves system timing information
1293  *
1294  * PARAMS
1295  *  lpIdleTime [O] Destination for idle time.
1296  *  lpKernelTime [O] Destination for kernel time.
1297  *  lpUserTime [O] Destination for user time.
1298  *
1299  * RETURNS
1300  *  TRUE if success, FALSE otherwise.
1301  */
1302 BOOL WINAPI GetSystemTimes(LPFILETIME lpIdleTime, LPFILETIME lpKernelTime, LPFILETIME lpUserTime)
1303 {
1304     LARGE_INTEGER idle_time, kernel_time, user_time;
1305     SYSTEM_PROCESSOR_PERFORMANCE_INFORMATION *sppi;
1306     SYSTEM_BASIC_INFORMATION sbi;
1307     NTSTATUS status;
1308     ULONG ret_size;
1309     int i;
1310
1311     TRACE("(%p,%p,%p)\n", lpIdleTime, lpKernelTime, lpUserTime);
1312
1313     status = NtQuerySystemInformation( SystemBasicInformation, &sbi, sizeof(sbi), &ret_size );
1314     if (status != STATUS_SUCCESS)
1315     {
1316         SetLastError( RtlNtStatusToDosError(status) );
1317         return FALSE;
1318     }
1319
1320     sppi = HeapAlloc( GetProcessHeap(), 0,
1321                       sizeof(SYSTEM_PROCESSOR_PERFORMANCE_INFORMATION) * sbi.NumberOfProcessors);
1322     if (!sppi)
1323     {
1324         SetLastError( ERROR_OUTOFMEMORY );
1325         return FALSE;
1326     }
1327
1328     status = NtQuerySystemInformation( SystemProcessorPerformanceInformation, sppi, sizeof(*sppi) * sbi.NumberOfProcessors,
1329                                        &ret_size );
1330     if (status != STATUS_SUCCESS)
1331     {
1332         HeapFree( GetProcessHeap(), 0, sppi );
1333         SetLastError( RtlNtStatusToDosError(status) );
1334         return FALSE;
1335     }
1336
1337     idle_time.QuadPart = 0;
1338     kernel_time.QuadPart = 0;
1339     user_time.QuadPart = 0;
1340     for (i = 0; i < sbi.NumberOfProcessors; i++)
1341     {
1342         idle_time.QuadPart += sppi[i].IdleTime.QuadPart;
1343         kernel_time.QuadPart += sppi[i].KernelTime.QuadPart;
1344         user_time.QuadPart += sppi[i].UserTime.QuadPart;
1345     }
1346
1347     if (lpIdleTime)
1348     {
1349         lpIdleTime->dwLowDateTime = idle_time.u.LowPart;
1350         lpIdleTime->dwHighDateTime = idle_time.u.HighPart;
1351     }
1352     if (lpKernelTime)
1353     {
1354         lpKernelTime->dwLowDateTime = kernel_time.u.LowPart;
1355         lpKernelTime->dwHighDateTime = kernel_time.u.HighPart;
1356     }
1357     if (lpUserTime)
1358     {
1359         lpUserTime->dwLowDateTime = user_time.u.LowPart;
1360         lpUserTime->dwHighDateTime = user_time.u.HighPart;
1361     }
1362
1363     HeapFree( GetProcessHeap(), 0, sppi );
1364     return TRUE;
1365 }
1366
1367 /***********************************************************************
1368  *           GetDynamicTimeZoneInformation   (KERNEL32.@)
1369  */
1370 DWORD WINAPI GetDynamicTimeZoneInformation(DYNAMIC_TIME_ZONE_INFORMATION *tzinfo)
1371 {
1372     NTSTATUS status;
1373
1374     status = RtlQueryDynamicTimeZoneInformation( (RTL_DYNAMIC_TIME_ZONE_INFORMATION*)tzinfo );
1375     if ( status != STATUS_SUCCESS )
1376     {
1377         SetLastError( RtlNtStatusToDosError(status) );
1378         return TIME_ZONE_ID_INVALID;
1379     }
1380     return TIME_ZoneID( (TIME_ZONE_INFORMATION*)tzinfo );
1381 }
1382
1383 /***********************************************************************
1384  *           QueryThreadCycleTime   (KERNEL32.@)
1385  */
1386 BOOL WINAPI QueryThreadCycleTime(HANDLE thread, PULONG64 cycle)
1387 {
1388     static int once;
1389     if (!once++)
1390         FIXME("(%p,%p): stub!\n", thread, cycle);
1391     SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
1392     return FALSE;
1393 }
1394
1395 /***********************************************************************
1396  *           QueryUnbiasedInterruptTime   (KERNEL32.@)
1397  */
1398 BOOL WINAPI QueryUnbiasedInterruptTime(ULONGLONG *time)
1399 {
1400     TRACE("(%p)\n", time);
1401     if (!time) return FALSE;
1402     RtlQueryUnbiasedInterruptTime(time);
1403     return TRUE;
1404 }