ltable.h File Reference

#include "lobject.h"

Go to the source code of this file.

Macros
#define	gnode(t, i)   (&(t)->node[i])
#define	gkey(n)   (&(n)->i_key.nk)
#define	gval(n)   (&(n)->i_val)
#define	gnext(n)   ((n)->i_key.nk.next)
#define	key2tval(n)   (&(n)->i_key.tvk)

Functions
LUAI_FUNC const TValue *	luaH_getnum (Table *t, int key)
LUAI_FUNC TValue *	luaH_setnum (lua_State *L, Table *t, int key)
LUAI_FUNC const TValue *	luaH_getstr (Table *t, TString *key)
LUAI_FUNC TValue *	luaH_setstr (lua_State *L, Table *t, TString *key)
LUAI_FUNC const TValue *	luaH_get (Table *t, const TValue *key)
LUAI_FUNC TValue *	luaH_set (lua_State *L, Table *t, const TValue *key)
LUAI_FUNC Table *	luaH_new (lua_State *L, int narray, int lnhash)
LUAI_FUNC void	luaH_resizearray (lua_State *L, Table *t, int nasize)
LUAI_FUNC void	luaH_free (lua_State *L, Table *t)
LUAI_FUNC int	luaH_next (lua_State *L, Table *t, StkId key)
LUAI_FUNC int	luaH_getn (Table *t)

Macro Definition Documentation

gkey

#define gkey

(

n

)

(&(n)->i_key.nk)

Definition at line 14 of file lua-5.1.5/src/ltable.h.

Referenced by clearkeys(), clearkeys(), findindex(), findindex(), findindex(), getfreepos(), getfreepos(), getfreepos(), getgeneric(), luaH_get(), luaH_getint(), luaH_getint(), luaH_getnum(), luaH_getshortstr(), luaH_getstr(), luaH_newkey(), luaH_next(), luaH_resize(), luaH_resize(), newkey(), numusehash(), numusehash(), removeentry(), removeentry(), removeentry(), setnodevector(), setnodevector(), traverseephemeron(), traverseephemeron(), traversestrongtable(), traversestrongtable(), traversetable(), traverseweakvalue(), and traverseweakvalue().

gnext

#define gnext

(

n

)

((n)->i_key.nk.next)

Definition at line 16 of file lua-5.1.5/src/ltable.h.

Referenced by findindex(), findindex(), findindex(), getgeneric(), getgeneric(), luaH_get(), luaH_getint(), luaH_getint(), luaH_getnum(), luaH_getshortstr(), luaH_getstr(), luaH_newkey(), luaH_newkey(), newkey(), setnodevector(), setnodevector(), setnodevector(), and setnodevector().

gnode

#define gnode	(		t,
			i )   (&(t)->node[i])

Definition at line 13 of file lua-5.1.5/src/ltable.h.

Referenced by clearbykeys(), clearbyvalues(), clearkeys(), clearkeys(), cleartable(), clearvalues(), clearvalues(), findindex(), findindex(), findindex(), findindex(), hashnum(), luaH_next(), reinsert(), setnodevector(), setnodevector(), setnodevector(), setnodevector(), traverseephemeron(), traverseephemeron(), traverseephemeron(), traversestrongtable(), traversestrongtable(), traversestrongtable(), traversetable(), traverseweakvalue(), traverseweakvalue(), and traverseweakvalue().

gval

#define gval

(

n

)

(&(n)->i_val)

Definition at line 15 of file lua-5.1.5/src/ltable.h.

Referenced by clearbykeys(), clearbyvalues(), clearkey(), clearkeys(), clearkeys(), cleartable(), clearvalues(), clearvalues(), getgeneric(), getgeneric(), luaH_get(), luaH_getint(), luaH_getint(), luaH_getnum(), luaH_getshortstr(), luaH_getstr(), luaH_newkey(), luaH_newkey(), luaH_next(), luaH_resize(), luaH_resize(), newkey(), numusehash(), numusehash(), numusehash(), numusehash(), reinsert(), removeentry(), removeentry(), removeentry(), resize(), setnodevector(), setnodevector(), setnodevector(), setnodevector(), traverseephemeron(), traverseephemeron(), traverseephemeron(), traversestrongtable(), traversestrongtable(), traversestrongtable(), traversetable(), traverseweakvalue(), traverseweakvalue(), and traverseweakvalue().

key2tval

#define key2tval

(

n

)

(&(n)->i_key.tvk)

Definition at line 18 of file lua-5.1.5/src/ltable.h.

Referenced by cleartable(), findindex(), luaH_get(), luaH_next(), newkey(), numusehash(), and resize().

Function Documentation

luaH_free()

LUAI_FUNC void luaH_free	(	lua_State *	L,
		Table *	t )

Definition at line 374 of file lua-5.1.5/src/ltable.c.

                                        {
  if (t->node != dummynode)
    luaM_freearray(L, t->node, sizenode(t), Node);
  luaM_freearray(L, t->array, t->sizearray, TValue);
  luaM_free(L, t);
}

luaH_get()

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

Definition at line 469 of file lua-5.1.5/src/ltable.c.

                                                     {
  switch (ttype(key)) {
    case LUA_TNIL: return luaO_nilobject;
    case LUA_TSTRING: return luaH_getstr(t, rawtsvalue(key));
    case LUA_TNUMBER: {
      int k;
      lua_Number n = nvalue(key);
      lua_number2int(k, n);
      if (luai_numeq(cast_num(k), nvalue(key))) /* index is int? */
        return luaH_getnum(t, k);  /* 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))
          return gval(n);  /* that's it */
        else n = gnext(n);
      } while (n);
      return luaO_nilobject;
    }
  }
}

luaH_getn()

LUAI_FUNC int luaH_getn

(

Table *

t

)

Definition at line 560 of file lua-5.1.5/src/ltable.c.

                         {
  unsigned int j = t->sizearray;
  if (j > 0 && ttisnil(&t->array[j - 1])) {
    /* there is a boundary in the array part: (binary) search for it */
    unsigned int i = 0;
    while (j - i > 1) {
      unsigned int m = (i+j)/2;
      if (ttisnil(&t->array[m - 1])) j = m;
      else i = m;
    }
    return i;
  }
  /* else must find a boundary in hash part */
  else if (t->node == dummynode)  /* hash part is empty? */
    return j;  /* that is easy... */
  else return unbound_search(t, j);
}

luaH_getnum()

LUAI_FUNC const TValue * luaH_getnum	(	Table *	t,
		int	key )

Definition at line 435 of file lua-5.1.5/src/ltable.c.

                                              {
  /* (1 <= key && key <= t->sizearray) */
  if (cast(unsigned int, key-1) < cast(unsigned int, t->sizearray))
    return &t->array[key-1];
  else {
    lua_Number nk = cast_num(key);
    Node *n = hashnum(t, nk);
    do {  /* check whether `key' is somewhere in the chain */
      if (ttisnumber(gkey(n)) && luai_numeq(nvalue(gkey(n)), nk))
        return gval(n);  /* that's it */
      else n = gnext(n);
    } while (n);
    return luaO_nilobject;
  }
}

References Table::array, cast, cast_num, gkey, gnext, gval, hashnum(), luai_numeq, luaO_nilobject, nvalue, Table::sizearray, and ttisnumber.

Referenced by lua_rawgeti(), luaH_get(), luaH_setnum(), and unbound_search().

luaH_getstr()

LUAI_FUNC const TValue * luaH_getstr	(	Table *	t,
		TString *	key )

Definition at line 455 of file lua-5.1.5/src/ltable.c.

                                                   {
  Node *n = hashstr(t, key);
  do {  /* check whether `key' is somewhere in the chain */
    if (ttisstring(gkey(n)) && rawtsvalue(gkey(n)) == key)
      return gval(n);  /* that's it */
    else n = gnext(n);
  } while (n);
  return luaO_nilobject;
}

luaH_new()

LUAI_FUNC Table * luaH_new	(	lua_State *	L,
		int	narray,
		int	lnhash )

Definition at line 358 of file lua-5.1.5/src/ltable.c.

                                                      {
  Table *t = luaM_new(L, Table);
  luaC_link(L, obj2gco(t), LUA_TTABLE);
  t->metatable = NULL;
  t->flags = cast_byte(~0);
  /* temporary values (kept only if some malloc fails) */
  t->array = NULL;
  t->sizearray = 0;
  t->lsizenode = 0;
  t->node = cast(Node *, dummynode);
  setarrayvector(L, t, narray);
  setnodevector(L, t, nhash);
  return t;
}

References Table::array, cast, cast_byte, dummynode, Table::flags, Table::lsizenode, LUA_TTABLE, luaC_link(), luaM_new, Table::metatable, Table::node, NULL, obj2gco, setarrayvector(), setnodevector(), and Table::sizearray.

Referenced by adjust_varargs(), collectvalidlines(), collectvalidlines(), collectvalidlines(), collectvalidlines(), f_luaopen(), init_registry(), init_registry(), init_registry(), lua_createtable(), luaV_execute(), luaV_execute(), luaV_execute(), luaY_parser(), open_func(), and open_func().

luaH_next()

LUAI_FUNC int luaH_next	(	lua_State *	L,
		Table *	t,
		StkId	key )

Definition at line 162 of file lua-5.1.5/src/ltable.c.

                                                  {
  int i = findindex(L, t, key);  /* find original element */
  for (i++; i < t->sizearray; i++) {  /* try first array part */
    if (!ttisnil(&t->array[i])) {  /* a non-nil value? */
      setnvalue(key, cast_num(i+1));
      setobj2s(L, key+1, &t->array[i]);
      return 1;
    }
  }
  for (i -= t->sizearray; i < sizenode(t); i++) {  /* then hash part */
    if (!ttisnil(gval(gnode(t, i)))) {  /* a non-nil value? */
      setobj2s(L, key, key2tval(gnode(t, i)));
      setobj2s(L, key+1, gval(gnode(t, i)));
      return 1;
    }
  }
  return 0;  /* no more elements */
}

luaH_resizearray()

LUAI_FUNC void luaH_resizearray	(	lua_State *	L,
		Table *	t,
		int	nasize )

Definition at line 327 of file lua-5.1.5/src/ltable.c.

                                                           {
  int nsize = (t->node == dummynode) ? 0 : sizenode(t);
  resize(L, t, nasize, nsize);
}

luaH_set()

LUAI_FUNC TValue * luaH_set	(	lua_State *	L,
		Table *	t,
		const TValue *	key )

Definition at line 494 of file lua-5.1.5/src/ltable.c.

                                                             {
  const TValue *p = luaH_get(t, key);
  t->flags = 0;
  if (p != luaO_nilobject)
    return cast(TValue *, p);
  else {
    if (ttisnil(key)) luaG_runerror(L, "table index is nil");
    else if (ttisnumber(key) && luai_numisnan(nvalue(key)))
      luaG_runerror(L, "table index is NaN");
    return newkey(L, t, key);
  }
}

luaH_setnum()

LUAI_FUNC TValue * luaH_setnum	(	lua_State *	L,
		Table *	t,
		int	key )

Definition at line 508 of file lua-5.1.5/src/ltable.c.

                                                      {
  const TValue *p = luaH_getnum(t, key);
  if (p != luaO_nilobject)
    return cast(TValue *, p);
  else {
    TValue k;
    setnvalue(&k, cast_num(key));
    return newkey(L, t, &k);
  }
}

References cast, cast_num, luaH_getnum(), luaO_nilobject, newkey(), and setnvalue.

Referenced by adjust_varargs(), collectvalidlines(), lua_rawseti(), luaV_execute(), and resize().

luaH_setstr()

LUAI_FUNC TValue * luaH_setstr	(	lua_State *	L,
		Table *	t,
		TString *	key )

Definition at line 520 of file lua-5.1.5/src/ltable.c.

                                                           {
  const TValue *p = luaH_getstr(t, key);
  if (p != luaO_nilobject)
    return cast(TValue *, p);
  else {
    TValue k;
    setsvalue(L, &k, key);
    return newkey(L, t, &k);
  }
}

References cast, luaH_getstr(), luaO_nilobject, newkey(), and setsvalue.

Referenced by adjust_varargs(), and luaX_newstring().