database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-08-08 14:02:16 +03:00
Code Activity

Fix the TCL interface so that it does not use unpublished interfaces. (CVS 4965)

Browse Source 
FossilOrigin-Name: 046a98a8c88be7389c1571a819ccf1907a3f7217
This commit is contained in:
drh
2008-04-04 12:21:08 +00:00
parent d094db1c7b
commit bd4d397ca9
3 changed files with 13 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/tclsqlite.c
View File

@@ -12,7 +12,7 @@
** A TCL Interface to SQLite. Append this file to sqlite3.c and
** compile the whole thing to build a TCL-enabled version of SQLite.
**
** $Id: tclsqlite.c,v 1.212 2008/03/25 16:16:29 danielk1977 Exp $
** $Id: tclsqlite.c,v 1.213 2008/04/04 12:21:09 drh Exp $
*/
#include "tcl.h"
#include <errno.h>
@@ -1340,11 +1340,11 @@ static int DbObjCmd(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){
Tcl_AppendResult(interp,"Error: non-null separator required for copy",0);
return TCL_ERROR;
}
if(sqlite3StrICmp(zConflict, "rollback") != 0 &&
sqlite3StrICmp(zConflict, "abort" ) != 0 &&
sqlite3StrICmp(zConflict, "fail" ) != 0 &&
sqlite3StrICmp(zConflict, "ignore" ) != 0 &&
sqlite3StrICmp(zConflict, "replace" ) != 0 ) {
if(strcasecmp(zConflict, "rollback") != 0 &&
strcasecmp(zConflict, "abort" ) != 0 &&
strcasecmp(zConflict, "fail" ) != 0 &&
strcasecmp(zConflict, "ignore" ) != 0 &&
strcasecmp(zConflict, "replace" ) != 0 ) {
Tcl_AppendResult(interp, "Error: \"", zConflict,
"\", conflict-algorithm must be one of: rollback, "
"abort, fail, ignore, or replace", 0);