charset/fribidi-char-sets.c

   1 /* FriBidi
   2  * fribidi-char-sets.c - character set conversion routines
   3  *
   4  * $Id: fribidi-char-sets.c,v 1.7 2006-01-31 03:23:12 behdad Exp $
   5  * $Author: behdad $
   6  * $Date: 2006-01-31 03:23:12 $
   7  * $Revision: 1.7 $
   8  * $Source: /home/behdad/src/fdo/fribidi/togit/git/../fribidi/fribidi2/charset/fribidi-char-sets.c,v $
   9  *
  10  * Authors:
  11  *   Behdad Esfahbod, 2001, 2002, 2004
  12  *   Dov Grobgeld, 1999, 2000
  13  *
  14  * Copyright (C) 2004 Sharif FarsiWeb, Inc
  15  * Copyright (C) 2001,2002 Behdad Esfahbod
  16  * Copyright (C) 1999,2000 Dov Grobgeld
  17  *
  18  * This library is free software; you can redistribute it and/or
  19  * modify it under the terms of the GNU Lesser General Public
  20  * License as published by the Free Software Foundation; either
  21  * version 2.1 of the License, or (at your option) any later version.
  22  *
  23  * This library is distributed in the hope that it will be useful,
  24  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  25  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  26  * Lesser General Public License for more details.
  27  *
  28  * You should have received a copy of the GNU Lesser General Public License
  29  * along with this library, in a file named COPYING; if not, write to the
  30  * Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
  31  * Boston, MA 02110-1301, USA
  32  *
  33  * For licensing issues, contact <license@farsiweb.info>.
  34  */
  35
  36 #include <common.h>
  37
  38 #include <fribidi-char-sets.h>
  39
  40 #include "fribidi-char-sets-cap-rtl.h"
  41 #include "fribidi-char-sets-utf8.h"
  42 #include "fribidi-char-sets-iso8859-6.h"
  43 #include "fribidi-char-sets-cp1256.h"
  44 #include "fribidi-char-sets-iso8859-8.h"
  45 #include "fribidi-char-sets-cp1255.h"
  46
  47 typedef struct
  48 {
  49   FriBidiChar (
  50   *charset_to_unicode_c
  51   ) (
  52   char ch
  53   );
  54
  55   FriBidiStrIndex (
  56   *charset_to_unicode
  57   ) (
  58   const char *s,
  59   FriBidiStrIndex len,
  60   FriBidiChar *us
  61   );
  62
  63   char (
  64   *unicode_to_charset_c
  65   ) (
  66   FriBidiChar uch
  67   );
  68
  69   FriBidiStrIndex (
  70   *unicode_to_charset
  71   ) (
  72   const FriBidiChar *us,
  73   FriBidiStrIndex len,
  74   char *s
  75   );
  76
  77   const char *name;
  78
  79   const char *title;
  80
  81   const char *(
  82   *desc
  83   ) (
  84   void
  85   );
  86 }
  87 FriBidiCharSetHandler;
  88
  89 static FriBidiCharSetHandler char_sets[FRIBIDI_CHAR_SETS_NUM + 1] = {
  90   {NULL, NULL, NULL, NULL, "N/A", "Character set not available", NULL},
  91 # define _FRIBIDI_ADD_CHAR_SET_ONE2ONE(CHAR_SET, char_set) \
  92   { \
  93     fribidi_##char_set##_to_unicode_c, \
  94     NULL, \
  95     fribidi_unicode_to_##char_set##_c, \
  96     NULL, \
  97     fribidi_char_set_name_##char_set, \
  98     fribidi_char_set_title_##char_set, \
  99     fribidi_char_set_desc_##char_set \
 100   },
 101 # define _FRIBIDI_ADD_CHAR_SET_OTHERS(CHAR_SET, char_set) \
 102   { \
 103     NULL, \
 104     fribidi_##char_set##_to_unicode, \
 105     NULL, \
 106     fribidi_unicode_to_##char_set, \
 107     fribidi_char_set_name_##char_set, \
 108     fribidi_char_set_title_##char_set, \
 109     fribidi_char_set_desc_##char_set \
 110   },
 111 # include <fribidi-char-sets-list.h>
 112 # undef _FRIBIDI_ADD_CHAR_SET_OTHERS
 113 # undef _FRIBIDI_ADD_CHAR_SET_ONE2ONE
 114 };
 115
 116 #if FRIBIDI_USE_GLIB+0
 117 # include <glib.h>
 118 # define fribidi_strcasecmp g_ascii_strcasecmp
 119 #else /* !FRIBIDI_USE_GLIB */
 120 static char
 121 toupper (
 122   /* input */
 123   char c
 124 )
 125 {
 126   return c < 'a' || c > 'z' ? c : c + 'A' - 'a';
 127 }
 128
 129 static int
 130 fribidi_strcasecmp (
 131   /* input */
 132   const char *s1,
 133   const char *s2
 134 )
 135 {
 136   while (*s1 && toupper (*s1) == toupper (*s2))
 137     {
 138       s1++;
 139       s2++;
 140     }
 141   return toupper (*s1) - toupper (*s2);
 142 }
 143 #endif /* !FRIBIDI_USE_GLIB */
 144
 145 FRIBIDI_ENTRY FriBidiCharSet
 146 fribidi_parse_charset (
 147   /* input */
 148   const char *s
 149 )
 150 {
 151   int i;
 152
 153   for (i = FRIBIDI_CHAR_SETS_NUM; i; i--)
 154     if (fribidi_strcasecmp (s, char_sets[i].name) == 0)
 155       return i;
 156
 157   return FRIBIDI_CHAR_SET_NOT_FOUND;
 158 }
 159
 160 FRIBIDI_ENTRY FriBidiStrIndex
 161 fribidi_charset_to_unicode (
 162   /* input */
 163   FriBidiCharSet char_set,
 164   const char *s,
 165   FriBidiStrIndex len,
 166   /* output */
 167   FriBidiChar *us
 168 )
 169 {
 170   if (char_sets[char_set].charset_to_unicode)
 171     return (*char_sets[char_set].charset_to_unicode) (s, len, us);
 172   else if (char_sets[char_set].charset_to_unicode_c)
 173     {
 174       register FriBidiStrIndex l;
 175       for (l = len; l; l--)
 176         *us++ = (*char_sets[char_set].charset_to_unicode_c) (*s++);
 177       return len;
 178     }
 179   else
 180     return 0;
 181 }
 182
 183 FRIBIDI_ENTRY FriBidiStrIndex
 184 fribidi_unicode_to_charset (
 185   /* input */
 186   FriBidiCharSet char_set,
 187   const FriBidiChar *us,
 188   FriBidiStrIndex len,
 189   /* output */
 190   char *s
 191 )
 192 {
 193   if (char_sets[char_set].unicode_to_charset)
 194     return (*char_sets[char_set].unicode_to_charset) (us, len, s);
 195   else if (char_sets[char_set].unicode_to_charset_c)
 196     {
 197       register FriBidiStrIndex l;
 198       for (l = len; l; l--)
 199         *s++ = (*char_sets[char_set].unicode_to_charset_c) (*us++);
 200       *s = '\0';
 201       return len;
 202     }
 203   else
 204     return 0;
 205 }
 206
 207 FRIBIDI_ENTRY const char *
 208 fribidi_char_set_name (
 209   /* input */
 210   FriBidiCharSet char_set
 211 )
 212 {
 213   return char_sets[char_set].name ? char_sets[char_set].name : "";
 214 }
 215
 216 FRIBIDI_ENTRY const char *
 217 fribidi_char_set_title (
 218   /* input */
 219   FriBidiCharSet char_set
 220 )
 221 {
 222   return char_sets[char_set].title ? char_sets[char_set].
 223     title : fribidi_char_set_name (char_set);
 224 }
 225
 226 FRIBIDI_ENTRY const char *
 227 fribidi_char_set_desc (
 228   /* input */
 229   FriBidiCharSet char_set
 230 )
 231 {
 232   return char_sets[char_set].desc ? char_sets[char_set].desc () : NULL;
 233 }
 234
 235 /* Editor directions:
 236  * vim:textwidth=78:tabstop=8:shiftwidth=2:autoindent:cindent
 237  */