/ Check-in [9c6090c6]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Reset TCL results when onecolumn or eval methods have no reply. Ticket #1887. (CVS 3331)
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:9c6090c609afa9906029ed4ba22375f5bee058c4
User & Date: drh 2006-07-12 00:18:41
Context
2006-07-17
00:02
Add the "interrupt" method to the TCL interface. Ticket #1889. (CVS 3332) check-in: b0d19e57 user: drh tags: trunk
2006-07-12
00:18
Reset TCL results when onecolumn or eval methods have no reply. Ticket #1887. (CVS 3331) check-in: 9c6090c6 user: drh tags: trunk
2006-07-11
14:17
By default, new databases are now created in the legacy file format - the format that ignores DESC on indices. If you want descending indices, you must either recompile with -DSQLITE_DEFAULT_FILE_FORMAT=4 or issue "PRAGMA legacy_file_format=OFF" prior to creating the first table in the database. (CVS 3330) check-in: 65b60f05 user: drh tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to src/tclsqlite.c.

     7      7   **    May you do good and not evil.
     8      8   **    May you find forgiveness for yourself and forgive others.
     9      9   **    May you share freely, never taking more than you give.
    10     10   **
    11     11   *************************************************************************
    12     12   ** A TCL Interface to SQLite
    13     13   **
    14         -** $Id: tclsqlite.c,v 1.163 2006/07/10 21:15:52 drh Exp $
           14  +** $Id: tclsqlite.c,v 1.164 2006/07/12 00:18:41 drh Exp $
    15     15   */
    16     16   #ifndef NO_TCL     /* Omit this whole file if TCL is unavailable */
    17     17   
    18     18   #include "sqliteInt.h"
    19     19   #include "hash.h"
    20     20   #include "tcl.h"
    21     21   #include <stdlib.h>
................................................................................
  1564   1564       Tcl_DecrRefCount(objv[2]);
  1565   1565   
  1566   1566       if( pRet ){
  1567   1567         if( rc==TCL_OK ){
  1568   1568           Tcl_SetObjResult(interp, pRet);
  1569   1569         }
  1570   1570         Tcl_DecrRefCount(pRet);
         1571  +    }else if( rc==TCL_OK ){
         1572  +      Tcl_ResetResult(interp);
  1571   1573       }
  1572   1574       break;
  1573   1575     }
  1574   1576   
  1575   1577     /*
  1576   1578     **     $db function NAME SCRIPT
  1577   1579     **