ncurses 6.1 - patch 20180623
[ncurses.git] / ncurses / widechar / widechars.c
1 /****************************************************************************
2  * Copyright (c) 2012-2013,2018 Free Software Foundation, Inc.              *
3  *                                                                          *
4  * Permission is hereby granted, free of charge, to any person obtaining a  *
5  * copy of this software and associated documentation files (the            *
6  * "Software"), to deal in the Software without restriction, including      *
7  * without limitation the rights to use, copy, modify, merge, publish,      *
8  * distribute, distribute with modifications, sublicense, and/or sell       *
9  * copies of the Software, and to permit persons to whom the Software is    *
10  * furnished to do so, subject to the following conditions:                 *
11  *                                                                          *
12  * The above copyright notice and this permission notice shall be included  *
13  * in all copies or substantial portions of the Software.                   *
14  *                                                                          *
15  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS  *
16  * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF               *
17  * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.   *
18  * IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,   *
19  * DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR    *
20  * OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR    *
21  * THE USE OR OTHER DEALINGS IN THE SOFTWARE.                               *
22  *                                                                          *
23  * Except as contained in this notice, the name(s) of the above copyright   *
24  * holders shall not be used in advertising or otherwise to promote the     *
25  * sale, use or other dealings in this Software without prior written       *
26  * authorization.                                                           *
27  ****************************************************************************/
28
29 #include <curses.priv.h>
30
31 #if USE_WIDEC_SUPPORT
32
33 MODULE_ID("$Id: widechars.c,v 1.6 2018/06/24 00:06:37 tom Exp $")
34
35 #if defined(_WIN32)
36 /*
37  * MinGW has wide-character functions, but they do not work correctly.
38  */
39
40 int
41 _nc_mbtowc(wchar_t *pwc, const char *s, size_t n)
42 {
43     int result;
44     int count;
45     int try;
46
47     if (s != 0 && n != 0) {
48         /*
49          * MultiByteToWideChar() can decide to return more than one
50          * wide-character.  We want only one.  Ignore any trailing null, both
51          * in the initial count and in the conversion.
52          */
53         count = 0;
54         for (try = 1; try <= (int) n; ++try) {
55             count = MultiByteToWideChar(CP_UTF8,
56                                         MB_ERR_INVALID_CHARS,
57                                         s,
58                                         try,
59                                         pwc,
60                                         0);
61             TR(TRACE_BITS, ("...try %d:%d", try, count));
62             if (count > 0) {
63                 break;
64             }
65         }
66         if (count < 1 || count > 2) {
67             result = -1;
68         } else {
69             wchar_t actual[2];
70             memset(&actual, 0, sizeof(actual));
71             count = MultiByteToWideChar(CP_UTF8,
72                                         MB_ERR_INVALID_CHARS,
73                                         s,
74                                         try,
75                                         actual,
76                                         2);
77             TR(TRACE_BITS, ("\twin32 ->%#x, %#x", actual[0], actual[1]));
78             *pwc = actual[0];
79             if (actual[1] != 0)
80                 result = -1;
81             else
82                 result = try;
83         }
84     } else {
85         result = 0;
86     }
87
88     return result;
89 }
90
91 int
92 _nc_mblen(const char *s, size_t n)
93 {
94     int result = -1;
95     int count;
96     wchar_t temp;
97
98     if (s != 0 && n != 0) {
99         count = _nc_mbtowc(&temp, s, n);
100         if (count == 1) {
101             int check = WideCharToMultiByte(CP_UTF8,
102                                             0,
103                                             &temp,
104                                             1,
105                                             NULL,
106                                             0,  /* compute length only */
107                                             NULL,
108                                             NULL);
109             TR(TRACE_BITS, ("\tcheck ->%d\n", check));
110             if (check > 0 && (size_t) check <= n) {
111                 result = check;
112             }
113         }
114     } else {
115         result = 0;
116     }
117
118     return result;
119 }
120
121 int __MINGW_NOTHROW
122 _nc_wctomb(char *s, wchar_t wc)
123 {
124     int result;
125     int check;
126
127     check = WideCharToMultiByte(CP_UTF8,
128                                 0,
129                                 &wc,
130                                 1,
131                                 NULL,
132                                 0,      /* compute length only */
133                                 NULL,
134                                 NULL);
135     if (check > 0) {
136         result = WideCharToMultiByte(CP_UTF8,
137                                      0,
138                                      &wc,
139                                      1,
140                                      s,
141                                      check + 1,
142                                      NULL,
143                                      NULL);
144     } else {
145         result = -1;
146     }
147     return result;
148 }
149
150 #endif /* _WIN32 */
151
152 #endif /* USE_WIDEC_SUPPORT */