-
Notifications
You must be signed in to change notification settings - Fork 3
/
Copy pathmain.c
136 lines (113 loc) · 3.03 KB
/
main.c
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
#include "janet.h"
#include "raylib.h"
#include "types.h"
#include "core.h"
#include "shapes.h"
#include "audio.h"
#include "gestures.h"
#include "text.h"
#include "image.h"
#include "3d.h"
#if defined(PLATFORM_WEB)
#include <emscripten/emscripten.h>
#endif
static JanetTable* core_env = NULL;
static JanetFiber* game_fiber = NULL;
static JanetFunction* udf_fn = NULL;
// janet_pcall, except if a non-NULL fiber is passed in, retain its env
JanetSignal janet_pcall_keep_env(
JanetFunction *fun,
int32_t argc,
const Janet *argv,
Janet *out,
JanetFiber **f) {
JanetFiber *fiber;
if (f && *f) {
JanetTable* env = (*f)->env;
fiber = janet_fiber_reset(*f, fun, argc, argv);
fiber->env = env;
} else {
fiber = janet_fiber(fun, 64, argc, argv);
}
if (f) *f = fiber;
if (!fiber) {
*out = janet_cstringv("arity mismatch");
return JANET_SIGNAL_ERROR;
}
return janet_continue(fiber, janet_wrap_nil(), out);
}
void UpdateDrawFrame(void) {
Janet ret;
JanetSignal status =
janet_pcall_keep_env(udf_fn, 0, NULL, &ret, &game_fiber);
if (status == JANET_SIGNAL_ERROR) {
janet_stacktrace(game_fiber, ret);
janet_deinit();
game_fiber = NULL;
udf_fn = NULL;
// XXX
abort();
}
}
int main(int argc, char** argv) {
janet_init();
core_env = janet_core_env(NULL);
// make jaylib functions available
janet_cfuns(core_env, NULL, core_cfuns);
janet_cfuns(core_env, NULL, shapes_cfuns);
janet_cfuns(core_env, NULL, audio_cfuns);
janet_cfuns(core_env, NULL, gesture_cfuns);
janet_cfuns(core_env, NULL, text_cfuns);
janet_cfuns(core_env, NULL, image_cfuns);
janet_cfuns(core_env, NULL, threed_cfuns);
Janet ret;
int status =
janet_dostring(core_env,
"(setdyn :syspath \"./resources\")\n"
"(import game :prefix \"\")\n"
"(common-startup)\n"
// want this in c anyway, so "returning" this
"main-fiber",
"game.janet", &ret);
if (status != 0) {
printf("error loading game\n");
janet_deinit();
game_fiber = NULL;
return -1;
}
janet_gcroot(ret);
game_fiber = janet_unwrap_fiber(ret);
status =
janet_dostring(core_env,
"update-draw-frame",
"JanetFunction", &ret);
if (status != 0) {
printf("error getting update-draw-frame\n");
janet_deinit();
game_fiber = NULL;
return -1;
}
janet_gcroot(ret);
udf_fn = janet_unwrap_function(ret);
#if defined(PLATFORM_WEB)
// XXX: chrome dev console suggests using framerate of 0
//emscripten_set_main_loop(UpdateDrawFrame, 60, 1);
emscripten_set_main_loop(UpdateDrawFrame, 0, 1);
#else
status =
janet_dostring(core_env, "(desktop)", "source", &ret);
if (status != 0) {
printf("error during desktop-specific init\n");
janet_deinit();
game_fiber = NULL;
udf_fn = NULL;
return -1;
}
while (!WindowShouldClose())
{
UpdateDrawFrame();
}
#endif
janet_deinit();
return 0;
}