/*
- * $Id: rb_ecore.h 40 2004-07-25 13:14:34Z tilman $
+ * $Id: rb_ecore.h 109 2004-09-01 20:33:15Z tilman $
*
- * Copyright (C) 2004 Tilman Sauerbeck (tilman at code-monkey de)
+ * Copyright (C) 2004 ruby-ecore team (see AUTHORS)
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
#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; \
- }
+ Data_Get_Struct ((obj), type, (o));
#define CHECK_BOOL(val) \
if (TYPE ((val)) != T_TRUE && TYPE ((val)) != T_FALSE) { \
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]; \
\
\
snprintf (buf, sizeof (buf), \
"#<%s:%p ptr=%p>", rb_obj_classname ((obj)), \
- (void *) obj, *o); \
+ (void *) obj, o->real); \
\
return rb_str_new2 (buf);
+#define DEF_CONST(mod, prefix, name) \
+ rb_define_const ((mod), #name, \
+ INT2FIX (prefix##name));
+
+#ifndef __RB_ECORE_C
VALUE mEcore;
+#endif
#endif