diff options
| author | drh <drh@noemail.net> | 2004-06-19 00:16:31 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2004-06-19 00:16:31 +0000 |
| commit | ef4ac8f9df7e0dcf4475dc14bf16ee28e5bd3ccf (patch) | |
| tree | e4dbdd3ace2b1c7e36386fc0c81b3f60c74c5e05 /src/tclsqlite.c | |
| parent | 81c95efaf547f7eb17c5cb2980de2ea6e7910c70 (diff) | |
| download | sqlite-ef4ac8f9df7e0dcf4475dc14bf16ee28e5bd3ccf.tar.gz sqlite-ef4ac8f9df7e0dcf4475dc14bf16ee28e5bd3ccf.zip | |
Change the name of the TCL command from "sqlite" to "sqlite3" so that both
SQLite version 2 and SQLite version 3 can be used by Tcl at the same time. (CVS 1626)
FossilOrigin-Name: d705d051bed2b92b6c3bbcc75fe5b056633b9c31
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index 869e8c0e3..c45757320 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -11,7 +11,7 @@ ************************************************************************* ** A TCL Interface to SQLite ** -** $Id: tclsqlite.c,v 1.87 2004/06/18 17:10:17 drh Exp $ +** $Id: tclsqlite.c,v 1.88 2004/06/19 00:16:31 drh Exp $ */ #ifndef NO_TCL /* Omit this whole file if TCL is unavailable */ @@ -1111,14 +1111,14 @@ static int DbMain(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){ */ int Sqlite3_Init(Tcl_Interp *interp){ Tcl_InitStubs(interp, "8.0", 0); - Tcl_CreateObjCommand(interp, "sqlite", (Tcl_ObjCmdProc*)DbMain, 0, 0); - Tcl_PkgProvide(interp, "sqlite", "2.0"); + Tcl_CreateObjCommand(interp, "sqlite3", (Tcl_ObjCmdProc*)DbMain, 0, 0); + Tcl_PkgProvide(interp, "sqlite3", "3.0"); return TCL_OK; } int Tclsqlite3_Init(Tcl_Interp *interp){ Tcl_InitStubs(interp, "8.0", 0); - Tcl_CreateObjCommand(interp, "sqlite", (Tcl_ObjCmdProc*)DbMain, 0, 0); - Tcl_PkgProvide(interp, "sqlite", "2.0"); + Tcl_CreateObjCommand(interp, "sqlite3", (Tcl_ObjCmdProc*)DbMain, 0, 0); + Tcl_PkgProvide(interp, "sqlite3", "3.0"); return TCL_OK; } int Sqlite3_SafeInit(Tcl_Interp *interp){ |