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
|
/* qemu-time.c -- stubs so clock can be linked in.
*
* Copyright (c) 2008 Anthony Green
*
* The authors hereby grant permission to use, copy, modify, distribute,
* and license this software and its documentation for any purpose, provided
* that existing copyright notices are retained in all copies and that this
* notice is included verbatim in any distributions. No written agreement,
* license, or royalty fee is required for any of the authorized uses.
* Modifications to this software may be copyrighted by their authors
* and need not follow the licensing terms described here, provided that
* the new terms are clearly indicated on the first page of each file where
* they apply.
*/
#include <errno.h>
#include <time.h>
#include <sys/time.h>
#include <sys/times.h>
#include "glue.h"
/* This is the base address of the mc146818 RTC i/o port. */
#define RTC_PORT 0x400
#define RTC_SECONDS 0x00
#define RTC_SECONDS_ALARM 0x01
#define RTC_MINUTES 0x02
#define RTC_MINUTES_ALARM 0x03
#define RTC_HOURS 0x04
#define RTC_HOURS_ALARM 0x05
#define RTC_DAY_OF_WEEK 0x06
#define RTC_DATE_OF_MONTH 0x07
#define RTC_MONTH 0x08
#define RTC_YEAR 0x09
#define RTC_CONFIG_A 0x0A
#define RTC_CONFIG_B 0x0B
#define RTC_CONFIG_C 0x0C
#define RTC_CONFIG_D 0x0D
/*
* _times -- FIXME
*/
int
_DEFUN (_times, _times (buf),
struct tms *buf)
{
errno = EINVAL;
return (-1);
}
/* Read a value from the RTC port. */
static unsigned char
rtc_read (unsigned char reg)
{
*(volatile unsigned char *)(RTC_PORT) = reg;
return *(volatile unsigned char *)(RTC_PORT + 1);
}
/* Write a value to the RTC port. */
static void
rtc_write (unsigned char reg, unsigned char val)
{
*(volatile unsigned char *)(RTC_PORT) = reg;
*(volatile unsigned char *)(RTC_PORT + 1) = val;
}
/* Convert BCD to Decimal. */
#define BCD2DEC(BYTE) ((((BYTE >> 4) & 0xF) * 10) + (BYTE & 0xF))
/*
* time -- return current time in seconds.
*/
time_t
_DEFUN (time, time (t),
time_t *t)
{
struct tm tm;
time_t ret;
tm.tm_sec = BCD2DEC(rtc_read(RTC_SECONDS));
tm.tm_min = BCD2DEC(rtc_read(RTC_MINUTES));
tm.tm_hour = BCD2DEC(rtc_read(RTC_HOURS));
tm.tm_wday = BCD2DEC(rtc_read(RTC_DAY_OF_WEEK)) - 1;
tm.tm_mday = BCD2DEC(rtc_read(RTC_DATE_OF_MONTH));
tm.tm_mon = BCD2DEC(rtc_read(RTC_MONTH)) - 1;
tm.tm_year = BCD2DEC(rtc_read(RTC_YEAR)) + 100;
/* FIXME. Not really sure how to handle this. */
tm.tm_isdst = 1;
ret = mktime(&tm);
if (t)
*t = ret;
return ret;
}
/*
* _gettimeofday -- implement in terms of time, which means we can't
* return the microseconds.
*/
int
_DEFUN (_gettimeofday, _gettimeofday (tv, tz),
struct timeval *tv _AND
void *tzvp)
{
struct timezone *tz = tzvp;
struct tm tm;
if (tz)
tz->tz_minuteswest = tz->tz_dsttime = 0;
tv->tv_usec = 0;
tv->tv_sec = time(0);
return 0;
}
|
