1 /*-
2 * SPDX-License-Identifier: BSD-3-Clause
3 *
4 * Copyright 2013 Garrett D'Amore <garrett@damore.org>
5 * Copyright 2010 Nexenta Systems, Inc. All rights reserved.
6 * Copyright (c) 2002-2004 Tim J. Robbins. All rights reserved.
7 * Copyright (c) 1993
8 * The Regents of the University of California. All rights reserved.
9 *
10 * This code is derived from software contributed to Berkeley by
11 * Paul Borman at Krystal Technologies.
12 *
13 * Copyright (c) 2011 The FreeBSD Foundation
14 *
15 * Portions of this software were developed by David Chisnall
16 * under sponsorship from the FreeBSD Foundation.
17 *
18 * Redistribution and use in source and binary forms, with or without
19 * modification, are permitted provided that the following conditions
20 * are met:
21 * 1. Redistributions of source code must retain the above copyright
22 * notice, this list of conditions and the following disclaimer.
23 * 2. Redistributions in binary form must reproduce the above copyright
24 * notice, this list of conditions and the following disclaimer in the
25 * documentation and/or other materials provided with the distribution.
26 * 3. Neither the name of the University nor the names of its contributors
27 * may be used to endorse or promote products derived from this software
28 * without specific prior written permission.
29 *
30 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
31 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
32 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
33 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
34 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
35 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
36 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
37 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
38 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
39 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
40 * SUCH DAMAGE.
41 */
42
43 #include <errno.h>
44 #include <limits.h>
45 #include <runetype.h>
46 #include <stddef.h>
47 #include <stdio.h>
48 #include <stdlib.h>
49 #include <string.h>
50 #include <wchar.h>
51 #include "mblocal.h"
52
53 static size_t _none_mbrtowc(wchar_t * __restrict, const char * __restrict,
54 size_t, mbstate_t * __restrict);
55 static int _none_mbsinit(const mbstate_t *);
56 static size_t _none_mbsnrtowcs(wchar_t * __restrict dst,
57 const char ** __restrict src, size_t nms, size_t len,
58 mbstate_t * __restrict ps __unused);
59 static size_t _none_wcrtomb(char * __restrict, wchar_t,
60 mbstate_t * __restrict);
61 static size_t _none_wcsnrtombs(char * __restrict, const wchar_t ** __restrict,
62 size_t, size_t, mbstate_t * __restrict);
63
64 /* setup defaults */
65
66 int __mb_cur_max = 1;
67 int __mb_sb_limit = 256; /* Expected to be <= _CACHED_RUNES */
68
69 int
_none_init(struct xlocale_ctype * l,_RuneLocale * rl)70 _none_init(struct xlocale_ctype *l, _RuneLocale *rl)
71 {
72
73 l->__mbrtowc = _none_mbrtowc;
74 l->__mbsinit = _none_mbsinit;
75 l->__mbsnrtowcs = _none_mbsnrtowcs;
76 l->__wcrtomb = _none_wcrtomb;
77 l->__wcsnrtombs = _none_wcsnrtombs;
78 l->runes = rl;
79 l->__mb_cur_max = 1;
80 l->__mb_sb_limit = 256;
81 return(0);
82 }
83
84 static int
_none_mbsinit(const mbstate_t * ps __unused)85 _none_mbsinit(const mbstate_t *ps __unused)
86 {
87
88 /*
89 * Encoding is not state dependent - we are always in the
90 * initial state.
91 */
92 return (1);
93 }
94
95 static size_t
_none_mbrtowc(wchar_t * __restrict pwc,const char * __restrict s,size_t n,mbstate_t * __restrict ps __unused)96 _none_mbrtowc(wchar_t * __restrict pwc, const char * __restrict s, size_t n,
97 mbstate_t * __restrict ps __unused)
98 {
99
100 if (s == NULL)
101 /* Reset to initial shift state (no-op) */
102 return (0);
103 if (n == 0)
104 /* Incomplete multibyte sequence */
105 return ((size_t)-2);
106 if (pwc != NULL)
107 *pwc = (unsigned char)*s;
108 return (*s == '\0' ? 0 : 1);
109 }
110
111 static size_t
_none_wcrtomb(char * __restrict s,wchar_t wc,mbstate_t * __restrict ps __unused)112 _none_wcrtomb(char * __restrict s, wchar_t wc,
113 mbstate_t * __restrict ps __unused)
114 {
115
116 if (s == NULL)
117 /* Reset to initial shift state (no-op) */
118 return (1);
119 if (wc < 0 || wc > UCHAR_MAX) {
120 errno = EILSEQ;
121 return ((size_t)-1);
122 }
123 *s = (unsigned char)wc;
124 return (1);
125 }
126
127 static size_t
_none_mbsnrtowcs(wchar_t * __restrict dst,const char ** __restrict src,size_t nms,size_t len,mbstate_t * __restrict ps __unused)128 _none_mbsnrtowcs(wchar_t * __restrict dst, const char ** __restrict src,
129 size_t nms, size_t len, mbstate_t * __restrict ps __unused)
130 {
131 const char *s;
132 size_t nchr;
133
134 if (dst == NULL) {
135 s = memchr(*src, '\0', nms);
136 return (s != NULL ? s - *src : nms);
137 }
138
139 s = *src;
140 nchr = 0;
141 while (len-- > 0 && nms-- > 0) {
142 if ((*dst++ = (unsigned char)*s++) == L'\0') {
143 *src = NULL;
144 return (nchr);
145 }
146 nchr++;
147 }
148 *src = s;
149 return (nchr);
150 }
151
152 static size_t
_none_wcsnrtombs(char * __restrict dst,const wchar_t ** __restrict src,size_t nwc,size_t len,mbstate_t * __restrict ps __unused)153 _none_wcsnrtombs(char * __restrict dst, const wchar_t ** __restrict src,
154 size_t nwc, size_t len, mbstate_t * __restrict ps __unused)
155 {
156 const wchar_t *s;
157 size_t nchr;
158
159 if (dst == NULL) {
160 for (s = *src; nwc > 0 && *s != L'\0'; s++, nwc--) {
161 if (*s < 0 || *s > UCHAR_MAX) {
162 errno = EILSEQ;
163 return ((size_t)-1);
164 }
165 }
166 return (s - *src);
167 }
168
169 s = *src;
170 nchr = 0;
171 while (len-- > 0 && nwc-- > 0) {
172 if (*s < 0 || *s > UCHAR_MAX) {
173 *src = s;
174 errno = EILSEQ;
175 return ((size_t)-1);
176 }
177 if ((*dst++ = *s++) == '\0') {
178 *src = NULL;
179 return (nchr);
180 }
181 nchr++;
182 }
183 *src = s;
184 return (nchr);
185 }
186
187 /* setup defaults */
188
189 struct xlocale_ctype __xlocale_global_ctype = {
190 {{0}, "C"},
191 (_RuneLocale*)&_DefaultRuneLocale,
192 _none_mbrtowc,
193 _none_mbsinit,
194 _none_mbsnrtowcs,
195 _none_wcrtomb,
196 _none_wcsnrtombs,
197 1, /* __mb_cur_max, */
198 256 /* __mb_sb_limit */
199 };
200
201 struct xlocale_ctype __xlocale_C_ctype = {
202 {{0}, "C"},
203 (_RuneLocale*)&_DefaultRuneLocale,
204 _none_mbrtowc,
205 _none_mbsinit,
206 _none_mbsnrtowcs,
207 _none_wcrtomb,
208 _none_wcsnrtombs,
209 1, /* __mb_cur_max, */
210 256 /* __mb_sb_limit */
211 };
212