Annotation of embedaddon/sqlite3/src/test_config.c, revision 1.1
1.1 ! misho 1: /*
! 2: ** 2007 May 7
! 3: **
! 4: ** The author disclaims copyright to this source code. In place of
! 5: ** a legal notice, here is a blessing:
! 6: **
! 7: ** May you do good and not evil.
! 8: ** May you find forgiveness for yourself and forgive others.
! 9: ** May you share freely, never taking more than you give.
! 10: **
! 11: *************************************************************************
! 12: **
! 13: ** This file contains code used for testing the SQLite system.
! 14: ** None of the code in this file goes into a deliverable build.
! 15: **
! 16: ** The focus of this file is providing the TCL testing layer
! 17: ** access to compile-time constants.
! 18: */
! 19:
! 20: #include "sqliteLimit.h"
! 21:
! 22: #include "sqliteInt.h"
! 23: #include "tcl.h"
! 24: #include <stdlib.h>
! 25: #include <string.h>
! 26:
! 27: /*
! 28: ** Macro to stringify the results of the evaluation a pre-processor
! 29: ** macro. i.e. so that STRINGVALUE(SQLITE_NOMEM) -> "7".
! 30: */
! 31: #define STRINGVALUE2(x) #x
! 32: #define STRINGVALUE(x) STRINGVALUE2(x)
! 33:
! 34: /*
! 35: ** This routine sets entries in the global ::sqlite_options() array variable
! 36: ** according to the compile-time configuration of the database. Test
! 37: ** procedures use this to determine when tests should be omitted.
! 38: */
! 39: static void set_options(Tcl_Interp *interp){
! 40: #ifdef HAVE_MALLOC_USABLE_SIZE
! 41: Tcl_SetVar2(interp, "sqlite_options", "malloc_usable_size", "1",
! 42: TCL_GLOBAL_ONLY);
! 43: #else
! 44: Tcl_SetVar2(interp, "sqlite_options", "malloc_usable_size", "0",
! 45: TCL_GLOBAL_ONLY);
! 46: #endif
! 47:
! 48: #ifdef SQLITE_32BIT_ROWID
! 49: Tcl_SetVar2(interp, "sqlite_options", "rowid32", "1", TCL_GLOBAL_ONLY);
! 50: #else
! 51: Tcl_SetVar2(interp, "sqlite_options", "rowid32", "0", TCL_GLOBAL_ONLY);
! 52: #endif
! 53:
! 54: #ifdef SQLITE_CASE_SENSITIVE_LIKE
! 55: Tcl_SetVar2(interp, "sqlite_options","casesensitivelike","1",TCL_GLOBAL_ONLY);
! 56: #else
! 57: Tcl_SetVar2(interp, "sqlite_options","casesensitivelike","0",TCL_GLOBAL_ONLY);
! 58: #endif
! 59:
! 60: #ifdef SQLITE_DEBUG
! 61: Tcl_SetVar2(interp, "sqlite_options", "debug", "1", TCL_GLOBAL_ONLY);
! 62: #else
! 63: Tcl_SetVar2(interp, "sqlite_options", "debug", "0", TCL_GLOBAL_ONLY);
! 64: #endif
! 65:
! 66: #ifdef SQLITE_DIRECT_OVERFLOW_READ
! 67: Tcl_SetVar2(interp, "sqlite_options", "direct_read", "1", TCL_GLOBAL_ONLY);
! 68: #else
! 69: Tcl_SetVar2(interp, "sqlite_options", "direct_read", "0", TCL_GLOBAL_ONLY);
! 70: #endif
! 71:
! 72: #ifdef SQLITE_DISABLE_DIRSYNC
! 73: Tcl_SetVar2(interp, "sqlite_options", "dirsync", "0", TCL_GLOBAL_ONLY);
! 74: #else
! 75: Tcl_SetVar2(interp, "sqlite_options", "dirsync", "1", TCL_GLOBAL_ONLY);
! 76: #endif
! 77:
! 78: #ifdef SQLITE_DISABLE_LFS
! 79: Tcl_SetVar2(interp, "sqlite_options", "lfs", "0", TCL_GLOBAL_ONLY);
! 80: #else
! 81: Tcl_SetVar2(interp, "sqlite_options", "lfs", "1", TCL_GLOBAL_ONLY);
! 82: #endif
! 83:
! 84: #if 1 /* def SQLITE_MEMDEBUG */
! 85: Tcl_SetVar2(interp, "sqlite_options", "memdebug", "1", TCL_GLOBAL_ONLY);
! 86: #else
! 87: Tcl_SetVar2(interp, "sqlite_options", "memdebug", "0", TCL_GLOBAL_ONLY);
! 88: #endif
! 89:
! 90: #ifdef SQLITE_ENABLE_8_3_NAMES
! 91: Tcl_SetVar2(interp, "sqlite_options", "8_3_names", "1", TCL_GLOBAL_ONLY);
! 92: #else
! 93: Tcl_SetVar2(interp, "sqlite_options", "8_3_names", "0", TCL_GLOBAL_ONLY);
! 94: #endif
! 95:
! 96: #ifdef SQLITE_ENABLE_MEMSYS3
! 97: Tcl_SetVar2(interp, "sqlite_options", "mem3", "1", TCL_GLOBAL_ONLY);
! 98: #else
! 99: Tcl_SetVar2(interp, "sqlite_options", "mem3", "0", TCL_GLOBAL_ONLY);
! 100: #endif
! 101:
! 102: #ifdef SQLITE_ENABLE_MEMSYS5
! 103: Tcl_SetVar2(interp, "sqlite_options", "mem5", "1", TCL_GLOBAL_ONLY);
! 104: #else
! 105: Tcl_SetVar2(interp, "sqlite_options", "mem5", "0", TCL_GLOBAL_ONLY);
! 106: #endif
! 107:
! 108: #ifdef SQLITE_MUTEX_OMIT
! 109: Tcl_SetVar2(interp, "sqlite_options", "mutex", "0", TCL_GLOBAL_ONLY);
! 110: #else
! 111: Tcl_SetVar2(interp, "sqlite_options", "mutex", "1", TCL_GLOBAL_ONLY);
! 112: #endif
! 113:
! 114: #ifdef SQLITE_MUTEX_NOOP
! 115: Tcl_SetVar2(interp, "sqlite_options", "mutex_noop", "1", TCL_GLOBAL_ONLY);
! 116: #else
! 117: Tcl_SetVar2(interp, "sqlite_options", "mutex_noop", "0", TCL_GLOBAL_ONLY);
! 118: #endif
! 119:
! 120: #ifdef SQLITE_OMIT_ALTERTABLE
! 121: Tcl_SetVar2(interp, "sqlite_options", "altertable", "0", TCL_GLOBAL_ONLY);
! 122: #else
! 123: Tcl_SetVar2(interp, "sqlite_options", "altertable", "1", TCL_GLOBAL_ONLY);
! 124: #endif
! 125:
! 126: #ifdef SQLITE_OMIT_ANALYZE
! 127: Tcl_SetVar2(interp, "sqlite_options", "analyze", "0", TCL_GLOBAL_ONLY);
! 128: #else
! 129: Tcl_SetVar2(interp, "sqlite_options", "analyze", "1", TCL_GLOBAL_ONLY);
! 130: #endif
! 131:
! 132: #ifdef SQLITE_ENABLE_ATOMIC_WRITE
! 133: Tcl_SetVar2(interp, "sqlite_options", "atomicwrite", "1", TCL_GLOBAL_ONLY);
! 134: #else
! 135: Tcl_SetVar2(interp, "sqlite_options", "atomicwrite", "0", TCL_GLOBAL_ONLY);
! 136: #endif
! 137:
! 138: #ifdef SQLITE_OMIT_ATTACH
! 139: Tcl_SetVar2(interp, "sqlite_options", "attach", "0", TCL_GLOBAL_ONLY);
! 140: #else
! 141: Tcl_SetVar2(interp, "sqlite_options", "attach", "1", TCL_GLOBAL_ONLY);
! 142: #endif
! 143:
! 144: #ifdef SQLITE_OMIT_AUTHORIZATION
! 145: Tcl_SetVar2(interp, "sqlite_options", "auth", "0", TCL_GLOBAL_ONLY);
! 146: #else
! 147: Tcl_SetVar2(interp, "sqlite_options", "auth", "1", TCL_GLOBAL_ONLY);
! 148: #endif
! 149:
! 150: #ifdef SQLITE_OMIT_AUTOINCREMENT
! 151: Tcl_SetVar2(interp, "sqlite_options", "autoinc", "0", TCL_GLOBAL_ONLY);
! 152: #else
! 153: Tcl_SetVar2(interp, "sqlite_options", "autoinc", "1", TCL_GLOBAL_ONLY);
! 154: #endif
! 155:
! 156: #ifdef SQLITE_OMIT_AUTOMATIC_INDEX
! 157: Tcl_SetVar2(interp, "sqlite_options", "autoindex", "0", TCL_GLOBAL_ONLY);
! 158: #else
! 159: Tcl_SetVar2(interp, "sqlite_options", "autoindex", "1", TCL_GLOBAL_ONLY);
! 160: #endif
! 161:
! 162: #ifdef SQLITE_OMIT_AUTORESET
! 163: Tcl_SetVar2(interp, "sqlite_options", "autoreset", "0", TCL_GLOBAL_ONLY);
! 164: #else
! 165: Tcl_SetVar2(interp, "sqlite_options", "autoreset", "1", TCL_GLOBAL_ONLY);
! 166: #endif
! 167:
! 168: #ifdef SQLITE_OMIT_AUTOVACUUM
! 169: Tcl_SetVar2(interp, "sqlite_options", "autovacuum", "0", TCL_GLOBAL_ONLY);
! 170: #else
! 171: Tcl_SetVar2(interp, "sqlite_options", "autovacuum", "1", TCL_GLOBAL_ONLY);
! 172: #endif /* SQLITE_OMIT_AUTOVACUUM */
! 173: #if !defined(SQLITE_DEFAULT_AUTOVACUUM)
! 174: Tcl_SetVar2(interp,"sqlite_options","default_autovacuum","0",TCL_GLOBAL_ONLY);
! 175: #else
! 176: Tcl_SetVar2(interp, "sqlite_options", "default_autovacuum",
! 177: STRINGVALUE(SQLITE_DEFAULT_AUTOVACUUM), TCL_GLOBAL_ONLY);
! 178: #endif
! 179:
! 180: #ifdef SQLITE_OMIT_BETWEEN_OPTIMIZATION
! 181: Tcl_SetVar2(interp, "sqlite_options", "between_opt", "0", TCL_GLOBAL_ONLY);
! 182: #else
! 183: Tcl_SetVar2(interp, "sqlite_options", "between_opt", "1", TCL_GLOBAL_ONLY);
! 184: #endif
! 185:
! 186: #ifdef SQLITE_OMIT_BUILTIN_TEST
! 187: Tcl_SetVar2(interp, "sqlite_options", "builtin_test", "0", TCL_GLOBAL_ONLY);
! 188: #else
! 189: Tcl_SetVar2(interp, "sqlite_options", "builtin_test", "1", TCL_GLOBAL_ONLY);
! 190: #endif
! 191:
! 192: #ifdef SQLITE_OMIT_BLOB_LITERAL
! 193: Tcl_SetVar2(interp, "sqlite_options", "bloblit", "0", TCL_GLOBAL_ONLY);
! 194: #else
! 195: Tcl_SetVar2(interp, "sqlite_options", "bloblit", "1", TCL_GLOBAL_ONLY);
! 196: #endif
! 197:
! 198: #ifdef SQLITE_OMIT_CAST
! 199: Tcl_SetVar2(interp, "sqlite_options", "cast", "0", TCL_GLOBAL_ONLY);
! 200: #else
! 201: Tcl_SetVar2(interp, "sqlite_options", "cast", "1", TCL_GLOBAL_ONLY);
! 202: #endif
! 203:
! 204: #ifdef SQLITE_OMIT_CHECK
! 205: Tcl_SetVar2(interp, "sqlite_options", "check", "0", TCL_GLOBAL_ONLY);
! 206: #else
! 207: Tcl_SetVar2(interp, "sqlite_options", "check", "1", TCL_GLOBAL_ONLY);
! 208: #endif
! 209:
! 210: #ifdef SQLITE_ENABLE_COLUMN_METADATA
! 211: Tcl_SetVar2(interp, "sqlite_options", "columnmetadata", "1", TCL_GLOBAL_ONLY);
! 212: #else
! 213: Tcl_SetVar2(interp, "sqlite_options", "columnmetadata", "0", TCL_GLOBAL_ONLY);
! 214: #endif
! 215:
! 216: #ifdef SQLITE_ENABLE_OVERSIZE_CELL_CHECK
! 217: Tcl_SetVar2(interp, "sqlite_options", "oversize_cell_check", "1",
! 218: TCL_GLOBAL_ONLY);
! 219: #else
! 220: Tcl_SetVar2(interp, "sqlite_options", "oversize_cell_check", "0",
! 221: TCL_GLOBAL_ONLY);
! 222: #endif
! 223:
! 224: #ifdef SQLITE_OMIT_COMPILEOPTION_DIAGS
! 225: Tcl_SetVar2(interp, "sqlite_options", "compileoption_diags", "0", TCL_GLOBAL_ONLY);
! 226: #else
! 227: Tcl_SetVar2(interp, "sqlite_options", "compileoption_diags", "1", TCL_GLOBAL_ONLY);
! 228: #endif
! 229:
! 230: #ifdef SQLITE_OMIT_COMPLETE
! 231: Tcl_SetVar2(interp, "sqlite_options", "complete", "0", TCL_GLOBAL_ONLY);
! 232: #else
! 233: Tcl_SetVar2(interp, "sqlite_options", "complete", "1", TCL_GLOBAL_ONLY);
! 234: #endif
! 235:
! 236: #ifdef SQLITE_OMIT_COMPOUND_SELECT
! 237: Tcl_SetVar2(interp, "sqlite_options", "compound", "0", TCL_GLOBAL_ONLY);
! 238: #else
! 239: Tcl_SetVar2(interp, "sqlite_options", "compound", "1", TCL_GLOBAL_ONLY);
! 240: #endif
! 241:
! 242: Tcl_SetVar2(interp, "sqlite_options", "conflict", "1", TCL_GLOBAL_ONLY);
! 243:
! 244: #if SQLITE_OS_UNIX
! 245: Tcl_SetVar2(interp, "sqlite_options", "crashtest", "1", TCL_GLOBAL_ONLY);
! 246: #else
! 247: Tcl_SetVar2(interp, "sqlite_options", "crashtest", "0", TCL_GLOBAL_ONLY);
! 248: #endif
! 249:
! 250: #ifdef SQLITE_OMIT_DATETIME_FUNCS
! 251: Tcl_SetVar2(interp, "sqlite_options", "datetime", "0", TCL_GLOBAL_ONLY);
! 252: #else
! 253: Tcl_SetVar2(interp, "sqlite_options", "datetime", "1", TCL_GLOBAL_ONLY);
! 254: #endif
! 255:
! 256: #ifdef SQLITE_OMIT_DECLTYPE
! 257: Tcl_SetVar2(interp, "sqlite_options", "decltype", "0", TCL_GLOBAL_ONLY);
! 258: #else
! 259: Tcl_SetVar2(interp, "sqlite_options", "decltype", "1", TCL_GLOBAL_ONLY);
! 260: #endif
! 261:
! 262: #ifdef SQLITE_OMIT_DEPRECATED
! 263: Tcl_SetVar2(interp, "sqlite_options", "deprecated", "0", TCL_GLOBAL_ONLY);
! 264: #else
! 265: Tcl_SetVar2(interp, "sqlite_options", "deprecated", "1", TCL_GLOBAL_ONLY);
! 266: #endif
! 267:
! 268: #ifdef SQLITE_OMIT_DISKIO
! 269: Tcl_SetVar2(interp, "sqlite_options", "diskio", "0", TCL_GLOBAL_ONLY);
! 270: #else
! 271: Tcl_SetVar2(interp, "sqlite_options", "diskio", "1", TCL_GLOBAL_ONLY);
! 272: #endif
! 273:
! 274: #ifdef SQLITE_OMIT_EXPLAIN
! 275: Tcl_SetVar2(interp, "sqlite_options", "explain", "0", TCL_GLOBAL_ONLY);
! 276: #else
! 277: Tcl_SetVar2(interp, "sqlite_options", "explain", "1", TCL_GLOBAL_ONLY);
! 278: #endif
! 279:
! 280: #ifdef SQLITE_OMIT_FLOATING_POINT
! 281: Tcl_SetVar2(interp, "sqlite_options", "floatingpoint", "0", TCL_GLOBAL_ONLY);
! 282: #else
! 283: Tcl_SetVar2(interp, "sqlite_options", "floatingpoint", "1", TCL_GLOBAL_ONLY);
! 284: #endif
! 285:
! 286: #ifdef SQLITE_OMIT_FOREIGN_KEY
! 287: Tcl_SetVar2(interp, "sqlite_options", "foreignkey", "0", TCL_GLOBAL_ONLY);
! 288: #else
! 289: Tcl_SetVar2(interp, "sqlite_options", "foreignkey", "1", TCL_GLOBAL_ONLY);
! 290: #endif
! 291:
! 292: #ifdef SQLITE_ENABLE_FTS1
! 293: Tcl_SetVar2(interp, "sqlite_options", "fts1", "1", TCL_GLOBAL_ONLY);
! 294: #else
! 295: Tcl_SetVar2(interp, "sqlite_options", "fts1", "0", TCL_GLOBAL_ONLY);
! 296: #endif
! 297:
! 298: #ifdef SQLITE_ENABLE_FTS2
! 299: Tcl_SetVar2(interp, "sqlite_options", "fts2", "1", TCL_GLOBAL_ONLY);
! 300: #else
! 301: Tcl_SetVar2(interp, "sqlite_options", "fts2", "0", TCL_GLOBAL_ONLY);
! 302: #endif
! 303:
! 304: #ifdef SQLITE_ENABLE_FTS3
! 305: Tcl_SetVar2(interp, "sqlite_options", "fts3", "1", TCL_GLOBAL_ONLY);
! 306: #else
! 307: Tcl_SetVar2(interp, "sqlite_options", "fts3", "0", TCL_GLOBAL_ONLY);
! 308: #endif
! 309:
! 310: #ifdef SQLITE_OMIT_GET_TABLE
! 311: Tcl_SetVar2(interp, "sqlite_options", "gettable", "0", TCL_GLOBAL_ONLY);
! 312: #else
! 313: Tcl_SetVar2(interp, "sqlite_options", "gettable", "1", TCL_GLOBAL_ONLY);
! 314: #endif
! 315:
! 316: #ifdef SQLITE_ENABLE_ICU
! 317: Tcl_SetVar2(interp, "sqlite_options", "icu", "1", TCL_GLOBAL_ONLY);
! 318: #else
! 319: Tcl_SetVar2(interp, "sqlite_options", "icu", "0", TCL_GLOBAL_ONLY);
! 320: #endif
! 321:
! 322: #ifdef SQLITE_OMIT_INCRBLOB
! 323: Tcl_SetVar2(interp, "sqlite_options", "incrblob", "0", TCL_GLOBAL_ONLY);
! 324: #else
! 325: Tcl_SetVar2(interp, "sqlite_options", "incrblob", "1", TCL_GLOBAL_ONLY);
! 326: #endif /* SQLITE_OMIT_AUTOVACUUM */
! 327:
! 328: #ifdef SQLITE_OMIT_INTEGRITY_CHECK
! 329: Tcl_SetVar2(interp, "sqlite_options", "integrityck", "0", TCL_GLOBAL_ONLY);
! 330: #else
! 331: Tcl_SetVar2(interp, "sqlite_options", "integrityck", "1", TCL_GLOBAL_ONLY);
! 332: #endif
! 333:
! 334: #if defined(SQLITE_DEFAULT_FILE_FORMAT) && SQLITE_DEFAULT_FILE_FORMAT==1
! 335: Tcl_SetVar2(interp, "sqlite_options", "legacyformat", "1", TCL_GLOBAL_ONLY);
! 336: #else
! 337: Tcl_SetVar2(interp, "sqlite_options", "legacyformat", "0", TCL_GLOBAL_ONLY);
! 338: #endif
! 339:
! 340: #ifdef SQLITE_OMIT_LIKE_OPTIMIZATION
! 341: Tcl_SetVar2(interp, "sqlite_options", "like_opt", "0", TCL_GLOBAL_ONLY);
! 342: #else
! 343: Tcl_SetVar2(interp, "sqlite_options", "like_opt", "1", TCL_GLOBAL_ONLY);
! 344: #endif
! 345:
! 346: #ifdef SQLITE_OMIT_LOAD_EXTENSION
! 347: Tcl_SetVar2(interp, "sqlite_options", "load_ext", "0", TCL_GLOBAL_ONLY);
! 348: #else
! 349: Tcl_SetVar2(interp, "sqlite_options", "load_ext", "1", TCL_GLOBAL_ONLY);
! 350: #endif
! 351:
! 352: #ifdef SQLITE_OMIT_LOCALTIME
! 353: Tcl_SetVar2(interp, "sqlite_options", "localtime", "0", TCL_GLOBAL_ONLY);
! 354: #else
! 355: Tcl_SetVar2(interp, "sqlite_options", "localtime", "1", TCL_GLOBAL_ONLY);
! 356: #endif
! 357:
! 358: #ifdef SQLITE_OMIT_LOOKASIDE
! 359: Tcl_SetVar2(interp, "sqlite_options", "lookaside", "0", TCL_GLOBAL_ONLY);
! 360: #else
! 361: Tcl_SetVar2(interp, "sqlite_options", "lookaside", "1", TCL_GLOBAL_ONLY);
! 362: #endif
! 363:
! 364: Tcl_SetVar2(interp, "sqlite_options", "long_double",
! 365: sizeof(LONGDOUBLE_TYPE)>sizeof(double) ? "1" : "0",
! 366: TCL_GLOBAL_ONLY);
! 367:
! 368: #ifdef SQLITE_OMIT_MEMORYDB
! 369: Tcl_SetVar2(interp, "sqlite_options", "memorydb", "0", TCL_GLOBAL_ONLY);
! 370: #else
! 371: Tcl_SetVar2(interp, "sqlite_options", "memorydb", "1", TCL_GLOBAL_ONLY);
! 372: #endif
! 373:
! 374: #ifdef SQLITE_ENABLE_MEMORY_MANAGEMENT
! 375: Tcl_SetVar2(interp, "sqlite_options", "memorymanage", "1", TCL_GLOBAL_ONLY);
! 376: #else
! 377: Tcl_SetVar2(interp, "sqlite_options", "memorymanage", "0", TCL_GLOBAL_ONLY);
! 378: #endif
! 379:
! 380: #ifdef SQLITE_OMIT_MERGE_SORT
! 381: Tcl_SetVar2(interp, "sqlite_options", "mergesort", "0", TCL_GLOBAL_ONLY);
! 382: #else
! 383: Tcl_SetVar2(interp, "sqlite_options", "mergesort", "1", TCL_GLOBAL_ONLY);
! 384: #endif
! 385:
! 386: #ifdef SQLITE_OMIT_OR_OPTIMIZATION
! 387: Tcl_SetVar2(interp, "sqlite_options", "or_opt", "0", TCL_GLOBAL_ONLY);
! 388: #else
! 389: Tcl_SetVar2(interp, "sqlite_options", "or_opt", "1", TCL_GLOBAL_ONLY);
! 390: #endif
! 391:
! 392: #ifdef SQLITE_OMIT_PAGER_PRAGMAS
! 393: Tcl_SetVar2(interp, "sqlite_options", "pager_pragmas", "0", TCL_GLOBAL_ONLY);
! 394: #else
! 395: Tcl_SetVar2(interp, "sqlite_options", "pager_pragmas", "1", TCL_GLOBAL_ONLY);
! 396: #endif
! 397:
! 398: #if defined(SQLITE_OMIT_PRAGMA) || defined(SQLITE_OMIT_FLAG_PRAGMAS)
! 399: Tcl_SetVar2(interp, "sqlite_options", "pragma", "0", TCL_GLOBAL_ONLY);
! 400: Tcl_SetVar2(interp, "sqlite_options", "integrityck", "0", TCL_GLOBAL_ONLY);
! 401: #else
! 402: Tcl_SetVar2(interp, "sqlite_options", "pragma", "1", TCL_GLOBAL_ONLY);
! 403: #endif
! 404:
! 405: #ifdef SQLITE_OMIT_PROGRESS_CALLBACK
! 406: Tcl_SetVar2(interp, "sqlite_options", "progress", "0", TCL_GLOBAL_ONLY);
! 407: #else
! 408: Tcl_SetVar2(interp, "sqlite_options", "progress", "1", TCL_GLOBAL_ONLY);
! 409: #endif
! 410:
! 411: #ifdef SQLITE_OMIT_REINDEX
! 412: Tcl_SetVar2(interp, "sqlite_options", "reindex", "0", TCL_GLOBAL_ONLY);
! 413: #else
! 414: Tcl_SetVar2(interp, "sqlite_options", "reindex", "1", TCL_GLOBAL_ONLY);
! 415: #endif
! 416:
! 417: #ifdef SQLITE_ENABLE_RTREE
! 418: Tcl_SetVar2(interp, "sqlite_options", "rtree", "1", TCL_GLOBAL_ONLY);
! 419: #else
! 420: Tcl_SetVar2(interp, "sqlite_options", "rtree", "0", TCL_GLOBAL_ONLY);
! 421: #endif
! 422:
! 423: #ifdef SQLITE_OMIT_SCHEMA_PRAGMAS
! 424: Tcl_SetVar2(interp, "sqlite_options", "schema_pragmas", "0", TCL_GLOBAL_ONLY);
! 425: #else
! 426: Tcl_SetVar2(interp, "sqlite_options", "schema_pragmas", "1", TCL_GLOBAL_ONLY);
! 427: #endif
! 428:
! 429: #ifdef SQLITE_OMIT_SCHEMA_VERSION_PRAGMAS
! 430: Tcl_SetVar2(interp, "sqlite_options", "schema_version", "0", TCL_GLOBAL_ONLY);
! 431: #else
! 432: Tcl_SetVar2(interp, "sqlite_options", "schema_version", "1", TCL_GLOBAL_ONLY);
! 433: #endif
! 434:
! 435: #ifdef SQLITE_ENABLE_STAT3
! 436: Tcl_SetVar2(interp, "sqlite_options", "stat3", "1", TCL_GLOBAL_ONLY);
! 437: #else
! 438: Tcl_SetVar2(interp, "sqlite_options", "stat3", "0", TCL_GLOBAL_ONLY);
! 439: #endif
! 440:
! 441: #if !defined(SQLITE_ENABLE_LOCKING_STYLE)
! 442: # if defined(__APPLE__)
! 443: # define SQLITE_ENABLE_LOCKING_STYLE 1
! 444: # else
! 445: # define SQLITE_ENABLE_LOCKING_STYLE 0
! 446: # endif
! 447: #endif
! 448: #if SQLITE_ENABLE_LOCKING_STYLE && defined(__APPLE__)
! 449: Tcl_SetVar2(interp,"sqlite_options","lock_proxy_pragmas","1",TCL_GLOBAL_ONLY);
! 450: #else
! 451: Tcl_SetVar2(interp,"sqlite_options","lock_proxy_pragmas","0",TCL_GLOBAL_ONLY);
! 452: #endif
! 453: #if defined(SQLITE_PREFER_PROXY_LOCKING) && defined(__APPLE__)
! 454: Tcl_SetVar2(interp,"sqlite_options","prefer_proxy_locking","1",TCL_GLOBAL_ONLY);
! 455: #else
! 456: Tcl_SetVar2(interp,"sqlite_options","prefer_proxy_locking","0",TCL_GLOBAL_ONLY);
! 457: #endif
! 458:
! 459:
! 460: #ifdef SQLITE_OMIT_SHARED_CACHE
! 461: Tcl_SetVar2(interp, "sqlite_options", "shared_cache", "0", TCL_GLOBAL_ONLY);
! 462: #else
! 463: Tcl_SetVar2(interp, "sqlite_options", "shared_cache", "1", TCL_GLOBAL_ONLY);
! 464: #endif
! 465:
! 466: #ifdef SQLITE_OMIT_SUBQUERY
! 467: Tcl_SetVar2(interp, "sqlite_options", "subquery", "0", TCL_GLOBAL_ONLY);
! 468: #else
! 469: Tcl_SetVar2(interp, "sqlite_options", "subquery", "1", TCL_GLOBAL_ONLY);
! 470: #endif
! 471:
! 472: #ifdef SQLITE_OMIT_TCL_VARIABLE
! 473: Tcl_SetVar2(interp, "sqlite_options", "tclvar", "0", TCL_GLOBAL_ONLY);
! 474: #else
! 475: Tcl_SetVar2(interp, "sqlite_options", "tclvar", "1", TCL_GLOBAL_ONLY);
! 476: #endif
! 477:
! 478: Tcl_SetVar2(interp, "sqlite_options", "threadsafe",
! 479: STRINGVALUE(SQLITE_THREADSAFE), TCL_GLOBAL_ONLY);
! 480: assert( sqlite3_threadsafe()==SQLITE_THREADSAFE );
! 481:
! 482: #ifdef SQLITE_OMIT_TEMPDB
! 483: Tcl_SetVar2(interp, "sqlite_options", "tempdb", "0", TCL_GLOBAL_ONLY);
! 484: #else
! 485: Tcl_SetVar2(interp, "sqlite_options", "tempdb", "1", TCL_GLOBAL_ONLY);
! 486: #endif
! 487:
! 488: #ifdef SQLITE_OMIT_TRACE
! 489: Tcl_SetVar2(interp, "sqlite_options", "trace", "0", TCL_GLOBAL_ONLY);
! 490: #else
! 491: Tcl_SetVar2(interp, "sqlite_options", "trace", "1", TCL_GLOBAL_ONLY);
! 492: #endif
! 493:
! 494: #ifdef SQLITE_OMIT_TRIGGER
! 495: Tcl_SetVar2(interp, "sqlite_options", "trigger", "0", TCL_GLOBAL_ONLY);
! 496: #else
! 497: Tcl_SetVar2(interp, "sqlite_options", "trigger", "1", TCL_GLOBAL_ONLY);
! 498: #endif
! 499:
! 500: #ifdef SQLITE_OMIT_TRUNCATE_OPTIMIZATION
! 501: Tcl_SetVar2(interp, "sqlite_options", "truncate_opt", "0", TCL_GLOBAL_ONLY);
! 502: #else
! 503: Tcl_SetVar2(interp, "sqlite_options", "truncate_opt", "1", TCL_GLOBAL_ONLY);
! 504: #endif
! 505:
! 506: #ifdef SQLITE_OMIT_UTF16
! 507: Tcl_SetVar2(interp, "sqlite_options", "utf16", "0", TCL_GLOBAL_ONLY);
! 508: #else
! 509: Tcl_SetVar2(interp, "sqlite_options", "utf16", "1", TCL_GLOBAL_ONLY);
! 510: #endif
! 511:
! 512: #if defined(SQLITE_OMIT_VACUUM) || defined(SQLITE_OMIT_ATTACH)
! 513: Tcl_SetVar2(interp, "sqlite_options", "vacuum", "0", TCL_GLOBAL_ONLY);
! 514: #else
! 515: Tcl_SetVar2(interp, "sqlite_options", "vacuum", "1", TCL_GLOBAL_ONLY);
! 516: #endif
! 517:
! 518: #ifdef SQLITE_OMIT_VIEW
! 519: Tcl_SetVar2(interp, "sqlite_options", "view", "0", TCL_GLOBAL_ONLY);
! 520: #else
! 521: Tcl_SetVar2(interp, "sqlite_options", "view", "1", TCL_GLOBAL_ONLY);
! 522: #endif
! 523:
! 524: #ifdef SQLITE_OMIT_VIRTUALTABLE
! 525: Tcl_SetVar2(interp, "sqlite_options", "vtab", "0", TCL_GLOBAL_ONLY);
! 526: #else
! 527: Tcl_SetVar2(interp, "sqlite_options", "vtab", "1", TCL_GLOBAL_ONLY);
! 528: #endif
! 529:
! 530: #ifdef SQLITE_OMIT_WAL
! 531: Tcl_SetVar2(interp, "sqlite_options", "wal", "0", TCL_GLOBAL_ONLY);
! 532: #else
! 533: Tcl_SetVar2(interp, "sqlite_options", "wal", "1", TCL_GLOBAL_ONLY);
! 534: #endif
! 535:
! 536: #ifdef SQLITE_OMIT_WSD
! 537: Tcl_SetVar2(interp, "sqlite_options", "wsd", "0", TCL_GLOBAL_ONLY);
! 538: #else
! 539: Tcl_SetVar2(interp, "sqlite_options", "wsd", "1", TCL_GLOBAL_ONLY);
! 540: #endif
! 541:
! 542: #if defined(SQLITE_ENABLE_UPDATE_DELETE_LIMIT) && !defined(SQLITE_OMIT_SUBQUERY)
! 543: Tcl_SetVar2(interp, "sqlite_options", "update_delete_limit", "1", TCL_GLOBAL_ONLY);
! 544: #else
! 545: Tcl_SetVar2(interp, "sqlite_options", "update_delete_limit", "0", TCL_GLOBAL_ONLY);
! 546: #endif
! 547:
! 548: #if defined(SQLITE_ENABLE_UNLOCK_NOTIFY)
! 549: Tcl_SetVar2(interp, "sqlite_options", "unlock_notify", "1", TCL_GLOBAL_ONLY);
! 550: #else
! 551: Tcl_SetVar2(interp, "sqlite_options", "unlock_notify", "0", TCL_GLOBAL_ONLY);
! 552: #endif
! 553:
! 554: #ifdef SQLITE_SECURE_DELETE
! 555: Tcl_SetVar2(interp, "sqlite_options", "secure_delete", "1", TCL_GLOBAL_ONLY);
! 556: #else
! 557: Tcl_SetVar2(interp, "sqlite_options", "secure_delete", "0", TCL_GLOBAL_ONLY);
! 558: #endif
! 559:
! 560: #ifdef SQLITE_MULTIPLEX_EXT_OVWR
! 561: Tcl_SetVar2(interp, "sqlite_options", "multiplex_ext_overwrite", "1", TCL_GLOBAL_ONLY);
! 562: #else
! 563: Tcl_SetVar2(interp, "sqlite_options", "multiplex_ext_overwrite", "0", TCL_GLOBAL_ONLY);
! 564: #endif
! 565:
! 566: #ifdef YYTRACKMAXSTACKDEPTH
! 567: Tcl_SetVar2(interp, "sqlite_options", "yytrackmaxstackdepth", "1", TCL_GLOBAL_ONLY);
! 568: #else
! 569: Tcl_SetVar2(interp, "sqlite_options", "yytrackmaxstackdepth", "0", TCL_GLOBAL_ONLY);
! 570: #endif
! 571:
! 572: #define LINKVAR(x) { \
! 573: static const int cv_ ## x = SQLITE_ ## x; \
! 574: Tcl_LinkVar(interp, "SQLITE_" #x, (char *)&(cv_ ## x), \
! 575: TCL_LINK_INT | TCL_LINK_READ_ONLY); }
! 576:
! 577: LINKVAR( MAX_LENGTH );
! 578: LINKVAR( MAX_COLUMN );
! 579: LINKVAR( MAX_SQL_LENGTH );
! 580: LINKVAR( MAX_EXPR_DEPTH );
! 581: LINKVAR( MAX_COMPOUND_SELECT );
! 582: LINKVAR( MAX_VDBE_OP );
! 583: LINKVAR( MAX_FUNCTION_ARG );
! 584: LINKVAR( MAX_VARIABLE_NUMBER );
! 585: LINKVAR( MAX_PAGE_SIZE );
! 586: LINKVAR( MAX_PAGE_COUNT );
! 587: LINKVAR( MAX_LIKE_PATTERN_LENGTH );
! 588: LINKVAR( MAX_TRIGGER_DEPTH );
! 589: LINKVAR( DEFAULT_TEMP_CACHE_SIZE );
! 590: LINKVAR( DEFAULT_CACHE_SIZE );
! 591: LINKVAR( DEFAULT_PAGE_SIZE );
! 592: LINKVAR( DEFAULT_FILE_FORMAT );
! 593: LINKVAR( MAX_ATTACHED );
! 594: LINKVAR( MAX_DEFAULT_PAGE_SIZE );
! 595:
! 596: {
! 597: static const int cv_TEMP_STORE = SQLITE_TEMP_STORE;
! 598: Tcl_LinkVar(interp, "TEMP_STORE", (char *)&(cv_TEMP_STORE),
! 599: TCL_LINK_INT | TCL_LINK_READ_ONLY);
! 600: }
! 601: }
! 602:
! 603:
! 604: /*
! 605: ** Register commands with the TCL interpreter.
! 606: */
! 607: int Sqliteconfig_Init(Tcl_Interp *interp){
! 608: set_options(interp);
! 609: return TCL_OK;
! 610: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to test_config.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / src