diff options
| author | drh <drh@noemail.net> | 2016-01-11 13:10:41 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2016-01-11 13:10:41 +0000 |
| commit | 604ce70448d0572477ad25bb3510b1dc3f2ad967 (patch) | |
| tree | 5311ccb5ee4087afa2ee0b80dccad066cc20a918 /src/tclsqlite.c | |
| parent | f56a2a07ff4f9156640844f53e5ae3668e995b89 (diff) | |
| parent | 2fca70569d8db348a85c059151b2af5d20527302 (diff) | |
| download | sqlite-604ce70448d0572477ad25bb3510b1dc3f2ad967.tar.gz sqlite-604ce70448d0572477ad25bb3510b1dc3f2ad967.zip | |
Merge recent enhancements, and especially the WAL overwrite change, from trunk.
FossilOrigin-Name: c4a858b228a164be2f89f5b01833f0b5e0d7735b
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index 608b3b2ba..38a1b6adc 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -3122,6 +3122,10 @@ static int DbMain(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){ Tcl_AppendResult(interp,sqlite3_libversion(), (char*)0); return TCL_OK; } + if( strcmp(zArg,"-sourceid")==0 ){ + Tcl_AppendResult(interp,sqlite3_sourceid(), (char*)0); + return TCL_OK; + } if( strcmp(zArg,"-has-codec")==0 ){ #ifdef SQLITE_HAS_CODEC Tcl_AppendResult(interp,"1",(char*)0); |