diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/tclsqlite.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index 9e2f3c899..c79b942d7 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -11,7 +11,7 @@ ************************************************************************* ** A TCL Interface to SQLite ** -** $Id: tclsqlite.c,v 1.165 2006/07/17 00:02:45 drh Exp $ +** $Id: tclsqlite.c,v 1.166 2006/08/22 23:53:46 shess Exp $ */ #ifndef NO_TCL /* Omit this whole file if TCL is unavailable */ @@ -2220,6 +2220,9 @@ int TCLSH_MAIN(int argc, char **argv){ #endif if( argc>=2 || TCLSH==2 ){ int i; + char zArgc[32]; + sqlite3_snprintf(sizeof(zArgc), zArgc, "%d", argc-(3-TCLSH)); + Tcl_SetVar(interp,"argc", zArgc, TCL_GLOBAL_ONLY); Tcl_SetVar(interp,"argv0",argv[1],TCL_GLOBAL_ONLY); Tcl_SetVar(interp,"argv", "", TCL_GLOBAL_ONLY); for(i=3-TCLSH; i<argc; i++){ |