usr/src/lib/libc/port/print/vwprintf.c

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