/a00969_source.html
HTML | 1818 lines | 1817 code | 0 blank | 1 comment | 0 complexity | 2f637c0bbe28038b0294f93c0192637c MD5 | raw file
- <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
- <html xmlns="http://www.w3.org/1999/xhtml">
- <head>
- <meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
- <title>Contiki 2.5: cpu/stm32w108/e_stdio/src/_SP_vfprintf.c Source File</title>
- <link href="tabs.css" rel="stylesheet" type="text/css"/>
- <link href="doxygen.css" rel="stylesheet" type="text/css"/>
- </head>
- <body>
- <!-- Generated by Doxygen 1.6.1 -->
- <div class="navigation" id="top">
- <div class="tabs">
- <ul>
- <li><a href="main.html"><span>Main Page</span></a></li>
- <li><a href="pages.html"><span>Related Pages</span></a></li>
- <li><a href="modules.html"><span>Modules</span></a></li>
- <li><a href="annotated.html"><span>Data Structures</span></a></li>
- <li class="current"><a href="files.html"><span>Files</span></a></li>
- <li><a href="dirs.html"><span>Directories</span></a></li>
- <li><a href="examples.html"><span>Examples</span></a></li>
- </ul>
- </div>
- <div class="tabs">
- <ul>
- <li><a href="files.html"><span>File List</span></a></li>
- <li><a href="globals.html"><span>Globals</span></a></li>
- </ul>
- </div>
- <div class="navpath"><a class="el" href="dir_2bb2cfd8296a7c3e25e97aa2e3d0a212.html">cpu</a> » <a class="el" href="dir_e68658a80db834fb0d1d37b2918a44a9.html">stm32w108</a> » <a class="el" href="dir_3f7decbb5751dc5c993c752361ce029c.html">e_stdio</a> » <a class="el" href="dir_93ef7220dffdb5a19e30c8138778adf2.html">src</a>
- </div>
- </div>
- <div class="contents">
- <h1>_SP_vfprintf.c</h1><div class="fragment"><pre class="fragment"><a name="l00001"></a>00001 <span class="comment">/*</span>
- <a name="l00002"></a>00002 <span class="comment">FUNCTION</span>
- <a name="l00003"></a>00003 <span class="comment"><<vprintf>>, <<vfprintf>>, <<vsprintf>>---format argument list</span>
- <a name="l00004"></a>00004 <span class="comment"></span>
- <a name="l00005"></a>00005 <span class="comment">INDEX</span>
- <a name="l00006"></a>00006 <span class="comment"> vprintf</span>
- <a name="l00007"></a>00007 <span class="comment">INDEX</span>
- <a name="l00008"></a>00008 <span class="comment"> vfprintf</span>
- <a name="l00009"></a>00009 <span class="comment">INDEX</span>
- <a name="l00010"></a>00010 <span class="comment"> vsprintf</span>
- <a name="l00011"></a>00011 <span class="comment">INDEX</span>
- <a name="l00012"></a>00012 <span class="comment"> vsnprintf</span>
- <a name="l00013"></a>00013 <span class="comment"></span>
- <a name="l00014"></a>00014 <span class="comment">ANSI_SYNOPSIS</span>
- <a name="l00015"></a>00015 <span class="comment"> #include <stdio.h></span>
- <a name="l00016"></a>00016 <span class="comment"> #include <stdarg.h></span>
- <a name="l00017"></a>00017 <span class="comment"> int vprintf(const char *<[fmt]>, va_list <[list]>);</span>
- <a name="l00018"></a>00018 <span class="comment"> int vfprintf(FILE *<[fp]>, const char *<[fmt]>, va_list <[list]>);</span>
- <a name="l00019"></a>00019 <span class="comment"> int vsprintf(char *<[str]>, const char *<[fmt]>, va_list <[list]>);</span>
- <a name="l00020"></a>00020 <span class="comment"> int vasprintf(char **<[strp]>, const char *<[fmt]>, va_list <[list]>);</span>
- <a name="l00021"></a>00021 <span class="comment"> int vsnprintf(char *<[str]>, size_t <[size]>, const char *<[fmt]>, va_list <[list]>);</span>
- <a name="l00022"></a>00022 <span class="comment"></span>
- <a name="l00023"></a>00023 <span class="comment"> int _vprintf_r(void *<[reent]>, const char *<[fmt]>,</span>
- <a name="l00024"></a>00024 <span class="comment"> va_list <[list]>);</span>
- <a name="l00025"></a>00025 <span class="comment"> int _vfprintf_r(void *<[reent]>, FILE *<[fp]>, const char *<[fmt]>,</span>
- <a name="l00026"></a>00026 <span class="comment"> va_list <[list]>);</span>
- <a name="l00027"></a>00027 <span class="comment"> int _vasprintf_r(void *<[reent]>, char **<[str]>, const char *<[fmt]>,</span>
- <a name="l00028"></a>00028 <span class="comment"> va_list <[list]>);</span>
- <a name="l00029"></a>00029 <span class="comment"> int _vsprintf_r(void *<[reent]>, char *<[str]>, const char *<[fmt]>,</span>
- <a name="l00030"></a>00030 <span class="comment"> va_list <[list]>);</span>
- <a name="l00031"></a>00031 <span class="comment"> int _vsnprintf_r(void *<[reent]>, char *<[str]>, size_t <[size]>, const char *<[fmt]>,</span>
- <a name="l00032"></a>00032 <span class="comment"> va_list <[list]>);</span>
- <a name="l00033"></a>00033 <span class="comment"></span>
- <a name="l00034"></a>00034 <span class="comment">TRAD_SYNOPSIS</span>
- <a name="l00035"></a>00035 <span class="comment"> #include <stdio.h></span>
- <a name="l00036"></a>00036 <span class="comment"> #include <varargs.h></span>
- <a name="l00037"></a>00037 <span class="comment"> int vprintf( <[fmt]>, <[list]>)</span>
- <a name="l00038"></a>00038 <span class="comment"> char *<[fmt]>;</span>
- <a name="l00039"></a>00039 <span class="comment"> va_list <[list]>;</span>
- <a name="l00040"></a>00040 <span class="comment"></span>
- <a name="l00041"></a>00041 <span class="comment"> int vfprintf(<[fp]>, <[fmt]>, <[list]>)</span>
- <a name="l00042"></a>00042 <span class="comment"> FILE *<[fp]>;</span>
- <a name="l00043"></a>00043 <span class="comment"> char *<[fmt]>;</span>
- <a name="l00044"></a>00044 <span class="comment"> va_list <[list]>;</span>
- <a name="l00045"></a>00045 <span class="comment"></span>
- <a name="l00046"></a>00046 <span class="comment"> int vasprintf(<[strp]>, <[fmt]>, <[list]>)</span>
- <a name="l00047"></a>00047 <span class="comment"> char **<[strp]>;</span>
- <a name="l00048"></a>00048 <span class="comment"> char *<[fmt]>;</span>
- <a name="l00049"></a>00049 <span class="comment"> va_list <[list]>;</span>
- <a name="l00050"></a>00050 <span class="comment"></span>
- <a name="l00051"></a>00051 <span class="comment"> int vsprintf(<[str]>, <[fmt]>, <[list]>)</span>
- <a name="l00052"></a>00052 <span class="comment"> char *<[str]>;</span>
- <a name="l00053"></a>00053 <span class="comment"> char *<[fmt]>;</span>
- <a name="l00054"></a>00054 <span class="comment"> va_list <[list]>;</span>
- <a name="l00055"></a>00055 <span class="comment"></span>
- <a name="l00056"></a>00056 <span class="comment"> int vsnprintf(<[str]>, <[size]>, <[fmt]>, <[list]>)</span>
- <a name="l00057"></a>00057 <span class="comment"> char *<[str]>;</span>
- <a name="l00058"></a>00058 <span class="comment"> size_t <[size]>;</span>
- <a name="l00059"></a>00059 <span class="comment"> char *<[fmt]>;</span>
- <a name="l00060"></a>00060 <span class="comment"> va_list <[list]>;</span>
- <a name="l00061"></a>00061 <span class="comment"></span>
- <a name="l00062"></a>00062 <span class="comment"> int _vprintf_r(<[reent]>, <[fmt]>, <[list]>)</span>
- <a name="l00063"></a>00063 <span class="comment"> char *<[reent]>;</span>
- <a name="l00064"></a>00064 <span class="comment"> char *<[fmt]>;</span>
- <a name="l00065"></a>00065 <span class="comment"> va_list <[list]>;</span>
- <a name="l00066"></a>00066 <span class="comment"></span>
- <a name="l00067"></a>00067 <span class="comment"> int _vfprintf_r(<[reent]>, <[fp]>, <[fmt]>, <[list]>)</span>
- <a name="l00068"></a>00068 <span class="comment"> char *<[reent]>;</span>
- <a name="l00069"></a>00069 <span class="comment"> FILE *<[fp]>;</span>
- <a name="l00070"></a>00070 <span class="comment"> char *<[fmt]>;</span>
- <a name="l00071"></a>00071 <span class="comment"> va_list <[list]>;</span>
- <a name="l00072"></a>00072 <span class="comment"></span>
- <a name="l00073"></a>00073 <span class="comment"> int _vasprintf_r(<[reent]>, <[strp]>, <[fmt]>, <[list]>)</span>
- <a name="l00074"></a>00074 <span class="comment"> char *<[reent]>;</span>
- <a name="l00075"></a>00075 <span class="comment"> char **<[strp]>;</span>
- <a name="l00076"></a>00076 <span class="comment"> char *<[fmt]>;</span>
- <a name="l00077"></a>00077 <span class="comment"> va_list <[list]>;</span>
- <a name="l00078"></a>00078 <span class="comment"></span>
- <a name="l00079"></a>00079 <span class="comment"> int _vsprintf_r(<[reent]>, <[str]>, <[fmt]>, <[list]>)</span>
- <a name="l00080"></a>00080 <span class="comment"> char *<[reent]>;</span>
- <a name="l00081"></a>00081 <span class="comment"> char *<[str]>;</span>
- <a name="l00082"></a>00082 <span class="comment"> char *<[fmt]>;</span>
- <a name="l00083"></a>00083 <span class="comment"> va_list <[list]>;</span>
- <a name="l00084"></a>00084 <span class="comment"></span>
- <a name="l00085"></a>00085 <span class="comment"> int _vsnprintf_r(<[reent]>, <[str]>, <[size]>, <[fmt]>, <[list]>)</span>
- <a name="l00086"></a>00086 <span class="comment"> char *<[reent]>;</span>
- <a name="l00087"></a>00087 <span class="comment"> char *<[str]>;</span>
- <a name="l00088"></a>00088 <span class="comment"> size_t <[size]>;</span>
- <a name="l00089"></a>00089 <span class="comment"> char *<[fmt]>;</span>
- <a name="l00090"></a>00090 <span class="comment"> va_list <[list]>;</span>
- <a name="l00091"></a>00091 <span class="comment"></span>
- <a name="l00092"></a>00092 <span class="comment">DESCRIPTION</span>
- <a name="l00093"></a>00093 <span class="comment"><<vprintf>>, <<vfprintf>>, <<vasprintf>>, <<vsprintf>> and <<vsnprintf>> are </span>
- <a name="l00094"></a>00094 <span class="comment">(respectively) variants of <<printf>>, <<fprintf>>, <<asprintf>>, <<sprintf>>,</span>
- <a name="l00095"></a>00095 <span class="comment">and <<snprintf>>. They differ only in allowing their caller to pass the </span>
- <a name="l00096"></a>00096 <span class="comment">variable argument list as a <<va_list>> object (initialized by <<va_start>>) </span>
- <a name="l00097"></a>00097 <span class="comment">rather than directly accepting a variable number of arguments.</span>
- <a name="l00098"></a>00098 <span class="comment"></span>
- <a name="l00099"></a>00099 <span class="comment">RETURNS</span>
- <a name="l00100"></a>00100 <span class="comment">The return values are consistent with the corresponding functions:</span>
- <a name="l00101"></a>00101 <span class="comment"><<vasprintf>>/<<vsprintf>> returns the number of bytes in the output string,</span>
- <a name="l00102"></a>00102 <span class="comment">save that the concluding <<NULL>> is not counted.</span>
- <a name="l00103"></a>00103 <span class="comment"><<vprintf>> and <<vfprintf>> return the number of characters transmitted.</span>
- <a name="l00104"></a>00104 <span class="comment">If an error occurs, <<vprintf>> and <<vfprintf>> return <<EOF>> and</span>
- <a name="l00105"></a>00105 <span class="comment"><<vasprintf>> returns -1. No error returns occur for <<vsprintf>>.</span>
- <a name="l00106"></a>00106 <span class="comment"></span>
- <a name="l00107"></a>00107 <span class="comment">PORTABILITY</span>
- <a name="l00108"></a>00108 <span class="comment">ANSI C requires all three functions.</span>
- <a name="l00109"></a>00109 <span class="comment"></span>
- <a name="l00110"></a>00110 <span class="comment">Supporting OS subroutines required: <<close>>, <<fstat>>, <<isatty>>,</span>
- <a name="l00111"></a>00111 <span class="comment"><<lseek>>, <<read>>, <<sbrk>>, <<write>>.</span>
- <a name="l00112"></a>00112 <span class="comment">*/</span>
- <a name="l00113"></a>00113
- <a name="l00114"></a>00114 <span class="comment">/*</span>
- <a name="l00115"></a>00115 <span class="comment"> * Copyright (c) 1990 The Regents of the University of California.</span>
- <a name="l00116"></a>00116 <span class="comment"> * All rights reserved.</span>
- <a name="l00117"></a>00117 <span class="comment"> *</span>
- <a name="l00118"></a>00118 <span class="comment"> * This code is derived from software contributed to Berkeley by</span>
- <a name="l00119"></a>00119 <span class="comment"> * Chris Torek.</span>
- <a name="l00120"></a>00120 <span class="comment"> *</span>
- <a name="l00121"></a>00121 <span class="comment"> * Redistribution and use in source and binary forms, with or without</span>
- <a name="l00122"></a>00122 <span class="comment"> * modification, are permitted provided that the following conditions</span>
- <a name="l00123"></a>00123 <span class="comment"> * are met:</span>
- <a name="l00124"></a>00124 <span class="comment"> * 1. Redistributions of source code must retain the above copyright</span>
- <a name="l00125"></a>00125 <span class="comment"> * notice, this list of conditions and the following disclaimer.</span>
- <a name="l00126"></a>00126 <span class="comment"> * 2. Redistributions in binary form must reproduce the above copyright</span>
- <a name="l00127"></a>00127 <span class="comment"> * notice, this list of conditions and the following disclaimer in the</span>
- <a name="l00128"></a>00128 <span class="comment"> * documentation and/or other materials provided with the distribution.</span>
- <a name="l00129"></a>00129 <span class="comment"> * 3. All advertising materials mentioning features or use of this software</span>
- <a name="l00130"></a>00130 <span class="comment"> * must display the following acknowledgement:</span>
- <a name="l00131"></a>00131 <span class="comment"> * This product includes software developed by the University of</span>
- <a name="l00132"></a>00132 <span class="comment"> * California, Berkeley and its contributors.</span>
- <a name="l00133"></a>00133 <span class="comment"> * 4. Neither the name of the University nor the names of its contributors</span>
- <a name="l00134"></a>00134 <span class="comment"> * may be used to endorse or promote products derived from this software</span>
- <a name="l00135"></a>00135 <span class="comment"> * without specific prior written permission.</span>
- <a name="l00136"></a>00136 <span class="comment"> *</span>
- <a name="l00137"></a>00137 <span class="comment"> * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND</span>
- <a name="l00138"></a>00138 <span class="comment"> * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE</span>
- <a name="l00139"></a>00139 <span class="comment"> * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE</span>
- <a name="l00140"></a>00140 <span class="comment"> * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE</span>
- <a name="l00141"></a>00141 <span class="comment"> * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL</span>
- <a name="l00142"></a>00142 <span class="comment"> * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS</span>
- <a name="l00143"></a>00143 <span class="comment"> * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)</span>
- <a name="l00144"></a>00144 <span class="comment"> * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT</span>
- <a name="l00145"></a>00145 <span class="comment"> * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY</span>
- <a name="l00146"></a>00146 <span class="comment"> * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF</span>
- <a name="l00147"></a>00147 <span class="comment"> * SUCH DAMAGE.</span>
- <a name="l00148"></a>00148 <span class="comment"> */</span>
- <a name="l00149"></a>00149
- <a name="l00150"></a>00150 <span class="preprocessor">#if defined(LIBC_SCCS) && !defined(lint)</span>
- <a name="l00151"></a>00151 <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">char</span> *sccsid = <span class="stringliteral">"from: @(#)vfprintf.c 5.50 (Berkeley) 12/16/92"</span>;
- <a name="l00152"></a>00152 <span class="preprocessor">#endif </span><span class="comment">/* LIBC_SCCS and not lint */</span>
- <a name="l00153"></a>00153
- <a name="l00154"></a>00154 <span class="comment">/*</span>
- <a name="l00155"></a>00155 <span class="comment"> * Actual printf innards.</span>
- <a name="l00156"></a>00156 <span class="comment"> *</span>
- <a name="l00157"></a>00157 <span class="comment"> * This code is large and complicated...</span>
- <a name="l00158"></a>00158 <span class="comment"> */</span>
- <a name="l00159"></a>00159
- <a name="l00160"></a>00160
- <a name="l00161"></a>00161 <span class="preprocessor">#ifdef _SMALL_PRINTF</span>
- <a name="l00162"></a>00162 <span class="preprocessor"></span><span class="preprocessor">#define _NO_LONGDBL</span>
- <a name="l00163"></a>00163 <span class="preprocessor"></span><span class="preprocessor">#endif</span>
- <a name="l00164"></a>00164 <span class="preprocessor"></span>
- <a name="l00165"></a>00165
- <a name="l00166"></a>00166 <span class="preprocessor">#ifdef INTEGER_ONLY</span>
- <a name="l00167"></a>00167 <span class="preprocessor"></span><span class="preprocessor"> #define VFPRINTF vfiprintf</span>
- <a name="l00168"></a>00168 <span class="preprocessor"></span><span class="preprocessor"> #define _VFPRINTF_R _vfiprintf_r</span>
- <a name="l00169"></a>00169 <span class="preprocessor"></span><span class="preprocessor">#else</span>
- <a name="l00170"></a>00170 <span class="preprocessor"></span><span class="preprocessor"> #define VFPRINTF vfprintf</span>
- <a name="l00171"></a>00171 <span class="preprocessor"></span><span class="preprocessor"> #define _VFPRINTF_R _vfprintf_r</span>
- <a name="l00172"></a>00172 <span class="preprocessor"></span><span class="preprocessor"> #ifndef NO_FLOATING_POINT</span>
- <a name="l00173"></a>00173 <span class="preprocessor"></span><span class="preprocessor"> #define FLOATING_POINT</span>
- <a name="l00174"></a>00174 <span class="preprocessor"></span><span class="preprocessor"> #endif</span>
- <a name="l00175"></a>00175 <span class="preprocessor"></span><span class="preprocessor">#endif</span>
- <a name="l00176"></a>00176 <span class="preprocessor"></span>
- <a name="l00177"></a>00177 <span class="preprocessor">#define _NO_LONGLONG</span>
- <a name="l00178"></a>00178 <span class="preprocessor"></span><span class="preprocessor">#if defined WANT_PRINTF_LONG_LONG && defined __GNUC__</span>
- <a name="l00179"></a>00179 <span class="preprocessor"></span><span class="preprocessor"># undef _NO_LONGLONG</span>
- <a name="l00180"></a>00180 <span class="preprocessor"></span><span class="preprocessor">#endif</span>
- <a name="l00181"></a>00181 <span class="preprocessor"></span>
- <a name="l00182"></a>00182 <span class="preprocessor">#define _NO_POS_ARGS </span>
- <a name="l00183"></a>00183 <span class="preprocessor"></span><span class="preprocessor">#if defined WANT_IO_POS_ARGS</span>
- <a name="l00184"></a>00184 <span class="preprocessor"></span><span class="preprocessor"># undef _NO_POS_ARGS</span>
- <a name="l00185"></a>00185 <span class="preprocessor"></span><span class="preprocessor">#endif</span>
- <a name="l00186"></a>00186 <span class="preprocessor"></span>
- <a name="l00187"></a>00187 <span class="preprocessor">#include <_ansi.h></span>
- <a name="l00188"></a>00188 <span class="preprocessor">#include <stdio.h></span>
- <a name="l00189"></a>00189 <span class="preprocessor">#include <stdlib.h></span>
- <a name="l00190"></a>00190 <span class="preprocessor">#include <string.h></span>
- <a name="l00191"></a>00191 <span class="preprocessor">#include <limits.h></span>
- <a name="l00192"></a>00192 <span class="preprocessor">#include <reent.h></span>
- <a name="l00193"></a>00193 <span class="preprocessor">#include <wchar.h></span>
- <a name="l00194"></a>00194 <span class="preprocessor">#include <string.h></span>
- <a name="l00195"></a>00195 <span class="preprocessor">#include <sys/lock.h></span>
- <a name="l00196"></a>00196
- <a name="l00197"></a>00197 <span class="preprocessor">#ifdef _HAVE_STDC</span>
- <a name="l00198"></a>00198 <span class="preprocessor"></span><span class="preprocessor">#include <stdarg.h></span>
- <a name="l00199"></a>00199 <span class="preprocessor">#else</span>
- <a name="l00200"></a>00200 <span class="preprocessor"></span><span class="preprocessor">#include <varargs.h></span>
- <a name="l00201"></a>00201 <span class="preprocessor">#endif</span>
- <a name="l00202"></a>00202 <span class="preprocessor"></span>
- <a name="l00203"></a>00203 <span class="preprocessor">#ifndef _SMALL_PRINTF</span>
- <a name="l00204"></a>00204 <span class="preprocessor"></span><span class="preprocessor"> #include "local.h"</span>
- <a name="l00205"></a>00205 <span class="preprocessor"> #include "fvwrite.h"</span>
- <a name="l00206"></a>00206 <span class="preprocessor">#else</span>
- <a name="l00207"></a>00207 <span class="preprocessor"></span><span class="preprocessor"> #define MAXBUFLOC 80</span>
- <a name="l00208"></a>00208 <span class="preprocessor"></span><span class="preprocessor">#endif</span>
- <a name="l00209"></a>00209 <span class="preprocessor"></span>
- <a name="l00210"></a>00210 <span class="preprocessor"> #include "vfieeefp.h"</span>
- <a name="l00211"></a>00211
- <a name="l00212"></a>00212 <span class="comment">/* Currently a test is made to see if long double processing is warranted.</span>
- <a name="l00213"></a>00213 <span class="comment"> This could be changed in the future should the _ldtoa_r code be</span>
- <a name="l00214"></a>00214 <span class="comment"> preferred over _dtoa_r. */</span>
- <a name="l00215"></a>00215 <span class="preprocessor">#define _NO_LONGDBL</span>
- <a name="l00216"></a>00216 <span class="preprocessor"></span><span class="preprocessor">#if defined WANT_IO_LONG_DBL && (LDBL_MANT_DIG > DBL_MANT_DIG)</span>
- <a name="l00217"></a>00217 <span class="preprocessor"></span><span class="preprocessor"># undef _NO_LONGDBL</span>
- <a name="l00218"></a>00218 <span class="preprocessor"></span><span class="preprocessor">#endif</span>
- <a name="l00219"></a>00219 <span class="preprocessor"></span>
- <a name="l00220"></a>00220
- <a name="l00221"></a>00221 <span class="preprocessor">#ifndef _SMALL_PRINTF</span>
- <a name="l00222"></a>00222 <span class="preprocessor"></span><span class="comment">/*</span>
- <a name="l00223"></a>00223 <span class="comment"> * Flush out all the vectors defined by the given uio,</span>
- <a name="l00224"></a>00224 <span class="comment"> * then reset it so that it can be reused.</span>
- <a name="l00225"></a>00225 <span class="comment"> */</span>
- <a name="l00226"></a>00226 <span class="keyword">static</span> <span class="keywordtype">int</span>
- <a name="l00227"></a>00227 __sprint(fp, uio)
- <a name="l00228"></a>00228 FILE *fp;
- <a name="l00229"></a>00229 register struct __suio *uio;
- <a name="l00230"></a>00230 {
- <a name="l00231"></a>00231 <span class="keyword">register</span> <span class="keywordtype">int</span> err;
- <a name="l00232"></a>00232
- <a name="l00233"></a>00233 <span class="keywordflow">if</span> (uio->uio_resid == 0) {
- <a name="l00234"></a>00234 uio->uio_iovcnt = 0;
- <a name="l00235"></a>00235 <span class="keywordflow">return</span> (0);
- <a name="l00236"></a>00236 }
- <a name="l00237"></a>00237 err = __sfvwrite(fp, uio);
- <a name="l00238"></a>00238 uio->uio_resid = 0;
- <a name="l00239"></a>00239 uio->uio_iovcnt = 0;
- <a name="l00240"></a>00240 <span class="keywordflow">return</span> (err);
- <a name="l00241"></a>00241 }
- <a name="l00242"></a>00242
- <a name="l00243"></a>00243 <span class="comment">/*</span>
- <a name="l00244"></a>00244 <span class="comment"> * Helper function for `fprintf to unbuffered unix file': creates a</span>
- <a name="l00245"></a>00245 <span class="comment"> * temporary buffer. We only work on write-only files; this avoids</span>
- <a name="l00246"></a>00246 <span class="comment"> * worries about ungetc buffers and so forth.</span>
- <a name="l00247"></a>00247 <span class="comment"> */</span>
- <a name="l00248"></a>00248 <span class="keyword">static</span> <span class="keywordtype">int</span>
- <a name="l00249"></a>00249 __sbprintf(fp, fmt, ap)
- <a name="l00250"></a>00250 register FILE *fp;
- <a name="l00251"></a>00251 const <span class="keywordtype">char</span> *fmt;
- <a name="l00252"></a>00252 va_list ap;
- <a name="l00253"></a>00253 {
- <a name="l00254"></a>00254 <span class="keywordtype">int</span> ret;
- <a name="l00255"></a>00255 FILE fake;
- <a name="l00256"></a>00256 <span class="keywordtype">unsigned</span> <span class="keywordtype">char</span> buf[BUFSIZ];
- <a name="l00257"></a>00257
- <a name="l00258"></a>00258 <span class="comment">/* copy the important variables */</span>
- <a name="l00259"></a>00259 fake._flags = fp->_flags & ~__SNBF;
- <a name="l00260"></a>00260 fake._file = fp->_file;
- <a name="l00261"></a>00261 fake._cookie = fp->_cookie;
- <a name="l00262"></a>00262 fake._write = fp->_write;
- <a name="l00263"></a>00263
- <a name="l00264"></a>00264 <span class="comment">/* set up the buffer */</span>
- <a name="l00265"></a>00265 fake._bf._base = fake._p = buf;
- <a name="l00266"></a>00266 fake._bf._size = fake._w = <span class="keyword">sizeof</span>(buf);
- <a name="l00267"></a>00267 fake._lbfsize = 0; <span class="comment">/* not actually used, but Just In Case */</span>
- <a name="l00268"></a>00268 <span class="preprocessor">#ifndef __SINGLE_THREAD__</span>
- <a name="l00269"></a>00269 <span class="preprocessor"></span> __lock_init_recursive (*(_LOCK_RECURSIVE_T *)&fake._lock);
- <a name="l00270"></a>00270 <span class="preprocessor">#endif</span>
- <a name="l00271"></a>00271 <span class="preprocessor"></span>
- <a name="l00272"></a>00272 <span class="comment">/* do the work, then copy any error status */</span>
- <a name="l00273"></a>00273 ret = VFPRINTF(&fake, fmt, ap);
- <a name="l00274"></a>00274 <span class="keywordflow">if</span> (ret >= 0 && fflush(&fake))
- <a name="l00275"></a>00275 ret = EOF;
- <a name="l00276"></a>00276 <span class="keywordflow">if</span> (fake._flags & __SERR)
- <a name="l00277"></a>00277 fp->_flags |= __SERR;
- <a name="l00278"></a>00278
- <a name="l00279"></a>00279 <span class="preprocessor">#ifndef __SINGLE_THREAD__</span>
- <a name="l00280"></a>00280 <span class="preprocessor"></span> __lock_close_recursive (*(_LOCK_RECURSIVE_T *)&fake._lock);
- <a name="l00281"></a>00281 <span class="preprocessor">#endif</span>
- <a name="l00282"></a>00282 <span class="preprocessor"></span> <span class="keywordflow">return</span> (ret);
- <a name="l00283"></a>00283 }
- <a name="l00284"></a>00284 <span class="preprocessor">#endif</span>
- <a name="l00285"></a>00285 <span class="preprocessor"></span>
- <a name="l00286"></a>00286
- <a name="l00287"></a>00287
- <a name="l00288"></a>00288 <span class="preprocessor">#ifdef FLOATING_POINT</span>
- <a name="l00289"></a>00289 <span class="preprocessor"></span><span class="preprocessor">#include <locale.h></span>
- <a name="l00290"></a>00290 <span class="preprocessor">#include <math.h></span>
- <a name="l00291"></a>00291 <span class="preprocessor">#include "floatio.h"</span>
- <a name="l00292"></a>00292
- <a name="l00293"></a>00293 <span class="preprocessor">#if ((MAXEXP+MAXFRACT+1) > MB_LEN_MAX)</span>
- <a name="l00294"></a>00294 <span class="preprocessor"></span><span class="preprocessor"># define BUF (MAXEXP+MAXFRACT+1) </span><span class="comment">/* + decimal point */</span>
- <a name="l00295"></a>00295 <span class="preprocessor">#else </span>
- <a name="l00296"></a>00296 <span class="preprocessor"></span><span class="preprocessor"># define BUF MB_LEN_MAX</span>
- <a name="l00297"></a>00297 <span class="preprocessor"></span><span class="preprocessor">#endif</span>
- <a name="l00298"></a>00298 <span class="preprocessor"></span>
- <a name="l00299"></a>00299 <span class="preprocessor">#define DEFPREC 6</span>
- <a name="l00300"></a>00300 <span class="preprocessor"></span>
- <a name="l00301"></a>00301 <span class="preprocessor">#ifdef _NO_LONGDBL</span>
- <a name="l00302"></a>00302 <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">char</span> *cvt _PARAMS((<span class="keyword">struct</span> _reent *, <span class="keywordtype">double</span>, <span class="keywordtype">int</span>, <span class="keywordtype">int</span>, <span class="keywordtype">char</span> *, <span class="keywordtype">int</span> *, <span class="keywordtype">int</span>, <span class="keywordtype">int</span> *));
- <a name="l00303"></a>00303 <span class="preprocessor">#else</span>
- <a name="l00304"></a>00304 <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">char</span> *cvt _PARAMS((<span class="keyword">struct</span> _reent *, _LONG_DOUBLE, <span class="keywordtype">int</span>, <span class="keywordtype">int</span>, <span class="keywordtype">char</span> *, <span class="keywordtype">int</span> *, <span class="keywordtype">int</span>, <span class="keywordtype">int</span> *));
- <a name="l00305"></a>00305 <span class="keyword">extern</span> <span class="keywordtype">int</span> _ldcheck _PARAMS((_LONG_DOUBLE *));
- <a name="l00306"></a>00306 <span class="preprocessor">#endif</span>
- <a name="l00307"></a>00307 <span class="preprocessor"></span>
- <a name="l00308"></a>00308 <span class="keyword">static</span> <span class="keywordtype">int</span> exponent _PARAMS((<span class="keywordtype">char</span> *, <span class="keywordtype">int</span>, <span class="keywordtype">int</span>));
- <a name="l00309"></a>00309
- <a name="l00310"></a>00310 <span class="preprocessor">#else </span><span class="comment">/* no FLOATING_POINT */</span>
- <a name="l00311"></a>00311
- <a name="l00312"></a>00312 <span class="preprocessor">#define BUF 40</span>
- <a name="l00313"></a>00313 <span class="preprocessor"></span>
- <a name="l00314"></a>00314 <span class="preprocessor">#endif </span><span class="comment">/* FLOATING_POINT */</span>
- <a name="l00315"></a>00315
- <a name="l00316"></a>00316 <span class="preprocessor">#ifndef _NO_LONGLONG</span>
- <a name="l00317"></a>00317 <span class="preprocessor"></span><span class="preprocessor">#define quad_t long long</span>
- <a name="l00318"></a>00318 <span class="preprocessor"></span><span class="preprocessor">#define u_quad_t unsigned long long</span>
- <a name="l00319"></a>00319 <span class="preprocessor"></span><span class="preprocessor">#else</span>
- <a name="l00320"></a>00320 <span class="preprocessor"></span><span class="preprocessor">#define quad_t long</span>
- <a name="l00321"></a>00321 <span class="preprocessor"></span><span class="preprocessor">#define u_quad_t unsigned long</span>
- <a name="l00322"></a>00322 <span class="preprocessor"></span><span class="preprocessor">#endif</span>
- <a name="l00323"></a>00323 <span class="preprocessor"></span>
- <a name="l00324"></a>00324 <span class="keyword">typedef</span> quad_t * quad_ptr_t;
- <a name="l00325"></a>00325 <span class="keyword">typedef</span> <span class="keywordtype">void</span> * void_ptr_t;
- <a name="l00326"></a>00326 <span class="keyword">typedef</span> <span class="keywordtype">char</span> * char_ptr_t;
- <a name="l00327"></a>00327 <span class="keyword">typedef</span> <span class="keywordtype">long</span> * long_ptr_t;
- <a name="l00328"></a>00328 <span class="keyword">typedef</span> <span class="keywordtype">int</span> * int_ptr_t;
- <a name="l00329"></a>00329 <span class="keyword">typedef</span> <span class="keywordtype">short</span> * short_ptr_t;
- <a name="l00330"></a>00330
- <a name="l00331"></a>00331 <span class="preprocessor">#ifndef _NO_POS_ARGS</span>
- <a name="l00332"></a>00332 <span class="preprocessor"></span><span class="preprocessor">#define MAX_POS_ARGS 32</span>
- <a name="l00333"></a>00333 <span class="preprocessor"></span>
- <a name="l00334"></a>00334 <span class="keyword">union </span>arg_val
- <a name="l00335"></a>00335 {
- <a name="l00336"></a>00336 <span class="keywordtype">int</span> val_int;
- <a name="l00337"></a>00337 u_int val_u_int;
- <a name="l00338"></a>00338 <span class="keywordtype">long</span> val_long;
- <a name="l00339"></a>00339 u_long val_u_long;
- <a name="l00340"></a>00340 <span class="keywordtype">float</span> val_float;
- <a name="l00341"></a>00341 <span class="keywordtype">double</span> val_double;
- <a name="l00342"></a>00342 _LONG_DOUBLE val__LONG_DOUBLE;
- <a name="l00343"></a>00343 int_ptr_t val_int_ptr_t;
- <a name="l00344"></a>00344 short_ptr_t val_short_ptr_t;
- <a name="l00345"></a>00345 long_ptr_t val_long_ptr_t;
- <a name="l00346"></a>00346 char_ptr_t val_char_ptr_t;
- <a name="l00347"></a>00347 quad_ptr_t val_quad_ptr_t;
- <a name="l00348"></a>00348 void_ptr_t val_void_ptr_t;
- <a name="l00349"></a>00349 quad_t val_quad_t;
- <a name="l00350"></a>00350 u_quad_t val_u_quad_t;
- <a name="l00351"></a>00351 wint_t val_wint_t;
- <a name="l00352"></a>00352 };
- <a name="l00353"></a>00353
- <a name="l00354"></a>00354 <span class="keyword">static</span> <span class="keyword">union </span>arg_val *get_arg (<span class="keyword">struct</span> _reent *data, <span class="keywordtype">int</span> n, <span class="keywordtype">char</span> *fmt,
- <a name="l00355"></a>00355 va_list *ap, <span class="keywordtype">int</span> *numargs, <span class="keyword">union</span> arg_val *args,
- <a name="l00356"></a>00356 <span class="keywordtype">int</span> *arg_type, <span class="keywordtype">char</span> **last_fmt);
- <a name="l00357"></a>00357 <span class="preprocessor">#endif </span><span class="comment">/* !_NO_POS_ARGS */</span>
- <a name="l00358"></a>00358
- <a name="l00359"></a>00359 <span class="comment">/*</span>
- <a name="l00360"></a>00360 <span class="comment"> * Macros for converting digits to letters and vice versa</span>
- <a name="l00361"></a>00361 <span class="comment"> */</span>
- <a name="l00362"></a>00362 <span class="preprocessor">#define to_digit(c) ((c) - '0')</span>
- <a name="l00363"></a>00363 <span class="preprocessor"></span><span class="preprocessor">#define is_digit(c) ((unsigned)to_digit(c) <= 9)</span>
- <a name="l00364"></a>00364 <span class="preprocessor"></span><span class="preprocessor">#define to_char(n) ((n) + '0')</span>
- <a name="l00365"></a>00365 <span class="preprocessor"></span>
- <a name="l00366"></a>00366 <span class="comment">/*</span>
- <a name="l00367"></a>00367 <span class="comment"> * Flags used during conversion.</span>
- <a name="l00368"></a>00368 <span class="comment"> */</span>
- <a name="l00369"></a>00369 <span class="preprocessor">#define ALT 0x001 </span><span class="comment">/* alternate form */</span>
- <a name="l00370"></a>00370 <span class="preprocessor">#define HEXPREFIX 0x002 </span><span class="comment">/* add 0x or 0X prefix */</span>
- <a name="l00371"></a>00371 <span class="preprocessor">#define LADJUST 0x004 </span><span class="comment">/* left adjustment */</span>
- <a name="l00372"></a>00372 <span class="preprocessor">#define LONGDBL 0x008 </span><span class="comment">/* long double */</span>
- <a name="l00373"></a>00373 <span class="preprocessor">#define LONGINT 0x010 </span><span class="comment">/* long integer */</span>
- <a name="l00374"></a>00374 <span class="preprocessor">#ifndef _NO_LONGLONG</span>
- <a name="l00375"></a>00375 <span class="preprocessor"></span><span class="preprocessor">#define QUADINT 0x020 </span><span class="comment">/* quad integer */</span>
- <a name="l00376"></a>00376 <span class="preprocessor">#else </span><span class="comment">/* ifdef _NO_LONGLONG, make QUADINT equivalent to LONGINT, so</span>
- <a name="l00377"></a>00377 <span class="comment"> that %lld behaves the same as %ld, not as %d, as expected if:</span>
- <a name="l00378"></a>00378 <span class="comment"> sizeof (long long) = sizeof long > sizeof int */</span>
- <a name="l00379"></a>00379 <span class="preprocessor">#define QUADINT LONGINT</span>
- <a name="l00380"></a>00380 <span class="preprocessor"></span><span class="preprocessor">#endif</span>
- <a name="l00381"></a>00381 <span class="preprocessor"></span><span class="preprocessor">#define SHORTINT 0x040 </span><span class="comment">/* short integer */</span>
- <a name="l00382"></a>00382 <span class="preprocessor">#define ZEROPAD 0x080 </span><span class="comment">/* zero (as opposed to blank) pad */</span>
- <a name="l00383"></a>00383 <span class="preprocessor">#define FPT 0x100 </span><span class="comment">/* Floating point number */</span>
- <a name="l00384"></a>00384
- <a name="l00385"></a>00385
- <a name="l00386"></a>00386 <span class="keywordtype">int</span> _EXFUN (_VFPRINTF_R, (<span class="keyword">struct</span> _reent *, FILE *, _CONST <span class="keywordtype">char</span> *, va_list));
- <a name="l00387"></a>00387
- <a name="l00388"></a>00388 <span class="keywordtype">int</span>
- <a name="l00389"></a>00389 _DEFUN (VFPRINTF, (fp, fmt0, ap),
- <a name="l00390"></a>00390 FILE * fp _AND
- <a name="l00391"></a>00391 _CONST <span class="keywordtype">char</span> *fmt0 _AND
- <a name="l00392"></a>00392 va_list ap)
- <a name="l00393"></a>00393 {
- <a name="l00394"></a>00394 <span class="keywordtype">int</span> result;
- <a name="l00395"></a>00395 _flockfile(fp);
- <a name="l00396"></a>00396 <span class="preprocessor">#ifndef _SMALL_PRINTF </span>
- <a name="l00397"></a>00397 <span class="preprocessor"></span> CHECK_INIT (fp);
- <a name="l00398"></a>00398 <span class="preprocessor">#endif</span>
- <a name="l00399"></a>00399 <span class="preprocessor"></span> result = _VFPRINTF_R (_REENT, fp, fmt0, ap);
- <a name="l00400"></a>00400 _funlockfile(fp);
- <a name="l00401"></a>00401 <span class="keywordflow">return</span> result;
- <a name="l00402"></a>00402 }
- <a name="l00403"></a>00403
- <a name="l00404"></a>00404
- <a name="l00405"></a>00405
- <a name="l00406"></a>00406 <span class="keywordtype">int</span>
- <a name="l00407"></a>00407 _DEFUN (_VFPRINTF_R, (data, fp, fmt0, ap),
- <a name="l00408"></a>00408 <span class="keyword">struct</span> _reent *data _AND
- <a name="l00409"></a>00409 FILE * fp _AND
- <a name="l00410"></a>00410 _CONST <span class="keywordtype">char</span> *fmt0 _AND
- <a name="l00411"></a>00411 va_list ap)
- <a name="l00412"></a>00412 {
- <a name="l00413"></a>00413 <span class="keyword">register</span> <span class="keywordtype">char</span> *fmt; <span class="comment">/* format string */</span>
- <a name="l00414"></a>00414 <span class="keyword">register</span> <span class="keywordtype">int</span> ch; <span class="comment">/* character from fmt */</span>
- <a name="l00415"></a>00415 <span class="keyword">register</span> <span class="keywordtype">int</span> n, m; <span class="comment">/* handy integers (short term usage) */</span>
- <a name="l00416"></a>00416 <span class="keyword">register</span> <span class="keywordtype">char</span> *cp; <span class="comment">/* handy char pointer (short term usage) */</span>
- <a name="l00417"></a>00417 <span class="keyword">register</span> <span class="keyword">struct </span>__siov *iovp;<span class="comment">/* for PRINT macro */</span>
- <a name="l00418"></a>00418 <span class="keyword">register</span> <span class="keywordtype">int</span> flags; <span class="comment">/* flags as above */</span>
- <a name="l00419"></a>00419 <span class="keywordtype">char</span> *fmt_anchor; <span class="comment">/* current format spec being processed */</span>
- <a name="l00420"></a>00420 <span class="keywordtype">int</span> N; <span class="comment">/* arg number */</span>
- <a name="l00421"></a>00421 <span class="keywordtype">int</span> arg_index; <span class="comment">/* index into args processed directly */</span>
- <a name="l00422"></a>00422 <span class="preprocessor">#ifndef _NO_POS_ARGS</span>
- <a name="l00423"></a>00423 <span class="preprocessor"></span> <span class="keywordtype">int</span> numargs; <span class="comment">/* number of varargs read */</span>
- <a name="l00424"></a>00424 <span class="keywordtype">char</span> *saved_fmt; <span class="comment">/* saved fmt pointer */</span>
- <a name="l00425"></a>00425 <span class="keyword">union </span>arg_val args[MAX_POS_ARGS];
- <a name="l00426"></a>00426 <span class="keywordtype">int</span> arg_type[MAX_POS_ARGS];
- <a name="l00427"></a>00427 <span class="keywordtype">int</span> is_pos_arg; <span class="comment">/* is current format positional? */</span>
- <a name="l00428"></a>00428 <span class="keywordtype">int</span> old_is_pos_arg; <span class="comment">/* is current format positional? */</span>
- <a name="l00429"></a>00429 <span class="preprocessor">#endif</span>
- <a name="l00430"></a>00430 <span class="preprocessor"></span> <span class="keywordtype">int</span> ret; <span class="comment">/* return value accumulator */</span>
- <a name="l00431"></a>00431 <span class="keywordtype">int</span> width; <span class="comment">/* width from format (%8d), or 0 */</span>
- <a name="l00432"></a>00432 <span class="keywordtype">int</span> prec; <span class="comment">/* precision from format (%.3d), or -1 */</span>
- <a name="l00433"></a>00433 <span class="keywordtype">char</span> sign; <span class="comment">/* sign prefix (' ', '+', '-', or \0) */</span>
- <a name="l00434"></a>00434 <span class="preprocessor">#ifdef FLOATING_POINT</span>
- <a name="l00435"></a>00435 <span class="preprocessor"></span><span class="preprocessor">#ifdef _SMALL_PRINTF</span>
- <a name="l00436"></a>00436 <span class="preprocessor"></span> <span class="keywordtype">char</span> *decimal_point = <span class="stringliteral">"."</span>;
- <a name="l00437"></a>00437 <span class="preprocessor">#else</span>
- <a name="l00438"></a>00438 <span class="preprocessor"></span> <span class="keywordtype">char</span> *decimal_point = localeconv()->decimal_point;
- <a name="l00439"></a>00439 <span class="preprocessor">#endif</span>
- <a name="l00440"></a>00440 <span class="preprocessor"></span> <span class="keywordtype">char</span> softsign; <span class="comment">/* temporary negative sign for floats */</span>
- <a name="l00441"></a>00441 <span class="preprocessor">#ifdef _NO_LONGDBL</span>
- <a name="l00442"></a>00442 <span class="preprocessor"></span> <span class="keyword">union </span>{ <span class="keywordtype">int</span> i; <span class="keywordtype">double</span> d; } _double_ = {0};
- <a name="l00443"></a>00443 <span class="preprocessor"> #define _fpvalue (_double_.d)</span>
- <a name="l00444"></a>00444 <span class="preprocessor"></span><span class="preprocessor">#else</span>
- <a name="l00445"></a>00445 <span class="preprocessor"></span> <span class="keyword">union </span>{ <span class="keywordtype">int</span> i; _LONG_DOUBLE ld; } _long_double_ = {0};
- <a name="l00446"></a>00446 <span class="preprocessor"> #define _fpvalue (_long_double_.ld)</span>
- <a name="l00447"></a>00447 <span class="preprocessor"></span> <span class="keywordtype">int</span> tmp;
- <a name="l00448"></a>00448 <span class="preprocessor">#endif</span>
- <a name="l00449"></a>00449 <span class="preprocessor"></span> <span class="keywordtype">int</span> expt; <span class="comment">/* integer value of exponent */</span>
- <a name="l00450"></a>00450 <span class="keywordtype">int</span> expsize = 0; <span class="comment">/* character count for expstr */</span>
- <a name="l00451"></a>00451 <span class="keywordtype">int</span> ndig; <span class="comment">/* actual number of digits returned by cvt */</span>
- <a name="l00452"></a>00452 <span class="keywordtype">char</span> expstr[7]; <span class="comment">/* buffer for exponent string */</span>
- <a name="l00453"></a>00453 <span class="preprocessor">#endif</span>
- <a name="l00454"></a>00454 <span class="preprocessor"></span> u_quad_t _uquad; <span class="comment">/* integer arguments %[diouxX] */</span>
- <a name="l00455"></a>00455 <span class="keyword">enum</span> { OCT, DEC, HEX } base;<span class="comment">/* base for [diouxX] conversion */</span>
- <a name="l00456"></a>00456 <span class="keywordtype">int</span> dprec; <span class="comment">/* a copy of prec if [diouxX], 0 otherwise */</span>
- <a name="l00457"></a>00457 <span class="keywordtype">int</span> realsz; <span class="comment">/* field size expanded by dprec */</span>
- <a name="l00458"></a>00458 <span class="keywordtype">int</span> size; <span class="comment">/* size of converted field or string */</span>
- <a name="l00459"></a>00459 <span class="keywordtype">char</span> *xdigs = NULL; <span class="comment">/* digits for [xX] conversion */</span>
- <a name="l00460"></a>00460 <span class="preprocessor">#ifndef _SMALL_PRINTF</span>
- <a name="l00461"></a>00461 <span class="preprocessor"></span><span class="preprocessor"> #define NIOV 8</span>
- <a name="l00462"></a>00462 <span class="preprocessor"></span> <span class="keyword">struct </span>__suio uio; <span class="comment">/* output information: summary */</span>
- <a name="l00463"></a>00463 <span class="keyword">struct </span>__siov iov[NIOV];<span class="comment">/* ... and individual io vectors */</span>
- <a name="l00464"></a>00464 <span class="keywordtype">char</span> *malloc_buf = NULL;<span class="comment">/* handy pointer for malloced buffers */</span>
- <a name="l00465"></a>00465 <span class="preprocessor">#else</span>
- <a name="l00466"></a>00466 <span class="preprocessor"></span> <span class="keywordtype">char</span> malloc_buf [MAXBUFLOC]; <span class="comment">/* local buffers */</span>
- <a name="l00467"></a>00467 <span class="preprocessor">#endif</span>
- <a name="l00468"></a>00468 <span class="preprocessor"></span>
- <a name="l00469"></a>00469 <span class="keywordtype">char</span> buf[BUF]; <span class="comment">/* space for %c, %[diouxX], %[eEfgG] */</span>
- <a name="l00470"></a>00470 <span class="keywordtype">char</span> ox[2]; <span class="comment">/* space for 0x hex-prefix */</span>
- <a name="l00471"></a>00471 <span class="preprocessor">#ifdef MB_CAPABLE</span>
- <a name="l00472"></a>00472 <span class="preprocessor"></span> <span class="keywordtype">wchar_t</span> wc;
- <a name="l00473"></a>00473 mbstate_t state; <span class="comment">/* mbtowc calls from library must not change state */</span>
- <a name="l00474"></a>00474 <span class="preprocessor">#endif</span>
- <a name="l00475"></a>00475 <span class="preprocessor"></span>
- <a name="l00476"></a>00476
- <a name="l00477"></a>00477 <span class="comment">/*</span>
- <a name="l00478"></a>00478 <span class="comment"> * Choose PADSIZE to trade efficiency vs. size. If larger printf</span>
- <a name="l00479"></a>00479 <span class="comment"> * fields occur frequently, increase PADSIZE and make the initialisers</span>
- <a name="l00480"></a>00480 <span class="comment"> * below longer.</span>
- <a name="l00481"></a>00481 <span class="comment"> */</span>
- <a name="l00482"></a>00482 <span class="preprocessor">#define PADSIZE 16 </span><span class="comment">/* pad chunk size */</span>
- <a name="l00483"></a>00483 <span class="keyword">static</span> _CONST <span class="keywordtype">char</span> blanks[PADSIZE] =
- <a name="l00484"></a>00484 {<span class="charliteral">' '</span>,<span class="charliteral">' '</span>,<span class="charliteral">' '</span>,<span class="charliteral">' '</span>,<span class="charliteral">' '</span>,<span class="charliteral">' '</span>,<span class="charliteral">' '</span>,<span class="charliteral">' '</span>,<span class="charliteral">' '</span>,<span class="charliteral">' '</span>,<span class="charliteral">' '</span>,<span class="charliteral">' '</span>,<span class="charliteral">' '</span>,<span class="charliteral">' '</span>,<span class="charliteral">' '</span>,<span class="charliteral">' '</span>};
- <a name="l00485"></a>00485 <span class="keyword">static</span> _CONST <span class="keywordtype">char</span> zeroes[PADSIZE] =
- <a name="l00486"></a>00486 {<span class="charliteral">'0'</span>,<span class="charliteral">'0'</span>,<span class="charliteral">'0'</span>,<span class="charliteral">'0'</span>,<span class="charliteral">'0'</span>,<span class="charliteral">'0'</span>,<span class="charliteral">'0'</span>,<span class="charliteral">'0'</span>,<span class="charliteral">'0'</span>,<span class="charliteral">'0'</span>,<span class="charliteral">'0'</span>,<span class="charliteral">'0'</span>,<span class="charliteral">'0'</span>,<span class="charliteral">'0'</span>,<span class="charliteral">'0'</span>,<span class="charliteral">'0'</span>};
- <a name="l00487"></a>00487
- <a name="l00488"></a>00488 <span class="preprocessor">#ifdef MB_CAPABLE</span>
- <a name="l00489"></a>00489 <span class="preprocessor"></span> memset (&state, <span class="charliteral">'\0'</span>, <span class="keyword">sizeof</span> (state));
- <a name="l00490"></a>00490 <span class="preprocessor">#endif</span>
- <a name="l00491"></a>00491 <span class="preprocessor"></span>
- <a name="l00492"></a>00492 <span class="preprocessor">#ifndef _SMALL_PRINTF</span>
- <a name="l00493"></a>00493 <span class="preprocessor"></span> <span class="comment">/*</span>
- <a name="l00494"></a>00494 <span class="comment"> * BEWARE, these `goto error' on error, and PAD uses `n'.</span>
- <a name="l00495"></a>00495 <span class="comment"> */</span>
- <a name="l00496"></a>00496 <span class="preprocessor"> #define PRINT(ptr, len,f) { \</span>
- <a name="l00497"></a>00497 <span class="preprocessor"> iovp->iov_base = (ptr); \</span>
- <a name="l00498"></a>00498 <span class="preprocessor"> iovp->iov_len = (len); \</span>
- <a name="l00499"></a>00499 <span class="preprocessor"> uio.uio_resid += (len); \</span>
- <a name="l00500"></a>00500 <span class="preprocessor"> iovp++; \</span>
- <a name="l00501"></a>00501 <span class="preprocessor"> if (++uio.uio_iovcnt >= NIOV) { \</span>
- <a name="l00502"></a>00502 <span class="preprocessor"> if (__sprint(fp, &uio)) \</span>
- <a name="l00503"></a>00503 <span class="preprocessor"> goto error; \</span>
- <a name="l00504"></a>00504 <span class="preprocessor"> iovp = iov; \</span>
- <a name="l00505"></a>00505 <span class="preprocessor"> } \</span>
- <a name="l00506"></a>00506 <span class="preprocessor"> }</span>
- <a name="l00507"></a>00507 <span class="preprocessor"></span><span class="preprocessor"> #define PAD(howmany, with,f) { \</span>
- <a name="l00508"></a>00508 <span class="preprocessor"> if ((n = (howmany)) > 0) { \</span>
- <a name="l00509"></a>00509 <span class="preprocessor"> while (n > PADSIZE) { \</span>
- <a name="l00510"></a>00510 <span class="preprocessor"> PRINT(with, PADSIZE,f); \</span>
- <a name="l00511"></a>00511 <span class="preprocessor"> n -= PADSIZE; \</span>
- <a name="l00512"></a>00512 <span class="preprocessor"> } \</span>
- <a name="l00513"></a>00513 <span class="preprocessor"> PRINT(with, n,f); \</span>
- <a name="l00514"></a>00514 <span class="preprocessor"> } \</span>
- <a name="l00515"></a>00515 <span class="preprocessor"> }</span>
- <a name="l00516"></a>00516 <span class="preprocessor"></span><span class="preprocessor"> #define FLUSH() { \</span>
- <a name="l00517"></a>00517 <span class="preprocessor"> if (uio.uio_resid && __sprint(fp, &uio)) \</span>
- <a name="l00518"></a>00518 <span class="preprocessor"> goto error; \</span>
- <a name="l00519"></a>00519 <span class="preprocessor"> uio.uio_iovcnt = 0; \</span>
- <a name="l00520"></a>00520 <span class="preprocessor"> iovp = iov; \</span>
- <a name="l00521"></a>00521 <span class="preprocessor"> }</span>
- <a name="l00522"></a>00522 <span class="preprocessor"></span><span class="preprocessor">#else</span>
- <a name="l00523"></a>00523 <span class="preprocessor"></span> <span class="comment">//Macros for _SMALL_PRINTF</span>
- <a name="l00524"></a>00524 <span class="keywordtype">void</span> _SMALL_PRINTF_puts(<span class="keyword">const</span> <span class="keywordtype">char</span> *ptr, <span class="keywordtype">int</span> len, FILE *f);
- <a name="l00525"></a>00525 <span class="preprocessor"> #define PRINT(ptr, len, f) {_SMALL_PRINTF_puts(ptr,len,f);}</span>
- <a name="l00526"></a>00526 <span class="preprocessor"></span><span class="preprocessor"> #define PAD(howmany, with, f) { \</span>
- <a name="l00527"></a>00527 <span class="preprocessor"> if ((n = (howmany)) > 0) { \</span>
- <a name="l00528"></a>00528 <span class="preprocessor"> while (n > PADSIZE) { \</span>
- <a name="l00529"></a>00529 <span class="preprocessor"> PRINT(with, PADSIZE,f); \</span>
- <a name="l00530"></a>00530 <span class="preprocessor"> n -= PADSIZE; \</span>
- <a name="l00531"></a>00531 <span class="preprocessor"> } \</span>
- <a name="l00532"></a>00532 <span class="preprocessor"> PRINT(with, n, f); \</span>
- <a name="l00533"></a>00533 <span class="preprocessor"> } \</span>
- <a name="l00534"></a>00534 <span class="preprocessor"> }</span>
- <a name="l00535"></a>00535 <span class="preprocessor"></span><span class="preprocessor"> #define FLUSH() { ; }</span>
- <a name="l00536"></a>00536 <span class="preprocessor"></span><span class="preprocessor">#endif</span>
- <a name="l00537"></a>00537 <span class="preprocessor"></span>
- <a name="l00538"></a>00538
- <a name="l00539"></a>00539 <span class="comment">/* Macros to support positional arguments */</span>
- <a name="l00540"></a>00540 <span class="preprocessor">#ifndef _NO_POS_ARGS</span>
- <a name="l00541"></a>00541 <span class="preprocessor"></span><span class="preprocessor">#define GET_ARG(n, ap, type) \</span>
- <a name="l00542"></a>00542 <span class="preprocessor"> ( is_pos_arg \</span>
- <a name="l00543"></a>00543 <span class="preprocessor"> ? n < numargs \</span>
- <a name="l00544"></a>00544 <span class="preprocessor"> ? args[n].val_##type \</span>
- <a name="l00545"></a>00545 <span class="preprocessor"> : get_arg (data, n, fmt_anchor, &ap, &numargs, args, arg_type, &saved_fmt)->val_##type \</span>
- <a name="l00546"></a>00546 <span class="preprocessor"> : arg_index++ < numargs \</span>
- <a name="l00547"></a>00547 <span class="preprocessor"> ? args[n].val_##type \</span>
- <a name="l00548"></a>00548 <span class="preprocessor"> : numargs < MAX_POS_ARGS \</span>
- <a name="l00549"></a>00549 <span class="preprocessor"> ? args[numargs++].val_##type = va_arg(ap, type) \</span>
- <a name="l00550"></a>00550 <span class="preprocessor"> : va_arg(ap, type) \</span>
- <a name="l00551"></a>00551 <span class="preprocessor"> )</span>
- <a name="l00552"></a>00552 <span class="preprocessor"></span><span class="preprocessor">#else</span>
- <a name="l00553"></a>00553 <span class="preprocessor"></span><span class="preprocessor">#define GET_ARG(n, ap, type) (va_arg(ap, type))</span>
- <a name="l00554"></a>00554 <span class="preprocessor"></span><span class="preprocessor">#endif</span>
- <a name="l00555"></a>00555 <span class="preprocessor"></span>
- <a name="l00556"></a>00556 <span class="comment">/*</span>
- <a name="l00557"></a>00557 <span class="comment"> * To extend shorts properly, we need both signed and unsigned</span>
- <a name="l00558"></a>00558 <span class="comment"> * argument extraction methods.</span>
- <a name="l00559"></a>00559 <span class="comment"> */</span>
- <a name="l00560"></a>00560 <span class="preprocessor">#ifndef _NO_LONGLONG</span>
- <a name="l00561"></a>00561 <span class="preprocessor"></span><span class="preprocessor">#define SARG() \</span>
- <a name="l00562"></a>00562 <span class="preprocessor"> (flags&QUADINT ? GET_ARG(N, ap, quad_t) : \</span>
- <a name="l00563"></a>00563 <span class="preprocessor"> flags&LONGINT ? GET_ARG(N, ap, long) : \</span>
- <a name="l00564"></a>00564 <span class="preprocessor"> flags&SHORTINT ? (long)(short)GET_ARG(N, ap, int) : \</span>
- <a name="l00565"></a>00565 <span class="preprocessor"> (long)GET_ARG(N, ap, int))</span>
- <a name="l00566"></a>00566 <span class="preprocessor"></span><span class="preprocessor">#define UARG() \</span>
- <a name="l00567"></a>00567 <span class="preprocessor"> (flags&QUADINT ? GET_ARG(N, ap, u_quad_t) : \</span>
- <a name="l00568"></a>00568 <span class="preprocessor"> flags&LONGINT ? GET_ARG(N, ap, u_long) : \</span>
- <a name="l00569"></a>00569 <span class="preprocessor"> flags&SHORTINT ? (u_long)(u_short)GET_ARG(N, ap, int) : \</span>
- <a name="l00570"></a>00570 <span class="preprocessor"> (u_long)GET_ARG(N, ap, u_int))</span>
- <a name="l00571"></a>00571 <span class="preprocessor"></span><span class="preprocessor">#else</span>
- <a name="l00572"></a>00572 <span class="preprocessor"></span><span class="preprocessor">#define SARG() \</span>
- <a name="l00573"></a>00573 <span class="preprocessor"> (flags&LONGINT ? GET_ARG(N, ap, long) : \</span>
- <a name="l00574"></a>00574 <span class="preprocessor"> flags&SHORTINT ? (long)(short)GET_ARG(N, ap, int) : \</span>
- <a name="l00575"></a>00575 <span class="preprocessor"> (long)GET_ARG(N, ap, int))</span>
- <a name="l00576"></a>00576 <span class="preprocessor"></span><span class="preprocessor">#define UARG() \</span>
- <a name="l00577"></a>00577 <span class="preprocessor"> (flags&LONGINT ? GET_ARG(N, ap, u_long) : \</span>
- <a name="l00578"></a>00578 <span class="preprocessor"> flags&SHORTINT ? (u_long)(u_short)GET_ARG(N, ap, int) : \</span>
- <a name="l00579"></a>00579 <span class="preprocessor"> (u_long)GET_ARG(N, ap, u_int))</span>
- <a name="l00580"></a>00580 <span class="preprocessor"></span><span class="preprocessor">#endif</span>
- <a name="l00581"></a>00581 <span class="preprocessor"></span>
- <a name="l00582"></a>00582 <span class="preprocessor">#ifndef _SMALL_PRINTF</span>
- <a name="l00583"></a>00583 <span class="preprocessor"></span> <span class="comment">/* sorry, fprintf(read_only_file, "") returns EOF, not 0 */</span>
- <a name="l00584"></a>00584 <span class="keywordflow">if</span> (cantwrite(fp))
- <a name="l00585"></a>00585 <span class="keywordflow">return</span> (EOF);
- <a name="l00586"></a>00586
- <a name="l00587"></a>00587 <span class="comment">/* optimise fprintf(stderr) (and other unbuffered Unix files) */</span>
- <a name="l00588"></a>00588 <span class="keywordflow">if</span> ((fp->_flags & (__SNBF|__SWR|__SRW)) == (__SNBF|__SWR) &&
- <a name="l00589"></a>00589 fp->_file >= 0)
- <a name="l00590"></a>00590 <span class="keywordflow">return</span> (__sbprintf(fp, fmt0, ap));
- <a name="l00591"></a>00591
- <a name="l00592"></a>00592 uio.uio_iov = iovp = iov;
- <a name="l00593"></a>00593 uio.uio_resid = 0;
- <a name="l00594"></a>00594 uio.uio_iovcnt = 0;
- <a name="l00595"></a>00595 <span class="preprocessor">#endif</span>
- <a name="l00596"></a>00596 <span class="preprocessor"></span> fmt = (<span class="keywordtype">char</span> *)fmt0;
- <a name="l00597"></a>00597
- <a name="l00598"></a>00598 ret = 0;
- <a name="l00599"></a>00599 arg_index = 0;
- <a name="l00600"></a>00600
- <a name="l00601"></a>00601 <span class="preprocessor">#ifndef _NO_POS_ARGS</span>
- <a name="l00602"></a>00602 <span class="preprocessor"></span> saved_fmt = NULL;
- <a name="l00603"></a>00603 arg_type[0] = -1;
- <a name="l00604"></a>00604 numargs = 0;
- <a name="l00605"></a>00605 is_pos_arg = 0;
- <a name="l00606"></a>00606 <span class="preprocessor">#endif</span>
- <a name="l00607"></a>00607 <span class="preprocessor"></span>
- <a name="l00608"></a>00608 <span class="comment">/*</span>
- <a name="l00609"></a>00609 <span class="comment"> * Scan the format for conversions (`%' character).</span>
- <a name="l00610"></a>00610 <span class="comment"> */</span>
- <a name="l00611"></a>00611 <span class="keywordflow">for</span> (;;) {
- <a name="l00612"></a>00612 cp = fmt;
- <a name="l00613"></a>00613 <span class="preprocessor">#ifdef MB_CAPABLE</span>
- <a name="l00614"></a>00614 <span class="preprocessor"></span> <span class="keywordflow">while</span> ((n = _mbtowc_r(data, &wc, fmt, MB_CUR_MAX, &state)) > 0) {
- <a name="l00615"></a>00615 <span class="keywordflow">if</span> (wc == <span class="charliteral">'%'</span>)
- <a name="l00616"></a>00616 <span class="keywordflow">break</span>;
- <a name="l00617"></a>00617 fmt += n;
- <a name="l00618"></a>00618 }
- <a name="l00619"></a>00619 <span class="preprocessor">#else</span>
- <a name="l00620"></a>00620 <span class="preprocessor"></span> <span class="keywordflow">while</span> (*fmt != <span class="charliteral">'\0'</span> && *fmt != <span class="charliteral">'%'</span>)
- <a name="l00621"></a>00621 fmt += 1;
- <a name="l00622"></a>00622 <span class="preprocessor">#endif</span>
- <a name="l00623"></a>00623 <span class="preprocessor"></span> <span class="keywordflow">if</span> ((m = fmt - cp) != 0) {
- <a name="l00624"></a>00624 PRINT(cp, m, fp);
- <a name="l00625"></a>00625 ret += m;
- <a name="l00626"></a>00626 }
- <a name="l00627"></a>00627 <span class="preprocessor">#ifdef MB_CAPABLE</span>
- <a name="l00628"></a>00628 <span class="preprocessor"></span> <span class="keywordflow">if</span> (n <= 0)
- <a name="l00629"></a>00629 <span class="keywordflow">goto</span> done;
- <a name="l00630"></a>00630 <span class="preprocessor">#else</span>
- <a name="l00631"></a>00631 <span class="preprocessor"></span> <span class="keywordflow">if</span> (*fmt == <span class="charliteral">'\0'</span>)
- <a name="l00632"></a>00632 <span class="keywordflow">goto</span> done;
- <a name="l00633"></a>00633 <span class="preprocessor">#endif</span>
- <a name="l00634"></a>00634 <span class="preprocessor"></span> fmt_anchor = fmt;
- <a name="l00635"></a>00635 fmt++; <span class="comment">/* skip over '%' */</span>
- <a name="l00636"></a>00636
- <a name="l00637"></a>00637 flags = 0;
- <a name="l00638"></a>00638 dprec = 0;
- <a name="l00639"></a>00639 width = 0;
- <a name="l00640"></a>00640 prec = -1;
- <a name="l00641"></a>00641 sign = <span class="charliteral">'\0'</span>;
- <a name="l00642"></a>00642 N = arg_index;
- <a name="l00643"></a>00643 <span class="preprocessor">#ifndef _NO_POS_ARGS</span>
- <a name="l00644"></a>00644 <span class="preprocessor"></span> is_pos_arg = 0;
- <a name="l00645"></a>00645 <span class="preprocessor">#endif</span>
- <a name="l00646"></a>00646 <span class="preprocessor"></span>
- <a name="l00647"></a>00647 rflag: ch = *fmt++;
- <a name="l00648"></a>00648 reswitch: <span class="keywordflow">switch</span> (ch) {
- <a name="l00649"></a>00649 <span class="keywordflow">case</span> <span class="charliteral">' '</span>:
- <a name="l00650"></a>00650 <span class="comment">/*</span>
- <a name="l00651"></a>00651 <span class="comment"> * ``If the space and + flags both appear, the space</span>
- <a name="l00652"></a>00652 <span class="comment"> * flag will be ignored.''</span>
- <a name="l00653"></a>00653 <span class="comment"> * -- ANSI X3J11</span>
- <a name="l00654"></a>00654 <span class="comment"> */</span>
- <a name="l00655"></a>00655 <span class="keywordflow">if</span> (!sign)
- <a name="l00656"></a>00656 sign = <span class="charliteral">' '</span>;
- <a name="l00657"></a>00657 <span class="keywordflow">goto</span> rflag;
- <a name="l00658"></a>00658 <span class="keywordflow">case</span> <span class="charliteral">'#'</span>:
- <a name="l00659"></a>00659 flags |= ALT;
- <a name="l00660"></a>00660 <span class="keywordflow">goto</span> rflag;
- <a name="l00661"></a>00661 <span class="keywordflow">case</span> <span class="charliteral">'*'</span>:
- <a name="l00662"></a>00662 n = N;
- <a name="l00663"></a>00663 <span class="preprocessor">#ifndef _NO_POS_ARGS</span>
- <a name="l00664"></a>00664 <span class="preprocessor"></span> <span class="comment">/* we must check for positional arg used for dynamic width */</span>
- <a name="l00665"></a>00665 old_is_pos_arg = is_pos_arg;
- <a name="l00666"></a>00666 is_pos_arg = 0;
- <a name="l00667"></a>00667 <span class="keywordflow">if</span> (is_digit(*fmt)) {
- <a name="l00668"></a>00668 <span class="keywordtype">char</span> *old_fmt = fmt;
- <a name="l00669"></a>00669
- <a name="l00670"></a>00670 n = 0;
- <a name="l00671"></a>00671 ch = *fmt++;
- <a name="l00672"></a>00672 <span class="keywordflow">do</span> {
- <a name="l00673"></a>00673 n = 10 * n + to_digit(ch);
- <a name="l00674"></a>00674 ch = *fmt++;
- <a name="l00675"></a>00675 } <span class="keywordflow">while</span> (is_digit(ch));
- <a name="l00676"></a>00676
- <a name="l00677"></a>00677 <span class="keywordflow">if</span> (ch == <span class="charliteral">'$'</span>) {
- <a name="l00678"></a>00678 <span class="keywordflow">if</span> (n <= MAX_POS_ARGS) {
- <a name="l00679"></a>00679 n -= 1;
- <a name="l00680"></a>00680 is_pos_arg = 1;
- <a name="l00681"></a>00681 }
- <a name="l00682"></a>00682 <span class="keywordflow">else</span>
- <a name="l00683"></a>00683 <span class="keywordflow">goto</span> error;
- <a name="l00684"></a>00684 }
- <a name="l00685"></a>00685 <span class="keywordflow">else</span> {
- <a name="l00686"></a>00686 fmt = old_fmt;
- <a name="l00687"></a>00687 <span class="keywordflow">goto</span> rflag;
- <a name="l00688"></a>00688 }
- <a name="l00689"></a>00689 }
- <a name="l00690"></a>00690 <span class="preprocessor">#endif </span><span class="comment">/* !_NO_POS_ARGS */</span>
- <a name="l00691"></a>00691
- <a name="l00692"></a>00692 <span class="comment">/*</span>
- <a name="l00693"></a>00693 <span class="comment"> * ``A negative field width argument is taken as a</span>
- <a name="l00694"></a>00694 <span class="comment"> * - flag followed by a positive field width.''</span>
- <a name="l00695"></a>00695 <span class="comment"> * -- ANSI X3J11</span>
- <a name="l00696"></a>00696 <span class="comment"> * They don't exclude field widths read from args.</span>
- <a name="l00697"></a>00697 <span class="comment"> */</span>
- <a name="l00698"></a>00698 width = GET_ARG(n, ap, <span class="keywordtype">int</span>);
- <a name="l00699"></a>00699 <span class="preprocessor">#ifndef _NO_POS_ARGS</span>
- <a name="l00700"></a>00700 <span class="preprocessor"></span> is_pos_arg = old_is_pos_arg;
- <a name="l00701"></a>00701 <span class="preprocessor">#endif</span>
- <a name="l00702"></a>00702 <span class="preprocessor"></span> <span class="keywordflow">if</span> (width >= 0)
- <a name="l00703"></a>00703 <span class="keywordflow">goto</span> rflag;
- <a name="l00704"></a>00704 width = -width;
- <a name="l00705"></a>00705 <span class="comment">/* FALLTHROUGH */</span>
- <a name="l00706"></a>00706 <span class="keywordflow">case</span> <span class="charliteral">'-'</span>:
- <a name="l00707"></a>00707 flags |= LADJUST;
- <a name="l00708"></a>00708 <span class="keywordflow">goto</span> rflag;
- <a name="l00709"></a>00709 <span class="keywordflow">case</span> <span class="charliteral">'+'</span>:
- <a name="l00710"></a>00710 sign = <span class="charliteral">'+'</span>;
- <a name="l00711"></a>00711 <span class="keywordflow">goto</span> rflag;
- <a name="l00712"></a>00712 <span class="keywordflow">case</span> <span class="charliteral">'.'</span>:
- <a name="l00713"></a>00713 <span class="keywordflow">if</span> ((ch = *fmt++) == <span class="charliteral">'*'</span>) {
- <a name="l00714"></a>00714 n = N;
- <a name="l00715"></a>00715 <span class="preprocessor">#ifndef _NO_POS_ARGS</span>
- <a name="l00716"></a>00716 <span class="preprocessor"></span> <span class="comment">/* we must check for positional arg used for dynamic width */</span>
- <a name="l00717"></a>00717 old_is_pos_arg = is_pos_arg;
- <a name="l00718"></a>00718 is_pos_arg = 0;
- <a name="l00719"></a>00719 <span class="keywordflow">if</span> (is_digit(*fmt)) {
- <a name="l00720"></a>00720 <span class="keywordtype">char</span> *old_fmt = fmt;
- <a name="l00721"></a>00721
- <a name="l00722"></a>00722 n = 0;
- <a name="l00723"></a>00723 ch = *fmt++;
- <a name="l00724"></a>00724 <span class="keywordflow">do</span> {
- <a name="l00725"></a>00725 n = 10 * n + to_digit(ch);
- <a name="l00726"></a>00726 ch = *fmt++;
- <a name="l00727"></a>00727 } <span class="keywordflow">while</span> (is_digit(ch));
- <a name="l00728"></a>00728
- <a name="l00729"></a>00729 <span class="keywordflow">if</span> (ch == <span class="charliteral">'$'</span>) {
- <a name="l00730"></a>00730 <span class="keywordflow">if</span> (n <= MAX_POS_ARGS) {
- <a name="l00731"></a>00731 n -= 1;
- <a name="l00732"></a>00732 is_pos_arg = 1;
- <a name="l00733"></a>00733 }
- <a name="l00734"></a>00734 <span class="keywordflow">else</span>
- <a name="l00735"></a>00735 <span class="keywordflow">goto</span> error;
- <a name="l00736"></a>00736 }
- <a name="l00737"></a>00737 <span class="keywordflow">else</span> {
- <a name="l00738"></a>00738 fmt = old_fmt;
- <a name="l00739"></a>00739 <span class="keywordflow">goto</span> rflag;
- <a name="l00740"></a>00740 }
- <a name="l00741"></a>00741 }
- <a name="l00742"></a>00742 <span class="preprocessor">#endif </span><span class="comment">/* !_NO_POS_ARGS */</span>
- <a name="l00743"></a>00743 prec = GET_ARG(n, ap, <span class="keywordtype">int</span>);
- <a name="l00744"></a>00744 <span class="preprocessor">#ifndef _NO_POS_ARGS</span>
- <a name="l00745"></a>00745 <span class="preprocessor"></span> is_pos_arg = old_is_pos_arg;
- <a name="l00746"></a>00746 <span class="preprocessor">#endif</span>
- <a name="l00747"></a>00747 <span class="preprocessor"></span> <span class="keywordflow">if</span> (prec < 0)
- <a name="l00748"></a>00748 prec = -1;
- <a name="l00749"></a>00749 <span class="keywordflow">goto</span> rflag;
- <a name="l00750"></a>00750 }
- <a name="l00751"></a>00751 n = 0;
- <a name="l00752"></a>00752 <span class="keywordflow">while</span> (is_digit(ch)) {
- <a name="l00753"></a>00753 n = 10 * n + to_digit(ch);
- <a name="l00754"></a>00754 ch = *fmt++;
- <a name="l00755"></a>00755 }
- <a name="l00756"></a>00756 prec = n < 0 ? -1 : n;
- <a name="l00757"></a>00757 <span class="keywordflow">goto</span> reswitch;
- <a name="l00758"></a>00758 <span class="keywordflow">case</span> <span class="charliteral">'0'</span>:
- <a name="l00759"></a>00759 <span class="comment">/*</span>
- <a name="l00760"></a>00760 <span class="comment"> * ``Note that 0 is taken as a flag, not as the</span>
- <a name="l00761"></a>00761 <span class="comment"> * beginning of a field width.''</span>
- <a name="l00762"></a>00762 <span class="comment"> * -- ANSI X3J11</span>
- <a name="l00763"></a>00763 <span class="comment"> */</span>
- <a name="l00764"></a>00764 flags |= ZEROPAD;
- <a name="l00765"></a>00765 <span class="keywordflow">goto</span> rflag;
- <a name="l00766"></a>00766 <span class="keywordflow">case</span> <span class="charliteral">'1'</span>: <span class="keywordflow">case</span> <span class="charliteral">'2'</span>: <span class="keywordflow">case</span> <span class="charliteral">'3'</span>: <span class="keywordflow">case</span> <span class="charliteral">'4'</span>:
- <a name="l00767"></a>00767 <span class="keywordflow">case</span> <span class="charliteral">'5'</span>: <span class="keywordflow">case</span> <span class="charliteral">'6'</span>: <span class="keywordflow">case</span> <span class="charliteral">'7'</span>: <span class="keywordflow">case</span> <span class="charliteral">'8'</span>: <span class="keywordflow">case</span> <span class="charliteral">'9'</span>:
- <a name="l00768"></a>00768 n = 0;
- <a name="l00769"></a>00769 <span class="keywordflow">do</span> {
- <a name="l00770"></a>00770 n = 10 * n + to_digit(ch);
- <a name="l00771"></a>00771 ch = *fmt++;
- <a name="l00772"></a>00772 } <span class="keywordflow">while</span> (is_digit(ch));
- <a name="l00773"></a>00773 <span class="preprocessor">#ifndef _NO_POS_ARGS</span>
- <a name="l00774"></a>00774 <span class="preprocessor"></span> <span class="keywordflow">if</span> (ch == <span class="charliteral">'$'</span>) {
- <a name="l00775"></a>00775 <span class="keywordflow">if</span> (n <= MAX_POS_ARGS) {
- <a name="l00776"></a>00776 N = n - 1;
- <a name="l00777"></a>00777 is_pos_arg = 1;
- <a name="l00778"></a>00778 <span class="keywordflow">goto</span> rflag;
- <a name="l00779"></a>00779 }
- <a name="l00780"></a>00780 <span class="keywordflow">else</span>
- <a name="l00781"></a>00781 <span class="keywordflow">goto</span> error;
- <a name="l00782"></a>00782 }
- <a name="l00783"></a>00783 <span class="preprocessor">#endif </span><span class="comment">/* !_NO_POS_ARGS */</span>
- <a name="l00784"></a>00784 width = n;
- <a name="l00785"></a>00785 <span class="keywordflow">goto</span> reswitch;
- <a name="l00786"></a>00786 <span class="preprocessor">#ifdef FLOATING_POINT</span>
- <a name="l00787"></a>00787 <span class="preprocessor"></span> <span class="keywordflow">case</span> <span class="charliteral">'L'</span>:
- <a name="l00788"></a>00788 flags |= LONGDBL;
- <a name="l00789"></a>00789 <span class="keywordflow">goto</span> rflag;
- <a name="l00790"></a>00790 <span class="preprocessor">#endif</span>
- <a name="l00791"></a>00791 <span class="preprocessor"></span> <span class="keywordflow">case</span> <span class="charliteral">'h'</span>:
- <a name="l00792"></a>00792 flags |= SHORTINT;
- <a name="l00793"></a>00793 <span class="keywordflow">goto</span> rflag;
- <a name="l00794"></a>00794 <span class="keywordflow">case</span> <span class="charliteral">'l'</span>:
- <a name="l00795"></a>00795 <span class="keywordflow">if</span> (*fmt == <span class="charliteral">'l'</span>) {
- <a name="l00796"></a>00796 fmt++;
- <a name="l00797"></a>00797 flags |= QUADINT;
- <a name="l00798"></a>00798 } <span class="keywordflow">else</span> {
- <a name="l00799"></a>00799 flags |= LONGINT;
- <a name="l00800"></a>00800 }
- <a name="l00801"></a>00801 <span class="keywordflow">goto</span> rflag;
- <a name="l00802"></a>00802 <span class="keywordflow">case</span> <span class="charliteral">'q'</span>:
- <a name="l00803"></a>00803 flags |= QUADINT;
- <a name="l00804"></a>00804 <span class="keywordflow">goto</span> rflag;
- <a name="l00805"></a>00805 <span class="keywordflow">case</span> <span class="charliteral">'c'</span>:
- <a name="l00806"></a>00806 <span class="keywordflow">case</span> <span class="charliteral">'C'</span>:
- <a name="l00807"></a>00807 cp = buf;
- <a name="l00808"></a>00808 <span class="keywordflow">if</span> (ch == <span class="charliteral">'C'</span> || (flags & LONGINT)) {
- <a name="l00809"></a>00809 mbstate_t ps;
- <a name="l00810"></a>00810
- <a name="l00811"></a>00811 memset((<span class="keywordtype">void</span> *)&ps, <span class="charliteral">'\0'</span>, <span class="keyword">sizeof</span>(mbstate_t));
- <a name="l00812"></a>00812 <span class="keywordflow">if</span> ((size = (<span class="keywordtype">int</span>)_wcrtomb_r(data, cp,
- <a name="l00813"></a>00813 (<span class="keywordtype">wchar_t</span>)GET_ARG(N, ap, wint_t),
- <a name="l00814"></a>00814 &ps)) == -1)
- <a name="l00815"></a>00815 <span class="keywordflow">goto</span> error;
- <a name="l00816"></a>00816 }
- <a name="l00817"></a>00817 <span class="keywordflow">else</span> {
- <a name="l00818"></a>00818 *cp = GET_ARG(N, ap, <span class="keywordtype">int</span>);
- <a name="l00819"></a>00819 size = 1;
- <a name="l00820"></a>00820 }
- <a name="l00821"></a>00821 sign = <span class="charliteral">'\0'</span>;
- <a name="l00822"></a>00822 <span class="keywordflow">break</span>;
- <a name="l00823"></a>00823 <span class="keywordflow">case</span> <span class="charliteral">'D'</span>:
- <a name="l00824"></a>00824 flags |= LONGINT;
- <a name="l00825"></a>00825 <span class="comment">/*FALLTHROUGH*/</span>
- <a name="l00826"></a>00826 <span class="keywordflow">case</span> <span class="charliteral">'d'</span>:
- <a name="l00827"></a>00827 <span class="keywordflow">case</span> <span class="charliteral">'i'</span>:
- <a name="l00828"></a>00828 _uquad = SARG();
- <a name="l00829"></a>00829 <span class="preprocessor">#ifndef _NO_LONGLONG</span>
- <a name="l00830"></a>00830 <span class="preprocessor"></span> <span class="keywordflow">if</span> ((quad_t)_uquad < 0)
- <a name="l00831"></a>00831 <span class="preprocessor">#else</span>
- <a name="l00832"></a>00832 <span class="preprocessor"></span> <span class="keywordflow">if</span> ((<span class="keywordtype">long</span>) _uquad < 0)
- <a name="l00833"></a>00833 <span class="preprocessor">#endif</span>
- <a name="l00834"></a>00834 <span class="preprocessor"></span> {
- <a name="l00835"></a>00835
- <a name="l00836"></a>00836 _uquad = -_uquad;
- <a name="l00837"></a>00837 sign = <span class="charliteral">'-'</span>;
- <a name="l00838"></a>00838 }
- <a name="l00839"></a>00839 base = DEC;
- <a name="l00840"></a>00840 <span class="keywordflow">goto</span> number;
- <a name="l00841"></a>00841 <span class="preprocessor">#ifdef FLOATING_POINT</span>
- <a name="l00842"></a>00842 <span class="preprocessor"></span> <span class="keywordflow">case</span> <span class="charliteral">'e'</span>:
- <a name="l00843"></a>00843 <span class="keywordflow">case</span> <span class="charliteral">'E'</span>:
- <a name="l00844"></a>00844 <span class="keywordflow">case</span> <span class="charliteral">'f'</span>:
- <a name="l00845"></a>00845 <span class="keywordflow">case</span> <span class="charliteral">'g'</span>:
- <a name="l00846"></a>00846 <span class="keywordflow">case</span> <span class="charliteral">'G'</span>:
- <a name="l00847"></a>00847 <span class="keywordflow">if</span> (prec == -1) {
- <a name="l00848"></a>00848 prec = DEFPREC;
- <a name="l00849"></a>00849 } <span class="keywordflow">else</span> <span class="keywordflow">if</span> ((ch == <span class="charliteral">'g'</span> || ch == <span class="charliteral">'G'</span>) && prec == 0) {
- <a name="l00850"></a>00850 prec = 1;
- <a name="l00851"></a>00851 }
- <a name="l00852"></a>00852
- <a name="l00853"></a>00853 <span class="preprocessor">#ifdef _NO_LONGDBL</span>
- <a name="l00854"></a>00854 <span class="preprocessor"></span> <span class="keywordflow">if</span> (flags & LONGDBL) {
- <a name="l00855"></a>00855 _fpvalue = (double) GET_ARG(N, ap, _LONG_DOUBLE);
- <a name="l00856"></a>00856 } <span class="keywordflow">else</span> {
- <a name="l00857"></a>00857 _fpvalue = GET_ARG(N, ap, <span class="keywordtype">double</span>);
- <a name="l00858"></a>00858 }
- <a name="l00859"></a>00859
- <a name="l00860"></a>00860 <span class="comment">/* do this before tricky precision changes */</span>
- <a name="l00861"></a>00861 <span class="keywordflow">if</span> (isinf(_fpvalue)) {
- <a name="l00862"></a>00862 <span class="keywordflow">if</span> (_fpvalue < 0)
- <a name="l00863"></a>00863 sign = <span class="charliteral">'-'</span>;
- <a name="l00864"></a>00864 cp = <span class="stringliteral">"Inf"</span>;
- <a name="l00865"></a>00865 size = 3;
- <a name="l00866"></a>00866 <span class="keywordflow">break</span>;
- <a name="l00867"></a>00867 }
- <a name="l00868"></a>00868 <span class="keywordflow">if</span> (isnan(_fpvalue)) {
- <a name="l00869"></a>00869 cp = <span class="stringliteral">"NaN"</span>;
- <a name="l00870"></a>00870 size = 3;
- <a name="l00871"></a>00871 <span class="keywordflow">break</span>;
- <a name="l00872"></a>00872 }
- <a name="l00873"></a>00873
- <a name="l00874"></a>00874 <span class="preprocessor">#else </span><span class="comment">/* !_NO_LONGDBL */</span>
- <a name="l00875"></a>00875
- <a name="l00876"></a>00876 <span class="keywordflow">if</span> (flags & LONGDBL) {
- <a name="l00877"></a>00877 _fpvalue = GET_ARG(N, ap, _LONG_DOUBLE);
- <a name="l00878"></a>00878 } <span class="keywordflow">else</span> {
- <a name="l00879"></a>00879 _fpvalue = (_LONG_DOUBLE)GET_ARG(N, ap, <span class="keywordtype">double</span>);
- <a name="l00880"></a>00880 }
- <a name="l00881"></a>00881
- <a name="l00882"></a>00882 <span class="comment">/* do this before tricky precision changes */</span>
- <a name="l00883"></a>00883 tmp = _ldcheck (&_fpvalue);
- <a name="l00884"></a>00884 <span class="keywordflow">if</span> (tmp == 2) {
- <a name="l00885"></a>00885 <span class="keywordflow">if</span> (_fpvalue < 0)
- <a name="l00886"></a>00886 sign = <span class="charliteral">'-'</span>;
- <a name="l00887"></a>00887 cp = <span class="stringliteral">"Inf"</span>;
- <a name="l00888"></a>00888 size = 3;
- <a name="l00889"></a>00889 <span class="keywordflow">break</span>;
- <a name="l00890"></a>00890 }
- <a name="l00891"></a>00891 <span class="keywordflow">if</span> (tmp == 1) {
- <a name="l00892"></a>00892 cp = <span class="stringliteral">"NaN"</span>;
- <a name="l00893"></a>00893 size = 3;
- <a name="l00894"></a>00894 <span class="keywordflow">break</span>;
- <a name="l00895"></a>00895 }
- <a name="l00896"></a>00896 <span class="preprocessor">#endif </span><span class="comment">/* !_NO_LONGDBL */</span>
- <a name="l00897"></a>00897
- <a name="l00898"></a>00898 flags |= FPT;
- <a name="l00899"></a>00899
- <a name="l00900"></a>00900 cp = cvt(data, _fpvalue, prec, flags, &softsign,
- <a name="l00901"></a>00901 &expt, ch, &ndig);
- <a name="l00902"></a>00902
- <a name="l00903"></a>00903 <span class="keywordflow">if</span> (ch == <span class="charliteral">'g'</span> || ch == <span class="charliteral">'G'</span>) {
- <a name="l00904"></a>00904 <span class="keywordflow">if</span> (expt <= -4 || expt > prec)
- <a name="l00905"></a>00905 ch = (ch == <span class="charliteral">'g'</span>) ? <span class="charliteral">'e'</span> : <span class="charliteral">'E'</span>;
- <a name="l00906"></a>00906 <span class="keywordflow">else</span>
- <a name="l00907"></a>00907 ch = <span class="charliteral">'g'</span>;
- <a name="l00908"></a>00908 }
- <a name="l00909"></a>00909 <span class="keywordflow">if</span> (ch <= <span class="charliteral">'e'</span>) { <span class="comment">/* 'e' or 'E' fmt */</span>
- <a name="l00910"></a>00910 --expt;
- <a name="l00911"></a>00911 expsize = exponent(expstr, expt, ch);
- <a name="l00912"></a>00912 size = expsize + ndig;
- <a name="l00913"></a>00913 <span class="keywordflow">if</span> (ndig > 1 || flags & ALT)
- <a name="l00914"></a>00914 ++size;
- <a name="l00915"></a>00915 } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (ch == <span class="charliteral">'f'</span>) { <span class="comment">/* f fmt */</span>
- <a name="l00916"></a>00916 <span class="keywordflow">if</span> (expt > 0) {
- <a name="l00917"></a>00917 size = expt;
- <a name="l00918"></a>00918 <span class="keywordflow">if</span> (prec || flags & ALT)
- <a name="l00919"></a>00919 size += prec + 1;
- <a name="l00920"></a>00920 } <span class="keywordflow">else</span> <span class="comment">/* "0.X" */</span>
- <a name="l00921"></a>00921 size = (prec || flags & ALT)
- <a name="l00922"></a>00922 ? prec + 2
- <a name="l00923"></a>00923 : 1;
- <a name="l00924"></a>00924 } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (expt >= ndig) { <span class="comment">/* fixed g fmt */</span>
- <a name="l00925"></a>00925 size = expt;
- <a name="l00926"></a>00926 <span class="keywordflow">if</span> (flags & ALT)
- <a name="l00927"></a>00927 ++size;
- <a name="l00928"></a>00928 } <span class="keywordflow">else</span>
- <a name="l00929"></a>00929 size = ndig + (expt > 0 ?
- <a name="l00930"></a>00930 1 : 2 - expt);
- <a name="l00931"></a>00931
- <a name="l00932"></a>00932 <span class="keywordflow">if</span> (softsign)
- <a name="l00933"></a>00933 sign = <span class="charliteral">'-'</span>;
- <a name="l00934"></a>00934 <span class="keywordflow">break</span>;
- <a name="l00935"></a>00935 <span class="preprocessor">#endif </span><span class="comment">/* FLOATING_POINT */</span>
- <a name="l00936"></a>00936 <span class="keywordflow">case</span> <span class="charliteral">'n'</span>:
- <a name="l00937"></a>00937 <span class="preprocessor">#ifndef _NO_LONGLONG</span>
- <a name="l00938"></a>00938 <span class="preprocessor"></span> <span class="keywordflow">if</span> (flags & QUADINT)
- <a name="l00939"></a>00939 *GET_ARG(N, ap, quad_ptr_t) = ret;
- <a name="l00940"></a>00940 <span class="keywordflow">else</span>
- <a name="l00941"></a>00941 <span class="preprocessor">#endif</span>
- <a name="l00942"></a>00942 <span class="preprocessor"></span> <span class="keywordflow">if</span> (flags & LONGINT)
- <a name="l00943"></a>00943 *GET_ARG(N, ap, long_ptr_t) = ret;
- <a name="l00944"></a>00944 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (flags & SHORTINT)
- <a name="l00945"></a>00945 *GET_ARG(N, ap, short_ptr_t) = ret;
- <a name="l00946"></a>00946 <span class="keywordflow">else</span>
- <a name="l00947"></a>00947 *GET_ARG(N, ap, int_ptr_t) = ret;
- <a name="l00948"></a>00948 <span class="keywordflow">continue</span>; <span class="comment">/* no output */</span>
- <a name="l00949"></a>00949 <span class="keywordflow">case</span> <span class="charliteral">'O'</span>:
- <a name="l00950"></a>00950 flags |= LONGINT;
- <a name="l00951"></a>00951 <span class="comment">/*FALLTHROUGH*/</span>
- <a name="l00952"></a>00952 <span class="keywordflow">case</span> <span class="charliteral">'o'</span>:
- <a name="l00953"></a>00953 _uquad = UARG();
- <a name="l00954"></a>00954 base = OCT;
- <a name="l00955"></a>00955 <span class="keywordflow">goto</span> nosign;
- <a name="l00956"></a>00956 <span class="keywordflow">case</span> <span class="charliteral">'p'</span>:
- <a name="l00957"></a>00957 <span class="comment">/*</span>
- <a name="l00958"></a>00958 <span class="comment"> * ``The argument shall be a pointer to void. The</span>
- <a name="l00959"></a>00959 <span class="comment"> * value of the pointer is converted to a sequence</span>
- <a name="l00960"></a>00960 <span class="comment"> * of printable characters, in an implementation-</span>
- <a name="l00961"></a>00961 <span class="comment"> * defined manner.''</span>
- <a name="l00962"></a>00962 <span class="comment"> * -- ANSI X3J11</span>
- <a name="l00963"></a>00963 <span class="comment"> */</span>
- <a name="l00964"></a>00964 <span class="comment">/* NOSTRICT */</span>
- <a name="l00965"></a>00965 _uquad = (u_long)(<span class="keywordtype">unsigned</span> _POINTER_INT)GET_ARG(N, ap, void_ptr_t);
- <a name="l00966"></a>00966 base = HEX;
- <a name="l00967"></a>00967 xdigs = <span class="stringliteral">"0123456789abcdef"</span>;
- <a name="l00968"></a>00968 flags |= HEXPREFIX;
- <a name="l00969"></a>00969 ch = <span class="charliteral">'x'</span>;
- <a name="l00970"></a>00970 <span class="keywordflow">goto</span> nosign;
- <a name="l00971"></a>00971 <span class="keywordflow">case</span> <span class="charliteral">'s'</span>:
- <a name="l00972"></a>00972 <span class="keywordflow">case</span> <span class="charliteral">'S'</span>:
- <a name="l00973"></a>00973 sign = <span class="charliteral">'\0'</span>;
- <a name="l00974"></a>00974 <span class="keywordflow">if</span> ((cp = GET_ARG(N, ap, char_ptr_t)) == NULL) {
- <a name="l00975"></a>00975 cp = <span class="stringliteral">"(null)"</span>;
- <a name="l00976"></a>00976 size = 6;
- <a name="l00977"></a>00977 }
- <a name="l00978"></a>00978 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (ch == <span class="charliteral">'S'</span> || (flags & LONGINT)) {
- <a name="l00979"></a>00979 mbstate_t ps;
- <a name="l00980"></a>00980 _CONST <span class="keywordtype">wchar_t</span> *wcp;
- <a name="l00981"></a>00981
- <a name="l00982"></a>00982 wcp = (_CONST <span class="keywordtype">wchar_t</span> *)cp;
- <a name="l00983"></a>00983 size = m = 0;
- <a name="l00984"></a>00984 memset((<span class="keywordtype">void</span> *)&ps, <span class="charliteral">'\0'</span>, <span class="keyword">sizeof</span>(mbstate_t));
- <a name="l00985"></a>00985
- <a name="l00986"></a>00986 <span class="comment">/* Count number of bytes needed for multibyte</span>
- <a name="l00987"></a>00987 <span class="comment"> string that will be produced from widechar</span>
- <a name="l00988"></a>00988 <span class="comment"> string. */</span>
- <a name="l00989"></a>00989 <span class="keywordflow">if</span> (prec >= 0) {
- <a name="l00990"></a>00990 <span class="keywordflow">while</span> (1) {
- <a name="l00991"></a>00991 <span class="keywordflow">if</span> (wcp[m] == L<span class="charliteral">'\0'</span>)
- <a name="l00992"></a>00992 <span class="keywordflow">break</span>;
- <a name="l00993"></a>00993 <span class="keywordflow">if</span> ((n = (<span class="keywordtype">int</span>)_wcrtomb_r(data,
- <a name="l00994"></a>00994 buf, wcp[m], &ps)) == -1)
- <a name="l00995"></a>00995 <span class="keywordflow">goto</span> error;
- <a name="l00996"></a>00996 <span class="keywordflow">if</span> (n + size > prec)
- <a name="l00997"></a>00997 <span class="keywordflow">break</span>;
- <a name="l00998"></a>00998 m += 1;
- <a name="l00999"></a>00999 size += n;
- <a name="l01000"></a>01000 <span class="keywordflow">if</span> (size == prec)
- <a name="l01001"></a>01001 <span class="keywordflow">break</span>;
- <a name="l01002"></a>01002 }
- <a name="l01003"></a>01003 }
- <a name="l01004"></a>01004 <span class="keywordflow">else</span> {
- <a name="l01005"></a>01005 <span class="keywordflow">if</span> ((size = (<span class="keywordtype">int</span>)_wcsrtombs_r(data,
- <a name="l01006"></a>01006 NULL, &wcp, 0, &ps)) == -1)
- <a name="l01007"></a>01007 <span class="keywordflow">goto</span> error;
- <a name="l01008"></a>01008 wcp = (_CONST <span class="keywordtype">wchar_t</span> *)cp;
- <a name="l01009"></a>01009 }
- <a name="l01010"></a>01010
- <a name="l01011"></a>01011 <span class="keywordflow">if</span> (size == 0)
- <a name="l01012"></a>01012 <span class="keywordflow">break</span>;
- <a name="l01013"></a>01013
- <a name="l01014"></a>01014 <span class="preprocessor"> #ifndef _SMALL_PRINTF</span>
- <a name="l01015"></a>01015 <span class="preprocessor"></span> <span class="keywordflow">if</span> ((malloc_buf =
- <a name="l01016"></a>01016 (<span class="keywordtype">char</span> *)_malloc_r(data, size + 1)) == NULL)
- <a name="l01017"></a>01017 <span class="keywordflow">goto</span> error;
- <a name="l01018"></a>01018 <span class="preprocessor"> #endif</span>
- <a name="l01019"></a>01019 <span class="preprocessor"></span>
- <a name="l01020"></a>01020 <span class="comment">/* Convert widechar string to multibyte string. */</span>
- <a name="l01021"></a>01021 memset((<span class="keywordtype">void</span> *)&ps, <span class="charliteral">'\0'</span>, <span class="keyword">sizeof</span>(mbstate_t));
- <a name="l01022"></a>01022 <span class="keywordflow">if</span> (_wcsrtombs_r(data, malloc_buf, &wcp, size, &ps) != size)
- <a name="l01023"></a>01023 <span class="keywordflow">goto</span> error;
- <a name="l01024"></a>01024 cp = malloc_buf;
- <a name="l01025"></a>01025 cp[size] = <span class="charliteral">'\0'</span>;
- <a name="l01026"></a>01026 }
- <a name="l01027"></a>01027 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (prec >= 0) {
- <a name="l01028"></a>01028 <span class="comment">/*</span>
- <a name="l01029"></a>01029 <span class="comment"> * can't use strlen; can only look for the</span>
- <a name="l01030"></a>01030 <span class="comment"> * NUL in the first `prec' characters, and</span>
- <a name="l01031"></a>01031 <span class="comment"> * strlen() will go further.</span>
- <a name="l01032"></a>01032 <span class="comment"> */</span>
- <a name="l01033"></a>01033 <span class="keywordtype">char</span> *p = memchr(cp, 0, prec);
- <a name="l01034"></a>01034
- <a name="l01035"></a>01035 <span class="keywordflow">if</span> (p != NULL) {
- <a name="l01036"></a>01036 size = p - cp;
- <a name="l01037"></a>01037 <span class="keywordflow">if</span> (size > prec)
- <a name="l01038"></a>01038 size = prec;
- <a name="l01039"></a>01039 } <span class="keywordflow">else</span>
- <a name="l01040"></a>01040 size = prec;
- <a name="l01041"></a>01041 } <span class="keywordflow">else</span>
- <a name="l01042"></a>01042 size = strlen(cp);
- <a name="l01043"></a>01043
- <a name="l01044"></a>01044 <span class="keywordflow">break</span>;
- <a name="l01045"></a>01045 <span class="keywordflow">case</span> <span class="charliteral">'U'</span>:
- <a name="l01046"></a>01046 flags |= LONGINT;
- <a name="l01047"></a>01047 <span class="comment">/*FALLTHROUGH*/</span>
- <a name="l01048"></a>01048 <span class="keywordflow">case</span> <span class="charliteral">'u'</span>:
- <a name="l01049"></a>01049 _uquad = UARG();
- <a name="l01050"></a>01050 base = DEC;
- <a name="l01051"></a>01051 <span class="keywordflow">goto</span> nosign;
- <a name="l01052"></a>01052 <span class="keywordflow">case</span> <span class="charliteral">'X'</span>:
- <a name="l01053"></a>01053 xdigs = <span class="stringliteral">"0123456789ABCDEF"</span>;
- <a name="l01054"></a>01054 <span class="keywordflow">goto</span> hex;
- <a name="l01055"></a>01055 <span class="keywordflow">case</span> <span class="charliteral">'x'</span>:
- <a name="l01056"></a>01056 xdigs = <span class="stringliteral">"0123456789abcdef"</span>;
- <a name="l01057"></a>01057 hex: _uquad = UARG();
- <a name="l01058"></a>01058 base = HEX;
- <a name="l01059"></a>01059 <span class="comment">/* leading 0x/X only if non-zero */</span>
- <a name="l01060"></a>01060 <span class="keywordflow">if</span> (flags & ALT && _uquad != 0)
- <a name="l01061"></a>01061 flags |= HEXPREFIX;
- <a name="l01062"></a>01062
- <a name="l01063"></a>01063 <span class="comment">/* unsigned conversions */</span>
- <a name="l01064"></a>01064 nosign: sign = <span class="charliteral">'\0'</span>;
- <a name="l01065"></a>01065 <span class="comment">/*</span>
- <a name="l01066"></a>01066 <span class="comment"> * ``... diouXx conversions ... if a precision is</span>
- <a name="l01067"></a>01067 <span class="comment"> * specified, the 0 flag will be ignored.''</span>
- <a name="l01068"></a>01068 <span class="comment"> * -- ANSI X3J11</span>
- <a name="l01069"></a>01069 <span class="comment"> */</span>
- <a name="l01070"></a>01070 number: <span class="keywordflow">if</span> ((dprec = prec) >= 0)
- <a name="l01071"></a>01071 flags &= ~ZEROPAD;
- <a name="l01072"></a>01072
- <a name="l01073"></a>01073 <span class="comment">/*</span>
- <a name="l01074"></a>01074 <span class="comment"> * ``The result of converting a zero value with an</span>
- <a name="l01075"></a>01075 <span class="comment"> * explicit precision of zero is no characters.''</span>
- <a name="l01076"></a>01076 <span class="comment"> * -- ANSI X3J11</span>
- <a name="l01077"></a>01077 <span class="comment"> */</span>
- <a name="l01078"></a>01078 cp = buf + BUF;
- <a name="l01079"></a>01079 <span class="keywordflow">if</span> (_uquad != 0 || prec != 0) {
- <a name="l01080"></a>01080 <span class="comment">/*</span>
- <a name="l01081"></a>01081 <span class="comment"> * Unsigned mod is hard, and unsigned mod</span>
- <a name="l01082"></a>01082 <span class="comment"> * by a constant is easier than that by</span>
- <a name="l01083"></a>01083 <span class="comment"> * a variable; hence this switch.</span>
- <a name="l01084"></a>01084 <span class="comment"> */</span>
- <a name="l01085"></a>01085 <span class="keywordflow">switch</span> (base) {
- <a name="l01086"></a>01086 <span class="keywordflow">case</span> OCT:
- <a name="l01087"></a>01087 <span class="keywordflow">do</span> {
- <a name="l01088"></a>01088 *--cp = to_char(_uquad & 7);
- <a name="l01089"></a>01089 _uquad >>= 3;
- <a name="l01090"></a>01090 } <span class="keywordflow">while</span> (_uquad);
- <a name="l01091"></a>01091 <span class="comment">/* handle octal leading 0 */</span>
- <a name="l01092"></a>01092 <span class="keywordflow">if</span> (flags & ALT && *cp != <span class="charliteral">'0'</span>)
- <a name="l01093"></a>01093 *--cp = <span class="charliteral">'0'</span>;
- <a name="l01094"></a>01094 <span class="keywordflow">break</span>;
- <a name="l01095"></a>01095
- <a name="l01096"></a>01096 <span class="keywordflow">case</span> DEC:
- <a name="l01097"></a>01097 <span class="comment">/* many numbers are 1 digit */</span>
- <a name="l01098"></a>01098 <span class="keywordflow">while</span> (_uquad >= 10) {
- <a name="l01099"></a>01099 *--cp = to_char(_uquad % 10);
- <a name="l01100"></a>01100 _uquad /= 10;
- <a name="l01101"></a>01101 }
- <a name="l01102"></a>01102 *--cp = to_char(_uquad);
- <a name="l01103"></a>01103 <span class="keywordflow">break</span>;
- <a name="l01104"></a>01104
- <a name="l01105"></a>01105 <span class="keywordflow">case</span> HEX:
- <a name="l01106"></a>01106 <span class="keywordflow">do</span> {
- <a name="l01107"></a>01107 *--cp = xdigs[_uquad & 15];
- <a name="l01108"></a>01108 _uquad >>= 4;
- <a name="l01109"></a>01109 } <span class="keywordflow">while</span> (_uquad);
- <a name="l01110"></a>01110 <span class="keywordflow">break</span>;
- <a name="l01111"></a>01111
- <a name="l01112"></a>01112 <span class="keywordflow">default</span>:
- <a name="l01113"></a>01113 cp = <span class="stringliteral">"bug in vfprintf: bad base"</span>;
- <a name="l01114"></a>01114 size = strlen(cp);
- <a name="l01115"></a>01115 <span class="keywordflow">goto</span> skipsize;
- <a name="l01116"></a>01116 }
- <a name="l01117"></a>01117 }
- <a name="l01118"></a>01118 <span class="comment">/*</span>
- <a name="l01119"></a>01119 <span class="comment"> * ...result is to be converted to an 'alternate form'.</span>
- <a name="l01120"></a>01120 <span class="comment"> * For o conversion, it increases the precision to force</span>
- <a name="l01121"></a>01121 <span class="comment"> * the first digit of the result to be a zero."</span>
- <a name="l01122"></a>01122 <span class="comment"> * -- ANSI X3J11</span>
- <a name="l01123"></a>01123 <span class="comment"> *</span>
- <a name="l01124"></a>01124 <span class="comment"> * To demonstrate this case, compile and run:</span>
- <a name="l01125"></a>01125 <span class="comment"> * printf ("%#.0o",0);</span>
- <a name="l01126"></a>01126 <span class="comment"> */</span>
- <a name="l01127"></a>01127 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (base == OCT && (flags & ALT))
- <a name="l01128"></a>01128 *--cp = <span class="charliteral">'0'</span>;
- <a name="l01129"></a>01129
- <a name="l01130"></a>01130 size = buf + BUF - cp;
- <a name="l01131"></a>01131 skipsize:
- <a name="l01132"></a>01132 <span class="keywordflow">break</span>;
- <a name="l01133"></a>01133 <span class="keywordflow">default</span>: <span class="comment">/* "%?" prints ?, unless ? is NUL */</span>
- <a name="l01134"></a>01134 <span class="keywordflow">if</span> (ch == <span class="charliteral">'\0'</span>)
- <a name="l01135"></a>01135 <span class="keywordflow">goto</span> done;
- <a name="l01136"></a>01136 <span class="comment">/* pretend it was %c with argument ch */</span>
- <a name="l01137"></a>01137 cp = buf;
- <a name="l01138"></a>01138 *cp = ch;
- <a name="l01139"></a>01139 size = 1;
- <a name="l01140"></a>01140 sign = <span class="charliteral">'\0'</span>;
- <a name="l01141"></a>01141 <span class="keywordflow">break</span>;
- <a name="l01142"></a>01142 }
- <a name="l01143"></a>01143
- <a name="l01144"></a>01144 <span class="comment">/*</span>
- <a name="l01145"></a>01145 <span class="comment"> * All reasonable formats wind up here. At this point, `cp'</span>
- <a name="l01146"></a>01146 <span class="comment"> * points to a string which (if not flags&LADJUST) should be</span>
- <a name="l01147"></a>01147 <span class="comment"> * padded out to `width' places. If flags&ZEROPAD, it should</span>
- <a name="l01148"></a>01148 <span class="comment"> * first be prefixed by any sign or other prefix; otherwise,</span>
- <a name="l01149"></a>01149 <span class="comment"> * it should be blank padded before the prefix is emitted.</span>
- <a name="l01150"></a>01150 <span class="comment"> * After any left-hand padding and prefixing, emit zeroes</span>
- <a name="l01151"></a>01151 <span class="comment"> * required by a decimal [diouxX] precision, then print the</span>
- <a name="l01152"></a>01152 <span class="comment"> * string proper, then emit zeroes required by any leftover</span>
- <a name="l01153"></a>01153 <span class="comment"> * floating precision; finally, if LADJUST, pad with blanks.</span>
- <a name="l01154"></a>01154 <span class="comment"> *</span>
- <a name="l01155"></a>01155 <span class="comment"> * Compute actual size, so we know how much to pad.</span>
- <a name="l01156"></a>01156 <span class="comment"> * size excludes decimal prec; realsz includes it.</span>
- <a name="l01157"></a>01157 <span class="comment"> */</span>
- <a name="l01158"></a>01158 realsz = dprec > size ? dprec : size;
- <a name="l01159"></a>01159 <span class="keywordflow">if</span> (sign)
- <a name="l01160"></a>01160 realsz++;
- <a name="l01161"></a>01161 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (flags & HEXPREFIX)
- <a name="l01162"></a>01162 realsz+= 2;
- <a name="l01163"></a>01163
- <a name="l01164"></a>01164 <span class="comment">/* right-adjusting blank padding */</span>
- <a name="l01165"></a>01165 <span class="keywordflow">if</span> ((flags & (LADJUST|ZEROPAD)) == 0)
- <a name="l01166"></a>01166 PAD(width - realsz, blanks, fp);
- <a name="l01167"></a>01167
- <a name="l01168"></a>01168 <span class="comment">/* prefix */</span>
- <a name="l01169"></a>01169 <span class="keywordflow">if</span> (sign) {
- <a name="l01170"></a>01170 PRINT(&sign, 1, fp);
- <a name="l01171"></a>01171 } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (flags & HEXPREFIX) {
- <a name="l01172"></a>01172 ox[0] = <span class="charliteral">'0'</span>;
- <a name="l01173"></a>01173 ox[1] = ch;
- <a name="l01174"></a>01174 PRINT(ox, 2 ,fp);
- <a name="l01175"></a>01175 }
- <a name="l01176"></a>01176
- <a name="l01177"></a>01177 <span class="comment">/* right-adjusting zero padding */</span>
- <a name="l01178"></a>01178 <span class="keywordflow">if</span> ((flags & (LADJUST|ZEROPAD)) == ZEROPAD)
- <a name="l01179"></a>01179 PAD(width - realsz, zeroes, fp);
- <a name="l01180"></a>01180
- <a name="l01181"></a>01181 <span class="comment">/* leading zeroes from decimal precision */</span>
- <a name="l01182"></a>01182 PAD(dprec - size, zeroes, fp);
- <a name="l01183"></a>01183
- <a name="l01184"></a>01184 <span class="comment">/* the string or number proper */</span>
- <a name="l01185"></a>01185 <span class="preprocessor">#ifdef FLOATING_POINT</span>
- <a name="l01186"></a>01186 <span class="preprocessor"></span> <span class="keywordflow">if</span> ((flags & FPT) == 0) {
- <a name="l01187"></a>01187 PRINT(cp, size, fp);
- <a name="l01188"></a>01188 } <span class="keywordflow">else</span> { <span class="comment">/* glue together f_p fragments */</span>
- <a name="l01189"></a>01189 <span class="keywordflow">if</span> (ch >= <span class="charliteral">'f'</span>) { <span class="comment">/* 'f' or 'g' */</span>
- <a name="l01190"></a>01190 <span class="keywordflow">if</span> (_fpvalue == 0) {
- <a name="l01191"></a>01191 <span class="comment">/* kludge for __dtoa irregularity */</span>
- <a name="l01192"></a>01192 PRINT(<span class="stringliteral">"0"</span>, 1, fp);
- <a name="l01193"></a>01193 <span class="keywordflow">if</span> (expt < ndig || (flags & ALT) != 0) {
- <a name="l01194"></a>01194 PRINT(decimal_point, 1, fp);
- <a name="l01195"></a>01195 PAD(ndig - 1, zeroes, fp);
- <a name="l01196"></a>01196 }
- <a name="l01197"></a>01197 } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (expt <= 0) {
- <a name="l01198"></a>01198 PRINT(<span class="stringliteral">"0"</span>, 1, fp);
- <a name="l01199"></a>01199 <span class="keywordflow">if</span>(expt || ndig) {
- <a name="l01200"></a>01200 PRINT(decimal_point, 1, fp);
- <a name="l01201"></a>01201 PAD(-expt, zeroes, fp);
- <a name="l01202"></a>01202 PRINT(cp, ndig, fp);
- <a name="l01203"></a>01203 }
- <a name="l01204"></a>01204 } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (expt >= ndig) {
- <a name="l01205"></a>01205 PRINT(cp, ndig, fp);
- <a name="l01206"></a>01206 PAD(expt - ndig, zeroes, fp);
- <a name="l01207"></a>01207 <span class="keywordflow">if</span> (flags & ALT)
- <a name="l01208"></a>01208 PRINT(<span class="stringliteral">"."</span>, 1, fp);
- <a name="l01209"></a>01209 } <span class="keywordflow">else</span> {
- <a name="l01210"></a>01210 PRINT(cp, expt, fp);
- <a name="l01211"></a>01211 cp += expt;
- <a name="l01212"></a>01212 PRINT(<span class="stringliteral">"."</span>, 1, fp);
- <a name="l01213"></a>01213 PRINT(cp, ndig-expt, fp);
- <a name="l01214"></a>01214 }
- <a name="l01215"></a>01215 } <span class="keywordflow">else</span> { <span class="comment">/* 'e' or 'E' */</span>
- <a name="l01216"></a>01216 <span class="keywordflow">if</span> (ndig > 1 || flags & ALT) {
- <a name="l01217"></a>01217 ox[0] = *cp++;
- <a name="l01218"></a>01218 ox[1] = <span class="charliteral">'.'</span>;
- <a name="l01219"></a>01219 PRINT(ox, 2, fp);
- <a name="l01220"></a>01220 <span class="keywordflow">if</span> (_fpvalue) {
- <a name="l01221"></a>01221 PRINT(cp, ndig-1, fp);
- <a name="l01222"></a>01222 } <span class="keywordflow">else</span> <span class="comment">/* 0.[0..] */</span>
- <a name="l01223"></a>01223 <span class="comment">/* __dtoa irregularity */</span>
- <a name="l01224"></a>01224 PAD(ndig - 1, zeroes, fp);
- <a name="l01225"></a>01225 } <span class="keywordflow">else</span> <span class="comment">/* XeYYY */</span>
- <a name="l01226"></a>01226 PRINT(cp, 1, fp);
- <a name="l01227"></a>01227 PRINT(expstr, expsize, fp);
- <a name="l01228"></a>01228 }
- <a name="l01229"></a>01229 }
- <a name="l01230"></a>01230 <span class="preprocessor">#else</span>
- <a name="l01231"></a>01231 <span class="preprocessor"></span> PRINT(cp, size, fp);
- <a name="l01232"></a>01232 <span class="preprocessor">#endif</span>
- <a name="l01233"></a>01233 <span class="preprocessor"></span> <span class="comment">/* left-adjusting padding (always blank) */</span>
- <a name="l01234"></a>01234 <span class="keywordflow">if</span> (flags & LADJUST)
- <a name="l01235"></a>01235 PAD(width - realsz, blanks, fp);
- <a name="l01236"></a>01236
- <a name="l01237"></a>01237 <span class="comment">/* finally, adjust ret */</span>
- <a name="l01238"></a>01238 ret += width > realsz ? width : realsz;
- <a name="l01239"></a>01239
- <a name="l01240"></a>01240 FLUSH(); <span class="comment">/* copy out the I/O vectors */</span>
- <a name="l01241"></a>01241
- <a name="l01242"></a>01242 <span class="preprocessor">#ifndef _SMALL_PRINTF</span>
- <a name="l01243"></a>01243 <span class="preprocessor"></span> <span class="keywordflow">if</span> (malloc_buf != NULL) {
- <a name="l01244"></a>01244 free(malloc_buf);
- <a name="l01245"></a>01245 malloc_buf = NULL;
- <a name="l01246"></a>01246 }
- <a name="l01247"></a>01247 <span class="preprocessor">#endif</span>
- <a name="l01248"></a>01248 <span class="preprocessor"></span> }
- <a name="l01249"></a>01249 done:
- <a name="l01250"></a>01250 FLUSH();
- <a name="l01251"></a>01251 error:
- <a name="l01252"></a>01252
- <a name="l01253"></a>01253 <span class="preprocessor">#ifndef _SMALL_PRINTF</span>
- <a name="l01254"></a>01254 <span class="preprocessor"></span> <span class="keywordflow">if</span> (malloc_buf != NULL)
- <a name="l01255"></a>01255 free(malloc_buf);
- <a name="l01256"></a>01256 <span class="keywordflow">return</span> (__sferror(fp) ? EOF : ret);
- <a name="l01257"></a>01257 <span class="preprocessor">#else</span>
- <a name="l01258"></a>01258 <span class="preprocessor"></span> <span class="keywordflow">return</span> ret;
- <a name="l01259"></a>01259 <span class="preprocessor">#endif</span>
- <a name="l01260"></a>01260 <span class="preprocessor"></span> <span class="comment">/* NOTREACHED */</span>
- <a name="l01261"></a>01261 }
- <a name="l01262"></a>01262
- <a name="l01263"></a>01263 <span class="preprocessor">#ifdef FLOATING_POINT</span>
- <a name="l01264"></a>01264 <span class="preprocessor"></span>
- <a name="l01265"></a>01265 <span class="preprocessor">#ifdef _NO_LONGDBL</span>
- <a name="l01266"></a>01266 <span class="preprocessor"></span><span class="keyword">extern</span> <span class="keywordtype">char</span> *_dtoa_r _PARAMS((<span class="keyword">struct</span> _reent *, <span class="keywordtype">double</span>, <span class="keywordtype">int</span>,
- <a name="l01267"></a>01267 <span class="keywordtype">int</span>, <span class="keywordtype">int</span> *, <span class="keywordtype">int</span> *, <span class="keywordtype">char</span> **));
- <a name="l01268"></a>01268 <span class="preprocessor">#else</span>
- <a name="l01269"></a>01269 <span class="preprocessor"></span><span class="keyword">extern</span> <span class="keywordtype">char</span> *_ldtoa_r _PARAMS((<span class="keyword">struct</span> _reent *, _LONG_DOUBLE, <span class="keywordtype">int</span>,
- <a name="l01270"></a>01270 <span class="keywordtype">int</span>, <span class="keywordtype">int</span> *, <span class="keywordtype">int</span> *, <span class="keywordtype">char</span> **));
- <a name="l01271"></a>01271 <span class="preprocessor">#undef word0</span>
- <a name="l01272"></a>01272 <span class="preprocessor"></span><span class="preprocessor">#define word0(x) ldword0(x)</span>
- <a name="l01273"></a>01273 <span class="preprocessor"></span><span class="preprocessor">#endif</span>
- <a name="l01274"></a>01274 <span class="preprocessor"></span>
- <a name="l01275"></a>01275 <span class="keyword">static</span> <span class="keywordtype">char</span> *
- <a name="l01276"></a>01276 cvt(data, value, ndigits, flags, sign, decpt, ch, length)
- <a name="l01277"></a>01277 struct _reent *data;
- <a name="l01278"></a>01278 <span class="preprocessor">#ifdef _NO_LONGDBL</span>
- <a name="l01279"></a>01279 <span class="preprocessor"></span> <span class="keywordtype">double</span> value;
- <a name="l01280"></a>01280 <span class="preprocessor">#else</span>
- <a name="l01281"></a>01281 <span class="preprocessor"></span> _LONG_DOUBLE value;
- <a name="l01282"></a>01282 <span class="preprocessor">#endif</span>
- <a name="l01283"></a>01283 <span class="preprocessor"></span> <span class="keywordtype">int</span> ndigits, flags, *decpt, ch, *length;
- <a name="l01284"></a>01284 <span class="keywordtype">char</span> *sign;
- <a name="l01285"></a>01285 {
- <a name="l01286"></a>01286 <span class="keywordtype">int</span> mode, dsgn;
- <a name="l01287"></a>01287 <span class="keywordtype">char</span> *digits, *bp, *rve;
- <a name="l01288"></a>01288 <span class="preprocessor">#ifdef _NO_LONGDBL</span>
- <a name="l01289"></a>01289 <span class="preprocessor"></span> <span class="keyword">union </span>double_union tmp;
- <a name="l01290"></a>01290 <span class="preprocessor">#else</span>
- <a name="l01291"></a>01291 <span class="preprocessor"></span> <span class="keyword">struct </span>ldieee *ldptr;
- <a name="l01292"></a>01292 <span class="preprocessor">#endif</span>
- <a name="l01293"></a>01293 <span class="preprocessor"></span>
- <a name="l01294"></a>01294 <span class="keywordflow">if</span> (ch == <span class="charliteral">'f'</span>) {
- <a name="l01295"></a>01295 mode = 3; <span class="comment">/* ndigits after the decimal point */</span>
- <a name="l01296"></a>01296 } <span class="keywordflow">else</span> {
- <a name="l01297"></a>01297 <span class="comment">/* To obtain ndigits after the decimal point for the 'e' </span>
- <a name="l01298"></a>01298 <span class="comment"> * and 'E' formats, round to ndigits + 1 significant </span>
- <a name="l01299"></a>01299 <span class="comment"> * figures.</span>
- <a name="l01300"></a>01300 <span class="comment"> */</span>
- <a name="l01301"></a>01301 <span class="keywordflow">if</span> (ch == <span class="charliteral">'e'</span> || ch == <span class="charliteral">'E'</span>) {
- <a name="l01302"></a>01302 ndigits++;
- <a name="l01303"></a>01303 }
- <a name="l01304"></a>01304 mode = 2; <span class="comment">/* ndigits significant digits */</span>
- <a name="l01305"></a>01305 }
- <a name="l01306"></a>01306
- <a name="l01307"></a>01307 <span class="preprocessor">#ifdef _NO_LONGDBL</span>
- <a name="l01308"></a>01308 <span class="preprocessor"></span> tmp.d = value;
- <a name="l01309"></a>01309
- <a name="l01310"></a>01310 <span class="keywordflow">if</span> (word0(tmp) & Sign_bit) { <span class="comment">/* this will check for < 0 and -0.0 */</span>
- <a name="l01311"></a>01311 value = -value;
- <a name="l01312"></a>01312 *sign = <span class="charliteral">'-'</span>;
- <a name="l01313"></a>01313 } <span class="keywordflow">else</span>
- <a name="l01314"></a>01314 *sign = <span class="charliteral">'\000'</span>;
- <a name="l01315"></a>01315
- <a name="l01316"></a>01316 digits = _dtoa_r(data, value, mode, ndigits, decpt, &dsgn, &rve);
- <a name="l01317"></a>01317 <span class="preprocessor">#else </span><span class="comment">/* !_NO_LONGDBL */</span>
- <a name="l01318"></a>01318 ldptr = (<span class="keyword">struct </span>ldieee *)&value;
- <a name="l01319"></a>01319 <span class="keywordflow">if</span> (ldptr->sign) { <span class="comment">/* this will check for < 0 and -0.0 */</span>
- <a name="l01320"></a>01320 value = -value;
- <a name="l01321"></a>01321 *sign = <span class="charliteral">'-'</span>;
- <a name="l01322"></a>01322 } <span class="keywordflow">else</span>
- <a name="l01323"></a>01323 *sign = <span class="charliteral">'\000'</span>;
- <a name="l01324"></a>01324
- <a name="l01325"></a>01325 digits = _ldtoa_r(data, value, mode, ndigits, decpt, &dsgn, &rve);
- <a name="l01326"></a>01326 <span class="preprocessor">#endif </span><span class="comment">/* !_NO_LONGDBL */</span>
- <a name="l01327"></a>01327
- <a name="l01328"></a>01328 <span class="keywordflow">if</span> ((ch != <span class="charliteral">'g'</span> && ch != <span class="charliteral">'G'</span>) || flags & ALT) { <span class="comment">/* Print trailing zeros */</span>
- <a name="l01329"></a>01329 bp = digits + ndigits;
- <a name="l01330"></a>01330 <span class="keywordflow">if</span> (ch == <span class="charliteral">'f'</span>) {
- <a name="l01331"></a>01331 <span class="keywordflow">if</span> (*digits == <span class="charliteral">'0'</span> && value)
- <a name="l01332"></a>01332 *decpt = -ndigits + 1;
- <a name="l01333"></a>01333 bp += *decpt;
- <a name="l01334"></a>01334 }
- <a name="l01335"></a>01335 <span class="keywordflow">if</span> (value == 0) <span class="comment">/* kludge for __dtoa irregularity */</span>
- <a name="l01336"></a>01336 rve = bp;
- <a name="l01337"></a>01337 <span class="keywordflow">while</span> (rve < bp)
- <a name="l01338"></a>01338 *rve++ = <span class="charliteral">'0'</span>;
- <a name="l01339"></a>01339 }
- <a name="l01340"></a>01340 *length = rve - digits;
- <a name="l01341"></a>01341 <span class="keywordflow">return</span> (digits);
- <a name="l01342"></a>01342 }
- <a name="l01343"></a>01343
- <a name="l01344"></a>01344 <span class="keyword">static</span> <span class="keywordtype">int</span>
- <a name="l01345"></a>01345 exponent(p0, exp, fmtch)
- <a name="l01346"></a>01346 char *p0;
- <a name="l01347"></a>01347 <span class="keywordtype">int</span> exp, fmtch;
- <a name="l01348"></a>01348 {
- <a name="l01349"></a>01349 <span class="keyword">register</span> <span class="keywordtype">char</span> *p, *t;
- <a name="l01350"></a>01350 <span class="keywordtype">char</span> expbuf[40];
- <a name="l01351"></a>01351
- <a name="l01352"></a>01352 p = p0;
- <a name="l01353"></a>01353 *p++ = fmtch;
- <a name="l01354"></a>01354 <span class="keywordflow">if</span> (exp < 0) {
- <a name="l01355"></a>01355 exp = -exp;
- <a name="l01356"></a>01356 *p++ = <span class="charliteral">'-'</span>;
- <a name="l01357"></a>01357 }
- <a name="l01358"></a>01358 <span class="keywordflow">else</span>
- <a name="l01359"></a>01359 *p++ = <span class="charliteral">'+'</span>;
- <a name="l01360"></a>01360 t = expbuf + 40;
- <a name="l01361"></a>01361 <span class="keywordflow">if</span> (exp > 9) {
- <a name="l01362"></a>01362 <span class="keywordflow">do</span> {
- <a name="l01363"></a>01363 *--t = to_char(exp % 10);
- <a name="l01364"></a>01364 } <span class="keywordflow">while</span> ((exp /= 10) > 9);
- <a name="l01365"></a>01365 *--t = to_char(exp);
- <a name="l01366"></a>01366 <span class="keywordflow">for</span> (; t < expbuf + 40; *p++ = *t++);
- <a name="l01367"></a>01367 }
- <a name="l01368"></a>01368 <span class="keywordflow">else</span> {
- <a name="l01369"></a>01369 *p++ = <span class="charliteral">'0'</span>;
- <a name="l01370"></a>01370 *p++ = to_char(exp);
- <a name="l01371"></a>01371 }
- <a name="l01372"></a>01372 <span class="keywordflow">return</span> (p - p0);
- <a name="l01373"></a>01373 }
- <a name="l01374"></a>01374 <span class="preprocessor">#endif </span><span class="comment">/* FLOATING_POINT */</span>
- <a name="l01375"></a>01375
- <a name="l01376"></a>01376
- <a name="l01377"></a>01377 <span class="preprocessor">#ifndef _NO_POS_ARGS</span>
- <a name="l01378"></a>01378 <span class="preprocessor"></span>
- <a name="l01379"></a>01379 <span class="comment">/* Positional argument support.</span>
- <a name="l01380"></a>01380 <span class="comment"> Written by Jeff Johnston</span>
- <a name="l01381"></a>01381 <span class="comment"></span>
- <a name="l01382"></a>01382 <span class="comment"> Copyright (c) 2002 Red Hat Incorporated.</span>
- <a name="l01383"></a>01383 <span class="comment"> All rights reserved.</span>
- <a name="l01384"></a>01384 <span class="comment"></span>
- <a name="l01385"></a>01385 <span class="comment"> Redistribution and use in source and binary forms, with or without</span>
- <a name="l01386"></a>01386 <span class="comment"> modification, are permitted provided that the following conditions are met:</span>
- <a name="l01387"></a>01387 <span class="comment"></span>
- <a name="l01388"></a>01388 <span class="comment"> Redistributions of source code must retain the above copyright</span>
- <a name="l01389"></a>01389 <span class="comment"> notice, this list of conditions and the following disclaimer.</span>
- <a name="l01390"></a>01390 <span class="comment"></span>
- <a name="l01391"></a>01391 <span class="comment"> Redistributions in binary form must reproduce the above copyright</span>
- <a name="l01392"></a>01392 <span class="comment"> notice, this list of conditions and the following disclaimer in the</span>
- <a name="l01393"></a>01393 <span class="comment"> documentation and/or other materials provided with the distribution.</span>
- <a name="l01394"></a>01394 <span class="comment"> </span>
- <a name="l01395"></a>01395 <span class="comment"> The name of Red Hat Incorporated may not be used to endorse</span>
- <a name="l01396"></a>01396 <span class="comment"> or promote products derived from this software without specific</span>
- <a name="l01397"></a>01397 <span class="comment"> prior written permission.</span>
- <a name="l01398"></a>01398 <span class="comment"></span>
- <a name="l01399"></a>01399 <span class="comment"> THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"</span>
- <a name="l01400"></a>01400 <span class="comment"> AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE</span>
- <a name="l01401"></a>01401 <span class="comment"> IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE</span>
- <a name="l01402"></a>01402 <span class="comment"> DISCLAIMED. IN NO EVENT SHALL RED HAT INCORPORATED BE LIABLE FOR ANY</span>
- <a name="l01403"></a>01403 <span class="comment"> DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES</span>
- <a name="l01404"></a>01404 <span class="comment"> (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;</span>
- <a name="l01405"></a>01405 <span class="comment"> LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND</span>
- <a name="l01406"></a>01406 <span class="comment"> ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT</span>
- <a name="l01407"></a>01407 <span class="comment"> (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS</span>
- <a name="l01408"></a>01408 <span class="comment"> SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */</span>
- <a name="l01409"></a>01409
- <a name="l01410"></a>01410 <span class="keyword">typedef</span> <span class="keyword">enum</span> {
- <a name="l01411"></a>01411 ZERO, <span class="comment">/* '0' */</span>
- <a name="l01412"></a>01412 DIGIT, <span class="comment">/* '1-9' */</span>
- <a name="l01413"></a>01413 DOLLAR, <span class="comment">/* '$' */</span>
- <a name="l01414"></a>01414 MODFR, <span class="comment">/* spec modifier */</span>
- <a name="l01415"></a>01415 SPEC, <span class="comment">/* format specifier */</span>
- <a name="l01416"></a>01416 DOT, <span class="comment">/* '.' */</span>
- <a name="l01417"></a>01417 STAR, <span class="comment">/* '*' */</span>
- <a name="l01418"></a>01418 FLAG, <span class="comment">/* format flag */</span>
- <a name="l01419"></a>01419 OTHER, <span class="comment">/* all other chars */</span>
- <a name="l01420"></a>01420 MAX_CH_CLASS <span class="comment">/* place-holder */</span>
- <a name="l01421"></a>01421 } CH_CLASS;
- <a name="l01422"></a>01422
- <a name="l01423"></a>01423 <span class="keyword">typedef</span> <span class="keyword">enum</span> {
- <a name="l01424"></a>01424 START, <span class="comment">/* start */</span>
- <a name="l01425"></a>01425 SFLAG, <span class="comment">/* seen a flag */</span>
- <a name="l01426"></a>01426 WDIG, <span class="comment">/* seen digits in width area */</span>
- <a name="l01427"></a>01427 WIDTH, <span class="comment">/* processed width */</span>
- <a name="l01428"></a>01428 SMOD, <span class="comment">/* seen spec modifier */</span>
- <a name="l01429"></a>01429 SDOT, <span class="comment">/* seen dot */</span>
- <a name="l01430"></a>01430 VARW, <span class="comment">/* have variable width specifier */</span>
- <a name="l01431"></a>01431 VARP, <span class="comment">/* have variable precision specifier */</span>
- <a name="l01432"></a>01432 PREC, <span class="comment">/* processed precision */</span>
- <a name="l01433"></a>01433 VWDIG, <span class="comment">/* have digits in variable width specification */</span>
- <a name="l01434"></a>01434 VPDIG, <span class="comment">/* have digits in variable precision specification */</span>
- <a name="l01435"></a>01435 DONE, <span class="comment">/* done */</span>
- <a name="l01436"></a>01436 MAX_STATE, <span class="comment">/* place-holder */</span>
- <a name="l01437"></a>01437 } STATE;
- <a name="l01438"></a>01438
- <a name="l01439"></a>01439 <span class="keyword">typedef</span> <span class="keyword">enum</span> {
- <a name="l01440"></a>01440 NOOP, <span class="comment">/* do nothing */</span>
- <a name="l01441"></a>01441 NUMBER, <span class="comment">/* build a number from digits */</span>
- <a name="l01442"></a>01442 SKIPNUM, <span class="comment">/* skip over digits */</span>
- <a name="l01443"></a>01443 GETMOD, <span class="comment">/* get and process format modifier */</span>
- <a name="l01444"></a>01444 GETARG, <span class="comment">/* get and process argument */</span>
- <a name="l01445"></a>01445 GETPW, <span class="comment">/* get variable precision or width */</span>
- <a name="l01446"></a>01446 GETPWB, <span class="comment">/* get variable precision or width and pushback fmt char */</span>
- <a name="l01447"></a>01447 GETPOS, <span class="comment">/* get positional parameter value */</span>
- <a name="l01448"></a>01448 PWPOS, <span class="comment">/* get positional parameter value for variable width or precision */</span>
- <a name="l01449"></a>01449 } ACTION;
- <a name="l01450"></a>01450
- <a name="l01451"></a>01451 <span class="keyword">const</span> <span class="keyword">static</span> CH_CLASS chclass[256] = {
- <a name="l01452"></a>01452 <span class="comment">/* 00-07 */</span> OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER,
- <a name="l01453"></a>01453 <span class="comment">/* 08-0f */</span> OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER,
- <a name="l01454"></a>01454 <span class="comment">/* 10-17 */</span> OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER,
- <a name="l01455"></a>01455 <span class="comment">/* 18-1f */</span> OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER,
- <a name="l01456"></a>01456 <span class="comment">/* 20-27 */</span> FLAG, OTHER, OTHER, FLAG, DOLLAR, OTHER, OTHER, OTHER,
- <a name="l01457"></a>01457 <span class="comment">/* 28-2f */</span> OTHER, OTHER, STAR, FLAG, OTHER, FLAG, DOT, OTHER,
- <a name="l01458"></a>01458 <span class="comment">/* 30-37 */</span> ZERO, DIGIT, DIGIT, DIGIT, DIGIT, DIGIT, DIGIT, DIGIT,
- <a name="l01459"></a>01459 <span class="comment">/* 38-3f */</span> DIGIT, DIGIT, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER,
- <a name="l01460"></a>01460 <span class="comment">/* 40-47 */</span> OTHER, OTHER, OTHER, SPEC, SPEC, SPEC, OTHER, SPEC,
- <a name="l01461"></a>01461 <span class="comment">/* 48-4f */</span> OTHER, OTHER, OTHER, OTHER, MODFR, OTHER, OTHER, SPEC,
- <a name="l01462"></a>01462 <span class="comment">/* 50-57 */</span> OTHER, OTHER, OTHER, SPEC, OTHER, SPEC, OTHER, SPEC,
- <a name="l01463"></a>01463 <span class="comment">/* 58-5f */</span> OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER,
- <a name="l01464"></a>01464 <span class="comment">/* 60-67 */</span> OTHER, OTHER, OTHER, SPEC, SPEC, SPEC, SPEC, SPEC,
- <a name="l01465"></a>01465 <span class="comment">/* 68-6f */</span> MODFR, SPEC, OTHER, OTHER, MODFR, OTHER, OTHER, SPEC,
- <a name="l01466"></a>01466 <span class="comment">/* 70-77 */</span> SPEC, MODFR, OTHER, SPEC, OTHER, SPEC, OTHER, OTHER,
- <a name="l01467"></a>01467 <span class="comment">/* 78-7f */</span> SPEC, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER,
- <a name="l01468"></a>01468 <span class="comment">/* 80-87 */</span> OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER,
- <a name="l01469"></a>01469 <span class="comment">/* 88-8f */</span> OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER,
- <a name="l01470"></a>01470 <span class="comment">/* 90-97 */</span> OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER,
- <a name="l01471"></a>01471 <span class="comment">/* 98-9f */</span> OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER,
- <a name="l01472"></a>01472 <span class="comment">/* a0-a7 */</span> OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER,
- <a name="l01473"></a>01473 <span class="comment">/* a8-af */</span> OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER,
- <a name="l01474"></a>01474 <span class="comment">/* b0-b7 */</span> OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER,
- <a name="l01475"></a>01475 <span class="comment">/* b8-bf */</span> OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER,
- <a name="l01476"></a>01476 <span class="comment">/* c0-c7 */</span> OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER,
- <a name="l01477"></a>01477 <span class="comment">/* c8-cf */</span> OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER,
- <a name="l01478"></a>01478 <span class="comment">/* d0-d7 */</span> OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER,
- <a name="l01479"></a>01479 <span class="comment">/* d8-df */</span> OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER,
- <a name="l01480"></a>01480 <span class="comment">/* e0-e7 */</span> OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER,
- <a name="l01481"></a>01481 <span class="comment">/* e8-ef */</span> OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER,
- <a name="l01482"></a>01482 <span class="comment">/* f0-f7 */</span> OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER,
- <a name="l01483"></a>01483 <span class="comment">/* f8-ff */</span> OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER, OTHER,
- <a name="l01484"></a>01484 };
- <a name="l01485"></a>01485
- <a name="l01486"></a>01486 <span class="keyword">const</span> <span class="keyword">static</span> STATE state_table[MAX_STATE][MAX_CH_CLASS] = {
- <a name="l01487"></a>01487 <span class="comment">/* '0' '1-9' '$' MODFR SPEC '.' '*' FLAG OTHER */</span>
- <a name="l01488"></a>01488 <span class="comment">/* START */</span> { SFLAG, WDIG, DONE, SMOD, DONE, SDOT, VARW, SFLAG, DONE },
- <a name="l01489"></a>01489 <span class="comment">/* SFLAG */</span> { SFLAG, WDIG, DONE, SMOD, DONE, SDOT, VARW, SFLAG, DONE },
- <a name="l01490"></a>01490 <span class="comment">/* WDIG */</span> { DONE, DONE, WIDTH, SMOD, DONE, SDOT, DONE, DONE, DONE },
- <a name="l01491"></a>01491 <span class="comment">/* WIDTH */</span> { DONE, DONE, DONE, SMOD, DONE, SDOT, DONE, DONE, DONE },
- <a name="l01492"></a>01492 <span class="comment">/* SMOD */</span> { DONE, DONE, DONE, DONE, DONE, DONE, DONE, DONE, DONE },
- <a name="l01493"></a>01493 <span class="comment">/* SDOT */</span> { SDOT, PREC, DONE, SMOD, DONE, DONE, VARP, DONE, DONE },
- <a name="l01494"></a>01494 <span class="comment">/* VARW */</span> { DONE, VWDIG, DONE, SMOD, DONE, SDOT, DONE, DONE, DONE },
- <a name="l01495"></a>01495 <span class="comment">/* VARP */</span> { DONE, VPDIG, DONE, SMOD, DONE, DONE, DONE, DONE, DONE },
- <a name="l01496"></a>01496 <span class="comment">/* PREC */</span> { DONE, DONE, DONE, SMOD, DONE, DONE, DONE, DONE, DONE },
- <a name="l01497"></a>01497 <span class="comment">/* VWDIG */</span> { DONE, DONE, WIDTH, DONE, DONE, DONE, DONE, DONE, DONE },
- <a name="l01498"></a>01498 <span class="comment">/* VPDIG */</span> { DONE, DONE, PREC, DONE, DONE, DONE, DONE, DONE, DONE },
- <a name="l01499"></a>01499 };
- <a name="l01500"></a>01500
- <a name="l01501"></a>01501 <span class="keyword">const</span> <span class="keyword">static</span> ACTION action_table[MAX_STATE][MAX_CH_CLASS] = {
- <a name="l01502"></a>01502 <span class="comment">/* '0' '1-9' '$' MODFR SPEC '.' '*' FLAG OTHER */</span>
- <a name="l01503"></a>01503 <span class="comment">/* START */</span> { NOOP, NUMBER, NOOP, GETMOD, GETARG, NOOP, NOOP, NOOP, NOOP },
- <a name="l01504"></a>01504 <span class="comment">/* SFLAG */</span> { NOOP, NUMBER, NOOP, GETMOD, GETARG, NOOP, NOOP, NOOP, NOOP },
- <a name="l01505"></a>01505 <span class="comment">/* WDIG */</span> { NOOP, NOOP, GETPOS, GETMOD, GETARG, NOOP, NOOP, NOOP, NOOP },
- <a name="l01506"></a>01506 <span class="comment">/* WIDTH */</span> { NOOP, NOOP, NOOP, GETMOD, GETARG, NOOP, NOOP, NOOP, NOOP },
- <a name="l01507"></a>01507 <span class="comment">/* SMOD */</span> { NOOP, NOOP, NOOP, NOOP, GETARG, NOOP, NOOP, NOOP, NOOP },
- <a name="l01508"></a>01508 <span class="comment">/* SDOT */</span> { NOOP, SKIPNUM, NOOP, GETMOD, GETARG, NOOP, NOOP, NOOP, NOOP },
- <a name="l01509"></a>01509 <span class="comment">/* VARW */</span> { NOOP, NUMBER, NOOP, GETPW, GETPWB, GETPW, NOOP, NOOP, NOOP },
- <a name="l01510"></a>01510 <span class="comment">/* VARP */</span> { NOOP, NUMBER, NOOP, GETPW, GETPWB, NOOP, NOOP, NOOP, NOOP },
- <a name="l01511"></a>01511 <span class="comment">/* PREC */</span> { NOOP, NOOP, NOOP, GETMOD, GETARG, NOOP, NOOP, NOOP, NOOP },
- <a name="l01512"></a>01512 <span class="comment">/* VWDIG */</span> { NOOP, NOOP, PWPOS, NOOP, NOOP, NOOP, NOOP, NOOP, NOOP },
- <a name="l01513"></a>01513 <span class="comment">/* VPDIG */</span> { NOOP, NOOP, PWPOS, NOOP, NOOP, NOOP, NOOP, NOOP, NOOP },
- <a name="l01514"></a>01514 };
- <a name="l01515"></a>01515
- <a name="l01516"></a>01516 <span class="comment">/* function to get positional parameter N where n = N - 1 */</span>
- <a name="l01517"></a>01517 <span class="keyword">static</span> <span class="keyword">union </span>arg_val *
- <a name="l01518"></a>01518 get_arg (<span class="keyword">struct</span> _reent *data, <span class="keywordtype">int</span> n, <span class="keywordtype">char</span> *fmt, va_list *ap,
- <a name="l01519"></a>01519 <span class="keywordtype">int</span> *numargs_p, <span class="keyword">union</span> arg_val *args,
- <a name="l01520"></a>01520 <span class="keywordtype">int</span> *arg_type, <span class="keywordtype">char</span> **last_fmt)
- <a name="l01521"></a>01521 {
- <a name="l01522"></a>01522 <span class="keywordtype">int</span> ch;
- <a name="l01523"></a>01523 <span class="keywordtype">int</span> number, flags;
- <a name="l01524"></a>01524 <span class="keywordtype">int</span> spec_type;
- <a name="l01525"></a>01525 <span class="keywordtype">int</span> numargs = *numargs_p;
- <a name="l01526"></a>01526 CH_CLASS chtype;
- <a name="l01527"></a>01527 STATE state, next_state;
- <a name="l01528"></a>01528 ACTION action;
- <a name="l01529"></a>01529 <span class="keywordtype">int</span> pos, last_arg;
- <a name="l01530"></a>01530 <span class="keywordtype">int</span> max_pos_arg = n;
- <a name="l01531"></a>01531 <span class="keyword">enum</span> types { INT, LONG_INT, SHORT_INT, QUAD_INT, CHAR, CHAR_PTR, DOUBLE, LONG_DOUBLE, WIDE_CHAR };
- <a name="l01532"></a>01532 <span class="preprocessor">#ifdef MB_CAPABLE</span>
- <a name="l01533"></a>01533 <span class="preprocessor"></span> <span class="keywordtype">wchar_t</span> wc;
- <a name="l01534"></a>01534 mbstate_t wc_state;
- <a name="l01535"></a>01535 <span class="keywordtype">int</span> nbytes;
- <a name="l01536"></a>01536 <span class="preprocessor">#endif</span>
- <a name="l01537"></a>01537 <span class="preprocessor"></span>
- <a name="l01538"></a>01538 <span class="comment">/* if this isn't the first call, pick up where we left off last time */</span>
- <a name="l01539"></a>01539 <span class="keywordflow">if</span> (*last_fmt != NULL)
- <a name="l01540"></a>01540 fmt = *last_fmt;
- <a name="l01541"></a>01541
- <a name="l01542"></a>01542 <span class="preprocessor">#ifdef MB_CAPABLE</span>
- <a name="l01543"></a>01543 <span class="preprocessor"></span> memset (&wc_state, <span class="charliteral">'\0'</span>, <span class="keyword">sizeof</span> (wc_state));
- <a name="l01544"></a>01544 <span class="preprocessor">#endif</span>
- <a name="l01545"></a>01545 <span class="preprocessor"></span>
- <a name="l01546"></a>01546 <span class="comment">/* we need to process either to end of fmt string or until we have actually</span>
- <a name="l01547"></a>01547 <span class="comment"> read the desired parameter from the vararg list. */</span>
- <a name="l01548"></a>01548 <span class="keywordflow">while</span> (*fmt && n >= numargs)
- <a name="l01549"></a>01549 {
- <a name="l01550"></a>01550 <span class="preprocessor">#ifdef MB_CAPABLE</span>
- <a name="l01551"></a>01551 <span class="preprocessor"></span> <span class="keywordflow">while</span> ((nbytes = _mbtowc_r(data, &wc, fmt, MB_CUR_MAX, &wc_state)) > 0)
- <a name="l01552"></a>01552 {
- <a name="l01553"></a>01553 fmt += nbytes;
- <a name="l01554"></a>01554 <span class="keywordflow">if</span> (wc == <span class="charliteral">'%'</span>)
- <a name="l01555"></a>01555 <span class="keywordflow">break</span>;
- <a name="l01556"></a>01556 }
- <a name="l01557"></a>01557
- <a name="l01558"></a>01558 <span class="keywordflow">if</span> (nbytes <= 0)
- <a name="l01559"></a>01559 <span class="keywordflow">break</span>;
- <a name="l01560"></a>01560 <span class="preprocessor">#else</span>
- <a name="l01561"></a>01561 <span class="preprocessor"></span> <span class="keywordflow">while</span> (*fmt != <span class="charliteral">'\0'</span> && *fmt != <span class="charliteral">'%'</span>)
- <a name="l01562"></a>01562 fmt += 1;
- <a name="l01563"></a>01563
- <a name="l01564"></a>01564 <span class="keywordflow">if</span> (*fmt == <span class="charliteral">'\0'</span>)
- <a name="l01565"></a>01565 <span class="keywordflow">break</span>;
- <a name="l01566"></a>01566 <span class="preprocessor">#endif</span>
- <a name="l01567"></a>01567 <span class="preprocessor"></span> state = START;
- <a name="l01568"></a>01568 flags = 0;
- <a name="l01569"></a>01569 pos = -1;
- <a name="l01570"></a>01570 number = 0;
- <a name="l01571"></a>01571 spec_type = INT;
- <a name="l01572"></a>01572
- <a name="l01573"></a>01573 <span class="comment">/* Use state/action table to process format specifiers. We ignore invalid</span>
- <a name="l01574"></a>01574 <span class="comment"> formats and we are only interested in information that tells us how to</span>
- <a name="l01575"></a>01575 <span class="comment"> read the vararg list. */</span>
- <a name="l01576"></a>01576 <span class="keywordflow">while</span> (state != DONE)
- <a name="l01577"></a>01577 {
- <a name="l01578"></a>01578 ch = *fmt++;
- <a name="l01579"></a>01579 chtype = chclass[ch];
- <a name="l01580"></a>01580 next_state = state_table[state][chtype];
- <a name="l01581"></a>01581 action = action_table[state][chtype];
- <a name="l01582"></a>01582 state = next_state;
- <a name="l01583"></a>01583
- <a name="l01584"></a>01584 <span class="keywordflow">switch</span> (action)
- <a name="l01585"></a>01585 {
- <a name="l01586"></a>01586 <span class="keywordflow">case</span> GETMOD: <span class="comment">/* we have format modifier */</span>
- <a name="l01587"></a>01587 <span class="keywordflow">switch</span> (ch)
- <a name="l01588"></a>01588 {
- <a name="l01589"></a>01589 <span class="keywordflow">case</span> <span class="charliteral">'h'</span>:
- <a name="l01590"></a>01590 flags |= SHORTINT;
- <a name="l01591"></a>01591 <span class="keywordflow">break</span>;
- <a name="l01592"></a>01592 <span class="keywordflow">case</span> <span class="charliteral">'L'</span>:
- <a name="l01593"></a>01593 flags |= LONGDBL;
- <a name="l01594"></a>01594 <span class="keywordflow">break</span>;
- <a name="l01595"></a>01595 <span class="keywordflow">case</span> <span class="charliteral">'q'</span>:
- <a name="l01596"></a>01596 flags |= QUADINT;
- <a name="l01597"></a>01597 <span class="keywordflow">break</span>;
- <a name="l01598"></a>01598 <span class="keywordflow">case</span> <span class="charliteral">'l'</span>:
- <a name="l01599"></a>01599 <span class="keywordflow">default</span>:
- <a name="l01600"></a>01600 <span class="keywordflow">if</span> (*fmt == <span class="charliteral">'l'</span>)
- <a name="l01601"></a>01601 {
- <a name="l01602"></a>01602 flags |= QUADINT;
- <a name="l01603"></a>01603 ++fmt;
- <a name="l01604"></a>01604 }
- <a name="l01605"></a>01605 <span class="keywordflow">else</span>
- <a name="l01606"></a>01606 flags |= LONGINT;
- <a name="l01607"></a>01607 <span class="keywordflow">break</span>;
- <a name="l01608"></a>01608 }
- <a name="l01609"></a>01609 <span class="keywordflow">break</span>;
- <a name="l01610"></a>01610 <span class="keywordflow">case</span> GETARG: <span class="comment">/* we have format specifier */</span>
- <a name="l01611"></a>01611 {
- <a name="l01612"></a>01612 numargs &= (MAX_POS_ARGS - 1);
- <a name="l01613"></a>01613 <span class="comment">/* process the specifier and translate it to a type to fetch from varargs */</span>
- <a name="l01614"></a>01614 <span class="keywordflow">switch</span> (ch)
- <a name="l01615"></a>01615 {
- <a name="l01616"></a>01616 <span class="keywordflow">case</span> <span class="charliteral">'d'</span>:
- <a name="l01617"></a>01617 <span class="keywordflow">case</span> <span class="charliteral">'i'</span>:
- <a name="l01618"></a>01618 <span class="keywordflow">case</span> <span class="charliteral">'o'</span>:
- <a name="l01619"></a>01619 <span class="keywordflow">case</span> <span class="charliteral">'x'</span>:
- <a name="l01620"></a>01620 <span class="keywordflow">case</span> <span class="charliteral">'X'</span>:
- <a name="l01621"></a>01621 <span class="keywordflow">case</span> <span class="charliteral">'u'</span>:
- <a name="l01622"></a>01622 <span class="keywordflow">if</span> (flags & LONGINT)
- <a name="l01623"></a>01623 spec_type = LONG_INT;
- <a name="l01624"></a>01624 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (flags & SHORTINT)
- <a name="l01625"></a>01625 spec_type = SHORT_INT;
- <a name="l01626"></a>01626 <span class="preprocessor">#ifndef _NO_LONGLONG</span>
- <a name="l01627"></a>01627 <span class="preprocessor"></span> <span class="keywordflow">else</span> <span class="keywordflow">if</span> (flags & QUADINT)
- <a name="l01628"></a>01628 spec_type = QUAD_INT;
- <a name="l01629"></a>01629 <span class="preprocessor">#endif</span>
- <a name="l01630"></a>01630 <span class="preprocessor"></span> <span class="keywordflow">else</span>
- <a name="l01631"></a>01631 spec_type = INT;
- <a name="l01632"></a>01632 <span class="keywordflow">break</span>;
- <a name="l01633"></a>01633 <span class="keywordflow">case</span> <span class="charliteral">'D'</span>:
- <a name="l01634"></a>01634 <span class="keywordflow">case</span> <span class="charliteral">'U'</span>:
- <a name="l01635"></a>01635 <span class="keywordflow">case</span> <span class="charliteral">'O'</span>:
- <a name="l01636"></a>01636 spec_type = LONG_INT;
- <a name="l01637"></a>01637 <span class="keywordflow">break</span>;
- <a name="l01638"></a>01638 <span class="keywordflow">case</span> <span class="charliteral">'f'</span>:
- <a name="l01639"></a>01639 <span class="keywordflow">case</span> <span class="charliteral">'g'</span>:
- <a name="l01640"></a>01640 <span class="keywordflow">case</span> <span class="charliteral">'G'</span>:
- <a name="l01641"></a>01641 <span class="keywordflow">case</span> <span class="charliteral">'E'</span>:
- <a name="l01642"></a>01642 <span class="keywordflow">case</span> <span class="charliteral">'e'</span>:
- <a name="l01643"></a>01643 <span class="preprocessor">#ifndef _NO_LONGDBL</span>
- <a name="l01644"></a>01644 <span class="preprocessor"></span> <span class="keywordflow">if</span> (flags & LONGDBL)
- <a name="l01645"></a>01645 spec_type = LONG_DOUBLE;
- <a name="l01646"></a>01646 <span class="keywordflow">else</span>
- <a name="l01647"></a>01647 <span class="preprocessor">#endif</span>
- <a name="l01648"></a>01648 <span class="preprocessor"></span> spec_type = DOUBLE;
- <a name="l01649"></a>01649 <span class="keywordflow">break</span>;
- <a name="l01650"></a>01650 <span class="keywordflow">case</span> <span class="charliteral">'s'</span>:
- <a name="l01651"></a>01651 <span class="keywordflow">case</span> <span class="charliteral">'S'</span>:
- <a name="l01652"></a>01652 <span class="keywordflow">case</span> <span class="charliteral">'p'</span>:
- <a name="l01653"></a>01653 spec_type = CHAR_PTR;
- <a name="l01654"></a>01654 <span class="keywordflow">break</span>;
- <a name="l01655"></a>01655 <span class="keywordflow">case</span> <span class="charliteral">'c'</span>:
- <a name="l01656"></a>01656 spec_type = CHAR;
- <a name="l01657"></a>01657 <span class="keywordflow">break</span>;
- <a name="l01658"></a>01658 <span class="keywordflow">case</span> <span class="charliteral">'C'</span>:
- <a name="l01659"></a>01659 spec_type = WIDE_CHAR;
- <a name="l01660"></a>01660 <span class="keywordflow">break</span>;
- <a name="l01661"></a>01661 }
- <a name="l01662"></a>01662
- <a name="l01663"></a>01663 <span class="comment">/* if we have a positional parameter, just store the type, otherwise</span>
- <a name="l01664"></a>01664 <span class="comment"> fetch the parameter from the vararg list */</span>
- <a name="l01665"></a>01665 <span class="keywordflow">if</span> (pos != -1)
- <a name="l01666"></a>01666 arg_type[pos] = spec_type;
- <a name="l01667"></a>01667 <span class="keywordflow">else</span>
- <a name="l01668"></a>01668 {
- <a name="l01669"></a>01669 <span class="keywordflow">switch</span> (spec_type)
- <a name="l01670"></a>01670 {
- <a name="l01671"></a>01671 <span class="keywordflow">case</span> LONG_INT:
- <a name="l01672"></a>01672 args[numargs++].val_long = va_arg(*ap, <span class="keywordtype">long</span>);
- <a name="l01673"></a>01673 <span class="keywordflow">break</span>;
- <a name="l01674"></a>01674 <span class="keywordflow">case</span> QUAD_INT:
- <a name="l01675"></a>01675 args[numargs++].val_quad_t = va_arg(*ap, quad_t);
- <a name="l01676"></a>01676 <span class="keywordflow">break</span>;
- <a name="l01677"></a>01677 <span class="keywordflow">case</span> WIDE_CHAR:
- <a name="l01678"></a>01678 args[numargs++].val_wint_t = va_arg(*ap, wint_t);
- <a name="l01679"></a>01679 <span class="keywordflow">break</span>;
- <a name="l01680"></a>01680 <span class="keywordflow">case</span> CHAR:
- <a name="l01681"></a>01681 <span class="keywordflow">case</span> SHORT_INT:
- <a name="l01682"></a>01682 <span class="keywordflow">case</span> INT:
- <a name="l01683"></a>01683 args[numargs++].val_int = va_arg(*ap, <span class="keywordtype">int</span>);
- <a name="l01684"></a>01684 <span class="keywordflow">break</span>;
- <a name="l01685"></a>01685 <span class="keywordflow">case</span> CHAR_PTR:
- <a name="l01686"></a>01686 args[numargs++].val_char_ptr_t = va_arg(*ap, <span class="keywordtype">char</span> *);
- <a name="l01687"></a>01687 <span class="keywordflow">break</span>;
- <a name="l01688"></a>01688 <span class="keywordflow">case</span> DOUBLE:
- <a name="l01689"></a>01689 args[numargs++].val_double = va_arg(*ap, <span class="keywordtype">double</span>);
- <a name="l01690"></a>01690 <span class="keywordflow">break</span>;
- <a name="l01691"></a>01691 <span class="keywordflow">case</span> LONG_DOUBLE:
- <a name="l01692"></a>01692 args[numargs++].val__LONG_DOUBLE = va_arg(*ap, _LONG_DOUBLE);
- <a name="l01693"></a>01693 <span class="keywordflow">break</span>;
- <a name="l01694"></a>01694 }
- <a name="l01695"></a>01695 }
- <a name="l01696"></a>01696 }
- <a name="l01697"></a>01697 <span class="keywordflow">break</span>;
- <a name="l01698"></a>01698 <span class="keywordflow">case</span> GETPOS: <span class="comment">/* we have positional specifier */</span>
- <a name="l01699"></a>01699 <span class="keywordflow">if</span> (arg_type[0] == -1)
- <a name="l01700"></a>01700 memset (arg_type, 0, <span class="keyword">sizeof</span>(<span class="keywordtype">int</span>) * MAX_POS_ARGS);
- <a name="l01701"></a>01701 pos = number - 1;
- <a name="l01702"></a>01702 max_pos_arg = (max_pos_arg > pos ? max_pos_arg : pos);
- <a name="l01703"></a>01703 <span class="keywordflow">break</span>;
- <a name="l01704"></a>01704 <span class="keywordflow">case</span> PWPOS: <span class="comment">/* we have positional specifier for width or precision */</span>
- <a name="l01705"></a>01705 <span class="keywordflow">if</span> (arg_type[0] == -1)
- <a name="l01706"></a>01706 memset (arg_type, 0, <span class="keyword">sizeof</span>(<span class="keywordtype">int</span>) * MAX_POS_ARGS);
- <a name="l01707"></a>01707 number -= 1;
- <a name="l01708"></a>01708 arg_type[number] = INT;
- <a name="l01709"></a>01709 max_pos_arg = (max_pos_arg > number ? max_pos_arg : number);
- <a name="l01710"></a>01710 <span class="keywordflow">break</span>;
- <a name="l01711"></a>01711 <span class="keywordflow">case</span> GETPWB: <span class="comment">/* we require format pushback */</span>
- <a name="l01712"></a>01712 --fmt;
- <a name="l01713"></a>01713 <span class="comment">/* fallthrough */</span>
- <a name="l01714"></a>01714 <span class="keywordflow">case</span> GETPW: <span class="comment">/* we have a variable precision or width to acquire */</span>
- <a name="l01715"></a>01715 args[numargs++].val_int = va_arg(*ap, <span class="keywordtype">int</span>);
- <a name="l01716"></a>01716 <span class="keywordflow">break</span>;
- <a name="l01717"></a>01717 <span class="keywordflow">case</span> NUMBER: <span class="comment">/* we have a number to process */</span>
- <a name="l01718"></a>01718 number = (ch - <span class="charliteral">'0'</span>);
- <a name="l01719"></a>01719 <span class="keywordflow">while</span> ((ch = *fmt) != <span class="charliteral">'\0'</span> && is_digit(ch))
- <a name="l01720"></a>01720 {
- <a name="l01721"></a>01721 number = number * 10 + (ch - <span class="charliteral">'0'</span>);
- <a name="l01722"></a>01722 ++fmt;
- <a name="l01723"></a>01723 }
- <a name="l01724"></a>01724 <span class="keywordflow">break</span>;
- <a name="l01725"></a>01725 <span class="keywordflow">case</span> SKIPNUM: <span class="comment">/* we have a number to skip */</span>
- <a name="l01726"></a>01726 <span class="keywordflow">while</span> ((ch = *fmt) != <span class="charliteral">'\0'</span> && is_digit(ch))
- <a name="l01727"></a>01727 ++fmt;
- <a name="l01728"></a>01728 <span class="keywordflow">break</span>;
- <a name="l01729"></a>01729 <span class="keywordflow">case</span> NOOP:
- <a name="l01730"></a>01730 <span class="keywordflow">default</span>:
- <a name="l01731"></a>01731 <span class="keywordflow">break</span>; <span class="comment">/* do nothing */</span>
- <a name="l01732"></a>01732 }
- <a name="l01733"></a>01733 }
- <a name="l01734"></a>01734 }
- <a name="l01735"></a>01735
- <a name="l01736"></a>01736 <span class="comment">/* process all arguments up to at least the one we are looking for and if we</span>
- <a name="l01737"></a>01737 <span class="comment"> have seen the end of the string, then process up to the max argument needed */</span>
- <a name="l01738"></a>01738 <span class="keywordflow">if</span> (*fmt == <span class="charliteral">'\0'</span>)
- <a name="l01739"></a>01739 last_arg = max_pos_arg;
- <a name="l01740"></a>01740 <span class="keywordflow">else</span>
- <a name="l01741"></a>01741 last_arg = n;
- <a name="l01742"></a>01742
- <a name="l01743"></a>01743 <span class="keywordflow">while</span> (numargs <= last_arg)
- <a name="l01744"></a>01744 {
- <a name="l01745"></a>01745 <span class="keywordflow">switch</span> (arg_type[numargs])
- <a name="l01746"></a>01746 {
- <a name="l01747"></a>01747 <span class="keywordflow">case</span> LONG_INT:
- <a name="l01748"></a>01748 args[numargs++].val_long = va_arg(*ap, <span class="keywordtype">long</span>);
- <a name="l01749"></a>01749 <span class="keywordflow">break</span>;
- <a name="l01750"></a>01750 <span class="keywordflow">case</span> QUAD_INT:
- <a name="l01751"></a>01751 args[numargs++].val_quad_t = va_arg(*ap, quad_t);
- <a name="l01752"></a>01752 <span class="keywordflow">break</span>;
- <a name="l01753"></a>01753 <span class="keywordflow">case</span> CHAR_PTR:
- <a name="l01754"></a>01754 args[numargs++].val_char_ptr_t = va_arg(*ap, <span class="keywordtype">char</span> *);
- <a name="l01755"></a>01755 <span class="keywordflow">break</span>;
- <a name="l01756"></a>01756 <span class="keywordflow">case</span> DOUBLE:
- <a name="l01757"></a>01757 args[numargs++].val_double = va_arg(*ap, <span class="keywordtype">double</span>);
- <a name="l01758"></a>01758 <span class="keywordflow">break</span>;
- <a name="l01759"></a>01759 <span class="keywordflow">case</span> LONG_DOUBLE:
- <a name="l01760"></a>01760 args[numargs++].val__LONG_DOUBLE = va_arg(*ap, _LONG_DOUBLE);
- <a name="l01761"></a>01761 <span class="keywordflow">break</span>;
- <a name="l01762"></a>01762 <span class="keywordflow">case</span> WIDE_CHAR:
- <a name="l01763"></a>01763 args[numargs++].val_wint_t = va_arg(*ap, wint_t);
- <a name="l01764"></a>01764 <span class="keywordflow">break</span>;
- <a name="l01765"></a>01765 <span class="keywordflow">case</span> INT:
- <a name="l01766"></a>01766 <span class="keywordflow">case</span> SHORT_INT:
- <a name="l01767"></a>01767 <span class="keywordflow">case</span> CHAR:
- <a name="l01768"></a>01768 <span class="keywordflow">default</span>:
- <a name="l01769"></a>01769 args[numargs++].val_int = va_arg(*ap, <span class="keywordtype">int</span>);
- <a name="l01770"></a>01770 <span class="keywordflow">break</span>;
- <a name="l01771"></a>01771 }
- <a name="l01772"></a>01772 }
- <a name="l01773"></a>01773
- <a name="l01774"></a>01774 <span class="comment">/* alter the global numargs value and keep a reference to the last bit of the fmt</span>
- <a name="l01775"></a>01775 <span class="comment"> string we processed here because the caller will continue processing where we started */</span>
- <a name="l01776"></a>01776 *numargs_p = numargs;
- <a name="l01777"></a>01777 *last_fmt = fmt;
- <a name="l01778"></a>01778 <span class="keywordflow">return</span> &args[n];
- <a name="l01779"></a>01779 }
- <a name="l01780"></a>01780 <span class="preprocessor">#endif </span><span class="comment">/* !_NO_POS_ARGS */</span>
- </pre></div></div>
- <hr size="1"/><address style="text-align: right;"><small>Generated on Mon Apr 11 14:23:39 2011 for Contiki 2.5 by
- <a href="http://www.doxygen.org/index.html">
- <img class="footer" src="doxygen.png" alt="doxygen"/></a> 1.6.1 </small></address>
- </body>
- </html>