mirror of
https://github.com/zekexiao/pocketlang.git
synced 2025-02-05 20:26:53 +08:00
87fe3b01d6
the function will create a fiber and execute the function, this is a better abstracion for the host applicaion (createFiber, runFiber are removed) and this will come in handy when it comes to execute pocket functions inside a native function (it's required to implement operator overloading).
64 lines
1.6 KiB
C
64 lines
1.6 KiB
C
/*
|
|
* Copyright (c) 2021 Thakee Nathees
|
|
* Licensed under: MIT License
|
|
*/
|
|
|
|
#include <emscripten.h>
|
|
#include <pocketlang.h>
|
|
#include <string.h>
|
|
|
|
// IO api functions.
|
|
extern void js_errorPrint(const char* message);
|
|
extern void js_writeFunction(const char* message);
|
|
|
|
void errorPrint(PKVM* vm, const char* message) {
|
|
// No need to pass the file (since there is only script that'll ever run on
|
|
// the browser.
|
|
js_errorPrint(message);
|
|
}
|
|
|
|
void writeFunction(PKVM* vm, const char* text) {
|
|
js_writeFunction(text);
|
|
}
|
|
|
|
EMSCRIPTEN_KEEPALIVE
|
|
int runSource(const char* source) {
|
|
|
|
PkConfiguration config = pkNewConfiguration();
|
|
config.stderr_write = errorPrint;
|
|
config.stdout_write = writeFunction;
|
|
config.load_script_fn = NULL;
|
|
config.resolve_path_fn = NULL;
|
|
|
|
PKVM* vm = pkNewVM(&config);
|
|
|
|
// FIXME:
|
|
// The bellow blocks of code can be simplified with
|
|
//
|
|
// PkResult result = pkInterpretSource(vm, src, path, NULL);
|
|
//
|
|
// But the path is printed on the error messages as "@(TRY)"
|
|
// If we create a module and compile it, then it won't have a
|
|
// path and the error message is simplified. This behavior needs
|
|
// to be changed in the error report function.
|
|
|
|
PkResult result;
|
|
|
|
PkHandle* module = pkNewModule(vm, "@(TRY)");
|
|
do {
|
|
PkStringPtr src = { .string = source };
|
|
result = pkCompileModule(vm, module, src, NULL);
|
|
if (result != PK_RESULT_SUCCESS) break;
|
|
|
|
PkHandle* _main = pkModuleGetMainFunction(vm, module);
|
|
result = pkRunFunction(vm, _main, 0, -1, -1);
|
|
pkReleaseHandle(vm, _main);
|
|
|
|
} while (false);
|
|
pkReleaseHandle(vm, module);
|
|
|
|
pkFreeVM(vm);
|
|
|
|
return (int)result;
|
|
}
|