#include <Evas.h>
#include <Ebits.h>
#include <Ecore.h>
#include <Edb.h>
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <string.h>
#include <math.h>
#include "../config.h"

/* stuff we want from e */
#define OBJ_PROPERTIES \
int references; \
void (*e_obj_free) (void *e_obj);
#define OBJ_INIT(_e_obj, _e_obj_free_func) \
{ \
  _e_obj->references = 1; \
  _e_obj->e_obj_free = (void *) _e_obj_free_func; \
}
#define OBJ_REF(_e_obj) _e_obj->references++
#define OBJ_UNREF(_e_obj) _e_obj->references--
#define OBJ_IF_FREE(_e_obj) if (_e_obj->references == 0)
#define OBJ_FREE(_e_obj) _e_obj->e_obj_free(_e_obj);
#define OBJ_DO_FREE(_e_obj) \
{ \
  OBJ_UNREF(_e_obj); \
  OBJ_IF_FREE(_e_obj) \
    { \
      OBJ_FREE(_e_obj); \
    } \
}
#define e_strdup(__dest, __var) \
{ \
if (!__var) __dest = NULL; \
else { \
__dest = malloc(strlen(__var) + 1); \
if (__dest) strcpy(__dest, __var); \
} }

typedef struct _E_Background          E_Background;
typedef struct _E_Background_Layer    E_Background_Layer;

struct _E_Background
{
   OBJ_PROPERTIES;
   
   Evas  evas;
   char *file;
   
   struct {
      int sx, sy;
      int w, h;
   } geom;
   
   Evas_List layers;
   
   Evas_Object base_obj;
};


struct _E_Background_Layer
{
   int mode;
   int type;
   int inlined;
   struct {
      float x, y;
   } scroll;
   struct {
      float x, y;
   } pos;
   struct {
      float w, h;
      struct {
	 int w, h;
      } orig;
   } size, fill;
   char *color_class;
   char *file;
   double angle;
   struct {
      int r, g, b, a;
   } fg, bg;
   
   double x, y, w, h, fw, fh;
   
   Evas_Object obj;
};


void           e_background_free(E_Background *bg);
E_Background  *e_background_new(void);
E_Background  *e_background_load(char *file);
void           e_background_realize(E_Background *bg, Evas evas);
void           e_background_set_scroll(E_Background *bg, int sx, int sy);
void           e_background_set_size(E_Background *bg, int w, int h);
void           e_background_set_color_class(E_Background *bg, char *cc, int r, int g, int b, int a);

void
e_background_free(E_Background *bg)
{
   Evas_List l;
   
   if (bg->layers)
     {
	for (l = bg->layers; l; l = l->next)
	  {
	     E_Background_Layer *bl;
	     
	     bl = l->data;
	     if (bl->color_class) FREE(bl->color_class);
	     if (bl->file) FREE(bl->file);
	     if (bl->obj) evas_del_object(bg->evas, bl->obj);
	     FREE(bl);
	  }
	evas_list_free(bg->layers);
     }
   if (bg->file) FREE (bg->file);
   if (bg->base_obj) evas_del_object(bg->evas, bg->base_obj);
   FREE(bg);   
}

E_Background *
e_background_new(void)
{
   E_Background *bg;
   
   bg = NEW(E_Background, 1);
   ZERO(bg, E_Background, 1);
   OBJ_INIT(bg, e_background_free);
   
   return bg;
}

E_Background *
e_background_load(char *file)
{
   E_Background *bg;
   E_DB_File *db;
   int i, num;
   
   db = e_db_open_read(file);
   if (!db) return NULL;
   num = 0;
   e_db_int_get(db, "/type/bg", &num);
   if (num != 1)
     {
	e_db_close(db);
	e_db_flush();
	return NULL;
     }
   e_db_int_get(db, "/layers/count", &num);
   
   bg = e_background_new();
   e_strdup(bg->file, file);
   for (i = 0; i < num; i++)
     {
	E_Background_Layer *bl;
	char buf[4096];
	
	bl = NEW(E_Background_Layer, 1);
	ZERO(bl, E_Background_Layer, 1);
	bg->layers = evas_list_append(bg->layers, bl);
	
	sprintf(buf, "/layers/%i/type", i); e_db_int_get(db, buf, &(bl->type));
	sprintf(buf, "/layers/%i/inlined", i); e_db_int_get(db, buf, &(bl->inlined));
	sprintf(buf, "/layers/%i/color_class", i); bl->color_class = e_db_str_get(db, buf);
	if (bl->inlined)
	  {
	     sprintf(buf, "%s:/layers/%i/image", file, i); e_strdup(bl->file, buf);
	  }
	else
	  {
	     sprintf(buf, "/layers/%i/file", i); bl->file = e_db_str_get(db, buf);
	  }
	sprintf(buf, "/layers/%i/scroll.x", i); e_db_float_get(db, buf, &(bl->scroll.x));
	sprintf(buf, "/layers/%i/scroll.y", i); e_db_float_get(db, buf, &(bl->scroll.y));
	sprintf(buf, "/layers/%i/pos.x", i); e_db_float_get(db, buf, &(bl->pos.x));
	sprintf(buf, "/layers/%i/pos.y", i); e_db_float_get(db, buf, &(bl->pos.y));
	sprintf(buf, "/layers/%i/size.w", i); e_db_float_get(db, buf, &(bl->size.w));
	sprintf(buf, "/layers/%i/size.h", i); e_db_float_get(db, buf, &(bl->size.h));
	sprintf(buf, "/layers/%i/size.orig.w", i); e_db_int_get(db, buf, &(bl->size.orig.w));
	sprintf(buf, "/layers/%i/size.orig.h", i); e_db_int_get(db, buf, &(bl->size.orig.h));
	sprintf(buf, "/layers/%i/fill.w", i);  e_db_float_get(db, buf, &(bl->fill.w));
	sprintf(buf, "/layers/%i/fill.h", i);  e_db_float_get(db, buf, &(bl->fill.h));
	sprintf(buf, "/layers/%i/fill.orig.w", i); e_db_int_get(db, buf, &(bl->fill.orig.w));
	sprintf(buf, "/layers/%i/fill.orig.h", i); e_db_int_get(db, buf, &(bl->fill.orig.h));
	sprintf(buf, "/layers/%i/angle", i);  e_db_float_get(db, buf, (float*)&(bl->angle));
	sprintf(buf, "/layers/%i/fg.r", i); e_db_int_get(db, buf, &(bl->fg.r));
	sprintf(buf, "/layers/%i/fg.g", i); e_db_int_get(db, buf, &(bl->fg.g));
	sprintf(buf, "/layers/%i/fg.b", i); e_db_int_get(db, buf, &(bl->fg.b));
	sprintf(buf, "/layers/%i/fg.a", i); e_db_int_get(db, buf, &(bl->fg.a));
	sprintf(buf, "/layers/%i/bg.r", i); e_db_int_get(db, buf, &(bl->bg.r));
	sprintf(buf, "/layers/%i/bg.g", i); e_db_int_get(db, buf, &(bl->bg.g));
	sprintf(buf, "/layers/%i/bg.b", i); e_db_int_get(db, buf, &(bl->bg.b));
	sprintf(buf, "/layers/%i/bg.a", i); e_db_int_get(db, buf, &(bl->bg.a));
     }
   return bg;
}

void
e_background_realize(E_Background *bg, Evas evas)
{
   Evas_List l;
   int ww, hh, count;

   if (bg->evas) return;
   bg->evas = evas;
   if (!bg->evas) return;
   for (count = 0, l = bg->layers; l; l = l->next, count++)
     {
	E_Background_Layer *bl;
	
	bl = l->data;
	if (bl->type == 0) /* 0 == image */
	  {
	     bl->obj = evas_add_image_from_file(bg->evas, bl->file);
	     evas_set_layer(bg->evas, bl->obj, 0);
	     evas_show(bg->evas, bl->obj);
#if 0 /* dont need this... do we? */
	     if (evas_get_image_alpha(bg->evas, bl->obj))
	       {
		  printf("Adding rectangle to bg!\n");
		  bg->base_obj = evas_add_rectangle(bg->evas);
		  evas_lower(bg->evas, bg->base_obj);
		  evas_move(bg->evas, bg->base_obj, 0, 0);
		  evas_resize(bg->evas, bg->base_obj, 999999999, 999999999);
		  evas_set_color(bg->evas, bg->base_obj, 255, 255, 255, 255);
		  evas_show(bg->evas, bg->base_obj);
	       }
#endif
	  }
	else if (bl->type == 1) /* 1 == gradient */
	  {
	  }
	else if (bl->type == 2) /* 2 == solid */
	  {
	  }
     }
   ww = bg->geom.w;
   hh = bg->geom.h;
   bg->geom.w = 0;
   bg->geom.h = 0;
   e_background_set_size(bg, ww, hh);

}

void
e_background_set_scroll(E_Background *bg, int sx, int sy)
{
   Evas_List l;
   
   if ((bg->geom.sx == sx) && (bg->geom.sy == sy)) return;
   bg->geom.sx = sx;
   bg->geom.sy = sy;
   if (!bg->evas) return;
   for (l = bg->layers; l; l = l->next)
     {
	E_Background_Layer *bl;
	
	bl = l->data;
	if (bl->type == 0) /* 0 == image */
	  {
	     evas_set_image_fill(bg->evas, bl->obj, 
				 (double)bg->geom.sx * bl->scroll.x, 
				 (double)bg->geom.sy * bl->scroll.y,
				 bl->fw, bl->fh);
	  }
     }
}

void
e_background_set_size(E_Background *bg, int w, int h)
{
   Evas_List l;
   
   if ((bg->geom.w == w) && (bg->geom.h == h)) return;
   bg->geom.w = w;
   bg->geom.h = h;
   for (l = bg->layers; l; l = l->next)
     {
	E_Background_Layer *bl;
	double x, y, w, h, fw, fh;
	int iw, ih;
	
	bl = l->data;
	iw = 0;
	ih = 0;
	if (bg->evas) evas_get_image_size(bg->evas, bl->obj, &iw, &ih);
	w = bl->size.w * (double)bg->geom.w;
	h = bl->size.h * (double)bg->geom.h;
	if (bl->size.orig.w) w = (double)iw * bl->size.w;
	if (bl->size.orig.h) h = (double)ih * bl->size.h;
	fw = bl->fill.w * w;
	fh = bl->fill.h * h;
	if (bl->fill.orig.w) fw = (double)iw * bl->fill.w;
	if (bl->fill.orig.h) fh = (double)ih * bl->fill.h;
	x = ((double)bg->geom.w - w + 1) * bl->pos.x;
	y = ((double)bg->geom.h - h + 1) * bl->pos.y;
	bl->x = x;
	bl->y = y;
	bl->w = w;
	bl->h = h;
	bl->fw = fw;
	bl->fh = fh;
	if (bg->evas)
	  {
	     evas_move(bg->evas, bl->obj, bl->x, bl->y);
	     evas_resize(bg->evas, bl->obj, bl->w, bl->h);
	     if (bl->type == 0) /* 0 == image */
	       {
		  evas_set_image_fill(bg->evas, bl->obj,
				      (double)bg->geom.sx * bl->scroll.x,
				      (double)bg->geom.sy * bl->scroll.y,
				      bl->fw, bl->fh);
	       }
	     else if (bl->type == 1) /* 1 == gradient */
	       {
		  evas_set_angle(bg->evas, bl->obj, bl->angle);
	       }
	     else if (bl->type == 2) /* 2 == solid */
	       {
	       }
	  }
     }
}

void
e_background_set_color_class(E_Background *bg, char *cc, int r, int g, int b, int a)
{
   Evas_List l;
   
   for (l = bg->layers; l; l = l->next)
     {
	E_Background_Layer *bl;
	
	bl = l->data;
	if ((bl->color_class) && (cc) && (!strcmp(bl->color_class, cc)))
	  {
	     if (bg->evas)
	       {
		  if ((l == bg->layers) && (bg->base_obj))
		    evas_set_color(bg->evas, bl->obj, r, g, b, 255);
		  else
		    evas_set_color(bg->evas, bl->obj, r, g, b, a);
	       }
	  }
     }
}

Window win_main;
Window win_evas;
Evas   evas;
double scr_w, scr_h;
Evas_Object pointer;





/* our stuff */
void idle(void *data);
void window_expose(Ecore_Event * ev);
void mouse_move(Ecore_Event * ev);
void mouse_down(Ecore_Event * ev);
void mouse_up(Ecore_Event * ev);
void key_down(Ecore_Event * ev);
void setup(void);

void
idle(void *data)
{
   evas_render(evas);
}

void
window_expose(Ecore_Event * ev)
{
   Ecore_Event_Window_Expose      *e;
   
   e = (Ecore_Event_Window_Expose *)ev->event;
   evas_update_rect(evas, e->x, e->y, e->w, e->h);
}

void
mouse_move(Ecore_Event * ev)
{
   Ecore_Event_Mouse_Move      *e;
   
   e = (Ecore_Event_Mouse_Move *)ev->event;
   evas_move(evas, pointer,
	     evas_screen_x_to_world(evas, e->x),
	     evas_screen_y_to_world(evas, e->y));
   evas_event_move(evas, e->x, e->y);
}

void
mouse_down(Ecore_Event * ev)
{
   Ecore_Event_Mouse_Down      *e;
   
   e = (Ecore_Event_Mouse_Down *)ev->event;
   evas_event_button_down(evas, e->x, e->y, e->button);
}

void
mouse_up(Ecore_Event * ev)
{
   Ecore_Event_Mouse_Up      *e;
   
   e = (Ecore_Event_Mouse_Up *)ev->event;
   evas_event_button_up(evas, e->x, e->y, e->button);
}

void
key_down(Ecore_Event * ev)
{
   Ecore_Event_Key_Down          *e;
   
   e = ev->event;
   if (!strcmp(e->key, "Escape"))
     {
	exit(0);
     }
}

void
setup(void)
{
   int root_w, root_h;
   E_Background *bg;

   ecore_event_filter_handler_add(ECORE_EVENT_WINDOW_EXPOSE, window_expose);
   ecore_event_filter_handler_add(ECORE_EVENT_MOUSE_MOVE,    mouse_move);
   ecore_event_filter_handler_add(ECORE_EVENT_MOUSE_DOWN,    mouse_down);
   ecore_event_filter_handler_add(ECORE_EVENT_MOUSE_UP,      mouse_up);
   ecore_event_filter_handler_add(ECORE_EVENT_KEY_DOWN,      key_down);
   
   ecore_event_filter_idle_handler_add(idle, NULL);
   
   ecore_window_get_geometry(0, NULL, NULL, &root_w, &root_h);
   win_main = ecore_window_override_new(0, 0, 0, root_w, root_h);
   evas = evas_new_all(ecore_display_get(), 
		       win_main, 
		       0, 0, root_w, root_w, 
		       RENDER_METHOD_ALPHA_SOFTWARE,
		       216,   1024 * 1024,   8 * 1024 * 1024,
		       PACKAGE_DATA_DIR"/data/fonts/");
   
   bg = e_background_load(PACKAGE_DATA_DIR"/data/backgrounds/default.bg.db");
   if (!bg)
     {
	/* FIXME: must detect this error better and tell user */
	printf("ERROR: Enlightenment not installed properly\n");
	exit(-1);
     }
   e_background_realize(bg, evas);
   e_background_set_size(bg, root_w, root_h);
   
   pointer = evas_add_image_from_file(evas, PACKAGE_DATA_DIR"/data/setup/pointer.png");
   evas_set_pass_events(evas, pointer, 1);
   evas_set_layer(evas, pointer, 1000000);
   evas_show(evas, pointer);
      
   win_evas = evas_get_window(evas);   
   ecore_window_set_events(win_evas, XEV_EXPOSE | XEV_BUTTON | XEV_MOUSE_MOVE | XEV_KEY);
   ecore_set_blank_pointer(win_evas);
   
   ecore_window_show(win_evas);
   ecore_window_show(win_main);
   ecore_keyboard_grab(win_evas);
   
   scr_w = root_w;
   scr_h = root_h;
}

int
main(int argc, char **argv)
{
   ecore_display_init(NULL);
   ecore_event_signal_init();
   ecore_event_filter_init();
   ecore_event_x_init();
   
   setup();
   
   ecore_event_loop();   
}