/ Hex Artifact Content
Login

Artifact 315e77c17f128ff8c06b38c08617fd07c825a95b:


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 2a 0a 2a 2a 20 24 49 64 3a 20 74 65 73  ..**.** $Id: tes
0280: 74 5f 74 63 6c 76 61 72 2e 63 2c 76 20 31 2e 31  t_tclvar.c,v 1.1
0290: 30 20 32 30 30 36 2f 30 39 2f 31 31 20 30 30 3a  0 2006/09/11 00:
02a0: 33 34 3a 32 32 20 64 72 68 20 45 78 70 20 24 0a  34:22 drh Exp $.
02b0: 2a 2f 0a 23 69 6e 63 6c 75 64 65 20 22 73 71 6c  */.#include "sql
02c0: 69 74 65 49 6e 74 2e 68 22 0a 23 69 6e 63 6c 75  iteInt.h".#inclu
02d0: 64 65 20 22 74 63 6c 2e 68 22 0a 23 69 6e 63 6c  de "tcl.h".#incl
02e0: 75 64 65 20 22 6f 73 2e 68 22 0a 23 69 6e 63 6c  ude "os.h".#incl
02f0: 75 64 65 20 3c 73 74 64 6c 69 62 2e 68 3e 0a 23  ude <stdlib.h>.#
0300: 69 6e 63 6c 75 64 65 20 3c 73 74 72 69 6e 67 2e  include <string.
0310: 68 3e 0a 0a 23 69 66 6e 64 65 66 20 53 51 4c 49  h>..#ifndef SQLI
0320: 54 45 5f 4f 4d 49 54 5f 56 49 52 54 55 41 4c 54  TE_OMIT_VIRTUALT
0330: 41 42 4c 45 0a 0a 74 79 70 65 64 65 66 20 73 74  ABLE..typedef st
0340: 72 75 63 74 20 74 63 6c 76 61 72 5f 76 74 61 62  ruct tclvar_vtab
0350: 20 74 63 6c 76 61 72 5f 76 74 61 62 3b 0a 74 79   tclvar_vtab;.ty
0360: 70 65 64 65 66 20 73 74 72 75 63 74 20 74 63 6c  pedef struct tcl
0370: 76 61 72 5f 63 75 72 73 6f 72 20 74 63 6c 76 61  var_cursor tclva
0380: 72 5f 63 75 72 73 6f 72 3b 0a 0a 2f 2a 20 0a 2a  r_cursor;../* .*
0390: 2a 20 41 20 74 63 6c 76 61 72 20 76 69 72 74 75  * A tclvar virtu
03a0: 61 6c 2d 74 61 62 6c 65 20 6f 62 6a 65 63 74 20  al-table object 
03b0: 0a 2a 2f 0a 73 74 72 75 63 74 20 74 63 6c 76 61  .*/.struct tclva
03c0: 72 5f 76 74 61 62 20 7b 0a 20 20 73 71 6c 69 74  r_vtab {.  sqlit
03d0: 65 33 5f 76 74 61 62 20 62 61 73 65 3b 0a 20 20  e3_vtab base;.  
03e0: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65  Tcl_Interp *inte
03f0: 72 70 3b 0a 7d 3b 0a 0a 2f 2a 20 41 20 74 63 6c  rp;.};../* A tcl
0400: 76 61 72 20 63 75 72 73 6f 72 20 6f 62 6a 65 63  var cursor objec
0410: 74 20 2a 2f 0a 73 74 72 75 63 74 20 74 63 6c 76  t */.struct tclv
0420: 61 72 5f 63 75 72 73 6f 72 20 7b 0a 20 20 73 71  ar_cursor {.  sq
0430: 6c 69 74 65 33 5f 76 74 61 62 5f 63 75 72 73 6f  lite3_vtab_curso
0440: 72 20 62 61 73 65 3b 0a 0a 20 20 54 63 6c 5f 4f  r base;..  Tcl_O
0450: 62 6a 20 2a 70 4c 69 73 74 31 3b 20 20 20 20 20  bj *pList1;     
0460: 2f 2a 20 52 65 73 75 6c 74 20 6f 66 20 5b 69 6e  /* Result of [in
0470: 66 6f 20 76 61 72 73 20 3f 70 61 74 74 65 72 6e  fo vars ?pattern
0480: 3f 5d 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20  ?] */.  Tcl_Obj 
0490: 2a 70 4c 69 73 74 32 3b 20 20 20 20 20 2f 2a 20  *pList2;     /* 
04a0: 52 65 73 75 6c 74 20 6f 66 20 5b 61 72 72 61 79  Result of [array
04b0: 20 6e 61 6d 65 73 20 5b 6c 69 6e 64 65 78 20 24   names [lindex $
04c0: 70 4c 69 73 74 31 20 24 69 31 5d 5d 20 2a 2f 0a  pList1 $i1]] */.
04d0: 20 20 69 6e 74 20 69 31 3b 20 20 20 20 20 20 20    int i1;       
04e0: 20 20 20 20 20 20 20 2f 2a 20 43 75 72 72 65 6e         /* Curren
04f0: 74 20 69 74 65 6d 20 69 6e 20 70 4c 69 73 74 31  t item in pList1
0500: 20 2a 2f 0a 20 20 69 6e 74 20 69 32 3b 20 20 20   */.  int i2;   
0510: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 43 75             /* Cu
0520: 72 72 65 6e 74 20 69 74 65 6d 20 28 69 66 20 61  rrent item (if a
0530: 6e 79 29 20 69 6e 20 70 4c 69 73 74 32 20 2a 2f  ny) in pList2 */
0540: 0a 7d 3b 0a 0a 2f 2a 20 4d 65 74 68 6f 64 73 20  .};../* Methods 
0550: 66 6f 72 20 74 68 65 20 74 63 6c 76 61 72 20 6d  for the tclvar m
0560: 6f 64 75 6c 65 20 2a 2f 0a 73 74 61 74 69 63 20  odule */.static 
0570: 69 6e 74 20 74 63 6c 76 61 72 43 6f 6e 6e 65 63  int tclvarConnec
0580: 74 28 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62  t(.  sqlite3 *db
0590: 2c 0a 20 20 76 6f 69 64 20 2a 70 41 75 78 2c 0a  ,.  void *pAux,.
05a0: 20 20 69 6e 74 20 61 72 67 63 2c 20 63 6f 6e 73    int argc, cons
05b0: 74 20 63 68 61 72 20 2a 63 6f 6e 73 74 2a 61 72  t char *const*ar
05c0: 67 76 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 74  gv,.  sqlite3_vt
05d0: 61 62 20 2a 2a 70 70 56 74 61 62 2c 0a 20 20 63  ab **ppVtab,.  c
05e0: 68 61 72 20 2a 2a 70 7a 45 72 72 0a 29 7b 0a 20  har **pzErr.){. 
05f0: 20 74 63 6c 76 61 72 5f 76 74 61 62 20 2a 70 56   tclvar_vtab *pV
0600: 74 61 62 3b 0a 20 20 73 74 61 74 69 63 20 63 6f  tab;.  static co
0610: 6e 73 74 20 63 68 61 72 20 7a 53 63 68 65 6d 61  nst char zSchema
0620: 5b 5d 20 3d 20 0a 20 20 20 20 20 22 43 52 45 41  [] = .     "CREA
0630: 54 45 20 54 41 42 4c 45 20 77 68 61 74 65 76 65  TE TABLE whateve
0640: 72 28 6e 61 6d 65 20 54 45 58 54 2c 20 61 72 72  r(name TEXT, arr
0650: 61 79 6e 61 6d 65 20 54 45 58 54 2c 20 76 61 6c  ayname TEXT, val
0660: 75 65 20 54 45 58 54 29 22 3b 0a 20 20 70 56 74  ue TEXT)";.  pVt
0670: 61 62 20 3d 20 73 71 6c 69 74 65 4d 61 6c 6c 6f  ab = sqliteMallo
0680: 63 28 20 73 69 7a 65 6f 66 28 2a 70 56 74 61 62  c( sizeof(*pVtab
0690: 29 20 29 3b 0a 20 20 69 66 28 20 70 56 74 61 62  ) );.  if( pVtab
06a0: 3d 3d 30 20 29 20 72 65 74 75 72 6e 20 53 51 4c  ==0 ) return SQL
06b0: 49 54 45 5f 4e 4f 4d 45 4d 3b 0a 20 20 2a 70 70  ITE_NOMEM;.  *pp
06c0: 56 74 61 62 20 3d 20 26 70 56 74 61 62 2d 3e 62  Vtab = &pVtab->b
06d0: 61 73 65 3b 0a 20 20 70 56 74 61 62 2d 3e 69 6e  ase;.  pVtab->in
06e0: 74 65 72 70 20 3d 20 28 54 63 6c 5f 49 6e 74 65  terp = (Tcl_Inte
06f0: 72 70 20 2a 29 70 41 75 78 3b 0a 20 20 73 71 6c  rp *)pAux;.  sql
0700: 69 74 65 33 5f 64 65 63 6c 61 72 65 5f 76 74 61  ite3_declare_vta
0710: 62 28 64 62 2c 20 7a 53 63 68 65 6d 61 29 3b 0a  b(db, zSchema);.
0720: 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f    return SQLITE_
0730: 4f 4b 3b 0a 7d 0a 2f 2a 20 4e 6f 74 65 20 74 68  OK;.}./* Note th
0740: 61 74 20 66 6f 72 20 74 68 69 73 20 76 69 72 74  at for this virt
0750: 75 61 6c 20 74 61 62 6c 65 2c 20 74 68 65 20 78  ual table, the x
0760: 43 72 65 61 74 65 20 61 6e 64 20 78 43 6f 6e 6e  Create and xConn
0770: 65 63 74 0a 2a 2a 20 6d 65 74 68 6f 64 73 20 61  ect.** methods a
0780: 72 65 20 69 64 65 6e 74 69 63 61 6c 2e 20 2a 2f  re identical. */
0790: 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 74 63 6c  ..static int tcl
07a0: 76 61 72 44 69 73 63 6f 6e 6e 65 63 74 28 73 71  varDisconnect(sq
07b0: 6c 69 74 65 33 5f 76 74 61 62 20 2a 70 56 74 61  lite3_vtab *pVta
07c0: 62 29 7b 0a 20 20 73 71 6c 69 74 65 46 72 65 65  b){.  sqliteFree
07d0: 28 70 56 74 61 62 29 3b 0a 20 20 72 65 74 75 72  (pVtab);.  retur
07e0: 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a 2f  n SQLITE_OK;.}./
07f0: 2a 20 54 68 65 20 78 44 69 73 63 6f 6e 6e 65 63  * The xDisconnec
0800: 74 20 61 6e 64 20 78 44 65 73 74 72 6f 79 20 6d  t and xDestroy m
0810: 65 74 68 6f 64 73 20 61 72 65 20 61 6c 73 6f 20  ethods are also 
0820: 74 68 65 20 73 61 6d 65 20 2a 2f 0a 0a 2f 2a 0a  the same */../*.
0830: 2a 2a 20 4f 70 65 6e 20 61 20 6e 65 77 20 74 63  ** Open a new tc
0840: 6c 76 61 72 20 63 75 72 73 6f 72 2e 0a 2a 2f 0a  lvar cursor..*/.
0850: 73 74 61 74 69 63 20 69 6e 74 20 74 63 6c 76 61  static int tclva
0860: 72 4f 70 65 6e 28 73 71 6c 69 74 65 33 5f 76 74  rOpen(sqlite3_vt
0870: 61 62 20 2a 70 56 54 61 62 2c 20 73 71 6c 69 74  ab *pVTab, sqlit
0880: 65 33 5f 76 74 61 62 5f 63 75 72 73 6f 72 20 2a  e3_vtab_cursor *
0890: 2a 70 70 43 75 72 73 6f 72 29 7b 0a 20 20 74 63  *ppCursor){.  tc
08a0: 6c 76 61 72 5f 63 75 72 73 6f 72 20 2a 70 43 75  lvar_cursor *pCu
08b0: 72 3b 0a 20 20 70 43 75 72 20 3d 20 73 71 6c 69  r;.  pCur = sqli
08c0: 74 65 4d 61 6c 6c 6f 63 28 73 69 7a 65 6f 66 28  teMalloc(sizeof(
08d0: 74 63 6c 76 61 72 5f 63 75 72 73 6f 72 29 29 3b  tclvar_cursor));
08e0: 0a 20 20 2a 70 70 43 75 72 73 6f 72 20 3d 20 26  .  *ppCursor = &
08f0: 70 43 75 72 2d 3e 62 61 73 65 3b 0a 20 20 72 65  pCur->base;.  re
0900: 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a  turn SQLITE_OK;.
0910: 7d 0a 0a 2f 2a 0a 2a 2a 20 43 6c 6f 73 65 20 61  }../*.** Close a
0920: 20 74 63 6c 76 61 72 20 63 75 72 73 6f 72 2e 0a   tclvar cursor..
0930: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 63  */.static int tc
0940: 6c 76 61 72 43 6c 6f 73 65 28 73 71 6c 69 74 65  lvarClose(sqlite
0950: 33 5f 76 74 61 62 5f 63 75 72 73 6f 72 20 2a 63  3_vtab_cursor *c
0960: 75 72 29 7b 0a 20 20 74 63 6c 76 61 72 5f 63 75  ur){.  tclvar_cu
0970: 72 73 6f 72 20 2a 70 43 75 72 20 3d 20 28 74 63  rsor *pCur = (tc
0980: 6c 76 61 72 5f 63 75 72 73 6f 72 20 2a 29 63 75  lvar_cursor *)cu
0990: 72 3b 0a 20 20 69 66 28 20 70 43 75 72 2d 3e 70  r;.  if( pCur->p
09a0: 4c 69 73 74 31 20 29 7b 0a 20 20 20 20 54 63 6c  List1 ){.    Tcl
09b0: 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 70 43  _DecrRefCount(pC
09c0: 75 72 2d 3e 70 4c 69 73 74 31 29 3b 0a 20 20 7d  ur->pList1);.  }
09d0: 0a 20 20 69 66 28 20 70 43 75 72 2d 3e 70 4c 69  .  if( pCur->pLi
09e0: 73 74 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 44  st2 ){.    Tcl_D
09f0: 65 63 72 52 65 66 43 6f 75 6e 74 28 70 43 75 72  ecrRefCount(pCur
0a00: 2d 3e 70 4c 69 73 74 32 29 3b 0a 20 20 7d 0a 20  ->pList2);.  }. 
0a10: 20 73 71 6c 69 74 65 46 72 65 65 28 70 43 75 72   sqliteFree(pCur
0a20: 29 3b 0a 20 20 72 65 74 75 72 6e 20 53 51 4c 49  );.  return SQLI
0a30: 54 45 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  TE_OK;.}../*.** 
0a40: 52 65 74 75 72 6e 73 20 31 20 69 66 20 64 61 74  Returns 1 if dat
0a50: 61 20 69 73 20 72 65 61 64 79 2c 20 6f 72 20 30  a is ready, or 0
0a60: 20 69 66 20 6e 6f 74 2e 0a 2a 2f 0a 73 74 61 74   if not..*/.stat
0a70: 69 63 20 69 6e 74 20 6e 65 78 74 32 28 54 63 6c  ic int next2(Tcl
0a80: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c  _Interp *interp,
0a90: 20 74 63 6c 76 61 72 5f 63 75 72 73 6f 72 20 2a   tclvar_cursor *
0aa0: 70 43 75 72 2c 20 54 63 6c 5f 4f 62 6a 20 2a 70  pCur, Tcl_Obj *p
0ab0: 4f 62 6a 29 7b 0a 20 20 54 63 6c 5f 4f 62 6a 20  Obj){.  Tcl_Obj 
0ac0: 2a 70 3b 0a 0a 20 20 69 66 28 20 70 4f 62 6a 20  *p;..  if( pObj 
0ad0: 29 7b 0a 20 20 20 20 69 66 28 20 21 70 43 75 72  ){.    if( !pCur
0ae0: 2d 3e 70 4c 69 73 74 32 20 29 7b 0a 20 20 20 20  ->pList2 ){.    
0af0: 20 20 70 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72    p = Tcl_NewStr
0b00: 69 6e 67 4f 62 6a 28 22 61 72 72 61 79 20 6e 61  ingObj("array na
0b10: 6d 65 73 22 2c 20 2d 31 29 3b 0a 20 20 20 20 20  mes", -1);.     
0b20: 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e   Tcl_IncrRefCoun
0b30: 74 28 70 29 3b 0a 20 20 20 20 20 20 54 63 6c 5f  t(p);.      Tcl_
0b40: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65  ListObjAppendEle
0b50: 6d 65 6e 74 28 30 2c 20 70 2c 20 70 4f 62 6a 29  ment(0, p, pObj)
0b60: 3b 0a 20 20 20 20 20 20 54 63 6c 5f 45 76 61 6c  ;.      Tcl_Eval
0b70: 4f 62 6a 45 78 28 69 6e 74 65 72 70 2c 20 70 2c  ObjEx(interp, p,
0b80: 20 54 43 4c 5f 45 56 41 4c 5f 47 4c 4f 42 41 4c   TCL_EVAL_GLOBAL
0b90: 29 3b 0a 20 20 20 20 20 20 54 63 6c 5f 44 65 63  );.      Tcl_Dec
0ba0: 72 52 65 66 43 6f 75 6e 74 28 70 29 3b 0a 20 20  rRefCount(p);.  
0bb0: 20 20 20 20 70 43 75 72 2d 3e 70 4c 69 73 74 32      pCur->pList2
0bc0: 20 3d 20 54 63 6c 5f 47 65 74 4f 62 6a 52 65 73   = Tcl_GetObjRes
0bd0: 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 20  ult(interp);.   
0be0: 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f     Tcl_IncrRefCo
0bf0: 75 6e 74 28 70 43 75 72 2d 3e 70 4c 69 73 74 32  unt(pCur->pList2
0c00: 29 3b 0a 20 20 20 20 20 20 61 73 73 65 72 74 28  );.      assert(
0c10: 20 70 43 75 72 2d 3e 69 32 3d 3d 30 20 29 3b 0a   pCur->i2==0 );.
0c20: 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20      }else{.     
0c30: 20 69 6e 74 20 6e 20 3d 20 30 3b 0a 20 20 20 20   int n = 0;.    
0c40: 20 20 70 43 75 72 2d 3e 69 32 2b 2b 3b 0a 20 20    pCur->i2++;.  
0c50: 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 4c      Tcl_ListObjL
0c60: 65 6e 67 74 68 28 30 2c 20 70 43 75 72 2d 3e 70  ength(0, pCur->p
0c70: 4c 69 73 74 32 2c 20 26 6e 29 3b 0a 20 20 20 20  List2, &n);.    
0c80: 20 20 69 66 28 20 70 43 75 72 2d 3e 69 32 3e 3d    if( pCur->i2>=
0c90: 6e 20 29 7b 0a 20 20 20 20 20 20 20 20 54 63 6c  n ){.        Tcl
0ca0: 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 70 43  _DecrRefCount(pC
0cb0: 75 72 2d 3e 70 4c 69 73 74 32 29 3b 0a 20 20 20  ur->pList2);.   
0cc0: 20 20 20 20 20 70 43 75 72 2d 3e 70 4c 69 73 74       pCur->pList
0cd0: 32 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 70  2 = 0;.        p
0ce0: 43 75 72 2d 3e 69 32 20 3d 20 30 3b 0a 20 20 20  Cur->i2 = 0;.   
0cf0: 20 20 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 20       return 0;. 
0d00: 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 7d       }.    }.  }
0d10: 0a 0a 20 20 72 65 74 75 72 6e 20 31 3b 0a 7d 0a  ..  return 1;.}.
0d20: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 63 6c 76  .static int tclv
0d30: 61 72 4e 65 78 74 28 73 71 6c 69 74 65 33 5f 76  arNext(sqlite3_v
0d40: 74 61 62 5f 63 75 72 73 6f 72 20 2a 63 75 72 29  tab_cursor *cur)
0d50: 7b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 4f 62  {.  Tcl_Obj *pOb
0d60: 6a 3b 0a 20 20 69 6e 74 20 6e 20 3d 20 30 3b 0a  j;.  int n = 0;.
0d70: 20 20 69 6e 74 20 6f 6b 20 3d 20 30 3b 0a 0a 20    int ok = 0;.. 
0d80: 20 74 63 6c 76 61 72 5f 63 75 72 73 6f 72 20 2a   tclvar_cursor *
0d90: 70 43 75 72 20 3d 20 28 74 63 6c 76 61 72 5f 63  pCur = (tclvar_c
0da0: 75 72 73 6f 72 20 2a 29 63 75 72 3b 0a 20 20 54  ursor *)cur;.  T
0db0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72  cl_Interp *inter
0dc0: 70 20 3d 20 28 28 74 63 6c 76 61 72 5f 76 74 61  p = ((tclvar_vta
0dd0: 62 20 2a 29 28 63 75 72 2d 3e 70 56 74 61 62 29  b *)(cur->pVtab)
0de0: 29 2d 3e 69 6e 74 65 72 70 3b 0a 0a 20 20 54 63  )->interp;..  Tc
0df0: 6c 5f 4c 69 73 74 4f 62 6a 4c 65 6e 67 74 68 28  l_ListObjLength(
0e00: 30 2c 20 70 43 75 72 2d 3e 70 4c 69 73 74 31 2c  0, pCur->pList1,
0e10: 20 26 6e 29 3b 0a 20 20 77 68 69 6c 65 28 20 21   &n);.  while( !
0e20: 6f 6b 20 26 26 20 70 43 75 72 2d 3e 69 31 3c 6e  ok && pCur->i1<n
0e30: 20 29 7b 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74   ){.    Tcl_List
0e40: 4f 62 6a 49 6e 64 65 78 28 30 2c 20 70 43 75 72  ObjIndex(0, pCur
0e50: 2d 3e 70 4c 69 73 74 31 2c 20 70 43 75 72 2d 3e  ->pList1, pCur->
0e60: 69 31 2c 20 26 70 4f 62 6a 29 3b 0a 20 20 20 20  i1, &pObj);.    
0e70: 6f 6b 20 3d 20 6e 65 78 74 32 28 69 6e 74 65 72  ok = next2(inter
0e80: 70 2c 20 70 43 75 72 2c 20 70 4f 62 6a 29 3b 0a  p, pCur, pObj);.
0e90: 20 20 20 20 69 66 28 20 21 6f 6b 20 29 7b 0a 20      if( !ok ){. 
0ea0: 20 20 20 20 20 70 43 75 72 2d 3e 69 31 2b 2b 3b       pCur->i1++;
0eb0: 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a 20 20 72 65  .    }.  }..  re
0ec0: 74 75 72 6e 20 30 3b 0a 7d 0a 0a 73 74 61 74 69  turn 0;.}..stati
0ed0: 63 20 69 6e 74 20 74 63 6c 76 61 72 46 69 6c 74  c int tclvarFilt
0ee0: 65 72 28 0a 20 20 73 71 6c 69 74 65 33 5f 76 74  er(.  sqlite3_vt
0ef0: 61 62 5f 63 75 72 73 6f 72 20 2a 70 56 74 61 62  ab_cursor *pVtab
0f00: 43 75 72 73 6f 72 2c 20 0a 20 20 69 6e 74 20 69  Cursor, .  int i
0f10: 64 78 4e 75 6d 2c 20 63 6f 6e 73 74 20 63 68 61  dxNum, const cha
0f20: 72 20 2a 69 64 78 53 74 72 2c 0a 20 20 69 6e 74  r *idxStr,.  int
0f30: 20 61 72 67 63 2c 20 73 71 6c 69 74 65 33 5f 76   argc, sqlite3_v
0f40: 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20  alue **argv.){. 
0f50: 20 74 63 6c 76 61 72 5f 63 75 72 73 6f 72 20 2a   tclvar_cursor *
0f60: 70 43 75 72 20 3d 20 28 74 63 6c 76 61 72 5f 63  pCur = (tclvar_c
0f70: 75 72 73 6f 72 20 2a 29 70 56 74 61 62 43 75 72  ursor *)pVtabCur
0f80: 73 6f 72 3b 0a 20 20 54 63 6c 5f 49 6e 74 65 72  sor;.  Tcl_Inter
0f90: 70 20 2a 69 6e 74 65 72 70 20 3d 20 28 28 74 63  p *interp = ((tc
0fa0: 6c 76 61 72 5f 76 74 61 62 20 2a 29 28 70 56 74  lvar_vtab *)(pVt
0fb0: 61 62 43 75 72 73 6f 72 2d 3e 70 56 74 61 62 29  abCursor->pVtab)
0fc0: 29 2d 3e 69 6e 74 65 72 70 3b 0a 0a 20 20 54 63  )->interp;..  Tc
0fd0: 6c 5f 4f 62 6a 20 2a 70 20 3d 20 54 63 6c 5f 4e  l_Obj *p = Tcl_N
0fe0: 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 69 6e 66  ewStringObj("inf
0ff0: 6f 20 76 61 72 73 22 2c 20 2d 31 29 3b 0a 20 20  o vars", -1);.  
1000: 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74  Tcl_IncrRefCount
1010: 28 70 29 3b 0a 0a 20 20 61 73 73 65 72 74 28 20  (p);..  assert( 
1020: 61 72 67 63 3d 3d 30 20 7c 7c 20 61 72 67 63 3d  argc==0 || argc=
1030: 3d 31 20 29 3b 0a 20 20 69 66 28 20 61 72 67 63  =1 );.  if( argc
1040: 3d 3d 31 20 29 7b 0a 20 20 20 20 54 63 6c 5f 4f  ==1 ){.    Tcl_O
1050: 62 6a 20 2a 70 41 72 67 20 3d 20 54 63 6c 5f 4e  bj *pArg = Tcl_N
1060: 65 77 53 74 72 69 6e 67 4f 62 6a 28 28 63 68 61  ewStringObj((cha
1070: 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c 75 65  r*)sqlite3_value
1080: 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29 2c 20  _text(argv[0]), 
1090: 2d 31 29 3b 0a 20 20 20 20 54 63 6c 5f 4c 69 73  -1);.    Tcl_Lis
10a0: 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e  tObjAppendElemen
10b0: 74 28 30 2c 20 70 2c 20 70 41 72 67 29 3b 0a 20  t(0, p, pArg);. 
10c0: 20 7d 0a 20 20 54 63 6c 5f 45 76 61 6c 4f 62 6a   }.  Tcl_EvalObj
10d0: 45 78 28 69 6e 74 65 72 70 2c 20 70 2c 20 54 43  Ex(interp, p, TC
10e0: 4c 5f 45 56 41 4c 5f 47 4c 4f 42 41 4c 29 3b 0a  L_EVAL_GLOBAL);.
10f0: 20 20 70 43 75 72 2d 3e 70 4c 69 73 74 31 20 3d    pCur->pList1 =
1100: 20 54 63 6c 5f 47 65 74 4f 62 6a 52 65 73 75 6c   Tcl_GetObjResul
1110: 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 54 63 6c  t(interp);.  Tcl
1120: 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 70 43  _IncrRefCount(pC
1130: 75 72 2d 3e 70 4c 69 73 74 31 29 3b 0a 20 20 61  ur->pList1);.  a
1140: 73 73 65 72 74 28 20 70 43 75 72 2d 3e 69 31 3d  ssert( pCur->i1=
1150: 3d 30 20 26 26 20 70 43 75 72 2d 3e 69 32 3d 3d  =0 && pCur->i2==
1160: 30 20 26 26 20 70 43 75 72 2d 3e 70 4c 69 73 74  0 && pCur->pList
1170: 32 3d 3d 30 20 29 3b 0a 0a 20 20 54 63 6c 5f 44  2==0 );..  Tcl_D
1180: 65 63 72 52 65 66 43 6f 75 6e 74 28 70 29 3b 0a  ecrRefCount(p);.
1190: 20 20 72 65 74 75 72 6e 20 74 63 6c 76 61 72 4e    return tclvarN
11a0: 65 78 74 28 70 56 74 61 62 43 75 72 73 6f 72 29  ext(pVtabCursor)
11b0: 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20  ;.}..static int 
11c0: 74 63 6c 76 61 72 43 6f 6c 75 6d 6e 28 73 71 6c  tclvarColumn(sql
11d0: 69 74 65 33 5f 76 74 61 62 5f 63 75 72 73 6f 72  ite3_vtab_cursor
11e0: 20 2a 63 75 72 2c 20 73 71 6c 69 74 65 33 5f 63   *cur, sqlite3_c
11f0: 6f 6e 74 65 78 74 20 2a 63 74 78 2c 20 69 6e 74  ontext *ctx, int
1200: 20 69 29 7b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a   i){.  Tcl_Obj *
1210: 70 31 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70  p1;.  Tcl_Obj *p
1220: 32 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20  2;.  const char 
1230: 2a 7a 31 3b 20 0a 20 20 63 6f 6e 73 74 20 63 68  *z1; .  const ch
1240: 61 72 20 2a 7a 32 20 3d 20 22 22 3b 0a 20 20 74  ar *z2 = "";.  t
1250: 63 6c 76 61 72 5f 63 75 72 73 6f 72 20 2a 70 43  clvar_cursor *pC
1260: 75 72 20 3d 20 28 74 63 6c 76 61 72 5f 63 75 72  ur = (tclvar_cur
1270: 73 6f 72 2a 29 63 75 72 3b 0a 20 20 54 63 6c 5f  sor*)cur;.  Tcl_
1280: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 20 3d  Interp *interp =
1290: 20 28 28 74 63 6c 76 61 72 5f 76 74 61 62 20 2a   ((tclvar_vtab *
12a0: 29 63 75 72 2d 3e 70 56 74 61 62 29 2d 3e 69 6e  )cur->pVtab)->in
12b0: 74 65 72 70 3b 0a 0a 20 20 54 63 6c 5f 4c 69 73  terp;..  Tcl_Lis
12c0: 74 4f 62 6a 49 6e 64 65 78 28 69 6e 74 65 72 70  tObjIndex(interp
12d0: 2c 20 70 43 75 72 2d 3e 70 4c 69 73 74 31 2c 20  , pCur->pList1, 
12e0: 70 43 75 72 2d 3e 69 31 2c 20 26 70 31 29 3b 0a  pCur->i1, &p1);.
12f0: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 49 6e 64    Tcl_ListObjInd
1300: 65 78 28 69 6e 74 65 72 70 2c 20 70 43 75 72 2d  ex(interp, pCur-
1310: 3e 70 4c 69 73 74 32 2c 20 70 43 75 72 2d 3e 69  >pList2, pCur->i
1320: 32 2c 20 26 70 32 29 3b 0a 20 20 7a 31 20 3d 20  2, &p2);.  z1 = 
1330: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 70 31  Tcl_GetString(p1
1340: 29 3b 0a 20 20 69 66 28 20 70 32 20 29 7b 0a 20  );.  if( p2 ){. 
1350: 20 20 20 7a 32 20 3d 20 54 63 6c 5f 47 65 74 53     z2 = Tcl_GetS
1360: 74 72 69 6e 67 28 70 32 29 3b 0a 20 20 7d 0a 20  tring(p2);.  }. 
1370: 20 73 77 69 74 63 68 20 28 69 29 20 7b 0a 20 20   switch (i) {.  
1380: 20 20 63 61 73 65 20 30 3a 20 7b 0a 20 20 20 20    case 0: {.    
1390: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74    sqlite3_result
13a0: 5f 74 65 78 74 28 63 74 78 2c 20 7a 31 2c 20 2d  _text(ctx, z1, -
13b0: 31 2c 20 53 51 4c 49 54 45 5f 54 52 41 4e 53 49  1, SQLITE_TRANSI
13c0: 45 4e 54 29 3b 0a 20 20 20 20 20 20 62 72 65 61  ENT);.      brea
13d0: 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 63 61 73  k;.    }.    cas
13e0: 65 20 31 3a 20 7b 0a 20 20 20 20 20 20 73 71 6c  e 1: {.      sql
13f0: 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74  ite3_result_text
1400: 28 63 74 78 2c 20 7a 32 2c 20 2d 31 2c 20 53 51  (ctx, z2, -1, SQ
1410: 4c 49 54 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b  LITE_TRANSIENT);
1420: 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20  .      break;.  
1430: 20 20 7d 0a 20 20 20 20 63 61 73 65 20 32 3a 20    }.    case 2: 
1440: 7b 0a 20 20 20 20 20 20 54 63 6c 5f 4f 62 6a 20  {.      Tcl_Obj 
1450: 2a 70 56 61 6c 20 3d 20 54 63 6c 5f 47 65 74 56  *pVal = Tcl_GetV
1460: 61 72 32 45 78 28 69 6e 74 65 72 70 2c 20 7a 31  ar2Ex(interp, z1
1470: 2c 20 2a 7a 32 3f 7a 32 3a 30 2c 20 54 43 4c 5f  , *z2?z2:0, TCL_
1480: 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 20 20  GLOBAL_ONLY);.  
1490: 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75      sqlite3_resu
14a0: 6c 74 5f 74 65 78 74 28 63 74 78 2c 20 54 63 6c  lt_text(ctx, Tcl
14b0: 5f 47 65 74 53 74 72 69 6e 67 28 70 56 61 6c 29  _GetString(pVal)
14c0: 2c 20 2d 31 2c 20 53 51 4c 49 54 45 5f 54 52 41  , -1, SQLITE_TRA
14d0: 4e 53 49 45 4e 54 29 3b 0a 20 20 20 20 20 20 62  NSIENT);.      b
14e0: 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a  reak;.    }.  }.
14f0: 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f    return SQLITE_
1500: 4f 4b 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e  OK;.}..static in
1510: 74 20 74 63 6c 76 61 72 52 6f 77 69 64 28 73 71  t tclvarRowid(sq
1520: 6c 69 74 65 33 5f 76 74 61 62 5f 63 75 72 73 6f  lite3_vtab_curso
1530: 72 20 2a 63 75 72 2c 20 73 71 6c 69 74 65 5f 69  r *cur, sqlite_i
1540: 6e 74 36 34 20 2a 70 52 6f 77 69 64 29 7b 0a 20  nt64 *pRowid){. 
1550: 20 2a 70 52 6f 77 69 64 20 3d 20 30 3b 0a 20 20   *pRowid = 0;.  
1560: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b  return SQLITE_OK
1570: 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20  ;.}..static int 
1580: 74 63 6c 76 61 72 45 6f 66 28 73 71 6c 69 74 65  tclvarEof(sqlite
1590: 33 5f 76 74 61 62 5f 63 75 72 73 6f 72 20 2a 63  3_vtab_cursor *c
15a0: 75 72 29 7b 0a 20 20 74 63 6c 76 61 72 5f 63 75  ur){.  tclvar_cu
15b0: 72 73 6f 72 20 2a 70 43 75 72 20 3d 20 28 74 63  rsor *pCur = (tc
15c0: 6c 76 61 72 5f 63 75 72 73 6f 72 2a 29 63 75 72  lvar_cursor*)cur
15d0: 3b 0a 20 20 72 65 74 75 72 6e 20 28 70 43 75 72  ;.  return (pCur
15e0: 2d 3e 70 4c 69 73 74 32 3f 30 3a 31 29 3b 0a 7d  ->pList2?0:1);.}
15f0: 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 74 63 6c  ..static int tcl
1600: 76 61 72 42 65 73 74 49 6e 64 65 78 28 73 71 6c  varBestIndex(sql
1610: 69 74 65 33 5f 76 74 61 62 20 2a 74 61 62 2c 20  ite3_vtab *tab, 
1620: 73 71 6c 69 74 65 33 5f 69 6e 64 65 78 5f 69 6e  sqlite3_index_in
1630: 66 6f 20 2a 70 49 64 78 49 6e 66 6f 29 7b 0a 20  fo *pIdxInfo){. 
1640: 20 69 6e 74 20 69 69 3b 0a 0a 20 20 66 6f 72 28   int ii;..  for(
1650: 69 69 3d 30 3b 20 69 69 3c 70 49 64 78 49 6e 66  ii=0; ii<pIdxInf
1660: 6f 2d 3e 6e 43 6f 6e 73 74 72 61 69 6e 74 3b 20  o->nConstraint; 
1670: 69 69 2b 2b 29 7b 0a 20 20 20 20 73 74 72 75 63  ii++){.    struc
1680: 74 20 73 71 6c 69 74 65 33 5f 69 6e 64 65 78 5f  t sqlite3_index_
1690: 63 6f 6e 73 74 72 61 69 6e 74 20 63 6f 6e 73 74  constraint const
16a0: 20 2a 70 43 6f 6e 73 20 3d 20 26 70 49 64 78 49   *pCons = &pIdxI
16b0: 6e 66 6f 2d 3e 61 43 6f 6e 73 74 72 61 69 6e 74  nfo->aConstraint
16c0: 5b 69 69 5d 3b 0a 20 20 20 20 69 66 28 20 70 43  [ii];.    if( pC
16d0: 6f 6e 73 2d 3e 69 43 6f 6c 75 6d 6e 3d 3d 30 20  ons->iColumn==0 
16e0: 26 26 20 70 43 6f 6e 73 2d 3e 6f 70 3d 3d 53 51  && pCons->op==SQ
16f0: 4c 49 54 45 5f 49 4e 44 45 58 5f 43 4f 4e 53 54  LITE_INDEX_CONST
1700: 52 41 49 4e 54 5f 45 51 20 29 7b 0a 20 20 20 20  RAINT_EQ ){.    
1710: 20 20 73 74 72 75 63 74 20 73 71 6c 69 74 65 33    struct sqlite3
1720: 5f 69 6e 64 65 78 5f 63 6f 6e 73 74 72 61 69 6e  _index_constrain
1730: 74 5f 75 73 61 67 65 20 2a 70 55 73 61 67 65 3b  t_usage *pUsage;
1740: 0a 20 20 20 20 20 20 70 55 73 61 67 65 20 3d 20  .      pUsage = 
1750: 26 70 49 64 78 49 6e 66 6f 2d 3e 61 43 6f 6e 73  &pIdxInfo->aCons
1760: 74 72 61 69 6e 74 55 73 61 67 65 5b 69 69 5d 3b  traintUsage[ii];
1770: 0a 20 20 20 20 20 20 70 55 73 61 67 65 2d 3e 6f  .      pUsage->o
1780: 6d 69 74 20 3d 20 30 3b 0a 20 20 20 20 20 20 70  mit = 0;.      p
1790: 55 73 61 67 65 2d 3e 61 72 67 76 49 6e 64 65 78  Usage->argvIndex
17a0: 20 3d 20 31 3b 0a 20 20 20 20 20 20 72 65 74 75   = 1;.      retu
17b0: 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20  rn SQLITE_OK;.  
17c0: 20 20 7d 0a 20 20 7d 0a 0a 20 20 66 6f 72 28 69    }.  }..  for(i
17d0: 69 3d 30 3b 20 69 69 3c 70 49 64 78 49 6e 66 6f  i=0; ii<pIdxInfo
17e0: 2d 3e 6e 43 6f 6e 73 74 72 61 69 6e 74 3b 20 69  ->nConstraint; i
17f0: 69 2b 2b 29 7b 0a 20 20 20 20 73 74 72 75 63 74  i++){.    struct
1800: 20 73 71 6c 69 74 65 33 5f 69 6e 64 65 78 5f 63   sqlite3_index_c
1810: 6f 6e 73 74 72 61 69 6e 74 20 63 6f 6e 73 74 20  onstraint const 
1820: 2a 70 43 6f 6e 73 20 3d 20 26 70 49 64 78 49 6e  *pCons = &pIdxIn
1830: 66 6f 2d 3e 61 43 6f 6e 73 74 72 61 69 6e 74 5b  fo->aConstraint[
1840: 69 69 5d 3b 0a 20 20 20 20 69 66 28 20 70 43 6f  ii];.    if( pCo
1850: 6e 73 2d 3e 69 43 6f 6c 75 6d 6e 3d 3d 30 20 26  ns->iColumn==0 &
1860: 26 20 70 43 6f 6e 73 2d 3e 6f 70 3d 3d 53 51 4c  & pCons->op==SQL
1870: 49 54 45 5f 49 4e 44 45 58 5f 43 4f 4e 53 54 52  ITE_INDEX_CONSTR
1880: 41 49 4e 54 5f 4d 41 54 43 48 20 29 7b 0a 20 20  AINT_MATCH ){.  
1890: 20 20 20 20 73 74 72 75 63 74 20 73 71 6c 69 74      struct sqlit
18a0: 65 33 5f 69 6e 64 65 78 5f 63 6f 6e 73 74 72 61  e3_index_constra
18b0: 69 6e 74 5f 75 73 61 67 65 20 2a 70 55 73 61 67  int_usage *pUsag
18c0: 65 3b 0a 20 20 20 20 20 20 70 55 73 61 67 65 20  e;.      pUsage 
18d0: 3d 20 26 70 49 64 78 49 6e 66 6f 2d 3e 61 43 6f  = &pIdxInfo->aCo
18e0: 6e 73 74 72 61 69 6e 74 55 73 61 67 65 5b 69 69  nstraintUsage[ii
18f0: 5d 3b 0a 20 20 20 20 20 20 70 55 73 61 67 65 2d  ];.      pUsage-
1900: 3e 6f 6d 69 74 20 3d 20 31 3b 0a 20 20 20 20 20  >omit = 1;.     
1910: 20 70 55 73 61 67 65 2d 3e 61 72 67 76 49 6e 64   pUsage->argvInd
1920: 65 78 20 3d 20 31 3b 0a 20 20 20 20 20 20 72 65  ex = 1;.      re
1930: 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a  turn SQLITE_OK;.
1940: 20 20 20 20 7d 0a 20 20 7d 0a 0a 20 20 72 65 74      }.  }..  ret
1950: 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d  urn SQLITE_OK;.}
1960: 0a 0a 2f 2a 0a 2a 2a 20 41 20 76 69 72 74 75 61  ../*.** A virtua
1970: 6c 20 74 61 62 6c 65 20 6d 6f 64 75 6c 65 20 74  l table module t
1980: 68 61 74 20 70 72 6f 76 69 64 65 73 20 72 65 61  hat provides rea
1990: 64 2d 6f 6e 6c 79 20 61 63 63 65 73 73 20 74 6f  d-only access to
19a0: 20 61 0a 2a 2a 20 54 63 6c 20 67 6c 6f 62 61 6c   a.** Tcl global
19b0: 20 76 61 72 69 61 62 6c 65 20 6e 61 6d 65 73 70   variable namesp
19c0: 61 63 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 73  ace..*/.static s
19d0: 71 6c 69 74 65 33 5f 6d 6f 64 75 6c 65 20 74 63  qlite3_module tc
19e0: 6c 76 61 72 4d 6f 64 75 6c 65 20 3d 20 7b 0a 20  lvarModule = {. 
19f0: 20 30 2c 20 20 20 20 20 20 20 20 20 20 20 20 20   0,             
1a00: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 69              /* i
1a10: 56 65 72 73 69 6f 6e 20 2a 2f 0a 20 20 74 63 6c  Version */.  tcl
1a20: 76 61 72 43 6f 6e 6e 65 63 74 2c 0a 20 20 74 63  varConnect,.  tc
1a30: 6c 76 61 72 43 6f 6e 6e 65 63 74 2c 0a 20 20 74  lvarConnect,.  t
1a40: 63 6c 76 61 72 42 65 73 74 49 6e 64 65 78 2c 0a  clvarBestIndex,.
1a50: 20 20 74 63 6c 76 61 72 44 69 73 63 6f 6e 6e 65    tclvarDisconne
1a60: 63 74 2c 20 0a 20 20 74 63 6c 76 61 72 44 69 73  ct, .  tclvarDis
1a70: 63 6f 6e 6e 65 63 74 2c 0a 20 20 74 63 6c 76 61  connect,.  tclva
1a80: 72 4f 70 65 6e 2c 20 20 20 20 20 20 20 20 20 20  rOpen,          
1a90: 20 20 20 20 20 20 20 20 2f 2a 20 78 4f 70 65 6e          /* xOpen
1aa0: 20 2d 20 6f 70 65 6e 20 61 20 63 75 72 73 6f 72   - open a cursor
1ab0: 20 2a 2f 0a 20 20 74 63 6c 76 61 72 43 6c 6f 73   */.  tclvarClos
1ac0: 65 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  e,              
1ad0: 20 20 20 2f 2a 20 78 43 6c 6f 73 65 20 2d 20 63     /* xClose - c
1ae0: 6c 6f 73 65 20 61 20 63 75 72 73 6f 72 20 2a 2f  lose a cursor */
1af0: 0a 20 20 74 63 6c 76 61 72 46 69 6c 74 65 72 2c  .  tclvarFilter,
1b00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1b10: 2f 2a 20 78 46 69 6c 74 65 72 20 2d 20 63 6f 6e  /* xFilter - con
1b20: 66 69 67 75 72 65 20 73 63 61 6e 20 63 6f 6e 73  figure scan cons
1b30: 74 72 61 69 6e 74 73 20 2a 2f 0a 20 20 74 63 6c  traints */.  tcl
1b40: 76 61 72 4e 65 78 74 2c 20 20 20 20 20 20 20 20  varNext,        
1b50: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 4e 65            /* xNe
1b60: 78 74 20 2d 20 61 64 76 61 6e 63 65 20 61 20 63  xt - advance a c
1b70: 75 72 73 6f 72 20 2a 2f 0a 20 20 74 63 6c 76 61  ursor */.  tclva
1b80: 72 45 6f 66 2c 20 20 20 20 20 20 20 20 20 20 20  rEof,           
1b90: 20 20 20 20 20 20 20 20 2f 2a 20 78 45 6f 66 20          /* xEof 
1ba0: 2d 20 63 68 65 63 6b 20 66 6f 72 20 65 6e 64 20  - check for end 
1bb0: 6f 66 20 73 63 61 6e 20 2a 2f 0a 20 20 74 63 6c  of scan */.  tcl
1bc0: 76 61 72 43 6f 6c 75 6d 6e 2c 20 20 20 20 20 20  varColumn,      
1bd0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 43 6f            /* xCo
1be0: 6c 75 6d 6e 20 2d 20 72 65 61 64 20 64 61 74 61  lumn - read data
1bf0: 20 2a 2f 0a 20 20 74 63 6c 76 61 72 52 6f 77 69   */.  tclvarRowi
1c00: 64 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  d,              
1c10: 20 20 20 2f 2a 20 78 52 6f 77 69 64 20 2d 20 72     /* xRowid - r
1c20: 65 61 64 20 64 61 74 61 20 2a 2f 0a 20 20 30 2c  ead data */.  0,
1c30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1c40: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 55             /* xU
1c50: 70 64 61 74 65 20 2a 2f 0a 20 20 30 2c 20 20 20  pdate */.  0,   
1c60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1c70: 20 20 20 20 20 20 20 20 2f 2a 20 78 42 65 67 69          /* xBegi
1c80: 6e 20 2a 2f 0a 20 20 30 2c 20 20 20 20 20 20 20  n */.  0,       
1c90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1ca0: 20 20 20 20 2f 2a 20 78 53 79 6e 63 20 2a 2f 0a      /* xSync */.
1cb0: 20 20 30 2c 20 20 20 20 20 20 20 20 20 20 20 20    0,            
1cc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
1cd0: 2a 20 78 43 6f 6d 6d 69 74 20 2a 2f 0a 20 20 30  * xCommit */.  0
1ce0: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ,               
1cf0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78              /* x
1d00: 52 6f 6c 6c 62 61 63 6b 20 2a 2f 0a 20 20 30 2c  Rollback */.  0,
1d10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1d20: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 46             /* xF
1d30: 69 6e 64 4d 65 74 68 6f 64 20 2a 2f 0a 7d 3b 0a  indMethod */.};.
1d40: 0a 2f 2a 0a 2a 2a 20 44 65 63 6f 64 65 20 61 20  ./*.** Decode a 
1d50: 70 6f 69 6e 74 65 72 20 74 6f 20 61 6e 20 73 71  pointer to an sq
1d60: 6c 69 74 65 33 20 6f 62 6a 65 63 74 2e 0a 2a 2f  lite3 object..*/
1d70: 0a 73 74 61 74 69 63 20 69 6e 74 20 67 65 74 44  .static int getD
1d80: 62 50 6f 69 6e 74 65 72 28 54 63 6c 5f 49 6e 74  bPointer(Tcl_Int
1d90: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 63 6f 6e  erp *interp, con
1da0: 73 74 20 63 68 61 72 20 2a 7a 41 2c 20 73 71 6c  st char *zA, sql
1db0: 69 74 65 33 20 2a 2a 70 70 44 62 29 7b 0a 20 20  ite3 **ppDb){.  
1dc0: 2a 70 70 44 62 20 3d 20 28 73 71 6c 69 74 65 33  *ppDb = (sqlite3
1dd0: 2a 29 73 71 6c 69 74 65 33 54 65 78 74 54 6f 50  *)sqlite3TextToP
1de0: 74 72 28 7a 41 29 3b 0a 20 20 72 65 74 75 72 6e  tr(zA);.  return
1df0: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 0a 2f 2a 0a   TCL_OK;.}.../*.
1e00: 2a 2a 20 52 65 67 69 73 74 65 72 20 74 68 65 20  ** Register the 
1e10: 65 63 68 6f 20 76 69 72 74 75 61 6c 20 74 61 62  echo virtual tab
1e20: 6c 65 20 6d 6f 64 75 6c 65 2e 0a 2a 2f 0a 73 74  le module..*/.st
1e30: 61 74 69 63 20 69 6e 74 20 72 65 67 69 73 74 65  atic int registe
1e40: 72 5f 74 63 6c 76 61 72 5f 6d 6f 64 75 6c 65 28  r_tclvar_module(
1e50: 0a 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 6c  .  ClientData cl
1e60: 69 65 6e 74 44 61 74 61 2c 20 2f 2a 20 50 6f 69  ientData, /* Poi
1e70: 6e 74 65 72 20 74 6f 20 73 71 6c 69 74 65 33 5f  nter to sqlite3_
1e80: 65 6e 61 62 6c 65 5f 58 58 58 20 66 75 6e 63 74  enable_XXX funct
1e90: 69 6f 6e 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74  ion */.  Tcl_Int
1ea0: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20  erp *interp,    
1eb0: 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72  /* The TCL inter
1ec0: 70 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f  preter that invo
1ed0: 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64  ked this command
1ee0: 20 2a 2f 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 20   */.  int objc, 
1ef0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
1f00: 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65  Number of argume
1f10: 6e 74 73 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a  nts */.  Tcl_Obj
1f20: 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 20 20   *CONST objv[]  
1f30: 2f 2a 20 43 6f 6d 6d 61 6e 64 20 61 72 67 75 6d  /* Command argum
1f40: 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20 20 73 71 6c  ents */.){.  sql
1f50: 69 74 65 33 20 2a 64 62 3b 0a 20 20 69 66 28 20  ite3 *db;.  if( 
1f60: 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 54  objc!=2 ){.    T
1f70: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28  cl_WrongNumArgs(
1f80: 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c  interp, 1, objv,
1f90: 20 22 44 42 22 29 3b 0a 20 20 20 20 72 65 74 75   "DB");.    retu
1fa0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
1fb0: 7d 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f 69  }.  if( getDbPoi
1fc0: 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c  nter(interp, Tcl
1fd0: 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b  _GetString(objv[
1fe0: 31 5d 29 2c 20 26 64 62 29 20 29 20 72 65 74 75  1]), &db) ) retu
1ff0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 23 69  rn TCL_ERROR;.#i
2000: 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49  fndef SQLITE_OMI
2010: 54 5f 56 49 52 54 55 41 4c 54 41 42 4c 45 0a 20  T_VIRTUALTABLE. 
2020: 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f   sqlite3_create_
2030: 6d 6f 64 75 6c 65 28 64 62 2c 20 22 74 63 6c 76  module(db, "tclv
2040: 61 72 22 2c 20 26 74 63 6c 76 61 72 4d 6f 64 75  ar", &tclvarModu
2050: 6c 65 2c 20 28 76 6f 69 64 20 2a 29 69 6e 74 65  le, (void *)inte
2060: 72 70 29 3b 0a 23 65 6e 64 69 66 0a 20 20 72 65  rp);.#endif.  re
2070: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a  turn TCL_OK;.}..
2080: 23 65 6e 64 69 66 0a 0a 0a 2f 2a 0a 2a 2a 20 52  #endif.../*.** R
2090: 65 67 69 73 74 65 72 20 63 6f 6d 6d 61 6e 64 73  egister commands
20a0: 20 77 69 74 68 20 74 68 65 20 54 43 4c 20 69 6e   with the TCL in
20b0: 74 65 72 70 72 65 74 65 72 2e 0a 2a 2f 0a 69 6e  terpreter..*/.in
20c0: 74 20 53 71 6c 69 74 65 74 65 73 74 74 63 6c 76  t Sqlitetesttclv
20d0: 61 72 5f 49 6e 69 74 28 54 63 6c 5f 49 6e 74 65  ar_Init(Tcl_Inte
20e0: 72 70 20 2a 69 6e 74 65 72 70 29 7b 0a 20 20 73  rp *interp){.  s
20f0: 74 61 74 69 63 20 73 74 72 75 63 74 20 7b 0a 20  tatic struct {. 
2100: 20 20 20 20 63 68 61 72 20 2a 7a 4e 61 6d 65 3b      char *zName;
2110: 0a 20 20 20 20 20 54 63 6c 5f 4f 62 6a 43 6d 64  .     Tcl_ObjCmd
2120: 50 72 6f 63 20 2a 78 50 72 6f 63 3b 0a 20 20 20  Proc *xProc;.   
2130: 20 20 76 6f 69 64 20 2a 63 6c 69 65 6e 74 44 61    void *clientDa
2140: 74 61 3b 0a 20 20 7d 20 61 4f 62 6a 43 6d 64 5b  ta;.  } aObjCmd[
2150: 5d 20 3d 20 7b 0a 23 69 66 6e 64 65 66 20 53 51  ] = {.#ifndef SQ
2160: 4c 49 54 45 5f 4f 4d 49 54 5f 56 49 52 54 55 41  LITE_OMIT_VIRTUA
2170: 4c 54 41 42 4c 45 0a 20 20 20 20 20 7b 20 22 72  LTABLE.     { "r
2180: 65 67 69 73 74 65 72 5f 74 63 6c 76 61 72 5f 6d  egister_tclvar_m
2190: 6f 64 75 6c 65 22 2c 20 20 20 72 65 67 69 73 74  odule",   regist
21a0: 65 72 5f 74 63 6c 76 61 72 5f 6d 6f 64 75 6c 65  er_tclvar_module
21b0: 2c 20 30 20 7d 2c 0a 23 65 6e 64 69 66 0a 20 20  , 0 },.#endif.  
21c0: 7d 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 66 6f  };.  int i;.  fo
21d0: 72 28 69 3d 30 3b 20 69 3c 73 69 7a 65 6f 66 28  r(i=0; i<sizeof(
21e0: 61 4f 62 6a 43 6d 64 29 2f 73 69 7a 65 6f 66 28  aObjCmd)/sizeof(
21f0: 61 4f 62 6a 43 6d 64 5b 30 5d 29 3b 20 69 2b 2b  aObjCmd[0]); i++
2200: 29 7b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74  ){.    Tcl_Creat
2210: 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65  eObjCommand(inte
2220: 72 70 2c 20 61 4f 62 6a 43 6d 64 5b 69 5d 2e 7a  rp, aObjCmd[i].z
2230: 4e 61 6d 65 2c 20 0a 20 20 20 20 20 20 20 20 61  Name, .        a
2240: 4f 62 6a 43 6d 64 5b 69 5d 2e 78 50 72 6f 63 2c  ObjCmd[i].xProc,
2250: 20 61 4f 62 6a 43 6d 64 5b 69 5d 2e 63 6c 69 65   aObjCmd[i].clie
2260: 6e 74 44 61 74 61 2c 20 30 29 3b 0a 20 20 7d 0a  ntData, 0);.  }.
2270: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b    return TCL_OK;
2280: 0a 7d 0a                                         .}.