nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

details

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2001-02-12 11:04:19 -02:00
parent 03d8a9bf0d
commit 1bdc156b52
1 changed files with 30 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

55
lvm.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: lvm.c,v 1.167 2001/02/09 18:07:47 roberto Exp roberto $ ** $Id: lvm.c,v 1.168 2001/02/09 20:22:29 roberto Exp roberto $
** Lua virtual machine ** Lua virtual machine
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -134,24 +134,26 @@ static void callTM (lua_State *L, const char *fmt, ...) {
*/ */
void luaV_gettable (lua_State *L, StkId t, TObject *key, StkId res) { void luaV_gettable (lua_State *L, StkId t, TObject *key, StkId res) {
Closure *tm; Closure *tm;
int tg; if (ttype(t) == LUA_TTABLE) { /* `t' is a table? */
if (ttype(t) == LUA_TTABLE && /* `t' is a table? */ int tg = hvalue(t)->htag;
((tg = hvalue(t)->htag) == LUA_TTABLE || /* with default tag? */ if (tg == LUA_TTABLE || /* with default tag? */
luaT_gettm(G(L), tg, TM_GETTABLE) == NULL)) { /* or no TM? */ (tm = luaT_gettm(G(L), tg, TM_GETTABLE)) == NULL) { /* or no TM? */
const TObject *h = luaH_get(hvalue(t), key); /* do a primitive get */ const TObject *h = luaH_get(hvalue(t), key); /* do a primitive get */
/* result is no nil or there is no `index' tag method? */ /* result is no nil or there is no `index' tag method? */
if (ttype(h) != LUA_TNIL || ((tm=luaT_gettm(G(L), tg, TM_INDEX)) == NULL)) { if (ttype(h) != LUA_TNIL || /* no nil? */
setobj(res, h); ((tm=luaT_gettm(G(L), tg, TM_INDEX)) == NULL)) { /* or no index TM? */
return; setobj(res, h); /* default get */
return;
}
} }
/* else will call `index' tag method */ /* else will call the tag method */
} }
else /* try a `gettable' tag method */ else { /* not a table; try a `gettable' tag method */
tm = luaT_gettmbyObj(G(L), t, TM_GETTABLE); tm = luaT_gettmbyObj(G(L), t, TM_GETTABLE);
if (tm == NULL) /* no tag method? */ if (tm == NULL) /* no tag method? */
luaG_typeerror(L, t, "index"); luaG_typeerror(L, t, "index");
else }
callTM(L, "coor", tm, t, key, res); callTM(L, "coor", tm, t, key, res);
} }
@@ -160,19 +162,22 @@ void luaV_gettable (lua_State *L, StkId t, TObject *key, StkId res) {
** Receives table at `t', key at `key' and value at `val'. ** Receives table at `t', key at `key' and value at `val'.
*/ */
void luaV_settable (lua_State *L, StkId t, StkId key, StkId val) { void luaV_settable (lua_State *L, StkId t, StkId key, StkId val) {
int tg; Closure *tm;
if (ttype(t) == LUA_TTABLE && /* `t' is a table? */ if (ttype(t) == LUA_TTABLE) { /* `t' is a table? */
((tg = hvalue(t)->htag) == LUA_TTABLE || /* with default tag? */ int tg = hvalue(t)->htag;
luaT_gettm(G(L), tg, TM_SETTABLE) == NULL)) { /* or no TM? */ if (hvalue(t)->htag == LUA_TTABLE || /* with default tag? */
setobj(luaH_set(L, hvalue(t), key), val); /* do a primitive set */ (tm = luaT_gettm(G(L), tg, TM_SETTABLE)) == NULL) { /* or no TM? */
setobj(luaH_set(L, hvalue(t), key), val); /* do a primitive set */
return;
}
/* else will call the tag method */
} }
else { /* try a `settable' tag method */ else { /* not a table; try a `settable' tag method */
Closure *tm = luaT_gettmbyObj(G(L), t, TM_SETTABLE); tm = luaT_gettmbyObj(G(L), t, TM_SETTABLE);
if (tm == NULL) /* no tag method? */ if (tm == NULL) /* no tag method? */
luaG_typeerror(L, t, "index"); luaG_typeerror(L, t, "index");
else
callTM(L, "cooo", tm, t, key, val);
} }
callTM(L, "cooo", tm, t, key, val);
} }