src/script/lua_api/l_base.cpp

   1 /*
   2 Minetest
   3 Copyright (C) 2013 celeron55, Perttu Ahola <celeron55@gmail.com>
   4
   5 This program is free software; you can redistribute it and/or modify
   6 it under the terms of the GNU Lesser General Public License as published by
   7 the Free Software Foundation; either version 2.1 of the License, or
   8 (at your option) any later version.
   9
  10 This program is distributed in the hope that it will be useful,
  11 but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 GNU Lesser General Public License for more details.
  14
  15 You should have received a copy of the GNU Lesser General Public License along
  16 with this program; if not, write to the Free Software Foundation, Inc.,
  17 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  18 */
  19
  20 #include "lua_api/l_base.h"
  21 #include "lua_api/l_internal.h"
  22 #include "cpp_api/s_base.h"
  23 #include <mods.h>
  24 #include <server.h>
  25
  26 ScriptApiBase *ModApiBase::getScriptApiBase(lua_State *L)
  27 {
  28         // Get server from registry
  29         lua_rawgeti(L, LUA_REGISTRYINDEX, CUSTOM_RIDX_SCRIPTAPI);
  30         ScriptApiBase *sapi_ptr = (ScriptApiBase*) lua_touserdata(L, -1);
  31         lua_pop(L, 1);
  32         return sapi_ptr;
  33 }
  34
  35 Server *ModApiBase::getServer(lua_State *L)
  36 {
  37         return getScriptApiBase(L)->getServer();
  38 }
  39
  40 #ifndef SERVER
  41 Client *ModApiBase::getClient(lua_State *L)
  42 {
  43         return getScriptApiBase(L)->getClient();
  44 }
  45 #endif
  46 Environment *ModApiBase::getEnv(lua_State *L)
  47 {
  48         return getScriptApiBase(L)->getEnv();
  49 }
  50
  51 GUIEngine *ModApiBase::getGuiEngine(lua_State *L)
  52 {
  53         return getScriptApiBase(L)->getGuiEngine();
  54 }
  55
  56 std::string ModApiBase::getCurrentModPath(lua_State *L)
  57 {
  58         lua_rawgeti(L, LUA_REGISTRYINDEX, CUSTOM_RIDX_CURRENT_MOD_NAME);
  59         const char *current_mod_name = lua_tostring(L, -1);
  60         if (!current_mod_name)
  61                 return ".";
  62
  63         const ModSpec *mod = getServer(L)->getModSpec(current_mod_name);
  64         if (!mod)
  65                 return ".";
  66
  67         return mod->path;
  68 }
  69
  70
  71 bool ModApiBase::registerFunction(
  72         lua_State *L,
  73         const char *name,
  74         lua_CFunction fct,
  75         int top)
  76 {
  77         //TODO check presence first!
  78
  79         lua_pushstring(L,name);
  80         lua_pushcfunction(L,fct);
  81         lua_settable(L, top);
  82
  83         return true;
  84 }