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
  47 IGameDef *ModApiBase::getGameDef(lua_State *L)
  48 {
  49         return getScriptApiBase(L)->getGameDef();
  50 }
  51
  52 Environment *ModApiBase::getEnv(lua_State *L)
  53 {
  54         return getScriptApiBase(L)->getEnv();
  55 }
  56
  57 GUIEngine *ModApiBase::getGuiEngine(lua_State *L)
  58 {
  59         return getScriptApiBase(L)->getGuiEngine();
  60 }
  61
  62 std::string ModApiBase::getCurrentModPath(lua_State *L)
  63 {
  64         lua_rawgeti(L, LUA_REGISTRYINDEX, CUSTOM_RIDX_CURRENT_MOD_NAME);
  65         const char *current_mod_name = lua_tostring(L, -1);
  66         if (!current_mod_name)
  67                 return ".";
  68
  69         const ModSpec *mod = getServer(L)->getModSpec(current_mod_name);
  70         if (!mod)
  71                 return ".";
  72
  73         return mod->path;
  74 }
  75
  76
  77 bool ModApiBase::registerFunction(
  78         lua_State *L,
  79         const char *name,
  80         lua_CFunction fct,
  81         int top)
  82 {
  83         //TODO check presence first!
  84
  85         lua_pushstring(L,name);
  86         lua_pushcfunction(L,fct);
  87         lua_settable(L, top);
  88
  89         return true;
  90 }