1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
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
|
/*
* unix_time.c
*
* Glue code for pasting Kerberos into the Unix environment.
*
* Originally written by John Gilmore, Cygnus Support, May '94.
* Public Domain.
*
* Required for use by the Cygnus krb.a.
*/
#include "k5-int.h"
#ifndef _MSDOS
#include <sys/time.h>
krb5_ui_4 INTERFACE
unix_time_gmt_unixsec (usecptr)
krb5_ui_4 *usecptr;
{
struct timeval now;
(void) gettimeofday (&now, (struct timezone *)0);
if (usecptr)
*usecptr = now.tv_usec;
return now.tv_sec;
}
#else /* _MSDOS */
/*
* Originally written by John Gilmore, Cygnus Support, May '94.
* Public Domain.
*/
#include <time.h>
#include <sys/timeb.h>
#include <dos.h>
#include <string.h>
/*
* Due to the fact that DOS time can be unreliable we have reverted
* to using the AT hardware clock and converting it to Unix time.
*/
static long win_time_get_epoch(void);
krb5_ui_4 INTERFACE
unix_time_gmt_unixsec (usecptr)
krb5_ui_4 *usecptr;
{
struct tm tm;
union _REGS inregs; /* For calling BIOS */
union _REGS outregs;
struct _timeb now;
time_t time;
long convert; /* MSC 7.00 bug work around */
krb5_ui_4 retval; /* What we return */
_ftime(&now); /* Daylight savings time */
/* Get time from AT hardware clock INT 0x1A, AH=2 */
memset(&inregs, 0, sizeof(inregs));
inregs.h.ah = 2;
_int86(0x1a, &inregs, &outregs);
/* 0x13 = decimal 13, hence the decoding below */
tm.tm_sec = 10 * ((outregs.h.dh & 0xF0) >> 4) + (outregs.h.dh & 0x0F);
tm.tm_min = 10 * ((outregs.h.cl & 0xF0) >> 4) + (outregs.h.cl & 0x0F);
tm.tm_hour = 10 * ((outregs.h.ch & 0xF0) >> 4) + (outregs.h.ch & 0x0F);
/* Get date from AT hardware clock INT 0x1A, AH=4 */
memset(&inregs, 0, sizeof(inregs));
inregs.h.ah = 4;
_int86(0x1a, &inregs, &outregs);
tm.tm_mday = 10 * ((outregs.h.dl & 0xF0) >> 4) + (outregs.h.dl & 0x0F);
tm.tm_mon = 10 * ((outregs.h.dh & 0xF0) >> 4) + (outregs.h.dh & 0x0F) - 1;
tm.tm_year = 10 * ((outregs.h.cl & 0xF0) >> 4) + (outregs.h.cl & 0x0F);
tm.tm_year += 100 * ((10 * (outregs.h.ch & 0xF0) >> 4)
+ (outregs.h.ch & 0x0F) - 19);
tm.tm_wday = 0;
tm.tm_yday = 0;
tm.tm_isdst = now.dstflag;
time = mktime(&tm);
convert = win_time_get_epoch();
retval = time + convert;
if (usecptr)
*usecptr = retval;
return retval;
}
/*
* This routine figures out the current time epoch and returns the
* conversion factor. It exists because
* Microloss screwed the pooch on the time() and _ftime() calls in
* its release 7.0 libraries. They changed the epoch to Dec 31, 1899!
* Idiots... We try to cope.
*/
static struct tm jan_1_70 = {0, 0, 0, 1, 0, 70};
static long epoch = 0;
static int epoch_set = 0;
static long
win_time_get_epoch()
{
if (!epoch_set) {
epoch = 0 - mktime (&jan_1_70); /* Seconds til 1970 localtime */
epoch += _timezone; /* Seconds til 1970 GMT */
epoch_set = 1;
}
return epoch;
}
#endif
|
