Added lua's isobject method.

1 files changed, 14 insertions, 1 deletions

diff --git a/lib/BLua.cc b/lib/BLua.cc
index 60cf4f2..5e046fd 100644
--- a/lib/BLua.cc
+++ b/lib/BLua.cc
@@ -17,7 +17,7 @@
  *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  */
 
-/* $Id: BLua.cc,v 1.23 2004-12-13 20:07:09 pixel Exp $ */
+/* $Id: BLua.cc,v 1.24 2004-12-17 11:46:41 pixel Exp $ */
 
 #include "BLua.h"
 #include <lualib.h>
@@ -416,6 +416,19 @@ bool Lua::islightuserdata(int i) {
     return lua_islightuserdata(L, i);
 }
 
+bool Lua::isobject(int i) {
+    bool r = false;
+    if (istable(i)) {
+        push("__obj");
+        gettable(i);
+        r = isuserdata();
+        pop();
+    } else {
+        r = isnil(i);
+    }
+    return r;
+}
+
 bool Lua::toboolean(int i) {
     return lua_toboolean(L, i);
 }