1 /* $NetBSD: multibyte_c90.c,v 1.11 2013/05/28 16:57:56 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.11 2013/05/28 16:57:56 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 #define _RUNE_LOCALE(loc) \ 51 ((_RuneLocale *)((loc)->part_impl[(size_t)LC_CTYPE])) 52 53 #define _CITRUS_CTYPE(loc) \ 54 (((_RuneLocale *)((loc)->part_impl[(size_t)LC_CTYPE]))->rl_citrus_ctype) 55 56 int 57 mblen_l(const char *s, size_t n, locale_t loc) 58 { 59 int ret; 60 int err0; 61 62 err0 = _citrus_ctype_mblen(_CITRUS_CTYPE(loc), s, n, &ret); 63 if (err0) 64 errno = err0; 65 66 return ret; 67 } 68 69 70 int 71 mblen(const char *s, size_t n) 72 { 73 return mblen_l(s, n, _current_locale()); 74 } 75 76 size_t 77 mbstowcs_l(wchar_t *pwcs, const char *s, size_t n, locale_t loc) 78 { 79 size_t ret; 80 int err0; 81 82 err0 = _citrus_ctype_mbstowcs(_CITRUS_CTYPE(loc), pwcs, s, n, &ret); 83 if (err0) 84 errno = err0; 85 86 return ret; 87 } 88 89 size_t 90 mbstowcs(wchar_t *pwcs, const char *s, size_t n) 91 { 92 return mbstowcs_l(pwcs, s, n, _current_locale()); 93 } 94 95 int 96 mbtowc_l(wchar_t *pw, const char *s, size_t n, locale_t loc) 97 { 98 int ret; 99 int err0; 100 101 err0 = _citrus_ctype_mbtowc(_CITRUS_CTYPE(loc), pw, s, n, &ret); 102 if (err0) 103 errno = err0; 104 105 return ret; 106 } 107 108 int 109 mbtowc(wchar_t *pw, const char *s, size_t n) 110 { 111 return mbtowc_l(pw, s, n, _current_locale()); 112 } 113 114 size_t 115 wcstombs_l(char *s, const wchar_t *wcs, size_t n, locale_t loc) 116 { 117 size_t ret; 118 int err0; 119 120 err0 = _citrus_ctype_wcstombs(_CITRUS_CTYPE(loc), s, wcs, n, &ret); 121 if (err0) 122 errno = err0; 123 124 return ret; 125 } 126 127 size_t 128 wcstombs(char *s, const wchar_t *wcs, size_t n) 129 { 130 return wcstombs_l(s, wcs, n, _current_locale()); 131 } 132 133 size_t 134 wcsnrtombs_l(char *s, const wchar_t **ppwcs, size_t in, size_t n, mbstate_t *ps, 135 locale_t loc) 136 { 137 size_t ret; 138 int err0; 139 140 _fixup_ps(_RUNE_LOCALE(loc), ps, s == NULL); 141 142 err0 = _citrus_ctype_wcsnrtombs(_ps_to_ctype(ps), s, ppwcs, in, n, 143 _ps_to_private(ps), &ret); 144 if (err0) 145 errno = err0; 146 147 return ret; 148 } 149 150 size_t 151 wcsnrtombs(char *s, const wchar_t **ppwcs, size_t in, size_t n, mbstate_t *ps) 152 { 153 return wcsnrtombs_l(s, ppwcs, in, n, ps, _current_locale()); 154 } 155 156 int 157 wctomb_l(char *s, wchar_t wc, locale_t loc) 158 { 159 int ret; 160 int err0; 161 162 err0 = _citrus_ctype_wctomb(_CITRUS_CTYPE(loc), s, wc, &ret); 163 if (err0) 164 errno = err0; 165 166 return ret; 167 } 168 169 int 170 wctomb(char *s, wchar_t wc) 171 { 172 return wctomb_l(s, wc, _current_locale()); 173 } 174