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 23 64 65 66 format. */.#def
0950: 69 6e 65 20 65 74 50 41 54 48 20 20 20 20 20 20 ine etPATH
0960: 20 32 30 20 2f 2a 20 50 61 74 68 20 74 79 70 65 20 /* Path type
0970: 20 2a 2f 0a 23 64 65 66 69 6e 65 20 65 74 57 49 */.#define etWI
0980: 4b 49 53 54 52 20 20 20 20 32 31 20 2f 2a 20 57 KISTR 21 /* W
0990: 69 6b 69 20 74 65 78 74 20 72 65 6e 64 65 72 65 iki text rendere
09a0: 64 20 66 72 6f 6d 20 61 20 63 68 61 72 2a 20 2a d from a char* *
09b0: 2f 0a 23 64 65 66 69 6e 65 20 65 74 57 49 4b 49 /.#define etWIKI
09c0: 42 4c 4f 42 20 20 20 32 32 20 2f 2a 20 57 69 6b BLOB 22 /* Wik
09d0: 69 20 74 65 78 74 20 72 65 6e 64 65 72 65 64 20 i text rendered
09e0: 66 72 6f 6d 20 61 20 42 6c 6f 62 2a 20 2a 2f 0a from a Blob* */.
09f0: 0a 0a 2f 2a 0a 2a 2a 20 41 6e 20 22 65 74 42 79 ../*.** An "etBy
0a00: 74 65 22 20 69 73 20 61 6e 20 38 2d 62 69 74 20 te" is an 8-bit
0a10: 75 6e 73 69 67 6e 65 64 20 76 61 6c 75 65 2e 0a unsigned value..
0a20: 2a 2f 0a 74 79 70 65 64 65 66 20 75 6e 73 69 67 */.typedef unsig
0a30: 6e 65 64 20 63 68 61 72 20 65 74 42 79 74 65 3b ned char etByte;
0a40: 0a 0a 2f 2a 0a 2a 2a 20 45 61 63 68 20 62 75 69 ../*.** Each bui
0a50: 6c 74 69 6e 20 63 6f 6e 76 65 72 73 69 6f 6e 20 ltin conversion
0a60: 63 68 61 72 61 63 74 65 72 20 28 65 78 3a 20 74 character (ex: t
0a70: 68 65 20 27 64 27 20 69 6e 20 22 25 64 22 29 20 he 'd' in "%d")
0a80: 69 73 20 64 65 73 63 72 69 62 65 64 0a 2a 2a 20 is described.**
0a90: 62 79 20 61 6e 20 69 6e 73 74 61 6e 63 65 20 6f by an instance o
0aa0: 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 f the following
0ab0: 73 74 72 75 63 74 75 72 65 0a 2a 2f 0a 74 79 70 structure.*/.typ
0ac0: 65 64 65 66 20 73 74 72 75 63 74 20 65 74 5f 69 edef struct et_i
0ad0: 6e 66 6f 20 7b 20 20 20 2f 2a 20 49 6e 66 6f 72 nfo { /* Infor
0ae0: 6d 61 74 69 6f 6e 20 61 62 6f 75 74 20 65 61 63 mation about eac
0af0: 68 20 66 6f 72 6d 61 74 20 66 69 65 6c 64 20 2a h format field *
0b00: 2f 0a 20 20 63 68 61 72 20 66 6d 74 74 79 70 65 /. char fmttype
0b10: 3b 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 ; /*
0b20: 54 68 65 20 66 6f 72 6d 61 74 20 66 69 65 6c 64 The format field
0b30: 20 63 6f 64 65 20 6c 65 74 74 65 72 20 2a 2f 0a code letter */.
0b40: 20 20 65 74 42 79 74 65 20 62 61 73 65 3b 20 20 etByte base;
0b50: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 68 /* Th
0b60: 65 20 62 61 73 65 20 66 6f 72 20 72 61 64 69 78 e base for radix
0b70: 20 63 6f 6e 76 65 72 73 69 6f 6e 20 2a 2f 0a 20 conversion */.
0b80: 20 65 74 42 79 74 65 20 66 6c 61 67 73 3b 20 20 etByte flags;
0b90: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4f 6e 65 /* One
0ba0: 20 6f 72 20 6d 6f 72 65 20 6f 66 20 46 4c 41 47 or more of FLAG
0bb0: 5f 20 63 6f 6e 73 74 61 6e 74 73 20 62 65 6c 6f _ constants belo
0bc0: 77 20 2a 2f 0a 20 20 65 74 42 79 74 65 20 74 79 w */. etByte ty
0bd0: 70 65 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 pe;
0be0: 2f 2a 20 43 6f 6e 76 65 72 73 69 6f 6e 20 70 61 /* Conversion pa
0bf0: 72 61 64 69 67 6d 20 2a 2f 0a 20 20 65 74 42 79 radigm */. etBy
0c00: 74 65 20 63 68 61 72 73 65 74 3b 20 20 20 20 20 te charset;
0c10: 20 20 20 20 20 2f 2a 20 4f 66 66 73 65 74 20 69 /* Offset i
0c20: 6e 74 6f 20 61 44 69 67 69 74 73 5b 5d 20 6f 66 nto aDigits[] of
0c30: 20 74 68 65 20 64 69 67 69 74 73 20 73 74 72 69 the digits stri
0c40: 6e 67 20 2a 2f 0a 20 20 65 74 42 79 74 65 20 70 ng */. etByte p
0c50: 72 65 66 69 78 3b 20 20 20 20 20 20 20 20 20 20 refix;
0c60: 20 2f 2a 20 4f 66 66 73 65 74 20 69 6e 74 6f 20 /* Offset into
0c70: 61 50 72 65 66 69 78 5b 5d 20 6f 66 20 74 68 65 aPrefix[] of the
0c80: 20 70 72 65 66 69 78 20 73 74 72 69 6e 67 20 2a prefix string *
0c90: 2f 0a 7d 20 65 74 5f 69 6e 66 6f 3b 0a 0a 2f 2a /.} et_info;../*
0ca0: 0a 2a 2a 20 41 6c 6c 6f 77 65 64 20 76 61 6c 75 .** Allowed valu
0cb0: 65 73 20 66 6f 72 20 65 74 5f 69 6e 66 6f 2e 66 es for et_info.f
0cc0: 6c 61 67 73 0a 2a 2f 0a 23 64 65 66 69 6e 65 20 lags.*/.#define
0cd0: 46 4c 41 47 5f 53 49 47 4e 45 44 20 20 31 20 20 FLAG_SIGNED 1
0ce0: 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20 74 68 /* True if th
0cf0: 65 20 76 61 6c 75 65 20 74 6f 20 63 6f 6e 76 65 e value to conve
0d00: 72 74 20 69 73 20 73 69 67 6e 65 64 20 2a 2f 0a rt is signed */.
0d10: 23 64 65 66 69 6e 65 20 46 4c 41 47 5f 49 4e 54 #define FLAG_INT
0d20: 45 52 4e 20 20 32 20 20 20 20 20 2f 2a 20 54 72 ERN 2 /* Tr
0d30: 75 65 20 69 66 20 66 6f 72 20 69 6e 74 65 72 6e ue if for intern
0d40: 61 6c 20 75 73 65 20 6f 6e 6c 79 20 2a 2f 0a 23 al use only */.#
0d50: 64 65 66 69 6e 65 20 46 4c 41 47 5f 53 54 52 49 define FLAG_STRI
0d60: 4e 47 20 20 34 20 20 20 20 20 2f 2a 20 41 6c 6c NG 4 /* All
0d70: 6f 77 20 69 6e 66 69 6e 69 74 79 20 70 72 65 63 ow infinity prec
0d80: 69 73 69 6f 6e 20 2a 2f 0a 0a 0a 2f 2a 0a 2a 2a ision */.../*.**
0d90: 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 The following t
0da0: 61 62 6c 65 20 69 73 20 73 65 61 72 63 68 65 64 able is searched
0db0: 20 6c 69 6e 65 61 72 6c 79 2c 20 73 6f 20 69 74 linearly, so it
0dc0: 20 69 73 20 67 6f 6f 64 20 74 6f 20 70 75 74 20 is good to put
0dd0: 74 68 65 0a 2a 2a 20 6d 6f 73 74 20 66 72 65 71 the.** most freq
0de0: 75 65 6e 74 6c 79 20 75 73 65 64 20 63 6f 6e 76 uently used conv
0df0: 65 72 73 69 6f 6e 20 74 79 70 65 73 20 66 69 72 ersion types fir
0e00: 73 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 63 6f st..*/.static co
0e10: 6e 73 74 20 63 68 61 72 20 61 44 69 67 69 74 73 nst char aDigits
0e20: 5b 5d 20 3d 20 22 30 31 32 33 34 35 36 37 38 39 [] = "0123456789
0e30: 41 42 43 44 45 46 30 31 32 33 34 35 36 37 38 39 ABCDEF0123456789
0e40: 61 62 63 64 65 66 22 3b 0a 73 74 61 74 69 63 20 abcdef";.static
0e50: 63 6f 6e 73 74 20 63 68 61 72 20 61 50 72 65 66 const char aPref
0e60: 69 78 5b 5d 20 3d 20 22 2d 78 30 5c 30 30 30 58 ix[] = "-x0\000X
0e70: 30 22 3b 0a 73 74 61 74 69 63 20 63 6f 6e 73 74 0";.static const
0e80: 20 65 74 5f 69 6e 66 6f 20 66 6d 74 69 6e 66 6f et_info fmtinfo
0e90: 5b 5d 20 3d 20 7b 0a 20 20 7b 20 20 27 64 27 2c [] = {. { 'd',
0ea0: 20 31 30 2c 20 31 2c 20 65 74 52 41 44 49 58 2c 10, 1, etRADIX,
0eb0: 20 20 20 20 20 20 30 2c 20 20 30 20 7d 2c 0a 20 0, 0 },.
0ec0: 20 7b 20 20 27 73 27 2c 20 20 30 2c 20 34 2c 20 { 's', 0, 4,
0ed0: 65 74 53 54 52 49 4e 47 2c 20 20 20 20 20 30 2c etSTRING, 0,
0ee0: 20 20 30 20 7d 2c 0a 20 20 7b 20 20 27 67 27 2c 0 },. { 'g',
0ef0: 20 20 30 2c 20 31 2c 20 65 74 47 45 4e 45 52 49 0, 1, etGENERI
0f00: 43 2c 20 20 20 20 33 30 2c 20 30 20 7d 2c 0a 20 C, 30, 0 },.
0f10: 20 7b 20 20 27 7a 27 2c 20 20 30 2c 20 36 2c 20 { 'z', 0, 6,
0f20: 65 74 44 59 4e 53 54 52 49 4e 47 2c 20 20 30 2c etDYNSTRING, 0,
0f30: 20 20 30 20 7d 2c 0a 20 20 7b 20 20 27 71 27 2c 0 },. { 'q',
0f40: 20 20 30 2c 20 34 2c 20 65 74 53 51 4c 45 53 43 0, 4, etSQLESC
0f50: 41 50 45 2c 20 20 30 2c 20 20 30 20 7d 2c 0a 20 APE, 0, 0 },.
0f60: 20 7b 20 20 27 51 27 2c 20 20 30 2c 20 34 2c 20 { 'Q', 0, 4,
0f70: 65 74 53 51 4c 45 53 43 41 50 45 32 2c 20 30 2c etSQLESCAPE2, 0,
0f80: 20 20 30 20 7d 2c 0a 20 20 7b 20 20 27 62 27 2c 0 },. { 'b',
0f90: 20 20 30 2c 20 32 2c 20 65 74 42 4c 4f 42 2c 20 0, 2, etBLOB,
0fa0: 20 20 20 20 20 20 30 2c 20 20 30 20 7d 2c 0a 20 0, 0 },.
0fb0: 20 7b 20 20 27 42 27 2c 20 20 30 2c 20 32 2c 20 { 'B', 0, 2,
0fc0: 65 74 42 4c 4f 42 53 51 4c 2c 20 20 20 20 30 2c etBLOBSQL, 0,
0fd0: 20 20 30 20 7d 2c 0a 20 20 7b 20 20 27 77 27 2c 0 },. { 'w',
0fe0: 20 20 30 2c 20 32 2c 20 65 74 57 49 4b 49 53 54 0, 2, etWIKIST
0ff0: 52 2c 20 20 20 20 30 2c 20 20 30 20 7d 2c 0a 20 R, 0, 0 },.
1000: 20 7b 20 20 27 57 27 2c 20 20 30 2c 20 32 2c 20 { 'W', 0, 2,
1010: 65 74 57 49 4b 49 42 4c 4f 42 2c 20 20 20 30 2c etWIKIBLOB, 0,
1020: 20 20 30 20 7d 2c 0a 20 20 7b 20 20 27 68 27 2c 0 },. { 'h',
1030: 20 20 30 2c 20 34 2c 20 65 74 48 54 4d 4c 49 5a 0, 4, etHTMLIZ
1040: 45 2c 20 20 20 20 30 2c 20 20 30 20 7d 2c 0a 20 E, 0, 0 },.
1050: 20 7b 20 20 27 74 27 2c 20 20 30 2c 20 34 2c 20 { 't', 0, 4,
1060: 65 74 48 54 54 50 49 5a 45 2c 20 20 20 20 30 2c etHTTPIZE, 0,
1070: 20 20 30 20 7d 2c 20 20 2f 2a 20 22 2f 22 20 2d 0 }, /* "/" -
1080: 3e 20 22 25 32 46 22 20 2a 2f 0a 20 20 7b 20 20 > "%2F" */. {
1090: 27 54 27 2c 20 20 30 2c 20 34 2c 20 65 74 55 52 'T', 0, 4, etUR
10a0: 4c 49 5a 45 2c 20 20 20 20 20 30 2c 20 20 30 20 LIZE, 0, 0
10b0: 7d 2c 20 20 2f 2a 20 22 2f 22 20 75 6e 63 68 61 }, /* "/" uncha
10c0: 6e 67 65 64 20 2a 2f 0a 20 20 7b 20 20 27 46 27 nged */. { 'F'
10d0: 2c 20 20 30 2c 20 34 2c 20 65 74 46 4f 53 53 49 , 0, 4, etFOSSI
10e0: 4c 49 5a 45 2c 20 20 30 2c 20 20 30 20 7d 2c 0a LIZE, 0, 0 },.
10f0: 20 20 7b 20 20 27 63 27 2c 20 20 30 2c 20 30 2c { 'c', 0, 0,
1100: 20 65 74 43 48 41 52 58 2c 20 20 20 20 20 20 30 etCHARX, 0
1110: 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 20 27 6f 27 , 0 },. { 'o'
1120: 2c 20 20 38 2c 20 30 2c 20 65 74 52 41 44 49 58 , 8, 0, etRADIX
1130: 2c 20 20 20 20 20 20 30 2c 20 20 32 20 7d 2c 0a , 0, 2 },.
1140: 20 20 7b 20 20 27 75 27 2c 20 31 30 2c 20 30 2c { 'u', 10, 0,
1150: 20 65 74 52 41 44 49 58 2c 20 20 20 20 20 20 30 etRADIX, 0
1160: 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 20 27 78 27 , 0 },. { 'x'
1170: 2c 20 31 36 2c 20 30 2c 20 65 74 52 41 44 49 58 , 16, 0, etRADIX
1180: 2c 20 20 20 20 20 20 31 36 2c 20 31 20 7d 2c 0a , 16, 1 },.
1190: 20 20 7b 20 20 27 58 27 2c 20 31 36 2c 20 30 2c { 'X', 16, 0,
11a0: 20 65 74 52 41 44 49 58 2c 20 20 20 20 20 20 30 etRADIX, 0
11b0: 2c 20 20 34 20 7d 2c 0a 20 20 7b 20 20 27 66 27 , 4 },. { 'f'
11c0: 2c 20 20 30 2c 20 31 2c 20 65 74 46 4c 4f 41 54 , 0, 1, etFLOAT
11d0: 2c 20 20 20 20 20 20 30 2c 20 20 30 20 7d 2c 0a , 0, 0 },.
11e0: 20 20 7b 20 20 27 65 27 2c 20 20 30 2c 20 31 2c { 'e', 0, 1,
11f0: 20 65 74 45 58 50 2c 20 20 20 20 20 20 20 20 33 etEXP, 3
1200: 30 2c 20 30 20 7d 2c 0a 20 20 7b 20 20 27 45 27 0, 0 },. { 'E'
1210: 2c 20 20 30 2c 20 31 2c 20 65 74 45 58 50 2c 20 , 0, 1, etEXP,
1220: 20 20 20 20 20 20 20 31 34 2c 20 30 20 7d 2c 0a 14, 0 },.
1230: 20 20 7b 20 20 27 47 27 2c 20 20 30 2c 20 31 2c { 'G', 0, 1,
1240: 20 65 74 47 45 4e 45 52 49 43 2c 20 20 20 20 31 etGENERIC, 1
1250: 34 2c 20 30 20 7d 2c 0a 20 20 7b 20 20 27 69 27 4, 0 },. { 'i'
1260: 2c 20 31 30 2c 20 31 2c 20 65 74 52 41 44 49 58 , 10, 1, etRADIX
1270: 2c 20 20 20 20 20 20 30 2c 20 20 30 20 7d 2c 0a , 0, 0 },.
1280: 20 20 7b 20 20 27 6e 27 2c 20 20 30 2c 20 30 2c { 'n', 0, 0,
1290: 20 65 74 53 49 5a 45 2c 20 20 20 20 20 20 20 30 etSIZE, 0
12a0: 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 20 27 25 27 , 0 },. { '%'
12b0: 2c 20 20 30 2c 20 30 2c 20 65 74 50 45 52 43 45 , 0, 0, etPERCE
12c0: 4e 54 2c 20 20 20 20 30 2c 20 20 30 20 7d 2c 0a NT, 0, 0 },.
12d0: 20 20 7b 20 20 27 70 27 2c 20 31 36 2c 20 30 2c { 'p', 16, 0,
12e0: 20 65 74 50 4f 49 4e 54 45 52 2c 20 20 20 20 30 etPOINTER, 0
12f0: 2c 20 20 31 20 7d 2c 0a 20 20 7b 20 20 27 2f 27 , 1 },. { '/'
1300: 2c 20 20 30 2c 20 30 2c 20 65 74 50 41 54 48 2c , 0, 0, etPATH,
1310: 20 20 20 20 20 20 20 30 2c 20 20 30 20 7d 2c 0a 0, 0 },.
1320: 7d 3b 0a 23 64 65 66 69 6e 65 20 65 74 4e 49 4e };.#define etNIN
1330: 46 4f 20 20 28 73 69 7a 65 6f 66 28 66 6d 74 69 FO (sizeof(fmti
1340: 6e 66 6f 29 2f 73 69 7a 65 6f 66 28 66 6d 74 69 nfo)/sizeof(fmti
1350: 6e 66 6f 5b 30 5d 29 29 0a 0a 2f 2a 0a 2a 2a 20 nfo[0]))../*.**
1360: 22 2a 76 61 6c 22 20 69 73 20 61 20 64 6f 75 62 "*val" is a doub
1370: 6c 65 20 73 75 63 68 20 74 68 61 74 20 30 2e 31 le such that 0.1
1380: 20 3c 3d 20 2a 76 61 6c 20 3c 20 31 30 2e 30 0a <= *val < 10.0.
1390: 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20 61 73 ** Return the as
13a0: 63 69 69 20 63 6f 64 65 20 66 6f 72 20 74 68 65 cii code for the
13b0: 20 6c 65 61 64 69 6e 67 20 64 69 67 69 74 20 6f leading digit o
13c0: 66 20 2a 76 61 6c 2c 20 74 68 65 6e 0a 2a 2a 20 f *val, then.**
13d0: 6d 75 6c 74 69 70 6c 79 20 22 2a 76 61 6c 22 20 multiply "*val"
13e0: 62 79 20 31 30 2e 30 20 74 6f 20 72 65 6e 6f 72 by 10.0 to renor
13f0: 6d 61 6c 69 7a 65 2e 0a 2a 2a 0a 2a 2a 20 45 78 malize..**.** Ex
1400: 61 6d 70 6c 65 3a 0a 2a 2a 20 20 20 20 20 69 6e ample:.** in
1410: 70 75 74 3a 20 20 20 20 20 2a 76 61 6c 20 3d 20 put: *val =
1420: 33 2e 31 34 31 35 39 0a 2a 2a 20 20 20 20 20 6f 3.14159.** o
1430: 75 74 70 75 74 3a 20 20 20 20 2a 76 61 6c 20 3d utput: *val =
1440: 20 31 2e 34 31 35 39 20 20 20 20 66 75 6e 63 74 1.4159 funct
1450: 69 6f 6e 20 72 65 74 75 72 6e 20 3d 20 27 33 27 ion return = '3'
1460: 0a 2a 2a 0a 2a 2a 20 54 68 65 20 63 6f 75 6e 74 .**.** The count
1470: 65 72 20 2a 63 6e 74 20 69 73 20 69 6e 63 72 65 er *cnt is incre
1480: 6d 65 6e 74 65 64 20 65 61 63 68 20 74 69 6d 65 mented each time
1490: 2e 20 20 41 66 74 65 72 20 63 6f 75 6e 74 65 72 . After counter
14a0: 20 65 78 63 65 65 64 73 0a 2a 2a 20 31 36 20 28 exceeds.** 16 (
14b0: 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 73 69 the number of si
14c0: 67 6e 69 66 69 63 61 6e 74 20 64 69 67 69 74 73 gnificant digits
14d0: 20 69 6e 20 61 20 36 34 2d 62 69 74 20 66 6c 6f in a 64-bit flo
14e0: 61 74 29 20 27 30 27 20 69 73 0a 2a 2a 20 61 6c at) '0' is.** al
14f0: 77 61 79 73 20 72 65 74 75 72 6e 65 64 2e 0a 2a ways returned..*
1500: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 65 74 5f /.static int et_
1510: 67 65 74 64 69 67 69 74 28 6c 6f 6e 67 20 64 6f getdigit(long do
1520: 75 62 6c 65 20 2a 76 61 6c 2c 20 69 6e 74 20 2a uble *val, int *
1530: 63 6e 74 29 7b 0a 20 20 69 6e 74 20 64 69 67 69 cnt){. int digi
1540: 74 3b 0a 20 20 6c 6f 6e 67 20 64 6f 75 62 6c 65 t;. long double
1550: 20 64 3b 0a 20 20 69 66 28 20 28 2a 63 6e 74 29 d;. if( (*cnt)
1560: 2b 2b 20 3e 3d 20 31 36 20 29 20 72 65 74 75 72 ++ >= 16 ) retur
1570: 6e 20 27 30 27 3b 0a 20 20 64 69 67 69 74 20 3d n '0';. digit =
1580: 20 28 69 6e 74 29 2a 76 61 6c 3b 0a 20 20 64 20 (int)*val;. d
1590: 3d 20 64 69 67 69 74 3b 0a 20 20 64 69 67 69 74 = digit;. digit
15a0: 20 2b 3d 20 27 30 27 3b 0a 20 20 2a 76 61 6c 20 += '0';. *val
15b0: 3d 20 28 2a 76 61 6c 20 2d 20 64 29 2a 31 30 2e = (*val - d)*10.
15c0: 30 3b 0a 20 20 72 65 74 75 72 6e 20 64 69 67 69 0;. return digi
15d0: 74 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 53 69 7a 65 t;.}../*.** Size
15e0: 20 6f 66 20 74 65 6d 70 6f 72 61 72 79 20 63 6f of temporary co
15f0: 6e 76 65 72 73 69 6f 6e 20 62 75 66 66 65 72 2e nversion buffer.
1600: 0a 2a 2f 0a 23 64 65 66 69 6e 65 20 65 74 42 55 .*/.#define etBU
1610: 46 53 49 5a 45 20 35 30 30 0a 0a 2f 2a 0a 2a 2a FSIZE 500../*.**
1620: 20 54 68 65 20 72 6f 6f 74 20 70 72 6f 67 72 61 The root progra
1630: 6d 2e 20 20 41 6c 6c 20 76 61 72 69 61 74 69 6f m. All variatio
1640: 6e 73 20 63 61 6c 6c 20 74 68 69 73 20 63 6f 72 ns call this cor
1650: 65 2e 0a 2a 2a 0a 2a 2a 20 49 4e 50 55 54 53 3a e..**.** INPUTS:
1660: 0a 2a 2a 20 20 20 66 75 6e 63 20 20 20 54 68 69 .** func Thi
1670: 73 20 69 73 20 61 20 70 6f 69 6e 74 65 72 20 74 s is a pointer t
1680: 6f 20 61 20 66 75 6e 63 74 69 6f 6e 20 74 61 6b o a function tak
1690: 69 6e 67 20 74 68 72 65 65 20 61 72 67 75 6d 65 ing three argume
16a0: 6e 74 73 0a 2a 2a 20 20 20 20 20 20 20 20 20 20 nts.**
16b0: 20 20 31 2e 20 41 20 70 6f 69 6e 74 65 72 20 74 1. A pointer t
16c0: 6f 20 61 6e 79 74 68 69 6e 67 2e 20 20 53 61 6d o anything. Sam
16d0: 65 20 61 73 20 74 68 65 20 22 61 72 67 22 20 70 e as the "arg" p
16e0: 61 72 61 6d 65 74 65 72 2e 0a 2a 2a 20 20 20 20 arameter..**
16f0: 20 20 20 20 20 20 20 20 32 2e 20 41 20 70 6f 69 2. A poi
1700: 6e 74 65 72 20 74 6f 20 74 68 65 20 6c 69 73 74 nter to the list
1710: 20 6f 66 20 63 68 61 72 61 63 74 65 72 73 20 74 of characters t
1720: 6f 20 62 65 20 6f 75 74 70 75 74 0a 2a 2a 20 20 o be output.**
1730: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 4e 6f (No
1740: 74 65 2c 20 74 68 69 73 20 6c 69 73 74 20 69 73 te, this list is
1750: 20 4e 4f 54 20 6e 75 6c 6c 20 74 65 72 6d 69 6e NOT null termin
1760: 61 74 65 64 2e 29 0a 2a 2a 20 20 20 20 20 20 20 ated.).**
1770: 20 20 20 20 20 33 2e 20 41 6e 20 69 6e 74 65 67 3. An integ
1780: 65 72 20 6e 75 6d 62 65 72 20 6f 66 20 63 68 61 er number of cha
1790: 72 61 63 74 65 72 73 20 74 6f 20 62 65 20 6f 75 racters to be ou
17a0: 74 70 75 74 2e 0a 2a 2a 20 20 20 20 20 20 20 20 tput..**
17b0: 20 20 20 20 20 20 20 28 4e 6f 74 65 3a 20 54 68 (Note: Th
17c0: 69 73 20 6e 75 6d 62 65 72 20 6d 69 67 68 74 20 is number might
17d0: 62 65 20 7a 65 72 6f 2e 29 0a 2a 2a 0a 2a 2a 20 be zero.).**.**
17e0: 20 20 61 72 67 20 20 20 20 54 68 69 73 20 69 73 arg This is
17f0: 20 74 68 65 20 70 6f 69 6e 74 65 72 20 74 6f 20 the pointer to
1800: 61 6e 79 74 68 69 6e 67 20 77 68 69 63 68 20 77 anything which w
1810: 69 6c 6c 20 62 65 20 70 61 73 73 65 64 20 61 73 ill be passed as
1820: 20 74 68 65 0a 2a 2a 20 20 20 20 20 20 20 20 20 the.**
1830: 20 66 69 72 73 74 20 61 72 67 75 6d 65 6e 74 20 first argument
1840: 74 6f 20 22 66 75 6e 63 22 2e 20 20 55 73 65 20 to "func". Use
1850: 69 74 20 66 6f 72 20 77 68 61 74 65 76 65 72 20 it for whatever
1860: 79 6f 75 20 6c 69 6b 65 2e 0a 2a 2a 0a 2a 2a 20 you like..**.**
1870: 20 20 66 6d 74 20 20 20 20 54 68 69 73 20 69 73 fmt This is
1880: 20 74 68 65 20 66 6f 72 6d 61 74 20 73 74 72 69 the format stri
1890: 6e 67 2c 20 61 73 20 69 6e 20 74 68 65 20 75 73 ng, as in the us
18a0: 75 61 6c 20 70 72 69 6e 74 2e 0a 2a 2a 0a 2a 2a ual print..**.**
18b0: 20 20 20 61 70 20 20 20 20 20 54 68 69 73 20 69 ap This i
18c0: 73 20 61 20 70 6f 69 6e 74 65 72 20 74 6f 20 61 s a pointer to a
18d0: 20 6c 69 73 74 20 6f 66 20 61 72 67 75 6d 65 6e list of argumen
18e0: 74 73 2e 20 20 53 61 6d 65 20 61 73 20 69 6e 0a ts. Same as in.
18f0: 2a 2a 20 20 20 20 20 20 20 20 20 20 76 66 70 72 ** vfpr
1900: 69 6e 74 2e 0a 2a 2a 0a 2a 2a 20 4f 55 54 50 55 int..**.** OUTPU
1910: 54 53 3a 0a 2a 2a 20 20 20 20 20 20 20 20 20 20 TS:.**
1920: 54 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 The return value
1930: 20 69 73 20 74 68 65 20 74 6f 74 61 6c 20 6e 75 is the total nu
1940: 6d 62 65 72 20 6f 66 20 63 68 61 72 61 63 74 65 mber of characte
1950: 72 73 20 73 65 6e 74 20 74 6f 0a 2a 2a 20 20 20 rs sent to.**
1960: 20 20 20 20 20 20 20 74 68 65 20 66 75 6e 63 74 the funct
1970: 69 6f 6e 20 22 66 75 6e 63 22 2e 20 20 52 65 74 ion "func". Ret
1980: 75 72 6e 73 20 2d 31 20 6f 6e 20 61 20 65 72 72 urns -1 on a err
1990: 6f 72 2e 0a 2a 2a 0a 2a 2a 20 4e 6f 74 65 20 74 or..**.** Note t
19a0: 68 61 74 20 74 68 65 20 6f 72 64 65 72 20 69 6e hat the order in
19b0: 20 77 68 69 63 68 20 61 75 74 6f 6d 61 74 69 63 which automatic
19c0: 20 76 61 72 69 61 62 6c 65 73 20 61 72 65 20 64 variables are d
19d0: 65 63 6c 61 72 65 64 20 62 65 6c 6f 77 0a 2a 2a eclared below.**
19e0: 20 73 65 65 6d 73 20 74 6f 20 6d 61 6b 65 20 61 seems to make a
19f0: 20 62 69 67 20 64 69 66 66 65 72 65 6e 63 65 20 big difference
1a00: 69 6e 20 64 65 74 65 72 6d 69 6e 69 6e 67 20 68 in determining h
1a10: 6f 77 20 66 61 73 74 20 74 68 69 73 20 62 65 61 ow fast this bea
1a20: 73 74 0a 2a 2a 20 77 69 6c 6c 20 72 75 6e 2e 0a st.** will run..
1a30: 2a 2f 0a 69 6e 74 20 76 78 70 72 69 6e 74 66 28 */.int vxprintf(
1a40: 0a 20 20 42 6c 6f 62 20 2a 70 42 6c 6f 62 2c 20 . Blob *pBlob,
1a50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1a60: 20 20 20 20 20 20 2f 2a 20 41 70 70 65 6e 64 20 /* Append
1a70: 6f 75 74 70 75 74 20 74 6f 20 74 68 69 73 20 62 output to this b
1a80: 6c 6f 62 20 2a 2f 0a 20 20 63 6f 6e 73 74 20 63 lob */. const c
1a90: 68 61 72 20 2a 66 6d 74 2c 20 20 20 20 20 20 20 har *fmt,
1aa0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 46 /* F
1ab0: 6f 72 6d 61 74 20 73 74 72 69 6e 67 20 2a 2f 0a ormat string */.
1ac0: 20 20 76 61 5f 6c 69 73 74 20 61 70 20 20 20 20 va_list ap
1ad0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1ae0: 20 20 20 20 20 2f 2a 20 61 72 67 75 6d 65 6e 74 /* argument
1af0: 73 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20 63 3b s */.){. int c;
1b00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1b10: 20 20 20 20 20 2f 2a 20 4e 65 78 74 20 63 68 61 /* Next cha
1b20: 72 61 63 74 65 72 20 69 6e 20 74 68 65 20 66 6f racter in the fo
1b30: 72 6d 61 74 20 73 74 72 69 6e 67 20 2a 2f 0a 20 rmat string */.
1b40: 20 63 68 61 72 20 2a 62 75 66 70 74 3b 20 20 20 char *bufpt;
1b50: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 50 /* P
1b60: 6f 69 6e 74 65 72 20 74 6f 20 74 68 65 20 63 6f ointer to the co
1b70: 6e 76 65 72 73 69 6f 6e 20 62 75 66 66 65 72 20 nversion buffer
1b80: 2a 2f 0a 20 20 69 6e 74 20 70 72 65 63 69 73 69 */. int precisi
1b90: 6f 6e 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 on;
1ba0: 2f 2a 20 50 72 65 63 69 73 69 6f 6e 20 6f 66 20 /* Precision of
1bb0: 74 68 65 20 63 75 72 72 65 6e 74 20 66 69 65 6c the current fiel
1bc0: 64 20 2a 2f 0a 20 20 69 6e 74 20 6c 65 6e 67 74 d */. int lengt
1bd0: 68 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 h;
1be0: 20 20 2f 2a 20 4c 65 6e 67 74 68 20 6f 66 20 74 /* Length of t
1bf0: 68 65 20 66 69 65 6c 64 20 2a 2f 0a 20 20 69 6e he field */. in
1c00: 74 20 69 64 78 3b 20 20 20 20 20 20 20 20 20 20 t idx;
1c10: 20 20 20 20 20 20 20 20 20 2f 2a 20 41 20 67 65 /* A ge
1c20: 6e 65 72 61 6c 20 70 75 72 70 6f 73 65 20 6c 6f neral purpose lo
1c30: 6f 70 20 63 6f 75 6e 74 65 72 20 2a 2f 0a 20 20 op counter */.
1c40: 69 6e 74 20 63 6f 75 6e 74 3b 20 20 20 20 20 20 int count;
1c50: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 6f /* To
1c60: 74 61 6c 20 6e 75 6d 62 65 72 20 6f 66 20 63 68 tal number of ch
1c70: 61 72 61 63 74 65 72 73 20 6f 75 74 70 75 74 20 aracters output
1c80: 2a 2f 0a 20 20 69 6e 74 20 77 69 64 74 68 3b 20 */. int width;
1c90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1ca0: 2f 2a 20 57 69 64 74 68 20 6f 66 20 74 68 65 20 /* Width of the
1cb0: 63 75 72 72 65 6e 74 20 66 69 65 6c 64 20 2a 2f current field */
1cc0: 0a 20 20 65 74 42 79 74 65 20 66 6c 61 67 5f 6c . etByte flag_l
1cd0: 65 66 74 6a 75 73 74 69 66 79 3b 20 20 20 2f 2a eftjustify; /*
1ce0: 20 54 72 75 65 20 69 66 20 22 2d 22 20 66 6c 61 True if "-" fla
1cf0: 67 20 69 73 20 70 72 65 73 65 6e 74 20 2a 2f 0a g is present */.
1d00: 20 20 65 74 42 79 74 65 20 66 6c 61 67 5f 70 6c etByte flag_pl
1d10: 75 73 73 69 67 6e 3b 20 20 20 20 20 20 2f 2a 20 ussign; /*
1d20: 54 72 75 65 20 69 66 20 22 2b 22 20 66 6c 61 67 True if "+" flag
1d30: 20 69 73 20 70 72 65 73 65 6e 74 20 2a 2f 0a 20 is present */.
1d40: 20 65 74 42 79 74 65 20 66 6c 61 67 5f 62 6c 61 etByte flag_bla
1d50: 6e 6b 73 69 67 6e 3b 20 20 20 20 20 2f 2a 20 54 nksign; /* T
1d60: 72 75 65 20 69 66 20 22 20 22 20 66 6c 61 67 20 rue if " " flag
1d70: 69 73 20 70 72 65 73 65 6e 74 20 2a 2f 0a 20 20 is present */.
1d80: 65 74 42 79 74 65 20 66 6c 61 67 5f 61 6c 74 65 etByte flag_alte
1d90: 72 6e 61 74 65 66 6f 72 6d 3b 20 2f 2a 20 54 72 rnateform; /* Tr
1da0: 75 65 20 69 66 20 22 23 22 20 66 6c 61 67 20 69 ue if "#" flag i
1db0: 73 20 70 72 65 73 65 6e 74 20 2a 2f 0a 20 20 65 s present */. e
1dc0: 74 42 79 74 65 20 66 6c 61 67 5f 61 6c 74 66 6f tByte flag_altfo
1dd0: 72 6d 32 3b 20 20 20 20 20 20 2f 2a 20 54 72 75 rm2; /* Tru
1de0: 65 20 69 66 20 22 21 22 20 66 6c 61 67 20 69 73 e if "!" flag is
1df0: 20 70 72 65 73 65 6e 74 20 2a 2f 0a 20 20 65 74 present */. et
1e00: 42 79 74 65 20 66 6c 61 67 5f 7a 65 72 6f 70 61 Byte flag_zeropa
1e10: 64 3b 20 20 20 20 20 20 20 2f 2a 20 54 72 75 65 d; /* True
1e20: 20 69 66 20 66 69 65 6c 64 20 77 69 64 74 68 20 if field width
1e30: 63 6f 6e 73 74 61 6e 74 20 73 74 61 72 74 73 20 constant starts
1e40: 77 69 74 68 20 7a 65 72 6f 20 2a 2f 0a 20 20 65 with zero */. e
1e50: 74 42 79 74 65 20 66 6c 61 67 5f 6c 6f 6e 67 3b tByte flag_long;
1e60: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 72 75 /* Tru
1e70: 65 20 69 66 20 22 6c 22 20 66 6c 61 67 20 69 73 e if "l" flag is
1e80: 20 70 72 65 73 65 6e 74 20 2a 2f 0a 20 20 65 74 present */. et
1e90: 42 79 74 65 20 66 6c 61 67 5f 6c 6f 6e 67 6c 6f Byte flag_longlo
1ea0: 6e 67 3b 20 20 20 20 20 20 2f 2a 20 54 72 75 65 ng; /* True
1eb0: 20 69 66 20 74 68 65 20 22 6c 6c 22 20 66 6c 61 if the "ll" fla
1ec0: 67 20 69 73 20 70 72 65 73 65 6e 74 20 2a 2f 0a g is present */.
1ed0: 20 20 65 74 42 79 74 65 20 64 6f 6e 65 3b 20 20 etByte done;
1ee0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 /*
1ef0: 4c 6f 6f 70 20 74 65 72 6d 69 6e 61 74 69 6f 6e Loop termination
1f00: 20 66 6c 61 67 20 2a 2f 0a 20 20 75 36 34 20 6c flag */. u64 l
1f10: 6f 6e 67 76 61 6c 75 65 3b 20 20 20 20 20 20 20 ongvalue;
1f20: 20 20 20 20 20 20 2f 2a 20 56 61 6c 75 65 20 66 /* Value f
1f30: 6f 72 20 69 6e 74 65 67 65 72 20 74 79 70 65 73 or integer types
1f40: 20 2a 2f 0a 20 20 6c 6f 6e 67 20 64 6f 75 62 6c */. long doubl
1f50: 65 20 72 65 61 6c 76 61 6c 75 65 3b 20 20 20 20 e realvalue;
1f60: 20 2f 2a 20 56 61 6c 75 65 20 66 6f 72 20 72 65 /* Value for re
1f70: 61 6c 20 74 79 70 65 73 20 2a 2f 0a 20 20 63 6f al types */. co
1f80: 6e 73 74 20 65 74 5f 69 6e 66 6f 20 2a 69 6e 66 nst et_info *inf
1f90: 6f 70 3b 20 20 20 20 20 20 2f 2a 20 50 6f 69 6e op; /* Poin
1fa0: 74 65 72 20 74 6f 20 74 68 65 20 61 70 70 72 6f ter to the appro
1fb0: 70 72 69 61 74 65 20 69 6e 66 6f 20 73 74 72 75 priate info stru
1fc0: 63 74 75 72 65 20 2a 2f 0a 20 20 63 68 61 72 20 cture */. char
1fd0: 62 75 66 5b 65 74 42 55 46 53 49 5a 45 5d 3b 20 buf[etBUFSIZE];
1fe0: 20 20 20 20 20 20 2f 2a 20 43 6f 6e 76 65 72 73 /* Convers
1ff0: 69 6f 6e 20 62 75 66 66 65 72 20 2a 2f 0a 20 20 ion buffer */.
2000: 63 68 61 72 20 70 72 65 66 69 78 3b 20 20 20 20 char prefix;
2010: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 50 72 /* Pr
2020: 65 66 69 78 20 63 68 61 72 61 63 74 65 72 2e 20 efix character.
2030: 20 22 2b 22 20 6f 72 20 22 2d 22 20 6f 72 20 22 "+" or "-" or "
2040: 20 22 20 6f 72 20 27 5c 30 27 2e 20 2a 2f 0a 20 " or '\0'. */.
2050: 20 65 74 42 79 74 65 20 65 72 72 6f 72 66 6c 61 etByte errorfla
2060: 67 20 3d 20 30 3b 20 20 20 20 20 20 2f 2a 20 54 g = 0; /* T
2070: 72 75 65 20 69 66 20 61 6e 20 65 72 72 6f 72 20 rue if an error
2080: 69 73 20 65 6e 63 6f 75 6e 74 65 72 65 64 20 2a is encountered *
2090: 2f 0a 20 20 65 74 42 79 74 65 20 78 74 79 70 65 /. etByte xtype
20a0: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f ; /
20b0: 2a 20 43 6f 6e 76 65 72 73 69 6f 6e 20 70 61 72 * Conversion par
20c0: 61 64 69 67 6d 20 2a 2f 0a 20 20 63 68 61 72 20 adigm */. char
20d0: 2a 7a 45 78 74 72 61 3b 20 20 20 20 20 20 20 20 *zExtra;
20e0: 20 20 20 20 20 20 2f 2a 20 45 78 74 72 61 20 6d /* Extra m
20f0: 65 6d 6f 72 79 20 75 73 65 64 20 66 6f 72 20 65 emory used for e
2100: 74 54 43 4c 45 53 43 41 50 45 20 63 6f 6e 76 65 tTCLESCAPE conve
2110: 72 73 69 6f 6e 73 20 2a 2f 0a 20 20 73 74 61 74 rsions */. stat
2120: 69 63 20 63 6f 6e 73 74 20 63 68 61 72 20 73 70 ic const char sp
2130: 61 63 65 73 5b 5d 20 3d 0a 20 20 20 22 20 20 20 aces[] =. "
2140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2180: 20 20 20 20 20 20 22 3b 0a 23 64 65 66 69 6e 65 ";.#define
2190: 20 65 74 53 50 41 43 45 53 49 5a 45 20 28 73 69 etSPACESIZE (si
21a0: 7a 65 6f 66 28 73 70 61 63 65 73 29 2d 31 29 0a zeof(spaces)-1).
21b0: 20 20 69 6e 74 20 20 65 78 70 2c 20 65 32 3b 20 int exp, e2;
21c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 /*
21d0: 65 78 70 6f 6e 65 6e 74 20 6f 66 20 72 65 61 6c exponent of real
21e0: 20 6e 75 6d 62 65 72 73 20 2a 2f 0a 20 20 64 6f numbers */. do
21f0: 75 62 6c 65 20 72 6f 75 6e 64 65 72 3b 20 20 20 uble rounder;
2200: 20 20 20 20 20 20 20 20 20 2f 2a 20 55 73 65 64 /* Used
2210: 20 66 6f 72 20 72 6f 75 6e 64 69 6e 67 20 66 6c for rounding fl
2220: 6f 61 74 69 6e 67 20 70 6f 69 6e 74 20 76 61 6c oating point val
2230: 75 65 73 20 2a 2f 0a 20 20 65 74 42 79 74 65 20 ues */. etByte
2240: 66 6c 61 67 5f 64 70 3b 20 20 20 20 20 20 20 20 flag_dp;
2250: 20 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20 64 /* True if d
2260: 65 63 69 6d 61 6c 20 70 6f 69 6e 74 20 73 68 6f ecimal point sho
2270: 75 6c 64 20 62 65 20 73 68 6f 77 6e 20 2a 2f 0a uld be shown */.
2280: 20 20 65 74 42 79 74 65 20 66 6c 61 67 5f 72 74 etByte flag_rt
2290: 7a 3b 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 z; /*
22a0: 54 72 75 65 20 69 66 20 74 72 61 69 6c 69 6e 67 True if trailing
22b0: 20 7a 65 72 6f 73 20 73 68 6f 75 6c 64 20 62 65 zeros should be
22c0: 20 72 65 6d 6f 76 65 64 20 2a 2f 0a 20 20 65 74 removed */. et
22d0: 42 79 74 65 20 66 6c 61 67 5f 65 78 70 3b 20 20 Byte flag_exp;
22e0: 20 20 20 20 20 20 20 20 20 2f 2a 20 54 72 75 65 /* True
22f0: 20 74 6f 20 66 6f 72 63 65 20 64 69 73 70 6c 61 to force displa
2300: 79 20 6f 66 20 74 68 65 20 65 78 70 6f 6e 65 6e y of the exponen
2310: 74 20 2a 2f 0a 20 20 69 6e 74 20 6e 73 64 3b 20 t */. int nsd;
2320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2330: 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 73 /* Number of s
2340: 69 67 6e 69 66 69 63 61 6e 74 20 64 69 67 69 74 ignificant digit
2350: 73 20 72 65 74 75 72 6e 65 64 20 2a 2f 0a 0a 20 s returned */..
2360: 20 63 6f 75 6e 74 20 3d 20 6c 65 6e 67 74 68 20 count = length
2370: 3d 20 30 3b 0a 20 20 62 75 66 70 74 20 3d 20 30 = 0;. bufpt = 0
2380: 3b 0a 20 20 66 6f 72 28 3b 20 28 63 3d 28 2a 66 ;. for(; (c=(*f
2390: 6d 74 29 29 21 3d 30 3b 20 2b 2b 66 6d 74 29 7b mt))!=0; ++fmt){
23a0: 0a 20 20 20 20 69 66 28 20 63 21 3d 27 25 27 20 . if( c!='%'
23b0: 29 7b 0a 20 20 20 20 20 20 69 6e 74 20 61 6d 74 ){. int amt
23c0: 3b 0a 20 20 20 20 20 20 62 75 66 70 74 20 3d 20 ;. bufpt =
23d0: 28 63 68 61 72 20 2a 29 66 6d 74 3b 0a 20 20 20 (char *)fmt;.
23e0: 20 20 20 61 6d 74 20 3d 20 31 3b 0a 20 20 20 20 amt = 1;.
23f0: 20 20 77 68 69 6c 65 28 20 28 63 3d 28 2a 2b 2b while( (c=(*++
2400: 66 6d 74 29 29 21 3d 27 25 27 20 26 26 20 63 21 fmt))!='%' && c!
2410: 3d 30 20 29 20 61 6d 74 2b 2b 3b 0a 20 20 20 20 =0 ) amt++;.
2420: 20 20 62 6c 6f 62 5f 61 70 70 65 6e 64 28 70 42 blob_append(pB
2430: 6c 6f 62 2c 62 75 66 70 74 2c 61 6d 74 29 3b 0a lob,bufpt,amt);.
2440: 20 20 20 20 20 20 63 6f 75 6e 74 20 2b 3d 20 61 count += a
2450: 6d 74 3b 0a 20 20 20 20 20 20 69 66 28 20 63 3d mt;. if( c=
2460: 3d 30 20 29 20 62 72 65 61 6b 3b 0a 20 20 20 20 =0 ) break;.
2470: 7d 0a 20 20 20 20 69 66 28 20 28 63 3d 28 2a 2b }. if( (c=(*+
2480: 2b 66 6d 74 29 29 3d 3d 30 20 29 7b 0a 20 20 20 +fmt))==0 ){.
2490: 20 20 20 65 72 72 6f 72 66 6c 61 67 20 3d 20 31 errorflag = 1
24a0: 3b 0a 20 20 20 20 20 20 62 6c 6f 62 5f 61 70 70 ;. blob_app
24b0: 65 6e 64 28 70 42 6c 6f 62 2c 22 25 22 2c 31 29 end(pBlob,"%",1)
24c0: 3b 0a 20 20 20 20 20 20 63 6f 75 6e 74 2b 2b 3b ;. count++;
24d0: 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 . break;.
24e0: 20 20 7d 0a 20 20 20 20 2f 2a 20 46 69 6e 64 20 }. /* Find
24f0: 6f 75 74 20 77 68 61 74 20 66 6c 61 67 73 20 61 out what flags a
2500: 72 65 20 70 72 65 73 65 6e 74 20 2a 2f 0a 20 20 re present */.
2510: 20 20 66 6c 61 67 5f 6c 65 66 74 6a 75 73 74 69 flag_leftjusti
2520: 66 79 20 3d 20 66 6c 61 67 5f 70 6c 75 73 73 69 fy = flag_plussi
2530: 67 6e 20 3d 20 66 6c 61 67 5f 62 6c 61 6e 6b 73 gn = flag_blanks
2540: 69 67 6e 20 3d 20 0a 20 20 20 20 20 66 6c 61 67 ign = . flag
2550: 5f 61 6c 74 65 72 6e 61 74 65 66 6f 72 6d 20 3d _alternateform =
2560: 20 66 6c 61 67 5f 61 6c 74 66 6f 72 6d 32 20 3d flag_altform2 =
2570: 20 66 6c 61 67 5f 7a 65 72 6f 70 61 64 20 3d 20 flag_zeropad =
2580: 30 3b 0a 20 20 20 20 64 6f 6e 65 20 3d 20 30 3b 0;. done = 0;
2590: 0a 20 20 20 20 64 6f 7b 0a 20 20 20 20 20 20 73 . do{. s
25a0: 77 69 74 63 68 28 20 63 20 29 7b 0a 20 20 20 20 witch( c ){.
25b0: 20 20 20 20 63 61 73 65 20 27 2d 27 3a 20 20 20 case '-':
25c0: 66 6c 61 67 5f 6c 65 66 74 6a 75 73 74 69 66 79 flag_leftjustify
25d0: 20 3d 20 31 3b 20 20 20 20 20 62 72 65 61 6b 3b = 1; break;
25e0: 0a 20 20 20 20 20 20 20 20 63 61 73 65 20 27 2b . case '+
25f0: 27 3a 20 20 20 66 6c 61 67 5f 70 6c 75 73 73 69 ': flag_plussi
2600: 67 6e 20 3d 20 31 3b 20 20 20 20 20 20 20 20 62 gn = 1; b
2610: 72 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 63 61 reak;. ca
2620: 73 65 20 27 20 27 3a 20 20 20 66 6c 61 67 5f 62 se ' ': flag_b
2630: 6c 61 6e 6b 73 69 67 6e 20 3d 20 31 3b 20 20 20 lanksign = 1;
2640: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 break;.
2650: 20 20 20 63 61 73 65 20 27 23 27 3a 20 20 20 66 case '#': f
2660: 6c 61 67 5f 61 6c 74 65 72 6e 61 74 65 66 6f 72 lag_alternatefor
2670: 6d 20 3d 20 31 3b 20 20 20 62 72 65 61 6b 3b 0a m = 1; break;.
2680: 20 20 20 20 20 20 20 20 63 61 73 65 20 27 21 27 case '!'
2690: 3a 20 20 20 66 6c 61 67 5f 61 6c 74 66 6f 72 6d : flag_altform
26a0: 32 20 3d 20 31 3b 20 20 20 20 20 20 20 20 62 72 2 = 1; br
26b0: 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 63 61 73 eak;. cas
26c0: 65 20 27 30 27 3a 20 20 20 66 6c 61 67 5f 7a 65 e '0': flag_ze
26d0: 72 6f 70 61 64 20 3d 20 31 3b 20 20 20 20 20 20 ropad = 1;
26e0: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 break;.
26f0: 20 20 64 65 66 61 75 6c 74 3a 20 20 20 20 64 6f default: do
2700: 6e 65 20 3d 20 31 3b 20 20 20 20 20 20 20 20 20 ne = 1;
2710: 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 break;.
2720: 20 20 20 20 20 7d 0a 20 20 20 20 7d 77 68 69 6c }. }whil
2730: 65 28 20 21 64 6f 6e 65 20 26 26 20 28 63 3d 28 e( !done && (c=(
2740: 2a 2b 2b 66 6d 74 29 29 21 3d 30 20 29 3b 0a 20 *++fmt))!=0 );.
2750: 20 20 20 2f 2a 20 47 65 74 20 74 68 65 20 66 69 /* Get the fi
2760: 65 6c 64 20 77 69 64 74 68 20 2a 2f 0a 20 20 20 eld width */.
2770: 20 77 69 64 74 68 20 3d 20 30 3b 0a 20 20 20 20 width = 0;.
2780: 69 66 28 20 63 3d 3d 27 2a 27 20 29 7b 0a 20 20 if( c=='*' ){.
2790: 20 20 20 20 77 69 64 74 68 20 3d 20 76 61 5f 61 width = va_a
27a0: 72 67 28 61 70 2c 69 6e 74 29 3b 0a 20 20 20 20 rg(ap,int);.
27b0: 20 20 69 66 28 20 77 69 64 74 68 3c 30 20 29 7b if( width<0 ){
27c0: 0a 20 20 20 20 20 20 20 20 66 6c 61 67 5f 6c 65 . flag_le
27d0: 66 74 6a 75 73 74 69 66 79 20 3d 20 31 3b 0a 20 ftjustify = 1;.
27e0: 20 20 20 20 20 20 20 77 69 64 74 68 20 3d 20 2d width = -
27f0: 77 69 64 74 68 3b 0a 20 20 20 20 20 20 7d 0a 20 width;. }.
2800: 20 20 20 20 20 63 20 3d 20 2a 2b 2b 66 6d 74 3b c = *++fmt;
2810: 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 . }else{.
2820: 20 20 77 68 69 6c 65 28 20 63 3e 3d 27 30 27 20 while( c>='0'
2830: 26 26 20 63 3c 3d 27 39 27 20 29 7b 0a 20 20 20 && c<='9' ){.
2840: 20 20 20 20 20 77 69 64 74 68 20 3d 20 77 69 64 width = wid
2850: 74 68 2a 31 30 20 2b 20 63 20 2d 20 27 30 27 3b th*10 + c - '0';
2860: 0a 20 20 20 20 20 20 20 20 63 20 3d 20 2a 2b 2b . c = *++
2870: 66 6d 74 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 fmt;. }.
2880: 20 7d 0a 20 20 20 20 69 66 28 20 77 69 64 74 68 }. if( width
2890: 20 3e 20 65 74 42 55 46 53 49 5a 45 2d 31 30 20 > etBUFSIZE-10
28a0: 29 7b 0a 20 20 20 20 20 20 77 69 64 74 68 20 3d ){. width =
28b0: 20 65 74 42 55 46 53 49 5a 45 2d 31 30 3b 0a 20 etBUFSIZE-10;.
28c0: 20 20 20 7d 0a 20 20 20 20 2f 2a 20 47 65 74 20 }. /* Get
28d0: 74 68 65 20 70 72 65 63 69 73 69 6f 6e 20 2a 2f the precision */
28e0: 0a 20 20 20 20 69 66 28 20 63 3d 3d 27 2e 27 20 . if( c=='.'
28f0: 29 7b 0a 20 20 20 20 20 20 70 72 65 63 69 73 69 ){. precisi
2900: 6f 6e 20 3d 20 30 3b 0a 20 20 20 20 20 20 63 20 on = 0;. c
2910: 3d 20 2a 2b 2b 66 6d 74 3b 0a 20 20 20 20 20 20 = *++fmt;.
2920: 69 66 28 20 63 3d 3d 27 2a 27 20 29 7b 0a 20 20 if( c=='*' ){.
2930: 20 20 20 20 20 20 70 72 65 63 69 73 69 6f 6e 20 precision
2940: 3d 20 76 61 5f 61 72 67 28 61 70 2c 69 6e 74 29 = va_arg(ap,int)
2950: 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 70 72 ;. if( pr
2960: 65 63 69 73 69 6f 6e 3c 30 20 29 20 70 72 65 63 ecision<0 ) prec
2970: 69 73 69 6f 6e 20 3d 20 2d 70 72 65 63 69 73 69 ision = -precisi
2980: 6f 6e 3b 0a 20 20 20 20 20 20 20 20 63 20 3d 20 on;. c =
2990: 2a 2b 2b 66 6d 74 3b 0a 20 20 20 20 20 20 7d 65 *++fmt;. }e
29a0: 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 77 68 69 lse{. whi
29b0: 6c 65 28 20 63 3e 3d 27 30 27 20 26 26 20 63 3c le( c>='0' && c<
29c0: 3d 27 39 27 20 29 7b 0a 20 20 20 20 20 20 20 20 ='9' ){.
29d0: 20 20 70 72 65 63 69 73 69 6f 6e 20 3d 20 70 72 precision = pr
29e0: 65 63 69 73 69 6f 6e 2a 31 30 20 2b 20 63 20 2d ecision*10 + c -
29f0: 20 27 30 27 3b 0a 20 20 20 20 20 20 20 20 20 20 '0';.
2a00: 63 20 3d 20 2a 2b 2b 66 6d 74 3b 0a 20 20 20 20 c = *++fmt;.
2a10: 20 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20 }. }.
2a20: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 70 }else{. p
2a30: 72 65 63 69 73 69 6f 6e 20 3d 20 2d 31 3b 0a 20 recision = -1;.
2a40: 20 20 20 7d 0a 20 20 20 20 2f 2a 20 47 65 74 20 }. /* Get
2a50: 74 68 65 20 63 6f 6e 76 65 72 73 69 6f 6e 20 74 the conversion t
2a60: 79 70 65 20 6d 6f 64 69 66 69 65 72 20 2a 2f 0a ype modifier */.
2a70: 20 20 20 20 69 66 28 20 63 3d 3d 27 6c 27 20 29 if( c=='l' )
2a80: 7b 0a 20 20 20 20 20 20 66 6c 61 67 5f 6c 6f 6e {. flag_lon
2a90: 67 20 3d 20 31 3b 0a 20 20 20 20 20 20 63 20 3d g = 1;. c =
2aa0: 20 2a 2b 2b 66 6d 74 3b 0a 20 20 20 20 20 20 69 *++fmt;. i
2ab0: 66 28 20 63 3d 3d 27 6c 27 20 29 7b 0a 20 20 20 f( c=='l' ){.
2ac0: 20 20 20 20 20 66 6c 61 67 5f 6c 6f 6e 67 6c 6f flag_longlo
2ad0: 6e 67 20 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 ng = 1;.
2ae0: 63 20 3d 20 2a 2b 2b 66 6d 74 3b 0a 20 20 20 20 c = *++fmt;.
2af0: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 }else{.
2b00: 20 66 6c 61 67 5f 6c 6f 6e 67 6c 6f 6e 67 20 3d flag_longlong =
2b10: 20 30 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 0;. }.
2b20: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 66 6c 61 }else{. fla
2b30: 67 5f 6c 6f 6e 67 20 3d 20 66 6c 61 67 5f 6c 6f g_long = flag_lo
2b40: 6e 67 6c 6f 6e 67 20 3d 20 30 3b 0a 20 20 20 20 nglong = 0;.
2b50: 7d 0a 20 20 20 20 2f 2a 20 46 65 74 63 68 20 74 }. /* Fetch t
2b60: 68 65 20 69 6e 66 6f 20 65 6e 74 72 79 20 66 6f he info entry fo
2b70: 72 20 74 68 65 20 66 69 65 6c 64 20 2a 2f 0a 20 r the field */.
2b80: 20 20 20 69 6e 66 6f 70 20 3d 20 30 3b 0a 20 20 infop = 0;.
2b90: 20 20 78 74 79 70 65 20 3d 20 65 74 45 52 52 4f xtype = etERRO
2ba0: 52 3b 0a 20 20 20 20 66 6f 72 28 69 64 78 3d 30 R;. for(idx=0
2bb0: 3b 20 69 64 78 3c 65 74 4e 49 4e 46 4f 3b 20 69 ; idx<etNINFO; i
2bc0: 64 78 2b 2b 29 7b 0a 20 20 20 20 20 20 69 66 28 dx++){. if(
2bd0: 20 63 3d 3d 66 6d 74 69 6e 66 6f 5b 69 64 78 5d c==fmtinfo[idx]
2be0: 2e 66 6d 74 74 79 70 65 20 29 7b 0a 20 20 20 20 .fmttype ){.
2bf0: 20 20 20 20 69 6e 66 6f 70 20 3d 20 26 66 6d 74 infop = &fmt
2c00: 69 6e 66 6f 5b 69 64 78 5d 3b 0a 20 20 20 20 20 info[idx];.
2c10: 20 20 20 78 74 79 70 65 20 3d 20 69 6e 66 6f 70 xtype = infop
2c20: 2d 3e 74 79 70 65 3b 0a 20 20 20 20 20 20 20 20 ->type;.
2c30: 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 7d 0a 20 break;. }.
2c40: 20 20 20 7d 0a 20 20 20 20 7a 45 78 74 72 61 20 }. zExtra
2c50: 3d 20 30 3b 0a 0a 20 20 20 20 2f 2a 20 4c 69 6d = 0;.. /* Lim
2c60: 69 74 20 74 68 65 20 70 72 65 63 69 73 69 6f 6e it the precision
2c70: 20 74 6f 20 70 72 65 76 65 6e 74 20 6f 76 65 72 to prevent over
2c80: 66 6c 6f 77 69 6e 67 20 62 75 66 5b 5d 20 64 75 flowing buf[] du
2c90: 72 69 6e 67 20 63 6f 6e 76 65 72 73 69 6f 6e 20 ring conversion
2ca0: 2a 2f 0a 20 20 20 20 69 66 28 20 70 72 65 63 69 */. if( preci
2cb0: 73 69 6f 6e 3e 65 74 42 55 46 53 49 5a 45 2d 34 sion>etBUFSIZE-4
2cc0: 30 20 26 26 20 28 69 6e 66 6f 70 2d 3e 66 6c 61 0 && (infop->fla
2cd0: 67 73 20 26 20 46 4c 41 47 5f 53 54 52 49 4e 47 gs & FLAG_STRING
2ce0: 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 70 72 )==0 ){. pr
2cf0: 65 63 69 73 69 6f 6e 20 3d 20 65 74 42 55 46 53 ecision = etBUFS
2d00: 49 5a 45 2d 34 30 3b 0a 20 20 20 20 7d 0a 0a 20 IZE-40;. }..
2d10: 20 20 20 2f 2a 0a 20 20 20 20 2a 2a 20 41 74 20 /*. ** At
2d20: 74 68 69 73 20 70 6f 69 6e 74 2c 20 76 61 72 69 this point, vari
2d30: 61 62 6c 65 73 20 61 72 65 20 69 6e 69 74 69 61 ables are initia
2d40: 6c 69 7a 65 64 20 61 73 20 66 6f 6c 6c 6f 77 73 lized as follows
2d50: 3a 0a 20 20 20 20 2a 2a 0a 20 20 20 20 2a 2a 20 :. **. **
2d60: 20 20 66 6c 61 67 5f 61 6c 74 65 72 6e 61 74 65 flag_alternate
2d70: 66 6f 72 6d 20 20 20 20 20 20 20 20 20 20 54 52 form TR
2d80: 55 45 20 69 66 20 61 20 27 23 27 20 69 73 20 70 UE if a '#' is p
2d90: 72 65 73 65 6e 74 2e 0a 20 20 20 20 2a 2a 20 20 resent.. **
2da0: 20 66 6c 61 67 5f 61 6c 74 66 6f 72 6d 32 20 20 flag_altform2
2db0: 20 20 20 20 20 20 20 20 20 20 20 20 20 54 52 55 TRU
2dc0: 45 20 69 66 20 61 20 27 21 27 20 69 73 20 70 72 E if a '!' is pr
2dd0: 65 73 65 6e 74 2e 0a 20 20 20 20 2a 2a 20 20 20 esent.. **
2de0: 66 6c 61 67 5f 70 6c 75 73 73 69 67 6e 20 20 20 flag_plussign
2df0: 20 20 20 20 20 20 20 20 20 20 20 20 54 52 55 45 TRUE
2e00: 20 69 66 20 61 20 27 2b 27 20 69 73 20 70 72 65 if a '+' is pre
2e10: 73 65 6e 74 2e 0a 20 20 20 20 2a 2a 20 20 20 66 sent.. ** f
2e20: 6c 61 67 5f 6c 65 66 74 6a 75 73 74 69 66 79 20 lag_leftjustify
2e30: 20 20 20 20 20 20 20 20 20 20 20 54 52 55 45 20 TRUE
2e40: 69 66 20 61 20 27 2d 27 20 69 73 20 70 72 65 73 if a '-' is pres
2e50: 65 6e 74 20 6f 72 20 69 66 20 74 68 65 0a 20 20 ent or if the.
2e60: 20 20 2a 2a 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 20 66 69 65 6c 64 20 77 69 64 74 68 20 77 field width w
2e90: 61 73 20 6e 65 67 61 74 69 76 65 2e 0a 20 20 20 as negative..
2ea0: 20 2a 2a 20 20 20 66 6c 61 67 5f 7a 65 72 6f 70 ** flag_zerop
2eb0: 61 64 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ad
2ec0: 20 20 54 52 55 45 20 69 66 20 74 68 65 20 77 69 TRUE if the wi
2ed0: 64 74 68 20 62 65 67 61 6e 20 77 69 74 68 20 30 dth began with 0
2ee0: 2e 0a 20 20 20 20 2a 2a 20 20 20 66 6c 61 67 5f .. ** flag_
2ef0: 6c 6f 6e 67 20 20 20 20 20 20 20 20 20 20 20 20 long
2f00: 20 20 20 20 20 20 20 54 52 55 45 20 69 66 20 74 TRUE if t
2f10: 68 65 20 6c 65 74 74 65 72 20 27 6c 27 20 28 65 he letter 'l' (e
2f20: 6c 6c 29 20 70 72 65 66 69 78 65 64 0a 20 20 20 ll) prefixed.
2f30: 20 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 **
2f40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2f50: 20 20 74 68 65 20 63 6f 6e 76 65 72 73 69 6f 6e the conversion
2f60: 20 63 68 61 72 61 63 74 65 72 2e 0a 20 20 20 20 character..
2f70: 2a 2a 20 20 20 66 6c 61 67 5f 6c 6f 6e 67 6c 6f ** flag_longlo
2f80: 6e 67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ng
2f90: 20 54 52 55 45 20 69 66 20 74 68 65 20 6c 65 74 TRUE if the let
2fa0: 74 65 72 20 27 6c 6c 27 20 28 65 6c 6c 20 65 6c ter 'll' (ell el
2fb0: 6c 29 20 70 72 65 66 69 78 65 64 0a 20 20 20 20 l) prefixed.
2fc0: 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 **
2fd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2fe0: 20 74 68 65 20 63 6f 6e 76 65 72 73 69 6f 6e 20 the conversion
2ff0: 63 68 61 72 61 63 74 65 72 2e 0a 20 20 20 20 2a character.. *
3000: 2a 20 20 20 66 6c 61 67 5f 62 6c 61 6e 6b 73 69 * flag_blanksi
3010: 67 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 gn
3020: 54 52 55 45 20 69 66 20 61 20 27 20 27 20 69 73 TRUE if a ' ' is
3030: 20 70 72 65 73 65 6e 74 2e 0a 20 20 20 20 2a 2a present.. **
3040: 20 20 20 77 69 64 74 68 20 20 20 20 20 20 20 20 width
3050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 T
3060: 68 65 20 73 70 65 63 69 66 69 65 64 20 66 69 65 he specified fie
3070: 6c 64 20 77 69 64 74 68 2e 20 20 54 68 69 73 20 ld width. This
3080: 69 73 0a 20 20 20 20 2a 2a 20 20 20 20 20 20 20 is. **
3090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
30a0: 20 20 20 20 20 20 20 20 61 6c 77 61 79 73 20 6e always n
30b0: 6f 6e 2d 6e 65 67 61 74 69 76 65 2e 20 20 5a 65 on-negative. Ze
30c0: 72 6f 20 69 73 20 74 68 65 20 64 65 66 61 75 6c ro is the defaul
30d0: 74 2e 0a 20 20 20 20 2a 2a 20 20 20 70 72 65 63 t.. ** prec
30e0: 69 73 69 6f 6e 20 20 20 20 20 20 20 20 20 20 20 ision
30f0: 20 20 20 20 20 20 20 20 54 68 65 20 73 70 65 63 The spec
3100: 69 66 69 65 64 20 70 72 65 63 69 73 69 6f 6e 2e ified precision.
3110: 20 20 54 68 65 20 64 65 66 61 75 6c 74 0a 20 20 The default.
3120: 20 20 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 **
3130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3140: 20 20 20 69 73 20 2d 31 2e 0a 20 20 20 20 2a 2a is -1.. **
3150: 20 20 20 78 74 79 70 65 20 20 20 20 20 20 20 20 xtype
3160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 T
3170: 68 65 20 63 6c 61 73 73 20 6f 66 20 74 68 65 20 he class of the
3180: 63 6f 6e 76 65 72 73 69 6f 6e 2e 0a 20 20 20 20 conversion..
3190: 2a 2a 20 20 20 69 6e 66 6f 70 20 20 20 20 20 20 ** infop
31a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
31b0: 20 50 6f 69 6e 74 65 72 20 74 6f 20 74 68 65 20 Pointer to the
31c0: 61 70 70 72 6f 70 72 69 61 74 65 20 69 6e 66 6f appropriate info
31d0: 20 73 74 72 75 63 74 2e 0a 20 20 20 20 2a 2f 0a struct.. */.
31e0: 20 20 20 20 73 77 69 74 63 68 28 20 78 74 79 70 switch( xtyp
31f0: 65 20 29 7b 0a 20 20 20 20 20 20 63 61 73 65 20 e ){. case
3200: 65 74 50 4f 49 4e 54 45 52 3a 0a 20 20 20 20 20 etPOINTER:.
3210: 20 20 20 66 6c 61 67 5f 6c 6f 6e 67 6c 6f 6e 67 flag_longlong
3220: 20 3d 20 73 69 7a 65 6f 66 28 63 68 61 72 2a 29 = sizeof(char*)
3230: 3d 3d 73 69 7a 65 6f 66 28 69 36 34 29 3b 0a 20 ==sizeof(i64);.
3240: 20 20 20 20 20 20 20 66 6c 61 67 5f 6c 6f 6e 67 flag_long
3250: 20 3d 20 73 69 7a 65 6f 66 28 63 68 61 72 2a 29 = sizeof(char*)
3260: 3d 3d 73 69 7a 65 6f 66 28 6c 6f 6e 67 20 69 6e ==sizeof(long in
3270: 74 29 3b 0a 20 20 20 20 20 20 20 20 2f 2a 20 46 t);. /* F
3280: 61 6c 6c 20 74 68 72 6f 75 67 68 20 69 6e 74 6f all through into
3290: 20 74 68 65 20 6e 65 78 74 20 63 61 73 65 20 2a the next case *
32a0: 2f 0a 20 20 20 20 20 20 63 61 73 65 20 65 74 52 /. case etR
32b0: 41 44 49 58 3a 0a 20 20 20 20 20 20 20 20 69 66 ADIX:. if
32c0: 28 20 69 6e 66 6f 70 2d 3e 66 6c 61 67 73 20 26 ( infop->flags &
32d0: 20 46 4c 41 47 5f 53 49 47 4e 45 44 20 29 7b 0a FLAG_SIGNED ){.
32e0: 20 20 20 20 20 20 20 20 20 20 69 36 34 20 76 3b i64 v;
32f0: 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20 66 . if( f
3300: 6c 61 67 5f 6c 6f 6e 67 6c 6f 6e 67 20 29 20 20 lag_longlong )
3310: 20 76 20 3d 20 76 61 5f 61 72 67 28 61 70 2c 69 v = va_arg(ap,i
3320: 36 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 65 64);. e
3330: 6c 73 65 20 69 66 28 20 66 6c 61 67 5f 6c 6f 6e lse if( flag_lon
3340: 67 20 29 20 20 76 20 3d 20 76 61 5f 61 72 67 28 g ) v = va_arg(
3350: 61 70 2c 6c 6f 6e 67 20 69 6e 74 29 3b 0a 20 20 ap,long int);.
3360: 20 20 20 20 20 20 20 20 65 6c 73 65 20 20 20 20 else
3370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 20 v
3380: 3d 20 76 61 5f 61 72 67 28 61 70 2c 69 6e 74 29 = va_arg(ap,int)
3390: 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20 ;. if(
33a0: 76 3c 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 v<0 ){.
33b0: 20 20 20 6c 6f 6e 67 76 61 6c 75 65 20 3d 20 2d longvalue = -
33c0: 76 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 v;. p
33d0: 72 65 66 69 78 20 3d 20 27 2d 27 3b 0a 20 20 20 refix = '-';.
33e0: 20 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 }else{.
33f0: 20 20 20 20 20 20 20 20 20 20 6c 6f 6e 67 76 61 longva
3400: 6c 75 65 20 3d 20 76 3b 0a 20 20 20 20 20 20 20 lue = v;.
3410: 20 20 20 20 20 69 66 28 20 66 6c 61 67 5f 70 6c if( flag_pl
3420: 75 73 73 69 67 6e 20 29 20 20 20 20 20 20 20 20 ussign )
3430: 70 72 65 66 69 78 20 3d 20 27 2b 27 3b 0a 20 20 prefix = '+';.
3440: 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 69 else i
3450: 66 28 20 66 6c 61 67 5f 62 6c 61 6e 6b 73 69 67 f( flag_blanksig
3460: 6e 20 29 20 20 70 72 65 66 69 78 20 3d 20 27 20 n ) prefix = '
3470: 27 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 ';. e
3480: 6c 73 65 20 20 20 20 20 20 20 20 20 20 20 20 20 lse
3490: 20 20 20 20 20 20 20 20 20 20 70 72 65 66 69 78 prefix
34a0: 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 = 0;.
34b0: 7d 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 65 7b }. }else{
34c0: 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20 66 . if( f
34d0: 6c 61 67 5f 6c 6f 6e 67 6c 6f 6e 67 20 29 20 20 lag_longlong )
34e0: 20 6c 6f 6e 67 76 61 6c 75 65 20 3d 20 76 61 5f longvalue = va_
34f0: 61 72 67 28 61 70 2c 75 36 34 29 3b 0a 20 20 20 arg(ap,u64);.
3500: 20 20 20 20 20 20 20 65 6c 73 65 20 69 66 28 20 else if(
3510: 66 6c 61 67 5f 6c 6f 6e 67 20 29 20 20 6c 6f 6e flag_long ) lon
3520: 67 76 61 6c 75 65 20 3d 20 76 61 5f 61 72 67 28 gvalue = va_arg(
3530: 61 70 2c 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 ap,unsigned long
3540: 20 69 6e 74 29 3b 0a 20 20 20 20 20 20 20 20 20 int);.
3550: 20 65 6c 73 65 20 20 20 20 20 20 20 20 20 20 20 else
3560: 20 20 20 20 20 20 20 6c 6f 6e 67 76 61 6c 75 65 longvalue
3570: 20 3d 20 76 61 5f 61 72 67 28 61 70 2c 75 6e 73 = va_arg(ap,uns
3580: 69 67 6e 65 64 20 69 6e 74 29 3b 0a 20 20 20 20 igned int);.
3590: 20 20 20 20 20 20 70 72 65 66 69 78 20 3d 20 30 prefix = 0
35a0: 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 ;. }.
35b0: 20 20 20 20 69 66 28 20 6c 6f 6e 67 76 61 6c 75 if( longvalu
35c0: 65 3d 3d 30 20 29 20 66 6c 61 67 5f 61 6c 74 65 e==0 ) flag_alte
35d0: 72 6e 61 74 65 66 6f 72 6d 20 3d 20 30 3b 0a 20 rnateform = 0;.
35e0: 20 20 20 20 20 20 20 69 66 28 20 66 6c 61 67 5f if( flag_
35f0: 7a 65 72 6f 70 61 64 20 26 26 20 70 72 65 63 69 zeropad && preci
3600: 73 69 6f 6e 3c 77 69 64 74 68 2d 28 70 72 65 66 sion<width-(pref
3610: 69 78 21 3d 30 29 20 29 7b 0a 20 20 20 20 20 20 ix!=0) ){.
3620: 20 20 20 20 70 72 65 63 69 73 69 6f 6e 20 3d 20 precision =
3630: 77 69 64 74 68 2d 28 70 72 65 66 69 78 21 3d 30 width-(prefix!=0
3640: 29 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 );. }.
3650: 20 20 20 20 20 62 75 66 70 74 20 3d 20 26 62 75 bufpt = &bu
3660: 66 5b 65 74 42 55 46 53 49 5a 45 2d 31 5d 3b 0a f[etBUFSIZE-1];.
3670: 20 20 20 20 20 20 20 20 7b 0a 20 20 20 20 20 20 {.
3680: 20 20 20 20 72 65 67 69 73 74 65 72 20 63 6f 6e register con
3690: 73 74 20 63 68 61 72 20 2a 63 73 65 74 3b 20 20 st char *cset;
36a0: 20 20 20 20 2f 2a 20 55 73 65 20 72 65 67 69 73 /* Use regis
36b0: 74 65 72 73 20 66 6f 72 20 73 70 65 65 64 20 2a ters for speed *
36c0: 2f 0a 20 20 20 20 20 20 20 20 20 20 72 65 67 69 /. regi
36d0: 73 74 65 72 20 69 6e 74 20 62 61 73 65 3b 0a 20 ster int base;.
36e0: 20 20 20 20 20 20 20 20 20 63 73 65 74 20 3d 20 cset =
36f0: 26 61 44 69 67 69 74 73 5b 69 6e 66 6f 70 2d 3e &aDigits[infop->
3700: 63 68 61 72 73 65 74 5d 3b 0a 20 20 20 20 20 20 charset];.
3710: 20 20 20 20 62 61 73 65 20 3d 20 69 6e 66 6f 70 base = infop
3720: 2d 3e 62 61 73 65 3b 0a 20 20 20 20 20 20 20 20 ->base;.
3730: 20 20 64 6f 7b 20 20 20 20 20 20 20 20 20 20 20 do{
3740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3760: 2f 2a 20 43 6f 6e 76 65 72 74 20 74 6f 20 61 73 /* Convert to as
3770: 63 69 69 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 cii */.
3780: 20 20 20 2a 28 2d 2d 62 75 66 70 74 29 20 3d 20 *(--bufpt) =
3790: 63 73 65 74 5b 6c 6f 6e 67 76 61 6c 75 65 25 62 cset[longvalue%b
37a0: 61 73 65 5d 3b 0a 20 20 20 20 20 20 20 20 20 20 ase];.
37b0: 20 20 6c 6f 6e 67 76 61 6c 75 65 20 3d 20 6c 6f longvalue = lo
37c0: 6e 67 76 61 6c 75 65 2f 62 61 73 65 3b 0a 20 20 ngvalue/base;.
37d0: 20 20 20 20 20 20 20 20 7d 77 68 69 6c 65 28 20 }while(
37e0: 6c 6f 6e 67 76 61 6c 75 65 3e 30 20 29 3b 0a 20 longvalue>0 );.
37f0: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 }.
3800: 20 6c 65 6e 67 74 68 20 3d 20 26 62 75 66 5b 65 length = &buf[e
3810: 74 42 55 46 53 49 5a 45 2d 31 5d 2d 62 75 66 70 tBUFSIZE-1]-bufp
3820: 74 3b 0a 20 20 20 20 20 20 20 20 66 6f 72 28 69 t;. for(i
3830: 64 78 3d 70 72 65 63 69 73 69 6f 6e 2d 6c 65 6e dx=precision-len
3840: 67 74 68 3b 20 69 64 78 3e 30 3b 20 69 64 78 2d gth; idx>0; idx-
3850: 2d 29 7b 0a 20 20 20 20 20 20 20 20 20 20 2a 28 -){. *(
3860: 2d 2d 62 75 66 70 74 29 20 3d 20 27 30 27 3b 20 --bufpt) = '0';
3870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3880: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 5a /* Z
3890: 65 72 6f 20 70 61 64 20 2a 2f 0a 20 20 20 20 20 ero pad */.
38a0: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 69 66 28 }. if(
38b0: 20 70 72 65 66 69 78 20 29 20 2a 28 2d 2d 62 75 prefix ) *(--bu
38c0: 66 70 74 29 20 3d 20 70 72 65 66 69 78 3b 20 20 fpt) = prefix;
38d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 /*
38e0: 41 64 64 20 73 69 67 6e 20 2a 2f 0a 20 20 20 20 Add sign */.
38f0: 20 20 20 20 69 66 28 20 66 6c 61 67 5f 61 6c 74 if( flag_alt
3900: 65 72 6e 61 74 65 66 6f 72 6d 20 26 26 20 69 6e ernateform && in
3910: 66 6f 70 2d 3e 70 72 65 66 69 78 20 29 7b 20 20 fop->prefix ){
3920: 20 20 20 20 2f 2a 20 41 64 64 20 22 30 22 20 6f /* Add "0" o
3930: 72 20 22 30 78 22 20 2a 2f 0a 20 20 20 20 20 20 r "0x" */.
3940: 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a const char *
3950: 70 72 65 3b 0a 20 20 20 20 20 20 20 20 20 20 63 pre;. c
3960: 68 61 72 20 78 3b 0a 20 20 20 20 20 20 20 20 20 har x;.
3970: 20 70 72 65 20 3d 20 26 61 50 72 65 66 69 78 5b pre = &aPrefix[
3980: 69 6e 66 6f 70 2d 3e 70 72 65 66 69 78 5d 3b 0a infop->prefix];.
3990: 20 20 20 20 20 20 20 20 20 20 69 66 28 20 2a 62 if( *b
39a0: 75 66 70 74 21 3d 70 72 65 5b 30 5d 20 29 7b 0a ufpt!=pre[0] ){.
39b0: 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 28 for(
39c0: 3b 20 28 78 3d 28 2a 70 72 65 29 29 21 3d 30 3b ; (x=(*pre))!=0;
39d0: 20 70 72 65 2b 2b 29 20 2a 28 2d 2d 62 75 66 70 pre++) *(--bufp
39e0: 74 29 20 3d 20 78 3b 0a 20 20 20 20 20 20 20 20 t) = x;.
39f0: 20 20 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 }. }.
3a00: 20 20 20 20 20 20 6c 65 6e 67 74 68 20 3d 20 26 length = &
3a10: 62 75 66 5b 65 74 42 55 46 53 49 5a 45 2d 31 5d buf[etBUFSIZE-1]
3a20: 2d 62 75 66 70 74 3b 0a 20 20 20 20 20 20 20 20 -bufpt;.
3a30: 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 63 61 73 break;. cas
3a40: 65 20 65 74 46 4c 4f 41 54 3a 0a 20 20 20 20 20 e etFLOAT:.
3a50: 20 63 61 73 65 20 65 74 45 58 50 3a 0a 20 20 20 case etEXP:.
3a60: 20 20 20 63 61 73 65 20 65 74 47 45 4e 45 52 49 case etGENERI
3a70: 43 3a 0a 20 20 20 20 20 20 20 20 72 65 61 6c 76 C:. realv
3a80: 61 6c 75 65 20 3d 20 76 61 5f 61 72 67 28 61 70 alue = va_arg(ap
3a90: 2c 64 6f 75 62 6c 65 29 3b 0a 20 20 20 20 20 20 ,double);.
3aa0: 20 20 69 66 28 20 70 72 65 63 69 73 69 6f 6e 3c if( precision<
3ab0: 30 20 29 20 70 72 65 63 69 73 69 6f 6e 20 3d 20 0 ) precision =
3ac0: 36 3b 20 20 20 20 20 20 20 20 20 2f 2a 20 53 65 6; /* Se
3ad0: 74 20 64 65 66 61 75 6c 74 20 70 72 65 63 69 73 t default precis
3ae0: 69 6f 6e 20 2a 2f 0a 20 20 20 20 20 20 20 20 69 ion */. i
3af0: 66 28 20 70 72 65 63 69 73 69 6f 6e 3e 65 74 42 f( precision>etB
3b00: 55 46 53 49 5a 45 2f 32 2d 31 30 20 29 20 70 72 UFSIZE/2-10 ) pr
3b10: 65 63 69 73 69 6f 6e 20 3d 20 65 74 42 55 46 53 ecision = etBUFS
3b20: 49 5a 45 2f 32 2d 31 30 3b 0a 20 20 20 20 20 20 IZE/2-10;.
3b30: 20 20 69 66 28 20 72 65 61 6c 76 61 6c 75 65 3c if( realvalue<
3b40: 30 2e 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 0.0 ){.
3b50: 20 72 65 61 6c 76 61 6c 75 65 20 3d 20 2d 72 65 realvalue = -re
3b60: 61 6c 76 61 6c 75 65 3b 0a 20 20 20 20 20 20 20 alvalue;.
3b70: 20 20 20 70 72 65 66 69 78 20 3d 20 27 2d 27 3b prefix = '-';
3b80: 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a . }else{.
3b90: 20 20 20 20 20 20 20 20 20 20 69 66 28 20 66 6c if( fl
3ba0: 61 67 5f 70 6c 75 73 73 69 67 6e 20 29 20 20 20 ag_plussign )
3bb0: 20 20 20 20 20 20 20 70 72 65 66 69 78 20 3d 20 prefix =
3bc0: 27 2b 27 3b 0a 20 20 20 20 20 20 20 20 20 20 65 '+';. e
3bd0: 6c 73 65 20 69 66 28 20 66 6c 61 67 5f 62 6c 61 lse if( flag_bla
3be0: 6e 6b 73 69 67 6e 20 29 20 20 20 20 70 72 65 66 nksign ) pref
3bf0: 69 78 20 3d 20 27 20 27 3b 0a 20 20 20 20 20 20 ix = ' ';.
3c00: 20 20 20 20 65 6c 73 65 20 20 20 20 20 20 20 20 else
3c10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3c20: 20 70 72 65 66 69 78 20 3d 20 30 3b 0a 20 20 20 prefix = 0;.
3c30: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 69 }. i
3c40: 66 28 20 78 74 79 70 65 3d 3d 65 74 47 45 4e 45 f( xtype==etGENE
3c50: 52 49 43 20 26 26 20 70 72 65 63 69 73 69 6f 6e RIC && precision
3c60: 3e 30 20 29 20 70 72 65 63 69 73 69 6f 6e 2d 2d >0 ) precision--
3c70: 3b 0a 23 69 66 20 30 0a 20 20 20 20 20 20 20 20 ;.#if 0.
3c80: 2f 2a 20 52 6f 75 6e 64 69 6e 67 20 77 6f 72 6b /* Rounding work
3c90: 73 20 6c 69 6b 65 20 42 53 44 20 77 68 65 6e 20 s like BSD when
3ca0: 74 68 65 20 63 6f 6e 73 74 61 6e 74 20 30 2e 34 the constant 0.4
3cb0: 39 39 39 20 69 73 20 75 73 65 64 2e 20 20 57 69 999 is used. Wi
3cc0: 65 72 64 21 20 2a 2f 0a 20 20 20 20 20 20 20 20 erd! */.
3cd0: 66 6f 72 28 69 64 78 3d 70 72 65 63 69 73 69 6f for(idx=precisio
3ce0: 6e 2c 20 72 6f 75 6e 64 65 72 3d 30 2e 34 39 39 n, rounder=0.499
3cf0: 39 3b 20 69 64 78 3e 30 3b 20 69 64 78 2d 2d 2c 9; idx>0; idx--,
3d00: 20 72 6f 75 6e 64 65 72 2a 3d 30 2e 31 29 3b 0a rounder*=0.1);.
3d10: 23 65 6c 73 65 0a 20 20 20 20 20 20 20 20 2f 2a #else. /*
3d20: 20 49 74 20 6d 61 6b 65 73 20 6d 6f 72 65 20 73 It makes more s
3d30: 65 6e 73 65 20 74 6f 20 75 73 65 20 30 2e 35 20 ense to use 0.5
3d40: 2a 2f 0a 20 20 20 20 20 20 20 20 66 6f 72 28 69 */. for(i
3d50: 64 78 3d 70 72 65 63 69 73 69 6f 6e 2c 20 72 6f dx=precision, ro
3d60: 75 6e 64 65 72 3d 30 2e 35 3b 20 69 64 78 3e 30 under=0.5; idx>0
3d70: 3b 20 69 64 78 2d 2d 2c 20 72 6f 75 6e 64 65 72 ; idx--, rounder
3d80: 2a 3d 30 2e 31 29 3b 0a 23 65 6e 64 69 66 0a 20 *=0.1);.#endif.
3d90: 20 20 20 20 20 20 20 69 66 28 20 78 74 79 70 65 if( xtype
3da0: 3d 3d 65 74 46 4c 4f 41 54 20 29 20 72 65 61 6c ==etFLOAT ) real
3db0: 76 61 6c 75 65 20 2b 3d 20 72 6f 75 6e 64 65 72 value += rounder
3dc0: 3b 0a 20 20 20 20 20 20 20 20 2f 2a 20 4e 6f 72 ;. /* Nor
3dd0: 6d 61 6c 69 7a 65 20 72 65 61 6c 76 61 6c 75 65 malize realvalue
3de0: 20 74 6f 20 77 69 74 68 69 6e 20 31 30 2e 30 20 to within 10.0
3df0: 3e 20 72 65 61 6c 76 61 6c 75 65 20 3e 3d 20 31 > realvalue >= 1
3e00: 2e 30 20 2a 2f 0a 20 20 20 20 20 20 20 20 65 78 .0 */. ex
3e10: 70 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 69 p = 0;. i
3e20: 66 28 20 72 65 61 6c 76 61 6c 75 65 3e 30 2e 30 f( realvalue>0.0
3e30: 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 77 68 ){. wh
3e40: 69 6c 65 28 20 72 65 61 6c 76 61 6c 75 65 3e 3d ile( realvalue>=
3e50: 31 65 33 32 20 26 26 20 65 78 70 3c 3d 33 35 30 1e32 && exp<=350
3e60: 20 29 7b 20 72 65 61 6c 76 61 6c 75 65 20 2a 3d ){ realvalue *=
3e70: 20 31 65 2d 33 32 3b 20 65 78 70 2b 3d 33 32 3b 1e-32; exp+=32;
3e80: 20 7d 0a 20 20 20 20 20 20 20 20 20 20 77 68 69 }. whi
3e90: 6c 65 28 20 72 65 61 6c 76 61 6c 75 65 3e 3d 31 le( realvalue>=1
3ea0: 65 38 20 26 26 20 65 78 70 3c 3d 33 35 30 20 29 e8 && exp<=350 )
3eb0: 7b 20 72 65 61 6c 76 61 6c 75 65 20 2a 3d 20 31 { realvalue *= 1
3ec0: 65 2d 38 3b 20 65 78 70 2b 3d 38 3b 20 7d 0a 20 e-8; exp+=8; }.
3ed0: 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 28 20 while(
3ee0: 72 65 61 6c 76 61 6c 75 65 3e 3d 31 30 2e 30 20 realvalue>=10.0
3ef0: 26 26 20 65 78 70 3c 3d 33 35 30 20 29 7b 20 72 && exp<=350 ){ r
3f00: 65 61 6c 76 61 6c 75 65 20 2a 3d 20 30 2e 31 3b ealvalue *= 0.1;
3f10: 20 65 78 70 2b 2b 3b 20 7d 0a 20 20 20 20 20 20 exp++; }.
3f20: 20 20 20 20 77 68 69 6c 65 28 20 72 65 61 6c 76 while( realv
3f30: 61 6c 75 65 3c 31 65 2d 38 20 26 26 20 65 78 70 alue<1e-8 && exp
3f40: 3e 3d 2d 33 35 30 20 29 7b 20 72 65 61 6c 76 61 >=-350 ){ realva
3f50: 6c 75 65 20 2a 3d 20 31 65 38 3b 20 65 78 70 2d lue *= 1e8; exp-
3f60: 3d 38 3b 20 7d 0a 20 20 20 20 20 20 20 20 20 20 =8; }.
3f70: 77 68 69 6c 65 28 20 72 65 61 6c 76 61 6c 75 65 while( realvalue
3f80: 3c 31 2e 30 20 26 26 20 65 78 70 3e 3d 2d 33 35 <1.0 && exp>=-35
3f90: 30 20 29 7b 20 72 65 61 6c 76 61 6c 75 65 20 2a 0 ){ realvalue *
3fa0: 3d 20 31 30 2e 30 3b 20 65 78 70 2d 2d 3b 20 7d = 10.0; exp--; }
3fb0: 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20 65 . if( e
3fc0: 78 70 3e 33 35 30 20 7c 7c 20 65 78 70 3c 2d 33 xp>350 || exp<-3
3fd0: 35 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 50 ){.
3fe0: 20 20 62 75 66 70 74 20 3d 20 22 4e 61 4e 22 3b bufpt = "NaN";
3ff0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 65 6e . len
4000: 67 74 68 20 3d 20 33 3b 0a 20 20 20 20 20 20 20 gth = 3;.
4010: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 break;.
4020: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 }.
4030: 7d 0a 20 20 20 20 20 20 20 20 62 75 66 70 74 20 }. bufpt
4040: 3d 20 62 75 66 3b 0a 20 20 20 20 20 20 20 20 2f = buf;. /
4050: 2a 0a 20 20 20 20 20 20 20 20 2a 2a 20 49 66 20 *. ** If
4060: 74 68 65 20 66 69 65 6c 64 20 74 79 70 65 20 69 the field type i
4070: 73 20 65 74 47 45 4e 45 52 49 43 2c 20 74 68 65 s etGENERIC, the
4080: 6e 20 63 6f 6e 76 65 72 74 20 74 6f 20 65 69 74 n convert to eit
4090: 68 65 72 20 65 74 45 58 50 0a 20 20 20 20 20 20 her etEXP.
40a0: 20 20 2a 2a 20 6f 72 20 65 74 46 4c 4f 41 54 2c ** or etFLOAT,
40b0: 20 61 73 20 61 70 70 72 6f 70 72 69 61 74 65 2e as appropriate.
40c0: 0a 20 20 20 20 20 20 20 20 2a 2f 0a 20 20 20 20 . */.
40d0: 20 20 20 20 66 6c 61 67 5f 65 78 70 20 3d 20 78 flag_exp = x
40e0: 74 79 70 65 3d 3d 65 74 45 58 50 3b 0a 20 20 20 type==etEXP;.
40f0: 20 20 20 20 20 69 66 28 20 78 74 79 70 65 21 3d if( xtype!=
4100: 65 74 46 4c 4f 41 54 20 29 7b 0a 20 20 20 20 20 etFLOAT ){.
4110: 20 20 20 20 20 72 65 61 6c 76 61 6c 75 65 20 2b realvalue +
4120: 3d 20 72 6f 75 6e 64 65 72 3b 0a 20 20 20 20 20 = rounder;.
4130: 20 20 20 20 20 69 66 28 20 72 65 61 6c 76 61 6c if( realval
4140: 75 65 3e 3d 31 30 2e 30 20 29 7b 20 72 65 61 6c ue>=10.0 ){ real
4150: 76 61 6c 75 65 20 2a 3d 20 30 2e 31 3b 20 65 78 value *= 0.1; ex
4160: 70 2b 2b 3b 20 7d 0a 20 20 20 20 20 20 20 20 7d p++; }. }
4170: 0a 20 20 20 20 20 20 20 20 69 66 28 20 78 74 79 . if( xty
4180: 70 65 3d 3d 65 74 47 45 4e 45 52 49 43 20 29 7b pe==etGENERIC ){
4190: 0a 20 20 20 20 20 20 20 20 20 20 66 6c 61 67 5f . flag_
41a0: 72 74 7a 20 3d 20 21 66 6c 61 67 5f 61 6c 74 65 rtz = !flag_alte
41b0: 72 6e 61 74 65 66 6f 72 6d 3b 0a 20 20 20 20 20 rnateform;.
41c0: 20 20 20 20 20 69 66 28 20 65 78 70 3c 2d 34 20 if( exp<-4
41d0: 7c 7c 20 65 78 70 3e 70 72 65 63 69 73 69 6f 6e || exp>precision
41e0: 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ){.
41f0: 78 74 79 70 65 20 3d 20 65 74 45 58 50 3b 0a 20 xtype = etEXP;.
4200: 20 20 20 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a }else{.
4210: 20 20 20 20 20 20 20 20 20 20 20 20 70 72 65 63 prec
4220: 69 73 69 6f 6e 20 3d 20 70 72 65 63 69 73 69 6f ision = precisio
4230: 6e 20 2d 20 65 78 70 3b 0a 20 20 20 20 20 20 20 n - exp;.
4240: 20 20 20 20 20 78 74 79 70 65 20 3d 20 65 74 46 xtype = etF
4250: 4c 4f 41 54 3b 0a 20 20 20 20 20 20 20 20 20 20 LOAT;.
4260: 7d 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 65 7b }. }else{
4270: 0a 20 20 20 20 20 20 20 20 20 20 66 6c 61 67 5f . flag_
4280: 72 74 7a 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 rtz = 0;.
4290: 20 7d 0a 20 20 20 20 20 20 20 20 69 66 28 20 78 }. if( x
42a0: 74 79 70 65 3d 3d 65 74 45 58 50 20 29 7b 0a 20 type==etEXP ){.
42b0: 20 20 20 20 20 20 20 20 20 65 32 20 3d 20 30 3b e2 = 0;
42c0: 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a . }else{.
42d0: 20 20 20 20 20 20 20 20 20 20 65 32 20 3d 20 65 e2 = e
42e0: 78 70 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 xp;. }.
42f0: 20 20 20 20 20 20 6e 73 64 20 3d 20 30 3b 0a 20 nsd = 0;.
4300: 20 20 20 20 20 20 20 66 6c 61 67 5f 64 70 20 3d flag_dp =
4310: 20 28 70 72 65 63 69 73 69 6f 6e 3e 30 29 20 7c (precision>0) |
4320: 20 66 6c 61 67 5f 61 6c 74 65 72 6e 61 74 65 66 flag_alternatef
4330: 6f 72 6d 20 7c 20 66 6c 61 67 5f 61 6c 74 66 6f orm | flag_altfo
4340: 72 6d 32 3b 0a 20 20 20 20 20 20 20 20 2f 2a 20 rm2;. /*
4350: 54 68 65 20 73 69 67 6e 20 69 6e 20 66 72 6f 6e The sign in fron
4360: 74 20 6f 66 20 74 68 65 20 6e 75 6d 62 65 72 20 t of the number
4370: 2a 2f 0a 20 20 20 20 20 20 20 20 69 66 28 20 70 */. if( p
4380: 72 65 66 69 78 20 29 7b 0a 20 20 20 20 20 20 20 refix ){.
4390: 20 20 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 *(bufpt++) =
43a0: 70 72 65 66 69 78 3b 0a 20 20 20 20 20 20 20 20 prefix;.
43b0: 7d 0a 20 20 20 20 20 20 20 20 2f 2a 20 44 69 67 }. /* Dig
43c0: 69 74 73 20 70 72 69 6f 72 20 74 6f 20 74 68 65 its prior to the
43d0: 20 64 65 63 69 6d 61 6c 20 70 6f 69 6e 74 20 2a decimal point *
43e0: 2f 0a 20 20 20 20 20 20 20 20 69 66 28 20 65 32 /. if( e2
43f0: 3c 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 <0 ){.
4400: 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 27 30 27 *(bufpt++) = '0'
4410: 3b 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 65 7b ;. }else{
4420: 0a 20 20 20 20 20 20 20 20 20 20 66 6f 72 28 3b . for(;
4430: 20 65 32 3e 3d 30 3b 20 65 32 2d 2d 29 7b 0a 20 e2>=0; e2--){.
4440: 20 20 20 20 20 20 20 20 20 20 20 2a 28 62 75 66 *(buf
4450: 70 74 2b 2b 29 20 3d 20 65 74 5f 67 65 74 64 69 pt++) = et_getdi
4460: 67 69 74 28 26 72 65 61 6c 76 61 6c 75 65 2c 26 git(&realvalue,&
4470: 6e 73 64 29 3b 0a 20 20 20 20 20 20 20 20 20 20 nsd);.
4480: 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 }. }.
4490: 20 20 20 20 2f 2a 20 54 68 65 20 64 65 63 69 6d /* The decim
44a0: 61 6c 20 70 6f 69 6e 74 20 2a 2f 0a 20 20 20 20 al point */.
44b0: 20 20 20 20 69 66 28 20 66 6c 61 67 5f 64 70 20 if( flag_dp
44c0: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 2a 28 62 ){. *(b
44d0: 75 66 70 74 2b 2b 29 20 3d 20 27 2e 27 3b 0a 20 ufpt++) = '.';.
44e0: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 }.
44f0: 20 2f 2a 20 22 30 22 20 64 69 67 69 74 73 20 61 /* "0" digits a
4500: 66 74 65 72 20 74 68 65 20 64 65 63 69 6d 61 6c fter the decimal
4510: 20 70 6f 69 6e 74 20 62 75 74 20 62 65 66 6f 72 point but befor
4520: 65 20 74 68 65 20 66 69 72 73 74 0a 20 20 20 20 e the first.
4530: 20 20 20 20 2a 2a 20 73 69 67 6e 69 66 69 63 61 ** significa
4540: 6e 74 20 64 69 67 69 74 20 6f 66 20 74 68 65 20 nt digit of the
4550: 6e 75 6d 62 65 72 20 2a 2f 0a 20 20 20 20 20 20 number */.
4560: 20 20 66 6f 72 28 65 32 2b 2b 3b 20 65 32 3c 30 for(e2++; e2<0
4570: 20 26 26 20 70 72 65 63 69 73 69 6f 6e 3e 30 3b && precision>0;
4580: 20 70 72 65 63 69 73 69 6f 6e 2d 2d 2c 20 65 32 precision--, e2
4590: 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20 20 20 2a ++){. *
45a0: 28 62 75 66 70 74 2b 2b 29 20 3d 20 27 30 27 3b (bufpt++) = '0';
45b0: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 . }.
45c0: 20 20 20 2f 2a 20 53 69 67 6e 69 66 69 63 61 6e /* Significan
45d0: 74 20 64 69 67 69 74 73 20 61 66 74 65 72 20 74 t digits after t
45e0: 68 65 20 64 65 63 69 6d 61 6c 20 70 6f 69 6e 74 he decimal point
45f0: 20 2a 2f 0a 20 20 20 20 20 20 20 20 77 68 69 6c */. whil
4600: 65 28 20 28 70 72 65 63 69 73 69 6f 6e 2d 2d 29 e( (precision--)
4610: 3e 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 >0 ){.
4620: 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 65 74 5f *(bufpt++) = et_
4630: 67 65 74 64 69 67 69 74 28 26 72 65 61 6c 76 61 getdigit(&realva
4640: 6c 75 65 2c 26 6e 73 64 29 3b 0a 20 20 20 20 20 lue,&nsd);.
4650: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 2f 2a 20 }. /*
4660: 52 65 6d 6f 76 65 20 74 72 61 69 6c 69 6e 67 20 Remove trailing
4670: 7a 65 72 6f 73 20 61 6e 64 20 74 68 65 20 22 2e zeros and the ".
4680: 22 20 69 66 20 6e 6f 20 64 69 67 69 74 73 20 66 " if no digits f
4690: 6f 6c 6c 6f 77 20 74 68 65 20 22 2e 22 20 2a 2f ollow the "." */
46a0: 0a 20 20 20 20 20 20 20 20 69 66 28 20 66 6c 61 . if( fla
46b0: 67 5f 72 74 7a 20 26 26 20 66 6c 61 67 5f 64 70 g_rtz && flag_dp
46c0: 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 77 68 ){. wh
46d0: 69 6c 65 28 20 62 75 66 70 74 5b 2d 31 5d 3d 3d ile( bufpt[-1]==
46e0: 27 30 27 20 29 20 2a 28 2d 2d 62 75 66 70 74 29 '0' ) *(--bufpt)
46f0: 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 = 0;.
4700: 61 73 73 65 72 74 28 20 62 75 66 70 74 3e 62 75 assert( bufpt>bu
4710: 66 20 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69 f );. i
4720: 66 28 20 62 75 66 70 74 5b 2d 31 5d 3d 3d 27 2e f( bufpt[-1]=='.
4730: 27 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20 ' ){.
4740: 20 69 66 28 20 66 6c 61 67 5f 61 6c 74 66 6f 72 if( flag_altfor
4750: 6d 32 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 m2 ){.
4760: 20 20 20 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d *(bufpt++) =
4770: 20 27 30 27 3b 0a 20 20 20 20 20 20 20 20 20 20 '0';.
4780: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 }else{.
4790: 20 20 20 20 20 20 20 2a 28 2d 2d 62 75 66 70 74 *(--bufpt
47a0: 29 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 ) = 0;.
47b0: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20 7d }. }
47c0: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 . }.
47d0: 20 20 20 2f 2a 20 41 64 64 20 74 68 65 20 22 65 /* Add the "e
47e0: 4e 4e 4e 22 20 73 75 66 66 69 78 20 2a 2f 0a 20 NNN" suffix */.
47f0: 20 20 20 20 20 20 20 69 66 28 20 66 6c 61 67 5f if( flag_
4800: 65 78 70 20 7c 7c 20 28 78 74 79 70 65 3d 3d 65 exp || (xtype==e
4810: 74 45 58 50 20 26 26 20 65 78 70 29 20 29 7b 0a tEXP && exp) ){.
4820: 20 20 20 20 20 20 20 20 20 20 2a 28 62 75 66 70 *(bufp
4830: 74 2b 2b 29 20 3d 20 61 44 69 67 69 74 73 5b 69 t++) = aDigits[i
4840: 6e 66 6f 70 2d 3e 63 68 61 72 73 65 74 5d 3b 0a nfop->charset];.
4850: 20 20 20 20 20 20 20 20 20 20 69 66 28 20 65 78 if( ex
4860: 70 3c 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 p<0 ){.
4870: 20 20 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 *(bufpt++) =
4880: 27 2d 27 3b 20 65 78 70 20 3d 20 2d 65 78 70 3b '-'; exp = -exp;
4890: 0a 20 20 20 20 20 20 20 20 20 20 7d 65 6c 73 65 . }else
48a0: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 2a 28 {. *(
48b0: 62 75 66 70 74 2b 2b 29 20 3d 20 27 2b 27 3b 0a bufpt++) = '+';.
48c0: 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 }.
48d0: 20 20 20 20 20 20 69 66 28 20 65 78 70 3e 3d 31 if( exp>=1
48e0: 30 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 00 ){.
48f0: 20 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 28 *(bufpt++) = (
4900: 65 78 70 2f 31 30 30 29 2b 27 30 27 3b 20 20 20 exp/100)+'0';
4910: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 /*
4920: 31 30 30 27 73 20 64 69 67 69 74 20 2a 2f 0a 20 100's digit */.
4930: 20 20 20 20 20 20 20 20 20 20 20 65 78 70 20 25 exp %
4940: 3d 20 31 30 30 3b 0a 20 20 20 20 20 20 20 20 20 = 100;.
4950: 20 7d 0a 20 20 20 20 20 20 20 20 20 20 2a 28 62 }. *(b
4960: 75 66 70 74 2b 2b 29 20 3d 20 65 78 70 2f 31 30 ufpt++) = exp/10
4970: 2b 27 30 27 3b 20 20 20 20 20 20 20 20 20 20 20 +'0';
4980: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 31 30 27 /* 10'
4990: 73 20 64 69 67 69 74 20 2a 2f 0a 20 20 20 20 20 s digit */.
49a0: 20 20 20 20 20 2a 28 62 75 66 70 74 2b 2b 29 20 *(bufpt++)
49b0: 3d 20 65 78 70 25 31 30 2b 27 30 27 3b 20 20 20 = exp%10+'0';
49c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
49d0: 20 20 2f 2a 20 31 27 73 20 64 69 67 69 74 20 2a /* 1's digit *
49e0: 2f 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 /. }.
49f0: 20 20 20 20 2a 62 75 66 70 74 20 3d 20 30 3b 0a *bufpt = 0;.
4a00: 0a 20 20 20 20 20 20 20 20 2f 2a 20 54 68 65 20 . /* The
4a10: 63 6f 6e 76 65 72 74 65 64 20 6e 75 6d 62 65 72 converted number
4a20: 20 69 73 20 69 6e 20 62 75 66 5b 5d 20 61 6e 64 is in buf[] and
4a30: 20 7a 65 72 6f 20 74 65 72 6d 69 6e 61 74 65 64 zero terminated
4a40: 2e 20 4f 75 74 70 75 74 20 69 74 2e 0a 20 20 20 . Output it..
4a50: 20 20 20 20 20 2a 2a 20 4e 6f 74 65 20 74 68 61 ** Note tha
4a60: 74 20 74 68 65 20 6e 75 6d 62 65 72 20 69 73 20 t the number is
4a70: 69 6e 20 74 68 65 20 75 73 75 61 6c 20 6f 72 64 in the usual ord
4a80: 65 72 2c 20 6e 6f 74 20 72 65 76 65 72 73 65 64 er, not reversed
4a90: 20 61 73 20 77 69 74 68 0a 20 20 20 20 20 20 20 as with.
4aa0: 20 2a 2a 20 69 6e 74 65 67 65 72 20 63 6f 6e 76 ** integer conv
4ab0: 65 72 73 69 6f 6e 73 2e 20 2a 2f 0a 20 20 20 20 ersions. */.
4ac0: 20 20 20 20 6c 65 6e 67 74 68 20 3d 20 62 75 66 length = buf
4ad0: 70 74 2d 62 75 66 3b 0a 20 20 20 20 20 20 20 20 pt-buf;.
4ae0: 62 75 66 70 74 20 3d 20 62 75 66 3b 0a 0a 20 20 bufpt = buf;..
4af0: 20 20 20 20 20 20 2f 2a 20 53 70 65 63 69 61 6c /* Special
4b00: 20 63 61 73 65 3a 20 20 41 64 64 20 6c 65 61 64 case: Add lead
4b10: 69 6e 67 20 7a 65 72 6f 73 20 69 66 20 74 68 65 ing zeros if the
4b20: 20 66 6c 61 67 5f 7a 65 72 6f 70 61 64 20 66 6c flag_zeropad fl
4b30: 61 67 20 69 73 0a 20 20 20 20 20 20 20 20 2a 2a ag is. **
4b40: 20 73 65 74 20 61 6e 64 20 77 65 20 61 72 65 20 set and we are
4b50: 6e 6f 74 20 6c 65 66 74 20 6a 75 73 74 69 66 69 not left justifi
4b60: 65 64 20 2a 2f 0a 20 20 20 20 20 20 20 20 69 66 ed */. if
4b70: 28 20 66 6c 61 67 5f 7a 65 72 6f 70 61 64 20 26 ( flag_zeropad &
4b80: 26 20 21 66 6c 61 67 5f 6c 65 66 74 6a 75 73 74 & !flag_leftjust
4b90: 69 66 79 20 26 26 20 6c 65 6e 67 74 68 20 3c 20 ify && length <
4ba0: 77 69 64 74 68 29 7b 0a 20 20 20 20 20 20 20 20 width){.
4bb0: 20 20 69 6e 74 20 69 3b 0a 20 20 20 20 20 20 20 int i;.
4bc0: 20 20 20 69 6e 74 20 6e 50 61 64 20 3d 20 77 69 int nPad = wi
4bd0: 64 74 68 20 2d 20 6c 65 6e 67 74 68 3b 0a 20 20 dth - length;.
4be0: 20 20 20 20 20 20 20 20 66 6f 72 28 69 3d 77 69 for(i=wi
4bf0: 64 74 68 3b 20 69 3e 3d 6e 50 61 64 3b 20 69 2d dth; i>=nPad; i-
4c00: 2d 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 -){.
4c10: 62 75 66 70 74 5b 69 5d 20 3d 20 62 75 66 70 74 bufpt[i] = bufpt
4c20: 5b 69 2d 6e 50 61 64 5d 3b 0a 20 20 20 20 20 20 [i-nPad];.
4c30: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20 }.
4c40: 69 20 3d 20 70 72 65 66 69 78 21 3d 30 3b 0a 20 i = prefix!=0;.
4c50: 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 28 20 while(
4c60: 6e 50 61 64 2d 2d 20 29 20 62 75 66 70 74 5b 69 nPad-- ) bufpt[i
4c70: 2b 2b 5d 20 3d 20 27 30 27 3b 0a 20 20 20 20 20 ++] = '0';.
4c80: 20 20 20 20 20 6c 65 6e 67 74 68 20 3d 20 77 69 length = wi
4c90: 64 74 68 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 dth;. }.
4ca0: 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 break;.
4cb0: 20 20 20 20 63 61 73 65 20 65 74 53 49 5a 45 3a case etSIZE:
4cc0: 0a 20 20 20 20 20 20 20 20 2a 28 76 61 5f 61 72 . *(va_ar
4cd0: 67 28 61 70 2c 69 6e 74 2a 29 29 20 3d 20 63 6f g(ap,int*)) = co
4ce0: 75 6e 74 3b 0a 20 20 20 20 20 20 20 20 6c 65 6e unt;. len
4cf0: 67 74 68 20 3d 20 77 69 64 74 68 20 3d 20 30 3b gth = width = 0;
4d00: 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a . break;.
4d10: 20 20 20 20 20 20 63 61 73 65 20 65 74 50 45 52 case etPER
4d20: 43 45 4e 54 3a 0a 20 20 20 20 20 20 20 20 62 75 CENT:. bu
4d30: 66 5b 30 5d 20 3d 20 27 25 27 3b 0a 20 20 20 20 f[0] = '%';.
4d40: 20 20 20 20 62 75 66 70 74 20 3d 20 62 75 66 3b bufpt = buf;
4d50: 0a 20 20 20 20 20 20 20 20 6c 65 6e 67 74 68 20 . length
4d60: 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 62 72 65 = 1;. bre
4d70: 61 6b 3b 0a 20 20 20 20 20 20 63 61 73 65 20 65 ak;. case e
4d80: 74 43 48 41 52 58 3a 0a 20 20 20 20 20 20 20 20 tCHARX:.
4d90: 63 20 3d 20 62 75 66 5b 30 5d 20 3d 20 28 78 74 c = buf[0] = (xt
4da0: 79 70 65 3d 3d 65 74 43 48 41 52 58 20 3f 20 76 ype==etCHARX ? v
4db0: 61 5f 61 72 67 28 61 70 2c 69 6e 74 29 20 3a 20 a_arg(ap,int) :
4dc0: 2a 2b 2b 66 6d 74 29 3b 0a 20 20 20 20 20 20 20 *++fmt);.
4dd0: 20 69 66 28 20 70 72 65 63 69 73 69 6f 6e 3e 3d if( precision>=
4de0: 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 66 0 ){. f
4df0: 6f 72 28 69 64 78 3d 31 3b 20 69 64 78 3c 70 72 or(idx=1; idx<pr
4e00: 65 63 69 73 69 6f 6e 3b 20 69 64 78 2b 2b 29 20 ecision; idx++)
4e10: 62 75 66 5b 69 64 78 5d 20 3d 20 63 3b 0a 20 20 buf[idx] = c;.
4e20: 20 20 20 20 20 20 20 20 6c 65 6e 67 74 68 20 3d length =
4e30: 20 70 72 65 63 69 73 69 6f 6e 3b 0a 20 20 20 20 precision;.
4e40: 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 }else{.
4e50: 20 20 20 20 20 6c 65 6e 67 74 68 20 3d 31 3b 0a length =1;.
4e60: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 }.
4e70: 20 20 62 75 66 70 74 20 3d 20 62 75 66 3b 0a 20 bufpt = buf;.
4e80: 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 break;.
4e90: 20 20 20 20 63 61 73 65 20 65 74 50 41 54 48 3a case etPATH:
4ea0: 20 7b 0a 20 20 20 20 20 20 20 20 69 6e 74 20 69 {. int i
4eb0: 3b 0a 20 20 20 20 20 20 20 20 63 68 61 72 20 2a ;. char *
4ec0: 65 20 3d 20 76 61 5f 61 72 67 28 61 70 2c 63 68 e = va_arg(ap,ch
4ed0: 61 72 2a 29 3b 0a 20 20 20 20 20 20 20 20 69 66 ar*);. if
4ee0: 28 20 65 3d 3d 30 20 29 7b 65 3d 22 22 3b 7d 0a ( e==0 ){e="";}.
4ef0: 20 20 20 20 20 20 20 20 6c 65 6e 67 74 68 20 3d length =
4f00: 20 73 74 72 6c 65 6e 28 65 29 3b 0a 20 20 20 20 strlen(e);.
4f10: 20 20 20 20 7a 45 78 74 72 61 20 3d 20 62 75 66 zExtra = buf
4f20: 70 74 20 3d 20 6d 61 6c 6c 6f 63 28 6c 65 6e 67 pt = malloc(leng
4f30: 74 68 2b 31 29 3b 0a 20 20 20 20 20 20 20 20 66 th+1);. f
4f40: 6f 72 28 20 69 3d 30 3b 20 69 3c 6c 65 6e 67 74 or( i=0; i<lengt
4f50: 68 3b 20 69 2b 2b 20 29 7b 0a 20 20 20 20 20 20 h; i++ ){.
4f60: 20 20 20 20 69 66 28 20 65 5b 69 5d 3d 3d 27 5c if( e[i]=='\
4f70: 5c 27 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 \' ){.
4f80: 20 20 62 75 66 70 74 5b 69 5d 3d 27 2f 27 3b 0a bufpt[i]='/';.
4f90: 20 20 20 20 20 20 20 20 20 20 7d 65 6c 73 65 7b }else{
4fa0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 75 66 . buf
4fb0: 70 74 5b 69 5d 3d 65 5b 69 5d 3b 0a 20 20 20 20 pt[i]=e[i];.
4fc0: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 }.
4fd0: 7d 0a 20 20 20 20 20 20 20 20 62 75 66 70 74 5b }. bufpt[
4fe0: 6c 65 6e 67 74 68 5d 3d 27 5c 30 27 3b 0a 20 20 length]='\0';.
4ff0: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 break;.
5000: 20 20 20 7d 0a 20 20 20 20 20 20 63 61 73 65 20 }. case
5010: 65 74 53 54 52 49 4e 47 3a 0a 20 20 20 20 20 20 etSTRING:.
5020: 63 61 73 65 20 65 74 44 59 4e 53 54 52 49 4e 47 case etDYNSTRING
5030: 3a 0a 20 20 20 20 20 20 20 20 62 75 66 70 74 20 :. bufpt
5040: 3d 20 76 61 5f 61 72 67 28 61 70 2c 63 68 61 72 = va_arg(ap,char
5050: 2a 29 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 *);. if(
5060: 62 75 66 70 74 3d 3d 30 20 29 7b 0a 20 20 20 20 bufpt==0 ){.
5070: 20 20 20 20 20 20 62 75 66 70 74 20 3d 20 22 22 bufpt = ""
5080: 3b 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 65 20 ;. }else
5090: 69 66 28 20 78 74 79 70 65 3d 3d 65 74 44 59 4e if( xtype==etDYN
50a0: 53 54 52 49 4e 47 20 29 7b 0a 20 20 20 20 20 20 STRING ){.
50b0: 20 20 20 20 7a 45 78 74 72 61 20 3d 20 62 75 66 zExtra = buf
50c0: 70 74 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 pt;. }.
50d0: 20 20 20 20 20 20 6c 65 6e 67 74 68 20 3d 20 73 length = s
50e0: 74 72 6c 65 6e 28 62 75 66 70 74 29 3b 0a 20 20 trlen(bufpt);.
50f0: 20 20 20 20 20 20 69 66 28 20 70 72 65 63 69 73 if( precis
5100: 69 6f 6e 3e 3d 30 20 26 26 20 70 72 65 63 69 73 ion>=0 && precis
5110: 69 6f 6e 3c 6c 65 6e 67 74 68 20 29 20 6c 65 6e ion<length ) len
5120: 67 74 68 20 3d 20 70 72 65 63 69 73 69 6f 6e 3b gth = precision;
5130: 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a . break;.
5140: 20 20 20 20 20 20 63 61 73 65 20 65 74 42 4c 4f case etBLO
5150: 42 3a 20 7b 0a 20 20 20 20 20 20 20 20 42 6c 6f B: {. Blo
5160: 62 20 2a 70 42 6c 6f 62 20 3d 20 76 61 5f 61 72 b *pBlob = va_ar
5170: 67 28 61 70 2c 20 42 6c 6f 62 2a 29 3b 0a 20 20 g(ap, Blob*);.
5180: 20 20 20 20 20 20 62 75 66 70 74 20 3d 20 62 6c bufpt = bl
5190: 6f 62 5f 62 75 66 66 65 72 28 70 42 6c 6f 62 29 ob_buffer(pBlob)
51a0: 3b 0a 20 20 20 20 20 20 20 20 6c 65 6e 67 74 68 ;. length
51b0: 20 3d 20 62 6c 6f 62 5f 73 69 7a 65 28 70 42 6c = blob_size(pBl
51c0: 6f 62 29 3b 0a 20 20 20 20 20 20 20 20 62 72 65 ob);. bre
51d0: 61 6b 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 ak;. }.
51e0: 20 20 63 61 73 65 20 65 74 42 4c 4f 42 53 51 4c case etBLOBSQL
51f0: 3a 20 7b 0a 20 20 20 20 20 20 20 20 42 6c 6f 62 : {. Blob
5200: 20 2a 70 42 6c 6f 62 20 3d 20 76 61 5f 61 72 67 *pBlob = va_arg
5210: 28 61 70 2c 20 42 6c 6f 62 2a 29 3b 0a 20 20 20 (ap, Blob*);.
5220: 20 20 20 20 20 63 68 61 72 20 2a 7a 4f 72 69 67 char *zOrig
5230: 20 3d 20 62 6c 6f 62 5f 62 75 66 66 65 72 28 70 = blob_buffer(p
5240: 42 6c 6f 62 29 3b 0a 20 20 20 20 20 20 20 20 69 Blob);. i
5250: 6e 74 20 69 2c 20 6a 2c 20 6e 2c 20 63 6e 74 3b nt i, j, n, cnt;
5260: 0a 20 20 20 20 20 20 20 20 6e 20 3d 20 62 6c 6f . n = blo
5270: 62 5f 73 69 7a 65 28 70 42 6c 6f 62 29 3b 0a 20 b_size(pBlob);.
5280: 20 20 20 20 20 20 20 66 6f 72 28 63 6e 74 3d 69 for(cnt=i
5290: 3d 30 3b 20 69 3c 6e 3b 20 69 2b 2b 29 7b 20 69 =0; i<n; i++){ i
52a0: 66 28 20 7a 4f 72 69 67 5b 69 5d 3d 3d 27 5c 27 f( zOrig[i]=='\'
52b0: 27 20 29 20 63 6e 74 2b 2b 3b 20 7d 0a 20 20 20 ' ) cnt++; }.
52c0: 20 20 20 20 20 69 66 28 20 6e 2b 63 6e 74 2b 32 if( n+cnt+2
52d0: 20 3e 20 65 74 42 55 46 53 49 5a 45 20 29 7b 0a > etBUFSIZE ){.
52e0: 20 20 20 20 20 20 20 20 20 20 62 75 66 70 74 20 bufpt
52f0: 3d 20 7a 45 78 74 72 61 20 3d 20 6d 61 6c 6c 6f = zExtra = mallo
5300: 63 28 20 6e 20 2b 20 63 6e 74 20 2b 20 32 20 29 c( n + cnt + 2 )
5310: 3b 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 65 7b ;. }else{
5320: 0a 20 20 20 20 20 20 20 20 20 20 62 75 66 70 74 . bufpt
5330: 20 3d 20 62 75 66 3b 0a 20 20 20 20 20 20 20 20 = buf;.
5340: 7d 0a 20 20 20 20 20 20 20 20 62 75 66 70 74 5b }. bufpt[
5350: 30 5d 20 3d 20 27 5c 27 27 3b 0a 20 20 20 20 20 0] = '\'';.
5360: 20 20 20 66 6f 72 28 69 3d 30 2c 20 6a 3d 31 3b for(i=0, j=1;
5370: 20 69 3c 6e 3b 20 69 2b 2b 2c 20 6a 2b 2b 29 7b i<n; i++, j++){
5380: 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20 7a . if( z
5390: 4f 72 69 67 5b 69 5d 3d 3d 27 5c 27 27 20 29 7b Orig[i]=='\'' ){
53a0: 20 62 75 66 70 74 5b 6a 2b 2b 5d 20 3d 20 27 5c bufpt[j++] = '\
53b0: 27 27 3b 20 7d 0a 20 20 20 20 20 20 20 20 20 20 ''; }.
53c0: 62 75 66 70 74 5b 6a 5d 20 3d 20 7a 4f 72 69 67 bufpt[j] = zOrig
53d0: 5b 69 5d 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 [i];. }.
53e0: 20 20 20 20 20 20 20 62 75 66 70 74 5b 6a 2b 2b bufpt[j++
53f0: 5d 20 3d 20 27 5c 27 27 3b 0a 20 20 20 20 20 20 ] = '\'';.
5400: 20 20 6c 65 6e 67 74 68 20 3d 20 6a 3b 0a 20 20 length = j;.
5410: 20 20 20 20 20 20 61 73 73 65 72 74 28 20 6c 65 assert( le
5420: 6e 67 74 68 3d 3d 6e 2b 63 6e 74 2b 32 20 29 3b ngth==n+cnt+2 );
5430: 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a . break;.
5440: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 63 61 }. ca
5450: 73 65 20 65 74 53 51 4c 45 53 43 41 50 45 3a 0a se etSQLESCAPE:.
5460: 20 20 20 20 20 20 63 61 73 65 20 65 74 53 51 4c case etSQL
5470: 45 53 43 41 50 45 32 3a 20 7b 0a 20 20 20 20 20 ESCAPE2: {.
5480: 20 20 20 69 6e 74 20 69 2c 20 6a 2c 20 6e 2c 20 int i, j, n,
5490: 63 68 2c 20 69 73 6e 75 6c 6c 3b 0a 20 20 20 20 ch, isnull;.
54a0: 20 20 20 20 69 6e 74 20 6e 65 65 64 51 75 6f 74 int needQuot
54b0: 65 3b 0a 20 20 20 20 20 20 20 20 63 68 61 72 20 e;. char
54c0: 2a 65 73 63 61 72 67 20 3d 20 76 61 5f 61 72 67 *escarg = va_arg
54d0: 28 61 70 2c 63 68 61 72 2a 29 3b 0a 20 20 20 20 (ap,char*);.
54e0: 20 20 20 20 69 73 6e 75 6c 6c 20 3d 20 65 73 63 isnull = esc
54f0: 61 72 67 3d 3d 30 3b 0a 20 20 20 20 20 20 20 20 arg==0;.
5500: 69 66 28 20 69 73 6e 75 6c 6c 20 29 20 65 73 63 if( isnull ) esc
5510: 61 72 67 20 3d 20 28 78 74 79 70 65 3d 3d 65 74 arg = (xtype==et
5520: 53 51 4c 45 53 43 41 50 45 32 20 3f 20 22 4e 55 SQLESCAPE2 ? "NU
5530: 4c 4c 22 20 3a 20 22 28 4e 55 4c 4c 29 22 29 3b LL" : "(NULL)");
5540: 0a 20 20 20 20 20 20 20 20 66 6f 72 28 69 3d 6e . for(i=n
5550: 3d 30 3b 20 28 63 68 3d 65 73 63 61 72 67 5b 69 =0; (ch=escarg[i
5560: 5d 29 21 3d 30 3b 20 69 2b 2b 29 7b 0a 20 20 20 ])!=0; i++){.
5570: 20 20 20 20 20 20 20 69 66 28 20 63 68 3d 3d 27 if( ch=='
5580: 5c 27 27 20 29 20 20 6e 2b 2b 3b 0a 20 20 20 20 \'' ) n++;.
5590: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 6e 65 }. ne
55a0: 65 64 51 75 6f 74 65 20 3d 20 21 69 73 6e 75 6c edQuote = !isnul
55b0: 6c 20 26 26 20 78 74 79 70 65 3d 3d 65 74 53 51 l && xtype==etSQ
55c0: 4c 45 53 43 41 50 45 32 3b 0a 20 20 20 20 20 20 LESCAPE2;.
55d0: 20 20 6e 20 2b 3d 20 69 20 2b 20 31 20 2b 20 6e n += i + 1 + n
55e0: 65 65 64 51 75 6f 74 65 2a 32 3b 0a 20 20 20 20 eedQuote*2;.
55f0: 20 20 20 20 69 66 28 20 6e 3e 65 74 42 55 46 53 if( n>etBUFS
5600: 49 5a 45 20 29 7b 0a 20 20 20 20 20 20 20 20 20 IZE ){.
5610: 20 62 75 66 70 74 20 3d 20 7a 45 78 74 72 61 20 bufpt = zExtra
5620: 3d 20 6d 61 6c 6c 6f 63 28 20 6e 20 29 3b 0a 20 = malloc( n );.
5630: 20 20 20 20 20 20 20 20 20 69 66 28 20 62 75 66 if( buf
5640: 70 74 3d 3d 30 20 29 20 72 65 74 75 72 6e 20 2d pt==0 ) return -
5650: 31 3b 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 65 1;. }else
5660: 7b 0a 20 20 20 20 20 20 20 20 20 20 62 75 66 70 {. bufp
5670: 74 20 3d 20 62 75 66 3b 0a 20 20 20 20 20 20 20 t = buf;.
5680: 20 7d 0a 20 20 20 20 20 20 20 20 6a 20 3d 20 30 }. j = 0
5690: 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 6e 65 ;. if( ne
56a0: 65 64 51 75 6f 74 65 20 29 20 62 75 66 70 74 5b edQuote ) bufpt[
56b0: 6a 2b 2b 5d 20 3d 20 27 5c 27 27 3b 0a 20 20 20 j++] = '\'';.
56c0: 20 20 20 20 20 66 6f 72 28 69 3d 30 3b 20 28 63 for(i=0; (c
56d0: 68 3d 65 73 63 61 72 67 5b 69 5d 29 21 3d 30 3b h=escarg[i])!=0;
56e0: 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20 20 i++){.
56f0: 20 62 75 66 70 74 5b 6a 2b 2b 5d 20 3d 20 63 68 bufpt[j++] = ch
5700: 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20 ;. if(
5710: 63 68 3d 3d 27 5c 27 27 20 29 20 62 75 66 70 74 ch=='\'' ) bufpt
5720: 5b 6a 2b 2b 5d 20 3d 20 63 68 3b 0a 20 20 20 20 [j++] = ch;.
5730: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 69 66 }. if
5740: 28 20 6e 65 65 64 51 75 6f 74 65 20 29 20 62 75 ( needQuote ) bu
5750: 66 70 74 5b 6a 2b 2b 5d 20 3d 20 27 5c 27 27 3b fpt[j++] = '\'';
5760: 0a 20 20 20 20 20 20 20 20 62 75 66 70 74 5b 6a . bufpt[j
5770: 5d 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 6c ] = 0;. l
5780: 65 6e 67 74 68 20 3d 20 6a 3b 0a 20 20 20 20 20 ength = j;.
5790: 20 20 20 69 66 28 20 70 72 65 63 69 73 69 6f 6e if( precision
57a0: 3e 3d 30 20 26 26 20 70 72 65 63 69 73 69 6f 6e >=0 && precision
57b0: 3c 6c 65 6e 67 74 68 20 29 20 6c 65 6e 67 74 68 <length ) length
57c0: 20 3d 20 70 72 65 63 69 73 69 6f 6e 3b 0a 20 20 = precision;.
57d0: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 break;.
57e0: 20 20 20 7d 0a 20 20 20 20 20 20 63 61 73 65 20 }. case
57f0: 65 74 48 54 4d 4c 49 5a 45 3a 20 7b 0a 20 20 20 etHTMLIZE: {.
5800: 20 20 20 20 20 63 68 61 72 20 2a 7a 4d 65 6d 20 char *zMem
5810: 3d 20 76 61 5f 61 72 67 28 61 70 2c 63 68 61 72 = va_arg(ap,char
5820: 2a 29 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 *);. if(
5830: 7a 4d 65 6d 3d 3d 30 20 29 20 7a 4d 65 6d 20 3d zMem==0 ) zMem =
5840: 20 22 22 3b 0a 20 20 20 20 20 20 20 20 7a 45 78 "";. zEx
5850: 74 72 61 20 3d 20 62 75 66 70 74 20 3d 20 68 74 tra = bufpt = ht
5860: 6d 6c 69 7a 65 28 7a 4d 65 6d 2c 20 2d 31 29 3b mlize(zMem, -1);
5870: 0a 20 20 20 20 20 20 20 20 6c 65 6e 67 74 68 20 . length
5880: 3d 20 73 74 72 6c 65 6e 28 62 75 66 70 74 29 3b = strlen(bufpt);
5890: 0a 20 20 20 20 20 20 20 20 69 66 28 20 70 72 65 . if( pre
58a0: 63 69 73 69 6f 6e 3e 3d 30 20 26 26 20 70 72 65 cision>=0 && pre
58b0: 63 69 73 69 6f 6e 3c 6c 65 6e 67 74 68 20 29 20 cision<length )
58c0: 6c 65 6e 67 74 68 20 3d 20 70 72 65 63 69 73 69 length = precisi
58d0: 6f 6e 3b 0a 20 20 20 20 20 20 20 20 62 72 65 61 on;. brea
58e0: 6b 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 k;. }.
58f0: 20 63 61 73 65 20 65 74 48 54 54 50 49 5a 45 3a case etHTTPIZE:
5900: 20 7b 0a 20 20 20 20 20 20 20 20 63 68 61 72 20 {. char
5910: 2a 7a 4d 65 6d 20 3d 20 76 61 5f 61 72 67 28 61 *zMem = va_arg(a
5920: 70 2c 63 68 61 72 2a 29 3b 0a 20 20 20 20 20 20 p,char*);.
5930: 20 20 69 66 28 20 7a 4d 65 6d 3d 3d 30 20 29 20 if( zMem==0 )
5940: 7a 4d 65 6d 20 3d 20 22 22 3b 0a 20 20 20 20 20 zMem = "";.
5950: 20 20 20 7a 45 78 74 72 61 20 3d 20 62 75 66 70 zExtra = bufp
5960: 74 20 3d 20 68 74 74 70 69 7a 65 28 7a 4d 65 6d t = httpize(zMem
5970: 2c 20 2d 31 29 3b 0a 20 20 20 20 20 20 20 20 6c , -1);. l
5980: 65 6e 67 74 68 20 3d 20 73 74 72 6c 65 6e 28 62 ength = strlen(b
5990: 75 66 70 74 29 3b 0a 20 20 20 20 20 20 20 20 69 ufpt);. i
59a0: 66 28 20 70 72 65 63 69 73 69 6f 6e 3e 3d 30 20 f( precision>=0
59b0: 26 26 20 70 72 65 63 69 73 69 6f 6e 3c 6c 65 6e && precision<len
59c0: 67 74 68 20 29 20 6c 65 6e 67 74 68 20 3d 20 70 gth ) length = p
59d0: 72 65 63 69 73 69 6f 6e 3b 0a 20 20 20 20 20 20 recision;.
59e0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 7d break;. }
59f0: 0a 20 20 20 20 20 20 63 61 73 65 20 65 74 55 52 . case etUR
5a00: 4c 49 5a 45 3a 20 7b 0a 20 20 20 20 20 20 20 20 LIZE: {.
5a10: 63 68 61 72 20 2a 7a 4d 65 6d 20 3d 20 76 61 5f char *zMem = va_
5a20: 61 72 67 28 61 70 2c 63 68 61 72 2a 29 3b 0a 20 arg(ap,char*);.
5a30: 20 20 20 20 20 20 20 69 66 28 20 7a 4d 65 6d 3d if( zMem=
5a40: 3d 30 20 29 20 7a 4d 65 6d 20 3d 20 22 22 3b 0a =0 ) zMem = "";.
5a50: 20 20 20 20 20 20 20 20 7a 45 78 74 72 61 20 3d zExtra =
5a60: 20 62 75 66 70 74 20 3d 20 75 72 6c 69 7a 65 28 bufpt = urlize(
5a70: 7a 4d 65 6d 2c 20 2d 31 29 3b 0a 20 20 20 20 20 zMem, -1);.
5a80: 20 20 20 6c 65 6e 67 74 68 20 3d 20 73 74 72 6c length = strl
5a90: 65 6e 28 62 75 66 70 74 29 3b 0a 20 20 20 20 20 en(bufpt);.
5aa0: 20 20 20 69 66 28 20 70 72 65 63 69 73 69 6f 6e if( precision
5ab0: 3e 3d 30 20 26 26 20 70 72 65 63 69 73 69 6f 6e >=0 && precision
5ac0: 3c 6c 65 6e 67 74 68 20 29 20 6c 65 6e 67 74 68 <length ) length
5ad0: 20 3d 20 70 72 65 63 69 73 69 6f 6e 3b 0a 20 20 = precision;.
5ae0: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 break;.
5af0: 20 20 20 7d 0a 20 20 20 20 20 20 63 61 73 65 20 }. case
5b00: 65 74 46 4f 53 53 49 4c 49 5a 45 3a 20 7b 0a 20 etFOSSILIZE: {.
5b10: 20 20 20 20 20 20 20 63 68 61 72 20 2a 7a 4d 65 char *zMe
5b20: 6d 20 3d 20 76 61 5f 61 72 67 28 61 70 2c 63 68 m = va_arg(ap,ch
5b30: 61 72 2a 29 3b 0a 20 20 20 20 20 20 20 20 69 66 ar*);. if
5b40: 28 20 7a 4d 65 6d 3d 3d 30 20 29 20 7a 4d 65 6d ( zMem==0 ) zMem
5b50: 20 3d 20 22 22 3b 0a 20 20 20 20 20 20 20 20 7a = "";. z
5b60: 45 78 74 72 61 20 3d 20 62 75 66 70 74 20 3d 20 Extra = bufpt =
5b70: 66 6f 73 73 69 6c 69 7a 65 28 7a 4d 65 6d 2c 20 fossilize(zMem,
5b80: 2d 31 29 3b 0a 20 20 20 20 20 20 20 20 6c 65 6e -1);. len
5b90: 67 74 68 20 3d 20 73 74 72 6c 65 6e 28 62 75 66 gth = strlen(buf
5ba0: 70 74 29 3b 0a 20 20 20 20 20 20 20 20 69 66 28 pt);. if(
5bb0: 20 70 72 65 63 69 73 69 6f 6e 3e 3d 30 20 26 26 precision>=0 &&
5bc0: 20 70 72 65 63 69 73 69 6f 6e 3c 6c 65 6e 67 74 precision<lengt
5bd0: 68 20 29 20 6c 65 6e 67 74 68 20 3d 20 70 72 65 h ) length = pre
5be0: 63 69 73 69 6f 6e 3b 0a 20 20 20 20 20 20 20 20 cision;.
5bf0: 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 7d 0a 20 break;. }.
5c00: 20 20 20 20 20 63 61 73 65 20 65 74 57 49 4b 49 case etWIKI
5c10: 53 54 52 3a 20 7b 0a 20 20 20 20 20 20 20 20 63 STR: {. c
5c20: 68 61 72 20 2a 7a 57 69 6b 69 20 3d 20 76 61 5f har *zWiki = va_
5c30: 61 72 67 28 61 70 2c 20 63 68 61 72 2a 29 3b 0a arg(ap, char*);.
5c40: 20 20 20 20 20 20 20 20 42 6c 6f 62 20 77 69 6b Blob wik
5c50: 69 3b 0a 20 20 20 20 20 20 20 20 62 6c 6f 62 5f i;. blob_
5c60: 69 6e 69 74 28 26 77 69 6b 69 2c 20 7a 57 69 6b init(&wiki, zWik
5c70: 69 2c 20 2d 31 29 3b 0a 20 20 20 20 20 20 20 20 i, -1);.
5c80: 77 69 6b 69 5f 63 6f 6e 76 65 72 74 28 26 77 69 wiki_convert(&wi
5c90: 6b 69 2c 20 70 42 6c 6f 62 2c 20 57 49 4b 49 5f ki, pBlob, WIKI_
5ca0: 49 4e 4c 49 4e 45 29 3b 0a 20 20 20 20 20 20 20 INLINE);.
5cb0: 20 62 6c 6f 62 5f 72 65 73 65 74 28 26 77 69 6b blob_reset(&wik
5cc0: 69 29 3b 0a 20 20 20 20 20 20 20 20 6c 65 6e 67 i);. leng
5cd0: 74 68 20 3d 20 77 69 64 74 68 20 3d 20 30 3b 0a th = width = 0;.
5ce0: 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 break;.
5cf0: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 63 61 73 }. cas
5d00: 65 20 65 74 57 49 4b 49 42 4c 4f 42 3a 20 7b 0a e etWIKIBLOB: {.
5d10: 20 20 20 20 20 20 20 20 42 6c 6f 62 20 2a 70 57 Blob *pW
5d20: 69 6b 69 20 3d 20 76 61 5f 61 72 67 28 61 70 2c iki = va_arg(ap,
5d30: 20 42 6c 6f 62 2a 29 3b 0a 20 20 20 20 20 20 20 Blob*);.
5d40: 20 77 69 6b 69 5f 63 6f 6e 76 65 72 74 28 70 57 wiki_convert(pW
5d50: 69 6b 69 2c 20 70 42 6c 6f 62 2c 20 57 49 4b 49 iki, pBlob, WIKI
5d60: 5f 49 4e 4c 49 4e 45 29 3b 0a 20 20 20 20 20 20 _INLINE);.
5d70: 20 20 6c 65 6e 67 74 68 20 3d 20 77 69 64 74 68 length = width
5d80: 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 62 72 = 0;. br
5d90: 65 61 6b 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 eak;. }.
5da0: 20 20 20 63 61 73 65 20 65 74 45 52 52 4f 52 3a case etERROR:
5db0: 0a 20 20 20 20 20 20 20 20 62 75 66 5b 30 5d 20 . buf[0]
5dc0: 3d 20 27 25 27 3b 0a 20 20 20 20 20 20 20 20 62 = '%';. b
5dd0: 75 66 5b 31 5d 20 3d 20 63 3b 0a 20 20 20 20 20 uf[1] = c;.
5de0: 20 20 20 65 72 72 6f 72 66 6c 61 67 20 3d 20 30 errorflag = 0
5df0: 3b 0a 20 20 20 20 20 20 20 20 69 64 78 20 3d 20 ;. idx =
5e00: 31 2b 28 63 21 3d 30 29 3b 0a 20 20 20 20 20 20 1+(c!=0);.
5e10: 20 20 62 6c 6f 62 5f 61 70 70 65 6e 64 28 70 42 blob_append(pB
5e20: 6c 6f 62 2c 22 25 22 2c 69 64 78 29 3b 0a 20 20 lob,"%",idx);.
5e30: 20 20 20 20 20 20 63 6f 75 6e 74 20 2b 3d 20 69 count += i
5e40: 64 78 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 dx;. if(
5e50: 63 3d 3d 30 20 29 20 66 6d 74 2d 2d 3b 0a 20 20 c==0 ) fmt--;.
5e60: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 break;.
5e70: 20 7d 2f 2a 20 45 6e 64 20 73 77 69 74 63 68 20 }/* End switch
5e80: 6f 76 65 72 20 74 68 65 20 66 6f 72 6d 61 74 20 over the format
5e90: 74 79 70 65 20 2a 2f 0a 20 20 20 20 2f 2a 0a 20 type */. /*.
5ea0: 20 20 20 2a 2a 20 54 68 65 20 74 65 78 74 20 6f ** The text o
5eb0: 66 20 74 68 65 20 63 6f 6e 76 65 72 73 69 6f 6e f the conversion
5ec0: 20 69 73 20 70 6f 69 6e 74 65 64 20 74 6f 20 62 is pointed to b
5ed0: 79 20 22 62 75 66 70 74 22 20 61 6e 64 20 69 73 y "bufpt" and is
5ee0: 0a 20 20 20 20 2a 2a 20 22 6c 65 6e 67 74 68 22 . ** "length"
5ef0: 20 63 68 61 72 61 63 74 65 72 73 20 6c 6f 6e 67 characters long
5f00: 2e 20 20 54 68 65 20 66 69 65 6c 64 20 77 69 64 . The field wid
5f10: 74 68 20 69 73 20 22 77 69 64 74 68 22 2e 20 20 th is "width".
5f20: 44 6f 0a 20 20 20 20 2a 2a 20 74 68 65 20 6f 75 Do. ** the ou
5f30: 74 70 75 74 2e 0a 20 20 20 20 2a 2f 0a 20 20 20 tput.. */.
5f40: 20 69 66 28 20 21 66 6c 61 67 5f 6c 65 66 74 6a if( !flag_leftj
5f50: 75 73 74 69 66 79 20 29 7b 0a 20 20 20 20 20 20 ustify ){.
5f60: 72 65 67 69 73 74 65 72 20 69 6e 74 20 6e 73 70 register int nsp
5f70: 61 63 65 3b 0a 20 20 20 20 20 20 6e 73 70 61 63 ace;. nspac
5f80: 65 20 3d 20 77 69 64 74 68 2d 6c 65 6e 67 74 68 e = width-length
5f90: 3b 0a 20 20 20 20 20 20 69 66 28 20 6e 73 70 61 ;. if( nspa
5fa0: 63 65 3e 30 20 29 7b 0a 20 20 20 20 20 20 20 20 ce>0 ){.
5fb0: 63 6f 75 6e 74 20 2b 3d 20 6e 73 70 61 63 65 3b count += nspace;
5fc0: 0a 20 20 20 20 20 20 20 20 77 68 69 6c 65 28 20 . while(
5fd0: 6e 73 70 61 63 65 3e 3d 65 74 53 50 41 43 45 53 nspace>=etSPACES
5fe0: 49 5a 45 20 29 7b 0a 20 20 20 20 20 20 20 20 20 IZE ){.
5ff0: 20 62 6c 6f 62 5f 61 70 70 65 6e 64 28 70 42 6c blob_append(pBl
6000: 6f 62 2c 73 70 61 63 65 73 2c 65 74 53 50 41 43 ob,spaces,etSPAC
6010: 45 53 49 5a 45 29 3b 0a 20 20 20 20 20 20 20 20 ESIZE);.
6020: 20 20 6e 73 70 61 63 65 20 2d 3d 20 65 74 53 50 nspace -= etSP
6030: 41 43 45 53 49 5a 45 3b 0a 20 20 20 20 20 20 20 ACESIZE;.
6040: 20 7d 0a 20 20 20 20 20 20 20 20 69 66 28 20 6e }. if( n
6050: 73 70 61 63 65 3e 30 20 29 20 62 6c 6f 62 5f 61 space>0 ) blob_a
6060: 70 70 65 6e 64 28 70 42 6c 6f 62 2c 73 70 61 63 ppend(pBlob,spac
6070: 65 73 2c 6e 73 70 61 63 65 29 3b 0a 20 20 20 20 es,nspace);.
6080: 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 }. }. if
6090: 28 20 6c 65 6e 67 74 68 3e 30 20 29 7b 0a 20 20 ( length>0 ){.
60a0: 20 20 20 20 62 6c 6f 62 5f 61 70 70 65 6e 64 28 blob_append(
60b0: 70 42 6c 6f 62 2c 62 75 66 70 74 2c 6c 65 6e 67 pBlob,bufpt,leng
60c0: 74 68 29 3b 0a 20 20 20 20 20 20 63 6f 75 6e 74 th);. count
60d0: 20 2b 3d 20 6c 65 6e 67 74 68 3b 0a 20 20 20 20 += length;.
60e0: 7d 0a 20 20 20 20 69 66 28 20 66 6c 61 67 5f 6c }. if( flag_l
60f0: 65 66 74 6a 75 73 74 69 66 79 20 29 7b 0a 20 20 eftjustify ){.
6100: 20 20 20 20 72 65 67 69 73 74 65 72 20 69 6e 74 register int
6110: 20 6e 73 70 61 63 65 3b 0a 20 20 20 20 20 20 6e nspace;. n
6120: 73 70 61 63 65 20 3d 20 77 69 64 74 68 2d 6c 65 space = width-le
6130: 6e 67 74 68 3b 0a 20 20 20 20 20 20 69 66 28 20 ngth;. if(
6140: 6e 73 70 61 63 65 3e 30 20 29 7b 0a 20 20 20 20 nspace>0 ){.
6150: 20 20 20 20 63 6f 75 6e 74 20 2b 3d 20 6e 73 70 count += nsp
6160: 61 63 65 3b 0a 20 20 20 20 20 20 20 20 77 68 69 ace;. whi
6170: 6c 65 28 20 6e 73 70 61 63 65 3e 3d 65 74 53 50 le( nspace>=etSP
6180: 41 43 45 53 49 5a 45 20 29 7b 0a 20 20 20 20 20 ACESIZE ){.
6190: 20 20 20 20 20 62 6c 6f 62 5f 61 70 70 65 6e 64 blob_append
61a0: 28 70 42 6c 6f 62 2c 73 70 61 63 65 73 2c 65 74 (pBlob,spaces,et
61b0: 53 50 41 43 45 53 49 5a 45 29 3b 0a 20 20 20 20 SPACESIZE);.
61c0: 20 20 20 20 20 20 6e 73 70 61 63 65 20 2d 3d 20 nspace -=
61d0: 65 74 53 50 41 43 45 53 49 5a 45 3b 0a 20 20 20 etSPACESIZE;.
61e0: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 69 }. i
61f0: 66 28 20 6e 73 70 61 63 65 3e 30 20 29 20 62 6c f( nspace>0 ) bl
6200: 6f 62 5f 61 70 70 65 6e 64 28 70 42 6c 6f 62 2c ob_append(pBlob,
6210: 73 70 61 63 65 73 2c 6e 73 70 61 63 65 29 3b 0a spaces,nspace);.
6220: 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 }. }.
6230: 20 20 69 66 28 20 7a 45 78 74 72 61 20 29 7b 0a if( zExtra ){.
6240: 20 20 20 20 20 20 66 72 65 65 28 7a 45 78 74 72 free(zExtr
6250: 61 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 2f 2a 20 a);. }. }/*
6260: 45 6e 64 20 66 6f 72 20 6c 6f 6f 70 20 6f 76 65 End for loop ove
6270: 72 20 74 68 65 20 66 6f 72 6d 61 74 20 73 74 72 r the format str
6280: 69 6e 67 20 2a 2f 0a 20 20 72 65 74 75 72 6e 20 ing */. return
6290: 65 72 72 6f 72 66 6c 61 67 20 3f 20 2d 31 20 3a errorflag ? -1 :
62a0: 20 63 6f 75 6e 74 3b 0a 7d 20 2f 2a 20 45 6e 64 count;.} /* End
62b0: 20 6f 66 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a of function */.
62c0: 0a 2f 2a 0a 2a 2a 20 50 72 69 6e 74 20 69 6e 74 ./*.** Print int
62d0: 6f 20 6d 65 6d 6f 72 79 20 6f 62 74 61 69 6e 65 o memory obtaine
62e0: 64 20 66 72 6f 6d 20 6d 61 6c 6c 6f 63 28 29 2e d from malloc().
62f0: 0a 2a 2f 0a 63 68 61 72 20 2a 6d 70 72 69 6e 74 .*/.char *mprint
6300: 66 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 f(const char *zF
6310: 6f 72 6d 61 74 2c 20 2e 2e 2e 29 7b 0a 20 20 76 ormat, ...){. v
6320: 61 5f 6c 69 73 74 20 61 70 3b 0a 20 20 63 68 61 a_list ap;. cha
6330: 72 20 2a 7a 3b 0a 20 20 76 61 5f 73 74 61 72 74 r *z;. va_start
6340: 28 61 70 2c 7a 46 6f 72 6d 61 74 29 3b 0a 20 20 (ap,zFormat);.
6350: 7a 20 3d 20 76 6d 70 72 69 6e 74 66 28 7a 46 6f z = vmprintf(zFo
6360: 72 6d 61 74 2c 20 61 70 29 3b 0a 20 20 76 61 5f rmat, ap);. va_
6370: 65 6e 64 28 61 70 29 3b 0a 20 20 72 65 74 75 72 end(ap);. retur
6380: 6e 20 7a 3b 0a 7d 0a 63 68 61 72 20 2a 76 6d 70 n z;.}.char *vmp
6390: 72 69 6e 74 66 28 63 6f 6e 73 74 20 63 68 61 72 rintf(const char
63a0: 20 2a 7a 46 6f 72 6d 61 74 2c 20 76 61 5f 6c 69 *zFormat, va_li
63b0: 73 74 20 61 70 29 7b 0a 20 20 42 6c 6f 62 20 62 st ap){. Blob b
63c0: 6c 6f 62 20 3d 20 65 6d 70 74 79 5f 62 6c 6f 62 lob = empty_blob
63d0: 3b 0a 20 20 62 6c 6f 62 5f 76 61 70 70 65 6e 64 ;. blob_vappend
63e0: 66 28 26 62 6c 6f 62 2c 20 7a 46 6f 72 6d 61 74 f(&blob, zFormat
63f0: 2c 20 61 70 29 3b 0a 20 20 62 6c 6f 62 5f 6d 61 , ap);. blob_ma
6400: 74 65 72 69 61 6c 69 7a 65 28 26 62 6c 6f 62 29 terialize(&blob)
6410: 3b 0a 20 20 72 65 74 75 72 6e 20 62 6c 6f 62 2e ;. return blob.
6420: 61 44 61 74 61 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 aData;.}../*.**
6430: 52 65 63 6f 72 64 20 61 6e 20 65 72 72 6f 72 20 Record an error
6440: 6d 65 73 73 61 67 65 20 69 6e 20 74 68 65 20 67 message in the g
6450: 6c 6f 62 61 6c 20 67 2e 7a 45 72 72 4d 73 67 20 lobal g.zErrMsg
6460: 76 61 72 69 61 62 6c 65 2e 0a 2a 2a 0a 2a 2a 20 variable..**.**
6470: 49 66 20 74 68 65 72 65 20 69 73 20 61 6c 72 65 If there is alre
6480: 61 64 79 20 61 6e 6f 74 68 65 72 20 65 72 72 6f ady another erro
6490: 72 20 6d 65 73 73 61 67 65 2c 20 6f 6e 6c 79 20 r message, only
64a0: 6f 76 65 72 77 72 69 74 65 20 69 74 20 69 66 0a overwrite it if.
64b0: 2a 2a 20 74 68 65 20 63 75 72 72 65 6e 74 20 65 ** the current e
64c0: 72 72 6f 72 20 68 61 73 20 61 20 68 69 67 68 65 rror has a highe
64d0: 72 20 70 72 69 6f 72 69 74 79 2e 0a 2a 2f 0a 76 r priority..*/.v
64e0: 6f 69 64 20 66 6f 73 73 69 6c 5f 65 72 72 6f 72 oid fossil_error
64f0: 28 69 6e 74 20 69 50 72 69 6f 72 69 74 79 2c 20 (int iPriority,
6500: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 6f 72 const char *zFor
6510: 6d 61 74 2c 20 2e 2e 2e 29 7b 0a 20 20 76 61 5f mat, ...){. va_
6520: 6c 69 73 74 20 61 70 3b 0a 20 20 69 66 28 20 69 list ap;. if( i
6530: 50 72 69 6f 72 69 74 79 3c 3d 30 20 29 7b 0a 20 Priority<=0 ){.
6540: 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 7d 0a 20 return;. }.
6550: 20 69 66 28 20 67 2e 7a 45 72 72 4d 73 67 20 29 if( g.zErrMsg )
6560: 7b 0a 20 20 20 20 69 66 28 20 67 2e 69 45 72 72 {. if( g.iErr
6570: 50 72 69 6f 72 69 74 79 3e 3d 69 50 72 69 6f 72 Priority>=iPrior
6580: 69 74 79 20 29 7b 0a 20 20 20 20 20 20 72 65 74 ity ){. ret
6590: 75 72 6e 3b 0a 20 20 20 20 7d 0a 20 20 20 20 66 urn;. }. f
65a0: 72 65 65 28 67 2e 7a 45 72 72 4d 73 67 29 3b 0a ree(g.zErrMsg);.
65b0: 20 20 7d 0a 20 20 76 61 5f 73 74 61 72 74 28 61 }. va_start(a
65c0: 70 2c 20 7a 46 6f 72 6d 61 74 29 3b 0a 20 20 67 p, zFormat);. g
65d0: 2e 7a 45 72 72 4d 73 67 20 3d 20 76 6d 70 72 69 .zErrMsg = vmpri
65e0: 6e 74 66 28 7a 46 6f 72 6d 61 74 2c 20 61 70 29 ntf(zFormat, ap)
65f0: 3b 0a 20 20 76 61 5f 65 6e 64 28 61 70 29 3b 0a ;. va_end(ap);.
6600: 20 20 67 2e 69 45 72 72 50 72 69 6f 72 69 74 79 g.iErrPriority
6610: 20 3d 20 69 50 72 69 6f 72 69 74 79 3b 0a 7d 0a = iPriority;.}.
6620: 76 6f 69 64 20 66 6f 73 73 69 6c 5f 65 72 72 6f void fossil_erro
6630: 72 5f 72 65 73 65 74 28 76 6f 69 64 29 7b 0a 20 r_reset(void){.
6640: 20 66 72 65 65 28 67 2e 7a 45 72 72 4d 73 67 29 free(g.zErrMsg)
6650: 3b 0a 20 20 67 2e 7a 45 72 72 4d 73 67 20 3d 20 ;. g.zErrMsg =
6660: 30 3b 0a 20 20 67 2e 69 45 72 72 50 72 69 6f 72 0;. g.iErrPrior
6670: 69 74 79 20 3d 20 30 3b 0a 7d 0a ity = 0;.}.