X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=blobdiff_plain;f=src%2Fwrapped.h;fp=src%2Fwrapped.h;h=4514fa64afbb769c2686bc5f46697b584007b4ac;hp=daaaa25404d07c95e32fd71f7e6d7a927e100353;hb=c9c098c6a9363eb59f435eb195a4bc5b9098b1dd;hpb=a079c41de6a7504e579b425820beef21579e530e

diff --git a/src/wrapped.h b/src/wrapped.h
index daaaa25..4514fa6 100644
--- 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