X-Git-Url: http://git.code-monkey.de/?a=blobdiff_plain;f=src%2Fecore%2Frb_ecore.h;h=0c46a434f8f33f247b4391a58e9cd2e9a26490fc;hb=f805cf241a9d1fb9765892f0af48ede8359e9b65;hp=899dea8c5104148e5c1b10853841dae428a6e4f0;hpb=627a83d5b49b1abd92bd73a10a56042a6d202dfa;p=ruby-ecore.git

diff --git a/src/ecore/rb_ecore.h b/src/ecore/rb_ecore.h
index 899dea8..0c46a43 100644
--- a/src/ecore/rb_ecore.h
+++ b/src/ecore/rb_ecore.h
@@ -1,5 +1,5 @@
 /*
- * $Id$
+ * $Id: rb_ecore.h 50 2004-08-01 10:18:39Z tilman $
  *
  * Copyright (C) 2004 Tilman Sauerbeck (tilman at code-monkey de)
  *
@@ -21,6 +21,41 @@
 #ifndef __RB_ECORE_H
 #define __RB_ECORE_H
 
+#define GET_OBJ(obj, type, o) \
+	type *(o) = NULL; \
+\
+	Data_Get_Struct ((obj), type, (o));
+
+#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 CHECK_CLASS(val, klass) \
+	if (!rb_obj_is_kind_of ((val), (klass))) { \
+		rb_raise (rb_eTypeError, \
+		          "wrong argument type %s (expected %s)", \
+		          rb_obj_classname ((val)), \
+		          rb_class2name ((klass))); \
+		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->real); \
+\
+	return rb_str_new2 (buf);
+
+#ifndef __RB_ECORE_C
 VALUE mEcore;
+#endif
 
 #endif