/*
- * $Id: rb_evas_main.h 20 2004-06-22 20:46:56Z tilman $
+ * $Id: rb_evas_main.h 23 2004-06-26 22:55:31Z tilman $
*
* Copyright (C) 2004 Tilman Sauerbeck (tilman at code-monkey de)
*
#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)); \
+\
+ if (!*(o)) { \
+ rb_raise (rb_eException, desc " destroyed already"); \
+ 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; \
+ }
+
VALUE mEvas;
#endif