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 | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
d0e3d466094f7b2f74ed7ebb324e5024 |
| User & Date: | drh 2006-01-04 18:13:26 |
Context
|
2006-01-04
| ||
| 21:40 | Bug fix in the IF NOT EXISTS logic. (CVS 2858) check-in: cb9095ac user: drh tags: trunk | |
| 18:13 | Bug fix in the new "exists" method of the TCL interface. (CVS 2857) check-in: d0e3d466 user: drh tags: trunk | |
| 15:58 | Update document for CREATE INDEX IF NOT EXISTS and DROP INDEX IF EXISTS (CVS 2856) check-in: 963ba8b8 user: drh tags: trunk | |
Changes
Changes to src/tclsqlite.c.
7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 .... 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1217 1218 1219 .... 1419 1420 1421 1422 1423 1424 1425 1426 1427 1428 1429 1430 1431 1432 1433 1434 |
** 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.143 2006/01/03 00:33:50 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> ................................................................................ pRet = Tcl_NewObj(); Tcl_IncrRefCount(pRet); }else{ if( objc!=3 ){ Tcl_WrongNumArgs(interp, 2, objv, "SQL"); return TCL_ERROR; } pRet = 0; if( choice==DB_EXISTS ){ Tcl_SetObjResult(interp, Tcl_NewBooleanObj(0)); } } if( objc==3 ){ pArray = pScript = 0; }else if( objc==4 ){ pArray = 0; pScript = objv[3]; ................................................................................ if( pRet==0 ){ pRet = pVal; Tcl_IncrRefCount(pRet); } rc = TCL_BREAK; i = nCol; }else if( choice==DB_EXISTS ){ assert( pRet==0 ); Tcl_SetObjResult(interp, Tcl_NewBooleanObj(1)); rc = TCL_BREAK; i = nCol; }else{ Tcl_ListObjAppendElement(interp, pRet, pVal); } } |
| < | > > > | | > |
7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 .... 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1217 1218 1219 1220 1221 .... 1421 1422 1423 1424 1425 1426 1427 1428 1429 1430 1431 1432 1433 1434 1435 1436 1437 |
** 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> ................................................................................ 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]; ................................................................................ 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); } } |