diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/efl.rb | 85 | ||||
| -rw-r--r-- | lib/efl/ffi.rb | 202 |
2 files changed, 73 insertions, 214 deletions
@@ -1,23 +1,84 @@ #! /usr/bin/env ruby # -*- coding: UTF-8 -*- # +require 'ffi' # module Efl # VERSION = '0.0.10' # - autoload :EcoreEvas, './lib/efl/ecore_evas.rb' - autoload :EcoreGetopt, './lib/efl/ecore_getopt.rb' - autoload :EcoreInput, './lib/efl/ecore_input.rb' - autoload :Ecore, './lib/efl/ecore.rb' - autoload :Edje, './lib/efl/edje.rb' - autoload :Eet, './lib/efl/eet.rb' - autoload :EinaHash, './lib/efl/eina_hash.rb' - autoload :EinaList, './lib/efl/eina_list.rb' - autoload :EinaLog, './lib/efl/eina_log.rb' - autoload :Eina, './lib/efl/eina.rb' - autoload :Elm, './lib/efl/elementary.rb' - autoload :Evas, './lib/efl/evas.rb' + module Native + # + extend FFI::Library + # + def self.attach_fcts fcts + fcts.each do |func| + begin + attach_function(*func) + rescue Object => e + puts "Could not attach #{func} #{e.message}" + end + end + end + # + class << self + # keep + alias :ffi_lib_orig :ffi_lib + def ffi_lib *names + @all_ffi_libs||=[] + @all_ffi_libs += ffi_lib_orig(names) + @all_ffi_libs.uniq! + end + def find_variable name + @all_ffi_libs.each do |lib| + address = lib.find_variable name + return address if not address.nil? + end + return nil + end + end + # + class VersionStruct < FFI::Struct + layout :major, :int, + :minor, :int, + :micro, :int, + :revision, :int + + def full + [:major,:minor,:micro,:revision].collect { |e| self[e].to_s }.join '.' + end + end + end + # + module MethResolver + def self.resolve mod, meth, prefix + meth_s = meth.to_s + if meth_s =~/^(.*)=$/ + meth_s = $1+'_set' + args_s = '*args[0]' + elsif meth_s =~/^(.*)\?$/ + meth_s = $1+'_get' + args_s = '*args' + else + args_s = '*args' + end + sym = ( + if Efl::Native.respond_to? prefix+meth_s + prefix+meth_s + elsif Efl::Native.respond_to? meth_s + meth_s + elsif Efl::Native.respond_to? prefix+meth_s+'_get' + prefix+meth_s+'_get' + elsif Efl::Native.respond_to? meth_s+'_get' + meth_s+'_get' + else + raise NameError.new "#{mod.name}.#{meth_s} (#{meth})" + end + ) + mod.module_eval "def self.#{meth} *args, █ r=Efl::Native.#{sym}(#{args_s}); yield r if block_given?; r; end" + sym + end + end end # # EOF diff --git a/lib/efl/ffi.rb b/lib/efl/ffi.rb deleted file mode 100644 index 98a9d69..0000000 --- a/lib/efl/ffi.rb +++ /dev/null @@ -1,202 +0,0 @@ -#! /usr/bin/env ruby -# -*- coding: UTF-8 -*- -# -require 'ffi' -# -module Efl - # - module Native - # - extend FFI::Library - # - def self.attach_fcts fcts - fcts.each do |func| - begin - attach_function(*func) - rescue Object => e - puts "Could not attach #{func} #{e.message}" - end - end - end - # - class << self - alias :ffi_lib_orig :ffi_lib - def ffi_lib *names - @all_ffi_libs||=[] - @all_ffi_libs += ffi_lib_orig(names) - @all_ffi_libs.uniq! - end - def find_variable name - @all_ffi_libs.each do |lib| - address = lib.find_variable name - return address if not address.nil? - end - return nil - end - end - # - 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 :bool, :eina_bool - typedef :pointer, :eina_bool_p - 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, :evas_gl_api_p - typedef :pointer, :ecore_getopt_p - typedef :pointer, :ecore_getopt_desc_p - typedef :pointer, :ecore_getopt_value_p - # - callback :eina_compare_cb, [ :void_p, :void_p ], :int - callback :eina_each_cb, [ :void_p, :void_p, :void_p ], :eina_bool - callback :eina_free_cb, [ :void_p ], :void - # - class VersionStruct < FFI::Struct - layout :major, :int, - :minor, :int, - :micro, :int, - :revision, :int - - def full - [:major,:minor,:micro,:revision].collect { |e| self[e].to_s }.join '.' - end - end - end - # - module ModuleHelper - def find_function m, prefix - m_s = m.to_s - if m_s =~/^(.*)=$/ - m_s = $1+'_set' - args_s = '*args[0]' - elsif m_s =~/^(.*)\?$/ - m_s = $1+'_get' - args_s = '*args' - else - args_s = '*args' - end - sym = ( - if Efl::Native.respond_to? prefix+m_s - prefix+m_s - elsif Efl::Native.respond_to? m_s - m_s - elsif Efl::Native.respond_to? prefix+m_s+'_get' - prefix+m_s+'_get' - elsif Efl::Native.respond_to? m_s+'_get' - m_s+'_get' - else - raise NameError.new "#{self.name}.#{m_s} (#{m})" - end - ) - [sym, args_s] - end - module_function :find_function - end - # - module MethResolver - def self.resolve mod, meth, prefix - meth_s = meth.to_s - if meth_s =~/^(.*)=$/ - meth_s = $1+'_set' - args_s = '*args[0]' - elsif meth_s =~/^(.*)\?$/ - meth_s = $1+'_get' - args_s = '*args' - else - args_s = '*args' - end - sym = ( - if Efl::Native.respond_to? prefix+meth_s - prefix+meth_s - elsif Efl::Native.respond_to? meth_s - meth_s - elsif Efl::Native.respond_to? prefix+meth_s+'_get' - prefix+meth_s+'_get' - elsif Efl::Native.respond_to? meth_s+'_get' - meth_s+'_get' - else - raise NameError.new "#{mod.name}.#{meth_s} (#{meth})" - end - ) - mod.module_eval "def self.#{meth} *args, █ r=Efl::Native.#{sym}(#{args_s}); yield r if block_given?; r; end" - sym - end - end - # - module ClassHelper - def to_a; [self] end - def to_ary; [self] end - def to_s; Object.instance_method(:to_s).bind(self).call+' ['+self.to_ptr.to_s+']' end - def to_ptr; @ptr; end - def === o; @ptr === o.to_ptr; end - def null?; @ptr.null?; end - def address; @ptr.address; end - def self.included kls - # create class instance @search_prefixes - kls.class_eval "@search_prefixes ||=[]" - # access and prepend *args to @search_prefixes - kls.class_eval "def self.search_prefixes *args; @search_prefixes.unshift *args unless args.empty?; @search_prefixes; end" - # on inheritance, copy ancestor's @search_prefixes - kls.class_eval <<-EOF - def self.inherited sub - sub.class_eval '@search_prefixes = []' - sub.search_prefixes *self.search_prefixes - end - EOF - end - def method_missing m, *args, &block - m_s = m.to_s - if m_s =~/^(.*)=$/ - m_s = $1+'_set' - args_s = '*args[0]' - elsif m_s =~/^(.*)\?$/ - m_s = $1+'_get' - args_s = '*args' - else - args_s = '*args' - end - (['']+self.class.search_prefixes).each do |p| - sym = p+m_s - meth = ( - if Efl::Native.respond_to? sym - sym - elsif Efl::Native.respond_to? m_s - m_s - elsif Efl::Native.respond_to? sym+'_get' - sym+'_get' - elsif Efl::Native.respond_to? m_s+'_get' - m_s+'_get' - else - nil - end - ) - if not meth.nil? - self.class.class_eval "def #{m} *args, █ r=Efl::Native.#{meth}(@ptr,#{args_s}); yield r if block_given?; r; end" - return self.send m, *args, &block - end - end - Kernel.raise NameError.new "#{self.class.name} is unable to resolve #{m} within #{self.class.search_prefixes.inspect}" - end - end -end -# -# EOF |