src/bindings/lua/lua_private.hpp

   1 /* Copyright (c) 2010-2020. The SimGrid Team. All rights reserved.          */
   2
   3 /* This program is free software; you can redistribute it and/or modify it
   4  * under the terms of the license (GNU LGPL) which comes with this package. */
   5
   6 /* SimGrid Lua bindings                                                     */
   7
   8 #ifndef LUA_PRIVATE_HPP
   9 #define LUA_PRIVATE_HPP
  10
  11 #include "simgrid/host.h"
  12 #include "simgrid_lua.hpp"
  13 #include "xbt/log.h"
  14
  15 void sglua_register_host_functions(lua_State* L);
  16 sg_host_t sglua_check_host(lua_State* L, int index);
  17
  18 void sglua_register_platf_functions(lua_State* L);
  19
  20 #define lua_ensure(...) _XBT_IF_ONE_ARG(_lua_ensure_ARG1, _lua_ensure_ARGN, __VA_ARGS__)(__VA_ARGS__)
  21 #define _lua_ensure_ARG1(cond) _lua_ensure_ARGN((cond), "Assertion " _XBT_STRINGIFY(cond) " failed")
  22 #define _lua_ensure_ARGN(cond, ...)                                                                                    \
  23   do {                                                                                                                 \
  24     if (!(cond)) {                                                                                                     \
  25       luaL_error(L, __VA_ARGS__);                                                                                      \
  26       return -1;                                                                                                       \
  27     }                                                                                                                  \
  28   } while (0)
  29
  30 #endif