1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
#ifndef SPRING_LUA_INCLUDE
#define SPRING_LUA_INCLUDE
#include <string>
#include "lua.h"
#include "lib/lua/src/lstate.h"
#include "lualib.h"
#include "lauxlib.h"
#include "lib/streflop/streflop_cond.h"
#include <boost/thread/recursive_mutex.hpp>
inline void lua_pushsstring(lua_State* L, const std::string& str)
{
lua_pushlstring(L, str.data(), str.size());
}
inline bool lua_israwnumber(lua_State* L, int index)
{
return (lua_type(L, index) == LUA_TNUMBER);
}
inline bool lua_israwstring(lua_State* L, int index)
{
return (lua_type(L, index) == LUA_TSTRING);
}
inline int lua_checkgeti(lua_State* L, int idx, int n)
{
lua_rawgeti(L, idx, n);
if (lua_isnoneornil(L, -1)) {
lua_pop(L, 1);
return 0;
}
return 1;
}
inline int lua_toint(lua_State* L, int idx)
{
return (int)lua_tointeger(L, idx);
}
inline float lua_tofloat(lua_State* L, int idx)
{
const float n = lua_tonumber(L, idx);
#ifdef DEBUG
if (math::isinf(n) || math::isnan(n)) luaL_argerror(L, idx, "number expected, got NAN (check your code for div0)");
//assert(!math::isinf(d));
//assert(!math::isnan(d));
#endif
return n;
}
inline float luaL_checkfloat(lua_State* L, int idx)
{
return (float)luaL_checknumber(L, idx);
}
inline float luaL_optfloat(lua_State* L, int idx, float def)
{
return (float)luaL_optnumber(L, idx, def);
}
inline bool luaL_optboolean(lua_State* L, int idx, bool def)
{
return lua_isboolean(L, idx) ? lua_toboolean(L, idx) : def;
}
struct luaContextData;
extern boost::recursive_mutex* getLuaMutex(bool userMode, bool primary);
inline lua_State *LUA_OPEN(luaContextData* lcd = NULL, bool userMode = true, bool primary = true) {
lua_State *L_New = lua_open();
L_New->lcd = lcd;
L_New->luamutex = getLuaMutex(userMode, primary);
return L_New;
}
inline void LUA_CLOSE(lua_State *L_Old) {
if(L_Old->luamutex != getLuaMutex(false, false) && L_Old->luamutex != getLuaMutex(false, true))
delete L_Old->luamutex;
lua_close(L_Old);
}
#endif // SPRING_LUA_INCLUDE
|
