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

functions for...' and raw...' are obsolete now

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2000-05-26 16:17:57 -03:00
parent c39345fba3
commit 8e617985fa
6 changed files with 178 additions and 103 deletions
Download Patch File Download Diff File Expand all files Collapse all files

52
lapi.c
View File

@@ -1,5 +1,5 @@
/*
** $Id: lapi.c,v 1.80 2000/05/08 20:49:05 roberto Exp roberto $
** $Id: lapi.c,v 1.81 2000/05/24 13:54:49 roberto Exp roberto $
** Lua API
** See Copyright Notice in lua.h
*/
@@ -120,11 +120,11 @@ lua_Object lua_gettable (lua_State *L) {
}
lua_Object lua_rawgettable (lua_State *L) {
lua_Object lua_rawget (lua_State *L) {
lua_Object res;
luaA_checkCargs(L, 2);
if (ttype(L->top-2) != TAG_TABLE)
lua_error(L, "indexed expression not a table in rawgettable");
lua_error(L, "indexed expression not a table");
res = luaA_putluaObject(L, luaH_get(L, avalue(L->top-2), L->top-1));
L->top -= 2;
return res;
@@ -140,7 +140,7 @@ void lua_settable (lua_State *L) {
}
void lua_rawsettable (lua_State *L) {
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");
@@ -170,24 +170,6 @@ void lua_setglobal (lua_State *L, const char *name) {
}
/* deprecated */
lua_Object lua_rawgetglobal (lua_State *L, const char *name) {
lua_pushglobaltable(L);
lua_pushstring(L, name);
return lua_rawgettable(L);
}
/* deprecated */
void lua_rawsetglobal (lua_State *L, const char *name) {
TObject key;
luaA_checkCargs(L, 1);
ttype(&key) = TAG_STRING;
tsvalue(&key) = luaS_new(L, name);
luaH_set(L, L->gt, &key, --L->top);
}
const char *lua_type (lua_State *L, lua_Object o) {
UNUSED(L);
return (o == LUA_NOOBJECT) ? "NOOBJECT" : luaO_typename(o);
@@ -376,3 +358,29 @@ int lua_next (lua_State *L, lua_Object t, int i) {
}
#if LUA_DEPRECATETFUNCS
/*
** obsolete functions
*/
lua_Object lua_rawgetglobal (lua_State *L, const char *name) {
lua_pushglobaltable(L);
lua_pushstring(L, name);
return lua_rawget(L);
}
void lua_rawsetglobal (lua_State *L, const char *name) {
lua_Object value;
lua_beginblock(L);
value = lua_pop(L);
lua_pushglobaltable(L);
lua_pushstring(L, name);
lua_pushobject(L, value);
lua_rawset(L);
lua_endblock(L);
}
#endif