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

Add the sqlite_open_aux_file() API. (CVS 646)

Browse Source 
FossilOrigin-Name: 332164d6455658ca633a1dc49811d9fb0fd4b01c
This commit is contained in:
drh
2002-06-25 19:31:18 +00:00
parent e3c163e4e0
commit 411995dc0d
7 changed files with 116 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
src/tclsqlite.c
View File

@@ -11,7 +11,7 @@
*************************************************************************
** A TCL Interface to SQLite
**
** $Id: tclsqlite.c,v 1.32 2002/05/10 13:14:07 drh Exp $
** $Id: tclsqlite.c,v 1.33 2002/06/25 19:31:18 drh Exp $
*/
#ifndef NO_TCL /* Omit this whole file if TCL is unavailable */
@@ -267,24 +267,26 @@ static int DbBusyHandler(void *cd, const char *zTable, int nTries){
static int DbObjCmd(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){
SqliteDb *pDb = (SqliteDb*)cd;
int choice;
static char *DB_optStrs[] = {
"busy", "changes", "close", "complete",
"eval", "last_insert_rowid", "timeout", 0
static char *DB_strs[] = {
"busy", "changes", "close",
"complete", "eval", "last_insert_rowid",
"open_aux_file", "timeout", 0
};
enum DB_opts {
DB_BUSY, DB_CHANGES, DB_CLOSE, DB_COMPLETE,
DB_EVAL, DB_LAST_INSERT_ROWID, DB_TIMEOUT
enum DB_enum {
DB_BUSY, DB_CHANGES, DB_CLOSE,
DB_COMPLETE, DB_EVAL, DB_LAST_INSERT_ROWID,
DB_OPEN_AUX_FILE, DB_TIMEOUT,
};
if( objc<2 ){
Tcl_WrongNumArgs(interp, 1, objv, "SUBCOMMAND ...");
return TCL_ERROR;
}
if( Tcl_GetIndexFromObj(interp, objv[1], DB_optStrs, "option", 0, &choice) ){
if( Tcl_GetIndexFromObj(interp, objv[1], DB_strs, "option", 0, &choice) ){
return TCL_ERROR;
}
switch( (enum DB_opts)choice ){
switch( (enum DB_enum)choice ){
/* $db busy ?CALLBACK?
**
@@ -463,6 +465,34 @@ static int DbObjCmd(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){
break;
}
/*
** $db open_aux_file FILENAME
**
** Begin using FILENAME as the database file used to store temporary
** tables.
*/
case DB_OPEN_AUX_FILE: {
const char *zFilename;
char *zErrMsg = 0;
int rc;
if( objc!=3 ){
Tcl_WrongNumArgs(interp, 2, objv, "FILENAME");
return TCL_ERROR;
}
zFilename = Tcl_GetStringFromObj(objv[2], 0);
rc = sqlite_open_aux_file(pDb->db, zFilename, &zErrMsg);
if( rc!=0 ){
if( zErrMsg ){
Tcl_AppendResult(interp, zErrMsg, 0);
free(zErrMsg);
}else{
Tcl_AppendResult(interp, sqlite_error_string(rc), 0);
}
return TCL_ERROR;
}
break;
}
/*
** $db timeout MILLESECONDS
**