/*
 * Poor man's gettext; handles internationalization of texts.
 *
 * This file is Copyright © Rüdiger Kuhlmann; it may be distributed under
 * version 2 of the GPL licence.
 *
 * $Id$
 */

#include "micq.h"
#include "i18n.h"
#include "util.h"
#include "util_ui.h"
#include "util_io.h"
#include "preferences.h"
#include <string.h>
#include <stdio.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>

/* use numbers 1000 ... 2999 */
#define i18nSLOTS  2000
#define i18nOffset 1000

char *i18nStrings[i18nSLOTS] = { 0 };

static int i18nAdd (FILE *i18nf, int debug, int *res);

/*
 * Opens and reads the localization file defined by parameter or the
 * environment variables LANG, LC_ALL, LC_MESSAGES.
 */
int i18nOpen (const char *loc)
{
    int j = 0, debug = 0, res = 1;
    FILE *i18nf;

    if (*loc == '+')
    {
        res = 0;
        loc++;
    }
    if (!strncmp (loc, "debug", 5))
    {
        debug = 1;
        loc += 5;
    }

    if (!strcmp (loc, "!") || !strcmp (loc, "auto") || !strcmp (loc, "default"))
        loc = NULL;

    if (!loc)   loc = getenv ("LANG");
    if (!loc)   loc = getenv ("LC_ALL");
    if (!loc)   loc = getenv ("LC_MESSAGES");
    if (!loc)   return 0;

    if (!strcmp (loc, "C"))
    {
        i18nClose ();
        return 0;
    }

#define i18nTry(x,y,z,a) do { \
    const char *str = UtilFill (x,y,z,a); \
    if ((i18nf = fopen (str, "r"))) \
        j += i18nAdd (i18nf, debug, &res); \
    free ((char *)str); \
} while (0)

    if (*loc == '/')
    {
        i18nTry (loc, "", "", "");
    }
    else
    {
        if (prG->flags & FLAG_FUNNY)
        {
            i18nTry ("%s/i18n/%s_fun.i18n", PrefUserDir (), loc, "");
            if (strchr (loc, '_'))
                i18nTry ("%s/i18n/%.*s_fun.i18n", PrefUserDir (), strrchr (loc, '_') - loc, loc);
            if (strchr (loc, '_') && strchr (loc, '_') != strrchr (loc, '_'))
                i18nTry ("%s/i18n/%.*s_fun.i18n", PrefUserDir (), strchr (loc, '_') - loc, loc);
            i18nTry (PKGDATADIR "/%s_fun.i18n", loc, "", "");
            if (strchr (loc, '_'))
                i18nTry (PKGDATADIR "/%.*s_fun.i18n", strrchr (loc, '_') - loc, loc, "");
            if (strchr (loc, '_') && strchr (loc, '_') != strrchr (loc, '_'))
                i18nTry (PKGDATADIR "/%.*s_fun.i18n", strchr (loc, '_') - loc, loc, "");
        }

        i18nTry ("%s/i18n/%s.i18n", PrefUserDir (), loc, "");
        if (strchr (loc, '_'))
            i18nTry ("%s/i18n/%.*s.i18n", PrefUserDir (), strrchr (loc, '_') - loc, loc);
        if (strchr (loc, '_') && strchr (loc, '_') != strrchr (loc, '_'))
            i18nTry ("%s/i18n/%.*s.i18n", PrefUserDir (), strchr (loc, '_') - loc, loc);
        i18nTry (PKGDATADIR "/%s.i18n", loc, "", "");
        if (strchr (loc, '_'))
            i18nTry (PKGDATADIR "/%.*s.i18n", strrchr (loc, '_') - loc, loc, "");
        if (strchr (loc, '_') && strchr (loc, '_') != strrchr (loc, '_'))
            i18nTry (PKGDATADIR "/%.*s.i18n", strchr (loc, '_') - loc, loc, "");
    }

    return j ? j : -1;
}

/*
 * Adds i18n strings from given file descriptor.
 */
static int i18nAdd (FILE *i18nf, int debug, int *res)
{
    char buf[2048];
    int j = 0;
    
    if (*res)
    {
        i18nClose ();
        *res = 0;
    }
    while (M_fdnreadln (i18nf, buf, sizeof (buf)) != -1)
    {
        int i;
        char *p;

        i = strtol (buf, &p, 10) - i18nOffset;

        if (p == buf || i < 0 || i >= i18nSLOTS || i18nStrings[i])
            continue;
        
        if (debug)
            i18nStrings[i] = p = strdup (buf);
        else
            i18nStrings[i] = p = strdup (++p);
        j++;
        for (; *p; p++)
            if (*p == '¶')
                *p = '\n';
    }
    fclose (i18nf);
    return j;
}

/*
 * Frees all internationalization strings.
 */
void i18nClose (void)
{
    char **p, **q;
    
    q = i18nStrings + i18nSLOTS;
    for (p = i18nStrings; p < q; p++)
    {
        if (*p)
            free (*p);
        *p = NULL;
    }
}

/*
 * Looks up the localized text by number, using the given text as default if
 * it is not found. If the text number is -1, the number is in the string as
 * constructed by the _i18n macro for static localized data.
 */
const char *i18n (int i, const char *txt)
{
    const char *p;

    if (i == -1)
    {
        char *q;
        i = strtol (txt, &q, 10);
        txt = ++q;
    }

    if (i >= i18nOffset && i < i18nSLOTS + i18nOffset)
        if ((p = i18nStrings[i - i18nOffset]))
            return p;

    return txt;
}