add _eo_tokenizer_XX_free() functions

1 files changed, 83 insertions, 0 deletions

diff --git a/eo_tokenizer.rl b/eo_tokenizer.rl
index 4d2bb57..aaccfdf 100644
--- a/eo_tokenizer.rl
+++ b/eo_tokenizer.rl
@@ -298,12 +298,95 @@ eo_tokenizer_dump(Eo_Tokenizer *toknz)
 
 }
 
+static void
+_eo_tokenizer_ret_free(Eo_Ret_Def *ret)
+{
+   if (ret->type) eina_stringshare_del(ret->type);
+   if (ret->comment) eina_stringshare_del(ret->comment);
+   /* do not free */
+}
+
+static void
+_eo_tokenizer_param_free(Eo_Param_Def *param)
+{
+   if (param->type) eina_stringshare_del(param->type);
+   if (param->name) eina_stringshare_del(param->name);
+   if (param->comment) eina_stringshare_del(param->comment);
+   free(param);
+}
+
+static void
+_eo_tokenizer_property_def_free(Eo_Property_Def *prop)
+{
+   Eo_Param_Def *param;
+
+   _eo_tokenizer_ret_free(&prop->ret);
+
+   if (prop->name)
+     eina_stringshare_del(prop->name);
+   if (prop->comment)
+     eina_stringshare_del(prop->comment);
+
+   EINA_LIST_FREE(prop->params, param)
+      _eo_tokenizer_param_free(param);
+
+   free(prop);
+}
+
+static void
+_eo_tokenizer_method_def_free(Eo_Method_Def *meth)
+{
+   Eo_Param_Def *param;
+
+   _eo_tokenizer_ret_free(&meth->ret);
+
+   if (meth->name)
+     eina_stringshare_del(meth->name);
+   if (meth->comment)
+     eina_stringshare_del(meth->comment);
+
+   EINA_LIST_FREE(meth->params, param)
+      _eo_tokenizer_param_free(param);
+
+   free(meth);
+}
+
+static void
+_eo_tokenizer_class_def_free(Eo_Class_Def *kls)
+{
+   const char *s;
+   Eina_List *l;
+   Eo_Property_Def *prop;
+   Eo_Method_Def *meth;
+
+   if (kls->name)
+     eina_stringshare_del(kls->name);
+   if (kls->comment)
+     eina_stringshare_del(kls->comment);
+
+   EINA_LIST_FOREACH(kls->inherits, l, s)
+      if (s) eina_stringshare_del(s);
+
+   EINA_LIST_FREE(kls->properties, prop)
+      _eo_tokenizer_property_def_free(prop);
+
+   EINA_LIST_FREE(kls->methods, meth)
+      _eo_tokenizer_method_def_free(meth);
+
+   free(kls);
+}
+
 void
 eo_tokenizer_free(Eo_Tokenizer *toknz)
 {
+   Eo_Class_Def *kls;
+
    if (toknz->source)
      eina_stringshare_del(toknz->source);
 
+   EINA_LIST_FREE(toknz->classes, kls)
+      _eo_tokenizer_class_def_free(kls);
+
    free(toknz);
 }