/ Hex Artifact Content
Login

Artifact 2004eeca2d227fe62ed581776dc7fd349d45b8f3:


0000: 2f 2a 0a 2a 2a 20 32 30 31 33 20 4a 61 6e 20 31  /*.** 2013 Jan 1
0010: 31 0a 2a 2a 0a 2a 2a 20 54 68 65 20 61 75 74 68  1.**.** The auth
0020: 6f 72 20 64 69 73 63 6c 61 69 6d 73 20 63 6f 70  or disclaims cop
0030: 79 72 69 67 68 74 20 74 6f 20 74 68 69 73 20 73  yright to this s
0040: 6f 75 72 63 65 20 63 6f 64 65 2e 20 20 49 6e 20  ource code.  In 
0050: 70 6c 61 63 65 20 6f 66 0a 2a 2a 20 61 20 6c 65  place of.** a le
0060: 67 61 6c 20 6e 6f 74 69 63 65 2c 20 68 65 72 65  gal notice, here
0070: 20 69 73 20 61 20 62 6c 65 73 73 69 6e 67 3a 0a   is a blessing:.
0080: 2a 2a 0a 2a 2a 20 20 20 20 4d 61 79 20 79 6f 75  **.**    May you
0090: 20 64 6f 20 67 6f 6f 64 20 61 6e 64 20 6e 6f 74   do good and not
00a0: 20 65 76 69 6c 2e 0a 2a 2a 20 20 20 20 4d 61 79   evil..**    May
00b0: 20 79 6f 75 20 66 69 6e 64 20 66 6f 72 67 69 76   you find forgiv
00c0: 65 6e 65 73 73 20 66 6f 72 20 79 6f 75 72 73 65  eness for yourse
00d0: 6c 66 20 61 6e 64 20 66 6f 72 67 69 76 65 20 6f  lf and forgive o
00e0: 74 68 65 72 73 2e 0a 2a 2a 20 20 20 20 4d 61 79  thers..**    May
00f0: 20 79 6f 75 20 73 68 61 72 65 20 66 72 65 65 6c   you share freel
0100: 79 2c 20 6e 65 76 65 72 20 74 61 6b 69 6e 67 20  y, never taking 
0110: 6d 6f 72 65 20 74 68 61 6e 20 79 6f 75 20 67 69  more than you gi
0120: 76 65 2e 0a 2a 2a 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ve..**.*********
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: 0a 2a 2a 20 43 6f 64 65 20 66 6f 72 20 74 65 73  .** Code for tes
0180: 74 69 6e 67 20 74 68 65 20 76 69 72 74 75 61 6c  ting the virtual
0190: 20 74 61 62 6c 65 20 78 42 65 73 74 49 6e 64 65   table xBestInde
01a0: 78 20 6d 65 74 68 6f 64 20 61 6e 64 20 74 68 65  x method and the
01b0: 20 71 75 65 72 79 0a 2a 2a 20 70 6c 61 6e 6e 65   query.** planne
01c0: 72 2e 0a 2a 2f 0a 0a 0a 2f 2a 0a 2a 2a 20 49 4e  r..*/.../*.** IN
01d0: 53 54 52 55 43 54 49 4f 4e 53 0a 2a 2a 0a 2a 2a  STRUCTIONS.**.**
01e0: 20 54 68 69 73 20 6d 6f 64 75 6c 65 20 65 78 70   This module exp
01f0: 6f 72 74 73 20 61 20 73 69 6e 67 6c 65 20 74 63  orts a single tc
0200: 6c 20 63 6f 6d 6d 61 6e 64 20 2d 20 5b 72 65 67  l command - [reg
0210: 69 73 74 65 72 5f 74 63 6c 5f 6d 6f 64 75 6c 65  ister_tcl_module
0220: 5d 2e 20 57 68 65 6e 0a 2a 2a 20 69 6e 76 6f 6b  ]. When.** invok
0230: 65 64 2c 20 69 74 20 72 65 67 69 73 74 65 72 73  ed, it registers
0240: 20 61 20 73 70 65 63 69 61 6c 20 76 69 72 74 75   a special virtu
0250: 61 6c 20 74 61 62 6c 65 20 6d 6f 64 75 6c 65 20  al table module 
0260: 77 69 74 68 20 61 20 64 61 74 61 62 61 73 65 0a  with a database.
0270: 2a 2a 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 0a 2a  ** connection..*
0280: 2a 0a 2a 2a 20 54 68 65 20 76 69 72 74 75 61 6c  *.** The virtual
0290: 20 74 61 62 6c 65 20 69 73 20 63 75 72 72 65 6e   table is curren
02a0: 74 6c 79 20 72 65 61 64 2d 6f 6e 6c 79 2e 20 41  tly read-only. A
02b0: 6e 64 20 61 6c 77 61 79 73 20 72 65 74 75 72 6e  nd always return
02c0: 73 20 7a 65 72 6f 20 72 6f 77 73 2e 0a 2a 2a 20  s zero rows..** 
02d0: 49 74 20 69 73 20 63 72 65 61 74 65 64 20 77 69  It is created wi
02e0: 74 68 20 61 20 73 69 6e 67 6c 65 20 61 72 67 75  th a single argu
02f0: 6d 65 6e 74 20 2d 20 74 68 65 20 6e 61 6d 65 20  ment - the name 
0300: 6f 66 20 61 20 54 63 6c 20 63 6f 6d 6d 61 6e 64  of a Tcl command
0310: 20 2d 20 61 73 0a 2a 2a 20 66 6f 6c 6c 6f 77 73   - as.** follows
0320: 3a 0a 2a 2a 0a 2a 2a 20 20 20 43 52 45 41 54 45  :.**.**   CREATE
0330: 20 56 49 52 54 55 41 4c 20 54 41 42 4c 45 20 78   VIRTUAL TABLE x
0340: 31 20 55 53 49 4e 47 20 74 63 6c 28 74 63 6c 5f  1 USING tcl(tcl_
0350: 63 6f 6d 6d 61 6e 64 29 3b 0a 2a 2a 0a 2a 2a 20  command);.**.** 
0360: 54 68 65 20 63 6f 6d 6d 61 6e 64 20 5b 74 63 6c  The command [tcl
0370: 5f 63 6f 6d 6d 61 6e 64 5d 20 69 73 20 69 6e 76  _command] is inv
0380: 6f 6b 65 64 20 77 68 65 6e 20 74 68 65 20 74 61  oked when the ta
0390: 62 6c 65 20 69 73 20 66 69 72 73 74 20 63 72 65  ble is first cre
03a0: 61 74 65 64 20 28 6f 72 0a 2a 2a 20 63 6f 6e 6e  ated (or.** conn
03b0: 65 63 74 65 64 29 20 61 6e 64 20 77 68 65 6e 20  ected) and when 
03c0: 74 68 65 20 78 42 65 73 74 49 6e 64 65 78 28 29  the xBestIndex()
03d0: 20 6d 65 74 68 6f 64 20 69 73 20 69 6e 76 6f 6b   method is invok
03e0: 65 64 2e 20 57 68 65 6e 20 69 74 20 69 73 20 63  ed. When it is c
03f0: 72 65 61 74 65 64 0a 2a 2a 20 28 6f 72 20 63 6f  reated.** (or co
0400: 6e 6e 65 63 74 65 64 29 2c 20 69 74 20 69 73 20  nnected), it is 
0410: 69 6e 76 6f 6b 65 64 20 61 73 20 66 6f 6c 6c 6f  invoked as follo
0420: 77 73 3a 0a 2a 2a 0a 2a 2a 20 20 20 74 63 6c 5f  ws:.**.**   tcl_
0430: 63 6f 6d 6d 61 6e 64 20 78 43 6f 6e 6e 65 63 74  command xConnect
0440: 0a 2a 2a 0a 2a 2a 20 49 6e 20 74 68 69 73 20 63  .**.** In this c
0450: 61 73 65 20 74 68 65 20 72 65 74 75 72 6e 20 76  ase the return v
0460: 61 6c 75 65 20 6f 66 20 74 68 65 20 73 63 72 69  alue of the scri
0470: 70 74 20 69 73 20 70 61 73 73 65 64 20 74 6f 20  pt is passed to 
0480: 74 68 65 0a 2a 2a 20 73 71 6c 69 74 65 33 5f 64  the.** sqlite3_d
0490: 65 63 6c 61 72 65 5f 76 74 61 62 28 29 20 66 75  eclare_vtab() fu
04a0: 6e 63 74 69 6f 6e 20 74 6f 20 63 72 65 61 74 65  nction to create
04b0: 20 74 68 65 20 76 69 72 74 75 61 6c 20 74 61 62   the virtual tab
04c0: 6c 65 20 73 63 68 65 6d 61 2e 0a 2a 2a 0a 2a 2a  le schema..**.**
04d0: 20 57 68 65 6e 20 74 68 65 20 78 42 65 73 74 49   When the xBestI
04e0: 6e 64 65 78 28 29 20 6d 65 74 68 6f 64 20 69 73  ndex() method is
04f0: 20 63 61 6c 6c 65 64 20 62 79 20 53 51 4c 69 74   called by SQLit
0500: 65 2c 20 74 68 65 20 54 63 6c 20 63 6f 6d 6d 61  e, the Tcl comma
0510: 6e 64 20 69 73 0a 2a 2a 20 69 6e 76 6f 6b 65 64  nd is.** invoked
0520: 20 61 73 3a 0a 2a 2a 0a 2a 2a 20 20 20 74 63 6c   as:.**.**   tcl
0530: 5f 63 6f 6d 6d 61 6e 64 20 78 42 65 73 74 49 6e  _command xBestIn
0540: 64 65 78 20 43 4f 4e 53 54 52 41 49 4e 54 53 20  dex CONSTRAINTS 
0550: 4f 52 44 45 52 42 59 20 4d 41 53 4b 0a 2a 2a 0a  ORDERBY MASK.**.
0560: 2a 2a 20 77 68 65 72 65 20 43 4f 4e 53 54 52 41  ** where CONSTRA
0570: 49 4e 54 53 20 69 73 20 61 20 74 63 6c 20 72 65  INTS is a tcl re
0580: 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 6f 66 20  presentation of 
0590: 74 68 65 20 61 43 6f 6e 73 74 72 61 69 6e 74 73  the aConstraints
05a0: 5b 5d 20 61 72 72 61 79 2c 0a 2a 2a 20 4f 52 44  [] array,.** ORD
05b0: 45 52 42 59 20 69 73 20 61 20 72 65 70 72 65 73  ERBY is a repres
05c0: 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20  entation of the 
05d0: 63 6f 6e 74 65 6e 74 73 20 6f 66 20 74 68 65 20  contents of the 
05e0: 61 4f 72 64 65 72 42 79 5b 5d 20 61 72 72 61 79  aOrderBy[] array
05f0: 20 61 6e 64 0a 2a 2a 20 4d 41 53 4b 20 69 73 20   and.** MASK is 
0600: 61 20 63 6f 70 79 20 6f 66 20 73 71 6c 69 74 65  a copy of sqlite
0610: 33 5f 69 6e 64 65 78 5f 69 6e 66 6f 2e 63 6f 6c  3_index_info.col
0620: 55 73 65 64 2e 20 46 6f 72 20 65 78 61 6d 70 6c  Used. For exampl
0630: 65 20 69 66 20 74 68 65 20 76 69 72 74 75 61 6c  e if the virtual
0640: 0a 2a 2a 20 74 61 62 6c 65 20 69 73 20 64 65 63  .** table is dec
0650: 6c 61 72 65 64 20 61 73 3a 0a 2a 2a 0a 2a 2a 20  lared as:.**.** 
0660: 20 20 43 52 45 41 54 45 20 54 41 42 4c 45 20 78    CREATE TABLE x
0670: 31 28 61 2c 20 62 2c 20 63 29 0a 2a 2a 0a 2a 2a  1(a, b, c).**.**
0680: 20 61 6e 64 20 74 68 65 20 71 75 65 72 79 20 69   and the query i
0690: 73 3a 0a 2a 2a 0a 2a 2a 20 20 20 53 45 4c 45 43  s:.**.**   SELEC
06a0: 54 20 2a 20 46 52 4f 4d 20 78 31 20 57 48 45 52  T * FROM x1 WHER
06b0: 45 20 61 3d 3f 20 41 4e 44 20 63 3c 3f 20 4f 52  E a=? AND c<? OR
06c0: 44 45 52 20 42 59 20 62 2c 20 63 3b 0a 2a 2a 0a  DER BY b, c;.**.
06d0: 2a 2a 20 74 68 65 6e 20 74 68 65 20 54 63 6c 20  ** then the Tcl 
06e0: 63 6f 6d 6d 61 6e 64 20 69 73 3a 0a 2a 2a 0a 2a  command is:.**.*
06f0: 2a 20 20 20 74 63 6c 5f 63 6f 6d 6d 61 6e 64 20  *   tcl_command 
0700: 78 42 65 73 74 49 6e 64 65 78 20 20 20 20 20 20  xBestIndex      
0710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0720: 20 20 20 20 20 20 20 20 20 20 20 20 5c 0a 2a 2a              \.**
0730: 20 20 20 20 20 7b 7b 6f 70 20 65 71 20 63 6f 6c       {{op eq col
0740: 75 6d 6e 20 30 20 75 73 61 62 6c 65 20 31 7d 20  umn 0 usable 1} 
0750: 7b 6f 70 20 6c 74 20 63 6f 6c 75 6d 6e 20 32 20  {op lt column 2 
0760: 75 73 61 62 6c 65 20 31 7d 7d 20 5c 0a 2a 2a 20  usable 1}} \.** 
0770: 20 20 20 20 7b 7b 63 6f 6c 75 6d 6e 20 31 20 64      {{column 1 d
0780: 65 73 63 20 30 7d 20 7b 63 6f 6c 75 6d 6e 20 32  esc 0} {column 2
0790: 20 64 65 73 63 20 30 7d 7d 20 20 20 20 20 20 20   desc 0}}       
07a0: 20 20 20 20 20 20 20 20 20 20 5c 0a 2a 2a 20 20            \.**  
07b0: 20 20 20 37 0a 2a 2a 0a 2a 2a 20 54 68 65 20 72     7.**.** The r
07c0: 65 74 75 72 6e 20 76 61 6c 75 65 20 6f 66 20 74  eturn value of t
07d0: 68 65 20 73 63 72 69 70 74 20 69 73 20 61 20 6c  he script is a l
07e0: 69 73 74 20 6f 66 20 6b 65 79 2d 76 61 6c 75 65  ist of key-value
07f0: 20 70 61 69 72 73 20 75 73 65 64 20 74 6f 0a 2a   pairs used to.*
0800: 2a 20 70 6f 70 75 6c 61 74 65 20 74 68 65 20 6f  * populate the o
0810: 75 74 70 75 74 20 66 69 65 6c 64 73 20 6f 66 20  utput fields of 
0820: 74 68 65 20 73 71 6c 69 74 65 33 5f 69 6e 64 65  the sqlite3_inde
0830: 78 5f 69 6e 66 6f 20 73 74 72 75 63 74 75 72 65  x_info structure
0840: 2e 20 50 6f 73 73 69 62 6c 65 0a 2a 2a 20 6b 65  . Possible.** ke
0850: 79 73 20 61 6e 64 20 74 68 65 20 75 73 61 67 65  ys and the usage
0860: 20 6f 66 20 74 68 65 20 61 63 63 6f 6d 70 61 6e   of the accompan
0870: 79 69 6e 67 20 76 61 6c 75 65 73 20 61 72 65 3a  ying values are:
0880: 0a 2a 2a 20 0a 2a 2a 20 20 20 22 6f 72 64 65 72  .** .**   "order
0890: 62 79 22 20 20 20 20 20 20 20 20 20 20 28 76 61  by"          (va
08a0: 6c 75 65 20 6f 66 20 6f 72 64 65 72 42 79 43 6f  lue of orderByCo
08b0: 6e 73 75 6d 65 64 20 66 6c 61 67 29 0a 2a 2a 20  nsumed flag).** 
08c0: 20 20 22 63 6f 73 74 22 20 20 20 20 20 20 20 20    "cost"        
08d0: 20 20 20 20 20 28 76 61 6c 75 65 20 6f 66 20 65       (value of e
08e0: 73 74 69 6d 61 74 65 64 43 6f 73 74 20 66 69 65  stimatedCost fie
08f0: 6c 64 29 0a 2a 2a 20 20 20 22 72 6f 77 73 22 20  ld).**   "rows" 
0900: 20 20 20 20 20 20 20 20 20 20 20 20 28 76 61 6c              (val
0910: 75 65 20 6f 66 20 65 73 74 69 6d 61 74 65 64 52  ue of estimatedR
0920: 6f 77 73 20 66 69 65 6c 64 29 0a 2a 2a 20 20 20  ows field).**   
0930: 22 75 73 65 22 20 20 20 20 20 20 20 20 20 20 20  "use"           
0940: 20 20 20 28 69 6e 64 65 78 20 6f 66 20 75 73 65     (index of use
0950: 64 20 63 6f 6e 73 74 72 61 69 6e 74 20 69 6e 20  d constraint in 
0960: 61 43 6f 6e 73 74 72 61 69 6e 74 5b 5d 29 0a 2a  aConstraint[]).*
0970: 2a 20 20 20 22 69 64 78 6e 75 6d 22 20 20 20 20  *   "idxnum"    
0980: 20 20 20 20 20 20 20 28 76 61 6c 75 65 20 6f 66         (value of
0990: 20 69 64 78 4e 75 6d 20 66 69 65 6c 64 29 0a 2a   idxNum field).*
09a0: 2a 20 20 20 22 69 64 78 73 74 72 22 20 20 20 20  *   "idxstr"    
09b0: 20 20 20 20 20 20 20 28 76 61 6c 75 65 20 6f 66         (value of
09c0: 20 69 64 78 53 74 72 20 66 69 65 6c 64 29 0a 2a   idxStr field).*
09d0: 2a 0a 2a 2a 20 52 65 66 65 72 20 74 6f 20 63 6f  *.** Refer to co
09e0: 64 65 20 62 65 6c 6f 77 20 66 6f 72 20 66 75 72  de below for fur
09f0: 74 68 65 72 20 64 65 74 61 69 6c 73 2e 0a 2a 2f  ther details..*/
0a00: 0a 0a 0a 23 69 6e 63 6c 75 64 65 20 22 73 71 6c  ...#include "sql
0a10: 69 74 65 49 6e 74 2e 68 22 0a 23 69 6e 63 6c 75  iteInt.h".#inclu
0a20: 64 65 20 22 74 63 6c 2e 68 22 0a 0a 23 69 66 6e  de "tcl.h"..#ifn
0a30: 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f  def SQLITE_OMIT_
0a40: 56 49 52 54 55 41 4c 54 41 42 4c 45 0a 0a 74 79  VIRTUALTABLE..ty
0a50: 70 65 64 65 66 20 73 74 72 75 63 74 20 74 63 6c  pedef struct tcl
0a60: 5f 76 74 61 62 20 74 63 6c 5f 76 74 61 62 3b 0a  _vtab tcl_vtab;.
0a70: 74 79 70 65 64 65 66 20 73 74 72 75 63 74 20 74  typedef struct t
0a80: 63 6c 5f 63 75 72 73 6f 72 20 74 63 6c 5f 63 75  cl_cursor tcl_cu
0a90: 72 73 6f 72 3b 0a 0a 2f 2a 20 0a 2a 2a 20 41 20  rsor;../* .** A 
0aa0: 66 73 20 76 69 72 74 75 61 6c 2d 74 61 62 6c 65  fs virtual-table
0ab0: 20 6f 62 6a 65 63 74 20 0a 2a 2f 0a 73 74 72 75   object .*/.stru
0ac0: 63 74 20 74 63 6c 5f 76 74 61 62 20 7b 0a 20 20  ct tcl_vtab {.  
0ad0: 73 71 6c 69 74 65 33 5f 76 74 61 62 20 62 61 73  sqlite3_vtab bas
0ae0: 65 3b 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20  e;.  Tcl_Interp 
0af0: 2a 69 6e 74 65 72 70 3b 0a 20 20 54 63 6c 5f 4f  *interp;.  Tcl_O
0b00: 62 6a 20 2a 70 43 6d 64 3b 0a 7d 3b 0a 0a 2f 2a  bj *pCmd;.};../*
0b10: 20 41 20 74 63 6c 20 63 75 72 73 6f 72 20 6f 62   A tcl cursor ob
0b20: 6a 65 63 74 20 2a 2f 0a 73 74 72 75 63 74 20 74  ject */.struct t
0b30: 63 6c 5f 63 75 72 73 6f 72 20 7b 0a 20 20 73 71  cl_cursor {.  sq
0b40: 6c 69 74 65 33 5f 76 74 61 62 5f 63 75 72 73 6f  lite3_vtab_curso
0b50: 72 20 62 61 73 65 3b 0a 7d 3b 0a 0a 2f 2a 0a 2a  r base;.};../*.*
0b60: 2a 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20  * This function 
0b70: 69 73 20 74 68 65 20 69 6d 70 6c 65 6d 65 6e 74  is the implement
0b80: 61 74 69 6f 6e 20 6f 66 20 62 6f 74 68 20 74 68  ation of both th
0b90: 65 20 78 43 6f 6e 6e 65 63 74 20 61 6e 64 20 78  e xConnect and x
0ba0: 43 72 65 61 74 65 0a 2a 2a 20 6d 65 74 68 6f 64  Create.** method
0bb0: 73 20 6f 66 20 74 68 65 20 66 73 20 76 69 72 74  s of the fs virt
0bc0: 75 61 6c 20 74 61 62 6c 65 2e 0a 2a 2a 0a 2a 2a  ual table..**.**
0bd0: 20 54 68 65 20 61 72 67 76 5b 5d 20 61 72 72 61   The argv[] arra
0be0: 79 20 63 6f 6e 74 61 69 6e 73 20 74 68 65 20 66  y contains the f
0bf0: 6f 6c 6c 6f 77 69 6e 67 3a 0a 2a 2a 0a 2a 2a 20  ollowing:.**.** 
0c00: 20 20 61 72 67 76 5b 30 5d 20 20 20 2d 3e 20 6d    argv[0]   -> m
0c10: 6f 64 75 6c 65 20 6e 61 6d 65 20 20 28 22 66 73  odule name  ("fs
0c20: 22 29 0a 2a 2a 20 20 20 61 72 67 76 5b 31 5d 20  ").**   argv[1] 
0c30: 20 20 2d 3e 20 64 61 74 61 62 61 73 65 20 6e 61    -> database na
0c40: 6d 65 0a 2a 2a 20 20 20 61 72 67 76 5b 32 5d 20  me.**   argv[2] 
0c50: 20 20 2d 3e 20 74 61 62 6c 65 20 6e 61 6d 65 0a    -> table name.
0c60: 2a 2a 20 20 20 61 72 67 76 5b 2e 2e 2e 5d 20 2d  **   argv[...] -
0c70: 3e 20 6f 74 68 65 72 20 6d 6f 64 75 6c 65 20 61  > other module a
0c80: 72 67 75 6d 65 6e 74 20 66 69 65 6c 64 73 2e 0a  rgument fields..
0c90: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 63  */.static int tc
0ca0: 6c 43 6f 6e 6e 65 63 74 28 0a 20 20 73 71 6c 69  lConnect(.  sqli
0cb0: 74 65 33 20 2a 64 62 2c 0a 20 20 76 6f 69 64 20  te3 *db,.  void 
0cc0: 2a 70 41 75 78 2c 0a 20 20 69 6e 74 20 61 72 67  *pAux,.  int arg
0cd0: 63 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 63  c, const char *c
0ce0: 6f 6e 73 74 2a 61 72 67 76 2c 0a 20 20 73 71 6c  onst*argv,.  sql
0cf0: 69 74 65 33 5f 76 74 61 62 20 2a 2a 70 70 56 74  ite3_vtab **ppVt
0d00: 61 62 2c 0a 20 20 63 68 61 72 20 2a 2a 70 7a 45  ab,.  char **pzE
0d10: 72 72 0a 29 7b 0a 20 20 54 63 6c 5f 49 6e 74 65  rr.){.  Tcl_Inte
0d20: 72 70 20 2a 69 6e 74 65 72 70 20 3d 20 28 54 63  rp *interp = (Tc
0d30: 6c 5f 49 6e 74 65 72 70 2a 29 70 41 75 78 3b 0a  l_Interp*)pAux;.
0d40: 20 20 74 63 6c 5f 76 74 61 62 20 2a 70 54 61 62    tcl_vtab *pTab
0d50: 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a  ;.  const char *
0d60: 7a 43 6d 64 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20  zCmd;.  Tcl_Obj 
0d70: 2a 70 53 63 72 69 70 74 20 3d 20 30 3b 0a 20 20  *pScript = 0;.  
0d80: 69 6e 74 20 72 63 3b 0a 0a 20 20 69 66 28 20 61  int rc;..  if( a
0d90: 72 67 63 21 3d 34 20 29 7b 0a 20 20 20 20 2a 70  rgc!=4 ){.    *p
0da0: 7a 45 72 72 20 3d 20 73 71 6c 69 74 65 33 5f 6d  zErr = sqlite3_m
0db0: 70 72 69 6e 74 66 28 22 77 72 6f 6e 67 20 6e 75  printf("wrong nu
0dc0: 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74  mber of argument
0dd0: 73 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20  s");.    return 
0de0: 53 51 4c 49 54 45 5f 45 52 52 4f 52 3b 0a 20 20  SQLITE_ERROR;.  
0df0: 7d 0a 20 20 7a 43 6d 64 20 3d 20 61 72 67 76 5b  }.  zCmd = argv[
0e00: 33 5d 3b 0a 0a 20 20 70 54 61 62 20 3d 20 28 74  3];..  pTab = (t
0e10: 63 6c 5f 76 74 61 62 2a 29 73 71 6c 69 74 65 33  cl_vtab*)sqlite3
0e20: 5f 6d 61 6c 6c 6f 63 28 73 69 7a 65 6f 66 28 74  _malloc(sizeof(t
0e30: 63 6c 5f 76 74 61 62 29 29 3b 0a 20 20 69 66 28  cl_vtab));.  if(
0e40: 20 70 54 61 62 3d 3d 30 20 29 20 72 65 74 75 72   pTab==0 ) retur
0e50: 6e 20 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d 3b 0a  n SQLITE_NOMEM;.
0e60: 20 20 6d 65 6d 73 65 74 28 70 54 61 62 2c 20 30    memset(pTab, 0
0e70: 2c 20 73 69 7a 65 6f 66 28 74 63 6c 5f 76 74 61  , sizeof(tcl_vta
0e80: 62 29 29 3b 0a 0a 20 20 70 54 61 62 2d 3e 70 43  b));..  pTab->pC
0e90: 6d 64 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69  md = Tcl_NewStri
0ea0: 6e 67 4f 62 6a 28 7a 43 6d 64 2c 20 2d 31 29 3b  ngObj(zCmd, -1);
0eb0: 0a 20 20 70 54 61 62 2d 3e 69 6e 74 65 72 70 20  .  pTab->interp 
0ec0: 3d 20 69 6e 74 65 72 70 3b 0a 20 20 54 63 6c 5f  = interp;.  Tcl_
0ed0: 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 70 54 61  IncrRefCount(pTa
0ee0: 62 2d 3e 70 43 6d 64 29 3b 0a 0a 20 20 70 53 63  b->pCmd);..  pSc
0ef0: 72 69 70 74 20 3d 20 54 63 6c 5f 44 75 70 6c 69  ript = Tcl_Dupli
0f00: 63 61 74 65 4f 62 6a 28 70 54 61 62 2d 3e 70 43  cateObj(pTab->pC
0f10: 6d 64 29 3b 0a 20 20 54 63 6c 5f 49 6e 63 72 52  md);.  Tcl_IncrR
0f20: 65 66 43 6f 75 6e 74 28 70 53 63 72 69 70 74 29  efCount(pScript)
0f30: 3b 0a 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41  ;.  Tcl_ListObjA
0f40: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74  ppendElement(int
0f50: 65 72 70 2c 20 70 53 63 72 69 70 74 2c 20 54 63  erp, pScript, Tc
0f60: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22  l_NewStringObj("
0f70: 78 43 6f 6e 6e 65 63 74 22 2c 20 2d 31 29 29 3b  xConnect", -1));
0f80: 0a 0a 20 20 72 63 20 3d 20 54 63 6c 5f 45 76 61  ..  rc = Tcl_Eva
0f90: 6c 4f 62 6a 45 78 28 69 6e 74 65 72 70 2c 20 70  lObjEx(interp, p
0fa0: 53 63 72 69 70 74 2c 20 54 43 4c 5f 45 56 41 4c  Script, TCL_EVAL
0fb0: 5f 47 4c 4f 42 41 4c 29 3b 0a 20 20 69 66 28 20  _GLOBAL);.  if( 
0fc0: 72 63 21 3d 54 43 4c 5f 4f 4b 20 29 7b 0a 20 20  rc!=TCL_OK ){.  
0fd0: 20 20 2a 70 7a 45 72 72 20 3d 20 73 71 6c 69 74    *pzErr = sqlit
0fe0: 65 33 5f 6d 70 72 69 6e 74 66 28 22 25 73 22 2c  e3_mprintf("%s",
0ff0: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 52 65   Tcl_GetStringRe
1000: 73 75 6c 74 28 69 6e 74 65 72 70 29 29 3b 0a 20  sult(interp));. 
1010: 20 20 20 72 63 20 3d 20 53 51 4c 49 54 45 5f 45     rc = SQLITE_E
1020: 52 52 4f 52 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20  RROR;.  }else{. 
1030: 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f     rc = sqlite3_
1040: 64 65 63 6c 61 72 65 5f 76 74 61 62 28 64 62 2c  declare_vtab(db,
1050: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 52 65   Tcl_GetStringRe
1060: 73 75 6c 74 28 69 6e 74 65 72 70 29 29 3b 0a 20  sult(interp));. 
1070: 20 7d 0a 0a 20 20 69 66 28 20 72 63 21 3d 53 51   }..  if( rc!=SQ
1080: 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 73  LITE_OK ){.    s
1090: 71 6c 69 74 65 33 5f 66 72 65 65 28 70 54 61 62  qlite3_free(pTab
10a0: 29 3b 0a 20 20 20 20 70 54 61 62 20 3d 20 30 3b  );.    pTab = 0;
10b0: 0a 20 20 7d 0a 0a 20 20 2a 70 70 56 74 61 62 20  .  }..  *ppVtab 
10c0: 3d 20 26 70 54 61 62 2d 3e 62 61 73 65 3b 0a 20  = &pTab->base;. 
10d0: 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 2f   return rc;.}../
10e0: 2a 20 54 68 65 20 78 44 69 73 63 6f 6e 6e 65 63  * The xDisconnec
10f0: 74 20 61 6e 64 20 78 44 65 73 74 72 6f 79 20 6d  t and xDestroy m
1100: 65 74 68 6f 64 73 20 61 72 65 20 61 6c 73 6f 20  ethods are also 
1110: 74 68 65 20 73 61 6d 65 20 2a 2f 0a 73 74 61 74  the same */.stat
1120: 69 63 20 69 6e 74 20 74 63 6c 44 69 73 63 6f 6e  ic int tclDiscon
1130: 6e 65 63 74 28 73 71 6c 69 74 65 33 5f 76 74 61  nect(sqlite3_vta
1140: 62 20 2a 70 56 74 61 62 29 7b 0a 20 20 74 63 6c  b *pVtab){.  tcl
1150: 5f 76 74 61 62 20 2a 70 54 61 62 20 3d 20 28 74  _vtab *pTab = (t
1160: 63 6c 5f 76 74 61 62 2a 29 70 56 74 61 62 3b 0a  cl_vtab*)pVtab;.
1170: 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75    Tcl_DecrRefCou
1180: 6e 74 28 70 54 61 62 2d 3e 70 43 6d 64 29 3b 0a  nt(pTab->pCmd);.
1190: 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 70    sqlite3_free(p
11a0: 54 61 62 29 3b 0a 20 20 72 65 74 75 72 6e 20 53  Tab);.  return S
11b0: 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a  QLITE_OK;.}../*.
11c0: 2a 2a 20 4f 70 65 6e 20 61 20 6e 65 77 20 74 63  ** Open a new tc
11d0: 6c 20 63 75 72 73 6f 72 2e 0a 2a 2f 0a 73 74 61  l cursor..*/.sta
11e0: 74 69 63 20 69 6e 74 20 74 63 6c 4f 70 65 6e 28  tic int tclOpen(
11f0: 73 71 6c 69 74 65 33 5f 76 74 61 62 20 2a 70 56  sqlite3_vtab *pV
1200: 54 61 62 2c 20 73 71 6c 69 74 65 33 5f 76 74 61  Tab, sqlite3_vta
1210: 62 5f 63 75 72 73 6f 72 20 2a 2a 70 70 43 75 72  b_cursor **ppCur
1220: 73 6f 72 29 7b 0a 20 20 74 63 6c 5f 63 75 72 73  sor){.  tcl_curs
1230: 6f 72 20 2a 70 43 75 72 3b 0a 20 20 70 43 75 72  or *pCur;.  pCur
1240: 20 3d 20 73 71 6c 69 74 65 33 5f 6d 61 6c 6c 6f   = sqlite3_mallo
1250: 63 28 73 69 7a 65 6f 66 28 74 63 6c 5f 63 75 72  c(sizeof(tcl_cur
1260: 73 6f 72 29 29 3b 0a 20 20 69 66 28 20 70 43 75  sor));.  if( pCu
1270: 72 3d 3d 30 20 29 20 72 65 74 75 72 6e 20 53 51  r==0 ) return SQ
1280: 4c 49 54 45 5f 4e 4f 4d 45 4d 3b 0a 20 20 6d 65  LITE_NOMEM;.  me
1290: 6d 73 65 74 28 70 43 75 72 2c 20 30 2c 20 73 69  mset(pCur, 0, si
12a0: 7a 65 6f 66 28 74 63 6c 5f 63 75 72 73 6f 72 29  zeof(tcl_cursor)
12b0: 29 3b 0a 20 20 2a 70 70 43 75 72 73 6f 72 20 3d  );.  *ppCursor =
12c0: 20 26 70 43 75 72 2d 3e 62 61 73 65 3b 0a 20 20   &pCur->base;.  
12d0: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b  return SQLITE_OK
12e0: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 6c 6f 73 65  ;.}../*.** Close
12f0: 20 61 20 74 63 6c 20 63 75 72 73 6f 72 2e 0a 2a   a tcl cursor..*
1300: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 63 6c  /.static int tcl
1310: 43 6c 6f 73 65 28 73 71 6c 69 74 65 33 5f 76 74  Close(sqlite3_vt
1320: 61 62 5f 63 75 72 73 6f 72 20 2a 63 75 72 29 7b  ab_cursor *cur){
1330: 0a 20 20 74 63 6c 5f 63 75 72 73 6f 72 20 2a 70  .  tcl_cursor *p
1340: 43 75 72 20 3d 20 28 74 63 6c 5f 63 75 72 73 6f  Cur = (tcl_curso
1350: 72 20 2a 29 63 75 72 3b 0a 20 20 73 71 6c 69 74  r *)cur;.  sqlit
1360: 65 33 5f 66 72 65 65 28 70 43 75 72 29 3b 0a 20  e3_free(pCur);. 
1370: 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f   return SQLITE_O
1380: 4b 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74  K;.}..static int
1390: 20 74 63 6c 4e 65 78 74 28 73 71 6c 69 74 65 33   tclNext(sqlite3
13a0: 5f 76 74 61 62 5f 63 75 72 73 6f 72 20 2a 63 75  _vtab_cursor *cu
13b0: 72 29 7b 0a 20 20 72 65 74 75 72 6e 20 53 51 4c  r){.  return SQL
13c0: 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61 74 69  ITE_OK;.}..stati
13d0: 63 20 69 6e 74 20 74 63 6c 46 69 6c 74 65 72 28  c int tclFilter(
13e0: 0a 20 20 73 71 6c 69 74 65 33 5f 76 74 61 62 5f  .  sqlite3_vtab_
13f0: 63 75 72 73 6f 72 20 2a 70 56 74 61 62 43 75 72  cursor *pVtabCur
1400: 73 6f 72 2c 20 0a 20 20 69 6e 74 20 69 64 78 4e  sor, .  int idxN
1410: 75 6d 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a  um, const char *
1420: 69 64 78 53 74 72 2c 0a 20 20 69 6e 74 20 61 72  idxStr,.  int ar
1430: 67 63 2c 20 73 71 6c 69 74 65 33 5f 76 61 6c 75  gc, sqlite3_valu
1440: 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 72 65  e **argv.){.  re
1450: 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a  turn SQLITE_OK;.
1460: 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 74 63  }..static int tc
1470: 6c 43 6f 6c 75 6d 6e 28 73 71 6c 69 74 65 33 5f  lColumn(sqlite3_
1480: 76 74 61 62 5f 63 75 72 73 6f 72 20 2a 63 75 72  vtab_cursor *cur
1490: 2c 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78  , sqlite3_contex
14a0: 74 20 2a 63 74 78 2c 20 69 6e 74 20 69 29 7b 0a  t *ctx, int i){.
14b0: 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f    return SQLITE_
14c0: 4f 4b 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e  OK;.}..static in
14d0: 74 20 74 63 6c 52 6f 77 69 64 28 73 71 6c 69 74  t tclRowid(sqlit
14e0: 65 33 5f 76 74 61 62 5f 63 75 72 73 6f 72 20 2a  e3_vtab_cursor *
14f0: 63 75 72 2c 20 73 71 6c 69 74 65 5f 69 6e 74 36  cur, sqlite_int6
1500: 34 20 2a 70 52 6f 77 69 64 29 7b 0a 20 20 72 65  4 *pRowid){.  re
1510: 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a  turn SQLITE_OK;.
1520: 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 74 63  }..static int tc
1530: 6c 45 6f 66 28 73 71 6c 69 74 65 33 5f 76 74 61  lEof(sqlite3_vta
1540: 62 5f 63 75 72 73 6f 72 20 2a 63 75 72 29 7b 0a  b_cursor *cur){.
1550: 20 20 72 65 74 75 72 6e 20 31 3b 0a 7d 0a 0a 73    return 1;.}..s
1560: 74 61 74 69 63 20 69 6e 74 20 74 63 6c 42 65 73  tatic int tclBes
1570: 74 49 6e 64 65 78 28 73 71 6c 69 74 65 33 5f 76  tIndex(sqlite3_v
1580: 74 61 62 20 2a 74 61 62 2c 20 73 71 6c 69 74 65  tab *tab, sqlite
1590: 33 5f 69 6e 64 65 78 5f 69 6e 66 6f 20 2a 70 49  3_index_info *pI
15a0: 64 78 49 6e 66 6f 29 7b 0a 20 20 74 63 6c 5f 76  dxInfo){.  tcl_v
15b0: 74 61 62 20 2a 70 54 61 62 20 3d 20 28 74 63 6c  tab *pTab = (tcl
15c0: 5f 76 74 61 62 2a 29 74 61 62 3b 0a 20 20 54 63  _vtab*)tab;.  Tc
15d0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70  l_Interp *interp
15e0: 20 3d 20 70 54 61 62 2d 3e 69 6e 74 65 72 70 3b   = pTab->interp;
15f0: 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 41 72 67  .  Tcl_Obj *pArg
1600: 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 53 63  ;.  Tcl_Obj *pSc
1610: 72 69 70 74 3b 0a 20 20 69 6e 74 20 69 69 3b 0a  ript;.  int ii;.
1620: 20 20 69 6e 74 20 72 63 20 3d 20 53 51 4c 49 54    int rc = SQLIT
1630: 45 5f 4f 4b 3b 0a 0a 20 20 70 53 63 72 69 70 74  E_OK;..  pScript
1640: 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63 61 74 65   = Tcl_Duplicate
1650: 4f 62 6a 28 70 54 61 62 2d 3e 70 43 6d 64 29 3b  Obj(pTab->pCmd);
1660: 0a 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f  .  Tcl_IncrRefCo
1670: 75 6e 74 28 70 53 63 72 69 70 74 29 3b 0a 20 20  unt(pScript);.  
1680: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e  Tcl_ListObjAppen
1690: 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c  dElement(interp,
16a0: 20 70 53 63 72 69 70 74 2c 20 54 63 6c 5f 4e 65   pScript, Tcl_Ne
16b0: 77 53 74 72 69 6e 67 4f 62 6a 28 22 78 42 65 73  wStringObj("xBes
16c0: 74 49 6e 64 65 78 22 2c 20 2d 31 29 29 3b 0a 0a  tIndex", -1));..
16d0: 20 20 70 41 72 67 20 3d 20 54 63 6c 5f 4e 65 77    pArg = Tcl_New
16e0: 4f 62 6a 28 29 3b 0a 20 20 54 63 6c 5f 49 6e 63  Obj();.  Tcl_Inc
16f0: 72 52 65 66 43 6f 75 6e 74 28 70 41 72 67 29 3b  rRefCount(pArg);
1700: 0a 20 20 66 6f 72 28 69 69 3d 30 3b 20 69 69 3c  .  for(ii=0; ii<
1710: 70 49 64 78 49 6e 66 6f 2d 3e 6e 43 6f 6e 73 74  pIdxInfo->nConst
1720: 72 61 69 6e 74 3b 20 69 69 2b 2b 29 7b 0a 20 20  raint; ii++){.  
1730: 20 20 73 74 72 75 63 74 20 73 71 6c 69 74 65 33    struct sqlite3
1740: 5f 69 6e 64 65 78 5f 63 6f 6e 73 74 72 61 69 6e  _index_constrain
1750: 74 20 63 6f 6e 73 74 20 2a 70 43 6f 6e 73 20 3d  t const *pCons =
1760: 20 26 70 49 64 78 49 6e 66 6f 2d 3e 61 43 6f 6e   &pIdxInfo->aCon
1770: 73 74 72 61 69 6e 74 5b 69 69 5d 3b 0a 20 20 20  straint[ii];.   
1780: 20 54 63 6c 5f 4f 62 6a 20 2a 70 45 6c 65 6d 20   Tcl_Obj *pElem 
1790: 3d 20 54 63 6c 5f 4e 65 77 4f 62 6a 28 29 3b 0a  = Tcl_NewObj();.
17a0: 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a      const char *
17b0: 7a 4f 70 20 3d 20 22 3f 22 3b 0a 0a 20 20 20 20  zOp = "?";..    
17c0: 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74  Tcl_IncrRefCount
17d0: 28 70 45 6c 65 6d 29 3b 0a 0a 20 20 20 20 73 77  (pElem);..    sw
17e0: 69 74 63 68 28 20 70 43 6f 6e 73 2d 3e 6f 70 20  itch( pCons->op 
17f0: 29 7b 0a 20 20 20 20 20 20 63 61 73 65 20 53 51  ){.      case SQ
1800: 4c 49 54 45 5f 49 4e 44 45 58 5f 43 4f 4e 53 54  LITE_INDEX_CONST
1810: 52 41 49 4e 54 5f 45 51 3a 0a 20 20 20 20 20 20  RAINT_EQ:.      
1820: 20 20 7a 4f 70 20 3d 20 22 65 71 22 3b 20 62 72    zOp = "eq"; br
1830: 65 61 6b 3b 0a 20 20 20 20 20 20 63 61 73 65 20  eak;.      case 
1840: 53 51 4c 49 54 45 5f 49 4e 44 45 58 5f 43 4f 4e  SQLITE_INDEX_CON
1850: 53 54 52 41 49 4e 54 5f 47 54 3a 0a 20 20 20 20  STRAINT_GT:.    
1860: 20 20 20 20 7a 4f 70 20 3d 20 22 67 74 22 3b 20      zOp = "gt"; 
1870: 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 63 61 73  break;.      cas
1880: 65 20 53 51 4c 49 54 45 5f 49 4e 44 45 58 5f 43  e SQLITE_INDEX_C
1890: 4f 4e 53 54 52 41 49 4e 54 5f 4c 45 3a 0a 20 20  ONSTRAINT_LE:.  
18a0: 20 20 20 20 20 20 7a 4f 70 20 3d 20 22 6c 65 22        zOp = "le"
18b0: 3b 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 63  ; break;.      c
18c0: 61 73 65 20 53 51 4c 49 54 45 5f 49 4e 44 45 58  ase SQLITE_INDEX
18d0: 5f 43 4f 4e 53 54 52 41 49 4e 54 5f 4c 54 3a 0a  _CONSTRAINT_LT:.
18e0: 20 20 20 20 20 20 20 20 7a 4f 70 20 3d 20 22 6c          zOp = "l
18f0: 74 22 3b 20 62 72 65 61 6b 3b 0a 20 20 20 20 20  t"; break;.     
1900: 20 63 61 73 65 20 53 51 4c 49 54 45 5f 49 4e 44   case SQLITE_IND
1910: 45 58 5f 43 4f 4e 53 54 52 41 49 4e 54 5f 47 45  EX_CONSTRAINT_GE
1920: 3a 0a 20 20 20 20 20 20 20 20 7a 4f 70 20 3d 20  :.        zOp = 
1930: 22 67 65 22 3b 20 62 72 65 61 6b 3b 0a 20 20 20  "ge"; break;.   
1940: 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 49     case SQLITE_I
1950: 4e 44 45 58 5f 43 4f 4e 53 54 52 41 49 4e 54 5f  NDEX_CONSTRAINT_
1960: 4d 41 54 43 48 3a 0a 20 20 20 20 20 20 20 20 7a  MATCH:.        z
1970: 4f 70 20 3d 20 22 6d 61 74 63 68 22 3b 20 62 72  Op = "match"; br
1980: 65 61 6b 3b 0a 20 20 20 20 20 20 63 61 73 65 20  eak;.      case 
1990: 53 51 4c 49 54 45 5f 49 4e 44 45 58 5f 43 4f 4e  SQLITE_INDEX_CON
19a0: 53 54 52 41 49 4e 54 5f 4c 49 4b 45 3a 0a 20 20  STRAINT_LIKE:.  
19b0: 20 20 20 20 20 20 7a 4f 70 20 3d 20 22 6c 69 6b        zOp = "lik
19c0: 65 22 3b 20 62 72 65 61 6b 3b 0a 20 20 20 20 20  e"; break;.     
19d0: 20 63 61 73 65 20 53 51 4c 49 54 45 5f 49 4e 44   case SQLITE_IND
19e0: 45 58 5f 43 4f 4e 53 54 52 41 49 4e 54 5f 47 4c  EX_CONSTRAINT_GL
19f0: 4f 42 3a 0a 20 20 20 20 20 20 20 20 7a 4f 70 20  OB:.        zOp 
1a00: 3d 20 22 67 6c 6f 62 22 3b 20 62 72 65 61 6b 3b  = "glob"; break;
1a10: 0a 20 20 20 20 20 20 63 61 73 65 20 53 51 4c 49  .      case SQLI
1a20: 54 45 5f 49 4e 44 45 58 5f 43 4f 4e 53 54 52 41  TE_INDEX_CONSTRA
1a30: 49 4e 54 5f 52 45 47 45 58 50 3a 0a 20 20 20 20  INT_REGEXP:.    
1a40: 20 20 20 20 7a 4f 70 20 3d 20 22 72 65 67 65 78      zOp = "regex
1a50: 70 22 3b 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d  p"; break;.    }
1a60: 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62  ..    Tcl_ListOb
1a70: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 30  jAppendElement(0
1a80: 2c 20 70 45 6c 65 6d 2c 20 54 63 6c 5f 4e 65 77  , pElem, Tcl_New
1a90: 53 74 72 69 6e 67 4f 62 6a 28 22 6f 70 22 2c 20  StringObj("op", 
1aa0: 2d 31 29 29 3b 0a 20 20 20 20 54 63 6c 5f 4c 69  -1));.    Tcl_Li
1ab0: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65  stObjAppendEleme
1ac0: 6e 74 28 30 2c 20 70 45 6c 65 6d 2c 20 54 63 6c  nt(0, pElem, Tcl
1ad0: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 7a 4f  _NewStringObj(zO
1ae0: 70 2c 20 2d 31 29 29 3b 0a 20 20 20 20 54 63 6c  p, -1));.    Tcl
1af0: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c  _ListObjAppendEl
1b00: 65 6d 65 6e 74 28 30 2c 20 70 45 6c 65 6d 2c 20  ement(0, pElem, 
1b10: 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a  Tcl_NewStringObj
1b20: 28 22 63 6f 6c 75 6d 6e 22 2c 20 2d 31 29 29 3b  ("column", -1));
1b30: 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a  .    Tcl_ListObj
1b40: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 30 2c  AppendElement(0,
1b50: 20 70 45 6c 65 6d 2c 20 54 63 6c 5f 4e 65 77 49   pElem, Tcl_NewI
1b60: 6e 74 4f 62 6a 28 70 43 6f 6e 73 2d 3e 69 43 6f  ntObj(pCons->iCo
1b70: 6c 75 6d 6e 29 29 3b 0a 20 20 20 20 54 63 6c 5f  lumn));.    Tcl_
1b80: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65  ListObjAppendEle
1b90: 6d 65 6e 74 28 30 2c 20 70 45 6c 65 6d 2c 20 54  ment(0, pElem, T
1ba0: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28  cl_NewStringObj(
1bb0: 22 75 73 61 62 6c 65 22 2c 20 2d 31 29 29 3b 0a  "usable", -1));.
1bc0: 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41      Tcl_ListObjA
1bd0: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 30 2c 20  ppendElement(0, 
1be0: 70 45 6c 65 6d 2c 20 54 63 6c 5f 4e 65 77 49 6e  pElem, Tcl_NewIn
1bf0: 74 4f 62 6a 28 70 43 6f 6e 73 2d 3e 75 73 61 62  tObj(pCons->usab
1c00: 6c 65 29 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c  le));..    Tcl_L
1c10: 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d  istObjAppendElem
1c20: 65 6e 74 28 30 2c 20 70 41 72 67 2c 20 70 45 6c  ent(0, pArg, pEl
1c30: 65 6d 29 3b 0a 20 20 20 20 54 63 6c 5f 44 65 63  em);.    Tcl_Dec
1c40: 72 52 65 66 43 6f 75 6e 74 28 70 45 6c 65 6d 29  rRefCount(pElem)
1c50: 3b 0a 20 20 7d 0a 0a 20 20 54 63 6c 5f 4c 69 73  ;.  }..  Tcl_Lis
1c60: 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e  tObjAppendElemen
1c70: 74 28 30 2c 20 70 53 63 72 69 70 74 2c 20 70 41  t(0, pScript, pA
1c80: 72 67 29 3b 0a 20 20 54 63 6c 5f 44 65 63 72 52  rg);.  Tcl_DecrR
1c90: 65 66 43 6f 75 6e 74 28 70 41 72 67 29 3b 0a 0a  efCount(pArg);..
1ca0: 20 20 70 41 72 67 20 3d 20 54 63 6c 5f 4e 65 77    pArg = Tcl_New
1cb0: 4f 62 6a 28 29 3b 0a 20 20 54 63 6c 5f 49 6e 63  Obj();.  Tcl_Inc
1cc0: 72 52 65 66 43 6f 75 6e 74 28 70 41 72 67 29 3b  rRefCount(pArg);
1cd0: 0a 20 20 66 6f 72 28 69 69 3d 30 3b 20 69 69 3c  .  for(ii=0; ii<
1ce0: 70 49 64 78 49 6e 66 6f 2d 3e 6e 4f 72 64 65 72  pIdxInfo->nOrder
1cf0: 42 79 3b 20 69 69 2b 2b 29 7b 0a 20 20 20 20 73  By; ii++){.    s
1d00: 74 72 75 63 74 20 73 71 6c 69 74 65 33 5f 69 6e  truct sqlite3_in
1d10: 64 65 78 5f 6f 72 64 65 72 62 79 20 63 6f 6e 73  dex_orderby cons
1d20: 74 20 2a 70 4f 72 64 65 72 20 3d 20 26 70 49 64  t *pOrder = &pId
1d30: 78 49 6e 66 6f 2d 3e 61 4f 72 64 65 72 42 79 5b  xInfo->aOrderBy[
1d40: 69 69 5d 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a  ii];.    Tcl_Obj
1d50: 20 2a 70 45 6c 65 6d 20 3d 20 54 63 6c 5f 4e 65   *pElem = Tcl_Ne
1d60: 77 4f 62 6a 28 29 3b 0a 20 20 20 20 54 63 6c 5f  wObj();.    Tcl_
1d70: 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 70 45 6c  IncrRefCount(pEl
1d80: 65 6d 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c 69  em);..    Tcl_Li
1d90: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65  stObjAppendEleme
1da0: 6e 74 28 30 2c 20 70 45 6c 65 6d 2c 20 54 63 6c  nt(0, pElem, Tcl
1db0: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 63  _NewStringObj("c
1dc0: 6f 6c 75 6d 6e 22 2c 20 2d 31 29 29 3b 0a 20 20  olumn", -1));.  
1dd0: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70    Tcl_ListObjApp
1de0: 65 6e 64 45 6c 65 6d 65 6e 74 28 30 2c 20 70 45  endElement(0, pE
1df0: 6c 65 6d 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f  lem, Tcl_NewIntO
1e00: 62 6a 28 70 4f 72 64 65 72 2d 3e 69 43 6f 6c 75  bj(pOrder->iColu
1e10: 6d 6e 29 29 3b 0a 20 20 20 20 54 63 6c 5f 4c 69  mn));.    Tcl_Li
1e20: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65  stObjAppendEleme
1e30: 6e 74 28 30 2c 20 70 45 6c 65 6d 2c 20 54 63 6c  nt(0, pElem, Tcl
1e40: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 64  _NewStringObj("d
1e50: 65 73 63 22 2c 20 2d 31 29 29 3b 0a 20 20 20 20  esc", -1));.    
1e60: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e  Tcl_ListObjAppen
1e70: 64 45 6c 65 6d 65 6e 74 28 30 2c 20 70 45 6c 65  dElement(0, pEle
1e80: 6d 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a  m, Tcl_NewIntObj
1e90: 28 70 4f 72 64 65 72 2d 3e 64 65 73 63 29 29 3b  (pOrder->desc));
1ea0: 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62  ..    Tcl_ListOb
1eb0: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 30  jAppendElement(0
1ec0: 2c 20 70 41 72 67 2c 20 70 45 6c 65 6d 29 3b 0a  , pArg, pElem);.
1ed0: 20 20 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43      Tcl_DecrRefC
1ee0: 6f 75 6e 74 28 70 45 6c 65 6d 29 3b 0a 20 20 7d  ount(pElem);.  }
1ef0: 0a 0a 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41  ..  Tcl_ListObjA
1f00: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 30 2c 20  ppendElement(0, 
1f10: 70 53 63 72 69 70 74 2c 20 70 41 72 67 29 3b 0a  pScript, pArg);.
1f20: 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75    Tcl_DecrRefCou
1f30: 6e 74 28 70 41 72 67 29 3b 0a 0a 20 20 54 63 6c  nt(pArg);..  Tcl
1f40: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c  _ListObjAppendEl
1f50: 65 6d 65 6e 74 28 30 2c 20 70 53 63 72 69 70 74  ement(0, pScript
1f60: 2c 20 54 63 6c 5f 4e 65 77 57 69 64 65 49 6e 74  , Tcl_NewWideInt
1f70: 4f 62 6a 28 70 49 64 78 49 6e 66 6f 2d 3e 63 6f  Obj(pIdxInfo->co
1f80: 6c 55 73 65 64 29 29 3b 0a 0a 20 20 72 63 20 3d  lUsed));..  rc =
1f90: 20 54 63 6c 5f 45 76 61 6c 4f 62 6a 45 78 28 69   Tcl_EvalObjEx(i
1fa0: 6e 74 65 72 70 2c 20 70 53 63 72 69 70 74 2c 20  nterp, pScript, 
1fb0: 54 43 4c 5f 45 56 41 4c 5f 47 4c 4f 42 41 4c 29  TCL_EVAL_GLOBAL)
1fc0: 3b 0a 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43  ;.  Tcl_DecrRefC
1fd0: 6f 75 6e 74 28 70 53 63 72 69 70 74 29 3b 0a 20  ount(pScript);. 
1fe0: 20 69 66 28 20 72 63 21 3d 54 43 4c 5f 4f 4b 20   if( rc!=TCL_OK 
1ff0: 29 7b 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 61  ){.    const cha
2000: 72 20 2a 7a 45 72 72 20 3d 20 54 63 6c 5f 47 65  r *zErr = Tcl_Ge
2010: 74 53 74 72 69 6e 67 52 65 73 75 6c 74 28 69 6e  tStringResult(in
2020: 74 65 72 70 29 3b 0a 20 20 20 20 72 63 20 3d 20  terp);.    rc = 
2030: 53 51 4c 49 54 45 5f 45 52 52 4f 52 3b 0a 20 20  SQLITE_ERROR;.  
2040: 20 20 70 54 61 62 2d 3e 62 61 73 65 2e 7a 45 72    pTab->base.zEr
2050: 72 4d 73 67 20 3d 20 73 71 6c 69 74 65 33 5f 6d  rMsg = sqlite3_m
2060: 70 72 69 6e 74 66 28 22 25 73 22 2c 20 7a 45 72  printf("%s", zEr
2070: 72 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20  r);.  }else{.   
2080: 20 2f 2a 20 41 6e 61 6c 79 7a 65 20 74 68 65 20   /* Analyze the 
2090: 73 63 72 69 70 74 73 20 72 65 74 75 72 6e 20 76  scripts return v
20a0: 61 6c 75 65 2e 20 54 68 65 20 72 65 74 75 72 6e  alue. The return
20b0: 20 76 61 6c 75 65 20 73 68 6f 75 6c 64 20 62 65   value should be
20c0: 20 61 20 74 63 6c 20 0a 20 20 20 20 2a 2a 20 6c   a tcl .    ** l
20d0: 69 73 74 20 6f 62 6a 65 63 74 20 77 69 74 68 20  ist object with 
20e0: 61 6e 20 65 76 65 6e 20 6e 75 6d 62 65 72 20 6f  an even number o
20f0: 66 20 65 6c 65 6d 65 6e 74 73 2e 20 54 68 65 20  f elements. The 
2100: 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 20 6f 66  first element of
2110: 20 65 61 63 68 0a 20 20 20 20 2a 2a 20 70 61 69   each.    ** pai
2120: 72 20 6d 75 73 74 20 62 65 20 6f 6e 65 20 6f 66  r must be one of
2130: 3a 0a 20 20 20 20 2a 2a 20 0a 20 20 20 20 2a 2a  :.    ** .    **
2140: 20 20 20 22 6f 72 64 65 72 62 79 22 20 20 20 20     "orderby"    
2150: 20 20 20 20 20 20 28 76 61 6c 75 65 20 6f 66 20        (value of 
2160: 6f 72 64 65 72 42 79 43 6f 6e 73 75 6d 65 64 20  orderByConsumed 
2170: 66 6c 61 67 29 0a 20 20 20 20 2a 2a 20 20 20 22  flag).    **   "
2180: 63 6f 73 74 22 20 20 20 20 20 20 20 20 20 20 20  cost"           
2190: 20 20 28 76 61 6c 75 65 20 6f 66 20 65 73 74 69    (value of esti
21a0: 6d 61 74 65 64 43 6f 73 74 20 66 69 65 6c 64 29  matedCost field)
21b0: 0a 20 20 20 20 2a 2a 20 20 20 22 72 6f 77 73 22  .    **   "rows"
21c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 61               (va
21d0: 6c 75 65 20 6f 66 20 65 73 74 69 6d 61 74 65 64  lue of estimated
21e0: 52 6f 77 73 20 66 69 65 6c 64 29 0a 20 20 20 20  Rows field).    
21f0: 2a 2a 20 20 20 22 75 73 65 22 20 20 20 20 20 20  **   "use"      
2200: 20 20 20 20 20 20 20 20 28 69 6e 64 65 78 20 6f          (index o
2210: 66 20 75 73 65 64 20 63 6f 6e 73 74 72 61 69 6e  f used constrain
2220: 74 20 69 6e 20 61 43 6f 6e 73 74 72 61 69 6e 74  t in aConstraint
2230: 5b 5d 29 0a 20 20 20 20 2a 2a 20 20 20 22 69 64  []).    **   "id
2240: 78 6e 75 6d 22 20 20 20 20 20 20 20 20 20 20 20  xnum"           
2250: 28 76 61 6c 75 65 20 6f 66 20 69 64 78 4e 75 6d  (value of idxNum
2260: 20 66 69 65 6c 64 29 0a 20 20 20 20 2a 2a 20 20   field).    **  
2270: 20 22 69 64 78 73 74 72 22 20 20 20 20 20 20 20   "idxstr"       
2280: 20 20 20 20 28 76 61 6c 75 65 20 6f 66 20 69 64      (value of id
2290: 78 53 74 72 20 66 69 65 6c 64 29 0a 20 20 20 20  xStr field).    
22a0: 2a 2f 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a  */.    Tcl_Obj *
22b0: 70 52 65 73 20 3d 20 54 63 6c 5f 47 65 74 4f 62  pRes = Tcl_GetOb
22c0: 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b  jResult(interp);
22d0: 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 2a 61  .    Tcl_Obj **a
22e0: 70 45 6c 65 6d 20 3d 20 30 3b 0a 20 20 20 20 69  pElem = 0;.    i
22f0: 6e 74 20 6e 45 6c 65 6d 3b 0a 20 20 20 20 72 63  nt nElem;.    rc
2300: 20 3d 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 47 65   = Tcl_ListObjGe
2310: 74 45 6c 65 6d 65 6e 74 73 28 69 6e 74 65 72 70  tElements(interp
2320: 2c 20 70 52 65 73 2c 20 26 6e 45 6c 65 6d 2c 20  , pRes, &nElem, 
2330: 26 61 70 45 6c 65 6d 29 3b 0a 20 20 20 20 69 66  &apElem);.    if
2340: 28 20 72 63 21 3d 54 43 4c 5f 4f 4b 20 29 7b 0a  ( rc!=TCL_OK ){.
2350: 20 20 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72        const char
2360: 20 2a 7a 45 72 72 20 3d 20 54 63 6c 5f 47 65 74   *zErr = Tcl_Get
2370: 53 74 72 69 6e 67 52 65 73 75 6c 74 28 69 6e 74  StringResult(int
2380: 65 72 70 29 3b 0a 20 20 20 20 20 20 72 63 20 3d  erp);.      rc =
2390: 20 53 51 4c 49 54 45 5f 45 52 52 4f 52 3b 0a 20   SQLITE_ERROR;. 
23a0: 20 20 20 20 20 70 54 61 62 2d 3e 62 61 73 65 2e       pTab->base.
23b0: 7a 45 72 72 4d 73 67 20 3d 20 73 71 6c 69 74 65  zErrMsg = sqlite
23c0: 33 5f 6d 70 72 69 6e 74 66 28 22 25 73 22 2c 20  3_mprintf("%s", 
23d0: 7a 45 72 72 29 3b 0a 20 20 20 20 7d 65 6c 73 65  zErr);.    }else
23e0: 7b 0a 20 20 20 20 20 20 69 6e 74 20 69 41 72 67  {.      int iArg
23f0: 76 20 3d 20 31 3b 0a 20 20 20 20 20 20 66 6f 72  v = 1;.      for
2400: 28 69 69 3d 30 3b 20 72 63 3d 3d 53 51 4c 49 54  (ii=0; rc==SQLIT
2410: 45 5f 4f 4b 20 26 26 20 69 69 3c 6e 45 6c 65 6d  E_OK && ii<nElem
2420: 3b 20 69 69 2b 3d 32 29 7b 0a 20 20 20 20 20 20  ; ii+=2){.      
2430: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 43    const char *zC
2440: 6d 64 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69  md = Tcl_GetStri
2450: 6e 67 28 61 70 45 6c 65 6d 5b 69 69 5d 29 3b 0a  ng(apElem[ii]);.
2460: 20 20 20 20 20 20 20 20 54 63 6c 5f 4f 62 6a 20          Tcl_Obj 
2470: 2a 70 20 3d 20 61 70 45 6c 65 6d 5b 69 69 2b 31  *p = apElem[ii+1
2480: 5d 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 73  ];.        if( s
2490: 71 6c 69 74 65 33 5f 73 74 72 69 63 6d 70 28 22  qlite3_stricmp("
24a0: 63 6f 73 74 22 2c 20 7a 43 6d 64 29 3d 3d 30 20  cost", zCmd)==0 
24b0: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 72 63 20  ){.          rc 
24c0: 3d 20 54 63 6c 5f 47 65 74 44 6f 75 62 6c 65 46  = Tcl_GetDoubleF
24d0: 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 70  romObj(interp, p
24e0: 2c 20 26 70 49 64 78 49 6e 66 6f 2d 3e 65 73 74  , &pIdxInfo->est
24f0: 69 6d 61 74 65 64 43 6f 73 74 29 3b 0a 20 20 20  imatedCost);.   
2500: 20 20 20 20 20 7d 65 6c 73 65 0a 20 20 20 20 20       }else.     
2510: 20 20 20 69 66 28 20 73 71 6c 69 74 65 33 5f 73     if( sqlite3_s
2520: 74 72 69 63 6d 70 28 22 6f 72 64 65 72 62 79 22  tricmp("orderby"
2530: 2c 20 7a 43 6d 64 29 3d 3d 30 20 29 7b 0a 20 20  , zCmd)==0 ){.  
2540: 20 20 20 20 20 20 20 20 72 63 20 3d 20 54 63 6c          rc = Tcl
2550: 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69  _GetIntFromObj(i
2560: 6e 74 65 72 70 2c 20 70 2c 20 26 70 49 64 78 49  nterp, p, &pIdxI
2570: 6e 66 6f 2d 3e 6f 72 64 65 72 42 79 43 6f 6e 73  nfo->orderByCons
2580: 75 6d 65 64 29 3b 0a 20 20 20 20 20 20 20 20 7d  umed);.        }
2590: 65 6c 73 65 0a 20 20 20 20 20 20 20 20 69 66 28  else.        if(
25a0: 20 73 71 6c 69 74 65 33 5f 73 74 72 69 63 6d 70   sqlite3_stricmp
25b0: 28 22 69 64 78 6e 75 6d 22 2c 20 7a 43 6d 64 29  ("idxnum", zCmd)
25c0: 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20  ==0 ){.         
25d0: 20 72 63 20 3d 20 54 63 6c 5f 47 65 74 49 6e 74   rc = Tcl_GetInt
25e0: 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20  FromObj(interp, 
25f0: 70 2c 20 26 70 49 64 78 49 6e 66 6f 2d 3e 69 64  p, &pIdxInfo->id
2600: 78 4e 75 6d 29 3b 0a 20 20 20 20 20 20 20 20 7d  xNum);.        }
2610: 65 6c 73 65 0a 20 20 20 20 20 20 20 20 69 66 28  else.        if(
2620: 20 73 71 6c 69 74 65 33 5f 73 74 72 69 63 6d 70   sqlite3_stricmp
2630: 28 22 69 64 78 73 74 72 22 2c 20 7a 43 6d 64 29  ("idxstr", zCmd)
2640: 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20  ==0 ){.         
2650: 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 70 49   sqlite3_free(pI
2660: 64 78 49 6e 66 6f 2d 3e 69 64 78 53 74 72 29 3b  dxInfo->idxStr);
2670: 0a 20 20 20 20 20 20 20 20 20 20 70 49 64 78 49  .          pIdxI
2680: 6e 66 6f 2d 3e 69 64 78 53 74 72 20 3d 20 73 71  nfo->idxStr = sq
2690: 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 28 22 25  lite3_mprintf("%
26a0: 73 22 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e  s", Tcl_GetStrin
26b0: 67 28 70 29 29 3b 0a 20 20 20 20 20 20 20 20 7d  g(p));.        }
26c0: 65 6c 73 65 0a 20 20 20 20 20 20 20 20 69 66 28  else.        if(
26d0: 20 73 71 6c 69 74 65 33 5f 73 74 72 69 63 6d 70   sqlite3_stricmp
26e0: 28 22 72 6f 77 73 22 2c 20 7a 43 6d 64 29 3d 3d  ("rows", zCmd)==
26f0: 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 72  0 ){.          r
2700: 63 20 3d 20 54 63 6c 5f 47 65 74 57 69 64 65 49  c = Tcl_GetWideI
2710: 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70  ntFromObj(interp
2720: 2c 20 70 2c 20 26 70 49 64 78 49 6e 66 6f 2d 3e  , p, &pIdxInfo->
2730: 65 73 74 69 6d 61 74 65 64 52 6f 77 73 29 3b 0a  estimatedRows);.
2740: 20 20 20 20 20 20 20 20 7d 65 6c 73 65 0a 20 20          }else.  
2750: 20 20 20 20 20 20 69 66 28 20 73 71 6c 69 74 65        if( sqlite
2760: 33 5f 73 74 72 69 63 6d 70 28 22 75 73 65 22 2c  3_stricmp("use",
2770: 20 7a 43 6d 64 29 3d 3d 30 20 29 7b 0a 20 20 20   zCmd)==0 ){.   
2780: 20 20 20 20 20 20 20 69 6e 74 20 69 43 6f 6e 73         int iCons
2790: 3b 0a 20 20 20 20 20 20 20 20 20 20 72 63 20 3d  ;.          rc =
27a0: 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f   Tcl_GetIntFromO
27b0: 62 6a 28 69 6e 74 65 72 70 2c 20 70 2c 20 26 69  bj(interp, p, &i
27c0: 43 6f 6e 73 29 3b 0a 20 20 20 20 20 20 20 20 20  Cons);.         
27d0: 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f   if( rc==SQLITE_
27e0: 4f 4b 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20  OK ){.          
27f0: 20 20 69 66 28 20 69 43 6f 6e 73 3c 30 20 7c 7c    if( iCons<0 ||
2800: 20 69 43 6f 6e 73 3e 3d 70 49 64 78 49 6e 66 6f   iCons>=pIdxInfo
2810: 2d 3e 6e 43 6f 6e 73 74 72 61 69 6e 74 20 29 7b  ->nConstraint ){
2820: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72  .              r
2830: 63 20 3d 20 53 51 4c 49 54 45 5f 45 52 52 4f 52  c = SQLITE_ERROR
2840: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ;.              
2850: 70 54 61 62 2d 3e 62 61 73 65 2e 7a 45 72 72 4d  pTab->base.zErrM
2860: 73 67 20 3d 20 73 71 6c 69 74 65 33 5f 6d 70 72  sg = sqlite3_mpr
2870: 69 6e 74 66 28 22 75 6e 65 78 70 65 63 74 65 64  intf("unexpected
2880: 3a 20 25 64 22 2c 20 69 43 6f 6e 73 29 3b 0a 20  : %d", iCons);. 
2890: 20 20 20 20 20 20 20 20 20 20 20 7d 65 6c 73 65             }else
28a0: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  {.              
28b0: 70 49 64 78 49 6e 66 6f 2d 3e 61 43 6f 6e 73 74  pIdxInfo->aConst
28c0: 72 61 69 6e 74 55 73 61 67 65 5b 69 43 6f 6e 73  raintUsage[iCons
28d0: 5d 2e 61 72 67 76 49 6e 64 65 78 20 3d 20 69 41  ].argvIndex = iA
28e0: 72 67 76 2b 2b 3b 0a 20 20 20 20 20 20 20 20 20  rgv++;.         
28f0: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20 7d     }.          }
2900: 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a  .        }else{.
2910: 20 20 20 20 20 20 20 20 20 20 72 63 20 3d 20 53            rc = S
2920: 51 4c 49 54 45 5f 45 52 52 4f 52 3b 0a 20 20 20  QLITE_ERROR;.   
2930: 20 20 20 20 20 20 20 70 54 61 62 2d 3e 62 61 73         pTab->bas
2940: 65 2e 7a 45 72 72 4d 73 67 20 3d 20 73 71 6c 69  e.zErrMsg = sqli
2950: 74 65 33 5f 6d 70 72 69 6e 74 66 28 22 75 6e 65  te3_mprintf("une
2960: 78 70 65 63 74 65 64 3a 20 25 73 22 2c 20 7a 43  xpected: %s", zC
2970: 6d 64 29 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20  md);.        }. 
2980: 20 20 20 20 20 20 20 69 66 28 20 72 63 21 3d 53         if( rc!=S
2990: 51 4c 49 54 45 5f 4f 4b 20 26 26 20 70 54 61 62  QLITE_OK && pTab
29a0: 2d 3e 62 61 73 65 2e 7a 45 72 72 4d 73 67 3d 3d  ->base.zErrMsg==
29b0: 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 63  0 ){.          c
29c0: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 45 72 72 20  onst char *zErr 
29d0: 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 52  = Tcl_GetStringR
29e0: 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 20  esult(interp);. 
29f0: 20 20 20 20 20 20 20 20 20 70 54 61 62 2d 3e 62           pTab->b
2a00: 61 73 65 2e 7a 45 72 72 4d 73 67 20 3d 20 73 71  ase.zErrMsg = sq
2a10: 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 28 22 25  lite3_mprintf("%
2a20: 73 22 2c 20 7a 45 72 72 29 3b 0a 20 20 20 20 20  s", zErr);.     
2a30: 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20     }.      }.   
2a40: 20 7d 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e   }.  }..  return
2a50: 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 41 20   rc;.}../*.** A 
2a60: 76 69 72 74 75 61 6c 20 74 61 62 6c 65 20 6d 6f  virtual table mo
2a70: 64 75 6c 65 20 74 68 61 74 20 70 72 6f 76 69 64  dule that provid
2a80: 65 73 20 72 65 61 64 2d 6f 6e 6c 79 20 61 63 63  es read-only acc
2a90: 65 73 73 20 74 6f 20 61 0a 2a 2a 20 54 63 6c 20  ess to a.** Tcl 
2aa0: 67 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 20  global variable 
2ab0: 6e 61 6d 65 73 70 61 63 65 2e 0a 2a 2f 0a 73 74  namespace..*/.st
2ac0: 61 74 69 63 20 73 71 6c 69 74 65 33 5f 6d 6f 64  atic sqlite3_mod
2ad0: 75 6c 65 20 74 63 6c 4d 6f 64 75 6c 65 20 3d 20  ule tclModule = 
2ae0: 7b 0a 20 20 30 2c 20 20 20 20 20 20 20 20 20 20  {.  0,          
2af0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
2b00: 2a 20 69 56 65 72 73 69 6f 6e 20 2a 2f 0a 20 20  * iVersion */.  
2b10: 74 63 6c 43 6f 6e 6e 65 63 74 2c 0a 20 20 74 63  tclConnect,.  tc
2b20: 6c 43 6f 6e 6e 65 63 74 2c 0a 20 20 74 63 6c 42  lConnect,.  tclB
2b30: 65 73 74 49 6e 64 65 78 2c 0a 20 20 74 63 6c 44  estIndex,.  tclD
2b40: 69 73 63 6f 6e 6e 65 63 74 2c 20 0a 20 20 74 63  isconnect, .  tc
2b50: 6c 44 69 73 63 6f 6e 6e 65 63 74 2c 0a 20 20 74  lDisconnect,.  t
2b60: 63 6c 4f 70 65 6e 2c 20 20 20 20 20 20 20 20 20  clOpen,         
2b70: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
2b80: 78 4f 70 65 6e 20 2d 20 6f 70 65 6e 20 61 20 63  xOpen - open a c
2b90: 75 72 73 6f 72 20 2a 2f 0a 20 20 74 63 6c 43 6c  ursor */.  tclCl
2ba0: 6f 73 65 2c 20 20 20 20 20 20 20 20 20 20 20 20  ose,            
2bb0: 20 20 20 20 20 20 20 20 20 2f 2a 20 78 43 6c 6f           /* xClo
2bc0: 73 65 20 2d 20 63 6c 6f 73 65 20 61 20 63 75 72  se - close a cur
2bd0: 73 6f 72 20 2a 2f 0a 20 20 74 63 6c 46 69 6c 74  sor */.  tclFilt
2be0: 65 72 2c 20 20 20 20 20 20 20 20 20 20 20 20 20  er,             
2bf0: 20 20 20 20 20 20 20 2f 2a 20 78 46 69 6c 74 65         /* xFilte
2c00: 72 20 2d 20 63 6f 6e 66 69 67 75 72 65 20 73 63  r - configure sc
2c10: 61 6e 20 63 6f 6e 73 74 72 61 69 6e 74 73 20 2a  an constraints *
2c20: 2f 0a 20 20 74 63 6c 4e 65 78 74 2c 20 20 20 20  /.  tclNext,    
2c30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2c40: 20 20 2f 2a 20 78 4e 65 78 74 20 2d 20 61 64 76    /* xNext - adv
2c50: 61 6e 63 65 20 61 20 63 75 72 73 6f 72 20 2a 2f  ance a cursor */
2c60: 0a 20 20 74 63 6c 45 6f 66 2c 20 20 20 20 20 20  .  tclEof,      
2c70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2c80: 20 2f 2a 20 78 45 6f 66 20 2d 20 63 68 65 63 6b   /* xEof - check
2c90: 20 66 6f 72 20 65 6e 64 20 6f 66 20 73 63 61 6e   for end of scan
2ca0: 20 2a 2f 0a 20 20 74 63 6c 43 6f 6c 75 6d 6e 2c   */.  tclColumn,
2cb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2cc0: 20 20 20 20 2f 2a 20 78 43 6f 6c 75 6d 6e 20 2d      /* xColumn -
2cd0: 20 72 65 61 64 20 64 61 74 61 20 2a 2f 0a 20 20   read data */.  
2ce0: 74 63 6c 52 6f 77 69 64 2c 20 20 20 20 20 20 20  tclRowid,       
2cf0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
2d00: 20 78 52 6f 77 69 64 20 2d 20 72 65 61 64 20 64   xRowid - read d
2d10: 61 74 61 20 2a 2f 0a 20 20 30 2c 20 20 20 20 20  ata */.  0,     
2d20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2d30: 20 20 20 20 20 20 2f 2a 20 78 55 70 64 61 74 65        /* xUpdate
2d40: 20 2a 2f 0a 20 20 30 2c 20 20 20 20 20 20 20 20   */.  0,        
2d50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2d60: 20 20 20 2f 2a 20 78 42 65 67 69 6e 20 2a 2f 0a     /* xBegin */.
2d70: 20 20 30 2c 20 20 20 20 20 20 20 20 20 20 20 20    0,            
2d80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
2d90: 2a 20 78 53 79 6e 63 20 2a 2f 0a 20 20 30 2c 20  * xSync */.  0, 
2da0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2db0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 43 6f            /* xCo
2dc0: 6d 6d 69 74 20 2a 2f 0a 20 20 30 2c 20 20 20 20  mmit */.  0,    
2dd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2de0: 20 20 20 20 20 20 20 2f 2a 20 78 52 6f 6c 6c 62         /* xRollb
2df0: 61 63 6b 20 2a 2f 0a 20 20 30 2c 20 20 20 20 20  ack */.  0,     
2e00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2e10: 20 20 20 20 20 20 2f 2a 20 78 46 69 6e 64 4d 65        /* xFindMe
2e20: 74 68 6f 64 20 2a 2f 0a 20 20 30 2c 20 20 20 20  thod */.  0,    
2e30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2e40: 20 20 20 20 20 20 20 2f 2a 20 78 52 65 6e 61 6d         /* xRenam
2e50: 65 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 44  e */.};../*.** D
2e60: 65 63 6f 64 65 20 61 20 70 6f 69 6e 74 65 72 20  ecode a pointer 
2e70: 74 6f 20 61 6e 20 73 71 6c 69 74 65 33 20 6f 62  to an sqlite3 ob
2e80: 6a 65 63 74 2e 0a 2a 2f 0a 65 78 74 65 72 6e 20  ject..*/.extern 
2e90: 69 6e 74 20 67 65 74 44 62 50 6f 69 6e 74 65 72  int getDbPointer
2ea0: 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74  (Tcl_Interp *int
2eb0: 65 72 70 2c 20 63 6f 6e 73 74 20 63 68 61 72 20  erp, const char 
2ec0: 2a 7a 41 2c 20 73 71 6c 69 74 65 33 20 2a 2a 70  *zA, sqlite3 **p
2ed0: 70 44 62 29 3b 0a 0a 2f 2a 0a 2a 2a 20 52 65 67  pDb);../*.** Reg
2ee0: 69 73 74 65 72 20 74 68 65 20 65 63 68 6f 20 76  ister the echo v
2ef0: 69 72 74 75 61 6c 20 74 61 62 6c 65 20 6d 6f 64  irtual table mod
2f00: 75 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69  ule..*/.static i
2f10: 6e 74 20 72 65 67 69 73 74 65 72 5f 74 63 6c 5f  nt register_tcl_
2f20: 6d 6f 64 75 6c 65 28 0a 20 20 43 6c 69 65 6e 74  module(.  Client
2f30: 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c  Data clientData,
2f40: 20 2f 2a 20 50 6f 69 6e 74 65 72 20 74 6f 20 73   /* Pointer to s
2f50: 71 6c 69 74 65 33 5f 65 6e 61 62 6c 65 5f 58 58  qlite3_enable_XX
2f60: 58 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20  X function */.  
2f70: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65  Tcl_Interp *inte
2f80: 72 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43  rp,    /* The TC
2f90: 4c 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 68  L interpreter th
2fa0: 61 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20  at invoked this 
2fb0: 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74  command */.  int
2fc0: 20 6f 62 6a 63 2c 20 20 20 20 20 20 20 20 20 20   objc,          
2fd0: 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66      /* Number of
2fe0: 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20   arguments */.  
2ff0: 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f  Tcl_Obj *CONST o
3000: 62 6a 76 5b 5d 20 20 2f 2a 20 43 6f 6d 6d 61 6e  bjv[]  /* Comman
3010: 64 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 29  d arguments */.)
3020: 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 3b  {.  sqlite3 *db;
3030: 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 29  .  if( objc!=2 )
3040: 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e  {.    Tcl_WrongN
3050: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31  umArgs(interp, 1
3060: 2c 20 6f 62 6a 76 2c 20 22 44 42 22 29 3b 0a 20  , objv, "DB");. 
3070: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52     return TCL_ER
3080: 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 67  ROR;.  }.  if( g
3090: 65 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65  etDbPointer(inte
30a0: 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e  rp, Tcl_GetStrin
30b0: 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 29  g(objv[1]), &db)
30c0: 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52   ) return TCL_ER
30d0: 52 4f 52 3b 0a 23 69 66 6e 64 65 66 20 53 51 4c  ROR;.#ifndef SQL
30e0: 49 54 45 5f 4f 4d 49 54 5f 56 49 52 54 55 41 4c  ITE_OMIT_VIRTUAL
30f0: 54 41 42 4c 45 0a 20 20 73 71 6c 69 74 65 33 5f  TABLE.  sqlite3_
3100: 63 72 65 61 74 65 5f 6d 6f 64 75 6c 65 28 64 62  create_module(db
3110: 2c 20 22 74 63 6c 22 2c 20 26 74 63 6c 4d 6f 64  , "tcl", &tclMod
3120: 75 6c 65 2c 20 28 76 6f 69 64 20 2a 29 69 6e 74  ule, (void *)int
3130: 65 72 70 29 3b 0a 23 65 6e 64 69 66 0a 20 20 72  erp);.#endif.  r
3140: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a  eturn TCL_OK;.}.
3150: 0a 23 65 6e 64 69 66 0a 0a 0a 2f 2a 0a 2a 2a 20  .#endif.../*.** 
3160: 52 65 67 69 73 74 65 72 20 63 6f 6d 6d 61 6e 64  Register command
3170: 73 20 77 69 74 68 20 74 68 65 20 54 43 4c 20 69  s with the TCL i
3180: 6e 74 65 72 70 72 65 74 65 72 2e 0a 2a 2f 0a 69  nterpreter..*/.i
3190: 6e 74 20 53 71 6c 69 74 65 74 65 73 74 74 63 6c  nt Sqlitetesttcl
31a0: 5f 49 6e 69 74 28 54 63 6c 5f 49 6e 74 65 72 70  _Init(Tcl_Interp
31b0: 20 2a 69 6e 74 65 72 70 29 7b 0a 23 69 66 6e 64   *interp){.#ifnd
31c0: 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 56  ef SQLITE_OMIT_V
31d0: 49 52 54 55 41 4c 54 41 42 4c 45 0a 20 20 73 74  IRTUALTABLE.  st
31e0: 61 74 69 63 20 73 74 72 75 63 74 20 7b 0a 20 20  atic struct {.  
31f0: 20 20 20 63 68 61 72 20 2a 7a 4e 61 6d 65 3b 0a     char *zName;.
3200: 20 20 20 20 20 54 63 6c 5f 4f 62 6a 43 6d 64 50       Tcl_ObjCmdP
3210: 72 6f 63 20 2a 78 50 72 6f 63 3b 0a 20 20 20 20  roc *xProc;.    
3220: 20 76 6f 69 64 20 2a 63 6c 69 65 6e 74 44 61 74   void *clientDat
3230: 61 3b 0a 20 20 7d 20 61 4f 62 6a 43 6d 64 5b 5d  a;.  } aObjCmd[]
3240: 20 3d 20 7b 0a 20 20 20 20 20 7b 20 22 72 65 67   = {.     { "reg
3250: 69 73 74 65 72 5f 74 63 6c 5f 6d 6f 64 75 6c 65  ister_tcl_module
3260: 22 2c 20 20 20 72 65 67 69 73 74 65 72 5f 74 63  ",   register_tc
3270: 6c 5f 6d 6f 64 75 6c 65 2c 20 30 20 7d 2c 0a 20  l_module, 0 },. 
3280: 20 7d 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 66   };.  int i;.  f
3290: 6f 72 28 69 3d 30 3b 20 69 3c 73 69 7a 65 6f 66  or(i=0; i<sizeof
32a0: 28 61 4f 62 6a 43 6d 64 29 2f 73 69 7a 65 6f 66  (aObjCmd)/sizeof
32b0: 28 61 4f 62 6a 43 6d 64 5b 30 5d 29 3b 20 69 2b  (aObjCmd[0]); i+
32c0: 2b 29 7b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61  +){.    Tcl_Crea
32d0: 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74  teObjCommand(int
32e0: 65 72 70 2c 20 61 4f 62 6a 43 6d 64 5b 69 5d 2e  erp, aObjCmd[i].
32f0: 7a 4e 61 6d 65 2c 20 0a 20 20 20 20 20 20 20 20  zName, .        
3300: 61 4f 62 6a 43 6d 64 5b 69 5d 2e 78 50 72 6f 63  aObjCmd[i].xProc
3310: 2c 20 61 4f 62 6a 43 6d 64 5b 69 5d 2e 63 6c 69  , aObjCmd[i].cli
3320: 65 6e 74 44 61 74 61 2c 20 30 29 3b 0a 20 20 7d  entData, 0);.  }
3330: 0a 23 65 6e 64 69 66 0a 20 20 72 65 74 75 72 6e  .#endif.  return
3340: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a                  TCL_OK;.}.