Elimination of functions lua_isnil, etc.

1 files changed, 12 insertions, 8 deletions

diff --git a/lua.h b/lua.h
index f9a0a500..098b225a 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 1.5 1994/11/01 17:54:31 roberto Exp $
+** $Id: lua.h,v 3.1 1994/11/02 20:30:53 roberto Exp roberto $
 */
 
 
@@ -62,18 +62,22 @@ int            lua_storefield 		(lua_Object object, char *field);
 int            lua_storeindexed         (lua_Object object, float index);
 int            lua_storesubscript       (void);
 
-int            lua_isnil                (lua_Object object);
-int            lua_isnumber             (lua_Object object);
-int            lua_isstring             (lua_Object object);
-int            lua_istable              (lua_Object object);
-int            lua_isfunction           (lua_Object object);
-int            lua_iscfunction          (lua_Object object);
-int            lua_isuserdata           (lua_Object object);
+int            lua_type                 (lua_Object object);
 
 
 /* for lua 1.1 */
 
 #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_isnil(_)            (lua_type(_)==LUA_T_NIL)
+#define lua_isnumber(_)         (lua_type(_)==LUA_T_NUMBER)
+#define lua_isstring(_)         (lua_type(_)==LUA_T_STRING)
+#define lua_istable(_)          (lua_type(_)==LUA_T_ARRAY)
+#define lua_isfunction(_)       (lua_type(_)==LUA_T_FUNCTION)
+#define lua_iscfunction(_)      (lua_type(_)==LUA_T_CFUNCTION)
+#define lua_isuserdata(_)       (lua_type(_)>=LUA_T_USERDATA)
 
 #endif