1 /*-
2 * Copyright (c) 2002-2004 Tim J. Robbins.
3 * All rights reserved.
4 *
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions
7 * are met:
8 * 1. Redistributions of source code must retain the above copyright
9 * notice, this list of conditions and the following disclaimer.
10 * 2. Redistributions in binary form must reproduce the above copyright
11 * notice, this list of conditions and the following disclaimer in the
12 * documentation and/or other materials provided with the distribution.
13 *
14 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
15 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
16 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
17 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
18 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
19 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
20 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
21 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
22 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
23 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
24 * SUCH DAMAGE.
25 */
26
27 /*
28 FUNCTION
29 <<fputws>>, <<fputws_unlocked>>---write a wide character string in a file or stream
30
31 INDEX
32 fputws
33 INDEX
34 fputws_unlocked
35 INDEX
36 _fputws_r
37 INDEX
38 _fputws_unlocked_r
39
40 SYNOPSIS
41 #include <wchar.h>
42 int fputws(const wchar_t *__restrict <[ws]>, FILE *__restrict <[fp]>);
43
44 #define _GNU_SOURCE
45 #include <wchar.h>
46 int fputws_unlocked(const wchar_t *__restrict <[ws]>, FILE *__restrict <[fp]>);
47
48 #include <wchar.h>
49 int fputws( const wchar_t *<[ws]>,
50 FILE *<[fp]>);
51
52 #include <wchar.h>
53 int fputws_unlocked( const wchar_t *<[ws]>,
54 FILE *<[fp]>);
55
56 DESCRIPTION
57 <<fputws>> writes the wide character string at <[ws]> (but without the
58 trailing null) to the file or stream identified by <[fp]>.
59
60 <<fputws_unlocked>> is a non-thread-safe version of <<fputws>>.
61 <<fputws_unlocked>> may only safely be used within a scope
62 protected by flockfile() (or ftrylockfile()) and funlockfile(). This
63 function may safely be used in a multi-threaded program if and only
64 if they are called while the invoking thread owns the (FILE *)
65 object, as is the case after a successful call to the flockfile() or
66 ftrylockfile() functions. If threads are disabled, then
67 <<fputws_unlocked>> is equivalent to <<fputws>>.
68
69 <<_fputws_r>> and <<_fputws_unlocked_r>> are simply reentrant versions of the
70 above that take an additional reentrant struct pointer argument: <[ptr]>.
71
72 RETURNS
73 If successful, the result is a non-negative integer; otherwise, the result
74 is <<-1>> to indicate an error.
75
76 PORTABILITY
77 <<fputws>> is required by C99 and POSIX.1-2001.
78
79 <<fputws_unlocked>> is a GNU extension.
80 */
81
82 #define _DEFAULT_SOURCE
83 #include <_ansi.h>
84 #include <errno.h>
85 #include <limits.h>
86 #include <stdio.h>
87 #include <wchar.h>
88 #include "fvwrite.h"
89 #include "local.h"
90
91 #ifdef __IMPL_UNLOCKED__
92 #define _fputws_r _fputws_unlocked_r
93 #define fputws fputws_unlocked
94 #endif
95
96 int
fputws(const wchar_t * ws,FILE * fp)97 fputws (
98 const wchar_t *ws,
99 FILE *fp)
100 {
101 size_t nbytes;
102 char buf[BUFSIZ];
103 #ifdef _FVWRITE_IN_STREAMIO
104 struct __suio uio;
105 struct __siov iov;
106
107 _newlib_flockfile_start (fp);
108 if (ORIENT (fp, 1) != 1)
109 goto error;
110 if (cantwrite (ptr, fp) != 0)
111 goto error;
112 uio.uio_iov = &iov;
113 uio.uio_iovcnt = 1;
114 iov.iov_base = buf;
115 do
116 {
117 nbytes = wcsrtombs(buf, &ws, sizeof (buf), &fp->_mbstate);
118 if (nbytes == (size_t) -1)
119 goto error;
120 iov.iov_len = uio.uio_resid = nbytes;
121 if (_sfvwrite( fp, &uio) != 0)
122 goto error;
123 }
124 while (ws != NULL);
125 _newlib_flockfile_exit (fp);
126 return (0);
127
128 error:
129 _newlib_flockfile_end (fp);
130 return (-1);
131 #else
132 _newlib_flockfile_start (fp);
133 if (cantwrite (ptr, fp) != 0)
134 goto error;
135
136 do
137 {
138 size_t i = 0;
139 nbytes = wcsrtombs (buf, &ws, sizeof (buf), &fp->_mbstate);
140 if (nbytes == (size_t) -1)
141 goto error;
142 while (i < nbytes)
143 {
144 if (__swputc(buf[i], fp) == EOF)
145 goto error;
146 i++;
147 }
148 }
149 while (ws != NULL);
150 _newlib_flockfile_exit (fp);
151 return (0);
152
153 error:
154 _newlib_flockfile_end (fp);
155 return (-1);
156 #endif
157 }
158
