1 /*
2 Copyright (c) 2016 Corinna Vinschen <corinna@vinschen.de>
3 Modified (m) 2017 Thomas Wolff: revise Unicode and locale/wchar handling
4  */
5 #define _DEFAULT_SOURCE
6 #include <_ansi.h>
7 #include <ctype.h>
8 
9 #undef isupper_l
10 
11 int
isupper_l(int c,struct __locale_t * locale)12 isupper_l (int c, struct __locale_t *locale)
13 {
14   return (__locale_ctype_ptr_l (locale)[c+1] & (_U|_L)) == _U;
15 }
16 
17