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 0a 0a 2f 2a 0a 2a 2a 20 41 6e 20 22 */.../*.** An "
0980: 65 74 42 79 74 65 22 20 69 73 20 61 6e 20 38 2d etByte" is an 8-
0990: 62 69 74 20 75 6e 73 69 67 6e 65 64 20 76 61 6c bit unsigned val
09a0: 75 65 2e 0a 2a 2f 0a 74 79 70 65 64 65 66 20 75 ue..*/.typedef u
09b0: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 65 74 42 nsigned char etB
09c0: 79 74 65 3b 0a 0a 2f 2a 0a 2a 2a 20 45 61 63 68 yte;../*.** Each
09d0: 20 62 75 69 6c 74 69 6e 20 63 6f 6e 76 65 72 73 builtin convers
09e0: 69 6f 6e 20 63 68 61 72 61 63 74 65 72 20 28 65 ion character (e
09f0: 78 3a 20 74 68 65 20 27 64 27 20 69 6e 20 22 25 x: the 'd' in "%
0a00: 64 22 29 20 69 73 20 64 65 73 63 72 69 62 65 64 d") is described
0a10: 0a 2a 2a 20 62 79 20 61 6e 20 69 6e 73 74 61 6e .** by an instan
0a20: 63 65 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 ce of the follow
0a30: 69 6e 67 20 73 74 72 75 63 74 75 72 65 0a 2a 2f ing structure.*/
0a40: 0a 74 79 70 65 64 65 66 20 73 74 72 75 63 74 20 .typedef struct
0a50: 65 74 5f 69 6e 66 6f 20 7b 20 20 20 2f 2a 20 49 et_info { /* I
0a60: 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 62 6f 75 74 nformation about
0a70: 20 65 61 63 68 20 66 6f 72 6d 61 74 20 66 69 65 each format fie
0a80: 6c 64 20 2a 2f 0a 20 20 63 68 61 72 20 66 6d 74 ld */. char fmt
0a90: 74 79 70 65 3b 20 20 20 20 20 20 20 20 20 20 20 type;
0aa0: 20 2f 2a 20 54 68 65 20 66 6f 72 6d 61 74 20 66 /* The format f
0ab0: 69 65 6c 64 20 63 6f 64 65 20 6c 65 74 74 65 72 ield code letter
0ac0: 20 2a 2f 0a 20 20 65 74 42 79 74 65 20 62 61 73 */. etByte bas
0ad0: 65 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 2f e; /
0ae0: 2a 20 54 68 65 20 62 61 73 65 20 66 6f 72 20 72 * The base for r
0af0: 61 64 69 78 20 63 6f 6e 76 65 72 73 69 6f 6e 20 adix conversion
0b00: 2a 2f 0a 20 20 65 74 42 79 74 65 20 66 6c 61 67 */. etByte flag
0b10: 73 3b 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a s; /*
0b20: 20 4f 6e 65 20 6f 72 20 6d 6f 72 65 20 6f 66 20 One or more of
0b30: 46 4c 41 47 5f 20 63 6f 6e 73 74 61 6e 74 73 20 FLAG_ constants
0b40: 62 65 6c 6f 77 20 2a 2f 0a 20 20 65 74 42 79 74 below */. etByt
0b50: 65 20 74 79 70 65 3b 20 20 20 20 20 20 20 20 20 e type;
0b60: 20 20 20 20 2f 2a 20 43 6f 6e 76 65 72 73 69 6f /* Conversio
0b70: 6e 20 70 61 72 61 64 69 67 6d 20 2a 2f 0a 20 20 n paradigm */.
0b80: 65 74 42 79 74 65 20 63 68 61 72 73 65 74 3b 20 etByte charset;
0b90: 20 20 20 20 20 20 20 20 20 2f 2a 20 4f 66 66 73 /* Offs
0ba0: 65 74 20 69 6e 74 6f 20 61 44 69 67 69 74 73 5b et into aDigits[
0bb0: 5d 20 6f 66 20 74 68 65 20 64 69 67 69 74 73 20 ] of the digits
0bc0: 73 74 72 69 6e 67 20 2a 2f 0a 20 20 65 74 42 79 string */. etBy
0bd0: 74 65 20 70 72 65 66 69 78 3b 20 20 20 20 20 20 te prefix;
0be0: 20 20 20 20 20 2f 2a 20 4f 66 66 73 65 74 20 69 /* Offset i
0bf0: 6e 74 6f 20 61 50 72 65 66 69 78 5b 5d 20 6f 66 nto aPrefix[] of
0c00: 20 74 68 65 20 70 72 65 66 69 78 20 73 74 72 69 the prefix stri
0c10: 6e 67 20 2a 2f 0a 7d 20 65 74 5f 69 6e 66 6f 3b ng */.} et_info;
0c20: 0a 0a 2f 2a 0a 2a 2a 20 41 6c 6c 6f 77 65 64 20 ../*.** Allowed
0c30: 76 61 6c 75 65 73 20 66 6f 72 20 65 74 5f 69 6e values for et_in
0c40: 66 6f 2e 66 6c 61 67 73 0a 2a 2f 0a 23 64 65 66 fo.flags.*/.#def
0c50: 69 6e 65 20 46 4c 41 47 5f 53 49 47 4e 45 44 20 ine FLAG_SIGNED
0c60: 20 31 20 20 20 20 20 2f 2a 20 54 72 75 65 20 69 1 /* True i
0c70: 66 20 74 68 65 20 76 61 6c 75 65 20 74 6f 20 63 f the value to c
0c80: 6f 6e 76 65 72 74 20 69 73 20 73 69 67 6e 65 64 onvert is signed
0c90: 20 2a 2f 0a 23 64 65 66 69 6e 65 20 46 4c 41 47 */.#define FLAG
0ca0: 5f 49 4e 54 45 52 4e 20 20 32 20 20 20 20 20 2f _INTERN 2 /
0cb0: 2a 20 54 72 75 65 20 69 66 20 66 6f 72 20 69 6e * True if for in
0cc0: 74 65 72 6e 61 6c 20 75 73 65 20 6f 6e 6c 79 20 ternal use only
0cd0: 2a 2f 0a 23 64 65 66 69 6e 65 20 46 4c 41 47 5f */.#define FLAG_
0ce0: 53 54 52 49 4e 47 20 20 34 20 20 20 20 20 2f 2a STRING 4 /*
0cf0: 20 41 6c 6c 6f 77 20 69 6e 66 69 6e 69 74 79 20 Allow infinity
0d00: 70 72 65 63 69 73 69 6f 6e 20 2a 2f 0a 0a 0a 2f precision */.../
0d10: 2a 0a 2a 2a 20 54 68 65 20 66 6f 6c 6c 6f 77 69 *.** The followi
0d20: 6e 67 20 74 61 62 6c 65 20 69 73 20 73 65 61 72 ng table is sear
0d30: 63 68 65 64 20 6c 69 6e 65 61 72 6c 79 2c 20 73 ched linearly, s
0d40: 6f 20 69 74 20 69 73 20 67 6f 6f 64 20 74 6f 20 o it is good to
0d50: 70 75 74 20 74 68 65 0a 2a 2a 20 6d 6f 73 74 20 put the.** most
0d60: 66 72 65 71 75 65 6e 74 6c 79 20 75 73 65 64 20 frequently used
0d70: 63 6f 6e 76 65 72 73 69 6f 6e 20 74 79 70 65 73 conversion types
0d80: 20 66 69 72 73 74 2e 0a 2a 2f 0a 73 74 61 74 69 first..*/.stati
0d90: 63 20 63 6f 6e 73 74 20 63 68 61 72 20 61 44 69 c const char aDi
0da0: 67 69 74 73 5b 5d 20 3d 20 22 30 31 32 33 34 35 gits[] = "012345
0db0: 36 37 38 39 41 42 43 44 45 46 30 31 32 33 34 35 6789ABCDEF012345
0dc0: 36 37 38 39 61 62 63 64 65 66 22 3b 0a 73 74 61 6789abcdef";.sta
0dd0: 74 69 63 20 63 6f 6e 73 74 20 63 68 61 72 20 61 tic const char a
0de0: 50 72 65 66 69 78 5b 5d 20 3d 20 22 2d 78 30 5c Prefix[] = "-x0\
0df0: 30 30 30 58 30 22 3b 0a 73 74 61 74 69 63 20 63 000X0";.static c
0e00: 6f 6e 73 74 20 65 74 5f 69 6e 66 6f 20 66 6d 74 onst et_info fmt
0e10: 69 6e 66 6f 5b 5d 20 3d 20 7b 0a 20 20 7b 20 20 info[] = {. {
0e20: 27 64 27 2c 20 31 30 2c 20 31 2c 20 65 74 52 41 'd', 10, 1, etRA
0e30: 44 49 58 2c 20 20 20 20 20 20 30 2c 20 20 30 20 DIX, 0, 0
0e40: 7d 2c 0a 20 20 7b 20 20 27 73 27 2c 20 20 30 2c },. { 's', 0,
0e50: 20 34 2c 20 65 74 53 54 52 49 4e 47 2c 20 20 20 4, etSTRING,
0e60: 20 20 30 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 20 0, 0 },. {
0e70: 27 67 27 2c 20 20 30 2c 20 31 2c 20 65 74 47 45 'g', 0, 1, etGE
0e80: 4e 45 52 49 43 2c 20 20 20 20 33 30 2c 20 30 20 NERIC, 30, 0
0e90: 7d 2c 0a 20 20 7b 20 20 27 7a 27 2c 20 20 30 2c },. { 'z', 0,
0ea0: 20 36 2c 20 65 74 44 59 4e 53 54 52 49 4e 47 2c 6, etDYNSTRING,
0eb0: 20 20 30 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 20 0, 0 },. {
0ec0: 27 71 27 2c 20 20 30 2c 20 34 2c 20 65 74 53 51 'q', 0, 4, etSQ
0ed0: 4c 45 53 43 41 50 45 2c 20 20 30 2c 20 20 30 20 LESCAPE, 0, 0
0ee0: 7d 2c 0a 20 20 7b 20 20 27 51 27 2c 20 20 30 2c },. { 'Q', 0,
0ef0: 20 34 2c 20 65 74 53 51 4c 45 53 43 41 50 45 32 4, etSQLESCAPE2
0f00: 2c 20 30 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 20 , 0, 0 },. {
0f10: 27 62 27 2c 20 20 30 2c 20 32 2c 20 65 74 42 4c 'b', 0, 2, etBL
0f20: 4f 42 2c 20 20 20 20 20 20 20 30 2c 20 20 30 20 OB, 0, 0
0f30: 7d 2c 0a 20 20 7b 20 20 27 42 27 2c 20 20 30 2c },. { 'B', 0,
0f40: 20 32 2c 20 65 74 42 4c 4f 42 53 51 4c 2c 20 20 2, etBLOBSQL,
0f50: 20 20 30 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 20 0, 0 },. {
0f60: 27 68 27 2c 20 20 30 2c 20 34 2c 20 65 74 48 54 'h', 0, 4, etHT
0f70: 4d 4c 49 5a 45 2c 20 20 20 20 30 2c 20 20 30 20 MLIZE, 0, 0
0f80: 7d 2c 0a 20 20 7b 20 20 27 74 27 2c 20 20 30 2c },. { 't', 0,
0f90: 20 34 2c 20 65 74 48 54 54 50 49 5a 45 2c 20 20 4, etHTTPIZE,
0fa0: 20 20 30 2c 20 20 30 20 7d 2c 20 20 2f 2a 20 22 0, 0 }, /* "
0fb0: 2f 22 20 2d 3e 20 22 25 32 46 22 20 2a 2f 0a 20 /" -> "%2F" */.
0fc0: 20 7b 20 20 27 54 27 2c 20 20 30 2c 20 34 2c 20 { 'T', 0, 4,
0fd0: 65 74 55 52 4c 49 5a 45 2c 20 20 20 20 20 30 2c etURLIZE, 0,
0fe0: 20 20 30 20 7d 2c 20 20 2f 2a 20 22 2f 22 20 75 0 }, /* "/" u
0ff0: 6e 63 68 61 6e 67 65 64 20 2a 2f 0a 20 20 7b 20 nchanged */. {
1000: 20 27 46 27 2c 20 20 30 2c 20 34 2c 20 65 74 46 'F', 0, 4, etF
1010: 4f 53 53 49 4c 49 5a 45 2c 20 20 30 2c 20 20 30 OSSILIZE, 0, 0
1020: 20 7d 2c 0a 20 20 7b 20 20 27 63 27 2c 20 20 30 },. { 'c', 0
1030: 2c 20 30 2c 20 65 74 43 48 41 52 58 2c 20 20 20 , 0, etCHARX,
1040: 20 20 20 30 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 0, 0 },. {
1050: 20 27 6f 27 2c 20 20 38 2c 20 30 2c 20 65 74 52 'o', 8, 0, etR
1060: 41 44 49 58 2c 20 20 20 20 20 20 30 2c 20 20 32 ADIX, 0, 2
1070: 20 7d 2c 0a 20 20 7b 20 20 27 75 27 2c 20 31 30 },. { 'u', 10
1080: 2c 20 30 2c 20 65 74 52 41 44 49 58 2c 20 20 20 , 0, etRADIX,
1090: 20 20 20 30 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 0, 0 },. {
10a0: 20 27 78 27 2c 20 31 36 2c 20 30 2c 20 65 74 52 'x', 16, 0, etR
10b0: 41 44 49 58 2c 20 20 20 20 20 20 31 36 2c 20 31 ADIX, 16, 1
10c0: 20 7d 2c 0a 20 20 7b 20 20 27 58 27 2c 20 31 36 },. { 'X', 16
10d0: 2c 20 30 2c 20 65 74 52 41 44 49 58 2c 20 20 20 , 0, etRADIX,
10e0: 20 20 20 30 2c 20 20 34 20 7d 2c 0a 20 20 7b 20 0, 4 },. {
10f0: 20 27 66 27 2c 20 20 30 2c 20 31 2c 20 65 74 46 'f', 0, 1, etF
1100: 4c 4f 41 54 2c 20 20 20 20 20 20 30 2c 20 20 30 LOAT, 0, 0
1110: 20 7d 2c 0a 20 20 7b 20 20 27 65 27 2c 20 20 30 },. { 'e', 0
1120: 2c 20 31 2c 20 65 74 45 58 50 2c 20 20 20 20 20 , 1, etEXP,
1130: 20 20 20 33 30 2c 20 30 20 7d 2c 0a 20 20 7b 20 30, 0 },. {
1140: 20 27 45 27 2c 20 20 30 2c 20 31 2c 20 65 74 45 'E', 0, 1, etE
1150: 58 50 2c 20 20 20 20 20 20 20 20 31 34 2c 20 30 XP, 14, 0
1160: 20 7d 2c 0a 20 20 7b 20 20 27 47 27 2c 20 20 30 },. { 'G', 0
1170: 2c 20 31 2c 20 65 74 47 45 4e 45 52 49 43 2c 20 , 1, etGENERIC,
1180: 20 20 20 31 34 2c 20 30 20 7d 2c 0a 20 20 7b 20 14, 0 },. {
1190: 20 27 69 27 2c 20 31 30 2c 20 31 2c 20 65 74 52 'i', 10, 1, etR
11a0: 41 44 49 58 2c 20 20 20 20 20 20 30 2c 20 20 30 ADIX, 0, 0
11b0: 20 7d 2c 0a 20 20 7b 20 20 27 6e 27 2c 20 20 30 },. { 'n', 0
11c0: 2c 20 30 2c 20 65 74 53 49 5a 45 2c 20 20 20 20 , 0, etSIZE,
11d0: 20 20 20 30 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 0, 0 },. {
11e0: 20 27 25 27 2c 20 20 30 2c 20 30 2c 20 65 74 50 '%', 0, 0, etP
11f0: 45 52 43 45 4e 54 2c 20 20 20 20 30 2c 20 20 30 ERCENT, 0, 0
1200: 20 7d 2c 0a 20 20 7b 20 20 27 70 27 2c 20 31 36 },. { 'p', 16
1210: 2c 20 30 2c 20 65 74 50 4f 49 4e 54 45 52 2c 20 , 0, etPOINTER,
1220: 20 20 20 30 2c 20 20 31 20 7d 2c 0a 20 20 7b 20 0, 1 },. {
1230: 20 27 2f 27 2c 20 20 30 2c 20 30 2c 20 65 74 50 '/', 0, 0, etP
1240: 41 54 48 2c 20 20 20 20 20 20 20 30 2c 20 20 30 ATH, 0, 0
1250: 20 7d 2c 0a 7d 3b 0a 23 64 65 66 69 6e 65 20 65 },.};.#define e
1260: 74 4e 49 4e 46 4f 20 20 28 73 69 7a 65 6f 66 28 tNINFO (sizeof(
1270: 66 6d 74 69 6e 66 6f 29 2f 73 69 7a 65 6f 66 28 fmtinfo)/sizeof(
1280: 66 6d 74 69 6e 66 6f 5b 30 5d 29 29 0a 0a 2f 2a fmtinfo[0]))../*
1290: 0a 2a 2a 20 22 2a 76 61 6c 22 20 69 73 20 61 20 .** "*val" is a
12a0: 64 6f 75 62 6c 65 20 73 75 63 68 20 74 68 61 74 double such that
12b0: 20 30 2e 31 20 3c 3d 20 2a 76 61 6c 20 3c 20 31 0.1 <= *val < 1
12c0: 30 2e 30 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 0.0.** Return th
12d0: 65 20 61 73 63 69 69 20 63 6f 64 65 20 66 6f 72 e ascii code for
12e0: 20 74 68 65 20 6c 65 61 64 69 6e 67 20 64 69 67 the leading dig
12f0: 69 74 20 6f 66 20 2a 76 61 6c 2c 20 74 68 65 6e it of *val, then
1300: 0a 2a 2a 20 6d 75 6c 74 69 70 6c 79 20 22 2a 76 .** multiply "*v
1310: 61 6c 22 20 62 79 20 31 30 2e 30 20 74 6f 20 72 al" by 10.0 to r
1320: 65 6e 6f 72 6d 61 6c 69 7a 65 2e 0a 2a 2a 0a 2a enormalize..**.*
1330: 2a 20 45 78 61 6d 70 6c 65 3a 0a 2a 2a 20 20 20 * Example:.**
1340: 20 20 69 6e 70 75 74 3a 20 20 20 20 20 2a 76 61 input: *va
1350: 6c 20 3d 20 33 2e 31 34 31 35 39 0a 2a 2a 20 20 l = 3.14159.**
1360: 20 20 20 6f 75 74 70 75 74 3a 20 20 20 20 2a 76 output: *v
1370: 61 6c 20 3d 20 31 2e 34 31 35 39 20 20 20 20 66 al = 1.4159 f
1380: 75 6e 63 74 69 6f 6e 20 72 65 74 75 72 6e 20 3d unction return =
1390: 20 27 33 27 0a 2a 2a 0a 2a 2a 20 54 68 65 20 63 '3'.**.** The c
13a0: 6f 75 6e 74 65 72 20 2a 63 6e 74 20 69 73 20 69 ounter *cnt is i
13b0: 6e 63 72 65 6d 65 6e 74 65 64 20 65 61 63 68 20 ncremented each
13c0: 74 69 6d 65 2e 20 20 41 66 74 65 72 20 63 6f 75 time. After cou
13d0: 6e 74 65 72 20 65 78 63 65 65 64 73 0a 2a 2a 20 nter exceeds.**
13e0: 31 36 20 28 74 68 65 20 6e 75 6d 62 65 72 20 6f 16 (the number o
13f0: 66 20 73 69 67 6e 69 66 69 63 61 6e 74 20 64 69 f significant di
1400: 67 69 74 73 20 69 6e 20 61 20 36 34 2d 62 69 74 gits in a 64-bit
1410: 20 66 6c 6f 61 74 29 20 27 30 27 20 69 73 0a 2a float) '0' is.*
1420: 2a 20 61 6c 77 61 79 73 20 72 65 74 75 72 6e 65 * always returne
1430: 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 d..*/.static int
1440: 20 65 74 5f 67 65 74 64 69 67 69 74 28 6c 6f 6e et_getdigit(lon
1450: 67 20 64 6f 75 62 6c 65 20 2a 76 61 6c 2c 20 69 g double *val, i
1460: 6e 74 20 2a 63 6e 74 29 7b 0a 20 20 69 6e 74 20 nt *cnt){. int
1470: 64 69 67 69 74 3b 0a 20 20 6c 6f 6e 67 20 64 6f digit;. long do
1480: 75 62 6c 65 20 64 3b 0a 20 20 69 66 28 20 28 2a uble d;. if( (*
1490: 63 6e 74 29 2b 2b 20 3e 3d 20 31 36 20 29 20 72 cnt)++ >= 16 ) r
14a0: 65 74 75 72 6e 20 27 30 27 3b 0a 20 20 64 69 67 eturn '0';. dig
14b0: 69 74 20 3d 20 28 69 6e 74 29 2a 76 61 6c 3b 0a it = (int)*val;.
14c0: 20 20 64 20 3d 20 64 69 67 69 74 3b 0a 20 20 64 d = digit;. d
14d0: 69 67 69 74 20 2b 3d 20 27 30 27 3b 0a 20 20 2a igit += '0';. *
14e0: 76 61 6c 20 3d 20 28 2a 76 61 6c 20 2d 20 64 29 val = (*val - d)
14f0: 2a 31 30 2e 30 3b 0a 20 20 72 65 74 75 72 6e 20 *10.0;. return
1500: 64 69 67 69 74 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 digit;.}../*.**
1510: 53 69 7a 65 20 6f 66 20 74 65 6d 70 6f 72 61 72 Size of temporar
1520: 79 20 63 6f 6e 76 65 72 73 69 6f 6e 20 62 75 66 y conversion buf
1530: 66 65 72 2e 0a 2a 2f 0a 23 64 65 66 69 6e 65 20 fer..*/.#define
1540: 65 74 42 55 46 53 49 5a 45 20 35 30 30 0a 0a 2f etBUFSIZE 500../
1550: 2a 0a 2a 2a 20 54 68 65 20 72 6f 6f 74 20 70 72 *.** The root pr
1560: 6f 67 72 61 6d 2e 20 20 41 6c 6c 20 76 61 72 69 ogram. All vari
1570: 61 74 69 6f 6e 73 20 63 61 6c 6c 20 74 68 69 73 ations call this
1580: 20 63 6f 72 65 2e 0a 2a 2a 0a 2a 2a 20 49 4e 50 core..**.** INP
1590: 55 54 53 3a 0a 2a 2a 20 20 20 66 75 6e 63 20 20 UTS:.** func
15a0: 20 54 68 69 73 20 69 73 20 61 20 70 6f 69 6e 74 This is a point
15b0: 65 72 20 74 6f 20 61 20 66 75 6e 63 74 69 6f 6e er to a function
15c0: 20 74 61 6b 69 6e 67 20 74 68 72 65 65 20 61 72 taking three ar
15d0: 67 75 6d 65 6e 74 73 0a 2a 2a 20 20 20 20 20 20 guments.**
15e0: 20 20 20 20 20 20 31 2e 20 41 20 70 6f 69 6e 74 1. A point
15f0: 65 72 20 74 6f 20 61 6e 79 74 68 69 6e 67 2e 20 er to anything.
1600: 20 53 61 6d 65 20 61 73 20 74 68 65 20 22 61 72 Same as the "ar
1610: 67 22 20 70 61 72 61 6d 65 74 65 72 2e 0a 2a 2a g" parameter..**
1620: 20 20 20 20 20 20 20 20 20 20 20 20 32 2e 20 41 2. A
1630: 20 70 6f 69 6e 74 65 72 20 74 6f 20 74 68 65 20 pointer to the
1640: 6c 69 73 74 20 6f 66 20 63 68 61 72 61 63 74 65 list of characte
1650: 72 73 20 74 6f 20 62 65 20 6f 75 74 70 75 74 0a rs to be output.
1660: 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 **
1670: 20 28 4e 6f 74 65 2c 20 74 68 69 73 20 6c 69 73 (Note, this lis
1680: 74 20 69 73 20 4e 4f 54 20 6e 75 6c 6c 20 74 65 t is NOT null te
1690: 72 6d 69 6e 61 74 65 64 2e 29 0a 2a 2a 20 20 20 rminated.).**
16a0: 20 20 20 20 20 20 20 20 20 33 2e 20 41 6e 20 69 3. An i
16b0: 6e 74 65 67 65 72 20 6e 75 6d 62 65 72 20 6f 66 nteger number of
16c0: 20 63 68 61 72 61 63 74 65 72 73 20 74 6f 20 62 characters to b
16d0: 65 20 6f 75 74 70 75 74 2e 0a 2a 2a 20 20 20 20 e output..**
16e0: 20 20 20 20 20 20 20 20 20 20 20 28 4e 6f 74 65 (Note
16f0: 3a 20 54 68 69 73 20 6e 75 6d 62 65 72 20 6d 69 : This number mi
1700: 67 68 74 20 62 65 20 7a 65 72 6f 2e 29 0a 2a 2a ght be zero.).**
1710: 0a 2a 2a 20 20 20 61 72 67 20 20 20 20 54 68 69 .** arg Thi
1720: 73 20 69 73 20 74 68 65 20 70 6f 69 6e 74 65 72 s is the pointer
1730: 20 74 6f 20 61 6e 79 74 68 69 6e 67 20 77 68 69 to anything whi
1740: 63 68 20 77 69 6c 6c 20 62 65 20 70 61 73 73 65 ch will be passe
1750: 64 20 61 73 20 74 68 65 0a 2a 2a 20 20 20 20 20 d as the.**
1760: 20 20 20 20 20 66 69 72 73 74 20 61 72 67 75 6d first argum
1770: 65 6e 74 20 74 6f 20 22 66 75 6e 63 22 2e 20 20 ent to "func".
1780: 55 73 65 20 69 74 20 66 6f 72 20 77 68 61 74 65 Use it for whate
1790: 76 65 72 20 79 6f 75 20 6c 69 6b 65 2e 0a 2a 2a ver you like..**
17a0: 0a 2a 2a 20 20 20 66 6d 74 20 20 20 20 54 68 69 .** fmt Thi
17b0: 73 20 69 73 20 74 68 65 20 66 6f 72 6d 61 74 20 s is the format
17c0: 73 74 72 69 6e 67 2c 20 61 73 20 69 6e 20 74 68 string, as in th
17d0: 65 20 75 73 75 61 6c 20 70 72 69 6e 74 2e 0a 2a e usual print..*
17e0: 2a 0a 2a 2a 20 20 20 61 70 20 20 20 20 20 54 68 *.** ap Th
17f0: 69 73 20 69 73 20 61 20 70 6f 69 6e 74 65 72 20 is is a pointer
1800: 74 6f 20 61 20 6c 69 73 74 20 6f 66 20 61 72 67 to a list of arg
1810: 75 6d 65 6e 74 73 2e 20 20 53 61 6d 65 20 61 73 uments. Same as
1820: 20 69 6e 0a 2a 2a 20 20 20 20 20 20 20 20 20 20 in.**
1830: 76 66 70 72 69 6e 74 2e 0a 2a 2a 0a 2a 2a 20 4f vfprint..**.** O
1840: 55 54 50 55 54 53 3a 0a 2a 2a 20 20 20 20 20 20 UTPUTS:.**
1850: 20 20 20 20 54 68 65 20 72 65 74 75 72 6e 20 76 The return v
1860: 61 6c 75 65 20 69 73 20 74 68 65 20 74 6f 74 61 alue is the tota
1870: 6c 20 6e 75 6d 62 65 72 20 6f 66 20 63 68 61 72 l number of char
1880: 61 63 74 65 72 73 20 73 65 6e 74 20 74 6f 0a 2a acters sent to.*
1890: 2a 20 20 20 20 20 20 20 20 20 20 74 68 65 20 66 * the f
18a0: 75 6e 63 74 69 6f 6e 20 22 66 75 6e 63 22 2e 20 unction "func".
18b0: 20 52 65 74 75 72 6e 73 20 2d 31 20 6f 6e 20 61 Returns -1 on a
18c0: 20 65 72 72 6f 72 2e 0a 2a 2a 0a 2a 2a 20 4e 6f error..**.** No
18d0: 74 65 20 74 68 61 74 20 74 68 65 20 6f 72 64 65 te that the orde
18e0: 72 20 69 6e 20 77 68 69 63 68 20 61 75 74 6f 6d r in which autom
18f0: 61 74 69 63 20 76 61 72 69 61 62 6c 65 73 20 61 atic variables a
1900: 72 65 20 64 65 63 6c 61 72 65 64 20 62 65 6c 6f re declared belo
1910: 77 0a 2a 2a 20 73 65 65 6d 73 20 74 6f 20 6d 61 w.** seems to ma
1920: 6b 65 20 61 20 62 69 67 20 64 69 66 66 65 72 65 ke a big differe
1930: 6e 63 65 20 69 6e 20 64 65 74 65 72 6d 69 6e 69 nce in determini
1940: 6e 67 20 68 6f 77 20 66 61 73 74 20 74 68 69 73 ng how fast this
1950: 20 62 65 61 73 74 0a 2a 2a 20 77 69 6c 6c 20 72 beast.** will r
1960: 75 6e 2e 0a 2a 2f 0a 69 6e 74 20 76 78 70 72 69 un..*/.int vxpri
1970: 6e 74 66 28 0a 20 20 76 6f 69 64 20 28 2a 66 75 ntf(. void (*fu
1980: 6e 63 29 28 76 6f 69 64 2a 2c 63 6f 6e 73 74 20 nc)(void*,const
1990: 63 68 61 72 2a 2c 69 6e 74 29 2c 20 20 20 20 20 char*,int),
19a0: 2f 2a 20 43 6f 6e 73 75 6d 65 72 20 6f 66 20 74 /* Consumer of t
19b0: 65 78 74 20 2a 2f 0a 20 20 76 6f 69 64 20 2a 61 ext */. void *a
19c0: 72 67 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 rg,
19d0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 46 /* F
19e0: 69 72 73 74 20 61 72 67 75 6d 65 6e 74 20 74 6f irst argument to
19f0: 20 74 68 65 20 63 6f 6e 73 75 6d 65 72 20 2a 2f the consumer */
1a00: 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 66 . const char *f
1a10: 6d 74 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 mt,
1a20: 20 20 20 20 20 20 2f 2a 20 46 6f 72 6d 61 74 20 /* Format
1a30: 73 74 72 69 6e 67 20 2a 2f 0a 20 20 76 61 5f 6c string */. va_l
1a40: 69 73 74 20 61 70 20 20 20 20 20 20 20 20 20 20 ist ap
1a50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f /
1a60: 2a 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 * arguments */.)
1a70: 7b 0a 20 20 69 6e 74 20 63 3b 20 20 20 20 20 20 {. int c;
1a80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f /
1a90: 2a 20 4e 65 78 74 20 63 68 61 72 61 63 74 65 72 * Next character
1aa0: 20 69 6e 20 74 68 65 20 66 6f 72 6d 61 74 20 73 in the format s
1ab0: 74 72 69 6e 67 20 2a 2f 0a 20 20 63 68 61 72 20 tring */. char
1ac0: 2a 62 75 66 70 74 3b 20 20 20 20 20 20 20 20 20 *bufpt;
1ad0: 20 20 20 20 20 20 2f 2a 20 50 6f 69 6e 74 65 72 /* Pointer
1ae0: 20 74 6f 20 74 68 65 20 63 6f 6e 76 65 72 73 69 to the conversi
1af0: 6f 6e 20 62 75 66 66 65 72 20 2a 2f 0a 20 20 69 on buffer */. i
1b00: 6e 74 20 70 72 65 63 69 73 69 6f 6e 3b 20 20 20 nt precision;
1b10: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 50 72 65 /* Pre
1b20: 63 69 73 69 6f 6e 20 6f 66 20 74 68 65 20 63 75 cision of the cu
1b30: 72 72 65 6e 74 20 66 69 65 6c 64 20 2a 2f 0a 20 rrent field */.
1b40: 20 69 6e 74 20 6c 65 6e 67 74 68 3b 20 20 20 20 int length;
1b50: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4c /* L
1b60: 65 6e 67 74 68 20 6f 66 20 74 68 65 20 66 69 65 ength of the fie
1b70: 6c 64 20 2a 2f 0a 20 20 69 6e 74 20 69 64 78 3b ld */. int idx;
1b80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1b90: 20 20 20 2f 2a 20 41 20 67 65 6e 65 72 61 6c 20 /* A general
1ba0: 70 75 72 70 6f 73 65 20 6c 6f 6f 70 20 63 6f 75 purpose loop cou
1bb0: 6e 74 65 72 20 2a 2f 0a 20 20 69 6e 74 20 63 6f nter */. int co
1bc0: 75 6e 74 3b 20 20 20 20 20 20 20 20 20 20 20 20 unt;
1bd0: 20 20 20 20 20 2f 2a 20 54 6f 74 61 6c 20 6e 75 /* Total nu
1be0: 6d 62 65 72 20 6f 66 20 63 68 61 72 61 63 74 65 mber of characte
1bf0: 72 73 20 6f 75 74 70 75 74 20 2a 2f 0a 20 20 69 rs output */. i
1c00: 6e 74 20 77 69 64 74 68 3b 20 20 20 20 20 20 20 nt width;
1c10: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 57 69 64 /* Wid
1c20: 74 68 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e th of the curren
1c30: 74 20 66 69 65 6c 64 20 2a 2f 0a 20 20 65 74 42 t field */. etB
1c40: 79 74 65 20 66 6c 61 67 5f 6c 65 66 74 6a 75 73 yte flag_leftjus
1c50: 74 69 66 79 3b 20 20 20 2f 2a 20 54 72 75 65 20 tify; /* True
1c60: 69 66 20 22 2d 22 20 66 6c 61 67 20 69 73 20 70 if "-" flag is p
1c70: 72 65 73 65 6e 74 20 2a 2f 0a 20 20 65 74 42 79 resent */. etBy
1c80: 74 65 20 66 6c 61 67 5f 70 6c 75 73 73 69 67 6e te flag_plussign
1c90: 3b 20 20 20 20 20 20 2f 2a 20 54 72 75 65 20 69 ; /* True i
1ca0: 66 20 22 2b 22 20 66 6c 61 67 20 69 73 20 70 72 f "+" flag is pr
1cb0: 65 73 65 6e 74 20 2a 2f 0a 20 20 65 74 42 79 74 esent */. etByt
1cc0: 65 20 66 6c 61 67 5f 62 6c 61 6e 6b 73 69 67 6e e flag_blanksign
1cd0: 3b 20 20 20 20 20 2f 2a 20 54 72 75 65 20 69 66 ; /* True if
1ce0: 20 22 20 22 20 66 6c 61 67 20 69 73 20 70 72 65 " " flag is pre
1cf0: 73 65 6e 74 20 2a 2f 0a 20 20 65 74 42 79 74 65 sent */. etByte
1d00: 20 66 6c 61 67 5f 61 6c 74 65 72 6e 61 74 65 66 flag_alternatef
1d10: 6f 72 6d 3b 20 2f 2a 20 54 72 75 65 20 69 66 20 orm; /* True if
1d20: 22 23 22 20 66 6c 61 67 20 69 73 20 70 72 65 73 "#" flag is pres
1d30: 65 6e 74 20 2a 2f 0a 20 20 65 74 42 79 74 65 20 ent */. etByte
1d40: 66 6c 61 67 5f 61 6c 74 66 6f 72 6d 32 3b 20 20 flag_altform2;
1d50: 20 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20 22 /* True if "
1d60: 21 22 20 66 6c 61 67 20 69 73 20 70 72 65 73 65 !" flag is prese
1d70: 6e 74 20 2a 2f 0a 20 20 65 74 42 79 74 65 20 66 nt */. etByte f
1d80: 6c 61 67 5f 7a 65 72 6f 70 61 64 3b 20 20 20 20 lag_zeropad;
1d90: 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20 66 69 /* True if fi
1da0: 65 6c 64 20 77 69 64 74 68 20 63 6f 6e 73 74 61 eld width consta
1db0: 6e 74 20 73 74 61 72 74 73 20 77 69 74 68 20 7a nt starts with z
1dc0: 65 72 6f 20 2a 2f 0a 20 20 65 74 42 79 74 65 20 ero */. etByte
1dd0: 66 6c 61 67 5f 6c 6f 6e 67 3b 20 20 20 20 20 20 flag_long;
1de0: 20 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20 22 /* True if "
1df0: 6c 22 20 66 6c 61 67 20 69 73 20 70 72 65 73 65 l" flag is prese
1e00: 6e 74 20 2a 2f 0a 20 20 65 74 42 79 74 65 20 66 nt */. etByte f
1e10: 6c 61 67 5f 6c 6f 6e 67 6c 6f 6e 67 3b 20 20 20 lag_longlong;
1e20: 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20 74 68 /* True if th
1e30: 65 20 22 6c 6c 22 20 66 6c 61 67 20 69 73 20 70 e "ll" flag is p
1e40: 72 65 73 65 6e 74 20 2a 2f 0a 20 20 65 74 42 79 resent */. etBy
1e50: 74 65 20 64 6f 6e 65 3b 20 20 20 20 20 20 20 20 te done;
1e60: 20 20 20 20 20 20 20 2f 2a 20 4c 6f 6f 70 20 74 /* Loop t
1e70: 65 72 6d 69 6e 61 74 69 6f 6e 20 66 6c 61 67 20 ermination flag
1e80: 2a 2f 0a 20 20 75 36 34 20 6c 6f 6e 67 76 61 6c */. u64 longval
1e90: 75 65 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ue;
1ea0: 2f 2a 20 56 61 6c 75 65 20 66 6f 72 20 69 6e 74 /* Value for int
1eb0: 65 67 65 72 20 74 79 70 65 73 20 2a 2f 0a 20 20 eger types */.
1ec0: 6c 6f 6e 67 20 64 6f 75 62 6c 65 20 72 65 61 6c long double real
1ed0: 76 61 6c 75 65 3b 20 20 20 20 20 2f 2a 20 56 61 value; /* Va
1ee0: 6c 75 65 20 66 6f 72 20 72 65 61 6c 20 74 79 70 lue for real typ
1ef0: 65 73 20 2a 2f 0a 20 20 63 6f 6e 73 74 20 65 74 es */. const et
1f00: 5f 69 6e 66 6f 20 2a 69 6e 66 6f 70 3b 20 20 20 _info *infop;
1f10: 20 20 20 2f 2a 20 50 6f 69 6e 74 65 72 20 74 6f /* Pointer to
1f20: 20 74 68 65 20 61 70 70 72 6f 70 72 69 61 74 65 the appropriate
1f30: 20 69 6e 66 6f 20 73 74 72 75 63 74 75 72 65 20 info structure
1f40: 2a 2f 0a 20 20 63 68 61 72 20 62 75 66 5b 65 74 */. char buf[et
1f50: 42 55 46 53 49 5a 45 5d 3b 20 20 20 20 20 20 20 BUFSIZE];
1f60: 2f 2a 20 43 6f 6e 76 65 72 73 69 6f 6e 20 62 75 /* Conversion bu
1f70: 66 66 65 72 20 2a 2f 0a 20 20 63 68 61 72 20 70 ffer */. char p
1f80: 72 65 66 69 78 3b 20 20 20 20 20 20 20 20 20 20 refix;
1f90: 20 20 20 20 20 2f 2a 20 50 72 65 66 69 78 20 63 /* Prefix c
1fa0: 68 61 72 61 63 74 65 72 2e 20 20 22 2b 22 20 6f haracter. "+" o
1fb0: 72 20 22 2d 22 20 6f 72 20 22 20 22 20 6f 72 20 r "-" or " " or
1fc0: 27 5c 30 27 2e 20 2a 2f 0a 20 20 65 74 42 79 74 '\0'. */. etByt
1fd0: 65 20 65 72 72 6f 72 66 6c 61 67 20 3d 20 30 3b e errorflag = 0;
1fe0: 20 20 20 20 20 20 2f 2a 20 54 72 75 65 20 69 66 /* True if
1ff0: 20 61 6e 20 65 72 72 6f 72 20 69 73 20 65 6e 63 an error is enc
2000: 6f 75 6e 74 65 72 65 64 20 2a 2f 0a 20 20 65 74 ountered */. et
2010: 42 79 74 65 20 78 74 79 70 65 3b 20 20 20 20 20 Byte xtype;
2020: 20 20 20 20 20 20 20 20 20 2f 2a 20 43 6f 6e 76 /* Conv
2030: 65 72 73 69 6f 6e 20 70 61 72 61 64 69 67 6d 20 ersion paradigm
2040: 2a 2f 0a 20 20 63 68 61 72 20 2a 7a 45 78 74 72 */. char *zExtr
2050: 61 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 a;
2060: 2f 2a 20 45 78 74 72 61 20 6d 65 6d 6f 72 79 20 /* Extra memory
2070: 75 73 65 64 20 66 6f 72 20 65 74 54 43 4c 45 53 used for etTCLES
2080: 43 41 50 45 20 63 6f 6e 76 65 72 73 69 6f 6e 73 CAPE conversions
2090: 20 2a 2f 0a 20 20 73 74 61 74 69 63 20 63 6f 6e */. static con
20a0: 73 74 20 63 68 61 72 20 73 70 61 63 65 73 5b 5d st char spaces[]
20b0: 20 3d 0a 20 20 20 22 20 20 20 20 20 20 20 20 20 =. "
20c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
20d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
20e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
20f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2100: 22 3b 0a 23 64 65 66 69 6e 65 20 65 74 53 50 41 ";.#define etSPA
2110: 43 45 53 49 5a 45 20 28 73 69 7a 65 6f 66 28 73 CESIZE (sizeof(s
2120: 70 61 63 65 73 29 2d 31 29 0a 20 20 69 6e 74 20 paces)-1). int
2130: 20 65 78 70 2c 20 65 32 3b 20 20 20 20 20 20 20 exp, e2;
2140: 20 20 20 20 20 20 20 2f 2a 20 65 78 70 6f 6e 65 /* expone
2150: 6e 74 20 6f 66 20 72 65 61 6c 20 6e 75 6d 62 65 nt of real numbe
2160: 72 73 20 2a 2f 0a 20 20 64 6f 75 62 6c 65 20 72 rs */. double r
2170: 6f 75 6e 64 65 72 3b 20 20 20 20 20 20 20 20 20 ounder;
2180: 20 20 20 2f 2a 20 55 73 65 64 20 66 6f 72 20 72 /* Used for r
2190: 6f 75 6e 64 69 6e 67 20 66 6c 6f 61 74 69 6e 67 ounding floating
21a0: 20 70 6f 69 6e 74 20 76 61 6c 75 65 73 20 2a 2f point values */
21b0: 0a 20 20 65 74 42 79 74 65 20 66 6c 61 67 5f 64 . etByte flag_d
21c0: 70 3b 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a p; /*
21d0: 20 54 72 75 65 20 69 66 20 64 65 63 69 6d 61 6c True if decimal
21e0: 20 70 6f 69 6e 74 20 73 68 6f 75 6c 64 20 62 65 point should be
21f0: 20 73 68 6f 77 6e 20 2a 2f 0a 20 20 65 74 42 79 shown */. etBy
2200: 74 65 20 66 6c 61 67 5f 72 74 7a 3b 20 20 20 20 te flag_rtz;
2210: 20 20 20 20 20 20 20 2f 2a 20 54 72 75 65 20 69 /* True i
2220: 66 20 74 72 61 69 6c 69 6e 67 20 7a 65 72 6f 73 f trailing zeros
2230: 20 73 68 6f 75 6c 64 20 62 65 20 72 65 6d 6f 76 should be remov
2240: 65 64 20 2a 2f 0a 20 20 65 74 42 79 74 65 20 66 ed */. etByte f
2250: 6c 61 67 5f 65 78 70 3b 20 20 20 20 20 20 20 20 lag_exp;
2260: 20 20 20 2f 2a 20 54 72 75 65 20 74 6f 20 66 6f /* True to fo
2270: 72 63 65 20 64 69 73 70 6c 61 79 20 6f 66 20 74 rce display of t
2280: 68 65 20 65 78 70 6f 6e 65 6e 74 20 2a 2f 0a 20 he exponent */.
2290: 20 69 6e 74 20 6e 73 64 3b 20 20 20 20 20 20 20 int nsd;
22a0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e /* N
22b0: 75 6d 62 65 72 20 6f 66 20 73 69 67 6e 69 66 69 umber of signifi
22c0: 63 61 6e 74 20 64 69 67 69 74 73 20 72 65 74 75 cant digits retu
22d0: 72 6e 65 64 20 2a 2f 0a 0a 20 20 66 75 6e 63 28 rned */.. func(
22e0: 61 72 67 2c 22 22 2c 30 29 3b 0a 20 20 63 6f 75 arg,"",0);. cou
22f0: 6e 74 20 3d 20 6c 65 6e 67 74 68 20 3d 20 30 3b nt = length = 0;
2300: 0a 20 20 62 75 66 70 74 20 3d 20 30 3b 0a 20 20 . bufpt = 0;.
2310: 66 6f 72 28 3b 20 28 63 3d 28 2a 66 6d 74 29 29 for(; (c=(*fmt))
2320: 21 3d 30 3b 20 2b 2b 66 6d 74 29 7b 0a 20 20 20 !=0; ++fmt){.
2330: 20 69 66 28 20 63 21 3d 27 25 27 20 29 7b 0a 20 if( c!='%' ){.
2340: 20 20 20 20 20 69 6e 74 20 61 6d 74 3b 0a 20 20 int amt;.
2350: 20 20 20 20 62 75 66 70 74 20 3d 20 28 63 68 61 bufpt = (cha
2360: 72 20 2a 29 66 6d 74 3b 0a 20 20 20 20 20 20 61 r *)fmt;. a
2370: 6d 74 20 3d 20 31 3b 0a 20 20 20 20 20 20 77 68 mt = 1;. wh
2380: 69 6c 65 28 20 28 63 3d 28 2a 2b 2b 66 6d 74 29 ile( (c=(*++fmt)
2390: 29 21 3d 27 25 27 20 26 26 20 63 21 3d 30 20 29 )!='%' && c!=0 )
23a0: 20 61 6d 74 2b 2b 3b 0a 20 20 20 20 20 20 28 2a amt++;. (*
23b0: 66 75 6e 63 29 28 61 72 67 2c 62 75 66 70 74 2c func)(arg,bufpt,
23c0: 61 6d 74 29 3b 0a 20 20 20 20 20 20 63 6f 75 6e amt);. coun
23d0: 74 20 2b 3d 20 61 6d 74 3b 0a 20 20 20 20 20 20 t += amt;.
23e0: 69 66 28 20 63 3d 3d 30 20 29 20 62 72 65 61 6b if( c==0 ) break
23f0: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 28 20 ;. }. if(
2400: 28 63 3d 28 2a 2b 2b 66 6d 74 29 29 3d 3d 30 20 (c=(*++fmt))==0
2410: 29 7b 0a 20 20 20 20 20 20 65 72 72 6f 72 66 6c ){. errorfl
2420: 61 67 20 3d 20 31 3b 0a 20 20 20 20 20 20 28 2a ag = 1;. (*
2430: 66 75 6e 63 29 28 61 72 67 2c 22 25 22 2c 31 29 func)(arg,"%",1)
2440: 3b 0a 20 20 20 20 20 20 63 6f 75 6e 74 2b 2b 3b ;. count++;
2450: 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 . break;.
2460: 20 20 7d 0a 20 20 20 20 2f 2a 20 46 69 6e 64 20 }. /* Find
2470: 6f 75 74 20 77 68 61 74 20 66 6c 61 67 73 20 61 out what flags a
2480: 72 65 20 70 72 65 73 65 6e 74 20 2a 2f 0a 20 20 re present */.
2490: 20 20 66 6c 61 67 5f 6c 65 66 74 6a 75 73 74 69 flag_leftjusti
24a0: 66 79 20 3d 20 66 6c 61 67 5f 70 6c 75 73 73 69 fy = flag_plussi
24b0: 67 6e 20 3d 20 66 6c 61 67 5f 62 6c 61 6e 6b 73 gn = flag_blanks
24c0: 69 67 6e 20 3d 20 0a 20 20 20 20 20 66 6c 61 67 ign = . flag
24d0: 5f 61 6c 74 65 72 6e 61 74 65 66 6f 72 6d 20 3d _alternateform =
24e0: 20 66 6c 61 67 5f 61 6c 74 66 6f 72 6d 32 20 3d flag_altform2 =
24f0: 20 66 6c 61 67 5f 7a 65 72 6f 70 61 64 20 3d 20 flag_zeropad =
2500: 30 3b 0a 20 20 20 20 64 6f 6e 65 20 3d 20 30 3b 0;. done = 0;
2510: 0a 20 20 20 20 64 6f 7b 0a 20 20 20 20 20 20 73 . do{. s
2520: 77 69 74 63 68 28 20 63 20 29 7b 0a 20 20 20 20 witch( c ){.
2530: 20 20 20 20 63 61 73 65 20 27 2d 27 3a 20 20 20 case '-':
2540: 66 6c 61 67 5f 6c 65 66 74 6a 75 73 74 69 66 79 flag_leftjustify
2550: 20 3d 20 31 3b 20 20 20 20 20 62 72 65 61 6b 3b = 1; break;
2560: 0a 20 20 20 20 20 20 20 20 63 61 73 65 20 27 2b . case '+
2570: 27 3a 20 20 20 66 6c 61 67 5f 70 6c 75 73 73 69 ': flag_plussi
2580: 67 6e 20 3d 20 31 3b 20 20 20 20 20 20 20 20 62 gn = 1; b
2590: 72 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 63 61 reak;. ca
25a0: 73 65 20 27 20 27 3a 20 20 20 66 6c 61 67 5f 62 se ' ': flag_b
25b0: 6c 61 6e 6b 73 69 67 6e 20 3d 20 31 3b 20 20 20 lanksign = 1;
25c0: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 break;.
25d0: 20 20 20 63 61 73 65 20 27 23 27 3a 20 20 20 66 case '#': f
25e0: 6c 61 67 5f 61 6c 74 65 72 6e 61 74 65 66 6f 72 lag_alternatefor
25f0: 6d 20 3d 20 31 3b 20 20 20 62 72 65 61 6b 3b 0a m = 1; break;.
2600: 20 20 20 20 20 20 20 20 63 61 73 65 20 27 21 27 case '!'
2610: 3a 20 20 20 66 6c 61 67 5f 61 6c 74 66 6f 72 6d : flag_altform
2620: 32 20 3d 20 31 3b 20 20 20 20 20 20 20 20 62 72 2 = 1; br
2630: 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 63 61 73 eak;. cas
2640: 65 20 27 30 27 3a 20 20 20 66 6c 61 67 5f 7a 65 e '0': flag_ze
2650: 72 6f 70 61 64 20 3d 20 31 3b 20 20 20 20 20 20 ropad = 1;
2660: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 break;.
2670: 20 20 64 65 66 61 75 6c 74 3a 20 20 20 20 64 6f default: do
2680: 6e 65 20 3d 20 31 3b 20 20 20 20 20 20 20 20 20 ne = 1;
2690: 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 break;.
26a0: 20 20 20 20 20 7d 0a 20 20 20 20 7d 77 68 69 6c }. }whil
26b0: 65 28 20 21 64 6f 6e 65 20 26 26 20 28 63 3d 28 e( !done && (c=(
26c0: 2a 2b 2b 66 6d 74 29 29 21 3d 30 20 29 3b 0a 20 *++fmt))!=0 );.
26d0: 20 20 20 2f 2a 20 47 65 74 20 74 68 65 20 66 69 /* Get the fi
26e0: 65 6c 64 20 77 69 64 74 68 20 2a 2f 0a 20 20 20 eld width */.
26f0: 20 77 69 64 74 68 20 3d 20 30 3b 0a 20 20 20 20 width = 0;.
2700: 69 66 28 20 63 3d 3d 27 2a 27 20 29 7b 0a 20 20 if( c=='*' ){.
2710: 20 20 20 20 77 69 64 74 68 20 3d 20 76 61 5f 61 width = va_a
2720: 72 67 28 61 70 2c 69 6e 74 29 3b 0a 20 20 20 20 rg(ap,int);.
2730: 20 20 69 66 28 20 77 69 64 74 68 3c 30 20 29 7b if( width<0 ){
2740: 0a 20 20 20 20 20 20 20 20 66 6c 61 67 5f 6c 65 . flag_le
2750: 66 74 6a 75 73 74 69 66 79 20 3d 20 31 3b 0a 20 ftjustify = 1;.
2760: 20 20 20 20 20 20 20 77 69 64 74 68 20 3d 20 2d width = -
2770: 77 69 64 74 68 3b 0a 20 20 20 20 20 20 7d 0a 20 width;. }.
2780: 20 20 20 20 20 63 20 3d 20 2a 2b 2b 66 6d 74 3b c = *++fmt;
2790: 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 . }else{.
27a0: 20 20 77 68 69 6c 65 28 20 63 3e 3d 27 30 27 20 while( c>='0'
27b0: 26 26 20 63 3c 3d 27 39 27 20 29 7b 0a 20 20 20 && c<='9' ){.
27c0: 20 20 20 20 20 77 69 64 74 68 20 3d 20 77 69 64 width = wid
27d0: 74 68 2a 31 30 20 2b 20 63 20 2d 20 27 30 27 3b th*10 + c - '0';
27e0: 0a 20 20 20 20 20 20 20 20 63 20 3d 20 2a 2b 2b . c = *++
27f0: 66 6d 74 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 fmt;. }.
2800: 20 7d 0a 20 20 20 20 69 66 28 20 77 69 64 74 68 }. if( width
2810: 20 3e 20 65 74 42 55 46 53 49 5a 45 2d 31 30 20 > etBUFSIZE-10
2820: 29 7b 0a 20 20 20 20 20 20 77 69 64 74 68 20 3d ){. width =
2830: 20 65 74 42 55 46 53 49 5a 45 2d 31 30 3b 0a 20 etBUFSIZE-10;.
2840: 20 20 20 7d 0a 20 20 20 20 2f 2a 20 47 65 74 20 }. /* Get
2850: 74 68 65 20 70 72 65 63 69 73 69 6f 6e 20 2a 2f the precision */
2860: 0a 20 20 20 20 69 66 28 20 63 3d 3d 27 2e 27 20 . if( c=='.'
2870: 29 7b 0a 20 20 20 20 20 20 70 72 65 63 69 73 69 ){. precisi
2880: 6f 6e 20 3d 20 30 3b 0a 20 20 20 20 20 20 63 20 on = 0;. c
2890: 3d 20 2a 2b 2b 66 6d 74 3b 0a 20 20 20 20 20 20 = *++fmt;.
28a0: 69 66 28 20 63 3d 3d 27 2a 27 20 29 7b 0a 20 20 if( c=='*' ){.
28b0: 20 20 20 20 20 20 70 72 65 63 69 73 69 6f 6e 20 precision
28c0: 3d 20 76 61 5f 61 72 67 28 61 70 2c 69 6e 74 29 = va_arg(ap,int)
28d0: 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 70 72 ;. if( pr
28e0: 65 63 69 73 69 6f 6e 3c 30 20 29 20 70 72 65 63 ecision<0 ) prec
28f0: 69 73 69 6f 6e 20 3d 20 2d 70 72 65 63 69 73 69 ision = -precisi
2900: 6f 6e 3b 0a 20 20 20 20 20 20 20 20 63 20 3d 20 on;. c =
2910: 2a 2b 2b 66 6d 74 3b 0a 20 20 20 20 20 20 7d 65 *++fmt;. }e
2920: 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 77 68 69 lse{. whi
2930: 6c 65 28 20 63 3e 3d 27 30 27 20 26 26 20 63 3c le( c>='0' && c<
2940: 3d 27 39 27 20 29 7b 0a 20 20 20 20 20 20 20 20 ='9' ){.
2950: 20 20 70 72 65 63 69 73 69 6f 6e 20 3d 20 70 72 precision = pr
2960: 65 63 69 73 69 6f 6e 2a 31 30 20 2b 20 63 20 2d ecision*10 + c -
2970: 20 27 30 27 3b 0a 20 20 20 20 20 20 20 20 20 20 '0';.
2980: 63 20 3d 20 2a 2b 2b 66 6d 74 3b 0a 20 20 20 20 c = *++fmt;.
2990: 20 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20 }. }.
29a0: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 70 }else{. p
29b0: 72 65 63 69 73 69 6f 6e 20 3d 20 2d 31 3b 0a 20 recision = -1;.
29c0: 20 20 20 7d 0a 20 20 20 20 2f 2a 20 47 65 74 20 }. /* Get
29d0: 74 68 65 20 63 6f 6e 76 65 72 73 69 6f 6e 20 74 the conversion t
29e0: 79 70 65 20 6d 6f 64 69 66 69 65 72 20 2a 2f 0a ype modifier */.
29f0: 20 20 20 20 69 66 28 20 63 3d 3d 27 6c 27 20 29 if( c=='l' )
2a00: 7b 0a 20 20 20 20 20 20 66 6c 61 67 5f 6c 6f 6e {. flag_lon
2a10: 67 20 3d 20 31 3b 0a 20 20 20 20 20 20 63 20 3d g = 1;. c =
2a20: 20 2a 2b 2b 66 6d 74 3b 0a 20 20 20 20 20 20 69 *++fmt;. i
2a30: 66 28 20 63 3d 3d 27 6c 27 20 29 7b 0a 20 20 20 f( c=='l' ){.
2a40: 20 20 20 20 20 66 6c 61 67 5f 6c 6f 6e 67 6c 6f flag_longlo
2a50: 6e 67 20 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 ng = 1;.
2a60: 63 20 3d 20 2a 2b 2b 66 6d 74 3b 0a 20 20 20 20 c = *++fmt;.
2a70: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 }else{.
2a80: 20 66 6c 61 67 5f 6c 6f 6e 67 6c 6f 6e 67 20 3d flag_longlong =
2a90: 20 30 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 0;. }.
2aa0: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 66 6c 61 }else{. fla
2ab0: 67 5f 6c 6f 6e 67 20 3d 20 66 6c 61 67 5f 6c 6f g_long = flag_lo
2ac0: 6e 67 6c 6f 6e 67 20 3d 20 30 3b 0a 20 20 20 20 nglong = 0;.
2ad0: 7d 0a 20 20 20 20 2f 2a 20 46 65 74 63 68 20 74 }. /* Fetch t
2ae0: 68 65 20 69 6e 66 6f 20 65 6e 74 72 79 20 66 6f he info entry fo
2af0: 72 20 74 68 65 20 66 69 65 6c 64 20 2a 2f 0a 20 r the field */.
2b00: 20 20 20 69 6e 66 6f 70 20 3d 20 30 3b 0a 20 20 infop = 0;.
2b10: 20 20 78 74 79 70 65 20 3d 20 65 74 45 52 52 4f xtype = etERRO
2b20: 52 3b 0a 20 20 20 20 66 6f 72 28 69 64 78 3d 30 R;. for(idx=0
2b30: 3b 20 69 64 78 3c 65 74 4e 49 4e 46 4f 3b 20 69 ; idx<etNINFO; i
2b40: 64 78 2b 2b 29 7b 0a 20 20 20 20 20 20 69 66 28 dx++){. if(
2b50: 20 63 3d 3d 66 6d 74 69 6e 66 6f 5b 69 64 78 5d c==fmtinfo[idx]
2b60: 2e 66 6d 74 74 79 70 65 20 29 7b 0a 20 20 20 20 .fmttype ){.
2b70: 20 20 20 20 69 6e 66 6f 70 20 3d 20 26 66 6d 74 infop = &fmt
2b80: 69 6e 66 6f 5b 69 64 78 5d 3b 0a 20 20 20 20 20 info[idx];.
2b90: 20 20 20 78 74 79 70 65 20 3d 20 69 6e 66 6f 70 xtype = infop
2ba0: 2d 3e 74 79 70 65 3b 0a 20 20 20 20 20 20 20 20 ->type;.
2bb0: 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 7d 0a 20 break;. }.
2bc0: 20 20 20 7d 0a 20 20 20 20 7a 45 78 74 72 61 20 }. zExtra
2bd0: 3d 20 30 3b 0a 0a 20 20 20 20 2f 2a 20 4c 69 6d = 0;.. /* Lim
2be0: 69 74 20 74 68 65 20 70 72 65 63 69 73 69 6f 6e it the precision
2bf0: 20 74 6f 20 70 72 65 76 65 6e 74 20 6f 76 65 72 to prevent over
2c00: 66 6c 6f 77 69 6e 67 20 62 75 66 5b 5d 20 64 75 flowing buf[] du
2c10: 72 69 6e 67 20 63 6f 6e 76 65 72 73 69 6f 6e 20 ring conversion
2c20: 2a 2f 0a 20 20 20 20 69 66 28 20 70 72 65 63 69 */. if( preci
2c30: 73 69 6f 6e 3e 65 74 42 55 46 53 49 5a 45 2d 34 sion>etBUFSIZE-4
2c40: 30 20 26 26 20 28 69 6e 66 6f 70 2d 3e 66 6c 61 0 && (infop->fla
2c50: 67 73 20 26 20 46 4c 41 47 5f 53 54 52 49 4e 47 gs & FLAG_STRING
2c60: 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 70 72 )==0 ){. pr
2c70: 65 63 69 73 69 6f 6e 20 3d 20 65 74 42 55 46 53 ecision = etBUFS
2c80: 49 5a 45 2d 34 30 3b 0a 20 20 20 20 7d 0a 0a 20 IZE-40;. }..
2c90: 20 20 20 2f 2a 0a 20 20 20 20 2a 2a 20 41 74 20 /*. ** At
2ca0: 74 68 69 73 20 70 6f 69 6e 74 2c 20 76 61 72 69 this point, vari
2cb0: 61 62 6c 65 73 20 61 72 65 20 69 6e 69 74 69 61 ables are initia
2cc0: 6c 69 7a 65 64 20 61 73 20 66 6f 6c 6c 6f 77 73 lized as follows
2cd0: 3a 0a 20 20 20 20 2a 2a 0a 20 20 20 20 2a 2a 20 :. **. **
2ce0: 20 20 66 6c 61 67 5f 61 6c 74 65 72 6e 61 74 65 flag_alternate
2cf0: 66 6f 72 6d 20 20 20 20 20 20 20 20 20 20 54 52 form TR
2d00: 55 45 20 69 66 20 61 20 27 23 27 20 69 73 20 70 UE if a '#' is p
2d10: 72 65 73 65 6e 74 2e 0a 20 20 20 20 2a 2a 20 20 resent.. **
2d20: 20 66 6c 61 67 5f 61 6c 74 66 6f 72 6d 32 20 20 flag_altform2
2d30: 20 20 20 20 20 20 20 20 20 20 20 20 20 54 52 55 TRU
2d40: 45 20 69 66 20 61 20 27 21 27 20 69 73 20 70 72 E if a '!' is pr
2d50: 65 73 65 6e 74 2e 0a 20 20 20 20 2a 2a 20 20 20 esent.. **
2d60: 66 6c 61 67 5f 70 6c 75 73 73 69 67 6e 20 20 20 flag_plussign
2d70: 20 20 20 20 20 20 20 20 20 20 20 20 54 52 55 45 TRUE
2d80: 20 69 66 20 61 20 27 2b 27 20 69 73 20 70 72 65 if a '+' is pre
2d90: 73 65 6e 74 2e 0a 20 20 20 20 2a 2a 20 20 20 66 sent.. ** f
2da0: 6c 61 67 5f 6c 65 66 74 6a 75 73 74 69 66 79 20 lag_leftjustify
2db0: 20 20 20 20 20 20 20 20 20 20 20 54 52 55 45 20 TRUE
2dc0: 69 66 20 61 20 27 2d 27 20 69 73 20 70 72 65 73 if a '-' is pres
2dd0: 65 6e 74 20 6f 72 20 69 66 20 74 68 65 0a 20 20 ent or if the.
2de0: 20 20 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 **
2df0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2e00: 20 20 20 66 69 65 6c 64 20 77 69 64 74 68 20 77 field width w
2e10: 61 73 20 6e 65 67 61 74 69 76 65 2e 0a 20 20 20 as negative..
2e20: 20 2a 2a 20 20 20 66 6c 61 67 5f 7a 65 72 6f 70 ** flag_zerop
2e30: 61 64 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ad
2e40: 20 20 54 52 55 45 20 69 66 20 74 68 65 20 77 69 TRUE if the wi
2e50: 64 74 68 20 62 65 67 61 6e 20 77 69 74 68 20 30 dth began with 0
2e60: 2e 0a 20 20 20 20 2a 2a 20 20 20 66 6c 61 67 5f .. ** flag_
2e70: 6c 6f 6e 67 20 20 20 20 20 20 20 20 20 20 20 20 long
2e80: 20 20 20 20 20 20 20 54 52 55 45 20 69 66 20 74 TRUE if t
2e90: 68 65 20 6c 65 74 74 65 72 20 27 6c 27 20 28 65 he letter 'l' (e
2ea0: 6c 6c 29 20 70 72 65 66 69 78 65 64 0a 20 20 20 ll) prefixed.
2eb0: 20 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 **
2ec0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2ed0: 20 20 74 68 65 20 63 6f 6e 76 65 72 73 69 6f 6e the conversion
2ee0: 20 63 68 61 72 61 63 74 65 72 2e 0a 20 20 20 20 character..
2ef0: 2a 2a 20 20 20 66 6c 61 67 5f 6c 6f 6e 67 6c 6f ** flag_longlo
2f00: 6e 67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ng
2f10: 20 54 52 55 45 20 69 66 20 74 68 65 20 6c 65 74 TRUE if the let
2f20: 74 65 72 20 27 6c 6c 27 20 28 65 6c 6c 20 65 6c ter 'll' (ell el
2f30: 6c 29 20 70 72 65 66 69 78 65 64 0a 20 20 20 20 l) prefixed.
2f40: 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 **
2f50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2f60: 20 74 68 65 20 63 6f 6e 76 65 72 73 69 6f 6e 20 the conversion
2f70: 63 68 61 72 61 63 74 65 72 2e 0a 20 20 20 20 2a character.. *
2f80: 2a 20 20 20 66 6c 61 67 5f 62 6c 61 6e 6b 73 69 * flag_blanksi
2f90: 67 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 gn
2fa0: 54 52 55 45 20 69 66 20 61 20 27 20 27 20 69 73 TRUE if a ' ' is
2fb0: 20 70 72 65 73 65 6e 74 2e 0a 20 20 20 20 2a 2a present.. **
2fc0: 20 20 20 77 69 64 74 68 20 20 20 20 20 20 20 20 width
2fd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 T
2fe0: 68 65 20 73 70 65 63 69 66 69 65 64 20 66 69 65 he specified fie
2ff0: 6c 64 20 77 69 64 74 68 2e 20 20 54 68 69 73 20 ld width. This
3000: 69 73 0a 20 20 20 20 2a 2a 20 20 20 20 20 20 20 is. **
3010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3020: 20 20 20 20 20 20 20 20 61 6c 77 61 79 73 20 6e always n
3030: 6f 6e 2d 6e 65 67 61 74 69 76 65 2e 20 20 5a 65 on-negative. Ze
3040: 72 6f 20 69 73 20 74 68 65 20 64 65 66 61 75 6c ro is the defaul
3050: 74 2e 0a 20 20 20 20 2a 2a 20 20 20 70 72 65 63 t.. ** prec
3060: 69 73 69 6f 6e 20 20 20 20 20 20 20 20 20 20 20 ision
3070: 20 20 20 20 20 20 20 20 54 68 65 20 73 70 65 63 The spec
3080: 69 66 69 65 64 20 70 72 65 63 69 73 69 6f 6e 2e ified precision.
3090: 20 20 54 68 65 20 64 65 66 61 75 6c 74 0a 20 20 The default.
30a0: 20 20 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 **
30b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
30c0: 20 20 20 69 73 20 2d 31 2e 0a 20 20 20 20 2a 2a is -1.. **
30d0: 20 20 20 78 74 79 70 65 20 20 20 20 20 20 20 20 xtype
30e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 T
30f0: 68 65 20 63 6c 61 73 73 20 6f 66 20 74 68 65 20 he class of the
3100: 63 6f 6e 76 65 72 73 69 6f 6e 2e 0a 20 20 20 20 conversion..
3110: 2a 2a 20 20 20 69 6e 66 6f 70 20 20 20 20 20 20 ** infop
3120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3130: 20 50 6f 69 6e 74 65 72 20 74 6f 20 74 68 65 20 Pointer to the
3140: 61 70 70 72 6f 70 72 69 61 74 65 20 69 6e 66 6f appropriate info
3150: 20 73 74 72 75 63 74 2e 0a 20 20 20 20 2a 2f 0a struct.. */.
3160: 20 20 20 20 73 77 69 74 63 68 28 20 78 74 79 70 switch( xtyp
3170: 65 20 29 7b 0a 20 20 20 20 20 20 63 61 73 65 20 e ){. case
3180: 65 74 50 4f 49 4e 54 45 52 3a 0a 20 20 20 20 20 etPOINTER:.
3190: 20 20 20 66 6c 61 67 5f 6c 6f 6e 67 6c 6f 6e 67 flag_longlong
31a0: 20 3d 20 73 69 7a 65 6f 66 28 63 68 61 72 2a 29 = sizeof(char*)
31b0: 3d 3d 73 69 7a 65 6f 66 28 69 36 34 29 3b 0a 20 ==sizeof(i64);.
31c0: 20 20 20 20 20 20 20 66 6c 61 67 5f 6c 6f 6e 67 flag_long
31d0: 20 3d 20 73 69 7a 65 6f 66 28 63 68 61 72 2a 29 = sizeof(char*)
31e0: 3d 3d 73 69 7a 65 6f 66 28 6c 6f 6e 67 20 69 6e ==sizeof(long in
31f0: 74 29 3b 0a 20 20 20 20 20 20 20 20 2f 2a 20 46 t);. /* F
3200: 61 6c 6c 20 74 68 72 6f 75 67 68 20 69 6e 74 6f all through into
3210: 20 74 68 65 20 6e 65 78 74 20 63 61 73 65 20 2a the next case *
3220: 2f 0a 20 20 20 20 20 20 63 61 73 65 20 65 74 52 /. case etR
3230: 41 44 49 58 3a 0a 20 20 20 20 20 20 20 20 69 66 ADIX:. if
3240: 28 20 69 6e 66 6f 70 2d 3e 66 6c 61 67 73 20 26 ( infop->flags &
3250: 20 46 4c 41 47 5f 53 49 47 4e 45 44 20 29 7b 0a FLAG_SIGNED ){.
3260: 20 20 20 20 20 20 20 20 20 20 69 36 34 20 76 3b i64 v;
3270: 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20 66 . if( f
3280: 6c 61 67 5f 6c 6f 6e 67 6c 6f 6e 67 20 29 20 20 lag_longlong )
3290: 20 76 20 3d 20 76 61 5f 61 72 67 28 61 70 2c 69 v = va_arg(ap,i
32a0: 36 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 65 64);. e
32b0: 6c 73 65 20 69 66 28 20 66 6c 61 67 5f 6c 6f 6e lse if( flag_lon
32c0: 67 20 29 20 20 76 20 3d 20 76 61 5f 61 72 67 28 g ) v = va_arg(
32d0: 61 70 2c 6c 6f 6e 67 20 69 6e 74 29 3b 0a 20 20 ap,long int);.
32e0: 20 20 20 20 20 20 20 20 65 6c 73 65 20 20 20 20 else
32f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 20 v
3300: 3d 20 76 61 5f 61 72 67 28 61 70 2c 69 6e 74 29 = va_arg(ap,int)
3310: 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20 ;. if(
3320: 76 3c 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 v<0 ){.
3330: 20 20 20 6c 6f 6e 67 76 61 6c 75 65 20 3d 20 2d longvalue = -
3340: 76 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 v;. p
3350: 72 65 66 69 78 20 3d 20 27 2d 27 3b 0a 20 20 20 refix = '-';.
3360: 20 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 }else{.
3370: 20 20 20 20 20 20 20 20 20 20 6c 6f 6e 67 76 61 longva
3380: 6c 75 65 20 3d 20 76 3b 0a 20 20 20 20 20 20 20 lue = v;.
3390: 20 20 20 20 20 69 66 28 20 66 6c 61 67 5f 70 6c if( flag_pl
33a0: 75 73 73 69 67 6e 20 29 20 20 20 20 20 20 20 20 ussign )
33b0: 70 72 65 66 69 78 20 3d 20 27 2b 27 3b 0a 20 20 prefix = '+';.
33c0: 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 69 else i
33d0: 66 28 20 66 6c 61 67 5f 62 6c 61 6e 6b 73 69 67 f( flag_blanksig
33e0: 6e 20 29 20 20 70 72 65 66 69 78 20 3d 20 27 20 n ) prefix = '
33f0: 27 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 ';. e
3400: 6c 73 65 20 20 20 20 20 20 20 20 20 20 20 20 20 lse
3410: 20 20 20 20 20 20 20 20 20 20 70 72 65 66 69 78 prefix
3420: 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 = 0;.
3430: 7d 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 65 7b }. }else{
3440: 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20 66 . if( f
3450: 6c 61 67 5f 6c 6f 6e 67 6c 6f 6e 67 20 29 20 20 lag_longlong )
3460: 20 6c 6f 6e 67 76 61 6c 75 65 20 3d 20 76 61 5f longvalue = va_
3470: 61 72 67 28 61 70 2c 75 36 34 29 3b 0a 20 20 20 arg(ap,u64);.
3480: 20 20 20 20 20 20 20 65 6c 73 65 20 69 66 28 20 else if(
3490: 66 6c 61 67 5f 6c 6f 6e 67 20 29 20 20 6c 6f 6e flag_long ) lon
34a0: 67 76 61 6c 75 65 20 3d 20 76 61 5f 61 72 67 28 gvalue = va_arg(
34b0: 61 70 2c 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 ap,unsigned long
34c0: 20 69 6e 74 29 3b 0a 20 20 20 20 20 20 20 20 20 int);.
34d0: 20 65 6c 73 65 20 20 20 20 20 20 20 20 20 20 20 else
34e0: 20 20 20 20 20 20 20 6c 6f 6e 67 76 61 6c 75 65 longvalue
34f0: 20 3d 20 76 61 5f 61 72 67 28 61 70 2c 75 6e 73 = va_arg(ap,uns
3500: 69 67 6e 65 64 20 69 6e 74 29 3b 0a 20 20 20 20 igned int);.
3510: 20 20 20 20 20 20 70 72 65 66 69 78 20 3d 20 30 prefix = 0
3520: 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 ;. }.
3530: 20 20 20 20 69 66 28 20 6c 6f 6e 67 76 61 6c 75 if( longvalu
3540: 65 3d 3d 30 20 29 20 66 6c 61 67 5f 61 6c 74 65 e==0 ) flag_alte
3550: 72 6e 61 74 65 66 6f 72 6d 20 3d 20 30 3b 0a 20 rnateform = 0;.
3560: 20 20 20 20 20 20 20 69 66 28 20 66 6c 61 67 5f if( flag_
3570: 7a 65 72 6f 70 61 64 20 26 26 20 70 72 65 63 69 zeropad && preci
3580: 73 69 6f 6e 3c 77 69 64 74 68 2d 28 70 72 65 66 sion<width-(pref
3590: 69 78 21 3d 30 29 20 29 7b 0a 20 20 20 20 20 20 ix!=0) ){.
35a0: 20 20 20 20 70 72 65 63 69 73 69 6f 6e 20 3d 20 precision =
35b0: 77 69 64 74 68 2d 28 70 72 65 66 69 78 21 3d 30 width-(prefix!=0
35c0: 29 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 );. }.
35d0: 20 20 20 20 20 62 75 66 70 74 20 3d 20 26 62 75 bufpt = &bu
35e0: 66 5b 65 74 42 55 46 53 49 5a 45 2d 31 5d 3b 0a f[etBUFSIZE-1];.
35f0: 20 20 20 20 20 20 20 20 7b 0a 20 20 20 20 20 20 {.
3600: 20 20 20 20 72 65 67 69 73 74 65 72 20 63 6f 6e register con
3610: 73 74 20 63 68 61 72 20 2a 63 73 65 74 3b 20 20 st char *cset;
3620: 20 20 20 20 2f 2a 20 55 73 65 20 72 65 67 69 73 /* Use regis
3630: 74 65 72 73 20 66 6f 72 20 73 70 65 65 64 20 2a ters for speed *
3640: 2f 0a 20 20 20 20 20 20 20 20 20 20 72 65 67 69 /. regi
3650: 73 74 65 72 20 69 6e 74 20 62 61 73 65 3b 0a 20 ster int base;.
3660: 20 20 20 20 20 20 20 20 20 63 73 65 74 20 3d 20 cset =
3670: 26 61 44 69 67 69 74 73 5b 69 6e 66 6f 70 2d 3e &aDigits[infop->
3680: 63 68 61 72 73 65 74 5d 3b 0a 20 20 20 20 20 20 charset];.
3690: 20 20 20 20 62 61 73 65 20 3d 20 69 6e 66 6f 70 base = infop
36a0: 2d 3e 62 61 73 65 3b 0a 20 20 20 20 20 20 20 20 ->base;.
36b0: 20 20 64 6f 7b 20 20 20 20 20 20 20 20 20 20 20 do{
36c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
36d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
36e0: 2f 2a 20 43 6f 6e 76 65 72 74 20 74 6f 20 61 73 /* Convert to as
36f0: 63 69 69 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 cii */.
3700: 20 20 20 2a 28 2d 2d 62 75 66 70 74 29 20 3d 20 *(--bufpt) =
3710: 63 73 65 74 5b 6c 6f 6e 67 76 61 6c 75 65 25 62 cset[longvalue%b
3720: 61 73 65 5d 3b 0a 20 20 20 20 20 20 20 20 20 20 ase];.
3730: 20 20 6c 6f 6e 67 76 61 6c 75 65 20 3d 20 6c 6f longvalue = lo
3740: 6e 67 76 61 6c 75 65 2f 62 61 73 65 3b 0a 20 20 ngvalue/base;.
3750: 20 20 20 20 20 20 20 20 7d 77 68 69 6c 65 28 20 }while(
3760: 6c 6f 6e 67 76 61 6c 75 65 3e 30 20 29 3b 0a 20 longvalue>0 );.
3770: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 }.
3780: 20 6c 65 6e 67 74 68 20 3d 20 26 62 75 66 5b 65 length = &buf[e
3790: 74 42 55 46 53 49 5a 45 2d 31 5d 2d 62 75 66 70 tBUFSIZE-1]-bufp
37a0: 74 3b 0a 20 20 20 20 20 20 20 20 66 6f 72 28 69 t;. for(i
37b0: 64 78 3d 70 72 65 63 69 73 69 6f 6e 2d 6c 65 6e dx=precision-len
37c0: 67 74 68 3b 20 69 64 78 3e 30 3b 20 69 64 78 2d gth; idx>0; idx-
37d0: 2d 29 7b 0a 20 20 20 20 20 20 20 20 20 20 2a 28 -){. *(
37e0: 2d 2d 62 75 66 70 74 29 20 3d 20 27 30 27 3b 20 --bufpt) = '0';
37f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3800: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 5a /* Z
3810: 65 72 6f 20 70 61 64 20 2a 2f 0a 20 20 20 20 20 ero pad */.
3820: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 69 66 28 }. if(
3830: 20 70 72 65 66 69 78 20 29 20 2a 28 2d 2d 62 75 prefix ) *(--bu
3840: 66 70 74 29 20 3d 20 70 72 65 66 69 78 3b 20 20 fpt) = prefix;
3850: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 /*
3860: 41 64 64 20 73 69 67 6e 20 2a 2f 0a 20 20 20 20 Add sign */.
3870: 20 20 20 20 69 66 28 20 66 6c 61 67 5f 61 6c 74 if( flag_alt
3880: 65 72 6e 61 74 65 66 6f 72 6d 20 26 26 20 69 6e ernateform && in
3890: 66 6f 70 2d 3e 70 72 65 66 69 78 20 29 7b 20 20 fop->prefix ){
38a0: 20 20 20 20 2f 2a 20 41 64 64 20 22 30 22 20 6f /* Add "0" o
38b0: 72 20 22 30 78 22 20 2a 2f 0a 20 20 20 20 20 20 r "0x" */.
38c0: 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a const char *
38d0: 70 72 65 3b 0a 20 20 20 20 20 20 20 20 20 20 63 pre;. c
38e0: 68 61 72 20 78 3b 0a 20 20 20 20 20 20 20 20 20 har x;.
38f0: 20 70 72 65 20 3d 20 26 61 50 72 65 66 69 78 5b pre = &aPrefix[
3900: 69 6e 66 6f 70 2d 3e 70 72 65 66 69 78 5d 3b 0a infop->prefix];.
3910: 20 20 20 20 20 20 20 20 20 20 69 66 28 20 2a 62 if( *b
3920: 75 66 70 74 21 3d 70 72 65 5b 30 5d 20 29 7b 0a ufpt!=pre[0] ){.
3930: 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 28 for(
3940: 3b 20 28 78 3d 28 2a 70 72 65 29 29 21 3d 30 3b ; (x=(*pre))!=0;
3950: 20 70 72 65 2b 2b 29 20 2a 28 2d 2d 62 75 66 70 pre++) *(--bufp
3960: 74 29 20 3d 20 78 3b 0a 20 20 20 20 20 20 20 20 t) = x;.
3970: 20 20 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 }. }.
3980: 20 20 20 20 20 20 6c 65 6e 67 74 68 20 3d 20 26 length = &
3990: 62 75 66 5b 65 74 42 55 46 53 49 5a 45 2d 31 5d buf[etBUFSIZE-1]
39a0: 2d 62 75 66 70 74 3b 0a 20 20 20 20 20 20 20 20 -bufpt;.
39b0: 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 63 61 73 break;. cas
39c0: 65 20 65 74 46 4c 4f 41 54 3a 0a 20 20 20 20 20 e etFLOAT:.
39d0: 20 63 61 73 65 20 65 74 45 58 50 3a 0a 20 20 20 case etEXP:.
39e0: 20 20 20 63 61 73 65 20 65 74 47 45 4e 45 52 49 case etGENERI
39f0: 43 3a 0a 20 20 20 20 20 20 20 20 72 65 61 6c 76 C:. realv
3a00: 61 6c 75 65 20 3d 20 76 61 5f 61 72 67 28 61 70 alue = va_arg(ap
3a10: 2c 64 6f 75 62 6c 65 29 3b 0a 20 20 20 20 20 20 ,double);.
3a20: 20 20 69 66 28 20 70 72 65 63 69 73 69 6f 6e 3c if( precision<
3a30: 30 20 29 20 70 72 65 63 69 73 69 6f 6e 20 3d 20 0 ) precision =
3a40: 36 3b 20 20 20 20 20 20 20 20 20 2f 2a 20 53 65 6; /* Se
3a50: 74 20 64 65 66 61 75 6c 74 20 70 72 65 63 69 73 t default precis
3a60: 69 6f 6e 20 2a 2f 0a 20 20 20 20 20 20 20 20 69 ion */. i
3a70: 66 28 20 70 72 65 63 69 73 69 6f 6e 3e 65 74 42 f( precision>etB
3a80: 55 46 53 49 5a 45 2f 32 2d 31 30 20 29 20 70 72 UFSIZE/2-10 ) pr
3a90: 65 63 69 73 69 6f 6e 20 3d 20 65 74 42 55 46 53 ecision = etBUFS
3aa0: 49 5a 45 2f 32 2d 31 30 3b 0a 20 20 20 20 20 20 IZE/2-10;.
3ab0: 20 20 69 66 28 20 72 65 61 6c 76 61 6c 75 65 3c if( realvalue<
3ac0: 30 2e 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 0.0 ){.
3ad0: 20 72 65 61 6c 76 61 6c 75 65 20 3d 20 2d 72 65 realvalue = -re
3ae0: 61 6c 76 61 6c 75 65 3b 0a 20 20 20 20 20 20 20 alvalue;.
3af0: 20 20 20 70 72 65 66 69 78 20 3d 20 27 2d 27 3b prefix = '-';
3b00: 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a . }else{.
3b10: 20 20 20 20 20 20 20 20 20 20 69 66 28 20 66 6c if( fl
3b20: 61 67 5f 70 6c 75 73 73 69 67 6e 20 29 20 20 20 ag_plussign )
3b30: 20 20 20 20 20 20 20 70 72 65 66 69 78 20 3d 20 prefix =
3b40: 27 2b 27 3b 0a 20 20 20 20 20 20 20 20 20 20 65 '+';. e
3b50: 6c 73 65 20 69 66 28 20 66 6c 61 67 5f 62 6c 61 lse if( flag_bla
3b60: 6e 6b 73 69 67 6e 20 29 20 20 20 20 70 72 65 66 nksign ) pref
3b70: 69 78 20 3d 20 27 20 27 3b 0a 20 20 20 20 20 20 ix = ' ';.
3b80: 20 20 20 20 65 6c 73 65 20 20 20 20 20 20 20 20 else
3b90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3ba0: 20 70 72 65 66 69 78 20 3d 20 30 3b 0a 20 20 20 prefix = 0;.
3bb0: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 69 }. i
3bc0: 66 28 20 78 74 79 70 65 3d 3d 65 74 47 45 4e 45 f( xtype==etGENE
3bd0: 52 49 43 20 26 26 20 70 72 65 63 69 73 69 6f 6e RIC && precision
3be0: 3e 30 20 29 20 70 72 65 63 69 73 69 6f 6e 2d 2d >0 ) precision--
3bf0: 3b 0a 23 69 66 20 30 0a 20 20 20 20 20 20 20 20 ;.#if 0.
3c00: 2f 2a 20 52 6f 75 6e 64 69 6e 67 20 77 6f 72 6b /* Rounding work
3c10: 73 20 6c 69 6b 65 20 42 53 44 20 77 68 65 6e 20 s like BSD when
3c20: 74 68 65 20 63 6f 6e 73 74 61 6e 74 20 30 2e 34 the constant 0.4
3c30: 39 39 39 20 69 73 20 75 73 65 64 2e 20 20 57 69 999 is used. Wi
3c40: 65 72 64 21 20 2a 2f 0a 20 20 20 20 20 20 20 20 erd! */.
3c50: 66 6f 72 28 69 64 78 3d 70 72 65 63 69 73 69 6f for(idx=precisio
3c60: 6e 2c 20 72 6f 75 6e 64 65 72 3d 30 2e 34 39 39 n, rounder=0.499
3c70: 39 3b 20 69 64 78 3e 30 3b 20 69 64 78 2d 2d 2c 9; idx>0; idx--,
3c80: 20 72 6f 75 6e 64 65 72 2a 3d 30 2e 31 29 3b 0a rounder*=0.1);.
3c90: 23 65 6c 73 65 0a 20 20 20 20 20 20 20 20 2f 2a #else. /*
3ca0: 20 49 74 20 6d 61 6b 65 73 20 6d 6f 72 65 20 73 It makes more s
3cb0: 65 6e 73 65 20 74 6f 20 75 73 65 20 30 2e 35 20 ense to use 0.5
3cc0: 2a 2f 0a 20 20 20 20 20 20 20 20 66 6f 72 28 69 */. for(i
3cd0: 64 78 3d 70 72 65 63 69 73 69 6f 6e 2c 20 72 6f dx=precision, ro
3ce0: 75 6e 64 65 72 3d 30 2e 35 3b 20 69 64 78 3e 30 under=0.5; idx>0
3cf0: 3b 20 69 64 78 2d 2d 2c 20 72 6f 75 6e 64 65 72 ; idx--, rounder
3d00: 2a 3d 30 2e 31 29 3b 0a 23 65 6e 64 69 66 0a 20 *=0.1);.#endif.
3d10: 20 20 20 20 20 20 20 69 66 28 20 78 74 79 70 65 if( xtype
3d20: 3d 3d 65 74 46 4c 4f 41 54 20 29 20 72 65 61 6c ==etFLOAT ) real
3d30: 76 61 6c 75 65 20 2b 3d 20 72 6f 75 6e 64 65 72 value += rounder
3d40: 3b 0a 20 20 20 20 20 20 20 20 2f 2a 20 4e 6f 72 ;. /* Nor
3d50: 6d 61 6c 69 7a 65 20 72 65 61 6c 76 61 6c 75 65 malize realvalue
3d60: 20 74 6f 20 77 69 74 68 69 6e 20 31 30 2e 30 20 to within 10.0
3d70: 3e 20 72 65 61 6c 76 61 6c 75 65 20 3e 3d 20 31 > realvalue >= 1
3d80: 2e 30 20 2a 2f 0a 20 20 20 20 20 20 20 20 65 78 .0 */. ex
3d90: 70 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 69 p = 0;. i
3da0: 66 28 20 72 65 61 6c 76 61 6c 75 65 3e 30 2e 30 f( realvalue>0.0
3db0: 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 77 68 ){. wh
3dc0: 69 6c 65 28 20 72 65 61 6c 76 61 6c 75 65 3e 3d ile( realvalue>=
3dd0: 31 65 33 32 20 26 26 20 65 78 70 3c 3d 33 35 30 1e32 && exp<=350
3de0: 20 29 7b 20 72 65 61 6c 76 61 6c 75 65 20 2a 3d ){ realvalue *=
3df0: 20 31 65 2d 33 32 3b 20 65 78 70 2b 3d 33 32 3b 1e-32; exp+=32;
3e00: 20 7d 0a 20 20 20 20 20 20 20 20 20 20 77 68 69 }. whi
3e10: 6c 65 28 20 72 65 61 6c 76 61 6c 75 65 3e 3d 31 le( realvalue>=1
3e20: 65 38 20 26 26 20 65 78 70 3c 3d 33 35 30 20 29 e8 && exp<=350 )
3e30: 7b 20 72 65 61 6c 76 61 6c 75 65 20 2a 3d 20 31 { realvalue *= 1
3e40: 65 2d 38 3b 20 65 78 70 2b 3d 38 3b 20 7d 0a 20 e-8; exp+=8; }.
3e50: 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 28 20 while(
3e60: 72 65 61 6c 76 61 6c 75 65 3e 3d 31 30 2e 30 20 realvalue>=10.0
3e70: 26 26 20 65 78 70 3c 3d 33 35 30 20 29 7b 20 72 && exp<=350 ){ r
3e80: 65 61 6c 76 61 6c 75 65 20 2a 3d 20 30 2e 31 3b ealvalue *= 0.1;
3e90: 20 65 78 70 2b 2b 3b 20 7d 0a 20 20 20 20 20 20 exp++; }.
3ea0: 20 20 20 20 77 68 69 6c 65 28 20 72 65 61 6c 76 while( realv
3eb0: 61 6c 75 65 3c 31 65 2d 38 20 26 26 20 65 78 70 alue<1e-8 && exp
3ec0: 3e 3d 2d 33 35 30 20 29 7b 20 72 65 61 6c 76 61 >=-350 ){ realva
3ed0: 6c 75 65 20 2a 3d 20 31 65 38 3b 20 65 78 70 2d lue *= 1e8; exp-
3ee0: 3d 38 3b 20 7d 0a 20 20 20 20 20 20 20 20 20 20 =8; }.
3ef0: 77 68 69 6c 65 28 20 72 65 61 6c 76 61 6c 75 65 while( realvalue
3f00: 3c 31 2e 30 20 26 26 20 65 78 70 3e 3d 2d 33 35 <1.0 && exp>=-35
3f10: 30 20 29 7b 20 72 65 61 6c 76 61 6c 75 65 20 2a 0 ){ realvalue *
3f20: 3d 20 31 30 2e 30 3b 20 65 78 70 2d 2d 3b 20 7d = 10.0; exp--; }
3f30: 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20 65 . if( e
3f40: 78 70 3e 33 35 30 20 7c 7c 20 65 78 70 3c 2d 33 xp>350 || exp<-3
3f50: 35 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 50 ){.
3f60: 20 20 62 75 66 70 74 20 3d 20 22 4e 61 4e 22 3b bufpt = "NaN";
3f70: 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 65 6e . len
3f80: 67 74 68 20 3d 20 33 3b 0a 20 20 20 20 20 20 20 gth = 3;.
3f90: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 break;.
3fa0: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 }.
3fb0: 7d 0a 20 20 20 20 20 20 20 20 62 75 66 70 74 20 }. bufpt
3fc0: 3d 20 62 75 66 3b 0a 20 20 20 20 20 20 20 20 2f = buf;. /
3fd0: 2a 0a 20 20 20 20 20 20 20 20 2a 2a 20 49 66 20 *. ** If
3fe0: 74 68 65 20 66 69 65 6c 64 20 74 79 70 65 20 69 the field type i
3ff0: 73 20 65 74 47 45 4e 45 52 49 43 2c 20 74 68 65 s etGENERIC, the
4000: 6e 20 63 6f 6e 76 65 72 74 20 74 6f 20 65 69 74 n convert to eit
4010: 68 65 72 20 65 74 45 58 50 0a 20 20 20 20 20 20 her etEXP.
4020: 20 20 2a 2a 20 6f 72 20 65 74 46 4c 4f 41 54 2c ** or etFLOAT,
4030: 20 61 73 20 61 70 70 72 6f 70 72 69 61 74 65 2e as appropriate.
4040: 0a 20 20 20 20 20 20 20 20 2a 2f 0a 20 20 20 20 . */.
4050: 20 20 20 20 66 6c 61 67 5f 65 78 70 20 3d 20 78 flag_exp = x
4060: 74 79 70 65 3d 3d 65 74 45 58 50 3b 0a 20 20 20 type==etEXP;.
4070: 20 20 20 20 20 69 66 28 20 78 74 79 70 65 21 3d if( xtype!=
4080: 65 74 46 4c 4f 41 54 20 29 7b 0a 20 20 20 20 20 etFLOAT ){.
4090: 20 20 20 20 20 72 65 61 6c 76 61 6c 75 65 20 2b realvalue +
40a0: 3d 20 72 6f 75 6e 64 65 72 3b 0a 20 20 20 20 20 = rounder;.
40b0: 20 20 20 20 20 69 66 28 20 72 65 61 6c 76 61 6c if( realval
40c0: 75 65 3e 3d 31 30 2e 30 20 29 7b 20 72 65 61 6c ue>=10.0 ){ real
40d0: 76 61 6c 75 65 20 2a 3d 20 30 2e 31 3b 20 65 78 value *= 0.1; ex
40e0: 70 2b 2b 3b 20 7d 0a 20 20 20 20 20 20 20 20 7d p++; }. }
40f0: 0a 20 20 20 20 20 20 20 20 69 66 28 20 78 74 79 . if( xty
4100: 70 65 3d 3d 65 74 47 45 4e 45 52 49 43 20 29 7b pe==etGENERIC ){
4110: 0a 20 20 20 20 20 20 20 20 20 20 66 6c 61 67 5f . flag_
4120: 72 74 7a 20 3d 20 21 66 6c 61 67 5f 61 6c 74 65 rtz = !flag_alte
4130: 72 6e 61 74 65 66 6f 72 6d 3b 0a 20 20 20 20 20 rnateform;.
4140: 20 20 20 20 20 69 66 28 20 65 78 70 3c 2d 34 20 if( exp<-4
4150: 7c 7c 20 65 78 70 3e 70 72 65 63 69 73 69 6f 6e || exp>precision
4160: 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ){.
4170: 78 74 79 70 65 20 3d 20 65 74 45 58 50 3b 0a 20 xtype = etEXP;.
4180: 20 20 20 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a }else{.
4190: 20 20 20 20 20 20 20 20 20 20 20 20 70 72 65 63 prec
41a0: 69 73 69 6f 6e 20 3d 20 70 72 65 63 69 73 69 6f ision = precisio
41b0: 6e 20 2d 20 65 78 70 3b 0a 20 20 20 20 20 20 20 n - exp;.
41c0: 20 20 20 20 20 78 74 79 70 65 20 3d 20 65 74 46 xtype = etF
41d0: 4c 4f 41 54 3b 0a 20 20 20 20 20 20 20 20 20 20 LOAT;.
41e0: 7d 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 65 7b }. }else{
41f0: 0a 20 20 20 20 20 20 20 20 20 20 66 6c 61 67 5f . flag_
4200: 72 74 7a 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 rtz = 0;.
4210: 20 7d 0a 20 20 20 20 20 20 20 20 69 66 28 20 78 }. if( x
4220: 74 79 70 65 3d 3d 65 74 45 58 50 20 29 7b 0a 20 type==etEXP ){.
4230: 20 20 20 20 20 20 20 20 20 65 32 20 3d 20 30 3b e2 = 0;
4240: 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a . }else{.
4250: 20 20 20 20 20 20 20 20 20 20 65 32 20 3d 20 65 e2 = e
4260: 78 70 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 xp;. }.
4270: 20 20 20 20 20 20 6e 73 64 20 3d 20 30 3b 0a 20 nsd = 0;.
4280: 20 20 20 20 20 20 20 66 6c 61 67 5f 64 70 20 3d flag_dp =
4290: 20 28 70 72 65 63 69 73 69 6f 6e 3e 30 29 20 7c (precision>0) |
42a0: 20 66 6c 61 67 5f 61 6c 74 65 72 6e 61 74 65 66 flag_alternatef
42b0: 6f 72 6d 20 7c 20 66 6c 61 67 5f 61 6c 74 66 6f orm | flag_altfo
42c0: 72 6d 32 3b 0a 20 20 20 20 20 20 20 20 2f 2a 20 rm2;. /*
42d0: 54 68 65 20 73 69 67 6e 20 69 6e 20 66 72 6f 6e The sign in fron
42e0: 74 20 6f 66 20 74 68 65 20 6e 75 6d 62 65 72 20 t of the number
42f0: 2a 2f 0a 20 20 20 20 20 20 20 20 69 66 28 20 70 */. if( p
4300: 72 65 66 69 78 20 29 7b 0a 20 20 20 20 20 20 20 refix ){.
4310: 20 20 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 *(bufpt++) =
4320: 70 72 65 66 69 78 3b 0a 20 20 20 20 20 20 20 20 prefix;.
4330: 7d 0a 20 20 20 20 20 20 20 20 2f 2a 20 44 69 67 }. /* Dig
4340: 69 74 73 20 70 72 69 6f 72 20 74 6f 20 74 68 65 its prior to the
4350: 20 64 65 63 69 6d 61 6c 20 70 6f 69 6e 74 20 2a decimal point *
4360: 2f 0a 20 20 20 20 20 20 20 20 69 66 28 20 65 32 /. if( e2
4370: 3c 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 <0 ){.
4380: 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 27 30 27 *(bufpt++) = '0'
4390: 3b 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 65 7b ;. }else{
43a0: 0a 20 20 20 20 20 20 20 20 20 20 66 6f 72 28 3b . for(;
43b0: 20 65 32 3e 3d 30 3b 20 65 32 2d 2d 29 7b 0a 20 e2>=0; e2--){.
43c0: 20 20 20 20 20 20 20 20 20 20 20 2a 28 62 75 66 *(buf
43d0: 70 74 2b 2b 29 20 3d 20 65 74 5f 67 65 74 64 69 pt++) = et_getdi
43e0: 67 69 74 28 26 72 65 61 6c 76 61 6c 75 65 2c 26 git(&realvalue,&
43f0: 6e 73 64 29 3b 0a 20 20 20 20 20 20 20 20 20 20 nsd);.
4400: 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 }. }.
4410: 20 20 20 20 2f 2a 20 54 68 65 20 64 65 63 69 6d /* The decim
4420: 61 6c 20 70 6f 69 6e 74 20 2a 2f 0a 20 20 20 20 al point */.
4430: 20 20 20 20 69 66 28 20 66 6c 61 67 5f 64 70 20 if( flag_dp
4440: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 2a 28 62 ){. *(b
4450: 75 66 70 74 2b 2b 29 20 3d 20 27 2e 27 3b 0a 20 ufpt++) = '.';.
4460: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 }.
4470: 20 2f 2a 20 22 30 22 20 64 69 67 69 74 73 20 61 /* "0" digits a
4480: 66 74 65 72 20 74 68 65 20 64 65 63 69 6d 61 6c fter the decimal
4490: 20 70 6f 69 6e 74 20 62 75 74 20 62 65 66 6f 72 point but befor
44a0: 65 20 74 68 65 20 66 69 72 73 74 0a 20 20 20 20 e the first.
44b0: 20 20 20 20 2a 2a 20 73 69 67 6e 69 66 69 63 61 ** significa
44c0: 6e 74 20 64 69 67 69 74 20 6f 66 20 74 68 65 20 nt digit of the
44d0: 6e 75 6d 62 65 72 20 2a 2f 0a 20 20 20 20 20 20 number */.
44e0: 20 20 66 6f 72 28 65 32 2b 2b 3b 20 65 32 3c 30 for(e2++; e2<0
44f0: 20 26 26 20 70 72 65 63 69 73 69 6f 6e 3e 30 3b && precision>0;
4500: 20 70 72 65 63 69 73 69 6f 6e 2d 2d 2c 20 65 32 precision--, e2
4510: 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20 20 20 2a ++){. *
4520: 28 62 75 66 70 74 2b 2b 29 20 3d 20 27 30 27 3b (bufpt++) = '0';
4530: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 . }.
4540: 20 20 20 2f 2a 20 53 69 67 6e 69 66 69 63 61 6e /* Significan
4550: 74 20 64 69 67 69 74 73 20 61 66 74 65 72 20 74 t digits after t
4560: 68 65 20 64 65 63 69 6d 61 6c 20 70 6f 69 6e 74 he decimal point
4570: 20 2a 2f 0a 20 20 20 20 20 20 20 20 77 68 69 6c */. whil
4580: 65 28 20 28 70 72 65 63 69 73 69 6f 6e 2d 2d 29 e( (precision--)
4590: 3e 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 >0 ){.
45a0: 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 65 74 5f *(bufpt++) = et_
45b0: 67 65 74 64 69 67 69 74 28 26 72 65 61 6c 76 61 getdigit(&realva
45c0: 6c 75 65 2c 26 6e 73 64 29 3b 0a 20 20 20 20 20 lue,&nsd);.
45d0: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 2f 2a 20 }. /*
45e0: 52 65 6d 6f 76 65 20 74 72 61 69 6c 69 6e 67 20 Remove trailing
45f0: 7a 65 72 6f 73 20 61 6e 64 20 74 68 65 20 22 2e zeros and the ".
4600: 22 20 69 66 20 6e 6f 20 64 69 67 69 74 73 20 66 " if no digits f
4610: 6f 6c 6c 6f 77 20 74 68 65 20 22 2e 22 20 2a 2f ollow the "." */
4620: 0a 20 20 20 20 20 20 20 20 69 66 28 20 66 6c 61 . if( fla
4630: 67 5f 72 74 7a 20 26 26 20 66 6c 61 67 5f 64 70 g_rtz && flag_dp
4640: 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 77 68 ){. wh
4650: 69 6c 65 28 20 62 75 66 70 74 5b 2d 31 5d 3d 3d ile( bufpt[-1]==
4660: 27 30 27 20 29 20 2a 28 2d 2d 62 75 66 70 74 29 '0' ) *(--bufpt)
4670: 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 = 0;.
4680: 61 73 73 65 72 74 28 20 62 75 66 70 74 3e 62 75 assert( bufpt>bu
4690: 66 20 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69 f );. i
46a0: 66 28 20 62 75 66 70 74 5b 2d 31 5d 3d 3d 27 2e f( bufpt[-1]=='.
46b0: 27 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20 ' ){.
46c0: 20 69 66 28 20 66 6c 61 67 5f 61 6c 74 66 6f 72 if( flag_altfor
46d0: 6d 32 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 m2 ){.
46e0: 20 20 20 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d *(bufpt++) =
46f0: 20 27 30 27 3b 0a 20 20 20 20 20 20 20 20 20 20 '0';.
4700: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 }else{.
4710: 20 20 20 20 20 20 20 2a 28 2d 2d 62 75 66 70 74 *(--bufpt
4720: 29 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 ) = 0;.
4730: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20 7d }. }
4740: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 . }.
4750: 20 20 20 2f 2a 20 41 64 64 20 74 68 65 20 22 65 /* Add the "e
4760: 4e 4e 4e 22 20 73 75 66 66 69 78 20 2a 2f 0a 20 NNN" suffix */.
4770: 20 20 20 20 20 20 20 69 66 28 20 66 6c 61 67 5f if( flag_
4780: 65 78 70 20 7c 7c 20 28 78 74 79 70 65 3d 3d 65 exp || (xtype==e
4790: 74 45 58 50 20 26 26 20 65 78 70 29 20 29 7b 0a tEXP && exp) ){.
47a0: 20 20 20 20 20 20 20 20 20 20 2a 28 62 75 66 70 *(bufp
47b0: 74 2b 2b 29 20 3d 20 61 44 69 67 69 74 73 5b 69 t++) = aDigits[i
47c0: 6e 66 6f 70 2d 3e 63 68 61 72 73 65 74 5d 3b 0a nfop->charset];.
47d0: 20 20 20 20 20 20 20 20 20 20 69 66 28 20 65 78 if( ex
47e0: 70 3c 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 p<0 ){.
47f0: 20 20 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 *(bufpt++) =
4800: 27 2d 27 3b 20 65 78 70 20 3d 20 2d 65 78 70 3b '-'; exp = -exp;
4810: 0a 20 20 20 20 20 20 20 20 20 20 7d 65 6c 73 65 . }else
4820: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 2a 28 {. *(
4830: 62 75 66 70 74 2b 2b 29 20 3d 20 27 2b 27 3b 0a bufpt++) = '+';.
4840: 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 }.
4850: 20 20 20 20 20 20 69 66 28 20 65 78 70 3e 3d 31 if( exp>=1
4860: 30 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 00 ){.
4870: 20 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 28 *(bufpt++) = (
4880: 65 78 70 2f 31 30 30 29 2b 27 30 27 3b 20 20 20 exp/100)+'0';
4890: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 /*
48a0: 31 30 30 27 73 20 64 69 67 69 74 20 2a 2f 0a 20 100's digit */.
48b0: 20 20 20 20 20 20 20 20 20 20 20 65 78 70 20 25 exp %
48c0: 3d 20 31 30 30 3b 0a 20 20 20 20 20 20 20 20 20 = 100;.
48d0: 20 7d 0a 20 20 20 20 20 20 20 20 20 20 2a 28 62 }. *(b
48e0: 75 66 70 74 2b 2b 29 20 3d 20 65 78 70 2f 31 30 ufpt++) = exp/10
48f0: 2b 27 30 27 3b 20 20 20 20 20 20 20 20 20 20 20 +'0';
4900: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 31 30 27 /* 10'
4910: 73 20 64 69 67 69 74 20 2a 2f 0a 20 20 20 20 20 s digit */.
4920: 20 20 20 20 20 2a 28 62 75 66 70 74 2b 2b 29 20 *(bufpt++)
4930: 3d 20 65 78 70 25 31 30 2b 27 30 27 3b 20 20 20 = exp%10+'0';
4940: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4950: 20 20 2f 2a 20 31 27 73 20 64 69 67 69 74 20 2a /* 1's digit *
4960: 2f 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 /. }.
4970: 20 20 20 20 2a 62 75 66 70 74 20 3d 20 30 3b 0a *bufpt = 0;.
4980: 0a 20 20 20 20 20 20 20 20 2f 2a 20 54 68 65 20 . /* The
4990: 63 6f 6e 76 65 72 74 65 64 20 6e 75 6d 62 65 72 converted number
49a0: 20 69 73 20 69 6e 20 62 75 66 5b 5d 20 61 6e 64 is in buf[] and
49b0: 20 7a 65 72 6f 20 74 65 72 6d 69 6e 61 74 65 64 zero terminated
49c0: 2e 20 4f 75 74 70 75 74 20 69 74 2e 0a 20 20 20 . Output it..
49d0: 20 20 20 20 20 2a 2a 20 4e 6f 74 65 20 74 68 61 ** Note tha
49e0: 74 20 74 68 65 20 6e 75 6d 62 65 72 20 69 73 20 t the number is
49f0: 69 6e 20 74 68 65 20 75 73 75 61 6c 20 6f 72 64 in the usual ord
4a00: 65 72 2c 20 6e 6f 74 20 72 65 76 65 72 73 65 64 er, not reversed
4a10: 20 61 73 20 77 69 74 68 0a 20 20 20 20 20 20 20 as with.
4a20: 20 2a 2a 20 69 6e 74 65 67 65 72 20 63 6f 6e 76 ** integer conv
4a30: 65 72 73 69 6f 6e 73 2e 20 2a 2f 0a 20 20 20 20 ersions. */.
4a40: 20 20 20 20 6c 65 6e 67 74 68 20 3d 20 62 75 66 length = buf
4a50: 70 74 2d 62 75 66 3b 0a 20 20 20 20 20 20 20 20 pt-buf;.
4a60: 62 75 66 70 74 20 3d 20 62 75 66 3b 0a 0a 20 20 bufpt = buf;..
4a70: 20 20 20 20 20 20 2f 2a 20 53 70 65 63 69 61 6c /* Special
4a80: 20 63 61 73 65 3a 20 20 41 64 64 20 6c 65 61 64 case: Add lead
4a90: 69 6e 67 20 7a 65 72 6f 73 20 69 66 20 74 68 65 ing zeros if the
4aa0: 20 66 6c 61 67 5f 7a 65 72 6f 70 61 64 20 66 6c flag_zeropad fl
4ab0: 61 67 20 69 73 0a 20 20 20 20 20 20 20 20 2a 2a ag is. **
4ac0: 20 73 65 74 20 61 6e 64 20 77 65 20 61 72 65 20 set and we are
4ad0: 6e 6f 74 20 6c 65 66 74 20 6a 75 73 74 69 66 69 not left justifi
4ae0: 65 64 20 2a 2f 0a 20 20 20 20 20 20 20 20 69 66 ed */. if
4af0: 28 20 66 6c 61 67 5f 7a 65 72 6f 70 61 64 20 26 ( flag_zeropad &
4b00: 26 20 21 66 6c 61 67 5f 6c 65 66 74 6a 75 73 74 & !flag_leftjust
4b10: 69 66 79 20 26 26 20 6c 65 6e 67 74 68 20 3c 20 ify && length <
4b20: 77 69 64 74 68 29 7b 0a 20 20 20 20 20 20 20 20 width){.
4b30: 20 20 69 6e 74 20 69 3b 0a 20 20 20 20 20 20 20 int i;.
4b40: 20 20 20 69 6e 74 20 6e 50 61 64 20 3d 20 77 69 int nPad = wi
4b50: 64 74 68 20 2d 20 6c 65 6e 67 74 68 3b 0a 20 20 dth - length;.
4b60: 20 20 20 20 20 20 20 20 66 6f 72 28 69 3d 77 69 for(i=wi
4b70: 64 74 68 3b 20 69 3e 3d 6e 50 61 64 3b 20 69 2d dth; i>=nPad; i-
4b80: 2d 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 -){.
4b90: 62 75 66 70 74 5b 69 5d 20 3d 20 62 75 66 70 74 bufpt[i] = bufpt
4ba0: 5b 69 2d 6e 50 61 64 5d 3b 0a 20 20 20 20 20 20 [i-nPad];.
4bb0: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20 }.
4bc0: 69 20 3d 20 70 72 65 66 69 78 21 3d 30 3b 0a 20 i = prefix!=0;.
4bd0: 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 28 20 while(
4be0: 6e 50 61 64 2d 2d 20 29 20 62 75 66 70 74 5b 69 nPad-- ) bufpt[i
4bf0: 2b 2b 5d 20 3d 20 27 30 27 3b 0a 20 20 20 20 20 ++] = '0';.
4c00: 20 20 20 20 20 6c 65 6e 67 74 68 20 3d 20 77 69 length = wi
4c10: 64 74 68 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 dth;. }.
4c20: 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 break;.
4c30: 20 20 20 20 63 61 73 65 20 65 74 53 49 5a 45 3a case etSIZE:
4c40: 0a 20 20 20 20 20 20 20 20 2a 28 76 61 5f 61 72 . *(va_ar
4c50: 67 28 61 70 2c 69 6e 74 2a 29 29 20 3d 20 63 6f g(ap,int*)) = co
4c60: 75 6e 74 3b 0a 20 20 20 20 20 20 20 20 6c 65 6e unt;. len
4c70: 67 74 68 20 3d 20 77 69 64 74 68 20 3d 20 30 3b gth = width = 0;
4c80: 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a . break;.
4c90: 20 20 20 20 20 20 63 61 73 65 20 65 74 50 45 52 case etPER
4ca0: 43 45 4e 54 3a 0a 20 20 20 20 20 20 20 20 62 75 CENT:. bu
4cb0: 66 5b 30 5d 20 3d 20 27 25 27 3b 0a 20 20 20 20 f[0] = '%';.
4cc0: 20 20 20 20 62 75 66 70 74 20 3d 20 62 75 66 3b bufpt = buf;
4cd0: 0a 20 20 20 20 20 20 20 20 6c 65 6e 67 74 68 20 . length
4ce0: 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 62 72 65 = 1;. bre
4cf0: 61 6b 3b 0a 20 20 20 20 20 20 63 61 73 65 20 65 ak;. case e
4d00: 74 43 48 41 52 58 3a 0a 20 20 20 20 20 20 20 20 tCHARX:.
4d10: 63 20 3d 20 62 75 66 5b 30 5d 20 3d 20 28 78 74 c = buf[0] = (xt
4d20: 79 70 65 3d 3d 65 74 43 48 41 52 58 20 3f 20 76 ype==etCHARX ? v
4d30: 61 5f 61 72 67 28 61 70 2c 69 6e 74 29 20 3a 20 a_arg(ap,int) :
4d40: 2a 2b 2b 66 6d 74 29 3b 0a 20 20 20 20 20 20 20 *++fmt);.
4d50: 20 69 66 28 20 70 72 65 63 69 73 69 6f 6e 3e 3d if( precision>=
4d60: 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 66 0 ){. f
4d70: 6f 72 28 69 64 78 3d 31 3b 20 69 64 78 3c 70 72 or(idx=1; idx<pr
4d80: 65 63 69 73 69 6f 6e 3b 20 69 64 78 2b 2b 29 20 ecision; idx++)
4d90: 62 75 66 5b 69 64 78 5d 20 3d 20 63 3b 0a 20 20 buf[idx] = c;.
4da0: 20 20 20 20 20 20 20 20 6c 65 6e 67 74 68 20 3d length =
4db0: 20 70 72 65 63 69 73 69 6f 6e 3b 0a 20 20 20 20 precision;.
4dc0: 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 }else{.
4dd0: 20 20 20 20 20 6c 65 6e 67 74 68 20 3d 31 3b 0a length =1;.
4de0: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 }.
4df0: 20 20 62 75 66 70 74 20 3d 20 62 75 66 3b 0a 20 bufpt = buf;.
4e00: 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 break;.
4e10: 20 20 20 20 63 61 73 65 20 65 74 50 41 54 48 3a case etPATH:
4e20: 20 7b 0a 20 20 20 20 20 20 20 20 69 6e 74 20 69 {. int i
4e30: 3b 0a 20 20 20 20 20 20 20 20 63 68 61 72 20 2a ;. char *
4e40: 65 20 3d 20 76 61 5f 61 72 67 28 61 70 2c 63 68 e = va_arg(ap,ch
4e50: 61 72 2a 29 3b 0a 20 20 20 20 20 20 20 20 69 66 ar*);. if
4e60: 28 20 65 3d 3d 30 20 29 7b 65 3d 22 22 3b 7d 0a ( e==0 ){e="";}.
4e70: 20 20 20 20 20 20 20 20 6c 65 6e 67 74 68 20 3d length =
4e80: 20 73 74 72 6c 65 6e 28 65 29 3b 0a 20 20 20 20 strlen(e);.
4e90: 20 20 20 20 7a 45 78 74 72 61 20 3d 20 62 75 66 zExtra = buf
4ea0: 70 74 20 3d 20 6d 61 6c 6c 6f 63 28 6c 65 6e 67 pt = malloc(leng
4eb0: 74 68 2b 31 29 3b 0a 20 20 20 20 20 20 20 20 66 th+1);. f
4ec0: 6f 72 28 20 69 3d 30 3b 20 69 3c 6c 65 6e 67 74 or( i=0; i<lengt
4ed0: 68 3b 20 69 2b 2b 20 29 7b 0a 20 20 20 20 20 20 h; i++ ){.
4ee0: 20 20 20 20 69 66 28 20 65 5b 69 5d 3d 3d 27 5c if( e[i]=='\
4ef0: 5c 27 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 \' ){.
4f00: 20 20 62 75 66 70 74 5b 69 5d 3d 27 2f 27 3b 0a bufpt[i]='/';.
4f10: 20 20 20 20 20 20 20 20 20 20 7d 65 6c 73 65 7b }else{
4f20: 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 75 66 . buf
4f30: 70 74 5b 69 5d 3d 65 5b 69 5d 3b 0a 20 20 20 20 pt[i]=e[i];.
4f40: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 }.
4f50: 7d 0a 20 20 20 20 20 20 20 20 62 75 66 70 74 5b }. bufpt[
4f60: 6c 65 6e 67 74 68 5d 3d 27 5c 30 27 3b 0a 20 20 length]='\0';.
4f70: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 break;.
4f80: 20 20 20 7d 0a 20 20 20 20 20 20 63 61 73 65 20 }. case
4f90: 65 74 53 54 52 49 4e 47 3a 0a 20 20 20 20 20 20 etSTRING:.
4fa0: 63 61 73 65 20 65 74 44 59 4e 53 54 52 49 4e 47 case etDYNSTRING
4fb0: 3a 0a 20 20 20 20 20 20 20 20 62 75 66 70 74 20 :. bufpt
4fc0: 3d 20 76 61 5f 61 72 67 28 61 70 2c 63 68 61 72 = va_arg(ap,char
4fd0: 2a 29 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 *);. if(
4fe0: 62 75 66 70 74 3d 3d 30 20 29 7b 0a 20 20 20 20 bufpt==0 ){.
4ff0: 20 20 20 20 20 20 62 75 66 70 74 20 3d 20 22 22 bufpt = ""
5000: 3b 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 65 20 ;. }else
5010: 69 66 28 20 78 74 79 70 65 3d 3d 65 74 44 59 4e if( xtype==etDYN
5020: 53 54 52 49 4e 47 20 29 7b 0a 20 20 20 20 20 20 STRING ){.
5030: 20 20 20 20 7a 45 78 74 72 61 20 3d 20 62 75 66 zExtra = buf
5040: 70 74 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 pt;. }.
5050: 20 20 20 20 20 20 6c 65 6e 67 74 68 20 3d 20 73 length = s
5060: 74 72 6c 65 6e 28 62 75 66 70 74 29 3b 0a 20 20 trlen(bufpt);.
5070: 20 20 20 20 20 20 69 66 28 20 70 72 65 63 69 73 if( precis
5080: 69 6f 6e 3e 3d 30 20 26 26 20 70 72 65 63 69 73 ion>=0 && precis
5090: 69 6f 6e 3c 6c 65 6e 67 74 68 20 29 20 6c 65 6e ion<length ) len
50a0: 67 74 68 20 3d 20 70 72 65 63 69 73 69 6f 6e 3b gth = precision;
50b0: 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a . break;.
50c0: 20 20 20 20 20 20 63 61 73 65 20 65 74 42 4c 4f case etBLO
50d0: 42 3a 20 7b 0a 20 20 20 20 20 20 20 20 42 6c 6f B: {. Blo
50e0: 62 20 2a 70 42 6c 6f 62 20 3d 20 76 61 5f 61 72 b *pBlob = va_ar
50f0: 67 28 61 70 2c 20 42 6c 6f 62 2a 29 3b 0a 20 20 g(ap, Blob*);.
5100: 20 20 20 20 20 20 62 75 66 70 74 20 3d 20 62 6c bufpt = bl
5110: 6f 62 5f 62 75 66 66 65 72 28 70 42 6c 6f 62 29 ob_buffer(pBlob)
5120: 3b 0a 20 20 20 20 20 20 20 20 6c 65 6e 67 74 68 ;. length
5130: 20 3d 20 62 6c 6f 62 5f 73 69 7a 65 28 70 42 6c = blob_size(pBl
5140: 6f 62 29 3b 0a 20 20 20 20 20 20 20 20 62 72 65 ob);. bre
5150: 61 6b 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 ak;. }.
5160: 20 20 63 61 73 65 20 65 74 42 4c 4f 42 53 51 4c case etBLOBSQL
5170: 3a 20 7b 0a 20 20 20 20 20 20 20 20 42 6c 6f 62 : {. Blob
5180: 20 2a 70 42 6c 6f 62 20 3d 20 76 61 5f 61 72 67 *pBlob = va_arg
5190: 28 61 70 2c 20 42 6c 6f 62 2a 29 3b 0a 20 20 20 (ap, Blob*);.
51a0: 20 20 20 20 20 63 68 61 72 20 2a 7a 4f 72 69 67 char *zOrig
51b0: 20 3d 20 62 6c 6f 62 5f 62 75 66 66 65 72 28 70 = blob_buffer(p
51c0: 42 6c 6f 62 29 3b 0a 20 20 20 20 20 20 20 20 69 Blob);. i
51d0: 6e 74 20 69 2c 20 6a 2c 20 6e 2c 20 63 6e 74 3b nt i, j, n, cnt;
51e0: 0a 20 20 20 20 20 20 20 20 6e 20 3d 20 62 6c 6f . n = blo
51f0: 62 5f 73 69 7a 65 28 70 42 6c 6f 62 29 3b 0a 20 b_size(pBlob);.
5200: 20 20 20 20 20 20 20 66 6f 72 28 63 6e 74 3d 69 for(cnt=i
5210: 3d 30 3b 20 69 3c 6e 3b 20 69 2b 2b 29 7b 20 69 =0; i<n; i++){ i
5220: 66 28 20 7a 4f 72 69 67 5b 69 5d 3d 3d 27 5c 27 f( zOrig[i]=='\'
5230: 27 20 29 20 63 6e 74 2b 2b 3b 20 7d 0a 20 20 20 ' ) cnt++; }.
5240: 20 20 20 20 20 69 66 28 20 6e 2b 63 6e 74 2b 32 if( n+cnt+2
5250: 20 3e 20 65 74 42 55 46 53 49 5a 45 20 29 7b 0a > etBUFSIZE ){.
5260: 20 20 20 20 20 20 20 20 20 20 62 75 66 70 74 20 bufpt
5270: 3d 20 7a 45 78 74 72 61 20 3d 20 6d 61 6c 6c 6f = zExtra = mallo
5280: 63 28 20 6e 20 2b 20 63 6e 74 20 2b 20 32 20 29 c( n + cnt + 2 )
5290: 3b 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 65 7b ;. }else{
52a0: 0a 20 20 20 20 20 20 20 20 20 20 62 75 66 70 74 . bufpt
52b0: 20 3d 20 62 75 66 3b 0a 20 20 20 20 20 20 20 20 = buf;.
52c0: 7d 0a 20 20 20 20 20 20 20 20 62 75 66 70 74 5b }. bufpt[
52d0: 30 5d 20 3d 20 27 5c 27 27 3b 0a 20 20 20 20 20 0] = '\'';.
52e0: 20 20 20 66 6f 72 28 69 3d 30 2c 20 6a 3d 31 3b for(i=0, j=1;
52f0: 20 69 3c 6e 3b 20 69 2b 2b 2c 20 6a 2b 2b 29 7b i<n; i++, j++){
5300: 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20 7a . if( z
5310: 4f 72 69 67 5b 69 5d 3d 3d 27 5c 27 27 20 29 7b Orig[i]=='\'' ){
5320: 20 62 75 66 70 74 5b 6a 2b 2b 5d 20 3d 20 27 5c bufpt[j++] = '\
5330: 27 27 3b 20 7d 0a 20 20 20 20 20 20 20 20 20 20 ''; }.
5340: 62 75 66 70 74 5b 6a 5d 20 3d 20 7a 4f 72 69 67 bufpt[j] = zOrig
5350: 5b 69 5d 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 [i];. }.
5360: 20 20 20 20 20 20 20 62 75 66 70 74 5b 6a 2b 2b bufpt[j++
5370: 5d 20 3d 20 27 5c 27 27 3b 0a 20 20 20 20 20 20 ] = '\'';.
5380: 20 20 6c 65 6e 67 74 68 20 3d 20 6a 3b 0a 20 20 length = j;.
5390: 20 20 20 20 20 20 61 73 73 65 72 74 28 20 6c 65 assert( le
53a0: 6e 67 74 68 3d 3d 6e 2b 63 6e 74 2b 32 20 29 3b ngth==n+cnt+2 );
53b0: 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a . break;.
53c0: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 63 61 }. ca
53d0: 73 65 20 65 74 53 51 4c 45 53 43 41 50 45 3a 0a se etSQLESCAPE:.
53e0: 20 20 20 20 20 20 63 61 73 65 20 65 74 53 51 4c case etSQL
53f0: 45 53 43 41 50 45 32 3a 20 7b 0a 20 20 20 20 20 ESCAPE2: {.
5400: 20 20 20 69 6e 74 20 69 2c 20 6a 2c 20 6e 2c 20 int i, j, n,
5410: 63 68 2c 20 69 73 6e 75 6c 6c 3b 0a 20 20 20 20 ch, isnull;.
5420: 20 20 20 20 69 6e 74 20 6e 65 65 64 51 75 6f 74 int needQuot
5430: 65 3b 0a 20 20 20 20 20 20 20 20 63 68 61 72 20 e;. char
5440: 2a 65 73 63 61 72 67 20 3d 20 76 61 5f 61 72 67 *escarg = va_arg
5450: 28 61 70 2c 63 68 61 72 2a 29 3b 0a 20 20 20 20 (ap,char*);.
5460: 20 20 20 20 69 73 6e 75 6c 6c 20 3d 20 65 73 63 isnull = esc
5470: 61 72 67 3d 3d 30 3b 0a 20 20 20 20 20 20 20 20 arg==0;.
5480: 69 66 28 20 69 73 6e 75 6c 6c 20 29 20 65 73 63 if( isnull ) esc
5490: 61 72 67 20 3d 20 28 78 74 79 70 65 3d 3d 65 74 arg = (xtype==et
54a0: 53 51 4c 45 53 43 41 50 45 32 20 3f 20 22 4e 55 SQLESCAPE2 ? "NU
54b0: 4c 4c 22 20 3a 20 22 28 4e 55 4c 4c 29 22 29 3b LL" : "(NULL)");
54c0: 0a 20 20 20 20 20 20 20 20 66 6f 72 28 69 3d 6e . for(i=n
54d0: 3d 30 3b 20 28 63 68 3d 65 73 63 61 72 67 5b 69 =0; (ch=escarg[i
54e0: 5d 29 21 3d 30 3b 20 69 2b 2b 29 7b 0a 20 20 20 ])!=0; i++){.
54f0: 20 20 20 20 20 20 20 69 66 28 20 63 68 3d 3d 27 if( ch=='
5500: 5c 27 27 20 29 20 20 6e 2b 2b 3b 0a 20 20 20 20 \'' ) n++;.
5510: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 6e 65 }. ne
5520: 65 64 51 75 6f 74 65 20 3d 20 21 69 73 6e 75 6c edQuote = !isnul
5530: 6c 20 26 26 20 78 74 79 70 65 3d 3d 65 74 53 51 l && xtype==etSQ
5540: 4c 45 53 43 41 50 45 32 3b 0a 20 20 20 20 20 20 LESCAPE2;.
5550: 20 20 6e 20 2b 3d 20 69 20 2b 20 31 20 2b 20 6e n += i + 1 + n
5560: 65 65 64 51 75 6f 74 65 2a 32 3b 0a 20 20 20 20 eedQuote*2;.
5570: 20 20 20 20 69 66 28 20 6e 3e 65 74 42 55 46 53 if( n>etBUFS
5580: 49 5a 45 20 29 7b 0a 20 20 20 20 20 20 20 20 20 IZE ){.
5590: 20 62 75 66 70 74 20 3d 20 7a 45 78 74 72 61 20 bufpt = zExtra
55a0: 3d 20 6d 61 6c 6c 6f 63 28 20 6e 20 29 3b 0a 20 = malloc( n );.
55b0: 20 20 20 20 20 20 20 20 20 69 66 28 20 62 75 66 if( buf
55c0: 70 74 3d 3d 30 20 29 20 72 65 74 75 72 6e 20 2d pt==0 ) return -
55d0: 31 3b 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 65 1;. }else
55e0: 7b 0a 20 20 20 20 20 20 20 20 20 20 62 75 66 70 {. bufp
55f0: 74 20 3d 20 62 75 66 3b 0a 20 20 20 20 20 20 20 t = buf;.
5600: 20 7d 0a 20 20 20 20 20 20 20 20 6a 20 3d 20 30 }. j = 0
5610: 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 6e 65 ;. if( ne
5620: 65 64 51 75 6f 74 65 20 29 20 62 75 66 70 74 5b edQuote ) bufpt[
5630: 6a 2b 2b 5d 20 3d 20 27 5c 27 27 3b 0a 20 20 20 j++] = '\'';.
5640: 20 20 20 20 20 66 6f 72 28 69 3d 30 3b 20 28 63 for(i=0; (c
5650: 68 3d 65 73 63 61 72 67 5b 69 5d 29 21 3d 30 3b h=escarg[i])!=0;
5660: 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20 20 i++){.
5670: 20 62 75 66 70 74 5b 6a 2b 2b 5d 20 3d 20 63 68 bufpt[j++] = ch
5680: 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20 ;. if(
5690: 63 68 3d 3d 27 5c 27 27 20 29 20 62 75 66 70 74 ch=='\'' ) bufpt
56a0: 5b 6a 2b 2b 5d 20 3d 20 63 68 3b 0a 20 20 20 20 [j++] = ch;.
56b0: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 69 66 }. if
56c0: 28 20 6e 65 65 64 51 75 6f 74 65 20 29 20 62 75 ( needQuote ) bu
56d0: 66 70 74 5b 6a 2b 2b 5d 20 3d 20 27 5c 27 27 3b fpt[j++] = '\'';
56e0: 0a 20 20 20 20 20 20 20 20 62 75 66 70 74 5b 6a . bufpt[j
56f0: 5d 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 6c ] = 0;. l
5700: 65 6e 67 74 68 20 3d 20 6a 3b 0a 20 20 20 20 20 ength = j;.
5710: 20 20 20 69 66 28 20 70 72 65 63 69 73 69 6f 6e if( precision
5720: 3e 3d 30 20 26 26 20 70 72 65 63 69 73 69 6f 6e >=0 && precision
5730: 3c 6c 65 6e 67 74 68 20 29 20 6c 65 6e 67 74 68 <length ) length
5740: 20 3d 20 70 72 65 63 69 73 69 6f 6e 3b 0a 20 20 = precision;.
5750: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 break;.
5760: 20 20 20 7d 0a 20 20 20 20 20 20 63 61 73 65 20 }. case
5770: 65 74 48 54 4d 4c 49 5a 45 3a 20 7b 0a 20 20 20 etHTMLIZE: {.
5780: 20 20 20 20 20 63 68 61 72 20 2a 7a 4d 65 6d 20 char *zMem
5790: 3d 20 76 61 5f 61 72 67 28 61 70 2c 63 68 61 72 = va_arg(ap,char
57a0: 2a 29 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 *);. if(
57b0: 7a 4d 65 6d 3d 3d 30 20 29 20 7a 4d 65 6d 20 3d zMem==0 ) zMem =
57c0: 20 22 22 3b 0a 20 20 20 20 20 20 20 20 7a 45 78 "";. zEx
57d0: 74 72 61 20 3d 20 62 75 66 70 74 20 3d 20 68 74 tra = bufpt = ht
57e0: 6d 6c 69 7a 65 28 7a 4d 65 6d 2c 20 2d 31 29 3b mlize(zMem, -1);
57f0: 0a 20 20 20 20 20 20 20 20 6c 65 6e 67 74 68 20 . length
5800: 3d 20 73 74 72 6c 65 6e 28 62 75 66 70 74 29 3b = strlen(bufpt);
5810: 0a 20 20 20 20 20 20 20 20 69 66 28 20 70 72 65 . if( pre
5820: 63 69 73 69 6f 6e 3e 3d 30 20 26 26 20 70 72 65 cision>=0 && pre
5830: 63 69 73 69 6f 6e 3c 6c 65 6e 67 74 68 20 29 20 cision<length )
5840: 6c 65 6e 67 74 68 20 3d 20 70 72 65 63 69 73 69 length = precisi
5850: 6f 6e 3b 0a 20 20 20 20 20 20 20 20 62 72 65 61 on;. brea
5860: 6b 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 k;. }.
5870: 20 63 61 73 65 20 65 74 48 54 54 50 49 5a 45 3a case etHTTPIZE:
5880: 20 7b 0a 20 20 20 20 20 20 20 20 63 68 61 72 20 {. char
5890: 2a 7a 4d 65 6d 20 3d 20 76 61 5f 61 72 67 28 61 *zMem = va_arg(a
58a0: 70 2c 63 68 61 72 2a 29 3b 0a 20 20 20 20 20 20 p,char*);.
58b0: 20 20 69 66 28 20 7a 4d 65 6d 3d 3d 30 20 29 20 if( zMem==0 )
58c0: 7a 4d 65 6d 20 3d 20 22 22 3b 0a 20 20 20 20 20 zMem = "";.
58d0: 20 20 20 7a 45 78 74 72 61 20 3d 20 62 75 66 70 zExtra = bufp
58e0: 74 20 3d 20 68 74 74 70 69 7a 65 28 7a 4d 65 6d t = httpize(zMem
58f0: 2c 20 2d 31 29 3b 0a 20 20 20 20 20 20 20 20 6c , -1);. l
5900: 65 6e 67 74 68 20 3d 20 73 74 72 6c 65 6e 28 62 ength = strlen(b
5910: 75 66 70 74 29 3b 0a 20 20 20 20 20 20 20 20 69 ufpt);. i
5920: 66 28 20 70 72 65 63 69 73 69 6f 6e 3e 3d 30 20 f( precision>=0
5930: 26 26 20 70 72 65 63 69 73 69 6f 6e 3c 6c 65 6e && precision<len
5940: 67 74 68 20 29 20 6c 65 6e 67 74 68 20 3d 20 70 gth ) length = p
5950: 72 65 63 69 73 69 6f 6e 3b 0a 20 20 20 20 20 20 recision;.
5960: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 7d break;. }
5970: 0a 20 20 20 20 20 20 63 61 73 65 20 65 74 55 52 . case etUR
5980: 4c 49 5a 45 3a 20 7b 0a 20 20 20 20 20 20 20 20 LIZE: {.
5990: 63 68 61 72 20 2a 7a 4d 65 6d 20 3d 20 76 61 5f char *zMem = va_
59a0: 61 72 67 28 61 70 2c 63 68 61 72 2a 29 3b 0a 20 arg(ap,char*);.
59b0: 20 20 20 20 20 20 20 69 66 28 20 7a 4d 65 6d 3d if( zMem=
59c0: 3d 30 20 29 20 7a 4d 65 6d 20 3d 20 22 22 3b 0a =0 ) zMem = "";.
59d0: 20 20 20 20 20 20 20 20 7a 45 78 74 72 61 20 3d zExtra =
59e0: 20 62 75 66 70 74 20 3d 20 75 72 6c 69 7a 65 28 bufpt = urlize(
59f0: 7a 4d 65 6d 2c 20 2d 31 29 3b 0a 20 20 20 20 20 zMem, -1);.
5a00: 20 20 20 6c 65 6e 67 74 68 20 3d 20 73 74 72 6c length = strl
5a10: 65 6e 28 62 75 66 70 74 29 3b 0a 20 20 20 20 20 en(bufpt);.
5a20: 20 20 20 69 66 28 20 70 72 65 63 69 73 69 6f 6e if( precision
5a30: 3e 3d 30 20 26 26 20 70 72 65 63 69 73 69 6f 6e >=0 && precision
5a40: 3c 6c 65 6e 67 74 68 20 29 20 6c 65 6e 67 74 68 <length ) length
5a50: 20 3d 20 70 72 65 63 69 73 69 6f 6e 3b 0a 20 20 = precision;.
5a60: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 break;.
5a70: 20 20 20 7d 0a 20 20 20 20 20 20 63 61 73 65 20 }. case
5a80: 65 74 46 4f 53 53 49 4c 49 5a 45 3a 20 7b 0a 20 etFOSSILIZE: {.
5a90: 20 20 20 20 20 20 20 63 68 61 72 20 2a 7a 4d 65 char *zMe
5aa0: 6d 20 3d 20 76 61 5f 61 72 67 28 61 70 2c 63 68 m = va_arg(ap,ch
5ab0: 61 72 2a 29 3b 0a 20 20 20 20 20 20 20 20 69 66 ar*);. if
5ac0: 28 20 7a 4d 65 6d 3d 3d 30 20 29 20 7a 4d 65 6d ( zMem==0 ) zMem
5ad0: 20 3d 20 22 22 3b 0a 20 20 20 20 20 20 20 20 7a = "";. z
5ae0: 45 78 74 72 61 20 3d 20 62 75 66 70 74 20 3d 20 Extra = bufpt =
5af0: 66 6f 73 73 69 6c 69 7a 65 28 7a 4d 65 6d 2c 20 fossilize(zMem,
5b00: 2d 31 29 3b 0a 20 20 20 20 20 20 20 20 6c 65 6e -1);. len
5b10: 67 74 68 20 3d 20 73 74 72 6c 65 6e 28 62 75 66 gth = strlen(buf
5b20: 70 74 29 3b 0a 20 20 20 20 20 20 20 20 69 66 28 pt);. if(
5b30: 20 70 72 65 63 69 73 69 6f 6e 3e 3d 30 20 26 26 precision>=0 &&
5b40: 20 70 72 65 63 69 73 69 6f 6e 3c 6c 65 6e 67 74 precision<lengt
5b50: 68 20 29 20 6c 65 6e 67 74 68 20 3d 20 70 72 65 h ) length = pre
5b60: 63 69 73 69 6f 6e 3b 0a 20 20 20 20 20 20 20 20 cision;.
5b70: 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 7d 0a 20 break;. }.
5b80: 20 20 20 20 20 63 61 73 65 20 65 74 45 52 52 4f case etERRO
5b90: 52 3a 0a 20 20 20 20 20 20 20 20 62 75 66 5b 30 R:. buf[0
5ba0: 5d 20 3d 20 27 25 27 3b 0a 20 20 20 20 20 20 20 ] = '%';.
5bb0: 20 62 75 66 5b 31 5d 20 3d 20 63 3b 0a 20 20 20 buf[1] = c;.
5bc0: 20 20 20 20 20 65 72 72 6f 72 66 6c 61 67 20 3d errorflag =
5bd0: 20 30 3b 0a 20 20 20 20 20 20 20 20 69 64 78 20 0;. idx
5be0: 3d 20 31 2b 28 63 21 3d 30 29 3b 0a 20 20 20 20 = 1+(c!=0);.
5bf0: 20 20 20 20 28 2a 66 75 6e 63 29 28 61 72 67 2c (*func)(arg,
5c00: 22 25 22 2c 69 64 78 29 3b 0a 20 20 20 20 20 20 "%",idx);.
5c10: 20 20 63 6f 75 6e 74 20 2b 3d 20 69 64 78 3b 0a count += idx;.
5c20: 20 20 20 20 20 20 20 20 69 66 28 20 63 3d 3d 30 if( c==0
5c30: 20 29 20 66 6d 74 2d 2d 3b 0a 20 20 20 20 20 20 ) fmt--;.
5c40: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 2f 2a break;. }/*
5c50: 20 45 6e 64 20 73 77 69 74 63 68 20 6f 76 65 72 End switch over
5c60: 20 74 68 65 20 66 6f 72 6d 61 74 20 74 79 70 65 the format type
5c70: 20 2a 2f 0a 20 20 20 20 2f 2a 0a 20 20 20 20 2a */. /*. *
5c80: 2a 20 54 68 65 20 74 65 78 74 20 6f 66 20 74 68 * The text of th
5c90: 65 20 63 6f 6e 76 65 72 73 69 6f 6e 20 69 73 20 e conversion is
5ca0: 70 6f 69 6e 74 65 64 20 74 6f 20 62 79 20 22 62 pointed to by "b
5cb0: 75 66 70 74 22 20 61 6e 64 20 69 73 0a 20 20 20 ufpt" and is.
5cc0: 20 2a 2a 20 22 6c 65 6e 67 74 68 22 20 63 68 61 ** "length" cha
5cd0: 72 61 63 74 65 72 73 20 6c 6f 6e 67 2e 20 20 54 racters long. T
5ce0: 68 65 20 66 69 65 6c 64 20 77 69 64 74 68 20 69 he field width i
5cf0: 73 20 22 77 69 64 74 68 22 2e 20 20 44 6f 0a 20 s "width". Do.
5d00: 20 20 20 2a 2a 20 74 68 65 20 6f 75 74 70 75 74 ** the output
5d10: 2e 0a 20 20 20 20 2a 2f 0a 20 20 20 20 69 66 28 .. */. if(
5d20: 20 21 66 6c 61 67 5f 6c 65 66 74 6a 75 73 74 69 !flag_leftjusti
5d30: 66 79 20 29 7b 0a 20 20 20 20 20 20 72 65 67 69 fy ){. regi
5d40: 73 74 65 72 20 69 6e 74 20 6e 73 70 61 63 65 3b ster int nspace;
5d50: 0a 20 20 20 20 20 20 6e 73 70 61 63 65 20 3d 20 . nspace =
5d60: 77 69 64 74 68 2d 6c 65 6e 67 74 68 3b 0a 20 20 width-length;.
5d70: 20 20 20 20 69 66 28 20 6e 73 70 61 63 65 3e 30 if( nspace>0
5d80: 20 29 7b 0a 20 20 20 20 20 20 20 20 63 6f 75 6e ){. coun
5d90: 74 20 2b 3d 20 6e 73 70 61 63 65 3b 0a 20 20 20 t += nspace;.
5da0: 20 20 20 20 20 77 68 69 6c 65 28 20 6e 73 70 61 while( nspa
5db0: 63 65 3e 3d 65 74 53 50 41 43 45 53 49 5a 45 20 ce>=etSPACESIZE
5dc0: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 28 2a 66 ){. (*f
5dd0: 75 6e 63 29 28 61 72 67 2c 73 70 61 63 65 73 2c unc)(arg,spaces,
5de0: 65 74 53 50 41 43 45 53 49 5a 45 29 3b 0a 20 20 etSPACESIZE);.
5df0: 20 20 20 20 20 20 20 20 6e 73 70 61 63 65 20 2d nspace -
5e00: 3d 20 65 74 53 50 41 43 45 53 49 5a 45 3b 0a 20 = etSPACESIZE;.
5e10: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 }.
5e20: 20 69 66 28 20 6e 73 70 61 63 65 3e 30 20 29 20 if( nspace>0 )
5e30: 28 2a 66 75 6e 63 29 28 61 72 67 2c 73 70 61 63 (*func)(arg,spac
5e40: 65 73 2c 6e 73 70 61 63 65 29 3b 0a 20 20 20 20 es,nspace);.
5e50: 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 }. }. if
5e60: 28 20 6c 65 6e 67 74 68 3e 30 20 29 7b 0a 20 20 ( length>0 ){.
5e70: 20 20 20 20 28 2a 66 75 6e 63 29 28 61 72 67 2c (*func)(arg,
5e80: 62 75 66 70 74 2c 6c 65 6e 67 74 68 29 3b 0a 20 bufpt,length);.
5e90: 20 20 20 20 20 63 6f 75 6e 74 20 2b 3d 20 6c 65 count += le
5ea0: 6e 67 74 68 3b 0a 20 20 20 20 7d 0a 20 20 20 20 ngth;. }.
5eb0: 69 66 28 20 66 6c 61 67 5f 6c 65 66 74 6a 75 73 if( flag_leftjus
5ec0: 74 69 66 79 20 29 7b 0a 20 20 20 20 20 20 72 65 tify ){. re
5ed0: 67 69 73 74 65 72 20 69 6e 74 20 6e 73 70 61 63 gister int nspac
5ee0: 65 3b 0a 20 20 20 20 20 20 6e 73 70 61 63 65 20 e;. nspace
5ef0: 3d 20 77 69 64 74 68 2d 6c 65 6e 67 74 68 3b 0a = width-length;.
5f00: 20 20 20 20 20 20 69 66 28 20 6e 73 70 61 63 65 if( nspace
5f10: 3e 30 20 29 7b 0a 20 20 20 20 20 20 20 20 63 6f >0 ){. co
5f20: 75 6e 74 20 2b 3d 20 6e 73 70 61 63 65 3b 0a 20 unt += nspace;.
5f30: 20 20 20 20 20 20 20 77 68 69 6c 65 28 20 6e 73 while( ns
5f40: 70 61 63 65 3e 3d 65 74 53 50 41 43 45 53 49 5a pace>=etSPACESIZ
5f50: 45 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 28 E ){. (
5f60: 2a 66 75 6e 63 29 28 61 72 67 2c 73 70 61 63 65 *func)(arg,space
5f70: 73 2c 65 74 53 50 41 43 45 53 49 5a 45 29 3b 0a s,etSPACESIZE);.
5f80: 20 20 20 20 20 20 20 20 20 20 6e 73 70 61 63 65 nspace
5f90: 20 2d 3d 20 65 74 53 50 41 43 45 53 49 5a 45 3b -= etSPACESIZE;
5fa0: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 . }.
5fb0: 20 20 20 69 66 28 20 6e 73 70 61 63 65 3e 30 20 if( nspace>0
5fc0: 29 20 28 2a 66 75 6e 63 29 28 61 72 67 2c 73 70 ) (*func)(arg,sp
5fd0: 61 63 65 73 2c 6e 73 70 61 63 65 29 3b 0a 20 20 aces,nspace);.
5fe0: 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 }. }.
5ff0: 69 66 28 20 7a 45 78 74 72 61 20 29 7b 0a 20 20 if( zExtra ){.
6000: 20 20 20 20 66 72 65 65 28 7a 45 78 74 72 61 29 free(zExtra)
6010: 3b 0a 20 20 20 20 7d 0a 20 20 7d 2f 2a 20 45 6e ;. }. }/* En
6020: 64 20 66 6f 72 20 6c 6f 6f 70 20 6f 76 65 72 20 d for loop over
6030: 74 68 65 20 66 6f 72 6d 61 74 20 73 74 72 69 6e the format strin
6040: 67 20 2a 2f 0a 20 20 72 65 74 75 72 6e 20 65 72 g */. return er
6050: 72 6f 72 66 6c 61 67 20 3f 20 2d 31 20 3a 20 63 rorflag ? -1 : c
6060: 6f 75 6e 74 3b 0a 7d 20 2f 2a 20 45 6e 64 20 6f ount;.} /* End o
6070: 66 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 0a 2f f function */../
6080: 2a 0a 2a 2a 20 50 72 69 6e 74 20 69 6e 74 6f 20 *.** Print into
6090: 6d 65 6d 6f 72 79 20 6f 62 74 61 69 6e 65 64 20 memory obtained
60a0: 66 72 6f 6d 20 6d 61 6c 6c 6f 63 28 29 2e 0a 2a from malloc()..*
60b0: 2f 0a 63 68 61 72 20 2a 6d 70 72 69 6e 74 66 28 /.char *mprintf(
60c0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 6f 72 const char *zFor
60d0: 6d 61 74 2c 20 2e 2e 2e 29 7b 0a 20 20 76 61 5f mat, ...){. va_
60e0: 6c 69 73 74 20 61 70 3b 0a 20 20 63 68 61 72 20 list ap;. char
60f0: 2a 7a 3b 0a 20 20 76 61 5f 73 74 61 72 74 28 61 *z;. va_start(a
6100: 70 2c 7a 46 6f 72 6d 61 74 29 3b 0a 20 20 7a 20 p,zFormat);. z
6110: 3d 20 76 6d 70 72 69 6e 74 66 28 7a 46 6f 72 6d = vmprintf(zForm
6120: 61 74 2c 20 61 70 29 3b 0a 20 20 76 61 5f 65 6e at, ap);. va_en
6130: 64 28 61 70 29 3b 0a 20 20 72 65 74 75 72 6e 20 d(ap);. return
6140: 7a 3b 0a 7d 0a 63 68 61 72 20 2a 76 6d 70 72 69 z;.}.char *vmpri
6150: 6e 74 66 28 63 6f 6e 73 74 20 63 68 61 72 20 2a ntf(const char *
6160: 7a 46 6f 72 6d 61 74 2c 20 76 61 5f 6c 69 73 74 zFormat, va_list
6170: 20 61 70 29 7b 0a 20 20 42 6c 6f 62 20 62 6c 6f ap){. Blob blo
6180: 62 20 3d 20 65 6d 70 74 79 5f 62 6c 6f 62 3b 0a b = empty_blob;.
6190: 20 20 62 6c 6f 62 5f 76 61 70 70 65 6e 64 66 28 blob_vappendf(
61a0: 26 62 6c 6f 62 2c 20 7a 46 6f 72 6d 61 74 2c 20 &blob, zFormat,
61b0: 61 70 29 3b 0a 20 20 62 6c 6f 62 5f 6d 61 74 65 ap);. blob_mate
61c0: 72 69 61 6c 69 7a 65 28 26 62 6c 6f 62 29 3b 0a rialize(&blob);.
61d0: 20 20 72 65 74 75 72 6e 20 62 6c 6f 62 2e 61 44 return blob.aD
61e0: 61 74 61 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 ata;.}../*.** Re
61f0: 63 6f 72 64 20 61 6e 20 65 72 72 6f 72 20 6d 65 cord an error me
6200: 73 73 61 67 65 20 69 6e 20 74 68 65 20 67 6c 6f ssage in the glo
6210: 62 61 6c 20 67 2e 7a 45 72 72 4d 73 67 20 76 61 bal g.zErrMsg va
6220: 72 69 61 62 6c 65 2e 0a 2a 2a 0a 2a 2a 20 49 66 riable..**.** If
6230: 20 74 68 65 72 65 20 69 73 20 61 6c 72 65 61 64 there is alread
6240: 79 20 61 6e 6f 74 68 65 72 20 65 72 72 6f 72 20 y another error
6250: 6d 65 73 73 61 67 65 2c 20 6f 6e 6c 79 20 6f 76 message, only ov
6260: 65 72 77 72 69 74 65 20 69 74 20 69 66 0a 2a 2a erwrite it if.**
6270: 20 74 68 65 20 63 75 72 72 65 6e 74 20 65 72 72 the current err
6280: 6f 72 20 68 61 73 20 61 20 68 69 67 68 65 72 20 or has a higher
6290: 70 72 69 6f 72 69 74 79 2e 0a 2a 2f 0a 76 6f 69 priority..*/.voi
62a0: 64 20 66 6f 73 73 69 6c 5f 65 72 72 6f 72 28 69 d fossil_error(i
62b0: 6e 74 20 69 50 72 69 6f 72 69 74 79 2c 20 63 6f nt iPriority, co
62c0: 6e 73 74 20 63 68 61 72 20 2a 7a 46 6f 72 6d 61 nst char *zForma
62d0: 74 2c 20 2e 2e 2e 29 7b 0a 20 20 76 61 5f 6c 69 t, ...){. va_li
62e0: 73 74 20 61 70 3b 0a 20 20 69 66 28 20 69 50 72 st ap;. if( iPr
62f0: 69 6f 72 69 74 79 3c 3d 30 20 29 7b 0a 20 20 20 iority<=0 ){.
6300: 20 72 65 74 75 72 6e 3b 0a 20 20 7d 0a 20 20 69 return;. }. i
6310: 66 28 20 67 2e 7a 45 72 72 4d 73 67 20 29 7b 0a f( g.zErrMsg ){.
6320: 20 20 20 20 69 66 28 20 67 2e 69 45 72 72 50 72 if( g.iErrPr
6330: 69 6f 72 69 74 79 3e 3d 69 50 72 69 6f 72 69 74 iority>=iPriorit
6340: 79 20 29 7b 0a 20 20 20 20 20 20 72 65 74 75 72 y ){. retur
6350: 6e 3b 0a 20 20 20 20 7d 0a 20 20 20 20 66 72 65 n;. }. fre
6360: 65 28 67 2e 7a 45 72 72 4d 73 67 29 3b 0a 20 20 e(g.zErrMsg);.
6370: 7d 0a 20 20 76 61 5f 73 74 61 72 74 28 61 70 2c }. va_start(ap,
6380: 20 7a 46 6f 72 6d 61 74 29 3b 0a 20 20 67 2e 7a zFormat);. g.z
6390: 45 72 72 4d 73 67 20 3d 20 76 6d 70 72 69 6e 74 ErrMsg = vmprint
63a0: 66 28 7a 46 6f 72 6d 61 74 2c 20 61 70 29 3b 0a f(zFormat, ap);.
63b0: 20 20 76 61 5f 65 6e 64 28 61 70 29 3b 0a 20 20 va_end(ap);.
63c0: 67 2e 69 45 72 72 50 72 69 6f 72 69 74 79 20 3d g.iErrPriority =
63d0: 20 69 50 72 69 6f 72 69 74 79 3b 0a 7d 0a 76 6f iPriority;.}.vo
63e0: 69 64 20 66 6f 73 73 69 6c 5f 65 72 72 6f 72 5f id fossil_error_
63f0: 72 65 73 65 74 28 76 6f 69 64 29 7b 0a 20 20 66 reset(void){. f
6400: 72 65 65 28 67 2e 7a 45 72 72 4d 73 67 29 3b 0a ree(g.zErrMsg);.
6410: 20 20 67 2e 7a 45 72 72 4d 73 67 20 3d 20 30 3b g.zErrMsg = 0;
6420: 0a 20 20 67 2e 69 45 72 72 50 72 69 6f 72 69 74 . g.iErrPriorit
6430: 79 20 3d 20 30 3b 0a 7d 0a y = 0;.}.