database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-08-07 02:42:48 +03:00
Code Activity

Remove from the TCL interface some old code associated with sqlite3_analyzer.

Browse Source 
FossilOrigin-Name: 01f2271e51751ff66061f65556a5e324f243756a
This commit is contained in:
drh
2009-11-10 01:13:25 +00:00
parent 1461d7ace0
commit c728597842
3 changed files with 13 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/tclsqlite.c
View File

@@ -3447,16 +3447,6 @@ static char zMainloop[] =
;
#endif
/*
** If the macro TCLSH is two, then get the main loop code out of
** the separate file "spaceanal_tcl.h".
*/
#if TCLSH==2
static char zMainloop[] =
#include "spaceanal_tcl.h"
;
#endif
#define TCLSH_MAIN main /* Needed to fake out mktclapp */
int TCLSH_MAIN(int argc, char **argv){
Tcl_Interp *interp;
@@ -3528,7 +3518,7 @@ int TCLSH_MAIN(int argc, char **argv){
#endif
}
#endif
if( argc>=2 || TCLSH==2 ){
if( argc>=2 ){
int i;
char zArgc[32];
sqlite3_snprintf(sizeof(zArgc), zArgc, "%d", argc-(3-TCLSH));
@@ -3539,14 +3529,14 @@ int TCLSH_MAIN(int argc, char **argv){
Tcl_SetVar(interp, "argv", argv[i],
TCL_GLOBAL_ONLY | TCL_LIST_ELEMENT | TCL_APPEND_VALUE);
}
if( TCLSH==1 && Tcl_EvalFile(interp, argv[1])!=TCL_OK ){
if( Tcl_EvalFile(interp, argv[1])!=TCL_OK ){
const char *zInfo = Tcl_GetVar(interp, "errorInfo", TCL_GLOBAL_ONLY);
if( zInfo==0 ) zInfo = Tcl_GetStringResult(interp);
fprintf(stderr,"%s: %s\n", *argv, zInfo);
return 1;
}
}
if( argc<=1 || TCLSH==2 ){
if( argc<=1 ){
Tcl_GlobalEval(interp, zMainloop);
}
return 0;