260 lines
6.4 KiB
C
260 lines
6.4 KiB
C
#ifdef HAVE_CONFIG_H
|
|
# include "config.h"
|
|
#endif
|
|
|
|
#include "eo_parser.h"
|
|
|
|
static Eina_Bool
|
|
_func_error(Eolian_Class *cl, Eolian_Implement *impl)
|
|
{
|
|
eina_log_print(_eolian_log_dom, EINA_LOG_LEVEL_ERR, impl->base.file, "",
|
|
impl->base.line, "%s%s not known in class %s at column %d",
|
|
impl->full_name, (impl->is_prop_get ? ".get"
|
|
: (impl->is_prop_set ? ".set" : "")),
|
|
eolian_class_name_get(cl), impl->base.column);
|
|
return EINA_FALSE;
|
|
}
|
|
|
|
static Eina_Bool
|
|
_get_impl_func(Eolian_Class *cl, Eolian_Implement *impl,
|
|
Eolian_Function_Type ftype, Eolian_Function **foo_id)
|
|
{
|
|
size_t cllen = strlen(cl->full_name);
|
|
size_t imlen = strlen(impl->full_name);
|
|
const char *imstr = impl->full_name;
|
|
*foo_id = NULL;
|
|
if (imstr[0] == '.')
|
|
++imstr;
|
|
else if ((imlen > (cllen + 1)) && (*(imstr + cllen) == '.')
|
|
&& !strncmp(imstr, cl->full_name, cllen))
|
|
imstr += cllen + 1;
|
|
else
|
|
return EINA_TRUE;
|
|
if (strchr(imstr, '.'))
|
|
return EINA_FALSE;
|
|
impl->klass = cl;
|
|
*foo_id = (Eolian_Function*)eolian_class_function_get_by_name(cl, imstr,
|
|
ftype);
|
|
impl->foo_id = *foo_id;
|
|
return !!*foo_id;
|
|
}
|
|
|
|
static void
|
|
_write_impl(Eolian_Function *fid, Eolian_Implement *impl)
|
|
{
|
|
if (impl->is_prop_set)
|
|
fid->set_impl = impl;
|
|
else if (impl->is_prop_get)
|
|
fid->get_impl = impl;
|
|
else
|
|
fid->get_impl = fid->set_impl = impl;
|
|
}
|
|
|
|
static Eina_Bool
|
|
_db_fill_implement(Eolian_Class *cl, Eolian_Implement *impl)
|
|
{
|
|
const char *impl_name = impl->full_name;
|
|
|
|
Eolian_Function *foo_id;
|
|
Eolian_Function_Type ftype = EOLIAN_UNRESOLVED;
|
|
|
|
if (impl->is_prop_get)
|
|
ftype = EOLIAN_PROP_GET;
|
|
else if (impl->is_prop_set)
|
|
ftype = EOLIAN_PROP_SET;
|
|
|
|
if (impl->is_virtual)
|
|
{
|
|
foo_id = (Eolian_Function*)eolian_class_function_get_by_name(cl,
|
|
impl_name, ftype);
|
|
if (!foo_id)
|
|
return _func_error(cl, impl);
|
|
if (impl->is_prop_set)
|
|
foo_id->set_virtual_pure = EINA_TRUE;
|
|
else
|
|
foo_id->get_virtual_pure = EINA_TRUE;
|
|
|
|
impl->full_name = eina_stringshare_printf("%s.%s", cl->full_name,
|
|
impl_name);
|
|
eina_stringshare_del(impl_name);
|
|
impl_name = impl->full_name;
|
|
|
|
_write_impl(foo_id, impl);
|
|
}
|
|
else if (impl->is_auto)
|
|
{
|
|
if (!_get_impl_func(cl, impl, ftype, &foo_id))
|
|
return _func_error(cl, impl);
|
|
if (!foo_id)
|
|
goto pasttags;
|
|
if (impl->is_prop_set)
|
|
foo_id->set_auto = EINA_TRUE;
|
|
else
|
|
foo_id->get_auto = EINA_TRUE;
|
|
|
|
_write_impl(foo_id, impl);
|
|
}
|
|
else if (impl->is_empty)
|
|
{
|
|
if (!_get_impl_func(cl, impl, ftype, &foo_id))
|
|
return _func_error(cl, impl);
|
|
if (!foo_id)
|
|
goto pasttags;
|
|
if (impl->is_prop_set)
|
|
foo_id->set_empty = EINA_TRUE;
|
|
else
|
|
foo_id->get_empty = EINA_TRUE;
|
|
|
|
_write_impl(foo_id, impl);
|
|
}
|
|
else if (!_get_impl_func(cl, impl, ftype, &foo_id))
|
|
return _func_error(cl, impl);
|
|
|
|
pasttags:
|
|
if (impl_name[0] == '.')
|
|
{
|
|
impl->full_name = eina_stringshare_printf("%s%s", cl->full_name,
|
|
impl_name);
|
|
eina_stringshare_del(impl_name);
|
|
}
|
|
|
|
return EINA_TRUE;
|
|
}
|
|
|
|
static void
|
|
_db_build_implement(Eolian_Class *cl, Eolian_Function *foo_id)
|
|
{
|
|
if (foo_id->type == EOLIAN_PROP_SET)
|
|
{
|
|
if (foo_id->set_impl) return;
|
|
}
|
|
else if (foo_id->type == EOLIAN_PROP_GET)
|
|
{
|
|
if (foo_id->get_impl) return;
|
|
}
|
|
else if (foo_id->get_impl && foo_id->set_impl) return;
|
|
|
|
Eolian_Implement *impl = calloc(1, sizeof(Eolian_Implement));
|
|
|
|
if (foo_id->type == EOLIAN_PROP_SET)
|
|
impl->base = foo_id->set_base;
|
|
else
|
|
impl->base = foo_id->base;
|
|
eina_stringshare_ref(impl->base.file);
|
|
|
|
impl->klass = cl;
|
|
impl->foo_id = foo_id;
|
|
impl->full_name = eina_stringshare_printf("%s.%s", cl->full_name,
|
|
foo_id->name);
|
|
|
|
if (foo_id->type == EOLIAN_PROPERTY)
|
|
{
|
|
if (foo_id->get_impl)
|
|
{
|
|
impl->is_prop_set = EINA_TRUE;
|
|
foo_id->set_impl = impl;
|
|
}
|
|
else if (foo_id->set_impl)
|
|
{
|
|
impl->is_prop_get = EINA_TRUE;
|
|
foo_id->get_impl = impl;
|
|
}
|
|
else
|
|
foo_id->get_impl = foo_id->set_impl = impl;
|
|
}
|
|
else if (foo_id->type == EOLIAN_PROP_SET)
|
|
{
|
|
impl->is_prop_set = EINA_TRUE;
|
|
foo_id->set_impl = impl;
|
|
}
|
|
else if (foo_id->type == EOLIAN_PROP_GET)
|
|
{
|
|
impl->is_prop_get = EINA_TRUE;
|
|
foo_id->get_impl = impl;
|
|
}
|
|
else
|
|
foo_id->get_impl = foo_id->set_impl = impl;
|
|
|
|
cl->implements = eina_list_append(cl->implements, impl);
|
|
}
|
|
|
|
static Eina_Bool
|
|
_db_fill_implements(Eolian_Class *cl)
|
|
{
|
|
Eolian_Implement *impl;
|
|
Eolian_Function *foo_id;
|
|
Eina_List *l;
|
|
|
|
EINA_LIST_FOREACH(cl->implements, l, impl)
|
|
if (!_db_fill_implement(cl, impl))
|
|
return EINA_FALSE;
|
|
|
|
EINA_LIST_FOREACH(cl->properties, l, foo_id)
|
|
_db_build_implement(cl, foo_id);
|
|
|
|
EINA_LIST_FOREACH(cl->methods, l, foo_id)
|
|
_db_build_implement(cl, foo_id);
|
|
|
|
return EINA_TRUE;
|
|
}
|
|
|
|
static Eina_Bool
|
|
_db_fill_class(Eolian_Class *cl)
|
|
{
|
|
if (!_db_fill_implements(cl))
|
|
return EINA_FALSE;
|
|
|
|
eina_hash_set(_classes, cl->full_name, cl);
|
|
eina_hash_set(_classesf, cl->base.file, cl);
|
|
|
|
return EINA_TRUE;
|
|
}
|
|
|
|
Eina_Bool
|
|
eo_parser_database_fill(const char *filename, Eina_Bool eot)
|
|
{
|
|
Eolian_Class *cl;
|
|
|
|
Eo_Lexer *ls = eo_lexer_new(filename);
|
|
if (!ls)
|
|
{
|
|
ERR("unable to create lexer");
|
|
return EINA_FALSE;
|
|
}
|
|
|
|
/* read first token */
|
|
eo_lexer_get(ls);
|
|
|
|
if (!eo_parser_walk(ls, eot))
|
|
{
|
|
eo_lexer_free(ls);
|
|
return EINA_FALSE;
|
|
}
|
|
|
|
if (eot) goto done;
|
|
|
|
if (!eina_list_count(ls->tmp.classes))
|
|
{
|
|
ERR("No classes for file %s", filename);
|
|
eo_lexer_free(ls);
|
|
return EINA_FALSE;
|
|
}
|
|
|
|
while (ls->tmp.classes)
|
|
{
|
|
cl = eina_list_data_get(ls->tmp.classes);
|
|
if (!_db_fill_class(cl))
|
|
goto error;
|
|
ls->tmp.classes = eina_list_remove_list(ls->tmp.classes,
|
|
ls->tmp.classes);
|
|
}
|
|
|
|
done:
|
|
eo_lexer_free(ls);
|
|
return EINA_TRUE;
|
|
|
|
error:
|
|
eo_lexer_free(ls);
|
|
return EINA_FALSE;
|
|
}
|