commit 8dae4657a120a0f01fa599014a55b5d56e846998
parent ca7be1cfeb7864df4fa7d58c9314894b14942871
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Fri, 26 Jan 1996 12:04:12 -0200
"setglobal" and "getglobal" moved to inout.c, as it concentrates pre-defined
library.
Diffstat:
M | table.c | | | 28 | +++------------------------- |
1 file changed, 3 insertions(+), 25 deletions(-)
diff --git 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 <string.h>*/
@@ -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)
{