/ Hex Artifact Content
Login

Artifact 12e45d482ac8abcc6f786fc99e5bed7dd9a51af0:


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 73 6c 69 67 68 74 6c 79 20 6f 75 74  are slightly out
00b0: 2d 6f 66 2d 64 61 74 65 2e 0a 2a 2a 0a 2a 2a 20  -of-date..**.** 
00c0: 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 6d 6f  The following mo
00d0: 64 75 6c 65 73 20 69 73 20 61 6e 20 65 6e 68 61  dules is an enha
00e0: 6e 63 65 64 20 72 65 70 6c 61 63 65 6d 65 6e 74  nced replacement
00f0: 20 66 6f 72 20 74 68 65 20 22 70 72 69 6e 74 66   for the "printf
0100: 22 20 73 75 62 72 6f 75 74 69 6e 65 73 0a 2a 2a  " subroutines.**
0110: 20 66 6f 75 6e 64 20 69 6e 20 74 68 65 20 73 74   found in the st
0120: 61 6e 64 61 72 64 20 43 20 6c 69 62 72 61 72 79  andard C library
0130: 2e 20 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67  .  The following
0140: 20 65 6e 68 61 6e 63 65 6d 65 6e 74 73 20 61 72   enhancements ar
0150: 65 0a 2a 2a 20 73 75 70 70 6f 72 74 65 64 3a 0a  e.** supported:.
0160: 2a 2a 0a 2a 2a 20 20 20 20 20 20 2b 20 20 41 64  **.**      +  Ad
0170: 64 69 74 69 6f 6e 61 6c 20 66 75 6e 63 74 69 6f  ditional functio
0180: 6e 73 2e 20 20 54 68 65 20 73 74 61 6e 64 61 72  ns.  The standar
0190: 64 20 73 65 74 20 6f 66 20 22 70 72 69 6e 74 66  d set of "printf
01a0: 22 20 66 75 6e 63 74 69 6f 6e 73 0a 2a 2a 20 20  " functions.**  
01b0: 20 20 20 20 20 20 20 69 6e 63 6c 75 64 65 73 20         includes 
01c0: 70 72 69 6e 74 66 2c 20 66 70 72 69 6e 74 66 2c  printf, fprintf,
01d0: 20 73 70 72 69 6e 74 66 2c 20 76 70 72 69 6e 74   sprintf, vprint
01e0: 66 2c 20 76 66 70 72 69 6e 74 66 2c 20 61 6e 64  f, vfprintf, and
01f0: 0a 2a 2a 20 20 20 20 20 20 20 20 20 76 73 70 72  .**         vspr
0200: 69 6e 74 66 2e 20 20 54 68 69 73 20 6d 6f 64 75  intf.  This modu
0210: 6c 65 20 61 64 64 73 20 74 68 65 20 66 6f 6c 6c  le adds the foll
0220: 6f 77 69 6e 67 3a 0a 2a 2a 0a 2a 2a 20 20 20 20  owing:.**.**    
0230: 20 20 20 20 20 20 20 2a 20 20 73 6e 70 72 69 6e         *  snprin
0240: 74 66 20 2d 2d 20 57 6f 72 6b 73 20 6c 69 6b 65  tf -- Works like
0250: 20 73 70 72 69 6e 74 66 2c 20 62 75 74 20 68 61   sprintf, but ha
0260: 73 20 61 6e 20 65 78 74 72 61 20 61 72 67 75 6d  s an extra argum
0270: 65 6e 74 0a 2a 2a 20 20 20 20 20 20 20 20 20 20  ent.**          
0280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0290: 77 68 69 63 68 20 69 73 20 74 68 65 20 73 69 7a  which is the siz
02a0: 65 20 6f 66 20 74 68 65 20 62 75 66 66 65 72 20  e of the buffer 
02b0: 77 72 69 74 74 65 6e 20 74 6f 2e 0a 2a 2a 0a 2a  written to..**.*
02c0: 2a 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 6d  *           *  m
02d0: 70 72 69 6e 74 66 20 2d 2d 20 20 53 69 6d 69 6c  printf --  Simil
02e0: 61 72 20 74 6f 20 73 70 72 69 6e 74 66 2e 20 20  ar to sprintf.  
02f0: 57 72 69 74 65 73 20 6f 75 74 70 75 74 20 74 6f  Writes output to
0300: 20 6d 65 6d 6f 72 79 0a 2a 2a 20 20 20 20 20 20   memory.**      
0310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0320: 20 20 20 20 6f 62 74 61 69 6e 65 64 20 66 72 6f      obtained fro
0330: 6d 20 6d 61 6c 6c 6f 63 2e 0a 2a 2a 0a 2a 2a 20  m malloc..**.** 
0340: 20 20 20 20 20 20 20 20 20 20 2a 20 20 78 70 72            *  xpr
0350: 69 6e 74 66 20 2d 2d 20 20 43 61 6c 6c 73 20 61  intf --  Calls a
0360: 20 66 75 6e 63 74 69 6f 6e 20 74 6f 20 64 69 73   function to dis
0370: 70 6f 73 65 20 6f 66 20 6f 75 74 70 75 74 2e 0a  pose of output..
0380: 2a 2a 0a 2a 2a 20 20 20 20 20 20 20 20 20 20 20  **.**           
0390: 2a 20 20 6e 70 72 69 6e 74 66 20 2d 2d 20 20 4e  *  nprintf --  N
03a0: 6f 20 6f 75 74 70 75 74 2c 20 62 75 74 20 72 65  o output, but re
03b0: 74 75 72 6e 73 20 74 68 65 20 6e 75 6d 62 65 72  turns the number
03c0: 20 6f 66 20 63 68 61 72 61 63 74 65 72 73 0a 2a   of characters.*
03d0: 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  *               
03e0: 20 20 20 20 20 20 20 20 20 20 20 74 68 61 74 20             that 
03f0: 77 6f 75 6c 64 20 68 61 76 65 20 62 65 65 6e 20  would have been 
0400: 6f 75 74 70 75 74 20 62 79 20 70 72 69 6e 74 66  output by printf
0410: 2e 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 20 20 20  ..**.**         
0420: 20 20 2a 20 20 41 20 76 2d 20 76 65 72 73 69 6f    *  A v- versio
0430: 6e 20 28 65 78 3a 20 76 73 6e 70 72 69 6e 74 66  n (ex: vsnprintf
0440: 29 20 6f 66 20 65 76 65 72 79 20 66 75 6e 63 74  ) of every funct
0450: 69 6f 6e 20 69 73 20 61 6c 73 6f 0a 2a 2a 20 20  ion is also.**  
0460: 20 20 20 20 20 20 20 20 20 20 20 20 73 75 70 70              supp
0470: 6c 69 65 64 2e 0a 2a 2a 0a 2a 2a 20 20 20 20 20  lied..**.**     
0480: 20 2b 20 20 41 20 66 65 77 20 65 78 74 65 6e 73   +  A few extens
0490: 69 6f 6e 73 20 74 6f 20 74 68 65 20 66 6f 72 6d  ions to the form
04a0: 61 74 74 69 6e 67 20 6e 6f 74 61 74 69 6f 6e 20  atting notation 
04b0: 61 72 65 20 73 75 70 70 6f 72 74 65 64 3a 0a 2a  are supported:.*
04c0: 2a 0a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 2a  *.**           *
04d0: 20 20 54 68 65 20 22 3d 22 20 66 6c 61 67 20 28    The "=" flag (
04e0: 73 69 6d 69 6c 61 72 20 74 6f 20 22 2d 22 29 20  similar to "-") 
04f0: 63 61 75 73 65 73 20 74 68 65 20 6f 75 74 70 75  causes the outpu
0500: 74 20 74 6f 20 62 65 0a 2a 2a 20 20 20 20 20 20  t to be.**      
0510: 20 20 20 20 20 20 20 20 62 65 20 63 65 6e 74 65          be cente
0520: 72 65 64 20 69 6e 20 74 68 65 20 61 70 70 72 6f  red in the appro
0530: 70 72 69 61 74 65 6c 79 20 73 69 7a 65 64 20 66  priately sized f
0540: 69 65 6c 64 2e 0a 2a 2a 0a 2a 2a 20 20 20 20 20  ield..**.**     
0550: 20 20 20 20 20 20 2a 20 20 54 68 65 20 25 62 20        *  The %b 
0560: 66 69 65 6c 64 20 6f 75 74 70 75 74 73 20 61 6e  field outputs an
0570: 20 69 6e 74 65 67 65 72 20 69 6e 20 62 69 6e 61   integer in bina
0580: 72 79 20 6e 6f 74 61 74 69 6f 6e 2e 0a 2a 2a 0a  ry notation..**.
0590: 2a 2a 20 20 20 20 20 20 20 20 20 20 20 2a 20 20  **           *  
05a0: 54 68 65 20 25 63 20 66 69 65 6c 64 20 6e 6f 77  The %c field now
05b0: 20 61 63 63 65 70 74 73 20 61 20 70 72 65 63 69   accepts a preci
05c0: 73 69 6f 6e 2e 20 20 54 68 65 20 63 68 61 72 61  sion.  The chara
05d0: 63 74 65 72 20 6f 75 74 70 75 74 0a 2a 2a 20 20  cter output.**  
05e0: 20 20 20 20 20 20 20 20 20 20 20 20 69 73 20 72              is r
05f0: 65 70 65 61 74 65 64 20 62 79 20 74 68 65 20 6e  epeated by the n
0600: 75 6d 62 65 72 20 6f 66 20 74 69 6d 65 73 20 74  umber of times t
0610: 68 65 20 70 72 65 63 69 73 69 6f 6e 20 73 70 65  he precision spe
0620: 63 69 66 69 65 73 2e 0a 2a 2a 0a 2a 2a 20 20 20  cifies..**.**   
0630: 20 20 20 20 20 20 20 20 2a 20 20 54 68 65 20 25          *  The %
0640: 27 20 66 69 65 6c 64 20 77 6f 72 6b 73 20 6c 69  ' field works li
0650: 6b 65 20 25 63 2c 20 62 75 74 20 74 61 6b 65 73  ke %c, but takes
0660: 20 61 73 20 69 74 73 20 63 68 61 72 61 63 74 65   as its characte
0670: 72 20 74 68 65 0a 2a 2a 20 20 20 20 20 20 20 20  r the.**        
0680: 20 20 20 20 20 20 6e 65 78 74 20 63 68 61 72 61        next chara
0690: 63 74 65 72 20 6f 66 20 74 68 65 20 66 6f 72 6d  cter of the form
06a0: 61 74 20 73 74 72 69 6e 67 2c 20 69 6e 73 74 65  at string, inste
06b0: 61 64 20 6f 66 20 74 68 65 20 6e 65 78 74 0a 2a  ad of the next.*
06c0: 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61  *              a
06d0: 72 67 75 6d 65 6e 74 2e 20 20 46 6f 72 20 65 78  rgument.  For ex
06e0: 61 6d 70 6c 65 2c 20 20 70 72 69 6e 74 66 28 22  ample,  printf("
06f0: 25 2e 37 38 27 2d 22 29 20 20 70 72 69 6e 74 73  %.78'-")  prints
0700: 20 37 38 20 6d 69 6e 75 73 0a 2a 2a 20 20 20 20   78 minus.**    
0710: 20 20 20 20 20 20 20 20 20 20 73 69 67 6e 73 2c            signs,
0720: 20 74 68 65 20 73 61 6d 65 20 61 73 20 20 70 72   the same as  pr
0730: 69 6e 74 66 28 22 25 2e 37 38 63 22 2c 27 2d 27  intf("%.78c",'-'
0740: 29 2e 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 2b 20  )..**.**      + 
0750: 20 57 68 65 6e 20 63 6f 6d 70 69 6c 65 64 20 75   When compiled u
0760: 73 69 6e 67 20 47 43 43 20 6f 6e 20 61 20 53 50  sing GCC on a SP
0770: 41 52 43 2c 20 74 68 69 73 20 76 65 72 73 69 6f  ARC, this versio
0780: 6e 20 6f 66 20 70 72 69 6e 74 66 20 69 73 0a 2a  n of printf is.*
0790: 2a 20 20 20 20 20 20 20 20 20 66 61 73 74 65 72  *         faster
07a0: 20 74 68 61 6e 20 74 68 65 20 6c 69 62 72 61 72   than the librar
07b0: 79 20 70 72 69 6e 74 66 20 66 6f 72 20 53 55 4e  y printf for SUN
07c0: 20 4f 53 20 34 2e 31 2e 0a 2a 2a 0a 2a 2a 20 20   OS 4.1..**.**  
07d0: 20 20 20 20 2b 20 20 41 6c 6c 20 66 75 6e 63 74      +  All funct
07e0: 69 6f 6e 73 20 61 72 65 20 66 75 6c 6c 79 20 72  ions are fully r
07f0: 65 65 6e 74 72 61 6e 74 2e 0a 2a 2a 0a 2a 2f 0a  eentrant..**.*/.
0800: 23 69 6e 63 6c 75 64 65 20 22 73 71 6c 69 74 65  #include "sqlite
0810: 49 6e 74 2e 68 22 0a 0a 2f 2a 0a 2a 2a 20 55 6e  Int.h"../*.** Un
0820: 64 65 66 69 6e 65 20 43 4f 4d 50 41 54 49 42 49  define COMPATIBI
0830: 4c 49 54 59 20 74 6f 20 6d 61 6b 65 20 73 6f 6d  LITY to make som
0840: 65 20 73 6c 69 67 68 74 20 63 68 61 6e 67 65 73  e slight changes
0850: 20 69 6e 20 74 68 65 20 77 61 79 20 74 68 69 6e   in the way thin
0860: 67 73 0a 2a 2a 20 77 6f 72 6b 2e 20 20 49 20 74  gs.** work.  I t
0870: 68 69 6e 6b 20 74 68 65 20 63 68 61 6e 67 65 73  hink the changes
0880: 20 61 72 65 20 61 6e 20 69 6d 70 72 6f 76 65 6d   are an improvem
0890: 65 6e 74 2c 20 62 75 74 20 74 68 65 79 20 61 72  ent, but they ar
08a0: 65 20 6e 6f 74 0a 2a 2a 20 62 61 63 6b 77 61 72  e not.** backwar
08b0: 64 73 20 63 6f 6d 70 61 74 69 62 6c 65 2e 0a 2a  ds compatible..*
08c0: 2f 0a 2f 2a 20 23 64 65 66 69 6e 65 20 43 4f 4d  /./* #define COM
08d0: 50 41 54 49 42 49 4c 49 54 59 20 20 20 20 20 20  PATIBILITY      
08e0: 20 2f 20 2a 20 43 6f 6d 70 61 74 69 62 6c 65 20   / * Compatible 
08f0: 77 69 74 68 20 53 55 4e 20 4f 53 20 34 2e 31 20  with SUN OS 4.1 
0900: 2a 2f 0a 0a 2f 2a 0a 2a 2a 20 43 6f 6e 76 65 72  */../*.** Conver
0910: 73 69 6f 6e 20 74 79 70 65 73 20 66 61 6c 6c 20  sion types fall 
0920: 69 6e 74 6f 20 76 61 72 69 6f 75 73 20 63 61 74  into various cat
0930: 65 67 6f 72 69 65 73 20 61 73 20 64 65 66 69 6e  egories as defin
0940: 65 64 20 62 79 20 74 68 65 0a 2a 2a 20 66 6f 6c  ed by the.** fol
0950: 6c 6f 77 69 6e 67 20 65 6e 75 6d 65 72 61 74 69  lowing enumerati
0960: 6f 6e 2e 0a 2a 2f 0a 65 6e 75 6d 20 65 74 5f 74  on..*/.enum et_t
0970: 79 70 65 20 7b 20 20 20 20 2f 2a 20 54 68 65 20  ype {    /* The 
0980: 74 79 70 65 20 6f 66 20 74 68 65 20 66 6f 72 6d  type of the form
0990: 61 74 20 66 69 65 6c 64 20 2a 2f 0a 20 20 20 65  at field */.   e
09a0: 74 52 41 44 49 58 2c 20 20 20 20 20 20 20 20 20  tRADIX,         
09b0: 20 20 20 2f 2a 20 49 6e 74 65 67 65 72 20 74 79     /* Integer ty
09c0: 70 65 73 2e 20 20 25 64 2c 20 25 78 2c 20 25 6f  pes.  %d, %x, %o
09d0: 2c 20 61 6e 64 20 73 6f 20 66 6f 72 74 68 20 2a  , and so forth *
09e0: 2f 0a 20 20 20 65 74 46 4c 4f 41 54 2c 20 20 20  /.   etFLOAT,   
09f0: 20 20 20 20 20 20 20 20 20 2f 2a 20 46 6c 6f 61           /* Floa
0a00: 74 69 6e 67 20 70 6f 69 6e 74 2e 20 20 25 66 20  ting point.  %f 
0a10: 2a 2f 0a 20 20 20 65 74 45 58 50 2c 20 20 20 20  */.   etEXP,    
0a20: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 45 78 70            /* Exp
0a30: 6f 6e 65 6e 74 69 6f 6e 61 6c 20 6e 6f 74 61 74  onentional notat
0a40: 69 6f 6e 2e 20 25 65 20 61 6e 64 20 25 45 20 2a  ion. %e and %E *
0a50: 2f 0a 20 20 20 65 74 47 45 4e 45 52 49 43 2c 20  /.   etGENERIC, 
0a60: 20 20 20 20 20 20 20 20 20 2f 2a 20 46 6c 6f 61           /* Floa
0a70: 74 69 6e 67 20 6f 72 20 65 78 70 6f 6e 65 6e 74  ting or exponent
0a80: 69 61 6c 2c 20 64 65 70 65 6e 64 69 6e 67 20 6f  ial, depending o
0a90: 6e 20 65 78 70 6f 6e 65 6e 74 2e 20 25 67 20 2a  n exponent. %g *
0aa0: 2f 0a 20 20 20 65 74 53 49 5a 45 2c 20 20 20 20  /.   etSIZE,    
0ab0: 20 20 20 20 20 20 20 20 20 2f 2a 20 52 65 74 75           /* Retu
0ac0: 72 6e 20 6e 75 6d 62 65 72 20 6f 66 20 63 68 61  rn number of cha
0ad0: 72 61 63 74 65 72 73 20 70 72 6f 63 65 73 73 65  racters processe
0ae0: 64 20 73 6f 20 66 61 72 2e 20 25 6e 20 2a 2f 0a  d so far. %n */.
0af0: 20 20 20 65 74 53 54 52 49 4e 47 2c 20 20 20 20     etSTRING,    
0b00: 20 20 20 20 20 20 20 2f 2a 20 53 74 72 69 6e 67         /* String
0b10: 73 2e 20 25 73 20 2a 2f 0a 20 20 20 65 74 44 59  s. %s */.   etDY
0b20: 4e 53 54 52 49 4e 47 2c 20 20 20 20 20 20 20 20  NSTRING,        
0b30: 2f 2a 20 44 79 6e 61 6d 69 63 61 6c 6c 79 20 61  /* Dynamically a
0b40: 6c 6c 6f 63 61 74 65 64 20 73 74 72 69 6e 67 73  llocated strings
0b50: 2e 20 25 7a 20 2a 2f 0a 20 20 20 65 74 50 45 52  . %z */.   etPER
0b60: 43 45 4e 54 2c 20 20 20 20 20 20 20 20 20 20 2f  CENT,          /
0b70: 2a 20 50 65 72 63 65 6e 74 20 73 79 6d 62 6f 6c  * Percent symbol
0b80: 2e 20 25 25 20 2a 2f 0a 20 20 20 65 74 43 48 41  . %% */.   etCHA
0b90: 52 58 2c 20 20 20 20 20 20 20 20 20 20 20 20 2f  RX,            /
0ba0: 2a 20 43 68 61 72 61 63 74 65 72 73 2e 20 25 63  * Characters. %c
0bb0: 20 2a 2f 0a 20 20 20 65 74 45 52 52 4f 52 2c 20   */.   etERROR, 
0bc0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 55 73             /* Us
0bd0: 65 64 20 74 6f 20 69 6e 64 69 63 61 74 65 20 6e  ed to indicate n
0be0: 6f 20 73 75 63 68 20 63 6f 6e 76 65 72 73 69 6f  o such conversio
0bf0: 6e 20 74 79 70 65 20 2a 2f 0a 2f 2a 20 54 68 65  n type */./* The
0c00: 20 72 65 73 74 20 61 72 65 20 65 78 74 65 6e 73   rest are extens
0c10: 69 6f 6e 73 2c 20 6e 6f 74 20 6e 6f 72 6d 61 6c  ions, not normal
0c20: 6c 79 20 66 6f 75 6e 64 20 69 6e 20 70 72 69 6e  ly found in prin
0c30: 74 66 28 29 20 2a 2f 0a 20 20 20 65 74 43 48 41  tf() */.   etCHA
0c40: 52 4c 49 54 2c 20 20 20 20 20 20 20 20 20 20 2f  RLIT,          /
0c50: 2a 20 4c 69 74 65 72 61 6c 20 63 68 61 72 61 63  * Literal charac
0c60: 74 65 72 73 2e 20 20 25 27 20 2a 2f 0a 20 20 20  ters.  %' */.   
0c70: 65 74 53 51 4c 45 53 43 41 50 45 2c 20 20 20 20  etSQLESCAPE,    
0c80: 20 20 20 20 2f 2a 20 53 74 72 69 6e 67 73 20 77      /* Strings w
0c90: 69 74 68 20 27 5c 27 27 20 64 6f 75 62 6c 65 64  ith '\'' doubled
0ca0: 2e 20 20 25 71 20 2a 2f 0a 20 20 20 65 74 53 51  .  %q */.   etSQ
0cb0: 4c 45 53 43 41 50 45 32 2c 20 20 20 20 20 20 20  LESCAPE2,       
0cc0: 2f 2a 20 53 74 72 69 6e 67 73 20 77 69 74 68 20  /* Strings with 
0cd0: 27 5c 27 27 20 64 6f 75 62 6c 65 64 20 61 6e 64  '\'' doubled and
0ce0: 20 65 6e 63 6c 6f 73 65 64 20 69 6e 20 27 27 2c   enclosed in '',
0cf0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
0d00: 20 20 20 20 20 20 20 20 20 20 20 4e 55 4c 4c 20             NULL 
0d10: 70 6f 69 6e 74 65 72 73 20 72 65 70 6c 61 63 65  pointers replace
0d20: 64 20 62 79 20 53 51 4c 20 4e 55 4c 4c 2e 20 20  d by SQL NULL.  
0d30: 25 51 20 2a 2f 0a 20 20 20 65 74 4f 52 44 49 4e  %Q */.   etORDIN
0d40: 41 4c 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20  AL           /* 
0d50: 31 73 74 2c 20 32 6e 64 2c 20 33 72 64 20 61 6e  1st, 2nd, 3rd an
0d60: 64 20 73 6f 20 66 6f 72 74 68 20 2a 2f 0a 7d 3b  d so forth */.};
0d70: 0a 0a 2f 2a 0a 2a 2a 20 45 61 63 68 20 62 75 69  ../*.** Each bui
0d80: 6c 74 69 6e 20 63 6f 6e 76 65 72 73 69 6f 6e 20  ltin conversion 
0d90: 63 68 61 72 61 63 74 65 72 20 28 65 78 3a 20 74  character (ex: t
0da0: 68 65 20 27 64 27 20 69 6e 20 22 25 64 22 29 20  he 'd' in "%d") 
0db0: 69 73 20 64 65 73 63 72 69 62 65 64 0a 2a 2a 20  is described.** 
0dc0: 62 79 20 61 6e 20 69 6e 73 74 61 6e 63 65 20 6f  by an instance o
0dd0: 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20  f the following 
0de0: 73 74 72 75 63 74 75 72 65 0a 2a 2f 0a 74 79 70  structure.*/.typ
0df0: 65 64 65 66 20 73 74 72 75 63 74 20 65 74 5f 69  edef struct et_i
0e00: 6e 66 6f 20 7b 20 20 20 2f 2a 20 49 6e 66 6f 72  nfo {   /* Infor
0e10: 6d 61 74 69 6f 6e 20 61 62 6f 75 74 20 65 61 63  mation about eac
0e20: 68 20 66 6f 72 6d 61 74 20 66 69 65 6c 64 20 2a  h format field *
0e30: 2f 0a 20 20 69 6e 74 20 20 66 6d 74 74 79 70 65  /.  int  fmttype
0e40: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f  ;              /
0e50: 2a 20 54 68 65 20 66 6f 72 6d 61 74 20 66 69 65  * The format fie
0e60: 6c 64 20 63 6f 64 65 20 6c 65 74 74 65 72 20 2a  ld code letter *
0e70: 2f 0a 20 20 69 6e 74 20 20 62 61 73 65 3b 20 20  /.  int  base;  
0e80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
0e90: 2a 20 54 68 65 20 62 61 73 65 20 66 6f 72 20 72  * The base for r
0ea0: 61 64 69 78 20 63 6f 6e 76 65 72 73 69 6f 6e 20  adix conversion 
0eb0: 2a 2f 0a 20 20 63 68 61 72 20 2a 63 68 61 72 73  */.  char *chars
0ec0: 65 74 3b 20 20 20 20 20 20 20 20 20 20 20 20 20  et;             
0ed0: 2f 2a 20 54 68 65 20 63 68 61 72 61 63 74 65 72  /* The character
0ee0: 20 73 65 74 20 66 6f 72 20 63 6f 6e 76 65 72 73   set for convers
0ef0: 69 6f 6e 20 2a 2f 0a 20 20 69 6e 74 20 20 66 6c  ion */.  int  fl
0f00: 61 67 5f 73 69 67 6e 65 64 3b 20 20 20 20 20 20  ag_signed;      
0f10: 20 20 20 20 2f 2a 20 49 73 20 74 68 65 20 71 75      /* Is the qu
0f20: 61 6e 74 69 74 79 20 73 69 67 6e 65 64 3f 20 2a  antity signed? *
0f30: 2f 0a 20 20 63 68 61 72 20 2a 70 72 65 66 69 78  /.  char *prefix
0f40: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f  ;              /
0f50: 2a 20 50 72 65 66 69 78 20 6f 6e 20 6e 6f 6e 2d  * Prefix on non-
0f60: 7a 65 72 6f 20 76 61 6c 75 65 73 20 69 6e 20 61  zero values in a
0f70: 6c 74 20 66 6f 72 6d 61 74 20 2a 2f 0a 20 20 65  lt format */.  e
0f80: 6e 75 6d 20 65 74 5f 74 79 70 65 20 74 79 70 65  num et_type type
0f90: 3b 20 20 20 20 20 20 20 20 20 20 2f 2a 20 43 6f  ;          /* Co
0fa0: 6e 76 65 72 73 69 6f 6e 20 70 61 72 61 64 69 67  nversion paradig
0fb0: 6d 20 2a 2f 0a 7d 20 65 74 5f 69 6e 66 6f 3b 0a  m */.} et_info;.
0fc0: 0a 2f 2a 0a 2a 2a 20 54 68 65 20 66 6f 6c 6c 6f  ./*.** The follo
0fd0: 77 69 6e 67 20 74 61 62 6c 65 20 69 73 20 73 65  wing table is se
0fe0: 61 72 63 68 65 64 20 6c 69 6e 65 61 72 6c 79 2c  arched linearly,
0ff0: 20 73 6f 20 69 74 20 69 73 20 67 6f 6f 64 20 74   so it is good t
1000: 6f 20 70 75 74 20 74 68 65 0a 2a 2a 20 6d 6f 73  o put the.** mos
1010: 74 20 66 72 65 71 75 65 6e 74 6c 79 20 75 73 65  t frequently use
1020: 64 20 63 6f 6e 76 65 72 73 69 6f 6e 20 74 79 70  d conversion typ
1030: 65 73 20 66 69 72 73 74 2e 0a 2a 2f 0a 73 74 61  es first..*/.sta
1040: 74 69 63 20 65 74 5f 69 6e 66 6f 20 66 6d 74 69  tic et_info fmti
1050: 6e 66 6f 5b 5d 20 3d 20 7b 0a 20 20 7b 20 27 64  nfo[] = {.  { 'd
1060: 27 2c 20 20 31 30 2c 20 20 22 30 31 32 33 34 35  ',  10,  "012345
1070: 36 37 38 39 22 2c 20 20 20 20 20 20 20 31 2c 20  6789",       1, 
1080: 20 20 20 30 2c 20 65 74 52 41 44 49 58 2c 20 20     0, etRADIX,  
1090: 20 20 20 20 7d 2c 0a 20 20 7b 20 27 73 27 2c 20      },.  { 's', 
10a0: 20 20 30 2c 20 20 30 2c 20 20 20 20 20 20 20 20    0,  0,        
10b0: 20 20 20 20 20 20 20 20 20 20 30 2c 20 20 20 20            0,    
10c0: 30 2c 20 65 74 53 54 52 49 4e 47 2c 20 20 20 20  0, etSTRING,    
10d0: 20 7d 2c 20 0a 20 20 7b 20 27 7a 27 2c 20 20 20   }, .  { 'z',   
10e0: 30 2c 20 20 30 2c 20 20 20 20 20 20 20 20 20 20  0,  0,          
10f0: 20 20 20 20 20 20 20 20 30 2c 20 20 20 20 30 2c          0,    0,
1100: 20 65 74 44 59 4e 53 54 52 49 4e 47 2c 20 20 7d   etDYNSTRING,  }
1110: 2c 20 0a 20 20 7b 20 27 71 27 2c 20 20 20 30 2c  , .  { 'q',   0,
1120: 20 20 30 2c 20 20 20 20 20 20 20 20 20 20 20 20    0,            
1130: 20 20 20 20 20 20 30 2c 20 20 20 20 30 2c 20 65        0,    0, e
1140: 74 53 51 4c 45 53 43 41 50 45 2c 20 20 7d 2c 0a  tSQLESCAPE,  },.
1150: 20 20 7b 20 27 51 27 2c 20 20 20 30 2c 20 20 30    { 'Q',   0,  0
1160: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ,               
1170: 20 20 20 30 2c 20 20 20 20 30 2c 20 65 74 53 51     0,    0, etSQ
1180: 4c 45 53 43 41 50 45 32 2c 20 7d 2c 0a 20 20 7b  LESCAPE2, },.  {
1190: 20 27 63 27 2c 20 20 20 30 2c 20 20 30 2c 20 20   'c',   0,  0,  
11a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
11b0: 30 2c 20 20 20 20 30 2c 20 65 74 43 48 41 52 58  0,    0, etCHARX
11c0: 2c 20 20 20 20 20 20 7d 2c 0a 20 20 7b 20 27 6f  ,      },.  { 'o
11d0: 27 2c 20 20 20 38 2c 20 20 22 30 31 32 33 34 35  ',   8,  "012345
11e0: 36 37 22 2c 20 20 20 20 20 20 20 20 20 30 2c 20  67",         0, 
11f0: 20 22 30 22 2c 20 65 74 52 41 44 49 58 2c 20 20   "0", etRADIX,  
1200: 20 20 20 20 7d 2c 0a 20 20 7b 20 27 75 27 2c 20      },.  { 'u', 
1210: 20 31 30 2c 20 20 22 30 31 32 33 34 35 36 37 38   10,  "012345678
1220: 39 22 2c 20 20 20 20 20 20 20 30 2c 20 20 20 20  9",       0,    
1230: 30 2c 20 65 74 52 41 44 49 58 2c 20 20 20 20 20  0, etRADIX,     
1240: 20 7d 2c 0a 20 20 7b 20 27 78 27 2c 20 20 31 36   },.  { 'x',  16
1250: 2c 20 20 22 30 31 32 33 34 35 36 37 38 39 61 62  ,  "0123456789ab
1260: 63 64 65 66 22 2c 20 30 2c 20 22 78 30 22 2c 20  cdef", 0, "x0", 
1270: 65 74 52 41 44 49 58 2c 20 20 20 20 20 20 7d 2c  etRADIX,      },
1280: 0a 20 20 7b 20 27 58 27 2c 20 20 31 36 2c 20 20  .  { 'X',  16,  
1290: 22 30 31 32 33 34 35 36 37 38 39 41 42 43 44 45  "0123456789ABCDE
12a0: 46 22 2c 20 30 2c 20 22 58 30 22 2c 20 65 74 52  F", 0, "X0", etR
12b0: 41 44 49 58 2c 20 20 20 20 20 20 7d 2c 0a 20 20  ADIX,      },.  
12c0: 7b 20 27 72 27 2c 20 20 31 30 2c 20 20 22 30 31  { 'r',  10,  "01
12d0: 32 33 34 35 36 37 38 39 22 2c 20 20 20 20 20 20  23456789",      
12e0: 20 30 2c 20 20 20 20 30 2c 20 65 74 4f 52 44 49   0,    0, etORDI
12f0: 4e 41 4c 2c 20 20 20 20 7d 2c 0a 20 20 7b 20 27  NAL,    },.  { '
1300: 66 27 2c 20 20 20 30 2c 20 20 30 2c 20 20 20 20  f',   0,  0,    
1310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 2c                1,
1320: 20 20 20 20 30 2c 20 65 74 46 4c 4f 41 54 2c 20      0, etFLOAT, 
1330: 20 20 20 20 20 7d 2c 0a 20 20 7b 20 27 65 27 2c       },.  { 'e',
1340: 20 20 20 30 2c 20 20 22 65 22 2c 20 20 20 20 20     0,  "e",     
1350: 20 20 20 20 20 20 20 20 20 20 20 31 2c 20 20 20             1,   
1360: 20 30 2c 20 65 74 45 58 50 2c 20 20 20 20 20 20   0, etEXP,      
1370: 20 20 7d 2c 0a 20 20 7b 20 27 45 27 2c 20 20 20    },.  { 'E',   
1380: 30 2c 20 20 22 45 22 2c 20 20 20 20 20 20 20 20  0,  "E",        
1390: 20 20 20 20 20 20 20 20 31 2c 20 20 20 20 30 2c          1,    0,
13a0: 20 65 74 45 58 50 2c 20 20 20 20 20 20 20 20 7d   etEXP,        }
13b0: 2c 0a 20 20 7b 20 27 67 27 2c 20 20 20 30 2c 20  ,.  { 'g',   0, 
13c0: 20 22 65 22 2c 20 20 20 20 20 20 20 20 20 20 20   "e",           
13d0: 20 20 20 20 20 31 2c 20 20 20 20 30 2c 20 65 74       1,    0, et
13e0: 47 45 4e 45 52 49 43 2c 20 20 20 20 7d 2c 0a 20  GENERIC,    },. 
13f0: 20 7b 20 27 47 27 2c 20 20 20 30 2c 20 20 22 45   { 'G',   0,  "E
1400: 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ",              
1410: 20 20 31 2c 20 20 20 20 30 2c 20 65 74 47 45 4e    1,    0, etGEN
1420: 45 52 49 43 2c 20 20 20 20 7d 2c 0a 20 20 7b 20  ERIC,    },.  { 
1430: 27 69 27 2c 20 20 31 30 2c 20 20 22 30 31 32 33  'i',  10,  "0123
1440: 34 35 36 37 38 39 22 2c 20 20 20 20 20 20 20 31  456789",       1
1450: 2c 20 20 20 20 30 2c 20 65 74 52 41 44 49 58 2c  ,    0, etRADIX,
1460: 20 20 20 20 20 20 7d 2c 0a 20 20 7b 20 27 6e 27        },.  { 'n'
1470: 2c 20 20 20 30 2c 20 20 30 2c 20 20 20 20 20 20  ,   0,  0,      
1480: 20 20 20 20 20 20 20 20 20 20 20 20 30 2c 20 20              0,  
1490: 20 20 30 2c 20 65 74 53 49 5a 45 2c 20 20 20 20    0, etSIZE,    
14a0: 20 20 20 7d 2c 0a 20 20 7b 20 27 25 27 2c 20 20     },.  { '%',  
14b0: 20 30 2c 20 20 30 2c 20 20 20 20 20 20 20 20 20   0,  0,         
14c0: 20 20 20 20 20 20 20 20 20 30 2c 20 20 20 20 30           0,    0
14d0: 2c 20 65 74 50 45 52 43 45 4e 54 2c 20 20 20 20  , etPERCENT,    
14e0: 7d 2c 0a 20 20 7b 20 27 62 27 2c 20 20 20 32 2c  },.  { 'b',   2,
14f0: 20 20 22 30 31 22 2c 20 20 20 20 20 20 20 20 20    "01",         
1500: 20 20 20 20 20 20 30 2c 20 22 62 30 22 2c 20 65        0, "b0", e
1510: 74 52 41 44 49 58 2c 20 20 20 20 20 20 7d 2c 20  tRADIX,      }, 
1520: 2f 2a 20 42 69 6e 61 72 79 20 2a 2f 0a 20 20 7b  /* Binary */.  {
1530: 20 27 70 27 2c 20 20 31 30 2c 20 20 22 30 31 32   'p',  10,  "012
1540: 33 34 35 36 37 38 39 22 2c 20 20 20 20 20 20 20  3456789",       
1550: 30 2c 20 20 20 20 30 2c 20 65 74 52 41 44 49 58  0,    0, etRADIX
1560: 2c 20 20 20 20 20 20 7d 2c 20 2f 2a 20 50 6f 69  ,      }, /* Poi
1570: 6e 74 65 72 73 20 2a 2f 0a 20 20 7b 20 27 5c 27  nters */.  { '\'
1580: 27 2c 20 20 30 2c 20 20 30 2c 20 20 20 20 20 20  ',  0,  0,      
1590: 20 20 20 20 20 20 20 20 20 20 20 20 30 2c 20 20              0,  
15a0: 20 20 30 2c 20 65 74 43 48 41 52 4c 49 54 2c 20    0, etCHARLIT, 
15b0: 20 20 20 7d 2c 20 2f 2a 20 4c 69 74 65 72 61 6c     }, /* Literal
15c0: 20 63 68 61 72 20 2a 2f 0a 7d 3b 0a 23 64 65 66   char */.};.#def
15d0: 69 6e 65 20 65 74 4e 49 4e 46 4f 20 20 28 73 69  ine etNINFO  (si
15e0: 7a 65 6f 66 28 66 6d 74 69 6e 66 6f 29 2f 73 69  zeof(fmtinfo)/si
15f0: 7a 65 6f 66 28 66 6d 74 69 6e 66 6f 5b 30 5d 29  zeof(fmtinfo[0])
1600: 29 0a 0a 2f 2a 0a 2a 2a 20 49 66 20 4e 4f 46 4c  )../*.** If NOFL
1610: 4f 41 54 49 4e 47 50 4f 49 4e 54 20 69 73 20 64  OATINGPOINT is d
1620: 65 66 69 6e 65 64 2c 20 74 68 65 6e 20 6e 6f 6e  efined, then non
1630: 65 20 6f 66 20 74 68 65 20 66 6c 6f 61 74 69 6e  e of the floatin
1640: 67 20 70 6f 69 6e 74 0a 2a 2a 20 63 6f 6e 76 65  g point.** conve
1650: 72 73 69 6f 6e 73 20 77 69 6c 6c 20 77 6f 72 6b  rsions will work
1660: 2e 0a 2a 2f 0a 23 69 66 6e 64 65 66 20 65 74 4e  ..*/.#ifndef etN
1670: 4f 46 4c 4f 41 54 49 4e 47 50 4f 49 4e 54 0a 2f  OFLOATINGPOINT./
1680: 2a 0a 2a 2a 20 22 2a 76 61 6c 22 20 69 73 20 61  *.** "*val" is a
1690: 20 64 6f 75 62 6c 65 20 73 75 63 68 20 74 68 61   double such tha
16a0: 74 20 30 2e 31 20 3c 3d 20 2a 76 61 6c 20 3c 20  t 0.1 <= *val < 
16b0: 31 30 2e 30 0a 2a 2a 20 52 65 74 75 72 6e 20 74  10.0.** Return t
16c0: 68 65 20 61 73 63 69 69 20 63 6f 64 65 20 66 6f  he ascii code fo
16d0: 72 20 74 68 65 20 6c 65 61 64 69 6e 67 20 64 69  r the leading di
16e0: 67 69 74 20 6f 66 20 2a 76 61 6c 2c 20 74 68 65  git of *val, the
16f0: 6e 0a 2a 2a 20 6d 75 6c 74 69 70 6c 79 20 22 2a  n.** multiply "*
1700: 76 61 6c 22 20 62 79 20 31 30 2e 30 20 74 6f 20  val" by 10.0 to 
1710: 72 65 6e 6f 72 6d 61 6c 69 7a 65 2e 0a 2a 2a 0a  renormalize..**.
1720: 2a 2a 20 45 78 61 6d 70 6c 65 3a 0a 2a 2a 20 20  ** Example:.**  
1730: 20 20 20 69 6e 70 75 74 3a 20 20 20 20 20 2a 76     input:     *v
1740: 61 6c 20 3d 20 33 2e 31 34 31 35 39 0a 2a 2a 20  al = 3.14159.** 
1750: 20 20 20 20 6f 75 74 70 75 74 3a 20 20 20 20 2a      output:    *
1760: 76 61 6c 20 3d 20 31 2e 34 31 35 39 20 20 20 20  val = 1.4159    
1770: 66 75 6e 63 74 69 6f 6e 20 72 65 74 75 72 6e 20  function return 
1780: 3d 20 27 33 27 0a 2a 2a 0a 2a 2a 20 54 68 65 20  = '3'.**.** The 
1790: 63 6f 75 6e 74 65 72 20 2a 63 6e 74 20 69 73 20  counter *cnt is 
17a0: 69 6e 63 72 65 6d 65 6e 74 65 64 20 65 61 63 68  incremented each
17b0: 20 74 69 6d 65 2e 20 20 41 66 74 65 72 20 63 6f   time.  After co
17c0: 75 6e 74 65 72 20 65 78 63 65 65 64 73 0a 2a 2a  unter exceeds.**
17d0: 20 31 36 20 28 74 68 65 20 6e 75 6d 62 65 72 20   16 (the number 
17e0: 6f 66 20 73 69 67 6e 69 66 69 63 61 6e 74 20 64  of significant d
17f0: 69 67 69 74 73 20 69 6e 20 61 20 36 34 2d 62 69  igits in a 64-bi
1800: 74 20 66 6c 6f 61 74 29 20 27 30 27 20 69 73 0a  t float) '0' is.
1810: 2a 2a 20 61 6c 77 61 79 73 20 72 65 74 75 72 6e  ** always return
1820: 65 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e  ed..*/.static in
1830: 74 20 65 74 5f 67 65 74 64 69 67 69 74 28 64 6f  t et_getdigit(do
1840: 75 62 6c 65 20 2a 76 61 6c 2c 20 69 6e 74 20 2a  uble *val, int *
1850: 63 6e 74 29 7b 0a 20 20 69 6e 74 20 64 69 67 69  cnt){.  int digi
1860: 74 3b 0a 20 20 64 6f 75 62 6c 65 20 64 3b 0a 20  t;.  double d;. 
1870: 20 69 66 28 20 28 2a 63 6e 74 29 2b 2b 20 3e 3d   if( (*cnt)++ >=
1880: 20 31 36 20 29 20 72 65 74 75 72 6e 20 27 30 27   16 ) return '0'
1890: 3b 0a 20 20 64 69 67 69 74 20 3d 20 28 69 6e 74  ;.  digit = (int
18a0: 29 2a 76 61 6c 3b 0a 20 20 64 20 3d 20 64 69 67  )*val;.  d = dig
18b0: 69 74 3b 0a 20 20 64 69 67 69 74 20 2b 3d 20 27  it;.  digit += '
18c0: 30 27 3b 0a 20 20 2a 76 61 6c 20 3d 20 28 2a 76  0';.  *val = (*v
18d0: 61 6c 20 2d 20 64 29 2a 31 30 2e 30 3b 0a 20 20  al - d)*10.0;.  
18e0: 72 65 74 75 72 6e 20 64 69 67 69 74 3b 0a 7d 0a  return digit;.}.
18f0: 23 65 6e 64 69 66 0a 0a 23 64 65 66 69 6e 65 20  #endif..#define 
1900: 65 74 42 55 46 53 49 5a 45 20 31 30 30 30 20 20  etBUFSIZE 1000  
1910: 2f 2a 20 53 69 7a 65 20 6f 66 20 74 68 65 20 6f  /* Size of the o
1920: 75 74 70 75 74 20 62 75 66 66 65 72 20 2a 2f 0a  utput buffer */.
1930: 0a 2f 2a 0a 2a 2a 20 54 68 65 20 72 6f 6f 74 20  ./*.** The root 
1940: 70 72 6f 67 72 61 6d 2e 20 20 41 6c 6c 20 76 61  program.  All va
1950: 72 69 61 74 69 6f 6e 73 20 63 61 6c 6c 20 74 68  riations call th
1960: 69 73 20 63 6f 72 65 2e 0a 2a 2a 0a 2a 2a 20 49  is core..**.** I
1970: 4e 50 55 54 53 3a 0a 2a 2a 20 20 20 66 75 6e 63  NPUTS:.**   func
1980: 20 20 20 54 68 69 73 20 69 73 20 61 20 70 6f 69     This is a poi
1990: 6e 74 65 72 20 74 6f 20 61 20 66 75 6e 63 74 69  nter to a functi
19a0: 6f 6e 20 74 61 6b 69 6e 67 20 74 68 72 65 65 20  on taking three 
19b0: 61 72 67 75 6d 65 6e 74 73 0a 2a 2a 20 20 20 20  arguments.**    
19c0: 20 20 20 20 20 20 20 20 31 2e 20 41 20 70 6f 69          1. A poi
19d0: 6e 74 65 72 20 74 6f 20 61 6e 79 74 68 69 6e 67  nter to anything
19e0: 2e 20 20 53 61 6d 65 20 61 73 20 74 68 65 20 22  .  Same as the "
19f0: 61 72 67 22 20 70 61 72 61 6d 65 74 65 72 2e 0a  arg" parameter..
1a00: 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 32 2e  **            2.
1a10: 20 41 20 70 6f 69 6e 74 65 72 20 74 6f 20 74 68   A pointer to th
1a20: 65 20 6c 69 73 74 20 6f 66 20 63 68 61 72 61 63  e list of charac
1a30: 74 65 72 73 20 74 6f 20 62 65 20 6f 75 74 70 75  ters to be outpu
1a40: 74 0a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20  t.**            
1a50: 20 20 20 28 4e 6f 74 65 2c 20 74 68 69 73 20 6c     (Note, this l
1a60: 69 73 74 20 69 73 20 4e 4f 54 20 6e 75 6c 6c 20  ist is NOT null 
1a70: 74 65 72 6d 69 6e 61 74 65 64 2e 29 0a 2a 2a 20  terminated.).** 
1a80: 20 20 20 20 20 20 20 20 20 20 20 33 2e 20 41 6e             3. An
1a90: 20 69 6e 74 65 67 65 72 20 6e 75 6d 62 65 72 20   integer number 
1aa0: 6f 66 20 63 68 61 72 61 63 74 65 72 73 20 74 6f  of characters to
1ab0: 20 62 65 20 6f 75 74 70 75 74 2e 0a 2a 2a 20 20   be output..**  
1ac0: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 4e 6f               (No
1ad0: 74 65 3a 20 54 68 69 73 20 6e 75 6d 62 65 72 20  te: This number 
1ae0: 6d 69 67 68 74 20 62 65 20 7a 65 72 6f 2e 29 0a  might be zero.).
1af0: 2a 2a 0a 2a 2a 20 20 20 61 72 67 20 20 20 20 54  **.**   arg    T
1b00: 68 69 73 20 69 73 20 74 68 65 20 70 6f 69 6e 74  his is the point
1b10: 65 72 20 74 6f 20 61 6e 79 74 68 69 6e 67 20 77  er to anything w
1b20: 68 69 63 68 20 77 69 6c 6c 20 62 65 20 70 61 73  hich will be pas
1b30: 73 65 64 20 61 73 20 74 68 65 0a 2a 2a 20 20 20  sed as the.**   
1b40: 20 20 20 20 20 20 20 66 69 72 73 74 20 61 72 67         first arg
1b50: 75 6d 65 6e 74 20 74 6f 20 22 66 75 6e 63 22 2e  ument to "func".
1b60: 20 20 55 73 65 20 69 74 20 66 6f 72 20 77 68 61    Use it for wha
1b70: 74 65 76 65 72 20 79 6f 75 20 6c 69 6b 65 2e 0a  tever you like..
1b80: 2a 2a 0a 2a 2a 20 20 20 66 6d 74 20 20 20 20 54  **.**   fmt    T
1b90: 68 69 73 20 69 73 20 74 68 65 20 66 6f 72 6d 61  his is the forma
1ba0: 74 20 73 74 72 69 6e 67 2c 20 61 73 20 69 6e 20  t string, as in 
1bb0: 74 68 65 20 75 73 75 61 6c 20 70 72 69 6e 74 2e  the usual print.
1bc0: 0a 2a 2a 0a 2a 2a 20 20 20 61 70 20 20 20 20 20  .**.**   ap     
1bd0: 54 68 69 73 20 69 73 20 61 20 70 6f 69 6e 74 65  This is a pointe
1be0: 72 20 74 6f 20 61 20 6c 69 73 74 20 6f 66 20 61  r to a list of a
1bf0: 72 67 75 6d 65 6e 74 73 2e 20 20 53 61 6d 65 20  rguments.  Same 
1c00: 61 73 20 69 6e 0a 2a 2a 20 20 20 20 20 20 20 20  as in.**        
1c10: 20 20 76 66 70 72 69 6e 74 2e 0a 2a 2a 0a 2a 2a    vfprint..**.**
1c20: 20 4f 55 54 50 55 54 53 3a 0a 2a 2a 20 20 20 20   OUTPUTS:.**    
1c30: 20 20 20 20 20 20 54 68 65 20 72 65 74 75 72 6e        The return
1c40: 20 76 61 6c 75 65 20 69 73 20 74 68 65 20 74 6f   value is the to
1c50: 74 61 6c 20 6e 75 6d 62 65 72 20 6f 66 20 63 68  tal number of ch
1c60: 61 72 61 63 74 65 72 73 20 73 65 6e 74 20 74 6f  aracters sent to
1c70: 0a 2a 2a 20 20 20 20 20 20 20 20 20 20 74 68 65  .**          the
1c80: 20 66 75 6e 63 74 69 6f 6e 20 22 66 75 6e 63 22   function "func"
1c90: 2e 20 20 52 65 74 75 72 6e 73 20 2d 31 20 6f 6e  .  Returns -1 on
1ca0: 20 61 20 65 72 72 6f 72 2e 0a 2a 2a 0a 2a 2a 20   a error..**.** 
1cb0: 4e 6f 74 65 20 74 68 61 74 20 74 68 65 20 6f 72  Note that the or
1cc0: 64 65 72 20 69 6e 20 77 68 69 63 68 20 61 75 74  der in which aut
1cd0: 6f 6d 61 74 69 63 20 76 61 72 69 61 62 6c 65 73  omatic variables
1ce0: 20 61 72 65 20 64 65 63 6c 61 72 65 64 20 62 65   are declared be
1cf0: 6c 6f 77 0a 2a 2a 20 73 65 65 6d 73 20 74 6f 20  low.** seems to 
1d00: 6d 61 6b 65 20 61 20 62 69 67 20 64 69 66 66 65  make a big diffe
1d10: 72 65 6e 63 65 20 69 6e 20 64 65 74 65 72 6d 69  rence in determi
1d20: 6e 69 6e 67 20 68 6f 77 20 66 61 73 74 20 74 68  ning how fast th
1d30: 69 73 20 62 65 61 73 74 0a 2a 2a 20 77 69 6c 6c  is beast.** will
1d40: 20 72 75 6e 2e 0a 2a 2f 0a 73 74 61 74 69 63 20   run..*/.static 
1d50: 69 6e 74 20 76 78 70 72 69 6e 74 66 28 0a 20 20  int vxprintf(.  
1d60: 76 6f 69 64 20 28 2a 66 75 6e 63 29 28 76 6f 69  void (*func)(voi
1d70: 64 2a 2c 63 68 61 72 2a 2c 69 6e 74 29 2c 0a 20  d*,char*,int),. 
1d80: 20 76 6f 69 64 20 2a 61 72 67 2c 0a 20 20 63 6f   void *arg,.  co
1d90: 6e 73 74 20 63 68 61 72 20 2a 66 6f 72 6d 61 74  nst char *format
1da0: 2c 0a 20 20 76 61 5f 6c 69 73 74 20 61 70 0a 29  ,.  va_list ap.)
1db0: 7b 0a 20 20 72 65 67 69 73 74 65 72 20 63 6f 6e  {.  register con
1dc0: 73 74 20 63 68 61 72 20 2a 66 6d 74 3b 20 2f 2a  st char *fmt; /*
1dd0: 20 54 68 65 20 66 6f 72 6d 61 74 20 73 74 72 69   The format stri
1de0: 6e 67 2e 20 2a 2f 0a 20 20 72 65 67 69 73 74 65  ng. */.  registe
1df0: 72 20 69 6e 74 20 63 3b 20 20 20 20 20 20 20 20  r int c;        
1e00: 20 20 20 2f 2a 20 4e 65 78 74 20 63 68 61 72 61     /* Next chara
1e10: 63 74 65 72 20 69 6e 20 74 68 65 20 66 6f 72 6d  cter in the form
1e20: 61 74 20 73 74 72 69 6e 67 20 2a 2f 0a 20 20 72  at string */.  r
1e30: 65 67 69 73 74 65 72 20 63 68 61 72 20 2a 62 75  egister char *bu
1e40: 66 70 74 3b 20 20 20 20 20 2f 2a 20 50 6f 69 6e  fpt;     /* Poin
1e50: 74 65 72 20 74 6f 20 74 68 65 20 63 6f 6e 76 65  ter to the conve
1e60: 72 73 69 6f 6e 20 62 75 66 66 65 72 20 2a 2f 0a  rsion buffer */.
1e70: 20 20 72 65 67 69 73 74 65 72 20 69 6e 74 20 20    register int  
1e80: 70 72 65 63 69 73 69 6f 6e 3b 20 20 2f 2a 20 50  precision;  /* P
1e90: 72 65 63 69 73 69 6f 6e 20 6f 66 20 74 68 65 20  recision of the 
1ea0: 63 75 72 72 65 6e 74 20 66 69 65 6c 64 20 2a 2f  current field */
1eb0: 0a 20 20 72 65 67 69 73 74 65 72 20 69 6e 74 20  .  register int 
1ec0: 20 6c 65 6e 67 74 68 3b 20 20 20 20 20 2f 2a 20   length;     /* 
1ed0: 4c 65 6e 67 74 68 20 6f 66 20 74 68 65 20 66 69  Length of the fi
1ee0: 65 6c 64 20 2a 2f 0a 20 20 72 65 67 69 73 74 65  eld */.  registe
1ef0: 72 20 69 6e 74 20 20 69 64 78 3b 20 20 20 20 20  r int  idx;     
1f00: 20 20 20 2f 2a 20 41 20 67 65 6e 65 72 61 6c 20     /* A general 
1f10: 70 75 72 70 6f 73 65 20 6c 6f 6f 70 20 63 6f 75  purpose loop cou
1f20: 6e 74 65 72 20 2a 2f 0a 20 20 69 6e 74 20 63 6f  nter */.  int co
1f30: 75 6e 74 3b 20 20 20 20 20 20 20 20 20 20 20 20  unt;            
1f40: 20 20 20 20 2f 2a 20 54 6f 74 61 6c 20 6e 75 6d      /* Total num
1f50: 62 65 72 20 6f 66 20 63 68 61 72 61 63 74 65 72  ber of character
1f60: 73 20 6f 75 74 70 75 74 20 2a 2f 0a 20 20 69 6e  s output */.  in
1f70: 74 20 77 69 64 74 68 3b 20 20 20 20 20 20 20 20  t width;        
1f80: 20 20 20 20 20 20 20 20 2f 2a 20 57 69 64 74 68          /* Width
1f90: 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 20   of the current 
1fa0: 66 69 65 6c 64 20 2a 2f 0a 20 20 69 6e 74 20 66  field */.  int f
1fb0: 6c 61 67 5f 6c 65 66 74 6a 75 73 74 69 66 79 3b  lag_leftjustify;
1fc0: 20 20 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20       /* True if 
1fd0: 22 2d 22 20 66 6c 61 67 20 69 73 20 70 72 65 73  "-" flag is pres
1fe0: 65 6e 74 20 2a 2f 0a 20 20 69 6e 74 20 66 6c 61  ent */.  int fla
1ff0: 67 5f 70 6c 75 73 73 69 67 6e 3b 20 20 20 20 20  g_plussign;     
2000: 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20 22 2b     /* True if "+
2010: 22 20 66 6c 61 67 20 69 73 20 70 72 65 73 65 6e  " flag is presen
2020: 74 20 2a 2f 0a 20 20 69 6e 74 20 66 6c 61 67 5f  t */.  int flag_
2030: 62 6c 61 6e 6b 73 69 67 6e 3b 20 20 20 20 20 20  blanksign;      
2040: 20 2f 2a 20 54 72 75 65 20 69 66 20 22 20 22 20   /* True if " " 
2050: 66 6c 61 67 20 69 73 20 70 72 65 73 65 6e 74 20  flag is present 
2060: 2a 2f 0a 20 20 69 6e 74 20 66 6c 61 67 5f 61 6c  */.  int flag_al
2070: 74 65 72 6e 61 74 65 66 6f 72 6d 3b 20 20 20 2f  ternateform;   /
2080: 2a 20 54 72 75 65 20 69 66 20 22 23 22 20 66 6c  * True if "#" fl
2090: 61 67 20 69 73 20 70 72 65 73 65 6e 74 20 2a 2f  ag is present */
20a0: 0a 20 20 69 6e 74 20 66 6c 61 67 5f 7a 65 72 6f  .  int flag_zero
20b0: 70 61 64 3b 20 20 20 20 20 20 20 20 20 2f 2a 20  pad;         /* 
20c0: 54 72 75 65 20 69 66 20 66 69 65 6c 64 20 77 69  True if field wi
20d0: 64 74 68 20 63 6f 6e 73 74 61 6e 74 20 73 74 61  dth constant sta
20e0: 72 74 73 20 77 69 74 68 20 7a 65 72 6f 20 2a 2f  rts with zero */
20f0: 0a 20 20 69 6e 74 20 66 6c 61 67 5f 6c 6f 6e 67  .  int flag_long
2100: 3b 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20  ;            /* 
2110: 54 72 75 65 20 69 66 20 22 6c 22 20 66 6c 61 67  True if "l" flag
2120: 20 69 73 20 70 72 65 73 65 6e 74 20 2a 2f 0a 20   is present */. 
2130: 20 69 6e 74 20 66 6c 61 67 5f 63 65 6e 74 65 72   int flag_center
2140: 3b 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 72  ;          /* Tr
2150: 75 65 20 69 66 20 22 3d 22 20 66 6c 61 67 20 69  ue if "=" flag i
2160: 73 20 70 72 65 73 65 6e 74 20 2a 2f 0a 20 20 75  s present */.  u
2170: 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 6c 6f 6e  nsigned long lon
2180: 67 76 61 6c 75 65 3b 20 20 2f 2a 20 56 61 6c 75  gvalue;  /* Valu
2190: 65 20 66 6f 72 20 69 6e 74 65 67 65 72 20 74 79  e for integer ty
21a0: 70 65 73 20 2a 2f 0a 20 20 64 6f 75 62 6c 65 20  pes */.  double 
21b0: 72 65 61 6c 76 61 6c 75 65 3b 20 20 20 20 20 20  realvalue;      
21c0: 20 20 20 2f 2a 20 56 61 6c 75 65 20 66 6f 72 20     /* Value for 
21d0: 72 65 61 6c 20 74 79 70 65 73 20 2a 2f 0a 20 20  real types */.  
21e0: 65 74 5f 69 6e 66 6f 20 2a 69 6e 66 6f 70 3b 20  et_info *infop; 
21f0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 50 6f 69            /* Poi
2200: 6e 74 65 72 20 74 6f 20 74 68 65 20 61 70 70 72  nter to the appr
2210: 6f 70 72 69 61 74 65 20 69 6e 66 6f 20 73 74 72  opriate info str
2220: 75 63 74 75 72 65 20 2a 2f 0a 20 20 63 68 61 72  ucture */.  char
2230: 20 62 75 66 5b 65 74 42 55 46 53 49 5a 45 5d 3b   buf[etBUFSIZE];
2240: 20 20 20 20 20 20 2f 2a 20 43 6f 6e 76 65 72 73        /* Convers
2250: 69 6f 6e 20 62 75 66 66 65 72 20 2a 2f 0a 20 20  ion buffer */.  
2260: 63 68 61 72 20 70 72 65 66 69 78 3b 20 20 20 20  char prefix;    
2270: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 50 72 65            /* Pre
2280: 66 69 78 20 63 68 61 72 61 63 74 65 72 2e 20 20  fix character.  
2290: 22 2b 22 20 6f 72 20 22 2d 22 20 6f 72 20 22 20  "+" or "-" or " 
22a0: 22 20 6f 72 20 27 5c 30 27 2e 20 2a 2f 0a 20 20  " or '\0'. */.  
22b0: 69 6e 74 20 20 65 72 72 6f 72 66 6c 61 67 20 3d  int  errorflag =
22c0: 20 30 3b 20 20 20 20 20 20 20 2f 2a 20 54 72 75   0;       /* Tru
22d0: 65 20 69 66 20 61 6e 20 65 72 72 6f 72 20 69 73  e if an error is
22e0: 20 65 6e 63 6f 75 6e 74 65 72 65 64 20 2a 2f 0a   encountered */.
22f0: 20 20 65 6e 75 6d 20 65 74 5f 74 79 70 65 20 78    enum et_type x
2300: 74 79 70 65 3b 20 20 20 20 20 20 20 2f 2a 20 43  type;       /* C
2310: 6f 6e 76 65 72 73 69 6f 6e 20 70 61 72 61 64 69  onversion paradi
2320: 67 6d 20 2a 2f 0a 20 20 63 68 61 72 20 2a 7a 45  gm */.  char *zE
2330: 78 74 72 61 3b 20 20 20 20 20 20 20 20 20 20 20  xtra;           
2340: 20 20 2f 2a 20 45 78 74 72 61 20 6d 65 6d 6f 72    /* Extra memor
2350: 79 20 75 73 65 64 20 66 6f 72 20 65 74 54 43 4c  y used for etTCL
2360: 45 53 43 41 50 45 20 63 6f 6e 76 65 72 73 69 6f  ESCAPE conversio
2370: 6e 73 20 2a 2f 0a 20 20 73 74 61 74 69 63 20 63  ns */.  static c
2380: 68 61 72 20 73 70 61 63 65 73 5b 5d 20 3d 20 22  har spaces[] = "
2390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
23a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
23b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
23c0: 20 20 22 0a 20 20 20 20 20 22 20 20 20 20 20 20    ".     "      
23d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
23e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
23f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2410: 22 3b 0a 23 64 65 66 69 6e 65 20 65 74 53 50 41  ";.#define etSPA
2420: 43 45 53 49 5a 45 20 28 73 69 7a 65 6f 66 28 73  CESIZE (sizeof(s
2430: 70 61 63 65 73 29 2d 31 29 0a 23 69 66 6e 64 65  paces)-1).#ifnde
2440: 66 20 65 74 4e 4f 46 4c 4f 41 54 49 4e 47 50 4f  f etNOFLOATINGPO
2450: 49 4e 54 0a 20 20 69 6e 74 20 20 65 78 70 3b 20  INT.  int  exp; 
2460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2470: 2f 2a 20 65 78 70 6f 6e 65 6e 74 20 6f 66 20 72  /* exponent of r
2480: 65 61 6c 20 6e 75 6d 62 65 72 73 20 2a 2f 0a 20  eal numbers */. 
2490: 20 64 6f 75 62 6c 65 20 72 6f 75 6e 64 65 72 3b   double rounder;
24a0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 55 73             /* Us
24b0: 65 64 20 66 6f 72 20 72 6f 75 6e 64 69 6e 67 20  ed for rounding 
24c0: 66 6c 6f 61 74 69 6e 67 20 70 6f 69 6e 74 20 76  floating point v
24d0: 61 6c 75 65 73 20 2a 2f 0a 20 20 69 6e 74 20 66  alues */.  int f
24e0: 6c 61 67 5f 64 70 3b 20 20 20 20 20 20 20 20 20  lag_dp;         
24f0: 20 20 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20       /* True if 
2500: 64 65 63 69 6d 61 6c 20 70 6f 69 6e 74 20 73 68  decimal point sh
2510: 6f 75 6c 64 20 62 65 20 73 68 6f 77 6e 20 2a 2f  ould be shown */
2520: 0a 20 20 69 6e 74 20 66 6c 61 67 5f 72 74 7a 3b  .  int flag_rtz;
2530: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
2540: 54 72 75 65 20 69 66 20 74 72 61 69 6c 69 6e 67  True if trailing
2550: 20 7a 65 72 6f 73 20 73 68 6f 75 6c 64 20 62 65   zeros should be
2560: 20 72 65 6d 6f 76 65 64 20 2a 2f 0a 20 20 69 6e   removed */.  in
2570: 74 20 66 6c 61 67 5f 65 78 70 3b 20 20 20 20 20  t flag_exp;     
2580: 20 20 20 20 20 20 20 20 2f 2a 20 54 72 75 65 20          /* True 
2590: 74 6f 20 66 6f 72 63 65 20 64 69 73 70 6c 61 79  to force display
25a0: 20 6f 66 20 74 68 65 20 65 78 70 6f 6e 65 6e 74   of the exponent
25b0: 20 2a 2f 0a 20 20 69 6e 74 20 6e 73 64 3b 20 20   */.  int nsd;  
25c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
25d0: 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 73 69 67  /* Number of sig
25e0: 6e 69 66 69 63 61 6e 74 20 64 69 67 69 74 73 20  nificant digits 
25f0: 72 65 74 75 72 6e 65 64 20 2a 2f 0a 23 65 6e 64  returned */.#end
2600: 69 66 0a 0a 20 20 66 6d 74 20 3d 20 66 6f 72 6d  if..  fmt = form
2610: 61 74 3b 20 20 20 20 20 20 20 20 20 20 20 20 20  at;             
2620: 20 20 20 20 20 20 20 20 2f 2a 20 50 75 74 20 69          /* Put i
2630: 6e 20 61 20 72 65 67 69 73 74 65 72 20 66 6f 72  n a register for
2640: 20 73 70 65 65 64 20 2a 2f 0a 20 20 63 6f 75 6e   speed */.  coun
2650: 74 20 3d 20 6c 65 6e 67 74 68 20 3d 20 30 3b 0a  t = length = 0;.
2660: 20 20 62 75 66 70 74 20 3d 20 30 3b 0a 20 20 66    bufpt = 0;.  f
2670: 6f 72 28 3b 20 28 63 3d 28 2a 66 6d 74 29 29 21  or(; (c=(*fmt))!
2680: 3d 30 3b 20 2b 2b 66 6d 74 29 7b 0a 20 20 20 20  =0; ++fmt){.    
2690: 69 66 28 20 63 21 3d 27 25 27 20 29 7b 0a 20 20  if( c!='%' ){.  
26a0: 20 20 20 20 72 65 67 69 73 74 65 72 20 69 6e 74      register int
26b0: 20 61 6d 74 3b 0a 20 20 20 20 20 20 62 75 66 70   amt;.      bufp
26c0: 74 20 3d 20 28 63 68 61 72 20 2a 29 66 6d 74 3b  t = (char *)fmt;
26d0: 0a 20 20 20 20 20 20 61 6d 74 20 3d 20 31 3b 0a  .      amt = 1;.
26e0: 20 20 20 20 20 20 77 68 69 6c 65 28 20 28 63 3d        while( (c=
26f0: 28 2a 2b 2b 66 6d 74 29 29 21 3d 27 25 27 20 26  (*++fmt))!='%' &
2700: 26 20 63 21 3d 30 20 29 20 61 6d 74 2b 2b 3b 0a  & c!=0 ) amt++;.
2710: 20 20 20 20 20 20 28 2a 66 75 6e 63 29 28 61 72        (*func)(ar
2720: 67 2c 62 75 66 70 74 2c 61 6d 74 29 3b 0a 20 20  g,bufpt,amt);.  
2730: 20 20 20 20 63 6f 75 6e 74 20 2b 3d 20 61 6d 74      count += amt
2740: 3b 0a 20 20 20 20 20 20 69 66 28 20 63 3d 3d 30  ;.      if( c==0
2750: 20 29 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a   ) break;.    }.
2760: 20 20 20 20 69 66 28 20 28 63 3d 28 2a 2b 2b 66      if( (c=(*++f
2770: 6d 74 29 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20  mt))==0 ){.     
2780: 20 65 72 72 6f 72 66 6c 61 67 20 3d 20 31 3b 0a   errorflag = 1;.
2790: 20 20 20 20 20 20 28 2a 66 75 6e 63 29 28 61 72        (*func)(ar
27a0: 67 2c 22 25 22 2c 31 29 3b 0a 20 20 20 20 20 20  g,"%",1);.      
27b0: 63 6f 75 6e 74 2b 2b 3b 0a 20 20 20 20 20 20 62  count++;.      b
27c0: 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20  reak;.    }.    
27d0: 2f 2a 20 46 69 6e 64 20 6f 75 74 20 77 68 61 74  /* Find out what
27e0: 20 66 6c 61 67 73 20 61 72 65 20 70 72 65 73 65   flags are prese
27f0: 6e 74 20 2a 2f 0a 20 20 20 20 66 6c 61 67 5f 6c  nt */.    flag_l
2800: 65 66 74 6a 75 73 74 69 66 79 20 3d 20 66 6c 61  eftjustify = fla
2810: 67 5f 70 6c 75 73 73 69 67 6e 20 3d 20 66 6c 61  g_plussign = fla
2820: 67 5f 62 6c 61 6e 6b 73 69 67 6e 20 3d 20 0a 20  g_blanksign = . 
2830: 20 20 20 20 66 6c 61 67 5f 61 6c 74 65 72 6e 61      flag_alterna
2840: 74 65 66 6f 72 6d 20 3d 20 66 6c 61 67 5f 7a 65  teform = flag_ze
2850: 72 6f 70 61 64 20 3d 20 66 6c 61 67 5f 63 65 6e  ropad = flag_cen
2860: 74 65 72 20 3d 20 30 3b 0a 20 20 20 20 64 6f 7b  ter = 0;.    do{
2870: 0a 20 20 20 20 20 20 73 77 69 74 63 68 28 20 63  .      switch( c
2880: 20 29 7b 0a 20 20 20 20 20 20 20 20 63 61 73 65   ){.        case
2890: 20 27 2d 27 3a 20 20 20 66 6c 61 67 5f 6c 65 66   '-':   flag_lef
28a0: 74 6a 75 73 74 69 66 79 20 3d 20 31 3b 20 20 20  tjustify = 1;   
28b0: 20 20 63 20 3d 20 30 3b 20 20 20 62 72 65 61 6b    c = 0;   break
28c0: 3b 0a 20 20 20 20 20 20 20 20 63 61 73 65 20 27  ;.        case '
28d0: 2b 27 3a 20 20 20 66 6c 61 67 5f 70 6c 75 73 73  +':   flag_pluss
28e0: 69 67 6e 20 3d 20 31 3b 20 20 20 20 20 20 20 20  ign = 1;        
28f0: 63 20 3d 20 30 3b 20 20 20 62 72 65 61 6b 3b 0a  c = 0;   break;.
2900: 20 20 20 20 20 20 20 20 63 61 73 65 20 27 20 27          case ' '
2910: 3a 20 20 20 66 6c 61 67 5f 62 6c 61 6e 6b 73 69  :   flag_blanksi
2920: 67 6e 20 3d 20 31 3b 20 20 20 20 20 20 20 63 20  gn = 1;       c 
2930: 3d 20 30 3b 20 20 20 62 72 65 61 6b 3b 0a 20 20  = 0;   break;.  
2940: 20 20 20 20 20 20 63 61 73 65 20 27 23 27 3a 20        case '#': 
2950: 20 20 66 6c 61 67 5f 61 6c 74 65 72 6e 61 74 65    flag_alternate
2960: 66 6f 72 6d 20 3d 20 31 3b 20 20 20 63 20 3d 20  form = 1;   c = 
2970: 30 3b 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20  0;   break;.    
2980: 20 20 20 20 63 61 73 65 20 27 30 27 3a 20 20 20      case '0':   
2990: 66 6c 61 67 5f 7a 65 72 6f 70 61 64 20 3d 20 31  flag_zeropad = 1
29a0: 3b 20 20 20 20 20 20 20 20 20 63 20 3d 20 30 3b  ;         c = 0;
29b0: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20     break;.      
29c0: 20 20 63 61 73 65 20 27 3d 27 3a 20 20 20 66 6c    case '=':   fl
29d0: 61 67 5f 63 65 6e 74 65 72 20 3d 20 31 3b 20 20  ag_center = 1;  
29e0: 20 20 20 20 20 20 20 20 63 20 3d 20 30 3b 20 20          c = 0;  
29f0: 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 20 20   break;.        
2a00: 64 65 66 61 75 6c 74 3a 20 20 20 20 20 20 20 20  default:        
2a10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2a20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62                 b
2a30: 72 65 61 6b 3b 0a 20 20 20 20 20 20 7d 0a 20 20  reak;.      }.  
2a40: 20 20 7d 77 68 69 6c 65 28 20 63 3d 3d 30 20 26    }while( c==0 &
2a50: 26 20 28 63 3d 28 2a 2b 2b 66 6d 74 29 29 21 3d  & (c=(*++fmt))!=
2a60: 30 20 29 3b 0a 20 20 20 20 69 66 28 20 66 6c 61  0 );.    if( fla
2a70: 67 5f 63 65 6e 74 65 72 20 29 20 66 6c 61 67 5f  g_center ) flag_
2a80: 6c 65 66 74 6a 75 73 74 69 66 79 20 3d 20 30 3b  leftjustify = 0;
2a90: 0a 20 20 20 20 2f 2a 20 47 65 74 20 74 68 65 20  .    /* Get the 
2aa0: 66 69 65 6c 64 20 77 69 64 74 68 20 2a 2f 0a 20  field width */. 
2ab0: 20 20 20 77 69 64 74 68 20 3d 20 30 3b 0a 20 20     width = 0;.  
2ac0: 20 20 69 66 28 20 63 3d 3d 27 2a 27 20 29 7b 0a    if( c=='*' ){.
2ad0: 20 20 20 20 20 20 77 69 64 74 68 20 3d 20 76 61        width = va
2ae0: 5f 61 72 67 28 61 70 2c 69 6e 74 29 3b 0a 20 20  _arg(ap,int);.  
2af0: 20 20 20 20 69 66 28 20 77 69 64 74 68 3c 30 20      if( width<0 
2b00: 29 7b 0a 20 20 20 20 20 20 20 20 66 6c 61 67 5f  ){.        flag_
2b10: 6c 65 66 74 6a 75 73 74 69 66 79 20 3d 20 31 3b  leftjustify = 1;
2b20: 0a 20 20 20 20 20 20 20 20 77 69 64 74 68 20 3d  .        width =
2b30: 20 2d 77 69 64 74 68 3b 0a 20 20 20 20 20 20 7d   -width;.      }
2b40: 0a 20 20 20 20 20 20 63 20 3d 20 2a 2b 2b 66 6d  .      c = *++fm
2b50: 74 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20  t;.    }else{.  
2b60: 20 20 20 20 77 68 69 6c 65 28 20 63 3e 3d 27 30      while( c>='0
2b70: 27 20 26 26 20 63 3c 3d 27 39 27 20 29 7b 0a 20  ' && c<='9' ){. 
2b80: 20 20 20 20 20 20 20 77 69 64 74 68 20 3d 20 77         width = w
2b90: 69 64 74 68 2a 31 30 20 2b 20 63 20 2d 20 27 30  idth*10 + c - '0
2ba0: 27 3b 0a 20 20 20 20 20 20 20 20 63 20 3d 20 2a  ';.        c = *
2bb0: 2b 2b 66 6d 74 3b 0a 20 20 20 20 20 20 7d 0a 20  ++fmt;.      }. 
2bc0: 20 20 20 7d 0a 20 20 20 20 69 66 28 20 77 69 64     }.    if( wid
2bd0: 74 68 20 3e 20 65 74 42 55 46 53 49 5a 45 2d 31  th > etBUFSIZE-1
2be0: 30 20 29 7b 0a 20 20 20 20 20 20 77 69 64 74 68  0 ){.      width
2bf0: 20 3d 20 65 74 42 55 46 53 49 5a 45 2d 31 30 3b   = etBUFSIZE-10;
2c00: 0a 20 20 20 20 7d 0a 20 20 20 20 2f 2a 20 47 65  .    }.    /* Ge
2c10: 74 20 74 68 65 20 70 72 65 63 69 73 69 6f 6e 20  t the precision 
2c20: 2a 2f 0a 20 20 20 20 69 66 28 20 63 3d 3d 27 2e  */.    if( c=='.
2c30: 27 20 29 7b 0a 20 20 20 20 20 20 70 72 65 63 69  ' ){.      preci
2c40: 73 69 6f 6e 20 3d 20 30 3b 0a 20 20 20 20 20 20  sion = 0;.      
2c50: 63 20 3d 20 2a 2b 2b 66 6d 74 3b 0a 20 20 20 20  c = *++fmt;.    
2c60: 20 20 69 66 28 20 63 3d 3d 27 2a 27 20 29 7b 0a    if( c=='*' ){.
2c70: 20 20 20 20 20 20 20 20 70 72 65 63 69 73 69 6f          precisio
2c80: 6e 20 3d 20 76 61 5f 61 72 67 28 61 70 2c 69 6e  n = va_arg(ap,in
2c90: 74 29 3b 0a 23 69 66 6e 64 65 66 20 65 74 43 4f  t);.#ifndef etCO
2ca0: 4d 50 41 54 49 42 49 4c 49 54 59 0a 20 20 20 20  MPATIBILITY.    
2cb0: 20 20 20 20 2f 2a 20 54 68 69 73 20 69 73 20 73      /* This is s
2cc0: 65 6e 73 69 62 6c 65 2c 20 62 75 74 20 53 55 4e  ensible, but SUN
2cd0: 20 4f 53 20 34 2e 31 20 64 6f 65 73 6e 27 74 20   OS 4.1 doesn't 
2ce0: 64 6f 20 69 74 2e 20 2a 2f 0a 20 20 20 20 20 20  do it. */.      
2cf0: 20 20 69 66 28 20 70 72 65 63 69 73 69 6f 6e 3c    if( precision<
2d00: 30 20 29 20 70 72 65 63 69 73 69 6f 6e 20 3d 20  0 ) precision = 
2d10: 2d 70 72 65 63 69 73 69 6f 6e 3b 0a 23 65 6e 64  -precision;.#end
2d20: 69 66 0a 20 20 20 20 20 20 20 20 63 20 3d 20 2a  if.        c = *
2d30: 2b 2b 66 6d 74 3b 0a 20 20 20 20 20 20 7d 65 6c  ++fmt;.      }el
2d40: 73 65 7b 0a 20 20 20 20 20 20 20 20 77 68 69 6c  se{.        whil
2d50: 65 28 20 63 3e 3d 27 30 27 20 26 26 20 63 3c 3d  e( c>='0' && c<=
2d60: 27 39 27 20 29 7b 0a 20 20 20 20 20 20 20 20 20  '9' ){.         
2d70: 20 70 72 65 63 69 73 69 6f 6e 20 3d 20 70 72 65   precision = pre
2d80: 63 69 73 69 6f 6e 2a 31 30 20 2b 20 63 20 2d 20  cision*10 + c - 
2d90: 27 30 27 3b 0a 20 20 20 20 20 20 20 20 20 20 63  '0';.          c
2da0: 20 3d 20 2a 2b 2b 66 6d 74 3b 0a 20 20 20 20 20   = *++fmt;.     
2db0: 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20     }.      }.   
2dc0: 20 20 20 2f 2a 20 4c 69 6d 69 74 20 74 68 65 20     /* Limit the 
2dd0: 70 72 65 63 69 73 69 6f 6e 20 74 6f 20 70 72 65  precision to pre
2de0: 76 65 6e 74 20 6f 76 65 72 66 6c 6f 77 69 6e 67  vent overflowing
2df0: 20 62 75 66 5b 5d 20 64 75 72 69 6e 67 20 63 6f   buf[] during co
2e00: 6e 76 65 72 73 69 6f 6e 20 2a 2f 0a 20 20 20 20  nversion */.    
2e10: 20 20 69 66 28 20 70 72 65 63 69 73 69 6f 6e 3e    if( precision>
2e20: 65 74 42 55 46 53 49 5a 45 2d 34 30 20 29 20 70  etBUFSIZE-40 ) p
2e30: 72 65 63 69 73 69 6f 6e 20 3d 20 65 74 42 55 46  recision = etBUF
2e40: 53 49 5a 45 2d 34 30 3b 0a 20 20 20 20 7d 65 6c  SIZE-40;.    }el
2e50: 73 65 7b 0a 20 20 20 20 20 20 70 72 65 63 69 73  se{.      precis
2e60: 69 6f 6e 20 3d 20 2d 31 3b 0a 20 20 20 20 7d 0a  ion = -1;.    }.
2e70: 20 20 20 20 2f 2a 20 47 65 74 20 74 68 65 20 63      /* Get the c
2e80: 6f 6e 76 65 72 73 69 6f 6e 20 74 79 70 65 20 6d  onversion type m
2e90: 6f 64 69 66 69 65 72 20 2a 2f 0a 20 20 20 20 69  odifier */.    i
2ea0: 66 28 20 63 3d 3d 27 6c 27 20 29 7b 0a 20 20 20  f( c=='l' ){.   
2eb0: 20 20 20 66 6c 61 67 5f 6c 6f 6e 67 20 3d 20 31     flag_long = 1
2ec0: 3b 0a 20 20 20 20 20 20 63 20 3d 20 2a 2b 2b 66  ;.      c = *++f
2ed0: 6d 74 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20  mt;.    }else{. 
2ee0: 20 20 20 20 20 66 6c 61 67 5f 6c 6f 6e 67 20 3d       flag_long =
2ef0: 20 30 3b 0a 20 20 20 20 7d 0a 20 20 20 20 2f 2a   0;.    }.    /*
2f00: 20 46 65 74 63 68 20 74 68 65 20 69 6e 66 6f 20   Fetch the info 
2f10: 65 6e 74 72 79 20 66 6f 72 20 74 68 65 20 66 69  entry for the fi
2f20: 65 6c 64 20 2a 2f 0a 20 20 20 20 69 6e 66 6f 70  eld */.    infop
2f30: 20 3d 20 30 3b 0a 20 20 20 20 66 6f 72 28 69 64   = 0;.    for(id
2f40: 78 3d 30 3b 20 69 64 78 3c 65 74 4e 49 4e 46 4f  x=0; idx<etNINFO
2f50: 3b 20 69 64 78 2b 2b 29 7b 0a 20 20 20 20 20 20  ; idx++){.      
2f60: 69 66 28 20 63 3d 3d 66 6d 74 69 6e 66 6f 5b 69  if( c==fmtinfo[i
2f70: 64 78 5d 2e 66 6d 74 74 79 70 65 20 29 7b 0a 20  dx].fmttype ){. 
2f80: 20 20 20 20 20 20 20 69 6e 66 6f 70 20 3d 20 26         infop = &
2f90: 66 6d 74 69 6e 66 6f 5b 69 64 78 5d 3b 0a 20 20  fmtinfo[idx];.  
2fa0: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20        break;.   
2fb0: 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 2f     }.    }.    /
2fc0: 2a 20 4e 6f 20 69 6e 66 6f 20 65 6e 74 72 79 20  * No info entry 
2fd0: 66 6f 75 6e 64 2e 20 20 49 74 20 6d 75 73 74 20  found.  It must 
2fe0: 62 65 20 61 6e 20 65 72 72 6f 72 2e 20 2a 2f 0a  be an error. */.
2ff0: 20 20 20 20 69 66 28 20 69 6e 66 6f 70 3d 3d 30      if( infop==0
3000: 20 29 7b 0a 20 20 20 20 20 20 78 74 79 70 65 20   ){.      xtype 
3010: 3d 20 65 74 45 52 52 4f 52 3b 0a 20 20 20 20 7d  = etERROR;.    }
3020: 65 6c 73 65 7b 0a 20 20 20 20 20 20 78 74 79 70  else{.      xtyp
3030: 65 20 3d 20 69 6e 66 6f 70 2d 3e 74 79 70 65 3b  e = infop->type;
3040: 0a 20 20 20 20 7d 0a 20 20 20 20 7a 45 78 74 72  .    }.    zExtr
3050: 61 20 3d 20 30 3b 0a 0a 20 20 20 20 2f 2a 0a 20  a = 0;..    /*. 
3060: 20 20 20 2a 2a 20 41 74 20 74 68 69 73 20 70 6f     ** At this po
3070: 69 6e 74 2c 20 76 61 72 69 61 62 6c 65 73 20 61  int, variables a
3080: 72 65 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 61  re initialized a
3090: 73 20 66 6f 6c 6c 6f 77 73 3a 0a 20 20 20 20 2a  s follows:.    *
30a0: 2a 0a 20 20 20 20 2a 2a 20 20 20 66 6c 61 67 5f  *.    **   flag_
30b0: 61 6c 74 65 72 6e 61 74 65 66 6f 72 6d 20 20 20  alternateform   
30c0: 20 20 20 20 20 20 20 54 52 55 45 20 69 66 20 61         TRUE if a
30d0: 20 27 23 27 20 69 73 20 70 72 65 73 65 6e 74 2e   '#' is present.
30e0: 0a 20 20 20 20 2a 2a 20 20 20 66 6c 61 67 5f 70  .    **   flag_p
30f0: 6c 75 73 73 69 67 6e 20 20 20 20 20 20 20 20 20  lussign         
3100: 20 20 20 20 20 20 54 52 55 45 20 69 66 20 61 20        TRUE if a 
3110: 27 2b 27 20 69 73 20 70 72 65 73 65 6e 74 2e 0a  '+' is present..
3120: 20 20 20 20 2a 2a 20 20 20 66 6c 61 67 5f 6c 65      **   flag_le
3130: 66 74 6a 75 73 74 69 66 79 20 20 20 20 20 20 20  ftjustify       
3140: 20 20 20 20 20 54 52 55 45 20 69 66 20 61 20 27       TRUE if a '
3150: 2d 27 20 69 73 20 70 72 65 73 65 6e 74 20 6f 72  -' is present or
3160: 20 69 66 20 74 68 65 0a 20 20 20 20 2a 2a 20 20   if the.    **  
3170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3180: 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 65               fie
3190: 6c 64 20 77 69 64 74 68 20 77 61 73 20 6e 65 67  ld width was neg
31a0: 61 74 69 76 65 2e 0a 20 20 20 20 2a 2a 20 20 20  ative..    **   
31b0: 66 6c 61 67 5f 7a 65 72 6f 70 61 64 20 20 20 20  flag_zeropad    
31c0: 20 20 20 20 20 20 20 20 20 20 20 20 54 52 55 45              TRUE
31d0: 20 69 66 20 74 68 65 20 77 69 64 74 68 20 62 65   if the width be
31e0: 67 61 6e 20 77 69 74 68 20 30 2e 0a 20 20 20 20  gan with 0..    
31f0: 2a 2a 20 20 20 66 6c 61 67 5f 6c 6f 6e 67 20 20  **   flag_long  
3200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3210: 20 54 52 55 45 20 69 66 20 74 68 65 20 6c 65 74   TRUE if the let
3220: 74 65 72 20 27 6c 27 20 28 65 6c 6c 29 20 70 72  ter 'l' (ell) pr
3230: 65 66 69 78 65 64 0a 20 20 20 20 2a 2a 20 20 20  efixed.    **   
3240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3250: 20 20 20 20 20 20 20 20 20 20 20 20 74 68 65 20              the 
3260: 63 6f 6e 76 65 72 73 69 6f 6e 20 63 68 61 72 61  conversion chara
3270: 63 74 65 72 2e 0a 20 20 20 20 2a 2a 20 20 20 66  cter..    **   f
3280: 6c 61 67 5f 62 6c 61 6e 6b 73 69 67 6e 20 20 20  lag_blanksign   
3290: 20 20 20 20 20 20 20 20 20 20 20 54 52 55 45 20             TRUE 
32a0: 69 66 20 61 20 27 20 27 20 69 73 20 70 72 65 73  if a ' ' is pres
32b0: 65 6e 74 2e 0a 20 20 20 20 2a 2a 20 20 20 77 69  ent..    **   wi
32c0: 64 74 68 20 20 20 20 20 20 20 20 20 20 20 20 20  dth             
32d0: 20 20 20 20 20 20 20 20 20 20 54 68 65 20 73 70            The sp
32e0: 65 63 69 66 69 65 64 20 66 69 65 6c 64 20 77 69  ecified field wi
32f0: 64 74 68 2e 20 20 54 68 69 73 20 69 73 0a 20 20  dth.  This is.  
3300: 20 20 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20    **            
3310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3320: 20 20 20 61 6c 77 61 79 73 20 6e 6f 6e 2d 6e 65     always non-ne
3330: 67 61 74 69 76 65 2e 20 20 5a 65 72 6f 20 69 73  gative.  Zero is
3340: 20 74 68 65 20 64 65 66 61 75 6c 74 2e 0a 20 20   the default..  
3350: 20 20 2a 2a 20 20 20 70 72 65 63 69 73 69 6f 6e    **   precision
3360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3370: 20 20 20 54 68 65 20 73 70 65 63 69 66 69 65 64     The specified
3380: 20 70 72 65 63 69 73 69 6f 6e 2e 20 20 54 68 65   precision.  The
3390: 20 64 65 66 61 75 6c 74 0a 20 20 20 20 2a 2a 20   default.    ** 
33a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
33b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 73                is
33c0: 20 2d 31 2e 0a 20 20 20 20 2a 2a 20 20 20 78 74   -1..    **   xt
33d0: 79 70 65 20 20 20 20 20 20 20 20 20 20 20 20 20  ype             
33e0: 20 20 20 20 20 20 20 20 20 20 54 68 65 20 63 6c            The cl
33f0: 61 73 73 20 6f 66 20 74 68 65 20 63 6f 6e 76 65  ass of the conve
3400: 72 73 69 6f 6e 2e 0a 20 20 20 20 2a 2a 20 20 20  rsion..    **   
3410: 69 6e 66 6f 70 20 20 20 20 20 20 20 20 20 20 20  infop           
3420: 20 20 20 20 20 20 20 20 20 20 20 20 50 6f 69 6e              Poin
3430: 74 65 72 20 74 6f 20 74 68 65 20 61 70 70 72 6f  ter to the appro
3440: 70 72 69 61 74 65 20 69 6e 66 6f 20 73 74 72 75  priate info stru
3450: 63 74 2e 0a 20 20 20 20 2a 2f 0a 20 20 20 20 73  ct..    */.    s
3460: 77 69 74 63 68 28 20 78 74 79 70 65 20 29 7b 0a  witch( xtype ){.
3470: 20 20 20 20 20 20 63 61 73 65 20 65 74 4f 52 44        case etORD
3480: 49 4e 41 4c 3a 0a 20 20 20 20 20 20 63 61 73 65  INAL:.      case
3490: 20 65 74 52 41 44 49 58 3a 0a 20 20 20 20 20 20   etRADIX:.      
34a0: 20 20 69 66 28 20 66 6c 61 67 5f 6c 6f 6e 67 20    if( flag_long 
34b0: 29 20 20 6c 6f 6e 67 76 61 6c 75 65 20 3d 20 76  )  longvalue = v
34c0: 61 5f 61 72 67 28 61 70 2c 6c 6f 6e 67 29 3b 0a  a_arg(ap,long);.
34d0: 20 20 20 20 20 20 20 20 65 6c 73 65 20 20 20 20          else    
34e0: 20 20 20 20 20 20 20 20 20 6c 6f 6e 67 76 61 6c           longval
34f0: 75 65 20 3d 20 76 61 5f 61 72 67 28 61 70 2c 69  ue = va_arg(ap,i
3500: 6e 74 29 3b 0a 23 69 66 64 65 66 20 65 74 43 4f  nt);.#ifdef etCO
3510: 4d 50 41 54 49 42 49 4c 49 54 59 0a 20 20 20 20  MPATIBILITY.    
3520: 20 20 20 20 2f 2a 20 46 6f 72 20 74 68 65 20 66      /* For the f
3530: 6f 72 6d 61 74 20 25 23 78 2c 20 74 68 65 20 76  ormat %#x, the v
3540: 61 6c 75 65 20 7a 65 72 6f 20 69 73 20 70 72 69  alue zero is pri
3550: 6e 74 65 64 20 22 30 22 20 6e 6f 74 20 22 30 78  nted "0" not "0x
3560: 30 22 2e 0a 20 20 20 20 20 20 20 20 2a 2a 20 49  0"..        ** I
3570: 20 74 68 69 6e 6b 20 74 68 69 73 20 69 73 20 73   think this is s
3580: 74 75 70 69 64 2e 20 2a 2f 0a 20 20 20 20 20 20  tupid. */.      
3590: 20 20 69 66 28 20 6c 6f 6e 67 76 61 6c 75 65 3d    if( longvalue=
35a0: 3d 30 20 29 20 66 6c 61 67 5f 61 6c 74 65 72 6e  =0 ) flag_altern
35b0: 61 74 65 66 6f 72 6d 20 3d 20 30 3b 0a 23 65 6c  ateform = 0;.#el
35c0: 73 65 0a 20 20 20 20 20 20 20 20 2f 2a 20 4d 6f  se.        /* Mo
35d0: 72 65 20 73 65 6e 73 69 62 6c 65 3a 20 74 75 72  re sensible: tur
35e0: 6e 20 6f 66 66 20 74 68 65 20 70 72 65 66 69 78  n off the prefix
35f0: 20 66 6f 72 20 6f 63 74 61 6c 20 28 74 6f 20 70   for octal (to p
3600: 72 65 76 65 6e 74 20 22 30 30 22 29 2c 0a 20 20  revent "00"),.  
3610: 20 20 20 20 20 20 2a 2a 20 62 75 74 20 6c 65 61        ** but lea
3620: 76 65 20 74 68 65 20 70 72 65 66 69 78 20 66 6f  ve the prefix fo
3630: 72 20 68 65 78 2e 20 2a 2f 0a 20 20 20 20 20 20  r hex. */.      
3640: 20 20 69 66 28 20 6c 6f 6e 67 76 61 6c 75 65 3d    if( longvalue=
3650: 3d 30 20 26 26 20 69 6e 66 6f 70 2d 3e 62 61 73  =0 && infop->bas
3660: 65 3d 3d 38 20 29 20 66 6c 61 67 5f 61 6c 74 65  e==8 ) flag_alte
3670: 72 6e 61 74 65 66 6f 72 6d 20 3d 20 30 3b 0a 23  rnateform = 0;.#
3680: 65 6e 64 69 66 0a 20 20 20 20 20 20 20 20 69 66  endif.        if
3690: 28 20 69 6e 66 6f 70 2d 3e 66 6c 61 67 5f 73 69  ( infop->flag_si
36a0: 67 6e 65 64 20 29 7b 0a 20 20 20 20 20 20 20 20  gned ){.        
36b0: 20 20 69 66 28 20 2a 28 6c 6f 6e 67 2a 29 26 6c    if( *(long*)&l
36c0: 6f 6e 67 76 61 6c 75 65 3c 30 20 29 7b 0a 20 20  ongvalue<0 ){.  
36d0: 20 20 20 20 20 20 20 20 20 20 6c 6f 6e 67 76 61            longva
36e0: 6c 75 65 20 3d 20 2d 2a 28 6c 6f 6e 67 2a 29 26  lue = -*(long*)&
36f0: 6c 6f 6e 67 76 61 6c 75 65 3b 0a 20 20 20 20 20  longvalue;.     
3700: 20 20 20 20 20 20 20 70 72 65 66 69 78 20 3d 20         prefix = 
3710: 27 2d 27 3b 0a 20 20 20 20 20 20 20 20 20 20 7d  '-';.          }
3720: 65 6c 73 65 20 69 66 28 20 66 6c 61 67 5f 70 6c  else if( flag_pl
3730: 75 73 73 69 67 6e 20 29 20 20 70 72 65 66 69 78  ussign )  prefix
3740: 20 3d 20 27 2b 27 3b 0a 20 20 20 20 20 20 20 20   = '+';.        
3750: 20 20 65 6c 73 65 20 69 66 28 20 66 6c 61 67 5f    else if( flag_
3760: 62 6c 61 6e 6b 73 69 67 6e 20 29 20 20 70 72 65  blanksign )  pre
3770: 66 69 78 20 3d 20 27 20 27 3b 0a 20 20 20 20 20  fix = ' ';.     
3780: 20 20 20 20 20 65 6c 73 65 20 20 20 20 20 20 20       else       
3790: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
37a0: 70 72 65 66 69 78 20 3d 20 30 3b 0a 20 20 20 20  prefix = 0;.    
37b0: 20 20 20 20 7d 65 6c 73 65 20 20 20 20 20 20 20      }else       
37c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
37d0: 20 70 72 65 66 69 78 20 3d 20 30 3b 0a 20 20 20   prefix = 0;.   
37e0: 20 20 20 20 20 69 66 28 20 66 6c 61 67 5f 7a 65       if( flag_ze
37f0: 72 6f 70 61 64 20 26 26 20 70 72 65 63 69 73 69  ropad && precisi
3800: 6f 6e 3c 77 69 64 74 68 2d 28 70 72 65 66 69 78  on<width-(prefix
3810: 21 3d 30 29 20 29 7b 0a 20 20 20 20 20 20 20 20  !=0) ){.        
3820: 20 20 70 72 65 63 69 73 69 6f 6e 20 3d 20 77 69    precision = wi
3830: 64 74 68 2d 28 70 72 65 66 69 78 21 3d 30 29 3b  dth-(prefix!=0);
3840: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20  .        }.     
3850: 20 20 20 62 75 66 70 74 20 3d 20 26 62 75 66 5b     bufpt = &buf[
3860: 65 74 42 55 46 53 49 5a 45 5d 3b 0a 20 20 20 20  etBUFSIZE];.    
3870: 20 20 20 20 69 66 28 20 78 74 79 70 65 3d 3d 65      if( xtype==e
3880: 74 4f 52 44 49 4e 41 4c 20 29 7b 0a 20 20 20 20  tORDINAL ){.    
3890: 20 20 20 20 20 20 6c 6f 6e 67 20 61 2c 62 3b 0a        long a,b;.
38a0: 20 20 20 20 20 20 20 20 20 20 61 20 3d 20 6c 6f            a = lo
38b0: 6e 67 76 61 6c 75 65 25 31 30 3b 0a 20 20 20 20  ngvalue%10;.    
38c0: 20 20 20 20 20 20 62 20 3d 20 6c 6f 6e 67 76 61        b = longva
38d0: 6c 75 65 25 31 30 30 3b 0a 20 20 20 20 20 20 20  lue%100;.       
38e0: 20 20 20 62 75 66 70 74 20 2d 3d 20 32 3b 0a 20     bufpt -= 2;. 
38f0: 20 20 20 20 20 20 20 20 20 69 66 28 20 61 3d 3d           if( a==
3900: 30 20 7c 7c 20 61 3e 33 20 7c 7c 20 28 62 3e 31  0 || a>3 || (b>1
3910: 30 20 26 26 20 62 3c 31 34 29 20 29 7b 0a 20 20  0 && b<14) ){.  
3920: 20 20 20 20 20 20 20 20 20 20 62 75 66 70 74 5b            bufpt[
3930: 30 5d 20 3d 20 27 74 27 3b 0a 20 20 20 20 20 20  0] = 't';.      
3940: 20 20 20 20 20 20 62 75 66 70 74 5b 31 5d 20 3d        bufpt[1] =
3950: 20 27 68 27 3b 0a 20 20 20 20 20 20 20 20 20 20   'h';.          
3960: 7d 65 6c 73 65 20 69 66 28 20 61 3d 3d 31 20 29  }else if( a==1 )
3970: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 75  {.            bu
3980: 66 70 74 5b 30 5d 20 3d 20 27 73 27 3b 0a 20 20  fpt[0] = 's';.  
3990: 20 20 20 20 20 20 20 20 20 20 62 75 66 70 74 5b            bufpt[
39a0: 31 5d 20 3d 20 27 74 27 3b 0a 20 20 20 20 20 20  1] = 't';.      
39b0: 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20 61 3d      }else if( a=
39c0: 3d 32 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20  =2 ){.          
39d0: 20 20 62 75 66 70 74 5b 30 5d 20 3d 20 27 6e 27    bufpt[0] = 'n'
39e0: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 75  ;.            bu
39f0: 66 70 74 5b 31 5d 20 3d 20 27 64 27 3b 0a 20 20  fpt[1] = 'd';.  
3a00: 20 20 20 20 20 20 20 20 7d 65 6c 73 65 20 69 66          }else if
3a10: 28 20 61 3d 3d 33 20 29 7b 0a 20 20 20 20 20 20  ( a==3 ){.      
3a20: 20 20 20 20 20 20 62 75 66 70 74 5b 30 5d 20 3d        bufpt[0] =
3a30: 20 27 72 27 3b 0a 20 20 20 20 20 20 20 20 20 20   'r';.          
3a40: 20 20 62 75 66 70 74 5b 31 5d 20 3d 20 27 64 27    bufpt[1] = 'd'
3a50: 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20  ;.          }.  
3a60: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20        }.        
3a70: 7b 0a 20 20 20 20 20 20 20 20 20 20 72 65 67 69  {.          regi
3a80: 73 74 65 72 20 63 68 61 72 20 2a 63 73 65 74 3b  ster char *cset;
3a90: 20 20 20 20 20 20 2f 2a 20 55 73 65 20 72 65 67        /* Use reg
3aa0: 69 73 74 65 72 73 20 66 6f 72 20 73 70 65 65 64  isters for speed
3ab0: 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 72 65   */.          re
3ac0: 67 69 73 74 65 72 20 69 6e 74 20 62 61 73 65 3b  gister int base;
3ad0: 0a 20 20 20 20 20 20 20 20 20 20 63 73 65 74 20  .          cset 
3ae0: 3d 20 69 6e 66 6f 70 2d 3e 63 68 61 72 73 65 74  = infop->charset
3af0: 3b 0a 20 20 20 20 20 20 20 20 20 20 62 61 73 65  ;.          base
3b00: 20 3d 20 69 6e 66 6f 70 2d 3e 62 61 73 65 3b 0a   = infop->base;.
3b10: 20 20 20 20 20 20 20 20 20 20 64 6f 7b 20 20 20            do{   
3b20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3b30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3b40: 20 20 20 20 20 20 20 20 2f 2a 20 43 6f 6e 76 65          /* Conve
3b50: 72 74 20 74 6f 20 61 73 63 69 69 20 2a 2f 0a 20  rt to ascii */. 
3b60: 20 20 20 20 20 20 20 20 20 20 20 2a 28 2d 2d 62             *(--b
3b70: 75 66 70 74 29 20 3d 20 63 73 65 74 5b 6c 6f 6e  ufpt) = cset[lon
3b80: 67 76 61 6c 75 65 25 62 61 73 65 5d 3b 0a 20 20  gvalue%base];.  
3b90: 20 20 20 20 20 20 20 20 20 20 6c 6f 6e 67 76 61            longva
3ba0: 6c 75 65 20 3d 20 6c 6f 6e 67 76 61 6c 75 65 2f  lue = longvalue/
3bb0: 62 61 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20  base;.          
3bc0: 7d 77 68 69 6c 65 28 20 6c 6f 6e 67 76 61 6c 75  }while( longvalu
3bd0: 65 3e 30 20 29 3b 0a 20 20 20 20 20 20 20 20 7d  e>0 );.        }
3be0: 0a 20 20 20 20 20 20 20 20 6c 65 6e 67 74 68 20  .        length 
3bf0: 3d 20 26 62 75 66 5b 65 74 42 55 46 53 49 5a 45  = &buf[etBUFSIZE
3c00: 5d 2d 62 75 66 70 74 3b 0a 20 20 20 20 20 20 20  ]-bufpt;.       
3c10: 20 66 6f 72 28 69 64 78 3d 70 72 65 63 69 73 69   for(idx=precisi
3c20: 6f 6e 2d 6c 65 6e 67 74 68 3b 20 69 64 78 3e 30  on-length; idx>0
3c30: 3b 20 69 64 78 2d 2d 29 7b 0a 20 20 20 20 20 20  ; idx--){.      
3c40: 20 20 20 20 2a 28 2d 2d 62 75 66 70 74 29 20 3d      *(--bufpt) =
3c50: 20 27 30 27 3b 20 20 20 20 20 20 20 20 20 20 20   '0';           
3c60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3c70: 20 20 2f 2a 20 5a 65 72 6f 20 70 61 64 20 2a 2f    /* Zero pad */
3c80: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20  .        }.     
3c90: 20 20 20 69 66 28 20 70 72 65 66 69 78 20 29 20     if( prefix ) 
3ca0: 2a 28 2d 2d 62 75 66 70 74 29 20 3d 20 70 72 65  *(--bufpt) = pre
3cb0: 66 69 78 3b 20 20 20 20 20 20 20 20 20 20 20 20  fix;            
3cc0: 20 20 20 2f 2a 20 41 64 64 20 73 69 67 6e 20 2a     /* Add sign *
3cd0: 2f 0a 20 20 20 20 20 20 20 20 69 66 28 20 66 6c  /.        if( fl
3ce0: 61 67 5f 61 6c 74 65 72 6e 61 74 65 66 6f 72 6d  ag_alternateform
3cf0: 20 26 26 20 69 6e 66 6f 70 2d 3e 70 72 65 66 69   && infop->prefi
3d00: 78 20 29 7b 20 20 20 20 20 20 2f 2a 20 41 64 64  x ){      /* Add
3d10: 20 22 30 22 20 6f 72 20 22 30 78 22 20 2a 2f 0a   "0" or "0x" */.
3d20: 20 20 20 20 20 20 20 20 20 20 63 68 61 72 20 2a            char *
3d30: 70 72 65 2c 20 78 3b 0a 20 20 20 20 20 20 20 20  pre, x;.        
3d40: 20 20 70 72 65 20 3d 20 69 6e 66 6f 70 2d 3e 70    pre = infop->p
3d50: 72 65 66 69 78 3b 0a 20 20 20 20 20 20 20 20 20  refix;.         
3d60: 20 69 66 28 20 2a 62 75 66 70 74 21 3d 70 72 65   if( *bufpt!=pre
3d70: 5b 30 5d 20 29 7b 0a 20 20 20 20 20 20 20 20 20  [0] ){.         
3d80: 20 20 20 66 6f 72 28 70 72 65 3d 69 6e 66 6f 70     for(pre=infop
3d90: 2d 3e 70 72 65 66 69 78 3b 20 28 78 3d 28 2a 70  ->prefix; (x=(*p
3da0: 72 65 29 29 21 3d 30 3b 20 70 72 65 2b 2b 29 20  re))!=0; pre++) 
3db0: 2a 28 2d 2d 62 75 66 70 74 29 20 3d 20 78 3b 0a  *(--bufpt) = x;.
3dc0: 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20            }.    
3dd0: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 6c 65      }.        le
3de0: 6e 67 74 68 20 3d 20 26 62 75 66 5b 65 74 42 55  ngth = &buf[etBU
3df0: 46 53 49 5a 45 5d 2d 62 75 66 70 74 3b 0a 20 20  FSIZE]-bufpt;.  
3e00: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20        break;.   
3e10: 20 20 20 63 61 73 65 20 65 74 46 4c 4f 41 54 3a     case etFLOAT:
3e20: 0a 20 20 20 20 20 20 63 61 73 65 20 65 74 45 58  .      case etEX
3e30: 50 3a 0a 20 20 20 20 20 20 63 61 73 65 20 65 74  P:.      case et
3e40: 47 45 4e 45 52 49 43 3a 0a 20 20 20 20 20 20 20  GENERIC:.       
3e50: 20 72 65 61 6c 76 61 6c 75 65 20 3d 20 76 61 5f   realvalue = va_
3e60: 61 72 67 28 61 70 2c 64 6f 75 62 6c 65 29 3b 0a  arg(ap,double);.
3e70: 23 69 66 6e 64 65 66 20 65 74 4e 4f 46 4c 4f 41  #ifndef etNOFLOA
3e80: 54 49 4e 47 50 4f 49 4e 54 0a 20 20 20 20 20 20  TINGPOINT.      
3e90: 20 20 69 66 28 20 70 72 65 63 69 73 69 6f 6e 3c    if( precision<
3ea0: 30 20 29 20 70 72 65 63 69 73 69 6f 6e 20 3d 20  0 ) precision = 
3eb0: 36 3b 20 20 20 20 20 20 20 20 20 2f 2a 20 53 65  6;         /* Se
3ec0: 74 20 64 65 66 61 75 6c 74 20 70 72 65 63 69 73  t default precis
3ed0: 69 6f 6e 20 2a 2f 0a 20 20 20 20 20 20 20 20 69  ion */.        i
3ee0: 66 28 20 70 72 65 63 69 73 69 6f 6e 3e 65 74 42  f( precision>etB
3ef0: 55 46 53 49 5a 45 2d 31 30 20 29 20 70 72 65 63  UFSIZE-10 ) prec
3f00: 69 73 69 6f 6e 20 3d 20 65 74 42 55 46 53 49 5a  ision = etBUFSIZ
3f10: 45 2d 31 30 3b 0a 20 20 20 20 20 20 20 20 69 66  E-10;.        if
3f20: 28 20 72 65 61 6c 76 61 6c 75 65 3c 30 2e 30 20  ( realvalue<0.0 
3f30: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 72 65 61  ){.          rea
3f40: 6c 76 61 6c 75 65 20 3d 20 2d 72 65 61 6c 76 61  lvalue = -realva
3f50: 6c 75 65 3b 0a 20 20 20 20 20 20 20 20 20 20 70  lue;.          p
3f60: 72 65 66 69 78 20 3d 20 27 2d 27 3b 0a 20 20 20  refix = '-';.   
3f70: 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20       }else{.    
3f80: 20 20 20 20 20 20 69 66 28 20 66 6c 61 67 5f 70        if( flag_p
3f90: 6c 75 73 73 69 67 6e 20 29 20 20 20 20 20 20 20  lussign )       
3fa0: 20 20 20 70 72 65 66 69 78 20 3d 20 27 2b 27 3b     prefix = '+';
3fb0: 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20  .          else 
3fc0: 69 66 28 20 66 6c 61 67 5f 62 6c 61 6e 6b 73 69  if( flag_blanksi
3fd0: 67 6e 20 29 20 20 20 20 70 72 65 66 69 78 20 3d  gn )    prefix =
3fe0: 20 27 20 27 3b 0a 20 20 20 20 20 20 20 20 20 20   ' ';.          
3ff0: 65 6c 73 65 20 20 20 20 20 20 20 20 20 20 20 20  else            
4000: 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 65               pre
4010: 66 69 78 20 3d 20 30 3b 0a 20 20 20 20 20 20 20  fix = 0;.       
4020: 20 7d 0a 20 20 20 20 20 20 20 20 69 66 28 20 69   }.        if( i
4030: 6e 66 6f 70 2d 3e 74 79 70 65 3d 3d 65 74 47 45  nfop->type==etGE
4040: 4e 45 52 49 43 20 26 26 20 70 72 65 63 69 73 69  NERIC && precisi
4050: 6f 6e 3e 30 20 29 20 70 72 65 63 69 73 69 6f 6e  on>0 ) precision
4060: 2d 2d 3b 0a 20 20 20 20 20 20 20 20 72 6f 75 6e  --;.        roun
4070: 64 65 72 20 3d 20 30 2e 30 3b 0a 23 69 66 64 65  der = 0.0;.#ifde
4080: 66 20 43 4f 4d 50 41 54 49 42 49 4c 49 54 59 0a  f COMPATIBILITY.
4090: 20 20 20 20 20 20 20 20 2f 2a 20 52 6f 75 6e 64          /* Round
40a0: 69 6e 67 20 77 6f 72 6b 73 20 6c 69 6b 65 20 42  ing works like B
40b0: 53 44 20 77 68 65 6e 20 74 68 65 20 63 6f 6e 73  SD when the cons
40c0: 74 61 6e 74 20 30 2e 34 39 39 39 20 69 73 20 75  tant 0.4999 is u
40d0: 73 65 64 2e 20 20 57 69 65 72 64 21 20 2a 2f 0a  sed.  Wierd! */.
40e0: 20 20 20 20 20 20 20 20 66 6f 72 28 69 64 78 3d          for(idx=
40f0: 70 72 65 63 69 73 69 6f 6e 2c 20 72 6f 75 6e 64  precision, round
4100: 65 72 3d 30 2e 34 39 39 39 3b 20 69 64 78 3e 30  er=0.4999; idx>0
4110: 3b 20 69 64 78 2d 2d 2c 20 72 6f 75 6e 64 65 72  ; idx--, rounder
4120: 2a 3d 30 2e 31 29 3b 0a 23 65 6c 73 65 0a 20 20  *=0.1);.#else.  
4130: 20 20 20 20 20 20 2f 2a 20 49 74 20 6d 61 6b 65        /* It make
4140: 73 20 6d 6f 72 65 20 73 65 6e 73 65 20 74 6f 20  s more sense to 
4150: 75 73 65 20 30 2e 35 20 2a 2f 0a 20 20 20 20 20  use 0.5 */.     
4160: 20 20 20 66 6f 72 28 69 64 78 3d 70 72 65 63 69     for(idx=preci
4170: 73 69 6f 6e 2c 20 72 6f 75 6e 64 65 72 3d 30 2e  sion, rounder=0.
4180: 35 3b 20 69 64 78 3e 30 3b 20 69 64 78 2d 2d 2c  5; idx>0; idx--,
4190: 20 72 6f 75 6e 64 65 72 2a 3d 30 2e 31 29 3b 0a   rounder*=0.1);.
41a0: 23 65 6e 64 69 66 0a 20 20 20 20 20 20 20 20 69  #endif.        i
41b0: 66 28 20 69 6e 66 6f 70 2d 3e 74 79 70 65 3d 3d  f( infop->type==
41c0: 65 74 46 4c 4f 41 54 20 29 20 72 65 61 6c 76 61  etFLOAT ) realva
41d0: 6c 75 65 20 2b 3d 20 72 6f 75 6e 64 65 72 3b 0a  lue += rounder;.
41e0: 20 20 20 20 20 20 20 20 2f 2a 20 4e 6f 72 6d 61          /* Norma
41f0: 6c 69 7a 65 20 72 65 61 6c 76 61 6c 75 65 20 74  lize realvalue t
4200: 6f 20 77 69 74 68 69 6e 20 31 30 2e 30 20 3e 20  o within 10.0 > 
4210: 72 65 61 6c 76 61 6c 75 65 20 3e 3d 20 31 2e 30  realvalue >= 1.0
4220: 20 2a 2f 0a 20 20 20 20 20 20 20 20 65 78 70 20   */.        exp 
4230: 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 69 66 28  = 0;.        if(
4240: 20 72 65 61 6c 76 61 6c 75 65 3e 30 2e 30 20 29   realvalue>0.0 )
4250: 7b 0a 20 20 20 20 20 20 20 20 20 20 69 6e 74 20  {.          int 
4260: 6b 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20  k = 0;.         
4270: 20 77 68 69 6c 65 28 20 72 65 61 6c 76 61 6c 75   while( realvalu
4280: 65 3e 3d 31 65 38 20 26 26 20 6b 2b 2b 3c 31 30  e>=1e8 && k++<10
4290: 30 20 29 7b 20 72 65 61 6c 76 61 6c 75 65 20 2a  0 ){ realvalue *
42a0: 3d 20 31 65 2d 38 3b 20 65 78 70 2b 3d 38 3b 20  = 1e-8; exp+=8; 
42b0: 7d 0a 20 20 20 20 20 20 20 20 20 20 77 68 69 6c  }.          whil
42c0: 65 28 20 72 65 61 6c 76 61 6c 75 65 3e 3d 31 30  e( realvalue>=10
42d0: 2e 30 20 26 26 20 6b 2b 2b 3c 31 30 30 20 29 7b  .0 && k++<100 ){
42e0: 20 72 65 61 6c 76 61 6c 75 65 20 2a 3d 20 30 2e   realvalue *= 0.
42f0: 31 3b 20 65 78 70 2b 2b 3b 20 7d 0a 20 20 20 20  1; exp++; }.    
4300: 20 20 20 20 20 20 77 68 69 6c 65 28 20 72 65 61        while( rea
4310: 6c 76 61 6c 75 65 3c 31 65 2d 38 20 26 26 20 6b  lvalue<1e-8 && k
4320: 2b 2b 3c 31 30 30 20 29 7b 20 72 65 61 6c 76 61  ++<100 ){ realva
4330: 6c 75 65 20 2a 3d 20 31 65 38 3b 20 65 78 70 2d  lue *= 1e8; exp-
4340: 3d 38 3b 20 7d 0a 20 20 20 20 20 20 20 20 20 20  =8; }.          
4350: 77 68 69 6c 65 28 20 72 65 61 6c 76 61 6c 75 65  while( realvalue
4360: 3c 31 2e 30 20 26 26 20 6b 2b 2b 3c 31 30 30 20  <1.0 && k++<100 
4370: 29 7b 20 72 65 61 6c 76 61 6c 75 65 20 2a 3d 20  ){ realvalue *= 
4380: 31 30 2e 30 3b 20 65 78 70 2d 2d 3b 20 7d 0a 20  10.0; exp--; }. 
4390: 20 20 20 20 20 20 20 20 20 69 66 28 20 6b 3e 3d           if( k>=
43a0: 31 30 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20  100 ){.         
43b0: 20 20 20 62 75 66 70 74 20 3d 20 22 4e 61 4e 22     bufpt = "NaN"
43c0: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 65  ;.            le
43d0: 6e 67 74 68 20 3d 20 33 3b 0a 20 20 20 20 20 20  ngth = 3;.      
43e0: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20        break;.   
43f0: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20         }.       
4400: 20 7d 0a 20 20 20 20 20 20 20 20 62 75 66 70 74   }.        bufpt
4410: 20 3d 20 62 75 66 3b 0a 20 20 20 20 20 20 20 20   = buf;.        
4420: 2f 2a 0a 20 20 20 20 20 20 20 20 2a 2a 20 49 66  /*.        ** If
4430: 20 74 68 65 20 66 69 65 6c 64 20 74 79 70 65 20   the field type 
4440: 69 73 20 65 74 47 45 4e 45 52 49 43 2c 20 74 68  is etGENERIC, th
4450: 65 6e 20 63 6f 6e 76 65 72 74 20 74 6f 20 65 69  en convert to ei
4460: 74 68 65 72 20 65 74 45 58 50 0a 20 20 20 20 20  ther etEXP.     
4470: 20 20 20 2a 2a 20 6f 72 20 65 74 46 4c 4f 41 54     ** or etFLOAT
4480: 2c 20 61 73 20 61 70 70 72 6f 70 72 69 61 74 65  , as appropriate
4490: 2e 0a 20 20 20 20 20 20 20 20 2a 2f 0a 20 20 20  ..        */.   
44a0: 20 20 20 20 20 66 6c 61 67 5f 65 78 70 20 3d 20       flag_exp = 
44b0: 78 74 79 70 65 3d 3d 65 74 45 58 50 3b 0a 20 20  xtype==etEXP;.  
44c0: 20 20 20 20 20 20 69 66 28 20 78 74 79 70 65 21        if( xtype!
44d0: 3d 65 74 46 4c 4f 41 54 20 29 7b 0a 20 20 20 20  =etFLOAT ){.    
44e0: 20 20 20 20 20 20 72 65 61 6c 76 61 6c 75 65 20        realvalue 
44f0: 2b 3d 20 72 6f 75 6e 64 65 72 3b 0a 20 20 20 20  += rounder;.    
4500: 20 20 20 20 20 20 69 66 28 20 72 65 61 6c 76 61        if( realva
4510: 6c 75 65 3e 3d 31 30 2e 30 20 29 7b 20 72 65 61  lue>=10.0 ){ rea
4520: 6c 76 61 6c 75 65 20 2a 3d 20 30 2e 31 3b 20 65  lvalue *= 0.1; e
4530: 78 70 2b 2b 3b 20 7d 0a 20 20 20 20 20 20 20 20  xp++; }.        
4540: 7d 0a 20 20 20 20 20 20 20 20 69 66 28 20 78 74  }.        if( xt
4550: 79 70 65 3d 3d 65 74 47 45 4e 45 52 49 43 20 29  ype==etGENERIC )
4560: 7b 0a 20 20 20 20 20 20 20 20 20 20 66 6c 61 67  {.          flag
4570: 5f 72 74 7a 20 3d 20 21 66 6c 61 67 5f 61 6c 74  _rtz = !flag_alt
4580: 65 72 6e 61 74 65 66 6f 72 6d 3b 0a 20 20 20 20  ernateform;.    
4590: 20 20 20 20 20 20 69 66 28 20 65 78 70 3c 2d 34        if( exp<-4
45a0: 20 7c 7c 20 65 78 70 3e 70 72 65 63 69 73 69 6f   || exp>precisio
45b0: 6e 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20  n ){.           
45c0: 20 78 74 79 70 65 20 3d 20 65 74 45 58 50 3b 0a   xtype = etEXP;.
45d0: 20 20 20 20 20 20 20 20 20 20 7d 65 6c 73 65 7b            }else{
45e0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 72 65  .            pre
45f0: 63 69 73 69 6f 6e 20 3d 20 70 72 65 63 69 73 69  cision = precisi
4600: 6f 6e 20 2d 20 65 78 70 3b 0a 20 20 20 20 20 20  on - exp;.      
4610: 20 20 20 20 20 20 78 74 79 70 65 20 3d 20 65 74        xtype = et
4620: 46 4c 4f 41 54 3b 0a 20 20 20 20 20 20 20 20 20  FLOAT;.         
4630: 20 7d 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 65   }.        }else
4640: 7b 0a 20 20 20 20 20 20 20 20 20 20 66 6c 61 67  {.          flag
4650: 5f 72 74 7a 20 3d 20 30 3b 0a 20 20 20 20 20 20  _rtz = 0;.      
4660: 20 20 7d 0a 20 20 20 20 20 20 20 20 2f 2a 0a 20    }.        /*. 
4670: 20 20 20 20 20 20 20 2a 2a 20 54 68 65 20 22 65         ** The "e
4680: 78 70 2b 70 72 65 63 69 73 69 6f 6e 22 20 74 65  xp+precision" te
4690: 73 74 20 63 61 75 73 65 73 20 6f 75 74 70 75 74  st causes output
46a0: 20 74 6f 20 62 65 20 6f 66 20 74 79 70 65 20 65   to be of type e
46b0: 74 45 58 50 20 69 66 0a 20 20 20 20 20 20 20 20  tEXP if.        
46c0: 2a 2a 20 74 68 65 20 70 72 65 63 69 73 69 6f 6e  ** the precision
46d0: 20 69 73 20 74 6f 6f 20 6c 61 72 67 65 20 74 6f   is too large to
46e0: 20 66 69 74 20 69 6e 20 62 75 66 5b 5d 2e 0a 20   fit in buf[].. 
46f0: 20 20 20 20 20 20 20 2a 2f 0a 20 20 20 20 20 20         */.      
4700: 20 20 6e 73 64 20 3d 20 30 3b 0a 20 20 20 20 20    nsd = 0;.     
4710: 20 20 20 69 66 28 20 78 74 79 70 65 3d 3d 65 74     if( xtype==et
4720: 46 4c 4f 41 54 20 26 26 20 65 78 70 2b 70 72 65  FLOAT && exp+pre
4730: 63 69 73 69 6f 6e 3c 65 74 42 55 46 53 49 5a 45  cision<etBUFSIZE
4740: 2d 33 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20  -30 ){.         
4750: 20 66 6c 61 67 5f 64 70 20 3d 20 28 70 72 65 63   flag_dp = (prec
4760: 69 73 69 6f 6e 3e 30 20 7c 7c 20 66 6c 61 67 5f  ision>0 || flag_
4770: 61 6c 74 65 72 6e 61 74 65 66 6f 72 6d 29 3b 0a  alternateform);.
4780: 20 20 20 20 20 20 20 20 20 20 69 66 28 20 70 72            if( pr
4790: 65 66 69 78 20 29 20 2a 28 62 75 66 70 74 2b 2b  efix ) *(bufpt++
47a0: 29 20 3d 20 70 72 65 66 69 78 3b 20 20 20 20 20  ) = prefix;     
47b0: 20 20 20 20 2f 2a 20 53 69 67 6e 20 2a 2f 0a 20      /* Sign */. 
47c0: 20 20 20 20 20 20 20 20 20 69 66 28 20 65 78 70           if( exp
47d0: 3c 30 20 29 20 20 2a 28 62 75 66 70 74 2b 2b 29  <0 )  *(bufpt++)
47e0: 20 3d 20 27 30 27 3b 20 20 20 20 20 20 20 20 20   = '0';         
47f0: 20 20 20 2f 2a 20 44 69 67 69 74 73 20 62 65 66     /* Digits bef
4800: 6f 72 65 20 22 2e 22 20 2a 2f 0a 20 20 20 20 20  ore "." */.     
4810: 20 20 20 20 20 65 6c 73 65 20 66 6f 72 28 3b 20       else for(; 
4820: 65 78 70 3e 3d 30 3b 20 65 78 70 2d 2d 29 20 2a  exp>=0; exp--) *
4830: 28 62 75 66 70 74 2b 2b 29 20 3d 20 65 74 5f 67  (bufpt++) = et_g
4840: 65 74 64 69 67 69 74 28 26 72 65 61 6c 76 61 6c  etdigit(&realval
4850: 75 65 2c 26 6e 73 64 29 3b 0a 20 20 20 20 20 20  ue,&nsd);.      
4860: 20 20 20 20 69 66 28 20 66 6c 61 67 5f 64 70 20      if( flag_dp 
4870: 29 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 27  ) *(bufpt++) = '
4880: 2e 27 3b 20 20 20 20 20 20 20 20 20 20 20 2f 2a  .';           /*
4890: 20 54 68 65 20 64 65 63 69 6d 61 6c 20 70 6f 69   The decimal poi
48a0: 6e 74 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20  nt */.          
48b0: 66 6f 72 28 65 78 70 2b 2b 3b 20 65 78 70 3c 30  for(exp++; exp<0
48c0: 20 26 26 20 70 72 65 63 69 73 69 6f 6e 3e 30 3b   && precision>0;
48d0: 20 70 72 65 63 69 73 69 6f 6e 2d 2d 2c 20 65 78   precision--, ex
48e0: 70 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20 20 20  p++){.          
48f0: 20 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 27    *(bufpt++) = '
4900: 30 27 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 0a  0';.          }.
4910: 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 28            while(
4920: 20 28 70 72 65 63 69 73 69 6f 6e 2d 2d 29 3e 30   (precision--)>0
4930: 20 29 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20   ) *(bufpt++) = 
4940: 65 74 5f 67 65 74 64 69 67 69 74 28 26 72 65 61  et_getdigit(&rea
4950: 6c 76 61 6c 75 65 2c 26 6e 73 64 29 3b 0a 20 20  lvalue,&nsd);.  
4960: 20 20 20 20 20 20 20 20 2a 28 62 75 66 70 74 2d          *(bufpt-
4970: 2d 29 20 3d 20 30 3b 20 20 20 20 20 20 20 20 20  -) = 0;         
4980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4990: 20 20 2f 2a 20 4e 75 6c 6c 20 74 65 72 6d 69 6e    /* Null termin
49a0: 61 74 65 20 2a 2f 0a 20 20 20 20 20 20 20 20 20  ate */.         
49b0: 20 69 66 28 20 66 6c 61 67 5f 72 74 7a 20 26 26   if( flag_rtz &&
49c0: 20 66 6c 61 67 5f 64 70 20 29 7b 20 20 20 20 20   flag_dp ){     
49d0: 2f 2a 20 52 65 6d 6f 76 65 20 74 72 61 69 6c 69  /* Remove traili
49e0: 6e 67 20 7a 65 72 6f 73 20 61 6e 64 20 22 2e 22  ng zeros and "."
49f0: 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 20 20   */.            
4a00: 77 68 69 6c 65 28 20 62 75 66 70 74 3e 3d 62 75  while( bufpt>=bu
4a10: 66 20 26 26 20 2a 62 75 66 70 74 3d 3d 27 30 27  f && *bufpt=='0'
4a20: 20 29 20 2a 28 62 75 66 70 74 2d 2d 29 20 3d 20   ) *(bufpt--) = 
4a30: 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69  0;.            i
4a40: 66 28 20 62 75 66 70 74 3e 3d 62 75 66 20 26 26  f( bufpt>=buf &&
4a50: 20 2a 62 75 66 70 74 3d 3d 27 2e 27 20 29 20 2a   *bufpt=='.' ) *
4a60: 28 62 75 66 70 74 2d 2d 29 20 3d 20 30 3b 0a 20  (bufpt--) = 0;. 
4a70: 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20           }.     
4a80: 20 20 20 20 20 62 75 66 70 74 2b 2b 3b 20 20 20       bufpt++;   
4a90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4aa0: 20 20 20 20 20 20 20 20 20 2f 2a 20 70 6f 69 6e           /* poin
4ab0: 74 20 74 6f 20 6e 65 78 74 20 66 72 65 65 20 73  t to next free s
4ac0: 6c 6f 74 20 2a 2f 0a 20 20 20 20 20 20 20 20 7d  lot */.        }
4ad0: 65 6c 73 65 7b 20 20 20 20 2f 2a 20 65 74 45 58  else{    /* etEX
4ae0: 50 20 6f 72 20 65 74 47 45 4e 45 52 49 43 20 2a  P or etGENERIC *
4af0: 2f 0a 20 20 20 20 20 20 20 20 20 20 66 6c 61 67  /.          flag
4b00: 5f 64 70 20 3d 20 28 70 72 65 63 69 73 69 6f 6e  _dp = (precision
4b10: 3e 30 20 7c 7c 20 66 6c 61 67 5f 61 6c 74 65 72  >0 || flag_alter
4b20: 6e 61 74 65 66 6f 72 6d 29 3b 0a 20 20 20 20 20  nateform);.     
4b30: 20 20 20 20 20 69 66 28 20 70 72 65 66 69 78 20       if( prefix 
4b40: 29 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 70  ) *(bufpt++) = p
4b50: 72 65 66 69 78 3b 20 20 20 2f 2a 20 53 69 67 6e  refix;   /* Sign
4b60: 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 2a 28   */.          *(
4b70: 62 75 66 70 74 2b 2b 29 20 3d 20 65 74 5f 67 65  bufpt++) = et_ge
4b80: 74 64 69 67 69 74 28 26 72 65 61 6c 76 61 6c 75  tdigit(&realvalu
4b90: 65 2c 26 6e 73 64 29 3b 20 20 2f 2a 20 46 69 72  e,&nsd);  /* Fir
4ba0: 73 74 20 64 69 67 69 74 20 2a 2f 0a 20 20 20 20  st digit */.    
4bb0: 20 20 20 20 20 20 69 66 28 20 66 6c 61 67 5f 64        if( flag_d
4bc0: 70 20 29 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d  p ) *(bufpt++) =
4bd0: 20 27 2e 27 3b 20 20 20 20 20 2f 2a 20 44 65 63   '.';     /* Dec
4be0: 69 6d 61 6c 20 70 6f 69 6e 74 20 2a 2f 0a 20 20  imal point */.  
4bf0: 20 20 20 20 20 20 20 20 77 68 69 6c 65 28 20 28          while( (
4c00: 70 72 65 63 69 73 69 6f 6e 2d 2d 29 3e 30 20 29  precision--)>0 )
4c10: 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 65 74   *(bufpt++) = et
4c20: 5f 67 65 74 64 69 67 69 74 28 26 72 65 61 6c 76  _getdigit(&realv
4c30: 61 6c 75 65 2c 26 6e 73 64 29 3b 0a 20 20 20 20  alue,&nsd);.    
4c40: 20 20 20 20 20 20 62 75 66 70 74 2d 2d 3b 20 20        bufpt--;  
4c50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4c60: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 70 6f 69            /* poi
4c70: 6e 74 20 74 6f 20 6c 61 73 74 20 64 69 67 69 74  nt to last digit
4c80: 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 69 66   */.          if
4c90: 28 20 66 6c 61 67 5f 72 74 7a 20 26 26 20 66 6c  ( flag_rtz && fl
4ca0: 61 67 5f 64 70 20 29 7b 20 20 20 20 20 20 20 20  ag_dp ){        
4cb0: 20 20 2f 2a 20 52 65 6d 6f 76 65 20 74 61 69 6c    /* Remove tail
4cc0: 20 7a 65 72 6f 73 20 2a 2f 0a 20 20 20 20 20 20   zeros */.      
4cd0: 20 20 20 20 20 20 77 68 69 6c 65 28 20 62 75 66        while( buf
4ce0: 70 74 3e 3d 62 75 66 20 26 26 20 2a 62 75 66 70  pt>=buf && *bufp
4cf0: 74 3d 3d 27 30 27 20 29 20 2a 28 62 75 66 70 74  t=='0' ) *(bufpt
4d00: 2d 2d 29 20 3d 20 30 3b 0a 20 20 20 20 20 20 20  --) = 0;.       
4d10: 20 20 20 20 20 69 66 28 20 62 75 66 70 74 3e 3d       if( bufpt>=
4d20: 62 75 66 20 26 26 20 2a 62 75 66 70 74 3d 3d 27  buf && *bufpt=='
4d30: 2e 27 20 29 20 2a 28 62 75 66 70 74 2d 2d 29 20  .' ) *(bufpt--) 
4d40: 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 7d  = 0;.          }
4d50: 0a 20 20 20 20 20 20 20 20 20 20 62 75 66 70 74  .          bufpt
4d60: 2b 2b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20  ++;             
4d70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
4d80: 2a 20 70 6f 69 6e 74 20 74 6f 20 6e 65 78 74 20  * point to next 
4d90: 66 72 65 65 20 73 6c 6f 74 20 2a 2f 0a 20 20 20  free slot */.   
4da0: 20 20 20 20 20 20 20 69 66 28 20 65 78 70 20 7c         if( exp |
4db0: 7c 20 66 6c 61 67 5f 65 78 70 20 29 7b 0a 20 20  | flag_exp ){.  
4dc0: 20 20 20 20 20 20 20 20 20 20 2a 28 62 75 66 70            *(bufp
4dd0: 74 2b 2b 29 20 3d 20 69 6e 66 6f 70 2d 3e 63 68  t++) = infop->ch
4de0: 61 72 73 65 74 5b 30 5d 3b 0a 20 20 20 20 20 20  arset[0];.      
4df0: 20 20 20 20 20 20 69 66 28 20 65 78 70 3c 30 20        if( exp<0 
4e00: 29 7b 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20  ){ *(bufpt++) = 
4e10: 27 2d 27 3b 20 65 78 70 20 3d 20 2d 65 78 70 3b  '-'; exp = -exp;
4e20: 20 7d 20 2f 2a 20 73 69 67 6e 20 6f 66 20 65 78   } /* sign of ex
4e30: 70 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 20  p */.           
4e40: 20 65 6c 73 65 20 20 20 20 20 20 20 7b 20 2a 28   else       { *(
4e50: 62 75 66 70 74 2b 2b 29 20 3d 20 27 2b 27 3b 20  bufpt++) = '+'; 
4e60: 7d 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66  }.            if
4e70: 28 20 65 78 70 3e 3d 31 30 30 20 29 7b 0a 20 20  ( exp>=100 ){.  
4e80: 20 20 20 20 20 20 20 20 20 20 20 20 2a 28 62 75              *(bu
4e90: 66 70 74 2b 2b 29 20 3d 20 28 65 78 70 2f 31 30  fpt++) = (exp/10
4ea0: 30 29 2b 27 30 27 3b 20 20 20 20 20 20 20 20 20  0)+'0';         
4eb0: 20 20 20 20 20 20 20 2f 2a 20 31 30 30 27 73 20         /* 100's 
4ec0: 64 69 67 69 74 20 2a 2f 0a 20 20 20 20 20 20 20  digit */.       
4ed0: 20 20 20 20 20 20 20 65 78 70 20 25 3d 20 31 30         exp %= 10
4ee0: 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d  0;.            }
4ef0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 2a 28 62  .            *(b
4f00: 75 66 70 74 2b 2b 29 20 3d 20 65 78 70 2f 31 30  ufpt++) = exp/10
4f10: 2b 27 30 27 3b 20 20 20 20 20 20 20 20 20 20 20  +'0';           
4f20: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 31 30 27            /* 10'
4f30: 73 20 64 69 67 69 74 20 2a 2f 0a 20 20 20 20 20  s digit */.     
4f40: 20 20 20 20 20 20 20 2a 28 62 75 66 70 74 2b 2b         *(bufpt++
4f50: 29 20 3d 20 65 78 70 25 31 30 2b 27 30 27 3b 20  ) = exp%10+'0'; 
4f60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4f70: 20 20 20 20 2f 2a 20 31 27 73 20 64 69 67 69 74      /* 1's digit
4f80: 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 7d 0a   */.          }.
4f90: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
4fa0: 20 20 2f 2a 20 54 68 65 20 63 6f 6e 76 65 72 74    /* The convert
4fb0: 65 64 20 6e 75 6d 62 65 72 20 69 73 20 69 6e 20  ed number is in 
4fc0: 62 75 66 5b 5d 20 61 6e 64 20 7a 65 72 6f 20 74  buf[] and zero t
4fd0: 65 72 6d 69 6e 61 74 65 64 2e 20 4f 75 74 70 75  erminated. Outpu
4fe0: 74 20 69 74 2e 0a 20 20 20 20 20 20 20 20 2a 2a  t it..        **
4ff0: 20 4e 6f 74 65 20 74 68 61 74 20 74 68 65 20 6e   Note that the n
5000: 75 6d 62 65 72 20 69 73 20 69 6e 20 74 68 65 20  umber is in the 
5010: 75 73 75 61 6c 20 6f 72 64 65 72 2c 20 6e 6f 74  usual order, not
5020: 20 72 65 76 65 72 73 65 64 20 61 73 20 77 69 74   reversed as wit
5030: 68 0a 20 20 20 20 20 20 20 20 2a 2a 20 69 6e 74  h.        ** int
5040: 65 67 65 72 20 63 6f 6e 76 65 72 73 69 6f 6e 73  eger conversions
5050: 2e 20 2a 2f 0a 20 20 20 20 20 20 20 20 6c 65 6e  . */.        len
5060: 67 74 68 20 3d 20 62 75 66 70 74 2d 62 75 66 3b  gth = bufpt-buf;
5070: 0a 20 20 20 20 20 20 20 20 62 75 66 70 74 20 3d  .        bufpt =
5080: 20 62 75 66 3b 0a 0a 20 20 20 20 20 20 20 20 2f   buf;..        /
5090: 2a 20 53 70 65 63 69 61 6c 20 63 61 73 65 3a 20  * Special case: 
50a0: 20 41 64 64 20 6c 65 61 64 69 6e 67 20 7a 65 72   Add leading zer
50b0: 6f 73 20 69 66 20 74 68 65 20 66 6c 61 67 5f 7a  os if the flag_z
50c0: 65 72 6f 70 61 64 20 66 6c 61 67 20 69 73 0a 20  eropad flag is. 
50d0: 20 20 20 20 20 20 20 2a 2a 20 73 65 74 20 61 6e         ** set an
50e0: 64 20 77 65 20 61 72 65 20 6e 6f 74 20 6c 65 66  d we are not lef
50f0: 74 20 6a 75 73 74 69 66 69 65 64 20 2a 2f 0a 20  t justified */. 
5100: 20 20 20 20 20 20 20 69 66 28 20 66 6c 61 67 5f         if( flag_
5110: 7a 65 72 6f 70 61 64 20 26 26 20 21 66 6c 61 67  zeropad && !flag
5120: 5f 6c 65 66 74 6a 75 73 74 69 66 79 20 26 26 20  _leftjustify && 
5130: 6c 65 6e 67 74 68 20 3c 20 77 69 64 74 68 29 7b  length < width){
5140: 0a 20 20 20 20 20 20 20 20 20 20 69 6e 74 20 69  .          int i
5150: 3b 0a 20 20 20 20 20 20 20 20 20 20 69 6e 74 20  ;.          int 
5160: 6e 50 61 64 20 3d 20 77 69 64 74 68 20 2d 20 6c  nPad = width - l
5170: 65 6e 67 74 68 3b 0a 20 20 20 20 20 20 20 20 20  ength;.         
5180: 20 66 6f 72 28 69 3d 77 69 64 74 68 3b 20 69 3e   for(i=width; i>
5190: 3d 6e 50 61 64 3b 20 69 2d 2d 29 7b 0a 20 20 20  =nPad; i--){.   
51a0: 20 20 20 20 20 20 20 20 20 62 75 66 70 74 5b 69           bufpt[i
51b0: 5d 20 3d 20 62 75 66 70 74 5b 69 2d 6e 50 61 64  ] = bufpt[i-nPad
51c0: 5d 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 0a 20  ];.          }. 
51d0: 20 20 20 20 20 20 20 20 20 69 20 3d 20 70 72 65           i = pre
51e0: 66 69 78 21 3d 30 3b 0a 20 20 20 20 20 20 20 20  fix!=0;.        
51f0: 20 20 77 68 69 6c 65 28 20 6e 50 61 64 2d 2d 20    while( nPad-- 
5200: 29 20 62 75 66 70 74 5b 69 2b 2b 5d 20 3d 20 27  ) bufpt[i++] = '
5210: 30 27 3b 0a 20 20 20 20 20 20 20 20 20 20 6c 65  0';.          le
5220: 6e 67 74 68 20 3d 20 77 69 64 74 68 3b 0a 20 20  ngth = width;.  
5230: 20 20 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a 20        }.#endif. 
5240: 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20         break;.  
5250: 20 20 20 20 63 61 73 65 20 65 74 53 49 5a 45 3a      case etSIZE:
5260: 0a 20 20 20 20 20 20 20 20 2a 28 76 61 5f 61 72  .        *(va_ar
5270: 67 28 61 70 2c 69 6e 74 2a 29 29 20 3d 20 63 6f  g(ap,int*)) = co
5280: 75 6e 74 3b 0a 20 20 20 20 20 20 20 20 6c 65 6e  unt;.        len
5290: 67 74 68 20 3d 20 77 69 64 74 68 20 3d 20 30 3b  gth = width = 0;
52a0: 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a  .        break;.
52b0: 20 20 20 20 20 20 63 61 73 65 20 65 74 50 45 52        case etPER
52c0: 43 45 4e 54 3a 0a 20 20 20 20 20 20 20 20 62 75  CENT:.        bu
52d0: 66 5b 30 5d 20 3d 20 27 25 27 3b 0a 20 20 20 20  f[0] = '%';.    
52e0: 20 20 20 20 62 75 66 70 74 20 3d 20 62 75 66 3b      bufpt = buf;
52f0: 0a 20 20 20 20 20 20 20 20 6c 65 6e 67 74 68 20  .        length 
5300: 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 62 72 65  = 1;.        bre
5310: 61 6b 3b 0a 20 20 20 20 20 20 63 61 73 65 20 65  ak;.      case e
5320: 74 43 48 41 52 4c 49 54 3a 0a 20 20 20 20 20 20  tCHARLIT:.      
5330: 63 61 73 65 20 65 74 43 48 41 52 58 3a 0a 20 20  case etCHARX:.  
5340: 20 20 20 20 20 20 63 20 3d 20 62 75 66 5b 30 5d        c = buf[0]
5350: 20 3d 20 28 78 74 79 70 65 3d 3d 65 74 43 48 41   = (xtype==etCHA
5360: 52 58 20 3f 20 76 61 5f 61 72 67 28 61 70 2c 69  RX ? va_arg(ap,i
5370: 6e 74 29 20 3a 20 2a 2b 2b 66 6d 74 29 3b 0a 20  nt) : *++fmt);. 
5380: 20 20 20 20 20 20 20 69 66 28 20 70 72 65 63 69         if( preci
5390: 73 69 6f 6e 3e 3d 30 20 29 7b 0a 20 20 20 20 20  sion>=0 ){.     
53a0: 20 20 20 20 20 66 6f 72 28 69 64 78 3d 31 3b 20       for(idx=1; 
53b0: 69 64 78 3c 70 72 65 63 69 73 69 6f 6e 3b 20 69  idx<precision; i
53c0: 64 78 2b 2b 29 20 62 75 66 5b 69 64 78 5d 20 3d  dx++) buf[idx] =
53d0: 20 63 3b 0a 20 20 20 20 20 20 20 20 20 20 6c 65   c;.          le
53e0: 6e 67 74 68 20 3d 20 70 72 65 63 69 73 69 6f 6e  ngth = precision
53f0: 3b 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 65 7b  ;.        }else{
5400: 0a 20 20 20 20 20 20 20 20 20 20 6c 65 6e 67 74  .          lengt
5410: 68 20 3d 31 3b 0a 20 20 20 20 20 20 20 20 7d 0a  h =1;.        }.
5420: 20 20 20 20 20 20 20 20 62 75 66 70 74 20 3d 20          bufpt = 
5430: 62 75 66 3b 0a 20 20 20 20 20 20 20 20 62 72 65  buf;.        bre
5440: 61 6b 3b 0a 20 20 20 20 20 20 63 61 73 65 20 65  ak;.      case e
5450: 74 53 54 52 49 4e 47 3a 0a 20 20 20 20 20 20 63  tSTRING:.      c
5460: 61 73 65 20 65 74 44 59 4e 53 54 52 49 4e 47 3a  ase etDYNSTRING:
5470: 0a 20 20 20 20 20 20 20 20 62 75 66 70 74 20 3d  .        bufpt =
5480: 20 76 61 5f 61 72 67 28 61 70 2c 63 68 61 72 2a   va_arg(ap,char*
5490: 29 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 62  );.        if( b
54a0: 75 66 70 74 3d 3d 30 20 29 7b 0a 20 20 20 20 20  ufpt==0 ){.     
54b0: 20 20 20 20 20 62 75 66 70 74 20 3d 20 22 22 3b       bufpt = "";
54c0: 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 65 20 69  .        }else i
54d0: 66 28 20 78 74 79 70 65 3d 3d 65 74 44 59 4e 53  f( xtype==etDYNS
54e0: 54 52 49 4e 47 20 29 7b 0a 20 20 20 20 20 20 20  TRING ){.       
54f0: 20 20 20 7a 45 78 74 72 61 20 3d 20 62 75 66 70     zExtra = bufp
5500: 74 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20  t;.        }.   
5510: 20 20 20 20 20 6c 65 6e 67 74 68 20 3d 20 73 74       length = st
5520: 72 6c 65 6e 28 62 75 66 70 74 29 3b 0a 20 20 20  rlen(bufpt);.   
5530: 20 20 20 20 20 69 66 28 20 70 72 65 63 69 73 69       if( precisi
5540: 6f 6e 3e 3d 30 20 26 26 20 70 72 65 63 69 73 69  on>=0 && precisi
5550: 6f 6e 3c 6c 65 6e 67 74 68 20 29 20 6c 65 6e 67  on<length ) leng
5560: 74 68 20 3d 20 70 72 65 63 69 73 69 6f 6e 3b 0a  th = precision;.
5570: 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20          break;. 
5580: 20 20 20 20 20 63 61 73 65 20 65 74 53 51 4c 45       case etSQLE
5590: 53 43 41 50 45 3a 0a 20 20 20 20 20 20 63 61 73  SCAPE:.      cas
55a0: 65 20 65 74 53 51 4c 45 53 43 41 50 45 32 3a 0a  e etSQLESCAPE2:.
55b0: 20 20 20 20 20 20 20 20 7b 0a 20 20 20 20 20 20          {.      
55c0: 20 20 20 20 69 6e 74 20 69 2c 20 6a 2c 20 6e 2c      int i, j, n,
55d0: 20 63 2c 20 69 73 6e 75 6c 6c 3b 0a 20 20 20 20   c, isnull;.    
55e0: 20 20 20 20 20 20 63 68 61 72 20 2a 61 72 67 20        char *arg 
55f0: 3d 20 76 61 5f 61 72 67 28 61 70 2c 63 68 61 72  = va_arg(ap,char
5600: 2a 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69 73  *);.          is
5610: 6e 75 6c 6c 20 3d 20 61 72 67 3d 3d 30 3b 0a 20  null = arg==0;. 
5620: 20 20 20 20 20 20 20 20 20 69 66 28 20 69 73 6e           if( isn
5630: 75 6c 6c 20 29 20 61 72 67 20 3d 20 28 78 74 79  ull ) arg = (xty
5640: 70 65 3d 3d 65 74 53 51 4c 45 53 43 41 50 45 32  pe==etSQLESCAPE2
5650: 20 3f 20 22 4e 55 4c 4c 22 20 3a 20 22 28 4e 55   ? "NULL" : "(NU
5660: 4c 4c 29 22 29 3b 0a 20 20 20 20 20 20 20 20 20  LL)");.         
5670: 20 66 6f 72 28 69 3d 6e 3d 30 3b 20 28 63 3d 61   for(i=n=0; (c=a
5680: 72 67 5b 69 5d 29 21 3d 30 3b 20 69 2b 2b 29 7b  rg[i])!=0; i++){
5690: 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 28  .            if(
56a0: 20 63 3d 3d 27 5c 27 27 20 29 20 20 6e 2b 2b 3b   c=='\'' )  n++;
56b0: 0a 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20  .          }.   
56c0: 20 20 20 20 20 20 20 6e 20 2b 3d 20 69 20 2b 20         n += i + 
56d0: 31 20 2b 20 28 28 21 69 73 6e 75 6c 6c 20 26 26  1 + ((!isnull &&
56e0: 20 78 74 79 70 65 3d 3d 65 74 53 51 4c 45 53 43   xtype==etSQLESC
56f0: 41 50 45 32 29 20 3f 20 32 20 3a 20 30 29 3b 0a  APE2) ? 2 : 0);.
5700: 20 20 20 20 20 20 20 20 20 20 69 66 28 20 6e 3e            if( n>
5710: 65 74 42 55 46 53 49 5a 45 20 29 7b 0a 20 20 20  etBUFSIZE ){.   
5720: 20 20 20 20 20 20 20 20 20 62 75 66 70 74 20 3d           bufpt =
5730: 20 7a 45 78 74 72 61 20 3d 20 73 71 6c 69 74 65   zExtra = sqlite
5740: 4d 61 6c 6c 6f 63 28 20 6e 20 29 3b 0a 20 20 20  Malloc( n );.   
5750: 20 20 20 20 20 20 20 20 20 69 66 28 20 62 75 66           if( buf
5760: 70 74 3d 3d 30 20 29 20 72 65 74 75 72 6e 20 2d  pt==0 ) return -
5770: 31 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 65 6c  1;.          }el
5780: 73 65 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20  se{.            
5790: 62 75 66 70 74 20 3d 20 62 75 66 3b 0a 20 20 20  bufpt = buf;.   
57a0: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20         }.       
57b0: 20 20 20 6a 20 3d 20 30 3b 0a 20 20 20 20 20 20     j = 0;.      
57c0: 20 20 20 20 69 66 28 20 21 69 73 6e 75 6c 6c 20      if( !isnull 
57d0: 26 26 20 78 74 79 70 65 3d 3d 65 74 53 51 4c 45  && xtype==etSQLE
57e0: 53 43 41 50 45 32 20 29 20 62 75 66 70 74 5b 6a  SCAPE2 ) bufpt[j
57f0: 2b 2b 5d 20 3d 20 27 5c 27 27 3b 0a 20 20 20 20  ++] = '\'';.    
5800: 20 20 20 20 20 20 66 6f 72 28 69 3d 30 3b 20 28        for(i=0; (
5810: 63 3d 61 72 67 5b 69 5d 29 21 3d 30 3b 20 69 2b  c=arg[i])!=0; i+
5820: 2b 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20  +){.            
5830: 62 75 66 70 74 5b 6a 2b 2b 5d 20 3d 20 63 3b 0a  bufpt[j++] = c;.
5840: 20 20 20 20 20 20 20 20 20 20 20 20 69 66 28 20              if( 
5850: 63 3d 3d 27 5c 27 27 20 29 20 62 75 66 70 74 5b  c=='\'' ) bufpt[
5860: 6a 2b 2b 5d 20 3d 20 63 3b 0a 20 20 20 20 20 20  j++] = c;.      
5870: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20      }.          
5880: 69 66 28 20 21 69 73 6e 75 6c 6c 20 26 26 20 78  if( !isnull && x
5890: 74 79 70 65 3d 3d 65 74 53 51 4c 45 53 43 41 50  type==etSQLESCAP
58a0: 45 32 20 29 20 62 75 66 70 74 5b 6a 2b 2b 5d 20  E2 ) bufpt[j++] 
58b0: 3d 20 27 5c 27 27 3b 0a 20 20 20 20 20 20 20 20  = '\'';.        
58c0: 20 20 62 75 66 70 74 5b 6a 5d 20 3d 20 30 3b 0a    bufpt[j] = 0;.
58d0: 20 20 20 20 20 20 20 20 20 20 6c 65 6e 67 74 68            length
58e0: 20 3d 20 6a 3b 0a 20 20 20 20 20 20 20 20 20 20   = j;.          
58f0: 69 66 28 20 70 72 65 63 69 73 69 6f 6e 3e 3d 30  if( precision>=0
5900: 20 26 26 20 70 72 65 63 69 73 69 6f 6e 3c 6c 65   && precision<le
5910: 6e 67 74 68 20 29 20 6c 65 6e 67 74 68 20 3d 20  ngth ) length = 
5920: 70 72 65 63 69 73 69 6f 6e 3b 0a 20 20 20 20 20  precision;.     
5930: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 62 72 65     }.        bre
5940: 61 6b 3b 0a 20 20 20 20 20 20 63 61 73 65 20 65  ak;.      case e
5950: 74 45 52 52 4f 52 3a 0a 20 20 20 20 20 20 20 20  tERROR:.        
5960: 62 75 66 5b 30 5d 20 3d 20 27 25 27 3b 0a 20 20  buf[0] = '%';.  
5970: 20 20 20 20 20 20 62 75 66 5b 31 5d 20 3d 20 63        buf[1] = c
5980: 3b 0a 20 20 20 20 20 20 20 20 65 72 72 6f 72 66  ;.        errorf
5990: 6c 61 67 20 3d 20 30 3b 0a 20 20 20 20 20 20 20  lag = 0;.       
59a0: 20 69 64 78 20 3d 20 31 2b 28 63 21 3d 30 29 3b   idx = 1+(c!=0);
59b0: 0a 20 20 20 20 20 20 20 20 28 2a 66 75 6e 63 29  .        (*func)
59c0: 28 61 72 67 2c 22 25 22 2c 69 64 78 29 3b 0a 20  (arg,"%",idx);. 
59d0: 20 20 20 20 20 20 20 63 6f 75 6e 74 20 2b 3d 20         count += 
59e0: 69 64 78 3b 0a 20 20 20 20 20 20 20 20 69 66 28  idx;.        if(
59f0: 20 63 3d 3d 30 20 29 20 66 6d 74 2d 2d 3b 0a 20   c==0 ) fmt--;. 
5a00: 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20         break;.  
5a10: 20 20 7d 2f 2a 20 45 6e 64 20 73 77 69 74 63 68    }/* End switch
5a20: 20 6f 76 65 72 20 74 68 65 20 66 6f 72 6d 61 74   over the format
5a30: 20 74 79 70 65 20 2a 2f 0a 20 20 20 20 2f 2a 0a   type */.    /*.
5a40: 20 20 20 20 2a 2a 20 54 68 65 20 74 65 78 74 20      ** The text 
5a50: 6f 66 20 74 68 65 20 63 6f 6e 76 65 72 73 69 6f  of the conversio
5a60: 6e 20 69 73 20 70 6f 69 6e 74 65 64 20 74 6f 20  n is pointed to 
5a70: 62 79 20 22 62 75 66 70 74 22 20 61 6e 64 20 69  by "bufpt" and i
5a80: 73 0a 20 20 20 20 2a 2a 20 22 6c 65 6e 67 74 68  s.    ** "length
5a90: 22 20 63 68 61 72 61 63 74 65 72 73 20 6c 6f 6e  " characters lon
5aa0: 67 2e 20 20 54 68 65 20 66 69 65 6c 64 20 77 69  g.  The field wi
5ab0: 64 74 68 20 69 73 20 22 77 69 64 74 68 22 2e 20  dth is "width". 
5ac0: 20 44 6f 0a 20 20 20 20 2a 2a 20 74 68 65 20 6f   Do.    ** the o
5ad0: 75 74 70 75 74 2e 0a 20 20 20 20 2a 2f 0a 20 20  utput..    */.  
5ae0: 20 20 69 66 28 20 21 66 6c 61 67 5f 6c 65 66 74    if( !flag_left
5af0: 6a 75 73 74 69 66 79 20 29 7b 0a 20 20 20 20 20  justify ){.     
5b00: 20 72 65 67 69 73 74 65 72 20 69 6e 74 20 6e 73   register int ns
5b10: 70 61 63 65 3b 0a 20 20 20 20 20 20 6e 73 70 61  pace;.      nspa
5b20: 63 65 20 3d 20 77 69 64 74 68 2d 6c 65 6e 67 74  ce = width-lengt
5b30: 68 3b 0a 20 20 20 20 20 20 69 66 28 20 6e 73 70  h;.      if( nsp
5b40: 61 63 65 3e 30 20 29 7b 0a 20 20 20 20 20 20 20  ace>0 ){.       
5b50: 20 69 66 28 20 66 6c 61 67 5f 63 65 6e 74 65 72   if( flag_center
5b60: 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 6e 73   ){.          ns
5b70: 70 61 63 65 20 3d 20 6e 73 70 61 63 65 2f 32 3b  pace = nspace/2;
5b80: 0a 20 20 20 20 20 20 20 20 20 20 77 69 64 74 68  .          width
5b90: 20 2d 3d 20 6e 73 70 61 63 65 3b 0a 20 20 20 20   -= nspace;.    
5ba0: 20 20 20 20 20 20 66 6c 61 67 5f 6c 65 66 74 6a        flag_leftj
5bb0: 75 73 74 69 66 79 20 3d 20 31 3b 0a 20 20 20 20  ustify = 1;.    
5bc0: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 63 6f      }.        co
5bd0: 75 6e 74 20 2b 3d 20 6e 73 70 61 63 65 3b 0a 20  unt += nspace;. 
5be0: 20 20 20 20 20 20 20 77 68 69 6c 65 28 20 6e 73         while( ns
5bf0: 70 61 63 65 3e 3d 65 74 53 50 41 43 45 53 49 5a  pace>=etSPACESIZ
5c00: 45 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 28  E ){.          (
5c10: 2a 66 75 6e 63 29 28 61 72 67 2c 73 70 61 63 65  *func)(arg,space
5c20: 73 2c 65 74 53 50 41 43 45 53 49 5a 45 29 3b 0a  s,etSPACESIZE);.
5c30: 20 20 20 20 20 20 20 20 20 20 6e 73 70 61 63 65            nspace
5c40: 20 2d 3d 20 65 74 53 50 41 43 45 53 49 5a 45 3b   -= etSPACESIZE;
5c50: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20  .        }.     
5c60: 20 20 20 69 66 28 20 6e 73 70 61 63 65 3e 30 20     if( nspace>0 
5c70: 29 20 28 2a 66 75 6e 63 29 28 61 72 67 2c 73 70  ) (*func)(arg,sp
5c80: 61 63 65 73 2c 6e 73 70 61 63 65 29 3b 0a 20 20  aces,nspace);.  
5c90: 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20      }.    }.    
5ca0: 69 66 28 20 6c 65 6e 67 74 68 3e 30 20 29 7b 0a  if( length>0 ){.
5cb0: 20 20 20 20 20 20 28 2a 66 75 6e 63 29 28 61 72        (*func)(ar
5cc0: 67 2c 62 75 66 70 74 2c 6c 65 6e 67 74 68 29 3b  g,bufpt,length);
5cd0: 0a 20 20 20 20 20 20 63 6f 75 6e 74 20 2b 3d 20  .      count += 
5ce0: 6c 65 6e 67 74 68 3b 0a 20 20 20 20 7d 0a 20 20  length;.    }.  
5cf0: 20 20 69 66 28 20 66 6c 61 67 5f 6c 65 66 74 6a    if( flag_leftj
5d00: 75 73 74 69 66 79 20 29 7b 0a 20 20 20 20 20 20  ustify ){.      
5d10: 72 65 67 69 73 74 65 72 20 69 6e 74 20 6e 73 70  register int nsp
5d20: 61 63 65 3b 0a 20 20 20 20 20 20 6e 73 70 61 63  ace;.      nspac
5d30: 65 20 3d 20 77 69 64 74 68 2d 6c 65 6e 67 74 68  e = width-length
5d40: 3b 0a 20 20 20 20 20 20 69 66 28 20 6e 73 70 61  ;.      if( nspa
5d50: 63 65 3e 30 20 29 7b 0a 20 20 20 20 20 20 20 20  ce>0 ){.        
5d60: 63 6f 75 6e 74 20 2b 3d 20 6e 73 70 61 63 65 3b  count += nspace;
5d70: 0a 20 20 20 20 20 20 20 20 77 68 69 6c 65 28 20  .        while( 
5d80: 6e 73 70 61 63 65 3e 3d 65 74 53 50 41 43 45 53  nspace>=etSPACES
5d90: 49 5a 45 20 29 7b 0a 20 20 20 20 20 20 20 20 20  IZE ){.         
5da0: 20 28 2a 66 75 6e 63 29 28 61 72 67 2c 73 70 61   (*func)(arg,spa
5db0: 63 65 73 2c 65 74 53 50 41 43 45 53 49 5a 45 29  ces,etSPACESIZE)
5dc0: 3b 0a 20 20 20 20 20 20 20 20 20 20 6e 73 70 61  ;.          nspa
5dd0: 63 65 20 2d 3d 20 65 74 53 50 41 43 45 53 49 5a  ce -= etSPACESIZ
5de0: 45 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20  E;.        }.   
5df0: 20 20 20 20 20 69 66 28 20 6e 73 70 61 63 65 3e       if( nspace>
5e00: 30 20 29 20 28 2a 66 75 6e 63 29 28 61 72 67 2c  0 ) (*func)(arg,
5e10: 73 70 61 63 65 73 2c 6e 73 70 61 63 65 29 3b 0a  spaces,nspace);.
5e20: 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20        }.    }.  
5e30: 20 20 69 66 28 20 7a 45 78 74 72 61 20 29 7b 0a    if( zExtra ){.
5e40: 20 20 20 20 20 20 69 66 28 20 78 74 79 70 65 3d        if( xtype=
5e50: 3d 65 74 44 59 4e 53 54 52 49 4e 47 20 29 7b 0a  =etDYNSTRING ){.
5e60: 20 20 20 20 20 20 20 20 66 72 65 65 28 7a 45 78          free(zEx
5e70: 74 72 61 29 3b 0a 20 20 20 20 20 20 7d 65 6c 73  tra);.      }els
5e80: 65 7b 0a 20 20 20 20 20 20 20 20 73 71 6c 69 74  e{.        sqlit
5e90: 65 46 72 65 65 28 7a 45 78 74 72 61 29 3b 0a 20  eFree(zExtra);. 
5ea0: 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 7d       }.    }.  }
5eb0: 2f 2a 20 45 6e 64 20 66 6f 72 20 6c 6f 6f 70 20  /* End for loop 
5ec0: 6f 76 65 72 20 74 68 65 20 66 6f 72 6d 61 74 20  over the format 
5ed0: 73 74 72 69 6e 67 20 2a 2f 0a 20 20 72 65 74 75  string */.  retu
5ee0: 72 6e 20 65 72 72 6f 72 66 6c 61 67 20 3f 20 2d  rn errorflag ? -
5ef0: 31 20 3a 20 63 6f 75 6e 74 3b 0a 7d 20 2f 2a 20  1 : count;.} /* 
5f00: 45 6e 64 20 6f 66 20 66 75 6e 63 74 69 6f 6e 20  End of function 
5f10: 2a 2f 0a 0a 0a 2f 2a 20 54 68 69 73 20 73 74 72  */.../* This str
5f20: 75 63 74 75 72 65 20 69 73 20 75 73 65 64 20 74  ucture is used t
5f30: 6f 20 73 74 6f 72 65 20 73 74 61 74 65 20 69 6e  o store state in
5f40: 66 6f 72 6d 61 74 69 6f 6e 20 61 62 6f 75 74 20  formation about 
5f50: 74 68 65 0a 2a 2a 20 77 72 69 74 65 20 74 6f 20  the.** write to 
5f60: 6d 65 6d 6f 72 79 20 74 68 61 74 20 69 73 20 63  memory that is c
5f70: 75 72 72 65 6e 74 6c 79 20 69 6e 20 70 72 6f 67  urrently in prog
5f80: 72 65 73 73 2e 0a 2a 2f 0a 73 74 72 75 63 74 20  ress..*/.struct 
5f90: 73 67 4d 70 72 69 6e 74 66 20 7b 0a 20 20 63 68  sgMprintf {.  ch
5fa0: 61 72 20 2a 7a 42 61 73 65 3b 20 20 20 20 20 2f  ar *zBase;     /
5fb0: 2a 20 41 20 62 61 73 65 20 61 6c 6c 6f 63 61 74  * A base allocat
5fc0: 69 6f 6e 20 2a 2f 0a 20 20 63 68 61 72 20 2a 7a  ion */.  char *z
5fd0: 54 65 78 74 3b 20 20 20 20 20 2f 2a 20 54 68 65  Text;     /* The
5fe0: 20 73 74 72 69 6e 67 20 63 6f 6c 6c 65 63 74 65   string collecte
5ff0: 64 20 73 6f 20 66 61 72 20 2a 2f 0a 20 20 69 6e  d so far */.  in
6000: 74 20 20 6e 43 68 61 72 3b 20 20 20 20 20 20 2f  t  nChar;      /
6010: 2a 20 4c 65 6e 67 74 68 20 6f 66 20 74 68 65 20  * Length of the 
6020: 73 74 72 69 6e 67 20 73 6f 20 66 61 72 20 2a 2f  string so far */
6030: 0a 20 20 69 6e 74 20 20 6e 41 6c 6c 6f 63 3b 20  .  int  nAlloc; 
6040: 20 20 20 20 2f 2a 20 41 6d 6f 75 6e 74 20 6f 66      /* Amount of
6050: 20 73 70 61 63 65 20 61 6c 6c 6f 63 61 74 65 64   space allocated
6060: 20 69 6e 20 7a 54 65 78 74 20 2a 2f 0a 7d 3b 0a   in zText */.};.
6070: 0a 2f 2a 20 0a 2a 2a 20 54 68 69 73 20 66 75 6e  ./* .** This fun
6080: 63 74 69 6f 6e 20 69 6d 70 6c 65 6d 65 6e 74 73  ction implements
6090: 20 74 68 65 20 63 61 6c 6c 62 61 63 6b 20 66 72   the callback fr
60a0: 6f 6d 20 76 78 70 72 69 6e 74 66 2e 20 0a 2a 2a  om vxprintf. .**
60b0: 0a 2a 2a 20 54 68 69 73 20 72 6f 75 74 69 6e 65  .** This routine
60c0: 20 61 64 64 20 6e 4e 65 77 43 68 61 72 20 63 68   add nNewChar ch
60d0: 61 72 61 63 74 65 72 73 20 6f 66 20 74 65 78 74  aracters of text
60e0: 20 69 6e 20 7a 4e 65 77 54 65 78 74 20 74 6f 0a   in zNewText to.
60f0: 2a 2a 20 74 68 65 20 73 67 4d 70 72 69 6e 74 66  ** the sgMprintf
6100: 20 73 74 72 75 63 74 75 72 65 20 70 6f 69 6e 74   structure point
6110: 65 64 20 74 6f 20 62 79 20 22 61 72 67 22 2e 0a  ed to by "arg"..
6120: 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 6d  */.static void m
6130: 6f 75 74 28 76 6f 69 64 20 2a 61 72 67 2c 20 63  out(void *arg, c
6140: 68 61 72 20 2a 7a 4e 65 77 54 65 78 74 2c 20 69  har *zNewText, i
6150: 6e 74 20 6e 4e 65 77 43 68 61 72 29 7b 0a 20 20  nt nNewChar){.  
6160: 73 74 72 75 63 74 20 73 67 4d 70 72 69 6e 74 66  struct sgMprintf
6170: 20 2a 70 4d 20 3d 20 28 73 74 72 75 63 74 20 73   *pM = (struct s
6180: 67 4d 70 72 69 6e 74 66 2a 29 61 72 67 3b 0a 20  gMprintf*)arg;. 
6190: 20 69 66 28 20 70 4d 2d 3e 6e 43 68 61 72 20 2b   if( pM->nChar +
61a0: 20 6e 4e 65 77 43 68 61 72 20 2b 20 31 20 3e 20   nNewChar + 1 > 
61b0: 70 4d 2d 3e 6e 41 6c 6c 6f 63 20 29 7b 0a 20 20  pM->nAlloc ){.  
61c0: 20 20 70 4d 2d 3e 6e 41 6c 6c 6f 63 20 3d 20 70    pM->nAlloc = p
61d0: 4d 2d 3e 6e 43 68 61 72 20 2b 20 6e 4e 65 77 43  M->nChar + nNewC
61e0: 68 61 72 2a 32 20 2b 20 31 3b 0a 20 20 20 20 69  har*2 + 1;.    i
61f0: 66 28 20 70 4d 2d 3e 7a 54 65 78 74 3d 3d 70 4d  f( pM->zText==pM
6200: 2d 3e 7a 42 61 73 65 20 29 7b 0a 20 20 20 20 20  ->zBase ){.     
6210: 20 70 4d 2d 3e 7a 54 65 78 74 20 3d 20 73 71 6c   pM->zText = sql
6220: 69 74 65 4d 61 6c 6c 6f 63 28 70 4d 2d 3e 6e 41  iteMalloc(pM->nA
6230: 6c 6c 6f 63 29 3b 0a 20 20 20 20 20 20 69 66 28  lloc);.      if(
6240: 20 70 4d 2d 3e 7a 54 65 78 74 20 26 26 20 70 4d   pM->zText && pM
6250: 2d 3e 6e 43 68 61 72 20 29 20 6d 65 6d 63 70 79  ->nChar ) memcpy
6260: 28 70 4d 2d 3e 7a 54 65 78 74 2c 70 4d 2d 3e 7a  (pM->zText,pM->z
6270: 42 61 73 65 2c 70 4d 2d 3e 6e 43 68 61 72 29 3b  Base,pM->nChar);
6280: 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20  .    }else{.    
6290: 20 20 63 68 61 72 20 2a 7a 20 3d 20 73 71 6c 69    char *z = sqli
62a0: 74 65 52 65 61 6c 6c 6f 63 28 70 4d 2d 3e 7a 54  teRealloc(pM->zT
62b0: 65 78 74 2c 20 70 4d 2d 3e 6e 41 6c 6c 6f 63 29  ext, pM->nAlloc)
62c0: 3b 0a 20 20 20 20 20 20 69 66 28 20 7a 3d 3d 30  ;.      if( z==0
62d0: 20 29 7b 0a 20 20 20 20 20 20 20 20 73 71 6c 69   ){.        sqli
62e0: 74 65 46 72 65 65 28 70 4d 2d 3e 7a 54 65 78 74  teFree(pM->zText
62f0: 29 3b 0a 20 20 20 20 20 20 20 20 70 4d 2d 3e 6e  );.        pM->n
6300: 43 68 61 72 20 3d 20 30 3b 0a 20 20 20 20 20 20  Char = 0;.      
6310: 20 20 70 4d 2d 3e 6e 41 6c 6c 6f 63 20 3d 20 30    pM->nAlloc = 0
6320: 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20  ;.      }.      
6330: 70 4d 2d 3e 7a 54 65 78 74 20 3d 20 7a 3b 0a 20  pM->zText = z;. 
6340: 20 20 20 7d 0a 20 20 7d 0a 20 20 69 66 28 20 70     }.  }.  if( p
6350: 4d 2d 3e 7a 54 65 78 74 20 29 7b 0a 20 20 20 20  M->zText ){.    
6360: 6d 65 6d 63 70 79 28 26 70 4d 2d 3e 7a 54 65 78  memcpy(&pM->zTex
6370: 74 5b 70 4d 2d 3e 6e 43 68 61 72 5d 2c 20 7a 4e  t[pM->nChar], zN
6380: 65 77 54 65 78 74 2c 20 6e 4e 65 77 43 68 61 72  ewText, nNewChar
6390: 29 3b 0a 20 20 20 20 70 4d 2d 3e 6e 43 68 61 72  );.    pM->nChar
63a0: 20 2b 3d 20 6e 4e 65 77 43 68 61 72 3b 0a 20 20   += nNewChar;.  
63b0: 20 20 70 4d 2d 3e 7a 54 65 78 74 5b 70 4d 2d 3e    pM->zText[pM->
63c0: 6e 43 68 61 72 5d 20 3d 20 30 3b 0a 20 20 7d 0a  nChar] = 0;.  }.
63d0: 7d 0a 0a 2f 2a 0a 2a 2a 20 73 71 6c 69 74 65 5f  }../*.** sqlite_
63e0: 6d 70 72 69 6e 74 66 28 29 20 77 6f 72 6b 73 20  mprintf() works 
63f0: 6c 69 6b 65 20 70 72 69 6e 74 66 28 29 2c 20 62  like printf(), b
6400: 75 74 20 61 6c 6c 6f 63 61 74 69 6f 6e 73 20 6d  ut allocations m
6410: 65 6d 6f 72 79 20 74 6f 20 68 6f 6c 64 20 74 68  emory to hold th
6420: 65 0a 2a 2a 20 72 65 73 75 6c 74 69 6e 67 20 73  e.** resulting s
6430: 74 72 69 6e 67 20 61 6e 64 20 72 65 74 75 72 6e  tring and return
6440: 73 20 61 20 70 6f 69 6e 74 65 72 20 74 6f 20 74  s a pointer to t
6450: 68 65 20 61 6c 6c 6f 63 61 74 65 64 20 6d 65 6d  he allocated mem
6460: 6f 72 79 2e 20 20 55 73 65 0a 2a 2a 20 73 71 6c  ory.  Use.** sql
6470: 69 74 65 46 72 65 65 28 29 20 74 6f 20 72 65 6c  iteFree() to rel
6480: 65 61 73 65 20 74 68 65 20 6d 65 6d 6f 72 79 20  ease the memory 
6490: 61 6c 6c 6f 63 61 74 65 64 2e 0a 2a 2f 0a 63 68  allocated..*/.ch
64a0: 61 72 20 2a 73 71 6c 69 74 65 4d 50 72 69 6e 74  ar *sqliteMPrint
64b0: 66 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46  f(const char *zF
64c0: 6f 72 6d 61 74 2c 20 2e 2e 2e 29 7b 0a 20 20 76  ormat, ...){.  v
64d0: 61 5f 6c 69 73 74 20 61 70 3b 0a 20 20 73 74 72  a_list ap;.  str
64e0: 75 63 74 20 73 67 4d 70 72 69 6e 74 66 20 73 4d  uct sgMprintf sM
64f0: 70 72 69 6e 74 66 3b 0a 20 20 63 68 61 72 20 7a  printf;.  char z
6500: 42 75 66 5b 32 30 30 5d 3b 0a 0a 20 20 73 4d 70  Buf[200];..  sMp
6510: 72 69 6e 74 66 2e 6e 43 68 61 72 20 3d 20 30 3b  rintf.nChar = 0;
6520: 0a 20 20 73 4d 70 72 69 6e 74 66 2e 6e 41 6c 6c  .  sMprintf.nAll
6530: 6f 63 20 3d 20 73 69 7a 65 6f 66 28 7a 42 75 66  oc = sizeof(zBuf
6540: 29 3b 0a 20 20 73 4d 70 72 69 6e 74 66 2e 7a 54  );.  sMprintf.zT
6550: 65 78 74 20 3d 20 7a 42 75 66 3b 0a 20 20 73 4d  ext = zBuf;.  sM
6560: 70 72 69 6e 74 66 2e 7a 42 61 73 65 20 3d 20 7a  printf.zBase = z
6570: 42 75 66 3b 0a 20 20 76 61 5f 73 74 61 72 74 28  Buf;.  va_start(
6580: 61 70 2c 7a 46 6f 72 6d 61 74 29 3b 0a 20 20 76  ap,zFormat);.  v
6590: 78 70 72 69 6e 74 66 28 6d 6f 75 74 2c 26 73 4d  xprintf(mout,&sM
65a0: 70 72 69 6e 74 66 2c 7a 46 6f 72 6d 61 74 2c 61  printf,zFormat,a
65b0: 70 29 3b 0a 20 20 76 61 5f 65 6e 64 28 61 70 29  p);.  va_end(ap)
65c0: 3b 0a 20 20 73 4d 70 72 69 6e 74 66 2e 7a 54 65  ;.  sMprintf.zTe
65d0: 78 74 5b 73 4d 70 72 69 6e 74 66 2e 6e 43 68 61  xt[sMprintf.nCha
65e0: 72 5d 20 3d 20 30 3b 0a 20 20 72 65 74 75 72 6e  r] = 0;.  return
65f0: 20 73 71 6c 69 74 65 52 65 61 6c 6c 6f 63 28 73   sqliteRealloc(s
6600: 4d 70 72 69 6e 74 66 2e 7a 54 65 78 74 2c 20 73  Mprintf.zText, s
6610: 4d 70 72 69 6e 74 66 2e 6e 43 68 61 72 2b 31 29  Mprintf.nChar+1)
6620: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 73 71 6c 69 74  ;.}../*.** sqlit
6630: 65 5f 6d 70 72 69 6e 74 66 28 29 20 77 6f 72 6b  e_mprintf() work
6640: 73 20 6c 69 6b 65 20 70 72 69 6e 74 66 28 29 2c  s like printf(),
6650: 20 62 75 74 20 61 6c 6c 6f 63 61 74 69 6f 6e 73   but allocations
6660: 20 6d 65 6d 6f 72 79 20 74 6f 20 68 6f 6c 64 20   memory to hold 
6670: 74 68 65 0a 2a 2a 20 72 65 73 75 6c 74 69 6e 67  the.** resulting
6680: 20 73 74 72 69 6e 67 20 61 6e 64 20 72 65 74 75   string and retu
6690: 72 6e 73 20 61 20 70 6f 69 6e 74 65 72 20 74 6f  rns a pointer to
66a0: 20 74 68 65 20 61 6c 6c 6f 63 61 74 65 64 20 6d   the allocated m
66b0: 65 6d 6f 72 79 2e 20 20 55 73 65 0a 2a 2a 20 73  emory.  Use.** s
66c0: 71 6c 69 74 65 46 72 65 65 28 29 20 74 6f 20 72  qliteFree() to r
66d0: 65 6c 65 61 73 65 20 74 68 65 20 6d 65 6d 6f 72  elease the memor
66e0: 79 20 61 6c 6c 6f 63 61 74 65 64 2e 0a 2a 2f 0a  y allocated..*/.
66f0: 63 68 61 72 20 2a 73 71 6c 69 74 65 5f 6d 70 72  char *sqlite_mpr
6700: 69 6e 74 66 28 63 6f 6e 73 74 20 63 68 61 72 20  intf(const char 
6710: 2a 7a 46 6f 72 6d 61 74 2c 20 2e 2e 2e 29 7b 0a  *zFormat, ...){.
6720: 20 20 76 61 5f 6c 69 73 74 20 61 70 3b 0a 20 20    va_list ap;.  
6730: 73 74 72 75 63 74 20 73 67 4d 70 72 69 6e 74 66  struct sgMprintf
6740: 20 73 4d 70 72 69 6e 74 66 3b 0a 20 20 63 68 61   sMprintf;.  cha
6750: 72 20 2a 7a 4e 65 77 3b 0a 20 20 63 68 61 72 20  r *zNew;.  char 
6760: 7a 42 75 66 5b 32 30 30 5d 3b 0a 0a 20 20 73 4d  zBuf[200];..  sM
6770: 70 72 69 6e 74 66 2e 6e 43 68 61 72 20 3d 20 30  printf.nChar = 0
6780: 3b 0a 20 20 73 4d 70 72 69 6e 74 66 2e 6e 41 6c  ;.  sMprintf.nAl
6790: 6c 6f 63 20 3d 20 73 69 7a 65 6f 66 28 7a 42 75  loc = sizeof(zBu
67a0: 66 29 3b 0a 20 20 73 4d 70 72 69 6e 74 66 2e 7a  f);.  sMprintf.z
67b0: 54 65 78 74 20 3d 20 7a 42 75 66 3b 0a 20 20 73  Text = zBuf;.  s
67c0: 4d 70 72 69 6e 74 66 2e 7a 42 61 73 65 20 3d 20  Mprintf.zBase = 
67d0: 7a 42 75 66 3b 0a 20 20 76 61 5f 73 74 61 72 74  zBuf;.  va_start
67e0: 28 61 70 2c 7a 46 6f 72 6d 61 74 29 3b 0a 20 20  (ap,zFormat);.  
67f0: 76 78 70 72 69 6e 74 66 28 6d 6f 75 74 2c 26 73  vxprintf(mout,&s
6800: 4d 70 72 69 6e 74 66 2c 7a 46 6f 72 6d 61 74 2c  Mprintf,zFormat,
6810: 61 70 29 3b 0a 20 20 76 61 5f 65 6e 64 28 61 70  ap);.  va_end(ap
6820: 29 3b 0a 20 20 73 4d 70 72 69 6e 74 66 2e 7a 54  );.  sMprintf.zT
6830: 65 78 74 5b 73 4d 70 72 69 6e 74 66 2e 6e 43 68  ext[sMprintf.nCh
6840: 61 72 5d 20 3d 20 30 3b 0a 20 20 7a 4e 65 77 20  ar] = 0;.  zNew 
6850: 3d 20 6d 61 6c 6c 6f 63 28 20 73 4d 70 72 69 6e  = malloc( sMprin
6860: 74 66 2e 6e 43 68 61 72 2b 31 20 29 3b 0a 20 20  tf.nChar+1 );.  
6870: 69 66 28 20 7a 4e 65 77 20 29 20 73 74 72 63 70  if( zNew ) strcp
6880: 79 28 7a 4e 65 77 2c 73 4d 70 72 69 6e 74 66 2e  y(zNew,sMprintf.
6890: 7a 54 65 78 74 29 3b 0a 20 20 69 66 28 20 73 4d  zText);.  if( sM
68a0: 70 72 69 6e 74 66 2e 7a 54 65 78 74 21 3d 73 4d  printf.zText!=sM
68b0: 70 72 69 6e 74 66 2e 7a 42 61 73 65 20 29 7b 0a  printf.zBase ){.
68c0: 20 20 20 20 73 71 6c 69 74 65 46 72 65 65 28 73      sqliteFree(s
68d0: 4d 70 72 69 6e 74 66 2e 7a 54 65 78 74 29 3b 0a  Mprintf.zText);.
68e0: 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 7a 4e 65    }.  return zNe
68f0: 77 3b 0a 7d 0a 0a 2f 2a 20 54 68 69 73 20 69 73  w;.}../* This is
6900: 20 74 68 65 20 76 61 72 61 72 67 73 20 76 65 72   the varargs ver
6910: 73 69 6f 6e 20 6f 66 20 73 71 6c 69 74 65 5f 6d  sion of sqlite_m
6920: 70 72 69 6e 74 66 2e 20 20 0a 2a 2f 0a 63 68 61  printf.  .*/.cha
6930: 72 20 2a 73 71 6c 69 74 65 5f 76 6d 70 72 69 6e  r *sqlite_vmprin
6940: 74 66 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a  tf(const char *z
6950: 46 6f 72 6d 61 74 2c 20 76 61 5f 6c 69 73 74 20  Format, va_list 
6960: 61 70 29 7b 0a 20 20 73 74 72 75 63 74 20 73 67  ap){.  struct sg
6970: 4d 70 72 69 6e 74 66 20 73 4d 70 72 69 6e 74 66  Mprintf sMprintf
6980: 3b 0a 20 20 63 68 61 72 20 2a 7a 4e 65 77 3b 0a  ;.  char *zNew;.
6990: 20 20 63 68 61 72 20 7a 42 75 66 5b 32 30 30 5d    char zBuf[200]
69a0: 3b 0a 20 20 73 4d 70 72 69 6e 74 66 2e 6e 43 68  ;.  sMprintf.nCh
69b0: 61 72 20 3d 20 30 3b 0a 20 20 73 4d 70 72 69 6e  ar = 0;.  sMprin
69c0: 74 66 2e 7a 54 65 78 74 20 3d 20 7a 42 75 66 3b  tf.zText = zBuf;
69d0: 0a 20 20 73 4d 70 72 69 6e 74 66 2e 6e 41 6c 6c  .  sMprintf.nAll
69e0: 6f 63 20 3d 20 73 69 7a 65 6f 66 28 7a 42 75 66  oc = sizeof(zBuf
69f0: 29 3b 0a 20 20 73 4d 70 72 69 6e 74 66 2e 7a 42  );.  sMprintf.zB
6a00: 61 73 65 20 3d 20 7a 42 75 66 3b 0a 20 20 76 78  ase = zBuf;.  vx
6a10: 70 72 69 6e 74 66 28 6d 6f 75 74 2c 26 73 4d 70  printf(mout,&sMp
6a20: 72 69 6e 74 66 2c 7a 46 6f 72 6d 61 74 2c 61 70  rintf,zFormat,ap
6a30: 29 3b 0a 20 20 73 4d 70 72 69 6e 74 66 2e 7a 54  );.  sMprintf.zT
6a40: 65 78 74 5b 73 4d 70 72 69 6e 74 66 2e 6e 43 68  ext[sMprintf.nCh
6a50: 61 72 5d 20 3d 20 30 3b 0a 20 20 7a 4e 65 77 20  ar] = 0;.  zNew 
6a60: 3d 20 6d 61 6c 6c 6f 63 28 20 73 4d 70 72 69 6e  = malloc( sMprin
6a70: 74 66 2e 6e 43 68 61 72 2b 31 20 29 3b 0a 20 20  tf.nChar+1 );.  
6a80: 69 66 28 20 7a 4e 65 77 20 29 20 73 74 72 63 70  if( zNew ) strcp
6a90: 79 28 7a 4e 65 77 2c 73 4d 70 72 69 6e 74 66 2e  y(zNew,sMprintf.
6aa0: 7a 54 65 78 74 29 3b 0a 20 20 69 66 28 20 73 4d  zText);.  if( sM
6ab0: 70 72 69 6e 74 66 2e 7a 54 65 78 74 21 3d 73 4d  printf.zText!=sM
6ac0: 70 72 69 6e 74 66 2e 7a 42 61 73 65 20 29 7b 0a  printf.zBase ){.
6ad0: 20 20 20 20 73 71 6c 69 74 65 46 72 65 65 28 73      sqliteFree(s
6ae0: 4d 70 72 69 6e 74 66 2e 7a 54 65 78 74 29 3b 0a  Mprintf.zText);.
6af0: 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 7a 4e 65    }.  return zNe
6b00: 77 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20  w;.}../*.** The 
6b10: 66 6f 6c 6c 6f 77 69 6e 67 20 66 6f 75 72 20 72  following four r
6b20: 6f 75 74 69 6e 65 73 20 69 6d 70 6c 65 6d 65 6e  outines implemen
6b30: 74 20 74 68 65 20 76 61 72 61 72 67 73 20 76 65  t the varargs ve
6b40: 72 73 69 6f 6e 73 20 6f 66 20 74 68 65 0a 2a 2a  rsions of the.**
6b50: 20 73 71 6c 69 74 65 5f 65 78 65 63 28 29 20 61   sqlite_exec() a
6b60: 6e 64 20 73 71 6c 69 74 65 5f 67 65 74 5f 74 61  nd sqlite_get_ta
6b70: 62 6c 65 28 29 20 69 6e 74 65 72 66 61 63 65 73  ble() interfaces
6b80: 2e 20 20 53 65 65 20 74 68 65 20 73 71 6c 69 74  .  See the sqlit
6b90: 65 2e 68 0a 2a 2a 20 68 65 61 64 65 72 20 66 69  e.h.** header fi
6ba0: 6c 65 73 20 66 6f 72 20 61 20 6d 6f 72 65 20 64  les for a more d
6bb0: 65 74 61 69 6c 65 64 20 64 65 73 63 72 69 70 74  etailed descript
6bc0: 69 6f 6e 20 6f 66 20 68 6f 77 20 74 68 65 73 65  ion of how these
6bd0: 20 69 6e 74 65 72 66 61 63 65 73 0a 2a 2a 20 77   interfaces.** w
6be0: 6f 72 6b 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 73 65  ork..**.** These
6bf0: 20 72 6f 75 74 69 6e 65 73 20 61 72 65 20 61 6c   routines are al
6c00: 6c 20 6a 75 73 74 20 73 69 6d 70 6c 65 20 77 72  l just simple wr
6c10: 61 70 70 65 72 73 2e 0a 2a 2f 0a 69 6e 74 20 73  appers..*/.int s
6c20: 71 6c 69 74 65 5f 65 78 65 63 5f 70 72 69 6e 74  qlite_exec_print
6c30: 66 28 0a 20 20 73 71 6c 69 74 65 20 2a 64 62 2c  f(.  sqlite *db,
6c40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
6c50: 20 20 20 2f 2a 20 41 6e 20 6f 70 65 6e 20 64 61     /* An open da
6c60: 74 61 62 61 73 65 20 2a 2f 0a 20 20 63 6f 6e 73  tabase */.  cons
6c70: 74 20 63 68 61 72 20 2a 73 71 6c 46 6f 72 6d 61  t char *sqlForma
6c80: 74 2c 20 20 20 20 20 20 20 20 2f 2a 20 70 72 69  t,        /* pri
6c90: 6e 74 66 2d 73 74 79 6c 65 20 66 6f 72 6d 61 74  ntf-style format
6ca0: 20 73 74 72 69 6e 67 20 66 6f 72 20 74 68 65 20   string for the 
6cb0: 53 51 4c 20 2a 2f 0a 20 20 73 71 6c 69 74 65 5f  SQL */.  sqlite_
6cc0: 63 61 6c 6c 62 61 63 6b 20 78 43 61 6c 6c 62 61  callback xCallba
6cd0: 63 6b 2c 20 20 20 20 2f 2a 20 43 61 6c 6c 62 61  ck,    /* Callba
6ce0: 63 6b 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20  ck function */. 
6cf0: 20 76 6f 69 64 20 2a 70 41 72 67 2c 20 20 20 20   void *pArg,    
6d00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
6d10: 2a 20 31 73 74 20 61 72 67 75 6d 65 6e 74 20 74  * 1st argument t
6d20: 6f 20 63 61 6c 6c 62 61 63 6b 20 66 75 6e 63 74  o callback funct
6d30: 69 6f 6e 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a  ion */.  char **
6d40: 65 72 72 6d 73 67 2c 20 20 20 20 20 20 20 20 20  errmsg,         
6d50: 20 20 20 20 20 20 20 2f 2a 20 45 72 72 6f 72 20         /* Error 
6d60: 6d 73 67 20 77 72 69 74 74 65 6e 20 68 65 72 65  msg written here
6d70: 20 2a 2f 0a 20 20 2e 2e 2e 20 20 20 20 20 20 20   */.  ...       
6d80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
6d90: 20 20 20 20 2f 2a 20 41 72 67 75 6d 65 6e 74 73      /* Arguments
6da0: 20 74 6f 20 74 68 65 20 66 6f 72 6d 61 74 20 73   to the format s
6db0: 74 72 69 6e 67 2e 20 2a 2f 0a 29 7b 0a 20 20 76  tring. */.){.  v
6dc0: 61 5f 6c 69 73 74 20 61 70 3b 0a 20 20 69 6e 74  a_list ap;.  int
6dd0: 20 72 63 3b 0a 0a 20 20 76 61 5f 73 74 61 72 74   rc;..  va_start
6de0: 28 61 70 2c 20 65 72 72 6d 73 67 29 3b 0a 20 20  (ap, errmsg);.  
6df0: 72 63 20 3d 20 73 71 6c 69 74 65 5f 65 78 65 63  rc = sqlite_exec
6e00: 5f 76 70 72 69 6e 74 66 28 64 62 2c 20 73 71 6c  _vprintf(db, sql
6e10: 46 6f 72 6d 61 74 2c 20 78 43 61 6c 6c 62 61 63  Format, xCallbac
6e20: 6b 2c 20 70 41 72 67 2c 20 65 72 72 6d 73 67 2c  k, pArg, errmsg,
6e30: 20 61 70 29 3b 0a 20 20 76 61 5f 65 6e 64 28 61   ap);.  va_end(a
6e40: 70 29 3b 0a 20 20 72 65 74 75 72 6e 20 72 63 3b  p);.  return rc;
6e50: 0a 7d 0a 69 6e 74 20 73 71 6c 69 74 65 5f 65 78  .}.int sqlite_ex
6e60: 65 63 5f 76 70 72 69 6e 74 66 28 0a 20 20 73 71  ec_vprintf(.  sq
6e70: 6c 69 74 65 20 2a 64 62 2c 20 20 20 20 20 20 20  lite *db,       
6e80: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 41              /* A
6e90: 6e 20 6f 70 65 6e 20 64 61 74 61 62 61 73 65 20  n open database 
6ea0: 2a 2f 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20  */.  const char 
6eb0: 2a 73 71 6c 46 6f 72 6d 61 74 2c 20 20 20 20 20  *sqlFormat,     
6ec0: 20 20 20 2f 2a 20 70 72 69 6e 74 66 2d 73 74 79     /* printf-sty
6ed0: 6c 65 20 66 6f 72 6d 61 74 20 73 74 72 69 6e 67  le format string
6ee0: 20 66 6f 72 20 74 68 65 20 53 51 4c 20 2a 2f 0a   for the SQL */.
6ef0: 20 20 73 71 6c 69 74 65 5f 63 61 6c 6c 62 61 63    sqlite_callbac
6f00: 6b 20 78 43 61 6c 6c 62 61 63 6b 2c 20 20 20 20  k xCallback,    
6f10: 2f 2a 20 43 61 6c 6c 62 61 63 6b 20 66 75 6e 63  /* Callback func
6f20: 74 69 6f 6e 20 2a 2f 0a 20 20 76 6f 69 64 20 2a  tion */.  void *
6f30: 70 41 72 67 2c 20 20 20 20 20 20 20 20 20 20 20  pArg,           
6f40: 20 20 20 20 20 20 20 20 2f 2a 20 31 73 74 20 61          /* 1st a
6f50: 72 67 75 6d 65 6e 74 20 74 6f 20 63 61 6c 6c 62  rgument to callb
6f60: 61 63 6b 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a  ack function */.
6f70: 20 20 63 68 61 72 20 2a 2a 65 72 72 6d 73 67 2c    char **errmsg,
6f80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
6f90: 2f 2a 20 45 72 72 6f 72 20 6d 73 67 20 77 72 69  /* Error msg wri
6fa0: 74 74 65 6e 20 68 65 72 65 20 2a 2f 0a 20 20 76  tten here */.  v
6fb0: 61 5f 6c 69 73 74 20 61 70 20 20 20 20 20 20 20  a_list ap       
6fc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
6fd0: 41 72 67 75 6d 65 6e 74 73 20 74 6f 20 74 68 65  Arguments to the
6fe0: 20 66 6f 72 6d 61 74 20 73 74 72 69 6e 67 2e 20   format string. 
6ff0: 2a 2f 0a 29 7b 0a 20 20 63 68 61 72 20 2a 7a 53  */.){.  char *zS
7000: 71 6c 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 20  ql;.  int rc;.. 
7010: 20 7a 53 71 6c 20 3d 20 73 71 6c 69 74 65 5f 76   zSql = sqlite_v
7020: 6d 70 72 69 6e 74 66 28 73 71 6c 46 6f 72 6d 61  mprintf(sqlForma
7030: 74 2c 20 61 70 29 3b 0a 20 20 72 63 20 3d 20 73  t, ap);.  rc = s
7040: 71 6c 69 74 65 5f 65 78 65 63 28 64 62 2c 20 7a  qlite_exec(db, z
7050: 53 71 6c 2c 20 78 43 61 6c 6c 62 61 63 6b 2c 20  Sql, xCallback, 
7060: 70 41 72 67 2c 20 65 72 72 6d 73 67 29 3b 0a 20  pArg, errmsg);. 
7070: 20 66 72 65 65 28 7a 53 71 6c 29 3b 0a 20 20 72   free(zSql);.  r
7080: 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 69 6e 74 20  eturn rc;.}.int 
7090: 73 71 6c 69 74 65 5f 67 65 74 5f 74 61 62 6c 65  sqlite_get_table
70a0: 5f 70 72 69 6e 74 66 28 0a 20 20 73 71 6c 69 74  _printf(.  sqlit
70b0: 65 20 2a 64 62 2c 20 20 20 20 20 20 20 20 20 20  e *db,          
70c0: 20 20 2f 2a 20 41 6e 20 6f 70 65 6e 20 64 61 74    /* An open dat
70d0: 61 62 61 73 65 20 2a 2f 0a 20 20 63 6f 6e 73 74  abase */.  const
70e0: 20 63 68 61 72 20 2a 73 71 6c 46 6f 72 6d 61 74   char *sqlFormat
70f0: 2c 20 2f 2a 20 70 72 69 6e 74 66 2d 73 74 79 6c  , /* printf-styl
7100: 65 20 66 6f 72 6d 61 74 20 73 74 72 69 6e 67 20  e format string 
7110: 66 6f 72 20 74 68 65 20 53 51 4c 20 2a 2f 0a 20  for the SQL */. 
7120: 20 63 68 61 72 20 2a 2a 2a 72 65 73 75 6c 74 70   char ***resultp
7130: 2c 20 20 20 20 20 20 20 2f 2a 20 52 65 73 75 6c  ,       /* Resul
7140: 74 20 77 72 69 74 74 65 6e 20 74 6f 20 61 20 63  t written to a c
7150: 68 61 72 20 2a 5b 5d 20 20 74 68 61 74 20 74 68  har *[]  that th
7160: 69 73 20 70 6f 69 6e 74 73 20 74 6f 20 2a 2f 0a  is points to */.
7170: 20 20 69 6e 74 20 2a 6e 72 6f 77 2c 20 20 20 20    int *nrow,    
7180: 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62           /* Numb
7190: 65 72 20 6f 66 20 72 65 73 75 6c 74 20 72 6f 77  er of result row
71a0: 73 20 77 72 69 74 74 65 6e 20 68 65 72 65 20 2a  s written here *
71b0: 2f 0a 20 20 69 6e 74 20 2a 6e 63 6f 6c 2c 20 20  /.  int *ncol,  
71c0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75             /* Nu
71d0: 6d 62 65 72 20 6f 66 20 72 65 73 75 6c 74 20 63  mber of result c
71e0: 6f 6c 75 6d 6e 73 20 77 72 69 74 74 65 6e 20 68  olumns written h
71f0: 65 72 65 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a  ere */.  char **
7200: 65 72 72 6d 73 67 2c 20 20 20 20 20 20 20 20 20  errmsg,         
7210: 2f 2a 20 45 72 72 6f 72 20 6d 73 67 20 77 72 69  /* Error msg wri
7220: 74 74 65 6e 20 68 65 72 65 20 2a 2f 0a 20 20 2e  tten here */.  .
7230: 2e 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
7240: 20 20 20 20 20 20 2f 2a 20 41 72 67 75 6d 65 6e        /* Argumen
7250: 74 73 20 74 6f 20 74 68 65 20 66 6f 72 6d 61 74  ts to the format
7260: 20 73 74 72 69 6e 67 20 2a 2f 0a 29 7b 0a 20 20   string */.){.  
7270: 76 61 5f 6c 69 73 74 20 61 70 3b 0a 20 20 69 6e  va_list ap;.  in
7280: 74 20 72 63 3b 0a 0a 20 20 76 61 5f 73 74 61 72  t rc;..  va_star
7290: 74 28 61 70 2c 20 65 72 72 6d 73 67 29 3b 0a 20  t(ap, errmsg);. 
72a0: 20 72 63 20 3d 20 73 71 6c 69 74 65 5f 67 65 74   rc = sqlite_get
72b0: 5f 74 61 62 6c 65 5f 76 70 72 69 6e 74 66 28 64  _table_vprintf(d
72c0: 62 2c 20 73 71 6c 46 6f 72 6d 61 74 2c 20 72 65  b, sqlFormat, re
72d0: 73 75 6c 74 70 2c 20 6e 72 6f 77 2c 20 6e 63 6f  sultp, nrow, nco
72e0: 6c 2c 20 65 72 72 6d 73 67 2c 20 61 70 29 3b 0a  l, errmsg, ap);.
72f0: 20 20 76 61 5f 65 6e 64 28 61 70 29 3b 0a 20 20    va_end(ap);.  
7300: 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 69 6e 74  return rc;.}.int
7310: 20 73 71 6c 69 74 65 5f 67 65 74 5f 74 61 62 6c   sqlite_get_tabl
7320: 65 5f 76 70 72 69 6e 74 66 28 0a 20 20 73 71 6c  e_vprintf(.  sql
7330: 69 74 65 20 2a 64 62 2c 20 20 20 20 20 20 20 20  ite *db,        
7340: 20 20 20 20 2f 2a 20 41 6e 20 6f 70 65 6e 20 64      /* An open d
7350: 61 74 61 62 61 73 65 20 2a 2f 0a 20 20 63 6f 6e  atabase */.  con
7360: 73 74 20 63 68 61 72 20 2a 73 71 6c 46 6f 72 6d  st char *sqlForm
7370: 61 74 2c 20 2f 2a 20 70 72 69 6e 74 66 2d 73 74  at, /* printf-st
7380: 79 6c 65 20 66 6f 72 6d 61 74 20 73 74 72 69 6e  yle format strin
7390: 67 20 66 6f 72 20 74 68 65 20 53 51 4c 20 2a 2f  g for the SQL */
73a0: 0a 20 20 63 68 61 72 20 2a 2a 2a 72 65 73 75 6c  .  char ***resul
73b0: 74 70 2c 20 20 20 20 20 20 20 2f 2a 20 52 65 73  tp,       /* Res
73c0: 75 6c 74 20 77 72 69 74 74 65 6e 20 74 6f 20 61  ult written to a
73d0: 20 63 68 61 72 20 2a 5b 5d 20 20 74 68 61 74 20   char *[]  that 
73e0: 74 68 69 73 20 70 6f 69 6e 74 73 20 74 6f 20 2a  this points to *
73f0: 2f 0a 20 20 69 6e 74 20 2a 6e 72 6f 77 2c 20 20  /.  int *nrow,  
7400: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75             /* Nu
7410: 6d 62 65 72 20 6f 66 20 72 65 73 75 6c 74 20 72  mber of result r
7420: 6f 77 73 20 77 72 69 74 74 65 6e 20 68 65 72 65  ows written here
7430: 20 2a 2f 0a 20 20 69 6e 74 20 2a 6e 63 6f 6c 75   */.  int *ncolu
7440: 6d 6e 2c 20 20 20 20 20 20 20 20 20 20 2f 2a 20  mn,          /* 
7450: 4e 75 6d 62 65 72 20 6f 66 20 72 65 73 75 6c 74  Number of result
7460: 20 63 6f 6c 75 6d 6e 73 20 77 72 69 74 74 65 6e   columns written
7470: 20 68 65 72 65 20 2a 2f 0a 20 20 63 68 61 72 20   here */.  char 
7480: 2a 2a 65 72 72 6d 73 67 2c 20 20 20 20 20 20 20  **errmsg,       
7490: 20 20 2f 2a 20 45 72 72 6f 72 20 6d 73 67 20 77    /* Error msg w
74a0: 72 69 74 74 65 6e 20 68 65 72 65 20 2a 2f 0a 20  ritten here */. 
74b0: 20 76 61 5f 6c 69 73 74 20 61 70 20 20 20 20 20   va_list ap     
74c0: 20 20 20 20 20 20 20 20 2f 2a 20 41 72 67 75 6d          /* Argum
74d0: 65 6e 74 73 20 74 6f 20 74 68 65 20 66 6f 72 6d  ents to the form
74e0: 61 74 20 73 74 72 69 6e 67 20 2a 2f 0a 29 7b 0a  at string */.){.
74f0: 20 20 63 68 61 72 20 2a 7a 53 71 6c 3b 0a 20 20    char *zSql;.  
7500: 69 6e 74 20 72 63 3b 0a 0a 20 20 7a 53 71 6c 20  int rc;..  zSql 
7510: 3d 20 73 71 6c 69 74 65 5f 76 6d 70 72 69 6e 74  = sqlite_vmprint
7520: 66 28 73 71 6c 46 6f 72 6d 61 74 2c 20 61 70 29  f(sqlFormat, ap)
7530: 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 5f  ;.  rc = sqlite_
7540: 67 65 74 5f 74 61 62 6c 65 28 64 62 2c 20 7a 53  get_table(db, zS
7550: 71 6c 2c 20 72 65 73 75 6c 74 70 2c 20 6e 72 6f  ql, resultp, nro
7560: 77 2c 20 6e 63 6f 6c 75 6d 6e 2c 20 65 72 72 6d  w, ncolumn, errm
7570: 73 67 29 3b 0a 20 20 66 72 65 65 28 7a 53 71 6c  sg);.  free(zSql
7580: 29 3b 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a  );.  return rc;.
7590: 7d 0a                                            }.