#include <err.h>
#include <Efx.h>
#include <Edje.h>

#include "Egraph.h"

#define DEBUG 0

#define TYPE_MAXLEN 30

static void _smart_add(Evas_Object *obj);
static void _smart_del(Evas_Object *obj);
static void _smart_move(Evas_Object *obj, Evas_Coord x, Evas_Coord y);
static void _smart_resize(Evas_Object *obj, Evas_Coord w, Evas_Coord h);
static void _edge_v2_add(Egraph *eg, Egraph_Edge *e);
static void _edge_add(Egraph *eg, Egraph_Edge *e);
static void _edge_signal(Egraph *eg, Egraph_Edge *e, const char *signal);
static void _edge_v2_del(Egraph *eg, Egraph_Edge *e);
static void _edge_del(Egraph *eg, Egraph_Edge *e);
static void _vertice_v2_add(Egraph *eg, Egraph_Vertice *v);
static void _vertice_add(Egraph *eg, Egraph_Vertice *v);
static void _vertice_v2_del(Egraph *eg, Egraph_Vertice *v);
static void _vertice_del(Egraph *eg, Egraph_Vertice *v);
static void _vertice_update_status(Egraph *eg, Egraph_Vertice *v);
static void _vertice_signal(Egraph *eg, Egraph_Vertice *v, const char *signal);
static void _vertice_geometry_update(Egraph *eg, Egraph_Vertice *v);
static void _v2_update(Egraph *eg);
static void _v3_update(Egraph *eg);
static void _coords2_copy(Egraph *eg);
static void _cb_blob_arrived(void *data, Efx_Map_Data *e, Evas_Object *obj);
static void _blob_send(Evas_Object *blob,
                       Egraph_Vertice *v, Evas_Coord x, Evas_Coord y);
static void _layouting_schedule(Egraph *eg);
static Eina_Bool _cb_layouting_start(void *data);
static void _cb_layouting_run(void *data, Ecore_Thread *thread);
static void _cb_layouting_end(void *data, Ecore_Thread *thread);
static void _cb_layouting_cancel(void *data, Ecore_Thread *thread);
static int  _igraph_query_vid(igraph_t *g, int g_len, int id);
static void _cb_vertice_move(void *data,
                             Evas *evas, Evas_Object *obj, void *event_info);
static void _reposition(Egraph *eg, int no_animation);
static void _matrix_minmax_2v(const igraph_matrix_t *m, int row_count,
                              float *c1min, float *c1max,
                              float *c2min, float *c2max);
static Evas_Object *_edje_obj_new(Egraph *eg, const char *group);
static Evas_Object *_edje_obj_set(Egraph *eg, Evas_Object *o, const char *group);

static const Evas_Smart_Cb_Description _smart_callbacks[] = {{NULL, NULL}};
#define EGRAPH_DATA_GET(o, ptr) \
  Egraph * ptr = evas_object_smart_data_get(o)
/* defines _egraph_parent_sc and _egraph_smart_class_new */
EVAS_SMART_SUBCLASS_NEW("Egraph", _egraph,
                        Evas_Smart_Class, Evas_Smart_Class,
                        evas_object_smart_clipped_class_get, _smart_callbacks);

static void
_egraph_smart_set_user(Evas_Smart_Class *sc)
{
   /* specializing these two */
   sc->add = _smart_add;
   sc->del = _smart_del;
   sc->move = _smart_move;
   /* clipped smart object has no hook on resizes or calculations */
   sc->resize = _smart_resize;
}

static void
_smart_add(Evas_Object *obj)
{
  EVAS_SMART_DATA_ALLOC(obj, Egraph);

  priv->evas = evas_object_evas_get(obj);

  _egraph_parent_sc->add(obj);
}

static void
_smart_del(Evas_Object *obj)
{
  EGRAPH_DATA_GET(obj, eg);

  igraph_destroy(&eg->graph);
  if (eg->layouting.running == 2)
    ecore_thread_cancel(eg->layouting.thread);

  _egraph_parent_sc->del(obj);
}

static void
_smart_move(Evas_Object *obj, Evas_Coord x, Evas_Coord y)
{
  EGRAPH_DATA_GET(obj, eg);

  _reposition(eg, 1);

  _egraph_parent_sc->move(obj, x, y);
}

static void
_smart_resize(Evas_Object *obj, Evas_Coord w, Evas_Coord h)
{
  EGRAPH_DATA_GET(obj, eg);

  _reposition(eg, 1);
}

Evas_Object *
egraph_new(Evas *evas, int directed)
{
  Evas_Object *obj = NULL;
  Evas_Object *rect;
  Egraph *eg;
  int i;

  EINA_SAFETY_ON_NULL_RETURN_VAL(evas, NULL);

  efx_init();
  eina_log_domain_level_set("efx", EINA_LOG_LEVEL_WARN);

  obj = evas_object_smart_add(evas, _egraph_smart_class_new());
  eg = evas_object_smart_data_get(obj);
  if (!eg) goto err;
  eg->obj = obj;
  rect = evas_object_rectangle_add(eg->evas);
  evas_object_color_set(rect, 0, 0, 0, 0);
  evas_object_smart_member_add(rect, obj);
  eg->split_vertice_edge = rect;

  eg->graph_directed = directed;
  eg->display_vertices = 1;
  eg->display_names = 1;
  eg->display_edges = 1;
  eg->use_animations = 1;
  eg->do_improvements = 1;
  egraph_theme_file_set(obj, NULL);
  eg->theme_edges = 1;
  eg->layout = EGRAPH_LAYOUT_DEFAULT;

  /* needed for igraph attribute handling */
  igraph_i_set_attribute_table(&igraph_cattribute_table);

  eg->vertices = eina_hash_int32_new(NULL);
	for (i=0; i<EGRAPH_VERTICES_MAX-1; i++)
		eg->vertices_freeids[i] = i;
  if (igraph_empty(&eg->graph, 0, directed))
    goto err;
  if (igraph_empty(&eg->graph2, 0, directed))
    goto err;
  igraph_matrix_init(&eg->coords, 0, 2);
  igraph_matrix_init(&eg->coords2, 0, 2);
  eg->graph_wmin = 0;
  eg->graph_wmax = 200;
  eg->graph_hmin = 0;
  eg->graph_hmax = 200;
  eg->vertice_max_w = 0;
  eg->vertice_max_h = 0;

  return obj;

err:
  if (obj)
    evas_object_del(obj);
  return NULL;
}

void
egraph_clear(Evas_Object *obj)
{
  EGRAPH_DATA_GET(obj, eg);
  Eina_Iterator *it;
  Egraph_Vertice *v;
  void *data;

  it = eina_hash_iterator_tuple_new(eg->vertices);
  while (eina_iterator_next(it, &data)) {
    Eina_Hash_Tuple *t = data;
    v = t->data;
    egraph_vertice_del(obj, v);
  }
}

void
egraph_theme_file_set(Evas_Object *obj, char *path)
{
  EGRAPH_DATA_GET(obj, eg);

  if (eg->theme_path)
    free(eg->theme_path);

  if (!path) {
    char buf[256];

    snprintf(buf, sizeof(buf),
            "%s/egraph.edj",
            "/usr/local/share/egraph"); /* XXX use eina_prefix */
    path = buf;
  }
  eg->theme_path = strndup(path, 256);
}

void
egraph_theme_edges_set(Evas_Object *obj, int set)
{
  EGRAPH_DATA_GET(obj, eg);

  eg->theme_edges = set;
}

void
egraph_layout_set(Evas_Object *obj, Egraph_Layout layout)
{
  EGRAPH_DATA_GET(obj, eg);

  eg->layout = layout;
  _layouting_schedule(eg);
}

void
egraph_display_vertices_set(Evas_Object *obj, int set)
{
  EGRAPH_DATA_GET(obj, eg);
  Eina_Iterator *it;
  Egraph_Vertice *v;
  void *data;

  eg->display_vertices = set;

  it = eina_hash_iterator_tuple_new(eg->vertices);
  while (eina_iterator_next(it, &data)) {
    Eina_Hash_Tuple *t = data;
    v = t->data;
    if (v->o) {
      if (set == 0)
        evas_object_hide(v->o);
      else
        evas_object_show(v->o);
    }
  }

  _reposition(eg, 0);
}

void
egraph_display_names_set(Evas_Object *obj, int set)
{
  EGRAPH_DATA_GET(obj, eg);
  Eina_Iterator *it;
  Egraph_Vertice *v;
  void *data;

  eg->display_names = set;

  it = eina_hash_iterator_tuple_new(eg->vertices);
  while (eina_iterator_next(it, &data)) {
    Eina_Hash_Tuple *t = data;
    v = t->data;
    egraph_vertice_rename(obj, v, set ? v->name : NULL);
  }
}

void
egraph_display_edges_set(Evas_Object *obj, int set)
{
  EGRAPH_DATA_GET(obj, eg);
  Eina_List *l;
  Egraph_Edge *e;

  eg->display_edges = set;

  EINA_LIST_FOREACH(eg->edges, l, e) {
    if (e->o) {
      if (set == 0)
        evas_object_hide(e->o);
      else
        evas_object_show(e->o);
    }
  }
}

void
egraph_use_animations_set(Evas_Object *obj, int set)
{
  EGRAPH_DATA_GET(obj, eg);
  
  eg->use_animations = set;
}

void
egraph_do_improvements_set(Evas_Object *obj, int set)
{
  EGRAPH_DATA_GET(obj, eg);
  
  eg->do_improvements = set;
}

Egraph_Edge *
egraph_edge_add(Evas_Object *obj, Egraph_Vertice *a, Egraph_Vertice *b,
                void *data)
{
  EGRAPH_DATA_GET(obj, eg);
  Egraph_Edge *e;

  e = calloc(1, sizeof(Egraph_Edge));
  if (!e)
    err(1, "egraph_edge_add: cannot calloc");
  e->v3_new = 1;
  e->a = a;
  e->b = b;
  e->data = data;
  eg->edges = eina_list_append(eg->edges, e);
  if (DEBUG)
    printf("egraph_edge_add %d %d\n", e->a->id, e->b->id);

  egraph_edge_type_set(obj, e, "edge_normal");

  _layouting_schedule(eg);
  return e;
}

static void
_edge_v2_add(Egraph *eg, Egraph_Edge *e)
{
  int a_pos, b_pos;

  if (DEBUG)
    printf("_edge_v2_add %d %d\n", e->a->id, e->b->id);

  e->v2_new = 1;
  e->v3_new = 0;

  a_pos = _igraph_query_vid(&eg->graph2, eg->graph2_vcount, e->a->id);
  b_pos = _igraph_query_vid(&eg->graph2, eg->graph2_vcount, e->b->id);
  igraph_add_edge(&eg->graph2, a_pos, b_pos);
}

static void
_edge_add(Egraph *eg, Egraph_Edge *e)
{
  Evas_Object *eobj = NULL;
  int a_pos, b_pos;

  e->new = 1;
  e->v2_new = 0;

  a_pos = _igraph_query_vid(&eg->graph, eg->graph_vcount, e->a->id);
  b_pos = _igraph_query_vid(&eg->graph, eg->graph_vcount, e->b->id);
  igraph_add_edge(&eg->graph, a_pos, b_pos);

  if (eg->theme_edges) {
    eobj = _edje_obj_new(eg, e->type);
    if (eobj) {
      e->o_usetheme = 1;
      evas_object_resize(eobj, eg->vertice_max_w, eg->vertice_max_h); // XXX rm
    }
  }
  if (!eobj) {
    eobj = evas_object_line_add(eg->evas);
    evas_object_color_set(eobj, 255, 0, 0, 255);
  }
  evas_object_smart_member_add(eobj, eg->obj);
  evas_object_stack_below(eobj, eg->split_vertice_edge);
  e->o = eobj;
  _edge_signal(eg, e, "become_active");

  e->a->edges = eina_list_append(e->a->edges, e);
  e->b->edges = eina_list_append(e->b->edges, e);
  _vertice_update_status(eg, e->a);
  _vertice_update_status(eg, e->b);
}

void
egraph_edge_type_set(Evas_Object *obj, Egraph_Edge *e, const char *type)
{
  EGRAPH_DATA_GET(obj, eg);

  if (e->type)
    free(e->type);

  e->type = strndup(type, TYPE_MAXLEN);
  if (eg->theme_edges && e->o) {
    _edje_obj_set(eg, e->o, type);
  }
}

static void
_edge_signal(Egraph *eg, Egraph_Edge *e, const char *signal)
{
  if (eg->theme_edges && e->o);
    edje_object_signal_emit(e->o, signal, "");
}

void
egraph_edge_del(Evas_Object *obj, Egraph_Edge *e)
{
  EGRAPH_DATA_GET(obj, eg);

  // XXX DEBUG find mem corrupt, del already del edge
  if (!egraph_edge_find(obj, e->a, e->b))
    printf("XXX DEBUG: egraph_edge_del on unknown edge !!!\n");
  if (DEBUG)
    printf("egraph_edge_del: %d %d\n", e->a->id, e->b->id);
  
  e->v3_del = 1;
  _layouting_schedule(eg);
}

static void
_edge_v2_del(Egraph *eg, Egraph_Edge *e)
{
  igraph_es_t es;
  int a_pos, b_pos;
 
  if (e->v2_del == 1)
    return;

  if (DEBUG)
    printf("_edge_v2_del %d %d\n", e->a->id, e->b->id);

  e->v2_del = 1;
  e->v3_del = 0;

  if (!e->v3_new) {
    a_pos = _igraph_query_vid(&eg->graph2, eg->graph2_vcount, e->a->id);
    b_pos = _igraph_query_vid(&eg->graph2, eg->graph2_vcount, e->b->id);
    igraph_es_pairs_small(&es, eg->graph_directed, a_pos, b_pos, -1);
    igraph_delete_edges(&eg->graph2, es);
  }
}

static void
_edge_del(Egraph *eg, Egraph_Edge *e)
{
  igraph_es_t es;
  int a_pos, b_pos;

  if (!e->v3_new && !e->v2_new) {
    a_pos = _igraph_query_vid(&eg->graph, eg->graph_vcount, e->a->id);
    b_pos = _igraph_query_vid(&eg->graph, eg->graph_vcount, e->b->id);
    igraph_es_pairs_small(&es, eg->graph_directed, a_pos, b_pos, -1);
    igraph_delete_edges(&eg->graph, es);

    e->a->edges = eina_list_remove(e->a->edges, e);
    e->b->edges = eina_list_remove(e->b->edges, e);
    _vertice_update_status(eg, e->a);
    _vertice_update_status(eg, e->b);

    evas_object_del(e->o);
  }
  eg->edges = eina_list_remove(eg->edges, e);
  free(e);
}

Egraph_Edge *
egraph_edge_find(Evas_Object *obj, Egraph_Vertice *a, Egraph_Vertice *b)
{
  EGRAPH_DATA_GET(obj, eg);
  Egraph_Edge *e;
  Eina_List *l;

  EINA_LIST_FOREACH(eg->edges, l, e)
    if (!(e->v3_del || e->v2_del) &&
        ((e->a == a && e->b == b) ||
         (e->a == b && e->b == a)))
      return e;
  return NULL;
}

Egraph_Vertice *
egraph_vertice_add(Evas_Object *obj, const char *name, void *data)
{
  EGRAPH_DATA_GET(obj, eg);
  Egraph_Vertice *v;
  u_int32_t id;

  if (eg->vertices_count == EGRAPH_VERTICES_MAX) {
    printf("egraph error: maximum number of vertices reached !\n");
    return NULL;
  }
  v = calloc(1, sizeof(Egraph_Vertice));
  if (!v)
    err(1, "egraph_vertice_add: cannot calloc");
  id = eg->vertices_freeids[eg->vertices_count];
  v->id = id;
  eina_hash_add(eg->vertices, &id, v);
  eg->vertices_count++;
  v->v3_new = 1;
  if (DEBUG)
    printf("egraph_vertice_add %d\n", id);

	if (name)
    v->name = strndup(name, EGRAPH_VERTICE_NAME_MAXLEN);
  egraph_vertice_type_set(obj, v, "vertice_normal");

  v->data = data;

  _layouting_schedule(eg);
  return v;
}

static void
_vertice_v2_add(Egraph *eg, Egraph_Vertice *v)
{
  v->v2_new = 1;
  v->v3_new = 0;

  igraph_add_vertices(&eg->graph2, 1, 0);
  SETVAN(&eg->graph2, "id", eg->graph2_vcount, v->id);
  eg->graph2_vcount++;
}

static void
_vertice_add(Egraph *eg, Egraph_Vertice *v)
{
  Evas_Object *vobj = NULL;

  v->new = 1;
  v->v2_new = 0;

  vobj = _edje_obj_new(eg, v->type);
  if (!vobj) {
    printf("egraph: could not load theme for vertice !");
    v->v2_new = 1;
    v->new = 0;
    _vertice_v2_del(eg, v);
    return;
  }
  evas_object_smart_member_add(vobj, eg->obj);
  evas_object_stack_above(vobj, eg->split_vertice_edge);
  evas_object_event_callback_add(vobj, EVAS_CALLBACK_MOVE, _cb_vertice_move, v);
  v->o = vobj;
  _vertice_geometry_update(eg, v);

  igraph_add_vertices(&eg->graph, 1, 0);
  SETVAN(&eg->graph, "id", eg->graph_vcount, v->id);
  eg->graph_vcount++;

  if (v->name)
    egraph_vertice_rename(eg->obj, v, v->name);
}

void
egraph_vertice_del(Evas_Object *obj, Egraph_Vertice *v)
{
  EGRAPH_DATA_GET(obj, eg);
  Egraph_Edge *e;
  Eina_List *l;

  v->v3_del = 1;

  EINA_LIST_FOREACH(eg->edges, l, e)
    if (e->a == v || e->b == v)
      egraph_edge_del(obj, e);

  _layouting_schedule(eg);
}

static void
_vertice_v2_del(Egraph *eg, Egraph_Vertice *v)
{
  Egraph_Edge *e;
  Eina_List *l;
  int pos;

  if (v->v2_del == 1)
    return;

  v->v2_del = 1;
  v->v3_del = 0;

  if (DEBUG)
    printf("_vertice_v2_del %d\n", v->id);
  EINA_LIST_FOREACH(eg->edges, l, e)
    if (e->a == v || e->b == v)
      _edge_v2_del(eg, e);

  if (!v->v3_new) {
    pos = _igraph_query_vid(&eg->graph2, eg->graph2_vcount, v->id);
    igraph_delete_vertices(&eg->graph2, igraph_vss_1(pos));
    eg->graph2_vcount--;
  }
}

static void
_vertice_del(Egraph *eg, Egraph_Vertice *v)
{
  Egraph_Edge *e;
  Eina_List *l, *lprev;
  Evas_Object *blob;
  int pos;

  if (!v->v3_new && !v->v2_new) {
    EINA_LIST_FOREACH_SAFE(eg->edges, l, lprev, e)
      if (e->a == v || e->b == v)
        _edge_del(eg, e);
    eina_list_free(v->edges);

    pos = _igraph_query_vid(&eg->graph, eg->graph_vcount, v->id);
    igraph_delete_vertices(&eg->graph, igraph_vss_1(pos));
    eg->graph_vcount--;

    EINA_LIST_FOREACH(v->blobs_incoming, l, blob)
      evas_object_del(blob);
    eina_list_free(v->blobs_incoming);

    evas_object_del(v->o);
  }

  eina_hash_del(eg->vertices, &v->id, NULL);
	eg->vertices_count--;
	eg->vertices_freeids[eg->vertices_count] = v->id;

  free(v);
}

void
egraph_vertice_type_set(Evas_Object *obj, Egraph_Vertice *v, const char *type)
{
  EGRAPH_DATA_GET(obj, eg);

  if (v->type)
    free(v->type);

  v->type = strndup(type, TYPE_MAXLEN);
  if (v->o)
    _edje_obj_set(eg, v->o, type);
}

static void
_vertice_update_status(Egraph *eg, Egraph_Vertice *v)
{
  Eina_List *l;
  Egraph_Edge *e;
  int status = 0;

  if (v->is_group && (eina_list_count(v->edges) >= 1)) {
    status = 1; /* we are a group with childs */
  } else {
    EINA_LIST_FOREACH(v->edges, l, e) {
      if ((v == e->a && !e->b->is_group) ||
          (v == e->b && !e->a->is_group)) {
        status = 1; /* we are connected to at least on other non group node */
        break;
      }
    }
  }

  if (status != v->status) {
    if (status)
      _vertice_signal(eg, v, "become_active");
    else
      _vertice_signal(eg, v, "become_inactive");
    v->status = status;
  }
}

static void
_vertice_signal(Egraph *eg, Egraph_Vertice *v, const char *signal)
{
  if (v->o)
    edje_object_signal_emit(v->o, signal, "");
}

void
egraph_vertice_rename(Evas_Object *obj, Egraph_Vertice *v, const char *name)
{
  EGRAPH_DATA_GET(obj, eg);

  if (eg->display_names == 0)
    return;

  if (name) {
    if (v->name != name) {
      if (v->name)
        free(v->name);
      v->name = strndup(name, EGRAPH_VERTICE_NAME_MAXLEN);
    }
  }
  if (v->o) {
    if (v->name)
      edje_object_part_text_set(v->o, "label", v->name);
    else
      edje_object_part_text_set(v->o, "label", "");
    _vertice_geometry_update(eg, v);
  }
}

static void
_vertice_geometry_update(Egraph *eg, Egraph_Vertice *v)
{
  int w, h;

  edje_object_size_min_calc(v->o, &w, &h);
  if (DEBUG)
    printf("_vertice_geometry_update: %d %d\n", w, h);
  evas_object_resize(v->o, w, h);
  if (w > eg->vertice_max_w)
    eg->vertice_max_w = w;
  if (h > eg->vertice_max_h)
    eg->vertice_max_h = h;
  if (DEBUG)
    printf("_vertice_geometry_update: end %d %d\n",
           eg->vertice_max_w, eg->vertice_max_h);
}

void
_color_int_to_rgb(u_int32_t color, int *r, int *g , int *b)
{
  *r = (color & 0xFF000000) >> 24;
  *g = (color & 0x00FF0000) >> 16;
  *b = (color & 0x0000FF00) >> 8;
}

void
egraph_vertice_send_blob(Evas_Object *obj,
                         Egraph_Vertice *a, Egraph_Vertice *b,
                         int size, u_int32_t color)
{
  EGRAPH_DATA_GET(obj, eg);
  Evas_Object *blob;
  int ax, ay, aw, ah, bx, by, bw, bh;
  int cr, cg, cb;
  
  if (!a->o || !b->o)
    return;
  evas_object_geometry_get(a->o, &ax, &ay, &aw, &ah);
  evas_object_geometry_get(b->o, &bx, &by, &bw, &bh);
  _color_int_to_rgb(color, &cr, &cg, &cb);

  blob = _edje_obj_new(eg, "blob");
  if (!blob)
    blob = evas_object_rectangle_add(eg->evas);
  evas_object_color_set(blob, cr, cg, cb, 255);
  evas_object_smart_member_add(blob, eg->obj);
  evas_object_stack_above(blob, eg->split_vertice_edge);
  evas_object_move(blob, ax, ay);
  evas_object_resize(blob, size, size);
  evas_object_show(blob);
  b->blobs_incoming = eina_list_append(b->blobs_incoming, blob);
  _blob_send(blob, b, bx, by);
}

static void
_cb_blob_arrived(void *data, Efx_Map_Data *e, Evas_Object *obj)
{
  Egraph_Vertice *v;

  v = data;
  v->blobs_incoming = eina_list_remove(v->blobs_incoming, obj);
  evas_object_del(obj);
}

static void
_blob_send(Evas_Object *blob, Egraph_Vertice *v, Evas_Coord x, Evas_Coord y)
{
  if (DEBUG)
    printf("blob_send %d %d\n", x, y);
  efx_move(blob, EFX_EFFECT_SPEED_SINUSOIDAL,
          &(Evas_Point){ x, y }, 0.6, _cb_blob_arrived, v);
}

static void
_layouting_schedule(Egraph *eg)
{
  if (eg->layouting.running > 0) {
    eg->layouting.todo = 1;
    return;
  }

  eg->layouting.running = 1;
  ecore_timer_add(0.0, _cb_layouting_start, eg); /* delayed start */
}

static void
_v2_update(Egraph *eg)
{
  Eina_List *l, *lprev, *todel, *toadd;
  Eina_Iterator *it;
  Egraph_Vertice *v;
  Egraph_Edge *e;
  void *data;

  /* update graph and structs based on v2_add / v2_del */
  it = eina_hash_iterator_tuple_new(eg->vertices);
  todel = NULL; toadd = NULL;
  while (eina_iterator_next(it, &data)) {
    Eina_Hash_Tuple *t = data;
    v = t->data;
    if (v->v2_del)
      todel = eina_list_append(todel, v);
    else if (v->v2_new)
      toadd = eina_list_append(toadd, v);
  }
  eina_iterator_free(it);
  EINA_LIST_FOREACH(todel, l, v)
    _vertice_del(eg, v);
  EINA_LIST_FOREACH(toadd, l, v)
    _vertice_add(eg, v);
  todel = eina_list_free(todel);
  toadd = eina_list_free(toadd);
  EINA_LIST_FOREACH_SAFE(eg->edges, l, lprev, e) {
    if (e->v2_del)
      _edge_del(eg, e);
    else if (e->v2_new)
      _edge_add(eg, e);
  }
}

static void
_v3_update(Egraph *eg)
{
  Eina_List *l, *lprev;
  Eina_Iterator *it;
  Egraph_Vertice *v;
  Egraph_Edge *e;
  void *data;
  float ranx, rany;
  int changes_count = 0;
  int changes_diff = 0;
  int i, id;

  if (DEBUG)
    printf("_v3_update\n");
  /* update graph2 and structs based on v3_add / v3_del */
  it = eina_hash_iterator_tuple_new(eg->vertices);
  while (eina_iterator_next(it, &data)) {
    Eina_Hash_Tuple *t = data;
    v = t->data;
    if (v->v3_del) {
      _vertice_v2_del(eg, v); changes_diff--; changes_count++;
    } else if (v->v3_new) {
      _vertice_v2_add(eg, v); changes_diff++; changes_count++;
    }
  }
  eina_iterator_free(it);
  if (DEBUG)
    printf("_v3_update edges\n");
  EINA_LIST_FOREACH_SAFE(eg->edges, l, lprev, e) {
    if (e->v3_del) {
      _edge_v2_del(eg, e); changes_count++;
    } else if (e->v3_new) {
      _edge_v2_add(eg, e); changes_count++;
    }
  }

  /* set correct coords2 size */
  if (changes_diff > 0) {
    for (i=0; i<changes_diff; i++) {
      id = (eg->graph2_vcount - changes_diff) + i;
      igraph_matrix_add_rows(&eg->coords2, 1);
      ranx = eg->graph_wmin + fmod((float)random() / 1000, (float)((eg->graph_wmax + 1) - eg->graph_wmin));
      rany = eg->graph_hmin + fmod((float)random() / 1000, (float)((eg->graph_hmax + 1) - eg->graph_hmin));
      if (DEBUG)
        printf("ranx %6.3f rany %6.3f\n", ranx, rany);
      igraph_matrix_set(&eg->coords2, id, 0, ranx);
      igraph_matrix_set(&eg->coords2, id, 1, rany);
    }
  } else if (changes_diff < 0) {
    changes_diff = -changes_diff;
    for (i=0; i<changes_diff; i++) {
      id = (eg->graph2_vcount + changes_diff) - i;
      igraph_matrix_remove_row(&eg->coords2, 0);
    }
  }

  if (eg->layout == EGRAPH_LAYOUT_FRUCHTERMANREINGOLD) {
    /* set minimum and maximum for each node */
    /* XXX do that in layouting thread ? */
    if (DEBUG)
      printf("g wmin %d wmax %d hmin %d hmax %d\n",
             eg->graph_wmin, eg->graph_wmax, eg->graph_hmin, eg->graph_hmax);
    igraph_vector_init(&eg->graph2_wmin, eg->graph2_vcount);
    igraph_vector_init(&eg->graph2_wmax, eg->graph2_vcount);
    igraph_vector_init(&eg->graph2_hmin, eg->graph2_vcount);
    igraph_vector_init(&eg->graph2_hmax, eg->graph2_vcount);
    igraph_vector_fill(&eg->graph2_wmin, eg->graph_wmin);
    igraph_vector_fill(&eg->graph2_wmax, eg->graph_wmax);
    igraph_vector_fill(&eg->graph2_hmin, eg->graph_hmin);
    igraph_vector_fill(&eg->graph2_hmax, eg->graph_hmax);
  }

  eg->layouting.changes_diff = changes_diff;
}

static Eina_Bool
_cb_layouting_start(void *data)
{
  Egraph *eg;

  eg = data;

  eg->layouting.todo = 0;

  _v3_update(eg);

  eg->layouting.running = 2;
  eg->layouting.thread = ecore_thread_run(_cb_layouting_run, _cb_layouting_end,
                                          _cb_layouting_cancel, eg);

  return EINA_FALSE; /* no repeat */
}

void
_cb_layouting_run(void *data, Ecore_Thread *thread)
{
  Egraph *eg;
  int niter;

  eg = data;

  if (DEBUG)
    printf("[-] _cb_layouting_run begin (%d)\n", eg->layout);

  switch(eg->layout) {
  case EGRAPH_LAYOUT_KAMADAKAWAI:
    if (eg->layouting.improvement) {
      niter = 300;
    } else {
      if (eg->layouting.changes_diff == 0)
        niter = 1000;
      else
        niter = 1000 * eg->layouting.changes_diff;
      if (niter > 2000)
        niter = 2000;
    }
    /* http://igraph.sourceforge.net/doc/html/ch18s01.html#igraph_layout_kamada_kawai
     * int igraph_layout_kamada_kawai(const igraph_t *g, igraph_matrix_t *res,
     *                    igraph_integer_t niter, igraph_real_t sigma, 
     *                    igraph_real_t initemp, igraph_real_t coolexp,
     *                    igraph_real_t kkconst, igraph_bool_t use_seed,
     *                    const igraph_vector_t *minx,
     *                    const igraph_vector_t *maxx,
     *                    const igraph_vector_t *miny,
     *                    const igraph_vector_t *maxy);
     * Defaults :
     * igraph_layout_kamada_kawai(&eg->graph2, &eg->coords2,
     *                    1000, eg->vertices_count / 4, 10, 0.99,
     *                    eg->vertices_count ^ 2, 1,
     *                    NULL, NULL, NULL, NULL);
     */
    igraph_layout_kamada_kawai(&eg->graph2, &eg->coords2,
                          niter, eg->graph2_vcount, 10, 0.99,
                          eg->vertices_count ^ 2, 1,
                          NULL, NULL, NULL, NULL);
    break;

  case EGRAPH_LAYOUT_GRAPHOPT:
    if (eg->layouting.improvement) {
      niter = 300;
    } else {
      if (eg->layouting.changes_diff == 0)
        niter = 100;
      else
        niter = 50 * eg->layouting.changes_diff;
      if (niter > 500)
        niter = 500;
    }
    /* http://igraph.sourceforge.net/doc/html/ch18s01.html#igraph_layout_graphopt
     * int igraph_layout_graphopt(const igraph_t *g, igraph_matrix_t *res, 
     *          igraph_integer_t niter,
     *          igraph_real_t node_charge, igraph_real_t node_mass,
     *          igraph_real_t spring_length,
     *          igraph_real_t spring_constant, 
     *          igraph_real_t max_sa_movement,
     *          igraph_bool_t use_seed);
     * Defaults :
     * igraph_layout_graphopt(&eg->graph2, &eg->coords2,
     *                    1000, 0.001, 30, 0, 1, 5, 0);
     */
    igraph_layout_graphopt(&eg->graph2, &eg->coords2,
                           niter, 0.003, 10, 10, 1, 5, 1);
    break;

  case EGRAPH_LAYOUT_FRUCHTERMANREINGOLD:
    niter = 1000;
    /* http://igraph.sourceforge.net/doc/html/ch18s01.html#igraph_layout_fruchterman_reingold
     * int igraph_layout_fruchterman_reingold(const igraph_t *graph, igraph_matrix_t *res,
     *          igraph_integer_t niter, igraph_real_t maxdelta,
     *          igraph_real_t area, igraph_real_t coolexp, 
     *          igraph_real_t repulserad, igraph_bool_t use_seed,
     *          const igraph_vector_t *weight, 
     *          const igraph_vector_t *minx,
     *          const igraph_vector_t *maxx,
     *          const igraph_vector_t *miny,
     *          const igraph_vector_t *maxy);
     * Defaults:
     * igraph_layout_fruchterman_reingold(&eg->graph2, &eg->coords2,
     *                                    500, eg->graph2_vcount,
     *                                    sqrt(eg->graph2_vcount) * sqrt(eg->graph2_vcount), 1.5,
     *                                    eg->graph2_vcount, 0,
     *                                    NULL, NULL, NULL, NULL, NULL);
     */
     igraph_layout_fruchterman_reingold(&eg->graph2, &eg->coords2,
                                        niter, 0.05,
                                        sqrt(eg->graph2_vcount), 1.5,
                                        sqrt(eg->graph2_vcount) * eg->graph2_vcount, 1,
                                        NULL, NULL, NULL, NULL, NULL);
                                        //&eg->graph2_wmin, &eg->graph2_wmax,
                                        //&eg->graph2_hmin, &eg->graph2_hmax);
     break;
  }
  if (DEBUG)
    printf("[-] _cb_layouting_run end\n");
}

static void
_coords2_copy(Egraph *eg)
{
  igraph_matrix_copy(&eg->coords, &eg->coords2);
}

void
_cb_layouting_end(void *data, Ecore_Thread *thread)
{
  Egraph *eg;

  eg = data;
  _v2_update(eg);
  _coords2_copy(eg);
  _reposition(eg, 0);
  eg->layouting.running = 0;
  if (eg->layouting.todo) {
    eg->layouting.todo = 0;
    eg->layouting.improvement = 0;
    _layouting_schedule(eg);
  } else {
    if (eg->do_improvements) {
      if (eg->layouting.improvement < EGRAPH_LAYOUTING_IMPROVEMENTS) {
        eg->layouting.improvement++;
        _layouting_schedule(eg);
      } else {
        eg->layouting.improvement = 0;
      }
    }
  }
}

void
_cb_layouting_cancel(void *data, Ecore_Thread *thread)
{
  Egraph *eg;

  eg = data;
  eg->layouting.running = 0;
  eg->layouting.todo = 0;
  /* we are not in a clean state now, but it happends on exit only */
}

/* XXX slow ! possible to do edge/vertice delete on repositionning ? */
static int
_igraph_query_vid(igraph_t *g, int g_len, int id)
{
  int i;

  for (i=0; i<g_len; i++) {
    if (VAN(g, "id", i) == id)
      return i;
  }
  printf("egraph: WARNING: _igraph_query_id %d not found !\n", id);
  return -1;
}

/* Apply vertice move to it's edges */
static void
_cb_vertice_move(void *data, Evas *evas, Evas_Object *obj, void *event_info)
{
  EGRAPH_DATA_GET(evas_object_smart_parent_get(obj), eg);
  Egraph_Vertice *v;
  Egraph_Edge *e;
  Evas_Map *m;
  Eina_List *l;
  int x, y, w, h;
  int ax, ay, bx, by, aw, ah, bw, bh;
  int p0x, p0y, p1x, p1y, p2x, p2y, p3x, p3y;
  float a;

  v = data;
  evas_object_geometry_get(v->o, &x, &y, &w, &h);

  EINA_LIST_FOREACH(v->edges, l, e) {
    if (e->new) {
      if (eg->display_edges)
        evas_object_show(e->o);
      e->new = 0;
    }
    if (e->o_usetheme) {
      /* XXX we map the edges once per node = 2 times ... */
      evas_object_move(e->o, x, y);
      m = evas_map_new(4);
      evas_map_smooth_set(m, 1);
      evas_map_util_points_populate_from_object(m, e->o);
      evas_object_geometry_get(e->a->o, &ax, &ay, &aw, &ah);
      evas_object_geometry_get(e->b->o, &bx, &by, &bw, &bh);
      ax = ax + aw / 2; ay = ay + ah / 2;
      bx = bx + bw / 2; by = by + bh / 2;
      aw = aw / 2; ah = ah / 2;
      bw = bw / 2; bh = bh / 2;
      /* rotate edge endpoints */
      a = atan2(by - ay, bx - ax);
#define ROTX(x, h, a) (-sin(a)*h + x)
#define ROTY(y, h, a) (cos(a)*h + y)
      p0x = ROTX(ax, ah, a); p0y = ROTY(ay, ah, a);
      p1x = ROTX(ax, -ah, a); p1y = ROTY(ay, -ah, a);
      p2x = ROTX(bx, bh, a); p2y = ROTY(by, bh, a);
      p3x = ROTX(bx, -bh, a); p3y = ROTY(by, -bh, a);
      /* set edge endpoints */
      evas_map_point_coord_set(m, 0, p2x, p2y, 0);
      evas_map_point_coord_set(m, 1, p0x, p0y, 0);
      evas_map_point_coord_set(m, 2, p1x, p1y, 0);
      evas_map_point_coord_set(m, 3, p3x, p3y, 0);
      evas_object_map_set(e->o, m);
      evas_object_map_enable_set(e->o, EINA_TRUE); // XXX do at init
      evas_map_free(m);
    } else {
      evas_object_line_xy_get(e->o, &ax, &ay, &bx, &by);
      if (e->a == v) {
        ax = x + w/2;
        ay = y + h/2;
      } else {
        bx = x + w/2;
        by = y + h/2;
      }
      evas_object_line_xy_set(e->o, ax, ay, bx, by);
    }
  }
}

static void
_reposition(Egraph *eg, int no_animation)
{
  Egraph_Vertice *v;
  u_int32_t id;
  float gw_min, gw_max, gh_min, gh_max, factor_w, factor_h;
  float x, y;
  int obj_x, obj_y, obj_w, obj_h;
  int vcur;

  if (DEBUG)
    printf("[-] _reposition\n");
  if (eg->graph_vcount == 0)
    return;

  evas_object_geometry_get(eg->obj, &obj_x, &obj_y, &obj_w, &obj_h);
  _matrix_minmax_2v(&eg->coords, eg->graph_vcount,
                    &gw_min, &gw_max, &gh_min, &gh_max);
  eg->graph_wmin = gw_min;
  eg->graph_wmax = gw_max;
  eg->graph_hmin = gh_min;
  eg->graph_hmax = gh_max;
  
  if (DEBUG)
    printf("gw_min %6.3f gw_max %6.3f gh_min %6.3f gh_max %6.3f\n",
           gw_min, gw_max, gh_min, gh_max);
  if (gw_max == gw_min)
    factor_w = 1;
  else
    factor_w = (obj_w - eg->vertice_max_w) / (gw_max - gw_min);
  if (gh_max == gh_min)
    factor_h = 1;
  else
    factor_h = (obj_h - eg->vertice_max_h) / (gh_max - gh_min);
  if (DEBUG)
    printf("factor_w %6.3f factor_h %6.3f\n", factor_w, factor_h);

  for (vcur=0; vcur<eg->graph_vcount; vcur++) {
    id = VAN(&eg->graph, "id", vcur);

    x = MATRIX(eg->coords, vcur, 0);
    y = MATRIX(eg->coords, vcur, 1);
    if (DEBUG)
      printf("%d: %6.3f %6.3f id %d\n", vcur, x, y, id);
    x = obj_x + ((x - gw_min) * factor_w);
    y = obj_y + ((y - gh_min) * factor_h);
    if (DEBUG)
      printf("         inobj: %6.3f %6.3f\n", x, y);

    v = eina_hash_find(eg->vertices, &id);
    if (eg->use_animations && !no_animation) {
      efx_move(v->o, EFX_EFFECT_SPEED_DECELERATE,
              &(Evas_Point){ x, y }, 0.5, NULL, NULL);
    }
    else
      evas_object_move(v->o, x, y);
    /* XXX fix blob repositionning
    Evas_Object *blob;
    Eina_List *l;
    EINA_LIST_FOREACH(v->blobs_incoming, l, blob)
      _blob_send(blob, v, x, y);
    */
    if (v->new) {
      evas_object_show(v->o);
      v->new = 0;
    }
  }
}

/**
 * Compute minimum and maximum of a matrices of 2 colum vectors
 *
 * @note igraph is crazy in the coconut
 */
static void
_matrix_minmax_2v(const igraph_matrix_t *m, int row_count,
                  float *c1min, float *c1max, float *c2min, float *c2max)
{
  float val;
  int row;

  *c1min=MATRIX(*m, 0, 0); *c1max=MATRIX(*m, 0, 0);
  *c2min=MATRIX(*m, 0, 1); *c2max=MATRIX(*m, 0, 1);

  for (row=1; row<row_count; row++) {
    val = MATRIX(*m, row, 0);
    if (val < *c1min) *c1min = val;
    else if (val > *c1max) *c1max = val;
    val = MATRIX(*m, row, 1);
    if (val < *c2min) *c2min = val;
    else if (val > *c2max) *c2max = val;
  }
}

static Evas_Object *
_edje_obj_new(Egraph *eg, const char *group)
{
  Evas_Object *obj;

  obj = edje_object_add(eg->evas);
  return _edje_obj_set(eg, obj, group);
}

static Evas_Object *
_edje_obj_set(Egraph *eg, Evas_Object *obj, const char *group)
{
  if (!obj || !edje_object_file_set(obj, eg->theme_path, group)) {
    int err = edje_object_load_error_get(obj);
    const char *errmsg = edje_load_error_str(err);
    if (DEBUG)
      fprintf(stderr, "Could not load the edje file - reason:%s\n", errmsg);
    return NULL;
  }
  return obj;
}

Egraph_Vertice *
egraph_group_add(Evas_Object *obj, const char *name, void *data)
{
  Egraph_Vertice *g;

  g = egraph_vertice_add(obj, name, data);
  g->is_group = 1;
  egraph_vertice_type_set(obj, g, "vertice_group");
  return g;
}

int
egraph_group_vertice_attach(Evas_Object *obj,
                            Egraph_Vertice *group, Egraph_Vertice *v)
{
  Egraph_Edge *e;

  group->group_vertices = eina_list_append(group->group_vertices, v);
  e = egraph_edge_add(obj, group, v, NULL);
  egraph_edge_type_set(obj, e, "edge_group");
  return 1;
}

void
egraph_group_vertice_detach(Evas_Object *obj,
                            Egraph_Vertice *group, Egraph_Vertice *v)
{
  Egraph_Edge *e;

  group->group_vertices = eina_list_remove(group->group_vertices, v);
  e = egraph_edge_find(obj, group, v);
  egraph_edge_del(obj, e);
}