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 void script_error(lua_State *L, const char *fmt, ...)
  35 {
  36         va_list argp;
  37         va_start(argp, fmt);
  38         char buf[10000];
  39         vsnprintf(buf, 10000, fmt, argp);
  40         va_end(argp);
  41         //errorstream<<"SCRIPT ERROR: "<<buf;
  42         throw LuaError(buf);
  43 }
  44
  45 bool script_load(lua_State *L, const char *path)
  46 {
  47         infostream<<"Loading and running script from "<<path<<std::endl;
  48         int ret = luaL_loadfile(L, path) || lua_pcall(L, 0, 0, 0);
  49         if(ret){
  50                 errorstream<<"Failed to load and run script from "<<path<<":"<<std::endl;
  51                 errorstream<<"[LUA] "<<std::endl;
  52                 errorstream<<"[LUA] "<<lua_tostring(L, -1)<<std::endl;
  53                 errorstream<<"[LUA] "<<std::endl;
  54                 lua_pop(L, 1); // Pop error message from stack
  55                 return false;
  56         }
  57         return true;
  58 }
  59
  60 lua_State* script_init()
  61 {
  62         lua_State *L = luaL_newstate();
  63         luaL_openlibs(L);
  64         return L;
  65 }
  66
  67 void script_deinit(lua_State *L)
  68 {
  69         lua_close(L);
  70 }
  71
  72