#include <ctype.h>
#include <assert.h>

#ifdef HAVE_CONFIG_H
# include "config.h"
#endif

#include "eo_lexer.h"
#include "eolian_priv.h"

typedef struct _Validate_State
{
   Eina_Bool warned;
   Eina_Bool event_redef;
   Eina_Bool unimplemented;
} Validate_State;

static Eina_Bool
_validate(Eolian_Object *obj)
{
   obj->validated = EINA_TRUE;
   return EINA_TRUE;
}

#define _eo_parser_log(_base, ...) \
   eolian_state_log_obj((_base)->unit->state, (_base), __VA_ARGS__)

static Eina_Bool
_validate_docstr(Eina_Stringshare *str, const Eolian_Object *info, Eina_List **rdbg)
{
   if (!str || !str[0]) return EINA_TRUE;

   Eina_Bool ret = EINA_TRUE;
   Eina_List *pl = eolian_documentation_string_split(str);
   char *par;
   EINA_LIST_FREE(pl, par)
     {
        const char *doc = par;
        Eolian_Doc_Token tok;
        eolian_doc_token_init(&tok);
        while (ret && (doc = eolian_documentation_tokenize(doc, &tok)))
          {
             if (eolian_doc_token_type_get(&tok) == EOLIAN_DOC_TOKEN_REF)
               {
                  /* check staging first, then main */
                  Eolian_Object_Type tp = database_doc_token_ref_resolve(&tok,
                    &info->unit->state->staging.unit,
                    &info->unit->state->main.unit,
                    NULL, NULL);
                  if (tp == EOLIAN_OBJECT_UNKNOWN)
                    {
                       size_t dbgn = (size_t)eina_list_data_get(*rdbg);
                       char *refn = eolian_doc_token_text_get(&tok);
                       Eolian_Object tmp;
                       memset(&tmp, 0, sizeof(Eolian_Object));
                       tmp.unit = info->unit;
                       tmp.file = info->file;
                       tmp.line = (int)(dbgn & 0xFFFFF);
                       tmp.column = (int)(dbgn >> 20);
                       eolian_state_log_obj(info->unit->state, &tmp,
                                            "failed validating reference '%s'", refn);
                       free(refn);
                       ret = EINA_FALSE;
                       break;
                    }
                  *rdbg = eina_list_next(*rdbg);
               }
          }
        free(par);
     }

   return ret;
}

static Eina_Bool
_validate_doc(Eolian_Documentation *doc)
{
   if (!doc)
     return EINA_TRUE;

   Eina_List *rdbg = doc->ref_dbg;

   if (!_validate_docstr(doc->summary, &doc->base, &rdbg))
     return EINA_FALSE;
   if (!_validate_docstr(doc->description, &doc->base, &rdbg))
     return EINA_FALSE;

   return _validate(&doc->base);
}

static Eina_Bool _validate_type(Validate_State *vals, Eolian_Type *tp);
static Eina_Bool _validate_expr(Eolian_Expression *expr,
                                const Eolian_Type *tp,
                                Eolian_Expression_Mask msk);
static Eina_Bool _validate_function(Validate_State *vals,
                                    Eolian_Function *func,
                                    Eina_Hash *nhash);

typedef struct _Cb_Ret
{
   Validate_State *vals;
   Eina_Bool succ;
} Cb_Ret;

static Eina_Bool
_sf_map_cb(const Eina_Hash *hash EINA_UNUSED, const void *key EINA_UNUSED,
           const Eolian_Struct_Type_Field *sf, Cb_Ret *sc)
{
   sc->succ = _validate_type(sc->vals, sf->type);

   if (!sc->succ)
     return EINA_FALSE;

   sc->succ = _validate_doc(sf->doc);

   return sc->succ;
}

static Eina_Bool
_ef_map_cb(const Eina_Hash *hash EINA_UNUSED, const void *key EINA_UNUSED,
           const Eolian_Enum_Type_Field *ef, Cb_Ret *sc)
{
   if (ef->value)
     sc->succ = _validate_expr(ef->value, NULL, EOLIAN_MASK_INT);
   else
     sc->succ = EINA_TRUE;

   if (!sc->succ)
     return EINA_FALSE;

   sc->succ = _validate_doc(ef->doc);

   return sc->succ;
}

static Eina_Bool
_validate_typedecl(Validate_State *vals, Eolian_Typedecl *tp)
{
   if (tp->base.validated)
     return EINA_TRUE;

   if (!_validate_doc(tp->doc))
     return EINA_FALSE;

   switch (tp->type)
     {
      case EOLIAN_TYPEDECL_ALIAS:
        if (!_validate_type(vals, tp->base_type))
          return EINA_FALSE;
        if (!tp->freefunc && tp->base_type->freefunc)
          tp->freefunc = eina_stringshare_ref(tp->base_type->freefunc);
        return _validate(&tp->base);
      case EOLIAN_TYPEDECL_STRUCT:
        {
           Cb_Ret rt = { vals, EINA_TRUE };
           eina_hash_foreach(tp->fields, (Eina_Hash_Foreach)_sf_map_cb, &rt);
           if (!rt.succ)
             return EINA_FALSE;
           return _validate(&tp->base);
        }
      case EOLIAN_TYPEDECL_STRUCT_OPAQUE:
        return _validate(&tp->base);
      case EOLIAN_TYPEDECL_ENUM:
        {
           Cb_Ret rt = { vals, EINA_TRUE };
           eina_hash_foreach(tp->fields, (Eina_Hash_Foreach)_ef_map_cb, &rt);
           if (!rt.succ)
             return EINA_FALSE;
           return _validate(&tp->base);
        }
      case EOLIAN_TYPEDECL_FUNCTION_POINTER:
        if (!_validate_function(vals, tp->function_pointer, NULL))
          return EINA_FALSE;
        return _validate(&tp->base);
      default:
        return EINA_FALSE;
     }
   return _validate(&tp->base);
}

static const char * const eo_complex_frees[] =
{
   "eina_accessor_free", "eina_array_free", "(void)", /* future */
   "eina_iterator_free", "eina_hash_free",
   "eina_list_free", "eina_inarray_free", "(void)"
};

static const char *eo_obj_free = "efl_del";
static const char *eo_str_free = "free";
static const char *eo_strshare_free = "eina_stringshare_del";
static const char *eo_value_free = "eina_value_flush";
static const char *eo_value_ptr_free = "eina_value_free";

static Eina_Bool
_validate_ownable(Eolian_Type *tp)
{
   if (tp->btype == EOLIAN_TYPE_BUILTIN_FUTURE)
     return EINA_TRUE;
   if (tp->owned && !tp->freefunc)
     {
        _eo_parser_log(&tp->base, "type '%s' is not ownable", tp->base.name);
        return EINA_FALSE;
     }
   return _validate(&tp->base);
}

static Eina_Bool
_validate_type(Validate_State *vals, Eolian_Type *tp)
{
   const Eolian_Unit *src = tp->base.unit;

   if (tp->owned && !database_type_is_ownable(src, tp, EINA_FALSE))
     {
        _eo_parser_log(&tp->base, "type '%s' is not ownable", tp->base.name);
        return EINA_FALSE;
     }

   if (tp->is_ptr && !tp->legacy)
     {
        tp->is_ptr = EINA_FALSE;
        Eina_Bool still_ownable = database_type_is_ownable(src, tp, EINA_FALSE);
        tp->is_ptr = EINA_TRUE;
        if (still_ownable)
          {
             _eo_parser_log(&tp->base, "cannot take a pointer to pointer type");
             return EINA_FALSE;
          }
     }

   switch (tp->type)
     {
      case EOLIAN_TYPE_VOID:
      case EOLIAN_TYPE_UNDEFINED:
        return _validate_ownable(tp);
      case EOLIAN_TYPE_REGULAR:
        {
           if (tp->base_type)
             {
                int kwid = eo_lexer_keyword_str_to_id(tp->base.name);
                if (!tp->freefunc)
                  {
                     tp->freefunc = eina_stringshare_add(eo_complex_frees[
                       kwid - KW_accessor]);
                  }
                Eolian_Type *itp = tp->base_type;
                /* validate types in brackets so freefuncs get written... */
                while (itp)
                  {
                     if (!_validate_type(vals, itp))
                       return EINA_FALSE;
                     if ((kwid >= KW_accessor) && (kwid <= KW_list) && (kwid != KW_future))
                       {
                          if (!database_type_is_ownable(src, itp, EINA_TRUE))
                            {
                               _eo_parser_log(&itp->base,
                                        "%s cannot contain value types (%s)",
                                        tp->base.name, itp->base.name);
                               return EINA_FALSE;
                            }
                       }
                     itp = itp->next_type;
                  }
                return _validate_ownable(tp);
             }
           /* builtins */
           int id = eo_lexer_keyword_str_to_id(tp->base.name);
           if (id)
             {
                if (!eo_lexer_is_type_keyword(id))
                  return EINA_FALSE;
                if (!tp->freefunc)
                  switch (id)
                    {
                     case KW_mstring:
                       tp->freefunc = eina_stringshare_add(eo_str_free);
                       break;
                     case KW_stringshare:
                       tp->freefunc = eina_stringshare_add(eo_strshare_free);
                       break;
                     case KW_any_value:
                       tp->freefunc = eina_stringshare_add(eo_value_free);
                       break;
                     case KW_any_value_ptr:
                       tp->freefunc = eina_stringshare_add(eo_value_ptr_free);
                       break;
                     default:
                       break;
                    }
                return _validate_ownable(tp);
             }
           /* user defined */
           tp->tdecl = database_type_decl_find(src, tp);
           if (!tp->tdecl)
             {
                _eo_parser_log(&tp->base, "undefined type %s", tp->base.name);
                return EINA_FALSE;
             }
           if (!_validate_typedecl(vals, tp->tdecl))
             return EINA_FALSE;
           if (tp->tdecl->freefunc && !tp->freefunc)
             tp->freefunc = eina_stringshare_ref(tp->tdecl->freefunc);
           return _validate_ownable(tp);
        }
      case EOLIAN_TYPE_CLASS:
        {
           tp->klass = (Eolian_Class *)eolian_unit_class_by_name_get(src, tp->base.name);
           if (!tp->klass)
             {
                _eo_parser_log(&tp->base, "undefined class %s "
                         "(likely wrong namespacing)", tp->base.name);
                return EINA_FALSE;
             }
           if (!tp->freefunc)
             tp->freefunc = eina_stringshare_add(eo_obj_free);
           return _validate_ownable(tp);
        }
      default:
        return EINA_FALSE;
     }
   return _validate_ownable(tp);
}

static Eina_Bool
_validate_expr(Eolian_Expression *expr, const Eolian_Type *tp,
               Eolian_Expression_Mask msk)
{
   Eolian_Value val;
   if (tp)
     val = database_expr_eval_type(expr->base.unit, expr, tp, NULL, NULL);
   else
     val = database_expr_eval(expr->base.unit, expr, msk, NULL, NULL);

   if (val.type == EOLIAN_EXPR_UNKNOWN)
     return EINA_FALSE;

   return _validate(&expr->base);
}

static Eina_Bool
_validate_param(Validate_State *vals, Eolian_Function_Parameter *param)
{
   if (!_validate_type(vals, param->type))
     return EINA_FALSE;

   if (param->value && !_validate_expr(param->value, param->type, 0))
     return EINA_FALSE;

   if (!_validate_doc(param->doc))
     return EINA_FALSE;

   return _validate(&param->base);
}

static Eina_Bool
_validate_function(Validate_State *vals, Eolian_Function *func, Eina_Hash *nhash)
{
   Eina_List *l;
   Eolian_Function_Parameter *param;

   const Eolian_Object *oobj = nhash ? eina_hash_find(nhash, &func->base.name) : NULL;
   if (EINA_UNLIKELY(oobj && (oobj != &func->base)))
     {
        _eo_parser_log(&func->base,
                 "%sfunction '%s' conflicts with another symbol (at %s:%d:%d)",
                 func->is_beta ? "beta " : "", func->base.name, oobj->file,
                 oobj->line, oobj->column);
        vals->warned = EINA_TRUE;
     }

   /* if already validated, no need to perform the other checks...
    * but duplicate checks need to be performed every time
    */
   if (func->base.validated)
     {
        /* it might be validated, but need to add it anyway */
        if (!oobj && nhash)
          eina_hash_add(nhash, &func->base.name, &func->base);
        return EINA_TRUE;
     }

   if (func->get_ret_type && !_validate_type(vals, func->get_ret_type))
     return EINA_FALSE;

   if (func->set_ret_type && !_validate_type(vals, func->set_ret_type))
     return EINA_FALSE;

   if (func->get_ret_val && !_validate_expr(func->get_ret_val,
                                            func->get_ret_type, 0))
     return EINA_FALSE;

   if (func->set_ret_val && !_validate_expr(func->set_ret_val,
                                            func->set_ret_type, 0))
     return EINA_FALSE;

#define EOLIAN_PARAMS_VALIDATE(params) \
   EINA_LIST_FOREACH(params, l, param) \
     if (!_validate_param(vals, param)) \
       return EINA_FALSE;

   EOLIAN_PARAMS_VALIDATE(func->prop_values);
   EOLIAN_PARAMS_VALIDATE(func->prop_values_get);
   EOLIAN_PARAMS_VALIDATE(func->prop_values_set);
   EOLIAN_PARAMS_VALIDATE(func->prop_keys);
   EOLIAN_PARAMS_VALIDATE(func->prop_keys_get);
   EOLIAN_PARAMS_VALIDATE(func->prop_keys_set);

#undef EOLIAN_PARAMS_VALIDATE

   if (!_validate_doc(func->get_return_doc))
     return EINA_FALSE;
   if (!_validate_doc(func->set_return_doc))
     return EINA_FALSE;

   /* just for now, when dups become errors there will be no need to check */
   if (!oobj && nhash)
     eina_hash_add(nhash, &func->base.name, &func->base);

   return _validate(&func->base);
}

static Eina_Bool
_validate_part(Validate_State *vals, Eolian_Part *part, Eina_Hash *nhash)
{
   const Eolian_Object *oobj = eina_hash_find(nhash, &part->base.name);
   if (oobj)
     {
        _eo_parser_log(&part->base,
                 "part '%s' conflicts with another symbol (at %s:%d:%d)",
                 part->base.name, oobj->file, oobj->line, oobj->column);
        vals->warned = EINA_TRUE;
     }

   /* see _validate_function above */
   if (part->base.validated)
     {
        if (!oobj)
          eina_hash_add(nhash, &part->base.name, &part->base);
        return EINA_TRUE;
     }

   if (!_validate_doc(part->doc))
     return EINA_FALSE;

   /* switch the class name for class */
   Eolian_Class *pcl = eina_hash_find(part->base.unit->classes, part->klass_name);
   if (!pcl)
     {
        _eo_parser_log(&part->base, "unknown part class '%s' (incorrect case?)",
                 part->klass_name);
        return EINA_FALSE;
     }
   eina_stringshare_del(part->klass_name);
   part->klass = pcl;

   if (!oobj)
     eina_hash_add(nhash, &part->base.name, &part->base);

   return _validate(&part->base);
}

static Eina_Bool
_validate_event(Validate_State *vals, Eolian_Event *event, Eina_Hash *nhash)
{
   const Eolian_Object *oobj = NULL;

   if (vals->event_redef)
     {
        oobj = eina_hash_find(nhash, &event->base.name);
        if (EINA_UNLIKELY(!!oobj))
          {
             _eo_parser_log(&event->base,
                      "event '%s' conflicts with another event (at %s:%d:%d)",
                      event->base.name, oobj->file, oobj->line, oobj->column);
             vals->warned = EINA_TRUE;
          }
     }

   if (event->base.validated)
     {
        if (vals->event_redef && !oobj)
          eina_hash_add(nhash, &event->base.name, &event->base);
        return EINA_TRUE;
     }

   if (!_validate_type(vals, event->type))
     return EINA_FALSE;

   if (!_validate_doc(event->doc))
     return EINA_FALSE;

   if (vals->event_redef && !oobj)
     eina_hash_add(nhash, &event->base.name, &event->base);

   return _validate(&event->base);
}

const Eolian_Class *
_get_impl_class(const Eolian_Class *cl, const char *cln)
{
   if (!cl || !strcmp(cl->base.name, cln))
     return cl;
   Eina_List *l;
   Eolian_Class *icl = cl->parent;
   if (icl)
     {
        /* we can do a depth first search, it's easier and doesn't matter
         * which part of the inheritance tree we find the class in
         */
        const Eolian_Class *fcl = _get_impl_class(icl, cln);
        if (fcl)
          return fcl;
     }
   EINA_LIST_FOREACH(cl->requires, l, icl)
     {
        const Eolian_Class *fcl = _get_impl_class(icl, cln);
        if (fcl)
          return fcl;
     }
   EINA_LIST_FOREACH(cl->extends, l, icl)
     {
        const Eolian_Class *fcl = _get_impl_class(icl, cln);
        if (fcl)
          return fcl;
     }
   return NULL;
}

static Eina_Bool
_db_fill_implement(Eolian_Class *cl, Eolian_Implement *impl)
{
   Eolian_Function_Type ftype = EOLIAN_METHOD;

   if (impl->is_prop_get && impl->is_prop_set)
     ftype = EOLIAN_PROPERTY;
   else if (impl->is_prop_get)
     ftype = EOLIAN_PROP_GET;
   else if (impl->is_prop_set)
     ftype = EOLIAN_PROP_SET;

   size_t imlen = strlen(impl->base.name);
   char *clbuf = alloca(imlen + 1);
   memcpy(clbuf, impl->base.name, imlen + 1);

   char *ldot = strrchr(clbuf, '.');
   if (!ldot)
     return EINA_FALSE; /* unreachable in practice, for static analysis */

   *ldot = '\0'; /* split between class name and func name */
   const char *clname = clbuf;
   const char *fnname = ldot + 1;

   const Eolian_Class *tcl = _get_impl_class(cl, clname);
   if (!tcl)
     {
        _eo_parser_log(&impl->base, "class '%s' not found within the inheritance tree of '%s'",
                       clname, cl->base.name);
        return EINA_FALSE;
     }

   impl->klass = tcl;
   impl->implklass = cl;

   const Eolian_Function *fid = eolian_class_function_by_name_get(tcl, fnname, EOLIAN_UNRESOLVED);
   if (!fid)
     {
        _eo_parser_log(&impl->base, "function '%s' not known in class '%s'", fnname, clname);
        return EINA_FALSE;
     }

   Eolian_Function_Type aftype = eolian_function_type_get(fid);

   Eina_Bool auto_empty = (impl->get_auto || impl->get_empty);

   /* match implement type against function type */
   if (ftype == EOLIAN_PROPERTY)
     {
        /* property */
        if (aftype != EOLIAN_PROPERTY)
          {
             _eo_parser_log(&impl->base, "function '%s' is not a complete property", fnname);
             return EINA_FALSE;
          }
        auto_empty = auto_empty && (impl->set_auto || impl->set_empty);
     }
   else if (ftype == EOLIAN_PROP_SET)
     {
        /* setter */
        if ((aftype != EOLIAN_PROP_SET) && (aftype != EOLIAN_PROPERTY))
          {
             _eo_parser_log(&impl->base, "function '%s' doesn't have a setter", fnname);
             return EINA_FALSE;
          }
        auto_empty = (impl->set_auto || impl->set_empty);
     }
   else if (ftype == EOLIAN_PROP_GET)
     {
        /* getter */
        if ((aftype != EOLIAN_PROP_GET) && (aftype != EOLIAN_PROPERTY))
          {
             _eo_parser_log(&impl->base, "function '%s' doesn't have a getter", fnname);
             return EINA_FALSE;
          }
     }
   else if (aftype != EOLIAN_METHOD)
     {
        _eo_parser_log(&impl->base, "function '%s' is not a method", fnname);
        return EINA_FALSE;
     }

   if ((fid->klass == cl) && !auto_empty)
     {
        /* only allow explicit implements from other classes, besides auto and
         * empty... also prevents pure virtuals from being implemented
         */
        _eo_parser_log(&impl->base, "invalid implement '%s'", impl->base.name);
        return EINA_FALSE;
     }

   impl->foo_id = fid;

   return EINA_TRUE;
}

typedef enum
{
   IMPL_STATUS_NONE = 1,
   IMPL_STATUS_FULL,
   IMPL_STATUS_GET,
   IMPL_STATUS_SET
} Impl_Status;

static Eina_Bool
_extend_impl(Eina_Hash *fs, Eolian_Implement *impl, Eina_Bool as_iface)
{
   const Eolian_Function *fid = impl->foo_id;
   Impl_Status st = (Impl_Status)eina_hash_find(fs, &fid);
   if (st == IMPL_STATUS_FULL)
     return EINA_FALSE;
   if (!st)
     eina_hash_set(fs, &fid, (void *)IMPL_STATUS_NONE);
   if (as_iface || (impl->implklass->type == EOLIAN_CLASS_INTERFACE))
     return !st;
   /* impl covers entire declaration */
   if (fid->type == EOLIAN_METHOD ||
       ((st == IMPL_STATUS_GET || fid->type == EOLIAN_PROP_SET) && impl->is_prop_set) ||
       ((st == IMPL_STATUS_SET || fid->type == EOLIAN_PROP_GET) && impl->is_prop_get) ||
       (impl->is_prop_get && impl->is_prop_set))
     {
        /* different implementing class can only do a real implementation */
        if (impl->implklass != impl->klass)
          {
             eina_hash_set(fs, &fid, (void *)IMPL_STATUS_FULL);
             return (st != IMPL_STATUS_FULL);
          }
        /* entirely virtual, so bail out always */
        if (impl->get_pure_virtual && impl->set_pure_virtual)
          return !st;
        if (impl->get_pure_virtual)
          {
             if (fid->type == EOLIAN_METHOD || fid->type == EOLIAN_PROP_GET)
               return !st;
             if (st == IMPL_STATUS_GET)
               {
                  eina_hash_set(fs, &fid, (void *)IMPL_STATUS_FULL);
                  return (st != IMPL_STATUS_FULL);
               }
             else
               {
                  eina_hash_set(fs, &fid, (void *)IMPL_STATUS_SET);
                  return (st <= IMPL_STATUS_NONE);
               }
          }
        if (impl->set_pure_virtual)
          {
             if (fid->type == EOLIAN_PROP_SET)
               return !st;
             if (st == IMPL_STATUS_SET)
               {
                  eina_hash_set(fs, &fid, (void *)IMPL_STATUS_FULL);
                  return (st < IMPL_STATUS_FULL);
               }
             else
               {
                  eina_hash_set(fs, &fid, (void *)IMPL_STATUS_GET);
                  return (st <= IMPL_STATUS_NONE);
               }
          }
        eina_hash_set(fs, &fid, (void *)IMPL_STATUS_FULL);
        return (st != IMPL_STATUS_FULL);
     }
   if (impl->implklass != impl->klass ||
       (!impl->get_pure_virtual && !impl->set_pure_virtual))
     {
        if (impl->is_prop_get)
          {
             eina_hash_set(fs, &fid, (void *)IMPL_STATUS_GET);
             return (st <= IMPL_STATUS_NONE);
          }
        else if (impl->is_prop_set)
          {
             eina_hash_set(fs, &fid, (void *)IMPL_STATUS_SET);
             return (st <= IMPL_STATUS_NONE);
          }
     }
   return !st;
}

static void
_db_fill_callables(Eolian_Class *cl, Eolian_Class *icl, Eina_Hash *fs, Eina_Bool parent)
{
   Eina_List *l;
   Eolian_Implement *impl;
   Eina_Bool allow_impl = parent || (icl->type == EOLIAN_CLASS_MIXIN);
   EINA_LIST_FOREACH(icl->callables, l, impl)
     {
        Impl_Status ost = (Impl_Status)eina_hash_find(fs, &impl->foo_id);
        Eina_Bool extd = (ost != IMPL_STATUS_FULL);
        if (icl->type == EOLIAN_CLASS_REGULAR)
          /* stuff coming from full classes is assumed to be already checked
           * so we are sure that everything is implemented or composite'd
           */
          eina_hash_set(fs, &impl->foo_id, (void *)IMPL_STATUS_FULL);
        else
          extd = _extend_impl(fs, impl, !allow_impl);
        if (extd)
          {
             /* we had an unimplementation in the list, replace
              * instead of appending the new thing to callables
              * this is a corner case, it shouldn't happen much
              */
             if (ost == IMPL_STATUS_NONE)
               {
                  Eina_List *ll;
                  Eolian_Implement *old;
                  EINA_LIST_FOREACH(cl->callables, ll, old)
                    {
                       if (old->foo_id == impl->foo_id)
                         eina_list_data_set(ll, impl);
                    }
               }
             else
               cl->callables = eina_list_append(cl->callables, impl);
          }
     }
}

static Eina_Bool
_db_check_implemented(Validate_State *vals, Eolian_Class *cl, Eina_Hash *fs, Eina_Hash *cs)
{
   if (cl->type != EOLIAN_CLASS_REGULAR)
     return EINA_TRUE;

   Eina_Bool succ = EINA_TRUE;

   if (!vals->unimplemented)
     return EINA_TRUE;

   Eina_List *l;
   Eolian_Implement *impl;
   EINA_LIST_FOREACH(cl->callables, l, impl)
     {
        const Eolian_Function *fid = impl->foo_id;
        Impl_Status st = (Impl_Status)eina_hash_find(fs, &fid);
        /* found an interface this func was originally defined in in the
         * composite list; in that case, ignore it and assume it will come
         * from a composite object later
         */
        if (eina_hash_find(cs, &fid->klass))
          continue;
        switch (st)
          {
           case IMPL_STATUS_NONE:
             _eo_parser_log(
               &cl->base, "unimplemented function '%s' (originally defined at %s:%d:%d)",
               fid->base.name, fid->base.file, fid->base.line, fid->base.column);
             succ = EINA_FALSE;
             continue;
           case IMPL_STATUS_GET:
           case IMPL_STATUS_SET:
             _eo_parser_log(
               &cl->base, "partially implemented function '%s' (originally defined at %s:%d:%d)",
               fid->base.name, fid->base.file, fid->base.line, fid->base.column);
             succ = EINA_FALSE;
             continue;
           case IMPL_STATUS_FULL:
             continue;
           default:
             _eo_parser_log(
               &cl->base, "internal error, unregistered function '%s' (originally defined at %s:%d:%d)",
               fid->base.name, fid->base.file, fid->base.line, fid->base.column);
             return EINA_FALSE;
          }
     }
   return succ;
}

static Eina_Bool
_db_fill_implements(Eolian_Class *cl, Eina_Hash *fs)
{
   Eolian_Implement *impl;
   Eina_List *l;

   Eina_Bool ret = EINA_TRUE;

   Eina_Hash *th = eina_hash_string_small_new(NULL),
             *pth = eina_hash_string_small_new(NULL);
   EINA_LIST_FOREACH(cl->implements, l, impl)
     {
        Eina_Bool prop = (impl->is_prop_get || impl->is_prop_set);
        if (eina_hash_find(prop ? pth : th, impl->base.name))
          {
             _eo_parser_log(&impl->base, "duplicate implement '%s'", impl->base.name);
             ret = EINA_FALSE;
             goto end;
          }
        if (impl->klass != cl)
          {
             if (!_db_fill_implement(cl, impl))
               {
                  ret = EINA_FALSE;
                  goto end;
               }
             if (eolian_function_is_constructor(impl->foo_id, impl->klass))
               database_function_constructor_add((Eolian_Function *)impl->foo_id, cl);
          }
        if ((impl->klass != cl) && !_db_fill_implement(cl, impl))
          {
             ret = EINA_FALSE;
             goto end;
          }
        cl->callables = eina_list_append(cl->callables, impl);
        eina_hash_add(prop ? pth : th, impl->base.name, impl->base.name);
        _extend_impl(fs, impl, cl->type == EOLIAN_CLASS_INTERFACE);
     }

end:
   eina_hash_free(th);
   eina_hash_free(pth);
   return ret;
}

static Eina_Bool
_db_fill_ctors(Eolian_Class *cl)
{
   Eolian_Constructor *ctor;
   Eina_List *l;

   Eina_Bool ret = EINA_TRUE;

   Eina_Hash *th = eina_hash_string_small_new(NULL);
   EINA_LIST_FOREACH(cl->constructors, l, ctor)
     {
        if (eina_hash_find(th, ctor->base.name))
          {
             _eo_parser_log(&ctor->base, "duplicate ctor '%s'", ctor->base.name);
             ret = EINA_FALSE;
             goto end;
          }
        const char *ldot = strrchr(ctor->base.name, '.');
        if (!ldot)
          {
             ret = EINA_FALSE;
             goto end;
          }
        char *cnbuf = alloca(ldot - ctor->base.name + 1);
        memcpy(cnbuf, ctor->base.name, ldot - ctor->base.name);
        cnbuf[ldot - ctor->base.name] = '\0';
        const Eolian_Class *tcl = _get_impl_class(cl, cnbuf);
        if (!tcl)
          {
             _eo_parser_log(&ctor->base, "class '%s' not found within the inheritance tree of '%s'",
                            cnbuf, cl->base.name);
             ret = EINA_FALSE;
             goto end;
          }
        ctor->klass = tcl;
        const Eolian_Function *cfunc = eolian_constructor_function_get(ctor);
        if (!cfunc)
          {
             _eo_parser_log(&ctor->base, "unable to find function '%s'", ctor->base.name);
             ret = EINA_FALSE;
             goto end;
          }
        database_function_constructor_add((Eolian_Function *)cfunc, tcl);
        eina_hash_add(th, ctor->base.name, ctor->base.name);
     }

end:
   eina_hash_free(th);
   return ret;
}

static Eina_Bool
_db_swap_inherit(Eolian_Class *cl, Eina_Bool succ, Eina_Stringshare *in_cl,
                 Eolian_Class **out_cl, Eina_Bool iface_only)
{
   if (!succ)
     {
        eina_stringshare_del(in_cl);
        return EINA_FALSE;
     }
   Eolian_Class *icl = eina_hash_find(cl->base.unit->classes, in_cl);
   if (!icl)
     {
        succ = EINA_FALSE;
        _eo_parser_log(&cl->base, "unknown inherit '%s' (incorrect case?)", in_cl);
     }
   else if (iface_only && (icl->type != EOLIAN_CLASS_INTERFACE))
     {
        succ = EINA_FALSE;
        _eo_parser_log(&cl->base, "non-interface class '%s' in composite list", icl->base.name);
     }
   else if (iface_only && !_get_impl_class(cl, icl->base.name))
     {
        /* TODO: optimize check using a lookup hash later */
        succ = EINA_FALSE;
        _eo_parser_log(&cl->base, "interface '%s' not found within the inheritance tree of '%s'",
                       icl->base.name, cl->base.name);
     }
   else
     *out_cl = icl;
   eina_stringshare_del(in_cl);
   return succ;
}

/* this is so we can inherit composite lists into regular classes
 * it doesn't need to be recursive since the parent/extension already
 * has its composite stuff filled in from before
 */
static void
_add_composite(Eolian_Class *cl, const Eolian_Class *icl, Eina_Hash *ch)
{
   const Eolian_Class *ccl;
   Eina_List *l;
   EINA_LIST_FOREACH(icl->composite, l, ccl)
     {
        if (eina_hash_find(ch, &ccl))
          continue;
        cl->composite = eina_list_append(cl->composite, ccl);
        eina_hash_add(ch, &ccl, ccl);
     }
}

static Eina_Bool
_db_fill_inherits(Validate_State *vals, Eolian_Class *cl, Eina_Hash *fhash)
{
   if (eina_hash_find(fhash, &cl->base.name))
     return EINA_TRUE;

   /* already merged outside of staging, therefore validated, and skipped */
   if (eina_hash_find(cl->base.unit->state->main.unit.classes, cl->base.name))
     return EINA_TRUE;

   Eina_List *il = cl->extends, *rl = cl->requires;
   Eina_Stringshare *inn = NULL;
   cl->extends = NULL;
   cl->requires = NULL;
   Eina_Bool succ = EINA_TRUE;

   if (cl->parent_name)
     {
        succ = _db_swap_inherit(cl, succ, cl->parent_name, &cl->parent, EINA_FALSE);
        if (succ)
          {
             /* fill if not found, but do not return right away because
              * the rest of the list needs to be freed in order not to
              * leak any memory
              */
             succ = _db_fill_inherits(vals, cl->parent, fhash);
          }
     }

   EINA_LIST_FREE(il, inn)
     {
        Eolian_Class *out_cl = NULL;
        succ = _db_swap_inherit(cl, succ, inn, &out_cl, EINA_FALSE);
        if (!succ)
          continue;
        cl->extends = eina_list_append(cl->extends, out_cl);
        succ = _db_fill_inherits(vals, out_cl, fhash);
     }

   if (succ && cl->type == EOLIAN_CLASS_MIXIN)
     {
        EINA_LIST_FREE(rl, inn)
          {
             Eolian_Class *out_cl = NULL;
             succ = _db_swap_inherit(cl, succ, inn, &out_cl, EINA_FALSE);
             if (succ && !(out_cl->type == EOLIAN_CLASS_REGULAR || out_cl->type == EOLIAN_CLASS_ABSTRACT))
               {
                  _eo_parser_log(&cl->base, "requires only allows regulars or abstracts");
                  succ = EINA_FALSE;
               }
             if (succ)
               {
                 _db_fill_inherits(vals, out_cl, fhash);
               }
             if (!succ)
               continue;
             if (!eina_list_data_find(cl->requires, out_cl))
               cl->requires = eina_list_append(cl->requires, out_cl);
          }
     }

   /* a set of interfaces for quick checks */
   Eina_Hash *ch = eina_hash_pointer_new(NULL);

   /* replace the composite list with real instances and initial-fill the hash */
   il = cl->composite;
   cl->composite = NULL;
   EINA_LIST_FREE(il, inn)
     {
        Eolian_Class *out_cl = NULL;
        succ = _db_swap_inherit(cl, succ, inn, &out_cl, EINA_TRUE);
        if (!succ)
          continue;
        cl->composite = eina_list_append(cl->composite, out_cl);
        eina_hash_set(ch, &out_cl, out_cl);
     }

   /* parent can be abstract, those are not checked for unimplemented,
    * plus later we'll be exposing composite as an API, so we need to add
    * all composite interfaces from everywhere in the inheritance tree anyway
    */
   if (cl->parent)
     _add_composite(cl, cl->parent, ch);

   /* iterate extensions, add any composite stuff into the hash as well */
   Eolian_Class *icl;
   EINA_LIST_FOREACH(cl->extends, il, icl)
     _add_composite(cl, icl, ch);

   /* failed on the way, no point in filling further
    * the failed stuff will get dropped so it's ok if it's inconsistent
    */
   if (!succ)
     {
        eina_hash_free(ch);
        return EINA_FALSE;
     }

   eina_hash_add(fhash, &cl->base.name, cl);

   /* stores mappings from function to Impl_Status */
   Eina_Hash *fh = eina_hash_pointer_new(NULL);

   /* make sure impls/ctors are filled first, but do it only once */
   if (!_db_fill_implements(cl, fh))
     {
        eina_hash_free(ch);
        eina_hash_free(fh);
        return EINA_FALSE;
     }

   if (!_db_fill_ctors(cl))
     {
        eina_hash_free(ch);
        eina_hash_free(fh);
        return EINA_FALSE;
     }

   /* fill callables list with stuff from inheritance tree, the current
    * class stuff is already filled in _db_fill_implements, this is needed
    * in order to make sure all methods are implemented
    */
   if (cl->parent)
     _db_fill_callables(cl, cl->parent, fh, EINA_TRUE);

   EINA_LIST_FOREACH(cl->extends, il, icl)
     _db_fill_callables(cl, icl, fh, EINA_FALSE);

   /* verify that all methods are implemented on the class */
   if (!_db_check_implemented(vals, cl, fh, ch))
     vals->warned = EINA_TRUE;

   eina_hash_free(fh);
   eina_hash_free(ch);

   return EINA_TRUE;
}

static Eina_Bool
_validate_implement(Eolian_Implement *impl)
{
   if (impl->base.validated)
     return EINA_TRUE;

   if (!_validate_doc(impl->common_doc))
     return EINA_FALSE;
   if (!_validate_doc(impl->get_doc))
     return EINA_FALSE;
   if (!_validate_doc(impl->set_doc))
     return EINA_FALSE;

   return _validate(&impl->base);
}

static Eina_List*
_required_classes(Eolian_Class *mixin)
{
   Eina_List *result = NULL, *n;
   Eolian_Class *extension;


   result = eina_list_clone(mixin->requires);

   if (mixin->parent)
     result = eina_list_merge(result, _required_classes(mixin->parent));

   EINA_LIST_FOREACH(mixin->extends, n, extension)
     result = eina_list_merge(result, _required_classes(extension));

   return result;
}

static Eina_Bool
_validate_class(Validate_State *vals, Eolian_Class *cl,
                Eina_Hash *nhash, Eina_Hash *ehash, Eina_Hash *chash)
{
   Eina_List *l;
   Eolian_Function *func;
   Eolian_Event *event;
   Eolian_Part *part;
   Eolian_Implement *impl;
   Eolian_Class *icl;
   Eina_List *required_classes = NULL;

   if (!cl)
     return EINA_FALSE; /* if this happens something is very wrong though */

   /* we've gone through this part */
   if (eina_hash_find(chash, &cl))
     return EINA_TRUE;

   Eina_Bool valid = cl->base.validated;

   if (cl->parent)
     {
        /* first inherit needs some checking done on it */
        if (!valid) switch (cl->type)
          {
           case EOLIAN_CLASS_REGULAR:
           case EOLIAN_CLASS_ABSTRACT:
             if (cl->parent->type != EOLIAN_CLASS_REGULAR && cl->parent->type != EOLIAN_CLASS_ABSTRACT)
               {
                  _eo_parser_log(&cl->base, "regular classes ('%s') cannot inherit from non-regular classes ('%s')",
                                 cl->base.name, cl->parent->base.name);
                  return EINA_FALSE;
               }
             break;
           default:
             break;
          }
        if (!_validate_class(vals, cl->parent, nhash, ehash, chash))
          return EINA_FALSE;
     }

   EINA_LIST_FOREACH(cl->extends, l, icl)
     {
        if (icl->type == EOLIAN_CLASS_MIXIN)
          {
             Eina_List *res = _required_classes(icl);
             Eolian_Class *required_class;
             Eina_List *n;
             EINA_LIST_FOREACH(res, n, required_class)
               {
                 if (!eina_list_data_find(required_classes, required_class))
                   required_classes = eina_list_append(required_classes, required_class);
               }
          }
        if (!valid) switch (icl->type)
          {
           case EOLIAN_CLASS_REGULAR:
           case EOLIAN_CLASS_ABSTRACT:
             /* regular class in extensions list, forbidden */
             {
                _eo_parser_log(&cl->base, "regular classes ('%s') cannot appear in extensions list of '%s'",
                               icl->base.name, cl->base.name);
                vals->warned = EINA_TRUE;
                break;
             }
           default:
             /* it's ok, interfaces are allowed */
             break;
          }
        if (!_validate_class(vals, icl, nhash, ehash, chash))
          return EINA_FALSE;
     }
   if (cl->type == EOLIAN_CLASS_ABSTRACT || cl->type == EOLIAN_CLASS_REGULAR)
     {
        //walk up the parent list and remove all classes from there
        icl = cl;
        while (icl)
          {
             required_classes = eina_list_remove(required_classes, icl);
             icl = icl->parent;
          }
        //if there are a few left, drop, and error
        if (required_classes)
          {
             Eina_Strbuf *classes = eina_strbuf_new();
             Eolian_Class *required_class;
             Eina_List *n;
             EINA_LIST_FOREACH(required_classes, n, required_class)
               {
                   eina_strbuf_append(classes, required_class->base.name);
                   eina_strbuf_append_char(classes, ' ');
               }
             _eo_parser_log(&cl->base, "required classes %sare not in the inherit chain of %s",
                            eina_strbuf_string_get(classes), cl->base.name);
             eina_strbuf_free(classes);
             return EINA_FALSE;
          }
     }


   EINA_LIST_FOREACH(cl->properties, l, func)
     if (!_validate_function(vals, func, nhash))
       return EINA_FALSE;

   EINA_LIST_FOREACH(cl->methods, l, func)
     if (!_validate_function(vals, func, nhash))
       return EINA_FALSE;

   EINA_LIST_FOREACH(cl->events, l, event)
     if (!_validate_event(vals, event, ehash))
       return EINA_FALSE;

   EINA_LIST_FOREACH(cl->parts, l, part)
     if (!_validate_part(vals, part, nhash))
       return EINA_FALSE;

   EINA_LIST_FOREACH(cl->implements, l, impl)
     if (!_validate_implement(impl))
       return EINA_FALSE;

   /* all the checks that need to be done every time are performed now */
   if (valid)
     {
        /* no need to go through this next time */
        eina_hash_add(chash, &cl, cl);
        return EINA_TRUE;
     }

   if (!_validate_doc(cl->doc))
     return EINA_FALSE;

   /* also done */
   eina_hash_add(chash, &cl, cl);

   return _validate(&cl->base);
}

static Eina_Bool
_validate_variable(Validate_State *vals, Eolian_Variable *var)
{
   if (var->base.validated)
     return EINA_TRUE;

   if (!_validate_type(vals, var->base_type))
     return EINA_FALSE;

   if (var->value && !_validate_expr(var->value, var->base_type, 0))
     return EINA_FALSE;

   if (!_validate_doc(var->doc))
     return EINA_FALSE;

   return _validate(&var->base);
}

static Eina_Bool
_typedecl_map_cb(const Eina_Hash *hash EINA_UNUSED, const void *key EINA_UNUSED,
                 Eolian_Typedecl *tp, Cb_Ret *sc)
{
   return (sc->succ = _validate_typedecl(sc->vals, tp));
}

static Eina_Bool
_var_map_cb(const Eina_Hash *hash EINA_UNUSED, const void *key EINA_UNUSED,
             Eolian_Variable *var, Cb_Ret *sc)
{
   return (sc->succ = _validate_variable(sc->vals, var));
}

Eina_Bool
database_validate(const Eolian_Unit *src)
{
   Eolian_Class *cl;

   Validate_State vals = {
      EINA_FALSE,
      !!getenv("EOLIAN_EVENT_REDEF_WARN"),
      !!getenv("EOLIAN_CLASS_UNIMPLEMENTED_WARN")
   };

   /* do an initial pass to refill inherits */
   Eina_Iterator *iter = eolian_unit_classes_get(src);
   Eina_Hash *fhash = eina_hash_pointer_new(NULL);
   EINA_ITERATOR_FOREACH(iter, cl)
     {
        if (!_db_fill_inherits(&vals, cl, fhash))
          {
             eina_hash_free(fhash);
             return EINA_FALSE;
          }
     }
   eina_hash_free(fhash);
   eina_iterator_free(iter);

   iter = eolian_unit_classes_get(src);
   Eina_Hash *nhash = eina_hash_pointer_new(NULL);
   Eina_Hash *ehash = eina_hash_pointer_new(NULL);
   Eina_Hash *chash = eina_hash_pointer_new(NULL);
   EINA_ITERATOR_FOREACH(iter, cl)
     {
        eina_hash_free_buckets(nhash);
        eina_hash_free_buckets(ehash);
        eina_hash_free_buckets(chash);
        if (!_validate_class(&vals, cl, nhash, ehash, chash))
          {
             eina_iterator_free(iter);
             eina_hash_free(nhash);
             eina_hash_free(ehash);
             eina_hash_free(chash);
             return EINA_FALSE;
          }
     }
   eina_hash_free(chash);
   eina_hash_free(ehash);
   eina_hash_free(nhash);
   eina_iterator_free(iter);

   Cb_Ret rt = { &vals, EINA_TRUE };

   eina_hash_foreach(src->aliases, (Eina_Hash_Foreach)_typedecl_map_cb, &rt);
   if (!rt.succ)
     return EINA_FALSE;

   eina_hash_foreach(src->structs, (Eina_Hash_Foreach)_typedecl_map_cb, &rt);
   if (!rt.succ)
     return EINA_FALSE;

   eina_hash_foreach(src->enums, (Eina_Hash_Foreach)_typedecl_map_cb, &rt);
   if (!rt.succ)
     return EINA_FALSE;

   eina_hash_foreach(src->globals, (Eina_Hash_Foreach)_var_map_cb, &rt);
   if (!rt.succ)
     return EINA_FALSE;

   eina_hash_foreach(src->constants, (Eina_Hash_Foreach)_var_map_cb, &rt);
   if (!rt.succ)
     return EINA_FALSE;

   if(vals.warned)
     return EINA_FALSE;

   return EINA_TRUE;
}