Lines Matching refs:t
51 #define hashpow2(t,n) (gnode(t, lmod((n), sizenode(t)))) argument
53 #define hashstr(t,str) hashpow2(t, (str)->tsv.hash) argument
54 #define hashboolean(t,p) hashpow2(t, p) argument
61 #define hashmod(t,n) (gnode(t, ((n) % ((sizenode(t)-1)|1)))) argument
64 #define hashpointer(t,p) hashmod(t, IntPoint(p)) argument
80 static Node *hashnum (const Table *t, lua_Number n) { in hashnum() argument
88 return hashmod(t, i); in hashnum()
97 static Node *mainposition (const Table *t, const TValue *key) { in mainposition() argument
100 return hashnum(t, nvalue(key)); in mainposition()
107 return hashstr(t, rawtsvalue(key)); in mainposition()
110 return hashstr(t, rawtsvalue(key)); in mainposition()
112 return hashboolean(t, bvalue(key)); in mainposition()
114 return hashpointer(t, pvalue(key)); in mainposition()
116 return hashpointer(t, fvalue(key)); in mainposition()
118 return hashpointer(t, gcvalue(key)); in mainposition()
144 static int findindex (lua_State *L, Table *t, StkId key) { in findindex() argument
148 if (0 < i && i <= t->sizearray) /* is `key' inside array part? */ in findindex()
151 Node *n = mainposition(t, key); in findindex()
157 i = cast_int(n - gnode(t, 0)); /* key index in hash table */ in findindex()
159 return i + t->sizearray; in findindex()
169 int luaH_next (lua_State *L, Table *t, StkId key) { in luaH_next() argument
170 int i = findindex(L, t, key); /* find original element */ in luaH_next()
171 for (i++; i < t->sizearray; i++) { /* try first array part */ in luaH_next()
172 if (!ttisnil(&t->array[i])) { /* a non-nil value? */ in luaH_next()
174 setobj2s(L, key+1, &t->array[i]); in luaH_next()
178 for (i -= t->sizearray; i < sizenode(t); i++) { /* then hash part */ in luaH_next()
179 if (!ttisnil(gval(gnode(t, i)))) { /* a non-nil value? */ in luaH_next()
180 setobj2s(L, key, gkey(gnode(t, i))); in luaH_next()
181 setobj2s(L, key+1, gval(gnode(t, i))); in luaH_next()
229 static int numusearray (const Table *t, int *nums) { in numusearray() argument
237 if (lim > t->sizearray) { in numusearray()
238 lim = t->sizearray; /* adjust upper limit */ in numusearray()
244 if (!ttisnil(&t->array[i-1])) in numusearray()
254 static int numusehash (const Table *t, int *nums, int *pnasize) { in numusehash() argument
257 int i = sizenode(t); in numusehash()
259 Node *n = &t->node[i]; in numusehash()
270 static void setarrayvector (lua_State *L, Table *t, int size) { in setarrayvector() argument
272 luaM_reallocvector(L, t->array, t->sizearray, size, TValue); in setarrayvector()
273 for (i=t->sizearray; i<size; i++) in setarrayvector()
274 setnilvalue(&t->array[i]); in setarrayvector()
275 t->sizearray = size; in setarrayvector()
279 static void setnodevector (lua_State *L, Table *t, int size) { in setnodevector() argument
282 t->node = cast(Node *, dummynode); /* use common `dummynode' */ in setnodevector()
291 t->node = luaM_newvector(L, size, Node); in setnodevector()
293 Node *n = gnode(t, i); in setnodevector()
299 t->lsizenode = cast_byte(lsize); in setnodevector()
300 t->lastfree = gnode(t, size); /* all positions are free */ in setnodevector()
304 void luaH_resize (lua_State *L, Table *t, int nasize, int nhsize) { in luaH_resize() argument
306 int oldasize = t->sizearray; in luaH_resize()
307 int oldhsize = t->lsizenode; in luaH_resize()
308 Node *nold = t->node; /* save old hash ... */ in luaH_resize()
310 setarrayvector(L, t, nasize); in luaH_resize()
312 setnodevector(L, t, nhsize); in luaH_resize()
314 t->sizearray = nasize; in luaH_resize()
317 if (!ttisnil(&t->array[i])) in luaH_resize()
318 luaH_setint(L, t, i + 1, &t->array[i]); in luaH_resize()
321 luaM_reallocvector(L, t->array, oldasize, nasize, TValue); in luaH_resize()
329 setobjt2t(L, luaH_set(L, t, gkey(old)), gval(old)); in luaH_resize()
337 void luaH_resizearray (lua_State *L, Table *t, int nasize) { in luaH_resizearray() argument
338 int nsize = isdummy(t->node) ? 0 : sizenode(t); in luaH_resizearray()
339 luaH_resize(L, t, nasize, nsize); in luaH_resizearray()
343 static void rehash (lua_State *L, Table *t, const TValue *ek) { in rehash() argument
349 nasize = numusearray(t, nums); /* count keys in array part */ in rehash()
351 totaluse += numusehash(t, nums, &nasize); /* count keys in hash part */ in rehash()
358 luaH_resize(L, t, nasize, totaluse - na); in rehash()
369 Table *t = &luaC_newobj(L, LUA_TTABLE, sizeof(Table), NULL, 0)->h; in luaH_new() local
370 t->metatable = NULL; in luaH_new()
371 t->flags = cast_byte(~0); in luaH_new()
372 t->array = NULL; in luaH_new()
373 t->sizearray = 0; in luaH_new()
374 setnodevector(L, t, 0); in luaH_new()
375 return t; in luaH_new()
379 void luaH_free (lua_State *L, Table *t) { in luaH_free() argument
380 if (!isdummy(t->node)) in luaH_free()
381 luaM_freearray(L, t->node, cast(size_t, sizenode(t))); in luaH_free()
382 luaM_freearray(L, t->array, t->sizearray); in luaH_free()
383 luaM_free(L, t); in luaH_free()
387 static Node *getfreepos (Table *t) { in getfreepos() argument
388 while (t->lastfree > t->node) { in getfreepos()
389 t->lastfree--; in getfreepos()
390 if (ttisnil(gkey(t->lastfree))) in getfreepos()
391 return t->lastfree; in getfreepos()
405 TValue *luaH_newkey (lua_State *L, Table *t, const TValue *key) { in luaH_newkey() argument
410 mp = mainposition(t, key); in luaH_newkey()
413 Node *n = getfreepos(t); /* get a free place */ in luaH_newkey()
415 rehash(L, t, key); /* grow table */ in luaH_newkey()
417 return luaH_set(L, t, key); /* insert key into grown table */ in luaH_newkey()
420 othern = mainposition(t, gkey(mp)); in luaH_newkey()
437 luaC_barrierback(L, obj2gco(t), key); in luaH_newkey()
446 const TValue *luaH_getint (Table *t, int key) { in luaH_getint() argument
448 if (cast(unsigned int, key-1) < cast(unsigned int, t->sizearray)) in luaH_getint()
449 return &t->array[key-1]; in luaH_getint()
452 Node *n = hashnum(t, nk); in luaH_getint()
466 const TValue *luaH_getstr (Table *t, TString *key) { in luaH_getstr() argument
467 Node *n = hashstr(t, key); in luaH_getstr()
481 const TValue *luaH_get (Table *t, const TValue *key) { in luaH_get() argument
483 case LUA_TSHRSTR: return luaH_getstr(t, rawtsvalue(key)); in luaH_get()
490 return luaH_getint(t, k); /* use specialized version */ in luaH_get()
495 Node *n = mainposition(t, key); in luaH_get()
511 TValue *luaH_set (lua_State *L, Table *t, const TValue *key) { in luaH_set() argument
512 const TValue *p = luaH_get(t, key); in luaH_set()
515 else return luaH_newkey(L, t, key); in luaH_set()
519 void luaH_setint (lua_State *L, Table *t, int key, TValue *value) { in luaH_setint() argument
520 const TValue *p = luaH_getint(t, key); in luaH_setint()
527 cell = luaH_newkey(L, t, &k); in luaH_setint()
533 static int unbound_search (Table *t, unsigned int j) { in unbound_search() argument
537 while (!ttisnil(luaH_getint(t, j))) { in unbound_search()
543 while (!ttisnil(luaH_getint(t, i))) i++; in unbound_search()
550 if (ttisnil(luaH_getint(t, m))) j = m; in unbound_search()
561 int luaH_getn (Table *t) { in luaH_getn() argument
562 unsigned int j = t->sizearray; in luaH_getn()
563 if (j > 0 && ttisnil(&t->array[j - 1])) { in luaH_getn()
568 if (ttisnil(&t->array[m - 1])) j = m; in luaH_getn()
574 else if (isdummy(t->node)) /* hash part is empty? */ in luaH_getn()
576 else return unbound_search(t, j); in luaH_getn()
583 Node *luaH_mainposition (const Table *t, const TValue *key) { in luaH_mainposition() argument
584 return mainposition(t, key); in luaH_mainposition()