Function luaV_objlen

src/Chain/libraries/glua/lvm.cpp:563–589

** Main operation 'ra' = #rb'. */

** Main operation 'ra' = #rb'.
*/
void luaV_objlen(lua_State *L, StkId ra, const TValue *rb) {
    const TValue *tm;
    switch (ttype(rb)) {
    case LUA_TTABLE: {
        Table *h = hvalue(rb);
        tm = fasttm(L, h->metatable, TM_LEN);
        if (tm) break;  /* metamethod? break switch to call it */
        setivalue(ra, luaH_getn(h));  /* else primitive len */
        return;
    }
    case LUA_TSHRSTR: {
        setivalue(ra, tsvalue(rb)->shrlen);
        return;
    }
    case LUA_TLNGSTR: {
        setivalue(ra, tsvalue(rb)->u.lnglen);
        return;
    }
    default: {  /* try metamethod */
        tm = luaT_gettmbyobj(L, rb, TM_LEN);
        if (ttisnil(tm))  /* no metamethod? */
            luaG_typeerror(L, rb, "get length of");
        break;
    }
    }
    luaT_callTM(L, tm, rb, rb, ra, 1);
}


/*