lua

commit 3365a352431a0def0acccec0807751962726c4be
parent fad57bfa008523c3568b613989a6a3f87f3cb83b
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Fri, 16 Dec 1994 13:54:45 -0200

new constant LUA_NOOBJECT

Diffstat:
M
hash.c
 | 
6
+++---
M
inout.c
 | 
6
+++---
M
table.c
 | 
6
+++---

3 files changed, 9 insertions(+), 9 deletions(-)
diff --git 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
@@ -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 <stdio.h>
 #include <stdlib.h>
@@ -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
@@ -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 <string.h>
 
@@ -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;