// https://github.com/kunitoki/LuaBridge3
// Copyright 2026, kunitoki
// Inspired from https://github.com/ThePhD/lua-bindings-shootout by ThePhD
// SPDX-License-Identifier: MIT

#include "benchmark_common.hpp"

#include "LuaBridge/LuaBridge.h"

#include <benchmark/benchmark.h>

#include <cmath>
#include <tuple>

namespace luabridge {

template <>
struct StackConversion<lbsbench::Vec3Target>
{
    static constexpr bool enabled = true;
};

template <>
struct StackConverter<lbsbench::Vec3Target, lbsbench::Vec3Source>
{
    static lbsbench::Vec3Target convert(const lbsbench::Vec3Source& s)
    {
        return {s.x, s.y, s.z};
    }
};

template <>
struct StackConverter<lbsbench::Vec3Target, lbsbench::ColorSource>
{
    static lbsbench::Vec3Target convert(const lbsbench::ColorSource& s)
    {
        return {s.r, s.g, s.b};
    }
};

} // namespace luabridge

namespace {

using namespace lbsbench;

std::tuple<double, double> lb3_multi_return(double value)
{
    return { value, value * 2.0 };
}

void registerBasic(lua_State* L)
{
    luabridge::getGlobalNamespace(L)
        .beginClass<Basic>("c")
            .addConstructor<void (*)()>()
            .addFunction("set", &Basic::set)
            .addFunction("get", &Basic::get)
            .addProperty("var", &Basic::var)
        .endClass();
}

void registerBasicLarge(lua_State* L)
{
    luabridge::getGlobalNamespace(L)
        .beginClass<BasicLarge>("cl")
            .addConstructor<void (*)()>()
            .addProperty("var", &BasicLarge::var)
            .addProperty("var0", &BasicLarge::var0)
            .addProperty("var1", &BasicLarge::var1)
            .addProperty("var2", &BasicLarge::var2)
            .addProperty("var3", &BasicLarge::var3)
            .addProperty("var4", &BasicLarge::var4)
            .addProperty("var5", &BasicLarge::var5)
            .addProperty("var6", &BasicLarge::var6)
            .addProperty("var7", &BasicLarge::var7)
            .addProperty("var8", &BasicLarge::var8)
            .addProperty("var9", &BasicLarge::var9)
            .addProperty("var10", &BasicLarge::var10)
            .addProperty("var11", &BasicLarge::var11)
            .addProperty("var12", &BasicLarge::var12)
            .addProperty("var13", &BasicLarge::var13)
            .addProperty("var14", &BasicLarge::var14)
            .addProperty("var15", &BasicLarge::var15)
            .addProperty("var16", &BasicLarge::var16)
            .addProperty("var17", &BasicLarge::var17)
            .addProperty("var18", &BasicLarge::var18)
            .addProperty("var19", &BasicLarge::var19)
            .addProperty("var20", &BasicLarge::var20)
            .addProperty("var21", &BasicLarge::var21)
            .addProperty("var22", &BasicLarge::var22)
            .addProperty("var23", &BasicLarge::var23)
            .addProperty("var24", &BasicLarge::var24)
            .addProperty("var25", &BasicLarge::var25)
            .addProperty("var26", &BasicLarge::var26)
            .addProperty("var27", &BasicLarge::var27)
            .addProperty("var28", &BasicLarge::var28)
            .addProperty("var29", &BasicLarge::var29)
            .addProperty("var30", &BasicLarge::var30)
            .addProperty("var31", &BasicLarge::var31)
            .addProperty("var32", &BasicLarge::var32)
            .addProperty("var33", &BasicLarge::var33)
            .addProperty("var34", &BasicLarge::var34)
            .addProperty("var35", &BasicLarge::var35)
            .addProperty("var36", &BasicLarge::var36)
            .addProperty("var37", &BasicLarge::var37)
            .addProperty("var38", &BasicLarge::var38)
            .addProperty("var39", &BasicLarge::var39)
            .addProperty("var40", &BasicLarge::var40)
            .addProperty("var41", &BasicLarge::var41)
            .addProperty("var42", &BasicLarge::var42)
            .addProperty("var43", &BasicLarge::var43)
            .addProperty("var44", &BasicLarge::var44)
            .addProperty("var45", &BasicLarge::var45)
            .addProperty("var46", &BasicLarge::var46)
            .addProperty("var47", &BasicLarge::var47)
            .addProperty("var48", &BasicLarge::var48)
            .addProperty("var49", &BasicLarge::var49)
        .endClass();
}

void registerBasicRW(lua_State* L)
{
    luabridge::getGlobalNamespace(L)
        .beginClass<Basic>("c")
            .addConstructor<void (*)()>()
            .addPropertyReadWrite("var", &Basic::var)
        .endClass();
}

void registerBasicGetterSetter(lua_State* L)
{
    luabridge::getGlobalNamespace(L)
        .beginClass<Basic>("c")
            .addConstructor<void (*)()>()
            .addProperty("val", &Basic::get, &Basic::set)
        .endClass();
}

void registerCounter(lua_State* L)
{
    luabridge::getGlobalNamespace(L)
        .beginClass<Counter>("Counter")
            .addConstructor<void (*)()>()
            .addFunction("get", &Counter::get)
            .addStaticFunction("static_add", &Counter::static_add)
        .endClass();
}

void registerSharedObject(lua_State* L)
{
    luabridge::getGlobalNamespace(L)
        .beginClass<SharedObject>("SharedObject")
            .addConstructorFrom<std::shared_ptr<SharedObject>, void(*)()>()
            .addFunction("get", &SharedObject::get)
        .endClass()
        .addFunction("get_shared", &shared_object_return)
        .addFunction("use_shared", &shared_object_get_value);
}

lua_State* makeLua()
{
    lua_State* L = luaL_newstate();
    luaL_openlibs(L);
    luabridge::registerMainThread(L);
#if LUABRIDGE_HAS_EXCEPTIONS
    luabridge::enableExceptions(L);
#endif
    return L;
}

void table_global_string_get_measure(benchmark::State& state)
{
    lua_State* L = makeLua();
    luabridge::setGlobal(L, kMagicValue, "value");

    double x = 0;
    for (auto _ : state)
    {
        (void) _;
        x += static_cast<double>(luabridge::getGlobal(L, "value"));
    }
    benchmark::DoNotOptimize(x);
}

void table_global_string_set_measure(benchmark::State& state)
{
    lua_State* L = makeLua();

    double v = 0;
    for (auto _ : state)
    {
        (void) _;
        v += kMagicValue;
        luabridge::setGlobal(L, v, "value");
    }

    benchmark::DoNotOptimize(v);
}

void table_get_measure(benchmark::State& state)
{
    lua_State* L = makeLua();
    luaDoStringOrThrow(L, "warble = { value = 24.0 }", "table_get setup");
    luabridge::LuaRef t = luabridge::getGlobal(L, "warble");

    double x = 0;
    for (auto _ : state)
    {
        (void) _;
        x += static_cast<double>(t["value"]);
    }

    benchmark::DoNotOptimize(x);
}

void table_set_measure(benchmark::State& state)
{
    lua_State* L = makeLua();
    luaDoStringOrThrow(L, "warble = { value = 24.0 }", "table_set setup");
    luabridge::LuaRef t = luabridge::getGlobal(L, "warble");

    double v = 0;
    for (auto _ : state)
    {
        (void) _;
        v += kMagicValue;
        t["value"] = v;
    }

    benchmark::DoNotOptimize(v);
}

void table_chained_get_measure(benchmark::State& state)
{
    lua_State* L = makeLua();
    luaDoStringOrThrow(L, "ulahibe = { warble = { value = 24.0 } }", "table_chained_get setup");

    double x = 0;
    for (auto _ : state)
    {
        (void) _;
        luabridge::LuaRef tw = luabridge::getGlobal(L, "ulahibe")["warble"];
        x += static_cast<double>(tw["value"]);
    }

    benchmark::DoNotOptimize(x);
}

void table_chained_set_measure(benchmark::State& state)
{
    lua_State* L = makeLua();
    luaDoStringOrThrow(L, "ulahibe = { warble = { value = 24.0 } }", "table_chained_set setup");

    double v = 0;
    for (auto _ : state)
    {
        (void) _;
        v += kMagicValue;
        luabridge::LuaRef tw = luabridge::getGlobal(L, "ulahibe")["warble"];
        tw["value"] = v;
    }

    benchmark::DoNotOptimize(v);
}

void c_function_measure(benchmark::State& state)
{
    lua_State* L = makeLua();
    luabridge::getGlobalNamespace(L).addFunction("f", +[](double v) { return v; });

    luaDoStringOrThrow(L, "function invoke_f() return f(24.0) end", "c_function setup");

    for (auto _ : state)
    {
        (void) _;
        lua_getglobal(L, "invoke_f");
        luaCheckOrThrow(L, lua_pcall(L, 0, 1, 0), "invoke_f");
        lua_pop(L, 1);
    }
}

void lua_function_in_c_measure(benchmark::State& state)
{
    lua_State* L = makeLua();
    luaDoStringOrThrow(L, "function f(i) return i end", "lua_function setup");

    luabridge::LuaRef f = luabridge::getGlobal(L, "f");
    double x = 0;
    for (auto _ : state)
    {
        (void) _;
        x += f.call<double>(kMagicValue).valueOr(0.0);
    }

    benchmark::DoNotOptimize(x);
}

void c_function_through_lua_in_c_measure(benchmark::State& state)
{
    lua_State* L = makeLua();
    luabridge::getGlobalNamespace(L).addFunction("f", +[](double v) { return v; });

    luabridge::LuaRef f = luabridge::getGlobal(L, "f");
    double x = 0;
    for (auto _ : state)
    {
        (void) _;
        x += f.call<double>(kMagicValue).valueOr(0.0);
    }

    benchmark::DoNotOptimize(x);
}

void member_function_call_measure(benchmark::State& state)
{
    lua_State* L = makeLua();
    registerBasic(L);
    luaDoStringOrThrow(L, "b = c()", "member_function setup");
    luaDoStringOrThrow(L, "function call_member() b:set(b:get() + 1.0) end", "member_function closure setup");

    for (auto _ : state)
    {
        (void) _;
        lua_getglobal(L, "call_member");
        luaCheckOrThrow(L, lua_pcall(L, 0, 0, 0), "call_member");
    }
}

void userdata_variable_access_measure(benchmark::State& state)
{
    lua_State* L = makeLua();
    registerBasic(L);
    luaDoStringOrThrow(L, "b = c()", "userdata_variable_access setup");
    luaDoStringOrThrow(L, "function access_var() return b.var end", "userdata_variable_access closure setup");

    for (auto _ : state)
    {
        (void) _;
        lua_getglobal(L, "access_var");
        luaCheckOrThrow(L, lua_pcall(L, 0, 1, 0), "access_var");
        lua_pop(L, 1);
    }
}

void userdata_variable_access_large_measure(benchmark::State& state)
{
    lua_State* L = makeLua();
    registerBasicLarge(L);
    luaDoStringOrThrow(L, "b = cl()", "userdata_variable_access_large setup");
    luaDoStringOrThrow(L, "function access_var_large() return b.var0 end", "userdata_variable_access_large closure setup");

    for (auto _ : state)
    {
        (void) _;
        lua_getglobal(L, "access_var_large");
        luaCheckOrThrow(L, lua_pcall(L, 0, 1, 0), "access_var_large");
        lua_pop(L, 1);
    }
}

void userdata_variable_access_last_measure(benchmark::State& state)
{
    lua_State* L = makeLua();
    registerBasicLarge(L);
    luaDoStringOrThrow(L, "b = cl()", "userdata_variable_access_last setup");
    luaDoStringOrThrow(L, "function access_var_last() return b.var49 end", "userdata_variable_access_last closure setup");

    for (auto _ : state)
    {
        (void) _;
        lua_getglobal(L, "access_var_last");
        luaCheckOrThrow(L, lua_pcall(L, 0, 1, 0), "access_var_last");
        lua_pop(L, 1);
    }
}

void stateful_function_object_measure(benchmark::State& state)
{
    lua_State* L = makeLua();
    luabridge::getGlobalNamespace(L).addFunction("f", StatefulFunction{});

    luabridge::LuaRef f = luabridge::getGlobal(L, "f");
    double x = 0;
    for (auto _ : state)
    {
        (void) _;
        x += f.call<double>(kMagicValue).valueOr(0.0);
    }

    benchmark::DoNotOptimize(x);
}

void multi_return_lua_measure(benchmark::State& state)
{
    lua_State* L = makeLua();
    luabridge::getGlobalNamespace(L).addFunction("f", &lb3_multi_return);
    luaDoStringOrThrow(L, "function invoke_multi() local a,b=f(24.0) return a+b end", "multi_return_lua setup");

    for (auto _ : state)
    {
        (void) _;
        lua_getglobal(L, "invoke_multi");
        luaCheckOrThrow(L, lua_pcall(L, 0, 1, 0), "invoke_multi");
        lua_pop(L, 1);
    }
}

void multi_return_measure(benchmark::State& state)
{
    lua_State* L = makeLua();
    luabridge::getGlobalNamespace(L).addFunction("f", &lb3_multi_return);
    luabridge::LuaRef f = luabridge::getGlobal(L, "f");

    double x = 0;
    for (auto _ : state)
    {
        (void) _;
        auto result = f.call<std::tuple<double, double>>(kMagicValue).valueOr(std::make_tuple(0.0, 0.0));
        x += std::get<0>(result);
        x += std::get<1>(result);
    }

    benchmark::DoNotOptimize(x);
}

void derived_base_measure(benchmark::State& state)
{
    lua_State* L = makeLua();

    luabridge::getGlobalNamespace(L)
        .beginClass<ComplexBaseA>("ComplexBaseA")
            .addFunction("a_func", &ComplexBaseA::a_func)
            .addProperty("a", &ComplexBaseA::a)
        .endClass()
        .beginClass<ComplexBaseB>("ComplexBaseB")
            .addFunction("b_func", &ComplexBaseB::b_func)
            .addProperty("b", &ComplexBaseB::b)
        .endClass()
        .deriveClass<ComplexAB, ComplexBaseA, ComplexBaseB>("ComplexAB")
            .addConstructor<void (*)()>()
            .addFunction("ab_func", &ComplexAB::ab_func)
            .addProperty("ab", &ComplexAB::ab)
        .endClass();

    luaDoStringOrThrow(L, "obj = ComplexAB()", "base_derived setup");
    luaDoStringOrThrow(L, "function call_base() return obj:a_func() + obj:b_func() end", "base_derived closure setup");

    for (auto _ : state)
    {
        (void) _;
        lua_getglobal(L, "call_base");
        luaCheckOrThrow(L, lua_pcall(L, 0, 1, 0), "call_base");
        lua_pop(L, 1);
    }
}

void optional_success_measure(benchmark::State& state)
{
    lua_State* L = makeLua();
    luaDoStringOrThrow(L, "warble = { value = 24.0 }", "optional_success setup");

    double x = 0;
    for (auto _ : state)
    {
        (void) _;
        auto result = luabridge::tryGetGlobalField<double>(L, "warble", "value");
        x += result ? *result : 1.0;
    }

    benchmark::DoNotOptimize(x);
}

void optional_half_failure_measure(benchmark::State& state)
{
    lua_State* L = makeLua();
    luaDoStringOrThrow(L, "warble = { value = 'x' }", "optional_half_failure setup");

    double x = 0;
    for (auto _ : state)
    {
        (void) _;
        auto result = luabridge::tryGetGlobalField<double>(L, "warble", "value");
        x += result ? *result : 1.0;
    }

    benchmark::DoNotOptimize(x);
}

void optional_failure_measure(benchmark::State& state)
{
    lua_State* L = makeLua();

    double x = 0;
    for (auto _ : state)
    {
        (void) _;
        auto result = luabridge::tryGetGlobalField<double>(L, "warble", "value");
        x += result ? *result : 1.0;
    }

    benchmark::DoNotOptimize(x);
}

void return_userdata_measure(benchmark::State& state)
{
    lua_State* L = makeLua();
    registerBasic(L);
    luabridge::getGlobalNamespace(L)
        .addFunction("f", &basic_return)
        .addFunction("h", &basic_get_var);
    luaDoStringOrThrow(L, "function invoke_userdata() return h(f()) end", "return_userdata setup");

    for (auto _ : state)
    {
        (void) _;
        lua_getglobal(L, "invoke_userdata");
        luaCheckOrThrow(L, lua_pcall(L, 0, 1, 0), "invoke_userdata");
        lua_pop(L, 1);
    }
}

void userdata_variable_write_measure(benchmark::State& state)
{
    lua_State* L = makeLua();
    registerBasicRW(L);
    luaDoStringOrThrow(L, "b = c()", "userdata_variable_write setup");
    luaDoStringOrThrow(L, "function write_var() b.var = 24.0 end", "userdata_variable_write closure setup");

    for (auto _ : state)
    {
        (void) _;
        lua_getglobal(L, "write_var");
        luaCheckOrThrow(L, lua_pcall(L, 0, 0, 0), "write_var");
    }
}

void userdata_property_getter_measure(benchmark::State& state)
{
    lua_State* L = makeLua();
    registerBasicGetterSetter(L);
    luaDoStringOrThrow(L, "b = c()", "userdata_property_getter setup");
    luaDoStringOrThrow(L, "function read_getter() return b.val end", "userdata_property_getter closure setup");

    for (auto _ : state)
    {
        (void) _;
        lua_getglobal(L, "read_getter");
        luaCheckOrThrow(L, lua_pcall(L, 0, 1, 0), "read_getter");
        lua_pop(L, 1);
    }
}

void userdata_property_setter_measure(benchmark::State& state)
{
    lua_State* L = makeLua();
    registerBasicGetterSetter(L);
    luaDoStringOrThrow(L, "b = c()", "userdata_property_setter setup");
    luaDoStringOrThrow(L, "function write_setter() b.val = 24.0 end", "userdata_property_setter closure setup");

    for (auto _ : state)
    {
        (void) _;
        lua_getglobal(L, "write_setter");
        luaCheckOrThrow(L, lua_pcall(L, 0, 0, 0), "write_setter");
    }
}

void lambda_capture_measure(benchmark::State& state)
{
    lua_State* L = makeLua();
    double extra = kMagicValue;
    luabridge::getGlobalNamespace(L).addFunction("f", [extra](double v) { return v + extra; });
    luaDoStringOrThrow(L, "function invoke_lambda() return f(24.0) end", "lambda_capture setup");

    for (auto _ : state)
    {
        (void) _;
        lua_getglobal(L, "invoke_lambda");
        luaCheckOrThrow(L, lua_pcall(L, 0, 1, 0), "invoke_lambda");
        lua_pop(L, 1);
    }
}

void shared_ptr_return_measure(benchmark::State& state)
{
    lua_State* L = makeLua();
    registerSharedObject(L);
    luaDoStringOrThrow(L, "function invoke_shared() return get_shared():get() end", "shared_ptr_return setup");

    for (auto _ : state)
    {
        (void) _;
        lua_getglobal(L, "invoke_shared");
        luaCheckOrThrow(L, lua_pcall(L, 0, 1, 0), "invoke_shared");
        lua_pop(L, 1);
    }
}

void shared_ptr_pass_measure(benchmark::State& state)
{
    lua_State* L = makeLua();
    registerSharedObject(L);
    luaDoStringOrThrow(L, "obj = SharedObject()", "shared_ptr_pass setup");
    luaDoStringOrThrow(L, "function invoke_pass_shared() return use_shared(obj) end", "shared_ptr_pass closure setup");

    for (auto _ : state)
    {
        (void) _;
        lua_getglobal(L, "invoke_pass_shared");
        luaCheckOrThrow(L, lua_pcall(L, 0, 1, 0), "invoke_pass_shared");
        lua_pop(L, 1);
    }
}

void static_member_function_call_measure(benchmark::State& state)
{
    lua_State* L = makeLua();
    registerCounter(L);
    luaDoStringOrThrow(L, "function invoke_static() return Counter.static_add(10, 32) end", "static_member_function setup");

    for (auto _ : state)
    {
        (void) _;
        lua_getglobal(L, "invoke_static");
        luaCheckOrThrow(L, lua_pcall(L, 0, 1, 0), "invoke_static");
        lua_pop(L, 1);
    }
}

void derived_method_call_measure(benchmark::State& state)
{
    lua_State* L = makeLua();

    luabridge::getGlobalNamespace(L)
        .beginClass<ComplexBaseA>("ComplexBaseA")
            .addFunction("a_func", &ComplexBaseA::a_func)
            .addProperty("a", &ComplexBaseA::a)
        .endClass()
        .beginClass<ComplexBaseB>("ComplexBaseB")
            .addFunction("b_func", &ComplexBaseB::b_func)
            .addProperty("b", &ComplexBaseB::b)
        .endClass()
        .deriveClass<ComplexAB, ComplexBaseA, ComplexBaseB>("ComplexAB")
            .addConstructor<void (*)()>()
            .addFunction("ab_func", &ComplexAB::ab_func)
            .addProperty("ab", &ComplexAB::ab)
        .endClass();

    luaDoStringOrThrow(L, "obj = ComplexAB()", "derived_method setup");
    luaDoStringOrThrow(L, "function call_derived() return obj:ab_func() end", "derived_method closure setup");

    for (auto _ : state)
    {
        (void) _;
        lua_getglobal(L, "call_derived");
        luaCheckOrThrow(L, lua_pcall(L, 0, 1, 0), "call_derived");
        lua_pop(L, 1);
    }
}

void implicit_inheritance_measure(benchmark::State& state)
{
    lua_State* L = makeLua();

    luabridge::getGlobalNamespace(L)
        .beginClass<ComplexBaseA>("ComplexBaseA")
            .addFunction("a_func", &ComplexBaseA::a_func)
        .endClass()
        .deriveClass<ComplexAB, ComplexBaseA>("ComplexAB")
            .addConstructor<void (*)()>()
            .addFunction("ab_func", &ComplexAB::ab_func)
        .endClass()
        .addFunction("call_a", +[](ComplexBaseA* obj) -> double { return obj->a_func(); });

    luaDoStringOrThrow(L, "obj = ComplexAB()", "implicit_inheritance setup");
    luaDoStringOrThrow(L, "function test_implicit() return call_a(obj) end", "implicit_inheritance closure setup");

    for (auto _ : state)
    {
        (void) _;
        lua_getglobal(L, "test_implicit");
        luaCheckOrThrow(L, lua_pcall(L, 0, 1, 0), "test_implicit");
        lua_pop(L, 1);
    }
}

void registerConverter(lua_State* L)
{
    luabridge::getGlobalNamespace(L)
        .beginClass<Vec3Source>("Vec3Source")
            .addConstructor<void(float, float, float)>()
            .addConverter<Vec3Target>()
        .endClass()
        .beginClass<ColorSource>("ColorSource")
            .addConstructor<void(float, float, float)>()
            .addConverter<Vec3Target>()
        .endClass()
        .beginClass<Vec3Target>("Vec3Target")
            .addConstructor<void(float, float, float)>()
        .endClass()
        .addFunction("sumVec3", &sumVec3)
        .addFunction("sumVec3Ref", &sumVec3Ref);
}

void converter_exact_type_measure(benchmark::State& state)
{
    lua_State* L = makeLua();
    registerConverter(L);
    luaDoStringOrThrow(L, "obj = Vec3Target(1, 2, 3)", "converter_exact_type setup");
    luaDoStringOrThrow(L, "function invoke_exact() return sumVec3(obj) end", "converter_exact_type closure setup");

    for (auto _ : state)
    {
        (void) _;
        lua_getglobal(L, "invoke_exact");
        luaCheckOrThrow(L, lua_pcall(L, 0, 1, 0), "invoke_exact");
        lua_pop(L, 1);
    }
}

void converter_phase3_value_measure(benchmark::State& state)
{
    lua_State* L = makeLua();
    registerConverter(L);
    luaDoStringOrThrow(L, "obj = Vec3Source(1, 2, 3)", "converter_phase3_value setup");
    luaDoStringOrThrow(L, "function invoke_conv_value() return sumVec3(obj) end", "converter_phase3_value closure setup");

    for (auto _ : state)
    {
        (void) _;
        lua_getglobal(L, "invoke_conv_value");
        luaCheckOrThrow(L, lua_pcall(L, 0, 1, 0), "invoke_conv_value");
        lua_pop(L, 1);
    }
}

void converter_phase3_ref_measure(benchmark::State& state)
{
    lua_State* L = makeLua();
    registerConverter(L);
    luaDoStringOrThrow(L, "obj = Vec3Source(1, 2, 3)", "converter_phase3_ref setup");
    luaDoStringOrThrow(L, "function invoke_conv_ref() return sumVec3Ref(obj) end", "converter_phase3_ref closure setup");

    for (auto _ : state)
    {
        (void) _;
        lua_getglobal(L, "invoke_conv_ref");
        luaCheckOrThrow(L, lua_pcall(L, 0, 1, 0), "invoke_conv_ref");
        lua_pop(L, 1);
    }
}

void converter_multi_registered_measure(benchmark::State& state)
{
    lua_State* L = makeLua();
    registerConverter(L);
    luaDoStringOrThrow(L, "obj = ColorSource(0.5, 1, 0)", "converter_multi_registered setup");
    luaDoStringOrThrow(L, "function invoke_conv_multi() return sumVec3(obj) end", "converter_multi_registered closure setup");

    for (auto _ : state)
    {
        (void) _;
        lua_getglobal(L, "invoke_conv_multi");
        luaCheckOrThrow(L, lua_pcall(L, 0, 1, 0), "invoke_conv_multi");
        lua_pop(L, 1);
    }
}

} // namespace

BENCHMARK(table_global_string_get_measure)->Name("table_global_string_get_measure");
BENCHMARK(table_global_string_set_measure)->Name("table_global_string_set_measure");
BENCHMARK(table_get_measure)->Name("table_get_measure");
BENCHMARK(table_set_measure)->Name("table_set_measure");
BENCHMARK(table_chained_get_measure)->Name("table_chained_get_measure");
BENCHMARK(table_chained_set_measure)->Name("table_chained_set_measure");
BENCHMARK(c_function_measure)->Name("c_function_measure");
BENCHMARK(c_function_through_lua_in_c_measure)->Name("c_function_through_lua_in_c_measure");
BENCHMARK(lua_function_in_c_measure)->Name("lua_function_in_c_measure");
BENCHMARK(member_function_call_measure)->Name("member_function_call_measure");
BENCHMARK(userdata_variable_access_measure)->Name("userdata_variable_access_measure");
BENCHMARK(userdata_variable_access_large_measure)->Name("userdata_variable_access_large_measure");
BENCHMARK(userdata_variable_access_last_measure)->Name("userdata_variable_access_last_measure");
BENCHMARK(multi_return_lua_measure)->Name("multi_return_lua_measure");
BENCHMARK(multi_return_measure)->Name("multi_return_measure");
BENCHMARK(stateful_function_object_measure)->Name("stateful_function_object_measure");
BENCHMARK(derived_base_measure)->Name("derived_base_measure");
BENCHMARK(return_userdata_measure)->Name("return_userdata_measure");
BENCHMARK(optional_success_measure)->Name("optional_success_measure");
BENCHMARK(optional_half_failure_measure)->Name("optional_half_failure_measure");
BENCHMARK(optional_failure_measure)->Name("optional_failure_measure");
BENCHMARK(implicit_inheritance_measure)->Name("implicit_inheritance_measure");
BENCHMARK(userdata_variable_write_measure)->Name("userdata_variable_write_measure");
BENCHMARK(userdata_property_getter_measure)->Name("userdata_property_getter_measure");
BENCHMARK(userdata_property_setter_measure)->Name("userdata_property_setter_measure");
BENCHMARK(lambda_capture_measure)->Name("lambda_capture_measure");
BENCHMARK(shared_ptr_return_measure)->Name("shared_ptr_return_measure");
BENCHMARK(shared_ptr_pass_measure)->Name("shared_ptr_pass_measure");
BENCHMARK(static_member_function_call_measure)->Name("static_member_function_call_measure");
BENCHMARK(derived_method_call_measure)->Name("derived_method_call_measure");
BENCHMARK(converter_exact_type_measure)->Name("converter_exact_type_measure");
BENCHMARK(converter_phase3_value_measure)->Name("converter_phase3_value_measure");
BENCHMARK(converter_phase3_ref_measure)->Name("converter_phase3_ref_measure");
BENCHMARK(converter_multi_registered_measure)->Name("converter_multi_registered_measure");