/**
 * @internal
 * @addtogroup Evas_Utils
 *
 * @{
 */
/**
 * @internal
 * @defgroup Evas_Script Evas Script (language) utility functions
 *
 * This set of functions and types helps evas handle scripts correctly.
 * @todo Document types, structures and macros.
 *
 * @{
 */
#include <Eina.h>

#include "evas_language_utils.h"
#include "evas_bidi_utils.h" /* Used for fallback. */
#include "../evas_font_ot.h" /* Used for harfbuzz info */

#ifdef USE_HARFBUZZ
# include <hb.h>
# ifdef HAVE_HARFBUZZ_GLIB
#  include <hb-glib.h>
# endif
#endif

/* FIXME: rename and move */
void *
evas_common_language_unicode_funcs_get(void)
{
#if defined(USE_HARFBUZZ) && defined(HAVE_HARFBUZZ_GLIB)
   return hb_glib_get_unicode_funcs();
#endif
   return NULL;
}

static Evas_Script_Type
_get_script(Eina_Unicode unicode)
{
#ifdef USE_HARFBUZZ
   static hb_unicode_funcs_t *funcs;
   if (!funcs)
        funcs = evas_common_language_unicode_funcs_get();
   return hb_unicode_get_script(funcs, unicode);
#else
   (void) unicode;
#endif
   return EVAS_SCRIPT_COMMON;
}

int
evas_common_language_script_end_of_run_get(const Eina_Unicode *str,
      const Evas_BiDi_Paragraph_Props *bidi_props, size_t start, int len)
{
   /* FIXME: Use the standard segmentation instead */
   if (evas_common_font_ot_is_enabled())
     {
        Evas_Script_Type first = EVAS_SCRIPT_UNKNOWN;
        int i;
        for (i = 0 ; i < len ; i++, str++)
          {
            Evas_Script_Type tmp;
            tmp = _get_script(*str);
            /* Arabic is the first script in the array that's not
             * common/inherited. */
            if ((first == EVAS_SCRIPT_UNKNOWN) && (tmp >= EVAS_SCRIPT_COMMON))
              {
                 first = tmp;
                 continue;
              }
            if ((first != tmp) && (tmp >= EVAS_SCRIPT_COMMON))
              {
                 break;
              }
          }
#ifdef BIDI_SUPPORT
          {
             int bidi_end;
             bidi_end = evas_bidi_end_of_run_get(bidi_props, start,
                   start + len);
             if (bidi_end > 0)
               {
                  i = (i < bidi_end) ? i : bidi_end;
               }
          }
#else
        (void) bidi_props;
        (void) start;
#endif
        return (i < len) ? i : 0;
     }
   else
     {
#ifdef BIDI_SUPPORT
        return evas_bidi_end_of_run_get(bidi_props, start, start + len);
#endif
     }
   return 0;
}

Evas_Script_Type
evas_common_language_script_type_get(const Eina_Unicode *str)
{
   Evas_Script_Type script = EVAS_SCRIPT_UNKNOWN;
   /* Arabic is the first script in the array that's not a common/inherited */
   for ( ; *str && ((script = _get_script(*str)) < EVAS_SCRIPT_COMMON) ; str++)
     ;
   return script;
}

const char *
evas_common_language_from_locale_get(void)
{
   static char lang[6]; /* FIXME: Maximum length I know about */
   if (*lang) return lang;

   const char *locale;
   locale = getenv("LANG");
   if (locale && *locale)
     {
        char *itr;
        strncpy(lang, locale, 5);
        lang[5] = '\0';
        itr = lang;
        while (*itr)
          {
             if (*itr == '_')
               {
                  *itr = '\0';
               }
             itr++;
          }
        return lang;
     }

   return "";
}

/*
 * @}
 */
/*
 * @}
 */