1 /* Arabic joining group of Unicode characters.
2 Copyright (C) 2011-2021 Free Software Foundation, Inc.
3 Written by Bruno Haible <bruno@clisp.org>, 2011.
4
5 This file is free software.
6 It is dual-licensed under "the GNU LGPLv3+ or the GNU GPLv2+".
7 You can redistribute it and/or modify it under either
8 - the terms of the GNU Lesser General Public License as published
9 by the Free Software Foundation; either version 3, or (at your
10 option) any later version, or
11 - the terms of the GNU General Public License as published by the
12 Free Software Foundation; either version 2, or (at your option)
13 any later version, or
14 - the same dual license "the GNU LGPLv3+ or the GNU GPLv2+".
15
16 This file is distributed in the hope that it will be useful,
17 but WITHOUT ANY WARRANTY; without even the implied warranty of
18 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
19 Lesser General Public License and the GNU General Public License
20 for more details.
21
22 You should have received a copy of the GNU Lesser General Public
23 License and of the GNU General Public License along with this
24 program. If not, see <https://www.gnu.org/licenses/>. */
25
26 #include <config.h>
27
28 /* Specification. */
29 #include "unictype.h"
30
31 #include <string.h>
32
33 #include "unictype/joininggroup_byname.h"
34
35 int
uc_joining_group_byname(const char * joining_group_name)36 uc_joining_group_byname (const char *joining_group_name)
37 {
38 size_t len;
39
40 len = strlen (joining_group_name);
41 if (len <= MAX_WORD_LENGTH)
42 {
43 char buf[MAX_WORD_LENGTH + 1];
44 const struct named_joining_group *found;
45
46 /* Copy joining_group_name into buf, converting '_' and '-' to ' '. */
47 {
48 const char *p = joining_group_name;
49 char *q = buf;
50
51 for (;; p++, q++)
52 {
53 char c = *p;
54
55 if (c == '_' || c == '-')
56 c = ' ';
57 *q = c;
58 if (c == '\0')
59 break;
60 }
61 }
62 /* Here q == buf + len. */
63
64 /* Do a hash table lookup, with case-insensitive comparison. */
65 found = uc_joining_group_lookup (buf, len);
66 if (found != NULL)
67 return found->joining_group;
68 }
69 /* Invalid joining group name. */
70 return -1;
71 }
72