Function meta_ptr_tostring

library/LuaWrapper.cpp:1020–1044

* Metamethod: represent a DF object reference as string. */

 * Metamethod: represent a DF object reference as string.
 */
static int meta_ptr_tostring(lua_State *state)
{
    uint8_t *ptr = get_object_addr(state, 1, 0, "access");

    bool has_length = false;
    uint64_t length = 0;
    auto *cid = dynamic_cast<const df::container_identity*>(get_object_identity(state, 1, "__tostring()", true, true));

    if (cid && (cid->type() == IDTYPE_CONTAINER || cid->type() == IDTYPE_STL_PTR_VECTOR))
    {
        has_length = true;
        length = cid->lua_item_count(state, ptr, container_identity::COUNT_LEN);
    }

    lua_getfield(state, UPVAL_METATABLE, "__metatable");
    const char *cname = lua_tostring(state, -1);

    auto str = has_length ?
        fmt::format("<{}[{}]: {}>", cname, length, static_cast<void*>(ptr)) :
        fmt::format("<{}: {}>", cname, static_cast<void*>(ptr));

    lua_pushlstring(state, str.data(), str.size());

    return 1;
}

/**
 * Metamethod: __index for enum.attrs