diff options
Diffstat (limited to 'lib/efl')
| -rw-r--r-- | lib/efl/eina_list.rb | 78 | ||||
| -rw-r--r-- | lib/efl/ffi/eina_list.rb | 105 |
2 files changed, 183 insertions, 0 deletions
diff --git a/lib/efl/eina_list.rb b/lib/efl/eina_list.rb new file mode 100644 index 0000000..823fe72 --- /dev/null +++ b/lib/efl/eina_list.rb @@ -0,0 +1,78 @@ +#! /usr/bin/env ruby +# -*- coding: UTF-8 -*- +# +require 'efl/eina' +require 'efl/ffi/eina_list' +# +class Array + def self.from_eina_list o + if o.is_a? Efl::Eina::EinaList + o.to_ary + elsif o.is_a? ::FFI::Pointer + Efl::Eina::EinaList.new(o).to_ary + else + raise ArgumentError.new " wrong argument #{o.class.name}" + end + end +end +module Efl + module FFI + class EinaList < ::FFI::Struct + layout :data, :pointer, + :next, :pointer, + :prev, :pointer, + :accounting, :pointer, + :magic, :uint, + end + end + module Eina + # + class EinaList + include Efl::Helper + include Enumerable + @func_prefixes = [ 'eina_list_' ].freeze + def initialize o=nil + @ptr = ( + case o + when ::FFI::Pointer + o + when NilClass + ::FFI::Pointer::NULL + when self.class + o.ptr + when Array + o.inject(::FFI::Pointer::NULL) { |p,e| Efl::FFI::eina_list_append p, e } + else + raise ArgumentError.new "#{ptr.class} valid argument" + end + ) + end + def free + return if @ptr==::FFI::Pointer::NULL + @ptr = Efl::FFI.eina_list_free @ptr + end + def each + p = @ptr + while p!=::FFI::Pointer::NULL + l = Efl::FFI::EinaList.new p + yield l[:data] + p = l[:next] + end + end + def to_ary + inject([]) { |s,e| s<<e } + end + # for fun and tests + def append p + @ptr = Efl::FFI.eina_list_append @ptr, p + end + alias :<< :append + def prepend p + @ptr = Efl::FFI.eina_list_prepend @ptr, p + end + alias :unshift :prepend + end + end +end +# +# EOF diff --git a/lib/efl/ffi/eina_list.rb b/lib/efl/ffi/eina_list.rb new file mode 100644 index 0000000..12001c6 --- /dev/null +++ b/lib/efl/ffi/eina_list.rb @@ -0,0 +1,105 @@ +#! /usr/bin/env ruby +# -*- coding: UTF-8 -*- +# +require 'efl/ffi' +# +module Efl + # + module EinaList + def self.method_missing m, *args, &block + return Efl::FFI.send 'eina_list_'+m.to_s, *args, &block + end + end + # + module FFI + # + # + ffi_lib 'eina' + # + # ENUMS + # + # TYPEDEFS + # typedef struct _Eina_List Eina_List; + typedef :pointer, :eina_list + typedef :pointer, :eina_list_p + typedef :pointer, :eina_list_pp + # typedef struct _Eina_List_Accounting Eina_List_Accounting; + typedef :pointer, :eina_list_accounting + # + # CALLBACKS + # + # FUNCTIONS + fcts = [ + # EAPI Eina_List *eina_list_append(Eina_List *list, const void *data); + [ :eina_list_append, [ :eina_list_p, :void_p ], :eina_list_p ], + # EAPI Eina_List *eina_list_prepend(Eina_List *list, const void *data); + [ :eina_list_prepend, [ :eina_list_p, :void_p ], :eina_list_p ], + # EAPI Eina_List *eina_list_append_relative(Eina_List *list, const void *data, const void *relative); + [ :eina_list_append_relative, [ :eina_list_p, :void_p, :void_p ], :eina_list_p ], + # EAPI Eina_List *eina_list_append_relative_list(Eina_List *list, const void *data, Eina_List *relative); + [ :eina_list_append_relative_list, [ :eina_list_p, :void_p, :eina_list_p ], :eina_list_p ], + # EAPI Eina_List *eina_list_prepend_relative(Eina_List *list, const void *data, const void *relative); + [ :eina_list_prepend_relative, [ :eina_list_p, :void_p, :void_p ], :eina_list_p ], + # EAPI Eina_List *eina_list_prepend_relative_list(Eina_List *list, const void *data, Eina_List *relative); + [ :eina_list_prepend_relative_list, [ :eina_list_p, :void_p, :eina_list_p ], :eina_list_p ], + # EAPI Eina_List *eina_list_sorted_insert(Eina_List *list, Eina_Compare_Cb func, const void *data); + [ :eina_list_sorted_insert, [ :eina_list_p, :eina_compare_cb, :void_p ], :eina_list_p ], + # EAPI Eina_List *eina_list_remove(Eina_List *list, const void *data); + [ :eina_list_remove, [ :eina_list_p, :void_p ], :eina_list_p ], + # EAPI Eina_List *eina_list_remove_list(Eina_List *list, Eina_List *remove_list); + [ :eina_list_remove_list, [ :eina_list_p, :eina_list_p ], :eina_list_p ], + # EAPI Eina_List *eina_list_promote_list(Eina_List *list, Eina_List *move_list); + [ :eina_list_promote_list, [ :eina_list_p, :eina_list_p ], :eina_list_p ], + # EAPI Eina_List *eina_list_demote_list(Eina_List *list, Eina_List *move_list); + [ :eina_list_demote_list, [ :eina_list_p, :eina_list_p ], :eina_list_p ], + # EAPI void *eina_list_data_find(const Eina_List *list, const void *data) EINA_PURE; + [ :eina_list_data_find, [ :eina_list_p, :void_p ], :void_p ], + # EAPI Eina_List *eina_list_data_find_list(const Eina_List *list, const void *data) EINA_PURE; + [ :eina_list_data_find_list, [ :eina_list_p, :void_p ], :eina_list_p ], + # EAPI Eina_Bool eina_list_move(Eina_List **to, Eina_List **from, void *data); + [ :eina_list_move, [ :eina_list_pp, :eina_list_pp, :void_p ], :eina_bool ], + # EAPI Eina_Bool eina_list_move_list(Eina_List **to, Eina_List **from, Eina_List *data); + [ :eina_list_move_list, [ :eina_list_pp, :eina_list_pp, :eina_list_p ], :eina_bool ], + # EAPI Eina_List *eina_list_free(Eina_List *list); + [ :eina_list_free, [ :eina_list_p ], :eina_list_p ], + # EAPI void *eina_list_nth(const Eina_List *list, unsigned int n) EINA_PURE EINA_WARN_UNUSED_RESULT; + [ :eina_list_nth, [ :eina_list_p, :uint ], :void_p ], + # EAPI Eina_List *eina_list_nth_list(const Eina_List *list, unsigned int n) EINA_PURE EINA_WARN_UNUSED_RESULT; + [ :eina_list_nth_list, [ :eina_list_p, :uint ], :eina_list_p ], + # EAPI Eina_List *eina_list_reverse(Eina_List *list) EINA_WARN_UNUSED_RESULT; + [ :eina_list_reverse, [ :eina_list_p ], :eina_list_p ], + # EAPI Eina_List *eina_list_reverse_clone(const Eina_List *list) EINA_WARN_UNUSED_RESULT; + [ :eina_list_reverse_clone, [ :eina_list_p ], :eina_list_p ], + # EAPI Eina_List *eina_list_clone(const Eina_List *list) EINA_WARN_UNUSED_RESULT; + [ :eina_list_clone, [ :eina_list_p ], :eina_list_p ], + # EAPI Eina_List *eina_list_sort(Eina_List *list, unsigned int size, Eina_Compare_Cb func); + [ :eina_list_sort, [ :eina_list_p, :uint, :eina_compare_cb ], :eina_list_p ], + # EAPI Eina_List *eina_list_merge(Eina_List *left, Eina_List *right) EINA_WARN_UNUSED_RESULT; + [ :eina_list_merge, [ :eina_list_p, :eina_list_p ], :eina_list_p ], + # EAPI Eina_List *eina_list_sorted_merge(Eina_List *left, Eina_List *right, Eina_Compare_Cb func); + [ :eina_list_sorted_merge, [ :eina_list_p, :eina_list_p, :eina_compare_cb ], :eina_list_p ], + # EAPI Eina_List *eina_list_split_list(Eina_List *list, Eina_List *relative, Eina_List **right) EINA_WARN_UNUSED_RESULT; + [ :eina_list_split_list, [ :eina_list_p, :eina_list_p, :eina_list_pp ], :eina_list_p ], + # EAPI Eina_List *eina_list_search_sorted_near_list(const Eina_List *list, Eina_Compare_Cb func, const void *data, int *result_cmp); + [ :eina_list_search_sorted_near_list, [ :eina_list_p, :eina_compare_cb, :void_p, :int_p ], :eina_list_p ], + # EAPI Eina_List *eina_list_search_sorted_list(const Eina_List *list, Eina_Compare_Cb func, const void *data); + [ :eina_list_search_sorted_list, [ :eina_list_p, :eina_compare_cb, :void_p ], :eina_list_p ], + # EAPI void *eina_list_search_sorted(const Eina_List *list, Eina_Compare_Cb func, const void *data); + [ :eina_list_search_sorted, [ :eina_list_p, :eina_compare_cb, :void_p ], :void_p ], + # EAPI Eina_List *eina_list_search_unsorted_list(const Eina_List *list, Eina_Compare_Cb func, const void *data); + [ :eina_list_search_unsorted_list, [ :eina_list_p, :eina_compare_cb, :void_p ], :eina_list_p ], + # EAPI void *eina_list_search_unsorted(const Eina_List *list, Eina_Compare_Cb func, const void *data); + [ :eina_list_search_unsorted, [ :eina_list_p, :eina_compare_cb, :void_p ], :void_p ], + # EAPI Eina_Iterator *eina_list_iterator_new(const Eina_List *list) EINA_MALLOC EINA_WARN_UNUSED_RESULT; + [ :eina_list_iterator_new, [ :eina_list_p ], :eina_iterator_p ], + # EAPI Eina_Iterator *eina_list_iterator_reversed_new(const Eina_List *list) EINA_MALLOC EINA_WARN_UNUSED_RESULT; + [ :eina_list_iterator_reversed_new, [ :eina_list_p ], :eina_iterator_p ], + # EAPI Eina_Accessor *eina_list_accessor_new(const Eina_List *list) EINA_MALLOC EINA_WARN_UNUSED_RESULT; + [ :eina_list_accessor_new, [ :eina_list_p ], :eina_accessor_p ], + ] + # + attach_fcts fcts + end +end +# +# EOF |