1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000
1.2 +++ b/os/persistentdata/persistentstorage/sql/SQLite/printf.c Fri Jun 15 03:10:57 2012 +0200
1.3 @@ -0,0 +1,934 @@
1.4 +/*
1.5 +** The "printf" code that follows dates from the 1980's. It is in
1.6 +** the public domain. The original comments are included here for
1.7 +** completeness. They are very out-of-date but might be useful as
1.8 +** an historical reference. Most of the "enhancements" have been backed
1.9 +** out so that the functionality is now the same as standard printf().
1.10 +**
1.11 +** $Id: printf.c,v 1.93 2008/07/28 19:34:53 drh Exp $
1.12 +**
1.13 +**************************************************************************
1.14 +**
1.15 +** The following modules is an enhanced replacement for the "printf" subroutines
1.16 +** found in the standard C library. The following enhancements are
1.17 +** supported:
1.18 +**
1.19 +** + Additional functions. The standard set of "printf" functions
1.20 +** includes printf, fprintf, sprintf, vprintf, vfprintf, and
1.21 +** vsprintf. This module adds the following:
1.22 +**
1.23 +** * snprintf -- Works like sprintf, but has an extra argument
1.24 +** which is the size of the buffer written to.
1.25 +**
1.26 +** * mprintf -- Similar to sprintf. Writes output to memory
1.27 +** obtained from malloc.
1.28 +**
1.29 +** * xprintf -- Calls a function to dispose of output.
1.30 +**
1.31 +** * nprintf -- No output, but returns the number of characters
1.32 +** that would have been output by printf.
1.33 +**
1.34 +** * A v- version (ex: vsnprintf) of every function is also
1.35 +** supplied.
1.36 +**
1.37 +** + A few extensions to the formatting notation are supported:
1.38 +**
1.39 +** * The "=" flag (similar to "-") causes the output to be
1.40 +** be centered in the appropriately sized field.
1.41 +**
1.42 +** * The %b field outputs an integer in binary notation.
1.43 +**
1.44 +** * The %c field now accepts a precision. The character output
1.45 +** is repeated by the number of times the precision specifies.
1.46 +**
1.47 +** * The %' field works like %c, but takes as its character the
1.48 +** next character of the format string, instead of the next
1.49 +** argument. For example, printf("%.78'-") prints 78 minus
1.50 +** signs, the same as printf("%.78c",'-').
1.51 +**
1.52 +** + When compiled using GCC on a SPARC, this version of printf is
1.53 +** faster than the library printf for SUN OS 4.1.
1.54 +**
1.55 +** + All functions are fully reentrant.
1.56 +**
1.57 +*/
1.58 +#include "sqliteInt.h"
1.59 +
1.60 +/*
1.61 +** Conversion types fall into various categories as defined by the
1.62 +** following enumeration.
1.63 +*/
1.64 +#define etRADIX 1 /* Integer types. %d, %x, %o, and so forth */
1.65 +#define etFLOAT 2 /* Floating point. %f */
1.66 +#define etEXP 3 /* Exponentional notation. %e and %E */
1.67 +#define etGENERIC 4 /* Floating or exponential, depending on exponent. %g */
1.68 +#define etSIZE 5 /* Return number of characters processed so far. %n */
1.69 +#define etSTRING 6 /* Strings. %s */
1.70 +#define etDYNSTRING 7 /* Dynamically allocated strings. %z */
1.71 +#define etPERCENT 8 /* Percent symbol. %% */
1.72 +#define etCHARX 9 /* Characters. %c */
1.73 +/* The rest are extensions, not normally found in printf() */
1.74 +#define etSQLESCAPE 10 /* Strings with '\'' doubled. %q */
1.75 +#define etSQLESCAPE2 11 /* Strings with '\'' doubled and enclosed in '',
1.76 + NULL pointers replaced by SQL NULL. %Q */
1.77 +#define etTOKEN 12 /* a pointer to a Token structure */
1.78 +#define etSRCLIST 13 /* a pointer to a SrcList */
1.79 +#define etPOINTER 14 /* The %p conversion */
1.80 +#define etSQLESCAPE3 15 /* %w -> Strings with '\"' doubled */
1.81 +#define etORDINAL 16 /* %r -> 1st, 2nd, 3rd, 4th, etc. English only */
1.82 +
1.83 +
1.84 +/*
1.85 +** An "etByte" is an 8-bit unsigned value.
1.86 +*/
1.87 +typedef unsigned char etByte;
1.88 +
1.89 +/*
1.90 +** Each builtin conversion character (ex: the 'd' in "%d") is described
1.91 +** by an instance of the following structure
1.92 +*/
1.93 +typedef struct et_info { /* Information about each format field */
1.94 + char fmttype; /* The format field code letter */
1.95 + etByte base; /* The base for radix conversion */
1.96 + etByte flags; /* One or more of FLAG_ constants below */
1.97 + etByte type; /* Conversion paradigm */
1.98 + etByte charset; /* Offset into aDigits[] of the digits string */
1.99 + etByte prefix; /* Offset into aPrefix[] of the prefix string */
1.100 +} et_info;
1.101 +
1.102 +/*
1.103 +** Allowed values for et_info.flags
1.104 +*/
1.105 +#define FLAG_SIGNED 1 /* True if the value to convert is signed */
1.106 +#define FLAG_INTERN 2 /* True if for internal use only */
1.107 +#define FLAG_STRING 4 /* Allow infinity precision */
1.108 +
1.109 +
1.110 +/*
1.111 +** The following table is searched linearly, so it is good to put the
1.112 +** most frequently used conversion types first.
1.113 +*/
1.114 +static const char aDigits[] = "0123456789ABCDEF0123456789abcdef";
1.115 +static const char aPrefix[] = "-x0\000X0";
1.116 +static const et_info fmtinfo[] = {
1.117 + { 'd', 10, 1, etRADIX, 0, 0 },
1.118 + { 's', 0, 4, etSTRING, 0, 0 },
1.119 + { 'g', 0, 1, etGENERIC, 30, 0 },
1.120 + { 'z', 0, 4, etDYNSTRING, 0, 0 },
1.121 + { 'q', 0, 4, etSQLESCAPE, 0, 0 },
1.122 + { 'Q', 0, 4, etSQLESCAPE2, 0, 0 },
1.123 + { 'w', 0, 4, etSQLESCAPE3, 0, 0 },
1.124 + { 'c', 0, 0, etCHARX, 0, 0 },
1.125 + { 'o', 8, 0, etRADIX, 0, 2 },
1.126 + { 'u', 10, 0, etRADIX, 0, 0 },
1.127 + { 'x', 16, 0, etRADIX, 16, 1 },
1.128 + { 'X', 16, 0, etRADIX, 0, 4 },
1.129 +#ifndef SQLITE_OMIT_FLOATING_POINT
1.130 + { 'f', 0, 1, etFLOAT, 0, 0 },
1.131 + { 'e', 0, 1, etEXP, 30, 0 },
1.132 + { 'E', 0, 1, etEXP, 14, 0 },
1.133 + { 'G', 0, 1, etGENERIC, 14, 0 },
1.134 +#endif
1.135 + { 'i', 10, 1, etRADIX, 0, 0 },
1.136 + { 'n', 0, 0, etSIZE, 0, 0 },
1.137 + { '%', 0, 0, etPERCENT, 0, 0 },
1.138 + { 'p', 16, 0, etPOINTER, 0, 1 },
1.139 + { 'T', 0, 2, etTOKEN, 0, 0 },
1.140 + { 'S', 0, 2, etSRCLIST, 0, 0 },
1.141 + { 'r', 10, 3, etORDINAL, 0, 0 },
1.142 +};
1.143 +#define etNINFO (sizeof(fmtinfo)/sizeof(fmtinfo[0]))
1.144 +
1.145 +/*
1.146 +** If SQLITE_OMIT_FLOATING_POINT is defined, then none of the floating point
1.147 +** conversions will work.
1.148 +*/
1.149 +#ifndef SQLITE_OMIT_FLOATING_POINT
1.150 +/*
1.151 +** "*val" is a double such that 0.1 <= *val < 10.0
1.152 +** Return the ascii code for the leading digit of *val, then
1.153 +** multiply "*val" by 10.0 to renormalize.
1.154 +**
1.155 +** Example:
1.156 +** input: *val = 3.14159
1.157 +** output: *val = 1.4159 function return = '3'
1.158 +**
1.159 +** The counter *cnt is incremented each time. After counter exceeds
1.160 +** 16 (the number of significant digits in a 64-bit float) '0' is
1.161 +** always returned.
1.162 +*/
1.163 +static int et_getdigit(LONGDOUBLE_TYPE *val, int *cnt){
1.164 + int digit;
1.165 + LONGDOUBLE_TYPE d;
1.166 + if( (*cnt)++ >= 16 ) return '0';
1.167 + digit = (int)*val;
1.168 + d = digit;
1.169 + digit += '0';
1.170 + *val = (*val - d)*10.0;
1.171 + return digit;
1.172 +}
1.173 +#endif /* SQLITE_OMIT_FLOATING_POINT */
1.174 +
1.175 +/*
1.176 +** Append N space characters to the given string buffer.
1.177 +*/
1.178 +static void appendSpace(StrAccum *pAccum, int N){
1.179 + static const char zSpaces[] = " ";
1.180 + while( N>=sizeof(zSpaces)-1 ){
1.181 + sqlite3StrAccumAppend(pAccum, zSpaces, sizeof(zSpaces)-1);
1.182 + N -= sizeof(zSpaces)-1;
1.183 + }
1.184 + if( N>0 ){
1.185 + sqlite3StrAccumAppend(pAccum, zSpaces, N);
1.186 + }
1.187 +}
1.188 +
1.189 +/*
1.190 +** On machines with a small stack size, you can redefine the
1.191 +** SQLITE_PRINT_BUF_SIZE to be less than 350. But beware - for
1.192 +** smaller values some %f conversions may go into an infinite loop.
1.193 +*/
1.194 +#ifndef SQLITE_PRINT_BUF_SIZE
1.195 +# define SQLITE_PRINT_BUF_SIZE 350
1.196 +#endif
1.197 +#define etBUFSIZE SQLITE_PRINT_BUF_SIZE /* Size of the output buffer */
1.198 +
1.199 +/*
1.200 +** The root program. All variations call this core.
1.201 +**
1.202 +** INPUTS:
1.203 +** func This is a pointer to a function taking three arguments
1.204 +** 1. A pointer to anything. Same as the "arg" parameter.
1.205 +** 2. A pointer to the list of characters to be output
1.206 +** (Note, this list is NOT null terminated.)
1.207 +** 3. An integer number of characters to be output.
1.208 +** (Note: This number might be zero.)
1.209 +**
1.210 +** arg This is the pointer to anything which will be passed as the
1.211 +** first argument to "func". Use it for whatever you like.
1.212 +**
1.213 +** fmt This is the format string, as in the usual print.
1.214 +**
1.215 +** ap This is a pointer to a list of arguments. Same as in
1.216 +** vfprint.
1.217 +**
1.218 +** OUTPUTS:
1.219 +** The return value is the total number of characters sent to
1.220 +** the function "func". Returns -1 on a error.
1.221 +**
1.222 +** Note that the order in which automatic variables are declared below
1.223 +** seems to make a big difference in determining how fast this beast
1.224 +** will run.
1.225 +*/
1.226 +void sqlite3VXPrintf(
1.227 + StrAccum *pAccum, /* Accumulate results here */
1.228 + int useExtended, /* Allow extended %-conversions */
1.229 + const char *fmt, /* Format string */
1.230 + va_list ap /* arguments */
1.231 +){
1.232 + int c; /* Next character in the format string */
1.233 + char *bufpt; /* Pointer to the conversion buffer */
1.234 + int precision; /* Precision of the current field */
1.235 + int length; /* Length of the field */
1.236 + int idx; /* A general purpose loop counter */
1.237 + int width; /* Width of the current field */
1.238 + etByte flag_leftjustify; /* True if "-" flag is present */
1.239 + etByte flag_plussign; /* True if "+" flag is present */
1.240 + etByte flag_blanksign; /* True if " " flag is present */
1.241 + etByte flag_alternateform; /* True if "#" flag is present */
1.242 + etByte flag_altform2; /* True if "!" flag is present */
1.243 + etByte flag_zeropad; /* True if field width constant starts with zero */
1.244 + etByte flag_long; /* True if "l" flag is present */
1.245 + etByte flag_longlong; /* True if the "ll" flag is present */
1.246 + etByte done; /* Loop termination flag */
1.247 + sqlite_uint64 longvalue; /* Value for integer types */
1.248 + LONGDOUBLE_TYPE realvalue; /* Value for real types */
1.249 + const et_info *infop; /* Pointer to the appropriate info structure */
1.250 + char buf[etBUFSIZE]; /* Conversion buffer */
1.251 + char prefix; /* Prefix character. "+" or "-" or " " or '\0'. */
1.252 + etByte errorflag = 0; /* True if an error is encountered */
1.253 + etByte xtype = 0; /* Conversion paradigm */
1.254 + char *zExtra; /* Extra memory used for etTCLESCAPE conversions */
1.255 +#ifndef SQLITE_OMIT_FLOATING_POINT
1.256 + int exp, e2; /* exponent of real numbers */
1.257 + double rounder; /* Used for rounding floating point values */
1.258 + etByte flag_dp; /* True if decimal point should be shown */
1.259 + etByte flag_rtz; /* True if trailing zeros should be removed */
1.260 + etByte flag_exp; /* True to force display of the exponent */
1.261 + int nsd; /* Number of significant digits returned */
1.262 +#endif
1.263 +
1.264 + length = 0;
1.265 + bufpt = 0;
1.266 + for(; (c=(*fmt))!=0; ++fmt){
1.267 + if( c!='%' ){
1.268 + int amt;
1.269 + bufpt = (char *)fmt;
1.270 + amt = 1;
1.271 + while( (c=(*++fmt))!='%' && c!=0 ) amt++;
1.272 + sqlite3StrAccumAppend(pAccum, bufpt, amt);
1.273 + if( c==0 ) break;
1.274 + }
1.275 + if( (c=(*++fmt))==0 ){
1.276 + errorflag = 1;
1.277 + sqlite3StrAccumAppend(pAccum, "%", 1);
1.278 + break;
1.279 + }
1.280 + /* Find out what flags are present */
1.281 + flag_leftjustify = flag_plussign = flag_blanksign =
1.282 + flag_alternateform = flag_altform2 = flag_zeropad = 0;
1.283 + done = 0;
1.284 + do{
1.285 + switch( c ){
1.286 + case '-': flag_leftjustify = 1; break;
1.287 + case '+': flag_plussign = 1; break;
1.288 + case ' ': flag_blanksign = 1; break;
1.289 + case '#': flag_alternateform = 1; break;
1.290 + case '!': flag_altform2 = 1; break;
1.291 + case '0': flag_zeropad = 1; break;
1.292 + default: done = 1; break;
1.293 + }
1.294 + }while( !done && (c=(*++fmt))!=0 );
1.295 + /* Get the field width */
1.296 + width = 0;
1.297 + if( c=='*' ){
1.298 + width = va_arg(ap,int);
1.299 + if( width<0 ){
1.300 + flag_leftjustify = 1;
1.301 + width = -width;
1.302 + }
1.303 + c = *++fmt;
1.304 + }else{
1.305 + while( c>='0' && c<='9' ){
1.306 + width = width*10 + c - '0';
1.307 + c = *++fmt;
1.308 + }
1.309 + }
1.310 + if( width > etBUFSIZE-10 ){
1.311 + width = etBUFSIZE-10;
1.312 + }
1.313 + /* Get the precision */
1.314 + if( c=='.' ){
1.315 + precision = 0;
1.316 + c = *++fmt;
1.317 + if( c=='*' ){
1.318 + precision = va_arg(ap,int);
1.319 + if( precision<0 ) precision = -precision;
1.320 + c = *++fmt;
1.321 + }else{
1.322 + while( c>='0' && c<='9' ){
1.323 + precision = precision*10 + c - '0';
1.324 + c = *++fmt;
1.325 + }
1.326 + }
1.327 + }else{
1.328 + precision = -1;
1.329 + }
1.330 + /* Get the conversion type modifier */
1.331 + if( c=='l' ){
1.332 + flag_long = 1;
1.333 + c = *++fmt;
1.334 + if( c=='l' ){
1.335 + flag_longlong = 1;
1.336 + c = *++fmt;
1.337 + }else{
1.338 + flag_longlong = 0;
1.339 + }
1.340 + }else{
1.341 + flag_long = flag_longlong = 0;
1.342 + }
1.343 + /* Fetch the info entry for the field */
1.344 + infop = 0;
1.345 + for(idx=0; idx<etNINFO; idx++){
1.346 + if( c==fmtinfo[idx].fmttype ){
1.347 + infop = &fmtinfo[idx];
1.348 + if( useExtended || (infop->flags & FLAG_INTERN)==0 ){
1.349 + xtype = infop->type;
1.350 + }else{
1.351 + return;
1.352 + }
1.353 + break;
1.354 + }
1.355 + }
1.356 + zExtra = 0;
1.357 + if( infop==0 ){
1.358 + return;
1.359 + }
1.360 +
1.361 +
1.362 + /* Limit the precision to prevent overflowing buf[] during conversion */
1.363 + if( precision>etBUFSIZE-40 && (infop->flags & FLAG_STRING)==0 ){
1.364 + precision = etBUFSIZE-40;
1.365 + }
1.366 +
1.367 + /*
1.368 + ** At this point, variables are initialized as follows:
1.369 + **
1.370 + ** flag_alternateform TRUE if a '#' is present.
1.371 + ** flag_altform2 TRUE if a '!' is present.
1.372 + ** flag_plussign TRUE if a '+' is present.
1.373 + ** flag_leftjustify TRUE if a '-' is present or if the
1.374 + ** field width was negative.
1.375 + ** flag_zeropad TRUE if the width began with 0.
1.376 + ** flag_long TRUE if the letter 'l' (ell) prefixed
1.377 + ** the conversion character.
1.378 + ** flag_longlong TRUE if the letter 'll' (ell ell) prefixed
1.379 + ** the conversion character.
1.380 + ** flag_blanksign TRUE if a ' ' is present.
1.381 + ** width The specified field width. This is
1.382 + ** always non-negative. Zero is the default.
1.383 + ** precision The specified precision. The default
1.384 + ** is -1.
1.385 + ** xtype The class of the conversion.
1.386 + ** infop Pointer to the appropriate info struct.
1.387 + */
1.388 + switch( xtype ){
1.389 + case etPOINTER:
1.390 + flag_longlong = sizeof(char*)==sizeof(i64);
1.391 + flag_long = sizeof(char*)==sizeof(long int);
1.392 + /* Fall through into the next case */
1.393 + case etORDINAL:
1.394 + case etRADIX:
1.395 + if( infop->flags & FLAG_SIGNED ){
1.396 + i64 v;
1.397 + if( flag_longlong ) v = va_arg(ap,i64);
1.398 + else if( flag_long ) v = va_arg(ap,long int);
1.399 + else v = va_arg(ap,int);
1.400 + if( v<0 ){
1.401 + longvalue = -v;
1.402 + prefix = '-';
1.403 + }else{
1.404 + longvalue = v;
1.405 + if( flag_plussign ) prefix = '+';
1.406 + else if( flag_blanksign ) prefix = ' ';
1.407 + else prefix = 0;
1.408 + }
1.409 + }else{
1.410 + if( flag_longlong ) longvalue = va_arg(ap,u64);
1.411 + else if( flag_long ) longvalue = va_arg(ap,unsigned long int);
1.412 + else longvalue = va_arg(ap,unsigned int);
1.413 + prefix = 0;
1.414 + }
1.415 + if( longvalue==0 ) flag_alternateform = 0;
1.416 + if( flag_zeropad && precision<width-(prefix!=0) ){
1.417 + precision = width-(prefix!=0);
1.418 + }
1.419 + bufpt = &buf[etBUFSIZE-1];
1.420 + if( xtype==etORDINAL ){
1.421 + static const char zOrd[] = "thstndrd";
1.422 + int x = longvalue % 10;
1.423 + if( x>=4 || (longvalue/10)%10==1 ){
1.424 + x = 0;
1.425 + }
1.426 + buf[etBUFSIZE-3] = zOrd[x*2];
1.427 + buf[etBUFSIZE-2] = zOrd[x*2+1];
1.428 + bufpt -= 2;
1.429 + }
1.430 + {
1.431 + register const char *cset; /* Use registers for speed */
1.432 + register int base;
1.433 + cset = &aDigits[infop->charset];
1.434 + base = infop->base;
1.435 + do{ /* Convert to ascii */
1.436 + *(--bufpt) = cset[longvalue%base];
1.437 + longvalue = longvalue/base;
1.438 + }while( longvalue>0 );
1.439 + }
1.440 + length = &buf[etBUFSIZE-1]-bufpt;
1.441 + for(idx=precision-length; idx>0; idx--){
1.442 + *(--bufpt) = '0'; /* Zero pad */
1.443 + }
1.444 + if( prefix ) *(--bufpt) = prefix; /* Add sign */
1.445 + if( flag_alternateform && infop->prefix ){ /* Add "0" or "0x" */
1.446 + const char *pre;
1.447 + char x;
1.448 + pre = &aPrefix[infop->prefix];
1.449 + for(; (x=(*pre))!=0; pre++) *(--bufpt) = x;
1.450 + }
1.451 + length = &buf[etBUFSIZE-1]-bufpt;
1.452 + break;
1.453 + case etFLOAT:
1.454 + case etEXP:
1.455 + case etGENERIC:
1.456 + realvalue = va_arg(ap,double);
1.457 +#ifndef SQLITE_OMIT_FLOATING_POINT
1.458 + if( precision<0 ) precision = 6; /* Set default precision */
1.459 + if( precision>etBUFSIZE/2-10 ) precision = etBUFSIZE/2-10;
1.460 + if( realvalue<0.0 ){
1.461 + realvalue = -realvalue;
1.462 + prefix = '-';
1.463 + }else{
1.464 + if( flag_plussign ) prefix = '+';
1.465 + else if( flag_blanksign ) prefix = ' ';
1.466 + else prefix = 0;
1.467 + }
1.468 + if( xtype==etGENERIC && precision>0 ) precision--;
1.469 +#if 0
1.470 + /* Rounding works like BSD when the constant 0.4999 is used. Wierd! */
1.471 + for(idx=precision, rounder=0.4999; idx>0; idx--, rounder*=0.1);
1.472 +#else
1.473 + /* It makes more sense to use 0.5 */
1.474 + for(idx=precision, rounder=0.5; idx>0; idx--, rounder*=0.1){}
1.475 +#endif
1.476 + if( xtype==etFLOAT ) realvalue += rounder;
1.477 + /* Normalize realvalue to within 10.0 > realvalue >= 1.0 */
1.478 + exp = 0;
1.479 + if( sqlite3IsNaN(realvalue) ){
1.480 + bufpt = "NaN";
1.481 + length = 3;
1.482 + break;
1.483 + }
1.484 + if( realvalue>0.0 ){
1.485 + while( realvalue>=1e32 && exp<=350 ){ realvalue *= 1e-32; exp+=32; }
1.486 + while( realvalue>=1e8 && exp<=350 ){ realvalue *= 1e-8; exp+=8; }
1.487 + while( realvalue>=10.0 && exp<=350 ){ realvalue *= 0.1; exp++; }
1.488 + while( realvalue<1e-8 ){ realvalue *= 1e8; exp-=8; }
1.489 + while( realvalue<1.0 ){ realvalue *= 10.0; exp--; }
1.490 + if( exp>350 ){
1.491 + if( prefix=='-' ){
1.492 + bufpt = "-Inf";
1.493 + }else if( prefix=='+' ){
1.494 + bufpt = "+Inf";
1.495 + }else{
1.496 + bufpt = "Inf";
1.497 + }
1.498 + length = strlen(bufpt);
1.499 + break;
1.500 + }
1.501 + }
1.502 + bufpt = buf;
1.503 + /*
1.504 + ** If the field type is etGENERIC, then convert to either etEXP
1.505 + ** or etFLOAT, as appropriate.
1.506 + */
1.507 + flag_exp = xtype==etEXP;
1.508 + if( xtype!=etFLOAT ){
1.509 + realvalue += rounder;
1.510 + if( realvalue>=10.0 ){ realvalue *= 0.1; exp++; }
1.511 + }
1.512 + if( xtype==etGENERIC ){
1.513 + flag_rtz = !flag_alternateform;
1.514 + if( exp<-4 || exp>precision ){
1.515 + xtype = etEXP;
1.516 + }else{
1.517 + precision = precision - exp;
1.518 + xtype = etFLOAT;
1.519 + }
1.520 + }else{
1.521 + flag_rtz = 0;
1.522 + }
1.523 + if( xtype==etEXP ){
1.524 + e2 = 0;
1.525 + }else{
1.526 + e2 = exp;
1.527 + }
1.528 + nsd = 0;
1.529 + flag_dp = (precision>0) | flag_alternateform | flag_altform2;
1.530 + /* The sign in front of the number */
1.531 + if( prefix ){
1.532 + *(bufpt++) = prefix;
1.533 + }
1.534 + /* Digits prior to the decimal point */
1.535 + if( e2<0 ){
1.536 + *(bufpt++) = '0';
1.537 + }else{
1.538 + for(; e2>=0; e2--){
1.539 + *(bufpt++) = et_getdigit(&realvalue,&nsd);
1.540 + }
1.541 + }
1.542 + /* The decimal point */
1.543 + if( flag_dp ){
1.544 + *(bufpt++) = '.';
1.545 + }
1.546 + /* "0" digits after the decimal point but before the first
1.547 + ** significant digit of the number */
1.548 + for(e2++; e2<0; precision--, e2++){
1.549 + assert( precision>0 );
1.550 + *(bufpt++) = '0';
1.551 + }
1.552 + /* Significant digits after the decimal point */
1.553 + while( (precision--)>0 ){
1.554 + *(bufpt++) = et_getdigit(&realvalue,&nsd);
1.555 + }
1.556 + /* Remove trailing zeros and the "." if no digits follow the "." */
1.557 + if( flag_rtz && flag_dp ){
1.558 + while( bufpt[-1]=='0' ) *(--bufpt) = 0;
1.559 + assert( bufpt>buf );
1.560 + if( bufpt[-1]=='.' ){
1.561 + if( flag_altform2 ){
1.562 + *(bufpt++) = '0';
1.563 + }else{
1.564 + *(--bufpt) = 0;
1.565 + }
1.566 + }
1.567 + }
1.568 + /* Add the "eNNN" suffix */
1.569 + if( flag_exp || xtype==etEXP ){
1.570 + *(bufpt++) = aDigits[infop->charset];
1.571 + if( exp<0 ){
1.572 + *(bufpt++) = '-'; exp = -exp;
1.573 + }else{
1.574 + *(bufpt++) = '+';
1.575 + }
1.576 + if( exp>=100 ){
1.577 + *(bufpt++) = (exp/100)+'0'; /* 100's digit */
1.578 + exp %= 100;
1.579 + }
1.580 + *(bufpt++) = exp/10+'0'; /* 10's digit */
1.581 + *(bufpt++) = exp%10+'0'; /* 1's digit */
1.582 + }
1.583 + *bufpt = 0;
1.584 +
1.585 + /* The converted number is in buf[] and zero terminated. Output it.
1.586 + ** Note that the number is in the usual order, not reversed as with
1.587 + ** integer conversions. */
1.588 + length = bufpt-buf;
1.589 + bufpt = buf;
1.590 +
1.591 + /* Special case: Add leading zeros if the flag_zeropad flag is
1.592 + ** set and we are not left justified */
1.593 + if( flag_zeropad && !flag_leftjustify && length < width){
1.594 + int i;
1.595 + int nPad = width - length;
1.596 + for(i=width; i>=nPad; i--){
1.597 + bufpt[i] = bufpt[i-nPad];
1.598 + }
1.599 + i = prefix!=0;
1.600 + while( nPad-- ) bufpt[i++] = '0';
1.601 + length = width;
1.602 + }
1.603 +#endif
1.604 + break;
1.605 + case etSIZE:
1.606 + *(va_arg(ap,int*)) = pAccum->nChar;
1.607 + length = width = 0;
1.608 + break;
1.609 + case etPERCENT:
1.610 + buf[0] = '%';
1.611 + bufpt = buf;
1.612 + length = 1;
1.613 + break;
1.614 + case etCHARX:
1.615 + c = buf[0] = va_arg(ap,int);
1.616 + if( precision>=0 ){
1.617 + for(idx=1; idx<precision; idx++) buf[idx] = c;
1.618 + length = precision;
1.619 + }else{
1.620 + length =1;
1.621 + }
1.622 + bufpt = buf;
1.623 + break;
1.624 + case etSTRING:
1.625 + case etDYNSTRING:
1.626 + bufpt = va_arg(ap,char*);
1.627 + if( bufpt==0 ){
1.628 + bufpt = "";
1.629 + }else if( xtype==etDYNSTRING ){
1.630 + zExtra = bufpt;
1.631 + }
1.632 + if( precision>=0 ){
1.633 + for(length=0; length<precision && bufpt[length]; length++){}
1.634 + }else{
1.635 + length = strlen(bufpt);
1.636 + }
1.637 + break;
1.638 + case etSQLESCAPE:
1.639 + case etSQLESCAPE2:
1.640 + case etSQLESCAPE3: {
1.641 + int i, j, n, ch, isnull;
1.642 + int needQuote;
1.643 + char q = ((xtype==etSQLESCAPE3)?'"':'\''); /* Quote character */
1.644 + char *escarg = va_arg(ap,char*);
1.645 + isnull = escarg==0;
1.646 + if( isnull ) escarg = (xtype==etSQLESCAPE2 ? "NULL" : "(NULL)");
1.647 + for(i=n=0; (ch=escarg[i])!=0; i++){
1.648 + if( ch==q ) n++;
1.649 + }
1.650 + needQuote = !isnull && xtype==etSQLESCAPE2;
1.651 + n += i + 1 + needQuote*2;
1.652 + if( n>etBUFSIZE ){
1.653 + bufpt = zExtra = sqlite3Malloc( n );
1.654 + if( bufpt==0 ) return;
1.655 + }else{
1.656 + bufpt = buf;
1.657 + }
1.658 + j = 0;
1.659 + if( needQuote ) bufpt[j++] = q;
1.660 + for(i=0; (ch=escarg[i])!=0; i++){
1.661 + bufpt[j++] = ch;
1.662 + if( ch==q ) bufpt[j++] = ch;
1.663 + }
1.664 + if( needQuote ) bufpt[j++] = q;
1.665 + bufpt[j] = 0;
1.666 + length = j;
1.667 + /* The precision is ignored on %q and %Q */
1.668 + /* if( precision>=0 && precision<length ) length = precision; */
1.669 + break;
1.670 + }
1.671 + case etTOKEN: {
1.672 + Token *pToken = va_arg(ap, Token*);
1.673 + if( pToken ){
1.674 + sqlite3StrAccumAppend(pAccum, (const char*)pToken->z, pToken->n);
1.675 + }
1.676 + length = width = 0;
1.677 + break;
1.678 + }
1.679 + case etSRCLIST: {
1.680 + SrcList *pSrc = va_arg(ap, SrcList*);
1.681 + int k = va_arg(ap, int);
1.682 + struct SrcList_item *pItem = &pSrc->a[k];
1.683 + assert( k>=0 && k<pSrc->nSrc );
1.684 + if( pItem->zDatabase ){
1.685 + sqlite3StrAccumAppend(pAccum, pItem->zDatabase, -1);
1.686 + sqlite3StrAccumAppend(pAccum, ".", 1);
1.687 + }
1.688 + sqlite3StrAccumAppend(pAccum, pItem->zName, -1);
1.689 + length = width = 0;
1.690 + break;
1.691 + }
1.692 + }/* End switch over the format type */
1.693 + /*
1.694 + ** The text of the conversion is pointed to by "bufpt" and is
1.695 + ** "length" characters long. The field width is "width". Do
1.696 + ** the output.
1.697 + */
1.698 + if( !flag_leftjustify ){
1.699 + register int nspace;
1.700 + nspace = width-length;
1.701 + if( nspace>0 ){
1.702 + appendSpace(pAccum, nspace);
1.703 + }
1.704 + }
1.705 + if( length>0 ){
1.706 + sqlite3StrAccumAppend(pAccum, bufpt, length);
1.707 + }
1.708 + if( flag_leftjustify ){
1.709 + register int nspace;
1.710 + nspace = width-length;
1.711 + if( nspace>0 ){
1.712 + appendSpace(pAccum, nspace);
1.713 + }
1.714 + }
1.715 + if( zExtra ){
1.716 + sqlite3_free(zExtra);
1.717 + }
1.718 + }/* End for loop over the format string */
1.719 +} /* End of function */
1.720 +
1.721 +/*
1.722 +** Append N bytes of text from z to the StrAccum object.
1.723 +*/
1.724 +void sqlite3StrAccumAppend(StrAccum *p, const char *z, int N){
1.725 + if( p->tooBig | p->mallocFailed ){
1.726 + return;
1.727 + }
1.728 + if( N<0 ){
1.729 + N = strlen(z);
1.730 + }
1.731 + if( N==0 ){
1.732 + return;
1.733 + }
1.734 + if( p->nChar+N >= p->nAlloc ){
1.735 + char *zNew;
1.736 + if( !p->useMalloc ){
1.737 + p->tooBig = 1;
1.738 + N = p->nAlloc - p->nChar - 1;
1.739 + if( N<=0 ){
1.740 + return;
1.741 + }
1.742 + }else{
1.743 + i64 szNew = p->nChar;
1.744 + szNew += N + 1;
1.745 + if( szNew > p->mxAlloc ){
1.746 + sqlite3StrAccumReset(p);
1.747 + p->tooBig = 1;
1.748 + return;
1.749 + }else{
1.750 + p->nAlloc = szNew;
1.751 + }
1.752 + zNew = sqlite3DbMallocRaw(p->db, p->nAlloc );
1.753 + if( zNew ){
1.754 + memcpy(zNew, p->zText, p->nChar);
1.755 + sqlite3StrAccumReset(p);
1.756 + p->zText = zNew;
1.757 + }else{
1.758 + p->mallocFailed = 1;
1.759 + sqlite3StrAccumReset(p);
1.760 + return;
1.761 + }
1.762 + }
1.763 + }
1.764 + memcpy(&p->zText[p->nChar], z, N);
1.765 + p->nChar += N;
1.766 +}
1.767 +
1.768 +/*
1.769 +** Finish off a string by making sure it is zero-terminated.
1.770 +** Return a pointer to the resulting string. Return a NULL
1.771 +** pointer if any kind of error was encountered.
1.772 +*/
1.773 +char *sqlite3StrAccumFinish(StrAccum *p){
1.774 + if( p->zText ){
1.775 + p->zText[p->nChar] = 0;
1.776 + if( p->useMalloc && p->zText==p->zBase ){
1.777 + p->zText = sqlite3DbMallocRaw(p->db, p->nChar+1 );
1.778 + if( p->zText ){
1.779 + memcpy(p->zText, p->zBase, p->nChar+1);
1.780 + }else{
1.781 + p->mallocFailed = 1;
1.782 + }
1.783 + }
1.784 + }
1.785 + return p->zText;
1.786 +}
1.787 +
1.788 +/*
1.789 +** Reset an StrAccum string. Reclaim all malloced memory.
1.790 +*/
1.791 +void sqlite3StrAccumReset(StrAccum *p){
1.792 + if( p->zText!=p->zBase ){
1.793 + sqlite3DbFree(p->db, p->zText);
1.794 + }
1.795 + p->zText = 0;
1.796 +}
1.797 +
1.798 +/*
1.799 +** Initialize a string accumulator
1.800 +*/
1.801 +void sqlite3StrAccumInit(StrAccum *p, char *zBase, int n, int mx){
1.802 + p->zText = p->zBase = zBase;
1.803 + p->db = 0;
1.804 + p->nChar = 0;
1.805 + p->nAlloc = n;
1.806 + p->mxAlloc = mx;
1.807 + p->useMalloc = 1;
1.808 + p->tooBig = 0;
1.809 + p->mallocFailed = 0;
1.810 +}
1.811 +
1.812 +/*
1.813 +** Print into memory obtained from sqliteMalloc(). Use the internal
1.814 +** %-conversion extensions.
1.815 +*/
1.816 +char *sqlite3VMPrintf(sqlite3 *db, const char *zFormat, va_list ap){
1.817 + char *z;
1.818 + char zBase[SQLITE_PRINT_BUF_SIZE];
1.819 + StrAccum acc;
1.820 + sqlite3StrAccumInit(&acc, zBase, sizeof(zBase),
1.821 + db ? db->aLimit[SQLITE_LIMIT_LENGTH] : SQLITE_MAX_LENGTH);
1.822 + acc.db = db;
1.823 + sqlite3VXPrintf(&acc, 1, zFormat, ap);
1.824 + z = sqlite3StrAccumFinish(&acc);
1.825 + if( acc.mallocFailed && db ){
1.826 + db->mallocFailed = 1;
1.827 + }
1.828 + return z;
1.829 +}
1.830 +
1.831 +/*
1.832 +** Print into memory obtained from sqliteMalloc(). Use the internal
1.833 +** %-conversion extensions.
1.834 +*/
1.835 +char *sqlite3MPrintf(sqlite3 *db, const char *zFormat, ...){
1.836 + va_list ap;
1.837 + char *z;
1.838 + va_start(ap, zFormat);
1.839 + z = sqlite3VMPrintf(db, zFormat, ap);
1.840 + va_end(ap);
1.841 + return z;
1.842 +}
1.843 +
1.844 +/*
1.845 +** Like sqlite3MPrintf(), but call sqlite3DbFree() on zStr after formatting
1.846 +** the string and before returnning. This routine is intended to be used
1.847 +** to modify an existing string. For example:
1.848 +**
1.849 +** x = sqlite3MPrintf(db, x, "prefix %s suffix", x);
1.850 +**
1.851 +*/
1.852 +char *sqlite3MAppendf(sqlite3 *db, char *zStr, const char *zFormat, ...){
1.853 + va_list ap;
1.854 + char *z;
1.855 + va_start(ap, zFormat);
1.856 + z = sqlite3VMPrintf(db, zFormat, ap);
1.857 + va_end(ap);
1.858 + sqlite3DbFree(db, zStr);
1.859 + return z;
1.860 +}
1.861 +
1.862 +/*
1.863 +** Print into memory obtained from sqlite3_malloc(). Omit the internal
1.864 +** %-conversion extensions.
1.865 +*/
1.866 +char *sqlite3_vmprintf(const char *zFormat, va_list ap){
1.867 + char *z;
1.868 + char zBase[SQLITE_PRINT_BUF_SIZE];
1.869 + StrAccum acc;
1.870 +#ifndef SQLITE_OMIT_AUTOINIT
1.871 + if( sqlite3_initialize() ) return 0;
1.872 +#endif
1.873 + sqlite3StrAccumInit(&acc, zBase, sizeof(zBase), SQLITE_MAX_LENGTH);
1.874 + sqlite3VXPrintf(&acc, 0, zFormat, ap);
1.875 + z = sqlite3StrAccumFinish(&acc);
1.876 + return z;
1.877 +}
1.878 +
1.879 +/*
1.880 +** Print into memory obtained from sqlite3_malloc()(). Omit the internal
1.881 +** %-conversion extensions.
1.882 +*/
1.883 +char *sqlite3_mprintf(const char *zFormat, ...){
1.884 + va_list ap;
1.885 + char *z;
1.886 +#ifndef SQLITE_OMIT_AUTOINIT
1.887 + if( sqlite3_initialize() ) return 0;
1.888 +#endif
1.889 + va_start(ap, zFormat);
1.890 + z = sqlite3_vmprintf(zFormat, ap);
1.891 + va_end(ap);
1.892 + return z;
1.893 +}
1.894 +
1.895 +/*
1.896 +** sqlite3_snprintf() works like snprintf() except that it ignores the
1.897 +** current locale settings. This is important for SQLite because we
1.898 +** are not able to use a "," as the decimal point in place of "." as
1.899 +** specified by some locales.
1.900 +*/
1.901 +char *sqlite3_snprintf(int n, char *zBuf, const char *zFormat, ...){
1.902 + char *z;
1.903 + va_list ap;
1.904 + StrAccum acc;
1.905 +
1.906 + if( n<=0 ){
1.907 + return zBuf;
1.908 + }
1.909 + sqlite3StrAccumInit(&acc, zBuf, n, 0);
1.910 + acc.useMalloc = 0;
1.911 + va_start(ap,zFormat);
1.912 + sqlite3VXPrintf(&acc, 0, zFormat, ap);
1.913 + va_end(ap);
1.914 + z = sqlite3StrAccumFinish(&acc);
1.915 + return z;
1.916 +}
1.917 +
1.918 +#if defined(SQLITE_DEBUG)
1.919 +/*
1.920 +** A version of printf() that understands %lld. Used for debugging.
1.921 +** The printf() built into some versions of windows does not understand %lld
1.922 +** and segfaults if you give it a long long int.
1.923 +*/
1.924 +void sqlite3DebugPrintf(const char *zFormat, ...){
1.925 + va_list ap;
1.926 + StrAccum acc;
1.927 + char zBuf[500];
1.928 + sqlite3StrAccumInit(&acc, zBuf, sizeof(zBuf), 0);
1.929 + acc.useMalloc = 0;
1.930 + va_start(ap,zFormat);
1.931 + sqlite3VXPrintf(&acc, 0, zFormat, ap);
1.932 + va_end(ap);
1.933 + sqlite3StrAccumFinish(&acc);
1.934 + fprintf(stdout,"%s", zBuf);
1.935 + fflush(stdout);
1.936 +}
1.937 +#endif