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
|
#include "io.h"
#include "stdlib.h"
#include "stdio.h"
#include "config.h"
#include "stdint.h"
#include "table.h"
int l_readfile(lua_State* L){
size_t len;
char* a = (char*)luaL_checklstring(L, 1, &len);
FILE *fp;
const uint64_t chunk_iter = 512;
uint64_t chunk = 512;
uint64_t count = 0;
char* out = malloc(chunk);
fp = fopen(a, "r");
for(;;){
char ch = fgetc(fp);
if(ch==EOF) break;
if(count > chunk){
chunk += chunk_iter;
out = realloc(out, chunk);
}
out[count] = ch;
count++;
}
out[count] = '\0';
lua_pushstring(L, out);
fclose(fp);
free(out);
return 1;
};
lua_Debug i_get_debug(lua_State* L){
lua_Debug ar;
lua_getstack(L, 1, &ar);
lua_getinfo(L, "nSl", &ar);
return ar;
}
int l_debug(lua_State* L){
size_t input_len = 0;
char* input = (char*)luaL_checklstring(L, 1, &input_len);
lua_Debug debug = i_get_debug(L);
printf(color_gray"[ debug ] (%s:%i) %s\n"color_reset, debug.source, debug.currentline, input);
return 0;
}
int l_log(lua_State* L){
size_t input_len = 0;
char* input = (char*)luaL_checklstring(L, 1, &input_len);
lua_Debug debug = i_get_debug(L);
printf(color_green"[ log ] (%s:%i)"color_gray" %s\n"color_reset, debug.source, debug.currentline, input);
return 0;
}
int l_warn(lua_State* L){
size_t input_len = 0;
char* input = (char*)luaL_checklstring(L, 1, &input_len);
lua_Debug debug = i_get_debug(L);
printf(color_yellow"[ warn ] (%s:%i) %s\n"color_reset, debug.source, debug.currentline, input);
return 0;
}
int l_error(lua_State* L){
size_t input_len = 0;
char* input = (char*)luaL_checklstring(L, 1, &input_len);
lua_Debug debug = i_get_debug(L);
printf(color_red"[ error ] (%s:%i) %s\n"color_reset, debug.source, debug.currentline, input);
return 0;
}
void print_indentation(int i){
for(int z = 0; z < i; z++) printf(" ");
}
void i_pprint(lua_State* L, int indent){
int last_idx = lua_gettop(L);
const char* type = lua_typename(L,lua_type(L,-1));
int t = lua_type(L,-1);
switch(lua_type(L,-1)){
case LUA_TTABLE:
print_indentation(indent);
if(indent >= _max_depth && _max_depth >= 0) {printf("{"color_gray"..."color_reset"}"); break;}
int skip = i_len(L,last_idx) < _start_nl_at;
printf("{");
if(!skip) printf("\n");
lua_pushnil(L);
for(;lua_next(L,last_idx) != 0;){
if(lua_type(L,-2) == LUA_TSTRING){
print_indentation(indent);
printf(" %s"color_gray":"color_reset, lua_tostring(L,-2));
}
i_pprint(L,indent+1);
printf(",");
if(!skip) printf("\n");
lua_pop(L,1);
}
print_indentation(indent);
printf("}");
break;
case LUA_TSTRING:
print_indentation(indent);
printf("\"%s\"", lua_tostring(L,-1));
break;
default:
print_indentation(indent);
printf(color_yellow"%s"color_reset, lua_tostring(L,-1));
}
if(_print_type){
if(lua_istable(L,last_idx)) printf(color_gray" : <%s:%lu>"color_reset,type,i_len(L,last_idx));
else printf(color_gray" : <%s>"color_reset,type);
}
}
int l_pprint(lua_State* L){
i_pprint(L,0);
printf("\n");
return 0;
}
|
