Translation to Portuguese of Brazil for Minetest
[oweals/minetest.git] / 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