gir_ffi 0.6.6 → 0.6.7

data/lib/gir_ffi/builder/field.rb

@@ -1,60 +0,0 @@
-require 'gir_ffi/argument_builder'
-require 'gir_ffi/return_value_builder'
-require 'gir_ffi/variable_name_generator'
-require 'gir_ffi/setter_argument_info'
-
-module GirFFI
-  module Builder
-    # Creates field getter and setter code for a given IFieldInfo.
-    class Field
-      def initialize field_info, lib_module, struct_class
-        @info = field_info
-        @libmodule = lib_module
-        @struct_class = struct_class
-      end
-
-      def getter_def
-        builder = return_value_builder
-
-        return <<-CODE
-        def #{@info.name}
-          struct = #{@struct_class}.new @struct.to_ptr
-          #{builder.cvar} = struct[#{field_symbol.inspect}]
-          #{builder.post.join("\n")}
-          #{builder.retval}
-        end
-        CODE
-      end
-
-      def setter_def
-        builder = setter_builder
-        name = @info.name
-
-        return <<-CODE
-        def #{name}= #{builder.inarg}
-          #{builder.pre.join("\n")}
-          struct = #{@struct_class}.new @struct.to_ptr
-          struct[#{name.to_sym.inspect}] = #{builder.callarg}
-        end
-        CODE
-      end
-
-      private
-
-      def field_symbol
-        @info.name.to_sym
-      end
-
-      def return_value_builder
-        vargen = VariableNameGenerator.new
-        @rv_builder ||= ReturnValueBuilder.new vargen, @info.field_type, false
-      end
-
-      def setter_builder
-        vargen = VariableNameGenerator.new
-        argument_info = SetterArgumentInfo.new "value", @info.field_type
-        ArgumentBuilder.new vargen, argument_info
-      end
-    end
-  end
-end

data/lib/gir_ffi/builder/module.rb

@@ -1,127 +0,0 @@
-require 'gir_ffi/builder_helper'
-require 'gir_ffi/module_base'
-require 'gir_ffi/function_builder'
-require 'indentation'
-
-module GirFFI
-  # Builds a module based on information found in the introspection
-  # repository.
-  class Builder::Module
-    include BuilderHelper
-
-    def initialize namespace, version=nil
-      @namespace = namespace
-      @version = version
-      # FIXME: Pass safe namespace as an argument
-      @safe_namespace = @namespace.gsub(/^(.)/) { $1.upcase }
-    end
-
-    def generate
-      build_module
-    end
-
-    def setup_method method
-      go = function_introspection_data method.to_s
-
-      return false if go.nil?
-
-      modul = build_module
-      lib = modul.const_get(:Lib)
-
-      Builder.attach_ffi_function lib, go
-      definition = function_definition(go, lib)
-      modul.class_eval definition
-
-      true
-    end
-
-    def build_namespaced_class classname
-      info = gir.find_by_name @namespace, classname.to_s
-      if info.nil?
-        raise NameError.new(
-          "Class #{classname} not found in namespace #{@namespace}")
-      end
-      Builder.build_class info
-    end
-
-    def build_module
-      unless defined? @module
-        build_dependencies
-        instantiate_module
-        setup_lib_for_ffi
-        setup_module unless already_set_up
-      end
-      @module
-    end
-
-    private
-
-    def build_dependencies
-      deps = gir.dependencies @namespace
-      deps.each {|dep|
-        name, version = dep.split '-'
-        Builder.build_module name, version
-      }
-    end
-
-    def instantiate_module
-      @module = get_or_define_module ::Object, @safe_namespace
-    end
-
-    def setup_module
-      @module.extend ModuleBase
-      @module.const_set :GIR_FFI_BUILDER, self
-    end
-
-    def already_set_up
-      @module.respond_to? :method_missing
-    end
-
-    def setup_lib_for_ffi
-      @lib = get_or_define_module @module, :Lib
-
-      unless (class << @lib; self.include? GirFFI::Library; end)
-        @lib.extend GirFFI::Library
-        @lib.ffi_lib_flags :global, :lazy
-        libspec = gir.shared_library(@namespace)
-        unless libspec.nil?
-          @lib.ffi_lib(*libspec.split(/,/))
-        end
-      end
-    end
-
-    def sub_builder info
-      if info.info_type == :function
-        FunctionBuilder.new(info, libmodule)
-      else
-        Builder::Type.builder_for info
-      end
-    end
-
-    def libmodule
-      @module.const_get(:Lib)
-    end
-
-    def function_introspection_data function
-      info = gir.find_by_name @namespace, function.to_s
-      return nil if info.nil?
-      info.info_type == :function ? info : nil
-    end
-
-    def function_definition info, libmodule
-      FunctionBuilder.new(info, libmodule).generate
-    end
-
-    def gir
-      unless defined? @gir
-        @gir = GObjectIntrospection::IRepository.default
-        @gir.require @namespace, @version
-      end
-      @gir
-    end
-
-    def get_or_define_module parent, name
-      optionally_define_constant(parent, name) { Module.new }
-    end
-  end
-end

data/lib/gir_ffi/builder/type.rb

@@ -1,39 +0,0 @@
-require 'gir_ffi/builder/type/callback'
-require 'gir_ffi/builder/type/constant'
-require 'gir_ffi/builder/type/enum'
-require 'gir_ffi/builder/type/interface'
-require 'gir_ffi/builder/type/object'
-require 'gir_ffi/builder/type/struct'
-require 'gir_ffi/builder/type/unintrospectable'
-require 'gir_ffi/builder/type/union'
-
-module GirFFI
-  # Builds a class based on information found in the introspection
-  # repository.
-  module Builder
-    module Type
-      CACHE = {}
-
-      TYPE_MAP = {
-        :callback => Callback,
-        :constant => Constant,
-        :enum => Enum,
-        :flags => Enum,
-        :interface => Interface,
-        :object => Object,
-        :struct => Struct,
-        :union => Union,
-        :unintrospectable => Unintrospectable
-      }
-
-      def self.build info
-        TYPE_MAP[info.info_type].new(info).build_class
-      end
-
-      # TODO: Pull up to include :function and :module
-      def self.builder_for info
-        TYPE_MAP[info.info_type].new(info)
-      end
-    end
-  end
-end

data/lib/gir_ffi/builder/type/base.rb

@@ -1,48 +0,0 @@
-require 'gir_ffi/builder_helper'
-
-module GirFFI
-  module Builder
-    module Type
-
-      # Base class for type builders.
-      class Base
-        include BuilderHelper
-
-        def initialize info
-          @info = info
-          @namespace = @info.namespace
-          @classname = @info.safe_name
-        end
-
-        def build_class
-          unless defined? @klass
-            instantiate_class
-          end
-          @klass
-        end
-
-        attr_reader :info
-
-        private
-
-        def namespace_module
-          @namespace_module ||= Builder.build_module @namespace
-        end
-
-        def lib
-          @lib ||= namespace_module.const_get :Lib
-        end
-
-        def get_or_define_class namespace, name, parent
-          optionally_define_constant(namespace, name) {
-            Class.new parent
-          }
-        end
-
-        def gir
-          @gir ||= GObjectIntrospection::IRepository.default
-        end
-      end
-    end
-  end
-end

data/lib/gir_ffi/builder/type/callback.rb

@@ -1,30 +0,0 @@
-require 'gir_ffi/builder/type/base'
-module GirFFI
-  module Builder
-    module Type
-
-      # Implements the creation of a callback type. The type will be
-      # attached to the appropriate namespace module, and will be defined
-      # as a callback for FFI.
-      class Callback < Base
-        def instantiate_class
-          @klass = optionally_define_constant namespace_module, @classname do
-            lib.callback callback_sym, argument_types, return_type
-          end
-        end
-
-        def callback_sym
-          @classname.to_sym
-        end
-
-        def argument_types
-          @info.argument_ffi_types
-        end
-
-        def return_type
-          @info.return_ffi_type
-        end
-      end
-    end
-  end
-end

data/lib/gir_ffi/builder/type/constant.rb

@@ -1,22 +0,0 @@
-require 'gir_ffi/builder/type/base'
-module GirFFI
-  module Builder
-    module Type
-
-      # Implements the creation of a constant. Though semantically not a
-      # type, its build method is like that of the types, in that it is
-      # triggered by a missing constant in the parent namespace.  The
-      # constant will be attached to the appropriate namespace module.
-      class Constant < Base
-        private
-
-        def instantiate_class
-          @klass = optionally_define_constant namespace_module, @classname do
-            info.value
-          end
-        end
-      end
-    end
-  end
-end
-

data/lib/gir_ffi/builder/type/enum.rb

@@ -1,66 +0,0 @@
-require 'gir_ffi/builder/type/registered_type'
-require 'gir_ffi/builder/type/with_methods'
-require 'gir_ffi/enum_base'
-
-module GirFFI
-  module Builder
-    module Type
-
-      # Implements the creation of an enum or flags type. The type will be
-      # attached to the appropriate namespace module, and will be defined
-      # as an enum for FFI.
-      class Enum < RegisteredType
-        include WithMethods
-
-        private
-
-        def enum_sym
-          @classname.to_sym
-        end
-
-        def value_spec
-          return info.values.map {|vinfo|
-            val = GirFFI::ArgHelper.cast_uint32_to_int32(vinfo.value)
-            [vinfo.name.to_sym, val]
-          }.flatten
-        end
-
-        def instantiate_class
-          @klass = get_or_define_module namespace_module, @classname
-          @enum = optionally_define_constant @klass, :Enum do
-            lib.enum(enum_sym, value_spec)
-          end
-          unless already_set_up
-            @klass.extend superclass
-            setup_constants
-            setup_gtype_getter
-            stub_methods
-            setup_inspect
-          end
-        end
-
-        def setup_inspect
-          @klass.instance_eval <<-EOS
-            def self.inspect
-              "#{@namespace}::#{@classname}"
-            end
-          EOS
-        end
-
-        def already_set_up
-          @klass.respond_to? :get_gtype
-        end
-
-        def superclass
-          @superclass ||= EnumBase
-        end
-
-        # FIXME: Remove duplication with Builder::Module
-        def get_or_define_module parent, name
-          optionally_define_constant(parent, name) { ::Module.new }
-        end
-      end
-    end
-  end
-end
-

data/lib/gir_ffi/builder/type/interface.rb

@@ -1,33 +0,0 @@
-require 'gir_ffi/builder/type/registered_type'
-require 'gir_ffi/builder/type/with_methods'
-require 'gir_ffi/interface_base'
-
-module GirFFI
-  module Builder
-    module Type
-
-      # Implements the creation of a module representing an Interface.
-      class Interface < RegisteredType
-        include WithMethods
-
-        private
-
-        # FIXME: The word 'class' is not really correct.
-        def instantiate_class
-          @klass = optionally_define_constant(namespace_module, @classname) do
-            ::Module.new
-          end
-          setup_module unless already_set_up
-        end
-
-        def setup_module
-          @klass.extend InterfaceBase
-          setup_constants
-          stub_methods
-          setup_gtype_getter
-        end
-      end
-    end
-  end
-end
-

data/lib/gir_ffi/builder/type/object.rb

@@ -1,134 +0,0 @@
-require 'gir_ffi/builder/type/registered_type'
-require 'gir_ffi/builder/type/with_layout'
-require 'gir_ffi/builder/type/with_methods'
-require 'gir_ffi/builder/property'
-require 'gir_ffi/object_base'
-
-module GirFFI
-  module Builder
-    module Type
-
-      # Implements the creation of a class representing a GObject Object.
-      class Object < RegisteredType
-        include WithMethods
-        include WithLayout
-
-        def find_signal signal_name
-          signal_definers.each do |inf|
-            inf.signals.each do |sig|
-              return sig if sig.name == signal_name
-            end
-          end
-          if parent
-            return superclass.find_signal signal_name
-          end
-          raise "Signal #{signal_name} not found"
-        end
-
-        def find_property property_name
-          info.properties.each do |prop|
-            return prop if prop.name == property_name
-          end
-          if parent
-            return superclass.find_property property_name
-          end
-          raise "Property #{property_name} not found"
-        end
-
-        private
-
-        def setup_class
-          setup_layout
-          setup_constants
-          stub_methods
-          setup_gtype_getter
-          if info.fundamental?
-            setup_field_accessors
-          else
-            setup_property_accessors
-          end
-          setup_vfunc_invokers
-          setup_interfaces
-        end
-
-        # FIXME: Private method only used in subclass
-        def layout_superclass
-          FFI::Struct
-        end
-
-        def parent
-          unless defined? @parent
-            pr = info.parent
-            if pr.nil? or (pr.safe_name == @classname and pr.namespace == @namespace)
-              @parent = nil
-            else
-              @parent = pr
-            end
-          end
-          @parent
-        end
-
-        def superclass
-          @superclass ||= if parent
-                            Builder.build_class parent
-                          else
-                            ObjectBase
-                          end
-        end
-
-        # TODO: Unify with field accessor setup.
-        def setup_property_accessors
-          info.properties.each do |prop|
-            setup_accessors_for_property_info prop
-          end
-        end
-
-        def setup_accessors_for_property_info prop
-          builder = Builder::Property.new prop
-          unless has_instance_method prop.getter_name
-            @klass.class_eval builder.getter_def
-          end
-          @klass.class_eval builder.setter_def
-        end
-
-        # TODO: Guard agains accidental invocation of undefined vfuncs.
-        # TODO: Create object responsible for creating these invokers
-        def setup_vfunc_invokers
-          info.vfuncs.each do |vfinfo|
-            if (invoker = vfinfo.invoker)
-              define_vfunc_invoker vfinfo.name, invoker.name
-            end
-          end
-        end
-
-        def define_vfunc_invoker vfunc_name, invoker_name
-          return if vfunc_name == invoker_name
-          @klass.class_eval "
-            def #{vfunc_name} *args, &block
-              #{invoker_name}(*args, &block)
-            end
-          "
-        end
-
-        def setup_interfaces
-          interfaces.each do |iface|
-            @klass.class_eval do
-              include iface
-            end
-          end
-        end
-
-        def signal_definers
-          [info] + info.interfaces
-        end
-
-        def interfaces
-          info.interfaces.map do |ifinfo|
-            GirFFI::Builder.build_class ifinfo
-          end
-        end
-      end
-    end
-  end
-end
-