2 * Copyright (C) 2012 John Crispin <blogic@openwrt.org>
4 * Permission to use, copy, modify, and/or distribute this software for any
5 * purpose with or without fee is hereby granted, provided that the above
6 * copyright notice and this permission notice appear in all copies.
8 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
9 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
10 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
11 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
12 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
13 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
14 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
34 struct lua_uloop_timeout {
35 struct uloop_timeout t;
39 struct lua_uloop_process {
40 struct uloop_process p;
44 static lua_State *state;
47 ul_create_userdata(lua_State *L, size_t size, const luaL_Reg *reg, lua_CFunction gc)
49 void *ret = lua_newuserdata(L, size);
52 lua_createtable(L, 0, 2);
54 lua_setfield(L, -2, "__index");
55 lua_pushcfunction(L, gc);
56 lua_setfield(L, -2, "__gc");
58 lua_setmetatable(L, -3);
60 luaI_openlib(L, NULL, reg, 1);
66 static void ul_timer_cb(struct uloop_timeout *t)
68 struct lua_uloop_timeout *tout = container_of(t, struct lua_uloop_timeout, t);
70 lua_getglobal(state, "__uloop_cb");
71 lua_rawgeti(state, -1, tout->r);
72 lua_remove(state, -2);
74 lua_call(state, 0, 0);
78 static int ul_timer_set(lua_State *L)
80 struct lua_uloop_timeout *tout;
83 if (!lua_isnumber(L, -1)) {
84 lua_pushstring(L, "invalid arg list");
90 set = lua_tointeger(L, -1);
91 tout = lua_touserdata(L, 1);
92 uloop_timeout_set(&tout->t, set);
97 static int ul_timer_remaining(lua_State *L)
99 struct lua_uloop_timeout *tout;
101 tout = lua_touserdata(L, 1);
102 lua_pushnumber(L, uloop_timeout_remaining(&tout->t));
106 static int ul_timer_free(lua_State *L)
108 struct lua_uloop_timeout *tout = lua_touserdata(L, 1);
110 uloop_timeout_cancel(&tout->t);
112 /* obj.__index.__gc = nil , make sure executing only once*/
113 lua_getfield(L, -1, "__index");
114 lua_pushstring(L, "__gc");
118 lua_getglobal(state, "__uloop_cb");
119 luaL_unref(state, -1, tout->r);
124 static const luaL_Reg timer_m[] = {
125 { "set", ul_timer_set },
126 { "remaining", ul_timer_remaining },
127 { "cancel", ul_timer_free },
131 static int ul_timer(lua_State *L)
133 struct lua_uloop_timeout *tout;
137 if (lua_isnumber(L, -1)) {
138 set = lua_tointeger(L, -1);
142 if (!lua_isfunction(L, -1)) {
143 lua_pushstring(L, "invalid arg list");
149 lua_getglobal(L, "__uloop_cb");
150 lua_pushvalue(L, -2);
151 ref = luaL_ref(L, -2);
153 tout = ul_create_userdata(L, sizeof(*tout), timer_m, ul_timer_free);
155 tout->t.cb = ul_timer_cb;
158 uloop_timeout_set(&tout->t, set);
163 static void ul_ufd_cb(struct uloop_fd *fd, unsigned int events)
165 struct lua_uloop_fd *ufd = container_of(fd, struct lua_uloop_fd, fd);
167 lua_getglobal(state, "__uloop_cb");
168 lua_rawgeti(state, -1, ufd->r);
169 lua_remove(state, -2);
172 lua_getglobal(state, "__uloop_fds");
173 lua_rawgeti(state, -1, ufd->fd_r);
174 lua_remove(state, -2);
177 lua_pushinteger(state, events);
178 lua_call(state, 2, 0);
182 static int get_sock_fd(lua_State* L, int idx) {
184 if(lua_isnumber(L, idx)) {
185 fd = lua_tonumber(L, idx);
187 luaL_checktype(L, idx, LUA_TUSERDATA);
188 lua_getfield(L, idx, "getfd");
190 return luaL_error(L, "socket type missing 'getfd' method");
191 lua_pushvalue(L, idx - 1);
193 fd = lua_tointeger(L, -1);
199 static int ul_ufd_delete(lua_State *L)
201 struct lua_uloop_fd *ufd = lua_touserdata(L, 1);
203 uloop_fd_delete(&ufd->fd);
205 /* obj.__index.__gc = nil , make sure executing only once*/
206 lua_getfield(L, -1, "__index");
207 lua_pushstring(L, "__gc");
211 lua_getglobal(state, "__uloop_cb");
212 luaL_unref(state, -1, ufd->r);
213 lua_remove(state, -1);
215 lua_getglobal(state, "__uloop_fds");
216 luaL_unref(state, -1, ufd->fd_r);
217 lua_remove(state, -1);
222 static const luaL_Reg ufd_m[] = {
223 { "delete", ul_ufd_delete },
227 static int ul_ufd_add(lua_State *L)
229 struct lua_uloop_fd *ufd;
231 unsigned int flags = 0;
235 if (lua_isnumber(L, -1)) {
236 flags = lua_tointeger(L, -1);
240 if (!lua_isfunction(L, -1)) {
241 lua_pushstring(L, "invalid arg list");
247 fd = get_sock_fd(L, -2);
249 lua_getglobal(L, "__uloop_cb");
250 lua_pushvalue(L, -2);
251 ref = luaL_ref(L, -2);
254 lua_getglobal(L, "__uloop_fds");
255 lua_pushvalue(L, -3);
256 fd_ref = luaL_ref(L, -2);
259 ufd = ul_create_userdata(L, sizeof(*ufd), ufd_m, ul_ufd_delete);
263 ufd->fd.cb = ul_ufd_cb;
265 uloop_fd_add(&ufd->fd, flags);
270 static int ul_process_free(lua_State *L)
272 struct lua_uloop_process *proc = lua_touserdata(L, 1);
274 /* obj.__index.__gc = nil , make sure executing only once*/
275 lua_getfield(L, -1, "__index");
276 lua_pushstring(L, "__gc");
280 if (proc->r != LUA_NOREF) {
281 uloop_process_delete(&proc->p);
283 lua_getglobal(state, "__uloop_cb");
284 luaL_unref(state, -1, proc->r);
285 lua_remove(state, -1);
291 static const luaL_Reg process_m[] = {
292 { "delete", ul_process_free },
296 static void ul_process_cb(struct uloop_process *p, int ret)
298 struct lua_uloop_process *proc = container_of(p, struct lua_uloop_process, p);
300 lua_getglobal(state, "__uloop_cb");
301 lua_rawgeti(state, -1, proc->r);
303 luaL_unref(state, -2, proc->r);
305 lua_remove(state, -2);
306 lua_pushinteger(state, ret >> 8);
307 lua_call(state, 1, 0);
310 static int ul_process(lua_State *L)
312 struct lua_uloop_process *proc;
316 if (!lua_isfunction(L, -1) || !lua_istable(L, -2) ||
317 !lua_istable(L, -3) || !lua_isstring(L, -4)) {
318 lua_pushstring(L, "invalid arg list");
327 lua_pushstring(L, "failed to fork");
335 int argn = lua_objlen(L, -3);
336 int envn = lua_objlen(L, -2);
337 char** argp = malloc(sizeof(char*) * (argn + 2));
338 char** envp = malloc(sizeof(char*) * (envn + 1));
344 argp[0] = (char*) lua_tostring(L, -4);
345 for (i = 1; i <= argn; i++) {
346 lua_rawgeti(L, -3, i);
347 argp[i] = (char*) lua_tostring(L, -1);
352 for (i = 1; i <= envn; i++) {
353 lua_rawgeti(L, -2, i);
354 envp[i - 1] = (char*) lua_tostring(L, -1);
359 execve(*argp, argp, envp);
363 lua_getglobal(L, "__uloop_cb");
364 lua_pushvalue(L, -2);
365 ref = luaL_ref(L, -2);
367 proc = ul_create_userdata(L, sizeof(*proc), process_m, ul_process_free);
370 proc->p.cb = ul_process_cb;
371 uloop_process_add(&proc->p);
376 static int ul_init(lua_State *L)
379 lua_pushboolean(L, 1);
384 static int ul_run(lua_State *L)
387 lua_pushboolean(L, 1);
392 static int ul_end(lua_State *L)
398 static luaL_reg uloop_func[] = {
402 {"process", ul_process},
403 {"fd_add", ul_ufd_add},
408 /* avoid warnings about missing declarations */
409 int luaopen_uloop(lua_State *L);
410 int luaclose_uloop(lua_State *L);
412 int luaopen_uloop(lua_State *L)
416 lua_createtable(L, 1, 0);
417 lua_setglobal(L, "__uloop_cb");
419 lua_createtable(L, 1, 0);
420 lua_setglobal(L, "__uloop_fds");
422 luaL_openlib(L, "uloop", uloop_func, 0);
423 lua_pushstring(L, "_VERSION");
424 lua_pushstring(L, "1.0");
427 lua_pushstring(L, "ULOOP_READ");
428 lua_pushinteger(L, ULOOP_READ);
431 lua_pushstring(L, "ULOOP_WRITE");
432 lua_pushinteger(L, ULOOP_WRITE);
435 lua_pushstring(L, "ULOOP_EDGE_TRIGGER");
436 lua_pushinteger(L, ULOOP_EDGE_TRIGGER);
439 lua_pushstring(L, "ULOOP_BLOCKING");
440 lua_pushinteger(L, ULOOP_BLOCKING);
446 int luaclose_uloop(lua_State *L)
448 lua_pushstring(L, "Called");