## diffname power/devrtc.c 1990/1204
## diff -e /dev/null /n/bootesdump/1990/1204/sys/src/9/mips/devrtc.c
0a
#include "u.h"
#include "lib.h"
#include "mem.h"
#include "dat.h"
#include "fns.h"
#include "errno.h"
#include "devtab.h"
#include "io.h"
typedef struct Rtc Rtc;
struct Rtc
{
QLock;
int sec;
int min;
int hour;
int mday;
int mon;
int year;
};
Rtc rtc;
Dirtab rtcdir[]={
"rtc", {1}, 0, 0600,
};
static uchar pattern[] =
{
0xc5, 0x3a, 0xa3, 0x5c, 0xc5, 0x3a, 0xa3, 0x5c
};
/*
* issue pattern recognition bits to nv ram to address the
* real time clock
*/
rtcpattern(void)
{
uchar *nv;
uchar ch;
int i, j;
nv = RTC;
/*
* read the pattern sequence pointer to reset it
*/
ch = *nv;
/*
* stuff the pattern recognition codes one bit at
* a time into *nv.
*/
for(i = 0; i < sizeof(pattern); i++){
ch = pattern[i];
for (j = 0; j < 8; j++){
*nv = ch & 0x1;
ch >>= 1;
}
}
}
void
rtcreset(void)
{
}
void
rtcinit(void)
{
}
Chan*
rtcattach(char *spec)
{
return devattach('r', spec);
}
Chan*
rtcclone(Chan *c, Chan *nc)
{
return devclone(c, nc);
}
int
rtcwalk(Chan *c, char *name)
{
if(c->qid.path != CHDIR)
return 0;
if(strcmp(name, "rtc") == 0){
c->qid.path = 1;
return 1;
}
return 0;
}
void
rtcstat(Chan *c, char *dp)
{
devstat(c, dp, rtcdir, 1, devgen);
}
Chan*
rtcopen(Chan *c, int omode)
{
c->mode = openmode(omode);
c->flag |= COPEN;
c->offset = 0;
return c;
}
void
rtccreate(Chan *c, char *name, int omode, ulong perm)
{
error(Eperm);
}
void
rtcclose(Chan *c)
{
}
#define GETBCD(o) ((clock[o]&0xf) + 10*(clock[o]>>4))
long
rtcread(Chan *c, void *buf, long n)
{
int i,j;
uchar ch;
uchar *nv;
uchar clock[8];
char atime[64];
if(c->offset!=0)
error(Ebadarg);
nv = RTC;
/*
* set up the pattern for the clock
*/
qlock(&rtc);
rtcpattern();
/*
* read out the clock one bit at a time
*/
for (i = 0; i < 8; i++){
ch = 0;
for (j = 0; j < 8; j++)
ch |= ((*nv & 0x1) << j);
clock[i] = ch;
}
qunlock(&rtc);
rtc.sec = GETBCD(1);
rtc.min = GETBCD(2);
rtc.hour = GETBCD(3);
rtc.mday = GETBCD(5);
rtc.mon = GETBCD(6);
rtc.year = GETBCD(7);
/*
* the world starts jan 1 1970
*/
if(rtc.year < 70)
rtc.year += 2000;
else
rtc.year += 1900;
sprint(atime, "%.2d:%.2d:%.2d %d/%d/%d", rtc.hour, rtc.min, rtc.sec,
rtc.mon, rtc.mday, rtc.year);
i = strlen(atime);
if(c->offset >= i)
return 0;
if(c->offset + n > i)
n = i - c->offset;
strncpy(buf, &atime[c->offset], n);
return n;
}
static int perm[] =
{
3, 2, 1, 6, 5, 7
};
long
rtcwrite(Chan *c, void *buf, long n)
{
int i,j;
uchar ch;
uchar clock[8];
uchar *nv;
char *cp;
if(c->offset!=0)
error(Ebadarg);
/*
* parse (most any separator will do)
*/
ch = 0;
j = 0;
clock[0] = clock[4] = 0;
cp = buf;
for(i = 0; i < n; i++){
switch(*cp){
case ':': case ' ': case '\t': case '/': case '-':
clock[perm[j++]] = ch;
ch = 0;
break;
case '0': case '1': case '2': case '3': case '4':
case '5': case '6': case '7': case '8': case '9':
ch = (ch<<4) | (*cp - '0');
break;
default:
error(Ebadarg);
}
cp++;
}
clock[perm[j++]] = ch;
if(j != 6)
error(Ebadarg);
/*
* set up the pattern for the clock
*/
qlock(&rtc);
rtcpattern();
/*
* write the clock one bit at a time
*/
nv = RTC;
for (i = 0; i < 8; i++){
ch = clock[i];
for (j = 0; j < 8; j++){
*nv = ch & 1;
ch >>= 1;
}
}
qunlock(&rtc);
return n;
}
void
rtcremove(Chan *c)
{
error(Eperm);
}
void
rtcwstat(Chan *c, char *dp)
{
error(Eperm);
}
#define SEC2MIN 60
#define SEC2HOUR (60*SEC2MIN)
#define SEC2DAY (24*SEC2HOUR)
#define SEC2YR (365*SEC2DAY)
static char dmsize[12] =
{
31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31
};
/*
* compute seconds since Jan 1 1970
*/
ulong
rtc2sec(void)
{
ulong secs;
int i;
for(i = 1970; i < rtc.year; i++)
secs += dysize(i);
for(i = 0; i < rtc.mon-1; i++)
secs += dmsize[i] * SEC2DAY;
if(dysize(rtc.year)==366 && rtc.mon>2)
secs += SEC2DAY;
secs += (rtc.mday-1) * SEC2DAY;
secs += rtc.hour * SEC2HOUR;
secs += rtc.min * SEC2MIN;
secs += rtc.sec;
return secs;
}
/*
* compute rtc from seconds since Jan 1 1970
*/
sec2rtc(ulong secs)
{
int d0, d1;
long hms, day;
/*
* break initial number into days
*/
hms = secs % SEC2DAY;
day = secs / SEC2DAY;
if(hms < 0) {
hms += SEC2DAY;
day -= 1;
}
/*
* generate hours:minutes:seconds
*/
rtc.sec = hms % SEC2MIN;
d1 = hms / SEC2MIN;
rtc.min = d1 % SEC2MIN;
d1 /= SEC2MIN;
rtc.hour = d1;
/*
* year number
*/
if(day >= 0)
for(d1 = 70; day >= dysize(d1); d1++)
day -= dysize(d1);
else
for (d1 = 70; day < 0; d1--)
day += dysize(d1-1);
rtc.year = d1;
/*
* generate month
*/
if(dysize(d1) == 366)
dmsize[1] = 29;
for(d1 = 0; d0 >= dmsize[d1]; d1++)
d0 -= dmsize[d1];
dmsize[1] = 28;
rtc.mday = d0 + 1;
rtc.mon = d1;
return;
}
/*
* days to year
*/
static
dysize(int y)
{
if((y%4) == 0)
return 366;
return 365;
}
.
## diffname power/devrtc.c 1990/12041
## diff -e /n/bootesdump/1990/1204/sys/src/9/mips/devrtc.c /n/bootesdump/1990/12041/sys/src/9/mips/devrtc.c
340,352d
331,337c
d2m = yrsize(rtc->year);
for(d = 1; day >= d2m[d]; d++)
day -= d2m[d];
rtc->mday = day + 1;
rtc->mon = d;
.
324,326c
for (d = 1970; day < 0; d--)
day += *yrsize(d-1);
rtc->year = d;
.
321,322c
for(d = 1970; day >= *yrsize(d); d++)
day -= *yrsize(d);
.
311,315c
rtc->sec = hms % 60;
d = hms / 60;
rtc->min = d % 60;
d /= 60;
rtc->hour = d;
.
296a
int *d2m;
.
295c
int d;
.
293c
void
sec2rtc(ulong secs, Rtc *rtc)
.
277,286c
secs = 0;
/*
* seconds per year
*/
for(i = 1970; i < rtc->year; i++){
d2m = yrsize(i);
secs += d2m[0] * SEC2DAY;
}
/*
* seconds per month
*/
d2m = yrsize(rtc->year);
for(i = 1; i < rtc->mon; i++)
secs += d2m[i] * SEC2DAY;
secs += (rtc->mday-1) * SEC2DAY;
secs += rtc->hour * SEC2HOUR;
secs += rtc->min * SEC2MIN;
secs += rtc->sec;
.
275a
int *d2m;
.
272c
rtc2sec(Rtc *rtc)
.
268a
* return the days/month for the given year
*/
int *
yrsize(int yr)
{
if((yr % 4) == 0)
return ldmsize;
else
return dmsize;
}
/*
.
266a
static int ldmsize[] =
{
366, 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31
};
.
265c
365, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31
.
263c
/*
* days per month plus days/year
*/
static int dmsize[] =
.
258,261c
#define SEC2MIN 60L
#define SEC2HOUR (60L*SEC2MIN)
#define SEC2DAY (24L*SEC2HOUR)
.
242c
qunlock(&rtclock);
.
235,236c
for (i = 0; i < Nbcd; i++){
ch = bcdclock[i];
.
228c
qlock(&rtclock);
.
225a
* convert to bcd
*/
sec2rtc(secs, &rtc);
bcdclock[0] = bcdclock[4] = 0;
PUTBCD(rtc.sec, 1);
PUTBCD(rtc.min, 2);
PUTBCD(rtc.hour, 3);
PUTBCD(rtc.mday, 5);
PUTBCD(rtc.mon, 6);
PUTBCD(rtc.year, 7);
/*
.
221,223c
secs = strtoul(cp, 0, 0);
.
212,218d
202,210c
cp = ep = buf;
ep += n;
while(cp < ep){
if(*cp>='0' && *cp<='9')
.
200c
* read the time
.
194c
char *cp, *ep;
.
192c
uchar bcdclock[Nbcd];
.
189a
Rtc rtc;
ulong secs;
.
182,185c
#define PUTBCD(n,o) bcdclock[o] = (n % 10) | (((n / 10) % 10)<<4)
.
169,179c
return readnum(c->offset, buf, n, rtc2sec(&rtc), 12);
.
153c
qunlock(&rtclock);
/*
* see if the clock oscillator is on
*/
if(bcdclock[4] & 0x20)
return 0; /* nope, time is bogus */
/*
* convert from BCD
*/
.
151c
bcdclock[i] = ch;
.
147c
for (i = 0; i < Nbcd; i++){
.
141c
qlock(&rtclock);
.
134,135d
132a
Rtc rtc;
.
131c
uchar bcdclock[Nbcd];
.
123c
#define GETBCD(o) ((bcdclock[o]&0xf) + 10*(bcdclock[o]>>4))
.
105a
if(c->qid.path==1 && (omode&(OWRITE|OTRUNC))){
if(strcmp(u->p->pgrp->user, "bootes")) /* BUG */
error(Eperm);
}
.
54c
for(i = 0; i < Nbcd; i++){
.
32a
ulong rtc2sec(Rtc*);
void sec2rtc(ulong, Rtc*);
int *yrsize(int);
.
24c
QLock rtclock; /* mutex on clock operations */
static Dirtab rtcdir[]={
.
22d
14d
11c
typedef struct Rtc Rtc;
enum {
Nbcd = 8 /* number of bcd bytes in the clock */
};
.
## diffname power/devrtc.c 1990/1212
## diff -e /n/bootesdump/1990/12041/sys/src/9/mips/devrtc.c /n/bootesdump/1990/1212/sys/src/9/mips/devrtc.c
146a
if(c->qid.path & CHDIR)
return devdirread(c, buf, n, rtcdir, 1, devgen);
.
30c
"rtc", {1, 0}, 0, 0600,
.
## diffname power/devrtc.c 1990/1214
## diff -e /n/bootesdump/1990/1212/sys/src/9/mips/devrtc.c /n/bootesdump/1990/1214/sys/src/9/mips/devrtc.c
57a
USED(ch);
.
## diffname power/devrtc.c 1991/0411
## diff -e /n/bootesdump/1991/0201/sys/src/9/mips/devrtc.c /n/bootesdump/1991/0411/sys/src/9/power/devrtc.c
211c
if(offset!=0)
.
201c
rtcwrite(Chan *c, void *buf, long n, ulong offset)
.
195c
return readnum(offset, buf, n, rtc2sec(&rtc), 12);
.
140c
rtcread(Chan *c, void *buf, long n, ulong offset)
.
## diffname power/devrtc.c 1991/0419
## diff -e /n/bootesdump/1991/0411/sys/src/9/power/devrtc.c /n/bootesdump/1991/0419/sys/src/9/power/devrtc.c
106a
Chan*
rtcclwalk(Chan *c, char *name)
{
return devclwalk(c, name);
}
.
## diffname power/devrtc.c 1991/0427
## diff -e /n/bootesdump/1991/0419/sys/src/9/power/devrtc.c /n/bootesdump/1991/0427/sys/src/9/power/devrtc.c
107,112d
## diffname power/devrtc.c 1991/0621
## diff -e /n/bootesdump/1991/0427/sys/src/9/power/devrtc.c /n/bootesdump/1991/0621/sys/src/9/power/devrtc.c
195c
long
rtcread(Chan *c, void *buf, long n, ulong offset)
{
ulong t, ot;
if(c->qid.path & CHDIR)
return devdirread(c, buf, n, rtcdir, NRTC, devgen);
qlock(&rtclock);
t = rtctime();
do{
ot = t;
t = rtctime(); /* make sure there's no skew */
}while(t != ot);
qunlock(&rtclock);
n = readnum(offset, buf, n, t, 12);
return n;
.
193a
return rtc2sec(&rtc);
}
.
157d
149,151d
140c
rtctime(void)
.
120,123c
return devopen(c, omode, rtcdir, NRTC, devgen);
.
110c
devstat(c, dp, rtcdir, NRTC, devgen);
.
98,104c
return devwalk(c, name, rtcdir, NRTC, devgen);
.
28a
#define NRTC 1
.
## diffname power/devrtc.c 1991/0924
## diff -e /n/bootesdump/1991/0621/sys/src/9/power/devrtc.c /n/bootesdump/1991/0924/sys/src/9/power/devrtc.c
262,276d
254c
nv = &((Nvram*)NVRAM)[NVRTC].val;
.
248d
238,243c
PUTBCD(rtc->sec, 1);
PUTBCD(rtc->min, 2);
PUTBCD(rtc->hour, 3);
PUTBCD(rtc->mday, 5);
PUTBCD(rtc->mon, 6);
PUTBCD(rtc->year, 7);
.
218,236d
216d
210,212c
int i, j;
.
207,208c
void
setrtc(Rtc *rtc)
.
185,204d
157d
141c
nv = &((Nvram*)NVRAM)[NVRTC].val;
.
128a
long
rtcread(Chan *c, void *buf, long n, ulong offset)
{
Nvram *nv;
char *p;
ulong t, ot;
int i;
if(c->qid.path & CHDIR)
return devdirread(c, buf, n, rtcdir, NRTC, devgen);
switch(c->qid.path){
case Qrtc:
qlock(&rtclock);
t = rtctime();
do{
ot = t;
t = rtctime(); /* make sure there's no skew */
}while(t != ot);
qunlock(&rtclock);
n = readnum(offset, buf, n, t, 12);
return n;
case Qnvram:
if(offset > NVLEN)
return 0;
if(n > NVLEN - offset)
n = NVLEN - offset;
nv = (Nvram *)NVRAM;
p = buf;
qlock(&rtclock);
for(i = 0; i < n; i++)
p[i] = nv[i+offset].val;
qunlock(&rtclock);
return n;
}
error(Egreg);
}
long
rtcwrite(Chan *c, void *buf, long n, ulong offset)
{
Nvram *nv;
Rtc rtc;
ulong secs;
char *cp, *ep;
int i;
switch(c->qid.path){
case Qrtc:
if(offset!=0)
error(Ebadarg);
/*
* read the time
*/
cp = ep = buf;
ep += n;
while(cp < ep){
if(*cp>='0' && *cp<='9')
break;
cp++;
}
secs = strtoul(cp, 0, 0);
/*
* convert to bcd
*/
sec2rtc(secs, &rtc);
/*
* write it
*/
qlock(&rtclock);
setrtc(&rtc);
qunlock(&rtclock);
return n;
case Qnvram:
if(offset > NVLEN)
return 0;
if(n > NVLEN - offset)
n = NVLEN - offset;
nv = (Nvram *)NVRAM;
qlock(&rtclock);
for(i = 0; i < n; i++)
nv[i+offset].val = ((char*)buf)[i];
nvcksum();
qunlock(&rtclock);
return n;
}
error(Egreg);
}
void
rtcremove(Chan *c)
{
error(Eperm);
}
void
rtcwstat(Chan *c, char *dp)
{
error(Eperm);
}
void
nvcksum(void)
{
Nvram *nv;
uchar cksum;
int i;
/*
* Seed the checksum so all-zeroes (all-ones) nvram doesn't have a zero
* (all-ones) checksum.
*/
cksum = 0xa5;
nv = (Nvram *)NVRAM;
for(i = 0; i < NVLEN; i++){
cksum ^= nv[i].val;
cksum = (cksum << 1) | ((cksum >> 7) & 1);
}
nv[NVCKSUM].val = cksum;
}
/*
* issue pattern recognition bits to nv ram to address the
* real time clock
*/
void
rtcpattern(void)
{
uchar *nv;
uchar ch;
int i, j;
nv = &((Nvram*)NVRAM)[NVRTC].val;
/*
* read the pattern sequence pointer to reset it
*/
ch = *nv;
USED(ch);
/*
* stuff the pattern recognition codes one bit at
* a time into *nv.
*/
for(i = 0; i < Nbcd; i++){
ch = pattern[i];
for (j = 0; j < 8; j++){
*nv = ch & 0x1;
ch >>= 1;
}
}
}
.
43,73d
39,41c
ulong rtc2sec(Rtc*);
void sec2rtc(ulong, Rtc*);
int *yrsize(int);
void setrtc(Rtc*);
long rtctime(void);
void nvcksum(void);
.
32a
#define NRTC (sizeof(rtcdir)/sizeof(rtcdir[0]))
.
31c
"rtc", {Qrtc, 0}, 0, 0644,
/* "nvram", {Qnvram, 0}, 0, 0644,/**/
.
29d
27c
QLock rtclock; /* mutex on nvram operations */
.
16a
struct Nvram{
uchar val;
uchar pad[7];
};
.
13,14c
/*
* length of nvram is 2048
* the last addresses are reserved by convention for
* a checksum and setting the real time clock
*/
enum{
NVLEN = 2046,
NVCKSUM = 2046,
NVRTC = 2047,
Nbcd = 8, /* number of bcd bytes in the clock */
Qrtc = 1,
Qnvram,
.
11a
typedef struct Nvram Nvram;
.
## diffname power/devrtc.c 1991/10302
## diff -e /n/bootesdump/1991/0924/sys/src/9/power/devrtc.c /n/bootesdump/1991/10302/sys/src/9/power/devrtc.c
353c
for(i = 0; i < Nbcd; i++){
.
293c
for(i = 0; i < Nbcd; i++){
.
100,103c
if(c->qid.path==Qrtc && (omode&(OWRITE|OTRUNC)))
if(strcmp(u->p->pgrp->user, "bootes") != 0) /* BUG */
error(Eperm);
if(c->qid.path == Qnvram)
if(strcmp(u->p->pgrp->user, "bootes") != 0) /* BUG */
error(Eperm);
.
47c
"nvram", {Qnvram, 0}, 0, 0644,
.
## diffname power/devrtc.c 1991/1105
## diff -e /n/bootesdump/1991/10302/sys/src/9/power/devrtc.c /n/bootesdump/1991/1105/sys/src/9/power/devrtc.c
104c
if(strcmp(u->p->user, "bootes") != 0) /* BUG */
.
101c
if(strcmp(u->p->user, "bootes") != 0) /* BUG */
.
## diffname power/devrtc.c 1991/1112
## diff -e /n/bootesdump/1991/1105/sys/src/9/power/devrtc.c /n/bootesdump/1991/1112/sys/src/9/power/devrtc.c
100,105d
47c
"nvram", {Qnvram, 0}, 0, 0600,
.
## diffname power/devrtc.c 1991/1214
## diff -e /n/bootesdump/1991/1112/sys/src/9/power/devrtc.c /n/bootesdump/1991/1214/sys/src/9/power/devrtc.c
211a
USED(c);
.
205a
USED(c);
.
111a
USED(c);
.
105a
USED(c);
.
## diffname power/devrtc.c 1992/0111
## diff -e /n/bootesdump/1991/1214/sys/src/9/power/devrtc.c /n/bootesdump/1992/0111/sys/src/9/power/devrtc.c
6c
#include "../port/error.h"
.
## diffname power/devrtc.c 1992/0321
## diff -e /n/bootesdump/1992/0111/sys/src/9/power/devrtc.c /n/bootesdump/1992/0321/sys/src/9/power/devrtc.c
2c
#include "../port/lib.h"
.
## diffname power/devrtc.c 1992/0520
## diff -e /n/bootesdump/1992/0321/sys/src/9/power/devrtc.c /n/bootesdump/1992/0520/sys/src/9/power/devrtc.c
202a
return -1; /* never reached */
.
151a
return -1; /* never reached */
.
## diffname power/devrtc.c 1992/0711
## diff -e /n/bootesdump/1992/0520/sys/src/9/power/devrtc.c /n/bootesdump/1992/0711/sys/src/9/power/devrtc.c
282d
217a
USED(dp);
.
106a
USED(name);
USED(omode);
USED(perm);
.
## diffname power/devrtc.c 1992/0819
## diff -e /n/bootesdump/1992/0711/sys/src/9/power/devrtc.c /n/bootesdump/1992/0819/sys/src/9/power/devrtc.c
99a
omode = openmode(omode);
switch(c->qid.path){
case Qrtc:
if(omode == OREAD)
break;
/* fall through */
case Qnvram:
if(strcmp(u->p->user, eve)!=0 || !cpuserver)
error(Eperm);
}
.
## diffname power/devrtc.c 1992/0902
## diff -e /n/bootesdump/1992/0819/sys/src/9/power/devrtc.c /n/bootesdump/1992/0902/sys/src/9/power/devrtc.c
103,105c
if(strcmp(u->p->user, eve)!=0 && omode!=OREAD)
error(Eperm);
break;
.
## diffname power/devrtc.c 1993/0501
## diff -e /n/bootesdump/1992/0902/sys/src/9/power/devrtc.c /n/fornaxdump/1993/0501/sys/src/brazil/power/devrtc.c
107c
if(strcmp(up->user, eve)!=0 || !cpuserver)
.
103c
if(strcmp(up->user, eve)!=0 && omode!=OREAD)
.
## diffname power/devrtc.c 1995/0108
## diff -e /n/fornaxdump/1993/0501/sys/src/brazil/power/devrtc.c /n/fornaxdump/1995/0108/sys/src/brazil/power/devrtc.c
217a
}
long
rtcbwrite(Chan *c, Block *bp, ulong offset)
{
return devbwrite(c, bp, offset);
.
167a
Block*
rtcbread(Chan *c, long n, ulong offset)
{
return devbread(c, n, offset);
}
.
## diffname power/devrtc.c 1996/0223
## diff -e /n/fornaxdump/1995/0108/sys/src/brazil/power/devrtc.c /n/fornaxdump/1996/0223/sys/src/brazil/power/devrtc.c
7d
## diffname power/devrtc.c 1997/0327 # deleted
## diff -e /n/fornaxdump/1996/0223/sys/src/brazil/power/devrtc.c /n/emeliedump/1997/0327/sys/src/brazil/power/devrtc.c
1,501d
|
