diff options
| author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2005-08-26 14:32:05 -0300 |
|---|---|---|
| committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2005-08-26 14:32:05 -0300 |
| commit | 9273fbd131eb0be7d4e7ca4f44345b41f8a557cf (patch) | |
| tree | 1503563eb840378013125b4892b7686ac8d8787e /ltests.c | |
| parent | be666a662b79e12c300dbf6d74d0a6626acac06f (diff) | |
| download | lua-9273fbd131eb0be7d4e7ca4f44345b41f8a557cf.tar.gz lua-9273fbd131eb0be7d4e7ca4f44345b41f8a557cf.tar.bz2 lua-9273fbd131eb0be7d4e7ca4f44345b41f8a557cf.zip | |
no more 'luaL_get/setfield' (replaced by more direct luaL_findtable)
Diffstat (limited to 'ltests.c')
| -rw-r--r-- | ltests.c | 21 |
1 files changed, 1 insertions, 20 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: ltests.c,v 2.27 2005/07/12 14:32:08 roberto Exp roberto $ | 2 | ** $Id: ltests.c,v 2.28 2005/08/15 14:12:32 roberto Exp roberto $ |
| 3 | ** Internal Module for Debugging of the Lua Implementation | 3 | ** Internal Module for Debugging of the Lua Implementation |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -1078,23 +1078,6 @@ static int auxgsub (lua_State *L) { | |||
| 1078 | } | 1078 | } |
| 1079 | 1079 | ||
| 1080 | 1080 | ||
| 1081 | static int auxgetf (lua_State *L) { | ||
| 1082 | const char *s = luaL_checkstring(L, 1); | ||
| 1083 | lua_settop(L, 2); | ||
| 1084 | lua_pushstring(L, luaL_getfield(L, 2, s)); | ||
| 1085 | lua_assert(lua_gettop(L) == 4); | ||
| 1086 | return 2; | ||
| 1087 | } | ||
| 1088 | |||
| 1089 | |||
| 1090 | static int auxsetf (lua_State *L) { | ||
| 1091 | const char *s = luaL_checkstring(L, 1); | ||
| 1092 | lua_settop(L, 3); | ||
| 1093 | lua_pushstring(L, luaL_setfield(L, 2, s)); | ||
| 1094 | lua_assert(lua_gettop(L) == 3); | ||
| 1095 | return 1; | ||
| 1096 | } | ||
| 1097 | |||
| 1098 | /* }====================================================== */ | 1081 | /* }====================================================== */ |
| 1099 | 1082 | ||
| 1100 | 1083 | ||
| @@ -1107,7 +1090,6 @@ static const struct luaL_reg tests_funcs[] = { | |||
| 1107 | {"doremote", doremote}, | 1090 | {"doremote", doremote}, |
| 1108 | {"gccolor", get_gccolor}, | 1091 | {"gccolor", get_gccolor}, |
| 1109 | {"gcstate", gcstate}, | 1092 | {"gcstate", gcstate}, |
| 1110 | {"getfield", auxgetf}, | ||
| 1111 | {"getref", getref}, | 1093 | {"getref", getref}, |
| 1112 | {"gsub", auxgsub}, | 1094 | {"gsub", auxgsub}, |
| 1113 | {"hash", hash_query}, | 1095 | {"hash", hash_query}, |
| @@ -1127,7 +1109,6 @@ static const struct luaL_reg tests_funcs[] = { | |||
| 1127 | {"ref", tref}, | 1109 | {"ref", tref}, |
| 1128 | {"resume", coresume}, | 1110 | {"resume", coresume}, |
| 1129 | {"s2d", s2d}, | 1111 | {"s2d", s2d}, |
| 1130 | {"setfield", auxsetf}, | ||
| 1131 | {"setyhook", setyhook}, | 1112 | {"setyhook", setyhook}, |
| 1132 | {"stacklevel", stacklevel}, | 1113 | {"stacklevel", stacklevel}, |
| 1133 | {"testC", testC}, | 1114 | {"testC", testC}, |
