mirror of
https://github.com/urbit/shrub.git
synced 2024-12-22 18:31:44 +03:00
111 lines
1.8 KiB
C
111 lines
1.8 KiB
C
/* v/behn.c
|
|
**
|
|
** This file is in the public domain.
|
|
*/
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <fcntl.h>
|
|
#include <sys/ioctl.h>
|
|
#include <sys/stat.h>
|
|
#include <unistd.h>
|
|
#include <setjmp.h>
|
|
#include <gmp.h>
|
|
#include <dirent.h>
|
|
#include <stdint.h>
|
|
#include <uv.h>
|
|
#include <curses.h>
|
|
#include <termios.h>
|
|
#include <term.h>
|
|
#include <errno.h>
|
|
|
|
#include "all.h"
|
|
#include "vere/vere.h"
|
|
|
|
/* u3_behn(): initialize time timer.
|
|
*/
|
|
void
|
|
u3_behn_io_init(void)
|
|
{
|
|
u3_behn* teh_u = &u3_Host.teh_u;
|
|
|
|
uv_timer_init(u3L, &teh_u->tim_u);
|
|
teh_u->alm = c3n;
|
|
}
|
|
|
|
/* u3_behn_io_exit(): terminate timer.
|
|
*/
|
|
void
|
|
u3_behn_io_exit(void)
|
|
{
|
|
}
|
|
|
|
/* _behn_time_cb(): timer callback.
|
|
*/
|
|
static void
|
|
_behn_time_cb(uv_timer_t* tim_u)
|
|
{
|
|
u3_behn* teh_u = &u3_Host.teh_u;
|
|
|
|
// XX remove timer backoff
|
|
//
|
|
if(teh_u->run_w < 1024) {
|
|
teh_u->run_w++;
|
|
}
|
|
|
|
u3_lo_open();
|
|
{
|
|
u3v_plan
|
|
(u3nt(u3_blip, c3__behn, u3_nul),
|
|
u3nc(c3__wake, u3_nul));
|
|
}
|
|
u3_lo_shut(c3n);
|
|
}
|
|
|
|
/* u3_behn_io_poll(): update behn IO state.
|
|
*/
|
|
void
|
|
u3_behn_io_poll(void)
|
|
{
|
|
}
|
|
|
|
/* u3_behn_ef_doze(): set or cancel timer
|
|
*/
|
|
void
|
|
u3_behn_ef_doze(u3_noun wen)
|
|
{
|
|
u3_behn* teh_u = &u3_Host.teh_u;
|
|
|
|
if ( c3y == teh_u->alm ) {
|
|
uv_timer_stop(&teh_u->tim_u);
|
|
teh_u->alm = c3n;
|
|
}
|
|
|
|
if ( (u3_nul != wen) &&
|
|
(c3y == u3du(wen)) &&
|
|
(c3y == u3ud(u3t(wen))) )
|
|
{
|
|
struct timeval tim_tv;
|
|
gettimeofday(&tim_tv, 0);
|
|
|
|
u3_noun now = u3_time_in_tv(&tim_tv);
|
|
c3_d gap_d = u3_time_gap_ms(now, u3k(u3t(wen)));
|
|
// XX remove timer backoff
|
|
//
|
|
gap_d += teh_u->run_w;
|
|
|
|
uv_timer_start(&teh_u->tim_u, _behn_time_cb, gap_d, 0);
|
|
}
|
|
|
|
u3z(wen);
|
|
}
|
|
|
|
/* u3_behn_ef_bake(): notify %behn that we're live
|
|
*/
|
|
void
|
|
u3_behn_ef_bake(void)
|
|
{
|
|
u3_noun pax = u3nq(u3_blip, c3__behn, u3k(u3A->sen), u3_nul);
|
|
|
|
u3v_plan(pax, u3nc(c3__born, u3_nul));
|
|
}
|