shrub/vere/behn.c

94 lines
1.6 KiB
C
Raw Normal View History

/* v/behn.c
2014-10-15 06:25:23 +04:00
**
** 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"
2014-10-15 06:25:23 +04:00
/* u3_behn(): initialize time timer.
2014-10-15 06:25:23 +04:00
*/
void
u3_behn_io_init(void)
2014-10-15 06:25:23 +04:00
{
u3_behn* teh_u = &u3_Host.teh_u;
2014-10-15 06:25:23 +04:00
uv_timer_init(u3L, &teh_u->tim_u);
2014-11-05 04:18:47 +03:00
teh_u->alm = c3n;
2014-10-15 06:25:23 +04:00
}
/* u3_behn_io_exit(): terminate timer.
2014-10-15 06:25:23 +04:00
*/
void
u3_behn_io_exit(void)
2014-10-15 06:25:23 +04:00
{
}
/* _behn_time_cb(): timer callback.
2014-10-15 06:25:23 +04:00
*/
static void
_behn_time_cb(uv_timer_t* tim_u)
2014-10-15 06:25:23 +04:00
{
u3_behn* teh_u = &u3_Host.teh_u;
2014-10-15 06:25:23 +04:00
if(teh_u->run_w < 1024) {
teh_u->run_w++;
}
{
2016-12-30 21:26:59 +03:00
u3_pier_plan
(u3nt(u3_blip, c3__behn, u3_nul),
u3nc(c3__wake, u3_nul));
2014-10-15 06:25:23 +04:00
}
}
/* u3_behn_io_poll(): update behn IO state.
2014-10-15 06:25:23 +04:00
*/
void
u3_behn_io_poll(void)
2014-10-15 06:25:23 +04:00
{
u3_behn* teh_u = &u3_Host.teh_u;
u3_noun wen = u3v_keep(u3nt(u3_blip, c3__behn, u3_nul));
2014-10-15 06:25:23 +04:00
if ( (u3_nul != wen) &&
2014-11-05 04:18:47 +03:00
(c3y == u3du(wen)) &&
(c3y == u3ud(u3t(wen))) )
2014-10-15 06:25:23 +04:00
{
c3_d gap_d = u3_time_gap_ms(u3k(u3A->now), u3k(u3t(wen)));
2014-10-15 06:25:23 +04:00
2015-01-08 00:26:05 +03:00
#if 0
fprintf(stderr, "gap_d %llu, plus %llu\r\n",
gap_d, gap_d + (c3_d)teh_u->run_w);
#endif
2014-10-15 06:25:23 +04:00
gap_d += teh_u->run_w;
2014-11-05 04:18:47 +03:00
if ( c3y == teh_u->alm ) {
2014-10-15 06:25:23 +04:00
uv_timer_stop(&teh_u->tim_u);
}
2014-11-05 04:18:47 +03:00
else teh_u->alm = c3y;
2014-10-15 06:25:23 +04:00
uv_timer_start(&teh_u->tim_u, _behn_time_cb, gap_d, 0);
2014-10-15 06:25:23 +04:00
}
else {
2014-11-05 04:18:47 +03:00
if ( c3y == teh_u->alm ) {
2014-10-15 06:25:23 +04:00
uv_timer_stop(&teh_u->tim_u);
}
2014-11-05 04:18:47 +03:00
teh_u->alm = c3n;
2014-10-15 06:25:23 +04:00
}
u3z(wen);
2014-10-15 06:25:23 +04:00
}