2N/A
2N/A#pragma ident "%Z%%M% %I% %E% SMI"
2N/A
2N/A/*
2N/A** 2001 September 15
2N/A**
2N/A** The author disclaims copyright to this source code. In place of
2N/A** a legal notice, here is a blessing:
2N/A**
2N/A** May you do good and not evil.
2N/A** May you find forgiveness for yourself and forgive others.
2N/A** May you share freely, never taking more than you give.
2N/A**
2N/A*************************************************************************
2N/A** Code for testing the pager.c module in SQLite. This code
2N/A** is not included in the SQLite library. It is used for automated
2N/A** testing of the SQLite library.
2N/A**
2N/A** $Id: test2.c,v 1.16 2004/02/10 01:54:28 drh Exp $
2N/A*/
2N/A#include "os.h"
2N/A#include "sqliteInt.h"
2N/A#include "pager.h"
2N/A#include "tcl.h"
2N/A#include <stdlib.h>
2N/A#include <string.h>
2N/A
2N/A/*
2N/A** Interpret an SQLite error number
2N/A*/
2N/Astatic char *errorName(int rc){
2N/A char *zName;
2N/A switch( rc ){
2N/A case SQLITE_OK: zName = "SQLITE_OK"; break;
2N/A case SQLITE_ERROR: zName = "SQLITE_ERROR"; break;
2N/A case SQLITE_INTERNAL: zName = "SQLITE_INTERNAL"; break;
2N/A case SQLITE_PERM: zName = "SQLITE_PERM"; break;
2N/A case SQLITE_ABORT: zName = "SQLITE_ABORT"; break;
2N/A case SQLITE_BUSY: zName = "SQLITE_BUSY"; break;
2N/A case SQLITE_NOMEM: zName = "SQLITE_NOMEM"; break;
2N/A case SQLITE_READONLY: zName = "SQLITE_READONLY"; break;
2N/A case SQLITE_INTERRUPT: zName = "SQLITE_INTERRUPT"; break;
2N/A case SQLITE_IOERR: zName = "SQLITE_IOERR"; break;
2N/A case SQLITE_CORRUPT: zName = "SQLITE_CORRUPT"; break;
2N/A case SQLITE_NOTFOUND: zName = "SQLITE_NOTFOUND"; break;
2N/A case SQLITE_FULL: zName = "SQLITE_FULL"; break;
2N/A case SQLITE_CANTOPEN: zName = "SQLITE_CANTOPEN"; break;
2N/A case SQLITE_PROTOCOL: zName = "SQLITE_PROTOCOL"; break;
2N/A case SQLITE_EMPTY: zName = "SQLITE_EMPTY"; break;
2N/A case SQLITE_SCHEMA: zName = "SQLITE_SCHEMA"; break;
2N/A case SQLITE_TOOBIG: zName = "SQLITE_TOOBIG"; break;
2N/A case SQLITE_CONSTRAINT: zName = "SQLITE_CONSTRAINT"; break;
2N/A case SQLITE_MISMATCH: zName = "SQLITE_MISMATCH"; break;
2N/A case SQLITE_MISUSE: zName = "SQLITE_MISUSE"; break;
2N/A case SQLITE_NOLFS: zName = "SQLITE_NOLFS"; break;
2N/A default: zName = "SQLITE_Unknown"; break;
2N/A }
2N/A return zName;
2N/A}
2N/A
2N/A/*
2N/A** Usage: pager_open FILENAME N-PAGE
2N/A**
2N/A** Open a new pager
2N/A*/
2N/Astatic int pager_open(
2N/A void *NotUsed,
2N/A Tcl_Interp *interp, /* The TCL interpreter that invoked this command */
2N/A int argc, /* Number of arguments */
2N/A const char **argv /* Text of each argument */
2N/A){
2N/A Pager *pPager;
2N/A int nPage;
2N/A int rc;
2N/A char zBuf[100];
2N/A if( argc!=3 ){
2N/A Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
2N/A " FILENAME N-PAGE\"", 0);
2N/A return TCL_ERROR;
2N/A }
2N/A if( Tcl_GetInt(interp, argv[2], &nPage) ) return TCL_ERROR;
2N/A rc = sqlitepager_open(&pPager, argv[1], nPage, 0, 1);
2N/A if( rc!=SQLITE_OK ){
2N/A Tcl_AppendResult(interp, errorName(rc), 0);
2N/A return TCL_ERROR;
2N/A }
2N/A sprintf(zBuf,"0x%x",(int)pPager);
2N/A Tcl_AppendResult(interp, zBuf, 0);
2N/A return TCL_OK;
2N/A}
2N/A
2N/A/*
2N/A** Usage: pager_close ID
2N/A**
2N/A** Close the given pager.
2N/A*/
2N/Astatic int pager_close(
2N/A void *NotUsed,
2N/A Tcl_Interp *interp, /* The TCL interpreter that invoked this command */
2N/A int argc, /* Number of arguments */
2N/A const char **argv /* Text of each argument */
2N/A){
2N/A Pager *pPager;
2N/A int rc;
2N/A if( argc!=2 ){
2N/A Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
2N/A " ID\"", 0);
2N/A return TCL_ERROR;
2N/A }
2N/A if( Tcl_GetInt(interp, argv[1], (int*)&pPager) ) return TCL_ERROR;
2N/A rc = sqlitepager_close(pPager);
2N/A if( rc!=SQLITE_OK ){
2N/A Tcl_AppendResult(interp, errorName(rc), 0);
2N/A return TCL_ERROR;
2N/A }
2N/A return TCL_OK;
2N/A}
2N/A
2N/A/*
2N/A** Usage: pager_rollback ID
2N/A**
2N/A** Rollback changes
2N/A*/
2N/Astatic int pager_rollback(
2N/A void *NotUsed,
2N/A Tcl_Interp *interp, /* The TCL interpreter that invoked this command */
2N/A int argc, /* Number of arguments */
2N/A const char **argv /* Text of each argument */
2N/A){
2N/A Pager *pPager;
2N/A int rc;
2N/A if( argc!=2 ){
2N/A Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
2N/A " ID\"", 0);
2N/A return TCL_ERROR;
2N/A }
2N/A if( Tcl_GetInt(interp, argv[1], (int*)&pPager) ) return TCL_ERROR;
2N/A rc = sqlitepager_rollback(pPager);
2N/A if( rc!=SQLITE_OK ){
2N/A Tcl_AppendResult(interp, errorName(rc), 0);
2N/A return TCL_ERROR;
2N/A }
2N/A return TCL_OK;
2N/A}
2N/A
2N/A/*
2N/A** Usage: pager_commit ID
2N/A**
2N/A** Commit all changes
2N/A*/
2N/Astatic int pager_commit(
2N/A void *NotUsed,
2N/A Tcl_Interp *interp, /* The TCL interpreter that invoked this command */
2N/A int argc, /* Number of arguments */
2N/A const char **argv /* Text of each argument */
2N/A){
2N/A Pager *pPager;
2N/A int rc;
2N/A if( argc!=2 ){
2N/A Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
2N/A " ID\"", 0);
2N/A return TCL_ERROR;
2N/A }
2N/A if( Tcl_GetInt(interp, argv[1], (int*)&pPager) ) return TCL_ERROR;
2N/A rc = sqlitepager_commit(pPager);
2N/A if( rc!=SQLITE_OK ){
2N/A Tcl_AppendResult(interp, errorName(rc), 0);
2N/A return TCL_ERROR;
2N/A }
2N/A return TCL_OK;
2N/A}
2N/A
2N/A/*
2N/A** Usage: pager_ckpt_begin ID
2N/A**
2N/A** Start a new checkpoint.
2N/A*/
2N/Astatic int pager_ckpt_begin(
2N/A void *NotUsed,
2N/A Tcl_Interp *interp, /* The TCL interpreter that invoked this command */
2N/A int argc, /* Number of arguments */
2N/A const char **argv /* Text of each argument */
2N/A){
2N/A Pager *pPager;
2N/A int rc;
2N/A if( argc!=2 ){
2N/A Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
2N/A " ID\"", 0);
2N/A return TCL_ERROR;
2N/A }
2N/A if( Tcl_GetInt(interp, argv[1], (int*)&pPager) ) return TCL_ERROR;
2N/A rc = sqlitepager_ckpt_begin(pPager);
2N/A if( rc!=SQLITE_OK ){
2N/A Tcl_AppendResult(interp, errorName(rc), 0);
2N/A return TCL_ERROR;
2N/A }
2N/A return TCL_OK;
2N/A}
2N/A
2N/A/*
2N/A** Usage: pager_ckpt_rollback ID
2N/A**
2N/A** Rollback changes to a checkpoint
2N/A*/
2N/Astatic int pager_ckpt_rollback(
2N/A void *NotUsed,
2N/A Tcl_Interp *interp, /* The TCL interpreter that invoked this command */
2N/A int argc, /* Number of arguments */
2N/A const char **argv /* Text of each argument */
2N/A){
2N/A Pager *pPager;
2N/A int rc;
2N/A if( argc!=2 ){
2N/A Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
2N/A " ID\"", 0);
2N/A return TCL_ERROR;
2N/A }
2N/A if( Tcl_GetInt(interp, argv[1], (int*)&pPager) ) return TCL_ERROR;
2N/A rc = sqlitepager_ckpt_rollback(pPager);
2N/A if( rc!=SQLITE_OK ){
2N/A Tcl_AppendResult(interp, errorName(rc), 0);
2N/A return TCL_ERROR;
2N/A }
2N/A return TCL_OK;
2N/A}
2N/A
2N/A/*
2N/A** Usage: pager_ckpt_commit ID
2N/A**
2N/A** Commit changes to a checkpoint
2N/A*/
2N/Astatic int pager_ckpt_commit(
2N/A void *NotUsed,
2N/A Tcl_Interp *interp, /* The TCL interpreter that invoked this command */
2N/A int argc, /* Number of arguments */
2N/A const char **argv /* Text of each argument */
2N/A){
2N/A Pager *pPager;
2N/A int rc;
2N/A if( argc!=2 ){
2N/A Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
2N/A " ID\"", 0);
2N/A return TCL_ERROR;
2N/A }
2N/A if( Tcl_GetInt(interp, argv[1], (int*)&pPager) ) return TCL_ERROR;
2N/A rc = sqlitepager_ckpt_commit(pPager);
2N/A if( rc!=SQLITE_OK ){
2N/A Tcl_AppendResult(interp, errorName(rc), 0);
2N/A return TCL_ERROR;
2N/A }
2N/A return TCL_OK;
2N/A}
2N/A
2N/A/*
2N/A** Usage: pager_stats ID
2N/A**
2N/A** Return pager statistics.
2N/A*/
2N/Astatic int pager_stats(
2N/A void *NotUsed,
2N/A Tcl_Interp *interp, /* The TCL interpreter that invoked this command */
2N/A int argc, /* Number of arguments */
2N/A const char **argv /* Text of each argument */
2N/A){
2N/A Pager *pPager;
2N/A int i, *a;
2N/A if( argc!=2 ){
2N/A Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
2N/A " ID\"", 0);
2N/A return TCL_ERROR;
2N/A }
2N/A if( Tcl_GetInt(interp, argv[1], (int*)&pPager) ) return TCL_ERROR;
2N/A a = sqlitepager_stats(pPager);
2N/A for(i=0; i<9; i++){
2N/A static char *zName[] = {
2N/A "ref", "page", "max", "size", "state", "err",
2N/A "hit", "miss", "ovfl",
2N/A };
2N/A char zBuf[100];
2N/A Tcl_AppendElement(interp, zName[i]);
2N/A sprintf(zBuf,"%d",a[i]);
2N/A Tcl_AppendElement(interp, zBuf);
2N/A }
2N/A return TCL_OK;
2N/A}
2N/A
2N/A/*
2N/A** Usage: pager_pagecount ID
2N/A**
2N/A** Return the size of the database file.
2N/A*/
2N/Astatic int pager_pagecount(
2N/A void *NotUsed,
2N/A Tcl_Interp *interp, /* The TCL interpreter that invoked this command */
2N/A int argc, /* Number of arguments */
2N/A const char **argv /* Text of each argument */
2N/A){
2N/A Pager *pPager;
2N/A char zBuf[100];
2N/A if( argc!=2 ){
2N/A Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
2N/A " ID\"", 0);
2N/A return TCL_ERROR;
2N/A }
2N/A if( Tcl_GetInt(interp, argv[1], (int*)&pPager) ) return TCL_ERROR;
2N/A sprintf(zBuf,"%d",sqlitepager_pagecount(pPager));
2N/A Tcl_AppendResult(interp, zBuf, 0);
2N/A return TCL_OK;
2N/A}
2N/A
2N/A/*
2N/A** Usage: page_get ID PGNO
2N/A**
2N/A** Return a pointer to a page from the database.
2N/A*/
2N/Astatic int page_get(
2N/A void *NotUsed,
2N/A Tcl_Interp *interp, /* The TCL interpreter that invoked this command */
2N/A int argc, /* Number of arguments */
2N/A const char **argv /* Text of each argument */
2N/A){
2N/A Pager *pPager;
2N/A char zBuf[100];
2N/A void *pPage;
2N/A int pgno;
2N/A int rc;
2N/A if( argc!=3 ){
2N/A Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
2N/A " ID PGNO\"", 0);
2N/A return TCL_ERROR;
2N/A }
2N/A if( Tcl_GetInt(interp, argv[1], (int*)&pPager) ) return TCL_ERROR;
2N/A if( Tcl_GetInt(interp, argv[2], &pgno) ) return TCL_ERROR;
2N/A rc = sqlitepager_get(pPager, pgno, &pPage);
2N/A if( rc!=SQLITE_OK ){
2N/A Tcl_AppendResult(interp, errorName(rc), 0);
2N/A return TCL_ERROR;
2N/A }
2N/A sprintf(zBuf,"0x%x",(int)pPage);
2N/A Tcl_AppendResult(interp, zBuf, 0);
2N/A return TCL_OK;
2N/A}
2N/A
2N/A/*
2N/A** Usage: page_lookup ID PGNO
2N/A**
2N/A** Return a pointer to a page if the page is already in cache.
2N/A** If not in cache, return an empty string.
2N/A*/
2N/Astatic int page_lookup(
2N/A void *NotUsed,
2N/A Tcl_Interp *interp, /* The TCL interpreter that invoked this command */
2N/A int argc, /* Number of arguments */
2N/A const char **argv /* Text of each argument */
2N/A){
2N/A Pager *pPager;
2N/A char zBuf[100];
2N/A void *pPage;
2N/A int pgno;
2N/A if( argc!=3 ){
2N/A Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
2N/A " ID PGNO\"", 0);
2N/A return TCL_ERROR;
2N/A }
2N/A if( Tcl_GetInt(interp, argv[1], (int*)&pPager) ) return TCL_ERROR;
2N/A if( Tcl_GetInt(interp, argv[2], &pgno) ) return TCL_ERROR;
2N/A pPage = sqlitepager_lookup(pPager, pgno);
2N/A if( pPage ){
2N/A sprintf(zBuf,"0x%x",(int)pPage);
2N/A Tcl_AppendResult(interp, zBuf, 0);
2N/A }
2N/A return TCL_OK;
2N/A}
2N/A
2N/A/*
2N/A** Usage: page_unref PAGE
2N/A**
2N/A** Drop a pointer to a page.
2N/A*/
2N/Astatic int page_unref(
2N/A void *NotUsed,
2N/A Tcl_Interp *interp, /* The TCL interpreter that invoked this command */
2N/A int argc, /* Number of arguments */
2N/A const char **argv /* Text of each argument */
2N/A){
2N/A void *pPage;
2N/A int rc;
2N/A if( argc!=2 ){
2N/A Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
2N/A " PAGE\"", 0);
2N/A return TCL_ERROR;
2N/A }
2N/A if( Tcl_GetInt(interp, argv[1], (int*)&pPage) ) return TCL_ERROR;
2N/A rc = sqlitepager_unref(pPage);
2N/A if( rc!=SQLITE_OK ){
2N/A Tcl_AppendResult(interp, errorName(rc), 0);
2N/A return TCL_ERROR;
2N/A }
2N/A return TCL_OK;
2N/A}
2N/A
2N/A/*
2N/A** Usage: page_read PAGE
2N/A**
2N/A** Return the content of a page
2N/A*/
2N/Astatic int page_read(
2N/A void *NotUsed,
2N/A Tcl_Interp *interp, /* The TCL interpreter that invoked this command */
2N/A int argc, /* Number of arguments */
2N/A const char **argv /* Text of each argument */
2N/A){
2N/A char zBuf[100];
2N/A void *pPage;
2N/A if( argc!=2 ){
2N/A Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
2N/A " PAGE\"", 0);
2N/A return TCL_ERROR;
2N/A }
2N/A if( Tcl_GetInt(interp, argv[1], (int*)&pPage) ) return TCL_ERROR;
2N/A memcpy(zBuf, pPage, sizeof(zBuf));
2N/A Tcl_AppendResult(interp, zBuf, 0);
2N/A return TCL_OK;
2N/A}
2N/A
2N/A/*
2N/A** Usage: page_number PAGE
2N/A**
2N/A** Return the page number for a page.
2N/A*/
2N/Astatic int page_number(
2N/A void *NotUsed,
2N/A Tcl_Interp *interp, /* The TCL interpreter that invoked this command */
2N/A int argc, /* Number of arguments */
2N/A const char **argv /* Text of each argument */
2N/A){
2N/A char zBuf[100];
2N/A void *pPage;
2N/A if( argc!=2 ){
2N/A Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
2N/A " PAGE\"", 0);
2N/A return TCL_ERROR;
2N/A }
2N/A if( Tcl_GetInt(interp, argv[1], (int*)&pPage) ) return TCL_ERROR;
2N/A sprintf(zBuf, "%d", sqlitepager_pagenumber(pPage));
2N/A Tcl_AppendResult(interp, zBuf, 0);
2N/A return TCL_OK;
2N/A}
2N/A
2N/A/*
2N/A** Usage: page_write PAGE DATA
2N/A**
2N/A** Write something into a page.
2N/A*/
2N/Astatic int page_write(
2N/A void *NotUsed,
2N/A Tcl_Interp *interp, /* The TCL interpreter that invoked this command */
2N/A int argc, /* Number of arguments */
2N/A const char **argv /* Text of each argument */
2N/A){
2N/A void *pPage;
2N/A int rc;
2N/A if( argc!=3 ){
2N/A Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
2N/A " PAGE DATA\"", 0);
2N/A return TCL_ERROR;
2N/A }
2N/A if( Tcl_GetInt(interp, argv[1], (int*)&pPage) ) return TCL_ERROR;
2N/A rc = sqlitepager_write(pPage);
2N/A if( rc!=SQLITE_OK ){
2N/A Tcl_AppendResult(interp, errorName(rc), 0);
2N/A return TCL_ERROR;
2N/A }
2N/A strncpy((char*)pPage, argv[2], SQLITE_USABLE_SIZE-1);
2N/A ((char*)pPage)[SQLITE_USABLE_SIZE-1] = 0;
2N/A return TCL_OK;
2N/A}
2N/A
2N/A/*
2N/A** Usage: fake_big_file N FILENAME
2N/A**
2N/A** Write a few bytes at the N megabyte point of FILENAME. This will
2N/A** create a large file. If the file was a valid SQLite database, then
2N/A** the next time the database is opened, SQLite will begin allocating
2N/A** new pages after N. If N is 2096 or bigger, this will test the
2N/A** ability of SQLite to write to large files.
2N/A*/
2N/Astatic int fake_big_file(
2N/A void *NotUsed,
2N/A Tcl_Interp *interp, /* The TCL interpreter that invoked this command */
2N/A int argc, /* Number of arguments */
2N/A const char **argv /* Text of each argument */
2N/A){
2N/A int rc;
2N/A int n;
2N/A off_t offset;
2N/A OsFile fd;
2N/A int readOnly = 0;
2N/A if( argc!=3 ){
2N/A Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
2N/A " N-MEGABYTES FILE\"", 0);
2N/A return TCL_ERROR;
2N/A }
2N/A if( Tcl_GetInt(interp, argv[1], &n) ) return TCL_ERROR;
2N/A rc = sqliteOsOpenReadWrite(argv[2], &fd, &readOnly);
2N/A if( rc ){
2N/A Tcl_AppendResult(interp, "open failed: ", errorName(rc), 0);
2N/A return TCL_ERROR;
2N/A }
2N/A offset = n;
2N/A offset *= 1024*1024;
2N/A rc = sqliteOsSeek(&fd, offset);
2N/A if( rc ){
2N/A Tcl_AppendResult(interp, "seek failed: ", errorName(rc), 0);
2N/A return TCL_ERROR;
2N/A }
2N/A rc = sqliteOsWrite(&fd, "Hello, World!", 14);
2N/A sqliteOsClose(&fd);
2N/A if( rc ){
2N/A Tcl_AppendResult(interp, "write failed: ", errorName(rc), 0);
2N/A return TCL_ERROR;
2N/A }
2N/A return TCL_OK;
2N/A}
2N/A
2N/A/*
2N/A** Register commands with the TCL interpreter.
2N/A*/
2N/Aint Sqlitetest2_Init(Tcl_Interp *interp){
2N/A extern int sqlite_io_error_pending;
2N/A char zBuf[100];
2N/A static struct {
2N/A char *zName;
2N/A Tcl_CmdProc *xProc;
2N/A } aCmd[] = {
2N/A { "pager_open", (Tcl_CmdProc*)pager_open },
2N/A { "pager_close", (Tcl_CmdProc*)pager_close },
2N/A { "pager_commit", (Tcl_CmdProc*)pager_commit },
2N/A { "pager_rollback", (Tcl_CmdProc*)pager_rollback },
2N/A { "pager_ckpt_begin", (Tcl_CmdProc*)pager_ckpt_begin },
2N/A { "pager_ckpt_commit", (Tcl_CmdProc*)pager_ckpt_commit },
2N/A { "pager_ckpt_rollback", (Tcl_CmdProc*)pager_ckpt_rollback },
2N/A { "pager_stats", (Tcl_CmdProc*)pager_stats },
2N/A { "pager_pagecount", (Tcl_CmdProc*)pager_pagecount },
2N/A { "page_get", (Tcl_CmdProc*)page_get },
2N/A { "page_lookup", (Tcl_CmdProc*)page_lookup },
2N/A { "page_unref", (Tcl_CmdProc*)page_unref },
2N/A { "page_read", (Tcl_CmdProc*)page_read },
2N/A { "page_write", (Tcl_CmdProc*)page_write },
2N/A { "page_number", (Tcl_CmdProc*)page_number },
2N/A { "fake_big_file", (Tcl_CmdProc*)fake_big_file },
2N/A };
2N/A int i;
2N/A for(i=0; i<sizeof(aCmd)/sizeof(aCmd[0]); i++){
2N/A Tcl_CreateCommand(interp, aCmd[i].zName, aCmd[i].xProc, 0, 0);
2N/A }
2N/A Tcl_LinkVar(interp, "sqlite_io_error_pending",
2N/A (char*)&sqlite_io_error_pending, TCL_LINK_INT);
2N/A#ifdef SQLITE_TEST
2N/A Tcl_LinkVar(interp, "journal_format",
2N/A (char*)&journal_format, TCL_LINK_INT);
2N/A#endif
2N/A sprintf(zBuf, "%d", SQLITE_PAGE_SIZE);
2N/A Tcl_SetVar(interp, "SQLITE_PAGE_SIZE", zBuf, TCL_GLOBAL_ONLY);
2N/A sprintf(zBuf, "%d", SQLITE_PAGE_RESERVE);
2N/A Tcl_SetVar(interp, "SQLITE_PAGE_RESERVE", zBuf, TCL_GLOBAL_ONLY);
2N/A sprintf(zBuf, "%d", SQLITE_USABLE_SIZE);
2N/A Tcl_SetVar(interp, "SQLITE_USABLE_SIZE", zBuf, TCL_GLOBAL_ONLY);
2N/A return TCL_OK;
2N/A}