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 |