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