GOOPS and POC with create-device

[guile-irrlicht.git] / src / wrapped.h

diff --git a/src/wrapped.h b/src/wrapped.h
index daaaa25404d07c95e32fd71f7e6d7a927e100353..4514fa64afbb769c2686bc5f46697b584007b4ac 100644 (file)
--- a/src/wrapped.h
+++ b/src/wrapped.h
@@ -74,4 +74,13 @@
     return SCM_IS_A_P (wrapped_obj, wrapped_##INIT);                    \
   }
 
+
+#define UNWRAP(OBJ)                                                     \
+  char* OBJ##_class = scm_to_utf8_stringn (scm_car (OBJ), NULL);        \
+  void* OBJ##_pointer = scm_to_pointer (scm_cdr (OBJ));
+
+
+#define UNWRAPPED(OBJ)                                                  \
+  (!strcmp (OBJ##_class, "irr::IEventReceiver") ? (irr::IEventReceiver*)OBJ##_pointer : 0)
+
 #endif