Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Disable the legacy "sqlite" command in the TCL interface. Provide only the "sqlite3" command. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
909b3d8862aeae04611969f5fc27d32a |
| User & Date: | drh 2010-08-25 19:39:20 |
Context
|
2010-08-25
| ||
| 20:35 | Reinstate the "sqlite" alias for backwards compatibility (but leave it undocumented) but remove the PackageProvide for "sqlite". check-in: 699cc6b4 user: drh tags: trunk | |
| 19:39 | Disable the legacy "sqlite" command in the TCL interface. Provide only the "sqlite3" command. check-in: 909b3d88 user: drh tags: trunk | |
| 19:04 | Further test coverage improvements for rtree.c. check-in: 05f6c1ae user: dan tags: trunk | |
Changes
Changes to src/tclsqlite.c.
3015 3016 3017 3018 3019 3020 3021 3022 3023 3024 3025 3026 3027 3028 3029 3030 |
** used to open a new SQLite database. See the DbMain() routine above
** for additional information.
*/
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", PACKAGE_VERSION);
Tcl_CreateObjCommand(interp, "sqlite", (Tcl_ObjCmdProc*)DbMain, 0, 0);
Tcl_PkgProvide(interp, "sqlite", PACKAGE_VERSION);
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; }
int Sqlite3_Unload(Tcl_Interp *interp, int flags){ return TCL_OK; }
int Tclsqlite3_Unload(Tcl_Interp *interp, int flags){ return TCL_OK; }
|
> > |
3015 3016 3017 3018 3019 3020 3021 3022 3023 3024 3025 3026 3027 3028 3029 3030 3031 3032 |
** used to open a new SQLite database. See the DbMain() routine above
** for additional information.
*/
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", PACKAGE_VERSION);
#if 0
Tcl_CreateObjCommand(interp, "sqlite", (Tcl_ObjCmdProc*)DbMain, 0, 0);
Tcl_PkgProvide(interp, "sqlite", PACKAGE_VERSION);
#endif
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; }
int Sqlite3_Unload(Tcl_Interp *interp, int flags){ return TCL_OK; }
int Tclsqlite3_Unload(Tcl_Interp *interp, int flags){ return TCL_OK; }
|
Changes to test/exclusive.test.
392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 |
# instead of deleted when in exclusive access mode.
#
# Close and reopen the database so that the temp database is no
# longer active.
#
db close
sqlite db test.db
# if we're using proxy locks, we use 3 filedescriptors for a db
# that is open but NOT writing changes, normally
# sqlite uses 1 (proxy locking adds the conch and the local lock)
set using_proxy 0
foreach {name value} [array get env SQLITE_FORCE_PROXY_LOCKING] {
set using_proxy $value
|
| |
392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 |
# instead of deleted when in exclusive access mode.
#
# Close and reopen the database so that the temp database is no
# longer active.
#
db close
sqlite3 db test.db
# if we're using proxy locks, we use 3 filedescriptors for a db
# that is open but NOT writing changes, normally
# sqlite uses 1 (proxy locking adds the conch and the local lock)
set using_proxy 0
foreach {name value} [array get env SQLITE_FORCE_PROXY_LOCKING] {
set using_proxy $value
|
Changes to test/tkt1667.test.
30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 |
# Set the pending byte offset such that the page it is on is
# the first autovacuum pointer map page in the file (assume a page
# size of 1024).
set first_ptrmap_page [expr 1024/5 + 3]
sqlite3_test_control_pending_byte [expr 1024 * ($first_ptrmap_page-1)]
sqlite db test.db
do_test tkt1667-1 {
execsql {
PRAGMA auto_vacuum = 1;
BEGIN;
CREATE TABLE t1(a, b);
}
|
| |
30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 |
# Set the pending byte offset such that the page it is on is
# the first autovacuum pointer map page in the file (assume a page
# size of 1024).
set first_ptrmap_page [expr 1024/5 + 3]
sqlite3_test_control_pending_byte [expr 1024 * ($first_ptrmap_page-1)]
sqlite3 db test.db
do_test tkt1667-1 {
execsql {
PRAGMA auto_vacuum = 1;
BEGIN;
CREATE TABLE t1(a, b);
}
|