sl@0: /*
sl@0: ** 2007 May 7
sl@0: **
sl@0: ** The author disclaims copyright to this source code.  In place of
sl@0: ** a legal notice, here is a blessing:
sl@0: **
sl@0: **    May you do good and not evil.
sl@0: **    May you find forgiveness for yourself and forgive others.
sl@0: **    May you share freely, never taking more than you give.
sl@0: **
sl@0: *************************************************************************
sl@0: ** 
sl@0: ** This file contains code used for testing the SQLite system.
sl@0: ** None of the code in this file goes into a deliverable build.
sl@0: ** 
sl@0: ** The focus of this file is providing the TCL testing layer
sl@0: ** access to compile-time constants.
sl@0: **
sl@0: ** $Id: test_config.c,v 1.37 2008/09/23 10:16:05 drh Exp $
sl@0: */
sl@0: 
sl@0: #include "sqliteLimit.h"
sl@0: 
sl@0: #include "sqliteInt.h"
sl@0: #include "tcl.h"
sl@0: #include <stdlib.h>
sl@0: #include <string.h>
sl@0: 
sl@0: /*
sl@0: ** Macro to stringify the results of the evaluation a pre-processor
sl@0: ** macro. i.e. so that STRINGVALUE(SQLITE_NOMEM) -> "7".
sl@0: */
sl@0: #define STRINGVALUE2(x) #x
sl@0: #define STRINGVALUE(x) STRINGVALUE2(x)
sl@0: 
sl@0: /*
sl@0: ** This routine sets entries in the global ::sqlite_options() array variable
sl@0: ** according to the compile-time configuration of the database.  Test
sl@0: ** procedures use this to determine when tests should be omitted.
sl@0: */
sl@0: static void set_options(Tcl_Interp *interp){
sl@0: #ifdef SQLITE_32BIT_ROWID
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "rowid32", "1", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "rowid32", "0", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_CASE_SENSITIVE_LIKE
sl@0:   Tcl_SetVar2(interp, "sqlite_options","casesensitivelike","1",TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options","casesensitivelike","0",TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_DEBUG
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "debug", "1", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "debug", "0", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_DISABLE_DIRSYNC
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "dirsync", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "dirsync", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_DISABLE_LFS
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "lfs", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "lfs", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #if 1 /* def SQLITE_MEMDEBUG */
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "memdebug", "1", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "memdebug", "0", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_ENABLE_MEMSYS3
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "mem3", "1", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "mem3", "0", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_ENABLE_MEMSYS5
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "mem5", "1", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "mem5", "0", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_OMIT_ALTERTABLE
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "altertable", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "altertable", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_OMIT_ANALYZE
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "analyze", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "analyze", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_ENABLE_ATOMIC_WRITE
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "atomicwrite", "1", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "atomicwrite", "0", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_OMIT_ATTACH
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "attach", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "attach", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_OMIT_AUTHORIZATION
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "auth", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "auth", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_OMIT_AUTOINCREMENT
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "autoinc", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "autoinc", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_OMIT_AUTOVACUUM
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "autovacuum", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "autovacuum", "1", TCL_GLOBAL_ONLY);
sl@0: #endif /* SQLITE_OMIT_AUTOVACUUM */
sl@0: #if !defined(SQLITE_DEFAULT_AUTOVACUUM)
sl@0:   Tcl_SetVar2(interp,"sqlite_options","default_autovacuum","0",TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "default_autovacuum", 
sl@0:       STRINGVALUE(SQLITE_DEFAULT_AUTOVACUUM), TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_OMIT_BETWEEN_OPTIMIZATION
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "between_opt", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "between_opt", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_OMIT_BUILTIN_TEST
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "builtin_test", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "builtin_test", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_OMIT_BLOB_LITERAL
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "bloblit", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "bloblit", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_OMIT_CAST
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "cast", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "cast", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_OMIT_CHECK
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "check", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "check", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_ENABLE_COLUMN_METADATA
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "columnmetadata", "1", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "columnmetadata", "0", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_OMIT_COMPLETE
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "complete", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "complete", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_OMIT_COMPOUND_SELECT
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "compound", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "compound", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_OMIT_CONFLICT_CLAUSE
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "conflict", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "conflict", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #if SQLITE_OS_UNIX
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "crashtest", "1", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "crashtest", "0", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_OMIT_DATETIME_FUNCS
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "datetime", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "datetime", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_OMIT_DECLTYPE
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "decltype", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "decltype", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_OMIT_DISKIO
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "diskio", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "diskio", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_OMIT_EXPLAIN
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "explain", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "explain", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_OMIT_FLOATING_POINT
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "floatingpoint", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "floatingpoint", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_OMIT_FOREIGN_KEY
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "foreignkey", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "foreignkey", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_ENABLE_FTS1
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "fts1", "1", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "fts1", "0", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_ENABLE_FTS2
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "fts2", "1", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "fts2", "0", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_ENABLE_FTS3
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "fts3", "1", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "fts3", "0", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_OMIT_GET_TABLE
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "gettable", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "gettable", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_OMIT_GLOBALRECOVER
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "globalrecover", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "globalrecover", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_ENABLE_ICU
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "icu", "1", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "icu", "0", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_OMIT_INCRBLOB
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "incrblob", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "incrblob", "1", TCL_GLOBAL_ONLY);
sl@0: #endif /* SQLITE_OMIT_AUTOVACUUM */
sl@0: 
sl@0: #ifdef SQLITE_OMIT_INTEGRITY_CHECK
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "integrityck", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "integrityck", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #if defined(SQLITE_DEFAULT_FILE_FORMAT) && SQLITE_DEFAULT_FILE_FORMAT==1
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "legacyformat", "1", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "legacyformat", "0", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_OMIT_LIKE_OPTIMIZATION
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "like_opt", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "like_opt", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_OMIT_LOAD_EXTENSION
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "load_ext", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "load_ext", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_OMIT_LOCALTIME
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "localtime", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "localtime", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: Tcl_SetVar2(interp, "sqlite_options", "long_double",
sl@0:               sizeof(LONGDOUBLE_TYPE)>sizeof(double) ? "1" : "0",
sl@0:               TCL_GLOBAL_ONLY);
sl@0: 
sl@0: #ifdef SQLITE_OMIT_MEMORYDB
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "memorydb", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "memorydb", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_ENABLE_MEMORY_MANAGEMENT
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "memorymanage", "1", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "memorymanage", "0", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_OMIT_OR_OPTIMIZATION
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "or_opt", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "or_opt", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_OMIT_PAGER_PRAGMAS
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "pager_pragmas", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "pager_pragmas", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_OMIT_PARSER
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "parser", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "parser", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #if defined(SQLITE_OMIT_PRAGMA) || defined(SQLITE_OMIT_FLAG_PRAGMAS)
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "pragma", "0", TCL_GLOBAL_ONLY);
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "integrityck", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "pragma", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_OMIT_PROGRESS_CALLBACK
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "progress", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "progress", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_OMIT_REINDEX
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "reindex", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "reindex", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_ENABLE_RTREE
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "rtree", "1", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "rtree", "0", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_OMIT_SCHEMA_PRAGMAS
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "schema_pragmas", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "schema_pragmas", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_OMIT_SCHEMA_VERSION_PRAGMAS
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "schema_version", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "schema_version", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_OMIT_SHARED_CACHE
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "shared_cache", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "shared_cache", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_OMIT_SUBQUERY
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "subquery", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "subquery", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_OMIT_TCL_VARIABLE
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "tclvar", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "tclvar", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "threadsafe", 
sl@0:       STRINGVALUE(SQLITE_THREADSAFE), TCL_GLOBAL_ONLY);
sl@0:   assert( sqlite3_threadsafe()==SQLITE_THREADSAFE );
sl@0: 
sl@0: #ifdef SQLITE_OMIT_TRACE
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "trace", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "trace", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_OMIT_TRIGGER
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "trigger", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "trigger", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_OMIT_TEMPDB
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "tempdb", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "tempdb", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_OMIT_UTF16
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "utf16", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "utf16", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #if defined(SQLITE_OMIT_VACUUM) || defined(SQLITE_OMIT_ATTACH)
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "vacuum", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "vacuum", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_OMIT_VIEW
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "view", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "view", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_OMIT_VIRTUALTABLE
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "vtab", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "vtab", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_OMIT_WSD
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "wsd", "0", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "wsd", "1", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef SQLITE_SECURE_DELETE
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "secure_delete", "1", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "secure_delete", "0", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #ifdef YYTRACKMAXSTACKDEPTH
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "yytrackmaxstackdepth", "1", TCL_GLOBAL_ONLY);
sl@0: #else
sl@0:   Tcl_SetVar2(interp, "sqlite_options", "yytrackmaxstackdepth", "0", TCL_GLOBAL_ONLY);
sl@0: #endif
sl@0: 
sl@0: #define LINKVAR(x) { \
sl@0:     static const int cv_ ## x = SQLITE_ ## x; \
sl@0:     Tcl_LinkVar(interp, "SQLITE_" #x, (char *)&(cv_ ## x), \
sl@0:                 TCL_LINK_INT | TCL_LINK_READ_ONLY); }
sl@0: 
sl@0:   LINKVAR( MAX_LENGTH );
sl@0:   LINKVAR( MAX_COLUMN );
sl@0:   LINKVAR( MAX_SQL_LENGTH );
sl@0:   LINKVAR( MAX_EXPR_DEPTH );
sl@0:   LINKVAR( MAX_COMPOUND_SELECT );
sl@0:   LINKVAR( MAX_VDBE_OP );
sl@0:   LINKVAR( MAX_FUNCTION_ARG );
sl@0:   LINKVAR( MAX_VARIABLE_NUMBER );
sl@0:   LINKVAR( MAX_PAGE_SIZE );
sl@0:   LINKVAR( MAX_PAGE_COUNT );
sl@0:   LINKVAR( MAX_LIKE_PATTERN_LENGTH );
sl@0:   LINKVAR( DEFAULT_TEMP_CACHE_SIZE );
sl@0:   LINKVAR( DEFAULT_CACHE_SIZE );
sl@0:   LINKVAR( DEFAULT_PAGE_SIZE );
sl@0:   LINKVAR( DEFAULT_FILE_FORMAT );
sl@0:   LINKVAR( MAX_ATTACHED );
sl@0: 
sl@0:   {
sl@0:     static const int cv_TEMP_STORE = SQLITE_TEMP_STORE;
sl@0:     Tcl_LinkVar(interp, "TEMP_STORE", (char *)&(cv_TEMP_STORE),
sl@0:                 TCL_LINK_INT | TCL_LINK_READ_ONLY);
sl@0:   }
sl@0: }
sl@0: 
sl@0: 
sl@0: /*
sl@0: ** Register commands with the TCL interpreter.
sl@0: */
sl@0: int Sqliteconfig_Init(Tcl_Interp *interp){
sl@0:   set_options(interp);
sl@0:   return TCL_OK;
sl@0: }