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

Artifact 236ed7a79386feed4456fa728fff8be793f1547c:


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 53 51 4c 45 53 43  q */.   etSQLESC
0c70: 41 50 45 32 2c 20 20 20 20 20 20 20 2f 2a 20 53  APE2,       /* S
0c80: 74 72 69 6e 67 73 20 77 69 74 68 20 27 5c 27 27  trings with '\''
0c90: 20 64 6f 75 62 6c 65 64 20 61 6e 64 20 65 6e 63   doubled and enc
0ca0: 6c 6f 73 65 64 20 69 6e 20 27 27 2c 0a 20 20 20  losed in '',.   
0cb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0cc0: 20 20 20 20 20 20 20 4e 55 4c 4c 20 70 6f 69 6e         NULL poin
0cd0: 74 65 72 73 20 72 65 70 6c 61 63 65 64 20 62 79  ters replaced by
0ce0: 20 53 51 4c 20 4e 55 4c 4c 2e 20 20 25 51 20 2a   SQL NULL.  %Q *
0cf0: 2f 0a 20 20 20 65 74 4f 52 44 49 4e 41 4c 20 20  /.   etORDINAL  
0d00: 20 20 20 20 20 20 20 20 20 2f 2a 20 31 73 74 2c           /* 1st,
0d10: 20 32 6e 64 2c 20 33 72 64 20 61 6e 64 20 73 6f   2nd, 3rd and so
0d20: 20 66 6f 72 74 68 20 2a 2f 0a 7d 3b 0a 0a 2f 2a   forth */.};../*
0d30: 0a 2a 2a 20 45 61 63 68 20 62 75 69 6c 74 69 6e  .** Each builtin
0d40: 20 63 6f 6e 76 65 72 73 69 6f 6e 20 63 68 61 72   conversion char
0d50: 61 63 74 65 72 20 28 65 78 3a 20 74 68 65 20 27  acter (ex: the '
0d60: 64 27 20 69 6e 20 22 25 64 22 29 20 69 73 20 64  d' in "%d") is d
0d70: 65 73 63 72 69 62 65 64 0a 2a 2a 20 62 79 20 61  escribed.** by a
0d80: 6e 20 69 6e 73 74 61 6e 63 65 20 6f 66 20 74 68  n instance of th
0d90: 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 74 72 75  e following stru
0da0: 63 74 75 72 65 0a 2a 2f 0a 74 79 70 65 64 65 66  cture.*/.typedef
0db0: 20 73 74 72 75 63 74 20 65 74 5f 69 6e 66 6f 20   struct et_info 
0dc0: 7b 20 20 20 2f 2a 20 49 6e 66 6f 72 6d 61 74 69  {   /* Informati
0dd0: 6f 6e 20 61 62 6f 75 74 20 65 61 63 68 20 66 6f  on about each fo
0de0: 72 6d 61 74 20 66 69 65 6c 64 20 2a 2f 0a 20 20  rmat field */.  
0df0: 69 6e 74 20 20 66 6d 74 74 79 70 65 3b 20 20 20  int  fmttype;   
0e00: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 68             /* Th
0e10: 65 20 66 6f 72 6d 61 74 20 66 69 65 6c 64 20 63  e format field c
0e20: 6f 64 65 20 6c 65 74 74 65 72 20 2a 2f 0a 20 20  ode letter */.  
0e30: 69 6e 74 20 20 62 61 73 65 3b 20 20 20 20 20 20  int  base;      
0e40: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 68             /* Th
0e50: 65 20 62 61 73 65 20 66 6f 72 20 72 61 64 69 78  e base for radix
0e60: 20 63 6f 6e 76 65 72 73 69 6f 6e 20 2a 2f 0a 20   conversion */. 
0e70: 20 63 68 61 72 20 2a 63 68 61 72 73 65 74 3b 20   char *charset; 
0e80: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54              /* T
0e90: 68 65 20 63 68 61 72 61 63 74 65 72 20 73 65 74  he character set
0ea0: 20 66 6f 72 20 63 6f 6e 76 65 72 73 69 6f 6e 20   for conversion 
0eb0: 2a 2f 0a 20 20 69 6e 74 20 20 66 6c 61 67 5f 73  */.  int  flag_s
0ec0: 69 67 6e 65 64 3b 20 20 20 20 20 20 20 20 20 20  igned;          
0ed0: 2f 2a 20 49 73 20 74 68 65 20 71 75 61 6e 74 69  /* Is the quanti
0ee0: 74 79 20 73 69 67 6e 65 64 3f 20 2a 2f 0a 20 20  ty signed? */.  
0ef0: 63 68 61 72 20 2a 70 72 65 66 69 78 3b 20 20 20  char *prefix;   
0f00: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 50 72             /* Pr
0f10: 65 66 69 78 20 6f 6e 20 6e 6f 6e 2d 7a 65 72 6f  efix on non-zero
0f20: 20 76 61 6c 75 65 73 20 69 6e 20 61 6c 74 20 66   values in alt f
0f30: 6f 72 6d 61 74 20 2a 2f 0a 20 20 65 6e 75 6d 20  ormat */.  enum 
0f40: 65 74 5f 74 79 70 65 20 74 79 70 65 3b 20 20 20  et_type type;   
0f50: 20 20 20 20 20 20 20 2f 2a 20 43 6f 6e 76 65 72         /* Conver
0f60: 73 69 6f 6e 20 70 61 72 61 64 69 67 6d 20 2a 2f  sion paradigm */
0f70: 0a 7d 20 65 74 5f 69 6e 66 6f 3b 0a 0a 2f 2a 0a  .} et_info;../*.
0f80: 2a 2a 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67  ** The following
0f90: 20 74 61 62 6c 65 20 69 73 20 73 65 61 72 63 68   table is search
0fa0: 65 64 20 6c 69 6e 65 61 72 6c 79 2c 20 73 6f 20  ed linearly, so 
0fb0: 69 74 20 69 73 20 67 6f 6f 64 20 74 6f 20 70 75  it is good to pu
0fc0: 74 20 74 68 65 0a 2a 2a 20 6d 6f 73 74 20 66 72  t the.** most fr
0fd0: 65 71 75 65 6e 74 6c 79 20 75 73 65 64 20 63 6f  equently used co
0fe0: 6e 76 65 72 73 69 6f 6e 20 74 79 70 65 73 20 66  nversion types f
0ff0: 69 72 73 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20  irst..*/.static 
1000: 65 74 5f 69 6e 66 6f 20 66 6d 74 69 6e 66 6f 5b  et_info fmtinfo[
1010: 5d 20 3d 20 7b 0a 20 20 7b 20 27 64 27 2c 20 20  ] = {.  { 'd',  
1020: 31 30 2c 20 20 22 30 31 32 33 34 35 36 37 38 39  10,  "0123456789
1030: 22 2c 20 20 20 20 20 20 20 31 2c 20 20 20 20 30  ",       1,    0
1040: 2c 20 65 74 52 41 44 49 58 2c 20 20 20 20 20 20  , etRADIX,      
1050: 7d 2c 0a 20 20 7b 20 27 73 27 2c 20 20 20 30 2c  },.  { 's',   0,
1060: 20 20 30 2c 20 20 20 20 20 20 20 20 20 20 20 20    0,            
1070: 20 20 20 20 20 20 30 2c 20 20 20 20 30 2c 20 65        0,    0, e
1080: 74 53 54 52 49 4e 47 2c 20 20 20 20 20 7d 2c 20  tSTRING,     }, 
1090: 0a 20 20 7b 20 27 71 27 2c 20 20 20 30 2c 20 20  .  { 'q',   0,  
10a0: 30 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  0,              
10b0: 20 20 20 20 30 2c 20 20 20 20 30 2c 20 65 74 53      0,    0, etS
10c0: 51 4c 45 53 43 41 50 45 2c 20 20 7d 2c 0a 20 20  QLESCAPE,  },.  
10d0: 7b 20 27 51 27 2c 20 20 20 30 2c 20 20 30 2c 20  { 'Q',   0,  0, 
10e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
10f0: 20 30 2c 20 20 20 20 30 2c 20 65 74 53 51 4c 45   0,    0, etSQLE
1100: 53 43 41 50 45 32 2c 20 7d 2c 0a 20 20 7b 20 27  SCAPE2, },.  { '
1110: 63 27 2c 20 20 20 30 2c 20 20 30 2c 20 20 20 20  c',   0,  0,    
1120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 2c                0,
1130: 20 20 20 20 30 2c 20 65 74 43 48 41 52 58 2c 20      0, etCHARX, 
1140: 20 20 20 20 20 7d 2c 0a 20 20 7b 20 27 6f 27 2c       },.  { 'o',
1150: 20 20 20 38 2c 20 20 22 30 31 32 33 34 35 36 37     8,  "01234567
1160: 22 2c 20 20 20 20 20 20 20 20 20 30 2c 20 20 22  ",         0,  "
1170: 30 22 2c 20 65 74 52 41 44 49 58 2c 20 20 20 20  0", etRADIX,    
1180: 20 20 7d 2c 0a 20 20 7b 20 27 75 27 2c 20 20 31    },.  { 'u',  1
1190: 30 2c 20 20 22 30 31 32 33 34 35 36 37 38 39 22  0,  "0123456789"
11a0: 2c 20 20 20 20 20 20 20 30 2c 20 20 20 20 30 2c  ,       0,    0,
11b0: 20 65 74 52 41 44 49 58 2c 20 20 20 20 20 20 7d   etRADIX,      }
11c0: 2c 0a 20 20 7b 20 27 78 27 2c 20 20 31 36 2c 20  ,.  { 'x',  16, 
11d0: 20 22 30 31 32 33 34 35 36 37 38 39 61 62 63 64   "0123456789abcd
11e0: 65 66 22 2c 20 30 2c 20 22 78 30 22 2c 20 65 74  ef", 0, "x0", et
11f0: 52 41 44 49 58 2c 20 20 20 20 20 20 7d 2c 0a 20  RADIX,      },. 
1200: 20 7b 20 27 58 27 2c 20 20 31 36 2c 20 20 22 30   { 'X',  16,  "0
1210: 31 32 33 34 35 36 37 38 39 41 42 43 44 45 46 22  123456789ABCDEF"
1220: 2c 20 30 2c 20 22 58 30 22 2c 20 65 74 52 41 44  , 0, "X0", etRAD
1230: 49 58 2c 20 20 20 20 20 20 7d 2c 0a 20 20 7b 20  IX,      },.  { 
1240: 27 72 27 2c 20 20 31 30 2c 20 20 22 30 31 32 33  'r',  10,  "0123
1250: 34 35 36 37 38 39 22 2c 20 20 20 20 20 20 20 30  456789",       0
1260: 2c 20 20 20 20 30 2c 20 65 74 4f 52 44 49 4e 41  ,    0, etORDINA
1270: 4c 2c 20 20 20 20 7d 2c 0a 20 20 7b 20 27 66 27  L,    },.  { 'f'
1280: 2c 20 20 20 30 2c 20 20 30 2c 20 20 20 20 20 20  ,   0,  0,      
1290: 20 20 20 20 20 20 20 20 20 20 20 20 31 2c 20 20              1,  
12a0: 20 20 30 2c 20 65 74 46 4c 4f 41 54 2c 20 20 20    0, etFLOAT,   
12b0: 20 20 20 7d 2c 0a 20 20 7b 20 27 65 27 2c 20 20     },.  { 'e',  
12c0: 20 30 2c 20 20 22 65 22 2c 20 20 20 20 20 20 20   0,  "e",       
12d0: 20 20 20 20 20 20 20 20 20 31 2c 20 20 20 20 30           1,    0
12e0: 2c 20 65 74 45 58 50 2c 20 20 20 20 20 20 20 20  , etEXP,        
12f0: 7d 2c 0a 20 20 7b 20 27 45 27 2c 20 20 20 30 2c  },.  { 'E',   0,
1300: 20 20 22 45 22 2c 20 20 20 20 20 20 20 20 20 20    "E",          
1310: 20 20 20 20 20 20 31 2c 20 20 20 20 30 2c 20 65        1,    0, e
1320: 74 45 58 50 2c 20 20 20 20 20 20 20 20 7d 2c 0a  tEXP,        },.
1330: 20 20 7b 20 27 67 27 2c 20 20 20 30 2c 20 20 22    { 'g',   0,  "
1340: 65 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20  e",             
1350: 20 20 20 31 2c 20 20 20 20 30 2c 20 65 74 47 45     1,    0, etGE
1360: 4e 45 52 49 43 2c 20 20 20 20 7d 2c 0a 20 20 7b  NERIC,    },.  {
1370: 20 27 47 27 2c 20 20 20 30 2c 20 20 22 45 22 2c   'G',   0,  "E",
1380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1390: 31 2c 20 20 20 20 30 2c 20 65 74 47 45 4e 45 52  1,    0, etGENER
13a0: 49 43 2c 20 20 20 20 7d 2c 0a 20 20 7b 20 27 69  IC,    },.  { 'i
13b0: 27 2c 20 20 31 30 2c 20 20 22 30 31 32 33 34 35  ',  10,  "012345
13c0: 36 37 38 39 22 2c 20 20 20 20 20 20 20 31 2c 20  6789",       1, 
13d0: 20 20 20 30 2c 20 65 74 52 41 44 49 58 2c 20 20     0, etRADIX,  
13e0: 20 20 20 20 7d 2c 0a 20 20 7b 20 27 6e 27 2c 20      },.  { 'n', 
13f0: 20 20 30 2c 20 20 30 2c 20 20 20 20 20 20 20 20    0,  0,        
1400: 20 20 20 20 20 20 20 20 20 20 30 2c 20 20 20 20            0,    
1410: 30 2c 20 65 74 53 49 5a 45 2c 20 20 20 20 20 20  0, etSIZE,      
1420: 20 7d 2c 0a 20 20 7b 20 27 25 27 2c 20 20 20 30   },.  { '%',   0
1430: 2c 20 20 30 2c 20 20 20 20 20 20 20 20 20 20 20  ,  0,           
1440: 20 20 20 20 20 20 20 30 2c 20 20 20 20 30 2c 20         0,    0, 
1450: 65 74 50 45 52 43 45 4e 54 2c 20 20 20 20 7d 2c  etPERCENT,    },
1460: 0a 20 20 7b 20 27 62 27 2c 20 20 20 32 2c 20 20  .  { 'b',   2,  
1470: 22 30 31 22 2c 20 20 20 20 20 20 20 20 20 20 20  "01",           
1480: 20 20 20 20 30 2c 20 22 62 30 22 2c 20 65 74 52      0, "b0", etR
1490: 41 44 49 58 2c 20 20 20 20 20 20 7d 2c 20 2f 2a  ADIX,      }, /*
14a0: 20 42 69 6e 61 72 79 20 2a 2f 0a 20 20 7b 20 27   Binary */.  { '
14b0: 70 27 2c 20 20 31 30 2c 20 20 22 30 31 32 33 34  p',  10,  "01234
14c0: 35 36 37 38 39 22 2c 20 20 20 20 20 20 20 30 2c  56789",       0,
14d0: 20 20 20 20 30 2c 20 65 74 52 41 44 49 58 2c 20      0, etRADIX, 
14e0: 20 20 20 20 20 7d 2c 20 2f 2a 20 50 6f 69 6e 74       }, /* Point
14f0: 65 72 73 20 2a 2f 0a 20 20 7b 20 27 5c 27 27 2c  ers */.  { '\'',
1500: 20 20 30 2c 20 20 30 2c 20 20 20 20 20 20 20 20    0,  0,        
1510: 20 20 20 20 20 20 20 20 20 20 30 2c 20 20 20 20            0,    
1520: 30 2c 20 65 74 43 48 41 52 4c 49 54 2c 20 20 20  0, etCHARLIT,   
1530: 20 7d 2c 20 2f 2a 20 4c 69 74 65 72 61 6c 20 63   }, /* Literal c
1540: 68 61 72 20 2a 2f 0a 7d 3b 0a 23 64 65 66 69 6e  har */.};.#defin
1550: 65 20 65 74 4e 49 4e 46 4f 20 20 28 73 69 7a 65  e etNINFO  (size
1560: 6f 66 28 66 6d 74 69 6e 66 6f 29 2f 73 69 7a 65  of(fmtinfo)/size
1570: 6f 66 28 66 6d 74 69 6e 66 6f 5b 30 5d 29 29 0a  of(fmtinfo[0])).
1580: 0a 2f 2a 0a 2a 2a 20 49 66 20 4e 4f 46 4c 4f 41  ./*.** If NOFLOA
1590: 54 49 4e 47 50 4f 49 4e 54 20 69 73 20 64 65 66  TINGPOINT is def
15a0: 69 6e 65 64 2c 20 74 68 65 6e 20 6e 6f 6e 65 20  ined, then none 
15b0: 6f 66 20 74 68 65 20 66 6c 6f 61 74 69 6e 67 20  of the floating 
15c0: 70 6f 69 6e 74 0a 2a 2a 20 63 6f 6e 76 65 72 73  point.** convers
15d0: 69 6f 6e 73 20 77 69 6c 6c 20 77 6f 72 6b 2e 0a  ions will work..
15e0: 2a 2f 0a 23 69 66 6e 64 65 66 20 65 74 4e 4f 46  */.#ifndef etNOF
15f0: 4c 4f 41 54 49 4e 47 50 4f 49 4e 54 0a 2f 2a 0a  LOATINGPOINT./*.
1600: 2a 2a 20 22 2a 76 61 6c 22 20 69 73 20 61 20 64  ** "*val" is a d
1610: 6f 75 62 6c 65 20 73 75 63 68 20 74 68 61 74 20  ouble such that 
1620: 30 2e 31 20 3c 3d 20 2a 76 61 6c 20 3c 20 31 30  0.1 <= *val < 10
1630: 2e 30 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 65  .0.** Return the
1640: 20 61 73 63 69 69 20 63 6f 64 65 20 66 6f 72 20   ascii code for 
1650: 74 68 65 20 6c 65 61 64 69 6e 67 20 64 69 67 69  the leading digi
1660: 74 20 6f 66 20 2a 76 61 6c 2c 20 74 68 65 6e 0a  t of *val, then.
1670: 2a 2a 20 6d 75 6c 74 69 70 6c 79 20 22 2a 76 61  ** multiply "*va
1680: 6c 22 20 62 79 20 31 30 2e 30 20 74 6f 20 72 65  l" by 10.0 to re
1690: 6e 6f 72 6d 61 6c 69 7a 65 2e 0a 2a 2a 0a 2a 2a  normalize..**.**
16a0: 20 45 78 61 6d 70 6c 65 3a 0a 2a 2a 20 20 20 20   Example:.**    
16b0: 20 69 6e 70 75 74 3a 20 20 20 20 20 2a 76 61 6c   input:     *val
16c0: 20 3d 20 33 2e 31 34 31 35 39 0a 2a 2a 20 20 20   = 3.14159.**   
16d0: 20 20 6f 75 74 70 75 74 3a 20 20 20 20 2a 76 61    output:    *va
16e0: 6c 20 3d 20 31 2e 34 31 35 39 20 20 20 20 66 75  l = 1.4159    fu
16f0: 6e 63 74 69 6f 6e 20 72 65 74 75 72 6e 20 3d 20  nction return = 
1700: 27 33 27 0a 2a 2a 0a 2a 2a 20 54 68 65 20 63 6f  '3'.**.** The co
1710: 75 6e 74 65 72 20 2a 63 6e 74 20 69 73 20 69 6e  unter *cnt is in
1720: 63 72 65 6d 65 6e 74 65 64 20 65 61 63 68 20 74  cremented each t
1730: 69 6d 65 2e 20 20 41 66 74 65 72 20 63 6f 75 6e  ime.  After coun
1740: 74 65 72 20 65 78 63 65 65 64 73 0a 2a 2a 20 31  ter exceeds.** 1
1750: 36 20 28 74 68 65 20 6e 75 6d 62 65 72 20 6f 66  6 (the number of
1760: 20 73 69 67 6e 69 66 69 63 61 6e 74 20 64 69 67   significant dig
1770: 69 74 73 20 69 6e 20 61 20 36 34 2d 62 69 74 20  its in a 64-bit 
1780: 66 6c 6f 61 74 29 20 27 30 27 20 69 73 0a 2a 2a  float) '0' is.**
1790: 20 61 6c 77 61 79 73 20 72 65 74 75 72 6e 65 64   always returned
17a0: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20  ..*/.static int 
17b0: 65 74 5f 67 65 74 64 69 67 69 74 28 64 6f 75 62  et_getdigit(doub
17c0: 6c 65 20 2a 76 61 6c 2c 20 69 6e 74 20 2a 63 6e  le *val, int *cn
17d0: 74 29 7b 0a 20 20 69 6e 74 20 64 69 67 69 74 3b  t){.  int digit;
17e0: 0a 20 20 64 6f 75 62 6c 65 20 64 3b 0a 20 20 69  .  double d;.  i
17f0: 66 28 20 28 2a 63 6e 74 29 2b 2b 20 3e 3d 20 31  f( (*cnt)++ >= 1
1800: 36 20 29 20 72 65 74 75 72 6e 20 27 30 27 3b 0a  6 ) return '0';.
1810: 20 20 64 69 67 69 74 20 3d 20 28 69 6e 74 29 2a    digit = (int)*
1820: 76 61 6c 3b 0a 20 20 64 20 3d 20 64 69 67 69 74  val;.  d = digit
1830: 3b 0a 20 20 64 69 67 69 74 20 2b 3d 20 27 30 27  ;.  digit += '0'
1840: 3b 0a 20 20 2a 76 61 6c 20 3d 20 28 2a 76 61 6c  ;.  *val = (*val
1850: 20 2d 20 64 29 2a 31 30 2e 30 3b 0a 20 20 72 65   - d)*10.0;.  re
1860: 74 75 72 6e 20 64 69 67 69 74 3b 0a 7d 0a 23 65  turn digit;.}.#e
1870: 6e 64 69 66 0a 0a 23 64 65 66 69 6e 65 20 65 74  ndif..#define et
1880: 42 55 46 53 49 5a 45 20 31 30 30 30 20 20 2f 2a  BUFSIZE 1000  /*
1890: 20 53 69 7a 65 20 6f 66 20 74 68 65 20 6f 75 74   Size of the out
18a0: 70 75 74 20 62 75 66 66 65 72 20 2a 2f 0a 0a 2f  put buffer */../
18b0: 2a 0a 2a 2a 20 54 68 65 20 72 6f 6f 74 20 70 72  *.** The root pr
18c0: 6f 67 72 61 6d 2e 20 20 41 6c 6c 20 76 61 72 69  ogram.  All vari
18d0: 61 74 69 6f 6e 73 20 63 61 6c 6c 20 74 68 69 73  ations call this
18e0: 20 63 6f 72 65 2e 0a 2a 2a 0a 2a 2a 20 49 4e 50   core..**.** INP
18f0: 55 54 53 3a 0a 2a 2a 20 20 20 66 75 6e 63 20 20  UTS:.**   func  
1900: 20 54 68 69 73 20 69 73 20 61 20 70 6f 69 6e 74   This is a point
1910: 65 72 20 74 6f 20 61 20 66 75 6e 63 74 69 6f 6e  er to a function
1920: 20 74 61 6b 69 6e 67 20 74 68 72 65 65 20 61 72   taking three ar
1930: 67 75 6d 65 6e 74 73 0a 2a 2a 20 20 20 20 20 20  guments.**      
1940: 20 20 20 20 20 20 31 2e 20 41 20 70 6f 69 6e 74        1. A point
1950: 65 72 20 74 6f 20 61 6e 79 74 68 69 6e 67 2e 20  er to anything. 
1960: 20 53 61 6d 65 20 61 73 20 74 68 65 20 22 61 72   Same as the "ar
1970: 67 22 20 70 61 72 61 6d 65 74 65 72 2e 0a 2a 2a  g" parameter..**
1980: 20 20 20 20 20 20 20 20 20 20 20 20 32 2e 20 41              2. A
1990: 20 70 6f 69 6e 74 65 72 20 74 6f 20 74 68 65 20   pointer to the 
19a0: 6c 69 73 74 20 6f 66 20 63 68 61 72 61 63 74 65  list of characte
19b0: 72 73 20 74 6f 20 62 65 20 6f 75 74 70 75 74 0a  rs to be output.
19c0: 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  **              
19d0: 20 28 4e 6f 74 65 2c 20 74 68 69 73 20 6c 69 73   (Note, this lis
19e0: 74 20 69 73 20 4e 4f 54 20 6e 75 6c 6c 20 74 65  t is NOT null te
19f0: 72 6d 69 6e 61 74 65 64 2e 29 0a 2a 2a 20 20 20  rminated.).**   
1a00: 20 20 20 20 20 20 20 20 20 33 2e 20 41 6e 20 69           3. An i
1a10: 6e 74 65 67 65 72 20 6e 75 6d 62 65 72 20 6f 66  nteger number of
1a20: 20 63 68 61 72 61 63 74 65 72 73 20 74 6f 20 62   characters to b
1a30: 65 20 6f 75 74 70 75 74 2e 0a 2a 2a 20 20 20 20  e output..**    
1a40: 20 20 20 20 20 20 20 20 20 20 20 28 4e 6f 74 65             (Note
1a50: 3a 20 54 68 69 73 20 6e 75 6d 62 65 72 20 6d 69  : This number mi
1a60: 67 68 74 20 62 65 20 7a 65 72 6f 2e 29 0a 2a 2a  ght be zero.).**
1a70: 0a 2a 2a 20 20 20 61 72 67 20 20 20 20 54 68 69  .**   arg    Thi
1a80: 73 20 69 73 20 74 68 65 20 70 6f 69 6e 74 65 72  s is the pointer
1a90: 20 74 6f 20 61 6e 79 74 68 69 6e 67 20 77 68 69   to anything whi
1aa0: 63 68 20 77 69 6c 6c 20 62 65 20 70 61 73 73 65  ch will be passe
1ab0: 64 20 61 73 20 74 68 65 0a 2a 2a 20 20 20 20 20  d as the.**     
1ac0: 20 20 20 20 20 66 69 72 73 74 20 61 72 67 75 6d       first argum
1ad0: 65 6e 74 20 74 6f 20 22 66 75 6e 63 22 2e 20 20  ent to "func".  
1ae0: 55 73 65 20 69 74 20 66 6f 72 20 77 68 61 74 65  Use it for whate
1af0: 76 65 72 20 79 6f 75 20 6c 69 6b 65 2e 0a 2a 2a  ver you like..**
1b00: 0a 2a 2a 20 20 20 66 6d 74 20 20 20 20 54 68 69  .**   fmt    Thi
1b10: 73 20 69 73 20 74 68 65 20 66 6f 72 6d 61 74 20  s is the format 
1b20: 73 74 72 69 6e 67 2c 20 61 73 20 69 6e 20 74 68  string, as in th
1b30: 65 20 75 73 75 61 6c 20 70 72 69 6e 74 2e 0a 2a  e usual print..*
1b40: 2a 0a 2a 2a 20 20 20 61 70 20 20 20 20 20 54 68  *.**   ap     Th
1b50: 69 73 20 69 73 20 61 20 70 6f 69 6e 74 65 72 20  is is a pointer 
1b60: 74 6f 20 61 20 6c 69 73 74 20 6f 66 20 61 72 67  to a list of arg
1b70: 75 6d 65 6e 74 73 2e 20 20 53 61 6d 65 20 61 73  uments.  Same as
1b80: 20 69 6e 0a 2a 2a 20 20 20 20 20 20 20 20 20 20   in.**          
1b90: 76 66 70 72 69 6e 74 2e 0a 2a 2a 0a 2a 2a 20 4f  vfprint..**.** O
1ba0: 55 54 50 55 54 53 3a 0a 2a 2a 20 20 20 20 20 20  UTPUTS:.**      
1bb0: 20 20 20 20 54 68 65 20 72 65 74 75 72 6e 20 76      The return v
1bc0: 61 6c 75 65 20 69 73 20 74 68 65 20 74 6f 74 61  alue is the tota
1bd0: 6c 20 6e 75 6d 62 65 72 20 6f 66 20 63 68 61 72  l number of char
1be0: 61 63 74 65 72 73 20 73 65 6e 74 20 74 6f 0a 2a  acters sent to.*
1bf0: 2a 20 20 20 20 20 20 20 20 20 20 74 68 65 20 66  *          the f
1c00: 75 6e 63 74 69 6f 6e 20 22 66 75 6e 63 22 2e 20  unction "func". 
1c10: 20 52 65 74 75 72 6e 73 20 2d 31 20 6f 6e 20 61   Returns -1 on a
1c20: 20 65 72 72 6f 72 2e 0a 2a 2a 0a 2a 2a 20 4e 6f   error..**.** No
1c30: 74 65 20 74 68 61 74 20 74 68 65 20 6f 72 64 65  te that the orde
1c40: 72 20 69 6e 20 77 68 69 63 68 20 61 75 74 6f 6d  r in which autom
1c50: 61 74 69 63 20 76 61 72 69 61 62 6c 65 73 20 61  atic variables a
1c60: 72 65 20 64 65 63 6c 61 72 65 64 20 62 65 6c 6f  re declared belo
1c70: 77 0a 2a 2a 20 73 65 65 6d 73 20 74 6f 20 6d 61  w.** seems to ma
1c80: 6b 65 20 61 20 62 69 67 20 64 69 66 66 65 72 65  ke a big differe
1c90: 6e 63 65 20 69 6e 20 64 65 74 65 72 6d 69 6e 69  nce in determini
1ca0: 6e 67 20 68 6f 77 20 66 61 73 74 20 74 68 69 73  ng how fast this
1cb0: 20 62 65 61 73 74 0a 2a 2a 20 77 69 6c 6c 20 72   beast.** will r
1cc0: 75 6e 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e  un..*/.static in
1cd0: 74 20 76 78 70 72 69 6e 74 66 28 0a 20 20 76 6f  t vxprintf(.  vo
1ce0: 69 64 20 28 2a 66 75 6e 63 29 28 76 6f 69 64 2a  id (*func)(void*
1cf0: 2c 63 68 61 72 2a 2c 69 6e 74 29 2c 0a 20 20 76  ,char*,int),.  v
1d00: 6f 69 64 20 2a 61 72 67 2c 0a 20 20 63 6f 6e 73  oid *arg,.  cons
1d10: 74 20 63 68 61 72 20 2a 66 6f 72 6d 61 74 2c 0a  t char *format,.
1d20: 20 20 76 61 5f 6c 69 73 74 20 61 70 0a 29 7b 0a    va_list ap.){.
1d30: 20 20 72 65 67 69 73 74 65 72 20 63 6f 6e 73 74    register const
1d40: 20 63 68 61 72 20 2a 66 6d 74 3b 20 2f 2a 20 54   char *fmt; /* T
1d50: 68 65 20 66 6f 72 6d 61 74 20 73 74 72 69 6e 67  he format string
1d60: 2e 20 2a 2f 0a 20 20 72 65 67 69 73 74 65 72 20  . */.  register 
1d70: 69 6e 74 20 63 3b 20 20 20 20 20 20 20 20 20 20  int c;          
1d80: 20 2f 2a 20 4e 65 78 74 20 63 68 61 72 61 63 74   /* Next charact
1d90: 65 72 20 69 6e 20 74 68 65 20 66 6f 72 6d 61 74  er in the format
1da0: 20 73 74 72 69 6e 67 20 2a 2f 0a 20 20 72 65 67   string */.  reg
1db0: 69 73 74 65 72 20 63 68 61 72 20 2a 62 75 66 70  ister char *bufp
1dc0: 74 3b 20 20 20 20 20 2f 2a 20 50 6f 69 6e 74 65  t;     /* Pointe
1dd0: 72 20 74 6f 20 74 68 65 20 63 6f 6e 76 65 72 73  r to the convers
1de0: 69 6f 6e 20 62 75 66 66 65 72 20 2a 2f 0a 20 20  ion buffer */.  
1df0: 72 65 67 69 73 74 65 72 20 69 6e 74 20 20 70 72  register int  pr
1e00: 65 63 69 73 69 6f 6e 3b 20 20 2f 2a 20 50 72 65  ecision;  /* Pre
1e10: 63 69 73 69 6f 6e 20 6f 66 20 74 68 65 20 63 75  cision of the cu
1e20: 72 72 65 6e 74 20 66 69 65 6c 64 20 2a 2f 0a 20  rrent field */. 
1e30: 20 72 65 67 69 73 74 65 72 20 69 6e 74 20 20 6c   register int  l
1e40: 65 6e 67 74 68 3b 20 20 20 20 20 2f 2a 20 4c 65  ength;     /* Le
1e50: 6e 67 74 68 20 6f 66 20 74 68 65 20 66 69 65 6c  ngth of the fiel
1e60: 64 20 2a 2f 0a 20 20 72 65 67 69 73 74 65 72 20  d */.  register 
1e70: 69 6e 74 20 20 69 64 78 3b 20 20 20 20 20 20 20  int  idx;       
1e80: 20 2f 2a 20 41 20 67 65 6e 65 72 61 6c 20 70 75   /* A general pu
1e90: 72 70 6f 73 65 20 6c 6f 6f 70 20 63 6f 75 6e 74  rpose loop count
1ea0: 65 72 20 2a 2f 0a 20 20 69 6e 74 20 63 6f 75 6e  er */.  int coun
1eb0: 74 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  t;              
1ec0: 20 20 2f 2a 20 54 6f 74 61 6c 20 6e 75 6d 62 65    /* Total numbe
1ed0: 72 20 6f 66 20 63 68 61 72 61 63 74 65 72 73 20  r of characters 
1ee0: 6f 75 74 70 75 74 20 2a 2f 0a 20 20 69 6e 74 20  output */.  int 
1ef0: 77 69 64 74 68 3b 20 20 20 20 20 20 20 20 20 20  width;          
1f00: 20 20 20 20 20 20 2f 2a 20 57 69 64 74 68 20 6f        /* Width o
1f10: 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 66 69  f the current fi
1f20: 65 6c 64 20 2a 2f 0a 20 20 69 6e 74 20 66 6c 61  eld */.  int fla
1f30: 67 5f 6c 65 66 74 6a 75 73 74 69 66 79 3b 20 20  g_leftjustify;  
1f40: 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20 22 2d     /* True if "-
1f50: 22 20 66 6c 61 67 20 69 73 20 70 72 65 73 65 6e  " flag is presen
1f60: 74 20 2a 2f 0a 20 20 69 6e 74 20 66 6c 61 67 5f  t */.  int flag_
1f70: 70 6c 75 73 73 69 67 6e 3b 20 20 20 20 20 20 20  plussign;       
1f80: 20 2f 2a 20 54 72 75 65 20 69 66 20 22 2b 22 20   /* True if "+" 
1f90: 66 6c 61 67 20 69 73 20 70 72 65 73 65 6e 74 20  flag is present 
1fa0: 2a 2f 0a 20 20 69 6e 74 20 66 6c 61 67 5f 62 6c  */.  int flag_bl
1fb0: 61 6e 6b 73 69 67 6e 3b 20 20 20 20 20 20 20 2f  anksign;       /
1fc0: 2a 20 54 72 75 65 20 69 66 20 22 20 22 20 66 6c  * True if " " fl
1fd0: 61 67 20 69 73 20 70 72 65 73 65 6e 74 20 2a 2f  ag is present */
1fe0: 0a 20 20 69 6e 74 20 66 6c 61 67 5f 61 6c 74 65  .  int flag_alte
1ff0: 72 6e 61 74 65 66 6f 72 6d 3b 20 20 20 2f 2a 20  rnateform;   /* 
2000: 54 72 75 65 20 69 66 20 22 23 22 20 66 6c 61 67  True if "#" flag
2010: 20 69 73 20 70 72 65 73 65 6e 74 20 2a 2f 0a 20   is present */. 
2020: 20 69 6e 74 20 66 6c 61 67 5f 7a 65 72 6f 70 61   int flag_zeropa
2030: 64 3b 20 20 20 20 20 20 20 20 20 2f 2a 20 54 72  d;         /* Tr
2040: 75 65 20 69 66 20 66 69 65 6c 64 20 77 69 64 74  ue if field widt
2050: 68 20 63 6f 6e 73 74 61 6e 74 20 73 74 61 72 74  h constant start
2060: 73 20 77 69 74 68 20 7a 65 72 6f 20 2a 2f 0a 20  s with zero */. 
2070: 20 69 6e 74 20 66 6c 61 67 5f 6c 6f 6e 67 3b 20   int flag_long; 
2080: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 72             /* Tr
2090: 75 65 20 69 66 20 22 6c 22 20 66 6c 61 67 20 69  ue if "l" flag i
20a0: 73 20 70 72 65 73 65 6e 74 20 2a 2f 0a 20 20 69  s present */.  i
20b0: 6e 74 20 66 6c 61 67 5f 63 65 6e 74 65 72 3b 20  nt flag_center; 
20c0: 20 20 20 20 20 20 20 20 20 2f 2a 20 54 72 75 65           /* True
20d0: 20 69 66 20 22 3d 22 20 66 6c 61 67 20 69 73 20   if "=" flag is 
20e0: 70 72 65 73 65 6e 74 20 2a 2f 0a 20 20 75 6e 73  present */.  uns
20f0: 69 67 6e 65 64 20 6c 6f 6e 67 20 6c 6f 6e 67 76  igned long longv
2100: 61 6c 75 65 3b 20 20 2f 2a 20 56 61 6c 75 65 20  alue;  /* Value 
2110: 66 6f 72 20 69 6e 74 65 67 65 72 20 74 79 70 65  for integer type
2120: 73 20 2a 2f 0a 20 20 64 6f 75 62 6c 65 20 72 65  s */.  double re
2130: 61 6c 76 61 6c 75 65 3b 20 20 20 20 20 20 20 20  alvalue;        
2140: 20 2f 2a 20 56 61 6c 75 65 20 66 6f 72 20 72 65   /* Value for re
2150: 61 6c 20 74 79 70 65 73 20 2a 2f 0a 20 20 65 74  al types */.  et
2160: 5f 69 6e 66 6f 20 2a 69 6e 66 6f 70 3b 20 20 20  _info *infop;   
2170: 20 20 20 20 20 20 20 20 2f 2a 20 50 6f 69 6e 74          /* Point
2180: 65 72 20 74 6f 20 74 68 65 20 61 70 70 72 6f 70  er to the approp
2190: 72 69 61 74 65 20 69 6e 66 6f 20 73 74 72 75 63  riate info struc
21a0: 74 75 72 65 20 2a 2f 0a 20 20 63 68 61 72 20 62  ture */.  char b
21b0: 75 66 5b 65 74 42 55 46 53 49 5a 45 5d 3b 20 20  uf[etBUFSIZE];  
21c0: 20 20 20 20 2f 2a 20 43 6f 6e 76 65 72 73 69 6f      /* Conversio
21d0: 6e 20 62 75 66 66 65 72 20 2a 2f 0a 20 20 63 68  n buffer */.  ch
21e0: 61 72 20 70 72 65 66 69 78 3b 20 20 20 20 20 20  ar prefix;      
21f0: 20 20 20 20 20 20 20 20 2f 2a 20 50 72 65 66 69          /* Prefi
2200: 78 20 63 68 61 72 61 63 74 65 72 2e 20 20 22 2b  x character.  "+
2210: 22 20 6f 72 20 22 2d 22 20 6f 72 20 22 20 22 20  " or "-" or " " 
2220: 6f 72 20 27 5c 30 27 2e 20 2a 2f 0a 20 20 69 6e  or '\0'. */.  in
2230: 74 20 20 65 72 72 6f 72 66 6c 61 67 20 3d 20 30  t  errorflag = 0
2240: 3b 20 20 20 20 20 20 20 2f 2a 20 54 72 75 65 20  ;       /* True 
2250: 69 66 20 61 6e 20 65 72 72 6f 72 20 69 73 20 65  if an error is e
2260: 6e 63 6f 75 6e 74 65 72 65 64 20 2a 2f 0a 20 20  ncountered */.  
2270: 65 6e 75 6d 20 65 74 5f 74 79 70 65 20 78 74 79  enum et_type xty
2280: 70 65 3b 20 20 20 20 20 20 20 2f 2a 20 43 6f 6e  pe;       /* Con
2290: 76 65 72 73 69 6f 6e 20 70 61 72 61 64 69 67 6d  version paradigm
22a0: 20 2a 2f 0a 20 20 63 68 61 72 20 2a 7a 4d 65 6d   */.  char *zMem
22b0: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ;               
22c0: 2f 2a 20 53 74 72 69 6e 67 20 74 6f 20 62 65 20  /* String to be 
22d0: 66 72 65 65 64 20 2a 2f 0a 20 20 63 68 61 72 20  freed */.  char 
22e0: 2a 7a 45 78 74 72 61 3b 20 20 20 20 20 20 20 20  *zExtra;        
22f0: 20 20 20 20 20 2f 2a 20 45 78 74 72 61 20 6d 65       /* Extra me
2300: 6d 6f 72 79 20 75 73 65 64 20 66 6f 72 20 65 74  mory used for et
2310: 54 43 4c 45 53 43 41 50 45 20 63 6f 6e 76 65 72  TCLESCAPE conver
2320: 73 69 6f 6e 73 20 2a 2f 0a 20 20 73 74 61 74 69  sions */.  stati
2330: 63 20 63 68 61 72 20 73 70 61 63 65 73 5b 5d 20  c char spaces[] 
2340: 3d 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20  = "             
2350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2370: 20 20 20 20 20 22 0a 20 20 20 20 20 22 20 20 20       ".     "   
2380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
23a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
23b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
23c0: 20 20 20 22 3b 0a 23 64 65 66 69 6e 65 20 65 74     ";.#define et
23d0: 53 50 41 43 45 53 49 5a 45 20 28 73 69 7a 65 6f  SPACESIZE (sizeo
23e0: 66 28 73 70 61 63 65 73 29 2d 31 29 0a 23 69 66  f(spaces)-1).#if
23f0: 6e 64 65 66 20 65 74 4e 4f 46 4c 4f 41 54 49 4e  ndef etNOFLOATIN
2400: 47 50 4f 49 4e 54 0a 20 20 69 6e 74 20 20 65 78  GPOINT.  int  ex
2410: 70 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  p;              
2420: 20 20 20 2f 2a 20 65 78 70 6f 6e 65 6e 74 20 6f     /* exponent o
2430: 66 20 72 65 61 6c 20 6e 75 6d 62 65 72 73 20 2a  f real numbers *
2440: 2f 0a 20 20 64 6f 75 62 6c 65 20 72 6f 75 6e 64  /.  double round
2450: 65 72 3b 20 20 20 20 20 20 20 20 20 20 20 2f 2a  er;           /*
2460: 20 55 73 65 64 20 66 6f 72 20 72 6f 75 6e 64 69   Used for roundi
2470: 6e 67 20 66 6c 6f 61 74 69 6e 67 20 70 6f 69 6e  ng floating poin
2480: 74 20 76 61 6c 75 65 73 20 2a 2f 0a 20 20 69 6e  t values */.  in
2490: 74 20 66 6c 61 67 5f 64 70 3b 20 20 20 20 20 20  t flag_dp;      
24a0: 20 20 20 20 20 20 20 20 2f 2a 20 54 72 75 65 20          /* True 
24b0: 69 66 20 64 65 63 69 6d 61 6c 20 70 6f 69 6e 74  if decimal point
24c0: 20 73 68 6f 75 6c 64 20 62 65 20 73 68 6f 77 6e   should be shown
24d0: 20 2a 2f 0a 20 20 69 6e 74 20 66 6c 61 67 5f 72   */.  int flag_r
24e0: 74 7a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20  tz;             
24f0: 2f 2a 20 54 72 75 65 20 69 66 20 74 72 61 69 6c  /* True if trail
2500: 69 6e 67 20 7a 65 72 6f 73 20 73 68 6f 75 6c 64  ing zeros should
2510: 20 62 65 20 72 65 6d 6f 76 65 64 20 2a 2f 0a 20   be removed */. 
2520: 20 69 6e 74 20 66 6c 61 67 5f 65 78 70 3b 20 20   int flag_exp;  
2530: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 72             /* Tr
2540: 75 65 20 74 6f 20 66 6f 72 63 65 20 64 69 73 70  ue to force disp
2550: 6c 61 79 20 6f 66 20 74 68 65 20 65 78 70 6f 6e  lay of the expon
2560: 65 6e 74 20 2a 2f 0a 20 20 69 6e 74 20 6e 73 64  ent */.  int nsd
2570: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ;               
2580: 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20     /* Number of 
2590: 73 69 67 6e 69 66 69 63 61 6e 74 20 64 69 67 69  significant digi
25a0: 74 73 20 72 65 74 75 72 6e 65 64 20 2a 2f 0a 23  ts returned */.#
25b0: 65 6e 64 69 66 0a 0a 20 20 66 6d 74 20 3d 20 66  endif..  fmt = f
25c0: 6f 72 6d 61 74 3b 20 20 20 20 20 20 20 20 20 20  ormat;          
25d0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 50 75             /* Pu
25e0: 74 20 69 6e 20 61 20 72 65 67 69 73 74 65 72 20  t in a register 
25f0: 66 6f 72 20 73 70 65 65 64 20 2a 2f 0a 20 20 63  for speed */.  c
2600: 6f 75 6e 74 20 3d 20 6c 65 6e 67 74 68 20 3d 20  ount = length = 
2610: 30 3b 0a 20 20 62 75 66 70 74 20 3d 20 30 3b 0a  0;.  bufpt = 0;.
2620: 20 20 66 6f 72 28 3b 20 28 63 3d 28 2a 66 6d 74    for(; (c=(*fmt
2630: 29 29 21 3d 30 3b 20 2b 2b 66 6d 74 29 7b 0a 20  ))!=0; ++fmt){. 
2640: 20 20 20 69 66 28 20 63 21 3d 27 25 27 20 29 7b     if( c!='%' ){
2650: 0a 20 20 20 20 20 20 72 65 67 69 73 74 65 72 20  .      register 
2660: 69 6e 74 20 61 6d 74 3b 0a 20 20 20 20 20 20 62  int amt;.      b
2670: 75 66 70 74 20 3d 20 28 63 68 61 72 20 2a 29 66  ufpt = (char *)f
2680: 6d 74 3b 0a 20 20 20 20 20 20 61 6d 74 20 3d 20  mt;.      amt = 
2690: 31 3b 0a 20 20 20 20 20 20 77 68 69 6c 65 28 20  1;.      while( 
26a0: 28 63 3d 28 2a 2b 2b 66 6d 74 29 29 21 3d 27 25  (c=(*++fmt))!='%
26b0: 27 20 26 26 20 63 21 3d 30 20 29 20 61 6d 74 2b  ' && c!=0 ) amt+
26c0: 2b 3b 0a 20 20 20 20 20 20 28 2a 66 75 6e 63 29  +;.      (*func)
26d0: 28 61 72 67 2c 62 75 66 70 74 2c 61 6d 74 29 3b  (arg,bufpt,amt);
26e0: 0a 20 20 20 20 20 20 63 6f 75 6e 74 20 2b 3d 20  .      count += 
26f0: 61 6d 74 3b 0a 20 20 20 20 20 20 69 66 28 20 63  amt;.      if( c
2700: 3d 3d 30 20 29 20 62 72 65 61 6b 3b 0a 20 20 20  ==0 ) break;.   
2710: 20 7d 0a 20 20 20 20 69 66 28 20 28 63 3d 28 2a   }.    if( (c=(*
2720: 2b 2b 66 6d 74 29 29 3d 3d 30 20 29 7b 0a 20 20  ++fmt))==0 ){.  
2730: 20 20 20 20 65 72 72 6f 72 66 6c 61 67 20 3d 20      errorflag = 
2740: 31 3b 0a 20 20 20 20 20 20 28 2a 66 75 6e 63 29  1;.      (*func)
2750: 28 61 72 67 2c 22 25 22 2c 31 29 3b 0a 20 20 20  (arg,"%",1);.   
2760: 20 20 20 63 6f 75 6e 74 2b 2b 3b 0a 20 20 20 20     count++;.    
2770: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20    break;.    }. 
2780: 20 20 20 2f 2a 20 46 69 6e 64 20 6f 75 74 20 77     /* Find out w
2790: 68 61 74 20 66 6c 61 67 73 20 61 72 65 20 70 72  hat flags are pr
27a0: 65 73 65 6e 74 20 2a 2f 0a 20 20 20 20 66 6c 61  esent */.    fla
27b0: 67 5f 6c 65 66 74 6a 75 73 74 69 66 79 20 3d 20  g_leftjustify = 
27c0: 66 6c 61 67 5f 70 6c 75 73 73 69 67 6e 20 3d 20  flag_plussign = 
27d0: 66 6c 61 67 5f 62 6c 61 6e 6b 73 69 67 6e 20 3d  flag_blanksign =
27e0: 20 0a 20 20 20 20 20 66 6c 61 67 5f 61 6c 74 65   .     flag_alte
27f0: 72 6e 61 74 65 66 6f 72 6d 20 3d 20 66 6c 61 67  rnateform = flag
2800: 5f 7a 65 72 6f 70 61 64 20 3d 20 66 6c 61 67 5f  _zeropad = flag_
2810: 63 65 6e 74 65 72 20 3d 20 30 3b 0a 20 20 20 20  center = 0;.    
2820: 64 6f 7b 0a 20 20 20 20 20 20 73 77 69 74 63 68  do{.      switch
2830: 28 20 63 20 29 7b 0a 20 20 20 20 20 20 20 20 63  ( c ){.        c
2840: 61 73 65 20 27 2d 27 3a 20 20 20 66 6c 61 67 5f  ase '-':   flag_
2850: 6c 65 66 74 6a 75 73 74 69 66 79 20 3d 20 31 3b  leftjustify = 1;
2860: 20 20 20 20 20 63 20 3d 20 30 3b 20 20 20 62 72       c = 0;   br
2870: 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 63 61 73  eak;.        cas
2880: 65 20 27 2b 27 3a 20 20 20 66 6c 61 67 5f 70 6c  e '+':   flag_pl
2890: 75 73 73 69 67 6e 20 3d 20 31 3b 20 20 20 20 20  ussign = 1;     
28a0: 20 20 20 63 20 3d 20 30 3b 20 20 20 62 72 65 61     c = 0;   brea
28b0: 6b 3b 0a 20 20 20 20 20 20 20 20 63 61 73 65 20  k;.        case 
28c0: 27 20 27 3a 20 20 20 66 6c 61 67 5f 62 6c 61 6e  ' ':   flag_blan
28d0: 6b 73 69 67 6e 20 3d 20 31 3b 20 20 20 20 20 20  ksign = 1;      
28e0: 20 63 20 3d 20 30 3b 20 20 20 62 72 65 61 6b 3b   c = 0;   break;
28f0: 0a 20 20 20 20 20 20 20 20 63 61 73 65 20 27 23  .        case '#
2900: 27 3a 20 20 20 66 6c 61 67 5f 61 6c 74 65 72 6e  ':   flag_altern
2910: 61 74 65 66 6f 72 6d 20 3d 20 31 3b 20 20 20 63  ateform = 1;   c
2920: 20 3d 20 30 3b 20 20 20 62 72 65 61 6b 3b 0a 20   = 0;   break;. 
2930: 20 20 20 20 20 20 20 63 61 73 65 20 27 30 27 3a         case '0':
2940: 20 20 20 66 6c 61 67 5f 7a 65 72 6f 70 61 64 20     flag_zeropad 
2950: 3d 20 31 3b 20 20 20 20 20 20 20 20 20 63 20 3d  = 1;         c =
2960: 20 30 3b 20 20 20 62 72 65 61 6b 3b 0a 20 20 20   0;   break;.   
2970: 20 20 20 20 20 63 61 73 65 20 27 3d 27 3a 20 20       case '=':  
2980: 20 66 6c 61 67 5f 63 65 6e 74 65 72 20 3d 20 31   flag_center = 1
2990: 3b 20 20 20 20 20 20 20 20 20 20 63 20 3d 20 30  ;          c = 0
29a0: 3b 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20  ;   break;.     
29b0: 20 20 20 64 65 66 61 75 6c 74 3a 20 20 20 20 20     default:     
29c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
29d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
29e0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 7d    break;.      }
29f0: 0a 20 20 20 20 7d 77 68 69 6c 65 28 20 63 3d 3d  .    }while( c==
2a00: 30 20 26 26 20 28 63 3d 28 2a 2b 2b 66 6d 74 29  0 && (c=(*++fmt)
2a10: 29 21 3d 30 20 29 3b 0a 20 20 20 20 69 66 28 20  )!=0 );.    if( 
2a20: 66 6c 61 67 5f 63 65 6e 74 65 72 20 29 20 66 6c  flag_center ) fl
2a30: 61 67 5f 6c 65 66 74 6a 75 73 74 69 66 79 20 3d  ag_leftjustify =
2a40: 20 30 3b 0a 20 20 20 20 2f 2a 20 47 65 74 20 74   0;.    /* Get t
2a50: 68 65 20 66 69 65 6c 64 20 77 69 64 74 68 20 2a  he field width *
2a60: 2f 0a 20 20 20 20 77 69 64 74 68 20 3d 20 30 3b  /.    width = 0;
2a70: 0a 20 20 20 20 69 66 28 20 63 3d 3d 27 2a 27 20  .    if( c=='*' 
2a80: 29 7b 0a 20 20 20 20 20 20 77 69 64 74 68 20 3d  ){.      width =
2a90: 20 76 61 5f 61 72 67 28 61 70 2c 69 6e 74 29 3b   va_arg(ap,int);
2aa0: 0a 20 20 20 20 20 20 69 66 28 20 77 69 64 74 68  .      if( width
2ab0: 3c 30 20 29 7b 0a 20 20 20 20 20 20 20 20 66 6c  <0 ){.        fl
2ac0: 61 67 5f 6c 65 66 74 6a 75 73 74 69 66 79 20 3d  ag_leftjustify =
2ad0: 20 31 3b 0a 20 20 20 20 20 20 20 20 77 69 64 74   1;.        widt
2ae0: 68 20 3d 20 2d 77 69 64 74 68 3b 0a 20 20 20 20  h = -width;.    
2af0: 20 20 7d 0a 20 20 20 20 20 20 63 20 3d 20 2a 2b    }.      c = *+
2b00: 2b 66 6d 74 3b 0a 20 20 20 20 7d 65 6c 73 65 7b  +fmt;.    }else{
2b10: 0a 20 20 20 20 20 20 77 68 69 6c 65 28 20 63 3e  .      while( c>
2b20: 3d 27 30 27 20 26 26 20 63 3c 3d 27 39 27 20 29  ='0' && c<='9' )
2b30: 7b 0a 20 20 20 20 20 20 20 20 77 69 64 74 68 20  {.        width 
2b40: 3d 20 77 69 64 74 68 2a 31 30 20 2b 20 63 20 2d  = width*10 + c -
2b50: 20 27 30 27 3b 0a 20 20 20 20 20 20 20 20 63 20   '0';.        c 
2b60: 3d 20 2a 2b 2b 66 6d 74 3b 0a 20 20 20 20 20 20  = *++fmt;.      
2b70: 7d 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 28 20  }.    }.    if( 
2b80: 77 69 64 74 68 20 3e 20 65 74 42 55 46 53 49 5a  width > etBUFSIZ
2b90: 45 2d 31 30 20 29 7b 0a 20 20 20 20 20 20 77 69  E-10 ){.      wi
2ba0: 64 74 68 20 3d 20 65 74 42 55 46 53 49 5a 45 2d  dth = etBUFSIZE-
2bb0: 31 30 3b 0a 20 20 20 20 7d 0a 20 20 20 20 2f 2a  10;.    }.    /*
2bc0: 20 47 65 74 20 74 68 65 20 70 72 65 63 69 73 69   Get the precisi
2bd0: 6f 6e 20 2a 2f 0a 20 20 20 20 69 66 28 20 63 3d  on */.    if( c=
2be0: 3d 27 2e 27 20 29 7b 0a 20 20 20 20 20 20 70 72  ='.' ){.      pr
2bf0: 65 63 69 73 69 6f 6e 20 3d 20 30 3b 0a 20 20 20  ecision = 0;.   
2c00: 20 20 20 63 20 3d 20 2a 2b 2b 66 6d 74 3b 0a 20     c = *++fmt;. 
2c10: 20 20 20 20 20 69 66 28 20 63 3d 3d 27 2a 27 20       if( c=='*' 
2c20: 29 7b 0a 20 20 20 20 20 20 20 20 70 72 65 63 69  ){.        preci
2c30: 73 69 6f 6e 20 3d 20 76 61 5f 61 72 67 28 61 70  sion = va_arg(ap
2c40: 2c 69 6e 74 29 3b 0a 23 69 66 6e 64 65 66 20 65  ,int);.#ifndef e
2c50: 74 43 4f 4d 50 41 54 49 42 49 4c 49 54 59 0a 20  tCOMPATIBILITY. 
2c60: 20 20 20 20 20 20 20 2f 2a 20 54 68 69 73 20 69         /* This i
2c70: 73 20 73 65 6e 73 69 62 6c 65 2c 20 62 75 74 20  s sensible, but 
2c80: 53 55 4e 20 4f 53 20 34 2e 31 20 64 6f 65 73 6e  SUN OS 4.1 doesn
2c90: 27 74 20 64 6f 20 69 74 2e 20 2a 2f 0a 20 20 20  't do it. */.   
2ca0: 20 20 20 20 20 69 66 28 20 70 72 65 63 69 73 69       if( precisi
2cb0: 6f 6e 3c 30 20 29 20 70 72 65 63 69 73 69 6f 6e  on<0 ) precision
2cc0: 20 3d 20 2d 70 72 65 63 69 73 69 6f 6e 3b 0a 23   = -precision;.#
2cd0: 65 6e 64 69 66 0a 20 20 20 20 20 20 20 20 63 20  endif.        c 
2ce0: 3d 20 2a 2b 2b 66 6d 74 3b 0a 20 20 20 20 20 20  = *++fmt;.      
2cf0: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 77  }else{.        w
2d00: 68 69 6c 65 28 20 63 3e 3d 27 30 27 20 26 26 20  hile( c>='0' && 
2d10: 63 3c 3d 27 39 27 20 29 7b 0a 20 20 20 20 20 20  c<='9' ){.      
2d20: 20 20 20 20 70 72 65 63 69 73 69 6f 6e 20 3d 20      precision = 
2d30: 70 72 65 63 69 73 69 6f 6e 2a 31 30 20 2b 20 63  precision*10 + c
2d40: 20 2d 20 27 30 27 3b 0a 20 20 20 20 20 20 20 20   - '0';.        
2d50: 20 20 63 20 3d 20 2a 2b 2b 66 6d 74 3b 0a 20 20    c = *++fmt;.  
2d60: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a        }.      }.
2d70: 20 20 20 20 20 20 2f 2a 20 4c 69 6d 69 74 20 74        /* Limit t
2d80: 68 65 20 70 72 65 63 69 73 69 6f 6e 20 74 6f 20  he precision to 
2d90: 70 72 65 76 65 6e 74 20 6f 76 65 72 66 6c 6f 77  prevent overflow
2da0: 69 6e 67 20 62 75 66 5b 5d 20 64 75 72 69 6e 67  ing buf[] during
2db0: 20 63 6f 6e 76 65 72 73 69 6f 6e 20 2a 2f 0a 20   conversion */. 
2dc0: 20 20 20 20 20 69 66 28 20 70 72 65 63 69 73 69       if( precisi
2dd0: 6f 6e 3e 65 74 42 55 46 53 49 5a 45 2d 34 30 20  on>etBUFSIZE-40 
2de0: 29 20 70 72 65 63 69 73 69 6f 6e 20 3d 20 65 74  ) precision = et
2df0: 42 55 46 53 49 5a 45 2d 34 30 3b 0a 20 20 20 20  BUFSIZE-40;.    
2e00: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 70 72 65  }else{.      pre
2e10: 63 69 73 69 6f 6e 20 3d 20 2d 31 3b 0a 20 20 20  cision = -1;.   
2e20: 20 7d 0a 20 20 20 20 2f 2a 20 47 65 74 20 74 68   }.    /* Get th
2e30: 65 20 63 6f 6e 76 65 72 73 69 6f 6e 20 74 79 70  e conversion typ
2e40: 65 20 6d 6f 64 69 66 69 65 72 20 2a 2f 0a 20 20  e modifier */.  
2e50: 20 20 69 66 28 20 63 3d 3d 27 6c 27 20 29 7b 0a    if( c=='l' ){.
2e60: 20 20 20 20 20 20 66 6c 61 67 5f 6c 6f 6e 67 20        flag_long 
2e70: 3d 20 31 3b 0a 20 20 20 20 20 20 63 20 3d 20 2a  = 1;.      c = *
2e80: 2b 2b 66 6d 74 3b 0a 20 20 20 20 7d 65 6c 73 65  ++fmt;.    }else
2e90: 7b 0a 20 20 20 20 20 20 66 6c 61 67 5f 6c 6f 6e  {.      flag_lon
2ea0: 67 20 3d 20 30 3b 0a 20 20 20 20 7d 0a 20 20 20  g = 0;.    }.   
2eb0: 20 2f 2a 20 46 65 74 63 68 20 74 68 65 20 69 6e   /* Fetch the in
2ec0: 66 6f 20 65 6e 74 72 79 20 66 6f 72 20 74 68 65  fo entry for the
2ed0: 20 66 69 65 6c 64 20 2a 2f 0a 20 20 20 20 69 6e   field */.    in
2ee0: 66 6f 70 20 3d 20 30 3b 0a 20 20 20 20 66 6f 72  fop = 0;.    for
2ef0: 28 69 64 78 3d 30 3b 20 69 64 78 3c 65 74 4e 49  (idx=0; idx<etNI
2f00: 4e 46 4f 3b 20 69 64 78 2b 2b 29 7b 0a 20 20 20  NFO; idx++){.   
2f10: 20 20 20 69 66 28 20 63 3d 3d 66 6d 74 69 6e 66     if( c==fmtinf
2f20: 6f 5b 69 64 78 5d 2e 66 6d 74 74 79 70 65 20 29  o[idx].fmttype )
2f30: 7b 0a 20 20 20 20 20 20 20 20 69 6e 66 6f 70 20  {.        infop 
2f40: 3d 20 26 66 6d 74 69 6e 66 6f 5b 69 64 78 5d 3b  = &fmtinfo[idx];
2f50: 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a  .        break;.
2f60: 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20        }.    }.  
2f70: 20 20 2f 2a 20 4e 6f 20 69 6e 66 6f 20 65 6e 74    /* No info ent
2f80: 72 79 20 66 6f 75 6e 64 2e 20 20 49 74 20 6d 75  ry found.  It mu
2f90: 73 74 20 62 65 20 61 6e 20 65 72 72 6f 72 2e 20  st be an error. 
2fa0: 2a 2f 0a 20 20 20 20 69 66 28 20 69 6e 66 6f 70  */.    if( infop
2fb0: 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 78 74 79  ==0 ){.      xty
2fc0: 70 65 20 3d 20 65 74 45 52 52 4f 52 3b 0a 20 20  pe = etERROR;.  
2fd0: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 78    }else{.      x
2fe0: 74 79 70 65 20 3d 20 69 6e 66 6f 70 2d 3e 74 79  type = infop->ty
2ff0: 70 65 3b 0a 20 20 20 20 7d 0a 20 20 20 20 7a 45  pe;.    }.    zE
3000: 78 74 72 61 20 3d 20 30 3b 0a 0a 20 20 20 20 2f  xtra = 0;..    /
3010: 2a 0a 20 20 20 20 2a 2a 20 41 74 20 74 68 69 73  *.    ** At this
3020: 20 70 6f 69 6e 74 2c 20 76 61 72 69 61 62 6c 65   point, variable
3030: 73 20 61 72 65 20 69 6e 69 74 69 61 6c 69 7a 65  s are initialize
3040: 64 20 61 73 20 66 6f 6c 6c 6f 77 73 3a 0a 20 20  d as follows:.  
3050: 20 20 2a 2a 0a 20 20 20 20 2a 2a 20 20 20 66 6c    **.    **   fl
3060: 61 67 5f 61 6c 74 65 72 6e 61 74 65 66 6f 72 6d  ag_alternateform
3070: 20 20 20 20 20 20 20 20 20 20 54 52 55 45 20 69            TRUE i
3080: 66 20 61 20 27 23 27 20 69 73 20 70 72 65 73 65  f a '#' is prese
3090: 6e 74 2e 0a 20 20 20 20 2a 2a 20 20 20 66 6c 61  nt..    **   fla
30a0: 67 5f 70 6c 75 73 73 69 67 6e 20 20 20 20 20 20  g_plussign      
30b0: 20 20 20 20 20 20 20 20 20 54 52 55 45 20 69 66           TRUE if
30c0: 20 61 20 27 2b 27 20 69 73 20 70 72 65 73 65 6e   a '+' is presen
30d0: 74 2e 0a 20 20 20 20 2a 2a 20 20 20 66 6c 61 67  t..    **   flag
30e0: 5f 6c 65 66 74 6a 75 73 74 69 66 79 20 20 20 20  _leftjustify    
30f0: 20 20 20 20 20 20 20 20 54 52 55 45 20 69 66 20          TRUE if 
3100: 61 20 27 2d 27 20 69 73 20 70 72 65 73 65 6e 74  a '-' is present
3110: 20 6f 72 20 69 66 20 74 68 65 0a 20 20 20 20 2a   or if the.    *
3120: 2a 20 20 20 20 20 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: 66 69 65 6c 64 20 77 69 64 74 68 20 77 61 73 20  field width was 
3150: 6e 65 67 61 74 69 76 65 2e 0a 20 20 20 20 2a 2a  negative..    **
3160: 20 20 20 66 6c 61 67 5f 7a 65 72 6f 70 61 64 20     flag_zeropad 
3170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54                 T
3180: 52 55 45 20 69 66 20 74 68 65 20 77 69 64 74 68  RUE if the width
3190: 20 62 65 67 61 6e 20 77 69 74 68 20 30 2e 0a 20   began with 0.. 
31a0: 20 20 20 2a 2a 20 20 20 66 6c 61 67 5f 6c 6f 6e     **   flag_lon
31b0: 67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  g               
31c0: 20 20 20 20 54 52 55 45 20 69 66 20 74 68 65 20      TRUE if the 
31d0: 6c 65 74 74 65 72 20 27 6c 27 20 28 65 6c 6c 29  letter 'l' (ell)
31e0: 20 70 72 65 66 69 78 65 64 0a 20 20 20 20 2a 2a   prefixed.    **
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 20 20 20 74                 t
3210: 68 65 20 63 6f 6e 76 65 72 73 69 6f 6e 20 63 68  he conversion ch
3220: 61 72 61 63 74 65 72 2e 0a 20 20 20 20 2a 2a 20  aracter..    ** 
3230: 20 20 66 6c 61 67 5f 62 6c 61 6e 6b 73 69 67 6e    flag_blanksign
3240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 52                TR
3250: 55 45 20 69 66 20 61 20 27 20 27 20 69 73 20 70  UE if a ' ' is p
3260: 72 65 73 65 6e 74 2e 0a 20 20 20 20 2a 2a 20 20  resent..    **  
3270: 20 77 69 64 74 68 20 20 20 20 20 20 20 20 20 20   width          
3280: 20 20 20 20 20 20 20 20 20 20 20 20 20 54 68 65               The
3290: 20 73 70 65 63 69 66 69 65 64 20 66 69 65 6c 64   specified field
32a0: 20 77 69 64 74 68 2e 20 20 54 68 69 73 20 69 73   width.  This is
32b0: 0a 20 20 20 20 2a 2a 20 20 20 20 20 20 20 20 20  .    **         
32c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
32d0: 20 20 20 20 20 20 61 6c 77 61 79 73 20 6e 6f 6e        always non
32e0: 2d 6e 65 67 61 74 69 76 65 2e 20 20 5a 65 72 6f  -negative.  Zero
32f0: 20 69 73 20 74 68 65 20 64 65 66 61 75 6c 74 2e   is the default.
3300: 0a 20 20 20 20 2a 2a 20 20 20 70 72 65 63 69 73  .    **   precis
3310: 69 6f 6e 20 20 20 20 20 20 20 20 20 20 20 20 20  ion             
3320: 20 20 20 20 20 20 54 68 65 20 73 70 65 63 69 66        The specif
3330: 69 65 64 20 70 72 65 63 69 73 69 6f 6e 2e 20 20  ied precision.  
3340: 54 68 65 20 64 65 66 61 75 6c 74 0a 20 20 20 20  The default.    
3350: 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  **              
3360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3370: 20 69 73 20 2d 31 2e 0a 20 20 20 20 2a 2a 20 20   is -1..    **  
3380: 20 78 74 79 70 65 20 20 20 20 20 20 20 20 20 20   xtype          
3390: 20 20 20 20 20 20 20 20 20 20 20 20 20 54 68 65               The
33a0: 20 63 6c 61 73 73 20 6f 66 20 74 68 65 20 63 6f   class of the co
33b0: 6e 76 65 72 73 69 6f 6e 2e 0a 20 20 20 20 2a 2a  nversion..    **
33c0: 20 20 20 69 6e 66 6f 70 20 20 20 20 20 20 20 20     infop        
33d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50                 P
33e0: 6f 69 6e 74 65 72 20 74 6f 20 74 68 65 20 61 70  ointer to the ap
33f0: 70 72 6f 70 72 69 61 74 65 20 69 6e 66 6f 20 73  propriate info s
3400: 74 72 75 63 74 2e 0a 20 20 20 20 2a 2f 0a 20 20  truct..    */.  
3410: 20 20 73 77 69 74 63 68 28 20 78 74 79 70 65 20    switch( xtype 
3420: 29 7b 0a 20 20 20 20 20 20 63 61 73 65 20 65 74  ){.      case et
3430: 4f 52 44 49 4e 41 4c 3a 0a 20 20 20 20 20 20 63  ORDINAL:.      c
3440: 61 73 65 20 65 74 52 41 44 49 58 3a 0a 20 20 20  ase etRADIX:.   
3450: 20 20 20 20 20 69 66 28 20 66 6c 61 67 5f 6c 6f       if( flag_lo
3460: 6e 67 20 29 20 20 6c 6f 6e 67 76 61 6c 75 65 20  ng )  longvalue 
3470: 3d 20 76 61 5f 61 72 67 28 61 70 2c 6c 6f 6e 67  = va_arg(ap,long
3480: 29 3b 0a 20 20 20 20 20 20 20 20 65 6c 73 65 20  );.        else 
3490: 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 6e 67              long
34a0: 76 61 6c 75 65 20 3d 20 76 61 5f 61 72 67 28 61  value = va_arg(a
34b0: 70 2c 69 6e 74 29 3b 0a 23 69 66 64 65 66 20 65  p,int);.#ifdef e
34c0: 74 43 4f 4d 50 41 54 49 42 49 4c 49 54 59 0a 20  tCOMPATIBILITY. 
34d0: 20 20 20 20 20 20 20 2f 2a 20 46 6f 72 20 74 68         /* For th
34e0: 65 20 66 6f 72 6d 61 74 20 25 23 78 2c 20 74 68  e format %#x, th
34f0: 65 20 76 61 6c 75 65 20 7a 65 72 6f 20 69 73 20  e value zero is 
3500: 70 72 69 6e 74 65 64 20 22 30 22 20 6e 6f 74 20  printed "0" not 
3510: 22 30 78 30 22 2e 0a 20 20 20 20 20 20 20 20 2a  "0x0"..        *
3520: 2a 20 49 20 74 68 69 6e 6b 20 74 68 69 73 20 69  * I think this i
3530: 73 20 73 74 75 70 69 64 2e 20 2a 2f 0a 20 20 20  s stupid. */.   
3540: 20 20 20 20 20 69 66 28 20 6c 6f 6e 67 76 61 6c       if( longval
3550: 75 65 3d 3d 30 20 29 20 66 6c 61 67 5f 61 6c 74  ue==0 ) flag_alt
3560: 65 72 6e 61 74 65 66 6f 72 6d 20 3d 20 30 3b 0a  ernateform = 0;.
3570: 23 65 6c 73 65 0a 20 20 20 20 20 20 20 20 2f 2a  #else.        /*
3580: 20 4d 6f 72 65 20 73 65 6e 73 69 62 6c 65 3a 20   More sensible: 
3590: 74 75 72 6e 20 6f 66 66 20 74 68 65 20 70 72 65  turn off the pre
35a0: 66 69 78 20 66 6f 72 20 6f 63 74 61 6c 20 28 74  fix for octal (t
35b0: 6f 20 70 72 65 76 65 6e 74 20 22 30 30 22 29 2c  o prevent "00"),
35c0: 0a 20 20 20 20 20 20 20 20 2a 2a 20 62 75 74 20  .        ** but 
35d0: 6c 65 61 76 65 20 74 68 65 20 70 72 65 66 69 78  leave the prefix
35e0: 20 66 6f 72 20 68 65 78 2e 20 2a 2f 0a 20 20 20   for hex. */.   
35f0: 20 20 20 20 20 69 66 28 20 6c 6f 6e 67 76 61 6c       if( longval
3600: 75 65 3d 3d 30 20 26 26 20 69 6e 66 6f 70 2d 3e  ue==0 && infop->
3610: 62 61 73 65 3d 3d 38 20 29 20 66 6c 61 67 5f 61  base==8 ) flag_a
3620: 6c 74 65 72 6e 61 74 65 66 6f 72 6d 20 3d 20 30  lternateform = 0
3630: 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 20 20 20  ;.#endif.       
3640: 20 69 66 28 20 69 6e 66 6f 70 2d 3e 66 6c 61 67   if( infop->flag
3650: 5f 73 69 67 6e 65 64 20 29 7b 0a 20 20 20 20 20  _signed ){.     
3660: 20 20 20 20 20 69 66 28 20 2a 28 6c 6f 6e 67 2a       if( *(long*
3670: 29 26 6c 6f 6e 67 76 61 6c 75 65 3c 30 20 29 7b  )&longvalue<0 ){
3680: 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 6e  .            lon
3690: 67 76 61 6c 75 65 20 3d 20 2d 2a 28 6c 6f 6e 67  gvalue = -*(long
36a0: 2a 29 26 6c 6f 6e 67 76 61 6c 75 65 3b 0a 20 20  *)&longvalue;.  
36b0: 20 20 20 20 20 20 20 20 20 20 70 72 65 66 69 78            prefix
36c0: 20 3d 20 27 2d 27 3b 0a 20 20 20 20 20 20 20 20   = '-';.        
36d0: 20 20 7d 65 6c 73 65 20 69 66 28 20 66 6c 61 67    }else if( flag
36e0: 5f 70 6c 75 73 73 69 67 6e 20 29 20 20 70 72 65  _plussign )  pre
36f0: 66 69 78 20 3d 20 27 2b 27 3b 0a 20 20 20 20 20  fix = '+';.     
3700: 20 20 20 20 20 65 6c 73 65 20 69 66 28 20 66 6c       else if( fl
3710: 61 67 5f 62 6c 61 6e 6b 73 69 67 6e 20 29 20 20  ag_blanksign )  
3720: 70 72 65 66 69 78 20 3d 20 27 20 27 3b 0a 20 20  prefix = ' ';.  
3730: 20 20 20 20 20 20 20 20 65 6c 73 65 20 20 20 20          else    
3740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3750: 20 20 20 70 72 65 66 69 78 20 3d 20 30 3b 0a 20     prefix = 0;. 
3760: 20 20 20 20 20 20 20 7d 65 6c 73 65 20 20 20 20         }else    
3770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3780: 20 20 20 20 70 72 65 66 69 78 20 3d 20 30 3b 0a      prefix = 0;.
3790: 20 20 20 20 20 20 20 20 69 66 28 20 66 6c 61 67          if( flag
37a0: 5f 7a 65 72 6f 70 61 64 20 26 26 20 70 72 65 63  _zeropad && prec
37b0: 69 73 69 6f 6e 3c 77 69 64 74 68 2d 28 70 72 65  ision<width-(pre
37c0: 66 69 78 21 3d 30 29 20 29 7b 0a 20 20 20 20 20  fix!=0) ){.     
37d0: 20 20 20 20 20 70 72 65 63 69 73 69 6f 6e 20 3d       precision =
37e0: 20 77 69 64 74 68 2d 28 70 72 65 66 69 78 21 3d   width-(prefix!=
37f0: 30 29 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20  0);.        }.  
3800: 20 20 20 20 20 20 62 75 66 70 74 20 3d 20 26 62        bufpt = &b
3810: 75 66 5b 65 74 42 55 46 53 49 5a 45 5d 3b 0a 20  uf[etBUFSIZE];. 
3820: 20 20 20 20 20 20 20 69 66 28 20 78 74 79 70 65         if( xtype
3830: 3d 3d 65 74 4f 52 44 49 4e 41 4c 20 29 7b 0a 20  ==etORDINAL ){. 
3840: 20 20 20 20 20 20 20 20 20 6c 6f 6e 67 20 61 2c           long a,
3850: 62 3b 0a 20 20 20 20 20 20 20 20 20 20 61 20 3d  b;.          a =
3860: 20 6c 6f 6e 67 76 61 6c 75 65 25 31 30 3b 0a 20   longvalue%10;. 
3870: 20 20 20 20 20 20 20 20 20 62 20 3d 20 6c 6f 6e           b = lon
3880: 67 76 61 6c 75 65 25 31 30 30 3b 0a 20 20 20 20  gvalue%100;.    
3890: 20 20 20 20 20 20 62 75 66 70 74 20 2d 3d 20 32        bufpt -= 2
38a0: 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20  ;.          if( 
38b0: 61 3d 3d 30 20 7c 7c 20 61 3e 33 20 7c 7c 20 28  a==0 || a>3 || (
38c0: 62 3e 31 30 20 26 26 20 62 3c 31 34 29 20 29 7b  b>10 && b<14) ){
38d0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 75 66  .            buf
38e0: 70 74 5b 30 5d 20 3d 20 27 74 27 3b 0a 20 20 20  pt[0] = 't';.   
38f0: 20 20 20 20 20 20 20 20 20 62 75 66 70 74 5b 31           bufpt[1
3900: 5d 20 3d 20 27 68 27 3b 0a 20 20 20 20 20 20 20  ] = 'h';.       
3910: 20 20 20 7d 65 6c 73 65 20 69 66 28 20 61 3d 3d     }else if( a==
3920: 31 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20  1 ){.           
3930: 20 62 75 66 70 74 5b 30 5d 20 3d 20 27 73 27 3b   bufpt[0] = 's';
3940: 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 75 66  .            buf
3950: 70 74 5b 31 5d 20 3d 20 27 74 27 3b 0a 20 20 20  pt[1] = 't';.   
3960: 20 20 20 20 20 20 20 7d 65 6c 73 65 20 69 66 28         }else if(
3970: 20 61 3d 3d 32 20 29 7b 0a 20 20 20 20 20 20 20   a==2 ){.       
3980: 20 20 20 20 20 62 75 66 70 74 5b 30 5d 20 3d 20       bufpt[0] = 
3990: 27 6e 27 3b 0a 20 20 20 20 20 20 20 20 20 20 20  'n';.           
39a0: 20 62 75 66 70 74 5b 31 5d 20 3d 20 27 64 27 3b   bufpt[1] = 'd';
39b0: 0a 20 20 20 20 20 20 20 20 20 20 7d 65 6c 73 65  .          }else
39c0: 20 69 66 28 20 61 3d 3d 33 20 29 7b 0a 20 20 20   if( a==3 ){.   
39d0: 20 20 20 20 20 20 20 20 20 62 75 66 70 74 5b 30           bufpt[0
39e0: 5d 20 3d 20 27 72 27 3b 0a 20 20 20 20 20 20 20  ] = 'r';.       
39f0: 20 20 20 20 20 62 75 66 70 74 5b 31 5d 20 3d 20       bufpt[1] = 
3a00: 27 64 27 3b 0a 20 20 20 20 20 20 20 20 20 20 7d  'd';.          }
3a10: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20  .        }.     
3a20: 20 20 20 7b 0a 20 20 20 20 20 20 20 20 20 20 72     {.          r
3a30: 65 67 69 73 74 65 72 20 63 68 61 72 20 2a 63 73  egister char *cs
3a40: 65 74 3b 20 20 20 20 20 20 2f 2a 20 55 73 65 20  et;      /* Use 
3a50: 72 65 67 69 73 74 65 72 73 20 66 6f 72 20 73 70  registers for sp
3a60: 65 65 64 20 2a 2f 0a 20 20 20 20 20 20 20 20 20  eed */.         
3a70: 20 72 65 67 69 73 74 65 72 20 69 6e 74 20 62 61   register int ba
3a80: 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 63 73  se;.          cs
3a90: 65 74 20 3d 20 69 6e 66 6f 70 2d 3e 63 68 61 72  et = infop->char
3aa0: 73 65 74 3b 0a 20 20 20 20 20 20 20 20 20 20 62  set;.          b
3ab0: 61 73 65 20 3d 20 69 6e 66 6f 70 2d 3e 62 61 73  ase = infop->bas
3ac0: 65 3b 0a 20 20 20 20 20 20 20 20 20 20 64 6f 7b  e;.          do{
3ad0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3ae0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3af0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 43 6f             /* Co
3b00: 6e 76 65 72 74 20 74 6f 20 61 73 63 69 69 20 2a  nvert to ascii *
3b10: 2f 0a 20 20 20 20 20 20 20 20 20 20 20 20 2a 28  /.            *(
3b20: 2d 2d 62 75 66 70 74 29 20 3d 20 63 73 65 74 5b  --bufpt) = cset[
3b30: 6c 6f 6e 67 76 61 6c 75 65 25 62 61 73 65 5d 3b  longvalue%base];
3b40: 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 6e  .            lon
3b50: 67 76 61 6c 75 65 20 3d 20 6c 6f 6e 67 76 61 6c  gvalue = longval
3b60: 75 65 2f 62 61 73 65 3b 0a 20 20 20 20 20 20 20  ue/base;.       
3b70: 20 20 20 7d 77 68 69 6c 65 28 20 6c 6f 6e 67 76     }while( longv
3b80: 61 6c 75 65 3e 30 20 29 3b 0a 20 20 20 20 20 20  alue>0 );.      
3b90: 20 20 7d 0a 20 20 20 20 20 20 20 20 6c 65 6e 67    }.        leng
3ba0: 74 68 20 3d 20 28 6c 6f 6e 67 29 26 62 75 66 5b  th = (long)&buf[
3bb0: 65 74 42 55 46 53 49 5a 45 5d 2d 28 6c 6f 6e 67  etBUFSIZE]-(long
3bc0: 29 62 75 66 70 74 3b 0a 20 20 20 20 20 20 20 20  )bufpt;.        
3bd0: 66 6f 72 28 69 64 78 3d 70 72 65 63 69 73 69 6f  for(idx=precisio
3be0: 6e 2d 6c 65 6e 67 74 68 3b 20 69 64 78 3e 30 3b  n-length; idx>0;
3bf0: 20 69 64 78 2d 2d 29 7b 0a 20 20 20 20 20 20 20   idx--){.       
3c00: 20 20 20 2a 28 2d 2d 62 75 66 70 74 29 20 3d 20     *(--bufpt) = 
3c10: 27 30 27 3b 20 20 20 20 20 20 20 20 20 20 20 20  '0';            
3c20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3c30: 20 2f 2a 20 5a 65 72 6f 20 70 61 64 20 2a 2f 0a   /* Zero pad */.
3c40: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
3c50: 20 20 69 66 28 20 70 72 65 66 69 78 20 29 20 2a    if( prefix ) *
3c60: 28 2d 2d 62 75 66 70 74 29 20 3d 20 70 72 65 66  (--bufpt) = pref
3c70: 69 78 3b 20 20 20 20 20 20 20 20 20 20 20 20 20  ix;             
3c80: 20 20 2f 2a 20 41 64 64 20 73 69 67 6e 20 2a 2f    /* Add sign */
3c90: 0a 20 20 20 20 20 20 20 20 69 66 28 20 66 6c 61  .        if( fla
3ca0: 67 5f 61 6c 74 65 72 6e 61 74 65 66 6f 72 6d 20  g_alternateform 
3cb0: 26 26 20 69 6e 66 6f 70 2d 3e 70 72 65 66 69 78  && infop->prefix
3cc0: 20 29 7b 20 20 20 20 20 20 2f 2a 20 41 64 64 20   ){      /* Add 
3cd0: 22 30 22 20 6f 72 20 22 30 78 22 20 2a 2f 0a 20  "0" or "0x" */. 
3ce0: 20 20 20 20 20 20 20 20 20 63 68 61 72 20 2a 70           char *p
3cf0: 72 65 2c 20 78 3b 0a 20 20 20 20 20 20 20 20 20  re, x;.         
3d00: 20 70 72 65 20 3d 20 69 6e 66 6f 70 2d 3e 70 72   pre = infop->pr
3d10: 65 66 69 78 3b 0a 20 20 20 20 20 20 20 20 20 20  efix;.          
3d20: 69 66 28 20 2a 62 75 66 70 74 21 3d 70 72 65 5b  if( *bufpt!=pre[
3d30: 30 5d 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20  0] ){.          
3d40: 20 20 66 6f 72 28 70 72 65 3d 69 6e 66 6f 70 2d    for(pre=infop-
3d50: 3e 70 72 65 66 69 78 3b 20 28 78 3d 28 2a 70 72  >prefix; (x=(*pr
3d60: 65 29 29 21 3d 30 3b 20 70 72 65 2b 2b 29 20 2a  e))!=0; pre++) *
3d70: 28 2d 2d 62 75 66 70 74 29 20 3d 20 78 3b 0a 20  (--bufpt) = x;. 
3d80: 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20           }.     
3d90: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 6c 65 6e     }.        len
3da0: 67 74 68 20 3d 20 28 6c 6f 6e 67 29 26 62 75 66  gth = (long)&buf
3db0: 5b 65 74 42 55 46 53 49 5a 45 5d 2d 28 6c 6f 6e  [etBUFSIZE]-(lon
3dc0: 67 29 62 75 66 70 74 3b 0a 20 20 20 20 20 20 20  g)bufpt;.       
3dd0: 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 63 61   break;.      ca
3de0: 73 65 20 65 74 46 4c 4f 41 54 3a 0a 20 20 20 20  se etFLOAT:.    
3df0: 20 20 63 61 73 65 20 65 74 45 58 50 3a 0a 20 20    case etEXP:.  
3e00: 20 20 20 20 63 61 73 65 20 65 74 47 45 4e 45 52      case etGENER
3e10: 49 43 3a 0a 20 20 20 20 20 20 20 20 72 65 61 6c  IC:.        real
3e20: 76 61 6c 75 65 20 3d 20 76 61 5f 61 72 67 28 61  value = va_arg(a
3e30: 70 2c 64 6f 75 62 6c 65 29 3b 0a 23 69 66 6e 64  p,double);.#ifnd
3e40: 65 66 20 65 74 4e 4f 46 4c 4f 41 54 49 4e 47 50  ef etNOFLOATINGP
3e50: 4f 49 4e 54 0a 20 20 20 20 20 20 20 20 69 66 28  OINT.        if(
3e60: 20 70 72 65 63 69 73 69 6f 6e 3c 30 20 29 20 70   precision<0 ) p
3e70: 72 65 63 69 73 69 6f 6e 20 3d 20 36 3b 20 20 20  recision = 6;   
3e80: 20 20 20 20 20 20 2f 2a 20 53 65 74 20 64 65 66        /* Set def
3e90: 61 75 6c 74 20 70 72 65 63 69 73 69 6f 6e 20 2a  ault precision *
3ea0: 2f 0a 20 20 20 20 20 20 20 20 69 66 28 20 70 72  /.        if( pr
3eb0: 65 63 69 73 69 6f 6e 3e 65 74 42 55 46 53 49 5a  ecision>etBUFSIZ
3ec0: 45 2d 31 30 20 29 20 70 72 65 63 69 73 69 6f 6e  E-10 ) precision
3ed0: 20 3d 20 65 74 42 55 46 53 49 5a 45 2d 31 30 3b   = etBUFSIZE-10;
3ee0: 0a 20 20 20 20 20 20 20 20 69 66 28 20 72 65 61  .        if( rea
3ef0: 6c 76 61 6c 75 65 3c 30 2e 30 20 29 7b 0a 20 20  lvalue<0.0 ){.  
3f00: 20 20 20 20 20 20 20 20 72 65 61 6c 76 61 6c 75          realvalu
3f10: 65 20 3d 20 2d 72 65 61 6c 76 61 6c 75 65 3b 0a  e = -realvalue;.
3f20: 20 20 20 20 20 20 20 20 20 20 70 72 65 66 69 78            prefix
3f30: 20 3d 20 27 2d 27 3b 0a 20 20 20 20 20 20 20 20   = '-';.        
3f40: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 20  }else{.         
3f50: 20 69 66 28 20 66 6c 61 67 5f 70 6c 75 73 73 69   if( flag_plussi
3f60: 67 6e 20 29 20 20 20 20 20 20 20 20 20 20 70 72  gn )          pr
3f70: 65 66 69 78 20 3d 20 27 2b 27 3b 0a 20 20 20 20  efix = '+';.    
3f80: 20 20 20 20 20 20 65 6c 73 65 20 69 66 28 20 66        else if( f
3f90: 6c 61 67 5f 62 6c 61 6e 6b 73 69 67 6e 20 29 20  lag_blanksign ) 
3fa0: 20 20 20 70 72 65 66 69 78 20 3d 20 27 20 27 3b     prefix = ' ';
3fb0: 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20  .          else 
3fc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3fd0: 20 20 20 20 20 20 20 20 70 72 65 66 69 78 20 3d          prefix =
3fe0: 20 30 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20   0;.        }.  
3ff0: 20 20 20 20 20 20 69 66 28 20 69 6e 66 6f 70 2d        if( infop-
4000: 3e 74 79 70 65 3d 3d 65 74 47 45 4e 45 52 49 43  >type==etGENERIC
4010: 20 26 26 20 70 72 65 63 69 73 69 6f 6e 3e 30 20   && precision>0 
4020: 29 20 70 72 65 63 69 73 69 6f 6e 2d 2d 3b 0a 20  ) precision--;. 
4030: 20 20 20 20 20 20 20 72 6f 75 6e 64 65 72 20 3d         rounder =
4040: 20 30 2e 30 3b 0a 23 69 66 64 65 66 20 43 4f 4d   0.0;.#ifdef COM
4050: 50 41 54 49 42 49 4c 49 54 59 0a 20 20 20 20 20  PATIBILITY.     
4060: 20 20 20 2f 2a 20 52 6f 75 6e 64 69 6e 67 20 77     /* Rounding w
4070: 6f 72 6b 73 20 6c 69 6b 65 20 42 53 44 20 77 68  orks like BSD wh
4080: 65 6e 20 74 68 65 20 63 6f 6e 73 74 61 6e 74 20  en the constant 
4090: 30 2e 34 39 39 39 20 69 73 20 75 73 65 64 2e 20  0.4999 is used. 
40a0: 20 57 69 65 72 64 21 20 2a 2f 0a 20 20 20 20 20   Wierd! */.     
40b0: 20 20 20 66 6f 72 28 69 64 78 3d 70 72 65 63 69     for(idx=preci
40c0: 73 69 6f 6e 2c 20 72 6f 75 6e 64 65 72 3d 30 2e  sion, rounder=0.
40d0: 34 39 39 39 3b 20 69 64 78 3e 30 3b 20 69 64 78  4999; idx>0; idx
40e0: 2d 2d 2c 20 72 6f 75 6e 64 65 72 2a 3d 30 2e 31  --, rounder*=0.1
40f0: 29 3b 0a 23 65 6c 73 65 0a 20 20 20 20 20 20 20  );.#else.       
4100: 20 2f 2a 20 49 74 20 6d 61 6b 65 73 20 6d 6f 72   /* It makes mor
4110: 65 20 73 65 6e 73 65 20 74 6f 20 75 73 65 20 30  e sense to use 0
4120: 2e 35 20 2a 2f 0a 20 20 20 20 20 20 20 20 66 6f  .5 */.        fo
4130: 72 28 69 64 78 3d 70 72 65 63 69 73 69 6f 6e 2c  r(idx=precision,
4140: 20 72 6f 75 6e 64 65 72 3d 30 2e 35 3b 20 69 64   rounder=0.5; id
4150: 78 3e 30 3b 20 69 64 78 2d 2d 2c 20 72 6f 75 6e  x>0; idx--, roun
4160: 64 65 72 2a 3d 30 2e 31 29 3b 0a 23 65 6e 64 69  der*=0.1);.#endi
4170: 66 0a 20 20 20 20 20 20 20 20 69 66 28 20 69 6e  f.        if( in
4180: 66 6f 70 2d 3e 74 79 70 65 3d 3d 65 74 46 4c 4f  fop->type==etFLO
4190: 41 54 20 29 20 72 65 61 6c 76 61 6c 75 65 20 2b  AT ) realvalue +
41a0: 3d 20 72 6f 75 6e 64 65 72 3b 0a 20 20 20 20 20  = rounder;.     
41b0: 20 20 20 2f 2a 20 4e 6f 72 6d 61 6c 69 7a 65 20     /* Normalize 
41c0: 72 65 61 6c 76 61 6c 75 65 20 74 6f 20 77 69 74  realvalue to wit
41d0: 68 69 6e 20 31 30 2e 30 20 3e 20 72 65 61 6c 76  hin 10.0 > realv
41e0: 61 6c 75 65 20 3e 3d 20 31 2e 30 20 2a 2f 0a 20  alue >= 1.0 */. 
41f0: 20 20 20 20 20 20 20 65 78 70 20 3d 20 30 3b 0a         exp = 0;.
4200: 20 20 20 20 20 20 20 20 69 66 28 20 72 65 61 6c          if( real
4210: 76 61 6c 75 65 3e 30 2e 30 20 29 7b 0a 20 20 20  value>0.0 ){.   
4220: 20 20 20 20 20 20 20 69 6e 74 20 6b 20 3d 20 30         int k = 0
4230: 3b 0a 20 20 20 20 20 20 20 20 20 20 77 68 69 6c  ;.          whil
4240: 65 28 20 72 65 61 6c 76 61 6c 75 65 3e 3d 31 65  e( realvalue>=1e
4250: 38 20 26 26 20 6b 2b 2b 3c 31 30 30 20 29 7b 20  8 && k++<100 ){ 
4260: 72 65 61 6c 76 61 6c 75 65 20 2a 3d 20 31 65 2d  realvalue *= 1e-
4270: 38 3b 20 65 78 70 2b 3d 38 3b 20 7d 0a 20 20 20  8; exp+=8; }.   
4280: 20 20 20 20 20 20 20 77 68 69 6c 65 28 20 72 65         while( re
4290: 61 6c 76 61 6c 75 65 3e 3d 31 30 2e 30 20 26 26  alvalue>=10.0 &&
42a0: 20 6b 2b 2b 3c 31 30 30 20 29 7b 20 72 65 61 6c   k++<100 ){ real
42b0: 76 61 6c 75 65 20 2a 3d 20 30 2e 31 3b 20 65 78  value *= 0.1; ex
42c0: 70 2b 2b 3b 20 7d 0a 20 20 20 20 20 20 20 20 20  p++; }.         
42d0: 20 77 68 69 6c 65 28 20 72 65 61 6c 76 61 6c 75   while( realvalu
42e0: 65 3c 31 65 2d 38 20 26 26 20 6b 2b 2b 3c 31 30  e<1e-8 && k++<10
42f0: 30 20 29 7b 20 72 65 61 6c 76 61 6c 75 65 20 2a  0 ){ realvalue *
4300: 3d 20 31 65 38 3b 20 65 78 70 2d 3d 38 3b 20 7d  = 1e8; exp-=8; }
4310: 0a 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65  .          while
4320: 28 20 72 65 61 6c 76 61 6c 75 65 3c 31 2e 30 20  ( realvalue<1.0 
4330: 26 26 20 6b 2b 2b 3c 31 30 30 20 29 7b 20 72 65  && k++<100 ){ re
4340: 61 6c 76 61 6c 75 65 20 2a 3d 20 31 30 2e 30 3b  alvalue *= 10.0;
4350: 20 65 78 70 2d 2d 3b 20 7d 0a 20 20 20 20 20 20   exp--; }.      
4360: 20 20 20 20 69 66 28 20 6b 3e 3d 31 30 30 20 29      if( k>=100 )
4370: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 75  {.            bu
4380: 66 70 74 20 3d 20 22 4e 61 4e 22 3b 0a 20 20 20  fpt = "NaN";.   
4390: 20 20 20 20 20 20 20 20 20 6c 65 6e 67 74 68 20           length 
43a0: 3d 20 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20  = 3;.           
43b0: 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 20 20   break;.        
43c0: 20 20 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20 20    }.        }.  
43d0: 20 20 20 20 20 20 62 75 66 70 74 20 3d 20 62 75        bufpt = bu
43e0: 66 3b 0a 20 20 20 20 20 20 20 20 2f 2a 0a 20 20  f;.        /*.  
43f0: 20 20 20 20 20 20 2a 2a 20 49 66 20 74 68 65 20        ** If the 
4400: 66 69 65 6c 64 20 74 79 70 65 20 69 73 20 65 74  field type is et
4410: 47 45 4e 45 52 49 43 2c 20 74 68 65 6e 20 63 6f  GENERIC, then co
4420: 6e 76 65 72 74 20 74 6f 20 65 69 74 68 65 72 20  nvert to either 
4430: 65 74 45 58 50 0a 20 20 20 20 20 20 20 20 2a 2a  etEXP.        **
4440: 20 6f 72 20 65 74 46 4c 4f 41 54 2c 20 61 73 20   or etFLOAT, as 
4450: 61 70 70 72 6f 70 72 69 61 74 65 2e 0a 20 20 20  appropriate..   
4460: 20 20 20 20 20 2a 2f 0a 20 20 20 20 20 20 20 20       */.        
4470: 66 6c 61 67 5f 65 78 70 20 3d 20 78 74 79 70 65  flag_exp = xtype
4480: 3d 3d 65 74 45 58 50 3b 0a 20 20 20 20 20 20 20  ==etEXP;.       
4490: 20 69 66 28 20 78 74 79 70 65 21 3d 65 74 46 4c   if( xtype!=etFL
44a0: 4f 41 54 20 29 7b 0a 20 20 20 20 20 20 20 20 20  OAT ){.         
44b0: 20 72 65 61 6c 76 61 6c 75 65 20 2b 3d 20 72 6f   realvalue += ro
44c0: 75 6e 64 65 72 3b 0a 20 20 20 20 20 20 20 20 20  under;.         
44d0: 20 69 66 28 20 72 65 61 6c 76 61 6c 75 65 3e 3d   if( realvalue>=
44e0: 31 30 2e 30 20 29 7b 20 72 65 61 6c 76 61 6c 75  10.0 ){ realvalu
44f0: 65 20 2a 3d 20 30 2e 31 3b 20 65 78 70 2b 2b 3b  e *= 0.1; exp++;
4500: 20 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20   }.        }.   
4510: 20 20 20 20 20 69 66 28 20 78 74 79 70 65 3d 3d       if( xtype==
4520: 65 74 47 45 4e 45 52 49 43 20 29 7b 0a 20 20 20  etGENERIC ){.   
4530: 20 20 20 20 20 20 20 66 6c 61 67 5f 72 74 7a 20         flag_rtz 
4540: 3d 20 21 66 6c 61 67 5f 61 6c 74 65 72 6e 61 74  = !flag_alternat
4550: 65 66 6f 72 6d 3b 0a 20 20 20 20 20 20 20 20 20  eform;.         
4560: 20 69 66 28 20 65 78 70 3c 2d 34 20 7c 7c 20 65   if( exp<-4 || e
4570: 78 70 3e 70 72 65 63 69 73 69 6f 6e 20 29 7b 0a  xp>precision ){.
4580: 20 20 20 20 20 20 20 20 20 20 20 20 78 74 79 70              xtyp
4590: 65 20 3d 20 65 74 45 58 50 3b 0a 20 20 20 20 20  e = etEXP;.     
45a0: 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20       }else{.    
45b0: 20 20 20 20 20 20 20 20 70 72 65 63 69 73 69 6f          precisio
45c0: 6e 20 3d 20 70 72 65 63 69 73 69 6f 6e 20 2d 20  n = precision - 
45d0: 65 78 70 3b 0a 20 20 20 20 20 20 20 20 20 20 20  exp;.           
45e0: 20 78 74 79 70 65 20 3d 20 65 74 46 4c 4f 41 54   xtype = etFLOAT
45f0: 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20  ;.          }.  
4600: 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20        }else{.   
4610: 20 20 20 20 20 20 20 66 6c 61 67 5f 72 74 7a 20         flag_rtz 
4620: 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20  = 0;.        }. 
4630: 20 20 20 20 20 20 20 2f 2a 0a 20 20 20 20 20 20         /*.      
4640: 20 20 2a 2a 20 54 68 65 20 22 65 78 70 2b 70 72    ** The "exp+pr
4650: 65 63 69 73 69 6f 6e 22 20 74 65 73 74 20 63 61  ecision" test ca
4660: 75 73 65 73 20 6f 75 74 70 75 74 20 74 6f 20 62  uses output to b
4670: 65 20 6f 66 20 74 79 70 65 20 65 74 45 58 50 20  e of type etEXP 
4680: 69 66 0a 20 20 20 20 20 20 20 20 2a 2a 20 74 68  if.        ** th
4690: 65 20 70 72 65 63 69 73 69 6f 6e 20 69 73 20 74  e precision is t
46a0: 6f 6f 20 6c 61 72 67 65 20 74 6f 20 66 69 74 20  oo large to fit 
46b0: 69 6e 20 62 75 66 5b 5d 2e 0a 20 20 20 20 20 20  in buf[]..      
46c0: 20 20 2a 2f 0a 20 20 20 20 20 20 20 20 6e 73 64    */.        nsd
46d0: 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 69 66   = 0;.        if
46e0: 28 20 78 74 79 70 65 3d 3d 65 74 46 4c 4f 41 54  ( xtype==etFLOAT
46f0: 20 26 26 20 65 78 70 2b 70 72 65 63 69 73 69 6f   && exp+precisio
4700: 6e 3c 65 74 42 55 46 53 49 5a 45 2d 33 30 20 29  n<etBUFSIZE-30 )
4710: 7b 0a 20 20 20 20 20 20 20 20 20 20 66 6c 61 67  {.          flag
4720: 5f 64 70 20 3d 20 28 70 72 65 63 69 73 69 6f 6e  _dp = (precision
4730: 3e 30 20 7c 7c 20 66 6c 61 67 5f 61 6c 74 65 72  >0 || flag_alter
4740: 6e 61 74 65 66 6f 72 6d 29 3b 0a 20 20 20 20 20  nateform);.     
4750: 20 20 20 20 20 69 66 28 20 70 72 65 66 69 78 20       if( prefix 
4760: 29 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 70  ) *(bufpt++) = p
4770: 72 65 66 69 78 3b 20 20 20 20 20 20 20 20 20 2f  refix;         /
4780: 2a 20 53 69 67 6e 20 2a 2f 0a 20 20 20 20 20 20  * Sign */.      
4790: 20 20 20 20 69 66 28 20 65 78 70 3c 30 20 29 20      if( exp<0 ) 
47a0: 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 27 30   *(bufpt++) = '0
47b0: 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a  ';            /*
47c0: 20 44 69 67 69 74 73 20 62 65 66 6f 72 65 20 22   Digits before "
47d0: 2e 22 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20  ." */.          
47e0: 65 6c 73 65 20 66 6f 72 28 3b 20 65 78 70 3e 3d  else for(; exp>=
47f0: 30 3b 20 65 78 70 2d 2d 29 20 2a 28 62 75 66 70  0; exp--) *(bufp
4800: 74 2b 2b 29 20 3d 20 65 74 5f 67 65 74 64 69 67  t++) = et_getdig
4810: 69 74 28 26 72 65 61 6c 76 61 6c 75 65 2c 26 6e  it(&realvalue,&n
4820: 73 64 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69  sd);.          i
4830: 66 28 20 66 6c 61 67 5f 64 70 20 29 20 2a 28 62  f( flag_dp ) *(b
4840: 75 66 70 74 2b 2b 29 20 3d 20 27 2e 27 3b 20 20  ufpt++) = '.';  
4850: 20 20 20 20 20 20 20 20 20 2f 2a 20 54 68 65 20           /* The 
4860: 64 65 63 69 6d 61 6c 20 70 6f 69 6e 74 20 2a 2f  decimal point */
4870: 0a 20 20 20 20 20 20 20 20 20 20 66 6f 72 28 65  .          for(e
4880: 78 70 2b 2b 3b 20 65 78 70 3c 30 20 26 26 20 70  xp++; exp<0 && p
4890: 72 65 63 69 73 69 6f 6e 3e 30 3b 20 70 72 65 63  recision>0; prec
48a0: 69 73 69 6f 6e 2d 2d 2c 20 65 78 70 2b 2b 29 7b  ision--, exp++){
48b0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 2a 28 62  .            *(b
48c0: 75 66 70 74 2b 2b 29 20 3d 20 27 30 27 3b 0a 20  ufpt++) = '0';. 
48d0: 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20           }.     
48e0: 20 20 20 20 20 77 68 69 6c 65 28 20 28 70 72 65       while( (pre
48f0: 63 69 73 69 6f 6e 2d 2d 29 3e 30 20 29 20 2a 28  cision--)>0 ) *(
4900: 62 75 66 70 74 2b 2b 29 20 3d 20 65 74 5f 67 65  bufpt++) = et_ge
4910: 74 64 69 67 69 74 28 26 72 65 61 6c 76 61 6c 75  tdigit(&realvalu
4920: 65 2c 26 6e 73 64 29 3b 0a 20 20 20 20 20 20 20  e,&nsd);.       
4930: 20 20 20 2a 28 62 75 66 70 74 2d 2d 29 20 3d 20     *(bufpt--) = 
4940: 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  0;              
4950: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
4960: 4e 75 6c 6c 20 74 65 72 6d 69 6e 61 74 65 20 2a  Null terminate *
4970: 2f 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20  /.          if( 
4980: 66 6c 61 67 5f 72 74 7a 20 26 26 20 66 6c 61 67  flag_rtz && flag
4990: 5f 64 70 20 29 7b 20 20 20 20 20 2f 2a 20 52 65  _dp ){     /* Re
49a0: 6d 6f 76 65 20 74 72 61 69 6c 69 6e 67 20 7a 65  move trailing ze
49b0: 72 6f 73 20 61 6e 64 20 22 2e 22 20 2a 2f 0a 20  ros and "." */. 
49c0: 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65             while
49d0: 28 20 62 75 66 70 74 3e 3d 62 75 66 20 26 26 20  ( bufpt>=buf && 
49e0: 2a 62 75 66 70 74 3d 3d 27 30 27 20 29 20 2a 28  *bufpt=='0' ) *(
49f0: 62 75 66 70 74 2d 2d 29 20 3d 20 30 3b 0a 20 20  bufpt--) = 0;.  
4a00: 20 20 20 20 20 20 20 20 20 20 69 66 28 20 62 75            if( bu
4a10: 66 70 74 3e 3d 62 75 66 20 26 26 20 2a 62 75 66  fpt>=buf && *buf
4a20: 70 74 3d 3d 27 2e 27 20 29 20 2a 28 62 75 66 70  pt=='.' ) *(bufp
4a30: 74 2d 2d 29 20 3d 20 30 3b 0a 20 20 20 20 20 20  t--) = 0;.      
4a40: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20      }.          
4a50: 62 75 66 70 74 2b 2b 3b 20 20 20 20 20 20 20 20  bufpt++;        
4a60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4a70: 20 20 20 20 2f 2a 20 70 6f 69 6e 74 20 74 6f 20      /* point to 
4a80: 6e 65 78 74 20 66 72 65 65 20 73 6c 6f 74 20 2a  next free slot *
4a90: 2f 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 65 7b  /.        }else{
4aa0: 20 20 20 20 2f 2a 20 65 74 45 58 50 20 6f 72 20      /* etEXP or 
4ab0: 65 74 47 45 4e 45 52 49 43 20 2a 2f 0a 20 20 20  etGENERIC */.   
4ac0: 20 20 20 20 20 20 20 66 6c 61 67 5f 64 70 20 3d         flag_dp =
4ad0: 20 28 70 72 65 63 69 73 69 6f 6e 3e 30 20 7c 7c   (precision>0 ||
4ae0: 20 66 6c 61 67 5f 61 6c 74 65 72 6e 61 74 65 66   flag_alternatef
4af0: 6f 72 6d 29 3b 0a 20 20 20 20 20 20 20 20 20 20  orm);.          
4b00: 69 66 28 20 70 72 65 66 69 78 20 29 20 2a 28 62  if( prefix ) *(b
4b10: 75 66 70 74 2b 2b 29 20 3d 20 70 72 65 66 69 78  ufpt++) = prefix
4b20: 3b 20 20 20 2f 2a 20 53 69 67 6e 20 2a 2f 0a 20  ;   /* Sign */. 
4b30: 20 20 20 20 20 20 20 20 20 2a 28 62 75 66 70 74           *(bufpt
4b40: 2b 2b 29 20 3d 20 65 74 5f 67 65 74 64 69 67 69  ++) = et_getdigi
4b50: 74 28 26 72 65 61 6c 76 61 6c 75 65 2c 26 6e 73  t(&realvalue,&ns
4b60: 64 29 3b 20 20 2f 2a 20 46 69 72 73 74 20 64 69  d);  /* First di
4b70: 67 69 74 20 2a 2f 0a 20 20 20 20 20 20 20 20 20  git */.         
4b80: 20 69 66 28 20 66 6c 61 67 5f 64 70 20 29 20 2a   if( flag_dp ) *
4b90: 28 62 75 66 70 74 2b 2b 29 20 3d 20 27 2e 27 3b  (bufpt++) = '.';
4ba0: 20 20 20 20 20 2f 2a 20 44 65 63 69 6d 61 6c 20       /* Decimal 
4bb0: 70 6f 69 6e 74 20 2a 2f 0a 20 20 20 20 20 20 20  point */.       
4bc0: 20 20 20 77 68 69 6c 65 28 20 28 70 72 65 63 69     while( (preci
4bd0: 73 69 6f 6e 2d 2d 29 3e 30 20 29 20 2a 28 62 75  sion--)>0 ) *(bu
4be0: 66 70 74 2b 2b 29 20 3d 20 65 74 5f 67 65 74 64  fpt++) = et_getd
4bf0: 69 67 69 74 28 26 72 65 61 6c 76 61 6c 75 65 2c  igit(&realvalue,
4c00: 26 6e 73 64 29 3b 0a 20 20 20 20 20 20 20 20 20  &nsd);.         
4c10: 20 62 75 66 70 74 2d 2d 3b 20 20 20 20 20 20 20   bufpt--;       
4c20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4c30: 20 20 20 20 20 2f 2a 20 70 6f 69 6e 74 20 74 6f       /* point to
4c40: 20 6c 61 73 74 20 64 69 67 69 74 20 2a 2f 0a 20   last digit */. 
4c50: 20 20 20 20 20 20 20 20 20 69 66 28 20 66 6c 61           if( fla
4c60: 67 5f 72 74 7a 20 26 26 20 66 6c 61 67 5f 64 70  g_rtz && flag_dp
4c70: 20 29 7b 20 20 20 20 20 20 20 20 20 20 2f 2a 20   ){          /* 
4c80: 52 65 6d 6f 76 65 20 74 61 69 6c 20 7a 65 72 6f  Remove tail zero
4c90: 73 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 20  s */.           
4ca0: 20 77 68 69 6c 65 28 20 62 75 66 70 74 3e 3d 62   while( bufpt>=b
4cb0: 75 66 20 26 26 20 2a 62 75 66 70 74 3d 3d 27 30  uf && *bufpt=='0
4cc0: 27 20 29 20 2a 28 62 75 66 70 74 2d 2d 29 20 3d  ' ) *(bufpt--) =
4cd0: 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20   0;.            
4ce0: 69 66 28 20 62 75 66 70 74 3e 3d 62 75 66 20 26  if( bufpt>=buf &
4cf0: 26 20 2a 62 75 66 70 74 3d 3d 27 2e 27 20 29 20  & *bufpt=='.' ) 
4d00: 2a 28 62 75 66 70 74 2d 2d 29 20 3d 20 30 3b 0a  *(bufpt--) = 0;.
4d10: 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20            }.    
4d20: 20 20 20 20 20 20 62 75 66 70 74 2b 2b 3b 20 20        bufpt++;  
4d30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4d40: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 70 6f 69            /* poi
4d50: 6e 74 20 74 6f 20 6e 65 78 74 20 66 72 65 65 20  nt to next free 
4d60: 73 6c 6f 74 20 2a 2f 0a 20 20 20 20 20 20 20 20  slot */.        
4d70: 20 20 69 66 28 20 65 78 70 20 7c 7c 20 66 6c 61    if( exp || fla
4d80: 67 5f 65 78 70 20 29 7b 0a 20 20 20 20 20 20 20  g_exp ){.       
4d90: 20 20 20 20 20 2a 28 62 75 66 70 74 2b 2b 29 20       *(bufpt++) 
4da0: 3d 20 69 6e 66 6f 70 2d 3e 63 68 61 72 73 65 74  = infop->charset
4db0: 5b 30 5d 3b 0a 20 20 20 20 20 20 20 20 20 20 20  [0];.           
4dc0: 20 69 66 28 20 65 78 70 3c 30 20 29 7b 20 2a 28   if( exp<0 ){ *(
4dd0: 62 75 66 70 74 2b 2b 29 20 3d 20 27 2d 27 3b 20  bufpt++) = '-'; 
4de0: 65 78 70 20 3d 20 2d 65 78 70 3b 20 7d 20 2f 2a  exp = -exp; } /*
4df0: 20 73 69 67 6e 20 6f 66 20 65 78 70 20 2a 2f 0a   sign of exp */.
4e00: 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65              else
4e10: 20 20 20 20 20 20 20 7b 20 2a 28 62 75 66 70 74         { *(bufpt
4e20: 2b 2b 29 20 3d 20 27 2b 27 3b 20 7d 0a 20 20 20  ++) = '+'; }.   
4e30: 20 20 20 20 20 20 20 20 20 69 66 28 20 65 78 70           if( exp
4e40: 3e 3d 31 30 30 20 29 7b 0a 20 20 20 20 20 20 20  >=100 ){.       
4e50: 20 20 20 20 20 20 20 2a 28 62 75 66 70 74 2b 2b         *(bufpt++
4e60: 29 20 3d 20 28 65 78 70 2f 31 30 30 29 2b 27 30  ) = (exp/100)+'0
4e70: 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ';              
4e80: 20 20 2f 2a 20 31 30 30 27 73 20 64 69 67 69 74    /* 100's digit
4e90: 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 20 20   */.            
4ea0: 20 20 65 78 70 20 25 3d 20 31 30 30 3b 0a 20 20    exp %= 100;.  
4eb0: 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20            }.    
4ec0: 20 20 20 20 20 20 20 20 2a 28 62 75 66 70 74 2b          *(bufpt+
4ed0: 2b 29 20 3d 20 65 78 70 2f 31 30 2b 27 30 27 3b  +) = exp/10+'0';
4ee0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4ef0: 20 20 20 20 20 2f 2a 20 31 30 27 73 20 64 69 67       /* 10's dig
4f00: 69 74 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20  it */.          
4f10: 20 20 2a 28 62 75 66 70 74 2b 2b 29 20 3d 20 65    *(bufpt++) = e
4f20: 78 70 25 31 30 2b 27 30 27 3b 20 20 20 20 20 20  xp%10+'0';      
4f30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
4f40: 2a 20 31 27 73 20 64 69 67 69 74 20 2a 2f 0a 20  * 1's digit */. 
4f50: 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20           }.     
4f60: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 2f 2a 20     }.        /* 
4f70: 54 68 65 20 63 6f 6e 76 65 72 74 65 64 20 6e 75  The converted nu
4f80: 6d 62 65 72 20 69 73 20 69 6e 20 62 75 66 5b 5d  mber is in buf[]
4f90: 20 61 6e 64 20 7a 65 72 6f 20 74 65 72 6d 69 6e   and zero termin
4fa0: 61 74 65 64 2e 20 4f 75 74 70 75 74 20 69 74 2e  ated. Output it.
4fb0: 0a 20 20 20 20 20 20 20 20 2a 2a 20 4e 6f 74 65  .        ** Note
4fc0: 20 74 68 61 74 20 74 68 65 20 6e 75 6d 62 65 72   that the number
4fd0: 20 69 73 20 69 6e 20 74 68 65 20 75 73 75 61 6c   is in the usual
4fe0: 20 6f 72 64 65 72 2c 20 6e 6f 74 20 72 65 76 65   order, not reve
4ff0: 72 73 65 64 20 61 73 20 77 69 74 68 0a 20 20 20  rsed as with.   
5000: 20 20 20 20 20 2a 2a 20 69 6e 74 65 67 65 72 20       ** integer 
5010: 63 6f 6e 76 65 72 73 69 6f 6e 73 2e 20 2a 2f 0a  conversions. */.
5020: 20 20 20 20 20 20 20 20 6c 65 6e 67 74 68 20 3d          length =
5030: 20 28 6c 6f 6e 67 29 62 75 66 70 74 2d 28 6c 6f   (long)bufpt-(lo
5040: 6e 67 29 62 75 66 3b 0a 20 20 20 20 20 20 20 20  ng)buf;.        
5050: 62 75 66 70 74 20 3d 20 62 75 66 3b 0a 0a 20 20  bufpt = buf;..  
5060: 20 20 20 20 20 20 2f 2a 20 53 70 65 63 69 61 6c        /* Special
5070: 20 63 61 73 65 3a 20 20 41 64 64 20 6c 65 61 64   case:  Add lead
5080: 69 6e 67 20 7a 65 72 6f 73 20 69 66 20 74 68 65  ing zeros if the
5090: 20 66 6c 61 67 5f 7a 65 72 6f 70 61 64 20 66 6c   flag_zeropad fl
50a0: 61 67 20 69 73 0a 20 20 20 20 20 20 20 20 2a 2a  ag is.        **
50b0: 20 73 65 74 20 61 6e 64 20 77 65 20 61 72 65 20   set and we are 
50c0: 6e 6f 74 20 6c 65 66 74 20 6a 75 73 74 69 66 69  not left justifi
50d0: 65 64 20 2a 2f 0a 20 20 20 20 20 20 20 20 69 66  ed */.        if
50e0: 28 20 66 6c 61 67 5f 7a 65 72 6f 70 61 64 20 26  ( flag_zeropad &
50f0: 26 20 21 66 6c 61 67 5f 6c 65 66 74 6a 75 73 74  & !flag_leftjust
5100: 69 66 79 20 26 26 20 6c 65 6e 67 74 68 20 3c 20  ify && length < 
5110: 77 69 64 74 68 29 7b 0a 20 20 20 20 20 20 20 20  width){.        
5120: 20 20 69 6e 74 20 69 3b 0a 20 20 20 20 20 20 20    int i;.       
5130: 20 20 20 69 6e 74 20 6e 50 61 64 20 3d 20 77 69     int nPad = wi
5140: 64 74 68 20 2d 20 6c 65 6e 67 74 68 3b 0a 20 20  dth - length;.  
5150: 20 20 20 20 20 20 20 20 66 6f 72 28 69 3d 77 69          for(i=wi
5160: 64 74 68 3b 20 69 3e 3d 6e 50 61 64 3b 20 69 2d  dth; i>=nPad; i-
5170: 2d 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20  -){.            
5180: 62 75 66 70 74 5b 69 5d 20 3d 20 62 75 66 70 74  bufpt[i] = bufpt
5190: 5b 69 2d 6e 50 61 64 5d 3b 0a 20 20 20 20 20 20  [i-nPad];.      
51a0: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20      }.          
51b0: 69 20 3d 20 70 72 65 66 69 78 21 3d 30 3b 0a 20  i = prefix!=0;. 
51c0: 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 28 20           while( 
51d0: 6e 50 61 64 2d 2d 20 29 20 62 75 66 70 74 5b 69  nPad-- ) bufpt[i
51e0: 2b 2b 5d 20 3d 20 27 30 27 3b 0a 20 20 20 20 20  ++] = '0';.     
51f0: 20 20 20 20 20 6c 65 6e 67 74 68 20 3d 20 77 69       length = wi
5200: 64 74 68 3b 0a 20 20 20 20 20 20 20 20 7d 0a 23  dth;.        }.#
5210: 65 6e 64 69 66 0a 20 20 20 20 20 20 20 20 62 72  endif.        br
5220: 65 61 6b 3b 0a 20 20 20 20 20 20 63 61 73 65 20  eak;.      case 
5230: 65 74 53 49 5a 45 3a 0a 20 20 20 20 20 20 20 20  etSIZE:.        
5240: 2a 28 76 61 5f 61 72 67 28 61 70 2c 69 6e 74 2a  *(va_arg(ap,int*
5250: 29 29 20 3d 20 63 6f 75 6e 74 3b 0a 20 20 20 20  )) = count;.    
5260: 20 20 20 20 6c 65 6e 67 74 68 20 3d 20 77 69 64      length = wid
5270: 74 68 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20  th = 0;.        
5280: 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 63 61 73  break;.      cas
5290: 65 20 65 74 50 45 52 43 45 4e 54 3a 0a 20 20 20  e etPERCENT:.   
52a0: 20 20 20 20 20 62 75 66 5b 30 5d 20 3d 20 27 25       buf[0] = '%
52b0: 27 3b 0a 20 20 20 20 20 20 20 20 62 75 66 70 74  ';.        bufpt
52c0: 20 3d 20 62 75 66 3b 0a 20 20 20 20 20 20 20 20   = buf;.        
52d0: 6c 65 6e 67 74 68 20 3d 20 31 3b 0a 20 20 20 20  length = 1;.    
52e0: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20      break;.     
52f0: 20 63 61 73 65 20 65 74 43 48 41 52 4c 49 54 3a   case etCHARLIT:
5300: 0a 20 20 20 20 20 20 63 61 73 65 20 65 74 43 48  .      case etCH
5310: 41 52 58 3a 0a 20 20 20 20 20 20 20 20 63 20 3d  ARX:.        c =
5320: 20 62 75 66 5b 30 5d 20 3d 20 28 78 74 79 70 65   buf[0] = (xtype
5330: 3d 3d 65 74 43 48 41 52 58 20 3f 20 76 61 5f 61  ==etCHARX ? va_a
5340: 72 67 28 61 70 2c 69 6e 74 29 20 3a 20 2a 2b 2b  rg(ap,int) : *++
5350: 66 6d 74 29 3b 0a 20 20 20 20 20 20 20 20 69 66  fmt);.        if
5360: 28 20 70 72 65 63 69 73 69 6f 6e 3e 3d 30 20 29  ( precision>=0 )
5370: 7b 0a 20 20 20 20 20 20 20 20 20 20 66 6f 72 28  {.          for(
5380: 69 64 78 3d 31 3b 20 69 64 78 3c 70 72 65 63 69  idx=1; idx<preci
5390: 73 69 6f 6e 3b 20 69 64 78 2b 2b 29 20 62 75 66  sion; idx++) buf
53a0: 5b 69 64 78 5d 20 3d 20 63 3b 0a 20 20 20 20 20  [idx] = c;.     
53b0: 20 20 20 20 20 6c 65 6e 67 74 68 20 3d 20 70 72       length = pr
53c0: 65 63 69 73 69 6f 6e 3b 0a 20 20 20 20 20 20 20  ecision;.       
53d0: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20   }else{.        
53e0: 20 20 6c 65 6e 67 74 68 20 3d 31 3b 0a 20 20 20    length =1;.   
53f0: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 62       }.        b
5400: 75 66 70 74 20 3d 20 62 75 66 3b 0a 20 20 20 20  ufpt = buf;.    
5410: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20      break;.     
5420: 20 63 61 73 65 20 65 74 53 54 52 49 4e 47 3a 0a   case etSTRING:.
5430: 20 20 20 20 20 20 20 20 7a 4d 65 6d 20 3d 20 62          zMem = b
5440: 75 66 70 74 20 3d 20 76 61 5f 61 72 67 28 61 70  ufpt = va_arg(ap
5450: 2c 63 68 61 72 2a 29 3b 0a 20 20 20 20 20 20 20  ,char*);.       
5460: 20 69 66 28 20 62 75 66 70 74 3d 3d 30 20 29 20   if( bufpt==0 ) 
5470: 62 75 66 70 74 20 3d 20 22 28 6e 75 6c 6c 29 22  bufpt = "(null)"
5480: 3b 0a 20 20 20 20 20 20 20 20 6c 65 6e 67 74 68  ;.        length
5490: 20 3d 20 73 74 72 6c 65 6e 28 62 75 66 70 74 29   = strlen(bufpt)
54a0: 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 70 72  ;.        if( pr
54b0: 65 63 69 73 69 6f 6e 3e 3d 30 20 26 26 20 70 72  ecision>=0 && pr
54c0: 65 63 69 73 69 6f 6e 3c 6c 65 6e 67 74 68 20 29  ecision<length )
54d0: 20 6c 65 6e 67 74 68 20 3d 20 70 72 65 63 69 73   length = precis
54e0: 69 6f 6e 3b 0a 20 20 20 20 20 20 20 20 62 72 65  ion;.        bre
54f0: 61 6b 3b 0a 20 20 20 20 20 20 63 61 73 65 20 65  ak;.      case e
5500: 74 53 51 4c 45 53 43 41 50 45 3a 0a 20 20 20 20  tSQLESCAPE:.    
5510: 20 20 63 61 73 65 20 65 74 53 51 4c 45 53 43 41    case etSQLESCA
5520: 50 45 32 3a 0a 20 20 20 20 20 20 20 20 7b 0a 20  PE2:.        {. 
5530: 20 20 20 20 20 20 20 20 20 69 6e 74 20 69 2c 20           int i, 
5540: 6a 2c 20 6e 2c 20 63 2c 20 69 73 6e 75 6c 6c 3b  j, n, c, isnull;
5550: 0a 20 20 20 20 20 20 20 20 20 20 63 68 61 72 20  .          char 
5560: 2a 61 72 67 20 3d 20 76 61 5f 61 72 67 28 61 70  *arg = va_arg(ap
5570: 2c 63 68 61 72 2a 29 3b 0a 20 20 20 20 20 20 20  ,char*);.       
5580: 20 20 20 69 73 6e 75 6c 6c 20 3d 20 61 72 67 3d     isnull = arg=
5590: 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66  =0;.          if
55a0: 28 20 69 73 6e 75 6c 6c 20 29 20 61 72 67 20 3d  ( isnull ) arg =
55b0: 20 28 78 74 79 70 65 3d 3d 65 74 53 51 4c 45 53   (xtype==etSQLES
55c0: 43 41 50 45 32 20 3f 20 22 4e 55 4c 4c 22 20 3a  CAPE2 ? "NULL" :
55d0: 20 22 28 4e 55 4c 4c 29 22 29 3b 0a 20 20 20 20   "(NULL)");.    
55e0: 20 20 20 20 20 20 66 6f 72 28 69 3d 6e 3d 30 3b        for(i=n=0;
55f0: 20 28 63 3d 61 72 67 5b 69 5d 29 21 3d 30 3b 20   (c=arg[i])!=0; 
5600: 69 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20 20 20  i++){.          
5610: 20 20 69 66 28 20 63 3d 3d 27 5c 27 27 20 29 20    if( c=='\'' ) 
5620: 20 6e 2b 2b 3b 0a 20 20 20 20 20 20 20 20 20 20   n++;.          
5630: 7d 0a 20 20 20 20 20 20 20 20 20 20 6e 20 2b 3d  }.          n +=
5640: 20 69 20 2b 20 31 20 2b 20 28 28 21 69 73 6e 75   i + 1 + ((!isnu
5650: 6c 6c 20 26 26 20 78 74 79 70 65 3d 3d 65 74 53  ll && xtype==etS
5660: 51 4c 45 53 43 41 50 45 32 29 20 3f 20 32 20 3a  QLESCAPE2) ? 2 :
5670: 20 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69   0);.          i
5680: 66 28 20 6e 3e 65 74 42 55 46 53 49 5a 45 20 29  f( n>etBUFSIZE )
5690: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 75  {.            bu
56a0: 66 70 74 20 3d 20 7a 45 78 74 72 61 20 3d 20 73  fpt = zExtra = s
56b0: 71 6c 69 74 65 4d 61 6c 6c 6f 63 28 20 6e 20 29  qliteMalloc( n )
56c0: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66  ;.            if
56d0: 28 20 62 75 66 70 74 3d 3d 30 20 29 20 72 65 74  ( bufpt==0 ) ret
56e0: 75 72 6e 20 2d 31 3b 0a 20 20 20 20 20 20 20 20  urn -1;.        
56f0: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20    }else{.       
5700: 20 20 20 20 20 62 75 66 70 74 20 3d 20 62 75 66       bufpt = buf
5710: 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20  ;.          }.  
5720: 20 20 20 20 20 20 20 20 6a 20 3d 20 30 3b 0a 20          j = 0;. 
5730: 20 20 20 20 20 20 20 20 20 69 66 28 20 21 69 73           if( !is
5740: 6e 75 6c 6c 20 26 26 20 78 74 79 70 65 3d 3d 65  null && xtype==e
5750: 74 53 51 4c 45 53 43 41 50 45 32 20 29 20 62 75  tSQLESCAPE2 ) bu
5760: 66 70 74 5b 6a 2b 2b 5d 20 3d 20 27 5c 27 27 3b  fpt[j++] = '\'';
5770: 0a 20 20 20 20 20 20 20 20 20 20 66 6f 72 28 69  .          for(i
5780: 3d 30 3b 20 28 63 3d 61 72 67 5b 69 5d 29 21 3d  =0; (c=arg[i])!=
5790: 30 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20 20  0; i++){.       
57a0: 20 20 20 20 20 62 75 66 70 74 5b 6a 2b 2b 5d 20       bufpt[j++] 
57b0: 3d 20 63 3b 0a 20 20 20 20 20 20 20 20 20 20 20  = c;.           
57c0: 20 69 66 28 20 63 3d 3d 27 5c 27 27 20 29 20 62   if( c=='\'' ) b
57d0: 75 66 70 74 5b 6a 2b 2b 5d 20 3d 20 63 3b 0a 20  ufpt[j++] = c;. 
57e0: 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20           }.     
57f0: 20 20 20 20 20 69 66 28 20 21 69 73 6e 75 6c 6c       if( !isnull
5800: 20 26 26 20 78 74 79 70 65 3d 3d 65 74 53 51 4c   && xtype==etSQL
5810: 45 53 43 41 50 45 32 20 29 20 62 75 66 70 74 5b  ESCAPE2 ) bufpt[
5820: 6a 2b 2b 5d 20 3d 20 27 5c 27 27 3b 0a 20 20 20  j++] = '\'';.   
5830: 20 20 20 20 20 20 20 62 75 66 70 74 5b 6a 5d 20         bufpt[j] 
5840: 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 6c  = 0;.          l
5850: 65 6e 67 74 68 20 3d 20 6a 3b 0a 20 20 20 20 20  ength = j;.     
5860: 20 20 20 20 20 69 66 28 20 70 72 65 63 69 73 69       if( precisi
5870: 6f 6e 3e 3d 30 20 26 26 20 70 72 65 63 69 73 69  on>=0 && precisi
5880: 6f 6e 3c 6c 65 6e 67 74 68 20 29 20 6c 65 6e 67  on<length ) leng
5890: 74 68 20 3d 20 70 72 65 63 69 73 69 6f 6e 3b 0a  th = precision;.
58a0: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
58b0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 63    break;.      c
58c0: 61 73 65 20 65 74 45 52 52 4f 52 3a 0a 20 20 20  ase etERROR:.   
58d0: 20 20 20 20 20 62 75 66 5b 30 5d 20 3d 20 27 25       buf[0] = '%
58e0: 27 3b 0a 20 20 20 20 20 20 20 20 62 75 66 5b 31  ';.        buf[1
58f0: 5d 20 3d 20 63 3b 0a 20 20 20 20 20 20 20 20 65  ] = c;.        e
5900: 72 72 6f 72 66 6c 61 67 20 3d 20 30 3b 0a 20 20  rrorflag = 0;.  
5910: 20 20 20 20 20 20 69 64 78 20 3d 20 31 2b 28 63        idx = 1+(c
5920: 21 3d 30 29 3b 0a 20 20 20 20 20 20 20 20 28 2a  !=0);.        (*
5930: 66 75 6e 63 29 28 61 72 67 2c 22 25 22 2c 69 64  func)(arg,"%",id
5940: 78 29 3b 0a 20 20 20 20 20 20 20 20 63 6f 75 6e  x);.        coun
5950: 74 20 2b 3d 20 69 64 78 3b 0a 20 20 20 20 20 20  t += idx;.      
5960: 20 20 69 66 28 20 63 3d 3d 30 20 29 20 66 6d 74    if( c==0 ) fmt
5970: 2d 2d 3b 0a 20 20 20 20 20 20 20 20 62 72 65 61  --;.        brea
5980: 6b 3b 0a 20 20 20 20 7d 2f 2a 20 45 6e 64 20 73  k;.    }/* End s
5990: 77 69 74 63 68 20 6f 76 65 72 20 74 68 65 20 66  witch over the f
59a0: 6f 72 6d 61 74 20 74 79 70 65 20 2a 2f 0a 20 20  ormat type */.  
59b0: 20 20 2f 2a 0a 20 20 20 20 2a 2a 20 54 68 65 20    /*.    ** The 
59c0: 74 65 78 74 20 6f 66 20 74 68 65 20 63 6f 6e 76  text of the conv
59d0: 65 72 73 69 6f 6e 20 69 73 20 70 6f 69 6e 74 65  ersion is pointe
59e0: 64 20 74 6f 20 62 79 20 22 62 75 66 70 74 22 20  d to by "bufpt" 
59f0: 61 6e 64 20 69 73 0a 20 20 20 20 2a 2a 20 22 6c  and is.    ** "l
5a00: 65 6e 67 74 68 22 20 63 68 61 72 61 63 74 65 72  ength" character
5a10: 73 20 6c 6f 6e 67 2e 20 20 54 68 65 20 66 69 65  s long.  The fie
5a20: 6c 64 20 77 69 64 74 68 20 69 73 20 22 77 69 64  ld width is "wid
5a30: 74 68 22 2e 20 20 44 6f 0a 20 20 20 20 2a 2a 20  th".  Do.    ** 
5a40: 74 68 65 20 6f 75 74 70 75 74 2e 0a 20 20 20 20  the output..    
5a50: 2a 2f 0a 20 20 20 20 69 66 28 20 21 66 6c 61 67  */.    if( !flag
5a60: 5f 6c 65 66 74 6a 75 73 74 69 66 79 20 29 7b 0a  _leftjustify ){.
5a70: 20 20 20 20 20 20 72 65 67 69 73 74 65 72 20 69        register i
5a80: 6e 74 20 6e 73 70 61 63 65 3b 0a 20 20 20 20 20  nt nspace;.     
5a90: 20 6e 73 70 61 63 65 20 3d 20 77 69 64 74 68 2d   nspace = width-
5aa0: 6c 65 6e 67 74 68 3b 0a 20 20 20 20 20 20 69 66  length;.      if
5ab0: 28 20 6e 73 70 61 63 65 3e 30 20 29 7b 0a 20 20  ( nspace>0 ){.  
5ac0: 20 20 20 20 20 20 69 66 28 20 66 6c 61 67 5f 63        if( flag_c
5ad0: 65 6e 74 65 72 20 29 7b 0a 20 20 20 20 20 20 20  enter ){.       
5ae0: 20 20 20 6e 73 70 61 63 65 20 3d 20 6e 73 70 61     nspace = nspa
5af0: 63 65 2f 32 3b 0a 20 20 20 20 20 20 20 20 20 20  ce/2;.          
5b00: 77 69 64 74 68 20 2d 3d 20 6e 73 70 61 63 65 3b  width -= nspace;
5b10: 0a 20 20 20 20 20 20 20 20 20 20 66 6c 61 67 5f  .          flag_
5b20: 6c 65 66 74 6a 75 73 74 69 66 79 20 3d 20 31 3b  leftjustify = 1;
5b30: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20  .        }.     
5b40: 20 20 20 63 6f 75 6e 74 20 2b 3d 20 6e 73 70 61     count += nspa
5b50: 63 65 3b 0a 20 20 20 20 20 20 20 20 77 68 69 6c  ce;.        whil
5b60: 65 28 20 6e 73 70 61 63 65 3e 3d 65 74 53 50 41  e( nspace>=etSPA
5b70: 43 45 53 49 5a 45 20 29 7b 0a 20 20 20 20 20 20  CESIZE ){.      
5b80: 20 20 20 20 28 2a 66 75 6e 63 29 28 61 72 67 2c      (*func)(arg,
5b90: 73 70 61 63 65 73 2c 65 74 53 50 41 43 45 53 49  spaces,etSPACESI
5ba0: 5a 45 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6e  ZE);.          n
5bb0: 73 70 61 63 65 20 2d 3d 20 65 74 53 50 41 43 45  space -= etSPACE
5bc0: 53 49 5a 45 3b 0a 20 20 20 20 20 20 20 20 7d 0a  SIZE;.        }.
5bd0: 20 20 20 20 20 20 20 20 69 66 28 20 6e 73 70 61          if( nspa
5be0: 63 65 3e 30 20 29 20 28 2a 66 75 6e 63 29 28 61  ce>0 ) (*func)(a
5bf0: 72 67 2c 73 70 61 63 65 73 2c 6e 73 70 61 63 65  rg,spaces,nspace
5c00: 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d  );.      }.    }
5c10: 0a 20 20 20 20 69 66 28 20 6c 65 6e 67 74 68 3e  .    if( length>
5c20: 30 20 29 7b 0a 20 20 20 20 20 20 28 2a 66 75 6e  0 ){.      (*fun
5c30: 63 29 28 61 72 67 2c 62 75 66 70 74 2c 6c 65 6e  c)(arg,bufpt,len
5c40: 67 74 68 29 3b 0a 20 20 20 20 20 20 63 6f 75 6e  gth);.      coun
5c50: 74 20 2b 3d 20 6c 65 6e 67 74 68 3b 0a 20 20 20  t += length;.   
5c60: 20 7d 0a 20 20 20 20 69 66 28 20 66 6c 61 67 5f   }.    if( flag_
5c70: 6c 65 66 74 6a 75 73 74 69 66 79 20 29 7b 0a 20  leftjustify ){. 
5c80: 20 20 20 20 20 72 65 67 69 73 74 65 72 20 69 6e       register in
5c90: 74 20 6e 73 70 61 63 65 3b 0a 20 20 20 20 20 20  t nspace;.      
5ca0: 6e 73 70 61 63 65 20 3d 20 77 69 64 74 68 2d 6c  nspace = width-l
5cb0: 65 6e 67 74 68 3b 0a 20 20 20 20 20 20 69 66 28  ength;.      if(
5cc0: 20 6e 73 70 61 63 65 3e 30 20 29 7b 0a 20 20 20   nspace>0 ){.   
5cd0: 20 20 20 20 20 63 6f 75 6e 74 20 2b 3d 20 6e 73       count += ns
5ce0: 70 61 63 65 3b 0a 20 20 20 20 20 20 20 20 77 68  pace;.        wh
5cf0: 69 6c 65 28 20 6e 73 70 61 63 65 3e 3d 65 74 53  ile( nspace>=etS
5d00: 50 41 43 45 53 49 5a 45 20 29 7b 0a 20 20 20 20  PACESIZE ){.    
5d10: 20 20 20 20 20 20 28 2a 66 75 6e 63 29 28 61 72        (*func)(ar
5d20: 67 2c 73 70 61 63 65 73 2c 65 74 53 50 41 43 45  g,spaces,etSPACE
5d30: 53 49 5a 45 29 3b 0a 20 20 20 20 20 20 20 20 20  SIZE);.         
5d40: 20 6e 73 70 61 63 65 20 2d 3d 20 65 74 53 50 41   nspace -= etSPA
5d50: 43 45 53 49 5a 45 3b 0a 20 20 20 20 20 20 20 20  CESIZE;.        
5d60: 7d 0a 20 20 20 20 20 20 20 20 69 66 28 20 6e 73  }.        if( ns
5d70: 70 61 63 65 3e 30 20 29 20 28 2a 66 75 6e 63 29  pace>0 ) (*func)
5d80: 28 61 72 67 2c 73 70 61 63 65 73 2c 6e 73 70 61  (arg,spaces,nspa
5d90: 63 65 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20  ce);.      }.   
5da0: 20 7d 0a 20 20 20 20 69 66 28 20 7a 45 78 74 72   }.    if( zExtr
5db0: 61 20 29 7b 0a 20 20 20 20 20 20 73 71 6c 69 74  a ){.      sqlit
5dc0: 65 46 72 65 65 28 7a 45 78 74 72 61 29 3b 0a 20  eFree(zExtra);. 
5dd0: 20 20 20 7d 0a 20 20 7d 2f 2a 20 45 6e 64 20 66     }.  }/* End f
5de0: 6f 72 20 6c 6f 6f 70 20 6f 76 65 72 20 74 68 65  or loop over the
5df0: 20 66 6f 72 6d 61 74 20 73 74 72 69 6e 67 20 2a   format string *
5e00: 2f 0a 20 20 72 65 74 75 72 6e 20 65 72 72 6f 72  /.  return error
5e10: 66 6c 61 67 20 3f 20 2d 31 20 3a 20 63 6f 75 6e  flag ? -1 : coun
5e20: 74 3b 0a 7d 20 2f 2a 20 45 6e 64 20 6f 66 20 66  t;.} /* End of f
5e30: 75 6e 63 74 69 6f 6e 20 2a 2f 0a 0a 0a 2f 2a 20  unction */.../* 
5e40: 54 68 69 73 20 73 74 72 75 63 74 75 72 65 20 69  This structure i
5e50: 73 20 75 73 65 64 20 74 6f 20 73 74 6f 72 65 20  s used to store 
5e60: 73 74 61 74 65 20 69 6e 66 6f 72 6d 61 74 69 6f  state informatio
5e70: 6e 20 61 62 6f 75 74 20 74 68 65 0a 2a 2a 20 77  n about the.** w
5e80: 72 69 74 65 20 74 6f 20 6d 65 6d 6f 72 79 20 74  rite to memory t
5e90: 68 61 74 20 69 73 20 63 75 72 72 65 6e 74 6c 79  hat is currently
5ea0: 20 69 6e 20 70 72 6f 67 72 65 73 73 2e 0a 2a 2f   in progress..*/
5eb0: 0a 73 74 72 75 63 74 20 73 67 4d 70 72 69 6e 74  .struct sgMprint
5ec0: 66 20 7b 0a 20 20 63 68 61 72 20 2a 7a 42 61 73  f {.  char *zBas
5ed0: 65 3b 20 20 20 20 20 2f 2a 20 41 20 62 61 73 65  e;     /* A base
5ee0: 20 61 6c 6c 6f 63 61 74 69 6f 6e 20 2a 2f 0a 20   allocation */. 
5ef0: 20 63 68 61 72 20 2a 7a 54 65 78 74 3b 20 20 20   char *zText;   
5f00: 20 20 2f 2a 20 54 68 65 20 73 74 72 69 6e 67 20    /* The string 
5f10: 63 6f 6c 6c 65 63 74 65 64 20 73 6f 20 66 61 72  collected so far
5f20: 20 2a 2f 0a 20 20 69 6e 74 20 20 6e 43 68 61 72   */.  int  nChar
5f30: 3b 20 20 20 20 20 20 2f 2a 20 4c 65 6e 67 74 68  ;      /* Length
5f40: 20 6f 66 20 74 68 65 20 73 74 72 69 6e 67 20 73   of the string s
5f50: 6f 20 66 61 72 20 2a 2f 0a 20 20 69 6e 74 20 20  o far */.  int  
5f60: 6e 41 6c 6c 6f 63 3b 20 20 20 20 20 2f 2a 20 41  nAlloc;     /* A
5f70: 6d 6f 75 6e 74 20 6f 66 20 73 70 61 63 65 20 61  mount of space a
5f80: 6c 6c 6f 63 61 74 65 64 20 69 6e 20 7a 54 65 78  llocated in zTex
5f90: 74 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 20 0a 2a 2a 20  t */.};../* .** 
5fa0: 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 6d  This function im
5fb0: 70 6c 65 6d 65 6e 74 73 20 74 68 65 20 63 61 6c  plements the cal
5fc0: 6c 62 61 63 6b 20 66 72 6f 6d 20 76 78 70 72 69  lback from vxpri
5fd0: 6e 74 66 2e 20 0a 2a 2a 0a 2a 2a 20 54 68 69 73  ntf. .**.** This
5fe0: 20 72 6f 75 74 69 6e 65 20 61 64 64 20 6e 4e 65   routine add nNe
5ff0: 77 43 68 61 72 20 63 68 61 72 61 63 74 65 72 73  wChar characters
6000: 20 6f 66 20 74 65 78 74 20 69 6e 20 7a 4e 65 77   of text in zNew
6010: 54 65 78 74 20 74 6f 0a 2a 2a 20 74 68 65 20 73  Text to.** the s
6020: 67 4d 70 72 69 6e 74 66 20 73 74 72 75 63 74 75  gMprintf structu
6030: 72 65 20 70 6f 69 6e 74 65 64 20 74 6f 20 62 79  re pointed to by
6040: 20 22 61 72 67 22 2e 0a 2a 2f 0a 73 74 61 74 69   "arg"..*/.stati
6050: 63 20 76 6f 69 64 20 6d 6f 75 74 28 76 6f 69 64  c void mout(void
6060: 20 2a 61 72 67 2c 20 63 68 61 72 20 2a 7a 4e 65   *arg, char *zNe
6070: 77 54 65 78 74 2c 20 69 6e 74 20 6e 4e 65 77 43  wText, int nNewC
6080: 68 61 72 29 7b 0a 20 20 73 74 72 75 63 74 20 73  har){.  struct s
6090: 67 4d 70 72 69 6e 74 66 20 2a 70 4d 20 3d 20 28  gMprintf *pM = (
60a0: 73 74 72 75 63 74 20 73 67 4d 70 72 69 6e 74 66  struct sgMprintf
60b0: 2a 29 61 72 67 3b 0a 20 20 69 66 28 20 70 4d 2d  *)arg;.  if( pM-
60c0: 3e 6e 43 68 61 72 20 2b 20 6e 4e 65 77 43 68 61  >nChar + nNewCha
60d0: 72 20 2b 20 31 20 3e 20 70 4d 2d 3e 6e 41 6c 6c  r + 1 > pM->nAll
60e0: 6f 63 20 29 7b 0a 20 20 20 20 70 4d 2d 3e 6e 41  oc ){.    pM->nA
60f0: 6c 6c 6f 63 20 3d 20 70 4d 2d 3e 6e 43 68 61 72  lloc = pM->nChar
6100: 20 2b 20 6e 4e 65 77 43 68 61 72 2a 32 20 2b 20   + nNewChar*2 + 
6110: 31 3b 0a 20 20 20 20 69 66 28 20 70 4d 2d 3e 7a  1;.    if( pM->z
6120: 54 65 78 74 3d 3d 70 4d 2d 3e 7a 42 61 73 65 20  Text==pM->zBase 
6130: 29 7b 0a 20 20 20 20 20 20 70 4d 2d 3e 7a 54 65  ){.      pM->zTe
6140: 78 74 20 3d 20 73 71 6c 69 74 65 4d 61 6c 6c 6f  xt = sqliteMallo
6150: 63 28 70 4d 2d 3e 6e 41 6c 6c 6f 63 29 3b 0a 20  c(pM->nAlloc);. 
6160: 20 20 20 20 20 69 66 28 20 70 4d 2d 3e 7a 54 65       if( pM->zTe
6170: 78 74 20 26 26 20 70 4d 2d 3e 6e 43 68 61 72 20  xt && pM->nChar 
6180: 29 20 6d 65 6d 63 70 79 28 70 4d 2d 3e 7a 54 65  ) memcpy(pM->zTe
6190: 78 74 2c 70 4d 2d 3e 7a 42 61 73 65 2c 70 4d 2d  xt,pM->zBase,pM-
61a0: 3e 6e 43 68 61 72 29 3b 0a 20 20 20 20 7d 65 6c  >nChar);.    }el
61b0: 73 65 7b 0a 20 20 20 20 20 20 63 68 61 72 20 2a  se{.      char *
61c0: 7a 20 3d 20 73 71 6c 69 74 65 52 65 61 6c 6c 6f  z = sqliteReallo
61d0: 63 28 70 4d 2d 3e 7a 54 65 78 74 2c 20 70 4d 2d  c(pM->zText, pM-
61e0: 3e 6e 41 6c 6c 6f 63 29 3b 0a 20 20 20 20 20 20  >nAlloc);.      
61f0: 69 66 28 20 7a 3d 3d 30 20 29 7b 0a 20 20 20 20  if( z==0 ){.    
6200: 20 20 20 20 73 71 6c 69 74 65 46 72 65 65 28 70      sqliteFree(p
6210: 4d 2d 3e 7a 54 65 78 74 29 3b 0a 20 20 20 20 20  M->zText);.     
6220: 20 20 20 70 4d 2d 3e 6e 43 68 61 72 20 3d 20 30     pM->nChar = 0
6230: 3b 0a 20 20 20 20 20 20 20 20 70 4d 2d 3e 6e 41  ;.        pM->nA
6240: 6c 6c 6f 63 20 3d 20 30 3b 0a 20 20 20 20 20 20  lloc = 0;.      
6250: 7d 0a 20 20 20 20 20 20 70 4d 2d 3e 7a 54 65 78  }.      pM->zTex
6260: 74 20 3d 20 7a 3b 0a 20 20 20 20 7d 0a 20 20 7d  t = z;.    }.  }
6270: 0a 20 20 69 66 28 20 70 4d 2d 3e 7a 54 65 78 74  .  if( pM->zText
6280: 20 29 7b 0a 20 20 20 20 6d 65 6d 63 70 79 28 26   ){.    memcpy(&
6290: 70 4d 2d 3e 7a 54 65 78 74 5b 70 4d 2d 3e 6e 43  pM->zText[pM->nC
62a0: 68 61 72 5d 2c 20 7a 4e 65 77 54 65 78 74 2c 20  har], zNewText, 
62b0: 6e 4e 65 77 43 68 61 72 29 3b 0a 20 20 20 20 70  nNewChar);.    p
62c0: 4d 2d 3e 6e 43 68 61 72 20 2b 3d 20 6e 4e 65 77  M->nChar += nNew
62d0: 43 68 61 72 3b 0a 20 20 20 20 70 4d 2d 3e 7a 54  Char;.    pM->zT
62e0: 65 78 74 5b 70 4d 2d 3e 6e 43 68 61 72 5d 20 3d  ext[pM->nChar] =
62f0: 20 30 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a   0;.  }.}../*.**
6300: 20 73 71 6c 69 74 65 5f 6d 70 72 69 6e 74 66 28   sqlite_mprintf(
6310: 29 20 77 6f 72 6b 73 20 6c 69 6b 65 20 70 72 69  ) works like pri
6320: 6e 74 66 28 29 2c 20 62 75 74 20 61 6c 6c 6f 63  ntf(), but alloc
6330: 61 74 69 6f 6e 73 20 6d 65 6d 6f 72 79 20 74 6f  ations memory to
6340: 20 68 6f 6c 64 20 74 68 65 0a 2a 2a 20 72 65 73   hold the.** res
6350: 75 6c 74 69 6e 67 20 73 74 72 69 6e 67 20 61 6e  ulting string an
6360: 64 20 72 65 74 75 72 6e 73 20 61 20 70 6f 69 6e  d returns a poin
6370: 74 65 72 20 74 6f 20 74 68 65 20 61 6c 6c 6f 63  ter to the alloc
6380: 61 74 65 64 20 6d 65 6d 6f 72 79 2e 20 20 55 73  ated memory.  Us
6390: 65 0a 2a 2a 20 73 71 6c 69 74 65 46 72 65 65 28  e.** sqliteFree(
63a0: 29 20 74 6f 20 72 65 6c 65 61 73 65 20 74 68 65  ) to release the
63b0: 20 6d 65 6d 6f 72 79 20 61 6c 6c 6f 63 61 74 65   memory allocate
63c0: 64 2e 0a 2a 2f 0a 63 68 61 72 20 2a 73 71 6c 69  d..*/.char *sqli
63d0: 74 65 5f 6d 70 72 69 6e 74 66 28 63 6f 6e 73 74  te_mprintf(const
63e0: 20 63 68 61 72 20 2a 7a 46 6f 72 6d 61 74 2c 20   char *zFormat, 
63f0: 2e 2e 2e 29 7b 0a 20 20 76 61 5f 6c 69 73 74 20  ...){.  va_list 
6400: 61 70 3b 0a 20 20 73 74 72 75 63 74 20 73 67 4d  ap;.  struct sgM
6410: 70 72 69 6e 74 66 20 73 4d 70 72 69 6e 74 66 3b  printf sMprintf;
6420: 0a 20 20 63 68 61 72 20 2a 7a 4e 65 77 3b 0a 20  .  char *zNew;. 
6430: 20 63 68 61 72 20 7a 42 75 66 5b 32 30 30 5d 3b   char zBuf[200];
6440: 0a 0a 20 20 73 4d 70 72 69 6e 74 66 2e 6e 43 68  ..  sMprintf.nCh
6450: 61 72 20 3d 20 30 3b 0a 20 20 73 4d 70 72 69 6e  ar = 0;.  sMprin
6460: 74 66 2e 6e 41 6c 6c 6f 63 20 3d 20 73 69 7a 65  tf.nAlloc = size
6470: 6f 66 28 7a 42 75 66 29 3b 0a 20 20 73 4d 70 72  of(zBuf);.  sMpr
6480: 69 6e 74 66 2e 7a 54 65 78 74 20 3d 20 7a 42 75  intf.zText = zBu
6490: 66 3b 0a 20 20 73 4d 70 72 69 6e 74 66 2e 7a 42  f;.  sMprintf.zB
64a0: 61 73 65 20 3d 20 7a 42 75 66 3b 0a 20 20 76 61  ase = zBuf;.  va
64b0: 5f 73 74 61 72 74 28 61 70 2c 7a 46 6f 72 6d 61  _start(ap,zForma
64c0: 74 29 3b 0a 20 20 76 78 70 72 69 6e 74 66 28 6d  t);.  vxprintf(m
64d0: 6f 75 74 2c 26 73 4d 70 72 69 6e 74 66 2c 7a 46  out,&sMprintf,zF
64e0: 6f 72 6d 61 74 2c 61 70 29 3b 0a 20 20 76 61 5f  ormat,ap);.  va_
64f0: 65 6e 64 28 61 70 29 3b 0a 20 20 73 4d 70 72 69  end(ap);.  sMpri
6500: 6e 74 66 2e 7a 54 65 78 74 5b 73 4d 70 72 69 6e  ntf.zText[sMprin
6510: 74 66 2e 6e 43 68 61 72 5d 20 3d 20 30 3b 0a 20  tf.nChar] = 0;. 
6520: 20 69 66 28 20 73 4d 70 72 69 6e 74 66 2e 7a 54   if( sMprintf.zT
6530: 65 78 74 3d 3d 73 4d 70 72 69 6e 74 66 2e 7a 42  ext==sMprintf.zB
6540: 61 73 65 20 29 7b 0a 20 20 20 20 7a 4e 65 77 20  ase ){.    zNew 
6550: 3d 20 73 71 6c 69 74 65 4d 61 6c 6c 6f 63 28 20  = sqliteMalloc( 
6560: 73 4d 70 72 69 6e 74 66 2e 6e 43 68 61 72 2b 31  sMprintf.nChar+1
6570: 20 29 3b 0a 20 20 20 20 69 66 28 20 7a 4e 65 77   );.    if( zNew
6580: 20 29 20 73 74 72 63 70 79 28 7a 4e 65 77 2c 7a   ) strcpy(zNew,z
6590: 42 75 66 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20  Buf);.  }else{. 
65a0: 20 20 20 7a 4e 65 77 20 3d 20 73 71 6c 69 74 65     zNew = sqlite
65b0: 52 65 61 6c 6c 6f 63 28 73 4d 70 72 69 6e 74 66  Realloc(sMprintf
65c0: 2e 7a 54 65 78 74 2c 73 4d 70 72 69 6e 74 66 2e  .zText,sMprintf.
65d0: 6e 43 68 61 72 2b 31 29 3b 0a 20 20 20 20 69 66  nChar+1);.    if
65e0: 28 20 7a 4e 65 77 3d 3d 30 20 29 7b 0a 20 20 20  ( zNew==0 ){.   
65f0: 20 20 20 73 71 6c 69 74 65 46 72 65 65 28 73 4d     sqliteFree(sM
6600: 70 72 69 6e 74 66 2e 7a 54 65 78 74 29 3b 0a 20  printf.zText);. 
6610: 20 20 20 7d 0a 20 20 7d 0a 20 20 72 65 74 75 72     }.  }.  retur
6620: 6e 20 7a 4e 65 77 3b 0a 7d 0a 0a 2f 2a 20 54 68  n zNew;.}../* Th
6630: 69 73 20 69 73 20 74 68 65 20 76 61 72 61 72 67  is is the vararg
6640: 73 20 76 65 72 73 69 6f 6e 20 6f 66 20 73 71 6c  s version of sql
6650: 69 74 65 5f 6d 70 72 69 6e 74 66 2e 20 20 0a 2a  ite_mprintf.  .*
6660: 2f 0a 63 68 61 72 20 2a 73 71 6c 69 74 65 5f 76  /.char *sqlite_v
6670: 6d 70 72 69 6e 74 66 28 63 6f 6e 73 74 20 63 68  mprintf(const ch
6680: 61 72 20 2a 7a 46 6f 72 6d 61 74 2c 20 76 61 5f  ar *zFormat, va_
6690: 6c 69 73 74 20 61 70 29 7b 0a 20 20 73 74 72 75  list ap){.  stru
66a0: 63 74 20 73 67 4d 70 72 69 6e 74 66 20 73 4d 70  ct sgMprintf sMp
66b0: 72 69 6e 74 66 3b 0a 20 20 63 68 61 72 20 7a 42  rintf;.  char zB
66c0: 75 66 5b 32 30 30 5d 3b 0a 20 20 73 4d 70 72 69  uf[200];.  sMpri
66d0: 6e 74 66 2e 6e 43 68 61 72 20 3d 20 30 3b 0a 20  ntf.nChar = 0;. 
66e0: 20 73 4d 70 72 69 6e 74 66 2e 7a 54 65 78 74 20   sMprintf.zText 
66f0: 3d 20 7a 42 75 66 3b 0a 20 20 73 4d 70 72 69 6e  = zBuf;.  sMprin
6700: 74 66 2e 6e 41 6c 6c 6f 63 20 3d 20 73 69 7a 65  tf.nAlloc = size
6710: 6f 66 28 7a 42 75 66 29 3b 0a 20 20 73 4d 70 72  of(zBuf);.  sMpr
6720: 69 6e 74 66 2e 7a 42 61 73 65 20 3d 20 7a 42 75  intf.zBase = zBu
6730: 66 3b 0a 20 20 76 78 70 72 69 6e 74 66 28 6d 6f  f;.  vxprintf(mo
6740: 75 74 2c 26 73 4d 70 72 69 6e 74 66 2c 7a 46 6f  ut,&sMprintf,zFo
6750: 72 6d 61 74 2c 61 70 29 3b 0a 20 20 73 4d 70 72  rmat,ap);.  sMpr
6760: 69 6e 74 66 2e 7a 54 65 78 74 5b 73 4d 70 72 69  intf.zText[sMpri
6770: 6e 74 66 2e 6e 43 68 61 72 5d 20 3d 20 30 3b 0a  ntf.nChar] = 0;.
6780: 20 20 69 66 28 20 73 4d 70 72 69 6e 74 66 2e 7a    if( sMprintf.z
6790: 54 65 78 74 3d 3d 73 4d 70 72 69 6e 74 66 2e 7a  Text==sMprintf.z
67a0: 42 61 73 65 20 29 7b 0a 20 20 20 20 73 4d 70 72  Base ){.    sMpr
67b0: 69 6e 74 66 2e 7a 54 65 78 74 20 3d 20 73 71 6c  intf.zText = sql
67c0: 69 74 65 4d 61 6c 6c 6f 63 28 20 73 74 72 6c 65  iteMalloc( strle
67d0: 6e 28 7a 42 75 66 29 2b 31 20 29 3b 0a 20 20 20  n(zBuf)+1 );.   
67e0: 20 69 66 28 20 73 4d 70 72 69 6e 74 66 2e 7a 54   if( sMprintf.zT
67f0: 65 78 74 20 29 20 73 74 72 63 70 79 28 73 4d 70  ext ) strcpy(sMp
6800: 72 69 6e 74 66 2e 7a 54 65 78 74 2c 7a 42 75 66  rintf.zText,zBuf
6810: 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20  );.  }else{.    
6820: 63 68 61 72 20 2a 7a 20 3d 20 73 71 6c 69 74 65  char *z = sqlite
6830: 52 65 61 6c 6c 6f 63 28 73 4d 70 72 69 6e 74 66  Realloc(sMprintf
6840: 2e 7a 54 65 78 74 2c 73 4d 70 72 69 6e 74 66 2e  .zText,sMprintf.
6850: 6e 43 68 61 72 2b 31 29 3b 0a 20 20 20 20 69 66  nChar+1);.    if
6860: 28 20 7a 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20  ( z==0 ){.      
6870: 73 71 6c 69 74 65 46 72 65 65 28 73 4d 70 72 69  sqliteFree(sMpri
6880: 6e 74 66 2e 7a 54 65 78 74 29 3b 0a 20 20 20 20  ntf.zText);.    
6890: 7d 0a 20 20 20 20 73 4d 70 72 69 6e 74 66 2e 7a  }.    sMprintf.z
68a0: 54 65 78 74 20 3d 20 7a 3b 0a 20 20 7d 0a 20 20  Text = z;.  }.  
68b0: 72 65 74 75 72 6e 20 73 4d 70 72 69 6e 74 66 2e  return sMprintf.
68c0: 7a 54 65 78 74 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  zText;.}../*.** 
68d0: 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 66 6f  The following fo
68e0: 75 72 20 72 6f 75 74 69 6e 65 73 20 69 6d 70 6c  ur routines impl
68f0: 65 6d 65 6e 74 20 74 68 65 20 76 61 72 61 72 67  ement the vararg
6900: 73 20 76 65 72 73 69 6f 6e 73 20 6f 66 20 74 68  s versions of th
6910: 65 0a 2a 2a 20 73 71 6c 69 74 65 5f 65 78 65 63  e.** sqlite_exec
6920: 28 29 20 61 6e 64 20 73 71 6c 69 74 65 5f 67 65  () and sqlite_ge
6930: 74 5f 74 61 62 6c 65 28 29 20 69 6e 74 65 72 66  t_table() interf
6940: 61 63 65 73 2e 20 20 53 65 65 20 74 68 65 20 73  aces.  See the s
6950: 71 6c 69 74 65 2e 68 0a 2a 2a 20 68 65 61 64 65  qlite.h.** heade
6960: 72 20 66 69 6c 65 73 20 66 6f 72 20 61 20 6d 6f  r files for a mo
6970: 72 65 20 64 65 74 61 69 6c 65 64 20 64 65 73 63  re detailed desc
6980: 72 69 70 74 69 6f 6e 20 6f 66 20 68 6f 77 20 74  ription of how t
6990: 68 65 73 65 20 69 6e 74 65 72 66 61 63 65 73 0a  hese interfaces.
69a0: 2a 2a 20 77 6f 72 6b 2e 0a 2a 2a 0a 2a 2a 20 54  ** work..**.** T
69b0: 68 65 73 65 20 72 6f 75 74 69 6e 65 73 20 61 72  hese routines ar
69c0: 65 20 61 6c 6c 20 6a 75 73 74 20 73 69 6d 70 6c  e all just simpl
69d0: 65 20 77 72 61 70 70 65 72 73 2e 0a 2a 2f 0a 69  e wrappers..*/.i
69e0: 6e 74 20 73 71 6c 69 74 65 5f 65 78 65 63 5f 70  nt sqlite_exec_p
69f0: 72 69 6e 74 66 28 0a 20 20 73 71 6c 69 74 65 20  rintf(.  sqlite 
6a00: 2a 64 62 2c 20 20 20 20 20 20 20 20 20 20 20 20  *db,            
6a10: 20 20 20 20 20 20 20 2f 2a 20 41 6e 20 6f 70 65         /* An ope
6a20: 6e 20 64 61 74 61 62 61 73 65 20 2a 2f 0a 20 20  n database */.  
6a30: 63 6f 6e 73 74 20 63 68 61 72 20 2a 73 71 6c 46  const char *sqlF
6a40: 6f 72 6d 61 74 2c 20 20 20 20 20 20 20 20 2f 2a  ormat,        /*
6a50: 20 70 72 69 6e 74 66 2d 73 74 79 6c 65 20 66 6f   printf-style fo
6a60: 72 6d 61 74 20 73 74 72 69 6e 67 20 66 6f 72 20  rmat string for 
6a70: 74 68 65 20 53 51 4c 20 2a 2f 0a 20 20 73 71 6c  the SQL */.  sql
6a80: 69 74 65 5f 63 61 6c 6c 62 61 63 6b 20 78 43 61  ite_callback xCa
6a90: 6c 6c 62 61 63 6b 2c 20 20 20 20 2f 2a 20 43 61  llback,    /* Ca
6aa0: 6c 6c 62 61 63 6b 20 66 75 6e 63 74 69 6f 6e 20  llback function 
6ab0: 2a 2f 0a 20 20 76 6f 69 64 20 2a 70 41 72 67 2c  */.  void *pArg,
6ac0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
6ad0: 20 20 20 2f 2a 20 31 73 74 20 61 72 67 75 6d 65     /* 1st argume
6ae0: 6e 74 20 74 6f 20 63 61 6c 6c 62 61 63 6b 20 66  nt to callback f
6af0: 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 63 68 61  unction */.  cha
6b00: 72 20 2a 2a 65 72 72 6d 73 67 2c 20 20 20 20 20  r **errmsg,     
6b10: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 45 72             /* Er
6b20: 72 6f 72 20 6d 73 67 20 77 72 69 74 74 65 6e 20  ror msg written 
6b30: 68 65 72 65 20 2a 2f 0a 20 20 2e 2e 2e 20 20 20  here */.  ...   
6b40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
6b50: 20 20 20 20 20 20 20 20 2f 2a 20 41 72 67 75 6d          /* Argum
6b60: 65 6e 74 73 20 74 6f 20 74 68 65 20 66 6f 72 6d  ents to the form
6b70: 61 74 20 73 74 72 69 6e 67 2e 20 2a 2f 0a 29 7b  at string. */.){
6b80: 0a 20 20 76 61 5f 6c 69 73 74 20 61 70 3b 0a 20  .  va_list ap;. 
6b90: 20 69 6e 74 20 72 63 3b 0a 0a 20 20 76 61 5f 73   int rc;..  va_s
6ba0: 74 61 72 74 28 61 70 2c 20 65 72 72 6d 73 67 29  tart(ap, errmsg)
6bb0: 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 5f  ;.  rc = sqlite_
6bc0: 65 78 65 63 5f 76 70 72 69 6e 74 66 28 64 62 2c  exec_vprintf(db,
6bd0: 20 73 71 6c 46 6f 72 6d 61 74 2c 20 78 43 61 6c   sqlFormat, xCal
6be0: 6c 62 61 63 6b 2c 20 70 41 72 67 2c 20 65 72 72  lback, pArg, err
6bf0: 6d 73 67 2c 20 61 70 29 3b 0a 20 20 76 61 5f 65  msg, ap);.  va_e
6c00: 6e 64 28 61 70 29 3b 0a 20 20 72 65 74 75 72 6e  nd(ap);.  return
6c10: 20 72 63 3b 0a 7d 0a 69 6e 74 20 73 71 6c 69 74   rc;.}.int sqlit
6c20: 65 5f 65 78 65 63 5f 76 70 72 69 6e 74 66 28 0a  e_exec_vprintf(.
6c30: 20 20 73 71 6c 69 74 65 20 2a 64 62 2c 20 20 20    sqlite *db,   
6c40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
6c50: 2f 2a 20 41 6e 20 6f 70 65 6e 20 64 61 74 61 62  /* An open datab
6c60: 61 73 65 20 2a 2f 0a 20 20 63 6f 6e 73 74 20 63  ase */.  const c
6c70: 68 61 72 20 2a 73 71 6c 46 6f 72 6d 61 74 2c 20  har *sqlFormat, 
6c80: 20 20 20 20 20 20 20 2f 2a 20 70 72 69 6e 74 66         /* printf
6c90: 2d 73 74 79 6c 65 20 66 6f 72 6d 61 74 20 73 74  -style format st
6ca0: 72 69 6e 67 20 66 6f 72 20 74 68 65 20 53 51 4c  ring for the SQL
6cb0: 20 2a 2f 0a 20 20 73 71 6c 69 74 65 5f 63 61 6c   */.  sqlite_cal
6cc0: 6c 62 61 63 6b 20 78 43 61 6c 6c 62 61 63 6b 2c  lback xCallback,
6cd0: 20 20 20 20 2f 2a 20 43 61 6c 6c 62 61 63 6b 20      /* Callback 
6ce0: 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 76 6f  function */.  vo
6cf0: 69 64 20 2a 70 41 72 67 2c 20 20 20 20 20 20 20  id *pArg,       
6d00: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 31              /* 1
6d10: 73 74 20 61 72 67 75 6d 65 6e 74 20 74 6f 20 63  st argument to c
6d20: 61 6c 6c 62 61 63 6b 20 66 75 6e 63 74 69 6f 6e  allback function
6d30: 20 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 65 72 72   */.  char **err
6d40: 6d 73 67 2c 20 20 20 20 20 20 20 20 20 20 20 20  msg,            
6d50: 20 20 20 20 2f 2a 20 45 72 72 6f 72 20 6d 73 67      /* Error msg
6d60: 20 77 72 69 74 74 65 6e 20 68 65 72 65 20 2a 2f   written here */
6d70: 0a 20 20 76 61 5f 6c 69 73 74 20 61 70 20 20 20  .  va_list ap   
6d80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
6d90: 20 2f 2a 20 41 72 67 75 6d 65 6e 74 73 20 74 6f   /* Arguments to
6da0: 20 74 68 65 20 66 6f 72 6d 61 74 20 73 74 72 69   the format stri
6db0: 6e 67 2e 20 2a 2f 0a 29 7b 0a 20 20 63 68 61 72  ng. */.){.  char
6dc0: 20 2a 7a 53 71 6c 3b 0a 20 20 69 6e 74 20 72 63   *zSql;.  int rc
6dd0: 3b 0a 0a 20 20 7a 53 71 6c 20 3d 20 73 71 6c 69  ;..  zSql = sqli
6de0: 74 65 5f 76 6d 70 72 69 6e 74 66 28 73 71 6c 46  te_vmprintf(sqlF
6df0: 6f 72 6d 61 74 2c 20 61 70 29 3b 0a 20 20 72 63  ormat, ap);.  rc
6e00: 20 3d 20 73 71 6c 69 74 65 5f 65 78 65 63 28 64   = sqlite_exec(d
6e10: 62 2c 20 7a 53 71 6c 2c 20 78 43 61 6c 6c 62 61  b, zSql, xCallba
6e20: 63 6b 2c 20 70 41 72 67 2c 20 65 72 72 6d 73 67  ck, pArg, errmsg
6e30: 29 3b 0a 20 20 73 71 6c 69 74 65 46 72 65 65 28  );.  sqliteFree(
6e40: 7a 53 71 6c 29 3b 0a 20 20 72 65 74 75 72 6e 20  zSql);.  return 
6e50: 72 63 3b 0a 7d 0a 69 6e 74 20 73 71 6c 69 74 65  rc;.}.int sqlite
6e60: 5f 67 65 74 5f 74 61 62 6c 65 5f 70 72 69 6e 74  _get_table_print
6e70: 66 28 0a 20 20 73 71 6c 69 74 65 20 2a 64 62 2c  f(.  sqlite *db,
6e80: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 41              /* A
6e90: 6e 20 6f 70 65 6e 20 64 61 74 61 62 61 73 65 20  n open database 
6ea0: 2a 2f 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20  */.  const char 
6eb0: 2a 73 71 6c 46 6f 72 6d 61 74 2c 20 2f 2a 20 70  *sqlFormat, /* p
6ec0: 72 69 6e 74 66 2d 73 74 79 6c 65 20 66 6f 72 6d  rintf-style form
6ed0: 61 74 20 73 74 72 69 6e 67 20 66 6f 72 20 74 68  at string for th
6ee0: 65 20 53 51 4c 20 2a 2f 0a 20 20 63 68 61 72 20  e SQL */.  char 
6ef0: 2a 2a 2a 72 65 73 75 6c 74 70 2c 20 20 20 20 20  ***resultp,     
6f00: 20 20 2f 2a 20 52 65 73 75 6c 74 20 77 72 69 74    /* Result writ
6f10: 74 65 6e 20 74 6f 20 61 20 63 68 61 72 20 2a 5b  ten to a char *[
6f20: 5d 20 20 74 68 61 74 20 74 68 69 73 20 70 6f 69  ]  that this poi
6f30: 6e 74 73 20 74 6f 20 2a 2f 0a 20 20 69 6e 74 20  nts to */.  int 
6f40: 2a 6e 72 6f 77 2c 20 20 20 20 20 20 20 20 20 20  *nrow,          
6f50: 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20     /* Number of 
6f60: 72 65 73 75 6c 74 20 72 6f 77 73 20 77 72 69 74  result rows writ
6f70: 74 65 6e 20 68 65 72 65 20 2a 2f 0a 20 20 69 6e  ten here */.  in
6f80: 74 20 2a 6e 63 6f 6c 2c 20 20 20 20 20 20 20 20  t *ncol,        
6f90: 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f       /* Number o
6fa0: 66 20 72 65 73 75 6c 74 20 63 6f 6c 75 6d 6e 73  f result columns
6fb0: 20 77 72 69 74 74 65 6e 20 68 65 72 65 20 2a 2f   written here */
6fc0: 0a 20 20 63 68 61 72 20 2a 2a 65 72 72 6d 73 67  .  char **errmsg
6fd0: 2c 20 20 20 20 20 20 20 20 20 2f 2a 20 45 72 72  ,         /* Err
6fe0: 6f 72 20 6d 73 67 20 77 72 69 74 74 65 6e 20 68  or msg written h
6ff0: 65 72 65 20 2a 2f 0a 20 20 2e 2e 2e 20 20 20 20  ere */.  ...    
7000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
7010: 2f 2a 20 41 72 67 75 6d 65 6e 74 73 20 74 6f 20  /* Arguments to 
7020: 74 68 65 20 66 6f 72 6d 61 74 20 73 74 72 69 6e  the format strin
7030: 67 20 2a 2f 0a 29 7b 0a 20 20 76 61 5f 6c 69 73  g */.){.  va_lis
7040: 74 20 61 70 3b 0a 20 20 69 6e 74 20 72 63 3b 0a  t ap;.  int rc;.
7050: 0a 20 20 76 61 5f 73 74 61 72 74 28 61 70 2c 20  .  va_start(ap, 
7060: 65 72 72 6d 73 67 29 3b 0a 20 20 72 63 20 3d 20  errmsg);.  rc = 
7070: 73 71 6c 69 74 65 5f 67 65 74 5f 74 61 62 6c 65  sqlite_get_table
7080: 5f 76 70 72 69 6e 74 66 28 64 62 2c 20 73 71 6c  _vprintf(db, sql
7090: 46 6f 72 6d 61 74 2c 20 72 65 73 75 6c 74 70 2c  Format, resultp,
70a0: 20 6e 72 6f 77 2c 20 6e 63 6f 6c 2c 20 65 72 72   nrow, ncol, err
70b0: 6d 73 67 2c 20 61 70 29 3b 0a 20 20 76 61 5f 65  msg, ap);.  va_e
70c0: 6e 64 28 61 70 29 3b 0a 20 20 72 65 74 75 72 6e  nd(ap);.  return
70d0: 20 72 63 3b 0a 7d 0a 69 6e 74 20 73 71 6c 69 74   rc;.}.int sqlit
70e0: 65 5f 67 65 74 5f 74 61 62 6c 65 5f 76 70 72 69  e_get_table_vpri
70f0: 6e 74 66 28 0a 20 20 73 71 6c 69 74 65 20 2a 64  ntf(.  sqlite *d
7100: 62 2c 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a  b,            /*
7110: 20 41 6e 20 6f 70 65 6e 20 64 61 74 61 62 61 73   An open databas
7120: 65 20 2a 2f 0a 20 20 63 6f 6e 73 74 20 63 68 61  e */.  const cha
7130: 72 20 2a 73 71 6c 46 6f 72 6d 61 74 2c 20 2f 2a  r *sqlFormat, /*
7140: 20 70 72 69 6e 74 66 2d 73 74 79 6c 65 20 66 6f   printf-style fo
7150: 72 6d 61 74 20 73 74 72 69 6e 67 20 66 6f 72 20  rmat string for 
7160: 74 68 65 20 53 51 4c 20 2a 2f 0a 20 20 63 68 61  the SQL */.  cha
7170: 72 20 2a 2a 2a 72 65 73 75 6c 74 70 2c 20 20 20  r ***resultp,   
7180: 20 20 20 20 2f 2a 20 52 65 73 75 6c 74 20 77 72      /* Result wr
7190: 69 74 74 65 6e 20 74 6f 20 61 20 63 68 61 72 20  itten to a char 
71a0: 2a 5b 5d 20 20 74 68 61 74 20 74 68 69 73 20 70  *[]  that this p
71b0: 6f 69 6e 74 73 20 74 6f 20 2a 2f 0a 20 20 69 6e  oints to */.  in
71c0: 74 20 2a 6e 72 6f 77 2c 20 20 20 20 20 20 20 20  t *nrow,        
71d0: 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f       /* Number o
71e0: 66 20 72 65 73 75 6c 74 20 72 6f 77 73 20 77 72  f result rows wr
71f0: 69 74 74 65 6e 20 68 65 72 65 20 2a 2f 0a 20 20  itten here */.  
7200: 69 6e 74 20 2a 6e 63 6f 6c 75 6d 6e 2c 20 20 20  int *ncolumn,   
7210: 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72         /* Number
7220: 20 6f 66 20 72 65 73 75 6c 74 20 63 6f 6c 75 6d   of result colum
7230: 6e 73 20 77 72 69 74 74 65 6e 20 68 65 72 65 20  ns written here 
7240: 2a 2f 0a 20 20 63 68 61 72 20 2a 2a 65 72 72 6d  */.  char **errm
7250: 73 67 2c 20 20 20 20 20 20 20 20 20 2f 2a 20 45  sg,         /* E
7260: 72 72 6f 72 20 6d 73 67 20 77 72 69 74 74 65 6e  rror msg written
7270: 20 68 65 72 65 20 2a 2f 0a 20 20 76 61 5f 6c 69   here */.  va_li
7280: 73 74 20 61 70 20 20 20 20 20 20 20 20 20 20 20  st ap           
7290: 20 20 2f 2a 20 41 72 67 75 6d 65 6e 74 73 20 74    /* Arguments t
72a0: 6f 20 74 68 65 20 66 6f 72 6d 61 74 20 73 74 72  o the format str
72b0: 69 6e 67 20 2a 2f 0a 29 7b 0a 20 20 63 68 61 72  ing */.){.  char
72c0: 20 2a 7a 53 71 6c 3b 0a 20 20 69 6e 74 20 72 63   *zSql;.  int rc
72d0: 3b 0a 0a 20 20 7a 53 71 6c 20 3d 20 73 71 6c 69  ;..  zSql = sqli
72e0: 74 65 5f 76 6d 70 72 69 6e 74 66 28 73 71 6c 46  te_vmprintf(sqlF
72f0: 6f 72 6d 61 74 2c 20 61 70 29 3b 0a 20 20 72 63  ormat, ap);.  rc
7300: 20 3d 20 73 71 6c 69 74 65 5f 67 65 74 5f 74 61   = sqlite_get_ta
7310: 62 6c 65 28 64 62 2c 20 7a 53 71 6c 2c 20 72 65  ble(db, zSql, re
7320: 73 75 6c 74 70 2c 20 6e 72 6f 77 2c 20 6e 63 6f  sultp, nrow, nco
7330: 6c 75 6d 6e 2c 20 65 72 72 6d 73 67 29 3b 0a 20  lumn, errmsg);. 
7340: 20 73 71 6c 69 74 65 46 72 65 65 28 7a 53 71 6c   sqliteFree(zSql
7350: 29 3b 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a  );.  return rc;.
7360: 7d 0a                                            }.