usr/src/lib/libast/common/stdio/vfwprintf.c

   1 /***********************************************************************
   2 *                                                                      *
   3 *               This software is part of the ast package               *
   4 *          Copyright (c) 1985-2010 AT&T Intellectual Property          *
   5 *                      and is licensed under the                       *
   6 *                  Common Public License, Version 1.0                  *
   7 *                    by AT&T Intellectual Property                     *
   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 }