new API function `lua_equalobj'

1 files changed, 10 insertions, 5 deletions

diff --git a/lapi.c b/lapi.c
index 020a4642..33e384d3 100644
--- a/lapi.c
+++ b/lapi.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lapi.c,v 1.54 1999/10/14 19:13:31 roberto Exp roberto $
+** $Id: lapi.c,v 1.55 1999/11/04 17:22:26 roberto Exp roberto $
 ** Lua API
 ** See Copyright Notice in lua.h
 */
@@ -209,15 +209,15 @@ const char *lua_type (lua_Object o) {
 }
 
 int lua_isnil (lua_Object o) {
-  return (o!= LUA_NOOBJECT) && (ttype(Address(o)) == LUA_T_NIL);
+  return (o != LUA_NOOBJECT) && (ttype(Address(o)) == LUA_T_NIL);
 }
 
 int lua_istable (lua_Object o) {
-  return (o!= LUA_NOOBJECT) && (ttype(Address(o)) == LUA_T_ARRAY);
+  return (o != LUA_NOOBJECT) && (ttype(Address(o)) == LUA_T_ARRAY);
 }
 
 int lua_isuserdata (lua_Object o) {
-  return (o!= LUA_NOOBJECT) && (ttype(Address(o)) == LUA_T_USERDATA);
+  return (o != LUA_NOOBJECT) && (ttype(Address(o)) == LUA_T_USERDATA);
 }
 
 int lua_iscfunction (lua_Object o) {
@@ -225,7 +225,7 @@ int lua_iscfunction (lua_Object o) {
 }
 
 int lua_isnumber (lua_Object o) {
-  return (o!= LUA_NOOBJECT) && (tonumber(Address(o)) == 0);
+  return (o != LUA_NOOBJECT) && (tonumber(Address(o)) == 0);
 }
 
 int lua_isstring (lua_Object o) {
@@ -238,6 +238,11 @@ int lua_isfunction (lua_Object o) {
   return (t == LUA_T_PROTO) || (t == LUA_T_CPROTO);
 }
 
+int lua_equalobj (lua_Object o1, lua_Object o2) {
+  if (o1 == LUA_NOOBJECT || o2 == LUA_NOOBJECT) return 0;
+  else return luaO_equalObj(Address(o1), Address(o2));
+}
+
 
 double lua_getnumber (lua_Object object) {
  if (object == LUA_NOOBJECT) return 0.0;