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 2a 20 20 20 22 6f 6d 69 74 22 20 20 20 20 20 ** "omit"
22b0: 20 20 20 20 20 20 20 20 28 69 6e 64 65 78 20 6f (index o
22c0: 66 20 6f 6d 69 74 74 65 64 20 63 6f 6e 73 74 72 f omitted constr
22d0: 61 69 6e 74 20 69 6e 20 61 43 6f 6e 73 74 72 61 aint in aConstra
22e0: 69 6e 74 5b 5d 29 0a 20 20 20 20 2a 2f 0a 20 20 int[]). */.
22f0: 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 52 65 73 20 Tcl_Obj *pRes
2300: 3d 20 54 63 6c 5f 47 65 74 4f 62 6a 52 65 73 75 = Tcl_GetObjResu
2310: 6c 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 lt(interp);.
2320: 54 63 6c 5f 4f 62 6a 20 2a 2a 61 70 45 6c 65 6d Tcl_Obj **apElem
2330: 20 3d 20 30 3b 0a 20 20 20 20 69 6e 74 20 6e 45 = 0;. int nE
2340: 6c 65 6d 3b 0a 20 20 20 20 72 63 20 3d 20 54 63 lem;. rc = Tc
2350: 6c 5f 4c 69 73 74 4f 62 6a 47 65 74 45 6c 65 6d l_ListObjGetElem
2360: 65 6e 74 73 28 69 6e 74 65 72 70 2c 20 70 52 65 ents(interp, pRe
2370: 73 2c 20 26 6e 45 6c 65 6d 2c 20 26 61 70 45 6c s, &nElem, &apEl
2380: 65 6d 29 3b 0a 20 20 20 20 69 66 28 20 72 63 21 em);. if( rc!
2390: 3d 54 43 4c 5f 4f 4b 20 29 7b 0a 20 20 20 20 20 =TCL_OK ){.
23a0: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 45 72 const char *zEr
23b0: 72 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e r = Tcl_GetStrin
23c0: 67 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b gResult(interp);
23d0: 0a 20 20 20 20 20 20 72 63 20 3d 20 53 51 4c 49 . rc = SQLI
23e0: 54 45 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20 20 TE_ERROR;.
23f0: 70 54 61 62 2d 3e 62 61 73 65 2e 7a 45 72 72 4d pTab->base.zErrM
2400: 73 67 20 3d 20 73 71 6c 69 74 65 33 5f 6d 70 72 sg = sqlite3_mpr
2410: 69 6e 74 66 28 22 25 73 22 2c 20 7a 45 72 72 29 intf("%s", zErr)
2420: 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 ;. }else{.
2430: 20 20 20 69 6e 74 20 69 41 72 67 76 20 3d 20 31 int iArgv = 1
2440: 3b 0a 20 20 20 20 20 20 66 6f 72 28 69 69 3d 30 ;. for(ii=0
2450: 3b 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 ; rc==SQLITE_OK
2460: 26 26 20 69 69 3c 6e 45 6c 65 6d 3b 20 69 69 2b && ii<nElem; ii+
2470: 3d 32 29 7b 0a 20 20 20 20 20 20 20 20 63 6f 6e =2){. con
2480: 73 74 20 63 68 61 72 20 2a 7a 43 6d 64 20 3d 20 st char *zCmd =
2490: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 61 70 Tcl_GetString(ap
24a0: 45 6c 65 6d 5b 69 69 5d 29 3b 0a 20 20 20 20 20 Elem[ii]);.
24b0: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 20 3d 20 Tcl_Obj *p =
24c0: 61 70 45 6c 65 6d 5b 69 69 2b 31 5d 3b 0a 20 20 apElem[ii+1];.
24d0: 20 20 20 20 20 20 69 66 28 20 73 71 6c 69 74 65 if( sqlite
24e0: 33 5f 73 74 72 69 63 6d 70 28 22 63 6f 73 74 22 3_stricmp("cost"
24f0: 2c 20 7a 43 6d 64 29 3d 3d 30 20 29 7b 0a 20 20 , zCmd)==0 ){.
2500: 20 20 20 20 20 20 20 20 72 63 20 3d 20 54 63 6c rc = Tcl
2510: 5f 47 65 74 44 6f 75 62 6c 65 46 72 6f 6d 4f 62 _GetDoubleFromOb
2520: 6a 28 69 6e 74 65 72 70 2c 20 70 2c 20 26 70 49 j(interp, p, &pI
2530: 64 78 49 6e 66 6f 2d 3e 65 73 74 69 6d 61 74 65 dxInfo->estimate
2540: 64 43 6f 73 74 29 3b 0a 20 20 20 20 20 20 20 20 dCost);.
2550: 7d 65 6c 73 65 0a 20 20 20 20 20 20 20 20 69 66 }else. if
2560: 28 20 73 71 6c 69 74 65 33 5f 73 74 72 69 63 6d ( sqlite3_stricm
2570: 70 28 22 6f 72 64 65 72 62 79 22 2c 20 7a 43 6d p("orderby", zCm
2580: 64 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 20 d)==0 ){.
2590: 20 20 20 72 63 20 3d 20 54 63 6c 5f 47 65 74 49 rc = Tcl_GetI
25a0: 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 ntFromObj(interp
25b0: 2c 20 70 2c 20 26 70 49 64 78 49 6e 66 6f 2d 3e , p, &pIdxInfo->
25c0: 6f 72 64 65 72 42 79 43 6f 6e 73 75 6d 65 64 29 orderByConsumed)
25d0: 3b 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 65 0a ;. }else.
25e0: 20 20 20 20 20 20 20 20 69 66 28 20 73 71 6c 69 if( sqli
25f0: 74 65 33 5f 73 74 72 69 63 6d 70 28 22 69 64 78 te3_stricmp("idx
2600: 6e 75 6d 22 2c 20 7a 43 6d 64 29 3d 3d 30 20 29 num", zCmd)==0 )
2610: 7b 0a 20 20 20 20 20 20 20 20 20 20 72 63 20 3d {. rc =
2620: 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f Tcl_GetIntFromO
2630: 62 6a 28 69 6e 74 65 72 70 2c 20 70 2c 20 26 70 bj(interp, p, &p
2640: 49 64 78 49 6e 66 6f 2d 3e 69 64 78 4e 75 6d 29 IdxInfo->idxNum)
2650: 3b 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 65 0a ;. }else.
2660: 20 20 20 20 20 20 20 20 69 66 28 20 73 71 6c 69 if( sqli
2670: 74 65 33 5f 73 74 72 69 63 6d 70 28 22 69 64 78 te3_stricmp("idx
2680: 73 74 72 22 2c 20 7a 43 6d 64 29 3d 3d 30 20 29 str", zCmd)==0 )
2690: 7b 0a 20 20 20 20 20 20 20 20 20 20 73 71 6c 69 {. sqli
26a0: 74 65 33 5f 66 72 65 65 28 70 49 64 78 49 6e 66 te3_free(pIdxInf
26b0: 6f 2d 3e 69 64 78 53 74 72 29 3b 0a 20 20 20 20 o->idxStr);.
26c0: 20 20 20 20 20 20 70 49 64 78 49 6e 66 6f 2d 3e pIdxInfo->
26d0: 69 64 78 53 74 72 20 3d 20 73 71 6c 69 74 65 33 idxStr = sqlite3
26e0: 5f 6d 70 72 69 6e 74 66 28 22 25 73 22 2c 20 54 _mprintf("%s", T
26f0: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 70 29 29 cl_GetString(p))
2700: 3b 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 65 0a ;. }else.
2710: 20 20 20 20 20 20 20 20 69 66 28 20 73 71 6c 69 if( sqli
2720: 74 65 33 5f 73 74 72 69 63 6d 70 28 22 72 6f 77 te3_stricmp("row
2730: 73 22 2c 20 7a 43 6d 64 29 3d 3d 30 20 29 7b 0a s", zCmd)==0 ){.
2740: 20 20 20 20 20 20 20 20 20 20 72 63 20 3d 20 54 rc = T
2750: 63 6c 5f 47 65 74 57 69 64 65 49 6e 74 46 72 6f cl_GetWideIntFro
2760: 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 70 2c 20 mObj(interp, p,
2770: 26 70 49 64 78 49 6e 66 6f 2d 3e 65 73 74 69 6d &pIdxInfo->estim
2780: 61 74 65 64 52 6f 77 73 29 3b 0a 20 20 20 20 20 atedRows);.
2790: 20 20 20 7d 65 6c 73 65 0a 20 20 20 20 20 20 20 }else.
27a0: 20 69 66 28 20 73 71 6c 69 74 65 33 5f 73 74 72 if( sqlite3_str
27b0: 69 63 6d 70 28 22 75 73 65 22 2c 20 7a 43 6d 64 icmp("use", zCmd
27c0: 29 3d 3d 30 20 0a 20 20 20 20 20 20 20 20 20 7c )==0 . |
27d0: 7c 20 73 71 6c 69 74 65 33 5f 73 74 72 69 63 6d | sqlite3_stricm
27e0: 70 28 22 6f 6d 69 74 22 2c 20 7a 43 6d 64 29 3d p("omit", zCmd)=
27f0: 3d 30 20 0a 20 20 20 20 20 20 20 20 29 7b 0a 20 =0 . ){.
2800: 20 20 20 20 20 20 20 20 20 69 6e 74 20 69 43 6f int iCo
2810: 6e 73 3b 0a 20 20 20 20 20 20 20 20 20 20 72 63 ns;. rc
2820: 20 3d 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f = Tcl_GetIntFro
2830: 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 70 2c 20 mObj(interp, p,
2840: 26 69 43 6f 6e 73 29 3b 0a 20 20 20 20 20 20 20 &iCons);.
2850: 20 20 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 if( rc==SQLIT
2860: 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 20 20 20 20 E_OK ){.
2870: 20 20 20 20 69 66 28 20 69 43 6f 6e 73 3c 30 20 if( iCons<0
2880: 7c 7c 20 69 43 6f 6e 73 3e 3d 70 49 64 78 49 6e || iCons>=pIdxIn
2890: 66 6f 2d 3e 6e 43 6f 6e 73 74 72 61 69 6e 74 20 fo->nConstraint
28a0: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ){.
28b0: 20 72 63 20 3d 20 53 51 4c 49 54 45 5f 45 52 52 rc = SQLITE_ERR
28c0: 4f 52 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 OR;.
28d0: 20 20 70 54 61 62 2d 3e 62 61 73 65 2e 7a 45 72 pTab->base.zEr
28e0: 72 4d 73 67 20 3d 20 73 71 6c 69 74 65 33 5f 6d rMsg = sqlite3_m
28f0: 70 72 69 6e 74 66 28 22 75 6e 65 78 70 65 63 74 printf("unexpect
2900: 65 64 3a 20 25 64 22 2c 20 69 43 6f 6e 73 29 3b ed: %d", iCons);
2910: 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d 65 6c . }el
2920: 73 65 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 se{.
2930: 20 20 69 6e 74 20 62 4f 6d 69 74 20 3d 20 28 7a int bOmit = (z
2940: 43 6d 64 5b 30 5d 3d 3d 27 6f 27 20 7c 7c 20 7a Cmd[0]=='o' || z
2950: 43 6d 64 5b 30 5d 3d 3d 27 4f 27 29 3b 0a 20 20 Cmd[0]=='O');.
2960: 20 20 20 20 20 20 20 20 20 20 20 20 70 49 64 78 pIdx
2970: 49 6e 66 6f 2d 3e 61 43 6f 6e 73 74 72 61 69 6e Info->aConstrain
2980: 74 55 73 61 67 65 5b 69 43 6f 6e 73 5d 2e 61 72 tUsage[iCons].ar
2990: 67 76 49 6e 64 65 78 20 3d 20 69 41 72 67 76 2b gvIndex = iArgv+
29a0: 2b 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 +;.
29b0: 20 70 49 64 78 49 6e 66 6f 2d 3e 61 43 6f 6e 73 pIdxInfo->aCons
29c0: 74 72 61 69 6e 74 55 73 61 67 65 5b 69 43 6f 6e traintUsage[iCon
29d0: 73 5d 2e 6f 6d 69 74 20 3d 20 62 4f 6d 69 74 3b s].omit = bOmit;
29e0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d 0a 20 . }.
29f0: 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 }.
2a00: 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 }else{.
2a10: 20 20 20 20 72 63 20 3d 20 53 51 4c 49 54 45 5f rc = SQLITE_
2a20: 45 52 52 4f 52 3b 0a 20 20 20 20 20 20 20 20 20 ERROR;.
2a30: 20 70 54 61 62 2d 3e 62 61 73 65 2e 7a 45 72 72 pTab->base.zErr
2a40: 4d 73 67 20 3d 20 73 71 6c 69 74 65 33 5f 6d 70 Msg = sqlite3_mp
2a50: 72 69 6e 74 66 28 22 75 6e 65 78 70 65 63 74 65 rintf("unexpecte
2a60: 64 3a 20 25 73 22 2c 20 7a 43 6d 64 29 3b 0a 20 d: %s", zCmd);.
2a70: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 }.
2a80: 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f if( rc!=SQLITE_
2a90: 4f 4b 20 26 26 20 70 54 61 62 2d 3e 62 61 73 65 OK && pTab->base
2aa0: 2e 7a 45 72 72 4d 73 67 3d 3d 30 20 29 7b 0a 20 .zErrMsg==0 ){.
2ab0: 20 20 20 20 20 20 20 20 20 63 6f 6e 73 74 20 63 const c
2ac0: 68 61 72 20 2a 7a 45 72 72 20 3d 20 54 63 6c 5f har *zErr = Tcl_
2ad0: 47 65 74 53 74 72 69 6e 67 52 65 73 75 6c 74 28 GetStringResult(
2ae0: 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 20 20 20 interp);.
2af0: 20 20 20 70 54 61 62 2d 3e 62 61 73 65 2e 7a 45 pTab->base.zE
2b00: 72 72 4d 73 67 20 3d 20 73 71 6c 69 74 65 33 5f rrMsg = sqlite3_
2b10: 6d 70 72 69 6e 74 66 28 22 25 73 22 2c 20 7a 45 mprintf("%s", zE
2b20: 72 72 29 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 rr);. }.
2b30: 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 7d }. }. }
2b40: 0a 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d .. return rc;.}
2b50: 0a 0a 2f 2a 0a 2a 2a 20 41 20 76 69 72 74 75 61 ../*.** A virtua
2b60: 6c 20 74 61 62 6c 65 20 6d 6f 64 75 6c 65 20 74 l table module t
2b70: 68 61 74 20 70 72 6f 76 69 64 65 73 20 72 65 61 hat provides rea
2b80: 64 2d 6f 6e 6c 79 20 61 63 63 65 73 73 20 74 6f d-only access to
2b90: 20 61 0a 2a 2a 20 54 63 6c 20 67 6c 6f 62 61 6c a.** Tcl global
2ba0: 20 76 61 72 69 61 62 6c 65 20 6e 61 6d 65 73 70 variable namesp
2bb0: 61 63 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 73 ace..*/.static s
2bc0: 71 6c 69 74 65 33 5f 6d 6f 64 75 6c 65 20 74 63 qlite3_module tc
2bd0: 6c 4d 6f 64 75 6c 65 20 3d 20 7b 0a 20 20 30 2c lModule = {. 0,
2be0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2bf0: 20 20 20 20 20 20 20 20 20 2f 2a 20 69 56 65 72 /* iVer
2c00: 73 69 6f 6e 20 2a 2f 0a 20 20 74 63 6c 43 6f 6e sion */. tclCon
2c10: 6e 65 63 74 2c 0a 20 20 74 63 6c 43 6f 6e 6e 65 nect,. tclConne
2c20: 63 74 2c 0a 20 20 74 63 6c 42 65 73 74 49 6e 64 ct,. tclBestInd
2c30: 65 78 2c 0a 20 20 74 63 6c 44 69 73 63 6f 6e 6e ex,. tclDisconn
2c40: 65 63 74 2c 20 0a 20 20 74 63 6c 44 69 73 63 6f ect, . tclDisco
2c50: 6e 6e 65 63 74 2c 0a 20 20 74 63 6c 4f 70 65 6e nnect,. tclOpen
2c60: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,
2c70: 20 20 20 20 20 20 20 2f 2a 20 78 4f 70 65 6e 20 /* xOpen
2c80: 2d 20 6f 70 65 6e 20 61 20 63 75 72 73 6f 72 20 - open a cursor
2c90: 2a 2f 0a 20 20 74 63 6c 43 6c 6f 73 65 2c 20 20 */. tclClose,
2ca0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2cb0: 20 20 20 2f 2a 20 78 43 6c 6f 73 65 20 2d 20 63 /* xClose - c
2cc0: 6c 6f 73 65 20 61 20 63 75 72 73 6f 72 20 2a 2f lose a cursor */
2cd0: 0a 20 20 74 63 6c 46 69 6c 74 65 72 2c 20 20 20 . tclFilter,
2ce0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2cf0: 20 2f 2a 20 78 46 69 6c 74 65 72 20 2d 20 63 6f /* xFilter - co
2d00: 6e 66 69 67 75 72 65 20 73 63 61 6e 20 63 6f 6e nfigure scan con
2d10: 73 74 72 61 69 6e 74 73 20 2a 2f 0a 20 20 74 63 straints */. tc
2d20: 6c 4e 65 78 74 2c 20 20 20 20 20 20 20 20 20 20 lNext,
2d30: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 /* x
2d40: 4e 65 78 74 20 2d 20 61 64 76 61 6e 63 65 20 61 Next - advance a
2d50: 20 63 75 72 73 6f 72 20 2a 2f 0a 20 20 74 63 6c cursor */. tcl
2d60: 45 6f 66 2c 20 20 20 20 20 20 20 20 20 20 20 20 Eof,
2d70: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 45 /* xE
2d80: 6f 66 20 2d 20 63 68 65 63 6b 20 66 6f 72 20 65 of - check for e
2d90: 6e 64 20 6f 66 20 73 63 61 6e 20 2a 2f 0a 20 20 nd of scan */.
2da0: 74 63 6c 43 6f 6c 75 6d 6e 2c 20 20 20 20 20 20 tclColumn,
2db0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a /*
2dc0: 20 78 43 6f 6c 75 6d 6e 20 2d 20 72 65 61 64 20 xColumn - read
2dd0: 64 61 74 61 20 2a 2f 0a 20 20 74 63 6c 52 6f 77 data */. tclRow
2de0: 69 64 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 id,
2df0: 20 20 20 20 20 20 20 20 2f 2a 20 78 52 6f 77 69 /* xRowi
2e00: 64 20 2d 20 72 65 61 64 20 64 61 74 61 20 2a 2f d - read data */
2e10: 0a 20 20 30 2c 20 20 20 20 20 20 20 20 20 20 20 . 0,
2e20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2e30: 2f 2a 20 78 55 70 64 61 74 65 20 2a 2f 0a 20 20 /* xUpdate */.
2e40: 30 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0,
2e50: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 /*
2e60: 78 42 65 67 69 6e 20 2a 2f 0a 20 20 30 2c 20 20 xBegin */. 0,
2e70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2e80: 20 20 20 20 20 20 20 20 20 2f 2a 20 78 53 79 6e /* xSyn
2e90: 63 20 2a 2f 0a 20 20 30 2c 20 20 20 20 20 20 20 c */. 0,
2ea0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2eb0: 20 20 20 20 2f 2a 20 78 43 6f 6d 6d 69 74 20 2a /* xCommit *
2ec0: 2f 0a 20 20 30 2c 20 20 20 20 20 20 20 20 20 20 /. 0,
2ed0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2ee0: 20 2f 2a 20 78 52 6f 6c 6c 62 61 63 6b 20 2a 2f /* xRollback */
2ef0: 0a 20 20 30 2c 20 20 20 20 20 20 20 20 20 20 20 . 0,
2f00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2f10: 2f 2a 20 78 46 69 6e 64 4d 65 74 68 6f 64 20 2a /* xFindMethod *
2f20: 2f 0a 20 20 30 2c 20 20 20 20 20 20 20 20 20 20 /. 0,
2f30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2f40: 20 2f 2a 20 78 52 65 6e 61 6d 65 20 2a 2f 0a 7d /* xRename */.}
2f50: 3b 0a 0a 2f 2a 0a 2a 2a 20 44 65 63 6f 64 65 20 ;../*.** Decode
2f60: 61 20 70 6f 69 6e 74 65 72 20 74 6f 20 61 6e 20 a pointer to an
2f70: 73 71 6c 69 74 65 33 20 6f 62 6a 65 63 74 2e 0a sqlite3 object..
2f80: 2a 2f 0a 65 78 74 65 72 6e 20 69 6e 74 20 67 65 */.extern int ge
2f90: 74 44 62 50 6f 69 6e 74 65 72 28 54 63 6c 5f 49 tDbPointer(Tcl_I
2fa0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 63 nterp *interp, c
2fb0: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 41 2c 20 73 onst char *zA, s
2fc0: 71 6c 69 74 65 33 20 2a 2a 70 70 44 62 29 3b 0a qlite3 **ppDb);.
2fd0: 0a 2f 2a 0a 2a 2a 20 52 65 67 69 73 74 65 72 20 ./*.** Register
2fe0: 74 68 65 20 65 63 68 6f 20 76 69 72 74 75 61 6c the echo virtual
2ff0: 20 74 61 62 6c 65 20 6d 6f 64 75 6c 65 2e 0a 2a table module..*
3000: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 72 65 67 /.static int reg
3010: 69 73 74 65 72 5f 74 63 6c 5f 6d 6f 64 75 6c 65 ister_tcl_module
3020: 28 0a 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 (. ClientData c
3030: 6c 69 65 6e 74 44 61 74 61 2c 20 2f 2a 20 50 6f lientData, /* Po
3040: 69 6e 74 65 72 20 74 6f 20 73 71 6c 69 74 65 33 inter to sqlite3
3050: 5f 65 6e 61 62 6c 65 5f 58 58 58 20 66 75 6e 63 _enable_XXX func
3060: 74 69 6f 6e 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e tion */. Tcl_In
3070: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 terp *interp,
3080: 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 /* The TCL inte
3090: 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 rpreter that inv
30a0: 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e oked this comman
30b0: 64 20 2a 2f 0a 20 20 69 6e 74 20 6f 62 6a 63 2c d */. int objc,
30c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a /*
30d0: 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d Number of argum
30e0: 65 6e 74 73 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 ents */. Tcl_Ob
30f0: 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 20 j *CONST objv[]
3100: 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20 61 72 67 75 /* Command argu
3110: 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20 20 73 71 ments */.){. sq
3120: 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 69 66 28 lite3 *db;. if(
3130: 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 objc!=2 ){.
3140: 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 Tcl_WrongNumArgs
3150: 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 (interp, 1, objv
3160: 2c 20 22 44 42 22 29 3b 0a 20 20 20 20 72 65 74 , "DB");. ret
3170: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
3180: 20 7d 0a 20 20 69 66 28 20 67 65 74 44 62 50 6f }. if( getDbPo
3190: 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 inter(interp, Tc
31a0: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
31b0: 5b 31 5d 29 2c 20 26 64 62 29 20 29 20 72 65 74 [1]), &db) ) ret
31c0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 23 urn TCL_ERROR;.#
31d0: 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d ifndef SQLITE_OM
31e0: 49 54 5f 56 49 52 54 55 41 4c 54 41 42 4c 45 0a IT_VIRTUALTABLE.
31f0: 20 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 sqlite3_create
3200: 5f 6d 6f 64 75 6c 65 28 64 62 2c 20 22 74 63 6c _module(db, "tcl
3210: 22 2c 20 26 74 63 6c 4d 6f 64 75 6c 65 2c 20 28 ", &tclModule, (
3220: 76 6f 69 64 20 2a 29 69 6e 74 65 72 70 29 3b 0a void *)interp);.
3230: 23 65 6e 64 69 66 0a 20 20 72 65 74 75 72 6e 20 #endif. return
3240: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 23 65 6e 64 69 TCL_OK;.}..#endi
3250: 66 0a 0a 0a 2f 2a 0a 2a 2a 20 52 65 67 69 73 74 f.../*.** Regist
3260: 65 72 20 63 6f 6d 6d 61 6e 64 73 20 77 69 74 68 er commands with
3270: 20 74 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 the TCL interpr
3280: 65 74 65 72 2e 0a 2a 2f 0a 69 6e 74 20 53 71 6c eter..*/.int Sql
3290: 69 74 65 74 65 73 74 74 63 6c 5f 49 6e 69 74 28 itetesttcl_Init(
32a0: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
32b0: 72 70 29 7b 0a 23 69 66 6e 64 65 66 20 53 51 4c rp){.#ifndef SQL
32c0: 49 54 45 5f 4f 4d 49 54 5f 56 49 52 54 55 41 4c ITE_OMIT_VIRTUAL
32d0: 54 41 42 4c 45 0a 20 20 73 74 61 74 69 63 20 73 TABLE. static s
32e0: 74 72 75 63 74 20 7b 0a 20 20 20 20 20 63 68 61 truct {. cha
32f0: 72 20 2a 7a 4e 61 6d 65 3b 0a 20 20 20 20 20 54 r *zName;. T
3300: 63 6c 5f 4f 62 6a 43 6d 64 50 72 6f 63 20 2a 78 cl_ObjCmdProc *x
3310: 50 72 6f 63 3b 0a 20 20 20 20 20 76 6f 69 64 20 Proc;. void
3320: 2a 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 7d *clientData;. }
3330: 20 61 4f 62 6a 43 6d 64 5b 5d 20 3d 20 7b 0a 20 aObjCmd[] = {.
3340: 20 20 20 20 7b 20 22 72 65 67 69 73 74 65 72 5f { "register_
3350: 74 63 6c 5f 6d 6f 64 75 6c 65 22 2c 20 20 20 72 tcl_module", r
3360: 65 67 69 73 74 65 72 5f 74 63 6c 5f 6d 6f 64 75 egister_tcl_modu
3370: 6c 65 2c 20 30 20 7d 2c 0a 20 20 7d 3b 0a 20 20 le, 0 },. };.
3380: 69 6e 74 20 69 3b 0a 20 20 66 6f 72 28 69 3d 30 int i;. for(i=0
3390: 3b 20 69 3c 73 69 7a 65 6f 66 28 61 4f 62 6a 43 ; i<sizeof(aObjC
33a0: 6d 64 29 2f 73 69 7a 65 6f 66 28 61 4f 62 6a 43 md)/sizeof(aObjC
33b0: 6d 64 5b 30 5d 29 3b 20 69 2b 2b 29 7b 0a 20 20 md[0]); i++){.
33c0: 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 Tcl_CreateObjC
33d0: 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 61 ommand(interp, a
33e0: 4f 62 6a 43 6d 64 5b 69 5d 2e 7a 4e 61 6d 65 2c ObjCmd[i].zName,
33f0: 20 0a 20 20 20 20 20 20 20 20 61 4f 62 6a 43 6d . aObjCm
3400: 64 5b 69 5d 2e 78 50 72 6f 63 2c 20 61 4f 62 6a d[i].xProc, aObj
3410: 43 6d 64 5b 69 5d 2e 63 6c 69 65 6e 74 44 61 74 Cmd[i].clientDat
3420: 61 2c 20 30 29 3b 0a 20 20 7d 0a 23 65 6e 64 69 a, 0);. }.#endi
3430: 66 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f f. return TCL_O
3440: 4b 3b 0a 7d 0a K;.}.