diff options
Diffstat (limited to 'lib/efl/ffi.rb')
| -rw-r--r-- | lib/efl/ffi.rb | 202 |
1 files changed, 0 insertions, 202 deletions
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 |