multibyte_c90.c revision 1.12.20.1
1 /* $NetBSD: multibyte_c90.c,v 1.12.20.1 2017/07/14 15:53:08 perseant 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.20.1 2017/07/14 15:53:08 perseant 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 "rune_iso10646.h" 49 #include "multibyte.h" 50 51 int 52 mblen_l(const char *s, size_t n, locale_t loc) 53 { 54 int ret; 55 int err0; 56 57 err0 = _citrus_ctype_mblen(_CITRUS_CTYPE(loc), s, n, &ret); 58 if (err0) 59 errno = err0; 60 61 return ret; 62 } 63 64 65 int 66 mblen(const char *s, size_t n) 67 { 68 return mblen_l(s, n, _current_locale()); 69 } 70 71 size_t 72 mbstowcs_l(wchar_t *pwcs, const char *s, size_t n, locale_t loc) 73 { 74 size_t ret; 75 int err0; 76 77 err0 = _citrus_ctype_mbstowcs(_CITRUS_CTYPE(loc), pwcs, s, n, &ret); 78 if (err0) 79 errno = err0; 80 else 81 _citrus_wcs_kuten_to_unicode(_RUNE_LOCALE(loc), pwcs, pwcs, ret); 82 83 return ret; 84 } 85 86 size_t 87 mbstowcs(wchar_t *pwcs, const char *s, size_t n) 88 { 89 return mbstowcs_l(pwcs, s, n, _current_locale()); 90 } 91 92 int 93 mbtowc_l(wchar_t *pw, const char *s, size_t n, locale_t loc) 94 { 95 int ret; 96 int err0; 97 98 err0 = _citrus_ctype_mbtowc(_CITRUS_CTYPE(loc), pw, s, n, &ret); 99 if (err0) 100 errno = err0; 101 else if (s != NULL && pw != NULL) 102 _citrus_kuten_to_unicode(_RUNE_LOCALE(loc), *pw, pw); 103 104 return ret; 105 } 106 107 int 108 mbtowc(wchar_t *pw, const char *s, size_t n) 109 { 110 return mbtowc_l(pw, s, n, _current_locale()); 111 } 112 113 size_t 114 wcstombs_l(char *s, const wchar_t *wcs, size_t n, locale_t loc) 115 { 116 size_t ret; 117 int err0; 118 #ifdef __STDC_ISO_10646__ 119 wchar_t *wcskt; 120 size_t nn; 121 122 nn = wcsnlen(wcs, (s == NULL ? (size_t)-1 : n)) + 1; 123 wcskt = (wchar_t *)malloc(nn * sizeof(*wcskt)); 124 _citrus_wcs_unicode_to_kuten(_RUNE_LOCALE(loc), wcs, wcskt, nn); 125 126 err0 = _citrus_ctype_wcstombs(_CITRUS_CTYPE(loc), s, (const wchar_t *)wcskt, n, &ret); 127 free(wcskt); 128 #else 129 err0 = _citrus_ctype_wcstombs(_CITRUS_CTYPE(loc), s, wcs, n, &ret); 130 #endif 131 if (err0) 132 errno = err0; 133 134 return ret; 135 } 136 137 size_t 138 wcstombs(char *s, const wchar_t *wcs, size_t n) 139 { 140 return wcstombs_l(s, wcs, n, _current_locale()); 141 } 142 143 size_t 144 wcsnrtombs_l(char *s, const wchar_t **ppwcs, size_t in, size_t n, mbstate_t *ps, 145 locale_t loc) 146 { 147 size_t ret; 148 int err0; 149 #ifdef __STDC_ISO_10646__ 150 int nn; 151 wchar_t *wcskt, *owcskt; 152 #endif 153 154 _fixup_ps(_RUNE_LOCALE(loc), ps, s == NULL); 155 156 #ifdef __STDC_ISO_10646__ 157 nn = wcsnlen(*ppwcs, n) + 1; 158 owcskt = wcskt = (wchar_t *)malloc(nn * sizeof(*wcskt)); 159 _citrus_wcs_unicode_to_kuten(_RUNE_LOCALE(loc), *ppwcs, wcskt, nn); 160 161 err0 = _citrus_ctype_wcsnrtombs(_ps_to_ctype(ps, loc), s, (const wchar_t **)(void *)&wcskt, in, n, 162 _ps_to_private(ps), &ret); 163 if (wcskt == NULL) 164 *ppwcs = NULL; 165 free(owcskt); 166 #else 167 err0 = _citrus_ctype_wcsnrtombs(_ps_to_ctype(ps, loc), s, ppwcs, in, n, 168 _ps_to_private(ps), &ret); 169 #endif 170 if (err0) 171 errno = err0; 172 173 return ret; 174 } 175 176 size_t 177 wcsnrtombs(char *s, const wchar_t **ppwcs, size_t in, size_t n, mbstate_t *ps) 178 { 179 return wcsnrtombs_l(s, ppwcs, in, n, ps, _current_locale()); 180 } 181 182 int 183 wctomb_l(char *s, wchar_t wc, locale_t loc) 184 { 185 int ret; 186 int err0; 187 188 _citrus_unicode_to_kuten(_RUNE_LOCALE(loc), wc, &wc); 189 190 err0 = _citrus_ctype_wctomb(_CITRUS_CTYPE(loc), s, wc, &ret); 191 if (err0) 192 errno = err0; 193 194 return ret; 195 } 196 197 int 198 wctomb(char *s, wchar_t wc) 199 { 200 return wctomb_l(s, wc, _current_locale()); 201 } 202
Indexes created Wed Oct 01 18:09:54 GMT 2025