/ Hex Artifact Content
Login

Artifact 711908d6ff3385f9882df8ff405b9e0a2a4d04df:


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 69 6e 74  }else{.      int
6520: 20 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 6e 41 6c 6c  xRealloc(0, nAll
6590: 6f 63 29 3b 0a 20 20 20 20 20 20 20 20 69 66 28  oc);.        if(
65a0: 20 70 4d 2d 3e 7a 54 65 78 74 20 26 26 20 70 4d   pM->zText && pM
65b0: 2d 3e 6e 43 68 61 72 20 29 7b 0a 20 20 20 20 20  ->nChar ){.     
65c0: 20 20 20 20 20 6d 65 6d 63 70 79 28 70 4d 2d 3e       memcpy(pM->
65d0: 7a 54 65 78 74 2c 20 70 4d 2d 3e 7a 42 61 73 65  zText, pM->zBase
65e0: 2c 20 70 4d 2d 3e 6e 43 68 61 72 29 3b 0a 20 20  , pM->nChar);.  
65f0: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7d 65        }.      }e
6600: 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 63 68 61  lse{.        cha
6610: 72 20 2a 7a 4e 65 77 3b 0a 20 20 20 20 20 20 20  r *zNew;.       
6620: 20 7a 4e 65 77 20 3d 20 70 4d 2d 3e 78 52 65 61   zNew = pM->xRea
6630: 6c 6c 6f 63 28 70 4d 2d 3e 7a 54 65 78 74 2c 20  lloc(pM->zText, 
6640: 6e 41 6c 6c 6f 63 29 3b 0a 20 20 20 20 20 20 20  nAlloc);.       
6650: 20 69 66 28 20 7a 4e 65 77 20 29 7b 0a 20 20 20   if( zNew ){.   
6660: 20 20 20 20 20 20 20 70 4d 2d 3e 7a 54 65 78 74         pM->zText
6670: 20 3d 20 7a 4e 65 77 3b 0a 20 20 20 20 20 20 20   = zNew;.       
6680: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20   }else{.        
6690: 20 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20    return;.      
66a0: 20 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20    }.      }.    
66b0: 20 20 70 4d 2d 3e 6e 41 6c 6c 6f 63 20 3d 20 6e    pM->nAlloc = n
66c0: 41 6c 6c 6f 63 3b 0a 20 20 20 20 7d 0a 20 20 7d  Alloc;.    }.  }
66d0: 0a 20 20 69 66 28 20 70 4d 2d 3e 7a 54 65 78 74  .  if( pM->zText
66e0: 20 29 7b 0a 20 20 20 20 69 66 28 20 6e 4e 65 77   ){.    if( nNew
66f0: 43 68 61 72 3e 30 20 29 7b 0a 20 20 20 20 20 20  Char>0 ){.      
6700: 6d 65 6d 63 70 79 28 26 70 4d 2d 3e 7a 54 65 78  memcpy(&pM->zTex
6710: 74 5b 70 4d 2d 3e 6e 43 68 61 72 5d 2c 20 7a 4e  t[pM->nChar], zN
6720: 65 77 54 65 78 74 2c 20 6e 4e 65 77 43 68 61 72  ewText, nNewChar
6730: 29 3b 0a 20 20 20 20 20 20 70 4d 2d 3e 6e 43 68  );.      pM->nCh
6740: 61 72 20 2b 3d 20 6e 4e 65 77 43 68 61 72 3b 0a  ar += nNewChar;.
6750: 20 20 20 20 7d 0a 20 20 20 20 70 4d 2d 3e 7a 54      }.    pM->zT
6760: 65 78 74 5b 70 4d 2d 3e 6e 43 68 61 72 5d 20 3d  ext[pM->nChar] =
6770: 20 30 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a   0;.  }.}../*.**
6780: 20 54 68 69 73 20 72 6f 75 74 69 6e 65 20 69 73   This routine is
6790: 20 61 20 77 72 61 70 70 65 72 20 61 72 6f 75 6e   a wrapper aroun
67a0: 64 20 78 70 72 69 6e 74 66 28 29 20 74 68 61 74  d xprintf() that
67b0: 20 69 6e 76 6f 6b 65 73 20 6d 6f 75 74 28 29 20   invokes mout() 
67c0: 61 73 0a 2a 2a 20 74 68 65 20 63 6f 6e 73 75 6d  as.** the consum
67d0: 65 72 2e 20 20 0a 2a 2f 0a 73 74 61 74 69 63 20  er.  .*/.static 
67e0: 63 68 61 72 20 2a 62 61 73 65 5f 76 70 72 69 6e  char *base_vprin
67f0: 74 66 28 0a 20 20 76 6f 69 64 20 2a 28 2a 78 52  tf(.  void *(*xR
6800: 65 61 6c 6c 6f 63 29 28 76 6f 69 64 2a 2c 69 6e  ealloc)(void*,in
6810: 74 29 2c 20 20 20 2f 2a 20 52 6f 75 74 69 6e 65  t),   /* Routine
6820: 20 74 6f 20 72 65 61 6c 6c 6f 63 20 6d 65 6d 6f   to realloc memo
6830: 72 79 2e 20 4d 61 79 20 62 65 20 4e 55 4c 4c 20  ry. May be NULL 
6840: 2a 2f 0a 20 20 69 6e 74 20 75 73 65 49 6e 74 65  */.  int useInte
6850: 72 6e 61 6c 2c 20 20 20 20 20 20 20 20 20 20 20  rnal,           
6860: 20 20 20 20 20 2f 2a 20 55 73 65 20 69 6e 74 65       /* Use inte
6870: 72 6e 61 6c 20 25 2d 63 6f 6e 76 65 72 73 69 6f  rnal %-conversio
6880: 6e 73 20 69 66 20 74 72 75 65 20 2a 2f 0a 20 20  ns if true */.  
6890: 63 68 61 72 20 2a 7a 49 6e 69 74 42 75 66 2c 20  char *zInitBuf, 
68a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
68b0: 2f 2a 20 49 6e 69 74 69 61 6c 6c 79 20 77 72 69  /* Initially wri
68c0: 74 65 20 68 65 72 65 2c 20 62 65 66 6f 72 65 20  te here, before 
68d0: 6d 61 6c 6c 6f 63 69 6e 67 20 2a 2f 0a 20 20 69  mallocing */.  i
68e0: 6e 74 20 6e 49 6e 69 74 42 75 66 2c 20 20 20 20  nt nInitBuf,    
68f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
6900: 2a 20 53 69 7a 65 20 6f 66 20 7a 49 6e 69 74 42  * Size of zInitB
6910: 75 66 5b 5d 20 2a 2f 0a 20 20 63 6f 6e 73 74 20  uf[] */.  const 
6920: 63 68 61 72 20 2a 7a 46 6f 72 6d 61 74 2c 20 20  char *zFormat,  
6930: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 66 6f 72            /* for
6940: 6d 61 74 20 73 74 72 69 6e 67 20 2a 2f 0a 20 20  mat string */.  
6950: 76 61 5f 6c 69 73 74 20 61 70 20 20 20 20 20 20  va_list ap      
6960: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
6970: 2f 2a 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a  /* arguments */.
6980: 29 7b 0a 20 20 73 74 72 75 63 74 20 73 67 4d 70  ){.  struct sgMp
6990: 72 69 6e 74 66 20 73 4d 3b 0a 20 20 73 4d 2e 7a  rintf sM;.  sM.z
69a0: 42 61 73 65 20 3d 20 73 4d 2e 7a 54 65 78 74 20  Base = sM.zText 
69b0: 3d 20 7a 49 6e 69 74 42 75 66 3b 0a 20 20 73 4d  = zInitBuf;.  sM
69c0: 2e 6e 43 68 61 72 20 3d 20 73 4d 2e 6e 54 6f 74  .nChar = sM.nTot
69d0: 61 6c 20 3d 20 30 3b 0a 20 20 73 4d 2e 6e 41 6c  al = 0;.  sM.nAl
69e0: 6c 6f 63 20 3d 20 6e 49 6e 69 74 42 75 66 3b 0a  loc = nInitBuf;.
69f0: 20 20 73 4d 2e 78 52 65 61 6c 6c 6f 63 20 3d 20    sM.xRealloc = 
6a00: 78 52 65 61 6c 6c 6f 63 3b 0a 20 20 76 78 70 72  xRealloc;.  vxpr
6a10: 69 6e 74 66 28 6d 6f 75 74 2c 20 26 73 4d 2c 20  intf(mout, &sM, 
6a20: 75 73 65 49 6e 74 65 72 6e 61 6c 2c 20 7a 46 6f  useInternal, zFo
6a30: 72 6d 61 74 2c 20 61 70 29 3b 0a 20 20 69 66 28  rmat, ap);.  if(
6a40: 20 78 52 65 61 6c 6c 6f 63 20 29 7b 0a 20 20 20   xRealloc ){.   
6a50: 20 69 66 28 20 73 4d 2e 7a 54 65 78 74 3d 3d 73   if( sM.zText==s
6a60: 4d 2e 7a 42 61 73 65 20 29 7b 0a 20 20 20 20 20  M.zBase ){.     
6a70: 20 73 4d 2e 7a 54 65 78 74 20 3d 20 78 52 65 61   sM.zText = xRea
6a80: 6c 6c 6f 63 28 30 2c 20 73 4d 2e 6e 43 68 61 72  lloc(0, sM.nChar
6a90: 2b 31 29 3b 0a 20 20 20 20 20 20 69 66 28 20 73  +1);.      if( s
6aa0: 4d 2e 7a 54 65 78 74 20 29 7b 0a 20 20 20 20 20  M.zText ){.     
6ab0: 20 20 20 6d 65 6d 63 70 79 28 73 4d 2e 7a 54 65     memcpy(sM.zTe
6ac0: 78 74 2c 20 73 4d 2e 7a 42 61 73 65 2c 20 73 4d  xt, sM.zBase, sM
6ad0: 2e 6e 43 68 61 72 2b 31 29 3b 0a 20 20 20 20 20  .nChar+1);.     
6ae0: 20 7d 0a 20 20 20 20 7d 65 6c 73 65 20 69 66 28   }.    }else if(
6af0: 20 73 4d 2e 6e 41 6c 6c 6f 63 3e 73 4d 2e 6e 43   sM.nAlloc>sM.nC
6b00: 68 61 72 2b 31 30 20 29 7b 0a 20 20 20 20 20 20  har+10 ){.      
6b10: 63 68 61 72 20 2a 7a 4e 65 77 20 3d 20 78 52 65  char *zNew = xRe
6b20: 61 6c 6c 6f 63 28 73 4d 2e 7a 54 65 78 74 2c 20  alloc(sM.zText, 
6b30: 73 4d 2e 6e 43 68 61 72 2b 31 29 3b 0a 20 20 20  sM.nChar+1);.   
6b40: 20 20 20 69 66 28 20 7a 4e 65 77 20 29 7b 0a 20     if( zNew ){. 
6b50: 20 20 20 20 20 20 20 73 4d 2e 7a 54 65 78 74 20         sM.zText 
6b60: 3d 20 7a 4e 65 77 3b 0a 20 20 20 20 20 20 7d 0a  = zNew;.      }.
6b70: 20 20 20 20 7d 0a 20 20 7d 0a 20 20 72 65 74 75      }.  }.  retu
6b80: 72 6e 20 73 4d 2e 7a 54 65 78 74 3b 0a 7d 0a 0a  rn sM.zText;.}..
6b90: 2f 2a 0a 2a 2a 20 52 65 61 6c 6c 6f 63 20 74 68  /*.** Realloc th
6ba0: 61 74 20 69 73 20 61 20 72 65 61 6c 20 66 75 6e  at is a real fun
6bb0: 63 74 69 6f 6e 2c 20 6e 6f 74 20 61 20 6d 61 63  ction, not a mac
6bc0: 72 6f 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f  ro..*/.static vo
6bd0: 69 64 20 2a 70 72 69 6e 74 66 5f 72 65 61 6c 6c  id *printf_reall
6be0: 6f 63 28 76 6f 69 64 20 2a 6f 6c 64 2c 20 69 6e  oc(void *old, in
6bf0: 74 20 73 69 7a 65 29 7b 0a 20 20 72 65 74 75 72  t size){.  retur
6c00: 6e 20 73 71 6c 69 74 65 52 65 61 6c 6c 6f 63 28  n sqliteRealloc(
6c10: 6f 6c 64 2c 73 69 7a 65 29 3b 0a 7d 0a 0a 2f 2a  old,size);.}../*
6c20: 0a 2a 2a 20 50 72 69 6e 74 20 69 6e 74 6f 20 6d  .** Print into m
6c30: 65 6d 6f 72 79 20 6f 62 74 61 69 6e 65 64 20 66  emory obtained f
6c40: 72 6f 6d 20 73 71 6c 69 74 65 4d 61 6c 6c 6f 63  rom sqliteMalloc
6c50: 28 29 2e 20 20 55 73 65 20 74 68 65 20 69 6e 74  ().  Use the int
6c60: 65 72 6e 61 6c 0a 2a 2a 20 25 2d 63 6f 6e 76 65  ernal.** %-conve
6c70: 72 73 69 6f 6e 20 65 78 74 65 6e 73 69 6f 6e 73  rsion extensions
6c80: 2e 0a 2a 2f 0a 63 68 61 72 20 2a 73 71 6c 69 74  ..*/.char *sqlit
6c90: 65 33 56 4d 50 72 69 6e 74 66 28 63 6f 6e 73 74  e3VMPrintf(const
6ca0: 20 63 68 61 72 20 2a 7a 46 6f 72 6d 61 74 2c 20   char *zFormat, 
6cb0: 76 61 5f 6c 69 73 74 20 61 70 29 7b 0a 20 20 63  va_list ap){.  c
6cc0: 68 61 72 20 7a 42 61 73 65 5b 53 51 4c 49 54 45  har zBase[SQLITE
6cd0: 5f 50 52 49 4e 54 5f 42 55 46 5f 53 49 5a 45 5d  _PRINT_BUF_SIZE]
6ce0: 3b 0a 20 20 72 65 74 75 72 6e 20 62 61 73 65 5f  ;.  return base_
6cf0: 76 70 72 69 6e 74 66 28 70 72 69 6e 74 66 5f 72  vprintf(printf_r
6d00: 65 61 6c 6c 6f 63 2c 20 31 2c 20 7a 42 61 73 65  ealloc, 1, zBase
6d10: 2c 20 73 69 7a 65 6f 66 28 7a 42 61 73 65 29 2c  , sizeof(zBase),
6d20: 20 7a 46 6f 72 6d 61 74 2c 20 61 70 29 3b 0a 7d   zFormat, ap);.}
6d30: 0a 0a 2f 2a 0a 2a 2a 20 50 72 69 6e 74 20 69 6e  ../*.** Print in
6d40: 74 6f 20 6d 65 6d 6f 72 79 20 6f 62 74 61 69 6e  to memory obtain
6d50: 65 64 20 66 72 6f 6d 20 73 71 6c 69 74 65 4d 61  ed from sqliteMa
6d60: 6c 6c 6f 63 28 29 2e 20 20 55 73 65 20 74 68 65  lloc().  Use the
6d70: 20 69 6e 74 65 72 6e 61 6c 0a 2a 2a 20 25 2d 63   internal.** %-c
6d80: 6f 6e 76 65 72 73 69 6f 6e 20 65 78 74 65 6e 73  onversion extens
6d90: 69 6f 6e 73 2e 0a 2a 2f 0a 63 68 61 72 20 2a 73  ions..*/.char *s
6da0: 71 6c 69 74 65 33 4d 50 72 69 6e 74 66 28 63 6f  qlite3MPrintf(co
6db0: 6e 73 74 20 63 68 61 72 20 2a 7a 46 6f 72 6d 61  nst char *zForma
6dc0: 74 2c 20 2e 2e 2e 29 7b 0a 20 20 76 61 5f 6c 69  t, ...){.  va_li
6dd0: 73 74 20 61 70 3b 0a 20 20 63 68 61 72 20 2a 7a  st ap;.  char *z
6de0: 3b 0a 20 20 63 68 61 72 20 7a 42 61 73 65 5b 53  ;.  char zBase[S
6df0: 51 4c 49 54 45 5f 50 52 49 4e 54 5f 42 55 46 5f  QLITE_PRINT_BUF_
6e00: 53 49 5a 45 5d 3b 0a 20 20 76 61 5f 73 74 61 72  SIZE];.  va_star
6e10: 74 28 61 70 2c 20 7a 46 6f 72 6d 61 74 29 3b 0a  t(ap, zFormat);.
6e20: 20 20 7a 20 3d 20 62 61 73 65 5f 76 70 72 69 6e    z = base_vprin
6e30: 74 66 28 70 72 69 6e 74 66 5f 72 65 61 6c 6c 6f  tf(printf_reallo
6e40: 63 2c 20 31 2c 20 7a 42 61 73 65 2c 20 73 69 7a  c, 1, zBase, siz
6e50: 65 6f 66 28 7a 42 61 73 65 29 2c 20 7a 46 6f 72  eof(zBase), zFor
6e60: 6d 61 74 2c 20 61 70 29 3b 0a 20 20 76 61 5f 65  mat, ap);.  va_e
6e70: 6e 64 28 61 70 29 3b 0a 20 20 72 65 74 75 72 6e  nd(ap);.  return
6e80: 20 7a 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 50 72 69   z;.}../*.** Pri
6e90: 6e 74 20 69 6e 74 6f 20 6d 65 6d 6f 72 79 20 6f  nt into memory o
6ea0: 62 74 61 69 6e 65 64 20 66 72 6f 6d 20 73 71 6c  btained from sql
6eb0: 69 74 65 33 5f 6d 61 6c 6c 6f 63 28 29 2e 20 20  ite3_malloc().  
6ec0: 4f 6d 69 74 20 74 68 65 20 69 6e 74 65 72 6e 61  Omit the interna
6ed0: 6c 0a 2a 2a 20 25 2d 63 6f 6e 76 65 72 73 69 6f  l.** %-conversio
6ee0: 6e 20 65 78 74 65 6e 73 69 6f 6e 73 2e 0a 2a 2f  n extensions..*/
6ef0: 0a 63 68 61 72 20 2a 73 71 6c 69 74 65 33 5f 76  .char *sqlite3_v
6f00: 6d 70 72 69 6e 74 66 28 63 6f 6e 73 74 20 63 68  mprintf(const ch
6f10: 61 72 20 2a 7a 46 6f 72 6d 61 74 2c 20 76 61 5f  ar *zFormat, va_
6f20: 6c 69 73 74 20 61 70 29 7b 0a 20 20 63 68 61 72  list ap){.  char
6f30: 20 7a 42 61 73 65 5b 53 51 4c 49 54 45 5f 50 52   zBase[SQLITE_PR
6f40: 49 4e 54 5f 42 55 46 5f 53 49 5a 45 5d 3b 0a 20  INT_BUF_SIZE];. 
6f50: 20 72 65 74 75 72 6e 20 62 61 73 65 5f 76 70 72   return base_vpr
6f60: 69 6e 74 66 28 73 71 6c 69 74 65 33 5f 72 65 61  intf(sqlite3_rea
6f70: 6c 6c 6f 63 2c 20 30 2c 20 7a 42 61 73 65 2c 20  lloc, 0, zBase, 
6f80: 73 69 7a 65 6f 66 28 7a 42 61 73 65 29 2c 20 7a  sizeof(zBase), z
6f90: 46 6f 72 6d 61 74 2c 20 61 70 29 3b 0a 7d 0a 0a  Format, ap);.}..
6fa0: 2f 2a 0a 2a 2a 20 50 72 69 6e 74 20 69 6e 74 6f  /*.** Print into
6fb0: 20 6d 65 6d 6f 72 79 20 6f 62 74 61 69 6e 65 64   memory obtained
6fc0: 20 66 72 6f 6d 20 73 71 6c 69 74 65 33 5f 6d 61   from sqlite3_ma
6fd0: 6c 6c 6f 63 28 29 28 29 2e 20 20 4f 6d 69 74 20  lloc()().  Omit 
6fe0: 74 68 65 20 69 6e 74 65 72 6e 61 6c 0a 2a 2a 20  the internal.** 
6ff0: 25 2d 63 6f 6e 76 65 72 73 69 6f 6e 20 65 78 74  %-conversion ext
7000: 65 6e 73 69 6f 6e 73 2e 0a 2a 2f 0a 63 68 61 72  ensions..*/.char
7010: 20 2a 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74   *sqlite3_mprint
7020: 66 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46  f(const char *zF
7030: 6f 72 6d 61 74 2c 20 2e 2e 2e 29 7b 0a 20 20 76  ormat, ...){.  v
7040: 61 5f 6c 69 73 74 20 61 70 3b 0a 20 20 63 68 61  a_list ap;.  cha
7050: 72 20 2a 7a 3b 0a 20 20 76 61 5f 73 74 61 72 74  r *z;.  va_start
7060: 28 61 70 2c 20 7a 46 6f 72 6d 61 74 29 3b 0a 20  (ap, zFormat);. 
7070: 20 7a 20 3d 20 73 71 6c 69 74 65 33 5f 76 6d 70   z = sqlite3_vmp
7080: 72 69 6e 74 66 28 7a 46 6f 72 6d 61 74 2c 20 61  rintf(zFormat, a
7090: 70 29 3b 0a 20 20 76 61 5f 65 6e 64 28 61 70 29  p);.  va_end(ap)
70a0: 3b 0a 20 20 72 65 74 75 72 6e 20 7a 3b 0a 7d 0a  ;.  return z;.}.
70b0: 0a 2f 2a 0a 2a 2a 20 73 71 6c 69 74 65 33 5f 73  ./*.** sqlite3_s
70c0: 6e 70 72 69 6e 74 66 28 29 20 77 6f 72 6b 73 20  nprintf() works 
70d0: 6c 69 6b 65 20 73 6e 70 72 69 6e 74 66 28 29 20  like snprintf() 
70e0: 65 78 63 65 70 74 20 74 68 61 74 20 69 74 20 69  except that it i
70f0: 67 6e 6f 72 65 73 20 74 68 65 0a 2a 2a 20 63 75  gnores the.** cu
7100: 72 72 65 6e 74 20 6c 6f 63 61 6c 65 20 73 65 74  rrent locale set
7110: 74 69 6e 67 73 2e 20 20 54 68 69 73 20 69 73 20  tings.  This is 
7120: 69 6d 70 6f 72 74 61 6e 74 20 66 6f 72 20 53 51  important for SQ
7130: 4c 69 74 65 20 62 65 63 61 75 73 65 20 77 65 0a  Lite because we.
7140: 2a 2a 20 61 72 65 20 6e 6f 74 20 61 62 6c 65 20  ** are not able 
7150: 74 6f 20 75 73 65 20 61 20 22 2c 22 20 61 73 20  to use a "," as 
7160: 74 68 65 20 64 65 63 69 6d 61 6c 20 70 6f 69 6e  the decimal poin
7170: 74 20 69 6e 20 70 6c 61 63 65 20 6f 66 20 22 2e  t in place of ".
7180: 22 20 61 73 0a 2a 2a 20 73 70 65 63 69 66 69 65  " as.** specifie
7190: 64 20 62 79 20 73 6f 6d 65 20 6c 6f 63 61 6c 65  d by some locale
71a0: 73 2e 0a 2a 2f 0a 63 68 61 72 20 2a 73 71 6c 69  s..*/.char *sqli
71b0: 74 65 33 5f 73 6e 70 72 69 6e 74 66 28 69 6e 74  te3_snprintf(int
71c0: 20 6e 2c 20 63 68 61 72 20 2a 7a 42 75 66 2c 20   n, char *zBuf, 
71d0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 6f 72  const char *zFor
71e0: 6d 61 74 2c 20 2e 2e 2e 29 7b 0a 20 20 63 68 61  mat, ...){.  cha
71f0: 72 20 2a 7a 3b 0a 20 20 76 61 5f 6c 69 73 74 20  r *z;.  va_list 
7200: 61 70 3b 0a 0a 20 20 69 66 28 20 6e 3c 3d 30 20  ap;..  if( n<=0 
7210: 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 7a 42  ){.    return zB
7220: 75 66 3b 0a 20 20 7d 0a 20 20 7a 42 75 66 5b 30  uf;.  }.  zBuf[0
7230: 5d 20 3d 20 30 3b 0a 20 20 76 61 5f 73 74 61 72  ] = 0;.  va_star
7240: 74 28 61 70 2c 7a 46 6f 72 6d 61 74 29 3b 0a 20  t(ap,zFormat);. 
7250: 20 7a 20 3d 20 62 61 73 65 5f 76 70 72 69 6e 74   z = base_vprint
7260: 66 28 30 2c 20 30 2c 20 7a 42 75 66 2c 20 6e 2c  f(0, 0, zBuf, n,
7270: 20 7a 46 6f 72 6d 61 74 2c 20 61 70 29 3b 0a 20   zFormat, ap);. 
7280: 20 76 61 5f 65 6e 64 28 61 70 29 3b 0a 20 20 72   va_end(ap);.  r
7290: 65 74 75 72 6e 20 7a 3b 0a 7d 0a 0a 23 69 66 20  eturn z;.}..#if 
72a0: 64 65 66 69 6e 65 64 28 53 51 4c 49 54 45 5f 54  defined(SQLITE_T
72b0: 45 53 54 29 20 7c 7c 20 64 65 66 69 6e 65 64 28  EST) || defined(
72c0: 53 51 4c 49 54 45 5f 44 45 42 55 47 29 20 7c 7c  SQLITE_DEBUG) ||
72d0: 20 64 65 66 69 6e 65 64 28 53 51 4c 49 54 45 5f   defined(SQLITE_
72e0: 4d 45 4d 44 45 42 55 47 29 0a 2f 2a 0a 2a 2a 20  MEMDEBUG)./*.** 
72f0: 41 20 76 65 72 73 69 6f 6e 20 6f 66 20 70 72 69  A version of pri
7300: 6e 74 66 28 29 20 74 68 61 74 20 75 6e 64 65 72  ntf() that under
7310: 73 74 61 6e 64 73 20 25 6c 6c 64 2e 20 20 55 73  stands %lld.  Us
7320: 65 64 20 66 6f 72 20 64 65 62 75 67 67 69 6e 67  ed for debugging
7330: 2e 0a 2a 2a 20 54 68 65 20 70 72 69 6e 74 66 28  ..** The printf(
7340: 29 20 62 75 69 6c 74 20 69 6e 74 6f 20 73 6f 6d  ) built into som
7350: 65 20 76 65 72 73 69 6f 6e 73 20 6f 66 20 77 69  e versions of wi
7360: 6e 64 6f 77 73 20 64 6f 65 73 20 6e 6f 74 20 75  ndows does not u
7370: 6e 64 65 72 73 74 61 6e 64 20 25 6c 6c 64 0a 2a  nderstand %lld.*
7380: 2a 20 61 6e 64 20 73 65 67 66 61 75 6c 74 73 20  * and segfaults 
7390: 69 66 20 79 6f 75 20 67 69 76 65 20 69 74 20 61  if you give it a
73a0: 20 6c 6f 6e 67 20 6c 6f 6e 67 20 69 6e 74 2e 0a   long long int..
73b0: 2a 2f 0a 76 6f 69 64 20 73 71 6c 69 74 65 33 44  */.void sqlite3D
73c0: 65 62 75 67 50 72 69 6e 74 66 28 63 6f 6e 73 74  ebugPrintf(const
73d0: 20 63 68 61 72 20 2a 7a 46 6f 72 6d 61 74 2c 20   char *zFormat, 
73e0: 2e 2e 2e 29 7b 0a 20 20 65 78 74 65 72 6e 20 69  ...){.  extern i
73f0: 6e 74 20 67 65 74 70 69 64 28 76 6f 69 64 29 3b  nt getpid(void);
7400: 0a 20 20 76 61 5f 6c 69 73 74 20 61 70 3b 0a 20  .  va_list ap;. 
7410: 20 63 68 61 72 20 7a 42 75 66 5b 35 30 30 5d 3b   char zBuf[500];
7420: 0a 20 20 76 61 5f 73 74 61 72 74 28 61 70 2c 20  .  va_start(ap, 
7430: 7a 46 6f 72 6d 61 74 29 3b 0a 20 20 62 61 73 65  zFormat);.  base
7440: 5f 76 70 72 69 6e 74 66 28 30 2c 20 30 2c 20 7a  _vprintf(0, 0, z
7450: 42 75 66 2c 20 73 69 7a 65 6f 66 28 7a 42 75 66  Buf, sizeof(zBuf
7460: 29 2c 20 7a 46 6f 72 6d 61 74 2c 20 61 70 29 3b  ), zFormat, ap);
7470: 0a 20 20 76 61 5f 65 6e 64 28 61 70 29 3b 0a 20  .  va_end(ap);. 
7480: 20 66 70 72 69 6e 74 66 28 73 74 64 6f 75 74 2c   fprintf(stdout,
7490: 22 25 73 22 2c 20 7a 42 75 66 29 3b 0a 20 20 66  "%s", zBuf);.  f
74a0: 66 6c 75 73 68 28 73 74 64 6f 75 74 29 3b 0a 7d  flush(stdout);.}
74b0: 0a 23 65 6e 64 69 66 0a                          .#endif.