diff options
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 16 |
1 files changed, 3 insertions, 13 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index ca433acb8..604e93795 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -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; |