1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000
1.2 +++ b/os/persistentdata/persistentstorage/sqlite3api/TEST/SRC/test_osinst.c Fri Jun 15 03:10:57 2012 +0200
1.3 @@ -0,0 +1,1069 @@
1.4 +/*
1.5 +** 2008 April 10
1.6 +**
1.7 +** The author disclaims copyright to this source code. In place of
1.8 +** a legal notice, here is a blessing:
1.9 +**
1.10 +** May you do good and not evil.
1.11 +** May you find forgiveness for yourself and forgive others.
1.12 +** May you share freely, never taking more than you give.
1.13 +**
1.14 +******************************************************************************
1.15 +**
1.16 +** This file contains the implementation of an SQLite vfs wrapper that
1.17 +** adds instrumentation to all vfs and file methods. C and Tcl interfaces
1.18 +** are provided to control the instrumentation.
1.19 +**
1.20 +** $Id: test_osinst.c,v 1.18 2008/07/25 13:32:45 drh Exp $
1.21 +*/
1.22 +
1.23 +#ifdef SQLITE_ENABLE_INSTVFS
1.24 +/*
1.25 +** C interface:
1.26 +**
1.27 +** sqlite3_instvfs_create()
1.28 +** sqlite3_instvfs_destroy()
1.29 +** sqlite3_instvfs_configure()
1.30 +**
1.31 +** sqlite3_instvfs_reset()
1.32 +** sqlite3_instvfs_get()
1.33 +**
1.34 +** sqlite3_instvfs_binarylog
1.35 +** sqlite3_instvfs_binarylog_marker
1.36 +**
1.37 +** Tcl interface (omitted if SQLITE_TEST is not set):
1.38 +**
1.39 +** sqlite3_instvfs create NAME ?PARENT?
1.40 +**
1.41 +** Create and register new vfs called $NAME, which is a wrapper around
1.42 +** the existing vfs $PARENT. If the PARENT argument is omitted, the
1.43 +** new vfs is a wrapper around the current default vfs.
1.44 +**
1.45 +** sqlite3_instvfs destroy NAME
1.46 +**
1.47 +** Deregister and destroy the vfs named $NAME, which must have been
1.48 +** created by an earlier invocation of [sqlite3_instvfs create].
1.49 +**
1.50 +** sqlite3_instvfs configure NAME SCRIPT
1.51 +**
1.52 +** Configure the callback script for the vfs $NAME, which much have
1.53 +** been created by an earlier invocation of [sqlite3_instvfs create].
1.54 +** After a callback script has been configured, it is invoked each
1.55 +** time a vfs or file method is called by SQLite. Before invoking
1.56 +** the callback script, five arguments are appended to it:
1.57 +**
1.58 +** * The name of the invoked method - i.e. "xRead".
1.59 +**
1.60 +** * The time consumed by the method call as measured by
1.61 +** sqlite3Hwtime() (an integer value)
1.62 +**
1.63 +** * A string value with a different meaning for different calls.
1.64 +** For file methods, the name of the file being operated on. For
1.65 +** other methods it is the filename argument, if any.
1.66 +**
1.67 +** * A 32-bit integer value with a call-specific meaning.
1.68 +**
1.69 +** * A 64-bit integer value. For xRead() and xWrite() calls this
1.70 +** is the file offset being written to or read from. Unused by
1.71 +** all other calls.
1.72 +**
1.73 +** sqlite3_instvfs reset NAME
1.74 +**
1.75 +** Zero the internal event counters associated with vfs $NAME,
1.76 +** which must have been created by an earlier invocation of
1.77 +** [sqlite3_instvfs create].
1.78 +**
1.79 +** sqlite3_instvfs report NAME
1.80 +**
1.81 +** Return the values of the internal event counters associated
1.82 +** with vfs $NAME. The report format is a list with one element
1.83 +** for each method call (xWrite, xRead etc.). Each element is
1.84 +** itself a list with three elements:
1.85 +**
1.86 +** * The name of the method call - i.e. "xWrite",
1.87 +** * The total number of calls to the method (an integer).
1.88 +** * The aggregate time consumed by all calls to the method as
1.89 +** measured by sqlite3Hwtime() (an integer).
1.90 +*/
1.91 +
1.92 +#include "sqlite3.h"
1.93 +#include <string.h>
1.94 +#include <assert.h>
1.95 +
1.96 +/*
1.97 +** Maximum pathname length supported by the inst backend.
1.98 +*/
1.99 +#define INST_MAX_PATHNAME 512
1.100 +
1.101 +
1.102 +/* File methods */
1.103 +/* Vfs methods */
1.104 +#define OS_ACCESS 1
1.105 +#define OS_CHECKRESERVEDLOCK 2
1.106 +#define OS_CLOSE 3
1.107 +#define OS_CURRENTTIME 4
1.108 +#define OS_DELETE 5
1.109 +#define OS_DEVCHAR 6
1.110 +#define OS_FILECONTROL 7
1.111 +#define OS_FILESIZE 8
1.112 +#define OS_FULLPATHNAME 9
1.113 +#define OS_LOCK 11
1.114 +#define OS_OPEN 12
1.115 +#define OS_RANDOMNESS 13
1.116 +#define OS_READ 14
1.117 +#define OS_SECTORSIZE 15
1.118 +#define OS_SLEEP 16
1.119 +#define OS_SYNC 17
1.120 +#define OS_TRUNCATE 18
1.121 +#define OS_UNLOCK 19
1.122 +#define OS_WRITE 20
1.123 +
1.124 +#define OS_NUMEVENTS 21
1.125 +
1.126 +#define BINARYLOG_STRING 30
1.127 +#define BINARYLOG_MARKER 31
1.128 +
1.129 +#define BINARYLOG_PREPARE_V2 64
1.130 +#define BINARYLOG_STEP 65
1.131 +#define BINARYLOG_FINALIZE 66
1.132 +
1.133 +struct InstVfs {
1.134 + sqlite3_vfs base;
1.135 + sqlite3_vfs *pVfs;
1.136 +
1.137 + void *pClient;
1.138 + void (*xDel)(void *);
1.139 + void (*xCall)(void *, int, int, sqlite3_int64, int, const char *, int, int, sqlite3_int64);
1.140 +
1.141 + /* Counters */
1.142 + sqlite3_int64 aTime[OS_NUMEVENTS];
1.143 + int aCount[OS_NUMEVENTS];
1.144 +
1.145 + int iNextFileId;
1.146 +};
1.147 +typedef struct InstVfs InstVfs;
1.148 +
1.149 +#define REALVFS(p) (((InstVfs *)(p))->pVfs)
1.150 +
1.151 +typedef struct inst_file inst_file;
1.152 +struct inst_file {
1.153 + sqlite3_file base;
1.154 + sqlite3_file *pReal;
1.155 + InstVfs *pInstVfs;
1.156 + const char *zName;
1.157 + int iFileId; /* File id number */
1.158 + int flags;
1.159 +};
1.160 +
1.161 +/*
1.162 +** Method declarations for inst_file.
1.163 +*/
1.164 +static int instClose(sqlite3_file*);
1.165 +static int instRead(sqlite3_file*, void*, int iAmt, sqlite3_int64 iOfst);
1.166 +static int instWrite(sqlite3_file*,const void*,int iAmt, sqlite3_int64 iOfst);
1.167 +static int instTruncate(sqlite3_file*, sqlite3_int64 size);
1.168 +static int instSync(sqlite3_file*, int flags);
1.169 +static int instFileSize(sqlite3_file*, sqlite3_int64 *pSize);
1.170 +static int instLock(sqlite3_file*, int);
1.171 +static int instUnlock(sqlite3_file*, int);
1.172 +static int instCheckReservedLock(sqlite3_file*, int *pResOut);
1.173 +static int instFileControl(sqlite3_file*, int op, void *pArg);
1.174 +static int instSectorSize(sqlite3_file*);
1.175 +static int instDeviceCharacteristics(sqlite3_file*);
1.176 +
1.177 +/*
1.178 +** Method declarations for inst_vfs.
1.179 +*/
1.180 +static int instOpen(sqlite3_vfs*, const char *, sqlite3_file*, int , int *);
1.181 +static int instDelete(sqlite3_vfs*, const char *zName, int syncDir);
1.182 +static int instAccess(sqlite3_vfs*, const char *zName, int flags, int *);
1.183 +static int instFullPathname(sqlite3_vfs*, const char *zName, int, char *zOut);
1.184 +static void *instDlOpen(sqlite3_vfs*, const char *zFilename);
1.185 +static void instDlError(sqlite3_vfs*, int nByte, char *zErrMsg);
1.186 +static void *instDlSym(sqlite3_vfs*,void*, const char *zSymbol);
1.187 +static void instDlClose(sqlite3_vfs*, void*);
1.188 +static int instRandomness(sqlite3_vfs*, int nByte, char *zOut);
1.189 +static int instSleep(sqlite3_vfs*, int microseconds);
1.190 +static int instCurrentTime(sqlite3_vfs*, double*);
1.191 +
1.192 +static void binarylog_blob(sqlite3_vfs *, const char *, int, int);
1.193 +
1.194 +static sqlite3_vfs inst_vfs = {
1.195 + 1, /* iVersion */
1.196 + sizeof(inst_file), /* szOsFile */
1.197 + INST_MAX_PATHNAME, /* mxPathname */
1.198 + 0, /* pNext */
1.199 + 0, /* zName */
1.200 + 0, /* pAppData */
1.201 + instOpen, /* xOpen */
1.202 + instDelete, /* xDelete */
1.203 + instAccess, /* xAccess */
1.204 + instFullPathname, /* xFullPathname */
1.205 + instDlOpen, /* xDlOpen */
1.206 + instDlError, /* xDlError */
1.207 + instDlSym, /* xDlSym */
1.208 + instDlClose, /* xDlClose */
1.209 + instRandomness, /* xRandomness */
1.210 + instSleep, /* xSleep */
1.211 + instCurrentTime /* xCurrentTime */
1.212 +};
1.213 +
1.214 +static sqlite3_io_methods inst_io_methods = {
1.215 + 1, /* iVersion */
1.216 + instClose, /* xClose */
1.217 + instRead, /* xRead */
1.218 + instWrite, /* xWrite */
1.219 + instTruncate, /* xTruncate */
1.220 + instSync, /* xSync */
1.221 + instFileSize, /* xFileSize */
1.222 + instLock, /* xLock */
1.223 + instUnlock, /* xUnlock */
1.224 + instCheckReservedLock, /* xCheckReservedLock */
1.225 + instFileControl, /* xFileControl */
1.226 + instSectorSize, /* xSectorSize */
1.227 + instDeviceCharacteristics /* xDeviceCharacteristics */
1.228 +};
1.229 +
1.230 +/*
1.231 +** hwtime.h contains inline assembler code for implementing
1.232 +** high-performance timing routines.
1.233 +*/
1.234 +#include "hwtime.h"
1.235 +
1.236 +#define OS_TIME_IO(eEvent, A, B, Call) { \
1.237 + inst_file *p = (inst_file *)pFile; \
1.238 + InstVfs *pInstVfs = p->pInstVfs; \
1.239 + int rc; \
1.240 + sqlite_uint64 t = sqlite3Hwtime(); \
1.241 + rc = Call; \
1.242 + t = sqlite3Hwtime() - t; \
1.243 + pInstVfs->aTime[eEvent] += t; \
1.244 + pInstVfs->aCount[eEvent] += 1; \
1.245 + if( pInstVfs->xCall ){ \
1.246 + pInstVfs->xCall( \
1.247 + pInstVfs->pClient,eEvent,p->iFileId,t,rc,p->zName,p->flags,A,B \
1.248 + ); \
1.249 + } \
1.250 + return rc; \
1.251 +}
1.252 +
1.253 +#define OS_TIME_VFS(eEvent, Z, flags, A, B, Call) { \
1.254 + InstVfs *pInstVfs = (InstVfs *)pVfs; \
1.255 + int rc; \
1.256 + sqlite_uint64 t = sqlite3Hwtime(); \
1.257 + rc = Call; \
1.258 + t = sqlite3Hwtime() - t; \
1.259 + pInstVfs->aTime[eEvent] += t; \
1.260 + pInstVfs->aCount[eEvent] += 1; \
1.261 + if( pInstVfs->xCall ){ \
1.262 + pInstVfs->xCall(pInstVfs->pClient,eEvent,0, t, rc, Z, flags, A, B); \
1.263 + } \
1.264 + return rc; \
1.265 +}
1.266 +
1.267 +/*
1.268 +** Close an inst-file.
1.269 +*/
1.270 +static int instClose(sqlite3_file *pFile){
1.271 + OS_TIME_IO(OS_CLOSE, 0, 0,
1.272 + (p->pReal->pMethods ? p->pReal->pMethods->xClose(p->pReal) : SQLITE_OK)
1.273 + );
1.274 +}
1.275 +
1.276 +/*
1.277 +** Read data from an inst-file.
1.278 +*/
1.279 +static int instRead(
1.280 + sqlite3_file *pFile,
1.281 + void *zBuf,
1.282 + int iAmt,
1.283 + sqlite_int64 iOfst
1.284 +){
1.285 + sqlite3_vfs *pVfs = (sqlite3_vfs *)(((inst_file *)pFile)->pInstVfs);
1.286 + OS_TIME_IO(OS_READ, iAmt, (binarylog_blob(pVfs, zBuf, iAmt, 1), iOfst),
1.287 + p->pReal->pMethods->xRead(p->pReal, zBuf, iAmt, iOfst)
1.288 + );
1.289 +}
1.290 +
1.291 +/*
1.292 +** Write data to an inst-file.
1.293 +*/
1.294 +static int instWrite(
1.295 + sqlite3_file *pFile,
1.296 + const void *z,
1.297 + int iAmt,
1.298 + sqlite_int64 iOfst
1.299 +){
1.300 + sqlite3_vfs *pVfs = (sqlite3_vfs *)(((inst_file *)pFile)->pInstVfs);
1.301 + binarylog_blob(pVfs, z, iAmt, 1);
1.302 + OS_TIME_IO(OS_WRITE, iAmt, iOfst,
1.303 + p->pReal->pMethods->xWrite(p->pReal, z, iAmt, iOfst)
1.304 + );
1.305 +}
1.306 +
1.307 +/*
1.308 +** Truncate an inst-file.
1.309 +*/
1.310 +static int instTruncate(sqlite3_file *pFile, sqlite_int64 size){
1.311 + OS_TIME_IO(OS_TRUNCATE, 0, (int)size,
1.312 + p->pReal->pMethods->xTruncate(p->pReal, size)
1.313 + );
1.314 +}
1.315 +
1.316 +/*
1.317 +** Sync an inst-file.
1.318 +*/
1.319 +static int instSync(sqlite3_file *pFile, int flags){
1.320 + OS_TIME_IO(OS_SYNC, flags, 0, p->pReal->pMethods->xSync(p->pReal, flags));
1.321 +}
1.322 +
1.323 +/*
1.324 +** Return the current file-size of an inst-file.
1.325 +*/
1.326 +static int instFileSize(sqlite3_file *pFile, sqlite_int64 *pSize){
1.327 + OS_TIME_IO(OS_FILESIZE, (int)(*pSize), 0,
1.328 + p->pReal->pMethods->xFileSize(p->pReal, pSize)
1.329 + );
1.330 +}
1.331 +
1.332 +/*
1.333 +** Lock an inst-file.
1.334 +*/
1.335 +static int instLock(sqlite3_file *pFile, int eLock){
1.336 + OS_TIME_IO(OS_LOCK, eLock, 0, p->pReal->pMethods->xLock(p->pReal, eLock));
1.337 +}
1.338 +
1.339 +/*
1.340 +** Unlock an inst-file.
1.341 +*/
1.342 +static int instUnlock(sqlite3_file *pFile, int eLock){
1.343 + OS_TIME_IO(OS_UNLOCK, eLock, 0, p->pReal->pMethods->xUnlock(p->pReal, eLock));
1.344 +}
1.345 +
1.346 +/*
1.347 +** Check if another file-handle holds a RESERVED lock on an inst-file.
1.348 +*/
1.349 +static int instCheckReservedLock(sqlite3_file *pFile, int *pResOut){
1.350 + OS_TIME_IO(OS_CHECKRESERVEDLOCK, 0, 0,
1.351 + p->pReal->pMethods->xCheckReservedLock(p->pReal, pResOut)
1.352 + );
1.353 +}
1.354 +
1.355 +/*
1.356 +** File control method. For custom operations on an inst-file.
1.357 +*/
1.358 +static int instFileControl(sqlite3_file *pFile, int op, void *pArg){
1.359 + OS_TIME_IO(OS_FILECONTROL, 0, 0, p->pReal->pMethods->xFileControl(p->pReal, op, pArg));
1.360 +}
1.361 +
1.362 +/*
1.363 +** Return the sector-size in bytes for an inst-file.
1.364 +*/
1.365 +static int instSectorSize(sqlite3_file *pFile){
1.366 + OS_TIME_IO(OS_SECTORSIZE, 0, 0, p->pReal->pMethods->xSectorSize(p->pReal));
1.367 +}
1.368 +
1.369 +/*
1.370 +** Return the device characteristic flags supported by an inst-file.
1.371 +*/
1.372 +static int instDeviceCharacteristics(sqlite3_file *pFile){
1.373 + OS_TIME_IO(OS_DEVCHAR, 0, 0, p->pReal->pMethods->xDeviceCharacteristics(p->pReal));
1.374 +}
1.375 +
1.376 +/*
1.377 +** Open an inst file handle.
1.378 +*/
1.379 +static int instOpen(
1.380 + sqlite3_vfs *pVfs,
1.381 + const char *zName,
1.382 + sqlite3_file *pFile,
1.383 + int flags,
1.384 + int *pOutFlags
1.385 +){
1.386 + inst_file *p = (inst_file *)pFile;
1.387 + pFile->pMethods = &inst_io_methods;
1.388 + p->pReal = (sqlite3_file *)&p[1];
1.389 + p->pInstVfs = (InstVfs *)pVfs;
1.390 + p->zName = zName;
1.391 + p->flags = flags;
1.392 + p->iFileId = ++p->pInstVfs->iNextFileId;
1.393 +
1.394 + binarylog_blob(pVfs, zName, -1, 0);
1.395 + OS_TIME_VFS(OS_OPEN, zName, flags, p->iFileId, 0,
1.396 + REALVFS(pVfs)->xOpen(REALVFS(pVfs), zName, p->pReal, flags, pOutFlags)
1.397 + );
1.398 +}
1.399 +
1.400 +/*
1.401 +** Delete the file located at zPath. If the dirSync argument is true,
1.402 +** ensure the file-system modifications are synced to disk before
1.403 +** returning.
1.404 +*/
1.405 +static int instDelete(sqlite3_vfs *pVfs, const char *zPath, int dirSync){
1.406 + binarylog_blob(pVfs, zPath, -1, 0);
1.407 + OS_TIME_VFS(OS_DELETE, zPath, 0, dirSync, 0,
1.408 + REALVFS(pVfs)->xDelete(REALVFS(pVfs), zPath, dirSync)
1.409 + );
1.410 +}
1.411 +
1.412 +/*
1.413 +** Test for access permissions. Return true if the requested permission
1.414 +** is available, or false otherwise.
1.415 +*/
1.416 +static int instAccess(
1.417 + sqlite3_vfs *pVfs,
1.418 + const char *zPath,
1.419 + int flags,
1.420 + int *pResOut
1.421 +){
1.422 + binarylog_blob(pVfs, zPath, -1, 0);
1.423 + OS_TIME_VFS(OS_ACCESS, zPath, 0, flags, *pResOut,
1.424 + REALVFS(pVfs)->xAccess(REALVFS(pVfs), zPath, flags, pResOut)
1.425 + );
1.426 +}
1.427 +
1.428 +/*
1.429 +** Populate buffer zOut with the full canonical pathname corresponding
1.430 +** to the pathname in zPath. zOut is guaranteed to point to a buffer
1.431 +** of at least (INST_MAX_PATHNAME+1) bytes.
1.432 +*/
1.433 +static int instFullPathname(
1.434 + sqlite3_vfs *pVfs,
1.435 + const char *zPath,
1.436 + int nOut,
1.437 + char *zOut
1.438 +){
1.439 + OS_TIME_VFS( OS_FULLPATHNAME, zPath, 0, 0, 0,
1.440 + REALVFS(pVfs)->xFullPathname(REALVFS(pVfs), zPath, nOut, zOut);
1.441 + );
1.442 +}
1.443 +
1.444 +/*
1.445 +** Open the dynamic library located at zPath and return a handle.
1.446 +*/
1.447 +static void *instDlOpen(sqlite3_vfs *pVfs, const char *zPath){
1.448 + return REALVFS(pVfs)->xDlOpen(REALVFS(pVfs), zPath);
1.449 +}
1.450 +
1.451 +/*
1.452 +** Populate the buffer zErrMsg (size nByte bytes) with a human readable
1.453 +** utf-8 string describing the most recent error encountered associated
1.454 +** with dynamic libraries.
1.455 +*/
1.456 +static void instDlError(sqlite3_vfs *pVfs, int nByte, char *zErrMsg){
1.457 + REALVFS(pVfs)->xDlError(REALVFS(pVfs), nByte, zErrMsg);
1.458 +}
1.459 +
1.460 +/*
1.461 +** Return a pointer to the symbol zSymbol in the dynamic library pHandle.
1.462 +*/
1.463 +static void *instDlSym(sqlite3_vfs *pVfs, void *pHandle, const char *zSymbol){
1.464 + return REALVFS(pVfs)->xDlSym(REALVFS(pVfs), pHandle, zSymbol);
1.465 +}
1.466 +
1.467 +/*
1.468 +** Close the dynamic library handle pHandle.
1.469 +*/
1.470 +static void instDlClose(sqlite3_vfs *pVfs, void *pHandle){
1.471 + REALVFS(pVfs)->xDlClose(REALVFS(pVfs), pHandle);
1.472 +}
1.473 +
1.474 +/*
1.475 +** Populate the buffer pointed to by zBufOut with nByte bytes of
1.476 +** random data.
1.477 +*/
1.478 +static int instRandomness(sqlite3_vfs *pVfs, int nByte, char *zBufOut){
1.479 + OS_TIME_VFS( OS_RANDOMNESS, 0, 0, nByte, 0,
1.480 + REALVFS(pVfs)->xRandomness(REALVFS(pVfs), nByte, zBufOut);
1.481 + );
1.482 +}
1.483 +
1.484 +/*
1.485 +** Sleep for nMicro microseconds. Return the number of microseconds
1.486 +** actually slept.
1.487 +*/
1.488 +static int instSleep(sqlite3_vfs *pVfs, int nMicro){
1.489 + OS_TIME_VFS( OS_SLEEP, 0, 0, nMicro, 0,
1.490 + REALVFS(pVfs)->xSleep(REALVFS(pVfs), nMicro)
1.491 + );
1.492 +}
1.493 +
1.494 +/*
1.495 +** Return the current time as a Julian Day number in *pTimeOut.
1.496 +*/
1.497 +static int instCurrentTime(sqlite3_vfs *pVfs, double *pTimeOut){
1.498 + OS_TIME_VFS( OS_CURRENTTIME, 0, 0, 0, 0,
1.499 + REALVFS(pVfs)->xCurrentTime(REALVFS(pVfs), pTimeOut)
1.500 + );
1.501 +}
1.502 +
1.503 +sqlite3_vfs *sqlite3_instvfs_create(const char *zName, const char *zParent){
1.504 + int nByte;
1.505 + InstVfs *p;
1.506 + sqlite3_vfs *pParent;
1.507 +
1.508 + pParent = sqlite3_vfs_find(zParent);
1.509 + if( !pParent ){
1.510 + return 0;
1.511 + }
1.512 +
1.513 + nByte = strlen(zName) + 1 + sizeof(InstVfs);
1.514 + p = (InstVfs *)sqlite3_malloc(nByte);
1.515 + if( p ){
1.516 + char *zCopy = (char *)&p[1];
1.517 + memset(p, 0, nByte);
1.518 + memcpy(p, &inst_vfs, sizeof(sqlite3_vfs));
1.519 + p->pVfs = pParent;
1.520 + memcpy(zCopy, zName, strlen(zName));
1.521 + p->base.zName = (const char *)zCopy;
1.522 + p->base.szOsFile += pParent->szOsFile;
1.523 + sqlite3_vfs_register((sqlite3_vfs *)p, 0);
1.524 + }
1.525 +
1.526 + return (sqlite3_vfs *)p;
1.527 +}
1.528 +
1.529 +void sqlite3_instvfs_configure(
1.530 + sqlite3_vfs *pVfs,
1.531 + void (*xCall)(
1.532 + void*,
1.533 + int, /* File id */
1.534 + int, /* Event code */
1.535 + sqlite3_int64,
1.536 + int, /* Return code */
1.537 + const char*, /* File name */
1.538 + int,
1.539 + int,
1.540 + sqlite3_int64
1.541 + ),
1.542 + void *pClient,
1.543 + void (*xDel)(void *)
1.544 +){
1.545 + InstVfs *p = (InstVfs *)pVfs;
1.546 + assert( pVfs->xOpen==instOpen );
1.547 + if( p->xDel ){
1.548 + p->xDel(p->pClient);
1.549 + }
1.550 + p->xCall = xCall;
1.551 + p->xDel = xDel;
1.552 + p->pClient = pClient;
1.553 +}
1.554 +
1.555 +void sqlite3_instvfs_destroy(sqlite3_vfs *pVfs){
1.556 + if( pVfs ){
1.557 + sqlite3_vfs_unregister(pVfs);
1.558 + sqlite3_instvfs_configure(pVfs, 0, 0, 0);
1.559 + sqlite3_free(pVfs);
1.560 + }
1.561 +}
1.562 +
1.563 +void sqlite3_instvfs_reset(sqlite3_vfs *pVfs){
1.564 + InstVfs *p = (InstVfs *)pVfs;
1.565 + assert( pVfs->xOpen==instOpen );
1.566 + memset(p->aTime, 0, sizeof(sqlite3_int64)*OS_NUMEVENTS);
1.567 + memset(p->aCount, 0, sizeof(int)*OS_NUMEVENTS);
1.568 +}
1.569 +
1.570 +const char *sqlite3_instvfs_name(int eEvent){
1.571 + const char *zEvent = 0;
1.572 +
1.573 + switch( eEvent ){
1.574 + case OS_CLOSE: zEvent = "xClose"; break;
1.575 + case OS_READ: zEvent = "xRead"; break;
1.576 + case OS_WRITE: zEvent = "xWrite"; break;
1.577 + case OS_TRUNCATE: zEvent = "xTruncate"; break;
1.578 + case OS_SYNC: zEvent = "xSync"; break;
1.579 + case OS_FILESIZE: zEvent = "xFilesize"; break;
1.580 + case OS_LOCK: zEvent = "xLock"; break;
1.581 + case OS_UNLOCK: zEvent = "xUnlock"; break;
1.582 + case OS_CHECKRESERVEDLOCK: zEvent = "xCheckReservedLock"; break;
1.583 + case OS_FILECONTROL: zEvent = "xFileControl"; break;
1.584 + case OS_SECTORSIZE: zEvent = "xSectorSize"; break;
1.585 + case OS_DEVCHAR: zEvent = "xDeviceCharacteristics"; break;
1.586 + case OS_OPEN: zEvent = "xOpen"; break;
1.587 + case OS_DELETE: zEvent = "xDelete"; break;
1.588 + case OS_ACCESS: zEvent = "xAccess"; break;
1.589 + case OS_FULLPATHNAME: zEvent = "xFullPathname"; break;
1.590 + case OS_RANDOMNESS: zEvent = "xRandomness"; break;
1.591 + case OS_SLEEP: zEvent = "xSleep"; break;
1.592 + case OS_CURRENTTIME: zEvent = "xCurrentTime"; break;
1.593 + }
1.594 +
1.595 + return zEvent;
1.596 +}
1.597 +
1.598 +void sqlite3_instvfs_get(
1.599 + sqlite3_vfs *pVfs,
1.600 + int eEvent,
1.601 + const char **pzEvent,
1.602 + sqlite3_int64 *pnClick,
1.603 + int *pnCall
1.604 +){
1.605 + InstVfs *p = (InstVfs *)pVfs;
1.606 + assert( pVfs->xOpen==instOpen );
1.607 + if( eEvent<1 || eEvent>=OS_NUMEVENTS ){
1.608 + *pzEvent = 0;
1.609 + *pnClick = 0;
1.610 + *pnCall = 0;
1.611 + return;
1.612 + }
1.613 +
1.614 + *pzEvent = sqlite3_instvfs_name(eEvent);
1.615 + *pnClick = p->aTime[eEvent];
1.616 + *pnCall = p->aCount[eEvent];
1.617 +}
1.618 +
1.619 +#define BINARYLOG_BUFFERSIZE 8192
1.620 +
1.621 +struct InstVfsBinaryLog {
1.622 + int nBuf;
1.623 + char *zBuf;
1.624 + sqlite3_int64 iOffset;
1.625 + int log_data;
1.626 + sqlite3_file *pOut;
1.627 + char *zOut; /* Log file name */
1.628 +};
1.629 +typedef struct InstVfsBinaryLog InstVfsBinaryLog;
1.630 +
1.631 +static void put32bits(unsigned char *p, unsigned int v){
1.632 + p[0] = v>>24;
1.633 + p[1] = v>>16;
1.634 + p[2] = v>>8;
1.635 + p[3] = v;
1.636 +}
1.637 +
1.638 +static void binarylog_flush(InstVfsBinaryLog *pLog){
1.639 + sqlite3_file *pFile = pLog->pOut;
1.640 +
1.641 +#ifdef SQLITE_TEST
1.642 + extern int sqlite3_io_error_pending;
1.643 + extern int sqlite3_io_error_persist;
1.644 + extern int sqlite3_diskfull_pending;
1.645 +
1.646 + int pending = sqlite3_io_error_pending;
1.647 + int persist = sqlite3_io_error_persist;
1.648 + int diskfull = sqlite3_diskfull_pending;
1.649 +
1.650 + sqlite3_io_error_pending = 0;
1.651 + sqlite3_io_error_persist = 0;
1.652 + sqlite3_diskfull_pending = 0;
1.653 +#endif
1.654 +
1.655 + pFile->pMethods->xWrite(pFile, pLog->zBuf, pLog->nBuf, pLog->iOffset);
1.656 + pLog->iOffset += pLog->nBuf;
1.657 + pLog->nBuf = 0;
1.658 +
1.659 +#ifdef SQLITE_TEST
1.660 + sqlite3_io_error_pending = pending;
1.661 + sqlite3_io_error_persist = persist;
1.662 + sqlite3_diskfull_pending = diskfull;
1.663 +#endif
1.664 +}
1.665 +
1.666 +static void binarylog_xcall(
1.667 + void *p,
1.668 + int eEvent,
1.669 + int iFileId,
1.670 + sqlite3_int64 nClick,
1.671 + int return_code,
1.672 + const char *zName,
1.673 + int flags,
1.674 + int nByte,
1.675 + sqlite3_int64 iOffset
1.676 +){
1.677 + InstVfsBinaryLog *pLog = (InstVfsBinaryLog *)p;
1.678 + unsigned char *zRec;
1.679 + if( (28+pLog->nBuf)>BINARYLOG_BUFFERSIZE ){
1.680 + binarylog_flush(pLog);
1.681 + }
1.682 + zRec = (unsigned char *)&pLog->zBuf[pLog->nBuf];
1.683 + put32bits(&zRec[0], eEvent);
1.684 + put32bits(&zRec[4], (int)iFileId);
1.685 + put32bits(&zRec[8], (int)nClick);
1.686 + put32bits(&zRec[12], return_code);
1.687 + put32bits(&zRec[16], flags);
1.688 + put32bits(&zRec[20], nByte);
1.689 + put32bits(&zRec[24], (int)iOffset);
1.690 + pLog->nBuf += 28;
1.691 +}
1.692 +
1.693 +static void binarylog_xdel(void *p){
1.694 + /* Close the log file and free the memory allocated for the
1.695 + ** InstVfsBinaryLog structure.
1.696 + */
1.697 + InstVfsBinaryLog *pLog = (InstVfsBinaryLog *)p;
1.698 + sqlite3_file *pFile = pLog->pOut;
1.699 + if( pLog->nBuf ){
1.700 + binarylog_flush(pLog);
1.701 + }
1.702 + pFile->pMethods->xClose(pFile);
1.703 + sqlite3_free(pLog->pOut);
1.704 + sqlite3_free(pLog->zBuf);
1.705 + sqlite3_free(pLog);
1.706 +}
1.707 +
1.708 +static void binarylog_blob(
1.709 + sqlite3_vfs *pVfs,
1.710 + const char *zBlob,
1.711 + int nBlob,
1.712 + int isBinary
1.713 +){
1.714 + InstVfsBinaryLog *pLog;
1.715 + InstVfs *pInstVfs = (InstVfs *)pVfs;
1.716 +
1.717 + if( pVfs->xOpen!=instOpen || pInstVfs->xCall!=binarylog_xcall ){
1.718 + return;
1.719 + }
1.720 + pLog = (InstVfsBinaryLog *)pInstVfs->pClient;
1.721 + if( zBlob && (!isBinary || pLog->log_data) ){
1.722 + unsigned char *zRec;
1.723 + int nWrite;
1.724 +
1.725 + if( nBlob<0 ){
1.726 + nBlob = strlen(zBlob);
1.727 + }
1.728 + nWrite = nBlob + 28;
1.729 +
1.730 + if( (nWrite+pLog->nBuf)>BINARYLOG_BUFFERSIZE ){
1.731 + binarylog_flush(pLog);
1.732 + }
1.733 +
1.734 + zRec = (unsigned char *)&pLog->zBuf[pLog->nBuf];
1.735 + memset(zRec, 0, nWrite);
1.736 + put32bits(&zRec[0], BINARYLOG_STRING);
1.737 + put32bits(&zRec[4], (int)nBlob);
1.738 + put32bits(&zRec[8], (int)isBinary);
1.739 + memcpy(&zRec[28], zBlob, nBlob);
1.740 + pLog->nBuf += nWrite;
1.741 + }
1.742 +}
1.743 +
1.744 +void sqlite3_instvfs_binarylog_call(
1.745 + sqlite3_vfs *pVfs,
1.746 + int eEvent,
1.747 + sqlite3_int64 nClick,
1.748 + int return_code,
1.749 + const char *zString
1.750 +){
1.751 + InstVfs *pInstVfs = (InstVfs *)pVfs;
1.752 + InstVfsBinaryLog *pLog = (InstVfsBinaryLog *)pInstVfs->pClient;
1.753 +
1.754 + if( zString ){
1.755 + binarylog_blob(pVfs, zString, -1, 0);
1.756 + }
1.757 + binarylog_xcall(pLog, eEvent, 0, nClick, return_code, 0, 0, 0, 0);
1.758 +}
1.759 +
1.760 +void sqlite3_instvfs_binarylog_marker(
1.761 + sqlite3_vfs *pVfs,
1.762 + const char *zMarker
1.763 +){
1.764 + InstVfs *pInstVfs = (InstVfs *)pVfs;
1.765 + InstVfsBinaryLog *pLog = (InstVfsBinaryLog *)pInstVfs->pClient;
1.766 + binarylog_blob(pVfs, zMarker, -1, 0);
1.767 + binarylog_xcall(pLog, BINARYLOG_MARKER, 0, 0, 0, 0, 0, 0, 0);
1.768 +}
1.769 +
1.770 +sqlite3_vfs *sqlite3_instvfs_binarylog(
1.771 + const char *zVfs,
1.772 + const char *zParentVfs,
1.773 + const char *zLog,
1.774 + int log_data
1.775 +){
1.776 + InstVfsBinaryLog *p;
1.777 + sqlite3_vfs *pVfs;
1.778 + sqlite3_vfs *pParent;
1.779 + int nByte;
1.780 + int flags;
1.781 + int rc;
1.782 +
1.783 + pParent = sqlite3_vfs_find(zParentVfs);
1.784 + if( !pParent ){
1.785 + return 0;
1.786 + }
1.787 +
1.788 + nByte = sizeof(InstVfsBinaryLog) + pParent->mxPathname+1;
1.789 + p = (InstVfsBinaryLog *)sqlite3_malloc(nByte);
1.790 + memset(p, 0, nByte);
1.791 + p->zBuf = sqlite3_malloc(BINARYLOG_BUFFERSIZE);
1.792 + p->zOut = (char *)&p[1];
1.793 + p->pOut = (sqlite3_file *)sqlite3_malloc(pParent->szOsFile);
1.794 + p->log_data = log_data;
1.795 + pParent->xFullPathname(pParent, zLog, pParent->mxPathname, p->zOut);
1.796 + flags = SQLITE_OPEN_READWRITE|SQLITE_OPEN_CREATE|SQLITE_OPEN_MASTER_JOURNAL;
1.797 + pParent->xDelete(pParent, p->zOut, 0);
1.798 + rc = pParent->xOpen(pParent, p->zOut, p->pOut, flags, &flags);
1.799 + if( rc==SQLITE_OK ){
1.800 + memcpy(p->zBuf, "sqlite_ostrace1.....", 20);
1.801 + p->iOffset = 0;
1.802 + p->nBuf = 20;
1.803 + }
1.804 + if( rc ){
1.805 + binarylog_xdel(p);
1.806 + return 0;
1.807 + }
1.808 +
1.809 + pVfs = sqlite3_instvfs_create(zVfs, zParentVfs);
1.810 + if( pVfs ){
1.811 + sqlite3_instvfs_configure(pVfs, binarylog_xcall, p, binarylog_xdel);
1.812 + }
1.813 +
1.814 + return pVfs;
1.815 +}
1.816 +#endif /* SQLITE_ENABLE_INSTVFS */
1.817 +
1.818 +/**************************************************************************
1.819 +***************************************************************************
1.820 +** Tcl interface starts here.
1.821 +*/
1.822 +#if SQLITE_TEST
1.823 +
1.824 +#include "tcl.h"
1.825 +
1.826 +#ifdef SQLITE_ENABLE_INSTVFS
1.827 +struct InstVfsCall {
1.828 + Tcl_Interp *interp;
1.829 + Tcl_Obj *pScript;
1.830 +};
1.831 +typedef struct InstVfsCall InstVfsCall;
1.832 +
1.833 +static void test_instvfs_xcall(
1.834 + void *p,
1.835 + int eEvent,
1.836 + int iFileId,
1.837 + sqlite3_int64 nClick,
1.838 + int return_code,
1.839 + const char *zName,
1.840 + int flags,
1.841 + int nByte,
1.842 + sqlite3_int64 iOffset
1.843 +){
1.844 + int rc;
1.845 + InstVfsCall *pCall = (InstVfsCall *)p;
1.846 + Tcl_Obj *pObj = Tcl_DuplicateObj( pCall->pScript);
1.847 + const char *zEvent = sqlite3_instvfs_name(eEvent);
1.848 +
1.849 + Tcl_IncrRefCount(pObj);
1.850 + Tcl_ListObjAppendElement(0, pObj, Tcl_NewStringObj(zEvent, -1));
1.851 + Tcl_ListObjAppendElement(0, pObj, Tcl_NewWideIntObj(nClick));
1.852 + Tcl_ListObjAppendElement(0, pObj, Tcl_NewStringObj(zName, -1));
1.853 + Tcl_ListObjAppendElement(0, pObj, Tcl_NewIntObj(nByte));
1.854 + Tcl_ListObjAppendElement(0, pObj, Tcl_NewWideIntObj(iOffset));
1.855 +
1.856 + rc = Tcl_EvalObjEx(pCall->interp, pObj, TCL_EVAL_GLOBAL|TCL_EVAL_DIRECT);
1.857 + if( rc ){
1.858 + Tcl_BackgroundError(pCall->interp);
1.859 + }
1.860 + Tcl_DecrRefCount(pObj);
1.861 +}
1.862 +
1.863 +static void test_instvfs_xdel(void *p){
1.864 + InstVfsCall *pCall = (InstVfsCall *)p;
1.865 + Tcl_DecrRefCount(pCall->pScript);
1.866 + sqlite3_free(pCall);
1.867 +}
1.868 +
1.869 +static int test_sqlite3_instvfs(
1.870 + void * clientData,
1.871 + Tcl_Interp *interp,
1.872 + int objc,
1.873 + Tcl_Obj *CONST objv[]
1.874 +){
1.875 + static const char *IV_strs[] =
1.876 + { "create", "destroy", "reset", "report", "configure", "binarylog", "marker", 0 };
1.877 + enum IV_enum { IV_CREATE, IV_DESTROY, IV_RESET, IV_REPORT, IV_CONFIGURE, IV_BINARYLOG, IV_MARKER };
1.878 + int iSub;
1.879 +
1.880 + if( objc<2 ){
1.881 + Tcl_WrongNumArgs(interp, 1, objv, "SUB-COMMAND ...");
1.882 + }
1.883 + if( Tcl_GetIndexFromObj(interp, objv[1], IV_strs, "sub-command", 0, &iSub) ){
1.884 + return TCL_ERROR;
1.885 + }
1.886 +
1.887 + switch( (enum IV_enum)iSub ){
1.888 + case IV_CREATE: {
1.889 + char *zParent = 0;
1.890 + sqlite3_vfs *p;
1.891 + int isDefault = 0;
1.892 + if( objc>2 && 0==strcmp("-default", Tcl_GetString(objv[2])) ){
1.893 + isDefault = 1;
1.894 + }
1.895 + if( (objc-isDefault)!=4 && (objc-isDefault)!=3 ){
1.896 + Tcl_WrongNumArgs(interp, 2, objv, "?-default? NAME ?PARENT-VFS?");
1.897 + return TCL_ERROR;
1.898 + }
1.899 + if( objc==(4+isDefault) ){
1.900 + zParent = Tcl_GetString(objv[3+isDefault]);
1.901 + }
1.902 + p = sqlite3_instvfs_create(Tcl_GetString(objv[2+isDefault]), zParent);
1.903 + if( !p ){
1.904 + Tcl_AppendResult(interp, "error creating vfs ", 0);
1.905 + return TCL_ERROR;
1.906 + }
1.907 + if( isDefault ){
1.908 + sqlite3_vfs_register(p, 1);
1.909 + }
1.910 + Tcl_SetObjResult(interp, objv[2]);
1.911 + break;
1.912 + }
1.913 + case IV_BINARYLOG: {
1.914 + char *zName = 0;
1.915 + char *zLog = 0;
1.916 + char *zParent = 0;
1.917 + sqlite3_vfs *p;
1.918 + int isDefault = 0;
1.919 + int isLogdata = 0;
1.920 + int argbase = 2;
1.921 +
1.922 + for(argbase=2; argbase<(objc-2); argbase++){
1.923 + if( 0==strcmp("-default", Tcl_GetString(objv[argbase])) ){
1.924 + isDefault = 1;
1.925 + }
1.926 + else if( 0==strcmp("-parent", Tcl_GetString(objv[argbase])) ){
1.927 + argbase++;
1.928 + zParent = Tcl_GetString(objv[argbase]);
1.929 + }
1.930 + else if( 0==strcmp("-logdata", Tcl_GetString(objv[argbase])) ){
1.931 + isLogdata = 1;
1.932 + }else{
1.933 + break;
1.934 + }
1.935 + }
1.936 +
1.937 + if( (objc-argbase)!=2 ){
1.938 + Tcl_WrongNumArgs(
1.939 + interp, 2, objv, "?-default? ?-parent VFS? ?-logdata? NAME LOGFILE"
1.940 + );
1.941 + return TCL_ERROR;
1.942 + }
1.943 + zName = Tcl_GetString(objv[argbase]);
1.944 + zLog = Tcl_GetString(objv[argbase+1]);
1.945 + p = sqlite3_instvfs_binarylog(zName, zParent, zLog, isLogdata);
1.946 + if( !p ){
1.947 + Tcl_AppendResult(interp, "error creating vfs ", 0);
1.948 + return TCL_ERROR;
1.949 + }
1.950 + if( isDefault ){
1.951 + sqlite3_vfs_register(p, 1);
1.952 + }
1.953 + Tcl_SetObjResult(interp, objv[2]);
1.954 + break;
1.955 + }
1.956 +
1.957 + case IV_MARKER: {
1.958 + sqlite3_vfs *p;
1.959 + if( objc!=4 ){
1.960 + Tcl_WrongNumArgs(interp, 2, objv, "VFS MARKER");
1.961 + return TCL_ERROR;
1.962 + }
1.963 + p = sqlite3_vfs_find(Tcl_GetString(objv[2]));
1.964 + if( !p || p->xOpen!=instOpen ){
1.965 + Tcl_AppendResult(interp, "no such vfs: ", Tcl_GetString(objv[2]), 0);
1.966 + return TCL_ERROR;
1.967 + }
1.968 + sqlite3_instvfs_binarylog_marker(p, Tcl_GetString(objv[3]));
1.969 + Tcl_ResetResult(interp);
1.970 + break;
1.971 + }
1.972 +
1.973 + case IV_CONFIGURE: {
1.974 + InstVfsCall *pCall;
1.975 +
1.976 + sqlite3_vfs *p;
1.977 + if( objc!=4 ){
1.978 + Tcl_WrongNumArgs(interp, 2, objv, "NAME SCRIPT");
1.979 + return TCL_ERROR;
1.980 + }
1.981 + p = sqlite3_vfs_find(Tcl_GetString(objv[2]));
1.982 + if( !p || p->xOpen!=instOpen ){
1.983 + Tcl_AppendResult(interp, "no such vfs: ", Tcl_GetString(objv[2]), 0);
1.984 + return TCL_ERROR;
1.985 + }
1.986 +
1.987 + if( strlen(Tcl_GetString(objv[3])) ){
1.988 + pCall = (InstVfsCall *)sqlite3_malloc(sizeof(InstVfsCall));
1.989 + pCall->interp = interp;
1.990 + pCall->pScript = Tcl_DuplicateObj(objv[3]);
1.991 + Tcl_IncrRefCount(pCall->pScript);
1.992 + sqlite3_instvfs_configure(p,
1.993 + test_instvfs_xcall, (void *)pCall, test_instvfs_xdel
1.994 + );
1.995 + }else{
1.996 + sqlite3_instvfs_configure(p, 0, 0, 0);
1.997 + }
1.998 + break;
1.999 + }
1.1000 +
1.1001 + case IV_REPORT:
1.1002 + case IV_DESTROY:
1.1003 + case IV_RESET: {
1.1004 + sqlite3_vfs *p;
1.1005 + if( objc!=3 ){
1.1006 + Tcl_WrongNumArgs(interp, 2, objv, "NAME");
1.1007 + return TCL_ERROR;
1.1008 + }
1.1009 + p = sqlite3_vfs_find(Tcl_GetString(objv[2]));
1.1010 + if( !p || p->xOpen!=instOpen ){
1.1011 + Tcl_AppendResult(interp, "no such vfs: ", Tcl_GetString(objv[2]), 0);
1.1012 + return TCL_ERROR;
1.1013 + }
1.1014 +
1.1015 + if( ((enum IV_enum)iSub)==IV_DESTROY ){
1.1016 + sqlite3_instvfs_destroy(p);
1.1017 + }
1.1018 + if( ((enum IV_enum)iSub)==IV_RESET ){
1.1019 + sqlite3_instvfs_reset(p);
1.1020 + }
1.1021 + if( ((enum IV_enum)iSub)==IV_REPORT ){
1.1022 + int ii;
1.1023 + Tcl_Obj *pRet = Tcl_NewObj();
1.1024 +
1.1025 + const char *zName = (char *)1;
1.1026 + sqlite3_int64 nClick;
1.1027 + int nCall;
1.1028 + for(ii=1; zName; ii++){
1.1029 + sqlite3_instvfs_get(p, ii, &zName, &nClick, &nCall);
1.1030 + if( zName ){
1.1031 + Tcl_Obj *pElem = Tcl_NewObj();
1.1032 + Tcl_ListObjAppendElement(0, pElem, Tcl_NewStringObj(zName, -1));
1.1033 + Tcl_ListObjAppendElement(0, pElem, Tcl_NewIntObj(nCall));
1.1034 + Tcl_ListObjAppendElement(0, pElem, Tcl_NewWideIntObj(nClick));
1.1035 + Tcl_ListObjAppendElement(0, pRet, pElem);
1.1036 + }
1.1037 + }
1.1038 +
1.1039 + Tcl_SetObjResult(interp, pRet);
1.1040 + }
1.1041 +
1.1042 + break;
1.1043 + }
1.1044 + }
1.1045 +
1.1046 + return TCL_OK;
1.1047 +}
1.1048 +#endif /* SQLITE_ENABLE_INSTVFS */
1.1049 +
1.1050 +/* Alternative implementation of sqlite3_instvfs when the real
1.1051 +** implementation is unavailable.
1.1052 +*/
1.1053 +#ifndef SQLITE_ENABLE_INSTVFS
1.1054 +static int test_sqlite3_instvfs(
1.1055 + void * clientData,
1.1056 + Tcl_Interp *interp,
1.1057 + int objc,
1.1058 + Tcl_Obj *CONST objv[]
1.1059 +){
1.1060 + Tcl_AppendResult(interp,
1.1061 + "not compiled with -DSQLITE_ENABLE_INSTVFS; sqlite3_instvfs is "
1.1062 + "unavailable", (char*)0);
1.1063 + return TCL_ERROR;
1.1064 +}
1.1065 +#endif /* !defined(SQLITE_ENABLE_INSTVFS) */
1.1066 +
1.1067 +int SqlitetestOsinst_Init(Tcl_Interp *interp){
1.1068 + Tcl_CreateObjCommand(interp, "sqlite3_instvfs", test_sqlite3_instvfs, 0, 0);
1.1069 + return TCL_OK;
1.1070 +}
1.1071 +
1.1072 +#endif /* SQLITE_TEST */