#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <string.h>
#include <ctype.h>

#include "utils.h"

char Lang[100];

void lng_InitLanguage(void)
{
  FILE *fp;
  memset(Lang, 0, 100);
  sprintf(Lang, "./lang/%s.txt", getenv("LANG"));
/*    strcpy(Lang, "./lang/");
    strcat(Lang, getenv("LANG"));
    strcat(Lang, ".txt");
*/
  if ((fp = fopen(Lang, "r")) == NULL) {
    /* reverting to default */
    ut_WriteLog("Reverting language to default: POSIX\n");
    strcpy(Lang, "./lang/POSIX.txt");
  } else {
    fclose(fp);
    ut_WriteLog("Setting language to %s\n", getenv("LANG"));
  }
}

char *i18n(char *text)
{
  /* hack */
  char *buf = (char *) malloc(1024);
  static char result[1024];
  FILE *fp;
  char *line;
  char *value;
  int found = 0;

  memset(result, 0, 1024);

  if ((fp = fopen(Lang, "r")) != NULL) {
    while ((fgets(buf, 1024, fp) != NULL) && (!found)) {
      line = buf;

      while (isspace((int) *line))
	line++;

      while ((strlen(line) > 0)
	     && isspace((int) line[strlen(line) - 1]))
	line[strlen(line) - 1] = '\0';

      if ((*line == '\n') || (*line == '\0') || (*line == '#'))
	continue;

      if ((strchr(line, '=') != NULL)) {
	value = strchr(line, '=');
	*value = '\0';
	value++;

	while (isspace((int) *value))
	  value++;

	while ((strlen(line) > 0)
	       && isspace((int) line[strlen(line) - 1]))
	  line[strlen(line) - 1] = '\0';

	if (!strcasecmp(line, text)) {
	  strcpy(result, value);
	  found = 1;
	}
	continue;
      }
      /* fprintf(stderr, "CFG: orphaned line \"%s\"\n", line); */
    }
    fclose(fp);
  }

  if (!found) {
    strcpy(result, text);
  }

  free(buf);
  return result;
}