wcsrtombs.c revision 103012
1102050Stjr/*- 2102050Stjr * Copyright (c) 2002 Tim J. Robbins. 3102050Stjr * All rights reserved. 4102050Stjr * 5102050Stjr * Redistribution and use in source and binary forms, with or without 6102050Stjr * modification, are permitted provided that the following conditions 7102050Stjr * are met: 8102050Stjr * 1. Redistributions of source code must retain the above copyright 9102050Stjr * notice, this list of conditions and the following disclaimer. 10102050Stjr * 2. Redistributions in binary form must reproduce the above copyright 11102050Stjr * notice, this list of conditions and the following disclaimer in the 12102050Stjr * documentation and/or other materials provided with the distribution. 13102050Stjr * 14102050Stjr * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND 15102050Stjr * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 16102050Stjr * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 17102050Stjr * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 18102050Stjr * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 19102050Stjr * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 20102050Stjr * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 21102050Stjr * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 22102050Stjr * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 23102050Stjr * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 24102050Stjr * SUCH DAMAGE. 25102050Stjr */ 26102050Stjr 27102050Stjr#include <sys/cdefs.h> 28102050Stjr__FBSDID("$FreeBSD: head/lib/libc/locale/wcsrtombs.c 103012 2002-09-06 11:24:06Z tjr $"); 29102050Stjr 30102050Stjr#include <errno.h> 31102050Stjr#include <limits.h> 32102050Stjr#include <stdlib.h> 33102050Stjr#include <string.h> 34102050Stjr#include <wchar.h> 35102050Stjr 36102050Stjrsize_t 37103012Stjrwcsrtombs(char * __restrict dst, const wchar_t ** __restrict src, size_t len, 38103012Stjr mbstate_t * __restrict ps __unused) 39102050Stjr{ 40102050Stjr char buf[MB_LEN_MAX]; 41102050Stjr const wchar_t *s; 42102050Stjr size_t nbytes; 43102050Stjr int nb; 44102050Stjr 45102050Stjr s = *src; 46102050Stjr nbytes = 0; 47102050Stjr 48102050Stjr if (dst == NULL) { 49102050Stjr for (;;) { 50102050Stjr if ((nb = (int)wcrtomb(buf, *s, NULL)) < 0) 51102050Stjr /* Invalid character - wcrtomb() sets errno. */ 52102050Stjr return ((size_t)-1); 53102050Stjr else if (*s == L'\0') 54102050Stjr return (nbytes + nb - 1); 55102050Stjr s++; 56102050Stjr nbytes += nb; 57102050Stjr } 58102050Stjr /*NOTREACHED*/ 59102050Stjr } 60102050Stjr 61102050Stjr while (len > 0) { 62102050Stjr if (len > (size_t)MB_CUR_MAX) { 63102050Stjr /* Enough space to translate in-place. */ 64102050Stjr if ((nb = (int)wcrtomb(dst, *s, NULL)) < 0) { 65102050Stjr *src = s; 66102050Stjr return ((size_t)-1); 67102050Stjr } 68102050Stjr } else { 69102050Stjr /* May not be enough space; use temp. buffer. */ 70102050Stjr if ((nb = (int)wcrtomb(buf, *s, NULL)) < 0) { 71102050Stjr *src = s; 72102050Stjr return ((size_t)-1); 73102050Stjr } 74102050Stjr if (nb > (int)len) 75102050Stjr /* MB sequence for character won't fit. */ 76102050Stjr break; 77102050Stjr memcpy(dst, buf, nb); 78102050Stjr } 79102050Stjr if (*s == L'\0') { 80102050Stjr *src = NULL; 81102050Stjr return (nbytes + nb - 1); 82102050Stjr } 83102050Stjr s++; 84102050Stjr dst += nb; 85102050Stjr len -= nb; 86102050Stjr nbytes += nb; 87102050Stjr } 88102050Stjr *src = s; 89102050Stjr return (nbytes); 90102050Stjr} 91