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 #include "tcl.h"
24 #include <stdlib.h>
25 #include <string.h>
26
27 /*
28 ** Macro to stringify the results of the evaluation a pre-processor
29 ** macro. i.e. so that STRINGVALUE(SQLITE_NOMEM) -> "7".
30 */
31 #define STRINGVALUE2(x) #x
32 #define STRINGVALUE(x) STRINGVALUE2(x)
33
34 /*
35 ** This routine sets entries in the global ::sqlite_options() array variable
36 ** according to the compile-time configuration of the database. Test
37 ** procedures use this to determine when tests should be omitted.
38 */
set_options(Tcl_Interp * interp)39 static void set_options(Tcl_Interp *interp){
40 #ifdef SQLITE_32BIT_ROWID
41 Tcl_SetVar2(interp, "sqlite_options", "rowid32", "1", TCL_GLOBAL_ONLY);
42 #else
43 Tcl_SetVar2(interp, "sqlite_options", "rowid32", "0", TCL_GLOBAL_ONLY);
44 #endif
45
46 #ifdef SQLITE_CASE_SENSITIVE_LIKE
47 Tcl_SetVar2(interp, "sqlite_options","casesensitivelike","1",TCL_GLOBAL_ONLY);
48 #else
49 Tcl_SetVar2(interp, "sqlite_options","casesensitivelike","0",TCL_GLOBAL_ONLY);
50 #endif
51
52 #ifdef SQLITE_DEBUG
53 Tcl_SetVar2(interp, "sqlite_options", "debug", "1", TCL_GLOBAL_ONLY);
54 #else
55 Tcl_SetVar2(interp, "sqlite_options", "debug", "0", TCL_GLOBAL_ONLY);
56 #endif
57
58 #ifdef SQLITE_DISABLE_DIRSYNC
59 Tcl_SetVar2(interp, "sqlite_options", "dirsync", "0", TCL_GLOBAL_ONLY);
60 #else
61 Tcl_SetVar2(interp, "sqlite_options", "dirsync", "1", TCL_GLOBAL_ONLY);
62 #endif
63
64 #ifdef SQLITE_DISABLE_LFS
65 Tcl_SetVar2(interp, "sqlite_options", "lfs", "0", TCL_GLOBAL_ONLY);
66 #else
67 Tcl_SetVar2(interp, "sqlite_options", "lfs", "1", TCL_GLOBAL_ONLY);
68 #endif
69
70 #if 1 /* def SQLITE_MEMDEBUG */
71 Tcl_SetVar2(interp, "sqlite_options", "memdebug", "1", TCL_GLOBAL_ONLY);
72 #else
73 Tcl_SetVar2(interp, "sqlite_options", "memdebug", "0", TCL_GLOBAL_ONLY);
74 #endif
75
76 #ifdef SQLITE_ENABLE_MEMSYS3
77 Tcl_SetVar2(interp, "sqlite_options", "mem3", "1", TCL_GLOBAL_ONLY);
78 #else
79 Tcl_SetVar2(interp, "sqlite_options", "mem3", "0", TCL_GLOBAL_ONLY);
80 #endif
81
82 #ifdef SQLITE_ENABLE_MEMSYS5
83 Tcl_SetVar2(interp, "sqlite_options", "mem5", "1", TCL_GLOBAL_ONLY);
84 #else
85 Tcl_SetVar2(interp, "sqlite_options", "mem5", "0", TCL_GLOBAL_ONLY);
86 #endif
87
88 #ifdef SQLITE_MUTEX_OMIT
89 Tcl_SetVar2(interp, "sqlite_options", "mutex", "0", TCL_GLOBAL_ONLY);
90 #else
91 Tcl_SetVar2(interp, "sqlite_options", "mutex", "1", TCL_GLOBAL_ONLY);
92 #endif
93
94 #ifdef SQLITE_MUTEX_NOOP
95 Tcl_SetVar2(interp, "sqlite_options", "mutex_noop", "1", TCL_GLOBAL_ONLY);
96 #else
97 Tcl_SetVar2(interp, "sqlite_options", "mutex_noop", "0", TCL_GLOBAL_ONLY);
98 #endif
99
100 #ifdef SQLITE_OMIT_ALTERTABLE
101 Tcl_SetVar2(interp, "sqlite_options", "altertable", "0", TCL_GLOBAL_ONLY);
102 #else
103 Tcl_SetVar2(interp, "sqlite_options", "altertable", "1", TCL_GLOBAL_ONLY);
104 #endif
105
106 #ifdef SQLITE_OMIT_ANALYZE
107 Tcl_SetVar2(interp, "sqlite_options", "analyze", "0", TCL_GLOBAL_ONLY);
108 #else
109 Tcl_SetVar2(interp, "sqlite_options", "analyze", "1", TCL_GLOBAL_ONLY);
110 #endif
111
112 #ifdef SQLITE_ENABLE_ATOMIC_WRITE
113 Tcl_SetVar2(interp, "sqlite_options", "atomicwrite", "1", TCL_GLOBAL_ONLY);
114 #else
115 Tcl_SetVar2(interp, "sqlite_options", "atomicwrite", "0", TCL_GLOBAL_ONLY);
116 #endif
117
118 #ifdef SQLITE_OMIT_ATTACH
119 Tcl_SetVar2(interp, "sqlite_options", "attach", "0", TCL_GLOBAL_ONLY);
120 #else
121 Tcl_SetVar2(interp, "sqlite_options", "attach", "1", TCL_GLOBAL_ONLY);
122 #endif
123
124 #ifdef SQLITE_OMIT_AUTHORIZATION
125 Tcl_SetVar2(interp, "sqlite_options", "auth", "0", TCL_GLOBAL_ONLY);
126 #else
127 Tcl_SetVar2(interp, "sqlite_options", "auth", "1", TCL_GLOBAL_ONLY);
128 #endif
129
130 #ifdef SQLITE_OMIT_AUTOINCREMENT
131 Tcl_SetVar2(interp, "sqlite_options", "autoinc", "0", TCL_GLOBAL_ONLY);
132 #else
133 Tcl_SetVar2(interp, "sqlite_options", "autoinc", "1", TCL_GLOBAL_ONLY);
134 #endif
135
136 #ifdef SQLITE_OMIT_AUTOMATIC_INDEX
137 Tcl_SetVar2(interp, "sqlite_options", "autoindex", "0", TCL_GLOBAL_ONLY);
138 #else
139 Tcl_SetVar2(interp, "sqlite_options", "autoindex", "1", TCL_GLOBAL_ONLY);
140 #endif
141
142 #ifdef SQLITE_OMIT_AUTORESET
143 Tcl_SetVar2(interp, "sqlite_options", "autoreset", "0", TCL_GLOBAL_ONLY);
144 #else
145 Tcl_SetVar2(interp, "sqlite_options", "autoreset", "1", TCL_GLOBAL_ONLY);
146 #endif
147
148 #ifdef SQLITE_OMIT_AUTOVACUUM
149 Tcl_SetVar2(interp, "sqlite_options", "autovacuum", "0", TCL_GLOBAL_ONLY);
150 #else
151 Tcl_SetVar2(interp, "sqlite_options", "autovacuum", "1", TCL_GLOBAL_ONLY);
152 #endif /* SQLITE_OMIT_AUTOVACUUM */
153 #if !defined(SQLITE_DEFAULT_AUTOVACUUM)
154 Tcl_SetVar2(interp,"sqlite_options","default_autovacuum","0",TCL_GLOBAL_ONLY);
155 #else
156 Tcl_SetVar2(interp, "sqlite_options", "default_autovacuum",
157 STRINGVALUE(SQLITE_DEFAULT_AUTOVACUUM), TCL_GLOBAL_ONLY);
158 #endif
159
160 #ifdef SQLITE_OMIT_BETWEEN_OPTIMIZATION
161 Tcl_SetVar2(interp, "sqlite_options", "between_opt", "0", TCL_GLOBAL_ONLY);
162 #else
163 Tcl_SetVar2(interp, "sqlite_options", "between_opt", "1", TCL_GLOBAL_ONLY);
164 #endif
165
166 #ifdef SQLITE_OMIT_BUILTIN_TEST
167 Tcl_SetVar2(interp, "sqlite_options", "builtin_test", "0", TCL_GLOBAL_ONLY);
168 #else
169 Tcl_SetVar2(interp, "sqlite_options", "builtin_test", "1", TCL_GLOBAL_ONLY);
170 #endif
171
172 #ifdef SQLITE_OMIT_BLOB_LITERAL
173 Tcl_SetVar2(interp, "sqlite_options", "bloblit", "0", TCL_GLOBAL_ONLY);
174 #else
175 Tcl_SetVar2(interp, "sqlite_options", "bloblit", "1", TCL_GLOBAL_ONLY);
176 #endif
177
178 #ifdef SQLITE_OMIT_CAST
179 Tcl_SetVar2(interp, "sqlite_options", "cast", "0", TCL_GLOBAL_ONLY);
180 #else
181 Tcl_SetVar2(interp, "sqlite_options", "cast", "1", TCL_GLOBAL_ONLY);
182 #endif
183
184 #ifdef SQLITE_OMIT_CHECK
185 Tcl_SetVar2(interp, "sqlite_options", "check", "0", TCL_GLOBAL_ONLY);
186 #else
187 Tcl_SetVar2(interp, "sqlite_options", "check", "1", TCL_GLOBAL_ONLY);
188 #endif
189
190 #ifdef SQLITE_ENABLE_COLUMN_METADATA
191 Tcl_SetVar2(interp, "sqlite_options", "columnmetadata", "1", TCL_GLOBAL_ONLY);
192 #else
193 Tcl_SetVar2(interp, "sqlite_options", "columnmetadata", "0", TCL_GLOBAL_ONLY);
194 #endif
195
196 #ifdef SQLITE_ENABLE_OVERSIZE_CELL_CHECK
197 Tcl_SetVar2(interp, "sqlite_options", "oversize_cell_check", "1",
198 TCL_GLOBAL_ONLY);
199 #else
200 Tcl_SetVar2(interp, "sqlite_options", "oversize_cell_check", "0",
201 TCL_GLOBAL_ONLY);
202 #endif
203
204 #ifdef SQLITE_OMIT_COMPILEOPTION_DIAGS
205 Tcl_SetVar2(interp, "sqlite_options", "compileoption_diags", "0", TCL_GLOBAL_ONLY);
206 #else
207 Tcl_SetVar2(interp, "sqlite_options", "compileoption_diags", "1", TCL_GLOBAL_ONLY);
208 #endif
209
210 #ifdef SQLITE_OMIT_COMPLETE
211 Tcl_SetVar2(interp, "sqlite_options", "complete", "0", TCL_GLOBAL_ONLY);
212 #else
213 Tcl_SetVar2(interp, "sqlite_options", "complete", "1", TCL_GLOBAL_ONLY);
214 #endif
215
216 #ifdef SQLITE_OMIT_COMPOUND_SELECT
217 Tcl_SetVar2(interp, "sqlite_options", "compound", "0", TCL_GLOBAL_ONLY);
218 #else
219 Tcl_SetVar2(interp, "sqlite_options", "compound", "1", TCL_GLOBAL_ONLY);
220 #endif
221
222 #ifdef SQLITE_OMIT_CONFLICT_CLAUSE
223 Tcl_SetVar2(interp, "sqlite_options", "conflict", "0", TCL_GLOBAL_ONLY);
224 #else
225 Tcl_SetVar2(interp, "sqlite_options", "conflict", "1", TCL_GLOBAL_ONLY);
226 #endif
227
228 #if SQLITE_OS_UNIX
229 Tcl_SetVar2(interp, "sqlite_options", "crashtest", "1", TCL_GLOBAL_ONLY);
230 #else
231 Tcl_SetVar2(interp, "sqlite_options", "crashtest", "0", TCL_GLOBAL_ONLY);
232 #endif
233
234 #ifdef SQLITE_OMIT_DATETIME_FUNCS
235 Tcl_SetVar2(interp, "sqlite_options", "datetime", "0", TCL_GLOBAL_ONLY);
236 #else
237 Tcl_SetVar2(interp, "sqlite_options", "datetime", "1", TCL_GLOBAL_ONLY);
238 #endif
239
240 #ifdef SQLITE_OMIT_DECLTYPE
241 Tcl_SetVar2(interp, "sqlite_options", "decltype", "0", TCL_GLOBAL_ONLY);
242 #else
243 Tcl_SetVar2(interp, "sqlite_options", "decltype", "1", TCL_GLOBAL_ONLY);
244 #endif
245
246 #ifdef SQLITE_OMIT_DEPRECATED
247 Tcl_SetVar2(interp, "sqlite_options", "deprecated", "0", TCL_GLOBAL_ONLY);
248 #else
249 Tcl_SetVar2(interp, "sqlite_options", "deprecated", "1", TCL_GLOBAL_ONLY);
250 #endif
251
252 #ifdef SQLITE_OMIT_DISKIO
253 Tcl_SetVar2(interp, "sqlite_options", "diskio", "0", TCL_GLOBAL_ONLY);
254 #else
255 Tcl_SetVar2(interp, "sqlite_options", "diskio", "1", TCL_GLOBAL_ONLY);
256 #endif
257
258 #ifdef SQLITE_OMIT_EXPLAIN
259 Tcl_SetVar2(interp, "sqlite_options", "explain", "0", TCL_GLOBAL_ONLY);
260 #else
261 Tcl_SetVar2(interp, "sqlite_options", "explain", "1", TCL_GLOBAL_ONLY);
262 #endif
263
264 #ifdef SQLITE_OMIT_FLOATING_POINT
265 Tcl_SetVar2(interp, "sqlite_options", "floatingpoint", "0", TCL_GLOBAL_ONLY);
266 #else
267 Tcl_SetVar2(interp, "sqlite_options", "floatingpoint", "1", TCL_GLOBAL_ONLY);
268 #endif
269
270 #ifdef SQLITE_OMIT_FOREIGN_KEY
271 Tcl_SetVar2(interp, "sqlite_options", "foreignkey", "0", TCL_GLOBAL_ONLY);
272 #else
273 Tcl_SetVar2(interp, "sqlite_options", "foreignkey", "1", TCL_GLOBAL_ONLY);
274 #endif
275
276 #ifdef SQLITE_ENABLE_FTS1
277 Tcl_SetVar2(interp, "sqlite_options", "fts1", "1", TCL_GLOBAL_ONLY);
278 #else
279 Tcl_SetVar2(interp, "sqlite_options", "fts1", "0", TCL_GLOBAL_ONLY);
280 #endif
281
282 #ifdef SQLITE_ENABLE_FTS2
283 Tcl_SetVar2(interp, "sqlite_options", "fts2", "1", TCL_GLOBAL_ONLY);
284 #else
285 Tcl_SetVar2(interp, "sqlite_options", "fts2", "0", TCL_GLOBAL_ONLY);
286 #endif
287
288 #ifdef SQLITE_ENABLE_FTS3
289 Tcl_SetVar2(interp, "sqlite_options", "fts3", "1", TCL_GLOBAL_ONLY);
290 #else
291 Tcl_SetVar2(interp, "sqlite_options", "fts3", "0", TCL_GLOBAL_ONLY);
292 #endif
293
294 #ifdef SQLITE_OMIT_GET_TABLE
295 Tcl_SetVar2(interp, "sqlite_options", "gettable", "0", TCL_GLOBAL_ONLY);
296 #else
297 Tcl_SetVar2(interp, "sqlite_options", "gettable", "1", TCL_GLOBAL_ONLY);
298 #endif
299
300 #ifdef SQLITE_ENABLE_ICU
301 Tcl_SetVar2(interp, "sqlite_options", "icu", "1", TCL_GLOBAL_ONLY);
302 #else
303 Tcl_SetVar2(interp, "sqlite_options", "icu", "0", TCL_GLOBAL_ONLY);
304 #endif
305
306 #ifdef SQLITE_OMIT_INCRBLOB
307 Tcl_SetVar2(interp, "sqlite_options", "incrblob", "0", TCL_GLOBAL_ONLY);
308 #else
309 Tcl_SetVar2(interp, "sqlite_options", "incrblob", "1", TCL_GLOBAL_ONLY);
310 #endif /* SQLITE_OMIT_AUTOVACUUM */
311
312 #ifdef SQLITE_OMIT_INTEGRITY_CHECK
313 Tcl_SetVar2(interp, "sqlite_options", "integrityck", "0", TCL_GLOBAL_ONLY);
314 #else
315 Tcl_SetVar2(interp, "sqlite_options", "integrityck", "1", TCL_GLOBAL_ONLY);
316 #endif
317
318 #if defined(SQLITE_DEFAULT_FILE_FORMAT) && SQLITE_DEFAULT_FILE_FORMAT==1
319 Tcl_SetVar2(interp, "sqlite_options", "legacyformat", "1", TCL_GLOBAL_ONLY);
320 #else
321 Tcl_SetVar2(interp, "sqlite_options", "legacyformat", "0", TCL_GLOBAL_ONLY);
322 #endif
323
324 #ifdef SQLITE_OMIT_LIKE_OPTIMIZATION
325 Tcl_SetVar2(interp, "sqlite_options", "like_opt", "0", TCL_GLOBAL_ONLY);
326 #else
327 Tcl_SetVar2(interp, "sqlite_options", "like_opt", "1", TCL_GLOBAL_ONLY);
328 #endif
329
330 #ifdef SQLITE_OMIT_LOAD_EXTENSION
331 Tcl_SetVar2(interp, "sqlite_options", "load_ext", "0", TCL_GLOBAL_ONLY);
332 #else
333 Tcl_SetVar2(interp, "sqlite_options", "load_ext", "1", TCL_GLOBAL_ONLY);
334 #endif
335
336 #ifdef SQLITE_OMIT_LOCALTIME
337 Tcl_SetVar2(interp, "sqlite_options", "localtime", "0", TCL_GLOBAL_ONLY);
338 #else
339 Tcl_SetVar2(interp, "sqlite_options", "localtime", "1", TCL_GLOBAL_ONLY);
340 #endif
341
342 #ifdef SQLITE_OMIT_LOOKASIDE
343 Tcl_SetVar2(interp, "sqlite_options", "lookaside", "0", TCL_GLOBAL_ONLY);
344 #else
345 Tcl_SetVar2(interp, "sqlite_options", "lookaside", "1", TCL_GLOBAL_ONLY);
346 #endif
347
348 Tcl_SetVar2(interp, "sqlite_options", "long_double",
349 sizeof(LONGDOUBLE_TYPE)>sizeof(double) ? "1" : "0",
350 TCL_GLOBAL_ONLY);
351
352 #ifdef SQLITE_OMIT_MEMORYDB
353 Tcl_SetVar2(interp, "sqlite_options", "memorydb", "0", TCL_GLOBAL_ONLY);
354 #else
355 Tcl_SetVar2(interp, "sqlite_options", "memorydb", "1", TCL_GLOBAL_ONLY);
356 #endif
357
358 #ifdef SQLITE_ENABLE_MEMORY_MANAGEMENT
359 Tcl_SetVar2(interp, "sqlite_options", "memorymanage", "1", TCL_GLOBAL_ONLY);
360 #else
361 Tcl_SetVar2(interp, "sqlite_options", "memorymanage", "0", TCL_GLOBAL_ONLY);
362 #endif
363
364 #ifdef SQLITE_OMIT_OR_OPTIMIZATION
365 Tcl_SetVar2(interp, "sqlite_options", "or_opt", "0", TCL_GLOBAL_ONLY);
366 #else
367 Tcl_SetVar2(interp, "sqlite_options", "or_opt", "1", TCL_GLOBAL_ONLY);
368 #endif
369
370 #ifdef SQLITE_OMIT_PAGER_PRAGMAS
371 Tcl_SetVar2(interp, "sqlite_options", "pager_pragmas", "0", TCL_GLOBAL_ONLY);
372 #else
373 Tcl_SetVar2(interp, "sqlite_options", "pager_pragmas", "1", TCL_GLOBAL_ONLY);
374 #endif
375
376 #if defined(SQLITE_OMIT_PRAGMA) || defined(SQLITE_OMIT_FLAG_PRAGMAS)
377 Tcl_SetVar2(interp, "sqlite_options", "pragma", "0", TCL_GLOBAL_ONLY);
378 Tcl_SetVar2(interp, "sqlite_options", "integrityck", "0", TCL_GLOBAL_ONLY);
379 #else
380 Tcl_SetVar2(interp, "sqlite_options", "pragma", "1", TCL_GLOBAL_ONLY);
381 #endif
382
383 #ifdef SQLITE_OMIT_PROGRESS_CALLBACK
384 Tcl_SetVar2(interp, "sqlite_options", "progress", "0", TCL_GLOBAL_ONLY);
385 #else
386 Tcl_SetVar2(interp, "sqlite_options", "progress", "1", TCL_GLOBAL_ONLY);
387 #endif
388
389 #ifdef SQLITE_OMIT_REINDEX
390 Tcl_SetVar2(interp, "sqlite_options", "reindex", "0", TCL_GLOBAL_ONLY);
391 #else
392 Tcl_SetVar2(interp, "sqlite_options", "reindex", "1", TCL_GLOBAL_ONLY);
393 #endif
394
395 #ifdef SQLITE_ENABLE_RTREE
396 Tcl_SetVar2(interp, "sqlite_options", "rtree", "1", TCL_GLOBAL_ONLY);
397 #else
398 Tcl_SetVar2(interp, "sqlite_options", "rtree", "0", TCL_GLOBAL_ONLY);
399 #endif
400
401 #ifdef SQLITE_OMIT_SCHEMA_PRAGMAS
402 Tcl_SetVar2(interp, "sqlite_options", "schema_pragmas", "0", TCL_GLOBAL_ONLY);
403 #else
404 Tcl_SetVar2(interp, "sqlite_options", "schema_pragmas", "1", TCL_GLOBAL_ONLY);
405 #endif
406
407 #ifdef SQLITE_OMIT_SCHEMA_VERSION_PRAGMAS
408 Tcl_SetVar2(interp, "sqlite_options", "schema_version", "0", TCL_GLOBAL_ONLY);
409 #else
410 Tcl_SetVar2(interp, "sqlite_options", "schema_version", "1", TCL_GLOBAL_ONLY);
411 #endif
412
413 #ifdef SQLITE_ENABLE_STAT2
414 Tcl_SetVar2(interp, "sqlite_options", "stat2", "1", TCL_GLOBAL_ONLY);
415 #else
416 Tcl_SetVar2(interp, "sqlite_options", "stat2", "0", TCL_GLOBAL_ONLY);
417 #endif
418
419 #if !defined(SQLITE_ENABLE_LOCKING_STYLE)
420 # if defined(__APPLE__)
421 # define SQLITE_ENABLE_LOCKING_STYLE 1
422 # else
423 # define SQLITE_ENABLE_LOCKING_STYLE 0
424 # endif
425 #endif
426 #if SQLITE_ENABLE_LOCKING_STYLE && defined(__APPLE__)
427 Tcl_SetVar2(interp,"sqlite_options","lock_proxy_pragmas","1",TCL_GLOBAL_ONLY);
428 #else
429 Tcl_SetVar2(interp,"sqlite_options","lock_proxy_pragmas","0",TCL_GLOBAL_ONLY);
430 #endif
431 #if defined(SQLITE_PREFER_PROXY_LOCKING) && defined(__APPLE__)
432 Tcl_SetVar2(interp,"sqlite_options","prefer_proxy_locking","1",TCL_GLOBAL_ONLY);
433 #else
434 Tcl_SetVar2(interp,"sqlite_options","prefer_proxy_locking","0",TCL_GLOBAL_ONLY);
435 #endif
436
437
438 #ifdef SQLITE_OMIT_SHARED_CACHE
439 Tcl_SetVar2(interp, "sqlite_options", "shared_cache", "0", TCL_GLOBAL_ONLY);
440 #else
441 Tcl_SetVar2(interp, "sqlite_options", "shared_cache", "1", TCL_GLOBAL_ONLY);
442 #endif
443
444 #ifdef SQLITE_OMIT_SUBQUERY
445 Tcl_SetVar2(interp, "sqlite_options", "subquery", "0", TCL_GLOBAL_ONLY);
446 #else
447 Tcl_SetVar2(interp, "sqlite_options", "subquery", "1", TCL_GLOBAL_ONLY);
448 #endif
449
450 #ifdef SQLITE_OMIT_TCL_VARIABLE
451 Tcl_SetVar2(interp, "sqlite_options", "tclvar", "0", TCL_GLOBAL_ONLY);
452 #else
453 Tcl_SetVar2(interp, "sqlite_options", "tclvar", "1", TCL_GLOBAL_ONLY);
454 #endif
455
456 Tcl_SetVar2(interp, "sqlite_options", "threadsafe",
457 STRINGVALUE(SQLITE_THREADSAFE), TCL_GLOBAL_ONLY);
458 assert( sqlite3_threadsafe()==SQLITE_THREADSAFE );
459
460 #ifdef SQLITE_OMIT_TEMPDB
461 Tcl_SetVar2(interp, "sqlite_options", "tempdb", "0", TCL_GLOBAL_ONLY);
462 #else
463 Tcl_SetVar2(interp, "sqlite_options", "tempdb", "1", TCL_GLOBAL_ONLY);
464 #endif
465
466 #ifdef SQLITE_OMIT_TRACE
467 Tcl_SetVar2(interp, "sqlite_options", "trace", "0", TCL_GLOBAL_ONLY);
468 #else
469 Tcl_SetVar2(interp, "sqlite_options", "trace", "1", TCL_GLOBAL_ONLY);
470 #endif
471
472 #ifdef SQLITE_OMIT_TRIGGER
473 Tcl_SetVar2(interp, "sqlite_options", "trigger", "0", TCL_GLOBAL_ONLY);
474 #else
475 Tcl_SetVar2(interp, "sqlite_options", "trigger", "1", TCL_GLOBAL_ONLY);
476 #endif
477
478 #ifdef SQLITE_OMIT_TRUNCATE_OPTIMIZATION
479 Tcl_SetVar2(interp, "sqlite_options", "truncate_opt", "0", TCL_GLOBAL_ONLY);
480 #else
481 Tcl_SetVar2(interp, "sqlite_options", "truncate_opt", "1", TCL_GLOBAL_ONLY);
482 #endif
483
484 #ifdef SQLITE_OMIT_UTF16
485 Tcl_SetVar2(interp, "sqlite_options", "utf16", "0", TCL_GLOBAL_ONLY);
486 #else
487 Tcl_SetVar2(interp, "sqlite_options", "utf16", "1", TCL_GLOBAL_ONLY);
488 #endif
489
490 #if defined(SQLITE_OMIT_VACUUM) || defined(SQLITE_OMIT_ATTACH)
491 Tcl_SetVar2(interp, "sqlite_options", "vacuum", "0", TCL_GLOBAL_ONLY);
492 #else
493 Tcl_SetVar2(interp, "sqlite_options", "vacuum", "1", TCL_GLOBAL_ONLY);
494 #endif
495
496 #ifdef SQLITE_OMIT_VIEW
497 Tcl_SetVar2(interp, "sqlite_options", "view", "0", TCL_GLOBAL_ONLY);
498 #else
499 Tcl_SetVar2(interp, "sqlite_options", "view", "1", TCL_GLOBAL_ONLY);
500 #endif
501
502 #ifdef SQLITE_OMIT_VIRTUALTABLE
503 Tcl_SetVar2(interp, "sqlite_options", "vtab", "0", TCL_GLOBAL_ONLY);
504 #else
505 Tcl_SetVar2(interp, "sqlite_options", "vtab", "1", TCL_GLOBAL_ONLY);
506 #endif
507
508 #ifdef SQLITE_OMIT_WAL
509 Tcl_SetVar2(interp, "sqlite_options", "wal", "0", TCL_GLOBAL_ONLY);
510 #else
511 Tcl_SetVar2(interp, "sqlite_options", "wal", "1", TCL_GLOBAL_ONLY);
512 #endif
513
514 #ifdef SQLITE_OMIT_WSD
515 Tcl_SetVar2(interp, "sqlite_options", "wsd", "0", TCL_GLOBAL_ONLY);
516 #else
517 Tcl_SetVar2(interp, "sqlite_options", "wsd", "1", TCL_GLOBAL_ONLY);
518 #endif
519
520 #if defined(SQLITE_ENABLE_UPDATE_DELETE_LIMIT) && !defined(SQLITE_OMIT_SUBQUERY)
521 Tcl_SetVar2(interp, "sqlite_options", "update_delete_limit", "1", TCL_GLOBAL_ONLY);
522 #else
523 Tcl_SetVar2(interp, "sqlite_options", "update_delete_limit", "0", TCL_GLOBAL_ONLY);
524 #endif
525
526 #if defined(SQLITE_ENABLE_UNLOCK_NOTIFY)
527 Tcl_SetVar2(interp, "sqlite_options", "unlock_notify", "1", TCL_GLOBAL_ONLY);
528 #else
529 Tcl_SetVar2(interp, "sqlite_options", "unlock_notify", "0", TCL_GLOBAL_ONLY);
530 #endif
531
532 #ifdef SQLITE_SECURE_DELETE
533 Tcl_SetVar2(interp, "sqlite_options", "secure_delete", "1", TCL_GLOBAL_ONLY);
534 #else
535 Tcl_SetVar2(interp, "sqlite_options", "secure_delete", "0", TCL_GLOBAL_ONLY);
536 #endif
537
538 #ifdef SQLITE_MULTIPLEX_EXT_OVWR
539 Tcl_SetVar2(interp, "sqlite_options", "multiplex_ext_overwrite", "1", TCL_GLOBAL_ONLY);
540 #else
541 Tcl_SetVar2(interp, "sqlite_options", "multiplex_ext_overwrite", "0", TCL_GLOBAL_ONLY);
542 #endif
543
544 #ifdef YYTRACKMAXSTACKDEPTH
545 Tcl_SetVar2(interp, "sqlite_options", "yytrackmaxstackdepth", "1", TCL_GLOBAL_ONLY);
546 #else
547 Tcl_SetVar2(interp, "sqlite_options", "yytrackmaxstackdepth", "0", TCL_GLOBAL_ONLY);
548 #endif
549
550 #define LINKVAR(x) { \
551 static const int cv_ ## x = SQLITE_ ## x; \
552 Tcl_LinkVar(interp, "SQLITE_" #x, (char *)&(cv_ ## x), \
553 TCL_LINK_INT | TCL_LINK_READ_ONLY); }
554
555 LINKVAR( MAX_LENGTH );
556 LINKVAR( MAX_COLUMN );
557 LINKVAR( MAX_SQL_LENGTH );
558 LINKVAR( MAX_EXPR_DEPTH );
559 LINKVAR( MAX_COMPOUND_SELECT );
560 LINKVAR( MAX_VDBE_OP );
561 LINKVAR( MAX_FUNCTION_ARG );
562 LINKVAR( MAX_VARIABLE_NUMBER );
563 LINKVAR( MAX_PAGE_SIZE );
564 LINKVAR( MAX_PAGE_COUNT );
565 LINKVAR( MAX_LIKE_PATTERN_LENGTH );
566 LINKVAR( MAX_TRIGGER_DEPTH );
567 LINKVAR( DEFAULT_TEMP_CACHE_SIZE );
568 LINKVAR( DEFAULT_CACHE_SIZE );
569 LINKVAR( DEFAULT_PAGE_SIZE );
570 LINKVAR( DEFAULT_FILE_FORMAT );
571 LINKVAR( MAX_ATTACHED );
572
573 {
574 static const int cv_TEMP_STORE = SQLITE_TEMP_STORE;
575 Tcl_LinkVar(interp, "TEMP_STORE", (char *)&(cv_TEMP_STORE),
576 TCL_LINK_INT | TCL_LINK_READ_ONLY);
577 }
578 }
579
580
581 /*
582 ** Register commands with the TCL interpreter.
583 */
Sqliteconfig_Init(Tcl_Interp * interp)584 int Sqliteconfig_Init(Tcl_Interp *interp){
585 set_options(interp);
586 return TCL_OK;
587 }
588