1 /* Test whether a Unicode character is cased.
2 Copyright (C) 2002, 2006-2007, 2009-2021 Free Software Foundation, Inc.
3 Written by Bruno Haible <bruno@clisp.org>, 2009.
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 "caseprop.h"
30
31 /* Quoting the Unicode standard:
32 Definition: A character is defined to be "cased" if it has the Lowercase
33 or Uppercase property or has a General_Category value of
34 Titlecase_Letter. */
35
36 #if 0
37
38 #include "unictype.h"
39
40 bool
41 uc_is_cased (ucs4_t uc)
/* ![[previous]](../icons/n_left.png)
![[next]](../icons/right.png)
![[first]](../icons/n_first.png)
![[last]](../icons/last.png)
![[top]](../icons/top.png)
![[bottom]](../icons/bottom.png)
![[index]](../icons/index.png)
*/
42 {
43 return (uc_is_property_lowercase (uc)
44 || uc_is_property_uppercase (uc)
45 || uc_is_general_category (uc, UC_TITLECASE_LETTER));
46 }
47
48 #else
49
50 #include "unictype/bitmap.h"
51
52 /* Define u_casing_property_cased table. */
53 #include "cased.h"
54
55 bool
56 uc_is_cased (ucs4_t uc)
/* ![[previous]](../icons/left.png)
![[next]](../icons/n_right.png)
![[first]](../icons/first.png)
![[last]](../icons/n_last.png)
![[top]](../icons/top.png)
![[bottom]](../icons/bottom.png)
![[index]](../icons/index.png)
*/
57 {
58 return bitmap_lookup (&u_casing_property_cased, uc);
59 }
60
61 #endif