/ Hex Artifact Content
Login
SQLite training in Houston TX on 2019-11-05 (details)
Part of the 2019 Tcl Conference

Artifact f8fd911a8738f9b2eb07aca2870473d34707055d:


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 50 45  s. %s */.   etPE
0b20: 52 43 45 4e 54 2c 20 20 20 20 20 20 20 20 20 20  RCENT,          
0b30: 2f 2a 20 50 65 72 63 65 6e 74 20 73 79 6d 62 6f  /* Percent symbo
0b40: 6c 2e 20 25 25 20 2a 2f 0a 20 20 20 65 74 43 48  l. %% */.   etCH
0b50: 41 52 58 2c 20 20 20 20 20 20 20 20 20 20 20 20  ARX,            
0b60: 2f 2a 20 43 68 61 72 61 63 74 65 72 73 2e 20 25  /* Characters. %
0b70: 63 20 2a 2f 0a 20 20 20 65 74 45 52 52 4f 52 2c  c */.   etERROR,
0b80: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 55              /* U
0b90: 73 65 64 20 74 6f 20 69 6e 64 69 63 61 74 65 20  sed to indicate 
0ba0: 6e 6f 20 73 75 63 68 20 63 6f 6e 76 65 72 73 69  no such conversi
0bb0: 6f 6e 20 74 79 70 65 20 2a 2f 0a 2f 2a 20 54 68  on type */./* Th
0bc0: 65 20 72 65 73 74 20 61 72 65 20 65 78 74 65 6e  e rest are exten
0bd0: 73 69 6f 6e 73 2c 20 6e 6f 74 20 6e 6f 72 6d 61  sions, not norma
0be0: 6c 6c 79 20 66 6f 75 6e 64 20 69 6e 20 70 72 69  lly found in pri
0bf0: 6e 74 66 28 29 20 2a 2f 0a 20 20 20 65 74 43 48  ntf() */.   etCH
0c00: 41 52 4c 49 54 2c 20 20 20 20 20 20 20 20 20 20  ARLIT,          
0c10: 2f 2a 20 4c 69 74 65 72 61 6c 20 63 68 61 72 61  /* Literal chara
0c20: 63 74 65 72 73 2e 20 20 25 27 20 2a 2f 0a 20 20  cters.  %' */.  
0c30: 20 65 74 53 51 4c 45 53 43 41 50 45 2c 20 20 20   etSQLESCAPE,   
0c40: 20 20 20 20 20 2f 2a 20 53 74 72 69 6e 67 73 20       /* Strings 
0c50: 77 69 74 68 20 27 5c 27 27 20 64 6f 75 62 6c 65  with '\'' double
0c60: 64 2e 20 20 25 71 20 2a 2f 0a 20 20 20 65 74 53  d.  %q */.   etS
0c70: 51 4c 45 53 43 41 50 45 32 2c 20 20 20 20 20 20  QLESCAPE2,      
0c80: 20 2f 2a 20 53 74 72 69 6e 67 73 20 77 69 74 68   /* Strings with
0c90: 20 27 5c 27 27 20 64 6f 75 62 6c 65 64 20 61 6e   '\'' doubled an
0ca0: 64 20 65 6e 63 6c 6f 73 65 64 20 69 6e 20 27 27  d enclosed in ''
0cb0: 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ,.              
0cc0: 20 20 20 20 20 20 20 20 20 20 20 20 4e 55 4c 4c              NULL
0cd0: 20 70 6f 69 6e 74 65 72 73 20 72 65 70 6c 61 63   pointers replac
0ce0: 65 64 20 62 79 20 53 51 4c 20 4e 55 4c 4c 2e 20  ed by SQL NULL. 
0cf0: 20 25 51 20 2a 2f 0a 20 20 20 65 74 4f 52 44 49   %Q */.   etORDI
0d00: 4e 41 4c 20 20 20 20 20 20 20 20 20 20 20 2f 2a  NAL           /*
0d10: 20 31 73 74 2c 20 32 6e 64 2c 20 33 72 64 20 61   1st, 2nd, 3rd a
0d20: 6e 64 20 73 6f 20 66 6f 72 74 68 20 2a 2f 0a 7d  nd so forth */.}
0d30: 3b 0a 0a 2f 2a 0a 2a 2a 20 45 61 63 68 20 62 75  ;../*.** Each bu
0d40: 69 6c 74 69 6e 20 63 6f 6e 76 65 72 73 69 6f 6e  iltin conversion
0d50: 20 63 68 61 72 61 63 74 65 72 20 28 65 78 3a 20   character (ex: 
0d60: 74 68 65 20 27 64 27 20 69 6e 20 22 25 64 22 29  the 'd' in "%d")
0d70: 20 69 73 20 64 65 73 63 72 69 62 65 64 0a 2a 2a   is described.**
0d80: 20 62 79 20 61 6e 20 69 6e 73 74 61 6e 63 65 20   by an instance 
0d90: 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67  of the following
0da0: 20 73 74 72 75 63 74 75 72 65 0a 2a 2f 0a 74 79   structure.*/.ty
0db0: 70 65 64 65 66 20 73 74 72 75 63 74 20 65 74 5f  pedef struct et_
0dc0: 69 6e 66 6f 20 7b 20 20 20 2f 2a 20 49 6e 66 6f  info {   /* Info
0dd0: 72 6d 61 74 69 6f 6e 20 61 62 6f 75 74 20 65 61  rmation about ea
0de0: 63 68 20 66 6f 72 6d 61 74 20 66 69 65 6c 64 20  ch format field 
0df0: 2a 2f 0a 20 20 69 6e 74 20 20 66 6d 74 74 79 70  */.  int  fmttyp
0e00: 65 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  e;              
0e10: 2f 2a 20 54 68 65 20 66 6f 72 6d 61 74 20 66 69  /* The format fi
0e20: 65 6c 64 20 63 6f 64 65 20 6c 65 74 74 65 72 20  eld code letter 
0e30: 2a 2f 0a 20 20 69 6e 74 20 20 62 61 73 65 3b 20  */.  int  base; 
0e40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0e50: 2f 2a 20 54 68 65 20 62 61 73 65 20 66 6f 72 20  /* The base for 
0e60: 72 61 64 69 78 20 63 6f 6e 76 65 72 73 69 6f 6e  radix conversion
0e70: 20 2a 2f 0a 20 20 63 68 61 72 20 2a 63 68 61 72   */.  char *char
0e80: 73 65 74 3b 20 20 20 20 20 20 20 20 20 20 20 20  set;            
0e90: 20 2f 2a 20 54 68 65 20 63 68 61 72 61 63 74 65   /* The characte
0ea0: 72 20 73 65 74 20 66 6f 72 20 63 6f 6e 76 65 72  r set for conver
0eb0: 73 69 6f 6e 20 2a 2f 0a 20 20 69 6e 74 20 20 66  sion */.  int  f
0ec0: 6c 61 67 5f 73 69 67 6e 65 64 3b 20 20 20 20 20  lag_signed;     
0ed0: 20 20 20 20 20 2f 2a 20 49 73 20 74 68 65 20 71       /* Is the q
0ee0: 75 61 6e 74 69 74 79 20 73 69 67 6e 65 64 3f 20  uantity signed? 
0ef0: 2a 2f 0a 20 20 63 68 61 72 20 2a 70 72 65 66 69  */.  char *prefi
0f00: 78 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  x;              
0f10: 2f 2a 20 50 72 65 66 69 78 20 6f 6e 20 6e 6f 6e  /* Prefix on non
0f20: 2d 7a 65 72 6f 20 76 61 6c 75 65 73 20 69 6e 20  -zero values in 
0f30: 61 6c 74 20 66 6f 72 6d 61 74 20 2a 2f 0a 20 20  alt format */.  
0f40: 65 6e 75 6d 20 65 74 5f 74 79 70 65 20 74 79 70  enum et_type typ
0f50: 65 3b 20 20 20 20 20 20 20 20 20 20 2f 2a 20 43  e;          /* C
0f60: 6f 6e 76 65 72 73 69 6f 6e 20 70 61 72 61 64 69  onversion paradi
0f70: 67 6d 20 2a 2f 0a 7d 20 65 74 5f 69 6e 66 6f 3b  gm */.} et_info;
0f80: 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 66 6f 6c 6c  ../*.** The foll
0f90: 6f 77 69 6e 67 20 74 61 62 6c 65 20 69 73 20 73  owing table is s
0fa0: 65 61 72 63 68 65 64 20 6c 69 6e 65 61 72 6c 79  earched linearly
0fb0: 2c 20 73 6f 20 69 74 20 69 73 20 67 6f 6f 64 20  , so it is good 
0fc0: 74 6f 20 70 75 74 20 74 68 65 0a 2a 2a 20 6d 6f  to put the.** mo
0fd0: 73 74 20 66 72 65 71 75 65 6e 74 6c 79 20 75 73  st frequently us
0fe0: 65 64 20 63 6f 6e 76 65 72 73 69 6f 6e 20 74 79  ed conversion ty
0ff0: 70 65 73 20 66 69 72 73 74 2e 0a 2a 2f 0a 73 74  pes first..*/.st
1000: 61 74 69 63 20 65 74 5f 69 6e 66 6f 20 66 6d 74  atic et_info fmt
1010: 69 6e 66 6f 5b 5d 20 3d 20 7b 0a 20 20 7b 20 27  info[] = {.  { '
1020: 64 27 2c 20 20 31 30 2c 20 20 22 30 31 32 33 34  d',  10,  "01234
1030: 35 36 37 38 39 22 2c 20 20 20 20 20 20 20 31 2c  56789",       1,
1040: 20 20 20 20 30 2c 20 65 74 52 41 44 49 58 2c 20      0, etRADIX, 
1050: 20 20 20 20 20 7d 2c 0a 20 20 7b 20 27 73 27 2c       },.  { 's',
1060: 20 20 20 30 2c 20 20 30 2c 20 20 20 20 20 20 20     0,  0,       
1070: 20 20 20 20 20 20 20 20 20 20 20 30 2c 20 20 20             0,   
1080: 20 30 2c 20 65 74 53 54 52 49 4e 47 2c 20 20 20   0, etSTRING,   
1090: 20 20 7d 2c 20 0a 20 20 7b 20 27 71 27 2c 20 20    }, .  { 'q',  
10a0: 20 30 2c 20 20 30 2c 20 20 20 20 20 20 20 20 20   0,  0,         
10b0: 20 20 20 20 20 20 20 20 20 30 2c 20 20 20 20 30           0,    0
10c0: 2c 20 65 74 53 51 4c 45 53 43 41 50 45 2c 20 20  , etSQLESCAPE,  
10d0: 7d 2c 0a 20 20 7b 20 27 51 27 2c 20 20 20 30 2c  },.  { 'Q',   0,
10e0: 20 20 30 2c 20 20 20 20 20 20 20 20 20 20 20 20    0,            
10f0: 20 20 20 20 20 20 30 2c 20 20 20 20 30 2c 20 65        0,    0, e
1100: 74 53 51 4c 45 53 43 41 50 45 32 2c 20 7d 2c 0a  tSQLESCAPE2, },.
1110: 20 20 7b 20 27 63 27 2c 20 20 20 30 2c 20 20 30    { 'c',   0,  0
1120: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ,               
1130: 20 20 20 30 2c 20 20 20 20 30 2c 20 65 74 43 48     0,    0, etCH
1140: 41 52 58 2c 20 20 20 20 20 20 7d 2c 0a 20 20 7b  ARX,      },.  {
1150: 20 27 6f 27 2c 20 20 20 38 2c 20 20 22 30 31 32   'o',   8,  "012
1160: 33 34 35 36 37 22 2c 20 20 20 20 20 20 20 20 20  34567",         
1170: 30 2c 20 20 22 30 22 2c 20 65 74 52 41 44 49 58  0,  "0", etRADIX
1180: 2c 20 20 20 20 20 20 7d 2c 0a 20 20 7b 20 27 75  ,      },.  { 'u
1190: 27 2c 20 20 31 30 2c 20 20 22 30 31 32 33 34 35  ',  10,  "012345
11a0: 36 37 38 39 22 2c 20 20 20 20 20 20 20 30 2c 20  6789",       0, 
11b0: 20 20 20 30 2c 20 65 74 52 41 44 49 58 2c 20 20     0, etRADIX,  
11c0: 20 20 20 20 7d 2c 0a 20 20 7b 20 27 78 27 2c 20      },.  { 'x', 
11d0: 20 31 36 2c 20 20 22 30 31 32 33 34 35 36 37 38   16,  "012345678
11e0: 39 61 62 63 64 65 66 22 2c 20 30 2c 20 22 78 30  9abcdef", 0, "x0
11f0: 22 2c 20 65 74 52 41 44 49 58 2c 20 20 20 20 20  ", etRADIX,     
1200: 20 7d 2c 0a 20 20 7b 20 27 58 27 2c 20 20 31 36   },.  { 'X',  16
1210: 2c 20 20 22 30 31 32 33 34 35 36 37 38 39 41 42  ,  "0123456789AB
1220: 43 44 45 46 22 2c 20 30 2c 20 22 58 30 22 2c 20  CDEF", 0, "X0", 
1230: 65 74 52 41 44 49 58 2c 20 20 20 20 20 20 7d 2c  etRADIX,      },
1240: 0a 20 20 7b 20 27 72 27 2c 20 20 31 30 2c 20 20  .  { 'r',  10,  
1250: 22 30 31 32 33 34 35 36 37 38 39 22 2c 20 20 20  "0123456789",   
1260: 20 20 20 20 30 2c 20 20 20 20 30 2c 20 65 74 4f      0,    0, etO
1270: 52 44 49 4e 41 4c 2c 20 20 20 20 7d 2c 0a 20 20  RDINAL,    },.  
1280: 7b 20 27 66 27 2c 20 20 20 30 2c 20 20 30 2c 20  { 'f',   0,  0, 
1290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
12a0: 20 31 2c 20 20 20 20 30 2c 20 65 74 46 4c 4f 41   1,    0, etFLOA
12b0: 54 2c 20 20 20 20 20 20 7d 2c 0a 20 20 7b 20 27  T,      },.  { '
12c0: 65 27 2c 20 20 20 30 2c 20 20 22 65 22 2c 20 20  e',   0,  "e",  
12d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 2c                1,
12e0: 20 20 20 20 30 2c 20 65 74 45 58 50 2c 20 20 20      0, etEXP,   
12f0: 20 20 20 20 20 7d 2c 0a 20 20 7b 20 27 45 27 2c       },.  { 'E',
1300: 20 20 20 30 2c 20 20 22 45 22 2c 20 20 20 20 20     0,  "E",     
1310: 20 20 20 20 20 20 20 20 20 20 20 31 2c 20 20 20             1,   
1320: 20 30 2c 20 65 74 45 58 50 2c 20 20 20 20 20 20   0, etEXP,      
1330: 20 20 7d 2c 0a 20 20 7b 20 27 67 27 2c 20 20 20    },.  { 'g',   
1340: 30 2c 20 20 22 65 22 2c 20 20 20 20 20 20 20 20  0,  "e",        
1350: 20 20 20 20 20 20 20 20 31 2c 20 20 20 20 30 2c          1,    0,
1360: 20 65 74 47 45 4e 45 52 49 43 2c 20 20 20 20 7d   etGENERIC,    }
1370: 2c 0a 20 20 7b 20 27 47 27 2c 20 20 20 30 2c 20  ,.  { 'G',   0, 
1380: 20 22 45 22 2c 20 20 20 20 20 20 20 20 20 20 20   "E",           
1390: 20 20 20 20 20 31 2c 20 20 20 20 30 2c 20 65 74       1,    0, et
13a0: 47 45 4e 45 52 49 43 2c 20 20 20 20 7d 2c 0a 20  GENERIC,    },. 
13b0: 20 7b 20 27 69 27 2c 20 20 31 30 2c 20 20 22 30   { 'i',  10,  "0
13c0: 31 32 33 34 35 36 37 38 39 22 2c 20 20 20 20 20  123456789",     
13d0: 20 20 31 2c 20 20 20 20 30 2c 20 65 74 52 41 44    1,    0, etRAD
13e0: 49 58 2c 20 20 20 20 20 20 7d 2c 0a 20 20 7b 20  IX,      },.  { 
13f0: 27 6e 27 2c 20 20 20 30 2c 20 20 30 2c 20 20 20  'n',   0,  0,   
1400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30                 0
1410: 2c 20 20 20 20 30 2c 20 65 74 53 49 5a 45 2c 20  ,    0, etSIZE, 
1420: 20 20 20 20 20 20 7d 2c 0a 20 20 7b 20 27 25 27        },.  { '%'
1430: 2c 20 20 20 30 2c 20 20 30 2c 20 20 20 20 20 20  ,   0,  0,      
1440: 20 20 20 20 20 20 20 20 20 20 20 20 30 2c 20 20              0,  
1450: 20 20 30 2c 20 65 74 50 45 52 43 45 4e 54 2c 20    0, etPERCENT, 
1460: 20 20 20 7d 2c 0a 20 20 7b 20 27 62 27 2c 20 20     },.  { 'b',  
1470: 20 32 2c 20 20 22 30 31 22 2c 20 20 20 20 20 20   2,  "01",      
1480: 20 20 20 20 20 20 20 20 20 30 2c 20 22 62 30 22           0, "b0"
1490: 2c 20 65 74 52 41 44 49 58 2c 20 20 20 20 20 20  , etRADIX,      
14a0: 7d 2c 20 2f 2a 20 42 69 6e 61 72 79 20 2a 2f 0a  }, /* Binary */.
14b0: 20 20 7b 20 27 70 27 2c 20 20 31 30 2c 20 20 22    { 'p',  10,  "
14c0: 30 31 32 33 34 35 36 37 38 39 22 2c 20 20 20 20  0123456789",    
14d0: 20 20 20 30 2c 20 20 20 20 30 2c 20 65 74 52 41     0,    0, etRA
14e0: 44 49 58 2c 20 20 20 20 20 20 7d 2c 20 2f 2a 20  DIX,      }, /* 
14f0: 50 6f 69 6e 74 65 72 73 20 2a 2f 0a 20 20 7b 20  Pointers */.  { 
1500: 27 5c 27 27 2c 20 20 30 2c 20 20 30 2c 20 20 20  '\'',  0,  0,   
1510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30                 0
1520: 2c 20 20 20 20 30 2c 20 65 74 43 48 41 52 4c 49  ,    0, etCHARLI
1530: 54 2c 20 20 20 20 7d 2c 20 2f 2a 20 4c 69 74 65  T,    }, /* Lite
1540: 72 61 6c 20 63 68 61 72 20 2a 2f 0a 7d 3b 0a 23  ral char */.};.#
1550: 64 65 66 69 6e 65 20 65 74 4e 49 4e 46 4f 20 20  define etNINFO  
1560: 28 73 69 7a 65 6f 66 28 66 6d 74 69 6e 66 6f 29  (sizeof(fmtinfo)
1570: 2f 73 69 7a 65 6f 66 28 66 6d 74 69 6e 66 6f 5b  /sizeof(fmtinfo[
1580: 30 5d 29 29 0a 0a 2f 2a 0a 2a 2a 20 49 66 20 4e  0]))../*.** If N
1590: 4f 46 4c 4f 41 54 49 4e 47 50 4f 49 4e 54 20 69  OFLOATINGPOINT i
15a0: 73 20 64 65 66 69 6e 65 64 2c 20 74 68 65 6e 20  s defined, then 
15b0: 6e 6f 6e 65 20 6f 66 20 74 68 65 20 66 6c 6f 61  none of the floa
15c0: 74 69 6e 67 20 70 6f 69 6e 74 0a 2a 2a 20 63 6f  ting point.** co
15d0: 6e 76 65 72 73 69 6f 6e 73 20 77 69 6c 6c 20 77  nversions will w
15e0: 6f 72 6b 2e 0a 2a 2f 0a 23 69 66 6e 64 65 66 20  ork..*/.#ifndef 
15f0: 65 74 4e 4f 46 4c 4f 41 54 49 4e 47 50 4f 49 4e  etNOFLOATINGPOIN
1600: 54 0a 2f 2a 0a 2a 2a 20 22 2a 76 61 6c 22 20 69  T./*.** "*val" i
1610: 73 20 61 20 64 6f 75 62 6c 65 20 73 75 63 68 20  s a double such 
1620: 74 68 61 74 20 30 2e 31 20 3c 3d 20 2a 76 61 6c  that 0.1 <= *val
1630: 20 3c 20 31 30 2e 30 0a 2a 2a 20 52 65 74 75 72   < 10.0.** Retur
1640: 6e 20 74 68 65 20 61 73 63 69 69 20 63 6f 64 65  n the ascii code
1650: 20 66 6f 72 20 74 68 65 20 6c 65 61 64 69 6e 67   for the leading
1660: 20 64 69 67 69 74 20 6f 66 20 2a 76 61 6c 2c 20   digit of *val, 
1670: 74 68 65 6e 0a 2a 2a 20 6d 75 6c 74 69 70 6c 79  then.** multiply
1680: 20 22 2a 76 61 6c 22 20 62 79 20 31 30 2e 30 20   "*val" by 10.0 
1690: 74 6f 20 72 65 6e 6f 72 6d 61 6c 69 7a 65 2e 0a  to renormalize..
16a0: 2a 2a 0a 2a 2a 20 45 78 61 6d 70 6c 65 3a 0a 2a  **.** Example:.*
16b0: 2a 20 20 20 20 20 69 6e 70 75 74 3a 20 20 20 20  *     input:    
16c0: 20 2a 76 61 6c 20 3d 20 33 2e 31 34 31 35 39 0a   *val = 3.14159.
16d0: 2a 2a 20 20 20 20 20 6f 75 74 70 75 74 3a 20 20  **     output:  
16e0: 20 20 2a 76 61 6c 20 3d 20 31 2e 34 31 35 39 20    *val = 1.4159 
16f0: 20 20 20 66 75 6e 63 74 69 6f 6e 20 72 65 74 75     function retu
1700: 72 6e 20 3d 20 27 33 27 0a 2a 2a 0a 2a 2a 20 54  rn = '3'.**.** T
1710: 68 65 20 63 6f 75 6e 74 65 72 20 2a 63 6e 74 20  he counter *cnt 
1720: 69 73 20 69 6e 63 72 65 6d 65 6e 74 65 64 20 65  is incremented e
1730: 61 63 68 20 74 69 6d 65 2e 20 20 41 66 74 65 72  ach time.  After
1740: 20 63 6f 75 6e 74 65 72 20 65 78 63 65 65 64 73   counter exceeds
1750: 0a 2a 2a 20 31 36 20 28 74 68 65 20 6e 75 6d 62  .** 16 (the numb
1760: 65 72 20 6f 66 20 73 69 67 6e 69 66 69 63 61 6e  er of significan
1770: 74 20 64 69 67 69 74 73 20 69 6e 20 61 20 36 34  t digits in a 64
1780: 2d 62 69 74 20 66 6c 6f 61 74 29 20 27 30 27 20  -bit float) '0' 
1790: 69 73 0a 2a 2a 20 61 6c 77 61 79 73 20 72 65 74  is.** always ret
17a0: 75 72 6e 65 64 2e 0a 2a 2f 0a 73 74 61 74 69 63  urned..*/.static
17b0: 20 69 6e 74 20 65 74 5f 67 65 74 64 69 67 69 74   int et_getdigit
17c0: 28 64 6f 75 62 6c 65 20 2a 76 61 6c 2c 20 69 6e  (double *val, in
17d0: 74 20 2a 63 6e 74 29 7b 0a 20 20 69 6e 74 20 64  t *cnt){.  int d
17e0: 69 67 69 74 3b 0a 20 20 64 6f 75 62 6c 65 20 64  igit;.  double d
17f0: 3b 0a 20 20 69 66 28 20 28 2a 63 6e 74 29 2b 2b  ;.  if( (*cnt)++
1800: 20 3e 3d 20 31 36 20 29 20 72 65 74 75 72 6e 20   >= 16 ) return 
1810: 27 30 27 3b 0a 20 20 64 69 67 69 74 20 3d 20 28  '0';.  digit = (
1820: 69 6e 74 29 2a 76 61 6c 3b 0a 20 20 64 20 3d 20  int)*val;.  d = 
1830: 64 69 67 69 74 3b 0a 20 20 64 69 67 69 74 20 2b  digit;.  digit +
1840: 3d 20 27 30 27 3b 0a 20 20 2a 76 61 6c 20 3d 20  = '0';.  *val = 
1850: 28 2a 76 61 6c 20 2d 20 64 29 2a 31 30 2e 30 3b  (*val - d)*10.0;
1860: 0a 20 20 72 65 74 75 72 6e 20 64 69 67 69 74 3b  .  return digit;
1870: 0a 7d 0a 23 65 6e 64 69 66 0a 0a 23 64 65 66 69  .}.#endif..#defi
1880: 6e 65 20 65 74 42 55 46 53 49 5a 45 20 31 30 30  ne etBUFSIZE 100
1890: 30 20 20 2f 2a 20 53 69 7a 65 20 6f 66 20 74 68  0  /* Size of th
18a0: 65 20 6f 75 74 70 75 74 20 62 75 66 66 65 72 20  e output buffer 
18b0: 2a 2f 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 72 6f  */../*.** The ro
18c0: 6f 74 20 70 72 6f 67 72 61 6d 2e 20 20 41 6c 6c  ot program.  All
18d0: 20 76 61 72 69 61 74 69 6f 6e 73 20 63 61 6c 6c   variations call
18e0: 20 74 68 69 73 20 63 6f 72 65 2e 0a 2a 2a 0a 2a   this core..**.*
18f0: 2a 20 49 4e 50 55 54 53 3a 0a 2a 2a 20 20 20 66  * INPUTS:.**   f
1900: 75 6e 63 20 20 20 54 68 69 73 20 69 73 20 61 20  unc   This is a 
1910: 70 6f 69 6e 74 65 72 20 74 6f 20 61 20 66 75 6e  pointer to a fun
1920: 63 74 69 6f 6e 20 74 61 6b 69 6e 67 20 74 68 72  ction taking thr
1930: 65 65 20 61 72 67 75 6d 65 6e 74 73 0a 2a 2a 20  ee arguments.** 
1940: 20 20 20 20 20 20 20 20 20 20 20 31 2e 20 41 20             1. A 
1950: 70 6f 69 6e 74 65 72 20 74 6f 20 61 6e 79 74 68  pointer to anyth
1960: 69 6e 67 2e 20 20 53 61 6d 65 20 61 73 20 74 68  ing.  Same as th
1970: 65 20 22 61 72 67 22 20 70 61 72 61 6d 65 74 65  e "arg" paramete
1980: 72 2e 0a 2a 2a 20 20 20 20 20 20 20 20 20 20 20  r..**           
1990: 20 32 2e 20 41 20 70 6f 69 6e 74 65 72 20 74 6f   2. A pointer to
19a0: 20 74 68 65 20 6c 69 73 74 20 6f 66 20 63 68 61   the list of cha
19b0: 72 61 63 74 65 72 73 20 74 6f 20 62 65 20 6f 75  racters to be ou
19c0: 74 70 75 74 0a 2a 2a 20 20 20 20 20 20 20 20 20  tput.**         
19d0: 20 20 20 20 20 20 28 4e 6f 74 65 2c 20 74 68 69        (Note, thi
19e0: 73 20 6c 69 73 74 20 69 73 20 4e 4f 54 20 6e 75  s list is NOT nu
19f0: 6c 6c 20 74 65 72 6d 69 6e 61 74 65 64 2e 29 0a  ll terminated.).
1a00: 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 33 2e  **            3.
1a10: 20 41 6e 20 69 6e 74 65 67 65 72 20 6e 75 6d 62   An integer numb
1a20: 65 72 20 6f 66 20 63 68 61 72 61 63 74 65 72 73  er of characters
1a30: 20 74 6f 20 62 65 20 6f 75 74 70 75 74 2e 0a 2a   to be output..*
1a40: 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  *               
1a50: 28 4e 6f 74 65 3a 20 54 68 69 73 20 6e 75 6d 62  (Note: This numb
1a60: 65 72 20 6d 69 67 68 74 20 62 65 20 7a 65 72 6f  er might be zero
1a70: 2e 29 0a 2a 2a 0a 2a 2a 20 20 20 61 72 67 20 20  .).**.**   arg  
1a80: 20 20 54 68 69 73 20 69 73 20 74 68 65 20 70 6f    This is the po
1a90: 69 6e 74 65 72 20 74 6f 20 61 6e 79 74 68 69 6e  inter to anythin
1aa0: 67 20 77 68 69 63 68 20 77 69 6c 6c 20 62 65 20  g which will be 
1ab0: 70 61 73 73 65 64 20 61 73 20 74 68 65 0a 2a 2a  passed as the.**
1ac0: 20 20 20 20 20 20 20 20 20 20 66 69 72 73 74 20            first 
1ad0: 61 72 67 75 6d 65 6e 74 20 74 6f 20 22 66 75 6e  argument to "fun
1ae0: 63 22 2e 20 20 55 73 65 20 69 74 20 66 6f 72 20  c".  Use it for 
1af0: 77 68 61 74 65 76 65 72 20 79 6f 75 20 6c 69 6b  whatever you lik
1b00: 65 2e 0a 2a 2a 0a 2a 2a 20 20 20 66 6d 74 20 20  e..**.**   fmt  
1b10: 20 20 54 68 69 73 20 69 73 20 74 68 65 20 66 6f    This is the fo
1b20: 72 6d 61 74 20 73 74 72 69 6e 67 2c 20 61 73 20  rmat string, as 
1b30: 69 6e 20 74 68 65 20 75 73 75 61 6c 20 70 72 69  in the usual pri
1b40: 6e 74 2e 0a 2a 2a 0a 2a 2a 20 20 20 61 70 20 20  nt..**.**   ap  
1b50: 20 20 20 54 68 69 73 20 69 73 20 61 20 70 6f 69     This is a poi
1b60: 6e 74 65 72 20 74 6f 20 61 20 6c 69 73 74 20 6f  nter to a list o
1b70: 66 20 61 72 67 75 6d 65 6e 74 73 2e 20 20 53 61  f arguments.  Sa
1b80: 6d 65 20 61 73 20 69 6e 0a 2a 2a 20 20 20 20 20  me as in.**     
1b90: 20 20 20 20 20 76 66 70 72 69 6e 74 2e 0a 2a 2a       vfprint..**
1ba0: 0a 2a 2a 20 4f 55 54 50 55 54 53 3a 0a 2a 2a 20  .** OUTPUTS:.** 
1bb0: 20 20 20 20 20 20 20 20 20 54 68 65 20 72 65 74           The ret
1bc0: 75 72 6e 20 76 61 6c 75 65 20 69 73 20 74 68 65  urn value is the
1bd0: 20 74 6f 74 61 6c 20 6e 75 6d 62 65 72 20 6f 66   total number of
1be0: 20 63 68 61 72 61 63 74 65 72 73 20 73 65 6e 74   characters sent
1bf0: 20 74 6f 0a 2a 2a 20 20 20 20 20 20 20 20 20 20   to.**          
1c00: 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 22 66 75  the function "fu
1c10: 6e 63 22 2e 20 20 52 65 74 75 72 6e 73 20 2d 31  nc".  Returns -1
1c20: 20 6f 6e 20 61 20 65 72 72 6f 72 2e 0a 2a 2a 0a   on a error..**.
1c30: 2a 2a 20 4e 6f 74 65 20 74 68 61 74 20 74 68 65  ** Note that the
1c40: 20 6f 72 64 65 72 20 69 6e 20 77 68 69 63 68 20   order in which 
1c50: 61 75 74 6f 6d 61 74 69 63 20 76 61 72 69 61 62  automatic variab
1c60: 6c 65 73 20 61 72 65 20 64 65 63 6c 61 72 65 64  les are declared
1c70: 20 62 65 6c 6f 77 0a 2a 2a 20 73 65 65 6d 73 20   below.** seems 
1c80: 74 6f 20 6d 61 6b 65 20 61 20 62 69 67 20 64 69  to make a big di
1c90: 66 66 65 72 65 6e 63 65 20 69 6e 20 64 65 74 65  fference in dete
1ca0: 72 6d 69 6e 69 6e 67 20 68 6f 77 20 66 61 73 74  rmining how fast
1cb0: 20 74 68 69 73 20 62 65 61 73 74 0a 2a 2a 20 77   this beast.** w
1cc0: 69 6c 6c 20 72 75 6e 2e 0a 2a 2f 0a 73 74 61 74  ill run..*/.stat
1cd0: 69 63 20 69 6e 74 20 76 78 70 72 69 6e 74 66 28  ic int vxprintf(
1ce0: 0a 20 20 76 6f 69 64 20 28 2a 66 75 6e 63 29 28  .  void (*func)(
1cf0: 76 6f 69 64 2a 2c 63 68 61 72 2a 2c 69 6e 74 29  void*,char*,int)
1d00: 2c 0a 20 20 76 6f 69 64 20 2a 61 72 67 2c 0a 20  ,.  void *arg,. 
1d10: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 66 6f 72   const char *for
1d20: 6d 61 74 2c 0a 20 20 76 61 5f 6c 69 73 74 20 61  mat,.  va_list a
1d30: 70 0a 29 7b 0a 20 20 72 65 67 69 73 74 65 72 20  p.){.  register 
1d40: 63 6f 6e 73 74 20 63 68 61 72 20 2a 66 6d 74 3b  const char *fmt;
1d50: 20 2f 2a 20 54 68 65 20 66 6f 72 6d 61 74 20 73   /* The format s
1d60: 74 72 69 6e 67 2e 20 2a 2f 0a 20 20 72 65 67 69  tring. */.  regi
1d70: 73 74 65 72 20 69 6e 74 20 63 3b 20 20 20 20 20  ster int c;     
1d80: 20 20 20 20 20 20 2f 2a 20 4e 65 78 74 20 63 68        /* Next ch
1d90: 61 72 61 63 74 65 72 20 69 6e 20 74 68 65 20 66  aracter in the f
1da0: 6f 72 6d 61 74 20 73 74 72 69 6e 67 20 2a 2f 0a  ormat string */.
1db0: 20 20 72 65 67 69 73 74 65 72 20 63 68 61 72 20    register char 
1dc0: 2a 62 75 66 70 74 3b 20 20 20 20 20 2f 2a 20 50  *bufpt;     /* P
1dd0: 6f 69 6e 74 65 72 20 74 6f 20 74 68 65 20 63 6f  ointer to the co
1de0: 6e 76 65 72 73 69 6f 6e 20 62 75 66 66 65 72 20  nversion buffer 
1df0: 2a 2f 0a 20 20 72 65 67 69 73 74 65 72 20 69 6e  */.  register in
1e00: 74 20 20 70 72 65 63 69 73 69 6f 6e 3b 20 20 2f  t  precision;  /
1e10: 2a 20 50 72 65 63 69 73 69 6f 6e 20 6f 66 20 74  * Precision of t
1e20: 68 65 20 63 75 72 72 65 6e 74 20 66 69 65 6c 64  he current field
1e30: 20 2a 2f 0a 20 20 72 65 67 69 73 74 65 72 20 69   */.  register i
1e40: 6e 74 20 20 6c 65 6e 67 74 68 3b 20 20 20 20 20  nt  length;     
1e50: 2f 2a 20 4c 65 6e 67 74 68 20 6f 66 20 74 68 65  /* Length of the
1e60: 20 66 69 65 6c 64 20 2a 2f 0a 20 20 72 65 67 69   field */.  regi
1e70: 73 74 65 72 20 69 6e 74 20 20 69 64 78 3b 20 20  ster int  idx;  
1e80: 20 20 20 20 20 20 2f 2a 20 41 20 67 65 6e 65 72        /* A gener
1e90: 61 6c 20 70 75 72 70 6f 73 65 20 6c 6f 6f 70 20  al purpose loop 
1ea0: 63 6f 75 6e 74 65 72 20 2a 2f 0a 20 20 69 6e 74  counter */.  int
1eb0: 20 63 6f 75 6e 74 3b 20 20 20 20 20 20 20 20 20   count;         
1ec0: 20 20 20 20 20 20 20 2f 2a 20 54 6f 74 61 6c 20         /* Total 
1ed0: 6e 75 6d 62 65 72 20 6f 66 20 63 68 61 72 61 63  number of charac
1ee0: 74 65 72 73 20 6f 75 74 70 75 74 20 2a 2f 0a 20  ters output */. 
1ef0: 20 69 6e 74 20 77 69 64 74 68 3b 20 20 20 20 20   int width;     
1f00: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 57 69             /* Wi
1f10: 64 74 68 20 6f 66 20 74 68 65 20 63 75 72 72 65  dth of the curre
1f20: 6e 74 20 66 69 65 6c 64 20 2a 2f 0a 20 20 69 6e  nt field */.  in
1f30: 74 20 66 6c 61 67 5f 6c 65 66 74 6a 75 73 74 69  t flag_leftjusti
1f40: 66 79 3b 20 20 20 20 20 2f 2a 20 54 72 75 65 20  fy;     /* True 
1f50: 69 66 20 22 2d 22 20 66 6c 61 67 20 69 73 20 70  if "-" flag is p
1f60: 72 65 73 65 6e 74 20 2a 2f 0a 20 20 69 6e 74 20  resent */.  int 
1f70: 66 6c 61 67 5f 70 6c 75 73 73 69 67 6e 3b 20 20  flag_plussign;  
1f80: 20 20 20 20 20 20 2f 2a 20 54 72 75 65 20 69 66        /* True if
1f90: 20 22 2b 22 20 66 6c 61 67 20 69 73 20 70 72 65   "+" flag is pre
1fa0: 73 65 6e 74 20 2a 2f 0a 20 20 69 6e 74 20 66 6c  sent */.  int fl
1fb0: 61 67 5f 62 6c 61 6e 6b 73 69 67 6e 3b 20 20 20  ag_blanksign;   
1fc0: 20 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20 22      /* True if "
1fd0: 20 22 20 66 6c 61 67 20 69 73 20 70 72 65 73 65   " flag is prese
1fe0: 6e 74 20 2a 2f 0a 20 20 69 6e 74 20 66 6c 61 67  nt */.  int flag
1ff0: 5f 61 6c 74 65 72 6e 61 74 65 66 6f 72 6d 3b 20  _alternateform; 
2000: 20 20 2f 2a 20 54 72 75 65 20 69 66 20 22 23 22    /* True if "#"
2010: 20 66 6c 61 67 20 69 73 20 70 72 65 73 65 6e 74   flag is present
2020: 20 2a 2f 0a 20 20 69 6e 74 20 66 6c 61 67 5f 7a   */.  int flag_z
2030: 65 72 6f 70 61 64 3b 20 20 20 20 20 20 20 20 20  eropad;         
2040: 2f 2a 20 54 72 75 65 20 69 66 20 66 69 65 6c 64  /* True if field
2050: 20 77 69 64 74 68 20 63 6f 6e 73 74 61 6e 74 20   width constant 
2060: 73 74 61 72 74 73 20 77 69 74 68 20 7a 65 72 6f  starts with zero
2070: 20 2a 2f 0a 20 20 69 6e 74 20 66 6c 61 67 5f 6c   */.  int flag_l
2080: 6f 6e 67 3b 20 20 20 20 20 20 20 20 20 20 20 20  ong;            
2090: 2f 2a 20 54 72 75 65 20 69 66 20 22 6c 22 20 66  /* True if "l" f
20a0: 6c 61 67 20 69 73 20 70 72 65 73 65 6e 74 20 2a  lag is present *
20b0: 2f 0a 20 20 69 6e 74 20 66 6c 61 67 5f 63 65 6e  /.  int flag_cen
20c0: 74 65 72 3b 20 20 20 20 20 20 20 20 20 20 2f 2a  ter;          /*
20d0: 20 54 72 75 65 20 69 66 20 22 3d 22 20 66 6c 61   True if "=" fla
20e0: 67 20 69 73 20 70 72 65 73 65 6e 74 20 2a 2f 0a  g is present */.
20f0: 20 20 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20    unsigned long 
2100: 6c 6f 6e 67 76 61 6c 75 65 3b 20 20 2f 2a 20 56  longvalue;  /* V
2110: 61 6c 75 65 20 66 6f 72 20 69 6e 74 65 67 65 72  alue for integer
2120: 20 74 79 70 65 73 20 2a 2f 0a 20 20 64 6f 75 62   types */.  doub
2130: 6c 65 20 72 65 61 6c 76 61 6c 75 65 3b 20 20 20  le realvalue;   
2140: 20 20 20 20 20 20 2f 2a 20 56 61 6c 75 65 20 66        /* Value f
2150: 6f 72 20 72 65 61 6c 20 74 79 70 65 73 20 2a 2f  or real types */
2160: 0a 20 20 65 74 5f 69 6e 66 6f 20 2a 69 6e 66 6f  .  et_info *info
2170: 70 3b 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20  p;           /* 
2180: 50 6f 69 6e 74 65 72 20 74 6f 20 74 68 65 20 61  Pointer to the a
2190: 70 70 72 6f 70 72 69 61 74 65 20 69 6e 66 6f 20  ppropriate info 
21a0: 73 74 72 75 63 74 75 72 65 20 2a 2f 0a 20 20 63  structure */.  c
21b0: 68 61 72 20 62 75 66 5b 65 74 42 55 46 53 49 5a  har buf[etBUFSIZ
21c0: 45 5d 3b 20 20 20 20 20 20 2f 2a 20 43 6f 6e 76  E];      /* Conv
21d0: 65 72 73 69 6f 6e 20 62 75 66 66 65 72 20 2a 2f  ersion buffer */
21e0: 0a 20 20 63 68 61 72 20 70 72 65 66 69 78 3b 20  .  char prefix; 
21f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
2200: 50 72 65 66 69 78 20 63 68 61 72 61 63 74 65 72  Prefix character
2210: 2e 20 20 22 2b 22 20 6f 72 20 22 2d 22 20 6f 72  .  "+" or "-" or
2220: 20 22 20 22 20 6f 72 20 27 5c 30 27 2e 20 2a 2f   " " or '\0'. */
2230: 0a 20 20 69 6e 74 20 20 65 72 72 6f 72 66 6c 61  .  int  errorfla
2240: 67 20 3d 20 30 3b 20 20 20 20 20 20 20 2f 2a 20  g = 0;       /* 
2250: 54 72 75 65 20 69 66 20 61 6e 20 65 72 72 6f 72  True if an error
2260: 20 69 73 20 65 6e 63 6f 75 6e 74 65 72 65 64 20   is encountered 
2270: 2a 2f 0a 20 20 65 6e 75 6d 20 65 74 5f 74 79 70  */.  enum et_typ
2280: 65 20 78 74 79 70 65 3b 20 20 20 20 20 20 20 2f  e xtype;       /
2290: 2a 20 43 6f 6e 76 65 72 73 69 6f 6e 20 70 61 72  * Conversion par
22a0: 61 64 69 67 6d 20 2a 2f 0a 20 20 63 68 61 72 20  adigm */.  char 
22b0: 2a 7a 45 78 74 72 61 3b 20 20 20 20 20 20 20 20  *zExtra;        
22c0: 20 20 20 20 20 2f 2a 20 45 78 74 72 61 20 6d 65       /* Extra me
22d0: 6d 6f 72 79 20 75 73 65 64 20 66 6f 72 20 65 74  mory used for et
22e0: 54 43 4c 45 53 43 41 50 45 20 63 6f 6e 76 65 72  TCLESCAPE conver
22f0: 73 69 6f 6e 73 20 2a 2f 0a 20 20 73 74 61 74 69  sions */.  stati
2300: 63 20 63 68 61 72 20 73 70 61 63 65 73 5b 5d 20  c char spaces[] 
2310: 3d 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20  = "             
2320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2340: 20 20 20 20 20 22 0a 20 20 20 20 20 22 20 20 20       ".     "   
2350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2390: 20 20 20 22 3b 0a 23 64 65 66 69 6e 65 20 65 74     ";.#define et
23a0: 53 50 41 43 45 53 49 5a 45 20 28 73 69 7a 65 6f  SPACESIZE (sizeo
23b0: 66 28 73 70 61 63 65 73 29 2d 31 29 0a 23 69 66  f(spaces)-1).#if
23c0: 6e 64 65 66 20 65 74 4e 4f 46 4c 4f 41 54 49 4e  ndef etNOFLOATIN
23d0: 47 50 4f 49 4e 54 0a 20 20 69 6e 74 20 20 65 78  GPOINT.  int  ex
23e0: 70 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  p;              
23f0: 20 20 20 2f 2a 20 65 78 70 6f 6e 65 6e 74 20 6f     /* exponent o
2400: 66 20 72 65 61 6c 20 6e 75 6d 62 65 72 73 20 2a  f real numbers *
2410: 2f 0a 20 20 64 6f 75 62 6c 65 20 72 6f 75 6e 64  /.  double round
2420: 65 72 3b 20 20 20 20 20 20 20 20 20 20 20 2f 2a  er;           /*
2430: 20 55 73 65 64 20 66 6f 72 20 72 6f 75 6e 64 69   Used for roundi
2440: 6e 67 20 66 6c 6f 61 74 69 6e 67 20 70 6f 69 6e  ng floating poin
2450: 74 20 76 61 6c 75 65 73 20 2a 2f 0a 20 20 69 6e  t values */.  in
2460: 74 20 66 6c 61 67 5f 64 70 3b 20 20 20 20 20 20  t flag_dp;      
2470: 20 20 20 20 20 20 20 20 2f 2a 20 54 72 75 65 20          /* True 
2480: 69 66 20 64 65 63 69 6d 61 6c 20 70 6f 69 6e 74  if decimal point
2490: 20 73 68 6f 75 6c 64 20 62 65 20 73 68 6f 77 6e   should be shown
24a0: 20 2a 2f 0a 20 20 69 6e 74 20 66 6c 61 67 5f 72   */.  int flag_r
24b0: 74 7a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20  tz;             
24c0: 2f 2a 20 54 72 75 65 20 69 66 20 74 72 61 69 6c  /* True if trail
24d0: 69 6e 67 20 7a 65 72 6f 73 20 73 68 6f 75 6c 64  ing zeros should
24e0: 20 62 65 20 72 65 6d 6f 76 65 64 20 2a 2f 0a 20   be removed */. 
24f0: 20 69 6e 74 20 66 6c 61 67 5f 65 78 70 3b 20 20   int flag_exp;  
2500: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 72             /* Tr
2510: 75 65 20 74 6f 20 66 6f 72 63 65 20 64 69 73 70  ue to force disp
2520: 6c 61 79 20 6f 66 20 74 68 65 20 65 78 70 6f 6e  lay of the expon
2530: 65 6e 74 20 2a 2f 0a 20 20 69 6e 74 20 6e 73 64  ent */.  int nsd
2540: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ;               
2550: 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20     /* Number of 
2560: 73 69 67 6e 69 66 69 63 61 6e 74 20 64 69 67 69  significant digi
2570: 74 73 20 72 65 74 75 72 6e 65 64 20 2a 2f 0a 23  ts returned */.#
2580: 65 6e 64 69 66 0a 0a 20 20 66 6d 74 20 3d 20 66  endif..  fmt = f
2590: 6f 72 6d 61 74 3b 20 20 20 20 20 20 20 20 20 20  ormat;          
25a0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 50 75             /* Pu
25b0: 74 20 69 6e 20 61 20 72 65 67 69 73 74 65 72 20  t in a register 
25c0: 66 6f 72 20 73 70 65 65 64 20 2a 2f 0a 20 20 63  for speed */.  c
25d0: 6f 75 6e 74 20 3d 20 6c 65 6e 67 74 68 20 3d 20  ount = length = 
25e0: 30 3b 0a 20 20 62 75 66 70 74 20 3d 20 30 3b 0a  0;.  bufpt = 0;.
25f0: 20 20 66 6f 72 28 3b 20 28 63 3d 28 2a 66 6d 74    for(; (c=(*fmt
2600: 29 29 21 3d 30 3b 20 2b 2b 66 6d 74 29 7b 0a 20  ))!=0; ++fmt){. 
2610: 20 20 20 69 66 28 20 63 21 3d 27 25 27 20 29 7b     if( c!='%' ){
2620: 0a 20 20 20 20 20 20 72 65 67 69 73 74 65 72 20  .      register 
2630: 69 6e 74 20 61 6d 74 3b 0a 20 20 20 20 20 20 62  int amt;.      b
2640: 75 66 70 74 20 3d 20 28 63 68 61 72 20 2a 29 66  ufpt = (char *)f
2650: 6d 74 3b 0a 20 20 20 20 20 20 61 6d 74 20 3d 20  mt;.      amt = 
2660: 31 3b 0a 20 20 20 20 20 20 77 68 69 6c 65 28 20  1;.      while( 
2670: 28 63 3d 28 2a 2b 2b 66 6d 74 29 29 21 3d 27 25  (c=(*++fmt))!='%
2680: 27 20 26 26 20 63 21 3d 30 20 29 20 61 6d 74 2b  ' && c!=0 ) amt+
2690: 2b 3b 0a 20 20 20 20 20 20 28 2a 66 75 6e 63 29  +;.      (*func)
26a0: 28 61 72 67 2c 62 75 66 70 74 2c 61 6d 74 29 3b  (arg,bufpt,amt);
26b0: 0a 20 20 20 20 20 20 63 6f 75 6e 74 20 2b 3d 20  .      count += 
26c0: 61 6d 74 3b 0a 20 20 20 20 20 20 69 66 28 20 63  amt;.      if( c
26d0: 3d 3d 30 20 29 20 62 72 65 61 6b 3b 0a 20 20 20  ==0 ) break;.   
26e0: 20 7d 0a 20 20 20 20 69 66 28 20 28 63 3d 28 2a   }.    if( (c=(*
26f0: 2b 2b 66 6d 74 29 29 3d 3d 30 20 29 7b 0a 20 20  ++fmt))==0 ){.  
2700: 20 20 20 20 65 72 72 6f 72 66 6c 61 67 20 3d 20      errorflag = 
2710: 31 3b 0a 20 20 20 20 20 20 28 2a 66 75 6e 63 29  1;.      (*func)
2720: 28 61 72 67 2c 22 25 22 2c 31 29 3b 0a 20 20 20  (arg,"%",1);.   
2730: 20 20 20 63 6f 75 6e 74 2b 2b 3b 0a 20 20 20 20     count++;.    
2740: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20    break;.    }. 
2750: 20 20 20 2f 2a 20 46 69 6e 64 20 6f 75 74 20 77     /* Find out w
2760: 68 61 74 20 66 6c 61 67 73 20 61 72 65 20 70 72  hat flags are pr
2770: 65 73 65 6e 74 20 2a 2f 0a 20 20 20 20 66 6c 61  esent */.    fla
2780: 67 5f 6c 65 66 74 6a 75 73 74 69 66 79 20 3d 20  g_leftjustify = 
2790: 66 6c 61 67 5f 70 6c 75 73 73 69 67 6e 20 3d 20  flag_plussign = 
27a0: 66 6c 61 67 5f 62 6c 61 6e 6b 73 69 67 6e 20 3d  flag_blanksign =
27b0: 20 0a 20 20 20 20 20 66 6c 61 67 5f 61 6c 74 65   .     flag_alte
27c0: 72 6e 61 74 65 66 6f 72 6d 20 3d 20 66 6c 61 67  rnateform = flag
27d0: 5f 7a 65 72 6f 70 61 64 20 3d 20 66 6c 61 67 5f  _zeropad = flag_
27e0: 63 65 6e 74 65 72 20 3d 20 30 3b 0a 20 20 20 20  center = 0;.    
27f0: 64 6f 7b 0a 20 20 20 20 20 20 73 77 69 74 63 68  do{.      switch
2800: 28 20 63 20 29 7b 0a 20 20 20 20 20 20 20 20 63  ( c ){.        c
2810: 61 73 65 20 27 2d 27 3a 20 20 20 66 6c 61 67 5f  ase '-':   flag_
2820: 6c 65 66 74 6a 75 73 74 69 66 79 20 3d 20 31 3b  leftjustify = 1;
2830: 20 20 20 20 20 63 20 3d 20 30 3b 20 20 20 62 72       c = 0;   br
2840: 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 63 61 73  eak;.        cas
2850: 65 20 27 2b 27 3a 20 20 20 66 6c 61 67 5f 70 6c  e '+':   flag_pl
2860: 75 73 73 69 67 6e 20 3d 20 31 3b 20 20 20 20 20  ussign = 1;     
2870: 20 20 20 63 20 3d 20 30 3b 20 20 20 62 72 65 61     c = 0;   brea
2880: 6b 3b 0a 20 20 20 20 20 20 20 20 63 61 73 65 20  k;.        case 
2890: 27 20 27 3a 20 20 20 66 6c 61 67 5f 62 6c 61 6e  ' ':   flag_blan
28a0: 6b 73 69 67 6e 20 3d 20 31 3b 20 20 20 20 20 20  ksign = 1;      
28b0: 20 63 20 3d 20 30 3b 20 20 20 62 72 65 61 6b 3b   c = 0;   break;
28c0: 0a 20 20 20 20 20 20 20 20 63 61 73 65 20 27 23  .        case '#
28d0: 27 3a 20 20 20 66 6c 61 67 5f 61 6c 74 65 72 6e  ':   flag_altern
28e0: 61 74 65 66 6f 72 6d 20 3d 20 31 3b 20 20 20 63  ateform = 1;   c
28f0: 20 3d 20 30 3b 20 20 20 62 72 65 61 6b 3b 0a 20   = 0;   break;. 
2900: 20 20 20 20 20 20 20 63 61 73 65 20 27 30 27 3a         case '0':
2910: 20 20 20 66 6c 61 67 5f 7a 65 72 6f 70 61 64 20     flag_zeropad 
2920: 3d 20 31 3b 20 20 20 20 20 20 20 20 20 63 20 3d  = 1;         c =
2930: 20 30 3b 20 20 20 62 72 65 61 6b 3b 0a 20 20 20   0;   break;.   
2940: 20 20 20 20 20 63 61 73 65 20 27 3d 27 3a 20 20       case '=':  
2950: 20 66 6c 61 67 5f 63 65 6e 74 65 72 20 3d 20 31   flag_center = 1
2960: 3b 20 20 20 20 20 20 20 20 20 20 63 20 3d 20 30  ;          c = 0
2970: 3b 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20  ;   break;.     
2980: 20 20 20 64 65 66 61 75 6c 74 3a 20 20 20 20 20     default:     
2990: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
29a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
29b0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 7d    break;.      }
29c0: 0a 20 20 20 20 7d 77 68 69 6c 65 28 20 63 3d 3d  .    }while( c==
29d0: 30 20 26 26 20 28 63 3d 28 2a 2b 2b 66 6d 74 29  0 && (c=(*++fmt)
29e0: 29 21 3d 30 20 29 3b 0a 20 20 20 20 69 66 28 20  )!=0 );.    if( 
29f0: 66 6c 61 67 5f 63 65 6e 74 65 72 20 29 20 66 6c  flag_center ) fl
2a00: 61 67 5f 6c 65 66 74 6a 75 73 74 69 66 79 20 3d  ag_leftjustify =
2a10: 20 30 3b 0a 20 20 20 20 2f 2a 20 47 65 74 20 74   0;.    /* Get t
2a20: 68 65 20 66 69 65 6c 64 20 77 69 64 74 68 20 2a  he field width *
2a30: 2f 0a 20 20 20 20 77 69 64 74 68 20 3d 20 30 3b  /.    width = 0;
2a40: 0a 20 20 20 20 69 66 28 20 63 3d 3d 27 2a 27 20  .    if( c=='*' 
2a50: 29 7b 0a 20 20 20 20 20 20 77 69 64 74 68 20 3d  ){.      width =
2a60: 20 76 61 5f 61 72 67 28 61 70 2c 69 6e 74 29 3b   va_arg(ap,int);
2a70: 0a 20 20 20 20 20 20 69 66 28 20 77 69 64 74 68  .      if( width
2a80: 3c 30 20 29 7b 0a 20 20 20 20 20 20 20 20 66 6c  <0 ){.        fl
2a90: 61 67 5f 6c 65 66 74 6a 75 73 74 69 66 79 20 3d  ag_leftjustify =
2aa0: 20 31 3b 0a 20 20 20 20 20 20 20 20 77 69 64 74   1;.        widt
2ab0: 68 20 3d 20 2d 77 69 64 74 68 3b 0a 20 20 20 20  h = -width;.    
2ac0: 20 20 7d 0a 20 20 20 20 20 20 63 20 3d 20 2a 2b    }.      c = *+
2ad0: 2b 66 6d 74 3b 0a 20 20 20 20 7d 65 6c 73 65 7b  +fmt;.    }else{
2ae0: 0a 20 20 20 20 20 20 77 68 69 6c 65 28 20 63 3e  .      while( c>
2af0: 3d 27 30 27 20 26 26 20 63 3c 3d 27 39 27 20 29  ='0' && c<='9' )
2b00: 7b 0a 20 20 20 20 20 20 20 20 77 69 64 74 68 20  {.        width 
2b10: 3d 20 77 69 64 74 68 2a 31 30 20 2b 20 63 20 2d  = width*10 + c -
2b20: 20 27 30 27 3b 0a 20 20 20 20 20 20 20 20 63 20   '0';.        c 
2b30: 3d 20 2a 2b 2b 66 6d 74 3b 0a 20 20 20 20 20 20  = *++fmt;.      
2b40: 7d 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 28 20  }.    }.    if( 
2b50: 77 69 64 74 68 20 3e 20 65 74 42 55 46 53 49 5a  width > etBUFSIZ
2b60: 45 2d 31 30 20 29 7b 0a 20 20 20 20 20 20 77 69  E-10 ){.      wi
2b70: 64 74 68 20 3d 20 65 74 42 55 46 53 49 5a 45 2d  dth = etBUFSIZE-
2b80: 31 30 3b 0a 20 20 20 20 7d 0a 20 20 20 20 2f 2a  10;.    }.    /*
2b90: 20 47 65 74 20 74 68 65 20 70 72 65 63 69 73 69   Get the precisi
2ba0: 6f 6e 20 2a 2f 0a 20 20 20 20 69 66 28 20 63 3d  on */.    if( c=
2bb0: 3d 27 2e 27 20 29 7b 0a 20 20 20 20 20 20 70 72  ='.' ){.      pr
2bc0: 65 63 69 73 69 6f 6e 20 3d 20 30 3b 0a 20 20 20  ecision = 0;.   
2bd0: 20 20 20 63 20 3d 20 2a 2b 2b 66 6d 74 3b 0a 20     c = *++fmt;. 
2be0: 20 20 20 20 20 69 66 28 20 63 3d 3d 27 2a 27 20       if( c=='*' 
2bf0: 29 7b 0a 20 20 20 20 20 20 20 20 70 72 65 63 69  ){.        preci
2c00: 73 69 6f 6e 20 3d 20 76 61 5f 61 72 67 28 61 70  sion = va_arg(ap
2c10: 2c 69 6e 74 29 3b 0a 23 69 66 6e 64 65 66 20 65  ,int);.#ifndef e
2c20: 74 43 4f 4d 50 41 54 49 42 49 4c 49 54 59 0a 20  tCOMPATIBILITY. 
2c30: 20 20 20 20 20 20 20 2f 2a 20 54 68 69 73 20 69         /* This i
2c40: 73 20 73 65 6e 73 69 62 6c 65 2c 20 62 75 74 20  s sensible, but 
2c50: 53 55 4e 20 4f 53 20 34 2e 31 20 64 6f 65 73 6e  SUN OS 4.1 doesn
2c60: 27 74 20 64 6f 20 69 74 2e 20 2a 2f 0a 20 20 20  't do it. */.   
2c70: 20 20 20 20 20 69 66 28 20 70 72 65 63 69 73 69       if( precisi
2c80: 6f 6e 3c 30 20 29 20 70 72 65 63 69 73 69 6f 6e  on<0 ) precision
2c90: 20 3d 20 2d 70 72 65 63 69 73 69 6f 6e 3b 0a 23   = -precision;.#
2ca0: 65 6e 64 69 66 0a 20 20 20 20 20 20 20 20 63 20  endif.        c 
2cb0: 3d 20 2a 2b 2b 66 6d 74 3b 0a 20 20 20 20 20 20  = *++fmt;.      
2cc0: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 77  }else{.        w
2cd0: 68 69 6c 65 28 20 63 3e 3d 27 30 27 20 26 26 20  hile( c>='0' && 
2ce0: 63 3c 3d 27 39 27 20 29 7b 0a 20 20 20 20 20 20  c<='9' ){.      
2cf0: 20 20 20 20 70 72 65 63 69 73 69 6f 6e 20 3d 20      precision = 
2d00: 70 72 65 63 69 73 69 6f 6e 2a 31 30 20 2b 20 63  precision*10 + c
2d10: 20 2d 20 27 30 27 3b 0a 20 20 20 20 20 20 20 20   - '0';.        
2d20: 20 20 63 20 3d 20 2a 2b 2b 66 6d 74 3b 0a 20 20    c = *++fmt;.  
2d30: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a        }.      }.
2d40: 20 20 20 20 20 20 2f 2a 20 4c 69 6d 69 74 20 74        /* Limit t
2d50: 68 65 20 70 72 65 63 69 73 69 6f 6e 20 74 6f 20  he precision to 
2d60: 70 72 65 76 65 6e 74 20 6f 76 65 72 66 6c 6f 77  prevent overflow
2d70: 69 6e 67 20 62 75 66 5b 5d 20 64 75 72 69 6e 67  ing buf[] during
2d80: 20 63 6f 6e 76 65 72 73 69 6f 6e 20 2a 2f 0a 20   conversion */. 
2d90: 20 20 20 20 20 69 66 28 20 70 72 65 63 69 73 69       if( precisi
2da0: 6f 6e 3e 65 74 42 55 46 53 49 5a 45 2d 34 30 20  on>etBUFSIZE-40 
2db0: 29 20 70 72 65 63 69 73 69 6f 6e 20 3d 20 65 74  ) precision = et
2dc0: 42 55 46 53 49 5a 45 2d 34 30 3b 0a 20 20 20 20  BUFSIZE-40;.    
2dd0: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 70 72 65  }else{.      pre
2de0: 63 69 73 69 6f 6e 20 3d 20 2d 31 3b 0a 20 20 20  cision = -1;.   
2df0: 20 7d 0a 20 20 20 20 2f 2a 20 47 65 74 20 74 68   }.    /* Get th
2e00: 65 20 63 6f 6e 76 65 72 73 69 6f 6e 20 74 79 70  e conversion typ
2e10: 65 20 6d 6f 64 69 66 69 65 72 20 2a 2f 0a 20 20  e modifier */.  
2e20: 20 20 69 66 28 20 63 3d 3d 27 6c 27 20 29 7b 0a    if( c=='l' ){.
2e30: 20 20 20 20 20 20 66 6c 61 67 5f 6c 6f 6e 67 20        flag_long 
2e40: 3d 20 31 3b 0a 20 20 20 20 20 20 63 20 3d 20 2a  = 1;.      c = *
2e50: 2b 2b 66 6d 74 3b 0a 20 20 20 20 7d 65 6c 73 65  ++fmt;.    }else
2e60: 7b 0a 20 20 20 20 20 20 66 6c 61 67 5f 6c 6f 6e  {.      flag_lon
2e70: 67 20 3d 20 30 3b 0a 20 20 20 20 7d 0a 20 20 20  g = 0;.    }.   
2e80: 20 2f 2a 20 46 65 74 63 68 20 74 68 65 20 69 6e   /* Fetch the in
2e90: 66 6f 20 65 6e 74 72 79 20 66 6f 72 20 74 68 65  fo entry for the
2ea0: 20 66 69 65 6c 64 20 2a 2f 0a 20 20 20 20 69 6e   field */.    in
2eb0: 66 6f 70 20 3d 20 30 3b 0a 20 20 20 20 66 6f 72  fop = 0;.    for
2ec0: 28 69 64 78 3d 30 3b 20 69 64 78 3c 65 74 4e 49  (idx=0; idx<etNI
2ed0: 4e 46 4f 3b 20 69 64 78 2b 2b 29 7b 0a 20 20 20  NFO; idx++){.   
2ee0: 20 20 20 69 66 28 20 63 3d 3d 66 6d 74 69 6e 66     if( c==fmtinf
2ef0: 6f 5b 69 64 78 5d 2e 66 6d 74 74 79 70 65 20 29  o[idx].fmttype )
2f00: 7b 0a 20 20 20 20 20 20 20 20 69 6e 66 6f 70 20  {.        infop 
2f10: 3d 20 26 66 6d 74 69 6e 66 6f 5b 69 64 78 5d 3b  = &fmtinfo[idx];
2f20: 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a  .        break;.
2f30: 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20        }.    }.  
2f40: 20 20 2f 2a 20 4e 6f 20 69 6e 66 6f 20 65 6e 74    /* No info ent
2f50: 72 79 20 66 6f 75 6e 64 2e 20 20 49 74 20 6d 75  ry found.  It mu
2f60: 73 74 20 62 65 20 61 6e 20 65 72 72 6f 72 2e 20  st be an error. 
2f70: 2a 2f 0a 20 20 20 20 69 66 28 20 69 6e 66 6f 70  */.    if( infop
2f80: 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 78 74 79  ==0 ){.      xty
2f90: 70 65 20 3d 20 65 74 45 52 52 4f 52 3b 0a 20 20  pe = etERROR;.  
2fa0: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 78    }else{.      x
2fb0: 74 79 70 65 20 3d 20 69 6e 66 6f 70 2d 3e 74 79  type = infop->ty
2fc0: 70 65 3b 0a 20 20 20 20 7d 0a 20 20 20 20 7a 45  pe;.    }.    zE
2fd0: 78 74 72 61 20 3d 20 30 3b 0a 0a 20 20 20 20 2f  xtra = 0;..    /
2fe0: 2a 0a 20 20 20 20 2a 2a 20 41 74 20 74 68 69 73  *.    ** At this
2ff0: 20 70 6f 69 6e 74 2c 20 76 61 72 69 61 62 6c 65   point, variable
3000: 73 20 61 72 65 20 69 6e 69 74 69 61 6c 69 7a 65  s are initialize
3010: 64 20 61 73 20 66 6f 6c 6c 6f 77 73 3a 0a 20 20  d as follows:.  
3020: 20 20 2a 2a 0a 20 20 20 20 2a 2a 20 20 20 66 6c    **.    **   fl
3030: 61 67 5f 61 6c 74 65 72 6e 61 74 65 66 6f 72 6d  ag_alternateform
3040: 20 20 20 20 20 20 20 20 20 20 54 52 55 45 20 69            TRUE i
3050: 66 20 61 20 27 23 27 20 69 73 20 70 72 65 73 65  f a '#' is prese
3060: 6e 74 2e 0a 20 20 20 20 2a 2a 20 20 20 66 6c 61  nt..    **   fla
3070: 67 5f 70 6c 75 73 73 69 67 6e 20 20 20 20 20 20  g_plussign      
3080: 20 20 20 20 20 20 20 20 20 54 52 55 45 20 69 66           TRUE if
3090: 20 61 20 27 2b 27 20 69 73 20 70 72 65 73 65 6e   a '+' is presen
30a0: 74 2e 0a 20 20 20 20 2a 2a 20 20 20 66 6c 61 67  t..    **   flag
30b0: 5f 6c 65 66 74 6a 75 73 74 69 66 79 20 20 20 20  _leftjustify    
30c0: 20 20 20 20 20 20 20 20 54 52 55 45 20 69 66 20          TRUE if 
30d0: 61 20 27 2d 27 20 69 73 20 70 72 65 73 65 6e 74  a '-' is present
30e0: 20 6f 72 20 69 66 20 74 68 65 0a 20 20 20 20 2a   or if the.    *
30f0: 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  *               
3100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3110: 66 69 65 6c 64 20 77 69 64 74 68 20 77 61 73 20  field width was 
3120: 6e 65 67 61 74 69 76 65 2e 0a 20 20 20 20 2a 2a  negative..    **
3130: 20 20 20 66 6c 61 67 5f 7a 65 72 6f 70 61 64 20     flag_zeropad 
3140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54                 T
3150: 52 55 45 20 69 66 20 74 68 65 20 77 69 64 74 68  RUE if the width
3160: 20 62 65 67 61 6e 20 77 69 74 68 20 30 2e 0a 20   began with 0.. 
3170: 20 20 20 2a 2a 20 20 20 66 6c 61 67 5f 6c 6f 6e     **   flag_lon
3180: 67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  g               
3190: 20 20 20 20 54 52 55 45 20 69 66 20 74 68 65 20      TRUE if the 
31a0: 6c 65 74 74 65 72 20 27 6c 27 20 28 65 6c 6c 29  letter 'l' (ell)
31b0: 20 70 72 65 66 69 78 65 64 0a 20 20 20 20 2a 2a   prefixed.    **
31c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
31d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74                 t
31e0: 68 65 20 63 6f 6e 76 65 72 73 69 6f 6e 20 63 68  he conversion ch
31f0: 61 72 61 63 74 65 72 2e 0a 20 20 20 20 2a 2a 20  aracter..    ** 
3200: 20 20 66 6c 61 67 5f 62 6c 61 6e 6b 73 69 67 6e    flag_blanksign
3210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 52                TR
3220: 55 45 20 69 66 20 61 20 27 20 27 20 69 73 20 70  UE if a ' ' is p
3230: 72 65 73 65 6e 74 2e 0a 20 20 20 20 2a 2a 20 20  resent..    **  
3240: 20 77 69 64 74 68 20 20 20 20 20 20 20 20 20 20   width          
3250: 20 20 20 20 20 20 20 20 20 20 20 20 20 54 68 65               The
3260: 20 73 70 65 63 69 66 69 65 64 20 66 69 65 6c 64   specified field
3270: 20 77 69 64 74 68 2e 20 20 54 68 69 73 20 69 73   width.  This is
3280: 0a 20 20 20 20 2a 2a 20 20 20 20 20 20 20 20 20  .    **         
3290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
32a0: 20 20 20 20 20 20 61 6c 77 61 79 73 20 6e 6f 6e        always non
32b0: 2d 6e 65 67 61 74 69 76 65 2e 20 20 5a 65 72 6f  -negative.  Zero
32c0: 20 69 73 20 74 68 65 20 64 65 66 61 75 6c 74 2e   is the default.
32d0: 0a 20 20 20 20 2a 2a 20 20 20 70 72 65 63 69 73  .    **   precis
32e0: 69 6f 6e 20 20 20 20 20 20 20 20 20 20 20 20 20  ion             
32f0: 20 20 20 20 20 20 54 68 65 20 73 70 65 63 69 66        The specif
3300: 69 65 64 20 70 72 65 63 69 73 69 6f 6e 2e 20 20  ied precision.  
3310: 54 68 65 20 64 65 66 61 75 6c 74 0a 20 20 20 20  The default.    
3320: 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  **              
3330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3340: 20 69 73 20 2d 31 2e 0a 20 20 20 20 2a 2a 20 20   is -1..    **  
3350: 20 78 74 79 70 65 20 20 20 20 20 20 20 20 20 20   xtype          
3360: 20 20 20 20 20 20 20 20 20 20 20 20 20 54 68 65               The
3370: 20 63 6c 61 73 73 20 6f 66 20 74 68 65 20 63 6f   class of the co
3380: 6e 76 65 72 73 69 6f 6e 2e 0a 20 20 20 20 2a 2a  nversion..    **
3390: 20 20 20 69 6e 66 6f 70 20 20 20 20 20 20 20 20     infop        
33a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50                 P
33b0: 6f 69 6e 74 65 72 20 74 6f 20 74 68 65 20 61 70  ointer to the ap
33c0: 70 72 6f 70 72 69 61 74 65 20 69 6e 66 6f 20 73  propriate info s
33d0: 74 72 75 63 74 2e 0a 20 20 20 20 2a 2f 0a 20 20  truct..    */.  
33e0: 20 20 73 77 69 74 63 68 28 20 78 74 79 70 65 20    switch( xtype 
33f0: 29 7b 0a 20 20 20 20 20 20 63 61 73 65 20 65 74  ){.      case et
3400: 4f 52 44 49 4e 41 4c 3a 0a 20 20 20 20 20 20 63  ORDINAL:.      c
3410: 61 73 65 20 65 74 52 41 44 49 58 3a 0a 20 20 20  ase etRADIX:.   
3420: 20 20 20 20 20 69 66 28 20 66 6c 61 67 5f 6c 6f       if( flag_lo
3430: 6e 67 20 29 20 20 6c 6f 6e 67 76 61 6c 75 65 20  ng )  longvalue 
3440: 3d 20 76 61 5f 61 72 67 28 61 70 2c 6c 6f 6e 67  = va_arg(ap,long
3450: 29 3b 0a 20 20 20 20 20 20 20 20 65 6c 73 65 20  );.        else 
3460: 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 6e 67              long
3470: 76 61 6c 75 65 20 3d 20 76 61 5f 61 72 67 28 61  value = va_arg(a
3480: 70 2c 69 6e 74 29 3b 0a 23 69 66 64 65 66 20 65  p,int);.#ifdef e
3490: 74 43 4f 4d 50 41 54 49 42 49 4c 49 54 59 0a 20  tCOMPATIBILITY. 
34a0: 20 20 20 20 20 20 20 2f 2a 20 46 6f 72 20 74 68         /* For th
34b0: 65 20 66 6f 72 6d 61 74 20 25 23 78 2c 20 74 68  e format %#x, th
34c0: 65 20 76 61 6c 75 65 20 7a 65 72 6f 20 69 73 20  e value zero is 
34d0: 70 72 69 6e 74 65 64 20 22 30 22 20 6e 6f 74 20  printed "0" not 
34e0: 22 30 78 30 22 2e 0a 20 20 20 20 20 20 20 20 2a  "0x0"..        *
34f0: 2a 20 49 20 74 68 69 6e 6b 20 74 68 69 73 20 69  * I think this i
3500: 73 20 73 74 75 70 69 64 2e 20 2a 2f 0a 20 20 20  s stupid. */.   
3510: 20 20 20 20 20 69 66 28 20 6c 6f 6e 67 76 61 6c       if( longval
3520: 75 65 3d 3d 30 20 29 20 66 6c 61 67 5f 61 6c 74  ue==0 ) flag_alt
3530: 65 72 6e 61 74 65 66 6f 72 6d 20 3d 20 30 3b 0a  ernateform = 0;.
3540: 23 65 6c 73 65 0a 20 20 20 20 20 20 20 20 2f 2a  #else.        /*
3550: 20 4d 6f 72 65 20 73 65 6e 73 69 62 6c 65 3a 20   More sensible: 
3560: 74 75 72 6e 20 6f 66 66 20 74 68 65 20 70 72 65  turn off the pre
3570: 66 69 78 20 66 6f 72 20 6f 63 74 61 6c 20 28 74  fix for octal (t
3580: 6f 20 70 72 65 76 65 6e 74 20 22 30 30 22 29 2c  o prevent "00"),
3590: 0a 20 20 20 20 20 20 20 20 2a 2a 20 62 75 74 20  .        ** but 
35a0: 6c 65 61 76 65 20 74 68 65 20 70 72 65 66 69 78  leave the prefix
35b0: 20 66 6f 72 20 68 65 78 2e 20 2a 2f 0a 20 20 20   for hex. */.   
35c0: 20 20 20 20 20 69 66 28 20 6c 6f 6e 67 76 61 6c       if( longval
35d0: 75 65 3d 3d 30 20 26 26 20 69 6e 66 6f 70 2d 3e  ue==0 && infop->
35e0: 62 61 73 65 3d 3d 38 20 29 20 66 6c 61 67 5f 61  base==8 ) flag_a
35f0: 6c 74 65 72 6e 61 74 65 66 6f 72 6d 20 3d 20 30  lternateform = 0
3600: 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 20 20 20  ;.#endif.       
3610: 20 69 66 28 20 69 6e 66 6f 70 2d 3e 66 6c 61 67   if( infop->flag
3620: 5f 73 69 67 6e 65 64 20 29 7b 0a 20 20 20 20 20  _signed ){.     
3630: 20 20 20 20 20 69 66 28 20 2a 28 6c 6f 6e 67 2a       if( *(long*
3640: 29 26 6c 6f 6e 67 76 61 6c 75 65 3c 30 20 29 7b  )&longvalue<0 ){
3650: 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 6e  .            lon
3660: 67 76 61 6c 75 65 20 3d 20 2d 2a 28 6c 6f 6e 67  gvalue = -*(long
3670: 2a 29 26 6c 6f 6e 67 76 61 6c 75 65 3b 0a 20 20  *)&longvalue;.  
3680: 20 20 20 20 20 20 20 20 20 20 70 72 65 66 69 78            prefix
3690: 20 3d 20 27 2d 27 3b 0a 20 20 20 20 20 20 20 20   = '-';.        
36a0: 20 20 7d 65 6c 73 65 20 69 66 28 20 66 6c 61 67    }else if( flag
36b0: 5f 70 6c 75 73 73 69 67 6e 20 29 20 20 70 72 65  _plussign )  pre
36c0: 66 69 78 20 3d 20 27 2b 27 3b 0a 20 20 20 20 20  fix = '+';.     
36d0: 20 20 20 20 20 65 6c 73 65 20 69 66 28 20 66 6c       else if( fl
36e0: 61 67 5f 62 6c 61 6e 6b 73 69 67 6e 20 29 20 20  ag_blanksign )  
36f0: 70 72 65 66 69 78 20 3d 20 27 20 27 3b 0a 20 20  prefix = ' ';.  
3700: 20 20 20 20 20 20 20 20 65 6c 73 65 20 20 20 20          else    
3710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3720: 20 20 20 70 72 65 66 69 78 20 3d 20 30 3b 0a 20     prefix = 0;. 
3730: 20 20 20 20 20 20 20 7d 65 6c 73 65 20 20 20 20         }else    
3740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3750: 20 20 20 20 70 72 65 66 69 78 20 3d 20 30 3b 0a      prefix = 0;.
3760: 20 20 20 20 20 20 20 20 69 66 28 20 66 6c 61 67          if( flag
3770: 5f 7a 65 72 6f 70 61 64 20 26 26 20 70 72 65 63  _zeropad && prec
3780: 69 73 69 6f 6e 3c 77 69 64 74 68 2d 28 70 72 65  ision<width-(pre
3790: 66 69 78 21 3d 30 29 20 29 7b 0a 20 20 20 20 20  fix!=0) ){.     
37a0: 20 20 20 20 20 70 72 65 63 69 73 69 6f 6e 20 3d       precision =
37b0: 20 77 69 64 74 68 2d 28 70 72 65 66 69 78 21 3d   width-(prefix!=
37c0: 30 29 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20  0);.        }.  
37d0: 20 20 20 20 20 20 62 75 66 70 74 20 3d 20 26 62        bufpt = &b
37e0: 75 66 5b 65 74 42 55 46 53 49 5a 45 5d 3b 0a 20  uf[etBUFSIZE];. 
37f0: 20 20 20 20 20 20 20 69 66 28 20 78 74 79 70 65         if( xtype
3800: 3d 3d 65 74 4f 52 44 49 4e 41 4c 20 29 7b 0a 20  ==etORDINAL ){. 
3810: 20 20 20 20 20 20 20 20 20 6c 6f 6e 67 20 61 2c           long a,
3820: 62 3b 0a 20 20 20 20 20 20 20 20 20 20 61 20 3d  b;.          a =
3830: 20 6c 6f 6e 67 76 61 6c 75 65 25 31 30 3b 0a 20   longvalue%10;. 
3840: 20 20 20 20 20 20 20 20 20 62 20 3d 20 6c 6f 6e           b = lon
3850: 67 76 61 6c 75 65 25 31 30 30 3b 0a 20 20 20 20  gvalue%100;.    
3860: 20 20 20 20 20 20 62 75 66 70 74 20 2d 3d 20 32        bufpt -= 2
3870: 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20  ;.          if( 
3880: 61 3d 3d 30 20 7c 7c 20 61 3e 33 20 7c 7c 20 28  a==0 || a>3 || (
3890: 62 3e 31 30 20 26 26 20 62 3c 31 34 29 20 29 7b  b>10 && b<14) ){
38a0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 75 66  .            buf
38b0: 70 74 5b 30 5d 20 3d 20 27 74 27 3b 0a 20 20 20  pt[0] = 't';.   
38c0: 20 20 20 20 20 20 20 20 20 62 75 66 70 74 5b 31           bufpt[1
38d0: 5d 20 3d 20 27 68 27 3b 0a 20 20 20 20 20 20 20  ] = 'h';.       
38e0: 20 20 20 7d 65 6c 73 65 20 69 66 28 20 61 3d 3d     }else if( a==
38f0: 31 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20  1 ){.           
3900: 20 62 75 66 70 74 5b 30 5d 20 3d 20 27 73 27 3b   bufpt[0] = 's';
3910: 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 75 66  .            buf
3920: 70 74 5b 31 5d 20 3d 20 27 74 27 3b 0a 20 20 20  pt[1] = 't';.   
3930: 20 20 20 20 20 20 20 7d 65 6c 73 65 20 69 66 28         }else if(
3940: 20 61 3d 3d 32 20 29 7b 0a 20 20 20 20 20 20 20   a==2 ){.       
3950: 20 20 20 20 20 62 75 66 70 74 5b 30 5d 20 3d 20       bufpt[0] = 
3960: 27 6e 27 3b 0a 20 20 20 20 20 20 20 20 20 20 20  'n';.           
3970: 20 62 75 66 70 74 5b 31 5d 20 3d 20 27 64 27 3b   bufpt[1] = 'd';
3980: 0a 20 20 20 20 20 20 20 20 20 20 7d 65 6c 73 65  .          }else
3990: 20 69 66 28 20 61 3d 3d 33 20 29 7b 0a 20 20 20   if( a==3 ){.   
39a0: 20 20 20 20 20 20 20 20 20 62 75 66 70 74 5b 30           bufpt[0
39b0: 5d 20 3d 20 27 72 27 3b 0a 20 20 20 20 20 20 20  ] = 'r';.       
39c0: 20 20 20 20 20 62 75 66 70 74 5b 31 5d 20 3d 20       bufpt[1] = 
39d0: 27 64 27 3b 0a 20 20 20 20 20 20 20 20 20 20 7d  'd';.          }
39e0: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20  .        }.     
39f0: 20 20 20 7b 0a 20 20 20 20 20 20 20 20 20 20 72     {.          r
3a00: 65 67 69 73 74 65 72 20 63 68 61 72 20 2a 63 73  egister char *cs
3a10: 65 74 3b 20 20 20 20 20 20 2f 2a 20 55 73 65 20  et;      /* Use 
3a20: 72 65 67 69 73 74 65 72 73 20 66 6f 72 20 73 70  registers for sp
3a30: 65 65 64 20 2a 2f 0a 20 20 20 20 20 20 20 20 20  eed */.         
3a40: 20 72 65 67 69 73 74 65 72 20 69 6e 74 20 62 61   register int ba
3a50: 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 63 73  se;.          cs
3a60: 65 74 20 3d 20 69 6e 66 6f 70 2d 3e 63 68 61 72  et = infop->char
3a70: 73 65 74 3b 0a 20 20 20 20 20 20 20 20 20 20 62  set;.          b
3a80: 61 73 65 20 3d 20 69 6e 66 6f 70 2d 3e 62 61 73  ase = infop->bas
3a90: 65 3b 0a 20 20 20 20 20 20 20 20 20 20 64 6f 7b  e;.          do{
3aa0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3ab0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3ac0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 43 6f             /* Co
3ad0: 6e 76 65 72 74 20 74 6f 20 61 73 63 69 69 20 2a  nvert to ascii *
3ae0: 2f 0a 20 20 20 20 20 20 20 20 20 20 20 20 2a 28  /.            *(
3af0: 2d 2d 62 75 66 70 74 29 20 3d 20 63 73 65 74 5b  --bufpt) = cset[
3b00: 6c 6f 6e 67 76 61 6c 75 65 25 62 61 73 65 5d 3b  longvalue%base];
3b10: 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 6e  .            lon
3b20: 67 76 61 6c 75 65 20 3d 20 6c 6f 6e 67 76 61 6c  gvalue = longval
3b30: 75 65 2f 62 61 73 65 3b 0a 20 20 20 20 20 20 20  ue/base;.       
3b40: 20 20 20 7d 77 68 69 6c 65 28 20 6c 6f 6e 67 76     }while( longv
3b50: 61 6c 75 65 3e 30 20 29 3b 0a 20 20 20 20 20 20  alue>0 );.      
3b60: 20 20 7d 0a 20 20 20 20 20 20 20 20 6c 65 6e 67    }.        leng
3b70: 74 68 20 3d 20 28 6c 6f 6e 67 29 26 62 75 66 5b  th = (long)&buf[
3b80: 65 74 42 55 46 53 49 5a 45 5d 2d 28 6c 6f 6e 67  etBUFSIZE]-(long
3b90: 29 62 75 66 70 74 3b 0a 20 20 20 20 20 20 20 20  )bufpt;.        
3ba0: 66 6f 72 28 69 64 78 3d 70 72 65 63 69 73 69 6f  for(idx=precisio
3bb0: 6e 2d 6c 65 6e 67 74 68 3b 20 69 64 78 3e 30 3b  n-length; idx>0;
3bc0: 20 69 64 78 2d 2d 29 7b 0a 20 20 20 20 20 20 20   idx--){.       
3bd0: 20 20 20 2a 28 2d 2d 62 75 66 70 74 29 20 3d 20     *(--bufpt) = 
3be0: 27 30 27 3b 20 20 20 20 20 20 20 20 20 20 20 20  '0';            
3bf0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3c00: 20 2f 2a 20 5a 65 72 6f 20 70 61 64 20 2a 2f 0a   /* Zero pad */.
3c10: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
3c20: 20 20 69 66 28 20 70 72 65 66 69 78 20 29 20 2a    if( prefix ) *
3c30: 28 2d 2d 62 75 66 70 74 29 20 3d 20 70 72 65 66  (--bufpt) = pref
3c40: 69 78 3b 20 20 20 20 20 20 20 20 20 20 20 20 20  ix;             
3c50: 20 20 2f 2a 20 41 64 64 20 73 69 67 6e 20 2a 2f    /* Add sign */
3c60: 0a 20 20 20 20 20 20 20 20 69 66 28 20 66 6c 61  .        if( fla
3c70: 67 5f 61 6c 74 65 72 6e 61 74 65 66 6f 72 6d 20  g_alternateform 
3c80: 26 26 20 69 6e 66 6f 70 2d 3e 70 72 65 66 69 78  && infop->prefix
3c90: 20 29 7b 20 20 20 20 20 20 2f 2a 20 41 64 64 20   ){      /* Add 
3ca0: 22 30 22 20 6f 72 20 22 30 78 22 20 2a 2f 0a 20  "0" or "0x" */. 
3cb0: 20 20 20 20 20 20 20 20 20 63 68 61 72 20 2a 70           char *p
3cc0: 72 65 2c 20 78 3b 0a 20 20 20 20 20 20 20 20 20  re, x;.         
3cd0: 20 70 72 65 20 3d 20 69 6e 66 6f 70 2d 3e 70 72   pre = infop->pr
3ce0: 65 66 69 78 3b 0a 20 20 20 20 20 20 20 20 20 20  efix;.          
3cf0: 69 66 28 20 2a 62 75 66 70 74 21 3d 70 72 65 5b  if( *bufpt!=pre[
3d00: 30 5d 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20  0] ){.          
3d10: 20 20 66 6f 72 28 70 72 65 3d 69 6e 66 6f 70 2d    for(pre=infop-
3d20: 3e 70 72 65 66 69 78 3b 20 28 78 3d 28 2a 70 72  >prefix; (x=(*pr
3d30: 65 29 29 21 3d 30 3b 20 70 72 65 2b 2b 29 20 2a  e))!=0; pre++) *
3d40: 28 2d 2d 62 75 66 70 74 29 20 3d 20 78 3b 0a 20  (--bufpt) = x;. 
3d50: 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20           }.     
3d60: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 6c 65 6e     }.        len
3d70: 67 74 68 20 3d 20 28 6c 6f 6e 67 29 26 62 75 66  gth = (long)&buf
3d80: 5b 65 74 42 55 46 53 49 5a 45 5d 2d 28 6c 6f 6e  [etBUFSIZE]-(lon
3d90: 67 29 62 75 66 70 74 3b 0a 20 20 20 20 20 20 20  g)bufpt;.       
3da0: 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 63 61   break;.      ca
3db0: 73 65 20 65 74 46 4c 4f 41 54 3a 0a 20 20 20 20  se etFLOAT:.    
3dc0: 20 20 63 61 73 65 20 65 74 45 58 50 3a 0a 20 20    case etEXP:.  
3dd0: 20 20 20 20 63 61 73 65 20 65 74 47 45 4e 45 52      case etGENER
3de0: 49 43 3a 0a 20 20 20 20 20 20 20 20 72 65 61 6c  IC:.        real
3df0: 76 61 6c 75 65 20 3d 20 76 61 5f 61 72 67 28 61  value = va_arg(a
3e00: 70 2c 64 6f 75 62 6c 65 29 3b 0a 23 69 66 6e 64  p,double);.#ifnd
3e10: 65 66 20 65 74 4e 4f 46 4c 4f 41 54 49 4e 47 50  ef etNOFLOATINGP
3e20: 4f 49 4e 54 0a 20 20 20 20 20 20 20 20 69 66 28  OINT.        if(
3e30: 20 70 72 65 63 69 73 69 6f 6e 3c 30 20 29 20 70   precision<0 ) p
3e40: 72 65 63 69 73 69 6f 6e 20 3d 20 36 3b 20 20 20  recision = 6;   
3e50: 20 20 20 20 20 20 2f 2a 20 53 65 74 20 64 65 66        /* Set def
3e60: 61 75 6c 74 20 70 72 65 63 69 73 69 6f 6e 20 2a  ault precision *
3e70: 2f 0a 20 20 20 20 20 20 20 20 69 66 28 20 70 72  /.        if( pr
3e80: 65 63 69 73 69 6f 6e 3e 65 74 42 55 46 53 49 5a  ecision>etBUFSIZ
3e90: 45 2d 31 30 20 29 20 70 72 65 63 69 73 69 6f 6e  E-10 ) precision
3ea0: 20 3d 20 65 74 42 55 46 53 49 5a 45 2d 31 30 3b   = etBUFSIZE-10;
3eb0: 0a 20 20 20 20 20 20 20 20 69 66 28 20 72 65 61  .        if( rea
3ec0: 6c 76 61 6c 75 65 3c 30 2e 30 20 29 7b 0a 20 20  lvalue<0.0 ){.  
3ed0: 20 20 20 20 20 20 20 20 72 65 61 6c 76 61 6c 75          realvalu
3ee0: 65 20 3d 20 2d 72 65 61 6c 76 61 6c 75 65 3b 0a  e = -realvalue;.
3ef0: 20 20 20 20 20 20 20 20 20 20 70 72 65 66 69 78            prefix
3f00: 20 3d 20 27 2d 27 3b 0a 20 20 20 20 20 20 20 20   = '-';.        
3f10: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 20  }else{.         
3f20: 20 69 66 28 20 66 6c 61 67 5f 70 6c 75 73 73 69   if( flag_plussi
3f30: 67 6e 20 29 20 20 20 20 20 20 20 20 20 20 70 72  gn )          pr
3f40: 65 66 69 78 20 3d 20 27 2b 27 3b 0a 20 20 20 20  efix = '+';.    
3f50: 20 20 20 20 20 20 65 6c 73 65 20 69 66 28 20 66        else if( f
3f60: 6c 61 67 5f 62 6c 61 6e 6b 73 69 67 6e 20 29 20  lag_blanksign ) 
3f70: 20 20 20 70 72 65 66 69 78 20 3d 20 27 20 27 3b     prefix = ' ';
3f80: 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20  .          else 
3f90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3fa0: 20 20 20 20 20 20 20 20 70 72 65 66 69 78 20 3d          prefix =
3fb0: 20 30 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20   0;.        }.  
3fc0: 20 20 20 20 20 20 69 66 28 20 69 6e 66 6f 70 2d        if( infop-
3fd0: 3e 74 79 70 65 3d 3d 65 74 47 45 4e 45 52 49 43  >type==etGENERIC
3fe0: 20 26 26 20 70 72 65 63 69 73 69 6f 6e 3e 30 20   && precision>0 
3ff0: 29 20 70 72 65 63 69 73 69 6f 6e 2d 2d 3b 0a 20  ) precision--;. 
4000: 20 20 20 20 20 20 20 72 6f 75 6e 64 65 72 20 3d         rounder =
4010: 20 30 2e 30 3b 0a 23 69 66 64 65 66 20 43 4f 4d   0.0;.#ifdef COM
4020: 50 41 54 49 42 49 4c 49 54 59 0a 20 20 20 20 20  PATIBILITY.     
4030: 20 20 20 2f 2a 20 52 6f 75 6e 64 69 6e 67 20 77     /* Rounding w
4040: 6f 72 6b 73 20 6c 69 6b 65 20 42 53 44 20 77 68  orks like BSD wh
4050: 65 6e 20 74 68 65 20 63 6f 6e 73 74 61 6e 74 20  en the constant 
4060: 30 2e 34 39 39 39 20 69 73 20 75 73 65 64 2e 20  0.4999 is used. 
4070: 20 57 69 65 72 64 21 20 2a 2f 0a 20 20 20 20 20   Wierd! */.     
4080: 20 20 20 66 6f 72 28 69 64 78 3d 70 72 65 63 69     for(idx=preci
4090: 73 69 6f 6e 2c 20 72 6f 75 6e 64 65 72 3d 30 2e  sion, rounder=0.
40a0: 34 39 39 39 3b 20 69 64 78 3e 30 3b 20 69 64 78  4999; idx>0; idx
40b0: 2d 2d 2c 20 72 6f 75 6e 64 65 72 2a 3d 30 2e 31  --, rounder*=0.1
40c0: 29 3b 0a 23 65 6c 73 65 0a 20 20 20 20 20 20 20  );.#else.       
40d0: 20 2f 2a 20 49 74 20 6d 61 6b 65 73 20 6d 6f 72   /* It makes mor
40e0: 65 20 73 65 6e 73 65 20 74 6f 20 75 73 65 20 30  e sense to use 0
40f0: 2e 35 20 2a 2f 0a 20 20 20 20 20 20 20 20 66 6f  .5 */.        fo
4100: 72 28 69 64 78 3d 70 72 65 63 69 73 69 6f 6e 2c  r(idx=precision,
4110: 20 72 6f 75 6e 64 65 72 3d 30 2e 35 3b 20 69 64   rounder=0.5; id
4120: 78 3e 30 3b 20 69 64 78 2d 2d 2c 20 72 6f 75 6e  x>0; idx--, roun
4130: 64 65 72 2a 3d 30 2e 31 29 3b 0a 23 65 6e 64 69  der*=0.1);.#endi
4140: 66 0a 20 20 20 20 20 20 20 20 69 66 28 20 69 6e  f.        if( in
4150: 66 6f 70 2d 3e 74 79 70 65 3d 3d 65 74 46 4c 4f  fop->type==etFLO
4160: 41 54 20 29 20 72 65 61 6c 76 61 6c 75 65 20 2b  AT ) realvalue +
4170: 3d 20 72 6f 75 6e 64 65 72 3b 0a 20 20 20 20 20  = rounder;.     
4180: 20 20 20 2f 2a 20 4e 6f 72 6d 61 6c 69 7a 65 20     /* Normalize 
4190: 72 65 61 6c 76 61 6c 75 65 20 74 6f 20 77 69 74  realvalue to wit
41a0: 68 69 6e 20 31 30 2e 30 20 3e 20 72 65 61 6c 76  hin 10.0 > realv
41b0: 61 6c 75 65 20 3e 3d 20 31 2e 30 20 2a 2f 0a 20  alue >= 1.0 */. 
41c0: 20 20 20 20 20 20 20 65 78 70 20 3d 20 30 3b 0a         exp = 0;.
41d0: 20 20 20 20 20 20 20 20 69 66 28 20 72 65 61 6c          if( real
41e0: 76 61 6c 75 65 3e 30 2e 30 20 29 7b 0a 20 20 20  value>0.0 ){.   
41f0: 20 20 20 20 20 20 20 69 6e 74 20 6b 20 3d 20 30         int k = 0
4200: 3b 0a 20 20 20 20 20 20 20 20 20 20 77 68 69 6c  ;.          whil
4210: 65 28 20 72 65 61 6c 76 61 6c 75 65 3e 3d 31 65  e( realvalue>=1e
4220: 38 20 26 26 20 6b 2b 2b 3c 31 30 30 20 29 7b 20  8 && k++<100 ){ 
4230: 72 65 61 6c 76 61 6c 75 65 20 2a 3d 20 31 65 2d  realvalue *= 1e-
4240: 38 3b 20 65 78 70 2b 3d 38 3b 20 7d 0a 20 20 20  8; exp+=8; }.   
4250: 20 20 20 20 20 20 20 77 68 69 6c 65 28 20 72 65         while( re
4260: 61 6c 76 61 6c 75 65 3e 3d 31 30 2e 30 20 26 26  alvalue>=10.0 &&
4270: 20 6b 2b 2b 3c 31 30 30 20 29 7b 20 72 65 61 6c   k++<100 ){ real
4280: 76 61 6c 75 65 20 2a 3d 20 30 2e 31 3b 20 65 78  value *= 0.1; ex
4290: 70 2b 2b 3b 20 7d 0a 20 20 20 20 20 20 20 20 20  p++; }.         
42a0: 20 77 68 69 6c 65 28 20 72 65 61 6c 76 61 6c 75   while( realvalu
42b0: 65 3c 31 65 2d 38 20 26 26 20 6b 2b 2b 3c 31 30  e<1e-8 && k++<10
42c0: 30 20 29 7b 20 72 65 61 6c 76 61 6c 75 65 20 2a  0 ){ realvalue *
42d0: 3d 20 31 65 38 3b 20 65 78 70 2d 3d 38 3b 20 7d  = 1e8; exp-=8; }
42e0: 0a 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65  .          while
42f0: 28 20 72 65 61 6c 76 61 6c 75 65 3c 31 2e 30 20  ( realvalue<1.0 
4300: 26 26 20 6b 2b 2b 3c 31 30 30 20 29 7b 20 72 65  && k++<100 ){ re
4310: 61 6c 76 61 6c 75 65 20 2a 3d 20 31 30 2e 30 3b  alvalue *= 10.0;
4320: 20 65 78 70 2d 2d 3b 20 7d 0a 20 20 20 20 20 20   exp--; }.      
4330: 20 20 20 20 69 66 28 20 6b 3e 3d 31 30 30 20 29      if( k>=100 )
4340: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 75  {.            bu
4350: 66 70 74 20 3d 20 22 4e 61 4e 22 3b 0a 20 20 20  fpt = "NaN";.   
4360: 20 20 20 20 20 20 20 20 20 6c 65 6e 67 74 68 20           length 
4370: 3d 20 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20  = 3;.           
4380: 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 20 20   break;.        
4390: 20 20 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20 20    }.        }.  
43a0: 20 20 20 20 20 20 62 75 66 70 74 20 3d 20 62 75        bufpt = bu
43b0: 66 3b 0a 20 20 20 20 20 20 20 20 2f 2a 0a 20 20  f;.        /*.  
43c0: 20 20 20 20 20 20 2a 2a 20 49 66 20 74 68 65 20        ** If the 
43d0: 66 69 65 6c 64 20 74 79 70 65 20 69 73 20 65 74  field type is et
43e0: 47 45 4e 45 52 49 43 2c 20 74 68 65 6e 20 63 6f  GENERIC, then co
43f0: 6e 76 65 72 74 20 74 6f 20 65 69 74 68 65 72 20  nvert to either 
4400: 65 74 45 58 50 0a 20 20 20 20 20 20 20 20 2a 2a  etEXP.        **
4410: 20 6f 72 20 65 74 46 4c 4f 41 54 2c 20 61 73 20   or etFLOAT, as 
4420: 61 70 70 72 6f 70 72 69 61 74 65 2e 0a 20 20 20  appropriate..   
4430: 20 20 20 20 20 2a 2f 0a 20 20 20 20 20 20 20 20       */.        
4440: 66 6c 61 67 5f 65 78 70 20 3d 20 78 74 79 70 65  flag_exp = xtype
4450: 3d 3d 65 74 45 58 50 3b 0a 20 20 20 20 20 20 20  ==etEXP;.       
4460: 20 69 66 28 20 78 74 79 70 65 21 3d 65 74 46 4c   if( xtype!=etFL
4470: 4f 41 54 20 29 7b 0a 20 20 20 20 20 20 20 20 20  OAT ){.         
4480: 20 72 65 61 6c 76 61 6c 75 65 20 2b 3d 20 72 6f   realvalue += ro
4490: 75 6e 64 65 72 3b 0a 20 20 20 20 20 20 20 20 20  under;.         
44a0: 20 69 66 28 20 72 65 61 6c 76 61 6c 75 65 3e 3d   if( realvalue>=
44b0: 31 30 2e 30 20 29 7b 20 72 65 61 6c 76 61 6c 75  10.0 ){ realvalu
44c0: 65 20 2a 3d 20 30 2e 31 3b 20 65 78 70 2b 2b 3b  e *= 0.1; exp++;
44d0: 20 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20   }.        }.   
44e0: 20 20 20 20 20 69 66 28 20 78 74 79 70 65 3d 3d       if( xtype==
44f0: 65 74 47 45 4e 45 52 49 43 20 29 7b 0a 20 20 20  etGENERIC ){.   
4500: 20 20 20 20 20 20 20 66 6c 61 67 5f 72 74 7a 20         flag_rtz 
4510: 3d 20 21 66 6c 61 67 5f 61 6c 74 65 72 6e 61 74  = !flag_alternat
4520: 65 66 6f 72 6d 3b 0a 20 20 20 20 20 20 20 20 20  eform;.         
4530: 20 69 66 28 20 65 78 70 3c 2d 34 20 7c 7c 20 65   if( exp<-4 || e
4540: 78 70 3e 70 72 65 63 69 73 69 6f 6e 20 29 7b 0a  xp>precision ){.
4550: 20 20 20 20 20 20 20 20 20 20 20 20 78 74 79 70              xtyp
4560: 65 20 3d 20 65 74 45 58 50 3b 0a 20 20 20 20 20  e = etEXP;.     
4570: 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20       }else{.    
4580: 20 20 20 20 20 20 20 20 70 72 65 63 69 73 69 6f          precisio
4590: 6e 20 3d 20 70 72 65 63 69 73 69 6f 6e 20 2d 20  n = precision - 
45a0: 65 78 70 3b 0a 20 20 20 20 20 20 20 20 20 20 20  exp;.           
45b0: 20 78 74 79 70 65 20 3d 20 65 74 46 4c 4f 41 54   xtype = etFLOAT
45c0: 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20  ;.          }.  
45d0: 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20        }else{.   
45e0: 20 20 20 20 20 20 20 66 6c 61 67 5f 72 74 7a 20         flag_rtz 
45f0: 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20  = 0;.        }. 
4600: 20 20 20 20 20 20 20 2f 2a 0a 20 20 20 20 20 20         /*.      
4610: 20 20 2a 2a 20 54 68 65 20 22 65 78 70 2b 70 72    ** The "exp+pr
4620: 65 63 69 73 69 6f 6e 22 20 74 65 73 74 20 63 61  ecision" test ca
4630: 75 73 65 73 20 6f 75 74 70 75 74 20 74 6f 20 62  uses output to b
4640: 65 20 6f 66 20 74 79 70 65 20 65 74 45 58 50 20  e of type etEXP 
4650: 69 66 0a 20 20 20 20 20 20 20 20 2a 2a 20 74 68  if.        ** th
4660: 65 20 70 72 65 63 69 73 69 6f 6e 20 69 73 20 74  e precision is t
4670: 6f 6f 20 6c 61 72 67 65 20 74 6f 20 66 69 74 20  oo large to fit 
4680: 69 6e 20 62 75 66 5b 5d 2e 0a 20 20 20 20 20 20  in buf[]..      
4690: 20 20 2a 2f 0a 20 20 20 20 20 20 20 20 6e 73 64    */.        nsd
46a0: 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 69 66   = 0;.        if
46b0: 28 20 78 74 79 70 65 3d 3d 65 74 46 4c 4f 41 54  ( xtype==etFLOAT
46c0: 20 26 26 20 65 78 70 2b 70 72 65 63 69 73 69 6f   && exp+precisio
46d0: 6e 3c 65 74 42 55 46 53 49 5a 45 2d 33 30 20 29  n<etBUFSIZE-30 )
46e0: 7b 0a 20 20 20 20 20 20 20 20 20 20 66 6c 61 67  {.          flag
46f0: 5f 64 70 20 3d 20 28 70 72 65 63 69 73 69 6f 6e  _dp = (precision
4700: 3e 30 20 7c 7c 20 66 6c 61 67 5f 61 6c 74 65 72  >0 || flag_alter
4710: 6e 61 74 65 66 6f 72 6d 29 3b 0a 20 20 20 20 20  nateform);.     
4720: 20 20 20 20 20 69 66 28 20 70 72 65 66 69 78 20       if( prefix 
4730: 29 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 70  ) *(bufpt++) = p
4740: 72 65 66 69 78 3b 20 20 20 20 20 20 20 20 20 2f  refix;         /
4750: 2a 20 53 69 67 6e 20 2a 2f 0a 20 20 20 20 20 20  * Sign */.      
4760: 20 20 20 20 69 66 28 20 65 78 70 3c 30 20 29 20      if( exp<0 ) 
4770: 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 27 30   *(bufpt++) = '0
4780: 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a  ';            /*
4790: 20 44 69 67 69 74 73 20 62 65 66 6f 72 65 20 22   Digits before "
47a0: 2e 22 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20  ." */.          
47b0: 65 6c 73 65 20 66 6f 72 28 3b 20 65 78 70 3e 3d  else for(; exp>=
47c0: 30 3b 20 65 78 70 2d 2d 29 20 2a 28 62 75 66 70  0; exp--) *(bufp
47d0: 74 2b 2b 29 20 3d 20 65 74 5f 67 65 74 64 69 67  t++) = et_getdig
47e0: 69 74 28 26 72 65 61 6c 76 61 6c 75 65 2c 26 6e  it(&realvalue,&n
47f0: 73 64 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69  sd);.          i
4800: 66 28 20 66 6c 61 67 5f 64 70 20 29 20 2a 28 62  f( flag_dp ) *(b
4810: 75 66 70 74 2b 2b 29 20 3d 20 27 2e 27 3b 20 20  ufpt++) = '.';  
4820: 20 20 20 20 20 20 20 20 20 2f 2a 20 54 68 65 20           /* The 
4830: 64 65 63 69 6d 61 6c 20 70 6f 69 6e 74 20 2a 2f  decimal point */
4840: 0a 20 20 20 20 20 20 20 20 20 20 66 6f 72 28 65  .          for(e
4850: 78 70 2b 2b 3b 20 65 78 70 3c 30 20 26 26 20 70  xp++; exp<0 && p
4860: 72 65 63 69 73 69 6f 6e 3e 30 3b 20 70 72 65 63  recision>0; prec
4870: 69 73 69 6f 6e 2d 2d 2c 20 65 78 70 2b 2b 29 7b  ision--, exp++){
4880: 0a 20 20 20 20 20 20 20 20 20 20 20 20 2a 28 62  .            *(b
4890: 75 66 70 74 2b 2b 29 20 3d 20 27 30 27 3b 0a 20  ufpt++) = '0';. 
48a0: 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20           }.     
48b0: 20 20 20 20 20 77 68 69 6c 65 28 20 28 70 72 65       while( (pre
48c0: 63 69 73 69 6f 6e 2d 2d 29 3e 30 20 29 20 2a 28  cision--)>0 ) *(
48d0: 62 75 66 70 74 2b 2b 29 20 3d 20 65 74 5f 67 65  bufpt++) = et_ge
48e0: 74 64 69 67 69 74 28 26 72 65 61 6c 76 61 6c 75  tdigit(&realvalu
48f0: 65 2c 26 6e 73 64 29 3b 0a 20 20 20 20 20 20 20  e,&nsd);.       
4900: 20 20 20 2a 28 62 75 66 70 74 2d 2d 29 20 3d 20     *(bufpt--) = 
4910: 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  0;              
4920: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
4930: 4e 75 6c 6c 20 74 65 72 6d 69 6e 61 74 65 20 2a  Null terminate *
4940: 2f 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20  /.          if( 
4950: 66 6c 61 67 5f 72 74 7a 20 26 26 20 66 6c 61 67  flag_rtz && flag
4960: 5f 64 70 20 29 7b 20 20 20 20 20 2f 2a 20 52 65  _dp ){     /* Re
4970: 6d 6f 76 65 20 74 72 61 69 6c 69 6e 67 20 7a 65  move trailing ze
4980: 72 6f 73 20 61 6e 64 20 22 2e 22 20 2a 2f 0a 20  ros and "." */. 
4990: 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65             while
49a0: 28 20 62 75 66 70 74 3e 3d 62 75 66 20 26 26 20  ( bufpt>=buf && 
49b0: 2a 62 75 66 70 74 3d 3d 27 30 27 20 29 20 2a 28  *bufpt=='0' ) *(
49c0: 62 75 66 70 74 2d 2d 29 20 3d 20 30 3b 0a 20 20  bufpt--) = 0;.  
49d0: 20 20 20 20 20 20 20 20 20 20 69 66 28 20 62 75            if( bu
49e0: 66 70 74 3e 3d 62 75 66 20 26 26 20 2a 62 75 66  fpt>=buf && *buf
49f0: 70 74 3d 3d 27 2e 27 20 29 20 2a 28 62 75 66 70  pt=='.' ) *(bufp
4a00: 74 2d 2d 29 20 3d 20 30 3b 0a 20 20 20 20 20 20  t--) = 0;.      
4a10: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20      }.          
4a20: 62 75 66 70 74 2b 2b 3b 20 20 20 20 20 20 20 20  bufpt++;        
4a30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4a40: 20 20 20 20 2f 2a 20 70 6f 69 6e 74 20 74 6f 20      /* point to 
4a50: 6e 65 78 74 20 66 72 65 65 20 73 6c 6f 74 20 2a  next free slot *
4a60: 2f 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 65 7b  /.        }else{
4a70: 20 20 20 20 2f 2a 20 65 74 45 58 50 20 6f 72 20      /* etEXP or 
4a80: 65 74 47 45 4e 45 52 49 43 20 2a 2f 0a 20 20 20  etGENERIC */.   
4a90: 20 20 20 20 20 20 20 66 6c 61 67 5f 64 70 20 3d         flag_dp =
4aa0: 20 28 70 72 65 63 69 73 69 6f 6e 3e 30 20 7c 7c   (precision>0 ||
4ab0: 20 66 6c 61 67 5f 61 6c 74 65 72 6e 61 74 65 66   flag_alternatef
4ac0: 6f 72 6d 29 3b 0a 20 20 20 20 20 20 20 20 20 20  orm);.          
4ad0: 69 66 28 20 70 72 65 66 69 78 20 29 20 2a 28 62  if( prefix ) *(b
4ae0: 75 66 70 74 2b 2b 29 20 3d 20 70 72 65 66 69 78  ufpt++) = prefix
4af0: 3b 20 20 20 2f 2a 20 53 69 67 6e 20 2a 2f 0a 20  ;   /* Sign */. 
4b00: 20 20 20 20 20 20 20 20 20 2a 28 62 75 66 70 74           *(bufpt
4b10: 2b 2b 29 20 3d 20 65 74 5f 67 65 74 64 69 67 69  ++) = et_getdigi
4b20: 74 28 26 72 65 61 6c 76 61 6c 75 65 2c 26 6e 73  t(&realvalue,&ns
4b30: 64 29 3b 20 20 2f 2a 20 46 69 72 73 74 20 64 69  d);  /* First di
4b40: 67 69 74 20 2a 2f 0a 20 20 20 20 20 20 20 20 20  git */.         
4b50: 20 69 66 28 20 66 6c 61 67 5f 64 70 20 29 20 2a   if( flag_dp ) *
4b60: 28 62 75 66 70 74 2b 2b 29 20 3d 20 27 2e 27 3b  (bufpt++) = '.';
4b70: 20 20 20 20 20 2f 2a 20 44 65 63 69 6d 61 6c 20       /* Decimal 
4b80: 70 6f 69 6e 74 20 2a 2f 0a 20 20 20 20 20 20 20  point */.       
4b90: 20 20 20 77 68 69 6c 65 28 20 28 70 72 65 63 69     while( (preci
4ba0: 73 69 6f 6e 2d 2d 29 3e 30 20 29 20 2a 28 62 75  sion--)>0 ) *(bu
4bb0: 66 70 74 2b 2b 29 20 3d 20 65 74 5f 67 65 74 64  fpt++) = et_getd
4bc0: 69 67 69 74 28 26 72 65 61 6c 76 61 6c 75 65 2c  igit(&realvalue,
4bd0: 26 6e 73 64 29 3b 0a 20 20 20 20 20 20 20 20 20  &nsd);.         
4be0: 20 62 75 66 70 74 2d 2d 3b 20 20 20 20 20 20 20   bufpt--;       
4bf0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4c00: 20 20 20 20 20 2f 2a 20 70 6f 69 6e 74 20 74 6f       /* point to
4c10: 20 6c 61 73 74 20 64 69 67 69 74 20 2a 2f 0a 20   last digit */. 
4c20: 20 20 20 20 20 20 20 20 20 69 66 28 20 66 6c 61           if( fla
4c30: 67 5f 72 74 7a 20 26 26 20 66 6c 61 67 5f 64 70  g_rtz && flag_dp
4c40: 20 29 7b 20 20 20 20 20 20 20 20 20 20 2f 2a 20   ){          /* 
4c50: 52 65 6d 6f 76 65 20 74 61 69 6c 20 7a 65 72 6f  Remove tail zero
4c60: 73 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 20  s */.           
4c70: 20 77 68 69 6c 65 28 20 62 75 66 70 74 3e 3d 62   while( bufpt>=b
4c80: 75 66 20 26 26 20 2a 62 75 66 70 74 3d 3d 27 30  uf && *bufpt=='0
4c90: 27 20 29 20 2a 28 62 75 66 70 74 2d 2d 29 20 3d  ' ) *(bufpt--) =
4ca0: 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20   0;.            
4cb0: 69 66 28 20 62 75 66 70 74 3e 3d 62 75 66 20 26  if( bufpt>=buf &
4cc0: 26 20 2a 62 75 66 70 74 3d 3d 27 2e 27 20 29 20  & *bufpt=='.' ) 
4cd0: 2a 28 62 75 66 70 74 2d 2d 29 20 3d 20 30 3b 0a  *(bufpt--) = 0;.
4ce0: 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20            }.    
4cf0: 20 20 20 20 20 20 62 75 66 70 74 2b 2b 3b 20 20        bufpt++;  
4d00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4d10: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 70 6f 69            /* poi
4d20: 6e 74 20 74 6f 20 6e 65 78 74 20 66 72 65 65 20  nt to next free 
4d30: 73 6c 6f 74 20 2a 2f 0a 20 20 20 20 20 20 20 20  slot */.        
4d40: 20 20 69 66 28 20 65 78 70 20 7c 7c 20 66 6c 61    if( exp || fla
4d50: 67 5f 65 78 70 20 29 7b 0a 20 20 20 20 20 20 20  g_exp ){.       
4d60: 20 20 20 20 20 2a 28 62 75 66 70 74 2b 2b 29 20       *(bufpt++) 
4d70: 3d 20 69 6e 66 6f 70 2d 3e 63 68 61 72 73 65 74  = infop->charset
4d80: 5b 30 5d 3b 0a 20 20 20 20 20 20 20 20 20 20 20  [0];.           
4d90: 20 69 66 28 20 65 78 70 3c 30 20 29 7b 20 2a 28   if( exp<0 ){ *(
4da0: 62 75 66 70 74 2b 2b 29 20 3d 20 27 2d 27 3b 20  bufpt++) = '-'; 
4db0: 65 78 70 20 3d 20 2d 65 78 70 3b 20 7d 20 2f 2a  exp = -exp; } /*
4dc0: 20 73 69 67 6e 20 6f 66 20 65 78 70 20 2a 2f 0a   sign of exp */.
4dd0: 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65              else
4de0: 20 20 20 20 20 20 20 7b 20 2a 28 62 75 66 70 74         { *(bufpt
4df0: 2b 2b 29 20 3d 20 27 2b 27 3b 20 7d 0a 20 20 20  ++) = '+'; }.   
4e00: 20 20 20 20 20 20 20 20 20 69 66 28 20 65 78 70           if( exp
4e10: 3e 3d 31 30 30 20 29 7b 0a 20 20 20 20 20 20 20  >=100 ){.       
4e20: 20 20 20 20 20 20 20 2a 28 62 75 66 70 74 2b 2b         *(bufpt++
4e30: 29 20 3d 20 28 65 78 70 2f 31 30 30 29 2b 27 30  ) = (exp/100)+'0
4e40: 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ';              
4e50: 20 20 2f 2a 20 31 30 30 27 73 20 64 69 67 69 74    /* 100's digit
4e60: 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 20 20   */.            
4e70: 20 20 65 78 70 20 25 3d 20 31 30 30 3b 0a 20 20    exp %= 100;.  
4e80: 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20            }.    
4e90: 20 20 20 20 20 20 20 20 2a 28 62 75 66 70 74 2b          *(bufpt+
4ea0: 2b 29 20 3d 20 65 78 70 2f 31 30 2b 27 30 27 3b  +) = exp/10+'0';
4eb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4ec0: 20 20 20 20 20 2f 2a 20 31 30 27 73 20 64 69 67       /* 10's dig
4ed0: 69 74 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20  it */.          
4ee0: 20 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 65    *(bufpt++) = e
4ef0: 78 70 25 31 30 2b 27 30 27 3b 20 20 20 20 20 20  xp%10+'0';      
4f00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
4f10: 2a 20 31 27 73 20 64 69 67 69 74 20 2a 2f 0a 20  * 1's digit */. 
4f20: 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20           }.     
4f30: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 2f 2a 20     }.        /* 
4f40: 54 68 65 20 63 6f 6e 76 65 72 74 65 64 20 6e 75  The converted nu
4f50: 6d 62 65 72 20 69 73 20 69 6e 20 62 75 66 5b 5d  mber is in buf[]
4f60: 20 61 6e 64 20 7a 65 72 6f 20 74 65 72 6d 69 6e   and zero termin
4f70: 61 74 65 64 2e 20 4f 75 74 70 75 74 20 69 74 2e  ated. Output it.
4f80: 0a 20 20 20 20 20 20 20 20 2a 2a 20 4e 6f 74 65  .        ** Note
4f90: 20 74 68 61 74 20 74 68 65 20 6e 75 6d 62 65 72   that the number
4fa0: 20 69 73 20 69 6e 20 74 68 65 20 75 73 75 61 6c   is in the usual
4fb0: 20 6f 72 64 65 72 2c 20 6e 6f 74 20 72 65 76 65   order, not reve
4fc0: 72 73 65 64 20 61 73 20 77 69 74 68 0a 20 20 20  rsed as with.   
4fd0: 20 20 20 20 20 2a 2a 20 69 6e 74 65 67 65 72 20       ** integer 
4fe0: 63 6f 6e 76 65 72 73 69 6f 6e 73 2e 20 2a 2f 0a  conversions. */.
4ff0: 20 20 20 20 20 20 20 20 6c 65 6e 67 74 68 20 3d          length =
5000: 20 28 6c 6f 6e 67 29 62 75 66 70 74 2d 28 6c 6f   (long)bufpt-(lo
5010: 6e 67 29 62 75 66 3b 0a 20 20 20 20 20 20 20 20  ng)buf;.        
5020: 62 75 66 70 74 20 3d 20 62 75 66 3b 0a 0a 20 20  bufpt = buf;..  
5030: 20 20 20 20 20 20 2f 2a 20 53 70 65 63 69 61 6c        /* Special
5040: 20 63 61 73 65 3a 20 20 41 64 64 20 6c 65 61 64   case:  Add lead
5050: 69 6e 67 20 7a 65 72 6f 73 20 69 66 20 74 68 65  ing zeros if the
5060: 20 66 6c 61 67 5f 7a 65 72 6f 70 61 64 20 66 6c   flag_zeropad fl
5070: 61 67 20 69 73 0a 20 20 20 20 20 20 20 20 2a 2a  ag is.        **
5080: 20 73 65 74 20 61 6e 64 20 77 65 20 61 72 65 20   set and we are 
5090: 6e 6f 74 20 6c 65 66 74 20 6a 75 73 74 69 66 69  not left justifi
50a0: 65 64 20 2a 2f 0a 20 20 20 20 20 20 20 20 69 66  ed */.        if
50b0: 28 20 66 6c 61 67 5f 7a 65 72 6f 70 61 64 20 26  ( flag_zeropad &
50c0: 26 20 21 66 6c 61 67 5f 6c 65 66 74 6a 75 73 74  & !flag_leftjust
50d0: 69 66 79 20 26 26 20 6c 65 6e 67 74 68 20 3c 20  ify && length < 
50e0: 77 69 64 74 68 29 7b 0a 20 20 20 20 20 20 20 20  width){.        
50f0: 20 20 69 6e 74 20 69 3b 0a 20 20 20 20 20 20 20    int i;.       
5100: 20 20 20 69 6e 74 20 6e 50 61 64 20 3d 20 77 69     int nPad = wi
5110: 64 74 68 20 2d 20 6c 65 6e 67 74 68 3b 0a 20 20  dth - length;.  
5120: 20 20 20 20 20 20 20 20 66 6f 72 28 69 3d 77 69          for(i=wi
5130: 64 74 68 3b 20 69 3e 3d 6e 50 61 64 3b 20 69 2d  dth; i>=nPad; i-
5140: 2d 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20  -){.            
5150: 62 75 66 70 74 5b 69 5d 20 3d 20 62 75 66 70 74  bufpt[i] = bufpt
5160: 5b 69 2d 6e 50 61 64 5d 3b 0a 20 20 20 20 20 20  [i-nPad];.      
5170: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20      }.          
5180: 69 20 3d 20 70 72 65 66 69 78 21 3d 30 3b 0a 20  i = prefix!=0;. 
5190: 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 28 20           while( 
51a0: 6e 50 61 64 2d 2d 20 29 20 62 75 66 70 74 5b 69  nPad-- ) bufpt[i
51b0: 2b 2b 5d 20 3d 20 27 30 27 3b 0a 20 20 20 20 20  ++] = '0';.     
51c0: 20 20 20 20 20 6c 65 6e 67 74 68 20 3d 20 77 69       length = wi
51d0: 64 74 68 3b 0a 20 20 20 20 20 20 20 20 7d 0a 23  dth;.        }.#
51e0: 65 6e 64 69 66 0a 20 20 20 20 20 20 20 20 62 72  endif.        br
51f0: 65 61 6b 3b 0a 20 20 20 20 20 20 63 61 73 65 20  eak;.      case 
5200: 65 74 53 49 5a 45 3a 0a 20 20 20 20 20 20 20 20  etSIZE:.        
5210: 2a 28 76 61 5f 61 72 67 28 61 70 2c 69 6e 74 2a  *(va_arg(ap,int*
5220: 29 29 20 3d 20 63 6f 75 6e 74 3b 0a 20 20 20 20  )) = count;.    
5230: 20 20 20 20 6c 65 6e 67 74 68 20 3d 20 77 69 64      length = wid
5240: 74 68 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20  th = 0;.        
5250: 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 63 61 73  break;.      cas
5260: 65 20 65 74 50 45 52 43 45 4e 54 3a 0a 20 20 20  e etPERCENT:.   
5270: 20 20 20 20 20 62 75 66 5b 30 5d 20 3d 20 27 25       buf[0] = '%
5280: 27 3b 0a 20 20 20 20 20 20 20 20 62 75 66 70 74  ';.        bufpt
5290: 20 3d 20 62 75 66 3b 0a 20 20 20 20 20 20 20 20   = buf;.        
52a0: 6c 65 6e 67 74 68 20 3d 20 31 3b 0a 20 20 20 20  length = 1;.    
52b0: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20      break;.     
52c0: 20 63 61 73 65 20 65 74 43 48 41 52 4c 49 54 3a   case etCHARLIT:
52d0: 0a 20 20 20 20 20 20 63 61 73 65 20 65 74 43 48  .      case etCH
52e0: 41 52 58 3a 0a 20 20 20 20 20 20 20 20 63 20 3d  ARX:.        c =
52f0: 20 62 75 66 5b 30 5d 20 3d 20 28 78 74 79 70 65   buf[0] = (xtype
5300: 3d 3d 65 74 43 48 41 52 58 20 3f 20 76 61 5f 61  ==etCHARX ? va_a
5310: 72 67 28 61 70 2c 69 6e 74 29 20 3a 20 2a 2b 2b  rg(ap,int) : *++
5320: 66 6d 74 29 3b 0a 20 20 20 20 20 20 20 20 69 66  fmt);.        if
5330: 28 20 70 72 65 63 69 73 69 6f 6e 3e 3d 30 20 29  ( precision>=0 )
5340: 7b 0a 20 20 20 20 20 20 20 20 20 20 66 6f 72 28  {.          for(
5350: 69 64 78 3d 31 3b 20 69 64 78 3c 70 72 65 63 69  idx=1; idx<preci
5360: 73 69 6f 6e 3b 20 69 64 78 2b 2b 29 20 62 75 66  sion; idx++) buf
5370: 5b 69 64 78 5d 20 3d 20 63 3b 0a 20 20 20 20 20  [idx] = c;.     
5380: 20 20 20 20 20 6c 65 6e 67 74 68 20 3d 20 70 72       length = pr
5390: 65 63 69 73 69 6f 6e 3b 0a 20 20 20 20 20 20 20  ecision;.       
53a0: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20   }else{.        
53b0: 20 20 6c 65 6e 67 74 68 20 3d 31 3b 0a 20 20 20    length =1;.   
53c0: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 62       }.        b
53d0: 75 66 70 74 20 3d 20 62 75 66 3b 0a 20 20 20 20  ufpt = buf;.    
53e0: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20      break;.     
53f0: 20 63 61 73 65 20 65 74 53 54 52 49 4e 47 3a 0a   case etSTRING:.
5400: 20 20 20 20 20 20 20 20 62 75 66 70 74 20 3d 20          bufpt = 
5410: 76 61 5f 61 72 67 28 61 70 2c 63 68 61 72 2a 29  va_arg(ap,char*)
5420: 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 62 75  ;.        if( bu
5430: 66 70 74 3d 3d 30 20 29 20 62 75 66 70 74 20 3d  fpt==0 ) bufpt =
5440: 20 22 28 6e 75 6c 6c 29 22 3b 0a 20 20 20 20 20   "(null)";.     
5450: 20 20 20 6c 65 6e 67 74 68 20 3d 20 73 74 72 6c     length = strl
5460: 65 6e 28 62 75 66 70 74 29 3b 0a 20 20 20 20 20  en(bufpt);.     
5470: 20 20 20 69 66 28 20 70 72 65 63 69 73 69 6f 6e     if( precision
5480: 3e 3d 30 20 26 26 20 70 72 65 63 69 73 69 6f 6e  >=0 && precision
5490: 3c 6c 65 6e 67 74 68 20 29 20 6c 65 6e 67 74 68  <length ) length
54a0: 20 3d 20 70 72 65 63 69 73 69 6f 6e 3b 0a 20 20   = precision;.  
54b0: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20        break;.   
54c0: 20 20 20 63 61 73 65 20 65 74 53 51 4c 45 53 43     case etSQLESC
54d0: 41 50 45 3a 0a 20 20 20 20 20 20 63 61 73 65 20  APE:.      case 
54e0: 65 74 53 51 4c 45 53 43 41 50 45 32 3a 0a 20 20  etSQLESCAPE2:.  
54f0: 20 20 20 20 20 20 7b 0a 20 20 20 20 20 20 20 20        {.        
5500: 20 20 69 6e 74 20 69 2c 20 6a 2c 20 6e 2c 20 63    int i, j, n, c
5510: 2c 20 69 73 6e 75 6c 6c 3b 0a 20 20 20 20 20 20  , isnull;.      
5520: 20 20 20 20 63 68 61 72 20 2a 61 72 67 20 3d 20      char *arg = 
5530: 76 61 5f 61 72 67 28 61 70 2c 63 68 61 72 2a 29  va_arg(ap,char*)
5540: 3b 0a 20 20 20 20 20 20 20 20 20 20 69 73 6e 75  ;.          isnu
5550: 6c 6c 20 3d 20 61 72 67 3d 3d 30 3b 0a 20 20 20  ll = arg==0;.   
5560: 20 20 20 20 20 20 20 69 66 28 20 69 73 6e 75 6c         if( isnul
5570: 6c 20 29 20 61 72 67 20 3d 20 28 78 74 79 70 65  l ) arg = (xtype
5580: 3d 3d 65 74 53 51 4c 45 53 43 41 50 45 32 20 3f  ==etSQLESCAPE2 ?
5590: 20 22 4e 55 4c 4c 22 20 3a 20 22 28 4e 55 4c 4c   "NULL" : "(NULL
55a0: 29 22 29 3b 0a 20 20 20 20 20 20 20 20 20 20 66  )");.          f
55b0: 6f 72 28 69 3d 6e 3d 30 3b 20 28 63 3d 61 72 67  or(i=n=0; (c=arg
55c0: 5b 69 5d 29 21 3d 30 3b 20 69 2b 2b 29 7b 0a 20  [i])!=0; i++){. 
55d0: 20 20 20 20 20 20 20 20 20 20 20 69 66 28 20 63             if( c
55e0: 3d 3d 27 5c 27 27 20 29 20 20 6e 2b 2b 3b 0a 20  =='\'' )  n++;. 
55f0: 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20           }.     
5600: 20 20 20 20 20 6e 20 2b 3d 20 69 20 2b 20 31 20       n += i + 1 
5610: 2b 20 28 28 21 69 73 6e 75 6c 6c 20 26 26 20 78  + ((!isnull && x
5620: 74 79 70 65 3d 3d 65 74 53 51 4c 45 53 43 41 50  type==etSQLESCAP
5630: 45 32 29 20 3f 20 32 20 3a 20 30 29 3b 0a 20 20  E2) ? 2 : 0);.  
5640: 20 20 20 20 20 20 20 20 69 66 28 20 6e 3e 65 74          if( n>et
5650: 42 55 46 53 49 5a 45 20 29 7b 0a 20 20 20 20 20  BUFSIZE ){.     
5660: 20 20 20 20 20 20 20 62 75 66 70 74 20 3d 20 7a         bufpt = z
5670: 45 78 74 72 61 20 3d 20 73 71 6c 69 74 65 4d 61  Extra = sqliteMa
5680: 6c 6c 6f 63 28 20 6e 20 29 3b 0a 20 20 20 20 20  lloc( n );.     
5690: 20 20 20 20 20 20 20 69 66 28 20 62 75 66 70 74         if( bufpt
56a0: 3d 3d 30 20 29 20 72 65 74 75 72 6e 20 2d 31 3b  ==0 ) return -1;
56b0: 0a 20 20 20 20 20 20 20 20 20 20 7d 65 6c 73 65  .          }else
56c0: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 75  {.            bu
56d0: 66 70 74 20 3d 20 62 75 66 3b 0a 20 20 20 20 20  fpt = buf;.     
56e0: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20       }.         
56f0: 20 6a 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20   j = 0;.        
5700: 20 20 69 66 28 20 21 69 73 6e 75 6c 6c 20 26 26    if( !isnull &&
5710: 20 78 74 79 70 65 3d 3d 65 74 53 51 4c 45 53 43   xtype==etSQLESC
5720: 41 50 45 32 20 29 20 62 75 66 70 74 5b 6a 2b 2b  APE2 ) bufpt[j++
5730: 5d 20 3d 20 27 5c 27 27 3b 0a 20 20 20 20 20 20  ] = '\'';.      
5740: 20 20 20 20 66 6f 72 28 69 3d 30 3b 20 28 63 3d      for(i=0; (c=
5750: 61 72 67 5b 69 5d 29 21 3d 30 3b 20 69 2b 2b 29  arg[i])!=0; i++)
5760: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 75  {.            bu
5770: 66 70 74 5b 6a 2b 2b 5d 20 3d 20 63 3b 0a 20 20  fpt[j++] = c;.  
5780: 20 20 20 20 20 20 20 20 20 20 69 66 28 20 63 3d            if( c=
5790: 3d 27 5c 27 27 20 29 20 62 75 66 70 74 5b 6a 2b  ='\'' ) bufpt[j+
57a0: 2b 5d 20 3d 20 63 3b 0a 20 20 20 20 20 20 20 20  +] = c;.        
57b0: 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20 69 66    }.          if
57c0: 28 20 21 69 73 6e 75 6c 6c 20 26 26 20 78 74 79  ( !isnull && xty
57d0: 70 65 3d 3d 65 74 53 51 4c 45 53 43 41 50 45 32  pe==etSQLESCAPE2
57e0: 20 29 20 62 75 66 70 74 5b 6a 2b 2b 5d 20 3d 20   ) bufpt[j++] = 
57f0: 27 5c 27 27 3b 0a 20 20 20 20 20 20 20 20 20 20  '\'';.          
5800: 62 75 66 70 74 5b 6a 5d 20 3d 20 30 3b 0a 20 20  bufpt[j] = 0;.  
5810: 20 20 20 20 20 20 20 20 6c 65 6e 67 74 68 20 3d          length =
5820: 20 6a 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66   j;.          if
5830: 28 20 70 72 65 63 69 73 69 6f 6e 3e 3d 30 20 26  ( precision>=0 &
5840: 26 20 70 72 65 63 69 73 69 6f 6e 3c 6c 65 6e 67  & precision<leng
5850: 74 68 20 29 20 6c 65 6e 67 74 68 20 3d 20 70 72  th ) length = pr
5860: 65 63 69 73 69 6f 6e 3b 0a 20 20 20 20 20 20 20  ecision;.       
5870: 20 7d 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b   }.        break
5880: 3b 0a 20 20 20 20 20 20 63 61 73 65 20 65 74 45  ;.      case etE
5890: 52 52 4f 52 3a 0a 20 20 20 20 20 20 20 20 62 75  RROR:.        bu
58a0: 66 5b 30 5d 20 3d 20 27 25 27 3b 0a 20 20 20 20  f[0] = '%';.    
58b0: 20 20 20 20 62 75 66 5b 31 5d 20 3d 20 63 3b 0a      buf[1] = c;.
58c0: 20 20 20 20 20 20 20 20 65 72 72 6f 72 66 6c 61          errorfla
58d0: 67 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 69  g = 0;.        i
58e0: 64 78 20 3d 20 31 2b 28 63 21 3d 30 29 3b 0a 20  dx = 1+(c!=0);. 
58f0: 20 20 20 20 20 20 20 28 2a 66 75 6e 63 29 28 61         (*func)(a
5900: 72 67 2c 22 25 22 2c 69 64 78 29 3b 0a 20 20 20  rg,"%",idx);.   
5910: 20 20 20 20 20 63 6f 75 6e 74 20 2b 3d 20 69 64       count += id
5920: 78 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 63  x;.        if( c
5930: 3d 3d 30 20 29 20 66 6d 74 2d 2d 3b 0a 20 20 20  ==0 ) fmt--;.   
5940: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20       break;.    
5950: 7d 2f 2a 20 45 6e 64 20 73 77 69 74 63 68 20 6f  }/* End switch o
5960: 76 65 72 20 74 68 65 20 66 6f 72 6d 61 74 20 74  ver the format t
5970: 79 70 65 20 2a 2f 0a 20 20 20 20 2f 2a 0a 20 20  ype */.    /*.  
5980: 20 20 2a 2a 20 54 68 65 20 74 65 78 74 20 6f 66    ** The text of
5990: 20 74 68 65 20 63 6f 6e 76 65 72 73 69 6f 6e 20   the conversion 
59a0: 69 73 20 70 6f 69 6e 74 65 64 20 74 6f 20 62 79  is pointed to by
59b0: 20 22 62 75 66 70 74 22 20 61 6e 64 20 69 73 0a   "bufpt" and is.
59c0: 20 20 20 20 2a 2a 20 22 6c 65 6e 67 74 68 22 20      ** "length" 
59d0: 63 68 61 72 61 63 74 65 72 73 20 6c 6f 6e 67 2e  characters long.
59e0: 20 20 54 68 65 20 66 69 65 6c 64 20 77 69 64 74    The field widt
59f0: 68 20 69 73 20 22 77 69 64 74 68 22 2e 20 20 44  h is "width".  D
5a00: 6f 0a 20 20 20 20 2a 2a 20 74 68 65 20 6f 75 74  o.    ** the out
5a10: 70 75 74 2e 0a 20 20 20 20 2a 2f 0a 20 20 20 20  put..    */.    
5a20: 69 66 28 20 21 66 6c 61 67 5f 6c 65 66 74 6a 75  if( !flag_leftju
5a30: 73 74 69 66 79 20 29 7b 0a 20 20 20 20 20 20 72  stify ){.      r
5a40: 65 67 69 73 74 65 72 20 69 6e 74 20 6e 73 70 61  egister int nspa
5a50: 63 65 3b 0a 20 20 20 20 20 20 6e 73 70 61 63 65  ce;.      nspace
5a60: 20 3d 20 77 69 64 74 68 2d 6c 65 6e 67 74 68 3b   = width-length;
5a70: 0a 20 20 20 20 20 20 69 66 28 20 6e 73 70 61 63  .      if( nspac
5a80: 65 3e 30 20 29 7b 0a 20 20 20 20 20 20 20 20 69  e>0 ){.        i
5a90: 66 28 20 66 6c 61 67 5f 63 65 6e 74 65 72 20 29  f( flag_center )
5aa0: 7b 0a 20 20 20 20 20 20 20 20 20 20 6e 73 70 61  {.          nspa
5ab0: 63 65 20 3d 20 6e 73 70 61 63 65 2f 32 3b 0a 20  ce = nspace/2;. 
5ac0: 20 20 20 20 20 20 20 20 20 77 69 64 74 68 20 2d           width -
5ad0: 3d 20 6e 73 70 61 63 65 3b 0a 20 20 20 20 20 20  = nspace;.      
5ae0: 20 20 20 20 66 6c 61 67 5f 6c 65 66 74 6a 75 73      flag_leftjus
5af0: 74 69 66 79 20 3d 20 31 3b 0a 20 20 20 20 20 20  tify = 1;.      
5b00: 20 20 7d 0a 20 20 20 20 20 20 20 20 63 6f 75 6e    }.        coun
5b10: 74 20 2b 3d 20 6e 73 70 61 63 65 3b 0a 20 20 20  t += nspace;.   
5b20: 20 20 20 20 20 77 68 69 6c 65 28 20 6e 73 70 61       while( nspa
5b30: 63 65 3e 3d 65 74 53 50 41 43 45 53 49 5a 45 20  ce>=etSPACESIZE 
5b40: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 28 2a 66  ){.          (*f
5b50: 75 6e 63 29 28 61 72 67 2c 73 70 61 63 65 73 2c  unc)(arg,spaces,
5b60: 65 74 53 50 41 43 45 53 49 5a 45 29 3b 0a 20 20  etSPACESIZE);.  
5b70: 20 20 20 20 20 20 20 20 6e 73 70 61 63 65 20 2d          nspace -
5b80: 3d 20 65 74 53 50 41 43 45 53 49 5a 45 3b 0a 20  = etSPACESIZE;. 
5b90: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20         }.       
5ba0: 20 69 66 28 20 6e 73 70 61 63 65 3e 30 20 29 20   if( nspace>0 ) 
5bb0: 28 2a 66 75 6e 63 29 28 61 72 67 2c 73 70 61 63  (*func)(arg,spac
5bc0: 65 73 2c 6e 73 70 61 63 65 29 3b 0a 20 20 20 20  es,nspace);.    
5bd0: 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 69 66    }.    }.    if
5be0: 28 20 6c 65 6e 67 74 68 3e 30 20 29 7b 0a 20 20  ( length>0 ){.  
5bf0: 20 20 20 20 28 2a 66 75 6e 63 29 28 61 72 67 2c      (*func)(arg,
5c00: 62 75 66 70 74 2c 6c 65 6e 67 74 68 29 3b 0a 20  bufpt,length);. 
5c10: 20 20 20 20 20 63 6f 75 6e 74 20 2b 3d 20 6c 65       count += le
5c20: 6e 67 74 68 3b 0a 20 20 20 20 7d 0a 20 20 20 20  ngth;.    }.    
5c30: 69 66 28 20 66 6c 61 67 5f 6c 65 66 74 6a 75 73  if( flag_leftjus
5c40: 74 69 66 79 20 29 7b 0a 20 20 20 20 20 20 72 65  tify ){.      re
5c50: 67 69 73 74 65 72 20 69 6e 74 20 6e 73 70 61 63  gister int nspac
5c60: 65 3b 0a 20 20 20 20 20 20 6e 73 70 61 63 65 20  e;.      nspace 
5c70: 3d 20 77 69 64 74 68 2d 6c 65 6e 67 74 68 3b 0a  = width-length;.
5c80: 20 20 20 20 20 20 69 66 28 20 6e 73 70 61 63 65        if( nspace
5c90: 3e 30 20 29 7b 0a 20 20 20 20 20 20 20 20 63 6f  >0 ){.        co
5ca0: 75 6e 74 20 2b 3d 20 6e 73 70 61 63 65 3b 0a 20  unt += nspace;. 
5cb0: 20 20 20 20 20 20 20 77 68 69 6c 65 28 20 6e 73         while( ns
5cc0: 70 61 63 65 3e 3d 65 74 53 50 41 43 45 53 49 5a  pace>=etSPACESIZ
5cd0: 45 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 28  E ){.          (
5ce0: 2a 66 75 6e 63 29 28 61 72 67 2c 73 70 61 63 65  *func)(arg,space
5cf0: 73 2c 65 74 53 50 41 43 45 53 49 5a 45 29 3b 0a  s,etSPACESIZE);.
5d00: 20 20 20 20 20 20 20 20 20 20 6e 73 70 61 63 65            nspace
5d10: 20 2d 3d 20 65 74 53 50 41 43 45 53 49 5a 45 3b   -= etSPACESIZE;
5d20: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20  .        }.     
5d30: 20 20 20 69 66 28 20 6e 73 70 61 63 65 3e 30 20     if( nspace>0 
5d40: 29 20 28 2a 66 75 6e 63 29 28 61 72 67 2c 73 70  ) (*func)(arg,sp
5d50: 61 63 65 73 2c 6e 73 70 61 63 65 29 3b 0a 20 20  aces,nspace);.  
5d60: 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20      }.    }.    
5d70: 69 66 28 20 7a 45 78 74 72 61 20 29 7b 0a 20 20  if( zExtra ){.  
5d80: 20 20 20 20 73 71 6c 69 74 65 46 72 65 65 28 7a      sqliteFree(z
5d90: 45 78 74 72 61 29 3b 0a 20 20 20 20 7d 0a 20 20  Extra);.    }.  
5da0: 7d 2f 2a 20 45 6e 64 20 66 6f 72 20 6c 6f 6f 70  }/* End for loop
5db0: 20 6f 76 65 72 20 74 68 65 20 66 6f 72 6d 61 74   over the format
5dc0: 20 73 74 72 69 6e 67 20 2a 2f 0a 20 20 72 65 74   string */.  ret
5dd0: 75 72 6e 20 65 72 72 6f 72 66 6c 61 67 20 3f 20  urn errorflag ? 
5de0: 2d 31 20 3a 20 63 6f 75 6e 74 3b 0a 7d 20 2f 2a  -1 : count;.} /*
5df0: 20 45 6e 64 20 6f 66 20 66 75 6e 63 74 69 6f 6e   End of function
5e00: 20 2a 2f 0a 0a 0a 2f 2a 20 54 68 69 73 20 73 74   */.../* This st
5e10: 72 75 63 74 75 72 65 20 69 73 20 75 73 65 64 20  ructure is used 
5e20: 74 6f 20 73 74 6f 72 65 20 73 74 61 74 65 20 69  to store state i
5e30: 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 62 6f 75 74  nformation about
5e40: 20 74 68 65 0a 2a 2a 20 77 72 69 74 65 20 74 6f   the.** write to
5e50: 20 6d 65 6d 6f 72 79 20 74 68 61 74 20 69 73 20   memory that is 
5e60: 63 75 72 72 65 6e 74 6c 79 20 69 6e 20 70 72 6f  currently in pro
5e70: 67 72 65 73 73 2e 0a 2a 2f 0a 73 74 72 75 63 74  gress..*/.struct
5e80: 20 73 67 4d 70 72 69 6e 74 66 20 7b 0a 20 20 63   sgMprintf {.  c
5e90: 68 61 72 20 2a 7a 42 61 73 65 3b 20 20 20 20 20  har *zBase;     
5ea0: 2f 2a 20 41 20 62 61 73 65 20 61 6c 6c 6f 63 61  /* A base alloca
5eb0: 74 69 6f 6e 20 2a 2f 0a 20 20 63 68 61 72 20 2a  tion */.  char *
5ec0: 7a 54 65 78 74 3b 20 20 20 20 20 2f 2a 20 54 68  zText;     /* Th
5ed0: 65 20 73 74 72 69 6e 67 20 63 6f 6c 6c 65 63 74  e string collect
5ee0: 65 64 20 73 6f 20 66 61 72 20 2a 2f 0a 20 20 69  ed so far */.  i
5ef0: 6e 74 20 20 6e 43 68 61 72 3b 20 20 20 20 20 20  nt  nChar;      
5f00: 2f 2a 20 4c 65 6e 67 74 68 20 6f 66 20 74 68 65  /* Length of the
5f10: 20 73 74 72 69 6e 67 20 73 6f 20 66 61 72 20 2a   string so far *
5f20: 2f 0a 20 20 69 6e 74 20 20 6e 41 6c 6c 6f 63 3b  /.  int  nAlloc;
5f30: 20 20 20 20 20 2f 2a 20 41 6d 6f 75 6e 74 20 6f       /* Amount o
5f40: 66 20 73 70 61 63 65 20 61 6c 6c 6f 63 61 74 65  f space allocate
5f50: 64 20 69 6e 20 7a 54 65 78 74 20 2a 2f 0a 7d 3b  d in zText */.};
5f60: 0a 0a 2f 2a 20 0a 2a 2a 20 54 68 69 73 20 66 75  ../* .** This fu
5f70: 6e 63 74 69 6f 6e 20 69 6d 70 6c 65 6d 65 6e 74  nction implement
5f80: 73 20 74 68 65 20 63 61 6c 6c 62 61 63 6b 20 66  s the callback f
5f90: 72 6f 6d 20 76 78 70 72 69 6e 74 66 2e 20 0a 2a  rom vxprintf. .*
5fa0: 2a 0a 2a 2a 20 54 68 69 73 20 72 6f 75 74 69 6e  *.** This routin
5fb0: 65 20 61 64 64 20 6e 4e 65 77 43 68 61 72 20 63  e add nNewChar c
5fc0: 68 61 72 61 63 74 65 72 73 20 6f 66 20 74 65 78  haracters of tex
5fd0: 74 20 69 6e 20 7a 4e 65 77 54 65 78 74 20 74 6f  t in zNewText to
5fe0: 0a 2a 2a 20 74 68 65 20 73 67 4d 70 72 69 6e 74  .** the sgMprint
5ff0: 66 20 73 74 72 75 63 74 75 72 65 20 70 6f 69 6e  f structure poin
6000: 74 65 64 20 74 6f 20 62 79 20 22 61 72 67 22 2e  ted to by "arg".
6010: 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20  .*/.static void 
6020: 6d 6f 75 74 28 76 6f 69 64 20 2a 61 72 67 2c 20  mout(void *arg, 
6030: 63 68 61 72 20 2a 7a 4e 65 77 54 65 78 74 2c 20  char *zNewText, 
6040: 69 6e 74 20 6e 4e 65 77 43 68 61 72 29 7b 0a 20  int nNewChar){. 
6050: 20 73 74 72 75 63 74 20 73 67 4d 70 72 69 6e 74   struct sgMprint
6060: 66 20 2a 70 4d 20 3d 20 28 73 74 72 75 63 74 20  f *pM = (struct 
6070: 73 67 4d 70 72 69 6e 74 66 2a 29 61 72 67 3b 0a  sgMprintf*)arg;.
6080: 20 20 69 66 28 20 70 4d 2d 3e 6e 43 68 61 72 20    if( pM->nChar 
6090: 2b 20 6e 4e 65 77 43 68 61 72 20 2b 20 31 20 3e  + nNewChar + 1 >
60a0: 20 70 4d 2d 3e 6e 41 6c 6c 6f 63 20 29 7b 0a 20   pM->nAlloc ){. 
60b0: 20 20 20 70 4d 2d 3e 6e 41 6c 6c 6f 63 20 3d 20     pM->nAlloc = 
60c0: 70 4d 2d 3e 6e 43 68 61 72 20 2b 20 6e 4e 65 77  pM->nChar + nNew
60d0: 43 68 61 72 2a 32 20 2b 20 31 3b 0a 20 20 20 20  Char*2 + 1;.    
60e0: 69 66 28 20 70 4d 2d 3e 7a 54 65 78 74 3d 3d 70  if( pM->zText==p
60f0: 4d 2d 3e 7a 42 61 73 65 20 29 7b 0a 20 20 20 20  M->zBase ){.    
6100: 20 20 70 4d 2d 3e 7a 54 65 78 74 20 3d 20 73 71    pM->zText = sq
6110: 6c 69 74 65 4d 61 6c 6c 6f 63 28 70 4d 2d 3e 6e  liteMalloc(pM->n
6120: 41 6c 6c 6f 63 29 3b 0a 20 20 20 20 20 20 69 66  Alloc);.      if
6130: 28 20 70 4d 2d 3e 7a 54 65 78 74 20 26 26 20 70  ( pM->zText && p
6140: 4d 2d 3e 6e 43 68 61 72 20 29 20 6d 65 6d 63 70  M->nChar ) memcp
6150: 79 28 70 4d 2d 3e 7a 54 65 78 74 2c 70 4d 2d 3e  y(pM->zText,pM->
6160: 7a 42 61 73 65 2c 70 4d 2d 3e 6e 43 68 61 72 29  zBase,pM->nChar)
6170: 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20  ;.    }else{.   
6180: 20 20 20 63 68 61 72 20 2a 7a 20 3d 20 73 71 6c     char *z = sql
6190: 69 74 65 52 65 61 6c 6c 6f 63 28 70 4d 2d 3e 7a  iteRealloc(pM->z
61a0: 54 65 78 74 2c 20 70 4d 2d 3e 6e 41 6c 6c 6f 63  Text, pM->nAlloc
61b0: 29 3b 0a 20 20 20 20 20 20 69 66 28 20 7a 3d 3d  );.      if( z==
61c0: 30 20 29 7b 0a 20 20 20 20 20 20 20 20 73 71 6c  0 ){.        sql
61d0: 69 74 65 46 72 65 65 28 70 4d 2d 3e 7a 54 65 78  iteFree(pM->zTex
61e0: 74 29 3b 0a 20 20 20 20 20 20 20 20 70 4d 2d 3e  t);.        pM->
61f0: 6e 43 68 61 72 20 3d 20 30 3b 0a 20 20 20 20 20  nChar = 0;.     
6200: 20 20 20 70 4d 2d 3e 6e 41 6c 6c 6f 63 20 3d 20     pM->nAlloc = 
6210: 30 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20  0;.      }.     
6220: 20 70 4d 2d 3e 7a 54 65 78 74 20 3d 20 7a 3b 0a   pM->zText = z;.
6230: 20 20 20 20 7d 0a 20 20 7d 0a 20 20 69 66 28 20      }.  }.  if( 
6240: 70 4d 2d 3e 7a 54 65 78 74 20 29 7b 0a 20 20 20  pM->zText ){.   
6250: 20 6d 65 6d 63 70 79 28 26 70 4d 2d 3e 7a 54 65   memcpy(&pM->zTe
6260: 78 74 5b 70 4d 2d 3e 6e 43 68 61 72 5d 2c 20 7a  xt[pM->nChar], z
6270: 4e 65 77 54 65 78 74 2c 20 6e 4e 65 77 43 68 61  NewText, nNewCha
6280: 72 29 3b 0a 20 20 20 20 70 4d 2d 3e 6e 43 68 61  r);.    pM->nCha
6290: 72 20 2b 3d 20 6e 4e 65 77 43 68 61 72 3b 0a 20  r += nNewChar;. 
62a0: 20 20 20 70 4d 2d 3e 7a 54 65 78 74 5b 70 4d 2d     pM->zText[pM-
62b0: 3e 6e 43 68 61 72 5d 20 3d 20 30 3b 0a 20 20 7d  >nChar] = 0;.  }
62c0: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 73 71 6c 69 74 65  .}../*.** sqlite
62d0: 5f 6d 70 72 69 6e 74 66 28 29 20 77 6f 72 6b 73  _mprintf() works
62e0: 20 6c 69 6b 65 20 70 72 69 6e 74 66 28 29 2c 20   like printf(), 
62f0: 62 75 74 20 61 6c 6c 6f 63 61 74 69 6f 6e 73 20  but allocations 
6300: 6d 65 6d 6f 72 79 20 74 6f 20 68 6f 6c 64 20 74  memory to hold t
6310: 68 65 0a 2a 2a 20 72 65 73 75 6c 74 69 6e 67 20  he.** resulting 
6320: 73 74 72 69 6e 67 20 61 6e 64 20 72 65 74 75 72  string and retur
6330: 6e 73 20 61 20 70 6f 69 6e 74 65 72 20 74 6f 20  ns a pointer to 
6340: 74 68 65 20 61 6c 6c 6f 63 61 74 65 64 20 6d 65  the allocated me
6350: 6d 6f 72 79 2e 20 20 55 73 65 0a 2a 2a 20 73 71  mory.  Use.** sq
6360: 6c 69 74 65 46 72 65 65 28 29 20 74 6f 20 72 65  liteFree() to re
6370: 6c 65 61 73 65 20 74 68 65 20 6d 65 6d 6f 72 79  lease the memory
6380: 20 61 6c 6c 6f 63 61 74 65 64 2e 0a 2a 2f 0a 63   allocated..*/.c
6390: 68 61 72 20 2a 73 71 6c 69 74 65 4d 50 72 69 6e  har *sqliteMPrin
63a0: 74 66 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a  tf(const char *z
63b0: 46 6f 72 6d 61 74 2c 20 2e 2e 2e 29 7b 0a 20 20  Format, ...){.  
63c0: 76 61 5f 6c 69 73 74 20 61 70 3b 0a 20 20 73 74  va_list ap;.  st
63d0: 72 75 63 74 20 73 67 4d 70 72 69 6e 74 66 20 73  ruct sgMprintf s
63e0: 4d 70 72 69 6e 74 66 3b 0a 20 20 63 68 61 72 20  Mprintf;.  char 
63f0: 2a 7a 4e 65 77 3b 0a 20 20 63 68 61 72 20 7a 42  *zNew;.  char zB
6400: 75 66 5b 32 30 30 5d 3b 0a 0a 20 20 73 4d 70 72  uf[200];..  sMpr
6410: 69 6e 74 66 2e 6e 43 68 61 72 20 3d 20 30 3b 0a  intf.nChar = 0;.
6420: 20 20 73 4d 70 72 69 6e 74 66 2e 6e 41 6c 6c 6f    sMprintf.nAllo
6430: 63 20 3d 20 73 69 7a 65 6f 66 28 7a 42 75 66 29  c = sizeof(zBuf)
6440: 3b 0a 20 20 73 4d 70 72 69 6e 74 66 2e 7a 54 65  ;.  sMprintf.zTe
6450: 78 74 20 3d 20 7a 42 75 66 3b 0a 20 20 73 4d 70  xt = zBuf;.  sMp
6460: 72 69 6e 74 66 2e 7a 42 61 73 65 20 3d 20 7a 42  rintf.zBase = zB
6470: 75 66 3b 0a 20 20 76 61 5f 73 74 61 72 74 28 61  uf;.  va_start(a
6480: 70 2c 7a 46 6f 72 6d 61 74 29 3b 0a 20 20 76 78  p,zFormat);.  vx
6490: 70 72 69 6e 74 66 28 6d 6f 75 74 2c 26 73 4d 70  printf(mout,&sMp
64a0: 72 69 6e 74 66 2c 7a 46 6f 72 6d 61 74 2c 61 70  rintf,zFormat,ap
64b0: 29 3b 0a 20 20 76 61 5f 65 6e 64 28 61 70 29 3b  );.  va_end(ap);
64c0: 0a 20 20 73 4d 70 72 69 6e 74 66 2e 7a 54 65 78  .  sMprintf.zTex
64d0: 74 5b 73 4d 70 72 69 6e 74 66 2e 6e 43 68 61 72  t[sMprintf.nChar
64e0: 5d 20 3d 20 30 3b 0a 20 20 72 65 74 75 72 6e 20  ] = 0;.  return 
64f0: 73 71 6c 69 74 65 52 65 61 6c 6c 6f 63 28 73 4d  sqliteRealloc(sM
6500: 70 72 69 6e 74 66 2e 7a 54 65 78 74 2c 20 73 4d  printf.zText, sM
6510: 70 72 69 6e 74 66 2e 6e 43 68 61 72 2b 31 29 3b  printf.nChar+1);
6520: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 73 71 6c 69 74 65  .}../*.** sqlite
6530: 5f 6d 70 72 69 6e 74 66 28 29 20 77 6f 72 6b 73  _mprintf() works
6540: 20 6c 69 6b 65 20 70 72 69 6e 74 66 28 29 2c 20   like printf(), 
6550: 62 75 74 20 61 6c 6c 6f 63 61 74 69 6f 6e 73 20  but allocations 
6560: 6d 65 6d 6f 72 79 20 74 6f 20 68 6f 6c 64 20 74  memory to hold t
6570: 68 65 0a 2a 2a 20 72 65 73 75 6c 74 69 6e 67 20  he.** resulting 
6580: 73 74 72 69 6e 67 20 61 6e 64 20 72 65 74 75 72  string and retur
6590: 6e 73 20 61 20 70 6f 69 6e 74 65 72 20 74 6f 20  ns a pointer to 
65a0: 74 68 65 20 61 6c 6c 6f 63 61 74 65 64 20 6d 65  the allocated me
65b0: 6d 6f 72 79 2e 20 20 55 73 65 0a 2a 2a 20 73 71  mory.  Use.** sq
65c0: 6c 69 74 65 46 72 65 65 28 29 20 74 6f 20 72 65  liteFree() to re
65d0: 6c 65 61 73 65 20 74 68 65 20 6d 65 6d 6f 72 79  lease the memory
65e0: 20 61 6c 6c 6f 63 61 74 65 64 2e 0a 2a 2f 0a 63   allocated..*/.c
65f0: 68 61 72 20 2a 73 71 6c 69 74 65 5f 6d 70 72 69  har *sqlite_mpri
6600: 6e 74 66 28 63 6f 6e 73 74 20 63 68 61 72 20 2a  ntf(const char *
6610: 7a 46 6f 72 6d 61 74 2c 20 2e 2e 2e 29 7b 0a 20  zFormat, ...){. 
6620: 20 76 61 5f 6c 69 73 74 20 61 70 3b 0a 20 20 73   va_list ap;.  s
6630: 74 72 75 63 74 20 73 67 4d 70 72 69 6e 74 66 20  truct sgMprintf 
6640: 73 4d 70 72 69 6e 74 66 3b 0a 20 20 63 68 61 72  sMprintf;.  char
6650: 20 2a 7a 4e 65 77 3b 0a 20 20 63 68 61 72 20 7a   *zNew;.  char z
6660: 42 75 66 5b 32 30 30 5d 3b 0a 0a 20 20 73 4d 70  Buf[200];..  sMp
6670: 72 69 6e 74 66 2e 6e 43 68 61 72 20 3d 20 30 3b  rintf.nChar = 0;
6680: 0a 20 20 73 4d 70 72 69 6e 74 66 2e 6e 41 6c 6c  .  sMprintf.nAll
6690: 6f 63 20 3d 20 73 69 7a 65 6f 66 28 7a 42 75 66  oc = sizeof(zBuf
66a0: 29 3b 0a 20 20 73 4d 70 72 69 6e 74 66 2e 7a 54  );.  sMprintf.zT
66b0: 65 78 74 20 3d 20 7a 42 75 66 3b 0a 20 20 73 4d  ext = zBuf;.  sM
66c0: 70 72 69 6e 74 66 2e 7a 42 61 73 65 20 3d 20 7a  printf.zBase = z
66d0: 42 75 66 3b 0a 20 20 76 61 5f 73 74 61 72 74 28  Buf;.  va_start(
66e0: 61 70 2c 7a 46 6f 72 6d 61 74 29 3b 0a 20 20 76  ap,zFormat);.  v
66f0: 78 70 72 69 6e 74 66 28 6d 6f 75 74 2c 26 73 4d  xprintf(mout,&sM
6700: 70 72 69 6e 74 66 2c 7a 46 6f 72 6d 61 74 2c 61  printf,zFormat,a
6710: 70 29 3b 0a 20 20 76 61 5f 65 6e 64 28 61 70 29  p);.  va_end(ap)
6720: 3b 0a 20 20 73 4d 70 72 69 6e 74 66 2e 7a 54 65  ;.  sMprintf.zTe
6730: 78 74 5b 73 4d 70 72 69 6e 74 66 2e 6e 43 68 61  xt[sMprintf.nCha
6740: 72 5d 20 3d 20 30 3b 0a 20 20 7a 4e 65 77 20 3d  r] = 0;.  zNew =
6750: 20 6d 61 6c 6c 6f 63 28 20 73 4d 70 72 69 6e 74   malloc( sMprint
6760: 66 2e 6e 43 68 61 72 2b 31 20 29 3b 0a 20 20 69  f.nChar+1 );.  i
6770: 66 28 20 7a 4e 65 77 20 29 20 73 74 72 63 70 79  f( zNew ) strcpy
6780: 28 7a 4e 65 77 2c 73 4d 70 72 69 6e 74 66 2e 7a  (zNew,sMprintf.z
6790: 54 65 78 74 29 3b 0a 20 20 69 66 28 20 73 4d 70  Text);.  if( sMp
67a0: 72 69 6e 74 66 2e 7a 54 65 78 74 21 3d 73 4d 70  rintf.zText!=sMp
67b0: 72 69 6e 74 66 2e 7a 42 61 73 65 20 29 7b 0a 20  rintf.zBase ){. 
67c0: 20 20 20 73 71 6c 69 74 65 46 72 65 65 28 73 4d     sqliteFree(sM
67d0: 70 72 69 6e 74 66 2e 7a 54 65 78 74 29 3b 0a 20  printf.zText);. 
67e0: 20 7d 0a 20 20 72 65 74 75 72 6e 20 7a 4e 65 77   }.  return zNew
67f0: 3b 0a 7d 0a 0a 2f 2a 20 54 68 69 73 20 69 73 20  ;.}../* This is 
6800: 74 68 65 20 76 61 72 61 72 67 73 20 76 65 72 73  the varargs vers
6810: 69 6f 6e 20 6f 66 20 73 71 6c 69 74 65 5f 6d 70  ion of sqlite_mp
6820: 72 69 6e 74 66 2e 20 20 0a 2a 2f 0a 63 68 61 72  rintf.  .*/.char
6830: 20 2a 73 71 6c 69 74 65 5f 76 6d 70 72 69 6e 74   *sqlite_vmprint
6840: 66 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46  f(const char *zF
6850: 6f 72 6d 61 74 2c 20 76 61 5f 6c 69 73 74 20 61  ormat, va_list a
6860: 70 29 7b 0a 20 20 73 74 72 75 63 74 20 73 67 4d  p){.  struct sgM
6870: 70 72 69 6e 74 66 20 73 4d 70 72 69 6e 74 66 3b  printf sMprintf;
6880: 0a 20 20 63 68 61 72 20 2a 7a 4e 65 77 3b 0a 20  .  char *zNew;. 
6890: 20 63 68 61 72 20 7a 42 75 66 5b 32 30 30 5d 3b   char zBuf[200];
68a0: 0a 20 20 73 4d 70 72 69 6e 74 66 2e 6e 43 68 61  .  sMprintf.nCha
68b0: 72 20 3d 20 30 3b 0a 20 20 73 4d 70 72 69 6e 74  r = 0;.  sMprint
68c0: 66 2e 7a 54 65 78 74 20 3d 20 7a 42 75 66 3b 0a  f.zText = zBuf;.
68d0: 20 20 73 4d 70 72 69 6e 74 66 2e 6e 41 6c 6c 6f    sMprintf.nAllo
68e0: 63 20 3d 20 73 69 7a 65 6f 66 28 7a 42 75 66 29  c = sizeof(zBuf)
68f0: 3b 0a 20 20 73 4d 70 72 69 6e 74 66 2e 7a 42 61  ;.  sMprintf.zBa
6900: 73 65 20 3d 20 7a 42 75 66 3b 0a 20 20 76 78 70  se = zBuf;.  vxp
6910: 72 69 6e 74 66 28 6d 6f 75 74 2c 26 73 4d 70 72  rintf(mout,&sMpr
6920: 69 6e 74 66 2c 7a 46 6f 72 6d 61 74 2c 61 70 29  intf,zFormat,ap)
6930: 3b 0a 20 20 73 4d 70 72 69 6e 74 66 2e 7a 54 65  ;.  sMprintf.zTe
6940: 78 74 5b 73 4d 70 72 69 6e 74 66 2e 6e 43 68 61  xt[sMprintf.nCha
6950: 72 5d 20 3d 20 30 3b 0a 20 20 7a 4e 65 77 20 3d  r] = 0;.  zNew =
6960: 20 6d 61 6c 6c 6f 63 28 20 73 4d 70 72 69 6e 74   malloc( sMprint
6970: 66 2e 6e 43 68 61 72 2b 31 20 29 3b 0a 20 20 69  f.nChar+1 );.  i
6980: 66 28 20 7a 4e 65 77 20 29 20 73 74 72 63 70 79  f( zNew ) strcpy
6990: 28 7a 4e 65 77 2c 73 4d 70 72 69 6e 74 66 2e 7a  (zNew,sMprintf.z
69a0: 54 65 78 74 29 3b 0a 20 20 69 66 28 20 73 4d 70  Text);.  if( sMp
69b0: 72 69 6e 74 66 2e 7a 54 65 78 74 21 3d 73 4d 70  rintf.zText!=sMp
69c0: 72 69 6e 74 66 2e 7a 42 61 73 65 20 29 7b 0a 20  rintf.zBase ){. 
69d0: 20 20 20 73 71 6c 69 74 65 46 72 65 65 28 73 4d     sqliteFree(sM
69e0: 70 72 69 6e 74 66 2e 7a 54 65 78 74 29 3b 0a 20  printf.zText);. 
69f0: 20 7d 0a 20 20 72 65 74 75 72 6e 20 7a 4e 65 77   }.  return zNew
6a00: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 66  ;.}../*.** The f
6a10: 6f 6c 6c 6f 77 69 6e 67 20 66 6f 75 72 20 72 6f  ollowing four ro
6a20: 75 74 69 6e 65 73 20 69 6d 70 6c 65 6d 65 6e 74  utines implement
6a30: 20 74 68 65 20 76 61 72 61 72 67 73 20 76 65 72   the varargs ver
6a40: 73 69 6f 6e 73 20 6f 66 20 74 68 65 0a 2a 2a 20  sions of the.** 
6a50: 73 71 6c 69 74 65 5f 65 78 65 63 28 29 20 61 6e  sqlite_exec() an
6a60: 64 20 73 71 6c 69 74 65 5f 67 65 74 5f 74 61 62  d sqlite_get_tab
6a70: 6c 65 28 29 20 69 6e 74 65 72 66 61 63 65 73 2e  le() interfaces.
6a80: 20 20 53 65 65 20 74 68 65 20 73 71 6c 69 74 65    See the sqlite
6a90: 2e 68 0a 2a 2a 20 68 65 61 64 65 72 20 66 69 6c  .h.** header fil
6aa0: 65 73 20 66 6f 72 20 61 20 6d 6f 72 65 20 64 65  es for a more de
6ab0: 74 61 69 6c 65 64 20 64 65 73 63 72 69 70 74 69  tailed descripti
6ac0: 6f 6e 20 6f 66 20 68 6f 77 20 74 68 65 73 65 20  on of how these 
6ad0: 69 6e 74 65 72 66 61 63 65 73 0a 2a 2a 20 77 6f  interfaces.** wo
6ae0: 72 6b 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 73 65 20  rk..**.** These 
6af0: 72 6f 75 74 69 6e 65 73 20 61 72 65 20 61 6c 6c  routines are all
6b00: 20 6a 75 73 74 20 73 69 6d 70 6c 65 20 77 72 61   just simple wra
6b10: 70 70 65 72 73 2e 0a 2a 2f 0a 69 6e 74 20 73 71  ppers..*/.int sq
6b20: 6c 69 74 65 5f 65 78 65 63 5f 70 72 69 6e 74 66  lite_exec_printf
6b30: 28 0a 20 20 73 71 6c 69 74 65 20 2a 64 62 2c 20  (.  sqlite *db, 
6b40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
6b50: 20 20 2f 2a 20 41 6e 20 6f 70 65 6e 20 64 61 74    /* An open dat
6b60: 61 62 61 73 65 20 2a 2f 0a 20 20 63 6f 6e 73 74  abase */.  const
6b70: 20 63 68 61 72 20 2a 73 71 6c 46 6f 72 6d 61 74   char *sqlFormat
6b80: 2c 20 20 20 20 20 20 20 20 2f 2a 20 70 72 69 6e  ,        /* prin
6b90: 74 66 2d 73 74 79 6c 65 20 66 6f 72 6d 61 74 20  tf-style format 
6ba0: 73 74 72 69 6e 67 20 66 6f 72 20 74 68 65 20 53  string for the S
6bb0: 51 4c 20 2a 2f 0a 20 20 73 71 6c 69 74 65 5f 63  QL */.  sqlite_c
6bc0: 61 6c 6c 62 61 63 6b 20 78 43 61 6c 6c 62 61 63  allback xCallbac
6bd0: 6b 2c 20 20 20 20 2f 2a 20 43 61 6c 6c 62 61 63  k,    /* Callbac
6be0: 6b 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20  k function */.  
6bf0: 76 6f 69 64 20 2a 70 41 72 67 2c 20 20 20 20 20  void *pArg,     
6c00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
6c10: 20 31 73 74 20 61 72 67 75 6d 65 6e 74 20 74 6f   1st argument to
6c20: 20 63 61 6c 6c 62 61 63 6b 20 66 75 6e 63 74 69   callback functi
6c30: 6f 6e 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 65  on */.  char **e
6c40: 72 72 6d 73 67 2c 20 20 20 20 20 20 20 20 20 20  rrmsg,          
6c50: 20 20 20 20 20 20 2f 2a 20 45 72 72 6f 72 20 6d        /* Error m
6c60: 73 67 20 77 72 69 74 74 65 6e 20 68 65 72 65 20  sg written here 
6c70: 2a 2f 0a 20 20 2e 2e 2e 20 20 20 20 20 20 20 20  */.  ...        
6c80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
6c90: 20 20 20 2f 2a 20 41 72 67 75 6d 65 6e 74 73 20     /* Arguments 
6ca0: 74 6f 20 74 68 65 20 66 6f 72 6d 61 74 20 73 74  to the format st
6cb0: 72 69 6e 67 2e 20 2a 2f 0a 29 7b 0a 20 20 76 61  ring. */.){.  va
6cc0: 5f 6c 69 73 74 20 61 70 3b 0a 20 20 69 6e 74 20  _list ap;.  int 
6cd0: 72 63 3b 0a 0a 20 20 76 61 5f 73 74 61 72 74 28  rc;..  va_start(
6ce0: 61 70 2c 20 65 72 72 6d 73 67 29 3b 0a 20 20 72  ap, errmsg);.  r
6cf0: 63 20 3d 20 73 71 6c 69 74 65 5f 65 78 65 63 5f  c = sqlite_exec_
6d00: 76 70 72 69 6e 74 66 28 64 62 2c 20 73 71 6c 46  vprintf(db, sqlF
6d10: 6f 72 6d 61 74 2c 20 78 43 61 6c 6c 62 61 63 6b  ormat, xCallback
6d20: 2c 20 70 41 72 67 2c 20 65 72 72 6d 73 67 2c 20  , pArg, errmsg, 
6d30: 61 70 29 3b 0a 20 20 76 61 5f 65 6e 64 28 61 70  ap);.  va_end(ap
6d40: 29 3b 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a  );.  return rc;.
6d50: 7d 0a 69 6e 74 20 73 71 6c 69 74 65 5f 65 78 65  }.int sqlite_exe
6d60: 63 5f 76 70 72 69 6e 74 66 28 0a 20 20 73 71 6c  c_vprintf(.  sql
6d70: 69 74 65 20 2a 64 62 2c 20 20 20 20 20 20 20 20  ite *db,        
6d80: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 41 6e             /* An
6d90: 20 6f 70 65 6e 20 64 61 74 61 62 61 73 65 20 2a   open database *
6da0: 2f 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a  /.  const char *
6db0: 73 71 6c 46 6f 72 6d 61 74 2c 20 20 20 20 20 20  sqlFormat,      
6dc0: 20 20 2f 2a 20 70 72 69 6e 74 66 2d 73 74 79 6c    /* printf-styl
6dd0: 65 20 66 6f 72 6d 61 74 20 73 74 72 69 6e 67 20  e format string 
6de0: 66 6f 72 20 74 68 65 20 53 51 4c 20 2a 2f 0a 20  for the SQL */. 
6df0: 20 73 71 6c 69 74 65 5f 63 61 6c 6c 62 61 63 6b   sqlite_callback
6e00: 20 78 43 61 6c 6c 62 61 63 6b 2c 20 20 20 20 2f   xCallback,    /
6e10: 2a 20 43 61 6c 6c 62 61 63 6b 20 66 75 6e 63 74  * Callback funct
6e20: 69 6f 6e 20 2a 2f 0a 20 20 76 6f 69 64 20 2a 70  ion */.  void *p
6e30: 41 72 67 2c 20 20 20 20 20 20 20 20 20 20 20 20  Arg,            
6e40: 20 20 20 20 20 20 20 2f 2a 20 31 73 74 20 61 72         /* 1st ar
6e50: 67 75 6d 65 6e 74 20 74 6f 20 63 61 6c 6c 62 61  gument to callba
6e60: 63 6b 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20  ck function */. 
6e70: 20 63 68 61 72 20 2a 2a 65 72 72 6d 73 67 2c 20   char **errmsg, 
6e80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
6e90: 2a 20 45 72 72 6f 72 20 6d 73 67 20 77 72 69 74  * Error msg writ
6ea0: 74 65 6e 20 68 65 72 65 20 2a 2f 0a 20 20 76 61  ten here */.  va
6eb0: 5f 6c 69 73 74 20 61 70 20 20 20 20 20 20 20 20  _list ap        
6ec0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 41              /* A
6ed0: 72 67 75 6d 65 6e 74 73 20 74 6f 20 74 68 65 20  rguments to the 
6ee0: 66 6f 72 6d 61 74 20 73 74 72 69 6e 67 2e 20 2a  format string. *
6ef0: 2f 0a 29 7b 0a 20 20 63 68 61 72 20 2a 7a 53 71  /.){.  char *zSq
6f00: 6c 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 20 20  l;.  int rc;..  
6f10: 7a 53 71 6c 20 3d 20 73 71 6c 69 74 65 5f 76 6d  zSql = sqlite_vm
6f20: 70 72 69 6e 74 66 28 73 71 6c 46 6f 72 6d 61 74  printf(sqlFormat
6f30: 2c 20 61 70 29 3b 0a 20 20 72 63 20 3d 20 73 71  , ap);.  rc = sq
6f40: 6c 69 74 65 5f 65 78 65 63 28 64 62 2c 20 7a 53  lite_exec(db, zS
6f50: 71 6c 2c 20 78 43 61 6c 6c 62 61 63 6b 2c 20 70  ql, xCallback, p
6f60: 41 72 67 2c 20 65 72 72 6d 73 67 29 3b 0a 20 20  Arg, errmsg);.  
6f70: 66 72 65 65 28 7a 53 71 6c 29 3b 0a 20 20 72 65  free(zSql);.  re
6f80: 74 75 72 6e 20 72 63 3b 0a 7d 0a 69 6e 74 20 73  turn rc;.}.int s
6f90: 71 6c 69 74 65 5f 67 65 74 5f 74 61 62 6c 65 5f  qlite_get_table_
6fa0: 70 72 69 6e 74 66 28 0a 20 20 73 71 6c 69 74 65  printf(.  sqlite
6fb0: 20 2a 64 62 2c 20 20 20 20 20 20 20 20 20 20 20   *db,           
6fc0: 20 2f 2a 20 41 6e 20 6f 70 65 6e 20 64 61 74 61   /* An open data
6fd0: 62 61 73 65 20 2a 2f 0a 20 20 63 6f 6e 73 74 20  base */.  const 
6fe0: 63 68 61 72 20 2a 73 71 6c 46 6f 72 6d 61 74 2c  char *sqlFormat,
6ff0: 20 2f 2a 20 70 72 69 6e 74 66 2d 73 74 79 6c 65   /* printf-style
7000: 20 66 6f 72 6d 61 74 20 73 74 72 69 6e 67 20 66   format string f
7010: 6f 72 20 74 68 65 20 53 51 4c 20 2a 2f 0a 20 20  or the SQL */.  
7020: 63 68 61 72 20 2a 2a 2a 72 65 73 75 6c 74 70 2c  char ***resultp,
7030: 20 20 20 20 20 20 20 2f 2a 20 52 65 73 75 6c 74         /* Result
7040: 20 77 72 69 74 74 65 6e 20 74 6f 20 61 20 63 68   written to a ch
7050: 61 72 20 2a 5b 5d 20 20 74 68 61 74 20 74 68 69  ar *[]  that thi
7060: 73 20 70 6f 69 6e 74 73 20 74 6f 20 2a 2f 0a 20  s points to */. 
7070: 20 69 6e 74 20 2a 6e 72 6f 77 2c 20 20 20 20 20   int *nrow,     
7080: 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65          /* Numbe
7090: 72 20 6f 66 20 72 65 73 75 6c 74 20 72 6f 77 73  r of result rows
70a0: 20 77 72 69 74 74 65 6e 20 68 65 72 65 20 2a 2f   written here */
70b0: 0a 20 20 69 6e 74 20 2a 6e 63 6f 6c 2c 20 20 20  .  int *ncol,   
70c0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d            /* Num
70d0: 62 65 72 20 6f 66 20 72 65 73 75 6c 74 20 63 6f  ber of result co
70e0: 6c 75 6d 6e 73 20 77 72 69 74 74 65 6e 20 68 65  lumns written he
70f0: 72 65 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 65  re */.  char **e
7100: 72 72 6d 73 67 2c 20 20 20 20 20 20 20 20 20 2f  rrmsg,         /
7110: 2a 20 45 72 72 6f 72 20 6d 73 67 20 77 72 69 74  * Error msg writ
7120: 74 65 6e 20 68 65 72 65 20 2a 2f 0a 20 20 2e 2e  ten here */.  ..
7130: 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
7140: 20 20 20 20 20 2f 2a 20 41 72 67 75 6d 65 6e 74       /* Argument
7150: 73 20 74 6f 20 74 68 65 20 66 6f 72 6d 61 74 20  s to the format 
7160: 73 74 72 69 6e 67 20 2a 2f 0a 29 7b 0a 20 20 76  string */.){.  v
7170: 61 5f 6c 69 73 74 20 61 70 3b 0a 20 20 69 6e 74  a_list ap;.  int
7180: 20 72 63 3b 0a 0a 20 20 76 61 5f 73 74 61 72 74   rc;..  va_start
7190: 28 61 70 2c 20 65 72 72 6d 73 67 29 3b 0a 20 20  (ap, errmsg);.  
71a0: 72 63 20 3d 20 73 71 6c 69 74 65 5f 67 65 74 5f  rc = sqlite_get_
71b0: 74 61 62 6c 65 5f 76 70 72 69 6e 74 66 28 64 62  table_vprintf(db
71c0: 2c 20 73 71 6c 46 6f 72 6d 61 74 2c 20 72 65 73  , sqlFormat, res
71d0: 75 6c 74 70 2c 20 6e 72 6f 77 2c 20 6e 63 6f 6c  ultp, nrow, ncol
71e0: 2c 20 65 72 72 6d 73 67 2c 20 61 70 29 3b 0a 20  , errmsg, ap);. 
71f0: 20 76 61 5f 65 6e 64 28 61 70 29 3b 0a 20 20 72   va_end(ap);.  r
7200: 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 69 6e 74 20  eturn rc;.}.int 
7210: 73 71 6c 69 74 65 5f 67 65 74 5f 74 61 62 6c 65  sqlite_get_table
7220: 5f 76 70 72 69 6e 74 66 28 0a 20 20 73 71 6c 69  _vprintf(.  sqli
7230: 74 65 20 2a 64 62 2c 20 20 20 20 20 20 20 20 20  te *db,         
7240: 20 20 20 2f 2a 20 41 6e 20 6f 70 65 6e 20 64 61     /* An open da
7250: 74 61 62 61 73 65 20 2a 2f 0a 20 20 63 6f 6e 73  tabase */.  cons
7260: 74 20 63 68 61 72 20 2a 73 71 6c 46 6f 72 6d 61  t char *sqlForma
7270: 74 2c 20 2f 2a 20 70 72 69 6e 74 66 2d 73 74 79  t, /* printf-sty
7280: 6c 65 20 66 6f 72 6d 61 74 20 73 74 72 69 6e 67  le format string
7290: 20 66 6f 72 20 74 68 65 20 53 51 4c 20 2a 2f 0a   for the SQL */.
72a0: 20 20 63 68 61 72 20 2a 2a 2a 72 65 73 75 6c 74    char ***result
72b0: 70 2c 20 20 20 20 20 20 20 2f 2a 20 52 65 73 75  p,       /* Resu
72c0: 6c 74 20 77 72 69 74 74 65 6e 20 74 6f 20 61 20  lt written to a 
72d0: 63 68 61 72 20 2a 5b 5d 20 20 74 68 61 74 20 74  char *[]  that t
72e0: 68 69 73 20 70 6f 69 6e 74 73 20 74 6f 20 2a 2f  his points to */
72f0: 0a 20 20 69 6e 74 20 2a 6e 72 6f 77 2c 20 20 20  .  int *nrow,   
7300: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d            /* Num
7310: 62 65 72 20 6f 66 20 72 65 73 75 6c 74 20 72 6f  ber of result ro
7320: 77 73 20 77 72 69 74 74 65 6e 20 68 65 72 65 20  ws written here 
7330: 2a 2f 0a 20 20 69 6e 74 20 2a 6e 63 6f 6c 75 6d  */.  int *ncolum
7340: 6e 2c 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e  n,          /* N
7350: 75 6d 62 65 72 20 6f 66 20 72 65 73 75 6c 74 20  umber of result 
7360: 63 6f 6c 75 6d 6e 73 20 77 72 69 74 74 65 6e 20  columns written 
7370: 68 65 72 65 20 2a 2f 0a 20 20 63 68 61 72 20 2a  here */.  char *
7380: 2a 65 72 72 6d 73 67 2c 20 20 20 20 20 20 20 20  *errmsg,        
7390: 20 2f 2a 20 45 72 72 6f 72 20 6d 73 67 20 77 72   /* Error msg wr
73a0: 69 74 74 65 6e 20 68 65 72 65 20 2a 2f 0a 20 20  itten here */.  
73b0: 76 61 5f 6c 69 73 74 20 61 70 20 20 20 20 20 20  va_list ap      
73c0: 20 20 20 20 20 20 20 2f 2a 20 41 72 67 75 6d 65         /* Argume
73d0: 6e 74 73 20 74 6f 20 74 68 65 20 66 6f 72 6d 61  nts to the forma
73e0: 74 20 73 74 72 69 6e 67 20 2a 2f 0a 29 7b 0a 20  t string */.){. 
73f0: 20 63 68 61 72 20 2a 7a 53 71 6c 3b 0a 20 20 69   char *zSql;.  i
7400: 6e 74 20 72 63 3b 0a 0a 20 20 7a 53 71 6c 20 3d  nt rc;..  zSql =
7410: 20 73 71 6c 69 74 65 5f 76 6d 70 72 69 6e 74 66   sqlite_vmprintf
7420: 28 73 71 6c 46 6f 72 6d 61 74 2c 20 61 70 29 3b  (sqlFormat, ap);
7430: 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 5f 67  .  rc = sqlite_g
7440: 65 74 5f 74 61 62 6c 65 28 64 62 2c 20 7a 53 71  et_table(db, zSq
7450: 6c 2c 20 72 65 73 75 6c 74 70 2c 20 6e 72 6f 77  l, resultp, nrow
7460: 2c 20 6e 63 6f 6c 75 6d 6e 2c 20 65 72 72 6d 73  , ncolumn, errms
7470: 67 29 3b 0a 20 20 66 72 65 65 28 7a 53 71 6c 29  g);.  free(zSql)
7480: 3b 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d  ;.  return rc;.}
7490: 0a                                               .