blob: 335eb48d5b8aa261e4e89cbe72d38b7482fdc15b (
plain)
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
|
#include <dlfcn.h>
#include <stdlib.h>
#include <stdio.h>
#include "collect.h"
#include "vm.h"
static void free_expression(UwUVMExpression *expr)
{
if (expr->type == EX_FNCALL) {
for (size_t i = 0; i < expr->value.cll_value.num_args; i++)
free_expression(&expr->value.cll_value.args[i]);
free(expr->value.cll_value.args);
}
if (expr->type == EX_STRLIT)
free(expr->value.str_value);
}
void vm_run_file(const char *progname, const char *modname)
{
UwUVMProgram program = create_program(progname, modname);
UwUVMValue result = ((UwUVMValue (*)(UwUVMFunction *, UwUVMArgs args)) dlsym(program.api_library, "uwuvm_run_function"))(program.main_function, (UwUVMArgs) {.num = 0, .evaluated = NULL, .unevaluated = NULL, .super = NULL});
char *str = ((char *(*)(UwUVMValue)) dlsym(program.api_library, "uwustr_get"))(result);
printf("%s\n", str);
free(str);
((void (*)(UwUVMValue)) dlsym(program.api_library, "uwuvm_free_value"))(result);
for (size_t i = 0; i < program.num_functions; i++) {
UwUVMFunction *function = program.functions[i];
if (function->type == MODULE_PLAIN) {
free_expression(function->value.plain);
free(function->value.plain);
}
free(function);
}
free(program.functions);
for (size_t i = 0; i < program.num_libraries; i++)
dlclose(program.libraries[i]);
if (program.libraries)
free(program.libraries);
dlclose(program.api_library);
}
|
