New module 'unictype/joiningtype-byname'.
[gnulib.git] / lib / unictype / joiningtype_byname.c
1 /* Arabic joining type of Unicode characters.
2    Copyright (C) 2011 Free Software Foundation, Inc.
3    Written by Bruno Haible <bruno@clisp.org>, 2011.
4
5    This program is free software: you can redistribute it and/or modify it
6    under the terms of the GNU Lesser General Public License as published
7    by the Free Software Foundation; either version 3 of the License, or
8    (at your option) any later version.
9
10    This program is distributed in the hope that it will be useful,
11    but WITHOUT ANY WARRANTY; without even the implied warranty of
12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13    Lesser General Public License for more details.
14
15    You should have received a copy of the GNU Lesser General Public License
16    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
17
18 #include <config.h>
19
20 /* Specification.  */
21 #include "unictype.h"
22
23 int
24 uc_joining_type_byname (const char *joining_type_name)
25 {
26   if (joining_type_name[0] != '\0' && joining_type_name[1] == '\0')
27     switch (joining_type_name[0])
28       {
29       case 'C':
30         return UC_JOINING_TYPE_C;
31       case 'D':
32         return UC_JOINING_TYPE_D;
33       case 'L':
34         return UC_JOINING_TYPE_L;
35       case 'R':
36         return UC_JOINING_TYPE_R;
37       case 'T':
38         return UC_JOINING_TYPE_T;
39       case 'U':
40         return UC_JOINING_TYPE_U;
41       }
42   /* Invalid joining type name.  */
43   return -1;
44 }