Macro tweaks.

[ruby-ecore.git] / src / ecore / rb_ecore.h

diff --git a/src/ecore/rb_ecore.h b/src/ecore/rb_ecore.h
index 8ce543209993ed987bdb79e57039bc4da12eb802..115aca81efc4fa0f133df4d2496b425f970d15f5 100644 (file)
--- a/src/ecore/rb_ecore.h
+++ b/src/ecore/rb_ecore.h
@@ -1,5 +1,5 @@
 /*
- * $Id: rb_ecore.h 9 2004-06-19 19:53:47Z tilman $
+ * $Id: rb_ecore.h 40 2004-07-25 13:14:34Z tilman $
  *
  * Copyright (C) 2004 Tilman Sauerbeck (tilman at code-monkey de)
  *
@@ -21,6 +21,37 @@
 #ifndef __RB_ECORE_H
 #define __RB_ECORE_H
 
+#define GET_OBJ(obj, type, o) \
+       type *(o) = NULL; \
+\
+       Data_Get_Struct ((obj), type, (o)); \
+\
+       if (!*(o)) { \
+               rb_raise (rb_eException, \
+                         "%s destroyed already", \
+                         rb_obj_classname ((obj))); \
+               return Qnil; \
+       }
+
+#define CHECK_BOOL(val) \
+       if (TYPE ((val)) != T_TRUE && TYPE ((val)) != T_FALSE) { \
+               rb_raise (rb_eTypeError, \
+                         "wrong argument type %s (expected true or false)", \
+                         rb_obj_classname ((val))); \
+               return Qnil; \
+       }
+
+#define INSPECT(obj, type) \
+       char buf[128]; \
+\
+       GET_OBJ (obj, type, o); \
+\
+       snprintf (buf, sizeof (buf), \
+                 "#<%s:%p ptr=%p>", rb_obj_classname ((obj)), \
+                 (void *) obj, *o); \
+\
+       return rb_str_new2 (buf);
+
 VALUE mEcore;
 
 #endif