diff options
| author | shess <shess@noemail.net> | 2006-08-22 23:53:46 +0000 |
|---|---|---|
| committer | shess <shess@noemail.net> | 2006-08-22 23:53:46 +0000 |
| commit | ad42c3a352f59c338a4139f73d113c91dc75d4bb (patch) | |
| tree | 084edb9019c69e9e9855ac9ba4e363d78077f745 /src/tclsqlite.c | |
| parent | fa9b4b1499f46adeacff9b037735f75206d13e9b (diff) | |
| download | sqlite-ad42c3a352f59c338a4139f73d113c91dc75d4bb.tar.gz sqlite-ad42c3a352f59c338a4139f73d113c91dc75d4bb.zip | |
Add argc as a default global to match standard tcl environment. (CVS 3361)
FossilOrigin-Name: 533154099c9fe1238705eea03aba388dd71dc35e
Diffstat (limited to 'src/tclsqlite.c')
| -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++){ |