diff options
| author | drh <drh@noemail.net> | 2008-09-03 00:43:15 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2008-09-03 00:43:15 +0000 |
| commit | 039963ad33dd7bad5c065ed1142ab0efc08fd0e7 (patch) | |
| tree | fa9bf47575b3efa1bf33ee51a4e7f33fb968a477 /src/tclsqlite.c | |
| parent | a9625eaeb9c589ec6062998b03127192f42a9142 (diff) | |
| download | sqlite-039963ad33dd7bad5c065ed1142ab0efc08fd0e7.tar.gz sqlite-039963ad33dd7bad5c065ed1142ab0efc08fd0e7.zip | |
Add support for SQLITE_OPEN_FULLMUTEX. (CVS 5669)
FossilOrigin-Name: f2f361a5e2fb81fb0f99e83ecf8bae9a750723b1
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index 705148de4..c83fd2014 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -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.221 2008/09/01 20:38:12 shane Exp $ +** $Id: tclsqlite.c,v 1.222 2008/09/03 00:43:15 drh Exp $ */ #include "tcl.h" #include <errno.h> @@ -2374,9 +2374,19 @@ static int DbMain(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){ if( Tcl_GetBooleanFromObj(interp, objv[i+1], &b) ) return TCL_ERROR; if( b ){ flags |= SQLITE_OPEN_NOMUTEX; + flags &= ~SQLITE_OPEN_FULLMUTEX; }else{ flags &= ~SQLITE_OPEN_NOMUTEX; } + }else if( strcmp(zArg, "-fullmutex")==0 ){ + int b; + if( Tcl_GetBooleanFromObj(interp, objv[i+1], &b) ) return TCL_ERROR; + if( b ){ + flags |= SQLITE_OPEN_FULLMUTEX; + flags &= ~SQLITE_OPEN_NOMUTEX; + }else{ + flags &= ~SQLITE_OPEN_FULLMUTEX; + } }else{ Tcl_AppendResult(interp, "unknown option: ", zArg, (char*)0); return TCL_ERROR; @@ -2385,7 +2395,7 @@ static int DbMain(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){ if( objc<3 || (objc&1)!=1 ){ Tcl_WrongNumArgs(interp, 1, objv, "HANDLE FILENAME ?-vfs VFSNAME? ?-readonly BOOLEAN? ?-create BOOLEAN?" - " ?-nomutex BOOLEAN?" + " ?-nomutex BOOLEAN? ?-fullmutex BOOLEAN?" #ifdef SQLITE_HAS_CODEC " ?-key CODECKEY?" #endif |