src/script.cpp

   1 /*
   2 Minetest-c55
   3 Copyright (C) 2011 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 General Public License as published by
   7 the Free Software Foundation; either version 2 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 General Public License for more details.
  14
  15 You should have received a copy of the GNU 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 "script.h"
  21 #include <cstdarg>
  22 #include <cstring>
  23 #include <cstdio>
  24 #include <cstdlib>
  25 #include "log.h"
  26 #include <iostream>
  27
  28 extern "C" {
  29 #include <lua.h>
  30 #include <lualib.h>
  31 #include <lauxlib.h>
  32 }
  33
  34 LuaError::LuaError(lua_State *L, const std::string &s)
  35 {
  36         m_s = "LuaError: ";
  37         m_s += s + "\n";
  38         lua_getfield(L, LUA_GLOBALSINDEX, "debug");
  39         if(lua_istable(L, -1)){
  40                 lua_getfield(L, -1, "traceback");
  41                 if(lua_isfunction(L, -1)){
  42                         lua_call(L, 0, 1);
  43                         if(lua_isstring(L, -1)){
  44                                 m_s += lua_tostring(L, -1);
  45                         }
  46                         lua_pop(L, 1);
  47                 }
  48                 else{
  49                         lua_pop(L, 1);
  50                 }
  51         }
  52         lua_pop(L, 1);
  53 }
  54
  55 void script_error(lua_State *L, const char *fmt, ...)
  56 {
  57         va_list argp;
  58         va_start(argp, fmt);
  59         char buf[10000];
  60         vsnprintf(buf, 10000, fmt, argp);
  61         va_end(argp);
  62         //errorstream<<"SCRIPT ERROR: "<<buf;
  63         throw LuaError(L, buf);
  64 }
  65
  66 int luaErrorHandler(lua_State *L) {
  67         lua_getfield(L, LUA_GLOBALSINDEX, "debug");
  68         if (!lua_istable(L, -1)) {
  69                 lua_pop(L, 1);
  70                 return 1;
  71         }
  72         lua_getfield(L, -1, "traceback");
  73         if (!lua_isfunction(L, -1)) {
  74                 lua_pop(L, 2);
  75                 return 1;
  76         }
  77         lua_pushvalue(L, 1);
  78         lua_pushinteger(L, 2);
  79         lua_call(L, 2, 1);
  80         return 1;
  81 }
  82
  83 bool script_load(lua_State *L, const char *path)
  84 {
  85         infostream<<"Loading and running script from "<<path<<std::endl;
  86
  87         lua_pushcfunction(L, luaErrorHandler);
  88         int errorhandler = lua_gettop(L);
  89
  90         int ret = luaL_loadfile(L, path) || lua_pcall(L, 0, 0, errorhandler);
  91         if(ret){
  92                 errorstream<<"Failed to load and run script from "<<path<<":"<<std::endl;
  93                 errorstream<<"[LUA] "<<std::endl;
  94                 errorstream<<"[LUA] "<<lua_tostring(L, -1)<<std::endl;
  95                 errorstream<<"[LUA] "<<std::endl;
  96                 lua_pop(L, 1); // Pop error message from stack
  97                 return false;
  98         }
  99         return true;
 100 }
 101
 102 lua_State* script_init()
 103 {
 104         lua_State *L = luaL_newstate();
 105         luaL_openlibs(L);
 106         return L;
 107 }
 108
 109 void script_deinit(lua_State *L)
 110 {
 111         lua_close(L);
 112 }
 113
 114