1 /* Arabic joining type 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/joiningtype_byname.h" 34 35 int 36 uc_joining_type_byname (const char *joining_type_name) /* */ 37 { 38 size_t len; 39 40 len = strlen (joining_type_name); 41 if (len <= MAX_WORD_LENGTH) 42 { 43 char buf[MAX_WORD_LENGTH + 1]; 44 const struct named_joining_type *found; 45 46 /* Copy joining_type_name into buf, converting '_' and '-' to ' '. */ 47 { 48 const char *p = joining_type_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_type_lookup (buf, len); 66 if (found != NULL) 67 return found->joining_type; 68 } 69 /* Invalid joining type name. */ 70 return -1; 71 }