1 /***********************************************************************
2 * *
3 * This software is part of the ast package *
4 * Copyright (c) 1985-2011 AT&T Intellectual Property *
5 * and is licensed under the *
6 * Eclipse Public License, Version 1.0 *
7 * by AT&T Intellectual Property *
8 * *
9 * A copy of the License is available at *
10 * http://www.eclipse.org/org/documents/epl-v10.html *
11 * (with md5 checksum b35adb5213ca9657e911e9befb180842) *
12 * *
13 * Information and Software Systems Research *
14 * AT&T Research *
15 * Florham Park NJ *
16 * *
17 * Glenn Fowler <gsf@research.att.com> *
18 * David Korn <dgk@research.att.com> *
19 * Phong Vo <kpv@research.att.com> *
20 * *
21 ***********************************************************************/
22 #pragma prototyped
23
24 #include "stdhdr.h"
25
26 int
vfwprintf(Sfio_t * f,const wchar_t * fmt,va_list args)27 vfwprintf(Sfio_t* f, const wchar_t* fmt, va_list args)
28 {
29 char* m;
30 char* x;
31 wchar_t*w;
32 size_t n;
33 int v;
34 Sfio_t* t;
35
36 STDIO_INT(f, "vfwprintf", int, (Sfio_t*, const wchar_t*, va_list), (f, fmt, args))
37
38 FWIDE(f, WEOF);
39 n = wcstombs(NiL, fmt, 0);
40 if (m = malloc(n + 1))
41 {
42 if (t = sfstropen())
43 {
44 wcstombs(m, fmt, n + 1);
45 sfvprintf(t, m, args);
46 free(m);
47 if (!(x = sfstruse(t)))
48 v = -1;
49 else
50 {
51 n = mbstowcs(NiL, x, 0);
52 if (w = (wchar_t*)sfreserve(f, n * sizeof(wchar_t) + 1, 0))
53 v = mbstowcs(w, x, n + 1);
54 else
55 v = -1;
56 }
57 sfstrclose(t);
58 }
59 else
60 {
61 free(m);
62 v = -1;
63 }
64 }
65 else
66 v = -1;
67 return v;
68 }
69