#include "evas_common.h"
#include "evas_private.h"
#include "evas_engine.h"
#include "Evas_Engine_Software_8_X11.h"
#include "evas_common_soft8.h"
#include <pixman.h>

int _evas_engine_soft8_x11_log_dom = -1;
/* function tables - filled in later (func and parent func) */
static Evas_Func func, pfunc;

/* engine struct data */
typedef struct _Render_Engine Render_Engine;

struct _Render_Engine {
   xcb_connection_t *connection;
   xcb_drawable_t drawable;
   xcb_screen_t *screen;
   unsigned char pal[256];
   int depth;

   int w, h, rot;
   Tilebuf *tb;
   Tilebuf_Rect *rects;
   Tilebuf_Rect *cur_rect;

   X_Output_Buffer *shbuf;
   Soft8_Image *tmp_out;        /* used by indirect render, like rotation */

   pixman_region16_t *clip_rects;
   unsigned char end:1;
   unsigned char shm:1;
};

/* prototypes we will use here */

static void *eng_info(Evas * e);
static void eng_info_free(Evas * e, void *info);
static int eng_setup(Evas * e, void *info);
static void eng_output_free(void *data);
static void eng_output_resize(void *data, int w, int h);
static void eng_output_tile_size_set(void *data, int w, int h);
static void eng_output_redraws_rect_add(void *data, int x, int y, int w, int h);
static void eng_output_redraws_rect_del(void *data, int x, int y, int w, int h);
static void eng_output_redraws_clear(void *data);
static void *eng_output_redraws_next_update_get(void *data, int *x, int *y,
                                                int *w, int *h, int *cx,
                                                int *cy, int *cw, int *ch);
static void eng_output_redraws_next_update_push(void *data, void *surface,
                                                int x, int y, int w, int h);
static void eng_output_flush(void *data);
static void eng_output_idle_flush(void *data);

/* engine api this module provides */
static void *
eng_info(Evas * e)
{
   Evas_Engine_Info_Software_8_X11 *info;

   info = calloc(1, sizeof(Evas_Engine_Info_Software_8_X11));
   if (!info)
      return NULL;
   info->magic.magic = rand();
   info->render_mode = EVAS_RENDER_MODE_BLOCKING;
   return info;
   e = NULL;
}

static void
eng_info_free(Evas * e __UNUSED__, void *info)
{
   Evas_Engine_Info_Software_8_X11 *in;
   in = (Evas_Engine_Info_Software_8_X11 *) info;
   free(in);
}

static void
_tmp_out_alloc(Render_Engine * re)
{
   Tilebuf_Rect *r;
   unsigned int w = 0, h = 0;

   EINA_INLIST_FOREACH(re->rects, r)
   {
      if (r->w > (int)w)
         w = r->w;
      if (r->h > (int)h)
         h = r->h;
   }

   if (re->tmp_out)
     {
        if ((re->tmp_out->cache_entry.w < w)
            || (re->tmp_out->cache_entry.h < h))
          {
             evas_cache_image_drop(&re->tmp_out->cache_entry);
             re->tmp_out = NULL;
          }
     }

   if (!re->tmp_out)
     {
        Soft8_Image *im;

        im = (Soft8_Image *)
            evas_cache_image_empty(evas_common_soft8_image_cache_get());
        im->cache_entry.flags.alpha = 0;
        evas_cache_image_surface_alloc(&im->cache_entry, w, h);

        re->tmp_out = im;
     }
}

static void
alloc_colors(Render_Engine * re)
{
   xcb_alloc_color_cookie_t color_rq[256];
   xcb_alloc_color_reply_t *rep;
   xcb_colormap_t colormap = re->screen->default_colormap;

   int i;
   for (i = 0; i < 256; i++)
      color_rq[i] =
          xcb_alloc_color(re->connection, colormap, i << 8, i << 8, i << 8);

   for (i = 0; i < 256; i++)
     {
        rep = xcb_alloc_color_reply(re->connection, color_rq[i], NULL);
        re->pal[i] = rep->pixel;
        free(rep);
     }
}

static int
eng_setup(Evas * e, void *in)
{
   Render_Engine *re;
   Evas_Engine_Info_Software_8_X11 *info;
/*    X_Output_Buffer *xob; */

   info = (Evas_Engine_Info_Software_8_X11 *) in;
   if (!e->engine.data.output)
     {
        /* the only check - simplistic, i know, but enough for this
         * "special purpose" engine. Remember it is meant to be used
         * for limited power devices that have a 8bit display mode
         * and no real other acceleration, and high resolution so we
         * can pre-dither into 8bpp. */
//      if (DefaultDepth(info->info.display,
//                       DefaultScreen(info->info.display)) != 8)
//        return;
        /* do common routine init - we wil at least use it for core
         * image loading and font loading/glyph rendering & placement */
        evas_common_cpu_init();

        evas_common_blend_init();
        evas_common_image_init();
        evas_common_convert_init();
        evas_common_scale_init();
        evas_common_rectangle_init();
        evas_common_polygon_init();
        evas_common_line_init();
        evas_common_font_init();
        evas_common_draw_init();
        evas_common_tilebuf_init();
        evas_common_soft8_image_init();

        /* render engine specific data */
        re = calloc(1, sizeof(Render_Engine));
        if (!re)
           return 0;
        e->engine.data.output = re;
        re->connection = info->info.connection;
        re->screen = info->info.screen;
        re->drawable = info->info.drawable;
        re->depth = info->info.depth;
        re->w = e->output.w;
        re->h = e->output.h;
        re->rot = info->info.rotation;
        re->tb = evas_common_tilebuf_new(e->output.w, e->output.h);
        if (re->tb)
           evas_common_tilebuf_set_tile_size(re->tb, TILESIZE, TILESIZE);
        alloc_colors(re);
     }
   else
     {
        /* we changed the info after first init - do a re-eval where
         * appropriate */
        re = e->engine.data.output;
        if (re->tb)
           evas_common_tilebuf_free(re->tb);
        re->connection = info->info.connection;
        re->screen = info->info.screen;
        re->drawable = info->info.drawable;
        re->w = e->output.w;
        re->h = e->output.h;
        re->rot = info->info.rotation;
        re->tb = evas_common_tilebuf_new(e->output.w, e->output.h);
        if (re->tb)
           evas_common_tilebuf_set_tile_size(re->tb, TILESIZE, TILESIZE);
        if (re->tmp_out)
          {
             evas_cache_image_drop(&re->tmp_out->cache_entry);
             re->tmp_out = NULL;
          }
        alloc_colors(re);
     }
   if (!e->engine.data.output)
      return 0;

   /* add a draw context if we dont have one */
   if (!e->engine.data.context)
      e->engine.data.context =
          e->engine.func->context_new(e->engine.data.output);
   /* check if the display can do shm */
   re->shm = evas_software_8_x11_x_can_do_shm(re->connection, re->screen);

   return 1;
}

static void
eng_output_free(void *data)
{
   Render_Engine *re;

   re = (Render_Engine *) data;
   if (re->shbuf)
      evas_software_8_x11_x_output_buffer_free(re->shbuf, 0);
   if (re->clip_rects)
     {
        pixman_region_fini(re->clip_rects);
        free(re->clip_rects);
        re->clip_rects = NULL;
     }
   if (re->tb)
      evas_common_tilebuf_free(re->tb);
   if (re->rects)
      evas_common_tilebuf_free_render_rects(re->rects);
   if (re->tmp_out)
      evas_cache_image_drop(&re->tmp_out->cache_entry);
   free(re);

   evas_common_font_shutdown();
   evas_common_image_shutdown();
   evas_common_soft8_image_shutdown();
}

static void
eng_output_resize(void *data, int w, int h)
{
   Render_Engine *re;

   re = (Render_Engine *) data;

   if ((re->w == w) && (re->h == h))
      return;

   evas_common_tilebuf_free(re->tb);
   re->w = w;
   re->h = h;
   re->tb = evas_common_tilebuf_new(w, h);
   if (re->tb)
      evas_common_tilebuf_set_tile_size(re->tb, TILESIZE, TILESIZE);
   if (re->shbuf)
     {
        evas_software_8_x11_x_output_buffer_free(re->shbuf, 0);
        re->shbuf = NULL;
     }
   if (re->clip_rects)
     {
        pixman_region_fini(re->clip_rects);
        free(re->clip_rects);
        re->clip_rects = NULL;
     }

   if (re->tmp_out)
     {
        evas_cache_image_drop(&re->tmp_out->cache_entry);
        re->tmp_out = NULL;
     }
}

static void
eng_output_tile_size_set(void *data, int w, int h)
{
   Render_Engine *re;

   re = (Render_Engine *) data;
   evas_common_tilebuf_set_tile_size(re->tb, w, h);
}

static void
eng_output_redraws_rect_add(void *data, int x, int y, int w, int h)
{
   Render_Engine *re;

   re = (Render_Engine *) data;
   evas_common_tilebuf_add_redraw(re->tb, x, y, w, h);
}

static void
eng_output_redraws_rect_del(void *data, int x, int y, int w, int h)
{
   Render_Engine *re;

   re = (Render_Engine *) data;
   evas_common_tilebuf_del_redraw(re->tb, x, y, w, h);
}

static void
eng_output_redraws_clear(void *data)
{
   Render_Engine *re;

   re = (Render_Engine *) data;
   evas_common_tilebuf_clear(re->tb);
}

static inline void
_output_buffer_alloc(Render_Engine * re)
{
   int w, h;
   if (re->shbuf)
      return;

   if ((re->rot == 0) || (re->rot == 180))
     {
        w = re->w;
        h = re->h;
     }
   else
     {
        w = re->h;
        h = re->w;
     }

   re->shbuf = evas_software_8_x11_x_output_buffer_new
       (re->connection, re->screen, re->depth, re->pal, w, h, 1, NULL);

   re->shbuf->drawable = re->drawable;
   re->shbuf->screen = re->screen;
   if (re->shbuf->gc)
     {
        xcb_free_gc(re->shbuf->connection, re->shbuf->gc);
        re->shbuf->gc = 0;
     }

   re->shbuf->gc = xcb_generate_id(re->shbuf->connection);
   xcb_create_gc(re->shbuf->connection, re->shbuf->gc, re->shbuf->drawable, 0,
                 NULL);
}

static void *
eng_output_redraws_next_update_get(void *data, int *x, int *y, int *w, int *h,
                                   int *cx, int *cy, int *cw, int *ch)
{
   Render_Engine *re;
   Tilebuf_Rect *rect;
   int ux, uy, uw, uh;

   re = (Render_Engine *) data;
   if (re->end)
     {
        re->end = 0;
        return NULL;
     }
   if (!re->rects)
     {
        re->rects = evas_common_tilebuf_get_render_rects(re->tb);
        if (!re->rects)
           return NULL;

        re->cur_rect = re->rects;
        _output_buffer_alloc(re);
        if (re->rot != 0)
           _tmp_out_alloc(re);  /* grows if required */
     }
   if (!re->cur_rect)
     {
        if (re->rects)
           evas_common_tilebuf_free_render_rects(re->rects);
        re->rects = NULL;
        return NULL;
     }
   rect = re->cur_rect;
   ux = rect->x;
   uy = rect->y;
   uw = rect->w;
   uh = rect->h;
   re->cur_rect = (Tilebuf_Rect *) ((EINA_INLIST_GET(re->cur_rect))->next);
   if (!re->cur_rect)
     {
        evas_common_tilebuf_free_render_rects(re->rects);
        re->rects = NULL;
        re->end = 1;
     }

   *x = ux;
   *y = uy;
   *w = uw;
   *h = uh;
   if (re->rot == 0)
     {
        *cx = ux;
        *cy = uy;
        *cw = uw;
        *ch = uh;
        return re->shbuf->im;
     }
   else
     {
        *cx = 0;
        *cy = 0;
        *cw = uw;
        *ch = uh;
        return re->tmp_out;
     }
}

static void
_blit_rot_90(Soft8_Image * dst, const Soft8_Image * src,
             int out_x, int out_y, int w, int h)
{
   DATA8 *dp, *sp;
   int x, y;

   sp = src->pixels;
   dp = dst->pixels + (out_x + (w + out_y - 1) * dst->stride);

   for (y = 0; y < h; y++)
     {
        DATA8 *dp_itr, *sp_itr;

        sp_itr = sp;
        dp_itr = dp;

        for (x = 0; x < w; x++)
          {
             *dp_itr = *sp_itr;

             sp_itr++;
             dp_itr -= dst->stride;
          }
        sp += src->stride;
        dp++;
     }
}

static void
_blit_rot_180(Soft8_Image * dst, const Soft8_Image * src,
              int out_x, int out_y, int w, int h)
{
   DATA8 *dp, *sp;
   int x, y;

   sp = src->pixels;
   dp = dst->pixels + ((w + out_x - 1) + (h + out_y - 1) * dst->stride);

   for (y = 0; y < h; y++)
     {
        DATA8 *dp_itr, *sp_itr;

        sp_itr = sp;
        dp_itr = dp;

        for (x = 0; x < w; x++)
          {
             *dp_itr = *sp_itr;

             sp_itr++;
             dp_itr--;
          }
        sp += src->stride;
        dp -= dst->stride;
     }
}

static void
_blit_rot_270(Soft8_Image * dst, const Soft8_Image * src,
              int out_x, int out_y, int w, int h)
{
   DATA8 *dp, *sp;
   int x, y;

   sp = src->pixels;
   dp = dst->pixels + ((h + out_x - 1) + out_y * dst->stride);

   for (y = 0; y < h; y++)
     {
        DATA8 *dp_itr, *sp_itr;

        sp_itr = sp;
        dp_itr = dp;

        for (x = 0; x < w; x++)
          {
             *dp_itr = *sp_itr;

             sp_itr++;
             dp_itr += dst->stride;
          }
        sp += src->stride;
        dp--;
     }
}

static void
_tmp_out_process(Render_Engine * re, int out_x, int out_y, int w, int h)
{
   Soft8_Image *d, *s;

   d = re->shbuf->im;
   s = re->tmp_out;

   if ((w < 1) || (h < 1) ||
       (out_x >= (int)d->cache_entry.w) ||
       (out_y >= (int)d->cache_entry.h))
      return;

   if (re->rot == 90)
      _blit_rot_90(d, s, out_x, out_y, w, h);
   else if (re->rot == 180)
      _blit_rot_180(d, s, out_x, out_y, w, h);
   else if (re->rot == 270)
      _blit_rot_270(d, s, out_x, out_y, w, h);
}

static void
eng_output_redraws_next_update_push(void *data, void *surface __UNUSED__, int x,
                                    int y, int w, int h)
{
   Render_Engine *re;
   struct {
      int x, y, width, height;
   } r =
   {
   0, 0, 0, 0};

   re = (Render_Engine *) data;

   if (!re->clip_rects)
     {
        re->clip_rects =
            (pixman_region16_t *) malloc(sizeof(pixman_region16_t));
        pixman_region_init(re->clip_rects);
     }

   if (re->rot == 0)
     {
        r.x = x;
        r.y = y;
        r.width = w;
        r.height = h;
     }
   else if (re->rot == 90)
     {
        r.x = y;
        r.y = re->w - w - x;
        r.width = h;
        r.height = w;
     }
   else if (re->rot == 180)
     {
        r.x = re->w - w - x;
        r.y = re->h - h - y;
        r.width = w;
        r.height = h;
     }
   else if (re->rot == 270)
     {
        r.x = re->h - h - y;
        r.y = x;
        r.width = h;
        r.height = w;
     }

   if (re->rot != 0)
      _tmp_out_process(re, r.x, r.y, w, h);

   pixman_region_union_rect(re->clip_rects, re->clip_rects,
                            r.x, r.y, r.width, r.height);
}

static void
eng_output_flush(void *data)
{
   Render_Engine *re;

   re = (Render_Engine *) data;

   if (re->clip_rects)
     {
        re->shbuf->drawable = re->drawable;
        {
           int i;
           pixman_box16_t *rects =
               pixman_region_rectangles(re->clip_rects, NULL);
           for (i = 0; i < pixman_region_n_rects(re->clip_rects); i++, rects++)
              evas_software_8_x11_x_output_buffer_paste
                  (re->shbuf, re->drawable, re->shbuf->gc, rects->x1, rects->y1,
                   rects->x2 - rects->x1, rects->y2 - rects->y1, 1);
        }

        pixman_region_fini(re->clip_rects);
        free(re->clip_rects);
        re->clip_rects = NULL;
     }
}

static void
eng_output_idle_flush(void *data)
{
   Render_Engine *re;

   re = (Render_Engine *) data;
   if (re->shbuf)
     {
        evas_software_8_x11_x_output_buffer_free(re->shbuf, 0);
        re->shbuf = NULL;
     }
   if (re->clip_rects)
     {
        pixman_region_fini(re->clip_rects);
        free(re->clip_rects);
        re->clip_rects = NULL;
     }
   if (re->tmp_out)
     {
        evas_cache_image_drop(&re->tmp_out->cache_entry);
        re->tmp_out = NULL;
     }
}

static Eina_Bool
eng_canvas_alpha_get(void *data __UNUSED__, void *context __UNUSED__)
{
   return EINA_FALSE;
}

/* module advertising code */
static int
module_open(Evas_Module * em)
{
   if (!em)
      return 0;
   /* get whatever engine module we inherit from */
   if (!_evas_module_engine_inherit(&pfunc, "software_8"))
      return 0;
   _evas_engine_soft8_x11_log_dom = eina_log_domain_register
     ("evas-software_8_x11", EVAS_DEFAULT_LOG_COLOR);
   if (_evas_engine_soft8_x11_log_dom < 0)
     {
        EINA_LOG_ERR("Can not create a module log domain.");
        return 0;
     }

   /* store it for later use */
   func = pfunc;
   /* now to override methods */
#define ORD(f) EVAS_API_OVERRIDE(f, &func, eng_)
   ORD(info);
   ORD(info_free);
   ORD(setup);
   ORD(canvas_alpha_get);
   ORD(output_free);
   ORD(output_resize);
   ORD(output_tile_size_set);
   ORD(output_redraws_rect_add);
   ORD(output_redraws_rect_del);
   ORD(output_redraws_clear);
   ORD(output_redraws_next_update_get);
   ORD(output_redraws_next_update_push);
   ORD(output_flush);
   ORD(output_idle_flush);
   /* now advertise out own api */
   em->functions = (void *)(&func);
   return 1;
}

static void
module_close(Evas_Module * em __UNUSED__)
{
   eina_log_domain_unregister(_evas_engine_soft8_x11_log_dom);
}

static Evas_Module_Api evas_modapi = {
   EVAS_MODULE_API_VERSION,
   "software_8_x11",
   "none",
   {
    module_open,
    module_close}
};

EVAS_MODULE_DEFINE(EVAS_MODULE_TYPE_ENGINE, engine, software_8_x11);

#ifndef EVAS_STATIC_BUILD_SOFTWARE_8_X11
EVAS_EINA_MODULE_DEFINE(engine, software_8_x11);
#endif