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