diff options
| author | drh <drh@noemail.net> | 2000-09-30 22:46:05 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2000-09-30 22:46:05 +0000 |
| commit | 9b0d0a8bc5f5c1d0cea55db7f4fc25fb4636aaec (patch) | |
| tree | cb753f8031b856cc13b8802a1bd61a51d95ca9ee /src/tclsqlite.c | |
| parent | 05a1c8d08c16a6483bb4e5409de54dfddeac9348 (diff) | |
| download | sqlite-9b0d0a8bc5f5c1d0cea55db7f4fc25fb4636aaec.tar.gz sqlite-9b0d0a8bc5f5c1d0cea55db7f4fc25fb4636aaec.zip | |
Documenting the TCL interface (CVS 149)
FossilOrigin-Name: 7e0bacedf928095b29e7166eacd2356e8169d6dd
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index b4bdd8893..0399b3f19 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -23,7 +23,7 @@ ************************************************************************* ** A TCL Interface to SQLite ** -** $Id: tclsqlite.c,v 1.9 2000/09/21 13:01:37 drh Exp $ +** $Id: tclsqlite.c,v 1.10 2000/09/30 22:46:07 drh Exp $ */ #ifndef NO_TCL /* Omit this whole file if TCL is unavailable */ @@ -68,6 +68,7 @@ static int DbEvalCallback( int i, rc; if( cbData->zArray[0] ){ if( cbData->once ){ + Tcl_SetVar2(cbData->interp, cbData->zArray, "*", "", 0); for(i=0; i<nCol; i++){ Tcl_SetVar2(cbData->interp, cbData->zArray, "*", azN[i], TCL_LIST_ELEMENT|TCL_APPEND_VALUE); @@ -87,7 +88,7 @@ static int DbEvalCallback( } cbData->once = 0; rc = Tcl_EvalObj(cbData->interp, cbData->pCode); - return rc; + return rc!=TCL_OK && rc!=TCL_CONTINUE; } /* |