fputwc.c revision 1.4 1 1.4 lukem /* $NetBSD: fputwc.c,v 1.4 2005/06/12 05:21:27 lukem Exp $ */
2 1.1 yamt
3 1.1 yamt /*-
4 1.1 yamt * Copyright (c)2001 Citrus Project,
5 1.1 yamt * All rights reserved.
6 1.1 yamt *
7 1.1 yamt * Redistribution and use in source and binary forms, with or without
8 1.1 yamt * modification, are permitted provided that the following conditions
9 1.1 yamt * are met:
10 1.1 yamt * 1. Redistributions of source code must retain the above copyright
11 1.1 yamt * notice, this list of conditions and the following disclaimer.
12 1.1 yamt * 2. Redistributions in binary form must reproduce the above copyright
13 1.1 yamt * notice, this list of conditions and the following disclaimer in the
14 1.1 yamt * documentation and/or other materials provided with the distribution.
15 1.1 yamt *
16 1.1 yamt * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
17 1.1 yamt * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
18 1.1 yamt * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
19 1.1 yamt * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
20 1.1 yamt * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
21 1.1 yamt * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
22 1.1 yamt * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
23 1.1 yamt * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
24 1.1 yamt * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
25 1.1 yamt * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
26 1.1 yamt * SUCH DAMAGE.
27 1.1 yamt *
28 1.1 yamt * $Citrus$
29 1.1 yamt */
30 1.1 yamt
31 1.4 lukem #include <sys/cdefs.h>
32 1.4 lukem #if defined(LIBC_SCCS) && !defined(lint)
33 1.4 lukem __RCSID("$NetBSD: fputwc.c,v 1.4 2005/06/12 05:21:27 lukem Exp $");
34 1.4 lukem #endif /* LIBC_SCCS and not lint */
35 1.4 lukem
36 1.1 yamt #include <assert.h>
37 1.1 yamt #include <errno.h>
38 1.1 yamt #include <limits.h>
39 1.1 yamt #include <stdio.h>
40 1.1 yamt #include <wchar.h>
41 1.2 thorpej #include "reentrant.h"
42 1.1 yamt #include "local.h"
43 1.1 yamt #include "fvwrite.h"
44 1.1 yamt
45 1.1 yamt wint_t
46 1.3 tshiozak __fputwc_unlock(wchar_t wc, FILE *fp)
47 1.1 yamt {
48 1.1 yamt struct wchar_io_data *wcio;
49 1.1 yamt mbstate_t *st;
50 1.1 yamt size_t size;
51 1.1 yamt char buf[MB_LEN_MAX];
52 1.1 yamt struct __suio uio;
53 1.1 yamt struct __siov iov;
54 1.1 yamt
55 1.1 yamt _DIAGASSERT(fp != NULL);
56 1.1 yamt
57 1.1 yamt /* LINTED we don't play with buf */
58 1.1 yamt iov.iov_base = (void *)buf;
59 1.1 yamt uio.uio_iov = &iov;
60 1.1 yamt uio.uio_iovcnt = 1;
61 1.1 yamt
62 1.1 yamt _SET_ORIENTATION(fp, 1);
63 1.1 yamt wcio = WCIO_GET(fp);
64 1.1 yamt if (wcio == 0) {
65 1.1 yamt errno = ENOMEM;
66 1.1 yamt return WEOF;
67 1.1 yamt }
68 1.1 yamt
69 1.1 yamt wcio->wcio_ungetwc_inbuf = 0;
70 1.1 yamt st = &wcio->wcio_mbstate_out;
71 1.1 yamt
72 1.1 yamt size = wcrtomb(buf, wc, st);
73 1.1 yamt if (size == (size_t)-1) {
74 1.1 yamt errno = EILSEQ;
75 1.1 yamt return WEOF;
76 1.1 yamt }
77 1.1 yamt
78 1.1 yamt _DIAGASSERT(size != 0);
79 1.1 yamt
80 1.1 yamt uio.uio_resid = iov.iov_len = size;
81 1.1 yamt if (__sfvwrite(fp, &uio)) {
82 1.1 yamt return WEOF;
83 1.1 yamt }
84 1.1 yamt
85 1.3 tshiozak return (wint_t)wc;
86 1.3 tshiozak }
87 1.3 tshiozak
88 1.3 tshiozak wint_t
89 1.3 tshiozak fputwc(wchar_t wc, FILE *fp)
90 1.3 tshiozak {
91 1.3 tshiozak wint_t r;
92 1.3 tshiozak
93 1.3 tshiozak _DIAGASSERT(fp != NULL);
94 1.3 tshiozak
95 1.3 tshiozak FLOCKFILE(fp);
96 1.3 tshiozak r = __fputwc_unlock(wc, fp);
97 1.1 yamt FUNLOCKFILE(fp);
98 1.1 yamt
99 1.3 tshiozak return (r);
100 1.1 yamt }
101