Mercurial > gnulib
changeset 34140:167bbd87bef8
New module 'unictype/joiningtype-byname'.
* modules/unictype/joiningtype-byname: New file.
* lib/unictype/joiningtype_byname.c: New file.
author | Bruno Haible <bruno@clisp.org> |
---|---|
date | Mon, 21 Mar 2011 22:56:30 +0100 |
parents | 5c72fdaa9193 |
children | 5cacedf92e4f |
files | ChangeLog lib/unictype/joiningtype_byname.c modules/unictype/joiningtype-byname |
diffstat | 3 files changed, 73 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/ChangeLog Mon Mar 21 22:55:30 2011 +0100 +++ b/ChangeLog Mon Mar 21 22:56:30 2011 +0100 @@ -1,5 +1,9 @@ 2011-03-21 Bruno Haible <bruno@clisp.org> + New module 'unictype/joiningtype-byname'. + * modules/unictype/joiningtype-byname: New file. + * lib/unictype/joiningtype_byname.c: New file. + Tests for module 'unictype/joiningtype-name'. * modules/unictype/joiningtype-name-tests: New file. * tests/unictype/test-joiningtype_name.c: New file.
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lib/unictype/joiningtype_byname.c Mon Mar 21 22:56:30 2011 +0100 @@ -0,0 +1,44 @@ +/* Arabic joining type of Unicode characters. + Copyright (C) 2011 Free Software Foundation, Inc. + Written by Bruno Haible <bruno@clisp.org>, 2011. + + This program 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 3 of the License, or + (at your option) any later version. + + This program 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 program. If not, see <http://www.gnu.org/licenses/>. */ + +#include <config.h> + +/* Specification. */ +#include "unictype.h" + +int +uc_joining_type_byname (const char *joining_type_name) +{ + if (joining_type_name[0] != '\0' && joining_type_name[1] == '\0') + switch (joining_type_name[0]) + { + case 'C': + return UC_JOINING_TYPE_C; + case 'D': + return UC_JOINING_TYPE_D; + case 'L': + return UC_JOINING_TYPE_L; + case 'R': + return UC_JOINING_TYPE_R; + case 'T': + return UC_JOINING_TYPE_T; + case 'U': + return UC_JOINING_TYPE_U; + } + /* Invalid joining type name. */ + return -1; +}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/modules/unictype/joiningtype-byname Mon Mar 21 22:56:30 2011 +0100 @@ -0,0 +1,25 @@ +Description: +Find a Unicode character Arabic joining type, given its name. + +Files: +lib/unictype/joiningtype_byname.c + +Depends-on: +unictype/base + +configure.ac: +gl_LIBUNISTRING_MODULE([0.9.4], [unictype/joiningtype-byname]) + +Makefile.am: +if LIBUNISTRING_COMPILE_UNICTYPE_JOININGTYPE_BYNAME +lib_SOURCES += unictype/joiningtype_byname.c +endif + +Include: +"unictype.h" + +License: +LGPL + +Maintainer: +Bruno Haible