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
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
|
/*
* ###############################################################################################
* ####################################### Lua 5.1/5.2/5.3 #######################################
* ###############################################################################################
*/
#include "compat.h"
#include "macros_and_utils.h"
/*
** Copied from Lua 5.2 loadlib.c
*/
// ################################################################################################
// ################################################################################################
#if LUA_VERSION_NUM == 501
// ################################################################################################
// ################################################################################################
static int luaL_getsubtable (lua_State *L, int idx, const char *fname)
{
lua_getfield(L, idx, fname);
if (lua_istable(L, -1))
return 1; /* table already there */
else
{
lua_pop(L, 1); /* remove previous result */
idx = lua_absindex(L, idx);
lua_newtable(L);
lua_pushvalue(L, -1); /* copy to be left at top */
lua_setfield(L, idx, fname); /* assign new table to field */
return 0; /* false, because did not find table there */
}
}
// ################################################################################################
void luaL_requiref (lua_State *L, const char *modname, lua_CFunction openf, int glb)
{
lua_pushcfunction(L, openf);
lua_pushstring(L, modname); /* argument to open function */
lua_call(L, 1, 1); /* open module */
luaL_getsubtable(L, LUA_REGISTRYINDEX, LUA_LOADED_TABLE);
lua_pushvalue(L, -2); /* make copy of module (call result) */
lua_setfield(L, -2, modname); /* _LOADED[modname] = module */
lua_pop(L, 1); /* remove _LOADED table */
if (glb)
{
lua_pushvalue(L, -1); /* copy of 'mod' */
lua_setglobal(L, modname); /* _G[modname] = module */
}
}
#endif // LUA_VERSION_NUM
// ################################################################################################
// ################################################################################################
#if LUA_VERSION_NUM < 504
// ################################################################################################
// ################################################################################################
void* lua_newuserdatauv( lua_State* L, size_t sz, int nuvalue)
{
ASSERT_L( nuvalue <= 1);
return lua_newuserdata( L, sz);
}
// ################################################################################################
// push on stack uservalue #n of full userdata at idx
int lua_getiuservalue( lua_State* L, int idx, int n)
{
// full userdata can have only 1 uservalue before 5.4
if( n > 1)
{
lua_pushnil( L);
return LUA_TNONE;
}
lua_getuservalue( L, idx);
#if LUA_VERSION_NUM == 501
/* default environment is not a nil (see lua_getfenv) */
lua_getglobal(L, "package");
if (lua_rawequal(L, -2, -1) || lua_rawequal(L, -2, LUA_GLOBALSINDEX))
{
lua_pop(L, 2);
lua_pushnil( L);
return LUA_TNONE;
}
lua_pop(L, 1); /* remove package */
#endif
return lua_type( L, -1);
}
// ################################################################################################
// Pops a value from the stack and sets it as the new n-th user value associated to the full userdata at the given index.
// Returns 0 if the userdata does not have that value.
int lua_setiuservalue( lua_State* L, int idx, int n)
{
if( n > 1
#if LUA_VERSION_NUM == 501
|| lua_type( L, -1) != LUA_TTABLE
#endif
)
{
lua_pop( L, 1);
return 0;
}
(void) lua_setuservalue( L, idx);
return 1; // I guess anything non-0 is ok
}
#endif // LUA_VERSION_NUM
|
