#include <e.h>
#include "e_mod_main.h"

typedef struct _Instance Instance;
typedef struct _Mem Mem;

struct _Instance
{
   E_Gadcon_Client *gcc;
   Evas_Object *mem_obj;
   Mem *mem;
   Ecore_Timer *check_timer;
   Config_Item *ci;
};

struct _Mem
{
   Instance *inst;
   Evas_Object *mem_obj;
};

/* Func Protos for Gadcon */
static E_Gadcon_Client *_gc_init (E_Gadcon * gc, const char *name,
				  const char *id, const char *style);
static void _gc_shutdown (E_Gadcon_Client * gcc);
static void _gc_orient (E_Gadcon_Client * gcc, E_Gadcon_Orient orient);
static char *_gc_label (E_Gadcon_Client_Class *client_class);
static Evas_Object *_gc_icon (E_Gadcon_Client_Class *client_class, Evas * evas);
static const char *_gc_id_new (E_Gadcon_Client_Class *client_class);

/* Func Protos for Module */
static void _mem_cb_mouse_down (void *data, Evas * e, Evas_Object * obj,
				void *event_info);
static void _mem_cb_mouse_in (void *data, Evas * e, Evas_Object * obj,
			      void *event_info);
static void _mem_cb_mouse_out (void *data, Evas * e, Evas_Object * obj,
			       void *event_info);
static void _mem_menu_cb_configure (void *data, E_Menu * m, E_Menu_Item * mi);
static void _mem_menu_cb_post (void *data, E_Menu * m);
static Config_Item *_mem_config_item_get (const char *id);
static Mem *_mem_new (Evas * evas);
static void _mem_free (Mem * mem);
static Eina_Bool _mem_cb_check (void *data);

static E_Config_DD *conf_edd = NULL;
static E_Config_DD *conf_item_edd = NULL;

Config *mem_config = NULL;

static const E_Gadcon_Client_Class _gc_class =
{
   GADCON_CLIENT_CLASS_VERSION, "mem", 
 {
    _gc_init, _gc_shutdown, _gc_orient, _gc_label, _gc_icon, _gc_id_new, NULL, NULL
 },
   E_GADCON_CLIENT_STYLE_PLAIN
};

static E_Gadcon_Client *
_gc_init (E_Gadcon * gc, const char *name, const char *id, const char *style)
{
   E_Gadcon_Client *gcc;
   Evas_Object *o;
   Instance *inst;
   Mem *mem;

   inst = E_NEW (Instance, 1);

   inst->ci = _mem_config_item_get (id);

   mem = _mem_new (gc->evas);
   mem->inst = inst;
   inst->mem = mem;

   o = mem->mem_obj;
   gcc = e_gadcon_client_new (gc, name, id, style, o);
   gcc->data = inst;
   inst->gcc = gcc;
   inst->mem_obj = o;

   evas_object_event_callback_add (o, EVAS_CALLBACK_MOUSE_DOWN,
				   _mem_cb_mouse_down, inst);
   evas_object_event_callback_add (o, EVAS_CALLBACK_MOUSE_IN, _mem_cb_mouse_in,
				   inst);
   evas_object_event_callback_add (o, EVAS_CALLBACK_MOUSE_OUT,
				   _mem_cb_mouse_out, inst);

   if (inst->ci->always_text)
     edje_object_signal_emit (inst->mem_obj, "label_active", "");

   _mem_cb_check (inst);

   inst->check_timer = ecore_timer_add (inst->ci->poll_time, _mem_cb_check, inst);
   mem_config->instances = eina_list_append (mem_config->instances, inst);
   return gcc;
}

static void
_gc_orient (E_Gadcon_Client * gcc, E_Gadcon_Orient orient)
{
   e_gadcon_client_aspect_set (gcc, 16, 16);
   e_gadcon_client_min_size_set (gcc, 16, 16);
}

static char *
_gc_label (E_Gadcon_Client_Class *client_class)
{
   return D_ ("Mem");
}

static Evas_Object *
_gc_icon (E_Gadcon_Client_Class *client_class, Evas * evas)
{
   Evas_Object *o;
   char buf[PATH_MAX];

   o = edje_object_add (evas);
   snprintf (buf, sizeof (buf), "%s/e-module-mem.edj",
	     e_module_dir_get (mem_config->module));
   edje_object_file_set (o, buf, "icon");
   return o;
}

static const char *
_gc_id_new (E_Gadcon_Client_Class *client_class)
{
   Config_Item *ci;

   ci = _mem_config_item_get (NULL);
   return ci->id;
}

static void
_gc_shutdown (E_Gadcon_Client * gcc)
{
   Instance *inst;

   inst = gcc->data;
   if (inst->check_timer)
     ecore_timer_del (inst->check_timer);
   mem_config->instances = eina_list_remove (mem_config->instances, inst);
   _mem_free (inst->mem);
   E_FREE (inst);
}

static void
_mem_cb_mouse_down (void *data, Evas * e, Evas_Object * obj, void *event_info)
{
   Instance *inst;
   Evas_Event_Mouse_Down *ev;

   inst = data;
   ev = event_info;
   if ((ev->button == 3) && (!mem_config->menu))
     {
	E_Menu *ma, *mg;
	E_Menu_Item *mi;
	int x, y, w, h;

	ma = e_menu_new ();
	e_menu_post_deactivate_callback_set (ma, _mem_menu_cb_post, inst);
	mem_config->menu = ma;

	mg = e_menu_new ();

	mi = e_menu_item_new (mg);
	e_menu_item_label_set (mi, D_ ("Settings"));
	e_util_menu_item_theme_icon_set(mi, "preferences-system");
	e_menu_item_callback_set (mi, _mem_menu_cb_configure, inst);

	e_gadcon_client_util_menu_items_append (inst->gcc, ma, mg, 0);
	e_gadcon_canvas_zone_geometry_get (inst->gcc->gadcon, &x, &y, &w, &h);
	e_menu_activate_mouse (ma,
			       e_util_zone_current_get (e_manager_current_get
							()), x + ev->output.x,
			       y + ev->output.y, 1, 1,
			       E_MENU_POP_DIRECTION_AUTO, ev->timestamp);
	evas_event_feed_mouse_up (inst->gcc->gadcon->evas, ev->button,
				  EVAS_BUTTON_NONE, ev->timestamp, NULL);
    }
}

static void
_mem_menu_cb_post (void *data, E_Menu * m)
{
   if (!mem_config->menu)
     return;
   e_object_del (E_OBJECT (mem_config->menu));
   mem_config->menu = NULL;
}

static void
_mem_menu_cb_configure (void *data, E_Menu * m, E_Menu_Item * mi)
{
   Instance *inst;

   inst = data;
   _config_mem_module (inst->ci);
}

void
_mem_config_updated (Config_Item *ci)
{
   Eina_List *l;

   if (!mem_config)
     return;
   for (l = mem_config->instances; l; l = l->next)
     {
	Instance *inst;

	inst = l->data;
	if (inst->ci != ci) continue;

	if (inst->check_timer)
	  ecore_timer_del (inst->check_timer);
	inst->check_timer =
	  ecore_timer_add (inst->ci->poll_time, _mem_cb_check, inst);
	if (inst->ci->always_text)
	  edje_object_signal_emit (inst->mem_obj, "label_active", "");
	else
	  edje_object_signal_emit (inst->mem_obj, "label_passive", "");
    }
}

static Config_Item *
_mem_config_item_get (const char *id)
{
   Eina_List *l;
   Config_Item *ci;
   char buf[128];

   if (!id)
     {
	int  num = 0;

	/* Create id */
	if (mem_config->items)
	  {
	     const char *p;

	     ci = eina_list_last (mem_config->items)->data;
	     p = strrchr (ci->id, '.');
	     if (p) num = atoi (p + 1) + 1;
	  }
	snprintf (buf, sizeof (buf), "%s.%d", _gc_class.name, num);
	id = buf;
     }
   else
     {
	for (l = mem_config->items; l; l = l->next)
	  {
	     if (!(ci = l->data)) continue;
	     if (!strcmp (ci->id, id)) return ci;
	  }
     }
   ci = E_NEW (Config_Item, 1);
   ci->id = eina_stringshare_add (id);
   ci->poll_time = 1.0;
   ci->always_text = 0;
   ci->show_percent = 1;
#ifdef __linux__
   ci->real_ignore_buffers = 0;
   ci->real_ignore_cached = 0;
#endif

   mem_config->items = eina_list_append (mem_config->items, ci);
   return ci;
}

EAPI E_Module_Api e_modapi =
{
   E_MODULE_API_VERSION, "Mem"
};

EAPI void *
e_modapi_init (E_Module * m)
{
   char buf[PATH_MAX];

   snprintf (buf, sizeof (buf), "%s/locale", e_module_dir_get (m));
   bindtextdomain (PACKAGE, buf);
   bind_textdomain_codeset (PACKAGE, "UTF-8");

   conf_item_edd = E_CONFIG_DD_NEW ("Mem_Config_Item", Config_Item);
#undef T
#undef D
#define T Config_Item
#define D conf_item_edd
   E_CONFIG_VAL (D, T, id, STR);
   E_CONFIG_VAL (D, T, poll_time, DOUBLE);
   E_CONFIG_VAL (D, T, always_text, INT);
   E_CONFIG_VAL (D, T, show_percent, INT);
#ifdef __linux__
   E_CONFIG_VAL (D, T, real_ignore_buffers, INT);
   E_CONFIG_VAL (D, T, real_ignore_cached, INT);
#endif

   conf_edd = E_CONFIG_DD_NEW ("Mem_Config", Config);
#undef T
#undef D
#define T Config
#define D conf_edd
   E_CONFIG_LIST (D, T, items, conf_item_edd);

   mem_config = e_config_domain_load ("module.mem", conf_edd);
   if (!mem_config)
     {
	Config_Item *ci;

	mem_config = E_NEW (Config, 1);

	ci = E_NEW (Config_Item, 1);
	ci->id = eina_stringshare_add ("0");
	ci->poll_time = 1.0;
	ci->always_text = 0;
	ci->show_percent = 1;
#ifdef __linux__
	ci->real_ignore_buffers = 0;
	ci->real_ignore_cached = 0;
#endif
	mem_config->items = eina_list_append (mem_config->items, ci);
    }
   mem_config->module = m;
   e_gadcon_provider_register (&_gc_class);
   return m;
}

EAPI int
e_modapi_shutdown (E_Module * m)
{
   mem_config->module = NULL;
   e_gadcon_provider_unregister (&_gc_class);

   if (mem_config->config_dialog)
     e_object_del (E_OBJECT (mem_config->config_dialog));
   if (mem_config->menu)
     {
	e_menu_post_deactivate_callback_set (mem_config->menu, NULL, NULL);
	e_object_del (E_OBJECT (mem_config->menu));
	mem_config->menu = NULL;
    }
   while (mem_config->items)
     {
	Config_Item *ci;

	ci = mem_config->items->data;
	mem_config->items =
	  eina_list_remove_list (mem_config->items, mem_config->items);
	if (ci->id)
	  eina_stringshare_del (ci->id);
	E_FREE (ci);
    }
   E_FREE (mem_config);
   E_CONFIG_DD_FREE (conf_item_edd);
   E_CONFIG_DD_FREE (conf_edd);
   return 1;
}

EAPI int
e_modapi_save (E_Module * m)
{
   e_config_domain_save ("module.mem", conf_edd, mem_config);
   return 1;
}

static Mem *
_mem_new (Evas * evas)
{
   Mem *mem;
   char buf[PATH_MAX];

   mem = E_NEW (Mem, 1);

   mem->mem_obj = edje_object_add (evas);
   snprintf (buf, sizeof (buf), "%s/mem.edj",
	     e_module_dir_get (mem_config->module));
   if (!e_theme_edje_object_set
       (mem->mem_obj, "base/theme/modules/mem", "modules/mem/main"))
     edje_object_file_set (mem->mem_obj, buf, "modules/mem/main");
   evas_object_show (mem->mem_obj);

   return mem;
}

static void
_mem_free (Mem * m)
{
   evas_object_del (m->mem_obj);
   E_FREE (m);
}

static void
_mem_cb_mouse_in (void *data, Evas * e, Evas_Object * obj, void *event_info)
{
   Instance *inst;

   inst = data;
   if (!inst->ci->always_text)
     edje_object_signal_emit (inst->mem_obj, "label_active", "");
}

static void
_mem_cb_mouse_out (void *data, Evas * e, Evas_Object * obj, void *event_info)
{
   Instance *inst;

   inst = data;
   if (!inst->ci->always_text)
     edje_object_signal_emit (inst->mem_obj, "label_passive", "");
}

static Eina_Bool
_mem_cb_check (void *data)
{
   Instance *inst;
   Edje_Message_Float msg;
   int real, swap, total_real, total_swap;
   char real_str[100];
   char swap_str[100];

   inst = data;
   _mem_get_values (inst->ci, &real, &swap, &total_real, &total_swap);

   if (!inst->ci->show_percent)
     {
	snprintf (real_str, sizeof (real_str), "Real: %d/%d MB", (real / 1024),
		  (total_real / 1024));
	if ( total_swap )
	  snprintf (swap_str, sizeof (swap_str), "Swap: %d/%d MB", (swap / 1024),
		    (total_swap / 1024));
     }
   else
     {
	double tr;

	tr = (((double) real / (double) total_real) * 100);
	snprintf (real_str, sizeof (real_str), "Real: %1.2f%%", tr);
	if ( total_swap )
	  {
	     tr = (((double) swap / (double) total_swap) * 100);
	     snprintf (swap_str, sizeof (swap_str), "Swap: %1.2f%%", tr);
	  }
     }
   edje_object_part_text_set (inst->mem_obj, "real_label", real_str);
   if (total_swap)
     edje_object_part_text_set (inst->mem_obj, "swap_label", swap_str);
   else
     edje_object_part_text_set (inst->mem_obj, "swap_label", "");

   double tr = ((double) real / (double) total_real);
   msg.val = tr;
   edje_object_message_send (inst->mem_obj, EDJE_MESSAGE_FLOAT, 1, &msg);

   if ( total_swap )
     {
	double ts = ((double) swap / (double) total_swap);
	msg.val = ts;
	edje_object_message_send (inst->mem_obj, EDJE_MESSAGE_FLOAT, 2, &msg);
     }

   return EINA_TRUE;
}