/* FriBidi

 * fribidi-char-sets.c - character set conversion routines

 *

 * Authors:

 *   Behdad Esfahbod, 2001, 2002, 2004

 *   Dov Grobgeld, 1999, 2000

 *

 * Copyright (C) 2004 Sharif FarsiWeb, Inc

 * Copyright (C) 2001,2002 Behdad Esfahbod

 * Copyright (C) 1999,2000 Dov Grobgeld

 * 

 * This library is free software; you can redistribute it and/or

 * modify it under the terms of the GNU Lesser General Public

 * License as published by the Free Software Foundation; either

 * version 2.1 of the License, or (at your option) any later version.

 * 

 * This library is distributed in the hope that it will be useful,

 * but WITHOUT ANY WARRANTY; without even the implied warranty of

 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

 * Lesser General Public License for more details.

 * 

 * You should have received a copy of the GNU Lesser General Public License

 * along with this library, in a file named COPYING; if not, write to the

 * Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,

 * Boston, MA 02110-1301, USA

 * 

 * For licensing issues, contact <fribidi.license@gmail.com>.

 */

#include <common.h>

#include <fribidi-char-sets.h>

#include "fribidi-char-sets-cap-rtl.h"

#include "fribidi-char-sets-utf8.h"

#include "fribidi-char-sets-iso8859-6.h"

#include "fribidi-char-sets-cp1256.h"

#include "fribidi-char-sets-iso8859-8.h"

#include "fribidi-char-sets-cp1255.h"

typedef struct

{

  FriBidiChar (

  *charset_to_unicode_c

  ) (

  char ch

  );

  FriBidiStrIndex (

  *charset_to_unicode

  ) (

  const char *s,

  FriBidiStrIndex len,

  FriBidiChar *us

  );

  char (

  *unicode_to_charset_c

  ) (

  FriBidiChar uch

  );

  FriBidiStrIndex (

  *unicode_to_charset

  ) (

  const FriBidiChar *us,

  FriBidiStrIndex len,

  char *s

  );

  const char *name;

  const char *title;

  const char *(

  *desc

  ) (

  void

  );

}

FriBidiCharSetHandler;

static FriBidiCharSetHandler char_sets[FRIBIDI_CHAR_SETS_NUM + 1] = {

  {NULL, NULL, NULL, NULL, "N/A", "Character set not available", NULL},

# define _FRIBIDI_ADD_CHAR_SET_ONE2ONE(CHAR_SET, char_set) \

  { \

    fribidi_##char_set##_to_unicode_c, \

    NULL, \

    fribidi_unicode_to_##char_set##_c, \

    NULL, \

    fribidi_char_set_name_##char_set, \

    fribidi_char_set_title_##char_set, \

    fribidi_char_set_desc_##char_set \

  },

# define _FRIBIDI_ADD_CHAR_SET_OTHERS(CHAR_SET, char_set) \

  { \

    NULL, \

    fribidi_##char_set##_to_unicode, \

    NULL, \

    fribidi_unicode_to_##char_set, \

    fribidi_char_set_name_##char_set, \

    fribidi_char_set_title_##char_set, \

    fribidi_char_set_desc_##char_set \

  },

# include <fribidi-char-sets-list.h>

# undef _FRIBIDI_ADD_CHAR_SET_OTHERS

# undef _FRIBIDI_ADD_CHAR_SET_ONE2ONE

};

static char

fribidi_toupper (

  /* input */

  char c

)

{

  return c < 'a' || c > 'z' ? c : c + 'A' - 'a';

}

static int

fribidi_strcasecmp (

  /* input */

  const char *s1,

  const char *s2

)

{

  while (*s1 && fribidi_toupper (*s1) == fribidi_toupper (*s2))

    {

      s1++;

      s2++;

    }

  return fribidi_toupper (*s1) - fribidi_toupper (*s2);

}

FRIBIDI_ENTRY FriBidiCharSet

fribidi_parse_charset (

  /* input */

  const char *s

)

{

  int i;

  for (i = FRIBIDI_CHAR_SETS_NUM; i; i--)

    if (fribidi_strcasecmp (s, char_sets[i].name) == 0)

      return i;

  return FRIBIDI_CHAR_SET_NOT_FOUND;

}

FRIBIDI_ENTRY FriBidiStrIndex

fribidi_charset_to_unicode (

  /* input */

  FriBidiCharSet char_set,

  const char *s,

  FriBidiStrIndex len,

  /* output */

  FriBidiChar *us

)

{

  if (char_sets[char_set].charset_to_unicode)

    return (*char_sets[char_set].charset_to_unicode) (s, len, us);

  else if (char_sets[char_set].charset_to_unicode_c)

    {

      register FriBidiStrIndex l;

      for (l = len; l; l--)

	*us++ = (*char_sets[char_set].charset_to_unicode_c) (*s++);

      return len;

    }

  else

    return 0;

}

FRIBIDI_ENTRY FriBidiStrIndex

fribidi_unicode_to_charset (

  /* input */

  FriBidiCharSet char_set,

  const FriBidiChar *us,

  FriBidiStrIndex len,

  /* output */

  char *s

)

{

  if (char_sets[char_set].unicode_to_charset)

    return (*char_sets[char_set].unicode_to_charset) (us, len, s);

  else if (char_sets[char_set].unicode_to_charset_c)

    {

      register FriBidiStrIndex l;

      for (l = len; l; l--)

	*s++ = (*char_sets[char_set].unicode_to_charset_c) (*us++);

      *s = '\0';

      return len;

    }

  else

    return 0;

}

FRIBIDI_ENTRY const char *

fribidi_char_set_name (

  /* input */

  FriBidiCharSet char_set

)

{

  return char_sets[char_set].name ? char_sets[char_set].name : "";

}

FRIBIDI_ENTRY const char *

fribidi_char_set_title (

  /* input */

  FriBidiCharSet char_set

)

{

  return char_sets[char_set].title ? char_sets[char_set].

    title : fribidi_char_set_name (char_set);

}

FRIBIDI_ENTRY const char *

fribidi_char_set_desc (

  /* input */

  FriBidiCharSet char_set

)

{

  return char_sets[char_set].desc ? char_sets[char_set].desc () : NULL;

}

/* Editor directions:

 * vim:textwidth=78:tabstop=8:shiftwidth=2:autoindent:cindent

 */