From 3365a352431a0def0acccec0807751962726c4be Mon Sep 17 00:00:00 2001 From: Roberto Ierusalimschy Date: Fri, 16 Dec 1994 13:55:04 -0200 Subject: [PATCH] new constant LUA_NOOBJECT --- hash.c | 6 +++--- inout.c | 6 +++--- table.c | 6 +++--- 3 files changed, 9 insertions(+), 9 deletions(-) diff --git a/hash.c b/hash.c index 89b28fa6..c9b27b10 100644 --- a/hash.c +++ b/hash.c @@ -3,7 +3,7 @@ ** hash manager for lua */ -char *rcs_hash="$Id: hash.c,v 2.20 1994/11/25 19:27:03 roberto Exp $"; +char *rcs_hash="$Id: hash.c,v 2.20 1994/11/28 15:10:51 roberto Exp roberto $"; #include "mem.h" #include "opcode.h" @@ -313,9 +313,9 @@ void lua_next (void) Hash *t; lua_Object o = lua_getparam(1); lua_Object r = lua_getparam(2); - if (o == 0 || r == 0) + if (o == LUA_NOOBJECT || r == LUA_NOOBJECT) lua_error ("too few arguments to function `next'"); - if (lua_getparam(3) != 0) + if (lua_getparam(3) != LUA_NOOBJECT) lua_error ("too many arguments to function `next'"); if (!lua_istable(o)) lua_error ("first argument of function `next' is not a table"); diff --git a/inout.c b/inout.c index 0f879d60..e782045d 100644 --- a/inout.c +++ b/inout.c @@ -5,7 +5,7 @@ ** Also provides some predefined lua functions. */ -char *rcs_inout="$Id: inout.c,v 2.13 1994/11/23 14:32:00 roberto Stab $"; +char *rcs_inout="$Id: inout.c,v 2.14 1994/12/13 15:54:21 roberto Exp roberto $"; #include #include @@ -214,7 +214,7 @@ void lua_print (void) { int i=1; lua_Object obj; - while ((obj=lua_getparam (i++)) != 0) + while ((obj=lua_getparam (i++)) != LUA_NOOBJECT) { if (lua_isnumber(obj)) printf("%g\n",lua_getnumber(obj)); else if (lua_isstring(obj)) printf("%s\n",lua_getstring(obj)); @@ -235,7 +235,7 @@ void lua_print (void) void luaI_type (void) { lua_Object o = lua_getparam(1); - if (o == 0) + if (o == LUA_NOOBJECT) lua_error("no parameter to function 'type'"); switch (lua_type(o)) { diff --git a/table.c b/table.c index 2a3bb213..faea133f 100644 --- a/table.c +++ b/table.c @@ -3,7 +3,7 @@ ** Module to control static tables */ -char *rcs_table="$Id: table.c,v 2.22 1994/11/21 21:41:09 roberto Exp roberto $"; +char *rcs_table="$Id: table.c,v 2.23 1994/11/23 14:31:11 roberto Stab roberto $"; #include @@ -226,9 +226,9 @@ static void lua_nextvar (void) char *varname; TreeNode *next; lua_Object o = lua_getparam(1); - if (o == 0) + if (o == LUA_NOOBJECT) lua_reportbug("too few arguments to function `nextvar'"); - if (lua_getparam(2) != NULL) + if (lua_getparam(2) != LUA_NOOBJECT) lua_reportbug("too many arguments to function `nextvar'"); if (lua_isnil(o)) varname = NULL;