exactness/src/bin/inspect.c

#ifndef EFL_BETA_API_SUPPORT
#define EFL_BETA_API_SUPPORT
#endif
#ifndef EFL_EO_API_SUPPORT
#define EFL_EO_API_SUPPORT
#endif
#include <Ecore.h>
#include <Ecore_Getopt.h>
#include <Ecore_Evas.h>
#include <Elementary.h>

#include "tsuite_file_data.h"

#define LDIFF(x) "<b><color=#F0F>"#x"</color></b>"
#define RDIFF(x) "<b><color=#0FF>"#x"</color></b>"

typedef enum
{
   EX_SCENARIO,
   EX_IMAGE,
   EX_OBJ_INFO
} _Data_Type;

typedef struct
{
   void *p1;
   void *p2;
   _Data_Type dt;
} _Compare_Item_Data;

typedef struct
{
   void *ex_parent;
   Eo *gl_item;
} _Item_Info;

static Eo *_main_box = NULL;
static Eina_List *_gls = NULL;
static Eina_List *_units = NULL;
static Eo *_comp_selected_item = NULL;

static Elm_Genlist_Item_Class *_grp_itc = NULL, *_scn_itc = NULL, *_img_itc = NULL;
static Elm_Genlist_Item_Class *_objs_itc = NULL, *_obj_itc = NULL;

static Eina_Hash *_item_infos_hash = NULL;

static const char *
_event_name_get(const Variant_st *v)
{
   if (!v) return NULL;
   switch(tsuite_event_mapping_type_get(v->t.type))
     {
      case TSUITE_EVENT_MOUSE_IN: return "Mouse In";
      case TSUITE_EVENT_MOUSE_OUT: return "Mouse Out";
      case TSUITE_EVENT_MOUSE_DOWN: return "Mouse Down";
      case TSUITE_EVENT_MOUSE_UP: return "Mouse Up";
      case TSUITE_EVENT_MOUSE_MOVE: return "Mouse Move";
      case TSUITE_EVENT_MOUSE_WHEEL: return "Mouse Wheel";
      case TSUITE_EVENT_MULTI_DOWN: return "Multi Down";
      case TSUITE_EVENT_MULTI_UP: return "Multi Up";
      case TSUITE_EVENT_MULTI_MOVE: return "Multi Move";
      case TSUITE_EVENT_KEY_DOWN: return "Key Down";
      case TSUITE_EVENT_KEY_UP: return "Key Up";
      case TSUITE_EVENT_KEY_DOWN_WITH_KEYCODE: return "Key Down with Keycode";
      case TSUITE_EVENT_KEY_UP_WITH_KEYCODE: return "Key Up with Keycode";
      case TSUITE_EVENT_TAKE_SHOT: return "Take shot";
      default: return NULL;
     }
}

static int
_event_struct_len_get(Tsuite_Event_Type type)
{
   switch(type)
     {
      case TSUITE_EVENT_MOUSE_IN: case TSUITE_EVENT_MOUSE_OUT: return sizeof(mouse_in_mouse_out);
      case TSUITE_EVENT_MOUSE_DOWN: case TSUITE_EVENT_MOUSE_UP: return sizeof(mouse_down_mouse_up);
      case TSUITE_EVENT_MOUSE_MOVE: return sizeof(mouse_move);
      case TSUITE_EVENT_MOUSE_WHEEL: return sizeof(mouse_wheel);
      case TSUITE_EVENT_MULTI_DOWN: case TSUITE_EVENT_MULTI_UP: return sizeof(multi_move);
      case TSUITE_EVENT_MULTI_MOVE: return sizeof(multi_event);
      case TSUITE_EVENT_KEY_DOWN: case TSUITE_EVENT_KEY_UP: return sizeof(key_down_key_up);
      case TSUITE_EVENT_KEY_DOWN_WITH_KEYCODE: case TSUITE_EVENT_KEY_UP_WITH_KEYCODE: return sizeof(key_down_key_up_with_keycode);
      case TSUITE_EVENT_TAKE_SHOT: return sizeof(take_screenshot);
      default: return 0;
     }
}

static void
_event_specific_info_get(const Variant_st *v, char output[1024])
{
   switch(tsuite_event_mapping_type_get(v->t.type))
     {
      case TSUITE_EVENT_MOUSE_DOWN:
           {
              mouse_down_mouse_up *t = v->data;
              sprintf(output, "Button %d Flags %d", t->b, t->flags);
              break;
           }
      case TSUITE_EVENT_MOUSE_UP:
           {
              mouse_down_mouse_up *t = v->data;
              sprintf(output, "Button %d Flags %d", t->b, t->flags);
              break;
           }
      case TSUITE_EVENT_MOUSE_MOVE:
           {
              mouse_move *t = v->data;
              sprintf(output, "X %d Y %d", t->x, t->y);
              break;
           }
      case TSUITE_EVENT_MOUSE_WHEEL:
           {
              mouse_wheel *t = v->data;
              sprintf(output, "Direction %d Z %d", t->direction, t->z);
              break;
           }
      case TSUITE_EVENT_MULTI_DOWN: case TSUITE_EVENT_MULTI_UP:
           {
              multi_event *t = v->data;
              if (!t->d)
                 sprintf(output, "Button %d Flags %d", t->b, t->flags);
              else
                 sprintf(output, "D %d X %d Y %d Rad %f RadX %f RadY %f Pres %f Ang %f FX %f FY %f Flags %d",
                       t->d, t->x, t->y, t->rad, t->radx, t->rady, t->pres, t->ang, t->fx, t->fy, t->flags);
              break;
           }
      case TSUITE_EVENT_MULTI_MOVE:
           {
              multi_move *t = v->data;
              if (!t->d)
                 sprintf(output, "X %d Y %d", t->x, t->y);
              else
                 sprintf(output, "D %d X %d Y %d Rad %f RadX %f RadY %f Pres %f Ang %f FX %f FY %f",
                       t->d, t->x, t->y, t->rad, t->radx, t->rady, t->pres, t->ang, t->fx, t->fy);
              break;
           }
      case TSUITE_EVENT_KEY_UP: case TSUITE_EVENT_KEY_DOWN:
           {
              key_down_key_up *t = v->data;
              sprintf(output, "Keyname %s Key %s String %s Compose %s",
                    t->keyname, t->key, t->string, t->compose);
              break;
           }
      case TSUITE_EVENT_KEY_DOWN_WITH_KEYCODE: case TSUITE_EVENT_KEY_UP_WITH_KEYCODE:
           {
              key_down_key_up_with_keycode *t = v->data;
              sprintf(output, "Keyname %s Key %s String %s Compose %s Keycode %d",
                    t->keyname, t->key, t->string, t->compose, t->keycode);
              break;
           }
      default:
           {
              output[0] = '\0';
              break;
           }
     }
}

static const Ecore_Getopt optdesc = {
  "exactness_inspect",
  "%prog [options] [<rec file> | <file1 file2>]",
  NULL,
  "(C) 2016 Enlightenment",
  "BSD",
  "Inspector for Exactness",
  0,
  {
    ECORE_GETOPT_STORE_USHORT('d', "delay", "Delay the given recording by a given time (in milliseconds)."),
    ECORE_GETOPT_STORE_TRUE('c', "clean", "Clean the given recording from wrong events."),
    ECORE_GETOPT_STORE_TRUE('l', "list", "List the events of the given recording."),
    ECORE_GETOPT_STORE_TRUE('C', "compare", "Compare given files (images files or objects eet files)."),
    ECORE_GETOPT_STORE_STR('o', "compare_output", "Output of the comparison."),
    ECORE_GETOPT_STORE_USHORT('s', "shot", "Select a specific shot (1 = 1st shot...)."),

    ECORE_GETOPT_LICENSE('L', "license"),
    ECORE_GETOPT_COPYRIGHT('C', "copyright"),
    ECORE_GETOPT_VERSION('V', "version"),
    ECORE_GETOPT_HELP('h', "help"),
    ECORE_GETOPT_SENTINEL
  }
};

static Eina_Bool
_is_hook_duplicate(const Variant_st *cur_v, const Variant_st *prev_v)
{
   if (!prev_v) return EINA_FALSE;
   Tsuite_Event_Type cur_type = tsuite_event_mapping_type_get(cur_v->t.type);
   Tsuite_Event_Type prev_type = tsuite_event_mapping_type_get(prev_v->t.type);
   if (cur_type == prev_type &&
         !memcmp(cur_v->data, prev_v->data, _event_struct_len_get(cur_type))) return EINA_TRUE;
   return EINA_FALSE;
}

static Exactness_Image *
_pixels_compare(Exactness_Image *img1, Exactness_Image *img2, Eina_Bool *has_diff)
{
   Exactness_Image *imgO = malloc(sizeof(*imgO));
   unsigned int w, h;
   int *pxs1, *pxs2, *pxsO;
   unsigned int w1 = img1 ? img1->w : 0, h1 = img1 ? img1->h : 0;
   unsigned int w2 = img2 ? img2->w : 0, h2 = img2 ? img2->h : 0;
   imgO->w = MAX(w1, w2);
   imgO->h = MAX(h1, h2);
   if (has_diff) *has_diff = EINA_FALSE;
   if (!imgO->w || !imgO->h)
     {
        free(imgO);
        return NULL;
     }
   imgO->pixels = malloc(imgO->w * imgO->h * 4);

   pxs1 = img1 ? img1->pixels : NULL;
   pxs2 = img2 ? img2->pixels : NULL;
   pxsO = imgO->pixels;

   for (w = 0; w < imgO->w; w++)
     {
        for (h = 0; h < imgO->h; h++)
          {
             Eina_Bool valid1 = w <= w1 && h <= h1;
             Eina_Bool valid2 = w <= w2 && h <= h2;
             int px1 = valid1 ? pxs1[h * w1 + w] : 0;
             int px2 = valid2 ? pxs2[h * w2 + w] : 0;
             int r1 = (px1 & 0x00FF0000) >> 16;
             int r2 = (px2 & 0x00FF0000) >> 16;
             int g1 = (px1 & 0x0000FF00) >> 8;
             int g2 = (px2 & 0x0000FF00) >> 8;
             int b1 = (px1 & 0x000000FF);
             int b2 = (px2 & 0x000000FF);
             int new_r, new_g, new_b;
             if (valid1 || valid2)
               {
                  if (px1 != px2)
                    {
                       new_r = 0xFF;
                       new_g = ((g1 + g2) >> 1) >> 2;
                       new_b = ((b1 + b2) >> 1) >> 2;
                       if (has_diff) *has_diff = EINA_TRUE;
                    }
                  else
                    {
                       new_r = (((r1 + r2) >> 1) >> 2) + 0xC0;
                       new_g = (((g1 + g2) >> 1) >> 2) + 0xC0;
                       new_b = (((b1 + b2) >> 1) >> 2) + 0xC0;
                    }
               }
             else
               {
                  new_r = new_g = new_b = 0x0;
               }
             pxsO[h * imgO->w + w] = 0xFF000000 | new_r << 16 | new_g << 8 | new_b;
          }
     }
   return imgO;
}

static Eina_Bool
_are_objs_different(Exactness_Object *e_obj1, Exactness_Object *e_obj2, Eina_Bool check_objs)
{
   if (!e_obj1 ^ !e_obj2) return EINA_TRUE;
   Eina_List *itr1 = e_obj1->children;
   Eina_List *itr2 = e_obj2->children;
   if (check_objs &&
         (strcmp(e_obj1->kl_name, e_obj2->kl_name) ||
          e_obj1->x != e_obj2->x || e_obj1->y != e_obj2->y ||
          e_obj1->w != e_obj2->w || e_obj1->h != e_obj2->h)) return EINA_TRUE;
   while (itr1 || itr2)
     {
        if ((!itr1) ^ (!itr2)) return EINA_TRUE;
        e_obj1 = eina_list_data_get(itr1);
        e_obj2 = eina_list_data_get(itr2);

        if (_are_objs_different(e_obj1, e_obj2, EINA_TRUE)) return EINA_TRUE;

        itr1 = eina_list_next(itr1);
        itr2 = eina_list_next(itr2);
     }
   return EINA_FALSE;
}

void
_win_del(void *data EINA_UNUSED, Evas_Object *obj EINA_UNUSED, void *event_info EINA_UNUSED)
{
   efl_exit(0); /* exit the program's main loop that runs in elm_run() */
}

static void
_gui_win_create()
{
   Eo *win, *bg;

   elm_policy_set(ELM_POLICY_QUIT, ELM_POLICY_QUIT_LAST_WINDOW_CLOSED);
   win = elm_win_add(NULL, "Window", ELM_WIN_BASIC);
   evas_object_smart_callback_add(win, "delete,request", _win_del, NULL);
   elm_win_maximized_set(win, EINA_TRUE);
   elm_win_autodel_set(win, EINA_TRUE);
   elm_win_title_set(win, "Exactness Inspector");
   efl_gfx_entity_size_set(win, EINA_SIZE2D(1000, 800));

   bg = elm_bg_add(win);
   evas_object_size_hint_weight_set(bg, 1.000000, 1.000000);
   efl_gfx_entity_visible_set(bg, EINA_TRUE);
   elm_win_resize_object_add(win, bg);

   _main_box = elm_box_add(win);
   elm_box_horizontal_set(_main_box, EINA_TRUE);
   elm_box_homogeneous_set(_main_box, EINA_TRUE);
   evas_object_size_hint_weight_set(_main_box, 1.000000, 1.000000);
   efl_gfx_entity_visible_set(_main_box, EINA_TRUE);
   elm_win_resize_object_add(win, _main_box);

   efl_gfx_entity_visible_set(win, EINA_TRUE);
}

static char *
_grp_text_get(void *data, Evas_Object *gl, const char *part EINA_UNUSED)
{
   char buf[256];
   const char *str = NULL;
   Eina_Bool compare = !!efl_key_data_get(gl, "_exactness_gl_compare");
   _Data_Type dt = (_Data_Type) data;
   switch (dt)
     {
      case EX_SCENARIO: { str = "Scenario"; break; }
      case EX_IMAGE: { str = "Images"; break; }
      case EX_OBJ_INFO: { str = "Objects"; break; }
      default: { str = "Unknown"; break; }
     }
   sprintf(buf, "%s%s", str, compare ? " comparison" : "");
   return strdup(buf);
}

static char *
_scn_text_get(void *data, Evas_Object *gl, const char *part EINA_UNUSED)
{
   Eina_Strbuf *buf = eina_strbuf_new();
   char *ret = NULL;
   Eina_Bool compare = !!efl_key_data_get(gl, "_exactness_gl_compare");
   if (compare)
     {
        _Compare_Item_Data *vv = data;
        Variant_st *v1 = vv->p1;
        Variant_st *v2 = vv->p2;
        int tm1 = evt_time_get(0, v1);
        int tm2 = evt_time_get(0, v2);
        Tsuite_Event_Type t1 = v1 ? tsuite_event_mapping_type_get(v1->t.type) : TSUITE_EVENT_NOT_SUPPORTED;
        Tsuite_Event_Type t2 = v2 ? tsuite_event_mapping_type_get(v2->t.type) : TSUITE_EVENT_NOT_SUPPORTED;

        if (tm1 != tm2) eina_strbuf_append_printf(buf, "["LDIFF(%.3f)"/"RDIFF(%.3f)"]: ", tm1/1000.0, tm2/1000.0);
        else eina_strbuf_append_printf(buf, "%.3f: ", tm1 / 1000.0);

        if (t1 != t2)
           eina_strbuf_append_printf(buf, "["LDIFF(%s)"/"RDIFF(%s)"] - XXXXXX", _event_name_get(v1), _event_name_get(v2));
        else
          {
             char params1[1024];
             char params2[2024];
             _event_specific_info_get(v1, params1);
             _event_specific_info_get(v2, params2);

             eina_strbuf_append_printf(buf, "%s", _event_name_get(v1));
             if (*params1 || *params2)
               {
                  if (strcmp(params1, params2))
                     eina_strbuf_append_printf(buf, " - ["LDIFF(%s)"/"RDIFF(%s)"]", params1, params2);
                  else
                     eina_strbuf_append_printf(buf, " - %s", params1);
               }
          }
     }
   else
     {
        Variant_st *v = data;
        unsigned int timestamp = evt_time_get(0, v);
        char specific_output[1024];
        if (v)
          {
             eina_strbuf_append_printf(buf, "%.3f: ", timestamp / 1000.0);
             eina_strbuf_append_printf(buf, "%s", _event_name_get(v));
             _event_specific_info_get(v, specific_output);
             if (*specific_output) eina_strbuf_append_printf(buf, " - %s", specific_output);
          }
        else
           eina_strbuf_append(buf, "XXXXX");
     }

   ret = eina_strbuf_string_steal(buf);
   eina_strbuf_free(buf);
   return ret;
}

static Evas_Object *
_img_content_get(void *data, Evas_Object *gl, const char *part)
{
   if (strcmp(part, "elm.swallow.content")) return NULL;
   Eo *img = elm_image_add(gl);
   Eo *evas_img = elm_image_object_get(img);
   Eina_Bool compare = !!efl_key_data_get(gl, "_exactness_gl_compare");
   if (compare)
     {
        _Compare_Item_Data *vv = data;
        Exactness_Image *ex_img1 = vv->p1;
        Exactness_Image *ex_img2 = vv->p2;
        Exactness_Image *ex_imgO = _pixels_compare(ex_img1, ex_img2, NULL);

        evas_object_image_size_set(evas_img, ex_imgO->w, ex_imgO->h);
        evas_object_image_data_set(evas_img, ex_imgO->pixels);
        evas_object_size_hint_min_set(img, ELM_SCALE_SIZE(300), ELM_SCALE_SIZE(300));
     }
   else
     {
        Exactness_Image *ex_img = data;
        evas_object_image_size_set(evas_img, ex_img->w, ex_img->h);
        evas_object_image_data_set(evas_img, ex_img->pixels);
        evas_object_size_hint_min_set(img, ELM_SCALE_SIZE(300), ELM_SCALE_SIZE(300));
     }
   return img;
}

static char *
_objs_text_get(void *data EINA_UNUSED, Evas_Object *obj EINA_UNUSED, const char *part EINA_UNUSED)
{
   return strdup("Shot");
}

static char *
_obj_text_get(void *data, Evas_Object *gl, const char *part EINA_UNUSED)
{
   Eina_Strbuf *buf = eina_strbuf_new();
   char *ret = NULL;
   Eina_Bool compare = !!efl_key_data_get(gl, "_exactness_gl_compare");
   if (compare)
     {
        _Compare_Item_Data *vv = data;
        Exactness_Object *e_obj1 = vv->p1;
        Exactness_Object *e_obj2 = vv->p2;
        if ((!e_obj1 ^ !e_obj2) || strcmp(e_obj1->kl_name, e_obj2->kl_name))
           eina_strbuf_append_printf(buf, "("LDIFF(%s)"/"RDIFF(%s)")",
                 e_obj1 ? e_obj1->kl_name : "XXXXX",
                 e_obj2 ? e_obj2->kl_name : "XXXXX");
        else
           eina_strbuf_append_printf(buf, "%s", e_obj1->kl_name);

        eina_strbuf_append(buf, " x = ");
        if ((!e_obj1 ^ !e_obj2) || e_obj1->x != e_obj2->x)
           eina_strbuf_append_printf(buf, LDIFF(%d)"/"RDIFF(%d),
                 e_obj1 ? e_obj1->x : -1,
                 e_obj2 ? e_obj2->x : -1);
        else
           eina_strbuf_append_printf(buf, "%d", e_obj1->x);

        eina_strbuf_append(buf, " y = ");
        if ((!e_obj1 ^ !e_obj2) || e_obj1->y != e_obj2->y)
           eina_strbuf_append_printf(buf, LDIFF(%d)"/"RDIFF(%d),
                 e_obj1 ? e_obj1->y : -1,
                 e_obj2 ? e_obj2->y : -1);
        else
           eina_strbuf_append_printf(buf, "%d", e_obj1->y);

        eina_strbuf_append(buf, " w = ");
        if ((!e_obj1 ^ !e_obj2) || e_obj1->w != e_obj2->w)
           eina_strbuf_append_printf(buf, LDIFF(%d)"/"RDIFF(%d),
                 e_obj1 ? e_obj1->w : -1,
                 e_obj2 ? e_obj2->w : -1);
        else
           eina_strbuf_append_printf(buf, "%d", e_obj1->w);

        eina_strbuf_append(buf, " h = ");
        if ((!e_obj1 ^ !e_obj2) || e_obj1->h != e_obj2->h)
           eina_strbuf_append_printf(buf, LDIFF(%d)"/"RDIFF(%d),
                 e_obj1 ? e_obj1->h : -1,
                 e_obj2 ? e_obj2->h : -1);
        else
           eina_strbuf_append_printf(buf, "%d", e_obj1->h);

        if (e_obj1 && e_obj2 && _are_objs_different(e_obj1, e_obj2, EINA_FALSE))
           eina_strbuf_append(buf, " - DIFF INSIDE");
     }
   else
     {
        Exactness_Object *e_obj = data;
        eina_strbuf_append_printf(buf,
              "%s: x = %d y = %d w = %d h = %d",
              e_obj->kl_name,
              e_obj->x, e_obj->y, e_obj->w, e_obj->h);
     }

   ret = eina_strbuf_string_steal(buf);
   eina_strbuf_free(buf);
   return ret;
}

static void
_itc_init()
{
   if (!_grp_itc)
     {
        _grp_itc = elm_genlist_item_class_new();
        _grp_itc->item_style = "group_index";
        _grp_itc->func.text_get = _grp_text_get;
     }

   if (!_scn_itc)
     {
        _scn_itc = elm_genlist_item_class_new();
        _scn_itc->item_style = "default_style";
        _scn_itc->func.text_get = _scn_text_get;
     }

   if (!_img_itc)
     {
        _img_itc = elm_genlist_item_class_new();
        _img_itc->item_style = "full";
        _img_itc->func.content_get = _img_content_get;
     }

   if (!_objs_itc)
     {
        _objs_itc = elm_genlist_item_class_new();
        _objs_itc->item_style = "default_style";
        _objs_itc->func.text_get = _objs_text_get;
     }

   if (!_obj_itc)
     {
        _obj_itc = elm_genlist_item_class_new();
        _obj_itc->item_style = "default_style";
        _obj_itc->func.text_get = _obj_text_get;
     }
}

static void
_comp_gl_dragged_cb(Evas_Object *obj, void *data EINA_UNUSED)
{
   int x = 0, y = 0;
   Eo *gl;
   Eina_List *itr;
   elm_interface_scrollable_content_pos_get(obj, &x, &y);
   EINA_LIST_FOREACH(_gls, itr, gl)
     {
        if (gl != obj)
           elm_interface_scrollable_content_pos_set(gl, x, y, EINA_FALSE);
     }
}

static void
_obj_item_realize(Exactness_Object *ex_obj)
{
   _Item_Info *ii = eina_hash_find(_item_infos_hash, &ex_obj);
   if (!ii) return;
   if (ii->gl_item) return;
   _obj_item_realize(ii->ex_parent);
   _Item_Info *iip = eina_hash_find(_item_infos_hash, &(ii->ex_parent));
   if (iip->gl_item) elm_genlist_item_expanded_set(iip->gl_item, EINA_TRUE);
}

static void
_gl_expand_request_cb(void *data EINA_UNUSED, Evas_Object *gl, void *event_info)
{
   Elm_Object_Item *glit = event_info;
   Eina_Bool compare = !!efl_key_data_get(gl, "_exactness_gl_compare");
   if (compare)
     {
        const Elm_Genlist_Item_Class *itc = elm_genlist_item_item_class_get(glit);
        if (itc == _objs_itc)
          {
             _Compare_Item_Data *vv = elm_object_item_data_get(glit);
             _Item_Info *ii = eina_hash_find(_item_infos_hash, &(vv->p1));
             if (ii) elm_genlist_item_expanded_set(ii->gl_item, EINA_TRUE);
             ii = eina_hash_find(_item_infos_hash, &(vv->p2));
             if (ii) elm_genlist_item_expanded_set(ii->gl_item, EINA_TRUE);
          }
        else if (itc == _obj_itc)
          {
             _Compare_Item_Data *vv = elm_object_item_data_get(glit);
             _Item_Info *ii = eina_hash_find(_item_infos_hash, &(vv->p1));
             if (!ii || !ii->gl_item) _obj_item_realize(vv->p1);
             if (!ii) ii = eina_hash_find(_item_infos_hash, &(vv->p1));
             if (ii && ii->gl_item) elm_genlist_item_expanded_set(ii->gl_item, EINA_TRUE);

             ii = eina_hash_find(_item_infos_hash, &(vv->p2));
             if (!ii || !ii->gl_item) _obj_item_realize(vv->p2);
             if (!ii) ii = eina_hash_find(_item_infos_hash, &(vv->p2));
             if (ii && ii->gl_item) elm_genlist_item_expanded_set(ii->gl_item, EINA_TRUE);
          }
     }
   elm_genlist_item_expanded_set(glit, EINA_TRUE);
}

static void
_gl_contract_request_cb(void *data EINA_UNUSED, Evas_Object *gl EINA_UNUSED, void *event_info)
{
   Elm_Object_Item *glit = event_info;
   Eina_Bool compare = !!efl_key_data_get(gl, "_exactness_gl_compare");
   if (compare)
     {
        const Elm_Genlist_Item_Class *itc = elm_genlist_item_item_class_get(glit);
        if (itc == _objs_itc)
          {
             _Compare_Item_Data *vv = elm_object_item_data_get(glit);
             _Item_Info *ii = eina_hash_find(_item_infos_hash, &(vv->p1));
             if (ii) elm_genlist_item_expanded_set(ii->gl_item, EINA_FALSE);
             ii = eina_hash_find(_item_infos_hash, &(vv->p2));
             if (ii) elm_genlist_item_expanded_set(ii->gl_item, EINA_FALSE);
          }
        else if (itc == _obj_itc)
          {
             _Compare_Item_Data *vv = elm_object_item_data_get(glit);
             _Item_Info *ii = eina_hash_find(_item_infos_hash, &(vv->p1));
             if (ii && ii->gl_item) elm_genlist_item_expanded_set(ii->gl_item, EINA_FALSE);

             ii = eina_hash_find(_item_infos_hash, &(vv->p2));
             if (ii && ii->gl_item) elm_genlist_item_expanded_set(ii->gl_item, EINA_FALSE);
          }
     }
   elm_genlist_item_expanded_set(glit, EINA_FALSE);
}

static void
_gl_expanded_cb(void *_data EINA_UNUSED, Evas_Object *gl EINA_UNUSED, void *event_info)
{
   Elm_Object_Item *glit = event_info;
   const Elm_Genlist_Item_Class *itc = elm_genlist_item_item_class_get(glit);
   Eina_Bool compare = !!efl_key_data_get(gl, "_exactness_gl_compare");
   if (itc == _objs_itc)
     {
        if (compare)
          {
             _Compare_Item_Data *vv = elm_object_item_data_get(glit);
             Exactness_Objects *e_objs1 = vv->p1;
             Exactness_Objects *e_objs2 = vv->p2;
             Eina_List *itr1 = e_objs1->main_objs, *itr2 = e_objs2->main_objs;

             while (itr1 || itr2)
               {
                  Exactness_Object *e_obj1 = eina_list_data_get(itr1);
                  Exactness_Object *e_obj2 = eina_list_data_get(itr2);
                  vv = calloc(1, sizeof(*vv));
                  vv->p1 = e_obj1;
                  vv->p2 = e_obj2;
                  vv->dt = EX_OBJ_INFO;
                  elm_genlist_item_append(gl, _obj_itc, vv, glit,
                        e_obj1->children || e_obj2->children ? ELM_GENLIST_ITEM_TREE : ELM_GENLIST_ITEM_NONE,
                        NULL, NULL);
                  itr1 = eina_list_next(itr1);
                  itr2 = eina_list_next(itr2);
               }
          }
        else
          {
             Exactness_Objects *e_objs = elm_object_item_data_get(glit);
             Eina_List *itr;
             Exactness_Object *e_obj;
             EINA_LIST_FOREACH(e_objs->main_objs, itr, e_obj)
               {
                  _Item_Info *ii = eina_hash_find(_item_infos_hash, &e_obj);
                  if (!ii)
                    {
                       ii = calloc(1, sizeof(*ii));
                       eina_hash_set(_item_infos_hash, &e_obj, ii);
                    }
                  ii->ex_parent = e_objs;
                  ii->gl_item = elm_genlist_item_append(gl, _obj_itc, e_obj, glit,
                        e_obj->children ? ELM_GENLIST_ITEM_TREE : ELM_GENLIST_ITEM_NONE,
                        NULL, NULL);
                  efl_wref_add(ii->gl_item, &(ii->gl_item));
               }
          }
     }
   else if (itc == _obj_itc)
     {
        if (compare)
          {
             _Compare_Item_Data *vv = elm_object_item_data_get(glit);
             Exactness_Object *e_obj1 = vv->p1;
             Exactness_Object *e_obj2 = vv->p2;
             Eina_List *itr1 = e_obj1->children, *itr2 = e_obj2->children;

             while (itr1 || itr2)
               {
                  e_obj1 = eina_list_data_get(itr1);
                  e_obj2 = eina_list_data_get(itr2);
                  vv = calloc(1, sizeof(*vv));
                  vv->p1 = e_obj1;
                  vv->p2 = e_obj2;
                  vv->dt = EX_OBJ_INFO;
                  elm_genlist_item_append(gl, _obj_itc, vv, glit,
                        (e_obj1 && e_obj1->children) || (e_obj2 && e_obj2->children) ?
                        ELM_GENLIST_ITEM_TREE : ELM_GENLIST_ITEM_NONE,
                        NULL, NULL);
                  itr1 = eina_list_next(itr1);
                  itr2 = eina_list_next(itr2);
               }
          }
        else
          {
             Exactness_Object *e_obj = elm_object_item_data_get(glit), *e_obj2;
             Eina_List *itr;

             EINA_LIST_FOREACH(e_obj->children, itr, e_obj2)
               {
                  _Item_Info *ii = eina_hash_find(_item_infos_hash, &e_obj2);
                  if (!ii)
                    {
                       ii = calloc(1, sizeof(*ii));
                       eina_hash_set(_item_infos_hash, &e_obj2, ii);
                    }
                  ii->ex_parent = e_obj;
                  ii->gl_item = elm_genlist_item_append(gl, _obj_itc, e_obj2, glit,
                        e_obj2->children ? ELM_GENLIST_ITEM_TREE : ELM_GENLIST_ITEM_NONE,
                        NULL, NULL);
                  efl_wref_add(ii->gl_item, &(ii->gl_item));
               }
          }
     }
}

static void
_gl_contracted_cb(void *data EINA_UNUSED, Evas_Object *gl EINA_UNUSED, void *event_info)
{
   Elm_Object_Item *glit = event_info;
   elm_genlist_item_subitems_clear(glit);
}

static void
_comp_gl_selected_cb(void *data EINA_UNUSED, Evas_Object *gl EINA_UNUSED, void *event_info)
{
   _comp_selected_item = event_info;
   _Compare_Item_Data *vv = elm_object_item_data_get(_comp_selected_item);
   if (vv->p1)
     {
        _Item_Info *ii = eina_hash_find(_item_infos_hash, &(vv->p1));
        if (!ii || !ii->gl_item) _obj_item_realize(vv->p1);
        elm_genlist_item_selected_set(ii->gl_item, EINA_TRUE);
     }

   if (vv->p2)
     {
        _Item_Info *ii = eina_hash_find(_item_infos_hash, &(vv->p2));
        if (!ii || !ii->gl_item) _obj_item_realize(vv->p2);
        elm_genlist_item_selected_set(ii->gl_item, EINA_TRUE);
     }
}

static void
_gui_unit_display(Exactness_Unit *unit1, Exactness_Unit *unit2)
{
   Eina_List *itr1, *itr2;
   Eo *gl1, *gl2 = NULL, *glc = NULL;

   gl1 = elm_genlist_add(_main_box);
   elm_genlist_homogeneous_set(gl1, EINA_TRUE);
   evas_object_size_hint_weight_set(gl1, EVAS_HINT_EXPAND, EVAS_HINT_EXPAND);
   evas_object_size_hint_align_set(gl1, EVAS_HINT_FILL, EVAS_HINT_FILL);
   efl_gfx_entity_visible_set(gl1, EINA_TRUE);
   _gls = eina_list_append(_gls, gl1);
   elm_box_pack_end(_main_box, gl1);

   evas_object_smart_callback_add(gl1, "expand,request", _gl_expand_request_cb, NULL);
   evas_object_smart_callback_add(gl1, "contract,request", _gl_contract_request_cb, NULL);
   evas_object_smart_callback_add(gl1, "expanded", _gl_expanded_cb, NULL);
   evas_object_smart_callback_add(gl1, "contracted", _gl_contracted_cb, NULL);

   if (unit2)
     {
        glc = elm_genlist_add(_main_box);
        elm_genlist_homogeneous_set(glc, EINA_TRUE);
        evas_object_size_hint_weight_set(glc, EVAS_HINT_EXPAND, EVAS_HINT_EXPAND);
        evas_object_size_hint_align_set(glc, EVAS_HINT_FILL, EVAS_HINT_FILL);
        efl_gfx_entity_visible_set(glc, EINA_TRUE);
        elm_box_pack_end(_main_box, glc);

        evas_object_smart_callback_add(glc, "expand,request", _gl_expand_request_cb, NULL);
        evas_object_smart_callback_add(glc, "contract,request", _gl_contract_request_cb, NULL);
        evas_object_smart_callback_add(glc, "expanded", _gl_expanded_cb, NULL);
        evas_object_smart_callback_add(glc, "contracted", _gl_contracted_cb, NULL);

        efl_key_data_set(glc, "_exactness_gl_compare", glc);
        elm_interface_scrollable_scroll_down_cb_set(glc, _comp_gl_dragged_cb);
        elm_interface_scrollable_scroll_up_cb_set(glc, _comp_gl_dragged_cb);
        evas_object_smart_callback_add(glc, "selected", _comp_gl_selected_cb, NULL);

        gl2 = elm_genlist_add(_main_box);
        elm_genlist_homogeneous_set(gl2, EINA_TRUE);
        evas_object_size_hint_weight_set(gl2, EVAS_HINT_EXPAND, EVAS_HINT_EXPAND);
        evas_object_size_hint_align_set(gl2, EVAS_HINT_FILL, EVAS_HINT_FILL);
        efl_gfx_entity_visible_set(gl2, EINA_TRUE);
        _gls = eina_list_append(_gls, gl2);
        elm_box_pack_end(_main_box, gl2);

        evas_object_smart_callback_add(gl2, "expand,request", _gl_expand_request_cb, NULL);
        evas_object_smart_callback_add(gl2, "contract,request", _gl_contract_request_cb, NULL);
        evas_object_smart_callback_add(gl2, "expanded", _gl_expanded_cb, NULL);
        evas_object_smart_callback_add(gl2, "contracted", _gl_contracted_cb, NULL);
     }
   _itc_init();

   itr1 = unit1 ? unit1->events : NULL;
   itr2 = unit2 ? unit2->events : NULL;

   if (itr1)
      elm_genlist_item_append(gl1, _grp_itc, (void *)EX_SCENARIO, NULL, ELM_GENLIST_ITEM_GROUP, NULL, NULL);
   if (itr2)
     {
        elm_genlist_item_append(gl2, _grp_itc, (void *)EX_SCENARIO, NULL, ELM_GENLIST_ITEM_GROUP, NULL, NULL);
        elm_genlist_item_append(glc, _grp_itc, (void *)EX_SCENARIO, NULL, ELM_GENLIST_ITEM_GROUP, NULL, NULL);
     }
   while (itr1 || itr2)
     {
        Variant_st *v1 = itr1 ? eina_list_data_get(itr1) : NULL;
        _Item_Info *ii = calloc(1, sizeof(*ii));
        eina_hash_set(_item_infos_hash, &v1, ii);
        ii->gl_item = elm_genlist_item_append(gl1, _scn_itc, v1, NULL, ELM_GENLIST_ITEM_NONE, NULL, NULL);
        if (unit2)
          {
             _Compare_Item_Data *vv = calloc(1, sizeof(*vv));
             Variant_st *v2 = itr2 ? eina_list_data_get(itr2) : NULL;
             vv->p1 = v1;
             vv->p2 = v2;
             vv->dt = EX_SCENARIO;
             ii = calloc(1, sizeof(*ii));
             eina_hash_set(_item_infos_hash, &v2, ii);
             ii->gl_item = elm_genlist_item_append(gl2, _scn_itc, v2, NULL, ELM_GENLIST_ITEM_NONE, NULL, NULL);
             elm_genlist_item_append(glc, _scn_itc, vv, NULL, ELM_GENLIST_ITEM_NONE, NULL, NULL);
          }
        if (itr1) itr1 = eina_list_next(itr1);
        if (itr2) itr2 = eina_list_next(itr2);
     }

   itr1 = unit1 ? unit1->imgs : NULL;
   itr2 = unit2 ? unit2->imgs : NULL;

   if (itr1)
      elm_genlist_item_append(gl1, _grp_itc, (void *)EX_IMAGE, NULL, ELM_GENLIST_ITEM_GROUP, NULL, NULL);
   if (itr2)
     {
        elm_genlist_item_append(gl2, _grp_itc, (void *)EX_IMAGE, NULL, ELM_GENLIST_ITEM_GROUP, NULL, NULL);
        elm_genlist_item_append(glc, _grp_itc, (void *)EX_IMAGE, NULL, ELM_GENLIST_ITEM_GROUP, NULL, NULL);
     }
   while (itr1 || itr2)
     {
        Exactness_Image *img1 = itr1 ? eina_list_data_get(itr1) : NULL;
        _Item_Info *ii = calloc(1, sizeof(*ii));
        eina_hash_set(_item_infos_hash, &img1, ii);
        ii->gl_item = elm_genlist_item_append(gl1, _img_itc, img1, NULL, ELM_GENLIST_ITEM_NONE, NULL, NULL);
        if (unit2)
          {
             _Compare_Item_Data *vv = calloc(1, sizeof(*vv));
             Exactness_Image *img2 = itr2 ? eina_list_data_get(itr2) : NULL;
             vv->p1 = img1;
             vv->p2 = img2;
             vv->dt = EX_IMAGE;
             ii = calloc(1, sizeof(*ii));
             eina_hash_set(_item_infos_hash, &img2, ii);
             ii->gl_item = elm_genlist_item_append(gl2, _img_itc, img2, NULL, ELM_GENLIST_ITEM_NONE, NULL, NULL);
             elm_genlist_item_append(glc, _img_itc, vv, NULL, ELM_GENLIST_ITEM_NONE, NULL, NULL);
          }
        if (itr1) itr1 = eina_list_next(itr1);
        if (itr2) itr2 = eina_list_next(itr2);
     }

   itr1 = unit1 ? unit1->objs : NULL;
   itr2 = unit2 ? unit2->objs : NULL;

   if (itr1)
      elm_genlist_item_append(gl1, _grp_itc, (void *)EX_OBJ_INFO, NULL, ELM_GENLIST_ITEM_GROUP, NULL, NULL);
   if (itr2)
     {
        elm_genlist_item_append(gl2, _grp_itc, (void *)EX_OBJ_INFO, NULL, ELM_GENLIST_ITEM_GROUP, NULL, NULL);
        elm_genlist_item_append(glc, _grp_itc, (void *)EX_OBJ_INFO, NULL, ELM_GENLIST_ITEM_GROUP, NULL, NULL);
     }
   while (itr1 || itr2)
     {
        Exactness_Objects *objs1 = itr1 ? eina_list_data_get(itr1) : NULL;
        _Item_Info *ii = calloc(1, sizeof(*ii));
        eina_hash_set(_item_infos_hash, &objs1, ii);
        ii->gl_item = elm_genlist_item_append(gl1, _objs_itc, objs1, NULL,
              ELM_GENLIST_ITEM_TREE, NULL, NULL);
        efl_wref_add(ii->gl_item, &(ii->gl_item));