1 /*
2 Copyright (c) 2016 Corinna Vinschen <corinna@vinschen.de>
3 Modified (m) 2017 Thomas Wolff: revise Unicode and locale/wchar handling
4  */
5 /* Modified (m) 2017 Thomas Wolff: revise Unicode and locale/wchar handling */
6 #include <_ansi.h>
7 #include <ctype.h>
8 #include <wctype.h>
9 #include "local.h"
10 #include "categories.h"
11 
12 int
iswupper_l(wint_t c,struct __locale_t * locale)13 iswupper_l (wint_t c, struct __locale_t *locale)
14 {
15   (void) locale;
16 #ifdef _MB_CAPABLE
17   c = _jp2uc_l (c, locale);
18   // The wide-character class "upper" contains at least those characters wc
19   // which are equal to towupper(wc) and different from towlower(wc).
20   enum category cat = category (c);
21   return cat == CAT_Lu || (cat == CAT_LC && towupper (c) == c);
22 #else
23   return c < 0x100 ? isupper (c) : 0;
24 #endif /* _MB_CAPABLE */
25 }
26