|
|
|
1990/1106/sys/src/9/power/clock.c:7,82 –
1990/1211/sys/src/9/power/clock.c:7,13
(short | long | prev | next)
|
|
1990/0227
| |
#include "ureg.h"
Alarm *alarmtab;
Alarm*
alarm(int ms, void (*f)(Alarm*), void *arg)
{
Alarm *a, *w, *pw;
ulong s;
if(ms < 0)
ms = 0;
a = newalarm();
|
|
1990/0614
| |
a->dt = MS2TK(ms);
|
|
1990/0227
| |
a->f = f;
a->arg = arg;
s = splhi();
lock(&m->alarmlock);
pw = 0;
for(w=m->alarm; w; pw=w, w=w->next){
if(w->dt <= a->dt){
a->dt -= w->dt;
continue;
}
w->dt -= a->dt;
break;
}
insert(&m->alarm, pw, a);
unlock(&m->alarmlock);
splx(s);
return a;
}
void
cancel(Alarm *a)
{
a->f = 0;
}
Alarm*
newalarm(void)
{
int i;
Alarm *a;
for(i=0,a=alarmtab; i<conf.nalarm; i++,a++)
if(a->busy==0 && a->f==0 && canlock(a)){
if(a->busy){
unlock(a);
continue;
}
a->f = 0;
a->arg = 0;
a->busy = 1;
unlock(a);
return a;
}
panic("newalarm");
}
void
alarminit(void)
{
int i;
alarmtab = ialloc(conf.nalarm*sizeof(Alarm), 0);
for(i=0; i<conf.nalarm; i++){
lock(&alarmtab[i]); /* allocate locks, as they are used at interrupt time */
unlock(&alarmtab[i]);
}
}
void
delay(int ms)
{
ulong t, *p;
|
|
1990/1106/sys/src/9/power/clock.c:147,161 –
1990/1211/sys/src/9/power/clock.c:78,88
|
|
1990/0227
| |
|
|
1990/0731
| |
|
|
1990/0728
| |
#define NA 10
|
|
1990/0227
| |
void
|
|
1990/0731
| |
clock(ulong n, ulong pc)
|
|
1990/0227
| |
{
|
|
1990/0728
| |
int i, na;
|
|
1990/0227
| |
Alarm *a;
void (*f)(void*);
|
|
1990/1211
| |
int i;
|
|
1990/0227
| |
Proc *p;
|
|
1990/0728
| |
Alarm *alist[NA];
|
|
1990/0227
| |
if(n&INTR2){
i = *CLRTIM0;
|
|
1990/1106/sys/src/9/power/clock.c:180,207 –
1990/1211/sys/src/9/power/clock.c:107,113
|
|
1990/0227
| |
print("someone's exiting\n");
exit();
}
if(canlock(&m->alarmlock)){
|
|
1990/1106
| |
a = m->alarm;
if(a){
for(n=0; a && a->dt<=0 && n<NA; n++){
alist[n] = a;
|
|
1990/0227
| |
delete(&m->alarm, 0, a);
a = m->alarm;
}
|
|
1990/1106
| |
if(a)
a->dt--;
|
|
1990/0728
| |
unlock(&m->alarmlock);
/* execute alarm functions outside the lock */
|
|
1990/1106
| |
for(i = 0; i < n; i++){
|
|
1990/0728
| |
f = alist[i]->f; /* avoid race with cancel */
if(f)
(*f)(alist[i]);
alist[i]->busy = 0;
}
} else
unlock(&m->alarmlock);
|
|
1990/0227
| |
}
|
|
1990/1211
| |
checkalarms();
|
|
1990/0227
| |
return;
}
if(n & INTR4){
|