From 8dae4657a120a0f01fa599014a55b5d56e846998 Mon Sep 17 00:00:00 2001 From: Roberto Ierusalimschy Date: Fri, 26 Jan 1996 12:04:32 -0200 Subject: [PATCH] "setglobal" and "getglobal" moved to inout.c, as it concentrates pre-defined library. --- table.c | 28 +++------------------------- 1 file changed, 3 insertions(+), 25 deletions(-) diff --git a/table.c b/table.c index 74418544..7c7f124c 100644 --- a/table.c +++ b/table.c @@ -3,7 +3,7 @@ ** Module to control static tables */ -char *rcs_table="$Id: table.c,v 2.41 1996/01/22 17:40:00 roberto Exp roberto $"; +char *rcs_table="$Id: table.c,v 2.42 1996/01/23 18:39:45 roberto Exp roberto $"; /*#include */ @@ -33,8 +33,6 @@ static Long lua_maxconstant = 0; #define MIN_GARBAGE_BLOCK (GARBAGE_BLOCK/2) static void lua_nextvar (void); -static void setglobal (void); -static void getglobal (void); /* ** Initialise symbol table with internal functions @@ -57,9 +55,9 @@ static void lua_initsymbol (void) n = luaI_findsymbolbyname("dofile"); s_tag(n) = LUA_T_CFUNCTION; s_fvalue(n) = lua_internaldofile; n = luaI_findsymbolbyname("setglobal"); - s_tag(n) = LUA_T_CFUNCTION; s_fvalue(n) = setglobal; + s_tag(n) = LUA_T_CFUNCTION; s_fvalue(n) = luaI_setglobal; n = luaI_findsymbolbyname("getglobal"); - s_tag(n) = LUA_T_CFUNCTION; s_fvalue(n) = getglobal; + s_tag(n) = LUA_T_CFUNCTION; s_fvalue(n) = luaI_getglobal; n = luaI_findsymbolbyname("type"); s_tag(n) = LUA_T_CFUNCTION; s_fvalue(n) = luaI_type; n = luaI_findsymbolbyname("tostring"); @@ -246,26 +244,6 @@ static void lua_nextvar (void) } -static void setglobal (void) -{ - lua_Object name = lua_getparam(1); - lua_Object value = lua_getparam(2); - if (!lua_isstring(name)) - lua_error("incorrect argument to function `setglobal'"); - lua_pushobject(value); - lua_storeglobal(lua_getstring(name)); -} - - -static void getglobal (void) -{ - lua_Object name = lua_getparam(1); - if (!lua_isstring(name)) - lua_error("incorrect argument to function `getglobal'"); - lua_pushobject(lua_getglobal(lua_getstring(name))); -} - - static Object *functofind; static int checkfunc (Object *o) {