usr/src/lib/libc/port/locale/fputwc.c

   1 /*
   2  * Copyright 2013 Garrett D'Amore <garrett@damore.org>
   3  * Copyright (c) 2002-2004 Tim J. Robbins.
   4  * All rights reserved.
   5  *
   6  * Redistribution and use in source and binary forms, with or without
   7  * modification, are permitted provided that the following conditions
   8  * are met:
   9  * 1. Redistributions of source code must retain the above copyright
  10  *    notice, this list of conditions and the following disclaimer.
  11  * 2. Redistributions in binary form must reproduce the above copyright
  12  *    notice, this list of conditions and the following disclaimer in the
  13  *    documentation and/or other materials provided with the distribution.
  14  *
  15  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
  16  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  17  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  18  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
  19  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  20  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  21  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  22  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  23  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  24  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  25  * SUCH DAMAGE.
  26  */
  27
  28 /*
  29  * Copyright 2010 Nexenta Systems, Inc.  All rights reserved.
  30  * Use is subject to license terms.
  31  */
  32
  33 #include "lint.h"
  34 #include "file64.h"
  35 #include "mtlib.h"
  36 #include "mse_int.h"
  37 #include <errno.h>
  38 #include <limits.h>
  39 #include <stdio.h>
  40 #include <stdlib.h>
  41 #include <wchar.h>
  42 #include <synch.h>
  43 #include "mblocal.h"
  44 #include "stdiom.h"
  45 #include "mse.h"
  46
  47 #pragma weak    _putwc = putwc
  48
  49 /*
  50  * FreeBSD had both a MT safe and non-MT safe version.  For whatever reason,
  51  * we don't need the non-MT safe version.  We do this because its faster,
  52  * since we don't have to lock the file while doing the potentially expensive
  53  * conversion from wide to mb.
  54  */
  55 static wint_t
  56 __fputwc_impl(wchar_t wc, FILE *fp)
  57 {
  58         char buf[MB_LEN_MAX];
  59         size_t          i, len;
  60         rmutex_t        *mx;
  61
  62         /* If we are given WEOF, then we have to stop */
  63         if (wc == WEOF)
  64                 return (WEOF);
  65
  66         if (MB_CUR_MAX == 1 && wc > 0 && wc <= UCHAR_MAX) {
  67                 /*
  68                  * Assume single-byte locale with no special encoding.
  69                  */
  70                 *buf = (unsigned char)wc;
  71                 len = 1;
  72         } else {
  73                 /*
  74                  * FreeBSD used restartable wcrtomb.  I think we can use
  75                  * the simpler wctomb form here.  We should have a complete
  76                  * decode.
  77                  */
  78                 if ((len = wctomb(buf, wc)) == (size_t)-1) {
  79                         fp->_flag |= _IOERR;
  80                         errno = EILSEQ;
  81                         return (WEOF);
  82                 }
  83         }
  84
  85         FLOCKFILE(mx, fp);
  86         if (GET_NO_MODE(fp)) {
  87                 _setorientation(fp, _WC_MODE);
  88         }
  89         for (i = 0; i < len; i++) {
  90                 if (PUTC((unsigned char)buf[i], fp) == EOF) {
  91                         FUNLOCKFILE(mx);
  92                         return (WEOF);
  93                 }
  94         }
  95         FUNLOCKFILE(mx);
  96         return ((wint_t)wc);
  97 }
  98
  99 wint_t
 100 fputwc(wchar_t wc, FILE *fp)
 101 {
 102         return (__fputwc_impl(wc, fp));
 103 }
 104
 105 wint_t
 106 putwc(wchar_t wc, FILE *fp)
 107 {
 108         return (__fputwc_impl(wc, fp));
 109 }