#include "evas_common.h"
#include "evas_xcb_xdefaults.h"
#include <fnmatch.h>

/* local function prototypes */
static Eina_Bool _evas_xcb_xdefaults_glob_match(const char *str, const char *glob);

/* local variables */
static Eina_File *_evas_xcb_xdefaults_file = NULL;
static char *_evas_xcb_xdefaults_data = NULL;

void 
_evas_xcb_xdefaults_init(void) 
{
   char buff[PATH_MAX];

   snprintf(buff, sizeof(buff), "%s/.Xdefaults", getenv("HOME"));
   if ((_evas_xcb_xdefaults_file = eina_file_open(buff, EINA_FALSE)))
     {
        eina_mmap_safety_enabled_set(EINA_TRUE);

        _evas_xcb_xdefaults_data = 
          eina_file_map_all(_evas_xcb_xdefaults_file, EINA_FILE_SEQUENTIAL);
     }
}

void 
_evas_xcb_xdefaults_shutdown(void) 
{
   if (!_evas_xcb_xdefaults_file) return;
   if (_evas_xcb_xdefaults_data) 
     eina_file_map_free(_evas_xcb_xdefaults_file, _evas_xcb_xdefaults_data);
   if (_evas_xcb_xdefaults_file) eina_file_close(_evas_xcb_xdefaults_file);
}

char *
_evas_xcb_xdefaults_string_get(const char *prog, const char *param) 
{
   char buff[1024], ret[1024];
   char *str = NULL;
   char **ea = NULL;
   unsigned int count = 0, i = 0;

   if ((!_evas_xcb_xdefaults_data) || (!_evas_xcb_xdefaults_file))
     return NULL;

   snprintf(buff, sizeof(buff), "*%s*.*%s*", prog, param);

   str = _evas_xcb_xdefaults_data;
   ea = eina_str_split_full(str, "\n", -1, &count);
   for (i = 0; i < count; i++) 
     {
        if (_evas_xcb_xdefaults_glob_match(ea[i], buff)) 
          sscanf(ea[i], "%*[^:]:%*[ ]%s", ret);
     }
   if ((ea) && (ea[0]))
     {
        free(ea[0]);
        free(ea);
     }

   return strdup(ret);
}

int 
_evas_xcb_xdefaults_int_get(const char *prog, const char *param) 
{
   char buff[1024];
   char *str = NULL;
   char **ea = NULL;
   unsigned int count = 0, i = 0;
   int ret = -1;

   if ((!_evas_xcb_xdefaults_data) || (!_evas_xcb_xdefaults_file))
     return 0;

   snprintf(buff, sizeof(buff), "*%s*.*%s*", prog, param);

   str = _evas_xcb_xdefaults_data;
   ea = eina_str_split_full(str, "\n", -1, &count);
   for (i = 0; i < count; i++) 
     {
        if (_evas_xcb_xdefaults_glob_match(ea[i], buff)) 
          sscanf(ea[i], "%*[^:]:%*[ ]%d", &ret);
     }
   if ((ea) && (ea[0]))
     {
        free(ea[0]);
        free(ea);
     }

   return ret;
}

/* local functions */
static Eina_Bool 
_evas_xcb_xdefaults_glob_match(const char *str, const char *glob) 
{
   if ((!str) || (!glob)) return EINA_FALSE;
   if (glob[0] == 0) 
     {
        if (str[0] == 0) return EINA_TRUE;
        return EINA_FALSE;
     }
   if (!strcmp(glob, "*")) return EINA_TRUE;
   if (!fnmatch(glob, str, 0)) return EINA_TRUE;
   return EINA_FALSE;
}