/ Hex Artifact Content
Login

Artifact c01e9ad473d79463fb1f483b1eca5c3cbed2a4e5:


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 0a 2f 2a 0a 2a 2a 20 43 6f  Int.h"../*.** Co
0910: 6e 76 65 72 73 69 6f 6e 20 74 79 70 65 73 20 66  nversion types f
0920: 61 6c 6c 20 69 6e 74 6f 20 76 61 72 69 6f 75 73  all into various
0930: 20 63 61 74 65 67 6f 72 69 65 73 20 61 73 20 64   categories as d
0940: 65 66 69 6e 65 64 20 62 79 20 74 68 65 0a 2a 2a  efined by the.**
0950: 20 66 6f 6c 6c 6f 77 69 6e 67 20 65 6e 75 6d 65   following enume
0960: 72 61 74 69 6f 6e 2e 0a 2a 2f 0a 23 64 65 66 69  ration..*/.#defi
0970: 6e 65 20 65 74 52 41 44 49 58 20 20 20 20 20 20  ne etRADIX      
0980: 20 31 20 2f 2a 20 49 6e 74 65 67 65 72 20 74 79   1 /* Integer ty
0990: 70 65 73 2e 20 20 25 64 2c 20 25 78 2c 20 25 6f  pes.  %d, %x, %o
09a0: 2c 20 61 6e 64 20 73 6f 20 66 6f 72 74 68 20 2a  , and so forth *
09b0: 2f 0a 23 64 65 66 69 6e 65 20 65 74 46 4c 4f 41  /.#define etFLOA
09c0: 54 20 20 20 20 20 20 20 32 20 2f 2a 20 46 6c 6f  T       2 /* Flo
09d0: 61 74 69 6e 67 20 70 6f 69 6e 74 2e 20 20 25 66  ating point.  %f
09e0: 20 2a 2f 0a 23 64 65 66 69 6e 65 20 65 74 45 58   */.#define etEX
09f0: 50 20 20 20 20 20 20 20 20 20 33 20 2f 2a 20 45  P         3 /* E
0a00: 78 70 6f 6e 65 6e 74 69 6f 6e 61 6c 20 6e 6f 74  xponentional not
0a10: 61 74 69 6f 6e 2e 20 25 65 20 61 6e 64 20 25 45  ation. %e and %E
0a20: 20 2a 2f 0a 23 64 65 66 69 6e 65 20 65 74 47 45   */.#define etGE
0a30: 4e 45 52 49 43 20 20 20 20 20 34 20 2f 2a 20 46  NERIC     4 /* F
0a40: 6c 6f 61 74 69 6e 67 20 6f 72 20 65 78 70 6f 6e  loating or expon
0a50: 65 6e 74 69 61 6c 2c 20 64 65 70 65 6e 64 69 6e  ential, dependin
0a60: 67 20 6f 6e 20 65 78 70 6f 6e 65 6e 74 2e 20 25  g on exponent. %
0a70: 67 20 2a 2f 0a 23 64 65 66 69 6e 65 20 65 74 53  g */.#define etS
0a80: 49 5a 45 20 20 20 20 20 20 20 20 35 20 2f 2a 20  IZE        5 /* 
0a90: 52 65 74 75 72 6e 20 6e 75 6d 62 65 72 20 6f 66  Return number of
0aa0: 20 63 68 61 72 61 63 74 65 72 73 20 70 72 6f 63   characters proc
0ab0: 65 73 73 65 64 20 73 6f 20 66 61 72 2e 20 25 6e  essed so far. %n
0ac0: 20 2a 2f 0a 23 64 65 66 69 6e 65 20 65 74 53 54   */.#define etST
0ad0: 52 49 4e 47 20 20 20 20 20 20 36 20 2f 2a 20 53  RING      6 /* S
0ae0: 74 72 69 6e 67 73 2e 20 25 73 20 2a 2f 0a 23 64  trings. %s */.#d
0af0: 65 66 69 6e 65 20 65 74 44 59 4e 53 54 52 49 4e  efine etDYNSTRIN
0b00: 47 20 20 20 37 20 2f 2a 20 44 79 6e 61 6d 69 63  G   7 /* Dynamic
0b10: 61 6c 6c 79 20 61 6c 6c 6f 63 61 74 65 64 20 73  ally allocated s
0b20: 74 72 69 6e 67 73 2e 20 25 7a 20 2a 2f 0a 23 64  trings. %z */.#d
0b30: 65 66 69 6e 65 20 65 74 50 45 52 43 45 4e 54 20  efine etPERCENT 
0b40: 20 20 20 20 38 20 2f 2a 20 50 65 72 63 65 6e 74      8 /* Percent
0b50: 20 73 79 6d 62 6f 6c 2e 20 25 25 20 2a 2f 0a 23   symbol. %% */.#
0b60: 64 65 66 69 6e 65 20 65 74 43 48 41 52 58 20 20  define etCHARX  
0b70: 20 20 20 20 20 39 20 2f 2a 20 43 68 61 72 61 63       9 /* Charac
0b80: 74 65 72 73 2e 20 25 63 20 2a 2f 0a 23 64 65 66  ters. %c */.#def
0b90: 69 6e 65 20 65 74 45 52 52 4f 52 20 20 20 20 20  ine etERROR     
0ba0: 20 31 30 20 2f 2a 20 55 73 65 64 20 74 6f 20 69   10 /* Used to i
0bb0: 6e 64 69 63 61 74 65 20 6e 6f 20 73 75 63 68 20  ndicate no such 
0bc0: 63 6f 6e 76 65 72 73 69 6f 6e 20 74 79 70 65 20  conversion type 
0bd0: 2a 2f 0a 2f 2a 20 54 68 65 20 72 65 73 74 20 61  */./* The rest a
0be0: 72 65 20 65 78 74 65 6e 73 69 6f 6e 73 2c 20 6e  re extensions, n
0bf0: 6f 74 20 6e 6f 72 6d 61 6c 6c 79 20 66 6f 75 6e  ot normally foun
0c00: 64 20 69 6e 20 70 72 69 6e 74 66 28 29 20 2a 2f  d in printf() */
0c10: 0a 23 64 65 66 69 6e 65 20 65 74 43 48 41 52 4c  .#define etCHARL
0c20: 49 54 20 20 20 20 31 31 20 2f 2a 20 4c 69 74 65  IT    11 /* Lite
0c30: 72 61 6c 20 63 68 61 72 61 63 74 65 72 73 2e 20  ral characters. 
0c40: 20 25 27 20 2a 2f 0a 23 64 65 66 69 6e 65 20 65   %' */.#define e
0c50: 74 53 51 4c 45 53 43 41 50 45 20 20 31 32 20 2f  tSQLESCAPE  12 /
0c60: 2a 20 53 74 72 69 6e 67 73 20 77 69 74 68 20 27  * Strings with '
0c70: 5c 27 27 20 64 6f 75 62 6c 65 64 2e 20 20 25 71  \'' doubled.  %q
0c80: 20 2a 2f 0a 23 64 65 66 69 6e 65 20 65 74 53 51   */.#define etSQ
0c90: 4c 45 53 43 41 50 45 32 20 31 33 20 2f 2a 20 53  LESCAPE2 13 /* S
0ca0: 74 72 69 6e 67 73 20 77 69 74 68 20 27 5c 27 27  trings with '\''
0cb0: 20 64 6f 75 62 6c 65 64 20 61 6e 64 20 65 6e 63   doubled and enc
0cc0: 6c 6f 73 65 64 20 69 6e 20 27 27 2c 0a 20 20 20  losed in '',.   
0cd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0ce0: 20 20 20 20 20 20 20 4e 55 4c 4c 20 70 6f 69 6e         NULL poin
0cf0: 74 65 72 73 20 72 65 70 6c 61 63 65 64 20 62 79  ters replaced by
0d00: 20 53 51 4c 20 4e 55 4c 4c 2e 20 20 25 51 20 2a   SQL NULL.  %Q *
0d10: 2f 0a 23 64 65 66 69 6e 65 20 65 74 54 4f 4b 45  /.#define etTOKE
0d20: 4e 20 20 20 20 20 20 31 34 20 2f 2a 20 61 20 70  N      14 /* a p
0d30: 6f 69 6e 74 65 72 20 74 6f 20 61 20 54 6f 6b 65  ointer to a Toke
0d40: 6e 20 73 74 72 75 63 74 75 72 65 20 2a 2f 0a 23  n structure */.#
0d50: 64 65 66 69 6e 65 20 65 74 53 52 43 4c 49 53 54  define etSRCLIST
0d60: 20 20 20 20 31 35 20 2f 2a 20 61 20 70 6f 69 6e      15 /* a poin
0d70: 74 65 72 20 74 6f 20 61 20 53 72 63 4c 69 73 74  ter to a SrcList
0d80: 20 2a 2f 0a 23 64 65 66 69 6e 65 20 65 74 50 4f   */.#define etPO
0d90: 49 4e 54 45 52 20 20 20 20 31 36 20 2f 2a 20 54  INTER    16 /* T
0da0: 68 65 20 25 70 20 63 6f 6e 76 65 72 73 69 6f 6e  he %p conversion
0db0: 20 2a 2f 0a 0a 0a 2f 2a 0a 2a 2a 20 41 6e 20 22   */.../*.** An "
0dc0: 65 74 42 79 74 65 22 20 69 73 20 61 6e 20 38 2d  etByte" is an 8-
0dd0: 62 69 74 20 75 6e 73 69 67 6e 65 64 20 76 61 6c  bit unsigned val
0de0: 75 65 2e 0a 2a 2f 0a 74 79 70 65 64 65 66 20 75  ue..*/.typedef u
0df0: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 65 74 42  nsigned char etB
0e00: 79 74 65 3b 0a 0a 2f 2a 0a 2a 2a 20 45 61 63 68  yte;../*.** Each
0e10: 20 62 75 69 6c 74 69 6e 20 63 6f 6e 76 65 72 73   builtin convers
0e20: 69 6f 6e 20 63 68 61 72 61 63 74 65 72 20 28 65  ion character (e
0e30: 78 3a 20 74 68 65 20 27 64 27 20 69 6e 20 22 25  x: the 'd' in "%
0e40: 64 22 29 20 69 73 20 64 65 73 63 72 69 62 65 64  d") is described
0e50: 0a 2a 2a 20 62 79 20 61 6e 20 69 6e 73 74 61 6e  .** by an instan
0e60: 63 65 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77  ce of the follow
0e70: 69 6e 67 20 73 74 72 75 63 74 75 72 65 0a 2a 2f  ing structure.*/
0e80: 0a 74 79 70 65 64 65 66 20 73 74 72 75 63 74 20  .typedef struct 
0e90: 65 74 5f 69 6e 66 6f 20 7b 20 20 20 2f 2a 20 49  et_info {   /* I
0ea0: 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 62 6f 75 74  nformation about
0eb0: 20 65 61 63 68 20 66 6f 72 6d 61 74 20 66 69 65   each format fie
0ec0: 6c 64 20 2a 2f 0a 20 20 63 68 61 72 20 66 6d 74  ld */.  char fmt
0ed0: 74 79 70 65 3b 20 20 20 20 20 20 20 20 20 20 20  type;           
0ee0: 20 2f 2a 20 54 68 65 20 66 6f 72 6d 61 74 20 66   /* The format f
0ef0: 69 65 6c 64 20 63 6f 64 65 20 6c 65 74 74 65 72  ield code letter
0f00: 20 2a 2f 0a 20 20 65 74 42 79 74 65 20 62 61 73   */.  etByte bas
0f10: 65 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 2f  e;             /
0f20: 2a 20 54 68 65 20 62 61 73 65 20 66 6f 72 20 72  * The base for r
0f30: 61 64 69 78 20 63 6f 6e 76 65 72 73 69 6f 6e 20  adix conversion 
0f40: 2a 2f 0a 20 20 65 74 42 79 74 65 20 66 6c 61 67  */.  etByte flag
0f50: 73 3b 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a  s;            /*
0f60: 20 4f 6e 65 20 6f 72 20 6d 6f 72 65 20 6f 66 20   One or more of 
0f70: 46 4c 41 47 5f 20 63 6f 6e 73 74 61 6e 74 73 20  FLAG_ constants 
0f80: 62 65 6c 6f 77 20 2a 2f 0a 20 20 65 74 42 79 74  below */.  etByt
0f90: 65 20 74 79 70 65 3b 20 20 20 20 20 20 20 20 20  e type;         
0fa0: 20 20 20 20 2f 2a 20 43 6f 6e 76 65 72 73 69 6f      /* Conversio
0fb0: 6e 20 70 61 72 61 64 69 67 6d 20 2a 2f 0a 20 20  n paradigm */.  
0fc0: 65 74 42 79 74 65 20 63 68 61 72 73 65 74 3b 20  etByte charset; 
0fd0: 20 20 20 20 20 20 20 20 20 2f 2a 20 4f 66 66 73           /* Offs
0fe0: 65 74 20 69 6e 74 6f 20 61 44 69 67 69 74 73 5b  et into aDigits[
0ff0: 5d 20 6f 66 20 74 68 65 20 64 69 67 69 74 73 20  ] of the digits 
1000: 73 74 72 69 6e 67 20 2a 2f 0a 20 20 65 74 42 79  string */.  etBy
1010: 74 65 20 70 72 65 66 69 78 3b 20 20 20 20 20 20  te prefix;      
1020: 20 20 20 20 20 2f 2a 20 4f 66 66 73 65 74 20 69       /* Offset i
1030: 6e 74 6f 20 61 50 72 65 66 69 78 5b 5d 20 6f 66  nto aPrefix[] of
1040: 20 74 68 65 20 70 72 65 66 69 78 20 73 74 72 69   the prefix stri
1050: 6e 67 20 2a 2f 0a 7d 20 65 74 5f 69 6e 66 6f 3b  ng */.} et_info;
1060: 0a 0a 2f 2a 0a 2a 2a 20 41 6c 6c 6f 77 65 64 20  ../*.** Allowed 
1070: 76 61 6c 75 65 73 20 66 6f 72 20 65 74 5f 69 6e  values for et_in
1080: 66 6f 2e 66 6c 61 67 73 0a 2a 2f 0a 23 64 65 66  fo.flags.*/.#def
1090: 69 6e 65 20 46 4c 41 47 5f 53 49 47 4e 45 44 20  ine FLAG_SIGNED 
10a0: 20 31 20 20 20 20 20 2f 2a 20 54 72 75 65 20 69   1     /* True i
10b0: 66 20 74 68 65 20 76 61 6c 75 65 20 74 6f 20 63  f the value to c
10c0: 6f 6e 76 65 72 74 20 69 73 20 73 69 67 6e 65 64  onvert is signed
10d0: 20 2a 2f 0a 23 64 65 66 69 6e 65 20 46 4c 41 47   */.#define FLAG
10e0: 5f 49 4e 54 45 52 4e 20 20 32 20 20 20 20 20 2f  _INTERN  2     /
10f0: 2a 20 54 72 75 65 20 69 66 20 66 6f 72 20 69 6e  * True if for in
1100: 74 65 72 6e 61 6c 20 75 73 65 20 6f 6e 6c 79 20  ternal use only 
1110: 2a 2f 0a 23 64 65 66 69 6e 65 20 46 4c 41 47 5f  */.#define FLAG_
1120: 53 54 52 49 4e 47 20 20 34 20 20 20 20 20 2f 2a  STRING  4     /*
1130: 20 41 6c 6c 6f 77 20 69 6e 66 69 6e 69 74 79 20   Allow infinity 
1140: 70 72 65 63 69 73 69 6f 6e 20 2a 2f 0a 0a 0a 2f  precision */.../
1150: 2a 0a 2a 2a 20 54 68 65 20 66 6f 6c 6c 6f 77 69  *.** The followi
1160: 6e 67 20 74 61 62 6c 65 20 69 73 20 73 65 61 72  ng table is sear
1170: 63 68 65 64 20 6c 69 6e 65 61 72 6c 79 2c 20 73  ched linearly, s
1180: 6f 20 69 74 20 69 73 20 67 6f 6f 64 20 74 6f 20  o it is good to 
1190: 70 75 74 20 74 68 65 0a 2a 2a 20 6d 6f 73 74 20  put the.** most 
11a0: 66 72 65 71 75 65 6e 74 6c 79 20 75 73 65 64 20  frequently used 
11b0: 63 6f 6e 76 65 72 73 69 6f 6e 20 74 79 70 65 73  conversion types
11c0: 20 66 69 72 73 74 2e 0a 2a 2f 0a 73 74 61 74 69   first..*/.stati
11d0: 63 20 63 6f 6e 73 74 20 63 68 61 72 20 61 44 69  c const char aDi
11e0: 67 69 74 73 5b 5d 20 3d 20 22 30 31 32 33 34 35  gits[] = "012345
11f0: 36 37 38 39 41 42 43 44 45 46 30 31 32 33 34 35  6789ABCDEF012345
1200: 36 37 38 39 61 62 63 64 65 66 22 3b 0a 73 74 61  6789abcdef";.sta
1210: 74 69 63 20 63 6f 6e 73 74 20 63 68 61 72 20 61  tic const char a
1220: 50 72 65 66 69 78 5b 5d 20 3d 20 22 2d 78 30 5c  Prefix[] = "-x0\
1230: 30 30 30 58 30 22 3b 0a 73 74 61 74 69 63 20 63  000X0";.static c
1240: 6f 6e 73 74 20 65 74 5f 69 6e 66 6f 20 66 6d 74  onst et_info fmt
1250: 69 6e 66 6f 5b 5d 20 3d 20 7b 0a 20 20 7b 20 20  info[] = {.  {  
1260: 27 64 27 2c 20 31 30 2c 20 31 2c 20 65 74 52 41  'd', 10, 1, etRA
1270: 44 49 58 2c 20 20 20 20 20 20 30 2c 20 20 30 20  DIX,      0,  0 
1280: 7d 2c 0a 20 20 7b 20 20 27 73 27 2c 20 20 30 2c  },.  {  's',  0,
1290: 20 34 2c 20 65 74 53 54 52 49 4e 47 2c 20 20 20   4, etSTRING,   
12a0: 20 20 30 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 20    0,  0 },.  {  
12b0: 27 67 27 2c 20 20 30 2c 20 31 2c 20 65 74 47 45  'g',  0, 1, etGE
12c0: 4e 45 52 49 43 2c 20 20 20 20 33 30 2c 20 30 20  NERIC,    30, 0 
12d0: 7d 2c 0a 20 20 7b 20 20 27 7a 27 2c 20 20 30 2c  },.  {  'z',  0,
12e0: 20 36 2c 20 65 74 44 59 4e 53 54 52 49 4e 47 2c   6, etDYNSTRING,
12f0: 20 20 30 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 20    0,  0 },.  {  
1300: 27 71 27 2c 20 20 30 2c 20 34 2c 20 65 74 53 51  'q',  0, 4, etSQ
1310: 4c 45 53 43 41 50 45 2c 20 20 30 2c 20 20 30 20  LESCAPE,  0,  0 
1320: 7d 2c 0a 20 20 7b 20 20 27 51 27 2c 20 20 30 2c  },.  {  'Q',  0,
1330: 20 34 2c 20 65 74 53 51 4c 45 53 43 41 50 45 32   4, etSQLESCAPE2
1340: 2c 20 30 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 20  , 0,  0 },.  {  
1350: 27 63 27 2c 20 20 30 2c 20 30 2c 20 65 74 43 48  'c',  0, 0, etCH
1360: 41 52 58 2c 20 20 20 20 20 20 30 2c 20 20 30 20  ARX,      0,  0 
1370: 7d 2c 0a 20 20 7b 20 20 27 6f 27 2c 20 20 38 2c  },.  {  'o',  8,
1380: 20 30 2c 20 65 74 52 41 44 49 58 2c 20 20 20 20   0, etRADIX,    
1390: 20 20 30 2c 20 20 32 20 7d 2c 0a 20 20 7b 20 20    0,  2 },.  {  
13a0: 27 75 27 2c 20 31 30 2c 20 30 2c 20 65 74 52 41  'u', 10, 0, etRA
13b0: 44 49 58 2c 20 20 20 20 20 20 30 2c 20 20 30 20  DIX,      0,  0 
13c0: 7d 2c 0a 20 20 7b 20 20 27 78 27 2c 20 31 36 2c  },.  {  'x', 16,
13d0: 20 30 2c 20 65 74 52 41 44 49 58 2c 20 20 20 20   0, etRADIX,    
13e0: 20 20 31 36 2c 20 31 20 7d 2c 0a 20 20 7b 20 20    16, 1 },.  {  
13f0: 27 58 27 2c 20 31 36 2c 20 30 2c 20 65 74 52 41  'X', 16, 0, etRA
1400: 44 49 58 2c 20 20 20 20 20 20 30 2c 20 20 34 20  DIX,      0,  4 
1410: 7d 2c 0a 20 20 7b 20 20 27 66 27 2c 20 20 30 2c  },.  {  'f',  0,
1420: 20 31 2c 20 65 74 46 4c 4f 41 54 2c 20 20 20 20   1, etFLOAT,    
1430: 20 20 30 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 20    0,  0 },.  {  
1440: 27 65 27 2c 20 20 30 2c 20 31 2c 20 65 74 45 58  'e',  0, 1, etEX
1450: 50 2c 20 20 20 20 20 20 20 20 33 30 2c 20 30 20  P,        30, 0 
1460: 7d 2c 0a 20 20 7b 20 20 27 45 27 2c 20 20 30 2c  },.  {  'E',  0,
1470: 20 31 2c 20 65 74 45 58 50 2c 20 20 20 20 20 20   1, etEXP,      
1480: 20 20 31 34 2c 20 30 20 7d 2c 0a 20 20 7b 20 20    14, 0 },.  {  
1490: 27 47 27 2c 20 20 30 2c 20 31 2c 20 65 74 47 45  'G',  0, 1, etGE
14a0: 4e 45 52 49 43 2c 20 20 20 20 31 34 2c 20 30 20  NERIC,    14, 0 
14b0: 7d 2c 0a 20 20 7b 20 20 27 69 27 2c 20 31 30 2c  },.  {  'i', 10,
14c0: 20 31 2c 20 65 74 52 41 44 49 58 2c 20 20 20 20   1, etRADIX,    
14d0: 20 20 30 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 20    0,  0 },.  {  
14e0: 27 6e 27 2c 20 20 30 2c 20 30 2c 20 65 74 53 49  'n',  0, 0, etSI
14f0: 5a 45 2c 20 20 20 20 20 20 20 30 2c 20 20 30 20  ZE,       0,  0 
1500: 7d 2c 0a 20 20 7b 20 20 27 25 27 2c 20 20 30 2c  },.  {  '%',  0,
1510: 20 30 2c 20 65 74 50 45 52 43 45 4e 54 2c 20 20   0, etPERCENT,  
1520: 20 20 30 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 20    0,  0 },.  {  
1530: 27 70 27 2c 20 31 36 2c 20 30 2c 20 65 74 50 4f  'p', 16, 0, etPO
1540: 49 4e 54 45 52 2c 20 20 20 20 30 2c 20 20 31 20  INTER,    0,  1 
1550: 7d 2c 0a 20 20 7b 20 20 27 54 27 2c 20 20 30 2c  },.  {  'T',  0,
1560: 20 32 2c 20 65 74 54 4f 4b 45 4e 2c 20 20 20 20   2, etTOKEN,    
1570: 20 20 30 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 20    0,  0 },.  {  
1580: 27 53 27 2c 20 20 30 2c 20 32 2c 20 65 74 53 52  'S',  0, 2, etSR
1590: 43 4c 49 53 54 2c 20 20 20 20 30 2c 20 20 30 20  CLIST,    0,  0 
15a0: 7d 2c 0a 7d 3b 0a 23 64 65 66 69 6e 65 20 65 74  },.};.#define et
15b0: 4e 49 4e 46 4f 20 20 28 73 69 7a 65 6f 66 28 66  NINFO  (sizeof(f
15c0: 6d 74 69 6e 66 6f 29 2f 73 69 7a 65 6f 66 28 66  mtinfo)/sizeof(f
15d0: 6d 74 69 6e 66 6f 5b 30 5d 29 29 0a 0a 2f 2a 0a  mtinfo[0]))../*.
15e0: 2a 2a 20 49 66 20 4e 4f 46 4c 4f 41 54 49 4e 47  ** If NOFLOATING
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 65 74 4e 4f 46 4c 4f 41 54  ifndef etNOFLOAT
1650: 49 4e 47 50 4f 49 4e 54 0a 2f 2a 0a 2a 2a 20 22  INGPOINT./*.** "
1660: 2a 76 61 6c 22 20 69 73 20 61 20 64 6f 75 62 6c  *val" is a doubl
1670: 65 20 73 75 63 68 20 74 68 61 74 20 30 2e 31 20  e such that 0.1 
1680: 3c 3d 20 2a 76 61 6c 20 3c 20 31 30 2e 30 0a 2a  <= *val < 10.0.*
1690: 2a 20 52 65 74 75 72 6e 20 74 68 65 20 61 73 63  * Return the asc
16a0: 69 69 20 63 6f 64 65 20 66 6f 72 20 74 68 65 20  ii code for the 
16b0: 6c 65 61 64 69 6e 67 20 64 69 67 69 74 20 6f 66  leading digit of
16c0: 20 2a 76 61 6c 2c 20 74 68 65 6e 0a 2a 2a 20 6d   *val, then.** m
16d0: 75 6c 74 69 70 6c 79 20 22 2a 76 61 6c 22 20 62  ultiply "*val" b
16e0: 79 20 31 30 2e 30 20 74 6f 20 72 65 6e 6f 72 6d  y 10.0 to renorm
16f0: 61 6c 69 7a 65 2e 0a 2a 2a 0a 2a 2a 20 45 78 61  alize..**.** Exa
1700: 6d 70 6c 65 3a 0a 2a 2a 20 20 20 20 20 69 6e 70  mple:.**     inp
1710: 75 74 3a 20 20 20 20 20 2a 76 61 6c 20 3d 20 33  ut:     *val = 3
1720: 2e 31 34 31 35 39 0a 2a 2a 20 20 20 20 20 6f 75  .14159.**     ou
1730: 74 70 75 74 3a 20 20 20 20 2a 76 61 6c 20 3d 20  tput:    *val = 
1740: 31 2e 34 31 35 39 20 20 20 20 66 75 6e 63 74 69  1.4159    functi
1750: 6f 6e 20 72 65 74 75 72 6e 20 3d 20 27 33 27 0a  on return = '3'.
1760: 2a 2a 0a 2a 2a 20 54 68 65 20 63 6f 75 6e 74 65  **.** The counte
1770: 72 20 2a 63 6e 74 20 69 73 20 69 6e 63 72 65 6d  r *cnt is increm
1780: 65 6e 74 65 64 20 65 61 63 68 20 74 69 6d 65 2e  ented each time.
1790: 20 20 41 66 74 65 72 20 63 6f 75 6e 74 65 72 20    After counter 
17a0: 65 78 63 65 65 64 73 0a 2a 2a 20 31 36 20 28 74  exceeds.** 16 (t
17b0: 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 73 69 67  he number of sig
17c0: 6e 69 66 69 63 61 6e 74 20 64 69 67 69 74 73 20  nificant digits 
17d0: 69 6e 20 61 20 36 34 2d 62 69 74 20 66 6c 6f 61  in a 64-bit floa
17e0: 74 29 20 27 30 27 20 69 73 0a 2a 2a 20 61 6c 77  t) '0' is.** alw
17f0: 61 79 73 20 72 65 74 75 72 6e 65 64 2e 0a 2a 2f  ays returned..*/
1800: 0a 73 74 61 74 69 63 20 69 6e 74 20 65 74 5f 67  .static int et_g
1810: 65 74 64 69 67 69 74 28 4c 4f 4e 47 44 4f 55 42  etdigit(LONGDOUB
1820: 4c 45 5f 54 59 50 45 20 2a 76 61 6c 2c 20 69 6e  LE_TYPE *val, in
1830: 74 20 2a 63 6e 74 29 7b 0a 20 20 69 6e 74 20 64  t *cnt){.  int d
1840: 69 67 69 74 3b 0a 20 20 4c 4f 4e 47 44 4f 55 42  igit;.  LONGDOUB
1850: 4c 45 5f 54 59 50 45 20 64 3b 0a 20 20 69 66 28  LE_TYPE d;.  if(
1860: 20 28 2a 63 6e 74 29 2b 2b 20 3e 3d 20 31 36 20   (*cnt)++ >= 16 
1870: 29 20 72 65 74 75 72 6e 20 27 30 27 3b 0a 20 20  ) return '0';.  
1880: 64 69 67 69 74 20 3d 20 28 69 6e 74 29 2a 76 61  digit = (int)*va
1890: 6c 3b 0a 20 20 64 20 3d 20 64 69 67 69 74 3b 0a  l;.  d = digit;.
18a0: 20 20 64 69 67 69 74 20 2b 3d 20 27 30 27 3b 0a    digit += '0';.
18b0: 20 20 2a 76 61 6c 20 3d 20 28 2a 76 61 6c 20 2d    *val = (*val -
18c0: 20 64 29 2a 31 30 2e 30 3b 0a 20 20 72 65 74 75   d)*10.0;.  retu
18d0: 72 6e 20 64 69 67 69 74 3b 0a 7d 0a 23 65 6e 64  rn digit;.}.#end
18e0: 69 66 0a 0a 2f 2a 0a 2a 2a 20 4f 6e 20 6d 61 63  if../*.** On mac
18f0: 68 69 6e 65 73 20 77 69 74 68 20 61 20 73 6d 61  hines with a sma
1900: 6c 6c 20 73 74 61 63 6b 20 73 69 7a 65 2c 20 79  ll stack size, y
1910: 6f 75 20 63 61 6e 20 72 65 64 65 66 69 6e 65 20  ou can redefine 
1920: 74 68 65 0a 2a 2a 20 53 51 4c 49 54 45 5f 50 52  the.** SQLITE_PR
1930: 49 4e 54 5f 42 55 46 5f 53 49 5a 45 20 74 6f 20  INT_BUF_SIZE to 
1940: 62 65 20 6c 65 73 73 20 74 68 61 6e 20 33 35 30  be less than 350
1950: 2e 20 20 42 75 74 20 62 65 77 61 72 65 20 2d 20  .  But beware - 
1960: 66 6f 72 0a 2a 2a 20 73 6d 61 6c 6c 65 72 20 76  for.** smaller v
1970: 61 6c 75 65 73 20 73 6f 6d 65 20 25 66 20 63 6f  alues some %f co
1980: 6e 76 65 72 73 69 6f 6e 73 20 6d 61 79 20 67 6f  nversions may go
1990: 20 69 6e 74 6f 20 61 6e 20 69 6e 66 69 6e 69 74   into an infinit
19a0: 65 20 6c 6f 6f 70 2e 0a 2a 2f 0a 23 69 66 6e 64  e loop..*/.#ifnd
19b0: 65 66 20 53 51 4c 49 54 45 5f 50 52 49 4e 54 5f  ef SQLITE_PRINT_
19c0: 42 55 46 5f 53 49 5a 45 0a 23 20 64 65 66 69 6e  BUF_SIZE.# defin
19d0: 65 20 53 51 4c 49 54 45 5f 50 52 49 4e 54 5f 42  e SQLITE_PRINT_B
19e0: 55 46 5f 53 49 5a 45 20 33 35 30 0a 23 65 6e 64  UF_SIZE 350.#end
19f0: 69 66 0a 23 64 65 66 69 6e 65 20 65 74 42 55 46  if.#define etBUF
1a00: 53 49 5a 45 20 53 51 4c 49 54 45 5f 50 52 49 4e  SIZE SQLITE_PRIN
1a10: 54 5f 42 55 46 5f 53 49 5a 45 20 20 2f 2a 20 53  T_BUF_SIZE  /* S
1a20: 69 7a 65 20 6f 66 20 74 68 65 20 6f 75 74 70 75  ize of the outpu
1a30: 74 20 62 75 66 66 65 72 20 2a 2f 0a 0a 2f 2a 0a  t buffer */../*.
1a40: 2a 2a 20 54 68 65 20 72 6f 6f 74 20 70 72 6f 67  ** The root prog
1a50: 72 61 6d 2e 20 20 41 6c 6c 20 76 61 72 69 61 74  ram.  All variat
1a60: 69 6f 6e 73 20 63 61 6c 6c 20 74 68 69 73 20 63  ions call this c
1a70: 6f 72 65 2e 0a 2a 2a 0a 2a 2a 20 49 4e 50 55 54  ore..**.** INPUT
1a80: 53 3a 0a 2a 2a 20 20 20 66 75 6e 63 20 20 20 54  S:.**   func   T
1a90: 68 69 73 20 69 73 20 61 20 70 6f 69 6e 74 65 72  his is a pointer
1aa0: 20 74 6f 20 61 20 66 75 6e 63 74 69 6f 6e 20 74   to a function t
1ab0: 61 6b 69 6e 67 20 74 68 72 65 65 20 61 72 67 75  aking three argu
1ac0: 6d 65 6e 74 73 0a 2a 2a 20 20 20 20 20 20 20 20  ments.**        
1ad0: 20 20 20 20 31 2e 20 41 20 70 6f 69 6e 74 65 72      1. A pointer
1ae0: 20 74 6f 20 61 6e 79 74 68 69 6e 67 2e 20 20 53   to anything.  S
1af0: 61 6d 65 20 61 73 20 74 68 65 20 22 61 72 67 22  ame as the "arg"
1b00: 20 70 61 72 61 6d 65 74 65 72 2e 0a 2a 2a 20 20   parameter..**  
1b10: 20 20 20 20 20 20 20 20 20 20 32 2e 20 41 20 70            2. A p
1b20: 6f 69 6e 74 65 72 20 74 6f 20 74 68 65 20 6c 69  ointer to the li
1b30: 73 74 20 6f 66 20 63 68 61 72 61 63 74 65 72 73  st of characters
1b40: 20 74 6f 20 62 65 20 6f 75 74 70 75 74 0a 2a 2a   to be output.**
1b50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28                 (
1b60: 4e 6f 74 65 2c 20 74 68 69 73 20 6c 69 73 74 20  Note, this list 
1b70: 69 73 20 4e 4f 54 20 6e 75 6c 6c 20 74 65 72 6d  is NOT null term
1b80: 69 6e 61 74 65 64 2e 29 0a 2a 2a 20 20 20 20 20  inated.).**     
1b90: 20 20 20 20 20 20 20 33 2e 20 41 6e 20 69 6e 74         3. An int
1ba0: 65 67 65 72 20 6e 75 6d 62 65 72 20 6f 66 20 63  eger number of c
1bb0: 68 61 72 61 63 74 65 72 73 20 74 6f 20 62 65 20  haracters to be 
1bc0: 6f 75 74 70 75 74 2e 0a 2a 2a 20 20 20 20 20 20  output..**      
1bd0: 20 20 20 20 20 20 20 20 20 28 4e 6f 74 65 3a 20           (Note: 
1be0: 54 68 69 73 20 6e 75 6d 62 65 72 20 6d 69 67 68  This number migh
1bf0: 74 20 62 65 20 7a 65 72 6f 2e 29 0a 2a 2a 0a 2a  t be zero.).**.*
1c00: 2a 20 20 20 61 72 67 20 20 20 20 54 68 69 73 20  *   arg    This 
1c10: 69 73 20 74 68 65 20 70 6f 69 6e 74 65 72 20 74  is the pointer t
1c20: 6f 20 61 6e 79 74 68 69 6e 67 20 77 68 69 63 68  o anything which
1c30: 20 77 69 6c 6c 20 62 65 20 70 61 73 73 65 64 20   will be passed 
1c40: 61 73 20 74 68 65 0a 2a 2a 20 20 20 20 20 20 20  as the.**       
1c50: 20 20 20 66 69 72 73 74 20 61 72 67 75 6d 65 6e     first argumen
1c60: 74 20 74 6f 20 22 66 75 6e 63 22 2e 20 20 55 73  t to "func".  Us
1c70: 65 20 69 74 20 66 6f 72 20 77 68 61 74 65 76 65  e it for whateve
1c80: 72 20 79 6f 75 20 6c 69 6b 65 2e 0a 2a 2a 0a 2a  r you like..**.*
1c90: 2a 20 20 20 66 6d 74 20 20 20 20 54 68 69 73 20  *   fmt    This 
1ca0: 69 73 20 74 68 65 20 66 6f 72 6d 61 74 20 73 74  is the format st
1cb0: 72 69 6e 67 2c 20 61 73 20 69 6e 20 74 68 65 20  ring, as in the 
1cc0: 75 73 75 61 6c 20 70 72 69 6e 74 2e 0a 2a 2a 0a  usual print..**.
1cd0: 2a 2a 20 20 20 61 70 20 20 20 20 20 54 68 69 73  **   ap     This
1ce0: 20 69 73 20 61 20 70 6f 69 6e 74 65 72 20 74 6f   is a pointer to
1cf0: 20 61 20 6c 69 73 74 20 6f 66 20 61 72 67 75 6d   a list of argum
1d00: 65 6e 74 73 2e 20 20 53 61 6d 65 20 61 73 20 69  ents.  Same as i
1d10: 6e 0a 2a 2a 20 20 20 20 20 20 20 20 20 20 76 66  n.**          vf
1d20: 70 72 69 6e 74 2e 0a 2a 2a 0a 2a 2a 20 4f 55 54  print..**.** OUT
1d30: 50 55 54 53 3a 0a 2a 2a 20 20 20 20 20 20 20 20  PUTS:.**        
1d40: 20 20 54 68 65 20 72 65 74 75 72 6e 20 76 61 6c    The return val
1d50: 75 65 20 69 73 20 74 68 65 20 74 6f 74 61 6c 20  ue is the total 
1d60: 6e 75 6d 62 65 72 20 6f 66 20 63 68 61 72 61 63  number of charac
1d70: 74 65 72 73 20 73 65 6e 74 20 74 6f 0a 2a 2a 20  ters sent to.** 
1d80: 20 20 20 20 20 20 20 20 20 74 68 65 20 66 75 6e           the fun
1d90: 63 74 69 6f 6e 20 22 66 75 6e 63 22 2e 20 20 52  ction "func".  R
1da0: 65 74 75 72 6e 73 20 2d 31 20 6f 6e 20 61 20 65  eturns -1 on a e
1db0: 72 72 6f 72 2e 0a 2a 2a 0a 2a 2a 20 4e 6f 74 65  rror..**.** Note
1dc0: 20 74 68 61 74 20 74 68 65 20 6f 72 64 65 72 20   that the order 
1dd0: 69 6e 20 77 68 69 63 68 20 61 75 74 6f 6d 61 74  in which automat
1de0: 69 63 20 76 61 72 69 61 62 6c 65 73 20 61 72 65  ic variables are
1df0: 20 64 65 63 6c 61 72 65 64 20 62 65 6c 6f 77 0a   declared below.
1e00: 2a 2a 20 73 65 65 6d 73 20 74 6f 20 6d 61 6b 65  ** seems to make
1e10: 20 61 20 62 69 67 20 64 69 66 66 65 72 65 6e 63   a big differenc
1e20: 65 20 69 6e 20 64 65 74 65 72 6d 69 6e 69 6e 67  e in determining
1e30: 20 68 6f 77 20 66 61 73 74 20 74 68 69 73 20 62   how fast this b
1e40: 65 61 73 74 0a 2a 2a 20 77 69 6c 6c 20 72 75 6e  east.** will run
1e50: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20  ..*/.static int 
1e60: 76 78 70 72 69 6e 74 66 28 0a 20 20 76 6f 69 64  vxprintf(.  void
1e70: 20 28 2a 66 75 6e 63 29 28 76 6f 69 64 2a 2c 63   (*func)(void*,c
1e80: 6f 6e 73 74 20 63 68 61 72 2a 2c 69 6e 74 29 2c  onst char*,int),
1e90: 20 20 20 20 20 2f 2a 20 43 6f 6e 73 75 6d 65 72       /* Consumer
1ea0: 20 6f 66 20 74 65 78 74 20 2a 2f 0a 20 20 76 6f   of text */.  vo
1eb0: 69 64 20 2a 61 72 67 2c 20 20 20 20 20 20 20 20  id *arg,        
1ec0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1ed0: 20 2f 2a 20 46 69 72 73 74 20 61 72 67 75 6d 65   /* First argume
1ee0: 6e 74 20 74 6f 20 74 68 65 20 63 6f 6e 73 75 6d  nt to the consum
1ef0: 65 72 20 2a 2f 0a 20 20 69 6e 74 20 75 73 65 45  er */.  int useE
1f00: 78 74 65 6e 64 65 64 2c 20 20 20 20 20 20 20 20  xtended,        
1f10: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 41 6c             /* Al
1f20: 6c 6f 77 20 65 78 74 65 6e 64 65 64 20 25 2d 63  low extended %-c
1f30: 6f 6e 76 65 72 73 69 6f 6e 73 20 2a 2f 0a 20 20  onversions */.  
1f40: 63 6f 6e 73 74 20 63 68 61 72 20 2a 66 6d 74 2c  const char *fmt,
1f50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1f60: 20 20 20 2f 2a 20 46 6f 72 6d 61 74 20 73 74 72     /* Format str
1f70: 69 6e 67 20 2a 2f 0a 20 20 76 61 5f 6c 69 73 74  ing */.  va_list
1f80: 20 61 70 20 20 20 20 20 20 20 20 20 20 20 20 20   ap             
1f90: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 61              /* a
1fa0: 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20  rguments */.){. 
1fb0: 20 69 6e 74 20 63 3b 20 20 20 20 20 20 20 20 20   int c;         
1fc0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e              /* N
1fd0: 65 78 74 20 63 68 61 72 61 63 74 65 72 20 69 6e  ext character in
1fe0: 20 74 68 65 20 66 6f 72 6d 61 74 20 73 74 72 69   the format stri
1ff0: 6e 67 20 2a 2f 0a 20 20 63 68 61 72 20 2a 62 75  ng */.  char *bu
2000: 66 70 74 3b 20 20 20 20 20 20 20 20 20 20 20 20  fpt;            
2010: 20 20 20 2f 2a 20 50 6f 69 6e 74 65 72 20 74 6f     /* Pointer to
2020: 20 74 68 65 20 63 6f 6e 76 65 72 73 69 6f 6e 20   the conversion 
2030: 62 75 66 66 65 72 20 2a 2f 0a 20 20 69 6e 74 20  buffer */.  int 
2040: 70 72 65 63 69 73 69 6f 6e 3b 20 20 20 20 20 20  precision;      
2050: 20 20 20 20 20 20 20 2f 2a 20 50 72 65 63 69 73         /* Precis
2060: 69 6f 6e 20 6f 66 20 74 68 65 20 63 75 72 72 65  ion of the curre
2070: 6e 74 20 66 69 65 6c 64 20 2a 2f 0a 20 20 69 6e  nt field */.  in
2080: 74 20 6c 65 6e 67 74 68 3b 20 20 20 20 20 20 20  t length;       
2090: 20 20 20 20 20 20 20 20 20 2f 2a 20 4c 65 6e 67           /* Leng
20a0: 74 68 20 6f 66 20 74 68 65 20 66 69 65 6c 64 20  th of the field 
20b0: 2a 2f 0a 20 20 69 6e 74 20 69 64 78 3b 20 20 20  */.  int idx;   
20c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
20d0: 2f 2a 20 41 20 67 65 6e 65 72 61 6c 20 70 75 72  /* A general pur
20e0: 70 6f 73 65 20 6c 6f 6f 70 20 63 6f 75 6e 74 65  pose loop counte
20f0: 72 20 2a 2f 0a 20 20 69 6e 74 20 63 6f 75 6e 74  r */.  int count
2100: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ;               
2110: 20 20 2f 2a 20 54 6f 74 61 6c 20 6e 75 6d 62 65    /* Total numbe
2120: 72 20 6f 66 20 63 68 61 72 61 63 74 65 72 73 20  r of characters 
2130: 6f 75 74 70 75 74 20 2a 2f 0a 20 20 69 6e 74 20  output */.  int 
2140: 77 69 64 74 68 3b 20 20 20 20 20 20 20 20 20 20  width;          
2150: 20 20 20 20 20 20 20 2f 2a 20 57 69 64 74 68 20         /* Width 
2160: 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 66  of the current f
2170: 69 65 6c 64 20 2a 2f 0a 20 20 65 74 42 79 74 65  ield */.  etByte
2180: 20 66 6c 61 67 5f 6c 65 66 74 6a 75 73 74 69 66   flag_leftjustif
2190: 79 3b 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20  y;   /* True if 
21a0: 22 2d 22 20 66 6c 61 67 20 69 73 20 70 72 65 73  "-" flag is pres
21b0: 65 6e 74 20 2a 2f 0a 20 20 65 74 42 79 74 65 20  ent */.  etByte 
21c0: 66 6c 61 67 5f 70 6c 75 73 73 69 67 6e 3b 20 20  flag_plussign;  
21d0: 20 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20 22      /* True if "
21e0: 2b 22 20 66 6c 61 67 20 69 73 20 70 72 65 73 65  +" flag is prese
21f0: 6e 74 20 2a 2f 0a 20 20 65 74 42 79 74 65 20 66  nt */.  etByte f
2200: 6c 61 67 5f 62 6c 61 6e 6b 73 69 67 6e 3b 20 20  lag_blanksign;  
2210: 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20 22 20     /* True if " 
2220: 22 20 66 6c 61 67 20 69 73 20 70 72 65 73 65 6e  " flag is presen
2230: 74 20 2a 2f 0a 20 20 65 74 42 79 74 65 20 66 6c  t */.  etByte fl
2240: 61 67 5f 61 6c 74 65 72 6e 61 74 65 66 6f 72 6d  ag_alternateform
2250: 3b 20 2f 2a 20 54 72 75 65 20 69 66 20 22 23 22  ; /* True if "#"
2260: 20 66 6c 61 67 20 69 73 20 70 72 65 73 65 6e 74   flag is present
2270: 20 2a 2f 0a 20 20 65 74 42 79 74 65 20 66 6c 61   */.  etByte fla
2280: 67 5f 61 6c 74 66 6f 72 6d 32 3b 20 20 20 20 20  g_altform2;     
2290: 20 2f 2a 20 54 72 75 65 20 69 66 20 22 21 22 20   /* True if "!" 
22a0: 66 6c 61 67 20 69 73 20 70 72 65 73 65 6e 74 20  flag is present 
22b0: 2a 2f 0a 20 20 65 74 42 79 74 65 20 66 6c 61 67  */.  etByte flag
22c0: 5f 7a 65 72 6f 70 61 64 3b 20 20 20 20 20 20 20  _zeropad;       
22d0: 2f 2a 20 54 72 75 65 20 69 66 20 66 69 65 6c 64  /* True if field
22e0: 20 77 69 64 74 68 20 63 6f 6e 73 74 61 6e 74 20   width constant 
22f0: 73 74 61 72 74 73 20 77 69 74 68 20 7a 65 72 6f  starts with zero
2300: 20 2a 2f 0a 20 20 65 74 42 79 74 65 20 66 6c 61   */.  etByte fla
2310: 67 5f 6c 6f 6e 67 3b 20 20 20 20 20 20 20 20 20  g_long;         
2320: 20 2f 2a 20 54 72 75 65 20 69 66 20 22 6c 22 20   /* True if "l" 
2330: 66 6c 61 67 20 69 73 20 70 72 65 73 65 6e 74 20  flag is present 
2340: 2a 2f 0a 20 20 65 74 42 79 74 65 20 66 6c 61 67  */.  etByte flag
2350: 5f 6c 6f 6e 67 6c 6f 6e 67 3b 20 20 20 20 20 20  _longlong;      
2360: 2f 2a 20 54 72 75 65 20 69 66 20 74 68 65 20 22  /* True if the "
2370: 6c 6c 22 20 66 6c 61 67 20 69 73 20 70 72 65 73  ll" flag is pres
2380: 65 6e 74 20 2a 2f 0a 20 20 65 74 42 79 74 65 20  ent */.  etByte 
2390: 64 6f 6e 65 3b 20 20 20 20 20 20 20 20 20 20 20  done;           
23a0: 20 20 20 20 2f 2a 20 4c 6f 6f 70 20 74 65 72 6d      /* Loop term
23b0: 69 6e 61 74 69 6f 6e 20 66 6c 61 67 20 2a 2f 0a  ination flag */.
23c0: 20 20 55 49 4e 54 36 34 5f 54 59 50 45 20 6c 6f    UINT64_TYPE lo
23d0: 6e 67 76 61 6c 75 65 3b 20 20 20 20 20 2f 2a 20  ngvalue;     /* 
23e0: 56 61 6c 75 65 20 66 6f 72 20 69 6e 74 65 67 65  Value for intege
23f0: 72 20 74 79 70 65 73 20 2a 2f 0a 20 20 4c 4f 4e  r types */.  LON
2400: 47 44 4f 55 42 4c 45 5f 54 59 50 45 20 72 65 61  GDOUBLE_TYPE rea
2410: 6c 76 61 6c 75 65 3b 20 2f 2a 20 56 61 6c 75 65  lvalue; /* Value
2420: 20 66 6f 72 20 72 65 61 6c 20 74 79 70 65 73 20   for real types 
2430: 2a 2f 0a 20 20 63 6f 6e 73 74 20 65 74 5f 69 6e  */.  const et_in
2440: 66 6f 20 2a 69 6e 66 6f 70 3b 20 20 20 20 20 20  fo *infop;      
2450: 2f 2a 20 50 6f 69 6e 74 65 72 20 74 6f 20 74 68  /* Pointer to th
2460: 65 20 61 70 70 72 6f 70 72 69 61 74 65 20 69 6e  e appropriate in
2470: 66 6f 20 73 74 72 75 63 74 75 72 65 20 2a 2f 0a  fo structure */.
2480: 20 20 63 68 61 72 20 62 75 66 5b 65 74 42 55 46    char buf[etBUF
2490: 53 49 5a 45 5d 3b 20 20 20 20 20 20 20 2f 2a 20  SIZE];       /* 
24a0: 43 6f 6e 76 65 72 73 69 6f 6e 20 62 75 66 66 65  Conversion buffe
24b0: 72 20 2a 2f 0a 20 20 63 68 61 72 20 70 72 65 66  r */.  char pref
24c0: 69 78 3b 20 20 20 20 20 20 20 20 20 20 20 20 20  ix;             
24d0: 20 20 2f 2a 20 50 72 65 66 69 78 20 63 68 61 72    /* Prefix char
24e0: 61 63 74 65 72 2e 20 20 22 2b 22 20 6f 72 20 22  acter.  "+" or "
24f0: 2d 22 20 6f 72 20 22 20 22 20 6f 72 20 27 5c 30  -" or " " or '\0
2500: 27 2e 20 2a 2f 0a 20 20 65 74 42 79 74 65 20 65  '. */.  etByte e
2510: 72 72 6f 72 66 6c 61 67 20 3d 20 30 3b 20 20 20  rrorflag = 0;   
2520: 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20 61 6e     /* True if an
2530: 20 65 72 72 6f 72 20 69 73 20 65 6e 63 6f 75 6e   error is encoun
2540: 74 65 72 65 64 20 2a 2f 0a 20 20 65 74 42 79 74  tered */.  etByt
2550: 65 20 78 74 79 70 65 3b 20 20 20 20 20 20 20 20  e xtype;        
2560: 20 20 20 20 20 20 2f 2a 20 43 6f 6e 76 65 72 73        /* Convers
2570: 69 6f 6e 20 70 61 72 61 64 69 67 6d 20 2a 2f 0a  ion paradigm */.
2580: 20 20 63 68 61 72 20 2a 7a 45 78 74 72 61 3b 20    char *zExtra; 
2590: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
25a0: 45 78 74 72 61 20 6d 65 6d 6f 72 79 20 75 73 65  Extra memory use
25b0: 64 20 66 6f 72 20 65 74 54 43 4c 45 53 43 41 50  d for etTCLESCAP
25c0: 45 20 63 6f 6e 76 65 72 73 69 6f 6e 73 20 2a 2f  E conversions */
25d0: 0a 20 20 73 74 61 74 69 63 20 63 6f 6e 73 74 20  .  static const 
25e0: 63 68 61 72 20 73 70 61 63 65 73 5b 5d 20 3d 0a  char spaces[] =.
25f0: 20 20 20 22 20 20 20 20 20 20 20 20 20 20 20 20     "            
2600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
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 22 3b 0a               ";.
2640: 23 64 65 66 69 6e 65 20 65 74 53 50 41 43 45 53  #define etSPACES
2650: 49 5a 45 20 28 73 69 7a 65 6f 66 28 73 70 61 63  IZE (sizeof(spac
2660: 65 73 29 2d 31 29 0a 23 69 66 6e 64 65 66 20 65  es)-1).#ifndef e
2670: 74 4e 4f 46 4c 4f 41 54 49 4e 47 50 4f 49 4e 54  tNOFLOATINGPOINT
2680: 0a 20 20 69 6e 74 20 20 65 78 70 2c 20 65 32 3b  .  int  exp, e2;
2690: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
26a0: 20 65 78 70 6f 6e 65 6e 74 20 6f 66 20 72 65 61   exponent of rea
26b0: 6c 20 6e 75 6d 62 65 72 73 20 2a 2f 0a 20 20 64  l numbers */.  d
26c0: 6f 75 62 6c 65 20 72 6f 75 6e 64 65 72 3b 20 20  ouble rounder;  
26d0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 55 73 65            /* Use
26e0: 64 20 66 6f 72 20 72 6f 75 6e 64 69 6e 67 20 66  d for rounding f
26f0: 6c 6f 61 74 69 6e 67 20 70 6f 69 6e 74 20 76 61  loating point va
2700: 6c 75 65 73 20 2a 2f 0a 20 20 65 74 42 79 74 65  lues */.  etByte
2710: 20 66 6c 61 67 5f 64 70 3b 20 20 20 20 20 20 20   flag_dp;       
2720: 20 20 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20       /* True if 
2730: 64 65 63 69 6d 61 6c 20 70 6f 69 6e 74 20 73 68  decimal point sh
2740: 6f 75 6c 64 20 62 65 20 73 68 6f 77 6e 20 2a 2f  ould be shown */
2750: 0a 20 20 65 74 42 79 74 65 20 66 6c 61 67 5f 72  .  etByte flag_r
2760: 74 7a 3b 20 20 20 20 20 20 20 20 20 20 20 2f 2a  tz;           /*
2770: 20 54 72 75 65 20 69 66 20 74 72 61 69 6c 69 6e   True if trailin
2780: 67 20 7a 65 72 6f 73 20 73 68 6f 75 6c 64 20 62  g zeros should b
2790: 65 20 72 65 6d 6f 76 65 64 20 2a 2f 0a 20 20 65  e removed */.  e
27a0: 74 42 79 74 65 20 66 6c 61 67 5f 65 78 70 3b 20  tByte flag_exp; 
27b0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 72 75            /* Tru
27c0: 65 20 74 6f 20 66 6f 72 63 65 20 64 69 73 70 6c  e to force displ
27d0: 61 79 20 6f 66 20 74 68 65 20 65 78 70 6f 6e 65  ay of the expone
27e0: 6e 74 20 2a 2f 0a 20 20 69 6e 74 20 6e 73 64 3b  nt */.  int nsd;
27f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2800: 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20     /* Number of 
2810: 73 69 67 6e 69 66 69 63 61 6e 74 20 64 69 67 69  significant digi
2820: 74 73 20 72 65 74 75 72 6e 65 64 20 2a 2f 0a 23  ts returned */.#
2830: 65 6e 64 69 66 0a 0a 20 20 66 75 6e 63 28 61 72  endif..  func(ar
2840: 67 2c 22 22 2c 30 29 3b 0a 20 20 63 6f 75 6e 74  g,"",0);.  count
2850: 20 3d 20 6c 65 6e 67 74 68 20 3d 20 30 3b 0a 20   = length = 0;. 
2860: 20 62 75 66 70 74 20 3d 20 30 3b 0a 20 20 66 6f   bufpt = 0;.  fo
2870: 72 28 3b 20 28 63 3d 28 2a 66 6d 74 29 29 21 3d  r(; (c=(*fmt))!=
2880: 30 3b 20 2b 2b 66 6d 74 29 7b 0a 20 20 20 20 69  0; ++fmt){.    i
2890: 66 28 20 63 21 3d 27 25 27 20 29 7b 0a 20 20 20  f( c!='%' ){.   
28a0: 20 20 20 69 6e 74 20 61 6d 74 3b 0a 20 20 20 20     int amt;.    
28b0: 20 20 62 75 66 70 74 20 3d 20 28 63 68 61 72 20    bufpt = (char 
28c0: 2a 29 66 6d 74 3b 0a 20 20 20 20 20 20 61 6d 74  *)fmt;.      amt
28d0: 20 3d 20 31 3b 0a 20 20 20 20 20 20 77 68 69 6c   = 1;.      whil
28e0: 65 28 20 28 63 3d 28 2a 2b 2b 66 6d 74 29 29 21  e( (c=(*++fmt))!
28f0: 3d 27 25 27 20 26 26 20 63 21 3d 30 20 29 20 61  ='%' && c!=0 ) a
2900: 6d 74 2b 2b 3b 0a 20 20 20 20 20 20 28 2a 66 75  mt++;.      (*fu
2910: 6e 63 29 28 61 72 67 2c 62 75 66 70 74 2c 61 6d  nc)(arg,bufpt,am
2920: 74 29 3b 0a 20 20 20 20 20 20 63 6f 75 6e 74 20  t);.      count 
2930: 2b 3d 20 61 6d 74 3b 0a 20 20 20 20 20 20 69 66  += amt;.      if
2940: 28 20 63 3d 3d 30 20 29 20 62 72 65 61 6b 3b 0a  ( c==0 ) break;.
2950: 20 20 20 20 7d 0a 20 20 20 20 69 66 28 20 28 63      }.    if( (c
2960: 3d 28 2a 2b 2b 66 6d 74 29 29 3d 3d 30 20 29 7b  =(*++fmt))==0 ){
2970: 0a 20 20 20 20 20 20 65 72 72 6f 72 66 6c 61 67  .      errorflag
2980: 20 3d 20 31 3b 0a 20 20 20 20 20 20 28 2a 66 75   = 1;.      (*fu
2990: 6e 63 29 28 61 72 67 2c 22 25 22 2c 31 29 3b 0a  nc)(arg,"%",1);.
29a0: 20 20 20 20 20 20 63 6f 75 6e 74 2b 2b 3b 0a 20        count++;. 
29b0: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20       break;.    
29c0: 7d 0a 20 20 20 20 2f 2a 20 46 69 6e 64 20 6f 75  }.    /* Find ou
29d0: 74 20 77 68 61 74 20 66 6c 61 67 73 20 61 72 65  t what flags are
29e0: 20 70 72 65 73 65 6e 74 20 2a 2f 0a 20 20 20 20   present */.    
29f0: 66 6c 61 67 5f 6c 65 66 74 6a 75 73 74 69 66 79  flag_leftjustify
2a00: 20 3d 20 66 6c 61 67 5f 70 6c 75 73 73 69 67 6e   = flag_plussign
2a10: 20 3d 20 66 6c 61 67 5f 62 6c 61 6e 6b 73 69 67   = flag_blanksig
2a20: 6e 20 3d 20 0a 20 20 20 20 20 66 6c 61 67 5f 61  n = .     flag_a
2a30: 6c 74 65 72 6e 61 74 65 66 6f 72 6d 20 3d 20 66  lternateform = f
2a40: 6c 61 67 5f 61 6c 74 66 6f 72 6d 32 20 3d 20 66  lag_altform2 = f
2a50: 6c 61 67 5f 7a 65 72 6f 70 61 64 20 3d 20 30 3b  lag_zeropad = 0;
2a60: 0a 20 20 20 20 64 6f 6e 65 20 3d 20 30 3b 0a 20  .    done = 0;. 
2a70: 20 20 20 64 6f 7b 0a 20 20 20 20 20 20 73 77 69     do{.      swi
2a80: 74 63 68 28 20 63 20 29 7b 0a 20 20 20 20 20 20  tch( c ){.      
2a90: 20 20 63 61 73 65 20 27 2d 27 3a 20 20 20 66 6c    case '-':   fl
2aa0: 61 67 5f 6c 65 66 74 6a 75 73 74 69 66 79 20 3d  ag_leftjustify =
2ab0: 20 31 3b 20 20 20 20 20 62 72 65 61 6b 3b 0a 20   1;     break;. 
2ac0: 20 20 20 20 20 20 20 63 61 73 65 20 27 2b 27 3a         case '+':
2ad0: 20 20 20 66 6c 61 67 5f 70 6c 75 73 73 69 67 6e     flag_plussign
2ae0: 20 3d 20 31 3b 20 20 20 20 20 20 20 20 62 72 65   = 1;        bre
2af0: 61 6b 3b 0a 20 20 20 20 20 20 20 20 63 61 73 65  ak;.        case
2b00: 20 27 20 27 3a 20 20 20 66 6c 61 67 5f 62 6c 61   ' ':   flag_bla
2b10: 6e 6b 73 69 67 6e 20 3d 20 31 3b 20 20 20 20 20  nksign = 1;     
2b20: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 20    break;.       
2b30: 20 63 61 73 65 20 27 23 27 3a 20 20 20 66 6c 61   case '#':   fla
2b40: 67 5f 61 6c 74 65 72 6e 61 74 65 66 6f 72 6d 20  g_alternateform 
2b50: 3d 20 31 3b 20 20 20 62 72 65 61 6b 3b 0a 20 20  = 1;   break;.  
2b60: 20 20 20 20 20 20 63 61 73 65 20 27 21 27 3a 20        case '!': 
2b70: 20 20 66 6c 61 67 5f 61 6c 74 66 6f 72 6d 32 20    flag_altform2 
2b80: 3d 20 31 3b 20 20 20 20 20 20 20 20 62 72 65 61  = 1;        brea
2b90: 6b 3b 0a 20 20 20 20 20 20 20 20 63 61 73 65 20  k;.        case 
2ba0: 27 30 27 3a 20 20 20 66 6c 61 67 5f 7a 65 72 6f  '0':   flag_zero
2bb0: 70 61 64 20 3d 20 31 3b 20 20 20 20 20 20 20 20  pad = 1;        
2bc0: 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 20 20   break;.        
2bd0: 64 65 66 61 75 6c 74 3a 20 20 20 20 64 6f 6e 65  default:    done
2be0: 20 3d 20 31 3b 20 20 20 20 20 20 20 20 20 20 20   = 1;           
2bf0: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20        break;.   
2c00: 20 20 20 7d 0a 20 20 20 20 7d 77 68 69 6c 65 28     }.    }while(
2c10: 20 21 64 6f 6e 65 20 26 26 20 28 63 3d 28 2a 2b   !done && (c=(*+
2c20: 2b 66 6d 74 29 29 21 3d 30 20 29 3b 0a 20 20 20  +fmt))!=0 );.   
2c30: 20 2f 2a 20 47 65 74 20 74 68 65 20 66 69 65 6c   /* Get the fiel
2c40: 64 20 77 69 64 74 68 20 2a 2f 0a 20 20 20 20 77  d width */.    w
2c50: 69 64 74 68 20 3d 20 30 3b 0a 20 20 20 20 69 66  idth = 0;.    if
2c60: 28 20 63 3d 3d 27 2a 27 20 29 7b 0a 20 20 20 20  ( c=='*' ){.    
2c70: 20 20 77 69 64 74 68 20 3d 20 76 61 5f 61 72 67    width = va_arg
2c80: 28 61 70 2c 69 6e 74 29 3b 0a 20 20 20 20 20 20  (ap,int);.      
2c90: 69 66 28 20 77 69 64 74 68 3c 30 20 29 7b 0a 20  if( width<0 ){. 
2ca0: 20 20 20 20 20 20 20 66 6c 61 67 5f 6c 65 66 74         flag_left
2cb0: 6a 75 73 74 69 66 79 20 3d 20 31 3b 0a 20 20 20  justify = 1;.   
2cc0: 20 20 20 20 20 77 69 64 74 68 20 3d 20 2d 77 69       width = -wi
2cd0: 64 74 68 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20  dth;.      }.   
2ce0: 20 20 20 63 20 3d 20 2a 2b 2b 66 6d 74 3b 0a 20     c = *++fmt;. 
2cf0: 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20     }else{.      
2d00: 77 68 69 6c 65 28 20 63 3e 3d 27 30 27 20 26 26  while( c>='0' &&
2d10: 20 63 3c 3d 27 39 27 20 29 7b 0a 20 20 20 20 20   c<='9' ){.     
2d20: 20 20 20 77 69 64 74 68 20 3d 20 77 69 64 74 68     width = width
2d30: 2a 31 30 20 2b 20 63 20 2d 20 27 30 27 3b 0a 20  *10 + c - '0';. 
2d40: 20 20 20 20 20 20 20 63 20 3d 20 2a 2b 2b 66 6d         c = *++fm
2d50: 74 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d  t;.      }.    }
2d60: 0a 20 20 20 20 69 66 28 20 77 69 64 74 68 20 3e  .    if( width >
2d70: 20 65 74 42 55 46 53 49 5a 45 2d 31 30 20 29 7b   etBUFSIZE-10 ){
2d80: 0a 20 20 20 20 20 20 77 69 64 74 68 20 3d 20 65  .      width = e
2d90: 74 42 55 46 53 49 5a 45 2d 31 30 3b 0a 20 20 20  tBUFSIZE-10;.   
2da0: 20 7d 0a 20 20 20 20 2f 2a 20 47 65 74 20 74 68   }.    /* Get th
2db0: 65 20 70 72 65 63 69 73 69 6f 6e 20 2a 2f 0a 20  e precision */. 
2dc0: 20 20 20 69 66 28 20 63 3d 3d 27 2e 27 20 29 7b     if( c=='.' ){
2dd0: 0a 20 20 20 20 20 20 70 72 65 63 69 73 69 6f 6e  .      precision
2de0: 20 3d 20 30 3b 0a 20 20 20 20 20 20 63 20 3d 20   = 0;.      c = 
2df0: 2a 2b 2b 66 6d 74 3b 0a 20 20 20 20 20 20 69 66  *++fmt;.      if
2e00: 28 20 63 3d 3d 27 2a 27 20 29 7b 0a 20 20 20 20  ( c=='*' ){.    
2e10: 20 20 20 20 70 72 65 63 69 73 69 6f 6e 20 3d 20      precision = 
2e20: 76 61 5f 61 72 67 28 61 70 2c 69 6e 74 29 3b 0a  va_arg(ap,int);.
2e30: 20 20 20 20 20 20 20 20 69 66 28 20 70 72 65 63          if( prec
2e40: 69 73 69 6f 6e 3c 30 20 29 20 70 72 65 63 69 73  ision<0 ) precis
2e50: 69 6f 6e 20 3d 20 2d 70 72 65 63 69 73 69 6f 6e  ion = -precision
2e60: 3b 0a 20 20 20 20 20 20 20 20 63 20 3d 20 2a 2b  ;.        c = *+
2e70: 2b 66 6d 74 3b 0a 20 20 20 20 20 20 7d 65 6c 73  +fmt;.      }els
2e80: 65 7b 0a 20 20 20 20 20 20 20 20 77 68 69 6c 65  e{.        while
2e90: 28 20 63 3e 3d 27 30 27 20 26 26 20 63 3c 3d 27  ( c>='0' && c<='
2ea0: 39 27 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20  9' ){.          
2eb0: 70 72 65 63 69 73 69 6f 6e 20 3d 20 70 72 65 63  precision = prec
2ec0: 69 73 69 6f 6e 2a 31 30 20 2b 20 63 20 2d 20 27  ision*10 + c - '
2ed0: 30 27 3b 0a 20 20 20 20 20 20 20 20 20 20 63 20  0';.          c 
2ee0: 3d 20 2a 2b 2b 66 6d 74 3b 0a 20 20 20 20 20 20  = *++fmt;.      
2ef0: 20 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20    }.      }.    
2f00: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 70 72 65  }else{.      pre
2f10: 63 69 73 69 6f 6e 20 3d 20 2d 31 3b 0a 20 20 20  cision = -1;.   
2f20: 20 7d 0a 20 20 20 20 2f 2a 20 47 65 74 20 74 68   }.    /* Get th
2f30: 65 20 63 6f 6e 76 65 72 73 69 6f 6e 20 74 79 70  e conversion typ
2f40: 65 20 6d 6f 64 69 66 69 65 72 20 2a 2f 0a 20 20  e modifier */.  
2f50: 20 20 69 66 28 20 63 3d 3d 27 6c 27 20 29 7b 0a    if( c=='l' ){.
2f60: 20 20 20 20 20 20 66 6c 61 67 5f 6c 6f 6e 67 20        flag_long 
2f70: 3d 20 31 3b 0a 20 20 20 20 20 20 63 20 3d 20 2a  = 1;.      c = *
2f80: 2b 2b 66 6d 74 3b 0a 20 20 20 20 20 20 69 66 28  ++fmt;.      if(
2f90: 20 63 3d 3d 27 6c 27 20 29 7b 0a 20 20 20 20 20   c=='l' ){.     
2fa0: 20 20 20 66 6c 61 67 5f 6c 6f 6e 67 6c 6f 6e 67     flag_longlong
2fb0: 20 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 63 20   = 1;.        c 
2fc0: 3d 20 2a 2b 2b 66 6d 74 3b 0a 20 20 20 20 20 20  = *++fmt;.      
2fd0: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 66  }else{.        f
2fe0: 6c 61 67 5f 6c 6f 6e 67 6c 6f 6e 67 20 3d 20 30  lag_longlong = 0
2ff0: 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 65  ;.      }.    }e
3000: 6c 73 65 7b 0a 20 20 20 20 20 20 66 6c 61 67 5f  lse{.      flag_
3010: 6c 6f 6e 67 20 3d 20 66 6c 61 67 5f 6c 6f 6e 67  long = flag_long
3020: 6c 6f 6e 67 20 3d 20 30 3b 0a 20 20 20 20 7d 0a  long = 0;.    }.
3030: 20 20 20 20 2f 2a 20 46 65 74 63 68 20 74 68 65      /* Fetch the
3040: 20 69 6e 66 6f 20 65 6e 74 72 79 20 66 6f 72 20   info entry for 
3050: 74 68 65 20 66 69 65 6c 64 20 2a 2f 0a 20 20 20  the field */.   
3060: 20 69 6e 66 6f 70 20 3d 20 30 3b 0a 20 20 20 20   infop = 0;.    
3070: 78 74 79 70 65 20 3d 20 65 74 45 52 52 4f 52 3b  xtype = etERROR;
3080: 0a 20 20 20 20 66 6f 72 28 69 64 78 3d 30 3b 20  .    for(idx=0; 
3090: 69 64 78 3c 65 74 4e 49 4e 46 4f 3b 20 69 64 78  idx<etNINFO; idx
30a0: 2b 2b 29 7b 0a 20 20 20 20 20 20 69 66 28 20 63  ++){.      if( c
30b0: 3d 3d 66 6d 74 69 6e 66 6f 5b 69 64 78 5d 2e 66  ==fmtinfo[idx].f
30c0: 6d 74 74 79 70 65 20 29 7b 0a 20 20 20 20 20 20  mttype ){.      
30d0: 20 20 69 6e 66 6f 70 20 3d 20 26 66 6d 74 69 6e    infop = &fmtin
30e0: 66 6f 5b 69 64 78 5d 3b 0a 20 20 20 20 20 20 20  fo[idx];.       
30f0: 20 69 66 28 20 75 73 65 45 78 74 65 6e 64 65 64   if( useExtended
3100: 20 7c 7c 20 28 69 6e 66 6f 70 2d 3e 66 6c 61 67   || (infop->flag
3110: 73 20 26 20 46 4c 41 47 5f 49 4e 54 45 52 4e 29  s & FLAG_INTERN)
3120: 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20  ==0 ){.         
3130: 20 78 74 79 70 65 20 3d 20 69 6e 66 6f 70 2d 3e   xtype = infop->
3140: 74 79 70 65 3b 0a 20 20 20 20 20 20 20 20 7d 0a  type;.        }.
3150: 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20          break;. 
3160: 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20       }.    }.   
3170: 20 7a 45 78 74 72 61 20 3d 20 30 3b 0a 0a 20 20   zExtra = 0;..  
3180: 20 20 2f 2a 20 4c 69 6d 69 74 20 74 68 65 20 70    /* Limit the p
3190: 72 65 63 69 73 69 6f 6e 20 74 6f 20 70 72 65 76  recision to prev
31a0: 65 6e 74 20 6f 76 65 72 66 6c 6f 77 69 6e 67 20  ent overflowing 
31b0: 62 75 66 5b 5d 20 64 75 72 69 6e 67 20 63 6f 6e  buf[] during con
31c0: 76 65 72 73 69 6f 6e 20 2a 2f 0a 20 20 20 20 69  version */.    i
31d0: 66 28 20 70 72 65 63 69 73 69 6f 6e 3e 65 74 42  f( precision>etB
31e0: 55 46 53 49 5a 45 2d 34 30 20 26 26 20 28 69 6e  UFSIZE-40 && (in
31f0: 66 6f 70 2d 3e 66 6c 61 67 73 20 26 20 46 4c 41  fop->flags & FLA
3200: 47 5f 53 54 52 49 4e 47 29 3d 3d 30 20 29 7b 0a  G_STRING)==0 ){.
3210: 20 20 20 20 20 20 70 72 65 63 69 73 69 6f 6e 20        precision 
3220: 3d 20 65 74 42 55 46 53 49 5a 45 2d 34 30 3b 0a  = etBUFSIZE-40;.
3230: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20      }..    /*.  
3240: 20 20 2a 2a 20 41 74 20 74 68 69 73 20 70 6f 69    ** At this poi
3250: 6e 74 2c 20 76 61 72 69 61 62 6c 65 73 20 61 72  nt, variables ar
3260: 65 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 61 73  e initialized as
3270: 20 66 6f 6c 6c 6f 77 73 3a 0a 20 20 20 20 2a 2a   follows:.    **
3280: 0a 20 20 20 20 2a 2a 20 20 20 66 6c 61 67 5f 61  .    **   flag_a
3290: 6c 74 65 72 6e 61 74 65 66 6f 72 6d 20 20 20 20  lternateform    
32a0: 20 20 20 20 20 20 54 52 55 45 20 69 66 20 61 20        TRUE if a 
32b0: 27 23 27 20 69 73 20 70 72 65 73 65 6e 74 2e 0a  '#' is present..
32c0: 20 20 20 20 2a 2a 20 20 20 66 6c 61 67 5f 61 6c      **   flag_al
32d0: 74 66 6f 72 6d 32 20 20 20 20 20 20 20 20 20 20  tform2          
32e0: 20 20 20 20 20 54 52 55 45 20 69 66 20 61 20 27       TRUE if a '
32f0: 21 27 20 69 73 20 70 72 65 73 65 6e 74 2e 0a 20  !' is present.. 
3300: 20 20 20 2a 2a 20 20 20 66 6c 61 67 5f 70 6c 75     **   flag_plu
3310: 73 73 69 67 6e 20 20 20 20 20 20 20 20 20 20 20  ssign           
3320: 20 20 20 20 54 52 55 45 20 69 66 20 61 20 27 2b      TRUE if a '+
3330: 27 20 69 73 20 70 72 65 73 65 6e 74 2e 0a 20 20  ' is present..  
3340: 20 20 2a 2a 20 20 20 66 6c 61 67 5f 6c 65 66 74    **   flag_left
3350: 6a 75 73 74 69 66 79 20 20 20 20 20 20 20 20 20  justify         
3360: 20 20 20 54 52 55 45 20 69 66 20 61 20 27 2d 27     TRUE if a '-'
3370: 20 69 73 20 70 72 65 73 65 6e 74 20 6f 72 20 69   is present or i
3380: 66 20 74 68 65 0a 20 20 20 20 2a 2a 20 20 20 20  f the.    **    
3390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
33a0: 20 20 20 20 20 20 20 20 20 20 20 66 69 65 6c 64             field
33b0: 20 77 69 64 74 68 20 77 61 73 20 6e 65 67 61 74   width was negat
33c0: 69 76 65 2e 0a 20 20 20 20 2a 2a 20 20 20 66 6c  ive..    **   fl
33d0: 61 67 5f 7a 65 72 6f 70 61 64 20 20 20 20 20 20  ag_zeropad      
33e0: 20 20 20 20 20 20 20 20 20 20 54 52 55 45 20 69            TRUE i
33f0: 66 20 74 68 65 20 77 69 64 74 68 20 62 65 67 61  f the width bega
3400: 6e 20 77 69 74 68 20 30 2e 0a 20 20 20 20 2a 2a  n with 0..    **
3410: 20 20 20 66 6c 61 67 5f 6c 6f 6e 67 20 20 20 20     flag_long    
3420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54                 T
3430: 52 55 45 20 69 66 20 74 68 65 20 6c 65 74 74 65  RUE if the lette
3440: 72 20 27 6c 27 20 28 65 6c 6c 29 20 70 72 65 66  r 'l' (ell) pref
3450: 69 78 65 64 0a 20 20 20 20 2a 2a 20 20 20 20 20  ixed.    **     
3460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3470: 20 20 20 20 20 20 20 20 20 20 74 68 65 20 63 6f            the co
3480: 6e 76 65 72 73 69 6f 6e 20 63 68 61 72 61 63 74  nversion charact
3490: 65 72 2e 0a 20 20 20 20 2a 2a 20 20 20 66 6c 61  er..    **   fla
34a0: 67 5f 6c 6f 6e 67 6c 6f 6e 67 20 20 20 20 20 20  g_longlong      
34b0: 20 20 20 20 20 20 20 20 20 54 52 55 45 20 69 66           TRUE if
34c0: 20 74 68 65 20 6c 65 74 74 65 72 20 27 6c 6c 27   the letter 'll'
34d0: 20 28 65 6c 6c 20 65 6c 6c 29 20 70 72 65 66 69   (ell ell) prefi
34e0: 78 65 64 0a 20 20 20 20 2a 2a 20 20 20 20 20 20  xed.    **      
34f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3500: 20 20 20 20 20 20 20 20 20 74 68 65 20 63 6f 6e           the con
3510: 76 65 72 73 69 6f 6e 20 63 68 61 72 61 63 74 65  version characte
3520: 72 2e 0a 20 20 20 20 2a 2a 20 20 20 66 6c 61 67  r..    **   flag
3530: 5f 62 6c 61 6e 6b 73 69 67 6e 20 20 20 20 20 20  _blanksign      
3540: 20 20 20 20 20 20 20 20 54 52 55 45 20 69 66 20          TRUE if 
3550: 61 20 27 20 27 20 69 73 20 70 72 65 73 65 6e 74  a ' ' is present
3560: 2e 0a 20 20 20 20 2a 2a 20 20 20 77 69 64 74 68  ..    **   width
3570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3580: 20 20 20 20 20 20 20 54 68 65 20 73 70 65 63 69         The speci
3590: 66 69 65 64 20 66 69 65 6c 64 20 77 69 64 74 68  fied field width
35a0: 2e 20 20 54 68 69 73 20 69 73 0a 20 20 20 20 2a  .  This is.    *
35b0: 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  *               
35c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
35d0: 61 6c 77 61 79 73 20 6e 6f 6e 2d 6e 65 67 61 74  always non-negat
35e0: 69 76 65 2e 20 20 5a 65 72 6f 20 69 73 20 74 68  ive.  Zero is th
35f0: 65 20 64 65 66 61 75 6c 74 2e 0a 20 20 20 20 2a  e default..    *
3600: 2a 20 20 20 70 72 65 63 69 73 69 6f 6e 20 20 20  *   precision   
3610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3620: 54 68 65 20 73 70 65 63 69 66 69 65 64 20 70 72  The specified pr
3630: 65 63 69 73 69 6f 6e 2e 20 20 54 68 65 20 64 65  ecision.  The de
3640: 66 61 75 6c 74 0a 20 20 20 20 2a 2a 20 20 20 20  fault.    **    
3650: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3660: 20 20 20 20 20 20 20 20 20 20 20 69 73 20 2d 31             is -1
3670: 2e 0a 20 20 20 20 2a 2a 20 20 20 78 74 79 70 65  ..    **   xtype
3680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3690: 20 20 20 20 20 20 20 54 68 65 20 63 6c 61 73 73         The class
36a0: 20 6f 66 20 74 68 65 20 63 6f 6e 76 65 72 73 69   of the conversi
36b0: 6f 6e 2e 0a 20 20 20 20 2a 2a 20 20 20 69 6e 66  on..    **   inf
36c0: 6f 70 20 20 20 20 20 20 20 20 20 20 20 20 20 20  op              
36d0: 20 20 20 20 20 20 20 20 20 50 6f 69 6e 74 65 72           Pointer
36e0: 20 74 6f 20 74 68 65 20 61 70 70 72 6f 70 72 69   to the appropri
36f0: 61 74 65 20 69 6e 66 6f 20 73 74 72 75 63 74 2e  ate info struct.
3700: 0a 20 20 20 20 2a 2f 0a 20 20 20 20 73 77 69 74  .    */.    swit
3710: 63 68 28 20 78 74 79 70 65 20 29 7b 0a 20 20 20  ch( xtype ){.   
3720: 20 20 20 63 61 73 65 20 65 74 50 4f 49 4e 54 45     case etPOINTE
3730: 52 3a 0a 20 20 20 20 20 20 20 20 66 6c 61 67 5f  R:.        flag_
3740: 6c 6f 6e 67 6c 6f 6e 67 20 3d 20 73 69 7a 65 6f  longlong = sizeo
3750: 66 28 63 68 61 72 2a 29 3d 3d 73 69 7a 65 6f 66  f(char*)==sizeof
3760: 28 69 36 34 29 3b 0a 20 20 20 20 20 20 20 20 66  (i64);.        f
3770: 6c 61 67 5f 6c 6f 6e 67 20 3d 20 73 69 7a 65 6f  lag_long = sizeo
3780: 66 28 63 68 61 72 2a 29 3d 3d 73 69 7a 65 6f 66  f(char*)==sizeof
3790: 28 6c 6f 6e 67 20 69 6e 74 29 3b 0a 20 20 20 20  (long int);.    
37a0: 20 20 20 20 2f 2a 20 46 61 6c 6c 20 74 68 72 6f      /* Fall thro
37b0: 75 67 68 20 69 6e 74 6f 20 74 68 65 20 6e 65 78  ugh into the nex
37c0: 74 20 63 61 73 65 20 2a 2f 0a 20 20 20 20 20 20  t case */.      
37d0: 63 61 73 65 20 65 74 52 41 44 49 58 3a 0a 20 20  case etRADIX:.  
37e0: 20 20 20 20 20 20 69 66 28 20 69 6e 66 6f 70 2d        if( infop-
37f0: 3e 66 6c 61 67 73 20 26 20 46 4c 41 47 5f 53 49  >flags & FLAG_SI
3800: 47 4e 45 44 20 29 7b 0a 20 20 20 20 20 20 20 20  GNED ){.        
3810: 20 20 69 36 34 20 76 3b 0a 20 20 20 20 20 20 20    i64 v;.       
3820: 20 20 20 69 66 28 20 66 6c 61 67 5f 6c 6f 6e 67     if( flag_long
3830: 6c 6f 6e 67 20 29 20 20 20 76 20 3d 20 76 61 5f  long )   v = va_
3840: 61 72 67 28 61 70 2c 69 36 34 29 3b 0a 20 20 20  arg(ap,i64);.   
3850: 20 20 20 20 20 20 20 65 6c 73 65 20 69 66 28 20         else if( 
3860: 66 6c 61 67 5f 6c 6f 6e 67 20 29 20 20 76 20 3d  flag_long )  v =
3870: 20 76 61 5f 61 72 67 28 61 70 2c 6c 6f 6e 67 20   va_arg(ap,long 
3880: 69 6e 74 29 3b 0a 20 20 20 20 20 20 20 20 20 20  int);.          
3890: 65 6c 73 65 20 20 20 20 20 20 20 20 20 20 20 20  else            
38a0: 20 20 20 20 20 20 76 20 3d 20 76 61 5f 61 72 67        v = va_arg
38b0: 28 61 70 2c 69 6e 74 29 3b 0a 20 20 20 20 20 20  (ap,int);.      
38c0: 20 20 20 20 69 66 28 20 76 3c 30 20 29 7b 0a 20      if( v<0 ){. 
38d0: 20 20 20 20 20 20 20 20 20 20 20 6c 6f 6e 67 76             longv
38e0: 61 6c 75 65 20 3d 20 2d 76 3b 0a 20 20 20 20 20  alue = -v;.     
38f0: 20 20 20 20 20 20 20 70 72 65 66 69 78 20 3d 20         prefix = 
3900: 27 2d 27 3b 0a 20 20 20 20 20 20 20 20 20 20 7d  '-';.          }
3910: 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 20 20  else{.          
3920: 20 20 6c 6f 6e 67 76 61 6c 75 65 20 3d 20 76 3b    longvalue = v;
3930: 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 28  .            if(
3940: 20 66 6c 61 67 5f 70 6c 75 73 73 69 67 6e 20 29   flag_plussign )
3950: 20 20 20 20 20 20 20 20 70 72 65 66 69 78 20 3d          prefix =
3960: 20 27 2b 27 3b 0a 20 20 20 20 20 20 20 20 20 20   '+';.          
3970: 20 20 65 6c 73 65 20 69 66 28 20 66 6c 61 67 5f    else if( flag_
3980: 62 6c 61 6e 6b 73 69 67 6e 20 29 20 20 70 72 65  blanksign )  pre
3990: 66 69 78 20 3d 20 27 20 27 3b 0a 20 20 20 20 20  fix = ' ';.     
39a0: 20 20 20 20 20 20 20 65 6c 73 65 20 20 20 20 20         else     
39b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
39c0: 20 20 70 72 65 66 69 78 20 3d 20 30 3b 0a 20 20    prefix = 0;.  
39d0: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
39e0: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20    }else{.       
39f0: 20 20 20 69 66 28 20 66 6c 61 67 5f 6c 6f 6e 67     if( flag_long
3a00: 6c 6f 6e 67 20 29 20 20 20 6c 6f 6e 67 76 61 6c  long )   longval
3a10: 75 65 20 3d 20 76 61 5f 61 72 67 28 61 70 2c 75  ue = va_arg(ap,u
3a20: 36 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 65  64);.          e
3a30: 6c 73 65 20 69 66 28 20 66 6c 61 67 5f 6c 6f 6e  lse if( flag_lon
3a40: 67 20 29 20 20 6c 6f 6e 67 76 61 6c 75 65 20 3d  g )  longvalue =
3a50: 20 76 61 5f 61 72 67 28 61 70 2c 75 6e 73 69 67   va_arg(ap,unsig
3a60: 6e 65 64 20 6c 6f 6e 67 20 69 6e 74 29 3b 0a 20  ned long int);. 
3a70: 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 20 20           else   
3a80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c                 l
3a90: 6f 6e 67 76 61 6c 75 65 20 3d 20 76 61 5f 61 72  ongvalue = va_ar
3aa0: 67 28 61 70 2c 75 6e 73 69 67 6e 65 64 20 69 6e  g(ap,unsigned in
3ab0: 74 29 3b 0a 20 20 20 20 20 20 20 20 20 20 70 72  t);.          pr
3ac0: 65 66 69 78 20 3d 20 30 3b 0a 20 20 20 20 20 20  efix = 0;.      
3ad0: 20 20 7d 0a 20 20 20 20 20 20 20 20 69 66 28 20    }.        if( 
3ae0: 6c 6f 6e 67 76 61 6c 75 65 3d 3d 30 20 29 20 66  longvalue==0 ) f
3af0: 6c 61 67 5f 61 6c 74 65 72 6e 61 74 65 66 6f 72  lag_alternatefor
3b00: 6d 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 69  m = 0;.        i
3b10: 66 28 20 66 6c 61 67 5f 7a 65 72 6f 70 61 64 20  f( flag_zeropad 
3b20: 26 26 20 70 72 65 63 69 73 69 6f 6e 3c 77 69 64  && precision<wid
3b30: 74 68 2d 28 70 72 65 66 69 78 21 3d 30 29 20 29  th-(prefix!=0) )
3b40: 7b 0a 20 20 20 20 20 20 20 20 20 20 70 72 65 63  {.          prec
3b50: 69 73 69 6f 6e 20 3d 20 77 69 64 74 68 2d 28 70  ision = width-(p
3b60: 72 65 66 69 78 21 3d 30 29 3b 0a 20 20 20 20 20  refix!=0);.     
3b70: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 62 75 66     }.        buf
3b80: 70 74 20 3d 20 26 62 75 66 5b 65 74 42 55 46 53  pt = &buf[etBUFS
3b90: 49 5a 45 2d 31 5d 3b 0a 20 20 20 20 20 20 20 20  IZE-1];.        
3ba0: 7b 0a 20 20 20 20 20 20 20 20 20 20 72 65 67 69  {.          regi
3bb0: 73 74 65 72 20 63 6f 6e 73 74 20 63 68 61 72 20  ster const char 
3bc0: 2a 63 73 65 74 3b 20 20 20 20 20 20 2f 2a 20 55  *cset;      /* U
3bd0: 73 65 20 72 65 67 69 73 74 65 72 73 20 66 6f 72  se registers for
3be0: 20 73 70 65 65 64 20 2a 2f 0a 20 20 20 20 20 20   speed */.      
3bf0: 20 20 20 20 72 65 67 69 73 74 65 72 20 69 6e 74      register int
3c00: 20 62 61 73 65 3b 0a 20 20 20 20 20 20 20 20 20   base;.         
3c10: 20 63 73 65 74 20 3d 20 26 61 44 69 67 69 74 73   cset = &aDigits
3c20: 5b 69 6e 66 6f 70 2d 3e 63 68 61 72 73 65 74 5d  [infop->charset]
3c30: 3b 0a 20 20 20 20 20 20 20 20 20 20 62 61 73 65  ;.          base
3c40: 20 3d 20 69 6e 66 6f 70 2d 3e 62 61 73 65 3b 0a   = infop->base;.
3c50: 20 20 20 20 20 20 20 20 20 20 64 6f 7b 20 20 20            do{   
3c60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3c70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3c80: 20 20 20 20 20 20 20 20 2f 2a 20 43 6f 6e 76 65          /* Conve
3c90: 72 74 20 74 6f 20 61 73 63 69 69 20 2a 2f 0a 20  rt to ascii */. 
3ca0: 20 20 20 20 20 20 20 20 20 20 20 2a 28 2d 2d 62             *(--b
3cb0: 75 66 70 74 29 20 3d 20 63 73 65 74 5b 6c 6f 6e  ufpt) = cset[lon
3cc0: 67 76 61 6c 75 65 25 62 61 73 65 5d 3b 0a 20 20  gvalue%base];.  
3cd0: 20 20 20 20 20 20 20 20 20 20 6c 6f 6e 67 76 61            longva
3ce0: 6c 75 65 20 3d 20 6c 6f 6e 67 76 61 6c 75 65 2f  lue = longvalue/
3cf0: 62 61 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20  base;.          
3d00: 7d 77 68 69 6c 65 28 20 6c 6f 6e 67 76 61 6c 75  }while( longvalu
3d10: 65 3e 30 20 29 3b 0a 20 20 20 20 20 20 20 20 7d  e>0 );.        }
3d20: 0a 20 20 20 20 20 20 20 20 6c 65 6e 67 74 68 20  .        length 
3d30: 3d 20 26 62 75 66 5b 65 74 42 55 46 53 49 5a 45  = &buf[etBUFSIZE
3d40: 2d 31 5d 2d 62 75 66 70 74 3b 0a 20 20 20 20 20  -1]-bufpt;.     
3d50: 20 20 20 66 6f 72 28 69 64 78 3d 70 72 65 63 69     for(idx=preci
3d60: 73 69 6f 6e 2d 6c 65 6e 67 74 68 3b 20 69 64 78  sion-length; idx
3d70: 3e 30 3b 20 69 64 78 2d 2d 29 7b 0a 20 20 20 20  >0; idx--){.    
3d80: 20 20 20 20 20 20 2a 28 2d 2d 62 75 66 70 74 29        *(--bufpt)
3d90: 20 3d 20 27 30 27 3b 20 20 20 20 20 20 20 20 20   = '0';         
3da0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3db0: 20 20 20 20 2f 2a 20 5a 65 72 6f 20 70 61 64 20      /* Zero pad 
3dc0: 2a 2f 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20  */.        }.   
3dd0: 20 20 20 20 20 69 66 28 20 70 72 65 66 69 78 20       if( prefix 
3de0: 29 20 2a 28 2d 2d 62 75 66 70 74 29 20 3d 20 70  ) *(--bufpt) = p
3df0: 72 65 66 69 78 3b 20 20 20 20 20 20 20 20 20 20  refix;          
3e00: 20 20 20 20 20 2f 2a 20 41 64 64 20 73 69 67 6e       /* Add sign
3e10: 20 2a 2f 0a 20 20 20 20 20 20 20 20 69 66 28 20   */.        if( 
3e20: 66 6c 61 67 5f 61 6c 74 65 72 6e 61 74 65 66 6f  flag_alternatefo
3e30: 72 6d 20 26 26 20 69 6e 66 6f 70 2d 3e 70 72 65  rm && infop->pre
3e40: 66 69 78 20 29 7b 20 20 20 20 20 20 2f 2a 20 41  fix ){      /* A
3e50: 64 64 20 22 30 22 20 6f 72 20 22 30 78 22 20 2a  dd "0" or "0x" *
3e60: 2f 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6e 73  /.          cons
3e70: 74 20 63 68 61 72 20 2a 70 72 65 3b 0a 20 20 20  t char *pre;.   
3e80: 20 20 20 20 20 20 20 63 68 61 72 20 78 3b 0a 20         char x;. 
3e90: 20 20 20 20 20 20 20 20 20 70 72 65 20 3d 20 26           pre = &
3ea0: 61 50 72 65 66 69 78 5b 69 6e 66 6f 70 2d 3e 70  aPrefix[infop->p
3eb0: 72 65 66 69 78 5d 3b 0a 20 20 20 20 20 20 20 20  refix];.        
3ec0: 20 20 69 66 28 20 2a 62 75 66 70 74 21 3d 70 72    if( *bufpt!=pr
3ed0: 65 5b 30 5d 20 29 7b 0a 20 20 20 20 20 20 20 20  e[0] ){.        
3ee0: 20 20 20 20 66 6f 72 28 3b 20 28 78 3d 28 2a 70      for(; (x=(*p
3ef0: 72 65 29 29 21 3d 30 3b 20 70 72 65 2b 2b 29 20  re))!=0; pre++) 
3f00: 2a 28 2d 2d 62 75 66 70 74 29 20 3d 20 78 3b 0a  *(--bufpt) = x;.
3f10: 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20            }.    
3f20: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 6c 65      }.        le
3f30: 6e 67 74 68 20 3d 20 26 62 75 66 5b 65 74 42 55  ngth = &buf[etBU
3f40: 46 53 49 5a 45 2d 31 5d 2d 62 75 66 70 74 3b 0a  FSIZE-1]-bufpt;.
3f50: 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20          break;. 
3f60: 20 20 20 20 20 63 61 73 65 20 65 74 46 4c 4f 41       case etFLOA
3f70: 54 3a 0a 20 20 20 20 20 20 63 61 73 65 20 65 74  T:.      case et
3f80: 45 58 50 3a 0a 20 20 20 20 20 20 63 61 73 65 20  EXP:.      case 
3f90: 65 74 47 45 4e 45 52 49 43 3a 0a 20 20 20 20 20  etGENERIC:.     
3fa0: 20 20 20 72 65 61 6c 76 61 6c 75 65 20 3d 20 76     realvalue = v
3fb0: 61 5f 61 72 67 28 61 70 2c 64 6f 75 62 6c 65 29  a_arg(ap,double)
3fc0: 3b 0a 23 69 66 6e 64 65 66 20 65 74 4e 4f 46 4c  ;.#ifndef etNOFL
3fd0: 4f 41 54 49 4e 47 50 4f 49 4e 54 0a 20 20 20 20  OATINGPOINT.    
3fe0: 20 20 20 20 69 66 28 20 70 72 65 63 69 73 69 6f      if( precisio
3ff0: 6e 3c 30 20 29 20 70 72 65 63 69 73 69 6f 6e 20  n<0 ) precision 
4000: 3d 20 36 3b 20 20 20 20 20 20 20 20 20 2f 2a 20  = 6;         /* 
4010: 53 65 74 20 64 65 66 61 75 6c 74 20 70 72 65 63  Set default prec
4020: 69 73 69 6f 6e 20 2a 2f 0a 20 20 20 20 20 20 20  ision */.       
4030: 20 69 66 28 20 70 72 65 63 69 73 69 6f 6e 3e 65   if( precision>e
4040: 74 42 55 46 53 49 5a 45 2f 32 2d 31 30 20 29 20  tBUFSIZE/2-10 ) 
4050: 70 72 65 63 69 73 69 6f 6e 20 3d 20 65 74 42 55  precision = etBU
4060: 46 53 49 5a 45 2f 32 2d 31 30 3b 0a 20 20 20 20  FSIZE/2-10;.    
4070: 20 20 20 20 69 66 28 20 72 65 61 6c 76 61 6c 75      if( realvalu
4080: 65 3c 30 2e 30 20 29 7b 0a 20 20 20 20 20 20 20  e<0.0 ){.       
4090: 20 20 20 72 65 61 6c 76 61 6c 75 65 20 3d 20 2d     realvalue = -
40a0: 72 65 61 6c 76 61 6c 75 65 3b 0a 20 20 20 20 20  realvalue;.     
40b0: 20 20 20 20 20 70 72 65 66 69 78 20 3d 20 27 2d       prefix = '-
40c0: 27 3b 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 65  ';.        }else
40d0: 7b 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20  {.          if( 
40e0: 66 6c 61 67 5f 70 6c 75 73 73 69 67 6e 20 29 20  flag_plussign ) 
40f0: 20 20 20 20 20 20 20 20 20 70 72 65 66 69 78 20           prefix 
4100: 3d 20 27 2b 27 3b 0a 20 20 20 20 20 20 20 20 20  = '+';.         
4110: 20 65 6c 73 65 20 69 66 28 20 66 6c 61 67 5f 62   else if( flag_b
4120: 6c 61 6e 6b 73 69 67 6e 20 29 20 20 20 20 70 72  lanksign )    pr
4130: 65 66 69 78 20 3d 20 27 20 27 3b 0a 20 20 20 20  efix = ' ';.    
4140: 20 20 20 20 20 20 65 6c 73 65 20 20 20 20 20 20        else      
4150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4160: 20 20 20 70 72 65 66 69 78 20 3d 20 30 3b 0a 20     prefix = 0;. 
4170: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20         }.       
4180: 20 69 66 28 20 78 74 79 70 65 3d 3d 65 74 47 45   if( xtype==etGE
4190: 4e 45 52 49 43 20 26 26 20 70 72 65 63 69 73 69  NERIC && precisi
41a0: 6f 6e 3e 30 20 29 20 70 72 65 63 69 73 69 6f 6e  on>0 ) precision
41b0: 2d 2d 3b 0a 23 69 66 20 30 0a 20 20 20 20 20 20  --;.#if 0.      
41c0: 20 20 2f 2a 20 52 6f 75 6e 64 69 6e 67 20 77 6f    /* Rounding wo
41d0: 72 6b 73 20 6c 69 6b 65 20 42 53 44 20 77 68 65  rks like BSD whe
41e0: 6e 20 74 68 65 20 63 6f 6e 73 74 61 6e 74 20 30  n the constant 0
41f0: 2e 34 39 39 39 20 69 73 20 75 73 65 64 2e 20 20  .4999 is used.  
4200: 57 69 65 72 64 21 20 2a 2f 0a 20 20 20 20 20 20  Wierd! */.      
4210: 20 20 66 6f 72 28 69 64 78 3d 70 72 65 63 69 73    for(idx=precis
4220: 69 6f 6e 2c 20 72 6f 75 6e 64 65 72 3d 30 2e 34  ion, rounder=0.4
4230: 39 39 39 3b 20 69 64 78 3e 30 3b 20 69 64 78 2d  999; idx>0; idx-
4240: 2d 2c 20 72 6f 75 6e 64 65 72 2a 3d 30 2e 31 29  -, rounder*=0.1)
4250: 3b 0a 23 65 6c 73 65 0a 20 20 20 20 20 20 20 20  ;.#else.        
4260: 2f 2a 20 49 74 20 6d 61 6b 65 73 20 6d 6f 72 65  /* It makes more
4270: 20 73 65 6e 73 65 20 74 6f 20 75 73 65 20 30 2e   sense to use 0.
4280: 35 20 2a 2f 0a 20 20 20 20 20 20 20 20 66 6f 72  5 */.        for
4290: 28 69 64 78 3d 70 72 65 63 69 73 69 6f 6e 2c 20  (idx=precision, 
42a0: 72 6f 75 6e 64 65 72 3d 30 2e 35 3b 20 69 64 78  rounder=0.5; idx
42b0: 3e 30 3b 20 69 64 78 2d 2d 2c 20 72 6f 75 6e 64  >0; idx--, round
42c0: 65 72 2a 3d 30 2e 31 29 3b 0a 23 65 6e 64 69 66  er*=0.1);.#endif
42d0: 0a 20 20 20 20 20 20 20 20 69 66 28 20 78 74 79  .        if( xty
42e0: 70 65 3d 3d 65 74 46 4c 4f 41 54 20 29 20 72 65  pe==etFLOAT ) re
42f0: 61 6c 76 61 6c 75 65 20 2b 3d 20 72 6f 75 6e 64  alvalue += round
4300: 65 72 3b 0a 20 20 20 20 20 20 20 20 2f 2a 20 4e  er;.        /* N
4310: 6f 72 6d 61 6c 69 7a 65 20 72 65 61 6c 76 61 6c  ormalize realval
4320: 75 65 20 74 6f 20 77 69 74 68 69 6e 20 31 30 2e  ue to within 10.
4330: 30 20 3e 20 72 65 61 6c 76 61 6c 75 65 20 3e 3d  0 > realvalue >=
4340: 20 31 2e 30 20 2a 2f 0a 20 20 20 20 20 20 20 20   1.0 */.        
4350: 65 78 70 20 3d 20 30 3b 0a 20 20 20 20 20 20 20  exp = 0;.       
4360: 20 69 66 28 20 72 65 61 6c 76 61 6c 75 65 3e 30   if( realvalue>0
4370: 2e 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20  .0 ){.          
4380: 77 68 69 6c 65 28 20 72 65 61 6c 76 61 6c 75 65  while( realvalue
4390: 3e 3d 31 65 33 32 20 26 26 20 65 78 70 3c 3d 33  >=1e32 && exp<=3
43a0: 35 30 20 29 7b 20 72 65 61 6c 76 61 6c 75 65 20  50 ){ realvalue 
43b0: 2a 3d 20 31 65 2d 33 32 3b 20 65 78 70 2b 3d 33  *= 1e-32; exp+=3
43c0: 32 3b 20 7d 0a 20 20 20 20 20 20 20 20 20 20 77  2; }.          w
43d0: 68 69 6c 65 28 20 72 65 61 6c 76 61 6c 75 65 3e  hile( realvalue>
43e0: 3d 31 65 38 20 26 26 20 65 78 70 3c 3d 33 35 30  =1e8 && exp<=350
43f0: 20 29 7b 20 72 65 61 6c 76 61 6c 75 65 20 2a 3d   ){ realvalue *=
4400: 20 31 65 2d 38 3b 20 65 78 70 2b 3d 38 3b 20 7d   1e-8; exp+=8; }
4410: 0a 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65  .          while
4420: 28 20 72 65 61 6c 76 61 6c 75 65 3e 3d 31 30 2e  ( realvalue>=10.
4430: 30 20 26 26 20 65 78 70 3c 3d 33 35 30 20 29 7b  0 && exp<=350 ){
4440: 20 72 65 61 6c 76 61 6c 75 65 20 2a 3d 20 30 2e   realvalue *= 0.
4450: 31 3b 20 65 78 70 2b 2b 3b 20 7d 0a 20 20 20 20  1; exp++; }.    
4460: 20 20 20 20 20 20 77 68 69 6c 65 28 20 72 65 61        while( rea
4470: 6c 76 61 6c 75 65 3c 31 65 2d 38 20 26 26 20 65  lvalue<1e-8 && e
4480: 78 70 3e 3d 2d 33 35 30 20 29 7b 20 72 65 61 6c  xp>=-350 ){ real
4490: 76 61 6c 75 65 20 2a 3d 20 31 65 38 3b 20 65 78  value *= 1e8; ex
44a0: 70 2d 3d 38 3b 20 7d 0a 20 20 20 20 20 20 20 20  p-=8; }.        
44b0: 20 20 77 68 69 6c 65 28 20 72 65 61 6c 76 61 6c    while( realval
44c0: 75 65 3c 31 2e 30 20 26 26 20 65 78 70 3e 3d 2d  ue<1.0 && exp>=-
44d0: 33 35 30 20 29 7b 20 72 65 61 6c 76 61 6c 75 65  350 ){ realvalue
44e0: 20 2a 3d 20 31 30 2e 30 3b 20 65 78 70 2d 2d 3b   *= 10.0; exp--;
44f0: 20 7d 0a 20 20 20 20 20 20 20 20 20 20 69 66 28   }.          if(
4500: 20 65 78 70 3e 33 35 30 20 7c 7c 20 65 78 70 3c   exp>350 || exp<
4510: 2d 33 35 30 20 29 7b 0a 20 20 20 20 20 20 20 20  -350 ){.        
4520: 20 20 20 20 62 75 66 70 74 20 3d 20 22 4e 61 4e      bufpt = "NaN
4530: 22 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c  ";.            l
4540: 65 6e 67 74 68 20 3d 20 33 3b 0a 20 20 20 20 20  ength = 3;.     
4550: 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20         break;.  
4560: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
4570: 20 20 7d 0a 20 20 20 20 20 20 20 20 62 75 66 70    }.        bufp
4580: 74 20 3d 20 62 75 66 3b 0a 20 20 20 20 20 20 20  t = buf;.       
4590: 20 2f 2a 0a 20 20 20 20 20 20 20 20 2a 2a 20 49   /*.        ** I
45a0: 66 20 74 68 65 20 66 69 65 6c 64 20 74 79 70 65  f the field type
45b0: 20 69 73 20 65 74 47 45 4e 45 52 49 43 2c 20 74   is etGENERIC, t
45c0: 68 65 6e 20 63 6f 6e 76 65 72 74 20 74 6f 20 65  hen convert to e
45d0: 69 74 68 65 72 20 65 74 45 58 50 0a 20 20 20 20  ither etEXP.    
45e0: 20 20 20 20 2a 2a 20 6f 72 20 65 74 46 4c 4f 41      ** or etFLOA
45f0: 54 2c 20 61 73 20 61 70 70 72 6f 70 72 69 61 74  T, as appropriat
4600: 65 2e 0a 20 20 20 20 20 20 20 20 2a 2f 0a 20 20  e..        */.  
4610: 20 20 20 20 20 20 66 6c 61 67 5f 65 78 70 20 3d        flag_exp =
4620: 20 78 74 79 70 65 3d 3d 65 74 45 58 50 3b 0a 20   xtype==etEXP;. 
4630: 20 20 20 20 20 20 20 69 66 28 20 78 74 79 70 65         if( xtype
4640: 21 3d 65 74 46 4c 4f 41 54 20 29 7b 0a 20 20 20  !=etFLOAT ){.   
4650: 20 20 20 20 20 20 20 72 65 61 6c 76 61 6c 75 65         realvalue
4660: 20 2b 3d 20 72 6f 75 6e 64 65 72 3b 0a 20 20 20   += rounder;.   
4670: 20 20 20 20 20 20 20 69 66 28 20 72 65 61 6c 76         if( realv
4680: 61 6c 75 65 3e 3d 31 30 2e 30 20 29 7b 20 72 65  alue>=10.0 ){ re
4690: 61 6c 76 61 6c 75 65 20 2a 3d 20 30 2e 31 3b 20  alvalue *= 0.1; 
46a0: 65 78 70 2b 2b 3b 20 7d 0a 20 20 20 20 20 20 20  exp++; }.       
46b0: 20 7d 0a 20 20 20 20 20 20 20 20 69 66 28 20 78   }.        if( x
46c0: 74 79 70 65 3d 3d 65 74 47 45 4e 45 52 49 43 20  type==etGENERIC 
46d0: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 66 6c 61  ){.          fla
46e0: 67 5f 72 74 7a 20 3d 20 21 66 6c 61 67 5f 61 6c  g_rtz = !flag_al
46f0: 74 65 72 6e 61 74 65 66 6f 72 6d 3b 0a 20 20 20  ternateform;.   
4700: 20 20 20 20 20 20 20 69 66 28 20 65 78 70 3c 2d         if( exp<-
4710: 34 20 7c 7c 20 65 78 70 3e 70 72 65 63 69 73 69  4 || exp>precisi
4720: 6f 6e 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20  on ){.          
4730: 20 20 78 74 79 70 65 20 3d 20 65 74 45 58 50 3b    xtype = etEXP;
4740: 0a 20 20 20 20 20 20 20 20 20 20 7d 65 6c 73 65  .          }else
4750: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 72  {.            pr
4760: 65 63 69 73 69 6f 6e 20 3d 20 70 72 65 63 69 73  ecision = precis
4770: 69 6f 6e 20 2d 20 65 78 70 3b 0a 20 20 20 20 20  ion - exp;.     
4780: 20 20 20 20 20 20 20 78 74 79 70 65 20 3d 20 65         xtype = e
4790: 74 46 4c 4f 41 54 3b 0a 20 20 20 20 20 20 20 20  tFLOAT;.        
47a0: 20 20 7d 0a 20 20 20 20 20 20 20 20 7d 65 6c 73    }.        }els
47b0: 65 7b 0a 20 20 20 20 20 20 20 20 20 20 66 6c 61  e{.          fla
47c0: 67 5f 72 74 7a 20 3d 20 30 3b 0a 20 20 20 20 20  g_rtz = 0;.     
47d0: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 69 66 28     }.        if(
47e0: 20 78 74 79 70 65 3d 3d 65 74 45 58 50 20 29 7b   xtype==etEXP ){
47f0: 0a 20 20 20 20 20 20 20 20 20 20 65 32 20 3d 20  .          e2 = 
4800: 30 3b 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 65  0;.        }else
4810: 7b 0a 20 20 20 20 20 20 20 20 20 20 65 32 20 3d  {.          e2 =
4820: 20 65 78 70 3b 0a 20 20 20 20 20 20 20 20 7d 0a   exp;.        }.
4830: 20 20 20 20 20 20 20 20 6e 73 64 20 3d 20 30 3b          nsd = 0;
4840: 0a 20 20 20 20 20 20 20 20 66 6c 61 67 5f 64 70  .        flag_dp
4850: 20 3d 20 28 70 72 65 63 69 73 69 6f 6e 3e 30 29   = (precision>0)
4860: 20 7c 20 66 6c 61 67 5f 61 6c 74 65 72 6e 61 74   | flag_alternat
4870: 65 66 6f 72 6d 20 7c 20 66 6c 61 67 5f 61 6c 74  eform | flag_alt
4880: 66 6f 72 6d 32 3b 0a 20 20 20 20 20 20 20 20 2f  form2;.        /
4890: 2a 20 54 68 65 20 73 69 67 6e 20 69 6e 20 66 72  * The sign in fr
48a0: 6f 6e 74 20 6f 66 20 74 68 65 20 6e 75 6d 62 65  ont of the numbe
48b0: 72 20 2a 2f 0a 20 20 20 20 20 20 20 20 69 66 28  r */.        if(
48c0: 20 70 72 65 66 69 78 20 29 7b 0a 20 20 20 20 20   prefix ){.     
48d0: 20 20 20 20 20 2a 28 62 75 66 70 74 2b 2b 29 20       *(bufpt++) 
48e0: 3d 20 70 72 65 66 69 78 3b 0a 20 20 20 20 20 20  = prefix;.      
48f0: 20 20 7d 0a 20 20 20 20 20 20 20 20 2f 2a 20 44    }.        /* D
4900: 69 67 69 74 73 20 70 72 69 6f 72 20 74 6f 20 74  igits prior to t
4910: 68 65 20 64 65 63 69 6d 61 6c 20 70 6f 69 6e 74  he decimal point
4920: 20 2a 2f 0a 20 20 20 20 20 20 20 20 69 66 28 20   */.        if( 
4930: 65 32 3c 30 20 29 7b 0a 20 20 20 20 20 20 20 20  e2<0 ){.        
4940: 20 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 27    *(bufpt++) = '
4950: 30 27 3b 0a 20 20 20 20 20 20 20 20 7d 65 6c 73  0';.        }els
4960: 65 7b 0a 20 20 20 20 20 20 20 20 20 20 66 6f 72  e{.          for
4970: 28 3b 20 65 32 3e 3d 30 3b 20 65 32 2d 2d 29 7b  (; e2>=0; e2--){
4980: 0a 20 20 20 20 20 20 20 20 20 20 20 20 2a 28 62  .            *(b
4990: 75 66 70 74 2b 2b 29 20 3d 20 65 74 5f 67 65 74  ufpt++) = et_get
49a0: 64 69 67 69 74 28 26 72 65 61 6c 76 61 6c 75 65  digit(&realvalue
49b0: 2c 26 6e 73 64 29 3b 0a 20 20 20 20 20 20 20 20  ,&nsd);.        
49c0: 20 20 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20 20    }.        }.  
49d0: 20 20 20 20 20 20 2f 2a 20 54 68 65 20 64 65 63        /* The dec
49e0: 69 6d 61 6c 20 70 6f 69 6e 74 20 2a 2f 0a 20 20  imal point */.  
49f0: 20 20 20 20 20 20 69 66 28 20 66 6c 61 67 5f 64        if( flag_d
4a00: 70 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 2a  p ){.          *
4a10: 28 62 75 66 70 74 2b 2b 29 20 3d 20 27 2e 27 3b  (bufpt++) = '.';
4a20: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20  .        }.     
4a30: 20 20 20 2f 2a 20 22 30 22 20 64 69 67 69 74 73     /* "0" digits
4a40: 20 61 66 74 65 72 20 74 68 65 20 64 65 63 69 6d   after the decim
4a50: 61 6c 20 70 6f 69 6e 74 20 62 75 74 20 62 65 66  al point but bef
4a60: 6f 72 65 20 74 68 65 20 66 69 72 73 74 0a 20 20  ore the first.  
4a70: 20 20 20 20 20 20 2a 2a 20 73 69 67 6e 69 66 69        ** signifi
4a80: 63 61 6e 74 20 64 69 67 69 74 20 6f 66 20 74 68  cant digit of th
4a90: 65 20 6e 75 6d 62 65 72 20 2a 2f 0a 20 20 20 20  e number */.    
4aa0: 20 20 20 20 66 6f 72 28 65 32 2b 2b 3b 20 65 32      for(e2++; e2
4ab0: 3c 30 20 26 26 20 70 72 65 63 69 73 69 6f 6e 3e  <0 && precision>
4ac0: 30 3b 20 70 72 65 63 69 73 69 6f 6e 2d 2d 2c 20  0; precision--, 
4ad0: 65 32 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20 20  e2++){.         
4ae0: 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 27 30   *(bufpt++) = '0
4af0: 27 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20  ';.        }.   
4b00: 20 20 20 20 20 2f 2a 20 53 69 67 6e 69 66 69 63       /* Signific
4b10: 61 6e 74 20 64 69 67 69 74 73 20 61 66 74 65 72  ant digits after
4b20: 20 74 68 65 20 64 65 63 69 6d 61 6c 20 70 6f 69   the decimal poi
4b30: 6e 74 20 2a 2f 0a 20 20 20 20 20 20 20 20 77 68  nt */.        wh
4b40: 69 6c 65 28 20 28 70 72 65 63 69 73 69 6f 6e 2d  ile( (precision-
4b50: 2d 29 3e 30 20 29 7b 0a 20 20 20 20 20 20 20 20  -)>0 ){.        
4b60: 20 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 65    *(bufpt++) = e
4b70: 74 5f 67 65 74 64 69 67 69 74 28 26 72 65 61 6c  t_getdigit(&real
4b80: 76 61 6c 75 65 2c 26 6e 73 64 29 3b 0a 20 20 20  value,&nsd);.   
4b90: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 2f       }.        /
4ba0: 2a 20 52 65 6d 6f 76 65 20 74 72 61 69 6c 69 6e  * Remove trailin
4bb0: 67 20 7a 65 72 6f 73 20 61 6e 64 20 74 68 65 20  g zeros and the 
4bc0: 22 2e 22 20 69 66 20 6e 6f 20 64 69 67 69 74 73  "." if no digits
4bd0: 20 66 6f 6c 6c 6f 77 20 74 68 65 20 22 2e 22 20   follow the "." 
4be0: 2a 2f 0a 20 20 20 20 20 20 20 20 69 66 28 20 66  */.        if( f
4bf0: 6c 61 67 5f 72 74 7a 20 26 26 20 66 6c 61 67 5f  lag_rtz && flag_
4c00: 64 70 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20  dp ){.          
4c10: 77 68 69 6c 65 28 20 62 75 66 70 74 5b 2d 31 5d  while( bufpt[-1]
4c20: 3d 3d 27 30 27 20 29 20 2a 28 2d 2d 62 75 66 70  =='0' ) *(--bufp
4c30: 74 29 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20  t) = 0;.        
4c40: 20 20 61 73 73 65 72 74 28 20 62 75 66 70 74 3e    assert( bufpt>
4c50: 62 75 66 20 29 3b 0a 20 20 20 20 20 20 20 20 20  buf );.         
4c60: 20 69 66 28 20 62 75 66 70 74 5b 2d 31 5d 3d 3d   if( bufpt[-1]==
4c70: 27 2e 27 20 29 7b 0a 20 20 20 20 20 20 20 20 20  '.' ){.         
4c80: 20 20 20 69 66 28 20 66 6c 61 67 5f 61 6c 74 66     if( flag_altf
4c90: 6f 72 6d 32 20 29 7b 0a 20 20 20 20 20 20 20 20  orm2 ){.        
4ca0: 20 20 20 20 20 20 2a 28 62 75 66 70 74 2b 2b 29        *(bufpt++)
4cb0: 20 3d 20 27 30 27 3b 0a 20 20 20 20 20 20 20 20   = '0';.        
4cc0: 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20      }else{.     
4cd0: 20 20 20 20 20 20 20 20 20 2a 28 2d 2d 62 75 66           *(--buf
4ce0: 70 74 29 20 3d 20 30 3b 0a 20 20 20 20 20 20 20  pt) = 0;.       
4cf0: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20       }.         
4d00: 20 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20   }.        }.   
4d10: 20 20 20 20 20 2f 2a 20 41 64 64 20 74 68 65 20       /* Add the 
4d20: 22 65 4e 4e 4e 22 20 73 75 66 66 69 78 20 2a 2f  "eNNN" suffix */
4d30: 0a 20 20 20 20 20 20 20 20 69 66 28 20 66 6c 61  .        if( fla
4d40: 67 5f 65 78 70 20 7c 7c 20 28 78 74 79 70 65 3d  g_exp || (xtype=
4d50: 3d 65 74 45 58 50 20 26 26 20 65 78 70 29 20 29  =etEXP && exp) )
4d60: 7b 0a 20 20 20 20 20 20 20 20 20 20 2a 28 62 75  {.          *(bu
4d70: 66 70 74 2b 2b 29 20 3d 20 61 44 69 67 69 74 73  fpt++) = aDigits
4d80: 5b 69 6e 66 6f 70 2d 3e 63 68 61 72 73 65 74 5d  [infop->charset]
4d90: 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20  ;.          if( 
4da0: 65 78 70 3c 30 20 29 7b 0a 20 20 20 20 20 20 20  exp<0 ){.       
4db0: 20 20 20 20 20 2a 28 62 75 66 70 74 2b 2b 29 20       *(bufpt++) 
4dc0: 3d 20 27 2d 27 3b 20 65 78 70 20 3d 20 2d 65 78  = '-'; exp = -ex
4dd0: 70 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 65 6c  p;.          }el
4de0: 73 65 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20  se{.            
4df0: 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 27 2b 27  *(bufpt++) = '+'
4e00: 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20  ;.          }.  
4e10: 20 20 20 20 20 20 20 20 69 66 28 20 65 78 70 3e          if( exp>
4e20: 3d 31 30 30 20 29 7b 0a 20 20 20 20 20 20 20 20  =100 ){.        
4e30: 20 20 20 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d      *(bufpt++) =
4e40: 20 28 65 78 70 2f 31 30 30 29 2b 27 30 27 3b 20   (exp/100)+'0'; 
4e50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
4e60: 2a 20 31 30 30 27 73 20 64 69 67 69 74 20 2a 2f  * 100's digit */
4e70: 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 78 70  .            exp
4e80: 20 25 3d 20 31 30 30 3b 0a 20 20 20 20 20 20 20   %= 100;.       
4e90: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20 2a     }.          *
4ea0: 28 62 75 66 70 74 2b 2b 29 20 3d 20 65 78 70 2f  (bufpt++) = exp/
4eb0: 31 30 2b 27 30 27 3b 20 20 20 20 20 20 20 20 20  10+'0';         
4ec0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 31              /* 1
4ed0: 30 27 73 20 64 69 67 69 74 20 2a 2f 0a 20 20 20  0's digit */.   
4ee0: 20 20 20 20 20 20 20 2a 28 62 75 66 70 74 2b 2b         *(bufpt++
4ef0: 29 20 3d 20 65 78 70 25 31 30 2b 27 30 27 3b 20  ) = exp%10+'0'; 
4f00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4f10: 20 20 20 20 2f 2a 20 31 27 73 20 64 69 67 69 74      /* 1's digit
4f20: 20 2a 2f 0a 20 20 20 20 20 20 20 20 7d 0a 20 20   */.        }.  
4f30: 20 20 20 20 20 20 2a 62 75 66 70 74 20 3d 20 30        *bufpt = 0
4f40: 3b 0a 0a 20 20 20 20 20 20 20 20 2f 2a 20 54 68  ;..        /* Th
4f50: 65 20 63 6f 6e 76 65 72 74 65 64 20 6e 75 6d 62  e converted numb
4f60: 65 72 20 69 73 20 69 6e 20 62 75 66 5b 5d 20 61  er is in buf[] a
4f70: 6e 64 20 7a 65 72 6f 20 74 65 72 6d 69 6e 61 74  nd zero terminat
4f80: 65 64 2e 20 4f 75 74 70 75 74 20 69 74 2e 0a 20  ed. Output it.. 
4f90: 20 20 20 20 20 20 20 2a 2a 20 4e 6f 74 65 20 74         ** Note t
4fa0: 68 61 74 20 74 68 65 20 6e 75 6d 62 65 72 20 69  hat the number i
4fb0: 73 20 69 6e 20 74 68 65 20 75 73 75 61 6c 20 6f  s in the usual o
4fc0: 72 64 65 72 2c 20 6e 6f 74 20 72 65 76 65 72 73  rder, not revers
4fd0: 65 64 20 61 73 20 77 69 74 68 0a 20 20 20 20 20  ed as with.     
4fe0: 20 20 20 2a 2a 20 69 6e 74 65 67 65 72 20 63 6f     ** integer co
4ff0: 6e 76 65 72 73 69 6f 6e 73 2e 20 2a 2f 0a 20 20  nversions. */.  
5000: 20 20 20 20 20 20 6c 65 6e 67 74 68 20 3d 20 62        length = b
5010: 75 66 70 74 2d 62 75 66 3b 0a 20 20 20 20 20 20  ufpt-buf;.      
5020: 20 20 62 75 66 70 74 20 3d 20 62 75 66 3b 0a 0a    bufpt = buf;..
5030: 20 20 20 20 20 20 20 20 2f 2a 20 53 70 65 63 69          /* Speci
5040: 61 6c 20 63 61 73 65 3a 20 20 41 64 64 20 6c 65  al case:  Add le
5050: 61 64 69 6e 67 20 7a 65 72 6f 73 20 69 66 20 74  ading zeros if t
5060: 68 65 20 66 6c 61 67 5f 7a 65 72 6f 70 61 64 20  he flag_zeropad 
5070: 66 6c 61 67 20 69 73 0a 20 20 20 20 20 20 20 20  flag is.        
5080: 2a 2a 20 73 65 74 20 61 6e 64 20 77 65 20 61 72  ** set and we ar
5090: 65 20 6e 6f 74 20 6c 65 66 74 20 6a 75 73 74 69  e not left justi
50a0: 66 69 65 64 20 2a 2f 0a 20 20 20 20 20 20 20 20  fied */.        
50b0: 69 66 28 20 66 6c 61 67 5f 7a 65 72 6f 70 61 64  if( flag_zeropad
50c0: 20 26 26 20 21 66 6c 61 67 5f 6c 65 66 74 6a 75   && !flag_leftju
50d0: 73 74 69 66 79 20 26 26 20 6c 65 6e 67 74 68 20  stify && length 
50e0: 3c 20 77 69 64 74 68 29 7b 0a 20 20 20 20 20 20  < width){.      
50f0: 20 20 20 20 69 6e 74 20 69 3b 0a 20 20 20 20 20      int i;.     
5100: 20 20 20 20 20 69 6e 74 20 6e 50 61 64 20 3d 20       int nPad = 
5110: 77 69 64 74 68 20 2d 20 6c 65 6e 67 74 68 3b 0a  width - length;.
5120: 20 20 20 20 20 20 20 20 20 20 66 6f 72 28 69 3d            for(i=
5130: 77 69 64 74 68 3b 20 69 3e 3d 6e 50 61 64 3b 20  width; i>=nPad; 
5140: 69 2d 2d 29 7b 0a 20 20 20 20 20 20 20 20 20 20  i--){.          
5150: 20 20 62 75 66 70 74 5b 69 5d 20 3d 20 62 75 66    bufpt[i] = buf
5160: 70 74 5b 69 2d 6e 50 61 64 5d 3b 0a 20 20 20 20  pt[i-nPad];.    
5170: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20        }.        
5180: 20 20 69 20 3d 20 70 72 65 66 69 78 21 3d 30 3b    i = prefix!=0;
5190: 0a 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65  .          while
51a0: 28 20 6e 50 61 64 2d 2d 20 29 20 62 75 66 70 74  ( nPad-- ) bufpt
51b0: 5b 69 2b 2b 5d 20 3d 20 27 30 27 3b 0a 20 20 20  [i++] = '0';.   
51c0: 20 20 20 20 20 20 20 6c 65 6e 67 74 68 20 3d 20         length = 
51d0: 77 69 64 74 68 3b 0a 20 20 20 20 20 20 20 20 7d  width;.        }
51e0: 0a 23 65 6e 64 69 66 0a 20 20 20 20 20 20 20 20  .#endif.        
51f0: 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 63 61 73  break;.      cas
5200: 65 20 65 74 53 49 5a 45 3a 0a 20 20 20 20 20 20  e etSIZE:.      
5210: 20 20 2a 28 76 61 5f 61 72 67 28 61 70 2c 69 6e    *(va_arg(ap,in
5220: 74 2a 29 29 20 3d 20 63 6f 75 6e 74 3b 0a 20 20  t*)) = count;.  
5230: 20 20 20 20 20 20 6c 65 6e 67 74 68 20 3d 20 77        length = w
5240: 69 64 74 68 20 3d 20 30 3b 0a 20 20 20 20 20 20  idth = 0;.      
5250: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 63    break;.      c
5260: 61 73 65 20 65 74 50 45 52 43 45 4e 54 3a 0a 20  ase etPERCENT:. 
5270: 20 20 20 20 20 20 20 62 75 66 5b 30 5d 20 3d 20         buf[0] = 
5280: 27 25 27 3b 0a 20 20 20 20 20 20 20 20 62 75 66  '%';.        buf
5290: 70 74 20 3d 20 62 75 66 3b 0a 20 20 20 20 20 20  pt = buf;.      
52a0: 20 20 6c 65 6e 67 74 68 20 3d 20 31 3b 0a 20 20    length = 1;.  
52b0: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20        break;.   
52c0: 20 20 20 63 61 73 65 20 65 74 43 48 41 52 4c 49     case etCHARLI
52d0: 54 3a 0a 20 20 20 20 20 20 63 61 73 65 20 65 74  T:.      case et
52e0: 43 48 41 52 58 3a 0a 20 20 20 20 20 20 20 20 63  CHARX:.        c
52f0: 20 3d 20 62 75 66 5b 30 5d 20 3d 20 28 78 74 79   = buf[0] = (xty
5300: 70 65 3d 3d 65 74 43 48 41 52 58 20 3f 20 76 61  pe==etCHARX ? va
5310: 5f 61 72 67 28 61 70 2c 69 6e 74 29 20 3a 20 2a  _arg(ap,int) : *
5320: 2b 2b 66 6d 74 29 3b 0a 20 20 20 20 20 20 20 20  ++fmt);.        
5330: 69 66 28 20 70 72 65 63 69 73 69 6f 6e 3e 3d 30  if( precision>=0
5340: 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 66 6f   ){.          fo
5350: 72 28 69 64 78 3d 31 3b 20 69 64 78 3c 70 72 65  r(idx=1; idx<pre
5360: 63 69 73 69 6f 6e 3b 20 69 64 78 2b 2b 29 20 62  cision; idx++) b
5370: 75 66 5b 69 64 78 5d 20 3d 20 63 3b 0a 20 20 20  uf[idx] = c;.   
5380: 20 20 20 20 20 20 20 6c 65 6e 67 74 68 20 3d 20         length = 
5390: 70 72 65 63 69 73 69 6f 6e 3b 0a 20 20 20 20 20  precision;.     
53a0: 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20     }else{.      
53b0: 20 20 20 20 6c 65 6e 67 74 68 20 3d 31 3b 0a 20      length =1;. 
53c0: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20         }.       
53d0: 20 62 75 66 70 74 20 3d 20 62 75 66 3b 0a 20 20   bufpt = buf;.  
53e0: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20        break;.   
53f0: 20 20 20 63 61 73 65 20 65 74 53 54 52 49 4e 47     case etSTRING
5400: 3a 0a 20 20 20 20 20 20 63 61 73 65 20 65 74 44  :.      case etD
5410: 59 4e 53 54 52 49 4e 47 3a 0a 20 20 20 20 20 20  YNSTRING:.      
5420: 20 20 62 75 66 70 74 20 3d 20 76 61 5f 61 72 67    bufpt = va_arg
5430: 28 61 70 2c 63 68 61 72 2a 29 3b 0a 20 20 20 20  (ap,char*);.    
5440: 20 20 20 20 69 66 28 20 62 75 66 70 74 3d 3d 30      if( bufpt==0
5450: 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 62 75   ){.          bu
5460: 66 70 74 20 3d 20 22 22 3b 0a 20 20 20 20 20 20  fpt = "";.      
5470: 20 20 7d 65 6c 73 65 20 69 66 28 20 78 74 79 70    }else if( xtyp
5480: 65 3d 3d 65 74 44 59 4e 53 54 52 49 4e 47 20 29  e==etDYNSTRING )
5490: 7b 0a 20 20 20 20 20 20 20 20 20 20 7a 45 78 74  {.          zExt
54a0: 72 61 20 3d 20 62 75 66 70 74 3b 0a 20 20 20 20  ra = bufpt;.    
54b0: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 6c 65      }.        le
54c0: 6e 67 74 68 20 3d 20 73 74 72 6c 65 6e 28 62 75  ngth = strlen(bu
54d0: 66 70 74 29 3b 0a 20 20 20 20 20 20 20 20 69 66  fpt);.        if
54e0: 28 20 70 72 65 63 69 73 69 6f 6e 3e 3d 30 20 26  ( precision>=0 &
54f0: 26 20 70 72 65 63 69 73 69 6f 6e 3c 6c 65 6e 67  & precision<leng
5500: 74 68 20 29 20 6c 65 6e 67 74 68 20 3d 20 70 72  th ) length = pr
5510: 65 63 69 73 69 6f 6e 3b 0a 20 20 20 20 20 20 20  ecision;.       
5520: 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 63 61   break;.      ca
5530: 73 65 20 65 74 53 51 4c 45 53 43 41 50 45 3a 0a  se etSQLESCAPE:.
5540: 20 20 20 20 20 20 63 61 73 65 20 65 74 53 51 4c        case etSQL
5550: 45 53 43 41 50 45 32 3a 20 7b 0a 20 20 20 20 20  ESCAPE2: {.     
5560: 20 20 20 69 6e 74 20 69 2c 20 6a 2c 20 6e 2c 20     int i, j, n, 
5570: 63 2c 20 69 73 6e 75 6c 6c 3b 0a 20 20 20 20 20  c, isnull;.     
5580: 20 20 20 69 6e 74 20 6e 65 65 64 51 75 6f 74 65     int needQuote
5590: 3b 0a 20 20 20 20 20 20 20 20 63 68 61 72 20 2a  ;.        char *
55a0: 61 72 67 20 3d 20 76 61 5f 61 72 67 28 61 70 2c  arg = va_arg(ap,
55b0: 63 68 61 72 2a 29 3b 0a 20 20 20 20 20 20 20 20  char*);.        
55c0: 69 73 6e 75 6c 6c 20 3d 20 61 72 67 3d 3d 30 3b  isnull = arg==0;
55d0: 0a 20 20 20 20 20 20 20 20 69 66 28 20 69 73 6e  .        if( isn
55e0: 75 6c 6c 20 29 20 61 72 67 20 3d 20 28 78 74 79  ull ) arg = (xty
55f0: 70 65 3d 3d 65 74 53 51 4c 45 53 43 41 50 45 32  pe==etSQLESCAPE2
5600: 20 3f 20 22 4e 55 4c 4c 22 20 3a 20 22 28 4e 55   ? "NULL" : "(NU
5610: 4c 4c 29 22 29 3b 0a 20 20 20 20 20 20 20 20 66  LL)");.        f
5620: 6f 72 28 69 3d 6e 3d 30 3b 20 28 63 3d 61 72 67  or(i=n=0; (c=arg
5630: 5b 69 5d 29 21 3d 30 3b 20 69 2b 2b 29 7b 0a 20  [i])!=0; i++){. 
5640: 20 20 20 20 20 20 20 20 20 69 66 28 20 63 3d 3d           if( c==
5650: 27 5c 27 27 20 29 20 20 6e 2b 2b 3b 0a 20 20 20  '\'' )  n++;.   
5660: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 6e       }.        n
5670: 65 65 64 51 75 6f 74 65 20 3d 20 21 69 73 6e 75  eedQuote = !isnu
5680: 6c 6c 20 26 26 20 78 74 79 70 65 3d 3d 65 74 53  ll && xtype==etS
5690: 51 4c 45 53 43 41 50 45 32 3b 0a 20 20 20 20 20  QLESCAPE2;.     
56a0: 20 20 20 6e 20 2b 3d 20 69 20 2b 20 31 20 2b 20     n += i + 1 + 
56b0: 6e 65 65 64 51 75 6f 74 65 2a 32 3b 0a 20 20 20  needQuote*2;.   
56c0: 20 20 20 20 20 69 66 28 20 6e 3e 65 74 42 55 46       if( n>etBUF
56d0: 53 49 5a 45 20 29 7b 0a 20 20 20 20 20 20 20 20  SIZE ){.        
56e0: 20 20 62 75 66 70 74 20 3d 20 7a 45 78 74 72 61    bufpt = zExtra
56f0: 20 3d 20 73 71 6c 69 74 65 4d 61 6c 6c 6f 63 28   = sqliteMalloc(
5700: 20 6e 20 29 3b 0a 20 20 20 20 20 20 20 20 20 20   n );.          
5710: 69 66 28 20 62 75 66 70 74 3d 3d 30 20 29 20 72  if( bufpt==0 ) r
5720: 65 74 75 72 6e 20 2d 31 3b 0a 20 20 20 20 20 20  eturn -1;.      
5730: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20    }else{.       
5740: 20 20 20 62 75 66 70 74 20 3d 20 62 75 66 3b 0a     bufpt = buf;.
5750: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
5760: 20 20 6a 20 3d 20 30 3b 0a 20 20 20 20 20 20 20    j = 0;.       
5770: 20 69 66 28 20 6e 65 65 64 51 75 6f 74 65 20 29   if( needQuote )
5780: 20 62 75 66 70 74 5b 6a 2b 2b 5d 20 3d 20 27 5c   bufpt[j++] = '\
5790: 27 27 3b 0a 20 20 20 20 20 20 20 20 66 6f 72 28  '';.        for(
57a0: 69 3d 30 3b 20 28 63 3d 61 72 67 5b 69 5d 29 21  i=0; (c=arg[i])!
57b0: 3d 30 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20  =0; i++){.      
57c0: 20 20 20 20 62 75 66 70 74 5b 6a 2b 2b 5d 20 3d      bufpt[j++] =
57d0: 20 63 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66   c;.          if
57e0: 28 20 63 3d 3d 27 5c 27 27 20 29 20 62 75 66 70  ( c=='\'' ) bufp
57f0: 74 5b 6a 2b 2b 5d 20 3d 20 63 3b 0a 20 20 20 20  t[j++] = c;.    
5800: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 69 66      }.        if
5810: 28 20 6e 65 65 64 51 75 6f 74 65 20 29 20 62 75  ( needQuote ) bu
5820: 66 70 74 5b 6a 2b 2b 5d 20 3d 20 27 5c 27 27 3b  fpt[j++] = '\'';
5830: 0a 20 20 20 20 20 20 20 20 62 75 66 70 74 5b 6a  .        bufpt[j
5840: 5d 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 6c  ] = 0;.        l
5850: 65 6e 67 74 68 20 3d 20 6a 3b 0a 20 20 20 20 20  ength = j;.     
5860: 20 20 20 69 66 28 20 70 72 65 63 69 73 69 6f 6e     if( precision
5870: 3e 3d 30 20 26 26 20 70 72 65 63 69 73 69 6f 6e  >=0 && precision
5880: 3c 6c 65 6e 67 74 68 20 29 20 6c 65 6e 67 74 68  <length ) length
5890: 20 3d 20 70 72 65 63 69 73 69 6f 6e 3b 0a 20 20   = precision;.  
58a0: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20        break;.   
58b0: 20 20 20 7d 0a 20 20 20 20 20 20 63 61 73 65 20     }.      case 
58c0: 65 74 54 4f 4b 45 4e 3a 20 7b 0a 20 20 20 20 20  etTOKEN: {.     
58d0: 20 20 20 54 6f 6b 65 6e 20 2a 70 54 6f 6b 65 6e     Token *pToken
58e0: 20 3d 20 76 61 5f 61 72 67 28 61 70 2c 20 54 6f   = va_arg(ap, To
58f0: 6b 65 6e 2a 29 3b 0a 20 20 20 20 20 20 20 20 69  ken*);.        i
5900: 66 28 20 70 54 6f 6b 65 6e 20 26 26 20 70 54 6f  f( pToken && pTo
5910: 6b 65 6e 2d 3e 7a 20 29 7b 0a 20 20 20 20 20 20  ken->z ){.      
5920: 20 20 20 20 28 2a 66 75 6e 63 29 28 61 72 67 2c      (*func)(arg,
5930: 20 70 54 6f 6b 65 6e 2d 3e 7a 2c 20 70 54 6f 6b   pToken->z, pTok
5940: 65 6e 2d 3e 6e 29 3b 0a 20 20 20 20 20 20 20 20  en->n);.        
5950: 7d 0a 20 20 20 20 20 20 20 20 6c 65 6e 67 74 68  }.        length
5960: 20 3d 20 77 69 64 74 68 20 3d 20 30 3b 0a 20 20   = width = 0;.  
5970: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20        break;.   
5980: 20 20 20 7d 0a 20 20 20 20 20 20 63 61 73 65 20     }.      case 
5990: 65 74 53 52 43 4c 49 53 54 3a 20 7b 0a 20 20 20  etSRCLIST: {.   
59a0: 20 20 20 20 20 53 72 63 4c 69 73 74 20 2a 70 53       SrcList *pS
59b0: 72 63 20 3d 20 76 61 5f 61 72 67 28 61 70 2c 20  rc = va_arg(ap, 
59c0: 53 72 63 4c 69 73 74 2a 29 3b 0a 20 20 20 20 20  SrcList*);.     
59d0: 20 20 20 69 6e 74 20 6b 20 3d 20 76 61 5f 61 72     int k = va_ar
59e0: 67 28 61 70 2c 20 69 6e 74 29 3b 0a 20 20 20 20  g(ap, int);.    
59f0: 20 20 20 20 73 74 72 75 63 74 20 53 72 63 4c 69      struct SrcLi
5a00: 73 74 5f 69 74 65 6d 20 2a 70 49 74 65 6d 20 3d  st_item *pItem =
5a10: 20 26 70 53 72 63 2d 3e 61 5b 6b 5d 3b 0a 20 20   &pSrc->a[k];.  
5a20: 20 20 20 20 20 20 61 73 73 65 72 74 28 20 6b 3e        assert( k>
5a30: 3d 30 20 26 26 20 6b 3c 70 53 72 63 2d 3e 6e 53  =0 && k<pSrc->nS
5a40: 72 63 20 29 3b 0a 20 20 20 20 20 20 20 20 69 66  rc );.        if
5a50: 28 20 70 49 74 65 6d 2d 3e 7a 44 61 74 61 62 61  ( pItem->zDataba
5a60: 73 65 20 26 26 20 70 49 74 65 6d 2d 3e 7a 44 61  se && pItem->zDa
5a70: 74 61 62 61 73 65 5b 30 5d 20 29 7b 0a 20 20 20  tabase[0] ){.   
5a80: 20 20 20 20 20 20 20 28 2a 66 75 6e 63 29 28 61         (*func)(a
5a90: 72 67 2c 20 70 49 74 65 6d 2d 3e 7a 44 61 74 61  rg, pItem->zData
5aa0: 62 61 73 65 2c 20 73 74 72 6c 65 6e 28 70 49 74  base, strlen(pIt
5ab0: 65 6d 2d 3e 7a 44 61 74 61 62 61 73 65 29 29 3b  em->zDatabase));
5ac0: 0a 20 20 20 20 20 20 20 20 20 20 28 2a 66 75 6e  .          (*fun
5ad0: 63 29 28 61 72 67 2c 20 22 2e 22 2c 20 31 29 3b  c)(arg, ".", 1);
5ae0: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20  .        }.     
5af0: 20 20 20 28 2a 66 75 6e 63 29 28 61 72 67 2c 20     (*func)(arg, 
5b00: 70 49 74 65 6d 2d 3e 7a 4e 61 6d 65 2c 20 73 74  pItem->zName, st
5b10: 72 6c 65 6e 28 70 49 74 65 6d 2d 3e 7a 4e 61 6d  rlen(pItem->zNam
5b20: 65 29 29 3b 0a 20 20 20 20 20 20 20 20 6c 65 6e  e));.        len
5b30: 67 74 68 20 3d 20 77 69 64 74 68 20 3d 20 30 3b  gth = width = 0;
5b40: 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a  .        break;.
5b50: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 63 61        }.      ca
5b60: 73 65 20 65 74 45 52 52 4f 52 3a 0a 20 20 20 20  se etERROR:.    
5b70: 20 20 20 20 62 75 66 5b 30 5d 20 3d 20 27 25 27      buf[0] = '%'
5b80: 3b 0a 20 20 20 20 20 20 20 20 62 75 66 5b 31 5d  ;.        buf[1]
5b90: 20 3d 20 63 3b 0a 20 20 20 20 20 20 20 20 65 72   = c;.        er
5ba0: 72 6f 72 66 6c 61 67 20 3d 20 30 3b 0a 20 20 20  rorflag = 0;.   
5bb0: 20 20 20 20 20 69 64 78 20 3d 20 31 2b 28 63 21       idx = 1+(c!
5bc0: 3d 30 29 3b 0a 20 20 20 20 20 20 20 20 28 2a 66  =0);.        (*f
5bd0: 75 6e 63 29 28 61 72 67 2c 22 25 22 2c 69 64 78  unc)(arg,"%",idx
5be0: 29 3b 0a 20 20 20 20 20 20 20 20 63 6f 75 6e 74  );.        count
5bf0: 20 2b 3d 20 69 64 78 3b 0a 20 20 20 20 20 20 20   += idx;.       
5c00: 20 69 66 28 20 63 3d 3d 30 20 29 20 66 6d 74 2d   if( c==0 ) fmt-
5c10: 2d 3b 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b  -;.        break
5c20: 3b 0a 20 20 20 20 7d 2f 2a 20 45 6e 64 20 73 77  ;.    }/* End sw
5c30: 69 74 63 68 20 6f 76 65 72 20 74 68 65 20 66 6f  itch over the fo
5c40: 72 6d 61 74 20 74 79 70 65 20 2a 2f 0a 20 20 20  rmat type */.   
5c50: 20 2f 2a 0a 20 20 20 20 2a 2a 20 54 68 65 20 74   /*.    ** The t
5c60: 65 78 74 20 6f 66 20 74 68 65 20 63 6f 6e 76 65  ext of the conve
5c70: 72 73 69 6f 6e 20 69 73 20 70 6f 69 6e 74 65 64  rsion is pointed
5c80: 20 74 6f 20 62 79 20 22 62 75 66 70 74 22 20 61   to by "bufpt" a
5c90: 6e 64 20 69 73 0a 20 20 20 20 2a 2a 20 22 6c 65  nd is.    ** "le
5ca0: 6e 67 74 68 22 20 63 68 61 72 61 63 74 65 72 73  ngth" characters
5cb0: 20 6c 6f 6e 67 2e 20 20 54 68 65 20 66 69 65 6c   long.  The fiel
5cc0: 64 20 77 69 64 74 68 20 69 73 20 22 77 69 64 74  d width is "widt
5cd0: 68 22 2e 20 20 44 6f 0a 20 20 20 20 2a 2a 20 74  h".  Do.    ** t
5ce0: 68 65 20 6f 75 74 70 75 74 2e 0a 20 20 20 20 2a  he output..    *
5cf0: 2f 0a 20 20 20 20 69 66 28 20 21 66 6c 61 67 5f  /.    if( !flag_
5d00: 6c 65 66 74 6a 75 73 74 69 66 79 20 29 7b 0a 20  leftjustify ){. 
5d10: 20 20 20 20 20 72 65 67 69 73 74 65 72 20 69 6e       register in
5d20: 74 20 6e 73 70 61 63 65 3b 0a 20 20 20 20 20 20  t nspace;.      
5d30: 6e 73 70 61 63 65 20 3d 20 77 69 64 74 68 2d 6c  nspace = width-l
5d40: 65 6e 67 74 68 3b 0a 20 20 20 20 20 20 69 66 28  ength;.      if(
5d50: 20 6e 73 70 61 63 65 3e 30 20 29 7b 0a 20 20 20   nspace>0 ){.   
5d60: 20 20 20 20 20 63 6f 75 6e 74 20 2b 3d 20 6e 73       count += ns
5d70: 70 61 63 65 3b 0a 20 20 20 20 20 20 20 20 77 68  pace;.        wh
5d80: 69 6c 65 28 20 6e 73 70 61 63 65 3e 3d 65 74 53  ile( nspace>=etS
5d90: 50 41 43 45 53 49 5a 45 20 29 7b 0a 20 20 20 20  PACESIZE ){.    
5da0: 20 20 20 20 20 20 28 2a 66 75 6e 63 29 28 61 72        (*func)(ar
5db0: 67 2c 73 70 61 63 65 73 2c 65 74 53 50 41 43 45  g,spaces,etSPACE
5dc0: 53 49 5a 45 29 3b 0a 20 20 20 20 20 20 20 20 20  SIZE);.         
5dd0: 20 6e 73 70 61 63 65 20 2d 3d 20 65 74 53 50 41   nspace -= etSPA
5de0: 43 45 53 49 5a 45 3b 0a 20 20 20 20 20 20 20 20  CESIZE;.        
5df0: 7d 0a 20 20 20 20 20 20 20 20 69 66 28 20 6e 73  }.        if( ns
5e00: 70 61 63 65 3e 30 20 29 20 28 2a 66 75 6e 63 29  pace>0 ) (*func)
5e10: 28 61 72 67 2c 73 70 61 63 65 73 2c 6e 73 70 61  (arg,spaces,nspa
5e20: 63 65 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20  ce);.      }.   
5e30: 20 7d 0a 20 20 20 20 69 66 28 20 6c 65 6e 67 74   }.    if( lengt
5e40: 68 3e 30 20 29 7b 0a 20 20 20 20 20 20 28 2a 66  h>0 ){.      (*f
5e50: 75 6e 63 29 28 61 72 67 2c 62 75 66 70 74 2c 6c  unc)(arg,bufpt,l
5e60: 65 6e 67 74 68 29 3b 0a 20 20 20 20 20 20 63 6f  ength);.      co
5e70: 75 6e 74 20 2b 3d 20 6c 65 6e 67 74 68 3b 0a 20  unt += length;. 
5e80: 20 20 20 7d 0a 20 20 20 20 69 66 28 20 66 6c 61     }.    if( fla
5e90: 67 5f 6c 65 66 74 6a 75 73 74 69 66 79 20 29 7b  g_leftjustify ){
5ea0: 0a 20 20 20 20 20 20 72 65 67 69 73 74 65 72 20  .      register 
5eb0: 69 6e 74 20 6e 73 70 61 63 65 3b 0a 20 20 20 20  int nspace;.    
5ec0: 20 20 6e 73 70 61 63 65 20 3d 20 77 69 64 74 68    nspace = width
5ed0: 2d 6c 65 6e 67 74 68 3b 0a 20 20 20 20 20 20 69  -length;.      i
5ee0: 66 28 20 6e 73 70 61 63 65 3e 30 20 29 7b 0a 20  f( nspace>0 ){. 
5ef0: 20 20 20 20 20 20 20 63 6f 75 6e 74 20 2b 3d 20         count += 
5f00: 6e 73 70 61 63 65 3b 0a 20 20 20 20 20 20 20 20  nspace;.        
5f10: 77 68 69 6c 65 28 20 6e 73 70 61 63 65 3e 3d 65  while( nspace>=e
5f20: 74 53 50 41 43 45 53 49 5a 45 20 29 7b 0a 20 20  tSPACESIZE ){.  
5f30: 20 20 20 20 20 20 20 20 28 2a 66 75 6e 63 29 28          (*func)(
5f40: 61 72 67 2c 73 70 61 63 65 73 2c 65 74 53 50 41  arg,spaces,etSPA
5f50: 43 45 53 49 5a 45 29 3b 0a 20 20 20 20 20 20 20  CESIZE);.       
5f60: 20 20 20 6e 73 70 61 63 65 20 2d 3d 20 65 74 53     nspace -= etS
5f70: 50 41 43 45 53 49 5a 45 3b 0a 20 20 20 20 20 20  PACESIZE;.      
5f80: 20 20 7d 0a 20 20 20 20 20 20 20 20 69 66 28 20    }.        if( 
5f90: 6e 73 70 61 63 65 3e 30 20 29 20 28 2a 66 75 6e  nspace>0 ) (*fun
5fa0: 63 29 28 61 72 67 2c 73 70 61 63 65 73 2c 6e 73  c)(arg,spaces,ns
5fb0: 70 61 63 65 29 3b 0a 20 20 20 20 20 20 7d 0a 20  pace);.      }. 
5fc0: 20 20 20 7d 0a 20 20 20 20 69 66 28 20 7a 45 78     }.    if( zEx
5fd0: 74 72 61 20 29 7b 0a 20 20 20 20 20 20 73 71 6c  tra ){.      sql
5fe0: 69 74 65 46 72 65 65 28 7a 45 78 74 72 61 29 3b  iteFree(zExtra);
5ff0: 0a 20 20 20 20 7d 0a 20 20 7d 2f 2a 20 45 6e 64  .    }.  }/* End
6000: 20 66 6f 72 20 6c 6f 6f 70 20 6f 76 65 72 20 74   for loop over t
6010: 68 65 20 66 6f 72 6d 61 74 20 73 74 72 69 6e 67  he format string
6020: 20 2a 2f 0a 20 20 72 65 74 75 72 6e 20 65 72 72   */.  return err
6030: 6f 72 66 6c 61 67 20 3f 20 2d 31 20 3a 20 63 6f  orflag ? -1 : co
6040: 75 6e 74 3b 0a 7d 20 2f 2a 20 45 6e 64 20 6f 66  unt;.} /* End of
6050: 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 0a 0a 2f   function */.../
6060: 2a 20 54 68 69 73 20 73 74 72 75 63 74 75 72 65  * This structure
6070: 20 69 73 20 75 73 65 64 20 74 6f 20 73 74 6f 72   is used to stor
6080: 65 20 73 74 61 74 65 20 69 6e 66 6f 72 6d 61 74  e state informat
6090: 69 6f 6e 20 61 62 6f 75 74 20 74 68 65 0a 2a 2a  ion about the.**
60a0: 20 77 72 69 74 65 20 74 6f 20 6d 65 6d 6f 72 79   write to memory
60b0: 20 74 68 61 74 20 69 73 20 63 75 72 72 65 6e 74   that is current
60c0: 6c 79 20 69 6e 20 70 72 6f 67 72 65 73 73 2e 0a  ly in progress..
60d0: 2a 2f 0a 73 74 72 75 63 74 20 73 67 4d 70 72 69  */.struct sgMpri
60e0: 6e 74 66 20 7b 0a 20 20 63 68 61 72 20 2a 7a 42  ntf {.  char *zB
60f0: 61 73 65 3b 20 20 20 20 20 2f 2a 20 41 20 62 61  ase;     /* A ba
6100: 73 65 20 61 6c 6c 6f 63 61 74 69 6f 6e 20 2a 2f  se allocation */
6110: 0a 20 20 63 68 61 72 20 2a 7a 54 65 78 74 3b 20  .  char *zText; 
6120: 20 20 20 20 2f 2a 20 54 68 65 20 73 74 72 69 6e      /* The strin
6130: 67 20 63 6f 6c 6c 65 63 74 65 64 20 73 6f 20 66  g collected so f
6140: 61 72 20 2a 2f 0a 20 20 69 6e 74 20 20 6e 43 68  ar */.  int  nCh
6150: 61 72 3b 20 20 20 20 20 20 2f 2a 20 4c 65 6e 67  ar;      /* Leng
6160: 74 68 20 6f 66 20 74 68 65 20 73 74 72 69 6e 67  th of the string
6170: 20 73 6f 20 66 61 72 20 2a 2f 0a 20 20 69 6e 74   so far */.  int
6180: 20 20 6e 54 6f 74 61 6c 3b 20 20 20 20 20 2f 2a    nTotal;     /*
6190: 20 4f 75 74 70 75 74 20 73 69 7a 65 20 69 66 20   Output size if 
61a0: 75 6e 63 6f 6e 73 74 72 61 69 6e 65 64 20 2a 2f  unconstrained */
61b0: 0a 20 20 69 6e 74 20 20 6e 41 6c 6c 6f 63 3b 20  .  int  nAlloc; 
61c0: 20 20 20 20 2f 2a 20 41 6d 6f 75 6e 74 20 6f 66      /* Amount of
61d0: 20 73 70 61 63 65 20 61 6c 6c 6f 63 61 74 65 64   space allocated
61e0: 20 69 6e 20 7a 54 65 78 74 20 2a 2f 0a 20 20 76   in zText */.  v
61f0: 6f 69 64 20 2a 28 2a 78 52 65 61 6c 6c 6f 63 29  oid *(*xRealloc)
6200: 28 76 6f 69 64 2a 2c 69 6e 74 29 3b 20 20 2f 2a  (void*,int);  /*
6210: 20 46 75 6e 63 74 69 6f 6e 20 75 73 65 64 20 74   Function used t
6220: 6f 20 72 65 61 6c 6c 6f 63 20 6d 65 6d 6f 72 79  o realloc memory
6230: 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 20 0a 2a 2a 20 54   */.};../* .** T
6240: 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 6d 70  his function imp
6250: 6c 65 6d 65 6e 74 73 20 74 68 65 20 63 61 6c 6c  lements the call
6260: 62 61 63 6b 20 66 72 6f 6d 20 76 78 70 72 69 6e  back from vxprin
6270: 74 66 2e 20 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20  tf. .**.** This 
6280: 72 6f 75 74 69 6e 65 20 61 64 64 20 6e 4e 65 77  routine add nNew
6290: 43 68 61 72 20 63 68 61 72 61 63 74 65 72 73 20  Char characters 
62a0: 6f 66 20 74 65 78 74 20 69 6e 20 7a 4e 65 77 54  of text in zNewT
62b0: 65 78 74 20 74 6f 0a 2a 2a 20 74 68 65 20 73 67  ext to.** the sg
62c0: 4d 70 72 69 6e 74 66 20 73 74 72 75 63 74 75 72  Mprintf structur
62d0: 65 20 70 6f 69 6e 74 65 64 20 74 6f 20 62 79 20  e pointed to by 
62e0: 22 61 72 67 22 2e 0a 2a 2f 0a 73 74 61 74 69 63  "arg"..*/.static
62f0: 20 76 6f 69 64 20 6d 6f 75 74 28 76 6f 69 64 20   void mout(void 
6300: 2a 61 72 67 2c 20 63 6f 6e 73 74 20 63 68 61 72  *arg, const char
6310: 20 2a 7a 4e 65 77 54 65 78 74 2c 20 69 6e 74 20   *zNewText, int 
6320: 6e 4e 65 77 43 68 61 72 29 7b 0a 20 20 73 74 72  nNewChar){.  str
6330: 75 63 74 20 73 67 4d 70 72 69 6e 74 66 20 2a 70  uct sgMprintf *p
6340: 4d 20 3d 20 28 73 74 72 75 63 74 20 73 67 4d 70  M = (struct sgMp
6350: 72 69 6e 74 66 2a 29 61 72 67 3b 0a 20 20 70 4d  rintf*)arg;.  pM
6360: 2d 3e 6e 54 6f 74 61 6c 20 2b 3d 20 6e 4e 65 77  ->nTotal += nNew
6370: 43 68 61 72 3b 0a 20 20 69 66 28 20 70 4d 2d 3e  Char;.  if( pM->
6380: 6e 43 68 61 72 20 2b 20 6e 4e 65 77 43 68 61 72  nChar + nNewChar
6390: 20 2b 20 31 20 3e 20 70 4d 2d 3e 6e 41 6c 6c 6f   + 1 > pM->nAllo
63a0: 63 20 29 7b 0a 20 20 20 20 69 66 28 20 70 4d 2d  c ){.    if( pM-
63b0: 3e 78 52 65 61 6c 6c 6f 63 3d 3d 30 20 29 7b 0a  >xRealloc==0 ){.
63c0: 20 20 20 20 20 20 6e 4e 65 77 43 68 61 72 20 3d        nNewChar =
63d0: 20 20 70 4d 2d 3e 6e 41 6c 6c 6f 63 20 2d 20 70    pM->nAlloc - p
63e0: 4d 2d 3e 6e 43 68 61 72 20 2d 20 31 3b 0a 20 20  M->nChar - 1;.  
63f0: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 70    }else{.      p
6400: 4d 2d 3e 6e 41 6c 6c 6f 63 20 3d 20 70 4d 2d 3e  M->nAlloc = pM->
6410: 6e 43 68 61 72 20 2b 20 6e 4e 65 77 43 68 61 72  nChar + nNewChar
6420: 2a 32 20 2b 20 31 3b 0a 20 20 20 20 20 20 69 66  *2 + 1;.      if
6430: 28 20 70 4d 2d 3e 7a 54 65 78 74 3d 3d 70 4d 2d  ( pM->zText==pM-
6440: 3e 7a 42 61 73 65 20 29 7b 0a 20 20 20 20 20 20  >zBase ){.      
6450: 20 20 70 4d 2d 3e 7a 54 65 78 74 20 3d 20 70 4d    pM->zText = pM
6460: 2d 3e 78 52 65 61 6c 6c 6f 63 28 30 2c 20 70 4d  ->xRealloc(0, pM
6470: 2d 3e 6e 41 6c 6c 6f 63 29 3b 0a 20 20 20 20 20  ->nAlloc);.     
6480: 20 20 20 69 66 28 20 70 4d 2d 3e 7a 54 65 78 74     if( pM->zText
6490: 20 26 26 20 70 4d 2d 3e 6e 43 68 61 72 20 29 7b   && pM->nChar ){
64a0: 0a 20 20 20 20 20 20 20 20 20 20 6d 65 6d 63 70  .          memcp
64b0: 79 28 70 4d 2d 3e 7a 54 65 78 74 2c 20 70 4d 2d  y(pM->zText, pM-
64c0: 3e 7a 42 61 73 65 2c 20 70 4d 2d 3e 6e 43 68 61  >zBase, pM->nCha
64d0: 72 29 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20  r);.        }.  
64e0: 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20      }else{.     
64f0: 20 20 20 70 4d 2d 3e 7a 54 65 78 74 20 3d 20 70     pM->zText = p
6500: 4d 2d 3e 78 52 65 61 6c 6c 6f 63 28 70 4d 2d 3e  M->xRealloc(pM->
6510: 7a 54 65 78 74 2c 20 70 4d 2d 3e 6e 41 6c 6c 6f  zText, pM->nAllo
6520: 63 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  c);.      }.    
6530: 7d 0a 20 20 7d 0a 20 20 69 66 28 20 70 4d 2d 3e  }.  }.  if( pM->
6540: 7a 54 65 78 74 20 29 7b 0a 20 20 20 20 69 66 28  zText ){.    if(
6550: 20 6e 4e 65 77 43 68 61 72 3e 30 20 29 7b 0a 20   nNewChar>0 ){. 
6560: 20 20 20 20 20 6d 65 6d 63 70 79 28 26 70 4d 2d       memcpy(&pM-
6570: 3e 7a 54 65 78 74 5b 70 4d 2d 3e 6e 43 68 61 72  >zText[pM->nChar
6580: 5d 2c 20 7a 4e 65 77 54 65 78 74 2c 20 6e 4e 65  ], zNewText, nNe
6590: 77 43 68 61 72 29 3b 0a 20 20 20 20 20 20 70 4d  wChar);.      pM
65a0: 2d 3e 6e 43 68 61 72 20 2b 3d 20 6e 4e 65 77 43  ->nChar += nNewC
65b0: 68 61 72 3b 0a 20 20 20 20 7d 0a 20 20 20 20 70  har;.    }.    p
65c0: 4d 2d 3e 7a 54 65 78 74 5b 70 4d 2d 3e 6e 43 68  M->zText[pM->nCh
65d0: 61 72 5d 20 3d 20 30 3b 0a 20 20 7d 0a 7d 0a 0a  ar] = 0;.  }.}..
65e0: 2f 2a 0a 2a 2a 20 54 68 69 73 20 72 6f 75 74 69  /*.** This routi
65f0: 6e 65 20 69 73 20 61 20 77 72 61 70 70 65 72 20  ne is a wrapper 
6600: 61 72 6f 75 6e 64 20 78 70 72 69 6e 74 66 28 29  around xprintf()
6610: 20 74 68 61 74 20 69 6e 76 6f 6b 65 73 20 6d 6f   that invokes mo
6620: 75 74 28 29 20 61 73 0a 2a 2a 20 74 68 65 20 63  ut() as.** the c
6630: 6f 6e 73 75 6d 65 72 2e 20 20 0a 2a 2f 0a 73 74  onsumer.  .*/.st
6640: 61 74 69 63 20 63 68 61 72 20 2a 62 61 73 65 5f  atic char *base_
6650: 76 70 72 69 6e 74 66 28 0a 20 20 76 6f 69 64 20  vprintf(.  void 
6660: 2a 28 2a 78 52 65 61 6c 6c 6f 63 29 28 76 6f 69  *(*xRealloc)(voi
6670: 64 2a 2c 69 6e 74 29 2c 20 20 20 2f 2a 20 52 6f  d*,int),   /* Ro
6680: 75 74 69 6e 65 20 74 6f 20 72 65 61 6c 6c 6f 63  utine to realloc
6690: 20 6d 65 6d 6f 72 79 2e 20 4d 61 79 20 62 65 20   memory. May be 
66a0: 4e 55 4c 4c 20 2a 2f 0a 20 20 69 6e 74 20 75 73  NULL */.  int us
66b0: 65 49 6e 74 65 72 6e 61 6c 2c 20 20 20 20 20 20  eInternal,      
66c0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 55 73 65            /* Use
66d0: 20 69 6e 74 65 72 6e 61 6c 20 25 2d 63 6f 6e 76   internal %-conv
66e0: 65 72 73 69 6f 6e 73 20 69 66 20 74 72 75 65 20  ersions if true 
66f0: 2a 2f 0a 20 20 63 68 61 72 20 2a 7a 49 6e 69 74  */.  char *zInit
6700: 42 75 66 2c 20 20 20 20 20 20 20 20 20 20 20 20  Buf,            
6710: 20 20 20 20 20 2f 2a 20 49 6e 69 74 69 61 6c 6c       /* Initiall
6720: 79 20 77 72 69 74 65 20 68 65 72 65 2c 20 62 65  y write here, be
6730: 66 6f 72 65 20 6d 61 6c 6c 6f 63 69 6e 67 20 2a  fore mallocing *
6740: 2f 0a 20 20 69 6e 74 20 6e 49 6e 69 74 42 75 66  /.  int nInitBuf
6750: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ,               
6760: 20 20 20 20 2f 2a 20 53 69 7a 65 20 6f 66 20 7a      /* Size of z
6770: 49 6e 69 74 42 75 66 5b 5d 20 2a 2f 0a 20 20 63  InitBuf[] */.  c
6780: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 6f 72 6d  onst char *zForm
6790: 61 74 2c 20 20 20 20 20 20 20 20 20 20 20 20 2f  at,            /
67a0: 2a 20 66 6f 72 6d 61 74 20 73 74 72 69 6e 67 20  * format string 
67b0: 2a 2f 0a 20 20 76 61 5f 6c 69 73 74 20 61 70 20  */.  va_list ap 
67c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
67d0: 20 20 20 20 20 2f 2a 20 61 72 67 75 6d 65 6e 74       /* argument
67e0: 73 20 2a 2f 0a 29 7b 0a 20 20 73 74 72 75 63 74  s */.){.  struct
67f0: 20 73 67 4d 70 72 69 6e 74 66 20 73 4d 3b 0a 20   sgMprintf sM;. 
6800: 20 73 4d 2e 7a 42 61 73 65 20 3d 20 73 4d 2e 7a   sM.zBase = sM.z
6810: 54 65 78 74 20 3d 20 7a 49 6e 69 74 42 75 66 3b  Text = zInitBuf;
6820: 0a 20 20 73 4d 2e 6e 43 68 61 72 20 3d 20 73 4d  .  sM.nChar = sM
6830: 2e 6e 54 6f 74 61 6c 20 3d 20 30 3b 0a 20 20 73  .nTotal = 0;.  s
6840: 4d 2e 6e 41 6c 6c 6f 63 20 3d 20 6e 49 6e 69 74  M.nAlloc = nInit
6850: 42 75 66 3b 0a 20 20 73 4d 2e 78 52 65 61 6c 6c  Buf;.  sM.xReall
6860: 6f 63 20 3d 20 78 52 65 61 6c 6c 6f 63 3b 0a 20  oc = xRealloc;. 
6870: 20 76 78 70 72 69 6e 74 66 28 6d 6f 75 74 2c 20   vxprintf(mout, 
6880: 26 73 4d 2c 20 75 73 65 49 6e 74 65 72 6e 61 6c  &sM, useInternal
6890: 2c 20 7a 46 6f 72 6d 61 74 2c 20 61 70 29 3b 0a  , zFormat, ap);.
68a0: 20 20 69 66 28 20 78 52 65 61 6c 6c 6f 63 20 29    if( xRealloc )
68b0: 7b 0a 20 20 20 20 69 66 28 20 73 4d 2e 7a 54 65  {.    if( sM.zTe
68c0: 78 74 3d 3d 73 4d 2e 7a 42 61 73 65 20 29 7b 0a  xt==sM.zBase ){.
68d0: 20 20 20 20 20 20 73 4d 2e 7a 54 65 78 74 20 3d        sM.zText =
68e0: 20 78 52 65 61 6c 6c 6f 63 28 30 2c 20 73 4d 2e   xRealloc(0, sM.
68f0: 6e 43 68 61 72 2b 31 29 3b 0a 20 20 20 20 20 20  nChar+1);.      
6900: 69 66 28 20 73 4d 2e 7a 54 65 78 74 20 29 7b 0a  if( sM.zText ){.
6910: 20 20 20 20 20 20 20 20 6d 65 6d 63 70 79 28 73          memcpy(s
6920: 4d 2e 7a 54 65 78 74 2c 20 73 4d 2e 7a 42 61 73  M.zText, sM.zBas
6930: 65 2c 20 73 4d 2e 6e 43 68 61 72 2b 31 29 3b 0a  e, sM.nChar+1);.
6940: 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 65 6c 73        }.    }els
6950: 65 20 69 66 28 20 73 4d 2e 6e 41 6c 6c 6f 63 3e  e if( sM.nAlloc>
6960: 73 4d 2e 6e 43 68 61 72 2b 31 30 20 29 7b 0a 20  sM.nChar+10 ){. 
6970: 20 20 20 20 20 73 4d 2e 7a 54 65 78 74 20 3d 20       sM.zText = 
6980: 78 52 65 61 6c 6c 6f 63 28 73 4d 2e 7a 54 65 78  xRealloc(sM.zTex
6990: 74 2c 20 73 4d 2e 6e 43 68 61 72 2b 31 29 3b 0a  t, sM.nChar+1);.
69a0: 20 20 20 20 7d 0a 20 20 7d 0a 20 20 72 65 74 75      }.  }.  retu
69b0: 72 6e 20 73 4d 2e 7a 54 65 78 74 3b 0a 7d 0a 0a  rn sM.zText;.}..
69c0: 2f 2a 0a 2a 2a 20 52 65 61 6c 6c 6f 63 20 74 68  /*.** Realloc th
69d0: 61 74 20 69 73 20 61 20 72 65 61 6c 20 66 75 6e  at is a real fun
69e0: 63 74 69 6f 6e 2c 20 6e 6f 74 20 61 20 6d 61 63  ction, not a mac
69f0: 72 6f 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f  ro..*/.static vo
6a00: 69 64 20 2a 70 72 69 6e 74 66 5f 72 65 61 6c 6c  id *printf_reall
6a10: 6f 63 28 76 6f 69 64 20 2a 6f 6c 64 2c 20 69 6e  oc(void *old, in
6a20: 74 20 73 69 7a 65 29 7b 0a 20 20 72 65 74 75 72  t size){.  retur
6a30: 6e 20 73 71 6c 69 74 65 52 65 61 6c 6c 6f 63 28  n sqliteRealloc(
6a40: 6f 6c 64 2c 73 69 7a 65 29 3b 0a 7d 0a 0a 2f 2a  old,size);.}../*
6a50: 0a 2a 2a 20 50 72 69 6e 74 20 69 6e 74 6f 20 6d  .** Print into m
6a60: 65 6d 6f 72 79 20 6f 62 74 61 69 6e 65 64 20 66  emory obtained f
6a70: 72 6f 6d 20 73 71 6c 69 74 65 4d 61 6c 6c 6f 63  rom sqliteMalloc
6a80: 28 29 2e 20 20 55 73 65 20 74 68 65 20 69 6e 74  ().  Use the int
6a90: 65 72 6e 61 6c 0a 2a 2a 20 25 2d 63 6f 6e 76 65  ernal.** %-conve
6aa0: 72 73 69 6f 6e 20 65 78 74 65 6e 73 69 6f 6e 73  rsion extensions
6ab0: 2e 0a 2a 2f 0a 63 68 61 72 20 2a 73 71 6c 69 74  ..*/.char *sqlit
6ac0: 65 33 56 4d 50 72 69 6e 74 66 28 63 6f 6e 73 74  e3VMPrintf(const
6ad0: 20 63 68 61 72 20 2a 7a 46 6f 72 6d 61 74 2c 20   char *zFormat, 
6ae0: 76 61 5f 6c 69 73 74 20 61 70 29 7b 0a 20 20 63  va_list ap){.  c
6af0: 68 61 72 20 7a 42 61 73 65 5b 53 51 4c 49 54 45  har zBase[SQLITE
6b00: 5f 50 52 49 4e 54 5f 42 55 46 5f 53 49 5a 45 5d  _PRINT_BUF_SIZE]
6b10: 3b 0a 20 20 72 65 74 75 72 6e 20 62 61 73 65 5f  ;.  return base_
6b20: 76 70 72 69 6e 74 66 28 70 72 69 6e 74 66 5f 72  vprintf(printf_r
6b30: 65 61 6c 6c 6f 63 2c 20 31 2c 20 7a 42 61 73 65  ealloc, 1, zBase
6b40: 2c 20 73 69 7a 65 6f 66 28 7a 42 61 73 65 29 2c  , sizeof(zBase),
6b50: 20 7a 46 6f 72 6d 61 74 2c 20 61 70 29 3b 0a 7d   zFormat, ap);.}
6b60: 0a 0a 2f 2a 0a 2a 2a 20 50 72 69 6e 74 20 69 6e  ../*.** Print in
6b70: 74 6f 20 6d 65 6d 6f 72 79 20 6f 62 74 61 69 6e  to memory obtain
6b80: 65 64 20 66 72 6f 6d 20 73 71 6c 69 74 65 4d 61  ed from sqliteMa
6b90: 6c 6c 6f 63 28 29 2e 20 20 55 73 65 20 74 68 65  lloc().  Use the
6ba0: 20 69 6e 74 65 72 6e 61 6c 0a 2a 2a 20 25 2d 63   internal.** %-c
6bb0: 6f 6e 76 65 72 73 69 6f 6e 20 65 78 74 65 6e 73  onversion extens
6bc0: 69 6f 6e 73 2e 0a 2a 2f 0a 63 68 61 72 20 2a 73  ions..*/.char *s
6bd0: 71 6c 69 74 65 33 4d 50 72 69 6e 74 66 28 63 6f  qlite3MPrintf(co
6be0: 6e 73 74 20 63 68 61 72 20 2a 7a 46 6f 72 6d 61  nst char *zForma
6bf0: 74 2c 20 2e 2e 2e 29 7b 0a 20 20 76 61 5f 6c 69  t, ...){.  va_li
6c00: 73 74 20 61 70 3b 0a 20 20 63 68 61 72 20 2a 7a  st ap;.  char *z
6c10: 3b 0a 20 20 63 68 61 72 20 7a 42 61 73 65 5b 53  ;.  char zBase[S
6c20: 51 4c 49 54 45 5f 50 52 49 4e 54 5f 42 55 46 5f  QLITE_PRINT_BUF_
6c30: 53 49 5a 45 5d 3b 0a 20 20 76 61 5f 73 74 61 72  SIZE];.  va_star
6c40: 74 28 61 70 2c 20 7a 46 6f 72 6d 61 74 29 3b 0a  t(ap, zFormat);.
6c50: 20 20 7a 20 3d 20 62 61 73 65 5f 76 70 72 69 6e    z = base_vprin
6c60: 74 66 28 70 72 69 6e 74 66 5f 72 65 61 6c 6c 6f  tf(printf_reallo
6c70: 63 2c 20 31 2c 20 7a 42 61 73 65 2c 20 73 69 7a  c, 1, zBase, siz
6c80: 65 6f 66 28 7a 42 61 73 65 29 2c 20 7a 46 6f 72  eof(zBase), zFor
6c90: 6d 61 74 2c 20 61 70 29 3b 0a 20 20 76 61 5f 65  mat, ap);.  va_e
6ca0: 6e 64 28 61 70 29 3b 0a 20 20 72 65 74 75 72 6e  nd(ap);.  return
6cb0: 20 7a 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 50 72 69   z;.}../*.** Pri
6cc0: 6e 74 20 69 6e 74 6f 20 6d 65 6d 6f 72 79 20 6f  nt into memory o
6cd0: 62 74 61 69 6e 65 64 20 66 72 6f 6d 20 6d 61 6c  btained from mal
6ce0: 6c 6f 63 28 29 2e 20 20 44 6f 20 6e 6f 74 20 75  loc().  Do not u
6cf0: 73 65 20 74 68 65 20 69 6e 74 65 72 6e 61 6c 0a  se the internal.
6d00: 2a 2a 20 25 2d 63 6f 6e 76 65 72 73 69 6f 6e 20  ** %-conversion 
6d10: 65 78 74 65 6e 73 69 6f 6e 73 2e 20 20 54 68 69  extensions.  Thi
6d20: 73 20 72 6f 75 74 69 6e 65 20 69 73 20 66 6f 72  s routine is for
6d30: 20 75 73 65 20 62 79 20 65 78 74 65 72 6e 61 6c   use by external
6d40: 20 75 73 65 72 73 2e 0a 2a 2f 0a 63 68 61 72 20   users..*/.char 
6d50: 2a 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66  *sqlite3_mprintf
6d60: 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 6f  (const char *zFo
6d70: 72 6d 61 74 2c 20 2e 2e 2e 29 7b 0a 20 20 76 61  rmat, ...){.  va
6d80: 5f 6c 69 73 74 20 61 70 3b 0a 20 20 63 68 61 72  _list ap;.  char
6d90: 20 2a 7a 3b 0a 20 20 63 68 61 72 20 7a 42 75 66   *z;.  char zBuf
6da0: 5b 32 30 30 5d 3b 0a 0a 20 20 76 61 5f 73 74 61  [200];..  va_sta
6db0: 72 74 28 61 70 2c 7a 46 6f 72 6d 61 74 29 3b 0a  rt(ap,zFormat);.
6dc0: 20 20 7a 20 3d 20 62 61 73 65 5f 76 70 72 69 6e    z = base_vprin
6dd0: 74 66 28 28 76 6f 69 64 2a 28 2a 29 28 76 6f 69  tf((void*(*)(voi
6de0: 64 2a 2c 69 6e 74 29 29 72 65 61 6c 6c 6f 63 2c  d*,int))realloc,
6df0: 20 30 2c 20 0a 20 20 20 20 20 20 20 20 20 20 20   0, .           
6e00: 20 20 20 20 20 20 20 20 7a 42 75 66 2c 20 73 69          zBuf, si
6e10: 7a 65 6f 66 28 7a 42 75 66 29 2c 20 7a 46 6f 72  zeof(zBuf), zFor
6e20: 6d 61 74 2c 20 61 70 29 3b 0a 20 20 76 61 5f 65  mat, ap);.  va_e
6e30: 6e 64 28 61 70 29 3b 0a 20 20 72 65 74 75 72 6e  nd(ap);.  return
6e40: 20 7a 3b 0a 7d 0a 0a 2f 2a 20 54 68 69 73 20 69   z;.}../* This i
6e50: 73 20 74 68 65 20 76 61 72 61 72 67 73 20 76 65  s the varargs ve
6e60: 72 73 69 6f 6e 20 6f 66 20 73 71 6c 69 74 65 33  rsion of sqlite3
6e70: 5f 6d 70 72 69 6e 74 66 2e 20 20 0a 2a 2f 0a 63  _mprintf.  .*/.c
6e80: 68 61 72 20 2a 73 71 6c 69 74 65 33 5f 76 6d 70  har *sqlite3_vmp
6e90: 72 69 6e 74 66 28 63 6f 6e 73 74 20 63 68 61 72  rintf(const char
6ea0: 20 2a 7a 46 6f 72 6d 61 74 2c 20 76 61 5f 6c 69   *zFormat, va_li
6eb0: 73 74 20 61 70 29 7b 0a 20 20 63 68 61 72 20 7a  st ap){.  char z
6ec0: 42 75 66 5b 32 30 30 5d 3b 0a 20 20 72 65 74 75  Buf[200];.  retu
6ed0: 72 6e 20 62 61 73 65 5f 76 70 72 69 6e 74 66 28  rn base_vprintf(
6ee0: 28 76 6f 69 64 2a 28 2a 29 28 76 6f 69 64 2a 2c  (void*(*)(void*,
6ef0: 69 6e 74 29 29 72 65 61 6c 6c 6f 63 2c 20 30 2c  int))realloc, 0,
6f00: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
6f10: 20 20 20 20 20 20 20 7a 42 75 66 2c 20 73 69 7a         zBuf, siz
6f20: 65 6f 66 28 7a 42 75 66 29 2c 20 7a 46 6f 72 6d  eof(zBuf), zForm
6f30: 61 74 2c 20 61 70 29 3b 0a 7d 0a 0a 2f 2a 0a 2a  at, ap);.}../*.*
6f40: 2a 20 73 71 6c 69 74 65 33 5f 73 6e 70 72 69 6e  * sqlite3_snprin
6f50: 74 66 28 29 20 77 6f 72 6b 73 20 6c 69 6b 65 20  tf() works like 
6f60: 73 6e 70 72 69 6e 74 66 28 29 20 65 78 63 65 70  snprintf() excep
6f70: 74 20 74 68 61 74 20 69 74 20 69 67 6e 6f 72 65  t that it ignore
6f80: 73 20 74 68 65 0a 2a 2a 20 63 75 72 72 65 6e 74  s the.** current
6f90: 20 6c 6f 63 61 6c 65 20 73 65 74 74 69 6e 67 73   locale settings
6fa0: 2e 20 20 54 68 69 73 20 69 73 20 69 6d 70 6f 72  .  This is impor
6fb0: 74 61 6e 74 20 66 6f 72 20 53 51 4c 69 74 65 20  tant for SQLite 
6fc0: 62 65 63 61 75 73 65 20 77 65 0a 2a 2a 20 61 72  because we.** ar
6fd0: 65 20 6e 6f 74 20 61 62 6c 65 20 74 6f 20 75 73  e not able to us
6fe0: 65 20 61 20 22 2c 22 20 61 73 20 74 68 65 20 64  e a "," as the d
6ff0: 65 63 69 6d 61 6c 20 70 6f 69 6e 74 20 69 6e 20  ecimal point in 
7000: 70 6c 61 63 65 20 6f 66 20 22 2e 22 20 61 73 0a  place of "." as.
7010: 2a 2a 20 73 70 65 63 69 66 69 65 64 20 62 79 20  ** specified by 
7020: 73 6f 6d 65 20 6c 6f 63 61 6c 65 73 2e 0a 2a 2f  some locales..*/
7030: 0a 63 68 61 72 20 2a 73 71 6c 69 74 65 33 5f 73  .char *sqlite3_s
7040: 6e 70 72 69 6e 74 66 28 69 6e 74 20 6e 2c 20 63  nprintf(int n, c
7050: 68 61 72 20 2a 7a 42 75 66 2c 20 63 6f 6e 73 74  har *zBuf, const
7060: 20 63 68 61 72 20 2a 7a 46 6f 72 6d 61 74 2c 20   char *zFormat, 
7070: 2e 2e 2e 29 7b 0a 20 20 63 68 61 72 20 2a 7a 3b  ...){.  char *z;
7080: 0a 20 20 76 61 5f 6c 69 73 74 20 61 70 3b 0a 0a  .  va_list ap;..
7090: 20 20 76 61 5f 73 74 61 72 74 28 61 70 2c 7a 46    va_start(ap,zF
70a0: 6f 72 6d 61 74 29 3b 0a 20 20 7a 20 3d 20 62 61  ormat);.  z = ba
70b0: 73 65 5f 76 70 72 69 6e 74 66 28 30 2c 20 30 2c  se_vprintf(0, 0,
70c0: 20 7a 42 75 66 2c 20 6e 2c 20 7a 46 6f 72 6d 61   zBuf, n, zForma
70d0: 74 2c 20 61 70 29 3b 0a 20 20 76 61 5f 65 6e 64  t, ap);.  va_end
70e0: 28 61 70 29 3b 0a 20 20 72 65 74 75 72 6e 20 7a  (ap);.  return z
70f0: 3b 0a 7d 0a 0a 23 69 66 20 64 65 66 69 6e 65 64  ;.}..#if defined
7100: 28 53 51 4c 49 54 45 5f 54 45 53 54 29 20 7c 7c  (SQLITE_TEST) ||
7110: 20 64 65 66 69 6e 65 64 28 53 51 4c 49 54 45 5f   defined(SQLITE_
7120: 44 45 42 55 47 29 0a 2f 2a 0a 2a 2a 20 41 20 76  DEBUG)./*.** A v
7130: 65 72 73 69 6f 6e 20 6f 66 20 70 72 69 6e 74 66  ersion of printf
7140: 28 29 20 74 68 61 74 20 75 6e 64 65 72 73 74 61  () that understa
7150: 6e 64 73 20 25 6c 6c 64 2e 20 20 55 73 65 64 20  nds %lld.  Used 
7160: 66 6f 72 20 64 65 62 75 67 67 69 6e 67 2e 0a 2a  for debugging..*
7170: 2a 20 54 68 65 20 70 72 69 6e 74 66 28 29 20 62  * The printf() b
7180: 75 69 6c 74 20 69 6e 74 6f 20 73 6f 6d 65 20 76  uilt into some v
7190: 65 72 73 69 6f 6e 73 20 6f 66 20 77 69 6e 64 6f  ersions of windo
71a0: 77 73 20 64 6f 65 73 20 6e 6f 74 20 75 6e 64 65  ws does not unde
71b0: 72 73 74 61 6e 64 20 25 6c 6c 64 0a 2a 2a 20 61  rstand %lld.** a
71c0: 6e 64 20 73 65 67 66 61 75 6c 74 73 20 69 66 20  nd segfaults if 
71d0: 79 6f 75 20 67 69 76 65 20 69 74 20 61 20 6c 6f  you give it a lo
71e0: 6e 67 20 6c 6f 6e 67 20 69 6e 74 2e 0a 2a 2f 0a  ng long int..*/.
71f0: 76 6f 69 64 20 73 71 6c 69 74 65 33 44 65 62 75  void sqlite3Debu
7200: 67 50 72 69 6e 74 66 28 63 6f 6e 73 74 20 63 68  gPrintf(const ch
7210: 61 72 20 2a 7a 46 6f 72 6d 61 74 2c 20 2e 2e 2e  ar *zFormat, ...
7220: 29 7b 0a 20 20 65 78 74 65 72 6e 20 69 6e 74 20  ){.  extern int 
7230: 67 65 74 70 69 64 28 76 6f 69 64 29 3b 0a 20 20  getpid(void);.  
7240: 76 61 5f 6c 69 73 74 20 61 70 3b 0a 20 20 63 68  va_list ap;.  ch
7250: 61 72 20 7a 42 75 66 5b 35 30 30 5d 3b 0a 20 20  ar zBuf[500];.  
7260: 76 61 5f 73 74 61 72 74 28 61 70 2c 20 7a 46 6f  va_start(ap, zFo
7270: 72 6d 61 74 29 3b 0a 20 20 62 61 73 65 5f 76 70  rmat);.  base_vp
7280: 72 69 6e 74 66 28 30 2c 20 30 2c 20 7a 42 75 66  rintf(0, 0, zBuf
7290: 2c 20 73 69 7a 65 6f 66 28 7a 42 75 66 29 2c 20  , sizeof(zBuf), 
72a0: 7a 46 6f 72 6d 61 74 2c 20 61 70 29 3b 0a 20 20  zFormat, ap);.  
72b0: 76 61 5f 65 6e 64 28 61 70 29 3b 0a 20 20 66 70  va_end(ap);.  fp
72c0: 72 69 6e 74 66 28 73 74 64 6f 75 74 2c 22 25 64  rintf(stdout,"%d
72d0: 3a 20 25 73 22 2c 20 67 65 74 70 69 64 28 29 2c  : %s", getpid(),
72e0: 20 7a 42 75 66 29 3b 0a 20 20 66 66 6c 75 73 68   zBuf);.  fflush
72f0: 28 73 74 64 6f 75 74 29 3b 0a 7d 0a 23 65 6e 64  (stdout);.}.#end
7300: 69 66 0a                                         if.