diff options
| author | drh <drh@noemail.net> | 2016-01-07 02:06:55 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2016-01-07 02:06:55 +0000 |
| commit | 72bf6a3e9c45ef8e60336bf1e7d1ed64254b0677 (patch) | |
| tree | 090a5bf27864b2c10b1449387e511dd6790efe01 /src/tclsqlite.c | |
| parent | 8d52c3b7671b478c744b05dd3d8f0ccde8fb135f (diff) | |
| download | sqlite-72bf6a3e9c45ef8e60336bf1e7d1ed64254b0677.tar.gz sqlite-72bf6a3e9c45ef8e60336bf1e7d1ed64254b0677.zip | |
Add the "sqlite3 -sourceid" command in the TCL interface. Use that command and
others to output additional information about the test configuration at the
conclusion of a TCL test.
FossilOrigin-Name: 4f80440bf566959306f6ca8cbb1fd29d138ee38b
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 f024317e9..604e89826 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -2976,6 +2976,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); |