shithub: lu9-p9

Info  •  Files  •  Log  •  Branches

proc: implement p9.alarm()

--- a/p9.c

+++ b/p9.c

@@ -171,6 +171,7 @@

 	{"abort", p9_abort},

 	{"sleep", p9_sleep},

+	{"alarm", p9_alarm},

 	{"rfork", p9_rfork},

 	{nil, nil}

--- a/proc.c

+++ b/proc.c

@@ -18,6 +18,17 @@

 }

 static int

+p9_alarm(lua_State *L)

+{

+	long t, rem;

+	

+	t = luaL_checkinteger(L, 1);

+	rem = alarm(t);

+	lua_pushinteger(L, rem);

+	return 1;

+}

+

+static int

 p9_rfork(lua_State *L)

 {

 	int flags, i, n, r;