#include "Clouseau.h"
#include "clouseau_private.h"

EAPI void
clouseau_object_information_free(Clouseau_Object *oinfo)
{
   if (!oinfo)
     return;

   eina_stringshare_del(oinfo->evas_props.name);
   eina_stringshare_del(oinfo->evas_props.bt);

   if (oinfo->evas_props.points)
     free(oinfo->evas_props.points);

   switch (oinfo->extra_props.type)
     {
      case CLOUSEAU_OBJ_TYPE_ELM:
         eina_stringshare_del(oinfo->extra_props.u.elm.type);
         eina_stringshare_del(oinfo->extra_props.u.elm.style);
         break;
      case CLOUSEAU_OBJ_TYPE_TEXT:
         eina_stringshare_del(oinfo->extra_props.u.text.font);
         eina_stringshare_del(oinfo->extra_props.u.text.source);
         eina_stringshare_del(oinfo->extra_props.u.text.text);
         break;
      case CLOUSEAU_OBJ_TYPE_IMAGE:
         eina_stringshare_del(oinfo->extra_props.u.image.file);
         eina_stringshare_del(oinfo->extra_props.u.image.key);
         eina_stringshare_del(oinfo->extra_props.u.image.load_err);
         break;
      case CLOUSEAU_OBJ_TYPE_EDJE:
         eina_stringshare_del(oinfo->extra_props.u.edje.file);
         eina_stringshare_del(oinfo->extra_props.u.edje.group);

         eina_stringshare_del(oinfo->extra_props.u.edje.load_err);
         break;
      case CLOUSEAU_OBJ_TYPE_TEXTBLOCK:
         eina_stringshare_del(oinfo->extra_props.u.textblock.style);
         eina_stringshare_del(oinfo->extra_props.u.textblock.text);
         break;
      case CLOUSEAU_OBJ_TYPE_UNKNOWN:
      case CLOUSEAU_OBJ_TYPE_OTHER:
         break;
      default:
         break;
     }

   free(oinfo);
}

static void
_clouseau_eo_from_legacy_convert_helper(Eo_Dbg_Info *new_root, Clouseau_Eo_Dbg_Info *root)
{
   if (root->type != EINA_VALUE_TYPE_LIST)
     {
        EO_DBG_INFO_APPEND(new_root, root->name, root->type, root->un_dbg_info);
     }
   else
     {
        Eina_List *l;
        Clouseau_Eo_Dbg_Info *eo;

        new_root = EO_DBG_INFO_LIST_APPEND(new_root, root->name);
        EINA_LIST_FOREACH(root->un_dbg_info.dbg.list, l, eo)
          {
             _clouseau_eo_from_legacy_convert_helper(new_root, eo);
          }
     }
}

Eo_Dbg_Info *
clouseau_eo_from_legacy_convert(Eina_List *root)
{
   Eo_Dbg_Info *new_root = NULL;
   Eina_List *l;
   Clouseau_Eo_Dbg_Info *eo;

   new_root = EO_DBG_INFO_LIST_APPEND(NULL, "");
   EINA_LIST_FOREACH(root, l, eo)
     {
        _clouseau_eo_from_legacy_convert_helper(new_root, eo);
     }

   return new_root;
}

/* This function converts a list of Eo_Dbg_Info
 * to a list of Clouseau_Eo_Dbg_Info.
 * This is required because we would like to keep the def of
 * Eo_Dbg_Info in EO code. Thus, avoiding API/ABI error if user
 * does not do a full update of Clouseau and EO                 */
Eina_List *
clouseau_eo_to_legacy_convert(Eo_Dbg_Info *root)
{
   Eina_List *l;
   Eina_List *new_list = NULL;
   Eo_Dbg_Info *eo;

   if (!root && (eina_value_type_get(&(root->value)) != EINA_VALUE_TYPE_LIST))
     return new_list;
   Eina_Value_List root_list;
   eina_value_pget(&(root->value), &root_list);

   EINA_LIST_FOREACH(root_list.list, l, eo)
     {
        Clouseau_Eo_Dbg_Info *info = calloc(1, sizeof(*info));
        info->type = eina_value_type_get(&(eo->value));
        info->name = eina_stringshare_add(eo->name);

        if (info->type == EINA_VALUE_TYPE_STRING)
          {
             const char *tmp;
             eina_value_get(&(eo->value), &tmp);
             info->un_dbg_info.text.s = eina_stringshare_add(tmp);
          }
        else if (info->type == EINA_VALUE_TYPE_INT)
          {
             eina_value_get(&(eo->value), &(info->un_dbg_info.intg.i));
          }
        else if (info->type == EINA_VALUE_TYPE_CHAR)
          {
             eina_value_get(&(eo->value), &(info->un_dbg_info.bl.b));
          }
        else if (info->type == EINA_VALUE_TYPE_UINT64)
          {
             uint64_t tmp;
             eina_value_get(&(eo->value), &tmp);
             info->un_dbg_info.ptr.p = tmp;
          }
        else if (info->type == EINA_VALUE_TYPE_DOUBLE)
          {
             eina_value_get(&(eo->value), &(info->un_dbg_info.dbl.d));
          }
        else if (info->type == EINA_VALUE_TYPE_LIST)
          {
             info->un_dbg_info.dbg.list =
                clouseau_eo_to_legacy_convert(eo);
          }
        else
          {
             // FIXME
             printf("Oops, wrong type.\n");
          }

        new_list = eina_list_append(new_list, info);
     }

   return new_list;
}

EAPI Clouseau_Object *
clouseau_object_information_get(Clouseau_Tree_Item *treeit)
{
   Evas_Object *obj = (void*) (uintptr_t) treeit->ptr;
   Eo_Dbg_Info *eo_dbg_info = EO_DBG_INFO_LIST_APPEND(NULL, "");

   if (!treeit->is_obj)
     return NULL;

   eo_do(obj, eo_dbg_info_get(eo_dbg_info));
   treeit->eo_info = clouseau_eo_to_legacy_convert(eo_dbg_info);

   eo_dbg_info_free(eo_dbg_info); /* Free original list */

   return NULL;
}

static const struct {
   const char *text;
   Evas_Object_Pointer_Mode mode;
} pointer_mode[3] = {
# define POINTER_MODE(Value) { #Value, Value }
  POINTER_MODE(EVAS_OBJECT_POINTER_MODE_AUTOGRAB),
  POINTER_MODE(EVAS_OBJECT_POINTER_MODE_NOGRAB),
  POINTER_MODE(EVAS_OBJECT_POINTER_MODE_NOGRAB_NO_REPEAT_UPDOWN)
# undef POINTER_MODE
};

static const struct {
   Clouseau_Object_Type type;
   const char *name;
} _clouseau_types[] = {
  { CLOUSEAU_OBJ_TYPE_ELM, "Elementary" },
  { CLOUSEAU_OBJ_TYPE_TEXT, "Text" },
  { CLOUSEAU_OBJ_TYPE_IMAGE, "Image" },
  { CLOUSEAU_OBJ_TYPE_EDJE, "Edje" },
  { CLOUSEAU_OBJ_TYPE_TEXTBLOCK, "Textblock" }
};

EAPI void
clouseau_object_information_list_populate(Clouseau_Tree_Item *treeit, Evas_Object *lb)
{
   Clouseau_Object *oinfo;
   char buf[1024];
   unsigned int i;
   Eo_Dbg_Info *root = EO_DBG_INFO_LIST_APPEND(NULL, "");

   if (!treeit->is_obj)
      return;

   oinfo = treeit->info;

   /* This code is here only for backward compatibility and will be removed soon */
   if (!treeit->eo_info)
     {
        /* Populate evas properties list */
        Eo_Dbg_Info *group = EO_DBG_INFO_LIST_APPEND(root, "Evas");
        Eo_Dbg_Info *node;

        EO_DBG_INFO_APPEND(group, "Visibility", EINA_VALUE_TYPE_CHAR, oinfo->evas_props.is_visible);
        EO_DBG_INFO_APPEND(group, "Layer", EINA_VALUE_TYPE_INT, oinfo->evas_props.layer);

        node = EO_DBG_INFO_LIST_APPEND(group, "Position");
        EO_DBG_INFO_APPEND(node, "x", EINA_VALUE_TYPE_INT, oinfo->evas_props.x);
        EO_DBG_INFO_APPEND(node, "y", EINA_VALUE_TYPE_INT, oinfo->evas_props.y);

        node = EO_DBG_INFO_LIST_APPEND(group, "Size");
        EO_DBG_INFO_APPEND(node, "w", EINA_VALUE_TYPE_INT, oinfo->evas_props.w);
        EO_DBG_INFO_APPEND(node, "h", EINA_VALUE_TYPE_INT, oinfo->evas_props.h);

        EO_DBG_INFO_APPEND(group, "Scale", EINA_VALUE_TYPE_DOUBLE, oinfo->evas_props.scale);

#if 0
        if (evas_object_clip_get(obj))
          {
             evas_object_geometry_get(evas_object_clip_get(obj), &x, &y, &w, &h);
             _clouseau_information_geometry_to_tree(main_tit, "Clipper position", x, y);
             _clouseau_information_geometry_to_tree(main_tit, "Clipper size", w, h);
          }
#endif

        node = EO_DBG_INFO_LIST_APPEND(group, "Min size");
        EO_DBG_INFO_APPEND(node, "w", EINA_VALUE_TYPE_INT, oinfo->evas_props.min_w);
        EO_DBG_INFO_APPEND(node, "h", EINA_VALUE_TYPE_INT, oinfo->evas_props.min_h);
        node = EO_DBG_INFO_LIST_APPEND(group, "Max size");
        EO_DBG_INFO_APPEND(node, "w", EINA_VALUE_TYPE_INT, oinfo->evas_props.max_w);
        EO_DBG_INFO_APPEND(node, "h", EINA_VALUE_TYPE_INT, oinfo->evas_props.max_h);
        node = EO_DBG_INFO_LIST_APPEND(group, "Request size");
        EO_DBG_INFO_APPEND(node, "w", EINA_VALUE_TYPE_INT, oinfo->evas_props.req_w);
        EO_DBG_INFO_APPEND(node, "h", EINA_VALUE_TYPE_INT, oinfo->evas_props.req_h);
        node = EO_DBG_INFO_LIST_APPEND(group, "Align");
        EO_DBG_INFO_APPEND(node, "w", EINA_VALUE_TYPE_DOUBLE, oinfo->evas_props.align_x);
        EO_DBG_INFO_APPEND(node, "h", EINA_VALUE_TYPE_DOUBLE, oinfo->evas_props.align_y);
        node = EO_DBG_INFO_LIST_APPEND(group, "Weight");
        EO_DBG_INFO_APPEND(node, "w", EINA_VALUE_TYPE_DOUBLE, oinfo->evas_props.weight_x);
        EO_DBG_INFO_APPEND(node, "h", EINA_VALUE_TYPE_DOUBLE, oinfo->evas_props.weight_y);

#if 0
        evas_object_size_hint_aspect_get(obj, &w, &h);
        _clouseau_information_geometry_to_tree(main_tit, "Aspect", w, h);
#endif

        node = EO_DBG_INFO_LIST_APPEND(group, "Color");
        EO_DBG_INFO_APPEND(node, "r", EINA_VALUE_TYPE_INT, oinfo->evas_props.r);
        EO_DBG_INFO_APPEND(node, "g", EINA_VALUE_TYPE_INT, oinfo->evas_props.g);
        EO_DBG_INFO_APPEND(node, "b", EINA_VALUE_TYPE_INT, oinfo->evas_props.b);
        EO_DBG_INFO_APPEND(node, "a", EINA_VALUE_TYPE_INT, oinfo->evas_props.a);

        EO_DBG_INFO_APPEND(group, "Has focus", EINA_VALUE_TYPE_CHAR, oinfo->evas_props.has_focus);

        for (i = 0; i < sizeof (pointer_mode) / sizeof (pointer_mode[0]); ++i)
           if (pointer_mode[i].mode == oinfo->evas_props.mode)
             {
                EO_DBG_INFO_APPEND(group, "Pointer Mode", EINA_VALUE_TYPE_STRING, pointer_mode[i].text);
                break;
             }

        EO_DBG_INFO_APPEND(group, "Pass Events", EINA_VALUE_TYPE_CHAR, oinfo->evas_props.pass_events);
        EO_DBG_INFO_APPEND(group, "Repeat Events", EINA_VALUE_TYPE_CHAR, oinfo->evas_props.repeat_events);
        EO_DBG_INFO_APPEND(group, "Propagate Events", EINA_VALUE_TYPE_CHAR, oinfo->evas_props.propagate_events);
        EO_DBG_INFO_APPEND(group, "Has clipees", EINA_VALUE_TYPE_CHAR, oinfo->evas_props.is_clipper);
        if (oinfo->evas_props.clipper)
          {
             snprintf(buf, sizeof(buf), "%llx", oinfo->evas_props.clipper);
             EO_DBG_INFO_APPEND(group, "Clipper", EINA_VALUE_TYPE_STRING, buf);
          }

        if (oinfo->evas_props.points_count)
          {
             node = EO_DBG_INFO_LIST_APPEND(group, "Evas Map");
             Clouseau_Evas_Map_Point_Props *p;
             for(i = 0 ; (int) i < oinfo->evas_props.points_count; i++)
               {
                  p = &oinfo->evas_props.points[i];

                  Eo_Dbg_Info *point = EO_DBG_INFO_LIST_APPEND(node, "Coords");
                  EO_DBG_INFO_APPEND(point, "x", EINA_VALUE_TYPE_INT, p->x);
                  EO_DBG_INFO_APPEND(point, "y", EINA_VALUE_TYPE_INT, p->y);
                  EO_DBG_INFO_APPEND(point, "z", EINA_VALUE_TYPE_INT, p->z);
               }
          }

        if (oinfo->extra_props.type == CLOUSEAU_OBJ_TYPE_ELM)
          {
             group = EO_DBG_INFO_LIST_APPEND(root, "Elm");
             EO_DBG_INFO_APPEND(group, "Wid-Type", EINA_VALUE_TYPE_STRING, oinfo->extra_props.u.elm.type);
#if 0
             /* Extract actual data from theme? */
             _clouseau_information_string_to_tree(main_tit, "Theme", elm_widget_theme_get(obj));
#endif
             EO_DBG_INFO_APPEND(group, "Style", EINA_VALUE_TYPE_STRING, oinfo->extra_props.u.elm.style);
             EO_DBG_INFO_APPEND(group, "Scale", EINA_VALUE_TYPE_DOUBLE, oinfo->extra_props.u.elm.scale);
             EO_DBG_INFO_APPEND(group, "Disabled", EINA_VALUE_TYPE_CHAR, oinfo->extra_props.u.elm.is_disabled);
             EO_DBG_INFO_APPEND(group, "Has focus", EINA_VALUE_TYPE_CHAR, oinfo->extra_props.u.elm.has_focus);
             EO_DBG_INFO_APPEND(group, "Mirrored", EINA_VALUE_TYPE_CHAR, oinfo->extra_props.u.elm.is_mirrored);
             EO_DBG_INFO_APPEND(group, "Automatic mirroring", EINA_VALUE_TYPE_CHAR, oinfo->extra_props.u.elm.is_mirrored_automatic);
          }
        else if (oinfo->extra_props.type == CLOUSEAU_OBJ_TYPE_TEXT)
          {  /* EVAS_OBJ_TEXT_CLASS */
             group = EO_DBG_INFO_LIST_APPEND(root, "Text");
             EO_DBG_INFO_APPEND(group, "Font", EINA_VALUE_TYPE_STRING, oinfo->extra_props.u.text.font);

             EO_DBG_INFO_APPEND(group, "Size", EINA_VALUE_TYPE_INT, oinfo->extra_props.u.text.size);

             EO_DBG_INFO_APPEND(group, "Source", EINA_VALUE_TYPE_STRING, oinfo->extra_props.u.text.source);
             EO_DBG_INFO_APPEND(group, "Text", EINA_VALUE_TYPE_STRING, oinfo->extra_props.u.text.text);
          }
        else if (oinfo->extra_props.type == CLOUSEAU_OBJ_TYPE_IMAGE)
          {  /* EVAS_OBJ_IMAGE_CLASS */
             group = EO_DBG_INFO_LIST_APPEND(root, "Image");
             EO_DBG_INFO_APPEND(group, "Filename", EINA_VALUE_TYPE_STRING, oinfo->extra_props.u.image.file);
             EO_DBG_INFO_APPEND(group, "File key", EINA_VALUE_TYPE_STRING, oinfo->extra_props.u.image.key);
             EO_DBG_INFO_APPEND(group, "Source", EINA_VALUE_TYPE_UINT64, oinfo->extra_props.u.image.source);

             if (oinfo->extra_props.u.image.load_err)
                EO_DBG_INFO_APPEND(group, "Load error", EINA_VALUE_TYPE_STRING, oinfo->extra_props.u.image.load_err);
          }
        else if (oinfo->extra_props.type == CLOUSEAU_OBJ_TYPE_EDJE)
          {  /* EDJE_OBJ_CLASS */
             group = EO_DBG_INFO_LIST_APPEND(root, "Edje");
             EO_DBG_INFO_APPEND(group, "File", EINA_VALUE_TYPE_STRING, oinfo->extra_props.u.edje.file);
             EO_DBG_INFO_APPEND(group, "Group", EINA_VALUE_TYPE_STRING, oinfo->extra_props.u.edje.group);
             if (oinfo->extra_props.u.image.load_err)
                EO_DBG_INFO_APPEND(group, "Load error", EINA_VALUE_TYPE_STRING, oinfo->extra_props.u.edje.load_err);
          }
        else if (oinfo->extra_props.type == CLOUSEAU_OBJ_TYPE_TEXTBLOCK)
          {  /* EVAS_OBJ_TEXTBLOCK_CLASS */
             group = EO_DBG_INFO_LIST_APPEND(root, "Text Block");
             EO_DBG_INFO_APPEND(group, "Style", EINA_VALUE_TYPE_STRING, oinfo->extra_props.u.textblock.style);
             EO_DBG_INFO_APPEND(group, "Text", EINA_VALUE_TYPE_STRING, oinfo->extra_props.u.textblock.text);
          }

        /* Update backtrace text */
        if (oinfo->evas_props.bt)
          {  /* Build backtrace label */
             char *k = malloc(strlen("Creation backtrace:\n\n") +
                   strlen(oinfo->evas_props.bt) + 1);

             sprintf(k, "Creation backtrace:\n\n%s", oinfo->evas_props.bt);
             char *p = elm_entry_utf8_to_markup(k);
             elm_object_text_set(lb, p);
             free(p);
             free(k);
          }
        else
           elm_object_text_set(lb, NULL);

        /* Convert Old format to Clouseau_eo */
        treeit->eo_info = clouseau_eo_to_legacy_convert(root);
        eo_dbg_info_free(root);
     }
}