/ Hex Artifact Content
Login

Artifact d2678b06cfa07be9b14c330a42310f62340e34ce:


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 23 64 65 66 69 6e 65 20 65 74 42 55  if..#define etBU
18f0: 46 53 49 5a 45 20 31 30 30 30 20 20 2f 2a 20 53  FSIZE 1000  /* S
1900: 69 7a 65 20 6f 66 20 74 68 65 20 6f 75 74 70 75  ize of the outpu
1910: 74 20 62 75 66 66 65 72 20 2a 2f 0a 0a 2f 2a 0a  t buffer */../*.
1920: 2a 2a 20 54 68 65 20 72 6f 6f 74 20 70 72 6f 67  ** The root prog
1930: 72 61 6d 2e 20 20 41 6c 6c 20 76 61 72 69 61 74  ram.  All variat
1940: 69 6f 6e 73 20 63 61 6c 6c 20 74 68 69 73 20 63  ions call this c
1950: 6f 72 65 2e 0a 2a 2a 0a 2a 2a 20 49 4e 50 55 54  ore..**.** INPUT
1960: 53 3a 0a 2a 2a 20 20 20 66 75 6e 63 20 20 20 54  S:.**   func   T
1970: 68 69 73 20 69 73 20 61 20 70 6f 69 6e 74 65 72  his is a pointer
1980: 20 74 6f 20 61 20 66 75 6e 63 74 69 6f 6e 20 74   to a function t
1990: 61 6b 69 6e 67 20 74 68 72 65 65 20 61 72 67 75  aking three argu
19a0: 6d 65 6e 74 73 0a 2a 2a 20 20 20 20 20 20 20 20  ments.**        
19b0: 20 20 20 20 31 2e 20 41 20 70 6f 69 6e 74 65 72      1. A pointer
19c0: 20 74 6f 20 61 6e 79 74 68 69 6e 67 2e 20 20 53   to anything.  S
19d0: 61 6d 65 20 61 73 20 74 68 65 20 22 61 72 67 22  ame as the "arg"
19e0: 20 70 61 72 61 6d 65 74 65 72 2e 0a 2a 2a 20 20   parameter..**  
19f0: 20 20 20 20 20 20 20 20 20 20 32 2e 20 41 20 70            2. A p
1a00: 6f 69 6e 74 65 72 20 74 6f 20 74 68 65 20 6c 69  ointer to the li
1a10: 73 74 20 6f 66 20 63 68 61 72 61 63 74 65 72 73  st of characters
1a20: 20 74 6f 20 62 65 20 6f 75 74 70 75 74 0a 2a 2a   to be output.**
1a30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28                 (
1a40: 4e 6f 74 65 2c 20 74 68 69 73 20 6c 69 73 74 20  Note, this list 
1a50: 69 73 20 4e 4f 54 20 6e 75 6c 6c 20 74 65 72 6d  is NOT null term
1a60: 69 6e 61 74 65 64 2e 29 0a 2a 2a 20 20 20 20 20  inated.).**     
1a70: 20 20 20 20 20 20 20 33 2e 20 41 6e 20 69 6e 74         3. An int
1a80: 65 67 65 72 20 6e 75 6d 62 65 72 20 6f 66 20 63  eger number of c
1a90: 68 61 72 61 63 74 65 72 73 20 74 6f 20 62 65 20  haracters to be 
1aa0: 6f 75 74 70 75 74 2e 0a 2a 2a 20 20 20 20 20 20  output..**      
1ab0: 20 20 20 20 20 20 20 20 20 28 4e 6f 74 65 3a 20           (Note: 
1ac0: 54 68 69 73 20 6e 75 6d 62 65 72 20 6d 69 67 68  This number migh
1ad0: 74 20 62 65 20 7a 65 72 6f 2e 29 0a 2a 2a 0a 2a  t be zero.).**.*
1ae0: 2a 20 20 20 61 72 67 20 20 20 20 54 68 69 73 20  *   arg    This 
1af0: 69 73 20 74 68 65 20 70 6f 69 6e 74 65 72 20 74  is the pointer t
1b00: 6f 20 61 6e 79 74 68 69 6e 67 20 77 68 69 63 68  o anything which
1b10: 20 77 69 6c 6c 20 62 65 20 70 61 73 73 65 64 20   will be passed 
1b20: 61 73 20 74 68 65 0a 2a 2a 20 20 20 20 20 20 20  as the.**       
1b30: 20 20 20 66 69 72 73 74 20 61 72 67 75 6d 65 6e     first argumen
1b40: 74 20 74 6f 20 22 66 75 6e 63 22 2e 20 20 55 73  t to "func".  Us
1b50: 65 20 69 74 20 66 6f 72 20 77 68 61 74 65 76 65  e it for whateve
1b60: 72 20 79 6f 75 20 6c 69 6b 65 2e 0a 2a 2a 0a 2a  r you like..**.*
1b70: 2a 20 20 20 66 6d 74 20 20 20 20 54 68 69 73 20  *   fmt    This 
1b80: 69 73 20 74 68 65 20 66 6f 72 6d 61 74 20 73 74  is the format st
1b90: 72 69 6e 67 2c 20 61 73 20 69 6e 20 74 68 65 20  ring, as in the 
1ba0: 75 73 75 61 6c 20 70 72 69 6e 74 2e 0a 2a 2a 0a  usual print..**.
1bb0: 2a 2a 20 20 20 61 70 20 20 20 20 20 54 68 69 73  **   ap     This
1bc0: 20 69 73 20 61 20 70 6f 69 6e 74 65 72 20 74 6f   is a pointer to
1bd0: 20 61 20 6c 69 73 74 20 6f 66 20 61 72 67 75 6d   a list of argum
1be0: 65 6e 74 73 2e 20 20 53 61 6d 65 20 61 73 20 69  ents.  Same as i
1bf0: 6e 0a 2a 2a 20 20 20 20 20 20 20 20 20 20 76 66  n.**          vf
1c00: 70 72 69 6e 74 2e 0a 2a 2a 0a 2a 2a 20 4f 55 54  print..**.** OUT
1c10: 50 55 54 53 3a 0a 2a 2a 20 20 20 20 20 20 20 20  PUTS:.**        
1c20: 20 20 54 68 65 20 72 65 74 75 72 6e 20 76 61 6c    The return val
1c30: 75 65 20 69 73 20 74 68 65 20 74 6f 74 61 6c 20  ue is the total 
1c40: 6e 75 6d 62 65 72 20 6f 66 20 63 68 61 72 61 63  number of charac
1c50: 74 65 72 73 20 73 65 6e 74 20 74 6f 0a 2a 2a 20  ters sent to.** 
1c60: 20 20 20 20 20 20 20 20 20 74 68 65 20 66 75 6e           the fun
1c70: 63 74 69 6f 6e 20 22 66 75 6e 63 22 2e 20 20 52  ction "func".  R
1c80: 65 74 75 72 6e 73 20 2d 31 20 6f 6e 20 61 20 65  eturns -1 on a e
1c90: 72 72 6f 72 2e 0a 2a 2a 0a 2a 2a 20 4e 6f 74 65  rror..**.** Note
1ca0: 20 74 68 61 74 20 74 68 65 20 6f 72 64 65 72 20   that the order 
1cb0: 69 6e 20 77 68 69 63 68 20 61 75 74 6f 6d 61 74  in which automat
1cc0: 69 63 20 76 61 72 69 61 62 6c 65 73 20 61 72 65  ic variables are
1cd0: 20 64 65 63 6c 61 72 65 64 20 62 65 6c 6f 77 0a   declared below.
1ce0: 2a 2a 20 73 65 65 6d 73 20 74 6f 20 6d 61 6b 65  ** seems to make
1cf0: 20 61 20 62 69 67 20 64 69 66 66 65 72 65 6e 63   a big differenc
1d00: 65 20 69 6e 20 64 65 74 65 72 6d 69 6e 69 6e 67  e in determining
1d10: 20 68 6f 77 20 66 61 73 74 20 74 68 69 73 20 62   how fast this b
1d20: 65 61 73 74 0a 2a 2a 20 77 69 6c 6c 20 72 75 6e  east.** will run
1d30: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20  ..*/.static int 
1d40: 76 78 70 72 69 6e 74 66 28 0a 20 20 76 6f 69 64  vxprintf(.  void
1d50: 20 28 2a 66 75 6e 63 29 28 76 6f 69 64 2a 2c 63   (*func)(void*,c
1d60: 6f 6e 73 74 20 63 68 61 72 2a 2c 69 6e 74 29 2c  onst char*,int),
1d70: 20 20 20 20 20 2f 2a 20 43 6f 6e 73 75 6d 65 72       /* Consumer
1d80: 20 6f 66 20 74 65 78 74 20 2a 2f 0a 20 20 76 6f   of text */.  vo
1d90: 69 64 20 2a 61 72 67 2c 20 20 20 20 20 20 20 20  id *arg,        
1da0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1db0: 20 2f 2a 20 46 69 72 73 74 20 61 72 67 75 6d 65   /* First argume
1dc0: 6e 74 20 74 6f 20 74 68 65 20 63 6f 6e 73 75 6d  nt to the consum
1dd0: 65 72 20 2a 2f 0a 20 20 69 6e 74 20 75 73 65 45  er */.  int useE
1de0: 78 74 65 6e 64 65 64 2c 20 20 20 20 20 20 20 20  xtended,        
1df0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 41 6c             /* Al
1e00: 6c 6f 77 20 65 78 74 65 6e 64 65 64 20 25 2d 63  low extended %-c
1e10: 6f 6e 76 65 72 73 69 6f 6e 73 20 2a 2f 0a 20 20  onversions */.  
1e20: 63 6f 6e 73 74 20 63 68 61 72 20 2a 66 6d 74 2c  const char *fmt,
1e30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1e40: 20 20 20 2f 2a 20 46 6f 72 6d 61 74 20 73 74 72     /* Format str
1e50: 69 6e 67 20 2a 2f 0a 20 20 76 61 5f 6c 69 73 74  ing */.  va_list
1e60: 20 61 70 20 20 20 20 20 20 20 20 20 20 20 20 20   ap             
1e70: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 61              /* a
1e80: 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20  rguments */.){. 
1e90: 20 69 6e 74 20 63 3b 20 20 20 20 20 20 20 20 20   int c;         
1ea0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e              /* N
1eb0: 65 78 74 20 63 68 61 72 61 63 74 65 72 20 69 6e  ext character in
1ec0: 20 74 68 65 20 66 6f 72 6d 61 74 20 73 74 72 69   the format stri
1ed0: 6e 67 20 2a 2f 0a 20 20 63 68 61 72 20 2a 62 75  ng */.  char *bu
1ee0: 66 70 74 3b 20 20 20 20 20 20 20 20 20 20 20 20  fpt;            
1ef0: 20 20 20 2f 2a 20 50 6f 69 6e 74 65 72 20 74 6f     /* Pointer to
1f00: 20 74 68 65 20 63 6f 6e 76 65 72 73 69 6f 6e 20   the conversion 
1f10: 62 75 66 66 65 72 20 2a 2f 0a 20 20 69 6e 74 20  buffer */.  int 
1f20: 70 72 65 63 69 73 69 6f 6e 3b 20 20 20 20 20 20  precision;      
1f30: 20 20 20 20 20 20 20 2f 2a 20 50 72 65 63 69 73         /* Precis
1f40: 69 6f 6e 20 6f 66 20 74 68 65 20 63 75 72 72 65  ion of the curre
1f50: 6e 74 20 66 69 65 6c 64 20 2a 2f 0a 20 20 69 6e  nt field */.  in
1f60: 74 20 6c 65 6e 67 74 68 3b 20 20 20 20 20 20 20  t length;       
1f70: 20 20 20 20 20 20 20 20 20 2f 2a 20 4c 65 6e 67           /* Leng
1f80: 74 68 20 6f 66 20 74 68 65 20 66 69 65 6c 64 20  th of the field 
1f90: 2a 2f 0a 20 20 69 6e 74 20 69 64 78 3b 20 20 20  */.  int idx;   
1fa0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1fb0: 2f 2a 20 41 20 67 65 6e 65 72 61 6c 20 70 75 72  /* A general pur
1fc0: 70 6f 73 65 20 6c 6f 6f 70 20 63 6f 75 6e 74 65  pose loop counte
1fd0: 72 20 2a 2f 0a 20 20 69 6e 74 20 63 6f 75 6e 74  r */.  int count
1fe0: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ;               
1ff0: 20 20 2f 2a 20 54 6f 74 61 6c 20 6e 75 6d 62 65    /* Total numbe
2000: 72 20 6f 66 20 63 68 61 72 61 63 74 65 72 73 20  r of characters 
2010: 6f 75 74 70 75 74 20 2a 2f 0a 20 20 69 6e 74 20  output */.  int 
2020: 77 69 64 74 68 3b 20 20 20 20 20 20 20 20 20 20  width;          
2030: 20 20 20 20 20 20 20 2f 2a 20 57 69 64 74 68 20         /* Width 
2040: 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 66  of the current f
2050: 69 65 6c 64 20 2a 2f 0a 20 20 65 74 42 79 74 65  ield */.  etByte
2060: 20 66 6c 61 67 5f 6c 65 66 74 6a 75 73 74 69 66   flag_leftjustif
2070: 79 3b 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20  y;   /* True if 
2080: 22 2d 22 20 66 6c 61 67 20 69 73 20 70 72 65 73  "-" flag is pres
2090: 65 6e 74 20 2a 2f 0a 20 20 65 74 42 79 74 65 20  ent */.  etByte 
20a0: 66 6c 61 67 5f 70 6c 75 73 73 69 67 6e 3b 20 20  flag_plussign;  
20b0: 20 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20 22      /* True if "
20c0: 2b 22 20 66 6c 61 67 20 69 73 20 70 72 65 73 65  +" flag is prese
20d0: 6e 74 20 2a 2f 0a 20 20 65 74 42 79 74 65 20 66  nt */.  etByte f
20e0: 6c 61 67 5f 62 6c 61 6e 6b 73 69 67 6e 3b 20 20  lag_blanksign;  
20f0: 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20 22 20     /* True if " 
2100: 22 20 66 6c 61 67 20 69 73 20 70 72 65 73 65 6e  " flag is presen
2110: 74 20 2a 2f 0a 20 20 65 74 42 79 74 65 20 66 6c  t */.  etByte fl
2120: 61 67 5f 61 6c 74 65 72 6e 61 74 65 66 6f 72 6d  ag_alternateform
2130: 3b 20 2f 2a 20 54 72 75 65 20 69 66 20 22 23 22  ; /* True if "#"
2140: 20 66 6c 61 67 20 69 73 20 70 72 65 73 65 6e 74   flag is present
2150: 20 2a 2f 0a 20 20 65 74 42 79 74 65 20 66 6c 61   */.  etByte fla
2160: 67 5f 61 6c 74 66 6f 72 6d 32 3b 20 20 20 20 20  g_altform2;     
2170: 20 2f 2a 20 54 72 75 65 20 69 66 20 22 21 22 20   /* True if "!" 
2180: 66 6c 61 67 20 69 73 20 70 72 65 73 65 6e 74 20  flag is present 
2190: 2a 2f 0a 20 20 65 74 42 79 74 65 20 66 6c 61 67  */.  etByte flag
21a0: 5f 7a 65 72 6f 70 61 64 3b 20 20 20 20 20 20 20  _zeropad;       
21b0: 2f 2a 20 54 72 75 65 20 69 66 20 66 69 65 6c 64  /* True if field
21c0: 20 77 69 64 74 68 20 63 6f 6e 73 74 61 6e 74 20   width constant 
21d0: 73 74 61 72 74 73 20 77 69 74 68 20 7a 65 72 6f  starts with zero
21e0: 20 2a 2f 0a 20 20 65 74 42 79 74 65 20 66 6c 61   */.  etByte fla
21f0: 67 5f 6c 6f 6e 67 3b 20 20 20 20 20 20 20 20 20  g_long;         
2200: 20 2f 2a 20 54 72 75 65 20 69 66 20 22 6c 22 20   /* True if "l" 
2210: 66 6c 61 67 20 69 73 20 70 72 65 73 65 6e 74 20  flag is present 
2220: 2a 2f 0a 20 20 65 74 42 79 74 65 20 66 6c 61 67  */.  etByte flag
2230: 5f 6c 6f 6e 67 6c 6f 6e 67 3b 20 20 20 20 20 20  _longlong;      
2240: 2f 2a 20 54 72 75 65 20 69 66 20 74 68 65 20 22  /* True if the "
2250: 6c 6c 22 20 66 6c 61 67 20 69 73 20 70 72 65 73  ll" flag is pres
2260: 65 6e 74 20 2a 2f 0a 20 20 65 74 42 79 74 65 20  ent */.  etByte 
2270: 64 6f 6e 65 3b 20 20 20 20 20 20 20 20 20 20 20  done;           
2280: 20 20 20 20 2f 2a 20 4c 6f 6f 70 20 74 65 72 6d      /* Loop term
2290: 69 6e 61 74 69 6f 6e 20 66 6c 61 67 20 2a 2f 0a  ination flag */.
22a0: 20 20 55 49 4e 54 36 34 5f 54 59 50 45 20 6c 6f    UINT64_TYPE lo
22b0: 6e 67 76 61 6c 75 65 3b 20 20 20 20 20 2f 2a 20  ngvalue;     /* 
22c0: 56 61 6c 75 65 20 66 6f 72 20 69 6e 74 65 67 65  Value for intege
22d0: 72 20 74 79 70 65 73 20 2a 2f 0a 20 20 4c 4f 4e  r types */.  LON
22e0: 47 44 4f 55 42 4c 45 5f 54 59 50 45 20 72 65 61  GDOUBLE_TYPE rea
22f0: 6c 76 61 6c 75 65 3b 20 2f 2a 20 56 61 6c 75 65  lvalue; /* Value
2300: 20 66 6f 72 20 72 65 61 6c 20 74 79 70 65 73 20   for real types 
2310: 2a 2f 0a 20 20 63 6f 6e 73 74 20 65 74 5f 69 6e  */.  const et_in
2320: 66 6f 20 2a 69 6e 66 6f 70 3b 20 20 20 20 20 20  fo *infop;      
2330: 2f 2a 20 50 6f 69 6e 74 65 72 20 74 6f 20 74 68  /* Pointer to th
2340: 65 20 61 70 70 72 6f 70 72 69 61 74 65 20 69 6e  e appropriate in
2350: 66 6f 20 73 74 72 75 63 74 75 72 65 20 2a 2f 0a  fo structure */.
2360: 20 20 63 68 61 72 20 62 75 66 5b 65 74 42 55 46    char buf[etBUF
2370: 53 49 5a 45 5d 3b 20 20 20 20 20 20 20 2f 2a 20  SIZE];       /* 
2380: 43 6f 6e 76 65 72 73 69 6f 6e 20 62 75 66 66 65  Conversion buffe
2390: 72 20 2a 2f 0a 20 20 63 68 61 72 20 70 72 65 66  r */.  char pref
23a0: 69 78 3b 20 20 20 20 20 20 20 20 20 20 20 20 20  ix;             
23b0: 20 20 2f 2a 20 50 72 65 66 69 78 20 63 68 61 72    /* Prefix char
23c0: 61 63 74 65 72 2e 20 20 22 2b 22 20 6f 72 20 22  acter.  "+" or "
23d0: 2d 22 20 6f 72 20 22 20 22 20 6f 72 20 27 5c 30  -" or " " or '\0
23e0: 27 2e 20 2a 2f 0a 20 20 65 74 42 79 74 65 20 65  '. */.  etByte e
23f0: 72 72 6f 72 66 6c 61 67 20 3d 20 30 3b 20 20 20  rrorflag = 0;   
2400: 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20 61 6e     /* True if an
2410: 20 65 72 72 6f 72 20 69 73 20 65 6e 63 6f 75 6e   error is encoun
2420: 74 65 72 65 64 20 2a 2f 0a 20 20 65 74 42 79 74  tered */.  etByt
2430: 65 20 78 74 79 70 65 3b 20 20 20 20 20 20 20 20  e xtype;        
2440: 20 20 20 20 20 20 2f 2a 20 43 6f 6e 76 65 72 73        /* Convers
2450: 69 6f 6e 20 70 61 72 61 64 69 67 6d 20 2a 2f 0a  ion paradigm */.
2460: 20 20 63 68 61 72 20 2a 7a 45 78 74 72 61 3b 20    char *zExtra; 
2470: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
2480: 45 78 74 72 61 20 6d 65 6d 6f 72 79 20 75 73 65  Extra memory use
2490: 64 20 66 6f 72 20 65 74 54 43 4c 45 53 43 41 50  d for etTCLESCAP
24a0: 45 20 63 6f 6e 76 65 72 73 69 6f 6e 73 20 2a 2f  E conversions */
24b0: 0a 20 20 73 74 61 74 69 63 20 63 6f 6e 73 74 20  .  static const 
24c0: 63 68 61 72 20 73 70 61 63 65 73 5b 5d 20 3d 0a  char spaces[] =.
24d0: 20 20 20 22 20 20 20 20 20 20 20 20 20 20 20 20     "            
24e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
24f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2510: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 0a               ";.
2520: 23 64 65 66 69 6e 65 20 65 74 53 50 41 43 45 53  #define etSPACES
2530: 49 5a 45 20 28 73 69 7a 65 6f 66 28 73 70 61 63  IZE (sizeof(spac
2540: 65 73 29 2d 31 29 0a 23 69 66 6e 64 65 66 20 65  es)-1).#ifndef e
2550: 74 4e 4f 46 4c 4f 41 54 49 4e 47 50 4f 49 4e 54  tNOFLOATINGPOINT
2560: 0a 20 20 69 6e 74 20 20 65 78 70 2c 20 65 32 3b  .  int  exp, e2;
2570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
2580: 20 65 78 70 6f 6e 65 6e 74 20 6f 66 20 72 65 61   exponent of rea
2590: 6c 20 6e 75 6d 62 65 72 73 20 2a 2f 0a 20 20 64  l numbers */.  d
25a0: 6f 75 62 6c 65 20 72 6f 75 6e 64 65 72 3b 20 20  ouble rounder;  
25b0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 55 73 65            /* Use
25c0: 64 20 66 6f 72 20 72 6f 75 6e 64 69 6e 67 20 66  d for rounding f
25d0: 6c 6f 61 74 69 6e 67 20 70 6f 69 6e 74 20 76 61  loating point va
25e0: 6c 75 65 73 20 2a 2f 0a 20 20 65 74 42 79 74 65  lues */.  etByte
25f0: 20 66 6c 61 67 5f 64 70 3b 20 20 20 20 20 20 20   flag_dp;       
2600: 20 20 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20       /* True if 
2610: 64 65 63 69 6d 61 6c 20 70 6f 69 6e 74 20 73 68  decimal point sh
2620: 6f 75 6c 64 20 62 65 20 73 68 6f 77 6e 20 2a 2f  ould be shown */
2630: 0a 20 20 65 74 42 79 74 65 20 66 6c 61 67 5f 72  .  etByte flag_r
2640: 74 7a 3b 20 20 20 20 20 20 20 20 20 20 20 2f 2a  tz;           /*
2650: 20 54 72 75 65 20 69 66 20 74 72 61 69 6c 69 6e   True if trailin
2660: 67 20 7a 65 72 6f 73 20 73 68 6f 75 6c 64 20 62  g zeros should b
2670: 65 20 72 65 6d 6f 76 65 64 20 2a 2f 0a 20 20 65  e removed */.  e
2680: 74 42 79 74 65 20 66 6c 61 67 5f 65 78 70 3b 20  tByte flag_exp; 
2690: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 72 75            /* Tru
26a0: 65 20 74 6f 20 66 6f 72 63 65 20 64 69 73 70 6c  e to force displ
26b0: 61 79 20 6f 66 20 74 68 65 20 65 78 70 6f 6e 65  ay of the expone
26c0: 6e 74 20 2a 2f 0a 20 20 69 6e 74 20 6e 73 64 3b  nt */.  int nsd;
26d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
26e0: 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20     /* Number of 
26f0: 73 69 67 6e 69 66 69 63 61 6e 74 20 64 69 67 69  significant digi
2700: 74 73 20 72 65 74 75 72 6e 65 64 20 2a 2f 0a 23  ts returned */.#
2710: 65 6e 64 69 66 0a 0a 20 20 66 75 6e 63 28 61 72  endif..  func(ar
2720: 67 2c 22 22 2c 30 29 3b 0a 20 20 63 6f 75 6e 74  g,"",0);.  count
2730: 20 3d 20 6c 65 6e 67 74 68 20 3d 20 30 3b 0a 20   = length = 0;. 
2740: 20 62 75 66 70 74 20 3d 20 30 3b 0a 20 20 66 6f   bufpt = 0;.  fo
2750: 72 28 3b 20 28 63 3d 28 2a 66 6d 74 29 29 21 3d  r(; (c=(*fmt))!=
2760: 30 3b 20 2b 2b 66 6d 74 29 7b 0a 20 20 20 20 69  0; ++fmt){.    i
2770: 66 28 20 63 21 3d 27 25 27 20 29 7b 0a 20 20 20  f( c!='%' ){.   
2780: 20 20 20 69 6e 74 20 61 6d 74 3b 0a 20 20 20 20     int amt;.    
2790: 20 20 62 75 66 70 74 20 3d 20 28 63 68 61 72 20    bufpt = (char 
27a0: 2a 29 66 6d 74 3b 0a 20 20 20 20 20 20 61 6d 74  *)fmt;.      amt
27b0: 20 3d 20 31 3b 0a 20 20 20 20 20 20 77 68 69 6c   = 1;.      whil
27c0: 65 28 20 28 63 3d 28 2a 2b 2b 66 6d 74 29 29 21  e( (c=(*++fmt))!
27d0: 3d 27 25 27 20 26 26 20 63 21 3d 30 20 29 20 61  ='%' && c!=0 ) a
27e0: 6d 74 2b 2b 3b 0a 20 20 20 20 20 20 28 2a 66 75  mt++;.      (*fu
27f0: 6e 63 29 28 61 72 67 2c 62 75 66 70 74 2c 61 6d  nc)(arg,bufpt,am
2800: 74 29 3b 0a 20 20 20 20 20 20 63 6f 75 6e 74 20  t);.      count 
2810: 2b 3d 20 61 6d 74 3b 0a 20 20 20 20 20 20 69 66  += amt;.      if
2820: 28 20 63 3d 3d 30 20 29 20 62 72 65 61 6b 3b 0a  ( c==0 ) break;.
2830: 20 20 20 20 7d 0a 20 20 20 20 69 66 28 20 28 63      }.    if( (c
2840: 3d 28 2a 2b 2b 66 6d 74 29 29 3d 3d 30 20 29 7b  =(*++fmt))==0 ){
2850: 0a 20 20 20 20 20 20 65 72 72 6f 72 66 6c 61 67  .      errorflag
2860: 20 3d 20 31 3b 0a 20 20 20 20 20 20 28 2a 66 75   = 1;.      (*fu
2870: 6e 63 29 28 61 72 67 2c 22 25 22 2c 31 29 3b 0a  nc)(arg,"%",1);.
2880: 20 20 20 20 20 20 63 6f 75 6e 74 2b 2b 3b 0a 20        count++;. 
2890: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20       break;.    
28a0: 7d 0a 20 20 20 20 2f 2a 20 46 69 6e 64 20 6f 75  }.    /* Find ou
28b0: 74 20 77 68 61 74 20 66 6c 61 67 73 20 61 72 65  t what flags are
28c0: 20 70 72 65 73 65 6e 74 20 2a 2f 0a 20 20 20 20   present */.    
28d0: 66 6c 61 67 5f 6c 65 66 74 6a 75 73 74 69 66 79  flag_leftjustify
28e0: 20 3d 20 66 6c 61 67 5f 70 6c 75 73 73 69 67 6e   = flag_plussign
28f0: 20 3d 20 66 6c 61 67 5f 62 6c 61 6e 6b 73 69 67   = flag_blanksig
2900: 6e 20 3d 20 0a 20 20 20 20 20 66 6c 61 67 5f 61  n = .     flag_a
2910: 6c 74 65 72 6e 61 74 65 66 6f 72 6d 20 3d 20 66  lternateform = f
2920: 6c 61 67 5f 61 6c 74 66 6f 72 6d 32 20 3d 20 66  lag_altform2 = f
2930: 6c 61 67 5f 7a 65 72 6f 70 61 64 20 3d 20 30 3b  lag_zeropad = 0;
2940: 0a 20 20 20 20 64 6f 6e 65 20 3d 20 30 3b 0a 20  .    done = 0;. 
2950: 20 20 20 64 6f 7b 0a 20 20 20 20 20 20 73 77 69     do{.      swi
2960: 74 63 68 28 20 63 20 29 7b 0a 20 20 20 20 20 20  tch( c ){.      
2970: 20 20 63 61 73 65 20 27 2d 27 3a 20 20 20 66 6c    case '-':   fl
2980: 61 67 5f 6c 65 66 74 6a 75 73 74 69 66 79 20 3d  ag_leftjustify =
2990: 20 31 3b 20 20 20 20 20 62 72 65 61 6b 3b 0a 20   1;     break;. 
29a0: 20 20 20 20 20 20 20 63 61 73 65 20 27 2b 27 3a         case '+':
29b0: 20 20 20 66 6c 61 67 5f 70 6c 75 73 73 69 67 6e     flag_plussign
29c0: 20 3d 20 31 3b 20 20 20 20 20 20 20 20 62 72 65   = 1;        bre
29d0: 61 6b 3b 0a 20 20 20 20 20 20 20 20 63 61 73 65  ak;.        case
29e0: 20 27 20 27 3a 20 20 20 66 6c 61 67 5f 62 6c 61   ' ':   flag_bla
29f0: 6e 6b 73 69 67 6e 20 3d 20 31 3b 20 20 20 20 20  nksign = 1;     
2a00: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 20    break;.       
2a10: 20 63 61 73 65 20 27 23 27 3a 20 20 20 66 6c 61   case '#':   fla
2a20: 67 5f 61 6c 74 65 72 6e 61 74 65 66 6f 72 6d 20  g_alternateform 
2a30: 3d 20 31 3b 20 20 20 62 72 65 61 6b 3b 0a 20 20  = 1;   break;.  
2a40: 20 20 20 20 20 20 63 61 73 65 20 27 21 27 3a 20        case '!': 
2a50: 20 20 66 6c 61 67 5f 61 6c 74 66 6f 72 6d 32 20    flag_altform2 
2a60: 3d 20 31 3b 20 20 20 20 20 20 20 20 62 72 65 61  = 1;        brea
2a70: 6b 3b 0a 20 20 20 20 20 20 20 20 63 61 73 65 20  k;.        case 
2a80: 27 30 27 3a 20 20 20 66 6c 61 67 5f 7a 65 72 6f  '0':   flag_zero
2a90: 70 61 64 20 3d 20 31 3b 20 20 20 20 20 20 20 20  pad = 1;        
2aa0: 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 20 20   break;.        
2ab0: 64 65 66 61 75 6c 74 3a 20 20 20 20 64 6f 6e 65  default:    done
2ac0: 20 3d 20 31 3b 20 20 20 20 20 20 20 20 20 20 20   = 1;           
2ad0: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20        break;.   
2ae0: 20 20 20 7d 0a 20 20 20 20 7d 77 68 69 6c 65 28     }.    }while(
2af0: 20 21 64 6f 6e 65 20 26 26 20 28 63 3d 28 2a 2b   !done && (c=(*+
2b00: 2b 66 6d 74 29 29 21 3d 30 20 29 3b 0a 20 20 20  +fmt))!=0 );.   
2b10: 20 2f 2a 20 47 65 74 20 74 68 65 20 66 69 65 6c   /* Get the fiel
2b20: 64 20 77 69 64 74 68 20 2a 2f 0a 20 20 20 20 77  d width */.    w
2b30: 69 64 74 68 20 3d 20 30 3b 0a 20 20 20 20 69 66  idth = 0;.    if
2b40: 28 20 63 3d 3d 27 2a 27 20 29 7b 0a 20 20 20 20  ( c=='*' ){.    
2b50: 20 20 77 69 64 74 68 20 3d 20 76 61 5f 61 72 67    width = va_arg
2b60: 28 61 70 2c 69 6e 74 29 3b 0a 20 20 20 20 20 20  (ap,int);.      
2b70: 69 66 28 20 77 69 64 74 68 3c 30 20 29 7b 0a 20  if( width<0 ){. 
2b80: 20 20 20 20 20 20 20 66 6c 61 67 5f 6c 65 66 74         flag_left
2b90: 6a 75 73 74 69 66 79 20 3d 20 31 3b 0a 20 20 20  justify = 1;.   
2ba0: 20 20 20 20 20 77 69 64 74 68 20 3d 20 2d 77 69       width = -wi
2bb0: 64 74 68 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20  dth;.      }.   
2bc0: 20 20 20 63 20 3d 20 2a 2b 2b 66 6d 74 3b 0a 20     c = *++fmt;. 
2bd0: 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20     }else{.      
2be0: 77 68 69 6c 65 28 20 63 3e 3d 27 30 27 20 26 26  while( c>='0' &&
2bf0: 20 63 3c 3d 27 39 27 20 29 7b 0a 20 20 20 20 20   c<='9' ){.     
2c00: 20 20 20 77 69 64 74 68 20 3d 20 77 69 64 74 68     width = width
2c10: 2a 31 30 20 2b 20 63 20 2d 20 27 30 27 3b 0a 20  *10 + c - '0';. 
2c20: 20 20 20 20 20 20 20 63 20 3d 20 2a 2b 2b 66 6d         c = *++fm
2c30: 74 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d  t;.      }.    }
2c40: 0a 20 20 20 20 69 66 28 20 77 69 64 74 68 20 3e  .    if( width >
2c50: 20 65 74 42 55 46 53 49 5a 45 2d 31 30 20 29 7b   etBUFSIZE-10 ){
2c60: 0a 20 20 20 20 20 20 77 69 64 74 68 20 3d 20 65  .      width = e
2c70: 74 42 55 46 53 49 5a 45 2d 31 30 3b 0a 20 20 20  tBUFSIZE-10;.   
2c80: 20 7d 0a 20 20 20 20 2f 2a 20 47 65 74 20 74 68   }.    /* Get th
2c90: 65 20 70 72 65 63 69 73 69 6f 6e 20 2a 2f 0a 20  e precision */. 
2ca0: 20 20 20 69 66 28 20 63 3d 3d 27 2e 27 20 29 7b     if( c=='.' ){
2cb0: 0a 20 20 20 20 20 20 70 72 65 63 69 73 69 6f 6e  .      precision
2cc0: 20 3d 20 30 3b 0a 20 20 20 20 20 20 63 20 3d 20   = 0;.      c = 
2cd0: 2a 2b 2b 66 6d 74 3b 0a 20 20 20 20 20 20 69 66  *++fmt;.      if
2ce0: 28 20 63 3d 3d 27 2a 27 20 29 7b 0a 20 20 20 20  ( c=='*' ){.    
2cf0: 20 20 20 20 70 72 65 63 69 73 69 6f 6e 20 3d 20      precision = 
2d00: 76 61 5f 61 72 67 28 61 70 2c 69 6e 74 29 3b 0a  va_arg(ap,int);.
2d10: 20 20 20 20 20 20 20 20 69 66 28 20 70 72 65 63          if( prec
2d20: 69 73 69 6f 6e 3c 30 20 29 20 70 72 65 63 69 73  ision<0 ) precis
2d30: 69 6f 6e 20 3d 20 2d 70 72 65 63 69 73 69 6f 6e  ion = -precision
2d40: 3b 0a 20 20 20 20 20 20 20 20 63 20 3d 20 2a 2b  ;.        c = *+
2d50: 2b 66 6d 74 3b 0a 20 20 20 20 20 20 7d 65 6c 73  +fmt;.      }els
2d60: 65 7b 0a 20 20 20 20 20 20 20 20 77 68 69 6c 65  e{.        while
2d70: 28 20 63 3e 3d 27 30 27 20 26 26 20 63 3c 3d 27  ( c>='0' && c<='
2d80: 39 27 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20  9' ){.          
2d90: 70 72 65 63 69 73 69 6f 6e 20 3d 20 70 72 65 63  precision = prec
2da0: 69 73 69 6f 6e 2a 31 30 20 2b 20 63 20 2d 20 27  ision*10 + c - '
2db0: 30 27 3b 0a 20 20 20 20 20 20 20 20 20 20 63 20  0';.          c 
2dc0: 3d 20 2a 2b 2b 66 6d 74 3b 0a 20 20 20 20 20 20  = *++fmt;.      
2dd0: 20 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20    }.      }.    
2de0: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 70 72 65  }else{.      pre
2df0: 63 69 73 69 6f 6e 20 3d 20 2d 31 3b 0a 20 20 20  cision = -1;.   
2e00: 20 7d 0a 20 20 20 20 2f 2a 20 47 65 74 20 74 68   }.    /* Get th
2e10: 65 20 63 6f 6e 76 65 72 73 69 6f 6e 20 74 79 70  e conversion typ
2e20: 65 20 6d 6f 64 69 66 69 65 72 20 2a 2f 0a 20 20  e modifier */.  
2e30: 20 20 69 66 28 20 63 3d 3d 27 6c 27 20 29 7b 0a    if( c=='l' ){.
2e40: 20 20 20 20 20 20 66 6c 61 67 5f 6c 6f 6e 67 20        flag_long 
2e50: 3d 20 31 3b 0a 20 20 20 20 20 20 63 20 3d 20 2a  = 1;.      c = *
2e60: 2b 2b 66 6d 74 3b 0a 20 20 20 20 20 20 69 66 28  ++fmt;.      if(
2e70: 20 63 3d 3d 27 6c 27 20 29 7b 0a 20 20 20 20 20   c=='l' ){.     
2e80: 20 20 20 66 6c 61 67 5f 6c 6f 6e 67 6c 6f 6e 67     flag_longlong
2e90: 20 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 63 20   = 1;.        c 
2ea0: 3d 20 2a 2b 2b 66 6d 74 3b 0a 20 20 20 20 20 20  = *++fmt;.      
2eb0: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 66  }else{.        f
2ec0: 6c 61 67 5f 6c 6f 6e 67 6c 6f 6e 67 20 3d 20 30  lag_longlong = 0
2ed0: 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 65  ;.      }.    }e
2ee0: 6c 73 65 7b 0a 20 20 20 20 20 20 66 6c 61 67 5f  lse{.      flag_
2ef0: 6c 6f 6e 67 20 3d 20 66 6c 61 67 5f 6c 6f 6e 67  long = flag_long
2f00: 6c 6f 6e 67 20 3d 20 30 3b 0a 20 20 20 20 7d 0a  long = 0;.    }.
2f10: 20 20 20 20 2f 2a 20 46 65 74 63 68 20 74 68 65      /* Fetch the
2f20: 20 69 6e 66 6f 20 65 6e 74 72 79 20 66 6f 72 20   info entry for 
2f30: 74 68 65 20 66 69 65 6c 64 20 2a 2f 0a 20 20 20  the field */.   
2f40: 20 69 6e 66 6f 70 20 3d 20 30 3b 0a 20 20 20 20   infop = 0;.    
2f50: 78 74 79 70 65 20 3d 20 65 74 45 52 52 4f 52 3b  xtype = etERROR;
2f60: 0a 20 20 20 20 66 6f 72 28 69 64 78 3d 30 3b 20  .    for(idx=0; 
2f70: 69 64 78 3c 65 74 4e 49 4e 46 4f 3b 20 69 64 78  idx<etNINFO; idx
2f80: 2b 2b 29 7b 0a 20 20 20 20 20 20 69 66 28 20 63  ++){.      if( c
2f90: 3d 3d 66 6d 74 69 6e 66 6f 5b 69 64 78 5d 2e 66  ==fmtinfo[idx].f
2fa0: 6d 74 74 79 70 65 20 29 7b 0a 20 20 20 20 20 20  mttype ){.      
2fb0: 20 20 69 6e 66 6f 70 20 3d 20 26 66 6d 74 69 6e    infop = &fmtin
2fc0: 66 6f 5b 69 64 78 5d 3b 0a 20 20 20 20 20 20 20  fo[idx];.       
2fd0: 20 69 66 28 20 75 73 65 45 78 74 65 6e 64 65 64   if( useExtended
2fe0: 20 7c 7c 20 28 69 6e 66 6f 70 2d 3e 66 6c 61 67   || (infop->flag
2ff0: 73 20 26 20 46 4c 41 47 5f 49 4e 54 45 52 4e 29  s & FLAG_INTERN)
3000: 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20  ==0 ){.         
3010: 20 78 74 79 70 65 20 3d 20 69 6e 66 6f 70 2d 3e   xtype = infop->
3020: 74 79 70 65 3b 0a 20 20 20 20 20 20 20 20 7d 0a  type;.        }.
3030: 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20          break;. 
3040: 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20       }.    }.   
3050: 20 7a 45 78 74 72 61 20 3d 20 30 3b 0a 0a 20 20   zExtra = 0;..  
3060: 20 20 2f 2a 20 4c 69 6d 69 74 20 74 68 65 20 70    /* Limit the p
3070: 72 65 63 69 73 69 6f 6e 20 74 6f 20 70 72 65 76  recision to prev
3080: 65 6e 74 20 6f 76 65 72 66 6c 6f 77 69 6e 67 20  ent overflowing 
3090: 62 75 66 5b 5d 20 64 75 72 69 6e 67 20 63 6f 6e  buf[] during con
30a0: 76 65 72 73 69 6f 6e 20 2a 2f 0a 20 20 20 20 69  version */.    i
30b0: 66 28 20 70 72 65 63 69 73 69 6f 6e 3e 65 74 42  f( precision>etB
30c0: 55 46 53 49 5a 45 2d 34 30 20 26 26 20 28 69 6e  UFSIZE-40 && (in
30d0: 66 6f 70 2d 3e 66 6c 61 67 73 20 26 20 46 4c 41  fop->flags & FLA
30e0: 47 5f 53 54 52 49 4e 47 29 3d 3d 30 20 29 7b 0a  G_STRING)==0 ){.
30f0: 20 20 20 20 20 20 70 72 65 63 69 73 69 6f 6e 20        precision 
3100: 3d 20 65 74 42 55 46 53 49 5a 45 2d 34 30 3b 0a  = etBUFSIZE-40;.
3110: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20      }..    /*.  
3120: 20 20 2a 2a 20 41 74 20 74 68 69 73 20 70 6f 69    ** At this poi
3130: 6e 74 2c 20 76 61 72 69 61 62 6c 65 73 20 61 72  nt, variables ar
3140: 65 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 61 73  e initialized as
3150: 20 66 6f 6c 6c 6f 77 73 3a 0a 20 20 20 20 2a 2a   follows:.    **
3160: 0a 20 20 20 20 2a 2a 20 20 20 66 6c 61 67 5f 61  .    **   flag_a
3170: 6c 74 65 72 6e 61 74 65 66 6f 72 6d 20 20 20 20  lternateform    
3180: 20 20 20 20 20 20 54 52 55 45 20 69 66 20 61 20        TRUE if a 
3190: 27 23 27 20 69 73 20 70 72 65 73 65 6e 74 2e 0a  '#' is present..
31a0: 20 20 20 20 2a 2a 20 20 20 66 6c 61 67 5f 61 6c      **   flag_al
31b0: 74 66 6f 72 6d 32 20 20 20 20 20 20 20 20 20 20  tform2          
31c0: 20 20 20 20 20 54 52 55 45 20 69 66 20 61 20 27       TRUE if a '
31d0: 21 27 20 69 73 20 70 72 65 73 65 6e 74 2e 0a 20  !' is present.. 
31e0: 20 20 20 2a 2a 20 20 20 66 6c 61 67 5f 70 6c 75     **   flag_plu
31f0: 73 73 69 67 6e 20 20 20 20 20 20 20 20 20 20 20  ssign           
3200: 20 20 20 20 54 52 55 45 20 69 66 20 61 20 27 2b      TRUE if a '+
3210: 27 20 69 73 20 70 72 65 73 65 6e 74 2e 0a 20 20  ' is present..  
3220: 20 20 2a 2a 20 20 20 66 6c 61 67 5f 6c 65 66 74    **   flag_left
3230: 6a 75 73 74 69 66 79 20 20 20 20 20 20 20 20 20  justify         
3240: 20 20 20 54 52 55 45 20 69 66 20 61 20 27 2d 27     TRUE if a '-'
3250: 20 69 73 20 70 72 65 73 65 6e 74 20 6f 72 20 69   is present or i
3260: 66 20 74 68 65 0a 20 20 20 20 2a 2a 20 20 20 20  f the.    **    
3270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3280: 20 20 20 20 20 20 20 20 20 20 20 66 69 65 6c 64             field
3290: 20 77 69 64 74 68 20 77 61 73 20 6e 65 67 61 74   width was negat
32a0: 69 76 65 2e 0a 20 20 20 20 2a 2a 20 20 20 66 6c  ive..    **   fl
32b0: 61 67 5f 7a 65 72 6f 70 61 64 20 20 20 20 20 20  ag_zeropad      
32c0: 20 20 20 20 20 20 20 20 20 20 54 52 55 45 20 69            TRUE i
32d0: 66 20 74 68 65 20 77 69 64 74 68 20 62 65 67 61  f the width bega
32e0: 6e 20 77 69 74 68 20 30 2e 0a 20 20 20 20 2a 2a  n with 0..    **
32f0: 20 20 20 66 6c 61 67 5f 6c 6f 6e 67 20 20 20 20     flag_long    
3300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54                 T
3310: 52 55 45 20 69 66 20 74 68 65 20 6c 65 74 74 65  RUE if the lette
3320: 72 20 27 6c 27 20 28 65 6c 6c 29 20 70 72 65 66  r 'l' (ell) pref
3330: 69 78 65 64 0a 20 20 20 20 2a 2a 20 20 20 20 20  ixed.    **     
3340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3350: 20 20 20 20 20 20 20 20 20 20 74 68 65 20 63 6f            the co
3360: 6e 76 65 72 73 69 6f 6e 20 63 68 61 72 61 63 74  nversion charact
3370: 65 72 2e 0a 20 20 20 20 2a 2a 20 20 20 66 6c 61  er..    **   fla
3380: 67 5f 6c 6f 6e 67 6c 6f 6e 67 20 20 20 20 20 20  g_longlong      
3390: 20 20 20 20 20 20 20 20 20 54 52 55 45 20 69 66           TRUE if
33a0: 20 74 68 65 20 6c 65 74 74 65 72 20 27 6c 6c 27   the letter 'll'
33b0: 20 28 65 6c 6c 20 65 6c 6c 29 20 70 72 65 66 69   (ell ell) prefi
33c0: 78 65 64 0a 20 20 20 20 2a 2a 20 20 20 20 20 20  xed.    **      
33d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
33e0: 20 20 20 20 20 20 20 20 20 74 68 65 20 63 6f 6e           the con
33f0: 76 65 72 73 69 6f 6e 20 63 68 61 72 61 63 74 65  version characte
3400: 72 2e 0a 20 20 20 20 2a 2a 20 20 20 66 6c 61 67  r..    **   flag
3410: 5f 62 6c 61 6e 6b 73 69 67 6e 20 20 20 20 20 20  _blanksign      
3420: 20 20 20 20 20 20 20 20 54 52 55 45 20 69 66 20          TRUE if 
3430: 61 20 27 20 27 20 69 73 20 70 72 65 73 65 6e 74  a ' ' is present
3440: 2e 0a 20 20 20 20 2a 2a 20 20 20 77 69 64 74 68  ..    **   width
3450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3460: 20 20 20 20 20 20 20 54 68 65 20 73 70 65 63 69         The speci
3470: 66 69 65 64 20 66 69 65 6c 64 20 77 69 64 74 68  fied field width
3480: 2e 20 20 54 68 69 73 20 69 73 0a 20 20 20 20 2a  .  This is.    *
3490: 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  *               
34a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
34b0: 61 6c 77 61 79 73 20 6e 6f 6e 2d 6e 65 67 61 74  always non-negat
34c0: 69 76 65 2e 20 20 5a 65 72 6f 20 69 73 20 74 68  ive.  Zero is th
34d0: 65 20 64 65 66 61 75 6c 74 2e 0a 20 20 20 20 2a  e default..    *
34e0: 2a 20 20 20 70 72 65 63 69 73 69 6f 6e 20 20 20  *   precision   
34f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3500: 54 68 65 20 73 70 65 63 69 66 69 65 64 20 70 72  The specified pr
3510: 65 63 69 73 69 6f 6e 2e 20 20 54 68 65 20 64 65  ecision.  The de
3520: 66 61 75 6c 74 0a 20 20 20 20 2a 2a 20 20 20 20  fault.    **    
3530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3540: 20 20 20 20 20 20 20 20 20 20 20 69 73 20 2d 31             is -1
3550: 2e 0a 20 20 20 20 2a 2a 20 20 20 78 74 79 70 65  ..    **   xtype
3560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3570: 20 20 20 20 20 20 20 54 68 65 20 63 6c 61 73 73         The class
3580: 20 6f 66 20 74 68 65 20 63 6f 6e 76 65 72 73 69   of the conversi
3590: 6f 6e 2e 0a 20 20 20 20 2a 2a 20 20 20 69 6e 66  on..    **   inf
35a0: 6f 70 20 20 20 20 20 20 20 20 20 20 20 20 20 20  op              
35b0: 20 20 20 20 20 20 20 20 20 50 6f 69 6e 74 65 72           Pointer
35c0: 20 74 6f 20 74 68 65 20 61 70 70 72 6f 70 72 69   to the appropri
35d0: 61 74 65 20 69 6e 66 6f 20 73 74 72 75 63 74 2e  ate info struct.
35e0: 0a 20 20 20 20 2a 2f 0a 20 20 20 20 73 77 69 74  .    */.    swit
35f0: 63 68 28 20 78 74 79 70 65 20 29 7b 0a 20 20 20  ch( xtype ){.   
3600: 20 20 20 63 61 73 65 20 65 74 50 4f 49 4e 54 45     case etPOINTE
3610: 52 3a 0a 20 20 20 20 20 20 20 20 66 6c 61 67 5f  R:.        flag_
3620: 6c 6f 6e 67 6c 6f 6e 67 20 3d 20 73 69 7a 65 6f  longlong = sizeo
3630: 66 28 63 68 61 72 2a 29 3d 3d 73 69 7a 65 6f 66  f(char*)==sizeof
3640: 28 69 36 34 29 3b 0a 20 20 20 20 20 20 20 20 66  (i64);.        f
3650: 6c 61 67 5f 6c 6f 6e 67 20 3d 20 73 69 7a 65 6f  lag_long = sizeo
3660: 66 28 63 68 61 72 2a 29 3d 3d 73 69 7a 65 6f 66  f(char*)==sizeof
3670: 28 6c 6f 6e 67 20 69 6e 74 29 3b 0a 20 20 20 20  (long int);.    
3680: 20 20 20 20 2f 2a 20 46 61 6c 6c 20 74 68 72 6f      /* Fall thro
3690: 75 67 68 20 69 6e 74 6f 20 74 68 65 20 6e 65 78  ugh into the nex
36a0: 74 20 63 61 73 65 20 2a 2f 0a 20 20 20 20 20 20  t case */.      
36b0: 63 61 73 65 20 65 74 52 41 44 49 58 3a 0a 20 20  case etRADIX:.  
36c0: 20 20 20 20 20 20 69 66 28 20 69 6e 66 6f 70 2d        if( infop-
36d0: 3e 66 6c 61 67 73 20 26 20 46 4c 41 47 5f 53 49  >flags & FLAG_SI
36e0: 47 4e 45 44 20 29 7b 0a 20 20 20 20 20 20 20 20  GNED ){.        
36f0: 20 20 69 36 34 20 76 3b 0a 20 20 20 20 20 20 20    i64 v;.       
3700: 20 20 20 69 66 28 20 66 6c 61 67 5f 6c 6f 6e 67     if( flag_long
3710: 6c 6f 6e 67 20 29 20 20 20 76 20 3d 20 76 61 5f  long )   v = va_
3720: 61 72 67 28 61 70 2c 69 36 34 29 3b 0a 20 20 20  arg(ap,i64);.   
3730: 20 20 20 20 20 20 20 65 6c 73 65 20 69 66 28 20         else if( 
3740: 66 6c 61 67 5f 6c 6f 6e 67 20 29 20 20 76 20 3d  flag_long )  v =
3750: 20 76 61 5f 61 72 67 28 61 70 2c 6c 6f 6e 67 20   va_arg(ap,long 
3760: 69 6e 74 29 3b 0a 20 20 20 20 20 20 20 20 20 20  int);.          
3770: 65 6c 73 65 20 20 20 20 20 20 20 20 20 20 20 20  else            
3780: 20 20 20 20 20 20 76 20 3d 20 76 61 5f 61 72 67        v = va_arg
3790: 28 61 70 2c 69 6e 74 29 3b 0a 20 20 20 20 20 20  (ap,int);.      
37a0: 20 20 20 20 69 66 28 20 76 3c 30 20 29 7b 0a 20      if( v<0 ){. 
37b0: 20 20 20 20 20 20 20 20 20 20 20 6c 6f 6e 67 76             longv
37c0: 61 6c 75 65 20 3d 20 2d 76 3b 0a 20 20 20 20 20  alue = -v;.     
37d0: 20 20 20 20 20 20 20 70 72 65 66 69 78 20 3d 20         prefix = 
37e0: 27 2d 27 3b 0a 20 20 20 20 20 20 20 20 20 20 7d  '-';.          }
37f0: 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 20 20  else{.          
3800: 20 20 6c 6f 6e 67 76 61 6c 75 65 20 3d 20 76 3b    longvalue = v;
3810: 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 28  .            if(
3820: 20 66 6c 61 67 5f 70 6c 75 73 73 69 67 6e 20 29   flag_plussign )
3830: 20 20 20 20 20 20 20 20 70 72 65 66 69 78 20 3d          prefix =
3840: 20 27 2b 27 3b 0a 20 20 20 20 20 20 20 20 20 20   '+';.          
3850: 20 20 65 6c 73 65 20 69 66 28 20 66 6c 61 67 5f    else if( flag_
3860: 62 6c 61 6e 6b 73 69 67 6e 20 29 20 20 70 72 65  blanksign )  pre
3870: 66 69 78 20 3d 20 27 20 27 3b 0a 20 20 20 20 20  fix = ' ';.     
3880: 20 20 20 20 20 20 20 65 6c 73 65 20 20 20 20 20         else     
3890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
38a0: 20 20 70 72 65 66 69 78 20 3d 20 30 3b 0a 20 20    prefix = 0;.  
38b0: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
38c0: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20    }else{.       
38d0: 20 20 20 69 66 28 20 66 6c 61 67 5f 6c 6f 6e 67     if( flag_long
38e0: 6c 6f 6e 67 20 29 20 20 20 6c 6f 6e 67 76 61 6c  long )   longval
38f0: 75 65 20 3d 20 76 61 5f 61 72 67 28 61 70 2c 75  ue = va_arg(ap,u
3900: 36 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 65  64);.          e
3910: 6c 73 65 20 69 66 28 20 66 6c 61 67 5f 6c 6f 6e  lse if( flag_lon
3920: 67 20 29 20 20 6c 6f 6e 67 76 61 6c 75 65 20 3d  g )  longvalue =
3930: 20 76 61 5f 61 72 67 28 61 70 2c 75 6e 73 69 67   va_arg(ap,unsig
3940: 6e 65 64 20 6c 6f 6e 67 20 69 6e 74 29 3b 0a 20  ned long int);. 
3950: 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 20 20           else   
3960: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c                 l
3970: 6f 6e 67 76 61 6c 75 65 20 3d 20 76 61 5f 61 72  ongvalue = va_ar
3980: 67 28 61 70 2c 75 6e 73 69 67 6e 65 64 20 69 6e  g(ap,unsigned in
3990: 74 29 3b 0a 20 20 20 20 20 20 20 20 20 20 70 72  t);.          pr
39a0: 65 66 69 78 20 3d 20 30 3b 0a 20 20 20 20 20 20  efix = 0;.      
39b0: 20 20 7d 0a 20 20 20 20 20 20 20 20 69 66 28 20    }.        if( 
39c0: 6c 6f 6e 67 76 61 6c 75 65 3d 3d 30 20 29 20 66  longvalue==0 ) f
39d0: 6c 61 67 5f 61 6c 74 65 72 6e 61 74 65 66 6f 72  lag_alternatefor
39e0: 6d 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 69  m = 0;.        i
39f0: 66 28 20 66 6c 61 67 5f 7a 65 72 6f 70 61 64 20  f( flag_zeropad 
3a00: 26 26 20 70 72 65 63 69 73 69 6f 6e 3c 77 69 64  && precision<wid
3a10: 74 68 2d 28 70 72 65 66 69 78 21 3d 30 29 20 29  th-(prefix!=0) )
3a20: 7b 0a 20 20 20 20 20 20 20 20 20 20 70 72 65 63  {.          prec
3a30: 69 73 69 6f 6e 20 3d 20 77 69 64 74 68 2d 28 70  ision = width-(p
3a40: 72 65 66 69 78 21 3d 30 29 3b 0a 20 20 20 20 20  refix!=0);.     
3a50: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 62 75 66     }.        buf
3a60: 70 74 20 3d 20 26 62 75 66 5b 65 74 42 55 46 53  pt = &buf[etBUFS
3a70: 49 5a 45 2d 31 5d 3b 0a 20 20 20 20 20 20 20 20  IZE-1];.        
3a80: 7b 0a 20 20 20 20 20 20 20 20 20 20 72 65 67 69  {.          regi
3a90: 73 74 65 72 20 63 6f 6e 73 74 20 63 68 61 72 20  ster const char 
3aa0: 2a 63 73 65 74 3b 20 20 20 20 20 20 2f 2a 20 55  *cset;      /* U
3ab0: 73 65 20 72 65 67 69 73 74 65 72 73 20 66 6f 72  se registers for
3ac0: 20 73 70 65 65 64 20 2a 2f 0a 20 20 20 20 20 20   speed */.      
3ad0: 20 20 20 20 72 65 67 69 73 74 65 72 20 69 6e 74      register int
3ae0: 20 62 61 73 65 3b 0a 20 20 20 20 20 20 20 20 20   base;.         
3af0: 20 63 73 65 74 20 3d 20 26 61 44 69 67 69 74 73   cset = &aDigits
3b00: 5b 69 6e 66 6f 70 2d 3e 63 68 61 72 73 65 74 5d  [infop->charset]
3b10: 3b 0a 20 20 20 20 20 20 20 20 20 20 62 61 73 65  ;.          base
3b20: 20 3d 20 69 6e 66 6f 70 2d 3e 62 61 73 65 3b 0a   = infop->base;.
3b30: 20 20 20 20 20 20 20 20 20 20 64 6f 7b 20 20 20            do{   
3b40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3b50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3b60: 20 20 20 20 20 20 20 20 2f 2a 20 43 6f 6e 76 65          /* Conve
3b70: 72 74 20 74 6f 20 61 73 63 69 69 20 2a 2f 0a 20  rt to ascii */. 
3b80: 20 20 20 20 20 20 20 20 20 20 20 2a 28 2d 2d 62             *(--b
3b90: 75 66 70 74 29 20 3d 20 63 73 65 74 5b 6c 6f 6e  ufpt) = cset[lon
3ba0: 67 76 61 6c 75 65 25 62 61 73 65 5d 3b 0a 20 20  gvalue%base];.  
3bb0: 20 20 20 20 20 20 20 20 20 20 6c 6f 6e 67 76 61            longva
3bc0: 6c 75 65 20 3d 20 6c 6f 6e 67 76 61 6c 75 65 2f  lue = longvalue/
3bd0: 62 61 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20  base;.          
3be0: 7d 77 68 69 6c 65 28 20 6c 6f 6e 67 76 61 6c 75  }while( longvalu
3bf0: 65 3e 30 20 29 3b 0a 20 20 20 20 20 20 20 20 7d  e>0 );.        }
3c00: 0a 20 20 20 20 20 20 20 20 6c 65 6e 67 74 68 20  .        length 
3c10: 3d 20 26 62 75 66 5b 65 74 42 55 46 53 49 5a 45  = &buf[etBUFSIZE
3c20: 2d 31 5d 2d 62 75 66 70 74 3b 0a 20 20 20 20 20  -1]-bufpt;.     
3c30: 20 20 20 66 6f 72 28 69 64 78 3d 70 72 65 63 69     for(idx=preci
3c40: 73 69 6f 6e 2d 6c 65 6e 67 74 68 3b 20 69 64 78  sion-length; idx
3c50: 3e 30 3b 20 69 64 78 2d 2d 29 7b 0a 20 20 20 20  >0; idx--){.    
3c60: 20 20 20 20 20 20 2a 28 2d 2d 62 75 66 70 74 29        *(--bufpt)
3c70: 20 3d 20 27 30 27 3b 20 20 20 20 20 20 20 20 20   = '0';         
3c80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3c90: 20 20 20 20 2f 2a 20 5a 65 72 6f 20 70 61 64 20      /* Zero pad 
3ca0: 2a 2f 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20  */.        }.   
3cb0: 20 20 20 20 20 69 66 28 20 70 72 65 66 69 78 20       if( prefix 
3cc0: 29 20 2a 28 2d 2d 62 75 66 70 74 29 20 3d 20 70  ) *(--bufpt) = p
3cd0: 72 65 66 69 78 3b 20 20 20 20 20 20 20 20 20 20  refix;          
3ce0: 20 20 20 20 20 2f 2a 20 41 64 64 20 73 69 67 6e       /* Add sign
3cf0: 20 2a 2f 0a 20 20 20 20 20 20 20 20 69 66 28 20   */.        if( 
3d00: 66 6c 61 67 5f 61 6c 74 65 72 6e 61 74 65 66 6f  flag_alternatefo
3d10: 72 6d 20 26 26 20 69 6e 66 6f 70 2d 3e 70 72 65  rm && infop->pre
3d20: 66 69 78 20 29 7b 20 20 20 20 20 20 2f 2a 20 41  fix ){      /* A
3d30: 64 64 20 22 30 22 20 6f 72 20 22 30 78 22 20 2a  dd "0" or "0x" *
3d40: 2f 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6e 73  /.          cons
3d50: 74 20 63 68 61 72 20 2a 70 72 65 3b 0a 20 20 20  t char *pre;.   
3d60: 20 20 20 20 20 20 20 63 68 61 72 20 78 3b 0a 20         char x;. 
3d70: 20 20 20 20 20 20 20 20 20 70 72 65 20 3d 20 26           pre = &
3d80: 61 50 72 65 66 69 78 5b 69 6e 66 6f 70 2d 3e 70  aPrefix[infop->p
3d90: 72 65 66 69 78 5d 3b 0a 20 20 20 20 20 20 20 20  refix];.        
3da0: 20 20 69 66 28 20 2a 62 75 66 70 74 21 3d 70 72    if( *bufpt!=pr
3db0: 65 5b 30 5d 20 29 7b 0a 20 20 20 20 20 20 20 20  e[0] ){.        
3dc0: 20 20 20 20 66 6f 72 28 3b 20 28 78 3d 28 2a 70      for(; (x=(*p
3dd0: 72 65 29 29 21 3d 30 3b 20 70 72 65 2b 2b 29 20  re))!=0; pre++) 
3de0: 2a 28 2d 2d 62 75 66 70 74 29 20 3d 20 78 3b 0a  *(--bufpt) = x;.
3df0: 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20            }.    
3e00: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 6c 65      }.        le
3e10: 6e 67 74 68 20 3d 20 26 62 75 66 5b 65 74 42 55  ngth = &buf[etBU
3e20: 46 53 49 5a 45 2d 31 5d 2d 62 75 66 70 74 3b 0a  FSIZE-1]-bufpt;.
3e30: 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20          break;. 
3e40: 20 20 20 20 20 63 61 73 65 20 65 74 46 4c 4f 41       case etFLOA
3e50: 54 3a 0a 20 20 20 20 20 20 63 61 73 65 20 65 74  T:.      case et
3e60: 45 58 50 3a 0a 20 20 20 20 20 20 63 61 73 65 20  EXP:.      case 
3e70: 65 74 47 45 4e 45 52 49 43 3a 0a 20 20 20 20 20  etGENERIC:.     
3e80: 20 20 20 72 65 61 6c 76 61 6c 75 65 20 3d 20 76     realvalue = v
3e90: 61 5f 61 72 67 28 61 70 2c 64 6f 75 62 6c 65 29  a_arg(ap,double)
3ea0: 3b 0a 23 69 66 6e 64 65 66 20 65 74 4e 4f 46 4c  ;.#ifndef etNOFL
3eb0: 4f 41 54 49 4e 47 50 4f 49 4e 54 0a 20 20 20 20  OATINGPOINT.    
3ec0: 20 20 20 20 69 66 28 20 70 72 65 63 69 73 69 6f      if( precisio
3ed0: 6e 3c 30 20 29 20 70 72 65 63 69 73 69 6f 6e 20  n<0 ) precision 
3ee0: 3d 20 36 3b 20 20 20 20 20 20 20 20 20 2f 2a 20  = 6;         /* 
3ef0: 53 65 74 20 64 65 66 61 75 6c 74 20 70 72 65 63  Set default prec
3f00: 69 73 69 6f 6e 20 2a 2f 0a 20 20 20 20 20 20 20  ision */.       
3f10: 20 69 66 28 20 70 72 65 63 69 73 69 6f 6e 3e 65   if( precision>e
3f20: 74 42 55 46 53 49 5a 45 2f 32 2d 31 30 20 29 20  tBUFSIZE/2-10 ) 
3f30: 70 72 65 63 69 73 69 6f 6e 20 3d 20 65 74 42 55  precision = etBU
3f40: 46 53 49 5a 45 2f 32 2d 31 30 3b 0a 20 20 20 20  FSIZE/2-10;.    
3f50: 20 20 20 20 69 66 28 20 72 65 61 6c 76 61 6c 75      if( realvalu
3f60: 65 3c 30 2e 30 20 29 7b 0a 20 20 20 20 20 20 20  e<0.0 ){.       
3f70: 20 20 20 72 65 61 6c 76 61 6c 75 65 20 3d 20 2d     realvalue = -
3f80: 72 65 61 6c 76 61 6c 75 65 3b 0a 20 20 20 20 20  realvalue;.     
3f90: 20 20 20 20 20 70 72 65 66 69 78 20 3d 20 27 2d       prefix = '-
3fa0: 27 3b 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 65  ';.        }else
3fb0: 7b 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20  {.          if( 
3fc0: 66 6c 61 67 5f 70 6c 75 73 73 69 67 6e 20 29 20  flag_plussign ) 
3fd0: 20 20 20 20 20 20 20 20 20 70 72 65 66 69 78 20           prefix 
3fe0: 3d 20 27 2b 27 3b 0a 20 20 20 20 20 20 20 20 20  = '+';.         
3ff0: 20 65 6c 73 65 20 69 66 28 20 66 6c 61 67 5f 62   else if( flag_b
4000: 6c 61 6e 6b 73 69 67 6e 20 29 20 20 20 20 70 72  lanksign )    pr
4010: 65 66 69 78 20 3d 20 27 20 27 3b 0a 20 20 20 20  efix = ' ';.    
4020: 20 20 20 20 20 20 65 6c 73 65 20 20 20 20 20 20        else      
4030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4040: 20 20 20 70 72 65 66 69 78 20 3d 20 30 3b 0a 20     prefix = 0;. 
4050: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20         }.       
4060: 20 69 66 28 20 78 74 79 70 65 3d 3d 65 74 47 45   if( xtype==etGE
4070: 4e 45 52 49 43 20 26 26 20 70 72 65 63 69 73 69  NERIC && precisi
4080: 6f 6e 3e 30 20 29 20 70 72 65 63 69 73 69 6f 6e  on>0 ) precision
4090: 2d 2d 3b 0a 23 69 66 20 30 0a 20 20 20 20 20 20  --;.#if 0.      
40a0: 20 20 2f 2a 20 52 6f 75 6e 64 69 6e 67 20 77 6f    /* Rounding wo
40b0: 72 6b 73 20 6c 69 6b 65 20 42 53 44 20 77 68 65  rks like BSD whe
40c0: 6e 20 74 68 65 20 63 6f 6e 73 74 61 6e 74 20 30  n the constant 0
40d0: 2e 34 39 39 39 20 69 73 20 75 73 65 64 2e 20 20  .4999 is used.  
40e0: 57 69 65 72 64 21 20 2a 2f 0a 20 20 20 20 20 20  Wierd! */.      
40f0: 20 20 66 6f 72 28 69 64 78 3d 70 72 65 63 69 73    for(idx=precis
4100: 69 6f 6e 2c 20 72 6f 75 6e 64 65 72 3d 30 2e 34  ion, rounder=0.4
4110: 39 39 39 3b 20 69 64 78 3e 30 3b 20 69 64 78 2d  999; idx>0; idx-
4120: 2d 2c 20 72 6f 75 6e 64 65 72 2a 3d 30 2e 31 29  -, rounder*=0.1)
4130: 3b 0a 23 65 6c 73 65 0a 20 20 20 20 20 20 20 20  ;.#else.        
4140: 2f 2a 20 49 74 20 6d 61 6b 65 73 20 6d 6f 72 65  /* It makes more
4150: 20 73 65 6e 73 65 20 74 6f 20 75 73 65 20 30 2e   sense to use 0.
4160: 35 20 2a 2f 0a 20 20 20 20 20 20 20 20 66 6f 72  5 */.        for
4170: 28 69 64 78 3d 70 72 65 63 69 73 69 6f 6e 2c 20  (idx=precision, 
4180: 72 6f 75 6e 64 65 72 3d 30 2e 35 3b 20 69 64 78  rounder=0.5; idx
4190: 3e 30 3b 20 69 64 78 2d 2d 2c 20 72 6f 75 6e 64  >0; idx--, round
41a0: 65 72 2a 3d 30 2e 31 29 3b 0a 23 65 6e 64 69 66  er*=0.1);.#endif
41b0: 0a 20 20 20 20 20 20 20 20 69 66 28 20 78 74 79  .        if( xty
41c0: 70 65 3d 3d 65 74 46 4c 4f 41 54 20 29 20 72 65  pe==etFLOAT ) re
41d0: 61 6c 76 61 6c 75 65 20 2b 3d 20 72 6f 75 6e 64  alvalue += round
41e0: 65 72 3b 0a 20 20 20 20 20 20 20 20 2f 2a 20 4e  er;.        /* N
41f0: 6f 72 6d 61 6c 69 7a 65 20 72 65 61 6c 76 61 6c  ormalize realval
4200: 75 65 20 74 6f 20 77 69 74 68 69 6e 20 31 30 2e  ue to within 10.
4210: 30 20 3e 20 72 65 61 6c 76 61 6c 75 65 20 3e 3d  0 > realvalue >=
4220: 20 31 2e 30 20 2a 2f 0a 20 20 20 20 20 20 20 20   1.0 */.        
4230: 65 78 70 20 3d 20 30 3b 0a 20 20 20 20 20 20 20  exp = 0;.       
4240: 20 69 66 28 20 72 65 61 6c 76 61 6c 75 65 3e 30   if( realvalue>0
4250: 2e 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20  .0 ){.          
4260: 77 68 69 6c 65 28 20 72 65 61 6c 76 61 6c 75 65  while( realvalue
4270: 3e 3d 31 65 33 32 20 26 26 20 65 78 70 3c 3d 33  >=1e32 && exp<=3
4280: 35 30 20 29 7b 20 72 65 61 6c 76 61 6c 75 65 20  50 ){ realvalue 
4290: 2a 3d 20 31 65 2d 33 32 3b 20 65 78 70 2b 3d 33  *= 1e-32; exp+=3
42a0: 32 3b 20 7d 0a 20 20 20 20 20 20 20 20 20 20 77  2; }.          w
42b0: 68 69 6c 65 28 20 72 65 61 6c 76 61 6c 75 65 3e  hile( realvalue>
42c0: 3d 31 65 38 20 26 26 20 65 78 70 3c 3d 33 35 30  =1e8 && exp<=350
42d0: 20 29 7b 20 72 65 61 6c 76 61 6c 75 65 20 2a 3d   ){ realvalue *=
42e0: 20 31 65 2d 38 3b 20 65 78 70 2b 3d 38 3b 20 7d   1e-8; exp+=8; }
42f0: 0a 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65  .          while
4300: 28 20 72 65 61 6c 76 61 6c 75 65 3e 3d 31 30 2e  ( realvalue>=10.
4310: 30 20 26 26 20 65 78 70 3c 3d 33 35 30 20 29 7b  0 && exp<=350 ){
4320: 20 72 65 61 6c 76 61 6c 75 65 20 2a 3d 20 30 2e   realvalue *= 0.
4330: 31 3b 20 65 78 70 2b 2b 3b 20 7d 0a 20 20 20 20  1; exp++; }.    
4340: 20 20 20 20 20 20 77 68 69 6c 65 28 20 72 65 61        while( rea
4350: 6c 76 61 6c 75 65 3c 31 65 2d 38 20 26 26 20 65  lvalue<1e-8 && e
4360: 78 70 3e 3d 2d 33 35 30 20 29 7b 20 72 65 61 6c  xp>=-350 ){ real
4370: 76 61 6c 75 65 20 2a 3d 20 31 65 38 3b 20 65 78  value *= 1e8; ex
4380: 70 2d 3d 38 3b 20 7d 0a 20 20 20 20 20 20 20 20  p-=8; }.        
4390: 20 20 77 68 69 6c 65 28 20 72 65 61 6c 76 61 6c    while( realval
43a0: 75 65 3c 31 2e 30 20 26 26 20 65 78 70 3e 3d 2d  ue<1.0 && exp>=-
43b0: 33 35 30 20 29 7b 20 72 65 61 6c 76 61 6c 75 65  350 ){ realvalue
43c0: 20 2a 3d 20 31 30 2e 30 3b 20 65 78 70 2d 2d 3b   *= 10.0; exp--;
43d0: 20 7d 0a 20 20 20 20 20 20 20 20 20 20 69 66 28   }.          if(
43e0: 20 65 78 70 3e 33 35 30 20 7c 7c 20 65 78 70 3c   exp>350 || exp<
43f0: 2d 33 35 30 20 29 7b 0a 20 20 20 20 20 20 20 20  -350 ){.        
4400: 20 20 20 20 62 75 66 70 74 20 3d 20 22 4e 61 4e      bufpt = "NaN
4410: 22 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c  ";.            l
4420: 65 6e 67 74 68 20 3d 20 33 3b 0a 20 20 20 20 20  ength = 3;.     
4430: 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20         break;.  
4440: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
4450: 20 20 7d 0a 20 20 20 20 20 20 20 20 62 75 66 70    }.        bufp
4460: 74 20 3d 20 62 75 66 3b 0a 20 20 20 20 20 20 20  t = buf;.       
4470: 20 2f 2a 0a 20 20 20 20 20 20 20 20 2a 2a 20 49   /*.        ** I
4480: 66 20 74 68 65 20 66 69 65 6c 64 20 74 79 70 65  f the field type
4490: 20 69 73 20 65 74 47 45 4e 45 52 49 43 2c 20 74   is etGENERIC, t
44a0: 68 65 6e 20 63 6f 6e 76 65 72 74 20 74 6f 20 65  hen convert to e
44b0: 69 74 68 65 72 20 65 74 45 58 50 0a 20 20 20 20  ither etEXP.    
44c0: 20 20 20 20 2a 2a 20 6f 72 20 65 74 46 4c 4f 41      ** or etFLOA
44d0: 54 2c 20 61 73 20 61 70 70 72 6f 70 72 69 61 74  T, as appropriat
44e0: 65 2e 0a 20 20 20 20 20 20 20 20 2a 2f 0a 20 20  e..        */.  
44f0: 20 20 20 20 20 20 66 6c 61 67 5f 65 78 70 20 3d        flag_exp =
4500: 20 78 74 79 70 65 3d 3d 65 74 45 58 50 3b 0a 20   xtype==etEXP;. 
4510: 20 20 20 20 20 20 20 69 66 28 20 78 74 79 70 65         if( xtype
4520: 21 3d 65 74 46 4c 4f 41 54 20 29 7b 0a 20 20 20  !=etFLOAT ){.   
4530: 20 20 20 20 20 20 20 72 65 61 6c 76 61 6c 75 65         realvalue
4540: 20 2b 3d 20 72 6f 75 6e 64 65 72 3b 0a 20 20 20   += rounder;.   
4550: 20 20 20 20 20 20 20 69 66 28 20 72 65 61 6c 76         if( realv
4560: 61 6c 75 65 3e 3d 31 30 2e 30 20 29 7b 20 72 65  alue>=10.0 ){ re
4570: 61 6c 76 61 6c 75 65 20 2a 3d 20 30 2e 31 3b 20  alvalue *= 0.1; 
4580: 65 78 70 2b 2b 3b 20 7d 0a 20 20 20 20 20 20 20  exp++; }.       
4590: 20 7d 0a 20 20 20 20 20 20 20 20 69 66 28 20 78   }.        if( x
45a0: 74 79 70 65 3d 3d 65 74 47 45 4e 45 52 49 43 20  type==etGENERIC 
45b0: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 66 6c 61  ){.          fla
45c0: 67 5f 72 74 7a 20 3d 20 21 66 6c 61 67 5f 61 6c  g_rtz = !flag_al
45d0: 74 65 72 6e 61 74 65 66 6f 72 6d 3b 0a 20 20 20  ternateform;.   
45e0: 20 20 20 20 20 20 20 69 66 28 20 65 78 70 3c 2d         if( exp<-
45f0: 34 20 7c 7c 20 65 78 70 3e 70 72 65 63 69 73 69  4 || exp>precisi
4600: 6f 6e 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20  on ){.          
4610: 20 20 78 74 79 70 65 20 3d 20 65 74 45 58 50 3b    xtype = etEXP;
4620: 0a 20 20 20 20 20 20 20 20 20 20 7d 65 6c 73 65  .          }else
4630: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 72  {.            pr
4640: 65 63 69 73 69 6f 6e 20 3d 20 70 72 65 63 69 73  ecision = precis
4650: 69 6f 6e 20 2d 20 65 78 70 3b 0a 20 20 20 20 20  ion - exp;.     
4660: 20 20 20 20 20 20 20 78 74 79 70 65 20 3d 20 65         xtype = e
4670: 74 46 4c 4f 41 54 3b 0a 20 20 20 20 20 20 20 20  tFLOAT;.        
4680: 20 20 7d 0a 20 20 20 20 20 20 20 20 7d 65 6c 73    }.        }els
4690: 65 7b 0a 20 20 20 20 20 20 20 20 20 20 66 6c 61  e{.          fla
46a0: 67 5f 72 74 7a 20 3d 20 30 3b 0a 20 20 20 20 20  g_rtz = 0;.     
46b0: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 69 66 28     }.        if(
46c0: 20 78 74 79 70 65 3d 3d 65 74 45 58 50 20 29 7b   xtype==etEXP ){
46d0: 0a 20 20 20 20 20 20 20 20 20 20 65 32 20 3d 20  .          e2 = 
46e0: 30 3b 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 65  0;.        }else
46f0: 7b 0a 20 20 20 20 20 20 20 20 20 20 65 32 20 3d  {.          e2 =
4700: 20 65 78 70 3b 0a 20 20 20 20 20 20 20 20 7d 0a   exp;.        }.
4710: 20 20 20 20 20 20 20 20 6e 73 64 20 3d 20 30 3b          nsd = 0;
4720: 0a 20 20 20 20 20 20 20 20 66 6c 61 67 5f 64 70  .        flag_dp
4730: 20 3d 20 28 70 72 65 63 69 73 69 6f 6e 3e 30 29   = (precision>0)
4740: 20 7c 20 66 6c 61 67 5f 61 6c 74 65 72 6e 61 74   | flag_alternat
4750: 65 66 6f 72 6d 20 7c 20 66 6c 61 67 5f 61 6c 74  eform | flag_alt
4760: 66 6f 72 6d 32 3b 0a 20 20 20 20 20 20 20 20 2f  form2;.        /
4770: 2a 20 54 68 65 20 73 69 67 6e 20 69 6e 20 66 72  * The sign in fr
4780: 6f 6e 74 20 6f 66 20 74 68 65 20 6e 75 6d 62 65  ont of the numbe
4790: 72 20 2a 2f 0a 20 20 20 20 20 20 20 20 69 66 28  r */.        if(
47a0: 20 70 72 65 66 69 78 20 29 7b 0a 20 20 20 20 20   prefix ){.     
47b0: 20 20 20 20 20 2a 28 62 75 66 70 74 2b 2b 29 20       *(bufpt++) 
47c0: 3d 20 70 72 65 66 69 78 3b 0a 20 20 20 20 20 20  = prefix;.      
47d0: 20 20 7d 0a 20 20 20 20 20 20 20 20 2f 2a 20 44    }.        /* D
47e0: 69 67 69 74 73 20 70 72 69 6f 72 20 74 6f 20 74  igits prior to t
47f0: 68 65 20 64 65 63 69 6d 61 6c 20 70 6f 69 6e 74  he decimal point
4800: 20 2a 2f 0a 20 20 20 20 20 20 20 20 69 66 28 20   */.        if( 
4810: 65 32 3c 30 20 29 7b 0a 20 20 20 20 20 20 20 20  e2<0 ){.        
4820: 20 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 27    *(bufpt++) = '
4830: 30 27 3b 0a 20 20 20 20 20 20 20 20 7d 65 6c 73  0';.        }els
4840: 65 7b 0a 20 20 20 20 20 20 20 20 20 20 66 6f 72  e{.          for
4850: 28 3b 20 65 32 3e 3d 30 3b 20 65 32 2d 2d 29 7b  (; e2>=0; e2--){
4860: 0a 20 20 20 20 20 20 20 20 20 20 20 20 2a 28 62  .            *(b
4870: 75 66 70 74 2b 2b 29 20 3d 20 65 74 5f 67 65 74  ufpt++) = et_get
4880: 64 69 67 69 74 28 26 72 65 61 6c 76 61 6c 75 65  digit(&realvalue
4890: 2c 26 6e 73 64 29 3b 0a 20 20 20 20 20 20 20 20  ,&nsd);.        
48a0: 20 20 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20 20    }.        }.  
48b0: 20 20 20 20 20 20 2f 2a 20 54 68 65 20 64 65 63        /* The dec
48c0: 69 6d 61 6c 20 70 6f 69 6e 74 20 2a 2f 0a 20 20  imal point */.  
48d0: 20 20 20 20 20 20 69 66 28 20 66 6c 61 67 5f 64        if( flag_d
48e0: 70 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 2a  p ){.          *
48f0: 28 62 75 66 70 74 2b 2b 29 20 3d 20 27 2e 27 3b  (bufpt++) = '.';
4900: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20  .        }.     
4910: 20 20 20 2f 2a 20 22 30 22 20 64 69 67 69 74 73     /* "0" digits
4920: 20 61 66 74 65 72 20 74 68 65 20 64 65 63 69 6d   after the decim
4930: 61 6c 20 70 6f 69 6e 74 20 62 75 74 20 62 65 66  al point but bef
4940: 6f 72 65 20 74 68 65 20 66 69 72 73 74 0a 20 20  ore the first.  
4950: 20 20 20 20 20 20 2a 2a 20 73 69 67 6e 69 66 69        ** signifi
4960: 63 61 6e 74 20 64 69 67 69 74 20 6f 66 20 74 68  cant digit of th
4970: 65 20 6e 75 6d 62 65 72 20 2a 2f 0a 20 20 20 20  e number */.    
4980: 20 20 20 20 66 6f 72 28 65 32 2b 2b 3b 20 65 32      for(e2++; e2
4990: 3c 30 20 26 26 20 70 72 65 63 69 73 69 6f 6e 3e  <0 && precision>
49a0: 30 3b 20 70 72 65 63 69 73 69 6f 6e 2d 2d 2c 20  0; precision--, 
49b0: 65 32 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20 20  e2++){.         
49c0: 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 27 30   *(bufpt++) = '0
49d0: 27 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20  ';.        }.   
49e0: 20 20 20 20 20 2f 2a 20 53 69 67 6e 69 66 69 63       /* Signific
49f0: 61 6e 74 20 64 69 67 69 74 73 20 61 66 74 65 72  ant digits after
4a00: 20 74 68 65 20 64 65 63 69 6d 61 6c 20 70 6f 69   the decimal poi
4a10: 6e 74 20 2a 2f 0a 20 20 20 20 20 20 20 20 77 68  nt */.        wh
4a20: 69 6c 65 28 20 28 70 72 65 63 69 73 69 6f 6e 2d  ile( (precision-
4a30: 2d 29 3e 30 20 29 7b 0a 20 20 20 20 20 20 20 20  -)>0 ){.        
4a40: 20 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 65    *(bufpt++) = e
4a50: 74 5f 67 65 74 64 69 67 69 74 28 26 72 65 61 6c  t_getdigit(&real
4a60: 76 61 6c 75 65 2c 26 6e 73 64 29 3b 0a 20 20 20  value,&nsd);.   
4a70: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 2f       }.        /
4a80: 2a 20 52 65 6d 6f 76 65 20 74 72 61 69 6c 69 6e  * Remove trailin
4a90: 67 20 7a 65 72 6f 73 20 61 6e 64 20 74 68 65 20  g zeros and the 
4aa0: 22 2e 22 20 69 66 20 6e 6f 20 64 69 67 69 74 73  "." if no digits
4ab0: 20 66 6f 6c 6c 6f 77 20 74 68 65 20 22 2e 22 20   follow the "." 
4ac0: 2a 2f 0a 20 20 20 20 20 20 20 20 69 66 28 20 66  */.        if( f
4ad0: 6c 61 67 5f 72 74 7a 20 26 26 20 66 6c 61 67 5f  lag_rtz && flag_
4ae0: 64 70 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20  dp ){.          
4af0: 77 68 69 6c 65 28 20 62 75 66 70 74 5b 2d 31 5d  while( bufpt[-1]
4b00: 3d 3d 27 30 27 20 29 20 2a 28 2d 2d 62 75 66 70  =='0' ) *(--bufp
4b10: 74 29 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20  t) = 0;.        
4b20: 20 20 61 73 73 65 72 74 28 20 62 75 66 70 74 3e    assert( bufpt>
4b30: 62 75 66 20 29 3b 0a 20 20 20 20 20 20 20 20 20  buf );.         
4b40: 20 69 66 28 20 62 75 66 70 74 5b 2d 31 5d 3d 3d   if( bufpt[-1]==
4b50: 27 2e 27 20 29 7b 0a 20 20 20 20 20 20 20 20 20  '.' ){.         
4b60: 20 20 20 69 66 28 20 66 6c 61 67 5f 61 6c 74 66     if( flag_altf
4b70: 6f 72 6d 32 20 29 7b 0a 20 20 20 20 20 20 20 20  orm2 ){.        
4b80: 20 20 20 20 20 20 2a 28 62 75 66 70 74 2b 2b 29        *(bufpt++)
4b90: 20 3d 20 27 30 27 3b 0a 20 20 20 20 20 20 20 20   = '0';.        
4ba0: 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20      }else{.     
4bb0: 20 20 20 20 20 20 20 20 20 2a 28 2d 2d 62 75 66           *(--buf
4bc0: 70 74 29 20 3d 20 30 3b 0a 20 20 20 20 20 20 20  pt) = 0;.       
4bd0: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20       }.         
4be0: 20 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20   }.        }.   
4bf0: 20 20 20 20 20 2f 2a 20 41 64 64 20 74 68 65 20       /* Add the 
4c00: 22 65 4e 4e 4e 22 20 73 75 66 66 69 78 20 2a 2f  "eNNN" suffix */
4c10: 0a 20 20 20 20 20 20 20 20 69 66 28 20 66 6c 61  .        if( fla
4c20: 67 5f 65 78 70 20 7c 7c 20 28 78 74 79 70 65 3d  g_exp || (xtype=
4c30: 3d 65 74 45 58 50 20 26 26 20 65 78 70 29 20 29  =etEXP && exp) )
4c40: 7b 0a 20 20 20 20 20 20 20 20 20 20 2a 28 62 75  {.          *(bu
4c50: 66 70 74 2b 2b 29 20 3d 20 61 44 69 67 69 74 73  fpt++) = aDigits
4c60: 5b 69 6e 66 6f 70 2d 3e 63 68 61 72 73 65 74 5d  [infop->charset]
4c70: 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20  ;.          if( 
4c80: 65 78 70 3c 30 20 29 7b 0a 20 20 20 20 20 20 20  exp<0 ){.       
4c90: 20 20 20 20 20 2a 28 62 75 66 70 74 2b 2b 29 20       *(bufpt++) 
4ca0: 3d 20 27 2d 27 3b 20 65 78 70 20 3d 20 2d 65 78  = '-'; exp = -ex
4cb0: 70 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 65 6c  p;.          }el
4cc0: 73 65 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20  se{.            
4cd0: 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 27 2b 27  *(bufpt++) = '+'
4ce0: 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20  ;.          }.  
4cf0: 20 20 20 20 20 20 20 20 69 66 28 20 65 78 70 3e          if( exp>
4d00: 3d 31 30 30 20 29 7b 0a 20 20 20 20 20 20 20 20  =100 ){.        
4d10: 20 20 20 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d      *(bufpt++) =
4d20: 20 28 65 78 70 2f 31 30 30 29 2b 27 30 27 3b 20   (exp/100)+'0'; 
4d30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
4d40: 2a 20 31 30 30 27 73 20 64 69 67 69 74 20 2a 2f  * 100's digit */
4d50: 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 78 70  .            exp
4d60: 20 25 3d 20 31 30 30 3b 0a 20 20 20 20 20 20 20   %= 100;.       
4d70: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20 2a     }.          *
4d80: 28 62 75 66 70 74 2b 2b 29 20 3d 20 65 78 70 2f  (bufpt++) = exp/
4d90: 31 30 2b 27 30 27 3b 20 20 20 20 20 20 20 20 20  10+'0';         
4da0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 31              /* 1
4db0: 30 27 73 20 64 69 67 69 74 20 2a 2f 0a 20 20 20  0's digit */.   
4dc0: 20 20 20 20 20 20 20 2a 28 62 75 66 70 74 2b 2b         *(bufpt++
4dd0: 29 20 3d 20 65 78 70 25 31 30 2b 27 30 27 3b 20  ) = exp%10+'0'; 
4de0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4df0: 20 20 20 20 2f 2a 20 31 27 73 20 64 69 67 69 74      /* 1's digit
4e00: 20 2a 2f 0a 20 20 20 20 20 20 20 20 7d 0a 20 20   */.        }.  
4e10: 20 20 20 20 20 20 2a 62 75 66 70 74 20 3d 20 30        *bufpt = 0
4e20: 3b 0a 0a 20 20 20 20 20 20 20 20 2f 2a 20 54 68  ;..        /* Th
4e30: 65 20 63 6f 6e 76 65 72 74 65 64 20 6e 75 6d 62  e converted numb
4e40: 65 72 20 69 73 20 69 6e 20 62 75 66 5b 5d 20 61  er is in buf[] a
4e50: 6e 64 20 7a 65 72 6f 20 74 65 72 6d 69 6e 61 74  nd zero terminat
4e60: 65 64 2e 20 4f 75 74 70 75 74 20 69 74 2e 0a 20  ed. Output it.. 
4e70: 20 20 20 20 20 20 20 2a 2a 20 4e 6f 74 65 20 74         ** Note t
4e80: 68 61 74 20 74 68 65 20 6e 75 6d 62 65 72 20 69  hat the number i
4e90: 73 20 69 6e 20 74 68 65 20 75 73 75 61 6c 20 6f  s in the usual o
4ea0: 72 64 65 72 2c 20 6e 6f 74 20 72 65 76 65 72 73  rder, not revers
4eb0: 65 64 20 61 73 20 77 69 74 68 0a 20 20 20 20 20  ed as with.     
4ec0: 20 20 20 2a 2a 20 69 6e 74 65 67 65 72 20 63 6f     ** integer co
4ed0: 6e 76 65 72 73 69 6f 6e 73 2e 20 2a 2f 0a 20 20  nversions. */.  
4ee0: 20 20 20 20 20 20 6c 65 6e 67 74 68 20 3d 20 62        length = b
4ef0: 75 66 70 74 2d 62 75 66 3b 0a 20 20 20 20 20 20  ufpt-buf;.      
4f00: 20 20 62 75 66 70 74 20 3d 20 62 75 66 3b 0a 0a    bufpt = buf;..
4f10: 20 20 20 20 20 20 20 20 2f 2a 20 53 70 65 63 69          /* Speci
4f20: 61 6c 20 63 61 73 65 3a 20 20 41 64 64 20 6c 65  al case:  Add le
4f30: 61 64 69 6e 67 20 7a 65 72 6f 73 20 69 66 20 74  ading zeros if t
4f40: 68 65 20 66 6c 61 67 5f 7a 65 72 6f 70 61 64 20  he flag_zeropad 
4f50: 66 6c 61 67 20 69 73 0a 20 20 20 20 20 20 20 20  flag is.        
4f60: 2a 2a 20 73 65 74 20 61 6e 64 20 77 65 20 61 72  ** set and we ar
4f70: 65 20 6e 6f 74 20 6c 65 66 74 20 6a 75 73 74 69  e not left justi
4f80: 66 69 65 64 20 2a 2f 0a 20 20 20 20 20 20 20 20  fied */.        
4f90: 69 66 28 20 66 6c 61 67 5f 7a 65 72 6f 70 61 64  if( flag_zeropad
4fa0: 20 26 26 20 21 66 6c 61 67 5f 6c 65 66 74 6a 75   && !flag_leftju
4fb0: 73 74 69 66 79 20 26 26 20 6c 65 6e 67 74 68 20  stify && length 
4fc0: 3c 20 77 69 64 74 68 29 7b 0a 20 20 20 20 20 20  < width){.      
4fd0: 20 20 20 20 69 6e 74 20 69 3b 0a 20 20 20 20 20      int i;.     
4fe0: 20 20 20 20 20 69 6e 74 20 6e 50 61 64 20 3d 20       int nPad = 
4ff0: 77 69 64 74 68 20 2d 20 6c 65 6e 67 74 68 3b 0a  width - length;.
5000: 20 20 20 20 20 20 20 20 20 20 66 6f 72 28 69 3d            for(i=
5010: 77 69 64 74 68 3b 20 69 3e 3d 6e 50 61 64 3b 20  width; i>=nPad; 
5020: 69 2d 2d 29 7b 0a 20 20 20 20 20 20 20 20 20 20  i--){.          
5030: 20 20 62 75 66 70 74 5b 69 5d 20 3d 20 62 75 66    bufpt[i] = buf
5040: 70 74 5b 69 2d 6e 50 61 64 5d 3b 0a 20 20 20 20  pt[i-nPad];.    
5050: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20        }.        
5060: 20 20 69 20 3d 20 70 72 65 66 69 78 21 3d 30 3b    i = prefix!=0;
5070: 0a 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65  .          while
5080: 28 20 6e 50 61 64 2d 2d 20 29 20 62 75 66 70 74  ( nPad-- ) bufpt
5090: 5b 69 2b 2b 5d 20 3d 20 27 30 27 3b 0a 20 20 20  [i++] = '0';.   
50a0: 20 20 20 20 20 20 20 6c 65 6e 67 74 68 20 3d 20         length = 
50b0: 77 69 64 74 68 3b 0a 20 20 20 20 20 20 20 20 7d  width;.        }
50c0: 0a 23 65 6e 64 69 66 0a 20 20 20 20 20 20 20 20  .#endif.        
50d0: 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 63 61 73  break;.      cas
50e0: 65 20 65 74 53 49 5a 45 3a 0a 20 20 20 20 20 20  e etSIZE:.      
50f0: 20 20 2a 28 76 61 5f 61 72 67 28 61 70 2c 69 6e    *(va_arg(ap,in
5100: 74 2a 29 29 20 3d 20 63 6f 75 6e 74 3b 0a 20 20  t*)) = count;.  
5110: 20 20 20 20 20 20 6c 65 6e 67 74 68 20 3d 20 77        length = w
5120: 69 64 74 68 20 3d 20 30 3b 0a 20 20 20 20 20 20  idth = 0;.      
5130: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 63    break;.      c
5140: 61 73 65 20 65 74 50 45 52 43 45 4e 54 3a 0a 20  ase etPERCENT:. 
5150: 20 20 20 20 20 20 20 62 75 66 5b 30 5d 20 3d 20         buf[0] = 
5160: 27 25 27 3b 0a 20 20 20 20 20 20 20 20 62 75 66  '%';.        buf
5170: 70 74 20 3d 20 62 75 66 3b 0a 20 20 20 20 20 20  pt = buf;.      
5180: 20 20 6c 65 6e 67 74 68 20 3d 20 31 3b 0a 20 20    length = 1;.  
5190: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20        break;.   
51a0: 20 20 20 63 61 73 65 20 65 74 43 48 41 52 4c 49     case etCHARLI
51b0: 54 3a 0a 20 20 20 20 20 20 63 61 73 65 20 65 74  T:.      case et
51c0: 43 48 41 52 58 3a 0a 20 20 20 20 20 20 20 20 63  CHARX:.        c
51d0: 20 3d 20 62 75 66 5b 30 5d 20 3d 20 28 78 74 79   = buf[0] = (xty
51e0: 70 65 3d 3d 65 74 43 48 41 52 58 20 3f 20 76 61  pe==etCHARX ? va
51f0: 5f 61 72 67 28 61 70 2c 69 6e 74 29 20 3a 20 2a  _arg(ap,int) : *
5200: 2b 2b 66 6d 74 29 3b 0a 20 20 20 20 20 20 20 20  ++fmt);.        
5210: 69 66 28 20 70 72 65 63 69 73 69 6f 6e 3e 3d 30  if( precision>=0
5220: 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 66 6f   ){.          fo
5230: 72 28 69 64 78 3d 31 3b 20 69 64 78 3c 70 72 65  r(idx=1; idx<pre
5240: 63 69 73 69 6f 6e 3b 20 69 64 78 2b 2b 29 20 62  cision; idx++) b
5250: 75 66 5b 69 64 78 5d 20 3d 20 63 3b 0a 20 20 20  uf[idx] = c;.   
5260: 20 20 20 20 20 20 20 6c 65 6e 67 74 68 20 3d 20         length = 
5270: 70 72 65 63 69 73 69 6f 6e 3b 0a 20 20 20 20 20  precision;.     
5280: 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20     }else{.      
5290: 20 20 20 20 6c 65 6e 67 74 68 20 3d 31 3b 0a 20      length =1;. 
52a0: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20         }.       
52b0: 20 62 75 66 70 74 20 3d 20 62 75 66 3b 0a 20 20   bufpt = buf;.  
52c0: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20        break;.   
52d0: 20 20 20 63 61 73 65 20 65 74 53 54 52 49 4e 47     case etSTRING
52e0: 3a 0a 20 20 20 20 20 20 63 61 73 65 20 65 74 44  :.      case etD
52f0: 59 4e 53 54 52 49 4e 47 3a 0a 20 20 20 20 20 20  YNSTRING:.      
5300: 20 20 62 75 66 70 74 20 3d 20 76 61 5f 61 72 67    bufpt = va_arg
5310: 28 61 70 2c 63 68 61 72 2a 29 3b 0a 20 20 20 20  (ap,char*);.    
5320: 20 20 20 20 69 66 28 20 62 75 66 70 74 3d 3d 30      if( bufpt==0
5330: 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 62 75   ){.          bu
5340: 66 70 74 20 3d 20 22 22 3b 0a 20 20 20 20 20 20  fpt = "";.      
5350: 20 20 7d 65 6c 73 65 20 69 66 28 20 78 74 79 70    }else if( xtyp
5360: 65 3d 3d 65 74 44 59 4e 53 54 52 49 4e 47 20 29  e==etDYNSTRING )
5370: 7b 0a 20 20 20 20 20 20 20 20 20 20 7a 45 78 74  {.          zExt
5380: 72 61 20 3d 20 62 75 66 70 74 3b 0a 20 20 20 20  ra = bufpt;.    
5390: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 6c 65      }.        le
53a0: 6e 67 74 68 20 3d 20 73 74 72 6c 65 6e 28 62 75  ngth = strlen(bu
53b0: 66 70 74 29 3b 0a 20 20 20 20 20 20 20 20 69 66  fpt);.        if
53c0: 28 20 70 72 65 63 69 73 69 6f 6e 3e 3d 30 20 26  ( precision>=0 &
53d0: 26 20 70 72 65 63 69 73 69 6f 6e 3c 6c 65 6e 67  & precision<leng
53e0: 74 68 20 29 20 6c 65 6e 67 74 68 20 3d 20 70 72  th ) length = pr
53f0: 65 63 69 73 69 6f 6e 3b 0a 20 20 20 20 20 20 20  ecision;.       
5400: 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 63 61   break;.      ca
5410: 73 65 20 65 74 53 51 4c 45 53 43 41 50 45 3a 0a  se etSQLESCAPE:.
5420: 20 20 20 20 20 20 63 61 73 65 20 65 74 53 51 4c        case etSQL
5430: 45 53 43 41 50 45 32 3a 20 7b 0a 20 20 20 20 20  ESCAPE2: {.     
5440: 20 20 20 69 6e 74 20 69 2c 20 6a 2c 20 6e 2c 20     int i, j, n, 
5450: 63 2c 20 69 73 6e 75 6c 6c 3b 0a 20 20 20 20 20  c, isnull;.     
5460: 20 20 20 69 6e 74 20 6e 65 65 64 51 75 6f 74 65     int needQuote
5470: 3b 0a 20 20 20 20 20 20 20 20 63 68 61 72 20 2a  ;.        char *
5480: 61 72 67 20 3d 20 76 61 5f 61 72 67 28 61 70 2c  arg = va_arg(ap,
5490: 63 68 61 72 2a 29 3b 0a 20 20 20 20 20 20 20 20  char*);.        
54a0: 69 73 6e 75 6c 6c 20 3d 20 61 72 67 3d 3d 30 3b  isnull = arg==0;
54b0: 0a 20 20 20 20 20 20 20 20 69 66 28 20 69 73 6e  .        if( isn
54c0: 75 6c 6c 20 29 20 61 72 67 20 3d 20 28 78 74 79  ull ) arg = (xty
54d0: 70 65 3d 3d 65 74 53 51 4c 45 53 43 41 50 45 32  pe==etSQLESCAPE2
54e0: 20 3f 20 22 4e 55 4c 4c 22 20 3a 20 22 28 4e 55   ? "NULL" : "(NU
54f0: 4c 4c 29 22 29 3b 0a 20 20 20 20 20 20 20 20 66  LL)");.        f
5500: 6f 72 28 69 3d 6e 3d 30 3b 20 28 63 3d 61 72 67  or(i=n=0; (c=arg
5510: 5b 69 5d 29 21 3d 30 3b 20 69 2b 2b 29 7b 0a 20  [i])!=0; i++){. 
5520: 20 20 20 20 20 20 20 20 20 69 66 28 20 63 3d 3d           if( c==
5530: 27 5c 27 27 20 29 20 20 6e 2b 2b 3b 0a 20 20 20  '\'' )  n++;.   
5540: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 6e       }.        n
5550: 65 65 64 51 75 6f 74 65 20 3d 20 21 69 73 6e 75  eedQuote = !isnu
5560: 6c 6c 20 26 26 20 78 74 79 70 65 3d 3d 65 74 53  ll && xtype==etS
5570: 51 4c 45 53 43 41 50 45 32 3b 0a 20 20 20 20 20  QLESCAPE2;.     
5580: 20 20 20 6e 20 2b 3d 20 69 20 2b 20 31 20 2b 20     n += i + 1 + 
5590: 6e 65 65 64 51 75 6f 74 65 2a 32 3b 0a 20 20 20  needQuote*2;.   
55a0: 20 20 20 20 20 69 66 28 20 6e 3e 65 74 42 55 46       if( n>etBUF
55b0: 53 49 5a 45 20 29 7b 0a 20 20 20 20 20 20 20 20  SIZE ){.        
55c0: 20 20 62 75 66 70 74 20 3d 20 7a 45 78 74 72 61    bufpt = zExtra
55d0: 20 3d 20 73 71 6c 69 74 65 4d 61 6c 6c 6f 63 28   = sqliteMalloc(
55e0: 20 6e 20 29 3b 0a 20 20 20 20 20 20 20 20 20 20   n );.          
55f0: 69 66 28 20 62 75 66 70 74 3d 3d 30 20 29 20 72  if( bufpt==0 ) r
5600: 65 74 75 72 6e 20 2d 31 3b 0a 20 20 20 20 20 20  eturn -1;.      
5610: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20    }else{.       
5620: 20 20 20 62 75 66 70 74 20 3d 20 62 75 66 3b 0a     bufpt = buf;.
5630: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
5640: 20 20 6a 20 3d 20 30 3b 0a 20 20 20 20 20 20 20    j = 0;.       
5650: 20 69 66 28 20 6e 65 65 64 51 75 6f 74 65 20 29   if( needQuote )
5660: 20 62 75 66 70 74 5b 6a 2b 2b 5d 20 3d 20 27 5c   bufpt[j++] = '\
5670: 27 27 3b 0a 20 20 20 20 20 20 20 20 66 6f 72 28  '';.        for(
5680: 69 3d 30 3b 20 28 63 3d 61 72 67 5b 69 5d 29 21  i=0; (c=arg[i])!
5690: 3d 30 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20  =0; i++){.      
56a0: 20 20 20 20 62 75 66 70 74 5b 6a 2b 2b 5d 20 3d      bufpt[j++] =
56b0: 20 63 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66   c;.          if
56c0: 28 20 63 3d 3d 27 5c 27 27 20 29 20 62 75 66 70  ( c=='\'' ) bufp
56d0: 74 5b 6a 2b 2b 5d 20 3d 20 63 3b 0a 20 20 20 20  t[j++] = c;.    
56e0: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 69 66      }.        if
56f0: 28 20 6e 65 65 64 51 75 6f 74 65 20 29 20 62 75  ( needQuote ) bu
5700: 66 70 74 5b 6a 2b 2b 5d 20 3d 20 27 5c 27 27 3b  fpt[j++] = '\'';
5710: 0a 20 20 20 20 20 20 20 20 62 75 66 70 74 5b 6a  .        bufpt[j
5720: 5d 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 6c  ] = 0;.        l
5730: 65 6e 67 74 68 20 3d 20 6a 3b 0a 20 20 20 20 20  ength = j;.     
5740: 20 20 20 69 66 28 20 70 72 65 63 69 73 69 6f 6e     if( precision
5750: 3e 3d 30 20 26 26 20 70 72 65 63 69 73 69 6f 6e  >=0 && precision
5760: 3c 6c 65 6e 67 74 68 20 29 20 6c 65 6e 67 74 68  <length ) length
5770: 20 3d 20 70 72 65 63 69 73 69 6f 6e 3b 0a 20 20   = precision;.  
5780: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20        break;.   
5790: 20 20 20 7d 0a 20 20 20 20 20 20 63 61 73 65 20     }.      case 
57a0: 65 74 54 4f 4b 45 4e 3a 20 7b 0a 20 20 20 20 20  etTOKEN: {.     
57b0: 20 20 20 54 6f 6b 65 6e 20 2a 70 54 6f 6b 65 6e     Token *pToken
57c0: 20 3d 20 76 61 5f 61 72 67 28 61 70 2c 20 54 6f   = va_arg(ap, To
57d0: 6b 65 6e 2a 29 3b 0a 20 20 20 20 20 20 20 20 69  ken*);.        i
57e0: 66 28 20 70 54 6f 6b 65 6e 20 26 26 20 70 54 6f  f( pToken && pTo
57f0: 6b 65 6e 2d 3e 7a 20 29 7b 0a 20 20 20 20 20 20  ken->z ){.      
5800: 20 20 20 20 28 2a 66 75 6e 63 29 28 61 72 67 2c      (*func)(arg,
5810: 20 70 54 6f 6b 65 6e 2d 3e 7a 2c 20 70 54 6f 6b   pToken->z, pTok
5820: 65 6e 2d 3e 6e 29 3b 0a 20 20 20 20 20 20 20 20  en->n);.        
5830: 7d 0a 20 20 20 20 20 20 20 20 6c 65 6e 67 74 68  }.        length
5840: 20 3d 20 77 69 64 74 68 20 3d 20 30 3b 0a 20 20   = width = 0;.  
5850: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20        break;.   
5860: 20 20 20 7d 0a 20 20 20 20 20 20 63 61 73 65 20     }.      case 
5870: 65 74 53 52 43 4c 49 53 54 3a 20 7b 0a 20 20 20  etSRCLIST: {.   
5880: 20 20 20 20 20 53 72 63 4c 69 73 74 20 2a 70 53       SrcList *pS
5890: 72 63 20 3d 20 76 61 5f 61 72 67 28 61 70 2c 20  rc = va_arg(ap, 
58a0: 53 72 63 4c 69 73 74 2a 29 3b 0a 20 20 20 20 20  SrcList*);.     
58b0: 20 20 20 69 6e 74 20 6b 20 3d 20 76 61 5f 61 72     int k = va_ar
58c0: 67 28 61 70 2c 20 69 6e 74 29 3b 0a 20 20 20 20  g(ap, int);.    
58d0: 20 20 20 20 73 74 72 75 63 74 20 53 72 63 4c 69      struct SrcLi
58e0: 73 74 5f 69 74 65 6d 20 2a 70 49 74 65 6d 20 3d  st_item *pItem =
58f0: 20 26 70 53 72 63 2d 3e 61 5b 6b 5d 3b 0a 20 20   &pSrc->a[k];.  
5900: 20 20 20 20 20 20 61 73 73 65 72 74 28 20 6b 3e        assert( k>
5910: 3d 30 20 26 26 20 6b 3c 70 53 72 63 2d 3e 6e 53  =0 && k<pSrc->nS
5920: 72 63 20 29 3b 0a 20 20 20 20 20 20 20 20 69 66  rc );.        if
5930: 28 20 70 49 74 65 6d 2d 3e 7a 44 61 74 61 62 61  ( pItem->zDataba
5940: 73 65 20 26 26 20 70 49 74 65 6d 2d 3e 7a 44 61  se && pItem->zDa
5950: 74 61 62 61 73 65 5b 30 5d 20 29 7b 0a 20 20 20  tabase[0] ){.   
5960: 20 20 20 20 20 20 20 28 2a 66 75 6e 63 29 28 61         (*func)(a
5970: 72 67 2c 20 70 49 74 65 6d 2d 3e 7a 44 61 74 61  rg, pItem->zData
5980: 62 61 73 65 2c 20 73 74 72 6c 65 6e 28 70 49 74  base, strlen(pIt
5990: 65 6d 2d 3e 7a 44 61 74 61 62 61 73 65 29 29 3b  em->zDatabase));
59a0: 0a 20 20 20 20 20 20 20 20 20 20 28 2a 66 75 6e  .          (*fun
59b0: 63 29 28 61 72 67 2c 20 22 2e 22 2c 20 31 29 3b  c)(arg, ".", 1);
59c0: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20  .        }.     
59d0: 20 20 20 28 2a 66 75 6e 63 29 28 61 72 67 2c 20     (*func)(arg, 
59e0: 70 49 74 65 6d 2d 3e 7a 4e 61 6d 65 2c 20 73 74  pItem->zName, st
59f0: 72 6c 65 6e 28 70 49 74 65 6d 2d 3e 7a 4e 61 6d  rlen(pItem->zNam
5a00: 65 29 29 3b 0a 20 20 20 20 20 20 20 20 6c 65 6e  e));.        len
5a10: 67 74 68 20 3d 20 77 69 64 74 68 20 3d 20 30 3b  gth = width = 0;
5a20: 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a  .        break;.
5a30: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 63 61        }.      ca
5a40: 73 65 20 65 74 45 52 52 4f 52 3a 0a 20 20 20 20  se etERROR:.    
5a50: 20 20 20 20 62 75 66 5b 30 5d 20 3d 20 27 25 27      buf[0] = '%'
5a60: 3b 0a 20 20 20 20 20 20 20 20 62 75 66 5b 31 5d  ;.        buf[1]
5a70: 20 3d 20 63 3b 0a 20 20 20 20 20 20 20 20 65 72   = c;.        er
5a80: 72 6f 72 66 6c 61 67 20 3d 20 30 3b 0a 20 20 20  rorflag = 0;.   
5a90: 20 20 20 20 20 69 64 78 20 3d 20 31 2b 28 63 21       idx = 1+(c!
5aa0: 3d 30 29 3b 0a 20 20 20 20 20 20 20 20 28 2a 66  =0);.        (*f
5ab0: 75 6e 63 29 28 61 72 67 2c 22 25 22 2c 69 64 78  unc)(arg,"%",idx
5ac0: 29 3b 0a 20 20 20 20 20 20 20 20 63 6f 75 6e 74  );.        count
5ad0: 20 2b 3d 20 69 64 78 3b 0a 20 20 20 20 20 20 20   += idx;.       
5ae0: 20 69 66 28 20 63 3d 3d 30 20 29 20 66 6d 74 2d   if( c==0 ) fmt-
5af0: 2d 3b 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b  -;.        break
5b00: 3b 0a 20 20 20 20 7d 2f 2a 20 45 6e 64 20 73 77  ;.    }/* End sw
5b10: 69 74 63 68 20 6f 76 65 72 20 74 68 65 20 66 6f  itch over the fo
5b20: 72 6d 61 74 20 74 79 70 65 20 2a 2f 0a 20 20 20  rmat type */.   
5b30: 20 2f 2a 0a 20 20 20 20 2a 2a 20 54 68 65 20 74   /*.    ** The t
5b40: 65 78 74 20 6f 66 20 74 68 65 20 63 6f 6e 76 65  ext of the conve
5b50: 72 73 69 6f 6e 20 69 73 20 70 6f 69 6e 74 65 64  rsion is pointed
5b60: 20 74 6f 20 62 79 20 22 62 75 66 70 74 22 20 61   to by "bufpt" a
5b70: 6e 64 20 69 73 0a 20 20 20 20 2a 2a 20 22 6c 65  nd is.    ** "le
5b80: 6e 67 74 68 22 20 63 68 61 72 61 63 74 65 72 73  ngth" characters
5b90: 20 6c 6f 6e 67 2e 20 20 54 68 65 20 66 69 65 6c   long.  The fiel
5ba0: 64 20 77 69 64 74 68 20 69 73 20 22 77 69 64 74  d width is "widt
5bb0: 68 22 2e 20 20 44 6f 0a 20 20 20 20 2a 2a 20 74  h".  Do.    ** t
5bc0: 68 65 20 6f 75 74 70 75 74 2e 0a 20 20 20 20 2a  he output..    *
5bd0: 2f 0a 20 20 20 20 69 66 28 20 21 66 6c 61 67 5f  /.    if( !flag_
5be0: 6c 65 66 74 6a 75 73 74 69 66 79 20 29 7b 0a 20  leftjustify ){. 
5bf0: 20 20 20 20 20 72 65 67 69 73 74 65 72 20 69 6e       register in
5c00: 74 20 6e 73 70 61 63 65 3b 0a 20 20 20 20 20 20  t nspace;.      
5c10: 6e 73 70 61 63 65 20 3d 20 77 69 64 74 68 2d 6c  nspace = width-l
5c20: 65 6e 67 74 68 3b 0a 20 20 20 20 20 20 69 66 28  ength;.      if(
5c30: 20 6e 73 70 61 63 65 3e 30 20 29 7b 0a 20 20 20   nspace>0 ){.   
5c40: 20 20 20 20 20 63 6f 75 6e 74 20 2b 3d 20 6e 73       count += ns
5c50: 70 61 63 65 3b 0a 20 20 20 20 20 20 20 20 77 68  pace;.        wh
5c60: 69 6c 65 28 20 6e 73 70 61 63 65 3e 3d 65 74 53  ile( nspace>=etS
5c70: 50 41 43 45 53 49 5a 45 20 29 7b 0a 20 20 20 20  PACESIZE ){.    
5c80: 20 20 20 20 20 20 28 2a 66 75 6e 63 29 28 61 72        (*func)(ar
5c90: 67 2c 73 70 61 63 65 73 2c 65 74 53 50 41 43 45  g,spaces,etSPACE
5ca0: 53 49 5a 45 29 3b 0a 20 20 20 20 20 20 20 20 20  SIZE);.         
5cb0: 20 6e 73 70 61 63 65 20 2d 3d 20 65 74 53 50 41   nspace -= etSPA
5cc0: 43 45 53 49 5a 45 3b 0a 20 20 20 20 20 20 20 20  CESIZE;.        
5cd0: 7d 0a 20 20 20 20 20 20 20 20 69 66 28 20 6e 73  }.        if( ns
5ce0: 70 61 63 65 3e 30 20 29 20 28 2a 66 75 6e 63 29  pace>0 ) (*func)
5cf0: 28 61 72 67 2c 73 70 61 63 65 73 2c 6e 73 70 61  (arg,spaces,nspa
5d00: 63 65 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20  ce);.      }.   
5d10: 20 7d 0a 20 20 20 20 69 66 28 20 6c 65 6e 67 74   }.    if( lengt
5d20: 68 3e 30 20 29 7b 0a 20 20 20 20 20 20 28 2a 66  h>0 ){.      (*f
5d30: 75 6e 63 29 28 61 72 67 2c 62 75 66 70 74 2c 6c  unc)(arg,bufpt,l
5d40: 65 6e 67 74 68 29 3b 0a 20 20 20 20 20 20 63 6f  ength);.      co
5d50: 75 6e 74 20 2b 3d 20 6c 65 6e 67 74 68 3b 0a 20  unt += length;. 
5d60: 20 20 20 7d 0a 20 20 20 20 69 66 28 20 66 6c 61     }.    if( fla
5d70: 67 5f 6c 65 66 74 6a 75 73 74 69 66 79 20 29 7b  g_leftjustify ){
5d80: 0a 20 20 20 20 20 20 72 65 67 69 73 74 65 72 20  .      register 
5d90: 69 6e 74 20 6e 73 70 61 63 65 3b 0a 20 20 20 20  int nspace;.    
5da0: 20 20 6e 73 70 61 63 65 20 3d 20 77 69 64 74 68    nspace = width
5db0: 2d 6c 65 6e 67 74 68 3b 0a 20 20 20 20 20 20 69  -length;.      i
5dc0: 66 28 20 6e 73 70 61 63 65 3e 30 20 29 7b 0a 20  f( nspace>0 ){. 
5dd0: 20 20 20 20 20 20 20 63 6f 75 6e 74 20 2b 3d 20         count += 
5de0: 6e 73 70 61 63 65 3b 0a 20 20 20 20 20 20 20 20  nspace;.        
5df0: 77 68 69 6c 65 28 20 6e 73 70 61 63 65 3e 3d 65  while( nspace>=e
5e00: 74 53 50 41 43 45 53 49 5a 45 20 29 7b 0a 20 20  tSPACESIZE ){.  
5e10: 20 20 20 20 20 20 20 20 28 2a 66 75 6e 63 29 28          (*func)(
5e20: 61 72 67 2c 73 70 61 63 65 73 2c 65 74 53 50 41  arg,spaces,etSPA
5e30: 43 45 53 49 5a 45 29 3b 0a 20 20 20 20 20 20 20  CESIZE);.       
5e40: 20 20 20 6e 73 70 61 63 65 20 2d 3d 20 65 74 53     nspace -= etS
5e50: 50 41 43 45 53 49 5a 45 3b 0a 20 20 20 20 20 20  PACESIZE;.      
5e60: 20 20 7d 0a 20 20 20 20 20 20 20 20 69 66 28 20    }.        if( 
5e70: 6e 73 70 61 63 65 3e 30 20 29 20 28 2a 66 75 6e  nspace>0 ) (*fun
5e80: 63 29 28 61 72 67 2c 73 70 61 63 65 73 2c 6e 73  c)(arg,spaces,ns
5e90: 70 61 63 65 29 3b 0a 20 20 20 20 20 20 7d 0a 20  pace);.      }. 
5ea0: 20 20 20 7d 0a 20 20 20 20 69 66 28 20 7a 45 78     }.    if( zEx
5eb0: 74 72 61 20 29 7b 0a 20 20 20 20 20 20 73 71 6c  tra ){.      sql
5ec0: 69 74 65 46 72 65 65 28 7a 45 78 74 72 61 29 3b  iteFree(zExtra);
5ed0: 0a 20 20 20 20 7d 0a 20 20 7d 2f 2a 20 45 6e 64  .    }.  }/* End
5ee0: 20 66 6f 72 20 6c 6f 6f 70 20 6f 76 65 72 20 74   for loop over t
5ef0: 68 65 20 66 6f 72 6d 61 74 20 73 74 72 69 6e 67  he format string
5f00: 20 2a 2f 0a 20 20 72 65 74 75 72 6e 20 65 72 72   */.  return err
5f10: 6f 72 66 6c 61 67 20 3f 20 2d 31 20 3a 20 63 6f  orflag ? -1 : co
5f20: 75 6e 74 3b 0a 7d 20 2f 2a 20 45 6e 64 20 6f 66  unt;.} /* End of
5f30: 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 0a 0a 2f   function */.../
5f40: 2a 20 54 68 69 73 20 73 74 72 75 63 74 75 72 65  * This structure
5f50: 20 69 73 20 75 73 65 64 20 74 6f 20 73 74 6f 72   is used to stor
5f60: 65 20 73 74 61 74 65 20 69 6e 66 6f 72 6d 61 74  e state informat
5f70: 69 6f 6e 20 61 62 6f 75 74 20 74 68 65 0a 2a 2a  ion about the.**
5f80: 20 77 72 69 74 65 20 74 6f 20 6d 65 6d 6f 72 79   write to memory
5f90: 20 74 68 61 74 20 69 73 20 63 75 72 72 65 6e 74   that is current
5fa0: 6c 79 20 69 6e 20 70 72 6f 67 72 65 73 73 2e 0a  ly in progress..
5fb0: 2a 2f 0a 73 74 72 75 63 74 20 73 67 4d 70 72 69  */.struct sgMpri
5fc0: 6e 74 66 20 7b 0a 20 20 63 68 61 72 20 2a 7a 42  ntf {.  char *zB
5fd0: 61 73 65 3b 20 20 20 20 20 2f 2a 20 41 20 62 61  ase;     /* A ba
5fe0: 73 65 20 61 6c 6c 6f 63 61 74 69 6f 6e 20 2a 2f  se allocation */
5ff0: 0a 20 20 63 68 61 72 20 2a 7a 54 65 78 74 3b 20  .  char *zText; 
6000: 20 20 20 20 2f 2a 20 54 68 65 20 73 74 72 69 6e      /* The strin
6010: 67 20 63 6f 6c 6c 65 63 74 65 64 20 73 6f 20 66  g collected so f
6020: 61 72 20 2a 2f 0a 20 20 69 6e 74 20 20 6e 43 68  ar */.  int  nCh
6030: 61 72 3b 20 20 20 20 20 20 2f 2a 20 4c 65 6e 67  ar;      /* Leng
6040: 74 68 20 6f 66 20 74 68 65 20 73 74 72 69 6e 67  th of the string
6050: 20 73 6f 20 66 61 72 20 2a 2f 0a 20 20 69 6e 74   so far */.  int
6060: 20 20 6e 54 6f 74 61 6c 3b 20 20 20 20 20 2f 2a    nTotal;     /*
6070: 20 4f 75 74 70 75 74 20 73 69 7a 65 20 69 66 20   Output size if 
6080: 75 6e 63 6f 6e 73 74 72 61 69 6e 65 64 20 2a 2f  unconstrained */
6090: 0a 20 20 69 6e 74 20 20 6e 41 6c 6c 6f 63 3b 20  .  int  nAlloc; 
60a0: 20 20 20 20 2f 2a 20 41 6d 6f 75 6e 74 20 6f 66      /* Amount of
60b0: 20 73 70 61 63 65 20 61 6c 6c 6f 63 61 74 65 64   space allocated
60c0: 20 69 6e 20 7a 54 65 78 74 20 2a 2f 0a 20 20 76   in zText */.  v
60d0: 6f 69 64 20 2a 28 2a 78 52 65 61 6c 6c 6f 63 29  oid *(*xRealloc)
60e0: 28 76 6f 69 64 2a 2c 69 6e 74 29 3b 20 20 2f 2a  (void*,int);  /*
60f0: 20 46 75 6e 63 74 69 6f 6e 20 75 73 65 64 20 74   Function used t
6100: 6f 20 72 65 61 6c 6c 6f 63 20 6d 65 6d 6f 72 79  o realloc memory
6110: 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 20 0a 2a 2a 20 54   */.};../* .** T
6120: 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 6d 70  his function imp
6130: 6c 65 6d 65 6e 74 73 20 74 68 65 20 63 61 6c 6c  lements the call
6140: 62 61 63 6b 20 66 72 6f 6d 20 76 78 70 72 69 6e  back from vxprin
6150: 74 66 2e 20 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20  tf. .**.** This 
6160: 72 6f 75 74 69 6e 65 20 61 64 64 20 6e 4e 65 77  routine add nNew
6170: 43 68 61 72 20 63 68 61 72 61 63 74 65 72 73 20  Char characters 
6180: 6f 66 20 74 65 78 74 20 69 6e 20 7a 4e 65 77 54  of text in zNewT
6190: 65 78 74 20 74 6f 0a 2a 2a 20 74 68 65 20 73 67  ext to.** the sg
61a0: 4d 70 72 69 6e 74 66 20 73 74 72 75 63 74 75 72  Mprintf structur
61b0: 65 20 70 6f 69 6e 74 65 64 20 74 6f 20 62 79 20  e pointed to by 
61c0: 22 61 72 67 22 2e 0a 2a 2f 0a 73 74 61 74 69 63  "arg"..*/.static
61d0: 20 76 6f 69 64 20 6d 6f 75 74 28 76 6f 69 64 20   void mout(void 
61e0: 2a 61 72 67 2c 20 63 6f 6e 73 74 20 63 68 61 72  *arg, const char
61f0: 20 2a 7a 4e 65 77 54 65 78 74 2c 20 69 6e 74 20   *zNewText, int 
6200: 6e 4e 65 77 43 68 61 72 29 7b 0a 20 20 73 74 72  nNewChar){.  str
6210: 75 63 74 20 73 67 4d 70 72 69 6e 74 66 20 2a 70  uct sgMprintf *p
6220: 4d 20 3d 20 28 73 74 72 75 63 74 20 73 67 4d 70  M = (struct sgMp
6230: 72 69 6e 74 66 2a 29 61 72 67 3b 0a 20 20 70 4d  rintf*)arg;.  pM
6240: 2d 3e 6e 54 6f 74 61 6c 20 2b 3d 20 6e 4e 65 77  ->nTotal += nNew
6250: 43 68 61 72 3b 0a 20 20 69 66 28 20 70 4d 2d 3e  Char;.  if( pM->
6260: 6e 43 68 61 72 20 2b 20 6e 4e 65 77 43 68 61 72  nChar + nNewChar
6270: 20 2b 20 31 20 3e 20 70 4d 2d 3e 6e 41 6c 6c 6f   + 1 > pM->nAllo
6280: 63 20 29 7b 0a 20 20 20 20 69 66 28 20 70 4d 2d  c ){.    if( pM-
6290: 3e 78 52 65 61 6c 6c 6f 63 3d 3d 30 20 29 7b 0a  >xRealloc==0 ){.
62a0: 20 20 20 20 20 20 6e 4e 65 77 43 68 61 72 20 3d        nNewChar =
62b0: 20 20 70 4d 2d 3e 6e 41 6c 6c 6f 63 20 2d 20 70    pM->nAlloc - p
62c0: 4d 2d 3e 6e 43 68 61 72 20 2d 20 31 3b 0a 20 20  M->nChar - 1;.  
62d0: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 70    }else{.      p
62e0: 4d 2d 3e 6e 41 6c 6c 6f 63 20 3d 20 70 4d 2d 3e  M->nAlloc = pM->
62f0: 6e 43 68 61 72 20 2b 20 6e 4e 65 77 43 68 61 72  nChar + nNewChar
6300: 2a 32 20 2b 20 31 3b 0a 20 20 20 20 20 20 69 66  *2 + 1;.      if
6310: 28 20 70 4d 2d 3e 7a 54 65 78 74 3d 3d 70 4d 2d  ( pM->zText==pM-
6320: 3e 7a 42 61 73 65 20 29 7b 0a 20 20 20 20 20 20  >zBase ){.      
6330: 20 20 70 4d 2d 3e 7a 54 65 78 74 20 3d 20 70 4d    pM->zText = pM
6340: 2d 3e 78 52 65 61 6c 6c 6f 63 28 30 2c 20 70 4d  ->xRealloc(0, pM
6350: 2d 3e 6e 41 6c 6c 6f 63 29 3b 0a 20 20 20 20 20  ->nAlloc);.     
6360: 20 20 20 69 66 28 20 70 4d 2d 3e 7a 54 65 78 74     if( pM->zText
6370: 20 26 26 20 70 4d 2d 3e 6e 43 68 61 72 20 29 7b   && pM->nChar ){
6380: 0a 20 20 20 20 20 20 20 20 20 20 6d 65 6d 63 70  .          memcp
6390: 79 28 70 4d 2d 3e 7a 54 65 78 74 2c 20 70 4d 2d  y(pM->zText, pM-
63a0: 3e 7a 42 61 73 65 2c 20 70 4d 2d 3e 6e 43 68 61  >zBase, pM->nCha
63b0: 72 29 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20  r);.        }.  
63c0: 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20      }else{.     
63d0: 20 20 20 70 4d 2d 3e 7a 54 65 78 74 20 3d 20 70     pM->zText = p
63e0: 4d 2d 3e 78 52 65 61 6c 6c 6f 63 28 70 4d 2d 3e  M->xRealloc(pM->
63f0: 7a 54 65 78 74 2c 20 70 4d 2d 3e 6e 41 6c 6c 6f  zText, pM->nAllo
6400: 63 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  c);.      }.    
6410: 7d 0a 20 20 7d 0a 20 20 69 66 28 20 70 4d 2d 3e  }.  }.  if( pM->
6420: 7a 54 65 78 74 20 29 7b 0a 20 20 20 20 69 66 28  zText ){.    if(
6430: 20 6e 4e 65 77 43 68 61 72 3e 30 20 29 7b 0a 20   nNewChar>0 ){. 
6440: 20 20 20 20 20 6d 65 6d 63 70 79 28 26 70 4d 2d       memcpy(&pM-
6450: 3e 7a 54 65 78 74 5b 70 4d 2d 3e 6e 43 68 61 72  >zText[pM->nChar
6460: 5d 2c 20 7a 4e 65 77 54 65 78 74 2c 20 6e 4e 65  ], zNewText, nNe
6470: 77 43 68 61 72 29 3b 0a 20 20 20 20 20 20 70 4d  wChar);.      pM
6480: 2d 3e 6e 43 68 61 72 20 2b 3d 20 6e 4e 65 77 43  ->nChar += nNewC
6490: 68 61 72 3b 0a 20 20 20 20 7d 0a 20 20 20 20 70  har;.    }.    p
64a0: 4d 2d 3e 7a 54 65 78 74 5b 70 4d 2d 3e 6e 43 68  M->zText[pM->nCh
64b0: 61 72 5d 20 3d 20 30 3b 0a 20 20 7d 0a 7d 0a 0a  ar] = 0;.  }.}..
64c0: 2f 2a 0a 2a 2a 20 54 68 69 73 20 72 6f 75 74 69  /*.** This routi
64d0: 6e 65 20 69 73 20 61 20 77 72 61 70 70 65 72 20  ne is a wrapper 
64e0: 61 72 6f 75 6e 64 20 78 70 72 69 6e 74 66 28 29  around xprintf()
64f0: 20 74 68 61 74 20 69 6e 76 6f 6b 65 73 20 6d 6f   that invokes mo
6500: 75 74 28 29 20 61 73 0a 2a 2a 20 74 68 65 20 63  ut() as.** the c
6510: 6f 6e 73 75 6d 65 72 2e 20 20 0a 2a 2f 0a 73 74  onsumer.  .*/.st
6520: 61 74 69 63 20 63 68 61 72 20 2a 62 61 73 65 5f  atic char *base_
6530: 76 70 72 69 6e 74 66 28 0a 20 20 76 6f 69 64 20  vprintf(.  void 
6540: 2a 28 2a 78 52 65 61 6c 6c 6f 63 29 28 76 6f 69  *(*xRealloc)(voi
6550: 64 2a 2c 69 6e 74 29 2c 20 20 20 2f 2a 20 52 6f  d*,int),   /* Ro
6560: 75 74 69 6e 65 20 74 6f 20 72 65 61 6c 6c 6f 63  utine to realloc
6570: 20 6d 65 6d 6f 72 79 2e 20 4d 61 79 20 62 65 20   memory. May be 
6580: 4e 55 4c 4c 20 2a 2f 0a 20 20 69 6e 74 20 75 73  NULL */.  int us
6590: 65 49 6e 74 65 72 6e 61 6c 2c 20 20 20 20 20 20  eInternal,      
65a0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 55 73 65            /* Use
65b0: 20 69 6e 74 65 72 6e 61 6c 20 25 2d 63 6f 6e 76   internal %-conv
65c0: 65 72 73 69 6f 6e 73 20 69 66 20 74 72 75 65 20  ersions if true 
65d0: 2a 2f 0a 20 20 63 68 61 72 20 2a 7a 49 6e 69 74  */.  char *zInit
65e0: 42 75 66 2c 20 20 20 20 20 20 20 20 20 20 20 20  Buf,            
65f0: 20 20 20 20 20 2f 2a 20 49 6e 69 74 69 61 6c 6c       /* Initiall
6600: 79 20 77 72 69 74 65 20 68 65 72 65 2c 20 62 65  y write here, be
6610: 66 6f 72 65 20 6d 61 6c 6c 6f 63 69 6e 67 20 2a  fore mallocing *
6620: 2f 0a 20 20 69 6e 74 20 6e 49 6e 69 74 42 75 66  /.  int nInitBuf
6630: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ,               
6640: 20 20 20 20 2f 2a 20 53 69 7a 65 20 6f 66 20 7a      /* Size of z
6650: 49 6e 69 74 42 75 66 5b 5d 20 2a 2f 0a 20 20 63  InitBuf[] */.  c
6660: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 6f 72 6d  onst char *zForm
6670: 61 74 2c 20 20 20 20 20 20 20 20 20 20 20 20 2f  at,            /
6680: 2a 20 66 6f 72 6d 61 74 20 73 74 72 69 6e 67 20  * format string 
6690: 2a 2f 0a 20 20 76 61 5f 6c 69 73 74 20 61 70 20  */.  va_list ap 
66a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
66b0: 20 20 20 20 20 2f 2a 20 61 72 67 75 6d 65 6e 74       /* argument
66c0: 73 20 2a 2f 0a 29 7b 0a 20 20 73 74 72 75 63 74  s */.){.  struct
66d0: 20 73 67 4d 70 72 69 6e 74 66 20 73 4d 3b 0a 20   sgMprintf sM;. 
66e0: 20 73 4d 2e 7a 42 61 73 65 20 3d 20 73 4d 2e 7a   sM.zBase = sM.z
66f0: 54 65 78 74 20 3d 20 7a 49 6e 69 74 42 75 66 3b  Text = zInitBuf;
6700: 0a 20 20 73 4d 2e 6e 43 68 61 72 20 3d 20 73 4d  .  sM.nChar = sM
6710: 2e 6e 54 6f 74 61 6c 20 3d 20 30 3b 0a 20 20 73  .nTotal = 0;.  s
6720: 4d 2e 6e 41 6c 6c 6f 63 20 3d 20 6e 49 6e 69 74  M.nAlloc = nInit
6730: 42 75 66 3b 0a 20 20 73 4d 2e 78 52 65 61 6c 6c  Buf;.  sM.xReall
6740: 6f 63 20 3d 20 78 52 65 61 6c 6c 6f 63 3b 0a 20  oc = xRealloc;. 
6750: 20 76 78 70 72 69 6e 74 66 28 6d 6f 75 74 2c 20   vxprintf(mout, 
6760: 26 73 4d 2c 20 75 73 65 49 6e 74 65 72 6e 61 6c  &sM, useInternal
6770: 2c 20 7a 46 6f 72 6d 61 74 2c 20 61 70 29 3b 0a  , zFormat, ap);.
6780: 20 20 69 66 28 20 78 52 65 61 6c 6c 6f 63 20 29    if( xRealloc )
6790: 7b 0a 20 20 20 20 69 66 28 20 73 4d 2e 7a 54 65  {.    if( sM.zTe
67a0: 78 74 3d 3d 73 4d 2e 7a 42 61 73 65 20 29 7b 0a  xt==sM.zBase ){.
67b0: 20 20 20 20 20 20 73 4d 2e 7a 54 65 78 74 20 3d        sM.zText =
67c0: 20 78 52 65 61 6c 6c 6f 63 28 30 2c 20 73 4d 2e   xRealloc(0, sM.
67d0: 6e 43 68 61 72 2b 31 29 3b 0a 20 20 20 20 20 20  nChar+1);.      
67e0: 69 66 28 20 73 4d 2e 7a 54 65 78 74 20 29 7b 0a  if( sM.zText ){.
67f0: 20 20 20 20 20 20 20 20 6d 65 6d 63 70 79 28 73          memcpy(s
6800: 4d 2e 7a 54 65 78 74 2c 20 73 4d 2e 7a 42 61 73  M.zText, sM.zBas
6810: 65 2c 20 73 4d 2e 6e 43 68 61 72 2b 31 29 3b 0a  e, sM.nChar+1);.
6820: 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 65 6c 73        }.    }els
6830: 65 20 69 66 28 20 73 4d 2e 6e 41 6c 6c 6f 63 3e  e if( sM.nAlloc>
6840: 73 4d 2e 6e 43 68 61 72 2b 31 30 20 29 7b 0a 20  sM.nChar+10 ){. 
6850: 20 20 20 20 20 73 4d 2e 7a 54 65 78 74 20 3d 20       sM.zText = 
6860: 78 52 65 61 6c 6c 6f 63 28 73 4d 2e 7a 54 65 78  xRealloc(sM.zTex
6870: 74 2c 20 73 4d 2e 6e 43 68 61 72 2b 31 29 3b 0a  t, sM.nChar+1);.
6880: 20 20 20 20 7d 0a 20 20 7d 0a 20 20 72 65 74 75      }.  }.  retu
6890: 72 6e 20 73 4d 2e 7a 54 65 78 74 3b 0a 7d 0a 0a  rn sM.zText;.}..
68a0: 2f 2a 0a 2a 2a 20 52 65 61 6c 6c 6f 63 20 74 68  /*.** Realloc th
68b0: 61 74 20 69 73 20 61 20 72 65 61 6c 20 66 75 6e  at is a real fun
68c0: 63 74 69 6f 6e 2c 20 6e 6f 74 20 61 20 6d 61 63  ction, not a mac
68d0: 72 6f 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f  ro..*/.static vo
68e0: 69 64 20 2a 70 72 69 6e 74 66 5f 72 65 61 6c 6c  id *printf_reall
68f0: 6f 63 28 76 6f 69 64 20 2a 6f 6c 64 2c 20 69 6e  oc(void *old, in
6900: 74 20 73 69 7a 65 29 7b 0a 20 20 72 65 74 75 72  t size){.  retur
6910: 6e 20 73 71 6c 69 74 65 52 65 61 6c 6c 6f 63 28  n sqliteRealloc(
6920: 6f 6c 64 2c 73 69 7a 65 29 3b 0a 7d 0a 0a 2f 2a  old,size);.}../*
6930: 0a 2a 2a 20 50 72 69 6e 74 20 69 6e 74 6f 20 6d  .** Print into m
6940: 65 6d 6f 72 79 20 6f 62 74 61 69 6e 65 64 20 66  emory obtained f
6950: 72 6f 6d 20 73 71 6c 69 74 65 4d 61 6c 6c 6f 63  rom sqliteMalloc
6960: 28 29 2e 20 20 55 73 65 20 74 68 65 20 69 6e 74  ().  Use the int
6970: 65 72 6e 61 6c 0a 2a 2a 20 25 2d 63 6f 6e 76 65  ernal.** %-conve
6980: 72 73 69 6f 6e 20 65 78 74 65 6e 73 69 6f 6e 73  rsion extensions
6990: 2e 0a 2a 2f 0a 63 68 61 72 20 2a 73 71 6c 69 74  ..*/.char *sqlit
69a0: 65 33 56 4d 50 72 69 6e 74 66 28 63 6f 6e 73 74  e3VMPrintf(const
69b0: 20 63 68 61 72 20 2a 7a 46 6f 72 6d 61 74 2c 20   char *zFormat, 
69c0: 76 61 5f 6c 69 73 74 20 61 70 29 7b 0a 20 20 63  va_list ap){.  c
69d0: 68 61 72 20 7a 42 61 73 65 5b 31 30 30 30 5d 3b  har zBase[1000];
69e0: 0a 20 20 72 65 74 75 72 6e 20 62 61 73 65 5f 76  .  return base_v
69f0: 70 72 69 6e 74 66 28 70 72 69 6e 74 66 5f 72 65  printf(printf_re
6a00: 61 6c 6c 6f 63 2c 20 31 2c 20 7a 42 61 73 65 2c  alloc, 1, zBase,
6a10: 20 73 69 7a 65 6f 66 28 7a 42 61 73 65 29 2c 20   sizeof(zBase), 
6a20: 7a 46 6f 72 6d 61 74 2c 20 61 70 29 3b 0a 7d 0a  zFormat, ap);.}.
6a30: 0a 2f 2a 0a 2a 2a 20 50 72 69 6e 74 20 69 6e 74  ./*.** Print int
6a40: 6f 20 6d 65 6d 6f 72 79 20 6f 62 74 61 69 6e 65  o memory obtaine
6a50: 64 20 66 72 6f 6d 20 73 71 6c 69 74 65 4d 61 6c  d from sqliteMal
6a60: 6c 6f 63 28 29 2e 20 20 55 73 65 20 74 68 65 20  loc().  Use the 
6a70: 69 6e 74 65 72 6e 61 6c 0a 2a 2a 20 25 2d 63 6f  internal.** %-co
6a80: 6e 76 65 72 73 69 6f 6e 20 65 78 74 65 6e 73 69  nversion extensi
6a90: 6f 6e 73 2e 0a 2a 2f 0a 63 68 61 72 20 2a 73 71  ons..*/.char *sq
6aa0: 6c 69 74 65 33 4d 50 72 69 6e 74 66 28 63 6f 6e  lite3MPrintf(con
6ab0: 73 74 20 63 68 61 72 20 2a 7a 46 6f 72 6d 61 74  st char *zFormat
6ac0: 2c 20 2e 2e 2e 29 7b 0a 20 20 76 61 5f 6c 69 73  , ...){.  va_lis
6ad0: 74 20 61 70 3b 0a 20 20 63 68 61 72 20 2a 7a 3b  t ap;.  char *z;
6ae0: 0a 20 20 63 68 61 72 20 7a 42 61 73 65 5b 31 30  .  char zBase[10
6af0: 30 30 5d 3b 0a 20 20 76 61 5f 73 74 61 72 74 28  00];.  va_start(
6b00: 61 70 2c 20 7a 46 6f 72 6d 61 74 29 3b 0a 20 20  ap, zFormat);.  
6b10: 7a 20 3d 20 62 61 73 65 5f 76 70 72 69 6e 74 66  z = base_vprintf
6b20: 28 70 72 69 6e 74 66 5f 72 65 61 6c 6c 6f 63 2c  (printf_realloc,
6b30: 20 31 2c 20 7a 42 61 73 65 2c 20 73 69 7a 65 6f   1, zBase, sizeo
6b40: 66 28 7a 42 61 73 65 29 2c 20 7a 46 6f 72 6d 61  f(zBase), zForma
6b50: 74 2c 20 61 70 29 3b 0a 20 20 76 61 5f 65 6e 64  t, ap);.  va_end
6b60: 28 61 70 29 3b 0a 20 20 72 65 74 75 72 6e 20 7a  (ap);.  return z
6b70: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 50 72 69 6e 74  ;.}../*.** Print
6b80: 20 69 6e 74 6f 20 6d 65 6d 6f 72 79 20 6f 62 74   into memory obt
6b90: 61 69 6e 65 64 20 66 72 6f 6d 20 6d 61 6c 6c 6f  ained from mallo
6ba0: 63 28 29 2e 20 20 44 6f 20 6e 6f 74 20 75 73 65  c().  Do not use
6bb0: 20 74 68 65 20 69 6e 74 65 72 6e 61 6c 0a 2a 2a   the internal.**
6bc0: 20 25 2d 63 6f 6e 76 65 72 73 69 6f 6e 20 65 78   %-conversion ex
6bd0: 74 65 6e 73 69 6f 6e 73 2e 20 20 54 68 69 73 20  tensions.  This 
6be0: 72 6f 75 74 69 6e 65 20 69 73 20 66 6f 72 20 75  routine is for u
6bf0: 73 65 20 62 79 20 65 78 74 65 72 6e 61 6c 20 75  se by external u
6c00: 73 65 72 73 2e 0a 2a 2f 0a 63 68 61 72 20 2a 73  sers..*/.char *s
6c10: 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 28 63  qlite3_mprintf(c
6c20: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 6f 72 6d  onst char *zForm
6c30: 61 74 2c 20 2e 2e 2e 29 7b 0a 20 20 76 61 5f 6c  at, ...){.  va_l
6c40: 69 73 74 20 61 70 3b 0a 20 20 63 68 61 72 20 2a  ist ap;.  char *
6c50: 7a 3b 0a 20 20 63 68 61 72 20 7a 42 75 66 5b 32  z;.  char zBuf[2
6c60: 30 30 5d 3b 0a 0a 20 20 76 61 5f 73 74 61 72 74  00];..  va_start
6c70: 28 61 70 2c 7a 46 6f 72 6d 61 74 29 3b 0a 20 20  (ap,zFormat);.  
6c80: 7a 20 3d 20 62 61 73 65 5f 76 70 72 69 6e 74 66  z = base_vprintf
6c90: 28 28 76 6f 69 64 2a 28 2a 29 28 76 6f 69 64 2a  ((void*(*)(void*
6ca0: 2c 69 6e 74 29 29 72 65 61 6c 6c 6f 63 2c 20 30  ,int))realloc, 0
6cb0: 2c 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  , .             
6cc0: 20 20 20 20 20 20 7a 42 75 66 2c 20 73 69 7a 65        zBuf, size
6cd0: 6f 66 28 7a 42 75 66 29 2c 20 7a 46 6f 72 6d 61  of(zBuf), zForma
6ce0: 74 2c 20 61 70 29 3b 0a 20 20 76 61 5f 65 6e 64  t, ap);.  va_end
6cf0: 28 61 70 29 3b 0a 20 20 72 65 74 75 72 6e 20 7a  (ap);.  return z
6d00: 3b 0a 7d 0a 0a 2f 2a 20 54 68 69 73 20 69 73 20  ;.}../* This is 
6d10: 74 68 65 20 76 61 72 61 72 67 73 20 76 65 72 73  the varargs vers
6d20: 69 6f 6e 20 6f 66 20 73 71 6c 69 74 65 33 5f 6d  ion of sqlite3_m
6d30: 70 72 69 6e 74 66 2e 20 20 0a 2a 2f 0a 63 68 61  printf.  .*/.cha
6d40: 72 20 2a 73 71 6c 69 74 65 33 5f 76 6d 70 72 69  r *sqlite3_vmpri
6d50: 6e 74 66 28 63 6f 6e 73 74 20 63 68 61 72 20 2a  ntf(const char *
6d60: 7a 46 6f 72 6d 61 74 2c 20 76 61 5f 6c 69 73 74  zFormat, va_list
6d70: 20 61 70 29 7b 0a 20 20 63 68 61 72 20 7a 42 75   ap){.  char zBu
6d80: 66 5b 32 30 30 5d 3b 0a 20 20 72 65 74 75 72 6e  f[200];.  return
6d90: 20 62 61 73 65 5f 76 70 72 69 6e 74 66 28 28 76   base_vprintf((v
6da0: 6f 69 64 2a 28 2a 29 28 76 6f 69 64 2a 2c 69 6e  oid*(*)(void*,in
6db0: 74 29 29 72 65 61 6c 6c 6f 63 2c 20 30 2c 0a 20  t))realloc, 0,. 
6dc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
6dd0: 20 20 20 20 20 7a 42 75 66 2c 20 73 69 7a 65 6f       zBuf, sizeo
6de0: 66 28 7a 42 75 66 29 2c 20 7a 46 6f 72 6d 61 74  f(zBuf), zFormat
6df0: 2c 20 61 70 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  , ap);.}../*.** 
6e00: 73 71 6c 69 74 65 33 5f 73 6e 70 72 69 6e 74 66  sqlite3_snprintf
6e10: 28 29 20 77 6f 72 6b 73 20 6c 69 6b 65 20 73 6e  () works like sn
6e20: 70 72 69 6e 74 66 28 29 20 65 78 63 65 70 74 20  printf() except 
6e30: 74 68 61 74 20 69 74 20 69 67 6e 6f 72 65 73 20  that it ignores 
6e40: 74 68 65 0a 2a 2a 20 63 75 72 72 65 6e 74 20 6c  the.** current l
6e50: 6f 63 61 6c 65 20 73 65 74 74 69 6e 67 73 2e 20  ocale settings. 
6e60: 20 54 68 69 73 20 69 73 20 69 6d 70 6f 72 74 61   This is importa
6e70: 6e 74 20 66 6f 72 20 53 51 4c 69 74 65 20 62 65  nt for SQLite be
6e80: 63 61 75 73 65 20 77 65 0a 2a 2a 20 61 72 65 20  cause we.** are 
6e90: 6e 6f 74 20 61 62 6c 65 20 74 6f 20 75 73 65 20  not able to use 
6ea0: 61 20 22 2c 22 20 61 73 20 74 68 65 20 64 65 63  a "," as the dec
6eb0: 69 6d 61 6c 20 70 6f 69 6e 74 20 69 6e 20 70 6c  imal point in pl
6ec0: 61 63 65 20 6f 66 20 22 2e 22 20 61 73 0a 2a 2a  ace of "." as.**
6ed0: 20 73 70 65 63 69 66 69 65 64 20 62 79 20 73 6f   specified by so
6ee0: 6d 65 20 6c 6f 63 61 6c 65 73 2e 0a 2a 2f 0a 63  me locales..*/.c
6ef0: 68 61 72 20 2a 73 71 6c 69 74 65 33 5f 73 6e 70  har *sqlite3_snp
6f00: 72 69 6e 74 66 28 69 6e 74 20 6e 2c 20 63 68 61  rintf(int n, cha
6f10: 72 20 2a 7a 42 75 66 2c 20 63 6f 6e 73 74 20 63  r *zBuf, const c
6f20: 68 61 72 20 2a 7a 46 6f 72 6d 61 74 2c 20 2e 2e  har *zFormat, ..
6f30: 2e 29 7b 0a 20 20 63 68 61 72 20 2a 7a 3b 0a 20  .){.  char *z;. 
6f40: 20 76 61 5f 6c 69 73 74 20 61 70 3b 0a 0a 20 20   va_list ap;..  
6f50: 76 61 5f 73 74 61 72 74 28 61 70 2c 7a 46 6f 72  va_start(ap,zFor
6f60: 6d 61 74 29 3b 0a 20 20 7a 20 3d 20 62 61 73 65  mat);.  z = base
6f70: 5f 76 70 72 69 6e 74 66 28 30 2c 20 30 2c 20 7a  _vprintf(0, 0, z
6f80: 42 75 66 2c 20 6e 2c 20 7a 46 6f 72 6d 61 74 2c  Buf, n, zFormat,
6f90: 20 61 70 29 3b 0a 20 20 76 61 5f 65 6e 64 28 61   ap);.  va_end(a
6fa0: 70 29 3b 0a 20 20 72 65 74 75 72 6e 20 7a 3b 0a  p);.  return z;.
6fb0: 7d 0a 0a 23 69 66 20 64 65 66 69 6e 65 64 28 53  }..#if defined(S
6fc0: 51 4c 49 54 45 5f 54 45 53 54 29 20 7c 7c 20 64  QLITE_TEST) || d
6fd0: 65 66 69 6e 65 64 28 53 51 4c 49 54 45 5f 44 45  efined(SQLITE_DE
6fe0: 42 55 47 29 0a 2f 2a 0a 2a 2a 20 41 20 76 65 72  BUG)./*.** A ver
6ff0: 73 69 6f 6e 20 6f 66 20 70 72 69 6e 74 66 28 29  sion of printf()
7000: 20 74 68 61 74 20 75 6e 64 65 72 73 74 61 6e 64   that understand
7010: 73 20 25 6c 6c 64 2e 20 20 55 73 65 64 20 66 6f  s %lld.  Used fo
7020: 72 20 64 65 62 75 67 67 69 6e 67 2e 0a 2a 2a 20  r debugging..** 
7030: 54 68 65 20 70 72 69 6e 74 66 28 29 20 62 75 69  The printf() bui
7040: 6c 74 20 69 6e 74 6f 20 73 6f 6d 65 20 76 65 72  lt into some ver
7050: 73 69 6f 6e 73 20 6f 66 20 77 69 6e 64 6f 77 73  sions of windows
7060: 20 64 6f 65 73 20 6e 6f 74 20 75 6e 64 65 72 73   does not unders
7070: 74 61 6e 64 20 25 6c 6c 64 0a 2a 2a 20 61 6e 64  tand %lld.** and
7080: 20 73 65 67 66 61 75 6c 74 73 20 69 66 20 79 6f   segfaults if yo
7090: 75 20 67 69 76 65 20 69 74 20 61 20 6c 6f 6e 67  u give it a long
70a0: 20 6c 6f 6e 67 20 69 6e 74 2e 0a 2a 2f 0a 76 6f   long int..*/.vo
70b0: 69 64 20 73 71 6c 69 74 65 33 44 65 62 75 67 50  id sqlite3DebugP
70c0: 72 69 6e 74 66 28 63 6f 6e 73 74 20 63 68 61 72  rintf(const char
70d0: 20 2a 7a 46 6f 72 6d 61 74 2c 20 2e 2e 2e 29 7b   *zFormat, ...){
70e0: 0a 20 20 65 78 74 65 72 6e 20 69 6e 74 20 67 65  .  extern int ge
70f0: 74 70 69 64 28 76 6f 69 64 29 3b 0a 20 20 76 61  tpid(void);.  va
7100: 5f 6c 69 73 74 20 61 70 3b 0a 20 20 63 68 61 72  _list ap;.  char
7110: 20 7a 42 75 66 5b 35 30 30 5d 3b 0a 20 20 76 61   zBuf[500];.  va
7120: 5f 73 74 61 72 74 28 61 70 2c 20 7a 46 6f 72 6d  _start(ap, zForm
7130: 61 74 29 3b 0a 20 20 62 61 73 65 5f 76 70 72 69  at);.  base_vpri
7140: 6e 74 66 28 30 2c 20 30 2c 20 7a 42 75 66 2c 20  ntf(0, 0, zBuf, 
7150: 73 69 7a 65 6f 66 28 7a 42 75 66 29 2c 20 7a 46  sizeof(zBuf), zF
7160: 6f 72 6d 61 74 2c 20 61 70 29 3b 0a 20 20 76 61  ormat, ap);.  va
7170: 5f 65 6e 64 28 61 70 29 3b 0a 20 20 66 70 72 69  _end(ap);.  fpri
7180: 6e 74 66 28 73 74 64 6f 75 74 2c 22 25 64 3a 20  ntf(stdout,"%d: 
7190: 25 73 22 2c 20 67 65 74 70 69 64 28 29 2c 20 7a  %s", getpid(), z
71a0: 42 75 66 29 3b 0a 20 20 66 66 6c 75 73 68 28 73  Buf);.  fflush(s
71b0: 74 64 6f 75 74 29 3b 0a 7d 0a 23 65 6e 64 69 66  tdout);.}.#endif
71c0: 0a                                               .