++ 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; /* Leave room for the NUL */
++ 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;
++ /*
++ * XXX Undo the conversion from wide characters to multibyte that
++ * fputwc() did in __vfwprintf().
++ */
++ 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;