1 /*- 2 * SPDX-License-Identifier: BSD-4-Clause 3 * 4 * Copyright 2013 Garrett D'Amore <garrett@damore.org> 5 * Copyright 2010 Nexenta Systems, Inc. All rights reserved. 6 * Copyright (c) 2002-2004 Tim J. Robbins. All rights reserved. 7 * 8 * ja_JP.SJIS locale table for BSD4.4/rune 9 * version 1.0 10 * (C) Sin'ichiro MIYATANI / Phase One, Inc 11 * May 12, 1995 12 * 13 * Copyright (c) 2011 The FreeBSD Foundation 14 * 15 * Portions of this software were developed by David Chisnall 16 * under sponsorship from the FreeBSD Foundation. 17 * 18 * Redistribution and use in source and binary forms, with or without 19 * modification, are permitted provided that the following conditions 20 * are met: 21 * 1. Redistributions of source code must retain the above copyright 22 * notice, this list of conditions and the following disclaimer. 23 * 2. Redistributions in binary form must reproduce the above copyright 24 * notice, this list of conditions and the following disclaimer in the 25 * documentation and/or other materials provided with the distribution. 26 * 3. All advertising materials mentioning features or use of this software 27 * must display the following acknowledgement: 28 * This product includes software developed by Phase One, Inc. 29 * 4. The name of Phase One, Inc. may be used to endorse or promote products 30 * derived from this software without specific prior written permission. 31 * 32 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 33 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 34 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 35 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 36 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 37 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 38 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 39 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 40 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 41 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 42 * SUCH DAMAGE. 43 */ 44 45 #if defined(LIBC_SCCS) && !defined(lint) 46 static char sccsid[] = "@(#)mskanji.c 1.0 (Phase One) 5/5/95"; 47 #endif /* LIBC_SCCS and not lint */ 48 #include <sys/types.h> 49 #include <errno.h> 50 #include <runetype.h> 51 #include <stdlib.h> 52 #include <string.h> 53 #include <wchar.h> 54 #include "mblocal.h" 55 56 extern int __mb_sb_limit; 57 58 static size_t _MSKanji_mbrtowc(wchar_t * __restrict, const char * __restrict, 59 size_t, mbstate_t * __restrict); 60 static int _MSKanji_mbsinit(const mbstate_t *); 61 static size_t _MSKanji_wcrtomb(char * __restrict, wchar_t, 62 mbstate_t * __restrict); 63 static size_t _MSKanji_mbsnrtowcs(wchar_t * __restrict, 64 const char ** __restrict, size_t, size_t, 65 mbstate_t * __restrict); 66 static size_t _MSKanji_wcsnrtombs(char * __restrict, 67 const wchar_t ** __restrict, size_t, size_t, 68 mbstate_t * __restrict); 69 70 typedef struct { 71 wchar_t ch; 72 } _MSKanjiState; 73 74 int 75 _MSKanji_init(struct xlocale_ctype *l, _RuneLocale *rl) 76 { 77 78 l->__mbrtowc = _MSKanji_mbrtowc; 79 l->__wcrtomb = _MSKanji_wcrtomb; 80 l->__mbsnrtowcs = _MSKanji_mbsnrtowcs; 81 l->__wcsnrtombs = _MSKanji_wcsnrtombs; 82 l->__mbsinit = _MSKanji_mbsinit; 83 l->runes = rl; 84 l->__mb_cur_max = 2; 85 l->__mb_sb_limit = 224; 86 return (0); 87 } 88 89 static int 90 _MSKanji_mbsinit(const mbstate_t *ps) 91 { 92 93 return (ps == NULL || ((const _MSKanjiState *)ps)->ch == 0); 94 } 95 96 static size_t 97 _MSKanji_mbrtowc(wchar_t * __restrict pwc, const char * __restrict s, size_t n, 98 mbstate_t * __restrict ps) 99 { 100 _MSKanjiState *ms; 101 wchar_t wc; 102 103 ms = (_MSKanjiState *)ps; 104 105 if ((ms->ch & ~0xFF) != 0) { 106 /* Bad conversion state. */ 107 errno = EINVAL; 108 return ((size_t)-1); 109 } 110 111 if (s == NULL) { 112 s = ""; 113 n = 1; 114 pwc = NULL; 115 } 116 117 if (n == 0) 118 /* Incomplete multibyte sequence */ 119 return ((size_t)-2); 120 121 if (ms->ch != 0) { 122 if (*s == '\0') { 123 errno = EILSEQ; 124 return ((size_t)-1); 125 } 126 wc = (ms->ch << 8) | (*s & 0xFF); 127 if (pwc != NULL) 128 *pwc = wc; 129 ms->ch = 0; 130 return (1); 131 } 132 wc = *s++ & 0xff; 133 if ((wc > 0x80 && wc < 0xa0) || (wc >= 0xe0 && wc < 0xfd)) { 134 if (n < 2) { 135 /* Incomplete multibyte sequence */ 136 ms->ch = wc; 137 return ((size_t)-2); 138 } 139 if (*s == '\0') { 140 errno = EILSEQ; 141 return ((size_t)-1); 142 } 143 wc = (wc << 8) | (*s++ & 0xff); 144 if (pwc != NULL) 145 *pwc = wc; 146 return (2); 147 } else { 148 if (pwc != NULL) 149 *pwc = wc; 150 return (wc == L'\0' ? 0 : 1); 151 } 152 } 153 154 static size_t 155 _MSKanji_wcrtomb(char * __restrict s, wchar_t wc, mbstate_t * __restrict ps) 156 { 157 _MSKanjiState *ms; 158 int len, i; 159 160 ms = (_MSKanjiState *)ps; 161 162 if (ms->ch != 0) { 163 errno = EINVAL; 164 return ((size_t)-1); 165 } 166 167 if (s == NULL) 168 /* Reset to initial shift state (no-op) */ 169 return (1); 170 len = (wc > 0x100) ? 2 : 1; 171 for (i = len; i-- > 0; ) 172 *s++ = wc >> (i << 3); 173 return (len); 174 } 175 176 static size_t 177 _MSKanji_mbsnrtowcs(wchar_t * __restrict dst, 178 const char ** __restrict src, size_t nms, 179 size_t len, mbstate_t * __restrict ps) 180 { 181 return (__mbsnrtowcs_std(dst, src, nms, len, ps, _MSKanji_mbrtowc)); 182 } 183 184 static size_t 185 _MSKanji_wcsnrtombs(char * __restrict dst, 186 const wchar_t ** __restrict src, size_t nwc, 187 size_t len, mbstate_t * __restrict ps) 188 { 189 return (__wcsnrtombs_std(dst, src, nwc, len, ps, _MSKanji_wcrtomb)); 190 } 191