update efl/ecore* and specs

1 files changed, 275 insertions, 0 deletions

diff --git a/lib/efl/ecore_getopt.rb b/lib/efl/ecore_getopt.rb
new file mode 100644
index 0000000..3b98eeb
--- /dev/null
+++ b/lib/efl/ecore_getopt.rb
@@ -0,0 +1,275 @@
+#! /usr/bin/env ruby
+# -*- coding: UTF-8 -*-
+#
+require 'efl/ffi/ecore_getopt'
+#
+module Efl
+    #
+    module EcoreGetopt
+        #
+        class Value < FFI::Union
+            layout  :strp,          :pointer,
+                    :boolp,         :eina_bool_p,
+                    :shortp,        :short_p,
+                    :intp,          :int_p,
+                    :longp,         :long_p,
+                    :ushortp,       :ushort_p,
+                    :uintp,         :uint_p,
+                    :ulongp,        :ulong_p,
+                    :doublep,       :double_p,
+                    :listp,         :eina_list_p,
+                    :ptrp,          :void_p,
+        end
+        #
+        class DescStoreDef < FFI::Union
+            layout  :strv,          :pointer,
+                    :boolv,         :uchar,
+                    :shortv,        :short,
+                    :intv,          :int,
+                    :longv,         :long,
+                    :ushortv,       :ushort,
+                    :uintv,         :uint,
+                    :ulongv,        :ulong,
+                    :doublev,       :double,
+        end
+        #
+        class DescStore < FFI::Struct
+            layout  :type,          :ecore_getopt_type,                 # enum
+                    :arg_req,       :ecore_getopt_desc_arg_requirement, # enum
+                    :def,           DescStoreDef,
+        end
+        #
+        callback :ecore_getopt_desc_cb, [:ecore_getopt_p, :ecore_getopt_desc_p, :string, :pointer, :ecore_getopt_value_p ], :eina_bool
+        #
+        class DescCallback < FFI::Struct
+            layout  :func,          :ecore_getopt_desc_cb,
+                    :data,          :pointer,
+                    :arg_req,       :ecore_getopt_desc_arg_requirement, # enum
+                    :def,           :pointer,
+        end
+        #
+        class ActionParam < FFI::Union
+            layout  :store,         DescStore,
+                    :store_const,   :pointer,
+                    :choices,       :pointer,
+                    :append_type,   :ecore_getopt_type,                 # enum
+                    :callback,      DescCallback,
+                    :dummy,         :pointer,
+        end
+        #
+        class Desc < FFI::Struct
+            layout  :shortname,     :char,
+                    :longname,      :pointer,
+                    :help,          :pointer,
+                    :metavar,       :pointer,
+                    :action,        :ecore_getopt_action,               # enum
+                    :action_param,  ActionParam,
+        end
+        #
+        class EcoreGetopt < FFI::Struct
+            layout  :prog,          :pointer,
+                    :usage,         :pointer,
+                    :version,       :pointer,
+                    :copyright,     :pointer,
+                    :license,       :pointer,
+                    :description,   :pointer,
+                    :strict,        :char
+#                    :descs,         :pointer,   # NULL terminated  EcoreGetopt_Desc[]
+
+            def desc_ptr idx
+                Efl::EcoreGetopt::Desc.new to_ptr+Efl::EcoreGetopt::EcoreGetopt.size+(idx*Efl::EcoreGetopt::Desc.size)
+            end
+        end
+        #
+        class REcoreGetopt
+            def initialize desc
+                @ecore_getopt = nil
+                @desc = desc
+                @options = [
+                    [ 0, FFI::Pointer::NULL, FFI::Pointer::NULL, FFI::Pointer::NULL, 0, {:dummy=>FFI::Pointer::NULL} ]
+                ]
+                @values = [
+                    [ :ptrp, FFI::Pointer::NULL ]
+                ]
+                @refs = [] # to prevent FFI::MemoryPointer.from_string from beeing GC'ed
+            end
+            def p_from_string r
+                return r if r==FFI::Pointer::NULL
+                p = FFI::MemoryPointer.from_string r
+                @refs << p
+                p
+            end
+            def << o
+                @options.insert -2, o
+            end
+            def value type, ptr
+                @values.insert -2, [ type, ptr ]
+            end
+            def to_ptr
+                @ecore_getopt.to_ptr
+            end
+            def create
+                @ecore_getopt = Efl::EcoreGetopt::EcoreGetopt.new FFI::MemoryPointer.new (Efl::EcoreGetopt::EcoreGetopt.size+Efl::EcoreGetopt::Desc.size*@options.length), 1
+                [:prog,:usage,:version,:copyright,:license,:description].each do |sym|
+                    @ecore_getopt[sym] = ( @desc.has_key?(sym) ? FFI::MemoryPointer.from_string(@desc[sym]) : FFI::Pointer::NULL )
+                end
+                @ecore_getopt[:strict] = @desc[:strict] if @desc.has_key? :strict
+                @options.each_with_index do |o,i|
+                    d = @ecore_getopt.desc_ptr i
+                    d[:shortname] = o[0].ord
+                    d[:longname] = p_from_string o[1]
+                    d[:help] = p_from_string o[2]
+                    d[:metavar] = o[3]
+                    d[:action] = o[4]
+                    k, v = o[5]
+                    case k
+                    when :dummy
+                        d[:action_param][:dummy] = v
+                    when :callback
+                        cb = d[:action_param][:callback]
+                        cb[:func] = v[0]
+                        cb[:data] = v[1]
+                        cb[:arg_req] = v[2]
+                        cb[:def] = v[3]
+                    when :store
+                        st = d[:action_param][:store]
+                        st[:type] = v[0]
+                        st[:arg_req] = v[1]
+                        if not v[2].nil?
+                            if v[2][0]==:strv
+                                st[:def][:strv] = p_from_string v[2][1]
+                            else
+                                st[:def][v[2][0]] = v[2][1]
+                            end
+                        end
+                    when :store_const
+                        d[:action_param][:store_const] = v
+                    when :choices
+                        d[:action_param][:choices] = v
+                    when :append
+                        d[:action_param][:append_type] = v
+                    else
+                        d[:action_param][:dummy] = FFI::Pointer::NULL
+                    end
+                end
+                @values_p = FFI::MemoryPointer.new Efl::EcoreGetopt::Value, @values.length, false
+                @values.each_with_index do |v,i|
+                    Efl::EcoreGetopt::Value.new(@values_p+(i*Efl::EcoreGetopt::Value.size))[v[0]] = v[1]
+                end
+            end
+            def parse argv
+                ptr = FFI::MemoryPointer.new(:pointer, argv.length+1)
+                argv.each_with_index do |s, i|
+                    ptr[i].put_pointer 0, p_from_string(s)
+                end
+                ptr[argv.length].put_pointer 0, FFI::Pointer::NULL
+                Efl::EcoreGetopt.ecore_getopt_parse @ecore_getopt, @values_p, argv.length, ptr
+            end
+            def store_full short, long, help, meta, type, arg_req, def_val
+                self << [ short, long, help, meta, :ecore_getopt_action_store, [:store, [type,arg_req, def_val] ] ]
+            end
+            def store short, long, help, type
+                store_full short, long, help, FFI::Pointer::NULL, type, :ecore_getopt_desc_arg_requirement_yes, nil
+            end
+            def store_type type, short, long, help
+                store short, long, help, ('ecore_getopt_type_'+type.to_s).to_sym
+            end
+            def store_metavar short, long, help, meta, type
+                store_full short, long, help, meta, type, :ecore_getopt_desc_arg_requirement_yes, nil
+            end
+            def store_meta_type type, short, long, help, meta
+                store_metavar short, long, help, meta, ('ecore_getopt_type_'+type.to_s).to_sym
+            end
+            def store_def short, long, help, type, def_val
+                store_full short, long, help, FFI::Pointer::NULL, type, :ecore_getopt_desc_arg_requirement_optional, def_val
+            end
+            def store_def_type type, short, long, help, def_val
+                store_def short, long, help, ('ecore_getopt_type_'+type.to_s).to_sym, [ (type.to_s+'v').to_sym, def_val ]
+            end
+            def store_full_type type, short, long, help, meta, arg_req, def_val
+                store_full short, long, help, meta, ('ecore_getopt_type_'+type.to_s).to_sym, arg_req, [ (type.to_s+'v').to_sym, def_val ]
+            end
+            def store_const short, long, help, value
+                self << [ short, long, help, FFI::Pointer::NULL, :ecore_getopt_action_store_const, [:store_const, value] ]
+            end
+            def store_true short, long, help
+                self << [ short, long, help, FFI::Pointer::NULL, :ecore_getopt_action_store_true, [:dummy,FFI::MemoryPointer::NULL] ]
+            end
+            def store_false short, long, help
+                self << [ short, long, help, FFI::Pointer::NULL, :ecore_getopt_action_store_false, [:dummy,FFI::MemoryPointer::NULL] ]
+            end
+            def choice short, long, help, choices
+                ptr = FFI::MemoryPointer.new(:pointer, choices.length+1)
+                choices.each_with_index do |s, i|
+                    ptr[i].put_pointer 0, p_from_string(s)
+                end
+                ptr[choices.length].put_pointer 0, FFI::Pointer::NULL
+                self << [ short, long, help, FFI::Pointer::NULL, :ecore_getopt_action_choice, [:choices,ptr] ]
+            end
+            def choice_metavar short, long, help, meta, choices
+                ptr = FFI::MemoryPointer.new(:pointer, choices.length+1)
+                choices.each_with_index do |s, i|
+                    ptr[i].put_pointer 0, p_from_string(s)
+                end
+                ptr[choices.length].put_pointer 0, FFI::Pointer::NULL
+                self << [ short, long, help, meta, :ecore_getopt_action_choice, [:choices,ptr] ]
+            end
+            def append short, long, help, sub_type
+                self << [ short, long, help, FFI::Pointer::NULL, :ecore_getopt_action_append, [:append,sub_type] ]
+            end
+            def append_metavar short, long, help, meta, sub_type
+                self << [ short, long, help, meta, :ecore_getopt_action_append, [:append,sub_type] ]
+            end
+            def count short, long, help
+                self << [ short, long, help, FFI::Pointer::NULL, :ecore_getopt_action_count, [:dummy,FFI::Pointer::NULL] ]
+            end
+            def callback_full short, long, help, meta, cb, data, arg_req, def_val
+                self << [ short, long, help, meta, :ecore_getopt_action_callback, [:callback, [cb, data, arg_req,def_val] ] ]
+            end
+            def callback_noargs short, long, help, cb, data
+                callback_full short, long, help, FFI::Pointer::NULL, cb, data, :ecore_getopt_desc_arg_requirement_no, FFI::Pointer::NULL
+            end
+            def callback_args short, long, help, meta, cb, data
+                callback_full short, long, help, meta, cb, data, :ecore_getopt_desc_arg_requirement_yes, FFI::Pointer::NULL
+            end
+            def help short, long
+                self << [ short, long, 'show this message.', FFI::Pointer::NULL, :ecore_getopt_action_help, [:dummy,FFI::Pointer::NULL] ]
+            end
+            def version short, long
+                self << [ short, long, 'show program version.', FFI::Pointer::NULL, :ecore_getopt_action_version, [:dummy,FFI::Pointer::NULL] ]
+            end
+            def copyright short, long
+                self << [ short, long, 'show copyright.', FFI::Pointer::NULL, :ecore_getopt_action_copyright, [:dummy,FFI::Pointer::NULL] ]
+            end
+            def license short, long
+                self << [ short, long, 'show license.', FFI::Pointer::NULL, :ecore_getopt_action_license, [:dummy,FFI::Pointer::NULL] ]
+            end
+#            def sentinel
+#                self << [ 0, FFI::Pointer::NULL, FFI::Pointer::NULL, FFI::Pointer::NULL, 0, {:dummy=>FFI::Pointer::NULL} ]
+#            end
+            #
+            def debug
+                r = ''
+                r << "#{self.class} : #{@ecore_getopt.to_ptr}\n"
+                [:prog,:usage,:version,:copyright,:license,:description].each do |sym|
+                    r<< "  #{sym.to_s} : #{@ecore_getopt[sym]==FFI::Pointer::NULL ? 'NULL' : @ecore_getopt[sym].read_string}\n"
+                end
+                r << "  strict : #{@ecore_getopt[:strict]}\n"
+                i=0
+                while true
+                    d = @ecore_getopt.desc_ptr i
+                    break if d[:shortname]==0 and d[:longname] == FFI::Pointer::NULL
+                    r << "    desc #{d.to_ptr}\n"
+                    r << "     short: #{d[:shortname].chr}\n" unless d[:shortname]==0
+                    r << "     long:  #{d[:longname].read_string}\n" unless d[:longname]==FFI::Pointer::NULL
+                    r << "     help:  #{d[:help].read_string}\n" unless d[:help]==FFI::Pointer::NULL
+                    i+=1
+                end
+                r
+            end
+        end
+    end
+    #
+end
+#
+# EOF