#! /usr/bin/env ruby
# -*- coding: UTF-8 -*-
#
#
INDENT=' '*8
WRAP_LEN=150
#
def set_type t, sym
    return ETYPES['Eina_Bool'] if t=='Eina_Bool'
    if ETYPES[t].nil?
#        v = ( ETYPES[sym].nil? ? ( TYPES[sym].nil? ? ':'+sym.downcase : TYPES[sym] ) : ETYPES[sym] )
        v = ( TYPES[sym].nil? ? ':'+sym.downcase : TYPES[sym] )
        ETYPES[t] = v
        printf "\033[0;35m%40s\033[0m => \033[0;36m%s\033[0m\n",t,v
        return v
    else
        printf "\033[0;31mERROR type #{t} => #{sym} alredy exists!\033[0m\n"
        exit 1
    end
end
#
def get_type t
    k = t.gsub(/(const|enum|union)/, '').strip
    r = TYPES[k]
    return r unless r.nil?
    r = ETYPES[k]
    return r unless r.nil?
    if not k=~ /\*/
        printf "\033[0;31munknown type >#{k}< #{t}\033[0m\n"
        exit 1
    end
    k = k.gsub(/[ \*]*/, '').strip
    r = ETYPES[k]
    return ':'+k.downcase if r==':pointer'
    ':pointer'
end
#
def get_type_from_arg arg, l
    if arg=~ /^\s*void\s*$/
        return ''
    end
    if arg =~ /\.\.\./
        return ':varargs'
    end
    k = arg.gsub(/const/,'').gsub(/\s{2,}/,' ').strip
    if k=~/(.*?)(\w+)$/
        return get_type $1.strip
    end
    # try with unchanged argument string
    t = get_type k
    if t.nil?
        printf "\033[0;31mwrong arg >#{k}< #{arg} (#{l})\033[0m\n"
        exit 1
    end
    t
end
#
def wrap_text txt, indent
    txt.gsub( /(.{1,#{150}})(?: +|$\n?)|(.{1,#{150}})/,"\\1\\2\n#{indent}").sub(/\n\s+$/,'')
end
#
def gen_enums path, indent
    r = []
    open(path+'-enums','r').readlines.each do |l|
        l.strip!
        if not l=~/((?:typedef )?enum(?: \w+)?) \{(.*)\} (\w+)/
            printf "\033[0;31mFIXME : #{l}\n#{indent}# FIXME\033[0m\n"
            r << indent+"# #{l}\n#{indent}# FIXME"
            next
        end
        typedef = $1.strip
        values = $2.strip
        typename = $3.strip
        tsym = set_type typename, typename
        syms, vals = [], []
        values.split(',').each do |define|
            s,v = define.gsub(/ /,'').split(/=/)
            syms << s
            vals << v
        end
        if vals.count(nil) == vals.length
            args = syms.collect{ |sym| ':'+sym.strip.downcase }.join(', ')
        else
            i=0
            h={}
            syms.zip(vals) do |s,v|
                sym=':'+s.downcase
                if h.has_key? v
                    h[s]=h[v]
                elsif v.nil?
                    h[s]=i
                    i+=1
                elsif v=~/\|/
                    els = v.gsub(/[\(\)]/,'').split(/\|/)
                    v = els.inject('') { |s,e| s+="#{h[e]}|" }[0..-2]
                    h[s]=v
                    i=eval(v).to_i+1
                else
                    h[s]=v
                    i=eval(v).to_i+1
                end
            end
            args = syms.inject(''){|r,s| r+=":#{s.strip.downcase}, #{h[s]}, " }.sub(/, $/,'')
        end
        r << indent+"# #{typedef} {...} #{typename};"
        r << wrap_text( indent+"enum #{tsym}, [ #{args} ]", indent+' '*4 )
    end
    r
end
#
def gen_typedefs path, indent
    r = []
    open(path+'-types','r').readlines.each do |l|
        l.strip!
        if l=~/typedef (struct|union) _?\w+ (\w+);/
            t = $2.strip
            sym = 'pointer'
        elsif l=~/typedef enum/
            # nothing todo
            next
        elsif l =~/typedef\s+((?:\w+\**\s)+)(\w+);/
            t = $2.strip
            sym = $1.strip
        else
            r << indent+"# #{l}\n#{indent}# FIXME"
            next
        end
        tsym = set_type t, sym
        r << indent+"# #{l}"
        r << indent+"typedef #{tsym}, :#{t.downcase}"
    end
    r
end
#
def gen_callbacks path, indent
    r = []
    open(path+'-callbacks','r').readlines.each do |l|
        l.strip!
        if not l=~/^\s*typedef\s+(.*)((?:\(\*?\w+\)| \*?\w+))\s*\((.*)\);/
            printf "\033[0;31m# #{l}\n#{indent}# FIXME\033[0m\n"
            r << indent+"# #{l}\n#{indent}# FIXME"
            next
        end
        ret = $1.strip
        name = $2.strip
        args = $3.split(',').collect { |arg| get_type_from_arg arg, l }.join ', '
        t = name.sub(/\(/,'').sub(/\)/,'').sub(/\*/,'')
        sym = ( t.downcase=~/_cb$/ ? t : t+'_cb' )
        tsym = set_type t, sym
        r << indent+"# #{l}"
        r << wrap_text(indent+"callback #{tsym}, [ #{args} ], #{get_type ret}", indent+' '*4 )
    end
    r
end
#
def gen_variables path, indent
    r = []
    open(path+'-variables','r').readlines.each do |l|
        l.strip!
        if not l=~ /EAPI\s+extern\s+(\w+\s+\*?)(\w+)/
            printf "\033[0;31m# #{l}\n#{indent}# FIXME\033[0m\n"
            r << indent+"# #{l}\n#{indent}# FIXME"
            next
        end
        var = $2.strip
        t = $1.strip
        r << indent+"# #{l}"
        r << wrap_text(indent+"attach_variable :#{var}, #{get_type t}", indent+' '*4)
    end
    r
end
#
def gen_functions path, indent
    r = []
    r << indent+"fcts = ["
    open(path+'-functions','r').readlines.each do |l|
        l.strip!
        if not l=~ /EAPI ([a-zA-Z0-9_\* ]+?)(\w+) ?\(([a-zA-Z0-9_ \*,\.]*)\)( *[A-Z]{2,})?/
            printf "\033[0;31m# #{l}\n#{indent}# FIXME\033[0m\n"
            r << indent+"# #{l}\n#{indent}# FIXME"
            next
        end
        ret = $1.strip
        func = $2.strip.downcase
        args = $3.split(',').collect { |arg| get_type_from_arg arg, l }.join ', '
        r << indent+"# #{l}"
        r << wrap_text(indent+"[ :#{func}, [ #{args} ], #{get_type ret} ],", indent+' '*4)
    end
    r << indent+"]"
    r
end
#
NATIVE='efl/native'
#
HEADER =<<-EOF
#! /usr/bin/env ruby
# -*- coding: UTF-8 -*-
#
require '#{NATIVE}'REQUIRES
#
module Efl
    #
    module MNAME
        #
        FCT_PREFIX = 'MY_FCT_PREFIX_' unless const_defined? :FCT_PREFIX
        #
        def self.method_missing meth, *args, &block
            sym = Efl::MethodResolver.resolve self, meth, FCT_PREFIX
            self.send sym, *args, &block
        end
        #
    end
    #
    module Native
EOF
#
FOOTER =<<-EOF
    end
end
#
# EOF
EOF
#
TYPES = {
    'int' => ':int',
    'char' => ':char',
    'void' => ':void',
    'long' => ':long',
    'short' => ':short',
    'float' => ':float',
    'pid_t' => ':ulong',
    'time_t' => ':ulong',
    'size_t' => ':ulong',
    'ssize_t' => ':long',
    'uintptr_t' => ':pointer',
    'double' => ':double',
    'long int' => ':long',
    'long long' => ':long_long',
    'unsigned int' => ':uint',
    'unsigned char' => ':uchar',
    'unsigned short' => ':ushort',
    'unsigned long long' => ':ulong_long',
    'char *' => ':string',                                              # FIXME ?!?!
    'fd_set *' => ':pointer',
    'FILE *' => ':pointer',
    'va_list' => ':pointer',                                            # FIXME ?!?!
    'struct tm *' => ':pointer',
    'struct timeval *' => ':pointer',
    'struct sockaddr *' => ':pointer',
}
ETYPES = {
    'Eina_Bool' => ':bool'
}
# Evas.h
EVAS_LAYER_MIN=-32768
EVAS_LAYER_MAX=32767
#
path = File.dirname __FILE__
lib_path = File.join path, '..', 'lib', 'efl', 'native'
#
libs = []
libs << {
    :lib=>'eina', :header=>'eina_types.h',
    :modname=>'Eina', :prefix=>'eina', :outfile=>'eina_types.rb',
    :requires=>[], :constants=>[]
}
libs << {
    :lib=>'eina', :header=>'eina_main.h',
    :modname=>'Eina', :prefix=>'eina', :outfile=>'eina.rb',
    :requires=>[], :constants=>[]
}
libs << {
    :lib=>'eina', :header=>'eina_xattr.h',
    :modname=>'EinaXattr', :prefix=>'eina_xattr', :outfile=>'eina_xattr.rb',
    :requires=>[], :constants=>[]
}
libs << {
    :lib=>'eina', :header=>'eina_log.h',
    :modname=>'EinaLog', :prefix=>'eina_log', :outfile=>'eina_log.rb',
    :requires=>[], :constants=>[]
}
libs << {
    :lib=>'eina', :header=>'eina_list.h',
    :modname=>'EinaList', :prefix=>'eina_list', :outfile=>'eina_list.rb',
    :requires=>[], :constants=>[]
}
libs << {
    :lib=>'eina', :header=>'eina_hash.h',
    :modname=>'EinaHash', :prefix=>'eina_hash', :outfile=>'eina_hash.rb',
    :requires=>[], :constants=>[]
}
libs << {
    :lib=>'eet', :header=>'Eet.h',
    :modname=>'Eet', :prefix=>'eet', :outfile=>'eet.rb',
    :requires=>["#{NATIVE}/eina_xattr","#{NATIVE}/eina_list"], :constants=>[]
}
libs << {
    :lib=>'evas', :header=>'Evas.h',
    :modname=>'Evas', :prefix=>'evas', :outfile=>'evas.rb',
    :requires=>["#{NATIVE}/eina_list"], :constants=>['EVAS_LAYER_MIN','EVAS_LAYER_MAX']
}
libs << {
    :lib=>'edje', :header=>'Edje.h',
    :modname=>'Edje', :prefix=>'edje', :outfile=>'edje.rb',
    :requires=>["#{NATIVE}/evas"], :constants=>[]
}
libs << {
    :lib=>'ecore', :header=>'Ecore.h',
    :modname=>'Ecore', :prefix=>'ecore', :outfile=>'ecore.rb',
    :requires=>[], :constants=>[]
}
libs << {
    :lib=>'ecore_input', :header=>'Ecore_Input.h',
    :modname=>'EcoreInput', :prefix=>'ecore_event', :outfile=>'ecore_input.rb',
    :requires=>[], :constants=>[]
}
libs << {
    :lib=>'ecore', :header=>'Ecore_Getopt.h',
    :modname=>'EcoreGetopt', :prefix=>'ecore_getopt', :outfile=>'ecore_getopt.rb',
    :requires=>["#{NATIVE}/eina_list"], :constants=>[]
}
libs << {
    :lib=>'ecore_evas', :header=>'Ecore_Evas.h',
    :modname=>'EcoreEvas', :prefix=>'ecore_evas', :outfile=>'ecore_evas.rb',
    :requires=>["#{NATIVE}/ecore_getopt","#{NATIVE}/evas"], :constants=>[]
}
libs << {
    :lib=>'emap', :header=>'EMap.h',
    :modname=>'Emap', :prefix=>'emap', :outfile=>'emap.rb',
    :requires=>["#{NATIVE}/eina_list"], :constants=>[]
}
ELM_LIB='elementary-ver-pre-svn-09.so.0'
libs << {
    :lib=>ELM_LIB,:header=>'Elementary.h',
    :modname=>'Elm', :prefix=>'elm', :outfile=>'elementary.rb',
    :requires=>["#{NATIVE}/elm/elm_general","#{NATIVE}/elm/elm_tooltip"], :constants=>[]
}
libs << {
    :lib=>ELM_LIB,:header=>'elm_general.h',
    :modname=>'Elm', :prefix=>'elm', :outfile=>'elm/elm_general.rb',
    :requires=>["#{NATIVE}/evas","#{NATIVE}/elementary"], :constants=>[]
}
libs << {
    :lib=>ELM_LIB,:header=>'elm_tooltip.h',
    :modname=>'ElmTooltip', :prefix=>'elm', :outfile=>'elm/elm_tooltip.rb',
    :requires=>["#{NATIVE}/elementary"], :constants=>[]
}
libs << {
    :lib=>ELM_LIB,:header=>'elm_object_item.h',
    :modname=>'ElmObjectItem', :prefix=>'elm_object_item', :outfile=>'elm/elm_object_item.rb',
    :requires=>["#{NATIVE}/elementary"], :constants=>[]
}
libs << {
    :lib=>ELM_LIB,:header=>'elm_icon.h',
    :modname=>'ElmIcon', :prefix=>'elm_icon', :outfile=>'elm/elm_icon.rb',
    :requires=>["#{NATIVE}/elementary"], :constants=>[]
}
libs << {
    :lib=>ELM_LIB,:header=>'elm_scroller.h',
    :modname=>'ElmScroller', :prefix=>'elm_scroller', :outfile=>'elm/elm_scroller.rb',
    :requires=>["#{NATIVE}/elementary"], :constants=>[]
}
libs << {
    :lib=>ELM_LIB,:header=>'elm_entry.h',
    :modname=>'ElmEntry', :prefix=>'elm_entry', :outfile=>'elm/elm_entry.rb',
    :requires=>["#{NATIVE}/edje","#{NATIVE}/elementary","#{NATIVE}/elm/elm_icon","#{NATIVE}/elm/elm_scroller"], :constants=>[]
}
libs << {
    :lib=>ELM_LIB,:header=>'elm_list.h',
    :modname=>'ElmList', :prefix=>'elm_list', :outfile=>'elm/elm_list.rb',
    :requires=>["#{NATIVE}/elementary","#{NATIVE}/elm/elm_scroller"], :constants=>[]
}
Dir.mkdir lib_path unless (File.exists? lib_path)
#
libs.each do |lib|
    base = File.join path, 'api', lib[:header]
    printf "\033[1;33mparse \033[0;32m%s-*\033[0;0m\n",base
    printf " \033[0;33menums...\033[0;0m\n"
    lib[:enums]=gen_enums(base, INDENT)
    printf " \033[0;33mtypedefs...\033[0;0m\n"
    lib[:typedefs]=gen_typedefs(base, INDENT)
    printf " \033[0;33mcallbacks...\033[0;0m\n"
    lib[:callbacks]=gen_callbacks(base, INDENT)
    printf " \033[0;33mvariables...\033[0;0m\n"
    lib[:variables]=gen_variables(base, INDENT)
    printf " \033[0;33mfunctions...\033[0;0m\n"
    lib[:functions]=gen_functions(base, INDENT)
    printf "\033[1;33mdone\033[0;0m\n"
end
libs.each do |lib|
    printf "\033[1;33mgenerate\033[0;0m %-50s\033[0;0m",lib[:outpath]
    outpath = File.join lib_path, lib[:outfile]
    outdir = File.dirname outpath
    Dir.mkdir outdir unless File.exists? outdir
    open(File.join(outpath),'w:utf-8') do |f|
        reqs = ( lib[:requires].nil? ? '' : lib[:requires].inject('') {|s,e| s+="\nrequire '#{e}'"})
        f << HEADER.gsub(/MNAME/,lib[:modname]).sub(/MY_FCT_PREFIX/,lib[:prefix]).sub(/REQUIRES/,reqs)
        f << "#{INDENT}#\n#{INDENT}ffi_lib '#{lib[:lib]}'"
        if not lib[:constants].empty?
            f << "\n#{INDENT}#\n#{INDENT}# CONSTANTS"
            f << "\n"+lib[:constants].collect { |cst| INDENT+cst+"="+eval(cst).to_s}.compact.join("\n")
        end
        print "enums, "
        if not lib[:enums].empty?
            f << "\n#{INDENT}#\n#{INDENT}# ENUMS"
            f << "\n"+lib[:enums].collect { |t| ( t.is_a?(Array) ? t[1] : t ) }.compact.join("\n")
        end
        print "typedefs, "
        if not lib[:typedefs].empty?
            f << "\n#{INDENT}#\n#{INDENT}# TYPEDEFS"
            f << "\n"+lib[:typedefs].collect { |t| ( t.is_a?(Array) ? t[1]  : t ) }.compact.join("\n")
        end
        print "callbacks, "
        if not lib[:callbacks].empty?
            f << "\n#{INDENT}#\n#{INDENT}# CALLBACKS"
            f << "\n"+lib[:callbacks].join("\n")
        end
        print "variables, "
        if not lib[:variables].empty?
            f << "\n#{INDENT}#\n#{INDENT}# VARIABLES"
            f << "\n"+lib[:variables].join("\n")
        end
        puts "functions."
        if not lib[:functions].empty?
            f << "\n#{INDENT}#\n#{INDENT}# FUNCTIONS"
            f << "\n"+lib[:functions].join("\n")
        end
        f << "\n#{INDENT}#\n#{INDENT}attach_fcts fcts\n#{INDENT}#\n"
        f << FOOTER
    end
end
#