2 * Win32 kernel functions
4 * Copyright 1995 Martin von Loewis and Cameron Heide
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.
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.
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
27 #include <sys/times.h>
32 #include "wine/unicode.h"
33 #include "wine/debug.h"
35 WINE_DEFAULT_DEBUG_CHANNEL(win32
);
37 /* maximum time adjustment in seconds for SetLocalTime and SetSystemTime */
38 #define SETTIME_MAX_ADJUST 120
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)
46 const char *psTZFromUnix
;
47 WCHAR psTZWindows
[32];
52 static const struct tagTZ_INFO TZ_INFO
[] =
55 {'D','a','t','e','l','i','n','e',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
58 {'S','a','m','o','a',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
61 {'H','a','w','a','i','i','a','n',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
64 {'A','l','a','s','k','a','n',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
67 {'P','a','c','i','f','i','c',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
70 {'U','S',' ','M','o','u','n','t','a','i','n',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
73 {'M','o','u','n','t','a','i','n',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
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'},
79 {'C','e','n','t','r','a','l',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
82 {'S','A',' ','P','a','c','i','f','i','c',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
85 {'E','a','s','t','e','r','n',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
88 {'U','S',' ','E','a','s','t','e','r','n',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
91 {'A','t','l','a','n','t','i','c',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
94 {'S','A',' ','W','e','s','t','e','r','n',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
97 {'P','a','c','i','f','i','c',' ','S','A',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
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'},
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'},
106 {'S','A',' ','E','a','s','t','e','r','n',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
109 {'G','r','e','e','n','l','a','n','d',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
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'},
115 {'A','z','o','r','e','s',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
118 {'C','a','p','e',' ','V','e','r','d','e',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
121 {'G','r','e','e','n','w','i','c','h',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
124 {'G','M','T',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
127 {'G','M','T',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
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'},
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'},
136 {'E','.',' ','E','u','r','o','p','e',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
139 {'E','g','y','p','t',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
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'},
145 {'I','s','r','a','e','l',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
148 {'A','r','a','b','i','c',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
151 {'A','r','a','b',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
154 {'R','u','s','s','i','a','n',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
157 {'E','.',' ','A','f','r','i','c','a',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
160 {'I','r','a','n',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
163 {'A','r','a','b','i','a','n',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
166 {'C','a','u','c','a','s','u','s',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
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'},
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'},
175 {'W','e','s','t',' ','A','s','i','a',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
178 {'I','n','d','i','a',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
181 {'N','e','p','a','l',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
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'},
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'},
190 {'S','r','i',' ','L','a','n','k','a',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
193 {'M','y','a','n','m','a','r',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
196 {'S','E',' ','A','s','i','a',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
199 {'N','o','r','t','h',' ','A','s','i','a',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
202 {'C','h','i','n','a',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
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'},
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'},
211 {'W','.',' ','A','u','s','t','r','a','l','i','a',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
214 {'T','o','k','y','o',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
217 {'K','o','r','e','a',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
220 {'Y','a','k','u','t','s','k',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
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'},
226 {'E','.',' ','A','u','s','t','r','a','l','i','a',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
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'},
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'},
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'},
238 {'N','e','w',' ','Z','e','a','l','a','n','d',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
241 {'F','i','j','i',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
244 {'T','o','n','g','a',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
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
252 static const WCHAR
* TIME_GetTZAsStr (time_t utc
, int bias
, int dst
)
255 struct tm
*ptm
= localtime(&utc
);
258 if (!strftime (psTZName
, 7, "%Z", ptm
))
261 for (i
=0; i
<(sizeof(TZ_INFO
) / sizeof(struct tagTZ_INFO
)); i
++)
263 if ( strcmp(TZ_INFO
[i
].psTZFromUnix
, psTZName
) == 0 &&
264 TZ_INFO
[i
].bias
== bias
&&
265 TZ_INFO
[i
].dst
== dst
267 return TZ_INFO
[i
].psTZWindows
;
274 /* TIME_GetBias: helper function calculates delta local time from UTC */
275 static int TIME_GetBias( time_t utc
, int *pdaylight
)
277 struct tm
*ptm
= localtime(&utc
);
278 *pdaylight
= ptm
->tm_isdst
; /* daylight for local timezone */
280 ptm
->tm_isdst
= *pdaylight
; /* use local daylight, not that of Greenwich */
281 return (int)(utc
-mktime(ptm
));
285 /***********************************************************************
286 * SetLocalTime (KERNEL32.@)
288 * Sets the local time using current time zone and daylight
293 * True if the time was set, false if the time was invalid or the
294 * necessary permissions were not held.
296 BOOL WINAPI
SetLocalTime(
297 const SYSTEMTIME
*systime
) /* [in] The desired local time. */
302 time_t oldsec
=time(NULL
);
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;
315 /* set the new time */
317 tv
.tv_usec
= systime
->wMilliseconds
* 1000;
319 /* error and sanity check*/
320 if( sec
== (time_t)-1 || abs((int)(sec
-oldsec
)) > SETTIME_MAX_ADJUST
){
322 SetLastError(ERROR_INVALID_PARAMETER
);
324 #ifdef HAVE_SETTIMEOFDAY
325 err
=settimeofday(&tv
, NULL
); /* 0 is OK, -1 is error */
328 SetLastError(ERROR_PRIVILEGE_NOT_HELD
);
331 SetLastError(ERROR_CALL_NOT_IMPLEMENTED
);
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." );
343 /***********************************************************************
344 * GetSystemTimeAdjustment (KERNEL32.@)
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.
351 * Always returns true.
355 * Only the special case of disabled time adjustments is supported.
356 * (also the signature is wrong it should have a return type of BOOL)
358 DWORD WINAPI
GetSystemTimeAdjustment(
359 LPDWORD lpTimeAdjustment
, /* [out] The clock adjustment per interupt in 100's of nanoseconds. */
360 LPDWORD lpTimeIncrement
, /* [out] The time between clock interupts in 100's of nanoseconds. */
361 LPBOOL lpTimeAdjustmentDisabled
) /* [out] The clock synchonisation has been disabled. */
363 *lpTimeAdjustment
= 0;
364 *lpTimeIncrement
= 0;
365 *lpTimeAdjustmentDisabled
= TRUE
;
370 /***********************************************************************
371 * SetSystemTime (KERNEL32.@)
373 * Sets the system time (utc).
377 * True if the time was set, false if the time was invalid or the
378 * necessary permissions were not held.
380 BOOL WINAPI
SetSystemTime(
381 const SYSTEMTIME
*systime
) /* [in] The desired system time. */
390 /* call gettimeofday to get the current timezone */
391 gettimeofday(&tv
, &tz
);
393 /* get delta local time from utc */
394 bias
=TIME_GetBias(oldsec
,&dst
);
396 /* get the number of seconds */
397 t
.tm_sec
= systime
->wSecond
;
398 t
.tm_min
= systime
->wMinute
;
399 t
.tm_hour
= systime
->wHour
;
400 t
.tm_mday
= systime
->wDay
;
401 t
.tm_mon
= systime
->wMonth
- 1;
402 t
.tm_year
= systime
->wYear
- 1900;
405 /* correct for timezone and daylight */
408 /* set the new time */
410 tv
.tv_usec
= systime
->wMilliseconds
* 1000;
412 /* error and sanity check*/
413 if( sec
== (time_t)-1 || abs((int)(sec
-oldsec
)) > SETTIME_MAX_ADJUST
){
415 SetLastError(ERROR_INVALID_PARAMETER
);
417 #ifdef HAVE_SETTIMEOFDAY
418 err
=settimeofday(&tv
, NULL
); /* 0 is OK, -1 is error */
421 SetLastError(ERROR_PRIVILEGE_NOT_HELD
);
424 SetLastError(ERROR_CALL_NOT_IMPLEMENTED
);
427 ERR("Cannot set time to %d/%d/%d %d:%d:%d Time adjustment %ld %s\n",
428 systime
->wYear
, systime
->wMonth
, systime
->wDay
, systime
->wHour
,
429 systime
->wMinute
, systime
->wSecond
,
430 sec
-oldsec
, err
== -1 ? "No Permission" :
431 sec
==(time_t)-1 ? "" : "is too large." );
436 /***********************************************************************
437 * GetTimeZoneInformation (KERNEL32.@)
439 * Fills in the a time zone information structure with values based on
440 * the current local time.
444 * The daylight savings time standard or TIME_ZONE_ID_INVALID if the call failed.
446 DWORD WINAPI
GetTimeZoneInformation(
447 LPTIME_ZONE_INFORMATION tzinfo
) /* [out] The time zone structure to be filled in. */
454 memset(tzinfo
, 0, sizeof(TIME_ZONE_INFORMATION
));
457 bias
=TIME_GetBias(gmt
,&daylight
);
459 tzinfo
->Bias
= -bias
/ 60;
460 tzinfo
->StandardBias
= 0;
461 tzinfo
->DaylightBias
= -60;
462 psTZ
= TIME_GetTZAsStr (gmt
, (-bias
/60), daylight
);
463 if (psTZ
) strcpyW( tzinfo
->StandardName
, psTZ
);
464 return TIME_ZONE_ID_STANDARD
;
468 /***********************************************************************
469 * SetTimeZoneInformation (KERNEL32.@)
471 * Set the local time zone with values based on the time zone structure.
475 * True on successful setting of the time zone.
479 * Use the obsolete unix timezone structure and tz_dsttime member.
481 BOOL WINAPI
SetTimeZoneInformation(
482 const LPTIME_ZONE_INFORMATION tzinfo
) /* [in] The new time zone. */
486 tz
.tz_minuteswest
= tzinfo
->Bias
;
488 tz
.tz_dsttime
= DST_NONE
;
492 return !settimeofday(NULL
, &tz
);
496 /***********************************************************************
497 * SystemTimeToTzSpecificLocalTime (KERNEL32.@)
499 * Converts the system time (utc) to the local time in the specified time zone.
503 * Returns true when the local time was calculated.
507 * Does not handle daylight savings time adjustments correctly.
509 BOOL WINAPI
SystemTimeToTzSpecificLocalTime(
510 LPTIME_ZONE_INFORMATION lpTimeZoneInformation
, /* [in] The desired time zone. */
511 LPSYSTEMTIME lpUniversalTime
, /* [in] The utc time to base local time on. */
512 LPSYSTEMTIME lpLocalTime
) /* [out] The local time in the time zone. */
515 SetLastError(ERROR_CALL_NOT_IMPLEMENTED
);
520 /***********************************************************************
521 * GetSystemTimeAsFileTime (KERNEL32.@)
523 * Fills in a file time structure with the current time in UTC format.
525 VOID WINAPI
GetSystemTimeAsFileTime(
526 LPFILETIME time
) /* [out] The file time struct to be filled with the system time. */
528 NtQuerySystemTime( (LARGE_INTEGER
*)time
);
532 /*********************************************************************
533 * TIME_ClockTimeToFileTime (olorin@fandra.org, 20-Sep-1998)
535 * Used by GetProcessTimes to convert clock_t into FILETIME.
537 * Differences to UnixTimeToFileTime:
538 * 1) Divided by CLK_TCK
539 * 2) Time is relative. There is no 'starting date', so there is
540 * no need in offset correction, like in UnixTimeToFileTime
542 static void TIME_ClockTimeToFileTime(clock_t unix_time
, LPFILETIME filetime
)
544 LONGLONG secs
= RtlEnlargedUnsignedMultiply( unix_time
, 10000000 );
545 ((LARGE_INTEGER
*)filetime
)->QuadPart
= RtlExtendedLargeIntegerDivide( secs
, CLK_TCK
, NULL
);
548 /*********************************************************************
549 * GetProcessTimes (KERNEL32.@)
551 * Returns the user and kernel execution times of a process,
552 * along with the creation and exit times if known.
555 * Would be nice to subtract the cpu time, used by Wine at startup.
556 * Also, there is a need to separate times used by different applications.
560 * Always returns true.
564 * lpCreationTime, lpExitTime are NOT INITIALIZED.
566 BOOL WINAPI
GetProcessTimes(
567 HANDLE hprocess
, /* [in] The process to be queried (obtained from PROCESS_QUERY_INFORMATION). */
568 LPFILETIME lpCreationTime
, /* [out] The creation time of the process. */
569 LPFILETIME lpExitTime
, /* [out] The exit time of the process if exited. */
570 LPFILETIME lpKernelTime
, /* [out] The time spent in kernal routines in 100's of nanoseconds. */
571 LPFILETIME lpUserTime
) /* [out] The time spent in user routines in 100's of nanoseconds. */
576 TIME_ClockTimeToFileTime(tms
.tms_utime
,lpUserTime
);
577 TIME_ClockTimeToFileTime(tms
.tms_stime
,lpKernelTime
);
581 /*********************************************************************
582 * GetCalendarInfoA (KERNEL32.@)
585 int WINAPI
GetCalendarInfoA(LCID Locale
, CALID Calendar
, CALTYPE CalType
,
586 LPSTR lpCalData
, int cchData
, LPDWORD lpValue
)
588 FIXME("(%08lx,%08lx,%08lx,%p,%d,%p): stub\n",
589 Locale
, Calendar
, CalType
, lpCalData
, cchData
, lpValue
);
590 /* dont have the #define values for those */
594 if (CalType & CAL_NOUSEROVERRIDE)
595 MESSAGE("CAL_NOUSEROVERRIDE|");
596 if (CalType & CAL_RETURN_NUMBER)
597 MESSAGE("CAL_RETURN_NUMBER|");
598 if (CalType & CAL_USE_CP_ACP)
599 MESSAGE("CAL_USE_CP_ACP|");
602 /*switch (CalType & ~(CAL_NOUSEROVERRIDE|CAL_RETURN_NUMBER|CAL_USE_CP_ACP)) {*/
603 switch (CalType
& 0xffff) {
604 #define X(x) case x: MESSAGE(#x"\n");break;
607 X(CAL_IYEAROFFSETRANGE
)
618 X(CAL_SABBREVDAYNAME1
)
619 X(CAL_SABBREVDAYNAME2
)
620 X(CAL_SABBREVDAYNAME3
)
621 X(CAL_SABBREVDAYNAME4
)
622 X(CAL_SABBREVDAYNAME5
)
623 X(CAL_SABBREVDAYNAME6
)
624 X(CAL_SABBREVDAYNAME7
)
638 X(CAL_SABBREVMONTHNAME1
)
639 X(CAL_SABBREVMONTHNAME2
)
640 X(CAL_SABBREVMONTHNAME3
)
641 X(CAL_SABBREVMONTHNAME4
)
642 X(CAL_SABBREVMONTHNAME5
)
643 X(CAL_SABBREVMONTHNAME6
)
644 X(CAL_SABBREVMONTHNAME7
)
645 X(CAL_SABBREVMONTHNAME8
)
646 X(CAL_SABBREVMONTHNAME9
)
647 X(CAL_SABBREVMONTHNAME10
)
648 X(CAL_SABBREVMONTHNAME11
)
649 X(CAL_SABBREVMONTHNAME12
)
650 X(CAL_SABBREVMONTHNAME13
)
653 default: MESSAGE("Unknown caltype %ld\n",CalType
& 0xffff);
659 /*********************************************************************
660 * GetCalendarInfoW (KERNEL32.@)
663 int WINAPI
GetCalendarInfoW(LCID Locale
, CALID Calendar
, CALTYPE CalType
,
664 LPWSTR lpCalData
, int cchData
, LPDWORD lpValue
)
666 FIXME("(%08lx,%08lx,%08lx,%p,%d,%p): stub\n",
667 Locale
, Calendar
, CalType
, lpCalData
, cchData
, lpValue
);
671 /*********************************************************************
672 * SetCalendarInfoA (KERNEL32.@)
675 int WINAPI
SetCalendarInfoA(LCID Locale
, CALID Calendar
, CALTYPE CalType
, LPCSTR lpCalData
)
677 FIXME("(%08lx,%08lx,%08lx,%s): stub\n",
678 Locale
, Calendar
, CalType
, debugstr_a(lpCalData
));
682 /*********************************************************************
683 * SetCalendarInfoW (KERNEL32.@)
686 int WINAPI
SetCalendarInfoW(LCID Locale
, CALID Calendar
, CALTYPE CalType
, LPCWSTR lpCalData
)
688 FIXME("(%08lx,%08lx,%08lx,%s): stub\n",
689 Locale
, Calendar
, CalType
, debugstr_w(lpCalData
));