src/bindings/lua/simgrid_lua.c

   1 /* Copyright (c) 2010-2015. The SimGrid Team.
   2  * All rights reserved.                                                     */
   3
   4 /* This program is free software; you can redistribute it and/or modify it
   5  * under the terms of the license (GNU LGPL) which comes with this package. */
   6
   7 /* SimGrid Lua bindings                                                     */
   8
   9 #include "lua_private.h"
  10 #include "lua_utils.h"
  11 #include "xbt.h"
  12 #include "simgrid/msg.h"
  13 #include "simgrid/simdag.h"
  14 #include "surf/surfxml_parse.h"
  15 #include <lauxlib.h>
  16
  17
  18 XBT_LOG_NEW_DEFAULT_SUBCATEGORY(lua, bindings, "Lua Bindings");
  19
  20 int luaopen_simgrid(lua_State *L);
  21 static void sglua_register_c_functions(lua_State *L);
  22
  23 /* ********************************************************************************* */
  24 /*                                  simgrid API                                      */
  25 /* ********************************************************************************* */
  26
  27 /**
  28  * \brief Prints a log string with debug level.
  29  * \param L a Lua state
  30  * \return number of values returned to Lua
  31  *
  32  * - Argument 1 (string): the text to print
  33  */
  34 static int debug(lua_State* L) {
  35
  36   const char* str = luaL_checkstring(L, 1);
  37   XBT_DEBUG("%s", str);
  38   return 0;
  39 }
  40
  41 /**
  42  * \brief Prints a log string with info level.
  43  * \param L a Lua state
  44  * \return number of values returned to Lua
  45  *
  46  * - Argument 1 (string): the text to print
  47  */
  48 static int info(lua_State* L) {
  49
  50   const char* str = luaL_checkstring(L, 1);
  51   XBT_INFO("%s", str);
  52   return 0;
  53 }
  54
  55 static int error(lua_State* L) {
  56
  57   const char* str = luaL_checkstring(L, 1);
  58   XBT_ERROR("%s", str);
  59   return 0;
  60 }
  61
  62 static int critical(lua_State* L) {
  63
  64   const char* str = luaL_checkstring(L, 1);
  65   XBT_CRITICAL("%s", str);
  66   return 0;
  67 }
  68
  69 static const luaL_Reg simgrid_functions[] = {
  70   {"debug", debug},
  71   {"info", info},
  72   {"critical", critical},
  73   {"error", error},
  74   /* short names */
  75   /* methods to bypass XML parser */
  76   {NULL, NULL}
  77 };
  78
  79 /* ********************************************************************************* */
  80 /*                           module management functions                             */
  81 /* ********************************************************************************* */
  82
  83 #define LUA_MAX_ARGS_COUNT 10   /* maximum amount of arguments we can get from lua on command line */
  84
  85 /**
  86  * \brief Opens the simgrid Lua module.
  87  *
  88  * This function is called automatically by the Lua interpreter when some
  89  * Lua code requires the "simgrid" module.
  90  *
  91  * \param L the Lua state
  92  */
  93
  94 int luaopen_simgrid(lua_State *L)
  95 {
  96   XBT_DEBUG("luaopen_simgrid *****");
  97
  98   sglua_register_c_functions(L);
  99
 100   return 1;
 101 }
 102
 103
 104 /**
 105  * \brief Makes the core functions available to the Lua world.
 106  * \param L a Lua world
 107  */
 108 static void sglua_register_core_functions(lua_State *L)
 109 {
 110   /* register the core C functions to lua */
 111   luaL_newlib(L, simgrid_functions); /* simgrid */
 112   lua_pushvalue(L, -1);              /* simgrid simgrid */
 113   lua_setglobal(L, "simgrid");       /* simgrid */
 114 }
 115
 116 /**
 117  * \brief Creates the simgrid module and make it available to Lua.
 118  * \param L a Lua world
 119  */
 120 static void sglua_register_c_functions(lua_State *L)
 121 {
 122   sglua_register_core_functions(L);
 123   sglua_register_host_functions(L);
 124   sglua_register_platf_functions(L);
 125 }