X-Git-Url: http://git.code-monkey.de/?p=ruby-evas.git;a=blobdiff_plain;f=src%2Frb_evas_main.h;h=a492e128833c1286d34c41c0f7228fc8fd4bf89c;hp=2180546681dbc592819b85d40cdf694180b14717;hb=c3202d026f3800676461ee407f2a5e46dc20e2f2;hpb=ba05ccf5a7b503e2d9a58c1de4072312b5abfab7

diff --git a/src/rb_evas_main.h b/src/rb_evas_main.h
index 2180546..a492e12 100644
--- a/src/rb_evas_main.h
+++ b/src/rb_evas_main.h
@@ -1,6 +1,4 @@
 /*
- * $Id: rb_evas_main.h 23 2004-06-26 22:55:31Z tilman $
- *
  * Copyright (C) 2004 Tilman Sauerbeck (tilman at code-monkey de)
  *
  * This library is free software; you can redistribute it and/or
@@ -21,15 +19,10 @@
 #ifndef __RB_EVAS_MAIN_H
 #define __RB_EVAS_MAIN_H
 
-#define GET_OBJ(obj, type, o, desc) \
-	type **(o) = NULL; \
-\
-	Data_Get_Struct ((obj), type *, (o)); \
+#define GET_OBJ(obj, type, o) \
+	type *(o) = NULL; \
 \
-	if (!*(o)) { \
-		rb_raise (rb_eException, desc " destroyed already"); \
-		return Qnil; \
-	}
+	Data_Get_Struct ((obj), type, (o));
 
 #define CHECK_BOOL(val) \
 	if (TYPE ((val)) != T_TRUE && TYPE ((val)) != T_FALSE) { \
@@ -39,6 +32,26 @@
 		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);
+
 VALUE mEvas;
 
 #endif