#include <sys/cdefs.h>
#if 0
__FBSDID("FreeBSD: src/lib/libc/stdio/vasprintf.c,v 1.16 2002/08/21 16:19:57 mike Exp ");
#endif
__FBSDID("$FreeBSD: src/lib/libc/stdio/vswprintf.c,v 1.5 2004/04/07 09:55:05 tjr Exp $");
#include "xlocale_private.h"
#include <errno.h>
#include <stdio.h>
#include <stdlib.h>
#include <wchar.h>
#include "local.h"
int
vswprintf(wchar_t * __restrict s, size_t n, const wchar_t * __restrict fmt,
__va_list ap)
{
static const mbstate_t initial;
mbstate_t mbs;
FILE f;
struct __sFILEX ext;
char *mbp;
int ret, sverrno;
size_t conv;
locale_t loc = __current_locale();
if (n == 0) {
errno = EINVAL;
return (-1);
}
f._file = -1;
f._flags = __SWR | __SSTR | __SALC;
f._bf._base = f._p = (unsigned char *)malloc(128);
if (f._bf._base == NULL) {
errno = ENOMEM;
return (-1);
}
f._bf._size = f._w = 127;
f._extra = &ext;
INITEXTRA(&f);
ret = __vfwprintf(&f, loc, fmt, ap);
if (ret < 0) {
sverrno = errno;
free(f._bf._base);
errno = sverrno;
return (-1);
}
*f._p = '\0';
mbp = (char *)f._bf._base;
mbs = initial;
if ((conv = mbsrtowcs_l(s, (const char **)&mbp, n, &mbs, loc)) == (size_t)-1) {
free(f._bf._base);
errno = EILSEQ;
return (-1);
}
free(f._bf._base);
if (conv >= n) {
s[n - 1] = L'\0';
errno = EOVERFLOW;
return (-1);
}
return (ret);
}
int
vswprintf_l(wchar_t * __restrict s, size_t n, locale_t loc,
const wchar_t * __restrict fmt, __va_list ap)
{
static const mbstate_t initial;
mbstate_t mbs;
FILE f;
struct __sFILEX ext;
char *mbp;
int ret, sverrno;
size_t conv;
NORMALIZE_LOCALE(loc);
if (n == 0) {
errno = EINVAL;
return (-1);
}
f._file = -1;
f._flags = __SWR | __SSTR | __SALC;
f._bf._base = f._p = (unsigned char *)malloc(128);
if (f._bf._base == NULL) {
errno = ENOMEM;
return (-1);
}
f._bf._size = f._w = 127;
f._extra = &ext;
INITEXTRA(&f);
ret = __vfwprintf(&f, loc, fmt, ap);
if (ret < 0) {
sverrno = errno;
free(f._bf._base);
errno = sverrno;
return (-1);
}
*f._p = '\0';
mbp = (char *)f._bf._base;
mbs = initial;
if ((conv = mbsrtowcs_l(s, (const char **)&mbp, n, &mbs, loc)) == (size_t)-1) {
free(f._bf._base);
errno = EILSEQ;
return (-1);
}
free(f._bf._base);
if (conv >= n) {
s[n - 1] = L'\0';
errno = EOVERFLOW;
return (-1);
}
return (ret);
}