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: src/lib/libc/locale/none.c,v 1.15 2007/10/13 16:28:22 ache Exp $");
39
40#include "xlocale_private.h"
41
42#include <errno.h>
43#include <limits.h>
44#include <runetype.h>
45#include <stddef.h>
46#include <stdio.h>
47#include <stdlib.h>
48#include <string.h>
49#include <wchar.h>
50#include "mblocal.h"
51
52/* setup defaults */
53
54int __mb_cur_max = 1;
55int __mb_sb_limit = 256; /* Expected to be <= _CACHED_RUNES */
56
57int
58_none_init(struct __xlocale_st_runelocale *xrl)
59{
60
61	xrl->__mbrtowc = _none_mbrtowc;
62	xrl->__mbsinit = _none_mbsinit;
63	xrl->__mbsnrtowcs = _none_mbsnrtowcs;
64	xrl->__wcrtomb = _none_wcrtomb;
65	xrl->__wcsnrtombs = _none_wcsnrtombs;
66	xrl->__mb_cur_max = 1;
67	xrl->__mb_sb_limit = 256;
68	return(0);
69}
70
71int
72_none_mbsinit(const mbstate_t *ps __unused, locale_t loc __unused)
73{
74
75	/*
76	 * Encoding is not state dependent - we are always in the
77	 * initial state.
78	 */
79	return (1);
80}
81
82size_t
83_none_mbrtowc(wchar_t * __restrict pwc, const char * __restrict s, size_t n,
84    mbstate_t * __restrict ps __unused, locale_t loc __unused)
85{
86
87	if (s == NULL)
88		/* Reset to initial shift state (no-op) */
89		return (0);
90	if (n == 0)
91		/* Incomplete multibyte sequence */
92		return ((size_t)-2);
93	if (pwc != NULL)
94		*pwc = (unsigned char)*s;
95	return (*s == '\0' ? 0 : 1);
96}
97
98size_t
99_none_wcrtomb(char * __restrict s, wchar_t wc,
100    mbstate_t * __restrict ps __unused, locale_t loc __unused)
101{
102
103	if (s == NULL)
104		/* Reset to initial shift state (no-op) */
105		return (1);
106	if (wc < 0 || wc > UCHAR_MAX) {
107		errno = EILSEQ;
108		return ((size_t)-1);
109	}
110	*s = (unsigned char)wc;
111	return (1);
112}
113
114size_t
115_none_mbsnrtowcs(wchar_t * __restrict dst, const char ** __restrict src,
116    size_t nms, size_t len, mbstate_t * __restrict ps __unused, locale_t loc __unused)
117{
118	const char *s;
119	size_t nchr;
120
121	if (dst == NULL) {
122		s = memchr(*src, '\0', nms);
123		return (s != NULL ? s - *src : nms);
124	}
125
126	s = *src;
127	nchr = 0;
128	while (len-- > 0 && nms-- > 0) {
129		if ((*dst++ = (unsigned char)*s++) == L'\0') {
130			*src = NULL;
131			return (nchr);
132		}
133		nchr++;
134	}
135	*src = s;
136	return (nchr);
137}
138
139size_t
140_none_wcsnrtombs(char * __restrict dst, const wchar_t ** __restrict src,
141    size_t nwc, size_t len, mbstate_t * __restrict ps __unused, locale_t loc __unused)
142{
143	const wchar_t *s;
144	size_t nchr;
145
146	if (dst == NULL) {
147		for (s = *src; nwc > 0 && *s != L'\0'; s++, nwc--) {
148			if (*s < 0 || *s > UCHAR_MAX) {
149				errno = EILSEQ;
150				return ((size_t)-1);
151			}
152		}
153		return (s - *src);
154	}
155
156	s = *src;
157	nchr = 0;
158	while (len-- > 0 && nwc-- > 0) {
159		if (*s < 0 || *s > UCHAR_MAX) {
160			errno = EILSEQ;
161			return ((size_t)-1);
162		}
163		if ((*dst++ = *s++) == '\0') {
164			*src = NULL;
165			return (nchr);
166		}
167		nchr++;
168	}
169	*src = s;
170	return (nchr);
171}
172