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
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
|
/*!A cross-platform build utility based on Lua
*
* Licensed under the Apache License, Version 2.0 (the "License");
* you may not use this file except in compliance with the License.
* You may obtain a copy of the License at
*
* http://www.apache.org/licenses/LICENSE-2.0
*
* Unless required by applicable law or agreed to in writing, software
* distributed under the License is distributed on an "AS IS" BASIS,
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
* See the License for the specific language governing permissions and
* limitations under the License.
*
* Copyright (C) 2015-present, TBOOX Open Source Group.
*
* @author ruki
* @file xmi.h
*
*/
#ifndef XMI_H
#define XMI_H
/* //////////////////////////////////////////////////////////////////////////////////////
* includes
*/
#include <stdio.h>
#include <stdlib.h>
#include <stdarg.h>
#ifndef LUA_VERSION
# include "luawrap/luaconf.h"
#endif
/* //////////////////////////////////////////////////////////////////////////////////////
* macros
*/
#define XMI_LUA_MULTRET (-1)
// basic types
#define XMI_LUA_TNONE (-1)
#define XMI_LUA_TNIL 0
#define XMI_LUA_TBOOLEAN 1
#define XMI_LUA_TLIGHTUSERDATA 2
#define XMI_LUA_TNUMBER 3
#define XMI_LUA_TSTRING 4
#define XMI_LUA_TTABLE 5
#define XMI_LUA_TFUNCTION 6
#define XMI_LUA_TUSERDATA 7
#define XMI_LUA_TTHREAD 8
#define LUA_NUMTYPES 9
// pseudo-indices
#ifdef XMI_USE_LUAJIT
# define XMI_LUA_REGISTRYINDEX (-10000)
# define XMI_LUA_ENVIRONINDEX (-10001)
# define XMI_LUA_GLOBALSINDEX (-10002)
# define xmi_lua_upvalueindex(i) (XMI_LUA_GLOBALSINDEX - (i))
#else
# define XMI_LUA_REGISTRYINDEX (-LUAI_MAXSTACK - 1000)
# define xmi_lua_upvalueindex(i) (XMI_LUA_REGISTRYINDEX - (i))
#endif
// lua macros
#define xmi_lua_newtable(lua) xmi_lua_createtable(lua, 0, 0)
#define xmi_lua_gettop(lua) (g_lua_ops)->_lua_gettop(lua)
#define xmi_lua_type(lua, idx) (g_lua_ops)->_lua_type(lua, idx)
// get macros
#define xmi_lua_getglobal(lua, name) (g_lua_ops)->_lua_getglobal(lua, name)
#define xmi_lua_gettable(lua, idx) (g_lua_ops)->_lua_gettable(lua, idx)
#define xmi_lua_getfield(lua, idx, k) (g_lua_ops)->_lua_getfield(lua, idx, k)
#define xmi_lua_geti(lua, idx, n) (g_lua_ops)->_lua_geti(lua, idx, n)
#define xmi_lua_rawget(lua, idx) (g_lua_ops)->_lua_rawget(lua, idx)
#define xmi_lua_rawgeti(lua, idx, n) (g_lua_ops)->_lua_rawgeti(lua, idx, n)
#define xmi_lua_rawgetp(lua, idx, p) (g_lua_ops)->_lua_rawgetp(lua, idx, p)
#define xmi_lua_createtable(lua, narr, nrec) (g_lua_ops)->_lua_createtable(lua, narr, nrec)
#define xmi_lua_newuserdatauv(lua, sz, nuvalue) (g_lua_ops)->_lua_newuserdatauv(lua, sz, nuvalue)
#define xmi_lua_getmetatable(lua, objindex) (g_lua_ops)->_lua_getmetatable(lua, objindex)
#define xmi_lua_getiuservalue(lua, idx, n) (g_lua_ops)->_lua_getiuservalue(lua, idx, n)
// to macros
#define xmi_lua_tointegerx(lua, idx, isnum) (g_lua_ops)->_lua_tointegerx(lua, idx, isnum)
#define xmi_lua_tointeger(lua, i) xmi_lua_tointegerx(lua, (i), NULL)
#define xmi_lua_toboolean(lua, idx) (g_lua_ops)->_lua_toboolean(lua, idx)
#define xmi_lua_touserdata(lua, idx) (g_lua_ops)->_lua_touserdata(lua, idx)
// access macros
#define xmi_lua_isfunction(lua, n) (xmi_lua_type(lua, (n)) == XMI_LUA_TFUNCTION)
#define xmi_lua_istable(lua, n) (xmi_lua_type(lua, (n)) == XMI_LUA_TTABLE)
#define xmi_lua_islightuserdata(lua, n) (xmi_lua_type(lua, (n)) == XMI_LUA_TLIGHTUSERDATA)
#define xmi_lua_isnil(lua, n) (xmi_lua_type(lua, (n)) == XMI_LUA_TNIL)
#define xmi_lua_isboolean(lua, n) (xmi_lua_type(lua, (n)) == XMI_LUA_TBOOLEAN)
#define xmi_lua_isthread(lua, n) (xmi_lua_type(lua, (n)) == XMI_LUA_TTHREAD)
#define xmi_lua_isnone(lua, n) (xmi_lua_type(lua, (n)) == XMI_LUA_TNONE)
#define xmi_lua_isnoneornil(lua, n) (xmi_lua_type(lua, (n)) <= 0)
// push macros
#define xmi_lua_pushnil(lua) (g_lua_ops)->_lua_pushnil(lua)
#define xmi_lua_pushinteger(lua, n) (g_lua_ops)->_lua_pushinteger(lua, n)
#define xmi_lua_pushboolean(lua, b) (g_lua_ops)->_lua_pushboolean(lua, b)
#define xmi_lua_pushnumber(lua, b) (g_lua_ops)->_lua_pushnumber(lua, n)
#define xmi_lua_pushlstring(lua, s, len) (g_lua_ops)->_lua_pushlstring(lua, s, len)
#define xmi_lua_pushstring(lua, s) (g_lua_ops)->_lua_pushstring(lua, s)
#define xmi_lua_pushvfstring(lua, fmt, argp) (g_lua_ops)->_lua_pushvfstring(lua, fmt, argp)
#if defined(_MSC_VER)
# define xmi_lua_pushfstring(lua, fmt, ...) (g_lua_ops)->_lua_pushfstring(lua, fmt, __VA_ARGS__)
#else
# define xmi_lua_pushfstring(lua, fmt, arg ...) (g_lua_ops)->_lua_pushfstring(lua, fmt, ## arg)
#endif
#define xmi_lua_pushcclosure(lua, fn, n) (g_lua_ops)->_lua_pushcclosure(lua, fn, n)
#define xmi_lua_pushlightuserdata(lua, p) (g_lua_ops)->_lua_pushlightuserdata(lua, p)
#define xmi_lua_pushthread(lua) (g_lua_ops)->_lua_pushthread(lua)
// compatibility macros
#define xmi_lua_newuserdata(lua, s) xmi_lua_newuserdatauv(lua, s, 1)
#define xmi_lua_getuservalue(lua, idx) xmi_lua_getiuservalue(lua, idx, 1)
#define xmi_lua_setuservalue(lua, idx) xmi_lua_setiuservalue(lua, idx, 1)
// luaL macros
#define xmi_luaL_setfuncs(lua, narr, nrec) (g_lua_ops)->_luaL_setfuncs(lua, narr, nrec)
#if defined(_MSC_VER)
# define xmi_luaL_error(lua, fmt, ...) (g_lua_ops)->_luaL_error(lua, fmt, __VA_ARGS__)
#else
# define xmi_luaL_error(lua, fmt, arg ...) (g_lua_ops)->_luaL_error(lua, fmt, ## arg)
#endif
#define xmi_luaL_argerror(lua, numarg, extramsg) (g_lua_ops)->_luaL_argerror(lua, numarg, extramsg)
#define xmi_luaL_checkinteger(lua, idx) (g_lua_ops)->_luaL_checkinteger(lua, idx)
#define xmi_luaL_checkoption(lua, arg, def, lst) (g_lua_ops)->_luaL_checkoption(lua, arg, def, lst)
#define xmi_luaL_newlibtable(lua, l) xml_lua_createtable(lua, 0, sizeof(l)/sizeof((l)[0]) - 1)
#define xmi_luaL_newlib(lua, l) \
(xmi_luaL_checkversion(lua), xmi_luaL_newlibtable(lua,l), xmi_luaL_setfuncs(lua,l,0))
#define xmi_luaL_argcheck(lua, cond, arg, extramsg) \
((void)(luai_likely(cond) || xmi_luaL_argerror(lua, (arg), (extramsg))))
#define xmi_luaL_argexpected(lua, cond, arg, tname) \
((void)(luai_likely(cond) || xmi_luaL_typeerror(lua, (arg), (tname))))
#define xmi_luaL_checkstring(lua, n) (xmi_luaL_checklstring(lua, (n), NULL))
#define xmi_luaL_optstring(lua, n, d) (xmi_luaL_optlstring(lua, (n), (d), NULL))
#define xmi_luaL_typename(lua, i) xmi_lua_typename(lua, xmi_lua_type(lua,(i)))
#define xmi_luaL_dofile(lua, fn) \
(xmi_luaL_loadfile(lua, fn) || xmi_lua_pcall(lua, 0, XMI_LUA_MULTRET, 0))
#define xmi_luaL_dostring(lua, s) \
(xmi_luaL_loadstring(lua, s) || xmi_lua_pcall(lua, 0, XMI_LUA_MULTRET, 0))
#define xmi_luaL_getmetatable(lua, n) (xmi_lua_getfield(lua, XMI_LUA_REGISTRYINDEX, (n)))
#define xmi_luaL_opt(lua, f, n, d) (xmi_lua_isnoneornil(lua,(n)) ? (d) : f(lua,(n)))
#define xmi_luaL_loadbuffer(lua, s, sz, n) xmi_luaL_loadbufferx(lua, s, sz, n, NULL)
#define xmi_luaL_pushfail(lua) xmi_lua_pushnil(lua)
/* we cannot redefine lua functions in loadxmi.c,
* because original lua.h has been included
*/
#ifndef XM_PREFIX_H
# define lua_upvalueindex xmi_lua_upvalueindex
# define lua_gettop xmi_lua_gettop
# define lua_type xmi_lua_type
# define lua_newtable xmi_lua_newtable
// get macros
# define lua_getglobal xmi_lua_getglobal
# define lua_gettable xmi_lua_gettable
# define lua_getfield xmi_lua_getfield
# define lua_geti xmi_lua_geti
# define lua_rawget xmi_lua_rawget
# define lua_rawgeti xmi_lua_rawgeti
# define lua_rawgetp xmi_lua_rawgetp
# define lua_createtable xmi_lua_createtable
# define lua_newuserdatauv xmi_lua_newuserdatauv
# define lua_getmetatable xmi_lua_getmetatable
# define lua_getiuservalue xmi_lua_getiuservalue
// access macros
# define lua_tointeger xmi_lua_tointeger
# define lua_tointegerx xmi_lua_tointegerx
# define lua_toboolean xmi_lua_toboolean
# define lua_touserdata xmi_lua_touserdata
// access macros
# define lua_isfunction xmi_lua_isfunction
# define lua_istable xmi_lua_istable
# define lua_islightuserdata xmi_lua_islightuserdata
# define lua_isnil xmi_lua_isnil
# define lua_isboolean xmi_lua_isboolean
# define lua_isthread xmi_lua_isthread
# define lua_isnone xmi_lua_isnone
# define lua_isnoneornil xmi_lua_isnoneornil
// push macros
# define lua_pushnil xmi_lua_pushnil
# define lua_pushinteger xmi_lua_pushinteger
# define lua_pushboolean xmi_lua_pushboolean
# define lua_pushnumber xmi_lua_pushnumber
# define lua_pushlstring xmi_lua_pushlstring
# define lua_pushstring xmi_lua_pushstring
# define lua_pushvfstring xmi_lua_pushvfstring
# define lua_pushfstring xmi_lua_pushfstring
# define lua_pushcclosure xmi_lua_pushcclosure
# define lua_pushlightuserdata xmi_lua_pushlightuserdata
# define lua_pushthread xmi_lua_pushthread
# define lua_newuserdata xmi_lua_newuserdata
# define lua_getuservalue xmi_lua_getuservalue
# define lua_setuservalue xmi_lua_setuservalue
// luaL macros
# define luaL_setfuncs xmi_luaL_setfuncs
# define luaL_error xmi_luaL_error
# define luaL_argerror xmi_luaL_argerror
# define luaL_checkinteger xmi_luaL_checkinteger
# define luaL_checkoption xmi_luaL_checkoption
# define luaL_newlibtable xmi_luaL_newlibtable
# define luaL_newlib xmi_luaL_newlib
# define luaL_argcheck xmi_luaL_argcheck
# define luaL_argexpected xmi_luaL_argexpected
# define luaL_checkstring xmi_luaL_checkstring
# define luaL_optstring xmi_luaL_optstring
# define luaL_typename xmi_luaL_typename
# define luaL_dofile xmi_luaL_dofile
# define luaL_dostring xmi_luaL_dostring
# define luaL_getmetatable xmi_luaL_getmetatable
# define luaL_opt xmi_luaL_opt
# define luaL_loadbuffer xmi_luaL_loadbuffer
# define luaL_pushfail xmi_luaL_pushfail
// types
# define luaL_Reg xmi_luaL_Reg
# define lua_State xmi_lua_State
# define lua_Number xmi_lua_Number
# define lua_Integer xmi_lua_Integer
# define lua_Unsigned xmi_lua_Unsigned
# define lua_KContext xmi_lua_KContext
# define lua_CFunction xmi_lua_CFunction
# define lua_KFunction xmi_lua_KFunction
# define lua_Reader xmi_lua_Reader
# define lua_Writer xmi_lua_Writer
# define lua_Alloc xmi_lua_Alloc
# define lua_WarnFunction xmi_lua_WarnFunction
#endif
// extern c
#ifdef __cplusplus
# define xmi_extern_c_enter extern "C" {
# define xmi_extern_c_leave }
#else
# define xmi_extern_c_enter
# define xmi_extern_c_leave
#endif
// define lua module entry function
#define luaopen(name, lua) \
__dummy = 1; \
xmi_lua_ops_t* g_lua_ops = NULL; \
xmi_extern_c_enter \
int xmiopen_##name(lua); \
xmi_extern_c_leave \
int xmisetup(xmi_lua_ops_t* ops) { \
g_lua_ops = ops; \
return __dummy; \
} \
int xmiopen_##name(lua)
/* //////////////////////////////////////////////////////////////////////////////////////
* types
*/
typedef LUA_NUMBER xmi_lua_Number;
typedef LUA_INTEGER xmi_lua_Integer;
typedef LUA_UNSIGNED xmi_lua_Unsigned;
typedef LUA_KCONTEXT xmi_lua_KContext;
typedef struct xmi_lua_State_ {
int dummy;
}xmi_lua_State;
typedef int (*xmi_lua_CFunction)(lua_State* lua);
typedef int (*xmi_lua_KFunction)(lua_State* lua, int status, lua_KContext ctx);
typedef const char* (*xmi_lua_Reader)(lua_State* lua, void* ud, size_t* sz);
typedef int (*xmi_lua_Writer)(lua_State* lua, const void* p, size_t sz, void* ud);
typedef void* (*xmi_lua_Alloc)(void* ud, void* ptr, size_t osize, size_t nsize);
typedef void (*xmi_lua_WarnFunction)(void* ud, const char* msg, int tocont);
typedef struct xmi_luaL_Reg_ {
char const* name;
xmi_lua_CFunction func;
}xmi_luaL_Reg;
typedef struct xmi_lua_ops_t_ {
int (*_lua_gettop)(lua_State* lua);
int (*_lua_type)(lua_State* lua, int idx);
// get functions
int (*_lua_getglobal)(lua_State* lua, const char *name);
int (*_lua_gettable)(lua_State* lua, int idx);
int (*_lua_getfield)(lua_State* lua, int idx, const char* k);
int (*_lua_geti)(lua_State* lua, int idx, lua_Integer n);
int (*_lua_rawget)(lua_State* lua, int idx);
int (*_lua_rawgeti)(lua_State* lua, int idx, lua_Integer n);
int (*_lua_rawgetp)(lua_State* lua, int idx, const void* p);
void (*_lua_createtable)(lua_State* lua, int narr, int nrec);
void* (*_lua_newuserdatauv)(lua_State* lua, size_t sz, int nuvalue);
int (*_lua_getmetatable)(lua_State* lua, int objindex);
int (*_lua_getiuservalue)(lua_State* lua, int idx, int n);
// to functions
lua_Integer (*_lua_tointegerx)(lua_State* lua, int idx, int* isnum);
int (*_lua_toboolean)(lua_State* lua, int idx);
void* (*_lua_touserdata)(lua_State* lua, int idx);
// push functions
void (*_lua_pushnil)(lua_State* lua);
void (*_lua_pushinteger)(lua_State* lua, lua_Integer n);
void (*_lua_pushboolean)(lua_State* lua, int b);
void (*_lua_pushnumber)(lua_State* lua, lua_Number n);
const char* (*_lua_pushlstring)(lua_State* lua, const char* s, size_t len);
const char* (*_lua_pushstring)(lua_State* lua, const char* s);
const char* (*_lua_pushvfstring)(lua_State* lua, const char* fmt, va_list argp);
const char* (*_lua_pushfstring)(lua_State* lua, const char* fmt, ...);
void (*_lua_pushcclosure)(lua_State* lua, lua_CFunction fn, int n);
void (*_lua_pushlightuserdata)(lua_State* lua, void* p);
int (*_lua_pushthread)(lua_State* lua);
// luaL functions
void (*_luaL_setfuncs)(lua_State* lua, const luaL_Reg* l, int nup);
int (*_luaL_error)(lua_State* lua, const char* fmt, ...);
int (*_luaL_argerror)(lua_State* lua, int numarg, const char* extramsg);
lua_Integer (*_luaL_checkinteger)(lua_State* lua, int idx);
int (*_luaL_checkoption)(lua_State* lua, int arg, const char *def, const char *const lst[]);
}xmi_lua_ops_t;
/* //////////////////////////////////////////////////////////////////////////////////////
* globals
*/
extern xmi_lua_ops_t* g_lua_ops;
/* //////////////////////////////////////////////////////////////////////////////////////
* interfaces
*/
xmi_extern_c_enter
// setup lua interfaces
int xmisetup(xmi_lua_ops_t* ops);
xmi_extern_c_leave
#endif
|
