move parts of the kernel to the right subdir

[simgrid.git] / src / bindings / lua / lua_private.h

diff --git a/src/bindings/lua/lua_private.h b/src/bindings/lua/lua_private.h
index e9dc6b1..dfeccf1 100644 (file)
--- a/src/bindings/lua/lua_private.h
+++ b/src/bindings/lua/lua_private.h
@@ -1,4 +1,4 @@
-/* Copyright (c) 2010, 2012. The SimGrid Team.
+/* Copyright (c) 2010, 2012-2015. The SimGrid Team.
  * All rights reserved.                                                     */
 
 /* This program is free software; you can redistribute it and/or modify it
@@ -6,23 +6,29 @@
 
 /* SimGrid Lua bindings                                                     */
 
-#include "simgrid_lua.h"
-#include "msg/msg.h"
+#ifndef LUA_PRIVATE_H
+#define LUA_PRIVATE_H
 
-void sglua_register_task_functions(lua_State* L);
-msg_task_t sglua_check_task(lua_State* L, int index);
-void sglua_task_register(lua_State* L);
-void sglua_task_unregister(lua_State* L, msg_task_t task);
+#include "simgrid/msg.h"
+#include "simgrid_lua.h"
 
-void sglua_register_comm_functions(lua_State* L);
-msg_comm_t sglua_check_comm(lua_State* L, int index);
-void sglua_push_comm(lua_State* L, msg_comm_t comm);
+extern "C" {
 
 void sglua_register_host_functions(lua_State* L);
 msg_host_t sglua_check_host(lua_State* L, int index);
 
-void sglua_register_process_functions(lua_State* L);
-
 void sglua_register_platf_functions(lua_State* L);
 
 const char* sglua_get_msg_error(msg_error_t err);
+
+}
+
+#define lua_ensure(...) \
+  _XBT_IF_ONE_ARG(_lua_ensure_ARG1, _lua_ensure_ARGN, __VA_ARGS__)(__VA_ARGS__)
+#define _lua_ensure_ARG1(cond) \
+  _lua_ensure_ARGN(cond, "Assertion %s failed", #cond)
+#define _lua_ensure_ARGN(cond, ...) \
+  do { if (!(cond)) { luaL_error(L, __VA_ARGS__); return -1;} } while (0)
+
+
+#endif /* LUA_PRIVATE_H */