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