/ Hex Artifact Content
Login

Artifact d86412527da65468ee6fa1b8607c65d0af736bc4:


0000: 2f 2a 0a 2a 2a 20 32 30 30 36 20 4a 75 6e 65 20  /*.** 2006 June 
0010: 31 33 0a 2a 2a 0a 2a 2a 20 54 68 65 20 61 75 74  13.**.** The aut
0020: 68 6f 72 20 64 69 73 63 6c 61 69 6d 73 20 63 6f  hor disclaims co
0030: 70 79 72 69 67 68 74 20 74 6f 20 74 68 69 73 20  pyright to this 
0040: 73 6f 75 72 63 65 20 63 6f 64 65 2e 20 20 49 6e  source code.  In
0050: 20 70 6c 61 63 65 20 6f 66 0a 2a 2a 20 61 20 6c   place of.** a l
0060: 65 67 61 6c 20 6e 6f 74 69 63 65 2c 20 68 65 72  egal notice, her
0070: 65 20 69 73 20 61 20 62 6c 65 73 73 69 6e 67 3a  e is a blessing:
0080: 0a 2a 2a 0a 2a 2a 20 20 20 20 4d 61 79 20 79 6f  .**.**    May yo
0090: 75 20 64 6f 20 67 6f 6f 64 20 61 6e 64 20 6e 6f  u do good and no
00a0: 74 20 65 76 69 6c 2e 0a 2a 2a 20 20 20 20 4d 61  t evil..**    Ma
00b0: 79 20 79 6f 75 20 66 69 6e 64 20 66 6f 72 67 69  y you find forgi
00c0: 76 65 6e 65 73 73 20 66 6f 72 20 79 6f 75 72 73  veness for yours
00d0: 65 6c 66 20 61 6e 64 20 66 6f 72 67 69 76 65 20  elf and forgive 
00e0: 6f 74 68 65 72 73 2e 0a 2a 2a 20 20 20 20 4d 61  others..**    Ma
00f0: 79 20 79 6f 75 20 73 68 61 72 65 20 66 72 65 65  y you share free
0100: 6c 79 2c 20 6e 65 76 65 72 20 74 61 6b 69 6e 67  ly, never taking
0110: 20 6d 6f 72 65 20 74 68 61 6e 20 79 6f 75 20 67   more than you g
0120: 69 76 65 2e 0a 2a 2a 0a 2a 2a 2a 2a 2a 2a 2a 2a  ive..**.********
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 0a 2a 2a 20 43 6f 64 65 20 66 6f 72 20 74 65  *.** Code for te
0180: 73 74 69 6e 67 20 74 68 65 20 76 69 72 74 75 61  sting the virtua
0190: 6c 20 74 61 62 6c 65 20 69 6e 74 65 72 66 61 63  l table interfac
01a0: 65 73 2e 20 20 54 68 69 73 20 63 6f 64 65 0a 2a  es.  This code.*
01b0: 2a 20 69 73 20 6e 6f 74 20 69 6e 63 6c 75 64 65  * is not include
01c0: 64 20 69 6e 20 74 68 65 20 53 51 4c 69 74 65 20  d in the SQLite 
01d0: 6c 69 62 72 61 72 79 2e 20 20 49 74 20 69 73 20  library.  It is 
01e0: 75 73 65 64 20 66 6f 72 20 61 75 74 6f 6d 61 74  used for automat
01f0: 65 64 0a 2a 2a 20 74 65 73 74 69 6e 67 20 6f 66  ed.** testing of
0200: 20 74 68 65 20 53 51 4c 69 74 65 20 6c 69 62 72   the SQLite libr
0210: 61 72 79 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 65  ary..**.** The e
0220: 6d 70 68 61 73 69 73 20 6f 66 20 74 68 69 73 20  mphasis of this 
0230: 66 69 6c 65 20 69 73 20 61 20 76 69 72 74 75 61  file is a virtua
0240: 6c 20 74 61 62 6c 65 20 74 68 61 74 20 70 72 6f  l table that pro
0250: 76 69 64 65 73 0a 2a 2a 20 61 63 63 65 73 73 20  vides.** access 
0260: 74 6f 20 54 43 4c 20 76 61 72 69 61 62 6c 65 73  to TCL variables
0270: 2e 0a 2a 2f 0a 23 69 6e 63 6c 75 64 65 20 22 73  ..*/.#include "s
0280: 71 6c 69 74 65 49 6e 74 2e 68 22 0a 23 69 6e 63  qliteInt.h".#inc
0290: 6c 75 64 65 20 22 74 63 6c 2e 68 22 0a 23 69 6e  lude "tcl.h".#in
02a0: 63 6c 75 64 65 20 3c 73 74 64 6c 69 62 2e 68 3e  clude <stdlib.h>
02b0: 0a 23 69 6e 63 6c 75 64 65 20 3c 73 74 72 69 6e  .#include <strin
02c0: 67 2e 68 3e 0a 0a 23 69 66 6e 64 65 66 20 53 51  g.h>..#ifndef SQ
02d0: 4c 49 54 45 5f 4f 4d 49 54 5f 56 49 52 54 55 41  LITE_OMIT_VIRTUA
02e0: 4c 54 41 42 4c 45 0a 0a 2f 2a 0a 2a 2a 20 43 68  LTABLE../*.** Ch
02f0: 61 72 61 63 74 65 72 73 20 74 68 61 74 20 6d 61  aracters that ma
0300: 6b 65 20 75 70 20 74 68 65 20 69 64 78 53 74 72  ke up the idxStr
0310: 20 63 72 65 61 74 65 64 20 62 79 20 78 42 65 73   created by xBes
0320: 74 49 6e 64 65 78 20 66 6f 72 20 78 46 69 6c 74  tIndex for xFilt
0330: 65 72 2e 0a 2a 2f 0a 23 64 65 66 69 6e 65 20 54  er..*/.#define T
0340: 43 4c 56 41 52 5f 4e 41 4d 45 5f 45 51 20 20 20  CLVAR_NAME_EQ   
0350: 20 20 20 27 65 27 0a 23 64 65 66 69 6e 65 20 54     'e'.#define T
0360: 43 4c 56 41 52 5f 4e 41 4d 45 5f 4d 41 54 43 48  CLVAR_NAME_MATCH
0370: 20 20 20 27 6d 27 0a 23 64 65 66 69 6e 65 20 54     'm'.#define T
0380: 43 4c 56 41 52 5f 56 41 4c 55 45 5f 47 4c 4f 42  CLVAR_VALUE_GLOB
0390: 20 20 20 27 67 27 0a 23 64 65 66 69 6e 65 20 54     'g'.#define T
03a0: 43 4c 56 41 52 5f 56 41 4c 55 45 5f 52 45 47 45  CLVAR_VALUE_REGE
03b0: 58 50 20 27 72 27 0a 23 64 65 66 69 6e 65 20 54  XP 'r'.#define T
03c0: 43 4c 56 41 52 5f 56 41 4c 55 45 5f 4c 49 4b 45  CLVAR_VALUE_LIKE
03d0: 20 20 20 27 6c 27 0a 0a 74 79 70 65 64 65 66 20     'l'..typedef 
03e0: 73 74 72 75 63 74 20 74 63 6c 76 61 72 5f 76 74  struct tclvar_vt
03f0: 61 62 20 74 63 6c 76 61 72 5f 76 74 61 62 3b 0a  ab tclvar_vtab;.
0400: 74 79 70 65 64 65 66 20 73 74 72 75 63 74 20 74  typedef struct t
0410: 63 6c 76 61 72 5f 63 75 72 73 6f 72 20 74 63 6c  clvar_cursor tcl
0420: 76 61 72 5f 63 75 72 73 6f 72 3b 0a 0a 2f 2a 20  var_cursor;../* 
0430: 0a 2a 2a 20 41 20 74 63 6c 76 61 72 20 76 69 72  .** A tclvar vir
0440: 74 75 61 6c 2d 74 61 62 6c 65 20 6f 62 6a 65 63  tual-table objec
0450: 74 20 0a 2a 2f 0a 73 74 72 75 63 74 20 74 63 6c  t .*/.struct tcl
0460: 76 61 72 5f 76 74 61 62 20 7b 0a 20 20 73 71 6c  var_vtab {.  sql
0470: 69 74 65 33 5f 76 74 61 62 20 62 61 73 65 3b 0a  ite3_vtab base;.
0480: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e    Tcl_Interp *in
0490: 74 65 72 70 3b 0a 7d 3b 0a 0a 2f 2a 20 41 20 74  terp;.};../* A t
04a0: 63 6c 76 61 72 20 63 75 72 73 6f 72 20 6f 62 6a  clvar cursor obj
04b0: 65 63 74 20 2a 2f 0a 73 74 72 75 63 74 20 74 63  ect */.struct tc
04c0: 6c 76 61 72 5f 63 75 72 73 6f 72 20 7b 0a 20 20  lvar_cursor {.  
04d0: 73 71 6c 69 74 65 33 5f 76 74 61 62 5f 63 75 72  sqlite3_vtab_cur
04e0: 73 6f 72 20 62 61 73 65 3b 0a 0a 20 20 54 63 6c  sor base;..  Tcl
04f0: 5f 4f 62 6a 20 2a 70 4c 69 73 74 31 3b 20 20 20  _Obj *pList1;   
0500: 20 20 2f 2a 20 52 65 73 75 6c 74 20 6f 66 20 5b    /* Result of [
0510: 69 6e 66 6f 20 76 61 72 73 20 3f 70 61 74 74 65  info vars ?patte
0520: 72 6e 3f 5d 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62  rn?] */.  Tcl_Ob
0530: 6a 20 2a 70 4c 69 73 74 32 3b 20 20 20 20 20 2f  j *pList2;     /
0540: 2a 20 52 65 73 75 6c 74 20 6f 66 20 5b 61 72 72  * Result of [arr
0550: 61 79 20 6e 61 6d 65 73 20 5b 6c 69 6e 64 65 78  ay names [lindex
0560: 20 24 70 4c 69 73 74 31 20 24 69 31 5d 5d 20 2a   $pList1 $i1]] *
0570: 2f 0a 20 20 69 6e 74 20 69 31 3b 20 20 20 20 20  /.  int i1;     
0580: 20 20 20 20 20 20 20 20 20 2f 2a 20 43 75 72 72           /* Curr
0590: 65 6e 74 20 69 74 65 6d 20 69 6e 20 70 4c 69 73  ent item in pLis
05a0: 74 31 20 2a 2f 0a 20 20 69 6e 74 20 69 32 3b 20  t1 */.  int i2; 
05b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
05c0: 43 75 72 72 65 6e 74 20 69 74 65 6d 20 28 69 66  Current item (if
05d0: 20 61 6e 79 29 20 69 6e 20 70 4c 69 73 74 32 20   any) in pList2 
05e0: 2a 2f 0a 7d 3b 0a 0a 2f 2a 20 4d 65 74 68 6f 64  */.};../* Method
05f0: 73 20 66 6f 72 20 74 68 65 20 74 63 6c 76 61 72  s for the tclvar
0600: 20 6d 6f 64 75 6c 65 20 2a 2f 0a 73 74 61 74 69   module */.stati
0610: 63 20 69 6e 74 20 74 63 6c 76 61 72 43 6f 6e 6e  c int tclvarConn
0620: 65 63 74 28 0a 20 20 73 71 6c 69 74 65 33 20 2a  ect(.  sqlite3 *
0630: 64 62 2c 0a 20 20 76 6f 69 64 20 2a 70 41 75 78  db,.  void *pAux
0640: 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 63 6f  ,.  int argc, co
0650: 6e 73 74 20 63 68 61 72 20 2a 63 6f 6e 73 74 2a  nst char *const*
0660: 61 72 67 76 2c 0a 20 20 73 71 6c 69 74 65 33 5f  argv,.  sqlite3_
0670: 76 74 61 62 20 2a 2a 70 70 56 74 61 62 2c 0a 20  vtab **ppVtab,. 
0680: 20 63 68 61 72 20 2a 2a 70 7a 45 72 72 0a 29 7b   char **pzErr.){
0690: 0a 20 20 74 63 6c 76 61 72 5f 76 74 61 62 20 2a  .  tclvar_vtab *
06a0: 70 56 74 61 62 3b 0a 20 20 73 74 61 74 69 63 20  pVtab;.  static 
06b0: 63 6f 6e 73 74 20 63 68 61 72 20 7a 53 63 68 65  const char zSche
06c0: 6d 61 5b 5d 20 3d 20 0a 20 20 20 20 20 22 43 52  ma[] = .     "CR
06d0: 45 41 54 45 20 54 41 42 4c 45 20 77 68 61 74 65  EATE TABLE whate
06e0: 76 65 72 28 6e 61 6d 65 20 54 45 58 54 2c 20 61  ver(name TEXT, a
06f0: 72 72 61 79 6e 61 6d 65 20 54 45 58 54 2c 20 76  rrayname TEXT, v
0700: 61 6c 75 65 20 54 45 58 54 29 22 3b 0a 20 20 70  alue TEXT)";.  p
0710: 56 74 61 62 20 3d 20 73 71 6c 69 74 65 33 4d 61  Vtab = sqlite3Ma
0720: 6c 6c 6f 63 5a 65 72 6f 28 20 73 69 7a 65 6f 66  llocZero( sizeof
0730: 28 2a 70 56 74 61 62 29 20 29 3b 0a 20 20 69 66  (*pVtab) );.  if
0740: 28 20 70 56 74 61 62 3d 3d 30 20 29 20 72 65 74  ( pVtab==0 ) ret
0750: 75 72 6e 20 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d  urn SQLITE_NOMEM
0760: 3b 0a 20 20 2a 70 70 56 74 61 62 20 3d 20 26 70  ;.  *ppVtab = &p
0770: 56 74 61 62 2d 3e 62 61 73 65 3b 0a 20 20 70 56  Vtab->base;.  pV
0780: 74 61 62 2d 3e 69 6e 74 65 72 70 20 3d 20 28 54  tab->interp = (T
0790: 63 6c 5f 49 6e 74 65 72 70 20 2a 29 70 41 75 78  cl_Interp *)pAux
07a0: 3b 0a 20 20 73 71 6c 69 74 65 33 5f 64 65 63 6c  ;.  sqlite3_decl
07b0: 61 72 65 5f 76 74 61 62 28 64 62 2c 20 7a 53 63  are_vtab(db, zSc
07c0: 68 65 6d 61 29 3b 0a 20 20 72 65 74 75 72 6e 20  hema);.  return 
07d0: 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a 2f 2a 20  SQLITE_OK;.}./* 
07e0: 4e 6f 74 65 20 74 68 61 74 20 66 6f 72 20 74 68  Note that for th
07f0: 69 73 20 76 69 72 74 75 61 6c 20 74 61 62 6c 65  is virtual table
0800: 2c 20 74 68 65 20 78 43 72 65 61 74 65 20 61 6e  , the xCreate an
0810: 64 20 78 43 6f 6e 6e 65 63 74 0a 2a 2a 20 6d 65  d xConnect.** me
0820: 74 68 6f 64 73 20 61 72 65 20 69 64 65 6e 74 69  thods are identi
0830: 63 61 6c 2e 20 2a 2f 0a 0a 73 74 61 74 69 63 20  cal. */..static 
0840: 69 6e 74 20 74 63 6c 76 61 72 44 69 73 63 6f 6e  int tclvarDiscon
0850: 6e 65 63 74 28 73 71 6c 69 74 65 33 5f 76 74 61  nect(sqlite3_vta
0860: 62 20 2a 70 56 74 61 62 29 7b 0a 20 20 73 71 6c  b *pVtab){.  sql
0870: 69 74 65 33 5f 66 72 65 65 28 70 56 74 61 62 29  ite3_free(pVtab)
0880: 3b 0a 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54  ;.  return SQLIT
0890: 45 5f 4f 4b 3b 0a 7d 0a 2f 2a 20 54 68 65 20 78  E_OK;.}./* The x
08a0: 44 69 73 63 6f 6e 6e 65 63 74 20 61 6e 64 20 78  Disconnect and x
08b0: 44 65 73 74 72 6f 79 20 6d 65 74 68 6f 64 73 20  Destroy methods 
08c0: 61 72 65 20 61 6c 73 6f 20 74 68 65 20 73 61 6d  are also the sam
08d0: 65 20 2a 2f 0a 0a 2f 2a 0a 2a 2a 20 4f 70 65 6e  e */../*.** Open
08e0: 20 61 20 6e 65 77 20 74 63 6c 76 61 72 20 63 75   a new tclvar cu
08f0: 72 73 6f 72 2e 0a 2a 2f 0a 73 74 61 74 69 63 20  rsor..*/.static 
0900: 69 6e 74 20 74 63 6c 76 61 72 4f 70 65 6e 28 73  int tclvarOpen(s
0910: 71 6c 69 74 65 33 5f 76 74 61 62 20 2a 70 56 54  qlite3_vtab *pVT
0920: 61 62 2c 20 73 71 6c 69 74 65 33 5f 76 74 61 62  ab, sqlite3_vtab
0930: 5f 63 75 72 73 6f 72 20 2a 2a 70 70 43 75 72 73  _cursor **ppCurs
0940: 6f 72 29 7b 0a 20 20 74 63 6c 76 61 72 5f 63 75  or){.  tclvar_cu
0950: 72 73 6f 72 20 2a 70 43 75 72 3b 0a 20 20 70 43  rsor *pCur;.  pC
0960: 75 72 20 3d 20 73 71 6c 69 74 65 33 4d 61 6c 6c  ur = sqlite3Mall
0970: 6f 63 5a 65 72 6f 28 73 69 7a 65 6f 66 28 74 63  ocZero(sizeof(tc
0980: 6c 76 61 72 5f 63 75 72 73 6f 72 29 29 3b 0a 20  lvar_cursor));. 
0990: 20 2a 70 70 43 75 72 73 6f 72 20 3d 20 26 70 43   *ppCursor = &pC
09a0: 75 72 2d 3e 62 61 73 65 3b 0a 20 20 72 65 74 75  ur->base;.  retu
09b0: 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a  rn SQLITE_OK;.}.
09c0: 0a 2f 2a 0a 2a 2a 20 43 6c 6f 73 65 20 61 20 74  ./*.** Close a t
09d0: 63 6c 76 61 72 20 63 75 72 73 6f 72 2e 0a 2a 2f  clvar cursor..*/
09e0: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 63 6c 76  .static int tclv
09f0: 61 72 43 6c 6f 73 65 28 73 71 6c 69 74 65 33 5f  arClose(sqlite3_
0a00: 76 74 61 62 5f 63 75 72 73 6f 72 20 2a 63 75 72  vtab_cursor *cur
0a10: 29 7b 0a 20 20 74 63 6c 76 61 72 5f 63 75 72 73  ){.  tclvar_curs
0a20: 6f 72 20 2a 70 43 75 72 20 3d 20 28 74 63 6c 76  or *pCur = (tclv
0a30: 61 72 5f 63 75 72 73 6f 72 20 2a 29 63 75 72 3b  ar_cursor *)cur;
0a40: 0a 20 20 69 66 28 20 70 43 75 72 2d 3e 70 4c 69  .  if( pCur->pLi
0a50: 73 74 31 20 29 7b 0a 20 20 20 20 54 63 6c 5f 44  st1 ){.    Tcl_D
0a60: 65 63 72 52 65 66 43 6f 75 6e 74 28 70 43 75 72  ecrRefCount(pCur
0a70: 2d 3e 70 4c 69 73 74 31 29 3b 0a 20 20 7d 0a 20  ->pList1);.  }. 
0a80: 20 69 66 28 20 70 43 75 72 2d 3e 70 4c 69 73 74   if( pCur->pList
0a90: 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 44 65 63  2 ){.    Tcl_Dec
0aa0: 72 52 65 66 43 6f 75 6e 74 28 70 43 75 72 2d 3e  rRefCount(pCur->
0ab0: 70 4c 69 73 74 32 29 3b 0a 20 20 7d 0a 20 20 73  pList2);.  }.  s
0ac0: 71 6c 69 74 65 33 5f 66 72 65 65 28 70 43 75 72  qlite3_free(pCur
0ad0: 29 3b 0a 20 20 72 65 74 75 72 6e 20 53 51 4c 49  );.  return SQLI
0ae0: 54 45 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  TE_OK;.}../*.** 
0af0: 52 65 74 75 72 6e 73 20 31 20 69 66 20 64 61 74  Returns 1 if dat
0b00: 61 20 69 73 20 72 65 61 64 79 2c 20 6f 72 20 30  a is ready, or 0
0b10: 20 69 66 20 6e 6f 74 2e 0a 2a 2f 0a 73 74 61 74   if not..*/.stat
0b20: 69 63 20 69 6e 74 20 6e 65 78 74 32 28 54 63 6c  ic int next2(Tcl
0b30: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c  _Interp *interp,
0b40: 20 74 63 6c 76 61 72 5f 63 75 72 73 6f 72 20 2a   tclvar_cursor *
0b50: 70 43 75 72 2c 20 54 63 6c 5f 4f 62 6a 20 2a 70  pCur, Tcl_Obj *p
0b60: 4f 62 6a 29 7b 0a 20 20 54 63 6c 5f 4f 62 6a 20  Obj){.  Tcl_Obj 
0b70: 2a 70 3b 0a 0a 20 20 69 66 28 20 70 4f 62 6a 20  *p;..  if( pObj 
0b80: 29 7b 0a 20 20 20 20 69 66 28 20 21 70 43 75 72  ){.    if( !pCur
0b90: 2d 3e 70 4c 69 73 74 32 20 29 7b 0a 20 20 20 20  ->pList2 ){.    
0ba0: 20 20 70 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72    p = Tcl_NewStr
0bb0: 69 6e 67 4f 62 6a 28 22 61 72 72 61 79 20 6e 61  ingObj("array na
0bc0: 6d 65 73 22 2c 20 2d 31 29 3b 0a 20 20 20 20 20  mes", -1);.     
0bd0: 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e   Tcl_IncrRefCoun
0be0: 74 28 70 29 3b 0a 20 20 20 20 20 20 54 63 6c 5f  t(p);.      Tcl_
0bf0: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65  ListObjAppendEle
0c00: 6d 65 6e 74 28 30 2c 20 70 2c 20 70 4f 62 6a 29  ment(0, p, pObj)
0c10: 3b 0a 20 20 20 20 20 20 54 63 6c 5f 45 76 61 6c  ;.      Tcl_Eval
0c20: 4f 62 6a 45 78 28 69 6e 74 65 72 70 2c 20 70 2c  ObjEx(interp, p,
0c30: 20 54 43 4c 5f 45 56 41 4c 5f 47 4c 4f 42 41 4c   TCL_EVAL_GLOBAL
0c40: 29 3b 0a 20 20 20 20 20 20 54 63 6c 5f 44 65 63  );.      Tcl_Dec
0c50: 72 52 65 66 43 6f 75 6e 74 28 70 29 3b 0a 20 20  rRefCount(p);.  
0c60: 20 20 20 20 70 43 75 72 2d 3e 70 4c 69 73 74 32      pCur->pList2
0c70: 20 3d 20 54 63 6c 5f 47 65 74 4f 62 6a 52 65 73   = Tcl_GetObjRes
0c80: 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 20  ult(interp);.   
0c90: 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f     Tcl_IncrRefCo
0ca0: 75 6e 74 28 70 43 75 72 2d 3e 70 4c 69 73 74 32  unt(pCur->pList2
0cb0: 29 3b 0a 20 20 20 20 20 20 61 73 73 65 72 74 28  );.      assert(
0cc0: 20 70 43 75 72 2d 3e 69 32 3d 3d 30 20 29 3b 0a   pCur->i2==0 );.
0cd0: 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20      }else{.     
0ce0: 20 69 6e 74 20 6e 20 3d 20 30 3b 0a 20 20 20 20   int n = 0;.    
0cf0: 20 20 70 43 75 72 2d 3e 69 32 2b 2b 3b 0a 20 20    pCur->i2++;.  
0d00: 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 4c      Tcl_ListObjL
0d10: 65 6e 67 74 68 28 30 2c 20 70 43 75 72 2d 3e 70  ength(0, pCur->p
0d20: 4c 69 73 74 32 2c 20 26 6e 29 3b 0a 20 20 20 20  List2, &n);.    
0d30: 20 20 69 66 28 20 70 43 75 72 2d 3e 69 32 3e 3d    if( pCur->i2>=
0d40: 6e 20 29 7b 0a 20 20 20 20 20 20 20 20 54 63 6c  n ){.        Tcl
0d50: 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 70 43  _DecrRefCount(pC
0d60: 75 72 2d 3e 70 4c 69 73 74 32 29 3b 0a 20 20 20  ur->pList2);.   
0d70: 20 20 20 20 20 70 43 75 72 2d 3e 70 4c 69 73 74       pCur->pList
0d80: 32 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 70  2 = 0;.        p
0d90: 43 75 72 2d 3e 69 32 20 3d 20 30 3b 0a 20 20 20  Cur->i2 = 0;.   
0da0: 20 20 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 20       return 0;. 
0db0: 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 7d       }.    }.  }
0dc0: 0a 0a 20 20 72 65 74 75 72 6e 20 31 3b 0a 7d 0a  ..  return 1;.}.
0dd0: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 63 6c 76  .static int tclv
0de0: 61 72 4e 65 78 74 28 73 71 6c 69 74 65 33 5f 76  arNext(sqlite3_v
0df0: 74 61 62 5f 63 75 72 73 6f 72 20 2a 63 75 72 29  tab_cursor *cur)
0e00: 7b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 4f 62  {.  Tcl_Obj *pOb
0e10: 6a 3b 0a 20 20 69 6e 74 20 6e 20 3d 20 30 3b 0a  j;.  int n = 0;.
0e20: 20 20 69 6e 74 20 6f 6b 20 3d 20 30 3b 0a 0a 20    int ok = 0;.. 
0e30: 20 74 63 6c 76 61 72 5f 63 75 72 73 6f 72 20 2a   tclvar_cursor *
0e40: 70 43 75 72 20 3d 20 28 74 63 6c 76 61 72 5f 63  pCur = (tclvar_c
0e50: 75 72 73 6f 72 20 2a 29 63 75 72 3b 0a 20 20 54  ursor *)cur;.  T
0e60: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72  cl_Interp *inter
0e70: 70 20 3d 20 28 28 74 63 6c 76 61 72 5f 76 74 61  p = ((tclvar_vta
0e80: 62 20 2a 29 28 63 75 72 2d 3e 70 56 74 61 62 29  b *)(cur->pVtab)
0e90: 29 2d 3e 69 6e 74 65 72 70 3b 0a 0a 20 20 54 63  )->interp;..  Tc
0ea0: 6c 5f 4c 69 73 74 4f 62 6a 4c 65 6e 67 74 68 28  l_ListObjLength(
0eb0: 30 2c 20 70 43 75 72 2d 3e 70 4c 69 73 74 31 2c  0, pCur->pList1,
0ec0: 20 26 6e 29 3b 0a 20 20 77 68 69 6c 65 28 20 21   &n);.  while( !
0ed0: 6f 6b 20 26 26 20 70 43 75 72 2d 3e 69 31 3c 6e  ok && pCur->i1<n
0ee0: 20 29 7b 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74   ){.    Tcl_List
0ef0: 4f 62 6a 49 6e 64 65 78 28 30 2c 20 70 43 75 72  ObjIndex(0, pCur
0f00: 2d 3e 70 4c 69 73 74 31 2c 20 70 43 75 72 2d 3e  ->pList1, pCur->
0f10: 69 31 2c 20 26 70 4f 62 6a 29 3b 0a 20 20 20 20  i1, &pObj);.    
0f20: 6f 6b 20 3d 20 6e 65 78 74 32 28 69 6e 74 65 72  ok = next2(inter
0f30: 70 2c 20 70 43 75 72 2c 20 70 4f 62 6a 29 3b 0a  p, pCur, pObj);.
0f40: 20 20 20 20 69 66 28 20 21 6f 6b 20 29 7b 0a 20      if( !ok ){. 
0f50: 20 20 20 20 20 70 43 75 72 2d 3e 69 31 2b 2b 3b       pCur->i1++;
0f60: 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a 20 20 72 65  .    }.  }..  re
0f70: 74 75 72 6e 20 30 3b 0a 7d 0a 0a 73 74 61 74 69  turn 0;.}..stati
0f80: 63 20 69 6e 74 20 74 63 6c 76 61 72 46 69 6c 74  c int tclvarFilt
0f90: 65 72 28 0a 20 20 73 71 6c 69 74 65 33 5f 76 74  er(.  sqlite3_vt
0fa0: 61 62 5f 63 75 72 73 6f 72 20 2a 70 56 74 61 62  ab_cursor *pVtab
0fb0: 43 75 72 73 6f 72 2c 20 0a 20 20 69 6e 74 20 69  Cursor, .  int i
0fc0: 64 78 4e 75 6d 2c 20 63 6f 6e 73 74 20 63 68 61  dxNum, const cha
0fd0: 72 20 2a 69 64 78 53 74 72 2c 0a 20 20 69 6e 74  r *idxStr,.  int
0fe0: 20 61 72 67 63 2c 20 73 71 6c 69 74 65 33 5f 76   argc, sqlite3_v
0ff0: 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20  alue **argv.){. 
1000: 20 74 63 6c 76 61 72 5f 63 75 72 73 6f 72 20 2a   tclvar_cursor *
1010: 70 43 75 72 20 3d 20 28 74 63 6c 76 61 72 5f 63  pCur = (tclvar_c
1020: 75 72 73 6f 72 20 2a 29 70 56 74 61 62 43 75 72  ursor *)pVtabCur
1030: 73 6f 72 3b 0a 20 20 54 63 6c 5f 49 6e 74 65 72  sor;.  Tcl_Inter
1040: 70 20 2a 69 6e 74 65 72 70 20 3d 20 28 28 74 63  p *interp = ((tc
1050: 6c 76 61 72 5f 76 74 61 62 20 2a 29 28 70 56 74  lvar_vtab *)(pVt
1060: 61 62 43 75 72 73 6f 72 2d 3e 70 56 74 61 62 29  abCursor->pVtab)
1070: 29 2d 3e 69 6e 74 65 72 70 3b 0a 20 20 54 63 6c  )->interp;.  Tcl
1080: 5f 4f 62 6a 20 2a 70 20 3d 20 54 63 6c 5f 4e 65  _Obj *p = Tcl_Ne
1090: 77 53 74 72 69 6e 67 4f 62 6a 28 22 74 63 6c 76  wStringObj("tclv
10a0: 61 72 5f 66 69 6c 74 65 72 5f 63 6d 64 22 2c 20  ar_filter_cmd", 
10b0: 2d 31 29 3b 0a 0a 20 20 63 6f 6e 73 74 20 63 68  -1);..  const ch
10c0: 61 72 20 2a 7a 45 71 20 3d 20 22 22 3b 0a 20 20  ar *zEq = "";.  
10d0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4d 61 74  const char *zMat
10e0: 63 68 20 3d 20 22 22 3b 0a 20 20 63 6f 6e 73 74  ch = "";.  const
10f0: 20 63 68 61 72 20 2a 7a 47 6c 6f 62 20 3d 20 22   char *zGlob = "
1100: 22 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20  ";.  const char 
1110: 2a 7a 52 65 67 65 78 70 20 3d 20 22 22 3b 0a 20  *zRegexp = "";. 
1120: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4c 69   const char *zLi
1130: 6b 65 20 3d 20 22 22 3b 0a 20 20 69 6e 74 20 69  ke = "";.  int i
1140: 3b 0a 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 64  ;..  for(i=0; id
1150: 78 53 74 72 5b 69 5d 3b 20 69 2b 2b 29 7b 0a 20  xStr[i]; i++){. 
1160: 20 20 20 73 77 69 74 63 68 28 20 69 64 78 53 74     switch( idxSt
1170: 72 5b 69 5d 20 29 7b 0a 20 20 20 20 20 20 63 61  r[i] ){.      ca
1180: 73 65 20 54 43 4c 56 41 52 5f 4e 41 4d 45 5f 45  se TCLVAR_NAME_E
1190: 51 3a 0a 20 20 20 20 20 20 20 20 7a 45 71 20 3d  Q:.        zEq =
11a0: 20 28 63 6f 6e 73 74 20 63 68 61 72 2a 29 73 71   (const char*)sq
11b0: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74  lite3_value_text
11c0: 28 61 72 67 76 5b 69 5d 29 3b 0a 20 20 20 20 20  (argv[i]);.     
11d0: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20     break;.      
11e0: 63 61 73 65 20 54 43 4c 56 41 52 5f 4e 41 4d 45  case TCLVAR_NAME
11f0: 5f 4d 41 54 43 48 3a 0a 20 20 20 20 20 20 20 20  _MATCH:.        
1200: 7a 4d 61 74 63 68 20 3d 20 28 63 6f 6e 73 74 20  zMatch = (const 
1210: 63 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 61  char*)sqlite3_va
1220: 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 69 5d  lue_text(argv[i]
1230: 29 3b 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b  );.        break
1240: 3b 0a 20 20 20 20 20 20 63 61 73 65 20 54 43 4c  ;.      case TCL
1250: 56 41 52 5f 56 41 4c 55 45 5f 47 4c 4f 42 3a 0a  VAR_VALUE_GLOB:.
1260: 20 20 20 20 20 20 20 20 7a 47 6c 6f 62 20 3d 20          zGlob = 
1270: 28 63 6f 6e 73 74 20 63 68 61 72 2a 29 73 71 6c  (const char*)sql
1280: 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28  ite3_value_text(
1290: 61 72 67 76 5b 69 5d 29 3b 0a 20 20 20 20 20 20  argv[i]);.      
12a0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 63    break;.      c
12b0: 61 73 65 20 54 43 4c 56 41 52 5f 56 41 4c 55 45  ase TCLVAR_VALUE
12c0: 5f 52 45 47 45 58 50 3a 0a 20 20 20 20 20 20 20  _REGEXP:.       
12d0: 20 7a 52 65 67 65 78 70 20 3d 20 28 63 6f 6e 73   zRegexp = (cons
12e0: 74 20 63 68 61 72 2a 29 73 71 6c 69 74 65 33 5f  t char*)sqlite3_
12f0: 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b  value_text(argv[
1300: 69 5d 29 3b 0a 20 20 20 20 20 20 20 20 62 72 65  i]);.        bre
1310: 61 6b 3b 0a 20 20 20 20 20 20 63 61 73 65 20 54  ak;.      case T
1320: 43 4c 56 41 52 5f 56 41 4c 55 45 5f 4c 49 4b 45  CLVAR_VALUE_LIKE
1330: 3a 0a 20 20 20 20 20 20 20 20 7a 4c 69 6b 65 20  :.        zLike 
1340: 3d 20 28 63 6f 6e 73 74 20 63 68 61 72 2a 29 73  = (const char*)s
1350: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78  qlite3_value_tex
1360: 74 28 61 72 67 76 5b 69 5d 29 3b 0a 20 20 20 20  t(argv[i]);.    
1370: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20      break;.     
1380: 20 64 65 66 61 75 6c 74 3a 0a 20 20 20 20 20 20   default:.      
1390: 20 20 61 73 73 65 72 74 28 20 30 20 29 3b 0a 20    assert( 0 );. 
13a0: 20 20 20 7d 0a 20 20 7d 0a 0a 20 20 54 63 6c 5f     }.  }..  Tcl_
13b0: 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 70 29 3b  IncrRefCount(p);
13c0: 0a 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70  .  Tcl_ListObjAp
13d0: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 30 2c 20 70  pendElement(0, p
13e0: 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f  , Tcl_NewStringO
13f0: 62 6a 28 7a 45 71 2c 20 2d 31 29 29 3b 0a 20 20  bj(zEq, -1));.  
1400: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e  Tcl_ListObjAppen
1410: 64 45 6c 65 6d 65 6e 74 28 30 2c 20 70 2c 20 54  dElement(0, p, T
1420: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28  cl_NewStringObj(
1430: 7a 4d 61 74 63 68 2c 20 2d 31 29 29 3b 0a 20 20  zMatch, -1));.  
1440: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e  Tcl_ListObjAppen
1450: 64 45 6c 65 6d 65 6e 74 28 30 2c 20 70 2c 20 54  dElement(0, p, T
1460: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28  cl_NewStringObj(
1470: 7a 47 6c 6f 62 2c 20 2d 31 29 29 3b 0a 20 20 54  zGlob, -1));.  T
1480: 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64  cl_ListObjAppend
1490: 45 6c 65 6d 65 6e 74 28 30 2c 20 70 2c 20 54 63  Element(0, p, Tc
14a0: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 7a  l_NewStringObj(z
14b0: 52 65 67 65 78 70 2c 20 2d 31 29 29 3b 0a 20 20  Regexp, -1));.  
14c0: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e  Tcl_ListObjAppen
14d0: 64 45 6c 65 6d 65 6e 74 28 30 2c 20 70 2c 20 54  dElement(0, p, T
14e0: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28  cl_NewStringObj(
14f0: 7a 4c 69 6b 65 2c 20 2d 31 29 29 3b 0a 0a 20 20  zLike, -1));..  
1500: 54 63 6c 5f 45 76 61 6c 4f 62 6a 45 78 28 69 6e  Tcl_EvalObjEx(in
1510: 74 65 72 70 2c 20 70 2c 20 54 43 4c 5f 45 56 41  terp, p, TCL_EVA
1520: 4c 5f 47 4c 4f 42 41 4c 29 3b 0a 20 20 69 66 28  L_GLOBAL);.  if(
1530: 20 70 43 75 72 2d 3e 70 4c 69 73 74 31 20 29 7b   pCur->pList1 ){
1540: 0a 20 20 20 20 54 63 6c 5f 44 65 63 72 52 65 66  .    Tcl_DecrRef
1550: 43 6f 75 6e 74 28 70 43 75 72 2d 3e 70 4c 69 73  Count(pCur->pLis
1560: 74 31 29 3b 0a 20 20 7d 0a 20 20 69 66 28 20 70  t1);.  }.  if( p
1570: 43 75 72 2d 3e 70 4c 69 73 74 32 20 29 7b 0a 20  Cur->pList2 ){. 
1580: 20 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f     Tcl_DecrRefCo
1590: 75 6e 74 28 70 43 75 72 2d 3e 70 4c 69 73 74 32  unt(pCur->pList2
15a0: 29 3b 0a 20 20 20 20 70 43 75 72 2d 3e 70 4c 69  );.    pCur->pLi
15b0: 73 74 32 20 3d 20 30 3b 0a 20 20 7d 0a 20 20 70  st2 = 0;.  }.  p
15c0: 43 75 72 2d 3e 69 31 20 3d 20 30 3b 0a 20 20 70  Cur->i1 = 0;.  p
15d0: 43 75 72 2d 3e 69 32 20 3d 20 30 3b 0a 20 20 70  Cur->i2 = 0;.  p
15e0: 43 75 72 2d 3e 70 4c 69 73 74 31 20 3d 20 54 63  Cur->pList1 = Tc
15f0: 6c 5f 47 65 74 4f 62 6a 52 65 73 75 6c 74 28 69  l_GetObjResult(i
1600: 6e 74 65 72 70 29 3b 0a 20 20 54 63 6c 5f 49 6e  nterp);.  Tcl_In
1610: 63 72 52 65 66 43 6f 75 6e 74 28 70 43 75 72 2d  crRefCount(pCur-
1620: 3e 70 4c 69 73 74 31 29 3b 0a 0a 20 20 54 63 6c  >pList1);..  Tcl
1630: 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 70 29  _DecrRefCount(p)
1640: 3b 0a 20 20 72 65 74 75 72 6e 20 74 63 6c 76 61  ;.  return tclva
1650: 72 4e 65 78 74 28 70 56 74 61 62 43 75 72 73 6f  rNext(pVtabCurso
1660: 72 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e  r);.}..static in
1670: 74 20 74 63 6c 76 61 72 43 6f 6c 75 6d 6e 28 73  t tclvarColumn(s
1680: 71 6c 69 74 65 33 5f 76 74 61 62 5f 63 75 72 73  qlite3_vtab_curs
1690: 6f 72 20 2a 63 75 72 2c 20 73 71 6c 69 74 65 33  or *cur, sqlite3
16a0: 5f 63 6f 6e 74 65 78 74 20 2a 63 74 78 2c 20 69  _context *ctx, i
16b0: 6e 74 20 69 29 7b 0a 20 20 54 63 6c 5f 4f 62 6a  nt i){.  Tcl_Obj
16c0: 20 2a 70 31 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20   *p1;.  Tcl_Obj 
16d0: 2a 70 32 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61  *p2;.  const cha
16e0: 72 20 2a 7a 31 3b 20 0a 20 20 63 6f 6e 73 74 20  r *z1; .  const 
16f0: 63 68 61 72 20 2a 7a 32 20 3d 20 22 22 3b 0a 20  char *z2 = "";. 
1700: 20 74 63 6c 76 61 72 5f 63 75 72 73 6f 72 20 2a   tclvar_cursor *
1710: 70 43 75 72 20 3d 20 28 74 63 6c 76 61 72 5f 63  pCur = (tclvar_c
1720: 75 72 73 6f 72 2a 29 63 75 72 3b 0a 20 20 54 63  ursor*)cur;.  Tc
1730: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70  l_Interp *interp
1740: 20 3d 20 28 28 74 63 6c 76 61 72 5f 76 74 61 62   = ((tclvar_vtab
1750: 20 2a 29 63 75 72 2d 3e 70 56 74 61 62 29 2d 3e   *)cur->pVtab)->
1760: 69 6e 74 65 72 70 3b 0a 0a 20 20 54 63 6c 5f 4c  interp;..  Tcl_L
1770: 69 73 74 4f 62 6a 49 6e 64 65 78 28 69 6e 74 65  istObjIndex(inte
1780: 72 70 2c 20 70 43 75 72 2d 3e 70 4c 69 73 74 31  rp, pCur->pList1
1790: 2c 20 70 43 75 72 2d 3e 69 31 2c 20 26 70 31 29  , pCur->i1, &p1)
17a0: 3b 0a 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 49  ;.  Tcl_ListObjI
17b0: 6e 64 65 78 28 69 6e 74 65 72 70 2c 20 70 43 75  ndex(interp, pCu
17c0: 72 2d 3e 70 4c 69 73 74 32 2c 20 70 43 75 72 2d  r->pList2, pCur-
17d0: 3e 69 32 2c 20 26 70 32 29 3b 0a 20 20 7a 31 20  >i2, &p2);.  z1 
17e0: 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28  = Tcl_GetString(
17f0: 70 31 29 3b 0a 20 20 69 66 28 20 70 32 20 29 7b  p1);.  if( p2 ){
1800: 0a 20 20 20 20 7a 32 20 3d 20 54 63 6c 5f 47 65  .    z2 = Tcl_Ge
1810: 74 53 74 72 69 6e 67 28 70 32 29 3b 0a 20 20 7d  tString(p2);.  }
1820: 0a 20 20 73 77 69 74 63 68 20 28 69 29 20 7b 0a  .  switch (i) {.
1830: 20 20 20 20 63 61 73 65 20 30 3a 20 7b 0a 20 20      case 0: {.  
1840: 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75      sqlite3_resu
1850: 6c 74 5f 74 65 78 74 28 63 74 78 2c 20 7a 31 2c  lt_text(ctx, z1,
1860: 20 2d 31 2c 20 53 51 4c 49 54 45 5f 54 52 41 4e   -1, SQLITE_TRAN
1870: 53 49 45 4e 54 29 3b 0a 20 20 20 20 20 20 62 72  SIENT);.      br
1880: 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 63  eak;.    }.    c
1890: 61 73 65 20 31 3a 20 7b 0a 20 20 20 20 20 20 73  ase 1: {.      s
18a0: 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65  qlite3_result_te
18b0: 78 74 28 63 74 78 2c 20 7a 32 2c 20 2d 31 2c 20  xt(ctx, z2, -1, 
18c0: 53 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 4e 54  SQLITE_TRANSIENT
18d0: 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a  );.      break;.
18e0: 20 20 20 20 7d 0a 20 20 20 20 63 61 73 65 20 32      }.    case 2
18f0: 3a 20 7b 0a 20 20 20 20 20 20 54 63 6c 5f 4f 62  : {.      Tcl_Ob
1900: 6a 20 2a 70 56 61 6c 20 3d 20 54 63 6c 5f 47 65  j *pVal = Tcl_Ge
1910: 74 56 61 72 32 45 78 28 69 6e 74 65 72 70 2c 20  tVar2Ex(interp, 
1920: 7a 31 2c 20 2a 7a 32 3f 7a 32 3a 30 2c 20 54 43  z1, *z2?z2:0, TC
1930: 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a  L_GLOBAL_ONLY);.
1940: 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65        sqlite3_re
1950: 73 75 6c 74 5f 74 65 78 74 28 63 74 78 2c 20 54  sult_text(ctx, T
1960: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 70 56 61  cl_GetString(pVa
1970: 6c 29 2c 20 2d 31 2c 20 53 51 4c 49 54 45 5f 54  l), -1, SQLITE_T
1980: 52 41 4e 53 49 45 4e 54 29 3b 0a 20 20 20 20 20  RANSIENT);.     
1990: 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20   break;.    }.  
19a0: 7d 0a 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54  }.  return SQLIT
19b0: 45 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61 74 69 63 20  E_OK;.}..static 
19c0: 69 6e 74 20 74 63 6c 76 61 72 52 6f 77 69 64 28  int tclvarRowid(
19d0: 73 71 6c 69 74 65 33 5f 76 74 61 62 5f 63 75 72  sqlite3_vtab_cur
19e0: 73 6f 72 20 2a 63 75 72 2c 20 73 71 6c 69 74 65  sor *cur, sqlite
19f0: 5f 69 6e 74 36 34 20 2a 70 52 6f 77 69 64 29 7b  _int64 *pRowid){
1a00: 0a 20 20 2a 70 52 6f 77 69 64 20 3d 20 30 3b 0a  .  *pRowid = 0;.
1a10: 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f    return SQLITE_
1a20: 4f 4b 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e  OK;.}..static in
1a30: 74 20 74 63 6c 76 61 72 45 6f 66 28 73 71 6c 69  t tclvarEof(sqli
1a40: 74 65 33 5f 76 74 61 62 5f 63 75 72 73 6f 72 20  te3_vtab_cursor 
1a50: 2a 63 75 72 29 7b 0a 20 20 74 63 6c 76 61 72 5f  *cur){.  tclvar_
1a60: 63 75 72 73 6f 72 20 2a 70 43 75 72 20 3d 20 28  cursor *pCur = (
1a70: 74 63 6c 76 61 72 5f 63 75 72 73 6f 72 2a 29 63  tclvar_cursor*)c
1a80: 75 72 3b 0a 20 20 72 65 74 75 72 6e 20 28 70 43  ur;.  return (pC
1a90: 75 72 2d 3e 70 4c 69 73 74 32 3f 30 3a 31 29 3b  ur->pList2?0:1);
1aa0: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 66 20 6e 75 6c  .}../*.** If nul
1ab0: 2d 74 65 72 6d 69 6e 61 74 65 64 20 73 74 72 69  -terminated stri
1ac0: 6e 67 20 7a 53 74 72 20 64 6f 65 73 20 6e 6f 74  ng zStr does not
1ad0: 20 61 6c 72 65 61 64 79 20 63 6f 6e 74 61 69 6e   already contain
1ae0: 20 74 68 65 20 63 68 61 72 61 63 74 65 72 20 0a   the character .
1af0: 2a 2a 20 70 61 73 73 65 64 20 61 73 20 74 68 65  ** passed as the
1b00: 20 73 65 63 6f 6e 64 20 61 72 67 75 6d 65 6e 74   second argument
1b10: 2c 20 61 70 70 65 6e 64 20 69 74 20 61 6e 64 20  , append it and 
1b20: 72 65 74 75 72 6e 20 30 2e 20 4f 72 2c 20 69 66  return 0. Or, if
1b30: 20 74 68 65 72 65 20 69 73 0a 2a 2a 20 61 6c 72   there is.** alr
1b40: 65 61 64 79 20 61 6e 20 69 6e 73 74 61 6e 63 65  eady an instance
1b50: 20 6f 66 20 78 20 69 6e 20 7a 53 74 72 2c 20 64   of x in zStr, d
1b60: 6f 20 6e 6f 74 68 69 6e 67 20 72 65 74 75 72 6e  o nothing return
1b70: 20 31 3b 0a 2a 2a 0a 2a 2a 20 54 68 65 72 65 20   1;.**.** There 
1b80: 69 73 20 67 75 61 72 61 6e 74 65 65 64 20 74 6f  is guaranteed to
1b90: 20 62 65 20 65 6e 6f 75 67 68 20 72 6f 6f 6d 20   be enough room 
1ba0: 69 6e 20 74 68 65 20 62 75 66 66 65 72 20 70 6f  in the buffer po
1bb0: 69 6e 74 65 64 20 74 6f 20 62 79 20 7a 53 74 72  inted to by zStr
1bc0: 0a 2a 2a 20 66 6f 72 20 74 68 65 20 6e 65 77 20  .** for the new 
1bd0: 63 68 61 72 61 63 74 65 72 20 61 6e 64 20 6e 75  character and nu
1be0: 6c 2d 74 65 72 6d 69 6e 61 74 6f 72 2e 0a 2a 2f  l-terminator..*/
1bf0: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 63 6c 76  .static int tclv
1c00: 61 72 41 64 64 54 6f 49 64 78 73 74 72 28 63 68  arAddToIdxstr(ch
1c10: 61 72 20 2a 7a 53 74 72 2c 20 63 68 61 72 20 78  ar *zStr, char x
1c20: 29 7b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 66 6f  ){.  int i;.  fo
1c30: 72 28 69 3d 30 3b 20 7a 53 74 72 5b 69 5d 3b 20  r(i=0; zStr[i]; 
1c40: 69 2b 2b 29 7b 0a 20 20 20 20 69 66 28 20 7a 53  i++){.    if( zS
1c50: 74 72 5b 69 5d 3d 3d 78 20 29 20 72 65 74 75 72  tr[i]==x ) retur
1c60: 6e 20 31 3b 0a 20 20 7d 0a 20 20 7a 53 74 72 5b  n 1;.  }.  zStr[
1c70: 69 5d 20 3d 20 78 3b 0a 20 20 7a 53 74 72 5b 69  i] = x;.  zStr[i
1c80: 2b 31 5d 20 3d 20 27 5c 30 27 3b 0a 20 20 72 65  +1] = '\0';.  re
1c90: 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a  turn 0;.}../*.**
1ca0: 20 52 65 74 75 72 6e 20 74 72 75 65 20 69 66 20   Return true if 
1cb0: 76 61 72 69 61 62 6c 65 20 24 3a 3a 74 63 6c 76  variable $::tclv
1cc0: 61 72 5f 73 65 74 5f 6f 6d 69 74 20 65 78 69 73  ar_set_omit exis
1cd0: 74 73 20 61 6e 64 20 69 73 20 73 65 74 20 74 6f  ts and is set to
1ce0: 20 74 72 75 65 2e 0a 2a 2a 20 46 61 6c 73 65 20   true..** False 
1cf0: 6f 74 68 65 72 77 69 73 65 2e 0a 2a 2f 0a 73 74  otherwise..*/.st
1d00: 61 74 69 63 20 69 6e 74 20 74 63 6c 76 61 72 53  atic int tclvarS
1d10: 65 74 4f 6d 69 74 28 54 63 6c 5f 49 6e 74 65 72  etOmit(Tcl_Inter
1d20: 70 20 2a 69 6e 74 65 72 70 29 7b 0a 20 20 69 6e  p *interp){.  in
1d30: 74 20 72 63 3b 0a 20 20 69 6e 74 20 72 65 73 20  t rc;.  int res 
1d40: 3d 20 30 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a  = 0;.  Tcl_Obj *
1d50: 70 52 65 73 3b 0a 20 20 72 63 20 3d 20 54 63 6c  pRes;.  rc = Tcl
1d60: 5f 45 76 61 6c 28 69 6e 74 65 72 70 2c 0a 20 20  _Eval(interp,.  
1d70: 20 20 22 65 78 70 72 20 7b 5b 69 6e 66 6f 20 65    "expr {[info e
1d80: 78 69 73 74 73 20 3a 3a 74 63 6c 76 61 72 5f 73  xists ::tclvar_s
1d90: 65 74 5f 6f 6d 69 74 5d 20 26 26 20 24 3a 3a 74  et_omit] && $::t
1da0: 63 6c 76 61 72 5f 73 65 74 5f 6f 6d 69 74 7d 22  clvar_set_omit}"
1db0: 0a 20 20 29 3b 0a 20 20 69 66 28 20 72 63 3d 3d  .  );.  if( rc==
1dc0: 54 43 4c 5f 4f 4b 20 29 7b 0a 20 20 20 20 70 52  TCL_OK ){.    pR
1dd0: 65 73 20 3d 20 54 63 6c 5f 47 65 74 4f 62 6a 52  es = Tcl_GetObjR
1de0: 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 20  esult(interp);. 
1df0: 20 20 20 72 63 20 3d 20 54 63 6c 5f 47 65 74 42     rc = Tcl_GetB
1e00: 6f 6f 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28 30 2c  ooleanFromObj(0,
1e10: 20 70 52 65 73 2c 20 26 72 65 73 29 3b 0a 20 20   pRes, &res);.  
1e20: 7d 0a 20 20 72 65 74 75 72 6e 20 28 72 63 3d 3d  }.  return (rc==
1e30: 54 43 4c 5f 4f 4b 20 26 26 20 72 65 73 29 3b 0a  TCL_OK && res);.
1e40: 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 78 42 65  }../*.** The xBe
1e50: 73 74 49 6e 64 65 78 28 29 20 6d 65 74 68 6f 64  stIndex() method
1e60: 2e 20 54 68 69 73 20 76 69 72 74 75 61 6c 20 74  . This virtual t
1e70: 61 62 6c 65 20 73 75 70 70 6f 72 74 73 20 74 68  able supports th
1e80: 65 20 66 6f 6c 6c 6f 77 69 6e 67 0a 2a 2a 20 6f  e following.** o
1e90: 70 65 72 61 74 6f 72 73 3a 0a 2a 2a 0a 2a 2a 20  perators:.**.** 
1ea0: 20 20 20 20 6e 61 6d 65 20 3d 20 3f 20 20 20 20      name = ?    
1eb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1ec0: 28 6f 6d 69 74 20 66 6c 61 67 20 63 6c 65 61 72  (omit flag clear
1ed0: 29 0a 2a 2a 20 20 20 20 20 6e 61 6d 65 20 4d 41  ).**     name MA
1ee0: 54 43 48 20 3f 20 20 20 20 20 20 20 20 20 20 20  TCH ?           
1ef0: 20 20 20 20 20 28 6f 6d 69 74 20 66 6c 61 67 20       (omit flag 
1f00: 73 65 74 29 0a 2a 2a 20 20 20 20 20 76 61 6c 75  set).**     valu
1f10: 65 20 47 4c 4f 42 20 3f 20 20 20 20 20 20 20 20  e GLOB ?        
1f20: 20 20 20 20 20 20 20 20 28 6f 6d 69 74 20 66 6c          (omit fl
1f30: 61 67 20 73 65 74 20 69 66 66 20 24 3a 3a 74 63  ag set iff $::tc
1f40: 6c 76 61 72 5f 73 65 74 5f 6f 6d 69 74 29 0a 2a  lvar_set_omit).*
1f50: 2a 20 20 20 20 20 76 61 6c 75 65 20 52 45 47 45  *     value REGE
1f60: 58 50 20 3f 20 20 20 20 20 20 20 20 20 20 20 20  XP ?            
1f70: 20 20 28 6f 6d 69 74 20 66 6c 61 67 20 73 65 74    (omit flag set
1f80: 20 69 66 66 20 24 3a 3a 74 63 6c 76 61 72 5f 73   iff $::tclvar_s
1f90: 65 74 5f 6f 6d 69 74 29 0a 2a 2a 20 20 20 20 20  et_omit).**     
1fa0: 76 61 6c 75 65 20 4c 49 4b 45 20 3f 20 20 20 20  value LIKE ?    
1fb0: 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 6d 69              (omi
1fc0: 74 20 66 6c 61 67 20 73 65 74 20 69 66 66 20 24  t flag set iff $
1fd0: 3a 3a 74 63 6c 76 61 72 5f 73 65 74 5f 6f 6d 69  ::tclvar_set_omi
1fe0: 74 29 0a 2a 2a 0a 2a 2a 20 46 6f 72 20 65 61 63  t).**.** For eac
1ff0: 68 20 63 6f 6e 73 74 72 61 69 6e 74 20 70 72 65  h constraint pre
2000: 73 65 6e 74 2c 20 74 68 65 20 63 6f 72 72 65 73  sent, the corres
2010: 70 6f 6e 64 69 6e 67 20 54 43 4c 56 41 52 5f 58  ponding TCLVAR_X
2020: 58 58 20 63 68 61 72 61 63 74 65 72 20 69 73 0a  XX character is.
2030: 2a 2a 20 61 70 70 65 6e 64 65 64 20 74 6f 20 74  ** appended to t
2040: 68 65 20 69 64 78 53 74 72 20 76 61 6c 75 65 2e  he idxStr value.
2050: 20 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20   .*/.static int 
2060: 74 63 6c 76 61 72 42 65 73 74 49 6e 64 65 78 28  tclvarBestIndex(
2070: 73 71 6c 69 74 65 33 5f 76 74 61 62 20 2a 74 61  sqlite3_vtab *ta
2080: 62 2c 20 73 71 6c 69 74 65 33 5f 69 6e 64 65 78  b, sqlite3_index
2090: 5f 69 6e 66 6f 20 2a 70 49 64 78 49 6e 66 6f 29  _info *pIdxInfo)
20a0: 7b 0a 20 20 74 63 6c 76 61 72 5f 76 74 61 62 20  {.  tclvar_vtab 
20b0: 2a 70 54 61 62 20 3d 20 28 74 63 6c 76 61 72 5f  *pTab = (tclvar_
20c0: 76 74 61 62 2a 29 74 61 62 3b 0a 20 20 69 6e 74  vtab*)tab;.  int
20d0: 20 69 69 3b 0a 20 20 63 68 61 72 20 2a 7a 53 74   ii;.  char *zSt
20e0: 72 20 3d 20 73 71 6c 69 74 65 33 5f 6d 61 6c 6c  r = sqlite3_mall
20f0: 6f 63 28 33 32 29 3b 0a 20 20 69 6e 74 20 69 53  oc(32);.  int iS
2100: 74 72 20 3d 20 30 3b 0a 0a 20 20 69 66 28 20 7a  tr = 0;..  if( z
2110: 53 74 72 3d 3d 30 20 29 20 72 65 74 75 72 6e 20  Str==0 ) return 
2120: 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d 3b 0a 20 20  SQLITE_NOMEM;.  
2130: 7a 53 74 72 5b 30 5d 20 3d 20 27 5c 30 27 3b 0a  zStr[0] = '\0';.
2140: 0a 20 20 66 6f 72 28 69 69 3d 30 3b 20 69 69 3c  .  for(ii=0; ii<
2150: 70 49 64 78 49 6e 66 6f 2d 3e 6e 43 6f 6e 73 74  pIdxInfo->nConst
2160: 72 61 69 6e 74 3b 20 69 69 2b 2b 29 7b 0a 20 20  raint; ii++){.  
2170: 20 20 73 74 72 75 63 74 20 73 71 6c 69 74 65 33    struct sqlite3
2180: 5f 69 6e 64 65 78 5f 63 6f 6e 73 74 72 61 69 6e  _index_constrain
2190: 74 20 63 6f 6e 73 74 20 2a 70 43 6f 6e 73 20 3d  t const *pCons =
21a0: 20 26 70 49 64 78 49 6e 66 6f 2d 3e 61 43 6f 6e   &pIdxInfo->aCon
21b0: 73 74 72 61 69 6e 74 5b 69 69 5d 3b 0a 20 20 20  straint[ii];.   
21c0: 20 73 74 72 75 63 74 20 73 71 6c 69 74 65 33 5f   struct sqlite3_
21d0: 69 6e 64 65 78 5f 63 6f 6e 73 74 72 61 69 6e 74  index_constraint
21e0: 5f 75 73 61 67 65 20 2a 70 55 73 61 67 65 3b 0a  _usage *pUsage;.
21f0: 20 20 20 20 0a 20 20 20 20 70 55 73 61 67 65 20      .    pUsage 
2200: 3d 20 26 70 49 64 78 49 6e 66 6f 2d 3e 61 43 6f  = &pIdxInfo->aCo
2210: 6e 73 74 72 61 69 6e 74 55 73 61 67 65 5b 69 69  nstraintUsage[ii
2220: 5d 3b 0a 20 20 20 20 69 66 28 20 70 43 6f 6e 73  ];.    if( pCons
2230: 2d 3e 75 73 61 62 6c 65 20 29 7b 0a 20 20 20 20  ->usable ){.    
2240: 20 20 2f 2a 20 6e 61 6d 65 20 3d 20 3f 20 2a 2f    /* name = ? */
2250: 0a 20 20 20 20 20 20 69 66 28 20 70 43 6f 6e 73  .      if( pCons
2260: 2d 3e 6f 70 3d 3d 53 51 4c 49 54 45 5f 49 4e 44  ->op==SQLITE_IND
2270: 45 58 5f 43 4f 4e 53 54 52 41 49 4e 54 5f 45 51  EX_CONSTRAINT_EQ
2280: 20 26 26 20 70 43 6f 6e 73 2d 3e 69 43 6f 6c 75   && pCons->iColu
2290: 6d 6e 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 20  mn==0 ){.       
22a0: 20 69 66 28 20 30 3d 3d 74 63 6c 76 61 72 41 64   if( 0==tclvarAd
22b0: 64 54 6f 49 64 78 73 74 72 28 7a 53 74 72 2c 20  dToIdxstr(zStr, 
22c0: 54 43 4c 56 41 52 5f 4e 41 4d 45 5f 45 51 29 20  TCLVAR_NAME_EQ) 
22d0: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 70 55 73  ){.          pUs
22e0: 61 67 65 2d 3e 61 72 67 76 49 6e 64 65 78 20 3d  age->argvIndex =
22f0: 20 2b 2b 69 53 74 72 3b 0a 20 20 20 20 20 20 20   ++iStr;.       
2300: 20 20 20 70 55 73 61 67 65 2d 3e 6f 6d 69 74 20     pUsage->omit 
2310: 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20  = 0;.        }. 
2320: 20 20 20 20 20 7d 0a 0a 20 20 20 20 20 20 2f 2a       }..      /*
2330: 20 6e 61 6d 65 20 4d 41 54 43 48 20 3f 20 2a 2f   name MATCH ? */
2340: 0a 20 20 20 20 20 20 69 66 28 20 70 43 6f 6e 73  .      if( pCons
2350: 2d 3e 6f 70 3d 3d 53 51 4c 49 54 45 5f 49 4e 44  ->op==SQLITE_IND
2360: 45 58 5f 43 4f 4e 53 54 52 41 49 4e 54 5f 4d 41  EX_CONSTRAINT_MA
2370: 54 43 48 20 26 26 20 70 43 6f 6e 73 2d 3e 69 43  TCH && pCons->iC
2380: 6f 6c 75 6d 6e 3d 3d 30 20 29 7b 0a 20 20 20 20  olumn==0 ){.    
2390: 20 20 20 20 69 66 28 20 30 3d 3d 74 63 6c 76 61      if( 0==tclva
23a0: 72 41 64 64 54 6f 49 64 78 73 74 72 28 7a 53 74  rAddToIdxstr(zSt
23b0: 72 2c 20 54 43 4c 56 41 52 5f 4e 41 4d 45 5f 4d  r, TCLVAR_NAME_M
23c0: 41 54 43 48 29 20 29 7b 0a 20 20 20 20 20 20 20  ATCH) ){.       
23d0: 20 20 20 70 55 73 61 67 65 2d 3e 61 72 67 76 49     pUsage->argvI
23e0: 6e 64 65 78 20 3d 20 2b 2b 69 53 74 72 3b 0a 20  ndex = ++iStr;. 
23f0: 20 20 20 20 20 20 20 20 20 70 55 73 61 67 65 2d           pUsage-
2400: 3e 6f 6d 69 74 20 3d 20 31 3b 0a 20 20 20 20 20  >omit = 1;.     
2410: 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a 0a 20 20     }.      }..  
2420: 20 20 20 20 2f 2a 20 76 61 6c 75 65 20 47 4c 4f      /* value GLO
2430: 42 20 3f 20 2a 2f 0a 20 20 20 20 20 20 69 66 28  B ? */.      if(
2440: 20 70 43 6f 6e 73 2d 3e 6f 70 3d 3d 53 51 4c 49   pCons->op==SQLI
2450: 54 45 5f 49 4e 44 45 58 5f 43 4f 4e 53 54 52 41  TE_INDEX_CONSTRA
2460: 49 4e 54 5f 47 4c 4f 42 20 26 26 20 70 43 6f 6e  INT_GLOB && pCon
2470: 73 2d 3e 69 43 6f 6c 75 6d 6e 3d 3d 32 20 29 7b  s->iColumn==2 ){
2480: 0a 20 20 20 20 20 20 20 20 69 66 28 20 30 3d 3d  .        if( 0==
2490: 74 63 6c 76 61 72 41 64 64 54 6f 49 64 78 73 74  tclvarAddToIdxst
24a0: 72 28 7a 53 74 72 2c 20 54 43 4c 56 41 52 5f 56  r(zStr, TCLVAR_V
24b0: 41 4c 55 45 5f 47 4c 4f 42 29 20 29 7b 0a 20 20  ALUE_GLOB) ){.  
24c0: 20 20 20 20 20 20 20 20 70 55 73 61 67 65 2d 3e          pUsage->
24d0: 61 72 67 76 49 6e 64 65 78 20 3d 20 2b 2b 69 53  argvIndex = ++iS
24e0: 74 72 3b 0a 20 20 20 20 20 20 20 20 20 20 70 55  tr;.          pU
24f0: 73 61 67 65 2d 3e 6f 6d 69 74 20 3d 20 74 63 6c  sage->omit = tcl
2500: 76 61 72 53 65 74 4f 6d 69 74 28 70 54 61 62 2d  varSetOmit(pTab-
2510: 3e 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 20 20  >interp);.      
2520: 20 20 7d 0a 20 20 20 20 20 20 7d 0a 0a 20 20 20    }.      }..   
2530: 20 20 20 2f 2a 20 76 61 6c 75 65 20 52 45 47 45     /* value REGE
2540: 58 50 20 3f 20 2a 2f 0a 20 20 20 20 20 20 69 66  XP ? */.      if
2550: 28 20 70 43 6f 6e 73 2d 3e 6f 70 3d 3d 53 51 4c  ( pCons->op==SQL
2560: 49 54 45 5f 49 4e 44 45 58 5f 43 4f 4e 53 54 52  ITE_INDEX_CONSTR
2570: 41 49 4e 54 5f 52 45 47 45 58 50 20 26 26 20 70  AINT_REGEXP && p
2580: 43 6f 6e 73 2d 3e 69 43 6f 6c 75 6d 6e 3d 3d 32  Cons->iColumn==2
2590: 20 29 7b 0a 20 20 20 20 20 20 20 20 69 66 28 20   ){.        if( 
25a0: 30 3d 3d 74 63 6c 76 61 72 41 64 64 54 6f 49 64  0==tclvarAddToId
25b0: 78 73 74 72 28 7a 53 74 72 2c 20 54 43 4c 56 41  xstr(zStr, TCLVA
25c0: 52 5f 56 41 4c 55 45 5f 52 45 47 45 58 50 29 20  R_VALUE_REGEXP) 
25d0: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 70 55 73  ){.          pUs
25e0: 61 67 65 2d 3e 61 72 67 76 49 6e 64 65 78 20 3d  age->argvIndex =
25f0: 20 2b 2b 69 53 74 72 3b 0a 20 20 20 20 20 20 20   ++iStr;.       
2600: 20 20 20 70 55 73 61 67 65 2d 3e 6f 6d 69 74 20     pUsage->omit 
2610: 3d 20 74 63 6c 76 61 72 53 65 74 4f 6d 69 74 28  = tclvarSetOmit(
2620: 70 54 61 62 2d 3e 69 6e 74 65 72 70 29 3b 0a 20  pTab->interp);. 
2630: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7d         }.      }
2640: 0a 0a 20 20 20 20 20 20 2f 2a 20 76 61 6c 75 65  ..      /* value
2650: 20 4c 49 4b 45 20 3f 20 2a 2f 0a 20 20 20 20 20   LIKE ? */.     
2660: 20 69 66 28 20 70 43 6f 6e 73 2d 3e 6f 70 3d 3d   if( pCons->op==
2670: 53 51 4c 49 54 45 5f 49 4e 44 45 58 5f 43 4f 4e  SQLITE_INDEX_CON
2680: 53 54 52 41 49 4e 54 5f 4c 49 4b 45 20 26 26 20  STRAINT_LIKE && 
2690: 70 43 6f 6e 73 2d 3e 69 43 6f 6c 75 6d 6e 3d 3d  pCons->iColumn==
26a0: 32 20 29 7b 0a 20 20 20 20 20 20 20 20 69 66 28  2 ){.        if(
26b0: 20 30 3d 3d 74 63 6c 76 61 72 41 64 64 54 6f 49   0==tclvarAddToI
26c0: 64 78 73 74 72 28 7a 53 74 72 2c 20 54 43 4c 56  dxstr(zStr, TCLV
26d0: 41 52 5f 56 41 4c 55 45 5f 4c 49 4b 45 29 20 29  AR_VALUE_LIKE) )
26e0: 7b 0a 20 20 20 20 20 20 20 20 20 20 70 55 73 61  {.          pUsa
26f0: 67 65 2d 3e 61 72 67 76 49 6e 64 65 78 20 3d 20  ge->argvIndex = 
2700: 2b 2b 69 53 74 72 3b 0a 20 20 20 20 20 20 20 20  ++iStr;.        
2710: 20 20 70 55 73 61 67 65 2d 3e 6f 6d 69 74 20 3d    pUsage->omit =
2720: 20 74 63 6c 76 61 72 53 65 74 4f 6d 69 74 28 70   tclvarSetOmit(p
2730: 54 61 62 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20  Tab->interp);.  
2740: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a        }.      }.
2750: 20 20 20 20 7d 0a 20 20 7d 0a 20 20 70 49 64 78      }.  }.  pIdx
2760: 49 6e 66 6f 2d 3e 69 64 78 53 74 72 20 3d 20 7a  Info->idxStr = z
2770: 53 74 72 3b 0a 20 20 70 49 64 78 49 6e 66 6f 2d  Str;.  pIdxInfo-
2780: 3e 6e 65 65 64 54 6f 46 72 65 65 49 64 78 53 74  >needToFreeIdxSt
2790: 72 20 3d 20 31 3b 0a 0a 20 20 72 65 74 75 72 6e  r = 1;..  return
27a0: 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a 2f   SQLITE_OK;.}../
27b0: 2a 0a 2a 2a 20 41 20 76 69 72 74 75 61 6c 20 74  *.** A virtual t
27c0: 61 62 6c 65 20 6d 6f 64 75 6c 65 20 74 68 61 74  able module that
27d0: 20 70 72 6f 76 69 64 65 73 20 72 65 61 64 2d 6f   provides read-o
27e0: 6e 6c 79 20 61 63 63 65 73 73 20 74 6f 20 61 0a  nly access to a.
27f0: 2a 2a 20 54 63 6c 20 67 6c 6f 62 61 6c 20 76 61  ** Tcl global va
2800: 72 69 61 62 6c 65 20 6e 61 6d 65 73 70 61 63 65  riable namespace
2810: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 73 71 6c 69  ..*/.static sqli
2820: 74 65 33 5f 6d 6f 64 75 6c 65 20 74 63 6c 76 61  te3_module tclva
2830: 72 4d 6f 64 75 6c 65 20 3d 20 7b 0a 20 20 30 2c  rModule = {.  0,
2840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2850: 20 20 20 20 20 20 20 20 20 2f 2a 20 69 56 65 72           /* iVer
2860: 73 69 6f 6e 20 2a 2f 0a 20 20 74 63 6c 76 61 72  sion */.  tclvar
2870: 43 6f 6e 6e 65 63 74 2c 0a 20 20 74 63 6c 76 61  Connect,.  tclva
2880: 72 43 6f 6e 6e 65 63 74 2c 0a 20 20 74 63 6c 76  rConnect,.  tclv
2890: 61 72 42 65 73 74 49 6e 64 65 78 2c 0a 20 20 74  arBestIndex,.  t
28a0: 63 6c 76 61 72 44 69 73 63 6f 6e 6e 65 63 74 2c  clvarDisconnect,
28b0: 20 0a 20 20 74 63 6c 76 61 72 44 69 73 63 6f 6e   .  tclvarDiscon
28c0: 6e 65 63 74 2c 0a 20 20 74 63 6c 76 61 72 4f 70  nect,.  tclvarOp
28d0: 65 6e 2c 20 20 20 20 20 20 20 20 20 20 20 20 20  en,             
28e0: 20 20 20 20 20 2f 2a 20 78 4f 70 65 6e 20 2d 20       /* xOpen - 
28f0: 6f 70 65 6e 20 61 20 63 75 72 73 6f 72 20 2a 2f  open a cursor */
2900: 0a 20 20 74 63 6c 76 61 72 43 6c 6f 73 65 2c 20  .  tclvarClose, 
2910: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2920: 2f 2a 20 78 43 6c 6f 73 65 20 2d 20 63 6c 6f 73  /* xClose - clos
2930: 65 20 61 20 63 75 72 73 6f 72 20 2a 2f 0a 20 20  e a cursor */.  
2940: 74 63 6c 76 61 72 46 69 6c 74 65 72 2c 20 20 20  tclvarFilter,   
2950: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
2960: 78 46 69 6c 74 65 72 20 2d 20 63 6f 6e 66 69 67  xFilter - config
2970: 75 72 65 20 73 63 61 6e 20 63 6f 6e 73 74 72 61  ure scan constra
2980: 69 6e 74 73 20 2a 2f 0a 20 20 74 63 6c 76 61 72  ints */.  tclvar
2990: 4e 65 78 74 2c 20 20 20 20 20 20 20 20 20 20 20  Next,           
29a0: 20 20 20 20 20 20 20 2f 2a 20 78 4e 65 78 74 20         /* xNext 
29b0: 2d 20 61 64 76 61 6e 63 65 20 61 20 63 75 72 73  - advance a curs
29c0: 6f 72 20 2a 2f 0a 20 20 74 63 6c 76 61 72 45 6f  or */.  tclvarEo
29d0: 66 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  f,              
29e0: 20 20 20 20 20 2f 2a 20 78 45 6f 66 20 2d 20 63       /* xEof - c
29f0: 68 65 63 6b 20 66 6f 72 20 65 6e 64 20 6f 66 20  heck for end of 
2a00: 73 63 61 6e 20 2a 2f 0a 20 20 74 63 6c 76 61 72  scan */.  tclvar
2a10: 43 6f 6c 75 6d 6e 2c 20 20 20 20 20 20 20 20 20  Column,         
2a20: 20 20 20 20 20 20 20 2f 2a 20 78 43 6f 6c 75 6d         /* xColum
2a30: 6e 20 2d 20 72 65 61 64 20 64 61 74 61 20 2a 2f  n - read data */
2a40: 0a 20 20 74 63 6c 76 61 72 52 6f 77 69 64 2c 20  .  tclvarRowid, 
2a50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2a60: 2f 2a 20 78 52 6f 77 69 64 20 2d 20 72 65 61 64  /* xRowid - read
2a70: 20 64 61 74 61 20 2a 2f 0a 20 20 30 2c 20 20 20   data */.  0,   
2a80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2a90: 20 20 20 20 20 20 20 20 2f 2a 20 78 55 70 64 61          /* xUpda
2aa0: 74 65 20 2a 2f 0a 20 20 30 2c 20 20 20 20 20 20  te */.  0,      
2ab0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2ac0: 20 20 20 20 20 2f 2a 20 78 42 65 67 69 6e 20 2a       /* xBegin *
2ad0: 2f 0a 20 20 30 2c 20 20 20 20 20 20 20 20 20 20  /.  0,          
2ae0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2af0: 20 2f 2a 20 78 53 79 6e 63 20 2a 2f 0a 20 20 30   /* xSync */.  0
2b00: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ,               
2b10: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78              /* x
2b20: 43 6f 6d 6d 69 74 20 2a 2f 0a 20 20 30 2c 20 20  Commit */.  0,  
2b30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2b40: 20 20 20 20 20 20 20 20 20 2f 2a 20 78 52 6f 6c           /* xRol
2b50: 6c 62 61 63 6b 20 2a 2f 0a 20 20 30 2c 20 20 20  lback */.  0,   
2b60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2b70: 20 20 20 20 20 20 20 20 2f 2a 20 78 46 69 6e 64          /* xFind
2b80: 4d 65 74 68 6f 64 20 2a 2f 0a 20 20 30 2c 20 20  Method */.  0,  
2b90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2ba0: 20 20 20 20 20 20 20 20 20 2f 2a 20 78 52 65 6e           /* xRen
2bb0: 61 6d 65 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 0a 2a 2a  ame */.};../*.**
2bc0: 20 44 65 63 6f 64 65 20 61 20 70 6f 69 6e 74 65   Decode a pointe
2bd0: 72 20 74 6f 20 61 6e 20 73 71 6c 69 74 65 33 20  r to an sqlite3 
2be0: 6f 62 6a 65 63 74 2e 0a 2a 2f 0a 65 78 74 65 72  object..*/.exter
2bf0: 6e 20 69 6e 74 20 67 65 74 44 62 50 6f 69 6e 74  n int getDbPoint
2c00: 65 72 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69  er(Tcl_Interp *i
2c10: 6e 74 65 72 70 2c 20 63 6f 6e 73 74 20 63 68 61  nterp, const cha
2c20: 72 20 2a 7a 41 2c 20 73 71 6c 69 74 65 33 20 2a  r *zA, sqlite3 *
2c30: 2a 70 70 44 62 29 3b 0a 0a 2f 2a 0a 2a 2a 20 52  *ppDb);../*.** R
2c40: 65 67 69 73 74 65 72 20 74 68 65 20 65 63 68 6f  egister the echo
2c50: 20 76 69 72 74 75 61 6c 20 74 61 62 6c 65 20 6d   virtual table m
2c60: 6f 64 75 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63  odule..*/.static
2c70: 20 69 6e 74 20 72 65 67 69 73 74 65 72 5f 74 63   int register_tc
2c80: 6c 76 61 72 5f 6d 6f 64 75 6c 65 28 0a 20 20 43  lvar_module(.  C
2c90: 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74  lientData client
2ca0: 44 61 74 61 2c 20 2f 2a 20 50 6f 69 6e 74 65 72  Data, /* Pointer
2cb0: 20 74 6f 20 73 71 6c 69 74 65 33 5f 65 6e 61 62   to sqlite3_enab
2cc0: 6c 65 5f 58 58 58 20 66 75 6e 63 74 69 6f 6e 20  le_XXX function 
2cd0: 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20  */.  Tcl_Interp 
2ce0: 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20 54  *interp,    /* T
2cf0: 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74  he TCL interpret
2d00: 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64 20  er that invoked 
2d10: 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a  this command */.
2d20: 20 20 69 6e 74 20 6f 62 6a 63 2c 20 20 20 20 20    int objc,     
2d30: 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62           /* Numb
2d40: 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20  er of arguments 
2d50: 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f  */.  Tcl_Obj *CO
2d60: 4e 53 54 20 6f 62 6a 76 5b 5d 20 20 2f 2a 20 43  NST objv[]  /* C
2d70: 6f 6d 6d 61 6e 64 20 61 72 67 75 6d 65 6e 74 73  ommand arguments
2d80: 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20 72 63 20   */.){.  int rc 
2d90: 3d 20 54 43 4c 5f 4f 4b 3b 0a 20 20 73 71 6c 69  = TCL_OK;.  sqli
2da0: 74 65 33 20 2a 64 62 3b 0a 20 20 69 66 28 20 6f  te3 *db;.  if( o
2db0: 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63  bjc!=2 ){.    Tc
2dc0: 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69  l_WrongNumArgs(i
2dd0: 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20  nterp, 1, objv, 
2de0: 22 44 42 22 29 3b 0a 20 20 20 20 72 65 74 75 72  "DB");.    retur
2df0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d  n TCL_ERROR;.  }
2e00: 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e  .  if( getDbPoin
2e10: 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f  ter(interp, Tcl_
2e20: 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31  GetString(objv[1
2e30: 5d 29 2c 20 26 64 62 29 20 29 20 72 65 74 75 72  ]), &db) ) retur
2e40: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 23 69 66  n TCL_ERROR;.#if
2e50: 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54  ndef SQLITE_OMIT
2e60: 5f 56 49 52 54 55 41 4c 54 41 42 4c 45 0a 20 20  _VIRTUALTABLE.  
2e70: 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 6d  sqlite3_create_m
2e80: 6f 64 75 6c 65 28 64 62 2c 20 22 74 63 6c 76 61  odule(db, "tclva
2e90: 72 22 2c 20 26 74 63 6c 76 61 72 4d 6f 64 75 6c  r", &tclvarModul
2ea0: 65 2c 20 28 76 6f 69 64 2a 29 69 6e 74 65 72 70  e, (void*)interp
2eb0: 29 3b 0a 20 20 72 63 20 3d 20 54 63 6c 5f 45 76  );.  rc = Tcl_Ev
2ec0: 61 6c 28 69 6e 74 65 72 70 2c 20 0a 20 20 20 20  al(interp, .    
2ed0: 20 20 22 70 72 6f 63 20 6c 69 6b 65 20 7b 70 61    "proc like {pa
2ee0: 74 74 65 72 6e 20 73 74 72 7d 20 7b 5c 6e 22 0a  ttern str} {\n".
2ef0: 20 20 20 20 20 20 22 20 20 73 65 74 20 70 20 5b        "  set p [
2f00: 73 74 72 69 6e 67 20 6d 61 70 20 7b 25 20 2a 20  string map {% * 
2f10: 5f 20 3f 7d 20 24 70 61 74 74 65 72 6e 5d 5c 6e  _ ?} $pattern]\n
2f20: 22 0a 20 20 20 20 20 20 22 20 20 73 74 72 69 6e  ".      "  strin
2f30: 67 20 6d 61 74 63 68 20 24 70 20 24 73 74 72 5c  g match $p $str\
2f40: 6e 22 0a 20 20 20 20 20 20 22 7d 5c 6e 22 0a 20  n".      "}\n". 
2f50: 20 20 20 20 20 22 70 72 6f 63 20 74 63 6c 76 61       "proc tclva
2f60: 72 5f 66 69 6c 74 65 72 5f 63 6d 64 20 7b 65 71  r_filter_cmd {eq
2f70: 20 6d 61 74 63 68 20 67 6c 6f 62 20 72 65 67 65   match glob rege
2f80: 78 70 20 6c 69 6b 65 7d 20 7b 5c 6e 22 0a 20 20  xp like} {\n".  
2f90: 20 20 20 20 22 20 20 73 65 74 20 72 65 73 20 7b      "  set res {
2fa0: 7d 5c 6e 22 0a 20 20 20 20 20 20 22 20 20 73 65  }\n".      "  se
2fb0: 74 20 70 61 74 74 65 72 6e 20 24 65 71 5c 6e 22  t pattern $eq\n"
2fc0: 0a 20 20 20 20 20 20 22 20 20 69 66 20 7b 24 70  .      "  if {$p
2fd0: 61 74 74 65 72 6e 3d 3d 7b 7d 7d 20 7b 20 73 65  attern=={}} { se
2fe0: 74 20 70 61 74 74 65 72 6e 20 24 6d 61 74 63 68  t pattern $match
2ff0: 20 7d 5c 6e 22 0a 20 20 20 20 20 20 22 20 20 69   }\n".      "  i
3000: 66 20 7b 24 70 61 74 74 65 72 6e 3d 3d 7b 7d 7d  f {$pattern=={}}
3010: 20 7b 20 73 65 74 20 70 61 74 74 65 72 6e 20 2a   { set pattern *
3020: 20 7d 5c 6e 22 0a 20 20 20 20 20 20 22 20 20 66   }\n".      "  f
3030: 6f 72 65 61 63 68 20 76 20 5b 75 70 6c 65 76 65  oreach v [upleve
3040: 6c 20 23 30 20 69 6e 66 6f 20 76 61 72 73 20 24  l #0 info vars $
3050: 70 61 74 74 65 72 6e 5d 20 7b 5c 6e 22 0a 20 20  pattern] {\n".  
3060: 20 20 20 20 22 20 20 20 20 69 66 20 7b 28 24 67      "    if {($g
3070: 6c 6f 62 3d 3d 7b 7d 20 7c 7c 20 5b 73 74 72 69  lob=={} || [stri
3080: 6e 67 20 6d 61 74 63 68 20 24 67 6c 6f 62 20 5b  ng match $glob [
3090: 75 70 6c 65 76 65 6c 20 23 30 20 73 65 74 20 24  uplevel #0 set $
30a0: 76 5d 5d 29 5c 6e 22 0a 20 20 20 20 20 20 22 20  v]])\n".      " 
30b0: 20 20 20 20 26 26 20 28 24 6c 69 6b 65 3d 3d 7b      && ($like=={
30c0: 7d 20 7c 7c 20 5b 6c 69 6b 65 20 24 6c 69 6b 65  } || [like $like
30d0: 20 5b 75 70 6c 65 76 65 6c 20 23 30 20 73 65 74   [uplevel #0 set
30e0: 20 24 76 5d 5d 29 5c 6e 22 0a 20 20 20 20 20 20   $v]])\n".      
30f0: 22 20 20 20 20 20 26 26 20 28 24 72 65 67 65 78  "     && ($regex
3100: 70 3d 3d 7b 7d 20 7c 7c 20 5b 72 65 67 65 78 70  p=={} || [regexp
3110: 20 24 72 65 67 65 78 70 20 5b 75 70 6c 65 76 65   $regexp [upleve
3120: 6c 20 23 30 20 73 65 74 20 24 76 5d 5d 29 5c 6e  l #0 set $v]])\n
3130: 22 0a 20 20 20 20 20 20 22 20 20 20 20 7d 20 7b  ".      "    } {
3140: 5c 6e 22 0a 20 20 20 20 20 20 22 20 20 20 20 20  \n".      "     
3150: 20 6c 61 70 70 65 6e 64 20 72 65 73 20 24 76 5c   lappend res $v\
3160: 6e 22 0a 20 20 20 20 20 20 22 20 20 20 20 7d 5c  n".      "    }\
3170: 6e 22 0a 20 20 20 20 20 20 22 20 20 7d 5c 6e 22  n".      "  }\n"
3180: 0a 20 20 20 20 20 20 22 20 20 73 65 74 20 72 65  .      "  set re
3190: 73 5c 6e 22 0a 20 20 20 20 20 20 22 7d 5c 6e 22  s\n".      "}\n"
31a0: 0a 20 20 29 3b 0a 23 65 6e 64 69 66 0a 20 20 72  .  );.#endif.  r
31b0: 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 23 65 6e  eturn rc;.}..#en
31c0: 64 69 66 0a 0a 0a 2f 2a 0a 2a 2a 20 52 65 67 69  dif.../*.** Regi
31d0: 73 74 65 72 20 63 6f 6d 6d 61 6e 64 73 20 77 69  ster commands wi
31e0: 74 68 20 74 68 65 20 54 43 4c 20 69 6e 74 65 72  th the TCL inter
31f0: 70 72 65 74 65 72 2e 0a 2a 2f 0a 69 6e 74 20 53  preter..*/.int S
3200: 71 6c 69 74 65 74 65 73 74 74 63 6c 76 61 72 5f  qlitetesttclvar_
3210: 49 6e 69 74 28 54 63 6c 5f 49 6e 74 65 72 70 20  Init(Tcl_Interp 
3220: 2a 69 6e 74 65 72 70 29 7b 0a 23 69 66 6e 64 65  *interp){.#ifnde
3230: 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 56 49  f SQLITE_OMIT_VI
3240: 52 54 55 41 4c 54 41 42 4c 45 0a 20 20 73 74 61  RTUALTABLE.  sta
3250: 74 69 63 20 73 74 72 75 63 74 20 7b 0a 20 20 20  tic struct {.   
3260: 20 20 63 68 61 72 20 2a 7a 4e 61 6d 65 3b 0a 20    char *zName;. 
3270: 20 20 20 20 54 63 6c 5f 4f 62 6a 43 6d 64 50 72      Tcl_ObjCmdPr
3280: 6f 63 20 2a 78 50 72 6f 63 3b 0a 20 20 20 20 20  oc *xProc;.     
3290: 76 6f 69 64 20 2a 63 6c 69 65 6e 74 44 61 74 61  void *clientData
32a0: 3b 0a 20 20 7d 20 61 4f 62 6a 43 6d 64 5b 5d 20  ;.  } aObjCmd[] 
32b0: 3d 20 7b 0a 20 20 20 20 20 7b 20 22 72 65 67 69  = {.     { "regi
32c0: 73 74 65 72 5f 74 63 6c 76 61 72 5f 6d 6f 64 75  ster_tclvar_modu
32d0: 6c 65 22 2c 20 20 20 72 65 67 69 73 74 65 72 5f  le",   register_
32e0: 74 63 6c 76 61 72 5f 6d 6f 64 75 6c 65 2c 20 30  tclvar_module, 0
32f0: 20 7d 2c 0a 20 20 7d 3b 0a 20 20 69 6e 74 20 69   },.  };.  int i
3300: 3b 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 73  ;.  for(i=0; i<s
3310: 69 7a 65 6f 66 28 61 4f 62 6a 43 6d 64 29 2f 73  izeof(aObjCmd)/s
3320: 69 7a 65 6f 66 28 61 4f 62 6a 43 6d 64 5b 30 5d  izeof(aObjCmd[0]
3330: 29 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 54 63 6c  ); i++){.    Tcl
3340: 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e  _CreateObjComman
3350: 64 28 69 6e 74 65 72 70 2c 20 61 4f 62 6a 43 6d  d(interp, aObjCm
3360: 64 5b 69 5d 2e 7a 4e 61 6d 65 2c 20 0a 20 20 20  d[i].zName, .   
3370: 20 20 20 20 20 61 4f 62 6a 43 6d 64 5b 69 5d 2e       aObjCmd[i].
3380: 78 50 72 6f 63 2c 20 61 4f 62 6a 43 6d 64 5b 69  xProc, aObjCmd[i
3390: 5d 2e 63 6c 69 65 6e 74 44 61 74 61 2c 20 30 29  ].clientData, 0)
33a0: 3b 0a 20 20 7d 0a 23 65 6e 64 69 66 0a 20 20 72  ;.  }.#endif.  r
33b0: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a  eturn TCL_OK;.}.