new API: lua_Object now is an integer

1 files changed, 12 insertions, 16 deletions

diff --git a/lua.h b/lua.h
index 098b225a..0f320dce 100644
--- 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.1 1994/11/02 20:30:53 roberto Exp roberto $
+** $Id: lua.h,v 3.2 1994/11/04 10:47:49 roberto Exp roberto $
 */
 
 
@@ -21,56 +21,52 @@ typedef enum
  LUA_T_FUNCTION,
  LUA_T_CFUNCTION,
  LUA_T_USERDATA
-} Type;
+} lua_Type;
  
 
 /* Public Part */
 
 typedef void (*lua_CFunction) (void);
-typedef struct Object *lua_Object;
+typedef unsigned int lua_Object;
 
-#define lua_register(n,f)       (lua_pushcfunction(f), lua_storeglobal(n))
-
-void           lua_errorfunction        (void (*fn) (char *s));
 void           lua_error                (char *s);
 int            lua_dofile               (char *filename);
 int            lua_dostring             (char *string);
 int            lua_callfunction         (lua_Object function);
 
 lua_Object     lua_getparam             (int number);
+#define        lua_getresult            lua_getparam
+
 float          lua_getnumber            (lua_Object object);
 char          *lua_getstring            (lua_Object object);
 char          *lua_copystring           (lua_Object object);
 lua_CFunction  lua_getcfunction         (lua_Object object);
 void          *lua_getuserdata          (lua_Object object);
-void          *lua_gettable             (lua_Object object);
-lua_Object     lua_getfield             (lua_Object object, char *field);
-lua_Object     lua_getindexed           (lua_Object object, float index);
-lua_Object     lua_getglobal            (char *name);
 
 int            lua_pushnil              (void);
 int            lua_pushnumber           (float n);
 int            lua_pushstring           (char *s);
 int            lua_pushcfunction        (lua_CFunction fn);
 int            lua_pushuserdata         (void *u);
-int            lua_pushtable            (void *t);
-int            lua_pushsubscript        (void);
 int            lua_pushobject           (lua_Object object);
 
+lua_Object     lua_getglobal            (char *name);
 int            lua_storeglobal          (char *name);
-int            lua_storefield           (lua_Object object, char *field);
-int            lua_storeindexed         (lua_Object object, float index);
+
 int            lua_storesubscript       (void);
+lua_Object     lua_getIndex             (void);
 
 int            lua_type                 (lua_Object object);
 
 
 /* for lua 1.1 */
 
+#define lua_register(n,f)       (lua_pushcfunction(f), lua_storeglobal(n))
+
 #define lua_call(f)           lua_callfunction(lua_getglobal(f))
 
-#define         lua_getindexed(o,n)     (lua_pushnumber(n), lua_getIndex(o))
-#define         lua_getfield(o,f)       (lua_pushstring(f), lua_getIndex(o))
+#define lua_getindexed(o,n) (lua_pushobject(o), lua_pushnumber(n), lua_getIndex())
+#define lua_getfield(o,f)   (lua_pushobject(o), lua_pushstring(f), lua_getIndex())
 
 #define lua_isnil(_)            (lua_type(_)==LUA_T_NIL)
 #define lua_isnumber(_)         (lua_type(_)==LUA_T_NUMBER)