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

Artifact d8032ee18b860c812eeff596c9bebfdacb7930fd:


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 20 20 20 20 20 20 20  p,long);.       
33c0: 20 65 6c 73 65 20 20 20 20 20 20 20 20 20 20 20   else           
33d0: 20 20 6c 6f 6e 67 76 61 6c 75 65 20 3d 20 76 61    longvalue = va
33e0: 5f 61 72 67 28 61 70 2c 69 6e 74 29 3b 0a 23 69  _arg(ap,int);.#i
33f0: 66 64 65 66 20 65 74 43 4f 4d 50 41 54 49 42 49  fdef etCOMPATIBI
3400: 4c 49 54 59 0a 20 20 20 20 20 20 20 20 2f 2a 20  LITY.        /* 
3410: 46 6f 72 20 74 68 65 20 66 6f 72 6d 61 74 20 25  For the format %
3420: 23 78 2c 20 74 68 65 20 76 61 6c 75 65 20 7a 65  #x, the value ze
3430: 72 6f 20 69 73 20 70 72 69 6e 74 65 64 20 22 30  ro is printed "0
3440: 22 20 6e 6f 74 20 22 30 78 30 22 2e 0a 20 20 20  " not "0x0"..   
3450: 20 20 20 20 20 2a 2a 20 49 20 74 68 69 6e 6b 20       ** I think 
3460: 74 68 69 73 20 69 73 20 73 74 75 70 69 64 2e 20  this is stupid. 
3470: 2a 2f 0a 20 20 20 20 20 20 20 20 69 66 28 20 6c  */.        if( l
3480: 6f 6e 67 76 61 6c 75 65 3d 3d 30 20 29 20 66 6c  ongvalue==0 ) fl
3490: 61 67 5f 61 6c 74 65 72 6e 61 74 65 66 6f 72 6d  ag_alternateform
34a0: 20 3d 20 30 3b 0a 23 65 6c 73 65 0a 20 20 20 20   = 0;.#else.    
34b0: 20 20 20 20 2f 2a 20 4d 6f 72 65 20 73 65 6e 73      /* More sens
34c0: 69 62 6c 65 3a 20 74 75 72 6e 20 6f 66 66 20 74  ible: turn off t
34d0: 68 65 20 70 72 65 66 69 78 20 66 6f 72 20 6f 63  he prefix for oc
34e0: 74 61 6c 20 28 74 6f 20 70 72 65 76 65 6e 74 20  tal (to prevent 
34f0: 22 30 30 22 29 2c 0a 20 20 20 20 20 20 20 20 2a  "00"),.        *
3500: 2a 20 62 75 74 20 6c 65 61 76 65 20 74 68 65 20  * but leave the 
3510: 70 72 65 66 69 78 20 66 6f 72 20 68 65 78 2e 20  prefix for hex. 
3520: 2a 2f 0a 20 20 20 20 20 20 20 20 69 66 28 20 6c  */.        if( l
3530: 6f 6e 67 76 61 6c 75 65 3d 3d 30 20 26 26 20 69  ongvalue==0 && i
3540: 6e 66 6f 70 2d 3e 62 61 73 65 3d 3d 38 20 29 20  nfop->base==8 ) 
3550: 66 6c 61 67 5f 61 6c 74 65 72 6e 61 74 65 66 6f  flag_alternatefo
3560: 72 6d 20 3d 20 30 3b 0a 23 65 6e 64 69 66 0a 20  rm = 0;.#endif. 
3570: 20 20 20 20 20 20 20 69 66 28 20 69 6e 66 6f 70         if( infop
3580: 2d 3e 66 6c 61 67 5f 73 69 67 6e 65 64 20 29 7b  ->flag_signed ){
3590: 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20 2a  .          if( *
35a0: 28 6c 6f 6e 67 2a 29 26 6c 6f 6e 67 76 61 6c 75  (long*)&longvalu
35b0: 65 3c 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20  e<0 ){.         
35c0: 20 20 20 6c 6f 6e 67 76 61 6c 75 65 20 3d 20 2d     longvalue = -
35d0: 2a 28 6c 6f 6e 67 2a 29 26 6c 6f 6e 67 76 61 6c  *(long*)&longval
35e0: 75 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20  ue;.            
35f0: 70 72 65 66 69 78 20 3d 20 27 2d 27 3b 0a 20 20  prefix = '-';.  
3600: 20 20 20 20 20 20 20 20 7d 65 6c 73 65 20 69 66          }else if
3610: 28 20 66 6c 61 67 5f 70 6c 75 73 73 69 67 6e 20  ( flag_plussign 
3620: 29 20 20 70 72 65 66 69 78 20 3d 20 27 2b 27 3b  )  prefix = '+';
3630: 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20  .          else 
3640: 69 66 28 20 66 6c 61 67 5f 62 6c 61 6e 6b 73 69  if( flag_blanksi
3650: 67 6e 20 29 20 20 70 72 65 66 69 78 20 3d 20 27  gn )  prefix = '
3660: 20 27 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6c   ';.          el
3670: 73 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20  se              
3680: 20 20 20 20 20 20 20 20 20 70 72 65 66 69 78 20           prefix 
3690: 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 7d 65 6c  = 0;.        }el
36a0: 73 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20  se              
36b0: 20 20 20 20 20 20 20 20 20 20 70 72 65 66 69 78            prefix
36c0: 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 69 66   = 0;.        if
36d0: 28 20 66 6c 61 67 5f 7a 65 72 6f 70 61 64 20 26  ( flag_zeropad &
36e0: 26 20 70 72 65 63 69 73 69 6f 6e 3c 77 69 64 74  & precision<widt
36f0: 68 2d 28 70 72 65 66 69 78 21 3d 30 29 20 29 7b  h-(prefix!=0) ){
3700: 0a 20 20 20 20 20 20 20 20 20 20 70 72 65 63 69  .          preci
3710: 73 69 6f 6e 20 3d 20 77 69 64 74 68 2d 28 70 72  sion = width-(pr
3720: 65 66 69 78 21 3d 30 29 3b 0a 20 20 20 20 20 20  efix!=0);.      
3730: 20 20 7d 0a 20 20 20 20 20 20 20 20 62 75 66 70    }.        bufp
3740: 74 20 3d 20 26 62 75 66 5b 65 74 42 55 46 53 49  t = &buf[etBUFSI
3750: 5a 45 5d 3b 0a 20 20 20 20 20 20 20 20 69 66 28  ZE];.        if(
3760: 20 78 74 79 70 65 3d 3d 65 74 4f 52 44 49 4e 41   xtype==etORDINA
3770: 4c 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 6c  L ){.          l
3780: 6f 6e 67 20 61 2c 62 3b 0a 20 20 20 20 20 20 20  ong a,b;.       
3790: 20 20 20 61 20 3d 20 6c 6f 6e 67 76 61 6c 75 65     a = longvalue
37a0: 25 31 30 3b 0a 20 20 20 20 20 20 20 20 20 20 62  %10;.          b
37b0: 20 3d 20 6c 6f 6e 67 76 61 6c 75 65 25 31 30 30   = longvalue%100
37c0: 3b 0a 20 20 20 20 20 20 20 20 20 20 62 75 66 70  ;.          bufp
37d0: 74 20 2d 3d 20 32 3b 0a 20 20 20 20 20 20 20 20  t -= 2;.        
37e0: 20 20 69 66 28 20 61 3d 3d 30 20 7c 7c 20 61 3e    if( a==0 || a>
37f0: 33 20 7c 7c 20 28 62 3e 31 30 20 26 26 20 62 3c  3 || (b>10 && b<
3800: 31 34 29 20 29 7b 0a 20 20 20 20 20 20 20 20 20  14) ){.         
3810: 20 20 20 62 75 66 70 74 5b 30 5d 20 3d 20 27 74     bufpt[0] = 't
3820: 27 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62  ';.            b
3830: 75 66 70 74 5b 31 5d 20 3d 20 27 68 27 3b 0a 20  ufpt[1] = 'h';. 
3840: 20 20 20 20 20 20 20 20 20 7d 65 6c 73 65 20 69           }else i
3850: 66 28 20 61 3d 3d 31 20 29 7b 0a 20 20 20 20 20  f( a==1 ){.     
3860: 20 20 20 20 20 20 20 62 75 66 70 74 5b 30 5d 20         bufpt[0] 
3870: 3d 20 27 73 27 3b 0a 20 20 20 20 20 20 20 20 20  = 's';.         
3880: 20 20 20 62 75 66 70 74 5b 31 5d 20 3d 20 27 74     bufpt[1] = 't
3890: 27 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 65 6c  ';.          }el
38a0: 73 65 20 69 66 28 20 61 3d 3d 32 20 29 7b 0a 20  se if( a==2 ){. 
38b0: 20 20 20 20 20 20 20 20 20 20 20 62 75 66 70 74             bufpt
38c0: 5b 30 5d 20 3d 20 27 6e 27 3b 0a 20 20 20 20 20  [0] = 'n';.     
38d0: 20 20 20 20 20 20 20 62 75 66 70 74 5b 31 5d 20         bufpt[1] 
38e0: 3d 20 27 64 27 3b 0a 20 20 20 20 20 20 20 20 20  = 'd';.         
38f0: 20 7d 65 6c 73 65 20 69 66 28 20 61 3d 3d 33 20   }else if( a==3 
3900: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62  ){.            b
3910: 75 66 70 74 5b 30 5d 20 3d 20 27 72 27 3b 0a 20  ufpt[0] = 'r';. 
3920: 20 20 20 20 20 20 20 20 20 20 20 62 75 66 70 74             bufpt
3930: 5b 31 5d 20 3d 20 27 64 27 3b 0a 20 20 20 20 20  [1] = 'd';.     
3940: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 7d       }.        }
3950: 0a 20 20 20 20 20 20 20 20 7b 0a 20 20 20 20 20  .        {.     
3960: 20 20 20 20 20 72 65 67 69 73 74 65 72 20 63 68       register ch
3970: 61 72 20 2a 63 73 65 74 3b 20 20 20 20 20 20 2f  ar *cset;      /
3980: 2a 20 55 73 65 20 72 65 67 69 73 74 65 72 73 20  * Use registers 
3990: 66 6f 72 20 73 70 65 65 64 20 2a 2f 0a 20 20 20  for speed */.   
39a0: 20 20 20 20 20 20 20 72 65 67 69 73 74 65 72 20         register 
39b0: 69 6e 74 20 62 61 73 65 3b 0a 20 20 20 20 20 20  int base;.      
39c0: 20 20 20 20 63 73 65 74 20 3d 20 69 6e 66 6f 70      cset = infop
39d0: 2d 3e 63 68 61 72 73 65 74 3b 0a 20 20 20 20 20  ->charset;.     
39e0: 20 20 20 20 20 62 61 73 65 20 3d 20 69 6e 66 6f       base = info
39f0: 70 2d 3e 62 61 73 65 3b 0a 20 20 20 20 20 20 20  p->base;.       
3a00: 20 20 20 64 6f 7b 20 20 20 20 20 20 20 20 20 20     do{          
3a10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3a20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3a30: 20 2f 2a 20 43 6f 6e 76 65 72 74 20 74 6f 20 61   /* Convert to a
3a40: 73 63 69 69 20 2a 2f 0a 20 20 20 20 20 20 20 20  scii */.        
3a50: 20 20 20 20 2a 28 2d 2d 62 75 66 70 74 29 20 3d      *(--bufpt) =
3a60: 20 63 73 65 74 5b 6c 6f 6e 67 76 61 6c 75 65 25   cset[longvalue%
3a70: 62 61 73 65 5d 3b 0a 20 20 20 20 20 20 20 20 20  base];.         
3a80: 20 20 20 6c 6f 6e 67 76 61 6c 75 65 20 3d 20 6c     longvalue = l
3a90: 6f 6e 67 76 61 6c 75 65 2f 62 61 73 65 3b 0a 20  ongvalue/base;. 
3aa0: 20 20 20 20 20 20 20 20 20 7d 77 68 69 6c 65 28           }while(
3ab0: 20 6c 6f 6e 67 76 61 6c 75 65 3e 30 20 29 3b 0a   longvalue>0 );.
3ac0: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
3ad0: 20 20 6c 65 6e 67 74 68 20 3d 20 28 6c 6f 6e 67    length = (long
3ae0: 29 26 62 75 66 5b 65 74 42 55 46 53 49 5a 45 5d  )&buf[etBUFSIZE]
3af0: 2d 28 6c 6f 6e 67 29 62 75 66 70 74 3b 0a 20 20  -(long)bufpt;.  
3b00: 20 20 20 20 20 20 66 6f 72 28 69 64 78 3d 70 72        for(idx=pr
3b10: 65 63 69 73 69 6f 6e 2d 6c 65 6e 67 74 68 3b 20  ecision-length; 
3b20: 69 64 78 3e 30 3b 20 69 64 78 2d 2d 29 7b 0a 20  idx>0; idx--){. 
3b30: 20 20 20 20 20 20 20 20 20 2a 28 2d 2d 62 75 66           *(--buf
3b40: 70 74 29 20 3d 20 27 30 27 3b 20 20 20 20 20 20  pt) = '0';      
3b50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3b60: 20 20 20 20 20 20 20 2f 2a 20 5a 65 72 6f 20 70         /* Zero p
3b70: 61 64 20 2a 2f 0a 20 20 20 20 20 20 20 20 7d 0a  ad */.        }.
3b80: 20 20 20 20 20 20 20 20 69 66 28 20 70 72 65 66          if( pref
3b90: 69 78 20 29 20 2a 28 2d 2d 62 75 66 70 74 29 20  ix ) *(--bufpt) 
3ba0: 3d 20 70 72 65 66 69 78 3b 20 20 20 20 20 20 20  = prefix;       
3bb0: 20 20 20 20 20 20 20 20 2f 2a 20 41 64 64 20 73          /* Add s
3bc0: 69 67 6e 20 2a 2f 0a 20 20 20 20 20 20 20 20 69  ign */.        i
3bd0: 66 28 20 66 6c 61 67 5f 61 6c 74 65 72 6e 61 74  f( flag_alternat
3be0: 65 66 6f 72 6d 20 26 26 20 69 6e 66 6f 70 2d 3e  eform && infop->
3bf0: 70 72 65 66 69 78 20 29 7b 20 20 20 20 20 20 2f  prefix ){      /
3c00: 2a 20 41 64 64 20 22 30 22 20 6f 72 20 22 30 78  * Add "0" or "0x
3c10: 22 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 63  " */.          c
3c20: 68 61 72 20 2a 70 72 65 2c 20 78 3b 0a 20 20 20  har *pre, x;.   
3c30: 20 20 20 20 20 20 20 70 72 65 20 3d 20 69 6e 66         pre = inf
3c40: 6f 70 2d 3e 70 72 65 66 69 78 3b 0a 20 20 20 20  op->prefix;.    
3c50: 20 20 20 20 20 20 69 66 28 20 2a 62 75 66 70 74        if( *bufpt
3c60: 21 3d 70 72 65 5b 30 5d 20 29 7b 0a 20 20 20 20  !=pre[0] ){.    
3c70: 20 20 20 20 20 20 20 20 66 6f 72 28 70 72 65 3d          for(pre=
3c80: 69 6e 66 6f 70 2d 3e 70 72 65 66 69 78 3b 20 28  infop->prefix; (
3c90: 78 3d 28 2a 70 72 65 29 29 21 3d 30 3b 20 70 72  x=(*pre))!=0; pr
3ca0: 65 2b 2b 29 20 2a 28 2d 2d 62 75 66 70 74 29 20  e++) *(--bufpt) 
3cb0: 3d 20 78 3b 0a 20 20 20 20 20 20 20 20 20 20 7d  = x;.          }
3cc0: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20  .        }.     
3cd0: 20 20 20 6c 65 6e 67 74 68 20 3d 20 28 6c 6f 6e     length = (lon
3ce0: 67 29 26 62 75 66 5b 65 74 42 55 46 53 49 5a 45  g)&buf[etBUFSIZE
3cf0: 5d 2d 28 6c 6f 6e 67 29 62 75 66 70 74 3b 0a 20  ]-(long)bufpt;. 
3d00: 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20         break;.  
3d10: 20 20 20 20 63 61 73 65 20 65 74 46 4c 4f 41 54      case etFLOAT
3d20: 3a 0a 20 20 20 20 20 20 63 61 73 65 20 65 74 45  :.      case etE
3d30: 58 50 3a 0a 20 20 20 20 20 20 63 61 73 65 20 65  XP:.      case e
3d40: 74 47 45 4e 45 52 49 43 3a 0a 20 20 20 20 20 20  tGENERIC:.      
3d50: 20 20 72 65 61 6c 76 61 6c 75 65 20 3d 20 76 61    realvalue = va
3d60: 5f 61 72 67 28 61 70 2c 64 6f 75 62 6c 65 29 3b  _arg(ap,double);
3d70: 0a 23 69 66 6e 64 65 66 20 65 74 4e 4f 46 4c 4f  .#ifndef etNOFLO
3d80: 41 54 49 4e 47 50 4f 49 4e 54 0a 20 20 20 20 20  ATINGPOINT.     
3d90: 20 20 20 69 66 28 20 70 72 65 63 69 73 69 6f 6e     if( precision
3da0: 3c 30 20 29 20 70 72 65 63 69 73 69 6f 6e 20 3d  <0 ) precision =
3db0: 20 36 3b 20 20 20 20 20 20 20 20 20 2f 2a 20 53   6;         /* S
3dc0: 65 74 20 64 65 66 61 75 6c 74 20 70 72 65 63 69  et default preci
3dd0: 73 69 6f 6e 20 2a 2f 0a 20 20 20 20 20 20 20 20  sion */.        
3de0: 69 66 28 20 70 72 65 63 69 73 69 6f 6e 3e 65 74  if( precision>et
3df0: 42 55 46 53 49 5a 45 2d 31 30 20 29 20 70 72 65  BUFSIZE-10 ) pre
3e00: 63 69 73 69 6f 6e 20 3d 20 65 74 42 55 46 53 49  cision = etBUFSI
3e10: 5a 45 2d 31 30 3b 0a 20 20 20 20 20 20 20 20 69  ZE-10;.        i
3e20: 66 28 20 72 65 61 6c 76 61 6c 75 65 3c 30 2e 30  f( realvalue<0.0
3e30: 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 72 65   ){.          re
3e40: 61 6c 76 61 6c 75 65 20 3d 20 2d 72 65 61 6c 76  alvalue = -realv
3e50: 61 6c 75 65 3b 0a 20 20 20 20 20 20 20 20 20 20  alue;.          
3e60: 70 72 65 66 69 78 20 3d 20 27 2d 27 3b 0a 20 20  prefix = '-';.  
3e70: 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20        }else{.   
3e80: 20 20 20 20 20 20 20 69 66 28 20 66 6c 61 67 5f         if( flag_
3e90: 70 6c 75 73 73 69 67 6e 20 29 20 20 20 20 20 20  plussign )      
3ea0: 20 20 20 20 70 72 65 66 69 78 20 3d 20 27 2b 27      prefix = '+'
3eb0: 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65  ;.          else
3ec0: 20 69 66 28 20 66 6c 61 67 5f 62 6c 61 6e 6b 73   if( flag_blanks
3ed0: 69 67 6e 20 29 20 20 20 20 70 72 65 66 69 78 20  ign )    prefix 
3ee0: 3d 20 27 20 27 3b 0a 20 20 20 20 20 20 20 20 20  = ' ';.         
3ef0: 20 65 6c 73 65 20 20 20 20 20 20 20 20 20 20 20   else           
3f00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72                pr
3f10: 65 66 69 78 20 3d 20 30 3b 0a 20 20 20 20 20 20  efix = 0;.      
3f20: 20 20 7d 0a 20 20 20 20 20 20 20 20 69 66 28 20    }.        if( 
3f30: 69 6e 66 6f 70 2d 3e 74 79 70 65 3d 3d 65 74 47  infop->type==etG
3f40: 45 4e 45 52 49 43 20 26 26 20 70 72 65 63 69 73  ENERIC && precis
3f50: 69 6f 6e 3e 30 20 29 20 70 72 65 63 69 73 69 6f  ion>0 ) precisio
3f60: 6e 2d 2d 3b 0a 20 20 20 20 20 20 20 20 72 6f 75  n--;.        rou
3f70: 6e 64 65 72 20 3d 20 30 2e 30 3b 0a 23 69 66 64  nder = 0.0;.#ifd
3f80: 65 66 20 43 4f 4d 50 41 54 49 42 49 4c 49 54 59  ef COMPATIBILITY
3f90: 0a 20 20 20 20 20 20 20 20 2f 2a 20 52 6f 75 6e  .        /* Roun
3fa0: 64 69 6e 67 20 77 6f 72 6b 73 20 6c 69 6b 65 20  ding works like 
3fb0: 42 53 44 20 77 68 65 6e 20 74 68 65 20 63 6f 6e  BSD when the con
3fc0: 73 74 61 6e 74 20 30 2e 34 39 39 39 20 69 73 20  stant 0.4999 is 
3fd0: 75 73 65 64 2e 20 20 57 69 65 72 64 21 20 2a 2f  used.  Wierd! */
3fe0: 0a 20 20 20 20 20 20 20 20 66 6f 72 28 69 64 78  .        for(idx
3ff0: 3d 70 72 65 63 69 73 69 6f 6e 2c 20 72 6f 75 6e  =precision, roun
4000: 64 65 72 3d 30 2e 34 39 39 39 3b 20 69 64 78 3e  der=0.4999; idx>
4010: 30 3b 20 69 64 78 2d 2d 2c 20 72 6f 75 6e 64 65  0; idx--, rounde
4020: 72 2a 3d 30 2e 31 29 3b 0a 23 65 6c 73 65 0a 20  r*=0.1);.#else. 
4030: 20 20 20 20 20 20 20 2f 2a 20 49 74 20 6d 61 6b         /* It mak
4040: 65 73 20 6d 6f 72 65 20 73 65 6e 73 65 20 74 6f  es more sense to
4050: 20 75 73 65 20 30 2e 35 20 2a 2f 0a 20 20 20 20   use 0.5 */.    
4060: 20 20 20 20 66 6f 72 28 69 64 78 3d 70 72 65 63      for(idx=prec
4070: 69 73 69 6f 6e 2c 20 72 6f 75 6e 64 65 72 3d 30  ision, rounder=0
4080: 2e 35 3b 20 69 64 78 3e 30 3b 20 69 64 78 2d 2d  .5; idx>0; idx--
4090: 2c 20 72 6f 75 6e 64 65 72 2a 3d 30 2e 31 29 3b  , rounder*=0.1);
40a0: 0a 23 65 6e 64 69 66 0a 20 20 20 20 20 20 20 20  .#endif.        
40b0: 69 66 28 20 69 6e 66 6f 70 2d 3e 74 79 70 65 3d  if( infop->type=
40c0: 3d 65 74 46 4c 4f 41 54 20 29 20 72 65 61 6c 76  =etFLOAT ) realv
40d0: 61 6c 75 65 20 2b 3d 20 72 6f 75 6e 64 65 72 3b  alue += rounder;
40e0: 0a 20 20 20 20 20 20 20 20 2f 2a 20 4e 6f 72 6d  .        /* Norm
40f0: 61 6c 69 7a 65 20 72 65 61 6c 76 61 6c 75 65 20  alize realvalue 
4100: 74 6f 20 77 69 74 68 69 6e 20 31 30 2e 30 20 3e  to within 10.0 >
4110: 20 72 65 61 6c 76 61 6c 75 65 20 3e 3d 20 31 2e   realvalue >= 1.
4120: 30 20 2a 2f 0a 20 20 20 20 20 20 20 20 65 78 70  0 */.        exp
4130: 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 69 66   = 0;.        if
4140: 28 20 72 65 61 6c 76 61 6c 75 65 3e 30 2e 30 20  ( realvalue>0.0 
4150: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 69 6e 74  ){.          int
4160: 20 6b 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20   k = 0;.        
4170: 20 20 77 68 69 6c 65 28 20 72 65 61 6c 76 61 6c    while( realval
4180: 75 65 3e 3d 31 65 38 20 26 26 20 6b 2b 2b 3c 31  ue>=1e8 && k++<1
4190: 30 30 20 29 7b 20 72 65 61 6c 76 61 6c 75 65 20  00 ){ realvalue 
41a0: 2a 3d 20 31 65 2d 38 3b 20 65 78 70 2b 3d 38 3b  *= 1e-8; exp+=8;
41b0: 20 7d 0a 20 20 20 20 20 20 20 20 20 20 77 68 69   }.          whi
41c0: 6c 65 28 20 72 65 61 6c 76 61 6c 75 65 3e 3d 31  le( realvalue>=1
41d0: 30 2e 30 20 26 26 20 6b 2b 2b 3c 31 30 30 20 29  0.0 && k++<100 )
41e0: 7b 20 72 65 61 6c 76 61 6c 75 65 20 2a 3d 20 30  { realvalue *= 0
41f0: 2e 31 3b 20 65 78 70 2b 2b 3b 20 7d 0a 20 20 20  .1; exp++; }.   
4200: 20 20 20 20 20 20 20 77 68 69 6c 65 28 20 72 65         while( re
4210: 61 6c 76 61 6c 75 65 3c 31 65 2d 38 20 26 26 20  alvalue<1e-8 && 
4220: 6b 2b 2b 3c 31 30 30 20 29 7b 20 72 65 61 6c 76  k++<100 ){ realv
4230: 61 6c 75 65 20 2a 3d 20 31 65 38 3b 20 65 78 70  alue *= 1e8; exp
4240: 2d 3d 38 3b 20 7d 0a 20 20 20 20 20 20 20 20 20  -=8; }.         
4250: 20 77 68 69 6c 65 28 20 72 65 61 6c 76 61 6c 75   while( realvalu
4260: 65 3c 31 2e 30 20 26 26 20 6b 2b 2b 3c 31 30 30  e<1.0 && k++<100
4270: 20 29 7b 20 72 65 61 6c 76 61 6c 75 65 20 2a 3d   ){ realvalue *=
4280: 20 31 30 2e 30 3b 20 65 78 70 2d 2d 3b 20 7d 0a   10.0; exp--; }.
4290: 20 20 20 20 20 20 20 20 20 20 69 66 28 20 6b 3e            if( k>
42a0: 3d 31 30 30 20 29 7b 0a 20 20 20 20 20 20 20 20  =100 ){.        
42b0: 20 20 20 20 62 75 66 70 74 20 3d 20 22 4e 61 4e      bufpt = "NaN
42c0: 22 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c  ";.            l
42d0: 65 6e 67 74 68 20 3d 20 33 3b 0a 20 20 20 20 20  ength = 3;.     
42e0: 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20         break;.  
42f0: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
4300: 20 20 7d 0a 20 20 20 20 20 20 20 20 62 75 66 70    }.        bufp
4310: 74 20 3d 20 62 75 66 3b 0a 20 20 20 20 20 20 20  t = buf;.       
4320: 20 2f 2a 0a 20 20 20 20 20 20 20 20 2a 2a 20 49   /*.        ** I
4330: 66 20 74 68 65 20 66 69 65 6c 64 20 74 79 70 65  f the field type
4340: 20 69 73 20 65 74 47 45 4e 45 52 49 43 2c 20 74   is etGENERIC, t
4350: 68 65 6e 20 63 6f 6e 76 65 72 74 20 74 6f 20 65  hen convert to e
4360: 69 74 68 65 72 20 65 74 45 58 50 0a 20 20 20 20  ither etEXP.    
4370: 20 20 20 20 2a 2a 20 6f 72 20 65 74 46 4c 4f 41      ** or etFLOA
4380: 54 2c 20 61 73 20 61 70 70 72 6f 70 72 69 61 74  T, as appropriat
4390: 65 2e 0a 20 20 20 20 20 20 20 20 2a 2f 0a 20 20  e..        */.  
43a0: 20 20 20 20 20 20 66 6c 61 67 5f 65 78 70 20 3d        flag_exp =
43b0: 20 78 74 79 70 65 3d 3d 65 74 45 58 50 3b 0a 20   xtype==etEXP;. 
43c0: 20 20 20 20 20 20 20 69 66 28 20 78 74 79 70 65         if( xtype
43d0: 21 3d 65 74 46 4c 4f 41 54 20 29 7b 0a 20 20 20  !=etFLOAT ){.   
43e0: 20 20 20 20 20 20 20 72 65 61 6c 76 61 6c 75 65         realvalue
43f0: 20 2b 3d 20 72 6f 75 6e 64 65 72 3b 0a 20 20 20   += rounder;.   
4400: 20 20 20 20 20 20 20 69 66 28 20 72 65 61 6c 76         if( realv
4410: 61 6c 75 65 3e 3d 31 30 2e 30 20 29 7b 20 72 65  alue>=10.0 ){ re
4420: 61 6c 76 61 6c 75 65 20 2a 3d 20 30 2e 31 3b 20  alvalue *= 0.1; 
4430: 65 78 70 2b 2b 3b 20 7d 0a 20 20 20 20 20 20 20  exp++; }.       
4440: 20 7d 0a 20 20 20 20 20 20 20 20 69 66 28 20 78   }.        if( x
4450: 74 79 70 65 3d 3d 65 74 47 45 4e 45 52 49 43 20  type==etGENERIC 
4460: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 66 6c 61  ){.          fla
4470: 67 5f 72 74 7a 20 3d 20 21 66 6c 61 67 5f 61 6c  g_rtz = !flag_al
4480: 74 65 72 6e 61 74 65 66 6f 72 6d 3b 0a 20 20 20  ternateform;.   
4490: 20 20 20 20 20 20 20 69 66 28 20 65 78 70 3c 2d         if( exp<-
44a0: 34 20 7c 7c 20 65 78 70 3e 70 72 65 63 69 73 69  4 || exp>precisi
44b0: 6f 6e 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20  on ){.          
44c0: 20 20 78 74 79 70 65 20 3d 20 65 74 45 58 50 3b    xtype = etEXP;
44d0: 0a 20 20 20 20 20 20 20 20 20 20 7d 65 6c 73 65  .          }else
44e0: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 72  {.            pr
44f0: 65 63 69 73 69 6f 6e 20 3d 20 70 72 65 63 69 73  ecision = precis
4500: 69 6f 6e 20 2d 20 65 78 70 3b 0a 20 20 20 20 20  ion - exp;.     
4510: 20 20 20 20 20 20 20 78 74 79 70 65 20 3d 20 65         xtype = e
4520: 74 46 4c 4f 41 54 3b 0a 20 20 20 20 20 20 20 20  tFLOAT;.        
4530: 20 20 7d 0a 20 20 20 20 20 20 20 20 7d 65 6c 73    }.        }els
4540: 65 7b 0a 20 20 20 20 20 20 20 20 20 20 66 6c 61  e{.          fla
4550: 67 5f 72 74 7a 20 3d 20 30 3b 0a 20 20 20 20 20  g_rtz = 0;.     
4560: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 2f 2a 0a     }.        /*.
4570: 20 20 20 20 20 20 20 20 2a 2a 20 54 68 65 20 22          ** The "
4580: 65 78 70 2b 70 72 65 63 69 73 69 6f 6e 22 20 74  exp+precision" t
4590: 65 73 74 20 63 61 75 73 65 73 20 6f 75 74 70 75  est causes outpu
45a0: 74 20 74 6f 20 62 65 20 6f 66 20 74 79 70 65 20  t to be of type 
45b0: 65 74 45 58 50 20 69 66 0a 20 20 20 20 20 20 20  etEXP if.       
45c0: 20 2a 2a 20 74 68 65 20 70 72 65 63 69 73 69 6f   ** the precisio
45d0: 6e 20 69 73 20 74 6f 6f 20 6c 61 72 67 65 20 74  n is too large t
45e0: 6f 20 66 69 74 20 69 6e 20 62 75 66 5b 5d 2e 0a  o fit in buf[]..
45f0: 20 20 20 20 20 20 20 20 2a 2f 0a 20 20 20 20 20          */.     
4600: 20 20 20 6e 73 64 20 3d 20 30 3b 0a 20 20 20 20     nsd = 0;.    
4610: 20 20 20 20 69 66 28 20 78 74 79 70 65 3d 3d 65      if( xtype==e
4620: 74 46 4c 4f 41 54 20 26 26 20 65 78 70 2b 70 72  tFLOAT && exp+pr
4630: 65 63 69 73 69 6f 6e 3c 65 74 42 55 46 53 49 5a  ecision<etBUFSIZ
4640: 45 2d 33 30 20 29 7b 0a 20 20 20 20 20 20 20 20  E-30 ){.        
4650: 20 20 66 6c 61 67 5f 64 70 20 3d 20 28 70 72 65    flag_dp = (pre
4660: 63 69 73 69 6f 6e 3e 30 20 7c 7c 20 66 6c 61 67  cision>0 || flag
4670: 5f 61 6c 74 65 72 6e 61 74 65 66 6f 72 6d 29 3b  _alternateform);
4680: 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20 70  .          if( p
4690: 72 65 66 69 78 20 29 20 2a 28 62 75 66 70 74 2b  refix ) *(bufpt+
46a0: 2b 29 20 3d 20 70 72 65 66 69 78 3b 20 20 20 20  +) = prefix;    
46b0: 20 20 20 20 20 2f 2a 20 53 69 67 6e 20 2a 2f 0a       /* Sign */.
46c0: 20 20 20 20 20 20 20 20 20 20 69 66 28 20 65 78            if( ex
46d0: 70 3c 30 20 29 20 20 2a 28 62 75 66 70 74 2b 2b  p<0 )  *(bufpt++
46e0: 29 20 3d 20 27 30 27 3b 20 20 20 20 20 20 20 20  ) = '0';        
46f0: 20 20 20 20 2f 2a 20 44 69 67 69 74 73 20 62 65      /* Digits be
4700: 66 6f 72 65 20 22 2e 22 20 2a 2f 0a 20 20 20 20  fore "." */.    
4710: 20 20 20 20 20 20 65 6c 73 65 20 66 6f 72 28 3b        else for(;
4720: 20 65 78 70 3e 3d 30 3b 20 65 78 70 2d 2d 29 20   exp>=0; exp--) 
4730: 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 65 74 5f  *(bufpt++) = et_
4740: 67 65 74 64 69 67 69 74 28 26 72 65 61 6c 76 61  getdigit(&realva
4750: 6c 75 65 2c 26 6e 73 64 29 3b 0a 20 20 20 20 20  lue,&nsd);.     
4760: 20 20 20 20 20 69 66 28 20 66 6c 61 67 5f 64 70       if( flag_dp
4770: 20 29 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20   ) *(bufpt++) = 
4780: 27 2e 27 3b 20 20 20 20 20 20 20 20 20 20 20 2f  '.';           /
4790: 2a 20 54 68 65 20 64 65 63 69 6d 61 6c 20 70 6f  * The decimal po
47a0: 69 6e 74 20 2a 2f 0a 20 20 20 20 20 20 20 20 20  int */.         
47b0: 20 66 6f 72 28 65 78 70 2b 2b 3b 20 65 78 70 3c   for(exp++; exp<
47c0: 30 20 26 26 20 70 72 65 63 69 73 69 6f 6e 3e 30  0 && precision>0
47d0: 3b 20 70 72 65 63 69 73 69 6f 6e 2d 2d 2c 20 65  ; precision--, e
47e0: 78 70 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20 20  xp++){.         
47f0: 20 20 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20     *(bufpt++) = 
4800: 27 30 27 3b 0a 20 20 20 20 20 20 20 20 20 20 7d  '0';.          }
4810: 0a 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65  .          while
4820: 28 20 28 70 72 65 63 69 73 69 6f 6e 2d 2d 29 3e  ( (precision--)>
4830: 30 20 29 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d  0 ) *(bufpt++) =
4840: 20 65 74 5f 67 65 74 64 69 67 69 74 28 26 72 65   et_getdigit(&re
4850: 61 6c 76 61 6c 75 65 2c 26 6e 73 64 29 3b 0a 20  alvalue,&nsd);. 
4860: 20 20 20 20 20 20 20 20 20 2a 28 62 75 66 70 74           *(bufpt
4870: 2d 2d 29 20 3d 20 30 3b 20 20 20 20 20 20 20 20  --) = 0;        
4880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4890: 20 20 20 2f 2a 20 4e 75 6c 6c 20 74 65 72 6d 69     /* Null termi
48a0: 6e 61 74 65 20 2a 2f 0a 20 20 20 20 20 20 20 20  nate */.        
48b0: 20 20 69 66 28 20 66 6c 61 67 5f 72 74 7a 20 26    if( flag_rtz &
48c0: 26 20 66 6c 61 67 5f 64 70 20 29 7b 20 20 20 20  & flag_dp ){    
48d0: 20 2f 2a 20 52 65 6d 6f 76 65 20 74 72 61 69 6c   /* Remove trail
48e0: 69 6e 67 20 7a 65 72 6f 73 20 61 6e 64 20 22 2e  ing zeros and ".
48f0: 22 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 20  " */.           
4900: 20 77 68 69 6c 65 28 20 62 75 66 70 74 3e 3d 62   while( bufpt>=b
4910: 75 66 20 26 26 20 2a 62 75 66 70 74 3d 3d 27 30  uf && *bufpt=='0
4920: 27 20 29 20 2a 28 62 75 66 70 74 2d 2d 29 20 3d  ' ) *(bufpt--) =
4930: 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20   0;.            
4940: 69 66 28 20 62 75 66 70 74 3e 3d 62 75 66 20 26  if( bufpt>=buf &
4950: 26 20 2a 62 75 66 70 74 3d 3d 27 2e 27 20 29 20  & *bufpt=='.' ) 
4960: 2a 28 62 75 66 70 74 2d 2d 29 20 3d 20 30 3b 0a  *(bufpt--) = 0;.
4970: 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20            }.    
4980: 20 20 20 20 20 20 62 75 66 70 74 2b 2b 3b 20 20        bufpt++;  
4990: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
49a0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 70 6f 69            /* poi
49b0: 6e 74 20 74 6f 20 6e 65 78 74 20 66 72 65 65 20  nt to next free 
49c0: 73 6c 6f 74 20 2a 2f 0a 20 20 20 20 20 20 20 20  slot */.        
49d0: 7d 65 6c 73 65 7b 20 20 20 20 2f 2a 20 65 74 45  }else{    /* etE
49e0: 58 50 20 6f 72 20 65 74 47 45 4e 45 52 49 43 20  XP or etGENERIC 
49f0: 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 66 6c 61  */.          fla
4a00: 67 5f 64 70 20 3d 20 28 70 72 65 63 69 73 69 6f  g_dp = (precisio
4a10: 6e 3e 30 20 7c 7c 20 66 6c 61 67 5f 61 6c 74 65  n>0 || flag_alte
4a20: 72 6e 61 74 65 66 6f 72 6d 29 3b 0a 20 20 20 20  rnateform);.    
4a30: 20 20 20 20 20 20 69 66 28 20 70 72 65 66 69 78        if( prefix
4a40: 20 29 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20   ) *(bufpt++) = 
4a50: 70 72 65 66 69 78 3b 20 20 20 2f 2a 20 53 69 67  prefix;   /* Sig
4a60: 6e 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 2a  n */.          *
4a70: 28 62 75 66 70 74 2b 2b 29 20 3d 20 65 74 5f 67  (bufpt++) = et_g
4a80: 65 74 64 69 67 69 74 28 26 72 65 61 6c 76 61 6c  etdigit(&realval
4a90: 75 65 2c 26 6e 73 64 29 3b 20 20 2f 2a 20 46 69  ue,&nsd);  /* Fi
4aa0: 72 73 74 20 64 69 67 69 74 20 2a 2f 0a 20 20 20  rst digit */.   
4ab0: 20 20 20 20 20 20 20 69 66 28 20 66 6c 61 67 5f         if( flag_
4ac0: 64 70 20 29 20 2a 28 62 75 66 70 74 2b 2b 29 20  dp ) *(bufpt++) 
4ad0: 3d 20 27 2e 27 3b 20 20 20 20 20 2f 2a 20 44 65  = '.';     /* De
4ae0: 63 69 6d 61 6c 20 70 6f 69 6e 74 20 2a 2f 0a 20  cimal point */. 
4af0: 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 28 20           while( 
4b00: 28 70 72 65 63 69 73 69 6f 6e 2d 2d 29 3e 30 20  (precision--)>0 
4b10: 29 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 65  ) *(bufpt++) = e
4b20: 74 5f 67 65 74 64 69 67 69 74 28 26 72 65 61 6c  t_getdigit(&real
4b30: 76 61 6c 75 65 2c 26 6e 73 64 29 3b 0a 20 20 20  value,&nsd);.   
4b40: 20 20 20 20 20 20 20 62 75 66 70 74 2d 2d 3b 20         bufpt--; 
4b50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4b60: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 70 6f             /* po
4b70: 69 6e 74 20 74 6f 20 6c 61 73 74 20 64 69 67 69  int to last digi
4b80: 74 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 69  t */.          i
4b90: 66 28 20 66 6c 61 67 5f 72 74 7a 20 26 26 20 66  f( flag_rtz && f
4ba0: 6c 61 67 5f 64 70 20 29 7b 20 20 20 20 20 20 20  lag_dp ){       
4bb0: 20 20 20 2f 2a 20 52 65 6d 6f 76 65 20 74 61 69     /* Remove tai
4bc0: 6c 20 7a 65 72 6f 73 20 2a 2f 0a 20 20 20 20 20  l zeros */.     
4bd0: 20 20 20 20 20 20 20 77 68 69 6c 65 28 20 62 75         while( bu
4be0: 66 70 74 3e 3d 62 75 66 20 26 26 20 2a 62 75 66  fpt>=buf && *buf
4bf0: 70 74 3d 3d 27 30 27 20 29 20 2a 28 62 75 66 70  pt=='0' ) *(bufp
4c00: 74 2d 2d 29 20 3d 20 30 3b 0a 20 20 20 20 20 20  t--) = 0;.      
4c10: 20 20 20 20 20 20 69 66 28 20 62 75 66 70 74 3e        if( bufpt>
4c20: 3d 62 75 66 20 26 26 20 2a 62 75 66 70 74 3d 3d  =buf && *bufpt==
4c30: 27 2e 27 20 29 20 2a 28 62 75 66 70 74 2d 2d 29  '.' ) *(bufpt--)
4c40: 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20   = 0;.          
4c50: 7d 0a 20 20 20 20 20 20 20 20 20 20 62 75 66 70  }.          bufp
4c60: 74 2b 2b 3b 20 20 20 20 20 20 20 20 20 20 20 20  t++;            
4c70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4c80: 2f 2a 20 70 6f 69 6e 74 20 74 6f 20 6e 65 78 74  /* point to next
4c90: 20 66 72 65 65 20 73 6c 6f 74 20 2a 2f 0a 20 20   free slot */.  
4ca0: 20 20 20 20 20 20 20 20 69 66 28 20 65 78 70 20          if( exp 
4cb0: 7c 7c 20 66 6c 61 67 5f 65 78 70 20 29 7b 0a 20  || flag_exp ){. 
4cc0: 20 20 20 20 20 20 20 20 20 20 20 2a 28 62 75 66             *(buf
4cd0: 70 74 2b 2b 29 20 3d 20 69 6e 66 6f 70 2d 3e 63  pt++) = infop->c
4ce0: 68 61 72 73 65 74 5b 30 5d 3b 0a 20 20 20 20 20  harset[0];.     
4cf0: 20 20 20 20 20 20 20 69 66 28 20 65 78 70 3c 30         if( exp<0
4d00: 20 29 7b 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d   ){ *(bufpt++) =
4d10: 20 27 2d 27 3b 20 65 78 70 20 3d 20 2d 65 78 70   '-'; exp = -exp
4d20: 3b 20 7d 20 2f 2a 20 73 69 67 6e 20 6f 66 20 65  ; } /* sign of e
4d30: 78 70 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20  xp */.          
4d40: 20 20 65 6c 73 65 20 20 20 20 20 20 20 7b 20 2a    else       { *
4d50: 28 62 75 66 70 74 2b 2b 29 20 3d 20 27 2b 27 3b  (bufpt++) = '+';
4d60: 20 7d 0a 20 20 20 20 20 20 20 20 20 20 20 20 69   }.            i
4d70: 66 28 20 65 78 70 3e 3d 31 30 30 20 29 7b 0a 20  f( exp>=100 ){. 
4d80: 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 28 62               *(b
4d90: 75 66 70 74 2b 2b 29 20 3d 20 28 65 78 70 2f 31  ufpt++) = (exp/1
4da0: 30 30 29 2b 27 30 27 3b 20 20 20 20 20 20 20 20  00)+'0';        
4db0: 20 20 20 20 20 20 20 20 2f 2a 20 31 30 30 27 73          /* 100's
4dc0: 20 64 69 67 69 74 20 2a 2f 0a 20 20 20 20 20 20   digit */.      
4dd0: 20 20 20 20 20 20 20 20 65 78 70 20 25 3d 20 31          exp %= 1
4de0: 30 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20  00;.            
4df0: 7d 0a 20 20 20 20 20 20 20 20 20 20 20 20 2a 28  }.            *(
4e00: 62 75 66 70 74 2b 2b 29 20 3d 20 65 78 70 2f 31  bufpt++) = exp/1
4e10: 30 2b 27 30 27 3b 20 20 20 20 20 20 20 20 20 20  0+'0';          
4e20: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 31 30             /* 10
4e30: 27 73 20 64 69 67 69 74 20 2a 2f 0a 20 20 20 20  's digit */.    
4e40: 20 20 20 20 20 20 20 20 2a 28 62 75 66 70 74 2b          *(bufpt+
4e50: 2b 29 20 3d 20 65 78 70 25 31 30 2b 27 30 27 3b  +) = exp%10+'0';
4e60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4e70: 20 20 20 20 20 2f 2a 20 31 27 73 20 64 69 67 69       /* 1's digi
4e80: 74 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 7d  t */.          }
4e90: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20  .        }.     
4ea0: 20 20 20 2f 2a 20 54 68 65 20 63 6f 6e 76 65 72     /* The conver
4eb0: 74 65 64 20 6e 75 6d 62 65 72 20 69 73 20 69 6e  ted number is in
4ec0: 20 62 75 66 5b 5d 20 61 6e 64 20 7a 65 72 6f 20   buf[] and zero 
4ed0: 74 65 72 6d 69 6e 61 74 65 64 2e 20 4f 75 74 70  terminated. Outp
4ee0: 75 74 20 69 74 2e 0a 20 20 20 20 20 20 20 20 2a  ut it..        *
4ef0: 2a 20 4e 6f 74 65 20 74 68 61 74 20 74 68 65 20  * Note that the 
4f00: 6e 75 6d 62 65 72 20 69 73 20 69 6e 20 74 68 65  number is in the
4f10: 20 75 73 75 61 6c 20 6f 72 64 65 72 2c 20 6e 6f   usual order, no
4f20: 74 20 72 65 76 65 72 73 65 64 20 61 73 20 77 69  t reversed as wi
4f30: 74 68 0a 20 20 20 20 20 20 20 20 2a 2a 20 69 6e  th.        ** in
4f40: 74 65 67 65 72 20 63 6f 6e 76 65 72 73 69 6f 6e  teger conversion
4f50: 73 2e 20 2a 2f 0a 20 20 20 20 20 20 20 20 6c 65  s. */.        le
4f60: 6e 67 74 68 20 3d 20 28 6c 6f 6e 67 29 62 75 66  ngth = (long)buf
4f70: 70 74 2d 28 6c 6f 6e 67 29 62 75 66 3b 0a 20 20  pt-(long)buf;.  
4f80: 20 20 20 20 20 20 62 75 66 70 74 20 3d 20 62 75        bufpt = bu
4f90: 66 3b 0a 0a 20 20 20 20 20 20 20 20 2f 2a 20 53  f;..        /* S
4fa0: 70 65 63 69 61 6c 20 63 61 73 65 3a 20 20 41 64  pecial case:  Ad
4fb0: 64 20 6c 65 61 64 69 6e 67 20 7a 65 72 6f 73 20  d leading zeros 
4fc0: 69 66 20 74 68 65 20 66 6c 61 67 5f 7a 65 72 6f  if the flag_zero
4fd0: 70 61 64 20 66 6c 61 67 20 69 73 0a 20 20 20 20  pad flag is.    
4fe0: 20 20 20 20 2a 2a 20 73 65 74 20 61 6e 64 20 77      ** set and w
4ff0: 65 20 61 72 65 20 6e 6f 74 20 6c 65 66 74 20 6a  e are not left j
5000: 75 73 74 69 66 69 65 64 20 2a 2f 0a 20 20 20 20  ustified */.    
5010: 20 20 20 20 69 66 28 20 66 6c 61 67 5f 7a 65 72      if( flag_zer
5020: 6f 70 61 64 20 26 26 20 21 66 6c 61 67 5f 6c 65  opad && !flag_le
5030: 66 74 6a 75 73 74 69 66 79 20 26 26 20 6c 65 6e  ftjustify && len
5040: 67 74 68 20 3c 20 77 69 64 74 68 29 7b 0a 20 20  gth < width){.  
5050: 20 20 20 20 20 20 20 20 69 6e 74 20 69 3b 0a 20          int i;. 
5060: 20 20 20 20 20 20 20 20 20 69 6e 74 20 6e 50 61           int nPa
5070: 64 20 3d 20 77 69 64 74 68 20 2d 20 6c 65 6e 67  d = width - leng
5080: 74 68 3b 0a 20 20 20 20 20 20 20 20 20 20 66 6f  th;.          fo
5090: 72 28 69 3d 77 69 64 74 68 3b 20 69 3e 3d 6e 50  r(i=width; i>=nP
50a0: 61 64 3b 20 69 2d 2d 29 7b 0a 20 20 20 20 20 20  ad; i--){.      
50b0: 20 20 20 20 20 20 62 75 66 70 74 5b 69 5d 20 3d        bufpt[i] =
50c0: 20 62 75 66 70 74 5b 69 2d 6e 50 61 64 5d 3b 0a   bufpt[i-nPad];.
50d0: 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20            }.    
50e0: 20 20 20 20 20 20 69 20 3d 20 70 72 65 66 69 78        i = prefix
50f0: 21 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 77  !=0;.          w
5100: 68 69 6c 65 28 20 6e 50 61 64 2d 2d 20 29 20 62  hile( nPad-- ) b
5110: 75 66 70 74 5b 69 2b 2b 5d 20 3d 20 27 30 27 3b  ufpt[i++] = '0';
5120: 0a 20 20 20 20 20 20 20 20 20 20 6c 65 6e 67 74  .          lengt
5130: 68 20 3d 20 77 69 64 74 68 3b 0a 20 20 20 20 20  h = width;.     
5140: 20 20 20 7d 0a 23 65 6e 64 69 66 0a 20 20 20 20     }.#endif.    
5150: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20      break;.     
5160: 20 63 61 73 65 20 65 74 53 49 5a 45 3a 0a 20 20   case etSIZE:.  
5170: 20 20 20 20 20 20 2a 28 76 61 5f 61 72 67 28 61        *(va_arg(a
5180: 70 2c 69 6e 74 2a 29 29 20 3d 20 63 6f 75 6e 74  p,int*)) = count
5190: 3b 0a 20 20 20 20 20 20 20 20 6c 65 6e 67 74 68  ;.        length
51a0: 20 3d 20 77 69 64 74 68 20 3d 20 30 3b 0a 20 20   = width = 0;.  
51b0: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20        break;.   
51c0: 20 20 20 63 61 73 65 20 65 74 50 45 52 43 45 4e     case etPERCEN
51d0: 54 3a 0a 20 20 20 20 20 20 20 20 62 75 66 5b 30  T:.        buf[0
51e0: 5d 20 3d 20 27 25 27 3b 0a 20 20 20 20 20 20 20  ] = '%';.       
51f0: 20 62 75 66 70 74 20 3d 20 62 75 66 3b 0a 20 20   bufpt = buf;.  
5200: 20 20 20 20 20 20 6c 65 6e 67 74 68 20 3d 20 31        length = 1
5210: 3b 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b  ;.        break;
5220: 0a 20 20 20 20 20 20 63 61 73 65 20 65 74 43 48  .      case etCH
5230: 41 52 4c 49 54 3a 0a 20 20 20 20 20 20 63 61 73  ARLIT:.      cas
5240: 65 20 65 74 43 48 41 52 58 3a 0a 20 20 20 20 20  e etCHARX:.     
5250: 20 20 20 63 20 3d 20 62 75 66 5b 30 5d 20 3d 20     c = buf[0] = 
5260: 28 78 74 79 70 65 3d 3d 65 74 43 48 41 52 58 20  (xtype==etCHARX 
5270: 3f 20 76 61 5f 61 72 67 28 61 70 2c 69 6e 74 29  ? va_arg(ap,int)
5280: 20 3a 20 2a 2b 2b 66 6d 74 29 3b 0a 20 20 20 20   : *++fmt);.    
5290: 20 20 20 20 69 66 28 20 70 72 65 63 69 73 69 6f      if( precisio
52a0: 6e 3e 3d 30 20 29 7b 0a 20 20 20 20 20 20 20 20  n>=0 ){.        
52b0: 20 20 66 6f 72 28 69 64 78 3d 31 3b 20 69 64 78    for(idx=1; idx
52c0: 3c 70 72 65 63 69 73 69 6f 6e 3b 20 69 64 78 2b  <precision; idx+
52d0: 2b 29 20 62 75 66 5b 69 64 78 5d 20 3d 20 63 3b  +) buf[idx] = c;
52e0: 0a 20 20 20 20 20 20 20 20 20 20 6c 65 6e 67 74  .          lengt
52f0: 68 20 3d 20 70 72 65 63 69 73 69 6f 6e 3b 0a 20  h = precision;. 
5300: 20 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20         }else{.  
5310: 20 20 20 20 20 20 20 20 6c 65 6e 67 74 68 20 3d          length =
5320: 31 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20  1;.        }.   
5330: 20 20 20 20 20 62 75 66 70 74 20 3d 20 62 75 66       bufpt = buf
5340: 3b 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b  ;.        break;
5350: 0a 20 20 20 20 20 20 63 61 73 65 20 65 74 53 54  .      case etST
5360: 52 49 4e 47 3a 0a 20 20 20 20 20 20 20 20 7a 4d  RING:.        zM
5370: 65 6d 20 3d 20 62 75 66 70 74 20 3d 20 76 61 5f  em = bufpt = va_
5380: 61 72 67 28 61 70 2c 63 68 61 72 2a 29 3b 0a 20  arg(ap,char*);. 
5390: 20 20 20 20 20 20 20 69 66 28 20 62 75 66 70 74         if( bufpt
53a0: 3d 3d 30 20 29 20 62 75 66 70 74 20 3d 20 22 28  ==0 ) bufpt = "(
53b0: 6e 75 6c 6c 29 22 3b 0a 20 20 20 20 20 20 20 20  null)";.        
53c0: 6c 65 6e 67 74 68 20 3d 20 73 74 72 6c 65 6e 28  length = strlen(
53d0: 62 75 66 70 74 29 3b 0a 20 20 20 20 20 20 20 20  bufpt);.        
53e0: 69 66 28 20 70 72 65 63 69 73 69 6f 6e 3e 3d 30  if( precision>=0
53f0: 20 26 26 20 70 72 65 63 69 73 69 6f 6e 3c 6c 65   && precision<le
5400: 6e 67 74 68 20 29 20 6c 65 6e 67 74 68 20 3d 20  ngth ) length = 
5410: 70 72 65 63 69 73 69 6f 6e 3b 0a 20 20 20 20 20  precision;.     
5420: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20     break;.      
5430: 63 61 73 65 20 65 74 53 51 4c 45 53 43 41 50 45  case etSQLESCAPE
5440: 3a 0a 20 20 20 20 20 20 20 20 7b 0a 20 20 20 20  :.        {.    
5450: 20 20 20 20 20 20 69 6e 74 20 69 2c 20 6a 2c 20        int i, j, 
5460: 6e 2c 20 63 3b 0a 20 20 20 20 20 20 20 20 20 20  n, c;.          
5470: 63 68 61 72 20 2a 61 72 67 20 3d 20 76 61 5f 61  char *arg = va_a
5480: 72 67 28 61 70 2c 63 68 61 72 2a 29 3b 0a 20 20  rg(ap,char*);.  
5490: 20 20 20 20 20 20 20 20 69 66 28 20 61 72 67 3d          if( arg=
54a0: 3d 30 20 29 20 61 72 67 20 3d 20 22 28 4e 55 4c  =0 ) arg = "(NUL
54b0: 4c 29 22 3b 0a 20 20 20 20 20 20 20 20 20 20 66  L)";.          f
54c0: 6f 72 28 69 3d 6e 3d 30 3b 20 28 63 3d 61 72 67  or(i=n=0; (c=arg
54d0: 5b 69 5d 29 21 3d 30 3b 20 69 2b 2b 29 7b 0a 20  [i])!=0; i++){. 
54e0: 20 20 20 20 20 20 20 20 20 20 20 69 66 28 20 63             if( c
54f0: 3d 3d 27 5c 27 27 20 29 20 20 6e 2b 2b 3b 0a 20  =='\'' )  n++;. 
5500: 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20           }.     
5510: 20 20 20 20 20 6e 20 2b 3d 20 69 20 2b 20 31 3b       n += i + 1;
5520: 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20 6e  .          if( n
5530: 3e 65 74 42 55 46 53 49 5a 45 20 29 7b 0a 20 20  >etBUFSIZE ){.  
5540: 20 20 20 20 20 20 20 20 20 20 62 75 66 70 74 20            bufpt 
5550: 3d 20 7a 45 78 74 72 61 20 3d 20 73 71 6c 69 74  = zExtra = sqlit
5560: 65 4d 61 6c 6c 6f 63 28 20 6e 20 29 3b 0a 20 20  eMalloc( n );.  
5570: 20 20 20 20 20 20 20 20 20 20 69 66 28 20 62 75            if( bu
5580: 66 70 74 3d 3d 30 20 29 20 72 65 74 75 72 6e 20  fpt==0 ) return 
5590: 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 65  -1;.          }e
55a0: 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 20 20 20  lse{.           
55b0: 20 62 75 66 70 74 20 3d 20 62 75 66 3b 0a 20 20   bufpt = buf;.  
55c0: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
55d0: 20 20 20 20 66 6f 72 28 69 3d 6a 3d 30 3b 20 28      for(i=j=0; (
55e0: 63 3d 61 72 67 5b 69 5d 29 21 3d 30 3b 20 69 2b  c=arg[i])!=0; i+
55f0: 2b 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20  +){.            
5600: 62 75 66 70 74 5b 6a 2b 2b 5d 20 3d 20 63 3b 0a  bufpt[j++] = c;.
5610: 20 20 20 20 20 20 20 20 20 20 20 20 69 66 28 20              if( 
5620: 63 3d 3d 27 5c 27 27 20 29 20 62 75 66 70 74 5b  c=='\'' ) bufpt[
5630: 6a 2b 2b 5d 20 3d 20 63 3b 0a 20 20 20 20 20 20  j++] = c;.      
5640: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20      }.          
5650: 62 75 66 70 74 5b 6a 5d 20 3d 20 30 3b 0a 20 20  bufpt[j] = 0;.  
5660: 20 20 20 20 20 20 20 20 6c 65 6e 67 74 68 20 3d          length =
5670: 20 6a 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66   j;.          if
5680: 28 20 70 72 65 63 69 73 69 6f 6e 3e 3d 30 20 26  ( precision>=0 &
5690: 26 20 70 72 65 63 69 73 69 6f 6e 3c 6c 65 6e 67  & precision<leng
56a0: 74 68 20 29 20 6c 65 6e 67 74 68 20 3d 20 70 72  th ) length = pr
56b0: 65 63 69 73 69 6f 6e 3b 0a 20 20 20 20 20 20 20  ecision;.       
56c0: 20 7d 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b   }.        break
56d0: 3b 0a 20 20 20 20 20 20 63 61 73 65 20 65 74 45  ;.      case etE
56e0: 52 52 4f 52 3a 0a 20 20 20 20 20 20 20 20 62 75  RROR:.        bu
56f0: 66 5b 30 5d 20 3d 20 27 25 27 3b 0a 20 20 20 20  f[0] = '%';.    
5700: 20 20 20 20 62 75 66 5b 31 5d 20 3d 20 63 3b 0a      buf[1] = c;.
5710: 20 20 20 20 20 20 20 20 65 72 72 6f 72 66 6c 61          errorfla
5720: 67 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 69  g = 0;.        i
5730: 64 78 20 3d 20 31 2b 28 63 21 3d 30 29 3b 0a 20  dx = 1+(c!=0);. 
5740: 20 20 20 20 20 20 20 28 2a 66 75 6e 63 29 28 61         (*func)(a
5750: 72 67 2c 22 25 22 2c 69 64 78 29 3b 0a 20 20 20  rg,"%",idx);.   
5760: 20 20 20 20 20 63 6f 75 6e 74 20 2b 3d 20 69 64       count += id
5770: 78 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 63  x;.        if( c
5780: 3d 3d 30 20 29 20 66 6d 74 2d 2d 3b 0a 20 20 20  ==0 ) fmt--;.   
5790: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20       break;.    
57a0: 7d 2f 2a 20 45 6e 64 20 73 77 69 74 63 68 20 6f  }/* End switch o
57b0: 76 65 72 20 74 68 65 20 66 6f 72 6d 61 74 20 74  ver the format t
57c0: 79 70 65 20 2a 2f 0a 20 20 20 20 2f 2a 0a 20 20  ype */.    /*.  
57d0: 20 20 2a 2a 20 54 68 65 20 74 65 78 74 20 6f 66    ** The text of
57e0: 20 74 68 65 20 63 6f 6e 76 65 72 73 69 6f 6e 20   the conversion 
57f0: 69 73 20 70 6f 69 6e 74 65 64 20 74 6f 20 62 79  is pointed to by
5800: 20 22 62 75 66 70 74 22 20 61 6e 64 20 69 73 0a   "bufpt" and is.
5810: 20 20 20 20 2a 2a 20 22 6c 65 6e 67 74 68 22 20      ** "length" 
5820: 63 68 61 72 61 63 74 65 72 73 20 6c 6f 6e 67 2e  characters long.
5830: 20 20 54 68 65 20 66 69 65 6c 64 20 77 69 64 74    The field widt
5840: 68 20 69 73 20 22 77 69 64 74 68 22 2e 20 20 44  h is "width".  D
5850: 6f 0a 20 20 20 20 2a 2a 20 74 68 65 20 6f 75 74  o.    ** the out
5860: 70 75 74 2e 0a 20 20 20 20 2a 2f 0a 20 20 20 20  put..    */.    
5870: 69 66 28 20 21 66 6c 61 67 5f 6c 65 66 74 6a 75  if( !flag_leftju
5880: 73 74 69 66 79 20 29 7b 0a 20 20 20 20 20 20 72  stify ){.      r
5890: 65 67 69 73 74 65 72 20 69 6e 74 20 6e 73 70 61  egister int nspa
58a0: 63 65 3b 0a 20 20 20 20 20 20 6e 73 70 61 63 65  ce;.      nspace
58b0: 20 3d 20 77 69 64 74 68 2d 6c 65 6e 67 74 68 3b   = width-length;
58c0: 0a 20 20 20 20 20 20 69 66 28 20 6e 73 70 61 63  .      if( nspac
58d0: 65 3e 30 20 29 7b 0a 20 20 20 20 20 20 20 20 69  e>0 ){.        i
58e0: 66 28 20 66 6c 61 67 5f 63 65 6e 74 65 72 20 29  f( flag_center )
58f0: 7b 0a 20 20 20 20 20 20 20 20 20 20 6e 73 70 61  {.          nspa
5900: 63 65 20 3d 20 6e 73 70 61 63 65 2f 32 3b 0a 20  ce = nspace/2;. 
5910: 20 20 20 20 20 20 20 20 20 77 69 64 74 68 20 2d           width -
5920: 3d 20 6e 73 70 61 63 65 3b 0a 20 20 20 20 20 20  = nspace;.      
5930: 20 20 20 20 66 6c 61 67 5f 6c 65 66 74 6a 75 73      flag_leftjus
5940: 74 69 66 79 20 3d 20 31 3b 0a 20 20 20 20 20 20  tify = 1;.      
5950: 20 20 7d 0a 20 20 20 20 20 20 20 20 63 6f 75 6e    }.        coun
5960: 74 20 2b 3d 20 6e 73 70 61 63 65 3b 0a 20 20 20  t += nspace;.   
5970: 20 20 20 20 20 77 68 69 6c 65 28 20 6e 73 70 61       while( nspa
5980: 63 65 3e 3d 65 74 53 50 41 43 45 53 49 5a 45 20  ce>=etSPACESIZE 
5990: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 28 2a 66  ){.          (*f
59a0: 75 6e 63 29 28 61 72 67 2c 73 70 61 63 65 73 2c  unc)(arg,spaces,
59b0: 65 74 53 50 41 43 45 53 49 5a 45 29 3b 0a 20 20  etSPACESIZE);.  
59c0: 20 20 20 20 20 20 20 20 6e 73 70 61 63 65 20 2d          nspace -
59d0: 3d 20 65 74 53 50 41 43 45 53 49 5a 45 3b 0a 20  = etSPACESIZE;. 
59e0: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20         }.       
59f0: 20 69 66 28 20 6e 73 70 61 63 65 3e 30 20 29 20   if( nspace>0 ) 
5a00: 28 2a 66 75 6e 63 29 28 61 72 67 2c 73 70 61 63  (*func)(arg,spac
5a10: 65 73 2c 6e 73 70 61 63 65 29 3b 0a 20 20 20 20  es,nspace);.    
5a20: 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 69 66    }.    }.    if
5a30: 28 20 6c 65 6e 67 74 68 3e 30 20 29 7b 0a 20 20  ( length>0 ){.  
5a40: 20 20 20 20 28 2a 66 75 6e 63 29 28 61 72 67 2c      (*func)(arg,
5a50: 62 75 66 70 74 2c 6c 65 6e 67 74 68 29 3b 0a 20  bufpt,length);. 
5a60: 20 20 20 20 20 63 6f 75 6e 74 20 2b 3d 20 6c 65       count += le
5a70: 6e 67 74 68 3b 0a 20 20 20 20 7d 0a 20 20 20 20  ngth;.    }.    
5a80: 69 66 28 20 66 6c 61 67 5f 6c 65 66 74 6a 75 73  if( flag_leftjus
5a90: 74 69 66 79 20 29 7b 0a 20 20 20 20 20 20 72 65  tify ){.      re
5aa0: 67 69 73 74 65 72 20 69 6e 74 20 6e 73 70 61 63  gister int nspac
5ab0: 65 3b 0a 20 20 20 20 20 20 6e 73 70 61 63 65 20  e;.      nspace 
5ac0: 3d 20 77 69 64 74 68 2d 6c 65 6e 67 74 68 3b 0a  = width-length;.
5ad0: 20 20 20 20 20 20 69 66 28 20 6e 73 70 61 63 65        if( nspace
5ae0: 3e 30 20 29 7b 0a 20 20 20 20 20 20 20 20 63 6f  >0 ){.        co
5af0: 75 6e 74 20 2b 3d 20 6e 73 70 61 63 65 3b 0a 20  unt += nspace;. 
5b00: 20 20 20 20 20 20 20 77 68 69 6c 65 28 20 6e 73         while( ns
5b10: 70 61 63 65 3e 3d 65 74 53 50 41 43 45 53 49 5a  pace>=etSPACESIZ
5b20: 45 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 28  E ){.          (
5b30: 2a 66 75 6e 63 29 28 61 72 67 2c 73 70 61 63 65  *func)(arg,space
5b40: 73 2c 65 74 53 50 41 43 45 53 49 5a 45 29 3b 0a  s,etSPACESIZE);.
5b50: 20 20 20 20 20 20 20 20 20 20 6e 73 70 61 63 65            nspace
5b60: 20 2d 3d 20 65 74 53 50 41 43 45 53 49 5a 45 3b   -= etSPACESIZE;
5b70: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20  .        }.     
5b80: 20 20 20 69 66 28 20 6e 73 70 61 63 65 3e 30 20     if( nspace>0 
5b90: 29 20 28 2a 66 75 6e 63 29 28 61 72 67 2c 73 70  ) (*func)(arg,sp
5ba0: 61 63 65 73 2c 6e 73 70 61 63 65 29 3b 0a 20 20  aces,nspace);.  
5bb0: 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20      }.    }.    
5bc0: 69 66 28 20 7a 45 78 74 72 61 20 29 7b 0a 20 20  if( zExtra ){.  
5bd0: 20 20 20 20 73 71 6c 69 74 65 46 72 65 65 28 7a      sqliteFree(z
5be0: 45 78 74 72 61 29 3b 0a 20 20 20 20 7d 0a 20 20  Extra);.    }.  
5bf0: 7d 2f 2a 20 45 6e 64 20 66 6f 72 20 6c 6f 6f 70  }/* End for loop
5c00: 20 6f 76 65 72 20 74 68 65 20 66 6f 72 6d 61 74   over the format
5c10: 20 73 74 72 69 6e 67 20 2a 2f 0a 20 20 72 65 74   string */.  ret
5c20: 75 72 6e 20 65 72 72 6f 72 66 6c 61 67 20 3f 20  urn errorflag ? 
5c30: 2d 31 20 3a 20 63 6f 75 6e 74 3b 0a 7d 20 2f 2a  -1 : count;.} /*
5c40: 20 45 6e 64 20 6f 66 20 66 75 6e 63 74 69 6f 6e   End of function
5c50: 20 2a 2f 0a 0a 0a 2f 2a 20 54 68 69 73 20 73 74   */.../* This st
5c60: 72 75 63 74 75 72 65 20 69 73 20 75 73 65 64 20  ructure is used 
5c70: 74 6f 20 73 74 6f 72 65 20 73 74 61 74 65 20 69  to store state i
5c80: 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 62 6f 75 74  nformation about
5c90: 20 74 68 65 0a 2a 2a 20 77 72 69 74 65 20 74 6f   the.** write to
5ca0: 20 6d 65 6d 6f 72 79 20 74 68 61 74 20 69 73 20   memory that is 
5cb0: 63 75 72 72 65 6e 74 6c 79 20 69 6e 20 70 72 6f  currently in pro
5cc0: 67 72 65 73 73 2e 0a 2a 2f 0a 73 74 72 75 63 74  gress..*/.struct
5cd0: 20 73 67 4d 70 72 69 6e 74 66 20 7b 0a 20 20 63   sgMprintf {.  c
5ce0: 68 61 72 20 2a 7a 42 61 73 65 3b 20 20 20 20 20  har *zBase;     
5cf0: 2f 2a 20 41 20 62 61 73 65 20 61 6c 6c 6f 63 61  /* A base alloca
5d00: 74 69 6f 6e 20 2a 2f 0a 20 20 63 68 61 72 20 2a  tion */.  char *
5d10: 7a 54 65 78 74 3b 20 20 20 20 20 2f 2a 20 54 68  zText;     /* Th
5d20: 65 20 73 74 72 69 6e 67 20 63 6f 6c 6c 65 63 74  e string collect
5d30: 65 64 20 73 6f 20 66 61 72 20 2a 2f 0a 20 20 69  ed so far */.  i
5d40: 6e 74 20 20 6e 43 68 61 72 3b 20 20 20 20 20 20  nt  nChar;      
5d50: 2f 2a 20 4c 65 6e 67 74 68 20 6f 66 20 74 68 65  /* Length of the
5d60: 20 73 74 72 69 6e 67 20 73 6f 20 66 61 72 20 2a   string so far *
5d70: 2f 0a 20 20 69 6e 74 20 20 6e 41 6c 6c 6f 63 3b  /.  int  nAlloc;
5d80: 20 20 20 20 20 2f 2a 20 41 6d 6f 75 6e 74 20 6f       /* Amount o
5d90: 66 20 73 70 61 63 65 20 61 6c 6c 6f 63 61 74 65  f space allocate
5da0: 64 20 69 6e 20 7a 54 65 78 74 20 2a 2f 0a 7d 3b  d in zText */.};
5db0: 0a 0a 2f 2a 20 0a 2a 2a 20 54 68 69 73 20 66 75  ../* .** This fu
5dc0: 6e 63 74 69 6f 6e 20 69 6d 70 6c 65 6d 65 6e 74  nction implement
5dd0: 73 20 74 68 65 20 63 61 6c 6c 62 61 63 6b 20 66  s the callback f
5de0: 72 6f 6d 20 76 78 70 72 69 6e 74 66 2e 20 0a 2a  rom vxprintf. .*
5df0: 2a 0a 2a 2a 20 54 68 69 73 20 72 6f 75 74 69 6e  *.** This routin
5e00: 65 20 61 64 64 20 6e 4e 65 77 43 68 61 72 20 63  e add nNewChar c
5e10: 68 61 72 61 63 74 65 72 73 20 6f 66 20 74 65 78  haracters of tex
5e20: 74 20 69 6e 20 7a 4e 65 77 54 65 78 74 20 74 6f  t in zNewText to
5e30: 0a 2a 2a 20 74 68 65 20 73 67 4d 70 72 69 6e 74  .** the sgMprint
5e40: 66 20 73 74 72 75 63 74 75 72 65 20 70 6f 69 6e  f structure poin
5e50: 74 65 64 20 74 6f 20 62 79 20 22 61 72 67 22 2e  ted to by "arg".
5e60: 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20  .*/.static void 
5e70: 6d 6f 75 74 28 76 6f 69 64 20 2a 61 72 67 2c 20  mout(void *arg, 
5e80: 63 68 61 72 20 2a 7a 4e 65 77 54 65 78 74 2c 20  char *zNewText, 
5e90: 69 6e 74 20 6e 4e 65 77 43 68 61 72 29 7b 0a 20  int nNewChar){. 
5ea0: 20 73 74 72 75 63 74 20 73 67 4d 70 72 69 6e 74   struct sgMprint
5eb0: 66 20 2a 70 4d 20 3d 20 28 73 74 72 75 63 74 20  f *pM = (struct 
5ec0: 73 67 4d 70 72 69 6e 74 66 2a 29 61 72 67 3b 0a  sgMprintf*)arg;.
5ed0: 20 20 69 66 28 20 70 4d 2d 3e 6e 43 68 61 72 20    if( pM->nChar 
5ee0: 2b 20 6e 4e 65 77 43 68 61 72 20 2b 20 31 20 3e  + nNewChar + 1 >
5ef0: 20 70 4d 2d 3e 6e 41 6c 6c 6f 63 20 29 7b 0a 20   pM->nAlloc ){. 
5f00: 20 20 20 70 4d 2d 3e 6e 41 6c 6c 6f 63 20 3d 20     pM->nAlloc = 
5f10: 70 4d 2d 3e 6e 43 68 61 72 20 2b 20 6e 4e 65 77  pM->nChar + nNew
5f20: 43 68 61 72 2a 32 20 2b 20 31 3b 0a 20 20 20 20  Char*2 + 1;.    
5f30: 69 66 28 20 70 4d 2d 3e 7a 54 65 78 74 3d 3d 70  if( pM->zText==p
5f40: 4d 2d 3e 7a 42 61 73 65 20 29 7b 0a 20 20 20 20  M->zBase ){.    
5f50: 20 20 70 4d 2d 3e 7a 54 65 78 74 20 3d 20 73 71    pM->zText = sq
5f60: 6c 69 74 65 4d 61 6c 6c 6f 63 28 70 4d 2d 3e 6e  liteMalloc(pM->n
5f70: 41 6c 6c 6f 63 29 3b 0a 20 20 20 20 20 20 69 66  Alloc);.      if
5f80: 28 20 70 4d 2d 3e 7a 54 65 78 74 20 26 26 20 70  ( pM->zText && p
5f90: 4d 2d 3e 6e 43 68 61 72 20 29 20 6d 65 6d 63 70  M->nChar ) memcp
5fa0: 79 28 70 4d 2d 3e 7a 54 65 78 74 2c 70 4d 2d 3e  y(pM->zText,pM->
5fb0: 7a 42 61 73 65 2c 70 4d 2d 3e 6e 43 68 61 72 29  zBase,pM->nChar)
5fc0: 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20  ;.    }else{.   
5fd0: 20 20 20 63 68 61 72 20 2a 7a 20 3d 20 73 71 6c     char *z = sql
5fe0: 69 74 65 52 65 61 6c 6c 6f 63 28 70 4d 2d 3e 7a  iteRealloc(pM->z
5ff0: 54 65 78 74 2c 20 70 4d 2d 3e 6e 41 6c 6c 6f 63  Text, pM->nAlloc
6000: 29 3b 0a 20 20 20 20 20 20 69 66 28 20 7a 3d 3d  );.      if( z==
6010: 30 20 29 7b 0a 20 20 20 20 20 20 20 20 73 71 6c  0 ){.        sql
6020: 69 74 65 46 72 65 65 28 70 4d 2d 3e 7a 54 65 78  iteFree(pM->zTex
6030: 74 29 3b 0a 20 20 20 20 20 20 20 20 70 4d 2d 3e  t);.        pM->
6040: 6e 43 68 61 72 20 3d 20 30 3b 0a 20 20 20 20 20  nChar = 0;.     
6050: 20 20 20 70 4d 2d 3e 6e 41 6c 6c 6f 63 20 3d 20     pM->nAlloc = 
6060: 30 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20  0;.      }.     
6070: 20 70 4d 2d 3e 7a 54 65 78 74 20 3d 20 7a 3b 0a   pM->zText = z;.
6080: 20 20 20 20 7d 0a 20 20 7d 0a 20 20 69 66 28 20      }.  }.  if( 
6090: 70 4d 2d 3e 7a 54 65 78 74 20 29 7b 0a 20 20 20  pM->zText ){.   
60a0: 20 6d 65 6d 63 70 79 28 26 70 4d 2d 3e 7a 54 65   memcpy(&pM->zTe
60b0: 78 74 5b 70 4d 2d 3e 6e 43 68 61 72 5d 2c 20 7a  xt[pM->nChar], z
60c0: 4e 65 77 54 65 78 74 2c 20 6e 4e 65 77 43 68 61  NewText, nNewCha
60d0: 72 29 3b 0a 20 20 20 20 70 4d 2d 3e 6e 43 68 61  r);.    pM->nCha
60e0: 72 20 2b 3d 20 6e 4e 65 77 43 68 61 72 3b 0a 20  r += nNewChar;. 
60f0: 20 20 20 70 4d 2d 3e 7a 54 65 78 74 5b 70 4d 2d     pM->zText[pM-
6100: 3e 6e 43 68 61 72 5d 20 3d 20 30 3b 0a 20 20 7d  >nChar] = 0;.  }
6110: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 73 71 6c 69 74 65  .}../*.** sqlite
6120: 5f 6d 70 72 69 6e 74 66 28 29 20 77 6f 72 6b 73  _mprintf() works
6130: 20 6c 69 6b 65 20 70 72 69 6e 74 66 28 29 2c 20   like printf(), 
6140: 62 75 74 20 61 6c 6c 6f 63 61 74 69 6f 6e 73 20  but allocations 
6150: 6d 65 6d 6f 72 79 20 74 6f 20 68 6f 6c 64 20 74  memory to hold t
6160: 68 65 0a 2a 2a 20 72 65 73 75 6c 74 69 6e 67 20  he.** resulting 
6170: 73 74 72 69 6e 67 20 61 6e 64 20 72 65 74 75 72  string and retur
6180: 6e 73 20 61 20 70 6f 69 6e 74 65 72 20 74 6f 20  ns a pointer to 
6190: 74 68 65 20 61 6c 6c 6f 63 61 74 65 64 20 6d 65  the allocated me
61a0: 6d 6f 72 79 2e 20 20 55 73 65 0a 2a 2a 20 73 71  mory.  Use.** sq
61b0: 6c 69 74 65 46 72 65 65 28 29 20 74 6f 20 72 65  liteFree() to re
61c0: 6c 65 61 73 65 20 74 68 65 20 6d 65 6d 6f 72 79  lease the memory
61d0: 20 61 6c 6c 6f 63 61 74 65 64 2e 0a 2a 2f 0a 63   allocated..*/.c
61e0: 68 61 72 20 2a 73 71 6c 69 74 65 5f 6d 70 72 69  har *sqlite_mpri
61f0: 6e 74 66 28 63 6f 6e 73 74 20 63 68 61 72 20 2a  ntf(const char *
6200: 7a 46 6f 72 6d 61 74 2c 20 2e 2e 2e 29 7b 0a 20  zFormat, ...){. 
6210: 20 76 61 5f 6c 69 73 74 20 61 70 3b 0a 20 20 73   va_list ap;.  s
6220: 74 72 75 63 74 20 73 67 4d 70 72 69 6e 74 66 20  truct sgMprintf 
6230: 73 4d 70 72 69 6e 74 66 3b 0a 20 20 63 68 61 72  sMprintf;.  char
6240: 20 2a 7a 4e 65 77 3b 0a 20 20 63 68 61 72 20 7a   *zNew;.  char z
6250: 42 75 66 5b 32 30 30 5d 3b 0a 0a 20 20 73 4d 70  Buf[200];..  sMp
6260: 72 69 6e 74 66 2e 6e 43 68 61 72 20 3d 20 30 3b  rintf.nChar = 0;
6270: 0a 20 20 73 4d 70 72 69 6e 74 66 2e 6e 41 6c 6c  .  sMprintf.nAll
6280: 6f 63 20 3d 20 73 69 7a 65 6f 66 28 7a 42 75 66  oc = sizeof(zBuf
6290: 29 3b 0a 20 20 73 4d 70 72 69 6e 74 66 2e 7a 54  );.  sMprintf.zT
62a0: 65 78 74 20 3d 20 7a 42 75 66 3b 0a 20 20 73 4d  ext = zBuf;.  sM
62b0: 70 72 69 6e 74 66 2e 7a 42 61 73 65 20 3d 20 7a  printf.zBase = z
62c0: 42 75 66 3b 0a 20 20 76 61 5f 73 74 61 72 74 28  Buf;.  va_start(
62d0: 61 70 2c 7a 46 6f 72 6d 61 74 29 3b 0a 20 20 76  ap,zFormat);.  v
62e0: 78 70 72 69 6e 74 66 28 6d 6f 75 74 2c 26 73 4d  xprintf(mout,&sM
62f0: 70 72 69 6e 74 66 2c 7a 46 6f 72 6d 61 74 2c 61  printf,zFormat,a
6300: 70 29 3b 0a 20 20 76 61 5f 65 6e 64 28 61 70 29  p);.  va_end(ap)
6310: 3b 0a 20 20 73 4d 70 72 69 6e 74 66 2e 7a 54 65  ;.  sMprintf.zTe
6320: 78 74 5b 73 4d 70 72 69 6e 74 66 2e 6e 43 68 61  xt[sMprintf.nCha
6330: 72 5d 20 3d 20 30 3b 0a 20 20 69 66 28 20 73 4d  r] = 0;.  if( sM
6340: 70 72 69 6e 74 66 2e 7a 54 65 78 74 3d 3d 73 4d  printf.zText==sM
6350: 70 72 69 6e 74 66 2e 7a 42 61 73 65 20 29 7b 0a  printf.zBase ){.
6360: 20 20 20 20 7a 4e 65 77 20 3d 20 73 71 6c 69 74      zNew = sqlit
6370: 65 4d 61 6c 6c 6f 63 28 20 73 4d 70 72 69 6e 74  eMalloc( sMprint
6380: 66 2e 6e 43 68 61 72 2b 31 20 29 3b 0a 20 20 20  f.nChar+1 );.   
6390: 20 69 66 28 20 7a 4e 65 77 20 29 20 73 74 72 63   if( zNew ) strc
63a0: 70 79 28 7a 4e 65 77 2c 7a 42 75 66 29 3b 0a 20  py(zNew,zBuf);. 
63b0: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 7a 4e 65 77   }else{.    zNew
63c0: 20 3d 20 73 71 6c 69 74 65 52 65 61 6c 6c 6f 63   = sqliteRealloc
63d0: 28 73 4d 70 72 69 6e 74 66 2e 7a 54 65 78 74 2c  (sMprintf.zText,
63e0: 73 4d 70 72 69 6e 74 66 2e 6e 43 68 61 72 2b 31  sMprintf.nChar+1
63f0: 29 3b 0a 20 20 20 20 69 66 28 20 7a 4e 65 77 3d  );.    if( zNew=
6400: 3d 30 20 29 7b 0a 20 20 20 20 20 20 73 71 6c 69  =0 ){.      sqli
6410: 74 65 46 72 65 65 28 73 4d 70 72 69 6e 74 66 2e  teFree(sMprintf.
6420: 7a 54 65 78 74 29 3b 0a 20 20 20 20 7d 0a 20 20  zText);.    }.  
6430: 7d 0a 20 20 72 65 74 75 72 6e 20 7a 4e 65 77 3b  }.  return zNew;
6440: 0a 7d 0a 0a 2f 2a 20 54 68 69 73 20 69 73 20 74  .}../* This is t
6450: 68 65 20 76 61 72 61 72 67 73 20 76 65 72 73 69  he varargs versi
6460: 6f 6e 20 6f 66 20 73 71 6c 69 74 65 5f 6d 70 72  on of sqlite_mpr
6470: 69 6e 74 66 2e 20 20 0a 2a 2f 0a 63 68 61 72 20  intf.  .*/.char 
6480: 2a 73 71 6c 69 74 65 5f 76 6d 70 72 69 6e 74 66  *sqlite_vmprintf
6490: 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 6f  (const char *zFo
64a0: 72 6d 61 74 2c 20 76 61 5f 6c 69 73 74 20 61 70  rmat, va_list ap
64b0: 29 7b 0a 20 20 73 74 72 75 63 74 20 73 67 4d 70  ){.  struct sgMp
64c0: 72 69 6e 74 66 20 73 4d 70 72 69 6e 74 66 3b 0a  rintf sMprintf;.
64d0: 20 20 63 68 61 72 20 7a 42 75 66 5b 32 30 30 5d    char zBuf[200]
64e0: 3b 0a 20 20 73 4d 70 72 69 6e 74 66 2e 6e 43 68  ;.  sMprintf.nCh
64f0: 61 72 20 3d 20 30 3b 0a 20 20 73 4d 70 72 69 6e  ar = 0;.  sMprin
6500: 74 66 2e 7a 54 65 78 74 20 3d 20 7a 42 75 66 3b  tf.zText = zBuf;
6510: 0a 20 20 73 4d 70 72 69 6e 74 66 2e 6e 41 6c 6c  .  sMprintf.nAll
6520: 6f 63 20 3d 20 73 69 7a 65 6f 66 28 7a 42 75 66  oc = sizeof(zBuf
6530: 29 3b 0a 20 20 73 4d 70 72 69 6e 74 66 2e 7a 42  );.  sMprintf.zB
6540: 61 73 65 20 3d 20 7a 42 75 66 3b 0a 20 20 76 78  ase = zBuf;.  vx
6550: 70 72 69 6e 74 66 28 6d 6f 75 74 2c 26 73 4d 70  printf(mout,&sMp
6560: 72 69 6e 74 66 2c 7a 46 6f 72 6d 61 74 2c 61 70  rintf,zFormat,ap
6570: 29 3b 0a 20 20 73 4d 70 72 69 6e 74 66 2e 7a 54  );.  sMprintf.zT
6580: 65 78 74 5b 73 4d 70 72 69 6e 74 66 2e 6e 43 68  ext[sMprintf.nCh
6590: 61 72 5d 20 3d 20 30 3b 0a 20 20 69 66 28 20 73  ar] = 0;.  if( s
65a0: 4d 70 72 69 6e 74 66 2e 7a 54 65 78 74 3d 3d 73  Mprintf.zText==s
65b0: 4d 70 72 69 6e 74 66 2e 7a 42 61 73 65 20 29 7b  Mprintf.zBase ){
65c0: 0a 20 20 20 20 73 4d 70 72 69 6e 74 66 2e 7a 54  .    sMprintf.zT
65d0: 65 78 74 20 3d 20 73 71 6c 69 74 65 4d 61 6c 6c  ext = sqliteMall
65e0: 6f 63 28 20 73 74 72 6c 65 6e 28 7a 42 75 66 29  oc( strlen(zBuf)
65f0: 2b 31 20 29 3b 0a 20 20 20 20 69 66 28 20 73 4d  +1 );.    if( sM
6600: 70 72 69 6e 74 66 2e 7a 54 65 78 74 20 29 20 73  printf.zText ) s
6610: 74 72 63 70 79 28 73 4d 70 72 69 6e 74 66 2e 7a  trcpy(sMprintf.z
6620: 54 65 78 74 2c 7a 42 75 66 29 3b 0a 20 20 7d 65  Text,zBuf);.  }e
6630: 6c 73 65 7b 0a 20 20 20 20 63 68 61 72 20 2a 7a  lse{.    char *z
6640: 20 3d 20 73 71 6c 69 74 65 52 65 61 6c 6c 6f 63   = sqliteRealloc
6650: 28 73 4d 70 72 69 6e 74 66 2e 7a 54 65 78 74 2c  (sMprintf.zText,
6660: 73 4d 70 72 69 6e 74 66 2e 6e 43 68 61 72 2b 31  sMprintf.nChar+1
6670: 29 3b 0a 20 20 20 20 69 66 28 20 7a 3d 3d 30 20  );.    if( z==0 
6680: 29 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 46  ){.      sqliteF
6690: 72 65 65 28 73 4d 70 72 69 6e 74 66 2e 7a 54 65  ree(sMprintf.zTe
66a0: 78 74 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73  xt);.    }.    s
66b0: 4d 70 72 69 6e 74 66 2e 7a 54 65 78 74 20 3d 20  Mprintf.zText = 
66c0: 7a 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20  z;.  }.  return 
66d0: 73 4d 70 72 69 6e 74 66 2e 7a 54 65 78 74 3b 0a  sMprintf.zText;.
66e0: 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 66 6f 6c  }../*.** The fol
66f0: 6c 6f 77 69 6e 67 20 66 6f 75 72 20 72 6f 75 74  lowing four rout
6700: 69 6e 65 73 20 69 6d 70 6c 65 6d 65 6e 74 20 74  ines implement t
6710: 68 65 20 76 61 72 61 72 67 73 20 76 65 72 73 69  he varargs versi
6720: 6f 6e 73 20 6f 66 20 74 68 65 0a 2a 2a 20 73 71  ons of the.** sq
6730: 6c 69 74 65 5f 65 78 65 63 28 29 20 61 6e 64 20  lite_exec() and 
6740: 73 71 6c 69 74 65 5f 67 65 74 5f 74 61 62 6c 65  sqlite_get_table
6750: 28 29 20 69 6e 74 65 72 66 61 63 65 73 2e 20 20  () interfaces.  
6760: 53 65 65 20 74 68 65 20 73 71 6c 69 74 65 2e 68  See the sqlite.h
6770: 0a 2a 2a 20 68 65 61 64 65 72 20 66 69 6c 65 73  .** header files
6780: 20 66 6f 72 20 61 20 6d 6f 72 65 20 64 65 74 61   for a more deta
6790: 69 6c 65 64 20 64 65 73 63 72 69 70 74 69 6f 6e  iled description
67a0: 20 6f 66 20 68 6f 77 20 74 68 65 73 65 20 69 6e   of how these in
67b0: 74 65 72 66 61 63 65 73 0a 2a 2a 20 77 6f 72 6b  terfaces.** work
67c0: 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 73 65 20 72 6f  ..**.** These ro
67d0: 75 74 69 6e 65 73 20 61 72 65 20 61 6c 6c 20 6a  utines are all j
67e0: 75 73 74 20 73 69 6d 70 6c 65 20 77 72 61 70 70  ust simple wrapp
67f0: 65 72 73 2e 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69  ers..*/.int sqli
6800: 74 65 5f 65 78 65 63 5f 70 72 69 6e 74 66 28 0a  te_exec_printf(.
6810: 20 20 73 71 6c 69 74 65 20 2a 64 62 2c 20 20 20    sqlite *db,   
6820: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
6830: 2f 2a 20 41 6e 20 6f 70 65 6e 20 64 61 74 61 62  /* An open datab
6840: 61 73 65 20 2a 2f 0a 20 20 63 6f 6e 73 74 20 63  ase */.  const c
6850: 68 61 72 20 2a 73 71 6c 46 6f 72 6d 61 74 2c 20  har *sqlFormat, 
6860: 20 20 20 20 20 20 20 2f 2a 20 70 72 69 6e 74 66         /* printf
6870: 2d 73 74 79 6c 65 20 66 6f 72 6d 61 74 20 73 74  -style format st
6880: 72 69 6e 67 20 66 6f 72 20 74 68 65 20 53 51 4c  ring for the SQL
6890: 20 2a 2f 0a 20 20 73 71 6c 69 74 65 5f 63 61 6c   */.  sqlite_cal
68a0: 6c 62 61 63 6b 20 78 43 61 6c 6c 62 61 63 6b 2c  lback xCallback,
68b0: 20 20 20 20 2f 2a 20 43 61 6c 6c 62 61 63 6b 20      /* Callback 
68c0: 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 76 6f  function */.  vo
68d0: 69 64 20 2a 70 41 72 67 2c 20 20 20 20 20 20 20  id *pArg,       
68e0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 31              /* 1
68f0: 73 74 20 61 72 67 75 6d 65 6e 74 20 74 6f 20 63  st argument to c
6900: 61 6c 6c 62 61 63 6b 20 66 75 6e 63 74 69 6f 6e  allback function
6910: 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 65 72 72   */.  char **err
6920: 6d 73 67 2c 20 20 20 20 20 20 20 20 20 20 20 20  msg,            
6930: 20 20 20 20 2f 2a 20 45 72 72 6f 72 20 6d 73 67      /* Error msg
6940: 20 77 72 69 74 74 65 6e 20 68 65 72 65 20 2a 2f   written here */
6950: 0a 20 20 2e 2e 2e 20 20 20 20 20 20 20 20 20 20  .  ...          
6960: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
6970: 20 2f 2a 20 41 72 67 75 6d 65 6e 74 73 20 74 6f   /* Arguments to
6980: 20 74 68 65 20 66 6f 72 6d 61 74 20 73 74 72 69   the format stri
6990: 6e 67 2e 20 2a 2f 0a 29 7b 0a 20 20 76 61 5f 6c  ng. */.){.  va_l
69a0: 69 73 74 20 61 70 3b 0a 20 20 69 6e 74 20 72 63  ist ap;.  int rc
69b0: 3b 0a 0a 20 20 76 61 5f 73 74 61 72 74 28 61 70  ;..  va_start(ap
69c0: 2c 20 65 72 72 6d 73 67 29 3b 0a 20 20 72 63 20  , errmsg);.  rc 
69d0: 3d 20 73 71 6c 69 74 65 5f 65 78 65 63 5f 76 70  = sqlite_exec_vp
69e0: 72 69 6e 74 66 28 64 62 2c 20 73 71 6c 46 6f 72  rintf(db, sqlFor
69f0: 6d 61 74 2c 20 78 43 61 6c 6c 62 61 63 6b 2c 20  mat, xCallback, 
6a00: 70 41 72 67 2c 20 65 72 72 6d 73 67 2c 20 61 70  pArg, errmsg, ap
6a10: 29 3b 0a 20 20 76 61 5f 65 6e 64 28 61 70 29 3b  );.  va_end(ap);
6a20: 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a  .  return rc;.}.
6a30: 69 6e 74 20 73 71 6c 69 74 65 5f 65 78 65 63 5f  int sqlite_exec_
6a40: 76 70 72 69 6e 74 66 28 0a 20 20 73 71 6c 69 74  vprintf(.  sqlit
6a50: 65 20 2a 64 62 2c 20 20 20 20 20 20 20 20 20 20  e *db,          
6a60: 20 20 20 20 20 20 20 20 20 2f 2a 20 41 6e 20 6f           /* An o
6a70: 70 65 6e 20 64 61 74 61 62 61 73 65 20 2a 2f 0a  pen database */.
6a80: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 73 71    const char *sq
6a90: 6c 46 6f 72 6d 61 74 2c 20 20 20 20 20 20 20 20  lFormat,        
6aa0: 2f 2a 20 70 72 69 6e 74 66 2d 73 74 79 6c 65 20  /* printf-style 
6ab0: 66 6f 72 6d 61 74 20 73 74 72 69 6e 67 20 66 6f  format string fo
6ac0: 72 20 74 68 65 20 53 51 4c 20 2a 2f 0a 20 20 73  r the SQL */.  s
6ad0: 71 6c 69 74 65 5f 63 61 6c 6c 62 61 63 6b 20 78  qlite_callback x
6ae0: 43 61 6c 6c 62 61 63 6b 2c 20 20 20 20 2f 2a 20  Callback,    /* 
6af0: 43 61 6c 6c 62 61 63 6b 20 66 75 6e 63 74 69 6f  Callback functio
6b00: 6e 20 2a 2f 0a 20 20 76 6f 69 64 20 2a 70 41 72  n */.  void *pAr
6b10: 67 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  g,              
6b20: 20 20 20 20 20 2f 2a 20 31 73 74 20 61 72 67 75       /* 1st argu
6b30: 6d 65 6e 74 20 74 6f 20 63 61 6c 6c 62 61 63 6b  ment to callback
6b40: 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 63   function */.  c
6b50: 68 61 72 20 2a 2a 65 72 72 6d 73 67 2c 20 20 20  har **errmsg,   
6b60: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
6b70: 45 72 72 6f 72 20 6d 73 67 20 77 72 69 74 74 65  Error msg writte
6b80: 6e 20 68 65 72 65 20 2a 2f 0a 20 20 76 61 5f 6c  n here */.  va_l
6b90: 69 73 74 20 61 70 20 20 20 20 20 20 20 20 20 20  ist ap          
6ba0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 41 72 67            /* Arg
6bb0: 75 6d 65 6e 74 73 20 74 6f 20 74 68 65 20 66 6f  uments to the fo
6bc0: 72 6d 61 74 20 73 74 72 69 6e 67 2e 20 2a 2f 0a  rmat string. */.
6bd0: 29 7b 0a 20 20 63 68 61 72 20 2a 7a 53 71 6c 3b  ){.  char *zSql;
6be0: 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 20 20 7a 53  .  int rc;..  zS
6bf0: 71 6c 20 3d 20 73 71 6c 69 74 65 5f 76 6d 70 72  ql = sqlite_vmpr
6c00: 69 6e 74 66 28 73 71 6c 46 6f 72 6d 61 74 2c 20  intf(sqlFormat, 
6c10: 61 70 29 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69  ap);.  rc = sqli
6c20: 74 65 5f 65 78 65 63 28 64 62 2c 20 7a 53 71 6c  te_exec(db, zSql
6c30: 2c 20 78 43 61 6c 6c 62 61 63 6b 2c 20 70 41 72  , xCallback, pAr
6c40: 67 2c 20 65 72 72 6d 73 67 29 3b 0a 20 20 73 71  g, errmsg);.  sq
6c50: 6c 69 74 65 46 72 65 65 28 7a 53 71 6c 29 3b 0a  liteFree(zSql);.
6c60: 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 69    return rc;.}.i
6c70: 6e 74 20 73 71 6c 69 74 65 5f 67 65 74 5f 74 61  nt sqlite_get_ta
6c80: 62 6c 65 5f 70 72 69 6e 74 66 28 0a 20 20 73 71  ble_printf(.  sq
6c90: 6c 69 74 65 20 2a 64 62 2c 20 20 20 20 20 20 20  lite *db,       
6ca0: 20 20 20 20 20 2f 2a 20 41 6e 20 6f 70 65 6e 20       /* An open 
6cb0: 64 61 74 61 62 61 73 65 20 2a 2f 0a 20 20 63 6f  database */.  co
6cc0: 6e 73 74 20 63 68 61 72 20 2a 73 71 6c 46 6f 72  nst char *sqlFor
6cd0: 6d 61 74 2c 20 2f 2a 20 70 72 69 6e 74 66 2d 73  mat, /* printf-s
6ce0: 74 79 6c 65 20 66 6f 72 6d 61 74 20 73 74 72 69  tyle format stri
6cf0: 6e 67 20 66 6f 72 20 74 68 65 20 53 51 4c 20 2a  ng for the SQL *
6d00: 2f 0a 20 20 63 68 61 72 20 2a 2a 2a 72 65 73 75  /.  char ***resu
6d10: 6c 74 70 2c 20 20 20 20 20 20 20 2f 2a 20 52 65  ltp,       /* Re
6d20: 73 75 6c 74 20 77 72 69 74 74 65 6e 20 74 6f 20  sult written to 
6d30: 61 20 63 68 61 72 20 2a 5b 5d 20 20 74 68 61 74  a char *[]  that
6d40: 20 74 68 69 73 20 70 6f 69 6e 74 73 20 74 6f 20   this points to 
6d50: 2a 2f 0a 20 20 69 6e 74 20 2a 6e 72 6f 77 2c 20  */.  int *nrow, 
6d60: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e              /* N
6d70: 75 6d 62 65 72 20 6f 66 20 72 65 73 75 6c 74 20  umber of result 
6d80: 72 6f 77 73 20 77 72 69 74 74 65 6e 20 68 65 72  rows written her
6d90: 65 20 2a 2f 0a 20 20 69 6e 74 20 2a 6e 63 6f 6c  e */.  int *ncol
6da0: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a  ,             /*
6db0: 20 4e 75 6d 62 65 72 20 6f 66 20 72 65 73 75 6c   Number of resul
6dc0: 74 20 63 6f 6c 75 6d 6e 73 20 77 72 69 74 74 65  t columns writte
6dd0: 6e 20 68 65 72 65 20 2a 2f 0a 20 20 63 68 61 72  n here */.  char
6de0: 20 2a 2a 65 72 72 6d 73 67 2c 20 20 20 20 20 20   **errmsg,      
6df0: 20 20 20 2f 2a 20 45 72 72 6f 72 20 6d 73 67 20     /* Error msg 
6e00: 77 72 69 74 74 65 6e 20 68 65 72 65 20 2a 2f 0a  written here */.
6e10: 20 20 2e 2e 2e 20 20 20 20 20 20 20 20 20 20 20    ...           
6e20: 20 20 20 20 20 20 20 20 20 2f 2a 20 41 72 67 75           /* Argu
6e30: 6d 65 6e 74 73 20 74 6f 20 74 68 65 20 66 6f 72  ments to the for
6e40: 6d 61 74 20 73 74 72 69 6e 67 20 2a 2f 0a 29 7b  mat string */.){
6e50: 0a 20 20 76 61 5f 6c 69 73 74 20 61 70 3b 0a 20  .  va_list ap;. 
6e60: 20 69 6e 74 20 72 63 3b 0a 0a 20 20 76 61 5f 73   int rc;..  va_s
6e70: 74 61 72 74 28 61 70 2c 20 65 72 72 6d 73 67 29  tart(ap, errmsg)
6e80: 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 5f  ;.  rc = sqlite_
6e90: 67 65 74 5f 74 61 62 6c 65 5f 76 70 72 69 6e 74  get_table_vprint
6ea0: 66 28 64 62 2c 20 73 71 6c 46 6f 72 6d 61 74 2c  f(db, sqlFormat,
6eb0: 20 72 65 73 75 6c 74 70 2c 20 6e 72 6f 77 2c 20   resultp, nrow, 
6ec0: 6e 63 6f 6c 2c 20 65 72 72 6d 73 67 2c 20 61 70  ncol, errmsg, ap
6ed0: 29 3b 0a 20 20 76 61 5f 65 6e 64 28 61 70 29 3b  );.  va_end(ap);
6ee0: 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a  .  return rc;.}.
6ef0: 69 6e 74 20 73 71 6c 69 74 65 5f 67 65 74 5f 74  int sqlite_get_t
6f00: 61 62 6c 65 5f 76 70 72 69 6e 74 66 28 0a 20 20  able_vprintf(.  
6f10: 73 71 6c 69 74 65 20 2a 64 62 2c 20 20 20 20 20  sqlite *db,     
6f20: 20 20 20 20 20 20 20 2f 2a 20 41 6e 20 6f 70 65         /* An ope
6f30: 6e 20 64 61 74 61 62 61 73 65 20 2a 2f 0a 20 20  n database */.  
6f40: 63 6f 6e 73 74 20 63 68 61 72 20 2a 73 71 6c 46  const char *sqlF
6f50: 6f 72 6d 61 74 2c 20 2f 2a 20 70 72 69 6e 74 66  ormat, /* printf
6f60: 2d 73 74 79 6c 65 20 66 6f 72 6d 61 74 20 73 74  -style format st
6f70: 72 69 6e 67 20 66 6f 72 20 74 68 65 20 53 51 4c  ring for the SQL
6f80: 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 2a 72 65   */.  char ***re
6f90: 73 75 6c 74 70 2c 20 20 20 20 20 20 20 2f 2a 20  sultp,       /* 
6fa0: 52 65 73 75 6c 74 20 77 72 69 74 74 65 6e 20 74  Result written t
6fb0: 6f 20 61 20 63 68 61 72 20 2a 5b 5d 20 20 74 68  o a char *[]  th
6fc0: 61 74 20 74 68 69 73 20 70 6f 69 6e 74 73 20 74  at this points t
6fd0: 6f 20 2a 2f 0a 20 20 69 6e 74 20 2a 6e 72 6f 77  o */.  int *nrow
6fe0: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a  ,             /*
6ff0: 20 4e 75 6d 62 65 72 20 6f 66 20 72 65 73 75 6c   Number of resul
7000: 74 20 72 6f 77 73 20 77 72 69 74 74 65 6e 20 68  t rows written h
7010: 65 72 65 20 2a 2f 0a 20 20 69 6e 74 20 2a 6e 63  ere */.  int *nc
7020: 6f 6c 75 6d 6e 2c 20 20 20 20 20 20 20 20 20 20  olumn,          
7030: 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 72 65 73  /* Number of res
7040: 75 6c 74 20 63 6f 6c 75 6d 6e 73 20 77 72 69 74  ult columns writ
7050: 74 65 6e 20 68 65 72 65 20 2a 2f 0a 20 20 63 68  ten here */.  ch
7060: 61 72 20 2a 2a 65 72 72 6d 73 67 2c 20 20 20 20  ar **errmsg,    
7070: 20 20 20 20 20 2f 2a 20 45 72 72 6f 72 20 6d 73       /* Error ms
7080: 67 20 77 72 69 74 74 65 6e 20 68 65 72 65 20 2a  g written here *
7090: 2f 0a 20 20 76 61 5f 6c 69 73 74 20 61 70 20 20  /.  va_list ap  
70a0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 41 72             /* Ar
70b0: 67 75 6d 65 6e 74 73 20 74 6f 20 74 68 65 20 66  guments to the f
70c0: 6f 72 6d 61 74 20 73 74 72 69 6e 67 20 2a 2f 0a  ormat string */.
70d0: 29 7b 0a 20 20 63 68 61 72 20 2a 7a 53 71 6c 3b  ){.  char *zSql;
70e0: 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 20 20 7a 53  .  int rc;..  zS
70f0: 71 6c 20 3d 20 73 71 6c 69 74 65 5f 76 6d 70 72  ql = sqlite_vmpr
7100: 69 6e 74 66 28 73 71 6c 46 6f 72 6d 61 74 2c 20  intf(sqlFormat, 
7110: 61 70 29 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69  ap);.  rc = sqli
7120: 74 65 5f 67 65 74 5f 74 61 62 6c 65 28 64 62 2c  te_get_table(db,
7130: 20 7a 53 71 6c 2c 20 72 65 73 75 6c 74 70 2c 20   zSql, resultp, 
7140: 6e 72 6f 77 2c 20 6e 63 6f 6c 75 6d 6e 2c 20 65  nrow, ncolumn, e
7150: 72 72 6d 73 67 29 3b 0a 20 20 73 71 6c 69 74 65  rrmsg);.  sqlite
7160: 46 72 65 65 28 7a 53 71 6c 29 3b 0a 20 20 72 65  Free(zSql);.  re
7170: 74 75 72 6e 20 72 63 3b 0a 7d 0a                 turn rc;.}.