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#pragma ident	"%Z%%M%	%I%	%E% SMI"
28
29#include "lint.h"
30#include "file64.h"
31#include <mtlib.h>
32#include <stdio.h>
33#include <stdarg.h>
34#include <errno.h>
35#include <thread.h>
36#include <synch.h>
37#include <values.h>
38#include <wchar.h>
39#include "print.h"
40#include "stdiom.h"
41#include <sys/types.h>
42#include "libc.h"
43#include "mse.h"
44
45/*
46 * 32-bit shadow functions _vwprintf_c89(), _vfwprintf_c89(),
47 * _vswprintf_c89() are included here.
48 * When using the c89 compiler to build 32-bit applications, the size
49 * of intmax_t is 32-bits, otherwise the size of intmax_t is 64-bits.
50 * The shadow function uses 32-bit size of intmax_t for j conversion.
51 * The #pragma redefine_extname in <wchar.h> selects the proper routine
52 * at compile time for the user application.
53 * NOTE: shadow functions only exist in the 32-bit library.
54 */
55
56int
57#ifdef _C89_INTMAX32		/* _C89_INTMAX32 version in 32-bit libc only */
58_vwprintf_c89(const wchar_t *format, va_list ap)
59#else
60vwprintf(const wchar_t *format, va_list ap)
61#endif
62{
63	ssize_t	count;
64	rmutex_t	*lk;
65
66	FLOCKFILE(lk, stdout);
67
68	if (_set_orientation_wide(stdout, NULL, NULL, 0) == -1) {
69		errno = EBADF;
70		FUNLOCKFILE(lk);
71		return (EOF);
72	}
73	if (!(stdout->_flag & _IOWRT)) {
74		/* if no write flag */
75		if (stdout->_flag & _IORW) {
76			/* if ok, cause read-write */
77			stdout->_flag |= _IOWRT;
78		} else {
79			/* else error */
80			errno = EBADF;
81			FUNLOCKFILE(lk);
82			return (EOF);
83		}
84	}
85#ifdef _C89_INTMAX32
86	count = _wndoprnt(format, ap, stdout, _F_INTMAX32);
87#else
88	count = _wndoprnt(format, ap, stdout, 0);
89#endif  /* _C89_INTMAX32 */
90
91	if (FERROR(stdout) || count == EOF) {
92		FUNLOCKFILE(lk);
93		return (EOF);
94	}
95	FUNLOCKFILE(lk);
96	/* check for overflow */
97	if ((size_t)count > MAXINT) {
98		errno = EOVERFLOW;
99		return (EOF);
100	} else {
101		return ((int)count);
102	}
103}
104
105int
106#ifdef _C89_INTMAX32		/* _C89_INTMAX32 version in 32-bit libc only */
107_vfwprintf_c89(FILE *iop, const wchar_t *format, va_list ap)
108#else
109vfwprintf(FILE *iop, const wchar_t *format, va_list ap)
110#endif
111{
112	ssize_t	count;
113	rmutex_t	*lk;
114
115	FLOCKFILE(lk, iop);
116
117	if (_set_orientation_wide(iop, NULL, NULL, 0) == -1) {
118		errno = EBADF;
119		FUNLOCKFILE(lk);
120		return (EOF);
121	}
122
123	if (!(iop->_flag & _IOWRT)) {
124		/* if no write flag */
125		if (iop->_flag & _IORW) {
126			/* if ok, cause read-write */
127			iop->_flag |= _IOWRT;
128		} else {
129			/* else error */
130			errno = EBADF;
131			FUNLOCKFILE(lk);
132			return (EOF);
133		}
134	}
135#ifdef _C89_INTMAX32
136	count = _wndoprnt(format, ap, iop, _F_INTMAX32);
137#else
138	count = _wndoprnt(format, ap, iop, 0);
139#endif
140	if (FERROR(iop) || count == EOF) {
141		FUNLOCKFILE(lk);
142		return (EOF);
143	}
144	FUNLOCKFILE(lk);
145	/* check for overflow */
146	if ((size_t)count > MAXINT) {
147		errno = EOVERFLOW;
148		return (EOF);
149	} else {
150		return ((int)count);
151	}
152}
153
154int
155#ifdef _C89_INTMAX32		/* _C89_INTMAX32 version in 32-bit libc only */
156_vswprintf_c89(wchar_t *string, size_t n, const wchar_t *format, va_list ap)
157#else
158vswprintf(wchar_t *string, size_t n, const wchar_t *format, va_list ap)
159#endif
160{
161	ssize_t	count;
162	FILE	siop;
163	wchar_t	*wp;
164
165	if (n == 0)
166		return (EOF);
167
168	siop._cnt = (ssize_t)n - 1;
169	siop._base = siop._ptr = (unsigned char *)string;
170	siop._flag = _IOREAD;
171
172#ifdef _C89_INTMAX32
173	count = _wndoprnt(format, ap, &siop, _F_INTMAX32);
174#else
175	count = _wndoprnt(format, ap, &siop, 0);
176#endif
177	wp = (wchar_t *)(uintptr_t)siop._ptr;
178	*wp = L'\0';
179	if (count == EOF) {
180		return (EOF);
181	}
182	/* check for overflow */
183	if ((size_t)count > MAXINT) {
184		errno = EOVERFLOW;
185		return (EOF);
186	} else {
187		return ((int)count);
188	}
189}
190