1 /* $NetBSD: multibyte_c90.c,v 1.12 2013/08/18 20:03:48 joerg Exp $ */
2
3 /*-
4 * Copyright (c)2002, 2008 Citrus Project,
5 * All rights reserved.
6 *
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
9 * are met:
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
12 * 2. Redistributions in binary form must reproduce the above copyright
13 * notice, this list of conditions and the following disclaimer in the
14 * documentation and/or other materials provided with the distribution.
15 *
16 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
17 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
18 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
19 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
20 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
21 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
22 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
23 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
24 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
25 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
26 * SUCH DAMAGE.
27 */
28
29 #include <sys/cdefs.h>
30 #if defined(LIBC_SCCS) && !defined(lint)
31 __RCSID("$NetBSD: multibyte_c90.c,v 1.12 2013/08/18 20:03:48 joerg Exp $");
32 #endif /* LIBC_SCCS and not lint */
33
34 #include <sys/types.h>
35 #include <assert.h>
36 #include <errno.h>
37 #include <langinfo.h>
38 #define __SETLOCALE_SOURCE__
39 #include <locale.h>
40 #include <stdlib.h>
41 #include <wchar.h>
42
43 #include "setlocale_local.h"
44
45 #include "citrus_module.h"
46 #include "citrus_ctype.h"
47 #include "runetype_local.h"
48 #include "multibyte.h"
49
50 int
mblen_l(const char * s,size_t n,locale_t loc)51 mblen_l(const char *s, size_t n, locale_t loc)
52 {
53 int ret;
54 int err0;
55
56 err0 = _citrus_ctype_mblen(_CITRUS_CTYPE(loc), s, n, &ret);
57 if (err0)
58 errno = err0;
59
60 return ret;
61 }
62
63
64 int
mblen(const char * s,size_t n)65 mblen(const char *s, size_t n)
66 {
67 return mblen_l(s, n, _current_locale());
68 }
69
70 size_t
mbstowcs_l(wchar_t * pwcs,const char * s,size_t n,locale_t loc)71 mbstowcs_l(wchar_t *pwcs, const char *s, size_t n, locale_t loc)
72 {
73 size_t ret;
74 int err0;
75
76 err0 = _citrus_ctype_mbstowcs(_CITRUS_CTYPE(loc), pwcs, s, n, &ret);
77 if (err0)
78 errno = err0;
79
80 return ret;
81 }
82
83 size_t
mbstowcs(wchar_t * pwcs,const char * s,size_t n)84 mbstowcs(wchar_t *pwcs, const char *s, size_t n)
85 {
86 return mbstowcs_l(pwcs, s, n, _current_locale());
87 }
88
89 int
mbtowc_l(wchar_t * pw,const char * s,size_t n,locale_t loc)90 mbtowc_l(wchar_t *pw, const char *s, size_t n, locale_t loc)
91 {
92 int ret;
93 int err0;
94
95 err0 = _citrus_ctype_mbtowc(_CITRUS_CTYPE(loc), pw, s, n, &ret);
96 if (err0)
97 errno = err0;
98
99 return ret;
100 }
101
102 int
mbtowc(wchar_t * pw,const char * s,size_t n)103 mbtowc(wchar_t *pw, const char *s, size_t n)
104 {
105 return mbtowc_l(pw, s, n, _current_locale());
106 }
107
108 size_t
wcstombs_l(char * s,const wchar_t * wcs,size_t n,locale_t loc)109 wcstombs_l(char *s, const wchar_t *wcs, size_t n, locale_t loc)
110 {
111 size_t ret;
112 int err0;
113
114 err0 = _citrus_ctype_wcstombs(_CITRUS_CTYPE(loc), s, wcs, n, &ret);
115 if (err0)
116 errno = err0;
117
118 return ret;
119 }
120
121 size_t
wcstombs(char * s,const wchar_t * wcs,size_t n)122 wcstombs(char *s, const wchar_t *wcs, size_t n)
123 {
124 return wcstombs_l(s, wcs, n, _current_locale());
125 }
126
127 size_t
wcsnrtombs_l(char * s,const wchar_t ** ppwcs,size_t in,size_t n,mbstate_t * ps,locale_t loc)128 wcsnrtombs_l(char *s, const wchar_t **ppwcs, size_t in, size_t n, mbstate_t *ps,
129 locale_t loc)
130 {
131 size_t ret;
132 int err0;
133
134 _fixup_ps(_RUNE_LOCALE(loc), ps, s == NULL);
135
136 err0 = _citrus_ctype_wcsnrtombs(_ps_to_ctype(ps, loc), s, ppwcs, in, n,
137 _ps_to_private(ps), &ret);
138 if (err0)
139 errno = err0;
140
141 return ret;
142 }
143
144 size_t
wcsnrtombs(char * s,const wchar_t ** ppwcs,size_t in,size_t n,mbstate_t * ps)145 wcsnrtombs(char *s, const wchar_t **ppwcs, size_t in, size_t n, mbstate_t *ps)
146 {
147 return wcsnrtombs_l(s, ppwcs, in, n, ps, _current_locale());
148 }
149
150 int
wctomb_l(char * s,wchar_t wc,locale_t loc)151 wctomb_l(char *s, wchar_t wc, locale_t loc)
152 {
153 int ret;
154 int err0;
155
156 err0 = _citrus_ctype_wctomb(_CITRUS_CTYPE(loc), s, wc, &ret);
157 if (err0)
158 errno = err0;
159
160 return ret;
161 }
162
163 int
wctomb(char * s,wchar_t wc)164 wctomb(char *s, wchar_t wc)
165 {
166 return wctomb_l(s, wc, _current_locale());
167 }
168