require 'singleton'

require 'ffi-gobject_introspection/lib'
require 'ffi-gobject_introspection/g_error'
require 'ffi-gobject_introspection/i_base_info'
require 'ffi-gobject_introspection/i_callable_info'
require 'ffi-gobject_introspection/i_callback_info'
require 'ffi-gobject_introspection/i_function_info'
require 'ffi-gobject_introspection/i_constant_info'
require 'ffi-gobject_introspection/i_field_info'
require 'ffi-gobject_introspection/i_registered_type_info'
require 'ffi-gobject_introspection/i_interface_info'
require 'ffi-gobject_introspection/i_property_info'
require 'ffi-gobject_introspection/i_vfunc_info'
require 'ffi-gobject_introspection/i_signal_info'
require 'ffi-gobject_introspection/i_object_info'
require 'ffi-gobject_introspection/i_struct_info'
require 'ffi-gobject_introspection/i_value_info'
require 'ffi-gobject_introspection/i_union_info'
require 'ffi-gobject_introspection/i_enum_info'
require 'ffi-gobject_introspection/i_flags_info'
require 'ffi-gobject_introspection/i_unresolved_info'

module GObjectIntrospection
  # The Gobject Introspection Repository. This class is the point of
  # access to the introspection typelibs.
  # This class wraps the GIRepository struct.
  class IRepository
    # Map info type to class. Default is IBaseInfo.
    # SMELL: This doesn't really belong here, since it is used by IBaseInfo and
    # descendants as well.
    TYPEMAP = {
      invalid:                  IBaseInfo,
      function:                 IFunctionInfo,
      callback:                 ICallbackInfo,
      struct:                   IStructInfo,
      # TODO: There's no GIBoxedInfo, so what does :boxed mean?
      boxed:                    IBaseInfo,
      enum:                     IEnumInfo,
      flags:                    IFlagsInfo,
      object:                   IObjectInfo,
      interface:                IInterfaceInfo,
      constant:                 IConstantInfo,
      invalid_was_error_domain: IBaseInfo,
      union:                    IUnionInfo,
      value:                    IValueInfo,
      signal:                   ISignalInfo,
      vfunc:                    IVFuncInfo,
      property:                 IPropertyInfo,
      field:                    IFieldInfo,
      arg:                      IArgInfo,
      type:                     ITypeInfo,
      unresolved:               IUnresolvedInfo
    }

    def initialize
      @gobj = Lib.g_irepository_get_default
    end

    include Singleton

    def self.default
      instance
    end

    def self.prepend_search_path path
      Lib.g_irepository_prepend_search_path path
    end

    def self.type_tag_to_string type
      Lib.g_type_tag_to_string type
    end

    def require namespace, version = nil, flags = 0
      errpp = FFI::MemoryPointer.new(:pointer).write_pointer nil

      Lib.g_irepository_require @gobj, namespace, version, flags, errpp

      errp = errpp.read_pointer
      raise GError.new(errp).message unless errp.null?
    end

    def n_infos namespace
      Lib.g_irepository_get_n_infos @gobj, namespace
    end

    def info namespace, index
      wrap_info Lib.g_irepository_get_info(@gobj, namespace, index)
    end

    # Utility method
    def infos namespace
      (0..(n_infos(namespace) - 1)).map do |idx|
        info namespace, idx
      end
    end

    def find_by_name namespace, name
      wrap_info Lib.g_irepository_find_by_name(@gobj, namespace, name)
    end

    def find_by_gtype gtype
      raise ArgumentError, "Type #{gtype} is not a valid type" if gtype == 0
      wrap_info Lib.g_irepository_find_by_gtype(@gobj, gtype)
    end

    def dependencies namespace
      strv_p = Lib.g_irepository_get_dependencies(@gobj, namespace)
      strv = GLib::Strv.new strv_p
      strv.to_a
    end

    def shared_library namespace
      Lib.g_irepository_get_shared_library @gobj, namespace
    end

    def version namespace
      Lib.g_irepository_get_version @gobj, namespace
    end

    def self.wrap_ibaseinfo_pointer ptr
      return nil if ptr.null?
      type = Lib.g_base_info_get_type ptr
      klass = TYPEMAP[type]
      klass.wrap ptr
    end

    private

    def wrap_info ptr
      self.class.wrap_ibaseinfo_pointer ptr
    end
  end
end