charset/fribidi-char-sets-cp1256.c

   1 /* FriBidi
   2  * fribidi-char-sets-cp1256.c - CP1256 character set conversion routines
   3  *
   4  * $Id: fribidi-char-sets-cp1256.c,v 1.2 2004-05-03 22:05:19 behdad Exp $
   5  * $Author: behdad $
   6  * $Date: 2004-05-03 22:05:19 $
   7  * $Revision: 1.2 $
   8  * $Source: /home/behdad/src/fdo/fribidi/togit/git/../fribidi/fribidi2/charset/fribidi-char-sets-cp1256.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-cp1256.h>
  39
  40 #define ISO_HAMZA               0xc1
  41 #define CP1256_DAD              0xD6
  42
  43 #define UNI_HAMZA               0x0621
  44 #define UNI_DAD                 0x0636
  45
  46 static FriBidiChar fribidi_cp1256_to_unicode_tab[] = {  /* 0x80-0xFF */
  47   0x20AC, 0x067E, 0x201A, 0x0192, 0x201E, 0x2026, 0x2020, 0x2021,
  48   0x02C6, 0x2030, 0x0679, 0x2039, 0x0152, 0x0686, 0x0698, 0x0688,
  49   0x06AF, 0x2018, 0x2019, 0x201C, 0x201D, 0x2022, 0x2013, 0x2014,
  50   0x06A9, 0x2122, 0x0691, 0x203A, 0x0153, 0x200C, 0x200D, 0x06BA,
  51   0x00A0, 0x060C, 0x00A2, 0x00A3, 0x00A4, 0x00A5, 0x00A6, 0x00A7,
  52   0x00A8, 0x00A9, 0x06BE, 0x00AB, 0x00AC, 0x00AD, 0x00AE, 0x00AF,
  53   0x00B0, 0x00B1, 0x00B2, 0x00B3, 0x00B4, 0x00B5, 0x00B6, 0x00B7,
  54   0x00B8, 0x00B9, 0x061B, 0x00BB, 0x00BC, 0x00BD, 0x00BE, 0x061F,
  55   0x06C1, 0x0621, 0x0622, 0x0623, 0x0624, 0x0625, 0x0626, 0x0627,
  56   0x0628, 0x0629, 0x062A, 0x062B, 0x062C, 0x062D, 0x062E, 0x062F,
  57   0x0630, 0x0631, 0x0632, 0x0633, 0x0634, 0x0635, 0x0636, 0x00D7,
  58   0x0637, 0x0638, 0x0639, 0x063A, 0x0640, 0x0641, 0x0642, 0x0643,
  59   0x00E0, 0x0644, 0x00E2, 0x0645, 0x0646, 0x0647, 0x0648, 0x00E7,
  60   0x00E8, 0x00E9, 0x00EA, 0x00EB, 0x0649, 0x064A, 0x00EE, 0x00EF,
  61   0x064B, 0x064C, 0x064D, 0x064E, 0x00F4, 0x064F, 0x0650, 0x00F7,
  62   0x0651, 0x00F9, 0x0652, 0x00FB, 0x00FC, 0x200E, 0x200F, 0x00ff
  63 };
  64
  65 FriBidiChar
  66 fribidi_cp1256_to_unicode_c (
  67   /* input */
  68   char sch
  69 )
  70 {
  71   register unsigned char ch = (unsigned char) sch;
  72   if (ch >= 0x80)
  73     return fribidi_cp1256_to_unicode_tab[ch - 0x80];
  74   else
  75     return ch;
  76 }
  77
  78 char
  79 fribidi_unicode_to_cp1256_c (
  80   /* input */
  81   FriBidiChar uch
  82 )
  83 {
  84   if (uch < 256)
  85     return (char) uch;
  86   if (uch >= UNI_HAMZA && uch <= UNI_DAD)
  87     return (char) (uch - UNI_HAMZA + ISO_HAMZA);
  88   else
  89     switch (uch)
  90       {
  91       case 0x0152:
  92         return (char) 0x8c;
  93       case 0x0153:
  94         return (char) 0x9c;
  95       case 0x0192:
  96         return (char) 0x83;
  97       case 0x02C6:
  98         return (char) 0x88;
  99       case 0x060C:
 100         return (char) 0xA1;
 101       case 0x061B:
 102         return (char) 0xBA;
 103       case 0x061F:
 104         return (char) 0xBF;
 105       case 0x0637:
 106         return (char) 0xD8;
 107       case 0x0638:
 108         return (char) 0xD9;
 109       case 0x0639:
 110         return (char) 0xDA;
 111       case 0x063A:
 112         return (char) 0xDB;
 113       case 0x0640:
 114         return (char) 0xDC;
 115       case 0x0641:
 116         return (char) 0xDD;
 117       case 0x0642:
 118         return (char) 0xDE;
 119       case 0x0643:
 120         return (char) 0xDF;
 121       case 0x0644:
 122         return (char) 0xE1;
 123       case 0x0645:
 124         return (char) 0xE3;
 125       case 0x0646:
 126         return (char) 0xE4;
 127       case 0x0647:
 128         return (char) 0xE5;
 129       case 0x0648:
 130         return (char) 0xE6;
 131       case 0x0649:
 132         return (char) 0xEC;
 133       case 0x064A:
 134         return (char) 0xED;
 135       case 0x064B:
 136         return (char) 0xF0;
 137       case 0x064C:
 138         return (char) 0xF1;
 139       case 0x064D:
 140         return (char) 0xF2;
 141       case 0x064E:
 142         return (char) 0xF3;
 143       case 0x064F:
 144         return (char) 0xF5;
 145       case 0x0650:
 146         return (char) 0xF6;
 147       case 0x0651:
 148         return (char) 0xF8;
 149       case 0x0652:
 150         return (char) 0xFA;
 151       case 0x0679:
 152         return (char) 0x8A;
 153       case 0x067E:
 154         return (char) 0x81;
 155       case 0x0686:
 156         return (char) 0x8D;
 157       case 0x0688:
 158         return (char) 0x8F;
 159       case 0x0691:
 160         return (char) 0x9A;
 161       case 0x0698:
 162         return (char) 0x8E;
 163       case 0x06A9:
 164         return (char) 0x98;
 165       case 0x06AF:
 166         return (char) 0x90;
 167       case 0x06BA:
 168         return (char) 0x9F;
 169       case 0x06BE:
 170         return (char) 0xAA;
 171       case 0x06C1:
 172         return (char) 0xC0;
 173       case 0x200C:
 174         return (char) 0x9D;
 175       case 0x200D:
 176         return (char) 0x9E;
 177       case 0x200E:
 178         return (char) 0xFD;
 179       case 0x200F:
 180         return (char) 0xFE;
 181       case 0x2013:
 182         return (char) 0x96;
 183       case 0x2014:
 184         return (char) 0x97;
 185       case 0x2018:
 186         return (char) 0x91;
 187       case 0x2019:
 188         return (char) 0x92;
 189       case 0x201A:
 190         return (char) 0x82;
 191       case 0x201C:
 192         return (char) 0x93;
 193       case 0x201D:
 194         return (char) 0x94;
 195       case 0x201E:
 196         return (char) 0x84;
 197       case 0x2020:
 198         return (char) 0x86;
 199       case 0x2021:
 200         return (char) 0x87;
 201       case 0x2022:
 202         return (char) 0x95;
 203       case 0x2026:
 204         return (char) 0x85;
 205       case 0x2030:
 206         return (char) 0x89;
 207       case 0x2039:
 208         return (char) 0x8B;
 209       case 0x203A:
 210         return (char) 0x9B;
 211       case 0x20AC:
 212         return (char) 0x80;
 213       case 0x2122:
 214         return (char) 0x99;
 215
 216       default:
 217         return '?';
 218       }
 219 }
 220
 221 /* Editor directions:
 222  * vim:textwidth=78:tabstop=8:shiftwidth=2:autoindent:cindent
 223  */