126 lines
2.9 KiB
C++
126 lines
2.9 KiB
C++
#include <bridge.h>
|
|
|
|
#include "Luau/Common.h"
|
|
#include "ldo.h"
|
|
#include "lclass.h"
|
|
|
|
#include <cstdio>
|
|
#include <cstdlib>
|
|
#include <string>
|
|
#include <vector>
|
|
|
|
LUAU_FASTFLAG(DebugLuauUserDefinedClasses);
|
|
LUAU_FASTFLAG(DebugLuauUserDefinedClassesRuntime);
|
|
LUAU_FASTFLAG(LuauAllowGlobalDeclarationToBeCalledClass);
|
|
LUAU_FASTFLAG(LuauIntegerType2);
|
|
|
|
ZIG_EXPORT void xsh_set_luau_flags()
|
|
{
|
|
std::printf("SETTING LUAU FLAGS\n");
|
|
|
|
FFlag::DebugLuauUserDefinedClasses.value = true;
|
|
FFlag::DebugLuauUserDefinedClassesRuntime.value = true;
|
|
FFlag::LuauAllowGlobalDeclarationToBeCalledClass.value = true;
|
|
FFlag::LuauIntegerType2.value = true;
|
|
}
|
|
|
|
static int assertionHandler(const char *expr, const char *file, int line, const char *function)
|
|
{
|
|
printf("%s(%d): ASSERTION FAILED: %s\n", file, line, expr);
|
|
return 1;
|
|
}
|
|
|
|
ZIG_EXPORT void zig_registerAssertionHandler()
|
|
{
|
|
Luau::assertHandler() = assertionHandler;
|
|
}
|
|
|
|
ZIG_EXPORT void ZIG_FN(luau_free)(void *ptr)
|
|
{
|
|
free(ptr);
|
|
}
|
|
|
|
ZIG_EXPORT void ZIG_FN(delete_any)(void* value)
|
|
{
|
|
operator delete(value);
|
|
}
|
|
|
|
ZIG_EXPORT void* ZIG_FN(new_any)(size_t size)
|
|
{
|
|
return operator new(size);
|
|
}
|
|
|
|
ZIG_EXPORT size_t ZIG_FN(string_size)(std::string *str)
|
|
{
|
|
return str->size();
|
|
}
|
|
|
|
ZIG_EXPORT const char* ZIG_FN(string_c_str)(std::string *str)
|
|
{
|
|
return str->c_str();
|
|
}
|
|
|
|
ZIG_EXPORT Luau::FValue<bool>* zig_luau_getFValueList_bool()
|
|
{
|
|
return Luau::FValue<bool>::list;
|
|
}
|
|
|
|
ZIG_EXPORT Luau::FValue<int>* zig_luau_getFValueList_int()
|
|
{
|
|
return Luau::FValue<int>::list;
|
|
}
|
|
|
|
ZIG_EXPORT l_noret zig_luau_luaD_throw(lua_State *L, int errcode)
|
|
{
|
|
luaD_throw(L, errcode);
|
|
}
|
|
|
|
#if defined(__wasm__)
|
|
|
|
#include <functional>
|
|
|
|
#define LUAU_TRY_CATCH(trying, catching) zig_luau_try_catch_js(trying, catching)
|
|
#define LUAU_THROW(e) zig_luau_throw_js(e)
|
|
#define LUAU_EXTERNAL_TRY_CATCH
|
|
|
|
#if not defined(LUAU_WASM_ENV_NAME)
|
|
#define LUAU_WASM_ENV_NAME "env"
|
|
#endif
|
|
|
|
struct TryCatchContext
|
|
{
|
|
std::function<void()> trying;
|
|
std::function<void(const std::exception &)> catching;
|
|
};
|
|
// only clang compilers support C/C++ -> wasm so it's safe to use the attribute here
|
|
__attribute__((import_module(LUAU_WASM_ENV_NAME), import_name("try_catch"))) void zig_luau_try_catch_js_impl(TryCatchContext *context);
|
|
__attribute__((import_module(LUAU_WASM_ENV_NAME), import_name("throw"))) void zig_luau_throw_js_impl(const std::exception *e);
|
|
|
|
void zig_luau_try_catch_js(std::function<void()> trying, std::function<void(const std::exception &)> catching)
|
|
{
|
|
auto context = TryCatchContext{trying, catching};
|
|
zig_luau_try_catch_js_impl(&context);
|
|
}
|
|
|
|
void zig_luau_throw_js(const std::exception &e)
|
|
{
|
|
zig_luau_throw_js_impl(&e);
|
|
}
|
|
|
|
ZIG_EXPORT void zig_luau_try_impl(TryCatchContext *context)
|
|
{
|
|
context->trying();
|
|
}
|
|
|
|
ZIG_EXPORT void zig_luau_catch_impl(TryCatchContext *context, const std::exception &e)
|
|
{
|
|
context->catching(e);
|
|
}
|
|
|
|
#endif
|
|
|
|
ZIG_EXPORT int ZIG_FN(luaR_createobject)(lua_State *L)
|
|
{
|
|
return luaR_createobject(L);
|
|
}
|