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