4 ** The author disclaims copyright to this source code. In place of
5 ** a legal notice, here is a blessing:
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.
11 *************************************************************************
13 ** This file contains code used for testing the SQLite system.
14 ** None of the code in this file goes into a deliverable build.
16 ** The focus of this file is providing the TCL testing layer
17 ** access to compile-time constants.
20 #include "sqliteLimit.h"
22 #include "sqliteInt.h"
27 #include "tclsqlite.h"
32 ** Macro to stringify the results of the evaluation a pre-processor
33 ** macro. i.e. so that STRINGVALUE(SQLITE_NOMEM) -> "7".
35 #define STRINGVALUE2(x) #x
36 #define STRINGVALUE(x) STRINGVALUE2(x)
39 ** This routine sets entries in the global ::sqlite_options() array variable
40 ** according to the compile-time configuration of the database. Test
41 ** procedures use this to determine when tests should be omitted.
43 static void set_options(Tcl_Interp
*interp
){
44 #if HAVE_MALLOC_USABLE_SIZE
45 Tcl_SetVar2(interp
, "sqlite_options", "malloc_usable_size", "1",
48 Tcl_SetVar2(interp
, "sqlite_options", "malloc_usable_size", "0",
52 #ifdef SQLITE_32BIT_ROWID
53 Tcl_SetVar2(interp
, "sqlite_options", "rowid32", "1", TCL_GLOBAL_ONLY
);
55 Tcl_SetVar2(interp
, "sqlite_options", "rowid32", "0", TCL_GLOBAL_ONLY
);
58 #ifdef SQLITE_ALLOW_ROWID_IN_VIEW
60 interp
, "sqlite_options", "allow_rowid_in_view", "1", TCL_GLOBAL_ONLY
);
63 interp
, "sqlite_options", "allow_rowid_in_view", "0", TCL_GLOBAL_ONLY
);
66 #ifdef SQLITE_CASE_SENSITIVE_LIKE
67 Tcl_SetVar2(interp
, "sqlite_options","casesensitivelike","1",TCL_GLOBAL_ONLY
);
69 Tcl_SetVar2(interp
, "sqlite_options","casesensitivelike","0",TCL_GLOBAL_ONLY
);
72 #ifdef CONFIG_SLOWDOWN_FACTOR
73 Tcl_SetVar2(interp
, "sqlite_options","configslower",
74 STRINGVALUE(CONFIG_SLOWDOWN_FACTOR
),TCL_GLOBAL_ONLY
);
76 Tcl_SetVar2(interp
, "sqlite_options","configslower","1.0",TCL_GLOBAL_ONLY
);
79 #if !SQLITE_OS_WINCE && !SQLITE_OS_WINRT
80 Tcl_SetVar2(interp
, "sqlite_options", "curdir", "1", TCL_GLOBAL_ONLY
);
82 Tcl_SetVar2(interp
, "sqlite_options", "curdir", "0", TCL_GLOBAL_ONLY
);
85 #ifdef SQLITE_WIN32_MALLOC
86 Tcl_SetVar2(interp
, "sqlite_options", "win32malloc", "1", TCL_GLOBAL_ONLY
);
88 Tcl_SetVar2(interp
, "sqlite_options", "win32malloc", "0", TCL_GLOBAL_ONLY
);
92 Tcl_SetVar2(interp
, "sqlite_options", "debug", "1", TCL_GLOBAL_ONLY
);
94 Tcl_SetVar2(interp
, "sqlite_options", "debug", "0", TCL_GLOBAL_ONLY
);
97 #ifdef SQLITE_DEFAULT_CKPTFULLFSYNC
98 Tcl_SetVar2(interp
, "sqlite_options", "default_ckptfullfsync",
99 SQLITE_DEFAULT_CKPTFULLFSYNC
? "1" : "0", TCL_GLOBAL_ONLY
);
101 Tcl_SetVar2(interp
, "sqlite_options", "default_ckptfullfsync", "0", TCL_GLOBAL_ONLY
);
104 #ifdef SQLITE_DIRECT_OVERFLOW_READ
105 Tcl_SetVar2(interp
, "sqlite_options", "direct_read", "1", TCL_GLOBAL_ONLY
);
107 Tcl_SetVar2(interp
, "sqlite_options", "direct_read", "0", TCL_GLOBAL_ONLY
);
110 #ifdef SQLITE_DISABLE_DIRSYNC
111 Tcl_SetVar2(interp
, "sqlite_options", "dirsync", "0", TCL_GLOBAL_ONLY
);
113 Tcl_SetVar2(interp
, "sqlite_options", "dirsync", "1", TCL_GLOBAL_ONLY
);
116 #ifdef SQLITE_DISABLE_LFS
117 Tcl_SetVar2(interp
, "sqlite_options", "lfs", "0", TCL_GLOBAL_ONLY
);
119 Tcl_SetVar2(interp
, "sqlite_options", "lfs", "1", TCL_GLOBAL_ONLY
);
122 #ifdef SQLITE_DISABLE_PAGECACHE_OVERFLOW_STATS
123 Tcl_SetVar2(interp
, "sqlite_options", "pagecache_overflow_stats","0",TCL_GLOBAL_ONLY
);
125 Tcl_SetVar2(interp
, "sqlite_options", "pagecache_overflow_stats","1",TCL_GLOBAL_ONLY
);
128 #if SQLITE_MAX_MMAP_SIZE>0
129 Tcl_SetVar2(interp
, "sqlite_options", "mmap", "1", TCL_GLOBAL_ONLY
);
131 Tcl_SetVar2(interp
, "sqlite_options", "mmap", "0", TCL_GLOBAL_ONLY
);
134 Tcl_SetVar2(interp
, "sqlite_options", "worker_threads",
135 STRINGVALUE(SQLITE_MAX_WORKER_THREADS
), TCL_GLOBAL_ONLY
138 #ifdef SQLITE_MEMDEBUG
139 Tcl_SetVar2(interp
, "sqlite_options", "memdebug", "1", TCL_GLOBAL_ONLY
);
141 Tcl_SetVar2(interp
, "sqlite_options", "memdebug", "0", TCL_GLOBAL_ONLY
);
144 #ifdef SQLITE_ENABLE_8_3_NAMES
145 Tcl_SetVar2(interp
, "sqlite_options", "8_3_names", "1", TCL_GLOBAL_ONLY
);
147 Tcl_SetVar2(interp
, "sqlite_options", "8_3_names", "0", TCL_GLOBAL_ONLY
);
150 #ifdef SQLITE_ENABLE_CURSOR_HINTS
151 Tcl_SetVar2(interp
, "sqlite_options", "cursorhints", "1", TCL_GLOBAL_ONLY
);
153 Tcl_SetVar2(interp
, "sqlite_options", "cursorhints", "0", TCL_GLOBAL_ONLY
);
156 #ifdef SQLITE_ENABLE_HIDDEN_COLUMNS
157 Tcl_SetVar2(interp
, "sqlite_options", "hiddencolumns", "1", TCL_GLOBAL_ONLY
);
159 Tcl_SetVar2(interp
, "sqlite_options", "hiddencolumns", "0", TCL_GLOBAL_ONLY
);
162 #ifndef SQLITE_OMIT_DESERIALIZE
163 Tcl_SetVar2(interp
, "sqlite_options", "deserialize", "1", TCL_GLOBAL_ONLY
);
165 Tcl_SetVar2(interp
, "sqlite_options", "deserialize", "0", TCL_GLOBAL_ONLY
);
168 #ifdef SQLITE_ENABLE_MATH_FUNCTIONS
169 Tcl_SetVar2(interp
, "sqlite_options", "mathlib", "1", TCL_GLOBAL_ONLY
);
171 Tcl_SetVar2(interp
, "sqlite_options", "mathlib", "0", TCL_GLOBAL_ONLY
);
174 #ifdef SQLITE_ENABLE_MEMSYS3
175 Tcl_SetVar2(interp
, "sqlite_options", "mem3", "1", TCL_GLOBAL_ONLY
);
177 Tcl_SetVar2(interp
, "sqlite_options", "mem3", "0", TCL_GLOBAL_ONLY
);
180 #ifdef SQLITE_ENABLE_MEMSYS5
181 Tcl_SetVar2(interp
, "sqlite_options", "mem5", "1", TCL_GLOBAL_ONLY
);
183 Tcl_SetVar2(interp
, "sqlite_options", "mem5", "0", TCL_GLOBAL_ONLY
);
186 #ifdef SQLITE_ENABLE_OFFSET_SQL_FUNC
187 Tcl_SetVar2(interp
, "sqlite_options", "offset_sql_func","1",TCL_GLOBAL_ONLY
);
189 Tcl_SetVar2(interp
, "sqlite_options", "offset_sql_func","0",TCL_GLOBAL_ONLY
);
192 #ifdef SQLITE_ENABLE_ORDERED_SET_AGGREGATES
193 Tcl_SetVar2(interp
, "sqlite_options",
194 "ordered_set_aggregates","1",TCL_GLOBAL_ONLY
);
196 Tcl_SetVar2(interp
, "sqlite_options",
197 "ordered_set_aggregates","0",TCL_GLOBAL_ONLY
);
200 #ifdef SQLITE_ENABLE_PREUPDATE_HOOK
201 Tcl_SetVar2(interp
, "sqlite_options", "preupdate", "1", TCL_GLOBAL_ONLY
);
203 Tcl_SetVar2(interp
, "sqlite_options", "preupdate", "0", TCL_GLOBAL_ONLY
);
206 #ifdef SQLITE_ENABLE_SNAPSHOT
207 Tcl_SetVar2(interp
, "sqlite_options", "snapshot", "1", TCL_GLOBAL_ONLY
);
209 Tcl_SetVar2(interp
, "sqlite_options", "snapshot", "0", TCL_GLOBAL_ONLY
);
212 #ifdef SQLITE_MUTEX_OMIT
213 Tcl_SetVar2(interp
, "sqlite_options", "mutex", "0", TCL_GLOBAL_ONLY
);
215 Tcl_SetVar2(interp
, "sqlite_options", "mutex", "1", TCL_GLOBAL_ONLY
);
218 #ifdef SQLITE_MUTEX_NOOP
219 Tcl_SetVar2(interp
, "sqlite_options", "mutex_noop", "1", TCL_GLOBAL_ONLY
);
221 Tcl_SetVar2(interp
, "sqlite_options", "mutex_noop", "0", TCL_GLOBAL_ONLY
);
224 #ifdef SQLITE_OMIT_ALTERTABLE
225 Tcl_SetVar2(interp
, "sqlite_options", "altertable", "0", TCL_GLOBAL_ONLY
);
227 Tcl_SetVar2(interp
, "sqlite_options", "altertable", "1", TCL_GLOBAL_ONLY
);
230 #ifdef SQLITE_OMIT_ANALYZE
231 Tcl_SetVar2(interp
, "sqlite_options", "analyze", "0", TCL_GLOBAL_ONLY
);
233 Tcl_SetVar2(interp
, "sqlite_options", "analyze", "1", TCL_GLOBAL_ONLY
);
236 #ifdef SQLITE_ENABLE_API_ARMOR
237 Tcl_SetVar2(interp
, "sqlite_options", "api_armor", "1", TCL_GLOBAL_ONLY
);
239 Tcl_SetVar2(interp
, "sqlite_options", "api_armor", "0", TCL_GLOBAL_ONLY
);
242 #ifdef SQLITE_ENABLE_ATOMIC_WRITE
243 Tcl_SetVar2(interp
, "sqlite_options", "atomicwrite", "1", TCL_GLOBAL_ONLY
);
245 Tcl_SetVar2(interp
, "sqlite_options", "atomicwrite", "0", TCL_GLOBAL_ONLY
);
248 #ifdef SQLITE_ENABLE_GEOPOLY
249 Tcl_SetVar2(interp
, "sqlite_options", "geopoly", "1", TCL_GLOBAL_ONLY
);
251 Tcl_SetVar2(interp
, "sqlite_options", "geopoly", "0", TCL_GLOBAL_ONLY
);
254 #ifndef SQLITE_OMIT_JSON
255 Tcl_SetVar2(interp
, "sqlite_options", "json1", "1", TCL_GLOBAL_ONLY
);
257 Tcl_SetVar2(interp
, "sqlite_options", "json1", "0", TCL_GLOBAL_ONLY
);
260 Tcl_SetVar2(interp
, "sqlite_options", "has_codec", "0", TCL_GLOBAL_ONLY
);
262 #ifdef SQLITE_LIKE_DOESNT_MATCH_BLOBS
263 Tcl_SetVar2(interp
, "sqlite_options", "like_match_blobs", "0", TCL_GLOBAL_ONLY
);
265 Tcl_SetVar2(interp
, "sqlite_options", "like_match_blobs", "1", TCL_GLOBAL_ONLY
);
268 #ifdef SQLITE_OMIT_ATTACH
269 Tcl_SetVar2(interp
, "sqlite_options", "attach", "0", TCL_GLOBAL_ONLY
);
271 Tcl_SetVar2(interp
, "sqlite_options", "attach", "1", TCL_GLOBAL_ONLY
);
274 #ifdef SQLITE_OMIT_AUTHORIZATION
275 Tcl_SetVar2(interp
, "sqlite_options", "auth", "0", TCL_GLOBAL_ONLY
);
277 Tcl_SetVar2(interp
, "sqlite_options", "auth", "1", TCL_GLOBAL_ONLY
);
280 #ifdef SQLITE_OMIT_AUTOINCREMENT
281 Tcl_SetVar2(interp
, "sqlite_options", "autoinc", "0", TCL_GLOBAL_ONLY
);
283 Tcl_SetVar2(interp
, "sqlite_options", "autoinc", "1", TCL_GLOBAL_ONLY
);
286 #ifdef SQLITE_OMIT_AUTOMATIC_INDEX
287 Tcl_SetVar2(interp
, "sqlite_options", "autoindex", "0", TCL_GLOBAL_ONLY
);
289 Tcl_SetVar2(interp
, "sqlite_options", "autoindex", "1", TCL_GLOBAL_ONLY
);
292 #ifdef SQLITE_OMIT_AUTORESET
293 Tcl_SetVar2(interp
, "sqlite_options", "autoreset", "0", TCL_GLOBAL_ONLY
);
295 Tcl_SetVar2(interp
, "sqlite_options", "autoreset", "1", TCL_GLOBAL_ONLY
);
298 #ifdef SQLITE_OMIT_AUTOVACUUM
299 Tcl_SetVar2(interp
, "sqlite_options", "autovacuum", "0", TCL_GLOBAL_ONLY
);
301 Tcl_SetVar2(interp
, "sqlite_options", "autovacuum", "1", TCL_GLOBAL_ONLY
);
302 #endif /* SQLITE_OMIT_AUTOVACUUM */
303 #if !defined(SQLITE_DEFAULT_AUTOVACUUM)
304 Tcl_SetVar2(interp
,"sqlite_options","default_autovacuum","0",TCL_GLOBAL_ONLY
);
306 Tcl_SetVar2(interp
, "sqlite_options", "default_autovacuum",
307 STRINGVALUE(SQLITE_DEFAULT_AUTOVACUUM
), TCL_GLOBAL_ONLY
);
310 #ifdef SQLITE_OMIT_BETWEEN_OPTIMIZATION
311 Tcl_SetVar2(interp
, "sqlite_options", "between_opt", "0", TCL_GLOBAL_ONLY
);
313 Tcl_SetVar2(interp
, "sqlite_options", "between_opt", "1", TCL_GLOBAL_ONLY
);
316 #ifdef SQLITE_UNTESTABLE
317 Tcl_SetVar2(interp
, "sqlite_options", "builtin_test", "0", TCL_GLOBAL_ONLY
);
319 Tcl_SetVar2(interp
, "sqlite_options", "builtin_test", "1", TCL_GLOBAL_ONLY
);
322 #ifdef SQLITE_OMIT_BLOB_LITERAL
323 Tcl_SetVar2(interp
, "sqlite_options", "bloblit", "0", TCL_GLOBAL_ONLY
);
325 Tcl_SetVar2(interp
, "sqlite_options", "bloblit", "1", TCL_GLOBAL_ONLY
);
328 #ifdef SQLITE_OMIT_CAST
329 Tcl_SetVar2(interp
, "sqlite_options", "cast", "0", TCL_GLOBAL_ONLY
);
331 Tcl_SetVar2(interp
, "sqlite_options", "cast", "1", TCL_GLOBAL_ONLY
);
334 #ifdef SQLITE_OMIT_CHECK
335 Tcl_SetVar2(interp
, "sqlite_options", "check", "0", TCL_GLOBAL_ONLY
);
337 Tcl_SetVar2(interp
, "sqlite_options", "check", "1", TCL_GLOBAL_ONLY
);
340 #ifdef SQLITE_OMIT_CTE
341 Tcl_SetVar2(interp
, "sqlite_options", "cte", "0", TCL_GLOBAL_ONLY
);
343 Tcl_SetVar2(interp
, "sqlite_options", "cte", "1", TCL_GLOBAL_ONLY
);
346 #ifdef SQLITE_ENABLE_COLUMN_METADATA
347 Tcl_SetVar2(interp
, "sqlite_options", "columnmetadata", "1", TCL_GLOBAL_ONLY
);
349 Tcl_SetVar2(interp
, "sqlite_options", "columnmetadata", "0", TCL_GLOBAL_ONLY
);
352 #ifdef SQLITE_ENABLE_ORDEREDSETFUNC
353 Tcl_SetVar2(interp
, "sqlite_options", "ordered_set_funcs", "1",
356 Tcl_SetVar2(interp
, "sqlite_options", "ordered_set_funcs", "0",
360 #ifdef SQLITE_ENABLE_OVERSIZE_CELL_CHECK
361 Tcl_SetVar2(interp
, "sqlite_options", "oversize_cell_check", "1",
364 Tcl_SetVar2(interp
, "sqlite_options", "oversize_cell_check", "0",
368 #ifdef SQLITE_OMIT_COMPILEOPTION_DIAGS
369 Tcl_SetVar2(interp
, "sqlite_options", "compileoption_diags", "0", TCL_GLOBAL_ONLY
);
371 Tcl_SetVar2(interp
, "sqlite_options", "compileoption_diags", "1", TCL_GLOBAL_ONLY
);
374 #ifdef SQLITE_OMIT_COMPLETE
375 Tcl_SetVar2(interp
, "sqlite_options", "complete", "0", TCL_GLOBAL_ONLY
);
377 Tcl_SetVar2(interp
, "sqlite_options", "complete", "1", TCL_GLOBAL_ONLY
);
380 #ifdef SQLITE_OMIT_COMPOUND_SELECT
381 Tcl_SetVar2(interp
, "sqlite_options", "compound", "0", TCL_GLOBAL_ONLY
);
383 Tcl_SetVar2(interp
, "sqlite_options", "compound", "1", TCL_GLOBAL_ONLY
);
386 Tcl_SetVar2(interp
, "sqlite_options", "conflict", "1", TCL_GLOBAL_ONLY
);
387 Tcl_SetVar2(interp
, "sqlite_options", "crashtest", "1", TCL_GLOBAL_ONLY
);
389 #ifdef SQLITE_OMIT_DATETIME_FUNCS
390 Tcl_SetVar2(interp
, "sqlite_options", "datetime", "0", TCL_GLOBAL_ONLY
);
392 Tcl_SetVar2(interp
, "sqlite_options", "datetime", "1", TCL_GLOBAL_ONLY
);
395 #ifdef SQLITE_OMIT_DECLTYPE
396 Tcl_SetVar2(interp
, "sqlite_options", "decltype", "0", TCL_GLOBAL_ONLY
);
398 Tcl_SetVar2(interp
, "sqlite_options", "decltype", "1", TCL_GLOBAL_ONLY
);
401 #ifdef SQLITE_OMIT_DEPRECATED
402 Tcl_SetVar2(interp
, "sqlite_options", "deprecated", "0", TCL_GLOBAL_ONLY
);
404 Tcl_SetVar2(interp
, "sqlite_options", "deprecated", "1", TCL_GLOBAL_ONLY
);
407 #ifdef SQLITE_OMIT_DISKIO
408 Tcl_SetVar2(interp
, "sqlite_options", "diskio", "0", TCL_GLOBAL_ONLY
);
410 Tcl_SetVar2(interp
, "sqlite_options", "diskio", "1", TCL_GLOBAL_ONLY
);
413 #ifdef SQLITE_OMIT_EXPLAIN
414 Tcl_SetVar2(interp
, "sqlite_options", "explain", "0", TCL_GLOBAL_ONLY
);
416 Tcl_SetVar2(interp
, "sqlite_options", "explain", "1", TCL_GLOBAL_ONLY
);
419 #ifdef SQLITE_OMIT_FLOATING_POINT
420 Tcl_SetVar2(interp
, "sqlite_options", "floatingpoint", "0", TCL_GLOBAL_ONLY
);
422 Tcl_SetVar2(interp
, "sqlite_options", "floatingpoint", "1", TCL_GLOBAL_ONLY
);
425 #ifdef SQLITE_OMIT_FOREIGN_KEY
426 Tcl_SetVar2(interp
, "sqlite_options", "foreignkey", "0", TCL_GLOBAL_ONLY
);
428 Tcl_SetVar2(interp
, "sqlite_options", "foreignkey", "1", TCL_GLOBAL_ONLY
);
431 #ifdef SQLITE_ENABLE_FTS3
432 Tcl_SetVar2(interp
, "sqlite_options", "fts3", "1", TCL_GLOBAL_ONLY
);
434 Tcl_SetVar2(interp
, "sqlite_options", "fts3", "0", TCL_GLOBAL_ONLY
);
437 #ifdef SQLITE_ENABLE_FTS5
438 Tcl_SetVar2(interp
, "sqlite_options", "fts5", "1", TCL_GLOBAL_ONLY
);
440 Tcl_SetVar2(interp
, "sqlite_options", "fts5", "0", TCL_GLOBAL_ONLY
);
443 #if defined(SQLITE_ENABLE_FTS3) && !defined(SQLITE_DISABLE_FTS3_UNICODE)
444 Tcl_SetVar2(interp
, "sqlite_options", "fts3_unicode", "1", TCL_GLOBAL_ONLY
);
446 Tcl_SetVar2(interp
, "sqlite_options", "fts3_unicode", "0", TCL_GLOBAL_ONLY
);
449 #ifdef SQLITE_DISABLE_FTS4_DEFERRED
450 Tcl_SetVar2(interp
, "sqlite_options", "fts4_deferred", "0", TCL_GLOBAL_ONLY
);
452 Tcl_SetVar2(interp
, "sqlite_options", "fts4_deferred", "1", TCL_GLOBAL_ONLY
);
455 #ifdef SQLITE_OMIT_GET_TABLE
456 Tcl_SetVar2(interp
, "sqlite_options", "gettable", "0", TCL_GLOBAL_ONLY
);
458 Tcl_SetVar2(interp
, "sqlite_options", "gettable", "1", TCL_GLOBAL_ONLY
);
461 #ifdef SQLITE_ENABLE_ICU
462 Tcl_SetVar2(interp
, "sqlite_options", "icu", "1", TCL_GLOBAL_ONLY
);
464 Tcl_SetVar2(interp
, "sqlite_options", "icu", "0", TCL_GLOBAL_ONLY
);
467 #ifdef SQLITE_ENABLE_ICU_COLLATIONS
468 Tcl_SetVar2(interp
, "sqlite_options", "icu_collations", "1", TCL_GLOBAL_ONLY
);
470 Tcl_SetVar2(interp
, "sqlite_options", "icu_collations", "0", TCL_GLOBAL_ONLY
);
473 #ifdef SQLITE_OMIT_INCRBLOB
474 Tcl_SetVar2(interp
, "sqlite_options", "incrblob", "0", TCL_GLOBAL_ONLY
);
476 Tcl_SetVar2(interp
, "sqlite_options", "incrblob", "1", TCL_GLOBAL_ONLY
);
477 #endif /* SQLITE_OMIT_AUTOVACUUM */
479 #ifdef SQLITE_OMIT_INTEGRITY_CHECK
480 Tcl_SetVar2(interp
, "sqlite_options", "integrityck", "0", TCL_GLOBAL_ONLY
);
482 Tcl_SetVar2(interp
, "sqlite_options", "integrityck", "1", TCL_GLOBAL_ONLY
);
485 #if defined(SQLITE_DEFAULT_FILE_FORMAT) && SQLITE_DEFAULT_FILE_FORMAT==1
486 Tcl_SetVar2(interp
, "sqlite_options", "legacyformat", "1", TCL_GLOBAL_ONLY
);
488 Tcl_SetVar2(interp
, "sqlite_options", "legacyformat", "0", TCL_GLOBAL_ONLY
);
491 #ifdef SQLITE_OMIT_LIKE_OPTIMIZATION
492 Tcl_SetVar2(interp
, "sqlite_options", "like_opt", "0", TCL_GLOBAL_ONLY
);
494 Tcl_SetVar2(interp
, "sqlite_options", "like_opt", "1", TCL_GLOBAL_ONLY
);
497 #ifdef SQLITE_OMIT_LOAD_EXTENSION
498 Tcl_SetVar2(interp
, "sqlite_options", "load_ext", "0", TCL_GLOBAL_ONLY
);
500 Tcl_SetVar2(interp
, "sqlite_options", "load_ext", "1", TCL_GLOBAL_ONLY
);
503 #ifdef SQLITE_OMIT_LOCALTIME
504 Tcl_SetVar2(interp
, "sqlite_options", "localtime", "0", TCL_GLOBAL_ONLY
);
506 Tcl_SetVar2(interp
, "sqlite_options", "localtime", "1", TCL_GLOBAL_ONLY
);
509 #ifdef SQLITE_OMIT_LOOKASIDE
510 Tcl_SetVar2(interp
, "sqlite_options", "lookaside", "0", TCL_GLOBAL_ONLY
);
512 Tcl_SetVar2(interp
, "sqlite_options", "lookaside", "1", TCL_GLOBAL_ONLY
);
515 Tcl_SetVar2(interp
, "sqlite_options", "long_double",
516 sizeof(LONGDOUBLE_TYPE
)>sizeof(double) ? "1" : "0",
519 #ifdef SQLITE_OMIT_MEMORYDB
520 Tcl_SetVar2(interp
, "sqlite_options", "memorydb", "0", TCL_GLOBAL_ONLY
);
522 Tcl_SetVar2(interp
, "sqlite_options", "memorydb", "1", TCL_GLOBAL_ONLY
);
525 #ifdef SQLITE_ENABLE_MEMORY_MANAGEMENT
526 Tcl_SetVar2(interp
, "sqlite_options", "memorymanage", "1", TCL_GLOBAL_ONLY
);
528 Tcl_SetVar2(interp
, "sqlite_options", "memorymanage", "0", TCL_GLOBAL_ONLY
);
531 Tcl_SetVar2(interp
, "sqlite_options", "mergesort", "1", TCL_GLOBAL_ONLY
);
533 #ifdef SQLITE_ENABLE_NULL_TRIM
534 Tcl_SetVar2(interp
, "sqlite_options", "null_trim", "1", TCL_GLOBAL_ONLY
);
536 Tcl_SetVar2(interp
, "sqlite_options", "null_trim", "0", TCL_GLOBAL_ONLY
);
539 #ifdef SQLITE_OMIT_OR_OPTIMIZATION
540 Tcl_SetVar2(interp
, "sqlite_options", "or_opt", "0", TCL_GLOBAL_ONLY
);
542 Tcl_SetVar2(interp
, "sqlite_options", "or_opt", "1", TCL_GLOBAL_ONLY
);
545 #ifdef SQLITE_ENABLE_RBU
546 Tcl_SetVar2(interp
, "sqlite_options", "rbu", "1", TCL_GLOBAL_ONLY
);
548 Tcl_SetVar2(interp
, "sqlite_options", "rbu", "0", TCL_GLOBAL_ONLY
);
551 #ifdef SQLITE_OMIT_PAGER_PRAGMAS
552 Tcl_SetVar2(interp
, "sqlite_options", "pager_pragmas", "0", TCL_GLOBAL_ONLY
);
554 Tcl_SetVar2(interp
, "sqlite_options", "pager_pragmas", "1", TCL_GLOBAL_ONLY
);
557 #if defined(SQLITE_OMIT_PRAGMA) || defined(SQLITE_OMIT_FLAG_PRAGMAS)
558 Tcl_SetVar2(interp
, "sqlite_options", "pragma", "0", TCL_GLOBAL_ONLY
);
559 Tcl_SetVar2(interp
, "sqlite_options", "integrityck", "0", TCL_GLOBAL_ONLY
);
561 Tcl_SetVar2(interp
, "sqlite_options", "pragma", "1", TCL_GLOBAL_ONLY
);
564 #ifdef SQLITE_OMIT_PROGRESS_CALLBACK
565 Tcl_SetVar2(interp
, "sqlite_options", "progress", "0", TCL_GLOBAL_ONLY
);
567 Tcl_SetVar2(interp
, "sqlite_options", "progress", "1", TCL_GLOBAL_ONLY
);
570 #ifdef SQLITE_OMIT_REINDEX
571 Tcl_SetVar2(interp
, "sqlite_options", "reindex", "0", TCL_GLOBAL_ONLY
);
573 Tcl_SetVar2(interp
, "sqlite_options", "reindex", "1", TCL_GLOBAL_ONLY
);
576 #ifdef SQLITE_ENABLE_RTREE
577 Tcl_SetVar2(interp
, "sqlite_options", "rtree", "1", TCL_GLOBAL_ONLY
);
579 Tcl_SetVar2(interp
, "sqlite_options", "rtree", "0", TCL_GLOBAL_ONLY
);
582 #ifdef SQLITE_RTREE_INT_ONLY
583 Tcl_SetVar2(interp
, "sqlite_options", "rtree_int_only", "1", TCL_GLOBAL_ONLY
);
585 Tcl_SetVar2(interp
, "sqlite_options", "rtree_int_only", "0", TCL_GLOBAL_ONLY
);
588 #ifdef SQLITE_OMIT_SCHEMA_PRAGMAS
589 Tcl_SetVar2(interp
, "sqlite_options", "schema_pragmas", "0", TCL_GLOBAL_ONLY
);
591 Tcl_SetVar2(interp
, "sqlite_options", "schema_pragmas", "1", TCL_GLOBAL_ONLY
);
594 #ifdef SQLITE_OMIT_SCHEMA_VERSION_PRAGMAS
595 Tcl_SetVar2(interp
, "sqlite_options", "schema_version", "0", TCL_GLOBAL_ONLY
);
597 Tcl_SetVar2(interp
, "sqlite_options", "schema_version", "1", TCL_GLOBAL_ONLY
);
600 #if defined(SQLITE_ENABLE_SESSION) && defined(SQLITE_ENABLE_PREUPDATE_HOOK)
601 Tcl_SetVar2(interp
, "sqlite_options", "session", "1", TCL_GLOBAL_ONLY
);
603 Tcl_SetVar2(interp
, "sqlite_options", "session", "0", TCL_GLOBAL_ONLY
);
606 #ifdef SQLITE_ENABLE_STAT4
607 Tcl_SetVar2(interp
, "sqlite_options", "stat4", "1", TCL_GLOBAL_ONLY
);
609 Tcl_SetVar2(interp
, "sqlite_options", "stat4", "0", TCL_GLOBAL_ONLY
);
611 #if defined(SQLITE_ENABLE_STMTVTAB) && !defined(SQLITE_OMIT_VIRTUALTABLE)
612 Tcl_SetVar2(interp
, "sqlite_options", "stmtvtab", "1", TCL_GLOBAL_ONLY
);
614 Tcl_SetVar2(interp
, "sqlite_options", "stmtvtab", "0", TCL_GLOBAL_ONLY
);
617 #ifdef SQLITE_ENABLE_STMT_SCANSTATUS
618 Tcl_SetVar2(interp
, "sqlite_options", "scanstatus", "1", TCL_GLOBAL_ONLY
);
620 Tcl_SetVar2(interp
, "sqlite_options", "scanstatus", "0", TCL_GLOBAL_ONLY
);
623 #if !defined(SQLITE_ENABLE_LOCKING_STYLE)
624 # if defined(__APPLE__)
625 # define SQLITE_ENABLE_LOCKING_STYLE 1
627 # define SQLITE_ENABLE_LOCKING_STYLE 0
630 #if SQLITE_ENABLE_LOCKING_STYLE && defined(__APPLE__)
631 Tcl_SetVar2(interp
,"sqlite_options","lock_proxy_pragmas","1",TCL_GLOBAL_ONLY
);
633 Tcl_SetVar2(interp
,"sqlite_options","lock_proxy_pragmas","0",TCL_GLOBAL_ONLY
);
635 #if defined(SQLITE_PREFER_PROXY_LOCKING) && defined(__APPLE__)
636 Tcl_SetVar2(interp
,"sqlite_options","prefer_proxy_locking","1",TCL_GLOBAL_ONLY
);
638 Tcl_SetVar2(interp
,"sqlite_options","prefer_proxy_locking","0",TCL_GLOBAL_ONLY
);
642 #ifdef SQLITE_OMIT_SHARED_CACHE
643 Tcl_SetVar2(interp
, "sqlite_options", "shared_cache", "0", TCL_GLOBAL_ONLY
);
645 Tcl_SetVar2(interp
, "sqlite_options", "shared_cache", "1", TCL_GLOBAL_ONLY
);
648 #ifdef SQLITE_OMIT_SUBQUERY
649 Tcl_SetVar2(interp
, "sqlite_options", "subquery", "0", TCL_GLOBAL_ONLY
);
651 Tcl_SetVar2(interp
, "sqlite_options", "subquery", "1", TCL_GLOBAL_ONLY
);
654 #ifdef SQLITE_OMIT_TCL_VARIABLE
655 Tcl_SetVar2(interp
, "sqlite_options", "tclvar", "0", TCL_GLOBAL_ONLY
);
657 Tcl_SetVar2(interp
, "sqlite_options", "tclvar", "1", TCL_GLOBAL_ONLY
);
660 Tcl_SetVar2(interp
, "sqlite_options", "threadsafe",
661 SQLITE_THREADSAFE
? "1" : "0", TCL_GLOBAL_ONLY
);
662 Tcl_SetVar2(interp
, "sqlite_options", "threadsafe1",
663 SQLITE_THREADSAFE
==1 ? "1" : "0", TCL_GLOBAL_ONLY
);
664 Tcl_SetVar2(interp
, "sqlite_options", "threadsafe2",
665 SQLITE_THREADSAFE
==2 ? "1" : "0", TCL_GLOBAL_ONLY
);
666 assert( sqlite3_threadsafe()==SQLITE_THREADSAFE
);
668 #ifdef SQLITE_OMIT_TEMPDB
669 Tcl_SetVar2(interp
, "sqlite_options", "tempdb", "0", TCL_GLOBAL_ONLY
);
671 Tcl_SetVar2(interp
, "sqlite_options", "tempdb", "1", TCL_GLOBAL_ONLY
);
674 #ifdef SQLITE_OMIT_TRACE
675 Tcl_SetVar2(interp
, "sqlite_options", "trace", "0", TCL_GLOBAL_ONLY
);
677 Tcl_SetVar2(interp
, "sqlite_options", "trace", "1", TCL_GLOBAL_ONLY
);
680 #ifdef SQLITE_OMIT_TRIGGER
681 Tcl_SetVar2(interp
, "sqlite_options", "trigger", "0", TCL_GLOBAL_ONLY
);
683 Tcl_SetVar2(interp
, "sqlite_options", "trigger", "1", TCL_GLOBAL_ONLY
);
686 #ifdef SQLITE_OMIT_TRUNCATE_OPTIMIZATION
687 Tcl_SetVar2(interp
, "sqlite_options", "truncate_opt", "0", TCL_GLOBAL_ONLY
);
689 Tcl_SetVar2(interp
, "sqlite_options", "truncate_opt", "1", TCL_GLOBAL_ONLY
);
692 #ifdef SQLITE_OMIT_UTF16
693 Tcl_SetVar2(interp
, "sqlite_options", "utf16", "0", TCL_GLOBAL_ONLY
);
695 Tcl_SetVar2(interp
, "sqlite_options", "utf16", "1", TCL_GLOBAL_ONLY
);
698 #if defined(SQLITE_OMIT_VACUUM) || defined(SQLITE_OMIT_ATTACH)
699 Tcl_SetVar2(interp
, "sqlite_options", "vacuum", "0", TCL_GLOBAL_ONLY
);
701 Tcl_SetVar2(interp
, "sqlite_options", "vacuum", "1", TCL_GLOBAL_ONLY
);
704 #ifdef SQLITE_OMIT_VIEW
705 Tcl_SetVar2(interp
, "sqlite_options", "view", "0", TCL_GLOBAL_ONLY
);
707 Tcl_SetVar2(interp
, "sqlite_options", "view", "1", TCL_GLOBAL_ONLY
);
710 #ifdef SQLITE_OMIT_VIRTUALTABLE
711 Tcl_SetVar2(interp
, "sqlite_options", "vtab", "0", TCL_GLOBAL_ONLY
);
713 Tcl_SetVar2(interp
, "sqlite_options", "vtab", "1", TCL_GLOBAL_ONLY
);
716 #ifdef SQLITE_OMIT_WAL
717 Tcl_SetVar2(interp
, "sqlite_options", "wal", "0", TCL_GLOBAL_ONLY
);
719 Tcl_SetVar2(interp
, "sqlite_options", "wal", "1", TCL_GLOBAL_ONLY
);
722 #ifdef SQLITE_OMIT_WSD
723 Tcl_SetVar2(interp
, "sqlite_options", "wsd", "0", TCL_GLOBAL_ONLY
);
725 Tcl_SetVar2(interp
, "sqlite_options", "wsd", "1", TCL_GLOBAL_ONLY
);
728 #if defined(SQLITE_ENABLE_UPDATE_DELETE_LIMIT) && !defined(SQLITE_OMIT_SUBQUERY)
729 Tcl_SetVar2(interp
, "sqlite_options", "update_delete_limit", "1", TCL_GLOBAL_ONLY
);
731 Tcl_SetVar2(interp
, "sqlite_options", "update_delete_limit", "0", TCL_GLOBAL_ONLY
);
734 #if defined(SQLITE_ENABLE_UNLOCK_NOTIFY)
735 Tcl_SetVar2(interp
, "sqlite_options", "unlock_notify", "1", TCL_GLOBAL_ONLY
);
737 Tcl_SetVar2(interp
, "sqlite_options", "unlock_notify", "0", TCL_GLOBAL_ONLY
);
740 #ifdef SQLITE_FAST_SECURE_DELETE
741 Tcl_SetVar2(interp
, "sqlite_options", "fast_secure_delete", "1", TCL_GLOBAL_ONLY
);
743 Tcl_SetVar2(interp
, "sqlite_options", "fast_secure_delete", "0", TCL_GLOBAL_ONLY
);
746 #ifdef SQLITE_SECURE_DELETE
747 Tcl_SetVar2(interp
, "sqlite_options", "secure_delete", "1", TCL_GLOBAL_ONLY
);
749 Tcl_SetVar2(interp
, "sqlite_options", "secure_delete", "0", TCL_GLOBAL_ONLY
);
752 #ifdef SQLITE_USER_AUTHENTICATION
753 Tcl_SetVar2(interp
, "sqlite_options", "userauth", "1", TCL_GLOBAL_ONLY
);
755 Tcl_SetVar2(interp
, "sqlite_options", "userauth", "0", TCL_GLOBAL_ONLY
);
758 #ifdef SQLITE_MULTIPLEX_EXT_OVWR
759 Tcl_SetVar2(interp
, "sqlite_options", "multiplex_ext_overwrite", "1", TCL_GLOBAL_ONLY
);
761 Tcl_SetVar2(interp
, "sqlite_options", "multiplex_ext_overwrite", "0", TCL_GLOBAL_ONLY
);
764 #ifdef YYTRACKMAXSTACKDEPTH
765 Tcl_SetVar2(interp
, "sqlite_options", "yytrackmaxstackdepth", "1", TCL_GLOBAL_ONLY
);
767 Tcl_SetVar2(interp
, "sqlite_options", "yytrackmaxstackdepth", "0", TCL_GLOBAL_ONLY
);
770 #ifdef SQLITE_ENABLE_SQLLOG
771 Tcl_SetVar2(interp
, "sqlite_options", "sqllog", "1", TCL_GLOBAL_ONLY
);
773 Tcl_SetVar2(interp
, "sqlite_options", "sqllog", "0", TCL_GLOBAL_ONLY
);
776 #ifdef SQLITE_ENABLE_URI_00_ERROR
777 Tcl_SetVar2(interp
, "sqlite_options", "uri_00_error", "1", TCL_GLOBAL_ONLY
);
779 Tcl_SetVar2(interp
, "sqlite_options", "uri_00_error", "0", TCL_GLOBAL_ONLY
);
782 #if defined(SQLITE_ENABLE_NORMALIZE)
783 Tcl_SetVar2(interp
, "sqlite_options", "normalize", "1", TCL_GLOBAL_ONLY
);
785 Tcl_SetVar2(interp
, "sqlite_options", "normalize", "0", TCL_GLOBAL_ONLY
);
788 #ifdef SQLITE_OMIT_WINDOWFUNC
789 Tcl_SetVar2(interp
, "sqlite_options", "windowfunc", "0", TCL_GLOBAL_ONLY
);
791 Tcl_SetVar2(interp
, "sqlite_options", "windowfunc", "1", TCL_GLOBAL_ONLY
);
794 #define LINKVAR(x) { \
795 static const int cv_ ## x = SQLITE_ ## x; \
796 Tcl_LinkVar(interp, "SQLITE_" #x, (char *)&(cv_ ## x), \
797 TCL_LINK_INT | TCL_LINK_READ_ONLY); }
799 LINKVAR( MAX_LENGTH
);
800 LINKVAR( MAX_COLUMN
);
801 LINKVAR( MAX_SQL_LENGTH
);
802 LINKVAR( MAX_EXPR_DEPTH
);
803 LINKVAR( MAX_COMPOUND_SELECT
);
804 LINKVAR( MAX_VDBE_OP
);
805 LINKVAR( MAX_FUNCTION_ARG
);
806 LINKVAR( MAX_VARIABLE_NUMBER
);
807 LINKVAR( MAX_PAGE_SIZE
);
808 LINKVAR( MAX_PAGE_COUNT
);
809 LINKVAR( MAX_LIKE_PATTERN_LENGTH
);
810 LINKVAR( MAX_TRIGGER_DEPTH
);
811 LINKVAR( DEFAULT_CACHE_SIZE
);
812 LINKVAR( DEFAULT_PAGE_SIZE
);
813 LINKVAR( DEFAULT_FILE_FORMAT
);
814 LINKVAR( DEFAULT_SYNCHRONOUS
);
815 LINKVAR( DEFAULT_WAL_SYNCHRONOUS
);
816 LINKVAR( MAX_ATTACHED
);
817 LINKVAR( MAX_DEFAULT_PAGE_SIZE
);
818 LINKVAR( MAX_WORKER_THREADS
);
821 static const int cv_TEMP_STORE
= SQLITE_TEMP_STORE
;
822 Tcl_LinkVar(interp
, "TEMP_STORE", (char *)&(cv_TEMP_STORE
),
823 TCL_LINK_INT
| TCL_LINK_READ_ONLY
);
828 static const int cv__MSC_VER
= 1;
829 Tcl_LinkVar(interp
, "_MSC_VER", (char *)&(cv__MSC_VER
),
830 TCL_LINK_INT
| TCL_LINK_READ_ONLY
);
835 static const int cv___GNUC__
= 1;
836 Tcl_LinkVar(interp
, "__GNUC__", (char *)&(cv___GNUC__
),
837 TCL_LINK_INT
| TCL_LINK_READ_ONLY
);
844 ** Register commands with the TCL interpreter.
846 int Sqliteconfig_Init(Tcl_Interp
*interp
){