Macro updates.

[ruby-evas.git] / src / rb_evas_main.h

diff --git a/src/rb_evas_main.h b/src/rb_evas_main.h
index 2180546681dbc592819b85d40cdf694180b14717..762c3a61a2fc01a8a37ce0bc44253cb749fc6d6f 100644 (file)
--- a/src/rb_evas_main.h
+++ b/src/rb_evas_main.h
@@ -1,5 +1,5 @@
 /*
- * $Id: rb_evas_main.h 23 2004-06-26 22:55:31Z tilman $
+ * $Id: rb_evas_main.h 32 2004-07-10 14:07:49Z tilman $
  *
  * Copyright (C) 2004 Tilman Sauerbeck (tilman at code-monkey de)
  *
@@ -21,13 +21,15 @@
 #ifndef __RB_EVAS_MAIN_H
 #define __RB_EVAS_MAIN_H
 
-#define GET_OBJ(obj, type, o, desc) \
+#define GET_OBJ(obj, type, o) \
        type **(o) = NULL; \
 \
        Data_Get_Struct ((obj), type *, (o)); \
 \
        if (!*(o)) { \
-               rb_raise (rb_eException, desc " destroyed already"); \
+               rb_raise (rb_eException, \
+                         "%s destroyed already", \
+                         rb_obj_classname ((obj))); \
                return Qnil; \
        }
 
@@ -39,6 +41,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_obj_classname ((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); \
+\
+       return rb_str_new2 (buf);
+
 VALUE mEvas;
 
 #endif