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