#include "e.h"

/* local subsystem functions */
static int _e_prefix_share_hunt(void);
static int _e_prefix_fallbacks(void);
static int _e_prefix_try_proc(void);
static int _e_prefix_try_argv(char *argv0);

/* local subsystem globals */
static char *_exe_path = NULL;
static char *_prefix_path = NULL;
static char *_prefix_path_locale = NULL;
static char *_prefix_path_bin = NULL;
static char *_prefix_path_data = NULL;
static char *_prefix_path_lib = NULL;

static size_t _prefix_path_data_len = 0;

#define PREFIX_CACHE_FILE 1
#define SHARE_D "share/enlightenment"
#define MAGIC_FILE "AUTHORS"
#define MAGIC_DAT SHARE_D"/"MAGIC_FILE
#define LOCALE_D "share/locale"

/* externally accessible functions */
EAPI int
e_prefix_determine(char *argv0)
{
   char *p, buf[4096];

   e_prefix_shutdown();

   /* if user provides E_PREFIX - then use that or also more specific sub
    * dirs for bin, lib, data and locale */
   if (getenv("E_PREFIX"))
     {
	_prefix_path = strdup(getenv("E_PREFIX"));
	if (getenv("E_BIN_DIR"))
          _prefix_path_bin = strdup(getenv("E_BIN_DIR"));
	else
          {
             snprintf(buf, sizeof(buf), "%s/bin", _prefix_path);
             _prefix_path_bin = strdup(buf);
             e_util_env_set("E_BIN_DIR", _prefix_path_bin);
          }

	if (getenv("E_LIB_DIR"))
          _prefix_path_lib = strdup(getenv("E_LIB_DIR"));
	else
          {
             snprintf(buf, sizeof(buf), "%s/lib", _prefix_path);
             _prefix_path_lib = strdup(buf);
             e_util_env_set("E_LIB_DIR", _prefix_path_lib);
          }
	
	if (getenv("E_DATA_DIR"))
	  {
	     _prefix_path_data = strdup(getenv("E_DATA_DIR"));
	     _prefix_path_data_len = strlen(_prefix_path_data);
	  }
	else
          {
             _prefix_path_data_len = snprintf(buf, sizeof(buf), "%s/"SHARE_D, _prefix_path);
             _prefix_path_data = strdup(buf);
             e_util_env_set("E_DATA_DIR", _prefix_path_data);
          }
	
	if (getenv("E_LOCALE_DIR"))
          _prefix_path_locale = strdup(getenv("E_LOCALE_DIR"));
	else
          {
             snprintf(buf, sizeof(buf), "%s/"LOCALE_D, _prefix_path);
             _prefix_path_locale = strdup(buf);
             e_util_env_set("E_LOCALE_DIR", _prefix_path_locale);
          }
	return 1;
     }
   /* no env var - examine process and possible argv0 */
   if (!_e_prefix_try_proc())
     {
	if (!_e_prefix_try_argv(argv0))
	  {
	     e_prefix_fallback();
             e_util_env_set("E_PREFIX", _prefix_path);
             e_util_env_set("E_BIN_DIR", _prefix_path_bin);
             e_util_env_set("E_LIB_DIR", _prefix_path_lib);
             e_util_env_set("E_DATA_DIR", _prefix_path_data);
	     return 0;
	  }
     }
   /* _exe_path is now a full absolute path TO this exe - figure out rest */
   /*   if
    * exe        = /blah/whatever/bin/exe
    *   then
    * prefix     = /blah/whatever
    * bin_dir    = /blah/whatever/bin
    * data_dir   = /blah/whatever/share/enlightenment
    * locale_dir = /blah/whatever/share/locale
    * lib_dir    = /blah/whatever/lib
    */
   p = strrchr(_exe_path, '/');
   if (p)
     {
	p--;
	while (p >= _exe_path)
	  {
	     if (*p == '/')
	       {
		  _prefix_path = malloc(p - _exe_path + 1);
		  if (_prefix_path)
		    {
		       eina_strlcpy(_prefix_path, _exe_path, p - _exe_path + 1);

		       /* bin and lib always together */
		       snprintf(buf, sizeof(buf), "%s/bin", _prefix_path);
		       _prefix_path_bin = strdup(buf);
		       snprintf(buf, sizeof(buf), "%s/lib", _prefix_path);
		       _prefix_path_lib = strdup(buf);
		       
		       printf("DYNAMIC DETERMINED PREFIX: %s\n", _prefix_path);

		       /* check if AUTHORS file is there - then our guess is right */
		       snprintf(buf, sizeof(buf), "%s/"MAGIC_DAT, _prefix_path);
		       if (ecore_file_exists(buf))
			 {
			    _prefix_path_data_len = snprintf(buf, sizeof(buf), "%s/"SHARE_D, _prefix_path);
			    _prefix_path_data = strdup(buf);
			    snprintf(buf, sizeof(buf), "%s/"LOCALE_D, _prefix_path);
			    _prefix_path_locale = strdup(buf);
			 }
		       /* AUTHORS file not there. time to start hunting! */
		       else
			 {
			    if (_e_prefix_share_hunt())
			      {
				 printf("DIFFERENT DYNAMIC DETERMINED DATA DIR: %s\n", _prefix_path_data);
				 printf("DIFFERENT DYNAMIC DETERMINED LOCALE DIR: %s\n", _prefix_path_locale);
			      }
			    else
			      {
				 e_prefix_fallback();
                                 e_util_env_set("E_PREFIX", _prefix_path);
                                 e_util_env_set("E_BIN_DIR", _prefix_path_bin);
                                 e_util_env_set("E_LIB_DIR", _prefix_path_lib);
                                 e_util_env_set("E_DATA_DIR", _prefix_path_data);
				 return 0;
			      }
			 }
                       e_util_env_set("E_PREFIX", _prefix_path);
                       e_util_env_set("E_BIN_DIR", _prefix_path_bin);
                       e_util_env_set("E_LIB_DIR", _prefix_path_lib);
                       e_util_env_set("E_DATA_DIR", _prefix_path_data);
		       return 1;
		    }
		  else
		    {
		       e_prefix_fallback();
                       e_util_env_set("E_PREFIX", _prefix_path);
                       e_util_env_set("E_BIN_DIR", _prefix_path_bin);
                       e_util_env_set("E_LIB_DIR", _prefix_path_lib);
                       e_util_env_set("E_DATA_DIR", _prefix_path_data);
		       return 0;
		    }
	       }
	     p--;
	  }
     }
   e_prefix_fallback();
   e_util_env_set("E_PREFIX", _prefix_path);
   e_util_env_set("E_BIN_DIR", _prefix_path_bin);
   e_util_env_set("E_LIB_DIR", _prefix_path_lib);
   e_util_env_set("E_DATA_DIR", _prefix_path_data);
   return 0;
}

EAPI void
e_prefix_shutdown(void)
{
   E_FREE(_exe_path);
   E_FREE(_prefix_path);
   E_FREE(_prefix_path_locale);
   E_FREE(_prefix_path_bin);
   E_FREE(_prefix_path_data);
   E_FREE(_prefix_path_lib);
}
   
EAPI void
e_prefix_fallback(void)
{
   e_prefix_shutdown();
   _e_prefix_fallbacks();
}

EAPI const char *
e_prefix_get(void)
{
   return _prefix_path;
}

EAPI const char *
e_prefix_locale_get(void)
{
   return _prefix_path_locale;
}

EAPI const char *
e_prefix_bin_get(void)
{
   return _prefix_path_bin;
}

EAPI const char *
e_prefix_data_get(void)
{
   return _prefix_path_data;
}

EAPI const char *
e_prefix_lib_get(void)
{
   return _prefix_path_lib;
}

/* local subsystem functions */
static int
_e_prefix_share_hunt(void)
{
   char buf[4096], buf2[4096], *p;
   FILE *f;

   /* sometimes this isnt the case - so we need to do a more exhaustive search
    * through more parent and subdirs. hre is an example i have seen:
    * 
    * /blah/whatever/exec/bin/exe
    * ->
    * /blah/whatever/exec/bin
    * /blah/whatever/common/share/enlightenment
    * /blah/whatever/common/share/locale
    * /blah/whatever/exec/lib
    */
   
   /* this is pure black magic to try and find data shares */
#ifdef PREFIX_CACHE_FILE
   /* 1. check cache file - as a first attempt. this will speed up subsequent
    * hunts - if needed */
   e_user_dir_concat_static(buf, "prefix_share_cache.txt");
   f = fopen(buf, "r");
   if (f)
     {
	if (fgets(buf2, sizeof(buf2), f))
	  {
	     int len;
	     
	     len = strlen(buf2);
	     if (len > 1) buf2[len - 1] = 0;
	     snprintf(buf, sizeof(buf), "%s/"MAGIC_FILE, buf2);
	     if (ecore_file_exists(buf))
	       {
		  /* path is ok - magic file found */
		  _prefix_path_data = strdup(buf2);
		  _prefix_path_data_len = eina_strlcpy(buf, buf2, sizeof(buf));
		  p = strrchr(buf, '/');
		  if (p) *p = 0;
		  snprintf(buf2, sizeof(buf2), "%s/locale", buf);
		  _prefix_path_locale = strdup(buf2);
		  fclose(f);
		  return 1;
	       }
	  }
	fclose(f);
     }
#endif   
   /* 2. cache file doesn't exist or is invalid - we need to search - this is
    * where the real black magic begins */
   
   /* BLACK MAGIC 1:
    * /blah/whatever/dir1/bin
    * /blah/whatever/dir2/share/enlightenment
    */
   if (!_prefix_path_data)
     {
	Eina_List *files;
	Eina_List *l;

	eina_strlcpy(buf, _prefix_path, sizeof(buf));
	p = strrchr(buf, '/');
	if (p) *p = 0;
	files = ecore_file_ls(buf);
	if (files)
	  {
	     char *file;
	     
	     EINA_LIST_FOREACH(files, l, file)
	       {
		  snprintf(buf2, sizeof(buf2), "%s/%s/"MAGIC_DAT, buf, file);
		  if (ecore_file_exists(buf2))
		    {
		       _prefix_path_data_len = snprintf(buf2, sizeof(buf2), "%s/%s/"SHARE_D, buf, file);
		       _prefix_path_data = strdup(buf2);
		       snprintf(buf2, sizeof(buf2), "%s/%s/"LOCALE_D, buf, file);
		       _prefix_path_locale = strdup(buf2);
		       break;
		    }
	       }
	     EINA_LIST_FREE(files, p)
	       {
		  free(p);
	       }
	  }
     }
   
   /* BLACK MAGIC 2:
    * /blah/whatever/dir1/bin
    * /blah/whatever/share/enlightenment
    */
   if (!_prefix_path_data)
     {
	eina_strlcpy(buf, _prefix_path, sizeof(buf));
	p = strrchr(buf, '/');
	if (p) *p = 0;
	snprintf(buf2, sizeof(buf2), "%s/"MAGIC_DAT, buf);
	if (ecore_file_exists(buf2))
	  {
	     _prefix_path_data_len = snprintf(buf2, sizeof(buf2), "%s/"SHARE_D, buf);
	     _prefix_path_data = strdup(buf2);
	     snprintf(buf2, sizeof(buf2), "%s/"LOCALE_D, buf);
	     _prefix_path_locale = strdup(buf2);
	  }
     }
   
   /* add more black magic as required as we discover weridnesss - remember
    * this is to save users having to set environment variables to tell
    * e where it lives, so e auto-adapts. so these code snippets are just
    * logic to figure that out for the user
    */
   
   /* done. we found it - write cache file */
   if (_prefix_path_data)
     {
#ifdef PREFIX_CACHE_FILE
	ecore_file_mkpath(e_user_dir_get());
	e_user_dir_concat_static(buf, "prefix_share_cache.txt");
	f = fopen(buf, "w");
	if (f)
	  {
	     fprintf(f, "%s\n", _prefix_path_data);
	     fclose(f);
	  }
#endif	
	return 1;
     }
   /* fail. everything failed */
   return 0;
}

static int
_e_prefix_fallbacks(void)
{
   char *p;

   _prefix_path = strdup(PACKAGE_BIN_DIR);
   p = strrchr(_prefix_path, '/');
   if (p) *p = 0;
   _prefix_path_locale = strdup(LOCALE_DIR);
   _prefix_path_bin    = strdup(PACKAGE_BIN_DIR);
   _prefix_path_data   = strdup(PACKAGE_DATA_DIR);
   _prefix_path_data_len = strlen(_prefix_path_data);
   _prefix_path_lib    = strdup(PACKAGE_LIB_DIR);
   printf("WARNING: Enlightenment could not determine its installed prefix\n"
	  "         and is falling back on the compiled in default:\n"
	  "           %s\n"
	  "         You might like to try setting the following environment variables:\n"
	  "           E_PREFIX     - points to the base prefix of install\n"
	  "           E_BIN_DIR    - optional in addition to E_PREFIX to provide\n"
	  "                          a more specific binary directory\n"
	  "           E_LIB_DIR    - optional in addition to E_PREFIX to provide\n"
	  "                          a more specific library dir\n"
	  "           E_DATA_DIR   - optional in addition to E_PREFIX to provide\n"
	  "                          a more specific location for shared data\n"
	  "           E_LOCALE_DIR - optional in addition to E_PREFIX to provide\n"
	  "                          a more specific location for locale data\n"
	  ,
	  _prefix_path);
   return 1;
}

static int
_e_prefix_try_proc(void)
{
   FILE *f;
   char buf[4096];
   void *func = NULL;

   func = (void *)_e_prefix_try_proc;
   f = fopen("/proc/self/maps", "r");
   if (!f) return 0;
   while (fgets(buf, sizeof(buf), f))
     {
	int len;
	char *p, mode[5] = "";
	unsigned long ptr1 = 0, ptr2 = 0;
	
	len = strlen(buf);
	if (buf[len - 1] == '\n')
	  {
	     buf[len - 1] = 0;
	     len--;
	  }
	if (sscanf(buf, "%lx-%lx %4s", &ptr1, &ptr2, mode) == 3)
	  {
	     if (!strcmp(mode, "r-xp"))
	       {
		  if (((void *)ptr1 <= func) && (func < (void *)ptr2))
		    {
		       p = strchr(buf, '/');
		       if (p)
			 {
			    if (len > 10)
			      {
				 if (!strcmp(buf + len - 10, " (deleted)"))
				   buf[len - 10] = 0;
			      }
			    _exe_path = strdup(p);
			    fclose(f);
			    return 1;
			 }
		       else
			 break;
		    }
	       }
	  }
     }
   fclose(f);
   return 0;
}

static int
_e_prefix_try_argv(char *argv0)
{
   char *path, *p, *cp, *s;
   int len, lenexe;
   char buf[4096], buf2[4096], buf3[4096];
   
   /* 1. is argv0 abs path? */
   if (argv0[0] == '/')
     {
	_exe_path = strdup(argv0);
	if (access(_exe_path, X_OK) == 0) return 1;
	free(_exe_path);
	_exe_path = NULL;
	return 0;
     }
   /* 2. relative path */
   if (strchr(argv0, '/'))
     {
	if (getcwd(buf3, sizeof(buf3)))
	  {
	     snprintf(buf2, sizeof(buf2), "%s/%s", buf3, argv0);
	     if (realpath(buf2, buf))
	       {
		  _exe_path = strdup(buf);
		  if (access(_exe_path, X_OK) == 0) return 1;
		  free(_exe_path);
		  _exe_path = NULL;
	       }
	  }
     }
   /* 3. argv0 no path - look in PATH */
   path = getenv("PATH");
   if (!path) return 0;
   p = path;
   cp = p;
   lenexe = strlen(argv0);
   while ((p = strchr(cp, ':')))
     {
	len = p - cp;
	s = malloc(len + 1 + lenexe + 1);
	if (s)
	  {
	     strncpy(s, cp, len);
	     s[len] = '/';
	     strcpy(s + len + 1, argv0);
	     if (realpath(s, buf))
	       {
		  if (access(buf, X_OK) == 0)
		    {
		       _exe_path = strdup(buf);
		       free(s);
		       return 1;
		    }
	       }
	     free(s);
	  }
        cp = p + 1;
     }
   len = strlen(cp);
   s = malloc(len + 1 + lenexe + 1);
   if (s)
     {
	strncpy(s, cp, len);
	s[len] = '/';
	strcpy(s + len + 1, argv0);
	if (realpath(s, buf))
	  {
	     if (access(buf, X_OK) == 0)
	       {
		  _exe_path = strdup(buf);
		  free(s);
		  return 1;
	       }
	  }
	free(s);
     }
   /* 4. big problems. arg[0] != executable - weird execution */
   return 0;
}

size_t
e_prefix_data_concat_len(char *dst, size_t size, const char *path, size_t path_len)
{
   return eina_str_join_len(dst, size, '/', _prefix_path_data, _prefix_path_data_len, path, path_len);
}

size_t
e_prefix_data_concat(char *dst, size_t size, const char *path)
{
   return e_prefix_data_concat_len(dst, size, path, strlen(path));
}

size_t
e_prefix_data_snprintf(char *dst, size_t size, const char *fmt, ...)
{
   size_t off, ret;
   va_list ap;

   va_start(ap, fmt);

   off = _prefix_path_data_len + 1;
   if (size < _prefix_path_data_len + 2)
     {
	if (size > 1)
	  {
	     memcpy(dst, _prefix_path_data, size - 1);
	     dst[size - 1] = '\0';
	  }
	ret = off + vsnprintf(dst + off, size - off, fmt, ap);
	va_end(ap);
	return ret;
     }

   memcpy(dst, _prefix_path_data, _prefix_path_data_len);
   dst[_prefix_path_data_len] = '/';

   ret = off + vsnprintf(dst + off, size - off, fmt, ap);
   va_end(ap);
   return ret;
}