1 /* 2 ** $Id: ltable.h,v 2.16.1.2 2013/08/30 15:49:41 roberto Exp $ 3 ** Lua tables (hash) 4 ** See Copyright Notice in lua.h 5 */ 6 7 #ifndef ltable_h 8 #define ltable_h 9 10 #include "lobject.h" 11 12 13 #define gnode(t,i) ((Node *)&(t)->node[i]) 14 #define gkey(n) (&(n)->i_key.tvk) 15 #define gval(n) (&(n)->i_val) 16 #define gnext(n) ((n)->i_key.nk.next) 17 18 #define invalidateTMcache(t) ((t)->flags = 0) 19 20 /* returns the key, given the value of a table entry */ 21 #define keyfromval(v) \ 22 (gkey(cast(Node *, cast(char *, (v)) - offsetof(Node, i_val)))) 23 24 25 LUAI_FUNC const TValue *luaH_getint (Table *t, int key); 26 LUAI_FUNC void luaH_setint (lua_State *L, Table *t, int key, TValue *value); 27 LUAI_FUNC const TValue *luaH_getstr (Table *t, TString *key); 28 LUAI_FUNC const TValue *luaH_get (Table *t, const TValue *key); 29 LUAI_FUNC TValue *luaH_newkey (lua_State *L, Table *t, const TValue *key); 30 LUAI_FUNC TValue *luaH_set (lua_State *L, Table *t, const TValue *key); 31 LUAI_FUNC Table *luaH_new (lua_State *L); 32 LUAI_FUNC void luaH_resize (lua_State *L, Table *t, int nasize, int nhsize); 33 LUAI_FUNC void luaH_resizearray (lua_State *L, Table *t, int nasize); 34 LUAI_FUNC void luaH_free (lua_State *L, Table *t); 35 LUAI_FUNC int luaH_next (lua_State *L, Table *t, StkId key); 36 LUAI_FUNC int luaH_getn (Table *t); 37 38 39 #if defined(LUA_DEBUG) 40 LUAI_FUNC Node *luaH_mainposition (const Table *t, const TValue *key); 41 LUAI_FUNC int luaH_isdummy (Node *n); 42 #endif 43 44 45 #endif 46