static VALUE
rg_next_base(VALUE leaf_type, VALUE root_type)
{
GType ret = g_type_next_base(rbgobj_gtype_get(leaf_type),
rbgobj_gtype_get(root_type));
return ret ? rbgobj_gtype_new(ret) : Qnil;
}
static VALUE
rg_operator_type_gt(VALUE self, VALUE other)
{
if (!RVAL2CBOOL(rb_obj_is_kind_of(other, RG_TARGET_NAMESPACE)))
return Qnil;
else {
GType a = rbgobj_gtype_get(self);
GType b = rbgobj_gtype_get(other);
return CBOOL2RVAL(g_type_is_a(b, a) && a != b);
}
}
static VALUE
type_gt(VALUE self, VALUE other)
{
if (!RVAL2CBOOL(rb_obj_is_kind_of(other, rbgobj_cType)))
return Qnil;
else {
GType a = rbgobj_gtype_get(self);
GType b = rbgobj_gtype_get(other);
return CBOOL2RVAL(g_type_is_a(b, a) && a != b);
}
}
static VALUE
type_class_size(VALUE self)
{
GTypeQuery query;
g_type_query(rbgobj_gtype_get(self), &query);
return UINT2NUM(query.class_size);
}
static VALUE
value_convert(int argc, VALUE* argv, VALUE self)
{
GParamSpec* pspec = rbgobj_get_param_spec(self);
VALUE src, strict_validation;
VALUE src_type;
VALUE result = Qnil;
GValue src_value = {0,};
GValue dest_value = {0,};
gboolean b;
rb_scan_args(argc, argv, "21", &src, &src_type, &strict_validation);
/* FIXME: use rb_ensure to ensure following g_value_unset() call*/
g_value_init(&src_value, rbgobj_gtype_get(src_type));
g_value_init(&dest_value, G_PARAM_SPEC_VALUE_TYPE(pspec));
rbgobj_rvalue_to_gvalue(src, &src_value);
b = g_param_value_convert(rbgobj_get_param_spec(self),
&src_value, &dest_value,
RVAL2CBOOL(strict_validation));
if (b)
result = rbgobj_gvalue_to_rvalue(&dest_value);
g_value_unset(&src_value);
g_value_unset(&dest_value);
if (b)
return result;
else
rb_raise(rb_eTypeError, "can't convert");
}
static VALUE
rg_instance_size(VALUE self)
{
GTypeQuery query;
g_type_query(rbgobj_gtype_get(self), &query);
return UINT2NUM(query.instance_size);
}
static VALUE
type_compare(VALUE self, VALUE other)
{
if (!RVAL2CBOOL(rb_obj_is_kind_of(other, rbgobj_cType)))
return Qnil;
else {
GType a = rbgobj_gtype_get(self);
GType b = rbgobj_gtype_get(other);
if (a==b)
return INT2FIX(0);
else if (g_type_is_a(a,b))
return INT2FIX(-1);
else if (g_type_is_a(b,a))
return INT2FIX(1);
else
return Qnil;
}
}
static VALUE
rg_operator_type_compare(VALUE self, VALUE other)
{
if (!RVAL2CBOOL(rb_obj_is_kind_of(other, RG_TARGET_NAMESPACE)))
return Qnil;
else {
GType a = rbgobj_gtype_get(self);
GType b = rbgobj_gtype_get(other);
if (a==b)
return INT2FIX(0);
else if (g_type_is_a(a,b))
return INT2FIX(-1);
else if (g_type_is_a(b,a))
return INT2FIX(1);
else
return Qnil;
}
}
static VALUE
rg_inspect(VALUE self)
{
GType gtype = rbgobj_gtype_get(self);
gchar* str;
VALUE result;
str = g_strdup_printf("GLib::Type[\"%s\"]", g_type_name(gtype));
result = rb_str_new2(str);
g_free(str);
return result;
}
static VALUE
rg_interfaces(VALUE self)
{
guint n_interfaces;
GType* types;
VALUE result;
guint i;
types = g_type_interfaces(rbgobj_gtype_get(self), &n_interfaces);
result = rb_ary_new2(n_interfaces);
for (i = 0; i < n_interfaces; i++)
rb_ary_store(result, i, rbgobj_gtype_new(types[i]));
g_free(types);
return result;
}
static VALUE
type_children(VALUE self)
{
guint n_children;
GType* types;
VALUE result;
int i;
types = g_type_children(rbgobj_gtype_get(self), &n_children);
result = rb_ary_new2(n_children);
for (i = 0; i < n_children; i++)
rb_ary_store(result, i, rbgobj_gtype_new(types[i]));
g_free(types);
return result;
}
static VALUE
rg_name(VALUE self)
{
return rb_str_new2(g_type_name(rbgobj_gtype_get(self)));
}
static VALUE
rg_has_value_table(VALUE self)
{
return CBOOL2RVAL(G_TYPE_HAS_VALUE_TABLE(rbgobj_gtype_get(self)));
}
static VALUE
rg_value_type_p(VALUE self)
{
return CBOOL2RVAL(G_TYPE_IS_VALUE_TYPE(rbgobj_gtype_get(self)));
}
static VALUE
rg_value_abstract_p(VALUE self)
{
return CBOOL2RVAL(G_TYPE_IS_VALUE_ABSTRACT(rbgobj_gtype_get(self)));
}
static VALUE
type_is_derivable(VALUE self)
{
return CBOOL2RVAL(G_TYPE_IS_DERIVABLE(rbgobj_gtype_get(self)));
}
static VALUE
type_is_abstract(VALUE self)
{
return CBOOL2RVAL(G_TYPE_IS_ABSTRACT(rbgobj_gtype_get(self)));
}
static VALUE
rg_derived_p(VALUE self)
{
return CBOOL2RVAL(G_TYPE_IS_DERIVED(rbgobj_gtype_get(self)));
}
static VALUE
rg_fundamental_p(VALUE self)
{
return CBOOL2RVAL(G_TYPE_IS_FUNDAMENTAL(rbgobj_gtype_get(self)));
}
static VALUE
rg_fundamental(VALUE self)
{
return rbgobj_gtype_new(G_TYPE_FUNDAMENTAL(rbgobj_gtype_get(self)));
}
static VALUE
rg_to_class(VALUE self)
{
return GTYPE2CLASS(rbgobj_gtype_get(self));
}
static VALUE
rg_parent(VALUE self)
{
GType parent = g_type_parent(rbgobj_gtype_get(self));
return parent ? rbgobj_gtype_new(parent) : Qnil;
}
static VALUE
rg_depth(VALUE self)
{
return UINT2NUM(g_type_depth(rbgobj_gtype_get(self)));
}
static VALUE
rg_classed_p(VALUE self)
{
return CBOOL2RVAL(G_TYPE_IS_CLASSED(rbgobj_gtype_get(self)));
}
static VALUE
rg_type_is_a_p(VALUE self, VALUE is_a_type)
{
return CBOOL2RVAL(g_type_is_a(rbgobj_gtype_get(self), rbgobj_gtype_get(is_a_type)));
}
static VALUE
rg_instantiatable_p(VALUE self)
{
return CBOOL2RVAL(G_TYPE_IS_INSTANTIATABLE(rbgobj_gtype_get(self)));
}
static VALUE
rg_interface_p(VALUE self)
{
return CBOOL2RVAL(G_TYPE_IS_INTERFACE(rbgobj_gtype_get(self)));
}
static VALUE
rg_deep_derivable_p(VALUE self)
{
return CBOOL2RVAL(G_TYPE_IS_DEEP_DERIVABLE(rbgobj_gtype_get(self)));
}
