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 #ifdef 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_MATH_FUNCTIONS 158 Tcl_SetVar2(interp, "sqlite_options", "mathlib", "1", TCL_GLOBAL_ONLY); 159 #else 160 Tcl_SetVar2(interp, "sqlite_options", "mathlib", "0", TCL_GLOBAL_ONLY); 161 #endif 162 163 #ifdef SQLITE_ENABLE_MEMSYS3 164 Tcl_SetVar2(interp, "sqlite_options", "mem3", "1", TCL_GLOBAL_ONLY); 165 #else 166 Tcl_SetVar2(interp, "sqlite_options", "mem3", "0", TCL_GLOBAL_ONLY); 167 #endif 168 169 #ifdef SQLITE_ENABLE_MEMSYS5 170 Tcl_SetVar2(interp, "sqlite_options", "mem5", "1", TCL_GLOBAL_ONLY); 171 #else 172 Tcl_SetVar2(interp, "sqlite_options", "mem5", "0", TCL_GLOBAL_ONLY); 173 #endif 174 175 #ifdef SQLITE_ENABLE_OFFSET_SQL_FUNC 176 Tcl_SetVar2(interp, "sqlite_options", "offset_sql_func","1",TCL_GLOBAL_ONLY); 177 #else 178 Tcl_SetVar2(interp, "sqlite_options", "offset_sql_func","0",TCL_GLOBAL_ONLY); 179 #endif 180 181 #ifdef SQLITE_ENABLE_PREUPDATE_HOOK 182 Tcl_SetVar2(interp, "sqlite_options", "preupdate", "1", TCL_GLOBAL_ONLY); 183 #else 184 Tcl_SetVar2(interp, "sqlite_options", "preupdate", "0", TCL_GLOBAL_ONLY); 185 #endif 186 187 #ifdef SQLITE_ENABLE_SNAPSHOT 188 Tcl_SetVar2(interp, "sqlite_options", "snapshot", "1", TCL_GLOBAL_ONLY); 189 #else 190 Tcl_SetVar2(interp, "sqlite_options", "snapshot", "0", TCL_GLOBAL_ONLY); 191 #endif 192 193 #ifdef SQLITE_MUTEX_OMIT 194 Tcl_SetVar2(interp, "sqlite_options", "mutex", "0", TCL_GLOBAL_ONLY); 195 #else 196 Tcl_SetVar2(interp, "sqlite_options", "mutex", "1", TCL_GLOBAL_ONLY); 197 #endif 198 199 #ifdef SQLITE_MUTEX_NOOP 200 Tcl_SetVar2(interp, "sqlite_options", "mutex_noop", "1", TCL_GLOBAL_ONLY); 201 #else 202 Tcl_SetVar2(interp, "sqlite_options", "mutex_noop", "0", TCL_GLOBAL_ONLY); 203 #endif 204 205 #ifdef SQLITE_OMIT_ALTERTABLE 206 Tcl_SetVar2(interp, "sqlite_options", "altertable", "0", TCL_GLOBAL_ONLY); 207 #else 208 Tcl_SetVar2(interp, "sqlite_options", "altertable", "1", TCL_GLOBAL_ONLY); 209 #endif 210 211 #ifdef SQLITE_OMIT_ANALYZE 212 Tcl_SetVar2(interp, "sqlite_options", "analyze", "0", TCL_GLOBAL_ONLY); 213 #else 214 Tcl_SetVar2(interp, "sqlite_options", "analyze", "1", TCL_GLOBAL_ONLY); 215 #endif 216 217 #ifdef SQLITE_ENABLE_API_ARMOR 218 Tcl_SetVar2(interp, "sqlite_options", "api_armor", "1", TCL_GLOBAL_ONLY); 219 #else 220 Tcl_SetVar2(interp, "sqlite_options", "api_armor", "0", TCL_GLOBAL_ONLY); 221 #endif 222 223 #ifdef SQLITE_ENABLE_ATOMIC_WRITE 224 Tcl_SetVar2(interp, "sqlite_options", "atomicwrite", "1", TCL_GLOBAL_ONLY); 225 #else 226 Tcl_SetVar2(interp, "sqlite_options", "atomicwrite", "0", TCL_GLOBAL_ONLY); 227 #endif 228 229 #ifdef SQLITE_ENABLE_GEOPOLY 230 Tcl_SetVar2(interp, "sqlite_options", "geopoly", "1", TCL_GLOBAL_ONLY); 231 #else 232 Tcl_SetVar2(interp, "sqlite_options", "geopoly", "0", TCL_GLOBAL_ONLY); 233 #endif 234 235 #ifdef SQLITE_ENABLE_JSON1 236 Tcl_SetVar2(interp, "sqlite_options", "json1", "1", TCL_GLOBAL_ONLY); 237 #else 238 Tcl_SetVar2(interp, "sqlite_options", "json1", "0", TCL_GLOBAL_ONLY); 239 #endif 240 241 Tcl_SetVar2(interp, "sqlite_options", "has_codec", "0", TCL_GLOBAL_ONLY); 242 243 #ifdef SQLITE_LIKE_DOESNT_MATCH_BLOBS 244 Tcl_SetVar2(interp, "sqlite_options", "like_match_blobs", "0", TCL_GLOBAL_ONLY); 245 #else 246 Tcl_SetVar2(interp, "sqlite_options", "like_match_blobs", "1", TCL_GLOBAL_ONLY); 247 #endif 248 249 #ifdef SQLITE_OMIT_ATTACH 250 Tcl_SetVar2(interp, "sqlite_options", "attach", "0", TCL_GLOBAL_ONLY); 251 #else 252 Tcl_SetVar2(interp, "sqlite_options", "attach", "1", TCL_GLOBAL_ONLY); 253 #endif 254 255 #ifdef SQLITE_OMIT_AUTHORIZATION 256 Tcl_SetVar2(interp, "sqlite_options", "auth", "0", TCL_GLOBAL_ONLY); 257 #else 258 Tcl_SetVar2(interp, "sqlite_options", "auth", "1", TCL_GLOBAL_ONLY); 259 #endif 260 261 #ifdef SQLITE_OMIT_AUTOINCREMENT 262 Tcl_SetVar2(interp, "sqlite_options", "autoinc", "0", TCL_GLOBAL_ONLY); 263 #else 264 Tcl_SetVar2(interp, "sqlite_options", "autoinc", "1", TCL_GLOBAL_ONLY); 265 #endif 266 267 #ifdef SQLITE_OMIT_AUTOMATIC_INDEX 268 Tcl_SetVar2(interp, "sqlite_options", "autoindex", "0", TCL_GLOBAL_ONLY); 269 #else 270 Tcl_SetVar2(interp, "sqlite_options", "autoindex", "1", TCL_GLOBAL_ONLY); 271 #endif 272 273 #ifdef SQLITE_OMIT_AUTORESET 274 Tcl_SetVar2(interp, "sqlite_options", "autoreset", "0", TCL_GLOBAL_ONLY); 275 #else 276 Tcl_SetVar2(interp, "sqlite_options", "autoreset", "1", TCL_GLOBAL_ONLY); 277 #endif 278 279 #ifdef SQLITE_OMIT_AUTOVACUUM 280 Tcl_SetVar2(interp, "sqlite_options", "autovacuum", "0", TCL_GLOBAL_ONLY); 281 #else 282 Tcl_SetVar2(interp, "sqlite_options", "autovacuum", "1", TCL_GLOBAL_ONLY); 283 #endif /* SQLITE_OMIT_AUTOVACUUM */ 284 #if !defined(SQLITE_DEFAULT_AUTOVACUUM) 285 Tcl_SetVar2(interp,"sqlite_options","default_autovacuum","0",TCL_GLOBAL_ONLY); 286 #else 287 Tcl_SetVar2(interp, "sqlite_options", "default_autovacuum", 288 STRINGVALUE(SQLITE_DEFAULT_AUTOVACUUM), TCL_GLOBAL_ONLY); 289 #endif 290 291 #ifdef SQLITE_OMIT_BETWEEN_OPTIMIZATION 292 Tcl_SetVar2(interp, "sqlite_options", "between_opt", "0", TCL_GLOBAL_ONLY); 293 #else 294 Tcl_SetVar2(interp, "sqlite_options", "between_opt", "1", TCL_GLOBAL_ONLY); 295 #endif 296 297 #ifdef SQLITE_UNTESTABLE 298 Tcl_SetVar2(interp, "sqlite_options", "builtin_test", "0", TCL_GLOBAL_ONLY); 299 #else 300 Tcl_SetVar2(interp, "sqlite_options", "builtin_test", "1", TCL_GLOBAL_ONLY); 301 #endif 302 303 #ifdef SQLITE_OMIT_BLOB_LITERAL 304 Tcl_SetVar2(interp, "sqlite_options", "bloblit", "0", TCL_GLOBAL_ONLY); 305 #else 306 Tcl_SetVar2(interp, "sqlite_options", "bloblit", "1", TCL_GLOBAL_ONLY); 307 #endif 308 309 #ifdef SQLITE_OMIT_CAST 310 Tcl_SetVar2(interp, "sqlite_options", "cast", "0", TCL_GLOBAL_ONLY); 311 #else 312 Tcl_SetVar2(interp, "sqlite_options", "cast", "1", TCL_GLOBAL_ONLY); 313 #endif 314 315 #ifdef SQLITE_OMIT_CHECK 316 Tcl_SetVar2(interp, "sqlite_options", "check", "0", TCL_GLOBAL_ONLY); 317 #else 318 Tcl_SetVar2(interp, "sqlite_options", "check", "1", TCL_GLOBAL_ONLY); 319 #endif 320 321 #ifdef SQLITE_OMIT_CTE 322 Tcl_SetVar2(interp, "sqlite_options", "cte", "0", TCL_GLOBAL_ONLY); 323 #else 324 Tcl_SetVar2(interp, "sqlite_options", "cte", "1", TCL_GLOBAL_ONLY); 325 #endif 326 327 #ifdef SQLITE_ENABLE_COLUMN_METADATA 328 Tcl_SetVar2(interp, "sqlite_options", "columnmetadata", "1", TCL_GLOBAL_ONLY); 329 #else 330 Tcl_SetVar2(interp, "sqlite_options", "columnmetadata", "0", TCL_GLOBAL_ONLY); 331 #endif 332 333 #ifdef SQLITE_ENABLE_OVERSIZE_CELL_CHECK 334 Tcl_SetVar2(interp, "sqlite_options", "oversize_cell_check", "1", 335 TCL_GLOBAL_ONLY); 336 #else 337 Tcl_SetVar2(interp, "sqlite_options", "oversize_cell_check", "0", 338 TCL_GLOBAL_ONLY); 339 #endif 340 341 #ifdef SQLITE_OMIT_COMPILEOPTION_DIAGS 342 Tcl_SetVar2(interp, "sqlite_options", "compileoption_diags", "0", TCL_GLOBAL_ONLY); 343 #else 344 Tcl_SetVar2(interp, "sqlite_options", "compileoption_diags", "1", TCL_GLOBAL_ONLY); 345 #endif 346 347 #ifdef SQLITE_OMIT_COMPLETE 348 Tcl_SetVar2(interp, "sqlite_options", "complete", "0", TCL_GLOBAL_ONLY); 349 #else 350 Tcl_SetVar2(interp, "sqlite_options", "complete", "1", TCL_GLOBAL_ONLY); 351 #endif 352 353 #ifdef SQLITE_OMIT_COMPOUND_SELECT 354 Tcl_SetVar2(interp, "sqlite_options", "compound", "0", TCL_GLOBAL_ONLY); 355 #else 356 Tcl_SetVar2(interp, "sqlite_options", "compound", "1", TCL_GLOBAL_ONLY); 357 #endif 358 359 Tcl_SetVar2(interp, "sqlite_options", "conflict", "1", TCL_GLOBAL_ONLY); 360 Tcl_SetVar2(interp, "sqlite_options", "crashtest", "1", TCL_GLOBAL_ONLY); 361 362 #ifdef SQLITE_OMIT_DATETIME_FUNCS 363 Tcl_SetVar2(interp, "sqlite_options", "datetime", "0", TCL_GLOBAL_ONLY); 364 #else 365 Tcl_SetVar2(interp, "sqlite_options", "datetime", "1", TCL_GLOBAL_ONLY); 366 #endif 367 368 #ifdef SQLITE_OMIT_DECLTYPE 369 Tcl_SetVar2(interp, "sqlite_options", "decltype", "0", TCL_GLOBAL_ONLY); 370 #else 371 Tcl_SetVar2(interp, "sqlite_options", "decltype", "1", TCL_GLOBAL_ONLY); 372 #endif 373 374 #ifdef SQLITE_OMIT_DEPRECATED 375 Tcl_SetVar2(interp, "sqlite_options", "deprecated", "0", TCL_GLOBAL_ONLY); 376 #else 377 Tcl_SetVar2(interp, "sqlite_options", "deprecated", "1", TCL_GLOBAL_ONLY); 378 #endif 379 380 #ifdef SQLITE_OMIT_DISKIO 381 Tcl_SetVar2(interp, "sqlite_options", "diskio", "0", TCL_GLOBAL_ONLY); 382 #else 383 Tcl_SetVar2(interp, "sqlite_options", "diskio", "1", TCL_GLOBAL_ONLY); 384 #endif 385 386 #ifdef SQLITE_OMIT_EXPLAIN 387 Tcl_SetVar2(interp, "sqlite_options", "explain", "0", TCL_GLOBAL_ONLY); 388 #else 389 Tcl_SetVar2(interp, "sqlite_options", "explain", "1", TCL_GLOBAL_ONLY); 390 #endif 391 392 #ifdef SQLITE_OMIT_FLOATING_POINT 393 Tcl_SetVar2(interp, "sqlite_options", "floatingpoint", "0", TCL_GLOBAL_ONLY); 394 #else 395 Tcl_SetVar2(interp, "sqlite_options", "floatingpoint", "1", TCL_GLOBAL_ONLY); 396 #endif 397 398 #ifdef SQLITE_OMIT_FOREIGN_KEY 399 Tcl_SetVar2(interp, "sqlite_options", "foreignkey", "0", TCL_GLOBAL_ONLY); 400 #else 401 Tcl_SetVar2(interp, "sqlite_options", "foreignkey", "1", TCL_GLOBAL_ONLY); 402 #endif 403 404 #ifdef SQLITE_ENABLE_FTS1 405 Tcl_SetVar2(interp, "sqlite_options", "fts1", "1", TCL_GLOBAL_ONLY); 406 #else 407 Tcl_SetVar2(interp, "sqlite_options", "fts1", "0", TCL_GLOBAL_ONLY); 408 #endif 409 410 #ifdef SQLITE_ENABLE_FTS2 411 Tcl_SetVar2(interp, "sqlite_options", "fts2", "1", TCL_GLOBAL_ONLY); 412 #else 413 Tcl_SetVar2(interp, "sqlite_options", "fts2", "0", TCL_GLOBAL_ONLY); 414 #endif 415 416 #ifdef SQLITE_ENABLE_FTS3 417 Tcl_SetVar2(interp, "sqlite_options", "fts3", "1", TCL_GLOBAL_ONLY); 418 #else 419 Tcl_SetVar2(interp, "sqlite_options", "fts3", "0", TCL_GLOBAL_ONLY); 420 #endif 421 422 #ifdef SQLITE_ENABLE_FTS5 423 Tcl_SetVar2(interp, "sqlite_options", "fts5", "1", TCL_GLOBAL_ONLY); 424 #else 425 Tcl_SetVar2(interp, "sqlite_options", "fts5", "0", TCL_GLOBAL_ONLY); 426 #endif 427 428 #if defined(SQLITE_ENABLE_FTS3) && !defined(SQLITE_DISABLE_FTS3_UNICODE) 429 Tcl_SetVar2(interp, "sqlite_options", "fts3_unicode", "1", TCL_GLOBAL_ONLY); 430 #else 431 Tcl_SetVar2(interp, "sqlite_options", "fts3_unicode", "0", TCL_GLOBAL_ONLY); 432 #endif 433 434 #ifdef SQLITE_DISABLE_FTS4_DEFERRED 435 Tcl_SetVar2(interp, "sqlite_options", "fts4_deferred", "0", TCL_GLOBAL_ONLY); 436 #else 437 Tcl_SetVar2(interp, "sqlite_options", "fts4_deferred", "1", TCL_GLOBAL_ONLY); 438 #endif 439 440 #ifdef SQLITE_OMIT_GET_TABLE 441 Tcl_SetVar2(interp, "sqlite_options", "gettable", "0", TCL_GLOBAL_ONLY); 442 #else 443 Tcl_SetVar2(interp, "sqlite_options", "gettable", "1", TCL_GLOBAL_ONLY); 444 #endif 445 446 #ifdef SQLITE_ENABLE_ICU 447 Tcl_SetVar2(interp, "sqlite_options", "icu", "1", TCL_GLOBAL_ONLY); 448 #else 449 Tcl_SetVar2(interp, "sqlite_options", "icu", "0", TCL_GLOBAL_ONLY); 450 #endif 451 452 #ifdef SQLITE_ENABLE_ICU_COLLATIONS 453 Tcl_SetVar2(interp, "sqlite_options", "icu_collations", "1", TCL_GLOBAL_ONLY); 454 #else 455 Tcl_SetVar2(interp, "sqlite_options", "icu_collations", "0", TCL_GLOBAL_ONLY); 456 #endif 457 458 #ifdef SQLITE_OMIT_INCRBLOB 459 Tcl_SetVar2(interp, "sqlite_options", "incrblob", "0", TCL_GLOBAL_ONLY); 460 #else 461 Tcl_SetVar2(interp, "sqlite_options", "incrblob", "1", TCL_GLOBAL_ONLY); 462 #endif /* SQLITE_OMIT_AUTOVACUUM */ 463 464 #ifdef SQLITE_OMIT_INTEGRITY_CHECK 465 Tcl_SetVar2(interp, "sqlite_options", "integrityck", "0", TCL_GLOBAL_ONLY); 466 #else 467 Tcl_SetVar2(interp, "sqlite_options", "integrityck", "1", TCL_GLOBAL_ONLY); 468 #endif 469 470 #if defined(SQLITE_DEFAULT_FILE_FORMAT) && SQLITE_DEFAULT_FILE_FORMAT==1 471 Tcl_SetVar2(interp, "sqlite_options", "legacyformat", "1", TCL_GLOBAL_ONLY); 472 #else 473 Tcl_SetVar2(interp, "sqlite_options", "legacyformat", "0", TCL_GLOBAL_ONLY); 474 #endif 475 476 #ifdef SQLITE_OMIT_LIKE_OPTIMIZATION 477 Tcl_SetVar2(interp, "sqlite_options", "like_opt", "0", TCL_GLOBAL_ONLY); 478 #else 479 Tcl_SetVar2(interp, "sqlite_options", "like_opt", "1", TCL_GLOBAL_ONLY); 480 #endif 481 482 #ifdef SQLITE_OMIT_LOAD_EXTENSION 483 Tcl_SetVar2(interp, "sqlite_options", "load_ext", "0", TCL_GLOBAL_ONLY); 484 #else 485 Tcl_SetVar2(interp, "sqlite_options", "load_ext", "1", TCL_GLOBAL_ONLY); 486 #endif 487 488 #ifdef SQLITE_OMIT_LOCALTIME 489 Tcl_SetVar2(interp, "sqlite_options", "localtime", "0", TCL_GLOBAL_ONLY); 490 #else 491 Tcl_SetVar2(interp, "sqlite_options", "localtime", "1", TCL_GLOBAL_ONLY); 492 #endif 493 494 #ifdef SQLITE_OMIT_LOOKASIDE 495 Tcl_SetVar2(interp, "sqlite_options", "lookaside", "0", TCL_GLOBAL_ONLY); 496 #else 497 Tcl_SetVar2(interp, "sqlite_options", "lookaside", "1", TCL_GLOBAL_ONLY); 498 #endif 499 500 Tcl_SetVar2(interp, "sqlite_options", "long_double", 501 sizeof(LONGDOUBLE_TYPE)>sizeof(double) ? "1" : "0", 502 TCL_GLOBAL_ONLY); 503 504 #ifdef SQLITE_OMIT_MEMORYDB 505 Tcl_SetVar2(interp, "sqlite_options", "memorydb", "0", TCL_GLOBAL_ONLY); 506 #else 507 Tcl_SetVar2(interp, "sqlite_options", "memorydb", "1", TCL_GLOBAL_ONLY); 508 #endif 509 510 #ifdef SQLITE_ENABLE_MEMORY_MANAGEMENT 511 Tcl_SetVar2(interp, "sqlite_options", "memorymanage", "1", TCL_GLOBAL_ONLY); 512 #else 513 Tcl_SetVar2(interp, "sqlite_options", "memorymanage", "0", TCL_GLOBAL_ONLY); 514 #endif 515 516 Tcl_SetVar2(interp, "sqlite_options", "mergesort", "1", TCL_GLOBAL_ONLY); 517 518 #ifdef SQLITE_ENABLE_NULL_TRIM 519 Tcl_SetVar2(interp, "sqlite_options", "null_trim", "1", TCL_GLOBAL_ONLY); 520 #else 521 Tcl_SetVar2(interp, "sqlite_options", "null_trim", "0", TCL_GLOBAL_ONLY); 522 #endif 523 524 #ifdef SQLITE_OMIT_OR_OPTIMIZATION 525 Tcl_SetVar2(interp, "sqlite_options", "or_opt", "0", TCL_GLOBAL_ONLY); 526 #else 527 Tcl_SetVar2(interp, "sqlite_options", "or_opt", "1", TCL_GLOBAL_ONLY); 528 #endif 529 530 #ifdef SQLITE_ENABLE_RBU 531 Tcl_SetVar2(interp, "sqlite_options", "rbu", "1", TCL_GLOBAL_ONLY); 532 #else 533 Tcl_SetVar2(interp, "sqlite_options", "rbu", "0", TCL_GLOBAL_ONLY); 534 #endif 535 536 #ifdef SQLITE_OMIT_PAGER_PRAGMAS 537 Tcl_SetVar2(interp, "sqlite_options", "pager_pragmas", "0", TCL_GLOBAL_ONLY); 538 #else 539 Tcl_SetVar2(interp, "sqlite_options", "pager_pragmas", "1", TCL_GLOBAL_ONLY); 540 #endif 541 542 #if defined(SQLITE_OMIT_PRAGMA) || defined(SQLITE_OMIT_FLAG_PRAGMAS) 543 Tcl_SetVar2(interp, "sqlite_options", "pragma", "0", TCL_GLOBAL_ONLY); 544 Tcl_SetVar2(interp, "sqlite_options", "integrityck", "0", TCL_GLOBAL_ONLY); 545 #else 546 Tcl_SetVar2(interp, "sqlite_options", "pragma", "1", TCL_GLOBAL_ONLY); 547 #endif 548 549 #ifdef SQLITE_OMIT_PROGRESS_CALLBACK 550 Tcl_SetVar2(interp, "sqlite_options", "progress", "0", TCL_GLOBAL_ONLY); 551 #else 552 Tcl_SetVar2(interp, "sqlite_options", "progress", "1", TCL_GLOBAL_ONLY); 553 #endif 554 555 #ifdef SQLITE_OMIT_REINDEX 556 Tcl_SetVar2(interp, "sqlite_options", "reindex", "0", TCL_GLOBAL_ONLY); 557 #else 558 Tcl_SetVar2(interp, "sqlite_options", "reindex", "1", TCL_GLOBAL_ONLY); 559 #endif 560 561 #ifdef SQLITE_ENABLE_RTREE 562 Tcl_SetVar2(interp, "sqlite_options", "rtree", "1", TCL_GLOBAL_ONLY); 563 #else 564 Tcl_SetVar2(interp, "sqlite_options", "rtree", "0", TCL_GLOBAL_ONLY); 565 #endif 566 567 #ifdef SQLITE_RTREE_INT_ONLY 568 Tcl_SetVar2(interp, "sqlite_options", "rtree_int_only", "1", TCL_GLOBAL_ONLY); 569 #else 570 Tcl_SetVar2(interp, "sqlite_options", "rtree_int_only", "0", TCL_GLOBAL_ONLY); 571 #endif 572 573 #ifdef SQLITE_OMIT_SCHEMA_PRAGMAS 574 Tcl_SetVar2(interp, "sqlite_options", "schema_pragmas", "0", TCL_GLOBAL_ONLY); 575 #else 576 Tcl_SetVar2(interp, "sqlite_options", "schema_pragmas", "1", TCL_GLOBAL_ONLY); 577 #endif 578 579 #ifdef SQLITE_OMIT_SCHEMA_VERSION_PRAGMAS 580 Tcl_SetVar2(interp, "sqlite_options", "schema_version", "0", TCL_GLOBAL_ONLY); 581 #else 582 Tcl_SetVar2(interp, "sqlite_options", "schema_version", "1", TCL_GLOBAL_ONLY); 583 #endif 584 585 #ifdef SQLITE_ENABLE_SESSION 586 Tcl_SetVar2(interp, "sqlite_options", "session", "1", TCL_GLOBAL_ONLY); 587 #else 588 Tcl_SetVar2(interp, "sqlite_options", "session", "0", TCL_GLOBAL_ONLY); 589 #endif 590 591 #ifdef SQLITE_ENABLE_STAT4 592 Tcl_SetVar2(interp, "sqlite_options", "stat4", "1", TCL_GLOBAL_ONLY); 593 #else 594 Tcl_SetVar2(interp, "sqlite_options", "stat4", "0", TCL_GLOBAL_ONLY); 595 #endif 596 #if defined(SQLITE_ENABLE_STMTVTAB) && !defined(SQLITE_OMIT_VIRTUALTABLE) 597 Tcl_SetVar2(interp, "sqlite_options", "stmtvtab", "1", TCL_GLOBAL_ONLY); 598 #else 599 Tcl_SetVar2(interp, "sqlite_options", "stmtvtab", "0", TCL_GLOBAL_ONLY); 600 #endif 601 602 #ifdef SQLITE_ENABLE_STMT_SCANSTATUS 603 Tcl_SetVar2(interp, "sqlite_options", "scanstatus", "1", TCL_GLOBAL_ONLY); 604 #else 605 Tcl_SetVar2(interp, "sqlite_options", "scanstatus", "0", TCL_GLOBAL_ONLY); 606 #endif 607 608 #if !defined(SQLITE_ENABLE_LOCKING_STYLE) 609 # if defined(__APPLE__) 610 # define SQLITE_ENABLE_LOCKING_STYLE 1 611 # else 612 # define SQLITE_ENABLE_LOCKING_STYLE 0 613 # endif 614 #endif 615 #if SQLITE_ENABLE_LOCKING_STYLE && defined(__APPLE__) 616 Tcl_SetVar2(interp,"sqlite_options","lock_proxy_pragmas","1",TCL_GLOBAL_ONLY); 617 #else 618 Tcl_SetVar2(interp,"sqlite_options","lock_proxy_pragmas","0",TCL_GLOBAL_ONLY); 619 #endif 620 #if defined(SQLITE_PREFER_PROXY_LOCKING) && defined(__APPLE__) 621 Tcl_SetVar2(interp,"sqlite_options","prefer_proxy_locking","1",TCL_GLOBAL_ONLY); 622 #else 623 Tcl_SetVar2(interp,"sqlite_options","prefer_proxy_locking","0",TCL_GLOBAL_ONLY); 624 #endif 625 626 627 #ifdef SQLITE_OMIT_SHARED_CACHE 628 Tcl_SetVar2(interp, "sqlite_options", "shared_cache", "0", TCL_GLOBAL_ONLY); 629 #else 630 Tcl_SetVar2(interp, "sqlite_options", "shared_cache", "1", TCL_GLOBAL_ONLY); 631 #endif 632 633 #ifdef SQLITE_OMIT_SUBQUERY 634 Tcl_SetVar2(interp, "sqlite_options", "subquery", "0", TCL_GLOBAL_ONLY); 635 #else 636 Tcl_SetVar2(interp, "sqlite_options", "subquery", "1", TCL_GLOBAL_ONLY); 637 #endif 638 639 #ifdef SQLITE_OMIT_TCL_VARIABLE 640 Tcl_SetVar2(interp, "sqlite_options", "tclvar", "0", TCL_GLOBAL_ONLY); 641 #else 642 Tcl_SetVar2(interp, "sqlite_options", "tclvar", "1", TCL_GLOBAL_ONLY); 643 #endif 644 645 Tcl_SetVar2(interp, "sqlite_options", "threadsafe", 646 SQLITE_THREADSAFE ? "1" : "0", TCL_GLOBAL_ONLY); 647 Tcl_SetVar2(interp, "sqlite_options", "threadsafe1", 648 SQLITE_THREADSAFE==1 ? "1" : "0", TCL_GLOBAL_ONLY); 649 Tcl_SetVar2(interp, "sqlite_options", "threadsafe2", 650 SQLITE_THREADSAFE==2 ? "1" : "0", TCL_GLOBAL_ONLY); 651 assert( sqlite3_threadsafe()==SQLITE_THREADSAFE ); 652 653 #ifdef SQLITE_OMIT_TEMPDB 654 Tcl_SetVar2(interp, "sqlite_options", "tempdb", "0", TCL_GLOBAL_ONLY); 655 #else 656 Tcl_SetVar2(interp, "sqlite_options", "tempdb", "1", TCL_GLOBAL_ONLY); 657 #endif 658 659 #ifdef SQLITE_OMIT_TRACE 660 Tcl_SetVar2(interp, "sqlite_options", "trace", "0", TCL_GLOBAL_ONLY); 661 #else 662 Tcl_SetVar2(interp, "sqlite_options", "trace", "1", TCL_GLOBAL_ONLY); 663 #endif 664 665 #ifdef SQLITE_OMIT_TRIGGER 666 Tcl_SetVar2(interp, "sqlite_options", "trigger", "0", TCL_GLOBAL_ONLY); 667 #else 668 Tcl_SetVar2(interp, "sqlite_options", "trigger", "1", TCL_GLOBAL_ONLY); 669 #endif 670 671 #ifdef SQLITE_OMIT_TRUNCATE_OPTIMIZATION 672 Tcl_SetVar2(interp, "sqlite_options", "truncate_opt", "0", TCL_GLOBAL_ONLY); 673 #else 674 Tcl_SetVar2(interp, "sqlite_options", "truncate_opt", "1", TCL_GLOBAL_ONLY); 675 #endif 676 677 #ifdef SQLITE_OMIT_UTF16 678 Tcl_SetVar2(interp, "sqlite_options", "utf16", "0", TCL_GLOBAL_ONLY); 679 #else 680 Tcl_SetVar2(interp, "sqlite_options", "utf16", "1", TCL_GLOBAL_ONLY); 681 #endif 682 683 #if defined(SQLITE_OMIT_VACUUM) || defined(SQLITE_OMIT_ATTACH) 684 Tcl_SetVar2(interp, "sqlite_options", "vacuum", "0", TCL_GLOBAL_ONLY); 685 #else 686 Tcl_SetVar2(interp, "sqlite_options", "vacuum", "1", TCL_GLOBAL_ONLY); 687 #endif 688 689 #ifdef SQLITE_OMIT_VIEW 690 Tcl_SetVar2(interp, "sqlite_options", "view", "0", TCL_GLOBAL_ONLY); 691 #else 692 Tcl_SetVar2(interp, "sqlite_options", "view", "1", TCL_GLOBAL_ONLY); 693 #endif 694 695 #ifdef SQLITE_OMIT_VIRTUALTABLE 696 Tcl_SetVar2(interp, "sqlite_options", "vtab", "0", TCL_GLOBAL_ONLY); 697 #else 698 Tcl_SetVar2(interp, "sqlite_options", "vtab", "1", TCL_GLOBAL_ONLY); 699 #endif 700 701 #ifdef SQLITE_OMIT_WAL 702 Tcl_SetVar2(interp, "sqlite_options", "wal", "0", TCL_GLOBAL_ONLY); 703 #else 704 Tcl_SetVar2(interp, "sqlite_options", "wal", "1", TCL_GLOBAL_ONLY); 705 #endif 706 707 #ifdef SQLITE_OMIT_WSD 708 Tcl_SetVar2(interp, "sqlite_options", "wsd", "0", TCL_GLOBAL_ONLY); 709 #else 710 Tcl_SetVar2(interp, "sqlite_options", "wsd", "1", TCL_GLOBAL_ONLY); 711 #endif 712 713 #if defined(SQLITE_ENABLE_UPDATE_DELETE_LIMIT) && !defined(SQLITE_OMIT_SUBQUERY) 714 Tcl_SetVar2(interp, "sqlite_options", "update_delete_limit", "1", TCL_GLOBAL_ONLY); 715 #else 716 Tcl_SetVar2(interp, "sqlite_options", "update_delete_limit", "0", TCL_GLOBAL_ONLY); 717 #endif 718 719 #if defined(SQLITE_ENABLE_UNLOCK_NOTIFY) 720 Tcl_SetVar2(interp, "sqlite_options", "unlock_notify", "1", TCL_GLOBAL_ONLY); 721 #else 722 Tcl_SetVar2(interp, "sqlite_options", "unlock_notify", "0", TCL_GLOBAL_ONLY); 723 #endif 724 725 #ifdef SQLITE_FAST_SECURE_DELETE 726 Tcl_SetVar2(interp, "sqlite_options", "fast_secure_delete", "1", TCL_GLOBAL_ONLY); 727 #else 728 Tcl_SetVar2(interp, "sqlite_options", "fast_secure_delete", "0", TCL_GLOBAL_ONLY); 729 #endif 730 731 #ifdef SQLITE_SECURE_DELETE 732 Tcl_SetVar2(interp, "sqlite_options", "secure_delete", "1", TCL_GLOBAL_ONLY); 733 #else 734 Tcl_SetVar2(interp, "sqlite_options", "secure_delete", "0", TCL_GLOBAL_ONLY); 735 #endif 736 737 #ifdef SQLITE_USER_AUTHENTICATION 738 Tcl_SetVar2(interp, "sqlite_options", "userauth", "1", TCL_GLOBAL_ONLY); 739 #else 740 Tcl_SetVar2(interp, "sqlite_options", "userauth", "0", TCL_GLOBAL_ONLY); 741 #endif 742 743 #ifdef SQLITE_MULTIPLEX_EXT_OVWR 744 Tcl_SetVar2(interp, "sqlite_options", "multiplex_ext_overwrite", "1", TCL_GLOBAL_ONLY); 745 #else 746 Tcl_SetVar2(interp, "sqlite_options", "multiplex_ext_overwrite", "0", TCL_GLOBAL_ONLY); 747 #endif 748 749 #ifdef YYTRACKMAXSTACKDEPTH 750 Tcl_SetVar2(interp, "sqlite_options", "yytrackmaxstackdepth", "1", TCL_GLOBAL_ONLY); 751 #else 752 Tcl_SetVar2(interp, "sqlite_options", "yytrackmaxstackdepth", "0", TCL_GLOBAL_ONLY); 753 #endif 754 755 #ifdef SQLITE_ENABLE_SQLLOG 756 Tcl_SetVar2(interp, "sqlite_options", "sqllog", "1", TCL_GLOBAL_ONLY); 757 #else 758 Tcl_SetVar2(interp, "sqlite_options", "sqllog", "0", TCL_GLOBAL_ONLY); 759 #endif 760 761 #ifdef SQLITE_ENABLE_URI_00_ERROR 762 Tcl_SetVar2(interp, "sqlite_options", "uri_00_error", "1", TCL_GLOBAL_ONLY); 763 #else 764 Tcl_SetVar2(interp, "sqlite_options", "uri_00_error", "0", TCL_GLOBAL_ONLY); 765 #endif 766 767 #if defined(SQLITE_ENABLE_NORMALIZE) 768 Tcl_SetVar2(interp, "sqlite_options", "normalize", "1", TCL_GLOBAL_ONLY); 769 #else 770 Tcl_SetVar2(interp, "sqlite_options", "normalize", "0", TCL_GLOBAL_ONLY); 771 #endif 772 773 #ifdef SQLITE_OMIT_WINDOWFUNC 774 Tcl_SetVar2(interp, "sqlite_options", "windowfunc", "0", TCL_GLOBAL_ONLY); 775 #else 776 Tcl_SetVar2(interp, "sqlite_options", "windowfunc", "1", TCL_GLOBAL_ONLY); 777 #endif 778 779 #define LINKVAR(x) { \ 780 static const int cv_ ## x = SQLITE_ ## x; \ 781 Tcl_LinkVar(interp, "SQLITE_" #x, (char *)&(cv_ ## x), \ 782 TCL_LINK_INT | TCL_LINK_READ_ONLY); } 783 784 LINKVAR( MAX_LENGTH ); 785 LINKVAR( MAX_COLUMN ); 786 LINKVAR( MAX_SQL_LENGTH ); 787 LINKVAR( MAX_EXPR_DEPTH ); 788 LINKVAR( MAX_COMPOUND_SELECT ); 789 LINKVAR( MAX_VDBE_OP ); 790 LINKVAR( MAX_FUNCTION_ARG ); 791 LINKVAR( MAX_VARIABLE_NUMBER ); 792 LINKVAR( MAX_PAGE_SIZE ); 793 LINKVAR( MAX_PAGE_COUNT ); 794 LINKVAR( MAX_LIKE_PATTERN_LENGTH ); 795 LINKVAR( MAX_TRIGGER_DEPTH ); 796 LINKVAR( DEFAULT_CACHE_SIZE ); 797 LINKVAR( DEFAULT_PAGE_SIZE ); 798 LINKVAR( DEFAULT_FILE_FORMAT ); 799 LINKVAR( DEFAULT_SYNCHRONOUS ); 800 LINKVAR( DEFAULT_WAL_SYNCHRONOUS ); 801 LINKVAR( MAX_ATTACHED ); 802 LINKVAR( MAX_DEFAULT_PAGE_SIZE ); 803 LINKVAR( MAX_WORKER_THREADS ); 804 805 { 806 static const int cv_TEMP_STORE = SQLITE_TEMP_STORE; 807 Tcl_LinkVar(interp, "TEMP_STORE", (char *)&(cv_TEMP_STORE), 808 TCL_LINK_INT | TCL_LINK_READ_ONLY); 809 } 810 811 #ifdef _MSC_VER 812 { 813 static const int cv__MSC_VER = 1; 814 Tcl_LinkVar(interp, "_MSC_VER", (char *)&(cv__MSC_VER), 815 TCL_LINK_INT | TCL_LINK_READ_ONLY); 816 } 817 #endif 818 #ifdef __GNUC__ 819 { 820 static const int cv___GNUC__ = 1; 821 Tcl_LinkVar(interp, "__GNUC__", (char *)&(cv___GNUC__), 822 TCL_LINK_INT | TCL_LINK_READ_ONLY); 823 } 824 #endif 825 } 826 827 828 /* 829 ** Register commands with the TCL interpreter. 830 */ 831 int Sqliteconfig_Init(Tcl_Interp *interp){ 832 set_options(interp); 833 return TCL_OK; 834 } 835