dlls/kernel/time.c

   1 /*
   2  * Win32 kernel 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., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  19  */
  20
  21 #include "config.h"
  22
  23 #include <string.h>
  24 #include <unistd.h>
  25 #include <stdlib.h>
  26 #include <sys/time.h>
  27 #include <sys/times.h>
  28 #include "file.h"
  29 #include "ntddk.h"
  30 #include "winerror.h"
  31 #include "winnls.h"
  32 #include "wine/unicode.h"
  33 #include "wine/debug.h"
  34
  35 WINE_DEFAULT_DEBUG_CHANNEL(win32);
  36
  37 /* maximum time adjustment in seconds for SetLocalTime and SetSystemTime */
  38 #define SETTIME_MAX_ADJUST 120
  39
  40
  41 /* This structure is used to store strings that represent all of the time zones
  42    in the world. (This is used to help GetTimeZoneInformation)
  43 */
  44 struct tagTZ_INFO
  45 {
  46     const char *psTZFromUnix;
  47     WCHAR psTZWindows[32];
  48     int bias;
  49     int dst;
  50 };
  51
  52 static const struct tagTZ_INFO TZ_INFO[] =
  53 {
  54    {"MHT",
  55     {'D','a','t','e','l','i','n','e',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
  56     -720, 0},
  57    {"SST",
  58     {'S','a','m','o','a',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
  59     660, 0},
  60    {"HST",
  61     {'H','a','w','a','i','i','a','n',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
  62     600, 0},
  63    {"AKDT",
  64     {'A','l','a','s','k','a','n',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
  65     480, 1},
  66    {"PDT",
  67     {'P','a','c','i','f','i','c',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
  68     420, 1},
  69    {"MST",
  70     {'U','S',' ','M','o','u','n','t','a','i','n',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
  71     420, 0},
  72    {"MDT",
  73     {'M','o','u','n','t','a','i','n',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
  74     360, 1},
  75    {"CST",
  76     {'C','e','n','t','r','a','l',' ','A','m','e','r','i','c','a',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
  77     360, 0},
  78    {"CDT",
  79     {'C','e','n','t','r','a','l',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
  80     300, 1},
  81    {"COT",
  82     {'S','A',' ','P','a','c','i','f','i','c',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
  83     300, 0},
  84    {"EDT",
  85     {'E','a','s','t','e','r','n',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
  86      240, 1},
  87    {"EST",
  88     {'U','S',' ','E','a','s','t','e','r','n',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
  89     300, 0},
  90    {"ADT",
  91     {'A','t','l','a','n','t','i','c',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
  92     180, 1},
  93    {"VET",
  94     {'S','A',' ','W','e','s','t','e','r','n',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
  95      240, 0},
  96    {"CLT",
  97     {'P','a','c','i','f','i','c',' ','S','A',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
  98      240, 0},
  99    {"NDT",
 100     {'N','e','w','f','o','u','n','d','l','a','n','d',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 101     150, 1},
 102    {"BRT",
 103     {'E','.',' ','S','o','u','t','h',' ','A','m','e','r','i','c','a',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 104     180, 0},
 105    {"ART",
 106     {'S','A',' ','E','a','s','t','e','r','n',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 107     180, 0},
 108    {"WGST",
 109     {'G','r','e','e','n','l','a','n','d',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 110     120, 1},
 111    {"GST",
 112     {'M','i','d','-','A','t','l','a','n','t','i','c',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 113     120, 0},
 114    {"AZOST",
 115     {'A','z','o','r','e','s',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 116     0, 1},
 117    {"CVT",
 118     {'C','a','p','e',' ','V','e','r','d','e',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 119     60, 0},
 120    {"WET",
 121     {'G','r','e','e','n','w','i','c','h',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 122     0, 0},
 123    {"BST",
 124     {'G','M','T',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 125     -60, 1},
 126    {"GMT",
 127     {'G','M','T',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 128     0, 0},
 129    {"CEST",
 130     {'C','e','n','t','r','a','l',' ','E','u','r','o','p','e',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 131     -120, 1},
 132    {"WAT",
 133     {'W','.',' ','C','e','n','t','r','a','l',' ','A','f','r','i','c','a',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 134     -60, 0},
 135    {"EEST",
 136     {'E','.',' ','E','u','r','o','p','e',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 137     -180, 1},
 138    {"EET",
 139     {'E','g','y','p','t',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 140     -120, 0},
 141    {"CAT",
 142     {'S','o','u','t','h',' ','A','f','r','i','c','a',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 143     -120, 0},
 144    {"IST",
 145     {'I','s','r','a','e','l',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 146     -120, 0},
 147    {"ADT",
 148     {'A','r','a','b','i','c',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 149     -240, 1},
 150    {"AST",
 151     {'A','r','a','b',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 152     -180, 0},
 153    {"MSD",
 154     {'R','u','s','s','i','a','n',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 155     -240, 1},
 156    {"EAT",
 157     {'E','.',' ','A','f','r','i','c','a',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 158     -180, 0},
 159    {"IRST",
 160     {'I','r','a','n',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 161     -270, 1},
 162    {"GST",
 163     {'A','r','a','b','i','a','n',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 164     -240, 0},
 165    {"AZST",
 166     {'C','a','u','c','a','s','u','s',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 167     -300, 1},
 168    {"AFT",
 169     {'A','f','g','h','a','n','i','s','t','a','n',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 170     -270, 0},
 171    {"YEKST",
 172     {'E','k','a','t','e','r','i','n','b','u','r','g',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 173     -360, 1},
 174    {"PKT",
 175     {'W','e','s','t',' ','A','s','i','a',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 176     -300, 0},
 177    {"IST",
 178     {'I','n','d','i','a',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 179     -330, 0},
 180    {"NPT",
 181     {'N','e','p','a','l',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 182     -345, 0},
 183    {"ALMST",
 184     {'N','.',' ','C','e','n','t','r','a','l',' ','A','s','i','a',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 185     -420, 1},
 186    {"BDT",
 187     {'C','e','n','t','r','a','l',' ','A','s','i','a',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 188     -360, 0},
 189    {"LKT",
 190     {'S','r','i',' ','L','a','n','k','a',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 191     -360, 0},
 192    {"MMT",
 193     {'M','y','a','n','m','a','r',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 194     -390, 0},
 195    {"ICT",
 196     {'S','E',' ','A','s','i','a',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 197     -420, 0},
 198    {"KRAST",
 199     {'N','o','r','t','h',' ','A','s','i','a',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 200     -480, 1},
 201    {"CST",
 202     {'C','h','i','n','a',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 203     -480, 0},
 204    {"IRKST",
 205     {'N','o','r','t','h',' ','A','s','i','a',' ','E','a','s','t',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 206     -540, 1},
 207    {"SGT",
 208     {'M','a','l','a','y',' ','P','e','n','i','n','s','u','l','a',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 209     -480, 0},
 210    {"WST",
 211     {'W','.',' ','A','u','s','t','r','a','l','i','a',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 212     -480, 0},
 213    {"JST",
 214     {'T','o','k','y','o',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 215     -540, 0},
 216    {"KST",
 217     {'K','o','r','e','a',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 218     -540, 0},
 219    {"YAKST",
 220     {'Y','a','k','u','t','s','k',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 221     -600, 1},
 222    {"CST",
 223     {'C','e','n','.',' ','A','u','s','t','r','a','l','i','a',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 224     -570, 0},
 225    {"EST",
 226     {'E','.',' ','A','u','s','t','r','a','l','i','a',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 227     -600, 0},
 228    {"GST",
 229     {'W','e','s','t',' ','P','a','c','i','f','i','c',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 230     -600, 0},
 231    {"VLAST",
 232     {'V','l','a','d','i','v','o','s','t','o','k',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 233     -660, 1},
 234    {"MAGST",
 235     {'C','e','n','t','r','a','l',' ','P','a','c','i','f','i','c',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 236     -720, 1},
 237    {"NZST",
 238     {'N','e','w',' ','Z','e','a','l','a','n','d',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 239     -720, 0},
 240    {"FJT",
 241     {'F','i','j','i',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 242     -720, 0},
 243    {"TOT",
 244     {'T','o','n','g','a',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
 245     -780, 0}
 246 };
 247
 248 /* TIME_GetTZAsStr: helper function that returns the given timezone as a string.
 249    This could be done with a hash table instead of merely iterating through
 250    a table, however with the small amount of entries (60 or so) I didn't think
 251    it was worth it. */
 252 static const WCHAR* TIME_GetTZAsStr (time_t utc, int bias, int dst)
 253 {
 254    char psTZName[7];
 255    struct tm *ptm = localtime(&utc);
 256    int i;
 257
 258    if (!strftime (psTZName, 7, "%Z", ptm))
 259       return (NULL);
 260
 261    for (i=0; i<(sizeof(TZ_INFO) / sizeof(struct tagTZ_INFO)); i++)
 262    {
 263       if ( strcmp(TZ_INFO[i].psTZFromUnix, psTZName) == 0 &&
 264            TZ_INFO[i].bias == bias &&
 265            TZ_INFO[i].dst == dst
 266          )
 267             return TZ_INFO[i].psTZWindows;
 268    }
 269
 270    return (NULL);
 271 }
 272
 273
 274 /* TIME_GetBias: helper function calculates delta local time from UTC */
 275 static int TIME_GetBias( time_t utc, int *pdaylight)
 276 {
 277     struct tm *ptm = localtime(&utc);
 278     *pdaylight = ptm->tm_isdst; /* daylight for local timezone */
 279     ptm = gmtime(&utc);
 280     ptm->tm_isdst = *pdaylight; /* use local daylight, not that of Greenwich */
 281     return (int)(utc-mktime(ptm));
 282 }
 283
 284
 285 /***********************************************************************
 286  *              SetLocalTime            (KERNEL32.@)
 287  *
 288  *  Sets the local time using current time zone and daylight
 289  *  savings settings.
 290  *
 291  * RETURNS
 292  *
 293  *  True if the time was set, false if the time was invalid or the
 294  *  necessary permissions were not held.
 295  */
 296 BOOL WINAPI SetLocalTime(
 297     const SYSTEMTIME *systime) /* [in] The desired local time. */
 298 {
 299     struct timeval tv;
 300     struct tm t;
 301     time_t sec;
 302     time_t oldsec=time(NULL);
 303     int err;
 304
 305     /* get the number of seconds */
 306     t.tm_sec = systime->wSecond;
 307     t.tm_min = systime->wMinute;
 308     t.tm_hour = systime->wHour;
 309     t.tm_mday = systime->wDay;
 310     t.tm_mon = systime->wMonth - 1;
 311     t.tm_year = systime->wYear - 1900;
 312     t.tm_isdst = -1;
 313     sec = mktime (&t);
 314
 315     /* set the new time */
 316     tv.tv_sec = sec;
 317     tv.tv_usec = systime->wMilliseconds * 1000;
 318
 319     /* error and sanity check*/
 320     if( sec == (time_t)-1 || abs((int)(sec-oldsec)) > SETTIME_MAX_ADJUST ){
 321         err = 1;
 322         SetLastError(ERROR_INVALID_PARAMETER);
 323     } else {
 324 #ifdef HAVE_SETTIMEOFDAY
 325         err=settimeofday(&tv, NULL); /* 0 is OK, -1 is error */
 326         if(err == 0)
 327             return TRUE;
 328         SetLastError(ERROR_PRIVILEGE_NOT_HELD);
 329 #else
 330         err = 1;
 331         SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
 332 #endif
 333     }
 334     ERR("Cannot set time to %d/%d/%d %d:%d:%d Time adjustment %ld %s\n",
 335             systime->wYear, systime->wMonth, systime->wDay, systime->wHour,
 336             systime->wMinute, systime->wSecond,
 337             sec-oldsec, err == -1 ? "No Permission" :
 338                 sec==(time_t)-1 ? "" : "is too large." );
 339     return FALSE;
 340 }
 341
 342
 343 /***********************************************************************
 344  *           GetSystemTimeAdjustment     (KERNEL32.@)
 345  *
 346  *  Indicates the period between clock interrupt and the amount the clock
 347  *  is adjusted each interrupt so as to keep it insync with an external source.
 348  *
 349  * RETURNS
 350  *
 351  *  Always returns true.
 352  *
 353  * BUGS
 354  *
 355  *  Only the special case of disabled time adjustments is supported.
 356  */
 357 BOOL WINAPI GetSystemTimeAdjustment(
 358     PDWORD lpTimeAdjustment,         /* [out] The clock adjustment per interupt in 100's of nanoseconds. */
 359     PDWORD lpTimeIncrement,          /* [out] The time between clock interupts in 100's of nanoseconds. */
 360     PBOOL  lpTimeAdjustmentDisabled) /* [out] The clock synchonisation has been disabled. */
 361 {
 362     *lpTimeAdjustment = 0;
 363     *lpTimeIncrement = 0;
 364     *lpTimeAdjustmentDisabled = TRUE;
 365     return TRUE;
 366 }
 367
 368
 369 /***********************************************************************
 370  *              SetSystemTime            (KERNEL32.@)
 371  *
 372  *  Sets the system time (utc).
 373  *
 374  * RETURNS
 375  *
 376  *  True if the time was set, false if the time was invalid or the
 377  *  necessary permissions were not held.
 378  */
 379 BOOL WINAPI SetSystemTime(
 380     const SYSTEMTIME *systime) /* [in] The desired system time. */
 381 {
 382     struct timeval tv;
 383     struct timezone tz;
 384     struct tm t;
 385     time_t sec, oldsec;
 386     int dst, bias;
 387     int err;
 388
 389     /* call gettimeofday to get the current timezone */
 390     gettimeofday(&tv, &tz);
 391     oldsec=tv.tv_sec;
 392     /* get delta local time from utc */
 393     bias=TIME_GetBias(oldsec,&dst);
 394
 395     /* get the number of seconds */
 396     t.tm_sec = systime->wSecond;
 397     t.tm_min = systime->wMinute;
 398     t.tm_hour = systime->wHour;
 399     t.tm_mday = systime->wDay;
 400     t.tm_mon = systime->wMonth - 1;
 401     t.tm_year = systime->wYear - 1900;
 402     t.tm_isdst = dst;
 403     sec = mktime (&t);
 404     /* correct for timezone and daylight */
 405     sec += bias;
 406
 407     /* set the new time */
 408     tv.tv_sec = sec;
 409     tv.tv_usec = systime->wMilliseconds * 1000;
 410
 411     /* error and sanity check*/
 412     if( sec == (time_t)-1 || abs((int)(sec-oldsec)) > SETTIME_MAX_ADJUST ){
 413         err = 1;
 414         SetLastError(ERROR_INVALID_PARAMETER);
 415     } else {
 416 #ifdef HAVE_SETTIMEOFDAY
 417         err=settimeofday(&tv, NULL); /* 0 is OK, -1 is error */
 418         if(err == 0)
 419             return TRUE;
 420         SetLastError(ERROR_PRIVILEGE_NOT_HELD);
 421 #else
 422         err = 1;
 423         SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
 424 #endif
 425     }
 426     ERR("Cannot set time to %d/%d/%d %d:%d:%d Time adjustment %ld %s\n",
 427             systime->wYear, systime->wMonth, systime->wDay, systime->wHour,
 428             systime->wMinute, systime->wSecond,
 429             sec-oldsec, err == -1 ? "No Permission" :
 430                 sec==(time_t)-1 ? "" : "is too large." );
 431     return FALSE;
 432 }
 433
 434
 435 /***********************************************************************
 436  *              GetTimeZoneInformation  (KERNEL32.@)
 437  *
 438  *  Fills in the a time zone information structure with values based on
 439  *  the current local time.
 440  *
 441  * RETURNS
 442  *
 443  *  The daylight savings time standard or TIME_ZONE_ID_INVALID if the call failed.
 444  */
 445 DWORD WINAPI GetTimeZoneInformation(
 446     LPTIME_ZONE_INFORMATION tzinfo) /* [out] The time zone structure to be filled in. */
 447 {
 448     time_t gmt;
 449     int bias, daylight;
 450     const WCHAR *psTZ;
 451
 452
 453     memset(tzinfo, 0, sizeof(TIME_ZONE_INFORMATION));
 454
 455     gmt = time(NULL);
 456     bias=TIME_GetBias(gmt,&daylight);
 457
 458     tzinfo->Bias = -bias / 60;
 459     tzinfo->StandardBias = 0;
 460     tzinfo->DaylightBias = -60;
 461     psTZ = TIME_GetTZAsStr (gmt, (-bias/60), daylight);
 462     if (psTZ) strcpyW( tzinfo->StandardName, psTZ );
 463     return TIME_ZONE_ID_STANDARD;
 464 }
 465
 466
 467 /***********************************************************************
 468  *              SetTimeZoneInformation  (KERNEL32.@)
 469  *
 470  *  Set the local time zone with values based on the time zone structure.
 471  *
 472  * RETURNS
 473  *
 474  *  True on successful setting of the time zone.
 475  *
 476  * BUGS
 477  *
 478  *  Use the obsolete unix timezone structure and tz_dsttime member.
 479  */
 480 BOOL WINAPI SetTimeZoneInformation(
 481     const LPTIME_ZONE_INFORMATION tzinfo) /* [in] The new time zone. */
 482 {
 483     struct timezone tz;
 484
 485     tz.tz_minuteswest = tzinfo->Bias;
 486 #ifdef DST_NONE
 487     tz.tz_dsttime = DST_NONE;
 488 #else
 489     tz.tz_dsttime = 0;
 490 #endif
 491     return !settimeofday(NULL, &tz);
 492 }
 493
 494
 495 /***********************************************************************
 496  *              SystemTimeToTzSpecificLocalTime  (KERNEL32.@)
 497  *
 498  *  Converts the system time (utc) to the local time in the specified time zone.
 499  *
 500  * RETURNS
 501  *
 502  *  Returns true when the local time was calculated.
 503  *
 504  * BUGS
 505  *
 506  *  Does not handle daylight savings time adjustments correctly.
 507  */
 508 BOOL WINAPI SystemTimeToTzSpecificLocalTime(
 509     LPTIME_ZONE_INFORMATION lpTimeZoneInformation, /* [in] The desired time zone. */
 510     LPSYSTEMTIME            lpUniversalTime,       /* [in] The utc time to base local time on. */
 511     LPSYSTEMTIME            lpLocalTime)           /* [out] The local time in the time zone. */
 512 {
 513   FIXME(":stub\n");
 514   SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
 515        return FALSE;
 516 }
 517
 518
 519 /***********************************************************************
 520  *              GetSystemTimeAsFileTime  (KERNEL32.@)
 521  *
 522  *  Fills in a file time structure with the current time in UTC format.
 523  */
 524 VOID WINAPI GetSystemTimeAsFileTime(
 525     LPFILETIME time) /* [out] The file time struct to be filled with the system time. */
 526 {
 527     NtQuerySystemTime( (LARGE_INTEGER *)time );
 528 }
 529
 530
 531 /*********************************************************************
 532  *      TIME_ClockTimeToFileTime    (olorin@fandra.org, 20-Sep-1998)
 533  *
 534  *  Used by GetProcessTimes to convert clock_t into FILETIME.
 535  *
 536  *      Differences to UnixTimeToFileTime:
 537  *          1) Divided by CLK_TCK
 538  *          2) Time is relative. There is no 'starting date', so there is
 539  *             no need in offset correction, like in UnixTimeToFileTime
 540  */
 541 static void TIME_ClockTimeToFileTime(clock_t unix_time, LPFILETIME filetime)
 542 {
 543     ULONGLONG secs = RtlEnlargedUnsignedMultiply( unix_time, 10000000 );
 544     secs = RtlExtendedLargeIntegerDivide( secs, CLK_TCK, NULL );
 545     filetime->dwLowDateTime  = (DWORD)secs;
 546     filetime->dwHighDateTime = (DWORD)(secs >> 32);
 547 }
 548
 549 /*********************************************************************
 550  *      GetProcessTimes                         (KERNEL32.@)
 551  *
 552  *  Returns the user and kernel execution times of a process,
 553  *  along with the creation and exit times if known.
 554  *
 555  *  olorin@fandra.org:
 556  *  Would be nice to subtract the cpu time, used by Wine at startup.
 557  *  Also, there is a need to separate times used by different applications.
 558  *
 559  * RETURNS
 560  *
 561  *  Always returns true.
 562  *
 563  * BUGS
 564  *
 565  *  lpCreationTime, lpExitTime are NOT INITIALIZED.
 566  */
 567 BOOL WINAPI GetProcessTimes(
 568     HANDLE     hprocess,       /* [in] The process to be queried (obtained from PROCESS_QUERY_INFORMATION). */
 569     LPFILETIME lpCreationTime, /* [out] The creation time of the process. */
 570     LPFILETIME lpExitTime,     /* [out] The exit time of the process if exited. */
 571     LPFILETIME lpKernelTime,   /* [out] The time spent in kernal routines in 100's of nanoseconds. */
 572     LPFILETIME lpUserTime)     /* [out] The time spent in user routines in 100's of nanoseconds. */
 573 {
 574     struct tms tms;
 575
 576     times(&tms);
 577     TIME_ClockTimeToFileTime(tms.tms_utime,lpUserTime);
 578     TIME_ClockTimeToFileTime(tms.tms_stime,lpKernelTime);
 579     return TRUE;
 580 }
 581
 582 /*********************************************************************
 583  *      GetCalendarInfoA                                (KERNEL32.@)
 584  *
 585  */
 586 int WINAPI GetCalendarInfoA(LCID Locale, CALID Calendar, CALTYPE CalType,
 587                             LPSTR lpCalData, int cchData, LPDWORD lpValue)
 588 {
 589     int ret;
 590     LPWSTR lpCalDataW = NULL;
 591
 592     FIXME("(%08lx,%08lx,%08lx,%p,%d,%p): quarter-stub\n",
 593           Locale, Calendar, CalType, lpCalData, cchData, lpValue);
 594     /* FIXME: Should verify if Locale is allowable in ANSI, as per MSDN */
 595
 596     if(cchData)
 597       if(!(lpCalDataW = HeapAlloc(GetProcessHeap(), 0, cchData*sizeof(WCHAR)))) return 0;
 598
 599     ret = GetCalendarInfoW(Locale, Calendar, CalType, lpCalDataW, cchData, lpValue);
 600     if(ret && lpCalDataW && lpCalData)
 601       WideCharToMultiByte(CP_ACP, 0, lpCalDataW, cchData, lpCalData, cchData, NULL, NULL);
 602     if(lpCalDataW)
 603       HeapFree(GetProcessHeap(), 0, lpCalDataW);
 604
 605     return ret;
 606 }
 607
 608 /*********************************************************************
 609  *      GetCalendarInfoW                                (KERNEL32.@)
 610  *
 611  */
 612 int WINAPI GetCalendarInfoW(LCID Locale, CALID Calendar, CALTYPE CalType,
 613                             LPWSTR lpCalData, int cchData, LPDWORD lpValue)
 614 {
 615     FIXME("(%08lx,%08lx,%08lx,%p,%d,%p): quarter-stub\n",
 616           Locale, Calendar, CalType, lpCalData, cchData, lpValue);
 617
 618     if (CalType & CAL_NOUSEROVERRIDE)
 619         FIXME("flag CAL_NOUSEROVERRIDE used, not fully implemented\n");
 620     if (CalType & CAL_USE_CP_ACP)
 621         FIXME("flag CAL_USE_CP_ACP used, not fully implemented\n");
 622
 623     if (CalType & CAL_RETURN_NUMBER) {
 624         if (lpCalData != NULL)
 625             WARN("lpCalData not NULL (%p) when it should!\n", lpCalData);
 626         if (cchData != 0)
 627             WARN("cchData not 0 (%d) when it should!\n", cchData);
 628     } else {
 629         if (lpValue != NULL)
 630             WARN("lpValue not NULL (%p) when it should!\n", lpValue);
 631     }
 632
 633     /* FIXME: No verification is made yet wrt Locale
 634      * for the CALTYPES not requiring GetLocaleInfoA */
 635     switch (CalType & ~(CAL_NOUSEROVERRIDE|CAL_RETURN_NUMBER|CAL_USE_CP_ACP)) {
 636         case CAL_ICALINTVALUE:
 637             FIXME("Unimplemented caltype %ld\n", CalType & 0xffff);
 638             return E_FAIL;
 639         case CAL_SCALNAME:
 640             FIXME("Unimplemented caltype %ld\n", CalType & 0xffff);
 641             return E_FAIL;
 642         case CAL_IYEAROFFSETRANGE:
 643             FIXME("Unimplemented caltype %ld\n", CalType & 0xffff);
 644             return E_FAIL;
 645         case CAL_SERASTRING:
 646             FIXME("Unimplemented caltype %ld\n", CalType & 0xffff);
 647             return E_FAIL;
 648         case CAL_SSHORTDATE:
 649             return GetLocaleInfoW(Locale, LOCALE_SSHORTDATE, lpCalData, cchData);
 650         case CAL_SLONGDATE:
 651             return GetLocaleInfoW(Locale, LOCALE_SLONGDATE, lpCalData, cchData);
 652         case CAL_SDAYNAME1:
 653             return GetLocaleInfoW(Locale, LOCALE_SDAYNAME1, lpCalData, cchData);
 654         case CAL_SDAYNAME2:
 655             return GetLocaleInfoW(Locale, LOCALE_SDAYNAME2, lpCalData, cchData);
 656         case CAL_SDAYNAME3:
 657             return GetLocaleInfoW(Locale, LOCALE_SDAYNAME3, lpCalData, cchData);
 658         case CAL_SDAYNAME4:
 659             return GetLocaleInfoW(Locale, LOCALE_SDAYNAME4, lpCalData, cchData);
 660         case CAL_SDAYNAME5:
 661             return GetLocaleInfoW(Locale, LOCALE_SDAYNAME5, lpCalData, cchData);
 662         case CAL_SDAYNAME6:
 663             return GetLocaleInfoW(Locale, LOCALE_SDAYNAME6, lpCalData, cchData);
 664         case CAL_SDAYNAME7:
 665             return GetLocaleInfoW(Locale, LOCALE_SDAYNAME7, lpCalData, cchData);
 666         case CAL_SABBREVDAYNAME1:
 667             return GetLocaleInfoW(Locale, LOCALE_SABBREVDAYNAME1, lpCalData, cchData);
 668         case CAL_SABBREVDAYNAME2:
 669             return GetLocaleInfoW(Locale, LOCALE_SABBREVDAYNAME2, lpCalData, cchData);
 670         case CAL_SABBREVDAYNAME3:
 671             return GetLocaleInfoW(Locale, LOCALE_SABBREVDAYNAME3, lpCalData, cchData);
 672         case CAL_SABBREVDAYNAME4:
 673             return GetLocaleInfoW(Locale, LOCALE_SABBREVDAYNAME4, lpCalData, cchData);
 674         case CAL_SABBREVDAYNAME5:
 675             return GetLocaleInfoW(Locale, LOCALE_SABBREVDAYNAME5, lpCalData, cchData);
 676         case CAL_SABBREVDAYNAME6:
 677             return GetLocaleInfoW(Locale, LOCALE_SABBREVDAYNAME6, lpCalData, cchData);
 678         case CAL_SABBREVDAYNAME7:
 679             return GetLocaleInfoW(Locale, LOCALE_SABBREVDAYNAME7, lpCalData, cchData);
 680         case CAL_SMONTHNAME1:
 681             return GetLocaleInfoW(Locale, LOCALE_SMONTHNAME1, lpCalData, cchData);
 682         case CAL_SMONTHNAME2:
 683             return GetLocaleInfoW(Locale, LOCALE_SMONTHNAME2, lpCalData, cchData);
 684         case CAL_SMONTHNAME3:
 685             return GetLocaleInfoW(Locale, LOCALE_SMONTHNAME3, lpCalData, cchData);
 686         case CAL_SMONTHNAME4:
 687             return GetLocaleInfoW(Locale, LOCALE_SMONTHNAME4, lpCalData, cchData);
 688         case CAL_SMONTHNAME5:
 689             return GetLocaleInfoW(Locale, LOCALE_SMONTHNAME5, lpCalData, cchData);
 690         case CAL_SMONTHNAME6:
 691             return GetLocaleInfoW(Locale, LOCALE_SMONTHNAME6, lpCalData, cchData);
 692         case CAL_SMONTHNAME7:
 693             return GetLocaleInfoW(Locale, LOCALE_SMONTHNAME7, lpCalData, cchData);
 694         case CAL_SMONTHNAME8:
 695             return GetLocaleInfoW(Locale, LOCALE_SMONTHNAME8, lpCalData, cchData);
 696         case CAL_SMONTHNAME9:
 697             return GetLocaleInfoW(Locale, LOCALE_SMONTHNAME9, lpCalData, cchData);
 698         case CAL_SMONTHNAME10:
 699             return GetLocaleInfoW(Locale, LOCALE_SMONTHNAME10, lpCalData, cchData);
 700         case CAL_SMONTHNAME11:
 701             return GetLocaleInfoW(Locale, LOCALE_SMONTHNAME11, lpCalData, cchData);
 702         case CAL_SMONTHNAME12:
 703             return GetLocaleInfoW(Locale, LOCALE_SMONTHNAME12, lpCalData, cchData);
 704         case CAL_SMONTHNAME13:
 705             return GetLocaleInfoW(Locale, LOCALE_SMONTHNAME13, lpCalData, cchData);
 706         case CAL_SABBREVMONTHNAME1:
 707             return GetLocaleInfoW(Locale, LOCALE_SABBREVMONTHNAME1, lpCalData, cchData);
 708         case CAL_SABBREVMONTHNAME2:
 709             return GetLocaleInfoW(Locale, LOCALE_SABBREVMONTHNAME2, lpCalData, cchData);
 710         case CAL_SABBREVMONTHNAME3:
 711             return GetLocaleInfoW(Locale, LOCALE_SABBREVMONTHNAME3, lpCalData, cchData);
 712         case CAL_SABBREVMONTHNAME4:
 713             return GetLocaleInfoW(Locale, LOCALE_SABBREVMONTHNAME4, lpCalData, cchData);
 714         case CAL_SABBREVMONTHNAME5:
 715             return GetLocaleInfoW(Locale, LOCALE_SABBREVMONTHNAME5, lpCalData, cchData);
 716         case CAL_SABBREVMONTHNAME6:
 717             return GetLocaleInfoW(Locale, LOCALE_SABBREVMONTHNAME6, lpCalData, cchData);
 718         case CAL_SABBREVMONTHNAME7:
 719             return GetLocaleInfoW(Locale, LOCALE_SABBREVMONTHNAME7, lpCalData, cchData);
 720         case CAL_SABBREVMONTHNAME8:
 721             return GetLocaleInfoW(Locale, LOCALE_SABBREVMONTHNAME8, lpCalData, cchData);
 722         case CAL_SABBREVMONTHNAME9:
 723             return GetLocaleInfoW(Locale, LOCALE_SABBREVMONTHNAME9, lpCalData, cchData);
 724         case CAL_SABBREVMONTHNAME10:
 725             return GetLocaleInfoW(Locale, LOCALE_SABBREVMONTHNAME10, lpCalData, cchData);
 726         case CAL_SABBREVMONTHNAME11:
 727             return GetLocaleInfoW(Locale, LOCALE_SABBREVMONTHNAME11, lpCalData, cchData);
 728         case CAL_SABBREVMONTHNAME12:
 729             return GetLocaleInfoW(Locale, LOCALE_SABBREVMONTHNAME12, lpCalData, cchData);
 730         case CAL_SABBREVMONTHNAME13:
 731             return GetLocaleInfoW(Locale, LOCALE_SABBREVMONTHNAME13, lpCalData, cchData);
 732         case CAL_SYEARMONTH:
 733             return GetLocaleInfoW(Locale, LOCALE_SYEARMONTH, lpCalData, cchData);
 734         case CAL_ITWODIGITYEARMAX:
 735             FIXME("Unimplemented caltype %ld\n", CalType & 0xffff);
 736             return E_FAIL;
 737         default: MESSAGE("Unknown caltype %ld\n",CalType & 0xffff);
 738                  return E_FAIL;
 739     }
 740     return 0;
 741 }
 742
 743 /*********************************************************************
 744  *      SetCalendarInfoA                                (KERNEL32.@)
 745  *
 746  */
 747 int WINAPI      SetCalendarInfoA(LCID Locale, CALID Calendar, CALTYPE CalType, LPCSTR lpCalData)
 748 {
 749     FIXME("(%08lx,%08lx,%08lx,%s): stub\n",
 750           Locale, Calendar, CalType, debugstr_a(lpCalData));
 751     return 0;
 752 }
 753
 754 /*********************************************************************
 755  *      SetCalendarInfoW                                (KERNEL32.@)
 756  *
 757  */
 758 int WINAPI      SetCalendarInfoW(LCID Locale, CALID Calendar, CALTYPE CalType, LPCWSTR lpCalData)
 759 {
 760     FIXME("(%08lx,%08lx,%08lx,%s): stub\n",
 761           Locale, Calendar, CalType, debugstr_w(lpCalData));
 762     return 0;
 763 }
 764