Mercurial > hg > octave-kai > gnulib-hg
changeset 14449:af3b80d34f13
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 | bf2cb4c080ec |
children | fdc55132bd6b |
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 +++ b/ChangeLog @@ -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.
new file mode 100644 --- /dev/null +++ b/lib/unictype/joiningtype_byname.c @@ -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; +}
new file mode 100644 --- /dev/null +++ b/modules/unictype/joiningtype-byname @@ -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