4 * RtlTimeToTimeFields, RtlTimeFieldsToTime and defines are taken from ReactOS and
5 * adapted to wine with special permissions of the author. This code is
6 * Copyright 2002 Rex Jolliff (rex@lvcablemodem.com)
8 * Copyright 1999 Juergen Schmied
10 * This library is free software; you can redistribute it and/or
11 * modify it under the terms of the GNU Lesser General Public
12 * License as published by the Free Software Foundation; either
13 * version 2.1 of the License, or (at your option) any later version.
15 * This library is distributed in the hope that it will be useful,
16 * but WITHOUT ANY WARRANTY; without even the implied warranty of
17 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
18 * Lesser General Public License for more details.
20 * You should have received a copy of the GNU Lesser General Public
21 * License along with this library; if not, write to the Free Software
22 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
26 #include "wine/port.h"
33 #ifdef HAVE_SYS_TIME_H
34 # include <sys/time.h>
40 #define NONAMELESSUNION
41 #define NONAMELESSSTRUCT
46 #include "wine/unicode.h"
47 #include "wine/debug.h"
48 #include "ntdll_misc.h"
50 WINE_DEFAULT_DEBUG_CHANNEL(ntdll
);
52 static CRITICAL_SECTION TIME_GetBias_section
;
53 static CRITICAL_SECTION_DEBUG critsect_debug
=
55 0, 0, &TIME_GetBias_section
,
56 { &critsect_debug
.ProcessLocksList
, &critsect_debug
.ProcessLocksList
},
57 0, 0, { 0, (DWORD
)(__FILE__
": TIME_GetBias_section") }
59 static CRITICAL_SECTION TIME_GetBias_section
= { &critsect_debug
, -1, 0, 0, 0, 0 };
61 /* TimeZone registry key values */
62 static const WCHAR TZInformationKeyW
[] = { 'M','a','c','h','i','n','e','\\',
63 'S','Y','S','T','E','M','\\','C','u','r','r','e','n','t','C','o','n','t','r',
64 'o','l','S','e','t','\\','C','o','n','t','r','o','l','\\','T','i','m','e','z',
65 'o','n','e','I','n','f','o','r','m','a','t','i','o','n', 0};
66 static const WCHAR TZStandardStartW
[] = {
67 'S','t','a','n','d','a','r','d','s','t','a','r','t', 0};
68 static const WCHAR TZDaylightStartW
[] = {
69 'D','a','y','l','i','g','h','t','s','t','a','r','t', 0};
70 static const WCHAR TZDaylightBiasW
[] = {
71 'D','a','y','l','i','g','h','t','B','i','a','s', 0};
72 static const WCHAR TZStandardBiasW
[] = {
73 'S','t','a','n','d','a','r','d','B','i','a','s', 0};
74 static const WCHAR TZBiasW
[] = {'B','i','a','s', 0};
75 static const WCHAR TZDaylightNameW
[] = {
76 'D','a','y','l','i','g','h','t','N','a','m','e', 0};
77 static const WCHAR TZStandardNameW
[] = {
78 'S','t','a','n','d','a','r','d','N','a','m','e', 0};
81 #define SETTIME_MAX_ADJUST 120
83 /* This structure is used to store strings that represent all of the time zones
84 * in the world. (This is used to help GetTimeZoneInformation)
88 const char *psTZFromUnix
;
89 WCHAR psTZWindows
[32];
94 static const struct tagTZ_INFO TZ_INFO
[] =
97 {'D','a','t','e','l','i','n','e',' ','S','t','a','n','d','a','r','d',' ',
98 'T','i','m','e','\0'}, -720, 0},
100 {'S','a','m','o','a',' ','S','t','a','n','d','a','r','d',' ','T','i','m',
103 {'H','a','w','a','i','i','a','n',' ','S','t','a','n','d','a','r','d',' ',
104 'T','i','m','e','\0'}, 600, 0},
106 {'A','l','a','s','k','a','n',' ','S','t','a','n','d','a','r','d',' ','T',
107 'i','m','e','\0'}, 480, 1},
109 {'P','a','c','i','f','i','c',' ','S','t','a','n','d','a','r','d',' ','T',
110 'i','m','e','\0'}, 480, 0},
112 {'P','a','c','i','f','i','c',' ','S','t','a','n','d','a','r','d',' ','T',
113 'i','m','e','\0'}, 420, 1},
115 {'U','S',' ','M','o','u','n','t','a','i','n',' ','S','t','a','n','d','a',
116 'r','d',' ','T','i','m','e','\0'}, 420, 0},
118 {'M','o','u','n','t','a','i','n',' ','S','t','a','n','d','a','r','d',' ',
119 'T','i','m','e','\0'}, 360, 1},
121 {'C','e','n','t','r','a','l',' ','A','m','e','r','i','c','a',' ','S','t',
122 'a','n','d','a','r','d',' ','T','i','m','e','\0'}, 360, 0},
124 {'C','e','n','t','r','a','l',' ','S','t','a','n','d','a','r','d',' ','T',
125 'i','m','e','\0'}, 300, 1},
127 {'S','A',' ','P','a','c','i','f','i','c',' ','S','t','a','n','d','a','r',
128 'd',' ','T','i','m','e','\0'}, 300, 0},
130 {'E','a','s','t','e','r','n',' ','S','t','a','n','d','a','r','d',' ','T',
131 'i','m','e','\0'}, 240, 1},
133 {'U','S',' ','E','a','s','t','e','r','n',' ','S','t','a','n','d','a','r',
134 'd',' ','T','i','m','e','\0'}, 300, 0},
136 {'E','a','s','t','e','r','n',' ','C','e','n','t','r','a','l',' ','S','t','a','n','d','a','r',
137 'd',' ','T','i','m','e','\0'}, 300, 0},
139 {'A','t','l','a','n','t','i','c',' ','S','t','a','n','d','a','r','d',' ',
140 'T','i','m','e','\0'}, 180, 1},
142 {'S','A',' ','W','e','s','t','e','r','n',' ','S','t','a','n','d','a','r',
143 'd',' ','T','i','m','e','\0'}, 240, 0},
145 {'P','a','c','i','f','i','c',' ','S','A',' ','S','t','a','n','d','a','r',
146 'd',' ','T','i','m','e','\0'}, 240, 0},
148 {'N','e','w','f','o','u','n','d','l','a','n','d',' ','S','t','a','n','d',
149 'a','r','d',' ','T','i','m','e','\0'}, 150, 1},
151 {'B','r','a','z','i','l','i','a','n',' ','S','t','a','n','d','a','r','d',
152 ' ','T','i','m','e','\0'}, 180, 0},
154 {'B','r','a','z','i','l','i','a','n',' ','S','u','m','m','e','r',
155 ' ','T','i','m','e','\0'}, 120, 1},
157 {'S','A',' ','E','a','s','t','e','r','n',' ','S','t','a','n','d','a','r',
158 'd',' ','T','i','m','e','\0'}, 180, 0},
160 {'G','r','e','e','n','l','a','n','d',' ','S','t','a','n','d','a','r','d',
161 ' ','T','i','m','e','\0'}, 120, 1},
163 {'M','i','d','-','A','t','l','a','n','t','i','c',' ','S','t','a','n','d',
164 'a','r','d',' ','T','i','m','e','\0'}, 120, 0},
166 {'A','z','o','r','e','s',' ','S','t','a','n','d','a','r','d',' ','T','i',
167 'm','e','\0'}, 0, 1},
169 {'C','a','p','e',' ','V','e','r','d','e',' ','S','t','a','n','d','a','r',
170 'd',' ','T','i','m','e','\0'}, 60, 0},
172 {'G','r','e','e','n','w','i','c','h',' ','S','t','a','n','d','a','r','d',
173 ' ','T','i','m','e','\0'}, 0, 0},
175 {'G','M','T',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
178 {'G','M','T',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
181 {'G','M','T',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'},
184 {'C','e','n','t','r','a','l',' ','E','u','r','o','p','e','a','n',' ',
185 'T','i','m','e','\0'}, -60, 0},
187 {'C','e','n','t','r','a','l',' ','E','u','r','o','p','e',' ','S','t','a',
188 'n','d','a','r','d',' ','T','i','m','e','\0'}, -120, 1},
190 {'C','e','n','t','r','a','l',' ','E','u','r','o','p','e',' ','S','t','a',
191 'n','d','a','r','d',' ','T','i','m','e','\0'}, -60, 0},
193 {'C','e','n','t','r','a','l',' ','E','u','r','o','p','e',' ','D','a','y',
194 'l','i','g','h','t',' ','T','i','m','e','\0'}, -120, 1},
196 {'W','.',' ','C','e','n','t','r','a','l',' ','A','f','r','i','c','a',' ',
197 'S','t','a','n','d','a','r','d',' ','T','i','m','e','\0'}, -60, 0},
199 {'E','.',' ','E','u','r','o','p','e',' ','S','t','a','n','d','a','r','d',
200 ' ','T','i','m','e','\0'}, -180, 1},
202 {'E','g','y','p','t',' ','S','t','a','n','d','a','r','d',' ','T','i','m',
205 {'C','e','n','t','r','a','l',' ','A','f','r','i','c','a','n',' '
206 ,'T','i','m','e','\0'}, -120, 0},
208 {'S','o','u','t','h',' ','A','f','r','i','c','a',' ','S','t','a','n','d',
209 'a','r','d',' ','T','i','m','e','\0'}, -120, 0},
211 {'I','s','r','a','e','l',' ','S','t','a','n','d','a','r','d',' ','T','i',
212 'm','e','\0'}, -120, 0},
214 {'R','u','s','s','i','a','n',' ','S','t','a','n','d','a','r','d',' ','T',
215 'i','m','e','\0'}, -180, 0},
217 {'A','r','a','b','i','c',' ','S','t','a','n','d','a','r','d',' ','T','i',
218 'm','e','\0'}, -240, 1},
220 {'A','r','a','b',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e',
223 {'R','u','s','s','i','a','n',' ','S','t','a','n','d','a','r','d',' ','T',
224 'i','m','e','\0'}, -240, 1},
226 {'E','.',' ','A','f','r','i','c','a',' ','S','t','a','n','d','a','r','d',
227 ' ','T','i','m','e','\0'}, -180, 0},
229 {'I','r','a','n',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e',
232 {'A','r','a','b','i','a','n',' ','S','t','a','n','d','a','r','d',' ','T',
233 'i','m','e','\0'}, -240, 0},
235 {'C','a','u','c','a','s','u','s',' ','S','t','a','n','d','a','r','d',' ',
236 'T','i','m','e','\0'}, -300, 1},
238 {'A','f','g','h','a','n','i','s','t','a','n',' ','S','t','a','n','d','a',
239 'r','d',' ','T','i','m','e','\0'}, -270, 0},
241 {'S','a','m','a','r','a',' ','S','t','a','n','d','a','r','d',' ','T','i',
242 'm','e','\0'}, -270, 1},
244 {'E','k','a','t','e','r','i','n','b','u','r','g',' ','S','t','a','n','d',
245 'a','r','d',' ','T','i','m','e','\0'}, -360, 1},
247 {'W','e','s','t',' ','A','s','i','a',' ','S','t','a','n','d','a','r','d',
248 ' ','T','i','m','e','\0'}, -300, 0},
250 {'I','n','d','i','a',' ','S','t','a','n','d','a','r','d',' ','T','i','m',
253 {'N','e','p','a','l',' ','S','t','a','n','d','a','r','d',' ','T','i','m',
256 {'N','.',' ','C','e','n','t','r','a','l',' ','A','s','i','a',' ','S','t',
257 'a','n','d','a','r','d',' ','T','i','m','e','\0'}, -420, 1},
259 {'C','e','n','t','r','a','l',' ','A','s','i','a',' ','S','t','a','n','d',
260 'a','r','d',' ','T','i','m','e','\0'}, -360, 0},
262 {'S','r','i',' ','L','a','n','k','a',' ','S','t','a','n','d','a','r','d',
263 ' ','T','i','m','e','\0'}, -360, 0},
265 {'M','y','a','n','m','a','r',' ','S','t','a','n','d','a','r','d',' ','T',
266 'i','m','e','\0'}, -390, 0},
268 {'S','E',' ','A','s','i','a',' ','S','t','a','n','d','a','r','d',' ','T',
269 'i','m','e','\0'}, -420, 0},
271 {'N','o','r','t','h',' ','A','s','i','a',' ','S','t','a','n','d','a','r',
272 'd',' ','T','i','m','e','\0'}, -480, 1},
274 {'C','h','i','n','a',' ','S','t','a','n','d','a','r','d',' ','T','i','m',
277 {'N','o','r','t','h',' ','A','s','i','a',' ','E','a','s','t',' ','S','t',
278 'a','n','d','a','r','d',' ','T','i','m','e','\0'}, -540, 1},
280 {'M','a','l','a','y',' ','P','e','n','i','n','s','u','l','a',' ','S','t',
281 'a','n','d','a','r','d',' ','T','i','m','e','\0'}, -480, 0},
283 {'W','.',' ','A','u','s','t','r','a','l','i','a',' ','S','t','a','n','d',
284 'a','r','d',' ','T','i','m','e','\0'}, -480, 0},
286 {'T','o','k','y','o',' ','S','t','a','n','d','a','r','d',' ','T','i','m',
289 {'K','o','r','e','a',' ','S','t','a','n','d','a','r','d',' ','T','i','m',
292 {'Y','a','k','u','t','s','k',' ','S','t','a','n','d','a','r','d',' ','T',
293 'i','m','e','\0'}, -600, 1},
295 {'C','e','n','.',' ','A','u','s','t','r','a','l','i','a',' ','S','t','a',
296 'n','d','a','r','d',' ','T','i','m','e','\0'}, -570, 0},
298 {'E','.',' ','A','u','s','t','r','a','l','i','a',' ','S','t','a','n','d',
299 'a','r','d',' ','T','i','m','e','\0'}, -600, 0},
301 {'E','.',' ','A','u','s','t','r','a','l','i','a',' ','S','t','a','n','d',
302 'a','r','d',' ','T','i','m','e','\0'}, -660, 1},
304 {'W','e','s','t',' ','P','a','c','i','f','i','c',' ','S','t','a','n','d',
305 'a','r','d',' ','T','i','m','e','\0'}, -600, 0},
307 {'V','l','a','d','i','v','o','s','t','o','k',' ','S','t','a','n','d','a',
308 'r','d',' ','T','i','m','e','\0'}, -660, 1},
310 {'C','e','n','t','r','a','l',' ','P','a','c','i','f','i','c',' ','S','t',
311 'a','n','d','a','r','d',' ','T','i','m','e','\0'}, -720, 1},
313 {'N','e','w',' ','Z','e','a','l','a','n','d',' ','S','t','a','n','d','a',
314 'r','d',' ','T','i','m','e','\0'}, -720, 0},
316 {'N','e','w',' ','Z','e','a','l','a','n','d',' ','D','a','y','l','i','g',
317 'h','t',' ','T','i','m','e','\0'}, -780, 1},
319 {'F','i','j','i',' ','S','t','a','n','d','a','r','d',' ','T','i','m','e',
322 {'T','o','n','g','a',' ','S','t','a','n','d','a','r','d',' ','T','i','m',
325 {'N','o','v','o','s','i','b','i','r','s','k',' ','S','t','a','n','d','a',
326 'r','d',' ','T','i','m','e','\0'}, -360, 1},
328 {'A','n','a','d','y','r',' ','S','t','a','n','d','a','r','d',' ','T','i',
329 'm','e','\0'}, -720, 1}
332 #define TICKSPERSEC 10000000
333 #define TICKSPERMSEC 10000
334 #define SECSPERDAY 86400
335 #define SECSPERHOUR 3600
336 #define SECSPERMIN 60
337 #define MINSPERHOUR 60
338 #define HOURSPERDAY 24
339 #define EPOCHWEEKDAY 1 /* Jan 1, 1601 was Monday */
340 #define DAYSPERWEEK 7
341 #define EPOCHYEAR 1601
342 #define DAYSPERNORMALYEAR 365
343 #define DAYSPERLEAPYEAR 366
344 #define MONSPERYEAR 12
345 #define DAYSPERQUADRICENTENNIUM (365 * 400 + 97)
346 #define DAYSPERNORMALCENTURY (365 * 100 + 24)
347 #define DAYSPERNORMALQUADRENNIUM (365 * 4 + 1)
349 /* 1601 to 1970 is 369 years plus 89 leap days */
350 #define SECS_1601_TO_1970 ((369 * 365 + 89) * (ULONGLONG)SECSPERDAY)
351 #define TICKS_1601_TO_1970 (SECS_1601_TO_1970 * TICKSPERSEC)
352 /* 1601 to 1980 is 379 years plus 91 leap days */
353 #define SECS_1601_TO_1980 ((379 * 365 + 91) * (ULONGLONG)SECSPERDAY)
354 #define TICKS_1601_TO_1980 (SECS_1601_TO_1980 * TICKSPERSEC)
355 /* max ticks that can be represented as Unix time */
356 #define TICKS_1601_TO_UNIX_MAX ((SECS_1601_TO_1970 + INT_MAX) * TICKSPERSEC)
359 static const int MonthLengths
[2][MONSPERYEAR
] =
361 { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 },
362 { 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 }
365 static inline int IsLeapYear(int Year
)
367 return Year
% 4 == 0 && (Year
% 100 != 0 || Year
% 400 == 0) ? 1 : 0;
370 /***********************************************************************
371 * NTDLL_get_server_timeout
373 * Convert a NTDLL timeout into a timeval struct to send to the server.
375 void NTDLL_get_server_timeout( abs_time_t
*when
, const LARGE_INTEGER
*timeout
)
379 if (!timeout
) /* infinite timeout */
381 when
->sec
= when
->usec
= 0;
383 else if (timeout
->QuadPart
<= 0) /* relative timeout */
387 if (-timeout
->QuadPart
> (LONGLONG
)INT_MAX
* TICKSPERSEC
)
388 when
->sec
= when
->usec
= INT_MAX
;
391 ULONG sec
= RtlEnlargedUnsignedDivide( -timeout
->QuadPart
, TICKSPERSEC
, &remainder
);
392 gettimeofday( &tv
, 0 );
393 when
->sec
= tv
.tv_sec
+ sec
;
394 if ((when
->usec
= tv
.tv_usec
+ (remainder
/ 10)) >= 1000000)
396 when
->usec
-= 1000000;
399 if (when
->sec
< tv
.tv_sec
) /* overflow */
400 when
->sec
= when
->usec
= INT_MAX
;
403 else /* absolute time */
405 if (timeout
->QuadPart
< TICKS_1601_TO_1970
)
406 when
->sec
= when
->usec
= 0;
407 else if (timeout
->QuadPart
> TICKS_1601_TO_UNIX_MAX
)
408 when
->sec
= when
->usec
= INT_MAX
;
411 when
->sec
= RtlEnlargedUnsignedDivide( timeout
->QuadPart
- TICKS_1601_TO_1970
,
412 TICKSPERSEC
, &remainder
);
413 when
->usec
= remainder
/ 10;
419 /***********************************************************************
420 * NTDLL_from_server_timeout
422 * Convert a timeval struct from the server into an NTDLL timeout.
424 void NTDLL_from_server_timeout( LARGE_INTEGER
*timeout
, const abs_time_t
*when
)
426 timeout
->QuadPart
= when
->sec
* (ULONGLONG
)TICKSPERSEC
+ TICKS_1601_TO_1970
;
427 timeout
->QuadPart
+= when
->usec
* 10;
431 /******************************************************************************
432 * RtlTimeToTimeFields [NTDLL.@]
434 * Convert a time into a TIME_FIELDS structure.
437 * liTime [I] Time to convert.
438 * TimeFields [O] Destination for the converted time.
443 VOID WINAPI
RtlTimeToTimeFields(
444 const LARGE_INTEGER
*liTime
,
445 PTIME_FIELDS TimeFields
)
448 long int cleaps
, years
, yearday
, months
;
452 /* Extract millisecond from time and convert time into seconds */
453 TimeFields
->Milliseconds
=
454 (CSHORT
) (( liTime
->QuadPart
% TICKSPERSEC
) / TICKSPERMSEC
);
455 Time
= liTime
->QuadPart
/ TICKSPERSEC
;
457 /* The native version of RtlTimeToTimeFields does not take leap seconds
460 /* Split the time into days and seconds within the day */
461 Days
= Time
/ SECSPERDAY
;
462 SecondsInDay
= Time
% SECSPERDAY
;
464 /* compute time of day */
465 TimeFields
->Hour
= (CSHORT
) (SecondsInDay
/ SECSPERHOUR
);
466 SecondsInDay
= SecondsInDay
% SECSPERHOUR
;
467 TimeFields
->Minute
= (CSHORT
) (SecondsInDay
/ SECSPERMIN
);
468 TimeFields
->Second
= (CSHORT
) (SecondsInDay
% SECSPERMIN
);
470 /* compute day of week */
471 TimeFields
->Weekday
= (CSHORT
) ((EPOCHWEEKDAY
+ Days
) % DAYSPERWEEK
);
473 /* compute year, month and day of month. */
474 cleaps
=( 3 * ((4 * Days
+ 1227) / DAYSPERQUADRICENTENNIUM
) + 3 ) / 4;
475 Days
+= 28188 + cleaps
;
476 years
= (20 * Days
- 2442) / (5 * DAYSPERNORMALQUADRENNIUM
);
477 yearday
= Days
- (years
* DAYSPERNORMALQUADRENNIUM
)/4;
478 months
= (64 * yearday
) / 1959;
479 /* the result is based on a year starting on March.
480 * To convert take 12 from Januari and Februari and
481 * increase the year by one. */
483 TimeFields
->Month
= months
- 1;
484 TimeFields
->Year
= years
+ 1524;
486 TimeFields
->Month
= months
- 13;
487 TimeFields
->Year
= years
+ 1525;
489 /* calculation of day of month is based on the wonderful
490 * sequence of INT( n * 30.6): it reproduces the
491 * 31-30-31-30-31-31 month lengths exactly for small n's */
492 TimeFields
->Day
= yearday
- (1959 * months
) / 64 ;
496 /******************************************************************************
497 * RtlTimeFieldsToTime [NTDLL.@]
499 * Convert a TIME_FIELDS structure into a time.
502 * ftTimeFields [I] TIME_FIELDS structure to convert.
503 * Time [O] Destination for the converted time.
509 BOOLEAN WINAPI
RtlTimeFieldsToTime(
510 PTIME_FIELDS tfTimeFields
,
513 int month
, year
, cleaps
, day
;
515 /* FIXME: normalize the TIME_FIELDS structure here */
516 /* No, native just returns 0 (error) if the fields are not */
517 if( tfTimeFields
->Milliseconds
< 0 || tfTimeFields
->Milliseconds
> 999 ||
518 tfTimeFields
->Second
< 0 || tfTimeFields
->Second
> 59 ||
519 tfTimeFields
->Minute
< 0 || tfTimeFields
->Minute
> 59 ||
520 tfTimeFields
->Hour
< 0 || tfTimeFields
->Hour
> 23 ||
521 tfTimeFields
->Month
< 1 || tfTimeFields
->Month
> 12 ||
522 tfTimeFields
->Day
< 1 ||
523 tfTimeFields
->Day
> MonthLengths
524 [ tfTimeFields
->Month
==2 || IsLeapYear(tfTimeFields
->Year
)]
525 [ tfTimeFields
->Month
- 1] ||
526 tfTimeFields
->Year
< 1601 )
529 /* now calculate a day count from the date
530 * First start counting years from March. This way the leap days
531 * are added at the end of the year, not somewhere in the middle.
532 * Formula's become so much less complicate that way.
533 * To convert: add 12 to the month numbers of Jan and Feb, and
534 * take 1 from the year */
535 if(tfTimeFields
->Month
< 3) {
536 month
= tfTimeFields
->Month
+ 13;
537 year
= tfTimeFields
->Year
- 1;
539 month
= tfTimeFields
->Month
+ 1;
540 year
= tfTimeFields
->Year
;
542 cleaps
= (3 * (year
/ 100) + 3) / 4; /* nr of "century leap years"*/
543 day
= (36525 * year
) / 100 - cleaps
+ /* year * dayperyr, corrected */
544 (1959 * month
) / 64 + /* months * daypermonth */
545 tfTimeFields
->Day
- /* day of the month */
546 584817 ; /* zero that on 1601-01-01 */
549 Time
->QuadPart
= (((((LONGLONG
) day
* HOURSPERDAY
+
550 tfTimeFields
->Hour
) * MINSPERHOUR
+
551 tfTimeFields
->Minute
) * SECSPERMIN
+
552 tfTimeFields
->Second
) * 1000 +
553 tfTimeFields
->Milliseconds
) * TICKSPERMSEC
;
558 /***********************************************************************
559 * TIME_GetBias [internal]
561 * Helper function calculates delta local time from UTC.
564 * utc [I] The current utc time.
565 * pdaylight [I] Local daylight.
568 * The bias for the current timezone.
570 static int TIME_GetBias(time_t utc
, int *pdaylight
)
573 static time_t last_utc
;
574 static int last_bias
;
575 static int last_daylight
;
578 RtlEnterCriticalSection( &TIME_GetBias_section
);
581 *pdaylight
= last_daylight
;
585 ptm
= localtime(&utc
);
586 *pdaylight
= last_daylight
=
587 ptm
->tm_isdst
; /* daylight for local timezone */
589 ptm
->tm_isdst
= *pdaylight
; /* use local daylight, not that of Greenwich */
591 ret
= last_bias
= (int)(utc
-mktime(ptm
));
593 RtlLeaveCriticalSection( &TIME_GetBias_section
);
597 /******************************************************************************
598 * RtlLocalTimeToSystemTime [NTDLL.@]
600 * Convert a local time into system time.
603 * LocalTime [I] Local time to convert.
604 * SystemTime [O] Destination for the converted time.
607 * Success: STATUS_SUCCESS.
608 * Failure: An NTSTATUS error code indicating the problem.
610 NTSTATUS WINAPI
RtlLocalTimeToSystemTime( const LARGE_INTEGER
*LocalTime
,
611 PLARGE_INTEGER SystemTime
)
616 TRACE("(%p, %p)\n", LocalTime
, SystemTime
);
619 bias
= TIME_GetBias(gmt
, &daylight
);
621 SystemTime
->QuadPart
= LocalTime
->QuadPart
- bias
* (LONGLONG
)TICKSPERSEC
;
622 return STATUS_SUCCESS
;
625 /******************************************************************************
626 * RtlSystemTimeToLocalTime [NTDLL.@]
628 * Convert a system time into a local time.
631 * SystemTime [I] System time to convert.
632 * LocalTime [O] Destination for the converted time.
635 * Success: STATUS_SUCCESS.
636 * Failure: An NTSTATUS error code indicating the problem.
638 NTSTATUS WINAPI
RtlSystemTimeToLocalTime( const LARGE_INTEGER
*SystemTime
,
639 PLARGE_INTEGER LocalTime
)
644 TRACE("(%p, %p)\n", SystemTime
, LocalTime
);
647 bias
= TIME_GetBias(gmt
, &daylight
);
649 LocalTime
->QuadPart
= SystemTime
->QuadPart
+ bias
* (LONGLONG
)TICKSPERSEC
;
650 return STATUS_SUCCESS
;
653 /******************************************************************************
654 * RtlTimeToSecondsSince1970 [NTDLL.@]
656 * Convert a time into a count of seconds since 1970.
659 * Time [I] Time to convert.
660 * Seconds [O] Destination for the converted time.
664 * Failure: FALSE, if the resulting value will not fit in a DWORD.
666 BOOLEAN WINAPI
RtlTimeToSecondsSince1970( const LARGE_INTEGER
*Time
, LPDWORD Seconds
)
668 ULONGLONG tmp
= ((ULONGLONG
)Time
->u
.HighPart
<< 32) | Time
->u
.LowPart
;
669 tmp
= RtlLargeIntegerDivide( tmp
, TICKSPERSEC
, NULL
);
670 tmp
-= SECS_1601_TO_1970
;
671 if (tmp
> 0xffffffff) return FALSE
;
672 *Seconds
= (DWORD
)tmp
;
676 /******************************************************************************
677 * RtlTimeToSecondsSince1980 [NTDLL.@]
679 * Convert a time into a count of seconds since 1980.
682 * Time [I] Time to convert.
683 * Seconds [O] Destination for the converted time.
687 * Failure: FALSE, if the resulting value will not fit in a DWORD.
689 BOOLEAN WINAPI
RtlTimeToSecondsSince1980( const LARGE_INTEGER
*Time
, LPDWORD Seconds
)
691 ULONGLONG tmp
= ((ULONGLONG
)Time
->u
.HighPart
<< 32) | Time
->u
.LowPart
;
692 tmp
= RtlLargeIntegerDivide( tmp
, TICKSPERSEC
, NULL
);
693 tmp
-= SECS_1601_TO_1980
;
694 if (tmp
> 0xffffffff) return FALSE
;
695 *Seconds
= (DWORD
)tmp
;
699 /******************************************************************************
700 * RtlSecondsSince1970ToTime [NTDLL.@]
702 * Convert a count of seconds since 1970 to a time.
705 * Seconds [I] Time to convert.
706 * Time [O] Destination for the converted time.
711 void WINAPI
RtlSecondsSince1970ToTime( DWORD Seconds
, LARGE_INTEGER
*Time
)
713 ULONGLONG secs
= Seconds
* (ULONGLONG
)TICKSPERSEC
+ TICKS_1601_TO_1970
;
714 Time
->u
.LowPart
= (DWORD
)secs
;
715 Time
->u
.HighPart
= (DWORD
)(secs
>> 32);
718 /******************************************************************************
719 * RtlSecondsSince1980ToTime [NTDLL.@]
721 * Convert a count of seconds since 1980 to a time.
724 * Seconds [I] Time to convert.
725 * Time [O] Destination for the converted time.
730 void WINAPI
RtlSecondsSince1980ToTime( DWORD Seconds
, LARGE_INTEGER
*Time
)
732 ULONGLONG secs
= Seconds
* (ULONGLONG
)TICKSPERSEC
+ TICKS_1601_TO_1980
;
733 Time
->u
.LowPart
= (DWORD
)secs
;
734 Time
->u
.HighPart
= (DWORD
)(secs
>> 32);
737 /******************************************************************************
738 * RtlTimeToElapsedTimeFields [NTDLL.@]
740 * Convert a time to a count of elapsed seconds.
743 * Time [I] Time to convert.
744 * TimeFields [O] Destination for the converted time.
749 void WINAPI
RtlTimeToElapsedTimeFields( const LARGE_INTEGER
*Time
, PTIME_FIELDS TimeFields
)
754 time
= RtlExtendedLargeIntegerDivide( Time
->QuadPart
, TICKSPERSEC
, &rem
);
755 TimeFields
->Milliseconds
= rem
/ TICKSPERMSEC
;
757 /* time is now in seconds */
758 TimeFields
->Year
= 0;
759 TimeFields
->Month
= 0;
760 TimeFields
->Day
= RtlExtendedLargeIntegerDivide( time
, SECSPERDAY
, &rem
);
762 /* rem is now the remaining seconds in the last day */
763 TimeFields
->Second
= rem
% 60;
765 TimeFields
->Minute
= rem
% 60;
766 TimeFields
->Hour
= rem
/ 60;
769 /***********************************************************************
770 * NtQuerySystemTime [NTDLL.@]
771 * ZwQuerySystemTime [NTDLL.@]
773 * Get the current system time.
776 * Time [O] Destination for the current system time.
779 * Success: STATUS_SUCCESS.
780 * Failure: An NTSTATUS error code indicating the problem.
782 NTSTATUS WINAPI
NtQuerySystemTime( PLARGE_INTEGER Time
)
786 gettimeofday( &now
, 0 );
787 Time
->QuadPart
= now
.tv_sec
* (ULONGLONG
)TICKSPERSEC
+ TICKS_1601_TO_1970
;
788 Time
->QuadPart
+= now
.tv_usec
* 10;
789 return STATUS_SUCCESS
;
792 /***********************************************************************
793 * TIME_GetTZAsStr [internal]
795 * Helper function that returns the given timezone as a string.
798 * utc [I] The current utc time.
799 * bias [I] The bias of the current timezone.
806 * This could be done with a hash table instead of merely iterating through a
807 * table, however with the small amount of entries (60 or so) I didn't think
810 static const WCHAR
* TIME_GetTZAsStr (time_t utc
, int bias
, int dst
)
813 struct tm
*ptm
= localtime(&utc
);
816 if (!strftime (psTZName
, 7, "%Z", ptm
))
819 for (i
=0; i
<(sizeof(TZ_INFO
) / sizeof(struct tagTZ_INFO
)); i
++)
821 if ( strcmp(TZ_INFO
[i
].psTZFromUnix
, psTZName
) == 0 &&
822 TZ_INFO
[i
].bias
== bias
&&
823 TZ_INFO
[i
].dst
== dst
825 return TZ_INFO
[i
].psTZWindows
;
827 FIXME("Can't match system time zone name \"%s\", bias=%d and dst=%d "
828 "to an entry in TZ_INFO. Please add appropriate entry to "
829 "TZ_INFO and submit as patch to wine-patches\n",psTZName
,bias
,dst
);
833 /*** TIME_GetTimeZoneInfoFromReg: helper for GetTimeZoneInformation ***/
836 static int TIME_GetTimeZoneInfoFromReg(LPTIME_ZONE_INFORMATION tzinfo
)
839 KEY_VALUE_PARTIAL_INFORMATION
* KpInfo
=
840 (KEY_VALUE_PARTIAL_INFORMATION
*) buf
;
843 OBJECT_ATTRIBUTES attr
;
844 UNICODE_STRING nameW
;
846 attr
.Length
= sizeof(attr
);
847 attr
.RootDirectory
= 0;
848 attr
.ObjectName
= &nameW
;
850 attr
.SecurityDescriptor
= NULL
;
851 attr
.SecurityQualityOfService
= NULL
;
852 RtlInitUnicodeString( &nameW
, TZInformationKeyW
);
853 if (!NtOpenKey( &hkey
, KEY_ALL_ACCESS
, &attr
)) {
855 #define GTZIFR_N( valkey, tofield) \
856 RtlInitUnicodeString( &nameW, valkey );\
857 if (!NtQueryValueKey( hkey, &nameW, KeyValuePartialInformation, KpInfo,\
858 sizeof(buf), &size )) { \
859 if( size >= (sizeof((tofield)) + \
860 offsetof(KEY_VALUE_PARTIAL_INFORMATION,Data))); { \
862 KpInfo->Data, sizeof(tofield)); \
865 #define GTZIFR_S( valkey, tofield) \
866 RtlInitUnicodeString( &nameW, valkey );\
867 if (!NtQueryValueKey( hkey, &nameW, KeyValuePartialInformation, KpInfo,\
868 sizeof(buf), &size )) { \
869 size_t len = (strlenW( (WCHAR*)KpInfo->Data ) + 1) * sizeof(WCHAR); \
870 if (len > sizeof(tofield)) len = sizeof(tofield); \
871 memcpy( tofield, KpInfo->Data, len ); \
872 tofield[(len/sizeof(WCHAR))-1] = 0; \
875 GTZIFR_N( TZStandardStartW
, tzinfo
->StandardDate
)
876 GTZIFR_N( TZDaylightStartW
, tzinfo
->DaylightDate
)
877 GTZIFR_N( TZBiasW
, tzinfo
->Bias
)
878 GTZIFR_N( TZStandardBiasW
, tzinfo
->StandardBias
)
879 GTZIFR_N( TZDaylightBiasW
, tzinfo
->DaylightBias
)
880 GTZIFR_S( TZStandardNameW
, tzinfo
->StandardName
)
881 GTZIFR_S( TZDaylightNameW
, tzinfo
->DaylightName
)
891 /***********************************************************************
892 * RtlQueryTimeZoneInformation [NTDLL.@]
894 * Get information about the current timezone.
897 * tzinfo [O] Destination for the retrieved timezone info.
900 * Success: STATUS_SUCCESS.
901 * Failure: An NTSTATUS error code indicating the problem.
903 NTSTATUS WINAPI
RtlQueryTimeZoneInformation(LPTIME_ZONE_INFORMATION tzinfo
)
909 memset(tzinfo
, 0, sizeof(TIME_ZONE_INFORMATION
));
911 if( !TIME_GetTimeZoneInfoFromReg(tzinfo
)) {
914 bias
= TIME_GetBias(gmt
, &daylight
);
916 tzinfo
->Bias
= -bias
/ 60;
917 tzinfo
->StandardBias
= 0;
918 tzinfo
->DaylightBias
= -60;
919 tzinfo
->StandardName
[0]='\0';
920 tzinfo
->DaylightName
[0]='\0';
921 psTZ
= TIME_GetTZAsStr (gmt
, (-bias
/60), daylight
);
922 if (psTZ
) strcpyW( tzinfo
->StandardName
, psTZ
);
924 return STATUS_SUCCESS
;
927 /***********************************************************************
928 * RtlSetTimeZoneInformation [NTDLL.@]
930 * Set the current time zone information.
933 * tzinfo [I] Timezone information to set.
936 * Success: STATUS_SUCCESS.
937 * Failure: An NTSTATUS error code indicating the problem.
940 * Uses the obsolete unix timezone structure and tz_dsttime member.
942 NTSTATUS WINAPI
RtlSetTimeZoneInformation( const TIME_ZONE_INFORMATION
*tzinfo
)
944 #ifdef HAVE_SETTIMEOFDAY
947 tz
.tz_minuteswest
= tzinfo
->Bias
;
949 tz
.tz_dsttime
= DST_NONE
;
953 if(!settimeofday(NULL
, &tz
))
954 return STATUS_SUCCESS
;
956 return STATUS_PRIVILEGE_NOT_HELD
;
959 /***********************************************************************
960 * NtSetSystemTime [NTDLL.@]
961 * ZwSetSystemTime [NTDLL.@]
963 * Set the system time.
966 * NewTime [I] The time to set.
967 * OldTime [O] Optional destination for the previous system time.
970 * Success: STATUS_SUCCESS.
971 * Failure: An NTSTATUS error code indicating the problem.
973 NTSTATUS WINAPI
NtSetSystemTime(const LARGE_INTEGER
*NewTime
, LARGE_INTEGER
*OldTime
)
983 /* Return the old time if necessary */
985 NtQuerySystemTime(OldTime
);
987 RtlTimeToTimeFields(NewTime
, &tf
);
989 /* call gettimeofday to get the current timezone */
990 gettimeofday(&tv
, &tz
);
992 /* get delta local time from utc */
993 bias
= TIME_GetBias(oldsec
, &dst
);
995 /* get the number of seconds */
996 t
.tm_sec
= tf
.Second
;
997 t
.tm_min
= tf
.Minute
;
1000 t
.tm_mon
= tf
.Month
- 1;
1001 t
.tm_year
= tf
.Year
- 1900;
1004 /* correct for timezone and daylight */
1007 /* set the new time */
1009 tv
.tv_usec
= tf
.Milliseconds
* 1000;
1011 /* error and sanity check*/
1012 if(sec
== (time_t)-1 || abs((int)(sec
-oldsec
)) > SETTIME_MAX_ADJUST
) {
1015 #ifdef HAVE_SETTIMEOFDAY
1016 err
= settimeofday(&tv
, NULL
); /* 0 is OK, -1 is error */
1018 return STATUS_SUCCESS
;
1024 ERR("Cannot set time to %d/%d/%d %d:%d:%d Time adjustment %ld %s\n",
1025 tf
.Year
, tf
.Month
, tf
.Day
, tf
.Hour
, tf
.Minute
, tf
.Second
,
1027 err
== -1 ? "No Permission"
1028 : sec
== (time_t)-1 ? "" : "is too large." );
1031 return STATUS_INVALID_PARAMETER
;
1033 return STATUS_PRIVILEGE_NOT_HELD
;
1035 return STATUS_NOT_IMPLEMENTED
;