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
|
#include <lua.h>
#include <lualib.h>
#include <lauxlib.h>
#include <stdlib.h>
#include <stdint.h>
#include "types/str.h"
#ifndef __lua_h
#define __lua_h
enum deep_copy_flags {
SKIP_META = (1 << 0),
SKIP_GC = (1 << 1),
IS_META = (1 << 2),
SKIP__G = (1 << 3),
SKIP_LOCALS = (1 << 4),
STRIP_GC = (1 << 5),
};
#endif
#ifndef GIT_COMMIT
#define GIT_COMMIT "unknown"
#endif
void* __malloc_(size_t);
void __free_(void*);
void luaI_deepcopy(lua_State* src, lua_State* dest, enum deep_copy_flags);
void luaI_deepcopy2(lua_State* src, lua_State* dest);
void lua_set_global_table(lua_State*);
//todo: char* _luaL_tolstring(lua_State*, int, size_t*);
void luaI_copyvars(lua_State* src, lua_State* dest);
void lua_upvalue_key_table(lua_State* L, int fidx);
int lua_assign_upvalues(lua_State* L, int fidx);
typedef int (*stream_read_function)(uint64_t, str**, void**);
typedef int (*stream_free_function)(void**);
void luaI_newstream(lua_State* L, stream_read_function, stream_free_function, void*);
int luaI_nothing(lua_State*);
int env_table(lua_State* L, int provide_table);
void luaI_jointable(lua_State* L);
int luaI_errtraceback(lua_State* L);
//generic macro that takes other macros (see below)
#define _tset_b(L, Tidx, K, V, F)\
lua_pushstring(L, K);\
F(L, V);\
lua_settable(L, Tidx);
//some macros to make batch adding easier (may switch to arrays for this later)
#define luaI_tseti(L, Tidx, K, V)\
_tset_b(L, Tidx, K, V, lua_pushinteger)
#define luaI_tsetb(L, Tidx, K, V)\
_tset_b(L, Tidx, K, V, lua_pushboolean)
#define luaI_tsetsl(L, Tidx, K, V, len)\
lua_pushvalue(L, Tidx);\
lua_pushstring(L, K);\
lua_pushlstring(L, V, len);\
lua_settable(L, Tidx);
#define luaI_tsets(L, Tidx, K, V)\
_tset_b(L, Tidx, K, V, lua_pushstring)
#define luaI_tsetv(L, Tidx, K, V)\
_tset_b(L, Tidx, K, V, lua_pushvalue)
#define luaI_tsetcf(L, Tidx, K, V)\
_tset_b(L, Tidx, K, V, lua_pushcfunction)
#define luaI_tsetlud(L, Tidx, K, V)\
_tset_b(L, Tidx, K, V, lua_pushlightuserdata)
#define luaI_tsetnil(L, Tidx, K)\
lua_pushstring(L, K);\
lua_pushnil(L);\
lua_settable(L, Tidx);
#define luaI_treplk(L, Tidx, K, nK){\
lua_pushstring(L, K);\
lua_gettable(L, Tidx);\
int _v = lua_gettop(L);\
luaI_tsetv(L, Tidx, nK, _v);\
lua_pushstring(L, K);\
lua_pushnil(L);\
lua_settable(L, Tidx);\
lua_pop(L, 1);}
//in lullaby.h
extern int _print_errors;
#define luaI_error(L, en, str){\
lua_pushnil(L);\
lua_pushstring(L, str);\
if(_print_errors) printf("%s\n",str);\
lua_pushinteger(L, en);\
return 3;}
#define luaI_assert(L, eq){_helperluaI_assert(L, eq, __FILE__, __LINE__);}
#define _helperluaI_assert(L, eq, file, line){\
if(!(eq)){\
char err[1024] = {0};\
sprintf(err, "(%s:%i) %s assertion failed", file, line, #eq);\
luaI_error(L, -1, err);}}
int writer(lua_State*, const void*, size_t, void*);
#if LUA_VERSION_NUM == 504
#define lua_objlen lua_rawlen
#define luaL_register(L, M, F) luaL_newlib(L, F);
#elif LUA_VERSION_NUM == 503
#define lua_objlen lua_rawlen
#define luaL_register(L, M, F) luaL_newlib(L, F);
#define lua_gc(A, B) lua_gc(A, B, 0)
#elif LUA_VERSION_NUM == 501
#define LUA_OK 0
#define luaL_tolstring lua_tolstring
#define lua_dump(A, B, C, D) lua_dump(A, B, C)
#define lua_rawlen lua_objlen
#define lua_gc(A, B) lua_gc(A, B, 0)
#define lua_pushglobaltable(L) {lua_getglobal(L, "_G");if(lua_isnil(L, -1)){lua_newtable(L);lua_setglobal(L, "_G");lua_getglobal(L, "_G");}}
#endif
|
