1
0
mirror of https://github.com/sqlite/sqlite.git synced 2025-08-07 02:42:48 +03:00

Pager is working, mostly. (CVS 211)

FossilOrigin-Name: f82fa7070ae281804c019e6b05cd767dadaf0827
This commit is contained in:
drh
2001-04-15 00:37:09 +00:00
parent 69688d5f54
commit d9b0257a24
10 changed files with 1089 additions and 283 deletions

View File

@@ -23,7 +23,7 @@
*************************************************************************
** A TCL Interface to SQLite
**
** $Id: tclsqlite.c,v 1.17 2001/04/07 15:24:33 drh Exp $
** $Id: tclsqlite.c,v 1.18 2001/04/15 00:37:09 drh Exp $
*/
#ifndef NO_TCL /* Omit this whole file if TCL is unavailable */
@@ -507,10 +507,12 @@ int TCLSH_MAIN(int argc, char **argv){
Tcl_FindExecutable(argv[0]);
interp = Tcl_CreateInterp();
Sqlite_Init(interp);
#ifdef SQLITE_TEST1
#ifdef SQLITE_TEST
{
extern int Sqlitetest1_Init(Tcl_Interp*);
extern int Sqlitetest2_Init(Tcl_Interp*);
Sqlitetest1_Init(interp);
Sqlitetest2_Init(interp);
}
#endif
if( argc>=2 ){