newlib/libc/ctype/iswupper_l.c

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