time.c revision 290001 
1/*
2 * Copyright (C) 2004, 2006-2009  Internet Systems Consortium, Inc. ("ISC")
3 * Copyright (C) 1998-2001, 2003  Internet Software Consortium.
4 *
5 * Permission to use, copy, modify, and/or distribute this software for any
6 * purpose with or without fee is hereby granted, provided that the above
7 * copyright notice and this permission notice appear in all copies.
8 *
9 * THE SOFTWARE IS PROVIDED "AS IS" AND ISC DISCLAIMS ALL WARRANTIES WITH
10 * REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
11 * AND FITNESS.  IN NO EVENT SHALL ISC BE LIABLE FOR ANY SPECIAL, DIRECT,
12 * INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
13 * LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
14 * OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
15 * PERFORMANCE OF THIS SOFTWARE.
16 */
17
18/* $Id: time.c,v 1.52 2009/08/14 07:51:08 marka Exp $ */
19
20#include <config.h>
21
22#include <errno.h>
23#include <limits.h>
24#include <stddef.h>
25#include <stdlib.h>
26#include <string.h>
27#include <time.h>
28
29#include <windows.h>
30
31#include <isc/assertions.h>
32#include <isc/time.h>
33#include <isc/util.h>
34
35/*
36 * struct FILETIME uses "100-nanoseconds intervals".
37 * NS / S = 1000000000 (10^9).
38 * While it is reasonably obvious that this makes the needed
39 * conversion factor 10^7, it is coded this way for additional clarity.
40 */
41#define NS_PER_S 	1000000000
42#define NS_INTERVAL	100
43#define INTERVALS_PER_S (NS_PER_S / NS_INTERVAL)
44#define UINT64_MAX	_UI64_MAX
45
46/***
47 *** Absolute Times
48 ***/
49
50static isc_time_t epoch = { { 0, 0 } };
51LIBISC_EXTERNAL_DATA isc_time_t *isc_time_epoch = &epoch;
52
53/***
54 *** Intervals
55 ***/
56
57static isc_interval_t zero_interval = { 0 };
58LIBISC_EXTERNAL_DATA isc_interval_t *isc_interval_zero = &zero_interval;
59
60void
61isc_interval_set(isc_interval_t *i, unsigned int seconds,
62		 unsigned int nanoseconds)
63{
64	REQUIRE(i != NULL);
65	REQUIRE(nanoseconds < NS_PER_S);
66
67	/*
68	 * This rounds nanoseconds up not down.
69	 */
70	i->interval = (LONGLONG)seconds * INTERVALS_PER_S
71		+ (nanoseconds + NS_INTERVAL - 1) / NS_INTERVAL;
72}
73
74isc_boolean_t
75isc_interval_iszero(const isc_interval_t *i) {
76	REQUIRE(i != NULL);
77	if (i->interval == 0)
78		return (ISC_TRUE);
79
80	return (ISC_FALSE);
81}
82
83void
84isc_time_set(isc_time_t *t, unsigned int seconds, unsigned int nanoseconds) {
85	SYSTEMTIME epoch = { 1970, 1, 4, 1, 0, 0, 0, 0 };
86	FILETIME temp;
87	ULARGE_INTEGER i1;
88
89	REQUIRE(t != NULL);
90	REQUIRE(nanoseconds < NS_PER_S);
91
92	SystemTimeToFileTime(&epoch, &temp);
93
94	i1.LowPart = t->absolute.dwLowDateTime;
95	i1.HighPart = t->absolute.dwHighDateTime;
96
97	i1.QuadPart += (unsigned __int64)nanoseconds/100;
98	i1.QuadPart += (unsigned __int64)seconds*10000000;
99
100	t->absolute.dwLowDateTime = i1.LowPart;
101	t->absolute.dwHighDateTime = i1.HighPart;
102}
103
104void
105isc_time_settoepoch(isc_time_t *t) {
106	REQUIRE(t != NULL);
107
108	t->absolute.dwLowDateTime = 0;
109	t->absolute.dwHighDateTime = 0;
110}
111
112isc_boolean_t
113isc_time_isepoch(const isc_time_t *t) {
114	REQUIRE(t != NULL);
115
116	if (t->absolute.dwLowDateTime == 0 &&
117	    t->absolute.dwHighDateTime == 0)
118		return (ISC_TRUE);
119
120	return (ISC_FALSE);
121}
122
123isc_result_t
124isc_time_now(isc_time_t *t) {
125	REQUIRE(t != NULL);
126
127	GetSystemTimeAsFileTime(&t->absolute);
128
129	return (ISC_R_SUCCESS);
130}
131
132isc_result_t
133isc_time_nowplusinterval(isc_time_t *t, const isc_interval_t *i) {
134	ULARGE_INTEGER i1;
135
136	REQUIRE(t != NULL);
137	REQUIRE(i != NULL);
138
139	GetSystemTimeAsFileTime(&t->absolute);
140
141	i1.LowPart = t->absolute.dwLowDateTime;
142	i1.HighPart = t->absolute.dwHighDateTime;
143
144	if (UINT64_MAX - i1.QuadPart < (unsigned __int64)i->interval)
145		return (ISC_R_RANGE);
146
147	i1.QuadPart += i->interval;
148
149	t->absolute.dwLowDateTime  = i1.LowPart;
150	t->absolute.dwHighDateTime = i1.HighPart;
151
152	return (ISC_R_SUCCESS);
153}
154
155int
156isc_time_compare(const isc_time_t *t1, const isc_time_t *t2) {
157	REQUIRE(t1 != NULL && t2 != NULL);
158
159	return ((int)CompareFileTime(&t1->absolute, &t2->absolute));
160}
161
162isc_result_t
163isc_time_add(const isc_time_t *t, const isc_interval_t *i, isc_time_t *result)
164{
165	ULARGE_INTEGER i1;
166
167	REQUIRE(t != NULL && i != NULL && result != NULL);
168
169	i1.LowPart = t->absolute.dwLowDateTime;
170	i1.HighPart = t->absolute.dwHighDateTime;
171
172	if (UINT64_MAX - i1.QuadPart < (unsigned __int64)i->interval)
173		return (ISC_R_RANGE);
174
175	i1.QuadPart += i->interval;
176
177	result->absolute.dwLowDateTime = i1.LowPart;
178	result->absolute.dwHighDateTime = i1.HighPart;
179
180	return (ISC_R_SUCCESS);
181}
182
183isc_result_t
184isc_time_subtract(const isc_time_t *t, const isc_interval_t *i,
185		  isc_time_t *result) {
186	ULARGE_INTEGER i1;
187
188	REQUIRE(t != NULL && i != NULL && result != NULL);
189
190	i1.LowPart = t->absolute.dwLowDateTime;
191	i1.HighPart = t->absolute.dwHighDateTime;
192
193	if (i1.QuadPart < (unsigned __int64) i->interval)
194		return (ISC_R_RANGE);
195
196	i1.QuadPart -= i->interval;
197
198	result->absolute.dwLowDateTime = i1.LowPart;
199	result->absolute.dwHighDateTime = i1.HighPart;
200
201	return (ISC_R_SUCCESS);
202}
203
204isc_uint64_t
205isc_time_microdiff(const isc_time_t *t1, const isc_time_t *t2) {
206	ULARGE_INTEGER i1, i2;
207	LONGLONG i3;
208
209	REQUIRE(t1 != NULL && t2 != NULL);
210
211	i1.LowPart  = t1->absolute.dwLowDateTime;
212	i1.HighPart = t1->absolute.dwHighDateTime;
213	i2.LowPart  = t2->absolute.dwLowDateTime;
214	i2.HighPart = t2->absolute.dwHighDateTime;
215
216	if (i1.QuadPart <= i2.QuadPart)
217		return (0);
218
219	/*
220	 * Convert to microseconds.
221	 */
222	i3 = (i1.QuadPart - i2.QuadPart) / 10;
223
224	return (i3);
225}
226
227isc_uint32_t
228isc_time_seconds(const isc_time_t *t) {
229	SYSTEMTIME epoch = { 1970, 1, 4, 1, 0, 0, 0, 0 };
230	FILETIME temp;
231	ULARGE_INTEGER i1, i2;
232	LONGLONG i3;
233
234	SystemTimeToFileTime(&epoch, &temp);
235
236	i1.LowPart  = t->absolute.dwLowDateTime;
237	i1.HighPart = t->absolute.dwHighDateTime;
238	i2.LowPart  = temp.dwLowDateTime;
239	i2.HighPart = temp.dwHighDateTime;
240
241	i3 = (i1.QuadPart - i2.QuadPart) / 10000000;
242
243	return ((isc_uint32_t)i3);
244}
245
246isc_uint32_t
247isc_time_nanoseconds(const isc_time_t *t) {
248	ULARGE_INTEGER i;
249
250	i.LowPart  = t->absolute.dwLowDateTime;
251	i.HighPart = t->absolute.dwHighDateTime;
252	return ((isc_uint32_t)(i.QuadPart % 10000000) * 100);
253}
254
255void
256isc_time_formattimestamp(const isc_time_t *t, char *buf, unsigned int len) {
257	FILETIME localft;
258	SYSTEMTIME st;
259	char DateBuf[50];
260	char TimeBuf[50];
261
262	static const char badtime[] = "99-Bad-9999 99:99:99.999";
263
264	REQUIRE(len > 0);
265	if (FileTimeToLocalFileTime(&t->absolute, &localft) &&
266	    FileTimeToSystemTime(&localft, &st)) {
267		GetDateFormat(LOCALE_USER_DEFAULT, 0, &st, "dd-MMM-yyyy",
268			      DateBuf, 50);
269		GetTimeFormat(LOCALE_USER_DEFAULT, TIME_NOTIMEMARKER|
270			      TIME_FORCE24HOURFORMAT, &st, NULL, TimeBuf, 50);
271
272		snprintf(buf, len, "%s %s.%03u", DateBuf, TimeBuf,
273			 st.wMilliseconds);
274
275	} else
276		snprintf(buf, len, badtime);
277}
278
279void
280isc_time_formathttptimestamp(const isc_time_t *t, char *buf, unsigned int len) {
281	SYSTEMTIME st;
282	char DateBuf[50];
283	char TimeBuf[50];
284
285/* strftime() format: "%a, %d %b %Y %H:%M:%S GMT" */
286
287	REQUIRE(len > 0);
288	if (FileTimeToSystemTime(&t->absolute, &st)) {
289		GetDateFormat(LOCALE_USER_DEFAULT, 0, &st,
290			      "ddd',', dd-MMM-yyyy", DateBuf, 50);
291		GetTimeFormat(LOCALE_USER_DEFAULT,
292			      TIME_NOTIMEMARKER | TIME_FORCE24HOURFORMAT,
293			      &st, "hh':'mm':'ss", TimeBuf, 50);
294
295		snprintf(buf, len, "%s %s GMT", DateBuf, TimeBuf);
296	} else {
297		buf[0] = 0;
298	}
299}
300
301void
302isc_time_formatISO8601(const isc_time_t *t, char *buf, unsigned int len) {
303	SYSTEMTIME st;
304	char DateBuf[50];
305	char TimeBuf[50];
306
307/* strtime() format: "%Y-%m-%dT%H:%M:%SZ" */
308
309	REQUIRE(len > 0);
310	if (FileTimeToSystemTime(&t->absolute, &st)) {
311		GetDateFormat(LOCALE_NEUTRAL, 0, &st, "yyyy-MM-dd",
312			      DateBuf, 50);
313		GetTimeFormat(LOCALE_NEUTRAL,
314			      TIME_NOTIMEMARKER | TIME_FORCE24HOURFORMAT,
315			      &st, "hh':'mm':'ss", TimeBuf, 50);
316		snprintf(buf, len, "%s%sZ", DateBuf, TimeBuf);
317	} else {
318		buf[0] = 0;
319	}
320}
321