0000: 2f 2a 0a 2a 2a 20 43 6f 70 79 72 69 67 68 74 20 /*.** Copyright
0010: 28 63 29 20 32 30 30 36 20 44 2e 20 52 69 63 68 (c) 2006 D. Rich
0020: 61 72 64 20 48 69 70 70 0a 2a 2a 0a 2a 2a 20 54 ard Hipp.**.** T
0030: 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 his program is f
0040: 72 65 65 20 73 6f 66 74 77 61 72 65 3b 20 79 6f ree software; yo
0050: 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 u can redistribu
0060: 74 65 20 69 74 20 61 6e 64 2f 6f 72 0a 2a 2a 20 te it and/or.**
0070: 6d 6f 64 69 66 79 20 69 74 20 75 6e 64 65 72 20 modify it under
0080: 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 the terms of the
0090: 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 GNU General Pub
00a0: 6c 69 63 0a 2a 2a 20 4c 69 63 65 6e 73 65 20 76 lic.** License v
00b0: 65 72 73 69 6f 6e 20 32 20 61 73 20 70 75 62 6c ersion 2 as publ
00c0: 69 73 68 65 64 20 62 79 20 74 68 65 20 46 72 65 ished by the Fre
00d0: 65 20 53 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 e Software Found
00e0: 61 74 69 6f 6e 2e 0a 2a 2a 0a 2a 2a 20 54 68 69 ation..**.** Thi
00f0: 73 20 70 72 6f 67 72 61 6d 20 69 73 20 64 69 73 s program is dis
0100: 74 72 69 62 75 74 65 64 20 69 6e 20 74 68 65 20 tributed in the
0110: 68 6f 70 65 20 74 68 61 74 20 69 74 20 77 69 6c hope that it wil
0120: 6c 20 62 65 20 75 73 65 66 75 6c 2c 0a 2a 2a 20 l be useful,.**
0130: 62 75 74 20 57 49 54 48 4f 55 54 20 41 4e 59 20 but WITHOUT ANY
0140: 57 41 52 52 41 4e 54 59 3b 20 77 69 74 68 6f 75 WARRANTY; withou
0150: 74 20 65 76 65 6e 20 74 68 65 20 69 6d 70 6c 69 t even the impli
0160: 65 64 20 77 61 72 72 61 6e 74 79 20 6f 66 0a 2a ed warranty of.*
0170: 2a 20 4d 45 52 43 48 41 4e 54 41 42 49 4c 49 54 * MERCHANTABILIT
0180: 59 20 6f 72 20 46 49 54 4e 45 53 53 20 46 4f 52 Y or FITNESS FOR
0190: 20 41 20 50 41 52 54 49 43 55 4c 41 52 20 50 55 A PARTICULAR PU
01a0: 52 50 4f 53 45 2e 20 20 53 65 65 20 74 68 65 20 RPOSE. See the
01b0: 47 4e 55 0a 2a 2a 20 47 65 6e 65 72 61 6c 20 50 GNU.** General P
01c0: 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 66 6f ublic License fo
01d0: 72 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a r more details..
01e0: 2a 2a 20 0a 2a 2a 20 59 6f 75 20 73 68 6f 75 6c ** .** You shoul
01f0: 64 20 68 61 76 65 20 72 65 63 65 69 76 65 64 20 d have received
0200: 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 47 4e a copy of the GN
0210: 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 U General Public
0220: 0a 2a 2a 20 4c 69 63 65 6e 73 65 20 61 6c 6f 6e .** License alon
0230: 67 20 77 69 74 68 20 74 68 69 73 20 6c 69 62 72 g with this libr
0240: 61 72 79 3b 20 69 66 20 6e 6f 74 2c 20 77 72 69 ary; if not, wri
0250: 74 65 20 74 6f 20 74 68 65 0a 2a 2a 20 46 72 65 te to the.** Fre
0260: 65 20 53 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 e Software Found
0270: 61 74 69 6f 6e 2c 20 49 6e 63 2e 2c 20 35 39 20 ation, Inc., 59
0280: 54 65 6d 70 6c 65 20 50 6c 61 63 65 20 2d 20 53 Temple Place - S
0290: 75 69 74 65 20 33 33 30 2c 0a 2a 2a 20 42 6f 73 uite 330,.** Bos
02a0: 74 6f 6e 2c 20 4d 41 20 20 30 32 31 31 31 2d 31 ton, MA 02111-1
02b0: 33 30 37 2c 20 55 53 41 2e 0a 2a 2a 0a 2a 2a 20 307, USA..**.**
02c0: 41 75 74 68 6f 72 20 63 6f 6e 74 61 63 74 20 69 Author contact i
02d0: 6e 66 6f 72 6d 61 74 69 6f 6e 3a 0a 2a 2a 20 20 nformation:.**
02e0: 20 64 72 68 40 68 77 61 63 69 2e 63 6f 6d 0a 2a drh@hwaci.com.*
02f0: 2a 20 20 20 68 74 74 70 3a 2f 2f 77 77 77 2e 68 * http://www.h
0300: 77 61 63 69 2e 63 6f 6d 2f 64 72 68 2f 0a 2a 2a waci.com/drh/.**
0310: 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a .***************
0320: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0330: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0340: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0350: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0360: 0a 2a 2a 0a 2a 2a 20 41 6e 20 69 6d 70 6c 65 6d .**.** An implem
0370: 65 6e 74 61 74 69 6f 6e 20 6f 66 20 70 72 69 6e entation of prin
0380: 74 66 28 29 20 77 69 74 68 20 65 78 74 72 61 20 tf() with extra
0390: 63 6f 6e 76 65 72 73 69 6f 6e 20 66 69 65 6c 64 conversion field
03a0: 73 2e 0a 2a 2f 0a 23 69 6e 63 6c 75 64 65 20 22 s..*/.#include "
03b0: 63 6f 6e 66 69 67 2e 68 22 0a 23 69 6e 63 6c 75 config.h".#inclu
03c0: 64 65 20 22 70 72 69 6e 74 66 2e 68 22 0a 0a 2f de "printf.h"../
03d0: 2a 0a 2a 2a 20 43 6f 6e 76 65 72 73 69 6f 6e 20 *.** Conversion
03e0: 74 79 70 65 73 20 66 61 6c 6c 20 69 6e 74 6f 20 types fall into
03f0: 76 61 72 69 6f 75 73 20 63 61 74 65 67 6f 72 69 various categori
0400: 65 73 20 61 73 20 64 65 66 69 6e 65 64 20 62 79 es as defined by
0410: 20 74 68 65 0a 2a 2a 20 66 6f 6c 6c 6f 77 69 6e the.** followin
0420: 67 20 65 6e 75 6d 65 72 61 74 69 6f 6e 2e 0a 2a g enumeration..*
0430: 2f 0a 23 64 65 66 69 6e 65 20 65 74 52 41 44 49 /.#define etRADI
0440: 58 20 20 20 20 20 20 20 31 20 2f 2a 20 49 6e 74 X 1 /* Int
0450: 65 67 65 72 20 74 79 70 65 73 2e 20 20 25 64 2c eger types. %d,
0460: 20 25 78 2c 20 25 6f 2c 20 61 6e 64 20 73 6f 20 %x, %o, and so
0470: 66 6f 72 74 68 20 2a 2f 0a 23 64 65 66 69 6e 65 forth */.#define
0480: 20 65 74 46 4c 4f 41 54 20 20 20 20 20 20 20 32 etFLOAT 2
0490: 20 2f 2a 20 46 6c 6f 61 74 69 6e 67 20 70 6f 69 /* Floating poi
04a0: 6e 74 2e 20 20 25 66 20 2a 2f 0a 23 64 65 66 69 nt. %f */.#defi
04b0: 6e 65 20 65 74 45 58 50 20 20 20 20 20 20 20 20 ne etEXP
04c0: 20 33 20 2f 2a 20 45 78 70 6f 6e 65 6e 74 69 6f 3 /* Exponentio
04d0: 6e 61 6c 20 6e 6f 74 61 74 69 6f 6e 2e 20 25 65 nal notation. %e
04e0: 20 61 6e 64 20 25 45 20 2a 2f 0a 23 64 65 66 69 and %E */.#defi
04f0: 6e 65 20 65 74 47 45 4e 45 52 49 43 20 20 20 20 ne etGENERIC
0500: 20 34 20 2f 2a 20 46 6c 6f 61 74 69 6e 67 20 6f 4 /* Floating o
0510: 72 20 65 78 70 6f 6e 65 6e 74 69 61 6c 2c 20 64 r exponential, d
0520: 65 70 65 6e 64 69 6e 67 20 6f 6e 20 65 78 70 6f epending on expo
0530: 6e 65 6e 74 2e 20 25 67 20 2a 2f 0a 23 64 65 66 nent. %g */.#def
0540: 69 6e 65 20 65 74 53 49 5a 45 20 20 20 20 20 20 ine etSIZE
0550: 20 20 35 20 2f 2a 20 52 65 74 75 72 6e 20 6e 75 5 /* Return nu
0560: 6d 62 65 72 20 6f 66 20 63 68 61 72 61 63 74 65 mber of characte
0570: 72 73 20 70 72 6f 63 65 73 73 65 64 20 73 6f 20 rs processed so
0580: 66 61 72 2e 20 25 6e 20 2a 2f 0a 23 64 65 66 69 far. %n */.#defi
0590: 6e 65 20 65 74 53 54 52 49 4e 47 20 20 20 20 20 ne etSTRING
05a0: 20 36 20 2f 2a 20 53 74 72 69 6e 67 73 2e 20 25 6 /* Strings. %
05b0: 73 20 2a 2f 0a 23 64 65 66 69 6e 65 20 65 74 44 s */.#define etD
05c0: 59 4e 53 54 52 49 4e 47 20 20 20 37 20 2f 2a 20 YNSTRING 7 /*
05d0: 44 79 6e 61 6d 69 63 61 6c 6c 79 20 61 6c 6c 6f Dynamically allo
05e0: 63 61 74 65 64 20 73 74 72 69 6e 67 73 2e 20 25 cated strings. %
05f0: 7a 20 2a 2f 0a 23 64 65 66 69 6e 65 20 65 74 50 z */.#define etP
0600: 45 52 43 45 4e 54 20 20 20 20 20 38 20 2f 2a 20 ERCENT 8 /*
0610: 50 65 72 63 65 6e 74 20 73 79 6d 62 6f 6c 2e 20 Percent symbol.
0620: 25 25 20 2a 2f 0a 23 64 65 66 69 6e 65 20 65 74 %% */.#define et
0630: 43 48 41 52 58 20 20 20 20 20 20 20 39 20 2f 2a CHARX 9 /*
0640: 20 43 68 61 72 61 63 74 65 72 73 2e 20 25 63 20 Characters. %c
0650: 2a 2f 0a 23 64 65 66 69 6e 65 20 65 74 45 52 52 */.#define etERR
0660: 4f 52 20 20 20 20 20 20 31 30 20 2f 2a 20 55 73 OR 10 /* Us
0670: 65 64 20 74 6f 20 69 6e 64 69 63 61 74 65 20 6e ed to indicate n
0680: 6f 20 73 75 63 68 20 63 6f 6e 76 65 72 73 69 6f o such conversio
0690: 6e 20 74 79 70 65 20 2a 2f 0a 2f 2a 20 54 68 65 n type */./* The
06a0: 20 72 65 73 74 20 61 72 65 20 65 78 74 65 6e 73 rest are extens
06b0: 69 6f 6e 73 2c 20 6e 6f 74 20 6e 6f 72 6d 61 6c ions, not normal
06c0: 6c 79 20 66 6f 75 6e 64 20 69 6e 20 70 72 69 6e ly found in prin
06d0: 74 66 28 29 20 2a 2f 0a 23 64 65 66 69 6e 65 20 tf() */.#define
06e0: 65 74 42 4c 4f 42 20 20 20 20 20 20 20 31 31 20 etBLOB 11
06f0: 2f 2a 20 42 6c 6f 62 20 6f 62 6a 65 63 74 73 2e /* Blob objects.
0700: 20 20 25 62 20 2a 2f 0a 23 64 65 66 69 6e 65 20 %b */.#define
0710: 65 74 42 4c 4f 42 53 51 4c 20 20 20 20 31 32 20 etBLOBSQL 12
0720: 2f 2a 20 42 6c 6f 62 20 6f 62 6a 65 63 74 73 20 /* Blob objects
0730: 71 75 6f 74 65 64 20 66 6f 72 20 53 51 4c 2e 20 quoted for SQL.
0740: 20 25 42 20 2a 2f 0a 23 64 65 66 69 6e 65 20 65 %B */.#define e
0750: 74 53 51 4c 45 53 43 41 50 45 20 20 31 33 20 2f tSQLESCAPE 13 /
0760: 2a 20 53 74 72 69 6e 67 73 20 77 69 74 68 20 27 * Strings with '
0770: 5c 27 27 20 64 6f 75 62 6c 65 64 2e 20 20 25 71 \'' doubled. %q
0780: 20 2a 2f 0a 23 64 65 66 69 6e 65 20 65 74 53 51 */.#define etSQ
0790: 4c 45 53 43 41 50 45 32 20 31 34 20 2f 2a 20 53 LESCAPE2 14 /* S
07a0: 74 72 69 6e 67 73 20 77 69 74 68 20 27 5c 27 27 trings with '\''
07b0: 20 64 6f 75 62 6c 65 64 20 61 6e 64 20 65 6e 63 doubled and enc
07c0: 6c 6f 73 65 64 20 69 6e 20 27 27 2c 0a 20 20 20 losed in '',.
07d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
07e0: 20 20 20 20 20 20 20 4e 55 4c 4c 20 70 6f 69 6e NULL poin
07f0: 74 65 72 73 20 72 65 70 6c 61 63 65 64 20 62 79 ters replaced by
0800: 20 53 51 4c 20 4e 55 4c 4c 2e 20 20 25 51 20 2a SQL NULL. %Q *
0810: 2f 0a 23 64 65 66 69 6e 65 20 65 74 50 4f 49 4e /.#define etPOIN
0820: 54 45 52 20 20 20 20 31 35 20 2f 2a 20 54 68 65 TER 15 /* The
0830: 20 25 70 20 63 6f 6e 76 65 72 73 69 6f 6e 20 2a %p conversion *
0840: 2f 0a 23 64 65 66 69 6e 65 20 65 74 48 54 4d 4c /.#define etHTML
0850: 49 5a 45 20 20 20 20 31 36 20 2f 2a 20 4d 61 6b IZE 16 /* Mak
0860: 65 20 74 65 78 74 20 73 61 66 65 20 66 6f 72 20 e text safe for
0870: 48 54 4d 4c 20 2a 2f 0a 23 64 65 66 69 6e 65 20 HTML */.#define
0880: 65 74 48 54 54 50 49 5a 45 20 20 20 20 31 37 20 etHTTPIZE 17
0890: 2f 2a 20 4d 61 6b 65 20 74 65 78 74 20 73 61 66 /* Make text saf
08a0: 65 20 66 6f 72 20 48 54 54 50 2e 20 20 22 2f 22 e for HTTP. "/"
08b0: 20 65 6e 63 6f 64 65 64 20 61 73 20 25 32 66 20 encoded as %2f
08c0: 2a 2f 0a 23 64 65 66 69 6e 65 20 65 74 55 52 4c */.#define etURL
08d0: 49 5a 45 20 20 20 20 20 31 38 20 2f 2a 20 4d 61 IZE 18 /* Ma
08e0: 6b 65 20 74 65 78 74 20 73 61 66 65 20 66 6f 72 ke text safe for
08f0: 20 48 54 54 50 2e 20 20 22 2f 22 20 6e 6f 74 20 HTTP. "/" not
0900: 65 6e 63 6f 64 65 64 20 2a 2f 0a 23 64 65 66 69 encoded */.#defi
0910: 6e 65 20 65 74 46 4f 53 53 49 4c 49 5a 45 20 20 ne etFOSSILIZE
0920: 31 39 20 2f 2a 20 54 68 65 20 66 6f 73 73 69 6c 19 /* The fossil
0930: 20 68 65 61 64 65 72 20 65 6e 63 6f 64 69 6e 67 header encoding
0940: 20 66 6f 72 6d 61 74 2e 20 2a 2f 0a 0a 0a 2f 2a format. */.../*
0950: 0a 2a 2a 20 41 6e 20 22 65 74 42 79 74 65 22 20 .** An "etByte"
0960: 69 73 20 61 6e 20 38 2d 62 69 74 20 75 6e 73 69 is an 8-bit unsi
0970: 67 6e 65 64 20 76 61 6c 75 65 2e 0a 2a 2f 0a 74 gned value..*/.t
0980: 79 70 65 64 65 66 20 75 6e 73 69 67 6e 65 64 20 ypedef unsigned
0990: 63 68 61 72 20 65 74 42 79 74 65 3b 0a 0a 2f 2a char etByte;../*
09a0: 0a 2a 2a 20 45 61 63 68 20 62 75 69 6c 74 69 6e .** Each builtin
09b0: 20 63 6f 6e 76 65 72 73 69 6f 6e 20 63 68 61 72 conversion char
09c0: 61 63 74 65 72 20 28 65 78 3a 20 74 68 65 20 27 acter (ex: the '
09d0: 64 27 20 69 6e 20 22 25 64 22 29 20 69 73 20 64 d' in "%d") is d
09e0: 65 73 63 72 69 62 65 64 0a 2a 2a 20 62 79 20 61 escribed.** by a
09f0: 6e 20 69 6e 73 74 61 6e 63 65 20 6f 66 20 74 68 n instance of th
0a00: 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 74 72 75 e following stru
0a10: 63 74 75 72 65 0a 2a 2f 0a 74 79 70 65 64 65 66 cture.*/.typedef
0a20: 20 73 74 72 75 63 74 20 65 74 5f 69 6e 66 6f 20 struct et_info
0a30: 7b 20 20 20 2f 2a 20 49 6e 66 6f 72 6d 61 74 69 { /* Informati
0a40: 6f 6e 20 61 62 6f 75 74 20 65 61 63 68 20 66 6f on about each fo
0a50: 72 6d 61 74 20 66 69 65 6c 64 20 2a 2f 0a 20 20 rmat field */.
0a60: 63 68 61 72 20 66 6d 74 74 79 70 65 3b 20 20 20 char fmttype;
0a70: 20 20 20 20 20 20 20 20 20 2f 2a 20 54 68 65 20 /* The
0a80: 66 6f 72 6d 61 74 20 66 69 65 6c 64 20 63 6f 64 format field cod
0a90: 65 20 6c 65 74 74 65 72 20 2a 2f 0a 20 20 65 74 e letter */. et
0aa0: 42 79 74 65 20 62 61 73 65 3b 20 20 20 20 20 20 Byte base;
0ab0: 20 20 20 20 20 20 20 2f 2a 20 54 68 65 20 62 61 /* The ba
0ac0: 73 65 20 66 6f 72 20 72 61 64 69 78 20 63 6f 6e se for radix con
0ad0: 76 65 72 73 69 6f 6e 20 2a 2f 0a 20 20 65 74 42 version */. etB
0ae0: 79 74 65 20 66 6c 61 67 73 3b 20 20 20 20 20 20 yte flags;
0af0: 20 20 20 20 20 20 2f 2a 20 4f 6e 65 20 6f 72 20 /* One or
0b00: 6d 6f 72 65 20 6f 66 20 46 4c 41 47 5f 20 63 6f more of FLAG_ co
0b10: 6e 73 74 61 6e 74 73 20 62 65 6c 6f 77 20 2a 2f nstants below */
0b20: 0a 20 20 65 74 42 79 74 65 20 74 79 70 65 3b 20 . etByte type;
0b30: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 43 /* C
0b40: 6f 6e 76 65 72 73 69 6f 6e 20 70 61 72 61 64 69 onversion paradi
0b50: 67 6d 20 2a 2f 0a 20 20 65 74 42 79 74 65 20 63 gm */. etByte c
0b60: 68 61 72 73 65 74 3b 20 20 20 20 20 20 20 20 20 harset;
0b70: 20 2f 2a 20 4f 66 66 73 65 74 20 69 6e 74 6f 20 /* Offset into
0b80: 61 44 69 67 69 74 73 5b 5d 20 6f 66 20 74 68 65 aDigits[] of the
0b90: 20 64 69 67 69 74 73 20 73 74 72 69 6e 67 20 2a digits string *
0ba0: 2f 0a 20 20 65 74 42 79 74 65 20 70 72 65 66 69 /. etByte prefi
0bb0: 78 3b 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 x; /*
0bc0: 4f 66 66 73 65 74 20 69 6e 74 6f 20 61 50 72 65 Offset into aPre
0bd0: 66 69 78 5b 5d 20 6f 66 20 74 68 65 20 70 72 65 fix[] of the pre
0be0: 66 69 78 20 73 74 72 69 6e 67 20 2a 2f 0a 7d 20 fix string */.}
0bf0: 65 74 5f 69 6e 66 6f 3b 0a 0a 2f 2a 0a 2a 2a 20 et_info;../*.**
0c00: 41 6c 6c 6f 77 65 64 20 76 61 6c 75 65 73 20 66 Allowed values f
0c10: 6f 72 20 65 74 5f 69 6e 66 6f 2e 66 6c 61 67 73 or et_info.flags
0c20: 0a 2a 2f 0a 23 64 65 66 69 6e 65 20 46 4c 41 47 .*/.#define FLAG
0c30: 5f 53 49 47 4e 45 44 20 20 31 20 20 20 20 20 2f _SIGNED 1 /
0c40: 2a 20 54 72 75 65 20 69 66 20 74 68 65 20 76 61 * True if the va
0c50: 6c 75 65 20 74 6f 20 63 6f 6e 76 65 72 74 20 69 lue to convert i
0c60: 73 20 73 69 67 6e 65 64 20 2a 2f 0a 23 64 65 66 s signed */.#def
0c70: 69 6e 65 20 46 4c 41 47 5f 49 4e 54 45 52 4e 20 ine FLAG_INTERN
0c80: 20 32 20 20 20 20 20 2f 2a 20 54 72 75 65 20 69 2 /* True i
0c90: 66 20 66 6f 72 20 69 6e 74 65 72 6e 61 6c 20 75 f for internal u
0ca0: 73 65 20 6f 6e 6c 79 20 2a 2f 0a 23 64 65 66 69 se only */.#defi
0cb0: 6e 65 20 46 4c 41 47 5f 53 54 52 49 4e 47 20 20 ne FLAG_STRING
0cc0: 34 20 20 20 20 20 2f 2a 20 41 6c 6c 6f 77 20 69 4 /* Allow i
0cd0: 6e 66 69 6e 69 74 79 20 70 72 65 63 69 73 69 6f nfinity precisio
0ce0: 6e 20 2a 2f 0a 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 n */.../*.** The
0cf0: 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 61 62 6c 65 following table
0d00: 20 69 73 20 73 65 61 72 63 68 65 64 20 6c 69 6e is searched lin
0d10: 65 61 72 6c 79 2c 20 73 6f 20 69 74 20 69 73 20 early, so it is
0d20: 67 6f 6f 64 20 74 6f 20 70 75 74 20 74 68 65 0a good to put the.
0d30: 2a 2a 20 6d 6f 73 74 20 66 72 65 71 75 65 6e 74 ** most frequent
0d40: 6c 79 20 75 73 65 64 20 63 6f 6e 76 65 72 73 69 ly used conversi
0d50: 6f 6e 20 74 79 70 65 73 20 66 69 72 73 74 2e 0a on types first..
0d60: 2a 2f 0a 73 74 61 74 69 63 20 63 6f 6e 73 74 20 */.static const
0d70: 63 68 61 72 20 61 44 69 67 69 74 73 5b 5d 20 3d char aDigits[] =
0d80: 20 22 30 31 32 33 34 35 36 37 38 39 41 42 43 44 "0123456789ABCD
0d90: 45 46 30 31 32 33 34 35 36 37 38 39 61 62 63 64 EF0123456789abcd
0da0: 65 66 22 3b 0a 73 74 61 74 69 63 20 63 6f 6e 73 ef";.static cons
0db0: 74 20 63 68 61 72 20 61 50 72 65 66 69 78 5b 5d t char aPrefix[]
0dc0: 20 3d 20 22 2d 78 30 5c 30 30 30 58 30 22 3b 0a = "-x0\000X0";.
0dd0: 73 74 61 74 69 63 20 63 6f 6e 73 74 20 65 74 5f static const et_
0de0: 69 6e 66 6f 20 66 6d 74 69 6e 66 6f 5b 5d 20 3d info fmtinfo[] =
0df0: 20 7b 0a 20 20 7b 20 20 27 64 27 2c 20 31 30 2c {. { 'd', 10,
0e00: 20 31 2c 20 65 74 52 41 44 49 58 2c 20 20 20 20 1, etRADIX,
0e10: 20 20 30 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 20 0, 0 },. {
0e20: 27 73 27 2c 20 20 30 2c 20 34 2c 20 65 74 53 54 's', 0, 4, etST
0e30: 52 49 4e 47 2c 20 20 20 20 20 30 2c 20 20 30 20 RING, 0, 0
0e40: 7d 2c 0a 20 20 7b 20 20 27 67 27 2c 20 20 30 2c },. { 'g', 0,
0e50: 20 31 2c 20 65 74 47 45 4e 45 52 49 43 2c 20 20 1, etGENERIC,
0e60: 20 20 33 30 2c 20 30 20 7d 2c 0a 20 20 7b 20 20 30, 0 },. {
0e70: 27 7a 27 2c 20 20 30 2c 20 36 2c 20 65 74 44 59 'z', 0, 6, etDY
0e80: 4e 53 54 52 49 4e 47 2c 20 20 30 2c 20 20 30 20 NSTRING, 0, 0
0e90: 7d 2c 0a 20 20 7b 20 20 27 71 27 2c 20 20 30 2c },. { 'q', 0,
0ea0: 20 34 2c 20 65 74 53 51 4c 45 53 43 41 50 45 2c 4, etSQLESCAPE,
0eb0: 20 20 30 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 20 0, 0 },. {
0ec0: 27 51 27 2c 20 20 30 2c 20 34 2c 20 65 74 53 51 'Q', 0, 4, etSQ
0ed0: 4c 45 53 43 41 50 45 32 2c 20 30 2c 20 20 30 20 LESCAPE2, 0, 0
0ee0: 7d 2c 0a 20 20 7b 20 20 27 62 27 2c 20 20 30 2c },. { 'b', 0,
0ef0: 20 32 2c 20 65 74 42 4c 4f 42 2c 20 20 20 20 20 2, etBLOB,
0f00: 20 20 30 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 20 0, 0 },. {
0f10: 27 42 27 2c 20 20 30 2c 20 32 2c 20 65 74 42 4c 'B', 0, 2, etBL
0f20: 4f 42 53 51 4c 2c 20 20 20 20 30 2c 20 20 30 20 OBSQL, 0, 0
0f30: 7d 2c 0a 20 20 7b 20 20 27 68 27 2c 20 20 30 2c },. { 'h', 0,
0f40: 20 34 2c 20 65 74 48 54 4d 4c 49 5a 45 2c 20 20 4, etHTMLIZE,
0f50: 20 20 30 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 20 0, 0 },. {
0f60: 27 74 27 2c 20 20 30 2c 20 34 2c 20 65 74 48 54 't', 0, 4, etHT
0f70: 54 50 49 5a 45 2c 20 20 20 20 30 2c 20 20 30 20 TPIZE, 0, 0
0f80: 7d 2c 20 20 2f 2a 20 22 2f 22 20 2d 3e 20 22 25 }, /* "/" -> "%
0f90: 32 46 22 20 2a 2f 0a 20 20 7b 20 20 27 54 27 2c 2F" */. { 'T',
0fa0: 20 20 30 2c 20 34 2c 20 65 74 55 52 4c 49 5a 45 0, 4, etURLIZE
0fb0: 2c 20 20 20 20 20 30 2c 20 20 30 20 7d 2c 20 20 , 0, 0 },
0fc0: 2f 2a 20 22 2f 22 20 75 6e 63 68 61 6e 67 65 64 /* "/" unchanged
0fd0: 20 2a 2f 0a 20 20 7b 20 20 27 46 27 2c 20 20 30 */. { 'F', 0
0fe0: 2c 20 34 2c 20 65 74 46 4f 53 53 49 4c 49 5a 45 , 4, etFOSSILIZE
0ff0: 2c 20 20 30 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 , 0, 0 },. {
1000: 20 27 63 27 2c 20 20 30 2c 20 30 2c 20 65 74 43 'c', 0, 0, etC
1010: 48 41 52 58 2c 20 20 20 20 20 20 30 2c 20 20 30 HARX, 0, 0
1020: 20 7d 2c 0a 20 20 7b 20 20 27 6f 27 2c 20 20 38 },. { 'o', 8
1030: 2c 20 30 2c 20 65 74 52 41 44 49 58 2c 20 20 20 , 0, etRADIX,
1040: 20 20 20 30 2c 20 20 32 20 7d 2c 0a 20 20 7b 20 0, 2 },. {
1050: 20 27 75 27 2c 20 31 30 2c 20 30 2c 20 65 74 52 'u', 10, 0, etR
1060: 41 44 49 58 2c 20 20 20 20 20 20 30 2c 20 20 30 ADIX, 0, 0
1070: 20 7d 2c 0a 20 20 7b 20 20 27 78 27 2c 20 31 36 },. { 'x', 16
1080: 2c 20 30 2c 20 65 74 52 41 44 49 58 2c 20 20 20 , 0, etRADIX,
1090: 20 20 20 31 36 2c 20 31 20 7d 2c 0a 20 20 7b 20 16, 1 },. {
10a0: 20 27 58 27 2c 20 31 36 2c 20 30 2c 20 65 74 52 'X', 16, 0, etR
10b0: 41 44 49 58 2c 20 20 20 20 20 20 30 2c 20 20 34 ADIX, 0, 4
10c0: 20 7d 2c 0a 20 20 7b 20 20 27 66 27 2c 20 20 30 },. { 'f', 0
10d0: 2c 20 31 2c 20 65 74 46 4c 4f 41 54 2c 20 20 20 , 1, etFLOAT,
10e0: 20 20 20 30 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 0, 0 },. {
10f0: 20 27 65 27 2c 20 20 30 2c 20 31 2c 20 65 74 45 'e', 0, 1, etE
1100: 58 50 2c 20 20 20 20 20 20 20 20 33 30 2c 20 30 XP, 30, 0
1110: 20 7d 2c 0a 20 20 7b 20 20 27 45 27 2c 20 20 30 },. { 'E', 0
1120: 2c 20 31 2c 20 65 74 45 58 50 2c 20 20 20 20 20 , 1, etEXP,
1130: 20 20 20 31 34 2c 20 30 20 7d 2c 0a 20 20 7b 20 14, 0 },. {
1140: 20 27 47 27 2c 20 20 30 2c 20 31 2c 20 65 74 47 'G', 0, 1, etG
1150: 45 4e 45 52 49 43 2c 20 20 20 20 31 34 2c 20 30 ENERIC, 14, 0
1160: 20 7d 2c 0a 20 20 7b 20 20 27 69 27 2c 20 31 30 },. { 'i', 10
1170: 2c 20 31 2c 20 65 74 52 41 44 49 58 2c 20 20 20 , 1, etRADIX,
1180: 20 20 20 30 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 0, 0 },. {
1190: 20 27 6e 27 2c 20 20 30 2c 20 30 2c 20 65 74 53 'n', 0, 0, etS
11a0: 49 5a 45 2c 20 20 20 20 20 20 20 30 2c 20 20 30 IZE, 0, 0
11b0: 20 7d 2c 0a 20 20 7b 20 20 27 25 27 2c 20 20 30 },. { '%', 0
11c0: 2c 20 30 2c 20 65 74 50 45 52 43 45 4e 54 2c 20 , 0, etPERCENT,
11d0: 20 20 20 30 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 0, 0 },. {
11e0: 20 27 70 27 2c 20 31 36 2c 20 30 2c 20 65 74 50 'p', 16, 0, etP
11f0: 4f 49 4e 54 45 52 2c 20 20 20 20 30 2c 20 20 31 OINTER, 0, 1
1200: 20 7d 2c 0a 7d 3b 0a 23 64 65 66 69 6e 65 20 65 },.};.#define e
1210: 74 4e 49 4e 46 4f 20 20 28 73 69 7a 65 6f 66 28 tNINFO (sizeof(
1220: 66 6d 74 69 6e 66 6f 29 2f 73 69 7a 65 6f 66 28 fmtinfo)/sizeof(
1230: 66 6d 74 69 6e 66 6f 5b 30 5d 29 29 0a 0a 2f 2a fmtinfo[0]))../*
1240: 0a 2a 2a 20 22 2a 76 61 6c 22 20 69 73 20 61 20 .** "*val" is a
1250: 64 6f 75 62 6c 65 20 73 75 63 68 20 74 68 61 74 double such that
1260: 20 30 2e 31 20 3c 3d 20 2a 76 61 6c 20 3c 20 31 0.1 <= *val < 1
1270: 30 2e 30 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 0.0.** Return th
1280: 65 20 61 73 63 69 69 20 63 6f 64 65 20 66 6f 72 e ascii code for
1290: 20 74 68 65 20 6c 65 61 64 69 6e 67 20 64 69 67 the leading dig
12a0: 69 74 20 6f 66 20 2a 76 61 6c 2c 20 74 68 65 6e it of *val, then
12b0: 0a 2a 2a 20 6d 75 6c 74 69 70 6c 79 20 22 2a 76 .** multiply "*v
12c0: 61 6c 22 20 62 79 20 31 30 2e 30 20 74 6f 20 72 al" by 10.0 to r
12d0: 65 6e 6f 72 6d 61 6c 69 7a 65 2e 0a 2a 2a 0a 2a enormalize..**.*
12e0: 2a 20 45 78 61 6d 70 6c 65 3a 0a 2a 2a 20 20 20 * Example:.**
12f0: 20 20 69 6e 70 75 74 3a 20 20 20 20 20 2a 76 61 input: *va
1300: 6c 20 3d 20 33 2e 31 34 31 35 39 0a 2a 2a 20 20 l = 3.14159.**
1310: 20 20 20 6f 75 74 70 75 74 3a 20 20 20 20 2a 76 output: *v
1320: 61 6c 20 3d 20 31 2e 34 31 35 39 20 20 20 20 66 al = 1.4159 f
1330: 75 6e 63 74 69 6f 6e 20 72 65 74 75 72 6e 20 3d unction return =
1340: 20 27 33 27 0a 2a 2a 0a 2a 2a 20 54 68 65 20 63 '3'.**.** The c
1350: 6f 75 6e 74 65 72 20 2a 63 6e 74 20 69 73 20 69 ounter *cnt is i
1360: 6e 63 72 65 6d 65 6e 74 65 64 20 65 61 63 68 20 ncremented each
1370: 74 69 6d 65 2e 20 20 41 66 74 65 72 20 63 6f 75 time. After cou
1380: 6e 74 65 72 20 65 78 63 65 65 64 73 0a 2a 2a 20 nter exceeds.**
1390: 31 36 20 28 74 68 65 20 6e 75 6d 62 65 72 20 6f 16 (the number o
13a0: 66 20 73 69 67 6e 69 66 69 63 61 6e 74 20 64 69 f significant di
13b0: 67 69 74 73 20 69 6e 20 61 20 36 34 2d 62 69 74 gits in a 64-bit
13c0: 20 66 6c 6f 61 74 29 20 27 30 27 20 69 73 0a 2a float) '0' is.*
13d0: 2a 20 61 6c 77 61 79 73 20 72 65 74 75 72 6e 65 * always returne
13e0: 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 d..*/.static int
13f0: 20 65 74 5f 67 65 74 64 69 67 69 74 28 6c 6f 6e et_getdigit(lon
1400: 67 20 64 6f 75 62 6c 65 20 2a 76 61 6c 2c 20 69 g double *val, i
1410: 6e 74 20 2a 63 6e 74 29 7b 0a 20 20 69 6e 74 20 nt *cnt){. int
1420: 64 69 67 69 74 3b 0a 20 20 6c 6f 6e 67 20 64 6f digit;. long do
1430: 75 62 6c 65 20 64 3b 0a 20 20 69 66 28 20 28 2a uble d;. if( (*
1440: 63 6e 74 29 2b 2b 20 3e 3d 20 31 36 20 29 20 72 cnt)++ >= 16 ) r
1450: 65 74 75 72 6e 20 27 30 27 3b 0a 20 20 64 69 67 eturn '0';. dig
1460: 69 74 20 3d 20 28 69 6e 74 29 2a 76 61 6c 3b 0a it = (int)*val;.
1470: 20 20 64 20 3d 20 64 69 67 69 74 3b 0a 20 20 64 d = digit;. d
1480: 69 67 69 74 20 2b 3d 20 27 30 27 3b 0a 20 20 2a igit += '0';. *
1490: 76 61 6c 20 3d 20 28 2a 76 61 6c 20 2d 20 64 29 val = (*val - d)
14a0: 2a 31 30 2e 30 3b 0a 20 20 72 65 74 75 72 6e 20 *10.0;. return
14b0: 64 69 67 69 74 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 digit;.}../*.**
14c0: 53 69 7a 65 20 6f 66 20 74 65 6d 70 6f 72 61 72 Size of temporar
14d0: 79 20 63 6f 6e 76 65 72 73 69 6f 6e 20 62 75 66 y conversion buf
14e0: 66 65 72 2e 0a 2a 2f 0a 23 64 65 66 69 6e 65 20 fer..*/.#define
14f0: 65 74 42 55 46 53 49 5a 45 20 35 30 30 0a 0a 2f etBUFSIZE 500../
1500: 2a 0a 2a 2a 20 54 68 65 20 72 6f 6f 74 20 70 72 *.** The root pr
1510: 6f 67 72 61 6d 2e 20 20 41 6c 6c 20 76 61 72 69 ogram. All vari
1520: 61 74 69 6f 6e 73 20 63 61 6c 6c 20 74 68 69 73 ations call this
1530: 20 63 6f 72 65 2e 0a 2a 2a 0a 2a 2a 20 49 4e 50 core..**.** INP
1540: 55 54 53 3a 0a 2a 2a 20 20 20 66 75 6e 63 20 20 UTS:.** func
1550: 20 54 68 69 73 20 69 73 20 61 20 70 6f 69 6e 74 This is a point
1560: 65 72 20 74 6f 20 61 20 66 75 6e 63 74 69 6f 6e er to a function
1570: 20 74 61 6b 69 6e 67 20 74 68 72 65 65 20 61 72 taking three ar
1580: 67 75 6d 65 6e 74 73 0a 2a 2a 20 20 20 20 20 20 guments.**
1590: 20 20 20 20 20 20 31 2e 20 41 20 70 6f 69 6e 74 1. A point
15a0: 65 72 20 74 6f 20 61 6e 79 74 68 69 6e 67 2e 20 er to anything.
15b0: 20 53 61 6d 65 20 61 73 20 74 68 65 20 22 61 72 Same as the "ar
15c0: 67 22 20 70 61 72 61 6d 65 74 65 72 2e 0a 2a 2a g" parameter..**
15d0: 20 20 20 20 20 20 20 20 20 20 20 20 32 2e 20 41 2. A
15e0: 20 70 6f 69 6e 74 65 72 20 74 6f 20 74 68 65 20 pointer to the
15f0: 6c 69 73 74 20 6f 66 20 63 68 61 72 61 63 74 65 list of characte
1600: 72 73 20 74 6f 20 62 65 20 6f 75 74 70 75 74 0a rs to be output.
1610: 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 **
1620: 20 28 4e 6f 74 65 2c 20 74 68 69 73 20 6c 69 73 (Note, this lis
1630: 74 20 69 73 20 4e 4f 54 20 6e 75 6c 6c 20 74 65 t is NOT null te
1640: 72 6d 69 6e 61 74 65 64 2e 29 0a 2a 2a 20 20 20 rminated.).**
1650: 20 20 20 20 20 20 20 20 20 33 2e 20 41 6e 20 69 3. An i
1660: 6e 74 65 67 65 72 20 6e 75 6d 62 65 72 20 6f 66 nteger number of
1670: 20 63 68 61 72 61 63 74 65 72 73 20 74 6f 20 62 characters to b
1680: 65 20 6f 75 74 70 75 74 2e 0a 2a 2a 20 20 20 20 e output..**
1690: 20 20 20 20 20 20 20 20 20 20 20 28 4e 6f 74 65 (Note
16a0: 3a 20 54 68 69 73 20 6e 75 6d 62 65 72 20 6d 69 : This number mi
16b0: 67 68 74 20 62 65 20 7a 65 72 6f 2e 29 0a 2a 2a ght be zero.).**
16c0: 0a 2a 2a 20 20 20 61 72 67 20 20 20 20 54 68 69 .** arg Thi
16d0: 73 20 69 73 20 74 68 65 20 70 6f 69 6e 74 65 72 s is the pointer
16e0: 20 74 6f 20 61 6e 79 74 68 69 6e 67 20 77 68 69 to anything whi
16f0: 63 68 20 77 69 6c 6c 20 62 65 20 70 61 73 73 65 ch will be passe
1700: 64 20 61 73 20 74 68 65 0a 2a 2a 20 20 20 20 20 d as the.**
1710: 20 20 20 20 20 66 69 72 73 74 20 61 72 67 75 6d first argum
1720: 65 6e 74 20 74 6f 20 22 66 75 6e 63 22 2e 20 20 ent to "func".
1730: 55 73 65 20 69 74 20 66 6f 72 20 77 68 61 74 65 Use it for whate
1740: 76 65 72 20 79 6f 75 20 6c 69 6b 65 2e 0a 2a 2a ver you like..**
1750: 0a 2a 2a 20 20 20 66 6d 74 20 20 20 20 54 68 69 .** fmt Thi
1760: 73 20 69 73 20 74 68 65 20 66 6f 72 6d 61 74 20 s is the format
1770: 73 74 72 69 6e 67 2c 20 61 73 20 69 6e 20 74 68 string, as in th
1780: 65 20 75 73 75 61 6c 20 70 72 69 6e 74 2e 0a 2a e usual print..*
1790: 2a 0a 2a 2a 20 20 20 61 70 20 20 20 20 20 54 68 *.** ap Th
17a0: 69 73 20 69 73 20 61 20 70 6f 69 6e 74 65 72 20 is is a pointer
17b0: 74 6f 20 61 20 6c 69 73 74 20 6f 66 20 61 72 67 to a list of arg
17c0: 75 6d 65 6e 74 73 2e 20 20 53 61 6d 65 20 61 73 uments. Same as
17d0: 20 69 6e 0a 2a 2a 20 20 20 20 20 20 20 20 20 20 in.**
17e0: 76 66 70 72 69 6e 74 2e 0a 2a 2a 0a 2a 2a 20 4f vfprint..**.** O
17f0: 55 54 50 55 54 53 3a 0a 2a 2a 20 20 20 20 20 20 UTPUTS:.**
1800: 20 20 20 20 54 68 65 20 72 65 74 75 72 6e 20 76 The return v
1810: 61 6c 75 65 20 69 73 20 74 68 65 20 74 6f 74 61 alue is the tota
1820: 6c 20 6e 75 6d 62 65 72 20 6f 66 20 63 68 61 72 l number of char
1830: 61 63 74 65 72 73 20 73 65 6e 74 20 74 6f 0a 2a acters sent to.*
1840: 2a 20 20 20 20 20 20 20 20 20 20 74 68 65 20 66 * the f
1850: 75 6e 63 74 69 6f 6e 20 22 66 75 6e 63 22 2e 20 unction "func".
1860: 20 52 65 74 75 72 6e 73 20 2d 31 20 6f 6e 20 61 Returns -1 on a
1870: 20 65 72 72 6f 72 2e 0a 2a 2a 0a 2a 2a 20 4e 6f error..**.** No
1880: 74 65 20 74 68 61 74 20 74 68 65 20 6f 72 64 65 te that the orde
1890: 72 20 69 6e 20 77 68 69 63 68 20 61 75 74 6f 6d r in which autom
18a0: 61 74 69 63 20 76 61 72 69 61 62 6c 65 73 20 61 atic variables a
18b0: 72 65 20 64 65 63 6c 61 72 65 64 20 62 65 6c 6f re declared belo
18c0: 77 0a 2a 2a 20 73 65 65 6d 73 20 74 6f 20 6d 61 w.** seems to ma
18d0: 6b 65 20 61 20 62 69 67 20 64 69 66 66 65 72 65 ke a big differe
18e0: 6e 63 65 20 69 6e 20 64 65 74 65 72 6d 69 6e 69 nce in determini
18f0: 6e 67 20 68 6f 77 20 66 61 73 74 20 74 68 69 73 ng how fast this
1900: 20 62 65 61 73 74 0a 2a 2a 20 77 69 6c 6c 20 72 beast.** will r
1910: 75 6e 2e 0a 2a 2f 0a 69 6e 74 20 76 78 70 72 69 un..*/.int vxpri
1920: 6e 74 66 28 0a 20 20 76 6f 69 64 20 28 2a 66 75 ntf(. void (*fu
1930: 6e 63 29 28 76 6f 69 64 2a 2c 63 6f 6e 73 74 20 nc)(void*,const
1940: 63 68 61 72 2a 2c 69 6e 74 29 2c 20 20 20 20 20 char*,int),
1950: 2f 2a 20 43 6f 6e 73 75 6d 65 72 20 6f 66 20 74 /* Consumer of t
1960: 65 78 74 20 2a 2f 0a 20 20 76 6f 69 64 20 2a 61 ext */. void *a
1970: 72 67 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 rg,
1980: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 46 /* F
1990: 69 72 73 74 20 61 72 67 75 6d 65 6e 74 20 74 6f irst argument to
19a0: 20 74 68 65 20 63 6f 6e 73 75 6d 65 72 20 2a 2f the consumer */
19b0: 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 66 . const char *f
19c0: 6d 74 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 mt,
19d0: 20 20 20 20 20 20 2f 2a 20 46 6f 72 6d 61 74 20 /* Format
19e0: 73 74 72 69 6e 67 20 2a 2f 0a 20 20 76 61 5f 6c string */. va_l
19f0: 69 73 74 20 61 70 20 20 20 20 20 20 20 20 20 20 ist ap
1a00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f /
1a10: 2a 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 * arguments */.)
1a20: 7b 0a 20 20 69 6e 74 20 63 3b 20 20 20 20 20 20 {. int c;
1a30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f /
1a40: 2a 20 4e 65 78 74 20 63 68 61 72 61 63 74 65 72 * Next character
1a50: 20 69 6e 20 74 68 65 20 66 6f 72 6d 61 74 20 73 in the format s
1a60: 74 72 69 6e 67 20 2a 2f 0a 20 20 63 68 61 72 20 tring */. char
1a70: 2a 62 75 66 70 74 3b 20 20 20 20 20 20 20 20 20 *bufpt;
1a80: 20 20 20 20 20 20 2f 2a 20 50 6f 69 6e 74 65 72 /* Pointer
1a90: 20 74 6f 20 74 68 65 20 63 6f 6e 76 65 72 73 69 to the conversi
1aa0: 6f 6e 20 62 75 66 66 65 72 20 2a 2f 0a 20 20 69 on buffer */. i
1ab0: 6e 74 20 70 72 65 63 69 73 69 6f 6e 3b 20 20 20 nt precision;
1ac0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 50 72 65 /* Pre
1ad0: 63 69 73 69 6f 6e 20 6f 66 20 74 68 65 20 63 75 cision of the cu
1ae0: 72 72 65 6e 74 20 66 69 65 6c 64 20 2a 2f 0a 20 rrent field */.
1af0: 20 69 6e 74 20 6c 65 6e 67 74 68 3b 20 20 20 20 int length;
1b00: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4c /* L
1b10: 65 6e 67 74 68 20 6f 66 20 74 68 65 20 66 69 65 ength of the fie
1b20: 6c 64 20 2a 2f 0a 20 20 69 6e 74 20 69 64 78 3b ld */. int idx;
1b30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1b40: 20 20 20 2f 2a 20 41 20 67 65 6e 65 72 61 6c 20 /* A general
1b50: 70 75 72 70 6f 73 65 20 6c 6f 6f 70 20 63 6f 75 purpose loop cou
1b60: 6e 74 65 72 20 2a 2f 0a 20 20 69 6e 74 20 63 6f nter */. int co
1b70: 75 6e 74 3b 20 20 20 20 20 20 20 20 20 20 20 20 unt;
1b80: 20 20 20 20 20 2f 2a 20 54 6f 74 61 6c 20 6e 75 /* Total nu
1b90: 6d 62 65 72 20 6f 66 20 63 68 61 72 61 63 74 65 mber of characte
1ba0: 72 73 20 6f 75 74 70 75 74 20 2a 2f 0a 20 20 69 rs output */. i
1bb0: 6e 74 20 77 69 64 74 68 3b 20 20 20 20 20 20 20 nt width;
1bc0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 57 69 64 /* Wid
1bd0: 74 68 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e th of the curren
1be0: 74 20 66 69 65 6c 64 20 2a 2f 0a 20 20 65 74 42 t field */. etB
1bf0: 79 74 65 20 66 6c 61 67 5f 6c 65 66 74 6a 75 73 yte flag_leftjus
1c00: 74 69 66 79 3b 20 20 20 2f 2a 20 54 72 75 65 20 tify; /* True
1c10: 69 66 20 22 2d 22 20 66 6c 61 67 20 69 73 20 70 if "-" flag is p
1c20: 72 65 73 65 6e 74 20 2a 2f 0a 20 20 65 74 42 79 resent */. etBy
1c30: 74 65 20 66 6c 61 67 5f 70 6c 75 73 73 69 67 6e te flag_plussign
1c40: 3b 20 20 20 20 20 20 2f 2a 20 54 72 75 65 20 69 ; /* True i
1c50: 66 20 22 2b 22 20 66 6c 61 67 20 69 73 20 70 72 f "+" flag is pr
1c60: 65 73 65 6e 74 20 2a 2f 0a 20 20 65 74 42 79 74 esent */. etByt
1c70: 65 20 66 6c 61 67 5f 62 6c 61 6e 6b 73 69 67 6e e flag_blanksign
1c80: 3b 20 20 20 20 20 2f 2a 20 54 72 75 65 20 69 66 ; /* True if
1c90: 20 22 20 22 20 66 6c 61 67 20 69 73 20 70 72 65 " " flag is pre
1ca0: 73 65 6e 74 20 2a 2f 0a 20 20 65 74 42 79 74 65 sent */. etByte
1cb0: 20 66 6c 61 67 5f 61 6c 74 65 72 6e 61 74 65 66 flag_alternatef
1cc0: 6f 72 6d 3b 20 2f 2a 20 54 72 75 65 20 69 66 20 orm; /* True if
1cd0: 22 23 22 20 66 6c 61 67 20 69 73 20 70 72 65 73 "#" flag is pres
1ce0: 65 6e 74 20 2a 2f 0a 20 20 65 74 42 79 74 65 20 ent */. etByte
1cf0: 66 6c 61 67 5f 61 6c 74 66 6f 72 6d 32 3b 20 20 flag_altform2;
1d00: 20 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20 22 /* True if "
1d10: 21 22 20 66 6c 61 67 20 69 73 20 70 72 65 73 65 !" flag is prese
1d20: 6e 74 20 2a 2f 0a 20 20 65 74 42 79 74 65 20 66 nt */. etByte f
1d30: 6c 61 67 5f 7a 65 72 6f 70 61 64 3b 20 20 20 20 lag_zeropad;
1d40: 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20 66 69 /* True if fi
1d50: 65 6c 64 20 77 69 64 74 68 20 63 6f 6e 73 74 61 eld width consta
1d60: 6e 74 20 73 74 61 72 74 73 20 77 69 74 68 20 7a nt starts with z
1d70: 65 72 6f 20 2a 2f 0a 20 20 65 74 42 79 74 65 20 ero */. etByte
1d80: 66 6c 61 67 5f 6c 6f 6e 67 3b 20 20 20 20 20 20 flag_long;
1d90: 20 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20 22 /* True if "
1da0: 6c 22 20 66 6c 61 67 20 69 73 20 70 72 65 73 65 l" flag is prese
1db0: 6e 74 20 2a 2f 0a 20 20 65 74 42 79 74 65 20 66 nt */. etByte f
1dc0: 6c 61 67 5f 6c 6f 6e 67 6c 6f 6e 67 3b 20 20 20 lag_longlong;
1dd0: 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20 74 68 /* True if th
1de0: 65 20 22 6c 6c 22 20 66 6c 61 67 20 69 73 20 70 e "ll" flag is p
1df0: 72 65 73 65 6e 74 20 2a 2f 0a 20 20 65 74 42 79 resent */. etBy
1e00: 74 65 20 64 6f 6e 65 3b 20 20 20 20 20 20 20 20 te done;
1e10: 20 20 20 20 20 20 20 2f 2a 20 4c 6f 6f 70 20 74 /* Loop t
1e20: 65 72 6d 69 6e 61 74 69 6f 6e 20 66 6c 61 67 20 ermination flag
1e30: 2a 2f 0a 20 20 75 36 34 20 6c 6f 6e 67 76 61 6c */. u64 longval
1e40: 75 65 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ue;
1e50: 2f 2a 20 56 61 6c 75 65 20 66 6f 72 20 69 6e 74 /* Value for int
1e60: 65 67 65 72 20 74 79 70 65 73 20 2a 2f 0a 20 20 eger types */.
1e70: 6c 6f 6e 67 20 64 6f 75 62 6c 65 20 72 65 61 6c long double real
1e80: 76 61 6c 75 65 3b 20 20 20 20 20 2f 2a 20 56 61 value; /* Va
1e90: 6c 75 65 20 66 6f 72 20 72 65 61 6c 20 74 79 70 lue for real typ
1ea0: 65 73 20 2a 2f 0a 20 20 63 6f 6e 73 74 20 65 74 es */. const et
1eb0: 5f 69 6e 66 6f 20 2a 69 6e 66 6f 70 3b 20 20 20 _info *infop;
1ec0: 20 20 20 2f 2a 20 50 6f 69 6e 74 65 72 20 74 6f /* Pointer to
1ed0: 20 74 68 65 20 61 70 70 72 6f 70 72 69 61 74 65 the appropriate
1ee0: 20 69 6e 66 6f 20 73 74 72 75 63 74 75 72 65 20 info structure
1ef0: 2a 2f 0a 20 20 63 68 61 72 20 62 75 66 5b 65 74 */. char buf[et
1f00: 42 55 46 53 49 5a 45 5d 3b 20 20 20 20 20 20 20 BUFSIZE];
1f10: 2f 2a 20 43 6f 6e 76 65 72 73 69 6f 6e 20 62 75 /* Conversion bu
1f20: 66 66 65 72 20 2a 2f 0a 20 20 63 68 61 72 20 70 ffer */. char p
1f30: 72 65 66 69 78 3b 20 20 20 20 20 20 20 20 20 20 refix;
1f40: 20 20 20 20 20 2f 2a 20 50 72 65 66 69 78 20 63 /* Prefix c
1f50: 68 61 72 61 63 74 65 72 2e 20 20 22 2b 22 20 6f haracter. "+" o
1f60: 72 20 22 2d 22 20 6f 72 20 22 20 22 20 6f 72 20 r "-" or " " or
1f70: 27 5c 30 27 2e 20 2a 2f 0a 20 20 65 74 42 79 74 '\0'. */. etByt
1f80: 65 20 65 72 72 6f 72 66 6c 61 67 20 3d 20 30 3b e errorflag = 0;
1f90: 20 20 20 20 20 20 2f 2a 20 54 72 75 65 20 69 66 /* True if
1fa0: 20 61 6e 20 65 72 72 6f 72 20 69 73 20 65 6e 63 an error is enc
1fb0: 6f 75 6e 74 65 72 65 64 20 2a 2f 0a 20 20 65 74 ountered */. et
1fc0: 42 79 74 65 20 78 74 79 70 65 3b 20 20 20 20 20 Byte xtype;
1fd0: 20 20 20 20 20 20 20 20 20 2f 2a 20 43 6f 6e 76 /* Conv
1fe0: 65 72 73 69 6f 6e 20 70 61 72 61 64 69 67 6d 20 ersion paradigm
1ff0: 2a 2f 0a 20 20 63 68 61 72 20 2a 7a 45 78 74 72 */. char *zExtr
2000: 61 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 a;
2010: 2f 2a 20 45 78 74 72 61 20 6d 65 6d 6f 72 79 20 /* Extra memory
2020: 75 73 65 64 20 66 6f 72 20 65 74 54 43 4c 45 53 used for etTCLES
2030: 43 41 50 45 20 63 6f 6e 76 65 72 73 69 6f 6e 73 CAPE conversions
2040: 20 2a 2f 0a 20 20 73 74 61 74 69 63 20 63 6f 6e */. static con
2050: 73 74 20 63 68 61 72 20 73 70 61 63 65 73 5b 5d st char spaces[]
2060: 20 3d 0a 20 20 20 22 20 20 20 20 20 20 20 20 20 =. "
2070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
20a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
20b0: 22 3b 0a 23 64 65 66 69 6e 65 20 65 74 53 50 41 ";.#define etSPA
20c0: 43 45 53 49 5a 45 20 28 73 69 7a 65 6f 66 28 73 CESIZE (sizeof(s
20d0: 70 61 63 65 73 29 2d 31 29 0a 20 20 69 6e 74 20 paces)-1). int
20e0: 20 65 78 70 2c 20 65 32 3b 20 20 20 20 20 20 20 exp, e2;
20f0: 20 20 20 20 20 20 20 2f 2a 20 65 78 70 6f 6e 65 /* expone
2100: 6e 74 20 6f 66 20 72 65 61 6c 20 6e 75 6d 62 65 nt of real numbe
2110: 72 73 20 2a 2f 0a 20 20 64 6f 75 62 6c 65 20 72 rs */. double r
2120: 6f 75 6e 64 65 72 3b 20 20 20 20 20 20 20 20 20 ounder;
2130: 20 20 20 2f 2a 20 55 73 65 64 20 66 6f 72 20 72 /* Used for r
2140: 6f 75 6e 64 69 6e 67 20 66 6c 6f 61 74 69 6e 67 ounding floating
2150: 20 70 6f 69 6e 74 20 76 61 6c 75 65 73 20 2a 2f point values */
2160: 0a 20 20 65 74 42 79 74 65 20 66 6c 61 67 5f 64 . etByte flag_d
2170: 70 3b 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a p; /*
2180: 20 54 72 75 65 20 69 66 20 64 65 63 69 6d 61 6c True if decimal
2190: 20 70 6f 69 6e 74 20 73 68 6f 75 6c 64 20 62 65 point should be
21a0: 20 73 68 6f 77 6e 20 2a 2f 0a 20 20 65 74 42 79 shown */. etBy
21b0: 74 65 20 66 6c 61 67 5f 72 74 7a 3b 20 20 20 20 te flag_rtz;
21c0: 20 20 20 20 20 20 20 2f 2a 20 54 72 75 65 20 69 /* True i
21d0: 66 20 74 72 61 69 6c 69 6e 67 20 7a 65 72 6f 73 f trailing zeros
21e0: 20 73 68 6f 75 6c 64 20 62 65 20 72 65 6d 6f 76 should be remov
21f0: 65 64 20 2a 2f 0a 20 20 65 74 42 79 74 65 20 66 ed */. etByte f
2200: 6c 61 67 5f 65 78 70 3b 20 20 20 20 20 20 20 20 lag_exp;
2210: 20 20 20 2f 2a 20 54 72 75 65 20 74 6f 20 66 6f /* True to fo
2220: 72 63 65 20 64 69 73 70 6c 61 79 20 6f 66 20 74 rce display of t
2230: 68 65 20 65 78 70 6f 6e 65 6e 74 20 2a 2f 0a 20 he exponent */.
2240: 20 69 6e 74 20 6e 73 64 3b 20 20 20 20 20 20 20 int nsd;
2250: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e /* N
2260: 75 6d 62 65 72 20 6f 66 20 73 69 67 6e 69 66 69 umber of signifi
2270: 63 61 6e 74 20 64 69 67 69 74 73 20 72 65 74 75 cant digits retu
2280: 72 6e 65 64 20 2a 2f 0a 0a 20 20 66 75 6e 63 28 rned */.. func(
2290: 61 72 67 2c 22 22 2c 30 29 3b 0a 20 20 63 6f 75 arg,"",0);. cou
22a0: 6e 74 20 3d 20 6c 65 6e 67 74 68 20 3d 20 30 3b nt = length = 0;
22b0: 0a 20 20 62 75 66 70 74 20 3d 20 30 3b 0a 20 20 . bufpt = 0;.
22c0: 66 6f 72 28 3b 20 28 63 3d 28 2a 66 6d 74 29 29 for(; (c=(*fmt))
22d0: 21 3d 30 3b 20 2b 2b 66 6d 74 29 7b 0a 20 20 20 !=0; ++fmt){.
22e0: 20 69 66 28 20 63 21 3d 27 25 27 20 29 7b 0a 20 if( c!='%' ){.
22f0: 20 20 20 20 20 69 6e 74 20 61 6d 74 3b 0a 20 20 int amt;.
2300: 20 20 20 20 62 75 66 70 74 20 3d 20 28 63 68 61 bufpt = (cha
2310: 72 20 2a 29 66 6d 74 3b 0a 20 20 20 20 20 20 61 r *)fmt;. a
2320: 6d 74 20 3d 20 31 3b 0a 20 20 20 20 20 20 77 68 mt = 1;. wh
2330: 69 6c 65 28 20 28 63 3d 28 2a 2b 2b 66 6d 74 29 ile( (c=(*++fmt)
2340: 29 21 3d 27 25 27 20 26 26 20 63 21 3d 30 20 29 )!='%' && c!=0 )
2350: 20 61 6d 74 2b 2b 3b 0a 20 20 20 20 20 20 28 2a amt++;. (*
2360: 66 75 6e 63 29 28 61 72 67 2c 62 75 66 70 74 2c func)(arg,bufpt,
2370: 61 6d 74 29 3b 0a 20 20 20 20 20 20 63 6f 75 6e amt);. coun
2380: 74 20 2b 3d 20 61 6d 74 3b 0a 20 20 20 20 20 20 t += amt;.
2390: 69 66 28 20 63 3d 3d 30 20 29 20 62 72 65 61 6b if( c==0 ) break
23a0: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 28 20 ;. }. if(
23b0: 28 63 3d 28 2a 2b 2b 66 6d 74 29 29 3d 3d 30 20 (c=(*++fmt))==0
23c0: 29 7b 0a 20 20 20 20 20 20 65 72 72 6f 72 66 6c ){. errorfl
23d0: 61 67 20 3d 20 31 3b 0a 20 20 20 20 20 20 28 2a ag = 1;. (*
23e0: 66 75 6e 63 29 28 61 72 67 2c 22 25 22 2c 31 29 func)(arg,"%",1)
23f0: 3b 0a 20 20 20 20 20 20 63 6f 75 6e 74 2b 2b 3b ;. count++;
2400: 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 . break;.
2410: 20 20 7d 0a 20 20 20 20 2f 2a 20 46 69 6e 64 20 }. /* Find
2420: 6f 75 74 20 77 68 61 74 20 66 6c 61 67 73 20 61 out what flags a
2430: 72 65 20 70 72 65 73 65 6e 74 20 2a 2f 0a 20 20 re present */.
2440: 20 20 66 6c 61 67 5f 6c 65 66 74 6a 75 73 74 69 flag_leftjusti
2450: 66 79 20 3d 20 66 6c 61 67 5f 70 6c 75 73 73 69 fy = flag_plussi
2460: 67 6e 20 3d 20 66 6c 61 67 5f 62 6c 61 6e 6b 73 gn = flag_blanks
2470: 69 67 6e 20 3d 20 0a 20 20 20 20 20 66 6c 61 67 ign = . flag
2480: 5f 61 6c 74 65 72 6e 61 74 65 66 6f 72 6d 20 3d _alternateform =
2490: 20 66 6c 61 67 5f 61 6c 74 66 6f 72 6d 32 20 3d flag_altform2 =
24a0: 20 66 6c 61 67 5f 7a 65 72 6f 70 61 64 20 3d 20 flag_zeropad =
24b0: 30 3b 0a 20 20 20 20 64 6f 6e 65 20 3d 20 30 3b 0;. done = 0;
24c0: 0a 20 20 20 20 64 6f 7b 0a 20 20 20 20 20 20 73 . do{. s
24d0: 77 69 74 63 68 28 20 63 20 29 7b 0a 20 20 20 20 witch( c ){.
24e0: 20 20 20 20 63 61 73 65 20 27 2d 27 3a 20 20 20 case '-':
24f0: 66 6c 61 67 5f 6c 65 66 74 6a 75 73 74 69 66 79 flag_leftjustify
2500: 20 3d 20 31 3b 20 20 20 20 20 62 72 65 61 6b 3b = 1; break;
2510: 0a 20 20 20 20 20 20 20 20 63 61 73 65 20 27 2b . case '+
2520: 27 3a 20 20 20 66 6c 61 67 5f 70 6c 75 73 73 69 ': flag_plussi
2530: 67 6e 20 3d 20 31 3b 20 20 20 20 20 20 20 20 62 gn = 1; b
2540: 72 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 63 61 reak;. ca
2550: 73 65 20 27 20 27 3a 20 20 20 66 6c 61 67 5f 62 se ' ': flag_b
2560: 6c 61 6e 6b 73 69 67 6e 20 3d 20 31 3b 20 20 20 lanksign = 1;
2570: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 break;.
2580: 20 20 20 63 61 73 65 20 27 23 27 3a 20 20 20 66 case '#': f
2590: 6c 61 67 5f 61 6c 74 65 72 6e 61 74 65 66 6f 72 lag_alternatefor
25a0: 6d 20 3d 20 31 3b 20 20 20 62 72 65 61 6b 3b 0a m = 1; break;.
25b0: 20 20 20 20 20 20 20 20 63 61 73 65 20 27 21 27 case '!'
25c0: 3a 20 20 20 66 6c 61 67 5f 61 6c 74 66 6f 72 6d : flag_altform
25d0: 32 20 3d 20 31 3b 20 20 20 20 20 20 20 20 62 72 2 = 1; br
25e0: 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 63 61 73 eak;. cas
25f0: 65 20 27 30 27 3a 20 20 20 66 6c 61 67 5f 7a 65 e '0': flag_ze
2600: 72 6f 70 61 64 20 3d 20 31 3b 20 20 20 20 20 20 ropad = 1;
2610: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 break;.
2620: 20 20 64 65 66 61 75 6c 74 3a 20 20 20 20 64 6f default: do
2630: 6e 65 20 3d 20 31 3b 20 20 20 20 20 20 20 20 20 ne = 1;
2640: 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 break;.
2650: 20 20 20 20 20 7d 0a 20 20 20 20 7d 77 68 69 6c }. }whil
2660: 65 28 20 21 64 6f 6e 65 20 26 26 20 28 63 3d 28 e( !done && (c=(
2670: 2a 2b 2b 66 6d 74 29 29 21 3d 30 20 29 3b 0a 20 *++fmt))!=0 );.
2680: 20 20 20 2f 2a 20 47 65 74 20 74 68 65 20 66 69 /* Get the fi
2690: 65 6c 64 20 77 69 64 74 68 20 2a 2f 0a 20 20 20 eld width */.
26a0: 20 77 69 64 74 68 20 3d 20 30 3b 0a 20 20 20 20 width = 0;.
26b0: 69 66 28 20 63 3d 3d 27 2a 27 20 29 7b 0a 20 20 if( c=='*' ){.
26c0: 20 20 20 20 77 69 64 74 68 20 3d 20 76 61 5f 61 width = va_a
26d0: 72 67 28 61 70 2c 69 6e 74 29 3b 0a 20 20 20 20 rg(ap,int);.
26e0: 20 20 69 66 28 20 77 69 64 74 68 3c 30 20 29 7b if( width<0 ){
26f0: 0a 20 20 20 20 20 20 20 20 66 6c 61 67 5f 6c 65 . flag_le
2700: 66 74 6a 75 73 74 69 66 79 20 3d 20 31 3b 0a 20 ftjustify = 1;.
2710: 20 20 20 20 20 20 20 77 69 64 74 68 20 3d 20 2d width = -
2720: 77 69 64 74 68 3b 0a 20 20 20 20 20 20 7d 0a 20 width;. }.
2730: 20 20 20 20 20 63 20 3d 20 2a 2b 2b 66 6d 74 3b c = *++fmt;
2740: 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 . }else{.
2750: 20 20 77 68 69 6c 65 28 20 63 3e 3d 27 30 27 20 while( c>='0'
2760: 26 26 20 63 3c 3d 27 39 27 20 29 7b 0a 20 20 20 && c<='9' ){.
2770: 20 20 20 20 20 77 69 64 74 68 20 3d 20 77 69 64 width = wid
2780: 74 68 2a 31 30 20 2b 20 63 20 2d 20 27 30 27 3b th*10 + c - '0';
2790: 0a 20 20 20 20 20 20 20 20 63 20 3d 20 2a 2b 2b . c = *++
27a0: 66 6d 74 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 fmt;. }.
27b0: 20 7d 0a 20 20 20 20 69 66 28 20 77 69 64 74 68 }. if( width
27c0: 20 3e 20 65 74 42 55 46 53 49 5a 45 2d 31 30 20 > etBUFSIZE-10
27d0: 29 7b 0a 20 20 20 20 20 20 77 69 64 74 68 20 3d ){. width =
27e0: 20 65 74 42 55 46 53 49 5a 45 2d 31 30 3b 0a 20 etBUFSIZE-10;.
27f0: 20 20 20 7d 0a 20 20 20 20 2f 2a 20 47 65 74 20 }. /* Get
2800: 74 68 65 20 70 72 65 63 69 73 69 6f 6e 20 2a 2f the precision */
2810: 0a 20 20 20 20 69 66 28 20 63 3d 3d 27 2e 27 20 . if( c=='.'
2820: 29 7b 0a 20 20 20 20 20 20 70 72 65 63 69 73 69 ){. precisi
2830: 6f 6e 20 3d 20 30 3b 0a 20 20 20 20 20 20 63 20 on = 0;. c
2840: 3d 20 2a 2b 2b 66 6d 74 3b 0a 20 20 20 20 20 20 = *++fmt;.
2850: 69 66 28 20 63 3d 3d 27 2a 27 20 29 7b 0a 20 20 if( c=='*' ){.
2860: 20 20 20 20 20 20 70 72 65 63 69 73 69 6f 6e 20 precision
2870: 3d 20 76 61 5f 61 72 67 28 61 70 2c 69 6e 74 29 = va_arg(ap,int)
2880: 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 70 72 ;. if( pr
2890: 65 63 69 73 69 6f 6e 3c 30 20 29 20 70 72 65 63 ecision<0 ) prec
28a0: 69 73 69 6f 6e 20 3d 20 2d 70 72 65 63 69 73 69 ision = -precisi
28b0: 6f 6e 3b 0a 20 20 20 20 20 20 20 20 63 20 3d 20 on;. c =
28c0: 2a 2b 2b 66 6d 74 3b 0a 20 20 20 20 20 20 7d 65 *++fmt;. }e
28d0: 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 77 68 69 lse{. whi
28e0: 6c 65 28 20 63 3e 3d 27 30 27 20 26 26 20 63 3c le( c>='0' && c<
28f0: 3d 27 39 27 20 29 7b 0a 20 20 20 20 20 20 20 20 ='9' ){.
2900: 20 20 70 72 65 63 69 73 69 6f 6e 20 3d 20 70 72 precision = pr
2910: 65 63 69 73 69 6f 6e 2a 31 30 20 2b 20 63 20 2d ecision*10 + c -
2920: 20 27 30 27 3b 0a 20 20 20 20 20 20 20 20 20 20 '0';.
2930: 63 20 3d 20 2a 2b 2b 66 6d 74 3b 0a 20 20 20 20 c = *++fmt;.
2940: 20 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20 }. }.
2950: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 70 }else{. p
2960: 72 65 63 69 73 69 6f 6e 20 3d 20 2d 31 3b 0a 20 recision = -1;.
2970: 20 20 20 7d 0a 20 20 20 20 2f 2a 20 47 65 74 20 }. /* Get
2980: 74 68 65 20 63 6f 6e 76 65 72 73 69 6f 6e 20 74 the conversion t
2990: 79 70 65 20 6d 6f 64 69 66 69 65 72 20 2a 2f 0a ype modifier */.
29a0: 20 20 20 20 69 66 28 20 63 3d 3d 27 6c 27 20 29 if( c=='l' )
29b0: 7b 0a 20 20 20 20 20 20 66 6c 61 67 5f 6c 6f 6e {. flag_lon
29c0: 67 20 3d 20 31 3b 0a 20 20 20 20 20 20 63 20 3d g = 1;. c =
29d0: 20 2a 2b 2b 66 6d 74 3b 0a 20 20 20 20 20 20 69 *++fmt;. i
29e0: 66 28 20 63 3d 3d 27 6c 27 20 29 7b 0a 20 20 20 f( c=='l' ){.
29f0: 20 20 20 20 20 66 6c 61 67 5f 6c 6f 6e 67 6c 6f flag_longlo
2a00: 6e 67 20 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 ng = 1;.
2a10: 63 20 3d 20 2a 2b 2b 66 6d 74 3b 0a 20 20 20 20 c = *++fmt;.
2a20: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 }else{.
2a30: 20 66 6c 61 67 5f 6c 6f 6e 67 6c 6f 6e 67 20 3d flag_longlong =
2a40: 20 30 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 0;. }.
2a50: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 66 6c 61 }else{. fla
2a60: 67 5f 6c 6f 6e 67 20 3d 20 66 6c 61 67 5f 6c 6f g_long = flag_lo
2a70: 6e 67 6c 6f 6e 67 20 3d 20 30 3b 0a 20 20 20 20 nglong = 0;.
2a80: 7d 0a 20 20 20 20 2f 2a 20 46 65 74 63 68 20 74 }. /* Fetch t
2a90: 68 65 20 69 6e 66 6f 20 65 6e 74 72 79 20 66 6f he info entry fo
2aa0: 72 20 74 68 65 20 66 69 65 6c 64 20 2a 2f 0a 20 r the field */.
2ab0: 20 20 20 69 6e 66 6f 70 20 3d 20 30 3b 0a 20 20 infop = 0;.
2ac0: 20 20 78 74 79 70 65 20 3d 20 65 74 45 52 52 4f xtype = etERRO
2ad0: 52 3b 0a 20 20 20 20 66 6f 72 28 69 64 78 3d 30 R;. for(idx=0
2ae0: 3b 20 69 64 78 3c 65 74 4e 49 4e 46 4f 3b 20 69 ; idx<etNINFO; i
2af0: 64 78 2b 2b 29 7b 0a 20 20 20 20 20 20 69 66 28 dx++){. if(
2b00: 20 63 3d 3d 66 6d 74 69 6e 66 6f 5b 69 64 78 5d c==fmtinfo[idx]
2b10: 2e 66 6d 74 74 79 70 65 20 29 7b 0a 20 20 20 20 .fmttype ){.
2b20: 20 20 20 20 69 6e 66 6f 70 20 3d 20 26 66 6d 74 infop = &fmt
2b30: 69 6e 66 6f 5b 69 64 78 5d 3b 0a 20 20 20 20 20 info[idx];.
2b40: 20 20 20 78 74 79 70 65 20 3d 20 69 6e 66 6f 70 xtype = infop
2b50: 2d 3e 74 79 70 65 3b 0a 20 20 20 20 20 20 20 20 ->type;.
2b60: 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 7d 0a 20 break;. }.
2b70: 20 20 20 7d 0a 20 20 20 20 7a 45 78 74 72 61 20 }. zExtra
2b80: 3d 20 30 3b 0a 0a 20 20 20 20 2f 2a 20 4c 69 6d = 0;.. /* Lim
2b90: 69 74 20 74 68 65 20 70 72 65 63 69 73 69 6f 6e it the precision
2ba0: 20 74 6f 20 70 72 65 76 65 6e 74 20 6f 76 65 72 to prevent over
2bb0: 66 6c 6f 77 69 6e 67 20 62 75 66 5b 5d 20 64 75 flowing buf[] du
2bc0: 72 69 6e 67 20 63 6f 6e 76 65 72 73 69 6f 6e 20 ring conversion
2bd0: 2a 2f 0a 20 20 20 20 69 66 28 20 70 72 65 63 69 */. if( preci
2be0: 73 69 6f 6e 3e 65 74 42 55 46 53 49 5a 45 2d 34 sion>etBUFSIZE-4
2bf0: 30 20 26 26 20 28 69 6e 66 6f 70 2d 3e 66 6c 61 0 && (infop->fla
2c00: 67 73 20 26 20 46 4c 41 47 5f 53 54 52 49 4e 47 gs & FLAG_STRING
2c10: 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 70 72 )==0 ){. pr
2c20: 65 63 69 73 69 6f 6e 20 3d 20 65 74 42 55 46 53 ecision = etBUFS
2c30: 49 5a 45 2d 34 30 3b 0a 20 20 20 20 7d 0a 0a 20 IZE-40;. }..
2c40: 20 20 20 2f 2a 0a 20 20 20 20 2a 2a 20 41 74 20 /*. ** At
2c50: 74 68 69 73 20 70 6f 69 6e 74 2c 20 76 61 72 69 this point, vari
2c60: 61 62 6c 65 73 20 61 72 65 20 69 6e 69 74 69 61 ables are initia
2c70: 6c 69 7a 65 64 20 61 73 20 66 6f 6c 6c 6f 77 73 lized as follows
2c80: 3a 0a 20 20 20 20 2a 2a 0a 20 20 20 20 2a 2a 20 :. **. **
2c90: 20 20 66 6c 61 67 5f 61 6c 74 65 72 6e 61 74 65 flag_alternate
2ca0: 66 6f 72 6d 20 20 20 20 20 20 20 20 20 20 54 52 form TR
2cb0: 55 45 20 69 66 20 61 20 27 23 27 20 69 73 20 70 UE if a '#' is p
2cc0: 72 65 73 65 6e 74 2e 0a 20 20 20 20 2a 2a 20 20 resent.. **
2cd0: 20 66 6c 61 67 5f 61 6c 74 66 6f 72 6d 32 20 20 flag_altform2
2ce0: 20 20 20 20 20 20 20 20 20 20 20 20 20 54 52 55 TRU
2cf0: 45 20 69 66 20 61 20 27 21 27 20 69 73 20 70 72 E if a '!' is pr
2d00: 65 73 65 6e 74 2e 0a 20 20 20 20 2a 2a 20 20 20 esent.. **
2d10: 66 6c 61 67 5f 70 6c 75 73 73 69 67 6e 20 20 20 flag_plussign
2d20: 20 20 20 20 20 20 20 20 20 20 20 20 54 52 55 45 TRUE
2d30: 20 69 66 20 61 20 27 2b 27 20 69 73 20 70 72 65 if a '+' is pre
2d40: 73 65 6e 74 2e 0a 20 20 20 20 2a 2a 20 20 20 66 sent.. ** f
2d50: 6c 61 67 5f 6c 65 66 74 6a 75 73 74 69 66 79 20 lag_leftjustify
2d60: 20 20 20 20 20 20 20 20 20 20 20 54 52 55 45 20 TRUE
2d70: 69 66 20 61 20 27 2d 27 20 69 73 20 70 72 65 73 if a '-' is pres
2d80: 65 6e 74 20 6f 72 20 69 66 20 74 68 65 0a 20 20 ent or if the.
2d90: 20 20 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 **
2da0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2db0: 20 20 20 66 69 65 6c 64 20 77 69 64 74 68 20 77 field width w
2dc0: 61 73 20 6e 65 67 61 74 69 76 65 2e 0a 20 20 20 as negative..
2dd0: 20 2a 2a 20 20 20 66 6c 61 67 5f 7a 65 72 6f 70 ** flag_zerop
2de0: 61 64 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ad
2df0: 20 20 54 52 55 45 20 69 66 20 74 68 65 20 77 69 TRUE if the wi
2e00: 64 74 68 20 62 65 67 61 6e 20 77 69 74 68 20 30 dth began with 0
2e10: 2e 0a 20 20 20 20 2a 2a 20 20 20 66 6c 61 67 5f .. ** flag_
2e20: 6c 6f 6e 67 20 20 20 20 20 20 20 20 20 20 20 20 long
2e30: 20 20 20 20 20 20 20 54 52 55 45 20 69 66 20 74 TRUE if t
2e40: 68 65 20 6c 65 74 74 65 72 20 27 6c 27 20 28 65 he letter 'l' (e
2e50: 6c 6c 29 20 70 72 65 66 69 78 65 64 0a 20 20 20 ll) prefixed.
2e60: 20 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 **
2e70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2e80: 20 20 74 68 65 20 63 6f 6e 76 65 72 73 69 6f 6e the conversion
2e90: 20 63 68 61 72 61 63 74 65 72 2e 0a 20 20 20 20 character..
2ea0: 2a 2a 20 20 20 66 6c 61 67 5f 6c 6f 6e 67 6c 6f ** flag_longlo
2eb0: 6e 67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ng
2ec0: 20 54 52 55 45 20 69 66 20 74 68 65 20 6c 65 74 TRUE if the let
2ed0: 74 65 72 20 27 6c 6c 27 20 28 65 6c 6c 20 65 6c ter 'll' (ell el
2ee0: 6c 29 20 70 72 65 66 69 78 65 64 0a 20 20 20 20 l) prefixed.
2ef0: 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 **
2f00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2f10: 20 74 68 65 20 63 6f 6e 76 65 72 73 69 6f 6e 20 the conversion
2f20: 63 68 61 72 61 63 74 65 72 2e 0a 20 20 20 20 2a character.. *
2f30: 2a 20 20 20 66 6c 61 67 5f 62 6c 61 6e 6b 73 69 * flag_blanksi
2f40: 67 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 gn
2f50: 54 52 55 45 20 69 66 20 61 20 27 20 27 20 69 73 TRUE if a ' ' is
2f60: 20 70 72 65 73 65 6e 74 2e 0a 20 20 20 20 2a 2a present.. **
2f70: 20 20 20 77 69 64 74 68 20 20 20 20 20 20 20 20 width
2f80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 T
2f90: 68 65 20 73 70 65 63 69 66 69 65 64 20 66 69 65 he specified fie
2fa0: 6c 64 20 77 69 64 74 68 2e 20 20 54 68 69 73 20 ld width. This
2fb0: 69 73 0a 20 20 20 20 2a 2a 20 20 20 20 20 20 20 is. **
2fc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2fd0: 20 20 20 20 20 20 20 20 61 6c 77 61 79 73 20 6e always n
2fe0: 6f 6e 2d 6e 65 67 61 74 69 76 65 2e 20 20 5a 65 on-negative. Ze
2ff0: 72 6f 20 69 73 20 74 68 65 20 64 65 66 61 75 6c ro is the defaul
3000: 74 2e 0a 20 20 20 20 2a 2a 20 20 20 70 72 65 63 t.. ** prec
3010: 69 73 69 6f 6e 20 20 20 20 20 20 20 20 20 20 20 ision
3020: 20 20 20 20 20 20 20 20 54 68 65 20 73 70 65 63 The spec
3030: 69 66 69 65 64 20 70 72 65 63 69 73 69 6f 6e 2e ified precision.
3040: 20 20 54 68 65 20 64 65 66 61 75 6c 74 0a 20 20 The default.
3050: 20 20 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 **
3060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3070: 20 20 20 69 73 20 2d 31 2e 0a 20 20 20 20 2a 2a is -1.. **
3080: 20 20 20 78 74 79 70 65 20 20 20 20 20 20 20 20 xtype
3090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 T
30a0: 68 65 20 63 6c 61 73 73 20 6f 66 20 74 68 65 20 he class of the
30b0: 63 6f 6e 76 65 72 73 69 6f 6e 2e 0a 20 20 20 20 conversion..
30c0: 2a 2a 20 20 20 69 6e 66 6f 70 20 20 20 20 20 20 ** infop
30d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
30e0: 20 50 6f 69 6e 74 65 72 20 74 6f 20 74 68 65 20 Pointer to the
30f0: 61 70 70 72 6f 70 72 69 61 74 65 20 69 6e 66 6f appropriate info
3100: 20 73 74 72 75 63 74 2e 0a 20 20 20 20 2a 2f 0a struct.. */.
3110: 20 20 20 20 73 77 69 74 63 68 28 20 78 74 79 70 switch( xtyp
3120: 65 20 29 7b 0a 20 20 20 20 20 20 63 61 73 65 20 e ){. case
3130: 65 74 50 4f 49 4e 54 45 52 3a 0a 20 20 20 20 20 etPOINTER:.
3140: 20 20 20 66 6c 61 67 5f 6c 6f 6e 67 6c 6f 6e 67 flag_longlong
3150: 20 3d 20 73 69 7a 65 6f 66 28 63 68 61 72 2a 29 = sizeof(char*)
3160: 3d 3d 73 69 7a 65 6f 66 28 69 36 34 29 3b 0a 20 ==sizeof(i64);.
3170: 20 20 20 20 20 20 20 66 6c 61 67 5f 6c 6f 6e 67 flag_long
3180: 20 3d 20 73 69 7a 65 6f 66 28 63 68 61 72 2a 29 = sizeof(char*)
3190: 3d 3d 73 69 7a 65 6f 66 28 6c 6f 6e 67 20 69 6e ==sizeof(long in
31a0: 74 29 3b 0a 20 20 20 20 20 20 20 20 2f 2a 20 46 t);. /* F
31b0: 61 6c 6c 20 74 68 72 6f 75 67 68 20 69 6e 74 6f all through into
31c0: 20 74 68 65 20 6e 65 78 74 20 63 61 73 65 20 2a the next case *
31d0: 2f 0a 20 20 20 20 20 20 63 61 73 65 20 65 74 52 /. case etR
31e0: 41 44 49 58 3a 0a 20 20 20 20 20 20 20 20 69 66 ADIX:. if
31f0: 28 20 69 6e 66 6f 70 2d 3e 66 6c 61 67 73 20 26 ( infop->flags &
3200: 20 46 4c 41 47 5f 53 49 47 4e 45 44 20 29 7b 0a FLAG_SIGNED ){.
3210: 20 20 20 20 20 20 20 20 20 20 69 36 34 20 76 3b i64 v;
3220: 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20 66 . if( f
3230: 6c 61 67 5f 6c 6f 6e 67 6c 6f 6e 67 20 29 20 20 lag_longlong )
3240: 20 76 20 3d 20 76 61 5f 61 72 67 28 61 70 2c 69 v = va_arg(ap,i
3250: 36 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 65 64);. e
3260: 6c 73 65 20 69 66 28 20 66 6c 61 67 5f 6c 6f 6e lse if( flag_lon
3270: 67 20 29 20 20 76 20 3d 20 76 61 5f 61 72 67 28 g ) v = va_arg(
3280: 61 70 2c 6c 6f 6e 67 20 69 6e 74 29 3b 0a 20 20 ap,long int);.
3290: 20 20 20 20 20 20 20 20 65 6c 73 65 20 20 20 20 else
32a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 20 v
32b0: 3d 20 76 61 5f 61 72 67 28 61 70 2c 69 6e 74 29 = va_arg(ap,int)
32c0: 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20 ;. if(
32d0: 76 3c 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 v<0 ){.
32e0: 20 20 20 6c 6f 6e 67 76 61 6c 75 65 20 3d 20 2d longvalue = -
32f0: 76 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 v;. p
3300: 72 65 66 69 78 20 3d 20 27 2d 27 3b 0a 20 20 20 refix = '-';.
3310: 20 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 }else{.
3320: 20 20 20 20 20 20 20 20 20 20 6c 6f 6e 67 76 61 longva
3330: 6c 75 65 20 3d 20 76 3b 0a 20 20 20 20 20 20 20 lue = v;.
3340: 20 20 20 20 20 69 66 28 20 66 6c 61 67 5f 70 6c if( flag_pl
3350: 75 73 73 69 67 6e 20 29 20 20 20 20 20 20 20 20 ussign )
3360: 70 72 65 66 69 78 20 3d 20 27 2b 27 3b 0a 20 20 prefix = '+';.
3370: 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 69 else i
3380: 66 28 20 66 6c 61 67 5f 62 6c 61 6e 6b 73 69 67 f( flag_blanksig
3390: 6e 20 29 20 20 70 72 65 66 69 78 20 3d 20 27 20 n ) prefix = '
33a0: 27 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 ';. e
33b0: 6c 73 65 20 20 20 20 20 20 20 20 20 20 20 20 20 lse
33c0: 20 20 20 20 20 20 20 20 20 20 70 72 65 66 69 78 prefix
33d0: 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 = 0;.
33e0: 7d 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 65 7b }. }else{
33f0: 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20 66 . if( f
3400: 6c 61 67 5f 6c 6f 6e 67 6c 6f 6e 67 20 29 20 20 lag_longlong )
3410: 20 6c 6f 6e 67 76 61 6c 75 65 20 3d 20 76 61 5f longvalue = va_
3420: 61 72 67 28 61 70 2c 75 36 34 29 3b 0a 20 20 20 arg(ap,u64);.
3430: 20 20 20 20 20 20 20 65 6c 73 65 20 69 66 28 20 else if(
3440: 66 6c 61 67 5f 6c 6f 6e 67 20 29 20 20 6c 6f 6e flag_long ) lon
3450: 67 76 61 6c 75 65 20 3d 20 76 61 5f 61 72 67 28 gvalue = va_arg(
3460: 61 70 2c 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 ap,unsigned long
3470: 20 69 6e 74 29 3b 0a 20 20 20 20 20 20 20 20 20 int);.
3480: 20 65 6c 73 65 20 20 20 20 20 20 20 20 20 20 20 else
3490: 20 20 20 20 20 20 20 6c 6f 6e 67 76 61 6c 75 65 longvalue
34a0: 20 3d 20 76 61 5f 61 72 67 28 61 70 2c 75 6e 73 = va_arg(ap,uns
34b0: 69 67 6e 65 64 20 69 6e 74 29 3b 0a 20 20 20 20 igned int);.
34c0: 20 20 20 20 20 20 70 72 65 66 69 78 20 3d 20 30 prefix = 0
34d0: 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 ;. }.
34e0: 20 20 20 20 69 66 28 20 6c 6f 6e 67 76 61 6c 75 if( longvalu
34f0: 65 3d 3d 30 20 29 20 66 6c 61 67 5f 61 6c 74 65 e==0 ) flag_alte
3500: 72 6e 61 74 65 66 6f 72 6d 20 3d 20 30 3b 0a 20 rnateform = 0;.
3510: 20 20 20 20 20 20 20 69 66 28 20 66 6c 61 67 5f if( flag_
3520: 7a 65 72 6f 70 61 64 20 26 26 20 70 72 65 63 69 zeropad && preci
3530: 73 69 6f 6e 3c 77 69 64 74 68 2d 28 70 72 65 66 sion<width-(pref
3540: 69 78 21 3d 30 29 20 29 7b 0a 20 20 20 20 20 20 ix!=0) ){.
3550: 20 20 20 20 70 72 65 63 69 73 69 6f 6e 20 3d 20 precision =
3560: 77 69 64 74 68 2d 28 70 72 65 66 69 78 21 3d 30 width-(prefix!=0
3570: 29 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 );. }.
3580: 20 20 20 20 20 62 75 66 70 74 20 3d 20 26 62 75 bufpt = &bu
3590: 66 5b 65 74 42 55 46 53 49 5a 45 2d 31 5d 3b 0a f[etBUFSIZE-1];.
35a0: 20 20 20 20 20 20 20 20 7b 0a 20 20 20 20 20 20 {.
35b0: 20 20 20 20 72 65 67 69 73 74 65 72 20 63 6f 6e register con
35c0: 73 74 20 63 68 61 72 20 2a 63 73 65 74 3b 20 20 st char *cset;
35d0: 20 20 20 20 2f 2a 20 55 73 65 20 72 65 67 69 73 /* Use regis
35e0: 74 65 72 73 20 66 6f 72 20 73 70 65 65 64 20 2a ters for speed *
35f0: 2f 0a 20 20 20 20 20 20 20 20 20 20 72 65 67 69 /. regi
3600: 73 74 65 72 20 69 6e 74 20 62 61 73 65 3b 0a 20 ster int base;.
3610: 20 20 20 20 20 20 20 20 20 63 73 65 74 20 3d 20 cset =
3620: 26 61 44 69 67 69 74 73 5b 69 6e 66 6f 70 2d 3e &aDigits[infop->
3630: 63 68 61 72 73 65 74 5d 3b 0a 20 20 20 20 20 20 charset];.
3640: 20 20 20 20 62 61 73 65 20 3d 20 69 6e 66 6f 70 base = infop
3650: 2d 3e 62 61 73 65 3b 0a 20 20 20 20 20 20 20 20 ->base;.
3660: 20 20 64 6f 7b 20 20 20 20 20 20 20 20 20 20 20 do{
3670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3690: 2f 2a 20 43 6f 6e 76 65 72 74 20 74 6f 20 61 73 /* Convert to as
36a0: 63 69 69 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 cii */.
36b0: 20 20 20 2a 28 2d 2d 62 75 66 70 74 29 20 3d 20 *(--bufpt) =
36c0: 63 73 65 74 5b 6c 6f 6e 67 76 61 6c 75 65 25 62 cset[longvalue%b
36d0: 61 73 65 5d 3b 0a 20 20 20 20 20 20 20 20 20 20 ase];.
36e0: 20 20 6c 6f 6e 67 76 61 6c 75 65 20 3d 20 6c 6f longvalue = lo
36f0: 6e 67 76 61 6c 75 65 2f 62 61 73 65 3b 0a 20 20 ngvalue/base;.
3700: 20 20 20 20 20 20 20 20 7d 77 68 69 6c 65 28 20 }while(
3710: 6c 6f 6e 67 76 61 6c 75 65 3e 30 20 29 3b 0a 20 longvalue>0 );.
3720: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 }.
3730: 20 6c 65 6e 67 74 68 20 3d 20 26 62 75 66 5b 65 length = &buf[e
3740: 74 42 55 46 53 49 5a 45 2d 31 5d 2d 62 75 66 70 tBUFSIZE-1]-bufp
3750: 74 3b 0a 20 20 20 20 20 20 20 20 66 6f 72 28 69 t;. for(i
3760: 64 78 3d 70 72 65 63 69 73 69 6f 6e 2d 6c 65 6e dx=precision-len
3770: 67 74 68 3b 20 69 64 78 3e 30 3b 20 69 64 78 2d gth; idx>0; idx-
3780: 2d 29 7b 0a 20 20 20 20 20 20 20 20 20 20 2a 28 -){. *(
3790: 2d 2d 62 75 66 70 74 29 20 3d 20 27 30 27 3b 20 --bufpt) = '0';
37a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
37b0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 5a /* Z
37c0: 65 72 6f 20 70 61 64 20 2a 2f 0a 20 20 20 20 20 ero pad */.
37d0: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 69 66 28 }. if(
37e0: 20 70 72 65 66 69 78 20 29 20 2a 28 2d 2d 62 75 prefix ) *(--bu
37f0: 66 70 74 29 20 3d 20 70 72 65 66 69 78 3b 20 20 fpt) = prefix;
3800: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 /*
3810: 41 64 64 20 73 69 67 6e 20 2a 2f 0a 20 20 20 20 Add sign */.
3820: 20 20 20 20 69 66 28 20 66 6c 61 67 5f 61 6c 74 if( flag_alt
3830: 65 72 6e 61 74 65 66 6f 72 6d 20 26 26 20 69 6e ernateform && in
3840: 66 6f 70 2d 3e 70 72 65 66 69 78 20 29 7b 20 20 fop->prefix ){
3850: 20 20 20 20 2f 2a 20 41 64 64 20 22 30 22 20 6f /* Add "0" o
3860: 72 20 22 30 78 22 20 2a 2f 0a 20 20 20 20 20 20 r "0x" */.
3870: 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a const char *
3880: 70 72 65 3b 0a 20 20 20 20 20 20 20 20 20 20 63 pre;. c
3890: 68 61 72 20 78 3b 0a 20 20 20 20 20 20 20 20 20 har x;.
38a0: 20 70 72 65 20 3d 20 26 61 50 72 65 66 69 78 5b pre = &aPrefix[
38b0: 69 6e 66 6f 70 2d 3e 70 72 65 66 69 78 5d 3b 0a infop->prefix];.
38c0: 20 20 20 20 20 20 20 20 20 20 69 66 28 20 2a 62 if( *b
38d0: 75 66 70 74 21 3d 70 72 65 5b 30 5d 20 29 7b 0a ufpt!=pre[0] ){.
38e0: 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 28 for(
38f0: 3b 20 28 78 3d 28 2a 70 72 65 29 29 21 3d 30 3b ; (x=(*pre))!=0;
3900: 20 70 72 65 2b 2b 29 20 2a 28 2d 2d 62 75 66 70 pre++) *(--bufp
3910: 74 29 20 3d 20 78 3b 0a 20 20 20 20 20 20 20 20 t) = x;.
3920: 20 20 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 }. }.
3930: 20 20 20 20 20 20 6c 65 6e 67 74 68 20 3d 20 26 length = &
3940: 62 75 66 5b 65 74 42 55 46 53 49 5a 45 2d 31 5d buf[etBUFSIZE-1]
3950: 2d 62 75 66 70 74 3b 0a 20 20 20 20 20 20 20 20 -bufpt;.
3960: 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 63 61 73 break;. cas
3970: 65 20 65 74 46 4c 4f 41 54 3a 0a 20 20 20 20 20 e etFLOAT:.
3980: 20 63 61 73 65 20 65 74 45 58 50 3a 0a 20 20 20 case etEXP:.
3990: 20 20 20 63 61 73 65 20 65 74 47 45 4e 45 52 49 case etGENERI
39a0: 43 3a 0a 20 20 20 20 20 20 20 20 72 65 61 6c 76 C:. realv
39b0: 61 6c 75 65 20 3d 20 76 61 5f 61 72 67 28 61 70 alue = va_arg(ap
39c0: 2c 64 6f 75 62 6c 65 29 3b 0a 20 20 20 20 20 20 ,double);.
39d0: 20 20 69 66 28 20 70 72 65 63 69 73 69 6f 6e 3c if( precision<
39e0: 30 20 29 20 70 72 65 63 69 73 69 6f 6e 20 3d 20 0 ) precision =
39f0: 36 3b 20 20 20 20 20 20 20 20 20 2f 2a 20 53 65 6; /* Se
3a00: 74 20 64 65 66 61 75 6c 74 20 70 72 65 63 69 73 t default precis
3a10: 69 6f 6e 20 2a 2f 0a 20 20 20 20 20 20 20 20 69 ion */. i
3a20: 66 28 20 70 72 65 63 69 73 69 6f 6e 3e 65 74 42 f( precision>etB
3a30: 55 46 53 49 5a 45 2f 32 2d 31 30 20 29 20 70 72 UFSIZE/2-10 ) pr
3a40: 65 63 69 73 69 6f 6e 20 3d 20 65 74 42 55 46 53 ecision = etBUFS
3a50: 49 5a 45 2f 32 2d 31 30 3b 0a 20 20 20 20 20 20 IZE/2-10;.
3a60: 20 20 69 66 28 20 72 65 61 6c 76 61 6c 75 65 3c if( realvalue<
3a70: 30 2e 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 0.0 ){.
3a80: 20 72 65 61 6c 76 61 6c 75 65 20 3d 20 2d 72 65 realvalue = -re
3a90: 61 6c 76 61 6c 75 65 3b 0a 20 20 20 20 20 20 20 alvalue;.
3aa0: 20 20 20 70 72 65 66 69 78 20 3d 20 27 2d 27 3b prefix = '-';
3ab0: 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a . }else{.
3ac0: 20 20 20 20 20 20 20 20 20 20 69 66 28 20 66 6c if( fl
3ad0: 61 67 5f 70 6c 75 73 73 69 67 6e 20 29 20 20 20 ag_plussign )
3ae0: 20 20 20 20 20 20 20 70 72 65 66 69 78 20 3d 20 prefix =
3af0: 27 2b 27 3b 0a 20 20 20 20 20 20 20 20 20 20 65 '+';. e
3b00: 6c 73 65 20 69 66 28 20 66 6c 61 67 5f 62 6c 61 lse if( flag_bla
3b10: 6e 6b 73 69 67 6e 20 29 20 20 20 20 70 72 65 66 nksign ) pref
3b20: 69 78 20 3d 20 27 20 27 3b 0a 20 20 20 20 20 20 ix = ' ';.
3b30: 20 20 20 20 65 6c 73 65 20 20 20 20 20 20 20 20 else
3b40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3b50: 20 70 72 65 66 69 78 20 3d 20 30 3b 0a 20 20 20 prefix = 0;.
3b60: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 69 }. i
3b70: 66 28 20 78 74 79 70 65 3d 3d 65 74 47 45 4e 45 f( xtype==etGENE
3b80: 52 49 43 20 26 26 20 70 72 65 63 69 73 69 6f 6e RIC && precision
3b90: 3e 30 20 29 20 70 72 65 63 69 73 69 6f 6e 2d 2d >0 ) precision--
3ba0: 3b 0a 23 69 66 20 30 0a 20 20 20 20 20 20 20 20 ;.#if 0.
3bb0: 2f 2a 20 52 6f 75 6e 64 69 6e 67 20 77 6f 72 6b /* Rounding work
3bc0: 73 20 6c 69 6b 65 20 42 53 44 20 77 68 65 6e 20 s like BSD when
3bd0: 74 68 65 20 63 6f 6e 73 74 61 6e 74 20 30 2e 34 the constant 0.4
3be0: 39 39 39 20 69 73 20 75 73 65 64 2e 20 20 57 69 999 is used. Wi
3bf0: 65 72 64 21 20 2a 2f 0a 20 20 20 20 20 20 20 20 erd! */.
3c00: 66 6f 72 28 69 64 78 3d 70 72 65 63 69 73 69 6f for(idx=precisio
3c10: 6e 2c 20 72 6f 75 6e 64 65 72 3d 30 2e 34 39 39 n, rounder=0.499
3c20: 39 3b 20 69 64 78 3e 30 3b 20 69 64 78 2d 2d 2c 9; idx>0; idx--,
3c30: 20 72 6f 75 6e 64 65 72 2a 3d 30 2e 31 29 3b 0a rounder*=0.1);.
3c40: 23 65 6c 73 65 0a 20 20 20 20 20 20 20 20 2f 2a #else. /*
3c50: 20 49 74 20 6d 61 6b 65 73 20 6d 6f 72 65 20 73 It makes more s
3c60: 65 6e 73 65 20 74 6f 20 75 73 65 20 30 2e 35 20 ense to use 0.5
3c70: 2a 2f 0a 20 20 20 20 20 20 20 20 66 6f 72 28 69 */. for(i
3c80: 64 78 3d 70 72 65 63 69 73 69 6f 6e 2c 20 72 6f dx=precision, ro
3c90: 75 6e 64 65 72 3d 30 2e 35 3b 20 69 64 78 3e 30 under=0.5; idx>0
3ca0: 3b 20 69 64 78 2d 2d 2c 20 72 6f 75 6e 64 65 72 ; idx--, rounder
3cb0: 2a 3d 30 2e 31 29 3b 0a 23 65 6e 64 69 66 0a 20 *=0.1);.#endif.
3cc0: 20 20 20 20 20 20 20 69 66 28 20 78 74 79 70 65 if( xtype
3cd0: 3d 3d 65 74 46 4c 4f 41 54 20 29 20 72 65 61 6c ==etFLOAT ) real
3ce0: 76 61 6c 75 65 20 2b 3d 20 72 6f 75 6e 64 65 72 value += rounder
3cf0: 3b 0a 20 20 20 20 20 20 20 20 2f 2a 20 4e 6f 72 ;. /* Nor
3d00: 6d 61 6c 69 7a 65 20 72 65 61 6c 76 61 6c 75 65 malize realvalue
3d10: 20 74 6f 20 77 69 74 68 69 6e 20 31 30 2e 30 20 to within 10.0
3d20: 3e 20 72 65 61 6c 76 61 6c 75 65 20 3e 3d 20 31 > realvalue >= 1
3d30: 2e 30 20 2a 2f 0a 20 20 20 20 20 20 20 20 65 78 .0 */. ex
3d40: 70 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 69 p = 0;. i
3d50: 66 28 20 72 65 61 6c 76 61 6c 75 65 3e 30 2e 30 f( realvalue>0.0
3d60: 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 77 68 ){. wh
3d70: 69 6c 65 28 20 72 65 61 6c 76 61 6c 75 65 3e 3d ile( realvalue>=
3d80: 31 65 33 32 20 26 26 20 65 78 70 3c 3d 33 35 30 1e32 && exp<=350
3d90: 20 29 7b 20 72 65 61 6c 76 61 6c 75 65 20 2a 3d ){ realvalue *=
3da0: 20 31 65 2d 33 32 3b 20 65 78 70 2b 3d 33 32 3b 1e-32; exp+=32;
3db0: 20 7d 0a 20 20 20 20 20 20 20 20 20 20 77 68 69 }. whi
3dc0: 6c 65 28 20 72 65 61 6c 76 61 6c 75 65 3e 3d 31 le( realvalue>=1
3dd0: 65 38 20 26 26 20 65 78 70 3c 3d 33 35 30 20 29 e8 && exp<=350 )
3de0: 7b 20 72 65 61 6c 76 61 6c 75 65 20 2a 3d 20 31 { realvalue *= 1
3df0: 65 2d 38 3b 20 65 78 70 2b 3d 38 3b 20 7d 0a 20 e-8; exp+=8; }.
3e00: 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 28 20 while(
3e10: 72 65 61 6c 76 61 6c 75 65 3e 3d 31 30 2e 30 20 realvalue>=10.0
3e20: 26 26 20 65 78 70 3c 3d 33 35 30 20 29 7b 20 72 && exp<=350 ){ r
3e30: 65 61 6c 76 61 6c 75 65 20 2a 3d 20 30 2e 31 3b ealvalue *= 0.1;
3e40: 20 65 78 70 2b 2b 3b 20 7d 0a 20 20 20 20 20 20 exp++; }.
3e50: 20 20 20 20 77 68 69 6c 65 28 20 72 65 61 6c 76 while( realv
3e60: 61 6c 75 65 3c 31 65 2d 38 20 26 26 20 65 78 70 alue<1e-8 && exp
3e70: 3e 3d 2d 33 35 30 20 29 7b 20 72 65 61 6c 76 61 >=-350 ){ realva
3e80: 6c 75 65 20 2a 3d 20 31 65 38 3b 20 65 78 70 2d lue *= 1e8; exp-
3e90: 3d 38 3b 20 7d 0a 20 20 20 20 20 20 20 20 20 20 =8; }.
3ea0: 77 68 69 6c 65 28 20 72 65 61 6c 76 61 6c 75 65 while( realvalue
3eb0: 3c 31 2e 30 20 26 26 20 65 78 70 3e 3d 2d 33 35 <1.0 && exp>=-35
3ec0: 30 20 29 7b 20 72 65 61 6c 76 61 6c 75 65 20 2a 0 ){ realvalue *
3ed0: 3d 20 31 30 2e 30 3b 20 65 78 70 2d 2d 3b 20 7d = 10.0; exp--; }
3ee0: 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20 65 . if( e
3ef0: 78 70 3e 33 35 30 20 7c 7c 20 65 78 70 3c 2d 33 xp>350 || exp<-3
3f00: 35 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 50 ){.
3f10: 20 20 62 75 66 70 74 20 3d 20 22 4e 61 4e 22 3b bufpt = "NaN";
3f20: 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 65 6e . len
3f30: 67 74 68 20 3d 20 33 3b 0a 20 20 20 20 20 20 20 gth = 3;.
3f40: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 break;.
3f50: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 }.
3f60: 7d 0a 20 20 20 20 20 20 20 20 62 75 66 70 74 20 }. bufpt
3f70: 3d 20 62 75 66 3b 0a 20 20 20 20 20 20 20 20 2f = buf;. /
3f80: 2a 0a 20 20 20 20 20 20 20 20 2a 2a 20 49 66 20 *. ** If
3f90: 74 68 65 20 66 69 65 6c 64 20 74 79 70 65 20 69 the field type i
3fa0: 73 20 65 74 47 45 4e 45 52 49 43 2c 20 74 68 65 s etGENERIC, the
3fb0: 6e 20 63 6f 6e 76 65 72 74 20 74 6f 20 65 69 74 n convert to eit
3fc0: 68 65 72 20 65 74 45 58 50 0a 20 20 20 20 20 20 her etEXP.
3fd0: 20 20 2a 2a 20 6f 72 20 65 74 46 4c 4f 41 54 2c ** or etFLOAT,
3fe0: 20 61 73 20 61 70 70 72 6f 70 72 69 61 74 65 2e as appropriate.
3ff0: 0a 20 20 20 20 20 20 20 20 2a 2f 0a 20 20 20 20 . */.
4000: 20 20 20 20 66 6c 61 67 5f 65 78 70 20 3d 20 78 flag_exp = x
4010: 74 79 70 65 3d 3d 65 74 45 58 50 3b 0a 20 20 20 type==etEXP;.
4020: 20 20 20 20 20 69 66 28 20 78 74 79 70 65 21 3d if( xtype!=
4030: 65 74 46 4c 4f 41 54 20 29 7b 0a 20 20 20 20 20 etFLOAT ){.
4040: 20 20 20 20 20 72 65 61 6c 76 61 6c 75 65 20 2b realvalue +
4050: 3d 20 72 6f 75 6e 64 65 72 3b 0a 20 20 20 20 20 = rounder;.
4060: 20 20 20 20 20 69 66 28 20 72 65 61 6c 76 61 6c if( realval
4070: 75 65 3e 3d 31 30 2e 30 20 29 7b 20 72 65 61 6c ue>=10.0 ){ real
4080: 76 61 6c 75 65 20 2a 3d 20 30 2e 31 3b 20 65 78 value *= 0.1; ex
4090: 70 2b 2b 3b 20 7d 0a 20 20 20 20 20 20 20 20 7d p++; }. }
40a0: 0a 20 20 20 20 20 20 20 20 69 66 28 20 78 74 79 . if( xty
40b0: 70 65 3d 3d 65 74 47 45 4e 45 52 49 43 20 29 7b pe==etGENERIC ){
40c0: 0a 20 20 20 20 20 20 20 20 20 20 66 6c 61 67 5f . flag_
40d0: 72 74 7a 20 3d 20 21 66 6c 61 67 5f 61 6c 74 65 rtz = !flag_alte
40e0: 72 6e 61 74 65 66 6f 72 6d 3b 0a 20 20 20 20 20 rnateform;.
40f0: 20 20 20 20 20 69 66 28 20 65 78 70 3c 2d 34 20 if( exp<-4
4100: 7c 7c 20 65 78 70 3e 70 72 65 63 69 73 69 6f 6e || exp>precision
4110: 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ){.
4120: 78 74 79 70 65 20 3d 20 65 74 45 58 50 3b 0a 20 xtype = etEXP;.
4130: 20 20 20 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a }else{.
4140: 20 20 20 20 20 20 20 20 20 20 20 20 70 72 65 63 prec
4150: 69 73 69 6f 6e 20 3d 20 70 72 65 63 69 73 69 6f ision = precisio
4160: 6e 20 2d 20 65 78 70 3b 0a 20 20 20 20 20 20 20 n - exp;.
4170: 20 20 20 20 20 78 74 79 70 65 20 3d 20 65 74 46 xtype = etF
4180: 4c 4f 41 54 3b 0a 20 20 20 20 20 20 20 20 20 20 LOAT;.
4190: 7d 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 65 7b }. }else{
41a0: 0a 20 20 20 20 20 20 20 20 20 20 66 6c 61 67 5f . flag_
41b0: 72 74 7a 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 rtz = 0;.
41c0: 20 7d 0a 20 20 20 20 20 20 20 20 69 66 28 20 78 }. if( x
41d0: 74 79 70 65 3d 3d 65 74 45 58 50 20 29 7b 0a 20 type==etEXP ){.
41e0: 20 20 20 20 20 20 20 20 20 65 32 20 3d 20 30 3b e2 = 0;
41f0: 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a . }else{.
4200: 20 20 20 20 20 20 20 20 20 20 65 32 20 3d 20 65 e2 = e
4210: 78 70 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 xp;. }.
4220: 20 20 20 20 20 20 6e 73 64 20 3d 20 30 3b 0a 20 nsd = 0;.
4230: 20 20 20 20 20 20 20 66 6c 61 67 5f 64 70 20 3d flag_dp =
4240: 20 28 70 72 65 63 69 73 69 6f 6e 3e 30 29 20 7c (precision>0) |
4250: 20 66 6c 61 67 5f 61 6c 74 65 72 6e 61 74 65 66 flag_alternatef
4260: 6f 72 6d 20 7c 20 66 6c 61 67 5f 61 6c 74 66 6f orm | flag_altfo
4270: 72 6d 32 3b 0a 20 20 20 20 20 20 20 20 2f 2a 20 rm2;. /*
4280: 54 68 65 20 73 69 67 6e 20 69 6e 20 66 72 6f 6e The sign in fron
4290: 74 20 6f 66 20 74 68 65 20 6e 75 6d 62 65 72 20 t of the number
42a0: 2a 2f 0a 20 20 20 20 20 20 20 20 69 66 28 20 70 */. if( p
42b0: 72 65 66 69 78 20 29 7b 0a 20 20 20 20 20 20 20 refix ){.
42c0: 20 20 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 *(bufpt++) =
42d0: 70 72 65 66 69 78 3b 0a 20 20 20 20 20 20 20 20 prefix;.
42e0: 7d 0a 20 20 20 20 20 20 20 20 2f 2a 20 44 69 67 }. /* Dig
42f0: 69 74 73 20 70 72 69 6f 72 20 74 6f 20 74 68 65 its prior to the
4300: 20 64 65 63 69 6d 61 6c 20 70 6f 69 6e 74 20 2a decimal point *
4310: 2f 0a 20 20 20 20 20 20 20 20 69 66 28 20 65 32 /. if( e2
4320: 3c 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 <0 ){.
4330: 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 27 30 27 *(bufpt++) = '0'
4340: 3b 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 65 7b ;. }else{
4350: 0a 20 20 20 20 20 20 20 20 20 20 66 6f 72 28 3b . for(;
4360: 20 65 32 3e 3d 30 3b 20 65 32 2d 2d 29 7b 0a 20 e2>=0; e2--){.
4370: 20 20 20 20 20 20 20 20 20 20 20 2a 28 62 75 66 *(buf
4380: 70 74 2b 2b 29 20 3d 20 65 74 5f 67 65 74 64 69 pt++) = et_getdi
4390: 67 69 74 28 26 72 65 61 6c 76 61 6c 75 65 2c 26 git(&realvalue,&
43a0: 6e 73 64 29 3b 0a 20 20 20 20 20 20 20 20 20 20 nsd);.
43b0: 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 }. }.
43c0: 20 20 20 20 2f 2a 20 54 68 65 20 64 65 63 69 6d /* The decim
43d0: 61 6c 20 70 6f 69 6e 74 20 2a 2f 0a 20 20 20 20 al point */.
43e0: 20 20 20 20 69 66 28 20 66 6c 61 67 5f 64 70 20 if( flag_dp
43f0: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 2a 28 62 ){. *(b
4400: 75 66 70 74 2b 2b 29 20 3d 20 27 2e 27 3b 0a 20 ufpt++) = '.';.
4410: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 }.
4420: 20 2f 2a 20 22 30 22 20 64 69 67 69 74 73 20 61 /* "0" digits a
4430: 66 74 65 72 20 74 68 65 20 64 65 63 69 6d 61 6c fter the decimal
4440: 20 70 6f 69 6e 74 20 62 75 74 20 62 65 66 6f 72 point but befor
4450: 65 20 74 68 65 20 66 69 72 73 74 0a 20 20 20 20 e the first.
4460: 20 20 20 20 2a 2a 20 73 69 67 6e 69 66 69 63 61 ** significa
4470: 6e 74 20 64 69 67 69 74 20 6f 66 20 74 68 65 20 nt digit of the
4480: 6e 75 6d 62 65 72 20 2a 2f 0a 20 20 20 20 20 20 number */.
4490: 20 20 66 6f 72 28 65 32 2b 2b 3b 20 65 32 3c 30 for(e2++; e2<0
44a0: 20 26 26 20 70 72 65 63 69 73 69 6f 6e 3e 30 3b && precision>0;
44b0: 20 70 72 65 63 69 73 69 6f 6e 2d 2d 2c 20 65 32 precision--, e2
44c0: 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20 20 20 2a ++){. *
44d0: 28 62 75 66 70 74 2b 2b 29 20 3d 20 27 30 27 3b (bufpt++) = '0';
44e0: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 . }.
44f0: 20 20 20 2f 2a 20 53 69 67 6e 69 66 69 63 61 6e /* Significan
4500: 74 20 64 69 67 69 74 73 20 61 66 74 65 72 20 74 t digits after t
4510: 68 65 20 64 65 63 69 6d 61 6c 20 70 6f 69 6e 74 he decimal point
4520: 20 2a 2f 0a 20 20 20 20 20 20 20 20 77 68 69 6c */. whil
4530: 65 28 20 28 70 72 65 63 69 73 69 6f 6e 2d 2d 29 e( (precision--)
4540: 3e 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 >0 ){.
4550: 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 65 74 5f *(bufpt++) = et_
4560: 67 65 74 64 69 67 69 74 28 26 72 65 61 6c 76 61 getdigit(&realva
4570: 6c 75 65 2c 26 6e 73 64 29 3b 0a 20 20 20 20 20 lue,&nsd);.
4580: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 2f 2a 20 }. /*
4590: 52 65 6d 6f 76 65 20 74 72 61 69 6c 69 6e 67 20 Remove trailing
45a0: 7a 65 72 6f 73 20 61 6e 64 20 74 68 65 20 22 2e zeros and the ".
45b0: 22 20 69 66 20 6e 6f 20 64 69 67 69 74 73 20 66 " if no digits f
45c0: 6f 6c 6c 6f 77 20 74 68 65 20 22 2e 22 20 2a 2f ollow the "." */
45d0: 0a 20 20 20 20 20 20 20 20 69 66 28 20 66 6c 61 . if( fla
45e0: 67 5f 72 74 7a 20 26 26 20 66 6c 61 67 5f 64 70 g_rtz && flag_dp
45f0: 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 77 68 ){. wh
4600: 69 6c 65 28 20 62 75 66 70 74 5b 2d 31 5d 3d 3d ile( bufpt[-1]==
4610: 27 30 27 20 29 20 2a 28 2d 2d 62 75 66 70 74 29 '0' ) *(--bufpt)
4620: 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 = 0;.
4630: 61 73 73 65 72 74 28 20 62 75 66 70 74 3e 62 75 assert( bufpt>bu
4640: 66 20 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69 f );. i
4650: 66 28 20 62 75 66 70 74 5b 2d 31 5d 3d 3d 27 2e f( bufpt[-1]=='.
4660: 27 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20 ' ){.
4670: 20 69 66 28 20 66 6c 61 67 5f 61 6c 74 66 6f 72 if( flag_altfor
4680: 6d 32 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 m2 ){.
4690: 20 20 20 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d *(bufpt++) =
46a0: 20 27 30 27 3b 0a 20 20 20 20 20 20 20 20 20 20 '0';.
46b0: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 }else{.
46c0: 20 20 20 20 20 20 20 2a 28 2d 2d 62 75 66 70 74 *(--bufpt
46d0: 29 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 ) = 0;.
46e0: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20 7d }. }
46f0: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 . }.
4700: 20 20 20 2f 2a 20 41 64 64 20 74 68 65 20 22 65 /* Add the "e
4710: 4e 4e 4e 22 20 73 75 66 66 69 78 20 2a 2f 0a 20 NNN" suffix */.
4720: 20 20 20 20 20 20 20 69 66 28 20 66 6c 61 67 5f if( flag_
4730: 65 78 70 20 7c 7c 20 28 78 74 79 70 65 3d 3d 65 exp || (xtype==e
4740: 74 45 58 50 20 26 26 20 65 78 70 29 20 29 7b 0a tEXP && exp) ){.
4750: 20 20 20 20 20 20 20 20 20 20 2a 28 62 75 66 70 *(bufp
4760: 74 2b 2b 29 20 3d 20 61 44 69 67 69 74 73 5b 69 t++) = aDigits[i
4770: 6e 66 6f 70 2d 3e 63 68 61 72 73 65 74 5d 3b 0a nfop->charset];.
4780: 20 20 20 20 20 20 20 20 20 20 69 66 28 20 65 78 if( ex
4790: 70 3c 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 p<0 ){.
47a0: 20 20 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 *(bufpt++) =
47b0: 27 2d 27 3b 20 65 78 70 20 3d 20 2d 65 78 70 3b '-'; exp = -exp;
47c0: 0a 20 20 20 20 20 20 20 20 20 20 7d 65 6c 73 65 . }else
47d0: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 2a 28 {. *(
47e0: 62 75 66 70 74 2b 2b 29 20 3d 20 27 2b 27 3b 0a bufpt++) = '+';.
47f0: 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 }.
4800: 20 20 20 20 20 20 69 66 28 20 65 78 70 3e 3d 31 if( exp>=1
4810: 30 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 00 ){.
4820: 20 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 28 *(bufpt++) = (
4830: 65 78 70 2f 31 30 30 29 2b 27 30 27 3b 20 20 20 exp/100)+'0';
4840: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 /*
4850: 31 30 30 27 73 20 64 69 67 69 74 20 2a 2f 0a 20 100's digit */.
4860: 20 20 20 20 20 20 20 20 20 20 20 65 78 70 20 25 exp %
4870: 3d 20 31 30 30 3b 0a 20 20 20 20 20 20 20 20 20 = 100;.
4880: 20 7d 0a 20 20 20 20 20 20 20 20 20 20 2a 28 62 }. *(b
4890: 75 66 70 74 2b 2b 29 20 3d 20 65 78 70 2f 31 30 ufpt++) = exp/10
48a0: 2b 27 30 27 3b 20 20 20 20 20 20 20 20 20 20 20 +'0';
48b0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 31 30 27 /* 10'
48c0: 73 20 64 69 67 69 74 20 2a 2f 0a 20 20 20 20 20 s digit */.
48d0: 20 20 20 20 20 2a 28 62 75 66 70 74 2b 2b 29 20 *(bufpt++)
48e0: 3d 20 65 78 70 25 31 30 2b 27 30 27 3b 20 20 20 = exp%10+'0';
48f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4900: 20 20 2f 2a 20 31 27 73 20 64 69 67 69 74 20 2a /* 1's digit *
4910: 2f 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 /. }.
4920: 20 20 20 20 2a 62 75 66 70 74 20 3d 20 30 3b 0a *bufpt = 0;.
4930: 0a 20 20 20 20 20 20 20 20 2f 2a 20 54 68 65 20 . /* The
4940: 63 6f 6e 76 65 72 74 65 64 20 6e 75 6d 62 65 72 converted number
4950: 20 69 73 20 69 6e 20 62 75 66 5b 5d 20 61 6e 64 is in buf[] and
4960: 20 7a 65 72 6f 20 74 65 72 6d 69 6e 61 74 65 64 zero terminated
4970: 2e 20 4f 75 74 70 75 74 20 69 74 2e 0a 20 20 20 . Output it..
4980: 20 20 20 20 20 2a 2a 20 4e 6f 74 65 20 74 68 61 ** Note tha
4990: 74 20 74 68 65 20 6e 75 6d 62 65 72 20 69 73 20 t the number is
49a0: 69 6e 20 74 68 65 20 75 73 75 61 6c 20 6f 72 64 in the usual ord
49b0: 65 72 2c 20 6e 6f 74 20 72 65 76 65 72 73 65 64 er, not reversed
49c0: 20 61 73 20 77 69 74 68 0a 20 20 20 20 20 20 20 as with.
49d0: 20 2a 2a 20 69 6e 74 65 67 65 72 20 63 6f 6e 76 ** integer conv
49e0: 65 72 73 69 6f 6e 73 2e 20 2a 2f 0a 20 20 20 20 ersions. */.
49f0: 20 20 20 20 6c 65 6e 67 74 68 20 3d 20 62 75 66 length = buf
4a00: 70 74 2d 62 75 66 3b 0a 20 20 20 20 20 20 20 20 pt-buf;.
4a10: 62 75 66 70 74 20 3d 20 62 75 66 3b 0a 0a 20 20 bufpt = buf;..
4a20: 20 20 20 20 20 20 2f 2a 20 53 70 65 63 69 61 6c /* Special
4a30: 20 63 61 73 65 3a 20 20 41 64 64 20 6c 65 61 64 case: Add lead
4a40: 69 6e 67 20 7a 65 72 6f 73 20 69 66 20 74 68 65 ing zeros if the
4a50: 20 66 6c 61 67 5f 7a 65 72 6f 70 61 64 20 66 6c flag_zeropad fl
4a60: 61 67 20 69 73 0a 20 20 20 20 20 20 20 20 2a 2a ag is. **
4a70: 20 73 65 74 20 61 6e 64 20 77 65 20 61 72 65 20 set and we are
4a80: 6e 6f 74 20 6c 65 66 74 20 6a 75 73 74 69 66 69 not left justifi
4a90: 65 64 20 2a 2f 0a 20 20 20 20 20 20 20 20 69 66 ed */. if
4aa0: 28 20 66 6c 61 67 5f 7a 65 72 6f 70 61 64 20 26 ( flag_zeropad &
4ab0: 26 20 21 66 6c 61 67 5f 6c 65 66 74 6a 75 73 74 & !flag_leftjust
4ac0: 69 66 79 20 26 26 20 6c 65 6e 67 74 68 20 3c 20 ify && length <
4ad0: 77 69 64 74 68 29 7b 0a 20 20 20 20 20 20 20 20 width){.
4ae0: 20 20 69 6e 74 20 69 3b 0a 20 20 20 20 20 20 20 int i;.
4af0: 20 20 20 69 6e 74 20 6e 50 61 64 20 3d 20 77 69 int nPad = wi
4b00: 64 74 68 20 2d 20 6c 65 6e 67 74 68 3b 0a 20 20 dth - length;.
4b10: 20 20 20 20 20 20 20 20 66 6f 72 28 69 3d 77 69 for(i=wi
4b20: 64 74 68 3b 20 69 3e 3d 6e 50 61 64 3b 20 69 2d dth; i>=nPad; i-
4b30: 2d 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 -){.
4b40: 62 75 66 70 74 5b 69 5d 20 3d 20 62 75 66 70 74 bufpt[i] = bufpt
4b50: 5b 69 2d 6e 50 61 64 5d 3b 0a 20 20 20 20 20 20 [i-nPad];.
4b60: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20 }.
4b70: 69 20 3d 20 70 72 65 66 69 78 21 3d 30 3b 0a 20 i = prefix!=0;.
4b80: 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 28 20 while(
4b90: 6e 50 61 64 2d 2d 20 29 20 62 75 66 70 74 5b 69 nPad-- ) bufpt[i
4ba0: 2b 2b 5d 20 3d 20 27 30 27 3b 0a 20 20 20 20 20 ++] = '0';.
4bb0: 20 20 20 20 20 6c 65 6e 67 74 68 20 3d 20 77 69 length = wi
4bc0: 64 74 68 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 dth;. }.
4bd0: 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 break;.
4be0: 20 20 20 20 63 61 73 65 20 65 74 53 49 5a 45 3a case etSIZE:
4bf0: 0a 20 20 20 20 20 20 20 20 2a 28 76 61 5f 61 72 . *(va_ar
4c00: 67 28 61 70 2c 69 6e 74 2a 29 29 20 3d 20 63 6f g(ap,int*)) = co
4c10: 75 6e 74 3b 0a 20 20 20 20 20 20 20 20 6c 65 6e unt;. len
4c20: 67 74 68 20 3d 20 77 69 64 74 68 20 3d 20 30 3b gth = width = 0;
4c30: 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a . break;.
4c40: 20 20 20 20 20 20 63 61 73 65 20 65 74 50 45 52 case etPER
4c50: 43 45 4e 54 3a 0a 20 20 20 20 20 20 20 20 62 75 CENT:. bu
4c60: 66 5b 30 5d 20 3d 20 27 25 27 3b 0a 20 20 20 20 f[0] = '%';.
4c70: 20 20 20 20 62 75 66 70 74 20 3d 20 62 75 66 3b bufpt = buf;
4c80: 0a 20 20 20 20 20 20 20 20 6c 65 6e 67 74 68 20 . length
4c90: 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 62 72 65 = 1;. bre
4ca0: 61 6b 3b 0a 20 20 20 20 20 20 63 61 73 65 20 65 ak;. case e
4cb0: 74 43 48 41 52 58 3a 0a 20 20 20 20 20 20 20 20 tCHARX:.
4cc0: 63 20 3d 20 62 75 66 5b 30 5d 20 3d 20 28 78 74 c = buf[0] = (xt
4cd0: 79 70 65 3d 3d 65 74 43 48 41 52 58 20 3f 20 76 ype==etCHARX ? v
4ce0: 61 5f 61 72 67 28 61 70 2c 69 6e 74 29 20 3a 20 a_arg(ap,int) :
4cf0: 2a 2b 2b 66 6d 74 29 3b 0a 20 20 20 20 20 20 20 *++fmt);.
4d00: 20 69 66 28 20 70 72 65 63 69 73 69 6f 6e 3e 3d if( precision>=
4d10: 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 66 0 ){. f
4d20: 6f 72 28 69 64 78 3d 31 3b 20 69 64 78 3c 70 72 or(idx=1; idx<pr
4d30: 65 63 69 73 69 6f 6e 3b 20 69 64 78 2b 2b 29 20 ecision; idx++)
4d40: 62 75 66 5b 69 64 78 5d 20 3d 20 63 3b 0a 20 20 buf[idx] = c;.
4d50: 20 20 20 20 20 20 20 20 6c 65 6e 67 74 68 20 3d length =
4d60: 20 70 72 65 63 69 73 69 6f 6e 3b 0a 20 20 20 20 precision;.
4d70: 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 }else{.
4d80: 20 20 20 20 20 6c 65 6e 67 74 68 20 3d 31 3b 0a length =1;.
4d90: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 }.
4da0: 20 20 62 75 66 70 74 20 3d 20 62 75 66 3b 0a 20 bufpt = buf;.
4db0: 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 break;.
4dc0: 20 20 20 20 63 61 73 65 20 65 74 53 54 52 49 4e case etSTRIN
4dd0: 47 3a 0a 20 20 20 20 20 20 63 61 73 65 20 65 74 G:. case et
4de0: 44 59 4e 53 54 52 49 4e 47 3a 0a 20 20 20 20 20 DYNSTRING:.
4df0: 20 20 20 62 75 66 70 74 20 3d 20 76 61 5f 61 72 bufpt = va_ar
4e00: 67 28 61 70 2c 63 68 61 72 2a 29 3b 0a 20 20 20 g(ap,char*);.
4e10: 20 20 20 20 20 69 66 28 20 62 75 66 70 74 3d 3d if( bufpt==
4e20: 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 62 0 ){. b
4e30: 75 66 70 74 20 3d 20 22 22 3b 0a 20 20 20 20 20 ufpt = "";.
4e40: 20 20 20 7d 65 6c 73 65 20 69 66 28 20 78 74 79 }else if( xty
4e50: 70 65 3d 3d 65 74 44 59 4e 53 54 52 49 4e 47 20 pe==etDYNSTRING
4e60: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 7a 45 78 ){. zEx
4e70: 74 72 61 20 3d 20 62 75 66 70 74 3b 0a 20 20 20 tra = bufpt;.
4e80: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 6c }. l
4e90: 65 6e 67 74 68 20 3d 20 73 74 72 6c 65 6e 28 62 ength = strlen(b
4ea0: 75 66 70 74 29 3b 0a 20 20 20 20 20 20 20 20 69 ufpt);. i
4eb0: 66 28 20 70 72 65 63 69 73 69 6f 6e 3e 3d 30 20 f( precision>=0
4ec0: 26 26 20 70 72 65 63 69 73 69 6f 6e 3c 6c 65 6e && precision<len
4ed0: 67 74 68 20 29 20 6c 65 6e 67 74 68 20 3d 20 70 gth ) length = p
4ee0: 72 65 63 69 73 69 6f 6e 3b 0a 20 20 20 20 20 20 recision;.
4ef0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 63 break;. c
4f00: 61 73 65 20 65 74 42 4c 4f 42 3a 20 7b 0a 20 20 ase etBLOB: {.
4f10: 20 20 20 20 20 20 42 6c 6f 62 20 2a 70 42 6c 6f Blob *pBlo
4f20: 62 20 3d 20 76 61 5f 61 72 67 28 61 70 2c 20 42 b = va_arg(ap, B
4f30: 6c 6f 62 2a 29 3b 0a 20 20 20 20 20 20 20 20 62 lob*);. b
4f40: 75 66 70 74 20 3d 20 62 6c 6f 62 5f 62 75 66 66 ufpt = blob_buff
4f50: 65 72 28 70 42 6c 6f 62 29 3b 0a 20 20 20 20 20 er(pBlob);.
4f60: 20 20 20 6c 65 6e 67 74 68 20 3d 20 62 6c 6f 62 length = blob
4f70: 5f 73 69 7a 65 28 70 42 6c 6f 62 29 3b 0a 20 20 _size(pBlob);.
4f80: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 break;.
4f90: 20 20 20 7d 0a 20 20 20 20 20 20 63 61 73 65 20 }. case
4fa0: 65 74 42 4c 4f 42 53 51 4c 3a 20 7b 0a 20 20 20 etBLOBSQL: {.
4fb0: 20 20 20 20 20 42 6c 6f 62 20 2a 70 42 6c 6f 62 Blob *pBlob
4fc0: 20 3d 20 76 61 5f 61 72 67 28 61 70 2c 20 42 6c = va_arg(ap, Bl
4fd0: 6f 62 2a 29 3b 0a 20 20 20 20 20 20 20 20 63 68 ob*);. ch
4fe0: 61 72 20 2a 7a 4f 72 69 67 20 3d 20 62 6c 6f 62 ar *zOrig = blob
4ff0: 5f 62 75 66 66 65 72 28 70 42 6c 6f 62 29 3b 0a _buffer(pBlob);.
5000: 20 20 20 20 20 20 20 20 69 6e 74 20 69 2c 20 6a int i, j
5010: 2c 20 6e 2c 20 63 6e 74 3b 0a 20 20 20 20 20 20 , n, cnt;.
5020: 20 20 6e 20 3d 20 62 6c 6f 62 5f 73 69 7a 65 28 n = blob_size(
5030: 70 42 6c 6f 62 29 3b 0a 20 20 20 20 20 20 20 20 pBlob);.
5040: 66 6f 72 28 63 6e 74 3d 69 3d 30 3b 20 69 3c 6e for(cnt=i=0; i<n
5050: 3b 20 69 2b 2b 29 7b 20 69 66 28 20 7a 4f 72 69 ; i++){ if( zOri
5060: 67 5b 69 5d 3d 3d 27 5c 27 27 20 29 20 63 6e 74 g[i]=='\'' ) cnt
5070: 2b 2b 3b 20 7d 0a 20 20 20 20 20 20 20 20 69 66 ++; }. if
5080: 28 20 6e 2b 63 6e 74 2b 32 20 3e 20 65 74 42 55 ( n+cnt+2 > etBU
5090: 46 53 49 5a 45 20 29 7b 0a 20 20 20 20 20 20 20 FSIZE ){.
50a0: 20 20 20 62 75 66 70 74 20 3d 20 7a 45 78 74 72 bufpt = zExtr
50b0: 61 20 3d 20 6d 61 6c 6c 6f 63 28 20 6e 20 2b 20 a = malloc( n +
50c0: 63 6e 74 20 2b 20 32 20 29 3b 0a 20 20 20 20 20 cnt + 2 );.
50d0: 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 }else{.
50e0: 20 20 20 20 62 75 66 70 74 20 3d 20 62 75 66 3b bufpt = buf;
50f0: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 . }.
5100: 20 20 20 62 75 66 70 74 5b 30 5d 20 3d 20 27 5c bufpt[0] = '\
5110: 27 27 3b 0a 20 20 20 20 20 20 20 20 66 6f 72 28 '';. for(
5120: 69 3d 30 2c 20 6a 3d 31 3b 20 69 3c 6e 3b 20 69 i=0, j=1; i<n; i
5130: 2b 2b 2c 20 6a 2b 2b 29 7b 0a 20 20 20 20 20 20 ++, j++){.
5140: 20 20 20 20 69 66 28 20 7a 4f 72 69 67 5b 69 5d if( zOrig[i]
5150: 3d 3d 27 5c 27 27 20 29 7b 20 62 75 66 70 74 5b =='\'' ){ bufpt[
5160: 6a 2b 2b 5d 20 3d 20 27 5c 27 27 3b 20 7d 0a 20 j++] = '\''; }.
5170: 20 20 20 20 20 20 20 20 20 62 75 66 70 74 5b 6a bufpt[j
5180: 5d 20 3d 20 7a 4f 72 69 67 5b 69 5d 3b 0a 20 20 ] = zOrig[i];.
5190: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 }.
51a0: 62 75 66 70 74 5b 6a 2b 2b 5d 20 3d 20 27 5c 27 bufpt[j++] = '\'
51b0: 27 3b 0a 20 20 20 20 20 20 20 20 6c 65 6e 67 74 ';. lengt
51c0: 68 20 3d 20 6a 3b 0a 20 20 20 20 20 20 20 20 61 h = j;. a
51d0: 73 73 65 72 74 28 20 6c 65 6e 67 74 68 3d 3d 6e ssert( length==n
51e0: 2b 63 6e 74 2b 32 20 29 3b 0a 20 20 20 20 20 20 +cnt+2 );.
51f0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 7d break;. }
5200: 0a 20 20 20 20 20 20 63 61 73 65 20 65 74 53 51 . case etSQ
5210: 4c 45 53 43 41 50 45 3a 0a 20 20 20 20 20 20 63 LESCAPE:. c
5220: 61 73 65 20 65 74 53 51 4c 45 53 43 41 50 45 32 ase etSQLESCAPE2
5230: 3a 20 7b 0a 20 20 20 20 20 20 20 20 69 6e 74 20 : {. int
5240: 69 2c 20 6a 2c 20 6e 2c 20 63 68 2c 20 69 73 6e i, j, n, ch, isn
5250: 75 6c 6c 3b 0a 20 20 20 20 20 20 20 20 69 6e 74 ull;. int
5260: 20 6e 65 65 64 51 75 6f 74 65 3b 0a 20 20 20 20 needQuote;.
5270: 20 20 20 20 63 68 61 72 20 2a 65 73 63 61 72 67 char *escarg
5280: 20 3d 20 76 61 5f 61 72 67 28 61 70 2c 63 68 61 = va_arg(ap,cha
5290: 72 2a 29 3b 0a 20 20 20 20 20 20 20 20 69 73 6e r*);. isn
52a0: 75 6c 6c 20 3d 20 65 73 63 61 72 67 3d 3d 30 3b ull = escarg==0;
52b0: 0a 20 20 20 20 20 20 20 20 69 66 28 20 69 73 6e . if( isn
52c0: 75 6c 6c 20 29 20 65 73 63 61 72 67 20 3d 20 28 ull ) escarg = (
52d0: 78 74 79 70 65 3d 3d 65 74 53 51 4c 45 53 43 41 xtype==etSQLESCA
52e0: 50 45 32 20 3f 20 22 4e 55 4c 4c 22 20 3a 20 22 PE2 ? "NULL" : "
52f0: 28 4e 55 4c 4c 29 22 29 3b 0a 20 20 20 20 20 20 (NULL)");.
5300: 20 20 66 6f 72 28 69 3d 6e 3d 30 3b 20 28 63 68 for(i=n=0; (ch
5310: 3d 65 73 63 61 72 67 5b 69 5d 29 21 3d 30 3b 20 =escarg[i])!=0;
5320: 69 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20 20 20 i++){.
5330: 69 66 28 20 63 68 3d 3d 27 5c 27 27 20 29 20 20 if( ch=='\'' )
5340: 6e 2b 2b 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 n++;. }.
5350: 20 20 20 20 20 20 20 6e 65 65 64 51 75 6f 74 65 needQuote
5360: 20 3d 20 21 69 73 6e 75 6c 6c 20 26 26 20 78 74 = !isnull && xt
5370: 79 70 65 3d 3d 65 74 53 51 4c 45 53 43 41 50 45 ype==etSQLESCAPE
5380: 32 3b 0a 20 20 20 20 20 20 20 20 6e 20 2b 3d 20 2;. n +=
5390: 69 20 2b 20 31 20 2b 20 6e 65 65 64 51 75 6f 74 i + 1 + needQuot
53a0: 65 2a 32 3b 0a 20 20 20 20 20 20 20 20 69 66 28 e*2;. if(
53b0: 20 6e 3e 65 74 42 55 46 53 49 5a 45 20 29 7b 0a n>etBUFSIZE ){.
53c0: 20 20 20 20 20 20 20 20 20 20 62 75 66 70 74 20 bufpt
53d0: 3d 20 7a 45 78 74 72 61 20 3d 20 6d 61 6c 6c 6f = zExtra = mallo
53e0: 63 28 20 6e 20 29 3b 0a 20 20 20 20 20 20 20 20 c( n );.
53f0: 20 20 69 66 28 20 62 75 66 70 74 3d 3d 30 20 29 if( bufpt==0 )
5400: 20 72 65 74 75 72 6e 20 2d 31 3b 0a 20 20 20 20 return -1;.
5410: 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 }else{.
5420: 20 20 20 20 20 62 75 66 70 74 20 3d 20 62 75 66 bufpt = buf
5430: 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 ;. }.
5440: 20 20 20 20 6a 20 3d 20 30 3b 0a 20 20 20 20 20 j = 0;.
5450: 20 20 20 69 66 28 20 6e 65 65 64 51 75 6f 74 65 if( needQuote
5460: 20 29 20 62 75 66 70 74 5b 6a 2b 2b 5d 20 3d 20 ) bufpt[j++] =
5470: 27 5c 27 27 3b 0a 20 20 20 20 20 20 20 20 66 6f '\'';. fo
5480: 72 28 69 3d 30 3b 20 28 63 68 3d 65 73 63 61 72 r(i=0; (ch=escar
5490: 67 5b 69 5d 29 21 3d 30 3b 20 69 2b 2b 29 7b 0a g[i])!=0; i++){.
54a0: 20 20 20 20 20 20 20 20 20 20 62 75 66 70 74 5b bufpt[
54b0: 6a 2b 2b 5d 20 3d 20 63 68 3b 0a 20 20 20 20 20 j++] = ch;.
54c0: 20 20 20 20 20 69 66 28 20 63 68 3d 3d 27 5c 27 if( ch=='\'
54d0: 27 20 29 20 62 75 66 70 74 5b 6a 2b 2b 5d 20 3d ' ) bufpt[j++] =
54e0: 20 63 68 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 ch;. }.
54f0: 20 20 20 20 20 20 20 69 66 28 20 6e 65 65 64 51 if( needQ
5500: 75 6f 74 65 20 29 20 62 75 66 70 74 5b 6a 2b 2b uote ) bufpt[j++
5510: 5d 20 3d 20 27 5c 27 27 3b 0a 20 20 20 20 20 20 ] = '\'';.
5520: 20 20 62 75 66 70 74 5b 6a 5d 20 3d 20 30 3b 0a bufpt[j] = 0;.
5530: 20 20 20 20 20 20 20 20 6c 65 6e 67 74 68 20 3d length =
5540: 20 6a 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 j;. if(
5550: 70 72 65 63 69 73 69 6f 6e 3e 3d 30 20 26 26 20 precision>=0 &&
5560: 70 72 65 63 69 73 69 6f 6e 3c 6c 65 6e 67 74 68 precision<length
5570: 20 29 20 6c 65 6e 67 74 68 20 3d 20 70 72 65 63 ) length = prec
5580: 69 73 69 6f 6e 3b 0a 20 20 20 20 20 20 20 20 62 ision;. b
5590: 72 65 61 6b 3b 0a 20 20 20 20 20 20 7d 0a 20 20 reak;. }.
55a0: 20 20 20 20 63 61 73 65 20 65 74 48 54 4d 4c 49 case etHTMLI
55b0: 5a 45 3a 20 7b 0a 20 20 20 20 20 20 20 20 63 68 ZE: {. ch
55c0: 61 72 20 2a 7a 4d 65 6d 20 3d 20 76 61 5f 61 72 ar *zMem = va_ar
55d0: 67 28 61 70 2c 63 68 61 72 2a 29 3b 0a 20 20 20 g(ap,char*);.
55e0: 20 20 20 20 20 69 66 28 20 7a 4d 65 6d 3d 3d 30 if( zMem==0
55f0: 20 29 20 7a 4d 65 6d 20 3d 20 22 22 3b 0a 20 20 ) zMem = "";.
5600: 20 20 20 20 20 20 7a 45 78 74 72 61 20 3d 20 62 zExtra = b
5610: 75 66 70 74 20 3d 20 68 74 6d 6c 69 7a 65 28 7a ufpt = htmlize(z
5620: 4d 65 6d 2c 20 2d 31 29 3b 0a 20 20 20 20 20 20 Mem, -1);.
5630: 20 20 6c 65 6e 67 74 68 20 3d 20 73 74 72 6c 65 length = strle
5640: 6e 28 62 75 66 70 74 29 3b 0a 20 20 20 20 20 20 n(bufpt);.
5650: 20 20 69 66 28 20 70 72 65 63 69 73 69 6f 6e 3e if( precision>
5660: 3d 30 20 26 26 20 70 72 65 63 69 73 69 6f 6e 3c =0 && precision<
5670: 6c 65 6e 67 74 68 20 29 20 6c 65 6e 67 74 68 20 length ) length
5680: 3d 20 70 72 65 63 69 73 69 6f 6e 3b 0a 20 20 20 = precision;.
5690: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 break;.
56a0: 20 20 7d 0a 20 20 20 20 20 20 63 61 73 65 20 65 }. case e
56b0: 74 48 54 54 50 49 5a 45 3a 20 7b 0a 20 20 20 20 tHTTPIZE: {.
56c0: 20 20 20 20 63 68 61 72 20 2a 7a 4d 65 6d 20 3d char *zMem =
56d0: 20 76 61 5f 61 72 67 28 61 70 2c 63 68 61 72 2a va_arg(ap,char*
56e0: 29 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 7a );. if( z
56f0: 4d 65 6d 3d 3d 30 20 29 20 7a 4d 65 6d 20 3d 20 Mem==0 ) zMem =
5700: 22 22 3b 0a 20 20 20 20 20 20 20 20 7a 45 78 74 "";. zExt
5710: 72 61 20 3d 20 62 75 66 70 74 20 3d 20 68 74 74 ra = bufpt = htt
5720: 70 69 7a 65 28 7a 4d 65 6d 2c 20 2d 31 29 3b 0a pize(zMem, -1);.
5730: 20 20 20 20 20 20 20 20 6c 65 6e 67 74 68 20 3d length =
5740: 20 73 74 72 6c 65 6e 28 62 75 66 70 74 29 3b 0a strlen(bufpt);.
5750: 20 20 20 20 20 20 20 20 69 66 28 20 70 72 65 63 if( prec
5760: 69 73 69 6f 6e 3e 3d 30 20 26 26 20 70 72 65 63 ision>=0 && prec
5770: 69 73 69 6f 6e 3c 6c 65 6e 67 74 68 20 29 20 6c ision<length ) l
5780: 65 6e 67 74 68 20 3d 20 70 72 65 63 69 73 69 6f ength = precisio
5790: 6e 3b 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b n;. break
57a0: 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 ;. }.
57b0: 63 61 73 65 20 65 74 55 52 4c 49 5a 45 3a 20 7b case etURLIZE: {
57c0: 0a 20 20 20 20 20 20 20 20 63 68 61 72 20 2a 7a . char *z
57d0: 4d 65 6d 20 3d 20 76 61 5f 61 72 67 28 61 70 2c Mem = va_arg(ap,
57e0: 63 68 61 72 2a 29 3b 0a 20 20 20 20 20 20 20 20 char*);.
57f0: 69 66 28 20 7a 4d 65 6d 3d 3d 30 20 29 20 7a 4d if( zMem==0 ) zM
5800: 65 6d 20 3d 20 22 22 3b 0a 20 20 20 20 20 20 20 em = "";.
5810: 20 7a 45 78 74 72 61 20 3d 20 62 75 66 70 74 20 zExtra = bufpt
5820: 3d 20 75 72 6c 69 7a 65 28 7a 4d 65 6d 2c 20 2d = urlize(zMem, -
5830: 31 29 3b 0a 20 20 20 20 20 20 20 20 6c 65 6e 67 1);. leng
5840: 74 68 20 3d 20 73 74 72 6c 65 6e 28 62 75 66 70 th = strlen(bufp
5850: 74 29 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 t);. if(
5860: 70 72 65 63 69 73 69 6f 6e 3e 3d 30 20 26 26 20 precision>=0 &&
5870: 70 72 65 63 69 73 69 6f 6e 3c 6c 65 6e 67 74 68 precision<length
5880: 20 29 20 6c 65 6e 67 74 68 20 3d 20 70 72 65 63 ) length = prec
5890: 69 73 69 6f 6e 3b 0a 20 20 20 20 20 20 20 20 62 ision;. b
58a0: 72 65 61 6b 3b 0a 20 20 20 20 20 20 7d 0a 20 20 reak;. }.
58b0: 20 20 20 20 63 61 73 65 20 65 74 46 4f 53 53 49 case etFOSSI
58c0: 4c 49 5a 45 3a 20 7b 0a 20 20 20 20 20 20 20 20 LIZE: {.
58d0: 63 68 61 72 20 2a 7a 4d 65 6d 20 3d 20 76 61 5f char *zMem = va_
58e0: 61 72 67 28 61 70 2c 63 68 61 72 2a 29 3b 0a 20 arg(ap,char*);.
58f0: 20 20 20 20 20 20 20 69 66 28 20 7a 4d 65 6d 3d if( zMem=
5900: 3d 30 20 29 20 7a 4d 65 6d 20 3d 20 22 22 3b 0a =0 ) zMem = "";.
5910: 20 20 20 20 20 20 20 20 7a 45 78 74 72 61 20 3d zExtra =
5920: 20 62 75 66 70 74 20 3d 20 66 6f 73 73 69 6c 69 bufpt = fossili
5930: 7a 65 28 7a 4d 65 6d 2c 20 2d 31 29 3b 0a 20 20 ze(zMem, -1);.
5940: 20 20 20 20 20 20 6c 65 6e 67 74 68 20 3d 20 73 length = s
5950: 74 72 6c 65 6e 28 62 75 66 70 74 29 3b 0a 20 20 trlen(bufpt);.
5960: 20 20 20 20 20 20 69 66 28 20 70 72 65 63 69 73 if( precis
5970: 69 6f 6e 3e 3d 30 20 26 26 20 70 72 65 63 69 73 ion>=0 && precis
5980: 69 6f 6e 3c 6c 65 6e 67 74 68 20 29 20 6c 65 6e ion<length ) len
5990: 67 74 68 20 3d 20 70 72 65 63 69 73 69 6f 6e 3b gth = precision;
59a0: 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a . break;.
59b0: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 63 61 }. ca
59c0: 73 65 20 65 74 45 52 52 4f 52 3a 0a 20 20 20 20 se etERROR:.
59d0: 20 20 20 20 62 75 66 5b 30 5d 20 3d 20 27 25 27 buf[0] = '%'
59e0: 3b 0a 20 20 20 20 20 20 20 20 62 75 66 5b 31 5d ;. buf[1]
59f0: 20 3d 20 63 3b 0a 20 20 20 20 20 20 20 20 65 72 = c;. er
5a00: 72 6f 72 66 6c 61 67 20 3d 20 30 3b 0a 20 20 20 rorflag = 0;.
5a10: 20 20 20 20 20 69 64 78 20 3d 20 31 2b 28 63 21 idx = 1+(c!
5a20: 3d 30 29 3b 0a 20 20 20 20 20 20 20 20 28 2a 66 =0);. (*f
5a30: 75 6e 63 29 28 61 72 67 2c 22 25 22 2c 69 64 78 unc)(arg,"%",idx
5a40: 29 3b 0a 20 20 20 20 20 20 20 20 63 6f 75 6e 74 );. count
5a50: 20 2b 3d 20 69 64 78 3b 0a 20 20 20 20 20 20 20 += idx;.
5a60: 20 69 66 28 20 63 3d 3d 30 20 29 20 66 6d 74 2d if( c==0 ) fmt-
5a70: 2d 3b 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b -;. break
5a80: 3b 0a 20 20 20 20 7d 2f 2a 20 45 6e 64 20 73 77 ;. }/* End sw
5a90: 69 74 63 68 20 6f 76 65 72 20 74 68 65 20 66 6f itch over the fo
5aa0: 72 6d 61 74 20 74 79 70 65 20 2a 2f 0a 20 20 20 rmat type */.
5ab0: 20 2f 2a 0a 20 20 20 20 2a 2a 20 54 68 65 20 74 /*. ** The t
5ac0: 65 78 74 20 6f 66 20 74 68 65 20 63 6f 6e 76 65 ext of the conve
5ad0: 72 73 69 6f 6e 20 69 73 20 70 6f 69 6e 74 65 64 rsion is pointed
5ae0: 20 74 6f 20 62 79 20 22 62 75 66 70 74 22 20 61 to by "bufpt" a
5af0: 6e 64 20 69 73 0a 20 20 20 20 2a 2a 20 22 6c 65 nd is. ** "le
5b00: 6e 67 74 68 22 20 63 68 61 72 61 63 74 65 72 73 ngth" characters
5b10: 20 6c 6f 6e 67 2e 20 20 54 68 65 20 66 69 65 6c long. The fiel
5b20: 64 20 77 69 64 74 68 20 69 73 20 22 77 69 64 74 d width is "widt
5b30: 68 22 2e 20 20 44 6f 0a 20 20 20 20 2a 2a 20 74 h". Do. ** t
5b40: 68 65 20 6f 75 74 70 75 74 2e 0a 20 20 20 20 2a he output.. *
5b50: 2f 0a 20 20 20 20 69 66 28 20 21 66 6c 61 67 5f /. if( !flag_
5b60: 6c 65 66 74 6a 75 73 74 69 66 79 20 29 7b 0a 20 leftjustify ){.
5b70: 20 20 20 20 20 72 65 67 69 73 74 65 72 20 69 6e register in
5b80: 74 20 6e 73 70 61 63 65 3b 0a 20 20 20 20 20 20 t nspace;.
5b90: 6e 73 70 61 63 65 20 3d 20 77 69 64 74 68 2d 6c nspace = width-l
5ba0: 65 6e 67 74 68 3b 0a 20 20 20 20 20 20 69 66 28 ength;. if(
5bb0: 20 6e 73 70 61 63 65 3e 30 20 29 7b 0a 20 20 20 nspace>0 ){.
5bc0: 20 20 20 20 20 63 6f 75 6e 74 20 2b 3d 20 6e 73 count += ns
5bd0: 70 61 63 65 3b 0a 20 20 20 20 20 20 20 20 77 68 pace;. wh
5be0: 69 6c 65 28 20 6e 73 70 61 63 65 3e 3d 65 74 53 ile( nspace>=etS
5bf0: 50 41 43 45 53 49 5a 45 20 29 7b 0a 20 20 20 20 PACESIZE ){.
5c00: 20 20 20 20 20 20 28 2a 66 75 6e 63 29 28 61 72 (*func)(ar
5c10: 67 2c 73 70 61 63 65 73 2c 65 74 53 50 41 43 45 g,spaces,etSPACE
5c20: 53 49 5a 45 29 3b 0a 20 20 20 20 20 20 20 20 20 SIZE);.
5c30: 20 6e 73 70 61 63 65 20 2d 3d 20 65 74 53 50 41 nspace -= etSPA
5c40: 43 45 53 49 5a 45 3b 0a 20 20 20 20 20 20 20 20 CESIZE;.
5c50: 7d 0a 20 20 20 20 20 20 20 20 69 66 28 20 6e 73 }. if( ns
5c60: 70 61 63 65 3e 30 20 29 20 28 2a 66 75 6e 63 29 pace>0 ) (*func)
5c70: 28 61 72 67 2c 73 70 61 63 65 73 2c 6e 73 70 61 (arg,spaces,nspa
5c80: 63 65 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 ce);. }.
5c90: 20 7d 0a 20 20 20 20 69 66 28 20 6c 65 6e 67 74 }. if( lengt
5ca0: 68 3e 30 20 29 7b 0a 20 20 20 20 20 20 28 2a 66 h>0 ){. (*f
5cb0: 75 6e 63 29 28 61 72 67 2c 62 75 66 70 74 2c 6c unc)(arg,bufpt,l
5cc0: 65 6e 67 74 68 29 3b 0a 20 20 20 20 20 20 63 6f ength);. co
5cd0: 75 6e 74 20 2b 3d 20 6c 65 6e 67 74 68 3b 0a 20 unt += length;.
5ce0: 20 20 20 7d 0a 20 20 20 20 69 66 28 20 66 6c 61 }. if( fla
5cf0: 67 5f 6c 65 66 74 6a 75 73 74 69 66 79 20 29 7b g_leftjustify ){
5d00: 0a 20 20 20 20 20 20 72 65 67 69 73 74 65 72 20 . register
5d10: 69 6e 74 20 6e 73 70 61 63 65 3b 0a 20 20 20 20 int nspace;.
5d20: 20 20 6e 73 70 61 63 65 20 3d 20 77 69 64 74 68 nspace = width
5d30: 2d 6c 65 6e 67 74 68 3b 0a 20 20 20 20 20 20 69 -length;. i
5d40: 66 28 20 6e 73 70 61 63 65 3e 30 20 29 7b 0a 20 f( nspace>0 ){.
5d50: 20 20 20 20 20 20 20 63 6f 75 6e 74 20 2b 3d 20 count +=
5d60: 6e 73 70 61 63 65 3b 0a 20 20 20 20 20 20 20 20 nspace;.
5d70: 77 68 69 6c 65 28 20 6e 73 70 61 63 65 3e 3d 65 while( nspace>=e
5d80: 74 53 50 41 43 45 53 49 5a 45 20 29 7b 0a 20 20 tSPACESIZE ){.
5d90: 20 20 20 20 20 20 20 20 28 2a 66 75 6e 63 29 28 (*func)(
5da0: 61 72 67 2c 73 70 61 63 65 73 2c 65 74 53 50 41 arg,spaces,etSPA
5db0: 43 45 53 49 5a 45 29 3b 0a 20 20 20 20 20 20 20 CESIZE);.
5dc0: 20 20 20 6e 73 70 61 63 65 20 2d 3d 20 65 74 53 nspace -= etS
5dd0: 50 41 43 45 53 49 5a 45 3b 0a 20 20 20 20 20 20 PACESIZE;.
5de0: 20 20 7d 0a 20 20 20 20 20 20 20 20 69 66 28 20 }. if(
5df0: 6e 73 70 61 63 65 3e 30 20 29 20 28 2a 66 75 6e nspace>0 ) (*fun
5e00: 63 29 28 61 72 67 2c 73 70 61 63 65 73 2c 6e 73 c)(arg,spaces,ns
5e10: 70 61 63 65 29 3b 0a 20 20 20 20 20 20 7d 0a 20 pace);. }.
5e20: 20 20 20 7d 0a 20 20 20 20 69 66 28 20 7a 45 78 }. if( zEx
5e30: 74 72 61 20 29 7b 0a 20 20 20 20 20 20 66 72 65 tra ){. fre
5e40: 65 28 7a 45 78 74 72 61 29 3b 0a 20 20 20 20 7d e(zExtra);. }
5e50: 0a 20 20 7d 2f 2a 20 45 6e 64 20 66 6f 72 20 6c . }/* End for l
5e60: 6f 6f 70 20 6f 76 65 72 20 74 68 65 20 66 6f 72 oop over the for
5e70: 6d 61 74 20 73 74 72 69 6e 67 20 2a 2f 0a 20 20 mat string */.
5e80: 72 65 74 75 72 6e 20 65 72 72 6f 72 66 6c 61 67 return errorflag
5e90: 20 3f 20 2d 31 20 3a 20 63 6f 75 6e 74 3b 0a 7d ? -1 : count;.}
5ea0: 20 2f 2a 20 45 6e 64 20 6f 66 20 66 75 6e 63 74 /* End of funct
5eb0: 69 6f 6e 20 2a 2f 0a 0a 2f 2a 0a 2a 2a 20 50 72 ion */../*.** Pr
5ec0: 69 6e 74 20 69 6e 74 6f 20 6d 65 6d 6f 72 79 20 int into memory
5ed0: 6f 62 74 61 69 6e 65 64 20 66 72 6f 6d 20 6d 61 obtained from ma
5ee0: 6c 6c 6f 63 28 29 2e 0a 2a 2f 0a 63 68 61 72 20 lloc()..*/.char
5ef0: 2a 6d 70 72 69 6e 74 66 28 63 6f 6e 73 74 20 63 *mprintf(const c
5f00: 68 61 72 20 2a 7a 46 6f 72 6d 61 74 2c 20 2e 2e har *zFormat, ..
5f10: 2e 29 7b 0a 20 20 76 61 5f 6c 69 73 74 20 61 70 .){. va_list ap
5f20: 3b 0a 20 20 63 68 61 72 20 2a 7a 3b 0a 20 20 76 ;. char *z;. v
5f30: 61 5f 73 74 61 72 74 28 61 70 2c 7a 46 6f 72 6d a_start(ap,zForm
5f40: 61 74 29 3b 0a 20 20 7a 20 3d 20 76 6d 70 72 69 at);. z = vmpri
5f50: 6e 74 66 28 7a 46 6f 72 6d 61 74 2c 20 61 70 29 ntf(zFormat, ap)
5f60: 3b 0a 20 20 76 61 5f 65 6e 64 28 61 70 29 3b 0a ;. va_end(ap);.
5f70: 20 20 72 65 74 75 72 6e 20 7a 3b 0a 7d 0a 63 68 return z;.}.ch
5f80: 61 72 20 2a 76 6d 70 72 69 6e 74 66 28 63 6f 6e ar *vmprintf(con
5f90: 73 74 20 63 68 61 72 20 2a 7a 46 6f 72 6d 61 74 st char *zFormat
5fa0: 2c 20 76 61 5f 6c 69 73 74 20 61 70 29 7b 0a 20 , va_list ap){.
5fb0: 20 42 6c 6f 62 20 62 6c 6f 62 20 3d 20 65 6d 70 Blob blob = emp
5fc0: 74 79 5f 62 6c 6f 62 3b 0a 20 20 62 6c 6f 62 5f ty_blob;. blob_
5fd0: 76 61 70 70 65 6e 64 66 28 26 62 6c 6f 62 2c 20 vappendf(&blob,
5fe0: 7a 46 6f 72 6d 61 74 2c 20 61 70 29 3b 0a 20 20 zFormat, ap);.
5ff0: 62 6c 6f 62 5f 6d 61 74 65 72 69 61 6c 69 7a 65 blob_materialize
6000: 28 26 62 6c 6f 62 29 3b 0a 20 20 72 65 74 75 72 (&blob);. retur
6010: 6e 20 62 6c 6f 62 2e 61 44 61 74 61 3b 0a 7d 0a n blob.aData;.}.
6020: 0a 2f 2a 0a 2a 2a 20 52 65 63 6f 72 64 20 61 6e ./*.** Record an
6030: 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 20 69 error message i
6040: 6e 20 74 68 65 20 67 6c 6f 62 61 6c 20 67 2e 7a n the global g.z
6050: 45 72 72 4d 73 67 20 76 61 72 69 61 62 6c 65 2e ErrMsg variable.
6060: 0a 2a 2a 0a 2a 2a 20 49 66 20 74 68 65 72 65 20 .**.** If there
6070: 69 73 20 61 6c 72 65 61 64 79 20 61 6e 6f 74 68 is already anoth
6080: 65 72 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 er error message
6090: 2c 20 6f 6e 6c 79 20 6f 76 65 72 77 72 69 74 65 , only overwrite
60a0: 20 69 74 20 69 66 0a 2a 2a 20 74 68 65 20 63 75 it if.** the cu
60b0: 72 72 65 6e 74 20 65 72 72 6f 72 20 68 61 73 20 rrent error has
60c0: 61 20 68 69 67 68 65 72 20 70 72 69 6f 72 69 74 a higher priorit
60d0: 79 2e 0a 2a 2f 0a 76 6f 69 64 20 66 6f 73 73 69 y..*/.void fossi
60e0: 6c 5f 65 72 72 6f 72 28 69 6e 74 20 69 50 72 69 l_error(int iPri
60f0: 6f 72 69 74 79 2c 20 63 6f 6e 73 74 20 63 68 61 ority, const cha
6100: 72 20 2a 7a 46 6f 72 6d 61 74 2c 20 2e 2e 2e 29 r *zFormat, ...)
6110: 7b 0a 20 20 76 61 5f 6c 69 73 74 20 61 70 3b 0a {. va_list ap;.
6120: 20 20 69 66 28 20 69 50 72 69 6f 72 69 74 79 3c if( iPriority<
6130: 3d 30 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e =0 ){. return
6140: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67 2e 7a 45 ;. }. if( g.zE
6150: 72 72 4d 73 67 20 29 7b 0a 20 20 20 20 69 66 28 rrMsg ){. if(
6160: 20 67 2e 69 45 72 72 50 72 69 6f 72 69 74 79 3e g.iErrPriority>
6170: 3d 69 50 72 69 6f 72 69 74 79 20 29 7b 0a 20 20 =iPriority ){.
6180: 20 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 return;.
6190: 7d 0a 20 20 20 20 66 72 65 65 28 67 2e 7a 45 72 }. free(g.zEr
61a0: 72 4d 73 67 29 3b 0a 20 20 7d 0a 20 20 76 61 5f rMsg);. }. va_
61b0: 73 74 61 72 74 28 61 70 2c 20 7a 46 6f 72 6d 61 start(ap, zForma
61c0: 74 29 3b 0a 20 20 67 2e 7a 45 72 72 4d 73 67 20 t);. g.zErrMsg
61d0: 3d 20 76 6d 70 72 69 6e 74 66 28 7a 46 6f 72 6d = vmprintf(zForm
61e0: 61 74 2c 20 61 70 29 3b 0a 20 20 76 61 5f 65 6e at, ap);. va_en
61f0: 64 28 61 70 29 3b 0a 20 20 67 2e 69 45 72 72 50 d(ap);. g.iErrP
6200: 72 69 6f 72 69 74 79 20 3d 20 69 50 72 69 6f 72 riority = iPrior
6210: 69 74 79 3b 0a 7d 0a 76 6f 69 64 20 66 6f 73 73 ity;.}.void foss
6220: 69 6c 5f 65 72 72 6f 72 5f 72 65 73 65 74 28 76 il_error_reset(v
6230: 6f 69 64 29 7b 0a 20 20 66 72 65 65 28 67 2e 7a oid){. free(g.z
6240: 45 72 72 4d 73 67 29 3b 0a 20 20 67 2e 7a 45 72 ErrMsg);. g.zEr
6250: 72 4d 73 67 20 3d 20 30 3b 0a 20 20 67 2e 69 45 rMsg = 0;. g.iE
6260: 72 72 50 72 69 6f 72 69 74 79 20 3d 20 30 3b 0a rrPriority = 0;.
6270: 7d 0a }.