xsh/deps/luau/src/bridge.cpp

#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);
}