kernel32: Add a stub for QueryThreadCycleTime.
[wine.git] / dlls / kernel32 / time.c
blob82146867031ad18e06206d4cb0c77172e4105bbb
1 /*
2 * Win32 kernel time 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., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
21 #include "config.h"
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
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"
52 WINE_DEFAULT_DEBUG_CHANNEL(time);
54 #define CALINFO_MAX_YEAR 2029
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 ;
63 static const int MonthLengths[2][12] =
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 }
69 static inline BOOL IsLeapYear(int Year)
71 return Year % 4 == 0 && (Year % 100 != 0 || Year % 400 == 0);
74 /***********************************************************************
75 * TIME_DayLightCompareDate
77 * Compares two dates without looking at the year.
79 * PARAMS
80 * date [in] The local time to compare.
81 * compareDate [in] The daylight savings begin or end date.
83 * RETURNS
85 * -1 if date < compareDate
86 * 0 if date == compareDate
87 * 1 if date > compareDate
88 * -2 if an error occurs
90 static int TIME_DayLightCompareDate( const SYSTEMTIME *date,
91 const SYSTEMTIME *compareDate )
93 int limit_day, dayinsecs;
95 if (date->wMonth < compareDate->wMonth)
96 return -1; /* We are in a month before the date limit. */
98 if (date->wMonth > compareDate->wMonth)
99 return 1; /* We are in a month after the date limit. */
101 /* if year is 0 then date is in day-of-week format, otherwise
102 * it's absolute date.
104 if (compareDate->wYear == 0)
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;
119 else
121 limit_day = compareDate->wDay;
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. */
135 /***********************************************************************
136 * TIME_CompTimeZoneID
138 * Computes the local time bias for a given time and time zone.
140 * PARAMS
141 * pTZinfo [in] The time zone data.
142 * lpFileTime [in] The system or local time.
143 * islocal [in] it is local time.
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
151 static DWORD TIME_CompTimeZoneID ( const TIME_ZONE_INFORMATION *pTZinfo,
152 FILETIME *lpFileTime, BOOL islocal )
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;
161 if (pTZinfo->DaylightDate.wMonth != 0)
163 /* if year is 0 then date is in day-of-week format, otherwise
164 * it's absolute date.
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)))
173 SetLastError(ERROR_INVALID_PARAMETER);
174 return TIME_ZONE_ID_INVALID;
177 if (!islocal) {
178 FILETIME2LL( lpFileTime, llTime );
179 llTime -= pTZinfo->Bias * (LONGLONG)600000000;
180 LL2FILETIME( llTime, &ftTemp)
181 lpFileTime = &ftTemp;
184 FileTimeToSystemTime(lpFileTime, &SysTime);
185 year = SysTime.wYear;
187 if (!islocal) {
188 llTime -= pTZinfo->DaylightBias * (LONGLONG)600000000;
189 LL2FILETIME( llTime, &ftTemp)
190 FileTimeToSystemTime(lpFileTime, &SysTime);
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;
199 beforeStandardDate = ret < 0;
200 } else
201 beforeStandardDate = SysTime.wYear < year;
203 if (!islocal) {
204 llTime -= ( pTZinfo->StandardBias - pTZinfo->DaylightBias )
205 * (LONGLONG)600000000;
206 LL2FILETIME( llTime, &ftTemp)
207 FileTimeToSystemTime(lpFileTime, &SysTime);
210 if(year == SysTime.wYear) {
211 ret = TIME_DayLightCompareDate( &SysTime, &pTZinfo->DaylightDate);
212 if (ret == -2)
213 return TIME_ZONE_ID_INVALID;
215 afterDaylightDate = ret >= 0;
216 } else
217 afterDaylightDate = SysTime.wYear > year;
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;
231 return retval;
234 /***********************************************************************
235 * TIME_TimeZoneID
237 * Calculates whether daylight savings is on now.
239 * PARAMS
240 * pTzi [in] Timezone info.
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
248 static DWORD TIME_ZoneID( const TIME_ZONE_INFORMATION *pTzi )
250 FILETIME ftTime;
251 GetSystemTimeAsFileTime( &ftTime);
252 return TIME_CompTimeZoneID( pTzi, &ftTime, FALSE);
255 /***********************************************************************
256 * TIME_GetTimezoneBias
258 * Calculates the local time bias for a given time zone.
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.
266 * RETURNS
267 * TRUE when the time zone bias was calculated.
269 static BOOL TIME_GetTimezoneBias( const TIME_ZONE_INFORMATION *pTZinfo,
270 FILETIME *lpFileTime, BOOL islocal, LONG *pBias )
272 LONG bias = pTZinfo->Bias;
273 DWORD tzid = TIME_CompTimeZoneID( pTZinfo, lpFileTime, islocal);
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;
286 /***********************************************************************
287 * SetLocalTime (KERNEL32.@)
289 * Set the local time using current time zone and daylight
290 * savings settings.
292 * PARAMS
293 * systime [in] The desired local time.
295 * RETURNS
296 * Success: TRUE. The time was set.
297 * Failure: FALSE, if the time was invalid or caller does not have
298 * permission to change the time.
300 BOOL WINAPI SetLocalTime( const SYSTEMTIME *systime )
302 FILETIME ft;
303 LARGE_INTEGER st, st2;
304 NTSTATUS status;
306 if( !SystemTimeToFileTime( systime, &ft ))
307 return FALSE;
308 st.u.LowPart = ft.dwLowDateTime;
309 st.u.HighPart = ft.dwHighDateTime;
310 RtlLocalTimeToSystemTime( &st, &st2 );
312 if ((status = NtSetSystemTime(&st2, NULL)))
313 SetLastError( RtlNtStatusToDosError(status) );
314 return !status;
318 /***********************************************************************
319 * GetSystemTimeAdjustment (KERNEL32.@)
321 * Get the period between clock interrupts and the amount the clock
322 * is adjusted each interrupt so as to keep it in sync with an external source.
324 * PARAMS
325 * lpTimeAdjustment [out] The clock adjustment per interrupt in 100's of nanoseconds.
326 * lpTimeIncrement [out] The time between clock interrupts in 100's of nanoseconds.
327 * lpTimeAdjustmentDisabled [out] The clock synchronisation has been disabled.
329 * RETURNS
330 * TRUE.
332 * BUGS
333 * Only the special case of disabled time adjustments is supported.
335 BOOL WINAPI GetSystemTimeAdjustment( PDWORD lpTimeAdjustment, PDWORD lpTimeIncrement,
336 PBOOL lpTimeAdjustmentDisabled )
338 *lpTimeAdjustment = 0;
339 *lpTimeIncrement = 10000000 / sysconf(_SC_CLK_TCK);
340 *lpTimeAdjustmentDisabled = TRUE;
341 return TRUE;
345 /***********************************************************************
346 * SetSystemTime (KERNEL32.@)
348 * Set the system time in utc.
350 * PARAMS
351 * systime [in] The desired system time.
353 * RETURNS
354 * Success: TRUE. The time was set.
355 * Failure: FALSE, if the time was invalid or caller does not have
356 * permission to change the time.
358 BOOL WINAPI SetSystemTime( const SYSTEMTIME *systime )
360 FILETIME ft;
361 LARGE_INTEGER t;
362 NTSTATUS status;
364 if( !SystemTimeToFileTime( systime, &ft ))
365 return FALSE;
366 t.u.LowPart = ft.dwLowDateTime;
367 t.u.HighPart = ft.dwHighDateTime;
368 if ((status = NtSetSystemTime(&t, NULL)))
369 SetLastError( RtlNtStatusToDosError(status) );
370 return !status;
373 /***********************************************************************
374 * SetSystemTimeAdjustment (KERNEL32.@)
376 * Enables or disables the timing adjustments to the system's clock.
378 * PARAMS
379 * dwTimeAdjustment [in] Number of units to add per clock interrupt.
380 * bTimeAdjustmentDisabled [in] Adjustment mode.
382 * RETURNS
383 * Success: TRUE.
384 * Failure: FALSE.
386 BOOL WINAPI SetSystemTimeAdjustment( DWORD dwTimeAdjustment, BOOL bTimeAdjustmentDisabled )
388 /* Fake function for now... */
389 FIXME("(%08x,%d): stub !\n", dwTimeAdjustment, bTimeAdjustmentDisabled);
390 return TRUE;
393 /***********************************************************************
394 * GetTimeZoneInformation (KERNEL32.@)
396 * Get information about the current local time zone.
398 * PARAMS
399 * tzinfo [out] Destination for time zone information.
401 * RETURNS
402 * TIME_ZONE_ID_INVALID An error occurred
403 * TIME_ZONE_ID_UNKNOWN There are no transition time known
404 * TIME_ZONE_ID_STANDARD Current time is standard time
405 * TIME_ZONE_ID_DAYLIGHT Current time is daylight savings time
407 DWORD WINAPI GetTimeZoneInformation( LPTIME_ZONE_INFORMATION tzinfo )
409 NTSTATUS status;
411 status = RtlQueryTimeZoneInformation( (RTL_TIME_ZONE_INFORMATION*)tzinfo );
412 if ( status != STATUS_SUCCESS )
414 SetLastError( RtlNtStatusToDosError(status) );
415 return TIME_ZONE_ID_INVALID;
417 return TIME_ZoneID( tzinfo );
420 /***********************************************************************
421 * SetTimeZoneInformation (KERNEL32.@)
423 * Change the settings of the current local time zone.
425 * PARAMS
426 * tzinfo [in] The new time zone.
428 * RETURNS
429 * Success: TRUE. The time zone was updated with the settings from tzinfo.
430 * Failure: FALSE.
432 BOOL WINAPI SetTimeZoneInformation( const TIME_ZONE_INFORMATION *tzinfo )
434 NTSTATUS status;
435 status = RtlSetTimeZoneInformation( (const RTL_TIME_ZONE_INFORMATION *)tzinfo );
436 if ( status != STATUS_SUCCESS )
437 SetLastError( RtlNtStatusToDosError(status) );
438 return !status;
441 /***********************************************************************
442 * SystemTimeToTzSpecificLocalTime (KERNEL32.@)
444 * Convert a utc system time to a local time in a given time zone.
446 * PARAMS
447 * lpTimeZoneInformation [in] The desired time zone.
448 * lpUniversalTime [in] The utc time to base local time on.
449 * lpLocalTime [out] The local time in the time zone.
451 * RETURNS
452 * Success: TRUE. lpLocalTime contains the converted time
453 * Failure: FALSE.
456 BOOL WINAPI SystemTimeToTzSpecificLocalTime(
457 const TIME_ZONE_INFORMATION *lpTimeZoneInformation,
458 const SYSTEMTIME *lpUniversalTime, LPSYSTEMTIME lpLocalTime )
460 FILETIME ft;
461 LONG lBias;
462 LONGLONG llTime;
463 TIME_ZONE_INFORMATION tzinfo;
465 if (lpTimeZoneInformation != NULL)
467 tzinfo = *lpTimeZoneInformation;
469 else
471 if (GetTimeZoneInformation(&tzinfo) == TIME_ZONE_ID_INVALID)
472 return FALSE;
475 if (!SystemTimeToFileTime(lpUniversalTime, &ft))
476 return FALSE;
477 FILETIME2LL( &ft, llTime)
478 if (!TIME_GetTimezoneBias(&tzinfo, &ft, FALSE, &lBias))
479 return FALSE;
480 /* convert minutes to 100-nanoseconds-ticks */
481 llTime -= (LONGLONG)lBias * 600000000;
482 LL2FILETIME( llTime, &ft)
484 return FileTimeToSystemTime(&ft, lpLocalTime);
488 /***********************************************************************
489 * TzSpecificLocalTimeToSystemTime (KERNEL32.@)
491 * Converts a local time to a time in utc.
493 * PARAMS
494 * lpTimeZoneInformation [in] The desired time zone.
495 * lpLocalTime [in] The local time.
496 * lpUniversalTime [out] The calculated utc time.
498 * RETURNS
499 * Success: TRUE. lpUniversalTime contains the converted time.
500 * Failure: FALSE.
502 BOOL WINAPI TzSpecificLocalTimeToSystemTime(
503 const TIME_ZONE_INFORMATION *lpTimeZoneInformation,
504 const SYSTEMTIME *lpLocalTime, LPSYSTEMTIME lpUniversalTime)
506 FILETIME ft;
507 LONG lBias;
508 LONGLONG t;
509 TIME_ZONE_INFORMATION tzinfo;
511 if (lpTimeZoneInformation != NULL)
513 tzinfo = *lpTimeZoneInformation;
515 else
517 if (GetTimeZoneInformation(&tzinfo) == TIME_ZONE_ID_INVALID)
518 return FALSE;
521 if (!SystemTimeToFileTime(lpLocalTime, &ft))
522 return FALSE;
523 FILETIME2LL( &ft, t)
524 if (!TIME_GetTimezoneBias(&tzinfo, &ft, TRUE, &lBias))
525 return FALSE;
526 /* convert minutes to 100-nanoseconds-ticks */
527 t += (LONGLONG)lBias * 600000000;
528 LL2FILETIME( t, &ft)
529 return FileTimeToSystemTime(&ft, lpUniversalTime);
533 /***********************************************************************
534 * GetSystemTimeAsFileTime (KERNEL32.@)
536 * Get the current time in utc format.
538 * RETURNS
539 * Nothing.
541 VOID WINAPI GetSystemTimeAsFileTime(
542 LPFILETIME time) /* [out] Destination for the current utc time */
544 LARGE_INTEGER t;
545 NtQuerySystemTime( &t );
546 time->dwLowDateTime = t.u.LowPart;
547 time->dwHighDateTime = t.u.HighPart;
551 /*********************************************************************
552 * TIME_ClockTimeToFileTime (olorin@fandra.org, 20-Sep-1998)
554 * Used by GetProcessTimes to convert clock_t into FILETIME.
556 * Differences to UnixTimeToFileTime:
557 * 1) Divided by CLK_TCK
558 * 2) Time is relative. There is no 'starting date', so there is
559 * no need for offset correction, like in UnixTimeToFileTime
561 static void TIME_ClockTimeToFileTime(clock_t unix_time, LPFILETIME filetime)
563 long clocksPerSec = sysconf(_SC_CLK_TCK);
564 ULONGLONG secs = (ULONGLONG)unix_time * 10000000 / clocksPerSec;
565 filetime->dwLowDateTime = (DWORD)secs;
566 filetime->dwHighDateTime = (DWORD)(secs >> 32);
569 /*********************************************************************
570 * GetProcessTimes (KERNEL32.@)
572 * Get the user and kernel execution times of a process,
573 * along with the creation and exit times if known.
575 * PARAMS
576 * hprocess [in] The process to be queried.
577 * lpCreationTime [out] The creation time of the process.
578 * lpExitTime [out] The exit time of the process if exited.
579 * lpKernelTime [out] The time spent in kernel routines in 100's of nanoseconds.
580 * lpUserTime [out] The time spent in user routines in 100's of nanoseconds.
582 * RETURNS
583 * TRUE.
585 * NOTES
586 * olorin@fandra.org:
587 * Would be nice to subtract the cpu time used by Wine at startup.
588 * Also, there is a need to separate times used by different applications.
590 * BUGS
591 * KernelTime and UserTime are always for the current process
593 BOOL WINAPI GetProcessTimes( HANDLE hprocess, LPFILETIME lpCreationTime,
594 LPFILETIME lpExitTime, LPFILETIME lpKernelTime, LPFILETIME lpUserTime )
596 struct tms tms;
597 KERNEL_USER_TIMES pti;
599 times(&tms);
600 TIME_ClockTimeToFileTime(tms.tms_utime,lpUserTime);
601 TIME_ClockTimeToFileTime(tms.tms_stime,lpKernelTime);
602 if (NtQueryInformationProcess( hprocess, ProcessTimes, &pti, sizeof(pti), NULL))
603 return FALSE;
604 LL2FILETIME( pti.CreateTime.QuadPart, lpCreationTime);
605 LL2FILETIME( pti.ExitTime.QuadPart, lpExitTime);
606 return TRUE;
609 /*********************************************************************
610 * GetCalendarInfoA (KERNEL32.@)
613 int WINAPI GetCalendarInfoA(LCID lcid, CALID Calendar, CALTYPE CalType,
614 LPSTR lpCalData, int cchData, LPDWORD lpValue)
616 int ret, cchDataW = cchData;
617 LPWSTR lpCalDataW = NULL;
619 if (NLS_IsUnicodeOnlyLcid(lcid))
621 SetLastError(ERROR_INVALID_PARAMETER);
622 return 0;
625 if (!cchData && !(CalType & CAL_RETURN_NUMBER))
626 cchDataW = GetCalendarInfoW(lcid, Calendar, CalType, NULL, 0, NULL);
627 if (!(lpCalDataW = HeapAlloc(GetProcessHeap(), 0, cchDataW*sizeof(WCHAR))))
628 return 0;
630 ret = GetCalendarInfoW(lcid, Calendar, CalType, lpCalDataW, cchDataW, lpValue);
631 if(ret && lpCalDataW && lpCalData)
632 ret = WideCharToMultiByte(CP_ACP, 0, lpCalDataW, -1, lpCalData, cchData, NULL, NULL);
633 else if (CalType & CAL_RETURN_NUMBER)
634 ret *= sizeof(WCHAR);
635 HeapFree(GetProcessHeap(), 0, lpCalDataW);
637 return ret;
640 /*********************************************************************
641 * GetCalendarInfoW (KERNEL32.@)
644 int WINAPI GetCalendarInfoW(LCID Locale, CALID Calendar, CALTYPE CalType,
645 LPWSTR lpCalData, int cchData, LPDWORD lpValue)
647 if (CalType & CAL_NOUSEROVERRIDE)
648 FIXME("flag CAL_NOUSEROVERRIDE used, not fully implemented\n");
649 if (CalType & CAL_USE_CP_ACP)
650 FIXME("flag CAL_USE_CP_ACP used, not fully implemented\n");
652 if (CalType & CAL_RETURN_NUMBER) {
653 if (!lpValue)
655 SetLastError( ERROR_INVALID_PARAMETER );
656 return 0;
658 if (lpCalData != NULL)
659 WARN("lpCalData not NULL (%p) when it should!\n", lpCalData);
660 if (cchData != 0)
661 WARN("cchData not 0 (%d) when it should!\n", cchData);
662 } else {
663 if (lpValue != NULL)
664 WARN("lpValue not NULL (%p) when it should!\n", lpValue);
667 /* FIXME: No verification is made yet wrt Locale
668 * for the CALTYPES not requiring GetLocaleInfoA */
669 switch (CalType & ~(CAL_NOUSEROVERRIDE|CAL_RETURN_NUMBER|CAL_USE_CP_ACP)) {
670 case CAL_ICALINTVALUE:
671 if (CalType & CAL_RETURN_NUMBER)
672 return GetLocaleInfoW(Locale, LOCALE_RETURN_NUMBER | LOCALE_ICALENDARTYPE,
673 (LPWSTR)lpValue, 2);
674 return GetLocaleInfoW(Locale, LOCALE_ICALENDARTYPE, lpCalData, cchData);
675 case CAL_SCALNAME:
676 FIXME("Unimplemented caltype %d\n", CalType & 0xffff);
677 if (lpCalData) *lpCalData = 0;
678 return 1;
679 case CAL_IYEAROFFSETRANGE:
680 FIXME("Unimplemented caltype %d\n", CalType & 0xffff);
681 return 0;
682 case CAL_SERASTRING:
683 FIXME("Unimplemented caltype %d\n", CalType & 0xffff);
684 return 0;
685 case CAL_SSHORTDATE:
686 return GetLocaleInfoW(Locale, LOCALE_SSHORTDATE, lpCalData, cchData);
687 case CAL_SLONGDATE:
688 return GetLocaleInfoW(Locale, LOCALE_SLONGDATE, lpCalData, cchData);
689 case CAL_SDAYNAME1:
690 return GetLocaleInfoW(Locale, LOCALE_SDAYNAME1, lpCalData, cchData);
691 case CAL_SDAYNAME2:
692 return GetLocaleInfoW(Locale, LOCALE_SDAYNAME2, lpCalData, cchData);
693 case CAL_SDAYNAME3:
694 return GetLocaleInfoW(Locale, LOCALE_SDAYNAME3, lpCalData, cchData);
695 case CAL_SDAYNAME4:
696 return GetLocaleInfoW(Locale, LOCALE_SDAYNAME4, lpCalData, cchData);
697 case CAL_SDAYNAME5:
698 return GetLocaleInfoW(Locale, LOCALE_SDAYNAME5, lpCalData, cchData);
699 case CAL_SDAYNAME6:
700 return GetLocaleInfoW(Locale, LOCALE_SDAYNAME6, lpCalData, cchData);
701 case CAL_SDAYNAME7:
702 return GetLocaleInfoW(Locale, LOCALE_SDAYNAME7, lpCalData, cchData);
703 case CAL_SABBREVDAYNAME1:
704 return GetLocaleInfoW(Locale, LOCALE_SABBREVDAYNAME1, lpCalData, cchData);
705 case CAL_SABBREVDAYNAME2:
706 return GetLocaleInfoW(Locale, LOCALE_SABBREVDAYNAME2, lpCalData, cchData);
707 case CAL_SABBREVDAYNAME3:
708 return GetLocaleInfoW(Locale, LOCALE_SABBREVDAYNAME3, lpCalData, cchData);
709 case CAL_SABBREVDAYNAME4:
710 return GetLocaleInfoW(Locale, LOCALE_SABBREVDAYNAME4, lpCalData, cchData);
711 case CAL_SABBREVDAYNAME5:
712 return GetLocaleInfoW(Locale, LOCALE_SABBREVDAYNAME5, lpCalData, cchData);
713 case CAL_SABBREVDAYNAME6:
714 return GetLocaleInfoW(Locale, LOCALE_SABBREVDAYNAME6, lpCalData, cchData);
715 case CAL_SABBREVDAYNAME7:
716 return GetLocaleInfoW(Locale, LOCALE_SABBREVDAYNAME7, lpCalData, cchData);
717 case CAL_SMONTHNAME1:
718 return GetLocaleInfoW(Locale, LOCALE_SMONTHNAME1, lpCalData, cchData);
719 case CAL_SMONTHNAME2:
720 return GetLocaleInfoW(Locale, LOCALE_SMONTHNAME2, lpCalData, cchData);
721 case CAL_SMONTHNAME3:
722 return GetLocaleInfoW(Locale, LOCALE_SMONTHNAME3, lpCalData, cchData);
723 case CAL_SMONTHNAME4:
724 return GetLocaleInfoW(Locale, LOCALE_SMONTHNAME4, lpCalData, cchData);
725 case CAL_SMONTHNAME5:
726 return GetLocaleInfoW(Locale, LOCALE_SMONTHNAME5, lpCalData, cchData);
727 case CAL_SMONTHNAME6:
728 return GetLocaleInfoW(Locale, LOCALE_SMONTHNAME6, lpCalData, cchData);
729 case CAL_SMONTHNAME7:
730 return GetLocaleInfoW(Locale, LOCALE_SMONTHNAME7, lpCalData, cchData);
731 case CAL_SMONTHNAME8:
732 return GetLocaleInfoW(Locale, LOCALE_SMONTHNAME8, lpCalData, cchData);
733 case CAL_SMONTHNAME9:
734 return GetLocaleInfoW(Locale, LOCALE_SMONTHNAME9, lpCalData, cchData);
735 case CAL_SMONTHNAME10:
736 return GetLocaleInfoW(Locale, LOCALE_SMONTHNAME10, lpCalData, cchData);
737 case CAL_SMONTHNAME11:
738 return GetLocaleInfoW(Locale, LOCALE_SMONTHNAME11, lpCalData, cchData);
739 case CAL_SMONTHNAME12:
740 return GetLocaleInfoW(Locale, LOCALE_SMONTHNAME12, lpCalData, cchData);
741 case CAL_SMONTHNAME13:
742 return GetLocaleInfoW(Locale, LOCALE_SMONTHNAME13, lpCalData, cchData);
743 case CAL_SABBREVMONTHNAME1:
744 return GetLocaleInfoW(Locale, LOCALE_SABBREVMONTHNAME1, lpCalData, cchData);
745 case CAL_SABBREVMONTHNAME2:
746 return GetLocaleInfoW(Locale, LOCALE_SABBREVMONTHNAME2, lpCalData, cchData);
747 case CAL_SABBREVMONTHNAME3:
748 return GetLocaleInfoW(Locale, LOCALE_SABBREVMONTHNAME3, lpCalData, cchData);
749 case CAL_SABBREVMONTHNAME4:
750 return GetLocaleInfoW(Locale, LOCALE_SABBREVMONTHNAME4, lpCalData, cchData);
751 case CAL_SABBREVMONTHNAME5:
752 return GetLocaleInfoW(Locale, LOCALE_SABBREVMONTHNAME5, lpCalData, cchData);
753 case CAL_SABBREVMONTHNAME6:
754 return GetLocaleInfoW(Locale, LOCALE_SABBREVMONTHNAME6, lpCalData, cchData);
755 case CAL_SABBREVMONTHNAME7:
756 return GetLocaleInfoW(Locale, LOCALE_SABBREVMONTHNAME7, lpCalData, cchData);
757 case CAL_SABBREVMONTHNAME8:
758 return GetLocaleInfoW(Locale, LOCALE_SABBREVMONTHNAME8, lpCalData, cchData);
759 case CAL_SABBREVMONTHNAME9:
760 return GetLocaleInfoW(Locale, LOCALE_SABBREVMONTHNAME9, lpCalData, cchData);
761 case CAL_SABBREVMONTHNAME10:
762 return GetLocaleInfoW(Locale, LOCALE_SABBREVMONTHNAME10, lpCalData, cchData);
763 case CAL_SABBREVMONTHNAME11:
764 return GetLocaleInfoW(Locale, LOCALE_SABBREVMONTHNAME11, lpCalData, cchData);
765 case CAL_SABBREVMONTHNAME12:
766 return GetLocaleInfoW(Locale, LOCALE_SABBREVMONTHNAME12, lpCalData, cchData);
767 case CAL_SABBREVMONTHNAME13:
768 return GetLocaleInfoW(Locale, LOCALE_SABBREVMONTHNAME13, lpCalData, cchData);
769 case CAL_SYEARMONTH:
770 return GetLocaleInfoW(Locale, LOCALE_SYEARMONTH, lpCalData, cchData);
771 case CAL_ITWODIGITYEARMAX:
772 if (CalType & CAL_RETURN_NUMBER)
774 *lpValue = CALINFO_MAX_YEAR;
775 return sizeof(DWORD) / sizeof(WCHAR);
777 else
779 static const WCHAR fmtW[] = {'%','u',0};
780 WCHAR buffer[10];
781 int ret = snprintfW( buffer, 10, fmtW, CALINFO_MAX_YEAR ) + 1;
782 if (!lpCalData) return ret;
783 if (ret <= cchData)
785 strcpyW( lpCalData, buffer );
786 return ret;
788 SetLastError( ERROR_INSUFFICIENT_BUFFER );
789 return 0;
791 break;
792 default:
793 FIXME("Unknown caltype %d\n",CalType & 0xffff);
794 SetLastError(ERROR_INVALID_FLAGS);
795 return 0;
797 return 0;
800 /*********************************************************************
801 * GetCalendarInfoEx (KERNEL32.@)
803 int WINAPI GetCalendarInfoEx(LPCWSTR locale, CALID calendar, LPCWSTR lpReserved, CALTYPE caltype,
804 LPWSTR data, int len, DWORD *value)
806 LCID lcid = LocaleNameToLCID(locale, 0);
807 FIXME("(%s, %d, %p, 0x%08x, %p, %d, %p): semi-stub\n", debugstr_w(locale), calendar, lpReserved, caltype,
808 data, len, value);
809 return GetCalendarInfoW(lcid, calendar, caltype, data, len, value);
812 /*********************************************************************
813 * SetCalendarInfoA (KERNEL32.@)
816 int WINAPI SetCalendarInfoA(LCID Locale, CALID Calendar, CALTYPE CalType, LPCSTR lpCalData)
818 FIXME("(%08x,%08x,%08x,%s): stub\n",
819 Locale, Calendar, CalType, debugstr_a(lpCalData));
820 return 0;
823 /*********************************************************************
824 * SetCalendarInfoW (KERNEL32.@)
828 int WINAPI SetCalendarInfoW(LCID Locale, CALID Calendar, CALTYPE CalType, LPCWSTR lpCalData)
830 FIXME("(%08x,%08x,%08x,%s): stub\n",
831 Locale, Calendar, CalType, debugstr_w(lpCalData));
832 return 0;
835 /*********************************************************************
836 * LocalFileTimeToFileTime (KERNEL32.@)
838 BOOL WINAPI LocalFileTimeToFileTime( const FILETIME *localft, LPFILETIME utcft )
840 NTSTATUS status;
841 LARGE_INTEGER local, utc;
843 local.u.LowPart = localft->dwLowDateTime;
844 local.u.HighPart = localft->dwHighDateTime;
845 if (!(status = RtlLocalTimeToSystemTime( &local, &utc )))
847 utcft->dwLowDateTime = utc.u.LowPart;
848 utcft->dwHighDateTime = utc.u.HighPart;
850 else SetLastError( RtlNtStatusToDosError(status) );
852 return !status;
855 /*********************************************************************
856 * FileTimeToLocalFileTime (KERNEL32.@)
858 BOOL WINAPI FileTimeToLocalFileTime( const FILETIME *utcft, LPFILETIME localft )
860 NTSTATUS status;
861 LARGE_INTEGER local, utc;
863 utc.u.LowPart = utcft->dwLowDateTime;
864 utc.u.HighPart = utcft->dwHighDateTime;
865 if (!(status = RtlSystemTimeToLocalTime( &utc, &local )))
867 localft->dwLowDateTime = local.u.LowPart;
868 localft->dwHighDateTime = local.u.HighPart;
870 else SetLastError( RtlNtStatusToDosError(status) );
872 return !status;
875 /*********************************************************************
876 * FileTimeToSystemTime (KERNEL32.@)
878 BOOL WINAPI FileTimeToSystemTime( const FILETIME *ft, LPSYSTEMTIME syst )
880 TIME_FIELDS tf;
881 LARGE_INTEGER t;
883 t.u.LowPart = ft->dwLowDateTime;
884 t.u.HighPart = ft->dwHighDateTime;
885 RtlTimeToTimeFields(&t, &tf);
887 syst->wYear = tf.Year;
888 syst->wMonth = tf.Month;
889 syst->wDay = tf.Day;
890 syst->wHour = tf.Hour;
891 syst->wMinute = tf.Minute;
892 syst->wSecond = tf.Second;
893 syst->wMilliseconds = tf.Milliseconds;
894 syst->wDayOfWeek = tf.Weekday;
895 return TRUE;
898 /*********************************************************************
899 * SystemTimeToFileTime (KERNEL32.@)
901 BOOL WINAPI SystemTimeToFileTime( const SYSTEMTIME *syst, LPFILETIME ft )
903 TIME_FIELDS tf;
904 LARGE_INTEGER t;
906 tf.Year = syst->wYear;
907 tf.Month = syst->wMonth;
908 tf.Day = syst->wDay;
909 tf.Hour = syst->wHour;
910 tf.Minute = syst->wMinute;
911 tf.Second = syst->wSecond;
912 tf.Milliseconds = syst->wMilliseconds;
914 if( !RtlTimeFieldsToTime(&tf, &t)) {
915 SetLastError( ERROR_INVALID_PARAMETER);
916 return FALSE;
918 ft->dwLowDateTime = t.u.LowPart;
919 ft->dwHighDateTime = t.u.HighPart;
920 return TRUE;
923 /*********************************************************************
924 * CompareFileTime (KERNEL32.@)
926 * Compare two FILETIME's to each other.
928 * PARAMS
929 * x [I] First time
930 * y [I] time to compare to x
932 * RETURNS
933 * -1, 0, or 1 indicating that x is less than, equal to, or greater
934 * than y respectively.
936 INT WINAPI CompareFileTime( const FILETIME *x, const FILETIME *y )
938 if (!x || !y) return -1;
940 if (x->dwHighDateTime > y->dwHighDateTime)
941 return 1;
942 if (x->dwHighDateTime < y->dwHighDateTime)
943 return -1;
944 if (x->dwLowDateTime > y->dwLowDateTime)
945 return 1;
946 if (x->dwLowDateTime < y->dwLowDateTime)
947 return -1;
948 return 0;
951 /*********************************************************************
952 * GetLocalTime (KERNEL32.@)
954 * Get the current local time.
956 * PARAMS
957 * systime [O] Destination for current time.
959 * RETURNS
960 * Nothing.
962 VOID WINAPI GetLocalTime(LPSYSTEMTIME systime)
964 FILETIME lft;
965 LARGE_INTEGER ft, ft2;
967 NtQuerySystemTime(&ft);
968 RtlSystemTimeToLocalTime(&ft, &ft2);
969 lft.dwLowDateTime = ft2.u.LowPart;
970 lft.dwHighDateTime = ft2.u.HighPart;
971 FileTimeToSystemTime(&lft, systime);
974 /*********************************************************************
975 * GetSystemTime (KERNEL32.@)
977 * Get the current system time.
979 * PARAMS
980 * systime [O] Destination for current time.
982 * RETURNS
983 * Nothing.
985 VOID WINAPI GetSystemTime(LPSYSTEMTIME systime)
987 FILETIME ft;
988 LARGE_INTEGER t;
990 NtQuerySystemTime(&t);
991 ft.dwLowDateTime = t.u.LowPart;
992 ft.dwHighDateTime = t.u.HighPart;
993 FileTimeToSystemTime(&ft, systime);
996 /*********************************************************************
997 * GetDaylightFlag (KERNEL32.@)
999 * Specifies if daylight savings time is in operation.
1001 * NOTES
1002 * This function is called from the Win98's control applet timedate.cpl.
1004 * RETURNS
1005 * TRUE if daylight savings time is in operation.
1006 * FALSE otherwise.
1008 BOOL WINAPI GetDaylightFlag(void)
1010 TIME_ZONE_INFORMATION tzinfo;
1011 return GetTimeZoneInformation( &tzinfo) == TIME_ZONE_ID_DAYLIGHT;
1014 /***********************************************************************
1015 * DosDateTimeToFileTime (KERNEL32.@)
1017 BOOL WINAPI DosDateTimeToFileTime( WORD fatdate, WORD fattime, LPFILETIME ft)
1019 struct tm newtm;
1020 #ifndef HAVE_TIMEGM
1021 struct tm *gtm;
1022 time_t time1, time2;
1023 #endif
1025 newtm.tm_sec = (fattime & 0x1f) * 2;
1026 newtm.tm_min = (fattime >> 5) & 0x3f;
1027 newtm.tm_hour = (fattime >> 11);
1028 newtm.tm_mday = (fatdate & 0x1f);
1029 newtm.tm_mon = ((fatdate >> 5) & 0x0f) - 1;
1030 newtm.tm_year = (fatdate >> 9) + 80;
1031 newtm.tm_isdst = -1;
1032 #ifdef HAVE_TIMEGM
1033 RtlSecondsSince1970ToTime( timegm(&newtm), (LARGE_INTEGER *)ft );
1034 #else
1035 time1 = mktime(&newtm);
1036 gtm = gmtime(&time1);
1037 time2 = mktime(gtm);
1038 RtlSecondsSince1970ToTime( 2*time1-time2, (LARGE_INTEGER *)ft );
1039 #endif
1040 return TRUE;
1044 /***********************************************************************
1045 * FileTimeToDosDateTime (KERNEL32.@)
1047 BOOL WINAPI FileTimeToDosDateTime( const FILETIME *ft, LPWORD fatdate,
1048 LPWORD fattime )
1050 LARGE_INTEGER li;
1051 ULONG t;
1052 time_t unixtime;
1053 struct tm* tm;
1055 if (!fatdate || !fattime)
1057 SetLastError(ERROR_INVALID_PARAMETER);
1058 return FALSE;
1060 li.u.LowPart = ft->dwLowDateTime;
1061 li.u.HighPart = ft->dwHighDateTime;
1062 if (!RtlTimeToSecondsSince1970( &li, &t ))
1064 SetLastError(ERROR_INVALID_PARAMETER);
1065 return FALSE;
1067 unixtime = t;
1068 tm = gmtime( &unixtime );
1069 if (fattime)
1070 *fattime = (tm->tm_hour << 11) + (tm->tm_min << 5) + (tm->tm_sec / 2);
1071 if (fatdate)
1072 *fatdate = ((tm->tm_year - 80) << 9) + ((tm->tm_mon + 1) << 5)
1073 + tm->tm_mday;
1074 return TRUE;
1077 /*********************************************************************
1078 * GetSystemTimes (KERNEL32.@)
1080 * Retrieves system timing information
1082 * PARAMS
1083 * lpIdleTime [O] Destination for idle time.
1084 * lpKernelTime [O] Destination for kernel time.
1085 * lpUserTime [O] Destination for user time.
1087 * RETURNS
1088 * TRUE if success, FALSE otherwise.
1090 BOOL WINAPI GetSystemTimes(LPFILETIME lpIdleTime, LPFILETIME lpKernelTime, LPFILETIME lpUserTime)
1092 FIXME("(%p,%p,%p): Stub!\n", lpIdleTime, lpKernelTime, lpUserTime);
1094 return FALSE;
1097 /***********************************************************************
1098 * GetDynamicTimeZoneInformation (KERNEL32.@)
1100 DWORD WINAPI GetDynamicTimeZoneInformation(PDYNAMIC_TIME_ZONE_INFORMATION info)
1102 FIXME("(%p) stub!\n", info);
1103 SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
1104 return TIME_ZONE_ID_INVALID;
1107 /***********************************************************************
1108 * QueryThreadCycleTime (KERNEL32.@)
1110 BOOL WINAPI QueryThreadCycleTime(HANDLE thread, PULONG64 cycle)
1112 static int once;
1113 if (!once++)
1114 FIXME("(%p,%p,): stub!\n", thread, cycle);
1115 SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
1116 return FALSE;
1119 /***********************************************************************
1120 * QueryUnbiasedInterruptTime (KERNEL32.@)
1122 BOOL WINAPI QueryUnbiasedInterruptTime(ULONGLONG *time)
1124 TRACE("(%p)\n", time);
1125 if (!time) return FALSE;
1126 RtlQueryUnbiasedInterruptTime(time);
1127 return TRUE;