1 /* $NetBSD: vswprintf.c,v 1.6 2013/05/19 21:45:00 christos Exp $ */
2
3 /*
4 * Copyright (c) 1997 Todd C. Miller <Todd.Miller@courtesan.com>
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 * 3. The name of the author may not be used to endorse or promote products
16 * derived from this software without specific prior written permission.
17 *
18 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES,
19 * INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
20 * AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL
21 * THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
22 * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
23 * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
24 * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
25 * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
26 * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
27 * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
28 */
29
30 #include <sys/cdefs.h>
31 #if defined(LIBC_SCCS) && !defined(lint)
32 #if 0
33 __FBSDID("$FreeBSD: src/lib/libc/stdio/vswprintf.c,v 1.6 2005/02/21 19:41:44 fjoe Exp $");
34 #else
35 __RCSID("$NetBSD: vswprintf.c,v 1.6 2013/05/19 21:45:00 christos Exp $");
36 #endif
37 #endif /* LIBC_SCCS and not lint */
38
39 #include "namespace.h"
40 #include <errno.h>
41 #include <locale.h>
42 #include <stdio.h>
43 #include <stdlib.h>
44 #include <wchar.h>
45 #include <stdarg.h>
46
47 #include "reentrant.h"
48 #include "setlocale_local.h"
49 #include "local.h"
50
__weak_alias(vswprintf_l,_vswprintf_l)51 __weak_alias(vswprintf_l, _vswprintf_l)
52
53 int
54 vswprintf_l(wchar_t * __restrict s, size_t n, locale_t loc,
55 const wchar_t * __restrict fmt, va_list ap)
56 {
57 static const mbstate_t initial;
58 mbstate_t mbs;
59 FILE f;
60 char *mbp;
61 int ret, sverrno;
62 size_t nwc;
63 struct __sfileext fext;
64
65 if (n == 0) {
66 errno = EINVAL;
67 return -1;
68 }
69
70 _FILEEXT_SETUP(&f, &fext);
71 f._file = -1;
72 f._flags = __SWR | __SSTR | __SALC;
73 f._bf._base = f._p = malloc(128);
74 if (f._bf._base == NULL) {
75 errno = ENOMEM;
76 return -1;
77 }
78 f._bf._size = f._w = 127; /* Leave room for the NUL */
79 ret = __vfwprintf_unlocked_l(&f, loc, fmt, ap);
80 if (ret < 0) {
81 sverrno = errno;
82 free(f._bf._base);
83 errno = sverrno;
84 return -1;
85 }
86 *f._p = '\0';
87 mbp = (char *)f._bf._base;
88 /*
89 * XXX Undo the conversion from wide characters to multibyte that
90 * fputwc() did in __vfwprintf().
91 */
92 mbs = initial;
93 nwc = mbsrtowcs_l(s, (void *)&mbp, n, &mbs, loc);
94 free(f._bf._base);
95 if (nwc == (size_t)-1) {
96 errno = EILSEQ;
97 return -1;
98 }
99 if (nwc == n) {
100 s[n - 1] = L'\0';
101 errno = EOVERFLOW;
102 return -1;
103 }
104
105 return ret;
106 }
107
108 int
vswprintf(wchar_t * __restrict s,size_t n,const wchar_t * __restrict fmt,va_list ap)109 vswprintf(wchar_t * __restrict s, size_t n, const wchar_t * __restrict fmt,
110 va_list ap)
111 {
112 return vswprintf_l(s, n, _current_locale(), fmt, ap);
113 }
114