1 /*********************************************************************** 2 * * 3 * This software is part of the ast package * 4 * Copyright (c) 1985-2007 AT&T Knowledge Ventures * 5 * and is licensed under the * 6 * Common Public License, Version 1.0 * 7 * by AT&T Knowledge Ventures * 8 * * 9 * A copy of the License is available at * 10 * http://www.opensource.org/licenses/cpl1.0.txt * 11 * (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) * 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 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 v = -1; 61 } 62 else 63 v = -1; 64 return v; 65 } 66