Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Bug fix in the new "exists" method of the TCL interface. (CVS 2857) |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
d0e3d466094f7b2f74ed7ebb324e5024 |
User & Date: | drh 2006-01-04 18:13:26.000 |
Context
2006-01-04
| ||
21:40 | Bug fix in the IF NOT EXISTS logic. (CVS 2858) (check-in: cb9095ac52 user: drh tags: trunk) | |
18:13 | Bug fix in the new "exists" method of the TCL interface. (CVS 2857) (check-in: d0e3d46609 user: drh tags: trunk) | |
15:58 | Update document for CREATE INDEX IF NOT EXISTS and DROP INDEX IF EXISTS (CVS 2856) (check-in: 963ba8b8f3 user: drh tags: trunk) | |
Changes
Changes to src/tclsqlite.c.
1 2 3 4 5 6 7 8 9 10 11 12 13 | /* ** 2001 September 15 ** ** The author disclaims copyright to this source code. In place of ** a legal notice, here is a blessing: ** ** May you do good and not evil. ** May you find forgiveness for yourself and forgive others. ** May you share freely, never taking more than you give. ** ************************************************************************* ** A TCL Interface to SQLite ** | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | /* ** 2001 September 15 ** ** The author disclaims copyright to this source code. In place of ** a legal notice, here is a blessing: ** ** May you do good and not evil. ** May you find forgiveness for yourself and forgive others. ** May you share freely, never taking more than you give. ** ************************************************************************* ** A TCL Interface to SQLite ** ** $Id: tclsqlite.c,v 1.144 2006/01/04 18:13:26 drh Exp $ */ #ifndef NO_TCL /* Omit this whole file if TCL is unavailable */ #include "sqliteInt.h" #include "hash.h" #include "tcl.h" #include <stdlib.h> |
︙ | ︙ | |||
1203 1204 1205 1206 1207 1208 1209 | pRet = Tcl_NewObj(); Tcl_IncrRefCount(pRet); }else{ if( objc!=3 ){ Tcl_WrongNumArgs(interp, 2, objv, "SQL"); return TCL_ERROR; } | < | > > > | 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1217 1218 1219 1220 1221 | pRet = Tcl_NewObj(); Tcl_IncrRefCount(pRet); }else{ if( objc!=3 ){ Tcl_WrongNumArgs(interp, 2, objv, "SQL"); return TCL_ERROR; } if( choice==DB_EXISTS ){ pRet = Tcl_NewBooleanObj(0); Tcl_IncrRefCount(pRet); }else{ pRet = 0; } } if( objc==3 ){ pArray = pScript = 0; }else if( objc==4 ){ pArray = 0; pScript = objv[3]; |
︙ | ︙ | |||
1419 1420 1421 1422 1423 1424 1425 | if( pRet==0 ){ pRet = pVal; Tcl_IncrRefCount(pRet); } rc = TCL_BREAK; i = nCol; }else if( choice==DB_EXISTS ){ | | | > | 1421 1422 1423 1424 1425 1426 1427 1428 1429 1430 1431 1432 1433 1434 1435 1436 1437 | if( pRet==0 ){ pRet = pVal; Tcl_IncrRefCount(pRet); } rc = TCL_BREAK; i = nCol; }else if( choice==DB_EXISTS ){ Tcl_DecrRefCount(pRet); pRet = Tcl_NewBooleanObj(1); Tcl_IncrRefCount(pRet); rc = TCL_BREAK; i = nCol; }else{ Tcl_ListObjAppendElement(interp, pRet, pVal); } } |
︙ | ︙ |