lua

commit df3a81ec88cdab5afca66e550c9bd768c21963e2
parent b8e76d9b5c86182998c0616627607181154a60b1
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Wed, 28 Dec 1994 10:55:28 -0200

functions that no more return error codes now have return type void

Diffstat:
M
lua.h
 | 
20
++++++++++----------
M
opcode.c
 | 
43
++++++++++++++++---------------------------

2 files changed, 26 insertions(+), 37 deletions(-)
diff --git a/lua.h b/lua.h
@@ -2,7 +2,7 @@
 ** LUA - Linguagem para Usuarios de Aplicacao
 ** Grupo de Tecnologia em Computacao Grafica
 ** TeCGraf - PUC-Rio
-** $Id: lua.h,v 3.12 1994/12/13 15:54:21 roberto Exp roberto $
+** $Id: lua.h,v 3.13 1994/12/16 15:55:55 roberto Exp roberto $
 */
 
 
@@ -49,18 +49,18 @@ char          *lua_getstring 		(lua_Object object);
 lua_CFunction  lua_getcfunction 	(lua_Object object);
 void          *lua_getuserdata  	(lua_Object object);
 
-int 	       lua_pushnil 		(void);
-int            lua_pushnumber 		(float n);
-int            lua_pushstring 		(char *s);
-int            lua_pushliteral 		(char *s);
-int            lua_pushcfunction	(lua_CFunction fn);
-int            lua_pushusertag     	(void *u, int tag);
-int            lua_pushobject       	(lua_Object object);
+void 	       lua_pushnil 		(void);
+void           lua_pushnumber 		(float n);
+void           lua_pushstring 		(char *s);
+void           lua_pushliteral 		(char *s);
+void           lua_pushcfunction	(lua_CFunction fn);
+void           lua_pushusertag     	(void *u, int tag);
+void           lua_pushobject       	(lua_Object object);
 
 lua_Object     lua_getglobal 		(char *name);
-int            lua_storeglobal		(char *name);
+void           lua_storeglobal		(char *name);
 
-int            lua_storesubscript	(void);
+void           lua_storesubscript	(void);
 lua_Object     lua_getsubscript         (void);
 
 int            lua_type 		(lua_Object object);
diff --git a/opcode.c b/opcode.c
@@ -3,7 +3,7 @@
 ** TecCGraf - PUC-Rio
 */
 
-char *rcs_opcode="$Id: opcode.c,v 3.28 1994/12/20 21:20:36 roberto Exp celes $";
+char *rcs_opcode="$Id: opcode.c,v 3.29 1994/12/27 20:53:15 celes Exp roberto $";
 
 #include <setjmp.h>
 #include <stdio.h>
@@ -479,11 +479,10 @@ void lua_endblock (void)
 /* 
 ** API: receives on the stack the table, the index, and the new value.
 */
-int lua_storesubscript (void)
+void lua_storesubscript (void)
 {
   adjustC(3);
   storesubscript();
-  return 0;
 }
 
 /*
@@ -584,90 +583,80 @@ lua_Object lua_getglobal (char *name)
 
 /*
 ** Store top of the stack at a global variable array field.
-** Return 1 on error, 0 on success.
 */
-int lua_storeglobal (char *name)
+void lua_storeglobal (char *name)
 {
  Word n = luaI_findsymbolbyname(name);
  adjustC(1);
  s_object(n) = *(--top);
- return 0;
 }
 
 /*
 ** Push a nil object
 */
-int lua_pushnil (void)
+void lua_pushnil (void)
 {
  lua_checkstack(top-stack+1);
  tag(top++) = LUA_T_NIL;
- return 0;
 }
 
 /*
-** Push an object (tag=number) to stack. Return 0 on success or 1 on error.
+** Push an object (tag=number) to stack.
 */
-int lua_pushnumber (real n)
+void lua_pushnumber (real n)
 {
  lua_checkstack(top-stack+1);
  tag(top) = LUA_T_NUMBER; nvalue(top++) = n;
- return 0;
 }
 
 /*
-** Push an object (tag=string) to stack. Return 0 on success or 1 on error.
+** Push an object (tag=string) to stack.
 */
-int lua_pushstring (char *s)
+void lua_pushstring (char *s)
 {
  lua_checkstack(top-stack+1);
  tsvalue(top) = lua_createstring(s);
  tag(top) = LUA_T_STRING;
  top++;
- return 0;
 }
 
 /*
 ** Push an object (tag=string) on stack and register it on the constant table.
-   Return 0 on success or 1 on error.
 */
-int lua_pushliteral (char *s)
+void lua_pushliteral (char *s)
 {
  lua_checkstack(top-stack+1);
  tsvalue(top) = lua_constant[luaI_findconstant(lua_constcreate(s))];
  tag(top) = LUA_T_STRING;
  top++;
- return 0;
 }
 
 /*
-** Push an object (tag=cfunction) to stack. Return 0 on success or 1 on error.
+** Push an object (tag=cfunction) to stack.
 */
-int lua_pushcfunction (lua_CFunction fn)
+void lua_pushcfunction (lua_CFunction fn)
 {
  lua_checkstack(top-stack+1);
  tag(top) = LUA_T_CFUNCTION; fvalue(top++) = fn;
- return 0;
 }
 
 /*
-** Push an object (tag=userdata) to stack. Return 0 on success or 1 on error.
+** Push an object (tag=userdata) to stack.
 */
-int lua_pushusertag (void *u, int tag)
+void lua_pushusertag (void *u, int tag)
 {
+ if (tag < LUA_T_USERDATA) return;
  lua_checkstack(top-stack+1);
- if (tag < LUA_T_USERDATA) return 1;
  tag(top) = tag; uvalue(top++) = u;
- return 0;
 }
 
 /*
 ** Push a lua_Object to stack.
 */
-int lua_pushobject (lua_Object o)
+void lua_pushobject (lua_Object o)
 {
  lua_checkstack(top-stack+1);
  *top++ = *Address(o);
- return 0;
 }
 
 /*
@@ -681,7 +670,7 @@ void luaI_pushobject (Object *o)
 
 int lua_type (lua_Object o)
 {
-  if (o == 0)
+  if (o == LUA_NOOBJECT)
     return LUA_T_NIL;
   else
     return tag(Address(o));