gobject-introspection 1.1.9

data/Rakefile

@@ -0,0 +1,50 @@
+# -*- ruby -*-
+#
+# Copyright (C) 2012  Ruby-GNOME2 Project Team
+#
+# This library is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public
+# License as published by the Free Software Foundation; either
+# version 2.1 of the License, or (at your option) any later version.
+#
+# This library is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public
+# License along with this library; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+
+$LOAD_PATH.unshift("./../glib2/lib")
+require "gnome2-raketask"
+
+package = GNOME2Package.new do |_package|
+  _package.summary = "Ruby/GObjectIntrospection is a Ruby binding of GObjectIntrospection."
+  _package.description = "Ruby/GObjectIntrospection is a Ruby binding of GObjectIntrospection."
+  _package.dependency.gem.runtime = ["glib2"]
+  _package.dependency.gem.development = [["test-unit", ">= 2"]]
+  _package.win32.packages = []
+  _package.win32.dependencies = []
+  _package.win32.build_dependencies = ["glib2"]
+  libffi_lib_dir     = File.join(_package.win32.package.root_dir, "..",
+                                 "glib2", "vendor", "local", "lib")
+  libffi_include_dir = File.join(libffi_lib_dir, "libffi-3.0.6", "include")
+  _package.win32.build_packages = [
+    {
+      :name => "gobject-introspection",
+      :download_site => :gnome,
+      :label => "gobject-introspection",
+      :version => "1.35.3",
+      :include_paths => [
+        libffi_include_dir,
+      ],
+      :library_paths => [
+        libffi_lib_dir,
+      ],
+      :configure_args => [],
+      :compression_method => "xz",
+    },
+  ]
+end
+package.define_tasks

data/ext/gobject-introspection/extconf.rb

@@ -0,0 +1,97 @@
+#!/usr/bin/env ruby
+#
+# Copyright (C) 2012  Ruby-GNOME2 Project Team
+#
+# This library is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public
+# License as published by the Free Software Foundation; either
+# version 2.1 of the License, or (at your option) any later version.
+#
+# This library is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public
+# License along with this library; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+
+require "pathname"
+
+source_dir = Pathname(__FILE__).dirname
+base_dir = source_dir.parent.parent.expand_path
+top_dir = base_dir.parent.expand_path
+top_build_dir = Pathname(".").parent.parent.parent.expand_path
+
+mkmf_gnome2_dir = top_dir + "glib2" + 'lib'
+version_suffix = ""
+unless mkmf_gnome2_dir.exist?
+  if /(-\d+\.\d+\.\d+)(?:\.\d+)?\z/ =~ base_dir.basename.to_s
+    version_suffix = $1
+    mkmf_gnome2_dir = top_dir + "glib2#{version_suffix}" + 'lib'
+  end
+end
+
+$LOAD_PATH.unshift(mkmf_gnome2_dir.to_s)
+
+module_name = "gobject_introspection"
+package_id = "gobject-introspection-1.0"
+
+begin
+  require "mkmf-gnome2"
+rescue LoadError
+  require "rubygems"
+  gem "glib2"
+  require "mkmf-gnome2"
+end
+
+["glib2"].each do |package|
+  directory = "#{package}#{version_suffix}"
+  build_dir = "#{directory}/tmp/#{RUBY_PLATFORM}/#{package}/#{RUBY_VERSION}"
+  add_depend_package(package, "#{directory}/ext/#{package}",
+                     top_dir.to_s,
+                     :top_build_dir => top_build_dir.to_s,
+                     :target_build_dir => build_dir)
+end
+
+setup_win32(module_name, base_dir)
+
+unless required_pkg_config_package(package_id,
+                                   :debian => "libgirepository1.0-dev",
+                                   :fedora => "gobject-introspection-devel",
+                                   :homebrew => "gobject-introspection",
+                                   :macports => "gobject-introspection")
+  exit(false)
+end
+
+make_version_header("GI", package_id, ".")
+
+ruby_headers = ["ruby.h"]
+have_type("enum ruby_value_type", ruby_headers)
+
+gi_headers = ["girepository.h"]
+have_func("g_interface_info_find_signal", gi_headers)
+
+enum_type_prefix = "gobject-introspection-enum-types"
+include_paths = PKGConfig.cflags_only_I(package_id)
+headers = include_paths.split.inject([]) do |result, path|
+  result + Dir.glob(File.join(path.sub(/^-I/, ""), "gi{repository,types}.h"))
+end
+glib_mkenums(enum_type_prefix, headers, "G_TYPE_", ["girepository.h"])
+
+create_pkg_config_file("Ruby/GObjectIntrospection",
+                       package_id, ruby_gnome2_version,
+                       "ruby-gobject-introspection.pc")
+
+ensure_objs
+
+$defs << "-DRUBY_GOBJECT_INTROSPECTION_COMPILATION"
+create_makefile(module_name)
+
+pkg_config_dir = with_config("pkg-config-dir")
+if pkg_config_dir.is_a?(String)
+  File.open("Makefile", "ab") do |makefile|
+    makefile.puts
+    makefile.puts("pkgconfigdir=#{pkg_config_dir}")
+  end
+end

data/ext/gobject-introspection/rb-gi-arg-info.c

@@ -0,0 +1,151 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/*
+ *  Copyright (C) 2012  Ruby-GNOME2 Project Team
+ *
+ *  This library is free software; you can redistribute it and/or
+ *  modify it under the terms of the GNU Lesser General Public
+ *  License as published by the Free Software Foundation; either
+ *  version 2.1 of the License, or (at your option) any later version.
+ *
+ *  This library is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ *  Lesser General Public License for more details.
+ *
+ *  You should have received a copy of the GNU Lesser General Public
+ *  License along with this library; if not, write to the Free Software
+ *  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
+ *  MA  02110-1301  USA
+ */
+
+#include "rb-gobject-introspection.h"
+
+#define RG_TARGET_NAMESPACE rb_cGIArgInfo
+#define SELF(self) (RVAL2GI_ARG_INFO(self))
+
+GType
+gi_arg_info_get_type(void)
+{
+    static GType type = 0;
+    if (type == 0) {
+	type = g_boxed_type_register_static("GIArgInfo",
+                                            (GBoxedCopyFunc)g_base_info_ref,
+                                            (GBoxedFreeFunc)g_base_info_unref);
+    }
+    return type;
+}
+
+static VALUE
+rg_direction(VALUE self)
+{
+    GIArgInfo *info;
+
+    info = SELF(self);
+    return GI_DIRECTION2RVAL(g_arg_info_get_direction(info));
+}
+
+static VALUE
+rg_caller_allocates_p(VALUE self)
+{
+    GIArgInfo *info;
+
+    info = SELF(self);
+    return CBOOL2RVAL(g_arg_info_is_caller_allocates(info));
+}
+
+static VALUE
+rg_return_value_p(VALUE self)
+{
+    GIArgInfo *info;
+
+    info = SELF(self);
+    return CBOOL2RVAL(g_arg_info_is_return_value(info));
+}
+
+static VALUE
+rg_optional_p(VALUE self)
+{
+    GIArgInfo *info;
+
+    info = SELF(self);
+    return CBOOL2RVAL(g_arg_info_is_optional(info));
+}
+
+static VALUE
+rg_may_be_null_p(VALUE self)
+{
+    GIArgInfo *info;
+
+    info = SELF(self);
+    return CBOOL2RVAL(g_arg_info_may_be_null(info));
+}
+
+static VALUE
+rg_ownership_transfer(VALUE self)
+{
+    GIArgInfo *info;
+
+    info = SELF(self);
+    return GI_TRANSFER2RVAL(g_arg_info_get_ownership_transfer(info));
+}
+
+static VALUE
+rg_scope(VALUE self)
+{
+    GIArgInfo *info;
+
+    info = SELF(self);
+    return GI_SCOPE_TYPE2RVAL(g_arg_info_get_scope(info));
+}
+
+static VALUE
+rg_closure(VALUE self)
+{
+    GIArgInfo *info;
+
+    info = SELF(self);
+    return INT2NUM(g_arg_info_get_closure(info));
+}
+
+static VALUE
+rg_destroy(VALUE self)
+{
+    GIArgInfo *info;
+
+    info = SELF(self);
+    return INT2NUM(g_arg_info_get_destroy(info));
+}
+
+static VALUE
+rg_type(VALUE self)
+{
+    GIArgInfo *info;
+
+    info = SELF(self);
+    return GI_BASE_INFO2RVAL_WITH_UNREF(g_arg_info_get_type(info));
+}
+
+void
+rb_gi_arg_info_init(VALUE rb_mGI, VALUE rb_cGIBaseInfo)
+{
+    VALUE RG_TARGET_NAMESPACE;
+
+    RG_TARGET_NAMESPACE =
+	G_DEF_CLASS_WITH_PARENT(GI_TYPE_ARG_INFO, "ArgInfo", rb_mGI,
+				rb_cGIBaseInfo);
+
+    RG_DEF_METHOD(direction, 0);
+    RG_DEF_METHOD_P(caller_allocates, 0);
+    RG_DEF_METHOD_P(return_value, 0);
+    RG_DEF_METHOD_P(optional, 0);
+    RG_DEF_METHOD_P(may_be_null, 0);
+    RG_DEF_METHOD(ownership_transfer, 0);
+    RG_DEF_METHOD(scope, 0);
+    RG_DEF_METHOD(closure, 0);
+    RG_DEF_METHOD(destroy, 0);
+    RG_DEF_METHOD(type, 0);
+
+    G_DEF_CLASS(G_TYPE_I_DIRECTION, "Direction", rb_mGI);
+    G_DEF_CLASS(G_TYPE_I_SCOPE_TYPE, "ScopeType", rb_mGI);
+    G_DEF_CLASS(G_TYPE_I_TRANSFER, "Transfer", rb_mGI);
+}

data/ext/gobject-introspection/rb-gi-argument.c

@@ -0,0 +1,223 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/*
+ *  Copyright (C) 2012  Ruby-GNOME2 Project Team
+ *
+ *  This library is free software; you can redistribute it and/or
+ *  modify it under the terms of the GNU Lesser General Public
+ *  License as published by the Free Software Foundation; either
+ *  version 2.1 of the License, or (at your option) any later version.
+ *
+ *  This library is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ *  Lesser General Public License for more details.
+ *
+ *  You should have received a copy of the GNU Lesser General Public
+ *  License along with this library; if not, write to the Free Software
+ *  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
+ *  MA  02110-1301  USA
+ */
+
+#include "rb-gobject-introspection.h"
+
+VALUE
+rb_gi_argument_to_ruby(GIArgument *argument, GITypeInfo *type_info)
+{
+    VALUE rb_argument = Qnil;
+
+    switch (g_type_info_get_tag(type_info)) {
+      case GI_TYPE_TAG_VOID:
+        rb_argument = Qnil;
+        break;
+      case GI_TYPE_TAG_BOOLEAN:
+        rb_argument = CBOOL2RVAL(argument->v_boolean);
+        break;
+      case GI_TYPE_TAG_INT8:
+        rb_argument = INT2NUM(argument->v_int8);
+        break;
+      case GI_TYPE_TAG_UINT8:
+        rb_argument = UINT2NUM(argument->v_uint8);
+        break;
+      case GI_TYPE_TAG_INT16:
+        rb_argument = INT2NUM(argument->v_int16);
+        break;
+      case GI_TYPE_TAG_UINT16:
+        rb_argument = UINT2NUM(argument->v_uint16);
+        break;
+      case GI_TYPE_TAG_INT32:
+        rb_argument = INT2NUM(argument->v_int32);
+        break;
+      case GI_TYPE_TAG_UINT32:
+        rb_argument = UINT2NUM(argument->v_uint32);
+        break;
+      case GI_TYPE_TAG_INT64:
+        rb_argument = LONG2NUM(argument->v_int64);
+        break;
+      case GI_TYPE_TAG_UINT64:
+        rb_argument = ULONG2NUM(argument->v_uint64);
+        break;
+      case GI_TYPE_TAG_FLOAT:
+        rb_argument = DBL2NUM(argument->v_float);
+        break;
+      case GI_TYPE_TAG_DOUBLE:
+        rb_argument = DBL2NUM(argument->v_double);
+        break;
+      case GI_TYPE_TAG_GTYPE:
+        rb_argument = rbgobj_gtype_new(argument->v_size);
+        break;
+      case GI_TYPE_TAG_UTF8:
+        rb_argument = CSTR2RVAL(argument->v_string);
+        break;
+      case GI_TYPE_TAG_FILENAME:
+        /* TODO: set encoding */
+        rb_argument = CSTR2RVAL(argument->v_string);
+        break;
+      case GI_TYPE_TAG_ARRAY:
+        /* TODO */
+        break;
+      case GI_TYPE_TAG_INTERFACE:
+        {
+            GIBaseInfo *interface_info;
+            GIInfoType interface_type;
+            GType gtype;
+
+            interface_info = g_type_info_get_interface(type_info);
+            interface_type = g_base_info_get_type(interface_info);
+
+            gtype = g_registered_type_info_get_g_type(interface_info);
+            switch (interface_type) {
+              case GI_INFO_TYPE_ENUM:
+                rb_argument = GENUM2RVAL(argument->v_int32, gtype);
+                break;
+              case GI_INFO_TYPE_FLAGS:
+                rb_argument = GFLAGS2RVAL(argument->v_int32, gtype);
+                break;
+              case GI_INFO_TYPE_OBJECT:
+                rb_argument = GOBJ2RVAL(argument->v_pointer);
+                break;
+              case GI_INFO_TYPE_STRUCT:
+                rb_argument = BOXED2RVAL(argument->v_pointer, gtype);
+                break;
+            }
+
+            g_base_info_unref(interface_info);
+        }
+        break;
+      case GI_TYPE_TAG_GLIST:
+      case GI_TYPE_TAG_GSLIST:
+      case GI_TYPE_TAG_GHASH:
+        /* TODO */
+        break;
+      case GI_TYPE_TAG_ERROR:
+        RG_RAISE_ERROR(argument->v_pointer);
+        break;
+      case GI_TYPE_TAG_UNICHAR:
+        /* TODO */
+        break;
+      default:
+        g_assert_not_reached();
+        break;
+    }
+
+    return rb_argument;
+}
+
+GIArgument *
+rb_gi_argument_from_ruby(GIArgument *argument, GITypeInfo *type_info,
+                         VALUE rb_argument)
+{
+    memset(argument, 0, sizeof(GIArgument));
+
+    switch (g_type_info_get_tag(type_info)) {
+      case GI_TYPE_TAG_VOID:
+        break;
+      case GI_TYPE_TAG_BOOLEAN:
+        argument->v_boolean = RVAL2CBOOL(rb_argument);
+        break;
+      case GI_TYPE_TAG_INT8:
+        argument->v_int8 = NUM2INT(rb_argument);
+        break;
+      case GI_TYPE_TAG_UINT8:
+        argument->v_uint8 = NUM2UINT(rb_argument);
+        break;
+      case GI_TYPE_TAG_INT16:
+        argument->v_int16 = NUM2INT(rb_argument);
+        break;
+      case GI_TYPE_TAG_UINT16:
+        argument->v_uint16 = NUM2UINT(rb_argument);
+        break;
+      case GI_TYPE_TAG_INT32:
+        argument->v_int32 = NUM2INT(rb_argument);
+        break;
+      case GI_TYPE_TAG_UINT32:
+        argument->v_uint32 = NUM2UINT(rb_argument);
+        break;
+      case GI_TYPE_TAG_INT64:
+        argument->v_int64 = NUM2LONG(rb_argument);
+        break;
+      case GI_TYPE_TAG_UINT64:
+        argument->v_uint64 = NUM2ULONG(rb_argument);
+        break;
+      case GI_TYPE_TAG_FLOAT:
+        argument->v_float = NUM2DBL(rb_argument);
+        break;
+      case GI_TYPE_TAG_DOUBLE:
+        argument->v_double = NUM2DBL(rb_argument);
+        break;
+      case GI_TYPE_TAG_GTYPE:
+        /* TODO: support GLib::Type and String as GType name. */
+        argument->v_size = NUM2ULONG(rb_argument);
+        break;
+      case GI_TYPE_TAG_UTF8:
+        /* TODO: support UTF-8 convert like rb_argument.encode("UTF-8"). */
+        argument->v_string = (gchar *)RVAL2CSTR(rb_argument);
+        break;
+      case GI_TYPE_TAG_FILENAME:
+        argument->v_string = (gchar *)RVAL2CSTR(rb_argument);
+        break;
+      case GI_TYPE_TAG_ARRAY:
+        /* TODO */
+        break;
+      case GI_TYPE_TAG_INTERFACE:
+        {
+            GIBaseInfo *interface_info;
+            GIInfoType interface_type;
+            GType gtype;
+
+            interface_info = g_type_info_get_interface(type_info);
+            interface_type = g_base_info_get_type(interface_info);
+
+            gtype = g_registered_type_info_get_g_type(interface_info);
+            switch (interface_type) {
+              case GI_INFO_TYPE_ENUM:
+                argument->v_int32 = RVAL2GENUM(rb_argument, gtype);
+                break;
+              case GI_INFO_TYPE_FLAGS:
+                argument->v_int32 = RVAL2GFLAGS(rb_argument, gtype);
+                break;
+              case GI_INFO_TYPE_OBJECT:
+                argument->v_pointer = RVAL2GOBJ(rb_argument);
+                break;
+              case GI_INFO_TYPE_STRUCT:
+                argument->v_pointer = RVAL2BOXED(rb_argument, gtype);
+              default:
+                break;
+            }
+
+            g_base_info_unref(interface_info);
+        }
+        break;
+      case GI_TYPE_TAG_GLIST:
+      case GI_TYPE_TAG_GSLIST:
+      case GI_TYPE_TAG_GHASH:
+      case GI_TYPE_TAG_ERROR:
+      case GI_TYPE_TAG_UNICHAR:
+        /* TODO */
+        break;
+      default:
+        g_assert_not_reached();
+        break;
+    }
+
+    return argument;
+}