glib2 0.20.0

data/src/rbgobject.h

@@ -0,0 +1,265 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/**********************************************************************
+
+  rbgobject.h -
+
+  $Author: sakai $
+  $Date: 2007/07/19 22:03:44 $
+
+  Copyright (C) 2003,2006  Ruby-GNOME2 Project Team
+  Copyright (C) 2002,2003  Masahiro Sakai
+
+**********************************************************************/
+
+#ifndef __RBGOBJECT_H__
+#define __RBGOBJECT_H__
+
+#include <glib-object.h>
+#include "ruby.h"
+#include "rbglib.h"
+#include "rbgutil.h"
+
+#ifdef __cplusplus
+extern "C" {
+#endif /* __cplusplus */
+
+/* macros */
+
+#define G_INITIALIZE(obj, cobj)\
+ (rbgobj_initialize_object(obj, (gpointer)cobj))
+
+#define G_DEF_CLASS(gtype, name, module)\
+    (rbgobj_define_class(gtype, name, module, 0, 0, Qnil))
+#define G_DEF_CLASS_WITH_GC_FUNC(gtype, name, module, mark, free)	\
+    (rbgobj_define_class(gtype, name, module, mark, free, Qnil))
+#define G_DEF_CLASS2(gtype, name, module, mark, free)			\
+    G_DEF_CLASS_WITH_GC_FUNC(gtype, name, module, mark, free)
+#define G_DEF_CLASS3(gtype_name, name, module)\
+    (rbgobj_define_class_dynamic(gtype_name, name, module, 0, 0))
+#define G_DEF_CLASS4(gtype, name, module, parent) \
+    (rbgobj_define_class(gtype, name, module, 0, 0, parent))
+
+#define G_DEF_INTERFACE(gtype, name, module)\
+    (rbgobj_define_class(gtype, name, module, 0, 0, Qnil))
+#define G_DEF_INTERFACE2(gtype, name, module, mark, free)\
+    (rbgobj_define_class(gtype, name, module, mark, free, Qnil))
+
+#define RG_DEF_CONVERSION(table) (rbgobj_convert_define(table))
+
+#define G_RELATIVE(obj, rel) (rbgobj_add_relative(obj, rel))
+
+/* G_RELATIVE2 is useless now. Try G_CHILD_ADD/REMOVE first. */
+#define G_RELATIVE2(obj, rel, id, hash_key)\
+ (rbgobj_add_relative_removable(obj, rel, id, hash_key))
+#define G_GET_RELATIVE(obj, id, hash_key)\
+ (rbgobj_get_relative_removable(obj, id, hash_key))
+#define G_REMOVE_RELATIVE(obj, id, hash_key)\
+ (rbgobj_remove_relative(obj, id, hash_key))
+
+RUBY_GLIB2_VAR  ID rbgobj_id_children;
+#define G_CHILD_SET(self, id, child)  (rb_ivar_set(self, id, child))
+#define G_CHILD_UNSET(self, id)  (rb_ivar_set(self, id, Qnil))
+
+/* G_CHILD_ADD is same as G_RELATIVE, but the macro name is more obviously
+   to use than G_RELATIVE, and also support "remove" operation with the key
+   which is the object itself.
+*/
+#define G_CHILD_ADD(self, child) \
+    (rbgobj_add_relative_removable(self, Qnil, rbgobj_id_children, child))
+#define G_CHILD_REMOVE(self, child) \
+    (rbgobj_remove_relative(self, rbgobj_id_children, child))
+#define G_CHILD_REMOVE_ALL(self) \
+    (rbgobj_remove_relative_all(self, rbgobj_id_children))
+
+#define G_DEF_SIGNAL_FUNC(klass, sig_name, func)\
+ (rbgobj_set_signal_func(klass, sig_name, func))
+
+#define CLASS2CINFO(klass) (rbgobj_lookup_class(klass))
+#define GTYPE2CINFO(gtype) (rbgobj_lookup_class_by_gtype(gtype, Qnil))
+#define GTYPE2CINFO_NO_CREATE(gtype) (rbgobj_lookup_class_by_gtype_full(gtype, Qnil, FALSE))
+#define RVAL2CINFO(obj)    (rbgobj_lookup_class(CLASS_OF(obj)))
+#define GTYPE2CLASS(gtype) (rbgobj_gtype_to_ruby_class(gtype))
+#define CLASS2GTYPE(klass) (rbgobj_lookup_class(klass)->gtype)
+#define RVAL2GTYPE(obj)    (CLASS2GTYPE(CLASS_OF(obj)))
+
+#define RVAL2GOBJ(obj)  (rbgobj_instance_from_ruby_object(obj))
+#define GOBJ2RVAL(gobj) (rbgobj_ruby_object_from_instance(gobj))
+#define GOBJ2RVAL_UNREF(gobj) (rbgobj_ruby_object_from_instance_with_unref(gobj))
+#define GOBJ2RVALU(gobj) GOBJ2RVAL_UNREF(gobj)
+#define GVAL2RVAL(v)    (rbgobj_gvalue_to_rvalue(v))
+
+#define RVAL2BOXED(obj, gtype)  (rbgobj_boxed_get(obj, gtype))
+#define BOXED2RVAL(cobj, gtype) (rbgobj_make_boxed(cobj, gtype))
+
+#define RVAL2GENUM(obj, gtype)  (rbgobj_get_enum(obj, gtype))
+#define RVAL2GFLAGS(obj, gtype) (rbgobj_get_flags(obj, gtype))
+#define GENUM2RVAL(n, gtype)    (rbgobj_make_enum(n, gtype))
+#define GFLAGS2RVAL(n, gtype)   (rbgobj_make_flags(n, gtype))
+
+#define RVAL2GPTR(object)       (rbgobj_ptr2cptr(object))
+#define GPTR2RVAL(ptr, gtype)   (rbgobj_ptr_new(gtype, ptr))
+
+#define G_DEF_CONSTANTS(mod, type, strip_prefix) \
+	rbgobj_add_constants(mod, type, strip_prefix)
+#define G_RENAME_CONSTANT(orig, alt) \
+	rbgobj_constant_remap(orig, alt)
+#define G_RENAME_NICK(orig, alt) \
+	rbgobj_constant_remap(orig, alt)
+
+typedef enum
+{
+    RBGOBJ_ABSTRACT_BUT_CREATABLE = 1 << 0, /* deprecated */
+    RBGOBJ_BOXED_NOT_COPY         = 1 << 1,
+    RBGOBJ_DEFINED_BY_RUBY        = 1 << 2,
+} RGObjClassFlag;
+    
+typedef struct {
+    VALUE klass;
+    GType gtype;
+    void (*mark)(gpointer);
+    void (*free)(gpointer);
+    int flags; /* RGObjClassFlag */
+} RGObjClassInfo;
+
+/* rbgobject.c */
+
+extern void rbgobj_initialize_object(VALUE obj, gpointer cobj);
+extern gpointer rbgobj_instance_from_ruby_object(VALUE obj);
+extern VALUE rbgobj_ruby_object_from_instance(gpointer instance);
+extern VALUE rbgobj_ruby_object_from_instance2(gpointer instance, gboolean alloc);
+extern VALUE rbgobj_ruby_object_from_instance_with_unref(gpointer instance);
+
+extern void rbgobj_add_relative(VALUE obj, VALUE relative);
+extern void rbgobj_invalidate_relatives(VALUE obj);
+extern void rbgobj_add_relative_removable(VALUE obj, VALUE relative,
+                                          ID obj_ivar_id, VALUE hash_key);
+extern VALUE rbgobj_get_relative_removable(VALUE obj, ID obj_ivar_id,
+                                           VALUE hash_key);
+extern void rbgobj_remove_relative(VALUE obj, ID obj_ivar_id, VALUE hash_key);
+extern void rbgobj_remove_relative_all(VALUE obj, ID obj_ivar_id);
+
+extern GObject* rbgobj_gobject_new(GType type, VALUE params_hash);
+extern VALUE rbgobj_create_object(VALUE klass); /* deprecated */
+
+extern VALUE rbgobj_get_ruby_object_from_gobject(GObject* gobj, gboolean alloc);
+
+/* deprecated */
+extern void rbgobj_add_abstract_but_create_instance_class(GType gtype);
+
+/* rbgobj_typeinstance.c */
+extern void rbgobj_gc_mark_instance(gpointer instance);
+
+
+/* rbgobj_type.c */
+extern const RGObjClassInfo *rbgobj_lookup_class(VALUE klass);
+extern const RGObjClassInfo *rbgobj_lookup_class_by_gtype(GType gtype, VALUE parent);
+extern const RGObjClassInfo *rbgobj_lookup_class_by_gtype_full(GType gtype,
+							       VALUE parent,
+							       gboolean create_object);
+extern VALUE rbgobj_gtype_to_ruby_class(GType gtype);
+extern VALUE rbgobj_define_class(GType gtype, const gchar* name, VALUE module,
+                                 void* mark, void* free, VALUE parent); 
+extern VALUE rbgobj_define_class_dynamic(const gchar* gtype_name, 
+                                         const gchar* name, VALUE module, 
+                                         void* mark, void* free); 
+extern void rbgobj_register_class(VALUE klass,
+                                  GType gtype,
+                                  gboolean klass2gtype,
+                                  gboolean gtype2klass);
+extern VALUE rbgobj_cType;
+extern VALUE rbgobj_gtype_new(GType gtype);
+extern GType rbgobj_gtype_get(VALUE obj);
+
+/* rbgobj_signal.c */
+typedef VALUE (*GValToRValSignalFunc)(guint num,const GValue* values);
+extern void rbgobj_set_signal_func(VALUE klass, gchar* sig_name, GValToRValSignalFunc func);
+extern GValToRValSignalFunc rbgobj_get_signal_func(guint signal_id);
+extern VALUE rbgobj_signal_wrap(guint sig_id);
+
+
+/* rbgobj_closure.c */
+extern GClosure* g_rclosure_new(VALUE callback_proc, VALUE extra_args,
+                                GValToRValSignalFunc func);
+extern void g_rclosure_attach(GClosure *closure, VALUE object);
+extern void g_rclosure_set_tag(GClosure *closure, const gchar *tag);
+
+/* rbgobj_value.c */
+extern VALUE rbgobj_gvalue_to_rvalue(const GValue* value);
+extern void rbgobj_rvalue_to_gvalue(VALUE val, GValue* result);
+extern void rbgobj_initialize_gvalue(GValue *result, VALUE value);
+
+typedef void (*RValueToGValueFunc)(VALUE from, GValue* to);
+typedef VALUE (*GValueToRValueFunc)(const GValue* from);
+extern void rbgobj_register_r2g_func(GType gtype, RValueToGValueFunc func);
+extern void rbgobj_register_g2r_func(GType gtype, GValueToRValueFunc func);
+
+extern void rbgobj_gc_mark_gvalue(GValue* value);
+
+/* rbgobj_valuetypes.c */
+extern VALUE rbgobj_ptr_new(GType type, gpointer ptr);
+extern gpointer rbgobj_ptr2cptr(VALUE ptr);
+
+#define RBGOBJ_TYPE_RUBY_VALUE (rbgobj_ruby_value_get_type())
+extern GType rbgobj_ruby_value_get_type();
+extern VALUE g_value_get_ruby_value(const GValue* value);
+extern void g_value_set_ruby_value(GValue* value, VALUE ruby);
+
+/* rbgobj_object.c */
+extern void rbgobj_register_property_setter(GType gtype, const char* prop_name, RValueToGValueFunc func);
+extern void rbgobj_register_property_getter(GType gtype, const char* prop_name, GValueToRValueFunc func);
+
+/* rbgobj_boxed.c */
+extern VALUE rbgobj_boxed_create(VALUE klass); /* deprecated */
+extern gpointer rbgobj_boxed_get(VALUE obj, GType gtype);
+extern VALUE rbgobj_make_boxed(gpointer data, GType gtype);
+extern void rbgobj_boxed_not_copy_obj(GType gtype);
+
+/* rbgobj_enums.c */
+extern void rbgobj_constant_remap(const char *original, const char *replacement);
+extern void rbgobj_add_constants(VALUE mod, GType type, const gchar *strip_prefix);
+extern VALUE rbgobj_make_enum(gint n, GType gtype);
+extern gint rbgobj_get_enum(VALUE obj, GType gtype);
+extern VALUE rbgobj_make_flags(guint n, GType gtype);
+extern guint rbgobj_get_flags(VALUE obj, GType gtype);
+extern void rbgobj_define_const(VALUE mod, const char *name, VALUE value);
+
+
+/* rbglib_mainloop.c */
+#define G_TYPE_MAIN_LOOP (g_main_loop_get_type())
+extern GType g_main_loop_get_type(void);
+
+/* rbglib_maincontext.c */
+#define G_TYPE_MAIN_CONTEXT (g_main_context_get_type())
+#define G_TYPE_SOURCE (g_source_get_type())
+#define G_TYPE_POLL_FD (g_poll_fd_get_type())
+extern GType g_main_context_get_type(void);
+extern GType g_source_get_type(void);
+extern GType g_poll_fd_get_type(void);
+
+/* rbglib_keyfile.c */
+#define G_TYPE_KEY_FILE (g_key_file_get_type())
+extern GType g_key_file_get_type(void);
+
+/* rbgobj_convert.c */
+typedef struct {
+    GType type;
+    VALUE klass;
+    VALUE (*get_superclass)(void);
+    void (*type_init_hook)(VALUE);
+    void (*rvalue2gvalue)(VALUE val, GValue *result);
+    VALUE (*gvalue2rvalue)(const GValue *);
+    void (*initialize)(VALUE, gpointer);
+    gpointer (*robj2instance)(VALUE);
+    VALUE (*instance2robj)(gpointer);
+    void (*unref)(gpointer instance);
+} RGConvertTable;
+
+extern void rbgobj_convert_define(RGConvertTable *table);
+
+#ifdef __cplusplus
+}
+#endif /* __cplusplus */
+
+#endif /* __RBGOBJECT_H__ */
+
+#include "rbgcompat.h"

data/src/rbgprivate.h

@@ -0,0 +1,88 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/**********************************************************************
+  rbgprivate.h -
+
+  Copyright (C) 2007  Ruby-GNOME2 Project Team
+**********************************************************************/
+
+#ifndef __RBGPRIVATE_H__
+#define __RBGPRIVATE_H__
+
+#include "rbgobject.h"
+#include "glib-enum-types.h"
+
+G_BEGIN_DECLS
+
+typedef struct {
+    VALUE self;
+    GObject* gobj;
+    const RGObjClassInfo* cinfo;
+    gboolean destroyed;
+} gobj_holder;
+
+typedef struct {
+    gpointer boxed;
+    gboolean own;
+    GType type;
+} boxed_holder;
+
+extern VALUE rbgobj_cEnum;
+extern VALUE rbgobj_cFlags;
+extern VALUE rbgobj_cBoxed;
+extern VALUE rbgobj_cParam;
+extern VALUE rbgobj_mInterface;
+extern VALUE rbgobj_cObject;
+
+extern VALUE rbgobj_cInstantiatable;
+extern VALUE rbgobj_mMetaInterface;
+#define cInstantiatable   rbgobj_cInstantiatable
+#define mMetaInterface rbgobj_mMetaInterface
+
+extern void rbgobj_define_property_accessors(VALUE klass);
+extern void rbgobj_define_action_methods(VALUE klass);
+
+extern void rbgobj_param_spec_initialize(VALUE self, GParamSpec* pspec);
+extern void rbgobj_boxed_initialize(VALUE obj, gpointer boxed);
+extern void rbgobj_gobject_initialize(VALUE obj, gpointer cobj);
+
+extern GParamSpec* rbgobj_get_param_spec(VALUE obj);
+extern GObject* rbgobj_get_gobject(VALUE obj);
+
+extern VALUE rbgobj_get_ruby_object_from_param_spec(GParamSpec* pspec, gboolean alloc);
+
+extern void rbgobj_init_object_class(VALUE klass);
+extern void rbgobj_init_flags_class(VALUE klass);
+extern void rbgobj_init_enum_class(VALUE klass);
+extern void rbgobj_init_interface(VALUE interf);
+
+/* FIXME: should have better name */
+extern void rbgobj_instance_call_cinfo_mark(gpointer instance);
+extern void rbgobj_instance_call_cinfo_free(gpointer instance);
+
+VALUE rbgutil_generic_s_gtype(VALUE klass);
+VALUE rbgutil_generic_gtype(VALUE self);
+#define generic_s_gtype rbgutil_generic_s_gtype
+#define generic_gtype rbgutil_generic_gtype
+
+extern gboolean rbgobj_convert_has_type(GType type);
+extern RGConvertTable *rbgobj_convert_lookup(GType type);
+
+extern gboolean rbgobj_convert_get_superclass(GType type, VALUE *result);
+extern gboolean rbgobj_convert_type_init_hook(GType type, VALUE klass);
+extern gboolean rbgobj_convert_gvalue2rvalue(GType type, const GValue *value,
+                                             VALUE *result);
+extern gboolean rbgobj_convert_rvalue2gvalue(GType type, VALUE val,
+                                             GValue *result);
+extern GType rbgobj_convert_rvalue2gtype(VALUE val);
+extern gboolean rbgobj_convert_initialize(GType type, VALUE obj, gpointer cobj);
+extern gboolean rbgobj_convert_robj2instance(GType type, VALUE obj,
+                                             gpointer *result);
+extern gboolean rbgobj_convert_instance2robj(GType type, gpointer instance,
+                                             VALUE *result);
+extern gboolean rbgobj_convert_unref(GType type, gpointer instance);
+
+#define RubyGObjectHookModule "RubyGObjectHook__"
+
+G_END_DECLS
+
+#endif

data/src/rbgutil.c

@@ -0,0 +1,222 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+
+  rbgutil.c -
+
+  $Author: sakai $
+  $Date: 2007/07/07 08:15:26 $
+
+  Copyright (C) 2002-2004 Masao Mutoh
+************************************************/
+
+#include "rbgprivate.h"
+
+ID rbgutil_id_module_eval;
+
+static ID id_add_one_arg_setter;
+static ID id_set_property;
+static ID id_to_a;
+static ID id_allocate;
+
+void
+rbgutil_set_properties(self, hash)
+    VALUE self, hash;
+{
+    int i;
+    VALUE ary;
+    GObject* obj;
+
+    Check_Type(hash, T_HASH);
+    ary = rb_funcall(hash, id_to_a, 0);
+    obj = RVAL2GOBJ(self);
+
+    g_object_freeze_notify(obj);
+    for (i = 0; i < RARRAY_LEN(ary); i++) {
+      rb_funcall(self, id_set_property, 2,
+                 RARRAY_PTR(RARRAY_PTR(ary)[i])[0],
+                 RARRAY_PTR(RARRAY_PTR(ary)[i])[1]);
+    }
+    g_object_thaw_notify(obj);
+}
+
+VALUE
+rbgutil_glist2ary(list)
+    GList *list;
+{
+    VALUE ary = rb_ary_new();
+    while (list) {
+        rb_ary_push(ary, GOBJ2RVAL(list->data));
+        list = list->next;
+    }
+    return ary;
+}
+
+VALUE
+rbgutil_glist2ary_and_free(list)
+    GList *list;
+{
+    VALUE ary = rb_ary_new();
+    while (list) {
+        rb_ary_push(ary, GOBJ2RVAL(list->data));
+        list = list->next;
+    }
+    g_list_free(list);
+    return ary;
+}
+
+VALUE
+rbgutil_glist2ary_boxed(list, gtype)
+    GList *list;
+    GType gtype;
+{
+    VALUE ary = rb_ary_new();
+    while (list) {
+        rb_ary_push(ary, BOXED2RVAL(list->data, gtype));
+        list = list->next;
+    }
+    return ary;
+}
+
+VALUE
+rbgutil_glist2ary_boxed_and_free(list, gtype)
+    GList *list;
+    GType gtype;
+{
+    VALUE ary = rb_ary_new();
+    while (list) {
+        rb_ary_push(ary, BOXED2RVAL(list->data, gtype));
+        list = list->next;
+    }
+    g_list_free(list);
+    return ary;
+}
+
+VALUE
+rbgutil_glist2ary_string(GList *list)
+{
+    VALUE array;
+
+    array = rb_ary_new();
+    while (list) {
+        rb_ary_push(array, CSTR2RVAL(list->data));
+        list = g_list_next(list);
+    }
+    return array;
+}
+
+VALUE
+rbgutil_glist2ary_string_and_free(GList *list)
+{
+    VALUE array;
+    GList *node;
+
+    array = rb_ary_new();
+    for (node = list; node; node = g_list_next(node)) {
+	gchar *string = node->data;
+
+	rb_ary_push(array, CSTR2RVAL(string));
+	g_free(string);
+    }
+    g_list_free(list);
+    return array;
+}
+
+VALUE
+rbgutil_gslist2ary(list)
+    GSList *list;
+{
+    VALUE ary = rb_ary_new();
+    while (list) {
+        rb_ary_push(ary, GOBJ2RVAL(list->data));
+        list = list->next;
+    }
+    return ary;
+}
+
+VALUE
+rbgutil_gslist2ary_boxed(list, gtype)
+    GSList *list;
+    GType gtype;
+{
+    VALUE ary = rb_ary_new();
+    while (list) {
+        rb_ary_push(ary, BOXED2RVAL(list->data, gtype));
+        list = list->next;
+    }
+    return ary;
+}
+
+VALUE
+rbgutil_gslist2ary_and_free(GSList *list)
+{
+    GSList *node;
+    VALUE ary;
+
+    ary = rb_ary_new();
+    for (node = list; node; node = g_slist_next(node)) {
+        rb_ary_push(ary, GOBJ2RVAL(node->data));
+    }
+    g_slist_free(list);
+    return ary;
+}
+
+VALUE
+rbgutil_gslist2ary_boxed_and_free(GSList *list, GType gtype)
+{
+    GSList *node;
+    VALUE ary;
+
+    ary = rb_ary_new();
+    for (node = list; node; node = g_slist_next(node)) {
+        rb_ary_push(ary, BOXED2RVAL(node->data, gtype));
+    }
+    g_slist_free(list);
+    return ary;
+}
+
+VALUE
+rbgutil_def_setters(klass)
+    VALUE klass;
+{
+    return rb_funcall(mGLib, id_add_one_arg_setter, 1, klass);
+}
+
+VALUE
+rbgutil_sym_g2r_func(from)
+    const GValue *from;
+{
+    const gchar *str = g_value_get_string(from);
+    return str ? ID2SYM(rb_intern(str)) : Qnil;
+}
+
+VALUE
+rbgutil_generic_s_gtype(VALUE klass)
+{
+    return rbgobj_gtype_new(CLASS2GTYPE(klass));
+}
+
+VALUE
+rbgutil_generic_gtype(VALUE self)
+{
+    return generic_s_gtype(CLASS_OF(self));
+}
+
+VALUE
+rbgutil_string_set_utf8_encoding(VALUE string)
+{
+#ifdef HAVE_RB_STR_ENCODE
+    if (!NIL_P(string))
+        rb_enc_associate(string, rb_utf8_encoding());
+#endif
+    return string;
+}
+
+void
+Init_gutil()
+{
+    rbgutil_id_module_eval = rb_intern("module_eval");
+    id_set_property = rb_intern("set_property");
+    id_to_a = rb_intern("to_a");
+    id_add_one_arg_setter = rb_intern("__add_one_arg_setter");
+    id_allocate = rb_intern("allocate");
+}