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
|
#include "honey.h"
void honey_print_help()
{
printf("usage: honey [OPTIONS] SCRIPT_DIR\n"
" -v Enable verbose logging\n"
" -h Show this help message and exit\n"
" -l LOG Log to LOG instead of stdout\n");
}
/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
bool honey_parse_options(honey_options* options, int argc, char** argv)
{
honey_options opts;
opts.verbose = false;
opts.script_directory = NULL;
opts.logfile = NULL;
opterr = 0;
int c;
while ((c = getopt(argc, argv, "vhl:")) != -1) {
switch (c) {
case 'v':
opts.verbose = true;
break;
case 'h':
honey_print_help();
return false;
case 'l':
opts.logfile = optarg;
break;
case '?':
fprintf(stderr, "unknown option: '%c'\n", optopt);
honey_print_help();
return false;
default:
return false;
}
}
if (optind < argc) {
opts.script_directory = argv[optind];
}
*options = opts;
return true;
}
/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
bool honey_setup(lua_State** L)
{
/* set up lua and honey lua bindings */
*L = luaL_newstate();
luaL_openlibs(*L);
lua_createtable(*L, 0, 1);
if (!honey_setup_window(*L))
return false;
lua_setfield(*L, -2, "window");
honey_setup_input(*L);
lua_setfield(*L, -2, "input");
lua_setglobal(*L, "honey");
return true;
}
/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
void honey_run(honey_window window) {
/*float prevTime = 0;
float currentTime = 0;
float dt;
float draw_dt = 0;
while(!glfwWindowShouldClose(window)) {
currentTime = (float) glfwGetTime();
dt = currentTime - prevTime;
prevTime = currentTime;
honey_update_callback(dt);
honey_draw_callback();
}*/
}
/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
int honey_get_callback(lua_State* L, char* callback)
{
lua_getglobal(L, "honey");
lua_getfield(L, -1, callback);
int ref = LUA_NOREF;
if (lua_isfunction(L, -1))
ref = luaL_ref(L, LUA_REGISTRYINDEX);
else
lua_pop(L, 1);
lua_pop(L, 1);
return ref;
}
|
