/ Hex Artifact Content
Login

Artifact af0dc65c293427272e1949c7807b1d88f10004fd:


0000: 2f 2a 0a 2a 2a 20 54 68 65 20 22 70 72 69 6e 74  /*.** The "print
0010: 66 22 20 63 6f 64 65 20 74 68 61 74 20 66 6f 6c  f" code that fol
0020: 6c 6f 77 73 20 64 61 74 65 73 20 66 72 6f 6d 20  lows dates from 
0030: 74 68 65 20 31 39 38 30 27 73 2e 20 20 49 74 20  the 1980's.  It 
0040: 69 73 20 69 6e 0a 2a 2a 20 74 68 65 20 70 75 62  is in.** the pub
0050: 6c 69 63 20 64 6f 6d 61 69 6e 2e 20 20 54 68 65  lic domain.  The
0060: 20 6f 72 69 67 69 6e 61 6c 20 63 6f 6d 6d 65 6e   original commen
0070: 74 73 20 61 72 65 20 69 6e 63 6c 75 64 65 64 20  ts are included 
0080: 68 65 72 65 20 66 6f 72 0a 2a 2a 20 63 6f 6d 70  here for.** comp
0090: 6c 65 74 65 6e 65 73 73 2e 20 20 54 68 65 79 20  leteness.  They 
00a0: 61 72 65 20 73 6c 69 67 68 74 6c 79 20 6f 75 74  are slightly out
00b0: 2d 6f 66 2d 64 61 74 65 2e 0a 2a 2a 0a 2a 2a 20  -of-date..**.** 
00c0: 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 6d 6f  The following mo
00d0: 64 75 6c 65 73 20 69 73 20 61 6e 20 65 6e 68 61  dules is an enha
00e0: 6e 63 65 64 20 72 65 70 6c 61 63 65 6d 65 6e 74  nced replacement
00f0: 20 66 6f 72 20 74 68 65 20 22 70 72 69 6e 74 66   for the "printf
0100: 22 20 70 72 6f 67 72 61 6d 73 0a 2a 2a 20 66 6f  " programs.** fo
0110: 75 6e 64 20 69 6e 20 74 68 65 20 73 74 61 6e 64  und in the stand
0120: 61 72 64 20 6c 69 62 72 61 72 79 2e 20 20 54 68  ard library.  Th
0130: 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 65 6e 68 61  e following enha
0140: 6e 63 65 6d 65 6e 74 73 20 61 72 65 0a 2a 2a 20  ncements are.** 
0150: 73 75 70 70 6f 72 74 65 64 3a 0a 2a 2a 0a 2a 2a  supported:.**.**
0160: 20 20 20 20 20 20 2b 20 20 41 64 64 69 74 69 6f        +  Additio
0170: 6e 61 6c 20 66 75 6e 63 74 69 6f 6e 73 2e 20 20  nal functions.  
0180: 54 68 65 20 73 74 61 6e 64 61 72 64 20 73 65 74  The standard set
0190: 20 6f 66 20 22 70 72 69 6e 74 66 22 20 66 75 6e   of "printf" fun
01a0: 63 74 69 6f 6e 73 0a 2a 2a 20 20 20 20 20 20 20  ctions.**       
01b0: 20 20 69 6e 63 6c 75 64 65 73 20 70 72 69 6e 74    includes print
01c0: 66 2c 20 66 70 72 69 6e 74 66 2c 20 73 70 72 69  f, fprintf, spri
01d0: 6e 74 66 2c 20 76 70 72 69 6e 74 66 2c 20 76 66  ntf, vprintf, vf
01e0: 70 72 69 6e 74 66 2c 20 61 6e 64 0a 2a 2a 20 20  printf, and.**  
01f0: 20 20 20 20 20 20 20 76 73 70 72 69 6e 74 66 2e         vsprintf.
0200: 20 20 54 68 69 73 20 6d 6f 64 75 6c 65 20 61 64    This module ad
0210: 64 73 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67  ds the following
0220: 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 20 20 20  :.**.**         
0230: 20 20 2a 20 20 73 6e 70 72 69 6e 74 66 20 2d 2d    *  snprintf --
0240: 20 57 6f 72 6b 73 20 6c 69 6b 65 20 73 70 72 69   Works like spri
0250: 6e 74 66 2c 20 62 75 74 20 68 61 73 20 61 6e 20  ntf, but has an 
0260: 65 78 74 72 61 20 61 72 67 75 6d 65 6e 74 0a 2a  extra argument.*
0270: 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  *               
0280: 20 20 20 20 20 20 20 20 20 20 20 77 68 69 63 68             which
0290: 20 69 73 20 74 68 65 20 73 69 7a 65 20 6f 66 20   is the size of 
02a0: 74 68 65 20 62 75 66 66 65 72 20 77 72 69 74 74  the buffer writt
02b0: 65 6e 20 74 6f 2e 0a 2a 2a 0a 2a 2a 20 20 20 20  en to..**.**    
02c0: 20 20 20 20 20 20 20 2a 20 20 6d 70 72 69 6e 74         *  mprint
02d0: 66 20 2d 2d 20 20 53 69 6d 69 6c 61 72 20 74 6f  f --  Similar to
02e0: 20 73 70 72 69 6e 74 66 2e 20 20 57 72 69 74 65   sprintf.  Write
02f0: 73 20 6f 75 74 70 75 74 20 74 6f 20 6d 65 6d 6f  s output to memo
0300: 72 79 0a 2a 2a 20 20 20 20 20 20 20 20 20 20 20  ry.**           
0310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f                 o
0320: 62 74 61 69 6e 65 64 20 66 72 6f 6d 20 6d 61 6c  btained from mal
0330: 6c 6f 63 2e 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20  loc..**.**      
0340: 20 20 20 20 20 2a 20 20 78 70 72 69 6e 74 66 20       *  xprintf 
0350: 2d 2d 20 20 43 61 6c 6c 73 20 61 20 66 75 6e 63  --  Calls a func
0360: 74 69 6f 6e 20 74 6f 20 64 69 73 70 6f 73 65 20  tion to dispose 
0370: 6f 66 20 6f 75 74 70 75 74 2e 0a 2a 2a 0a 2a 2a  of output..**.**
0380: 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 6e 70             *  np
0390: 72 69 6e 74 66 20 2d 2d 20 20 4e 6f 20 6f 75 74  rintf --  No out
03a0: 70 75 74 2c 20 62 75 74 20 72 65 74 75 72 6e 73  put, but returns
03b0: 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 63   the number of c
03c0: 68 61 72 61 63 74 65 72 73 0a 2a 2a 20 20 20 20  haracters.**    
03d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
03e0: 20 20 20 20 20 20 74 68 61 74 20 77 6f 75 6c 64        that would
03f0: 20 68 61 76 65 20 62 65 65 6e 20 6f 75 74 70 75   have been outpu
0400: 74 20 62 79 20 70 72 69 6e 74 66 2e 0a 2a 2a 0a  t by printf..**.
0410: 2a 2a 20 20 20 20 20 20 20 20 20 20 20 2a 20 20  **           *  
0420: 41 20 76 2d 20 76 65 72 73 69 6f 6e 20 28 65 78  A v- version (ex
0430: 3a 20 76 73 6e 70 72 69 6e 74 66 29 20 6f 66 20  : vsnprintf) of 
0440: 65 76 65 72 79 20 66 75 6e 63 74 69 6f 6e 20 69  every function i
0450: 73 20 61 6c 73 6f 0a 2a 2a 20 20 20 20 20 20 20  s also.**       
0460: 20 20 20 20 20 20 20 73 75 70 70 6c 69 65 64 2e         supplied.
0470: 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 2b 20 20 41  .**.**      +  A
0480: 20 66 65 77 20 65 78 74 65 6e 73 69 6f 6e 73 20   few extensions 
0490: 74 6f 20 74 68 65 20 66 6f 72 6d 61 74 74 69 6e  to the formattin
04a0: 67 20 6e 6f 74 61 74 69 6f 6e 20 61 72 65 20 73  g notation are s
04b0: 75 70 70 6f 72 74 65 64 3a 0a 2a 2a 0a 2a 2a 20  upported:.**.** 
04c0: 20 20 20 20 20 20 20 20 20 20 2a 20 20 54 68 65            *  The
04d0: 20 22 3d 22 20 66 6c 61 67 20 28 73 69 6d 69 6c   "=" flag (simil
04e0: 61 72 20 74 6f 20 22 2d 22 29 20 63 61 75 73 65  ar to "-") cause
04f0: 73 20 74 68 65 20 6f 75 74 70 75 74 20 74 6f 20  s the output to 
0500: 62 65 0a 2a 2a 20 20 20 20 20 20 20 20 20 20 20  be.**           
0510: 20 20 20 62 65 20 63 65 6e 74 65 72 65 64 20 69     be centered i
0520: 6e 20 74 68 65 20 61 70 70 72 6f 70 72 69 61 74  n the appropriat
0530: 65 6c 79 20 73 69 7a 65 64 20 66 69 65 6c 64 2e  ely sized field.
0540: 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 20 20 20 20  .**.**          
0550: 20 2a 20 20 54 68 65 20 25 62 20 66 69 65 6c 64   *  The %b field
0560: 20 6f 75 74 70 75 74 73 20 61 6e 20 69 6e 74 65   outputs an inte
0570: 67 65 72 20 69 6e 20 62 69 6e 61 72 79 20 6e 6f  ger in binary no
0580: 74 61 74 69 6f 6e 2e 0a 2a 2a 0a 2a 2a 20 20 20  tation..**.**   
0590: 20 20 20 20 20 20 20 20 2a 20 20 54 68 65 20 25          *  The %
05a0: 63 20 66 69 65 6c 64 20 6e 6f 77 20 61 63 63 65  c field now acce
05b0: 70 74 73 20 61 20 70 72 65 63 69 73 69 6f 6e 2e  pts a precision.
05c0: 20 20 54 68 65 20 63 68 61 72 61 63 74 65 72 20    The character 
05d0: 6f 75 74 70 75 74 0a 2a 2a 20 20 20 20 20 20 20  output.**       
05e0: 20 20 20 20 20 20 20 69 73 20 72 65 70 65 61 74         is repeat
05f0: 65 64 20 62 79 20 74 68 65 20 6e 75 6d 62 65 72  ed by the number
0600: 20 6f 66 20 74 69 6d 65 73 20 74 68 65 20 70 72   of times the pr
0610: 65 63 69 73 69 6f 6e 20 73 70 65 63 69 66 69 65  ecision specifie
0620: 73 2e 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 20 20  s..**.**        
0630: 20 20 20 2a 20 20 54 68 65 20 25 27 20 66 69 65     *  The %' fie
0640: 6c 64 20 77 6f 72 6b 73 20 6c 69 6b 65 20 25 63  ld works like %c
0650: 2c 20 62 75 74 20 74 61 6b 65 73 20 61 73 20 69  , but takes as i
0660: 74 73 20 63 68 61 72 61 63 74 65 72 20 74 68 65  ts character the
0670: 0a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20  .**             
0680: 20 6e 65 78 74 20 63 68 61 72 61 63 74 65 72 20   next character 
0690: 6f 66 20 74 68 65 20 66 6f 72 6d 61 74 20 73 74  of the format st
06a0: 72 69 6e 67 2c 20 69 6e 73 74 65 61 64 20 6f 66  ring, instead of
06b0: 20 74 68 65 20 6e 65 78 74 0a 2a 2a 20 20 20 20   the next.**    
06c0: 20 20 20 20 20 20 20 20 20 20 61 72 67 75 6d 65            argume
06d0: 6e 74 2e 20 20 46 6f 72 20 65 78 61 6d 70 6c 65  nt.  For example
06e0: 2c 20 20 70 72 69 6e 74 66 28 22 25 2e 37 38 27  ,  printf("%.78'
06f0: 2d 22 29 20 20 70 72 69 6e 74 73 20 37 38 20 6d  -")  prints 78 m
0700: 69 6e 75 73 0a 2a 2a 20 20 20 20 20 20 20 20 20  inus.**         
0710: 20 20 20 20 20 73 69 67 6e 73 2c 20 74 68 65 20       signs, the 
0720: 73 61 6d 65 20 61 73 20 20 70 72 69 6e 74 66 28  same as  printf(
0730: 22 25 2e 37 38 63 22 2c 27 2d 27 29 2e 0a 2a 2a  "%.78c",'-')..**
0740: 0a 2a 2a 20 20 20 20 20 20 2b 20 20 57 68 65 6e  .**      +  When
0750: 20 63 6f 6d 70 69 6c 65 64 20 75 73 69 6e 67 20   compiled using 
0760: 47 43 43 20 6f 6e 20 61 20 53 50 41 52 43 2c 20  GCC on a SPARC, 
0770: 74 68 69 73 20 76 65 72 73 69 6f 6e 20 6f 66 20  this version of 
0780: 70 72 69 6e 74 66 20 69 73 0a 2a 2a 20 20 20 20  printf is.**    
0790: 20 20 20 20 20 66 61 73 74 65 72 20 74 68 61 6e       faster than
07a0: 20 74 68 65 20 6c 69 62 72 61 72 79 20 70 72 69   the library pri
07b0: 6e 74 66 20 66 6f 72 20 53 55 4e 20 4f 53 20 34  ntf for SUN OS 4
07c0: 2e 31 2e 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 2b  .1..**.**      +
07d0: 20 20 41 6c 6c 20 66 75 6e 63 74 69 6f 6e 73 20    All functions 
07e0: 61 72 65 20 66 75 6c 6c 79 20 72 65 65 6e 74 72  are fully reentr
07f0: 61 6e 74 2e 0a 2a 2a 0a 2a 2f 0a 23 69 6e 63 6c  ant..**.*/.#incl
0800: 75 64 65 20 22 73 71 6c 69 74 65 49 6e 74 2e 68  ude "sqliteInt.h
0810: 22 0a 0a 2f 2a 0a 2a 2a 20 55 6e 64 65 66 69 6e  "../*.** Undefin
0820: 65 20 43 4f 4d 50 41 54 49 42 49 4c 49 54 59 20  e COMPATIBILITY 
0830: 74 6f 20 6d 61 6b 65 20 73 6f 6d 65 20 73 6c 69  to make some sli
0840: 67 68 74 20 63 68 61 6e 67 65 73 20 69 6e 20 74  ght changes in t
0850: 68 65 20 77 61 79 20 74 68 69 6e 67 73 0a 2a 2a  he way things.**
0860: 20 77 6f 72 6b 2e 20 20 49 20 74 68 69 6e 6b 20   work.  I think 
0870: 74 68 65 20 63 68 61 6e 67 65 73 20 61 72 65 20  the changes are 
0880: 61 6e 20 69 6d 70 72 6f 76 65 6d 65 6e 74 2c 20  an improvement, 
0890: 62 75 74 20 74 68 65 79 20 61 72 65 20 6e 6f 74  but they are not
08a0: 0a 2a 2a 20 62 61 63 6b 77 61 72 64 73 20 63 6f  .** backwards co
08b0: 6d 70 61 74 69 62 6c 65 2e 0a 2a 2f 0a 2f 2a 20  mpatible..*/./* 
08c0: 23 64 65 66 69 6e 65 20 43 4f 4d 50 41 54 49 42  #define COMPATIB
08d0: 49 4c 49 54 59 20 20 20 20 20 20 20 2f 20 2a 20  ILITY       / * 
08e0: 43 6f 6d 70 61 74 69 62 6c 65 20 77 69 74 68 20  Compatible with 
08f0: 53 55 4e 20 4f 53 20 34 2e 31 20 2a 2f 0a 0a 2f  SUN OS 4.1 */../
0900: 2a 0a 2a 2a 20 43 6f 6e 76 65 72 73 69 6f 6e 20  *.** Conversion 
0910: 74 79 70 65 73 20 66 61 6c 6c 20 69 6e 74 6f 20  types fall into 
0920: 76 61 72 69 6f 75 73 20 63 61 74 65 67 6f 72 69  various categori
0930: 65 73 20 61 73 20 64 65 66 69 6e 65 64 20 62 79  es as defined by
0940: 20 74 68 65 0a 2a 2a 20 66 6f 6c 6c 6f 77 69 6e   the.** followin
0950: 67 20 65 6e 75 6d 65 72 61 74 69 6f 6e 2e 0a 2a  g enumeration..*
0960: 2f 0a 65 6e 75 6d 20 65 74 5f 74 79 70 65 20 7b  /.enum et_type {
0970: 20 20 20 20 2f 2a 20 54 68 65 20 74 79 70 65 20      /* The type 
0980: 6f 66 20 74 68 65 20 66 6f 72 6d 61 74 20 66 69  of the format fi
0990: 65 6c 64 20 2a 2f 0a 20 20 20 65 74 52 41 44 49  eld */.   etRADI
09a0: 58 2c 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a  X,            /*
09b0: 20 49 6e 74 65 67 65 72 20 74 79 70 65 73 2e 20   Integer types. 
09c0: 20 25 64 2c 20 25 78 2c 20 25 6f 2c 20 61 6e 64   %d, %x, %o, and
09d0: 20 73 6f 20 66 6f 72 74 68 20 2a 2f 0a 20 20 20   so forth */.   
09e0: 65 74 46 4c 4f 41 54 2c 20 20 20 20 20 20 20 20  etFLOAT,        
09f0: 20 20 20 20 2f 2a 20 46 6c 6f 61 74 69 6e 67 20      /* Floating 
0a00: 70 6f 69 6e 74 2e 20 20 25 66 20 2a 2f 0a 20 20  point.  %f */.  
0a10: 20 65 74 45 58 50 2c 20 20 20 20 20 20 20 20 20   etEXP,         
0a20: 20 20 20 20 20 2f 2a 20 45 78 70 6f 6e 65 6e 74       /* Exponent
0a30: 69 6f 6e 61 6c 20 6e 6f 74 61 74 69 6f 6e 2e 20  ional notation. 
0a40: 25 65 20 61 6e 64 20 25 45 20 2a 2f 0a 20 20 20  %e and %E */.   
0a50: 65 74 47 45 4e 45 52 49 43 2c 20 20 20 20 20 20  etGENERIC,      
0a60: 20 20 20 20 2f 2a 20 46 6c 6f 61 74 69 6e 67 20      /* Floating 
0a70: 6f 72 20 65 78 70 6f 6e 65 6e 74 69 61 6c 2c 20  or exponential, 
0a80: 64 65 70 65 6e 64 69 6e 67 20 6f 6e 20 65 78 70  depending on exp
0a90: 6f 6e 65 6e 74 2e 20 25 67 20 2a 2f 0a 20 20 20  onent. %g */.   
0aa0: 65 74 53 49 5a 45 2c 20 20 20 20 20 20 20 20 20  etSIZE,         
0ab0: 20 20 20 20 2f 2a 20 52 65 74 75 72 6e 20 6e 75      /* Return nu
0ac0: 6d 62 65 72 20 6f 66 20 63 68 61 72 61 63 74 65  mber of characte
0ad0: 72 73 20 70 72 6f 63 65 73 73 65 64 20 73 6f 20  rs processed so 
0ae0: 66 61 72 2e 20 25 6e 20 2a 2f 0a 20 20 20 65 74  far. %n */.   et
0af0: 53 54 52 49 4e 47 2c 20 20 20 20 20 20 20 20 20  STRING,         
0b00: 20 20 2f 2a 20 53 74 72 69 6e 67 73 2e 20 25 73    /* Strings. %s
0b10: 20 2a 2f 0a 20 20 20 65 74 50 45 52 43 45 4e 54   */.   etPERCENT
0b20: 2c 20 20 20 20 20 20 20 20 20 20 2f 2a 20 50 65  ,          /* Pe
0b30: 72 63 65 6e 74 20 73 79 6d 62 6f 6c 2e 20 25 25  rcent symbol. %%
0b40: 20 2a 2f 0a 20 20 20 65 74 43 48 41 52 58 2c 20   */.   etCHARX, 
0b50: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 43 68             /* Ch
0b60: 61 72 61 63 74 65 72 73 2e 20 25 63 20 2a 2f 0a  aracters. %c */.
0b70: 20 20 20 65 74 45 52 52 4f 52 2c 20 20 20 20 20     etERROR,     
0b80: 20 20 20 20 20 20 20 2f 2a 20 55 73 65 64 20 74         /* Used t
0b90: 6f 20 69 6e 64 69 63 61 74 65 20 6e 6f 20 73 75  o indicate no su
0ba0: 63 68 20 63 6f 6e 76 65 72 73 69 6f 6e 20 74 79  ch conversion ty
0bb0: 70 65 20 2a 2f 0a 2f 2a 20 54 68 65 20 72 65 73  pe */./* The res
0bc0: 74 20 61 72 65 20 65 78 74 65 6e 73 69 6f 6e 73  t are extensions
0bd0: 2c 20 6e 6f 74 20 6e 6f 72 6d 61 6c 6c 79 20 66  , not normally f
0be0: 6f 75 6e 64 20 69 6e 20 70 72 69 6e 74 66 28 29  ound in printf()
0bf0: 20 2a 2f 0a 20 20 20 65 74 43 48 41 52 4c 49 54   */.   etCHARLIT
0c00: 2c 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4c 69  ,          /* Li
0c10: 74 65 72 61 6c 20 63 68 61 72 61 63 74 65 72 73  teral characters
0c20: 2e 20 20 25 27 20 2a 2f 0a 20 20 20 65 74 53 51  .  %' */.   etSQ
0c30: 4c 45 53 43 41 50 45 2c 20 20 20 20 20 20 20 20  LESCAPE,        
0c40: 2f 2a 20 53 74 72 69 6e 67 73 20 77 69 74 68 20  /* Strings with 
0c50: 27 5c 27 27 20 64 6f 75 62 6c 65 64 2e 20 20 25  '\'' doubled.  %
0c60: 71 20 2a 2f 0a 20 20 20 65 74 4f 52 44 49 4e 41  q */.   etORDINA
0c70: 4c 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 31  L           /* 1
0c80: 73 74 2c 20 32 6e 64 2c 20 33 72 64 20 61 6e 64  st, 2nd, 3rd and
0c90: 20 73 6f 20 66 6f 72 74 68 20 2a 2f 0a 7d 3b 0a   so forth */.};.
0ca0: 0a 2f 2a 0a 2a 2a 20 45 61 63 68 20 62 75 69 6c  ./*.** Each buil
0cb0: 74 69 6e 20 63 6f 6e 76 65 72 73 69 6f 6e 20 63  tin conversion c
0cc0: 68 61 72 61 63 74 65 72 20 28 65 78 3a 20 74 68  haracter (ex: th
0cd0: 65 20 27 64 27 20 69 6e 20 22 25 64 22 29 20 69  e 'd' in "%d") i
0ce0: 73 20 64 65 73 63 72 69 62 65 64 0a 2a 2a 20 62  s described.** b
0cf0: 79 20 61 6e 20 69 6e 73 74 61 6e 63 65 20 6f 66  y an instance of
0d00: 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 73   the following s
0d10: 74 72 75 63 74 75 72 65 0a 2a 2f 0a 74 79 70 65  tructure.*/.type
0d20: 64 65 66 20 73 74 72 75 63 74 20 65 74 5f 69 6e  def struct et_in
0d30: 66 6f 20 7b 20 20 20 2f 2a 20 49 6e 66 6f 72 6d  fo {   /* Inform
0d40: 61 74 69 6f 6e 20 61 62 6f 75 74 20 65 61 63 68  ation about each
0d50: 20 66 6f 72 6d 61 74 20 66 69 65 6c 64 20 2a 2f   format field */
0d60: 0a 20 20 69 6e 74 20 20 66 6d 74 74 79 70 65 3b  .  int  fmttype;
0d70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
0d80: 20 54 68 65 20 66 6f 72 6d 61 74 20 66 69 65 6c   The format fiel
0d90: 64 20 63 6f 64 65 20 6c 65 74 74 65 72 20 2a 2f  d code letter */
0da0: 0a 20 20 69 6e 74 20 20 62 61 73 65 3b 20 20 20  .  int  base;   
0db0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
0dc0: 20 54 68 65 20 62 61 73 65 20 66 6f 72 20 72 61   The base for ra
0dd0: 64 69 78 20 63 6f 6e 76 65 72 73 69 6f 6e 20 2a  dix conversion *
0de0: 2f 0a 20 20 63 68 61 72 20 2a 63 68 61 72 73 65  /.  char *charse
0df0: 74 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 2f  t;             /
0e00: 2a 20 54 68 65 20 63 68 61 72 61 63 74 65 72 20  * The character 
0e10: 73 65 74 20 66 6f 72 20 63 6f 6e 76 65 72 73 69  set for conversi
0e20: 6f 6e 20 2a 2f 0a 20 20 69 6e 74 20 20 66 6c 61  on */.  int  fla
0e30: 67 5f 73 69 67 6e 65 64 3b 20 20 20 20 20 20 20  g_signed;       
0e40: 20 20 20 2f 2a 20 49 73 20 74 68 65 20 71 75 61     /* Is the qua
0e50: 6e 74 69 74 79 20 73 69 67 6e 65 64 3f 20 2a 2f  ntity signed? */
0e60: 0a 20 20 63 68 61 72 20 2a 70 72 65 66 69 78 3b  .  char *prefix;
0e70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
0e80: 20 50 72 65 66 69 78 20 6f 6e 20 6e 6f 6e 2d 7a   Prefix on non-z
0e90: 65 72 6f 20 76 61 6c 75 65 73 20 69 6e 20 61 6c  ero values in al
0ea0: 74 20 66 6f 72 6d 61 74 20 2a 2f 0a 20 20 65 6e  t format */.  en
0eb0: 75 6d 20 65 74 5f 74 79 70 65 20 74 79 70 65 3b  um et_type type;
0ec0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 43 6f 6e            /* Con
0ed0: 76 65 72 73 69 6f 6e 20 70 61 72 61 64 69 67 6d  version paradigm
0ee0: 20 2a 2f 0a 7d 20 65 74 5f 69 6e 66 6f 3b 0a 0a   */.} et_info;..
0ef0: 2f 2a 0a 2a 2a 20 54 68 65 20 66 6f 6c 6c 6f 77  /*.** The follow
0f00: 69 6e 67 20 74 61 62 6c 65 20 69 73 20 73 65 61  ing table is sea
0f10: 72 63 68 65 64 20 6c 69 6e 65 61 72 6c 79 2c 20  rched linearly, 
0f20: 73 6f 20 69 74 20 69 73 20 67 6f 6f 64 20 74 6f  so it is good to
0f30: 20 70 75 74 20 74 68 65 0a 2a 2a 20 6d 6f 73 74   put the.** most
0f40: 20 66 72 65 71 75 65 6e 74 6c 79 20 75 73 65 64   frequently used
0f50: 20 63 6f 6e 76 65 72 73 69 6f 6e 20 74 79 70 65   conversion type
0f60: 73 20 66 69 72 73 74 2e 0a 2a 2f 0a 73 74 61 74  s first..*/.stat
0f70: 69 63 20 65 74 5f 69 6e 66 6f 20 66 6d 74 69 6e  ic et_info fmtin
0f80: 66 6f 5b 5d 20 3d 20 7b 0a 20 20 7b 20 27 64 27  fo[] = {.  { 'd'
0f90: 2c 20 20 31 30 2c 20 20 22 30 31 32 33 34 35 36  ,  10,  "0123456
0fa0: 37 38 39 22 2c 20 20 20 20 20 20 20 31 2c 20 20  789",       1,  
0fb0: 20 20 30 2c 20 65 74 52 41 44 49 58 2c 20 20 20    0, etRADIX,   
0fc0: 20 20 20 7d 2c 0a 20 20 7b 20 27 73 27 2c 20 20     },.  { 's',  
0fd0: 20 30 2c 20 20 30 2c 20 20 20 20 20 20 20 20 20   0,  0,         
0fe0: 20 20 20 20 20 20 20 20 20 30 2c 20 20 20 20 30           0,    0
0ff0: 2c 20 65 74 53 54 52 49 4e 47 2c 20 20 20 20 20  , etSTRING,     
1000: 7d 2c 20 0a 20 20 7b 20 27 71 27 2c 20 20 20 30  }, .  { 'q',   0
1010: 2c 20 20 30 2c 20 20 20 20 20 20 20 20 20 20 20  ,  0,           
1020: 20 20 20 20 20 20 20 30 2c 20 20 20 20 30 2c 20         0,    0, 
1030: 65 74 53 51 4c 45 53 43 41 50 45 2c 20 20 7d 2c  etSQLESCAPE,  },
1040: 0a 20 20 7b 20 27 63 27 2c 20 20 20 30 2c 20 20  .  { 'c',   0,  
1050: 30 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  0,              
1060: 20 20 20 20 30 2c 20 20 20 20 30 2c 20 65 74 43      0,    0, etC
1070: 48 41 52 58 2c 20 20 20 20 20 20 7d 2c 0a 20 20  HARX,      },.  
1080: 7b 20 27 6f 27 2c 20 20 20 38 2c 20 20 22 30 31  { 'o',   8,  "01
1090: 32 33 34 35 36 37 22 2c 20 20 20 20 20 20 20 20  234567",        
10a0: 20 30 2c 20 20 22 30 22 2c 20 65 74 52 41 44 49   0,  "0", etRADI
10b0: 58 2c 20 20 20 20 20 20 7d 2c 0a 20 20 7b 20 27  X,      },.  { '
10c0: 75 27 2c 20 20 31 30 2c 20 20 22 30 31 32 33 34  u',  10,  "01234
10d0: 35 36 37 38 39 22 2c 20 20 20 20 20 20 20 30 2c  56789",       0,
10e0: 20 20 20 20 30 2c 20 65 74 52 41 44 49 58 2c 20      0, etRADIX, 
10f0: 20 20 20 20 20 7d 2c 0a 20 20 7b 20 27 78 27 2c       },.  { 'x',
1100: 20 20 31 36 2c 20 20 22 30 31 32 33 34 35 36 37    16,  "01234567
1110: 38 39 61 62 63 64 65 66 22 2c 20 30 2c 20 22 78  89abcdef", 0, "x
1120: 30 22 2c 20 65 74 52 41 44 49 58 2c 20 20 20 20  0", etRADIX,    
1130: 20 20 7d 2c 0a 20 20 7b 20 27 58 27 2c 20 20 31    },.  { 'X',  1
1140: 36 2c 20 20 22 30 31 32 33 34 35 36 37 38 39 41  6,  "0123456789A
1150: 42 43 44 45 46 22 2c 20 30 2c 20 22 58 30 22 2c  BCDEF", 0, "X0",
1160: 20 65 74 52 41 44 49 58 2c 20 20 20 20 20 20 7d   etRADIX,      }
1170: 2c 0a 20 20 7b 20 27 72 27 2c 20 20 31 30 2c 20  ,.  { 'r',  10, 
1180: 20 22 30 31 32 33 34 35 36 37 38 39 22 2c 20 20   "0123456789",  
1190: 20 20 20 20 20 30 2c 20 20 20 20 30 2c 20 65 74       0,    0, et
11a0: 4f 52 44 49 4e 41 4c 2c 20 20 20 20 7d 2c 0a 20  ORDINAL,    },. 
11b0: 20 7b 20 27 66 27 2c 20 20 20 30 2c 20 20 30 2c   { 'f',   0,  0,
11c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
11d0: 20 20 31 2c 20 20 20 20 30 2c 20 65 74 46 4c 4f    1,    0, etFLO
11e0: 41 54 2c 20 20 20 20 20 20 7d 2c 0a 20 20 7b 20  AT,      },.  { 
11f0: 27 65 27 2c 20 20 20 30 2c 20 20 22 65 22 2c 20  'e',   0,  "e", 
1200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31                 1
1210: 2c 20 20 20 20 30 2c 20 65 74 45 58 50 2c 20 20  ,    0, etEXP,  
1220: 20 20 20 20 20 20 7d 2c 0a 20 20 7b 20 27 45 27        },.  { 'E'
1230: 2c 20 20 20 30 2c 20 20 22 45 22 2c 20 20 20 20  ,   0,  "E",    
1240: 20 20 20 20 20 20 20 20 20 20 20 20 31 2c 20 20              1,  
1250: 20 20 30 2c 20 65 74 45 58 50 2c 20 20 20 20 20    0, etEXP,     
1260: 20 20 20 7d 2c 0a 20 20 7b 20 27 67 27 2c 20 20     },.  { 'g',  
1270: 20 30 2c 20 20 22 65 22 2c 20 20 20 20 20 20 20   0,  "e",       
1280: 20 20 20 20 20 20 20 20 20 31 2c 20 20 20 20 30           1,    0
1290: 2c 20 65 74 47 45 4e 45 52 49 43 2c 20 20 20 20  , etGENERIC,    
12a0: 7d 2c 0a 20 20 7b 20 27 47 27 2c 20 20 20 30 2c  },.  { 'G',   0,
12b0: 20 20 22 45 22 2c 20 20 20 20 20 20 20 20 20 20    "E",          
12c0: 20 20 20 20 20 20 31 2c 20 20 20 20 30 2c 20 65        1,    0, e
12d0: 74 47 45 4e 45 52 49 43 2c 20 20 20 20 7d 2c 0a  tGENERIC,    },.
12e0: 20 20 7b 20 27 69 27 2c 20 20 31 30 2c 20 20 22    { 'i',  10,  "
12f0: 30 31 32 33 34 35 36 37 38 39 22 2c 20 20 20 20  0123456789",    
1300: 20 20 20 31 2c 20 20 20 20 30 2c 20 65 74 52 41     1,    0, etRA
1310: 44 49 58 2c 20 20 20 20 20 20 7d 2c 0a 20 20 7b  DIX,      },.  {
1320: 20 27 6e 27 2c 20 20 20 30 2c 20 20 30 2c 20 20   'n',   0,  0,  
1330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1340: 30 2c 20 20 20 20 30 2c 20 65 74 53 49 5a 45 2c  0,    0, etSIZE,
1350: 20 20 20 20 20 20 20 7d 2c 0a 20 20 7b 20 27 25         },.  { '%
1360: 27 2c 20 20 20 30 2c 20 20 30 2c 20 20 20 20 20  ',   0,  0,     
1370: 20 20 20 20 20 20 20 20 20 20 20 20 20 30 2c 20               0, 
1380: 20 20 20 30 2c 20 65 74 50 45 52 43 45 4e 54 2c     0, etPERCENT,
1390: 20 20 20 20 7d 2c 0a 20 20 7b 20 27 62 27 2c 20      },.  { 'b', 
13a0: 20 20 32 2c 20 20 22 30 31 22 2c 20 20 20 20 20    2,  "01",     
13b0: 20 20 20 20 20 20 20 20 20 20 30 2c 20 22 62 30            0, "b0
13c0: 22 2c 20 65 74 52 41 44 49 58 2c 20 20 20 20 20  ", etRADIX,     
13d0: 20 7d 2c 20 2f 2a 20 42 69 6e 61 72 79 20 2a 2f   }, /* Binary */
13e0: 0a 20 20 7b 20 27 70 27 2c 20 20 31 30 2c 20 20  .  { 'p',  10,  
13f0: 22 30 31 32 33 34 35 36 37 38 39 22 2c 20 20 20  "0123456789",   
1400: 20 20 20 20 30 2c 20 20 20 20 30 2c 20 65 74 52      0,    0, etR
1410: 41 44 49 58 2c 20 20 20 20 20 20 7d 2c 20 2f 2a  ADIX,      }, /*
1420: 20 50 6f 69 6e 74 65 72 73 20 2a 2f 0a 20 20 7b   Pointers */.  {
1430: 20 27 5c 27 27 2c 20 20 30 2c 20 20 30 2c 20 20   '\'',  0,  0,  
1440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1450: 30 2c 20 20 20 20 30 2c 20 65 74 43 48 41 52 4c  0,    0, etCHARL
1460: 49 54 2c 20 20 20 20 7d 2c 20 2f 2a 20 4c 69 74  IT,    }, /* Lit
1470: 65 72 61 6c 20 63 68 61 72 20 2a 2f 0a 7d 3b 0a  eral char */.};.
1480: 23 64 65 66 69 6e 65 20 65 74 4e 49 4e 46 4f 20  #define etNINFO 
1490: 20 28 73 69 7a 65 6f 66 28 66 6d 74 69 6e 66 6f   (sizeof(fmtinfo
14a0: 29 2f 73 69 7a 65 6f 66 28 66 6d 74 69 6e 66 6f  )/sizeof(fmtinfo
14b0: 5b 30 5d 29 29 0a 0a 2f 2a 0a 2a 2a 20 49 66 20  [0]))../*.** If 
14c0: 4e 4f 46 4c 4f 41 54 49 4e 47 50 4f 49 4e 54 20  NOFLOATINGPOINT 
14d0: 69 73 20 64 65 66 69 6e 65 64 2c 20 74 68 65 6e  is defined, then
14e0: 20 6e 6f 6e 65 20 6f 66 20 74 68 65 20 66 6c 6f   none of the flo
14f0: 61 74 69 6e 67 20 70 6f 69 6e 74 0a 2a 2a 20 63  ating point.** c
1500: 6f 6e 76 65 72 73 69 6f 6e 73 20 77 69 6c 6c 20  onversions will 
1510: 77 6f 72 6b 2e 0a 2a 2f 0a 23 69 66 6e 64 65 66  work..*/.#ifndef
1520: 20 65 74 4e 4f 46 4c 4f 41 54 49 4e 47 50 4f 49   etNOFLOATINGPOI
1530: 4e 54 0a 2f 2a 0a 2a 2a 20 22 2a 76 61 6c 22 20  NT./*.** "*val" 
1540: 69 73 20 61 20 64 6f 75 62 6c 65 20 73 75 63 68  is a double such
1550: 20 74 68 61 74 20 30 2e 31 20 3c 3d 20 2a 76 61   that 0.1 <= *va
1560: 6c 20 3c 20 31 30 2e 30 0a 2a 2a 20 52 65 74 75  l < 10.0.** Retu
1570: 72 6e 20 74 68 65 20 61 73 63 69 69 20 63 6f 64  rn the ascii cod
1580: 65 20 66 6f 72 20 74 68 65 20 6c 65 61 64 69 6e  e for the leadin
1590: 67 20 64 69 67 69 74 20 6f 66 20 2a 76 61 6c 2c  g digit of *val,
15a0: 20 74 68 65 6e 0a 2a 2a 20 6d 75 6c 74 69 70 6c   then.** multipl
15b0: 79 20 22 2a 76 61 6c 22 20 62 79 20 31 30 2e 30  y "*val" by 10.0
15c0: 20 74 6f 20 72 65 6e 6f 72 6d 61 6c 69 7a 65 2e   to renormalize.
15d0: 0a 2a 2a 0a 2a 2a 20 45 78 61 6d 70 6c 65 3a 0a  .**.** Example:.
15e0: 2a 2a 20 20 20 20 20 69 6e 70 75 74 3a 20 20 20  **     input:   
15f0: 20 20 2a 76 61 6c 20 3d 20 33 2e 31 34 31 35 39    *val = 3.14159
1600: 0a 2a 2a 20 20 20 20 20 6f 75 74 70 75 74 3a 20  .**     output: 
1610: 20 20 20 2a 76 61 6c 20 3d 20 31 2e 34 31 35 39     *val = 1.4159
1620: 20 20 20 20 66 75 6e 63 74 69 6f 6e 20 72 65 74      function ret
1630: 75 72 6e 20 3d 20 27 33 27 0a 2a 2a 0a 2a 2a 20  urn = '3'.**.** 
1640: 54 68 65 20 63 6f 75 6e 74 65 72 20 2a 63 6e 74  The counter *cnt
1650: 20 69 73 20 69 6e 63 72 65 6d 65 6e 74 65 64 20   is incremented 
1660: 65 61 63 68 20 74 69 6d 65 2e 20 20 41 66 74 65  each time.  Afte
1670: 72 20 63 6f 75 6e 74 65 72 20 65 78 63 65 65 64  r counter exceed
1680: 73 0a 2a 2a 20 31 36 20 28 74 68 65 20 6e 75 6d  s.** 16 (the num
1690: 62 65 72 20 6f 66 20 73 69 67 6e 69 66 69 63 61  ber of significa
16a0: 6e 74 20 64 69 67 69 74 73 20 69 6e 20 61 20 36  nt digits in a 6
16b0: 34 2d 62 69 74 20 66 6c 6f 61 74 29 20 27 30 27  4-bit float) '0'
16c0: 20 69 73 0a 2a 2a 20 61 6c 77 61 79 73 20 72 65   is.** always re
16d0: 74 75 72 6e 65 64 2e 0a 2a 2f 0a 73 74 61 74 69  turned..*/.stati
16e0: 63 20 69 6e 74 20 65 74 5f 67 65 74 64 69 67 69  c int et_getdigi
16f0: 74 28 64 6f 75 62 6c 65 20 2a 76 61 6c 2c 20 69  t(double *val, i
1700: 6e 74 20 2a 63 6e 74 29 7b 0a 20 20 69 6e 74 20  nt *cnt){.  int 
1710: 64 69 67 69 74 3b 0a 20 20 64 6f 75 62 6c 65 20  digit;.  double 
1720: 64 3b 0a 20 20 69 66 28 20 28 2a 63 6e 74 29 2b  d;.  if( (*cnt)+
1730: 2b 20 3e 3d 20 31 36 20 29 20 72 65 74 75 72 6e  + >= 16 ) return
1740: 20 27 30 27 3b 0a 20 20 64 69 67 69 74 20 3d 20   '0';.  digit = 
1750: 28 69 6e 74 29 2a 76 61 6c 3b 0a 20 20 64 20 3d  (int)*val;.  d =
1760: 20 64 69 67 69 74 3b 0a 20 20 64 69 67 69 74 20   digit;.  digit 
1770: 2b 3d 20 27 30 27 3b 0a 20 20 2a 76 61 6c 20 3d  += '0';.  *val =
1780: 20 28 2a 76 61 6c 20 2d 20 64 29 2a 31 30 2e 30   (*val - d)*10.0
1790: 3b 0a 20 20 72 65 74 75 72 6e 20 64 69 67 69 74  ;.  return digit
17a0: 3b 0a 7d 0a 23 65 6e 64 69 66 0a 0a 23 64 65 66  ;.}.#endif..#def
17b0: 69 6e 65 20 65 74 42 55 46 53 49 5a 45 20 31 30  ine etBUFSIZE 10
17c0: 30 30 20 20 2f 2a 20 53 69 7a 65 20 6f 66 20 74  00  /* Size of t
17d0: 68 65 20 6f 75 74 70 75 74 20 62 75 66 66 65 72  he output buffer
17e0: 20 2a 2f 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 72   */../*.** The r
17f0: 6f 6f 74 20 70 72 6f 67 72 61 6d 2e 20 20 41 6c  oot program.  Al
1800: 6c 20 76 61 72 69 61 74 69 6f 6e 73 20 63 61 6c  l variations cal
1810: 6c 20 74 68 69 73 20 63 6f 72 65 2e 0a 2a 2a 0a  l this core..**.
1820: 2a 2a 20 49 4e 50 55 54 53 3a 0a 2a 2a 20 20 20  ** INPUTS:.**   
1830: 66 75 6e 63 20 20 20 54 68 69 73 20 69 73 20 61  func   This is a
1840: 20 70 6f 69 6e 74 65 72 20 74 6f 20 61 20 66 75   pointer to a fu
1850: 6e 63 74 69 6f 6e 20 74 61 6b 69 6e 67 20 74 68  nction taking th
1860: 72 65 65 20 61 72 67 75 6d 65 6e 74 73 0a 2a 2a  ree arguments.**
1870: 20 20 20 20 20 20 20 20 20 20 20 20 31 2e 20 41              1. A
1880: 20 70 6f 69 6e 74 65 72 20 74 6f 20 61 6e 79 74   pointer to anyt
1890: 68 69 6e 67 2e 20 20 53 61 6d 65 20 61 73 20 74  hing.  Same as t
18a0: 68 65 20 22 61 72 67 22 20 70 61 72 61 6d 65 74  he "arg" paramet
18b0: 65 72 2e 0a 2a 2a 20 20 20 20 20 20 20 20 20 20  er..**          
18c0: 20 20 32 2e 20 41 20 70 6f 69 6e 74 65 72 20 74    2. A pointer t
18d0: 6f 20 74 68 65 20 6c 69 73 74 20 6f 66 20 63 68  o the list of ch
18e0: 61 72 61 63 74 65 72 73 20 74 6f 20 62 65 20 6f  aracters to be o
18f0: 75 74 70 75 74 0a 2a 2a 20 20 20 20 20 20 20 20  utput.**        
1900: 20 20 20 20 20 20 20 28 4e 6f 74 65 2c 20 74 68         (Note, th
1910: 69 73 20 6c 69 73 74 20 69 73 20 4e 4f 54 20 6e  is list is NOT n
1920: 75 6c 6c 20 74 65 72 6d 69 6e 61 74 65 64 2e 29  ull terminated.)
1930: 0a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 33  .**            3
1940: 2e 20 41 6e 20 69 6e 74 65 67 65 72 20 6e 75 6d  . An integer num
1950: 62 65 72 20 6f 66 20 63 68 61 72 61 63 74 65 72  ber of character
1960: 73 20 74 6f 20 62 65 20 6f 75 74 70 75 74 2e 0a  s to be output..
1970: 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  **              
1980: 20 28 4e 6f 74 65 3a 20 54 68 69 73 20 6e 75 6d   (Note: This num
1990: 62 65 72 20 6d 69 67 68 74 20 62 65 20 7a 65 72  ber might be zer
19a0: 6f 2e 29 0a 2a 2a 0a 2a 2a 20 20 20 61 72 67 20  o.).**.**   arg 
19b0: 20 20 20 54 68 69 73 20 69 73 20 74 68 65 20 70     This is the p
19c0: 6f 69 6e 74 65 72 20 74 6f 20 61 6e 79 74 68 69  ointer to anythi
19d0: 6e 67 20 77 68 69 63 68 20 77 69 6c 6c 20 62 65  ng which will be
19e0: 20 70 61 73 73 65 64 20 61 73 20 74 68 65 0a 2a   passed as the.*
19f0: 2a 20 20 20 20 20 20 20 20 20 20 66 69 72 73 74  *          first
1a00: 20 61 72 67 75 6d 65 6e 74 20 74 6f 20 22 66 75   argument to "fu
1a10: 6e 63 22 2e 20 20 55 73 65 20 69 74 20 66 6f 72  nc".  Use it for
1a20: 20 77 68 61 74 65 76 65 72 20 79 6f 75 20 6c 69   whatever you li
1a30: 6b 65 2e 0a 2a 2a 0a 2a 2a 20 20 20 66 6d 74 20  ke..**.**   fmt 
1a40: 20 20 20 54 68 69 73 20 69 73 20 74 68 65 20 66     This is the f
1a50: 6f 72 6d 61 74 20 73 74 72 69 6e 67 2c 20 61 73  ormat string, as
1a60: 20 69 6e 20 74 68 65 20 75 73 75 61 6c 20 70 72   in the usual pr
1a70: 69 6e 74 2e 0a 2a 2a 0a 2a 2a 20 20 20 61 70 20  int..**.**   ap 
1a80: 20 20 20 20 54 68 69 73 20 69 73 20 61 20 70 6f      This is a po
1a90: 69 6e 74 65 72 20 74 6f 20 61 20 6c 69 73 74 20  inter to a list 
1aa0: 6f 66 20 61 72 67 75 6d 65 6e 74 73 2e 20 20 53  of arguments.  S
1ab0: 61 6d 65 20 61 73 20 69 6e 0a 2a 2a 20 20 20 20  ame as in.**    
1ac0: 20 20 20 20 20 20 76 66 70 72 69 6e 74 2e 0a 2a        vfprint..*
1ad0: 2a 0a 2a 2a 20 4f 55 54 50 55 54 53 3a 0a 2a 2a  *.** OUTPUTS:.**
1ae0: 20 20 20 20 20 20 20 20 20 20 54 68 65 20 72 65            The re
1af0: 74 75 72 6e 20 76 61 6c 75 65 20 69 73 20 74 68  turn value is th
1b00: 65 20 74 6f 74 61 6c 20 6e 75 6d 62 65 72 20 6f  e total number o
1b10: 66 20 63 68 61 72 61 63 74 65 72 73 20 73 65 6e  f characters sen
1b20: 74 20 74 6f 0a 2a 2a 20 20 20 20 20 20 20 20 20  t to.**         
1b30: 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 22 66   the function "f
1b40: 75 6e 63 22 2e 20 20 52 65 74 75 72 6e 73 20 2d  unc".  Returns -
1b50: 31 20 6f 6e 20 61 20 65 72 72 6f 72 2e 0a 2a 2a  1 on a error..**
1b60: 0a 2a 2a 20 4e 6f 74 65 20 74 68 61 74 20 74 68  .** Note that th
1b70: 65 20 6f 72 64 65 72 20 69 6e 20 77 68 69 63 68  e order in which
1b80: 20 61 75 74 6f 6d 61 74 69 63 20 76 61 72 69 61   automatic varia
1b90: 62 6c 65 73 20 61 72 65 20 64 65 63 6c 61 72 65  bles are declare
1ba0: 64 20 62 65 6c 6f 77 0a 2a 2a 20 73 65 65 6d 73  d below.** seems
1bb0: 20 74 6f 20 6d 61 6b 65 20 61 20 62 69 67 20 64   to make a big d
1bc0: 69 66 66 65 72 65 6e 63 65 20 69 6e 20 64 65 74  ifference in det
1bd0: 65 72 6d 69 6e 69 6e 67 20 68 6f 77 20 66 61 73  ermining how fas
1be0: 74 20 74 68 69 73 20 62 65 61 73 74 0a 2a 2a 20  t this beast.** 
1bf0: 77 69 6c 6c 20 72 75 6e 2e 0a 2a 2f 0a 73 74 61  will run..*/.sta
1c00: 74 69 63 20 69 6e 74 20 76 78 70 72 69 6e 74 66  tic int vxprintf
1c10: 28 0a 20 20 76 6f 69 64 20 28 2a 66 75 6e 63 29  (.  void (*func)
1c20: 28 76 6f 69 64 2a 2c 63 68 61 72 2a 2c 69 6e 74  (void*,char*,int
1c30: 29 2c 0a 20 20 76 6f 69 64 20 2a 61 72 67 2c 0a  ),.  void *arg,.
1c40: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 66 6f    const char *fo
1c50: 72 6d 61 74 2c 0a 20 20 76 61 5f 6c 69 73 74 20  rmat,.  va_list 
1c60: 61 70 0a 29 7b 0a 20 20 72 65 67 69 73 74 65 72  ap.){.  register
1c70: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 66 6d 74   const char *fmt
1c80: 3b 20 2f 2a 20 54 68 65 20 66 6f 72 6d 61 74 20  ; /* The format 
1c90: 73 74 72 69 6e 67 2e 20 2a 2f 0a 20 20 72 65 67  string. */.  reg
1ca0: 69 73 74 65 72 20 69 6e 74 20 63 3b 20 20 20 20  ister int c;    
1cb0: 20 20 20 20 20 20 20 2f 2a 20 4e 65 78 74 20 63         /* Next c
1cc0: 68 61 72 61 63 74 65 72 20 69 6e 20 74 68 65 20  haracter in the 
1cd0: 66 6f 72 6d 61 74 20 73 74 72 69 6e 67 20 2a 2f  format string */
1ce0: 0a 20 20 72 65 67 69 73 74 65 72 20 63 68 61 72  .  register char
1cf0: 20 2a 62 75 66 70 74 3b 20 20 20 20 20 2f 2a 20   *bufpt;     /* 
1d00: 50 6f 69 6e 74 65 72 20 74 6f 20 74 68 65 20 63  Pointer to the c
1d10: 6f 6e 76 65 72 73 69 6f 6e 20 62 75 66 66 65 72  onversion buffer
1d20: 20 2a 2f 0a 20 20 72 65 67 69 73 74 65 72 20 69   */.  register i
1d30: 6e 74 20 20 70 72 65 63 69 73 69 6f 6e 3b 20 20  nt  precision;  
1d40: 2f 2a 20 50 72 65 63 69 73 69 6f 6e 20 6f 66 20  /* Precision of 
1d50: 74 68 65 20 63 75 72 72 65 6e 74 20 66 69 65 6c  the current fiel
1d60: 64 20 2a 2f 0a 20 20 72 65 67 69 73 74 65 72 20  d */.  register 
1d70: 69 6e 74 20 20 6c 65 6e 67 74 68 3b 20 20 20 20  int  length;    
1d80: 20 2f 2a 20 4c 65 6e 67 74 68 20 6f 66 20 74 68   /* Length of th
1d90: 65 20 66 69 65 6c 64 20 2a 2f 0a 20 20 72 65 67  e field */.  reg
1da0: 69 73 74 65 72 20 69 6e 74 20 20 69 64 78 3b 20  ister int  idx; 
1db0: 20 20 20 20 20 20 20 2f 2a 20 41 20 67 65 6e 65         /* A gene
1dc0: 72 61 6c 20 70 75 72 70 6f 73 65 20 6c 6f 6f 70  ral purpose loop
1dd0: 20 63 6f 75 6e 74 65 72 20 2a 2f 0a 20 20 69 6e   counter */.  in
1de0: 74 20 63 6f 75 6e 74 3b 20 20 20 20 20 20 20 20  t count;        
1df0: 20 20 20 20 20 20 20 20 2f 2a 20 54 6f 74 61 6c          /* Total
1e00: 20 6e 75 6d 62 65 72 20 6f 66 20 63 68 61 72 61   number of chara
1e10: 63 74 65 72 73 20 6f 75 74 70 75 74 20 2a 2f 0a  cters output */.
1e20: 20 20 69 6e 74 20 77 69 64 74 68 3b 20 20 20 20    int width;    
1e30: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 57              /* W
1e40: 69 64 74 68 20 6f 66 20 74 68 65 20 63 75 72 72  idth of the curr
1e50: 65 6e 74 20 66 69 65 6c 64 20 2a 2f 0a 20 20 69  ent field */.  i
1e60: 6e 74 20 66 6c 61 67 5f 6c 65 66 74 6a 75 73 74  nt flag_leftjust
1e70: 69 66 79 3b 20 20 20 20 20 2f 2a 20 54 72 75 65  ify;     /* True
1e80: 20 69 66 20 22 2d 22 20 66 6c 61 67 20 69 73 20   if "-" flag is 
1e90: 70 72 65 73 65 6e 74 20 2a 2f 0a 20 20 69 6e 74  present */.  int
1ea0: 20 66 6c 61 67 5f 70 6c 75 73 73 69 67 6e 3b 20   flag_plussign; 
1eb0: 20 20 20 20 20 20 20 2f 2a 20 54 72 75 65 20 69         /* True i
1ec0: 66 20 22 2b 22 20 66 6c 61 67 20 69 73 20 70 72  f "+" flag is pr
1ed0: 65 73 65 6e 74 20 2a 2f 0a 20 20 69 6e 74 20 66  esent */.  int f
1ee0: 6c 61 67 5f 62 6c 61 6e 6b 73 69 67 6e 3b 20 20  lag_blanksign;  
1ef0: 20 20 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20       /* True if 
1f00: 22 20 22 20 66 6c 61 67 20 69 73 20 70 72 65 73  " " flag is pres
1f10: 65 6e 74 20 2a 2f 0a 20 20 69 6e 74 20 66 6c 61  ent */.  int fla
1f20: 67 5f 61 6c 74 65 72 6e 61 74 65 66 6f 72 6d 3b  g_alternateform;
1f30: 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20 22 23     /* True if "#
1f40: 22 20 66 6c 61 67 20 69 73 20 70 72 65 73 65 6e  " flag is presen
1f50: 74 20 2a 2f 0a 20 20 69 6e 74 20 66 6c 61 67 5f  t */.  int flag_
1f60: 7a 65 72 6f 70 61 64 3b 20 20 20 20 20 20 20 20  zeropad;        
1f70: 20 2f 2a 20 54 72 75 65 20 69 66 20 66 69 65 6c   /* True if fiel
1f80: 64 20 77 69 64 74 68 20 63 6f 6e 73 74 61 6e 74  d width constant
1f90: 20 73 74 61 72 74 73 20 77 69 74 68 20 7a 65 72   starts with zer
1fa0: 6f 20 2a 2f 0a 20 20 69 6e 74 20 66 6c 61 67 5f  o */.  int flag_
1fb0: 6c 6f 6e 67 3b 20 20 20 20 20 20 20 20 20 20 20  long;           
1fc0: 20 2f 2a 20 54 72 75 65 20 69 66 20 22 6c 22 20   /* True if "l" 
1fd0: 66 6c 61 67 20 69 73 20 70 72 65 73 65 6e 74 20  flag is present 
1fe0: 2a 2f 0a 20 20 69 6e 74 20 66 6c 61 67 5f 63 65  */.  int flag_ce
1ff0: 6e 74 65 72 3b 20 20 20 20 20 20 20 20 20 20 2f  nter;          /
2000: 2a 20 54 72 75 65 20 69 66 20 22 3d 22 20 66 6c  * True if "=" fl
2010: 61 67 20 69 73 20 70 72 65 73 65 6e 74 20 2a 2f  ag is present */
2020: 0a 20 20 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67  .  unsigned long
2030: 20 6c 6f 6e 67 76 61 6c 75 65 3b 20 20 2f 2a 20   longvalue;  /* 
2040: 56 61 6c 75 65 20 66 6f 72 20 69 6e 74 65 67 65  Value for intege
2050: 72 20 74 79 70 65 73 20 2a 2f 0a 20 20 64 6f 75  r types */.  dou
2060: 62 6c 65 20 72 65 61 6c 76 61 6c 75 65 3b 20 20  ble realvalue;  
2070: 20 20 20 20 20 20 20 2f 2a 20 56 61 6c 75 65 20         /* Value 
2080: 66 6f 72 20 72 65 61 6c 20 74 79 70 65 73 20 2a  for real types *
2090: 2f 0a 20 20 65 74 5f 69 6e 66 6f 20 2a 69 6e 66  /.  et_info *inf
20a0: 6f 70 3b 20 20 20 20 20 20 20 20 20 20 20 2f 2a  op;           /*
20b0: 20 50 6f 69 6e 74 65 72 20 74 6f 20 74 68 65 20   Pointer to the 
20c0: 61 70 70 72 6f 70 72 69 61 74 65 20 69 6e 66 6f  appropriate info
20d0: 20 73 74 72 75 63 74 75 72 65 20 2a 2f 0a 20 20   structure */.  
20e0: 63 68 61 72 20 62 75 66 5b 65 74 42 55 46 53 49  char buf[etBUFSI
20f0: 5a 45 5d 3b 20 20 20 20 20 20 2f 2a 20 43 6f 6e  ZE];      /* Con
2100: 76 65 72 73 69 6f 6e 20 62 75 66 66 65 72 20 2a  version buffer *
2110: 2f 0a 20 20 63 68 61 72 20 70 72 65 66 69 78 3b  /.  char prefix;
2120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
2130: 20 50 72 65 66 69 78 20 63 68 61 72 61 63 74 65   Prefix characte
2140: 72 2e 20 20 22 2b 22 20 6f 72 20 22 2d 22 20 6f  r.  "+" or "-" o
2150: 72 20 22 20 22 20 6f 72 20 27 5c 30 27 2e 20 2a  r " " or '\0'. *
2160: 2f 0a 20 20 69 6e 74 20 20 65 72 72 6f 72 66 6c  /.  int  errorfl
2170: 61 67 20 3d 20 30 3b 20 20 20 20 20 20 20 2f 2a  ag = 0;       /*
2180: 20 54 72 75 65 20 69 66 20 61 6e 20 65 72 72 6f   True if an erro
2190: 72 20 69 73 20 65 6e 63 6f 75 6e 74 65 72 65 64  r is encountered
21a0: 20 2a 2f 0a 20 20 65 6e 75 6d 20 65 74 5f 74 79   */.  enum et_ty
21b0: 70 65 20 78 74 79 70 65 3b 20 20 20 20 20 20 20  pe xtype;       
21c0: 2f 2a 20 43 6f 6e 76 65 72 73 69 6f 6e 20 70 61  /* Conversion pa
21d0: 72 61 64 69 67 6d 20 2a 2f 0a 20 20 63 68 61 72  radigm */.  char
21e0: 20 2a 7a 4d 65 6d 3b 20 20 20 20 20 20 20 20 20   *zMem;         
21f0: 20 20 20 20 20 20 2f 2a 20 53 74 72 69 6e 67 20        /* String 
2200: 74 6f 20 62 65 20 66 72 65 65 64 20 2a 2f 0a 20  to be freed */. 
2210: 20 63 68 61 72 20 2a 7a 45 78 74 72 61 3b 20 20   char *zExtra;  
2220: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 45 78             /* Ex
2230: 74 72 61 20 6d 65 6d 6f 72 79 20 75 73 65 64 20  tra memory used 
2240: 66 6f 72 20 65 74 54 43 4c 45 53 43 41 50 45 20  for etTCLESCAPE 
2250: 63 6f 6e 76 65 72 73 69 6f 6e 73 20 2a 2f 0a 20  conversions */. 
2260: 20 73 74 61 74 69 63 20 63 68 61 72 20 73 70 61   static char spa
2270: 63 65 73 5b 5d 20 3d 20 22 20 20 20 20 20 20 20  ces[] = "       
2280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
22a0: 20 20 20 20 20 20 20 20 20 20 20 22 0a 20 20 20             ".   
22b0: 20 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20    "             
22c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
22d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
22e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
22f0: 20 20 20 20 20 20 20 20 20 22 3b 0a 23 64 65 66           ";.#def
2300: 69 6e 65 20 65 74 53 50 41 43 45 53 49 5a 45 20  ine etSPACESIZE 
2310: 28 73 69 7a 65 6f 66 28 73 70 61 63 65 73 29 2d  (sizeof(spaces)-
2320: 31 29 0a 23 69 66 6e 64 65 66 20 65 74 4e 4f 46  1).#ifndef etNOF
2330: 4c 4f 41 54 49 4e 47 50 4f 49 4e 54 0a 20 20 69  LOATINGPOINT.  i
2340: 6e 74 20 20 65 78 70 3b 20 20 20 20 20 20 20 20  nt  exp;        
2350: 20 20 20 20 20 20 20 20 20 2f 2a 20 65 78 70 6f           /* expo
2360: 6e 65 6e 74 20 6f 66 20 72 65 61 6c 20 6e 75 6d  nent of real num
2370: 62 65 72 73 20 2a 2f 0a 20 20 64 6f 75 62 6c 65  bers */.  double
2380: 20 72 6f 75 6e 64 65 72 3b 20 20 20 20 20 20 20   rounder;       
2390: 20 20 20 20 2f 2a 20 55 73 65 64 20 66 6f 72 20      /* Used for 
23a0: 72 6f 75 6e 64 69 6e 67 20 66 6c 6f 61 74 69 6e  rounding floatin
23b0: 67 20 70 6f 69 6e 74 20 76 61 6c 75 65 73 20 2a  g point values *
23c0: 2f 0a 20 20 69 6e 74 20 66 6c 61 67 5f 64 70 3b  /.  int flag_dp;
23d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
23e0: 20 54 72 75 65 20 69 66 20 64 65 63 69 6d 61 6c   True if decimal
23f0: 20 70 6f 69 6e 74 20 73 68 6f 75 6c 64 20 62 65   point should be
2400: 20 73 68 6f 77 6e 20 2a 2f 0a 20 20 69 6e 74 20   shown */.  int 
2410: 66 6c 61 67 5f 72 74 7a 3b 20 20 20 20 20 20 20  flag_rtz;       
2420: 20 20 20 20 20 20 2f 2a 20 54 72 75 65 20 69 66        /* True if
2430: 20 74 72 61 69 6c 69 6e 67 20 7a 65 72 6f 73 20   trailing zeros 
2440: 73 68 6f 75 6c 64 20 62 65 20 72 65 6d 6f 76 65  should be remove
2450: 64 20 2a 2f 0a 20 20 69 6e 74 20 66 6c 61 67 5f  d */.  int flag_
2460: 65 78 70 3b 20 20 20 20 20 20 20 20 20 20 20 20  exp;            
2470: 20 2f 2a 20 54 72 75 65 20 74 6f 20 66 6f 72 63   /* True to forc
2480: 65 20 64 69 73 70 6c 61 79 20 6f 66 20 74 68 65  e display of the
2490: 20 65 78 70 6f 6e 65 6e 74 20 2a 2f 0a 20 20 69   exponent */.  i
24a0: 6e 74 20 6e 73 64 3b 20 20 20 20 20 20 20 20 20  nt nsd;         
24b0: 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62           /* Numb
24c0: 65 72 20 6f 66 20 73 69 67 6e 69 66 69 63 61 6e  er of significan
24d0: 74 20 64 69 67 69 74 73 20 72 65 74 75 72 6e 65  t digits returne
24e0: 64 20 2a 2f 0a 23 65 6e 64 69 66 0a 0a 20 20 66  d */.#endif..  f
24f0: 6d 74 20 3d 20 66 6f 72 6d 61 74 3b 20 20 20 20  mt = format;    
2500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2510: 20 2f 2a 20 50 75 74 20 69 6e 20 61 20 72 65 67   /* Put in a reg
2520: 69 73 74 65 72 20 66 6f 72 20 73 70 65 65 64 20  ister for speed 
2530: 2a 2f 0a 20 20 63 6f 75 6e 74 20 3d 20 6c 65 6e  */.  count = len
2540: 67 74 68 20 3d 20 30 3b 0a 20 20 62 75 66 70 74  gth = 0;.  bufpt
2550: 20 3d 20 30 3b 0a 20 20 66 6f 72 28 3b 20 28 63   = 0;.  for(; (c
2560: 3d 28 2a 66 6d 74 29 29 21 3d 30 3b 20 2b 2b 66  =(*fmt))!=0; ++f
2570: 6d 74 29 7b 0a 20 20 20 20 69 66 28 20 63 21 3d  mt){.    if( c!=
2580: 27 25 27 20 29 7b 0a 20 20 20 20 20 20 72 65 67  '%' ){.      reg
2590: 69 73 74 65 72 20 69 6e 74 20 61 6d 74 3b 0a 20  ister int amt;. 
25a0: 20 20 20 20 20 62 75 66 70 74 20 3d 20 28 63 68       bufpt = (ch
25b0: 61 72 20 2a 29 66 6d 74 3b 0a 20 20 20 20 20 20  ar *)fmt;.      
25c0: 61 6d 74 20 3d 20 31 3b 0a 20 20 20 20 20 20 77  amt = 1;.      w
25d0: 68 69 6c 65 28 20 28 63 3d 28 2a 2b 2b 66 6d 74  hile( (c=(*++fmt
25e0: 29 29 21 3d 27 25 27 20 26 26 20 63 21 3d 30 20  ))!='%' && c!=0 
25f0: 29 20 61 6d 74 2b 2b 3b 0a 20 20 20 20 20 20 28  ) amt++;.      (
2600: 2a 66 75 6e 63 29 28 61 72 67 2c 62 75 66 70 74  *func)(arg,bufpt
2610: 2c 61 6d 74 29 3b 0a 20 20 20 20 20 20 63 6f 75  ,amt);.      cou
2620: 6e 74 20 2b 3d 20 61 6d 74 3b 0a 20 20 20 20 20  nt += amt;.     
2630: 20 69 66 28 20 63 3d 3d 30 20 29 20 62 72 65 61   if( c==0 ) brea
2640: 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 28  k;.    }.    if(
2650: 20 28 63 3d 28 2a 2b 2b 66 6d 74 29 29 3d 3d 30   (c=(*++fmt))==0
2660: 20 29 7b 0a 20 20 20 20 20 20 65 72 72 6f 72 66   ){.      errorf
2670: 6c 61 67 20 3d 20 31 3b 0a 20 20 20 20 20 20 28  lag = 1;.      (
2680: 2a 66 75 6e 63 29 28 61 72 67 2c 22 25 22 2c 31  *func)(arg,"%",1
2690: 29 3b 0a 20 20 20 20 20 20 63 6f 75 6e 74 2b 2b  );.      count++
26a0: 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20  ;.      break;. 
26b0: 20 20 20 7d 0a 20 20 20 20 2f 2a 20 46 69 6e 64     }.    /* Find
26c0: 20 6f 75 74 20 77 68 61 74 20 66 6c 61 67 73 20   out what flags 
26d0: 61 72 65 20 70 72 65 73 65 6e 74 20 2a 2f 0a 20  are present */. 
26e0: 20 20 20 66 6c 61 67 5f 6c 65 66 74 6a 75 73 74     flag_leftjust
26f0: 69 66 79 20 3d 20 66 6c 61 67 5f 70 6c 75 73 73  ify = flag_pluss
2700: 69 67 6e 20 3d 20 66 6c 61 67 5f 62 6c 61 6e 6b  ign = flag_blank
2710: 73 69 67 6e 20 3d 20 0a 20 20 20 20 20 66 6c 61  sign = .     fla
2720: 67 5f 61 6c 74 65 72 6e 61 74 65 66 6f 72 6d 20  g_alternateform 
2730: 3d 20 66 6c 61 67 5f 7a 65 72 6f 70 61 64 20 3d  = flag_zeropad =
2740: 20 66 6c 61 67 5f 63 65 6e 74 65 72 20 3d 20 30   flag_center = 0
2750: 3b 0a 20 20 20 20 64 6f 7b 0a 20 20 20 20 20 20  ;.    do{.      
2760: 73 77 69 74 63 68 28 20 63 20 29 7b 0a 20 20 20  switch( c ){.   
2770: 20 20 20 20 20 63 61 73 65 20 27 2d 27 3a 20 20       case '-':  
2780: 20 66 6c 61 67 5f 6c 65 66 74 6a 75 73 74 69 66   flag_leftjustif
2790: 79 20 3d 20 31 3b 20 20 20 20 20 63 20 3d 20 30  y = 1;     c = 0
27a0: 3b 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20  ;   break;.     
27b0: 20 20 20 63 61 73 65 20 27 2b 27 3a 20 20 20 66     case '+':   f
27c0: 6c 61 67 5f 70 6c 75 73 73 69 67 6e 20 3d 20 31  lag_plussign = 1
27d0: 3b 20 20 20 20 20 20 20 20 63 20 3d 20 30 3b 20  ;        c = 0; 
27e0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 20    break;.       
27f0: 20 63 61 73 65 20 27 20 27 3a 20 20 20 66 6c 61   case ' ':   fla
2800: 67 5f 62 6c 61 6e 6b 73 69 67 6e 20 3d 20 31 3b  g_blanksign = 1;
2810: 20 20 20 20 20 20 20 63 20 3d 20 30 3b 20 20 20         c = 0;   
2820: 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 63  break;.        c
2830: 61 73 65 20 27 23 27 3a 20 20 20 66 6c 61 67 5f  ase '#':   flag_
2840: 61 6c 74 65 72 6e 61 74 65 66 6f 72 6d 20 3d 20  alternateform = 
2850: 31 3b 20 20 20 63 20 3d 20 30 3b 20 20 20 62 72  1;   c = 0;   br
2860: 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 63 61 73  eak;.        cas
2870: 65 20 27 30 27 3a 20 20 20 66 6c 61 67 5f 7a 65  e '0':   flag_ze
2880: 72 6f 70 61 64 20 3d 20 31 3b 20 20 20 20 20 20  ropad = 1;      
2890: 20 20 20 63 20 3d 20 30 3b 20 20 20 62 72 65 61     c = 0;   brea
28a0: 6b 3b 0a 20 20 20 20 20 20 20 20 63 61 73 65 20  k;.        case 
28b0: 27 3d 27 3a 20 20 20 66 6c 61 67 5f 63 65 6e 74  '=':   flag_cent
28c0: 65 72 20 3d 20 31 3b 20 20 20 20 20 20 20 20 20  er = 1;         
28d0: 20 63 20 3d 20 30 3b 20 20 20 62 72 65 61 6b 3b   c = 0;   break;
28e0: 0a 20 20 20 20 20 20 20 20 64 65 66 61 75 6c 74  .        default
28f0: 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  :               
2900: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2910: 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20          break;. 
2920: 20 20 20 20 20 7d 0a 20 20 20 20 7d 77 68 69 6c       }.    }whil
2930: 65 28 20 63 3d 3d 30 20 26 26 20 28 63 3d 28 2a  e( c==0 && (c=(*
2940: 2b 2b 66 6d 74 29 29 21 3d 30 20 29 3b 0a 20 20  ++fmt))!=0 );.  
2950: 20 20 69 66 28 20 66 6c 61 67 5f 63 65 6e 74 65    if( flag_cente
2960: 72 20 29 20 66 6c 61 67 5f 6c 65 66 74 6a 75 73  r ) flag_leftjus
2970: 74 69 66 79 20 3d 20 30 3b 0a 20 20 20 20 2f 2a  tify = 0;.    /*
2980: 20 47 65 74 20 74 68 65 20 66 69 65 6c 64 20 77   Get the field w
2990: 69 64 74 68 20 2a 2f 0a 20 20 20 20 77 69 64 74  idth */.    widt
29a0: 68 20 3d 20 30 3b 0a 20 20 20 20 69 66 28 20 63  h = 0;.    if( c
29b0: 3d 3d 27 2a 27 20 29 7b 0a 20 20 20 20 20 20 77  =='*' ){.      w
29c0: 69 64 74 68 20 3d 20 76 61 5f 61 72 67 28 61 70  idth = va_arg(ap
29d0: 2c 69 6e 74 29 3b 0a 20 20 20 20 20 20 69 66 28  ,int);.      if(
29e0: 20 77 69 64 74 68 3c 30 20 29 7b 0a 20 20 20 20   width<0 ){.    
29f0: 20 20 20 20 66 6c 61 67 5f 6c 65 66 74 6a 75 73      flag_leftjus
2a00: 74 69 66 79 20 3d 20 31 3b 0a 20 20 20 20 20 20  tify = 1;.      
2a10: 20 20 77 69 64 74 68 20 3d 20 2d 77 69 64 74 68    width = -width
2a20: 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20  ;.      }.      
2a30: 63 20 3d 20 2a 2b 2b 66 6d 74 3b 0a 20 20 20 20  c = *++fmt;.    
2a40: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 77 68 69  }else{.      whi
2a50: 6c 65 28 20 63 3e 3d 27 30 27 20 26 26 20 63 3c  le( c>='0' && c<
2a60: 3d 27 39 27 20 29 7b 0a 20 20 20 20 20 20 20 20  ='9' ){.        
2a70: 77 69 64 74 68 20 3d 20 77 69 64 74 68 2a 31 30  width = width*10
2a80: 20 2b 20 63 20 2d 20 27 30 27 3b 0a 20 20 20 20   + c - '0';.    
2a90: 20 20 20 20 63 20 3d 20 2a 2b 2b 66 6d 74 3b 0a      c = *++fmt;.
2aa0: 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20        }.    }.  
2ab0: 20 20 69 66 28 20 77 69 64 74 68 20 3e 20 65 74    if( width > et
2ac0: 42 55 46 53 49 5a 45 2d 31 30 20 29 7b 0a 20 20  BUFSIZE-10 ){.  
2ad0: 20 20 20 20 77 69 64 74 68 20 3d 20 65 74 42 55      width = etBU
2ae0: 46 53 49 5a 45 2d 31 30 3b 0a 20 20 20 20 7d 0a  FSIZE-10;.    }.
2af0: 20 20 20 20 2f 2a 20 47 65 74 20 74 68 65 20 70      /* Get the p
2b00: 72 65 63 69 73 69 6f 6e 20 2a 2f 0a 20 20 20 20  recision */.    
2b10: 69 66 28 20 63 3d 3d 27 2e 27 20 29 7b 0a 20 20  if( c=='.' ){.  
2b20: 20 20 20 20 70 72 65 63 69 73 69 6f 6e 20 3d 20      precision = 
2b30: 30 3b 0a 20 20 20 20 20 20 63 20 3d 20 2a 2b 2b  0;.      c = *++
2b40: 66 6d 74 3b 0a 20 20 20 20 20 20 69 66 28 20 63  fmt;.      if( c
2b50: 3d 3d 27 2a 27 20 29 7b 0a 20 20 20 20 20 20 20  =='*' ){.       
2b60: 20 70 72 65 63 69 73 69 6f 6e 20 3d 20 76 61 5f   precision = va_
2b70: 61 72 67 28 61 70 2c 69 6e 74 29 3b 0a 23 69 66  arg(ap,int);.#if
2b80: 6e 64 65 66 20 65 74 43 4f 4d 50 41 54 49 42 49  ndef etCOMPATIBI
2b90: 4c 49 54 59 0a 20 20 20 20 20 20 20 20 2f 2a 20  LITY.        /* 
2ba0: 54 68 69 73 20 69 73 20 73 65 6e 73 69 62 6c 65  This is sensible
2bb0: 2c 20 62 75 74 20 53 55 4e 20 4f 53 20 34 2e 31  , but SUN OS 4.1
2bc0: 20 64 6f 65 73 6e 27 74 20 64 6f 20 69 74 2e 20   doesn't do it. 
2bd0: 2a 2f 0a 20 20 20 20 20 20 20 20 69 66 28 20 70  */.        if( p
2be0: 72 65 63 69 73 69 6f 6e 3c 30 20 29 20 70 72 65  recision<0 ) pre
2bf0: 63 69 73 69 6f 6e 20 3d 20 2d 70 72 65 63 69 73  cision = -precis
2c00: 69 6f 6e 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20  ion;.#endif.    
2c10: 20 20 20 20 63 20 3d 20 2a 2b 2b 66 6d 74 3b 0a      c = *++fmt;.
2c20: 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20        }else{.   
2c30: 20 20 20 20 20 77 68 69 6c 65 28 20 63 3e 3d 27       while( c>='
2c40: 30 27 20 26 26 20 63 3c 3d 27 39 27 20 29 7b 0a  0' && c<='9' ){.
2c50: 20 20 20 20 20 20 20 20 20 20 70 72 65 63 69 73            precis
2c60: 69 6f 6e 20 3d 20 70 72 65 63 69 73 69 6f 6e 2a  ion = precision*
2c70: 31 30 20 2b 20 63 20 2d 20 27 30 27 3b 0a 20 20  10 + c - '0';.  
2c80: 20 20 20 20 20 20 20 20 63 20 3d 20 2a 2b 2b 66          c = *++f
2c90: 6d 74 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20  mt;.        }.  
2ca0: 20 20 20 20 7d 0a 20 20 20 20 20 20 2f 2a 20 4c      }.      /* L
2cb0: 69 6d 69 74 20 74 68 65 20 70 72 65 63 69 73 69  imit the precisi
2cc0: 6f 6e 20 74 6f 20 70 72 65 76 65 6e 74 20 6f 76  on to prevent ov
2cd0: 65 72 66 6c 6f 77 69 6e 67 20 62 75 66 5b 5d 20  erflowing buf[] 
2ce0: 64 75 72 69 6e 67 20 63 6f 6e 76 65 72 73 69 6f  during conversio
2cf0: 6e 20 2a 2f 0a 20 20 20 20 20 20 69 66 28 20 70  n */.      if( p
2d00: 72 65 63 69 73 69 6f 6e 3e 65 74 42 55 46 53 49  recision>etBUFSI
2d10: 5a 45 2d 34 30 20 29 20 70 72 65 63 69 73 69 6f  ZE-40 ) precisio
2d20: 6e 20 3d 20 65 74 42 55 46 53 49 5a 45 2d 34 30  n = etBUFSIZE-40
2d30: 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20  ;.    }else{.   
2d40: 20 20 20 70 72 65 63 69 73 69 6f 6e 20 3d 20 2d     precision = -
2d50: 31 3b 0a 20 20 20 20 7d 0a 20 20 20 20 2f 2a 20  1;.    }.    /* 
2d60: 47 65 74 20 74 68 65 20 63 6f 6e 76 65 72 73 69  Get the conversi
2d70: 6f 6e 20 74 79 70 65 20 6d 6f 64 69 66 69 65 72  on type modifier
2d80: 20 2a 2f 0a 20 20 20 20 69 66 28 20 63 3d 3d 27   */.    if( c=='
2d90: 6c 27 20 29 7b 0a 20 20 20 20 20 20 66 6c 61 67  l' ){.      flag
2da0: 5f 6c 6f 6e 67 20 3d 20 31 3b 0a 20 20 20 20 20  _long = 1;.     
2db0: 20 63 20 3d 20 2a 2b 2b 66 6d 74 3b 0a 20 20 20   c = *++fmt;.   
2dc0: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 66 6c   }else{.      fl
2dd0: 61 67 5f 6c 6f 6e 67 20 3d 20 30 3b 0a 20 20 20  ag_long = 0;.   
2de0: 20 7d 0a 20 20 20 20 2f 2a 20 46 65 74 63 68 20   }.    /* Fetch 
2df0: 74 68 65 20 69 6e 66 6f 20 65 6e 74 72 79 20 66  the info entry f
2e00: 6f 72 20 74 68 65 20 66 69 65 6c 64 20 2a 2f 0a  or the field */.
2e10: 20 20 20 20 69 6e 66 6f 70 20 3d 20 30 3b 0a 20      infop = 0;. 
2e20: 20 20 20 66 6f 72 28 69 64 78 3d 30 3b 20 69 64     for(idx=0; id
2e30: 78 3c 65 74 4e 49 4e 46 4f 3b 20 69 64 78 2b 2b  x<etNINFO; idx++
2e40: 29 7b 0a 20 20 20 20 20 20 69 66 28 20 63 3d 3d  ){.      if( c==
2e50: 66 6d 74 69 6e 66 6f 5b 69 64 78 5d 2e 66 6d 74  fmtinfo[idx].fmt
2e60: 74 79 70 65 20 29 7b 0a 20 20 20 20 20 20 20 20  type ){.        
2e70: 69 6e 66 6f 70 20 3d 20 26 66 6d 74 69 6e 66 6f  infop = &fmtinfo
2e80: 5b 69 64 78 5d 3b 0a 20 20 20 20 20 20 20 20 62  [idx];.        b
2e90: 72 65 61 6b 3b 0a 20 20 20 20 20 20 7d 0a 20 20  reak;.      }.  
2ea0: 20 20 7d 0a 20 20 20 20 2f 2a 20 4e 6f 20 69 6e    }.    /* No in
2eb0: 66 6f 20 65 6e 74 72 79 20 66 6f 75 6e 64 2e 20  fo entry found. 
2ec0: 20 49 74 20 6d 75 73 74 20 62 65 20 61 6e 20 65   It must be an e
2ed0: 72 72 6f 72 2e 20 2a 2f 0a 20 20 20 20 69 66 28  rror. */.    if(
2ee0: 20 69 6e 66 6f 70 3d 3d 30 20 29 7b 0a 20 20 20   infop==0 ){.   
2ef0: 20 20 20 78 74 79 70 65 20 3d 20 65 74 45 52 52     xtype = etERR
2f00: 4f 52 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20  OR;.    }else{. 
2f10: 20 20 20 20 20 78 74 79 70 65 20 3d 20 69 6e 66       xtype = inf
2f20: 6f 70 2d 3e 74 79 70 65 3b 0a 20 20 20 20 7d 0a  op->type;.    }.
2f30: 20 20 20 20 7a 45 78 74 72 61 20 3d 20 30 3b 0a      zExtra = 0;.
2f40: 0a 20 20 20 20 2f 2a 0a 20 20 20 20 2a 2a 20 41  .    /*.    ** A
2f50: 74 20 74 68 69 73 20 70 6f 69 6e 74 2c 20 76 61  t this point, va
2f60: 72 69 61 62 6c 65 73 20 61 72 65 20 69 6e 69 74  riables are init
2f70: 69 61 6c 69 7a 65 64 20 61 73 20 66 6f 6c 6c 6f  ialized as follo
2f80: 77 73 3a 0a 20 20 20 20 2a 2a 0a 20 20 20 20 2a  ws:.    **.    *
2f90: 2a 20 20 20 66 6c 61 67 5f 61 6c 74 65 72 6e 61  *   flag_alterna
2fa0: 74 65 66 6f 72 6d 20 20 20 20 20 20 20 20 20 20  teform          
2fb0: 54 52 55 45 20 69 66 20 61 20 27 23 27 20 69 73  TRUE if a '#' is
2fc0: 20 70 72 65 73 65 6e 74 2e 0a 20 20 20 20 2a 2a   present..    **
2fd0: 20 20 20 66 6c 61 67 5f 70 6c 75 73 73 69 67 6e     flag_plussign
2fe0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54                 T
2ff0: 52 55 45 20 69 66 20 61 20 27 2b 27 20 69 73 20  RUE if a '+' is 
3000: 70 72 65 73 65 6e 74 2e 0a 20 20 20 20 2a 2a 20  present..    ** 
3010: 20 20 66 6c 61 67 5f 6c 65 66 74 6a 75 73 74 69    flag_leftjusti
3020: 66 79 20 20 20 20 20 20 20 20 20 20 20 20 54 52  fy            TR
3030: 55 45 20 69 66 20 61 20 27 2d 27 20 69 73 20 70  UE if a '-' is p
3040: 72 65 73 65 6e 74 20 6f 72 20 69 66 20 74 68 65  resent or if the
3050: 0a 20 20 20 20 2a 2a 20 20 20 20 20 20 20 20 20  .    **         
3060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3070: 20 20 20 20 20 20 66 69 65 6c 64 20 77 69 64 74        field widt
3080: 68 20 77 61 73 20 6e 65 67 61 74 69 76 65 2e 0a  h was negative..
3090: 20 20 20 20 2a 2a 20 20 20 66 6c 61 67 5f 7a 65      **   flag_ze
30a0: 72 6f 70 61 64 20 20 20 20 20 20 20 20 20 20 20  ropad           
30b0: 20 20 20 20 20 54 52 55 45 20 69 66 20 74 68 65       TRUE if the
30c0: 20 77 69 64 74 68 20 62 65 67 61 6e 20 77 69 74   width began wit
30d0: 68 20 30 2e 0a 20 20 20 20 2a 2a 20 20 20 66 6c  h 0..    **   fl
30e0: 61 67 5f 6c 6f 6e 67 20 20 20 20 20 20 20 20 20  ag_long         
30f0: 20 20 20 20 20 20 20 20 20 20 54 52 55 45 20 69            TRUE i
3100: 66 20 74 68 65 20 6c 65 74 74 65 72 20 27 6c 27  f the letter 'l'
3110: 20 28 65 6c 6c 29 20 70 72 65 66 69 78 65 64 0a   (ell) prefixed.
3120: 20 20 20 20 2a 2a 20 20 20 20 20 20 20 20 20 20      **          
3130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3140: 20 20 20 20 20 74 68 65 20 63 6f 6e 76 65 72 73       the convers
3150: 69 6f 6e 20 63 68 61 72 61 63 74 65 72 2e 0a 20  ion character.. 
3160: 20 20 20 2a 2a 20 20 20 66 6c 61 67 5f 62 6c 61     **   flag_bla
3170: 6e 6b 73 69 67 6e 20 20 20 20 20 20 20 20 20 20  nksign          
3180: 20 20 20 20 54 52 55 45 20 69 66 20 61 20 27 20      TRUE if a ' 
3190: 27 20 69 73 20 70 72 65 73 65 6e 74 2e 0a 20 20  ' is present..  
31a0: 20 20 2a 2a 20 20 20 77 69 64 74 68 20 20 20 20    **   width    
31b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
31c0: 20 20 20 54 68 65 20 73 70 65 63 69 66 69 65 64     The specified
31d0: 20 66 69 65 6c 64 20 77 69 64 74 68 2e 20 20 54   field width.  T
31e0: 68 69 73 20 69 73 0a 20 20 20 20 2a 2a 20 20 20  his is.    **   
31f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3200: 20 20 20 20 20 20 20 20 20 20 20 20 61 6c 77 61              alwa
3210: 79 73 20 6e 6f 6e 2d 6e 65 67 61 74 69 76 65 2e  ys non-negative.
3220: 20 20 5a 65 72 6f 20 69 73 20 74 68 65 20 64 65    Zero is the de
3230: 66 61 75 6c 74 2e 0a 20 20 20 20 2a 2a 20 20 20  fault..    **   
3240: 70 72 65 63 69 73 69 6f 6e 20 20 20 20 20 20 20  precision       
3250: 20 20 20 20 20 20 20 20 20 20 20 20 54 68 65 20              The 
3260: 73 70 65 63 69 66 69 65 64 20 70 72 65 63 69 73  specified precis
3270: 69 6f 6e 2e 20 20 54 68 65 20 64 65 66 61 75 6c  ion.  The defaul
3280: 74 0a 20 20 20 20 2a 2a 20 20 20 20 20 20 20 20  t.    **        
3290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
32a0: 20 20 20 20 20 20 20 69 73 20 2d 31 2e 0a 20 20         is -1..  
32b0: 20 20 2a 2a 20 20 20 78 74 79 70 65 20 20 20 20    **   xtype    
32c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
32d0: 20 20 20 54 68 65 20 63 6c 61 73 73 20 6f 66 20     The class of 
32e0: 74 68 65 20 63 6f 6e 76 65 72 73 69 6f 6e 2e 0a  the conversion..
32f0: 20 20 20 20 2a 2a 20 20 20 69 6e 66 6f 70 20 20      **   infop  
3300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3310: 20 20 20 20 20 50 6f 69 6e 74 65 72 20 74 6f 20       Pointer to 
3320: 74 68 65 20 61 70 70 72 6f 70 72 69 61 74 65 20  the appropriate 
3330: 69 6e 66 6f 20 73 74 72 75 63 74 2e 0a 20 20 20  info struct..   
3340: 20 2a 2f 0a 20 20 20 20 73 77 69 74 63 68 28 20   */.    switch( 
3350: 78 74 79 70 65 20 29 7b 0a 20 20 20 20 20 20 63  xtype ){.      c
3360: 61 73 65 20 65 74 4f 52 44 49 4e 41 4c 3a 0a 20  ase etORDINAL:. 
3370: 20 20 20 20 20 63 61 73 65 20 65 74 52 41 44 49       case etRADI
3380: 58 3a 0a 20 20 20 20 20 20 20 20 69 66 28 20 66  X:.        if( f
3390: 6c 61 67 5f 6c 6f 6e 67 20 29 20 20 6c 6f 6e 67  lag_long )  long
33a0: 76 61 6c 75 65 20 3d 20 76 61 5f 61 72 67 28 61  value = va_arg(a
33b0: 70 2c 6c 6f 6e 67 29 3b 0a 09 65 6c 73 65 20 20  p,long);..else  
33c0: 20 20 20 20 20 20 20 20 20 20 20 6c 6f 6e 67 76             longv
33d0: 61 6c 75 65 20 3d 20 76 61 5f 61 72 67 28 61 70  alue = va_arg(ap
33e0: 2c 69 6e 74 29 3b 0a 23 69 66 64 65 66 20 65 74  ,int);.#ifdef et
33f0: 43 4f 4d 50 41 54 49 42 49 4c 49 54 59 0a 20 20  COMPATIBILITY.  
3400: 20 20 20 20 20 20 2f 2a 20 46 6f 72 20 74 68 65        /* For the
3410: 20 66 6f 72 6d 61 74 20 25 23 78 2c 20 74 68 65   format %#x, the
3420: 20 76 61 6c 75 65 20 7a 65 72 6f 20 69 73 20 70   value zero is p
3430: 72 69 6e 74 65 64 20 22 30 22 20 6e 6f 74 20 22  rinted "0" not "
3440: 30 78 30 22 2e 0a 20 20 20 20 20 20 20 20 2a 2a  0x0"..        **
3450: 20 49 20 74 68 69 6e 6b 20 74 68 69 73 20 69 73   I think this is
3460: 20 73 74 75 70 69 64 2e 20 2a 2f 0a 20 20 20 20   stupid. */.    
3470: 20 20 20 20 69 66 28 20 6c 6f 6e 67 76 61 6c 75      if( longvalu
3480: 65 3d 3d 30 20 29 20 66 6c 61 67 5f 61 6c 74 65  e==0 ) flag_alte
3490: 72 6e 61 74 65 66 6f 72 6d 20 3d 20 30 3b 0a 23  rnateform = 0;.#
34a0: 65 6c 73 65 0a 20 20 20 20 20 20 20 20 2f 2a 20  else.        /* 
34b0: 4d 6f 72 65 20 73 65 6e 73 69 62 6c 65 3a 20 74  More sensible: t
34c0: 75 72 6e 20 6f 66 66 20 74 68 65 20 70 72 65 66  urn off the pref
34d0: 69 78 20 66 6f 72 20 6f 63 74 61 6c 20 28 74 6f  ix for octal (to
34e0: 20 70 72 65 76 65 6e 74 20 22 30 30 22 29 2c 0a   prevent "00"),.
34f0: 20 20 20 20 20 20 20 20 2a 2a 20 62 75 74 20 6c          ** but l
3500: 65 61 76 65 20 74 68 65 20 70 72 65 66 69 78 20  eave the prefix 
3510: 66 6f 72 20 68 65 78 2e 20 2a 2f 0a 20 20 20 20  for hex. */.    
3520: 20 20 20 20 69 66 28 20 6c 6f 6e 67 76 61 6c 75      if( longvalu
3530: 65 3d 3d 30 20 26 26 20 69 6e 66 6f 70 2d 3e 62  e==0 && infop->b
3540: 61 73 65 3d 3d 38 20 29 20 66 6c 61 67 5f 61 6c  ase==8 ) flag_al
3550: 74 65 72 6e 61 74 65 66 6f 72 6d 20 3d 20 30 3b  ternateform = 0;
3560: 0a 23 65 6e 64 69 66 0a 20 20 20 20 20 20 20 20  .#endif.        
3570: 69 66 28 20 69 6e 66 6f 70 2d 3e 66 6c 61 67 5f  if( infop->flag_
3580: 73 69 67 6e 65 64 20 29 7b 0a 20 20 20 20 20 20  signed ){.      
3590: 20 20 20 20 69 66 28 20 2a 28 6c 6f 6e 67 2a 29      if( *(long*)
35a0: 26 6c 6f 6e 67 76 61 6c 75 65 3c 30 20 29 7b 0a  &longvalue<0 ){.
35b0: 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 6e 67              long
35c0: 76 61 6c 75 65 20 3d 20 2d 2a 28 6c 6f 6e 67 2a  value = -*(long*
35d0: 29 26 6c 6f 6e 67 76 61 6c 75 65 3b 0a 20 20 20  )&longvalue;.   
35e0: 20 20 20 20 20 20 20 20 20 70 72 65 66 69 78 20           prefix 
35f0: 3d 20 27 2d 27 3b 0a 20 20 20 20 20 20 20 20 20  = '-';.         
3600: 20 7d 65 6c 73 65 20 69 66 28 20 66 6c 61 67 5f   }else if( flag_
3610: 70 6c 75 73 73 69 67 6e 20 29 20 20 70 72 65 66  plussign )  pref
3620: 69 78 20 3d 20 27 2b 27 3b 0a 20 20 20 20 20 20  ix = '+';.      
3630: 20 20 20 20 65 6c 73 65 20 69 66 28 20 66 6c 61      else if( fla
3640: 67 5f 62 6c 61 6e 6b 73 69 67 6e 20 29 20 20 70  g_blanksign )  p
3650: 72 65 66 69 78 20 3d 20 27 20 27 3b 0a 20 20 20  refix = ' ';.   
3660: 20 20 20 20 20 20 20 65 6c 73 65 20 20 20 20 20         else     
3670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3680: 20 20 70 72 65 66 69 78 20 3d 20 30 3b 0a 20 20    prefix = 0;.  
3690: 20 20 20 20 20 20 7d 65 6c 73 65 20 20 20 20 20        }else     
36a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
36b0: 20 20 20 70 72 65 66 69 78 20 3d 20 30 3b 0a 20     prefix = 0;. 
36c0: 20 20 20 20 20 20 20 69 66 28 20 66 6c 61 67 5f         if( flag_
36d0: 7a 65 72 6f 70 61 64 20 26 26 20 70 72 65 63 69  zeropad && preci
36e0: 73 69 6f 6e 3c 77 69 64 74 68 2d 28 70 72 65 66  sion<width-(pref
36f0: 69 78 21 3d 30 29 20 29 7b 0a 20 20 20 20 20 20  ix!=0) ){.      
3700: 20 20 20 20 70 72 65 63 69 73 69 6f 6e 20 3d 20      precision = 
3710: 77 69 64 74 68 2d 28 70 72 65 66 69 78 21 3d 30  width-(prefix!=0
3720: 29 3b 0a 09 7d 0a 20 20 20 20 20 20 20 20 62 75  );..}.        bu
3730: 66 70 74 20 3d 20 26 62 75 66 5b 65 74 42 55 46  fpt = &buf[etBUF
3740: 53 49 5a 45 5d 3b 0a 20 20 20 20 20 20 20 20 69  SIZE];.        i
3750: 66 28 20 78 74 79 70 65 3d 3d 65 74 4f 52 44 49  f( xtype==etORDI
3760: 4e 41 4c 20 29 7b 0a 20 20 20 20 20 20 20 20 20  NAL ){.         
3770: 20 6c 6f 6e 67 20 61 2c 62 3b 0a 20 20 20 20 20   long a,b;.     
3780: 20 20 20 20 20 61 20 3d 20 6c 6f 6e 67 76 61 6c       a = longval
3790: 75 65 25 31 30 3b 0a 20 20 20 20 20 20 20 20 20  ue%10;.         
37a0: 20 62 20 3d 20 6c 6f 6e 67 76 61 6c 75 65 25 31   b = longvalue%1
37b0: 30 30 3b 0a 20 20 20 20 20 20 20 20 20 20 62 75  00;.          bu
37c0: 66 70 74 20 2d 3d 20 32 3b 0a 20 20 20 20 20 20  fpt -= 2;.      
37d0: 20 20 20 20 69 66 28 20 61 3d 3d 30 20 7c 7c 20      if( a==0 || 
37e0: 61 3e 33 20 7c 7c 20 28 62 3e 31 30 20 26 26 20  a>3 || (b>10 && 
37f0: 62 3c 31 34 29 20 29 7b 0a 20 20 20 20 20 20 20  b<14) ){.       
3800: 20 20 20 20 20 62 75 66 70 74 5b 30 5d 20 3d 20       bufpt[0] = 
3810: 27 74 27 3b 0a 20 20 20 20 20 20 20 20 20 20 20  't';.           
3820: 20 62 75 66 70 74 5b 31 5d 20 3d 20 27 68 27 3b   bufpt[1] = 'h';
3830: 0a 20 20 20 20 20 20 20 20 20 20 7d 65 6c 73 65  .          }else
3840: 20 69 66 28 20 61 3d 3d 31 20 29 7b 0a 20 20 20   if( a==1 ){.   
3850: 20 20 20 20 20 20 20 20 20 62 75 66 70 74 5b 30           bufpt[0
3860: 5d 20 3d 20 27 73 27 3b 0a 20 20 20 20 20 20 20  ] = 's';.       
3870: 20 20 20 20 20 62 75 66 70 74 5b 31 5d 20 3d 20       bufpt[1] = 
3880: 27 74 27 3b 0a 20 20 20 20 20 20 20 20 20 20 7d  't';.          }
3890: 65 6c 73 65 20 69 66 28 20 61 3d 3d 32 20 29 7b  else if( a==2 ){
38a0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 75 66  .            buf
38b0: 70 74 5b 30 5d 20 3d 20 27 6e 27 3b 0a 20 20 20  pt[0] = 'n';.   
38c0: 20 20 20 20 20 20 20 20 20 62 75 66 70 74 5b 31           bufpt[1
38d0: 5d 20 3d 20 27 64 27 3b 0a 20 20 20 20 20 20 20  ] = 'd';.       
38e0: 20 20 20 7d 65 6c 73 65 20 69 66 28 20 61 3d 3d     }else if( a==
38f0: 33 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20  3 ){.           
3900: 20 62 75 66 70 74 5b 30 5d 20 3d 20 27 72 27 3b   bufpt[0] = 'r';
3910: 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 75 66  .            buf
3920: 70 74 5b 31 5d 20 3d 20 27 64 27 3b 0a 20 20 20  pt[1] = 'd';.   
3930: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20         }.       
3940: 20 7d 0a 20 20 20 20 20 20 20 20 7b 0a 20 20 20   }.        {.   
3950: 20 20 20 20 20 20 20 72 65 67 69 73 74 65 72 20         register 
3960: 63 68 61 72 20 2a 63 73 65 74 3b 20 20 20 20 20  char *cset;     
3970: 20 2f 2a 20 55 73 65 20 72 65 67 69 73 74 65 72   /* Use register
3980: 73 20 66 6f 72 20 73 70 65 65 64 20 2a 2f 0a 20  s for speed */. 
3990: 20 20 20 20 20 20 20 20 20 72 65 67 69 73 74 65           registe
39a0: 72 20 69 6e 74 20 62 61 73 65 3b 0a 20 20 20 20  r int base;.    
39b0: 20 20 20 20 20 20 63 73 65 74 20 3d 20 69 6e 66        cset = inf
39c0: 6f 70 2d 3e 63 68 61 72 73 65 74 3b 0a 20 20 20  op->charset;.   
39d0: 20 20 20 20 20 20 20 62 61 73 65 20 3d 20 69 6e         base = in
39e0: 66 6f 70 2d 3e 62 61 73 65 3b 0a 20 20 20 20 20  fop->base;.     
39f0: 20 20 20 20 20 64 6f 7b 20 20 20 20 20 20 20 20       do{        
3a00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3a10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3a20: 20 20 20 2f 2a 20 43 6f 6e 76 65 72 74 20 74 6f     /* Convert to
3a30: 20 61 73 63 69 69 20 2a 2f 0a 20 20 20 20 20 20   ascii */.      
3a40: 20 20 20 20 20 20 2a 28 2d 2d 62 75 66 70 74 29        *(--bufpt)
3a50: 20 3d 20 63 73 65 74 5b 6c 6f 6e 67 76 61 6c 75   = cset[longvalu
3a60: 65 25 62 61 73 65 5d 3b 0a 20 20 20 20 20 20 20  e%base];.       
3a70: 20 20 20 20 20 6c 6f 6e 67 76 61 6c 75 65 20 3d       longvalue =
3a80: 20 6c 6f 6e 67 76 61 6c 75 65 2f 62 61 73 65 3b   longvalue/base;
3a90: 0a 20 20 20 20 20 20 20 20 20 20 7d 77 68 69 6c  .          }whil
3aa0: 65 28 20 6c 6f 6e 67 76 61 6c 75 65 3e 30 20 29  e( longvalue>0 )
3ab0: 3b 0a 09 7d 0a 20 20 20 20 20 20 20 20 6c 65 6e  ;..}.        len
3ac0: 67 74 68 20 3d 20 28 6c 6f 6e 67 29 26 62 75 66  gth = (long)&buf
3ad0: 5b 65 74 42 55 46 53 49 5a 45 5d 2d 28 6c 6f 6e  [etBUFSIZE]-(lon
3ae0: 67 29 62 75 66 70 74 3b 0a 20 20 20 20 20 20 20  g)bufpt;.       
3af0: 20 66 6f 72 28 69 64 78 3d 70 72 65 63 69 73 69   for(idx=precisi
3b00: 6f 6e 2d 6c 65 6e 67 74 68 3b 20 69 64 78 3e 30  on-length; idx>0
3b10: 3b 20 69 64 78 2d 2d 29 7b 0a 20 20 20 20 20 20  ; idx--){.      
3b20: 20 20 20 20 2a 28 2d 2d 62 75 66 70 74 29 20 3d      *(--bufpt) =
3b30: 20 27 30 27 3b 20 20 20 20 20 20 20 20 20 20 20   '0';           
3b40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3b50: 20 20 2f 2a 20 5a 65 72 6f 20 70 61 64 20 2a 2f    /* Zero pad */
3b60: 0a 09 7d 0a 20 20 20 20 20 20 20 20 69 66 28 20  ..}.        if( 
3b70: 70 72 65 66 69 78 20 29 20 2a 28 2d 2d 62 75 66  prefix ) *(--buf
3b80: 70 74 29 20 3d 20 70 72 65 66 69 78 3b 20 20 20  pt) = prefix;   
3b90: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 41              /* A
3ba0: 64 64 20 73 69 67 6e 20 2a 2f 0a 20 20 20 20 20  dd sign */.     
3bb0: 20 20 20 69 66 28 20 66 6c 61 67 5f 61 6c 74 65     if( flag_alte
3bc0: 72 6e 61 74 65 66 6f 72 6d 20 26 26 20 69 6e 66  rnateform && inf
3bd0: 6f 70 2d 3e 70 72 65 66 69 78 20 29 7b 20 20 20  op->prefix ){   
3be0: 20 20 20 2f 2a 20 41 64 64 20 22 30 22 20 6f 72     /* Add "0" or
3bf0: 20 22 30 78 22 20 2a 2f 0a 20 20 20 20 20 20 20   "0x" */.       
3c00: 20 20 20 63 68 61 72 20 2a 70 72 65 2c 20 78 3b     char *pre, x;
3c10: 0a 20 20 20 20 20 20 20 20 20 20 70 72 65 20 3d  .          pre =
3c20: 20 69 6e 66 6f 70 2d 3e 70 72 65 66 69 78 3b 0a   infop->prefix;.
3c30: 20 20 20 20 20 20 20 20 20 20 69 66 28 20 2a 62            if( *b
3c40: 75 66 70 74 21 3d 70 72 65 5b 30 5d 20 29 7b 0a  ufpt!=pre[0] ){.
3c50: 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 28              for(
3c60: 70 72 65 3d 69 6e 66 6f 70 2d 3e 70 72 65 66 69  pre=infop->prefi
3c70: 78 3b 20 28 78 3d 28 2a 70 72 65 29 29 21 3d 30  x; (x=(*pre))!=0
3c80: 3b 20 70 72 65 2b 2b 29 20 2a 28 2d 2d 62 75 66  ; pre++) *(--buf
3c90: 70 74 29 20 3d 20 78 3b 0a 09 20 20 7d 0a 20 20  pt) = x;..  }.  
3ca0: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20        }.        
3cb0: 6c 65 6e 67 74 68 20 3d 20 28 6c 6f 6e 67 29 26  length = (long)&
3cc0: 62 75 66 5b 65 74 42 55 46 53 49 5a 45 5d 2d 28  buf[etBUFSIZE]-(
3cd0: 6c 6f 6e 67 29 62 75 66 70 74 3b 0a 20 20 20 20  long)bufpt;.    
3ce0: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20      break;.     
3cf0: 20 63 61 73 65 20 65 74 46 4c 4f 41 54 3a 0a 20   case etFLOAT:. 
3d00: 20 20 20 20 20 63 61 73 65 20 65 74 45 58 50 3a       case etEXP:
3d10: 0a 20 20 20 20 20 20 63 61 73 65 20 65 74 47 45  .      case etGE
3d20: 4e 45 52 49 43 3a 0a 20 20 20 20 20 20 20 20 72  NERIC:.        r
3d30: 65 61 6c 76 61 6c 75 65 20 3d 20 76 61 5f 61 72  ealvalue = va_ar
3d40: 67 28 61 70 2c 64 6f 75 62 6c 65 29 3b 0a 23 69  g(ap,double);.#i
3d50: 66 6e 64 65 66 20 65 74 4e 4f 46 4c 4f 41 54 49  fndef etNOFLOATI
3d60: 4e 47 50 4f 49 4e 54 0a 20 20 20 20 20 20 20 20  NGPOINT.        
3d70: 69 66 28 20 70 72 65 63 69 73 69 6f 6e 3c 30 20  if( precision<0 
3d80: 29 20 70 72 65 63 69 73 69 6f 6e 20 3d 20 36 3b  ) precision = 6;
3d90: 20 20 20 20 20 20 20 20 20 2f 2a 20 53 65 74 20           /* Set 
3da0: 64 65 66 61 75 6c 74 20 70 72 65 63 69 73 69 6f  default precisio
3db0: 6e 20 2a 2f 0a 20 20 20 20 20 20 20 20 69 66 28  n */.        if(
3dc0: 20 70 72 65 63 69 73 69 6f 6e 3e 65 74 42 55 46   precision>etBUF
3dd0: 53 49 5a 45 2d 31 30 20 29 20 70 72 65 63 69 73  SIZE-10 ) precis
3de0: 69 6f 6e 20 3d 20 65 74 42 55 46 53 49 5a 45 2d  ion = etBUFSIZE-
3df0: 31 30 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20  10;.        if( 
3e00: 72 65 61 6c 76 61 6c 75 65 3c 30 2e 30 20 29 7b  realvalue<0.0 ){
3e10: 0a 20 20 20 20 20 20 20 20 20 20 72 65 61 6c 76  .          realv
3e20: 61 6c 75 65 20 3d 20 2d 72 65 61 6c 76 61 6c 75  alue = -realvalu
3e30: 65 3b 0a 20 20 20 20 20 20 20 20 20 20 70 72 65  e;.          pre
3e40: 66 69 78 20 3d 20 27 2d 27 3b 0a 09 7d 65 6c 73  fix = '-';..}els
3e50: 65 7b 0a 20 20 20 20 20 20 20 20 20 20 69 66 28  e{.          if(
3e60: 20 66 6c 61 67 5f 70 6c 75 73 73 69 67 6e 20 29   flag_plussign )
3e70: 20 20 20 20 20 20 20 20 20 20 70 72 65 66 69 78            prefix
3e80: 20 3d 20 27 2b 27 3b 0a 20 20 20 20 20 20 20 20   = '+';.        
3e90: 20 20 65 6c 73 65 20 69 66 28 20 66 6c 61 67 5f    else if( flag_
3ea0: 62 6c 61 6e 6b 73 69 67 6e 20 29 20 20 20 20 70  blanksign )    p
3eb0: 72 65 66 69 78 20 3d 20 27 20 27 3b 0a 20 20 20  refix = ' ';.   
3ec0: 20 20 20 20 20 20 20 65 6c 73 65 20 20 20 20 20         else     
3ed0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3ee0: 20 20 20 20 70 72 65 66 69 78 20 3d 20 30 3b 0a      prefix = 0;.
3ef0: 09 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 64 65  der = 0.0;.#ifde
3f50: 66 20 43 4f 4d 50 41 54 49 42 49 4c 49 54 59 0a  f COMPATIBILITY.
3f60: 20 20 20 20 20 20 20 20 2f 2a 20 52 6f 75 6e 64          /* Round
3f70: 69 6e 67 20 77 6f 72 6b 73 20 6c 69 6b 65 20 42  ing works like B
3f80: 53 44 20 77 68 65 6e 20 74 68 65 20 63 6f 6e 73  SD when the cons
3f90: 74 61 6e 74 20 30 2e 34 39 39 39 20 69 73 20 75  tant 0.4999 is u
3fa0: 73 65 64 2e 20 20 57 69 65 72 64 21 20 2a 2f 0a  sed.  Wierd! */.
3fb0: 20 20 20 20 20 20 20 20 66 6f 72 28 69 64 78 3d          for(idx=
3fc0: 70 72 65 63 69 73 69 6f 6e 2c 20 72 6f 75 6e 64  precision, round
3fd0: 65 72 3d 30 2e 34 39 39 39 3b 20 69 64 78 3e 30  er=0.4999; idx>0
3fe0: 3b 20 69 64 78 2d 2d 2c 20 72 6f 75 6e 64 65 72  ; idx--, rounder
3ff0: 2a 3d 30 2e 31 29 3b 0a 23 65 6c 73 65 0a 20 20  *=0.1);.#else.  
4000: 20 20 20 20 20 20 2f 2a 20 49 74 20 6d 61 6b 65        /* It make
4010: 73 20 6d 6f 72 65 20 73 65 6e 73 65 20 74 6f 20  s more sense to 
4020: 75 73 65 20 30 2e 35 20 2a 2f 0a 20 20 20 20 20  use 0.5 */.     
4030: 20 20 20 66 6f 72 28 69 64 78 3d 70 72 65 63 69     for(idx=preci
4040: 73 69 6f 6e 2c 20 72 6f 75 6e 64 65 72 3d 30 2e  sion, rounder=0.
4050: 35 3b 20 69 64 78 3e 30 3b 20 69 64 78 2d 2d 2c  5; idx>0; idx--,
4060: 20 72 6f 75 6e 64 65 72 2a 3d 30 2e 31 29 3b 0a   rounder*=0.1);.
4070: 23 65 6e 64 69 66 0a 20 20 20 20 20 20 20 20 69  #endif.        i
4080: 66 28 20 69 6e 66 6f 70 2d 3e 74 79 70 65 3d 3d  f( infop->type==
4090: 65 74 46 4c 4f 41 54 20 29 20 72 65 61 6c 76 61  etFLOAT ) realva
40a0: 6c 75 65 20 2b 3d 20 72 6f 75 6e 64 65 72 3b 0a  lue += rounder;.
40b0: 20 20 20 20 20 20 20 20 2f 2a 20 4e 6f 72 6d 61          /* Norma
40c0: 6c 69 7a 65 20 72 65 61 6c 76 61 6c 75 65 20 74  lize realvalue t
40d0: 6f 20 77 69 74 68 69 6e 20 31 30 2e 30 20 3e 20  o within 10.0 > 
40e0: 72 65 61 6c 76 61 6c 75 65 20 3e 3d 20 31 2e 30  realvalue >= 1.0
40f0: 20 2a 2f 0a 20 20 20 20 20 20 20 20 65 78 70 20   */.        exp 
4100: 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 69 66 28  = 0;.        if(
4110: 20 72 65 61 6c 76 61 6c 75 65 3e 30 2e 30 20 29   realvalue>0.0 )
4120: 7b 0a 20 20 20 20 20 20 20 20 20 20 69 6e 74 20  {.          int 
4130: 6b 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20  k = 0;.         
4140: 20 77 68 69 6c 65 28 20 72 65 61 6c 76 61 6c 75   while( realvalu
4150: 65 3e 3d 31 65 38 20 26 26 20 6b 2b 2b 3c 31 30  e>=1e8 && k++<10
4160: 30 20 29 7b 20 72 65 61 6c 76 61 6c 75 65 20 2a  0 ){ realvalue *
4170: 3d 20 31 65 2d 38 3b 20 65 78 70 2b 3d 38 3b 20  = 1e-8; exp+=8; 
4180: 7d 0a 20 20 20 20 20 20 20 20 20 20 77 68 69 6c  }.          whil
4190: 65 28 20 72 65 61 6c 76 61 6c 75 65 3e 3d 31 30  e( realvalue>=10
41a0: 2e 30 20 26 26 20 6b 2b 2b 3c 31 30 30 20 29 7b  .0 && k++<100 ){
41b0: 20 72 65 61 6c 76 61 6c 75 65 20 2a 3d 20 30 2e   realvalue *= 0.
41c0: 31 3b 20 65 78 70 2b 2b 3b 20 7d 0a 20 20 20 20  1; exp++; }.    
41d0: 20 20 20 20 20 20 77 68 69 6c 65 28 20 72 65 61        while( rea
41e0: 6c 76 61 6c 75 65 3c 31 65 2d 38 20 26 26 20 6b  lvalue<1e-8 && k
41f0: 2b 2b 3c 31 30 30 20 29 7b 20 72 65 61 6c 76 61  ++<100 ){ realva
4200: 6c 75 65 20 2a 3d 20 31 65 38 3b 20 65 78 70 2d  lue *= 1e8; exp-
4210: 3d 38 3b 20 7d 0a 20 20 20 20 20 20 20 20 20 20  =8; }.          
4220: 77 68 69 6c 65 28 20 72 65 61 6c 76 61 6c 75 65  while( realvalue
4230: 3c 31 2e 30 20 26 26 20 6b 2b 2b 3c 31 30 30 20  <1.0 && k++<100 
4240: 29 7b 20 72 65 61 6c 76 61 6c 75 65 20 2a 3d 20  ){ realvalue *= 
4250: 31 30 2e 30 3b 20 65 78 70 2d 2d 3b 20 7d 0a 20  10.0; exp--; }. 
4260: 20 20 20 20 20 20 20 20 20 69 66 28 20 6b 3e 3d           if( k>=
4270: 31 30 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20  100 ){.         
4280: 20 20 20 62 75 66 70 74 20 3d 20 22 4e 61 4e 22     bufpt = "NaN"
4290: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 65  ;.            le
42a0: 6e 67 74 68 20 3d 20 33 3b 0a 20 20 20 20 20 20  ngth = 3;.      
42b0: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20        break;.   
42c0: 20 20 20 20 20 20 20 7d 0a 09 7d 0a 20 20 20 20         }..}.    
42d0: 20 20 20 20 62 75 66 70 74 20 3d 20 62 75 66 3b      bufpt = buf;
42e0: 0a 20 20 20 20 20 20 20 20 2f 2a 0a 20 20 20 20  .        /*.    
42f0: 20 20 20 20 2a 2a 20 49 66 20 74 68 65 20 66 69      ** If the fi
4300: 65 6c 64 20 74 79 70 65 20 69 73 20 65 74 47 45  eld type is etGE
4310: 4e 45 52 49 43 2c 20 74 68 65 6e 20 63 6f 6e 76  NERIC, then conv
4320: 65 72 74 20 74 6f 20 65 69 74 68 65 72 20 65 74  ert to either et
4330: 45 58 50 0a 20 20 20 20 20 20 20 20 2a 2a 20 6f  EXP.        ** o
4340: 72 20 65 74 46 4c 4f 41 54 2c 20 61 73 20 61 70  r etFLOAT, as ap
4350: 70 72 6f 70 72 69 61 74 65 2e 0a 20 20 20 20 20  propriate..     
4360: 20 20 20 2a 2f 0a 20 20 20 20 20 20 20 20 66 6c     */.        fl
4370: 61 67 5f 65 78 70 20 3d 20 78 74 79 70 65 3d 3d  ag_exp = xtype==
4380: 65 74 45 58 50 3b 0a 20 20 20 20 20 20 20 20 69  etEXP;.        i
4390: 66 28 20 78 74 79 70 65 21 3d 65 74 46 4c 4f 41  f( xtype!=etFLOA
43a0: 54 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 72  T ){.          r
43b0: 65 61 6c 76 61 6c 75 65 20 2b 3d 20 72 6f 75 6e  ealvalue += roun
43c0: 64 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 69  der;.          i
43d0: 66 28 20 72 65 61 6c 76 61 6c 75 65 3e 3d 31 30  f( realvalue>=10
43e0: 2e 30 20 29 7b 20 72 65 61 6c 76 61 6c 75 65 20  .0 ){ realvalue 
43f0: 2a 3d 20 30 2e 31 3b 20 65 78 70 2b 2b 3b 20 7d  *= 0.1; exp++; }
4400: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20  .        }.     
4410: 20 20 20 69 66 28 20 78 74 79 70 65 3d 3d 65 74     if( xtype==et
4420: 47 45 4e 45 52 49 43 20 29 7b 0a 20 20 20 20 20  GENERIC ){.     
4430: 20 20 20 20 20 66 6c 61 67 5f 72 74 7a 20 3d 20       flag_rtz = 
4440: 21 66 6c 61 67 5f 61 6c 74 65 72 6e 61 74 65 66  !flag_alternatef
4450: 6f 72 6d 3b 0a 20 20 20 20 20 20 20 20 20 20 69  orm;.          i
4460: 66 28 20 65 78 70 3c 2d 34 20 7c 7c 20 65 78 70  f( exp<-4 || exp
4470: 3e 70 72 65 63 69 73 69 6f 6e 20 29 7b 0a 20 20  >precision ){.  
4480: 20 20 20 20 20 20 20 20 20 20 78 74 79 70 65 20            xtype 
4490: 3d 20 65 74 45 58 50 3b 0a 20 20 20 20 20 20 20  = etEXP;.       
44a0: 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20     }else{.      
44b0: 20 20 20 20 20 20 70 72 65 63 69 73 69 6f 6e 20        precision 
44c0: 3d 20 70 72 65 63 69 73 69 6f 6e 20 2d 20 65 78  = precision - ex
44d0: 70 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 78  p;.            x
44e0: 74 79 70 65 20 3d 20 65 74 46 4c 4f 41 54 3b 0a  type = etFLOAT;.
44f0: 20 20 20 20 20 20 20 20 20 20 7d 0a 09 7d 65 6c            }..}el
4500: 73 65 7b 0a 20 20 20 20 20 20 20 20 20 20 66 6c  se{.          fl
4510: 61 67 5f 72 74 7a 20 3d 20 30 3b 0a 09 7d 0a 20  ag_rtz = 0;..}. 
4520: 20 20 20 20 20 20 20 2f 2a 0a 20 20 20 20 20 20         /*.      
4530: 20 20 2a 2a 20 54 68 65 20 22 65 78 70 2b 70 72    ** The "exp+pr
4540: 65 63 69 73 69 6f 6e 22 20 74 65 73 74 20 63 61  ecision" test ca
4550: 75 73 65 73 20 6f 75 74 70 75 74 20 74 6f 20 62  uses output to b
4560: 65 20 6f 66 20 74 79 70 65 20 65 74 45 58 50 20  e of type etEXP 
4570: 69 66 0a 20 20 20 20 20 20 20 20 2a 2a 20 74 68  if.        ** th
4580: 65 20 70 72 65 63 69 73 69 6f 6e 20 69 73 20 74  e precision is t
4590: 6f 6f 20 6c 61 72 67 65 20 74 6f 20 66 69 74 20  oo large to fit 
45a0: 69 6e 20 62 75 66 5b 5d 2e 0a 20 20 20 20 20 20  in buf[]..      
45b0: 20 20 2a 2f 0a 20 20 20 20 20 20 20 20 6e 73 64    */.        nsd
45c0: 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 69 66   = 0;.        if
45d0: 28 20 78 74 79 70 65 3d 3d 65 74 46 4c 4f 41 54  ( xtype==etFLOAT
45e0: 20 26 26 20 65 78 70 2b 70 72 65 63 69 73 69 6f   && exp+precisio
45f0: 6e 3c 65 74 42 55 46 53 49 5a 45 2d 33 30 20 29  n<etBUFSIZE-30 )
4600: 7b 0a 20 20 20 20 20 20 20 20 20 20 66 6c 61 67  {.          flag
4610: 5f 64 70 20 3d 20 28 70 72 65 63 69 73 69 6f 6e  _dp = (precision
4620: 3e 30 20 7c 7c 20 66 6c 61 67 5f 61 6c 74 65 72  >0 || flag_alter
4630: 6e 61 74 65 66 6f 72 6d 29 3b 0a 20 20 20 20 20  nateform);.     
4640: 20 20 20 20 20 69 66 28 20 70 72 65 66 69 78 20       if( prefix 
4650: 29 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 70  ) *(bufpt++) = p
4660: 72 65 66 69 78 3b 20 20 20 20 20 20 20 20 20 2f  refix;         /
4670: 2a 20 53 69 67 6e 20 2a 2f 0a 20 20 20 20 20 20  * Sign */.      
4680: 20 20 20 20 69 66 28 20 65 78 70 3c 30 20 29 20      if( exp<0 ) 
4690: 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 27 30   *(bufpt++) = '0
46a0: 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a  ';            /*
46b0: 20 44 69 67 69 74 73 20 62 65 66 6f 72 65 20 22   Digits before "
46c0: 2e 22 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20  ." */.          
46d0: 65 6c 73 65 20 66 6f 72 28 3b 20 65 78 70 3e 3d  else for(; exp>=
46e0: 30 3b 20 65 78 70 2d 2d 29 20 2a 28 62 75 66 70  0; exp--) *(bufp
46f0: 74 2b 2b 29 20 3d 20 65 74 5f 67 65 74 64 69 67  t++) = et_getdig
4700: 69 74 28 26 72 65 61 6c 76 61 6c 75 65 2c 26 6e  it(&realvalue,&n
4710: 73 64 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69  sd);.          i
4720: 66 28 20 66 6c 61 67 5f 64 70 20 29 20 2a 28 62  f( flag_dp ) *(b
4730: 75 66 70 74 2b 2b 29 20 3d 20 27 2e 27 3b 20 20  ufpt++) = '.';  
4740: 20 20 20 20 20 20 20 20 20 2f 2a 20 54 68 65 20           /* The 
4750: 64 65 63 69 6d 61 6c 20 70 6f 69 6e 74 20 2a 2f  decimal point */
4760: 0a 20 20 20 20 20 20 20 20 20 20 66 6f 72 28 65  .          for(e
4770: 78 70 2b 2b 3b 20 65 78 70 3c 30 20 26 26 20 70  xp++; exp<0 && p
4780: 72 65 63 69 73 69 6f 6e 3e 30 3b 20 70 72 65 63  recision>0; prec
4790: 69 73 69 6f 6e 2d 2d 2c 20 65 78 70 2b 2b 29 7b  ision--, exp++){
47a0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 2a 28 62  .            *(b
47b0: 75 66 70 74 2b 2b 29 20 3d 20 27 30 27 3b 0a 20  ufpt++) = '0';. 
47c0: 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20           }.     
47d0: 20 20 20 20 20 77 68 69 6c 65 28 20 28 70 72 65       while( (pre
47e0: 63 69 73 69 6f 6e 2d 2d 29 3e 30 20 29 20 2a 28  cision--)>0 ) *(
47f0: 62 75 66 70 74 2b 2b 29 20 3d 20 65 74 5f 67 65  bufpt++) = et_ge
4800: 74 64 69 67 69 74 28 26 72 65 61 6c 76 61 6c 75  tdigit(&realvalu
4810: 65 2c 26 6e 73 64 29 3b 0a 20 20 20 20 20 20 20  e,&nsd);.       
4820: 20 20 20 2a 28 62 75 66 70 74 2d 2d 29 20 3d 20     *(bufpt--) = 
4830: 30 3b 20 20 20 20 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 2f 2a 20               /* 
4850: 4e 75 6c 6c 20 74 65 72 6d 69 6e 61 74 65 20 2a  Null terminate *
4860: 2f 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20  /.          if( 
4870: 66 6c 61 67 5f 72 74 7a 20 26 26 20 66 6c 61 67  flag_rtz && flag
4880: 5f 64 70 20 29 7b 20 20 20 20 20 2f 2a 20 52 65  _dp ){     /* Re
4890: 6d 6f 76 65 20 74 72 61 69 6c 69 6e 67 20 7a 65  move trailing ze
48a0: 72 6f 73 20 61 6e 64 20 22 2e 22 20 2a 2f 0a 20  ros and "." */. 
48b0: 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65             while
48c0: 28 20 62 75 66 70 74 3e 3d 62 75 66 20 26 26 20  ( bufpt>=buf && 
48d0: 2a 62 75 66 70 74 3d 3d 27 30 27 20 29 20 2a 28  *bufpt=='0' ) *(
48e0: 62 75 66 70 74 2d 2d 29 20 3d 20 30 3b 0a 20 20  bufpt--) = 0;.  
48f0: 20 20 20 20 20 20 20 20 20 20 69 66 28 20 62 75            if( bu
4900: 66 70 74 3e 3d 62 75 66 20 26 26 20 2a 62 75 66  fpt>=buf && *buf
4910: 70 74 3d 3d 27 2e 27 20 29 20 2a 28 62 75 66 70  pt=='.' ) *(bufp
4920: 74 2d 2d 29 20 3d 20 30 3b 0a 20 20 20 20 20 20  t--) = 0;.      
4930: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20      }.          
4940: 62 75 66 70 74 2b 2b 3b 20 20 20 20 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 2f 2a 20 70 6f 69 6e 74 20 74 6f 20      /* point to 
4970: 6e 65 78 74 20 66 72 65 65 20 73 6c 6f 74 20 2a  next free slot *
4980: 2f 0a 09 7d 65 6c 73 65 7b 20 20 20 20 2f 2a 20  /..}else{    /* 
4990: 65 74 45 58 50 20 6f 72 20 65 74 47 45 4e 45 52  etEXP or etGENER
49a0: 49 43 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20  IC */.          
49b0: 66 6c 61 67 5f 64 70 20 3d 20 28 70 72 65 63 69  flag_dp = (preci
49c0: 73 69 6f 6e 3e 30 20 7c 7c 20 66 6c 61 67 5f 61  sion>0 || flag_a
49d0: 6c 74 65 72 6e 61 74 65 66 6f 72 6d 29 3b 0a 20  lternateform);. 
49e0: 20 20 20 20 20 20 20 20 20 69 66 28 20 70 72 65           if( pre
49f0: 66 69 78 20 29 20 2a 28 62 75 66 70 74 2b 2b 29  fix ) *(bufpt++)
4a00: 20 3d 20 70 72 65 66 69 78 3b 20 20 20 2f 2a 20   = prefix;   /* 
4a10: 53 69 67 6e 20 2a 2f 0a 20 20 20 20 20 20 20 20  Sign */.        
4a20: 20 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 65    *(bufpt++) = e
4a30: 74 5f 67 65 74 64 69 67 69 74 28 26 72 65 61 6c  t_getdigit(&real
4a40: 76 61 6c 75 65 2c 26 6e 73 64 29 3b 20 20 2f 2a  value,&nsd);  /*
4a50: 20 46 69 72 73 74 20 64 69 67 69 74 20 2a 2f 0a   First digit */.
4a60: 20 20 20 20 20 20 20 20 20 20 69 66 28 20 66 6c            if( fl
4a70: 61 67 5f 64 70 20 29 20 2a 28 62 75 66 70 74 2b  ag_dp ) *(bufpt+
4a80: 2b 29 20 3d 20 27 2e 27 3b 20 20 20 20 20 2f 2a  +) = '.';     /*
4a90: 20 44 65 63 69 6d 61 6c 20 70 6f 69 6e 74 20 2a   Decimal point *
4aa0: 2f 0a 20 20 20 20 20 20 20 20 20 20 77 68 69 6c  /.          whil
4ab0: 65 28 20 28 70 72 65 63 69 73 69 6f 6e 2d 2d 29  e( (precision--)
4ac0: 3e 30 20 29 20 2a 28 62 75 66 70 74 2b 2b 29 20  >0 ) *(bufpt++) 
4ad0: 3d 20 65 74 5f 67 65 74 64 69 67 69 74 28 26 72  = et_getdigit(&r
4ae0: 65 61 6c 76 61 6c 75 65 2c 26 6e 73 64 29 3b 0a  ealvalue,&nsd);.
4af0: 20 20 20 20 20 20 20 20 20 20 62 75 66 70 74 2d            bufpt-
4b00: 2d 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  -;              
4b10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
4b20: 20 70 6f 69 6e 74 20 74 6f 20 6c 61 73 74 20 64   point to last d
4b30: 69 67 69 74 20 2a 2f 0a 20 20 20 20 20 20 20 20  igit */.        
4b40: 20 20 69 66 28 20 66 6c 61 67 5f 72 74 7a 20 26    if( flag_rtz &
4b50: 26 20 66 6c 61 67 5f 64 70 20 29 7b 20 20 20 20  & flag_dp ){    
4b60: 20 20 20 20 20 20 2f 2a 20 52 65 6d 6f 76 65 20        /* Remove 
4b70: 74 61 69 6c 20 7a 65 72 6f 73 20 2a 2f 0a 20 20  tail zeros */.  
4b80: 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 28            while(
4b90: 20 62 75 66 70 74 3e 3d 62 75 66 20 26 26 20 2a   bufpt>=buf && *
4ba0: 62 75 66 70 74 3d 3d 27 30 27 20 29 20 2a 28 62  bufpt=='0' ) *(b
4bb0: 75 66 70 74 2d 2d 29 20 3d 20 30 3b 0a 20 20 20  ufpt--) = 0;.   
4bc0: 20 20 20 20 20 20 20 20 20 69 66 28 20 62 75 66           if( buf
4bd0: 70 74 3e 3d 62 75 66 20 26 26 20 2a 62 75 66 70  pt>=buf && *bufp
4be0: 74 3d 3d 27 2e 27 20 29 20 2a 28 62 75 66 70 74  t=='.' ) *(bufpt
4bf0: 2d 2d 29 20 3d 20 30 3b 0a 20 20 20 20 20 20 20  --) = 0;.       
4c00: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20 62     }.          b
4c10: 75 66 70 74 2b 2b 3b 20 20 20 20 20 20 20 20 20  ufpt++;         
4c20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4c30: 20 20 20 2f 2a 20 70 6f 69 6e 74 20 74 6f 20 6e     /* point to n
4c40: 65 78 74 20 66 72 65 65 20 73 6c 6f 74 20 2a 2f  ext free slot */
4c50: 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20 65  .          if( e
4c60: 78 70 20 7c 7c 20 66 6c 61 67 5f 65 78 70 20 29  xp || flag_exp )
4c70: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 2a 28  {.            *(
4c80: 62 75 66 70 74 2b 2b 29 20 3d 20 69 6e 66 6f 70  bufpt++) = infop
4c90: 2d 3e 63 68 61 72 73 65 74 5b 30 5d 3b 0a 20 20  ->charset[0];.  
4ca0: 20 20 20 20 20 20 20 20 20 20 69 66 28 20 65 78            if( ex
4cb0: 70 3c 30 20 29 7b 20 2a 28 62 75 66 70 74 2b 2b  p<0 ){ *(bufpt++
4cc0: 29 20 3d 20 27 2d 27 3b 20 65 78 70 20 3d 20 2d  ) = '-'; exp = -
4cd0: 65 78 70 3b 20 7d 20 2f 2a 20 73 69 67 6e 20 6f  exp; } /* sign o
4ce0: 66 20 65 78 70 20 2a 2f 0a 20 20 20 20 20 20 20  f exp */.       
4cf0: 20 20 20 20 20 65 6c 73 65 20 20 20 20 20 20 20       else       
4d00: 7b 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 27  { *(bufpt++) = '
4d10: 2b 27 3b 20 7d 0a 20 20 20 20 20 20 20 20 20 20  +'; }.          
4d20: 20 20 69 66 28 20 65 78 70 3e 3d 31 30 30 20 29    if( exp>=100 )
4d30: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  {.              
4d40: 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 28 65 78  *(bufpt++) = (ex
4d50: 70 2f 31 30 30 29 2b 27 30 27 3b 20 20 20 20 20  p/100)+'0';     
4d60: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 31 30             /* 10
4d70: 30 27 73 20 64 69 67 69 74 20 2a 2f 0a 20 20 20  0's digit */.   
4d80: 20 20 20 20 20 20 20 20 20 20 20 65 78 70 20 25             exp %
4d90: 3d 20 31 30 30 3b 0a 20 20 09 20 20 20 20 7d 0a  = 100;.  .    }.
4da0: 20 20 20 20 20 20 20 20 20 20 20 20 2a 28 62 75              *(bu
4db0: 66 70 74 2b 2b 29 20 3d 20 65 78 70 2f 31 30 2b  fpt++) = exp/10+
4dc0: 27 30 27 3b 20 20 20 20 20 20 20 20 20 20 20 20  '0';            
4dd0: 20 20 20 20 20 20 20 20 20 2f 2a 20 31 30 27 73           /* 10's
4de0: 20 64 69 67 69 74 20 2a 2f 0a 20 20 20 20 20 20   digit */.      
4df0: 20 20 20 20 20 20 2a 28 62 75 66 70 74 2b 2b 29        *(bufpt++)
4e00: 20 3d 20 65 78 70 25 31 30 2b 27 30 27 3b 20 20   = exp%10+'0';  
4e10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4e20: 20 20 20 2f 2a 20 31 27 73 20 64 69 67 69 74 20     /* 1's digit 
4e30: 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 7d 0a 09  */.          }..
4e40: 7d 0a 20 20 20 20 20 20 20 20 2f 2a 20 54 68 65  }.        /* The
4e50: 20 63 6f 6e 76 65 72 74 65 64 20 6e 75 6d 62 65   converted numbe
4e60: 72 20 69 73 20 69 6e 20 62 75 66 5b 5d 20 61 6e  r is in buf[] an
4e70: 64 20 7a 65 72 6f 20 74 65 72 6d 69 6e 61 74 65  d zero terminate
4e80: 64 2e 20 4f 75 74 70 75 74 20 69 74 2e 0a 20 20  d. Output it..  
4e90: 20 20 20 20 20 20 2a 2a 20 4e 6f 74 65 20 74 68        ** Note th
4ea0: 61 74 20 74 68 65 20 6e 75 6d 62 65 72 20 69 73  at the number is
4eb0: 20 69 6e 20 74 68 65 20 75 73 75 61 6c 20 6f 72   in the usual or
4ec0: 64 65 72 2c 20 6e 6f 74 20 72 65 76 65 72 73 65  der, not reverse
4ed0: 64 20 61 73 20 77 69 74 68 0a 20 20 20 20 20 20  d as with.      
4ee0: 20 20 2a 2a 20 69 6e 74 65 67 65 72 20 63 6f 6e    ** integer con
4ef0: 76 65 72 73 69 6f 6e 73 2e 20 2a 2f 0a 20 20 20  versions. */.   
4f00: 20 20 20 20 20 6c 65 6e 67 74 68 20 3d 20 28 6c       length = (l
4f10: 6f 6e 67 29 62 75 66 70 74 2d 28 6c 6f 6e 67 29  ong)bufpt-(long)
4f20: 62 75 66 3b 0a 20 20 20 20 20 20 20 20 62 75 66  buf;.        buf
4f30: 70 74 20 3d 20 62 75 66 3b 0a 0a 20 20 20 20 20  pt = buf;..     
4f40: 20 20 20 2f 2a 20 53 70 65 63 69 61 6c 20 63 61     /* Special ca
4f50: 73 65 3a 20 20 41 64 64 20 6c 65 61 64 69 6e 67  se:  Add leading
4f60: 20 7a 65 72 6f 73 20 69 66 20 74 68 65 20 66 6c   zeros if the fl
4f70: 61 67 5f 7a 65 72 6f 70 61 64 20 66 6c 61 67 20  ag_zeropad flag 
4f80: 69 73 0a 20 20 20 20 20 20 20 20 2a 2a 20 73 65  is.        ** se
4f90: 74 20 61 6e 64 20 77 65 20 61 72 65 20 6e 6f 74  t and we are not
4fa0: 20 6c 65 66 74 20 6a 75 73 74 69 66 69 65 64 20   left justified 
4fb0: 2a 2f 0a 20 20 20 20 20 20 20 20 69 66 28 20 66  */.        if( f
4fc0: 6c 61 67 5f 7a 65 72 6f 70 61 64 20 26 26 20 21  lag_zeropad && !
4fd0: 66 6c 61 67 5f 6c 65 66 74 6a 75 73 74 69 66 79  flag_leftjustify
4fe0: 20 26 26 20 6c 65 6e 67 74 68 20 3c 20 77 69 64   && length < wid
4ff0: 74 68 29 7b 0a 20 20 20 20 20 20 20 20 20 20 69  th){.          i
5000: 6e 74 20 69 3b 0a 20 20 20 20 20 20 20 20 20 20  nt i;.          
5010: 69 6e 74 20 6e 50 61 64 20 3d 20 77 69 64 74 68  int nPad = width
5020: 20 2d 20 6c 65 6e 67 74 68 3b 0a 20 20 20 20 20   - length;.     
5030: 20 20 20 20 20 66 6f 72 28 69 3d 77 69 64 74 68       for(i=width
5040: 3b 20 69 3e 3d 6e 50 61 64 3b 20 69 2d 2d 29 7b  ; i>=nPad; i--){
5050: 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 75 66  .            buf
5060: 70 74 5b 69 5d 20 3d 20 62 75 66 70 74 5b 69 2d  pt[i] = bufpt[i-
5070: 6e 50 61 64 5d 3b 0a 20 20 20 20 20 20 20 20 20  nPad];.         
5080: 20 7d 0a 20 20 20 20 20 20 20 20 20 20 69 20 3d   }.          i =
5090: 20 70 72 65 66 69 78 21 3d 30 3b 0a 20 20 20 20   prefix!=0;.    
50a0: 20 20 20 20 20 20 77 68 69 6c 65 28 20 6e 50 61        while( nPa
50b0: 64 2d 2d 20 29 20 62 75 66 70 74 5b 69 2b 2b 5d  d-- ) bufpt[i++]
50c0: 20 3d 20 27 30 27 3b 0a 20 20 20 20 20 20 20 20   = '0';.        
50d0: 20 20 6c 65 6e 67 74 68 20 3d 20 77 69 64 74 68    length = width
50e0: 3b 0a 20 20 20 20 20 20 20 20 7d 0a 23 65 6e 64  ;.        }.#end
50f0: 69 66 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b  if.        break
5100: 3b 0a 20 20 20 20 20 20 63 61 73 65 20 65 74 53  ;.      case etS
5110: 49 5a 45 3a 0a 20 20 20 20 20 20 20 20 2a 28 76  IZE:.        *(v
5120: 61 5f 61 72 67 28 61 70 2c 69 6e 74 2a 29 29 20  a_arg(ap,int*)) 
5130: 3d 20 63 6f 75 6e 74 3b 0a 20 20 20 20 20 20 20  = count;.       
5140: 20 6c 65 6e 67 74 68 20 3d 20 77 69 64 74 68 20   length = width 
5150: 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 62 72 65  = 0;.        bre
5160: 61 6b 3b 0a 20 20 20 20 20 20 63 61 73 65 20 65  ak;.      case e
5170: 74 50 45 52 43 45 4e 54 3a 0a 20 20 20 20 20 20  tPERCENT:.      
5180: 20 20 62 75 66 5b 30 5d 20 3d 20 27 25 27 3b 0a    buf[0] = '%';.
5190: 20 20 20 20 20 20 20 20 62 75 66 70 74 20 3d 20          bufpt = 
51a0: 62 75 66 3b 0a 20 20 20 20 20 20 20 20 6c 65 6e  buf;.        len
51b0: 67 74 68 20 3d 20 31 3b 0a 20 20 20 20 20 20 20  gth = 1;.       
51c0: 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 63 61   break;.      ca
51d0: 73 65 20 65 74 43 48 41 52 4c 49 54 3a 0a 20 20  se etCHARLIT:.  
51e0: 20 20 20 20 63 61 73 65 20 65 74 43 48 41 52 58      case etCHARX
51f0: 3a 0a 20 20 20 20 20 20 20 20 63 20 3d 20 62 75  :.        c = bu
5200: 66 5b 30 5d 20 3d 20 28 78 74 79 70 65 3d 3d 65  f[0] = (xtype==e
5210: 74 43 48 41 52 58 20 3f 20 76 61 5f 61 72 67 28  tCHARX ? va_arg(
5220: 61 70 2c 69 6e 74 29 20 3a 20 2a 2b 2b 66 6d 74  ap,int) : *++fmt
5230: 29 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 70  );.        if( p
5240: 72 65 63 69 73 69 6f 6e 3e 3d 30 20 29 7b 0a 20  recision>=0 ){. 
5250: 20 20 20 20 20 20 20 20 20 66 6f 72 28 69 64 78           for(idx
5260: 3d 31 3b 20 69 64 78 3c 70 72 65 63 69 73 69 6f  =1; idx<precisio
5270: 6e 3b 20 69 64 78 2b 2b 29 20 62 75 66 5b 69 64  n; idx++) buf[id
5280: 78 5d 20 3d 20 63 3b 0a 20 20 20 20 20 20 20 20  x] = c;.        
5290: 20 20 6c 65 6e 67 74 68 20 3d 20 70 72 65 63 69    length = preci
52a0: 73 69 6f 6e 3b 0a 09 7d 65 6c 73 65 7b 0a 20 20  sion;..}else{.  
52b0: 20 20 20 20 20 20 20 20 6c 65 6e 67 74 68 20 3d          length =
52c0: 31 3b 0a 09 7d 0a 20 20 20 20 20 20 20 20 62 75  1;..}.        bu
52d0: 66 70 74 20 3d 20 62 75 66 3b 0a 20 20 20 20 20  fpt = buf;.     
52e0: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20     break;.      
52f0: 63 61 73 65 20 65 74 53 54 52 49 4e 47 3a 0a 20  case etSTRING:. 
5300: 20 20 20 20 20 20 20 7a 4d 65 6d 20 3d 20 62 75         zMem = bu
5310: 66 70 74 20 3d 20 76 61 5f 61 72 67 28 61 70 2c  fpt = va_arg(ap,
5320: 63 68 61 72 2a 29 3b 0a 20 20 20 20 20 20 20 20  char*);.        
5330: 69 66 28 20 62 75 66 70 74 3d 3d 30 20 29 20 62  if( bufpt==0 ) b
5340: 75 66 70 74 20 3d 20 22 28 6e 75 6c 6c 29 22 3b  ufpt = "(null)";
5350: 0a 20 20 20 20 20 20 20 20 6c 65 6e 67 74 68 20  .        length 
5360: 3d 20 73 74 72 6c 65 6e 28 62 75 66 70 74 29 3b  = strlen(bufpt);
5370: 0a 20 20 20 20 20 20 20 20 69 66 28 20 70 72 65  .        if( pre
5380: 63 69 73 69 6f 6e 3e 3d 30 20 26 26 20 70 72 65  cision>=0 && pre
5390: 63 69 73 69 6f 6e 3c 6c 65 6e 67 74 68 20 29 20  cision<length ) 
53a0: 6c 65 6e 67 74 68 20 3d 20 70 72 65 63 69 73 69  length = precisi
53b0: 6f 6e 3b 0a 20 20 20 20 20 20 20 20 62 72 65 61  on;.        brea
53c0: 6b 3b 0a 20 20 20 20 20 20 63 61 73 65 20 65 74  k;.      case et
53d0: 53 51 4c 45 53 43 41 50 45 3a 0a 20 20 20 20 20  SQLESCAPE:.     
53e0: 20 20 20 7b 0a 20 20 20 20 20 20 20 20 20 20 69     {.          i
53f0: 6e 74 20 69 2c 20 6a 2c 20 6e 2c 20 63 3b 0a 20  nt i, j, n, c;. 
5400: 20 20 20 20 20 20 20 20 20 63 68 61 72 20 2a 61           char *a
5410: 72 67 20 3d 20 76 61 5f 61 72 67 28 61 70 2c 63  rg = va_arg(ap,c
5420: 68 61 72 2a 29 3b 0a 20 20 20 20 20 20 20 20 20  har*);.         
5430: 20 69 66 28 20 61 72 67 3d 3d 30 20 29 20 61 72   if( arg==0 ) ar
5440: 67 20 3d 20 22 28 4e 55 4c 4c 29 22 3b 0a 20 20  g = "(NULL)";.  
5450: 20 20 20 20 20 20 20 20 66 6f 72 28 69 3d 6e 3d          for(i=n=
5460: 30 3b 20 28 63 3d 61 72 67 5b 69 5d 29 21 3d 30  0; (c=arg[i])!=0
5470: 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20  ; i++){.        
5480: 20 20 20 20 69 66 28 20 63 3d 3d 27 5c 27 27 20      if( c=='\'' 
5490: 29 20 20 6e 2b 2b 3b 0a 20 20 20 20 20 20 20 20  )  n++;.        
54a0: 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20 6e 20    }.          n 
54b0: 2b 3d 20 69 20 2b 20 31 3b 0a 20 20 20 20 20 20  += i + 1;.      
54c0: 20 20 20 20 69 66 28 20 6e 3e 65 74 42 55 46 53      if( n>etBUFS
54d0: 49 5a 45 20 29 7b 0a 20 20 20 20 20 20 20 20 20  IZE ){.         
54e0: 20 20 20 62 75 66 70 74 20 3d 20 7a 45 78 74 72     bufpt = zExtr
54f0: 61 20 3d 20 73 71 6c 69 74 65 4d 61 6c 6c 6f 63  a = sqliteMalloc
5500: 28 20 6e 20 29 3b 0a 20 20 20 20 20 20 20 20 20  ( n );.         
5510: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20   }else{.        
5520: 20 20 20 20 62 75 66 70 74 20 3d 20 62 75 66 3b      bufpt = buf;
5530: 0a 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20  .          }.   
5540: 20 20 20 20 20 20 20 66 6f 72 28 69 3d 6a 3d 30         for(i=j=0
5550: 3b 20 28 63 3d 61 72 67 5b 69 5d 29 21 3d 30 3b  ; (c=arg[i])!=0;
5560: 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20 20   i++){.         
5570: 20 20 20 62 75 66 70 74 5b 6a 2b 2b 5d 20 3d 20     bufpt[j++] = 
5580: 63 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69  c;.            i
5590: 66 28 20 63 3d 3d 27 5c 27 27 20 29 20 62 75 66  f( c=='\'' ) buf
55a0: 70 74 5b 6a 2b 2b 5d 20 3d 20 63 3b 0a 20 20 20  pt[j++] = c;.   
55b0: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20         }.       
55c0: 20 20 20 62 75 66 70 74 5b 6a 5d 20 3d 20 30 3b     bufpt[j] = 0;
55d0: 0a 20 20 20 20 20 20 20 20 20 20 6c 65 6e 67 74  .          lengt
55e0: 68 20 3d 20 6a 3b 0a 20 20 20 20 20 20 20 20 20  h = j;.         
55f0: 20 69 66 28 20 70 72 65 63 69 73 69 6f 6e 3e 3d   if( precision>=
5600: 30 20 26 26 20 70 72 65 63 69 73 69 6f 6e 3c 6c  0 && precision<l
5610: 65 6e 67 74 68 20 29 20 6c 65 6e 67 74 68 20 3d  ength ) length =
5620: 20 70 72 65 63 69 73 69 6f 6e 3b 0a 20 20 20 20   precision;.    
5630: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 62 72      }.        br
5640: 65 61 6b 3b 0a 20 20 20 20 20 20 63 61 73 65 20  eak;.      case 
5650: 65 74 45 52 52 4f 52 3a 0a 20 20 20 20 20 20 20  etERROR:.       
5660: 20 62 75 66 5b 30 5d 20 3d 20 27 25 27 3b 0a 20   buf[0] = '%';. 
5670: 20 20 20 20 20 20 20 62 75 66 5b 31 5d 20 3d 20         buf[1] = 
5680: 63 3b 0a 20 20 20 20 20 20 20 20 65 72 72 6f 72  c;.        error
5690: 66 6c 61 67 20 3d 20 30 3b 0a 20 20 20 20 20 20  flag = 0;.      
56a0: 20 20 69 64 78 20 3d 20 31 2b 28 63 21 3d 30 29    idx = 1+(c!=0)
56b0: 3b 0a 20 20 20 20 20 20 20 20 28 2a 66 75 6e 63  ;.        (*func
56c0: 29 28 61 72 67 2c 22 25 22 2c 69 64 78 29 3b 0a  )(arg,"%",idx);.
56d0: 20 20 20 20 20 20 20 20 63 6f 75 6e 74 20 2b 3d          count +=
56e0: 20 69 64 78 3b 0a 20 20 20 20 20 20 20 20 69 66   idx;.        if
56f0: 28 20 63 3d 3d 30 20 29 20 66 6d 74 2d 2d 3b 0a  ( c==0 ) fmt--;.
5700: 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20          break;. 
5710: 20 20 20 7d 2f 2a 20 45 6e 64 20 73 77 69 74 63     }/* End switc
5720: 68 20 6f 76 65 72 20 74 68 65 20 66 6f 72 6d 61  h over the forma
5730: 74 20 74 79 70 65 20 2a 2f 0a 20 20 20 20 2f 2a  t type */.    /*
5740: 0a 20 20 20 20 2a 2a 20 54 68 65 20 74 65 78 74  .    ** The text
5750: 20 6f 66 20 74 68 65 20 63 6f 6e 76 65 72 73 69   of the conversi
5760: 6f 6e 20 69 73 20 70 6f 69 6e 74 65 64 20 74 6f  on is pointed to
5770: 20 62 79 20 22 62 75 66 70 74 22 20 61 6e 64 20   by "bufpt" and 
5780: 69 73 0a 20 20 20 20 2a 2a 20 22 6c 65 6e 67 74  is.    ** "lengt
5790: 68 22 20 63 68 61 72 61 63 74 65 72 73 20 6c 6f  h" characters lo
57a0: 6e 67 2e 20 20 54 68 65 20 66 69 65 6c 64 20 77  ng.  The field w
57b0: 69 64 74 68 20 69 73 20 22 77 69 64 74 68 22 2e  idth is "width".
57c0: 20 20 44 6f 0a 20 20 20 20 2a 2a 20 74 68 65 20    Do.    ** the 
57d0: 6f 75 74 70 75 74 2e 0a 20 20 20 20 2a 2f 0a 20  output..    */. 
57e0: 20 20 20 69 66 28 20 21 66 6c 61 67 5f 6c 65 66     if( !flag_lef
57f0: 74 6a 75 73 74 69 66 79 20 29 7b 0a 20 20 20 20  tjustify ){.    
5800: 20 20 72 65 67 69 73 74 65 72 20 69 6e 74 20 6e    register int n
5810: 73 70 61 63 65 3b 0a 20 20 20 20 20 20 6e 73 70  space;.      nsp
5820: 61 63 65 20 3d 20 77 69 64 74 68 2d 6c 65 6e 67  ace = width-leng
5830: 74 68 3b 0a 20 20 20 20 20 20 69 66 28 20 6e 73  th;.      if( ns
5840: 70 61 63 65 3e 30 20 29 7b 0a 20 20 20 20 20 20  pace>0 ){.      
5850: 20 20 69 66 28 20 66 6c 61 67 5f 63 65 6e 74 65    if( flag_cente
5860: 72 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 6e  r ){.          n
5870: 73 70 61 63 65 20 3d 20 6e 73 70 61 63 65 2f 32  space = nspace/2
5880: 3b 0a 20 20 20 20 20 20 20 20 20 20 77 69 64 74  ;.          widt
5890: 68 20 2d 3d 20 6e 73 70 61 63 65 3b 0a 20 20 20  h -= nspace;.   
58a0: 20 20 20 20 20 20 20 66 6c 61 67 5f 6c 65 66 74         flag_left
58b0: 6a 75 73 74 69 66 79 20 3d 20 31 3b 0a 09 7d 0a  justify = 1;..}.
58c0: 20 20 20 20 20 20 20 20 63 6f 75 6e 74 20 2b 3d          count +=
58d0: 20 6e 73 70 61 63 65 3b 0a 20 20 20 20 20 20 20   nspace;.       
58e0: 20 77 68 69 6c 65 28 20 6e 73 70 61 63 65 3e 3d   while( nspace>=
58f0: 65 74 53 50 41 43 45 53 49 5a 45 20 29 7b 0a 20  etSPACESIZE ){. 
5900: 20 20 20 20 20 20 20 20 20 28 2a 66 75 6e 63 29           (*func)
5910: 28 61 72 67 2c 73 70 61 63 65 73 2c 65 74 53 50  (arg,spaces,etSP
5920: 41 43 45 53 49 5a 45 29 3b 0a 20 20 20 20 20 20  ACESIZE);.      
5930: 20 20 20 20 6e 73 70 61 63 65 20 2d 3d 20 65 74      nspace -= et
5940: 53 50 41 43 45 53 49 5a 45 3b 0a 20 20 20 20 20  SPACESIZE;.     
5950: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 69 66 28     }.        if(
5960: 20 6e 73 70 61 63 65 3e 30 20 29 20 28 2a 66 75   nspace>0 ) (*fu
5970: 6e 63 29 28 61 72 67 2c 73 70 61 63 65 73 2c 6e  nc)(arg,spaces,n
5980: 73 70 61 63 65 29 3b 0a 20 20 20 20 20 20 7d 0a  space);.      }.
5990: 20 20 20 20 7d 0a 20 20 20 20 69 66 28 20 6c 65      }.    if( le
59a0: 6e 67 74 68 3e 30 20 29 7b 0a 20 20 20 20 20 20  ngth>0 ){.      
59b0: 28 2a 66 75 6e 63 29 28 61 72 67 2c 62 75 66 70  (*func)(arg,bufp
59c0: 74 2c 6c 65 6e 67 74 68 29 3b 0a 20 20 20 20 20  t,length);.     
59d0: 20 63 6f 75 6e 74 20 2b 3d 20 6c 65 6e 67 74 68   count += length
59e0: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 28 20  ;.    }.    if( 
59f0: 66 6c 61 67 5f 6c 65 66 74 6a 75 73 74 69 66 79  flag_leftjustify
5a00: 20 29 7b 0a 20 20 20 20 20 20 72 65 67 69 73 74   ){.      regist
5a10: 65 72 20 69 6e 74 20 6e 73 70 61 63 65 3b 0a 20  er int nspace;. 
5a20: 20 20 20 20 20 6e 73 70 61 63 65 20 3d 20 77 69       nspace = wi
5a30: 64 74 68 2d 6c 65 6e 67 74 68 3b 0a 20 20 20 20  dth-length;.    
5a40: 20 20 69 66 28 20 6e 73 70 61 63 65 3e 30 20 29    if( nspace>0 )
5a50: 7b 0a 20 20 20 20 20 20 20 20 63 6f 75 6e 74 20  {.        count 
5a60: 2b 3d 20 6e 73 70 61 63 65 3b 0a 20 20 20 20 20  += nspace;.     
5a70: 20 20 20 77 68 69 6c 65 28 20 6e 73 70 61 63 65     while( nspace
5a80: 3e 3d 65 74 53 50 41 43 45 53 49 5a 45 20 29 7b  >=etSPACESIZE ){
5a90: 0a 20 20 20 20 20 20 20 20 20 20 28 2a 66 75 6e  .          (*fun
5aa0: 63 29 28 61 72 67 2c 73 70 61 63 65 73 2c 65 74  c)(arg,spaces,et
5ab0: 53 50 41 43 45 53 49 5a 45 29 3b 0a 20 20 20 20  SPACESIZE);.    
5ac0: 20 20 20 20 20 20 6e 73 70 61 63 65 20 2d 3d 20        nspace -= 
5ad0: 65 74 53 50 41 43 45 53 49 5a 45 3b 0a 20 20 20  etSPACESIZE;.   
5ae0: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 69       }.        i
5af0: 66 28 20 6e 73 70 61 63 65 3e 30 20 29 20 28 2a  f( nspace>0 ) (*
5b00: 66 75 6e 63 29 28 61 72 67 2c 73 70 61 63 65 73  func)(arg,spaces
5b10: 2c 6e 73 70 61 63 65 29 3b 0a 20 20 20 20 20 20  ,nspace);.      
5b20: 7d 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 28 20  }.    }.    if( 
5b30: 7a 45 78 74 72 61 20 29 7b 0a 20 20 20 20 20 20  zExtra ){.      
5b40: 73 71 6c 69 74 65 46 72 65 65 28 7a 45 78 74 72  sqliteFree(zExtr
5b50: 61 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 2f 2a 20  a);.    }.  }/* 
5b60: 45 6e 64 20 66 6f 72 20 6c 6f 6f 70 20 6f 76 65  End for loop ove
5b70: 72 20 74 68 65 20 66 6f 72 6d 61 74 20 73 74 72  r the format str
5b80: 69 6e 67 20 2a 2f 0a 20 20 72 65 74 75 72 6e 20  ing */.  return 
5b90: 65 72 72 6f 72 66 6c 61 67 20 3f 20 2d 31 20 3a  errorflag ? -1 :
5ba0: 20 63 6f 75 6e 74 3b 0a 7d 20 2f 2a 20 45 6e 64   count;.} /* End
5bb0: 20 6f 66 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a   of function */.
5bc0: 0a 0a 2f 2a 20 54 68 69 73 20 73 74 72 75 63 74  ../* This struct
5bd0: 75 72 65 20 69 73 20 75 73 65 64 20 74 6f 20 73  ure is used to s
5be0: 74 6f 72 65 20 73 74 61 74 65 20 69 6e 66 6f 72  tore state infor
5bf0: 6d 61 74 69 6f 6e 20 61 62 6f 75 74 20 74 68 65  mation about the
5c00: 0a 2a 2a 20 77 72 69 74 65 20 74 6f 20 6d 65 6d  .** write to mem
5c10: 6f 72 79 20 74 68 61 74 20 69 73 20 63 75 72 72  ory that is curr
5c20: 65 6e 74 6c 79 20 69 6e 20 70 72 6f 67 72 65 73  ently in progres
5c30: 73 2e 0a 2a 2f 0a 73 74 72 75 63 74 20 73 67 4d  s..*/.struct sgM
5c40: 70 72 69 6e 74 66 20 7b 0a 20 20 63 68 61 72 20  printf {.  char 
5c50: 2a 7a 42 61 73 65 3b 20 20 20 20 20 2f 2a 20 41  *zBase;     /* A
5c60: 20 62 61 73 65 20 61 6c 6c 6f 63 61 74 69 6f 6e   base allocation
5c70: 20 2a 2f 0a 20 20 63 68 61 72 20 2a 7a 54 65 78   */.  char *zTex
5c80: 74 3b 20 20 20 20 20 2f 2a 20 54 68 65 20 73 74  t;     /* The st
5c90: 72 69 6e 67 20 63 6f 6c 6c 65 63 74 65 64 20 73  ring collected s
5ca0: 6f 20 66 61 72 20 2a 2f 0a 20 20 69 6e 74 20 20  o far */.  int  
5cb0: 6e 43 68 61 72 3b 20 20 20 20 20 20 2f 2a 20 4c  nChar;      /* L
5cc0: 65 6e 67 74 68 20 6f 66 20 74 68 65 20 73 74 72  ength of the str
5cd0: 69 6e 67 20 73 6f 20 66 61 72 20 2a 2f 0a 20 20  ing so far */.  
5ce0: 69 6e 74 20 20 6e 41 6c 6c 6f 63 3b 20 20 20 20  int  nAlloc;    
5cf0: 20 2f 2a 20 41 6d 6f 75 6e 74 20 6f 66 20 73 70   /* Amount of sp
5d00: 61 63 65 20 61 6c 6c 6f 63 61 74 65 64 20 69 6e  ace allocated in
5d10: 20 7a 54 65 78 74 20 2a 2f 0a 7d 3b 0a 0a 2f 2a   zText */.};../*
5d20: 20 0a 2a 2a 20 54 68 69 73 20 66 75 6e 63 74 69   .** This functi
5d30: 6f 6e 20 69 6d 70 6c 65 6d 65 6e 74 73 20 74 68  on implements th
5d40: 65 20 63 61 6c 6c 62 61 63 6b 20 66 72 6f 6d 20  e callback from 
5d50: 76 78 70 72 69 6e 74 66 2e 20 0a 2a 2a 0a 2a 2a  vxprintf. .**.**
5d60: 20 54 68 69 73 20 72 6f 75 74 69 6e 65 20 61 64   This routine ad
5d70: 64 20 6e 4e 65 77 43 68 61 72 20 63 68 61 72 61  d nNewChar chara
5d80: 63 74 65 72 73 20 6f 66 20 74 65 78 74 20 69 6e  cters of text in
5d90: 20 7a 4e 65 77 54 65 78 74 20 74 6f 0a 2a 2a 20   zNewText to.** 
5da0: 74 68 65 20 73 67 4d 70 72 69 6e 74 66 20 73 74  the sgMprintf st
5db0: 72 75 63 74 75 72 65 20 70 6f 69 6e 74 65 64 20  ructure pointed 
5dc0: 74 6f 20 62 79 20 22 61 72 67 22 2e 0a 2a 2f 0a  to by "arg"..*/.
5dd0: 73 74 61 74 69 63 20 76 6f 69 64 20 6d 6f 75 74  static void mout
5de0: 28 76 6f 69 64 20 2a 61 72 67 2c 20 63 68 61 72  (void *arg, char
5df0: 20 2a 7a 4e 65 77 54 65 78 74 2c 20 69 6e 74 20   *zNewText, int 
5e00: 6e 4e 65 77 43 68 61 72 29 7b 0a 20 20 73 74 72  nNewChar){.  str
5e10: 75 63 74 20 73 67 4d 70 72 69 6e 74 66 20 2a 70  uct sgMprintf *p
5e20: 4d 20 3d 20 28 73 74 72 75 63 74 20 73 67 4d 70  M = (struct sgMp
5e30: 72 69 6e 74 66 2a 29 61 72 67 3b 0a 20 20 69 66  rintf*)arg;.  if
5e40: 28 20 70 4d 2d 3e 6e 43 68 61 72 20 2b 20 6e 4e  ( pM->nChar + nN
5e50: 65 77 43 68 61 72 20 2b 20 31 20 3e 20 70 4d 2d  ewChar + 1 > pM-
5e60: 3e 6e 41 6c 6c 6f 63 20 29 7b 0a 20 20 20 20 70  >nAlloc ){.    p
5e70: 4d 2d 3e 6e 41 6c 6c 6f 63 20 3d 20 70 4d 2d 3e  M->nAlloc = pM->
5e80: 6e 43 68 61 72 20 2b 20 6e 4e 65 77 43 68 61 72  nChar + nNewChar
5e90: 2a 32 20 2b 20 31 3b 0a 20 20 20 20 69 66 28 20  *2 + 1;.    if( 
5ea0: 70 4d 2d 3e 7a 54 65 78 74 3d 3d 70 4d 2d 3e 7a  pM->zText==pM->z
5eb0: 42 61 73 65 20 29 7b 0a 20 20 20 20 20 20 70 4d  Base ){.      pM
5ec0: 2d 3e 7a 54 65 78 74 20 3d 20 73 71 6c 69 74 65  ->zText = sqlite
5ed0: 4d 61 6c 6c 6f 63 28 70 4d 2d 3e 6e 41 6c 6c 6f  Malloc(pM->nAllo
5ee0: 63 29 3b 0a 20 20 20 20 20 20 69 66 28 20 70 4d  c);.      if( pM
5ef0: 2d 3e 7a 54 65 78 74 20 26 26 20 70 4d 2d 3e 6e  ->zText && pM->n
5f00: 43 68 61 72 20 29 20 6d 65 6d 63 70 79 28 70 4d  Char ) memcpy(pM
5f10: 2d 3e 7a 54 65 78 74 2c 70 4d 2d 3e 7a 42 61 73  ->zText,pM->zBas
5f20: 65 2c 70 4d 2d 3e 6e 43 68 61 72 29 3b 0a 20 20  e,pM->nChar);.  
5f30: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 70    }else{.      p
5f40: 4d 2d 3e 7a 54 65 78 74 20 3d 20 73 71 6c 69 74  M->zText = sqlit
5f50: 65 52 65 61 6c 6c 6f 63 28 70 4d 2d 3e 7a 54 65  eRealloc(pM->zTe
5f60: 78 74 2c 20 70 4d 2d 3e 6e 41 6c 6c 6f 63 29 3b  xt, pM->nAlloc);
5f70: 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 69 66 28  .    }.  }.  if(
5f80: 20 70 4d 2d 3e 7a 54 65 78 74 20 29 7b 0a 20 20   pM->zText ){.  
5f90: 20 20 6d 65 6d 63 70 79 28 26 70 4d 2d 3e 7a 54    memcpy(&pM->zT
5fa0: 65 78 74 5b 70 4d 2d 3e 6e 43 68 61 72 5d 2c 20  ext[pM->nChar], 
5fb0: 7a 4e 65 77 54 65 78 74 2c 20 6e 4e 65 77 43 68  zNewText, nNewCh
5fc0: 61 72 29 3b 0a 20 20 20 20 70 4d 2d 3e 6e 43 68  ar);.    pM->nCh
5fd0: 61 72 20 2b 3d 20 6e 4e 65 77 43 68 61 72 3b 0a  ar += nNewChar;.
5fe0: 20 20 20 20 70 4d 2d 3e 7a 54 65 78 74 5b 70 4d      pM->zText[pM
5ff0: 2d 3e 6e 43 68 61 72 5d 20 3d 20 30 3b 0a 20 20  ->nChar] = 0;.  
6000: 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 73 71 6c 69 74  }.}../*.** sqlit
6010: 65 5f 6d 70 72 69 6e 74 66 28 29 20 77 6f 72 6b  e_mprintf() work
6020: 73 20 6c 69 6b 65 20 70 72 69 6e 74 66 28 29 2c  s like printf(),
6030: 20 62 75 74 20 61 6c 6c 6f 63 61 74 69 6f 6e 73   but allocations
6040: 20 6d 65 6d 6f 72 79 20 74 6f 20 68 6f 6c 64 20   memory to hold 
6050: 74 68 65 0a 2a 2a 20 72 65 73 75 6c 74 69 6e 67  the.** resulting
6060: 20 73 74 72 69 6e 67 20 61 6e 64 20 72 65 74 75   string and retu
6070: 72 6e 73 20 61 20 70 6f 69 6e 74 65 72 20 74 6f  rns a pointer to
6080: 20 74 68 65 20 61 6c 6c 6f 63 61 74 65 64 20 6d   the allocated m
6090: 65 6d 6f 72 79 2e 20 20 55 73 65 0a 2a 2a 20 73  emory.  Use.** s
60a0: 71 6c 69 74 65 46 72 65 65 28 29 20 74 6f 20 72  qliteFree() to r
60b0: 65 6c 65 61 73 65 20 74 68 65 20 6d 65 6d 6f 72  elease the memor
60c0: 79 20 61 6c 6c 6f 63 61 74 65 64 2e 0a 2a 2f 0a  y allocated..*/.
60d0: 63 68 61 72 20 2a 73 71 6c 69 74 65 5f 6d 70 72  char *sqlite_mpr
60e0: 69 6e 74 66 28 63 6f 6e 73 74 20 63 68 61 72 20  intf(const char 
60f0: 2a 7a 46 6f 72 6d 61 74 2c 20 2e 2e 2e 29 7b 0a  *zFormat, ...){.
6100: 20 20 76 61 5f 6c 69 73 74 20 61 70 3b 0a 20 20    va_list ap;.  
6110: 73 74 72 75 63 74 20 73 67 4d 70 72 69 6e 74 66  struct sgMprintf
6120: 20 73 4d 70 72 69 6e 74 66 3b 0a 20 20 63 68 61   sMprintf;.  cha
6130: 72 20 2a 7a 4e 65 77 3b 0a 20 20 63 68 61 72 20  r *zNew;.  char 
6140: 7a 42 75 66 5b 32 30 30 5d 3b 0a 0a 20 20 73 4d  zBuf[200];..  sM
6150: 70 72 69 6e 74 66 2e 6e 43 68 61 72 20 3d 20 30  printf.nChar = 0
6160: 3b 0a 20 20 73 4d 70 72 69 6e 74 66 2e 6e 41 6c  ;.  sMprintf.nAl
6170: 6c 6f 63 20 3d 20 73 69 7a 65 6f 66 28 7a 42 75  loc = sizeof(zBu
6180: 66 29 3b 0a 20 20 73 4d 70 72 69 6e 74 66 2e 7a  f);.  sMprintf.z
6190: 54 65 78 74 20 3d 20 7a 42 75 66 3b 0a 20 20 73  Text = zBuf;.  s
61a0: 4d 70 72 69 6e 74 66 2e 7a 42 61 73 65 20 3d 20  Mprintf.zBase = 
61b0: 7a 42 75 66 3b 0a 20 20 76 61 5f 73 74 61 72 74  zBuf;.  va_start
61c0: 28 61 70 2c 7a 46 6f 72 6d 61 74 29 3b 0a 20 20  (ap,zFormat);.  
61d0: 76 78 70 72 69 6e 74 66 28 6d 6f 75 74 2c 26 73  vxprintf(mout,&s
61e0: 4d 70 72 69 6e 74 66 2c 7a 46 6f 72 6d 61 74 2c  Mprintf,zFormat,
61f0: 61 70 29 3b 0a 20 20 76 61 5f 65 6e 64 28 61 70  ap);.  va_end(ap
6200: 29 3b 0a 20 20 73 4d 70 72 69 6e 74 66 2e 7a 54  );.  sMprintf.zT
6210: 65 78 74 5b 73 4d 70 72 69 6e 74 66 2e 6e 43 68  ext[sMprintf.nCh
6220: 61 72 5d 20 3d 20 30 3b 0a 20 20 69 66 28 20 73  ar] = 0;.  if( s
6230: 4d 70 72 69 6e 74 66 2e 7a 54 65 78 74 3d 3d 73  Mprintf.zText==s
6240: 4d 70 72 69 6e 74 66 2e 7a 42 61 73 65 20 29 7b  Mprintf.zBase ){
6250: 0a 20 20 20 20 7a 4e 65 77 20 3d 20 73 71 6c 69  .    zNew = sqli
6260: 74 65 4d 61 6c 6c 6f 63 28 20 73 4d 70 72 69 6e  teMalloc( sMprin
6270: 74 66 2e 6e 43 68 61 72 2b 31 20 29 3b 0a 20 20  tf.nChar+1 );.  
6280: 20 20 69 66 28 20 7a 4e 65 77 20 29 20 73 74 72    if( zNew ) str
6290: 63 70 79 28 7a 4e 65 77 2c 7a 42 75 66 29 3b 0a  cpy(zNew,zBuf);.
62a0: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 7a 4e 65    }else{.    zNe
62b0: 77 20 3d 20 73 71 6c 69 74 65 52 65 61 6c 6c 6f  w = sqliteReallo
62c0: 63 28 73 4d 70 72 69 6e 74 66 2e 7a 54 65 78 74  c(sMprintf.zText
62d0: 2c 73 4d 70 72 69 6e 74 66 2e 6e 43 68 61 72 2b  ,sMprintf.nChar+
62e0: 31 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e  1);.  }.  return
62f0: 20 7a 4e 65 77 3b 0a 7d 0a 0a 2f 2a 20 54 68 69   zNew;.}../* Thi
6300: 73 20 69 73 20 74 68 65 20 76 61 72 61 72 67 73  s is the varargs
6310: 20 76 65 72 73 69 6f 6e 20 6f 66 20 73 71 6c 69   version of sqli
6320: 74 65 5f 6d 70 72 69 6e 74 66 2e 20 20 0a 2a 2f  te_mprintf.  .*/
6330: 0a 63 68 61 72 20 2a 73 71 6c 69 74 65 5f 76 6d  .char *sqlite_vm
6340: 70 72 69 6e 74 66 28 63 6f 6e 73 74 20 63 68 61  printf(const cha
6350: 72 20 2a 7a 46 6f 72 6d 61 74 2c 20 76 61 5f 6c  r *zFormat, va_l
6360: 69 73 74 20 61 70 29 7b 0a 20 20 73 74 72 75 63  ist ap){.  struc
6370: 74 20 73 67 4d 70 72 69 6e 74 66 20 73 4d 70 72  t sgMprintf sMpr
6380: 69 6e 74 66 3b 0a 20 20 63 68 61 72 20 7a 42 75  intf;.  char zBu
6390: 66 5b 32 30 30 5d 3b 0a 20 20 73 4d 70 72 69 6e  f[200];.  sMprin
63a0: 74 66 2e 6e 43 68 61 72 20 3d 20 30 3b 0a 20 20  tf.nChar = 0;.  
63b0: 73 4d 70 72 69 6e 74 66 2e 7a 54 65 78 74 20 3d  sMprintf.zText =
63c0: 20 7a 42 75 66 3b 0a 20 20 73 4d 70 72 69 6e 74   zBuf;.  sMprint
63d0: 66 2e 6e 41 6c 6c 6f 63 20 3d 20 73 69 7a 65 6f  f.nAlloc = sizeo
63e0: 66 28 7a 42 75 66 29 3b 0a 20 20 73 4d 70 72 69  f(zBuf);.  sMpri
63f0: 6e 74 66 2e 7a 42 61 73 65 20 3d 20 7a 42 75 66  ntf.zBase = zBuf
6400: 3b 0a 20 20 76 78 70 72 69 6e 74 66 28 6d 6f 75  ;.  vxprintf(mou
6410: 74 2c 26 73 4d 70 72 69 6e 74 66 2c 7a 46 6f 72  t,&sMprintf,zFor
6420: 6d 61 74 2c 61 70 29 3b 0a 20 20 73 4d 70 72 69  mat,ap);.  sMpri
6430: 6e 74 66 2e 7a 54 65 78 74 5b 73 4d 70 72 69 6e  ntf.zText[sMprin
6440: 74 66 2e 6e 43 68 61 72 5d 20 3d 20 30 3b 0a 20  tf.nChar] = 0;. 
6450: 20 69 66 28 20 73 4d 70 72 69 6e 74 66 2e 7a 54   if( sMprintf.zT
6460: 65 78 74 3d 3d 73 4d 70 72 69 6e 74 66 2e 7a 42  ext==sMprintf.zB
6470: 61 73 65 20 29 7b 0a 20 20 20 20 73 4d 70 72 69  ase ){.    sMpri
6480: 6e 74 66 2e 7a 54 65 78 74 20 3d 20 73 71 6c 69  ntf.zText = sqli
6490: 74 65 4d 61 6c 6c 6f 63 28 20 73 74 72 6c 65 6e  teMalloc( strlen
64a0: 28 7a 42 75 66 29 2b 31 20 29 3b 0a 20 20 20 20  (zBuf)+1 );.    
64b0: 69 66 28 20 73 4d 70 72 69 6e 74 66 2e 7a 54 65  if( sMprintf.zTe
64c0: 78 74 20 29 20 73 74 72 63 70 79 28 73 4d 70 72  xt ) strcpy(sMpr
64d0: 69 6e 74 66 2e 7a 54 65 78 74 2c 7a 42 75 66 29  intf.zText,zBuf)
64e0: 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 73  ;.  }else{.    s
64f0: 4d 70 72 69 6e 74 66 2e 7a 54 65 78 74 20 3d 20  Mprintf.zText = 
6500: 73 71 6c 69 74 65 52 65 61 6c 6c 6f 63 28 73 4d  sqliteRealloc(sM
6510: 70 72 69 6e 74 66 2e 7a 54 65 78 74 2c 73 4d 70  printf.zText,sMp
6520: 72 69 6e 74 66 2e 6e 43 68 61 72 2b 31 29 3b 0a  rintf.nChar+1);.
6530: 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 73 4d 70    }.  return sMp
6540: 72 69 6e 74 66 2e 7a 54 65 78 74 3b 0a 7d 0a 0a  rintf.zText;.}..
6550: 2f 2a 0a 2a 2a 20 54 68 65 20 66 6f 6c 6c 6f 77  /*.** The follow
6560: 69 6e 67 20 66 6f 75 72 20 72 6f 75 74 69 6e 65  ing four routine
6570: 73 20 69 6d 70 6c 65 6d 65 6e 74 20 74 68 65 20  s implement the 
6580: 76 61 72 61 72 67 73 20 76 65 72 73 69 6f 6e 73  varargs versions
6590: 20 6f 66 20 74 68 65 0a 2a 2a 20 73 71 6c 69 74   of the.** sqlit
65a0: 65 5f 65 78 65 63 28 29 20 61 6e 64 20 73 71 6c  e_exec() and sql
65b0: 69 74 65 5f 67 65 74 5f 74 61 62 6c 65 28 29 20  ite_get_table() 
65c0: 69 6e 74 65 72 66 61 63 65 73 2e 20 20 53 65 65  interfaces.  See
65d0: 20 74 68 65 20 73 71 6c 69 74 65 2e 68 0a 2a 2a   the sqlite.h.**
65e0: 20 68 65 61 64 65 72 20 66 69 6c 65 73 20 66 6f   header files fo
65f0: 72 20 61 20 6d 6f 72 65 20 64 65 74 61 69 6c 65  r a more detaile
6600: 64 20 64 65 73 63 72 69 70 74 69 6f 6e 20 6f 66  d description of
6610: 20 68 6f 77 20 74 68 65 73 65 20 69 6e 74 65 72   how these inter
6620: 66 61 63 65 73 0a 2a 2a 20 77 6f 72 6b 2e 0a 2a  faces.** work..*
6630: 2a 0a 2a 2a 20 54 68 65 73 65 20 72 6f 75 74 69  *.** These routi
6640: 6e 65 73 20 61 72 65 20 61 6c 6c 20 6a 75 73 74  nes are all just
6650: 20 73 69 6d 70 6c 65 20 77 72 61 70 70 65 72 73   simple wrappers
6660: 2e 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 74 65 5f  ..*/.int sqlite_
6670: 65 78 65 63 5f 70 72 69 6e 74 66 28 0a 20 20 73  exec_printf(.  s
6680: 71 6c 69 74 65 20 2a 64 62 2c 20 20 20 20 20 20  qlite *db,      
6690: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
66a0: 41 6e 20 6f 70 65 6e 20 64 61 74 61 62 61 73 65  An open database
66b0: 20 2a 2f 0a 20 20 63 68 61 72 20 2a 73 71 6c 46   */.  char *sqlF
66c0: 6f 72 6d 61 74 2c 20 20 20 20 20 20 20 20 20 20  ormat,          
66d0: 20 20 20 20 2f 2a 20 70 72 69 6e 74 66 2d 73 74      /* printf-st
66e0: 79 6c 65 20 66 6f 72 6d 61 74 20 73 74 72 69 6e  yle format strin
66f0: 67 20 66 6f 72 20 74 68 65 20 53 51 4c 20 2a 2f  g for the SQL */
6700: 0a 20 20 73 71 6c 69 74 65 5f 63 61 6c 6c 62 61  .  sqlite_callba
6710: 63 6b 20 78 43 61 6c 6c 62 61 63 6b 2c 20 20 20  ck xCallback,   
6720: 20 2f 2a 20 43 61 6c 6c 62 61 63 6b 20 66 75 6e   /* Callback fun
6730: 63 74 69 6f 6e 20 2a 2f 0a 20 20 76 6f 69 64 20  ction */.  void 
6740: 2a 70 41 72 67 2c 20 20 20 20 20 20 20 20 20 20  *pArg,          
6750: 20 20 20 20 20 20 20 20 20 2f 2a 20 31 73 74 20           /* 1st 
6760: 61 72 67 75 6d 65 6e 74 20 74 6f 20 63 61 6c 6c  argument to call
6770: 62 61 63 6b 20 66 75 6e 63 74 69 6f 6e 20 2a 2f  back function */
6780: 0a 20 20 63 68 61 72 20 2a 2a 65 72 72 6d 73 67  .  char **errmsg
6790: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ,               
67a0: 20 2f 2a 20 45 72 72 6f 72 20 6d 73 67 20 77 72   /* Error msg wr
67b0: 69 74 74 65 6e 20 68 65 72 65 20 2a 2f 0a 20 20  itten here */.  
67c0: 2e 2e 2e 20 20 20 20 20 20 20 20 20 20 20 20 20  ...             
67d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
67e0: 20 41 72 67 75 6d 65 6e 74 73 20 74 6f 20 74 68   Arguments to th
67f0: 65 20 66 6f 72 6d 61 74 20 73 74 72 69 6e 67 2e  e format string.
6800: 20 2a 2f 0a 29 7b 0a 20 20 76 61 5f 6c 69 73 74   */.){.  va_list
6810: 20 61 70 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 0a   ap;.  int rc;..
6820: 20 20 76 61 5f 73 74 61 72 74 28 61 70 2c 20 65    va_start(ap, e
6830: 72 72 6d 73 67 29 3b 0a 20 20 72 63 20 3d 20 73  rrmsg);.  rc = s
6840: 71 6c 69 74 65 5f 65 78 65 63 5f 76 70 72 69 6e  qlite_exec_vprin
6850: 74 66 28 64 62 2c 20 73 71 6c 46 6f 72 6d 61 74  tf(db, sqlFormat
6860: 2c 20 78 43 61 6c 6c 62 61 63 6b 2c 20 70 41 72  , xCallback, pAr
6870: 67 2c 20 65 72 72 6d 73 67 2c 20 61 70 29 3b 0a  g, errmsg, ap);.
6880: 20 20 76 61 5f 65 6e 64 28 61 70 29 3b 0a 20 20    va_end(ap);.  
6890: 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 69 6e 74  return rc;.}.int
68a0: 20 73 71 6c 69 74 65 5f 65 78 65 63 5f 76 70 72   sqlite_exec_vpr
68b0: 69 6e 74 66 28 0a 20 20 73 71 6c 69 74 65 20 2a  intf(.  sqlite *
68c0: 64 62 2c 20 20 20 20 20 20 20 20 20 20 20 20 20  db,             
68d0: 20 20 20 20 20 20 2f 2a 20 41 6e 20 6f 70 65 6e        /* An open
68e0: 20 64 61 74 61 62 61 73 65 20 2a 2f 0a 20 20 63   database */.  c
68f0: 68 61 72 20 2a 73 71 6c 46 6f 72 6d 61 74 2c 20  har *sqlFormat, 
6900: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
6910: 70 72 69 6e 74 66 2d 73 74 79 6c 65 20 66 6f 72  printf-style for
6920: 6d 61 74 20 73 74 72 69 6e 67 20 66 6f 72 20 74  mat string for t
6930: 68 65 20 53 51 4c 20 2a 2f 0a 20 20 73 71 6c 69  he SQL */.  sqli
6940: 74 65 5f 63 61 6c 6c 62 61 63 6b 20 78 43 61 6c  te_callback xCal
6950: 6c 62 61 63 6b 2c 20 20 20 20 2f 2a 20 43 61 6c  lback,    /* Cal
6960: 6c 62 61 63 6b 20 66 75 6e 63 74 69 6f 6e 20 2a  lback function *
6970: 2f 0a 20 20 76 6f 69 64 20 2a 70 41 72 67 2c 20  /.  void *pArg, 
6980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
6990: 20 20 2f 2a 20 31 73 74 20 61 72 67 75 6d 65 6e    /* 1st argumen
69a0: 74 20 74 6f 20 63 61 6c 6c 62 61 63 6b 20 66 75  t to callback fu
69b0: 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 63 68 61 72  nction */.  char
69c0: 20 2a 2a 65 72 72 6d 73 67 2c 20 20 20 20 20 20   **errmsg,      
69d0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 45 72 72            /* Err
69e0: 6f 72 20 6d 73 67 20 77 72 69 74 74 65 6e 20 68  or msg written h
69f0: 65 72 65 20 2a 2f 0a 20 20 76 61 5f 6c 69 73 74  ere */.  va_list
6a00: 20 61 70 20 20 20 20 20 20 20 20 20 20 20 20 20   ap             
6a10: 20 20 20 20 20 20 20 2f 2a 20 41 72 67 75 6d 65         /* Argume
6a20: 6e 74 73 20 74 6f 20 74 68 65 20 66 6f 72 6d 61  nts to the forma
6a30: 74 20 73 74 72 69 6e 67 2e 20 2a 2f 0a 29 7b 0a  t string. */.){.
6a40: 20 20 63 68 61 72 20 2a 7a 53 71 6c 3b 0a 20 20    char *zSql;.  
6a50: 69 6e 74 20 72 63 3b 0a 0a 20 20 7a 53 71 6c 20  int rc;..  zSql 
6a60: 3d 20 73 71 6c 69 74 65 5f 76 6d 70 72 69 6e 74  = sqlite_vmprint
6a70: 66 28 73 71 6c 46 6f 72 6d 61 74 2c 20 61 70 29  f(sqlFormat, ap)
6a80: 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 5f  ;.  rc = sqlite_
6a90: 65 78 65 63 28 64 62 2c 20 7a 53 71 6c 2c 20 78  exec(db, zSql, x
6aa0: 43 61 6c 6c 62 61 63 6b 2c 20 70 41 72 67 2c 20  Callback, pArg, 
6ab0: 65 72 72 6d 73 67 29 3b 0a 20 20 73 71 6c 69 74  errmsg);.  sqlit
6ac0: 65 46 72 65 65 28 7a 53 71 6c 29 3b 0a 20 20 72  eFree(zSql);.  r
6ad0: 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 69 6e 74 20  eturn rc;.}.int 
6ae0: 73 71 6c 69 74 65 5f 67 65 74 5f 74 61 62 6c 65  sqlite_get_table
6af0: 5f 70 72 69 6e 74 66 28 0a 20 20 73 71 6c 69 74  _printf(.  sqlit
6b00: 65 20 2a 64 62 2c 20 20 20 20 20 20 20 20 20 20  e *db,          
6b10: 20 20 2f 2a 20 41 6e 20 6f 70 65 6e 20 64 61 74    /* An open dat
6b20: 61 62 61 73 65 20 2a 2f 0a 20 20 63 68 61 72 20  abase */.  char 
6b30: 2a 73 71 6c 46 6f 72 6d 61 74 2c 20 20 20 20 20  *sqlFormat,     
6b40: 20 20 2f 2a 20 70 72 69 6e 74 66 2d 73 74 79 6c    /* printf-styl
6b50: 65 20 66 6f 72 6d 61 74 20 73 74 72 69 6e 67 20  e format string 
6b60: 66 6f 72 20 74 68 65 20 53 51 4c 20 2a 2f 0a 20  for the SQL */. 
6b70: 20 63 68 61 72 20 2a 2a 2a 72 65 73 75 6c 74 70   char ***resultp
6b80: 2c 20 20 20 20 20 20 20 2f 2a 20 52 65 73 75 6c  ,       /* Resul
6b90: 74 20 77 72 69 74 74 65 6e 20 74 6f 20 61 20 63  t written to a c
6ba0: 68 61 72 20 2a 5b 5d 20 20 74 68 61 74 20 74 68  har *[]  that th
6bb0: 69 73 20 70 6f 69 6e 74 73 20 74 6f 20 2a 2f 0a  is points to */.
6bc0: 20 20 69 6e 74 20 2a 6e 72 6f 77 2c 20 20 20 20    int *nrow,    
6bd0: 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62           /* Numb
6be0: 65 72 20 6f 66 20 72 65 73 75 6c 74 20 72 6f 77  er of result row
6bf0: 73 20 77 72 69 74 74 65 6e 20 68 65 72 65 20 2a  s written here *
6c00: 2f 0a 20 20 69 6e 74 20 2a 6e 63 6f 6c 2c 20 20  /.  int *ncol,  
6c10: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75             /* Nu
6c20: 6d 62 65 72 20 6f 66 20 72 65 73 75 6c 74 20 63  mber of result c
6c30: 6f 6c 75 6d 6e 73 20 77 72 69 74 74 65 6e 20 68  olumns written h
6c40: 65 72 65 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a  ere */.  char **
6c50: 65 72 72 6d 73 67 2c 20 20 20 20 20 20 20 20 20  errmsg,         
6c60: 2f 2a 20 45 72 72 6f 72 20 6d 73 67 20 77 72 69  /* Error msg wri
6c70: 74 74 65 6e 20 68 65 72 65 20 2a 2f 0a 20 20 2e  tten here */.  .
6c80: 2e 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
6c90: 20 20 20 20 20 20 2f 2a 20 41 72 67 75 6d 65 6e        /* Argumen
6ca0: 74 73 20 74 6f 20 74 68 65 20 66 6f 72 6d 61 74  ts to the format
6cb0: 20 73 74 72 69 6e 67 20 2a 2f 0a 29 7b 0a 20 20   string */.){.  
6cc0: 76 61 5f 6c 69 73 74 20 61 70 3b 0a 20 20 69 6e  va_list ap;.  in
6cd0: 74 20 72 63 3b 0a 0a 20 20 76 61 5f 73 74 61 72  t rc;..  va_star
6ce0: 74 28 61 70 2c 20 65 72 72 6d 73 67 29 3b 0a 20  t(ap, errmsg);. 
6cf0: 20 72 63 20 3d 20 73 71 6c 69 74 65 5f 67 65 74   rc = sqlite_get
6d00: 5f 74 61 62 6c 65 5f 76 70 72 69 6e 74 66 28 64  _table_vprintf(d
6d10: 62 2c 20 73 71 6c 46 6f 72 6d 61 74 2c 20 72 65  b, sqlFormat, re
6d20: 73 75 6c 74 70 2c 20 6e 72 6f 77 2c 20 6e 63 6f  sultp, nrow, nco
6d30: 6c 2c 20 65 72 72 6d 73 67 2c 20 61 70 29 3b 0a  l, errmsg, ap);.
6d40: 20 20 76 61 5f 65 6e 64 28 61 70 29 3b 0a 20 20    va_end(ap);.  
6d50: 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 69 6e 74  return rc;.}.int
6d60: 20 73 71 6c 69 74 65 5f 67 65 74 5f 74 61 62 6c   sqlite_get_tabl
6d70: 65 5f 76 70 72 69 6e 74 66 28 0a 20 20 73 71 6c  e_vprintf(.  sql
6d80: 69 74 65 20 2a 64 62 2c 20 20 20 20 20 20 20 20  ite *db,        
6d90: 20 20 20 20 2f 2a 20 41 6e 20 6f 70 65 6e 20 64      /* An open d
6da0: 61 74 61 62 61 73 65 20 2a 2f 0a 20 20 63 68 61  atabase */.  cha
6db0: 72 20 2a 73 71 6c 46 6f 72 6d 61 74 2c 20 20 20  r *sqlFormat,   
6dc0: 20 20 20 20 2f 2a 20 70 72 69 6e 74 66 2d 73 74      /* printf-st
6dd0: 79 6c 65 20 66 6f 72 6d 61 74 20 73 74 72 69 6e  yle format strin
6de0: 67 20 66 6f 72 20 74 68 65 20 53 51 4c 20 2a 2f  g for the SQL */
6df0: 0a 20 20 63 68 61 72 20 2a 2a 2a 72 65 73 75 6c  .  char ***resul
6e00: 74 70 2c 20 20 20 20 20 20 20 2f 2a 20 52 65 73  tp,       /* Res
6e10: 75 6c 74 20 77 72 69 74 74 65 6e 20 74 6f 20 61  ult written to a
6e20: 20 63 68 61 72 20 2a 5b 5d 20 20 74 68 61 74 20   char *[]  that 
6e30: 74 68 69 73 20 70 6f 69 6e 74 73 20 74 6f 20 2a  this points to *
6e40: 2f 0a 20 20 69 6e 74 20 2a 6e 72 6f 77 2c 20 20  /.  int *nrow,  
6e50: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75             /* Nu
6e60: 6d 62 65 72 20 6f 66 20 72 65 73 75 6c 74 20 72  mber of result r
6e70: 6f 77 73 20 77 72 69 74 74 65 6e 20 68 65 72 65  ows written here
6e80: 20 2a 2f 0a 20 20 69 6e 74 20 2a 6e 63 6f 6c 75   */.  int *ncolu
6e90: 6d 6e 2c 20 20 20 20 20 20 20 20 20 20 2f 2a 20  mn,          /* 
6ea0: 4e 75 6d 62 65 72 20 6f 66 20 72 65 73 75 6c 74  Number of result
6eb0: 20 63 6f 6c 75 6d 6e 73 20 77 72 69 74 74 65 6e   columns written
6ec0: 20 68 65 72 65 20 2a 2f 0a 20 20 63 68 61 72 20   here */.  char 
6ed0: 2a 2a 65 72 72 6d 73 67 2c 20 20 20 20 20 20 20  **errmsg,       
6ee0: 20 20 2f 2a 20 45 72 72 6f 72 20 6d 73 67 20 77    /* Error msg w
6ef0: 72 69 74 74 65 6e 20 68 65 72 65 20 2a 2f 0a 20  ritten here */. 
6f00: 20 76 61 5f 6c 69 73 74 20 61 70 20 20 20 20 20   va_list ap     
6f10: 20 20 20 20 20 20 20 20 2f 2a 20 41 72 67 75 6d          /* Argum
6f20: 65 6e 74 73 20 74 6f 20 74 68 65 20 66 6f 72 6d  ents to the form
6f30: 61 74 20 73 74 72 69 6e 67 20 2a 2f 0a 29 7b 0a  at string */.){.
6f40: 20 20 63 68 61 72 20 2a 7a 53 71 6c 3b 0a 20 20    char *zSql;.  
6f50: 69 6e 74 20 72 63 3b 0a 0a 20 20 7a 53 71 6c 20  int rc;..  zSql 
6f60: 3d 20 73 71 6c 69 74 65 5f 76 6d 70 72 69 6e 74  = sqlite_vmprint
6f70: 66 28 73 71 6c 46 6f 72 6d 61 74 2c 20 61 70 29  f(sqlFormat, ap)
6f80: 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 5f  ;.  rc = sqlite_
6f90: 67 65 74 5f 74 61 62 6c 65 28 64 62 2c 20 7a 53  get_table(db, zS
6fa0: 71 6c 2c 20 72 65 73 75 6c 74 70 2c 20 6e 72 6f  ql, resultp, nro
6fb0: 77 2c 20 6e 63 6f 6c 75 6d 6e 2c 20 65 72 72 6d  w, ncolumn, errm
6fc0: 73 67 29 3b 0a 20 20 73 71 6c 69 74 65 46 72 65  sg);.  sqliteFre
6fd0: 65 28 7a 53 71 6c 29 3b 0a 20 20 72 65 74 75 72  e(zSql);.  retur
6fe0: 6e 20 72 63 3b 0a 7d 0a                          n rc;.}.