0000: 2f 2a 0a 2a 2a 20 54 68 65 20 22 70 72 69 6e 74 /*.** The "print
0010: 66 22 20 63 6f 64 65 20 74 68 61 74 20 66 6f 6c f" code that fol
0020: 6c 6f 77 73 20 64 61 74 65 73 20 66 72 6f 6d 20 lows dates from
0030: 74 68 65 20 31 39 38 30 27 73 2e 20 20 49 74 20 the 1980's. It
0040: 69 73 20 69 6e 0a 2a 2a 20 74 68 65 20 70 75 62 is in.** the pub
0050: 6c 69 63 20 64 6f 6d 61 69 6e 2e 20 20 54 68 65 lic domain. The
0060: 20 6f 72 69 67 69 6e 61 6c 20 63 6f 6d 6d 65 6e original commen
0070: 74 73 20 61 72 65 20 69 6e 63 6c 75 64 65 64 20 ts are included
0080: 68 65 72 65 20 66 6f 72 0a 2a 2a 20 63 6f 6d 70 here for.** comp
0090: 6c 65 74 65 6e 65 73 73 2e 20 20 54 68 65 79 20 leteness. They
00a0: 61 72 65 20 76 65 72 79 20 6f 75 74 2d 6f 66 2d are very out-of-
00b0: 64 61 74 65 20 62 75 74 20 6d 69 67 68 74 20 62 date but might b
00c0: 65 20 75 73 65 66 75 6c 20 61 73 0a 2a 2a 20 61 e useful as.** a
00d0: 6e 20 68 69 73 74 6f 72 69 63 61 6c 20 72 65 66 n historical ref
00e0: 65 72 65 6e 63 65 2e 20 20 4d 6f 73 74 20 6f 66 erence. Most of
00f0: 20 74 68 65 20 22 65 6e 68 61 6e 63 65 6d 65 6e the "enhancemen
0100: 74 73 22 20 68 61 76 65 20 62 65 65 6e 20 62 61 ts" have been ba
0110: 63 6b 65 64 0a 2a 2a 20 6f 75 74 20 73 6f 20 74 cked.** out so t
0120: 68 61 74 20 74 68 65 20 66 75 6e 63 74 69 6f 6e hat the function
0130: 61 6c 69 74 79 20 69 73 20 6e 6f 77 20 74 68 65 ality is now the
0140: 20 73 61 6d 65 20 61 73 20 73 74 61 6e 64 61 72 same as standar
0150: 64 20 70 72 69 6e 74 66 28 29 2e 0a 2a 2a 0a 2a d printf()..**.*
0160: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0170: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0180: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0190: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
01a0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 2a 2a 0a 2a 2a 20 *********.**.**
01b0: 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 6d 6f The following mo
01c0: 64 75 6c 65 73 20 69 73 20 61 6e 20 65 6e 68 61 dules is an enha
01d0: 6e 63 65 64 20 72 65 70 6c 61 63 65 6d 65 6e 74 nced replacement
01e0: 20 66 6f 72 20 74 68 65 20 22 70 72 69 6e 74 66 for the "printf
01f0: 22 20 73 75 62 72 6f 75 74 69 6e 65 73 0a 2a 2a " subroutines.**
0200: 20 66 6f 75 6e 64 20 69 6e 20 74 68 65 20 73 74 found in the st
0210: 61 6e 64 61 72 64 20 43 20 6c 69 62 72 61 72 79 andard C library
0220: 2e 20 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 . The following
0230: 20 65 6e 68 61 6e 63 65 6d 65 6e 74 73 20 61 72 enhancements ar
0240: 65 0a 2a 2a 20 73 75 70 70 6f 72 74 65 64 3a 0a e.** supported:.
0250: 2a 2a 0a 2a 2a 20 20 20 20 20 20 2b 20 20 41 64 **.** + Ad
0260: 64 69 74 69 6f 6e 61 6c 20 66 75 6e 63 74 69 6f ditional functio
0270: 6e 73 2e 20 20 54 68 65 20 73 74 61 6e 64 61 72 ns. The standar
0280: 64 20 73 65 74 20 6f 66 20 22 70 72 69 6e 74 66 d set of "printf
0290: 22 20 66 75 6e 63 74 69 6f 6e 73 0a 2a 2a 20 20 " functions.**
02a0: 20 20 20 20 20 20 20 69 6e 63 6c 75 64 65 73 20 includes
02b0: 70 72 69 6e 74 66 2c 20 66 70 72 69 6e 74 66 2c printf, fprintf,
02c0: 20 73 70 72 69 6e 74 66 2c 20 76 70 72 69 6e 74 sprintf, vprint
02d0: 66 2c 20 76 66 70 72 69 6e 74 66 2c 20 61 6e 64 f, vfprintf, and
02e0: 0a 2a 2a 20 20 20 20 20 20 20 20 20 76 73 70 72 .** vspr
02f0: 69 6e 74 66 2e 20 20 54 68 69 73 20 6d 6f 64 75 intf. This modu
0300: 6c 65 20 61 64 64 73 20 74 68 65 20 66 6f 6c 6c le adds the foll
0310: 6f 77 69 6e 67 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 owing:.**.**
0320: 20 20 20 20 20 20 20 2a 20 20 73 6e 70 72 69 6e * snprin
0330: 74 66 20 2d 2d 20 57 6f 72 6b 73 20 6c 69 6b 65 tf -- Works like
0340: 20 73 70 72 69 6e 74 66 2c 20 62 75 74 20 68 61 sprintf, but ha
0350: 73 20 61 6e 20 65 78 74 72 61 20 61 72 67 75 6d s an extra argum
0360: 65 6e 74 0a 2a 2a 20 20 20 20 20 20 20 20 20 20 ent.**
0370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0380: 77 68 69 63 68 20 69 73 20 74 68 65 20 73 69 7a which is the siz
0390: 65 20 6f 66 20 74 68 65 20 62 75 66 66 65 72 20 e of the buffer
03a0: 77 72 69 74 74 65 6e 20 74 6f 2e 0a 2a 2a 0a 2a written to..**.*
03b0: 2a 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 6d * * m
03c0: 70 72 69 6e 74 66 20 2d 2d 20 20 53 69 6d 69 6c printf -- Simil
03d0: 61 72 20 74 6f 20 73 70 72 69 6e 74 66 2e 20 20 ar to sprintf.
03e0: 57 72 69 74 65 73 20 6f 75 74 70 75 74 20 74 6f Writes output to
03f0: 20 6d 65 6d 6f 72 79 0a 2a 2a 20 20 20 20 20 20 memory.**
0400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0410: 20 20 20 20 6f 62 74 61 69 6e 65 64 20 66 72 6f obtained fro
0420: 6d 20 6d 61 6c 6c 6f 63 2e 0a 2a 2a 0a 2a 2a 20 m malloc..**.**
0430: 20 20 20 20 20 20 20 20 20 20 2a 20 20 78 70 72 * xpr
0440: 69 6e 74 66 20 2d 2d 20 20 43 61 6c 6c 73 20 61 intf -- Calls a
0450: 20 66 75 6e 63 74 69 6f 6e 20 74 6f 20 64 69 73 function to dis
0460: 70 6f 73 65 20 6f 66 20 6f 75 74 70 75 74 2e 0a pose of output..
0470: 2a 2a 0a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 **.**
0480: 2a 20 20 6e 70 72 69 6e 74 66 20 2d 2d 20 20 4e * nprintf -- N
0490: 6f 20 6f 75 74 70 75 74 2c 20 62 75 74 20 72 65 o output, but re
04a0: 74 75 72 6e 73 20 74 68 65 20 6e 75 6d 62 65 72 turns the number
04b0: 20 6f 66 20 63 68 61 72 61 63 74 65 72 73 0a 2a of characters.*
04c0: 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 *
04d0: 20 20 20 20 20 20 20 20 20 20 20 74 68 61 74 20 that
04e0: 77 6f 75 6c 64 20 68 61 76 65 20 62 65 65 6e 20 would have been
04f0: 6f 75 74 70 75 74 20 62 79 20 70 72 69 6e 74 66 output by printf
0500: 2e 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 20 20 20 ..**.**
0510: 20 20 2a 20 20 41 20 76 2d 20 76 65 72 73 69 6f * A v- versio
0520: 6e 20 28 65 78 3a 20 76 73 6e 70 72 69 6e 74 66 n (ex: vsnprintf
0530: 29 20 6f 66 20 65 76 65 72 79 20 66 75 6e 63 74 ) of every funct
0540: 69 6f 6e 20 69 73 20 61 6c 73 6f 0a 2a 2a 20 20 ion is also.**
0550: 20 20 20 20 20 20 20 20 20 20 20 20 73 75 70 70 supp
0560: 6c 69 65 64 2e 0a 2a 2a 0a 2a 2a 20 20 20 20 20 lied..**.**
0570: 20 2b 20 20 41 20 66 65 77 20 65 78 74 65 6e 73 + A few extens
0580: 69 6f 6e 73 20 74 6f 20 74 68 65 20 66 6f 72 6d ions to the form
0590: 61 74 74 69 6e 67 20 6e 6f 74 61 74 69 6f 6e 20 atting notation
05a0: 61 72 65 20 73 75 70 70 6f 72 74 65 64 3a 0a 2a are supported:.*
05b0: 2a 0a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 2a *.** *
05c0: 20 20 54 68 65 20 22 3d 22 20 66 6c 61 67 20 28 The "=" flag (
05d0: 73 69 6d 69 6c 61 72 20 74 6f 20 22 2d 22 29 20 similar to "-")
05e0: 63 61 75 73 65 73 20 74 68 65 20 6f 75 74 70 75 causes the outpu
05f0: 74 20 74 6f 20 62 65 0a 2a 2a 20 20 20 20 20 20 t to be.**
0600: 20 20 20 20 20 20 20 20 62 65 20 63 65 6e 74 65 be cente
0610: 72 65 64 20 69 6e 20 74 68 65 20 61 70 70 72 6f red in the appro
0620: 70 72 69 61 74 65 6c 79 20 73 69 7a 65 64 20 66 priately sized f
0630: 69 65 6c 64 2e 0a 2a 2a 0a 2a 2a 20 20 20 20 20 ield..**.**
0640: 20 20 20 20 20 20 2a 20 20 54 68 65 20 25 62 20 * The %b
0650: 66 69 65 6c 64 20 6f 75 74 70 75 74 73 20 61 6e field outputs an
0660: 20 69 6e 74 65 67 65 72 20 69 6e 20 62 69 6e 61 integer in bina
0670: 72 79 20 6e 6f 74 61 74 69 6f 6e 2e 0a 2a 2a 0a ry notation..**.
0680: 2a 2a 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 ** *
0690: 54 68 65 20 25 63 20 66 69 65 6c 64 20 6e 6f 77 The %c field now
06a0: 20 61 63 63 65 70 74 73 20 61 20 70 72 65 63 69 accepts a preci
06b0: 73 69 6f 6e 2e 20 20 54 68 65 20 63 68 61 72 61 sion. The chara
06c0: 63 74 65 72 20 6f 75 74 70 75 74 0a 2a 2a 20 20 cter output.**
06d0: 20 20 20 20 20 20 20 20 20 20 20 20 69 73 20 72 is r
06e0: 65 70 65 61 74 65 64 20 62 79 20 74 68 65 20 6e epeated by the n
06f0: 75 6d 62 65 72 20 6f 66 20 74 69 6d 65 73 20 74 umber of times t
0700: 68 65 20 70 72 65 63 69 73 69 6f 6e 20 73 70 65 he precision spe
0710: 63 69 66 69 65 73 2e 0a 2a 2a 0a 2a 2a 20 20 20 cifies..**.**
0720: 20 20 20 20 20 20 20 20 2a 20 20 54 68 65 20 25 * The %
0730: 27 20 66 69 65 6c 64 20 77 6f 72 6b 73 20 6c 69 ' field works li
0740: 6b 65 20 25 63 2c 20 62 75 74 20 74 61 6b 65 73 ke %c, but takes
0750: 20 61 73 20 69 74 73 20 63 68 61 72 61 63 74 65 as its characte
0760: 72 20 74 68 65 0a 2a 2a 20 20 20 20 20 20 20 20 r the.**
0770: 20 20 20 20 20 20 6e 65 78 74 20 63 68 61 72 61 next chara
0780: 63 74 65 72 20 6f 66 20 74 68 65 20 66 6f 72 6d cter of the form
0790: 61 74 20 73 74 72 69 6e 67 2c 20 69 6e 73 74 65 at string, inste
07a0: 61 64 20 6f 66 20 74 68 65 20 6e 65 78 74 0a 2a ad of the next.*
07b0: 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 * a
07c0: 72 67 75 6d 65 6e 74 2e 20 20 46 6f 72 20 65 78 rgument. For ex
07d0: 61 6d 70 6c 65 2c 20 20 70 72 69 6e 74 66 28 22 ample, printf("
07e0: 25 2e 37 38 27 2d 22 29 20 20 70 72 69 6e 74 73 %.78'-") prints
07f0: 20 37 38 20 6d 69 6e 75 73 0a 2a 2a 20 20 20 20 78 minus.**
0800: 20 20 20 20 20 20 20 20 20 20 73 69 67 6e 73 2c signs,
0810: 20 74 68 65 20 73 61 6d 65 20 61 73 20 20 70 72 the same as pr
0820: 69 6e 74 66 28 22 25 2e 37 38 63 22 2c 27 2d 27 intf("%.78c",'-'
0830: 29 2e 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 2b 20 )..**.** +
0840: 20 57 68 65 6e 20 63 6f 6d 70 69 6c 65 64 20 75 When compiled u
0850: 73 69 6e 67 20 47 43 43 20 6f 6e 20 61 20 53 50 sing GCC on a SP
0860: 41 52 43 2c 20 74 68 69 73 20 76 65 72 73 69 6f ARC, this versio
0870: 6e 20 6f 66 20 70 72 69 6e 74 66 20 69 73 0a 2a n of printf is.*
0880: 2a 20 20 20 20 20 20 20 20 20 66 61 73 74 65 72 * faster
0890: 20 74 68 61 6e 20 74 68 65 20 6c 69 62 72 61 72 than the librar
08a0: 79 20 70 72 69 6e 74 66 20 66 6f 72 20 53 55 4e y printf for SUN
08b0: 20 4f 53 20 34 2e 31 2e 0a 2a 2a 0a 2a 2a 20 20 OS 4.1..**.**
08c0: 20 20 20 20 2b 20 20 41 6c 6c 20 66 75 6e 63 74 + All funct
08d0: 69 6f 6e 73 20 61 72 65 20 66 75 6c 6c 79 20 72 ions are fully r
08e0: 65 65 6e 74 72 61 6e 74 2e 0a 2a 2a 0a 2a 2f 0a eentrant..**.*/.
08f0: 23 69 6e 63 6c 75 64 65 20 22 73 71 6c 69 74 65 #include "sqlite
0900: 49 6e 74 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 Int.h".#include
0910: 3c 6d 61 74 68 2e 68 3e 0a 0a 2f 2a 0a 2a 2a 20 <math.h>../*.**
0920: 43 6f 6e 76 65 72 73 69 6f 6e 20 74 79 70 65 73 Conversion types
0930: 20 66 61 6c 6c 20 69 6e 74 6f 20 76 61 72 69 6f fall into vario
0940: 75 73 20 63 61 74 65 67 6f 72 69 65 73 20 61 73 us categories as
0950: 20 64 65 66 69 6e 65 64 20 62 79 20 74 68 65 0a defined by the.
0960: 2a 2a 20 66 6f 6c 6c 6f 77 69 6e 67 20 65 6e 75 ** following enu
0970: 6d 65 72 61 74 69 6f 6e 2e 0a 2a 2f 0a 23 64 65 meration..*/.#de
0980: 66 69 6e 65 20 65 74 52 41 44 49 58 20 20 20 20 fine etRADIX
0990: 20 20 20 31 20 2f 2a 20 49 6e 74 65 67 65 72 20 1 /* Integer
09a0: 74 79 70 65 73 2e 20 20 25 64 2c 20 25 78 2c 20 types. %d, %x,
09b0: 25 6f 2c 20 61 6e 64 20 73 6f 20 66 6f 72 74 68 %o, and so forth
09c0: 20 2a 2f 0a 23 64 65 66 69 6e 65 20 65 74 46 4c */.#define etFL
09d0: 4f 41 54 20 20 20 20 20 20 20 32 20 2f 2a 20 46 OAT 2 /* F
09e0: 6c 6f 61 74 69 6e 67 20 70 6f 69 6e 74 2e 20 20 loating point.
09f0: 25 66 20 2a 2f 0a 23 64 65 66 69 6e 65 20 65 74 %f */.#define et
0a00: 45 58 50 20 20 20 20 20 20 20 20 20 33 20 2f 2a EXP 3 /*
0a10: 20 45 78 70 6f 6e 65 6e 74 69 6f 6e 61 6c 20 6e Exponentional n
0a20: 6f 74 61 74 69 6f 6e 2e 20 25 65 20 61 6e 64 20 otation. %e and
0a30: 25 45 20 2a 2f 0a 23 64 65 66 69 6e 65 20 65 74 %E */.#define et
0a40: 47 45 4e 45 52 49 43 20 20 20 20 20 34 20 2f 2a GENERIC 4 /*
0a50: 20 46 6c 6f 61 74 69 6e 67 20 6f 72 20 65 78 70 Floating or exp
0a60: 6f 6e 65 6e 74 69 61 6c 2c 20 64 65 70 65 6e 64 onential, depend
0a70: 69 6e 67 20 6f 6e 20 65 78 70 6f 6e 65 6e 74 2e ing on exponent.
0a80: 20 25 67 20 2a 2f 0a 23 64 65 66 69 6e 65 20 65 %g */.#define e
0a90: 74 53 49 5a 45 20 20 20 20 20 20 20 20 35 20 2f tSIZE 5 /
0aa0: 2a 20 52 65 74 75 72 6e 20 6e 75 6d 62 65 72 20 * Return number
0ab0: 6f 66 20 63 68 61 72 61 63 74 65 72 73 20 70 72 of characters pr
0ac0: 6f 63 65 73 73 65 64 20 73 6f 20 66 61 72 2e 20 ocessed so far.
0ad0: 25 6e 20 2a 2f 0a 23 64 65 66 69 6e 65 20 65 74 %n */.#define et
0ae0: 53 54 52 49 4e 47 20 20 20 20 20 20 36 20 2f 2a STRING 6 /*
0af0: 20 53 74 72 69 6e 67 73 2e 20 25 73 20 2a 2f 0a Strings. %s */.
0b00: 23 64 65 66 69 6e 65 20 65 74 44 59 4e 53 54 52 #define etDYNSTR
0b10: 49 4e 47 20 20 20 37 20 2f 2a 20 44 79 6e 61 6d ING 7 /* Dynam
0b20: 69 63 61 6c 6c 79 20 61 6c 6c 6f 63 61 74 65 64 ically allocated
0b30: 20 73 74 72 69 6e 67 73 2e 20 25 7a 20 2a 2f 0a strings. %z */.
0b40: 23 64 65 66 69 6e 65 20 65 74 50 45 52 43 45 4e #define etPERCEN
0b50: 54 20 20 20 20 20 38 20 2f 2a 20 50 65 72 63 65 T 8 /* Perce
0b60: 6e 74 20 73 79 6d 62 6f 6c 2e 20 25 25 20 2a 2f nt symbol. %% */
0b70: 0a 23 64 65 66 69 6e 65 20 65 74 43 48 41 52 58 .#define etCHARX
0b80: 20 20 20 20 20 20 20 39 20 2f 2a 20 43 68 61 72 9 /* Char
0b90: 61 63 74 65 72 73 2e 20 25 63 20 2a 2f 0a 2f 2a acters. %c */./*
0ba0: 20 54 68 65 20 72 65 73 74 20 61 72 65 20 65 78 The rest are ex
0bb0: 74 65 6e 73 69 6f 6e 73 2c 20 6e 6f 74 20 6e 6f tensions, not no
0bc0: 72 6d 61 6c 6c 79 20 66 6f 75 6e 64 20 69 6e 20 rmally found in
0bd0: 70 72 69 6e 74 66 28 29 20 2a 2f 0a 23 64 65 66 printf() */.#def
0be0: 69 6e 65 20 65 74 43 48 41 52 4c 49 54 20 20 20 ine etCHARLIT
0bf0: 20 31 30 20 2f 2a 20 4c 69 74 65 72 61 6c 20 63 10 /* Literal c
0c00: 68 61 72 61 63 74 65 72 73 2e 20 20 25 27 20 2a haracters. %' *
0c10: 2f 0a 23 64 65 66 69 6e 65 20 65 74 53 51 4c 45 /.#define etSQLE
0c20: 53 43 41 50 45 20 20 31 31 20 2f 2a 20 53 74 72 SCAPE 11 /* Str
0c30: 69 6e 67 73 20 77 69 74 68 20 27 5c 27 27 20 64 ings with '\'' d
0c40: 6f 75 62 6c 65 64 2e 20 20 25 71 20 2a 2f 0a 23 oubled. %q */.#
0c50: 64 65 66 69 6e 65 20 65 74 53 51 4c 45 53 43 41 define etSQLESCA
0c60: 50 45 32 20 31 32 20 2f 2a 20 53 74 72 69 6e 67 PE2 12 /* String
0c70: 73 20 77 69 74 68 20 27 5c 27 27 20 64 6f 75 62 s with '\'' doub
0c80: 6c 65 64 20 61 6e 64 20 65 6e 63 6c 6f 73 65 64 led and enclosed
0c90: 20 69 6e 20 27 27 2c 0a 20 20 20 20 20 20 20 20 in '',.
0ca0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0cb0: 20 20 4e 55 4c 4c 20 70 6f 69 6e 74 65 72 73 20 NULL pointers
0cc0: 72 65 70 6c 61 63 65 64 20 62 79 20 53 51 4c 20 replaced by SQL
0cd0: 4e 55 4c 4c 2e 20 20 25 51 20 2a 2f 0a 23 64 65 NULL. %Q */.#de
0ce0: 66 69 6e 65 20 65 74 54 4f 4b 45 4e 20 20 20 20 fine etTOKEN
0cf0: 20 20 31 33 20 2f 2a 20 61 20 70 6f 69 6e 74 65 13 /* a pointe
0d00: 72 20 74 6f 20 61 20 54 6f 6b 65 6e 20 73 74 72 r to a Token str
0d10: 75 63 74 75 72 65 20 2a 2f 0a 23 64 65 66 69 6e ucture */.#defin
0d20: 65 20 65 74 53 52 43 4c 49 53 54 20 20 20 20 31 e etSRCLIST 1
0d30: 34 20 2f 2a 20 61 20 70 6f 69 6e 74 65 72 20 74 4 /* a pointer t
0d40: 6f 20 61 20 53 72 63 4c 69 73 74 20 2a 2f 0a 23 o a SrcList */.#
0d50: 64 65 66 69 6e 65 20 65 74 50 4f 49 4e 54 45 52 define etPOINTER
0d60: 20 20 20 20 31 35 20 2f 2a 20 54 68 65 20 25 70 15 /* The %p
0d70: 20 63 6f 6e 76 65 72 73 69 6f 6e 20 2a 2f 0a 0a conversion */..
0d80: 0a 2f 2a 0a 2a 2a 20 41 6e 20 22 65 74 42 79 74 ./*.** An "etByt
0d90: 65 22 20 69 73 20 61 6e 20 38 2d 62 69 74 20 75 e" is an 8-bit u
0da0: 6e 73 69 67 6e 65 64 20 76 61 6c 75 65 2e 0a 2a nsigned value..*
0db0: 2f 0a 74 79 70 65 64 65 66 20 75 6e 73 69 67 6e /.typedef unsign
0dc0: 65 64 20 63 68 61 72 20 65 74 42 79 74 65 3b 0a ed char etByte;.
0dd0: 0a 2f 2a 0a 2a 2a 20 45 61 63 68 20 62 75 69 6c ./*.** Each buil
0de0: 74 69 6e 20 63 6f 6e 76 65 72 73 69 6f 6e 20 63 tin conversion c
0df0: 68 61 72 61 63 74 65 72 20 28 65 78 3a 20 74 68 haracter (ex: th
0e00: 65 20 27 64 27 20 69 6e 20 22 25 64 22 29 20 69 e 'd' in "%d") i
0e10: 73 20 64 65 73 63 72 69 62 65 64 0a 2a 2a 20 62 s described.** b
0e20: 79 20 61 6e 20 69 6e 73 74 61 6e 63 65 20 6f 66 y an instance of
0e30: 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 the following s
0e40: 74 72 75 63 74 75 72 65 0a 2a 2f 0a 74 79 70 65 tructure.*/.type
0e50: 64 65 66 20 73 74 72 75 63 74 20 65 74 5f 69 6e def struct et_in
0e60: 66 6f 20 7b 20 20 20 2f 2a 20 49 6e 66 6f 72 6d fo { /* Inform
0e70: 61 74 69 6f 6e 20 61 62 6f 75 74 20 65 61 63 68 ation about each
0e80: 20 66 6f 72 6d 61 74 20 66 69 65 6c 64 20 2a 2f format field */
0e90: 0a 20 20 63 68 61 72 20 66 6d 74 74 79 70 65 3b . char fmttype;
0ea0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 /* T
0eb0: 68 65 20 66 6f 72 6d 61 74 20 66 69 65 6c 64 20 he format field
0ec0: 63 6f 64 65 20 6c 65 74 74 65 72 20 2a 2f 0a 20 code letter */.
0ed0: 20 65 74 42 79 74 65 20 62 61 73 65 3b 20 20 20 etByte base;
0ee0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 68 65 /* The
0ef0: 20 62 61 73 65 20 66 6f 72 20 72 61 64 69 78 20 base for radix
0f00: 63 6f 6e 76 65 72 73 69 6f 6e 20 2a 2f 0a 20 20 conversion */.
0f10: 65 74 42 79 74 65 20 66 6c 61 67 73 3b 20 20 20 etByte flags;
0f20: 20 20 20 20 20 20 20 20 20 2f 2a 20 4f 6e 65 20 /* One
0f30: 6f 72 20 6d 6f 72 65 20 6f 66 20 46 4c 41 47 5f or more of FLAG_
0f40: 20 63 6f 6e 73 74 61 6e 74 73 20 62 65 6c 6f 77 constants below
0f50: 20 2a 2f 0a 20 20 65 74 42 79 74 65 20 74 79 70 */. etByte typ
0f60: 65 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 2f e; /
0f70: 2a 20 43 6f 6e 76 65 72 73 69 6f 6e 20 70 61 72 * Conversion par
0f80: 61 64 69 67 6d 20 2a 2f 0a 20 20 65 74 42 79 74 adigm */. etByt
0f90: 65 20 63 68 61 72 73 65 74 3b 20 20 20 20 20 20 e charset;
0fa0: 20 20 20 20 2f 2a 20 4f 66 66 73 65 74 20 69 6e /* Offset in
0fb0: 74 6f 20 61 44 69 67 69 74 73 5b 5d 20 6f 66 20 to aDigits[] of
0fc0: 74 68 65 20 64 69 67 69 74 73 20 73 74 72 69 6e the digits strin
0fd0: 67 20 2a 2f 0a 20 20 65 74 42 79 74 65 20 70 72 g */. etByte pr
0fe0: 65 66 69 78 3b 20 20 20 20 20 20 20 20 20 20 20 efix;
0ff0: 2f 2a 20 4f 66 66 73 65 74 20 69 6e 74 6f 20 61 /* Offset into a
1000: 50 72 65 66 69 78 5b 5d 20 6f 66 20 74 68 65 20 Prefix[] of the
1010: 70 72 65 66 69 78 20 73 74 72 69 6e 67 20 2a 2f prefix string */
1020: 0a 7d 20 65 74 5f 69 6e 66 6f 3b 0a 0a 2f 2a 0a .} et_info;../*.
1030: 2a 2a 20 41 6c 6c 6f 77 65 64 20 76 61 6c 75 65 ** Allowed value
1040: 73 20 66 6f 72 20 65 74 5f 69 6e 66 6f 2e 66 6c s for et_info.fl
1050: 61 67 73 0a 2a 2f 0a 23 64 65 66 69 6e 65 20 46 ags.*/.#define F
1060: 4c 41 47 5f 53 49 47 4e 45 44 20 20 31 20 20 20 LAG_SIGNED 1
1070: 20 20 2f 2a 20 54 72 75 65 20 69 66 20 74 68 65 /* True if the
1080: 20 76 61 6c 75 65 20 74 6f 20 63 6f 6e 76 65 72 value to conver
1090: 74 20 69 73 20 73 69 67 6e 65 64 20 2a 2f 0a 23 t is signed */.#
10a0: 64 65 66 69 6e 65 20 46 4c 41 47 5f 49 4e 54 45 define FLAG_INTE
10b0: 52 4e 20 20 32 20 20 20 20 20 2f 2a 20 54 72 75 RN 2 /* Tru
10c0: 65 20 69 66 20 66 6f 72 20 69 6e 74 65 72 6e 61 e if for interna
10d0: 6c 20 75 73 65 20 6f 6e 6c 79 20 2a 2f 0a 23 64 l use only */.#d
10e0: 65 66 69 6e 65 20 46 4c 41 47 5f 53 54 52 49 4e efine FLAG_STRIN
10f0: 47 20 20 34 20 20 20 20 20 2f 2a 20 41 6c 6c 6f G 4 /* Allo
1100: 77 20 69 6e 66 69 6e 69 74 79 20 70 72 65 63 69 w infinity preci
1110: 73 69 6f 6e 20 2a 2f 0a 0a 0a 2f 2a 0a 2a 2a 20 sion */.../*.**
1120: 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 61 The following ta
1130: 62 6c 65 20 69 73 20 73 65 61 72 63 68 65 64 20 ble is searched
1140: 6c 69 6e 65 61 72 6c 79 2c 20 73 6f 20 69 74 20 linearly, so it
1150: 69 73 20 67 6f 6f 64 20 74 6f 20 70 75 74 20 74 is good to put t
1160: 68 65 0a 2a 2a 20 6d 6f 73 74 20 66 72 65 71 75 he.** most frequ
1170: 65 6e 74 6c 79 20 75 73 65 64 20 63 6f 6e 76 65 ently used conve
1180: 72 73 69 6f 6e 20 74 79 70 65 73 20 66 69 72 73 rsion types firs
1190: 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 63 6f 6e t..*/.static con
11a0: 73 74 20 63 68 61 72 20 61 44 69 67 69 74 73 5b st char aDigits[
11b0: 5d 20 3d 20 22 30 31 32 33 34 35 36 37 38 39 41 ] = "0123456789A
11c0: 42 43 44 45 46 30 31 32 33 34 35 36 37 38 39 61 BCDEF0123456789a
11d0: 62 63 64 65 66 22 3b 0a 73 74 61 74 69 63 20 63 bcdef";.static c
11e0: 6f 6e 73 74 20 63 68 61 72 20 61 50 72 65 66 69 onst char aPrefi
11f0: 78 5b 5d 20 3d 20 22 2d 78 30 5c 30 30 30 58 30 x[] = "-x0\000X0
1200: 22 3b 0a 73 74 61 74 69 63 20 63 6f 6e 73 74 20 ";.static const
1210: 65 74 5f 69 6e 66 6f 20 66 6d 74 69 6e 66 6f 5b et_info fmtinfo[
1220: 5d 20 3d 20 7b 0a 20 20 7b 20 20 27 64 27 2c 20 ] = {. { 'd',
1230: 31 30 2c 20 31 2c 20 65 74 52 41 44 49 58 2c 20 10, 1, etRADIX,
1240: 20 20 20 20 20 30 2c 20 20 30 20 7d 2c 0a 20 20 0, 0 },.
1250: 7b 20 20 27 73 27 2c 20 20 30 2c 20 34 2c 20 65 { 's', 0, 4, e
1260: 74 53 54 52 49 4e 47 2c 20 20 20 20 20 30 2c 20 tSTRING, 0,
1270: 20 30 20 7d 2c 0a 20 20 7b 20 20 27 67 27 2c 20 0 },. { 'g',
1280: 20 30 2c 20 31 2c 20 65 74 47 45 4e 45 52 49 43 0, 1, etGENERIC
1290: 2c 20 20 20 20 33 30 2c 20 30 20 7d 2c 0a 20 20 , 30, 0 },.
12a0: 7b 20 20 27 7a 27 2c 20 20 30 2c 20 36 2c 20 65 { 'z', 0, 6, e
12b0: 74 44 59 4e 53 54 52 49 4e 47 2c 20 20 30 2c 20 tDYNSTRING, 0,
12c0: 20 30 20 7d 2c 0a 20 20 7b 20 20 27 71 27 2c 20 0 },. { 'q',
12d0: 20 30 2c 20 34 2c 20 65 74 53 51 4c 45 53 43 41 0, 4, etSQLESCA
12e0: 50 45 2c 20 20 30 2c 20 20 30 20 7d 2c 0a 20 20 PE, 0, 0 },.
12f0: 7b 20 20 27 51 27 2c 20 20 30 2c 20 34 2c 20 65 { 'Q', 0, 4, e
1300: 74 53 51 4c 45 53 43 41 50 45 32 2c 20 30 2c 20 tSQLESCAPE2, 0,
1310: 20 30 20 7d 2c 0a 20 20 7b 20 20 27 63 27 2c 20 0 },. { 'c',
1320: 20 30 2c 20 30 2c 20 65 74 43 48 41 52 58 2c 20 0, 0, etCHARX,
1330: 20 20 20 20 20 30 2c 20 20 30 20 7d 2c 0a 20 20 0, 0 },.
1340: 7b 20 20 27 6f 27 2c 20 20 38 2c 20 30 2c 20 65 { 'o', 8, 0, e
1350: 74 52 41 44 49 58 2c 20 20 20 20 20 20 30 2c 20 tRADIX, 0,
1360: 20 32 20 7d 2c 0a 20 20 7b 20 20 27 75 27 2c 20 2 },. { 'u',
1370: 31 30 2c 20 30 2c 20 65 74 52 41 44 49 58 2c 20 10, 0, etRADIX,
1380: 20 20 20 20 20 30 2c 20 20 30 20 7d 2c 0a 20 20 0, 0 },.
1390: 7b 20 20 27 78 27 2c 20 31 36 2c 20 30 2c 20 65 { 'x', 16, 0, e
13a0: 74 52 41 44 49 58 2c 20 20 20 20 20 20 31 36 2c tRADIX, 16,
13b0: 20 31 20 7d 2c 0a 20 20 7b 20 20 27 58 27 2c 20 1 },. { 'X',
13c0: 31 36 2c 20 30 2c 20 65 74 52 41 44 49 58 2c 20 16, 0, etRADIX,
13d0: 20 20 20 20 20 30 2c 20 20 34 20 7d 2c 0a 23 69 0, 4 },.#i
13e0: 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 fndef SQLITE_OMI
13f0: 54 5f 46 4c 4f 41 54 49 4e 47 5f 50 4f 49 4e 54 T_FLOATING_POINT
1400: 0a 20 20 7b 20 20 27 66 27 2c 20 20 30 2c 20 31 . { 'f', 0, 1
1410: 2c 20 65 74 46 4c 4f 41 54 2c 20 20 20 20 20 20 , etFLOAT,
1420: 30 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 20 27 65 0, 0 },. { 'e
1430: 27 2c 20 20 30 2c 20 31 2c 20 65 74 45 58 50 2c ', 0, 1, etEXP,
1440: 20 20 20 20 20 20 20 20 33 30 2c 20 30 20 7d 2c 30, 0 },
1450: 0a 20 20 7b 20 20 27 45 27 2c 20 20 30 2c 20 31 . { 'E', 0, 1
1460: 2c 20 65 74 45 58 50 2c 20 20 20 20 20 20 20 20 , etEXP,
1470: 31 34 2c 20 30 20 7d 2c 0a 20 20 7b 20 20 27 47 14, 0 },. { 'G
1480: 27 2c 20 20 30 2c 20 31 2c 20 65 74 47 45 4e 45 ', 0, 1, etGENE
1490: 52 49 43 2c 20 20 20 20 31 34 2c 20 30 20 7d 2c RIC, 14, 0 },
14a0: 0a 23 65 6e 64 69 66 0a 20 20 7b 20 20 27 69 27 .#endif. { 'i'
14b0: 2c 20 31 30 2c 20 31 2c 20 65 74 52 41 44 49 58 , 10, 1, etRADIX
14c0: 2c 20 20 20 20 20 20 30 2c 20 20 30 20 7d 2c 0a , 0, 0 },.
14d0: 20 20 7b 20 20 27 6e 27 2c 20 20 30 2c 20 30 2c { 'n', 0, 0,
14e0: 20 65 74 53 49 5a 45 2c 20 20 20 20 20 20 20 30 etSIZE, 0
14f0: 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 20 27 25 27 , 0 },. { '%'
1500: 2c 20 20 30 2c 20 30 2c 20 65 74 50 45 52 43 45 , 0, 0, etPERCE
1510: 4e 54 2c 20 20 20 20 30 2c 20 20 30 20 7d 2c 0a NT, 0, 0 },.
1520: 20 20 7b 20 20 27 70 27 2c 20 31 36 2c 20 30 2c { 'p', 16, 0,
1530: 20 65 74 50 4f 49 4e 54 45 52 2c 20 20 20 20 30 etPOINTER, 0
1540: 2c 20 20 31 20 7d 2c 0a 20 20 7b 20 20 27 54 27 , 1 },. { 'T'
1550: 2c 20 20 30 2c 20 32 2c 20 65 74 54 4f 4b 45 4e , 0, 2, etTOKEN
1560: 2c 20 20 20 20 20 20 30 2c 20 20 30 20 7d 2c 0a , 0, 0 },.
1570: 20 20 7b 20 20 27 53 27 2c 20 20 30 2c 20 32 2c { 'S', 0, 2,
1580: 20 65 74 53 52 43 4c 49 53 54 2c 20 20 20 20 30 etSRCLIST, 0
1590: 2c 20 20 30 20 7d 2c 0a 7d 3b 0a 23 64 65 66 69 , 0 },.};.#defi
15a0: 6e 65 20 65 74 4e 49 4e 46 4f 20 20 28 73 69 7a ne etNINFO (siz
15b0: 65 6f 66 28 66 6d 74 69 6e 66 6f 29 2f 73 69 7a eof(fmtinfo)/siz
15c0: 65 6f 66 28 66 6d 74 69 6e 66 6f 5b 30 5d 29 29 eof(fmtinfo[0]))
15d0: 0a 0a 2f 2a 0a 2a 2a 20 49 66 20 53 51 4c 49 54 ../*.** If SQLIT
15e0: 45 5f 4f 4d 49 54 5f 46 4c 4f 41 54 49 4e 47 5f E_OMIT_FLOATING_
15f0: 50 4f 49 4e 54 20 69 73 20 64 65 66 69 6e 65 64 POINT is defined
1600: 2c 20 74 68 65 6e 20 6e 6f 6e 65 20 6f 66 20 74 , then none of t
1610: 68 65 20 66 6c 6f 61 74 69 6e 67 20 70 6f 69 6e he floating poin
1620: 74 0a 2a 2a 20 63 6f 6e 76 65 72 73 69 6f 6e 73 t.** conversions
1630: 20 77 69 6c 6c 20 77 6f 72 6b 2e 0a 2a 2f 0a 23 will work..*/.#
1640: 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d ifndef SQLITE_OM
1650: 49 54 5f 46 4c 4f 41 54 49 4e 47 5f 50 4f 49 4e IT_FLOATING_POIN
1660: 54 0a 2f 2a 0a 2a 2a 20 22 2a 76 61 6c 22 20 69 T./*.** "*val" i
1670: 73 20 61 20 64 6f 75 62 6c 65 20 73 75 63 68 20 s a double such
1680: 74 68 61 74 20 30 2e 31 20 3c 3d 20 2a 76 61 6c that 0.1 <= *val
1690: 20 3c 20 31 30 2e 30 0a 2a 2a 20 52 65 74 75 72 < 10.0.** Retur
16a0: 6e 20 74 68 65 20 61 73 63 69 69 20 63 6f 64 65 n the ascii code
16b0: 20 66 6f 72 20 74 68 65 20 6c 65 61 64 69 6e 67 for the leading
16c0: 20 64 69 67 69 74 20 6f 66 20 2a 76 61 6c 2c 20 digit of *val,
16d0: 74 68 65 6e 0a 2a 2a 20 6d 75 6c 74 69 70 6c 79 then.** multiply
16e0: 20 22 2a 76 61 6c 22 20 62 79 20 31 30 2e 30 20 "*val" by 10.0
16f0: 74 6f 20 72 65 6e 6f 72 6d 61 6c 69 7a 65 2e 0a to renormalize..
1700: 2a 2a 0a 2a 2a 20 45 78 61 6d 70 6c 65 3a 0a 2a **.** Example:.*
1710: 2a 20 20 20 20 20 69 6e 70 75 74 3a 20 20 20 20 * input:
1720: 20 2a 76 61 6c 20 3d 20 33 2e 31 34 31 35 39 0a *val = 3.14159.
1730: 2a 2a 20 20 20 20 20 6f 75 74 70 75 74 3a 20 20 ** output:
1740: 20 20 2a 76 61 6c 20 3d 20 31 2e 34 31 35 39 20 *val = 1.4159
1750: 20 20 20 66 75 6e 63 74 69 6f 6e 20 72 65 74 75 function retu
1760: 72 6e 20 3d 20 27 33 27 0a 2a 2a 0a 2a 2a 20 54 rn = '3'.**.** T
1770: 68 65 20 63 6f 75 6e 74 65 72 20 2a 63 6e 74 20 he counter *cnt
1780: 69 73 20 69 6e 63 72 65 6d 65 6e 74 65 64 20 65 is incremented e
1790: 61 63 68 20 74 69 6d 65 2e 20 20 41 66 74 65 72 ach time. After
17a0: 20 63 6f 75 6e 74 65 72 20 65 78 63 65 65 64 73 counter exceeds
17b0: 0a 2a 2a 20 31 36 20 28 74 68 65 20 6e 75 6d 62 .** 16 (the numb
17c0: 65 72 20 6f 66 20 73 69 67 6e 69 66 69 63 61 6e er of significan
17d0: 74 20 64 69 67 69 74 73 20 69 6e 20 61 20 36 34 t digits in a 64
17e0: 2d 62 69 74 20 66 6c 6f 61 74 29 20 27 30 27 20 -bit float) '0'
17f0: 69 73 0a 2a 2a 20 61 6c 77 61 79 73 20 72 65 74 is.** always ret
1800: 75 72 6e 65 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 urned..*/.static
1810: 20 69 6e 74 20 65 74 5f 67 65 74 64 69 67 69 74 int et_getdigit
1820: 28 4c 4f 4e 47 44 4f 55 42 4c 45 5f 54 59 50 45 (LONGDOUBLE_TYPE
1830: 20 2a 76 61 6c 2c 20 69 6e 74 20 2a 63 6e 74 29 *val, int *cnt)
1840: 7b 0a 20 20 69 6e 74 20 64 69 67 69 74 3b 0a 20 {. int digit;.
1850: 20 4c 4f 4e 47 44 4f 55 42 4c 45 5f 54 59 50 45 LONGDOUBLE_TYPE
1860: 20 64 3b 0a 20 20 69 66 28 20 28 2a 63 6e 74 29 d;. if( (*cnt)
1870: 2b 2b 20 3e 3d 20 31 36 20 29 20 72 65 74 75 72 ++ >= 16 ) retur
1880: 6e 20 27 30 27 3b 0a 20 20 64 69 67 69 74 20 3d n '0';. digit =
1890: 20 28 69 6e 74 29 2a 76 61 6c 3b 0a 20 20 64 20 (int)*val;. d
18a0: 3d 20 64 69 67 69 74 3b 0a 20 20 64 69 67 69 74 = digit;. digit
18b0: 20 2b 3d 20 27 30 27 3b 0a 20 20 2a 76 61 6c 20 += '0';. *val
18c0: 3d 20 28 2a 76 61 6c 20 2d 20 64 29 2a 31 30 2e = (*val - d)*10.
18d0: 30 3b 0a 20 20 72 65 74 75 72 6e 20 64 69 67 69 0;. return digi
18e0: 74 3b 0a 7d 0a 23 65 6e 64 69 66 20 2f 2a 20 53 t;.}.#endif /* S
18f0: 51 4c 49 54 45 5f 4f 4d 49 54 5f 46 4c 4f 41 54 QLITE_OMIT_FLOAT
1900: 49 4e 47 5f 50 4f 49 4e 54 20 2a 2f 0a 0a 2f 2a ING_POINT */../*
1910: 0a 2a 2a 20 4f 6e 20 6d 61 63 68 69 6e 65 73 20 .** On machines
1920: 77 69 74 68 20 61 20 73 6d 61 6c 6c 20 73 74 61 with a small sta
1930: 63 6b 20 73 69 7a 65 2c 20 79 6f 75 20 63 61 6e ck size, you can
1940: 20 72 65 64 65 66 69 6e 65 20 74 68 65 0a 2a 2a redefine the.**
1950: 20 53 51 4c 49 54 45 5f 50 52 49 4e 54 5f 42 55 SQLITE_PRINT_BU
1960: 46 5f 53 49 5a 45 20 74 6f 20 62 65 20 6c 65 73 F_SIZE to be les
1970: 73 20 74 68 61 6e 20 33 35 30 2e 20 20 42 75 74 s than 350. But
1980: 20 62 65 77 61 72 65 20 2d 20 66 6f 72 0a 2a 2a beware - for.**
1990: 20 73 6d 61 6c 6c 65 72 20 76 61 6c 75 65 73 20 smaller values
19a0: 73 6f 6d 65 20 25 66 20 63 6f 6e 76 65 72 73 69 some %f conversi
19b0: 6f 6e 73 20 6d 61 79 20 67 6f 20 69 6e 74 6f 20 ons may go into
19c0: 61 6e 20 69 6e 66 69 6e 69 74 65 20 6c 6f 6f 70 an infinite loop
19d0: 2e 0a 2a 2f 0a 23 69 66 6e 64 65 66 20 53 51 4c ..*/.#ifndef SQL
19e0: 49 54 45 5f 50 52 49 4e 54 5f 42 55 46 5f 53 49 ITE_PRINT_BUF_SI
19f0: 5a 45 0a 23 20 64 65 66 69 6e 65 20 53 51 4c 49 ZE.# define SQLI
1a00: 54 45 5f 50 52 49 4e 54 5f 42 55 46 5f 53 49 5a TE_PRINT_BUF_SIZ
1a10: 45 20 33 35 30 0a 23 65 6e 64 69 66 0a 23 64 65 E 350.#endif.#de
1a20: 66 69 6e 65 20 65 74 42 55 46 53 49 5a 45 20 53 fine etBUFSIZE S
1a30: 51 4c 49 54 45 5f 50 52 49 4e 54 5f 42 55 46 5f QLITE_PRINT_BUF_
1a40: 53 49 5a 45 20 20 2f 2a 20 53 69 7a 65 20 6f 66 SIZE /* Size of
1a50: 20 74 68 65 20 6f 75 74 70 75 74 20 62 75 66 66 the output buff
1a60: 65 72 20 2a 2f 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 er */../*.** The
1a70: 20 72 6f 6f 74 20 70 72 6f 67 72 61 6d 2e 20 20 root program.
1a80: 41 6c 6c 20 76 61 72 69 61 74 69 6f 6e 73 20 63 All variations c
1a90: 61 6c 6c 20 74 68 69 73 20 63 6f 72 65 2e 0a 2a all this core..*
1aa0: 2a 0a 2a 2a 20 49 4e 50 55 54 53 3a 0a 2a 2a 20 *.** INPUTS:.**
1ab0: 20 20 66 75 6e 63 20 20 20 54 68 69 73 20 69 73 func This is
1ac0: 20 61 20 70 6f 69 6e 74 65 72 20 74 6f 20 61 20 a pointer to a
1ad0: 66 75 6e 63 74 69 6f 6e 20 74 61 6b 69 6e 67 20 function taking
1ae0: 74 68 72 65 65 20 61 72 67 75 6d 65 6e 74 73 0a three arguments.
1af0: 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 31 2e ** 1.
1b00: 20 41 20 70 6f 69 6e 74 65 72 20 74 6f 20 61 6e A pointer to an
1b10: 79 74 68 69 6e 67 2e 20 20 53 61 6d 65 20 61 73 ything. Same as
1b20: 20 74 68 65 20 22 61 72 67 22 20 70 61 72 61 6d the "arg" param
1b30: 65 74 65 72 2e 0a 2a 2a 20 20 20 20 20 20 20 20 eter..**
1b40: 20 20 20 20 32 2e 20 41 20 70 6f 69 6e 74 65 72 2. A pointer
1b50: 20 74 6f 20 74 68 65 20 6c 69 73 74 20 6f 66 20 to the list of
1b60: 63 68 61 72 61 63 74 65 72 73 20 74 6f 20 62 65 characters to be
1b70: 20 6f 75 74 70 75 74 0a 2a 2a 20 20 20 20 20 20 output.**
1b80: 20 20 20 20 20 20 20 20 20 28 4e 6f 74 65 2c 20 (Note,
1b90: 74 68 69 73 20 6c 69 73 74 20 69 73 20 4e 4f 54 this list is NOT
1ba0: 20 6e 75 6c 6c 20 74 65 72 6d 69 6e 61 74 65 64 null terminated
1bb0: 2e 29 0a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 .).**
1bc0: 20 33 2e 20 41 6e 20 69 6e 74 65 67 65 72 20 6e 3. An integer n
1bd0: 75 6d 62 65 72 20 6f 66 20 63 68 61 72 61 63 74 umber of charact
1be0: 65 72 73 20 74 6f 20 62 65 20 6f 75 74 70 75 74 ers to be output
1bf0: 2e 0a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 ..**
1c00: 20 20 20 28 4e 6f 74 65 3a 20 54 68 69 73 20 6e (Note: This n
1c10: 75 6d 62 65 72 20 6d 69 67 68 74 20 62 65 20 7a umber might be z
1c20: 65 72 6f 2e 29 0a 2a 2a 0a 2a 2a 20 20 20 61 72 ero.).**.** ar
1c30: 67 20 20 20 20 54 68 69 73 20 69 73 20 74 68 65 g This is the
1c40: 20 70 6f 69 6e 74 65 72 20 74 6f 20 61 6e 79 74 pointer to anyt
1c50: 68 69 6e 67 20 77 68 69 63 68 20 77 69 6c 6c 20 hing which will
1c60: 62 65 20 70 61 73 73 65 64 20 61 73 20 74 68 65 be passed as the
1c70: 0a 2a 2a 20 20 20 20 20 20 20 20 20 20 66 69 72 .** fir
1c80: 73 74 20 61 72 67 75 6d 65 6e 74 20 74 6f 20 22 st argument to "
1c90: 66 75 6e 63 22 2e 20 20 55 73 65 20 69 74 20 66 func". Use it f
1ca0: 6f 72 20 77 68 61 74 65 76 65 72 20 79 6f 75 20 or whatever you
1cb0: 6c 69 6b 65 2e 0a 2a 2a 0a 2a 2a 20 20 20 66 6d like..**.** fm
1cc0: 74 20 20 20 20 54 68 69 73 20 69 73 20 74 68 65 t This is the
1cd0: 20 66 6f 72 6d 61 74 20 73 74 72 69 6e 67 2c 20 format string,
1ce0: 61 73 20 69 6e 20 74 68 65 20 75 73 75 61 6c 20 as in the usual
1cf0: 70 72 69 6e 74 2e 0a 2a 2a 0a 2a 2a 20 20 20 61 print..**.** a
1d00: 70 20 20 20 20 20 54 68 69 73 20 69 73 20 61 20 p This is a
1d10: 70 6f 69 6e 74 65 72 20 74 6f 20 61 20 6c 69 73 pointer to a lis
1d20: 74 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 2e 20 t of arguments.
1d30: 20 53 61 6d 65 20 61 73 20 69 6e 0a 2a 2a 20 20 Same as in.**
1d40: 20 20 20 20 20 20 20 20 76 66 70 72 69 6e 74 2e vfprint.
1d50: 0a 2a 2a 0a 2a 2a 20 4f 55 54 50 55 54 53 3a 0a .**.** OUTPUTS:.
1d60: 2a 2a 20 20 20 20 20 20 20 20 20 20 54 68 65 20 ** The
1d70: 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73 20 return value is
1d80: 74 68 65 20 74 6f 74 61 6c 20 6e 75 6d 62 65 72 the total number
1d90: 20 6f 66 20 63 68 61 72 61 63 74 65 72 73 20 73 of characters s
1da0: 65 6e 74 20 74 6f 0a 2a 2a 20 20 20 20 20 20 20 ent to.**
1db0: 20 20 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 the function
1dc0: 22 66 75 6e 63 22 2e 20 20 52 65 74 75 72 6e 73 "func". Returns
1dd0: 20 2d 31 20 6f 6e 20 61 20 65 72 72 6f 72 2e 0a -1 on a error..
1de0: 2a 2a 0a 2a 2a 20 4e 6f 74 65 20 74 68 61 74 20 **.** Note that
1df0: 74 68 65 20 6f 72 64 65 72 20 69 6e 20 77 68 69 the order in whi
1e00: 63 68 20 61 75 74 6f 6d 61 74 69 63 20 76 61 72 ch automatic var
1e10: 69 61 62 6c 65 73 20 61 72 65 20 64 65 63 6c 61 iables are decla
1e20: 72 65 64 20 62 65 6c 6f 77 0a 2a 2a 20 73 65 65 red below.** see
1e30: 6d 73 20 74 6f 20 6d 61 6b 65 20 61 20 62 69 67 ms to make a big
1e40: 20 64 69 66 66 65 72 65 6e 63 65 20 69 6e 20 64 difference in d
1e50: 65 74 65 72 6d 69 6e 69 6e 67 20 68 6f 77 20 66 etermining how f
1e60: 61 73 74 20 74 68 69 73 20 62 65 61 73 74 0a 2a ast this beast.*
1e70: 2a 20 77 69 6c 6c 20 72 75 6e 2e 0a 2a 2f 0a 73 * will run..*/.s
1e80: 74 61 74 69 63 20 69 6e 74 20 76 78 70 72 69 6e tatic int vxprin
1e90: 74 66 28 0a 20 20 76 6f 69 64 20 28 2a 66 75 6e tf(. void (*fun
1ea0: 63 29 28 76 6f 69 64 2a 2c 63 6f 6e 73 74 20 63 c)(void*,const c
1eb0: 68 61 72 2a 2c 69 6e 74 29 2c 20 20 20 20 20 2f har*,int), /
1ec0: 2a 20 43 6f 6e 73 75 6d 65 72 20 6f 66 20 74 65 * Consumer of te
1ed0: 78 74 20 2a 2f 0a 20 20 76 6f 69 64 20 2a 61 72 xt */. void *ar
1ee0: 67 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 g,
1ef0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 46 69 /* Fi
1f00: 72 73 74 20 61 72 67 75 6d 65 6e 74 20 74 6f 20 rst argument to
1f10: 74 68 65 20 63 6f 6e 73 75 6d 65 72 20 2a 2f 0a the consumer */.
1f20: 20 20 69 6e 74 20 75 73 65 45 78 74 65 6e 64 65 int useExtende
1f30: 64 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 d,
1f40: 20 20 20 20 20 2f 2a 20 41 6c 6c 6f 77 20 65 78 /* Allow ex
1f50: 74 65 6e 64 65 64 20 25 2d 63 6f 6e 76 65 72 73 tended %-convers
1f60: 69 6f 6e 73 20 2a 2f 0a 20 20 63 6f 6e 73 74 20 ions */. const
1f70: 63 68 61 72 20 2a 66 6d 74 2c 20 20 20 20 20 20 char *fmt,
1f80: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 /*
1f90: 46 6f 72 6d 61 74 20 73 74 72 69 6e 67 20 2a 2f Format string */
1fa0: 0a 20 20 76 61 5f 6c 69 73 74 20 61 70 20 20 20 . va_list ap
1fb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1fc0: 20 20 20 20 20 20 2f 2a 20 61 72 67 75 6d 65 6e /* argumen
1fd0: 74 73 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20 63 ts */.){. int c
1fe0: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
1ff0: 20 20 20 20 20 20 2f 2a 20 4e 65 78 74 20 63 68 /* Next ch
2000: 61 72 61 63 74 65 72 20 69 6e 20 74 68 65 20 66 aracter in the f
2010: 6f 72 6d 61 74 20 73 74 72 69 6e 67 20 2a 2f 0a ormat string */.
2020: 20 20 63 68 61 72 20 2a 62 75 66 70 74 3b 20 20 char *bufpt;
2030: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 /*
2040: 50 6f 69 6e 74 65 72 20 74 6f 20 74 68 65 20 63 Pointer to the c
2050: 6f 6e 76 65 72 73 69 6f 6e 20 62 75 66 66 65 72 onversion buffer
2060: 20 2a 2f 0a 20 20 69 6e 74 20 70 72 65 63 69 73 */. int precis
2070: 69 6f 6e 3b 20 20 20 20 20 20 20 20 20 20 20 20 ion;
2080: 20 2f 2a 20 50 72 65 63 69 73 69 6f 6e 20 6f 66 /* Precision of
2090: 20 74 68 65 20 63 75 72 72 65 6e 74 20 66 69 65 the current fie
20a0: 6c 64 20 2a 2f 0a 20 20 69 6e 74 20 6c 65 6e 67 ld */. int leng
20b0: 74 68 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 th;
20c0: 20 20 20 2f 2a 20 4c 65 6e 67 74 68 20 6f 66 20 /* Length of
20d0: 74 68 65 20 66 69 65 6c 64 20 2a 2f 0a 20 20 69 the field */. i
20e0: 6e 74 20 69 64 78 3b 20 20 20 20 20 20 20 20 20 nt idx;
20f0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 41 20 67 /* A g
2100: 65 6e 65 72 61 6c 20 70 75 72 70 6f 73 65 20 6c eneral purpose l
2110: 6f 6f 70 20 63 6f 75 6e 74 65 72 20 2a 2f 0a 20 oop counter */.
2120: 20 69 6e 74 20 63 6f 75 6e 74 3b 20 20 20 20 20 int count;
2130: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 /* T
2140: 6f 74 61 6c 20 6e 75 6d 62 65 72 20 6f 66 20 63 otal number of c
2150: 68 61 72 61 63 74 65 72 73 20 6f 75 74 70 75 74 haracters output
2160: 20 2a 2f 0a 20 20 69 6e 74 20 77 69 64 74 68 3b */. int width;
2170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2180: 20 2f 2a 20 57 69 64 74 68 20 6f 66 20 74 68 65 /* Width of the
2190: 20 63 75 72 72 65 6e 74 20 66 69 65 6c 64 20 2a current field *
21a0: 2f 0a 20 20 65 74 42 79 74 65 20 66 6c 61 67 5f /. etByte flag_
21b0: 6c 65 66 74 6a 75 73 74 69 66 79 3b 20 20 20 2f leftjustify; /
21c0: 2a 20 54 72 75 65 20 69 66 20 22 2d 22 20 66 6c * True if "-" fl
21d0: 61 67 20 69 73 20 70 72 65 73 65 6e 74 20 2a 2f ag is present */
21e0: 0a 20 20 65 74 42 79 74 65 20 66 6c 61 67 5f 70 . etByte flag_p
21f0: 6c 75 73 73 69 67 6e 3b 20 20 20 20 20 20 2f 2a lussign; /*
2200: 20 54 72 75 65 20 69 66 20 22 2b 22 20 66 6c 61 True if "+" fla
2210: 67 20 69 73 20 70 72 65 73 65 6e 74 20 2a 2f 0a g is present */.
2220: 20 20 65 74 42 79 74 65 20 66 6c 61 67 5f 62 6c etByte flag_bl
2230: 61 6e 6b 73 69 67 6e 3b 20 20 20 20 20 2f 2a 20 anksign; /*
2240: 54 72 75 65 20 69 66 20 22 20 22 20 66 6c 61 67 True if " " flag
2250: 20 69 73 20 70 72 65 73 65 6e 74 20 2a 2f 0a 20 is present */.
2260: 20 65 74 42 79 74 65 20 66 6c 61 67 5f 61 6c 74 etByte flag_alt
2270: 65 72 6e 61 74 65 66 6f 72 6d 3b 20 2f 2a 20 54 ernateform; /* T
2280: 72 75 65 20 69 66 20 22 23 22 20 66 6c 61 67 20 rue if "#" flag
2290: 69 73 20 70 72 65 73 65 6e 74 20 2a 2f 0a 20 20 is present */.
22a0: 65 74 42 79 74 65 20 66 6c 61 67 5f 61 6c 74 66 etByte flag_altf
22b0: 6f 72 6d 32 3b 20 20 20 20 20 20 2f 2a 20 54 72 orm2; /* Tr
22c0: 75 65 20 69 66 20 22 21 22 20 66 6c 61 67 20 69 ue if "!" flag i
22d0: 73 20 70 72 65 73 65 6e 74 20 2a 2f 0a 20 20 65 s present */. e
22e0: 74 42 79 74 65 20 66 6c 61 67 5f 7a 65 72 6f 70 tByte flag_zerop
22f0: 61 64 3b 20 20 20 20 20 20 20 2f 2a 20 54 72 75 ad; /* Tru
2300: 65 20 69 66 20 66 69 65 6c 64 20 77 69 64 74 68 e if field width
2310: 20 63 6f 6e 73 74 61 6e 74 20 73 74 61 72 74 73 constant starts
2320: 20 77 69 74 68 20 7a 65 72 6f 20 2a 2f 0a 20 20 with zero */.
2330: 65 74 42 79 74 65 20 66 6c 61 67 5f 6c 6f 6e 67 etByte flag_long
2340: 3b 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 72 ; /* Tr
2350: 75 65 20 69 66 20 22 6c 22 20 66 6c 61 67 20 69 ue if "l" flag i
2360: 73 20 70 72 65 73 65 6e 74 20 2a 2f 0a 20 20 65 s present */. e
2370: 74 42 79 74 65 20 66 6c 61 67 5f 6c 6f 6e 67 6c tByte flag_longl
2380: 6f 6e 67 3b 20 20 20 20 20 20 2f 2a 20 54 72 75 ong; /* Tru
2390: 65 20 69 66 20 74 68 65 20 22 6c 6c 22 20 66 6c e if the "ll" fl
23a0: 61 67 20 69 73 20 70 72 65 73 65 6e 74 20 2a 2f ag is present */
23b0: 0a 20 20 65 74 42 79 74 65 20 64 6f 6e 65 3b 20 . etByte done;
23c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a /*
23d0: 20 4c 6f 6f 70 20 74 65 72 6d 69 6e 61 74 69 6f Loop terminatio
23e0: 6e 20 66 6c 61 67 20 2a 2f 0a 20 20 73 71 6c 69 n flag */. sqli
23f0: 74 65 5f 75 69 6e 74 36 34 20 6c 6f 6e 67 76 61 te_uint64 longva
2400: 6c 75 65 3b 20 20 20 2f 2a 20 56 61 6c 75 65 20 lue; /* Value
2410: 66 6f 72 20 69 6e 74 65 67 65 72 20 74 79 70 65 for integer type
2420: 73 20 2a 2f 0a 20 20 4c 4f 4e 47 44 4f 55 42 4c s */. LONGDOUBL
2430: 45 5f 54 59 50 45 20 72 65 61 6c 76 61 6c 75 65 E_TYPE realvalue
2440: 3b 20 2f 2a 20 56 61 6c 75 65 20 66 6f 72 20 72 ; /* Value for r
2450: 65 61 6c 20 74 79 70 65 73 20 2a 2f 0a 20 20 63 eal types */. c
2460: 6f 6e 73 74 20 65 74 5f 69 6e 66 6f 20 2a 69 6e onst et_info *in
2470: 66 6f 70 3b 20 20 20 20 20 20 2f 2a 20 50 6f 69 fop; /* Poi
2480: 6e 74 65 72 20 74 6f 20 74 68 65 20 61 70 70 72 nter to the appr
2490: 6f 70 72 69 61 74 65 20 69 6e 66 6f 20 73 74 72 opriate info str
24a0: 75 63 74 75 72 65 20 2a 2f 0a 20 20 63 68 61 72 ucture */. char
24b0: 20 62 75 66 5b 65 74 42 55 46 53 49 5a 45 5d 3b buf[etBUFSIZE];
24c0: 20 20 20 20 20 20 20 2f 2a 20 43 6f 6e 76 65 72 /* Conver
24d0: 73 69 6f 6e 20 62 75 66 66 65 72 20 2a 2f 0a 20 sion buffer */.
24e0: 20 63 68 61 72 20 70 72 65 66 69 78 3b 20 20 20 char prefix;
24f0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 50 /* P
2500: 72 65 66 69 78 20 63 68 61 72 61 63 74 65 72 2e refix character.
2510: 20 20 22 2b 22 20 6f 72 20 22 2d 22 20 6f 72 20 "+" or "-" or
2520: 22 20 22 20 6f 72 20 27 5c 30 27 2e 20 2a 2f 0a " " or '\0'. */.
2530: 20 20 65 74 42 79 74 65 20 65 72 72 6f 72 66 6c etByte errorfl
2540: 61 67 20 3d 20 30 3b 20 20 20 20 20 20 2f 2a 20 ag = 0; /*
2550: 54 72 75 65 20 69 66 20 61 6e 20 65 72 72 6f 72 True if an error
2560: 20 69 73 20 65 6e 63 6f 75 6e 74 65 72 65 64 20 is encountered
2570: 2a 2f 0a 20 20 65 74 42 79 74 65 20 78 74 79 70 */. etByte xtyp
2580: 65 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e;
2590: 2f 2a 20 43 6f 6e 76 65 72 73 69 6f 6e 20 70 61 /* Conversion pa
25a0: 72 61 64 69 67 6d 20 2a 2f 0a 20 20 63 68 61 72 radigm */. char
25b0: 20 2a 7a 45 78 74 72 61 3b 20 20 20 20 20 20 20 *zExtra;
25c0: 20 20 20 20 20 20 20 2f 2a 20 45 78 74 72 61 20 /* Extra
25d0: 6d 65 6d 6f 72 79 20 75 73 65 64 20 66 6f 72 20 memory used for
25e0: 65 74 54 43 4c 45 53 43 41 50 45 20 63 6f 6e 76 etTCLESCAPE conv
25f0: 65 72 73 69 6f 6e 73 20 2a 2f 0a 20 20 73 74 61 ersions */. sta
2600: 74 69 63 20 63 6f 6e 73 74 20 63 68 61 72 20 73 tic const char s
2610: 70 61 63 65 73 5b 5d 20 3d 0a 20 20 20 22 20 20 paces[] =. "
2620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2640: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2650: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2660: 20 20 20 20 20 20 20 22 3b 0a 23 64 65 66 69 6e ";.#defin
2670: 65 20 65 74 53 50 41 43 45 53 49 5a 45 20 28 73 e etSPACESIZE (s
2680: 69 7a 65 6f 66 28 73 70 61 63 65 73 29 2d 31 29 izeof(spaces)-1)
2690: 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f .#ifndef SQLITE_
26a0: 4f 4d 49 54 5f 46 4c 4f 41 54 49 4e 47 5f 50 4f OMIT_FLOATING_PO
26b0: 49 4e 54 0a 20 20 69 6e 74 20 20 65 78 70 2c 20 INT. int exp,
26c0: 65 32 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 e2;
26d0: 20 2f 2a 20 65 78 70 6f 6e 65 6e 74 20 6f 66 20 /* exponent of
26e0: 72 65 61 6c 20 6e 75 6d 62 65 72 73 20 2a 2f 0a real numbers */.
26f0: 20 20 64 6f 75 62 6c 65 20 72 6f 75 6e 64 65 72 double rounder
2700: 3b 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 ; /*
2710: 55 73 65 64 20 66 6f 72 20 72 6f 75 6e 64 69 6e Used for roundin
2720: 67 20 66 6c 6f 61 74 69 6e 67 20 70 6f 69 6e 74 g floating point
2730: 20 76 61 6c 75 65 73 20 2a 2f 0a 20 20 65 74 42 values */. etB
2740: 79 74 65 20 66 6c 61 67 5f 64 70 3b 20 20 20 20 yte flag_dp;
2750: 20 20 20 20 20 20 20 20 2f 2a 20 54 72 75 65 20 /* True
2760: 69 66 20 64 65 63 69 6d 61 6c 20 70 6f 69 6e 74 if decimal point
2770: 20 73 68 6f 75 6c 64 20 62 65 20 73 68 6f 77 6e should be shown
2780: 20 2a 2f 0a 20 20 65 74 42 79 74 65 20 66 6c 61 */. etByte fla
2790: 67 5f 72 74 7a 3b 20 20 20 20 20 20 20 20 20 20 g_rtz;
27a0: 20 2f 2a 20 54 72 75 65 20 69 66 20 74 72 61 69 /* True if trai
27b0: 6c 69 6e 67 20 7a 65 72 6f 73 20 73 68 6f 75 6c ling zeros shoul
27c0: 64 20 62 65 20 72 65 6d 6f 76 65 64 20 2a 2f 0a d be removed */.
27d0: 20 20 65 74 42 79 74 65 20 66 6c 61 67 5f 65 78 etByte flag_ex
27e0: 70 3b 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 p; /*
27f0: 54 72 75 65 20 74 6f 20 66 6f 72 63 65 20 64 69 True to force di
2800: 73 70 6c 61 79 20 6f 66 20 74 68 65 20 65 78 70 splay of the exp
2810: 6f 6e 65 6e 74 20 2a 2f 0a 20 20 69 6e 74 20 6e onent */. int n
2820: 73 64 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 sd;
2830: 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 /* Number
2840: 6f 66 20 73 69 67 6e 69 66 69 63 61 6e 74 20 64 of significant d
2850: 69 67 69 74 73 20 72 65 74 75 72 6e 65 64 20 2a igits returned *
2860: 2f 0a 23 65 6e 64 69 66 0a 0a 20 20 66 75 6e 63 /.#endif.. func
2870: 28 61 72 67 2c 22 22 2c 30 29 3b 0a 20 20 63 6f (arg,"",0);. co
2880: 75 6e 74 20 3d 20 6c 65 6e 67 74 68 20 3d 20 30 unt = length = 0
2890: 3b 0a 20 20 62 75 66 70 74 20 3d 20 30 3b 0a 20 ;. bufpt = 0;.
28a0: 20 66 6f 72 28 3b 20 28 63 3d 28 2a 66 6d 74 29 for(; (c=(*fmt)
28b0: 29 21 3d 30 3b 20 2b 2b 66 6d 74 29 7b 0a 20 20 )!=0; ++fmt){.
28c0: 20 20 69 66 28 20 63 21 3d 27 25 27 20 29 7b 0a if( c!='%' ){.
28d0: 20 20 20 20 20 20 69 6e 74 20 61 6d 74 3b 0a 20 int amt;.
28e0: 20 20 20 20 20 62 75 66 70 74 20 3d 20 28 63 68 bufpt = (ch
28f0: 61 72 20 2a 29 66 6d 74 3b 0a 20 20 20 20 20 20 ar *)fmt;.
2900: 61 6d 74 20 3d 20 31 3b 0a 20 20 20 20 20 20 77 amt = 1;. w
2910: 68 69 6c 65 28 20 28 63 3d 28 2a 2b 2b 66 6d 74 hile( (c=(*++fmt
2920: 29 29 21 3d 27 25 27 20 26 26 20 63 21 3d 30 20 ))!='%' && c!=0
2930: 29 20 61 6d 74 2b 2b 3b 0a 20 20 20 20 20 20 28 ) amt++;. (
2940: 2a 66 75 6e 63 29 28 61 72 67 2c 62 75 66 70 74 *func)(arg,bufpt
2950: 2c 61 6d 74 29 3b 0a 20 20 20 20 20 20 63 6f 75 ,amt);. cou
2960: 6e 74 20 2b 3d 20 61 6d 74 3b 0a 20 20 20 20 20 nt += amt;.
2970: 20 69 66 28 20 63 3d 3d 30 20 29 20 62 72 65 61 if( c==0 ) brea
2980: 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 28 k;. }. if(
2990: 20 28 63 3d 28 2a 2b 2b 66 6d 74 29 29 3d 3d 30 (c=(*++fmt))==0
29a0: 20 29 7b 0a 20 20 20 20 20 20 65 72 72 6f 72 66 ){. errorf
29b0: 6c 61 67 20 3d 20 31 3b 0a 20 20 20 20 20 20 28 lag = 1;. (
29c0: 2a 66 75 6e 63 29 28 61 72 67 2c 22 25 22 2c 31 *func)(arg,"%",1
29d0: 29 3b 0a 20 20 20 20 20 20 63 6f 75 6e 74 2b 2b );. count++
29e0: 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 ;. break;.
29f0: 20 20 20 7d 0a 20 20 20 20 2f 2a 20 46 69 6e 64 }. /* Find
2a00: 20 6f 75 74 20 77 68 61 74 20 66 6c 61 67 73 20 out what flags
2a10: 61 72 65 20 70 72 65 73 65 6e 74 20 2a 2f 0a 20 are present */.
2a20: 20 20 20 66 6c 61 67 5f 6c 65 66 74 6a 75 73 74 flag_leftjust
2a30: 69 66 79 20 3d 20 66 6c 61 67 5f 70 6c 75 73 73 ify = flag_pluss
2a40: 69 67 6e 20 3d 20 66 6c 61 67 5f 62 6c 61 6e 6b ign = flag_blank
2a50: 73 69 67 6e 20 3d 20 0a 20 20 20 20 20 66 6c 61 sign = . fla
2a60: 67 5f 61 6c 74 65 72 6e 61 74 65 66 6f 72 6d 20 g_alternateform
2a70: 3d 20 66 6c 61 67 5f 61 6c 74 66 6f 72 6d 32 20 = flag_altform2
2a80: 3d 20 66 6c 61 67 5f 7a 65 72 6f 70 61 64 20 3d = flag_zeropad =
2a90: 20 30 3b 0a 20 20 20 20 64 6f 6e 65 20 3d 20 30 0;. done = 0
2aa0: 3b 0a 20 20 20 20 64 6f 7b 0a 20 20 20 20 20 20 ;. do{.
2ab0: 73 77 69 74 63 68 28 20 63 20 29 7b 0a 20 20 20 switch( c ){.
2ac0: 20 20 20 20 20 63 61 73 65 20 27 2d 27 3a 20 20 case '-':
2ad0: 20 66 6c 61 67 5f 6c 65 66 74 6a 75 73 74 69 66 flag_leftjustif
2ae0: 79 20 3d 20 31 3b 20 20 20 20 20 62 72 65 61 6b y = 1; break
2af0: 3b 0a 20 20 20 20 20 20 20 20 63 61 73 65 20 27 ;. case '
2b00: 2b 27 3a 20 20 20 66 6c 61 67 5f 70 6c 75 73 73 +': flag_pluss
2b10: 69 67 6e 20 3d 20 31 3b 20 20 20 20 20 20 20 20 ign = 1;
2b20: 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 63 break;. c
2b30: 61 73 65 20 27 20 27 3a 20 20 20 66 6c 61 67 5f ase ' ': flag_
2b40: 62 6c 61 6e 6b 73 69 67 6e 20 3d 20 31 3b 20 20 blanksign = 1;
2b50: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 break;.
2b60: 20 20 20 20 63 61 73 65 20 27 23 27 3a 20 20 20 case '#':
2b70: 66 6c 61 67 5f 61 6c 74 65 72 6e 61 74 65 66 6f flag_alternatefo
2b80: 72 6d 20 3d 20 31 3b 20 20 20 62 72 65 61 6b 3b rm = 1; break;
2b90: 0a 20 20 20 20 20 20 20 20 63 61 73 65 20 27 21 . case '!
2ba0: 27 3a 20 20 20 66 6c 61 67 5f 61 6c 74 66 6f 72 ': flag_altfor
2bb0: 6d 32 20 3d 20 31 3b 20 20 20 20 20 20 20 20 62 m2 = 1; b
2bc0: 72 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 63 61 reak;. ca
2bd0: 73 65 20 27 30 27 3a 20 20 20 66 6c 61 67 5f 7a se '0': flag_z
2be0: 65 72 6f 70 61 64 20 3d 20 31 3b 20 20 20 20 20 eropad = 1;
2bf0: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 break;.
2c00: 20 20 20 64 65 66 61 75 6c 74 3a 20 20 20 20 64 default: d
2c10: 6f 6e 65 20 3d 20 31 3b 20 20 20 20 20 20 20 20 one = 1;
2c20: 20 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a break;.
2c30: 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 77 68 69 }. }whi
2c40: 6c 65 28 20 21 64 6f 6e 65 20 26 26 20 28 63 3d le( !done && (c=
2c50: 28 2a 2b 2b 66 6d 74 29 29 21 3d 30 20 29 3b 0a (*++fmt))!=0 );.
2c60: 20 20 20 20 2f 2a 20 47 65 74 20 74 68 65 20 66 /* Get the f
2c70: 69 65 6c 64 20 77 69 64 74 68 20 2a 2f 0a 20 20 ield width */.
2c80: 20 20 77 69 64 74 68 20 3d 20 30 3b 0a 20 20 20 width = 0;.
2c90: 20 69 66 28 20 63 3d 3d 27 2a 27 20 29 7b 0a 20 if( c=='*' ){.
2ca0: 20 20 20 20 20 77 69 64 74 68 20 3d 20 76 61 5f width = va_
2cb0: 61 72 67 28 61 70 2c 69 6e 74 29 3b 0a 20 20 20 arg(ap,int);.
2cc0: 20 20 20 69 66 28 20 77 69 64 74 68 3c 30 20 29 if( width<0 )
2cd0: 7b 0a 20 20 20 20 20 20 20 20 66 6c 61 67 5f 6c {. flag_l
2ce0: 65 66 74 6a 75 73 74 69 66 79 20 3d 20 31 3b 0a eftjustify = 1;.
2cf0: 20 20 20 20 20 20 20 20 77 69 64 74 68 20 3d 20 width =
2d00: 2d 77 69 64 74 68 3b 0a 20 20 20 20 20 20 7d 0a -width;. }.
2d10: 20 20 20 20 20 20 63 20 3d 20 2a 2b 2b 66 6d 74 c = *++fmt
2d20: 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 ;. }else{.
2d30: 20 20 20 77 68 69 6c 65 28 20 63 3e 3d 27 30 27 while( c>='0'
2d40: 20 26 26 20 63 3c 3d 27 39 27 20 29 7b 0a 20 20 && c<='9' ){.
2d50: 20 20 20 20 20 20 77 69 64 74 68 20 3d 20 77 69 width = wi
2d60: 64 74 68 2a 31 30 20 2b 20 63 20 2d 20 27 30 27 dth*10 + c - '0'
2d70: 3b 0a 20 20 20 20 20 20 20 20 63 20 3d 20 2a 2b ;. c = *+
2d80: 2b 66 6d 74 3b 0a 20 20 20 20 20 20 7d 0a 20 20 +fmt;. }.
2d90: 20 20 7d 0a 20 20 20 20 69 66 28 20 77 69 64 74 }. if( widt
2da0: 68 20 3e 20 65 74 42 55 46 53 49 5a 45 2d 31 30 h > etBUFSIZE-10
2db0: 20 29 7b 0a 20 20 20 20 20 20 77 69 64 74 68 20 ){. width
2dc0: 3d 20 65 74 42 55 46 53 49 5a 45 2d 31 30 3b 0a = etBUFSIZE-10;.
2dd0: 20 20 20 20 7d 0a 20 20 20 20 2f 2a 20 47 65 74 }. /* Get
2de0: 20 74 68 65 20 70 72 65 63 69 73 69 6f 6e 20 2a the precision *
2df0: 2f 0a 20 20 20 20 69 66 28 20 63 3d 3d 27 2e 27 /. if( c=='.'
2e00: 20 29 7b 0a 20 20 20 20 20 20 70 72 65 63 69 73 ){. precis
2e10: 69 6f 6e 20 3d 20 30 3b 0a 20 20 20 20 20 20 63 ion = 0;. c
2e20: 20 3d 20 2a 2b 2b 66 6d 74 3b 0a 20 20 20 20 20 = *++fmt;.
2e30: 20 69 66 28 20 63 3d 3d 27 2a 27 20 29 7b 0a 20 if( c=='*' ){.
2e40: 20 20 20 20 20 20 20 70 72 65 63 69 73 69 6f 6e precision
2e50: 20 3d 20 76 61 5f 61 72 67 28 61 70 2c 69 6e 74 = va_arg(ap,int
2e60: 29 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 70 );. if( p
2e70: 72 65 63 69 73 69 6f 6e 3c 30 20 29 20 70 72 65 recision<0 ) pre
2e80: 63 69 73 69 6f 6e 20 3d 20 2d 70 72 65 63 69 73 cision = -precis
2e90: 69 6f 6e 3b 0a 20 20 20 20 20 20 20 20 63 20 3d ion;. c =
2ea0: 20 2a 2b 2b 66 6d 74 3b 0a 20 20 20 20 20 20 7d *++fmt;. }
2eb0: 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 77 68 else{. wh
2ec0: 69 6c 65 28 20 63 3e 3d 27 30 27 20 26 26 20 63 ile( c>='0' && c
2ed0: 3c 3d 27 39 27 20 29 7b 0a 20 20 20 20 20 20 20 <='9' ){.
2ee0: 20 20 20 70 72 65 63 69 73 69 6f 6e 20 3d 20 70 precision = p
2ef0: 72 65 63 69 73 69 6f 6e 2a 31 30 20 2b 20 63 20 recision*10 + c
2f00: 2d 20 27 30 27 3b 0a 20 20 20 20 20 20 20 20 20 - '0';.
2f10: 20 63 20 3d 20 2a 2b 2b 66 6d 74 3b 0a 20 20 20 c = *++fmt;.
2f20: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a 20 }. }.
2f30: 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 }else{.
2f40: 70 72 65 63 69 73 69 6f 6e 20 3d 20 2d 31 3b 0a precision = -1;.
2f50: 20 20 20 20 7d 0a 20 20 20 20 2f 2a 20 47 65 74 }. /* Get
2f60: 20 74 68 65 20 63 6f 6e 76 65 72 73 69 6f 6e 20 the conversion
2f70: 74 79 70 65 20 6d 6f 64 69 66 69 65 72 20 2a 2f type modifier */
2f80: 0a 20 20 20 20 69 66 28 20 63 3d 3d 27 6c 27 20 . if( c=='l'
2f90: 29 7b 0a 20 20 20 20 20 20 66 6c 61 67 5f 6c 6f ){. flag_lo
2fa0: 6e 67 20 3d 20 31 3b 0a 20 20 20 20 20 20 63 20 ng = 1;. c
2fb0: 3d 20 2a 2b 2b 66 6d 74 3b 0a 20 20 20 20 20 20 = *++fmt;.
2fc0: 69 66 28 20 63 3d 3d 27 6c 27 20 29 7b 0a 20 20 if( c=='l' ){.
2fd0: 20 20 20 20 20 20 66 6c 61 67 5f 6c 6f 6e 67 6c flag_longl
2fe0: 6f 6e 67 20 3d 20 31 3b 0a 20 20 20 20 20 20 20 ong = 1;.
2ff0: 20 63 20 3d 20 2a 2b 2b 66 6d 74 3b 0a 20 20 20 c = *++fmt;.
3000: 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 }else{.
3010: 20 20 66 6c 61 67 5f 6c 6f 6e 67 6c 6f 6e 67 20 flag_longlong
3020: 3d 20 30 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 = 0;. }.
3030: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 66 6c }else{. fl
3040: 61 67 5f 6c 6f 6e 67 20 3d 20 66 6c 61 67 5f 6c ag_long = flag_l
3050: 6f 6e 67 6c 6f 6e 67 20 3d 20 30 3b 0a 20 20 20 onglong = 0;.
3060: 20 7d 0a 20 20 20 20 2f 2a 20 46 65 74 63 68 20 }. /* Fetch
3070: 74 68 65 20 69 6e 66 6f 20 65 6e 74 72 79 20 66 the info entry f
3080: 6f 72 20 74 68 65 20 66 69 65 6c 64 20 2a 2f 0a or the field */.
3090: 20 20 20 20 69 6e 66 6f 70 20 3d 20 30 3b 0a 20 infop = 0;.
30a0: 20 20 20 66 6f 72 28 69 64 78 3d 30 3b 20 69 64 for(idx=0; id
30b0: 78 3c 65 74 4e 49 4e 46 4f 3b 20 69 64 78 2b 2b x<etNINFO; idx++
30c0: 29 7b 0a 20 20 20 20 20 20 69 66 28 20 63 3d 3d ){. if( c==
30d0: 66 6d 74 69 6e 66 6f 5b 69 64 78 5d 2e 66 6d 74 fmtinfo[idx].fmt
30e0: 74 79 70 65 20 29 7b 0a 20 20 20 20 20 20 20 20 type ){.
30f0: 69 6e 66 6f 70 20 3d 20 26 66 6d 74 69 6e 66 6f infop = &fmtinfo
3100: 5b 69 64 78 5d 3b 0a 20 20 20 20 20 20 20 20 69 [idx];. i
3110: 66 28 20 75 73 65 45 78 74 65 6e 64 65 64 20 7c f( useExtended |
3120: 7c 20 28 69 6e 66 6f 70 2d 3e 66 6c 61 67 73 20 | (infop->flags
3130: 26 20 46 4c 41 47 5f 49 4e 54 45 52 4e 29 3d 3d & FLAG_INTERN)==
3140: 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 78 0 ){. x
3150: 74 79 70 65 20 3d 20 69 6e 66 6f 70 2d 3e 74 79 type = infop->ty
3160: 70 65 3b 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 pe;. }els
3170: 65 7b 0a 20 20 20 20 20 20 20 20 20 20 72 65 74 e{. ret
3180: 75 72 6e 20 2d 31 3b 0a 20 20 20 20 20 20 20 20 urn -1;.
3190: 7d 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b }. break;
31a0: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 . }. }.
31b0: 20 20 20 7a 45 78 74 72 61 20 3d 20 30 3b 0a 20 zExtra = 0;.
31c0: 20 20 20 69 66 28 20 69 6e 66 6f 70 3d 3d 30 20 if( infop==0
31d0: 29 7b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 ){. return
31e0: 2d 31 3b 0a 20 20 20 20 7d 0a 0a 0a 20 20 20 20 -1;. }...
31f0: 2f 2a 20 4c 69 6d 69 74 20 74 68 65 20 70 72 65 /* Limit the pre
3200: 63 69 73 69 6f 6e 20 74 6f 20 70 72 65 76 65 6e cision to preven
3210: 74 20 6f 76 65 72 66 6c 6f 77 69 6e 67 20 62 75 t overflowing bu
3220: 66 5b 5d 20 64 75 72 69 6e 67 20 63 6f 6e 76 65 f[] during conve
3230: 72 73 69 6f 6e 20 2a 2f 0a 20 20 20 20 69 66 28 rsion */. if(
3240: 20 70 72 65 63 69 73 69 6f 6e 3e 65 74 42 55 46 precision>etBUF
3250: 53 49 5a 45 2d 34 30 20 26 26 20 28 69 6e 66 6f SIZE-40 && (info
3260: 70 2d 3e 66 6c 61 67 73 20 26 20 46 4c 41 47 5f p->flags & FLAG_
3270: 53 54 52 49 4e 47 29 3d 3d 30 20 29 7b 0a 20 20 STRING)==0 ){.
3280: 20 20 20 20 70 72 65 63 69 73 69 6f 6e 20 3d 20 precision =
3290: 65 74 42 55 46 53 49 5a 45 2d 34 30 3b 0a 20 20 etBUFSIZE-40;.
32a0: 20 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 }.. /*.
32b0: 2a 2a 20 41 74 20 74 68 69 73 20 70 6f 69 6e 74 ** At this point
32c0: 2c 20 76 61 72 69 61 62 6c 65 73 20 61 72 65 20 , variables are
32d0: 69 6e 69 74 69 61 6c 69 7a 65 64 20 61 73 20 66 initialized as f
32e0: 6f 6c 6c 6f 77 73 3a 0a 20 20 20 20 2a 2a 0a 20 ollows:. **.
32f0: 20 20 20 2a 2a 20 20 20 66 6c 61 67 5f 61 6c 74 ** flag_alt
3300: 65 72 6e 61 74 65 66 6f 72 6d 20 20 20 20 20 20 ernateform
3310: 20 20 20 20 54 52 55 45 20 69 66 20 61 20 27 23 TRUE if a '#
3320: 27 20 69 73 20 70 72 65 73 65 6e 74 2e 0a 20 20 ' is present..
3330: 20 20 2a 2a 20 20 20 66 6c 61 67 5f 61 6c 74 66 ** flag_altf
3340: 6f 72 6d 32 20 20 20 20 20 20 20 20 20 20 20 20 orm2
3350: 20 20 20 54 52 55 45 20 69 66 20 61 20 27 21 27 TRUE if a '!'
3360: 20 69 73 20 70 72 65 73 65 6e 74 2e 0a 20 20 20 is present..
3370: 20 2a 2a 20 20 20 66 6c 61 67 5f 70 6c 75 73 73 ** flag_pluss
3380: 69 67 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 ign
3390: 20 20 54 52 55 45 20 69 66 20 61 20 27 2b 27 20 TRUE if a '+'
33a0: 69 73 20 70 72 65 73 65 6e 74 2e 0a 20 20 20 20 is present..
33b0: 2a 2a 20 20 20 66 6c 61 67 5f 6c 65 66 74 6a 75 ** flag_leftju
33c0: 73 74 69 66 79 20 20 20 20 20 20 20 20 20 20 20 stify
33d0: 20 54 52 55 45 20 69 66 20 61 20 27 2d 27 20 69 TRUE if a '-' i
33e0: 73 20 70 72 65 73 65 6e 74 20 6f 72 20 69 66 20 s present or if
33f0: 74 68 65 0a 20 20 20 20 2a 2a 20 20 20 20 20 20 the. **
3400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3410: 20 20 20 20 20 20 20 20 20 66 69 65 6c 64 20 77 field w
3420: 69 64 74 68 20 77 61 73 20 6e 65 67 61 74 69 76 idth was negativ
3430: 65 2e 0a 20 20 20 20 2a 2a 20 20 20 66 6c 61 67 e.. ** flag
3440: 5f 7a 65 72 6f 70 61 64 20 20 20 20 20 20 20 20 _zeropad
3450: 20 20 20 20 20 20 20 20 54 52 55 45 20 69 66 20 TRUE if
3460: 74 68 65 20 77 69 64 74 68 20 62 65 67 61 6e 20 the width began
3470: 77 69 74 68 20 30 2e 0a 20 20 20 20 2a 2a 20 20 with 0.. **
3480: 20 66 6c 61 67 5f 6c 6f 6e 67 20 20 20 20 20 20 flag_long
3490: 20 20 20 20 20 20 20 20 20 20 20 20 20 54 52 55 TRU
34a0: 45 20 69 66 20 74 68 65 20 6c 65 74 74 65 72 20 E if the letter
34b0: 27 6c 27 20 28 65 6c 6c 29 20 70 72 65 66 69 78 'l' (ell) prefix
34c0: 65 64 0a 20 20 20 20 2a 2a 20 20 20 20 20 20 20 ed. **
34d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
34e0: 20 20 20 20 20 20 20 20 74 68 65 20 63 6f 6e 76 the conv
34f0: 65 72 73 69 6f 6e 20 63 68 61 72 61 63 74 65 72 ersion character
3500: 2e 0a 20 20 20 20 2a 2a 20 20 20 66 6c 61 67 5f .. ** flag_
3510: 6c 6f 6e 67 6c 6f 6e 67 20 20 20 20 20 20 20 20 longlong
3520: 20 20 20 20 20 20 20 54 52 55 45 20 69 66 20 74 TRUE if t
3530: 68 65 20 6c 65 74 74 65 72 20 27 6c 6c 27 20 28 he letter 'll' (
3540: 65 6c 6c 20 65 6c 6c 29 20 70 72 65 66 69 78 65 ell ell) prefixe
3550: 64 0a 20 20 20 20 2a 2a 20 20 20 20 20 20 20 20 d. **
3560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3570: 20 20 20 20 20 20 20 74 68 65 20 63 6f 6e 76 65 the conve
3580: 72 73 69 6f 6e 20 63 68 61 72 61 63 74 65 72 2e rsion character.
3590: 0a 20 20 20 20 2a 2a 20 20 20 66 6c 61 67 5f 62 . ** flag_b
35a0: 6c 61 6e 6b 73 69 67 6e 20 20 20 20 20 20 20 20 lanksign
35b0: 20 20 20 20 20 20 54 52 55 45 20 69 66 20 61 20 TRUE if a
35c0: 27 20 27 20 69 73 20 70 72 65 73 65 6e 74 2e 0a ' ' is present..
35d0: 20 20 20 20 2a 2a 20 20 20 77 69 64 74 68 20 20 ** width
35e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
35f0: 20 20 20 20 20 54 68 65 20 73 70 65 63 69 66 69 The specifi
3600: 65 64 20 66 69 65 6c 64 20 77 69 64 74 68 2e 20 ed field width.
3610: 20 54 68 69 73 20 69 73 0a 20 20 20 20 2a 2a 20 This is. **
3620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 6c al
3640: 77 61 79 73 20 6e 6f 6e 2d 6e 65 67 61 74 69 76 ways non-negativ
3650: 65 2e 20 20 5a 65 72 6f 20 69 73 20 74 68 65 20 e. Zero is the
3660: 64 65 66 61 75 6c 74 2e 0a 20 20 20 20 2a 2a 20 default.. **
3670: 20 20 70 72 65 63 69 73 69 6f 6e 20 20 20 20 20 precision
3680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 68 Th
3690: 65 20 73 70 65 63 69 66 69 65 64 20 70 72 65 63 e specified prec
36a0: 69 73 69 6f 6e 2e 20 20 54 68 65 20 64 65 66 61 ision. The defa
36b0: 75 6c 74 0a 20 20 20 20 2a 2a 20 20 20 20 20 20 ult. **
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 69 73 20 2d 31 2e 0a is -1..
36e0: 20 20 20 20 2a 2a 20 20 20 78 74 79 70 65 20 20 ** xtype
36f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3700: 20 20 20 20 20 54 68 65 20 63 6c 61 73 73 20 6f The class o
3710: 66 20 74 68 65 20 63 6f 6e 76 65 72 73 69 6f 6e f the conversion
3720: 2e 0a 20 20 20 20 2a 2a 20 20 20 69 6e 66 6f 70 .. ** infop
3730: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3740: 20 20 20 20 20 20 20 50 6f 69 6e 74 65 72 20 74 Pointer t
3750: 6f 20 74 68 65 20 61 70 70 72 6f 70 72 69 61 74 o the appropriat
3760: 65 20 69 6e 66 6f 20 73 74 72 75 63 74 2e 0a 20 e info struct..
3770: 20 20 20 2a 2f 0a 20 20 20 20 73 77 69 74 63 68 */. switch
3780: 28 20 78 74 79 70 65 20 29 7b 0a 20 20 20 20 20 ( xtype ){.
3790: 20 63 61 73 65 20 65 74 50 4f 49 4e 54 45 52 3a case etPOINTER:
37a0: 0a 20 20 20 20 20 20 20 20 66 6c 61 67 5f 6c 6f . flag_lo
37b0: 6e 67 6c 6f 6e 67 20 3d 20 73 69 7a 65 6f 66 28 nglong = sizeof(
37c0: 63 68 61 72 2a 29 3d 3d 73 69 7a 65 6f 66 28 69 char*)==sizeof(i
37d0: 36 34 29 3b 0a 20 20 20 20 20 20 20 20 66 6c 61 64);. fla
37e0: 67 5f 6c 6f 6e 67 20 3d 20 73 69 7a 65 6f 66 28 g_long = sizeof(
37f0: 63 68 61 72 2a 29 3d 3d 73 69 7a 65 6f 66 28 6c char*)==sizeof(l
3800: 6f 6e 67 20 69 6e 74 29 3b 0a 20 20 20 20 20 20 ong int);.
3810: 20 20 2f 2a 20 46 61 6c 6c 20 74 68 72 6f 75 67 /* Fall throug
3820: 68 20 69 6e 74 6f 20 74 68 65 20 6e 65 78 74 20 h into the next
3830: 63 61 73 65 20 2a 2f 0a 20 20 20 20 20 20 63 61 case */. ca
3840: 73 65 20 65 74 52 41 44 49 58 3a 0a 20 20 20 20 se etRADIX:.
3850: 20 20 20 20 69 66 28 20 69 6e 66 6f 70 2d 3e 66 if( infop->f
3860: 6c 61 67 73 20 26 20 46 4c 41 47 5f 53 49 47 4e lags & FLAG_SIGN
3870: 45 44 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 ED ){.
3880: 69 36 34 20 76 3b 0a 20 20 20 20 20 20 20 20 20 i64 v;.
3890: 20 69 66 28 20 66 6c 61 67 5f 6c 6f 6e 67 6c 6f if( flag_longlo
38a0: 6e 67 20 29 20 20 20 76 20 3d 20 76 61 5f 61 72 ng ) v = va_ar
38b0: 67 28 61 70 2c 69 36 34 29 3b 0a 20 20 20 20 20 g(ap,i64);.
38c0: 20 20 20 20 20 65 6c 73 65 20 69 66 28 20 66 6c else if( fl
38d0: 61 67 5f 6c 6f 6e 67 20 29 20 20 76 20 3d 20 76 ag_long ) v = v
38e0: 61 5f 61 72 67 28 61 70 2c 6c 6f 6e 67 20 69 6e a_arg(ap,long in
38f0: 74 29 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6c t);. el
3900: 73 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 se
3910: 20 20 20 20 76 20 3d 20 76 61 5f 61 72 67 28 61 v = va_arg(a
3920: 70 2c 69 6e 74 29 3b 0a 20 20 20 20 20 20 20 20 p,int);.
3930: 20 20 69 66 28 20 76 3c 30 20 29 7b 0a 20 20 20 if( v<0 ){.
3940: 20 20 20 20 20 20 20 20 20 6c 6f 6e 67 76 61 6c longval
3950: 75 65 20 3d 20 2d 76 3b 0a 20 20 20 20 20 20 20 ue = -v;.
3960: 20 20 20 20 20 70 72 65 66 69 78 20 3d 20 27 2d prefix = '-
3970: 27 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 65 6c ';. }el
3980: 73 65 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 se{.
3990: 6c 6f 6e 67 76 61 6c 75 65 20 3d 20 76 3b 0a 20 longvalue = v;.
39a0: 20 20 20 20 20 20 20 20 20 20 20 69 66 28 20 66 if( f
39b0: 6c 61 67 5f 70 6c 75 73 73 69 67 6e 20 29 20 20 lag_plussign )
39c0: 20 20 20 20 20 20 70 72 65 66 69 78 20 3d 20 27 prefix = '
39d0: 2b 27 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 +';.
39e0: 65 6c 73 65 20 69 66 28 20 66 6c 61 67 5f 62 6c else if( flag_bl
39f0: 61 6e 6b 73 69 67 6e 20 29 20 20 70 72 65 66 69 anksign ) prefi
3a00: 78 20 3d 20 27 20 27 3b 0a 20 20 20 20 20 20 20 x = ' ';.
3a10: 20 20 20 20 20 65 6c 73 65 20 20 20 20 20 20 20 else
3a20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3a30: 70 72 65 66 69 78 20 3d 20 30 3b 0a 20 20 20 20 prefix = 0;.
3a40: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 }.
3a50: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 20 }else{.
3a60: 20 69 66 28 20 66 6c 61 67 5f 6c 6f 6e 67 6c 6f if( flag_longlo
3a70: 6e 67 20 29 20 20 20 6c 6f 6e 67 76 61 6c 75 65 ng ) longvalue
3a80: 20 3d 20 76 61 5f 61 72 67 28 61 70 2c 75 36 34 = va_arg(ap,u64
3a90: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 );. els
3aa0: 65 20 69 66 28 20 66 6c 61 67 5f 6c 6f 6e 67 20 e if( flag_long
3ab0: 29 20 20 6c 6f 6e 67 76 61 6c 75 65 20 3d 20 76 ) longvalue = v
3ac0: 61 5f 61 72 67 28 61 70 2c 75 6e 73 69 67 6e 65 a_arg(ap,unsigne
3ad0: 64 20 6c 6f 6e 67 20 69 6e 74 29 3b 0a 20 20 20 d long int);.
3ae0: 20 20 20 20 20 20 20 65 6c 73 65 20 20 20 20 20 else
3af0: 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 6e lon
3b00: 67 76 61 6c 75 65 20 3d 20 76 61 5f 61 72 67 28 gvalue = va_arg(
3b10: 61 70 2c 75 6e 73 69 67 6e 65 64 20 69 6e 74 29 ap,unsigned int)
3b20: 3b 0a 20 20 20 20 20 20 20 20 20 20 70 72 65 66 ;. pref
3b30: 69 78 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 ix = 0;.
3b40: 7d 0a 20 20 20 20 20 20 20 20 69 66 28 20 6c 6f }. if( lo
3b50: 6e 67 76 61 6c 75 65 3d 3d 30 20 29 20 66 6c 61 ngvalue==0 ) fla
3b60: 67 5f 61 6c 74 65 72 6e 61 74 65 66 6f 72 6d 20 g_alternateform
3b70: 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 69 66 28 = 0;. if(
3b80: 20 66 6c 61 67 5f 7a 65 72 6f 70 61 64 20 26 26 flag_zeropad &&
3b90: 20 70 72 65 63 69 73 69 6f 6e 3c 77 69 64 74 68 precision<width
3ba0: 2d 28 70 72 65 66 69 78 21 3d 30 29 20 29 7b 0a -(prefix!=0) ){.
3bb0: 20 20 20 20 20 20 20 20 20 20 70 72 65 63 69 73 precis
3bc0: 69 6f 6e 20 3d 20 77 69 64 74 68 2d 28 70 72 65 ion = width-(pre
3bd0: 66 69 78 21 3d 30 29 3b 0a 20 20 20 20 20 20 20 fix!=0);.
3be0: 20 7d 0a 20 20 20 20 20 20 20 20 62 75 66 70 74 }. bufpt
3bf0: 20 3d 20 26 62 75 66 5b 65 74 42 55 46 53 49 5a = &buf[etBUFSIZ
3c00: 45 2d 31 5d 3b 0a 20 20 20 20 20 20 20 20 7b 0a E-1];. {.
3c10: 20 20 20 20 20 20 20 20 20 20 72 65 67 69 73 74 regist
3c20: 65 72 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 63 er const char *c
3c30: 73 65 74 3b 20 20 20 20 20 20 2f 2a 20 55 73 65 set; /* Use
3c40: 20 72 65 67 69 73 74 65 72 73 20 66 6f 72 20 73 registers for s
3c50: 70 65 65 64 20 2a 2f 0a 20 20 20 20 20 20 20 20 peed */.
3c60: 20 20 72 65 67 69 73 74 65 72 20 69 6e 74 20 62 register int b
3c70: 61 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 63 ase;. c
3c80: 73 65 74 20 3d 20 26 61 44 69 67 69 74 73 5b 69 set = &aDigits[i
3c90: 6e 66 6f 70 2d 3e 63 68 61 72 73 65 74 5d 3b 0a nfop->charset];.
3ca0: 20 20 20 20 20 20 20 20 20 20 62 61 73 65 20 3d base =
3cb0: 20 69 6e 66 6f 70 2d 3e 62 61 73 65 3b 0a 20 20 infop->base;.
3cc0: 20 20 20 20 20 20 20 20 64 6f 7b 20 20 20 20 20 do{
3cd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3ce0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3cf0: 20 20 20 20 20 20 2f 2a 20 43 6f 6e 76 65 72 74 /* Convert
3d00: 20 74 6f 20 61 73 63 69 69 20 2a 2f 0a 20 20 20 to ascii */.
3d10: 20 20 20 20 20 20 20 20 20 2a 28 2d 2d 62 75 66 *(--buf
3d20: 70 74 29 20 3d 20 63 73 65 74 5b 6c 6f 6e 67 76 pt) = cset[longv
3d30: 61 6c 75 65 25 62 61 73 65 5d 3b 0a 20 20 20 20 alue%base];.
3d40: 20 20 20 20 20 20 20 20 6c 6f 6e 67 76 61 6c 75 longvalu
3d50: 65 20 3d 20 6c 6f 6e 67 76 61 6c 75 65 2f 62 61 e = longvalue/ba
3d60: 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 77 se;. }w
3d70: 68 69 6c 65 28 20 6c 6f 6e 67 76 61 6c 75 65 3e hile( longvalue>
3d80: 30 20 29 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 0 );. }.
3d90: 20 20 20 20 20 20 20 6c 65 6e 67 74 68 20 3d 20 length =
3da0: 26 62 75 66 5b 65 74 42 55 46 53 49 5a 45 2d 31 &buf[etBUFSIZE-1
3db0: 5d 2d 62 75 66 70 74 3b 0a 20 20 20 20 20 20 20 ]-bufpt;.
3dc0: 20 66 6f 72 28 69 64 78 3d 70 72 65 63 69 73 69 for(idx=precisi
3dd0: 6f 6e 2d 6c 65 6e 67 74 68 3b 20 69 64 78 3e 30 on-length; idx>0
3de0: 3b 20 69 64 78 2d 2d 29 7b 0a 20 20 20 20 20 20 ; idx--){.
3df0: 20 20 20 20 2a 28 2d 2d 62 75 66 70 74 29 20 3d *(--bufpt) =
3e00: 20 27 30 27 3b 20 20 20 20 20 20 20 20 20 20 20 '0';
3e10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3e20: 20 20 2f 2a 20 5a 65 72 6f 20 70 61 64 20 2a 2f /* Zero pad */
3e30: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 . }.
3e40: 20 20 20 69 66 28 20 70 72 65 66 69 78 20 29 20 if( prefix )
3e50: 2a 28 2d 2d 62 75 66 70 74 29 20 3d 20 70 72 65 *(--bufpt) = pre
3e60: 66 69 78 3b 20 20 20 20 20 20 20 20 20 20 20 20 fix;
3e70: 20 20 20 2f 2a 20 41 64 64 20 73 69 67 6e 20 2a /* Add sign *
3e80: 2f 0a 20 20 20 20 20 20 20 20 69 66 28 20 66 6c /. if( fl
3e90: 61 67 5f 61 6c 74 65 72 6e 61 74 65 66 6f 72 6d ag_alternateform
3ea0: 20 26 26 20 69 6e 66 6f 70 2d 3e 70 72 65 66 69 && infop->prefi
3eb0: 78 20 29 7b 20 20 20 20 20 20 2f 2a 20 41 64 64 x ){ /* Add
3ec0: 20 22 30 22 20 6f 72 20 22 30 78 22 20 2a 2f 0a "0" or "0x" */.
3ed0: 20 20 20 20 20 20 20 20 20 20 63 6f 6e 73 74 20 const
3ee0: 63 68 61 72 20 2a 70 72 65 3b 0a 20 20 20 20 20 char *pre;.
3ef0: 20 20 20 20 20 63 68 61 72 20 78 3b 0a 20 20 20 char x;.
3f00: 20 20 20 20 20 20 20 70 72 65 20 3d 20 26 61 50 pre = &aP
3f10: 72 65 66 69 78 5b 69 6e 66 6f 70 2d 3e 70 72 65 refix[infop->pre
3f20: 66 69 78 5d 3b 0a 20 20 20 20 20 20 20 20 20 20 fix];.
3f30: 69 66 28 20 2a 62 75 66 70 74 21 3d 70 72 65 5b if( *bufpt!=pre[
3f40: 30 5d 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 0] ){.
3f50: 20 20 66 6f 72 28 3b 20 28 78 3d 28 2a 70 72 65 for(; (x=(*pre
3f60: 29 29 21 3d 30 3b 20 70 72 65 2b 2b 29 20 2a 28 ))!=0; pre++) *(
3f70: 2d 2d 62 75 66 70 74 29 20 3d 20 78 3b 0a 20 20 --bufpt) = x;.
3f80: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 }.
3f90: 20 20 7d 0a 20 20 20 20 20 20 20 20 6c 65 6e 67 }. leng
3fa0: 74 68 20 3d 20 26 62 75 66 5b 65 74 42 55 46 53 th = &buf[etBUFS
3fb0: 49 5a 45 2d 31 5d 2d 62 75 66 70 74 3b 0a 20 20 IZE-1]-bufpt;.
3fc0: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 break;.
3fd0: 20 20 20 63 61 73 65 20 65 74 46 4c 4f 41 54 3a case etFLOAT:
3fe0: 0a 20 20 20 20 20 20 63 61 73 65 20 65 74 45 58 . case etEX
3ff0: 50 3a 0a 20 20 20 20 20 20 63 61 73 65 20 65 74 P:. case et
4000: 47 45 4e 45 52 49 43 3a 0a 20 20 20 20 20 20 20 GENERIC:.
4010: 20 72 65 61 6c 76 61 6c 75 65 20 3d 20 76 61 5f realvalue = va_
4020: 61 72 67 28 61 70 2c 64 6f 75 62 6c 65 29 3b 0a arg(ap,double);.
4030: 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f #ifndef SQLITE_O
4040: 4d 49 54 5f 46 4c 4f 41 54 49 4e 47 5f 50 4f 49 MIT_FLOATING_POI
4050: 4e 54 0a 20 20 20 20 20 20 20 20 69 66 28 20 70 NT. if( p
4060: 72 65 63 69 73 69 6f 6e 3c 30 20 29 20 70 72 65 recision<0 ) pre
4070: 63 69 73 69 6f 6e 20 3d 20 36 3b 20 20 20 20 20 cision = 6;
4080: 20 20 20 20 2f 2a 20 53 65 74 20 64 65 66 61 75 /* Set defau
4090: 6c 74 20 70 72 65 63 69 73 69 6f 6e 20 2a 2f 0a lt precision */.
40a0: 20 20 20 20 20 20 20 20 69 66 28 20 70 72 65 63 if( prec
40b0: 69 73 69 6f 6e 3e 65 74 42 55 46 53 49 5a 45 2f ision>etBUFSIZE/
40c0: 32 2d 31 30 20 29 20 70 72 65 63 69 73 69 6f 6e 2-10 ) precision
40d0: 20 3d 20 65 74 42 55 46 53 49 5a 45 2f 32 2d 31 = etBUFSIZE/2-1
40e0: 30 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 72 0;. if( r
40f0: 65 61 6c 76 61 6c 75 65 3c 30 2e 30 20 29 7b 0a ealvalue<0.0 ){.
4100: 20 20 20 20 20 20 20 20 20 20 72 65 61 6c 76 61 realva
4110: 6c 75 65 20 3d 20 2d 72 65 61 6c 76 61 6c 75 65 lue = -realvalue
4120: 3b 0a 20 20 20 20 20 20 20 20 20 20 70 72 65 66 ;. pref
4130: 69 78 20 3d 20 27 2d 27 3b 0a 20 20 20 20 20 20 ix = '-';.
4140: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 }else{.
4150: 20 20 20 69 66 28 20 66 6c 61 67 5f 70 6c 75 73 if( flag_plus
4160: 73 69 67 6e 20 29 20 20 20 20 20 20 20 20 20 20 sign )
4170: 70 72 65 66 69 78 20 3d 20 27 2b 27 3b 0a 20 20 prefix = '+';.
4180: 20 20 20 20 20 20 20 20 65 6c 73 65 20 69 66 28 else if(
4190: 20 66 6c 61 67 5f 62 6c 61 6e 6b 73 69 67 6e 20 flag_blanksign
41a0: 29 20 20 20 20 70 72 65 66 69 78 20 3d 20 27 20 ) prefix = '
41b0: 27 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 ';. els
41c0: 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e
41d0: 20 20 20 20 20 20 20 20 20 20 70 72 65 66 69 78 prefix
41e0: 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 7d 0a = 0;. }.
41f0: 20 20 20 20 20 20 20 20 69 66 28 20 78 74 79 70 if( xtyp
4200: 65 3d 3d 65 74 47 45 4e 45 52 49 43 20 26 26 20 e==etGENERIC &&
4210: 70 72 65 63 69 73 69 6f 6e 3e 30 20 29 20 70 72 precision>0 ) pr
4220: 65 63 69 73 69 6f 6e 2d 2d 3b 0a 23 69 66 20 30 ecision--;.#if 0
4230: 0a 20 20 20 20 20 20 20 20 2f 2a 20 52 6f 75 6e . /* Roun
4240: 64 69 6e 67 20 77 6f 72 6b 73 20 6c 69 6b 65 20 ding works like
4250: 42 53 44 20 77 68 65 6e 20 74 68 65 20 63 6f 6e BSD when the con
4260: 73 74 61 6e 74 20 30 2e 34 39 39 39 20 69 73 20 stant 0.4999 is
4270: 75 73 65 64 2e 20 20 57 69 65 72 64 21 20 2a 2f used. Wierd! */
4280: 0a 20 20 20 20 20 20 20 20 66 6f 72 28 69 64 78 . for(idx
4290: 3d 70 72 65 63 69 73 69 6f 6e 2c 20 72 6f 75 6e =precision, roun
42a0: 64 65 72 3d 30 2e 34 39 39 39 3b 20 69 64 78 3e der=0.4999; idx>
42b0: 30 3b 20 69 64 78 2d 2d 2c 20 72 6f 75 6e 64 65 0; idx--, rounde
42c0: 72 2a 3d 30 2e 31 29 3b 0a 23 65 6c 73 65 0a 20 r*=0.1);.#else.
42d0: 20 20 20 20 20 20 20 2f 2a 20 49 74 20 6d 61 6b /* It mak
42e0: 65 73 20 6d 6f 72 65 20 73 65 6e 73 65 20 74 6f es more sense to
42f0: 20 75 73 65 20 30 2e 35 20 2a 2f 0a 20 20 20 20 use 0.5 */.
4300: 20 20 20 20 66 6f 72 28 69 64 78 3d 70 72 65 63 for(idx=prec
4310: 69 73 69 6f 6e 2c 20 72 6f 75 6e 64 65 72 3d 30 ision, rounder=0
4320: 2e 35 3b 20 69 64 78 3e 30 3b 20 69 64 78 2d 2d .5; idx>0; idx--
4330: 2c 20 72 6f 75 6e 64 65 72 2a 3d 30 2e 31 29 7b , rounder*=0.1){
4340: 7d 0a 23 65 6e 64 69 66 0a 20 20 20 20 20 20 20 }.#endif.
4350: 20 69 66 28 20 78 74 79 70 65 3d 3d 65 74 46 4c if( xtype==etFL
4360: 4f 41 54 20 29 20 72 65 61 6c 76 61 6c 75 65 20 OAT ) realvalue
4370: 2b 3d 20 72 6f 75 6e 64 65 72 3b 0a 20 20 20 20 += rounder;.
4380: 20 20 20 20 2f 2a 20 4e 6f 72 6d 61 6c 69 7a 65 /* Normalize
4390: 20 72 65 61 6c 76 61 6c 75 65 20 74 6f 20 77 69 realvalue to wi
43a0: 74 68 69 6e 20 31 30 2e 30 20 3e 20 72 65 61 6c thin 10.0 > real
43b0: 76 61 6c 75 65 20 3e 3d 20 31 2e 30 20 2a 2f 0a value >= 1.0 */.
43c0: 20 20 20 20 20 20 20 20 65 78 70 20 3d 20 30 3b exp = 0;
43d0: 0a 20 20 20 20 20 20 20 20 69 66 28 20 69 73 6e . if( isn
43e0: 61 6e 28 72 65 61 6c 76 61 6c 75 65 29 20 29 7b an(realvalue) ){
43f0: 0a 20 20 20 20 20 20 20 20 20 20 62 75 66 70 74 . bufpt
4400: 20 3d 20 22 4e 61 4e 22 3b 0a 20 20 20 20 20 20 = "NaN";.
4410: 20 20 20 20 6c 65 6e 67 74 68 20 3d 20 33 3b 0a length = 3;.
4420: 20 20 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b break;
4430: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 . }.
4440: 20 20 20 69 66 28 20 72 65 61 6c 76 61 6c 75 65 if( realvalue
4450: 3e 30 2e 30 20 29 7b 0a 20 20 20 20 20 20 20 20 >0.0 ){.
4460: 20 20 77 68 69 6c 65 28 20 72 65 61 6c 76 61 6c while( realval
4470: 75 65 3e 3d 31 65 33 32 20 26 26 20 65 78 70 3c ue>=1e32 && exp<
4480: 3d 33 35 30 20 29 7b 20 72 65 61 6c 76 61 6c 75 =350 ){ realvalu
4490: 65 20 2a 3d 20 31 65 2d 33 32 3b 20 65 78 70 2b e *= 1e-32; exp+
44a0: 3d 33 32 3b 20 7d 0a 20 20 20 20 20 20 20 20 20 =32; }.
44b0: 20 77 68 69 6c 65 28 20 72 65 61 6c 76 61 6c 75 while( realvalu
44c0: 65 3e 3d 31 65 38 20 26 26 20 65 78 70 3c 3d 33 e>=1e8 && exp<=3
44d0: 35 30 20 29 7b 20 72 65 61 6c 76 61 6c 75 65 20 50 ){ realvalue
44e0: 2a 3d 20 31 65 2d 38 3b 20 65 78 70 2b 3d 38 3b *= 1e-8; exp+=8;
44f0: 20 7d 0a 20 20 20 20 20 20 20 20 20 20 77 68 69 }. whi
4500: 6c 65 28 20 72 65 61 6c 76 61 6c 75 65 3e 3d 31 le( realvalue>=1
4510: 30 2e 30 20 26 26 20 65 78 70 3c 3d 33 35 30 20 0.0 && exp<=350
4520: 29 7b 20 72 65 61 6c 76 61 6c 75 65 20 2a 3d 20 ){ realvalue *=
4530: 30 2e 31 3b 20 65 78 70 2b 2b 3b 20 7d 0a 20 20 0.1; exp++; }.
4540: 20 20 20 20 20 20 20 20 77 68 69 6c 65 28 20 72 while( r
4550: 65 61 6c 76 61 6c 75 65 3c 31 65 2d 38 20 26 26 ealvalue<1e-8 &&
4560: 20 65 78 70 3e 3d 2d 33 35 30 20 29 7b 20 72 65 exp>=-350 ){ re
4570: 61 6c 76 61 6c 75 65 20 2a 3d 20 31 65 38 3b 20 alvalue *= 1e8;
4580: 65 78 70 2d 3d 38 3b 20 7d 0a 20 20 20 20 20 20 exp-=8; }.
4590: 20 20 20 20 77 68 69 6c 65 28 20 72 65 61 6c 76 while( realv
45a0: 61 6c 75 65 3c 31 2e 30 20 26 26 20 65 78 70 3e alue<1.0 && exp>
45b0: 3d 2d 33 35 30 20 29 7b 20 72 65 61 6c 76 61 6c =-350 ){ realval
45c0: 75 65 20 2a 3d 20 31 30 2e 30 3b 20 65 78 70 2d ue *= 10.0; exp-
45d0: 2d 3b 20 7d 0a 20 20 20 20 20 20 20 20 20 20 69 -; }. i
45e0: 66 28 20 65 78 70 3e 33 35 30 20 7c 7c 20 65 78 f( exp>350 || ex
45f0: 70 3c 2d 33 35 30 20 29 7b 0a 20 20 20 20 20 20 p<-350 ){.
4600: 20 20 20 20 20 20 69 66 28 20 70 72 65 66 69 78 if( prefix
4610: 3d 3d 27 2d 27 20 29 7b 0a 20 20 20 20 20 20 20 =='-' ){.
4620: 20 20 20 20 20 20 20 62 75 66 70 74 20 3d 20 22 bufpt = "
4630: 2d 49 6e 66 22 3b 0a 20 20 20 20 20 20 20 20 20 -Inf";.
4640: 20 20 20 7d 65 6c 73 65 20 69 66 28 20 70 72 65 }else if( pre
4650: 66 69 78 3d 3d 27 2b 27 20 29 7b 0a 20 20 20 20 fix=='+' ){.
4660: 20 20 20 20 20 20 20 20 20 20 62 75 66 70 74 20 bufpt
4670: 3d 20 22 2b 49 6e 66 22 3b 0a 20 20 20 20 20 20 = "+Inf";.
4680: 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 }else{.
4690: 20 20 20 20 20 20 20 20 20 20 20 62 75 66 70 74 bufpt
46a0: 20 3d 20 22 49 6e 66 22 3b 0a 20 20 20 20 20 20 = "Inf";.
46b0: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 }.
46c0: 20 20 20 20 6c 65 6e 67 74 68 20 3d 20 73 74 72 length = str
46d0: 6c 65 6e 28 62 75 66 70 74 29 3b 0a 20 20 20 20 len(bufpt);.
46e0: 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 break;.
46f0: 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 }.
4700: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 62 75 66 }. buf
4710: 70 74 20 3d 20 62 75 66 3b 0a 20 20 20 20 20 20 pt = buf;.
4720: 20 20 2f 2a 0a 20 20 20 20 20 20 20 20 2a 2a 20 /*. **
4730: 49 66 20 74 68 65 20 66 69 65 6c 64 20 74 79 70 If the field typ
4740: 65 20 69 73 20 65 74 47 45 4e 45 52 49 43 2c 20 e is etGENERIC,
4750: 74 68 65 6e 20 63 6f 6e 76 65 72 74 20 74 6f 20 then convert to
4760: 65 69 74 68 65 72 20 65 74 45 58 50 0a 20 20 20 either etEXP.
4770: 20 20 20 20 20 2a 2a 20 6f 72 20 65 74 46 4c 4f ** or etFLO
4780: 41 54 2c 20 61 73 20 61 70 70 72 6f 70 72 69 61 AT, as appropria
4790: 74 65 2e 0a 20 20 20 20 20 20 20 20 2a 2f 0a 20 te.. */.
47a0: 20 20 20 20 20 20 20 66 6c 61 67 5f 65 78 70 20 flag_exp
47b0: 3d 20 78 74 79 70 65 3d 3d 65 74 45 58 50 3b 0a = xtype==etEXP;.
47c0: 20 20 20 20 20 20 20 20 69 66 28 20 78 74 79 70 if( xtyp
47d0: 65 21 3d 65 74 46 4c 4f 41 54 20 29 7b 0a 20 20 e!=etFLOAT ){.
47e0: 20 20 20 20 20 20 20 20 72 65 61 6c 76 61 6c 75 realvalu
47f0: 65 20 2b 3d 20 72 6f 75 6e 64 65 72 3b 0a 20 20 e += rounder;.
4800: 20 20 20 20 20 20 20 20 69 66 28 20 72 65 61 6c if( real
4810: 76 61 6c 75 65 3e 3d 31 30 2e 30 20 29 7b 20 72 value>=10.0 ){ r
4820: 65 61 6c 76 61 6c 75 65 20 2a 3d 20 30 2e 31 3b ealvalue *= 0.1;
4830: 20 65 78 70 2b 2b 3b 20 7d 0a 20 20 20 20 20 20 exp++; }.
4840: 20 20 7d 0a 20 20 20 20 20 20 20 20 69 66 28 20 }. if(
4850: 78 74 79 70 65 3d 3d 65 74 47 45 4e 45 52 49 43 xtype==etGENERIC
4860: 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 66 6c ){. fl
4870: 61 67 5f 72 74 7a 20 3d 20 21 66 6c 61 67 5f 61 ag_rtz = !flag_a
4880: 6c 74 65 72 6e 61 74 65 66 6f 72 6d 3b 0a 20 20 lternateform;.
4890: 20 20 20 20 20 20 20 20 69 66 28 20 65 78 70 3c if( exp<
48a0: 2d 34 20 7c 7c 20 65 78 70 3e 70 72 65 63 69 73 -4 || exp>precis
48b0: 69 6f 6e 20 29 7b 0a 20 20 20 20 20 20 20 20 20 ion ){.
48c0: 20 20 20 78 74 79 70 65 20 3d 20 65 74 45 58 50 xtype = etEXP
48d0: 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 65 6c 73 ;. }els
48e0: 65 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 e{. p
48f0: 72 65 63 69 73 69 6f 6e 20 3d 20 70 72 65 63 69 recision = preci
4900: 73 69 6f 6e 20 2d 20 65 78 70 3b 0a 20 20 20 20 sion - exp;.
4910: 20 20 20 20 20 20 20 20 78 74 79 70 65 20 3d 20 xtype =
4920: 65 74 46 4c 4f 41 54 3b 0a 20 20 20 20 20 20 20 etFLOAT;.
4930: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 7d 65 6c }. }el
4940: 73 65 7b 0a 20 20 20 20 20 20 20 20 20 20 66 6c se{. fl
4950: 61 67 5f 72 74 7a 20 3d 20 30 3b 0a 20 20 20 20 ag_rtz = 0;.
4960: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 69 66 }. if
4970: 28 20 78 74 79 70 65 3d 3d 65 74 45 58 50 20 29 ( xtype==etEXP )
4980: 7b 0a 20 20 20 20 20 20 20 20 20 20 65 32 20 3d {. e2 =
4990: 20 30 3b 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 0;. }els
49a0: 65 7b 0a 20 20 20 20 20 20 20 20 20 20 65 32 20 e{. e2
49b0: 3d 20 65 78 70 3b 0a 20 20 20 20 20 20 20 20 7d = exp;. }
49c0: 0a 20 20 20 20 20 20 20 20 6e 73 64 20 3d 20 30 . nsd = 0
49d0: 3b 0a 20 20 20 20 20 20 20 20 66 6c 61 67 5f 64 ;. flag_d
49e0: 70 20 3d 20 28 70 72 65 63 69 73 69 6f 6e 3e 30 p = (precision>0
49f0: 29 20 7c 20 66 6c 61 67 5f 61 6c 74 65 72 6e 61 ) | flag_alterna
4a00: 74 65 66 6f 72 6d 20 7c 20 66 6c 61 67 5f 61 6c teform | flag_al
4a10: 74 66 6f 72 6d 32 3b 0a 20 20 20 20 20 20 20 20 tform2;.
4a20: 2f 2a 20 54 68 65 20 73 69 67 6e 20 69 6e 20 66 /* The sign in f
4a30: 72 6f 6e 74 20 6f 66 20 74 68 65 20 6e 75 6d 62 ront of the numb
4a40: 65 72 20 2a 2f 0a 20 20 20 20 20 20 20 20 69 66 er */. if
4a50: 28 20 70 72 65 66 69 78 20 29 7b 0a 20 20 20 20 ( prefix ){.
4a60: 20 20 20 20 20 20 2a 28 62 75 66 70 74 2b 2b 29 *(bufpt++)
4a70: 20 3d 20 70 72 65 66 69 78 3b 0a 20 20 20 20 20 = prefix;.
4a80: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 2f 2a 20 }. /*
4a90: 44 69 67 69 74 73 20 70 72 69 6f 72 20 74 6f 20 Digits prior to
4aa0: 74 68 65 20 64 65 63 69 6d 61 6c 20 70 6f 69 6e the decimal poin
4ab0: 74 20 2a 2f 0a 20 20 20 20 20 20 20 20 69 66 28 t */. if(
4ac0: 20 65 32 3c 30 20 29 7b 0a 20 20 20 20 20 20 20 e2<0 ){.
4ad0: 20 20 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 *(bufpt++) =
4ae0: 27 30 27 3b 0a 20 20 20 20 20 20 20 20 7d 65 6c '0';. }el
4af0: 73 65 7b 0a 20 20 20 20 20 20 20 20 20 20 66 6f se{. fo
4b00: 72 28 3b 20 65 32 3e 3d 30 3b 20 65 32 2d 2d 29 r(; e2>=0; e2--)
4b10: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 2a 28 {. *(
4b20: 62 75 66 70 74 2b 2b 29 20 3d 20 65 74 5f 67 65 bufpt++) = et_ge
4b30: 74 64 69 67 69 74 28 26 72 65 61 6c 76 61 6c 75 tdigit(&realvalu
4b40: 65 2c 26 6e 73 64 29 3b 0a 20 20 20 20 20 20 20 e,&nsd);.
4b50: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20 }. }.
4b60: 20 20 20 20 20 20 20 2f 2a 20 54 68 65 20 64 65 /* The de
4b70: 63 69 6d 61 6c 20 70 6f 69 6e 74 20 2a 2f 0a 20 cimal point */.
4b80: 20 20 20 20 20 20 20 69 66 28 20 66 6c 61 67 5f if( flag_
4b90: 64 70 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 dp ){.
4ba0: 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 27 2e 27 *(bufpt++) = '.'
4bb0: 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 ;. }.
4bc0: 20 20 20 20 2f 2a 20 22 30 22 20 64 69 67 69 74 /* "0" digit
4bd0: 73 20 61 66 74 65 72 20 74 68 65 20 64 65 63 69 s after the deci
4be0: 6d 61 6c 20 70 6f 69 6e 74 20 62 75 74 20 62 65 mal point but be
4bf0: 66 6f 72 65 20 74 68 65 20 66 69 72 73 74 0a 20 fore the first.
4c00: 20 20 20 20 20 20 20 2a 2a 20 73 69 67 6e 69 66 ** signif
4c10: 69 63 61 6e 74 20 64 69 67 69 74 20 6f 66 20 74 icant digit of t
4c20: 68 65 20 6e 75 6d 62 65 72 20 2a 2f 0a 20 20 20 he number */.
4c30: 20 20 20 20 20 66 6f 72 28 65 32 2b 2b 3b 20 65 for(e2++; e
4c40: 32 3c 30 20 26 26 20 70 72 65 63 69 73 69 6f 6e 2<0 && precision
4c50: 3e 30 3b 20 70 72 65 63 69 73 69 6f 6e 2d 2d 2c >0; precision--,
4c60: 20 65 32 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20 e2++){.
4c70: 20 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 27 *(bufpt++) = '
4c80: 30 27 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 0';. }.
4c90: 20 20 20 20 20 20 2f 2a 20 53 69 67 6e 69 66 69 /* Signifi
4ca0: 63 61 6e 74 20 64 69 67 69 74 73 20 61 66 74 65 cant digits afte
4cb0: 72 20 74 68 65 20 64 65 63 69 6d 61 6c 20 70 6f r the decimal po
4cc0: 69 6e 74 20 2a 2f 0a 20 20 20 20 20 20 20 20 77 int */. w
4cd0: 68 69 6c 65 28 20 28 70 72 65 63 69 73 69 6f 6e hile( (precision
4ce0: 2d 2d 29 3e 30 20 29 7b 0a 20 20 20 20 20 20 20 --)>0 ){.
4cf0: 20 20 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 *(bufpt++) =
4d00: 65 74 5f 67 65 74 64 69 67 69 74 28 26 72 65 61 et_getdigit(&rea
4d10: 6c 76 61 6c 75 65 2c 26 6e 73 64 29 3b 0a 20 20 lvalue,&nsd);.
4d20: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 }.
4d30: 2f 2a 20 52 65 6d 6f 76 65 20 74 72 61 69 6c 69 /* Remove traili
4d40: 6e 67 20 7a 65 72 6f 73 20 61 6e 64 20 74 68 65 ng zeros and the
4d50: 20 22 2e 22 20 69 66 20 6e 6f 20 64 69 67 69 74 "." if no digit
4d60: 73 20 66 6f 6c 6c 6f 77 20 74 68 65 20 22 2e 22 s follow the "."
4d70: 20 2a 2f 0a 20 20 20 20 20 20 20 20 69 66 28 20 */. if(
4d80: 66 6c 61 67 5f 72 74 7a 20 26 26 20 66 6c 61 67 flag_rtz && flag
4d90: 5f 64 70 20 29 7b 0a 20 20 20 20 20 20 20 20 20 _dp ){.
4da0: 20 77 68 69 6c 65 28 20 62 75 66 70 74 5b 2d 31 while( bufpt[-1
4db0: 5d 3d 3d 27 30 27 20 29 20 2a 28 2d 2d 62 75 66 ]=='0' ) *(--buf
4dc0: 70 74 29 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 pt) = 0;.
4dd0: 20 20 20 61 73 73 65 72 74 28 20 62 75 66 70 74 assert( bufpt
4de0: 3e 62 75 66 20 29 3b 0a 20 20 20 20 20 20 20 20 >buf );.
4df0: 20 20 69 66 28 20 62 75 66 70 74 5b 2d 31 5d 3d if( bufpt[-1]=
4e00: 3d 27 2e 27 20 29 7b 0a 20 20 20 20 20 20 20 20 ='.' ){.
4e10: 20 20 20 20 69 66 28 20 66 6c 61 67 5f 61 6c 74 if( flag_alt
4e20: 66 6f 72 6d 32 20 29 7b 0a 20 20 20 20 20 20 20 form2 ){.
4e30: 20 20 20 20 20 20 20 2a 28 62 75 66 70 74 2b 2b *(bufpt++
4e40: 29 20 3d 20 27 30 27 3b 0a 20 20 20 20 20 20 20 ) = '0';.
4e50: 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 }else{.
4e60: 20 20 20 20 20 20 20 20 20 20 2a 28 2d 2d 62 75 *(--bu
4e70: 66 70 74 29 20 3d 20 30 3b 0a 20 20 20 20 20 20 fpt) = 0;.
4e80: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 }.
4e90: 20 20 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 }. }.
4ea0: 20 20 20 20 20 20 2f 2a 20 41 64 64 20 74 68 65 /* Add the
4eb0: 20 22 65 4e 4e 4e 22 20 73 75 66 66 69 78 20 2a "eNNN" suffix *
4ec0: 2f 0a 20 20 20 20 20 20 20 20 69 66 28 20 66 6c /. if( fl
4ed0: 61 67 5f 65 78 70 20 7c 7c 20 28 78 74 79 70 65 ag_exp || (xtype
4ee0: 3d 3d 65 74 45 58 50 20 26 26 20 65 78 70 29 20 ==etEXP && exp)
4ef0: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 2a 28 62 ){. *(b
4f00: 75 66 70 74 2b 2b 29 20 3d 20 61 44 69 67 69 74 ufpt++) = aDigit
4f10: 73 5b 69 6e 66 6f 70 2d 3e 63 68 61 72 73 65 74 s[infop->charset
4f20: 5d 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 ];. if(
4f30: 20 65 78 70 3c 30 20 29 7b 0a 20 20 20 20 20 20 exp<0 ){.
4f40: 20 20 20 20 20 20 2a 28 62 75 66 70 74 2b 2b 29 *(bufpt++)
4f50: 20 3d 20 27 2d 27 3b 20 65 78 70 20 3d 20 2d 65 = '-'; exp = -e
4f60: 78 70 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 65 xp;. }e
4f70: 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 20 20 20 lse{.
4f80: 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 27 2b *(bufpt++) = '+
4f90: 27 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 0a 20 ';. }.
4fa0: 20 20 20 20 20 20 20 20 20 69 66 28 20 65 78 70 if( exp
4fb0: 3e 3d 31 30 30 20 29 7b 0a 20 20 20 20 20 20 20 >=100 ){.
4fc0: 20 20 20 20 20 2a 28 62 75 66 70 74 2b 2b 29 20 *(bufpt++)
4fd0: 3d 20 28 65 78 70 2f 31 30 30 29 2b 27 30 27 3b = (exp/100)+'0';
4fe0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4ff0: 2f 2a 20 31 30 30 27 73 20 64 69 67 69 74 20 2a /* 100's digit *
5000: 2f 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 78 /. ex
5010: 70 20 25 3d 20 31 30 30 3b 0a 20 20 20 20 20 20 p %= 100;.
5020: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20 }.
5030: 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 65 78 70 *(bufpt++) = exp
5040: 2f 31 30 2b 27 30 27 3b 20 20 20 20 20 20 20 20 /10+'0';
5050: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 /*
5060: 31 30 27 73 20 64 69 67 69 74 20 2a 2f 0a 20 20 10's digit */.
5070: 20 20 20 20 20 20 20 20 2a 28 62 75 66 70 74 2b *(bufpt+
5080: 2b 29 20 3d 20 65 78 70 25 31 30 2b 27 30 27 3b +) = exp%10+'0';
5090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
50a0: 20 20 20 20 20 2f 2a 20 31 27 73 20 64 69 67 69 /* 1's digi
50b0: 74 20 2a 2f 0a 20 20 20 20 20 20 20 20 7d 0a 20 t */. }.
50c0: 20 20 20 20 20 20 20 2a 62 75 66 70 74 20 3d 20 *bufpt =
50d0: 30 3b 0a 0a 20 20 20 20 20 20 20 20 2f 2a 20 54 0;.. /* T
50e0: 68 65 20 63 6f 6e 76 65 72 74 65 64 20 6e 75 6d he converted num
50f0: 62 65 72 20 69 73 20 69 6e 20 62 75 66 5b 5d 20 ber is in buf[]
5100: 61 6e 64 20 7a 65 72 6f 20 74 65 72 6d 69 6e 61 and zero termina
5110: 74 65 64 2e 20 4f 75 74 70 75 74 20 69 74 2e 0a ted. Output it..
5120: 20 20 20 20 20 20 20 20 2a 2a 20 4e 6f 74 65 20 ** Note
5130: 74 68 61 74 20 74 68 65 20 6e 75 6d 62 65 72 20 that the number
5140: 69 73 20 69 6e 20 74 68 65 20 75 73 75 61 6c 20 is in the usual
5150: 6f 72 64 65 72 2c 20 6e 6f 74 20 72 65 76 65 72 order, not rever
5160: 73 65 64 20 61 73 20 77 69 74 68 0a 20 20 20 20 sed as with.
5170: 20 20 20 20 2a 2a 20 69 6e 74 65 67 65 72 20 63 ** integer c
5180: 6f 6e 76 65 72 73 69 6f 6e 73 2e 20 2a 2f 0a 20 onversions. */.
5190: 20 20 20 20 20 20 20 6c 65 6e 67 74 68 20 3d 20 length =
51a0: 62 75 66 70 74 2d 62 75 66 3b 0a 20 20 20 20 20 bufpt-buf;.
51b0: 20 20 20 62 75 66 70 74 20 3d 20 62 75 66 3b 0a bufpt = buf;.
51c0: 0a 20 20 20 20 20 20 20 20 2f 2a 20 53 70 65 63 . /* Spec
51d0: 69 61 6c 20 63 61 73 65 3a 20 20 41 64 64 20 6c ial case: Add l
51e0: 65 61 64 69 6e 67 20 7a 65 72 6f 73 20 69 66 20 eading zeros if
51f0: 74 68 65 20 66 6c 61 67 5f 7a 65 72 6f 70 61 64 the flag_zeropad
5200: 20 66 6c 61 67 20 69 73 0a 20 20 20 20 20 20 20 flag is.
5210: 20 2a 2a 20 73 65 74 20 61 6e 64 20 77 65 20 61 ** set and we a
5220: 72 65 20 6e 6f 74 20 6c 65 66 74 20 6a 75 73 74 re not left just
5230: 69 66 69 65 64 20 2a 2f 0a 20 20 20 20 20 20 20 ified */.
5240: 20 69 66 28 20 66 6c 61 67 5f 7a 65 72 6f 70 61 if( flag_zeropa
5250: 64 20 26 26 20 21 66 6c 61 67 5f 6c 65 66 74 6a d && !flag_leftj
5260: 75 73 74 69 66 79 20 26 26 20 6c 65 6e 67 74 68 ustify && length
5270: 20 3c 20 77 69 64 74 68 29 7b 0a 20 20 20 20 20 < width){.
5280: 20 20 20 20 20 69 6e 74 20 69 3b 0a 20 20 20 20 int i;.
5290: 20 20 20 20 20 20 69 6e 74 20 6e 50 61 64 20 3d int nPad =
52a0: 20 77 69 64 74 68 20 2d 20 6c 65 6e 67 74 68 3b width - length;
52b0: 0a 20 20 20 20 20 20 20 20 20 20 66 6f 72 28 69 . for(i
52c0: 3d 77 69 64 74 68 3b 20 69 3e 3d 6e 50 61 64 3b =width; i>=nPad;
52d0: 20 69 2d 2d 29 7b 0a 20 20 20 20 20 20 20 20 20 i--){.
52e0: 20 20 20 62 75 66 70 74 5b 69 5d 20 3d 20 62 75 bufpt[i] = bu
52f0: 66 70 74 5b 69 2d 6e 50 61 64 5d 3b 0a 20 20 20 fpt[i-nPad];.
5300: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 }.
5310: 20 20 20 69 20 3d 20 70 72 65 66 69 78 21 3d 30 i = prefix!=0
5320: 3b 0a 20 20 20 20 20 20 20 20 20 20 77 68 69 6c ;. whil
5330: 65 28 20 6e 50 61 64 2d 2d 20 29 20 62 75 66 70 e( nPad-- ) bufp
5340: 74 5b 69 2b 2b 5d 20 3d 20 27 30 27 3b 0a 20 20 t[i++] = '0';.
5350: 20 20 20 20 20 20 20 20 6c 65 6e 67 74 68 20 3d length =
5360: 20 77 69 64 74 68 3b 0a 20 20 20 20 20 20 20 20 width;.
5370: 7d 0a 23 65 6e 64 69 66 0a 20 20 20 20 20 20 20 }.#endif.
5380: 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 63 61 break;. ca
5390: 73 65 20 65 74 53 49 5a 45 3a 0a 20 20 20 20 20 se etSIZE:.
53a0: 20 20 20 2a 28 76 61 5f 61 72 67 28 61 70 2c 69 *(va_arg(ap,i
53b0: 6e 74 2a 29 29 20 3d 20 63 6f 75 6e 74 3b 0a 20 nt*)) = count;.
53c0: 20 20 20 20 20 20 20 6c 65 6e 67 74 68 20 3d 20 length =
53d0: 77 69 64 74 68 20 3d 20 30 3b 0a 20 20 20 20 20 width = 0;.
53e0: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 break;.
53f0: 63 61 73 65 20 65 74 50 45 52 43 45 4e 54 3a 0a case etPERCENT:.
5400: 20 20 20 20 20 20 20 20 62 75 66 5b 30 5d 20 3d buf[0] =
5410: 20 27 25 27 3b 0a 20 20 20 20 20 20 20 20 62 75 '%';. bu
5420: 66 70 74 20 3d 20 62 75 66 3b 0a 20 20 20 20 20 fpt = buf;.
5430: 20 20 20 6c 65 6e 67 74 68 20 3d 20 31 3b 0a 20 length = 1;.
5440: 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 break;.
5450: 20 20 20 20 63 61 73 65 20 65 74 43 48 41 52 4c case etCHARL
5460: 49 54 3a 0a 20 20 20 20 20 20 63 61 73 65 20 65 IT:. case e
5470: 74 43 48 41 52 58 3a 0a 20 20 20 20 20 20 20 20 tCHARX:.
5480: 63 20 3d 20 62 75 66 5b 30 5d 20 3d 20 28 78 74 c = buf[0] = (xt
5490: 79 70 65 3d 3d 65 74 43 48 41 52 58 20 3f 20 76 ype==etCHARX ? v
54a0: 61 5f 61 72 67 28 61 70 2c 69 6e 74 29 20 3a 20 a_arg(ap,int) :
54b0: 2a 2b 2b 66 6d 74 29 3b 0a 20 20 20 20 20 20 20 *++fmt);.
54c0: 20 69 66 28 20 70 72 65 63 69 73 69 6f 6e 3e 3d if( precision>=
54d0: 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 66 0 ){. f
54e0: 6f 72 28 69 64 78 3d 31 3b 20 69 64 78 3c 70 72 or(idx=1; idx<pr
54f0: 65 63 69 73 69 6f 6e 3b 20 69 64 78 2b 2b 29 20 ecision; idx++)
5500: 62 75 66 5b 69 64 78 5d 20 3d 20 63 3b 0a 20 20 buf[idx] = c;.
5510: 20 20 20 20 20 20 20 20 6c 65 6e 67 74 68 20 3d length =
5520: 20 70 72 65 63 69 73 69 6f 6e 3b 0a 20 20 20 20 precision;.
5530: 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 }else{.
5540: 20 20 20 20 20 6c 65 6e 67 74 68 20 3d 31 3b 0a length =1;.
5550: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 }.
5560: 20 20 62 75 66 70 74 20 3d 20 62 75 66 3b 0a 20 bufpt = buf;.
5570: 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 break;.
5580: 20 20 20 20 63 61 73 65 20 65 74 53 54 52 49 4e case etSTRIN
5590: 47 3a 0a 20 20 20 20 20 20 63 61 73 65 20 65 74 G:. case et
55a0: 44 59 4e 53 54 52 49 4e 47 3a 0a 20 20 20 20 20 DYNSTRING:.
55b0: 20 20 20 62 75 66 70 74 20 3d 20 76 61 5f 61 72 bufpt = va_ar
55c0: 67 28 61 70 2c 63 68 61 72 2a 29 3b 0a 20 20 20 g(ap,char*);.
55d0: 20 20 20 20 20 69 66 28 20 62 75 66 70 74 3d 3d if( bufpt==
55e0: 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 62 0 ){. b
55f0: 75 66 70 74 20 3d 20 22 22 3b 0a 20 20 20 20 20 ufpt = "";.
5600: 20 20 20 7d 65 6c 73 65 20 69 66 28 20 78 74 79 }else if( xty
5610: 70 65 3d 3d 65 74 44 59 4e 53 54 52 49 4e 47 20 pe==etDYNSTRING
5620: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 7a 45 78 ){. zEx
5630: 74 72 61 20 3d 20 62 75 66 70 74 3b 0a 20 20 20 tra = bufpt;.
5640: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 6c }. l
5650: 65 6e 67 74 68 20 3d 20 73 74 72 6c 65 6e 28 62 ength = strlen(b
5660: 75 66 70 74 29 3b 0a 20 20 20 20 20 20 20 20 69 ufpt);. i
5670: 66 28 20 70 72 65 63 69 73 69 6f 6e 3e 3d 30 20 f( precision>=0
5680: 26 26 20 70 72 65 63 69 73 69 6f 6e 3c 6c 65 6e && precision<len
5690: 67 74 68 20 29 20 6c 65 6e 67 74 68 20 3d 20 70 gth ) length = p
56a0: 72 65 63 69 73 69 6f 6e 3b 0a 20 20 20 20 20 20 recision;.
56b0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 63 break;. c
56c0: 61 73 65 20 65 74 53 51 4c 45 53 43 41 50 45 3a ase etSQLESCAPE:
56d0: 0a 20 20 20 20 20 20 63 61 73 65 20 65 74 53 51 . case etSQ
56e0: 4c 45 53 43 41 50 45 32 3a 20 7b 0a 20 20 20 20 LESCAPE2: {.
56f0: 20 20 20 20 69 6e 74 20 69 2c 20 6a 2c 20 6e 2c int i, j, n,
5700: 20 63 68 2c 20 69 73 6e 75 6c 6c 3b 0a 20 20 20 ch, isnull;.
5710: 20 20 20 20 20 69 6e 74 20 6e 65 65 64 51 75 6f int needQuo
5720: 74 65 3b 0a 20 20 20 20 20 20 20 20 63 68 61 72 te;. char
5730: 20 2a 65 73 63 61 72 67 20 3d 20 76 61 5f 61 72 *escarg = va_ar
5740: 67 28 61 70 2c 63 68 61 72 2a 29 3b 0a 20 20 20 g(ap,char*);.
5750: 20 20 20 20 20 69 73 6e 75 6c 6c 20 3d 20 65 73 isnull = es
5760: 63 61 72 67 3d 3d 30 3b 0a 20 20 20 20 20 20 20 carg==0;.
5770: 20 69 66 28 20 69 73 6e 75 6c 6c 20 29 20 65 73 if( isnull ) es
5780: 63 61 72 67 20 3d 20 28 78 74 79 70 65 3d 3d 65 carg = (xtype==e
5790: 74 53 51 4c 45 53 43 41 50 45 32 20 3f 20 22 4e tSQLESCAPE2 ? "N
57a0: 55 4c 4c 22 20 3a 20 22 28 4e 55 4c 4c 29 22 29 ULL" : "(NULL)")
57b0: 3b 0a 20 20 20 20 20 20 20 20 66 6f 72 28 69 3d ;. for(i=
57c0: 6e 3d 30 3b 20 28 63 68 3d 65 73 63 61 72 67 5b n=0; (ch=escarg[
57d0: 69 5d 29 21 3d 30 3b 20 69 2b 2b 29 7b 0a 20 20 i])!=0; i++){.
57e0: 20 20 20 20 20 20 20 20 69 66 28 20 63 68 3d 3d if( ch==
57f0: 27 5c 27 27 20 29 20 20 6e 2b 2b 3b 0a 20 20 20 '\'' ) n++;.
5800: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 6e }. n
5810: 65 65 64 51 75 6f 74 65 20 3d 20 21 69 73 6e 75 eedQuote = !isnu
5820: 6c 6c 20 26 26 20 78 74 79 70 65 3d 3d 65 74 53 ll && xtype==etS
5830: 51 4c 45 53 43 41 50 45 32 3b 0a 20 20 20 20 20 QLESCAPE2;.
5840: 20 20 20 6e 20 2b 3d 20 69 20 2b 20 31 20 2b 20 n += i + 1 +
5850: 6e 65 65 64 51 75 6f 74 65 2a 32 3b 0a 20 20 20 needQuote*2;.
5860: 20 20 20 20 20 69 66 28 20 6e 3e 65 74 42 55 46 if( n>etBUF
5870: 53 49 5a 45 20 29 7b 0a 20 20 20 20 20 20 20 20 SIZE ){.
5880: 20 20 62 75 66 70 74 20 3d 20 7a 45 78 74 72 61 bufpt = zExtra
5890: 20 3d 20 73 71 6c 69 74 65 4d 61 6c 6c 6f 63 28 = sqliteMalloc(
58a0: 20 6e 20 29 3b 0a 20 20 20 20 20 20 20 20 20 20 n );.
58b0: 69 66 28 20 62 75 66 70 74 3d 3d 30 20 29 20 72 if( bufpt==0 ) r
58c0: 65 74 75 72 6e 20 2d 31 3b 0a 20 20 20 20 20 20 eturn -1;.
58d0: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 }else{.
58e0: 20 20 20 62 75 66 70 74 20 3d 20 62 75 66 3b 0a bufpt = buf;.
58f0: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 }.
5900: 20 20 6a 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 j = 0;.
5910: 20 69 66 28 20 6e 65 65 64 51 75 6f 74 65 20 29 if( needQuote )
5920: 20 62 75 66 70 74 5b 6a 2b 2b 5d 20 3d 20 27 5c bufpt[j++] = '\
5930: 27 27 3b 0a 20 20 20 20 20 20 20 20 66 6f 72 28 '';. for(
5940: 69 3d 30 3b 20 28 63 68 3d 65 73 63 61 72 67 5b i=0; (ch=escarg[
5950: 69 5d 29 21 3d 30 3b 20 69 2b 2b 29 7b 0a 20 20 i])!=0; i++){.
5960: 20 20 20 20 20 20 20 20 62 75 66 70 74 5b 6a 2b bufpt[j+
5970: 2b 5d 20 3d 20 63 68 3b 0a 20 20 20 20 20 20 20 +] = ch;.
5980: 20 20 20 69 66 28 20 63 68 3d 3d 27 5c 27 27 20 if( ch=='\''
5990: 29 20 62 75 66 70 74 5b 6a 2b 2b 5d 20 3d 20 63 ) bufpt[j++] = c
59a0: 68 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 h;. }.
59b0: 20 20 20 20 20 69 66 28 20 6e 65 65 64 51 75 6f if( needQuo
59c0: 74 65 20 29 20 62 75 66 70 74 5b 6a 2b 2b 5d 20 te ) bufpt[j++]
59d0: 3d 20 27 5c 27 27 3b 0a 20 20 20 20 20 20 20 20 = '\'';.
59e0: 62 75 66 70 74 5b 6a 5d 20 3d 20 30 3b 0a 20 20 bufpt[j] = 0;.
59f0: 20 20 20 20 20 20 6c 65 6e 67 74 68 20 3d 20 6a length = j
5a00: 3b 0a 20 20 20 20 20 20 20 20 2f 2a 20 54 68 65 ;. /* The
5a10: 20 70 72 65 63 69 73 69 6f 6e 20 69 73 20 69 67 precision is ig
5a20: 6e 6f 72 65 64 20 6f 6e 20 25 71 20 61 6e 64 20 nored on %q and
5a30: 25 51 20 2a 2f 0a 20 20 20 20 20 20 20 20 2f 2a %Q */. /*
5a40: 20 69 66 28 20 70 72 65 63 69 73 69 6f 6e 3e 3d if( precision>=
5a50: 30 20 26 26 20 70 72 65 63 69 73 69 6f 6e 3c 6c 0 && precision<l
5a60: 65 6e 67 74 68 20 29 20 6c 65 6e 67 74 68 20 3d ength ) length =
5a70: 20 70 72 65 63 69 73 69 6f 6e 3b 20 2a 2f 0a 20 precision; */.
5a80: 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 break;.
5a90: 20 20 20 20 7d 0a 20 20 20 20 20 20 63 61 73 65 }. case
5aa0: 20 65 74 54 4f 4b 45 4e 3a 20 7b 0a 20 20 20 20 etTOKEN: {.
5ab0: 20 20 20 20 54 6f 6b 65 6e 20 2a 70 54 6f 6b 65 Token *pToke
5ac0: 6e 20 3d 20 76 61 5f 61 72 67 28 61 70 2c 20 54 n = va_arg(ap, T
5ad0: 6f 6b 65 6e 2a 29 3b 0a 20 20 20 20 20 20 20 20 oken*);.
5ae0: 69 66 28 20 70 54 6f 6b 65 6e 20 26 26 20 70 54 if( pToken && pT
5af0: 6f 6b 65 6e 2d 3e 7a 20 29 7b 0a 20 20 20 20 20 oken->z ){.
5b00: 20 20 20 20 20 28 2a 66 75 6e 63 29 28 61 72 67 (*func)(arg
5b10: 2c 20 28 63 68 61 72 2a 29 70 54 6f 6b 65 6e 2d , (char*)pToken-
5b20: 3e 7a 2c 20 70 54 6f 6b 65 6e 2d 3e 6e 29 3b 0a >z, pToken->n);.
5b30: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 }.
5b40: 20 20 6c 65 6e 67 74 68 20 3d 20 77 69 64 74 68 length = width
5b50: 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 62 72 = 0;. br
5b60: 65 61 6b 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 eak;. }.
5b70: 20 20 20 63 61 73 65 20 65 74 53 52 43 4c 49 53 case etSRCLIS
5b80: 54 3a 20 7b 0a 20 20 20 20 20 20 20 20 53 72 63 T: {. Src
5b90: 4c 69 73 74 20 2a 70 53 72 63 20 3d 20 76 61 5f List *pSrc = va_
5ba0: 61 72 67 28 61 70 2c 20 53 72 63 4c 69 73 74 2a arg(ap, SrcList*
5bb0: 29 3b 0a 20 20 20 20 20 20 20 20 69 6e 74 20 6b );. int k
5bc0: 20 3d 20 76 61 5f 61 72 67 28 61 70 2c 20 69 6e = va_arg(ap, in
5bd0: 74 29 3b 0a 20 20 20 20 20 20 20 20 73 74 72 75 t);. stru
5be0: 63 74 20 53 72 63 4c 69 73 74 5f 69 74 65 6d 20 ct SrcList_item
5bf0: 2a 70 49 74 65 6d 20 3d 20 26 70 53 72 63 2d 3e *pItem = &pSrc->
5c00: 61 5b 6b 5d 3b 0a 20 20 20 20 20 20 20 20 61 73 a[k];. as
5c10: 73 65 72 74 28 20 6b 3e 3d 30 20 26 26 20 6b 3c sert( k>=0 && k<
5c20: 70 53 72 63 2d 3e 6e 53 72 63 20 29 3b 0a 20 20 pSrc->nSrc );.
5c30: 20 20 20 20 20 20 69 66 28 20 70 49 74 65 6d 2d if( pItem-
5c40: 3e 7a 44 61 74 61 62 61 73 65 20 26 26 20 70 49 >zDatabase && pI
5c50: 74 65 6d 2d 3e 7a 44 61 74 61 62 61 73 65 5b 30 tem->zDatabase[0
5c60: 5d 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 28 ] ){. (
5c70: 2a 66 75 6e 63 29 28 61 72 67 2c 20 70 49 74 65 *func)(arg, pIte
5c80: 6d 2d 3e 7a 44 61 74 61 62 61 73 65 2c 20 73 74 m->zDatabase, st
5c90: 72 6c 65 6e 28 70 49 74 65 6d 2d 3e 7a 44 61 74 rlen(pItem->zDat
5ca0: 61 62 61 73 65 29 29 3b 0a 20 20 20 20 20 20 20 abase));.
5cb0: 20 20 20 28 2a 66 75 6e 63 29 28 61 72 67 2c 20 (*func)(arg,
5cc0: 22 2e 22 2c 20 31 29 3b 0a 20 20 20 20 20 20 20 ".", 1);.
5cd0: 20 7d 0a 20 20 20 20 20 20 20 20 28 2a 66 75 6e }. (*fun
5ce0: 63 29 28 61 72 67 2c 20 70 49 74 65 6d 2d 3e 7a c)(arg, pItem->z
5cf0: 4e 61 6d 65 2c 20 73 74 72 6c 65 6e 28 70 49 74 Name, strlen(pIt
5d00: 65 6d 2d 3e 7a 4e 61 6d 65 29 29 3b 0a 20 20 20 em->zName));.
5d10: 20 20 20 20 20 6c 65 6e 67 74 68 20 3d 20 77 69 length = wi
5d20: 64 74 68 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 dth = 0;.
5d30: 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 7d 0a break;. }.
5d40: 20 20 20 20 7d 2f 2a 20 45 6e 64 20 73 77 69 74 }/* End swit
5d50: 63 68 20 6f 76 65 72 20 74 68 65 20 66 6f 72 6d ch over the form
5d60: 61 74 20 74 79 70 65 20 2a 2f 0a 20 20 20 20 2f at type */. /
5d70: 2a 0a 20 20 20 20 2a 2a 20 54 68 65 20 74 65 78 *. ** The tex
5d80: 74 20 6f 66 20 74 68 65 20 63 6f 6e 76 65 72 73 t of the convers
5d90: 69 6f 6e 20 69 73 20 70 6f 69 6e 74 65 64 20 74 ion is pointed t
5da0: 6f 20 62 79 20 22 62 75 66 70 74 22 20 61 6e 64 o by "bufpt" and
5db0: 20 69 73 0a 20 20 20 20 2a 2a 20 22 6c 65 6e 67 is. ** "leng
5dc0: 74 68 22 20 63 68 61 72 61 63 74 65 72 73 20 6c th" characters l
5dd0: 6f 6e 67 2e 20 20 54 68 65 20 66 69 65 6c 64 20 ong. The field
5de0: 77 69 64 74 68 20 69 73 20 22 77 69 64 74 68 22 width is "width"
5df0: 2e 20 20 44 6f 0a 20 20 20 20 2a 2a 20 74 68 65 . Do. ** the
5e00: 20 6f 75 74 70 75 74 2e 0a 20 20 20 20 2a 2f 0a output.. */.
5e10: 20 20 20 20 69 66 28 20 21 66 6c 61 67 5f 6c 65 if( !flag_le
5e20: 66 74 6a 75 73 74 69 66 79 20 29 7b 0a 20 20 20 ftjustify ){.
5e30: 20 20 20 72 65 67 69 73 74 65 72 20 69 6e 74 20 register int
5e40: 6e 73 70 61 63 65 3b 0a 20 20 20 20 20 20 6e 73 nspace;. ns
5e50: 70 61 63 65 20 3d 20 77 69 64 74 68 2d 6c 65 6e pace = width-len
5e60: 67 74 68 3b 0a 20 20 20 20 20 20 69 66 28 20 6e gth;. if( n
5e70: 73 70 61 63 65 3e 30 20 29 7b 0a 20 20 20 20 20 space>0 ){.
5e80: 20 20 20 63 6f 75 6e 74 20 2b 3d 20 6e 73 70 61 count += nspa
5e90: 63 65 3b 0a 20 20 20 20 20 20 20 20 77 68 69 6c ce;. whil
5ea0: 65 28 20 6e 73 70 61 63 65 3e 3d 65 74 53 50 41 e( nspace>=etSPA
5eb0: 43 45 53 49 5a 45 20 29 7b 0a 20 20 20 20 20 20 CESIZE ){.
5ec0: 20 20 20 20 28 2a 66 75 6e 63 29 28 61 72 67 2c (*func)(arg,
5ed0: 73 70 61 63 65 73 2c 65 74 53 50 41 43 45 53 49 spaces,etSPACESI
5ee0: 5a 45 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6e ZE);. n
5ef0: 73 70 61 63 65 20 2d 3d 20 65 74 53 50 41 43 45 space -= etSPACE
5f00: 53 49 5a 45 3b 0a 20 20 20 20 20 20 20 20 7d 0a SIZE;. }.
5f10: 20 20 20 20 20 20 20 20 69 66 28 20 6e 73 70 61 if( nspa
5f20: 63 65 3e 30 20 29 20 28 2a 66 75 6e 63 29 28 61 ce>0 ) (*func)(a
5f30: 72 67 2c 73 70 61 63 65 73 2c 6e 73 70 61 63 65 rg,spaces,nspace
5f40: 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d );. }. }
5f50: 0a 20 20 20 20 69 66 28 20 6c 65 6e 67 74 68 3e . if( length>
5f60: 30 20 29 7b 0a 20 20 20 20 20 20 28 2a 66 75 6e 0 ){. (*fun
5f70: 63 29 28 61 72 67 2c 62 75 66 70 74 2c 6c 65 6e c)(arg,bufpt,len
5f80: 67 74 68 29 3b 0a 20 20 20 20 20 20 63 6f 75 6e gth);. coun
5f90: 74 20 2b 3d 20 6c 65 6e 67 74 68 3b 0a 20 20 20 t += length;.
5fa0: 20 7d 0a 20 20 20 20 69 66 28 20 66 6c 61 67 5f }. if( flag_
5fb0: 6c 65 66 74 6a 75 73 74 69 66 79 20 29 7b 0a 20 leftjustify ){.
5fc0: 20 20 20 20 20 72 65 67 69 73 74 65 72 20 69 6e register in
5fd0: 74 20 6e 73 70 61 63 65 3b 0a 20 20 20 20 20 20 t nspace;.
5fe0: 6e 73 70 61 63 65 20 3d 20 77 69 64 74 68 2d 6c nspace = width-l
5ff0: 65 6e 67 74 68 3b 0a 20 20 20 20 20 20 69 66 28 ength;. if(
6000: 20 6e 73 70 61 63 65 3e 30 20 29 7b 0a 20 20 20 nspace>0 ){.
6010: 20 20 20 20 20 63 6f 75 6e 74 20 2b 3d 20 6e 73 count += ns
6020: 70 61 63 65 3b 0a 20 20 20 20 20 20 20 20 77 68 pace;. wh
6030: 69 6c 65 28 20 6e 73 70 61 63 65 3e 3d 65 74 53 ile( nspace>=etS
6040: 50 41 43 45 53 49 5a 45 20 29 7b 0a 20 20 20 20 PACESIZE ){.
6050: 20 20 20 20 20 20 28 2a 66 75 6e 63 29 28 61 72 (*func)(ar
6060: 67 2c 73 70 61 63 65 73 2c 65 74 53 50 41 43 45 g,spaces,etSPACE
6070: 53 49 5a 45 29 3b 0a 20 20 20 20 20 20 20 20 20 SIZE);.
6080: 20 6e 73 70 61 63 65 20 2d 3d 20 65 74 53 50 41 nspace -= etSPA
6090: 43 45 53 49 5a 45 3b 0a 20 20 20 20 20 20 20 20 CESIZE;.
60a0: 7d 0a 20 20 20 20 20 20 20 20 69 66 28 20 6e 73 }. if( ns
60b0: 70 61 63 65 3e 30 20 29 20 28 2a 66 75 6e 63 29 pace>0 ) (*func)
60c0: 28 61 72 67 2c 73 70 61 63 65 73 2c 6e 73 70 61 (arg,spaces,nspa
60d0: 63 65 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 ce);. }.
60e0: 20 7d 0a 20 20 20 20 69 66 28 20 7a 45 78 74 72 }. if( zExtr
60f0: 61 20 29 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 a ){. sqlit
6100: 65 46 72 65 65 28 7a 45 78 74 72 61 29 3b 0a 20 eFree(zExtra);.
6110: 20 20 20 7d 0a 20 20 7d 2f 2a 20 45 6e 64 20 66 }. }/* End f
6120: 6f 72 20 6c 6f 6f 70 20 6f 76 65 72 20 74 68 65 or loop over the
6130: 20 66 6f 72 6d 61 74 20 73 74 72 69 6e 67 20 2a format string *
6140: 2f 0a 20 20 72 65 74 75 72 6e 20 65 72 72 6f 72 /. return error
6150: 66 6c 61 67 20 3f 20 2d 31 20 3a 20 63 6f 75 6e flag ? -1 : coun
6160: 74 3b 0a 7d 20 2f 2a 20 45 6e 64 20 6f 66 20 66 t;.} /* End of f
6170: 75 6e 63 74 69 6f 6e 20 2a 2f 0a 0a 0a 2f 2a 20 unction */.../*
6180: 54 68 69 73 20 73 74 72 75 63 74 75 72 65 20 69 This structure i
6190: 73 20 75 73 65 64 20 74 6f 20 73 74 6f 72 65 20 s used to store
61a0: 73 74 61 74 65 20 69 6e 66 6f 72 6d 61 74 69 6f state informatio
61b0: 6e 20 61 62 6f 75 74 20 74 68 65 0a 2a 2a 20 77 n about the.** w
61c0: 72 69 74 65 20 74 6f 20 6d 65 6d 6f 72 79 20 74 rite to memory t
61d0: 68 61 74 20 69 73 20 63 75 72 72 65 6e 74 6c 79 hat is currently
61e0: 20 69 6e 20 70 72 6f 67 72 65 73 73 2e 0a 2a 2f in progress..*/
61f0: 0a 73 74 72 75 63 74 20 73 67 4d 70 72 69 6e 74 .struct sgMprint
6200: 66 20 7b 0a 20 20 63 68 61 72 20 2a 7a 42 61 73 f {. char *zBas
6210: 65 3b 20 20 20 20 20 2f 2a 20 41 20 62 61 73 65 e; /* A base
6220: 20 61 6c 6c 6f 63 61 74 69 6f 6e 20 2a 2f 0a 20 allocation */.
6230: 20 63 68 61 72 20 2a 7a 54 65 78 74 3b 20 20 20 char *zText;
6240: 20 20 2f 2a 20 54 68 65 20 73 74 72 69 6e 67 20 /* The string
6250: 63 6f 6c 6c 65 63 74 65 64 20 73 6f 20 66 61 72 collected so far
6260: 20 2a 2f 0a 20 20 69 6e 74 20 20 6e 43 68 61 72 */. int nChar
6270: 3b 20 20 20 20 20 20 2f 2a 20 4c 65 6e 67 74 68 ; /* Length
6280: 20 6f 66 20 74 68 65 20 73 74 72 69 6e 67 20 73 of the string s
6290: 6f 20 66 61 72 20 2a 2f 0a 20 20 69 6e 74 20 20 o far */. int
62a0: 6e 54 6f 74 61 6c 3b 20 20 20 20 20 2f 2a 20 4f nTotal; /* O
62b0: 75 74 70 75 74 20 73 69 7a 65 20 69 66 20 75 6e utput size if un
62c0: 63 6f 6e 73 74 72 61 69 6e 65 64 20 2a 2f 0a 20 constrained */.
62d0: 20 69 6e 74 20 20 6e 41 6c 6c 6f 63 3b 20 20 20 int nAlloc;
62e0: 20 20 2f 2a 20 41 6d 6f 75 6e 74 20 6f 66 20 73 /* Amount of s
62f0: 70 61 63 65 20 61 6c 6c 6f 63 61 74 65 64 20 69 pace allocated i
6300: 6e 20 7a 54 65 78 74 20 2a 2f 0a 20 20 76 6f 69 n zText */. voi
6310: 64 20 2a 28 2a 78 52 65 61 6c 6c 6f 63 29 28 76 d *(*xRealloc)(v
6320: 6f 69 64 2a 2c 69 6e 74 29 3b 20 20 2f 2a 20 46 oid*,int); /* F
6330: 75 6e 63 74 69 6f 6e 20 75 73 65 64 20 74 6f 20 unction used to
6340: 72 65 61 6c 6c 6f 63 20 6d 65 6d 6f 72 79 20 2a realloc memory *
6350: 2f 0a 7d 3b 0a 0a 2f 2a 20 0a 2a 2a 20 54 68 69 /.};../* .** Thi
6360: 73 20 66 75 6e 63 74 69 6f 6e 20 69 6d 70 6c 65 s function imple
6370: 6d 65 6e 74 73 20 74 68 65 20 63 61 6c 6c 62 61 ments the callba
6380: 63 6b 20 66 72 6f 6d 20 76 78 70 72 69 6e 74 66 ck from vxprintf
6390: 2e 20 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 72 6f . .**.** This ro
63a0: 75 74 69 6e 65 20 61 64 64 20 6e 4e 65 77 43 68 utine add nNewCh
63b0: 61 72 20 63 68 61 72 61 63 74 65 72 73 20 6f 66 ar characters of
63c0: 20 74 65 78 74 20 69 6e 20 7a 4e 65 77 54 65 78 text in zNewTex
63d0: 74 20 74 6f 0a 2a 2a 20 74 68 65 20 73 67 4d 70 t to.** the sgMp
63e0: 72 69 6e 74 66 20 73 74 72 75 63 74 75 72 65 20 rintf structure
63f0: 70 6f 69 6e 74 65 64 20 74 6f 20 62 79 20 22 61 pointed to by "a
6400: 72 67 22 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 rg"..*/.static v
6410: 6f 69 64 20 6d 6f 75 74 28 76 6f 69 64 20 2a 61 oid mout(void *a
6420: 72 67 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a rg, const char *
6430: 7a 4e 65 77 54 65 78 74 2c 20 69 6e 74 20 6e 4e zNewText, int nN
6440: 65 77 43 68 61 72 29 7b 0a 20 20 73 74 72 75 63 ewChar){. struc
6450: 74 20 73 67 4d 70 72 69 6e 74 66 20 2a 70 4d 20 t sgMprintf *pM
6460: 3d 20 28 73 74 72 75 63 74 20 73 67 4d 70 72 69 = (struct sgMpri
6470: 6e 74 66 2a 29 61 72 67 3b 0a 20 20 70 4d 2d 3e ntf*)arg;. pM->
6480: 6e 54 6f 74 61 6c 20 2b 3d 20 6e 4e 65 77 43 68 nTotal += nNewCh
6490: 61 72 3b 0a 20 20 69 66 28 20 70 4d 2d 3e 6e 43 ar;. if( pM->nC
64a0: 68 61 72 20 2b 20 6e 4e 65 77 43 68 61 72 20 2b har + nNewChar +
64b0: 20 31 20 3e 20 70 4d 2d 3e 6e 41 6c 6c 6f 63 20 1 > pM->nAlloc
64c0: 29 7b 0a 20 20 20 20 69 66 28 20 70 4d 2d 3e 78 ){. if( pM->x
64d0: 52 65 61 6c 6c 6f 63 3d 3d 30 20 29 7b 0a 20 20 Realloc==0 ){.
64e0: 20 20 20 20 6e 4e 65 77 43 68 61 72 20 3d 20 20 nNewChar =
64f0: 70 4d 2d 3e 6e 41 6c 6c 6f 63 20 2d 20 70 4d 2d pM->nAlloc - pM-
6500: 3e 6e 43 68 61 72 20 2d 20 31 3b 0a 20 20 20 20 >nChar - 1;.
6510: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 70 4d 2d }else{. pM-
6520: 3e 6e 41 6c 6c 6f 63 20 3d 20 70 4d 2d 3e 6e 43 >nAlloc = pM->nC
6530: 68 61 72 20 2b 20 6e 4e 65 77 43 68 61 72 2a 32 har + nNewChar*2
6540: 20 2b 20 31 3b 0a 20 20 20 20 20 20 69 66 28 20 + 1;. if(
6550: 70 4d 2d 3e 7a 54 65 78 74 3d 3d 70 4d 2d 3e 7a pM->zText==pM->z
6560: 42 61 73 65 20 29 7b 0a 20 20 20 20 20 20 20 20 Base ){.
6570: 70 4d 2d 3e 7a 54 65 78 74 20 3d 20 70 4d 2d 3e pM->zText = pM->
6580: 78 52 65 61 6c 6c 6f 63 28 30 2c 20 70 4d 2d 3e xRealloc(0, pM->
6590: 6e 41 6c 6c 6f 63 29 3b 0a 20 20 20 20 20 20 20 nAlloc);.
65a0: 20 69 66 28 20 70 4d 2d 3e 7a 54 65 78 74 20 26 if( pM->zText &
65b0: 26 20 70 4d 2d 3e 6e 43 68 61 72 20 29 7b 0a 20 & pM->nChar ){.
65c0: 20 20 20 20 20 20 20 20 20 6d 65 6d 63 70 79 28 memcpy(
65d0: 70 4d 2d 3e 7a 54 65 78 74 2c 20 70 4d 2d 3e 7a pM->zText, pM->z
65e0: 42 61 73 65 2c 20 70 4d 2d 3e 6e 43 68 61 72 29 Base, pM->nChar)
65f0: 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 ;. }.
6600: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 }else{.
6610: 20 63 68 61 72 20 2a 7a 4e 65 77 3b 0a 20 20 20 char *zNew;.
6620: 20 20 20 20 20 7a 4e 65 77 20 3d 20 70 4d 2d 3e zNew = pM->
6630: 78 52 65 61 6c 6c 6f 63 28 70 4d 2d 3e 7a 54 65 xRealloc(pM->zTe
6640: 78 74 2c 20 70 4d 2d 3e 6e 41 6c 6c 6f 63 29 3b xt, pM->nAlloc);
6650: 0a 20 20 20 20 20 20 20 20 69 66 28 20 7a 4e 65 . if( zNe
6660: 77 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 70 w ){. p
6670: 4d 2d 3e 7a 54 65 78 74 20 3d 20 7a 4e 65 77 3b M->zText = zNew;
6680: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 . }.
6690: 20 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 69 }. }. }. i
66a0: 66 28 20 70 4d 2d 3e 7a 54 65 78 74 20 29 7b 0a f( pM->zText ){.
66b0: 20 20 20 20 69 66 28 20 6e 4e 65 77 43 68 61 72 if( nNewChar
66c0: 3e 30 20 29 7b 0a 20 20 20 20 20 20 6d 65 6d 63 >0 ){. memc
66d0: 70 79 28 26 70 4d 2d 3e 7a 54 65 78 74 5b 70 4d py(&pM->zText[pM
66e0: 2d 3e 6e 43 68 61 72 5d 2c 20 7a 4e 65 77 54 65 ->nChar], zNewTe
66f0: 78 74 2c 20 6e 4e 65 77 43 68 61 72 29 3b 0a 20 xt, nNewChar);.
6700: 20 20 20 20 20 70 4d 2d 3e 6e 43 68 61 72 20 2b pM->nChar +
6710: 3d 20 6e 4e 65 77 43 68 61 72 3b 0a 20 20 20 20 = nNewChar;.
6720: 7d 0a 20 20 20 20 70 4d 2d 3e 7a 54 65 78 74 5b }. pM->zText[
6730: 70 4d 2d 3e 6e 43 68 61 72 5d 20 3d 20 30 3b 0a pM->nChar] = 0;.
6740: 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 }.}../*.** Thi
6750: 73 20 72 6f 75 74 69 6e 65 20 69 73 20 61 20 77 s routine is a w
6760: 72 61 70 70 65 72 20 61 72 6f 75 6e 64 20 78 70 rapper around xp
6770: 72 69 6e 74 66 28 29 20 74 68 61 74 20 69 6e 76 rintf() that inv
6780: 6f 6b 65 73 20 6d 6f 75 74 28 29 20 61 73 0a 2a okes mout() as.*
6790: 2a 20 74 68 65 20 63 6f 6e 73 75 6d 65 72 2e 20 * the consumer.
67a0: 20 0a 2a 2f 0a 73 74 61 74 69 63 20 63 68 61 72 .*/.static char
67b0: 20 2a 62 61 73 65 5f 76 70 72 69 6e 74 66 28 0a *base_vprintf(.
67c0: 20 20 76 6f 69 64 20 2a 28 2a 78 52 65 61 6c 6c void *(*xReall
67d0: 6f 63 29 28 76 6f 69 64 2a 2c 69 6e 74 29 2c 20 oc)(void*,int),
67e0: 20 20 2f 2a 20 52 6f 75 74 69 6e 65 20 74 6f 20 /* Routine to
67f0: 72 65 61 6c 6c 6f 63 20 6d 65 6d 6f 72 79 2e 20 realloc memory.
6800: 4d 61 79 20 62 65 20 4e 55 4c 4c 20 2a 2f 0a 20 May be NULL */.
6810: 20 69 6e 74 20 75 73 65 49 6e 74 65 72 6e 61 6c int useInternal
6820: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,
6830: 20 2f 2a 20 55 73 65 20 69 6e 74 65 72 6e 61 6c /* Use internal
6840: 20 25 2d 63 6f 6e 76 65 72 73 69 6f 6e 73 20 69 %-conversions i
6850: 66 20 74 72 75 65 20 2a 2f 0a 20 20 63 68 61 72 f true */. char
6860: 20 2a 7a 49 6e 69 74 42 75 66 2c 20 20 20 20 20 *zInitBuf,
6870: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 49 /* I
6880: 6e 69 74 69 61 6c 6c 79 20 77 72 69 74 65 20 68 nitially write h
6890: 65 72 65 2c 20 62 65 66 6f 72 65 20 6d 61 6c 6c ere, before mall
68a0: 6f 63 69 6e 67 20 2a 2f 0a 20 20 69 6e 74 20 6e ocing */. int n
68b0: 49 6e 69 74 42 75 66 2c 20 20 20 20 20 20 20 20 InitBuf,
68c0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 53 69 /* Si
68d0: 7a 65 20 6f 66 20 7a 49 6e 69 74 42 75 66 5b 5d ze of zInitBuf[]
68e0: 20 2a 2f 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 */. const char
68f0: 20 2a 7a 46 6f 72 6d 61 74 2c 20 20 20 20 20 20 *zFormat,
6900: 20 20 20 20 20 20 2f 2a 20 66 6f 72 6d 61 74 20 /* format
6910: 73 74 72 69 6e 67 20 2a 2f 0a 20 20 76 61 5f 6c string */. va_l
6920: 69 73 74 20 61 70 20 20 20 20 20 20 20 20 20 20 ist ap
6930: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 61 /* a
6940: 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20 rguments */.){.
6950: 20 73 74 72 75 63 74 20 73 67 4d 70 72 69 6e 74 struct sgMprint
6960: 66 20 73 4d 3b 0a 20 20 73 4d 2e 7a 42 61 73 65 f sM;. sM.zBase
6970: 20 3d 20 73 4d 2e 7a 54 65 78 74 20 3d 20 7a 49 = sM.zText = zI
6980: 6e 69 74 42 75 66 3b 0a 20 20 73 4d 2e 6e 43 68 nitBuf;. sM.nCh
6990: 61 72 20 3d 20 73 4d 2e 6e 54 6f 74 61 6c 20 3d ar = sM.nTotal =
69a0: 20 30 3b 0a 20 20 73 4d 2e 6e 41 6c 6c 6f 63 20 0;. sM.nAlloc
69b0: 3d 20 6e 49 6e 69 74 42 75 66 3b 0a 20 20 73 4d = nInitBuf;. sM
69c0: 2e 78 52 65 61 6c 6c 6f 63 20 3d 20 78 52 65 61 .xRealloc = xRea
69d0: 6c 6c 6f 63 3b 0a 20 20 76 78 70 72 69 6e 74 66 lloc;. vxprintf
69e0: 28 6d 6f 75 74 2c 20 26 73 4d 2c 20 75 73 65 49 (mout, &sM, useI
69f0: 6e 74 65 72 6e 61 6c 2c 20 7a 46 6f 72 6d 61 74 nternal, zFormat
6a00: 2c 20 61 70 29 3b 0a 20 20 69 66 28 20 78 52 65 , ap);. if( xRe
6a10: 61 6c 6c 6f 63 20 29 7b 0a 20 20 20 20 69 66 28 alloc ){. if(
6a20: 20 73 4d 2e 7a 54 65 78 74 3d 3d 73 4d 2e 7a 42 sM.zText==sM.zB
6a30: 61 73 65 20 29 7b 0a 20 20 20 20 20 20 73 4d 2e ase ){. sM.
6a40: 7a 54 65 78 74 20 3d 20 78 52 65 61 6c 6c 6f 63 zText = xRealloc
6a50: 28 30 2c 20 73 4d 2e 6e 43 68 61 72 2b 31 29 3b (0, sM.nChar+1);
6a60: 0a 20 20 20 20 20 20 69 66 28 20 73 4d 2e 7a 54 . if( sM.zT
6a70: 65 78 74 20 29 7b 0a 20 20 20 20 20 20 20 20 6d ext ){. m
6a80: 65 6d 63 70 79 28 73 4d 2e 7a 54 65 78 74 2c 20 emcpy(sM.zText,
6a90: 73 4d 2e 7a 42 61 73 65 2c 20 73 4d 2e 6e 43 68 sM.zBase, sM.nCh
6aa0: 61 72 2b 31 29 3b 0a 20 20 20 20 20 20 7d 0a 20 ar+1);. }.
6ab0: 20 20 20 7d 65 6c 73 65 20 69 66 28 20 73 4d 2e }else if( sM.
6ac0: 6e 41 6c 6c 6f 63 3e 73 4d 2e 6e 43 68 61 72 2b nAlloc>sM.nChar+
6ad0: 31 30 20 29 7b 0a 20 20 20 20 20 20 63 68 61 72 10 ){. char
6ae0: 20 2a 7a 4e 65 77 20 3d 20 78 52 65 61 6c 6c 6f *zNew = xReallo
6af0: 63 28 73 4d 2e 7a 54 65 78 74 2c 20 73 4d 2e 6e c(sM.zText, sM.n
6b00: 43 68 61 72 2b 31 29 3b 0a 20 20 20 20 20 20 69 Char+1);. i
6b10: 66 28 20 7a 4e 65 77 20 29 7b 0a 20 20 20 20 20 f( zNew ){.
6b20: 20 20 20 73 4d 2e 7a 54 65 78 74 20 3d 20 7a 4e sM.zText = zN
6b30: 65 77 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 ew;. }.
6b40: 7d 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 73 }. }. return s
6b50: 4d 2e 7a 54 65 78 74 3b 0a 7d 0a 0a 2f 2a 0a 2a M.zText;.}../*.*
6b60: 2a 20 52 65 61 6c 6c 6f 63 20 74 68 61 74 20 69 * Realloc that i
6b70: 73 20 61 20 72 65 61 6c 20 66 75 6e 63 74 69 6f s a real functio
6b80: 6e 2c 20 6e 6f 74 20 61 20 6d 61 63 72 6f 2e 0a n, not a macro..
6b90: 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 2a */.static void *
6ba0: 70 72 69 6e 74 66 5f 72 65 61 6c 6c 6f 63 28 76 printf_realloc(v
6bb0: 6f 69 64 20 2a 6f 6c 64 2c 20 69 6e 74 20 73 69 oid *old, int si
6bc0: 7a 65 29 7b 0a 20 20 72 65 74 75 72 6e 20 73 71 ze){. return sq
6bd0: 6c 69 74 65 52 65 61 6c 6c 6f 63 28 6f 6c 64 2c liteRealloc(old,
6be0: 73 69 7a 65 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 size);.}../*.**
6bf0: 50 72 69 6e 74 20 69 6e 74 6f 20 6d 65 6d 6f 72 Print into memor
6c00: 79 20 6f 62 74 61 69 6e 65 64 20 66 72 6f 6d 20 y obtained from
6c10: 73 71 6c 69 74 65 4d 61 6c 6c 6f 63 28 29 2e 20 sqliteMalloc().
6c20: 20 55 73 65 20 74 68 65 20 69 6e 74 65 72 6e 61 Use the interna
6c30: 6c 0a 2a 2a 20 25 2d 63 6f 6e 76 65 72 73 69 6f l.** %-conversio
6c40: 6e 20 65 78 74 65 6e 73 69 6f 6e 73 2e 0a 2a 2f n extensions..*/
6c50: 0a 63 68 61 72 20 2a 73 71 6c 69 74 65 33 56 4d .char *sqlite3VM
6c60: 50 72 69 6e 74 66 28 63 6f 6e 73 74 20 63 68 61 Printf(const cha
6c70: 72 20 2a 7a 46 6f 72 6d 61 74 2c 20 76 61 5f 6c r *zFormat, va_l
6c80: 69 73 74 20 61 70 29 7b 0a 20 20 63 68 61 72 20 ist ap){. char
6c90: 7a 42 61 73 65 5b 53 51 4c 49 54 45 5f 50 52 49 zBase[SQLITE_PRI
6ca0: 4e 54 5f 42 55 46 5f 53 49 5a 45 5d 3b 0a 20 20 NT_BUF_SIZE];.
6cb0: 72 65 74 75 72 6e 20 62 61 73 65 5f 76 70 72 69 return base_vpri
6cc0: 6e 74 66 28 70 72 69 6e 74 66 5f 72 65 61 6c 6c ntf(printf_reall
6cd0: 6f 63 2c 20 31 2c 20 7a 42 61 73 65 2c 20 73 69 oc, 1, zBase, si
6ce0: 7a 65 6f 66 28 7a 42 61 73 65 29 2c 20 7a 46 6f zeof(zBase), zFo
6cf0: 72 6d 61 74 2c 20 61 70 29 3b 0a 7d 0a 0a 2f 2a rmat, ap);.}../*
6d00: 0a 2a 2a 20 50 72 69 6e 74 20 69 6e 74 6f 20 6d .** Print into m
6d10: 65 6d 6f 72 79 20 6f 62 74 61 69 6e 65 64 20 66 emory obtained f
6d20: 72 6f 6d 20 73 71 6c 69 74 65 4d 61 6c 6c 6f 63 rom sqliteMalloc
6d30: 28 29 2e 20 20 55 73 65 20 74 68 65 20 69 6e 74 (). Use the int
6d40: 65 72 6e 61 6c 0a 2a 2a 20 25 2d 63 6f 6e 76 65 ernal.** %-conve
6d50: 72 73 69 6f 6e 20 65 78 74 65 6e 73 69 6f 6e 73 rsion extensions
6d60: 2e 0a 2a 2f 0a 63 68 61 72 20 2a 73 71 6c 69 74 ..*/.char *sqlit
6d70: 65 33 4d 50 72 69 6e 74 66 28 63 6f 6e 73 74 20 e3MPrintf(const
6d80: 63 68 61 72 20 2a 7a 46 6f 72 6d 61 74 2c 20 2e char *zFormat, .
6d90: 2e 2e 29 7b 0a 20 20 76 61 5f 6c 69 73 74 20 61 ..){. va_list a
6da0: 70 3b 0a 20 20 63 68 61 72 20 2a 7a 3b 0a 20 20 p;. char *z;.
6db0: 63 68 61 72 20 7a 42 61 73 65 5b 53 51 4c 49 54 char zBase[SQLIT
6dc0: 45 5f 50 52 49 4e 54 5f 42 55 46 5f 53 49 5a 45 E_PRINT_BUF_SIZE
6dd0: 5d 3b 0a 20 20 76 61 5f 73 74 61 72 74 28 61 70 ];. va_start(ap
6de0: 2c 20 7a 46 6f 72 6d 61 74 29 3b 0a 20 20 7a 20 , zFormat);. z
6df0: 3d 20 62 61 73 65 5f 76 70 72 69 6e 74 66 28 70 = base_vprintf(p
6e00: 72 69 6e 74 66 5f 72 65 61 6c 6c 6f 63 2c 20 31 rintf_realloc, 1
6e10: 2c 20 7a 42 61 73 65 2c 20 73 69 7a 65 6f 66 28 , zBase, sizeof(
6e20: 7a 42 61 73 65 29 2c 20 7a 46 6f 72 6d 61 74 2c zBase), zFormat,
6e30: 20 61 70 29 3b 0a 20 20 76 61 5f 65 6e 64 28 61 ap);. va_end(a
6e40: 70 29 3b 0a 20 20 72 65 74 75 72 6e 20 7a 3b 0a p);. return z;.
6e50: 7d 0a 0a 2f 2a 0a 2a 2a 20 50 72 69 6e 74 20 69 }../*.** Print i
6e60: 6e 74 6f 20 6d 65 6d 6f 72 79 20 6f 62 74 61 69 nto memory obtai
6e70: 6e 65 64 20 66 72 6f 6d 20 73 71 6c 69 74 65 33 ned from sqlite3
6e80: 5f 6d 61 6c 6c 6f 63 28 29 2e 20 20 4f 6d 69 74 _malloc(). Omit
6e90: 20 74 68 65 20 69 6e 74 65 72 6e 61 6c 0a 2a 2a the internal.**
6ea0: 20 25 2d 63 6f 6e 76 65 72 73 69 6f 6e 20 65 78 %-conversion ex
6eb0: 74 65 6e 73 69 6f 6e 73 2e 0a 2a 2f 0a 63 68 61 tensions..*/.cha
6ec0: 72 20 2a 73 71 6c 69 74 65 33 5f 76 6d 70 72 69 r *sqlite3_vmpri
6ed0: 6e 74 66 28 63 6f 6e 73 74 20 63 68 61 72 20 2a ntf(const char *
6ee0: 7a 46 6f 72 6d 61 74 2c 20 76 61 5f 6c 69 73 74 zFormat, va_list
6ef0: 20 61 70 29 7b 0a 20 20 63 68 61 72 20 7a 42 61 ap){. char zBa
6f00: 73 65 5b 53 51 4c 49 54 45 5f 50 52 49 4e 54 5f se[SQLITE_PRINT_
6f10: 42 55 46 5f 53 49 5a 45 5d 3b 0a 20 20 72 65 74 BUF_SIZE];. ret
6f20: 75 72 6e 20 62 61 73 65 5f 76 70 72 69 6e 74 66 urn base_vprintf
6f30: 28 73 71 6c 69 74 65 33 5f 72 65 61 6c 6c 6f 63 (sqlite3_realloc
6f40: 2c 20 30 2c 20 7a 42 61 73 65 2c 20 73 69 7a 65 , 0, zBase, size
6f50: 6f 66 28 7a 42 61 73 65 29 2c 20 7a 46 6f 72 6d of(zBase), zForm
6f60: 61 74 2c 20 61 70 29 3b 0a 7d 0a 0a 2f 2a 0a 2a at, ap);.}../*.*
6f70: 2a 20 50 72 69 6e 74 20 69 6e 74 6f 20 6d 65 6d * Print into mem
6f80: 6f 72 79 20 6f 62 74 61 69 6e 65 64 20 66 72 6f ory obtained fro
6f90: 6d 20 73 71 6c 69 74 65 33 5f 6d 61 6c 6c 6f 63 m sqlite3_malloc
6fa0: 28 29 28 29 2e 20 20 4f 6d 69 74 20 74 68 65 20 ()(). Omit the
6fb0: 69 6e 74 65 72 6e 61 6c 0a 2a 2a 20 25 2d 63 6f internal.** %-co
6fc0: 6e 76 65 72 73 69 6f 6e 20 65 78 74 65 6e 73 69 nversion extensi
6fd0: 6f 6e 73 2e 0a 2a 2f 0a 63 68 61 72 20 2a 73 71 ons..*/.char *sq
6fe0: 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 28 63 6f lite3_mprintf(co
6ff0: 6e 73 74 20 63 68 61 72 20 2a 7a 46 6f 72 6d 61 nst char *zForma
7000: 74 2c 20 2e 2e 2e 29 7b 0a 20 20 76 61 5f 6c 69 t, ...){. va_li
7010: 73 74 20 61 70 3b 0a 20 20 63 68 61 72 20 2a 7a st ap;. char *z
7020: 3b 0a 20 20 76 61 5f 73 74 61 72 74 28 61 70 2c ;. va_start(ap,
7030: 20 7a 46 6f 72 6d 61 74 29 3b 0a 20 20 7a 20 3d zFormat);. z =
7040: 20 73 71 6c 69 74 65 33 5f 76 6d 70 72 69 6e 74 sqlite3_vmprint
7050: 66 28 7a 46 6f 72 6d 61 74 2c 20 61 70 29 3b 0a f(zFormat, ap);.
7060: 20 20 76 61 5f 65 6e 64 28 61 70 29 3b 0a 20 20 va_end(ap);.
7070: 72 65 74 75 72 6e 20 7a 3b 0a 7d 0a 0a 2f 2a 0a return z;.}../*.
7080: 2a 2a 20 73 71 6c 69 74 65 33 5f 73 6e 70 72 69 ** sqlite3_snpri
7090: 6e 74 66 28 29 20 77 6f 72 6b 73 20 6c 69 6b 65 ntf() works like
70a0: 20 73 6e 70 72 69 6e 74 66 28 29 20 65 78 63 65 snprintf() exce
70b0: 70 74 20 74 68 61 74 20 69 74 20 69 67 6e 6f 72 pt that it ignor
70c0: 65 73 20 74 68 65 0a 2a 2a 20 63 75 72 72 65 6e es the.** curren
70d0: 74 20 6c 6f 63 61 6c 65 20 73 65 74 74 69 6e 67 t locale setting
70e0: 73 2e 20 20 54 68 69 73 20 69 73 20 69 6d 70 6f s. This is impo
70f0: 72 74 61 6e 74 20 66 6f 72 20 53 51 4c 69 74 65 rtant for SQLite
7100: 20 62 65 63 61 75 73 65 20 77 65 0a 2a 2a 20 61 because we.** a
7110: 72 65 20 6e 6f 74 20 61 62 6c 65 20 74 6f 20 75 re not able to u
7120: 73 65 20 61 20 22 2c 22 20 61 73 20 74 68 65 20 se a "," as the
7130: 64 65 63 69 6d 61 6c 20 70 6f 69 6e 74 20 69 6e decimal point in
7140: 20 70 6c 61 63 65 20 6f 66 20 22 2e 22 20 61 73 place of "." as
7150: 0a 2a 2a 20 73 70 65 63 69 66 69 65 64 20 62 79 .** specified by
7160: 20 73 6f 6d 65 20 6c 6f 63 61 6c 65 73 2e 0a 2a some locales..*
7170: 2f 0a 63 68 61 72 20 2a 73 71 6c 69 74 65 33 5f /.char *sqlite3_
7180: 73 6e 70 72 69 6e 74 66 28 69 6e 74 20 6e 2c 20 snprintf(int n,
7190: 63 68 61 72 20 2a 7a 42 75 66 2c 20 63 6f 6e 73 char *zBuf, cons
71a0: 74 20 63 68 61 72 20 2a 7a 46 6f 72 6d 61 74 2c t char *zFormat,
71b0: 20 2e 2e 2e 29 7b 0a 20 20 63 68 61 72 20 2a 7a ...){. char *z
71c0: 3b 0a 20 20 76 61 5f 6c 69 73 74 20 61 70 3b 0a ;. va_list ap;.
71d0: 0a 20 20 69 66 28 20 6e 3c 3d 30 20 29 7b 0a 20 . if( n<=0 ){.
71e0: 20 20 20 72 65 74 75 72 6e 20 7a 42 75 66 3b 0a return zBuf;.
71f0: 20 20 7d 0a 20 20 7a 42 75 66 5b 30 5d 20 3d 20 }. zBuf[0] =
7200: 30 3b 0a 20 20 76 61 5f 73 74 61 72 74 28 61 70 0;. va_start(ap
7210: 2c 7a 46 6f 72 6d 61 74 29 3b 0a 20 20 7a 20 3d ,zFormat);. z =
7220: 20 62 61 73 65 5f 76 70 72 69 6e 74 66 28 30 2c base_vprintf(0,
7230: 20 30 2c 20 7a 42 75 66 2c 20 6e 2c 20 7a 46 6f 0, zBuf, n, zFo
7240: 72 6d 61 74 2c 20 61 70 29 3b 0a 20 20 76 61 5f rmat, ap);. va_
7250: 65 6e 64 28 61 70 29 3b 0a 20 20 72 65 74 75 72 end(ap);. retur
7260: 6e 20 7a 3b 0a 7d 0a 0a 23 69 66 20 64 65 66 69 n z;.}..#if defi
7270: 6e 65 64 28 53 51 4c 49 54 45 5f 54 45 53 54 29 ned(SQLITE_TEST)
7280: 20 7c 7c 20 64 65 66 69 6e 65 64 28 53 51 4c 49 || defined(SQLI
7290: 54 45 5f 44 45 42 55 47 29 0a 2f 2a 0a 2a 2a 20 TE_DEBUG)./*.**
72a0: 41 20 76 65 72 73 69 6f 6e 20 6f 66 20 70 72 69 A version of pri
72b0: 6e 74 66 28 29 20 74 68 61 74 20 75 6e 64 65 72 ntf() that under
72c0: 73 74 61 6e 64 73 20 25 6c 6c 64 2e 20 20 55 73 stands %lld. Us
72d0: 65 64 20 66 6f 72 20 64 65 62 75 67 67 69 6e 67 ed for debugging
72e0: 2e 0a 2a 2a 20 54 68 65 20 70 72 69 6e 74 66 28 ..** The printf(
72f0: 29 20 62 75 69 6c 74 20 69 6e 74 6f 20 73 6f 6d ) built into som
7300: 65 20 76 65 72 73 69 6f 6e 73 20 6f 66 20 77 69 e versions of wi
7310: 6e 64 6f 77 73 20 64 6f 65 73 20 6e 6f 74 20 75 ndows does not u
7320: 6e 64 65 72 73 74 61 6e 64 20 25 6c 6c 64 0a 2a nderstand %lld.*
7330: 2a 20 61 6e 64 20 73 65 67 66 61 75 6c 74 73 20 * and segfaults
7340: 69 66 20 79 6f 75 20 67 69 76 65 20 69 74 20 61 if you give it a
7350: 20 6c 6f 6e 67 20 6c 6f 6e 67 20 69 6e 74 2e 0a long long int..
7360: 2a 2f 0a 76 6f 69 64 20 73 71 6c 69 74 65 33 44 */.void sqlite3D
7370: 65 62 75 67 50 72 69 6e 74 66 28 63 6f 6e 73 74 ebugPrintf(const
7380: 20 63 68 61 72 20 2a 7a 46 6f 72 6d 61 74 2c 20 char *zFormat,
7390: 2e 2e 2e 29 7b 0a 20 20 65 78 74 65 72 6e 20 69 ...){. extern i
73a0: 6e 74 20 67 65 74 70 69 64 28 76 6f 69 64 29 3b nt getpid(void);
73b0: 0a 20 20 76 61 5f 6c 69 73 74 20 61 70 3b 0a 20 . va_list ap;.
73c0: 20 63 68 61 72 20 7a 42 75 66 5b 35 30 30 5d 3b char zBuf[500];
73d0: 0a 20 20 76 61 5f 73 74 61 72 74 28 61 70 2c 20 . va_start(ap,
73e0: 7a 46 6f 72 6d 61 74 29 3b 0a 20 20 62 61 73 65 zFormat);. base
73f0: 5f 76 70 72 69 6e 74 66 28 30 2c 20 30 2c 20 7a _vprintf(0, 0, z
7400: 42 75 66 2c 20 73 69 7a 65 6f 66 28 7a 42 75 66 Buf, sizeof(zBuf
7410: 29 2c 20 7a 46 6f 72 6d 61 74 2c 20 61 70 29 3b ), zFormat, ap);
7420: 0a 20 20 76 61 5f 65 6e 64 28 61 70 29 3b 0a 20 . va_end(ap);.
7430: 20 66 70 72 69 6e 74 66 28 73 74 64 6f 75 74 2c fprintf(stdout,
7440: 22 25 73 22 2c 20 7a 42 75 66 29 3b 0a 20 20 66 "%s", zBuf);. f
7450: 66 6c 75 73 68 28 73 74 64 6f 75 74 29 3b 0a 7d flush(stdout);.}
7460: 0a 23 65 6e 64 69 66 0a .#endif.