| OLD | NEW |
| 1 /* | 1 /* |
| 2 ** 2007 May 7 | 2 ** 2007 May 7 |
| 3 ** | 3 ** |
| 4 ** The author disclaims copyright to this source code. In place of | 4 ** The author disclaims copyright to this source code. In place of |
| 5 ** a legal notice, here is a blessing: | 5 ** a legal notice, here is a blessing: |
| 6 ** | 6 ** |
| 7 ** May you do good and not evil. | 7 ** May you do good and not evil. |
| 8 ** May you find forgiveness for yourself and forgive others. | 8 ** May you find forgiveness for yourself and forgive others. |
| 9 ** May you share freely, never taking more than you give. | 9 ** May you share freely, never taking more than you give. |
| 10 ** | 10 ** |
| (...skipping 23 matching lines...) Expand all Loading... |
| 34 */ | 34 */ |
| 35 #define STRINGVALUE2(x) #x | 35 #define STRINGVALUE2(x) #x |
| 36 #define STRINGVALUE(x) STRINGVALUE2(x) | 36 #define STRINGVALUE(x) STRINGVALUE2(x) |
| 37 | 37 |
| 38 /* | 38 /* |
| 39 ** This routine sets entries in the global ::sqlite_options() array variable | 39 ** This routine sets entries in the global ::sqlite_options() array variable |
| 40 ** according to the compile-time configuration of the database. Test | 40 ** according to the compile-time configuration of the database. Test |
| 41 ** procedures use this to determine when tests should be omitted. | 41 ** procedures use this to determine when tests should be omitted. |
| 42 */ | 42 */ |
| 43 static void set_options(Tcl_Interp *interp){ | 43 static void set_options(Tcl_Interp *interp){ |
| 44 #ifdef HAVE_MALLOC_USABLE_SIZE | 44 #if HAVE_MALLOC_USABLE_SIZE |
| 45 Tcl_SetVar2(interp, "sqlite_options", "malloc_usable_size", "1", | 45 Tcl_SetVar2(interp, "sqlite_options", "malloc_usable_size", "1", |
| 46 TCL_GLOBAL_ONLY); | 46 TCL_GLOBAL_ONLY); |
| 47 #else | 47 #else |
| 48 Tcl_SetVar2(interp, "sqlite_options", "malloc_usable_size", "0", | 48 Tcl_SetVar2(interp, "sqlite_options", "malloc_usable_size", "0", |
| 49 TCL_GLOBAL_ONLY); | 49 TCL_GLOBAL_ONLY); |
| 50 #endif | 50 #endif |
| 51 | 51 |
| 52 #ifdef SQLITE_32BIT_ROWID | 52 #ifdef SQLITE_32BIT_ROWID |
| 53 Tcl_SetVar2(interp, "sqlite_options", "rowid32", "1", TCL_GLOBAL_ONLY); | 53 Tcl_SetVar2(interp, "sqlite_options", "rowid32", "1", TCL_GLOBAL_ONLY); |
| 54 #else | 54 #else |
| (...skipping 57 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 112 #else | 112 #else |
| 113 Tcl_SetVar2(interp, "sqlite_options", "memdebug", "0", TCL_GLOBAL_ONLY); | 113 Tcl_SetVar2(interp, "sqlite_options", "memdebug", "0", TCL_GLOBAL_ONLY); |
| 114 #endif | 114 #endif |
| 115 | 115 |
| 116 #ifdef SQLITE_ENABLE_8_3_NAMES | 116 #ifdef SQLITE_ENABLE_8_3_NAMES |
| 117 Tcl_SetVar2(interp, "sqlite_options", "8_3_names", "1", TCL_GLOBAL_ONLY); | 117 Tcl_SetVar2(interp, "sqlite_options", "8_3_names", "1", TCL_GLOBAL_ONLY); |
| 118 #else | 118 #else |
| 119 Tcl_SetVar2(interp, "sqlite_options", "8_3_names", "0", TCL_GLOBAL_ONLY); | 119 Tcl_SetVar2(interp, "sqlite_options", "8_3_names", "0", TCL_GLOBAL_ONLY); |
| 120 #endif | 120 #endif |
| 121 | 121 |
| 122 #ifdef SQLITE_ENABLE_CURSOR_HINTS |
| 123 Tcl_SetVar2(interp, "sqlite_options", "cursorhints", "1", TCL_GLOBAL_ONLY); |
| 124 #else |
| 125 Tcl_SetVar2(interp, "sqlite_options", "cursorhints", "0", TCL_GLOBAL_ONLY); |
| 126 #endif |
| 127 |
| 128 #ifdef SQLITE_ENABLE_HIDDEN_COLUMNS |
| 129 Tcl_SetVar2(interp, "sqlite_options", "hiddencolumns", "1", TCL_GLOBAL_ONLY); |
| 130 #else |
| 131 Tcl_SetVar2(interp, "sqlite_options", "hiddencolumns", "0", TCL_GLOBAL_ONLY); |
| 132 #endif |
| 133 |
| 122 #ifdef SQLITE_ENABLE_MEMSYS3 | 134 #ifdef SQLITE_ENABLE_MEMSYS3 |
| 123 Tcl_SetVar2(interp, "sqlite_options", "mem3", "1", TCL_GLOBAL_ONLY); | 135 Tcl_SetVar2(interp, "sqlite_options", "mem3", "1", TCL_GLOBAL_ONLY); |
| 124 #else | 136 #else |
| 125 Tcl_SetVar2(interp, "sqlite_options", "mem3", "0", TCL_GLOBAL_ONLY); | 137 Tcl_SetVar2(interp, "sqlite_options", "mem3", "0", TCL_GLOBAL_ONLY); |
| 126 #endif | 138 #endif |
| 127 | 139 |
| 128 #ifdef SQLITE_ENABLE_MEMSYS5 | 140 #ifdef SQLITE_ENABLE_MEMSYS5 |
| 129 Tcl_SetVar2(interp, "sqlite_options", "mem5", "1", TCL_GLOBAL_ONLY); | 141 Tcl_SetVar2(interp, "sqlite_options", "mem5", "1", TCL_GLOBAL_ONLY); |
| 130 #else | 142 #else |
| 131 Tcl_SetVar2(interp, "sqlite_options", "mem5", "0", TCL_GLOBAL_ONLY); | 143 Tcl_SetVar2(interp, "sqlite_options", "mem5", "0", TCL_GLOBAL_ONLY); |
| 132 #endif | 144 #endif |
| 133 | 145 |
| 146 #ifdef SQLITE_ENABLE_SNAPSHOT |
| 147 Tcl_SetVar2(interp, "sqlite_options", "snapshot", "1", TCL_GLOBAL_ONLY); |
| 148 #else |
| 149 Tcl_SetVar2(interp, "sqlite_options", "snapshot", "0", TCL_GLOBAL_ONLY); |
| 150 #endif |
| 151 |
| 134 #ifdef SQLITE_MUTEX_OMIT | 152 #ifdef SQLITE_MUTEX_OMIT |
| 135 Tcl_SetVar2(interp, "sqlite_options", "mutex", "0", TCL_GLOBAL_ONLY); | 153 Tcl_SetVar2(interp, "sqlite_options", "mutex", "0", TCL_GLOBAL_ONLY); |
| 136 #else | 154 #else |
| 137 Tcl_SetVar2(interp, "sqlite_options", "mutex", "1", TCL_GLOBAL_ONLY); | 155 Tcl_SetVar2(interp, "sqlite_options", "mutex", "1", TCL_GLOBAL_ONLY); |
| 138 #endif | 156 #endif |
| 139 | 157 |
| 140 #ifdef SQLITE_MUTEX_NOOP | 158 #ifdef SQLITE_MUTEX_NOOP |
| 141 Tcl_SetVar2(interp, "sqlite_options", "mutex_noop", "1", TCL_GLOBAL_ONLY); | 159 Tcl_SetVar2(interp, "sqlite_options", "mutex_noop", "1", TCL_GLOBAL_ONLY); |
| 142 #else | 160 #else |
| 143 Tcl_SetVar2(interp, "sqlite_options", "mutex_noop", "0", TCL_GLOBAL_ONLY); | 161 Tcl_SetVar2(interp, "sqlite_options", "mutex_noop", "0", TCL_GLOBAL_ONLY); |
| 144 #endif | 162 #endif |
| 145 | 163 |
| 146 #ifdef SQLITE_OMIT_ALTERTABLE | 164 #ifdef SQLITE_OMIT_ALTERTABLE |
| 147 Tcl_SetVar2(interp, "sqlite_options", "altertable", "0", TCL_GLOBAL_ONLY); | 165 Tcl_SetVar2(interp, "sqlite_options", "altertable", "0", TCL_GLOBAL_ONLY); |
| 148 #else | 166 #else |
| 149 Tcl_SetVar2(interp, "sqlite_options", "altertable", "1", TCL_GLOBAL_ONLY); | 167 Tcl_SetVar2(interp, "sqlite_options", "altertable", "1", TCL_GLOBAL_ONLY); |
| 150 #endif | 168 #endif |
| 151 | 169 |
| 152 #ifdef SQLITE_OMIT_ANALYZE | 170 #ifdef SQLITE_OMIT_ANALYZE |
| 153 Tcl_SetVar2(interp, "sqlite_options", "analyze", "0", TCL_GLOBAL_ONLY); | 171 Tcl_SetVar2(interp, "sqlite_options", "analyze", "0", TCL_GLOBAL_ONLY); |
| 154 #else | 172 #else |
| 155 Tcl_SetVar2(interp, "sqlite_options", "analyze", "1", TCL_GLOBAL_ONLY); | 173 Tcl_SetVar2(interp, "sqlite_options", "analyze", "1", TCL_GLOBAL_ONLY); |
| 156 #endif | 174 #endif |
| 157 | 175 |
| 176 #ifdef SQLITE_ENABLE_API_ARMOR |
| 177 Tcl_SetVar2(interp, "sqlite_options", "api_armor", "1", TCL_GLOBAL_ONLY); |
| 178 #else |
| 179 Tcl_SetVar2(interp, "sqlite_options", "api_armor", "0", TCL_GLOBAL_ONLY); |
| 180 #endif |
| 181 |
| 158 #ifdef SQLITE_ENABLE_ATOMIC_WRITE | 182 #ifdef SQLITE_ENABLE_ATOMIC_WRITE |
| 159 Tcl_SetVar2(interp, "sqlite_options", "atomicwrite", "1", TCL_GLOBAL_ONLY); | 183 Tcl_SetVar2(interp, "sqlite_options", "atomicwrite", "1", TCL_GLOBAL_ONLY); |
| 160 #else | 184 #else |
| 161 Tcl_SetVar2(interp, "sqlite_options", "atomicwrite", "0", TCL_GLOBAL_ONLY); | 185 Tcl_SetVar2(interp, "sqlite_options", "atomicwrite", "0", TCL_GLOBAL_ONLY); |
| 162 #endif | 186 #endif |
| 163 | 187 |
| 188 #ifdef SQLITE_ENABLE_JSON1 |
| 189 Tcl_SetVar2(interp, "sqlite_options", "json1", "1", TCL_GLOBAL_ONLY); |
| 190 #else |
| 191 Tcl_SetVar2(interp, "sqlite_options", "json1", "0", TCL_GLOBAL_ONLY); |
| 192 #endif |
| 193 |
| 194 #ifdef SQLITE_LIKE_DOESNT_MATCH_BLOBS |
| 195 Tcl_SetVar2(interp, "sqlite_options", "like_match_blobs", "0", TCL_GLOBAL_ONLY
); |
| 196 #else |
| 197 Tcl_SetVar2(interp, "sqlite_options", "like_match_blobs", "1", TCL_GLOBAL_ONLY
); |
| 198 #endif |
| 199 |
| 164 #ifdef SQLITE_OMIT_ATTACH | 200 #ifdef SQLITE_OMIT_ATTACH |
| 165 Tcl_SetVar2(interp, "sqlite_options", "attach", "0", TCL_GLOBAL_ONLY); | 201 Tcl_SetVar2(interp, "sqlite_options", "attach", "0", TCL_GLOBAL_ONLY); |
| 166 #else | 202 #else |
| 167 Tcl_SetVar2(interp, "sqlite_options", "attach", "1", TCL_GLOBAL_ONLY); | 203 Tcl_SetVar2(interp, "sqlite_options", "attach", "1", TCL_GLOBAL_ONLY); |
| 168 #endif | 204 #endif |
| 169 | 205 |
| 170 #ifdef SQLITE_OMIT_AUTHORIZATION | 206 #ifdef SQLITE_OMIT_AUTHORIZATION |
| 171 Tcl_SetVar2(interp, "sqlite_options", "auth", "0", TCL_GLOBAL_ONLY); | 207 Tcl_SetVar2(interp, "sqlite_options", "auth", "0", TCL_GLOBAL_ONLY); |
| 172 #else | 208 #else |
| 173 Tcl_SetVar2(interp, "sqlite_options", "auth", "1", TCL_GLOBAL_ONLY); | 209 Tcl_SetVar2(interp, "sqlite_options", "auth", "1", TCL_GLOBAL_ONLY); |
| (...skipping 153 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 327 #else | 363 #else |
| 328 Tcl_SetVar2(interp, "sqlite_options", "fts2", "0", TCL_GLOBAL_ONLY); | 364 Tcl_SetVar2(interp, "sqlite_options", "fts2", "0", TCL_GLOBAL_ONLY); |
| 329 #endif | 365 #endif |
| 330 | 366 |
| 331 #ifdef SQLITE_ENABLE_FTS3 | 367 #ifdef SQLITE_ENABLE_FTS3 |
| 332 Tcl_SetVar2(interp, "sqlite_options", "fts3", "1", TCL_GLOBAL_ONLY); | 368 Tcl_SetVar2(interp, "sqlite_options", "fts3", "1", TCL_GLOBAL_ONLY); |
| 333 #else | 369 #else |
| 334 Tcl_SetVar2(interp, "sqlite_options", "fts3", "0", TCL_GLOBAL_ONLY); | 370 Tcl_SetVar2(interp, "sqlite_options", "fts3", "0", TCL_GLOBAL_ONLY); |
| 335 #endif | 371 #endif |
| 336 | 372 |
| 373 #ifdef SQLITE_ENABLE_FTS5 |
| 374 Tcl_SetVar2(interp, "sqlite_options", "fts5", "1", TCL_GLOBAL_ONLY); |
| 375 #else |
| 376 Tcl_SetVar2(interp, "sqlite_options", "fts5", "0", TCL_GLOBAL_ONLY); |
| 377 #endif |
| 378 |
| 337 #if defined(SQLITE_ENABLE_FTS3) && !defined(SQLITE_DISABLE_FTS3_UNICODE) | 379 #if defined(SQLITE_ENABLE_FTS3) && !defined(SQLITE_DISABLE_FTS3_UNICODE) |
| 338 Tcl_SetVar2(interp, "sqlite_options", "fts3_unicode", "1", TCL_GLOBAL_ONLY); | 380 Tcl_SetVar2(interp, "sqlite_options", "fts3_unicode", "1", TCL_GLOBAL_ONLY); |
| 339 #else | 381 #else |
| 340 Tcl_SetVar2(interp, "sqlite_options", "fts3_unicode", "0", TCL_GLOBAL_ONLY); | 382 Tcl_SetVar2(interp, "sqlite_options", "fts3_unicode", "0", TCL_GLOBAL_ONLY); |
| 341 #endif | 383 #endif |
| 342 | 384 |
| 343 #ifdef SQLITE_DISABLE_FTS4_DEFERRED | 385 #ifdef SQLITE_DISABLE_FTS4_DEFERRED |
| 344 Tcl_SetVar2(interp, "sqlite_options", "fts4_deferred", "0", TCL_GLOBAL_ONLY); | 386 Tcl_SetVar2(interp, "sqlite_options", "fts4_deferred", "0", TCL_GLOBAL_ONLY); |
| 345 #else | 387 #else |
| 346 Tcl_SetVar2(interp, "sqlite_options", "fts4_deferred", "1", TCL_GLOBAL_ONLY); | 388 Tcl_SetVar2(interp, "sqlite_options", "fts4_deferred", "1", TCL_GLOBAL_ONLY); |
| (...skipping 70 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 417 #endif | 459 #endif |
| 418 | 460 |
| 419 Tcl_SetVar2(interp, "sqlite_options", "mergesort", "1", TCL_GLOBAL_ONLY); | 461 Tcl_SetVar2(interp, "sqlite_options", "mergesort", "1", TCL_GLOBAL_ONLY); |
| 420 | 462 |
| 421 #ifdef SQLITE_OMIT_OR_OPTIMIZATION | 463 #ifdef SQLITE_OMIT_OR_OPTIMIZATION |
| 422 Tcl_SetVar2(interp, "sqlite_options", "or_opt", "0", TCL_GLOBAL_ONLY); | 464 Tcl_SetVar2(interp, "sqlite_options", "or_opt", "0", TCL_GLOBAL_ONLY); |
| 423 #else | 465 #else |
| 424 Tcl_SetVar2(interp, "sqlite_options", "or_opt", "1", TCL_GLOBAL_ONLY); | 466 Tcl_SetVar2(interp, "sqlite_options", "or_opt", "1", TCL_GLOBAL_ONLY); |
| 425 #endif | 467 #endif |
| 426 | 468 |
| 469 #ifdef SQLITE_ENABLE_RBU |
| 470 Tcl_SetVar2(interp, "sqlite_options", "rbu", "1", TCL_GLOBAL_ONLY); |
| 471 #else |
| 472 Tcl_SetVar2(interp, "sqlite_options", "rbu", "0", TCL_GLOBAL_ONLY); |
| 473 #endif |
| 474 |
| 427 #ifdef SQLITE_OMIT_PAGER_PRAGMAS | 475 #ifdef SQLITE_OMIT_PAGER_PRAGMAS |
| 428 Tcl_SetVar2(interp, "sqlite_options", "pager_pragmas", "0", TCL_GLOBAL_ONLY); | 476 Tcl_SetVar2(interp, "sqlite_options", "pager_pragmas", "0", TCL_GLOBAL_ONLY); |
| 429 #else | 477 #else |
| 430 Tcl_SetVar2(interp, "sqlite_options", "pager_pragmas", "1", TCL_GLOBAL_ONLY); | 478 Tcl_SetVar2(interp, "sqlite_options", "pager_pragmas", "1", TCL_GLOBAL_ONLY); |
| 431 #endif | 479 #endif |
| 432 | 480 |
| 433 #if defined(SQLITE_OMIT_PRAGMA) || defined(SQLITE_OMIT_FLAG_PRAGMAS) | 481 #if defined(SQLITE_OMIT_PRAGMA) || defined(SQLITE_OMIT_FLAG_PRAGMAS) |
| 434 Tcl_SetVar2(interp, "sqlite_options", "pragma", "0", TCL_GLOBAL_ONLY); | 482 Tcl_SetVar2(interp, "sqlite_options", "pragma", "0", TCL_GLOBAL_ONLY); |
| 435 Tcl_SetVar2(interp, "sqlite_options", "integrityck", "0", TCL_GLOBAL_ONLY); | 483 Tcl_SetVar2(interp, "sqlite_options", "integrityck", "0", TCL_GLOBAL_ONLY); |
| 436 #else | 484 #else |
| (...skipping 40 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 477 Tcl_SetVar2(interp, "sqlite_options", "stat4", "1", TCL_GLOBAL_ONLY); | 525 Tcl_SetVar2(interp, "sqlite_options", "stat4", "1", TCL_GLOBAL_ONLY); |
| 478 #else | 526 #else |
| 479 Tcl_SetVar2(interp, "sqlite_options", "stat4", "0", TCL_GLOBAL_ONLY); | 527 Tcl_SetVar2(interp, "sqlite_options", "stat4", "0", TCL_GLOBAL_ONLY); |
| 480 #endif | 528 #endif |
| 481 #if defined(SQLITE_ENABLE_STAT3) && !defined(SQLITE_ENABLE_STAT4) | 529 #if defined(SQLITE_ENABLE_STAT3) && !defined(SQLITE_ENABLE_STAT4) |
| 482 Tcl_SetVar2(interp, "sqlite_options", "stat3", "1", TCL_GLOBAL_ONLY); | 530 Tcl_SetVar2(interp, "sqlite_options", "stat3", "1", TCL_GLOBAL_ONLY); |
| 483 #else | 531 #else |
| 484 Tcl_SetVar2(interp, "sqlite_options", "stat3", "0", TCL_GLOBAL_ONLY); | 532 Tcl_SetVar2(interp, "sqlite_options", "stat3", "0", TCL_GLOBAL_ONLY); |
| 485 #endif | 533 #endif |
| 486 | 534 |
| 535 #ifdef SQLITE_ENABLE_STMT_SCANSTATUS |
| 536 Tcl_SetVar2(interp, "sqlite_options", "scanstatus", "1", TCL_GLOBAL_ONLY); |
| 537 #else |
| 538 Tcl_SetVar2(interp, "sqlite_options", "scanstatus", "0", TCL_GLOBAL_ONLY); |
| 539 #endif |
| 540 |
| 487 #if !defined(SQLITE_ENABLE_LOCKING_STYLE) | 541 #if !defined(SQLITE_ENABLE_LOCKING_STYLE) |
| 488 # if defined(__APPLE__) | 542 # if defined(__APPLE__) |
| 489 # define SQLITE_ENABLE_LOCKING_STYLE 1 | 543 # define SQLITE_ENABLE_LOCKING_STYLE 1 |
| 490 # else | 544 # else |
| 491 # define SQLITE_ENABLE_LOCKING_STYLE 0 | 545 # define SQLITE_ENABLE_LOCKING_STYLE 0 |
| 492 # endif | 546 # endif |
| 493 #endif | 547 #endif |
| 494 #if SQLITE_ENABLE_LOCKING_STYLE && defined(__APPLE__) | 548 #if SQLITE_ENABLE_LOCKING_STYLE && defined(__APPLE__) |
| 495 Tcl_SetVar2(interp,"sqlite_options","lock_proxy_pragmas","1",TCL_GLOBAL_ONLY); | 549 Tcl_SetVar2(interp,"sqlite_options","lock_proxy_pragmas","1",TCL_GLOBAL_ONLY); |
| 496 #else | 550 #else |
| (...skipping 117 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 614 #else | 668 #else |
| 615 Tcl_SetVar2(interp, "sqlite_options", "multiplex_ext_overwrite", "0", TCL_GLOB
AL_ONLY); | 669 Tcl_SetVar2(interp, "sqlite_options", "multiplex_ext_overwrite", "0", TCL_GLOB
AL_ONLY); |
| 616 #endif | 670 #endif |
| 617 | 671 |
| 618 #ifdef YYTRACKMAXSTACKDEPTH | 672 #ifdef YYTRACKMAXSTACKDEPTH |
| 619 Tcl_SetVar2(interp, "sqlite_options", "yytrackmaxstackdepth", "1", TCL_GLOBAL_
ONLY); | 673 Tcl_SetVar2(interp, "sqlite_options", "yytrackmaxstackdepth", "1", TCL_GLOBAL_
ONLY); |
| 620 #else | 674 #else |
| 621 Tcl_SetVar2(interp, "sqlite_options", "yytrackmaxstackdepth", "0", TCL_GLOBAL_
ONLY); | 675 Tcl_SetVar2(interp, "sqlite_options", "yytrackmaxstackdepth", "0", TCL_GLOBAL_
ONLY); |
| 622 #endif | 676 #endif |
| 623 | 677 |
| 678 #ifdef SQLITE_ENABLE_SQLLOG |
| 679 Tcl_SetVar2(interp, "sqlite_options", "sqllog", "1", TCL_GLOBAL_ONLY); |
| 680 #else |
| 681 Tcl_SetVar2(interp, "sqlite_options", "sqllog", "0", TCL_GLOBAL_ONLY); |
| 682 #endif |
| 683 |
| 624 #define LINKVAR(x) { \ | 684 #define LINKVAR(x) { \ |
| 625 static const int cv_ ## x = SQLITE_ ## x; \ | 685 static const int cv_ ## x = SQLITE_ ## x; \ |
| 626 Tcl_LinkVar(interp, "SQLITE_" #x, (char *)&(cv_ ## x), \ | 686 Tcl_LinkVar(interp, "SQLITE_" #x, (char *)&(cv_ ## x), \ |
| 627 TCL_LINK_INT | TCL_LINK_READ_ONLY); } | 687 TCL_LINK_INT | TCL_LINK_READ_ONLY); } |
| 628 | 688 |
| 629 LINKVAR( MAX_LENGTH ); | 689 LINKVAR( MAX_LENGTH ); |
| 630 LINKVAR( MAX_COLUMN ); | 690 LINKVAR( MAX_COLUMN ); |
| 631 LINKVAR( MAX_SQL_LENGTH ); | 691 LINKVAR( MAX_SQL_LENGTH ); |
| 632 LINKVAR( MAX_EXPR_DEPTH ); | 692 LINKVAR( MAX_EXPR_DEPTH ); |
| 633 LINKVAR( MAX_COMPOUND_SELECT ); | 693 LINKVAR( MAX_COMPOUND_SELECT ); |
| 634 LINKVAR( MAX_VDBE_OP ); | 694 LINKVAR( MAX_VDBE_OP ); |
| 635 LINKVAR( MAX_FUNCTION_ARG ); | 695 LINKVAR( MAX_FUNCTION_ARG ); |
| 636 LINKVAR( MAX_VARIABLE_NUMBER ); | 696 LINKVAR( MAX_VARIABLE_NUMBER ); |
| 637 LINKVAR( MAX_PAGE_SIZE ); | 697 LINKVAR( MAX_PAGE_SIZE ); |
| 638 LINKVAR( MAX_PAGE_COUNT ); | 698 LINKVAR( MAX_PAGE_COUNT ); |
| 639 LINKVAR( MAX_LIKE_PATTERN_LENGTH ); | 699 LINKVAR( MAX_LIKE_PATTERN_LENGTH ); |
| 640 LINKVAR( MAX_TRIGGER_DEPTH ); | 700 LINKVAR( MAX_TRIGGER_DEPTH ); |
| 641 LINKVAR( DEFAULT_TEMP_CACHE_SIZE ); | |
| 642 LINKVAR( DEFAULT_CACHE_SIZE ); | 701 LINKVAR( DEFAULT_CACHE_SIZE ); |
| 643 LINKVAR( DEFAULT_PAGE_SIZE ); | 702 LINKVAR( DEFAULT_PAGE_SIZE ); |
| 644 LINKVAR( DEFAULT_FILE_FORMAT ); | 703 LINKVAR( DEFAULT_FILE_FORMAT ); |
| 645 LINKVAR( MAX_ATTACHED ); | 704 LINKVAR( MAX_ATTACHED ); |
| 646 LINKVAR( MAX_DEFAULT_PAGE_SIZE ); | 705 LINKVAR( MAX_DEFAULT_PAGE_SIZE ); |
| 647 LINKVAR( MAX_WORKER_THREADS ); | 706 LINKVAR( MAX_WORKER_THREADS ); |
| 648 | 707 |
| 649 { | 708 { |
| 650 static const int cv_TEMP_STORE = SQLITE_TEMP_STORE; | 709 static const int cv_TEMP_STORE = SQLITE_TEMP_STORE; |
| 651 Tcl_LinkVar(interp, "TEMP_STORE", (char *)&(cv_TEMP_STORE), | 710 Tcl_LinkVar(interp, "TEMP_STORE", (char *)&(cv_TEMP_STORE), |
| (...skipping 17 matching lines...) Expand all Loading... |
| 669 } | 728 } |
| 670 | 729 |
| 671 | 730 |
| 672 /* | 731 /* |
| 673 ** Register commands with the TCL interpreter. | 732 ** Register commands with the TCL interpreter. |
| 674 */ | 733 */ |
| 675 int Sqliteconfig_Init(Tcl_Interp *interp){ | 734 int Sqliteconfig_Init(Tcl_Interp *interp){ |
| 676 set_options(interp); | 735 set_options(interp); |
| 677 return TCL_OK; | 736 return TCL_OK; |
| 678 } | 737 } |
| OLD | NEW |