| Current File : //usr/share/doc/net-snmp/html/snprintf_8c_source.html |
<!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"/>
<meta http-equiv="X-UA-Compatible" content="IE=9"/>
<title>net-snmp: snprintf.c Source File</title>
<link href="tabs.css" rel="stylesheet" type="text/css"/>
<link href="doxygen.css" rel="stylesheet" type="text/css" />
</head>
<body>
<div id="top"><!-- do not remove this div! -->
<div id="titlearea">
<table cellspacing="0" cellpadding="0">
<tbody>
<tr style="height: 56px;">
<td style="padding-left: 0.5em;">
<div id="projectname">net-snmp
 <span id="projectnumber">5.4.1</span>
</div>
</td>
</tr>
</tbody>
</table>
</div>
<!-- Generated by Doxygen 1.7.6.1 -->
<div id="navrow1" class="tabs">
<ul class="tablist">
<li><a href="index.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="examples.html"><span>Examples</span></a></li>
</ul>
</div>
<div id="navrow2" class="tabs2">
<ul class="tablist">
<li><a href="files.html"><span>File List</span></a></li>
<li><a href="globals.html"><span>Globals</span></a></li>
</ul>
</div>
</div>
<div class="header">
<div class="headertitle">
<div class="title">snprintf.c</div> </div>
</div><!--header-->
<div class="contents">
<div class="fragment"><pre class="fragment"><a name="l00001"></a>00001 <span class="comment">/*</span>
<a name="l00002"></a>00002 <span class="comment"> * Copyright Patrick Powell 1995</span>
<a name="l00003"></a>00003 <span class="comment"> * This code is based on code written by Patrick Powell (papowell@astart.com)</span>
<a name="l00004"></a>00004 <span class="comment"> * It may be used for any purpose as long as this notice remains intact</span>
<a name="l00005"></a>00005 <span class="comment"> * on all source code distributions</span>
<a name="l00006"></a>00006 <span class="comment"> */</span>
<a name="l00007"></a>00007
<a name="l00008"></a>00008 <span class="comment">/**************************************************************</span>
<a name="l00009"></a>00009 <span class="comment"> * Original:</span>
<a name="l00010"></a>00010 <span class="comment"> * Patrick Powell Tue Apr 11 09:48:21 PDT 1995</span>
<a name="l00011"></a>00011 <span class="comment"> * A bombproof version of doprnt (dopr) included.</span>
<a name="l00012"></a>00012 <span class="comment"> * Sigh. This sort of thing is always nasty do deal with. Note that</span>
<a name="l00013"></a>00013 <span class="comment"> * the version here does not include floating point...</span>
<a name="l00014"></a>00014 <span class="comment"> *</span>
<a name="l00015"></a>00015 <span class="comment"> * snprintf() is used instead of sprintf() as it does limit checks</span>
<a name="l00016"></a>00016 <span class="comment"> * for string length. This covers a nasty loophole.</span>
<a name="l00017"></a>00017 <span class="comment"> *</span>
<a name="l00018"></a>00018 <span class="comment"> * The other functions are there to prevent NULL pointers from</span>
<a name="l00019"></a>00019 <span class="comment"> * causing nast effects.</span>
<a name="l00020"></a>00020 <span class="comment"> *</span>
<a name="l00021"></a>00021 <span class="comment"> * More Recently:</span>
<a name="l00022"></a>00022 <span class="comment"> * Brandon Long <blong@fiction.net> 9/15/96 for mutt 0.43</span>
<a name="l00023"></a>00023 <span class="comment"> * This was ugly. It is still ugly. I opted out of floating point</span>
<a name="l00024"></a>00024 <span class="comment"> * numbers, but the formatter understands just about everything</span>
<a name="l00025"></a>00025 <span class="comment"> * from the normal C string format, at least as far as I can tell from</span>
<a name="l00026"></a>00026 <span class="comment"> * the Solaris 2.5 printf(3S) man page.</span>
<a name="l00027"></a>00027 <span class="comment"> *</span>
<a name="l00028"></a>00028 <span class="comment"> * Brandon Long <blong@fiction.net> 10/22/97 for mutt 0.87.1</span>
<a name="l00029"></a>00029 <span class="comment"> * Ok, added some minimal floating point support, which means this</span>
<a name="l00030"></a>00030 <span class="comment"> * probably requires libm on most operating systems. Don't yet</span>
<a name="l00031"></a>00031 <span class="comment"> * support the exponent (e,E) and sigfig (g,G). Also, fmtint()</span>
<a name="l00032"></a>00032 <span class="comment"> * was pretty badly broken, it just wasn't being exercised in ways</span>
<a name="l00033"></a>00033 <span class="comment"> * which showed it, so that's been fixed. Also, formated the code</span>
<a name="l00034"></a>00034 <span class="comment"> * to mutt conventions, and removed dead code left over from the</span>
<a name="l00035"></a>00035 <span class="comment"> * original. Also, there is now a builtin-test, just compile with:</span>
<a name="l00036"></a>00036 <span class="comment"> * gcc -DTEST_SNPRINTF -o snprintf snprintf.c -lm</span>
<a name="l00037"></a>00037 <span class="comment"> * and run snprintf for results.</span>
<a name="l00038"></a>00038 <span class="comment"> * </span>
<a name="l00039"></a>00039 <span class="comment"> * Thomas Roessler <roessler@guug.de> 01/27/98 for mutt 0.89i</span>
<a name="l00040"></a>00040 <span class="comment"> * The PGP code was using unsigned hexadecimal formats. </span>
<a name="l00041"></a>00041 <span class="comment"> * Unfortunately, unsigned formats simply didn't work.</span>
<a name="l00042"></a>00042 <span class="comment"> *</span>
<a name="l00043"></a>00043 <span class="comment"> * Michael Elkins <me@cs.hmc.edu> 03/05/98 for mutt 0.90.8</span>
<a name="l00044"></a>00044 <span class="comment"> * The original code assumed that both snprintf() and vsnprintf() were</span>
<a name="l00045"></a>00045 <span class="comment"> * missing. Some systems only have snprintf() but not vsnprintf(), so</span>
<a name="l00046"></a>00046 <span class="comment"> * the code is now broken down under HAVE_SNPRINTF and HAVE_VSNPRINTF.</span>
<a name="l00047"></a>00047 <span class="comment"> *</span>
<a name="l00048"></a>00048 <span class="comment"> * Andrew Tridgell (tridge@samba.org) Oct 1998</span>
<a name="l00049"></a>00049 <span class="comment"> * fixed handling of %.0f</span>
<a name="l00050"></a>00050 <span class="comment"> * added test for HAVE_LONG_DOUBLE</span>
<a name="l00051"></a>00051 <span class="comment"> *</span>
<a name="l00052"></a>00052 <span class="comment"> **************************************************************/</span>
<a name="l00053"></a>00053
<a name="l00054"></a>00054 <span class="preprocessor">#include <net-snmp/net-snmp-config.h></span>
<a name="l00055"></a>00055
<a name="l00056"></a>00056 <span class="preprocessor">#if !defined(HAVE_SNPRINTF) || !defined(HAVE_VSNPRINTF)</span>
<a name="l00057"></a>00057 <span class="preprocessor"></span>
<a name="l00058"></a>00058 <span class="preprocessor">#if HAVE_STRING_H</span>
<a name="l00059"></a>00059 <span class="preprocessor"></span><span class="preprocessor">#include <string.h></span>
<a name="l00060"></a>00060 <span class="preprocessor">#else</span>
<a name="l00061"></a>00061 <span class="preprocessor"></span><span class="preprocessor">#include <strings.h></span>
<a name="l00062"></a>00062 <span class="preprocessor">#endif</span>
<a name="l00063"></a>00063 <span class="preprocessor"></span><span class="preprocessor">#include <ctype.h></span>
<a name="l00064"></a>00064 <span class="preprocessor">#include <sys/types.h></span>
<a name="l00065"></a>00065
<a name="l00066"></a>00066 <span class="preprocessor">#if HAVE_STDARG_H</span>
<a name="l00067"></a>00067 <span class="preprocessor"></span><span class="preprocessor"># include <stdarg.h></span>
<a name="l00068"></a>00068 <span class="preprocessor"># define HAVE_STDARGS </span><span class="comment">/* let's hope that works everywhere (mj) */</span>
<a name="l00069"></a>00069 <span class="preprocessor"># define VA_LOCAL_DECL va_list ap</span>
<a name="l00070"></a>00070 <span class="preprocessor"></span><span class="preprocessor"># define VA_START(f) va_start(ap, f)</span>
<a name="l00071"></a>00071 <span class="preprocessor"></span><span class="preprocessor"># define VA_SHIFT(v,t) ; </span><span class="comment">/* no-op for ANSI */</span>
<a name="l00072"></a>00072 <span class="preprocessor"># define VA_END va_end(ap)</span>
<a name="l00073"></a>00073 <span class="preprocessor"></span><span class="preprocessor">#elif HAVE_VARARGS_H</span>
<a name="l00074"></a>00074 <span class="preprocessor"></span><span class="preprocessor"># include <varargs.h></span>
<a name="l00075"></a>00075 <span class="preprocessor"># undef HAVE_STDARGS</span>
<a name="l00076"></a>00076 <span class="preprocessor"></span><span class="preprocessor"># define VA_LOCAL_DECL va_list ap</span>
<a name="l00077"></a>00077 <span class="preprocessor"></span><span class="preprocessor"># define VA_START(f) va_start(ap) </span><span class="comment">/* f is ignored! */</span>
<a name="l00078"></a>00078 <span class="preprocessor"># define VA_SHIFT(v,t) v = va_arg(ap,t)</span>
<a name="l00079"></a>00079 <span class="preprocessor"></span><span class="preprocessor"># define VA_END va_end(ap)</span>
<a name="l00080"></a>00080 <span class="preprocessor"></span><span class="preprocessor">#else</span>
<a name="l00081"></a>00081 <span class="preprocessor"></span><span class="comment">/*</span>
<a name="l00082"></a>00082 <span class="comment"> * XX ** NO VARARGS ** XX</span>
<a name="l00083"></a>00083 <span class="comment"> */</span>
<a name="l00084"></a>00084 <span class="preprocessor">#endif</span>
<a name="l00085"></a>00085 <span class="preprocessor"></span>
<a name="l00086"></a>00086 <span class="preprocessor">#ifdef HAVE_LONG_DOUBLE</span>
<a name="l00087"></a>00087 <span class="preprocessor"></span><span class="preprocessor">#define LDOUBLE long double</span>
<a name="l00088"></a>00088 <span class="preprocessor"></span><span class="preprocessor">#else</span>
<a name="l00089"></a>00089 <span class="preprocessor"></span><span class="preprocessor">#define LDOUBLE double</span>
<a name="l00090"></a>00090 <span class="preprocessor"></span><span class="preprocessor">#endif</span>
<a name="l00091"></a>00091 <span class="preprocessor"></span>
<a name="l00092"></a>00092 <span class="keywordtype">int</span> snprintf(<span class="keywordtype">char</span> *str, <span class="keywordtype">size_t</span> count, <span class="keyword">const</span> <span class="keywordtype">char</span> *fmt, ...);
<a name="l00093"></a>00093 <span class="keywordtype">int</span> vsnprintf(<span class="keywordtype">char</span> *str, <span class="keywordtype">size_t</span> count, <span class="keyword">const</span> <span class="keywordtype">char</span> *fmt,
<a name="l00094"></a>00094 va_list arg);
<a name="l00095"></a>00095
<a name="l00096"></a>00096 <span class="keyword">static</span> <span class="keywordtype">void</span> dopr(<span class="keywordtype">char</span> *buffer, <span class="keywordtype">size_t</span> maxlen, <span class="keyword">const</span> <span class="keywordtype">char</span> *format,
<a name="l00097"></a>00097 va_list args);
<a name="l00098"></a>00098 <span class="keyword">static</span> <span class="keywordtype">void</span> fmtstr(<span class="keywordtype">char</span> *buffer, <span class="keywordtype">size_t</span> * currlen, <span class="keywordtype">size_t</span> maxlen,
<a name="l00099"></a>00099 <span class="keywordtype">char</span> *value, <span class="keywordtype">int</span> flags, <span class="keywordtype">int</span> min, <span class="keywordtype">int</span> max);
<a name="l00100"></a>00100 <span class="keyword">static</span> <span class="keywordtype">void</span> fmtint(<span class="keywordtype">char</span> *buffer, <span class="keywordtype">size_t</span> * currlen, <span class="keywordtype">size_t</span> maxlen,
<a name="l00101"></a>00101 <span class="keywordtype">long</span> value, <span class="keywordtype">int</span> base, <span class="keywordtype">int</span> min, <span class="keywordtype">int</span> max, <span class="keywordtype">int</span> flags);
<a name="l00102"></a>00102 <span class="keyword">static</span> <span class="keywordtype">void</span> fmtfp(<span class="keywordtype">char</span> *buffer, <span class="keywordtype">size_t</span> * currlen, <span class="keywordtype">size_t</span> maxlen,
<a name="l00103"></a>00103 LDOUBLE fvalue, <span class="keywordtype">int</span> min, <span class="keywordtype">int</span> max, <span class="keywordtype">int</span> flags);
<a name="l00104"></a>00104 <span class="keyword">static</span> <span class="keywordtype">void</span> dopr_outch(<span class="keywordtype">char</span> *buffer, <span class="keywordtype">size_t</span> * currlen, <span class="keywordtype">size_t</span> maxlen,
<a name="l00105"></a>00105 <span class="keywordtype">char</span> c);
<a name="l00106"></a>00106
<a name="l00107"></a>00107 <span class="comment">/*</span>
<a name="l00108"></a>00108 <span class="comment"> * dopr(): poor man's version of doprintf</span>
<a name="l00109"></a>00109 <span class="comment"> */</span>
<a name="l00110"></a>00110
<a name="l00111"></a>00111 <span class="comment">/*</span>
<a name="l00112"></a>00112 <span class="comment"> * format read states </span>
<a name="l00113"></a>00113 <span class="comment"> */</span>
<a name="l00114"></a>00114 <span class="preprocessor">#define DP_S_DEFAULT 0</span>
<a name="l00115"></a>00115 <span class="preprocessor"></span><span class="preprocessor">#define DP_S_FLAGS 1</span>
<a name="l00116"></a>00116 <span class="preprocessor"></span><span class="preprocessor">#define DP_S_MIN 2</span>
<a name="l00117"></a>00117 <span class="preprocessor"></span><span class="preprocessor">#define DP_S_DOT 3</span>
<a name="l00118"></a>00118 <span class="preprocessor"></span><span class="preprocessor">#define DP_S_MAX 4</span>
<a name="l00119"></a>00119 <span class="preprocessor"></span><span class="preprocessor">#define DP_S_MOD 5</span>
<a name="l00120"></a>00120 <span class="preprocessor"></span><span class="preprocessor">#define DP_S_CONV 6</span>
<a name="l00121"></a>00121 <span class="preprocessor"></span><span class="preprocessor">#define DP_S_DONE 7</span>
<a name="l00122"></a>00122 <span class="preprocessor"></span>
<a name="l00123"></a>00123 <span class="comment">/*</span>
<a name="l00124"></a>00124 <span class="comment"> * format flags - Bits </span>
<a name="l00125"></a>00125 <span class="comment"> */</span>
<a name="l00126"></a>00126 <span class="preprocessor">#define DP_F_MINUS (1 << 0)</span>
<a name="l00127"></a>00127 <span class="preprocessor"></span><span class="preprocessor">#define DP_F_PLUS (1 << 1)</span>
<a name="l00128"></a>00128 <span class="preprocessor"></span><span class="preprocessor">#define DP_F_SPACE (1 << 2)</span>
<a name="l00129"></a>00129 <span class="preprocessor"></span><span class="preprocessor">#define DP_F_NUM (1 << 3)</span>
<a name="l00130"></a>00130 <span class="preprocessor"></span><span class="preprocessor">#define DP_F_ZERO (1 << 4)</span>
<a name="l00131"></a>00131 <span class="preprocessor"></span><span class="preprocessor">#define DP_F_UP (1 << 5)</span>
<a name="l00132"></a>00132 <span class="preprocessor"></span><span class="preprocessor">#define DP_F_UNSIGNED (1 << 6)</span>
<a name="l00133"></a>00133 <span class="preprocessor"></span>
<a name="l00134"></a>00134 <span class="comment">/*</span>
<a name="l00135"></a>00135 <span class="comment"> * Conversion Flags </span>
<a name="l00136"></a>00136 <span class="comment"> */</span>
<a name="l00137"></a>00137 <span class="preprocessor">#define DP_C_SHORT 1</span>
<a name="l00138"></a>00138 <span class="preprocessor"></span><span class="preprocessor">#define DP_C_LONG 2</span>
<a name="l00139"></a>00139 <span class="preprocessor"></span><span class="preprocessor">#define DP_C_LDOUBLE 3</span>
<a name="l00140"></a>00140 <span class="preprocessor"></span>
<a name="l00141"></a>00141 <span class="preprocessor">#define char_to_int(p) (p - '0')</span>
<a name="l00142"></a>00142 <span class="preprocessor"></span><span class="preprocessor">#define MAX(p,q) ((p >= q) ? p : q)</span>
<a name="l00143"></a>00143 <span class="preprocessor"></span>
<a name="l00144"></a>00144 <span class="keyword">static</span> <span class="keywordtype">void</span>
<a name="l00145"></a>00145 dopr(<span class="keywordtype">char</span> *buffer, <span class="keywordtype">size_t</span> maxlen, <span class="keyword">const</span> <span class="keywordtype">char</span> *format, va_list args)
<a name="l00146"></a>00146 {
<a name="l00147"></a>00147 <span class="keywordtype">char</span> ch;
<a name="l00148"></a>00148 <span class="keywordtype">long</span> value;
<a name="l00149"></a>00149 LDOUBLE fvalue;
<a name="l00150"></a>00150 <span class="keywordtype">char</span> *strvalue;
<a name="l00151"></a>00151 <span class="keywordtype">int</span> min;
<a name="l00152"></a>00152 <span class="keywordtype">int</span> max;
<a name="l00153"></a>00153 <span class="keywordtype">int</span> state;
<a name="l00154"></a>00154 <span class="keywordtype">int</span> flags;
<a name="l00155"></a>00155 <span class="keywordtype">int</span> cflags;
<a name="l00156"></a>00156 <span class="keywordtype">size_t</span> currlen;
<a name="l00157"></a>00157
<a name="l00158"></a>00158 state = DP_S_DEFAULT;
<a name="l00159"></a>00159 currlen = flags = cflags = min = 0;
<a name="l00160"></a>00160 max = -1;
<a name="l00161"></a>00161 ch = *format++;
<a name="l00162"></a>00162
<a name="l00163"></a>00163 <span class="keywordflow">while</span> (state != DP_S_DONE) {
<a name="l00164"></a>00164 <span class="keywordflow">if</span> ((ch == <span class="charliteral">'\0'</span>) || (currlen >= maxlen))
<a name="l00165"></a>00165 state = DP_S_DONE;
<a name="l00166"></a>00166
<a name="l00167"></a>00167 <span class="keywordflow">switch</span> (state) {
<a name="l00168"></a>00168 <span class="keywordflow">case</span> DP_S_DEFAULT:
<a name="l00169"></a>00169 <span class="keywordflow">if</span> (ch == <span class="charliteral">'%'</span>)
<a name="l00170"></a>00170 state = DP_S_FLAGS;
<a name="l00171"></a>00171 <span class="keywordflow">else</span>
<a name="l00172"></a>00172 dopr_outch(buffer, &currlen, maxlen, ch);
<a name="l00173"></a>00173 ch = *format++;
<a name="l00174"></a>00174 <span class="keywordflow">break</span>;
<a name="l00175"></a>00175 <span class="keywordflow">case</span> DP_S_FLAGS:
<a name="l00176"></a>00176 <span class="keywordflow">switch</span> (ch) {
<a name="l00177"></a>00177 <span class="keywordflow">case</span> <span class="charliteral">'-'</span>:
<a name="l00178"></a>00178 flags |= DP_F_MINUS;
<a name="l00179"></a>00179 ch = *format++;
<a name="l00180"></a>00180 <span class="keywordflow">break</span>;
<a name="l00181"></a>00181 <span class="keywordflow">case</span> <span class="charliteral">'+'</span>:
<a name="l00182"></a>00182 flags |= DP_F_PLUS;
<a name="l00183"></a>00183 ch = *format++;
<a name="l00184"></a>00184 <span class="keywordflow">break</span>;
<a name="l00185"></a>00185 <span class="keywordflow">case</span> <span class="charliteral">' '</span>:
<a name="l00186"></a>00186 flags |= DP_F_SPACE;
<a name="l00187"></a>00187 ch = *format++;
<a name="l00188"></a>00188 <span class="keywordflow">break</span>;
<a name="l00189"></a>00189 <span class="keywordflow">case</span> <span class="charliteral">'#'</span>:
<a name="l00190"></a>00190 flags |= DP_F_NUM;
<a name="l00191"></a>00191 ch = *format++;
<a name="l00192"></a>00192 <span class="keywordflow">break</span>;
<a name="l00193"></a>00193 <span class="keywordflow">case</span> <span class="charliteral">'0'</span>:
<a name="l00194"></a>00194 flags |= DP_F_ZERO;
<a name="l00195"></a>00195 ch = *format++;
<a name="l00196"></a>00196 <span class="keywordflow">break</span>;
<a name="l00197"></a>00197 <span class="keywordflow">default</span>:
<a name="l00198"></a>00198 state = DP_S_MIN;
<a name="l00199"></a>00199 <span class="keywordflow">break</span>;
<a name="l00200"></a>00200 }
<a name="l00201"></a>00201 <span class="keywordflow">break</span>;
<a name="l00202"></a>00202 <span class="keywordflow">case</span> DP_S_MIN:
<a name="l00203"></a>00203 <span class="keywordflow">if</span> (isdigit(ch)) {
<a name="l00204"></a>00204 min = 10 * min + char_to_int(ch);
<a name="l00205"></a>00205 ch = *format++;
<a name="l00206"></a>00206 } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (ch == <span class="charliteral">'*'</span>) {
<a name="l00207"></a>00207 min = va_arg(args, <span class="keywordtype">int</span>);
<a name="l00208"></a>00208 ch = *format++;
<a name="l00209"></a>00209 state = DP_S_DOT;
<a name="l00210"></a>00210 } <span class="keywordflow">else</span>
<a name="l00211"></a>00211 state = DP_S_DOT;
<a name="l00212"></a>00212 <span class="keywordflow">break</span>;
<a name="l00213"></a>00213 <span class="keywordflow">case</span> DP_S_DOT:
<a name="l00214"></a>00214 <span class="keywordflow">if</span> (ch == <span class="charliteral">'.'</span>) {
<a name="l00215"></a>00215 state = DP_S_MAX;
<a name="l00216"></a>00216 ch = *format++;
<a name="l00217"></a>00217 } <span class="keywordflow">else</span>
<a name="l00218"></a>00218 state = DP_S_MOD;
<a name="l00219"></a>00219 <span class="keywordflow">break</span>;
<a name="l00220"></a>00220 <span class="keywordflow">case</span> DP_S_MAX:
<a name="l00221"></a>00221 <span class="keywordflow">if</span> (isdigit(ch)) {
<a name="l00222"></a>00222 <span class="keywordflow">if</span> (max < 0)
<a name="l00223"></a>00223 max = 0;
<a name="l00224"></a>00224 max = 10 * max + char_to_int(ch);
<a name="l00225"></a>00225 ch = *format++;
<a name="l00226"></a>00226 } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (ch == <span class="charliteral">'*'</span>) {
<a name="l00227"></a>00227 max = va_arg(args, <span class="keywordtype">int</span>);
<a name="l00228"></a>00228 ch = *format++;
<a name="l00229"></a>00229 state = DP_S_MOD;
<a name="l00230"></a>00230 } <span class="keywordflow">else</span>
<a name="l00231"></a>00231 state = DP_S_MOD;
<a name="l00232"></a>00232 <span class="keywordflow">break</span>;
<a name="l00233"></a>00233 <span class="keywordflow">case</span> DP_S_MOD:
<a name="l00234"></a>00234 <span class="comment">/*</span>
<a name="l00235"></a>00235 <span class="comment"> * Currently, we don't support Long Long, bummer </span>
<a name="l00236"></a>00236 <span class="comment"> */</span>
<a name="l00237"></a>00237 <span class="keywordflow">switch</span> (ch) {
<a name="l00238"></a>00238 <span class="keywordflow">case</span> <span class="charliteral">'h'</span>:
<a name="l00239"></a>00239 cflags = DP_C_SHORT;
<a name="l00240"></a>00240 ch = *format++;
<a name="l00241"></a>00241 <span class="keywordflow">break</span>;
<a name="l00242"></a>00242 <span class="keywordflow">case</span> <span class="charliteral">'l'</span>:
<a name="l00243"></a>00243 cflags = DP_C_LONG;
<a name="l00244"></a>00244 ch = *format++;
<a name="l00245"></a>00245 <span class="keywordflow">break</span>;
<a name="l00246"></a>00246 <span class="keywordflow">case</span> <span class="charliteral">'L'</span>:
<a name="l00247"></a>00247 cflags = DP_C_LDOUBLE;
<a name="l00248"></a>00248 ch = *format++;
<a name="l00249"></a>00249 <span class="keywordflow">break</span>;
<a name="l00250"></a>00250 <span class="keywordflow">default</span>:
<a name="l00251"></a>00251 <span class="keywordflow">break</span>;
<a name="l00252"></a>00252 }
<a name="l00253"></a>00253 state = DP_S_CONV;
<a name="l00254"></a>00254 <span class="keywordflow">break</span>;
<a name="l00255"></a>00255 <span class="keywordflow">case</span> DP_S_CONV:
<a name="l00256"></a>00256 <span class="keywordflow">switch</span> (ch) {
<a name="l00257"></a>00257 <span class="keywordflow">case</span> <span class="charliteral">'d'</span>:
<a name="l00258"></a>00258 <span class="keywordflow">case</span> <span class="charliteral">'i'</span>:
<a name="l00259"></a>00259 <span class="keywordflow">if</span> (cflags == DP_C_SHORT)
<a name="l00260"></a>00260 value = va_arg(args, <span class="keywordtype">short</span> <span class="keywordtype">int</span>);
<a name="l00261"></a>00261 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (cflags == DP_C_LONG)
<a name="l00262"></a>00262 value = va_arg(args, <span class="keywordtype">long</span> <span class="keywordtype">int</span>);
<a name="l00263"></a>00263 <span class="keywordflow">else</span>
<a name="l00264"></a>00264 value = va_arg(args, <span class="keywordtype">int</span>);
<a name="l00265"></a>00265 fmtint(buffer, &currlen, maxlen, value, 10, min, max,
<a name="l00266"></a>00266 flags);
<a name="l00267"></a>00267 <span class="keywordflow">break</span>;
<a name="l00268"></a>00268 <span class="keywordflow">case</span> <span class="charliteral">'o'</span>:
<a name="l00269"></a>00269 flags |= DP_F_UNSIGNED;
<a name="l00270"></a>00270 <span class="keywordflow">if</span> (cflags == DP_C_SHORT)
<a name="l00271"></a>00271 value = va_arg(args, <span class="keywordtype">unsigned</span> <span class="keywordtype">short</span> <span class="keywordtype">int</span>);
<a name="l00272"></a>00272 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (cflags == DP_C_LONG)
<a name="l00273"></a>00273 value = va_arg(args, <span class="keywordtype">unsigned</span> <span class="keywordtype">long</span> <span class="keywordtype">int</span>);
<a name="l00274"></a>00274 <span class="keywordflow">else</span>
<a name="l00275"></a>00275 value = va_arg(args, <span class="keywordtype">unsigned</span> <span class="keywordtype">int</span>);
<a name="l00276"></a>00276 fmtint(buffer, &currlen, maxlen, value, 8, min, max,
<a name="l00277"></a>00277 flags);
<a name="l00278"></a>00278 <span class="keywordflow">break</span>;
<a name="l00279"></a>00279 <span class="keywordflow">case</span> <span class="charliteral">'u'</span>:
<a name="l00280"></a>00280 flags |= DP_F_UNSIGNED;
<a name="l00281"></a>00281 <span class="keywordflow">if</span> (cflags == DP_C_SHORT)
<a name="l00282"></a>00282 value = va_arg(args, <span class="keywordtype">unsigned</span> <span class="keywordtype">short</span> <span class="keywordtype">int</span>);
<a name="l00283"></a>00283 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (cflags == DP_C_LONG)
<a name="l00284"></a>00284 value = va_arg(args, <span class="keywordtype">unsigned</span> <span class="keywordtype">long</span> <span class="keywordtype">int</span>);
<a name="l00285"></a>00285 <span class="keywordflow">else</span>
<a name="l00286"></a>00286 value = va_arg(args, <span class="keywordtype">unsigned</span> <span class="keywordtype">int</span>);
<a name="l00287"></a>00287 fmtint(buffer, &currlen, maxlen, value, 10, min, max,
<a name="l00288"></a>00288 flags);
<a name="l00289"></a>00289 <span class="keywordflow">break</span>;
<a name="l00290"></a>00290 <span class="keywordflow">case</span> <span class="charliteral">'X'</span>:
<a name="l00291"></a>00291 flags |= DP_F_UP;
<a name="l00292"></a>00292 <span class="keywordflow">case</span> <span class="charliteral">'x'</span>:
<a name="l00293"></a>00293 flags |= DP_F_UNSIGNED;
<a name="l00294"></a>00294 <span class="keywordflow">if</span> (cflags == DP_C_SHORT)
<a name="l00295"></a>00295 value = va_arg(args, <span class="keywordtype">unsigned</span> <span class="keywordtype">short</span> <span class="keywordtype">int</span>);
<a name="l00296"></a>00296 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (cflags == DP_C_LONG)
<a name="l00297"></a>00297 value = va_arg(args, <span class="keywordtype">unsigned</span> <span class="keywordtype">long</span> <span class="keywordtype">int</span>);
<a name="l00298"></a>00298 <span class="keywordflow">else</span>
<a name="l00299"></a>00299 value = va_arg(args, <span class="keywordtype">unsigned</span> <span class="keywordtype">int</span>);
<a name="l00300"></a>00300 fmtint(buffer, &currlen, maxlen, value, 16, min, max,
<a name="l00301"></a>00301 flags);
<a name="l00302"></a>00302 <span class="keywordflow">break</span>;
<a name="l00303"></a>00303 <span class="keywordflow">case</span> <span class="charliteral">'f'</span>:
<a name="l00304"></a>00304 <span class="keywordflow">if</span> (cflags == DP_C_LDOUBLE)
<a name="l00305"></a>00305 fvalue = va_arg(args, LDOUBLE);
<a name="l00306"></a>00306 <span class="keywordflow">else</span>
<a name="l00307"></a>00307 fvalue = va_arg(args, <span class="keywordtype">double</span>);
<a name="l00308"></a>00308 <span class="comment">/*</span>
<a name="l00309"></a>00309 <span class="comment"> * um, floating point? </span>
<a name="l00310"></a>00310 <span class="comment"> */</span>
<a name="l00311"></a>00311 fmtfp(buffer, &currlen, maxlen, fvalue, min, max, flags);
<a name="l00312"></a>00312 <span class="keywordflow">break</span>;
<a name="l00313"></a>00313 <span class="keywordflow">case</span> <span class="charliteral">'E'</span>:
<a name="l00314"></a>00314 flags |= DP_F_UP;
<a name="l00315"></a>00315 <span class="keywordflow">case</span> <span class="charliteral">'e'</span>:
<a name="l00316"></a>00316 <span class="keywordflow">if</span> (cflags == DP_C_LDOUBLE)
<a name="l00317"></a>00317 fvalue = va_arg(args, LDOUBLE);
<a name="l00318"></a>00318 <span class="keywordflow">else</span>
<a name="l00319"></a>00319 fvalue = va_arg(args, <span class="keywordtype">double</span>);
<a name="l00320"></a>00320 <span class="keywordflow">break</span>;
<a name="l00321"></a>00321 <span class="keywordflow">case</span> <span class="charliteral">'G'</span>:
<a name="l00322"></a>00322 flags |= DP_F_UP;
<a name="l00323"></a>00323 <span class="keywordflow">case</span> <span class="charliteral">'g'</span>:
<a name="l00324"></a>00324 <span class="keywordflow">if</span> (cflags == DP_C_LDOUBLE)
<a name="l00325"></a>00325 fvalue = va_arg(args, LDOUBLE);
<a name="l00326"></a>00326 <span class="keywordflow">else</span>
<a name="l00327"></a>00327 fvalue = va_arg(args, <span class="keywordtype">double</span>);
<a name="l00328"></a>00328 <span class="keywordflow">break</span>;
<a name="l00329"></a>00329 <span class="keywordflow">case</span> <span class="charliteral">'c'</span>:
<a name="l00330"></a>00330 dopr_outch(buffer, &currlen, maxlen, va_arg(args, <span class="keywordtype">int</span>));
<a name="l00331"></a>00331 <span class="keywordflow">break</span>;
<a name="l00332"></a>00332 <span class="keywordflow">case</span> <span class="charliteral">'s'</span>:
<a name="l00333"></a>00333 strvalue = va_arg(args, <span class="keywordtype">char</span> *);
<a name="l00334"></a>00334 <span class="keywordflow">if</span> (max < 0)
<a name="l00335"></a>00335 max = maxlen; <span class="comment">/* ie, no max */</span>
<a name="l00336"></a>00336 fmtstr(buffer, &currlen, maxlen, strvalue, flags, min,
<a name="l00337"></a>00337 max);
<a name="l00338"></a>00338 <span class="keywordflow">break</span>;
<a name="l00339"></a>00339 <span class="keywordflow">case</span> <span class="charliteral">'p'</span>:
<a name="l00340"></a>00340 strvalue = (<span class="keywordtype">char</span> *) va_arg(args, <span class="keywordtype">void</span> *);
<a name="l00341"></a>00341 fmtint(buffer, &currlen, maxlen, (<span class="keywordtype">long</span>) strvalue, 16, min,
<a name="l00342"></a>00342 max, flags);
<a name="l00343"></a>00343 <span class="keywordflow">break</span>;
<a name="l00344"></a>00344 <span class="keywordflow">case</span> <span class="charliteral">'n'</span>:
<a name="l00345"></a>00345 <span class="keywordflow">if</span> (cflags == DP_C_SHORT) {
<a name="l00346"></a>00346 <span class="keywordtype">short</span> <span class="keywordtype">int</span> *num;
<a name="l00347"></a>00347 num = va_arg(args, <span class="keywordtype">short</span> <span class="keywordtype">int</span> *);
<a name="l00348"></a>00348 *num = currlen;
<a name="l00349"></a>00349 } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (cflags == DP_C_LONG) {
<a name="l00350"></a>00350 <span class="keywordtype">long</span> <span class="keywordtype">int</span> *num;
<a name="l00351"></a>00351 num = va_arg(args, <span class="keywordtype">long</span> <span class="keywordtype">int</span> *);
<a name="l00352"></a>00352 *num = currlen;
<a name="l00353"></a>00353 } <span class="keywordflow">else</span> {
<a name="l00354"></a>00354 <span class="keywordtype">int</span> *num;
<a name="l00355"></a>00355 num = va_arg(args, <span class="keywordtype">int</span> *);
<a name="l00356"></a>00356 *num = currlen;
<a name="l00357"></a>00357 }
<a name="l00358"></a>00358 <span class="keywordflow">break</span>;
<a name="l00359"></a>00359 <span class="keywordflow">case</span> <span class="charliteral">'%'</span>:
<a name="l00360"></a>00360 dopr_outch(buffer, &currlen, maxlen, ch);
<a name="l00361"></a>00361 <span class="keywordflow">break</span>;
<a name="l00362"></a>00362 <span class="keywordflow">case</span> <span class="charliteral">'w'</span>:
<a name="l00363"></a>00363 <span class="comment">/*</span>
<a name="l00364"></a>00364 <span class="comment"> * not supported yet, treat as next char </span>
<a name="l00365"></a>00365 <span class="comment"> */</span>
<a name="l00366"></a>00366 ch = *format++;
<a name="l00367"></a>00367 <span class="keywordflow">break</span>;
<a name="l00368"></a>00368 <span class="keywordflow">default</span>:
<a name="l00369"></a>00369 <span class="comment">/*</span>
<a name="l00370"></a>00370 <span class="comment"> * Unknown, skip </span>
<a name="l00371"></a>00371 <span class="comment"> */</span>
<a name="l00372"></a>00372 <span class="keywordflow">break</span>;
<a name="l00373"></a>00373 }
<a name="l00374"></a>00374 ch = *format++;
<a name="l00375"></a>00375 state = DP_S_DEFAULT;
<a name="l00376"></a>00376 flags = cflags = min = 0;
<a name="l00377"></a>00377 max = -1;
<a name="l00378"></a>00378 <span class="keywordflow">break</span>;
<a name="l00379"></a>00379 <span class="keywordflow">case</span> DP_S_DONE:
<a name="l00380"></a>00380 <span class="keywordflow">break</span>;
<a name="l00381"></a>00381 <span class="keywordflow">default</span>:
<a name="l00382"></a>00382 <span class="comment">/*</span>
<a name="l00383"></a>00383 <span class="comment"> * hmm? </span>
<a name="l00384"></a>00384 <span class="comment"> */</span>
<a name="l00385"></a>00385 <span class="keywordflow">break</span>; <span class="comment">/* some picky compilers need this */</span>
<a name="l00386"></a>00386 }
<a name="l00387"></a>00387 }
<a name="l00388"></a>00388 <span class="keywordflow">if</span> (currlen < maxlen - 1)
<a name="l00389"></a>00389 buffer[currlen] = <span class="charliteral">'\0'</span>;
<a name="l00390"></a>00390 <span class="keywordflow">else</span>
<a name="l00391"></a>00391 buffer[maxlen - 1] = <span class="charliteral">'\0'</span>;
<a name="l00392"></a>00392 }
<a name="l00393"></a>00393
<a name="l00394"></a>00394 <span class="keyword">static</span> <span class="keywordtype">void</span>
<a name="l00395"></a>00395 fmtstr(<span class="keywordtype">char</span> *buffer, <span class="keywordtype">size_t</span> * currlen, <span class="keywordtype">size_t</span> maxlen,
<a name="l00396"></a>00396 <span class="keywordtype">char</span> *value, <span class="keywordtype">int</span> flags, <span class="keywordtype">int</span> min, <span class="keywordtype">int</span> max)
<a name="l00397"></a>00397 {
<a name="l00398"></a>00398 <span class="keywordtype">int</span> padlen, strln; <span class="comment">/* amount to pad */</span>
<a name="l00399"></a>00399 <span class="keywordtype">int</span> cnt = 0;
<a name="l00400"></a>00400
<a name="l00401"></a>00401 <span class="keywordflow">if</span> (value == 0) {
<a name="l00402"></a>00402 value = <span class="stringliteral">"<NULL>"</span>;
<a name="l00403"></a>00403 }
<a name="l00404"></a>00404
<a name="l00405"></a>00405 <span class="keywordflow">for</span> (strln = 0; value[strln]; ++strln); <span class="comment">/* strlen */</span>
<a name="l00406"></a>00406 padlen = min - strln;
<a name="l00407"></a>00407 <span class="keywordflow">if</span> (padlen < 0)
<a name="l00408"></a>00408 padlen = 0;
<a name="l00409"></a>00409 <span class="keywordflow">if</span> (flags & DP_F_MINUS)
<a name="l00410"></a>00410 padlen = -padlen; <span class="comment">/* Left Justify */</span>
<a name="l00411"></a>00411
<a name="l00412"></a>00412 <span class="keywordflow">while</span> ((padlen > 0) && (cnt < max)) {
<a name="l00413"></a>00413 dopr_outch(buffer, currlen, maxlen, <span class="charliteral">' '</span>);
<a name="l00414"></a>00414 --padlen;
<a name="l00415"></a>00415 ++cnt;
<a name="l00416"></a>00416 }
<a name="l00417"></a>00417 <span class="keywordflow">while</span> (*value && (cnt < max)) {
<a name="l00418"></a>00418 dopr_outch(buffer, currlen, maxlen, *value++);
<a name="l00419"></a>00419 ++cnt;
<a name="l00420"></a>00420 }
<a name="l00421"></a>00421 <span class="keywordflow">while</span> ((padlen < 0) && (cnt < max)) {
<a name="l00422"></a>00422 dopr_outch(buffer, currlen, maxlen, <span class="charliteral">' '</span>);
<a name="l00423"></a>00423 ++padlen;
<a name="l00424"></a>00424 ++cnt;
<a name="l00425"></a>00425 }
<a name="l00426"></a>00426 }
<a name="l00427"></a>00427
<a name="l00428"></a>00428 <span class="comment">/*</span>
<a name="l00429"></a>00429 <span class="comment"> * Have to handle DP_F_NUM (ie 0x and 0 alternates) </span>
<a name="l00430"></a>00430 <span class="comment"> */</span>
<a name="l00431"></a>00431
<a name="l00432"></a>00432 <span class="keyword">static</span> <span class="keywordtype">void</span>
<a name="l00433"></a>00433 fmtint(<span class="keywordtype">char</span> *buffer, <span class="keywordtype">size_t</span> * currlen, <span class="keywordtype">size_t</span> maxlen,
<a name="l00434"></a>00434 <span class="keywordtype">long</span> value, <span class="keywordtype">int</span> base, <span class="keywordtype">int</span> min, <span class="keywordtype">int</span> max, <span class="keywordtype">int</span> flags)
<a name="l00435"></a>00435 {
<a name="l00436"></a>00436 <span class="keywordtype">int</span> signvalue = 0;
<a name="l00437"></a>00437 <span class="keywordtype">unsigned</span> <span class="keywordtype">long</span> uvalue;
<a name="l00438"></a>00438 <span class="keywordtype">char</span> convert[20];
<a name="l00439"></a>00439 <span class="keywordtype">int</span> place = 0;
<a name="l00440"></a>00440 <span class="keywordtype">int</span> spadlen = 0; <span class="comment">/* amount to space pad */</span>
<a name="l00441"></a>00441 <span class="keywordtype">int</span> zpadlen = 0; <span class="comment">/* amount to zero pad */</span>
<a name="l00442"></a>00442 <span class="keywordtype">int</span> caps = 0;
<a name="l00443"></a>00443
<a name="l00444"></a>00444 <span class="keywordflow">if</span> (max < 0)
<a name="l00445"></a>00445 max = 0;
<a name="l00446"></a>00446
<a name="l00447"></a>00447 uvalue = value;
<a name="l00448"></a>00448
<a name="l00449"></a>00449 <span class="keywordflow">if</span> (!(flags & DP_F_UNSIGNED)) {
<a name="l00450"></a>00450 <span class="keywordflow">if</span> (value < 0) {
<a name="l00451"></a>00451 signvalue = <span class="charliteral">'-'</span>;
<a name="l00452"></a>00452 uvalue = -value;
<a name="l00453"></a>00453 } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (flags & DP_F_PLUS) <span class="comment">/* Do a sign (+/i) */</span>
<a name="l00454"></a>00454 signvalue = <span class="charliteral">'+'</span>;
<a name="l00455"></a>00455 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (flags & DP_F_SPACE)
<a name="l00456"></a>00456 signvalue = <span class="charliteral">' '</span>;
<a name="l00457"></a>00457 }
<a name="l00458"></a>00458
<a name="l00459"></a>00459 <span class="keywordflow">if</span> (flags & DP_F_UP)
<a name="l00460"></a>00460 caps = 1; <span class="comment">/* Should characters be upper case? */</span>
<a name="l00461"></a>00461
<a name="l00462"></a>00462 <span class="keywordflow">do</span> {
<a name="l00463"></a>00463 convert[place++] = (caps ? <span class="stringliteral">"0123456789ABCDEF"</span> : <span class="stringliteral">"0123456789abcdef"</span>)
<a name="l00464"></a>00464 [uvalue % (<span class="keywordtype">unsigned</span>) base];
<a name="l00465"></a>00465 uvalue = (uvalue / (unsigned) base);
<a name="l00466"></a>00466 } <span class="keywordflow">while</span> (uvalue && (place < 20));
<a name="l00467"></a>00467 <span class="keywordflow">if</span> (place == 20)
<a name="l00468"></a>00468 place--;
<a name="l00469"></a>00469 convert[place] = 0;
<a name="l00470"></a>00470
<a name="l00471"></a>00471 zpadlen = max - place;
<a name="l00472"></a>00472 spadlen = min - MAX(max, place) - (signvalue ? 1 : 0);
<a name="l00473"></a>00473 <span class="keywordflow">if</span> (zpadlen < 0)
<a name="l00474"></a>00474 zpadlen = 0;
<a name="l00475"></a>00475 <span class="keywordflow">if</span> (spadlen < 0)
<a name="l00476"></a>00476 spadlen = 0;
<a name="l00477"></a>00477 <span class="keywordflow">if</span> (flags & DP_F_ZERO) {
<a name="l00478"></a>00478 zpadlen = MAX(zpadlen, spadlen);
<a name="l00479"></a>00479 spadlen = 0;
<a name="l00480"></a>00480 }
<a name="l00481"></a>00481 <span class="keywordflow">if</span> (flags & DP_F_MINUS)
<a name="l00482"></a>00482 spadlen = -spadlen; <span class="comment">/* Left Justifty */</span>
<a name="l00483"></a>00483
<a name="l00484"></a>00484 <span class="preprocessor">#ifdef DEBUG_SNPRINTF</span>
<a name="l00485"></a>00485 <span class="preprocessor"></span> dprint(1,
<a name="l00486"></a>00486 (debugfile, <span class="stringliteral">"zpad: %d, spad: %d, min: %d, max: %d, place: %d\n"</span>,
<a name="l00487"></a>00487 zpadlen, spadlen, min, max, place));
<a name="l00488"></a>00488 <span class="preprocessor">#endif</span>
<a name="l00489"></a>00489 <span class="preprocessor"></span>
<a name="l00490"></a>00490 <span class="comment">/*</span>
<a name="l00491"></a>00491 <span class="comment"> * Spaces </span>
<a name="l00492"></a>00492 <span class="comment"> */</span>
<a name="l00493"></a>00493 <span class="keywordflow">while</span> (spadlen > 0) {
<a name="l00494"></a>00494 dopr_outch(buffer, currlen, maxlen, <span class="charliteral">' '</span>);
<a name="l00495"></a>00495 --spadlen;
<a name="l00496"></a>00496 }
<a name="l00497"></a>00497
<a name="l00498"></a>00498 <span class="comment">/*</span>
<a name="l00499"></a>00499 <span class="comment"> * Sign </span>
<a name="l00500"></a>00500 <span class="comment"> */</span>
<a name="l00501"></a>00501 <span class="keywordflow">if</span> (signvalue)
<a name="l00502"></a>00502 dopr_outch(buffer, currlen, maxlen, signvalue);
<a name="l00503"></a>00503
<a name="l00504"></a>00504 <span class="comment">/*</span>
<a name="l00505"></a>00505 <span class="comment"> * Zeros </span>
<a name="l00506"></a>00506 <span class="comment"> */</span>
<a name="l00507"></a>00507 <span class="keywordflow">if</span> (zpadlen > 0) {
<a name="l00508"></a>00508 <span class="keywordflow">while</span> (zpadlen > 0) {
<a name="l00509"></a>00509 dopr_outch(buffer, currlen, maxlen, <span class="charliteral">'0'</span>);
<a name="l00510"></a>00510 --zpadlen;
<a name="l00511"></a>00511 }
<a name="l00512"></a>00512 }
<a name="l00513"></a>00513
<a name="l00514"></a>00514 <span class="comment">/*</span>
<a name="l00515"></a>00515 <span class="comment"> * Digits </span>
<a name="l00516"></a>00516 <span class="comment"> */</span>
<a name="l00517"></a>00517 <span class="keywordflow">while</span> (place > 0)
<a name="l00518"></a>00518 dopr_outch(buffer, currlen, maxlen, convert[--place]);
<a name="l00519"></a>00519
<a name="l00520"></a>00520 <span class="comment">/*</span>
<a name="l00521"></a>00521 <span class="comment"> * Left Justified spaces </span>
<a name="l00522"></a>00522 <span class="comment"> */</span>
<a name="l00523"></a>00523 <span class="keywordflow">while</span> (spadlen < 0) {
<a name="l00524"></a>00524 dopr_outch(buffer, currlen, maxlen, <span class="charliteral">' '</span>);
<a name="l00525"></a>00525 ++spadlen;
<a name="l00526"></a>00526 }
<a name="l00527"></a>00527 }
<a name="l00528"></a>00528
<a name="l00529"></a>00529 <span class="keyword">static</span> LDOUBLE
<a name="l00530"></a>00530 abs_val(LDOUBLE value)
<a name="l00531"></a>00531 {
<a name="l00532"></a>00532 LDOUBLE result = value;
<a name="l00533"></a>00533
<a name="l00534"></a>00534 <span class="keywordflow">if</span> (value < 0)
<a name="l00535"></a>00535 result = -value;
<a name="l00536"></a>00536
<a name="l00537"></a>00537 <span class="keywordflow">return</span> result;
<a name="l00538"></a>00538 }
<a name="l00539"></a>00539
<a name="l00540"></a>00540 <span class="keyword">static</span> LDOUBLE
<a name="l00541"></a>00541 pow10(<span class="keywordtype">int</span> exp)
<a name="l00542"></a>00542 {
<a name="l00543"></a>00543 LDOUBLE result = 1;
<a name="l00544"></a>00544
<a name="l00545"></a>00545 <span class="keywordflow">while</span> (exp) {
<a name="l00546"></a>00546 result *= 10;
<a name="l00547"></a>00547 exp--;
<a name="l00548"></a>00548 }
<a name="l00549"></a>00549
<a name="l00550"></a>00550 <span class="keywordflow">return</span> result;
<a name="l00551"></a>00551 }
<a name="l00552"></a>00552
<a name="l00553"></a>00553 <span class="keyword">static</span> <span class="keywordtype">long</span>
<a name="l00554"></a>00554 round(LDOUBLE value)
<a name="l00555"></a>00555 {
<a name="l00556"></a>00556 <span class="keywordtype">long</span> intpart;
<a name="l00557"></a>00557
<a name="l00558"></a>00558 intpart = value;
<a name="l00559"></a>00559 value = value - intpart;
<a name="l00560"></a>00560 <span class="keywordflow">if</span> (value >= 0.5)
<a name="l00561"></a>00561 intpart++;
<a name="l00562"></a>00562
<a name="l00563"></a>00563 <span class="keywordflow">return</span> intpart;
<a name="l00564"></a>00564 }
<a name="l00565"></a>00565
<a name="l00566"></a>00566 <span class="keyword">static</span> <span class="keywordtype">void</span>
<a name="l00567"></a>00567 fmtfp(<span class="keywordtype">char</span> *buffer, <span class="keywordtype">size_t</span> * currlen, <span class="keywordtype">size_t</span> maxlen,
<a name="l00568"></a>00568 LDOUBLE fvalue, <span class="keywordtype">int</span> min, <span class="keywordtype">int</span> max, <span class="keywordtype">int</span> flags)
<a name="l00569"></a>00569 {
<a name="l00570"></a>00570 <span class="keywordtype">int</span> signvalue = 0;
<a name="l00571"></a>00571 LDOUBLE ufvalue;
<a name="l00572"></a>00572 <span class="keywordtype">char</span> iconvert[20];
<a name="l00573"></a>00573 <span class="keywordtype">char</span> fconvert[20];
<a name="l00574"></a>00574 <span class="keywordtype">int</span> iplace = 0;
<a name="l00575"></a>00575 <span class="keywordtype">int</span> fplace = 0;
<a name="l00576"></a>00576 <span class="keywordtype">int</span> padlen = 0; <span class="comment">/* amount to pad */</span>
<a name="l00577"></a>00577 <span class="keywordtype">int</span> zpadlen = 0;
<a name="l00578"></a>00578 <span class="keywordtype">int</span> caps = 0;
<a name="l00579"></a>00579 <span class="keywordtype">long</span> intpart;
<a name="l00580"></a>00580 <span class="keywordtype">long</span> fracpart;
<a name="l00581"></a>00581
<a name="l00582"></a>00582 <span class="comment">/*</span>
<a name="l00583"></a>00583 <span class="comment"> * AIX manpage says the default is 0, but Solaris says the default</span>
<a name="l00584"></a>00584 <span class="comment"> * is 6, and sprintf on AIX defaults to 6</span>
<a name="l00585"></a>00585 <span class="comment"> */</span>
<a name="l00586"></a>00586 <span class="keywordflow">if</span> (max < 0)
<a name="l00587"></a>00587 max = 6;
<a name="l00588"></a>00588
<a name="l00589"></a>00589 ufvalue = abs_val(fvalue);
<a name="l00590"></a>00590
<a name="l00591"></a>00591 <span class="keywordflow">if</span> (fvalue < 0)
<a name="l00592"></a>00592 signvalue = <span class="charliteral">'-'</span>;
<a name="l00593"></a>00593 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (flags & DP_F_PLUS) <span class="comment">/* Do a sign (+/i) */</span>
<a name="l00594"></a>00594 signvalue = <span class="charliteral">'+'</span>;
<a name="l00595"></a>00595 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (flags & DP_F_SPACE)
<a name="l00596"></a>00596 signvalue = <span class="charliteral">' '</span>;
<a name="l00597"></a>00597
<a name="l00598"></a>00598 <span class="preprocessor">#if 0</span>
<a name="l00599"></a>00599 <span class="preprocessor"></span> <span class="keywordflow">if</span> (flags & DP_F_UP)
<a name="l00600"></a>00600 caps = 1; <span class="comment">/* Should characters be upper case? */</span>
<a name="l00601"></a>00601 <span class="preprocessor">#endif</span>
<a name="l00602"></a>00602 <span class="preprocessor"></span>
<a name="l00603"></a>00603 intpart = ufvalue;
<a name="l00604"></a>00604
<a name="l00605"></a>00605 <span class="comment">/*</span>
<a name="l00606"></a>00606 <span class="comment"> * Sorry, we only support 9 digits past the decimal because of our </span>
<a name="l00607"></a>00607 <span class="comment"> * conversion method</span>
<a name="l00608"></a>00608 <span class="comment"> */</span>
<a name="l00609"></a>00609 <span class="keywordflow">if</span> (max > 9)
<a name="l00610"></a>00610 max = 9;
<a name="l00611"></a>00611
<a name="l00612"></a>00612 <span class="comment">/*</span>
<a name="l00613"></a>00613 <span class="comment"> * We "cheat" by converting the fractional part to integer by</span>
<a name="l00614"></a>00614 <span class="comment"> * * multiplying by a factor of 10</span>
<a name="l00615"></a>00615 <span class="comment"> */</span>
<a name="l00616"></a>00616 fracpart = round((pow10(max)) * (ufvalue - intpart));
<a name="l00617"></a>00617
<a name="l00618"></a>00618 <span class="keywordflow">if</span> (fracpart >= pow10(max)) {
<a name="l00619"></a>00619 intpart++;
<a name="l00620"></a>00620 fracpart -= pow10(max);
<a name="l00621"></a>00621 }
<a name="l00622"></a>00622 <span class="preprocessor">#ifdef DEBUG_SNPRINTF</span>
<a name="l00623"></a>00623 <span class="preprocessor"></span> dprint(1,
<a name="l00624"></a>00624 (debugfile, <span class="stringliteral">"fmtfp: %f =? %d.%d\n"</span>, fvalue, intpart, fracpart));
<a name="l00625"></a>00625 <span class="preprocessor">#endif</span>
<a name="l00626"></a>00626 <span class="preprocessor"></span>
<a name="l00627"></a>00627 <span class="comment">/*</span>
<a name="l00628"></a>00628 <span class="comment"> * Convert integer part </span>
<a name="l00629"></a>00629 <span class="comment"> */</span>
<a name="l00630"></a>00630 <span class="keywordflow">do</span> {
<a name="l00631"></a>00631 iconvert[iplace++] =
<a name="l00632"></a>00632 (caps ? <span class="stringliteral">"0123456789ABCDEF"</span> : <span class="stringliteral">"0123456789abcdef"</span>)[intpart % 10];
<a name="l00633"></a>00633 intpart = (intpart / 10);
<a name="l00634"></a>00634 } <span class="keywordflow">while</span> (intpart && (iplace < 20));
<a name="l00635"></a>00635 <span class="keywordflow">if</span> (iplace == 20)
<a name="l00636"></a>00636 iplace--;
<a name="l00637"></a>00637 iconvert[iplace] = 0;
<a name="l00638"></a>00638
<a name="l00639"></a>00639 <span class="comment">/*</span>
<a name="l00640"></a>00640 <span class="comment"> * Convert fractional part </span>
<a name="l00641"></a>00641 <span class="comment"> */</span>
<a name="l00642"></a>00642 <span class="keywordflow">do</span> {
<a name="l00643"></a>00643 fconvert[fplace++] =
<a name="l00644"></a>00644 (caps ? <span class="stringliteral">"0123456789ABCDEF"</span> : <span class="stringliteral">"0123456789abcdef"</span>)[fracpart %
<a name="l00645"></a>00645 10];
<a name="l00646"></a>00646 fracpart = (fracpart / 10);
<a name="l00647"></a>00647 } <span class="keywordflow">while</span> (fracpart && (fplace < 20));
<a name="l00648"></a>00648 <span class="keywordflow">if</span> (fplace == 20)
<a name="l00649"></a>00649 fplace--;
<a name="l00650"></a>00650 fconvert[fplace] = 0;
<a name="l00651"></a>00651
<a name="l00652"></a>00652 <span class="comment">/*</span>
<a name="l00653"></a>00653 <span class="comment"> * -1 for decimal point, another -1 if we are printing a sign </span>
<a name="l00654"></a>00654 <span class="comment"> */</span>
<a name="l00655"></a>00655 padlen = min - iplace - max - 1 - ((signvalue) ? 1 : 0);
<a name="l00656"></a>00656 zpadlen = max - fplace;
<a name="l00657"></a>00657 <span class="keywordflow">if</span> (zpadlen < 0)
<a name="l00658"></a>00658 zpadlen = 0;
<a name="l00659"></a>00659 <span class="keywordflow">if</span> (padlen < 0)
<a name="l00660"></a>00660 padlen = 0;
<a name="l00661"></a>00661 <span class="keywordflow">if</span> (flags & DP_F_MINUS)
<a name="l00662"></a>00662 padlen = -padlen; <span class="comment">/* Left Justifty */</span>
<a name="l00663"></a>00663
<a name="l00664"></a>00664 <span class="keywordflow">if</span> ((flags & DP_F_ZERO) && (padlen > 0)) {
<a name="l00665"></a>00665 <span class="keywordflow">if</span> (signvalue) {
<a name="l00666"></a>00666 dopr_outch(buffer, currlen, maxlen, signvalue);
<a name="l00667"></a>00667 --padlen;
<a name="l00668"></a>00668 signvalue = 0;
<a name="l00669"></a>00669 }
<a name="l00670"></a>00670 <span class="keywordflow">while</span> (padlen > 0) {
<a name="l00671"></a>00671 dopr_outch(buffer, currlen, maxlen, <span class="charliteral">'0'</span>);
<a name="l00672"></a>00672 --padlen;
<a name="l00673"></a>00673 }
<a name="l00674"></a>00674 }
<a name="l00675"></a>00675 <span class="keywordflow">while</span> (padlen > 0) {
<a name="l00676"></a>00676 dopr_outch(buffer, currlen, maxlen, <span class="charliteral">' '</span>);
<a name="l00677"></a>00677 --padlen;
<a name="l00678"></a>00678 }
<a name="l00679"></a>00679 <span class="keywordflow">if</span> (signvalue)
<a name="l00680"></a>00680 dopr_outch(buffer, currlen, maxlen, signvalue);
<a name="l00681"></a>00681
<a name="l00682"></a>00682 <span class="keywordflow">while</span> (iplace > 0)
<a name="l00683"></a>00683 dopr_outch(buffer, currlen, maxlen, iconvert[--iplace]);
<a name="l00684"></a>00684
<a name="l00685"></a>00685 <span class="comment">/*</span>
<a name="l00686"></a>00686 <span class="comment"> * Decimal point. This should probably use locale to find the correct</span>
<a name="l00687"></a>00687 <span class="comment"> * char to print out.</span>
<a name="l00688"></a>00688 <span class="comment"> */</span>
<a name="l00689"></a>00689 <span class="keywordflow">if</span> (max > 0) {
<a name="l00690"></a>00690 dopr_outch(buffer, currlen, maxlen, <span class="charliteral">'.'</span>);
<a name="l00691"></a>00691
<a name="l00692"></a>00692 <span class="keywordflow">while</span> (fplace > 0)
<a name="l00693"></a>00693 dopr_outch(buffer, currlen, maxlen, fconvert[--fplace]);
<a name="l00694"></a>00694 }
<a name="l00695"></a>00695
<a name="l00696"></a>00696 <span class="keywordflow">while</span> (zpadlen > 0) {
<a name="l00697"></a>00697 dopr_outch(buffer, currlen, maxlen, <span class="charliteral">'0'</span>);
<a name="l00698"></a>00698 --zpadlen;
<a name="l00699"></a>00699 }
<a name="l00700"></a>00700
<a name="l00701"></a>00701 <span class="keywordflow">while</span> (padlen < 0) {
<a name="l00702"></a>00702 dopr_outch(buffer, currlen, maxlen, <span class="charliteral">' '</span>);
<a name="l00703"></a>00703 ++padlen;
<a name="l00704"></a>00704 }
<a name="l00705"></a>00705 }
<a name="l00706"></a>00706
<a name="l00707"></a>00707 <span class="keyword">static</span> <span class="keywordtype">void</span>
<a name="l00708"></a>00708 dopr_outch(<span class="keywordtype">char</span> *buffer, <span class="keywordtype">size_t</span> * currlen, <span class="keywordtype">size_t</span> maxlen, <span class="keywordtype">char</span> c)
<a name="l00709"></a>00709 {
<a name="l00710"></a>00710 <span class="keywordflow">if</span> (*currlen < maxlen)
<a name="l00711"></a>00711 buffer[(*currlen)++] = c;
<a name="l00712"></a>00712 }
<a name="l00713"></a>00713
<a name="l00714"></a>00714 <span class="preprocessor">#ifndef HAVE_VSNPRINTF</span>
<a name="l00715"></a>00715 <span class="preprocessor"></span><span class="keywordtype">int</span>
<a name="l00716"></a>00716 vsnprintf(<span class="keywordtype">char</span> *str, <span class="keywordtype">size_t</span> count, <span class="keyword">const</span> <span class="keywordtype">char</span> *fmt, va_list args)
<a name="l00717"></a>00717 {
<a name="l00718"></a>00718 str[0] = 0;
<a name="l00719"></a>00719 dopr(str, count, fmt, args);
<a name="l00720"></a>00720 <span class="keywordflow">return</span> (strlen(str));
<a name="l00721"></a>00721 }
<a name="l00722"></a>00722 <span class="preprocessor">#endif </span><span class="comment">/* !HAVE_VSNPRINTF */</span>
<a name="l00723"></a>00723
<a name="l00724"></a>00724 <span class="preprocessor">#ifndef HAVE_SNPRINTF</span>
<a name="l00725"></a>00725 <span class="preprocessor"></span><span class="comment">/*</span>
<a name="l00726"></a>00726 <span class="comment"> * VARARGS3 </span>
<a name="l00727"></a>00727 <span class="comment"> */</span>
<a name="l00728"></a>00728 <span class="preprocessor">#ifdef HAVE_STDARGS</span>
<a name="l00729"></a>00729 <span class="preprocessor"></span><span class="keywordtype">int</span>
<a name="l00730"></a>00730 snprintf(<span class="keywordtype">char</span> *str, <span class="keywordtype">size_t</span> count, <span class="keyword">const</span> <span class="keywordtype">char</span> *fmt, ...)
<a name="l00731"></a>00731 <span class="preprocessor">#else</span>
<a name="l00732"></a>00732 <span class="preprocessor"></span><span class="keywordtype">int</span>
<a name="l00733"></a>00733 snprintf(va_alist)
<a name="l00734"></a>00734 va_dcl
<a name="l00735"></a>00735 <span class="preprocessor">#endif</span>
<a name="l00736"></a>00736 <span class="preprocessor"></span>{
<a name="l00737"></a>00737 <span class="preprocessor">#ifndef HAVE_STDARGS</span>
<a name="l00738"></a>00738 <span class="preprocessor"></span> <span class="keywordtype">char</span> *str;
<a name="l00739"></a>00739 <span class="keywordtype">size_t</span> count;
<a name="l00740"></a>00740 <span class="keywordtype">char</span> *fmt;
<a name="l00741"></a>00741 <span class="preprocessor">#endif</span>
<a name="l00742"></a>00742 <span class="preprocessor"></span> VA_LOCAL_DECL;
<a name="l00743"></a>00743
<a name="l00744"></a>00744 VA_START(fmt);
<a name="l00745"></a>00745 VA_SHIFT(str, <span class="keywordtype">char</span> *);
<a name="l00746"></a>00746 VA_SHIFT(count, <span class="keywordtype">size_t</span>);
<a name="l00747"></a>00747 VA_SHIFT(fmt, <span class="keywordtype">char</span> *);
<a name="l00748"></a>00748 (void) vsnprintf(str, count, fmt, ap);
<a name="l00749"></a>00749 VA_END;
<a name="l00750"></a>00750 <span class="keywordflow">return</span> (strlen(str));
<a name="l00751"></a>00751 }
<a name="l00752"></a>00752 <span class="preprocessor">#endif </span><span class="comment">/* !HAVE_SNPRINTF */</span>
<a name="l00753"></a>00753
<a name="l00754"></a>00754 <span class="preprocessor">#ifdef TEST_SNPRINTF</span>
<a name="l00755"></a>00755 <span class="preprocessor"></span><span class="preprocessor">#ifndef LONG_STRING</span>
<a name="l00756"></a>00756 <span class="preprocessor"></span><span class="preprocessor">#define LONG_STRING 1024</span>
<a name="l00757"></a>00757 <span class="preprocessor"></span><span class="preprocessor">#endif</span>
<a name="l00758"></a>00758 <span class="preprocessor"></span><span class="keywordtype">int</span>
<a name="l00759"></a>00759 main(<span class="keywordtype">void</span>)
<a name="l00760"></a>00760 {
<a name="l00761"></a>00761 <span class="keywordtype">char</span> buf1[LONG_STRING];
<a name="l00762"></a>00762 <span class="keywordtype">char</span> buf2[LONG_STRING];
<a name="l00763"></a>00763 <span class="keywordtype">char</span> *fp_fmt[] = {
<a name="l00764"></a>00764 <span class="stringliteral">"%-1.5f"</span>,
<a name="l00765"></a>00765 <span class="stringliteral">"%1.5f"</span>,
<a name="l00766"></a>00766 <span class="stringliteral">"%123.9f"</span>,
<a name="l00767"></a>00767 <span class="stringliteral">"%10.5f"</span>,
<a name="l00768"></a>00768 <span class="stringliteral">"% 10.5f"</span>,
<a name="l00769"></a>00769 <span class="stringliteral">"%+22.9f"</span>,
<a name="l00770"></a>00770 <span class="stringliteral">"%+4.9f"</span>,
<a name="l00771"></a>00771 <span class="stringliteral">"%01.3f"</span>,
<a name="l00772"></a>00772 <span class="stringliteral">"%4f"</span>,
<a name="l00773"></a>00773 <span class="stringliteral">"%3.1f"</span>,
<a name="l00774"></a>00774 <span class="stringliteral">"%3.2f"</span>,
<a name="l00775"></a>00775 <span class="stringliteral">"%.0f"</span>,
<a name="l00776"></a>00776 <span class="stringliteral">"%.1f"</span>,
<a name="l00777"></a>00777 NULL
<a name="l00778"></a>00778 };
<a name="l00779"></a>00779 <span class="keywordtype">double</span> fp_nums[] =
<a name="l00780"></a>00780 { -1.5, 134.21, 91340.2, 341.1234, 0203.9, 0.96, 0.996,
<a name="l00781"></a>00781 0.9996, 1.996, 4.136, 0
<a name="l00782"></a>00782 };
<a name="l00783"></a>00783 <span class="keywordtype">char</span> *int_fmt[] = {
<a name="l00784"></a>00784 <span class="stringliteral">"%-1.5d"</span>,
<a name="l00785"></a>00785 <span class="stringliteral">"%1.5d"</span>,
<a name="l00786"></a>00786 <span class="stringliteral">"%123.9d"</span>,
<a name="l00787"></a>00787 <span class="stringliteral">"%5.5d"</span>,
<a name="l00788"></a>00788 <span class="stringliteral">"%10.5d"</span>,
<a name="l00789"></a>00789 <span class="stringliteral">"% 10.5d"</span>,
<a name="l00790"></a>00790 <span class="stringliteral">"%+22.33d"</span>,
<a name="l00791"></a>00791 <span class="stringliteral">"%01.3d"</span>,
<a name="l00792"></a>00792 <span class="stringliteral">"%4d"</span>,
<a name="l00793"></a>00793 NULL
<a name="l00794"></a>00794 };
<a name="l00795"></a>00795 <span class="keywordtype">long</span> int_nums[] = { -1, 134, 91340, 341, 0203, 0 };
<a name="l00796"></a>00796 <span class="keywordtype">int</span> x, y;
<a name="l00797"></a>00797 <span class="keywordtype">int</span> fail = 0;
<a name="l00798"></a>00798 <span class="keywordtype">int</span> num = 0;
<a name="l00799"></a>00799
<a name="l00800"></a>00800 printf(<span class="stringliteral">"Testing snprintf format codes against system sprintf...\n"</span>);
<a name="l00801"></a>00801
<a name="l00802"></a>00802 <span class="keywordflow">for</span> (x = 0; fp_fmt[x] != NULL; x++)
<a name="l00803"></a>00803 <span class="keywordflow">for</span> (y = 0; fp_nums[y] != 0; y++) {
<a name="l00804"></a>00804 snprintf(buf1, <span class="keyword">sizeof</span>(buf1), fp_fmt[x], fp_nums[y]);
<a name="l00805"></a>00805 sprintf(buf2, fp_fmt[x], fp_nums[y]);
<a name="l00806"></a>00806 <span class="keywordflow">if</span> (strcmp(buf1, buf2)) {
<a name="l00807"></a>00807 printf
<a name="l00808"></a>00808 (<span class="stringliteral">"snprintf doesn't match Format: %s\n\tsnprintf = %s\n\tsprintf = %s\n"</span>,
<a name="l00809"></a>00809 fp_fmt[x], buf1, buf2);
<a name="l00810"></a>00810 fail++;
<a name="l00811"></a>00811 }
<a name="l00812"></a>00812 num++;
<a name="l00813"></a>00813 }
<a name="l00814"></a>00814
<a name="l00815"></a>00815 <span class="keywordflow">for</span> (x = 0; int_fmt[x] != NULL; x++)
<a name="l00816"></a>00816 <span class="keywordflow">for</span> (y = 0; int_nums[y] != 0; y++) {
<a name="l00817"></a>00817 snprintf(buf1, <span class="keyword">sizeof</span>(buf1), int_fmt[x], int_nums[y]);
<a name="l00818"></a>00818 sprintf(buf2, int_fmt[x], int_nums[y]);
<a name="l00819"></a>00819 <span class="keywordflow">if</span> (strcmp(buf1, buf2)) {
<a name="l00820"></a>00820 printf
<a name="l00821"></a>00821 (<span class="stringliteral">"snprintf doesn't match Format: %s\n\tsnprintf = %s\n\tsprintf = %s\n"</span>,
<a name="l00822"></a>00822 int_fmt[x], buf1, buf2);
<a name="l00823"></a>00823 fail++;
<a name="l00824"></a>00824 }
<a name="l00825"></a>00825 num++;
<a name="l00826"></a>00826 }
<a name="l00827"></a>00827 printf(<span class="stringliteral">"%d tests failed out of %d.\n"</span>, fail, num);
<a name="l00828"></a>00828 }
<a name="l00829"></a>00829 <span class="preprocessor">#endif </span><span class="comment">/* SNPRINTF_TEST */</span>
<a name="l00830"></a>00830
<a name="l00831"></a>00831 <span class="preprocessor">#endif </span><span class="comment">/* !HAVE_SNPRINTF */</span>
</pre></div></div><!-- contents -->
<hr class="footer"/><address class="footer"><small>
Generated by  <a href="http://www.doxygen.org/index.html">
<img class="footer" src="doxygen.png" alt="doxygen"/>
</a> 1.7.6.1
</small></address>
</body>
</html>