Mercurial > hg > octave-lojdl > gnulib-hg

comparison lib/unictype/joiningtype_name.c @ 14447:935bc8aa5a74

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
New module 'unictype/joiningtype-name'. * modules/unictype/joiningtype-name: New file. * lib/unictype/joiningtype_name.c: New file.
author Bruno Haible <bruno@clisp.org>
date Mon, 21 Mar 2011 22:54:28 +0100
parents
children 8250f2777afc
comparison
equal deleted inserted replaced
14446:44ed78c8bb5b 14447:935bc8aa5a74
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 static const char u_joining_type_name[6][2] =
24 {
25 "U", "T", "C", "L", "R", "D"
26 };
27
28 const char *
29 uc_joining_type_name (int joining_type)
30 {
31 if (joining_type >= 0
32 && joining_type < sizeof (u_joining_type_name) / sizeof (u_joining_type_name[0]))
33 return u_joining_type_name[joining_type];
34 return NULL;
35 }