Allow passing arguments to program, refactor directory structure

[uwu-lang.git] / src / run.c

diff --git a/src/run.c b/src/run.c
new file mode 100644 (file)
index 0000000..7733c8d
--- /dev/null
+++ b/src/run.c
@@ -0,0 +1,74 @@
+#include <dlfcn.h>
+#include <stdlib.h>
+#include <stdio.h>
+#include "common/err.h"
+#include "load.h"
+#include "run.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 run_module(const char *progname, const char *modname, size_t num_args, char *args[])
+{
+       (void) num_args;
+       (void) args;
+
+       Program program = load_program(progname, modname);
+
+       UwUVMValue (*uwuvm_call_function)(UwUVMFunction *, size_t, UwUVMExpression *, UwUVMArgs *) = dlsym(program.api_library, "uwuvm_call_function");
+       char      *(*uwuvm_print_value  )(UwUVMValue                                             ) = dlsym(program.api_library, "uwuvm_print_value"  );
+       void       (*uwuvm_delet_value  )(UwUVMValue                                             ) = dlsym(program.api_library, "uwuvm_delet_value"  );
+
+       char *err = dlerror();
+       if (err)
+               error("library error: %s\n", err);
+
+       UwUVMExpression arg_expressions[num_args];
+
+       for (size_t i = 0; i < num_args; i++)
+               arg_expressions[i] = (UwUVMExpression) {
+                       .type = EX_STRLIT,
+                       .value = {
+                               .str_value = args[i],
+                       },
+               };
+
+       UwUVMValue result = uwuvm_call_function(program.main_function, num_args, arg_expressions, NULL);
+
+       char *str = uwuvm_print_value(result);
+       printf("%s\n", str);
+       free(str);
+
+       uwuvm_delet_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);
+}