Standard Libraries for EDK II.

[mirror_edk2.git] / StdLib / LibC / Stdio / fputwc.c

/* $NetBSD: fputwc.c,v 1.4 2005/06/12 05:21:27 lukem Exp $ */\r
\r
/*-\r
 * Copyright (c)2001 Citrus Project,\r
 * All rights reserved.\r
 *\r
 * Redistribution and use in source and binary forms, with or without\r
 * modification, are permitted provided that the following conditions\r
 * are met:\r
 * 1. Redistributions of source code must retain the above copyright\r
 *    notice, this list of conditions and the following disclaimer.\r
 * 2. Redistributions in binary form must reproduce the above copyright\r
 *    notice, this list of conditions and the following disclaimer in the\r
 *    documentation and/or other materials provided with the distribution.\r
 *\r
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND\r
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE\r
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE\r
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE\r
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL\r
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS\r
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)\r
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT\r
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY\r
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF\r
 * SUCH DAMAGE.\r
 *\r
 * $Citrus$\r
 */\r
#include  <LibConfig.h>\r
#include <sys/EfiCdefs.h>\r
#if defined(LIBC_SCCS) && !defined(lint)\r
__RCSID("$NetBSD: fputwc.c,v 1.4 2005/06/12 05:21:27 lukem Exp $");\r
#endif /* LIBC_SCCS and not lint */\r
\r
#include <assert.h>\r
#include <errno.h>\r
#include <limits.h>\r
#include <stdio.h>\r
#include <wchar.h>\r
#include "reentrant.h"\r
#include "local.h"\r
#include "fvwrite.h"\r
\r
wint_t\r
__fputwc_unlock(wchar_t wc, FILE *fp)\r
{\r
  struct wchar_io_data *wcio;\r
  mbstate_t *st;\r
  size_t size;\r
  char buf[MB_LEN_MAX];\r
  struct __suio uio;\r
  struct __siov iov;\r
\r
  _DIAGASSERT(fp != NULL);\r
\r
  /* LINTED we don't play with buf */\r
  iov.iov_base = (void *)buf;\r
  uio.uio_iov = &iov;\r
  uio.uio_iovcnt = 1;\r
\r
  _SET_ORIENTATION(fp, 1);\r
  wcio = WCIO_GET(fp);\r
  if (wcio == 0) {\r
    errno = ENOMEM;\r
    return WEOF;\r
  }\r
\r
  wcio->wcio_ungetwc_inbuf = 0;\r
  st = &wcio->wcio_mbstate_out;\r
\r
  size = wcrtomb(buf, wc, st);\r
  if (size == (size_t)-1) {\r
    errno = EILSEQ;\r
    return WEOF;\r
  }\r
\r
  _DIAGASSERT(size != 0);\r
\r
  uio.uio_resid = (int)(iov.iov_len = size);\r
  if (__sfvwrite(fp, &uio)) {\r
    return WEOF;\r
  }\r
\r
  return (wint_t)wc;\r
}\r
\r
wint_t\r
fputwc(wchar_t wc, FILE *fp)\r
{\r
  wint_t r;\r
\r
  _DIAGASSERT(fp != NULL);\r
\r
  FLOCKFILE(fp);\r
  r = __fputwc_unlock(wc, fp);\r
  FUNLOCKFILE(fp);\r
\r
  return (r);\r
}\r