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
|
#include "wren_inter.h"
#include "../utils/stringBuilder.h"
#include <stddef.h>
#include <string.h>
#include <raylib.h>
#include <stdio.h>
#include <wren.h>
void writeFn(WrenVM* vm, const char* text) {
StringBuilder* sb = (StringBuilder*)wrenGetUserData(vm);
AppendStringBuilder(sb, text);
}
void errorFn(WrenVM* vm, WrenErrorType errorType,
const char* module, const int line,
const char* msg)
{
StringBuilder* sb = (StringBuilder*)wrenGetUserData(vm);
switch (errorType)
{
case WREN_ERROR_COMPILE:
AppendStringBuilder(sb, "Comptime error: ");
AppendStringBuilder(sb, msg);
break;
case WREN_ERROR_STACK_TRACE:
AppendStringBuilder(sb, "Stack trace: ");
AppendStringBuilder(sb, msg);
break;
case WREN_ERROR_RUNTIME:
AppendStringBuilder(sb, "Runtime error: ");
AppendStringBuilder(sb, msg);
break;
}
}
// Obsolete
char *EvaluateScript(char *script) {
TraceLog(LOG_INFO, "Evaluating %s...", script);
WrenVM *vm = InterpreterPrepareMachine();
if (vm == NULL) {
TraceLog(LOG_ERROR, "Failed to initialize a wren vm");
return NULL;
}
WrenInterpretResult result = wrenInterpret(vm, "main", script);
switch (result) {
case WREN_RESULT_SUCCESS: break;
case WREN_RESULT_COMPILE_ERROR: break;
case WREN_RESULT_RUNTIME_ERROR: break;
}
char *outp = GetMachineOutput(vm);
InterpreterFreeMachine(vm);
return outp;
}
WrenVM *InterpreterPrepareMachine() {
WrenConfiguration config;
wrenInitConfiguration(&config);
config.writeFn = writeFn;
config.errorFn = errorFn;
StringBuilder *stdout_sb = calloc(1, sizeof(StringBuilder));
config.userData = stdout_sb;
return wrenNewVM(&config);
}
char *GetMachineOutput(WrenVM *vm) {
StringBuilder* sb = (StringBuilder*)wrenGetUserData(vm);
if (sb == NULL || sb->val == NULL) return NULL;
return strdup(sb->val);
}
void InterpreterFreeMachine(WrenVM *vm) {
StringBuilder* sb = (StringBuilder*)wrenGetUserData(vm);
if (sb != NULL && sb->val != NULL) free(sb);
wrenFreeVM(vm);
}
|
