/ Hex Artifact Content
Login

Artifact 40770e1f553612d13dfc86d236086e69baa62fe1:


0000: 2f 2a 0a 2a 2a 20 54 68 65 20 22 70 72 69 6e 74  /*.** The "print
0010: 66 22 20 63 6f 64 65 20 74 68 61 74 20 66 6f 6c  f" code that fol
0020: 6c 6f 77 73 20 64 61 74 65 73 20 66 72 6f 6d 20  lows dates from 
0030: 74 68 65 20 31 39 38 30 27 73 2e 20 20 49 74 20  the 1980's.  It 
0040: 69 73 20 69 6e 0a 2a 2a 20 74 68 65 20 70 75 62  is in.** the pub
0050: 6c 69 63 20 64 6f 6d 61 69 6e 2e 20 20 54 68 65  lic domain.  The
0060: 20 6f 72 69 67 69 6e 61 6c 20 63 6f 6d 6d 65 6e   original commen
0070: 74 73 20 61 72 65 20 69 6e 63 6c 75 64 65 64 20  ts are included 
0080: 68 65 72 65 20 66 6f 72 0a 2a 2a 20 63 6f 6d 70  here for.** comp
0090: 6c 65 74 65 6e 65 73 73 2e 20 20 54 68 65 79 20  leteness.  They 
00a0: 61 72 65 20 76 65 72 79 20 6f 75 74 2d 6f 66 2d  are very out-of-
00b0: 64 61 74 65 20 62 75 74 20 6d 69 67 68 74 20 62  date but might b
00c0: 65 20 75 73 65 66 75 6c 20 61 73 0a 2a 2a 20 61  e useful as.** a
00d0: 6e 20 68 69 73 74 6f 72 69 63 61 6c 20 72 65 66  n historical ref
00e0: 65 72 65 6e 63 65 2e 20 20 4d 6f 73 74 20 6f 66  erence.  Most of
00f0: 20 74 68 65 20 22 65 6e 68 61 6e 63 65 6d 65 6e   the "enhancemen
0100: 74 73 22 20 68 61 76 65 20 62 65 65 6e 20 62 61  ts" have been ba
0110: 63 6b 65 64 0a 2a 2a 20 6f 75 74 20 73 6f 20 74  cked.** out so t
0120: 68 61 74 20 74 68 65 20 66 75 6e 63 74 69 6f 6e  hat the function
0130: 61 6c 69 74 79 20 69 73 20 6e 6f 77 20 74 68 65  ality is now the
0140: 20 73 61 6d 65 20 61 73 20 73 74 61 6e 64 61 72   same as standar
0150: 64 20 70 72 69 6e 74 66 28 29 2e 0a 2a 2a 0a 2a  d printf()..**.*
0160: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0170: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0180: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0190: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
01a0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 2a 2a 0a 2a 2a 20  *********.**.** 
01b0: 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 6d 6f  The following mo
01c0: 64 75 6c 65 73 20 69 73 20 61 6e 20 65 6e 68 61  dules is an enha
01d0: 6e 63 65 64 20 72 65 70 6c 61 63 65 6d 65 6e 74  nced replacement
01e0: 20 66 6f 72 20 74 68 65 20 22 70 72 69 6e 74 66   for the "printf
01f0: 22 20 73 75 62 72 6f 75 74 69 6e 65 73 0a 2a 2a  " subroutines.**
0200: 20 66 6f 75 6e 64 20 69 6e 20 74 68 65 20 73 74   found in the st
0210: 61 6e 64 61 72 64 20 43 20 6c 69 62 72 61 72 79  andard C library
0220: 2e 20 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67  .  The following
0230: 20 65 6e 68 61 6e 63 65 6d 65 6e 74 73 20 61 72   enhancements ar
0240: 65 0a 2a 2a 20 73 75 70 70 6f 72 74 65 64 3a 0a  e.** supported:.
0250: 2a 2a 0a 2a 2a 20 20 20 20 20 20 2b 20 20 41 64  **.**      +  Ad
0260: 64 69 74 69 6f 6e 61 6c 20 66 75 6e 63 74 69 6f  ditional functio
0270: 6e 73 2e 20 20 54 68 65 20 73 74 61 6e 64 61 72  ns.  The standar
0280: 64 20 73 65 74 20 6f 66 20 22 70 72 69 6e 74 66  d set of "printf
0290: 22 20 66 75 6e 63 74 69 6f 6e 73 0a 2a 2a 20 20  " functions.**  
02a0: 20 20 20 20 20 20 20 69 6e 63 6c 75 64 65 73 20         includes 
02b0: 70 72 69 6e 74 66 2c 20 66 70 72 69 6e 74 66 2c  printf, fprintf,
02c0: 20 73 70 72 69 6e 74 66 2c 20 76 70 72 69 6e 74   sprintf, vprint
02d0: 66 2c 20 76 66 70 72 69 6e 74 66 2c 20 61 6e 64  f, vfprintf, and
02e0: 0a 2a 2a 20 20 20 20 20 20 20 20 20 76 73 70 72  .**         vspr
02f0: 69 6e 74 66 2e 20 20 54 68 69 73 20 6d 6f 64 75  intf.  This modu
0300: 6c 65 20 61 64 64 73 20 74 68 65 20 66 6f 6c 6c  le adds the foll
0310: 6f 77 69 6e 67 3a 0a 2a 2a 0a 2a 2a 20 20 20 20  owing:.**.**    
0320: 20 20 20 20 20 20 20 2a 20 20 73 6e 70 72 69 6e         *  snprin
0330: 74 66 20 2d 2d 20 57 6f 72 6b 73 20 6c 69 6b 65  tf -- Works like
0340: 20 73 70 72 69 6e 74 66 2c 20 62 75 74 20 68 61   sprintf, but ha
0350: 73 20 61 6e 20 65 78 74 72 61 20 61 72 67 75 6d  s an extra argum
0360: 65 6e 74 0a 2a 2a 20 20 20 20 20 20 20 20 20 20  ent.**          
0370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0380: 77 68 69 63 68 20 69 73 20 74 68 65 20 73 69 7a  which is the siz
0390: 65 20 6f 66 20 74 68 65 20 62 75 66 66 65 72 20  e of the buffer 
03a0: 77 72 69 74 74 65 6e 20 74 6f 2e 0a 2a 2a 0a 2a  written to..**.*
03b0: 2a 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 6d  *           *  m
03c0: 70 72 69 6e 74 66 20 2d 2d 20 20 53 69 6d 69 6c  printf --  Simil
03d0: 61 72 20 74 6f 20 73 70 72 69 6e 74 66 2e 20 20  ar to sprintf.  
03e0: 57 72 69 74 65 73 20 6f 75 74 70 75 74 20 74 6f  Writes output to
03f0: 20 6d 65 6d 6f 72 79 0a 2a 2a 20 20 20 20 20 20   memory.**      
0400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0410: 20 20 20 20 6f 62 74 61 69 6e 65 64 20 66 72 6f      obtained fro
0420: 6d 20 6d 61 6c 6c 6f 63 2e 0a 2a 2a 0a 2a 2a 20  m malloc..**.** 
0430: 20 20 20 20 20 20 20 20 20 20 2a 20 20 78 70 72            *  xpr
0440: 69 6e 74 66 20 2d 2d 20 20 43 61 6c 6c 73 20 61  intf --  Calls a
0450: 20 66 75 6e 63 74 69 6f 6e 20 74 6f 20 64 69 73   function to dis
0460: 70 6f 73 65 20 6f 66 20 6f 75 74 70 75 74 2e 0a  pose of output..
0470: 2a 2a 0a 2a 2a 20 20 20 20 20 20 20 20 20 20 20  **.**           
0480: 2a 20 20 6e 70 72 69 6e 74 66 20 2d 2d 20 20 4e  *  nprintf --  N
0490: 6f 20 6f 75 74 70 75 74 2c 20 62 75 74 20 72 65  o output, but re
04a0: 74 75 72 6e 73 20 74 68 65 20 6e 75 6d 62 65 72  turns the number
04b0: 20 6f 66 20 63 68 61 72 61 63 74 65 72 73 0a 2a   of characters.*
04c0: 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  *               
04d0: 20 20 20 20 20 20 20 20 20 20 20 74 68 61 74 20             that 
04e0: 77 6f 75 6c 64 20 68 61 76 65 20 62 65 65 6e 20  would have been 
04f0: 6f 75 74 70 75 74 20 62 79 20 70 72 69 6e 74 66  output by printf
0500: 2e 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 20 20 20  ..**.**         
0510: 20 20 2a 20 20 41 20 76 2d 20 76 65 72 73 69 6f    *  A v- versio
0520: 6e 20 28 65 78 3a 20 76 73 6e 70 72 69 6e 74 66  n (ex: vsnprintf
0530: 29 20 6f 66 20 65 76 65 72 79 20 66 75 6e 63 74  ) of every funct
0540: 69 6f 6e 20 69 73 20 61 6c 73 6f 0a 2a 2a 20 20  ion is also.**  
0550: 20 20 20 20 20 20 20 20 20 20 20 20 73 75 70 70              supp
0560: 6c 69 65 64 2e 0a 2a 2a 0a 2a 2a 20 20 20 20 20  lied..**.**     
0570: 20 2b 20 20 41 20 66 65 77 20 65 78 74 65 6e 73   +  A few extens
0580: 69 6f 6e 73 20 74 6f 20 74 68 65 20 66 6f 72 6d  ions to the form
0590: 61 74 74 69 6e 67 20 6e 6f 74 61 74 69 6f 6e 20  atting notation 
05a0: 61 72 65 20 73 75 70 70 6f 72 74 65 64 3a 0a 2a  are supported:.*
05b0: 2a 0a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 2a  *.**           *
05c0: 20 20 54 68 65 20 22 3d 22 20 66 6c 61 67 20 28    The "=" flag (
05d0: 73 69 6d 69 6c 61 72 20 74 6f 20 22 2d 22 29 20  similar to "-") 
05e0: 63 61 75 73 65 73 20 74 68 65 20 6f 75 74 70 75  causes the outpu
05f0: 74 20 74 6f 20 62 65 0a 2a 2a 20 20 20 20 20 20  t to be.**      
0600: 20 20 20 20 20 20 20 20 62 65 20 63 65 6e 74 65          be cente
0610: 72 65 64 20 69 6e 20 74 68 65 20 61 70 70 72 6f  red in the appro
0620: 70 72 69 61 74 65 6c 79 20 73 69 7a 65 64 20 66  priately sized f
0630: 69 65 6c 64 2e 0a 2a 2a 0a 2a 2a 20 20 20 20 20  ield..**.**     
0640: 20 20 20 20 20 20 2a 20 20 54 68 65 20 25 62 20        *  The %b 
0650: 66 69 65 6c 64 20 6f 75 74 70 75 74 73 20 61 6e  field outputs an
0660: 20 69 6e 74 65 67 65 72 20 69 6e 20 62 69 6e 61   integer in bina
0670: 72 79 20 6e 6f 74 61 74 69 6f 6e 2e 0a 2a 2a 0a  ry notation..**.
0680: 2a 2a 20 20 20 20 20 20 20 20 20 20 20 2a 20 20  **           *  
0690: 54 68 65 20 25 63 20 66 69 65 6c 64 20 6e 6f 77  The %c field now
06a0: 20 61 63 63 65 70 74 73 20 61 20 70 72 65 63 69   accepts a preci
06b0: 73 69 6f 6e 2e 20 20 54 68 65 20 63 68 61 72 61  sion.  The chara
06c0: 63 74 65 72 20 6f 75 74 70 75 74 0a 2a 2a 20 20  cter output.**  
06d0: 20 20 20 20 20 20 20 20 20 20 20 20 69 73 20 72              is r
06e0: 65 70 65 61 74 65 64 20 62 79 20 74 68 65 20 6e  epeated by the n
06f0: 75 6d 62 65 72 20 6f 66 20 74 69 6d 65 73 20 74  umber of times t
0700: 68 65 20 70 72 65 63 69 73 69 6f 6e 20 73 70 65  he precision spe
0710: 63 69 66 69 65 73 2e 0a 2a 2a 0a 2a 2a 20 20 20  cifies..**.**   
0720: 20 20 20 20 20 20 20 20 2a 20 20 54 68 65 20 25          *  The %
0730: 27 20 66 69 65 6c 64 20 77 6f 72 6b 73 20 6c 69  ' field works li
0740: 6b 65 20 25 63 2c 20 62 75 74 20 74 61 6b 65 73  ke %c, but takes
0750: 20 61 73 20 69 74 73 20 63 68 61 72 61 63 74 65   as its characte
0760: 72 20 74 68 65 0a 2a 2a 20 20 20 20 20 20 20 20  r the.**        
0770: 20 20 20 20 20 20 6e 65 78 74 20 63 68 61 72 61        next chara
0780: 63 74 65 72 20 6f 66 20 74 68 65 20 66 6f 72 6d  cter of the form
0790: 61 74 20 73 74 72 69 6e 67 2c 20 69 6e 73 74 65  at string, inste
07a0: 61 64 20 6f 66 20 74 68 65 20 6e 65 78 74 0a 2a  ad of the next.*
07b0: 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61  *              a
07c0: 72 67 75 6d 65 6e 74 2e 20 20 46 6f 72 20 65 78  rgument.  For ex
07d0: 61 6d 70 6c 65 2c 20 20 70 72 69 6e 74 66 28 22  ample,  printf("
07e0: 25 2e 37 38 27 2d 22 29 20 20 70 72 69 6e 74 73  %.78'-")  prints
07f0: 20 37 38 20 6d 69 6e 75 73 0a 2a 2a 20 20 20 20   78 minus.**    
0800: 20 20 20 20 20 20 20 20 20 20 73 69 67 6e 73 2c            signs,
0810: 20 74 68 65 20 73 61 6d 65 20 61 73 20 20 70 72   the same as  pr
0820: 69 6e 74 66 28 22 25 2e 37 38 63 22 2c 27 2d 27  intf("%.78c",'-'
0830: 29 2e 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 2b 20  )..**.**      + 
0840: 20 57 68 65 6e 20 63 6f 6d 70 69 6c 65 64 20 75   When compiled u
0850: 73 69 6e 67 20 47 43 43 20 6f 6e 20 61 20 53 50  sing GCC on a SP
0860: 41 52 43 2c 20 74 68 69 73 20 76 65 72 73 69 6f  ARC, this versio
0870: 6e 20 6f 66 20 70 72 69 6e 74 66 20 69 73 0a 2a  n of printf is.*
0880: 2a 20 20 20 20 20 20 20 20 20 66 61 73 74 65 72  *         faster
0890: 20 74 68 61 6e 20 74 68 65 20 6c 69 62 72 61 72   than the librar
08a0: 79 20 70 72 69 6e 74 66 20 66 6f 72 20 53 55 4e  y printf for SUN
08b0: 20 4f 53 20 34 2e 31 2e 0a 2a 2a 0a 2a 2a 20 20   OS 4.1..**.**  
08c0: 20 20 20 20 2b 20 20 41 6c 6c 20 66 75 6e 63 74      +  All funct
08d0: 69 6f 6e 73 20 61 72 65 20 66 75 6c 6c 79 20 72  ions are fully r
08e0: 65 65 6e 74 72 61 6e 74 2e 0a 2a 2a 0a 2a 2f 0a  eentrant..**.*/.
08f0: 23 69 6e 63 6c 75 64 65 20 22 73 71 6c 69 74 65  #include "sqlite
0900: 49 6e 74 2e 68 22 0a 0a 2f 2a 0a 2a 2a 20 43 6f  Int.h"../*.** Co
0910: 6e 76 65 72 73 69 6f 6e 20 74 79 70 65 73 20 66  nversion types f
0920: 61 6c 6c 20 69 6e 74 6f 20 76 61 72 69 6f 75 73  all into various
0930: 20 63 61 74 65 67 6f 72 69 65 73 20 61 73 20 64   categories as d
0940: 65 66 69 6e 65 64 20 62 79 20 74 68 65 0a 2a 2a  efined by the.**
0950: 20 66 6f 6c 6c 6f 77 69 6e 67 20 65 6e 75 6d 65   following enume
0960: 72 61 74 69 6f 6e 2e 0a 2a 2f 0a 23 64 65 66 69  ration..*/.#defi
0970: 6e 65 20 65 74 52 41 44 49 58 20 20 20 20 20 20  ne etRADIX      
0980: 20 31 20 2f 2a 20 49 6e 74 65 67 65 72 20 74 79   1 /* Integer ty
0990: 70 65 73 2e 20 20 25 64 2c 20 25 78 2c 20 25 6f  pes.  %d, %x, %o
09a0: 2c 20 61 6e 64 20 73 6f 20 66 6f 72 74 68 20 2a  , and so forth *
09b0: 2f 0a 23 64 65 66 69 6e 65 20 65 74 46 4c 4f 41  /.#define etFLOA
09c0: 54 20 20 20 20 20 20 20 32 20 2f 2a 20 46 6c 6f  T       2 /* Flo
09d0: 61 74 69 6e 67 20 70 6f 69 6e 74 2e 20 20 25 66  ating point.  %f
09e0: 20 2a 2f 0a 23 64 65 66 69 6e 65 20 65 74 45 58   */.#define etEX
09f0: 50 20 20 20 20 20 20 20 20 20 33 20 2f 2a 20 45  P         3 /* E
0a00: 78 70 6f 6e 65 6e 74 69 6f 6e 61 6c 20 6e 6f 74  xponentional not
0a10: 61 74 69 6f 6e 2e 20 25 65 20 61 6e 64 20 25 45  ation. %e and %E
0a20: 20 2a 2f 0a 23 64 65 66 69 6e 65 20 65 74 47 45   */.#define etGE
0a30: 4e 45 52 49 43 20 20 20 20 20 34 20 2f 2a 20 46  NERIC     4 /* F
0a40: 6c 6f 61 74 69 6e 67 20 6f 72 20 65 78 70 6f 6e  loating or expon
0a50: 65 6e 74 69 61 6c 2c 20 64 65 70 65 6e 64 69 6e  ential, dependin
0a60: 67 20 6f 6e 20 65 78 70 6f 6e 65 6e 74 2e 20 25  g on exponent. %
0a70: 67 20 2a 2f 0a 23 64 65 66 69 6e 65 20 65 74 53  g */.#define etS
0a80: 49 5a 45 20 20 20 20 20 20 20 20 35 20 2f 2a 20  IZE        5 /* 
0a90: 52 65 74 75 72 6e 20 6e 75 6d 62 65 72 20 6f 66  Return number of
0aa0: 20 63 68 61 72 61 63 74 65 72 73 20 70 72 6f 63   characters proc
0ab0: 65 73 73 65 64 20 73 6f 20 66 61 72 2e 20 25 6e  essed so far. %n
0ac0: 20 2a 2f 0a 23 64 65 66 69 6e 65 20 65 74 53 54   */.#define etST
0ad0: 52 49 4e 47 20 20 20 20 20 20 36 20 2f 2a 20 53  RING      6 /* S
0ae0: 74 72 69 6e 67 73 2e 20 25 73 20 2a 2f 0a 23 64  trings. %s */.#d
0af0: 65 66 69 6e 65 20 65 74 44 59 4e 53 54 52 49 4e  efine etDYNSTRIN
0b00: 47 20 20 20 37 20 2f 2a 20 44 79 6e 61 6d 69 63  G   7 /* Dynamic
0b10: 61 6c 6c 79 20 61 6c 6c 6f 63 61 74 65 64 20 73  ally allocated s
0b20: 74 72 69 6e 67 73 2e 20 25 7a 20 2a 2f 0a 23 64  trings. %z */.#d
0b30: 65 66 69 6e 65 20 65 74 50 45 52 43 45 4e 54 20  efine etPERCENT 
0b40: 20 20 20 20 38 20 2f 2a 20 50 65 72 63 65 6e 74      8 /* Percent
0b50: 20 73 79 6d 62 6f 6c 2e 20 25 25 20 2a 2f 0a 23   symbol. %% */.#
0b60: 64 65 66 69 6e 65 20 65 74 43 48 41 52 58 20 20  define etCHARX  
0b70: 20 20 20 20 20 39 20 2f 2a 20 43 68 61 72 61 63       9 /* Charac
0b80: 74 65 72 73 2e 20 25 63 20 2a 2f 0a 23 64 65 66  ters. %c */.#def
0b90: 69 6e 65 20 65 74 45 52 52 4f 52 20 20 20 20 20  ine etERROR     
0ba0: 20 31 30 20 2f 2a 20 55 73 65 64 20 74 6f 20 69   10 /* Used to i
0bb0: 6e 64 69 63 61 74 65 20 6e 6f 20 73 75 63 68 20  ndicate no such 
0bc0: 63 6f 6e 76 65 72 73 69 6f 6e 20 74 79 70 65 20  conversion type 
0bd0: 2a 2f 0a 2f 2a 20 54 68 65 20 72 65 73 74 20 61  */./* The rest a
0be0: 72 65 20 65 78 74 65 6e 73 69 6f 6e 73 2c 20 6e  re extensions, n
0bf0: 6f 74 20 6e 6f 72 6d 61 6c 6c 79 20 66 6f 75 6e  ot normally foun
0c00: 64 20 69 6e 20 70 72 69 6e 74 66 28 29 20 2a 2f  d in printf() */
0c10: 0a 23 64 65 66 69 6e 65 20 65 74 43 48 41 52 4c  .#define etCHARL
0c20: 49 54 20 20 20 20 31 31 20 2f 2a 20 4c 69 74 65  IT    11 /* Lite
0c30: 72 61 6c 20 63 68 61 72 61 63 74 65 72 73 2e 20  ral characters. 
0c40: 20 25 27 20 2a 2f 0a 23 64 65 66 69 6e 65 20 65   %' */.#define e
0c50: 74 53 51 4c 45 53 43 41 50 45 20 20 31 32 20 2f  tSQLESCAPE  12 /
0c60: 2a 20 53 74 72 69 6e 67 73 20 77 69 74 68 20 27  * Strings with '
0c70: 5c 27 27 20 64 6f 75 62 6c 65 64 2e 20 20 25 71  \'' doubled.  %q
0c80: 20 2a 2f 0a 23 64 65 66 69 6e 65 20 65 74 53 51   */.#define etSQ
0c90: 4c 45 53 43 41 50 45 32 20 31 33 20 2f 2a 20 53  LESCAPE2 13 /* S
0ca0: 74 72 69 6e 67 73 20 77 69 74 68 20 27 5c 27 27  trings with '\''
0cb0: 20 64 6f 75 62 6c 65 64 20 61 6e 64 20 65 6e 63   doubled and enc
0cc0: 6c 6f 73 65 64 20 69 6e 20 27 27 2c 0a 20 20 20  losed in '',.   
0cd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0ce0: 20 20 20 20 20 20 20 4e 55 4c 4c 20 70 6f 69 6e         NULL poin
0cf0: 74 65 72 73 20 72 65 70 6c 61 63 65 64 20 62 79  ters replaced by
0d00: 20 53 51 4c 20 4e 55 4c 4c 2e 20 20 25 51 20 2a   SQL NULL.  %Q *
0d10: 2f 0a 23 64 65 66 69 6e 65 20 65 74 54 4f 4b 45  /.#define etTOKE
0d20: 4e 20 20 20 20 20 20 31 34 20 2f 2a 20 61 20 70  N      14 /* a p
0d30: 6f 69 6e 74 65 72 20 74 6f 20 61 20 54 6f 6b 65  ointer to a Toke
0d40: 6e 20 73 74 72 75 63 74 75 72 65 20 2a 2f 0a 23  n structure */.#
0d50: 64 65 66 69 6e 65 20 65 74 53 52 43 4c 49 53 54  define etSRCLIST
0d60: 20 20 20 20 31 35 20 2f 2a 20 61 20 70 6f 69 6e      15 /* a poin
0d70: 74 65 72 20 74 6f 20 61 20 53 72 63 4c 69 73 74  ter to a SrcList
0d80: 20 2a 2f 0a 23 64 65 66 69 6e 65 20 65 74 50 4f   */.#define etPO
0d90: 49 4e 54 45 52 20 20 20 20 31 36 20 2f 2a 20 54  INTER    16 /* T
0da0: 68 65 20 25 70 20 63 6f 6e 76 65 72 73 69 6f 6e  he %p conversion
0db0: 20 2a 2f 0a 0a 0a 2f 2a 0a 2a 2a 20 41 6e 20 22   */.../*.** An "
0dc0: 65 74 42 79 74 65 22 20 69 73 20 61 6e 20 38 2d  etByte" is an 8-
0dd0: 62 69 74 20 75 6e 73 69 67 6e 65 64 20 76 61 6c  bit unsigned val
0de0: 75 65 2e 0a 2a 2f 0a 74 79 70 65 64 65 66 20 75  ue..*/.typedef u
0df0: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 65 74 42  nsigned char etB
0e00: 79 74 65 3b 0a 0a 2f 2a 0a 2a 2a 20 45 61 63 68  yte;../*.** Each
0e10: 20 62 75 69 6c 74 69 6e 20 63 6f 6e 76 65 72 73   builtin convers
0e20: 69 6f 6e 20 63 68 61 72 61 63 74 65 72 20 28 65  ion character (e
0e30: 78 3a 20 74 68 65 20 27 64 27 20 69 6e 20 22 25  x: the 'd' in "%
0e40: 64 22 29 20 69 73 20 64 65 73 63 72 69 62 65 64  d") is described
0e50: 0a 2a 2a 20 62 79 20 61 6e 20 69 6e 73 74 61 6e  .** by an instan
0e60: 63 65 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77  ce of the follow
0e70: 69 6e 67 20 73 74 72 75 63 74 75 72 65 0a 2a 2f  ing structure.*/
0e80: 0a 74 79 70 65 64 65 66 20 73 74 72 75 63 74 20  .typedef struct 
0e90: 65 74 5f 69 6e 66 6f 20 7b 20 20 20 2f 2a 20 49  et_info {   /* I
0ea0: 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 62 6f 75 74  nformation about
0eb0: 20 65 61 63 68 20 66 6f 72 6d 61 74 20 66 69 65   each format fie
0ec0: 6c 64 20 2a 2f 0a 20 20 63 68 61 72 20 66 6d 74  ld */.  char fmt
0ed0: 74 79 70 65 3b 20 20 20 20 20 20 20 20 20 20 20  type;           
0ee0: 20 2f 2a 20 54 68 65 20 66 6f 72 6d 61 74 20 66   /* The format f
0ef0: 69 65 6c 64 20 63 6f 64 65 20 6c 65 74 74 65 72  ield code letter
0f00: 20 2a 2f 0a 20 20 65 74 42 79 74 65 20 62 61 73   */.  etByte bas
0f10: 65 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 2f  e;             /
0f20: 2a 20 54 68 65 20 62 61 73 65 20 66 6f 72 20 72  * The base for r
0f30: 61 64 69 78 20 63 6f 6e 76 65 72 73 69 6f 6e 20  adix conversion 
0f40: 2a 2f 0a 20 20 65 74 42 79 74 65 20 66 6c 61 67  */.  etByte flag
0f50: 73 3b 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a  s;            /*
0f60: 20 4f 6e 65 20 6f 72 20 6d 6f 72 65 20 6f 66 20   One or more of 
0f70: 46 4c 41 47 5f 20 63 6f 6e 73 74 61 6e 74 73 20  FLAG_ constants 
0f80: 62 65 6c 6f 77 20 2a 2f 0a 20 20 65 74 42 79 74  below */.  etByt
0f90: 65 20 74 79 70 65 3b 20 20 20 20 20 20 20 20 20  e type;         
0fa0: 20 20 20 20 2f 2a 20 43 6f 6e 76 65 72 73 69 6f      /* Conversio
0fb0: 6e 20 70 61 72 61 64 69 67 6d 20 2a 2f 0a 20 20  n paradigm */.  
0fc0: 65 74 42 79 74 65 20 63 68 61 72 73 65 74 3b 20  etByte charset; 
0fd0: 20 20 20 20 20 20 20 20 20 2f 2a 20 4f 66 66 73           /* Offs
0fe0: 65 74 20 69 6e 74 6f 20 61 44 69 67 69 74 73 5b  et into aDigits[
0ff0: 5d 20 6f 66 20 74 68 65 20 64 69 67 69 74 73 20  ] of the digits 
1000: 73 74 72 69 6e 67 20 2a 2f 0a 20 20 65 74 42 79  string */.  etBy
1010: 74 65 20 70 72 65 66 69 78 3b 20 20 20 20 20 20  te prefix;      
1020: 20 20 20 20 20 2f 2a 20 4f 66 66 73 65 74 20 69       /* Offset i
1030: 6e 74 6f 20 61 50 72 65 66 69 78 5b 5d 20 6f 66  nto aPrefix[] of
1040: 20 74 68 65 20 70 72 65 66 69 78 20 73 74 72 69   the prefix stri
1050: 6e 67 20 2a 2f 0a 7d 20 65 74 5f 69 6e 66 6f 3b  ng */.} et_info;
1060: 0a 0a 2f 2a 0a 2a 2a 20 41 6c 6c 6f 77 65 64 20  ../*.** Allowed 
1070: 76 61 6c 75 65 73 20 66 6f 72 20 65 74 5f 69 6e  values for et_in
1080: 66 6f 2e 66 6c 61 67 73 0a 2a 2f 0a 23 64 65 66  fo.flags.*/.#def
1090: 69 6e 65 20 46 4c 41 47 5f 53 49 47 4e 45 44 20  ine FLAG_SIGNED 
10a0: 20 31 20 20 20 20 20 2f 2a 20 54 72 75 65 20 69   1     /* True i
10b0: 66 20 74 68 65 20 76 61 6c 75 65 20 74 6f 20 63  f the value to c
10c0: 6f 6e 76 65 72 74 20 69 73 20 73 69 67 6e 65 64  onvert is signed
10d0: 20 2a 2f 0a 23 64 65 66 69 6e 65 20 46 4c 41 47   */.#define FLAG
10e0: 5f 49 4e 54 45 52 4e 20 20 32 20 20 20 20 20 2f  _INTERN  2     /
10f0: 2a 20 54 72 75 65 20 69 66 20 66 6f 72 20 69 6e  * True if for in
1100: 74 65 72 6e 61 6c 20 75 73 65 20 6f 6e 6c 79 20  ternal use only 
1110: 2a 2f 0a 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 66  */.../*.** The f
1120: 6f 6c 6c 6f 77 69 6e 67 20 74 61 62 6c 65 20 69  ollowing table i
1130: 73 20 73 65 61 72 63 68 65 64 20 6c 69 6e 65 61  s searched linea
1140: 72 6c 79 2c 20 73 6f 20 69 74 20 69 73 20 67 6f  rly, so it is go
1150: 6f 64 20 74 6f 20 70 75 74 20 74 68 65 0a 2a 2a  od to put the.**
1160: 20 6d 6f 73 74 20 66 72 65 71 75 65 6e 74 6c 79   most frequently
1170: 20 75 73 65 64 20 63 6f 6e 76 65 72 73 69 6f 6e   used conversion
1180: 20 74 79 70 65 73 20 66 69 72 73 74 2e 0a 2a 2f   types first..*/
1190: 0a 73 74 61 74 69 63 20 63 6f 6e 73 74 20 63 68  .static const ch
11a0: 61 72 20 61 44 69 67 69 74 73 5b 5d 20 3d 20 22  ar aDigits[] = "
11b0: 30 31 32 33 34 35 36 37 38 39 41 42 43 44 45 46  0123456789ABCDEF
11c0: 30 31 32 33 34 35 36 37 38 39 61 62 63 64 65 66  0123456789abcdef
11d0: 22 3b 0a 73 74 61 74 69 63 20 63 6f 6e 73 74 20  ";.static const 
11e0: 63 68 61 72 20 61 50 72 65 66 69 78 5b 5d 20 3d  char aPrefix[] =
11f0: 20 22 2d 78 30 5c 30 30 30 58 30 22 3b 0a 73 74   "-x0\000X0";.st
1200: 61 74 69 63 20 65 74 5f 69 6e 66 6f 20 66 6d 74  atic et_info fmt
1210: 69 6e 66 6f 5b 5d 20 3d 20 7b 0a 20 20 7b 20 20  info[] = {.  {  
1220: 27 64 27 2c 20 31 30 2c 20 31 2c 20 65 74 52 41  'd', 10, 1, etRA
1230: 44 49 58 2c 20 20 20 20 20 20 30 2c 20 20 30 20  DIX,      0,  0 
1240: 7d 2c 0a 20 20 7b 20 20 27 73 27 2c 20 20 30 2c  },.  {  's',  0,
1250: 20 30 2c 20 65 74 53 54 52 49 4e 47 2c 20 20 20   0, etSTRING,   
1260: 20 20 30 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 20    0,  0 },.  {  
1270: 27 7a 27 2c 20 20 30 2c 20 32 2c 20 65 74 44 59  'z',  0, 2, etDY
1280: 4e 53 54 52 49 4e 47 2c 20 20 30 2c 20 20 30 20  NSTRING,  0,  0 
1290: 7d 2c 0a 20 20 7b 20 20 27 71 27 2c 20 20 30 2c  },.  {  'q',  0,
12a0: 20 30 2c 20 65 74 53 51 4c 45 53 43 41 50 45 2c   0, etSQLESCAPE,
12b0: 20 20 30 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 20    0,  0 },.  {  
12c0: 27 51 27 2c 20 20 30 2c 20 30 2c 20 65 74 53 51  'Q',  0, 0, etSQ
12d0: 4c 45 53 43 41 50 45 32 2c 20 30 2c 20 20 30 20  LESCAPE2, 0,  0 
12e0: 7d 2c 0a 20 20 7b 20 20 27 63 27 2c 20 20 30 2c  },.  {  'c',  0,
12f0: 20 30 2c 20 65 74 43 48 41 52 58 2c 20 20 20 20   0, etCHARX,    
1300: 20 20 30 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 20    0,  0 },.  {  
1310: 27 6f 27 2c 20 20 38 2c 20 30 2c 20 65 74 52 41  'o',  8, 0, etRA
1320: 44 49 58 2c 20 20 20 20 20 20 30 2c 20 20 32 20  DIX,      0,  2 
1330: 7d 2c 0a 20 20 7b 20 20 27 75 27 2c 20 31 30 2c  },.  {  'u', 10,
1340: 20 30 2c 20 65 74 52 41 44 49 58 2c 20 20 20 20   0, etRADIX,    
1350: 20 20 30 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 20    0,  0 },.  {  
1360: 27 78 27 2c 20 31 36 2c 20 30 2c 20 65 74 52 41  'x', 16, 0, etRA
1370: 44 49 58 2c 20 20 20 20 20 20 31 36 2c 20 31 20  DIX,      16, 1 
1380: 7d 2c 0a 20 20 7b 20 20 27 58 27 2c 20 31 36 2c  },.  {  'X', 16,
1390: 20 30 2c 20 65 74 52 41 44 49 58 2c 20 20 20 20   0, etRADIX,    
13a0: 20 20 30 2c 20 20 34 20 7d 2c 0a 20 20 7b 20 20    0,  4 },.  {  
13b0: 27 66 27 2c 20 20 30 2c 20 31 2c 20 65 74 46 4c  'f',  0, 1, etFL
13c0: 4f 41 54 2c 20 20 20 20 20 20 30 2c 20 20 30 20  OAT,      0,  0 
13d0: 7d 2c 0a 20 20 7b 20 20 27 65 27 2c 20 20 30 2c  },.  {  'e',  0,
13e0: 20 31 2c 20 65 74 45 58 50 2c 20 20 20 20 20 20   1, etEXP,      
13f0: 20 20 33 30 2c 20 30 20 7d 2c 0a 20 20 7b 20 20    30, 0 },.  {  
1400: 27 45 27 2c 20 20 30 2c 20 31 2c 20 65 74 45 58  'E',  0, 1, etEX
1410: 50 2c 20 20 20 20 20 20 20 20 31 34 2c 20 30 20  P,        14, 0 
1420: 7d 2c 0a 20 20 7b 20 20 27 67 27 2c 20 20 30 2c  },.  {  'g',  0,
1430: 20 31 2c 20 65 74 47 45 4e 45 52 49 43 2c 20 20   1, etGENERIC,  
1440: 20 20 33 30 2c 20 30 20 7d 2c 0a 20 20 7b 20 20    30, 0 },.  {  
1450: 27 47 27 2c 20 20 30 2c 20 31 2c 20 65 74 47 45  'G',  0, 1, etGE
1460: 4e 45 52 49 43 2c 20 20 20 20 31 34 2c 20 30 20  NERIC,    14, 0 
1470: 7d 2c 0a 20 20 7b 20 20 27 69 27 2c 20 31 30 2c  },.  {  'i', 10,
1480: 20 31 2c 20 65 74 52 41 44 49 58 2c 20 20 20 20   1, etRADIX,    
1490: 20 20 30 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 20    0,  0 },.  {  
14a0: 27 6e 27 2c 20 20 30 2c 20 30 2c 20 65 74 53 49  'n',  0, 0, etSI
14b0: 5a 45 2c 20 20 20 20 20 20 20 30 2c 20 20 30 20  ZE,       0,  0 
14c0: 7d 2c 0a 20 20 7b 20 20 27 25 27 2c 20 20 30 2c  },.  {  '%',  0,
14d0: 20 30 2c 20 65 74 50 45 52 43 45 4e 54 2c 20 20   0, etPERCENT,  
14e0: 20 20 30 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 20    0,  0 },.  {  
14f0: 27 70 27 2c 20 31 36 2c 20 30 2c 20 65 74 50 4f  'p', 16, 0, etPO
1500: 49 4e 54 45 52 2c 20 20 20 20 30 2c 20 20 31 20  INTER,    0,  1 
1510: 7d 2c 0a 20 20 7b 20 20 27 54 27 2c 20 20 30 2c  },.  {  'T',  0,
1520: 20 32 2c 20 65 74 54 4f 4b 45 4e 2c 20 20 20 20   2, etTOKEN,    
1530: 20 20 30 2c 20 20 30 20 7d 2c 0a 20 20 7b 20 20    0,  0 },.  {  
1540: 27 53 27 2c 20 20 30 2c 20 32 2c 20 65 74 53 52  'S',  0, 2, etSR
1550: 43 4c 49 53 54 2c 20 20 20 20 30 2c 20 20 30 20  CLIST,    0,  0 
1560: 7d 2c 0a 7d 3b 0a 23 64 65 66 69 6e 65 20 65 74  },.};.#define et
1570: 4e 49 4e 46 4f 20 20 28 73 69 7a 65 6f 66 28 66  NINFO  (sizeof(f
1580: 6d 74 69 6e 66 6f 29 2f 73 69 7a 65 6f 66 28 66  mtinfo)/sizeof(f
1590: 6d 74 69 6e 66 6f 5b 30 5d 29 29 0a 0a 2f 2a 0a  mtinfo[0]))../*.
15a0: 2a 2a 20 49 66 20 4e 4f 46 4c 4f 41 54 49 4e 47  ** If NOFLOATING
15b0: 50 4f 49 4e 54 20 69 73 20 64 65 66 69 6e 65 64  POINT is defined
15c0: 2c 20 74 68 65 6e 20 6e 6f 6e 65 20 6f 66 20 74  , then none of t
15d0: 68 65 20 66 6c 6f 61 74 69 6e 67 20 70 6f 69 6e  he floating poin
15e0: 74 0a 2a 2a 20 63 6f 6e 76 65 72 73 69 6f 6e 73  t.** conversions
15f0: 20 77 69 6c 6c 20 77 6f 72 6b 2e 0a 2a 2f 0a 23   will work..*/.#
1600: 69 66 6e 64 65 66 20 65 74 4e 4f 46 4c 4f 41 54  ifndef etNOFLOAT
1610: 49 4e 47 50 4f 49 4e 54 0a 2f 2a 0a 2a 2a 20 22  INGPOINT./*.** "
1620: 2a 76 61 6c 22 20 69 73 20 61 20 64 6f 75 62 6c  *val" is a doubl
1630: 65 20 73 75 63 68 20 74 68 61 74 20 30 2e 31 20  e such that 0.1 
1640: 3c 3d 20 2a 76 61 6c 20 3c 20 31 30 2e 30 0a 2a  <= *val < 10.0.*
1650: 2a 20 52 65 74 75 72 6e 20 74 68 65 20 61 73 63  * Return the asc
1660: 69 69 20 63 6f 64 65 20 66 6f 72 20 74 68 65 20  ii code for the 
1670: 6c 65 61 64 69 6e 67 20 64 69 67 69 74 20 6f 66  leading digit of
1680: 20 2a 76 61 6c 2c 20 74 68 65 6e 0a 2a 2a 20 6d   *val, then.** m
1690: 75 6c 74 69 70 6c 79 20 22 2a 76 61 6c 22 20 62  ultiply "*val" b
16a0: 79 20 31 30 2e 30 20 74 6f 20 72 65 6e 6f 72 6d  y 10.0 to renorm
16b0: 61 6c 69 7a 65 2e 0a 2a 2a 0a 2a 2a 20 45 78 61  alize..**.** Exa
16c0: 6d 70 6c 65 3a 0a 2a 2a 20 20 20 20 20 69 6e 70  mple:.**     inp
16d0: 75 74 3a 20 20 20 20 20 2a 76 61 6c 20 3d 20 33  ut:     *val = 3
16e0: 2e 31 34 31 35 39 0a 2a 2a 20 20 20 20 20 6f 75  .14159.**     ou
16f0: 74 70 75 74 3a 20 20 20 20 2a 76 61 6c 20 3d 20  tput:    *val = 
1700: 31 2e 34 31 35 39 20 20 20 20 66 75 6e 63 74 69  1.4159    functi
1710: 6f 6e 20 72 65 74 75 72 6e 20 3d 20 27 33 27 0a  on return = '3'.
1720: 2a 2a 0a 2a 2a 20 54 68 65 20 63 6f 75 6e 74 65  **.** The counte
1730: 72 20 2a 63 6e 74 20 69 73 20 69 6e 63 72 65 6d  r *cnt is increm
1740: 65 6e 74 65 64 20 65 61 63 68 20 74 69 6d 65 2e  ented each time.
1750: 20 20 41 66 74 65 72 20 63 6f 75 6e 74 65 72 20    After counter 
1760: 65 78 63 65 65 64 73 0a 2a 2a 20 31 36 20 28 74  exceeds.** 16 (t
1770: 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 73 69 67  he number of sig
1780: 6e 69 66 69 63 61 6e 74 20 64 69 67 69 74 73 20  nificant digits 
1790: 69 6e 20 61 20 36 34 2d 62 69 74 20 66 6c 6f 61  in a 64-bit floa
17a0: 74 29 20 27 30 27 20 69 73 0a 2a 2a 20 61 6c 77  t) '0' is.** alw
17b0: 61 79 73 20 72 65 74 75 72 6e 65 64 2e 0a 2a 2f  ays returned..*/
17c0: 0a 73 74 61 74 69 63 20 69 6e 74 20 65 74 5f 67  .static int et_g
17d0: 65 74 64 69 67 69 74 28 4c 4f 4e 47 44 4f 55 42  etdigit(LONGDOUB
17e0: 4c 45 5f 54 59 50 45 20 2a 76 61 6c 2c 20 69 6e  LE_TYPE *val, in
17f0: 74 20 2a 63 6e 74 29 7b 0a 20 20 69 6e 74 20 64  t *cnt){.  int d
1800: 69 67 69 74 3b 0a 20 20 4c 4f 4e 47 44 4f 55 42  igit;.  LONGDOUB
1810: 4c 45 5f 54 59 50 45 20 64 3b 0a 20 20 69 66 28  LE_TYPE d;.  if(
1820: 20 28 2a 63 6e 74 29 2b 2b 20 3e 3d 20 31 36 20   (*cnt)++ >= 16 
1830: 29 20 72 65 74 75 72 6e 20 27 30 27 3b 0a 20 20  ) return '0';.  
1840: 64 69 67 69 74 20 3d 20 28 69 6e 74 29 2a 76 61  digit = (int)*va
1850: 6c 3b 0a 20 20 64 20 3d 20 64 69 67 69 74 3b 0a  l;.  d = digit;.
1860: 20 20 64 69 67 69 74 20 2b 3d 20 27 30 27 3b 0a    digit += '0';.
1870: 20 20 2a 76 61 6c 20 3d 20 28 2a 76 61 6c 20 2d    *val = (*val -
1880: 20 64 29 2a 31 30 2e 30 3b 0a 20 20 72 65 74 75   d)*10.0;.  retu
1890: 72 6e 20 64 69 67 69 74 3b 0a 7d 0a 23 65 6e 64  rn digit;.}.#end
18a0: 69 66 0a 0a 23 64 65 66 69 6e 65 20 65 74 42 55  if..#define etBU
18b0: 46 53 49 5a 45 20 31 30 30 30 20 20 2f 2a 20 53  FSIZE 1000  /* S
18c0: 69 7a 65 20 6f 66 20 74 68 65 20 6f 75 74 70 75  ize of the outpu
18d0: 74 20 62 75 66 66 65 72 20 2a 2f 0a 0a 2f 2a 0a  t buffer */../*.
18e0: 2a 2a 20 54 68 65 20 72 6f 6f 74 20 70 72 6f 67  ** The root prog
18f0: 72 61 6d 2e 20 20 41 6c 6c 20 76 61 72 69 61 74  ram.  All variat
1900: 69 6f 6e 73 20 63 61 6c 6c 20 74 68 69 73 20 63  ions call this c
1910: 6f 72 65 2e 0a 2a 2a 0a 2a 2a 20 49 4e 50 55 54  ore..**.** INPUT
1920: 53 3a 0a 2a 2a 20 20 20 66 75 6e 63 20 20 20 54  S:.**   func   T
1930: 68 69 73 20 69 73 20 61 20 70 6f 69 6e 74 65 72  his is a pointer
1940: 20 74 6f 20 61 20 66 75 6e 63 74 69 6f 6e 20 74   to a function t
1950: 61 6b 69 6e 67 20 74 68 72 65 65 20 61 72 67 75  aking three argu
1960: 6d 65 6e 74 73 0a 2a 2a 20 20 20 20 20 20 20 20  ments.**        
1970: 20 20 20 20 31 2e 20 41 20 70 6f 69 6e 74 65 72      1. A pointer
1980: 20 74 6f 20 61 6e 79 74 68 69 6e 67 2e 20 20 53   to anything.  S
1990: 61 6d 65 20 61 73 20 74 68 65 20 22 61 72 67 22  ame as the "arg"
19a0: 20 70 61 72 61 6d 65 74 65 72 2e 0a 2a 2a 20 20   parameter..**  
19b0: 20 20 20 20 20 20 20 20 20 20 32 2e 20 41 20 70            2. A p
19c0: 6f 69 6e 74 65 72 20 74 6f 20 74 68 65 20 6c 69  ointer to the li
19d0: 73 74 20 6f 66 20 63 68 61 72 61 63 74 65 72 73  st of characters
19e0: 20 74 6f 20 62 65 20 6f 75 74 70 75 74 0a 2a 2a   to be output.**
19f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28                 (
1a00: 4e 6f 74 65 2c 20 74 68 69 73 20 6c 69 73 74 20  Note, this list 
1a10: 69 73 20 4e 4f 54 20 6e 75 6c 6c 20 74 65 72 6d  is NOT null term
1a20: 69 6e 61 74 65 64 2e 29 0a 2a 2a 20 20 20 20 20  inated.).**     
1a30: 20 20 20 20 20 20 20 33 2e 20 41 6e 20 69 6e 74         3. An int
1a40: 65 67 65 72 20 6e 75 6d 62 65 72 20 6f 66 20 63  eger number of c
1a50: 68 61 72 61 63 74 65 72 73 20 74 6f 20 62 65 20  haracters to be 
1a60: 6f 75 74 70 75 74 2e 0a 2a 2a 20 20 20 20 20 20  output..**      
1a70: 20 20 20 20 20 20 20 20 20 28 4e 6f 74 65 3a 20           (Note: 
1a80: 54 68 69 73 20 6e 75 6d 62 65 72 20 6d 69 67 68  This number migh
1a90: 74 20 62 65 20 7a 65 72 6f 2e 29 0a 2a 2a 0a 2a  t be zero.).**.*
1aa0: 2a 20 20 20 61 72 67 20 20 20 20 54 68 69 73 20  *   arg    This 
1ab0: 69 73 20 74 68 65 20 70 6f 69 6e 74 65 72 20 74  is the pointer t
1ac0: 6f 20 61 6e 79 74 68 69 6e 67 20 77 68 69 63 68  o anything which
1ad0: 20 77 69 6c 6c 20 62 65 20 70 61 73 73 65 64 20   will be passed 
1ae0: 61 73 20 74 68 65 0a 2a 2a 20 20 20 20 20 20 20  as the.**       
1af0: 20 20 20 66 69 72 73 74 20 61 72 67 75 6d 65 6e     first argumen
1b00: 74 20 74 6f 20 22 66 75 6e 63 22 2e 20 20 55 73  t to "func".  Us
1b10: 65 20 69 74 20 66 6f 72 20 77 68 61 74 65 76 65  e it for whateve
1b20: 72 20 79 6f 75 20 6c 69 6b 65 2e 0a 2a 2a 0a 2a  r you like..**.*
1b30: 2a 20 20 20 66 6d 74 20 20 20 20 54 68 69 73 20  *   fmt    This 
1b40: 69 73 20 74 68 65 20 66 6f 72 6d 61 74 20 73 74  is the format st
1b50: 72 69 6e 67 2c 20 61 73 20 69 6e 20 74 68 65 20  ring, as in the 
1b60: 75 73 75 61 6c 20 70 72 69 6e 74 2e 0a 2a 2a 0a  usual print..**.
1b70: 2a 2a 20 20 20 61 70 20 20 20 20 20 54 68 69 73  **   ap     This
1b80: 20 69 73 20 61 20 70 6f 69 6e 74 65 72 20 74 6f   is a pointer to
1b90: 20 61 20 6c 69 73 74 20 6f 66 20 61 72 67 75 6d   a list of argum
1ba0: 65 6e 74 73 2e 20 20 53 61 6d 65 20 61 73 20 69  ents.  Same as i
1bb0: 6e 0a 2a 2a 20 20 20 20 20 20 20 20 20 20 76 66  n.**          vf
1bc0: 70 72 69 6e 74 2e 0a 2a 2a 0a 2a 2a 20 4f 55 54  print..**.** OUT
1bd0: 50 55 54 53 3a 0a 2a 2a 20 20 20 20 20 20 20 20  PUTS:.**        
1be0: 20 20 54 68 65 20 72 65 74 75 72 6e 20 76 61 6c    The return val
1bf0: 75 65 20 69 73 20 74 68 65 20 74 6f 74 61 6c 20  ue is the total 
1c00: 6e 75 6d 62 65 72 20 6f 66 20 63 68 61 72 61 63  number of charac
1c10: 74 65 72 73 20 73 65 6e 74 20 74 6f 0a 2a 2a 20  ters sent to.** 
1c20: 20 20 20 20 20 20 20 20 20 74 68 65 20 66 75 6e           the fun
1c30: 63 74 69 6f 6e 20 22 66 75 6e 63 22 2e 20 20 52  ction "func".  R
1c40: 65 74 75 72 6e 73 20 2d 31 20 6f 6e 20 61 20 65  eturns -1 on a e
1c50: 72 72 6f 72 2e 0a 2a 2a 0a 2a 2a 20 4e 6f 74 65  rror..**.** Note
1c60: 20 74 68 61 74 20 74 68 65 20 6f 72 64 65 72 20   that the order 
1c70: 69 6e 20 77 68 69 63 68 20 61 75 74 6f 6d 61 74  in which automat
1c80: 69 63 20 76 61 72 69 61 62 6c 65 73 20 61 72 65  ic variables are
1c90: 20 64 65 63 6c 61 72 65 64 20 62 65 6c 6f 77 0a   declared below.
1ca0: 2a 2a 20 73 65 65 6d 73 20 74 6f 20 6d 61 6b 65  ** seems to make
1cb0: 20 61 20 62 69 67 20 64 69 66 66 65 72 65 6e 63   a big differenc
1cc0: 65 20 69 6e 20 64 65 74 65 72 6d 69 6e 69 6e 67  e in determining
1cd0: 20 68 6f 77 20 66 61 73 74 20 74 68 69 73 20 62   how fast this b
1ce0: 65 61 73 74 0a 2a 2a 20 77 69 6c 6c 20 72 75 6e  east.** will run
1cf0: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20  ..*/.static int 
1d00: 76 78 70 72 69 6e 74 66 28 0a 20 20 76 6f 69 64  vxprintf(.  void
1d10: 20 28 2a 66 75 6e 63 29 28 76 6f 69 64 2a 2c 63   (*func)(void*,c
1d20: 6f 6e 73 74 20 63 68 61 72 2a 2c 69 6e 74 29 2c  onst char*,int),
1d30: 20 20 20 20 20 2f 2a 20 43 6f 6e 73 75 6d 65 72       /* Consumer
1d40: 20 6f 66 20 74 65 78 74 20 2a 2f 0a 20 20 76 6f   of text */.  vo
1d50: 69 64 20 2a 61 72 67 2c 20 20 20 20 20 20 20 20  id *arg,        
1d60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1d70: 20 2f 2a 20 46 69 72 73 74 20 61 72 67 75 6d 65   /* First argume
1d80: 6e 74 20 74 6f 20 74 68 65 20 63 6f 6e 73 75 6d  nt to the consum
1d90: 65 72 20 2a 2f 0a 20 20 69 6e 74 20 75 73 65 45  er */.  int useE
1da0: 78 74 65 6e 64 65 64 2c 20 20 20 20 20 20 20 20  xtended,        
1db0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 41 6c             /* Al
1dc0: 6c 6f 77 20 65 78 74 65 6e 64 65 64 20 25 2d 63  low extended %-c
1dd0: 6f 6e 76 65 72 73 69 6f 6e 73 20 2a 2f 0a 20 20  onversions */.  
1de0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 66 6d 74 2c  const char *fmt,
1df0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1e00: 20 20 20 2f 2a 20 46 6f 72 6d 61 74 20 73 74 72     /* Format str
1e10: 69 6e 67 20 2a 2f 0a 20 20 76 61 5f 6c 69 73 74  ing */.  va_list
1e20: 20 61 70 20 20 20 20 20 20 20 20 20 20 20 20 20   ap             
1e30: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 61              /* a
1e40: 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20  rguments */.){. 
1e50: 20 69 6e 74 20 63 3b 20 20 20 20 20 20 20 20 20   int c;         
1e60: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e              /* N
1e70: 65 78 74 20 63 68 61 72 61 63 74 65 72 20 69 6e  ext character in
1e80: 20 74 68 65 20 66 6f 72 6d 61 74 20 73 74 72 69   the format stri
1e90: 6e 67 20 2a 2f 0a 20 20 63 68 61 72 20 2a 62 75  ng */.  char *bu
1ea0: 66 70 74 3b 20 20 20 20 20 20 20 20 20 20 20 20  fpt;            
1eb0: 20 20 20 2f 2a 20 50 6f 69 6e 74 65 72 20 74 6f     /* Pointer to
1ec0: 20 74 68 65 20 63 6f 6e 76 65 72 73 69 6f 6e 20   the conversion 
1ed0: 62 75 66 66 65 72 20 2a 2f 0a 20 20 69 6e 74 20  buffer */.  int 
1ee0: 70 72 65 63 69 73 69 6f 6e 3b 20 20 20 20 20 20  precision;      
1ef0: 20 20 20 20 20 20 20 2f 2a 20 50 72 65 63 69 73         /* Precis
1f00: 69 6f 6e 20 6f 66 20 74 68 65 20 63 75 72 72 65  ion of the curre
1f10: 6e 74 20 66 69 65 6c 64 20 2a 2f 0a 20 20 69 6e  nt field */.  in
1f20: 74 20 6c 65 6e 67 74 68 3b 20 20 20 20 20 20 20  t length;       
1f30: 20 20 20 20 20 20 20 20 20 2f 2a 20 4c 65 6e 67           /* Leng
1f40: 74 68 20 6f 66 20 74 68 65 20 66 69 65 6c 64 20  th of the field 
1f50: 2a 2f 0a 20 20 69 6e 74 20 69 64 78 3b 20 20 20  */.  int idx;   
1f60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1f70: 2f 2a 20 41 20 67 65 6e 65 72 61 6c 20 70 75 72  /* A general pur
1f80: 70 6f 73 65 20 6c 6f 6f 70 20 63 6f 75 6e 74 65  pose loop counte
1f90: 72 20 2a 2f 0a 20 20 69 6e 74 20 63 6f 75 6e 74  r */.  int count
1fa0: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ;               
1fb0: 20 20 2f 2a 20 54 6f 74 61 6c 20 6e 75 6d 62 65    /* Total numbe
1fc0: 72 20 6f 66 20 63 68 61 72 61 63 74 65 72 73 20  r of characters 
1fd0: 6f 75 74 70 75 74 20 2a 2f 0a 20 20 69 6e 74 20  output */.  int 
1fe0: 77 69 64 74 68 3b 20 20 20 20 20 20 20 20 20 20  width;          
1ff0: 20 20 20 20 20 20 20 2f 2a 20 57 69 64 74 68 20         /* Width 
2000: 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 66  of the current f
2010: 69 65 6c 64 20 2a 2f 0a 20 20 65 74 42 79 74 65  ield */.  etByte
2020: 20 66 6c 61 67 5f 6c 65 66 74 6a 75 73 74 69 66   flag_leftjustif
2030: 79 3b 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20  y;   /* True if 
2040: 22 2d 22 20 66 6c 61 67 20 69 73 20 70 72 65 73  "-" flag is pres
2050: 65 6e 74 20 2a 2f 0a 20 20 65 74 42 79 74 65 20  ent */.  etByte 
2060: 66 6c 61 67 5f 70 6c 75 73 73 69 67 6e 3b 20 20  flag_plussign;  
2070: 20 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20 22      /* True if "
2080: 2b 22 20 66 6c 61 67 20 69 73 20 70 72 65 73 65  +" flag is prese
2090: 6e 74 20 2a 2f 0a 20 20 65 74 42 79 74 65 20 66  nt */.  etByte f
20a0: 6c 61 67 5f 62 6c 61 6e 6b 73 69 67 6e 3b 20 20  lag_blanksign;  
20b0: 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20 22 20     /* True if " 
20c0: 22 20 66 6c 61 67 20 69 73 20 70 72 65 73 65 6e  " flag is presen
20d0: 74 20 2a 2f 0a 20 20 65 74 42 79 74 65 20 66 6c  t */.  etByte fl
20e0: 61 67 5f 61 6c 74 65 72 6e 61 74 65 66 6f 72 6d  ag_alternateform
20f0: 3b 20 2f 2a 20 54 72 75 65 20 69 66 20 22 23 22  ; /* True if "#"
2100: 20 66 6c 61 67 20 69 73 20 70 72 65 73 65 6e 74   flag is present
2110: 20 2a 2f 0a 20 20 65 74 42 79 74 65 20 66 6c 61   */.  etByte fla
2120: 67 5f 7a 65 72 6f 70 61 64 3b 20 20 20 20 20 20  g_zeropad;      
2130: 20 2f 2a 20 54 72 75 65 20 69 66 20 66 69 65 6c   /* True if fiel
2140: 64 20 77 69 64 74 68 20 63 6f 6e 73 74 61 6e 74  d width constant
2150: 20 73 74 61 72 74 73 20 77 69 74 68 20 7a 65 72   starts with zer
2160: 6f 20 2a 2f 0a 20 20 65 74 42 79 74 65 20 66 6c  o */.  etByte fl
2170: 61 67 5f 6c 6f 6e 67 3b 20 20 20 20 20 20 20 20  ag_long;        
2180: 20 20 2f 2a 20 54 72 75 65 20 69 66 20 22 6c 22    /* True if "l"
2190: 20 66 6c 61 67 20 69 73 20 70 72 65 73 65 6e 74   flag is present
21a0: 20 2a 2f 0a 20 20 65 74 42 79 74 65 20 66 6c 61   */.  etByte fla
21b0: 67 5f 6c 6f 6e 67 6c 6f 6e 67 3b 20 20 20 20 20  g_longlong;     
21c0: 20 2f 2a 20 54 72 75 65 20 69 66 20 74 68 65 20   /* True if the 
21d0: 22 6c 6c 22 20 66 6c 61 67 20 69 73 20 70 72 65  "ll" flag is pre
21e0: 73 65 6e 74 20 2a 2f 0a 20 20 55 49 4e 54 36 34  sent */.  UINT64
21f0: 5f 54 59 50 45 20 6c 6f 6e 67 76 61 6c 75 65 3b  _TYPE longvalue;
2200: 20 20 20 20 20 2f 2a 20 56 61 6c 75 65 20 66 6f       /* Value fo
2210: 72 20 69 6e 74 65 67 65 72 20 74 79 70 65 73 20  r integer types 
2220: 2a 2f 0a 20 20 4c 4f 4e 47 44 4f 55 42 4c 45 5f  */.  LONGDOUBLE_
2230: 54 59 50 45 20 72 65 61 6c 76 61 6c 75 65 3b 20  TYPE realvalue; 
2240: 2f 2a 20 56 61 6c 75 65 20 66 6f 72 20 72 65 61  /* Value for rea
2250: 6c 20 74 79 70 65 73 20 2a 2f 0a 20 20 65 74 5f  l types */.  et_
2260: 69 6e 66 6f 20 2a 69 6e 66 6f 70 3b 20 20 20 20  info *infop;    
2270: 20 20 20 20 20 20 20 20 2f 2a 20 50 6f 69 6e 74          /* Point
2280: 65 72 20 74 6f 20 74 68 65 20 61 70 70 72 6f 70  er to the approp
2290: 72 69 61 74 65 20 69 6e 66 6f 20 73 74 72 75 63  riate info struc
22a0: 74 75 72 65 20 2a 2f 0a 20 20 63 68 61 72 20 62  ture */.  char b
22b0: 75 66 5b 65 74 42 55 46 53 49 5a 45 5d 3b 20 20  uf[etBUFSIZE];  
22c0: 20 20 20 20 20 2f 2a 20 43 6f 6e 76 65 72 73 69       /* Conversi
22d0: 6f 6e 20 62 75 66 66 65 72 20 2a 2f 0a 20 20 63  on buffer */.  c
22e0: 68 61 72 20 70 72 65 66 69 78 3b 20 20 20 20 20  har prefix;     
22f0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 50 72 65            /* Pre
2300: 66 69 78 20 63 68 61 72 61 63 74 65 72 2e 20 20  fix character.  
2310: 22 2b 22 20 6f 72 20 22 2d 22 20 6f 72 20 22 20  "+" or "-" or " 
2320: 22 20 6f 72 20 27 5c 30 27 2e 20 2a 2f 0a 20 20  " or '\0'. */.  
2330: 65 74 42 79 74 65 20 65 72 72 6f 72 66 6c 61 67  etByte errorflag
2340: 20 3d 20 30 3b 20 20 20 20 20 20 2f 2a 20 54 72   = 0;      /* Tr
2350: 75 65 20 69 66 20 61 6e 20 65 72 72 6f 72 20 69  ue if an error i
2360: 73 20 65 6e 63 6f 75 6e 74 65 72 65 64 20 2a 2f  s encountered */
2370: 0a 20 20 65 74 42 79 74 65 20 78 74 79 70 65 3b  .  etByte xtype;
2380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
2390: 20 43 6f 6e 76 65 72 73 69 6f 6e 20 70 61 72 61   Conversion para
23a0: 64 69 67 6d 20 2a 2f 0a 20 20 63 68 61 72 20 2a  digm */.  char *
23b0: 7a 45 78 74 72 61 3b 20 20 20 20 20 20 20 20 20  zExtra;         
23c0: 20 20 20 20 20 2f 2a 20 45 78 74 72 61 20 6d 65       /* Extra me
23d0: 6d 6f 72 79 20 75 73 65 64 20 66 6f 72 20 65 74  mory used for et
23e0: 54 43 4c 45 53 43 41 50 45 20 63 6f 6e 76 65 72  TCLESCAPE conver
23f0: 73 69 6f 6e 73 20 2a 2f 0a 20 20 73 74 61 74 69  sions */.  stati
2400: 63 20 63 68 61 72 20 73 70 61 63 65 73 5b 5d 20  c char spaces[] 
2410: 3d 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20  = "             
2420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2440: 20 20 20 20 20 22 3b 0a 23 64 65 66 69 6e 65 20       ";.#define 
2450: 65 74 53 50 41 43 45 53 49 5a 45 20 28 73 69 7a  etSPACESIZE (siz
2460: 65 6f 66 28 73 70 61 63 65 73 29 2d 31 29 0a 23  eof(spaces)-1).#
2470: 69 66 6e 64 65 66 20 65 74 4e 4f 46 4c 4f 41 54  ifndef etNOFLOAT
2480: 49 4e 47 50 4f 49 4e 54 0a 20 20 69 6e 74 20 20  INGPOINT.  int  
2490: 65 78 70 3b 20 20 20 20 20 20 20 20 20 20 20 20  exp;            
24a0: 20 20 20 20 20 20 2f 2a 20 65 78 70 6f 6e 65 6e        /* exponen
24b0: 74 20 6f 66 20 72 65 61 6c 20 6e 75 6d 62 65 72  t of real number
24c0: 73 20 2a 2f 0a 20 20 64 6f 75 62 6c 65 20 72 6f  s */.  double ro
24d0: 75 6e 64 65 72 3b 20 20 20 20 20 20 20 20 20 20  under;          
24e0: 20 20 2f 2a 20 55 73 65 64 20 66 6f 72 20 72 6f    /* Used for ro
24f0: 75 6e 64 69 6e 67 20 66 6c 6f 61 74 69 6e 67 20  unding floating 
2500: 70 6f 69 6e 74 20 76 61 6c 75 65 73 20 2a 2f 0a  point values */.
2510: 20 20 65 74 42 79 74 65 20 66 6c 61 67 5f 64 70    etByte flag_dp
2520: 3b 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20  ;            /* 
2530: 54 72 75 65 20 69 66 20 64 65 63 69 6d 61 6c 20  True if decimal 
2540: 70 6f 69 6e 74 20 73 68 6f 75 6c 64 20 62 65 20  point should be 
2550: 73 68 6f 77 6e 20 2a 2f 0a 20 20 65 74 42 79 74  shown */.  etByt
2560: 65 20 66 6c 61 67 5f 72 74 7a 3b 20 20 20 20 20  e flag_rtz;     
2570: 20 20 20 20 20 20 2f 2a 20 54 72 75 65 20 69 66        /* True if
2580: 20 74 72 61 69 6c 69 6e 67 20 7a 65 72 6f 73 20   trailing zeros 
2590: 73 68 6f 75 6c 64 20 62 65 20 72 65 6d 6f 76 65  should be remove
25a0: 64 20 2a 2f 0a 20 20 65 74 42 79 74 65 20 66 6c  d */.  etByte fl
25b0: 61 67 5f 65 78 70 3b 20 20 20 20 20 20 20 20 20  ag_exp;         
25c0: 20 20 2f 2a 20 54 72 75 65 20 74 6f 20 66 6f 72    /* True to for
25d0: 63 65 20 64 69 73 70 6c 61 79 20 6f 66 20 74 68  ce display of th
25e0: 65 20 65 78 70 6f 6e 65 6e 74 20 2a 2f 0a 20 20  e exponent */.  
25f0: 69 6e 74 20 6e 73 64 3b 20 20 20 20 20 20 20 20  int nsd;        
2600: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75             /* Nu
2610: 6d 62 65 72 20 6f 66 20 73 69 67 6e 69 66 69 63  mber of signific
2620: 61 6e 74 20 64 69 67 69 74 73 20 72 65 74 75 72  ant digits retur
2630: 6e 65 64 20 2a 2f 0a 23 65 6e 64 69 66 0a 0a 20  ned */.#endif.. 
2640: 20 66 75 6e 63 28 61 72 67 2c 22 22 2c 30 29 3b   func(arg,"",0);
2650: 0a 20 20 63 6f 75 6e 74 20 3d 20 6c 65 6e 67 74  .  count = lengt
2660: 68 20 3d 20 30 3b 0a 20 20 62 75 66 70 74 20 3d  h = 0;.  bufpt =
2670: 20 30 3b 0a 20 20 66 6f 72 28 3b 20 28 63 3d 28   0;.  for(; (c=(
2680: 2a 66 6d 74 29 29 21 3d 30 3b 20 2b 2b 66 6d 74  *fmt))!=0; ++fmt
2690: 29 7b 0a 20 20 20 20 69 66 28 20 63 21 3d 27 25  ){.    if( c!='%
26a0: 27 20 29 7b 0a 20 20 20 20 20 20 69 6e 74 20 61  ' ){.      int a
26b0: 6d 74 3b 0a 20 20 20 20 20 20 62 75 66 70 74 20  mt;.      bufpt 
26c0: 3d 20 28 63 68 61 72 20 2a 29 66 6d 74 3b 0a 20  = (char *)fmt;. 
26d0: 20 20 20 20 20 61 6d 74 20 3d 20 31 3b 0a 20 20       amt = 1;.  
26e0: 20 20 20 20 77 68 69 6c 65 28 20 28 63 3d 28 2a      while( (c=(*
26f0: 2b 2b 66 6d 74 29 29 21 3d 27 25 27 20 26 26 20  ++fmt))!='%' && 
2700: 63 21 3d 30 20 29 20 61 6d 74 2b 2b 3b 0a 20 20  c!=0 ) amt++;.  
2710: 20 20 20 20 28 2a 66 75 6e 63 29 28 61 72 67 2c      (*func)(arg,
2720: 62 75 66 70 74 2c 61 6d 74 29 3b 0a 20 20 20 20  bufpt,amt);.    
2730: 20 20 63 6f 75 6e 74 20 2b 3d 20 61 6d 74 3b 0a    count += amt;.
2740: 20 20 20 20 20 20 69 66 28 20 63 3d 3d 30 20 29        if( c==0 )
2750: 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20   break;.    }.  
2760: 20 20 69 66 28 20 28 63 3d 28 2a 2b 2b 66 6d 74    if( (c=(*++fmt
2770: 29 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 65  ))==0 ){.      e
2780: 72 72 6f 72 66 6c 61 67 20 3d 20 31 3b 0a 20 20  rrorflag = 1;.  
2790: 20 20 20 20 28 2a 66 75 6e 63 29 28 61 72 67 2c      (*func)(arg,
27a0: 22 25 22 2c 31 29 3b 0a 20 20 20 20 20 20 63 6f  "%",1);.      co
27b0: 75 6e 74 2b 2b 3b 0a 20 20 20 20 20 20 62 72 65  unt++;.      bre
27c0: 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 2f 2a  ak;.    }.    /*
27d0: 20 46 69 6e 64 20 6f 75 74 20 77 68 61 74 20 66   Find out what f
27e0: 6c 61 67 73 20 61 72 65 20 70 72 65 73 65 6e 74  lags are present
27f0: 20 2a 2f 0a 20 20 20 20 66 6c 61 67 5f 6c 65 66   */.    flag_lef
2800: 74 6a 75 73 74 69 66 79 20 3d 20 66 6c 61 67 5f  tjustify = flag_
2810: 70 6c 75 73 73 69 67 6e 20 3d 20 66 6c 61 67 5f  plussign = flag_
2820: 62 6c 61 6e 6b 73 69 67 6e 20 3d 20 0a 20 20 20  blanksign = .   
2830: 20 20 66 6c 61 67 5f 61 6c 74 65 72 6e 61 74 65    flag_alternate
2840: 66 6f 72 6d 20 3d 20 66 6c 61 67 5f 7a 65 72 6f  form = flag_zero
2850: 70 61 64 20 3d 20 30 3b 0a 20 20 20 20 64 6f 7b  pad = 0;.    do{
2860: 0a 20 20 20 20 20 20 73 77 69 74 63 68 28 20 63  .      switch( c
2870: 20 29 7b 0a 20 20 20 20 20 20 20 20 63 61 73 65   ){.        case
2880: 20 27 2d 27 3a 20 20 20 66 6c 61 67 5f 6c 65 66   '-':   flag_lef
2890: 74 6a 75 73 74 69 66 79 20 3d 20 31 3b 20 20 20  tjustify = 1;   
28a0: 20 20 63 20 3d 20 30 3b 20 20 20 62 72 65 61 6b    c = 0;   break
28b0: 3b 0a 20 20 20 20 20 20 20 20 63 61 73 65 20 27  ;.        case '
28c0: 2b 27 3a 20 20 20 66 6c 61 67 5f 70 6c 75 73 73  +':   flag_pluss
28d0: 69 67 6e 20 3d 20 31 3b 20 20 20 20 20 20 20 20  ign = 1;        
28e0: 63 20 3d 20 30 3b 20 20 20 62 72 65 61 6b 3b 0a  c = 0;   break;.
28f0: 20 20 20 20 20 20 20 20 63 61 73 65 20 27 20 27          case ' '
2900: 3a 20 20 20 66 6c 61 67 5f 62 6c 61 6e 6b 73 69  :   flag_blanksi
2910: 67 6e 20 3d 20 31 3b 20 20 20 20 20 20 20 63 20  gn = 1;       c 
2920: 3d 20 30 3b 20 20 20 62 72 65 61 6b 3b 0a 20 20  = 0;   break;.  
2930: 20 20 20 20 20 20 63 61 73 65 20 27 23 27 3a 20        case '#': 
2940: 20 20 66 6c 61 67 5f 61 6c 74 65 72 6e 61 74 65    flag_alternate
2950: 66 6f 72 6d 20 3d 20 31 3b 20 20 20 63 20 3d 20  form = 1;   c = 
2960: 30 3b 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20  0;   break;.    
2970: 20 20 20 20 63 61 73 65 20 27 30 27 3a 20 20 20      case '0':   
2980: 66 6c 61 67 5f 7a 65 72 6f 70 61 64 20 3d 20 31  flag_zeropad = 1
2990: 3b 20 20 20 20 20 20 20 20 20 63 20 3d 20 30 3b  ;         c = 0;
29a0: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20     break;.      
29b0: 20 20 64 65 66 61 75 6c 74 3a 20 20 20 20 20 20    default:      
29c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
29d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
29e0: 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 7d 0a   break;.      }.
29f0: 20 20 20 20 7d 77 68 69 6c 65 28 20 63 3d 3d 30      }while( c==0
2a00: 20 26 26 20 28 63 3d 28 2a 2b 2b 66 6d 74 29 29   && (c=(*++fmt))
2a10: 21 3d 30 20 29 3b 0a 20 20 20 20 2f 2a 20 47 65  !=0 );.    /* Ge
2a20: 74 20 74 68 65 20 66 69 65 6c 64 20 77 69 64 74  t the field widt
2a30: 68 20 2a 2f 0a 20 20 20 20 77 69 64 74 68 20 3d  h */.    width =
2a40: 20 30 3b 0a 20 20 20 20 69 66 28 20 63 3d 3d 27   0;.    if( c=='
2a50: 2a 27 20 29 7b 0a 20 20 20 20 20 20 77 69 64 74  *' ){.      widt
2a60: 68 20 3d 20 76 61 5f 61 72 67 28 61 70 2c 69 6e  h = va_arg(ap,in
2a70: 74 29 3b 0a 20 20 20 20 20 20 69 66 28 20 77 69  t);.      if( wi
2a80: 64 74 68 3c 30 20 29 7b 0a 20 20 20 20 20 20 20  dth<0 ){.       
2a90: 20 66 6c 61 67 5f 6c 65 66 74 6a 75 73 74 69 66   flag_leftjustif
2aa0: 79 20 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 77  y = 1;.        w
2ab0: 69 64 74 68 20 3d 20 2d 77 69 64 74 68 3b 0a 20  idth = -width;. 
2ac0: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 63 20 3d       }.      c =
2ad0: 20 2a 2b 2b 66 6d 74 3b 0a 20 20 20 20 7d 65 6c   *++fmt;.    }el
2ae0: 73 65 7b 0a 20 20 20 20 20 20 77 68 69 6c 65 28  se{.      while(
2af0: 20 63 3e 3d 27 30 27 20 26 26 20 63 3c 3d 27 39   c>='0' && c<='9
2b00: 27 20 29 7b 0a 20 20 20 20 20 20 20 20 77 69 64  ' ){.        wid
2b10: 74 68 20 3d 20 77 69 64 74 68 2a 31 30 20 2b 20  th = width*10 + 
2b20: 63 20 2d 20 27 30 27 3b 0a 20 20 20 20 20 20 20  c - '0';.       
2b30: 20 63 20 3d 20 2a 2b 2b 66 6d 74 3b 0a 20 20 20   c = *++fmt;.   
2b40: 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 69     }.    }.    i
2b50: 66 28 20 77 69 64 74 68 20 3e 20 65 74 42 55 46  f( width > etBUF
2b60: 53 49 5a 45 2d 31 30 20 29 7b 0a 20 20 20 20 20  SIZE-10 ){.     
2b70: 20 77 69 64 74 68 20 3d 20 65 74 42 55 46 53 49   width = etBUFSI
2b80: 5a 45 2d 31 30 3b 0a 20 20 20 20 7d 0a 20 20 20  ZE-10;.    }.   
2b90: 20 2f 2a 20 47 65 74 20 74 68 65 20 70 72 65 63   /* Get the prec
2ba0: 69 73 69 6f 6e 20 2a 2f 0a 20 20 20 20 69 66 28  ision */.    if(
2bb0: 20 63 3d 3d 27 2e 27 20 29 7b 0a 20 20 20 20 20   c=='.' ){.     
2bc0: 20 70 72 65 63 69 73 69 6f 6e 20 3d 20 30 3b 0a   precision = 0;.
2bd0: 20 20 20 20 20 20 63 20 3d 20 2a 2b 2b 66 6d 74        c = *++fmt
2be0: 3b 0a 20 20 20 20 20 20 69 66 28 20 63 3d 3d 27  ;.      if( c=='
2bf0: 2a 27 20 29 7b 0a 20 20 20 20 20 20 20 20 70 72  *' ){.        pr
2c00: 65 63 69 73 69 6f 6e 20 3d 20 76 61 5f 61 72 67  ecision = va_arg
2c10: 28 61 70 2c 69 6e 74 29 3b 0a 20 20 20 20 20 20  (ap,int);.      
2c20: 20 20 69 66 28 20 70 72 65 63 69 73 69 6f 6e 3c    if( precision<
2c30: 30 20 29 20 70 72 65 63 69 73 69 6f 6e 20 3d 20  0 ) precision = 
2c40: 2d 70 72 65 63 69 73 69 6f 6e 3b 0a 20 20 20 20  -precision;.    
2c50: 20 20 20 20 63 20 3d 20 2a 2b 2b 66 6d 74 3b 0a      c = *++fmt;.
2c60: 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20        }else{.   
2c70: 20 20 20 20 20 77 68 69 6c 65 28 20 63 3e 3d 27       while( c>='
2c80: 30 27 20 26 26 20 63 3c 3d 27 39 27 20 29 7b 0a  0' && c<='9' ){.
2c90: 20 20 20 20 20 20 20 20 20 20 70 72 65 63 69 73            precis
2ca0: 69 6f 6e 20 3d 20 70 72 65 63 69 73 69 6f 6e 2a  ion = precision*
2cb0: 31 30 20 2b 20 63 20 2d 20 27 30 27 3b 0a 20 20  10 + c - '0';.  
2cc0: 20 20 20 20 20 20 20 20 63 20 3d 20 2a 2b 2b 66          c = *++f
2cd0: 6d 74 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20  mt;.        }.  
2ce0: 20 20 20 20 7d 0a 20 20 20 20 20 20 2f 2a 20 4c      }.      /* L
2cf0: 69 6d 69 74 20 74 68 65 20 70 72 65 63 69 73 69  imit the precisi
2d00: 6f 6e 20 74 6f 20 70 72 65 76 65 6e 74 20 6f 76  on to prevent ov
2d10: 65 72 66 6c 6f 77 69 6e 67 20 62 75 66 5b 5d 20  erflowing buf[] 
2d20: 64 75 72 69 6e 67 20 63 6f 6e 76 65 72 73 69 6f  during conversio
2d30: 6e 20 2a 2f 0a 20 20 20 20 20 20 69 66 28 20 70  n */.      if( p
2d40: 72 65 63 69 73 69 6f 6e 3e 65 74 42 55 46 53 49  recision>etBUFSI
2d50: 5a 45 2d 34 30 20 29 20 70 72 65 63 69 73 69 6f  ZE-40 ) precisio
2d60: 6e 20 3d 20 65 74 42 55 46 53 49 5a 45 2d 34 30  n = etBUFSIZE-40
2d70: 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20  ;.    }else{.   
2d80: 20 20 20 70 72 65 63 69 73 69 6f 6e 20 3d 20 2d     precision = -
2d90: 31 3b 0a 20 20 20 20 7d 0a 20 20 20 20 2f 2a 20  1;.    }.    /* 
2da0: 47 65 74 20 74 68 65 20 63 6f 6e 76 65 72 73 69  Get the conversi
2db0: 6f 6e 20 74 79 70 65 20 6d 6f 64 69 66 69 65 72  on type modifier
2dc0: 20 2a 2f 0a 20 20 20 20 69 66 28 20 63 3d 3d 27   */.    if( c=='
2dd0: 6c 27 20 29 7b 0a 20 20 20 20 20 20 66 6c 61 67  l' ){.      flag
2de0: 5f 6c 6f 6e 67 20 3d 20 31 3b 0a 20 20 20 20 20  _long = 1;.     
2df0: 20 63 20 3d 20 2a 2b 2b 66 6d 74 3b 0a 20 20 20   c = *++fmt;.   
2e00: 20 20 20 69 66 28 20 63 3d 3d 27 6c 27 20 29 7b     if( c=='l' ){
2e10: 0a 20 20 20 20 20 20 20 20 66 6c 61 67 5f 6c 6f  .        flag_lo
2e20: 6e 67 6c 6f 6e 67 20 3d 20 31 3b 0a 20 20 20 20  nglong = 1;.    
2e30: 20 20 20 20 63 20 3d 20 2a 2b 2b 66 6d 74 3b 0a      c = *++fmt;.
2e40: 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20        }else{.   
2e50: 20 20 20 20 20 66 6c 61 67 5f 6c 6f 6e 67 6c 6f       flag_longlo
2e60: 6e 67 20 3d 20 30 3b 0a 20 20 20 20 20 20 7d 0a  ng = 0;.      }.
2e70: 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20      }else{.     
2e80: 20 66 6c 61 67 5f 6c 6f 6e 67 20 3d 20 66 6c 61   flag_long = fla
2e90: 67 5f 6c 6f 6e 67 6c 6f 6e 67 20 3d 20 30 3b 0a  g_longlong = 0;.
2ea0: 20 20 20 20 7d 0a 20 20 20 20 2f 2a 20 46 65 74      }.    /* Fet
2eb0: 63 68 20 74 68 65 20 69 6e 66 6f 20 65 6e 74 72  ch the info entr
2ec0: 79 20 66 6f 72 20 74 68 65 20 66 69 65 6c 64 20  y for the field 
2ed0: 2a 2f 0a 20 20 20 20 69 6e 66 6f 70 20 3d 20 30  */.    infop = 0
2ee0: 3b 0a 20 20 20 20 78 74 79 70 65 20 3d 20 65 74  ;.    xtype = et
2ef0: 45 52 52 4f 52 3b 0a 20 20 20 20 66 6f 72 28 69  ERROR;.    for(i
2f00: 64 78 3d 30 3b 20 69 64 78 3c 65 74 4e 49 4e 46  dx=0; idx<etNINF
2f10: 4f 3b 20 69 64 78 2b 2b 29 7b 0a 20 20 20 20 20  O; idx++){.     
2f20: 20 69 66 28 20 63 3d 3d 66 6d 74 69 6e 66 6f 5b   if( c==fmtinfo[
2f30: 69 64 78 5d 2e 66 6d 74 74 79 70 65 20 29 7b 0a  idx].fmttype ){.
2f40: 20 20 20 20 20 20 20 20 69 6e 66 6f 70 20 3d 20          infop = 
2f50: 26 66 6d 74 69 6e 66 6f 5b 69 64 78 5d 3b 0a 20  &fmtinfo[idx];. 
2f60: 20 20 20 20 20 20 20 69 66 28 20 75 73 65 45 78         if( useEx
2f70: 74 65 6e 64 65 64 20 7c 7c 20 28 69 6e 66 6f 70  tended || (infop
2f80: 2d 3e 66 6c 61 67 73 20 26 20 46 4c 41 47 5f 49  ->flags & FLAG_I
2f90: 4e 54 45 52 4e 29 3d 3d 30 20 29 7b 0a 20 20 20  NTERN)==0 ){.   
2fa0: 20 20 20 20 20 20 20 78 74 79 70 65 20 3d 20 69         xtype = i
2fb0: 6e 66 6f 70 2d 3e 74 79 70 65 3b 0a 20 20 20 20  nfop->type;.    
2fc0: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 62 72      }.        br
2fd0: 65 61 6b 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20  eak;.      }.   
2fe0: 20 7d 0a 20 20 20 20 7a 45 78 74 72 61 20 3d 20   }.    zExtra = 
2ff0: 30 3b 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 2a  0;..    /*.    *
3000: 2a 20 41 74 20 74 68 69 73 20 70 6f 69 6e 74 2c  * At this point,
3010: 20 76 61 72 69 61 62 6c 65 73 20 61 72 65 20 69   variables are i
3020: 6e 69 74 69 61 6c 69 7a 65 64 20 61 73 20 66 6f  nitialized as fo
3030: 6c 6c 6f 77 73 3a 0a 20 20 20 20 2a 2a 0a 20 20  llows:.    **.  
3040: 20 20 2a 2a 20 20 20 66 6c 61 67 5f 61 6c 74 65    **   flag_alte
3050: 72 6e 61 74 65 66 6f 72 6d 20 20 20 20 20 20 20  rnateform       
3060: 20 20 20 54 52 55 45 20 69 66 20 61 20 27 23 27     TRUE if a '#'
3070: 20 69 73 20 70 72 65 73 65 6e 74 2e 0a 20 20 20   is present..   
3080: 20 2a 2a 20 20 20 66 6c 61 67 5f 70 6c 75 73 73   **   flag_pluss
3090: 69 67 6e 20 20 20 20 20 20 20 20 20 20 20 20 20  ign             
30a0: 20 20 54 52 55 45 20 69 66 20 61 20 27 2b 27 20    TRUE if a '+' 
30b0: 69 73 20 70 72 65 73 65 6e 74 2e 0a 20 20 20 20  is present..    
30c0: 2a 2a 20 20 20 66 6c 61 67 5f 6c 65 66 74 6a 75  **   flag_leftju
30d0: 73 74 69 66 79 20 20 20 20 20 20 20 20 20 20 20  stify           
30e0: 20 54 52 55 45 20 69 66 20 61 20 27 2d 27 20 69   TRUE if a '-' i
30f0: 73 20 70 72 65 73 65 6e 74 20 6f 72 20 69 66 20  s present or if 
3100: 74 68 65 0a 20 20 20 20 2a 2a 20 20 20 20 20 20  the.    **      
3110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3120: 20 20 20 20 20 20 20 20 20 66 69 65 6c 64 20 77           field w
3130: 69 64 74 68 20 77 61 73 20 6e 65 67 61 74 69 76  idth was negativ
3140: 65 2e 0a 20 20 20 20 2a 2a 20 20 20 66 6c 61 67  e..    **   flag
3150: 5f 7a 65 72 6f 70 61 64 20 20 20 20 20 20 20 20  _zeropad        
3160: 20 20 20 20 20 20 20 20 54 52 55 45 20 69 66 20          TRUE if 
3170: 74 68 65 20 77 69 64 74 68 20 62 65 67 61 6e 20  the width began 
3180: 77 69 74 68 20 30 2e 0a 20 20 20 20 2a 2a 20 20  with 0..    **  
3190: 20 66 6c 61 67 5f 6c 6f 6e 67 20 20 20 20 20 20   flag_long      
31a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 54 52 55               TRU
31b0: 45 20 69 66 20 74 68 65 20 6c 65 74 74 65 72 20  E if the letter 
31c0: 27 6c 27 20 28 65 6c 6c 29 20 70 72 65 66 69 78  'l' (ell) prefix
31d0: 65 64 0a 20 20 20 20 2a 2a 20 20 20 20 20 20 20  ed.    **       
31e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
31f0: 20 20 20 20 20 20 20 20 74 68 65 20 63 6f 6e 76          the conv
3200: 65 72 73 69 6f 6e 20 63 68 61 72 61 63 74 65 72  ersion character
3210: 2e 0a 20 20 20 20 2a 2a 20 20 20 66 6c 61 67 5f  ..    **   flag_
3220: 6c 6f 6e 67 6c 6f 6e 67 20 20 20 20 20 20 20 20  longlong        
3230: 20 20 20 20 20 20 20 54 52 55 45 20 69 66 20 74         TRUE if t
3240: 68 65 20 6c 65 74 74 65 72 20 27 6c 6c 27 20 28  he letter 'll' (
3250: 65 6c 6c 20 65 6c 6c 29 20 70 72 65 66 69 78 65  ell ell) prefixe
3260: 64 0a 20 20 20 20 2a 2a 20 20 20 20 20 20 20 20  d.    **        
3270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3280: 20 20 20 20 20 20 20 74 68 65 20 63 6f 6e 76 65         the conve
3290: 72 73 69 6f 6e 20 63 68 61 72 61 63 74 65 72 2e  rsion character.
32a0: 0a 20 20 20 20 2a 2a 20 20 20 66 6c 61 67 5f 62  .    **   flag_b
32b0: 6c 61 6e 6b 73 69 67 6e 20 20 20 20 20 20 20 20  lanksign        
32c0: 20 20 20 20 20 20 54 52 55 45 20 69 66 20 61 20        TRUE if a 
32d0: 27 20 27 20 69 73 20 70 72 65 73 65 6e 74 2e 0a  ' ' is present..
32e0: 20 20 20 20 2a 2a 20 20 20 77 69 64 74 68 20 20      **   width  
32f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3300: 20 20 20 20 20 54 68 65 20 73 70 65 63 69 66 69       The specifi
3310: 65 64 20 66 69 65 6c 64 20 77 69 64 74 68 2e 20  ed field width. 
3320: 20 54 68 69 73 20 69 73 0a 20 20 20 20 2a 2a 20   This is.    ** 
3330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 6c                al
3350: 77 61 79 73 20 6e 6f 6e 2d 6e 65 67 61 74 69 76  ways non-negativ
3360: 65 2e 20 20 5a 65 72 6f 20 69 73 20 74 68 65 20  e.  Zero is the 
3370: 64 65 66 61 75 6c 74 2e 0a 20 20 20 20 2a 2a 20  default..    ** 
3380: 20 20 70 72 65 63 69 73 69 6f 6e 20 20 20 20 20    precision     
3390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 68                Th
33a0: 65 20 73 70 65 63 69 66 69 65 64 20 70 72 65 63  e specified prec
33b0: 69 73 69 6f 6e 2e 20 20 54 68 65 20 64 65 66 61  ision.  The defa
33c0: 75 6c 74 0a 20 20 20 20 2a 2a 20 20 20 20 20 20  ult.    **      
33d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
33e0: 20 20 20 20 20 20 20 20 20 69 73 20 2d 31 2e 0a           is -1..
33f0: 20 20 20 20 2a 2a 20 20 20 78 74 79 70 65 20 20      **   xtype  
3400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3410: 20 20 20 20 20 54 68 65 20 63 6c 61 73 73 20 6f       The class o
3420: 66 20 74 68 65 20 63 6f 6e 76 65 72 73 69 6f 6e  f the conversion
3430: 2e 0a 20 20 20 20 2a 2a 20 20 20 69 6e 66 6f 70  ..    **   infop
3440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3450: 20 20 20 20 20 20 20 50 6f 69 6e 74 65 72 20 74         Pointer t
3460: 6f 20 74 68 65 20 61 70 70 72 6f 70 72 69 61 74  o the appropriat
3470: 65 20 69 6e 66 6f 20 73 74 72 75 63 74 2e 0a 20  e info struct.. 
3480: 20 20 20 2a 2f 0a 20 20 20 20 73 77 69 74 63 68     */.    switch
3490: 28 20 78 74 79 70 65 20 29 7b 0a 20 20 20 20 20  ( xtype ){.     
34a0: 20 63 61 73 65 20 65 74 50 4f 49 4e 54 45 52 3a   case etPOINTER:
34b0: 0a 20 20 20 20 20 20 20 20 66 6c 61 67 5f 6c 6f  .        flag_lo
34c0: 6e 67 6c 6f 6e 67 20 3d 20 73 69 7a 65 6f 66 28  nglong = sizeof(
34d0: 63 68 61 72 2a 29 3d 3d 73 69 7a 65 6f 66 28 69  char*)==sizeof(i
34e0: 36 34 29 3b 0a 20 20 20 20 20 20 20 20 66 6c 61  64);.        fla
34f0: 67 5f 6c 6f 6e 67 20 3d 20 73 69 7a 65 6f 66 28  g_long = sizeof(
3500: 63 68 61 72 2a 29 3d 3d 73 69 7a 65 6f 66 28 6c  char*)==sizeof(l
3510: 6f 6e 67 20 69 6e 74 29 3b 0a 20 20 20 20 20 20  ong int);.      
3520: 20 20 2f 2a 20 46 61 6c 6c 20 74 68 72 6f 75 67    /* Fall throug
3530: 68 20 69 6e 74 6f 20 74 68 65 20 6e 65 78 74 20  h into the next 
3540: 63 61 73 65 20 2a 2f 0a 20 20 20 20 20 20 63 61  case */.      ca
3550: 73 65 20 65 74 52 41 44 49 58 3a 0a 20 20 20 20  se etRADIX:.    
3560: 20 20 20 20 69 66 28 20 69 6e 66 6f 70 2d 3e 66      if( infop->f
3570: 6c 61 67 73 20 26 20 46 4c 41 47 5f 53 49 47 4e  lags & FLAG_SIGN
3580: 45 44 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20  ED ){.          
3590: 69 36 34 20 76 3b 0a 20 20 20 20 20 20 20 20 20  i64 v;.         
35a0: 20 69 66 28 20 66 6c 61 67 5f 6c 6f 6e 67 6c 6f   if( flag_longlo
35b0: 6e 67 20 29 20 20 20 76 20 3d 20 76 61 5f 61 72  ng )   v = va_ar
35c0: 67 28 61 70 2c 69 36 34 29 3b 0a 20 20 20 20 20  g(ap,i64);.     
35d0: 20 20 20 20 20 65 6c 73 65 20 69 66 28 20 66 6c       else if( fl
35e0: 61 67 5f 6c 6f 6e 67 20 29 20 20 76 20 3d 20 76  ag_long )  v = v
35f0: 61 5f 61 72 67 28 61 70 2c 6c 6f 6e 67 20 69 6e  a_arg(ap,long in
3600: 74 29 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6c  t);.          el
3610: 73 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20  se              
3620: 20 20 20 20 76 20 3d 20 76 61 5f 61 72 67 28 61      v = va_arg(a
3630: 70 2c 69 6e 74 29 3b 0a 20 20 20 20 20 20 20 20  p,int);.        
3640: 20 20 69 66 28 20 76 3c 30 20 29 7b 0a 20 20 20    if( v<0 ){.   
3650: 20 20 20 20 20 20 20 20 20 6c 6f 6e 67 76 61 6c           longval
3660: 75 65 20 3d 20 2d 76 3b 0a 20 20 20 20 20 20 20  ue = -v;.       
3670: 20 20 20 20 20 70 72 65 66 69 78 20 3d 20 27 2d       prefix = '-
3680: 27 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 65 6c  ';.          }el
3690: 73 65 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20  se{.            
36a0: 6c 6f 6e 67 76 61 6c 75 65 20 3d 20 76 3b 0a 20  longvalue = v;. 
36b0: 20 20 20 20 20 20 20 20 20 20 20 69 66 28 20 66             if( f
36c0: 6c 61 67 5f 70 6c 75 73 73 69 67 6e 20 29 20 20  lag_plussign )  
36d0: 20 20 20 20 20 20 70 72 65 66 69 78 20 3d 20 27        prefix = '
36e0: 2b 27 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20  +';.            
36f0: 65 6c 73 65 20 69 66 28 20 66 6c 61 67 5f 62 6c  else if( flag_bl
3700: 61 6e 6b 73 69 67 6e 20 29 20 20 70 72 65 66 69  anksign )  prefi
3710: 78 20 3d 20 27 20 27 3b 0a 20 20 20 20 20 20 20  x = ' ';.       
3720: 20 20 20 20 20 65 6c 73 65 20 20 20 20 20 20 20       else       
3730: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3740: 70 72 65 66 69 78 20 3d 20 30 3b 0a 20 20 20 20  prefix = 0;.    
3750: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20        }.        
3760: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 20  }else{.         
3770: 20 69 66 28 20 66 6c 61 67 5f 6c 6f 6e 67 6c 6f   if( flag_longlo
3780: 6e 67 20 29 20 20 20 6c 6f 6e 67 76 61 6c 75 65  ng )   longvalue
3790: 20 3d 20 76 61 5f 61 72 67 28 61 70 2c 75 36 34   = va_arg(ap,u64
37a0: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73  );.          els
37b0: 65 20 69 66 28 20 66 6c 61 67 5f 6c 6f 6e 67 20  e if( flag_long 
37c0: 29 20 20 6c 6f 6e 67 76 61 6c 75 65 20 3d 20 76  )  longvalue = v
37d0: 61 5f 61 72 67 28 61 70 2c 75 6e 73 69 67 6e 65  a_arg(ap,unsigne
37e0: 64 20 6c 6f 6e 67 20 69 6e 74 29 3b 0a 20 20 20  d long int);.   
37f0: 20 20 20 20 20 20 20 65 6c 73 65 20 20 20 20 20         else     
3800: 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 6e               lon
3810: 67 76 61 6c 75 65 20 3d 20 76 61 5f 61 72 67 28  gvalue = va_arg(
3820: 61 70 2c 75 6e 73 69 67 6e 65 64 20 69 6e 74 29  ap,unsigned int)
3830: 3b 0a 20 20 20 20 20 20 20 20 20 20 70 72 65 66  ;.          pref
3840: 69 78 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20  ix = 0;.        
3850: 7d 0a 20 20 20 20 20 20 20 20 69 66 28 20 6c 6f  }.        if( lo
3860: 6e 67 76 61 6c 75 65 3d 3d 30 20 29 20 66 6c 61  ngvalue==0 ) fla
3870: 67 5f 61 6c 74 65 72 6e 61 74 65 66 6f 72 6d 20  g_alternateform 
3880: 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 69 66 28  = 0;.        if(
3890: 20 66 6c 61 67 5f 7a 65 72 6f 70 61 64 20 26 26   flag_zeropad &&
38a0: 20 70 72 65 63 69 73 69 6f 6e 3c 77 69 64 74 68   precision<width
38b0: 2d 28 70 72 65 66 69 78 21 3d 30 29 20 29 7b 0a  -(prefix!=0) ){.
38c0: 20 20 20 20 20 20 20 20 20 20 70 72 65 63 69 73            precis
38d0: 69 6f 6e 20 3d 20 77 69 64 74 68 2d 28 70 72 65  ion = width-(pre
38e0: 66 69 78 21 3d 30 29 3b 0a 20 20 20 20 20 20 20  fix!=0);.       
38f0: 20 7d 0a 20 20 20 20 20 20 20 20 62 75 66 70 74   }.        bufpt
3900: 20 3d 20 26 62 75 66 5b 65 74 42 55 46 53 49 5a   = &buf[etBUFSIZ
3910: 45 2d 31 5d 3b 0a 20 20 20 20 20 20 20 20 7b 0a  E-1];.        {.
3920: 20 20 20 20 20 20 20 20 20 20 72 65 67 69 73 74            regist
3930: 65 72 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 63  er const char *c
3940: 73 65 74 3b 20 20 20 20 20 20 2f 2a 20 55 73 65  set;      /* Use
3950: 20 72 65 67 69 73 74 65 72 73 20 66 6f 72 20 73   registers for s
3960: 70 65 65 64 20 2a 2f 0a 20 20 20 20 20 20 20 20  peed */.        
3970: 20 20 72 65 67 69 73 74 65 72 20 69 6e 74 20 62    register int b
3980: 61 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 63  ase;.          c
3990: 73 65 74 20 3d 20 26 61 44 69 67 69 74 73 5b 69  set = &aDigits[i
39a0: 6e 66 6f 70 2d 3e 63 68 61 72 73 65 74 5d 3b 0a  nfop->charset];.
39b0: 20 20 20 20 20 20 20 20 20 20 62 61 73 65 20 3d            base =
39c0: 20 69 6e 66 6f 70 2d 3e 62 61 73 65 3b 0a 20 20   infop->base;.  
39d0: 20 20 20 20 20 20 20 20 64 6f 7b 20 20 20 20 20          do{     
39e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
39f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3a00: 20 20 20 20 20 20 2f 2a 20 43 6f 6e 76 65 72 74        /* Convert
3a10: 20 74 6f 20 61 73 63 69 69 20 2a 2f 0a 20 20 20   to ascii */.   
3a20: 20 20 20 20 20 20 20 20 20 2a 28 2d 2d 62 75 66           *(--buf
3a30: 70 74 29 20 3d 20 63 73 65 74 5b 6c 6f 6e 67 76  pt) = cset[longv
3a40: 61 6c 75 65 25 62 61 73 65 5d 3b 0a 20 20 20 20  alue%base];.    
3a50: 20 20 20 20 20 20 20 20 6c 6f 6e 67 76 61 6c 75          longvalu
3a60: 65 20 3d 20 6c 6f 6e 67 76 61 6c 75 65 2f 62 61  e = longvalue/ba
3a70: 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 77  se;.          }w
3a80: 68 69 6c 65 28 20 6c 6f 6e 67 76 61 6c 75 65 3e  hile( longvalue>
3a90: 30 20 29 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20  0 );.        }. 
3aa0: 20 20 20 20 20 20 20 6c 65 6e 67 74 68 20 3d 20         length = 
3ab0: 26 62 75 66 5b 65 74 42 55 46 53 49 5a 45 2d 31  &buf[etBUFSIZE-1
3ac0: 5d 2d 62 75 66 70 74 3b 0a 20 20 20 20 20 20 20  ]-bufpt;.       
3ad0: 20 66 6f 72 28 69 64 78 3d 70 72 65 63 69 73 69   for(idx=precisi
3ae0: 6f 6e 2d 6c 65 6e 67 74 68 3b 20 69 64 78 3e 30  on-length; idx>0
3af0: 3b 20 69 64 78 2d 2d 29 7b 0a 20 20 20 20 20 20  ; idx--){.      
3b00: 20 20 20 20 2a 28 2d 2d 62 75 66 70 74 29 20 3d      *(--bufpt) =
3b10: 20 27 30 27 3b 20 20 20 20 20 20 20 20 20 20 20   '0';           
3b20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3b30: 20 20 2f 2a 20 5a 65 72 6f 20 70 61 64 20 2a 2f    /* Zero pad */
3b40: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20  .        }.     
3b50: 20 20 20 69 66 28 20 70 72 65 66 69 78 20 29 20     if( prefix ) 
3b60: 2a 28 2d 2d 62 75 66 70 74 29 20 3d 20 70 72 65  *(--bufpt) = pre
3b70: 66 69 78 3b 20 20 20 20 20 20 20 20 20 20 20 20  fix;            
3b80: 20 20 20 2f 2a 20 41 64 64 20 73 69 67 6e 20 2a     /* Add sign *
3b90: 2f 0a 20 20 20 20 20 20 20 20 69 66 28 20 66 6c  /.        if( fl
3ba0: 61 67 5f 61 6c 74 65 72 6e 61 74 65 66 6f 72 6d  ag_alternateform
3bb0: 20 26 26 20 69 6e 66 6f 70 2d 3e 70 72 65 66 69   && infop->prefi
3bc0: 78 20 29 7b 20 20 20 20 20 20 2f 2a 20 41 64 64  x ){      /* Add
3bd0: 20 22 30 22 20 6f 72 20 22 30 78 22 20 2a 2f 0a   "0" or "0x" */.
3be0: 20 20 20 20 20 20 20 20 20 20 63 6f 6e 73 74 20            const 
3bf0: 63 68 61 72 20 2a 70 72 65 3b 0a 20 20 20 20 20  char *pre;.     
3c00: 20 20 20 20 20 63 68 61 72 20 78 3b 0a 20 20 20       char x;.   
3c10: 20 20 20 20 20 20 20 70 72 65 20 3d 20 26 61 50         pre = &aP
3c20: 72 65 66 69 78 5b 69 6e 66 6f 70 2d 3e 70 72 65  refix[infop->pre
3c30: 66 69 78 5d 3b 0a 20 20 20 20 20 20 20 20 20 20  fix];.          
3c40: 69 66 28 20 2a 62 75 66 70 74 21 3d 70 72 65 5b  if( *bufpt!=pre[
3c50: 30 5d 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20  0] ){.          
3c60: 20 20 66 6f 72 28 3b 20 28 78 3d 28 2a 70 72 65    for(; (x=(*pre
3c70: 29 29 21 3d 30 3b 20 70 72 65 2b 2b 29 20 2a 28  ))!=0; pre++) *(
3c80: 2d 2d 62 75 66 70 74 29 20 3d 20 78 3b 0a 20 20  --bufpt) = x;.  
3c90: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
3ca0: 20 20 7d 0a 20 20 20 20 20 20 20 20 6c 65 6e 67    }.        leng
3cb0: 74 68 20 3d 20 26 62 75 66 5b 65 74 42 55 46 53  th = &buf[etBUFS
3cc0: 49 5a 45 2d 31 5d 2d 62 75 66 70 74 3b 0a 20 20  IZE-1]-bufpt;.  
3cd0: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20        break;.   
3ce0: 20 20 20 63 61 73 65 20 65 74 46 4c 4f 41 54 3a     case etFLOAT:
3cf0: 0a 20 20 20 20 20 20 63 61 73 65 20 65 74 45 58  .      case etEX
3d00: 50 3a 0a 20 20 20 20 20 20 63 61 73 65 20 65 74  P:.      case et
3d10: 47 45 4e 45 52 49 43 3a 0a 20 20 20 20 20 20 20  GENERIC:.       
3d20: 20 72 65 61 6c 76 61 6c 75 65 20 3d 20 76 61 5f   realvalue = va_
3d30: 61 72 67 28 61 70 2c 64 6f 75 62 6c 65 29 3b 0a  arg(ap,double);.
3d40: 23 69 66 6e 64 65 66 20 65 74 4e 4f 46 4c 4f 41  #ifndef etNOFLOA
3d50: 54 49 4e 47 50 4f 49 4e 54 0a 20 20 20 20 20 20  TINGPOINT.      
3d60: 20 20 69 66 28 20 70 72 65 63 69 73 69 6f 6e 3c    if( precision<
3d70: 30 20 29 20 70 72 65 63 69 73 69 6f 6e 20 3d 20  0 ) precision = 
3d80: 36 3b 20 20 20 20 20 20 20 20 20 2f 2a 20 53 65  6;         /* Se
3d90: 74 20 64 65 66 61 75 6c 74 20 70 72 65 63 69 73  t default precis
3da0: 69 6f 6e 20 2a 2f 0a 20 20 20 20 20 20 20 20 69  ion */.        i
3db0: 66 28 20 70 72 65 63 69 73 69 6f 6e 3e 65 74 42  f( precision>etB
3dc0: 55 46 53 49 5a 45 2d 31 30 20 29 20 70 72 65 63  UFSIZE-10 ) prec
3dd0: 69 73 69 6f 6e 20 3d 20 65 74 42 55 46 53 49 5a  ision = etBUFSIZ
3de0: 45 2d 31 30 3b 0a 20 20 20 20 20 20 20 20 69 66  E-10;.        if
3df0: 28 20 72 65 61 6c 76 61 6c 75 65 3c 30 2e 30 20  ( realvalue<0.0 
3e00: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 72 65 61  ){.          rea
3e10: 6c 76 61 6c 75 65 20 3d 20 2d 72 65 61 6c 76 61  lvalue = -realva
3e20: 6c 75 65 3b 0a 20 20 20 20 20 20 20 20 20 20 70  lue;.          p
3e30: 72 65 66 69 78 20 3d 20 27 2d 27 3b 0a 20 20 20  refix = '-';.   
3e40: 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20       }else{.    
3e50: 20 20 20 20 20 20 69 66 28 20 66 6c 61 67 5f 70        if( flag_p
3e60: 6c 75 73 73 69 67 6e 20 29 20 20 20 20 20 20 20  lussign )       
3e70: 20 20 20 70 72 65 66 69 78 20 3d 20 27 2b 27 3b     prefix = '+';
3e80: 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20  .          else 
3e90: 69 66 28 20 66 6c 61 67 5f 62 6c 61 6e 6b 73 69  if( flag_blanksi
3ea0: 67 6e 20 29 20 20 20 20 70 72 65 66 69 78 20 3d  gn )    prefix =
3eb0: 20 27 20 27 3b 0a 20 20 20 20 20 20 20 20 20 20   ' ';.          
3ec0: 65 6c 73 65 20 20 20 20 20 20 20 20 20 20 20 20  else            
3ed0: 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 65               pre
3ee0: 66 69 78 20 3d 20 30 3b 0a 20 20 20 20 20 20 20  fix = 0;.       
3ef0: 20 7d 0a 20 20 20 20 20 20 20 20 69 66 28 20 69   }.        if( i
3f00: 6e 66 6f 70 2d 3e 74 79 70 65 3d 3d 65 74 47 45  nfop->type==etGE
3f10: 4e 45 52 49 43 20 26 26 20 70 72 65 63 69 73 69  NERIC && precisi
3f20: 6f 6e 3e 30 20 29 20 70 72 65 63 69 73 69 6f 6e  on>0 ) precision
3f30: 2d 2d 3b 0a 20 20 20 20 20 20 20 20 72 6f 75 6e  --;.        roun
3f40: 64 65 72 20 3d 20 30 2e 30 3b 0a 23 69 66 20 30  der = 0.0;.#if 0
3f50: 0a 20 20 20 20 20 20 20 20 2f 2a 20 52 6f 75 6e  .        /* Roun
3f60: 64 69 6e 67 20 77 6f 72 6b 73 20 6c 69 6b 65 20  ding works like 
3f70: 42 53 44 20 77 68 65 6e 20 74 68 65 20 63 6f 6e  BSD when the con
3f80: 73 74 61 6e 74 20 30 2e 34 39 39 39 20 69 73 20  stant 0.4999 is 
3f90: 75 73 65 64 2e 20 20 57 69 65 72 64 21 20 2a 2f  used.  Wierd! */
3fa0: 0a 20 20 20 20 20 20 20 20 66 6f 72 28 69 64 78  .        for(idx
3fb0: 3d 70 72 65 63 69 73 69 6f 6e 2c 20 72 6f 75 6e  =precision, roun
3fc0: 64 65 72 3d 30 2e 34 39 39 39 3b 20 69 64 78 3e  der=0.4999; idx>
3fd0: 30 3b 20 69 64 78 2d 2d 2c 20 72 6f 75 6e 64 65  0; idx--, rounde
3fe0: 72 2a 3d 30 2e 31 29 3b 0a 23 65 6c 73 65 0a 20  r*=0.1);.#else. 
3ff0: 20 20 20 20 20 20 20 2f 2a 20 49 74 20 6d 61 6b         /* It mak
4000: 65 73 20 6d 6f 72 65 20 73 65 6e 73 65 20 74 6f  es more sense to
4010: 20 75 73 65 20 30 2e 35 20 2a 2f 0a 20 20 20 20   use 0.5 */.    
4020: 20 20 20 20 66 6f 72 28 69 64 78 3d 70 72 65 63      for(idx=prec
4030: 69 73 69 6f 6e 2c 20 72 6f 75 6e 64 65 72 3d 30  ision, rounder=0
4040: 2e 35 3b 20 69 64 78 3e 30 3b 20 69 64 78 2d 2d  .5; idx>0; idx--
4050: 2c 20 72 6f 75 6e 64 65 72 2a 3d 30 2e 31 29 3b  , rounder*=0.1);
4060: 0a 23 65 6e 64 69 66 0a 20 20 20 20 20 20 20 20  .#endif.        
4070: 69 66 28 20 69 6e 66 6f 70 2d 3e 74 79 70 65 3d  if( infop->type=
4080: 3d 65 74 46 4c 4f 41 54 20 29 20 72 65 61 6c 76  =etFLOAT ) realv
4090: 61 6c 75 65 20 2b 3d 20 72 6f 75 6e 64 65 72 3b  alue += rounder;
40a0: 0a 20 20 20 20 20 20 20 20 2f 2a 20 4e 6f 72 6d  .        /* Norm
40b0: 61 6c 69 7a 65 20 72 65 61 6c 76 61 6c 75 65 20  alize realvalue 
40c0: 74 6f 20 77 69 74 68 69 6e 20 31 30 2e 30 20 3e  to within 10.0 >
40d0: 20 72 65 61 6c 76 61 6c 75 65 20 3e 3d 20 31 2e   realvalue >= 1.
40e0: 30 20 2a 2f 0a 20 20 20 20 20 20 20 20 65 78 70  0 */.        exp
40f0: 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 69 66   = 0;.        if
4100: 28 20 72 65 61 6c 76 61 6c 75 65 3e 30 2e 30 20  ( realvalue>0.0 
4110: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 77 68 69  ){.          whi
4120: 6c 65 28 20 72 65 61 6c 76 61 6c 75 65 3e 3d 31  le( realvalue>=1
4130: 65 38 20 26 26 20 65 78 70 3c 3d 33 35 30 20 29  e8 && exp<=350 )
4140: 7b 20 72 65 61 6c 76 61 6c 75 65 20 2a 3d 20 31  { realvalue *= 1
4150: 65 2d 38 3b 20 65 78 70 2b 3d 38 3b 20 7d 0a 20  e-8; exp+=8; }. 
4160: 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 28 20           while( 
4170: 72 65 61 6c 76 61 6c 75 65 3e 3d 31 30 2e 30 20  realvalue>=10.0 
4180: 26 26 20 65 78 70 3c 3d 33 35 30 20 29 7b 20 72  && exp<=350 ){ r
4190: 65 61 6c 76 61 6c 75 65 20 2a 3d 20 30 2e 31 3b  ealvalue *= 0.1;
41a0: 20 65 78 70 2b 2b 3b 20 7d 0a 20 20 20 20 20 20   exp++; }.      
41b0: 20 20 20 20 77 68 69 6c 65 28 20 72 65 61 6c 76      while( realv
41c0: 61 6c 75 65 3c 31 65 2d 38 20 26 26 20 65 78 70  alue<1e-8 && exp
41d0: 3e 3d 2d 33 35 30 20 29 7b 20 72 65 61 6c 76 61  >=-350 ){ realva
41e0: 6c 75 65 20 2a 3d 20 31 65 38 3b 20 65 78 70 2d  lue *= 1e8; exp-
41f0: 3d 38 3b 20 7d 0a 20 20 20 20 20 20 20 20 20 20  =8; }.          
4200: 77 68 69 6c 65 28 20 72 65 61 6c 76 61 6c 75 65  while( realvalue
4210: 3c 31 2e 30 20 26 26 20 65 78 70 3e 3d 2d 33 35  <1.0 && exp>=-35
4220: 30 20 29 7b 20 72 65 61 6c 76 61 6c 75 65 20 2a  0 ){ realvalue *
4230: 3d 20 31 30 2e 30 3b 20 65 78 70 2d 2d 3b 20 7d  = 10.0; exp--; }
4240: 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20 65  .          if( e
4250: 78 70 3e 33 35 30 20 7c 7c 20 65 78 70 3c 2d 33  xp>350 || exp<-3
4260: 35 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20  50 ){.          
4270: 20 20 62 75 66 70 74 20 3d 20 22 4e 61 4e 22 3b    bufpt = "NaN";
4280: 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 65 6e  .            len
4290: 67 74 68 20 3d 20 33 3b 0a 20 20 20 20 20 20 20  gth = 3;.       
42a0: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20       break;.    
42b0: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20        }.        
42c0: 7d 0a 20 20 20 20 20 20 20 20 62 75 66 70 74 20  }.        bufpt 
42d0: 3d 20 62 75 66 3b 0a 20 20 20 20 20 20 20 20 2f  = buf;.        /
42e0: 2a 0a 20 20 20 20 20 20 20 20 2a 2a 20 49 66 20  *.        ** If 
42f0: 74 68 65 20 66 69 65 6c 64 20 74 79 70 65 20 69  the field type i
4300: 73 20 65 74 47 45 4e 45 52 49 43 2c 20 74 68 65  s etGENERIC, the
4310: 6e 20 63 6f 6e 76 65 72 74 20 74 6f 20 65 69 74  n convert to eit
4320: 68 65 72 20 65 74 45 58 50 0a 20 20 20 20 20 20  her etEXP.      
4330: 20 20 2a 2a 20 6f 72 20 65 74 46 4c 4f 41 54 2c    ** or etFLOAT,
4340: 20 61 73 20 61 70 70 72 6f 70 72 69 61 74 65 2e   as appropriate.
4350: 0a 20 20 20 20 20 20 20 20 2a 2f 0a 20 20 20 20  .        */.    
4360: 20 20 20 20 66 6c 61 67 5f 65 78 70 20 3d 20 78      flag_exp = x
4370: 74 79 70 65 3d 3d 65 74 45 58 50 3b 0a 20 20 20  type==etEXP;.   
4380: 20 20 20 20 20 69 66 28 20 78 74 79 70 65 21 3d       if( xtype!=
4390: 65 74 46 4c 4f 41 54 20 29 7b 0a 20 20 20 20 20  etFLOAT ){.     
43a0: 20 20 20 20 20 72 65 61 6c 76 61 6c 75 65 20 2b       realvalue +
43b0: 3d 20 72 6f 75 6e 64 65 72 3b 0a 20 20 20 20 20  = rounder;.     
43c0: 20 20 20 20 20 69 66 28 20 72 65 61 6c 76 61 6c       if( realval
43d0: 75 65 3e 3d 31 30 2e 30 20 29 7b 20 72 65 61 6c  ue>=10.0 ){ real
43e0: 76 61 6c 75 65 20 2a 3d 20 30 2e 31 3b 20 65 78  value *= 0.1; ex
43f0: 70 2b 2b 3b 20 7d 0a 20 20 20 20 20 20 20 20 7d  p++; }.        }
4400: 0a 20 20 20 20 20 20 20 20 69 66 28 20 78 74 79  .        if( xty
4410: 70 65 3d 3d 65 74 47 45 4e 45 52 49 43 20 29 7b  pe==etGENERIC ){
4420: 0a 20 20 20 20 20 20 20 20 20 20 66 6c 61 67 5f  .          flag_
4430: 72 74 7a 20 3d 20 21 66 6c 61 67 5f 61 6c 74 65  rtz = !flag_alte
4440: 72 6e 61 74 65 66 6f 72 6d 3b 0a 20 20 20 20 20  rnateform;.     
4450: 20 20 20 20 20 69 66 28 20 65 78 70 3c 2d 34 20       if( exp<-4 
4460: 7c 7c 20 65 78 70 3e 70 72 65 63 69 73 69 6f 6e  || exp>precision
4470: 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20   ){.            
4480: 78 74 79 70 65 20 3d 20 65 74 45 58 50 3b 0a 20  xtype = etEXP;. 
4490: 20 20 20 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a           }else{.
44a0: 20 20 20 20 20 20 20 20 20 20 20 20 70 72 65 63              prec
44b0: 69 73 69 6f 6e 20 3d 20 70 72 65 63 69 73 69 6f  ision = precisio
44c0: 6e 20 2d 20 65 78 70 3b 0a 20 20 20 20 20 20 20  n - exp;.       
44d0: 20 20 20 20 20 78 74 79 70 65 20 3d 20 65 74 46       xtype = etF
44e0: 4c 4f 41 54 3b 0a 20 20 20 20 20 20 20 20 20 20  LOAT;.          
44f0: 7d 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 65 7b  }.        }else{
4500: 0a 20 20 20 20 20 20 20 20 20 20 66 6c 61 67 5f  .          flag_
4510: 72 74 7a 20 3d 20 30 3b 0a 20 20 20 20 20 20 20  rtz = 0;.       
4520: 20 7d 0a 20 20 20 20 20 20 20 20 2f 2a 0a 20 20   }.        /*.  
4530: 20 20 20 20 20 20 2a 2a 20 54 68 65 20 22 65 78        ** The "ex
4540: 70 2b 70 72 65 63 69 73 69 6f 6e 22 20 74 65 73  p+precision" tes
4550: 74 20 63 61 75 73 65 73 20 6f 75 74 70 75 74 20  t causes output 
4560: 74 6f 20 62 65 20 6f 66 20 74 79 70 65 20 65 74  to be of type et
4570: 45 58 50 20 69 66 0a 20 20 20 20 20 20 20 20 2a  EXP if.        *
4580: 2a 20 74 68 65 20 70 72 65 63 69 73 69 6f 6e 20  * the precision 
4590: 69 73 20 74 6f 6f 20 6c 61 72 67 65 20 74 6f 20  is too large to 
45a0: 66 69 74 20 69 6e 20 62 75 66 5b 5d 2e 0a 20 20  fit in buf[]..  
45b0: 20 20 20 20 20 20 2a 2f 0a 20 20 20 20 20 20 20        */.       
45c0: 20 6e 73 64 20 3d 20 30 3b 0a 20 20 20 20 20 20   nsd = 0;.      
45d0: 20 20 69 66 28 20 78 74 79 70 65 3d 3d 65 74 46    if( xtype==etF
45e0: 4c 4f 41 54 20 26 26 20 65 78 70 2b 70 72 65 63  LOAT && exp+prec
45f0: 69 73 69 6f 6e 3c 65 74 42 55 46 53 49 5a 45 2d  ision<etBUFSIZE-
4600: 33 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20  30 ){.          
4610: 66 6c 61 67 5f 64 70 20 3d 20 28 70 72 65 63 69  flag_dp = (preci
4620: 73 69 6f 6e 3e 30 20 7c 7c 20 66 6c 61 67 5f 61  sion>0 || flag_a
4630: 6c 74 65 72 6e 61 74 65 66 6f 72 6d 29 3b 0a 20  lternateform);. 
4640: 20 20 20 20 20 20 20 20 20 69 66 28 20 70 72 65           if( pre
4650: 66 69 78 20 29 20 2a 28 62 75 66 70 74 2b 2b 29  fix ) *(bufpt++)
4660: 20 3d 20 70 72 65 66 69 78 3b 20 20 20 20 20 20   = prefix;      
4670: 20 20 20 2f 2a 20 53 69 67 6e 20 2a 2f 0a 20 20     /* Sign */.  
4680: 20 20 20 20 20 20 20 20 69 66 28 20 65 78 70 3c          if( exp<
4690: 30 20 29 20 20 2a 28 62 75 66 70 74 2b 2b 29 20  0 )  *(bufpt++) 
46a0: 3d 20 27 30 27 3b 20 20 20 20 20 20 20 20 20 20  = '0';          
46b0: 20 20 2f 2a 20 44 69 67 69 74 73 20 62 65 66 6f    /* Digits befo
46c0: 72 65 20 22 2e 22 20 2a 2f 0a 20 20 20 20 20 20  re "." */.      
46d0: 20 20 20 20 65 6c 73 65 20 66 6f 72 28 3b 20 65      else for(; e
46e0: 78 70 3e 3d 30 3b 20 65 78 70 2d 2d 29 20 2a 28  xp>=0; exp--) *(
46f0: 62 75 66 70 74 2b 2b 29 20 3d 20 65 74 5f 67 65  bufpt++) = et_ge
4700: 74 64 69 67 69 74 28 26 72 65 61 6c 76 61 6c 75  tdigit(&realvalu
4710: 65 2c 26 6e 73 64 29 3b 0a 20 20 20 20 20 20 20  e,&nsd);.       
4720: 20 20 20 69 66 28 20 66 6c 61 67 5f 64 70 20 29     if( flag_dp )
4730: 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 27 2e   *(bufpt++) = '.
4740: 27 3b 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20  ';           /* 
4750: 54 68 65 20 64 65 63 69 6d 61 6c 20 70 6f 69 6e  The decimal poin
4760: 74 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 66  t */.          f
4770: 6f 72 28 65 78 70 2b 2b 3b 20 65 78 70 3c 30 20  or(exp++; exp<0 
4780: 26 26 20 70 72 65 63 69 73 69 6f 6e 3e 30 3b 20  && precision>0; 
4790: 70 72 65 63 69 73 69 6f 6e 2d 2d 2c 20 65 78 70  precision--, exp
47a0: 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20  ++){.           
47b0: 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 27 30   *(bufpt++) = '0
47c0: 27 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 0a 20  ';.          }. 
47d0: 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 28 20           while( 
47e0: 28 70 72 65 63 69 73 69 6f 6e 2d 2d 29 3e 30 20  (precision--)>0 
47f0: 29 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 65  ) *(bufpt++) = e
4800: 74 5f 67 65 74 64 69 67 69 74 28 26 72 65 61 6c  t_getdigit(&real
4810: 76 61 6c 75 65 2c 26 6e 73 64 29 3b 0a 20 20 20  value,&nsd);.   
4820: 20 20 20 20 20 20 20 2a 28 62 75 66 70 74 2d 2d         *(bufpt--
4830: 29 20 3d 20 30 3b 20 20 20 20 20 20 20 20 20 20  ) = 0;          
4840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4850: 20 2f 2a 20 4e 75 6c 6c 20 74 65 72 6d 69 6e 61   /* Null termina
4860: 74 65 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20  te */.          
4870: 69 66 28 20 66 6c 61 67 5f 72 74 7a 20 26 26 20  if( flag_rtz && 
4880: 66 6c 61 67 5f 64 70 20 29 7b 20 20 20 20 20 2f  flag_dp ){     /
4890: 2a 20 52 65 6d 6f 76 65 20 74 72 61 69 6c 69 6e  * Remove trailin
48a0: 67 20 7a 65 72 6f 73 20 61 6e 64 20 22 2e 22 20  g zeros and "." 
48b0: 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 20 20 77  */.            w
48c0: 68 69 6c 65 28 20 62 75 66 70 74 3e 3d 62 75 66  hile( bufpt>=buf
48d0: 20 26 26 20 2a 62 75 66 70 74 3d 3d 27 30 27 20   && *bufpt=='0' 
48e0: 29 20 2a 28 62 75 66 70 74 2d 2d 29 20 3d 20 30  ) *(bufpt--) = 0
48f0: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66  ;.            if
4900: 28 20 62 75 66 70 74 3e 3d 62 75 66 20 26 26 20  ( bufpt>=buf && 
4910: 2a 62 75 66 70 74 3d 3d 27 2e 27 20 29 20 2a 28  *bufpt=='.' ) *(
4920: 62 75 66 70 74 2d 2d 29 20 3d 20 30 3b 0a 20 20  bufpt--) = 0;.  
4930: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
4940: 20 20 20 20 62 75 66 70 74 2b 2b 3b 20 20 20 20      bufpt++;    
4950: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4960: 20 20 20 20 20 20 20 20 2f 2a 20 70 6f 69 6e 74          /* point
4970: 20 74 6f 20 6e 65 78 74 20 66 72 65 65 20 73 6c   to next free sl
4980: 6f 74 20 2a 2f 0a 20 20 20 20 20 20 20 20 7d 65  ot */.        }e
4990: 6c 73 65 7b 20 20 20 20 2f 2a 20 65 74 45 58 50  lse{    /* etEXP
49a0: 20 6f 72 20 65 74 47 45 4e 45 52 49 43 20 2a 2f   or etGENERIC */
49b0: 0a 20 20 20 20 20 20 20 20 20 20 66 6c 61 67 5f  .          flag_
49c0: 64 70 20 3d 20 28 70 72 65 63 69 73 69 6f 6e 3e  dp = (precision>
49d0: 30 20 7c 7c 20 66 6c 61 67 5f 61 6c 74 65 72 6e  0 || flag_altern
49e0: 61 74 65 66 6f 72 6d 29 3b 0a 20 20 20 20 20 20  ateform);.      
49f0: 20 20 20 20 69 66 28 20 70 72 65 66 69 78 20 29      if( prefix )
4a00: 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 70 72   *(bufpt++) = pr
4a10: 65 66 69 78 3b 20 20 20 2f 2a 20 53 69 67 6e 20  efix;   /* Sign 
4a20: 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 2a 28 62  */.          *(b
4a30: 75 66 70 74 2b 2b 29 20 3d 20 65 74 5f 67 65 74  ufpt++) = et_get
4a40: 64 69 67 69 74 28 26 72 65 61 6c 76 61 6c 75 65  digit(&realvalue
4a50: 2c 26 6e 73 64 29 3b 20 20 2f 2a 20 46 69 72 73  ,&nsd);  /* Firs
4a60: 74 20 64 69 67 69 74 20 2a 2f 0a 20 20 20 20 20  t digit */.     
4a70: 20 20 20 20 20 69 66 28 20 66 6c 61 67 5f 64 70       if( flag_dp
4a80: 20 29 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20   ) *(bufpt++) = 
4a90: 27 2e 27 3b 20 20 20 20 20 2f 2a 20 44 65 63 69  '.';     /* Deci
4aa0: 6d 61 6c 20 70 6f 69 6e 74 20 2a 2f 0a 20 20 20  mal point */.   
4ab0: 20 20 20 20 20 20 20 77 68 69 6c 65 28 20 28 70         while( (p
4ac0: 72 65 63 69 73 69 6f 6e 2d 2d 29 3e 30 20 29 20  recision--)>0 ) 
4ad0: 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 65 74 5f  *(bufpt++) = et_
4ae0: 67 65 74 64 69 67 69 74 28 26 72 65 61 6c 76 61  getdigit(&realva
4af0: 6c 75 65 2c 26 6e 73 64 29 3b 0a 20 20 20 20 20  lue,&nsd);.     
4b00: 20 20 20 20 20 62 75 66 70 74 2d 2d 3b 20 20 20       bufpt--;   
4b10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4b20: 20 20 20 20 20 20 20 20 20 2f 2a 20 70 6f 69 6e           /* poin
4b30: 74 20 74 6f 20 6c 61 73 74 20 64 69 67 69 74 20  t to last digit 
4b40: 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 69 66 28  */.          if(
4b50: 20 66 6c 61 67 5f 72 74 7a 20 26 26 20 66 6c 61   flag_rtz && fla
4b60: 67 5f 64 70 20 29 7b 20 20 20 20 20 20 20 20 20  g_dp ){         
4b70: 20 2f 2a 20 52 65 6d 6f 76 65 20 74 61 69 6c 20   /* Remove tail 
4b80: 7a 65 72 6f 73 20 2a 2f 0a 20 20 20 20 20 20 20  zeros */.       
4b90: 20 20 20 20 20 77 68 69 6c 65 28 20 62 75 66 70       while( bufp
4ba0: 74 3e 3d 62 75 66 20 26 26 20 2a 62 75 66 70 74  t>=buf && *bufpt
4bb0: 3d 3d 27 30 27 20 29 20 2a 28 62 75 66 70 74 2d  =='0' ) *(bufpt-
4bc0: 2d 29 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20  -) = 0;.        
4bd0: 20 20 20 20 69 66 28 20 62 75 66 70 74 3e 3d 62      if( bufpt>=b
4be0: 75 66 20 26 26 20 2a 62 75 66 70 74 3d 3d 27 2e  uf && *bufpt=='.
4bf0: 27 20 29 20 2a 28 62 75 66 70 74 2d 2d 29 20 3d  ' ) *(bufpt--) =
4c00: 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 0a   0;.          }.
4c10: 20 20 20 20 20 20 20 20 20 20 62 75 66 70 74 2b            bufpt+
4c20: 2b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  +;              
4c30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
4c40: 20 70 6f 69 6e 74 20 74 6f 20 6e 65 78 74 20 66   point to next f
4c50: 72 65 65 20 73 6c 6f 74 20 2a 2f 0a 20 20 20 20  ree slot */.    
4c60: 20 20 20 20 20 20 69 66 28 20 65 78 70 20 7c 7c        if( exp ||
4c70: 20 66 6c 61 67 5f 65 78 70 20 29 7b 0a 20 20 20   flag_exp ){.   
4c80: 20 20 20 20 20 20 20 20 20 2a 28 62 75 66 70 74           *(bufpt
4c90: 2b 2b 29 20 3d 20 61 44 69 67 69 74 73 5b 69 6e  ++) = aDigits[in
4ca0: 66 6f 70 2d 3e 63 68 61 72 73 65 74 5d 3b 0a 20  fop->charset];. 
4cb0: 20 20 20 20 20 20 20 20 20 20 20 69 66 28 20 65             if( e
4cc0: 78 70 3c 30 20 29 7b 20 2a 28 62 75 66 70 74 2b  xp<0 ){ *(bufpt+
4cd0: 2b 29 20 3d 20 27 2d 27 3b 20 65 78 70 20 3d 20  +) = '-'; exp = 
4ce0: 2d 65 78 70 3b 20 7d 20 2f 2a 20 73 69 67 6e 20  -exp; } /* sign 
4cf0: 6f 66 20 65 78 70 20 2a 2f 0a 20 20 20 20 20 20  of exp */.      
4d00: 20 20 20 20 20 20 65 6c 73 65 20 20 20 20 20 20        else      
4d10: 20 7b 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20   { *(bufpt++) = 
4d20: 27 2b 27 3b 20 7d 0a 20 20 20 20 20 20 20 20 20  '+'; }.         
4d30: 20 20 20 69 66 28 20 65 78 70 3e 3d 31 30 30 20     if( exp>=100 
4d40: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  ){.             
4d50: 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 28 65   *(bufpt++) = (e
4d60: 78 70 2f 31 30 30 29 2b 27 30 27 3b 20 20 20 20  xp/100)+'0';    
4d70: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 31              /* 1
4d80: 30 30 27 73 20 64 69 67 69 74 20 2a 2f 0a 20 20  00's digit */.  
4d90: 20 20 20 20 20 20 20 20 20 20 20 20 65 78 70 20              exp 
4da0: 25 3d 20 31 30 30 3b 0a 20 20 20 20 20 20 20 20  %= 100;.        
4db0: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20      }.          
4dc0: 20 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 65    *(bufpt++) = e
4dd0: 78 70 2f 31 30 2b 27 30 27 3b 20 20 20 20 20 20  xp/10+'0';      
4de0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
4df0: 2a 20 31 30 27 73 20 64 69 67 69 74 20 2a 2f 0a  * 10's digit */.
4e00: 20 20 20 20 20 20 20 20 20 20 20 20 2a 28 62 75              *(bu
4e10: 66 70 74 2b 2b 29 20 3d 20 65 78 70 25 31 30 2b  fpt++) = exp%10+
4e20: 27 30 27 3b 20 20 20 20 20 20 20 20 20 20 20 20  '0';            
4e30: 20 20 20 20 20 20 20 20 20 2f 2a 20 31 27 73 20           /* 1's 
4e40: 64 69 67 69 74 20 2a 2f 0a 20 20 20 20 20 20 20  digit */.       
4e50: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20     }.        }. 
4e60: 20 20 20 20 20 20 20 2f 2a 20 54 68 65 20 63 6f         /* The co
4e70: 6e 76 65 72 74 65 64 20 6e 75 6d 62 65 72 20 69  nverted number i
4e80: 73 20 69 6e 20 62 75 66 5b 5d 20 61 6e 64 20 7a  s in buf[] and z
4e90: 65 72 6f 20 74 65 72 6d 69 6e 61 74 65 64 2e 20  ero terminated. 
4ea0: 4f 75 74 70 75 74 20 69 74 2e 0a 20 20 20 20 20  Output it..     
4eb0: 20 20 20 2a 2a 20 4e 6f 74 65 20 74 68 61 74 20     ** Note that 
4ec0: 74 68 65 20 6e 75 6d 62 65 72 20 69 73 20 69 6e  the number is in
4ed0: 20 74 68 65 20 75 73 75 61 6c 20 6f 72 64 65 72   the usual order
4ee0: 2c 20 6e 6f 74 20 72 65 76 65 72 73 65 64 20 61  , not reversed a
4ef0: 73 20 77 69 74 68 0a 20 20 20 20 20 20 20 20 2a  s with.        *
4f00: 2a 20 69 6e 74 65 67 65 72 20 63 6f 6e 76 65 72  * integer conver
4f10: 73 69 6f 6e 73 2e 20 2a 2f 0a 20 20 20 20 20 20  sions. */.      
4f20: 20 20 6c 65 6e 67 74 68 20 3d 20 62 75 66 70 74    length = bufpt
4f30: 2d 62 75 66 3b 0a 20 20 20 20 20 20 20 20 62 75  -buf;.        bu
4f40: 66 70 74 20 3d 20 62 75 66 3b 0a 0a 20 20 20 20  fpt = buf;..    
4f50: 20 20 20 20 2f 2a 20 53 70 65 63 69 61 6c 20 63      /* Special c
4f60: 61 73 65 3a 20 20 41 64 64 20 6c 65 61 64 69 6e  ase:  Add leadin
4f70: 67 20 7a 65 72 6f 73 20 69 66 20 74 68 65 20 66  g zeros if the f
4f80: 6c 61 67 5f 7a 65 72 6f 70 61 64 20 66 6c 61 67  lag_zeropad flag
4f90: 20 69 73 0a 20 20 20 20 20 20 20 20 2a 2a 20 73   is.        ** s
4fa0: 65 74 20 61 6e 64 20 77 65 20 61 72 65 20 6e 6f  et and we are no
4fb0: 74 20 6c 65 66 74 20 6a 75 73 74 69 66 69 65 64  t left justified
4fc0: 20 2a 2f 0a 20 20 20 20 20 20 20 20 69 66 28 20   */.        if( 
4fd0: 66 6c 61 67 5f 7a 65 72 6f 70 61 64 20 26 26 20  flag_zeropad && 
4fe0: 21 66 6c 61 67 5f 6c 65 66 74 6a 75 73 74 69 66  !flag_leftjustif
4ff0: 79 20 26 26 20 6c 65 6e 67 74 68 20 3c 20 77 69  y && length < wi
5000: 64 74 68 29 7b 0a 20 20 20 20 20 20 20 20 20 20  dth){.          
5010: 69 6e 74 20 69 3b 0a 20 20 20 20 20 20 20 20 20  int i;.         
5020: 20 69 6e 74 20 6e 50 61 64 20 3d 20 77 69 64 74   int nPad = widt
5030: 68 20 2d 20 6c 65 6e 67 74 68 3b 0a 20 20 20 20  h - length;.    
5040: 20 20 20 20 20 20 66 6f 72 28 69 3d 77 69 64 74        for(i=widt
5050: 68 3b 20 69 3e 3d 6e 50 61 64 3b 20 69 2d 2d 29  h; i>=nPad; i--)
5060: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 75  {.            bu
5070: 66 70 74 5b 69 5d 20 3d 20 62 75 66 70 74 5b 69  fpt[i] = bufpt[i
5080: 2d 6e 50 61 64 5d 3b 0a 20 20 20 20 20 20 20 20  -nPad];.        
5090: 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20 69 20    }.          i 
50a0: 3d 20 70 72 65 66 69 78 21 3d 30 3b 0a 20 20 20  = prefix!=0;.   
50b0: 20 20 20 20 20 20 20 77 68 69 6c 65 28 20 6e 50         while( nP
50c0: 61 64 2d 2d 20 29 20 62 75 66 70 74 5b 69 2b 2b  ad-- ) bufpt[i++
50d0: 5d 20 3d 20 27 30 27 3b 0a 20 20 20 20 20 20 20  ] = '0';.       
50e0: 20 20 20 6c 65 6e 67 74 68 20 3d 20 77 69 64 74     length = widt
50f0: 68 3b 0a 20 20 20 20 20 20 20 20 7d 0a 23 65 6e  h;.        }.#en
5100: 64 69 66 0a 20 20 20 20 20 20 20 20 62 72 65 61  dif.        brea
5110: 6b 3b 0a 20 20 20 20 20 20 63 61 73 65 20 65 74  k;.      case et
5120: 53 49 5a 45 3a 0a 20 20 20 20 20 20 20 20 2a 28  SIZE:.        *(
5130: 76 61 5f 61 72 67 28 61 70 2c 69 6e 74 2a 29 29  va_arg(ap,int*))
5140: 20 3d 20 63 6f 75 6e 74 3b 0a 20 20 20 20 20 20   = count;.      
5150: 20 20 6c 65 6e 67 74 68 20 3d 20 77 69 64 74 68    length = width
5160: 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 62 72   = 0;.        br
5170: 65 61 6b 3b 0a 20 20 20 20 20 20 63 61 73 65 20  eak;.      case 
5180: 65 74 50 45 52 43 45 4e 54 3a 0a 20 20 20 20 20  etPERCENT:.     
5190: 20 20 20 62 75 66 5b 30 5d 20 3d 20 27 25 27 3b     buf[0] = '%';
51a0: 0a 20 20 20 20 20 20 20 20 62 75 66 70 74 20 3d  .        bufpt =
51b0: 20 62 75 66 3b 0a 20 20 20 20 20 20 20 20 6c 65   buf;.        le
51c0: 6e 67 74 68 20 3d 20 31 3b 0a 20 20 20 20 20 20  ngth = 1;.      
51d0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 63    break;.      c
51e0: 61 73 65 20 65 74 43 48 41 52 4c 49 54 3a 0a 20  ase etCHARLIT:. 
51f0: 20 20 20 20 20 63 61 73 65 20 65 74 43 48 41 52       case etCHAR
5200: 58 3a 0a 20 20 20 20 20 20 20 20 63 20 3d 20 62  X:.        c = b
5210: 75 66 5b 30 5d 20 3d 20 28 78 74 79 70 65 3d 3d  uf[0] = (xtype==
5220: 65 74 43 48 41 52 58 20 3f 20 76 61 5f 61 72 67  etCHARX ? va_arg
5230: 28 61 70 2c 69 6e 74 29 20 3a 20 2a 2b 2b 66 6d  (ap,int) : *++fm
5240: 74 29 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20  t);.        if( 
5250: 70 72 65 63 69 73 69 6f 6e 3e 3d 30 20 29 7b 0a  precision>=0 ){.
5260: 20 20 20 20 20 20 20 20 20 20 66 6f 72 28 69 64            for(id
5270: 78 3d 31 3b 20 69 64 78 3c 70 72 65 63 69 73 69  x=1; idx<precisi
5280: 6f 6e 3b 20 69 64 78 2b 2b 29 20 62 75 66 5b 69  on; idx++) buf[i
5290: 64 78 5d 20 3d 20 63 3b 0a 20 20 20 20 20 20 20  dx] = c;.       
52a0: 20 20 20 6c 65 6e 67 74 68 20 3d 20 70 72 65 63     length = prec
52b0: 69 73 69 6f 6e 3b 0a 20 20 20 20 20 20 20 20 7d  ision;.        }
52c0: 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 20 20  else{.          
52d0: 6c 65 6e 67 74 68 20 3d 31 3b 0a 20 20 20 20 20  length =1;.     
52e0: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 62 75 66     }.        buf
52f0: 70 74 20 3d 20 62 75 66 3b 0a 20 20 20 20 20 20  pt = buf;.      
5300: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 63    break;.      c
5310: 61 73 65 20 65 74 53 54 52 49 4e 47 3a 0a 20 20  ase etSTRING:.  
5320: 20 20 20 20 63 61 73 65 20 65 74 44 59 4e 53 54      case etDYNST
5330: 52 49 4e 47 3a 0a 20 20 20 20 20 20 20 20 62 75  RING:.        bu
5340: 66 70 74 20 3d 20 76 61 5f 61 72 67 28 61 70 2c  fpt = va_arg(ap,
5350: 63 68 61 72 2a 29 3b 0a 20 20 20 20 20 20 20 20  char*);.        
5360: 69 66 28 20 62 75 66 70 74 3d 3d 30 20 29 7b 0a  if( bufpt==0 ){.
5370: 20 20 20 20 20 20 20 20 20 20 62 75 66 70 74 20            bufpt 
5380: 3d 20 22 22 3b 0a 20 20 20 20 20 20 20 20 7d 65  = "";.        }e
5390: 6c 73 65 20 69 66 28 20 78 74 79 70 65 3d 3d 65  lse if( xtype==e
53a0: 74 44 59 4e 53 54 52 49 4e 47 20 29 7b 0a 20 20  tDYNSTRING ){.  
53b0: 20 20 20 20 20 20 20 20 7a 45 78 74 72 61 20 3d          zExtra =
53c0: 20 62 75 66 70 74 3b 0a 20 20 20 20 20 20 20 20   bufpt;.        
53d0: 7d 0a 20 20 20 20 20 20 20 20 6c 65 6e 67 74 68  }.        length
53e0: 20 3d 20 73 74 72 6c 65 6e 28 62 75 66 70 74 29   = strlen(bufpt)
53f0: 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 70 72  ;.        if( pr
5400: 65 63 69 73 69 6f 6e 3e 3d 30 20 26 26 20 70 72  ecision>=0 && pr
5410: 65 63 69 73 69 6f 6e 3c 6c 65 6e 67 74 68 20 29  ecision<length )
5420: 20 6c 65 6e 67 74 68 20 3d 20 70 72 65 63 69 73   length = precis
5430: 69 6f 6e 3b 0a 20 20 20 20 20 20 20 20 62 72 65  ion;.        bre
5440: 61 6b 3b 0a 20 20 20 20 20 20 63 61 73 65 20 65  ak;.      case e
5450: 74 53 51 4c 45 53 43 41 50 45 3a 0a 20 20 20 20  tSQLESCAPE:.    
5460: 20 20 63 61 73 65 20 65 74 53 51 4c 45 53 43 41    case etSQLESCA
5470: 50 45 32 3a 0a 20 20 20 20 20 20 20 20 7b 0a 20  PE2:.        {. 
5480: 20 20 20 20 20 20 20 20 20 69 6e 74 20 69 2c 20           int i, 
5490: 6a 2c 20 6e 2c 20 63 2c 20 69 73 6e 75 6c 6c 3b  j, n, c, isnull;
54a0: 0a 20 20 20 20 20 20 20 20 20 20 63 68 61 72 20  .          char 
54b0: 2a 61 72 67 20 3d 20 76 61 5f 61 72 67 28 61 70  *arg = va_arg(ap
54c0: 2c 63 68 61 72 2a 29 3b 0a 20 20 20 20 20 20 20  ,char*);.       
54d0: 20 20 20 69 73 6e 75 6c 6c 20 3d 20 61 72 67 3d     isnull = arg=
54e0: 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66  =0;.          if
54f0: 28 20 69 73 6e 75 6c 6c 20 29 20 61 72 67 20 3d  ( isnull ) arg =
5500: 20 28 78 74 79 70 65 3d 3d 65 74 53 51 4c 45 53   (xtype==etSQLES
5510: 43 41 50 45 32 20 3f 20 22 4e 55 4c 4c 22 20 3a  CAPE2 ? "NULL" :
5520: 20 22 28 4e 55 4c 4c 29 22 29 3b 0a 20 20 20 20   "(NULL)");.    
5530: 20 20 20 20 20 20 66 6f 72 28 69 3d 6e 3d 30 3b        for(i=n=0;
5540: 20 28 63 3d 61 72 67 5b 69 5d 29 21 3d 30 3b 20   (c=arg[i])!=0; 
5550: 69 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20 20 20  i++){.          
5560: 20 20 69 66 28 20 63 3d 3d 27 5c 27 27 20 29 20    if( c=='\'' ) 
5570: 20 6e 2b 2b 3b 0a 20 20 20 20 20 20 20 20 20 20   n++;.          
5580: 7d 0a 20 20 20 20 20 20 20 20 20 20 6e 20 2b 3d  }.          n +=
5590: 20 69 20 2b 20 31 20 2b 20 28 28 21 69 73 6e 75   i + 1 + ((!isnu
55a0: 6c 6c 20 26 26 20 78 74 79 70 65 3d 3d 65 74 53  ll && xtype==etS
55b0: 51 4c 45 53 43 41 50 45 32 29 20 3f 20 32 20 3a  QLESCAPE2) ? 2 :
55c0: 20 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69   0);.          i
55d0: 66 28 20 6e 3e 65 74 42 55 46 53 49 5a 45 20 29  f( n>etBUFSIZE )
55e0: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 75  {.            bu
55f0: 66 70 74 20 3d 20 7a 45 78 74 72 61 20 3d 20 73  fpt = zExtra = s
5600: 71 6c 69 74 65 4d 61 6c 6c 6f 63 28 20 6e 20 29  qliteMalloc( n )
5610: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66  ;.            if
5620: 28 20 62 75 66 70 74 3d 3d 30 20 29 20 72 65 74  ( bufpt==0 ) ret
5630: 75 72 6e 20 2d 31 3b 0a 20 20 20 20 20 20 20 20  urn -1;.        
5640: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20    }else{.       
5650: 20 20 20 20 20 62 75 66 70 74 20 3d 20 62 75 66       bufpt = buf
5660: 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20  ;.          }.  
5670: 20 20 20 20 20 20 20 20 6a 20 3d 20 30 3b 0a 20          j = 0;. 
5680: 20 20 20 20 20 20 20 20 20 69 66 28 20 21 69 73           if( !is
5690: 6e 75 6c 6c 20 26 26 20 78 74 79 70 65 3d 3d 65  null && xtype==e
56a0: 74 53 51 4c 45 53 43 41 50 45 32 20 29 20 62 75  tSQLESCAPE2 ) bu
56b0: 66 70 74 5b 6a 2b 2b 5d 20 3d 20 27 5c 27 27 3b  fpt[j++] = '\'';
56c0: 0a 20 20 20 20 20 20 20 20 20 20 66 6f 72 28 69  .          for(i
56d0: 3d 30 3b 20 28 63 3d 61 72 67 5b 69 5d 29 21 3d  =0; (c=arg[i])!=
56e0: 30 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20 20  0; i++){.       
56f0: 20 20 20 20 20 62 75 66 70 74 5b 6a 2b 2b 5d 20       bufpt[j++] 
5700: 3d 20 63 3b 0a 20 20 20 20 20 20 20 20 20 20 20  = c;.           
5710: 20 69 66 28 20 63 3d 3d 27 5c 27 27 20 29 20 62   if( c=='\'' ) b
5720: 75 66 70 74 5b 6a 2b 2b 5d 20 3d 20 63 3b 0a 20  ufpt[j++] = c;. 
5730: 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20           }.     
5740: 20 20 20 20 20 69 66 28 20 21 69 73 6e 75 6c 6c       if( !isnull
5750: 20 26 26 20 78 74 79 70 65 3d 3d 65 74 53 51 4c   && xtype==etSQL
5760: 45 53 43 41 50 45 32 20 29 20 62 75 66 70 74 5b  ESCAPE2 ) bufpt[
5770: 6a 2b 2b 5d 20 3d 20 27 5c 27 27 3b 0a 20 20 20  j++] = '\'';.   
5780: 20 20 20 20 20 20 20 62 75 66 70 74 5b 6a 5d 20         bufpt[j] 
5790: 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 6c  = 0;.          l
57a0: 65 6e 67 74 68 20 3d 20 6a 3b 0a 20 20 20 20 20  ength = j;.     
57b0: 20 20 20 20 20 69 66 28 20 70 72 65 63 69 73 69       if( precisi
57c0: 6f 6e 3e 3d 30 20 26 26 20 70 72 65 63 69 73 69  on>=0 && precisi
57d0: 6f 6e 3c 6c 65 6e 67 74 68 20 29 20 6c 65 6e 67  on<length ) leng
57e0: 74 68 20 3d 20 70 72 65 63 69 73 69 6f 6e 3b 0a  th = precision;.
57f0: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
5800: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 63    break;.      c
5810: 61 73 65 20 65 74 54 4f 4b 45 4e 3a 20 7b 0a 20  ase etTOKEN: {. 
5820: 20 20 20 20 20 20 20 54 6f 6b 65 6e 20 2a 70 54         Token *pT
5830: 6f 6b 65 6e 20 3d 20 76 61 5f 61 72 67 28 61 70  oken = va_arg(ap
5840: 2c 20 54 6f 6b 65 6e 2a 29 3b 0a 20 20 20 20 20  , Token*);.     
5850: 20 20 20 69 66 28 20 70 54 6f 6b 65 6e 20 26 26     if( pToken &&
5860: 20 70 54 6f 6b 65 6e 2d 3e 7a 20 29 7b 0a 20 20   pToken->z ){.  
5870: 20 20 20 20 20 20 20 20 28 2a 66 75 6e 63 29 28          (*func)(
5880: 61 72 67 2c 20 70 54 6f 6b 65 6e 2d 3e 7a 2c 20  arg, pToken->z, 
5890: 70 54 6f 6b 65 6e 2d 3e 6e 29 3b 0a 20 20 20 20  pToken->n);.    
58a0: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 6c 65      }.        le
58b0: 6e 67 74 68 20 3d 20 77 69 64 74 68 20 3d 20 30  ngth = width = 0
58c0: 3b 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b  ;.        break;
58d0: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 63  .      }.      c
58e0: 61 73 65 20 65 74 53 52 43 4c 49 53 54 3a 20 7b  ase etSRCLIST: {
58f0: 0a 20 20 20 20 20 20 20 20 53 72 63 4c 69 73 74  .        SrcList
5900: 20 2a 70 53 72 63 20 3d 20 76 61 5f 61 72 67 28   *pSrc = va_arg(
5910: 61 70 2c 20 53 72 63 4c 69 73 74 2a 29 3b 0a 20  ap, SrcList*);. 
5920: 20 20 20 20 20 20 20 69 6e 74 20 6b 20 3d 20 76         int k = v
5930: 61 5f 61 72 67 28 61 70 2c 20 69 6e 74 29 3b 0a  a_arg(ap, int);.
5940: 20 20 20 20 20 20 20 20 73 74 72 75 63 74 20 53          struct S
5950: 72 63 4c 69 73 74 5f 69 74 65 6d 20 2a 70 49 74  rcList_item *pIt
5960: 65 6d 20 3d 20 26 70 53 72 63 2d 3e 61 5b 6b 5d  em = &pSrc->a[k]
5970: 3b 0a 20 20 20 20 20 20 20 20 61 73 73 65 72 74  ;.        assert
5980: 28 20 6b 3e 3d 30 20 26 26 20 6b 3c 70 53 72 63  ( k>=0 && k<pSrc
5990: 2d 3e 6e 53 72 63 20 29 3b 0a 20 20 20 20 20 20  ->nSrc );.      
59a0: 20 20 69 66 28 20 70 49 74 65 6d 2d 3e 7a 44 61    if( pItem->zDa
59b0: 74 61 62 61 73 65 20 26 26 20 70 49 74 65 6d 2d  tabase && pItem-
59c0: 3e 7a 44 61 74 61 62 61 73 65 5b 30 5d 20 29 7b  >zDatabase[0] ){
59d0: 0a 20 20 20 20 20 20 20 20 20 20 28 2a 66 75 6e  .          (*fun
59e0: 63 29 28 61 72 67 2c 20 70 49 74 65 6d 2d 3e 7a  c)(arg, pItem->z
59f0: 44 61 74 61 62 61 73 65 2c 20 73 74 72 6c 65 6e  Database, strlen
5a00: 28 70 49 74 65 6d 2d 3e 7a 44 61 74 61 62 61 73  (pItem->zDatabas
5a10: 65 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 28  e));.          (
5a20: 2a 66 75 6e 63 29 28 61 72 67 2c 20 22 2e 22 2c  *func)(arg, ".",
5a30: 20 31 29 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20   1);.        }. 
5a40: 20 20 20 20 20 20 20 28 2a 66 75 6e 63 29 28 61         (*func)(a
5a50: 72 67 2c 20 70 49 74 65 6d 2d 3e 7a 4e 61 6d 65  rg, pItem->zName
5a60: 2c 20 73 74 72 6c 65 6e 28 70 49 74 65 6d 2d 3e  , strlen(pItem->
5a70: 7a 4e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 20  zName));.       
5a80: 20 6c 65 6e 67 74 68 20 3d 20 77 69 64 74 68 20   length = width 
5a90: 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 62 72 65  = 0;.        bre
5aa0: 61 6b 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  ak;.      }.    
5ab0: 20 20 63 61 73 65 20 65 74 45 52 52 4f 52 3a 0a    case etERROR:.
5ac0: 20 20 20 20 20 20 20 20 62 75 66 5b 30 5d 20 3d          buf[0] =
5ad0: 20 27 25 27 3b 0a 20 20 20 20 20 20 20 20 62 75   '%';.        bu
5ae0: 66 5b 31 5d 20 3d 20 63 3b 0a 20 20 20 20 20 20  f[1] = c;.      
5af0: 20 20 65 72 72 6f 72 66 6c 61 67 20 3d 20 30 3b    errorflag = 0;
5b00: 0a 20 20 20 20 20 20 20 20 69 64 78 20 3d 20 31  .        idx = 1
5b10: 2b 28 63 21 3d 30 29 3b 0a 20 20 20 20 20 20 20  +(c!=0);.       
5b20: 20 28 2a 66 75 6e 63 29 28 61 72 67 2c 22 25 22   (*func)(arg,"%"
5b30: 2c 69 64 78 29 3b 0a 20 20 20 20 20 20 20 20 63  ,idx);.        c
5b40: 6f 75 6e 74 20 2b 3d 20 69 64 78 3b 0a 20 20 20  ount += idx;.   
5b50: 20 20 20 20 20 69 66 28 20 63 3d 3d 30 20 29 20       if( c==0 ) 
5b60: 66 6d 74 2d 2d 3b 0a 20 20 20 20 20 20 20 20 62  fmt--;.        b
5b70: 72 65 61 6b 3b 0a 20 20 20 20 7d 2f 2a 20 45 6e  reak;.    }/* En
5b80: 64 20 73 77 69 74 63 68 20 6f 76 65 72 20 74 68  d switch over th
5b90: 65 20 66 6f 72 6d 61 74 20 74 79 70 65 20 2a 2f  e format type */
5ba0: 0a 20 20 20 20 2f 2a 0a 20 20 20 20 2a 2a 20 54  .    /*.    ** T
5bb0: 68 65 20 74 65 78 74 20 6f 66 20 74 68 65 20 63  he text of the c
5bc0: 6f 6e 76 65 72 73 69 6f 6e 20 69 73 20 70 6f 69  onversion is poi
5bd0: 6e 74 65 64 20 74 6f 20 62 79 20 22 62 75 66 70  nted to by "bufp
5be0: 74 22 20 61 6e 64 20 69 73 0a 20 20 20 20 2a 2a  t" and is.    **
5bf0: 20 22 6c 65 6e 67 74 68 22 20 63 68 61 72 61 63   "length" charac
5c00: 74 65 72 73 20 6c 6f 6e 67 2e 20 20 54 68 65 20  ters long.  The 
5c10: 66 69 65 6c 64 20 77 69 64 74 68 20 69 73 20 22  field width is "
5c20: 77 69 64 74 68 22 2e 20 20 44 6f 0a 20 20 20 20  width".  Do.    
5c30: 2a 2a 20 74 68 65 20 6f 75 74 70 75 74 2e 0a 20  ** the output.. 
5c40: 20 20 20 2a 2f 0a 20 20 20 20 69 66 28 20 21 66     */.    if( !f
5c50: 6c 61 67 5f 6c 65 66 74 6a 75 73 74 69 66 79 20  lag_leftjustify 
5c60: 29 7b 0a 20 20 20 20 20 20 72 65 67 69 73 74 65  ){.      registe
5c70: 72 20 69 6e 74 20 6e 73 70 61 63 65 3b 0a 20 20  r int nspace;.  
5c80: 20 20 20 20 6e 73 70 61 63 65 20 3d 20 77 69 64      nspace = wid
5c90: 74 68 2d 6c 65 6e 67 74 68 3b 0a 20 20 20 20 20  th-length;.     
5ca0: 20 69 66 28 20 6e 73 70 61 63 65 3e 30 20 29 7b   if( nspace>0 ){
5cb0: 0a 20 20 20 20 20 20 20 20 63 6f 75 6e 74 20 2b  .        count +
5cc0: 3d 20 6e 73 70 61 63 65 3b 0a 20 20 20 20 20 20  = nspace;.      
5cd0: 20 20 77 68 69 6c 65 28 20 6e 73 70 61 63 65 3e    while( nspace>
5ce0: 3d 65 74 53 50 41 43 45 53 49 5a 45 20 29 7b 0a  =etSPACESIZE ){.
5cf0: 20 20 20 20 20 20 20 20 20 20 28 2a 66 75 6e 63            (*func
5d00: 29 28 61 72 67 2c 73 70 61 63 65 73 2c 65 74 53  )(arg,spaces,etS
5d10: 50 41 43 45 53 49 5a 45 29 3b 0a 20 20 20 20 20  PACESIZE);.     
5d20: 20 20 20 20 20 6e 73 70 61 63 65 20 2d 3d 20 65       nspace -= e
5d30: 74 53 50 41 43 45 53 49 5a 45 3b 0a 20 20 20 20  tSPACESIZE;.    
5d40: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 69 66      }.        if
5d50: 28 20 6e 73 70 61 63 65 3e 30 20 29 20 28 2a 66  ( nspace>0 ) (*f
5d60: 75 6e 63 29 28 61 72 67 2c 73 70 61 63 65 73 2c  unc)(arg,spaces,
5d70: 6e 73 70 61 63 65 29 3b 0a 20 20 20 20 20 20 7d  nspace);.      }
5d80: 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 28 20 6c  .    }.    if( l
5d90: 65 6e 67 74 68 3e 30 20 29 7b 0a 20 20 20 20 20  ength>0 ){.     
5da0: 20 28 2a 66 75 6e 63 29 28 61 72 67 2c 62 75 66   (*func)(arg,buf
5db0: 70 74 2c 6c 65 6e 67 74 68 29 3b 0a 20 20 20 20  pt,length);.    
5dc0: 20 20 63 6f 75 6e 74 20 2b 3d 20 6c 65 6e 67 74    count += lengt
5dd0: 68 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 28  h;.    }.    if(
5de0: 20 66 6c 61 67 5f 6c 65 66 74 6a 75 73 74 69 66   flag_leftjustif
5df0: 79 20 29 7b 0a 20 20 20 20 20 20 72 65 67 69 73  y ){.      regis
5e00: 74 65 72 20 69 6e 74 20 6e 73 70 61 63 65 3b 0a  ter int nspace;.
5e10: 20 20 20 20 20 20 6e 73 70 61 63 65 20 3d 20 77        nspace = w
5e20: 69 64 74 68 2d 6c 65 6e 67 74 68 3b 0a 20 20 20  idth-length;.   
5e30: 20 20 20 69 66 28 20 6e 73 70 61 63 65 3e 30 20     if( nspace>0 
5e40: 29 7b 0a 20 20 20 20 20 20 20 20 63 6f 75 6e 74  ){.        count
5e50: 20 2b 3d 20 6e 73 70 61 63 65 3b 0a 20 20 20 20   += nspace;.    
5e60: 20 20 20 20 77 68 69 6c 65 28 20 6e 73 70 61 63      while( nspac
5e70: 65 3e 3d 65 74 53 50 41 43 45 53 49 5a 45 20 29  e>=etSPACESIZE )
5e80: 7b 0a 20 20 20 20 20 20 20 20 20 20 28 2a 66 75  {.          (*fu
5e90: 6e 63 29 28 61 72 67 2c 73 70 61 63 65 73 2c 65  nc)(arg,spaces,e
5ea0: 74 53 50 41 43 45 53 49 5a 45 29 3b 0a 20 20 20  tSPACESIZE);.   
5eb0: 20 20 20 20 20 20 20 6e 73 70 61 63 65 20 2d 3d         nspace -=
5ec0: 20 65 74 53 50 41 43 45 53 49 5a 45 3b 0a 20 20   etSPACESIZE;.  
5ed0: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20        }.        
5ee0: 69 66 28 20 6e 73 70 61 63 65 3e 30 20 29 20 28  if( nspace>0 ) (
5ef0: 2a 66 75 6e 63 29 28 61 72 67 2c 73 70 61 63 65  *func)(arg,space
5f00: 73 2c 6e 73 70 61 63 65 29 3b 0a 20 20 20 20 20  s,nspace);.     
5f10: 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 28   }.    }.    if(
5f20: 20 7a 45 78 74 72 61 20 29 7b 0a 20 20 20 20 20   zExtra ){.     
5f30: 20 73 71 6c 69 74 65 46 72 65 65 28 7a 45 78 74   sqliteFree(zExt
5f40: 72 61 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 2f 2a  ra);.    }.  }/*
5f50: 20 45 6e 64 20 66 6f 72 20 6c 6f 6f 70 20 6f 76   End for loop ov
5f60: 65 72 20 74 68 65 20 66 6f 72 6d 61 74 20 73 74  er the format st
5f70: 72 69 6e 67 20 2a 2f 0a 20 20 72 65 74 75 72 6e  ring */.  return
5f80: 20 65 72 72 6f 72 66 6c 61 67 20 3f 20 2d 31 20   errorflag ? -1 
5f90: 3a 20 63 6f 75 6e 74 3b 0a 7d 20 2f 2a 20 45 6e  : count;.} /* En
5fa0: 64 20 6f 66 20 66 75 6e 63 74 69 6f 6e 20 2a 2f  d of function */
5fb0: 0a 0a 0a 2f 2a 20 54 68 69 73 20 73 74 72 75 63  .../* This struc
5fc0: 74 75 72 65 20 69 73 20 75 73 65 64 20 74 6f 20  ture is used to 
5fd0: 73 74 6f 72 65 20 73 74 61 74 65 20 69 6e 66 6f  store state info
5fe0: 72 6d 61 74 69 6f 6e 20 61 62 6f 75 74 20 74 68  rmation about th
5ff0: 65 0a 2a 2a 20 77 72 69 74 65 20 74 6f 20 6d 65  e.** write to me
6000: 6d 6f 72 79 20 74 68 61 74 20 69 73 20 63 75 72  mory that is cur
6010: 72 65 6e 74 6c 79 20 69 6e 20 70 72 6f 67 72 65  rently in progre
6020: 73 73 2e 0a 2a 2f 0a 73 74 72 75 63 74 20 73 67  ss..*/.struct sg
6030: 4d 70 72 69 6e 74 66 20 7b 0a 20 20 63 68 61 72  Mprintf {.  char
6040: 20 2a 7a 42 61 73 65 3b 20 20 20 20 20 2f 2a 20   *zBase;     /* 
6050: 41 20 62 61 73 65 20 61 6c 6c 6f 63 61 74 69 6f  A base allocatio
6060: 6e 20 2a 2f 0a 20 20 63 68 61 72 20 2a 7a 54 65  n */.  char *zTe
6070: 78 74 3b 20 20 20 20 20 2f 2a 20 54 68 65 20 73  xt;     /* The s
6080: 74 72 69 6e 67 20 63 6f 6c 6c 65 63 74 65 64 20  tring collected 
6090: 73 6f 20 66 61 72 20 2a 2f 0a 20 20 69 6e 74 20  so far */.  int 
60a0: 20 6e 43 68 61 72 3b 20 20 20 20 20 20 2f 2a 20   nChar;      /* 
60b0: 4c 65 6e 67 74 68 20 6f 66 20 74 68 65 20 73 74  Length of the st
60c0: 72 69 6e 67 20 73 6f 20 66 61 72 20 2a 2f 0a 20  ring so far */. 
60d0: 20 69 6e 74 20 20 6e 54 6f 74 61 6c 3b 20 20 20   int  nTotal;   
60e0: 20 20 2f 2a 20 4f 75 74 70 75 74 20 73 69 7a 65    /* Output size
60f0: 20 69 66 20 75 6e 63 6f 6e 73 74 72 61 69 6e 65   if unconstraine
6100: 64 20 2a 2f 0a 20 20 69 6e 74 20 20 6e 41 6c 6c  d */.  int  nAll
6110: 6f 63 3b 20 20 20 20 20 2f 2a 20 41 6d 6f 75 6e  oc;     /* Amoun
6120: 74 20 6f 66 20 73 70 61 63 65 20 61 6c 6c 6f 63  t of space alloc
6130: 61 74 65 64 20 69 6e 20 7a 54 65 78 74 20 2a 2f  ated in zText */
6140: 0a 20 20 76 6f 69 64 20 2a 28 2a 78 52 65 61 6c  .  void *(*xReal
6150: 6c 6f 63 29 28 76 6f 69 64 2a 2c 69 6e 74 29 3b  loc)(void*,int);
6160: 20 20 2f 2a 20 46 75 6e 63 74 69 6f 6e 20 75 73    /* Function us
6170: 65 64 20 74 6f 20 72 65 61 6c 6c 6f 63 20 6d 65  ed to realloc me
6180: 6d 6f 72 79 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 20 0a  mory */.};../* .
6190: 2a 2a 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e  ** This function
61a0: 20 69 6d 70 6c 65 6d 65 6e 74 73 20 74 68 65 20   implements the 
61b0: 63 61 6c 6c 62 61 63 6b 20 66 72 6f 6d 20 76 78  callback from vx
61c0: 70 72 69 6e 74 66 2e 20 0a 2a 2a 0a 2a 2a 20 54  printf. .**.** T
61d0: 68 69 73 20 72 6f 75 74 69 6e 65 20 61 64 64 20  his routine add 
61e0: 6e 4e 65 77 43 68 61 72 20 63 68 61 72 61 63 74  nNewChar charact
61f0: 65 72 73 20 6f 66 20 74 65 78 74 20 69 6e 20 7a  ers of text in z
6200: 4e 65 77 54 65 78 74 20 74 6f 0a 2a 2a 20 74 68  NewText to.** th
6210: 65 20 73 67 4d 70 72 69 6e 74 66 20 73 74 72 75  e sgMprintf stru
6220: 63 74 75 72 65 20 70 6f 69 6e 74 65 64 20 74 6f  cture pointed to
6230: 20 62 79 20 22 61 72 67 22 2e 0a 2a 2f 0a 73 74   by "arg"..*/.st
6240: 61 74 69 63 20 76 6f 69 64 20 6d 6f 75 74 28 76  atic void mout(v
6250: 6f 69 64 20 2a 61 72 67 2c 20 63 6f 6e 73 74 20  oid *arg, const 
6260: 63 68 61 72 20 2a 7a 4e 65 77 54 65 78 74 2c 20  char *zNewText, 
6270: 69 6e 74 20 6e 4e 65 77 43 68 61 72 29 7b 0a 20  int nNewChar){. 
6280: 20 73 74 72 75 63 74 20 73 67 4d 70 72 69 6e 74   struct sgMprint
6290: 66 20 2a 70 4d 20 3d 20 28 73 74 72 75 63 74 20  f *pM = (struct 
62a0: 73 67 4d 70 72 69 6e 74 66 2a 29 61 72 67 3b 0a  sgMprintf*)arg;.
62b0: 20 20 70 4d 2d 3e 6e 54 6f 74 61 6c 20 2b 3d 20    pM->nTotal += 
62c0: 6e 4e 65 77 43 68 61 72 3b 0a 20 20 69 66 28 20  nNewChar;.  if( 
62d0: 70 4d 2d 3e 6e 43 68 61 72 20 2b 20 6e 4e 65 77  pM->nChar + nNew
62e0: 43 68 61 72 20 2b 20 31 20 3e 20 70 4d 2d 3e 6e  Char + 1 > pM->n
62f0: 41 6c 6c 6f 63 20 29 7b 0a 20 20 20 20 69 66 28  Alloc ){.    if(
6300: 20 70 4d 2d 3e 78 52 65 61 6c 6c 6f 63 3d 3d 30   pM->xRealloc==0
6310: 20 29 7b 0a 20 20 20 20 20 20 6e 4e 65 77 43 68   ){.      nNewCh
6320: 61 72 20 3d 20 20 70 4d 2d 3e 6e 41 6c 6c 6f 63  ar =  pM->nAlloc
6330: 20 2d 20 70 4d 2d 3e 6e 43 68 61 72 20 2d 20 31   - pM->nChar - 1
6340: 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20  ;.    }else{.   
6350: 20 20 20 70 4d 2d 3e 6e 41 6c 6c 6f 63 20 3d 20     pM->nAlloc = 
6360: 70 4d 2d 3e 6e 43 68 61 72 20 2b 20 6e 4e 65 77  pM->nChar + nNew
6370: 43 68 61 72 2a 32 20 2b 20 31 3b 0a 20 20 20 20  Char*2 + 1;.    
6380: 20 20 69 66 28 20 70 4d 2d 3e 7a 54 65 78 74 3d    if( pM->zText=
6390: 3d 70 4d 2d 3e 7a 42 61 73 65 20 29 7b 0a 20 20  =pM->zBase ){.  
63a0: 20 20 20 20 20 20 70 4d 2d 3e 7a 54 65 78 74 20        pM->zText 
63b0: 3d 20 70 4d 2d 3e 78 52 65 61 6c 6c 6f 63 28 30  = pM->xRealloc(0
63c0: 2c 20 70 4d 2d 3e 6e 41 6c 6c 6f 63 29 3b 0a 20  , pM->nAlloc);. 
63d0: 20 20 20 20 20 20 20 69 66 28 20 70 4d 2d 3e 7a         if( pM->z
63e0: 54 65 78 74 20 26 26 20 70 4d 2d 3e 6e 43 68 61  Text && pM->nCha
63f0: 72 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 6d  r ){.          m
6400: 65 6d 63 70 79 28 70 4d 2d 3e 7a 54 65 78 74 2c  emcpy(pM->zText,
6410: 20 70 4d 2d 3e 7a 42 61 73 65 2c 20 70 4d 2d 3e   pM->zBase, pM->
6420: 6e 43 68 61 72 29 3b 0a 20 20 20 20 20 20 20 20  nChar);.        
6430: 7d 0a 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20  }.      }else{. 
6440: 20 20 20 20 20 20 20 70 4d 2d 3e 7a 54 65 78 74         pM->zText
6450: 20 3d 20 70 4d 2d 3e 78 52 65 61 6c 6c 6f 63 28   = pM->xRealloc(
6460: 70 4d 2d 3e 7a 54 65 78 74 2c 20 70 4d 2d 3e 6e  pM->zText, pM->n
6470: 41 6c 6c 6f 63 29 3b 0a 20 20 20 20 20 20 7d 0a  Alloc);.      }.
6480: 20 20 20 20 7d 0a 20 20 7d 0a 20 20 69 66 28 20      }.  }.  if( 
6490: 70 4d 2d 3e 7a 54 65 78 74 20 29 7b 0a 20 20 20  pM->zText ){.   
64a0: 20 69 66 28 20 6e 4e 65 77 43 68 61 72 3e 30 20   if( nNewChar>0 
64b0: 29 7b 0a 20 20 20 20 20 20 6d 65 6d 63 70 79 28  ){.      memcpy(
64c0: 26 70 4d 2d 3e 7a 54 65 78 74 5b 70 4d 2d 3e 6e  &pM->zText[pM->n
64d0: 43 68 61 72 5d 2c 20 7a 4e 65 77 54 65 78 74 2c  Char], zNewText,
64e0: 20 6e 4e 65 77 43 68 61 72 29 3b 0a 20 20 20 20   nNewChar);.    
64f0: 20 20 70 4d 2d 3e 6e 43 68 61 72 20 2b 3d 20 6e    pM->nChar += n
6500: 4e 65 77 43 68 61 72 3b 0a 20 20 20 20 7d 0a 20  NewChar;.    }. 
6510: 20 20 20 70 4d 2d 3e 7a 54 65 78 74 5b 70 4d 2d     pM->zText[pM-
6520: 3e 6e 43 68 61 72 5d 20 3d 20 30 3b 0a 20 20 7d  >nChar] = 0;.  }
6530: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 72  .}../*.** This r
6540: 6f 75 74 69 6e 65 20 69 73 20 61 20 77 72 61 70  outine is a wrap
6550: 70 65 72 20 61 72 6f 75 6e 64 20 78 70 72 69 6e  per around xprin
6560: 74 66 28 29 20 74 68 61 74 20 69 6e 76 6f 6b 65  tf() that invoke
6570: 73 20 6d 6f 75 74 28 29 20 61 73 0a 2a 2a 20 74  s mout() as.** t
6580: 68 65 20 63 6f 6e 73 75 6d 65 72 2e 20 20 0a 2a  he consumer.  .*
6590: 2f 0a 73 74 61 74 69 63 20 63 68 61 72 20 2a 62  /.static char *b
65a0: 61 73 65 5f 76 70 72 69 6e 74 66 28 0a 20 20 76  ase_vprintf(.  v
65b0: 6f 69 64 20 2a 28 2a 78 52 65 61 6c 6c 6f 63 29  oid *(*xRealloc)
65c0: 28 76 6f 69 64 2a 2c 69 6e 74 29 2c 20 20 20 2f  (void*,int),   /
65d0: 2a 20 52 6f 75 74 69 6e 65 20 74 6f 20 72 65 61  * Routine to rea
65e0: 6c 6c 6f 63 20 6d 65 6d 6f 72 79 2e 20 4d 61 79  lloc memory. May
65f0: 20 62 65 20 4e 55 4c 4c 20 2a 2f 0a 20 20 69 6e   be NULL */.  in
6600: 74 20 75 73 65 49 6e 74 65 72 6e 61 6c 2c 20 20  t useInternal,  
6610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
6620: 20 55 73 65 20 69 6e 74 65 72 6e 61 6c 20 25 2d   Use internal %-
6630: 63 6f 6e 76 65 72 73 69 6f 6e 73 20 69 66 20 74  conversions if t
6640: 72 75 65 20 2a 2f 0a 20 20 63 68 61 72 20 2a 7a  rue */.  char *z
6650: 49 6e 69 74 42 75 66 2c 20 20 20 20 20 20 20 20  InitBuf,        
6660: 20 20 20 20 20 20 20 20 20 2f 2a 20 49 6e 69 74           /* Init
6670: 69 61 6c 6c 79 20 77 72 69 74 65 20 68 65 72 65  ially write here
6680: 2c 20 62 65 66 6f 72 65 20 6d 61 6c 6c 6f 63 69  , before malloci
6690: 6e 67 20 2a 2f 0a 20 20 69 6e 74 20 6e 49 6e 69  ng */.  int nIni
66a0: 74 42 75 66 2c 20 20 20 20 20 20 20 20 20 20 20  tBuf,           
66b0: 20 20 20 20 20 20 20 20 2f 2a 20 53 69 7a 65 20          /* Size 
66c0: 6f 66 20 7a 49 6e 69 74 42 75 66 5b 5d 20 2a 2f  of zInitBuf[] */
66d0: 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a  .  const char *z
66e0: 46 6f 72 6d 61 74 2c 20 20 20 20 20 20 20 20 20  Format,         
66f0: 20 20 20 2f 2a 20 66 6f 72 6d 61 74 20 73 74 72     /* format str
6700: 69 6e 67 20 2a 2f 0a 20 20 76 61 5f 6c 69 73 74  ing */.  va_list
6710: 20 61 70 20 20 20 20 20 20 20 20 20 20 20 20 20   ap             
6720: 20 20 20 20 20 20 20 20 20 2f 2a 20 61 72 67 75           /* argu
6730: 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20 20 73 74  ments */.){.  st
6740: 72 75 63 74 20 73 67 4d 70 72 69 6e 74 66 20 73  ruct sgMprintf s
6750: 4d 3b 0a 20 20 73 4d 2e 7a 42 61 73 65 20 3d 20  M;.  sM.zBase = 
6760: 73 4d 2e 7a 54 65 78 74 20 3d 20 7a 49 6e 69 74  sM.zText = zInit
6770: 42 75 66 3b 0a 20 20 73 4d 2e 6e 43 68 61 72 20  Buf;.  sM.nChar 
6780: 3d 20 73 4d 2e 6e 54 6f 74 61 6c 20 3d 20 30 3b  = sM.nTotal = 0;
6790: 0a 20 20 73 4d 2e 6e 41 6c 6c 6f 63 20 3d 20 6e  .  sM.nAlloc = n
67a0: 49 6e 69 74 42 75 66 3b 0a 20 20 73 4d 2e 78 52  InitBuf;.  sM.xR
67b0: 65 61 6c 6c 6f 63 20 3d 20 78 52 65 61 6c 6c 6f  ealloc = xReallo
67c0: 63 3b 0a 20 20 76 78 70 72 69 6e 74 66 28 6d 6f  c;.  vxprintf(mo
67d0: 75 74 2c 20 26 73 4d 2c 20 75 73 65 49 6e 74 65  ut, &sM, useInte
67e0: 72 6e 61 6c 2c 20 7a 46 6f 72 6d 61 74 2c 20 61  rnal, zFormat, a
67f0: 70 29 3b 0a 20 20 69 66 28 20 78 52 65 61 6c 6c  p);.  if( xReall
6800: 6f 63 20 29 7b 0a 20 20 20 20 69 66 28 20 73 4d  oc ){.    if( sM
6810: 2e 7a 54 65 78 74 3d 3d 73 4d 2e 7a 42 61 73 65  .zText==sM.zBase
6820: 20 29 7b 0a 20 20 20 20 20 20 73 4d 2e 7a 54 65   ){.      sM.zTe
6830: 78 74 20 3d 20 78 52 65 61 6c 6c 6f 63 28 30 2c  xt = xRealloc(0,
6840: 20 73 4d 2e 6e 43 68 61 72 2b 31 29 3b 0a 20 20   sM.nChar+1);.  
6850: 20 20 20 20 69 66 28 20 73 4d 2e 7a 54 65 78 74      if( sM.zText
6860: 20 29 7b 0a 20 20 20 20 20 20 20 20 6d 65 6d 63   ){.        memc
6870: 70 79 28 73 4d 2e 7a 54 65 78 74 2c 20 73 4d 2e  py(sM.zText, sM.
6880: 7a 42 61 73 65 2c 20 73 4d 2e 6e 43 68 61 72 2b  zBase, sM.nChar+
6890: 31 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  1);.      }.    
68a0: 7d 65 6c 73 65 20 69 66 28 20 73 4d 2e 6e 41 6c  }else if( sM.nAl
68b0: 6c 6f 63 3e 73 4d 2e 6e 43 68 61 72 2b 31 30 20  loc>sM.nChar+10 
68c0: 29 7b 0a 20 20 20 20 20 20 73 4d 2e 7a 54 65 78  ){.      sM.zTex
68d0: 74 20 3d 20 78 52 65 61 6c 6c 6f 63 28 73 4d 2e  t = xRealloc(sM.
68e0: 7a 54 65 78 74 2c 20 73 4d 2e 6e 43 68 61 72 2b  zText, sM.nChar+
68f0: 31 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20  1);.    }.  }.  
6900: 72 65 74 75 72 6e 20 73 4d 2e 7a 54 65 78 74 3b  return sM.zText;
6910: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 61 6c 6c 6f  .}../*.** Reallo
6920: 63 20 74 68 61 74 20 69 73 20 61 20 72 65 61 6c  c that is a real
6930: 20 66 75 6e 63 74 69 6f 6e 2c 20 6e 6f 74 20 61   function, not a
6940: 20 6d 61 63 72 6f 2e 0a 2a 2f 0a 73 74 61 74 69   macro..*/.stati
6950: 63 20 76 6f 69 64 20 2a 70 72 69 6e 74 66 5f 72  c void *printf_r
6960: 65 61 6c 6c 6f 63 28 76 6f 69 64 20 2a 6f 6c 64  ealloc(void *old
6970: 2c 20 69 6e 74 20 73 69 7a 65 29 7b 0a 20 20 72  , int size){.  r
6980: 65 74 75 72 6e 20 73 71 6c 69 74 65 52 65 61 6c  eturn sqliteReal
6990: 6c 6f 63 28 6f 6c 64 2c 73 69 7a 65 29 3b 0a 7d  loc(old,size);.}
69a0: 0a 0a 2f 2a 0a 2a 2a 20 50 72 69 6e 74 20 69 6e  ../*.** Print in
69b0: 74 6f 20 6d 65 6d 6f 72 79 20 6f 62 74 61 69 6e  to memory obtain
69c0: 65 64 20 66 72 6f 6d 20 73 71 6c 69 74 65 4d 61  ed from sqliteMa
69d0: 6c 6c 6f 63 28 29 2e 20 20 55 73 65 20 74 68 65  lloc().  Use the
69e0: 20 69 6e 74 65 72 6e 61 6c 0a 2a 2a 20 25 2d 63   internal.** %-c
69f0: 6f 6e 76 65 72 73 69 6f 6e 20 65 78 74 65 6e 73  onversion extens
6a00: 69 6f 6e 73 2e 0a 2a 2f 0a 63 68 61 72 20 2a 73  ions..*/.char *s
6a10: 71 6c 69 74 65 33 56 4d 50 72 69 6e 74 66 28 63  qlite3VMPrintf(c
6a20: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 6f 72 6d  onst char *zForm
6a30: 61 74 2c 20 76 61 5f 6c 69 73 74 20 61 70 29 7b  at, va_list ap){
6a40: 0a 20 20 63 68 61 72 20 7a 42 61 73 65 5b 31 30  .  char zBase[10
6a50: 30 30 5d 3b 0a 20 20 72 65 74 75 72 6e 20 62 61  00];.  return ba
6a60: 73 65 5f 76 70 72 69 6e 74 66 28 70 72 69 6e 74  se_vprintf(print
6a70: 66 5f 72 65 61 6c 6c 6f 63 2c 20 31 2c 20 7a 42  f_realloc, 1, zB
6a80: 61 73 65 2c 20 73 69 7a 65 6f 66 28 7a 42 61 73  ase, sizeof(zBas
6a90: 65 29 2c 20 7a 46 6f 72 6d 61 74 2c 20 61 70 29  e), zFormat, ap)
6aa0: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 50 72 69 6e 74  ;.}../*.** Print
6ab0: 20 69 6e 74 6f 20 6d 65 6d 6f 72 79 20 6f 62 74   into memory obt
6ac0: 61 69 6e 65 64 20 66 72 6f 6d 20 73 71 6c 69 74  ained from sqlit
6ad0: 65 4d 61 6c 6c 6f 63 28 29 2e 20 20 55 73 65 20  eMalloc().  Use 
6ae0: 74 68 65 20 69 6e 74 65 72 6e 61 6c 0a 2a 2a 20  the internal.** 
6af0: 25 2d 63 6f 6e 76 65 72 73 69 6f 6e 20 65 78 74  %-conversion ext
6b00: 65 6e 73 69 6f 6e 73 2e 0a 2a 2f 0a 63 68 61 72  ensions..*/.char
6b10: 20 2a 73 71 6c 69 74 65 33 4d 50 72 69 6e 74 66   *sqlite3MPrintf
6b20: 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 6f  (const char *zFo
6b30: 72 6d 61 74 2c 20 2e 2e 2e 29 7b 0a 20 20 76 61  rmat, ...){.  va
6b40: 5f 6c 69 73 74 20 61 70 3b 0a 20 20 63 68 61 72  _list ap;.  char
6b50: 20 2a 7a 3b 0a 20 20 63 68 61 72 20 7a 42 61 73   *z;.  char zBas
6b60: 65 5b 31 30 30 30 5d 3b 0a 20 20 76 61 5f 73 74  e[1000];.  va_st
6b70: 61 72 74 28 61 70 2c 20 7a 46 6f 72 6d 61 74 29  art(ap, zFormat)
6b80: 3b 0a 20 20 7a 20 3d 20 62 61 73 65 5f 76 70 72  ;.  z = base_vpr
6b90: 69 6e 74 66 28 70 72 69 6e 74 66 5f 72 65 61 6c  intf(printf_real
6ba0: 6c 6f 63 2c 20 31 2c 20 7a 42 61 73 65 2c 20 73  loc, 1, zBase, s
6bb0: 69 7a 65 6f 66 28 7a 42 61 73 65 29 2c 20 7a 46  izeof(zBase), zF
6bc0: 6f 72 6d 61 74 2c 20 61 70 29 3b 0a 20 20 76 61  ormat, ap);.  va
6bd0: 5f 65 6e 64 28 61 70 29 3b 0a 20 20 72 65 74 75  _end(ap);.  retu
6be0: 72 6e 20 7a 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 50  rn z;.}../*.** P
6bf0: 72 69 6e 74 20 69 6e 74 6f 20 6d 65 6d 6f 72 79  rint into memory
6c00: 20 6f 62 74 61 69 6e 65 64 20 66 72 6f 6d 20 6d   obtained from m
6c10: 61 6c 6c 6f 63 28 29 2e 20 20 44 6f 20 6e 6f 74  alloc().  Do not
6c20: 20 75 73 65 20 74 68 65 20 69 6e 74 65 72 6e 61   use the interna
6c30: 6c 0a 2a 2a 20 25 2d 63 6f 6e 76 65 72 73 69 6f  l.** %-conversio
6c40: 6e 20 65 78 74 65 6e 73 69 6f 6e 73 2e 20 20 54  n extensions.  T
6c50: 68 69 73 20 72 6f 75 74 69 6e 65 20 69 73 20 66  his routine is f
6c60: 6f 72 20 75 73 65 20 62 79 20 65 78 74 65 72 6e  or use by extern
6c70: 61 6c 20 75 73 65 72 73 2e 0a 2a 2f 0a 63 68 61  al users..*/.cha
6c80: 72 20 2a 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e  r *sqlite3_mprin
6c90: 74 66 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a  tf(const char *z
6ca0: 46 6f 72 6d 61 74 2c 20 2e 2e 2e 29 7b 0a 20 20  Format, ...){.  
6cb0: 76 61 5f 6c 69 73 74 20 61 70 3b 0a 20 20 63 68  va_list ap;.  ch
6cc0: 61 72 20 2a 7a 3b 0a 20 20 63 68 61 72 20 7a 42  ar *z;.  char zB
6cd0: 75 66 5b 32 30 30 5d 3b 0a 0a 20 20 76 61 5f 73  uf[200];..  va_s
6ce0: 74 61 72 74 28 61 70 2c 7a 46 6f 72 6d 61 74 29  tart(ap,zFormat)
6cf0: 3b 0a 20 20 7a 20 3d 20 62 61 73 65 5f 76 70 72  ;.  z = base_vpr
6d00: 69 6e 74 66 28 28 76 6f 69 64 2a 28 2a 29 28 76  intf((void*(*)(v
6d10: 6f 69 64 2a 2c 69 6e 74 29 29 72 65 61 6c 6c 6f  oid*,int))reallo
6d20: 63 2c 20 30 2c 20 0a 20 20 20 20 20 20 20 20 20  c, 0, .         
6d30: 20 20 20 20 20 20 20 20 20 20 7a 42 75 66 2c 20            zBuf, 
6d40: 73 69 7a 65 6f 66 28 7a 42 75 66 29 2c 20 7a 46  sizeof(zBuf), zF
6d50: 6f 72 6d 61 74 2c 20 61 70 29 3b 0a 20 20 76 61  ormat, ap);.  va
6d60: 5f 65 6e 64 28 61 70 29 3b 0a 20 20 72 65 74 75  _end(ap);.  retu
6d70: 72 6e 20 7a 3b 0a 7d 0a 0a 2f 2a 20 54 68 69 73  rn z;.}../* This
6d80: 20 69 73 20 74 68 65 20 76 61 72 61 72 67 73 20   is the varargs 
6d90: 76 65 72 73 69 6f 6e 20 6f 66 20 73 71 6c 69 74  version of sqlit
6da0: 65 33 5f 6d 70 72 69 6e 74 66 2e 20 20 0a 2a 2f  e3_mprintf.  .*/
6db0: 0a 63 68 61 72 20 2a 73 71 6c 69 74 65 33 5f 76  .char *sqlite3_v
6dc0: 6d 70 72 69 6e 74 66 28 63 6f 6e 73 74 20 63 68  mprintf(const ch
6dd0: 61 72 20 2a 7a 46 6f 72 6d 61 74 2c 20 76 61 5f  ar *zFormat, va_
6de0: 6c 69 73 74 20 61 70 29 7b 0a 20 20 63 68 61 72  list ap){.  char
6df0: 20 7a 42 75 66 5b 32 30 30 5d 3b 0a 20 20 72 65   zBuf[200];.  re
6e00: 74 75 72 6e 20 62 61 73 65 5f 76 70 72 69 6e 74  turn base_vprint
6e10: 66 28 28 76 6f 69 64 2a 28 2a 29 28 76 6f 69 64  f((void*(*)(void
6e20: 2a 2c 69 6e 74 29 29 72 65 61 6c 6c 6f 63 2c 20  *,int))realloc, 
6e30: 30 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  0,.             
6e40: 20 20 20 20 20 20 20 20 20 7a 42 75 66 2c 20 73           zBuf, s
6e50: 69 7a 65 6f 66 28 7a 42 75 66 29 2c 20 7a 46 6f  izeof(zBuf), zFo
6e60: 72 6d 61 74 2c 20 61 70 29 3b 0a 7d 0a 0a 2f 2a  rmat, ap);.}../*
6e70: 0a 2a 2a 20 73 71 6c 69 74 65 33 5f 73 6e 70 72  .** sqlite3_snpr
6e80: 69 6e 74 66 28 29 20 77 6f 72 6b 73 20 6c 69 6b  intf() works lik
6e90: 65 20 73 6e 70 72 69 6e 74 66 28 29 20 65 78 63  e snprintf() exc
6ea0: 65 70 74 20 74 68 61 74 20 69 74 20 69 67 6e 6f  ept that it igno
6eb0: 72 65 73 20 74 68 65 0a 2a 2a 20 63 75 72 72 65  res the.** curre
6ec0: 6e 74 20 6c 6f 63 61 6c 65 20 73 65 74 74 69 6e  nt locale settin
6ed0: 67 73 2e 20 20 54 68 69 73 20 69 73 20 69 6d 70  gs.  This is imp
6ee0: 6f 72 74 61 6e 74 20 66 6f 72 20 53 51 4c 69 74  ortant for SQLit
6ef0: 65 20 62 65 63 61 75 73 65 20 77 65 0a 2a 2a 20  e because we.** 
6f00: 61 72 65 20 6e 6f 74 20 61 62 6c 65 20 74 6f 20  are not able to 
6f10: 75 73 65 20 61 20 22 2c 22 20 61 73 20 74 68 65  use a "," as the
6f20: 20 64 65 63 69 6d 61 6c 20 70 6f 69 6e 74 20 69   decimal point i
6f30: 6e 20 70 6c 61 63 65 20 6f 66 20 22 2e 22 20 61  n place of "." a
6f40: 73 0a 2a 2a 20 73 70 65 63 69 66 69 65 64 20 62  s.** specified b
6f50: 79 20 73 6f 6d 65 20 6c 6f 63 61 6c 65 73 2e 0a  y some locales..
6f60: 2a 2f 0a 63 68 61 72 20 2a 73 71 6c 69 74 65 33  */.char *sqlite3
6f70: 5f 73 6e 70 72 69 6e 74 66 28 69 6e 74 20 6e 2c  _snprintf(int n,
6f80: 20 63 68 61 72 20 2a 7a 42 75 66 2c 20 63 6f 6e   char *zBuf, con
6f90: 73 74 20 63 68 61 72 20 2a 7a 46 6f 72 6d 61 74  st char *zFormat
6fa0: 2c 20 2e 2e 2e 29 7b 0a 20 20 63 68 61 72 20 2a  , ...){.  char *
6fb0: 7a 3b 0a 20 20 76 61 5f 6c 69 73 74 20 61 70 3b  z;.  va_list ap;
6fc0: 0a 0a 20 20 76 61 5f 73 74 61 72 74 28 61 70 2c  ..  va_start(ap,
6fd0: 7a 46 6f 72 6d 61 74 29 3b 0a 20 20 7a 20 3d 20  zFormat);.  z = 
6fe0: 62 61 73 65 5f 76 70 72 69 6e 74 66 28 30 2c 20  base_vprintf(0, 
6ff0: 30 2c 20 7a 42 75 66 2c 20 6e 2c 20 7a 46 6f 72  0, zBuf, n, zFor
7000: 6d 61 74 2c 20 61 70 29 3b 0a 20 20 76 61 5f 65  mat, ap);.  va_e
7010: 6e 64 28 61 70 29 3b 0a 20 20 72 65 74 75 72 6e  nd(ap);.  return
7020: 20 7a 3b 0a 7d 0a 0a 23 69 66 20 64 65 66 69 6e   z;.}..#if defin
7030: 65 64 28 53 51 4c 49 54 45 5f 54 45 53 54 29 20  ed(SQLITE_TEST) 
7040: 7c 7c 20 64 65 66 69 6e 65 64 28 53 51 4c 49 54  || defined(SQLIT
7050: 45 5f 44 45 42 55 47 29 0a 2f 2a 0a 2a 2a 20 41  E_DEBUG)./*.** A
7060: 20 76 65 72 73 69 6f 6e 20 6f 66 20 70 72 69 6e   version of prin
7070: 74 66 28 29 20 74 68 61 74 20 75 6e 64 65 72 73  tf() that unders
7080: 74 61 6e 64 73 20 25 6c 6c 64 2e 20 20 55 73 65  tands %lld.  Use
7090: 64 20 66 6f 72 20 64 65 62 75 67 67 69 6e 67 2e  d for debugging.
70a0: 0a 2a 2a 20 54 68 65 20 70 72 69 6e 74 66 28 29  .** The printf()
70b0: 20 62 75 69 6c 74 20 69 6e 74 6f 20 73 6f 6d 65   built into some
70c0: 20 76 65 72 73 69 6f 6e 73 20 6f 66 20 77 69 6e   versions of win
70d0: 64 6f 77 73 20 64 6f 65 73 20 6e 6f 74 20 75 6e  dows does not un
70e0: 64 65 72 73 74 61 6e 64 20 25 6c 6c 64 0a 2a 2a  derstand %lld.**
70f0: 20 61 6e 64 20 73 65 67 66 61 75 6c 74 73 20 69   and segfaults i
7100: 66 20 79 6f 75 20 67 69 76 65 20 69 74 20 61 20  f you give it a 
7110: 6c 6f 6e 67 20 6c 6f 6e 67 20 69 6e 74 2e 0a 2a  long long int..*
7120: 2f 0a 76 6f 69 64 20 73 71 6c 69 74 65 33 44 65  /.void sqlite3De
7130: 62 75 67 50 72 69 6e 74 66 28 63 6f 6e 73 74 20  bugPrintf(const 
7140: 63 68 61 72 20 2a 7a 46 6f 72 6d 61 74 2c 20 2e  char *zFormat, .
7150: 2e 2e 29 7b 0a 20 20 65 78 74 65 72 6e 20 69 6e  ..){.  extern in
7160: 74 20 67 65 74 70 69 64 28 76 6f 69 64 29 3b 0a  t getpid(void);.
7170: 20 20 76 61 5f 6c 69 73 74 20 61 70 3b 0a 20 20    va_list ap;.  
7180: 63 68 61 72 20 7a 42 75 66 5b 35 30 30 5d 3b 0a  char zBuf[500];.
7190: 20 20 76 61 5f 73 74 61 72 74 28 61 70 2c 20 7a    va_start(ap, z
71a0: 46 6f 72 6d 61 74 29 3b 0a 20 20 62 61 73 65 5f  Format);.  base_
71b0: 76 70 72 69 6e 74 66 28 30 2c 20 30 2c 20 7a 42  vprintf(0, 0, zB
71c0: 75 66 2c 20 73 69 7a 65 6f 66 28 7a 42 75 66 29  uf, sizeof(zBuf)
71d0: 2c 20 7a 46 6f 72 6d 61 74 2c 20 61 70 29 3b 0a  , zFormat, ap);.
71e0: 20 20 76 61 5f 65 6e 64 28 61 70 29 3b 0a 20 20    va_end(ap);.  
71f0: 66 70 72 69 6e 74 66 28 73 74 64 6f 75 74 2c 22  fprintf(stdout,"
7200: 25 64 3a 20 25 73 22 2c 20 67 65 74 70 69 64 28  %d: %s", getpid(
7210: 29 2c 20 7a 42 75 66 29 3b 0a 20 20 66 66 6c 75  ), zBuf);.  fflu
7220: 73 68 28 73 74 64 6f 75 74 29 3b 0a 7d 0a 23 65  sh(stdout);.}.#e
7230: 6e 64 69 66 0a                                   ndif.