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 <ctype.h>
7 #if defined (_MB_EXTENDED_CHARSETS_ISO) \
8 || defined (_MB_EXTENDED_CHARSETS_WINDOWS)
9 #include <limits.h>
10 #include <stdio.h>
11 #include <stdlib.h>
12 #include <wctype.h>
13 #include <wchar.h>
14 #include <../locale/setlocale.h>
15 #endif
16
17 int
toupper_l(int c,struct __locale_t * locale)18 toupper_l (int c, struct __locale_t *locale)
19 {
20 #if defined (_MB_EXTENDED_CHARSETS_ISO) \
21 || defined (_MB_EXTENDED_CHARSETS_WINDOWS)
22 if ((unsigned char) c <= 0x7f)
23 return islower_l (c, locale) ? c - 'a' + 'A' : c;
24 else if (c != EOF && __locale_mb_cur_max_l (locale) == 1
25 && islower_l (c, locale))
26 {
27 char s[MB_LEN_MAX] = { c, '\0' };
28 wchar_t wc;
29 mbstate_t state;
30
31 memset (&state, 0, sizeof state);
32 if (locale->mbtowc (_REENT, &wc, s, 1, &state) >= 0
33 && locale->wctomb (_REENT, s,
34 (wchar_t) towupper_l ((wint_t) wc, locale),
35 &state) == 1)
36 c = (unsigned char) s[0];
37 }
38 return c;
39 #else
40 return islower_l (c, locale) ? c - 'a' + 'A' : c;
41 #endif
42 }
43
