-- EFL LuaJIT bindings: Eolian
-- For use with Elua

local ffi = require("ffi")

ffi.cdef [[
    typedef unsigned char Eina_Bool;
    typedef struct _Eina_List Eina_List;

    typedef struct _Function_Id* Eolian_Function;
    typedef struct _Parameter_Desc* Eolian_Function_Parameter;
    typedef struct _Implement_Desc* Eolian_Implement;
    typedef struct _Implement_Legacy_Desc* Eolian_Implement_Legacy;
    typedef struct _Implement_Legacy_Param* Eolian_Implement_Legacy_Parameter;
    typedef struct _Event_Desc* Eolian_Event;

    typedef enum
    {
       EOLIAN_UNRESOLVED,
       EOLIAN_PROPERTY,
       EOLIAN_PROP_SET,
       EOLIAN_PROP_GET,
       EOLIAN_METHOD,
       EOLIAN_CTOR,
       EOLIAN_DTOR,
       EOLIAN_DFLT_CTOR,
       EOLIAN_DFLT_DTOR
    } Eolian_Function_Type;

    typedef enum
    {
       EOLIAN_IN_PARAM,
       EOLIAN_OUT_PARAM,
       EOLIAN_INOUT_PARAM
    } Eolian_Parameter_Dir;

    typedef enum
    {
       EOLIAN_CLASS_UNKNOWN_TYPE,
       EOLIAN_CLASS_REGULAR,
       EOLIAN_CLASS_ABSTRACT,
       EOLIAN_CLASS_MIXIN,
       EOLIAN_CLASS_INTERFACE
    } Eolian_Class_Type;

    typedef enum
    {
       EOLIAN_SCOPE_PUBLIC,
       EOLIAN_SCOPE_PROTECTED
    } Eolian_Function_Scope;

    Eina_Bool eolian_eo_file_parse(const char *filename);
    int eolian_init(void);
    int eolian_shutdown(void);
    Eina_Bool eolian_show(const char *class_name);
    const char *eolian_class_find_by_file(const char *file_name);
    Eolian_Class_Type eolian_class_type_get(const char *class_name);
    const Eina_List *eolian_class_names_list_get(void);
    Eina_Bool eolian_class_exists(const char *class_name);
    const char *eolian_class_description_get(const char *class_name);
    const char *eolian_class_legacy_prefix_get(const char *class_name);
    const char* eolian_class_eo_prefix_get(const char *class_name);
    const char*eolian_class_data_type_get(const char *class_name);
    const Eina_List *eolian_class_inherits_list_get(const char *class_name);
    const Eina_List *eolian_class_functions_list_get(const char *class_name, Eolian_Function_Type func_type);
    Eolian_Function eolian_class_default_constructor_get(const char *class_name);
    Eolian_Function eolian_class_default_destructor_get(const char *class_name);
    Eolian_Function_Type eolian_function_type_get(Eolian_Function function_id);
    Eolian_Function_Scope eolian_function_scope_get(Eolian_Function function_id);
    const char *eolian_function_name_get(Eolian_Function function_id);
    Eolian_Function eolian_class_function_find_by_name(const char *classname, const char *func_name, Eolian_Function_Type f_type);
    const char *eolian_function_data_get(Eolian_Function function_id, const char *key);
    Eina_Bool eolian_function_is_virtual_pure(Eolian_Function function_id, Eolian_Function_Type f_type);
    Eolian_Function_Parameter eolian_function_parameter_get(const Eolian_Function function_id, const char *param_name);
    const Eina_List *eolian_property_keys_list_get(Eolian_Function foo_id);
    const Eina_List *eolian_property_values_list_get(Eolian_Function foo_id);
    const Eina_List *eolian_parameters_list_get(Eolian_Function function_id);
    void eolian_parameter_information_get(Eolian_Function_Parameter param_desc, Eolian_Parameter_Dir *param_dir, const char **type, const char **name, const char **description);
    const char *eolian_parameter_type_get(const Eolian_Function_Parameter param);
    const char *eolian_parameter_name_get(const Eolian_Function_Parameter param);
    Eina_Bool eolian_parameter_const_attribute_get(Eolian_Function_Parameter param_desc, Eina_Bool is_get);
    Eina_Bool eolian_parameter_is_nonull(Eolian_Function_Parameter param_desc);
    Eina_Bool eolian_parameter_is_own(Eolian_Function_Parameter param_desc);
    const char *eolian_function_return_type_get(Eolian_Function function_id, Eolian_Function_Type ftype);
    const char *eolian_function_return_dflt_value_get(Eolian_Function foo_id, Eolian_Function_Type ftype);
    const char *eolian_function_return_comment_get(Eolian_Function foo_id, Eolian_Function_Type ftype);
    Eina_Bool eolian_function_return_is_warn_unused(Eolian_Function foo_id, Eolian_Function_Type ftype);
    Eina_Bool eolian_function_return_own_get(Eolian_Function foo_id, Eolian_Function_Type ftype);
    Eina_Bool eolian_function_object_is_const(Eolian_Function function_id);
    Eina_Bool eolian_implement_information_get(Eolian_Implement impl, const char **class_name, const char **func_name, Eolian_Function_Type *type);
    const Eina_List *eolian_class_implements_list_get(const char *class_name);
    const Eina_List *eolian_class_events_list_get(const char *class_name);
    Eina_Bool eolian_class_event_information_get(Eolian_Event event, const char **event_name, const char **event_type, const char **event_desc);
    Eina_Bool eolian_class_ctor_enable_get(const char *class_name);
    Eina_Bool eolian_class_dtor_enable_get(const char *class_name);
]]

local cutil = require("cutil")
local util  = require("util")

local list = require("eina.list")

local M = {}

local eolian

local init = function()
    eolian = util.lib_load("eolian")
    eolian.eolian_init()
end

local shutdown = function()
    eolian.eolian_shutdown()
    util.lib_unload("eolian")
end

cutil.init_module(init, shutdown)

M.eo_file_parse = function(fname)
    return eolian.eolian_eo_file_parse(fname) ~= 0
end

M.show = function(cname)
    return eolian.eolian_show(cname) ~= 0
end

M.class_find_by_file = function(fname)
    local v = eolian.eolian_class_find_by_file(fname)
    if v == nil then return nil end
    return ffi.string(v)
end

M.class_type = {
    UNKNOWN   = 0,
    REGULAR   = 1,
    ABSTRACT  = 2,
    MIXIN     = 3,
    INTERFACE = 4
}

M.class_type_get = function(cname)
    return eolian.eo_class_type_get(cname)
end

M.class_names_list_get = function()
    return list.String_List(eolian.eolian_class_names_list_get()):to_array()
end

M.class_exists = function(cname)
    return eolian.eolian_class_exists(cname) ~= 0
end

M.class_description_get = function(cname)
    local v = eolian.eolian_class_description_get(cname)
    if v == nil then return nil end
    return ffi.string(v)
end

M.class_legacy_prefix_get = function(cname)
    local v = eolian.eolian_class_legacy_prefix_get(cname)
    if v == nil then return nil end
    return ffi.string(v)
end

M.class_eo_prefix_get = function(cname)
    local v = eolian.eolian_class_eo_prefix_get(cname)
    if v == nil then return nil end
    return ffi.string(v)
end

M.class_data_type_get = function(cname)
    local v = eolian.eolian_class_data_type_get(cname)
    if v == nil then return nil end
    return ffi.string(v)
end

M.class_inherits_list_get = function(cname)
    return list.String_List(eolian.eolian_class_inherits_list_get(cname))
        :to_array()
end

local List_Base = list.List_Base

local Eolian_Functions_List = List_Base:clone {
    data_get = function(self, ptr)
        ptr = List_Base:data_get(ptr)
        return ffi.cast("Eolian_Function", ptr)
    end
}

M.function_type = {
    UNRESOLVED = 0,
    PROPERTY   = 1,
    PROP_SET   = 2,
    PROP_GET   = 3,
    METHOD     = 4,
    CTOR       = 5,
    DTOR       = 6,
    DFLT_CTOR  = 7,
    DFLT_DTOR  = 8
}

M.function_scope = {
    PUBLIC    = 0,
    PROTECTED = 1
}

M.class_functions_list_get = function(cname, func_type)
    return Eolian_Functions_List(eolian.eolian_class_functions_list_get(cname),
        func_type):to_array()
end

M.class_default_constructor_get = function(cname)
    local v = eolian.eolian_class_default_constructor_get(cname)
    if v == nil then return nil end
    return v
end

M.class_default_destructor_get = function(cname)
    local v = eolian.eolian_class_default_destructor_get(cname)
    if v == nil then return nil end
    return v
end

local Eolian_Parameters_List = List_Base:clone {
    data_get = function(self, ptr)
        ptr = List_Base:data_get(ptr)
        return ffi.cast("Eolian_Function_Parameter", ptr)
    end
}

M.Function = ffi.metatype("Eolian_Function", {
    __index = {
        find_by_name = function(cname, fname, ftype)
            local v = eolian.eolian_class_function_find_by_name(cname, fname,
                ftype)
            if v == nil then return nil end
            return v
        end,

        type_get = function(self)
            return eolian.eolian_function_type_get(self)
        end,

        scope_get = function(self)
            return eolian.eolian_function_scope_get(self)
        end,

        name_get = function(self)
            local v = eolian.eolian_function_name_get(self)
            if v == nil then return nil end
            return ffi.string(v)
        end,

        data_get = function(self, key)
            local v = eolian.eolian_function_data_get(self, key)
            if v == nil then return nil end
            return ffi.string(v)
        end,

        description_get = function(self, key)
            return self:data_get(key)
        end,

        is_virtual_pure = function(self, ftype)
            return eolian.eolian_function_is_virtual_pure(self, ftype) ~= 0
        end,

        parameter_get = function(self, pname)
            local v = eolian.eolian_function_parameter_get(self, pname)
            if v == nil then return nil end
            return v
        end,

        property_keys_list_get = function(self)
            return Eolian_Parameters_List(
                eolian.eolian_propety_keys_list_get(self)):to_array()
        end,

        property_values_list_get = function(self)
            return Eolian_Parameters_List(
                eolian.eolian_propety_values_list_get(self)):to_array()
        end,

        parameters_list_get = function(self)
            return Eolian_Parameters_List(
                eolian.eolian_parameters_list_get(self)):to_array()
        end,

        return_type_get = function(self, ftype)
            local v = eolian.eolian_function_return_type_get(self, ftype)
            if v == nil then return nil end
            return ffi.string(v)
        end,

        return_dflt_value_get = function(self, ftype)
            local v = eolian.eolian_function_return_dflt_value_get(self, ftype)
            if v == nil then return nil end
            return ffi.string(v)
        end,

        return_comment_get = function(self, ftype)
            local v = eolian.eolian_function_return_comment_get(self, ftype)
            if v == nil then return nil end
            return ffi.string(v)
        end,

        return_is_warn_unused = function(self, ftype)
            return eolian.eolian_function_return_is_warn_unused(self,
                ftype) ~= 0
        end,

        return_own_get = function(self, ftype)
            return eolian.eolian_function_return_own_get(self, ftype) ~= 0
        end,

        is_const = function(self)
            return eolian.eolian_function_object_is_const(self) ~= 0
        end
    }
})

M.parameter_dir = {
    IN_PARAM    = 0,
    OUT_PARAM   = 1,
    INOUT_PARAM = 2
}

ffi.metatype("Eolian_Function_Parameter", {
    __index = {
        information_get = function(self)
            local dir = ffi.new("Eolian_Parameter_Dir[1]")
            local str = ffi.new("const char*[3]")
            eolian.eolian_parameter_get(self, dir, str, str + 1, str + 1)
            local tp, nm, dsc = str[0], str[1], str[2]
            tp, nm, dsc = (tp  ~= nil) and ffi.string(tp ) or nil,
                          (nm  ~= nil) and ffi.string(nm ) or nil,
                          (dsc ~= nil) and ffi.string(dsc) or nil
            return dir[0], tp, nm, dsc
        end,

        type_get = function(self)
            local v = eolian.eolian_parameter_type_get(self)
            if v == nil then return nil end
            return ffi.string(v)
        end,

        name_get = function(self)
            local v = eolian.eolian_parameter_name_get(self)
            if v == nil then return nil end
            return ffi.string(v)
        end,

        const_attribute_get = function(self, get)
            return eolian.eolian_parameter_const_attribute_get(self, get) ~= 0
        end,

        is_nonull = function(self)
            return eolian.eolian_parameter_is_nonull(self) ~= 0
        end,

        is_own = function(self)
            return eolian.eolian_parameter_is_own(self) ~= 0
        end
    }
})

local Eolian_Implements_List = List_Base:clone {
    data_get = function(self, ptr)
        ptr = List_Base:data_get(ptr)
        return ffi.cast("Eolian_Implement", ptr)
    end
}

ffi.metatype("Eolian_Implement", {
    __index = {
        information_get = function(self)
            local nm = ffi.new("const char*[2]")
            local tp = ffi.new("Eolian_Function_Type[1]")
            eolian.eolian_implement_information_get(self, nm, nm + 1, tp)
            local cn, fn = nm[0], nm[1]
            cn, fn = (cn ~= nil) and ffi.string(cn) or nil,
                     (fn ~= nil) and ffi.string(fn) or nil
            return cn, fn, tp[0]
        end
    }
})

M.class_implements_list_get = function(cname)
    return Eolian_Implements_List(
        eolian.eolian_class_implements_list_get(cname)):to_array()
end

local Eolian_Events_List = List_Base:clone {
    data_get = function(self, ptr)
        ptr = List_Base:data_get(ptr)
        return ffi.cast("Eolian_Event", ptr)
    end
}

ffi.metatype("Eolian_Event", {
    __index = {
        information_get = function(self)
            local ev = ffi.new("const char*[3]")
            eolian.eolian_class_event_information_get(self, ev, ev + 1, ev + 2)
            local en, et, ed = ev[0], ev[1], ev[2]
            en, et, ed = (en ~= nil) and ffi.string(en) or nil,
                         (et ~= nil) and ffi.string(et) or nil,
                         (ed ~= nil) and ffi.string(ed) or nil
            return en, et, ed
        end
    }
})

M.class_events_list_get = function(cname)
    return Eolian_Events_List(
        eolian.eolian_class_events_list_get(cname)):to_array()
end

M.class_ctor_enable_get = function(cname)
    return eolian.eolian_class_ctor_enable_get(cname) ~= 0
end

M.class_dtor_enable_get = function(cname)
    return eolian.eolian_class_dtor_enable_get(cname) ~= 0
end

return M