database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-27 20:41:58 +03:00
Code Activity

Add the "sqlite3 -sourceid" command in the TCL interface. Use that command and

Browse Source 
others to output additional information about the test configuration at the 
conclusion of a TCL test.

FossilOrigin-Name: 4f80440bf566959306f6ca8cbb1fd29d138ee38b
This commit is contained in:
drh
2016-01-07 02:06:55 +00:00
parent 8d52c3b767
commit 72bf6a3e9c
4 changed files with 19 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/tclsqlite.c
View File

@ -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);