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