luaeventloop/lel_main.c

   1 #include <stdio.h>
   2 #include <stdlib.h>
   3 #include <unistd.h>
   4 #include <string.h>
   5 #include <errno.h>
   6 #include <time.h>
   7 #include <signal.h>
   8
   9 #include <lua.h>
  10 #include <lauxlib.h>
  11
  12 #include "lel_debug.h"
  13 #include "lel_util.h"
  14 #include "lel_instance.h"
  15
  16
  17 /* ------------------------------------------------------------------------
  18  * lua: x = eventloop.new() -- create a new eventloop object
  19  */
  20 static int l_new (lua_State *L)
  21 {
  22         struct lel_eventloop *el;
  23
  24         DBGF("** eventloop.new () **\n");
  25
  26         el = (struct lel_eventloop*)lua_newuserdata(L, sizeof (struct lel_eventloop));
  27
  28         luaL_getmetatable (L, L_EVENTLOOP_MT);
  29         lua_setmetatable (L, -2);
  30
  31         memset (el, 0, sizeof(*el));
  32         FD_ZERO (&el->all_fds);
  33
  34         return 1;
  35 }
  36
  37 static int l_eventloop_gc (lua_State *L)
  38 {
  39         struct lel_eventloop *el;
  40
  41         el = lel_checkeventloop (L, 1);
  42
  43         DBGF("** eventloop:__gc (%p) **\n", el);
  44
  45         return 0;
  46 }
  47
  48 /* ------------------------------------------------------------------------
  49  * the class method table
  50  */
  51 static const luaL_reg class_table[] =
  52 {
  53         { "new",                l_new },
  54
  55         { NULL,                 NULL },
  56 };
  57
  58 /* ------------------------------------------------------------------------
  59  * the instance method table
  60  */
  61 static const luaL_reg instance_table[] =
  62 {
  63         { "__tostring",         l_eventloop_tostring },
  64         { "__gc",               l_eventloop_gc },
  65
  66         { "add_exec",           l_eventloop_add_exec },
  67         { "kill_exec",          l_eventloop_kill_exec },
  68
  69         { "run_loop",           l_eventloop_run_loop },
  70
  71         { "kill_all",           l_eventloop_kill_all },
  72
  73         { NULL,                 NULL },
  74 };
  75
  76 /* ------------------------------------------------------------------------
  77  * the class metatable
  78  */
  79 static int lel_init_eventloop_class (lua_State *L)
  80 {
  81         luaL_newmetatable(L, L_EVENTLOOP_MT);
  82
  83         // setup the __index and __gc field
  84         lua_pushstring (L, "__index");
  85         lua_pushvalue (L, -2);          // pushes the new metatable
  86         lua_settable (L, -3);           // metatable.__index = metatable
  87
  88         luaL_openlib (L, NULL, instance_table, 0);
  89         luaL_openlib (L, "eventloop", class_table, 0);
  90
  91 #if 0
  92         luaL_register (L, MYNAME, R);
  93         lua_pushliteral (L, "version");
  94         lua_pushliteral (L, MYVERSION);
  95         lua_settable (L, -3);
  96 #endif
  97         return 1;
  98 }
  99
 100 /* ------------------------------------------------------------------------
 101  * library entry
 102  */
 103 LUALIB_API int luaopen_eventloop (lua_State *L)
 104 {
 105         return lel_init_eventloop_class (L);
 106 }