X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/17c6e831aec2cc024154308cbb46bd7c5965a599..dacd3b823d5c3f477e74114f34673f4834789fda:/src/bindings/lua/lua_comm.c

diff --git a/src/bindings/lua/lua_comm.c b/src/bindings/lua/lua_comm.c
index 5ae312f05f..06fb6019a3 100644
--- a/src/bindings/lua/lua_comm.c
+++ b/src/bindings/lua/lua_comm.c
@@ -179,29 +179,29 @@ static const luaL_Reg comm_meta[] = {
 void sglua_register_comm_functions(lua_State* L)
 {
   /* create a table simgrid.comm and fill it with com functions */
-  lua_newtable(L);
-  luaL_setfuncs(L, comm_functions, 0);
-  lua_setglobal(L, COMM_MODULE_NAME);
-  /*luaL_openlib(L, COMM_MODULE_NAME, comm_functions, 0);*/
-                                  /* simgrid.comm */
-
-  /* create the metatable for comms, add it to the Lua registry */
-  luaL_newmetatable(L, COMM_MODULE_NAME);
-                                  /* simgrid.comm mt */
+  lua_getglobal(L, "simgrid");    /* simgrid */
+  luaL_newlib(L, comm_functions); /* simgrid simgrid.comm */
+
+  /* create the metatable for comm, add it to the Lua registry */
+  luaL_newmetatable(L, COMM_MODULE_NAME); /* simgrid simgrid.comm mt */
+
   /* fill the metatable */
-  luaL_setfuncs(L, comm_meta, 0);
-  luaL_setmetatable(L, COMM_MODULE_NAME);
-  /*luaL_openlib(L, NULL, comm_meta, 0);*/
-                                  /* simgrid.comm mt */
-  /*lua_pushvalue(L, -2);*/
-                                  /* simgrid.comm mt simgrid.comm */
+  luaL_setfuncs(L, comm_meta, 0);         /* simgrid simgrid.comm mt */
+
+  /**
+   * Copy the table and push it onto the stack.
+   * Required for the lua_setfield call below.
+   */
+  lua_pushvalue(L, -2);            /* simgrid simgrid.comm mt simgrid.comm */
+
   /* metatable.__index = simgrid.comm
-   * we put the comm functions inside the comm itself:
+   * we put the comm functions inside the comm userdata itself:
    * this allows to write my_comm:method(args) for
    * simgrid.comm.method(my_comm, args) */
-  lua_setfield(L, -2, "__index");
-                                  /* simgrid.comm mt */
-  lua_pop(L, 2);
-                                  /* -- */
+  lua_setfield(L, -2, "__index");         /* simgrid simgrid.comm mt */
+
+  lua_setmetatable(L, -2);                /* simgrid simgrid.comm */
+  lua_setfield(L, -1, "comm");            /* simgrid */
+  lua_pop(L, 1);                          /* -- */
 }