#ifdef HAVE_CONFIG_H
# include <config.h>
#endif

#include <stdio.h>

#ifdef HAVE_EVIL
# include <Evil.h>
#endif

#include "evas_common_private.h"
#include "evas_private.h"

static int _evas_loader_ico_log_dom = -1;

#ifdef ERR
# undef ERR
#endif
#define ERR(...) EINA_LOG_DOM_ERR(_evas_loader_ico_log_dom, __VA_ARGS__)

typedef struct _Evas_Loader_Internal Evas_Loader_Internal;
struct _Evas_Loader_Internal
{
   Eina_File *f;
   const char *key;
   Evas_Image_Load_Opts *opts;
};

static Eina_Bool
read_ushort(unsigned char *map, size_t length, size_t *position, unsigned short *ret)
{
   unsigned char b[2];

   if (*position + 2 > length) return EINA_FALSE;
   b[0] = map[(*position)++];
   b[1] = map[(*position)++];
   *ret = (b[1] << 8) | b[0];
   return EINA_TRUE;
}

static Eina_Bool
read_uint(unsigned char *map, size_t length, size_t *position, unsigned int *ret)
{
   unsigned char b[4];
   unsigned int i;

   if (*position + 4 > length) return EINA_FALSE;
   for (i = 0; i < 4; i++)
     b[i] = map[(*position)++];
   *ret = ARGB_JOIN(b[3], b[2], b[1], b[0]);
   return EINA_TRUE;
}

static Eina_Bool
read_uchar(unsigned char *map, size_t length, size_t *position, unsigned char *ret)
{
   if (*position + 1 > length) return EINA_FALSE;
   *ret = map[(*position)++];
   return EINA_TRUE;
}

static Eina_Bool
read_mem(unsigned char *map, size_t length, size_t *position, void *buffer, int size)
{
   if (*position + size > length) return EINA_FALSE;
   memcpy(buffer, map + *position, size);
   *position += size;
   return EINA_TRUE;
}

enum
{
   SMALLEST,
   BIGGEST,
   SMALLER,
   BIGGER
};

enum
{
   ICON = 1,
   CURSOR = 2
};

static void *
evas_image_load_file_open_ico(Eina_File *f, Eina_Stringshare *key,
                              Evas_Image_Load_Opts *opts,
                              Evas_Image_Animated *animated EINA_UNUSED,
                              int *error)
{
   Evas_Loader_Internal *loader;

   loader = calloc(1, sizeof (Evas_Loader_Internal));
   if (!loader)
     {
        *error = EVAS_LOAD_ERROR_RESOURCE_ALLOCATION_FAILED;
        return NULL;
     }

   loader->f = f;
   loader->key = eina_stringshare_ref(key);
   loader->opts = opts;

   return loader;
}

static void
evas_image_load_file_close_ico(void *loader_data)
{
   Evas_Loader_Internal *loader = loader_data;

   eina_stringshare_del(loader->key);
   free(loader);
}

static Eina_Bool
evas_image_load_file_head_ico(void *loader_data,
                              Evas_Image_Property *prop,
                              int *error)
{
   Evas_Loader_Internal *loader = loader_data;
   Evas_Image_Load_Opts *opts;
   const char *key;
   Eina_File *f;

   void *map = NULL;
   size_t position = 0;
   unsigned short word;
   unsigned char byte;
   unsigned wanted_w = 0, wanted_h = 0;
   int cols, i, planes = 0,
      bpp = 0, pdelta, search = -1, have_choice = 0,
      hasa = 1, icount;
   unsigned int bmoffset, bmsize, fsize;
   unsigned short reserved, type, count;
   struct {
      int pdelta;
      int w, h;
      int cols;
      int bpp, planes;
      int hot_x, hot_y;
      unsigned int bmoffset, bmsize;
   } chosen = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0};
   Eina_Bool r = EINA_FALSE;

   opts = loader->opts;
   f = loader->f;
   key = loader->key;

   *error = EVAS_LOAD_ERROR_UNKNOWN_FORMAT;
   fsize = eina_file_size_get(f);
   if (fsize < (6 + 16 + 40)) goto close_file;

   map = eina_file_map_all(f, EINA_FILE_RANDOM);
   if (!map) goto close_file;

   // key:
   //   NULL == highest res
   //   biggest == highest res
   //   smallest == lowest res
   //
   //   smaller == next size SMALLER than load opts WxH (if possible)
   //   bigger == next size BIGGER than load opts WxH (if possible)
   //   more ?

   search = BIGGEST;
   if ((opts->w > 0) && (opts->h > 0))
     {
        wanted_w = opts->w;
        wanted_h = opts->h;
        search = SMALLER;
     }

   if (!read_ushort(map, fsize, &position, &reserved)) goto close_file;
   if (!read_ushort(map, fsize, &position, &type)) goto close_file;
   if (!read_ushort(map, fsize, &position, &count)) goto close_file;
   icount = count;
   if (!((reserved == 0) &&
         ((type == ICON) || (type == CURSOR)) &&
          (icount > 0) && (icount <= 10000))) // between 1 and 10000 images
     goto close_file;
   *error = EVAS_LOAD_ERROR_CORRUPT_FILE;

   if (key)
     {
        if (!strcmp(key, "biggest"))
          {
             wanted_w = 0;
             wanted_h = 0;
             search = BIGGEST;
             chosen.pdelta = 0;
          }
        else if (!strcmp(key, "smallest"))
          {
             wanted_w = 1;
             wanted_h = 1;
             search = SMALLEST;
             chosen.pdelta = 0x7fffffff;
          }
        else if (!strcmp(key, "smaller"))
          {
             chosen.pdelta = 0x7fffffff;
             search = SMALLER;
          }
        else if (!strcmp(key, "bigger"))
          {
             chosen.pdelta = 0x7fffffff;
             search = BIGGER;
          }
     }
   for (i = 0; i < icount; i++)
     {
        unsigned char tw = 0, th = 0, tcols = 0;
        if (!read_uchar(map, fsize, &position, &tw)) goto close_file;
        prop->w = tw;
        if (prop->w <= 0) prop->w = 256;
        if (!read_uchar(map, fsize, &position, &th)) goto close_file;
        prop->h = th;
        if (prop->h <= 0) prop->h = 256;
        if (!read_uchar(map, fsize, &position, &tcols)) goto close_file;
        cols = tcols;
        if (cols <= 0) cols = 256;
        if (!read_uchar(map, fsize, &position, &byte)) goto close_file;
        if (!read_ushort(map, fsize, &position, &word)) goto close_file;
        if (type == CURSOR) planes = word;
        //else hot_x = word;
        if (!read_ushort(map, fsize, &position, &word)) goto close_file;
        if (type == CURSOR) bpp = word;
        //else hot_y = word;
        if (!read_uint(map, fsize, &position, &bmsize)) goto close_file;
        if (!read_uint(map, fsize, &position, &bmoffset)) goto close_file;
        if ((bmsize <= 0) || (bmoffset <= 0) || (bmoffset >= fsize)) goto close_file;
        if (search == BIGGEST)
          {
             pdelta = prop->w * prop->h;
             if ((!have_choice) ||
                 ((pdelta >= chosen.pdelta) &&
                     (((bpp >= 3) && (bpp >= chosen.bpp)) ||
                         ((bpp < 3) && (cols >= chosen.cols)))))
               {
                  have_choice = 1;
                  chosen.pdelta = pdelta;
                  chosen.w = prop->w;
                  chosen.h = prop->h;
                  chosen.cols = cols;
                  chosen.bpp = bpp;
                  chosen.planes = planes;
                  chosen.bmsize = bmsize;
                  chosen.bmoffset = bmoffset;
               }
          }
        else
          {
             if (search == SMALLEST)
               {
                  pdelta = prop->w * prop->h;
                  if ((!have_choice) ||
                       ((pdelta <= chosen.pdelta) &&
                           (((bpp >= 3) && (bpp >= chosen.bpp)) ||
                               ((bpp < 3) && (cols >= chosen.cols)))))
                    {
                       have_choice = 1;
                       chosen.pdelta = pdelta;
                       chosen.w = prop->w;
                       chosen.h = prop->h;
                       chosen.cols = cols;
                       chosen.bpp = bpp;
                       chosen.planes = planes;
                       chosen.bmsize = bmsize;
                       chosen.bmoffset = bmoffset;
                    }
               }
             else if (search == SMALLER)
               {
                  pdelta = (wanted_w * wanted_h) - (prop->w * prop->h);
                  if ((!have_choice) ||
                      ((prop->w <= wanted_w) && (prop->h <= wanted_h) &&
                          (pdelta <= chosen.pdelta) &&
                          (((bpp >= 3) && (bpp >= chosen.bpp)) ||
                              ((bpp < 3) && (cols >= chosen.cols)))))
                     {
                        have_choice = 1;
                        if (pdelta < 0) pdelta = 0x7fffffff;
                        chosen.pdelta = pdelta;
                        chosen.w = prop->w;
                        chosen.h = prop->h;
                        chosen.cols = cols;
                        chosen.bpp = bpp;
                        chosen.planes = planes;
                        chosen.bmsize = bmsize;
                        chosen.bmoffset = bmoffset;
                    }
               }
             else if (search == BIGGER)
               {
                  pdelta = (prop->w * prop->h) - (wanted_w * wanted_h);
                  if ((!have_choice) ||
                      ((prop->w >= wanted_w) && (prop->h >= wanted_h) &&
                          (pdelta <= chosen.pdelta) &&
                          (((bpp >= 3) && (bpp >= chosen.bpp)) ||
                              ((bpp < 3) && (cols >= chosen.cols)))))
                     {
                        have_choice = 1;
                        if (pdelta < 0) pdelta = 0x7fffffff;
                        chosen.pdelta = pdelta;
                        chosen.w = prop->w;
                        chosen.h = prop->h;
                        chosen.cols = cols;
                        chosen.bpp = bpp;
                        chosen.planes = planes;
                        chosen.bmsize = bmsize;
                        chosen.bmoffset = bmoffset;
                    }
               }
          }
     }
   if (chosen.bmoffset == 0) goto close_file;
   position = chosen.bmoffset;

   prop->w = chosen.w;
   prop->h = chosen.h;
   if ((prop->w > 256) || (prop->h > 256)) goto close_file;
   if ((prop->w < 1) || (prop->h < 1) ||
       (prop->w > IMG_MAX_SIZE) || (prop->h > IMG_MAX_SIZE) ||
       IMG_TOO_BIG(prop->w, prop->h))
     {
        if (IMG_TOO_BIG(prop->w, prop->h))
           *error = EVAS_LOAD_ERROR_RESOURCE_ALLOCATION_FAILED;
        else
           *error = EVAS_LOAD_ERROR_GENERIC;
        goto close_file;
     }

   if (hasa) prop->alpha = 1;

   *error = EVAS_LOAD_ERROR_NONE;
   r = EINA_TRUE;

 close_file:
   if (map) eina_file_map_free(f, map);

   return r;
}

static Eina_Bool
evas_image_load_file_data_ico(void *loader_data,
                              Evas_Image_Property *prop,
                              void *pixels,
                              int *error)
{
   Evas_Loader_Internal *loader = loader_data;
   Evas_Image_Load_Opts *opts;
   const char *key;
   Eina_File *f;

   void *map = NULL;
   size_t position = 0;
   unsigned short word;
   unsigned char byte;
   unsigned int dword;
   int wanted_w = 0, wanted_h = 0, w, h, cols, i, planes = 0,
      bpp = 0, pdelta, search = -1, have_choice = 0,
      stride, pstride, j, right_way_up = 0, diff_size = 0, cols2, icount;
   unsigned int bmoffset, bmsize, bitcount, fsize,
      *pal, *surface, *pix, none_zero_alpha = 0;
   unsigned short reserved, type, count;
   unsigned char *maskbuf, *pixbuf, *p;
   struct {
      int pdelta;
      int w, h;
      int cols;
      int bpp, planes;
      int hot_x, hot_y;
      unsigned int bmoffset, bmsize;
   } chosen = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0};
   Eina_Bool res = EINA_FALSE;

   opts = loader->opts;
   key = loader->key;
   f = loader->f;

   *error = EVAS_LOAD_ERROR_UNKNOWN_FORMAT;
   fsize = eina_file_size_get(f);
   if (fsize < (6 + 16 + 40)) goto close_file;

   map = eina_file_map_all(f, EINA_FILE_RANDOM);
   if (!map) goto close_file;

   // key:
   //   NULL == highest res
   //   biggest == highest res
   //   smallest == lowest res
   //   
   //   smaller == next size SMALLER than load opts WxH (if possible)
   //   bigger == next size BIGGER than load opts WxH (if possible)
   //   more ?

   search = BIGGEST;
   if ((opts->w > 0) && (opts->h > 0))
     {
        wanted_w = opts->w;
        wanted_h = opts->h;
        search = SMALLER;
     }

   if (!read_ushort(map, fsize, &position, &reserved)) goto close_file;
   if (!read_ushort(map, fsize, &position, &type)) goto close_file;
   if (!read_ushort(map, fsize, &position, &count)) goto close_file;
   icount = count;
   if (!((reserved == 0) &&
         ((type == ICON) || (type == CURSOR)) &&
          (icount > 0) && (icount <= 10000))) // between 1 and 10000 images
     goto close_file;
   *error = EVAS_LOAD_ERROR_CORRUPT_FILE;

   if (key)
     {
        if (!strcmp(key, "biggest"))
          {
             wanted_w = 0;
             wanted_h = 0;
             search = BIGGEST;
             chosen.pdelta = 0;
          }
        else if (!strcmp(key, "smallest"))
          {
             wanted_w = 1;
             wanted_h = 1;
             search = SMALLEST;
             chosen.pdelta = 0x7fffffff;
          }
        else if (!strcmp(key, "smaller"))
          {
             chosen.pdelta = 0x7fffffff;
             search = SMALLER;
          }
        else if (!strcmp(key, "bigger"))
          {
             chosen.pdelta = 0x7fffffff;
             search = BIGGER;
          }
     }
   for (i = 0; i < icount; i++)
     {
        unsigned char tw = 0, th = 0, tcols = 0;
        if (!read_uchar(map, fsize, &position, &tw)) goto close_file;
        w = tw;
        if (w <= 0) w = 256;
        if (!read_uchar(map, fsize, &position, &th)) goto close_file;
        h = th;
        if (h <= 0) h = 256;
        if (!read_uchar(map, fsize, &position, &tcols)) goto close_file;
        cols = tcols;
        if (cols <= 0) cols = 256;
        if (!read_uchar(map, fsize, &position, &byte)) goto close_file;
        if (!read_ushort(map, fsize, &position, &word)) goto close_file;
        if (type == 1) planes = word;
        //else hot_x = word;
        if (!read_ushort(map, fsize, &position, &word)) goto close_file;
        if (type == 1) bpp = word;
        //else hot_y = word;
        if (!read_uint(map, fsize, &position, &bmsize)) goto close_file;
        if (!read_uint(map, fsize, &position, &bmoffset)) goto close_file;
        if ((bmsize <= 0) || (bmoffset <= 0) || (bmoffset >= fsize)) goto close_file;
        if (search == BIGGEST)
          {
             pdelta = w * h;
             if ((!have_choice) ||
                 ((pdelta >= chosen.pdelta) &&
                     (((bpp >= 3) && (bpp >= chosen.bpp)) ||
                         ((bpp < 3) && (cols >= chosen.cols)))))
               {
                  have_choice = 1;
                  chosen.pdelta = pdelta;
                  chosen.w = w;
                  chosen.h = h;
                  chosen.cols = cols;
                  chosen.bpp = bpp;
                  chosen.planes = planes;
                  chosen.bmsize = bmsize;
                  chosen.bmoffset = bmoffset;
               }
          }
        else
          {
             if (search == SMALLEST)
               {
                  pdelta = w * h;
                  if ((!have_choice) ||
                       ((pdelta <= chosen.pdelta) &&
                           (((bpp >= 3) && (bpp >= chosen.bpp)) ||
                               ((bpp < 3) && (cols >= chosen.cols)))))
                    {
                       have_choice = 1;
                       chosen.pdelta = pdelta;
                       chosen.w = w;
                       chosen.h = h;
                       chosen.cols = cols;
                       chosen.bpp = bpp;
                       chosen.planes = planes;
                       chosen.bmsize = bmsize;
                       chosen.bmoffset = bmoffset;
                    }
               }
             else if (search == SMALLER)
               {
                  pdelta = (wanted_w * wanted_h) - (w * h);
                  if ((!have_choice) ||
                      ((w <= wanted_w) && (h <= wanted_h) &&
                          (pdelta <= chosen.pdelta) &&
                          (((bpp >= 3) && (bpp >= chosen.bpp)) ||
                              ((bpp < 3) && (cols >= chosen.cols)))))
                     {
                        have_choice = 1;
                        if (pdelta < 0) pdelta = 0x7fffffff;
                        chosen.pdelta = pdelta;
                        chosen.w = w;
                        chosen.h = h;
                        chosen.cols = cols;
                        chosen.bpp = bpp;
                        chosen.planes = planes;
                        chosen.bmsize = bmsize;
                        chosen.bmoffset = bmoffset;
                    }
               }
             else if (search == BIGGER)
               {
                  pdelta = (w * h) - (wanted_w * wanted_h);
                  if ((!have_choice) ||
                      ((w >= wanted_w) && (h >= wanted_h) &&
                          (pdelta <= chosen.pdelta) &&
                          (((bpp >= 3) && (bpp >= chosen.bpp)) ||
                              ((bpp < 3) && (cols >= chosen.cols)))))
                     {
                        have_choice = 1;
                        if (pdelta < 0) pdelta = 0x7fffffff;
                        chosen.pdelta = pdelta;
                        chosen.w = w;
                        chosen.h = h;
                        chosen.cols = cols;
                        chosen.bpp = bpp;
                        chosen.planes = planes;
                        chosen.bmsize = bmsize;
                        chosen.bmoffset = bmoffset;
                    }
               }
          }
     }
   if (chosen.bmoffset == 0) goto close_file;
   position = chosen.bmoffset;

   w = chosen.w;
   h = chosen.h;
   cols = chosen.cols;

   // changed since we loaded header?
   if (((int)prop->w != w) || ((int)prop->h != h)) goto close_file;

   // read bmp header time... let's do some checking
   if (!read_uint(map, fsize, &position, &dword)) goto close_file; // headersize - dont care
   if (dword != 40) // must be 40 if bmp entry - if not, something else
     {
        ERR("ICO at %i offset, size %i in %s is not a standard ico bmp "
            " file entry. It may be PNG (new as of Vista - not in original spec)",
            (int)position, (int)chosen.bmsize,
            eina_file_filename_get(f));
     }
   else
     {
        if (!read_uint(map, fsize, &position, &dword)) goto close_file; // width
        if (dword > 0)
          {
             if ((int)dword != w)
               {
                  w = dword;
                  diff_size = 1;
               }
          }
        if (!read_uint(map, fsize, &position, &dword)) goto close_file; // height
        if (dword > 0)
          {
             if ((int)dword != (h * 2))
               {
                  h = dword / 2;
                  diff_size = 1;
               }
          }
        if (diff_size)
          {
             ERR("Broken ICO file: %s - "
                 "  Reporting size of %ix%i in index, but bitmap is %ix%i. "
                 "  May be expanded or cropped.",
                 eina_file_filename_get(f), prop->w, prop->h, w, h);
          }
        if (!read_ushort(map, fsize, &position, &word)) goto close_file; // planes
        //planes2 = word;
        if (!read_ushort(map, fsize, &position, &word)) goto close_file; // bitcount
        bitcount = word;
        if (!read_uint(map, fsize, &position, &dword)) goto close_file; // compression
        //compression = dword;
        if (!read_uint(map, fsize, &position, &dword)) goto close_file; // imagesize
        //imagesize = dword;
        if (!read_uint(map, fsize, &position, &dword)) goto close_file; // z pixels per m
        if (!read_uint(map, fsize, &position, &dword)) goto close_file; // y pizels per m
        if (!read_uint(map, fsize, &position, &dword)) goto close_file; // colors used
        //colorsused = dword;
        if (!read_uint(map, fsize, &position, &dword)) goto close_file; // colors important
        //colorsimportant = dword;

        surface = pixels;
        memset(surface, 0, prop->w * prop->h * 4);

        if (!((bitcount == 1) || (bitcount == 4) || (bitcount == 8) ||
              (bitcount == 24) || (bitcount == 32)))
          goto close_file;
        if (bitcount <= 8)
          {
             cols2 = 1 << bitcount;
             if (cols == 0) cols = cols2;
             if (cols > cols2) cols = cols2;
          }
        else cols = 0;
        if (bitcount > 8) cols = 0;

        pal = alloca(256 * 4);
        for (i = 0; i < cols; i++)
          {
             unsigned char a, r, g, b;

             if (!read_uchar(map, fsize, &position, &b)) goto close_file;
             if (!read_uchar(map, fsize, &position, &g)) goto close_file;
             if (!read_uchar(map, fsize, &position, &r)) goto close_file;
             if (!read_uchar(map, fsize, &position, &a)) goto close_file;
             a = 0xff;
             pal[i] = ARGB_JOIN(a, r, g, b);
          }
        stride = ((w + 31) / 32);
        maskbuf = alloca(stride * h);
        pixbuf = alloca(stride * 32 * 4); // more than enough
        if (bitcount == 1)
          {
             pstride = stride * 4;
             for (i = 0; i < h; i++)
               {
                  pix = surface + (i * w);
                  if (!right_way_up) pix = surface + ((h - 1 - i) * w);
                  if (!read_mem(map, fsize, &position, pixbuf, pstride)) goto close_file;
                  p = pixbuf;
                  if (i >= h) continue;
                  for (j = 0; j < w; j++)
                    {
                       if (j >= w) break;
                       if ((j & 0x7) == 0x0) *pix = pal[*p >> 7];
                       else if ((j & 0x7) == 0x1) *pix = pal[(*p >> 6) & 0x1];
                       else if ((j & 0x7) == 0x2) *pix = pal[(*p >> 5) & 0x1];
                       else if ((j & 0x7) == 0x3) *pix = pal[(*p >> 4) & 0x1];
                       else if ((j & 0x7) == 0x4) *pix = pal[(*p >> 3) & 0x1];
                       else if ((j & 0x7) == 0x5) *pix = pal[(*p >> 2) & 0x1];
                       else if ((j & 0x7) == 0x6) *pix = pal[(*p >> 1) & 0x1];
                       else
                         {
                            *pix = pal[*p & 0x1];
                            p++;
                         }
                       pix++;
                    }
               }
          }
        else if (bitcount == 4)
          {
             pstride = ((w + 7) / 8) * 4;
             for (i = 0; i < h; i++)
               {
                  pix = surface + (i * w);
                  if (!right_way_up) pix = surface + ((h - 1 - i) * w);
                  if (!read_mem(map, fsize, &position, pixbuf, pstride)) goto close_file;
                  p = pixbuf;
                  if (i >= h) continue;
                  for (j = 0; j < w; j++)
                    {
                       if (j >= w) break;
                       if ((j & 0x1) == 0x1)
                         {
                            *pix = pal[*p & 0x0f];
                            p++;
                         }
                       else
                         {
                            *pix = pal[*p >> 4];
                         }
                       pix++;
                    }
               }
          }
        else if (bitcount == 8)
          {
             pstride = ((w + 3) / 4) * 4;
             for (i = 0; i < h; i++)
               {
                  pix = surface + (i * w);
                  if (!right_way_up) pix = surface + ((h - 1 - i) * w);
                  if (!read_mem(map, fsize, &position, pixbuf, pstride)) goto close_file;
                  p = pixbuf;
                  if (i >= h) continue;
                  for (j = 0; j < w; j++)
                    {
                       if (j >= w) break;
                       *pix = pal[*p];
                       p++;
                       pix++;
                    }
               }
          }
        else if (bitcount == 24)
          {
             pstride = w * 3;
             for (i = 0; i < h; i++)
               {
                  pix = surface + (i * w);
                  if (!right_way_up) pix = surface + ((h - 1 - i) * w);
                  if (!read_mem(map, fsize, &position, pixbuf, pstride)) goto close_file;
                  p = pixbuf;
                  if (i >= h) continue;
                  for (j = 0; j < w; j++)
                    {
                       unsigned char a, r, g, b;

                       if (j >= w) break;
                       b = p[0]; g = p[1]; r = p[2];
                       p += 3;
                       a = 0xff;
                       *pix = ARGB_JOIN(a, r, g, b);
                       pix++;
                    }
               }
          }
        else if (bitcount == 32)
          {
             pstride = w * 4;
             for (i = 0; i < h; i++)
               {
                  pix = surface + (i * w);
                  if (!right_way_up) pix = surface + ((h - 1 - i) * w);
                  if (!read_mem(map, fsize, &position, pixbuf, pstride)) goto close_file;
                  p = pixbuf;
                  if (i >= h) continue;
                  for (j = 0; j < w; j++)
                    {
                       unsigned char a, r, g, b;

                       if (j >= w) break;
                       b = p[0]; g = p[1]; r = p[2]; a = p[3];
                       p += 4;
                       if (a) none_zero_alpha = 1;
                       *pix = ARGB_JOIN(a, r, g, b);
                       pix++;
                    }
               }
          }
        if (!none_zero_alpha)
          {
             if (!read_mem(map, fsize, &position, maskbuf, stride * 4 * h)) goto close_file;
             // apply mask
             pix = surface;
             for (i = 0; i < h; i++)
               {
                  unsigned char *m;

                  pix = surface + (i * w);
                  if (!right_way_up) pix = surface + ((h - 1 - i) * w);
                  m = maskbuf + (stride * i * 4);
                  if (i >= h) continue;
                  for (j = 0; j < w; j++)
                    {
                       if (j >= w) break;
                       if (*m & (1 << (7 - (j & 0x7)))) *pix = 0;
                       else A_VAL(pix) = 0xff;
                       if ((j & 0x7) == 0x7) m++;
                       pix++;
                    }
               }
          }
     }


   prop->premul = EINA_TRUE;
   *error = EVAS_LOAD_ERROR_NONE;

   res = EINA_TRUE;

 close_file:
   if (map) eina_file_map_free(f, map);

   return res;
}

static Evas_Image_Load_Func evas_image_load_ico_func =
{
  evas_image_load_file_open_ico,
  evas_image_load_file_close_ico,
  evas_image_load_file_head_ico,
  evas_image_load_file_data_ico,
  NULL,
  EINA_TRUE,
  EINA_FALSE
};

static int
module_open(Evas_Module *em)
{
   if (!em) return 0;
   _evas_loader_ico_log_dom = eina_log_domain_register
     ("evas-ico", EVAS_DEFAULT_LOG_COLOR);
   if (_evas_loader_ico_log_dom < 0)
     {
        EINA_LOG_ERR("Can not create a module log domain.");
        return 0;
     }
   em->functions = (void *)(&evas_image_load_ico_func);
   return 1;
}

static void
module_close(Evas_Module *em EINA_UNUSED)
{
   eina_log_domain_unregister(_evas_loader_ico_log_dom);
}

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

EVAS_MODULE_DEFINE(EVAS_MODULE_TYPE_IMAGE_LOADER, image_loader, ico);

#ifndef EVAS_STATIC_BUILD_ICO
EVAS_EINA_MODULE_DEFINE(image_loader, ico);
#endif