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 #if SQLITE_OS_WIN 24 # include "os_win.h" 25 #endif 26 27 #if defined(INCLUDE_SQLITE_TCL_H) 28 # include "sqlite_tcl.h" 29 #else 30 # include "tcl.h" 31 #endif 32 #include <stdlib.h> 33 #include <string.h> 34 35 /* 36 ** Macro to stringify the results of the evaluation a pre-processor 37 ** macro. i.e. so that STRINGVALUE(SQLITE_NOMEM) -> "7". 38 */ 39 #define STRINGVALUE2(x) #x 40 #define STRINGVALUE(x) STRINGVALUE2(x) 41 42 /* 43 ** This routine sets entries in the global ::sqlite_options() array variable 44 ** according to the compile-time configuration of the database. Test 45 ** procedures use this to determine when tests should be omitted. 46 */ 47 static void set_options(Tcl_Interp *interp){ 48 #if HAVE_MALLOC_USABLE_SIZE 49 Tcl_SetVar2(interp, "sqlite_options", "malloc_usable_size", "1", 50 TCL_GLOBAL_ONLY); 51 #else 52 Tcl_SetVar2(interp, "sqlite_options", "malloc_usable_size", "0", 53 TCL_GLOBAL_ONLY); 54 #endif 55 56 #ifdef SQLITE_32BIT_ROWID 57 Tcl_SetVar2(interp, "sqlite_options", "rowid32", "1", TCL_GLOBAL_ONLY); 58 #else 59 Tcl_SetVar2(interp, "sqlite_options", "rowid32", "0", TCL_GLOBAL_ONLY); 60 #endif 61 62 #ifdef SQLITE_CASE_SENSITIVE_LIKE 63 Tcl_SetVar2(interp, "sqlite_options","casesensitivelike","1",TCL_GLOBAL_ONLY); 64 #else 65 Tcl_SetVar2(interp, "sqlite_options","casesensitivelike","0",TCL_GLOBAL_ONLY); 66 #endif 67 68 #if !SQLITE_OS_WINCE && !SQLITE_OS_WINRT 69 Tcl_SetVar2(interp, "sqlite_options", "curdir", "1", TCL_GLOBAL_ONLY); 70 #else 71 Tcl_SetVar2(interp, "sqlite_options", "curdir", "0", TCL_GLOBAL_ONLY); 72 #endif 73 74 #ifdef SQLITE_WIN32_MALLOC 75 Tcl_SetVar2(interp, "sqlite_options", "win32malloc", "1", TCL_GLOBAL_ONLY); 76 #else 77 Tcl_SetVar2(interp, "sqlite_options", "win32malloc", "0", TCL_GLOBAL_ONLY); 78 #endif 79 80 #ifdef SQLITE_DEBUG 81 Tcl_SetVar2(interp, "sqlite_options", "debug", "1", TCL_GLOBAL_ONLY); 82 #else 83 Tcl_SetVar2(interp, "sqlite_options", "debug", "0", TCL_GLOBAL_ONLY); 84 #endif 85 86 #ifdef SQLITE_DEFAULT_CKPTFULLFSYNC 87 Tcl_SetVar2(interp, "sqlite_options", "default_ckptfullfsync", 88 SQLITE_DEFAULT_CKPTFULLFSYNC ? "1" : "0", TCL_GLOBAL_ONLY); 89 #else 90 Tcl_SetVar2(interp, "sqlite_options", "default_ckptfullfsync", "0", TCL_GLOBAL_ONLY); 91 #endif 92 93 #ifdef SQLITE_DIRECT_OVERFLOW_READ 94 Tcl_SetVar2(interp, "sqlite_options", "direct_read", "1", TCL_GLOBAL_ONLY); 95 #else 96 Tcl_SetVar2(interp, "sqlite_options", "direct_read", "0", TCL_GLOBAL_ONLY); 97 #endif 98 99 #ifdef SQLITE_DISABLE_DIRSYNC 100 Tcl_SetVar2(interp, "sqlite_options", "dirsync", "0", TCL_GLOBAL_ONLY); 101 #else 102 Tcl_SetVar2(interp, "sqlite_options", "dirsync", "1", TCL_GLOBAL_ONLY); 103 #endif 104 105 #ifdef SQLITE_DISABLE_LFS 106 Tcl_SetVar2(interp, "sqlite_options", "lfs", "0", TCL_GLOBAL_ONLY); 107 #else 108 Tcl_SetVar2(interp, "sqlite_options", "lfs", "1", TCL_GLOBAL_ONLY); 109 #endif 110 111 #ifdef SQLITE_DISABLE_PAGECACHE_OVERFLOW_STATS 112 Tcl_SetVar2(interp, "sqlite_options", "pagecache_overflow_stats","0",TCL_GLOBAL_ONLY); 113 #else 114 Tcl_SetVar2(interp, "sqlite_options", "pagecache_overflow_stats","1",TCL_GLOBAL_ONLY); 115 #endif 116 117 #if SQLITE_MAX_MMAP_SIZE>0 118 Tcl_SetVar2(interp, "sqlite_options", "mmap", "1", TCL_GLOBAL_ONLY); 119 #else 120 Tcl_SetVar2(interp, "sqlite_options", "mmap", "0", TCL_GLOBAL_ONLY); 121 #endif 122 123 Tcl_SetVar2(interp, "sqlite_options", "worker_threads", 124 STRINGVALUE(SQLITE_MAX_WORKER_THREADS), TCL_GLOBAL_ONLY 125 ); 126 127 #if 1 /* def SQLITE_MEMDEBUG */ 128 Tcl_SetVar2(interp, "sqlite_options", "memdebug", "1", TCL_GLOBAL_ONLY); 129 #else 130 Tcl_SetVar2(interp, "sqlite_options", "memdebug", "0", TCL_GLOBAL_ONLY); 131 #endif 132 133 #ifdef SQLITE_ENABLE_8_3_NAMES 134 Tcl_SetVar2(interp, "sqlite_options", "8_3_names", "1", TCL_GLOBAL_ONLY); 135 #else 136 Tcl_SetVar2(interp, "sqlite_options", "8_3_names", "0", TCL_GLOBAL_ONLY); 137 #endif 138 139 #ifdef SQLITE_ENABLE_CURSOR_HINTS 140 Tcl_SetVar2(interp, "sqlite_options", "cursorhints", "1", TCL_GLOBAL_ONLY); 141 #else 142 Tcl_SetVar2(interp, "sqlite_options", "cursorhints", "0", TCL_GLOBAL_ONLY); 143 #endif 144 145 #ifdef SQLITE_ENABLE_HIDDEN_COLUMNS 146 Tcl_SetVar2(interp, "sqlite_options", "hiddencolumns", "1", TCL_GLOBAL_ONLY); 147 #else 148 Tcl_SetVar2(interp, "sqlite_options", "hiddencolumns", "0", TCL_GLOBAL_ONLY); 149 #endif 150 151 #ifdef SQLITE_ENABLE_DESERIALIZE 152 Tcl_SetVar2(interp, "sqlite_options", "deserialize", "1", TCL_GLOBAL_ONLY); 153 #else 154 Tcl_SetVar2(interp, "sqlite_options", "deserialize", "0", TCL_GLOBAL_ONLY); 155 #endif 156 157 #ifdef SQLITE_ENABLE_MEMSYS3 158 Tcl_SetVar2(interp, "sqlite_options", "mem3", "1", TCL_GLOBAL_ONLY); 159 #else 160 Tcl_SetVar2(interp, "sqlite_options", "mem3", "0", TCL_GLOBAL_ONLY); 161 #endif 162 163 #ifdef SQLITE_ENABLE_MEMSYS5 164 Tcl_SetVar2(interp, "sqlite_options", "mem5", "1", TCL_GLOBAL_ONLY); 165 #else 166 Tcl_SetVar2(interp, "sqlite_options", "mem5", "0", TCL_GLOBAL_ONLY); 167 #endif 168 169 #ifdef SQLITE_ENABLE_OFFSET_SQL_FUNC 170 Tcl_SetVar2(interp, "sqlite_options", "offset_sql_func","1",TCL_GLOBAL_ONLY); 171 #else 172 Tcl_SetVar2(interp, "sqlite_options", "offset_sql_func","0",TCL_GLOBAL_ONLY); 173 #endif 174 175 #ifdef SQLITE_ENABLE_PREUPDATE_HOOK 176 Tcl_SetVar2(interp, "sqlite_options", "preupdate", "1", TCL_GLOBAL_ONLY); 177 #else 178 Tcl_SetVar2(interp, "sqlite_options", "preupdate", "0", TCL_GLOBAL_ONLY); 179 #endif 180 181 #ifdef SQLITE_ENABLE_SNAPSHOT 182 Tcl_SetVar2(interp, "sqlite_options", "snapshot", "1", TCL_GLOBAL_ONLY); 183 #else 184 Tcl_SetVar2(interp, "sqlite_options", "snapshot", "0", TCL_GLOBAL_ONLY); 185 #endif 186 187 #ifdef SQLITE_MUTEX_OMIT 188 Tcl_SetVar2(interp, "sqlite_options", "mutex", "0", TCL_GLOBAL_ONLY); 189 #else 190 Tcl_SetVar2(interp, "sqlite_options", "mutex", "1", TCL_GLOBAL_ONLY); 191 #endif 192 193 #ifdef SQLITE_MUTEX_NOOP 194 Tcl_SetVar2(interp, "sqlite_options", "mutex_noop", "1", TCL_GLOBAL_ONLY); 195 #else 196 Tcl_SetVar2(interp, "sqlite_options", "mutex_noop", "0", TCL_GLOBAL_ONLY); 197 #endif 198 199 #ifdef SQLITE_OMIT_ALTERTABLE 200 Tcl_SetVar2(interp, "sqlite_options", "altertable", "0", TCL_GLOBAL_ONLY); 201 #else 202 Tcl_SetVar2(interp, "sqlite_options", "altertable", "1", TCL_GLOBAL_ONLY); 203 #endif 204 205 #ifdef SQLITE_OMIT_ANALYZE 206 Tcl_SetVar2(interp, "sqlite_options", "analyze", "0", TCL_GLOBAL_ONLY); 207 #else 208 Tcl_SetVar2(interp, "sqlite_options", "analyze", "1", TCL_GLOBAL_ONLY); 209 #endif 210 211 #ifdef SQLITE_ENABLE_API_ARMOR 212 Tcl_SetVar2(interp, "sqlite_options", "api_armor", "1", TCL_GLOBAL_ONLY); 213 #else 214 Tcl_SetVar2(interp, "sqlite_options", "api_armor", "0", TCL_GLOBAL_ONLY); 215 #endif 216 217 #ifdef SQLITE_ENABLE_ATOMIC_WRITE 218 Tcl_SetVar2(interp, "sqlite_options", "atomicwrite", "1", TCL_GLOBAL_ONLY); 219 #else 220 Tcl_SetVar2(interp, "sqlite_options", "atomicwrite", "0", TCL_GLOBAL_ONLY); 221 #endif 222 223 #ifdef SQLITE_ENABLE_JSON1 224 Tcl_SetVar2(interp, "sqlite_options", "json1", "1", TCL_GLOBAL_ONLY); 225 #else 226 Tcl_SetVar2(interp, "sqlite_options", "json1", "0", TCL_GLOBAL_ONLY); 227 #endif 228 229 #ifdef SQLITE_HAS_CODEC 230 Tcl_SetVar2(interp, "sqlite_options", "has_codec", "1", TCL_GLOBAL_ONLY); 231 #else 232 Tcl_SetVar2(interp, "sqlite_options", "has_codec", "0", TCL_GLOBAL_ONLY); 233 #endif 234 235 #ifdef SQLITE_LIKE_DOESNT_MATCH_BLOBS 236 Tcl_SetVar2(interp, "sqlite_options", "like_match_blobs", "0", TCL_GLOBAL_ONLY); 237 #else 238 Tcl_SetVar2(interp, "sqlite_options", "like_match_blobs", "1", TCL_GLOBAL_ONLY); 239 #endif 240 241 #ifdef SQLITE_OMIT_ATTACH 242 Tcl_SetVar2(interp, "sqlite_options", "attach", "0", TCL_GLOBAL_ONLY); 243 #else 244 Tcl_SetVar2(interp, "sqlite_options", "attach", "1", TCL_GLOBAL_ONLY); 245 #endif 246 247 #ifdef SQLITE_OMIT_AUTHORIZATION 248 Tcl_SetVar2(interp, "sqlite_options", "auth", "0", TCL_GLOBAL_ONLY); 249 #else 250 Tcl_SetVar2(interp, "sqlite_options", "auth", "1", TCL_GLOBAL_ONLY); 251 #endif 252 253 #ifdef SQLITE_OMIT_AUTOINCREMENT 254 Tcl_SetVar2(interp, "sqlite_options", "autoinc", "0", TCL_GLOBAL_ONLY); 255 #else 256 Tcl_SetVar2(interp, "sqlite_options", "autoinc", "1", TCL_GLOBAL_ONLY); 257 #endif 258 259 #ifdef SQLITE_OMIT_AUTOMATIC_INDEX 260 Tcl_SetVar2(interp, "sqlite_options", "autoindex", "0", TCL_GLOBAL_ONLY); 261 #else 262 Tcl_SetVar2(interp, "sqlite_options", "autoindex", "1", TCL_GLOBAL_ONLY); 263 #endif 264 265 #ifdef SQLITE_OMIT_AUTORESET 266 Tcl_SetVar2(interp, "sqlite_options", "autoreset", "0", TCL_GLOBAL_ONLY); 267 #else 268 Tcl_SetVar2(interp, "sqlite_options", "autoreset", "1", TCL_GLOBAL_ONLY); 269 #endif 270 271 #ifdef SQLITE_OMIT_AUTOVACUUM 272 Tcl_SetVar2(interp, "sqlite_options", "autovacuum", "0", TCL_GLOBAL_ONLY); 273 #else 274 Tcl_SetVar2(interp, "sqlite_options", "autovacuum", "1", TCL_GLOBAL_ONLY); 275 #endif /* SQLITE_OMIT_AUTOVACUUM */ 276 #if !defined(SQLITE_DEFAULT_AUTOVACUUM) 277 Tcl_SetVar2(interp,"sqlite_options","default_autovacuum","0",TCL_GLOBAL_ONLY); 278 #else 279 Tcl_SetVar2(interp, "sqlite_options", "default_autovacuum", 280 STRINGVALUE(SQLITE_DEFAULT_AUTOVACUUM), TCL_GLOBAL_ONLY); 281 #endif 282 283 #ifdef SQLITE_OMIT_BETWEEN_OPTIMIZATION 284 Tcl_SetVar2(interp, "sqlite_options", "between_opt", "0", TCL_GLOBAL_ONLY); 285 #else 286 Tcl_SetVar2(interp, "sqlite_options", "between_opt", "1", TCL_GLOBAL_ONLY); 287 #endif 288 289 #ifdef SQLITE_UNTESTABLE 290 Tcl_SetVar2(interp, "sqlite_options", "builtin_test", "0", TCL_GLOBAL_ONLY); 291 #else 292 Tcl_SetVar2(interp, "sqlite_options", "builtin_test", "1", TCL_GLOBAL_ONLY); 293 #endif 294 295 #ifdef SQLITE_OMIT_BLOB_LITERAL 296 Tcl_SetVar2(interp, "sqlite_options", "bloblit", "0", TCL_GLOBAL_ONLY); 297 #else 298 Tcl_SetVar2(interp, "sqlite_options", "bloblit", "1", TCL_GLOBAL_ONLY); 299 #endif 300 301 #ifdef SQLITE_OMIT_CAST 302 Tcl_SetVar2(interp, "sqlite_options", "cast", "0", TCL_GLOBAL_ONLY); 303 #else 304 Tcl_SetVar2(interp, "sqlite_options", "cast", "1", TCL_GLOBAL_ONLY); 305 #endif 306 307 #ifdef SQLITE_OMIT_CHECK 308 Tcl_SetVar2(interp, "sqlite_options", "check", "0", TCL_GLOBAL_ONLY); 309 #else 310 Tcl_SetVar2(interp, "sqlite_options", "check", "1", TCL_GLOBAL_ONLY); 311 #endif 312 313 #ifdef SQLITE_OMIT_CTE 314 Tcl_SetVar2(interp, "sqlite_options", "cte", "0", TCL_GLOBAL_ONLY); 315 #else 316 Tcl_SetVar2(interp, "sqlite_options", "cte", "1", TCL_GLOBAL_ONLY); 317 #endif 318 319 #ifdef SQLITE_ENABLE_COLUMN_METADATA 320 Tcl_SetVar2(interp, "sqlite_options", "columnmetadata", "1", TCL_GLOBAL_ONLY); 321 #else 322 Tcl_SetVar2(interp, "sqlite_options", "columnmetadata", "0", TCL_GLOBAL_ONLY); 323 #endif 324 325 #ifdef SQLITE_ENABLE_OVERSIZE_CELL_CHECK 326 Tcl_SetVar2(interp, "sqlite_options", "oversize_cell_check", "1", 327 TCL_GLOBAL_ONLY); 328 #else 329 Tcl_SetVar2(interp, "sqlite_options", "oversize_cell_check", "0", 330 TCL_GLOBAL_ONLY); 331 #endif 332 333 #ifdef SQLITE_OMIT_COMPILEOPTION_DIAGS 334 Tcl_SetVar2(interp, "sqlite_options", "compileoption_diags", "0", TCL_GLOBAL_ONLY); 335 #else 336 Tcl_SetVar2(interp, "sqlite_options", "compileoption_diags", "1", TCL_GLOBAL_ONLY); 337 #endif 338 339 #ifdef SQLITE_OMIT_COMPLETE 340 Tcl_SetVar2(interp, "sqlite_options", "complete", "0", TCL_GLOBAL_ONLY); 341 #else 342 Tcl_SetVar2(interp, "sqlite_options", "complete", "1", TCL_GLOBAL_ONLY); 343 #endif 344 345 #ifdef SQLITE_OMIT_COMPOUND_SELECT 346 Tcl_SetVar2(interp, "sqlite_options", "compound", "0", TCL_GLOBAL_ONLY); 347 #else 348 Tcl_SetVar2(interp, "sqlite_options", "compound", "1", TCL_GLOBAL_ONLY); 349 #endif 350 351 Tcl_SetVar2(interp, "sqlite_options", "conflict", "1", TCL_GLOBAL_ONLY); 352 Tcl_SetVar2(interp, "sqlite_options", "crashtest", "1", TCL_GLOBAL_ONLY); 353 354 #ifdef SQLITE_OMIT_DATETIME_FUNCS 355 Tcl_SetVar2(interp, "sqlite_options", "datetime", "0", TCL_GLOBAL_ONLY); 356 #else 357 Tcl_SetVar2(interp, "sqlite_options", "datetime", "1", TCL_GLOBAL_ONLY); 358 #endif 359 360 #ifdef SQLITE_OMIT_DECLTYPE 361 Tcl_SetVar2(interp, "sqlite_options", "decltype", "0", TCL_GLOBAL_ONLY); 362 #else 363 Tcl_SetVar2(interp, "sqlite_options", "decltype", "1", TCL_GLOBAL_ONLY); 364 #endif 365 366 #ifdef SQLITE_OMIT_DEPRECATED 367 Tcl_SetVar2(interp, "sqlite_options", "deprecated", "0", TCL_GLOBAL_ONLY); 368 #else 369 Tcl_SetVar2(interp, "sqlite_options", "deprecated", "1", TCL_GLOBAL_ONLY); 370 #endif 371 372 #ifdef SQLITE_OMIT_DISKIO 373 Tcl_SetVar2(interp, "sqlite_options", "diskio", "0", TCL_GLOBAL_ONLY); 374 #else 375 Tcl_SetVar2(interp, "sqlite_options", "diskio", "1", TCL_GLOBAL_ONLY); 376 #endif 377 378 #ifdef SQLITE_OMIT_EXPLAIN 379 Tcl_SetVar2(interp, "sqlite_options", "explain", "0", TCL_GLOBAL_ONLY); 380 #else 381 Tcl_SetVar2(interp, "sqlite_options", "explain", "1", TCL_GLOBAL_ONLY); 382 #endif 383 384 #ifdef SQLITE_OMIT_FLOATING_POINT 385 Tcl_SetVar2(interp, "sqlite_options", "floatingpoint", "0", TCL_GLOBAL_ONLY); 386 #else 387 Tcl_SetVar2(interp, "sqlite_options", "floatingpoint", "1", TCL_GLOBAL_ONLY); 388 #endif 389 390 #ifdef SQLITE_OMIT_FOREIGN_KEY 391 Tcl_SetVar2(interp, "sqlite_options", "foreignkey", "0", TCL_GLOBAL_ONLY); 392 #else 393 Tcl_SetVar2(interp, "sqlite_options", "foreignkey", "1", TCL_GLOBAL_ONLY); 394 #endif 395 396 #ifdef SQLITE_ENABLE_FTS1 397 Tcl_SetVar2(interp, "sqlite_options", "fts1", "1", TCL_GLOBAL_ONLY); 398 #else 399 Tcl_SetVar2(interp, "sqlite_options", "fts1", "0", TCL_GLOBAL_ONLY); 400 #endif 401 402 #ifdef SQLITE_ENABLE_FTS2 403 Tcl_SetVar2(interp, "sqlite_options", "fts2", "1", TCL_GLOBAL_ONLY); 404 #else 405 Tcl_SetVar2(interp, "sqlite_options", "fts2", "0", TCL_GLOBAL_ONLY); 406 #endif 407 408 #ifdef SQLITE_ENABLE_FTS3 409 Tcl_SetVar2(interp, "sqlite_options", "fts3", "1", TCL_GLOBAL_ONLY); 410 #else 411 Tcl_SetVar2(interp, "sqlite_options", "fts3", "0", TCL_GLOBAL_ONLY); 412 #endif 413 414 #ifdef SQLITE_ENABLE_FTS5 415 Tcl_SetVar2(interp, "sqlite_options", "fts5", "1", TCL_GLOBAL_ONLY); 416 #else 417 Tcl_SetVar2(interp, "sqlite_options", "fts5", "0", TCL_GLOBAL_ONLY); 418 #endif 419 420 #if defined(SQLITE_ENABLE_FTS3) && !defined(SQLITE_DISABLE_FTS3_UNICODE) 421 Tcl_SetVar2(interp, "sqlite_options", "fts3_unicode", "1", TCL_GLOBAL_ONLY); 422 #else 423 Tcl_SetVar2(interp, "sqlite_options", "fts3_unicode", "0", TCL_GLOBAL_ONLY); 424 #endif 425 426 #ifdef SQLITE_DISABLE_FTS4_DEFERRED 427 Tcl_SetVar2(interp, "sqlite_options", "fts4_deferred", "0", TCL_GLOBAL_ONLY); 428 #else 429 Tcl_SetVar2(interp, "sqlite_options", "fts4_deferred", "1", TCL_GLOBAL_ONLY); 430 #endif 431 432 #ifdef SQLITE_OMIT_GET_TABLE 433 Tcl_SetVar2(interp, "sqlite_options", "gettable", "0", TCL_GLOBAL_ONLY); 434 #else 435 Tcl_SetVar2(interp, "sqlite_options", "gettable", "1", TCL_GLOBAL_ONLY); 436 #endif 437 438 #ifdef SQLITE_ENABLE_ICU 439 Tcl_SetVar2(interp, "sqlite_options", "icu", "1", TCL_GLOBAL_ONLY); 440 #else 441 Tcl_SetVar2(interp, "sqlite_options", "icu", "0", TCL_GLOBAL_ONLY); 442 #endif 443 444 #ifdef SQLITE_ENABLE_ICU_COLLATIONS 445 Tcl_SetVar2(interp, "sqlite_options", "icu_collations", "1", TCL_GLOBAL_ONLY); 446 #else 447 Tcl_SetVar2(interp, "sqlite_options", "icu_collations", "0", TCL_GLOBAL_ONLY); 448 #endif 449 450 #ifdef SQLITE_OMIT_INCRBLOB 451 Tcl_SetVar2(interp, "sqlite_options", "incrblob", "0", TCL_GLOBAL_ONLY); 452 #else 453 Tcl_SetVar2(interp, "sqlite_options", "incrblob", "1", TCL_GLOBAL_ONLY); 454 #endif /* SQLITE_OMIT_AUTOVACUUM */ 455 456 #ifdef SQLITE_OMIT_INTEGRITY_CHECK 457 Tcl_SetVar2(interp, "sqlite_options", "integrityck", "0", TCL_GLOBAL_ONLY); 458 #else 459 Tcl_SetVar2(interp, "sqlite_options", "integrityck", "1", TCL_GLOBAL_ONLY); 460 #endif 461 462 #if defined(SQLITE_DEFAULT_FILE_FORMAT) && SQLITE_DEFAULT_FILE_FORMAT==1 463 Tcl_SetVar2(interp, "sqlite_options", "legacyformat", "1", TCL_GLOBAL_ONLY); 464 #else 465 Tcl_SetVar2(interp, "sqlite_options", "legacyformat", "0", TCL_GLOBAL_ONLY); 466 #endif 467 468 #ifdef SQLITE_OMIT_LIKE_OPTIMIZATION 469 Tcl_SetVar2(interp, "sqlite_options", "like_opt", "0", TCL_GLOBAL_ONLY); 470 #else 471 Tcl_SetVar2(interp, "sqlite_options", "like_opt", "1", TCL_GLOBAL_ONLY); 472 #endif 473 474 #ifdef SQLITE_OMIT_LOAD_EXTENSION 475 Tcl_SetVar2(interp, "sqlite_options", "load_ext", "0", TCL_GLOBAL_ONLY); 476 #else 477 Tcl_SetVar2(interp, "sqlite_options", "load_ext", "1", TCL_GLOBAL_ONLY); 478 #endif 479 480 #ifdef SQLITE_OMIT_LOCALTIME 481 Tcl_SetVar2(interp, "sqlite_options", "localtime", "0", TCL_GLOBAL_ONLY); 482 #else 483 Tcl_SetVar2(interp, "sqlite_options", "localtime", "1", TCL_GLOBAL_ONLY); 484 #endif 485 486 #ifdef SQLITE_OMIT_LOOKASIDE 487 Tcl_SetVar2(interp, "sqlite_options", "lookaside", "0", TCL_GLOBAL_ONLY); 488 #else 489 Tcl_SetVar2(interp, "sqlite_options", "lookaside", "1", TCL_GLOBAL_ONLY); 490 #endif 491 492 Tcl_SetVar2(interp, "sqlite_options", "long_double", 493 sizeof(LONGDOUBLE_TYPE)>sizeof(double) ? "1" : "0", 494 TCL_GLOBAL_ONLY); 495 496 #ifdef SQLITE_OMIT_MEMORYDB 497 Tcl_SetVar2(interp, "sqlite_options", "memorydb", "0", TCL_GLOBAL_ONLY); 498 #else 499 Tcl_SetVar2(interp, "sqlite_options", "memorydb", "1", TCL_GLOBAL_ONLY); 500 #endif 501 502 #ifdef SQLITE_ENABLE_MEMORY_MANAGEMENT 503 Tcl_SetVar2(interp, "sqlite_options", "memorymanage", "1", TCL_GLOBAL_ONLY); 504 #else 505 Tcl_SetVar2(interp, "sqlite_options", "memorymanage", "0", TCL_GLOBAL_ONLY); 506 #endif 507 508 Tcl_SetVar2(interp, "sqlite_options", "mergesort", "1", TCL_GLOBAL_ONLY); 509 510 #ifdef SQLITE_ENABLE_NULL_TRIM 511 Tcl_SetVar2(interp, "sqlite_options", "null_trim", "1", TCL_GLOBAL_ONLY); 512 #else 513 Tcl_SetVar2(interp, "sqlite_options", "null_trim", "0", TCL_GLOBAL_ONLY); 514 #endif 515 516 #ifdef SQLITE_OMIT_OR_OPTIMIZATION 517 Tcl_SetVar2(interp, "sqlite_options", "or_opt", "0", TCL_GLOBAL_ONLY); 518 #else 519 Tcl_SetVar2(interp, "sqlite_options", "or_opt", "1", TCL_GLOBAL_ONLY); 520 #endif 521 522 #ifdef SQLITE_ENABLE_RBU 523 Tcl_SetVar2(interp, "sqlite_options", "rbu", "1", TCL_GLOBAL_ONLY); 524 #else 525 Tcl_SetVar2(interp, "sqlite_options", "rbu", "0", TCL_GLOBAL_ONLY); 526 #endif 527 528 #ifdef SQLITE_OMIT_PAGER_PRAGMAS 529 Tcl_SetVar2(interp, "sqlite_options", "pager_pragmas", "0", TCL_GLOBAL_ONLY); 530 #else 531 Tcl_SetVar2(interp, "sqlite_options", "pager_pragmas", "1", TCL_GLOBAL_ONLY); 532 #endif 533 534 #if defined(SQLITE_OMIT_PRAGMA) || defined(SQLITE_OMIT_FLAG_PRAGMAS) 535 Tcl_SetVar2(interp, "sqlite_options", "pragma", "0", TCL_GLOBAL_ONLY); 536 Tcl_SetVar2(interp, "sqlite_options", "integrityck", "0", TCL_GLOBAL_ONLY); 537 #else 538 Tcl_SetVar2(interp, "sqlite_options", "pragma", "1", TCL_GLOBAL_ONLY); 539 #endif 540 541 #ifdef SQLITE_OMIT_PROGRESS_CALLBACK 542 Tcl_SetVar2(interp, "sqlite_options", "progress", "0", TCL_GLOBAL_ONLY); 543 #else 544 Tcl_SetVar2(interp, "sqlite_options", "progress", "1", TCL_GLOBAL_ONLY); 545 #endif 546 547 #ifdef SQLITE_OMIT_REINDEX 548 Tcl_SetVar2(interp, "sqlite_options", "reindex", "0", TCL_GLOBAL_ONLY); 549 #else 550 Tcl_SetVar2(interp, "sqlite_options", "reindex", "1", TCL_GLOBAL_ONLY); 551 #endif 552 553 #ifdef SQLITE_ENABLE_RTREE 554 Tcl_SetVar2(interp, "sqlite_options", "rtree", "1", TCL_GLOBAL_ONLY); 555 #else 556 Tcl_SetVar2(interp, "sqlite_options", "rtree", "0", TCL_GLOBAL_ONLY); 557 #endif 558 559 #ifdef SQLITE_RTREE_INT_ONLY 560 Tcl_SetVar2(interp, "sqlite_options", "rtree_int_only", "1", TCL_GLOBAL_ONLY); 561 #else 562 Tcl_SetVar2(interp, "sqlite_options", "rtree_int_only", "0", TCL_GLOBAL_ONLY); 563 #endif 564 565 #ifdef SQLITE_OMIT_SCHEMA_PRAGMAS 566 Tcl_SetVar2(interp, "sqlite_options", "schema_pragmas", "0", TCL_GLOBAL_ONLY); 567 #else 568 Tcl_SetVar2(interp, "sqlite_options", "schema_pragmas", "1", TCL_GLOBAL_ONLY); 569 #endif 570 571 #ifdef SQLITE_OMIT_SCHEMA_VERSION_PRAGMAS 572 Tcl_SetVar2(interp, "sqlite_options", "schema_version", "0", TCL_GLOBAL_ONLY); 573 #else 574 Tcl_SetVar2(interp, "sqlite_options", "schema_version", "1", TCL_GLOBAL_ONLY); 575 #endif 576 577 #ifdef SQLITE_ENABLE_SESSION 578 Tcl_SetVar2(interp, "sqlite_options", "session", "1", TCL_GLOBAL_ONLY); 579 #else 580 Tcl_SetVar2(interp, "sqlite_options", "session", "0", TCL_GLOBAL_ONLY); 581 #endif 582 583 #ifdef SQLITE_ENABLE_STAT4 584 Tcl_SetVar2(interp, "sqlite_options", "stat4", "1", TCL_GLOBAL_ONLY); 585 #else 586 Tcl_SetVar2(interp, "sqlite_options", "stat4", "0", TCL_GLOBAL_ONLY); 587 #endif 588 #if defined(SQLITE_ENABLE_STAT3) && !defined(SQLITE_ENABLE_STAT4) 589 Tcl_SetVar2(interp, "sqlite_options", "stat3", "1", TCL_GLOBAL_ONLY); 590 #else 591 Tcl_SetVar2(interp, "sqlite_options", "stat3", "0", TCL_GLOBAL_ONLY); 592 #endif 593 594 #if defined(SQLITE_ENABLE_STMTVTAB) && !defined(SQLITE_OMIT_VIRTUALTABLE) 595 Tcl_SetVar2(interp, "sqlite_options", "stmtvtab", "1", TCL_GLOBAL_ONLY); 596 #else 597 Tcl_SetVar2(interp, "sqlite_options", "stmtvtab", "0", TCL_GLOBAL_ONLY); 598 #endif 599 600 #ifdef SQLITE_ENABLE_STMT_SCANSTATUS 601 Tcl_SetVar2(interp, "sqlite_options", "scanstatus", "1", TCL_GLOBAL_ONLY); 602 #else 603 Tcl_SetVar2(interp, "sqlite_options", "scanstatus", "0", TCL_GLOBAL_ONLY); 604 #endif 605 606 #if !defined(SQLITE_ENABLE_LOCKING_STYLE) 607 # if defined(__APPLE__) 608 # define SQLITE_ENABLE_LOCKING_STYLE 1 609 # else 610 # define SQLITE_ENABLE_LOCKING_STYLE 0 611 # endif 612 #endif 613 #if SQLITE_ENABLE_LOCKING_STYLE && defined(__APPLE__) 614 Tcl_SetVar2(interp,"sqlite_options","lock_proxy_pragmas","1",TCL_GLOBAL_ONLY); 615 #else 616 Tcl_SetVar2(interp,"sqlite_options","lock_proxy_pragmas","0",TCL_GLOBAL_ONLY); 617 #endif 618 #if defined(SQLITE_PREFER_PROXY_LOCKING) && defined(__APPLE__) 619 Tcl_SetVar2(interp,"sqlite_options","prefer_proxy_locking","1",TCL_GLOBAL_ONLY); 620 #else 621 Tcl_SetVar2(interp,"sqlite_options","prefer_proxy_locking","0",TCL_GLOBAL_ONLY); 622 #endif 623 624 625 #ifdef SQLITE_OMIT_SHARED_CACHE 626 Tcl_SetVar2(interp, "sqlite_options", "shared_cache", "0", TCL_GLOBAL_ONLY); 627 #else 628 Tcl_SetVar2(interp, "sqlite_options", "shared_cache", "1", TCL_GLOBAL_ONLY); 629 #endif 630 631 #ifdef SQLITE_OMIT_SUBQUERY 632 Tcl_SetVar2(interp, "sqlite_options", "subquery", "0", TCL_GLOBAL_ONLY); 633 #else 634 Tcl_SetVar2(interp, "sqlite_options", "subquery", "1", TCL_GLOBAL_ONLY); 635 #endif 636 637 #ifdef SQLITE_OMIT_TCL_VARIABLE 638 Tcl_SetVar2(interp, "sqlite_options", "tclvar", "0", TCL_GLOBAL_ONLY); 639 #else 640 Tcl_SetVar2(interp, "sqlite_options", "tclvar", "1", TCL_GLOBAL_ONLY); 641 #endif 642 643 Tcl_SetVar2(interp, "sqlite_options", "threadsafe", 644 SQLITE_THREADSAFE ? "1" : "0", TCL_GLOBAL_ONLY); 645 Tcl_SetVar2(interp, "sqlite_options", "threadsafe1", 646 SQLITE_THREADSAFE==1 ? "1" : "0", TCL_GLOBAL_ONLY); 647 Tcl_SetVar2(interp, "sqlite_options", "threadsafe2", 648 SQLITE_THREADSAFE==2 ? "1" : "0", TCL_GLOBAL_ONLY); 649 assert( sqlite3_threadsafe()==SQLITE_THREADSAFE ); 650 651 #ifdef SQLITE_OMIT_TEMPDB 652 Tcl_SetVar2(interp, "sqlite_options", "tempdb", "0", TCL_GLOBAL_ONLY); 653 #else 654 Tcl_SetVar2(interp, "sqlite_options", "tempdb", "1", TCL_GLOBAL_ONLY); 655 #endif 656 657 #ifdef SQLITE_OMIT_TRACE 658 Tcl_SetVar2(interp, "sqlite_options", "trace", "0", TCL_GLOBAL_ONLY); 659 #else 660 Tcl_SetVar2(interp, "sqlite_options", "trace", "1", TCL_GLOBAL_ONLY); 661 #endif 662 663 #ifdef SQLITE_OMIT_TRIGGER 664 Tcl_SetVar2(interp, "sqlite_options", "trigger", "0", TCL_GLOBAL_ONLY); 665 #else 666 Tcl_SetVar2(interp, "sqlite_options", "trigger", "1", TCL_GLOBAL_ONLY); 667 #endif 668 669 #ifdef SQLITE_OMIT_TRUNCATE_OPTIMIZATION 670 Tcl_SetVar2(interp, "sqlite_options", "truncate_opt", "0", TCL_GLOBAL_ONLY); 671 #else 672 Tcl_SetVar2(interp, "sqlite_options", "truncate_opt", "1", TCL_GLOBAL_ONLY); 673 #endif 674 675 #ifdef SQLITE_OMIT_UTF16 676 Tcl_SetVar2(interp, "sqlite_options", "utf16", "0", TCL_GLOBAL_ONLY); 677 #else 678 Tcl_SetVar2(interp, "sqlite_options", "utf16", "1", TCL_GLOBAL_ONLY); 679 #endif 680 681 #if defined(SQLITE_OMIT_VACUUM) || defined(SQLITE_OMIT_ATTACH) 682 Tcl_SetVar2(interp, "sqlite_options", "vacuum", "0", TCL_GLOBAL_ONLY); 683 #else 684 Tcl_SetVar2(interp, "sqlite_options", "vacuum", "1", TCL_GLOBAL_ONLY); 685 #endif 686 687 #ifdef SQLITE_OMIT_VIEW 688 Tcl_SetVar2(interp, "sqlite_options", "view", "0", TCL_GLOBAL_ONLY); 689 #else 690 Tcl_SetVar2(interp, "sqlite_options", "view", "1", TCL_GLOBAL_ONLY); 691 #endif 692 693 #ifdef SQLITE_OMIT_VIRTUALTABLE 694 Tcl_SetVar2(interp, "sqlite_options", "vtab", "0", TCL_GLOBAL_ONLY); 695 #else 696 Tcl_SetVar2(interp, "sqlite_options", "vtab", "1", TCL_GLOBAL_ONLY); 697 #endif 698 699 #ifdef SQLITE_OMIT_WAL 700 Tcl_SetVar2(interp, "sqlite_options", "wal", "0", TCL_GLOBAL_ONLY); 701 #else 702 Tcl_SetVar2(interp, "sqlite_options", "wal", "1", TCL_GLOBAL_ONLY); 703 #endif 704 705 #ifdef SQLITE_OMIT_WSD 706 Tcl_SetVar2(interp, "sqlite_options", "wsd", "0", TCL_GLOBAL_ONLY); 707 #else 708 Tcl_SetVar2(interp, "sqlite_options", "wsd", "1", TCL_GLOBAL_ONLY); 709 #endif 710 711 #if defined(SQLITE_ENABLE_UPDATE_DELETE_LIMIT) && !defined(SQLITE_OMIT_SUBQUERY) 712 Tcl_SetVar2(interp, "sqlite_options", "update_delete_limit", "1", TCL_GLOBAL_ONLY); 713 #else 714 Tcl_SetVar2(interp, "sqlite_options", "update_delete_limit", "0", TCL_GLOBAL_ONLY); 715 #endif 716 717 #if defined(SQLITE_ENABLE_UNLOCK_NOTIFY) 718 Tcl_SetVar2(interp, "sqlite_options", "unlock_notify", "1", TCL_GLOBAL_ONLY); 719 #else 720 Tcl_SetVar2(interp, "sqlite_options", "unlock_notify", "0", TCL_GLOBAL_ONLY); 721 #endif 722 723 #ifdef SQLITE_FAST_SECURE_DELETE 724 Tcl_SetVar2(interp, "sqlite_options", "fast_secure_delete", "1", TCL_GLOBAL_ONLY); 725 #else 726 Tcl_SetVar2(interp, "sqlite_options", "fast_secure_delete", "0", TCL_GLOBAL_ONLY); 727 #endif 728 729 #ifdef SQLITE_SECURE_DELETE 730 Tcl_SetVar2(interp, "sqlite_options", "secure_delete", "1", TCL_GLOBAL_ONLY); 731 #else 732 Tcl_SetVar2(interp, "sqlite_options", "secure_delete", "0", TCL_GLOBAL_ONLY); 733 #endif 734 735 #ifdef SQLITE_USER_AUTHENTICATION 736 Tcl_SetVar2(interp, "sqlite_options", "userauth", "1", TCL_GLOBAL_ONLY); 737 #else 738 Tcl_SetVar2(interp, "sqlite_options", "userauth", "0", TCL_GLOBAL_ONLY); 739 #endif 740 741 #ifdef SQLITE_MULTIPLEX_EXT_OVWR 742 Tcl_SetVar2(interp, "sqlite_options", "multiplex_ext_overwrite", "1", TCL_GLOBAL_ONLY); 743 #else 744 Tcl_SetVar2(interp, "sqlite_options", "multiplex_ext_overwrite", "0", TCL_GLOBAL_ONLY); 745 #endif 746 747 #ifdef YYTRACKMAXSTACKDEPTH 748 Tcl_SetVar2(interp, "sqlite_options", "yytrackmaxstackdepth", "1", TCL_GLOBAL_ONLY); 749 #else 750 Tcl_SetVar2(interp, "sqlite_options", "yytrackmaxstackdepth", "0", TCL_GLOBAL_ONLY); 751 #endif 752 753 #ifdef SQLITE_ENABLE_SQLLOG 754 Tcl_SetVar2(interp, "sqlite_options", "sqllog", "1", TCL_GLOBAL_ONLY); 755 #else 756 Tcl_SetVar2(interp, "sqlite_options", "sqllog", "0", TCL_GLOBAL_ONLY); 757 #endif 758 759 #ifdef SQLITE_ENABLE_URI_00_ERROR 760 Tcl_SetVar2(interp, "sqlite_options", "uri_00_error", "1", TCL_GLOBAL_ONLY); 761 #else 762 Tcl_SetVar2(interp, "sqlite_options", "uri_00_error", "0", TCL_GLOBAL_ONLY); 763 #endif 764 765 #define LINKVAR(x) { \ 766 static const int cv_ ## x = SQLITE_ ## x; \ 767 Tcl_LinkVar(interp, "SQLITE_" #x, (char *)&(cv_ ## x), \ 768 TCL_LINK_INT | TCL_LINK_READ_ONLY); } 769 770 LINKVAR( MAX_LENGTH ); 771 LINKVAR( MAX_COLUMN ); 772 LINKVAR( MAX_SQL_LENGTH ); 773 LINKVAR( MAX_EXPR_DEPTH ); 774 LINKVAR( MAX_COMPOUND_SELECT ); 775 LINKVAR( MAX_VDBE_OP ); 776 LINKVAR( MAX_FUNCTION_ARG ); 777 LINKVAR( MAX_VARIABLE_NUMBER ); 778 LINKVAR( MAX_PAGE_SIZE ); 779 LINKVAR( MAX_PAGE_COUNT ); 780 LINKVAR( MAX_LIKE_PATTERN_LENGTH ); 781 LINKVAR( MAX_TRIGGER_DEPTH ); 782 LINKVAR( DEFAULT_CACHE_SIZE ); 783 LINKVAR( DEFAULT_PAGE_SIZE ); 784 LINKVAR( DEFAULT_FILE_FORMAT ); 785 LINKVAR( DEFAULT_SYNCHRONOUS ); 786 LINKVAR( DEFAULT_WAL_SYNCHRONOUS ); 787 LINKVAR( MAX_ATTACHED ); 788 LINKVAR( MAX_DEFAULT_PAGE_SIZE ); 789 LINKVAR( MAX_WORKER_THREADS ); 790 791 { 792 static const int cv_TEMP_STORE = SQLITE_TEMP_STORE; 793 Tcl_LinkVar(interp, "TEMP_STORE", (char *)&(cv_TEMP_STORE), 794 TCL_LINK_INT | TCL_LINK_READ_ONLY); 795 } 796 797 #ifdef _MSC_VER 798 { 799 static const int cv__MSC_VER = 1; 800 Tcl_LinkVar(interp, "_MSC_VER", (char *)&(cv__MSC_VER), 801 TCL_LINK_INT | TCL_LINK_READ_ONLY); 802 } 803 #endif 804 #ifdef __GNUC__ 805 { 806 static const int cv___GNUC__ = 1; 807 Tcl_LinkVar(interp, "__GNUC__", (char *)&(cv___GNUC__), 808 TCL_LINK_INT | TCL_LINK_READ_ONLY); 809 } 810 #endif 811 } 812 813 814 /* 815 ** Register commands with the TCL interpreter. 816 */ 817 int Sqliteconfig_Init(Tcl_Interp *interp){ 818 set_options(interp); 819 return TCL_OK; 820 } 821