diff options
| author | drh <drh@noemail.net> | 2005-01-08 18:42:28 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2005-01-08 18:42:28 +0000 |
| commit | 49766d6cd022f75d8b7563a7c4fbf79a1d5a61d6 (patch) | |
| tree | 298d12b45cad2b31271e14de055e7c4e5af77c66 /src/tclsqlite.c | |
| parent | 268283bc7fe89e9ee4d0a4451550883f798a3175 (diff) | |
| download | sqlite-49766d6cd022f75d8b7563a7c4fbf79a1d5a61d6.tar.gz sqlite-49766d6cd022f75d8b7563a7c4fbf79a1d5a61d6.zip | |
Tcl interface does as sqlite3 or as sqlite. A compile-time option allows
duel linking. Also fix a bug in the pragma change from earlier today. (CVS 2186)
FossilOrigin-Name: ad10953799f3aa15fde41cbbd5911a3b56c326ec
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index d94bb1d1e..3535bbbf3 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -11,7 +11,7 @@ ************************************************************************* ** A TCL Interface to SQLite ** -** $Id: tclsqlite.c,v 1.111 2004/12/17 20:48:06 drh Exp $ +** $Id: tclsqlite.c,v 1.112 2005/01/08 18:42:29 drh Exp $ */ #ifndef NO_TCL /* Omit this whole file if TCL is unavailable */ @@ -1439,20 +1439,20 @@ int Sqlite3_Init(Tcl_Interp *interp){ Tcl_InitStubs(interp, "8.4", 0); Tcl_CreateObjCommand(interp, "sqlite3", (Tcl_ObjCmdProc*)DbMain, 0, 0); Tcl_PkgProvide(interp, "sqlite3", "3.0"); + Tcl_CreateObjCommand(interp, "sqlite", (Tcl_ObjCmdProc*)DbMain, 0, 0); + Tcl_PkgProvide(interp, "sqlite", "3.0"); return TCL_OK; } -int Tclsqlite3_Init(Tcl_Interp *interp){ - Tcl_InitStubs(interp, "8.4", 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){ - return TCL_OK; -} -int Tclsqlite3_SafeInit(Tcl_Interp *interp){ - return TCL_OK; -} +int Tclsqlite3_Init(Tcl_Interp *interp){ return Sqlite3_Init(interp); } +int Sqlite3_SafeInit(Tcl_Interp *interp){ return TCL_OK; } +int Tclsqlite3_SafeInit(Tcl_Interp *interp){ return TCL_OK; } + +#ifndef SQLITE_3_SUFFIX_ONLY +int Sqlite_Init(Tcl_Interp *interp){ return Sqlite3_Init(interp); } +int Tclsqlite_Init(Tcl_Interp *interp){ return Sqlite3_Init(interp); } +int Sqlite_SafeInit(Tcl_Interp *interp){ return TCL_OK; } +int Tclsqlite_SafeInit(Tcl_Interp *interp){ return TCL_OK; } +#endif #ifdef TCLSH /***************************************************************************** |