add eina_list and specs

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