diff options
| author | drh <drh@noemail.net> | 2019-11-18 17:46:38 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2019-11-18 17:46:38 +0000 |
| commit | 0933aad72c5ac1a763891c03b231ce72b1d19b03 (patch) | |
| tree | ace29f58dd8b9c2ac613cc8dad3c8fc4d47cc5a8 /src/tclsqlite.c | |
| parent | 804725a6b9ea8ba9ef507866b1d8d2628d1e4356 (diff) | |
| download | sqlite-0933aad72c5ac1a763891c03b231ce72b1d19b03.tar.gz sqlite-0933aad72c5ac1a763891c03b231ce72b1d19b03.zip | |
Add support for SQLITE_OPEN_NOFOLLOW.
FossilOrigin-Name: cb79c828496a703f1410f61458ebc1e15a92a63412b36f51945b2b5a32ec6e88
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index 80a057262..a691898dc 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -3670,6 +3670,7 @@ static int sqliteCmdUsage( ){ Tcl_WrongNumArgs(interp, 1, objv, "HANDLE ?FILENAME? ?-vfs VFSNAME? ?-readonly BOOLEAN? ?-create BOOLEAN?" + " ?-nofollow BOOLEAN?" " ?-nomutex BOOLEAN? ?-fullmutex BOOLEAN? ?-uri BOOLEAN?" #if defined(SQLITE_HAS_CODEC) && !defined(SQLITE_OMIT_CODEC_FROM_TCL) " ?-key CODECKEY?" @@ -3681,6 +3682,7 @@ static int sqliteCmdUsage( /* ** sqlite3 DBNAME FILENAME ?-vfs VFSNAME? ?-key KEY? ?-readonly BOOLEAN? ** ?-create BOOLEAN? ?-nomutex BOOLEAN? +** ?-nofollow BOOLEAN? ** ** This is the main Tcl command. When the "sqlite" Tcl command is ** invoked, this routine runs to process that command. @@ -3779,6 +3781,14 @@ static int SQLITE_TCLAPI DbMain( }else{ flags &= ~SQLITE_OPEN_CREATE; } + }else if( strcmp(zArg, "-nofollow")==0 ){ + int b; + if( Tcl_GetBooleanFromObj(interp, objv[i], &b) ) return TCL_ERROR; + if( b ){ + flags |= SQLITE_OPEN_NOFOLLOW; + }else{ + flags &= ~SQLITE_OPEN_NOFOLLOW; + } }else if( strcmp(zArg, "-nomutex")==0 ){ int b; if( Tcl_GetBooleanFromObj(interp, objv[i], &b) ) return TCL_ERROR; |