Function luaH_get_int

lua/ltable.c:543–581

** main search function */

** main search function
*/
static const TValue *luaH_get_int (Table *t, const TValue *key,
 TValue **foundkey) {
  lua_Number num;
  int type = ttype(key);
  switch (type) {
    case LUA_TNIL: return luaO_nilobject;
    case LUA_TSTRING: return luaH_getstr_int(t, rawtsvalue(key), foundkey);
    case LUA_TUSERDATA:
    case LUA_TNUMBER: {
      int isnum = 1;
      if (type == LUA_TUSERDATA) {
        void *raw = rawuvalue(key) + 1; /* lua_topointer */
        if (luabb_hashinfo(raw, &num, NULL, NULL) != Numeric)
          isnum = 0;
      } else {
        num = nvalue(key);
      }
      if (isnum) {
        int k;
        lua_number2int(k, num);
        if (luai_numeq(cast_num(k), num)) /* index is int? */
          return luaH_getnum_int(t, k, foundkey);  /* use specialized version */
      }
      /* else go through */
    }
    default: {
      Node *n = mainposition(t, key);
      do {  /* check whether `key' is somewhere in the chain */
        if (luaO_rawequalObj(key2tval(n), key)) {
          if (foundkey)
            *foundkey = key2tval(n);
          return gval(n);  /* that's it */
        }
        n = gnext(n);
      } while (n);
      return luaO_nilobject;
    }
  }
}


const TValue *luaH_get(Table *t, const TValue *key) {