Function member_to_string

ogsr_engine/xrGame/script_engine_help.cpp:109–152

}

static luabind::internal_string member_to_string(luabind::object const& e, LPCSTR function_signature)
{
    using namespace luabind;
    lua_State* L = e.lua_state();
    LUABIND_CHECK_STACK(L);

    if (e.type() == LUA_TFUNCTION)
    {
        e.pushvalue();
        luabind::detail::stack_pop p(L, 1);

        {
            if (lua_getupvalue(L, -1, 3) == 0)
                return to_string(e);
            luabind::detail::stack_pop p2(L, 1);
            if (lua_touserdata(L, -1) != reinterpret_cast<void*>(0x1337))
                return to_string(e);
        }

        std::stringstream s;
        {
            lua_getupvalue(L, -1, 2);
            luabind::detail::stack_pop p2(L, 1);
        }

        {
            lua_getupvalue(L, -1, 1);
            luabind::detail::stack_pop p2(L, 1);
            luabind::detail::method_rep* m = static_cast<luabind::detail::method_rep*>(lua_touserdata(L, -1));

            for (auto i = m->overloads().begin(); i != m->overloads().end(); ++i)
            {
                luabind::internal_string str;
                i->get_signature(L, str);
                if (i != m->overloads().begin())
                    s << "\n";
                s << function_signature << process_signature(str) << ";";
            }
        }
        return s.str().c_str();
    }

    return to_string(e);
}

static void print_class(lua_State* L, luabind::detail::class_rep* crep)
{