1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
-
+
|
/*
* tclWinTime.c --
*
* Contains Windows specific versions of Tcl functions that
* obtain time values from the operating system.
*
* Copyright 1995-1998 by Sun Microsystems, Inc.
*
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
* RCS: @(#) $Id: tclWinTime.c,v 1.12 2002/11/26 22:35:21 davygrvy Exp $
* RCS: @(#) $Id: tclWinTime.c,v 1.13 2003/01/27 02:19:57 mdejong Exp $
*/
#include "tclWinInt.h"
#define SECSPERDAY (60L * 60L * 24L)
#define SECSPERYEAR (SECSPERDAY * 365L)
#define SECSPER4YEAR (SECSPERYEAR * 4L + SECSPERDAY)
|
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
|
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
|
LONGLONG estPerfCounterFreq;
/* Current estimate of the counter frequency
* using the system clock as the standard */
} TimeInfo;
static TimeInfo timeInfo = {
{ NULL },
0,
0,
(HANDLE) NULL,
(HANDLE) NULL,
(HANDLE) NULL,
0,
0,
0,
0,
{ NULL },
0,
0,
(HANDLE) NULL,
(HANDLE) NULL,
(HANDLE) NULL,
#ifdef HAVE_CAST_TO_UNION
(ULARGE_INTEGER) (DWORDLONG) 0,
(LARGE_INTEGER) (LONGLONG) 0,
(LARGE_INTEGER) (LONGLONG) 0,
#else
0,
0,
0,
#endif
0,
0,
0
};
CONST static FILETIME posixEpoch = { 0xD53E8000, 0x019DB1DE };
/*
|