#! /usr/bin/env ruby
# -*- coding: UTF-8 -*-
#
require 'ffi'
#
module Efl
    #
    module FFI
        #
        extend ::FFI::Library
        #
        def attach_fcts fcts
            fcts.each do |func|
                begin
                    attach_function(*func)
                rescue Object => e
                    puts "Could not attach #{func} #{e.message}"
                end
            end
        end
        module_function :attach_fcts
        #
        typedef :pointer, :char_p
        typedef :pointer, :short_p
        typedef :pointer, :int_p
        typedef :pointer, :long_p
        typedef :pointer, :float_p
        typedef :pointer, :double_p
        typedef :pointer, :uchar_p
        typedef :pointer, :ushort_p
        typedef :pointer, :uint_p
        typedef :pointer, :ulong_p
        typedef :pointer, :ufloat_p
        typedef :pointer, :udouble_p
        typedef :pointer, :void_p
        typedef :pointer, :string_array
        typedef :pointer, :string_array_p
        typedef :uint_p,  :uintptr_t
        #
        typedef :pointer, :eina_list_p
        typedef :pointer, :eina_hash_p
        typedef :pointer, :eina_iterator_p
        typedef :pointer, :eina_accessor_p
        typedef :pointer, :evas_p
        typedef :pointer, :evas_object_p
        typedef :pointer, :evas_object_pp
        typedef :pointer, :ecore_getopt_p
        typedef :pointer, :ecore_getopt_desc_p
        typedef :pointer, :ecore_getopt_value_p
        #
    end
    #
    module Helper
        def self.included m
            m.class_eval "def ptr; @ptr; end"
            m.class_eval "def self.func_prefixes; @func_prefixes; end"
            m.class_eval "def self.inherited sub; sub.class_eval 'def self.func_prefixes; superclass.func_prefixes; end'; end"
        end
        def === o
            @ptr === o.ptr
        end
        def address
            @ptr.address
        end
        def method_missing m, *args, &block
            if m =~/^(.*)=$/
                m_s = $1+'_set'
                args_s = '*args[0]'
            elsif m =~/^(.*)\?$/
                m_s = $1+'_get'
                args_s = '*args'
            else
                m_s = m.to_s
                args_s = '*args'
            end
            self.class.func_prefixes.each do |p|
                sym = p+m_s
                if Efl::FFI.respond_to? sym
                    self.class.class_eval "def #{m} *args, █ r=Efl::FFI.#{sym}(@ptr,#{args_s}); yield r if block_given?; r; end"
                    return self.send m, *args, &block
                end
            end
            r = Efl::FFI.send m, @ptr, *args
            self.class.class_eval "def #{m} *args, █ r=Efl::FFI.#{m}(@ptr,#{args_s}); yield r if block_given?; r; end"
            r
        end
    end
end
#
require 'efl/ffi/eina/eina_types'
#
# EOF