src/script.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 "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         m_s += script_get_backtrace(L);
  39 }
  40
  41 std::string script_get_backtrace(lua_State *L)
  42 {
  43         std::string s;
  44         lua_getfield(L, LUA_GLOBALSINDEX, "debug");
  45         if(lua_istable(L, -1)){
  46                 lua_getfield(L, -1, "traceback");
  47                 if(lua_isfunction(L, -1)){
  48                         lua_call(L, 0, 1);
  49                         if(lua_isstring(L, -1)){
  50                                 s += lua_tostring(L, -1);
  51                         }
  52                         lua_pop(L, 1);
  53                 }
  54                 else{
  55                         lua_pop(L, 1);
  56                 }
  57         }
  58         lua_pop(L, 1);
  59         return s;
  60 }
  61
  62 void script_error(lua_State *L, const char *fmt, ...)
  63 {
  64         va_list argp;
  65         va_start(argp, fmt);
  66         char buf[10000];
  67         vsnprintf(buf, 10000, fmt, argp);
  68         va_end(argp);
  69         //errorstream<<"SCRIPT ERROR: "<<buf;
  70         throw LuaError(L, buf);
  71 }
  72
  73 int luaErrorHandler(lua_State *L) {
  74         lua_getfield(L, LUA_GLOBALSINDEX, "debug");
  75         if (!lua_istable(L, -1)) {
  76                 lua_pop(L, 1);
  77                 return 1;
  78         }
  79         lua_getfield(L, -1, "traceback");
  80         if (!lua_isfunction(L, -1)) {
  81                 lua_pop(L, 2);
  82                 return 1;
  83         }
  84         lua_pushvalue(L, 1);
  85         lua_pushinteger(L, 2);
  86         lua_call(L, 2, 1);
  87         return 1;
  88 }
  89
  90 bool script_load(lua_State *L, const char *path)
  91 {
  92         verbosestream<<"Loading and running script from "<<path<<std::endl;
  93
  94         lua_pushcfunction(L, luaErrorHandler);
  95         int errorhandler = lua_gettop(L);
  96
  97         int ret = luaL_loadfile(L, path) || lua_pcall(L, 0, 0, errorhandler);
  98         if(ret){
  99                 errorstream<<"========== ERROR FROM LUA ==========="<<std::endl;
 100                 errorstream<<"Failed to load and run script from "<<std::endl;
 101                 errorstream<<path<<":"<<std::endl;
 102                 errorstream<<std::endl;
 103                 errorstream<<lua_tostring(L, -1)<<std::endl;
 104                 errorstream<<std::endl;
 105                 errorstream<<"=======END OF ERROR FROM LUA ========"<<std::endl;
 106                 lua_pop(L, 1); // Pop error message from stack
 107                 lua_pop(L, 1); // Pop the error handler from stack
 108                 return false;
 109         }
 110         lua_pop(L, 1); // Pop the error handler from stack
 111         return true;
 112 }
 113
 114 lua_State* script_init()
 115 {
 116         lua_State *L = luaL_newstate();
 117         luaL_openlibs(L);
 118         return L;
 119 }
 120
 121 void script_deinit(lua_State *L)
 122 {
 123         lua_close(L);
 124 }
 125
 126