mirror of
https://github.com/lua/lua.git
synced 2025-01-28 06:03:00 +08:00
new signature for `luaH_set'
This commit is contained in:
Roberto Ierusalimschy
parent
dbbf6c073b
commit
8bcf622876
4
lapi.c
4
lapi.c
@ -1,5 +1,5 @@
|
||||
/*
|
||||
** $Id: lapi.c,v 1.81 2000/05/24 13:54:49 roberto Exp roberto $
|
||||
** $Id: lapi.c,v 1.82 2000/05/26 19:17:57 roberto Exp roberto $
|
||||
** Lua API
|
||||
** See Copyright Notice in lua.h
|
||||
*/
|
||||
@ -144,7 +144,7 @@ void lua_rawset (lua_State *L) {
|
||||
luaA_checkCargs(L, 3);
|
||||
if (ttype(L->top-3) != TAG_TABLE)
|
||||
lua_error(L, "indexed expression not a table");
|
||||
luaH_set(L, avalue(L->top-3), L->top-2, L->top-1);
|
||||
*luaH_set(L, avalue(L->top-3), L->top-2) = *(L->top-1);
|
||||
L->top -= 3;
|
||||
}
|
||||
|
||||
|
||||
26
lbuiltin.c
26
lbuiltin.c
@ -1,5 +1,5 @@
|
||||
/*
|
||||
** $Id: lbuiltin.c,v 1.112 2000/06/02 19:08:56 roberto Exp roberto $
|
||||
** $Id: lbuiltin.c,v 1.113 2000/06/05 20:15:33 roberto Exp roberto $
|
||||
** Built-in functions
|
||||
** See Copyright Notice in lua.h
|
||||
*/
|
||||
@ -402,6 +402,13 @@ void luaB_getn (lua_State *L) {
|
||||
}
|
||||
|
||||
|
||||
/* auxiliar function */
|
||||
static void t_move (lua_State *L, Hash *t, int from, int to) {
|
||||
TObject *p = luaH_setint(L, t, to); /* may change following `get' */
|
||||
*p = *luaH_getnum(t, from);
|
||||
}
|
||||
|
||||
|
||||
void luaB_tinsert (lua_State *L) {
|
||||
Hash *a = gettable(L, 1);
|
||||
lua_Object v = lua_getparam(L, 3);
|
||||
@ -413,10 +420,10 @@ void luaB_tinsert (lua_State *L) {
|
||||
v = luaL_nonnullarg(L, 2);
|
||||
pos = n+1;
|
||||
}
|
||||
luaV_setn(L, a, n+1); /* a.n = n+1 */
|
||||
luaH_setstrnum(L, a, luaS_new(L, "n"), n+1); /* a.n = n+1 */
|
||||
for (; n>=pos; n--)
|
||||
luaH_move(L, a, n, n+1); /* a[n+1] = a[n] */
|
||||
luaH_setint(L, a, pos, v); /* a[pos] = v */
|
||||
t_move(L, a, n, n+1); /* a[n+1] = a[n] */
|
||||
*luaH_setint(L, a, pos) = *v; /* a[pos] = v */
|
||||
}
|
||||
|
||||
|
||||
@ -427,9 +434,9 @@ void luaB_tremove (lua_State *L) {
|
||||
if (n <= 0) return; /* table is "empty" */
|
||||
luaA_pushobject(L, luaH_getnum(a, pos)); /* result = a[pos] */
|
||||
for ( ;pos<n; pos++)
|
||||
luaH_move(L, a, pos+1, pos); /* a[pos] = a[pos+1] */
|
||||
luaV_setn(L, a, n-1); /* a.n = n-1 */
|
||||
luaH_setint(L, a, n, &luaO_nilobject); /* a[n] = nil */
|
||||
t_move(L, a, pos+1, pos); /* a[pos] = a[pos+1] */
|
||||
luaH_setstrnum(L, a, luaS_new(L, "n"), n-1); /* a.n = n-1 */
|
||||
ttype(luaH_setint(L, a, n)) = TAG_NIL; /* a[n] = nil */
|
||||
}
|
||||
|
||||
|
||||
@ -478,11 +485,12 @@ static void luaB_foreach (lua_State *L) {
|
||||
** Addison-Wesley, 1993.)
|
||||
*/
|
||||
|
||||
|
||||
static void swap (lua_State *L, Hash *a, int i, int j) {
|
||||
TObject temp;
|
||||
temp = *luaH_getnum(a, i);
|
||||
luaH_move(L, a, j, i);
|
||||
luaH_setint(L, a, j, &temp);
|
||||
t_move(L, a, j, i);
|
||||
*luaH_setint(L, a, j) = temp;
|
||||
}
|
||||
|
||||
static int sort_comp (lua_State *L, lua_Object f, const TObject *a,
|
||||
|
||||
51
ltable.c
51
ltable.c
@ -1,5 +1,5 @@
|
||||
/*
|
||||
** $Id: ltable.c,v 1.44 2000/06/05 20:07:53 roberto Exp roberto $
|
||||
** $Id: ltable.c,v 1.45 2000/06/05 20:15:33 roberto Exp roberto $
|
||||
** Lua tables (hash)
|
||||
** See Copyright Notice in lua.h
|
||||
*/
|
||||
@ -193,12 +193,12 @@ static int numuse (const Hash *t) {
|
||||
static void rehash (lua_State *L, Hash *t) {
|
||||
int oldsize = t->size;
|
||||
Node *nold = t->node;
|
||||
int newsize = numuse(t);
|
||||
int nelems = numuse(t);
|
||||
int i;
|
||||
LUA_ASSERT(L, newsize<=oldsize, "wrong count");
|
||||
if (newsize >= oldsize-oldsize/4) /* using more than 3/4? */
|
||||
LUA_ASSERT(L, nelems<=oldsize, "wrong count");
|
||||
if (nelems >= oldsize-oldsize/4) /* using more than 3/4? */
|
||||
setnodevector(L, t, (lint32)oldsize*2);
|
||||
else if (newsize <= oldsize/4 && /* less than 1/4? */
|
||||
else if (nelems <= oldsize/4 && /* less than 1/4? */
|
||||
oldsize > MINPOWER2)
|
||||
setnodevector(L, t, oldsize/2);
|
||||
else
|
||||
@ -207,35 +207,28 @@ static void rehash (lua_State *L, Hash *t) {
|
||||
for (i=0; i<oldsize; i++) {
|
||||
Node *old = nold+i;
|
||||
if (ttype(&old->val) != TAG_NIL)
|
||||
luaH_set(L, t, &old->key, &old->val);
|
||||
*luaH_set(L, t, &old->key) = old->val;
|
||||
}
|
||||
luaM_free(L, nold); /* free old array */
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
** sets a pair key-value in a hash table; first, check whether key is
|
||||
** inserts a key into a hash table; first, check whether key is
|
||||
** already present; if not, check whether key's main position is free;
|
||||
** if not, check whether colliding node is in its main position or not;
|
||||
** if it is not, move colliding node to an empty place and put new pair
|
||||
** if it is not, move colliding node to an empty place and put new key
|
||||
** in its main position; otherwise (colliding node is in its main position),
|
||||
** new pair goes to an empty position.
|
||||
** Tricky point: the only place where an old element is moved is when
|
||||
** we move the colliding node to an empty place; nevertheless, its old
|
||||
** value is still in that position until we set the value for the new
|
||||
** pair; therefore, even when `val' points to an element of this table
|
||||
** (this happens when we use `luaH_move'), there is no problem.
|
||||
** new key goes to an empty position.
|
||||
*/
|
||||
void luaH_set (lua_State *L, Hash *t, const TObject *key, const TObject *val) {
|
||||
TObject *luaH_set (lua_State *L, Hash *t, const TObject *key) {
|
||||
Node *mp = luaH_mainposition(t, key);
|
||||
Node *n = mp;
|
||||
if (!mp)
|
||||
lua_error(L, "unexpected type to index table");
|
||||
do { /* check whether `key' is somewhere in the chain */
|
||||
if (luaO_equalObj(key, &n->key)) {
|
||||
n->val = *val; /* update value */
|
||||
return; /* that's all */
|
||||
}
|
||||
if (luaO_equalObj(key, &n->key))
|
||||
return &n->val; /* that's all */
|
||||
else n = n->next;
|
||||
} while (n);
|
||||
/* `key' not found; must insert it */
|
||||
@ -243,7 +236,7 @@ void luaH_set (lua_State *L, Hash *t, const TObject *key, const TObject *val) {
|
||||
Node *othern; /* main position of colliding node */
|
||||
n = t->firstfree; /* get a free place */
|
||||
/* is colliding node out of its main position? (can only happens if
|
||||
its position if after "firstfree") */
|
||||
its position is after "firstfree") */
|
||||
if (mp > n && (othern=luaH_mainposition(t, &mp->key)) != mp) {
|
||||
/* yes; move colliding node into free position */
|
||||
while (othern->next != mp) othern = othern->next; /* find previous */
|
||||
@ -259,30 +252,32 @@ void luaH_set (lua_State *L, Hash *t, const TObject *key, const TObject *val) {
|
||||
}
|
||||
}
|
||||
mp->key = *key;
|
||||
mp->val = *val;
|
||||
for (;;) { /* check free places */
|
||||
for (;;) { /* correct `firstfree' */
|
||||
if (ttype(&t->firstfree->key) == TAG_NIL)
|
||||
return; /* OK; table still has a free place */
|
||||
return &mp->val; /* OK; table still has a free place */
|
||||
else if (t->firstfree == t->node) break; /* cannot decrement from here */
|
||||
else (t->firstfree)--;
|
||||
}
|
||||
rehash(L, t); /* no more free places */
|
||||
return luaH_set(L, t, key); /* `rehash' invalidates this insertion */
|
||||
}
|
||||
|
||||
|
||||
void luaH_setint (lua_State *L, Hash *t, int key, const TObject *val) {
|
||||
TObject *luaH_setint (lua_State *L, Hash *t, int key) {
|
||||
TObject index;
|
||||
ttype(&index) = TAG_NUMBER;
|
||||
nvalue(&index) = key;
|
||||
luaH_set(L, t, &index, val);
|
||||
return luaH_set(L, t, &index);
|
||||
}
|
||||
|
||||
|
||||
void luaH_setstr (lua_State *L, Hash *t, TString *key, const TObject *val) {
|
||||
TObject index;
|
||||
void luaH_setstrnum (lua_State *L, Hash *t, TString *key, Number val) {
|
||||
TObject *value, index;
|
||||
ttype(&index) = TAG_STRING;
|
||||
tsvalue(&index) = key;
|
||||
luaH_set(L, t, &index, val);
|
||||
value = luaH_set(L, t, &index);
|
||||
ttype(value) = TAG_NUMBER;
|
||||
nvalue(value) = val;
|
||||
}
|
||||
|
||||
|
||||
|
||||
10
ltable.h
10
ltable.h
@ -1,5 +1,5 @@
|
||||
/*
|
||||
** $Id: ltable.h,v 1.21 2000/06/05 20:07:53 roberto Exp roberto $
|
||||
** $Id: ltable.h,v 1.22 2000/06/05 20:15:33 roberto Exp roberto $
|
||||
** Lua tables (hash)
|
||||
** See Copyright Notice in lua.h
|
||||
*/
|
||||
@ -14,18 +14,16 @@
|
||||
#define key(n) (&(n)->key)
|
||||
#define val(n) (&(n)->val)
|
||||
|
||||
#define luaH_move(L, t,from,to) (luaH_setint(L, t, to, luaH_getnum(t, from)))
|
||||
|
||||
Hash *luaH_new (lua_State *L, int nhash);
|
||||
void luaH_free (lua_State *L, Hash *t);
|
||||
const TObject *luaH_get (lua_State *L, const Hash *t, const TObject *key);
|
||||
const TObject *luaH_getnum (const Hash *t, Number key);
|
||||
const TObject *luaH_getstr (const Hash *t, TString *key);
|
||||
void luaH_remove (Hash *t, TObject *key);
|
||||
void luaH_set (lua_State *L, Hash *t, const TObject *key, const TObject *val);
|
||||
TObject *luaH_set (lua_State *L, Hash *t, const TObject *key);
|
||||
int luaH_pos (lua_State *L, const Hash *t, const TObject *r);
|
||||
void luaH_setint (lua_State *L, Hash *t, int key, const TObject *val);
|
||||
void luaH_setstr (lua_State *L, Hash *t, TString *key, const TObject *val);
|
||||
TObject *luaH_setint (lua_State *L, Hash *t, int key);
|
||||
void luaH_setstrnum (lua_State *L, Hash *t, TString *key, Number val);
|
||||
unsigned long luaH_hash (lua_State *L, const TObject *key);
|
||||
const TObject *luaH_getglobal (lua_State *L, const char *name);
|
||||
|
||||
|
||||
22
lvm.c
22
lvm.c
@ -1,5 +1,5 @@
|
||||
/*
|
||||
** $Id: lvm.c,v 1.111 2000/06/05 14:56:18 roberto Exp roberto $
|
||||
** $Id: lvm.c,v 1.112 2000/06/05 20:15:33 roberto Exp roberto $
|
||||
** Lua virtual machine
|
||||
** See Copyright Notice in lua.h
|
||||
*/
|
||||
@ -65,13 +65,6 @@ int luaV_tostring (lua_State *L, TObject *obj) { /* LUA_NUMBER */
|
||||
}
|
||||
|
||||
|
||||
void luaV_setn (lua_State *L, Hash *t, int val) {
|
||||
TObject value;
|
||||
ttype(&value) = TAG_NUMBER; nvalue(&value) = val;
|
||||
luaH_setstr(L, t, luaS_new(L, "n"), &value);
|
||||
}
|
||||
|
||||
|
||||
static Closure *luaV_closure (lua_State *L, lua_Type t, int nelems) {
|
||||
Closure *c = luaF_newclosure(L, nelems);
|
||||
L->top -= nelems;
|
||||
@ -147,7 +140,7 @@ void luaV_settable (lua_State *L, StkId t, StkId top) {
|
||||
else { /* object is a table... */
|
||||
im = luaT_getim(L, avalue(t)->htag, IM_SETTABLE);
|
||||
if (ttype(im) == TAG_NIL) { /* and does not have a `settable' method */
|
||||
luaH_set(L, avalue(t), t+1, top-1);
|
||||
*luaH_set(L, avalue(t), t+1) = *(top-1);
|
||||
return;
|
||||
}
|
||||
/* else it has a `settable' method, go through to next command */
|
||||
@ -191,7 +184,7 @@ void luaV_setglobal (lua_State *L, TString *s, StkId top) {
|
||||
TObject key;
|
||||
ttype(&key) = TAG_STRING;
|
||||
tsvalue(&key) = s;
|
||||
luaH_set(L, L->gt, &key, top-1);
|
||||
*luaH_set(L, L->gt, &key) = *(top-1);
|
||||
}
|
||||
}
|
||||
else {
|
||||
@ -311,8 +304,9 @@ void luaV_pack (lua_State *L, StkId firstelem, int nvararg, TObject *tab) {
|
||||
htab = avalue(tab) = luaH_new(L, nvararg+1); /* +1 for field `n' */
|
||||
ttype(tab) = TAG_TABLE;
|
||||
for (i=0; i<nvararg; i++)
|
||||
luaH_setint(L, htab, i+1, firstelem+i);
|
||||
luaV_setn(L, htab, nvararg); /* store counter in field `n' */
|
||||
*luaH_setint(L, htab, i+1) = *(firstelem+i);
|
||||
/* store counter in field `n' */
|
||||
luaH_setstrnum(L, htab, luaS_new(L, "n"), nvararg);
|
||||
}
|
||||
|
||||
|
||||
@ -476,7 +470,7 @@ StkId luaV_execute (lua_State *L, const Closure *cl, StkId base) {
|
||||
Hash *arr = avalue(top-n-1);
|
||||
L->top = top-n; /* final value of `top' (in case of errors) */
|
||||
for (; n; n--)
|
||||
luaH_setint(L, arr, n+aux, --top);
|
||||
*luaH_setint(L, arr, n+aux) = *(--top);
|
||||
break;
|
||||
}
|
||||
|
||||
@ -486,8 +480,8 @@ StkId luaV_execute (lua_State *L, const Closure *cl, StkId base) {
|
||||
Hash *arr = avalue(finaltop-1);
|
||||
L->top = finaltop; /* final value of `top' (in case of errors) */
|
||||
for (; n; n--) {
|
||||
luaH_set(L, arr, top-2, top-1);
|
||||
top-=2;
|
||||
*luaH_set(L, arr, top) = *(top+1);
|
||||
}
|
||||
break;
|
||||
}
|
||||
|
||||
3
lvm.h
3
lvm.h
@ -1,5 +1,5 @@
|
||||
/*
|
||||
** $Id: lvm.h,v 1.21 2000/04/19 13:36:25 roberto Exp roberto $
|
||||
** $Id: lvm.h,v 1.22 2000/05/08 19:32:53 roberto Exp roberto $
|
||||
** Lua virtual machine
|
||||
** See Copyright Notice in lua.h
|
||||
*/
|
||||
@ -20,7 +20,6 @@
|
||||
void luaV_pack (lua_State *L, StkId firstel, int nvararg, TObject *tab);
|
||||
int luaV_tonumber (TObject *obj);
|
||||
int luaV_tostring (lua_State *L, TObject *obj);
|
||||
void luaV_setn (lua_State *L, Hash *t, int val);
|
||||
void luaV_gettable (lua_State *L, StkId top);
|
||||
void luaV_settable (lua_State *L, StkId t, StkId top);
|
||||
void luaV_getglobal (lua_State *L, TString *s, StkId top);
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user