/*** 2007 May 7**** The author disclaims copyright to this source code. In place of** a legal notice, here is a blessing:**** May you do good and not evil.** May you find forgiveness for yourself and forgive others.** May you share freely, never taking more than you give.******************************************************************************* This file contains code used for testing the SQLite system.** None of the code in this file goes into a deliverable build.**** The focus of this file is providing the TCL testing layer** access to compile-time constants.*/#include "sqliteLimit.h"#include "sqliteInt.h"#if SQLITE_OS_WIN# include "os_win.h"#endif#if defined(INCLUDE_SQLITE_TCL_H)# include "sqlite_tcl.h"#else# include "tcl.h"#endif#include <stdlib.h>#include <string.h>/*** Macro to stringify the results of the evaluation a pre-processor** macro. i.e. so that STRINGVALUE(SQLITE_NOMEM) -> "7".*/#define STRINGVALUE2(x) #x#define STRINGVALUE(x) STRINGVALUE2(x)/*** This routine sets entries in the global ::sqlite_options() array variable** according to the compile-time configuration of the database. Test** procedures use this to determine when tests should be omitted.*/static void set_options(Tcl_Interp *interp){#if HAVE_MALLOC_USABLE_SIZETcl_SetVar2(interp, "sqlite_options", "malloc_usable_size", "1",TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "malloc_usable_size", "0",TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_32BIT_ROWIDTcl_SetVar2(interp, "sqlite_options", "rowid32", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "rowid32", "0", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_CASE_SENSITIVE_LIKETcl_SetVar2(interp, "sqlite_options","casesensitivelike","1",TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options","casesensitivelike","0",TCL_GLOBAL_ONLY);#endif#ifdef CONFIG_SLOWDOWN_FACTORTcl_SetVar2(interp, "sqlite_options","configslower",STRINGVALUE(CONFIG_SLOWDOWN_FACTOR),TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options","configslower","1.0",TCL_GLOBAL_ONLY);#endif#if !SQLITE_OS_WINCE && !SQLITE_OS_WINRTTcl_SetVar2(interp, "sqlite_options", "curdir", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "curdir", "0", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_WIN32_MALLOCTcl_SetVar2(interp, "sqlite_options", "win32malloc", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "win32malloc", "0", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_DEBUGTcl_SetVar2(interp, "sqlite_options", "debug", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "debug", "0", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_DEFAULT_CKPTFULLFSYNCTcl_SetVar2(interp, "sqlite_options", "default_ckptfullfsync",SQLITE_DEFAULT_CKPTFULLFSYNC ? "1" : "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "default_ckptfullfsync", "0", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_DIRECT_OVERFLOW_READTcl_SetVar2(interp, "sqlite_options", "direct_read", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "direct_read", "0", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_DISABLE_DIRSYNCTcl_SetVar2(interp, "sqlite_options", "dirsync", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "dirsync", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_DISABLE_LFSTcl_SetVar2(interp, "sqlite_options", "lfs", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "lfs", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_DISABLE_PAGECACHE_OVERFLOW_STATSTcl_SetVar2(interp, "sqlite_options", "pagecache_overflow_stats","0",TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "pagecache_overflow_stats","1",TCL_GLOBAL_ONLY);#endif#if SQLITE_MAX_MMAP_SIZE>0Tcl_SetVar2(interp, "sqlite_options", "mmap", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "mmap", "0", TCL_GLOBAL_ONLY);#endifTcl_SetVar2(interp, "sqlite_options", "worker_threads",STRINGVALUE(SQLITE_MAX_WORKER_THREADS), TCL_GLOBAL_ONLY);#ifdef SQLITE_MEMDEBUGTcl_SetVar2(interp, "sqlite_options", "memdebug", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "memdebug", "0", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_ENABLE_8_3_NAMESTcl_SetVar2(interp, "sqlite_options", "8_3_names", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "8_3_names", "0", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_ENABLE_CURSOR_HINTSTcl_SetVar2(interp, "sqlite_options", "cursorhints", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "cursorhints", "0", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_ENABLE_HIDDEN_COLUMNSTcl_SetVar2(interp, "sqlite_options", "hiddencolumns", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "hiddencolumns", "0", TCL_GLOBAL_ONLY);#endif#ifndef SQLITE_OMIT_DESERIALIZETcl_SetVar2(interp, "sqlite_options", "deserialize", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "deserialize", "0", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_ENABLE_MATH_FUNCTIONSTcl_SetVar2(interp, "sqlite_options", "mathlib", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "mathlib", "0", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_ENABLE_MEMSYS3Tcl_SetVar2(interp, "sqlite_options", "mem3", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "mem3", "0", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_ENABLE_MEMSYS5Tcl_SetVar2(interp, "sqlite_options", "mem5", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "mem5", "0", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_ENABLE_OFFSET_SQL_FUNCTcl_SetVar2(interp, "sqlite_options", "offset_sql_func","1",TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "offset_sql_func","0",TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_ENABLE_PREUPDATE_HOOKTcl_SetVar2(interp, "sqlite_options", "preupdate", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "preupdate", "0", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_ENABLE_SNAPSHOTTcl_SetVar2(interp, "sqlite_options", "snapshot", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "snapshot", "0", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_MUTEX_OMITTcl_SetVar2(interp, "sqlite_options", "mutex", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "mutex", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_MUTEX_NOOPTcl_SetVar2(interp, "sqlite_options", "mutex_noop", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "mutex_noop", "0", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_ALTERTABLETcl_SetVar2(interp, "sqlite_options", "altertable", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "altertable", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_ANALYZETcl_SetVar2(interp, "sqlite_options", "analyze", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "analyze", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_ENABLE_API_ARMORTcl_SetVar2(interp, "sqlite_options", "api_armor", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "api_armor", "0", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_ENABLE_ATOMIC_WRITETcl_SetVar2(interp, "sqlite_options", "atomicwrite", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "atomicwrite", "0", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_ENABLE_GEOPOLYTcl_SetVar2(interp, "sqlite_options", "geopoly", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "geopoly", "0", TCL_GLOBAL_ONLY);#endif#ifndef SQLITE_OMIT_JSONTcl_SetVar2(interp, "sqlite_options", "json1", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "json1", "0", TCL_GLOBAL_ONLY);#endifTcl_SetVar2(interp, "sqlite_options", "has_codec", "0", TCL_GLOBAL_ONLY);#ifdef SQLITE_LIKE_DOESNT_MATCH_BLOBSTcl_SetVar2(interp, "sqlite_options", "like_match_blobs", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "like_match_blobs", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_ATTACHTcl_SetVar2(interp, "sqlite_options", "attach", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "attach", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_AUTHORIZATIONTcl_SetVar2(interp, "sqlite_options", "auth", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "auth", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_AUTOINCREMENTTcl_SetVar2(interp, "sqlite_options", "autoinc", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "autoinc", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_AUTOMATIC_INDEXTcl_SetVar2(interp, "sqlite_options", "autoindex", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "autoindex", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_AUTORESETTcl_SetVar2(interp, "sqlite_options", "autoreset", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "autoreset", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_AUTOVACUUMTcl_SetVar2(interp, "sqlite_options", "autovacuum", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "autovacuum", "1", TCL_GLOBAL_ONLY);#endif /* SQLITE_OMIT_AUTOVACUUM */#if !defined(SQLITE_DEFAULT_AUTOVACUUM)Tcl_SetVar2(interp,"sqlite_options","default_autovacuum","0",TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "default_autovacuum",STRINGVALUE(SQLITE_DEFAULT_AUTOVACUUM), TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_BETWEEN_OPTIMIZATIONTcl_SetVar2(interp, "sqlite_options", "between_opt", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "between_opt", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_UNTESTABLETcl_SetVar2(interp, "sqlite_options", "builtin_test", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "builtin_test", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_BLOB_LITERALTcl_SetVar2(interp, "sqlite_options", "bloblit", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "bloblit", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_CASTTcl_SetVar2(interp, "sqlite_options", "cast", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "cast", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_CHECKTcl_SetVar2(interp, "sqlite_options", "check", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "check", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_CTETcl_SetVar2(interp, "sqlite_options", "cte", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "cte", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_ENABLE_COLUMN_METADATATcl_SetVar2(interp, "sqlite_options", "columnmetadata", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "columnmetadata", "0", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_ENABLE_OVERSIZE_CELL_CHECKTcl_SetVar2(interp, "sqlite_options", "oversize_cell_check", "1",TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "oversize_cell_check", "0",TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_COMPILEOPTION_DIAGSTcl_SetVar2(interp, "sqlite_options", "compileoption_diags", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "compileoption_diags", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_COMPLETETcl_SetVar2(interp, "sqlite_options", "complete", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "complete", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_COMPOUND_SELECTTcl_SetVar2(interp, "sqlite_options", "compound", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "compound", "1", TCL_GLOBAL_ONLY);#endifTcl_SetVar2(interp, "sqlite_options", "conflict", "1", TCL_GLOBAL_ONLY);Tcl_SetVar2(interp, "sqlite_options", "crashtest", "1", TCL_GLOBAL_ONLY);#ifdef SQLITE_OMIT_DATETIME_FUNCSTcl_SetVar2(interp, "sqlite_options", "datetime", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "datetime", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_DECLTYPETcl_SetVar2(interp, "sqlite_options", "decltype", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "decltype", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_DEPRECATEDTcl_SetVar2(interp, "sqlite_options", "deprecated", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "deprecated", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_DISKIOTcl_SetVar2(interp, "sqlite_options", "diskio", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "diskio", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_EXPLAINTcl_SetVar2(interp, "sqlite_options", "explain", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "explain", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_FLOATING_POINTTcl_SetVar2(interp, "sqlite_options", "floatingpoint", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "floatingpoint", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_FOREIGN_KEYTcl_SetVar2(interp, "sqlite_options", "foreignkey", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "foreignkey", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_ENABLE_FTS1Tcl_SetVar2(interp, "sqlite_options", "fts1", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "fts1", "0", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_ENABLE_FTS2Tcl_SetVar2(interp, "sqlite_options", "fts2", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "fts2", "0", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_ENABLE_FTS3Tcl_SetVar2(interp, "sqlite_options", "fts3", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "fts3", "0", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_ENABLE_FTS5Tcl_SetVar2(interp, "sqlite_options", "fts5", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "fts5", "0", TCL_GLOBAL_ONLY);#endif#if defined(SQLITE_ENABLE_FTS3) && !defined(SQLITE_DISABLE_FTS3_UNICODE)Tcl_SetVar2(interp, "sqlite_options", "fts3_unicode", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "fts3_unicode", "0", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_DISABLE_FTS4_DEFERREDTcl_SetVar2(interp, "sqlite_options", "fts4_deferred", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "fts4_deferred", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_GET_TABLETcl_SetVar2(interp, "sqlite_options", "gettable", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "gettable", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_ENABLE_ICUTcl_SetVar2(interp, "sqlite_options", "icu", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "icu", "0", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_ENABLE_ICU_COLLATIONSTcl_SetVar2(interp, "sqlite_options", "icu_collations", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "icu_collations", "0", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_INCRBLOBTcl_SetVar2(interp, "sqlite_options", "incrblob", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "incrblob", "1", TCL_GLOBAL_ONLY);#endif /* SQLITE_OMIT_AUTOVACUUM */#ifdef SQLITE_OMIT_INTEGRITY_CHECKTcl_SetVar2(interp, "sqlite_options", "integrityck", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "integrityck", "1", TCL_GLOBAL_ONLY);#endif#if defined(SQLITE_DEFAULT_FILE_FORMAT) && SQLITE_DEFAULT_FILE_FORMAT==1Tcl_SetVar2(interp, "sqlite_options", "legacyformat", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "legacyformat", "0", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_LIKE_OPTIMIZATIONTcl_SetVar2(interp, "sqlite_options", "like_opt", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "like_opt", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_LOAD_EXTENSIONTcl_SetVar2(interp, "sqlite_options", "load_ext", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "load_ext", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_LOCALTIMETcl_SetVar2(interp, "sqlite_options", "localtime", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "localtime", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_LOOKASIDETcl_SetVar2(interp, "sqlite_options", "lookaside", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "lookaside", "1", TCL_GLOBAL_ONLY);#endifTcl_SetVar2(interp, "sqlite_options", "long_double",sizeof(LONGDOUBLE_TYPE)>sizeof(double) ? "1" : "0",TCL_GLOBAL_ONLY);#ifdef SQLITE_OMIT_MEMORYDBTcl_SetVar2(interp, "sqlite_options", "memorydb", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "memorydb", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_ENABLE_MEMORY_MANAGEMENTTcl_SetVar2(interp, "sqlite_options", "memorymanage", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "memorymanage", "0", TCL_GLOBAL_ONLY);#endifTcl_SetVar2(interp, "sqlite_options", "mergesort", "1", TCL_GLOBAL_ONLY);#ifdef SQLITE_ENABLE_NULL_TRIMTcl_SetVar2(interp, "sqlite_options", "null_trim", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "null_trim", "0", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_OR_OPTIMIZATIONTcl_SetVar2(interp, "sqlite_options", "or_opt", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "or_opt", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_ENABLE_RBUTcl_SetVar2(interp, "sqlite_options", "rbu", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "rbu", "0", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_PAGER_PRAGMASTcl_SetVar2(interp, "sqlite_options", "pager_pragmas", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "pager_pragmas", "1", TCL_GLOBAL_ONLY);#endif#if defined(SQLITE_OMIT_PRAGMA) || defined(SQLITE_OMIT_FLAG_PRAGMAS)Tcl_SetVar2(interp, "sqlite_options", "pragma", "0", TCL_GLOBAL_ONLY);Tcl_SetVar2(interp, "sqlite_options", "integrityck", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "pragma", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_PROGRESS_CALLBACKTcl_SetVar2(interp, "sqlite_options", "progress", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "progress", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_REINDEXTcl_SetVar2(interp, "sqlite_options", "reindex", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "reindex", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_ENABLE_RTREETcl_SetVar2(interp, "sqlite_options", "rtree", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "rtree", "0", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_RTREE_INT_ONLYTcl_SetVar2(interp, "sqlite_options", "rtree_int_only", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "rtree_int_only", "0", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_SCHEMA_PRAGMASTcl_SetVar2(interp, "sqlite_options", "schema_pragmas", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "schema_pragmas", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_SCHEMA_VERSION_PRAGMASTcl_SetVar2(interp, "sqlite_options", "schema_version", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "schema_version", "1", TCL_GLOBAL_ONLY);#endif#if defined(SQLITE_ENABLE_SESSION) && defined(SQLITE_ENABLE_PREUPDATE_HOOK)Tcl_SetVar2(interp, "sqlite_options", "session", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "session", "0", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_ENABLE_STAT4Tcl_SetVar2(interp, "sqlite_options", "stat4", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "stat4", "0", TCL_GLOBAL_ONLY);#endif#if defined(SQLITE_ENABLE_STMTVTAB) && !defined(SQLITE_OMIT_VIRTUALTABLE)Tcl_SetVar2(interp, "sqlite_options", "stmtvtab", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "stmtvtab", "0", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_ENABLE_STMT_SCANSTATUSTcl_SetVar2(interp, "sqlite_options", "scanstatus", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "scanstatus", "0", TCL_GLOBAL_ONLY);#endif#if !defined(SQLITE_ENABLE_LOCKING_STYLE)# if defined(__APPLE__)# define SQLITE_ENABLE_LOCKING_STYLE 1# else# define SQLITE_ENABLE_LOCKING_STYLE 0# endif#endif#if SQLITE_ENABLE_LOCKING_STYLE && defined(__APPLE__)Tcl_SetVar2(interp,"sqlite_options","lock_proxy_pragmas","1",TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp,"sqlite_options","lock_proxy_pragmas","0",TCL_GLOBAL_ONLY);#endif#if defined(SQLITE_PREFER_PROXY_LOCKING) && defined(__APPLE__)Tcl_SetVar2(interp,"sqlite_options","prefer_proxy_locking","1",TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp,"sqlite_options","prefer_proxy_locking","0",TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_SHARED_CACHETcl_SetVar2(interp, "sqlite_options", "shared_cache", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "shared_cache", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_SUBQUERYTcl_SetVar2(interp, "sqlite_options", "subquery", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "subquery", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_TCL_VARIABLETcl_SetVar2(interp, "sqlite_options", "tclvar", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "tclvar", "1", TCL_GLOBAL_ONLY);#endifTcl_SetVar2(interp, "sqlite_options", "threadsafe",SQLITE_THREADSAFE ? "1" : "0", TCL_GLOBAL_ONLY);Tcl_SetVar2(interp, "sqlite_options", "threadsafe1",SQLITE_THREADSAFE==1 ? "1" : "0", TCL_GLOBAL_ONLY);Tcl_SetVar2(interp, "sqlite_options", "threadsafe2",SQLITE_THREADSAFE==2 ? "1" : "0", TCL_GLOBAL_ONLY);assert( sqlite3_threadsafe()==SQLITE_THREADSAFE );#ifdef SQLITE_OMIT_TEMPDBTcl_SetVar2(interp, "sqlite_options", "tempdb", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "tempdb", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_TRACETcl_SetVar2(interp, "sqlite_options", "trace", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "trace", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_TRIGGERTcl_SetVar2(interp, "sqlite_options", "trigger", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "trigger", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_TRUNCATE_OPTIMIZATIONTcl_SetVar2(interp, "sqlite_options", "truncate_opt", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "truncate_opt", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_UTF16Tcl_SetVar2(interp, "sqlite_options", "utf16", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "utf16", "1", TCL_GLOBAL_ONLY);#endif#if defined(SQLITE_OMIT_VACUUM) || defined(SQLITE_OMIT_ATTACH)Tcl_SetVar2(interp, "sqlite_options", "vacuum", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "vacuum", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_VIEWTcl_SetVar2(interp, "sqlite_options", "view", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "view", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_VIRTUALTABLETcl_SetVar2(interp, "sqlite_options", "vtab", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "vtab", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_WALTcl_SetVar2(interp, "sqlite_options", "wal", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "wal", "1", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_WSDTcl_SetVar2(interp, "sqlite_options", "wsd", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "wsd", "1", TCL_GLOBAL_ONLY);#endif#if defined(SQLITE_ENABLE_UPDATE_DELETE_LIMIT) && !defined(SQLITE_OMIT_SUBQUERY)Tcl_SetVar2(interp, "sqlite_options", "update_delete_limit", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "update_delete_limit", "0", TCL_GLOBAL_ONLY);#endif#if defined(SQLITE_ENABLE_UNLOCK_NOTIFY)Tcl_SetVar2(interp, "sqlite_options", "unlock_notify", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "unlock_notify", "0", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_FAST_SECURE_DELETETcl_SetVar2(interp, "sqlite_options", "fast_secure_delete", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "fast_secure_delete", "0", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_SECURE_DELETETcl_SetVar2(interp, "sqlite_options", "secure_delete", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "secure_delete", "0", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_USER_AUTHENTICATIONTcl_SetVar2(interp, "sqlite_options", "userauth", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "userauth", "0", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_MULTIPLEX_EXT_OVWRTcl_SetVar2(interp, "sqlite_options", "multiplex_ext_overwrite", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "multiplex_ext_overwrite", "0", TCL_GLOBAL_ONLY);#endif#ifdef YYTRACKMAXSTACKDEPTHTcl_SetVar2(interp, "sqlite_options", "yytrackmaxstackdepth", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "yytrackmaxstackdepth", "0", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_ENABLE_SQLLOGTcl_SetVar2(interp, "sqlite_options", "sqllog", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "sqllog", "0", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_ENABLE_URI_00_ERRORTcl_SetVar2(interp, "sqlite_options", "uri_00_error", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "uri_00_error", "0", TCL_GLOBAL_ONLY);#endif#if defined(SQLITE_ENABLE_NORMALIZE)Tcl_SetVar2(interp, "sqlite_options", "normalize", "1", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "normalize", "0", TCL_GLOBAL_ONLY);#endif#ifdef SQLITE_OMIT_WINDOWFUNCTcl_SetVar2(interp, "sqlite_options", "windowfunc", "0", TCL_GLOBAL_ONLY);#elseTcl_SetVar2(interp, "sqlite_options", "windowfunc", "1", TCL_GLOBAL_ONLY);#endif#define LINKVAR(x) { \static const int cv_ ## x = SQLITE_ ## x; \Tcl_LinkVar(interp, "SQLITE_" #x, (char *)&(cv_ ## x), \TCL_LINK_INT | TCL_LINK_READ_ONLY); }LINKVAR( MAX_LENGTH );LINKVAR( MAX_COLUMN );LINKVAR( MAX_SQL_LENGTH );LINKVAR( MAX_EXPR_DEPTH );LINKVAR( MAX_COMPOUND_SELECT );LINKVAR( MAX_VDBE_OP );LINKVAR( MAX_FUNCTION_ARG );LINKVAR( MAX_VARIABLE_NUMBER );LINKVAR( MAX_PAGE_SIZE );LINKVAR( MAX_PAGE_COUNT );LINKVAR( MAX_LIKE_PATTERN_LENGTH );LINKVAR( MAX_TRIGGER_DEPTH );LINKVAR( DEFAULT_CACHE_SIZE );LINKVAR( DEFAULT_PAGE_SIZE );LINKVAR( DEFAULT_FILE_FORMAT );LINKVAR( DEFAULT_SYNCHRONOUS );LINKVAR( DEFAULT_WAL_SYNCHRONOUS );LINKVAR( MAX_ATTACHED );LINKVAR( MAX_DEFAULT_PAGE_SIZE );LINKVAR( MAX_WORKER_THREADS );{static const int cv_TEMP_STORE = SQLITE_TEMP_STORE;Tcl_LinkVar(interp, "TEMP_STORE", (char *)&(cv_TEMP_STORE),TCL_LINK_INT | TCL_LINK_READ_ONLY);}#ifdef _MSC_VER{static const int cv__MSC_VER = 1;Tcl_LinkVar(interp, "_MSC_VER", (char *)&(cv__MSC_VER),TCL_LINK_INT | TCL_LINK_READ_ONLY);}#endif#ifdef __GNUC__{static const int cv___GNUC__ = 1;Tcl_LinkVar(interp, "__GNUC__", (char *)&(cv___GNUC__),TCL_LINK_INT | TCL_LINK_READ_ONLY);}#endif}/*** Register commands with the TCL interpreter.*/int Sqliteconfig_Init(Tcl_Interp *interp){set_options(interp);return TCL_OK;}
此处可能存在不合适展示的内容,页面不予展示。您可通过相关编辑功能自查并修改。
如您确认内容无涉及 不当用语 / 纯广告导流 / 暴力 / 低俗色情 / 侵权 / 盗版 / 虚假 / 无价值内容或违法国家有关法律法规的内容,可点击提交进行申诉,我们将尽快为您处理。