1/*
2 * CDDL HEADER START
3 *
4 * The contents of this file are subject to the terms of the
5 * Common Development and Distribution License (the "License").
6 * You may not use this file except in compliance with the License.
7 *
8 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9 * or http://www.opensolaris.org/os/licensing.
10 * See the License for the specific language governing permissions
11 * and limitations under the License.
12 *
13 * When distributing Covered Code, include this CDDL HEADER in each
14 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15 * If applicable, add the following below this CDDL HEADER, with the
16 * fields enclosed by brackets "[]" replaced with your own identifying
17 * information: Portions Copyright [yyyy] [name of copyright owner]
18 *
19 * CDDL HEADER END
20 */
21
22/*
23 * Copyright 2008 Sun Microsystems, Inc.  All rights reserved.
24 * Use is subject to license terms.
25 */
26/*
27 * Copyright 2010 Nexenta Systems, Inc.  All rights reserved.
28 * Use is subject to license terms.
29 */
30
31
32#include "lint.h"
33#include "file64.h"
34#include <mtlib.h>
35#include <stdio.h>
36#include <stdarg.h>
37#include <errno.h>
38#include <thread.h>
39#include <synch.h>
40#include <values.h>
41#include <wchar.h>
42#include "print.h"
43#include "stdiom.h"
44#include <sys/types.h>
45#include "libc.h"
46#include "mse.h"
47
48/*
49 * 32-bit shadow functions _wprintf_c89(), _fwprintf_c89(), _swprintf_c89()
50 * are included here.
51 * When using the c89 compiler to build 32-bit applications, the size
52 * of intmax_t is 32-bits, otherwise the size of intmax_t is 64-bits.
53 * The shadow function uses 32-bit size of intmax_t for j conversion.
54 * The #pragma redefine_extname in <stdio.h> selects the proper routine
55 * at compile time for the user application.
56 * NOTE: the shadow functions only exist in the 32-bit library.
57 */
58
59int
60wprintf(const wchar_t *format, ...)
61{
62	ssize_t	count;
63	rmutex_t	*lk;
64	va_list	ap;
65
66	va_start(ap, format);
67	FLOCKFILE(lk, stdout);
68
69	if (GET_NO_MODE(stdout))
70		_setorientation(stdout, _WC_MODE);
71
72	if (!(stdout->_flag & _IOWRT)) {
73		/* if no write flag */
74		if (stdout->_flag & _IORW) {
75			/* if ok, cause read-write */
76			stdout->_flag |= _IOWRT;
77		} else {
78			/* else error */
79			errno = EBADF;
80			FUNLOCKFILE(lk);
81			return (EOF);
82		}
83	}
84
85	count = _wndoprnt(format, ap, stdout, 0);
86	va_end(ap);
87	if (FERROR(stdout) || count == EOF) {
88		FUNLOCKFILE(lk);
89		return (EOF);
90	}
91	FUNLOCKFILE(lk);
92	/* check for overflow */
93	if ((size_t)count > MAXINT) {
94		errno = EOVERFLOW;
95		return (EOF);
96	} else {
97		return ((int)count);
98	}
99}
100
101int
102fwprintf(FILE *iop, const wchar_t *format, ...)
103{
104	ssize_t	count;
105	rmutex_t	*lk;
106	va_list	ap;
107
108	va_start(ap, format);
109
110	FLOCKFILE(lk, iop);
111
112	if (GET_NO_MODE(iop))
113		_setorientation(iop, _WC_MODE);
114
115	if (!(iop->_flag & _IOWRT)) {
116		/* if no write flag */
117		if (iop->_flag & _IORW) {
118			/* if ok, cause read-write */
119			iop->_flag |= _IOWRT;
120		} else {
121			/* else error */
122			errno = EBADF;
123			FUNLOCKFILE(lk);
124			return (EOF);
125		}
126	}
127
128	count = _wndoprnt(format, ap, iop, 0);
129	va_end(ap);
130	if (FERROR(iop) || count == EOF) {
131		FUNLOCKFILE(lk);
132		return (EOF);
133	}
134	FUNLOCKFILE(lk);
135	/* check for overflow */
136	if ((size_t)count > MAXINT) {
137		errno = EOVERFLOW;
138		return (EOF);
139	} else {
140		return ((int)count);
141	}
142}
143
144int
145swprintf(wchar_t *string, size_t n, const wchar_t *format, ...)
146{
147	ssize_t	count;
148	FILE	siop;
149	wchar_t	*wp;
150	va_list	ap;
151
152	if (n == 0)
153		return (EOF);
154	siop._cnt = (ssize_t)n - 1;
155	siop._base = siop._ptr = (unsigned char *)string;
156	siop._flag = _IOREAD;
157
158	va_start(ap, format);
159	count = _wndoprnt(format, ap, &siop, 0);
160	va_end(ap);
161	wp = (wchar_t *)(uintptr_t)siop._ptr;
162	*wp = L'\0';
163	if (count == EOF) {
164		return (EOF);
165	}
166	/* check for overflow */
167	if ((size_t)count > MAXINT) {
168		errno = EOVERFLOW;
169		return (EOF);
170	} else {
171		return ((int)count);
172	}
173}
174
175#ifndef _LP64
176
177int
178_wprintf_c89(const wchar_t *format, ...)
179{
180	ssize_t	count;
181	va_list	ap;
182
183	va_start(ap, format);
184	count = _vwprintf_c89(format, ap);
185	va_end(ap);
186	return ((int)count);
187}
188
189int
190_fwprintf_c89(FILE *iop, const wchar_t *format, ...)
191{
192	ssize_t	count;
193	va_list	ap;
194
195	va_start(ap, format);
196	count = _vfwprintf_c89(iop, format, ap);
197	va_end(ap);
198	return ((int)count);
199}
200
201int
202_swprintf_c89(wchar_t *string, size_t n, const wchar_t *format, ...)
203{
204	ssize_t	count;
205	va_list	ap;
206
207	va_start(ap, format);
208	count = _vswprintf_c89(string, n, format, ap);
209	va_end(ap);
210	return ((int)count);
211}
212
213#endif	/* _LP64 */
214