/ Hex Artifact Content
Login

Artifact bba837177d1693037f5c83dcb443cf453ee656ed:


0000: 2f 2a 0a 2a 2a 20 32 30 30 38 20 4d 61 72 63 68  /*.** 2008 March
0010: 20 31 39 0a 2a 2a 0a 2a 2a 20 54 68 65 20 61 75   19.**.** The au
0020: 74 68 6f 72 20 64 69 73 63 6c 61 69 6d 73 20 63  thor disclaims c
0030: 6f 70 79 72 69 67 68 74 20 74 6f 20 74 68 69 73  opyright to this
0040: 20 73 6f 75 72 63 65 20 63 6f 64 65 2e 20 20 49   source code.  I
0050: 6e 20 70 6c 61 63 65 20 6f 66 0a 2a 2a 20 61 20  n place of.** a 
0060: 6c 65 67 61 6c 20 6e 6f 74 69 63 65 2c 20 68 65  legal notice, he
0070: 72 65 20 69 73 20 61 20 62 6c 65 73 73 69 6e 67  re is a blessing
0080: 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 4d 61 79 20 79  :.**.**    May y
0090: 6f 75 20 64 6f 20 67 6f 6f 64 20 61 6e 64 20 6e  ou do good and n
00a0: 6f 74 20 65 76 69 6c 2e 0a 2a 2a 20 20 20 20 4d  ot evil..**    M
00b0: 61 79 20 79 6f 75 20 66 69 6e 64 20 66 6f 72 67  ay you find forg
00c0: 69 76 65 6e 65 73 73 20 66 6f 72 20 79 6f 75 72  iveness for your
00d0: 73 65 6c 66 20 61 6e 64 20 66 6f 72 67 69 76 65  self and forgive
00e0: 20 6f 74 68 65 72 73 2e 0a 2a 2a 20 20 20 20 4d   others..**    M
00f0: 61 79 20 79 6f 75 20 73 68 61 72 65 20 66 72 65  ay you share fre
0100: 65 6c 79 2c 20 6e 65 76 65 72 20 74 61 6b 69 6e  ely, never takin
0110: 67 20 6d 6f 72 65 20 74 68 61 6e 20 79 6f 75 20  g more than you 
0120: 67 69 76 65 2e 0a 2a 2a 0a 2a 2a 2a 2a 2a 2a 2a  give..**.*******
0130: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0140: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0150: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0160: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0170: 2a 2a 0a 2a 2a 20 43 6f 64 65 20 66 6f 72 20 74  **.** Code for t
0180: 65 73 74 69 6e 67 20 61 6c 6c 20 73 6f 72 74 73  esting all sorts
0190: 20 6f 66 20 53 51 4c 69 74 65 20 69 6e 74 65 72   of SQLite inter
01a0: 66 61 63 65 73 2e 20 20 54 68 69 73 20 63 6f 64  faces.  This cod
01b0: 65 0a 2a 2a 20 69 6d 70 6c 65 6d 65 6e 74 73 20  e.** implements 
01c0: 6e 65 77 20 53 51 4c 20 66 75 6e 63 74 69 6f 6e  new SQL function
01d0: 73 20 75 73 65 64 20 62 79 20 74 68 65 20 74 65  s used by the te
01e0: 73 74 20 73 63 72 69 70 74 73 2e 0a 2a 2f 0a 23  st scripts..*/.#
01f0: 69 6e 63 6c 75 64 65 20 22 73 71 6c 69 74 65 33  include "sqlite3
0200: 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 22 74 63  .h".#include "tc
0210: 6c 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 3c 73  l.h".#include <s
0220: 74 64 6c 69 62 2e 68 3e 0a 23 69 6e 63 6c 75 64  tdlib.h>.#includ
0230: 65 20 3c 73 74 72 69 6e 67 2e 68 3e 0a 23 69 6e  e <string.h>.#in
0240: 63 6c 75 64 65 20 3c 61 73 73 65 72 74 2e 68 3e  clude <assert.h>
0250: 0a 0a 23 69 6e 63 6c 75 64 65 20 22 73 71 6c 69  ..#include "sqli
0260: 74 65 49 6e 74 2e 68 22 0a 23 69 6e 63 6c 75 64  teInt.h".#includ
0270: 65 20 22 76 64 62 65 49 6e 74 2e 68 22 0a 0a 73  e "vdbeInt.h"..s
0280: 74 72 75 63 74 20 43 75 72 73 6f 72 48 69 6e 74  truct CursorHint
0290: 47 6c 6f 62 61 6c 20 7b 0a 20 20 54 63 6c 5f 49  Global {.  Tcl_I
02a0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a 20  nterp *interp;. 
02b0: 20 54 63 6c 5f 4f 62 6a 20 2a 70 53 63 72 69 70   Tcl_Obj *pScrip
02c0: 74 3b 0a 7d 20 63 75 72 73 6f 72 68 69 6e 74 67  t;.} cursorhintg
02d0: 6c 6f 62 61 6c 3b 0a 0a 73 74 61 74 69 63 20 63  lobal;..static c
02e0: 68 61 72 20 2a 65 78 70 72 54 6f 53 74 72 69 6e  har *exprToStrin
02f0: 67 28 4d 65 6d 20 2a 61 4d 65 6d 2c 20 45 78 70  g(Mem *aMem, Exp
0300: 72 20 2a 70 45 78 70 72 29 7b 0a 20 20 63 68 61  r *pExpr){.  cha
0310: 72 20 2a 7a 52 65 74 20 3d 20 30 3b 0a 20 20 63  r *zRet = 0;.  c
0320: 68 61 72 20 2a 7a 42 69 6e 4f 70 20 3d 20 30 3b  har *zBinOp = 0;
0330: 0a 0a 20 20 73 77 69 74 63 68 28 20 70 45 78 70  ..  switch( pExp
0340: 72 2d 3e 6f 70 20 29 7b 0a 20 20 20 20 63 61 73  r->op ){.    cas
0350: 65 20 54 4b 5f 53 54 52 49 4e 47 3a 0a 20 20 20  e TK_STRING:.   
0360: 20 20 20 7a 52 65 74 20 3d 20 73 71 6c 69 74 65     zRet = sqlite
0370: 33 5f 6d 70 72 69 6e 74 66 28 22 25 51 22 2c 20  3_mprintf("%Q", 
0380: 70 45 78 70 72 2d 3e 75 2e 7a 54 6f 6b 65 6e 29  pExpr->u.zToken)
0390: 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 0a  ;.      break;..
03a0: 20 20 20 20 63 61 73 65 20 54 4b 5f 49 4e 54 45      case TK_INTE
03b0: 47 45 52 3a 0a 20 20 20 20 20 20 7a 52 65 74 20  GER:.      zRet 
03c0: 3d 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74  = sqlite3_mprint
03d0: 66 28 22 25 64 22 2c 20 70 45 78 70 72 2d 3e 75  f("%d", pExpr->u
03e0: 2e 69 56 61 6c 75 65 29 3b 0a 20 20 20 20 20 20  .iValue);.      
03f0: 62 72 65 61 6b 3b 0a 0a 20 20 20 20 63 61 73 65  break;..    case
0400: 20 54 4b 5f 4e 55 4c 4c 3a 0a 20 20 20 20 20 20   TK_NULL:.      
0410: 7a 52 65 74 20 3d 20 73 71 6c 69 74 65 33 5f 6d  zRet = sqlite3_m
0420: 70 72 69 6e 74 66 28 22 25 73 22 2c 20 22 4e 55  printf("%s", "NU
0430: 4c 4c 22 29 3b 0a 20 20 20 20 20 20 62 72 65 61  LL");.      brea
0440: 6b 3b 0a 0a 20 20 20 20 63 61 73 65 20 54 4b 5f  k;..    case TK_
0450: 52 45 47 49 53 54 45 52 3a 20 7b 0a 20 20 20 20  REGISTER: {.    
0460: 20 20 4d 65 6d 20 2a 70 4d 65 6d 20 3d 20 26 61    Mem *pMem = &a
0470: 4d 65 6d 5b 70 45 78 70 72 2d 3e 69 54 61 62 6c  Mem[pExpr->iTabl
0480: 65 5d 3b 0a 20 20 20 20 20 20 69 66 28 20 70 4d  e];.      if( pM
0490: 65 6d 2d 3e 66 6c 61 67 73 20 26 20 4d 45 4d 5f  em->flags & MEM_
04a0: 49 6e 74 20 29 7b 0a 20 20 20 20 20 20 20 20 7a  Int ){.        z
04b0: 52 65 74 20 3d 20 73 71 6c 69 74 65 33 5f 6d 70  Ret = sqlite3_mp
04c0: 72 69 6e 74 66 28 22 25 6c 6c 64 22 2c 20 70 4d  rintf("%lld", pM
04d0: 65 6d 2d 3e 75 2e 69 29 3b 0a 20 20 20 20 20 20  em->u.i);.      
04e0: 7d 0a 20 20 20 20 20 20 65 6c 73 65 20 69 66 28  }.      else if(
04f0: 20 70 4d 65 6d 2d 3e 66 6c 61 67 73 20 26 20 4d   pMem->flags & M
0500: 45 4d 5f 52 65 61 6c 20 29 7b 0a 20 20 20 20 20  EM_Real ){.     
0510: 20 20 20 7a 52 65 74 20 3d 20 73 71 6c 69 74 65     zRet = sqlite
0520: 33 5f 6d 70 72 69 6e 74 66 28 22 25 66 22 2c 20  3_mprintf("%f", 
0530: 70 4d 65 6d 2d 3e 75 2e 72 29 3b 0a 20 20 20 20  pMem->u.r);.    
0540: 20 20 7d 0a 20 20 20 20 20 20 65 6c 73 65 20 69    }.      else i
0550: 66 28 20 70 4d 65 6d 2d 3e 66 6c 61 67 73 20 26  f( pMem->flags &
0560: 20 4d 45 4d 5f 53 74 72 20 29 7b 0a 20 20 20 20   MEM_Str ){.    
0570: 20 20 20 20 7a 52 65 74 20 3d 20 73 71 6c 69 74      zRet = sqlit
0580: 65 33 5f 6d 70 72 69 6e 74 66 28 22 25 2e 2a 51  e3_mprintf("%.*Q
0590: 22 2c 20 70 4d 65 6d 2d 3e 6e 2c 20 70 4d 65 6d  ", pMem->n, pMem
05a0: 2d 3e 7a 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20  ->z);.      }.  
05b0: 20 20 20 20 65 6c 73 65 20 69 66 28 20 70 4d 65      else if( pMe
05c0: 6d 2d 3e 66 6c 61 67 73 20 26 20 4d 45 4d 5f 42  m->flags & MEM_B
05d0: 6c 6f 62 20 29 7b 0a 20 20 20 20 20 20 7d 0a 20  lob ){.      }. 
05e0: 20 20 20 20 20 65 6c 73 65 7b 0a 20 20 20 20 20       else{.     
05f0: 20 20 20 7a 52 65 74 20 3d 20 73 71 6c 69 74 65     zRet = sqlite
0600: 33 5f 6d 70 72 69 6e 74 66 28 22 25 73 22 2c 20  3_mprintf("%s", 
0610: 22 4e 55 4c 4c 22 29 3b 0a 20 20 20 20 20 20 7d  "NULL");.      }
0620: 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20  .      break;.  
0630: 20 20 7d 0a 0a 20 20 20 20 63 61 73 65 20 54 4b    }..    case TK
0640: 5f 43 4f 4c 55 4d 4e 3a 20 7b 0a 20 20 20 20 20  _COLUMN: {.     
0650: 20 7a 52 65 74 20 3d 20 73 71 6c 69 74 65 33 5f   zRet = sqlite3_
0660: 6d 70 72 69 6e 74 66 28 22 63 6f 6c 28 25 64 29  mprintf("col(%d)
0670: 22 2c 20 28 69 6e 74 29 70 45 78 70 72 2d 3e 69  ", (int)pExpr->i
0680: 43 6f 6c 75 6d 6e 29 3b 0a 20 20 20 20 20 20 62  Column);.      b
0690: 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 0a 20 20 20  reak;.    }..   
06a0: 20 63 61 73 65 20 54 4b 5f 4c 54 3a 20 20 20 20   case TK_LT:    
06b0: 20 20 7a 42 69 6e 4f 70 20 3d 20 22 3c 22 3b 20    zBinOp = "<"; 
06c0: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20       break;.    
06d0: 63 61 73 65 20 54 4b 5f 4c 45 3a 20 20 20 20 20  case TK_LE:     
06e0: 20 7a 42 69 6e 4f 70 20 3d 20 22 3c 3d 22 3b 20   zBinOp = "<="; 
06f0: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63      break;.    c
0700: 61 73 65 20 54 4b 5f 47 54 3a 20 20 20 20 20 20  ase TK_GT:      
0710: 7a 42 69 6e 4f 70 20 3d 20 22 3e 22 3b 20 20 20  zBinOp = ">";   
0720: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61     break;.    ca
0730: 73 65 20 54 4b 5f 47 45 3a 20 20 20 20 20 20 7a  se TK_GE:      z
0740: 42 69 6e 4f 70 20 3d 20 22 3e 3d 22 3b 20 20 20  BinOp = ">=";   
0750: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73    break;.    cas
0760: 65 20 54 4b 5f 4e 45 3a 20 20 20 20 20 20 7a 42  e TK_NE:      zB
0770: 69 6e 4f 70 20 3d 20 22 21 3d 22 3b 20 20 20 20  inOp = "!=";    
0780: 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65   break;.    case
0790: 20 54 4b 5f 45 51 3a 20 20 20 20 20 20 7a 42 69   TK_EQ:      zBi
07a0: 6e 4f 70 20 3d 20 22 3d 3d 22 3b 20 20 20 20 20  nOp = "==";     
07b0: 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20  break;.    case 
07c0: 54 4b 5f 49 53 3a 20 20 20 20 20 20 7a 42 69 6e  TK_IS:      zBin
07d0: 4f 70 20 3d 20 22 49 53 22 3b 20 20 20 20 20 62  Op = "IS";     b
07e0: 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 54  reak;.    case T
07f0: 4b 5f 49 53 4e 4f 54 3a 20 20 20 7a 42 69 6e 4f  K_ISNOT:   zBinO
0800: 70 20 3d 20 22 49 53 20 4e 4f 54 22 3b 20 62 72  p = "IS NOT"; br
0810: 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 54 4b  eak;.    case TK
0820: 5f 41 4e 44 3a 20 20 20 20 20 7a 42 69 6e 4f 70  _AND:     zBinOp
0830: 20 3d 20 22 41 4e 44 22 3b 20 20 20 20 62 72 65   = "AND";    bre
0840: 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 54 4b 5f  ak;.    case TK_
0850: 4f 52 3a 20 20 20 20 20 20 7a 42 69 6e 4f 70 20  OR:      zBinOp 
0860: 3d 20 22 4f 52 22 3b 20 20 20 20 20 62 72 65 61  = "OR";     brea
0870: 6b 3b 0a 20 20 20 20 63 61 73 65 20 54 4b 5f 50  k;.    case TK_P
0880: 4c 55 53 3a 20 20 20 20 7a 42 69 6e 4f 70 20 3d  LUS:    zBinOp =
0890: 20 22 2b 22 3b 20 20 20 20 20 20 62 72 65 61 6b   "+";      break
08a0: 3b 0a 20 20 20 20 63 61 73 65 20 54 4b 5f 53 54  ;.    case TK_ST
08b0: 41 52 3a 20 20 20 20 7a 42 69 6e 4f 70 20 3d 20  AR:    zBinOp = 
08c0: 22 2a 22 3b 20 20 20 20 20 20 62 72 65 61 6b 3b  "*";      break;
08d0: 0a 20 20 20 20 63 61 73 65 20 54 4b 5f 4d 49 4e  .    case TK_MIN
08e0: 55 53 3a 20 20 20 7a 42 69 6e 4f 70 20 3d 20 22  US:   zBinOp = "
08f0: 2d 22 3b 20 20 20 20 20 20 62 72 65 61 6b 3b 0a  -";      break;.
0900: 20 20 20 20 63 61 73 65 20 54 4b 5f 52 45 4d 3a      case TK_REM:
0910: 20 20 20 20 20 7a 42 69 6e 4f 70 20 3d 20 22 25       zBinOp = "%
0920: 22 3b 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20  ";      break;. 
0930: 20 20 20 63 61 73 65 20 54 4b 5f 42 49 54 41 4e     case TK_BITAN
0940: 44 3a 20 20 7a 42 69 6e 4f 70 20 3d 20 22 26 22  D:  zBinOp = "&"
0950: 3b 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20  ;      break;.  
0960: 20 20 63 61 73 65 20 54 4b 5f 42 49 54 4f 52 3a    case TK_BITOR:
0970: 20 20 20 7a 42 69 6e 4f 70 20 3d 20 22 7c 22 3b     zBinOp = "|";
0980: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20        break;.   
0990: 20 63 61 73 65 20 54 4b 5f 53 4c 41 53 48 3a 20   case TK_SLASH: 
09a0: 20 20 7a 42 69 6e 4f 70 20 3d 20 22 2f 22 3b 20    zBinOp = "/"; 
09b0: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20       break;.    
09c0: 63 61 73 65 20 54 4b 5f 4c 53 48 49 46 54 3a 20  case TK_LSHIFT: 
09d0: 20 7a 42 69 6e 4f 70 20 3d 20 22 3c 3c 22 3b 20   zBinOp = "<<"; 
09e0: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63      break;.    c
09f0: 61 73 65 20 54 4b 5f 52 53 48 49 46 54 3a 20 20  ase TK_RSHIFT:  
0a00: 7a 42 69 6e 4f 70 20 3d 20 22 3e 3e 22 3b 20 20  zBinOp = ">>";  
0a10: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61     break;.    ca
0a20: 73 65 20 54 4b 5f 43 4f 4e 43 41 54 3a 20 20 7a  se TK_CONCAT:  z
0a30: 42 69 6e 4f 70 20 3d 20 22 7c 7c 22 3b 20 20 20  BinOp = "||";   
0a40: 20 20 62 72 65 61 6b 3b 0a 0a 20 20 20 20 64 65    break;..    de
0a50: 66 61 75 6c 74 3a 0a 20 20 20 20 20 20 7a 52 65  fault:.      zRe
0a60: 74 20 3d 20 73 71 6c 69 74 65 33 5f 6d 70 72 69  t = sqlite3_mpri
0a70: 6e 74 66 28 22 25 73 22 2c 20 22 65 78 70 72 22  ntf("%s", "expr"
0a80: 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a  );.      break;.
0a90: 20 20 7d 0a 0a 20 20 69 66 28 20 7a 42 69 6e 4f    }..  if( zBinO
0aa0: 70 20 29 7b 0a 20 20 20 20 7a 52 65 74 20 3d 20  p ){.    zRet = 
0ab0: 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 28  sqlite3_mprintf(
0ac0: 22 28 25 7a 20 25 73 20 25 7a 29 22 2c 20 0a 20  "(%z %s %z)", . 
0ad0: 20 20 20 20 20 20 20 65 78 70 72 54 6f 53 74 72         exprToStr
0ae0: 69 6e 67 28 61 4d 65 6d 2c 20 70 45 78 70 72 2d  ing(aMem, pExpr-
0af0: 3e 70 4c 65 66 74 29 2c 0a 20 20 20 20 20 20 20  >pLeft),.       
0b00: 20 7a 42 69 6e 4f 70 2c 0a 20 20 20 20 20 20 20   zBinOp,.       
0b10: 20 65 78 70 72 54 6f 53 74 72 69 6e 67 28 61 4d   exprToString(aM
0b20: 65 6d 2c 20 70 45 78 70 72 2d 3e 70 52 69 67 68  em, pExpr->pRigh
0b30: 74 29 0a 20 20 20 20 29 3b 0a 20 20 7d 0a 0a 20  t).    );.  }.. 
0b40: 20 72 65 74 75 72 6e 20 7a 52 65 74 3b 0a 7d 0a   return zRet;.}.
0b50: 0a 76 6f 69 64 20 73 71 6c 69 74 65 33 42 74 72  .void sqlite3Btr
0b60: 65 65 43 75 72 73 6f 72 48 69 6e 74 54 65 73 74  eeCursorHintTest
0b70: 28 4d 65 6d 20 2a 61 4d 65 6d 2c 20 45 78 70 72  (Mem *aMem, Expr
0b80: 20 2a 70 45 78 70 72 29 7b 0a 20 20 69 66 28 20   *pExpr){.  if( 
0b90: 63 75 72 73 6f 72 68 69 6e 74 67 6c 6f 62 61 6c  cursorhintglobal
0ba0: 2e 70 53 63 72 69 70 74 20 29 7b 0a 20 20 20 20  .pScript ){.    
0bb0: 54 63 6c 5f 4f 62 6a 20 2a 70 45 76 61 6c 20 3d  Tcl_Obj *pEval =
0bc0: 20 54 63 6c 5f 44 75 70 6c 69 63 61 74 65 4f 62   Tcl_DuplicateOb
0bd0: 6a 28 63 75 72 73 6f 72 68 69 6e 74 67 6c 6f 62  j(cursorhintglob
0be0: 61 6c 2e 70 53 63 72 69 70 74 29 3b 0a 20 20 20  al.pScript);.   
0bf0: 20 63 68 61 72 20 2a 7a 45 78 70 72 3b 0a 20 20   char *zExpr;.  
0c00: 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 4f 62 6a 3b    Tcl_Obj *pObj;
0c10: 0a 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66  .    Tcl_IncrRef
0c20: 43 6f 75 6e 74 28 70 45 76 61 6c 29 3b 0a 20 20  Count(pEval);.  
0c30: 20 20 7a 45 78 70 72 20 3d 20 65 78 70 72 54 6f    zExpr = exprTo
0c40: 53 74 72 69 6e 67 28 61 4d 65 6d 2c 20 70 45 78  String(aMem, pEx
0c50: 70 72 29 3b 0a 20 20 20 20 70 4f 62 6a 20 3d 20  pr);.    pObj = 
0c60: 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a  Tcl_NewStringObj
0c70: 28 7a 45 78 70 72 2c 20 2d 31 29 3b 0a 20 20 20  (zExpr, -1);.   
0c80: 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 7a 45   sqlite3_free(zE
0c90: 78 70 72 29 3b 0a 20 20 20 20 54 63 6c 5f 4c 69  xpr);.    Tcl_Li
0ca0: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65  stObjAppendEleme
0cb0: 6e 74 28 63 75 72 73 6f 72 68 69 6e 74 67 6c 6f  nt(cursorhintglo
0cc0: 62 61 6c 2e 69 6e 74 65 72 70 2c 20 70 45 76 61  bal.interp, pEva
0cd0: 6c 2c 20 70 4f 62 6a 29 3b 0a 20 20 20 20 54 63  l, pObj);.    Tc
0ce0: 6c 5f 45 76 61 6c 4f 62 6a 45 78 28 63 75 72 73  l_EvalObjEx(curs
0cf0: 6f 72 68 69 6e 74 67 6c 6f 62 61 6c 2e 69 6e 74  orhintglobal.int
0d00: 65 72 70 2c 20 70 45 76 61 6c 2c 20 54 43 4c 5f  erp, pEval, TCL_
0d10: 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 20 20  GLOBAL_ONLY);.  
0d20: 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75    Tcl_DecrRefCou
0d30: 6e 74 28 70 45 76 61 6c 29 3b 0a 20 20 7d 0a 7d  nt(pEval);.  }.}
0d40: 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 63  ../*.** Usage: c
0d50: 75 72 73 6f 72 68 69 6e 74 5f 68 6f 6f 6b 20 53  ursorhint_hook S
0d60: 43 52 49 50 54 0a 2a 2f 0a 73 74 61 74 69 63 20  CRIPT.*/.static 
0d70: 69 6e 74 20 69 6e 73 74 61 6c 6c 5f 63 75 72 73  int install_curs
0d80: 6f 72 68 69 6e 74 5f 68 6f 6f 6b 28 0a 20 20 43  orhint_hook(.  C
0d90: 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74  lientData client
0da0: 44 61 74 61 2c 20 2f 2a 20 50 6f 69 6e 74 65 72  Data, /* Pointer
0db0: 20 74 6f 20 73 71 6c 69 74 65 33 5f 65 6e 61 62   to sqlite3_enab
0dc0: 6c 65 5f 58 58 58 20 66 75 6e 63 74 69 6f 6e 20  le_XXX function 
0dd0: 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20  */.  Tcl_Interp 
0de0: 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54  *interp,    /* T
0df0: 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74  he TCL interpret
0e00: 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20  er that invoked 
0e10: 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a  this command */.
0e20: 20 20 69 6e 74 20 6f 62 6a 63 2c 20 20 20 20 20    int objc,     
0e30: 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62           /* Numb
0e40: 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20  er of arguments 
0e50: 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f  */.  Tcl_Obj *CO
0e60: 4e 53 54 20 6f 62 6a 76 5b 5d 20 20 2f 2a 20 43  NST objv[]  /* C
0e70: 6f 6d 6d 61 6e 64 20 61 72 67 75 6d 65 6e 74 73  ommand arguments
0e80: 20 2a 2f 0a 29 7b 0a 20 20 69 66 28 20 6f 62 6a   */.){.  if( obj
0e90: 63 21 3d 31 20 26 26 20 6f 62 6a 63 21 3d 32 20  c!=1 && objc!=2 
0ea0: 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67  ){.    Tcl_Wrong
0eb0: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20  NumArgs(interp, 
0ec0: 31 2c 20 6f 62 6a 76 2c 20 22 3f 53 43 52 49 50  1, objv, "?SCRIP
0ed0: 54 3f 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e  T?");.    return
0ee0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a   TCL_ERROR;.  }.
0ef0: 20 20 69 66 28 20 63 75 72 73 6f 72 68 69 6e 74    if( cursorhint
0f00: 67 6c 6f 62 61 6c 2e 70 53 63 72 69 70 74 20 29  global.pScript )
0f10: 7b 0a 20 20 20 20 54 63 6c 5f 44 65 63 72 52 65  {.    Tcl_DecrRe
0f20: 66 43 6f 75 6e 74 28 63 75 72 73 6f 72 68 69 6e  fCount(cursorhin
0f30: 74 67 6c 6f 62 61 6c 2e 70 53 63 72 69 70 74 29  tglobal.pScript)
0f40: 3b 0a 20 20 20 20 6d 65 6d 73 65 74 28 26 63 75  ;.    memset(&cu
0f50: 72 73 6f 72 68 69 6e 74 67 6c 6f 62 61 6c 2c 20  rsorhintglobal, 
0f60: 30 2c 20 73 69 7a 65 6f 66 28 63 75 72 73 6f 72  0, sizeof(cursor
0f70: 68 69 6e 74 67 6c 6f 62 61 6c 29 29 3b 0a 20 20  hintglobal));.  
0f80: 7d 0a 20 20 69 66 28 20 6f 62 6a 63 3d 3d 32 20  }.  if( objc==2 
0f90: 29 7b 0a 20 20 20 20 63 75 72 73 6f 72 68 69 6e  ){.    cursorhin
0fa0: 74 67 6c 6f 62 61 6c 2e 69 6e 74 65 72 70 20 3d  tglobal.interp =
0fb0: 20 69 6e 74 65 72 70 3b 0a 20 20 20 20 63 75 72   interp;.    cur
0fc0: 73 6f 72 68 69 6e 74 67 6c 6f 62 61 6c 2e 70 53  sorhintglobal.pS
0fd0: 63 72 69 70 74 20 3d 20 54 63 6c 5f 44 75 70 6c  cript = Tcl_Dupl
0fe0: 69 63 61 74 65 4f 62 6a 28 6f 62 6a 76 5b 31 5d  icateObj(objv[1]
0ff0: 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20  );.  }.  return 
1000: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a  TCL_OK;.}../*.**
1010: 20 52 65 67 69 73 74 65 72 20 63 6f 6d 6d 61 6e   Register comman
1020: 64 73 20 77 69 74 68 20 74 68 65 20 54 43 4c 20  ds with the TCL 
1030: 69 6e 74 65 72 70 72 65 74 65 72 2e 0a 2a 2f 0a  interpreter..*/.
1040: 69 6e 74 20 53 71 6c 69 74 65 74 65 73 74 5f 63  int Sqlitetest_c
1050: 75 72 73 6f 72 68 69 6e 74 5f 49 6e 69 74 28 54  ursorhint_Init(T
1060: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72  cl_Interp *inter
1070: 70 29 7b 0a 20 20 73 74 61 74 69 63 20 73 74 72  p){.  static str
1080: 75 63 74 20 7b 0a 20 20 20 20 20 63 68 61 72 20  uct {.     char 
1090: 2a 7a 4e 61 6d 65 3b 0a 20 20 20 20 20 54 63 6c  *zName;.     Tcl
10a0: 5f 4f 62 6a 43 6d 64 50 72 6f 63 20 2a 78 50 72  _ObjCmdProc *xPr
10b0: 6f 63 3b 0a 20 20 7d 20 61 4f 62 6a 43 6d 64 5b  oc;.  } aObjCmd[
10c0: 5d 20 3d 20 7b 0a 20 20 20 20 20 7b 20 22 63 75  ] = {.     { "cu
10d0: 72 73 6f 72 68 69 6e 74 5f 68 6f 6f 6b 22 2c 20  rsorhint_hook", 
10e0: 20 20 20 69 6e 73 74 61 6c 6c 5f 63 75 72 73 6f     install_curso
10f0: 72 68 69 6e 74 5f 68 6f 6f 6b 20 7d 2c 0a 20 20  rhint_hook },.  
1100: 7d 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 66 6f  };.  int i;.  fo
1110: 72 28 69 3d 30 3b 20 69 3c 73 69 7a 65 6f 66 28  r(i=0; i<sizeof(
1120: 61 4f 62 6a 43 6d 64 29 2f 73 69 7a 65 6f 66 28  aObjCmd)/sizeof(
1130: 61 4f 62 6a 43 6d 64 5b 30 5d 29 3b 20 69 2b 2b  aObjCmd[0]); i++
1140: 29 7b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74  ){.    Tcl_Creat
1150: 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65  eObjCommand(inte
1160: 72 70 2c 20 61 4f 62 6a 43 6d 64 5b 69 5d 2e 7a  rp, aObjCmd[i].z
1170: 4e 61 6d 65 2c 20 61 4f 62 6a 43 6d 64 5b 69 5d  Name, aObjCmd[i]
1180: 2e 78 50 72 6f 63 2c 20 30 2c 20 30 29 3b 0a 20  .xProc, 0, 0);. 
1190: 20 7d 0a 20 20 73 71 6c 69 74 65 33 5f 69 6e 69   }.  sqlite3_ini
11a0: 74 69 61 6c 69 7a 65 28 29 3b 0a 20 20 72 65 74  tialize();.  ret
11b0: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a        urn TCL_OK;.}.