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
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
|
/*
* This source file is part of libRocket, the HTML/CSS Interface Middleware
*
* For the latest information, see http://www.librocket.com
*
* Copyright (c) 2008-2010 CodePoint Ltd, Shift Technology Ltd
*
* Permission is hereby granted, free of charge, to any person obtaining a copy
* of this software and associated documentation files (the "Software"), to deal
* in the Software without restriction, including without limitation the rights
* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
* copies of the Software, and to permit persons to whom the Software is
* furnished to do so, subject to the following conditions:
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
* THE SOFTWARE.
*
*/
#include "precompiled.h"
#include "GlobalLuaFunctions.h"
#include <Rocket/Core/Lua/lua.hpp>
namespace Rocket {
namespace Core {
namespace Lua {
/*
Below here are global functions and their helper functions that help overwrite the Lua global functions
*/
//__pairs should return two values.
//upvalue 1 is the __pairs function, upvalue 2 is the userdata created in rocket_pairs
//[1] is the object implementing __pairs
//[2] is the key that was just read
int rocket_pairsaux(lua_State* L)
{
lua_pushvalue(L,lua_upvalueindex(1)); //push __pairs to top
lua_insert(L,1); //move __pairs to the bottom
lua_pushvalue(L,lua_upvalueindex(2)); //push userdata
//stack looks like [1] = __pairs, [2] = object, [3] = latest key, [4] = userdata
if(lua_pcall(L,lua_gettop(L)-1,LUA_MULTRET,0) != 0)
Report(L,"__pairs");
return lua_gettop(L);
}
//A version of paris that respects a __pairs metamethod.
//"next" function is upvalue 1
int rocket_pairs(lua_State* L)
{
luaL_checkany(L,1); //[1] is the object given to us by pairs(object)
if(luaL_getmetafield(L,1,"__pairs"))
{
void* ud = lua_newuserdata(L,sizeof(void*)); //create a new block of memory to be used as upvalue 1
(*(int*)(ud)) = -1;
lua_pushcclosure(L,rocket_pairsaux,2); //uv 1 is __pairs, uv 2 is ud
}
else
lua_pushvalue(L,lua_upvalueindex(1)); //generator
lua_pushvalue(L,1); //state
lua_pushnil(L); //initial value
return 3;
}
//copy + pasted from Lua's lbaselib.c
int ipairsaux (lua_State *L) {
int i = luaL_checkinteger(L, 2);
luaL_checktype(L, 1, LUA_TTABLE);
i++; /* next value */
lua_pushinteger(L, i);
lua_rawgeti(L, 1, i);
return (lua_isnil(L, -1)) ? 0 : 2;
}
//__ipairs should return two values
//upvalue 1 is the __ipairs function, upvalue 2 is the userdata created in rocket_ipairs
//[1] is the object implementing __ipairs, [2] is the key last used
int rocket_ipairsaux(lua_State* L)
{
lua_pushvalue(L,lua_upvalueindex(1)); //push __ipairs
lua_insert(L,1); //move __ipairs to the bottom
lua_pushvalue(L,lua_upvalueindex(2)); //push userdata
//stack looks like [1] = __ipairs, [2] = object, [3] = latest key, [4] = userdata
if(lua_pcall(L,lua_gettop(L)-1,LUA_MULTRET,0) != 0)
Report(L,"__ipairs");
return lua_gettop(L);
}
//A version of paris that respects a __pairs metamethod.
//ipairsaux function is upvalue 1
int rocket_ipairs(lua_State* L)
{
luaL_checkany(L,1); //[1] is the object given to us by ipairs(object)
if(luaL_getmetafield(L,1,"__ipairs"))
{
void* ud = lua_newuserdata(L,sizeof(void*)); //create a new block of memory to be used as upvalue 1
(*(int*)(ud)) = -1;
lua_pushcclosure(L,rocket_pairsaux,2); //uv 1 is __ipairs, uv 2 is ud
}
else
lua_pushvalue(L,lua_upvalueindex(1)); //generator
lua_pushvalue(L,1); //state
lua_pushinteger(L, 0); /* and initial value */
return 3;
}
/*
//Based off of the luaB_print function from Lua's lbaselib.c
int LuaPrint(lua_State* L)
{
int n = lua_gettop(L); // number of arguments
int i;
lua_getglobal(L, "tostring");
StringList string_list = StringList();
String output = "";
for (i=1; i<=n; i++)
{
const char *s;
lua_pushvalue(L, -1); // function to be called
lua_pushvalue(L, i); // value to print
lua_call(L, 1, 1);
s = lua_tostring(L, -1); // get result
if (s == NULL)
return luaL_error(L, LUA_QL("tostring") " must return a string to "
LUA_QL("print"));
if (i>1)
output += "\t";
output += String(s);
lua_pop(L, 1); // pop result
}
output += "\n";
Log::Message(Log::LT_INFO, output.CString());
return 0;
}
*/
void OverrideLuaGlobalFunctions(lua_State* L)
{
lua_getglobal(L,"_G");
lua_getglobal(L,"next");
lua_pushcclosure(L,rocket_pairs,1);
lua_setfield(L,-2,"pairs");
lua_pushcfunction(L,ipairsaux);
lua_pushcclosure(L,rocket_ipairs,1);
lua_setfield(L,-2,"ipairs");
/*
lua_pushcfunction(L,LuaPrint);
lua_setfield(L,-2,"print");
*/
lua_pop(L,1); //pop _G
}
}
}
}
|
