/ Hex Artifact Content
Login

Artifact 97d840717efcca8cad5e353debc69780ea8ad7ce:


0000: 2f 2a 0a 2a 2a 20 32 30 30 37 20 4d 61 79 20 37  /*.** 2007 May 7
0010: 0a 2a 2a 0a 2a 2a 20 54 68 65 20 61 75 74 68 6f  .**.** The autho
0020: 72 20 64 69 73 63 6c 61 69 6d 73 20 63 6f 70 79  r disclaims copy
0030: 72 69 67 68 74 20 74 6f 20 74 68 69 73 20 73 6f  right to this so
0040: 75 72 63 65 20 63 6f 64 65 2e 20 20 49 6e 20 70  urce code.  In p
0050: 6c 61 63 65 20 6f 66 0a 2a 2a 20 61 20 6c 65 67  lace of.** a leg
0060: 61 6c 20 6e 6f 74 69 63 65 2c 20 68 65 72 65 20  al notice, here 
0070: 69 73 20 61 20 62 6c 65 73 73 69 6e 67 3a 0a 2a  is a blessing:.*
0080: 2a 0a 2a 2a 20 20 20 20 4d 61 79 20 79 6f 75 20  *.**    May you 
0090: 64 6f 20 67 6f 6f 64 20 61 6e 64 20 6e 6f 74 20  do good and not 
00a0: 65 76 69 6c 2e 0a 2a 2a 20 20 20 20 4d 61 79 20  evil..**    May 
00b0: 79 6f 75 20 66 69 6e 64 20 66 6f 72 67 69 76 65  you find forgive
00c0: 6e 65 73 73 20 66 6f 72 20 79 6f 75 72 73 65 6c  ness for yoursel
00d0: 66 20 61 6e 64 20 66 6f 72 67 69 76 65 20 6f 74  f and forgive ot
00e0: 68 65 72 73 2e 0a 2a 2a 20 20 20 20 4d 61 79 20  hers..**    May 
00f0: 79 6f 75 20 73 68 61 72 65 20 66 72 65 65 6c 79  you share freely
0100: 2c 20 6e 65 76 65 72 20 74 61 6b 69 6e 67 20 6d  , never taking m
0110: 6f 72 65 20 74 68 61 6e 20 79 6f 75 20 67 69 76  ore than you giv
0120: 65 2e 0a 2a 2a 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  e..**.**********
0130: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0140: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0150: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0160: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a  ***************.
0170: 2a 2a 20 0a 2a 2a 20 54 68 69 73 20 66 69 6c 65  ** .** This file
0180: 20 63 6f 6e 74 61 69 6e 73 20 63 6f 64 65 20 75   contains code u
0190: 73 65 64 20 66 6f 72 20 74 65 73 74 69 6e 67 20  sed for testing 
01a0: 74 68 65 20 53 51 4c 69 74 65 20 73 79 73 74 65  the SQLite syste
01b0: 6d 2e 0a 2a 2a 20 4e 6f 6e 65 20 6f 66 20 74 68  m..** None of th
01c0: 65 20 63 6f 64 65 20 69 6e 20 74 68 69 73 20 66  e code in this f
01d0: 69 6c 65 20 67 6f 65 73 20 69 6e 74 6f 20 61 20  ile goes into a 
01e0: 64 65 6c 69 76 65 72 61 62 6c 65 20 62 75 69 6c  deliverable buil
01f0: 64 2e 0a 2a 2a 20 0a 2a 2a 20 54 68 65 20 66 6f  d..** .** The fo
0200: 63 75 73 20 6f 66 20 74 68 69 73 20 66 69 6c 65  cus of this file
0210: 20 69 73 20 70 72 6f 76 69 64 69 6e 67 20 74 68   is providing th
0220: 65 20 54 43 4c 20 74 65 73 74 69 6e 67 20 6c 61  e TCL testing la
0230: 79 65 72 0a 2a 2a 20 61 63 63 65 73 73 20 74 6f  yer.** access to
0240: 20 63 6f 6d 70 69 6c 65 2d 74 69 6d 65 20 63 6f   compile-time co
0250: 6e 73 74 61 6e 74 73 2e 0a 2a 2a 0a 2a 2a 20 24  nstants..**.** $
0260: 49 64 3a 20 74 65 73 74 5f 63 6f 6e 66 69 67 2e  Id: test_config.
0270: 63 2c 76 20 31 2e 35 30 20 32 30 30 39 2f 30 36  c,v 1.50 2009/06
0280: 2f 31 39 20 31 34 3a 30 36 3a 30 33 20 64 72 68  /19 14:06:03 drh
0290: 20 45 78 70 20 24 0a 2a 2f 0a 0a 23 69 6e 63 6c   Exp $.*/..#incl
02a0: 75 64 65 20 22 73 71 6c 69 74 65 4c 69 6d 69 74  ude "sqliteLimit
02b0: 2e 68 22 0a 0a 23 69 6e 63 6c 75 64 65 20 22 73  .h"..#include "s
02c0: 71 6c 69 74 65 49 6e 74 2e 68 22 0a 23 69 6e 63  qliteInt.h".#inc
02d0: 6c 75 64 65 20 22 74 63 6c 2e 68 22 0a 23 69 6e  lude "tcl.h".#in
02e0: 63 6c 75 64 65 20 3c 73 74 64 6c 69 62 2e 68 3e  clude <stdlib.h>
02f0: 0a 23 69 6e 63 6c 75 64 65 20 3c 73 74 72 69 6e  .#include <strin
0300: 67 2e 68 3e 0a 0a 2f 2a 0a 2a 2a 20 4d 61 63 72  g.h>../*.** Macr
0310: 6f 20 74 6f 20 73 74 72 69 6e 67 69 66 79 20 74  o to stringify t
0320: 68 65 20 72 65 73 75 6c 74 73 20 6f 66 20 74 68  he results of th
0330: 65 20 65 76 61 6c 75 61 74 69 6f 6e 20 61 20 70  e evaluation a p
0340: 72 65 2d 70 72 6f 63 65 73 73 6f 72 0a 2a 2a 20  re-processor.** 
0350: 6d 61 63 72 6f 2e 20 69 2e 65 2e 20 73 6f 20 74  macro. i.e. so t
0360: 68 61 74 20 53 54 52 49 4e 47 56 41 4c 55 45 28  hat STRINGVALUE(
0370: 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d 29 20 2d 3e  SQLITE_NOMEM) ->
0380: 20 22 37 22 2e 0a 2a 2f 0a 23 64 65 66 69 6e 65   "7"..*/.#define
0390: 20 53 54 52 49 4e 47 56 41 4c 55 45 32 28 78 29   STRINGVALUE2(x)
03a0: 20 23 78 0a 23 64 65 66 69 6e 65 20 53 54 52 49   #x.#define STRI
03b0: 4e 47 56 41 4c 55 45 28 78 29 20 53 54 52 49 4e  NGVALUE(x) STRIN
03c0: 47 56 41 4c 55 45 32 28 78 29 0a 0a 2f 2a 0a 2a  GVALUE2(x)../*.*
03d0: 2a 20 54 68 69 73 20 72 6f 75 74 69 6e 65 20 73  * This routine s
03e0: 65 74 73 20 65 6e 74 72 69 65 73 20 69 6e 20 74  ets entries in t
03f0: 68 65 20 67 6c 6f 62 61 6c 20 3a 3a 73 71 6c 69  he global ::sqli
0400: 74 65 5f 6f 70 74 69 6f 6e 73 28 29 20 61 72 72  te_options() arr
0410: 61 79 20 76 61 72 69 61 62 6c 65 0a 2a 2a 20 61  ay variable.** a
0420: 63 63 6f 72 64 69 6e 67 20 74 6f 20 74 68 65 20  ccording to the 
0430: 63 6f 6d 70 69 6c 65 2d 74 69 6d 65 20 63 6f 6e  compile-time con
0440: 66 69 67 75 72 61 74 69 6f 6e 20 6f 66 20 74 68  figuration of th
0450: 65 20 64 61 74 61 62 61 73 65 2e 20 20 54 65 73  e database.  Tes
0460: 74 0a 2a 2a 20 70 72 6f 63 65 64 75 72 65 73 20  t.** procedures 
0470: 75 73 65 20 74 68 69 73 20 74 6f 20 64 65 74 65  use this to dete
0480: 72 6d 69 6e 65 20 77 68 65 6e 20 74 65 73 74 73  rmine when tests
0490: 20 73 68 6f 75 6c 64 20 62 65 20 6f 6d 69 74 74   should be omitt
04a0: 65 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f  ed..*/.static vo
04b0: 69 64 20 73 65 74 5f 6f 70 74 69 6f 6e 73 28 54  id set_options(T
04c0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72  cl_Interp *inter
04d0: 70 29 7b 0a 23 69 66 64 65 66 20 53 51 4c 49 54  p){.#ifdef SQLIT
04e0: 45 5f 33 32 42 49 54 5f 52 4f 57 49 44 0a 20 20  E_32BIT_ROWID.  
04f0: 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 65  Tcl_SetVar2(inte
0500: 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 69  rp, "sqlite_opti
0510: 6f 6e 73 22 2c 20 22 72 6f 77 69 64 33 32 22 2c  ons", "rowid32",
0520: 20 22 31 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c   "1", TCL_GLOBAL
0530: 5f 4f 4e 4c 59 29 3b 0a 23 65 6c 73 65 0a 20 20  _ONLY);.#else.  
0540: 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 65  Tcl_SetVar2(inte
0550: 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 69  rp, "sqlite_opti
0560: 6f 6e 73 22 2c 20 22 72 6f 77 69 64 33 32 22 2c  ons", "rowid32",
0570: 20 22 30 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c   "0", TCL_GLOBAL
0580: 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 0a 0a  _ONLY);.#endif..
0590: 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 43 41  #ifdef SQLITE_CA
05a0: 53 45 5f 53 45 4e 53 49 54 49 56 45 5f 4c 49 4b  SE_SENSITIVE_LIK
05b0: 45 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28  E.  Tcl_SetVar2(
05c0: 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f  interp, "sqlite_
05d0: 6f 70 74 69 6f 6e 73 22 2c 22 63 61 73 65 73 65  options","casese
05e0: 6e 73 69 74 69 76 65 6c 69 6b 65 22 2c 22 31 22  nsitivelike","1"
05f0: 2c 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59  ,TCL_GLOBAL_ONLY
0600: 29 3b 0a 23 65 6c 73 65 0a 20 20 54 63 6c 5f 53  );.#else.  Tcl_S
0610: 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20 22  etVar2(interp, "
0620: 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c  sqlite_options",
0630: 22 63 61 73 65 73 65 6e 73 69 74 69 76 65 6c 69  "casesensitiveli
0640: 6b 65 22 2c 22 30 22 2c 54 43 4c 5f 47 4c 4f 42  ke","0",TCL_GLOB
0650: 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64 69 66  AL_ONLY);.#endif
0660: 0a 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f  ..#ifdef SQLITE_
0670: 44 45 42 55 47 0a 20 20 54 63 6c 5f 53 65 74 56  DEBUG.  Tcl_SetV
0680: 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c  ar2(interp, "sql
0690: 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 64  ite_options", "d
06a0: 65 62 75 67 22 2c 20 22 31 22 2c 20 54 43 4c 5f  ebug", "1", TCL_
06b0: 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65  GLOBAL_ONLY);.#e
06c0: 6c 73 65 0a 20 20 54 63 6c 5f 53 65 74 56 61 72  lse.  Tcl_SetVar
06d0: 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74  2(interp, "sqlit
06e0: 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 64 65 62  e_options", "deb
06f0: 75 67 22 2c 20 22 30 22 2c 20 54 43 4c 5f 47 4c  ug", "0", TCL_GL
0700: 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64  OBAL_ONLY);.#end
0710: 69 66 0a 0a 23 69 66 64 65 66 20 53 51 4c 49 54  if..#ifdef SQLIT
0720: 45 5f 44 49 53 41 42 4c 45 5f 44 49 52 53 59 4e  E_DISABLE_DIRSYN
0730: 43 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28  C.  Tcl_SetVar2(
0740: 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f  interp, "sqlite_
0750: 6f 70 74 69 6f 6e 73 22 2c 20 22 64 69 72 73 79  options", "dirsy
0760: 6e 63 22 2c 20 22 30 22 2c 20 54 43 4c 5f 47 4c  nc", "0", TCL_GL
0770: 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c 73  OBAL_ONLY);.#els
0780: 65 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28  e.  Tcl_SetVar2(
0790: 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f  interp, "sqlite_
07a0: 6f 70 74 69 6f 6e 73 22 2c 20 22 64 69 72 73 79  options", "dirsy
07b0: 6e 63 22 2c 20 22 31 22 2c 20 54 43 4c 5f 47 4c  nc", "1", TCL_GL
07c0: 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64  OBAL_ONLY);.#end
07d0: 69 66 0a 0a 23 69 66 64 65 66 20 53 51 4c 49 54  if..#ifdef SQLIT
07e0: 45 5f 44 49 53 41 42 4c 45 5f 4c 46 53 0a 20 20  E_DISABLE_LFS.  
07f0: 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 65  Tcl_SetVar2(inte
0800: 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 69  rp, "sqlite_opti
0810: 6f 6e 73 22 2c 20 22 6c 66 73 22 2c 20 22 30 22  ons", "lfs", "0"
0820: 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c  , TCL_GLOBAL_ONL
0830: 59 29 3b 0a 23 65 6c 73 65 0a 20 20 54 63 6c 5f  Y);.#else.  Tcl_
0840: 53 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20  SetVar2(interp, 
0850: 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22  "sqlite_options"
0860: 2c 20 22 6c 66 73 22 2c 20 22 31 22 2c 20 54 43  , "lfs", "1", TC
0870: 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a  L_GLOBAL_ONLY);.
0880: 23 65 6e 64 69 66 0a 0a 23 69 66 20 31 20 2f 2a  #endif..#if 1 /*
0890: 20 64 65 66 20 53 51 4c 49 54 45 5f 4d 45 4d 44   def SQLITE_MEMD
08a0: 45 42 55 47 20 2a 2f 0a 20 20 54 63 6c 5f 53 65  EBUG */.  Tcl_Se
08b0: 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73  tVar2(interp, "s
08c0: 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20  qlite_options", 
08d0: 22 6d 65 6d 64 65 62 75 67 22 2c 20 22 31 22 2c  "memdebug", "1",
08e0: 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59   TCL_GLOBAL_ONLY
08f0: 29 3b 0a 23 65 6c 73 65 0a 20 20 54 63 6c 5f 53  );.#else.  Tcl_S
0900: 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20 22  etVar2(interp, "
0910: 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c  sqlite_options",
0920: 20 22 6d 65 6d 64 65 62 75 67 22 2c 20 22 30 22   "memdebug", "0"
0930: 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c  , TCL_GLOBAL_ONL
0940: 59 29 3b 0a 23 65 6e 64 69 66 0a 0a 23 69 66 64  Y);.#endif..#ifd
0950: 65 66 20 53 51 4c 49 54 45 5f 45 4e 41 42 4c 45  ef SQLITE_ENABLE
0960: 5f 4d 45 4d 53 59 53 33 0a 20 20 54 63 6c 5f 53  _MEMSYS3.  Tcl_S
0970: 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20 22  etVar2(interp, "
0980: 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c  sqlite_options",
0990: 20 22 6d 65 6d 33 22 2c 20 22 31 22 2c 20 54 43   "mem3", "1", TC
09a0: 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a  L_GLOBAL_ONLY);.
09b0: 23 65 6c 73 65 0a 20 20 54 63 6c 5f 53 65 74 56  #else.  Tcl_SetV
09c0: 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c  ar2(interp, "sql
09d0: 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 6d  ite_options", "m
09e0: 65 6d 33 22 2c 20 22 30 22 2c 20 54 43 4c 5f 47  em3", "0", TCL_G
09f0: 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e  LOBAL_ONLY);.#en
0a00: 64 69 66 0a 0a 23 69 66 64 65 66 20 53 51 4c 49  dif..#ifdef SQLI
0a10: 54 45 5f 45 4e 41 42 4c 45 5f 4d 45 4d 53 59 53  TE_ENABLE_MEMSYS
0a20: 35 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28  5.  Tcl_SetVar2(
0a30: 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f  interp, "sqlite_
0a40: 6f 70 74 69 6f 6e 73 22 2c 20 22 6d 65 6d 35 22  options", "mem5"
0a50: 2c 20 22 31 22 2c 20 54 43 4c 5f 47 4c 4f 42 41  , "1", TCL_GLOBA
0a60: 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c 73 65 0a 20  L_ONLY);.#else. 
0a70: 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74   Tcl_SetVar2(int
0a80: 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74  erp, "sqlite_opt
0a90: 69 6f 6e 73 22 2c 20 22 6d 65 6d 35 22 2c 20 22  ions", "mem5", "
0aa0: 30 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f  0", TCL_GLOBAL_O
0ab0: 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 0a 0a 23 69  NLY);.#endif..#i
0ac0: 66 64 65 66 20 53 51 4c 49 54 45 5f 4d 55 54 45  fdef SQLITE_MUTE
0ad0: 58 5f 4f 4d 49 54 0a 20 20 54 63 6c 5f 53 65 74  X_OMIT.  Tcl_Set
0ae0: 56 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71  Var2(interp, "sq
0af0: 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22  lite_options", "
0b00: 6d 75 74 65 78 22 2c 20 22 30 22 2c 20 54 43 4c  mutex", "0", TCL
0b10: 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23  _GLOBAL_ONLY);.#
0b20: 65 6c 73 65 0a 20 20 54 63 6c 5f 53 65 74 56 61  else.  Tcl_SetVa
0b30: 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69  r2(interp, "sqli
0b40: 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 6d 75  te_options", "mu
0b50: 74 65 78 22 2c 20 22 31 22 2c 20 54 43 4c 5f 47  tex", "1", TCL_G
0b60: 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e  LOBAL_ONLY);.#en
0b70: 64 69 66 0a 0a 23 69 66 64 65 66 20 53 51 4c 49  dif..#ifdef SQLI
0b80: 54 45 5f 4f 4d 49 54 5f 41 4c 54 45 52 54 41 42  TE_OMIT_ALTERTAB
0b90: 4c 45 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32  LE.  Tcl_SetVar2
0ba0: 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65  (interp, "sqlite
0bb0: 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 61 6c 74 65  _options", "alte
0bc0: 72 74 61 62 6c 65 22 2c 20 22 30 22 2c 20 54 43  rtable", "0", TC
0bd0: 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a  L_GLOBAL_ONLY);.
0be0: 23 65 6c 73 65 0a 20 20 54 63 6c 5f 53 65 74 56  #else.  Tcl_SetV
0bf0: 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c  ar2(interp, "sql
0c00: 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 61  ite_options", "a
0c10: 6c 74 65 72 74 61 62 6c 65 22 2c 20 22 31 22 2c  ltertable", "1",
0c20: 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59   TCL_GLOBAL_ONLY
0c30: 29 3b 0a 23 65 6e 64 69 66 0a 0a 23 69 66 64 65  );.#endif..#ifde
0c40: 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 41 4e  f SQLITE_OMIT_AN
0c50: 41 4c 59 5a 45 0a 20 20 54 63 6c 5f 53 65 74 56  ALYZE.  Tcl_SetV
0c60: 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c  ar2(interp, "sql
0c70: 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 61  ite_options", "a
0c80: 6e 61 6c 79 7a 65 22 2c 20 22 30 22 2c 20 54 43  nalyze", "0", TC
0c90: 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a  L_GLOBAL_ONLY);.
0ca0: 23 65 6c 73 65 0a 20 20 54 63 6c 5f 53 65 74 56  #else.  Tcl_SetV
0cb0: 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c  ar2(interp, "sql
0cc0: 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 61  ite_options", "a
0cd0: 6e 61 6c 79 7a 65 22 2c 20 22 31 22 2c 20 54 43  nalyze", "1", TC
0ce0: 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a  L_GLOBAL_ONLY);.
0cf0: 23 65 6e 64 69 66 0a 0a 23 69 66 64 65 66 20 53  #endif..#ifdef S
0d00: 51 4c 49 54 45 5f 45 4e 41 42 4c 45 5f 41 54 4f  QLITE_ENABLE_ATO
0d10: 4d 49 43 5f 57 52 49 54 45 0a 20 20 54 63 6c 5f  MIC_WRITE.  Tcl_
0d20: 53 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20  SetVar2(interp, 
0d30: 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22  "sqlite_options"
0d40: 2c 20 22 61 74 6f 6d 69 63 77 72 69 74 65 22 2c  , "atomicwrite",
0d50: 20 22 31 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c   "1", TCL_GLOBAL
0d60: 5f 4f 4e 4c 59 29 3b 0a 23 65 6c 73 65 0a 20 20  _ONLY);.#else.  
0d70: 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 65  Tcl_SetVar2(inte
0d80: 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 69  rp, "sqlite_opti
0d90: 6f 6e 73 22 2c 20 22 61 74 6f 6d 69 63 77 72 69  ons", "atomicwri
0da0: 74 65 22 2c 20 22 30 22 2c 20 54 43 4c 5f 47 4c  te", "0", TCL_GL
0db0: 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64  OBAL_ONLY);.#end
0dc0: 69 66 0a 0a 23 69 66 64 65 66 20 53 51 4c 49 54  if..#ifdef SQLIT
0dd0: 45 5f 4f 4d 49 54 5f 41 54 54 41 43 48 0a 20 20  E_OMIT_ATTACH.  
0de0: 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 65  Tcl_SetVar2(inte
0df0: 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 69  rp, "sqlite_opti
0e00: 6f 6e 73 22 2c 20 22 61 74 74 61 63 68 22 2c 20  ons", "attach", 
0e10: 22 30 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f  "0", TCL_GLOBAL_
0e20: 4f 4e 4c 59 29 3b 0a 23 65 6c 73 65 0a 20 20 54  ONLY);.#else.  T
0e30: 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 65 72  cl_SetVar2(inter
0e40: 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f  p, "sqlite_optio
0e50: 6e 73 22 2c 20 22 61 74 74 61 63 68 22 2c 20 22  ns", "attach", "
0e60: 31 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f  1", TCL_GLOBAL_O
0e70: 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 0a 0a 23 69  NLY);.#endif..#i
0e80: 66 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54  fdef SQLITE_OMIT
0e90: 5f 41 55 54 48 4f 52 49 5a 41 54 49 4f 4e 0a 20  _AUTHORIZATION. 
0ea0: 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74   Tcl_SetVar2(int
0eb0: 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74  erp, "sqlite_opt
0ec0: 69 6f 6e 73 22 2c 20 22 61 75 74 68 22 2c 20 22  ions", "auth", "
0ed0: 30 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f  0", TCL_GLOBAL_O
0ee0: 4e 4c 59 29 3b 0a 23 65 6c 73 65 0a 20 20 54 63  NLY);.#else.  Tc
0ef0: 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 65 72 70  l_SetVar2(interp
0f00: 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e  , "sqlite_option
0f10: 73 22 2c 20 22 61 75 74 68 22 2c 20 22 31 22 2c  s", "auth", "1",
0f20: 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59   TCL_GLOBAL_ONLY
0f30: 29 3b 0a 23 65 6e 64 69 66 0a 0a 23 69 66 64 65  );.#endif..#ifde
0f40: 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 41 55  f SQLITE_OMIT_AU
0f50: 54 4f 49 4e 43 52 45 4d 45 4e 54 0a 20 20 54 63  TOINCREMENT.  Tc
0f60: 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 65 72 70  l_SetVar2(interp
0f70: 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e  , "sqlite_option
0f80: 73 22 2c 20 22 61 75 74 6f 69 6e 63 22 2c 20 22  s", "autoinc", "
0f90: 30 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f  0", TCL_GLOBAL_O
0fa0: 4e 4c 59 29 3b 0a 23 65 6c 73 65 0a 20 20 54 63  NLY);.#else.  Tc
0fb0: 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 65 72 70  l_SetVar2(interp
0fc0: 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e  , "sqlite_option
0fd0: 73 22 2c 20 22 61 75 74 6f 69 6e 63 22 2c 20 22  s", "autoinc", "
0fe0: 31 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f  1", TCL_GLOBAL_O
0ff0: 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 0a 0a 23 69  NLY);.#endif..#i
1000: 66 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54  fdef SQLITE_OMIT
1010: 5f 41 55 54 4f 56 41 43 55 55 4d 0a 20 20 54 63  _AUTOVACUUM.  Tc
1020: 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 65 72 70  l_SetVar2(interp
1030: 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e  , "sqlite_option
1040: 73 22 2c 20 22 61 75 74 6f 76 61 63 75 75 6d 22  s", "autovacuum"
1050: 2c 20 22 30 22 2c 20 54 43 4c 5f 47 4c 4f 42 41  , "0", TCL_GLOBA
1060: 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c 73 65 0a 20  L_ONLY);.#else. 
1070: 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74   Tcl_SetVar2(int
1080: 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74  erp, "sqlite_opt
1090: 69 6f 6e 73 22 2c 20 22 61 75 74 6f 76 61 63 75  ions", "autovacu
10a0: 75 6d 22 2c 20 22 31 22 2c 20 54 43 4c 5f 47 4c  um", "1", TCL_GL
10b0: 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64  OBAL_ONLY);.#end
10c0: 69 66 20 2f 2a 20 53 51 4c 49 54 45 5f 4f 4d 49  if /* SQLITE_OMI
10d0: 54 5f 41 55 54 4f 56 41 43 55 55 4d 20 2a 2f 0a  T_AUTOVACUUM */.
10e0: 23 69 66 20 21 64 65 66 69 6e 65 64 28 53 51 4c  #if !defined(SQL
10f0: 49 54 45 5f 44 45 46 41 55 4c 54 5f 41 55 54 4f  ITE_DEFAULT_AUTO
1100: 56 41 43 55 55 4d 29 0a 20 20 54 63 6c 5f 53 65  VACUUM).  Tcl_Se
1110: 74 56 61 72 32 28 69 6e 74 65 72 70 2c 22 73 71  tVar2(interp,"sq
1120: 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 22 64  lite_options","d
1130: 65 66 61 75 6c 74 5f 61 75 74 6f 76 61 63 75 75  efault_autovacuu
1140: 6d 22 2c 22 30 22 2c 54 43 4c 5f 47 4c 4f 42 41  m","0",TCL_GLOBA
1150: 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c 73 65 0a 20  L_ONLY);.#else. 
1160: 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74   Tcl_SetVar2(int
1170: 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74  erp, "sqlite_opt
1180: 69 6f 6e 73 22 2c 20 22 64 65 66 61 75 6c 74 5f  ions", "default_
1190: 61 75 74 6f 76 61 63 75 75 6d 22 2c 20 0a 20 20  autovacuum", .  
11a0: 20 20 20 20 53 54 52 49 4e 47 56 41 4c 55 45 28      STRINGVALUE(
11b0: 53 51 4c 49 54 45 5f 44 45 46 41 55 4c 54 5f 41  SQLITE_DEFAULT_A
11c0: 55 54 4f 56 41 43 55 55 4d 29 2c 20 54 43 4c 5f  UTOVACUUM), TCL_
11d0: 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65  GLOBAL_ONLY);.#e
11e0: 6e 64 69 66 0a 0a 23 69 66 64 65 66 20 53 51 4c  ndif..#ifdef SQL
11f0: 49 54 45 5f 4f 4d 49 54 5f 42 45 54 57 45 45 4e  ITE_OMIT_BETWEEN
1200: 5f 4f 50 54 49 4d 49 5a 41 54 49 4f 4e 0a 20 20  _OPTIMIZATION.  
1210: 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 65  Tcl_SetVar2(inte
1220: 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 69  rp, "sqlite_opti
1230: 6f 6e 73 22 2c 20 22 62 65 74 77 65 65 6e 5f 6f  ons", "between_o
1240: 70 74 22 2c 20 22 30 22 2c 20 54 43 4c 5f 47 4c  pt", "0", TCL_GL
1250: 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c 73  OBAL_ONLY);.#els
1260: 65 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28  e.  Tcl_SetVar2(
1270: 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f  interp, "sqlite_
1280: 6f 70 74 69 6f 6e 73 22 2c 20 22 62 65 74 77 65  options", "betwe
1290: 65 6e 5f 6f 70 74 22 2c 20 22 31 22 2c 20 54 43  en_opt", "1", TC
12a0: 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a  L_GLOBAL_ONLY);.
12b0: 23 65 6e 64 69 66 0a 0a 23 69 66 64 65 66 20 53  #endif..#ifdef S
12c0: 51 4c 49 54 45 5f 4f 4d 49 54 5f 42 55 49 4c 54  QLITE_OMIT_BUILT
12d0: 49 4e 5f 54 45 53 54 0a 20 20 54 63 6c 5f 53 65  IN_TEST.  Tcl_Se
12e0: 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73  tVar2(interp, "s
12f0: 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20  qlite_options", 
1300: 22 62 75 69 6c 74 69 6e 5f 74 65 73 74 22 2c 20  "builtin_test", 
1310: 22 30 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f  "0", TCL_GLOBAL_
1320: 4f 4e 4c 59 29 3b 0a 23 65 6c 73 65 0a 20 20 54  ONLY);.#else.  T
1330: 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 65 72  cl_SetVar2(inter
1340: 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f  p, "sqlite_optio
1350: 6e 73 22 2c 20 22 62 75 69 6c 74 69 6e 5f 74 65  ns", "builtin_te
1360: 73 74 22 2c 20 22 31 22 2c 20 54 43 4c 5f 47 4c  st", "1", TCL_GL
1370: 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64  OBAL_ONLY);.#end
1380: 69 66 0a 0a 23 69 66 64 65 66 20 53 51 4c 49 54  if..#ifdef SQLIT
1390: 45 5f 4f 4d 49 54 5f 42 4c 4f 42 5f 4c 49 54 45  E_OMIT_BLOB_LITE
13a0: 52 41 4c 0a 20 20 54 63 6c 5f 53 65 74 56 61 72  RAL.  Tcl_SetVar
13b0: 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74  2(interp, "sqlit
13c0: 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 62 6c 6f  e_options", "blo
13d0: 62 6c 69 74 22 2c 20 22 30 22 2c 20 54 43 4c 5f  blit", "0", TCL_
13e0: 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65  GLOBAL_ONLY);.#e
13f0: 6c 73 65 0a 20 20 54 63 6c 5f 53 65 74 56 61 72  lse.  Tcl_SetVar
1400: 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74  2(interp, "sqlit
1410: 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 62 6c 6f  e_options", "blo
1420: 62 6c 69 74 22 2c 20 22 31 22 2c 20 54 43 4c 5f  blit", "1", TCL_
1430: 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65  GLOBAL_ONLY);.#e
1440: 6e 64 69 66 0a 0a 23 69 66 64 65 66 20 53 51 4c  ndif..#ifdef SQL
1450: 49 54 45 5f 4f 4d 49 54 5f 43 41 53 54 0a 20 20  ITE_OMIT_CAST.  
1460: 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 65  Tcl_SetVar2(inte
1470: 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 69  rp, "sqlite_opti
1480: 6f 6e 73 22 2c 20 22 63 61 73 74 22 2c 20 22 30  ons", "cast", "0
1490: 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e  ", TCL_GLOBAL_ON
14a0: 4c 59 29 3b 0a 23 65 6c 73 65 0a 20 20 54 63 6c  LY);.#else.  Tcl
14b0: 5f 53 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c  _SetVar2(interp,
14c0: 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73   "sqlite_options
14d0: 22 2c 20 22 63 61 73 74 22 2c 20 22 31 22 2c 20  ", "cast", "1", 
14e0: 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29  TCL_GLOBAL_ONLY)
14f0: 3b 0a 23 65 6e 64 69 66 0a 0a 23 69 66 64 65 66  ;.#endif..#ifdef
1500: 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 43 48 45   SQLITE_OMIT_CHE
1510: 43 4b 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32  CK.  Tcl_SetVar2
1520: 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65  (interp, "sqlite
1530: 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 63 68 65 63  _options", "chec
1540: 6b 22 2c 20 22 30 22 2c 20 54 43 4c 5f 47 4c 4f  k", "0", TCL_GLO
1550: 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c 73 65  BAL_ONLY);.#else
1560: 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69  .  Tcl_SetVar2(i
1570: 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f  nterp, "sqlite_o
1580: 70 74 69 6f 6e 73 22 2c 20 22 63 68 65 63 6b 22  ptions", "check"
1590: 2c 20 22 31 22 2c 20 54 43 4c 5f 47 4c 4f 42 41  , "1", TCL_GLOBA
15a0: 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 0a  L_ONLY);.#endif.
15b0: 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 45  .#ifdef SQLITE_E
15c0: 4e 41 42 4c 45 5f 43 4f 4c 55 4d 4e 5f 4d 45 54  NABLE_COLUMN_MET
15d0: 41 44 41 54 41 0a 20 20 54 63 6c 5f 53 65 74 56  ADATA.  Tcl_SetV
15e0: 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c  ar2(interp, "sql
15f0: 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 63  ite_options", "c
1600: 6f 6c 75 6d 6e 6d 65 74 61 64 61 74 61 22 2c 20  olumnmetadata", 
1610: 22 31 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f  "1", TCL_GLOBAL_
1620: 4f 4e 4c 59 29 3b 0a 23 65 6c 73 65 0a 20 20 54  ONLY);.#else.  T
1630: 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 65 72  cl_SetVar2(inter
1640: 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f  p, "sqlite_optio
1650: 6e 73 22 2c 20 22 63 6f 6c 75 6d 6e 6d 65 74 61  ns", "columnmeta
1660: 64 61 74 61 22 2c 20 22 30 22 2c 20 54 43 4c 5f  data", "0", TCL_
1670: 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65  GLOBAL_ONLY);.#e
1680: 6e 64 69 66 0a 0a 23 69 66 64 65 66 20 53 51 4c  ndif..#ifdef SQL
1690: 49 54 45 5f 45 4e 41 42 4c 45 5f 4f 56 45 52 53  ITE_ENABLE_OVERS
16a0: 49 5a 45 5f 43 45 4c 4c 5f 43 48 45 43 4b 0a 20  IZE_CELL_CHECK. 
16b0: 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74   Tcl_SetVar2(int
16c0: 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74  erp, "sqlite_opt
16d0: 69 6f 6e 73 22 2c 20 22 6f 76 65 72 73 69 7a 65  ions", "oversize
16e0: 5f 63 65 6c 6c 5f 63 68 65 63 6b 22 2c 20 22 31  _cell_check", "1
16f0: 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  ",.             
1700: 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59   TCL_GLOBAL_ONLY
1710: 29 3b 0a 23 65 6c 73 65 0a 20 20 54 63 6c 5f 53  );.#else.  Tcl_S
1720: 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20 22  etVar2(interp, "
1730: 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c  sqlite_options",
1740: 20 22 6f 76 65 72 73 69 7a 65 5f 63 65 6c 6c 5f   "oversize_cell_
1750: 63 68 65 63 6b 22 2c 20 22 30 22 2c 0a 20 20 20  check", "0",.   
1760: 20 20 20 20 20 20 20 20 20 20 20 54 43 4c 5f 47             TCL_G
1770: 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e  LOBAL_ONLY);.#en
1780: 64 69 66 0a 0a 0a 0a 23 69 66 64 65 66 20 53 51  dif....#ifdef SQ
1790: 4c 49 54 45 5f 4f 4d 49 54 5f 43 4f 4d 50 4c 45  LITE_OMIT_COMPLE
17a0: 54 45 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32  TE.  Tcl_SetVar2
17b0: 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65  (interp, "sqlite
17c0: 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 63 6f 6d 70  _options", "comp
17d0: 6c 65 74 65 22 2c 20 22 30 22 2c 20 54 43 4c 5f  lete", "0", TCL_
17e0: 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65  GLOBAL_ONLY);.#e
17f0: 6c 73 65 0a 20 20 54 63 6c 5f 53 65 74 56 61 72  lse.  Tcl_SetVar
1800: 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74  2(interp, "sqlit
1810: 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 63 6f 6d  e_options", "com
1820: 70 6c 65 74 65 22 2c 20 22 31 22 2c 20 54 43 4c  plete", "1", TCL
1830: 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23  _GLOBAL_ONLY);.#
1840: 65 6e 64 69 66 0a 0a 23 69 66 64 65 66 20 53 51  endif..#ifdef SQ
1850: 4c 49 54 45 5f 4f 4d 49 54 5f 43 4f 4d 50 4f 55  LITE_OMIT_COMPOU
1860: 4e 44 5f 53 45 4c 45 43 54 0a 20 20 54 63 6c 5f  ND_SELECT.  Tcl_
1870: 53 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20  SetVar2(interp, 
1880: 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22  "sqlite_options"
1890: 2c 20 22 63 6f 6d 70 6f 75 6e 64 22 2c 20 22 30  , "compound", "0
18a0: 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e  ", TCL_GLOBAL_ON
18b0: 4c 59 29 3b 0a 23 65 6c 73 65 0a 20 20 54 63 6c  LY);.#else.  Tcl
18c0: 5f 53 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c  _SetVar2(interp,
18d0: 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73   "sqlite_options
18e0: 22 2c 20 22 63 6f 6d 70 6f 75 6e 64 22 2c 20 22  ", "compound", "
18f0: 31 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f  1", TCL_GLOBAL_O
1900: 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 0a 0a 23 69  NLY);.#endif..#i
1910: 66 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54  fdef SQLITE_OMIT
1920: 5f 43 4f 4e 46 4c 49 43 54 5f 43 4c 41 55 53 45  _CONFLICT_CLAUSE
1930: 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69  .  Tcl_SetVar2(i
1940: 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f  nterp, "sqlite_o
1950: 70 74 69 6f 6e 73 22 2c 20 22 63 6f 6e 66 6c 69  ptions", "confli
1960: 63 74 22 2c 20 22 30 22 2c 20 54 43 4c 5f 47 4c  ct", "0", TCL_GL
1970: 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c 73  OBAL_ONLY);.#els
1980: 65 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28  e.  Tcl_SetVar2(
1990: 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f  interp, "sqlite_
19a0: 6f 70 74 69 6f 6e 73 22 2c 20 22 63 6f 6e 66 6c  options", "confl
19b0: 69 63 74 22 2c 20 22 31 22 2c 20 54 43 4c 5f 47  ict", "1", TCL_G
19c0: 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e  LOBAL_ONLY);.#en
19d0: 64 69 66 0a 0a 23 69 66 20 53 51 4c 49 54 45 5f  dif..#if SQLITE_
19e0: 4f 53 5f 55 4e 49 58 0a 20 20 54 63 6c 5f 53 65  OS_UNIX.  Tcl_Se
19f0: 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73  tVar2(interp, "s
1a00: 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20  qlite_options", 
1a10: 22 63 72 61 73 68 74 65 73 74 22 2c 20 22 31 22  "crashtest", "1"
1a20: 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c  , TCL_GLOBAL_ONL
1a30: 59 29 3b 0a 23 65 6c 73 65 0a 20 20 54 63 6c 5f  Y);.#else.  Tcl_
1a40: 53 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20  SetVar2(interp, 
1a50: 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22  "sqlite_options"
1a60: 2c 20 22 63 72 61 73 68 74 65 73 74 22 2c 20 22  , "crashtest", "
1a70: 30 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f  0", TCL_GLOBAL_O
1a80: 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 0a 0a 23 69  NLY);.#endif..#i
1a90: 66 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54  fdef SQLITE_OMIT
1aa0: 5f 44 41 54 45 54 49 4d 45 5f 46 55 4e 43 53 0a  _DATETIME_FUNCS.
1ab0: 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e    Tcl_SetVar2(in
1ac0: 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70  terp, "sqlite_op
1ad0: 74 69 6f 6e 73 22 2c 20 22 64 61 74 65 74 69 6d  tions", "datetim
1ae0: 65 22 2c 20 22 30 22 2c 20 54 43 4c 5f 47 4c 4f  e", "0", TCL_GLO
1af0: 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c 73 65  BAL_ONLY);.#else
1b00: 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69  .  Tcl_SetVar2(i
1b10: 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f  nterp, "sqlite_o
1b20: 70 74 69 6f 6e 73 22 2c 20 22 64 61 74 65 74 69  ptions", "dateti
1b30: 6d 65 22 2c 20 22 31 22 2c 20 54 43 4c 5f 47 4c  me", "1", TCL_GL
1b40: 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64  OBAL_ONLY);.#end
1b50: 69 66 0a 0a 23 69 66 64 65 66 20 53 51 4c 49 54  if..#ifdef SQLIT
1b60: 45 5f 4f 4d 49 54 5f 44 45 43 4c 54 59 50 45 0a  E_OMIT_DECLTYPE.
1b70: 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e    Tcl_SetVar2(in
1b80: 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70  terp, "sqlite_op
1b90: 74 69 6f 6e 73 22 2c 20 22 64 65 63 6c 74 79 70  tions", "decltyp
1ba0: 65 22 2c 20 22 30 22 2c 20 54 43 4c 5f 47 4c 4f  e", "0", TCL_GLO
1bb0: 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c 73 65  BAL_ONLY);.#else
1bc0: 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69  .  Tcl_SetVar2(i
1bd0: 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f  nterp, "sqlite_o
1be0: 70 74 69 6f 6e 73 22 2c 20 22 64 65 63 6c 74 79  ptions", "declty
1bf0: 70 65 22 2c 20 22 31 22 2c 20 54 43 4c 5f 47 4c  pe", "1", TCL_GL
1c00: 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64  OBAL_ONLY);.#end
1c10: 69 66 0a 0a 23 69 66 64 65 66 20 53 51 4c 49 54  if..#ifdef SQLIT
1c20: 45 5f 4f 4d 49 54 5f 44 45 50 52 45 43 41 54 45  E_OMIT_DEPRECATE
1c30: 44 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28  D.  Tcl_SetVar2(
1c40: 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f  interp, "sqlite_
1c50: 6f 70 74 69 6f 6e 73 22 2c 20 22 64 65 70 72 65  options", "depre
1c60: 63 61 74 65 64 22 2c 20 22 30 22 2c 20 54 43 4c  cated", "0", TCL
1c70: 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23  _GLOBAL_ONLY);.#
1c80: 65 6c 73 65 0a 20 20 54 63 6c 5f 53 65 74 56 61  else.  Tcl_SetVa
1c90: 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69  r2(interp, "sqli
1ca0: 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 64 65  te_options", "de
1cb0: 70 72 65 63 61 74 65 64 22 2c 20 22 31 22 2c 20  precated", "1", 
1cc0: 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29  TCL_GLOBAL_ONLY)
1cd0: 3b 0a 23 65 6e 64 69 66 0a 0a 23 69 66 64 65 66  ;.#endif..#ifdef
1ce0: 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 44 49 53   SQLITE_OMIT_DIS
1cf0: 4b 49 4f 0a 20 20 54 63 6c 5f 53 65 74 56 61 72  KIO.  Tcl_SetVar
1d00: 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74  2(interp, "sqlit
1d10: 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 64 69 73  e_options", "dis
1d20: 6b 69 6f 22 2c 20 22 30 22 2c 20 54 43 4c 5f 47  kio", "0", TCL_G
1d30: 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c  LOBAL_ONLY);.#el
1d40: 73 65 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32  se.  Tcl_SetVar2
1d50: 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65  (interp, "sqlite
1d60: 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 64 69 73 6b  _options", "disk
1d70: 69 6f 22 2c 20 22 31 22 2c 20 54 43 4c 5f 47 4c  io", "1", TCL_GL
1d80: 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64  OBAL_ONLY);.#end
1d90: 69 66 0a 0a 23 69 66 64 65 66 20 53 51 4c 49 54  if..#ifdef SQLIT
1da0: 45 5f 4f 4d 49 54 5f 45 58 50 4c 41 49 4e 0a 20  E_OMIT_EXPLAIN. 
1db0: 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74   Tcl_SetVar2(int
1dc0: 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74  erp, "sqlite_opt
1dd0: 69 6f 6e 73 22 2c 20 22 65 78 70 6c 61 69 6e 22  ions", "explain"
1de0: 2c 20 22 30 22 2c 20 54 43 4c 5f 47 4c 4f 42 41  , "0", TCL_GLOBA
1df0: 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c 73 65 0a 20  L_ONLY);.#else. 
1e00: 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74   Tcl_SetVar2(int
1e10: 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74  erp, "sqlite_opt
1e20: 69 6f 6e 73 22 2c 20 22 65 78 70 6c 61 69 6e 22  ions", "explain"
1e30: 2c 20 22 31 22 2c 20 54 43 4c 5f 47 4c 4f 42 41  , "1", TCL_GLOBA
1e40: 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 0a  L_ONLY);.#endif.
1e50: 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 4f  .#ifdef SQLITE_O
1e60: 4d 49 54 5f 46 4c 4f 41 54 49 4e 47 5f 50 4f 49  MIT_FLOATING_POI
1e70: 4e 54 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32  NT.  Tcl_SetVar2
1e80: 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65  (interp, "sqlite
1e90: 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 66 6c 6f 61  _options", "floa
1ea0: 74 69 6e 67 70 6f 69 6e 74 22 2c 20 22 30 22 2c  tingpoint", "0",
1eb0: 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59   TCL_GLOBAL_ONLY
1ec0: 29 3b 0a 23 65 6c 73 65 0a 20 20 54 63 6c 5f 53  );.#else.  Tcl_S
1ed0: 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20 22  etVar2(interp, "
1ee0: 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c  sqlite_options",
1ef0: 20 22 66 6c 6f 61 74 69 6e 67 70 6f 69 6e 74 22   "floatingpoint"
1f00: 2c 20 22 31 22 2c 20 54 43 4c 5f 47 4c 4f 42 41  , "1", TCL_GLOBA
1f10: 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 0a  L_ONLY);.#endif.
1f20: 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 4f  .#ifdef SQLITE_O
1f30: 4d 49 54 5f 46 4f 52 45 49 47 4e 5f 4b 45 59 0a  MIT_FOREIGN_KEY.
1f40: 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e    Tcl_SetVar2(in
1f50: 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70  terp, "sqlite_op
1f60: 74 69 6f 6e 73 22 2c 20 22 66 6f 72 65 69 67 6e  tions", "foreign
1f70: 6b 65 79 22 2c 20 22 30 22 2c 20 54 43 4c 5f 47  key", "0", TCL_G
1f80: 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c  LOBAL_ONLY);.#el
1f90: 73 65 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32  se.  Tcl_SetVar2
1fa0: 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65  (interp, "sqlite
1fb0: 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 66 6f 72 65  _options", "fore
1fc0: 69 67 6e 6b 65 79 22 2c 20 22 31 22 2c 20 54 43  ignkey", "1", TC
1fd0: 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a  L_GLOBAL_ONLY);.
1fe0: 23 65 6e 64 69 66 0a 0a 23 69 66 64 65 66 20 53  #endif..#ifdef S
1ff0: 51 4c 49 54 45 5f 45 4e 41 42 4c 45 5f 46 54 53  QLITE_ENABLE_FTS
2000: 31 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28  1.  Tcl_SetVar2(
2010: 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f  interp, "sqlite_
2020: 6f 70 74 69 6f 6e 73 22 2c 20 22 66 74 73 31 22  options", "fts1"
2030: 2c 20 22 31 22 2c 20 54 43 4c 5f 47 4c 4f 42 41  , "1", TCL_GLOBA
2040: 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c 73 65 0a 20  L_ONLY);.#else. 
2050: 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74   Tcl_SetVar2(int
2060: 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74  erp, "sqlite_opt
2070: 69 6f 6e 73 22 2c 20 22 66 74 73 31 22 2c 20 22  ions", "fts1", "
2080: 30 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f  0", TCL_GLOBAL_O
2090: 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 0a 0a 23 69  NLY);.#endif..#i
20a0: 66 64 65 66 20 53 51 4c 49 54 45 5f 45 4e 41 42  fdef SQLITE_ENAB
20b0: 4c 45 5f 46 54 53 32 0a 20 20 54 63 6c 5f 53 65  LE_FTS2.  Tcl_Se
20c0: 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73  tVar2(interp, "s
20d0: 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20  qlite_options", 
20e0: 22 66 74 73 32 22 2c 20 22 31 22 2c 20 54 43 4c  "fts2", "1", TCL
20f0: 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23  _GLOBAL_ONLY);.#
2100: 65 6c 73 65 0a 20 20 54 63 6c 5f 53 65 74 56 61  else.  Tcl_SetVa
2110: 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69  r2(interp, "sqli
2120: 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 66 74  te_options", "ft
2130: 73 32 22 2c 20 22 30 22 2c 20 54 43 4c 5f 47 4c  s2", "0", TCL_GL
2140: 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64  OBAL_ONLY);.#end
2150: 69 66 0a 0a 23 69 66 64 65 66 20 53 51 4c 49 54  if..#ifdef SQLIT
2160: 45 5f 45 4e 41 42 4c 45 5f 46 54 53 33 0a 20 20  E_ENABLE_FTS3.  
2170: 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 65  Tcl_SetVar2(inte
2180: 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 69  rp, "sqlite_opti
2190: 6f 6e 73 22 2c 20 22 66 74 73 33 22 2c 20 22 31  ons", "fts3", "1
21a0: 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e  ", TCL_GLOBAL_ON
21b0: 4c 59 29 3b 0a 23 65 6c 73 65 0a 20 20 54 63 6c  LY);.#else.  Tcl
21c0: 5f 53 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c  _SetVar2(interp,
21d0: 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73   "sqlite_options
21e0: 22 2c 20 22 66 74 73 33 22 2c 20 22 30 22 2c 20  ", "fts3", "0", 
21f0: 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29  TCL_GLOBAL_ONLY)
2200: 3b 0a 23 65 6e 64 69 66 0a 0a 23 69 66 64 65 66  ;.#endif..#ifdef
2210: 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 47 45 54   SQLITE_OMIT_GET
2220: 5f 54 41 42 4c 45 0a 20 20 54 63 6c 5f 53 65 74  _TABLE.  Tcl_Set
2230: 56 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71  Var2(interp, "sq
2240: 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22  lite_options", "
2250: 67 65 74 74 61 62 6c 65 22 2c 20 22 30 22 2c 20  gettable", "0", 
2260: 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29  TCL_GLOBAL_ONLY)
2270: 3b 0a 23 65 6c 73 65 0a 20 20 54 63 6c 5f 53 65  ;.#else.  Tcl_Se
2280: 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73  tVar2(interp, "s
2290: 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20  qlite_options", 
22a0: 22 67 65 74 74 61 62 6c 65 22 2c 20 22 31 22 2c  "gettable", "1",
22b0: 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59   TCL_GLOBAL_ONLY
22c0: 29 3b 0a 23 65 6e 64 69 66 0a 0a 23 69 66 64 65  );.#endif..#ifde
22d0: 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 47 4c  f SQLITE_OMIT_GL
22e0: 4f 42 41 4c 52 45 43 4f 56 45 52 0a 20 20 54 63  OBALRECOVER.  Tc
22f0: 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 65 72 70  l_SetVar2(interp
2300: 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e  , "sqlite_option
2310: 73 22 2c 20 22 67 6c 6f 62 61 6c 72 65 63 6f 76  s", "globalrecov
2320: 65 72 22 2c 20 22 30 22 2c 20 54 43 4c 5f 47 4c  er", "0", TCL_GL
2330: 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c 73  OBAL_ONLY);.#els
2340: 65 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28  e.  Tcl_SetVar2(
2350: 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f  interp, "sqlite_
2360: 6f 70 74 69 6f 6e 73 22 2c 20 22 67 6c 6f 62 61  options", "globa
2370: 6c 72 65 63 6f 76 65 72 22 2c 20 22 31 22 2c 20  lrecover", "1", 
2380: 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29  TCL_GLOBAL_ONLY)
2390: 3b 0a 23 65 6e 64 69 66 0a 0a 23 69 66 64 65 66  ;.#endif..#ifdef
23a0: 20 53 51 4c 49 54 45 5f 45 4e 41 42 4c 45 5f 49   SQLITE_ENABLE_I
23b0: 43 55 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32  CU.  Tcl_SetVar2
23c0: 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65  (interp, "sqlite
23d0: 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 69 63 75 22  _options", "icu"
23e0: 2c 20 22 31 22 2c 20 54 43 4c 5f 47 4c 4f 42 41  , "1", TCL_GLOBA
23f0: 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c 73 65 0a 20  L_ONLY);.#else. 
2400: 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74   Tcl_SetVar2(int
2410: 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74  erp, "sqlite_opt
2420: 69 6f 6e 73 22 2c 20 22 69 63 75 22 2c 20 22 30  ions", "icu", "0
2430: 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e  ", TCL_GLOBAL_ON
2440: 4c 59 29 3b 0a 23 65 6e 64 69 66 0a 0a 23 69 66  LY);.#endif..#if
2450: 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f  def SQLITE_OMIT_
2460: 49 4e 43 52 42 4c 4f 42 0a 20 20 54 63 6c 5f 53  INCRBLOB.  Tcl_S
2470: 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20 22  etVar2(interp, "
2480: 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c  sqlite_options",
2490: 20 22 69 6e 63 72 62 6c 6f 62 22 2c 20 22 30 22   "incrblob", "0"
24a0: 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c  , TCL_GLOBAL_ONL
24b0: 59 29 3b 0a 23 65 6c 73 65 0a 20 20 54 63 6c 5f  Y);.#else.  Tcl_
24c0: 53 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20  SetVar2(interp, 
24d0: 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22  "sqlite_options"
24e0: 2c 20 22 69 6e 63 72 62 6c 6f 62 22 2c 20 22 31  , "incrblob", "1
24f0: 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e  ", TCL_GLOBAL_ON
2500: 4c 59 29 3b 0a 23 65 6e 64 69 66 20 2f 2a 20 53  LY);.#endif /* S
2510: 51 4c 49 54 45 5f 4f 4d 49 54 5f 41 55 54 4f 56  QLITE_OMIT_AUTOV
2520: 41 43 55 55 4d 20 2a 2f 0a 0a 23 69 66 64 65 66  ACUUM */..#ifdef
2530: 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 49 4e 54   SQLITE_OMIT_INT
2540: 45 47 52 49 54 59 5f 43 48 45 43 4b 0a 20 20 54  EGRITY_CHECK.  T
2550: 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 65 72  cl_SetVar2(inter
2560: 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f  p, "sqlite_optio
2570: 6e 73 22 2c 20 22 69 6e 74 65 67 72 69 74 79 63  ns", "integrityc
2580: 6b 22 2c 20 22 30 22 2c 20 54 43 4c 5f 47 4c 4f  k", "0", TCL_GLO
2590: 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c 73 65  BAL_ONLY);.#else
25a0: 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69  .  Tcl_SetVar2(i
25b0: 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f  nterp, "sqlite_o
25c0: 70 74 69 6f 6e 73 22 2c 20 22 69 6e 74 65 67 72  ptions", "integr
25d0: 69 74 79 63 6b 22 2c 20 22 31 22 2c 20 54 43 4c  ityck", "1", TCL
25e0: 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23  _GLOBAL_ONLY);.#
25f0: 65 6e 64 69 66 0a 0a 23 69 66 20 64 65 66 69 6e  endif..#if defin
2600: 65 64 28 53 51 4c 49 54 45 5f 44 45 46 41 55 4c  ed(SQLITE_DEFAUL
2610: 54 5f 46 49 4c 45 5f 46 4f 52 4d 41 54 29 20 26  T_FILE_FORMAT) &
2620: 26 20 53 51 4c 49 54 45 5f 44 45 46 41 55 4c 54  & SQLITE_DEFAULT
2630: 5f 46 49 4c 45 5f 46 4f 52 4d 41 54 3d 3d 31 0a  _FILE_FORMAT==1.
2640: 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e    Tcl_SetVar2(in
2650: 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70  terp, "sqlite_op
2660: 74 69 6f 6e 73 22 2c 20 22 6c 65 67 61 63 79 66  tions", "legacyf
2670: 6f 72 6d 61 74 22 2c 20 22 31 22 2c 20 54 43 4c  ormat", "1", TCL
2680: 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23  _GLOBAL_ONLY);.#
2690: 65 6c 73 65 0a 20 20 54 63 6c 5f 53 65 74 56 61  else.  Tcl_SetVa
26a0: 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69  r2(interp, "sqli
26b0: 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 6c 65  te_options", "le
26c0: 67 61 63 79 66 6f 72 6d 61 74 22 2c 20 22 30 22  gacyformat", "0"
26d0: 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c  , TCL_GLOBAL_ONL
26e0: 59 29 3b 0a 23 65 6e 64 69 66 0a 0a 23 69 66 64  Y);.#endif..#ifd
26f0: 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 4c  ef SQLITE_OMIT_L
2700: 49 4b 45 5f 4f 50 54 49 4d 49 5a 41 54 49 4f 4e  IKE_OPTIMIZATION
2710: 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69  .  Tcl_SetVar2(i
2720: 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f  nterp, "sqlite_o
2730: 70 74 69 6f 6e 73 22 2c 20 22 6c 69 6b 65 5f 6f  ptions", "like_o
2740: 70 74 22 2c 20 22 30 22 2c 20 54 43 4c 5f 47 4c  pt", "0", TCL_GL
2750: 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c 73  OBAL_ONLY);.#els
2760: 65 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28  e.  Tcl_SetVar2(
2770: 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f  interp, "sqlite_
2780: 6f 70 74 69 6f 6e 73 22 2c 20 22 6c 69 6b 65 5f  options", "like_
2790: 6f 70 74 22 2c 20 22 31 22 2c 20 54 43 4c 5f 47  opt", "1", TCL_G
27a0: 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e  LOBAL_ONLY);.#en
27b0: 64 69 66 0a 0a 23 69 66 64 65 66 20 53 51 4c 49  dif..#ifdef SQLI
27c0: 54 45 5f 4f 4d 49 54 5f 4c 4f 41 44 5f 45 58 54  TE_OMIT_LOAD_EXT
27d0: 45 4e 53 49 4f 4e 0a 20 20 54 63 6c 5f 53 65 74  ENSION.  Tcl_Set
27e0: 56 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71  Var2(interp, "sq
27f0: 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22  lite_options", "
2800: 6c 6f 61 64 5f 65 78 74 22 2c 20 22 30 22 2c 20  load_ext", "0", 
2810: 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29  TCL_GLOBAL_ONLY)
2820: 3b 0a 23 65 6c 73 65 0a 20 20 54 63 6c 5f 53 65  ;.#else.  Tcl_Se
2830: 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73  tVar2(interp, "s
2840: 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20  qlite_options", 
2850: 22 6c 6f 61 64 5f 65 78 74 22 2c 20 22 31 22 2c  "load_ext", "1",
2860: 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59   TCL_GLOBAL_ONLY
2870: 29 3b 0a 23 65 6e 64 69 66 0a 0a 23 69 66 64 65  );.#endif..#ifde
2880: 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 4c 4f  f SQLITE_OMIT_LO
2890: 43 41 4c 54 49 4d 45 0a 20 20 54 63 6c 5f 53 65  CALTIME.  Tcl_Se
28a0: 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73  tVar2(interp, "s
28b0: 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20  qlite_options", 
28c0: 22 6c 6f 63 61 6c 74 69 6d 65 22 2c 20 22 30 22  "localtime", "0"
28d0: 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c  , TCL_GLOBAL_ONL
28e0: 59 29 3b 0a 23 65 6c 73 65 0a 20 20 54 63 6c 5f  Y);.#else.  Tcl_
28f0: 53 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20  SetVar2(interp, 
2900: 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22  "sqlite_options"
2910: 2c 20 22 6c 6f 63 61 6c 74 69 6d 65 22 2c 20 22  , "localtime", "
2920: 31 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f  1", TCL_GLOBAL_O
2930: 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 0a 0a 23 69  NLY);.#endif..#i
2940: 66 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54  fdef SQLITE_OMIT
2950: 5f 4c 4f 4f 4b 41 53 49 44 45 0a 20 20 54 63 6c  _LOOKASIDE.  Tcl
2960: 5f 53 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c  _SetVar2(interp,
2970: 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73   "sqlite_options
2980: 22 2c 20 22 6c 6f 6f 6b 61 73 69 64 65 22 2c 20  ", "lookaside", 
2990: 22 30 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f  "0", TCL_GLOBAL_
29a0: 4f 4e 4c 59 29 3b 0a 23 65 6c 73 65 0a 20 20 54  ONLY);.#else.  T
29b0: 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 65 72  cl_SetVar2(inter
29c0: 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f  p, "sqlite_optio
29d0: 6e 73 22 2c 20 22 6c 6f 6f 6b 61 73 69 64 65 22  ns", "lookaside"
29e0: 2c 20 22 31 22 2c 20 54 43 4c 5f 47 4c 4f 42 41  , "1", TCL_GLOBA
29f0: 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 0a  L_ONLY);.#endif.
2a00: 0a 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74  .Tcl_SetVar2(int
2a10: 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74  erp, "sqlite_opt
2a20: 69 6f 6e 73 22 2c 20 22 6c 6f 6e 67 5f 64 6f 75  ions", "long_dou
2a30: 62 6c 65 22 2c 0a 20 20 20 20 20 20 20 20 20 20  ble",.          
2a40: 20 20 20 20 73 69 7a 65 6f 66 28 4c 4f 4e 47 44      sizeof(LONGD
2a50: 4f 55 42 4c 45 5f 54 59 50 45 29 3e 73 69 7a 65  OUBLE_TYPE)>size
2a60: 6f 66 28 64 6f 75 62 6c 65 29 20 3f 20 22 31 22  of(double) ? "1"
2a70: 20 3a 20 22 30 22 2c 0a 20 20 20 20 20 20 20 20   : "0",.        
2a80: 20 20 20 20 20 20 54 43 4c 5f 47 4c 4f 42 41 4c        TCL_GLOBAL
2a90: 5f 4f 4e 4c 59 29 3b 0a 0a 23 69 66 64 65 66 20  _ONLY);..#ifdef 
2aa0: 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 4d 45 4d 4f  SQLITE_OMIT_MEMO
2ab0: 52 59 44 42 0a 20 20 54 63 6c 5f 53 65 74 56 61  RYDB.  Tcl_SetVa
2ac0: 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69  r2(interp, "sqli
2ad0: 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 6d 65  te_options", "me
2ae0: 6d 6f 72 79 64 62 22 2c 20 22 30 22 2c 20 54 43  morydb", "0", TC
2af0: 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a  L_GLOBAL_ONLY);.
2b00: 23 65 6c 73 65 0a 20 20 54 63 6c 5f 53 65 74 56  #else.  Tcl_SetV
2b10: 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c  ar2(interp, "sql
2b20: 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 6d  ite_options", "m
2b30: 65 6d 6f 72 79 64 62 22 2c 20 22 31 22 2c 20 54  emorydb", "1", T
2b40: 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b  CL_GLOBAL_ONLY);
2b50: 0a 23 65 6e 64 69 66 0a 0a 23 69 66 64 65 66 20  .#endif..#ifdef 
2b60: 53 51 4c 49 54 45 5f 45 4e 41 42 4c 45 5f 4d 45  SQLITE_ENABLE_ME
2b70: 4d 4f 52 59 5f 4d 41 4e 41 47 45 4d 45 4e 54 0a  MORY_MANAGEMENT.
2b80: 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e    Tcl_SetVar2(in
2b90: 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70  terp, "sqlite_op
2ba0: 74 69 6f 6e 73 22 2c 20 22 6d 65 6d 6f 72 79 6d  tions", "memorym
2bb0: 61 6e 61 67 65 22 2c 20 22 31 22 2c 20 54 43 4c  anage", "1", TCL
2bc0: 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23  _GLOBAL_ONLY);.#
2bd0: 65 6c 73 65 0a 20 20 54 63 6c 5f 53 65 74 56 61  else.  Tcl_SetVa
2be0: 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69  r2(interp, "sqli
2bf0: 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 6d 65  te_options", "me
2c00: 6d 6f 72 79 6d 61 6e 61 67 65 22 2c 20 22 30 22  morymanage", "0"
2c10: 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c  , TCL_GLOBAL_ONL
2c20: 59 29 3b 0a 23 65 6e 64 69 66 0a 0a 23 69 66 64  Y);.#endif..#ifd
2c30: 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 4f  ef SQLITE_OMIT_O
2c40: 52 5f 4f 50 54 49 4d 49 5a 41 54 49 4f 4e 0a 20  R_OPTIMIZATION. 
2c50: 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74   Tcl_SetVar2(int
2c60: 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74  erp, "sqlite_opt
2c70: 69 6f 6e 73 22 2c 20 22 6f 72 5f 6f 70 74 22 2c  ions", "or_opt",
2c80: 20 22 30 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c   "0", TCL_GLOBAL
2c90: 5f 4f 4e 4c 59 29 3b 0a 23 65 6c 73 65 0a 20 20  _ONLY);.#else.  
2ca0: 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 65  Tcl_SetVar2(inte
2cb0: 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 69  rp, "sqlite_opti
2cc0: 6f 6e 73 22 2c 20 22 6f 72 5f 6f 70 74 22 2c 20  ons", "or_opt", 
2cd0: 22 31 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f  "1", TCL_GLOBAL_
2ce0: 4f 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 0a 0a 23  ONLY);.#endif..#
2cf0: 69 66 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49  ifdef SQLITE_OMI
2d00: 54 5f 50 41 47 45 52 5f 50 52 41 47 4d 41 53 0a  T_PAGER_PRAGMAS.
2d10: 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e    Tcl_SetVar2(in
2d20: 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70  terp, "sqlite_op
2d30: 74 69 6f 6e 73 22 2c 20 22 70 61 67 65 72 5f 70  tions", "pager_p
2d40: 72 61 67 6d 61 73 22 2c 20 22 30 22 2c 20 54 43  ragmas", "0", TC
2d50: 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a  L_GLOBAL_ONLY);.
2d60: 23 65 6c 73 65 0a 20 20 54 63 6c 5f 53 65 74 56  #else.  Tcl_SetV
2d70: 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c  ar2(interp, "sql
2d80: 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 70  ite_options", "p
2d90: 61 67 65 72 5f 70 72 61 67 6d 61 73 22 2c 20 22  ager_pragmas", "
2da0: 31 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f  1", TCL_GLOBAL_O
2db0: 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 0a 0a 23 69  NLY);.#endif..#i
2dc0: 66 20 64 65 66 69 6e 65 64 28 53 51 4c 49 54 45  f defined(SQLITE
2dd0: 5f 4f 4d 49 54 5f 50 52 41 47 4d 41 29 20 7c 7c  _OMIT_PRAGMA) ||
2de0: 20 64 65 66 69 6e 65 64 28 53 51 4c 49 54 45 5f   defined(SQLITE_
2df0: 4f 4d 49 54 5f 46 4c 41 47 5f 50 52 41 47 4d 41  OMIT_FLAG_PRAGMA
2e00: 53 29 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32  S).  Tcl_SetVar2
2e10: 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65  (interp, "sqlite
2e20: 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 70 72 61 67  _options", "prag
2e30: 6d 61 22 2c 20 22 30 22 2c 20 54 43 4c 5f 47 4c  ma", "0", TCL_GL
2e40: 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 20 20 54 63  OBAL_ONLY);.  Tc
2e50: 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 65 72 70  l_SetVar2(interp
2e60: 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e  , "sqlite_option
2e70: 73 22 2c 20 22 69 6e 74 65 67 72 69 74 79 63 6b  s", "integrityck
2e80: 22 2c 20 22 30 22 2c 20 54 43 4c 5f 47 4c 4f 42  ", "0", TCL_GLOB
2e90: 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c 73 65 0a  AL_ONLY);.#else.
2ea0: 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e    Tcl_SetVar2(in
2eb0: 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70  terp, "sqlite_op
2ec0: 74 69 6f 6e 73 22 2c 20 22 70 72 61 67 6d 61 22  tions", "pragma"
2ed0: 2c 20 22 31 22 2c 20 54 43 4c 5f 47 4c 4f 42 41  , "1", TCL_GLOBA
2ee0: 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 0a  L_ONLY);.#endif.
2ef0: 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 4f  .#ifdef SQLITE_O
2f00: 4d 49 54 5f 50 52 4f 47 52 45 53 53 5f 43 41 4c  MIT_PROGRESS_CAL
2f10: 4c 42 41 43 4b 0a 20 20 54 63 6c 5f 53 65 74 56  LBACK.  Tcl_SetV
2f20: 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c  ar2(interp, "sql
2f30: 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 70  ite_options", "p
2f40: 72 6f 67 72 65 73 73 22 2c 20 22 30 22 2c 20 54  rogress", "0", T
2f50: 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b  CL_GLOBAL_ONLY);
2f60: 0a 23 65 6c 73 65 0a 20 20 54 63 6c 5f 53 65 74  .#else.  Tcl_Set
2f70: 56 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71  Var2(interp, "sq
2f80: 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22  lite_options", "
2f90: 70 72 6f 67 72 65 73 73 22 2c 20 22 31 22 2c 20  progress", "1", 
2fa0: 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29  TCL_GLOBAL_ONLY)
2fb0: 3b 0a 23 65 6e 64 69 66 0a 0a 23 69 66 64 65 66  ;.#endif..#ifdef
2fc0: 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 52 45 49   SQLITE_OMIT_REI
2fd0: 4e 44 45 58 0a 20 20 54 63 6c 5f 53 65 74 56 61  NDEX.  Tcl_SetVa
2fe0: 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69  r2(interp, "sqli
2ff0: 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 72 65  te_options", "re
3000: 69 6e 64 65 78 22 2c 20 22 30 22 2c 20 54 43 4c  index", "0", TCL
3010: 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23  _GLOBAL_ONLY);.#
3020: 65 6c 73 65 0a 20 20 54 63 6c 5f 53 65 74 56 61  else.  Tcl_SetVa
3030: 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69  r2(interp, "sqli
3040: 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 72 65  te_options", "re
3050: 69 6e 64 65 78 22 2c 20 22 31 22 2c 20 54 43 4c  index", "1", TCL
3060: 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23  _GLOBAL_ONLY);.#
3070: 65 6e 64 69 66 0a 0a 23 69 66 64 65 66 20 53 51  endif..#ifdef SQ
3080: 4c 49 54 45 5f 45 4e 41 42 4c 45 5f 52 54 52 45  LITE_ENABLE_RTRE
3090: 45 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28  E.  Tcl_SetVar2(
30a0: 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f  interp, "sqlite_
30b0: 6f 70 74 69 6f 6e 73 22 2c 20 22 72 74 72 65 65  options", "rtree
30c0: 22 2c 20 22 31 22 2c 20 54 43 4c 5f 47 4c 4f 42  ", "1", TCL_GLOB
30d0: 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c 73 65 0a  AL_ONLY);.#else.
30e0: 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e    Tcl_SetVar2(in
30f0: 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70  terp, "sqlite_op
3100: 74 69 6f 6e 73 22 2c 20 22 72 74 72 65 65 22 2c  tions", "rtree",
3110: 20 22 30 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c   "0", TCL_GLOBAL
3120: 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 0a 0a  _ONLY);.#endif..
3130: 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d  #ifdef SQLITE_OM
3140: 49 54 5f 53 43 48 45 4d 41 5f 50 52 41 47 4d 41  IT_SCHEMA_PRAGMA
3150: 53 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28  S.  Tcl_SetVar2(
3160: 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f  interp, "sqlite_
3170: 6f 70 74 69 6f 6e 73 22 2c 20 22 73 63 68 65 6d  options", "schem
3180: 61 5f 70 72 61 67 6d 61 73 22 2c 20 22 30 22 2c  a_pragmas", "0",
3190: 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59   TCL_GLOBAL_ONLY
31a0: 29 3b 0a 23 65 6c 73 65 0a 20 20 54 63 6c 5f 53  );.#else.  Tcl_S
31b0: 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20 22  etVar2(interp, "
31c0: 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c  sqlite_options",
31d0: 20 22 73 63 68 65 6d 61 5f 70 72 61 67 6d 61 73   "schema_pragmas
31e0: 22 2c 20 22 31 22 2c 20 54 43 4c 5f 47 4c 4f 42  ", "1", TCL_GLOB
31f0: 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64 69 66  AL_ONLY);.#endif
3200: 0a 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f  ..#ifdef SQLITE_
3210: 4f 4d 49 54 5f 53 43 48 45 4d 41 5f 56 45 52 53  OMIT_SCHEMA_VERS
3220: 49 4f 4e 5f 50 52 41 47 4d 41 53 0a 20 20 54 63  ION_PRAGMAS.  Tc
3230: 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 65 72 70  l_SetVar2(interp
3240: 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e  , "sqlite_option
3250: 73 22 2c 20 22 73 63 68 65 6d 61 5f 76 65 72 73  s", "schema_vers
3260: 69 6f 6e 22 2c 20 22 30 22 2c 20 54 43 4c 5f 47  ion", "0", TCL_G
3270: 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c  LOBAL_ONLY);.#el
3280: 73 65 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32  se.  Tcl_SetVar2
3290: 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65  (interp, "sqlite
32a0: 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 73 63 68 65  _options", "sche
32b0: 6d 61 5f 76 65 72 73 69 6f 6e 22 2c 20 22 31 22  ma_version", "1"
32c0: 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c  , TCL_GLOBAL_ONL
32d0: 59 29 3b 0a 23 65 6e 64 69 66 0a 0a 23 69 66 64  Y);.#endif..#ifd
32e0: 65 66 20 53 51 4c 49 54 45 5f 45 4e 41 42 4c 45  ef SQLITE_ENABLE
32f0: 5f 53 54 41 54 32 0a 20 20 54 63 6c 5f 53 65 74  _STAT2.  Tcl_Set
3300: 56 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71  Var2(interp, "sq
3310: 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22  lite_options", "
3320: 73 74 61 74 32 22 2c 20 22 31 22 2c 20 54 43 4c  stat2", "1", TCL
3330: 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23  _GLOBAL_ONLY);.#
3340: 65 6c 73 65 0a 20 20 54 63 6c 5f 53 65 74 56 61  else.  Tcl_SetVa
3350: 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69  r2(interp, "sqli
3360: 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 73 74  te_options", "st
3370: 61 74 32 22 2c 20 22 30 22 2c 20 54 43 4c 5f 47  at2", "0", TCL_G
3380: 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e  LOBAL_ONLY);.#en
3390: 64 69 66 0a 0a 23 69 66 20 21 64 65 66 69 6e 65  dif..#if !define
33a0: 64 28 53 51 4c 49 54 45 5f 45 4e 41 42 4c 45 5f  d(SQLITE_ENABLE_
33b0: 4c 4f 43 4b 49 4e 47 5f 53 54 59 4c 45 29 0a 23  LOCKING_STYLE).#
33c0: 20 20 69 66 20 64 65 66 69 6e 65 64 28 5f 5f 41    if defined(__A
33d0: 50 50 4c 45 5f 5f 29 0a 23 20 20 20 20 64 65 66  PPLE__).#    def
33e0: 69 6e 65 20 53 51 4c 49 54 45 5f 45 4e 41 42 4c  ine SQLITE_ENABL
33f0: 45 5f 4c 4f 43 4b 49 4e 47 5f 53 54 59 4c 45 20  E_LOCKING_STYLE 
3400: 31 0a 23 20 20 65 6c 73 65 0a 23 20 20 20 20 64  1.#  else.#    d
3410: 65 66 69 6e 65 20 53 51 4c 49 54 45 5f 45 4e 41  efine SQLITE_ENA
3420: 42 4c 45 5f 4c 4f 43 4b 49 4e 47 5f 53 54 59 4c  BLE_LOCKING_STYL
3430: 45 20 30 0a 23 20 20 65 6e 64 69 66 0a 23 65 6e  E 0.#  endif.#en
3440: 64 69 66 0a 23 69 66 20 53 51 4c 49 54 45 5f 45  dif.#if SQLITE_E
3450: 4e 41 42 4c 45 5f 4c 4f 43 4b 49 4e 47 5f 53 54  NABLE_LOCKING_ST
3460: 59 4c 45 20 26 26 20 64 65 66 69 6e 65 64 28 5f  YLE && defined(_
3470: 5f 41 50 50 4c 45 5f 5f 29 0a 20 20 54 63 6c 5f  _APPLE__).  Tcl_
3480: 53 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c 22  SetVar2(interp,"
3490: 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c  sqlite_options",
34a0: 22 6c 6f 63 6b 5f 70 72 6f 78 79 5f 70 72 61 67  "lock_proxy_prag
34b0: 6d 61 73 22 2c 22 31 22 2c 54 43 4c 5f 47 4c 4f  mas","1",TCL_GLO
34c0: 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c 73 65  BAL_ONLY);.#else
34d0: 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69  .  Tcl_SetVar2(i
34e0: 6e 74 65 72 70 2c 22 73 71 6c 69 74 65 5f 6f 70  nterp,"sqlite_op
34f0: 74 69 6f 6e 73 22 2c 22 6c 6f 63 6b 5f 70 72 6f  tions","lock_pro
3500: 78 79 5f 70 72 61 67 6d 61 73 22 2c 22 30 22 2c  xy_pragmas","0",
3510: 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29  TCL_GLOBAL_ONLY)
3520: 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 64 65 66  ;.#endif.#if def
3530: 69 6e 65 64 28 53 51 4c 49 54 45 5f 50 52 45 46  ined(SQLITE_PREF
3540: 45 52 5f 50 52 4f 58 59 5f 4c 4f 43 4b 49 4e 47  ER_PROXY_LOCKING
3550: 29 20 26 26 20 64 65 66 69 6e 65 64 28 5f 5f 41  ) && defined(__A
3560: 50 50 4c 45 5f 5f 29 0a 20 20 54 63 6c 5f 53 65  PPLE__).  Tcl_Se
3570: 74 56 61 72 32 28 69 6e 74 65 72 70 2c 22 73 71  tVar2(interp,"sq
3580: 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 22 70  lite_options","p
3590: 72 65 66 65 72 5f 70 72 6f 78 79 5f 6c 6f 63 6b  refer_proxy_lock
35a0: 69 6e 67 22 2c 22 31 22 2c 54 43 4c 5f 47 4c 4f  ing","1",TCL_GLO
35b0: 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c 73 65  BAL_ONLY);.#else
35c0: 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69  .  Tcl_SetVar2(i
35d0: 6e 74 65 72 70 2c 22 73 71 6c 69 74 65 5f 6f 70  nterp,"sqlite_op
35e0: 74 69 6f 6e 73 22 2c 22 70 72 65 66 65 72 5f 70  tions","prefer_p
35f0: 72 6f 78 79 5f 6c 6f 63 6b 69 6e 67 22 2c 22 30  roxy_locking","0
3600: 22 2c 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c  ",TCL_GLOBAL_ONL
3610: 59 29 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 0a  Y);.#endif.    .
3620: 20 20 20 20 0a 23 69 66 64 65 66 20 53 51 4c 49      .#ifdef SQLI
3630: 54 45 5f 4f 4d 49 54 5f 53 48 41 52 45 44 5f 43  TE_OMIT_SHARED_C
3640: 41 43 48 45 0a 20 20 54 63 6c 5f 53 65 74 56 61  ACHE.  Tcl_SetVa
3650: 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69  r2(interp, "sqli
3660: 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 73 68  te_options", "sh
3670: 61 72 65 64 5f 63 61 63 68 65 22 2c 20 22 30 22  ared_cache", "0"
3680: 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c  , TCL_GLOBAL_ONL
3690: 59 29 3b 0a 23 65 6c 73 65 0a 20 20 54 63 6c 5f  Y);.#else.  Tcl_
36a0: 53 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20  SetVar2(interp, 
36b0: 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22  "sqlite_options"
36c0: 2c 20 22 73 68 61 72 65 64 5f 63 61 63 68 65 22  , "shared_cache"
36d0: 2c 20 22 31 22 2c 20 54 43 4c 5f 47 4c 4f 42 41  , "1", TCL_GLOBA
36e0: 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 0a  L_ONLY);.#endif.
36f0: 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 4f  .#ifdef SQLITE_O
3700: 4d 49 54 5f 53 55 42 51 55 45 52 59 0a 20 20 54  MIT_SUBQUERY.  T
3710: 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 65 72  cl_SetVar2(inter
3720: 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f  p, "sqlite_optio
3730: 6e 73 22 2c 20 22 73 75 62 71 75 65 72 79 22 2c  ns", "subquery",
3740: 20 22 30 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c   "0", TCL_GLOBAL
3750: 5f 4f 4e 4c 59 29 3b 0a 23 65 6c 73 65 0a 20 20  _ONLY);.#else.  
3760: 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 65  Tcl_SetVar2(inte
3770: 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 69  rp, "sqlite_opti
3780: 6f 6e 73 22 2c 20 22 73 75 62 71 75 65 72 79 22  ons", "subquery"
3790: 2c 20 22 31 22 2c 20 54 43 4c 5f 47 4c 4f 42 41  , "1", TCL_GLOBA
37a0: 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 0a  L_ONLY);.#endif.
37b0: 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 4f  .#ifdef SQLITE_O
37c0: 4d 49 54 5f 54 43 4c 5f 56 41 52 49 41 42 4c 45  MIT_TCL_VARIABLE
37d0: 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69  .  Tcl_SetVar2(i
37e0: 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f  nterp, "sqlite_o
37f0: 70 74 69 6f 6e 73 22 2c 20 22 74 63 6c 76 61 72  ptions", "tclvar
3800: 22 2c 20 22 30 22 2c 20 54 43 4c 5f 47 4c 4f 42  ", "0", TCL_GLOB
3810: 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c 73 65 0a  AL_ONLY);.#else.
3820: 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e    Tcl_SetVar2(in
3830: 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70  terp, "sqlite_op
3840: 74 69 6f 6e 73 22 2c 20 22 74 63 6c 76 61 72 22  tions", "tclvar"
3850: 2c 20 22 31 22 2c 20 54 43 4c 5f 47 4c 4f 42 41  , "1", TCL_GLOBA
3860: 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 0a  L_ONLY);.#endif.
3870: 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69  .  Tcl_SetVar2(i
3880: 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f  nterp, "sqlite_o
3890: 70 74 69 6f 6e 73 22 2c 20 22 74 68 72 65 61 64  ptions", "thread
38a0: 73 61 66 65 22 2c 20 0a 20 20 20 20 20 20 53 54  safe", .      ST
38b0: 52 49 4e 47 56 41 4c 55 45 28 53 51 4c 49 54 45  RINGVALUE(SQLITE
38c0: 5f 54 48 52 45 41 44 53 41 46 45 29 2c 20 54 43  _THREADSAFE), TC
38d0: 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a  L_GLOBAL_ONLY);.
38e0: 20 20 61 73 73 65 72 74 28 20 73 71 6c 69 74 65    assert( sqlite
38f0: 33 5f 74 68 72 65 61 64 73 61 66 65 28 29 3d 3d  3_threadsafe()==
3900: 53 51 4c 49 54 45 5f 54 48 52 45 41 44 53 41 46  SQLITE_THREADSAF
3910: 45 20 29 3b 0a 0a 23 69 66 64 65 66 20 53 51 4c  E );..#ifdef SQL
3920: 49 54 45 5f 4f 4d 49 54 5f 54 45 4d 50 44 42 0a  ITE_OMIT_TEMPDB.
3930: 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e    Tcl_SetVar2(in
3940: 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70  terp, "sqlite_op
3950: 74 69 6f 6e 73 22 2c 20 22 74 65 6d 70 64 62 22  tions", "tempdb"
3960: 2c 20 22 30 22 2c 20 54 43 4c 5f 47 4c 4f 42 41  , "0", TCL_GLOBA
3970: 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c 73 65 0a 20  L_ONLY);.#else. 
3980: 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74   Tcl_SetVar2(int
3990: 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74  erp, "sqlite_opt
39a0: 69 6f 6e 73 22 2c 20 22 74 65 6d 70 64 62 22 2c  ions", "tempdb",
39b0: 20 22 31 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c   "1", TCL_GLOBAL
39c0: 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 0a 0a  _ONLY);.#endif..
39d0: 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d  #ifdef SQLITE_OM
39e0: 49 54 5f 54 52 41 43 45 0a 20 20 54 63 6c 5f 53  IT_TRACE.  Tcl_S
39f0: 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20 22  etVar2(interp, "
3a00: 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c  sqlite_options",
3a10: 20 22 74 72 61 63 65 22 2c 20 22 30 22 2c 20 54   "trace", "0", T
3a20: 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b  CL_GLOBAL_ONLY);
3a30: 0a 23 65 6c 73 65 0a 20 20 54 63 6c 5f 53 65 74  .#else.  Tcl_Set
3a40: 56 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71  Var2(interp, "sq
3a50: 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22  lite_options", "
3a60: 74 72 61 63 65 22 2c 20 22 31 22 2c 20 54 43 4c  trace", "1", TCL
3a70: 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23  _GLOBAL_ONLY);.#
3a80: 65 6e 64 69 66 0a 0a 23 69 66 64 65 66 20 53 51  endif..#ifdef SQ
3a90: 4c 49 54 45 5f 4f 4d 49 54 5f 54 52 49 47 47 45  LITE_OMIT_TRIGGE
3aa0: 52 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28  R.  Tcl_SetVar2(
3ab0: 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f  interp, "sqlite_
3ac0: 6f 70 74 69 6f 6e 73 22 2c 20 22 74 72 69 67 67  options", "trigg
3ad0: 65 72 22 2c 20 22 30 22 2c 20 54 43 4c 5f 47 4c  er", "0", TCL_GL
3ae0: 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c 73  OBAL_ONLY);.#els
3af0: 65 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28  e.  Tcl_SetVar2(
3b00: 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f  interp, "sqlite_
3b10: 6f 70 74 69 6f 6e 73 22 2c 20 22 74 72 69 67 67  options", "trigg
3b20: 65 72 22 2c 20 22 31 22 2c 20 54 43 4c 5f 47 4c  er", "1", TCL_GL
3b30: 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64  OBAL_ONLY);.#end
3b40: 69 66 0a 0a 23 69 66 64 65 66 20 53 51 4c 49 54  if..#ifdef SQLIT
3b50: 45 5f 4f 4d 49 54 5f 54 52 55 43 41 54 45 5f 4f  E_OMIT_TRUCATE_O
3b60: 50 54 49 4d 49 5a 41 54 49 4f 4e 0a 20 20 54 63  PTIMIZATION.  Tc
3b70: 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 65 72 70  l_SetVar2(interp
3b80: 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e  , "sqlite_option
3b90: 73 22 2c 20 22 74 72 75 6e 63 61 74 65 5f 6f 70  s", "truncate_op
3ba0: 74 22 2c 20 22 30 22 2c 20 54 43 4c 5f 47 4c 4f  t", "0", TCL_GLO
3bb0: 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c 73 65  BAL_ONLY);.#else
3bc0: 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69  .  Tcl_SetVar2(i
3bd0: 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f  nterp, "sqlite_o
3be0: 70 74 69 6f 6e 73 22 2c 20 22 74 72 75 6e 63 61  ptions", "trunca
3bf0: 74 65 5f 6f 70 74 22 2c 20 22 31 22 2c 20 54 43  te_opt", "1", TC
3c00: 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a  L_GLOBAL_ONLY);.
3c10: 23 65 6e 64 69 66 0a 0a 23 69 66 64 65 66 20 53  #endif..#ifdef S
3c20: 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36  QLITE_OMIT_UTF16
3c30: 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69  .  Tcl_SetVar2(i
3c40: 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f  nterp, "sqlite_o
3c50: 70 74 69 6f 6e 73 22 2c 20 22 75 74 66 31 36 22  ptions", "utf16"
3c60: 2c 20 22 30 22 2c 20 54 43 4c 5f 47 4c 4f 42 41  , "0", TCL_GLOBA
3c70: 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c 73 65 0a 20  L_ONLY);.#else. 
3c80: 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74   Tcl_SetVar2(int
3c90: 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74  erp, "sqlite_opt
3ca0: 69 6f 6e 73 22 2c 20 22 75 74 66 31 36 22 2c 20  ions", "utf16", 
3cb0: 22 31 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f  "1", TCL_GLOBAL_
3cc0: 4f 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 0a 0a 23  ONLY);.#endif..#
3cd0: 69 66 20 64 65 66 69 6e 65 64 28 53 51 4c 49 54  if defined(SQLIT
3ce0: 45 5f 4f 4d 49 54 5f 56 41 43 55 55 4d 29 20 7c  E_OMIT_VACUUM) |
3cf0: 7c 20 64 65 66 69 6e 65 64 28 53 51 4c 49 54 45  | defined(SQLITE
3d00: 5f 4f 4d 49 54 5f 41 54 54 41 43 48 29 0a 20 20  _OMIT_ATTACH).  
3d10: 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 65  Tcl_SetVar2(inte
3d20: 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 69  rp, "sqlite_opti
3d30: 6f 6e 73 22 2c 20 22 76 61 63 75 75 6d 22 2c 20  ons", "vacuum", 
3d40: 22 30 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f  "0", TCL_GLOBAL_
3d50: 4f 4e 4c 59 29 3b 0a 23 65 6c 73 65 0a 20 20 54  ONLY);.#else.  T
3d60: 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 65 72  cl_SetVar2(inter
3d70: 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f  p, "sqlite_optio
3d80: 6e 73 22 2c 20 22 76 61 63 75 75 6d 22 2c 20 22  ns", "vacuum", "
3d90: 31 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f  1", TCL_GLOBAL_O
3da0: 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 0a 0a 23 69  NLY);.#endif..#i
3db0: 66 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54  fdef SQLITE_OMIT
3dc0: 5f 56 49 45 57 0a 20 20 54 63 6c 5f 53 65 74 56  _VIEW.  Tcl_SetV
3dd0: 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c  ar2(interp, "sql
3de0: 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 76  ite_options", "v
3df0: 69 65 77 22 2c 20 22 30 22 2c 20 54 43 4c 5f 47  iew", "0", TCL_G
3e00: 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c  LOBAL_ONLY);.#el
3e10: 73 65 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32  se.  Tcl_SetVar2
3e20: 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65  (interp, "sqlite
3e30: 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 76 69 65 77  _options", "view
3e40: 22 2c 20 22 31 22 2c 20 54 43 4c 5f 47 4c 4f 42  ", "1", TCL_GLOB
3e50: 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64 69 66  AL_ONLY);.#endif
3e60: 0a 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f  ..#ifdef SQLITE_
3e70: 4f 4d 49 54 5f 56 49 52 54 55 41 4c 54 41 42 4c  OMIT_VIRTUALTABL
3e80: 45 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28  E.  Tcl_SetVar2(
3e90: 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f  interp, "sqlite_
3ea0: 6f 70 74 69 6f 6e 73 22 2c 20 22 76 74 61 62 22  options", "vtab"
3eb0: 2c 20 22 30 22 2c 20 54 43 4c 5f 47 4c 4f 42 41  , "0", TCL_GLOBA
3ec0: 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c 73 65 0a 20  L_ONLY);.#else. 
3ed0: 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74   Tcl_SetVar2(int
3ee0: 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74  erp, "sqlite_opt
3ef0: 69 6f 6e 73 22 2c 20 22 76 74 61 62 22 2c 20 22  ions", "vtab", "
3f00: 31 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f  1", TCL_GLOBAL_O
3f10: 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 0a 0a 23 69  NLY);.#endif..#i
3f20: 66 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54  fdef SQLITE_OMIT
3f30: 5f 57 53 44 0a 20 20 54 63 6c 5f 53 65 74 56 61  _WSD.  Tcl_SetVa
3f40: 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69  r2(interp, "sqli
3f50: 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 77 73  te_options", "ws
3f60: 64 22 2c 20 22 30 22 2c 20 54 43 4c 5f 47 4c 4f  d", "0", TCL_GLO
3f70: 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c 73 65  BAL_ONLY);.#else
3f80: 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69  .  Tcl_SetVar2(i
3f90: 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f  nterp, "sqlite_o
3fa0: 70 74 69 6f 6e 73 22 2c 20 22 77 73 64 22 2c 20  ptions", "wsd", 
3fb0: 22 31 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f  "1", TCL_GLOBAL_
3fc0: 4f 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 0a 0a 23  ONLY);.#endif..#
3fd0: 69 66 20 64 65 66 69 6e 65 64 28 53 51 4c 49 54  if defined(SQLIT
3fe0: 45 5f 45 4e 41 42 4c 45 5f 55 50 44 41 54 45 5f  E_ENABLE_UPDATE_
3ff0: 44 45 4c 45 54 45 5f 4c 49 4d 49 54 29 20 26 26  DELETE_LIMIT) &&
4000: 20 21 64 65 66 69 6e 65 64 28 53 51 4c 49 54 45   !defined(SQLITE
4010: 5f 4f 4d 49 54 5f 53 55 42 51 55 45 52 59 29 0a  _OMIT_SUBQUERY).
4020: 20 20 54 63 6c 5f 53 65 74 56 61 72 32 28 69 6e    Tcl_SetVar2(in
4030: 74 65 72 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70  terp, "sqlite_op
4040: 74 69 6f 6e 73 22 2c 20 22 75 70 64 61 74 65 5f  tions", "update_
4050: 64 65 6c 65 74 65 5f 6c 69 6d 69 74 22 2c 20 22  delete_limit", "
4060: 31 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f  1", TCL_GLOBAL_O
4070: 4e 4c 59 29 3b 0a 23 65 6c 73 65 0a 20 20 54 63  NLY);.#else.  Tc
4080: 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 65 72 70  l_SetVar2(interp
4090: 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e  , "sqlite_option
40a0: 73 22 2c 20 22 75 70 64 61 74 65 5f 64 65 6c 65  s", "update_dele
40b0: 74 65 5f 6c 69 6d 69 74 22 2c 20 22 30 22 2c 20  te_limit", "0", 
40c0: 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29  TCL_GLOBAL_ONLY)
40d0: 3b 0a 23 65 6e 64 69 66 0a 0a 23 69 66 20 64 65  ;.#endif..#if de
40e0: 66 69 6e 65 64 28 53 51 4c 49 54 45 5f 45 4e 41  fined(SQLITE_ENA
40f0: 42 4c 45 5f 55 4e 4c 4f 43 4b 5f 4e 4f 54 49 46  BLE_UNLOCK_NOTIF
4100: 59 29 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32  Y).  Tcl_SetVar2
4110: 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65  (interp, "sqlite
4120: 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 75 6e 6c 6f  _options", "unlo
4130: 63 6b 5f 6e 6f 74 69 66 79 22 2c 20 22 31 22 2c  ck_notify", "1",
4140: 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59   TCL_GLOBAL_ONLY
4150: 29 3b 0a 23 65 6c 73 65 0a 20 20 54 63 6c 5f 53  );.#else.  Tcl_S
4160: 65 74 56 61 72 32 28 69 6e 74 65 72 70 2c 20 22  etVar2(interp, "
4170: 73 71 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c  sqlite_options",
4180: 20 22 75 6e 6c 6f 63 6b 5f 6e 6f 74 69 66 79 22   "unlock_notify"
4190: 2c 20 22 30 22 2c 20 54 43 4c 5f 47 4c 4f 42 41  , "0", TCL_GLOBA
41a0: 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64 69 66 0a  L_ONLY);.#endif.
41b0: 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 53  .#ifdef SQLITE_S
41c0: 45 43 55 52 45 5f 44 45 4c 45 54 45 0a 20 20 54  ECURE_DELETE.  T
41d0: 63 6c 5f 53 65 74 56 61 72 32 28 69 6e 74 65 72  cl_SetVar2(inter
41e0: 70 2c 20 22 73 71 6c 69 74 65 5f 6f 70 74 69 6f  p, "sqlite_optio
41f0: 6e 73 22 2c 20 22 73 65 63 75 72 65 5f 64 65 6c  ns", "secure_del
4200: 65 74 65 22 2c 20 22 31 22 2c 20 54 43 4c 5f 47  ete", "1", TCL_G
4210: 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c  LOBAL_ONLY);.#el
4220: 73 65 0a 20 20 54 63 6c 5f 53 65 74 56 61 72 32  se.  Tcl_SetVar2
4230: 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65  (interp, "sqlite
4240: 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 73 65 63 75  _options", "secu
4250: 72 65 5f 64 65 6c 65 74 65 22 2c 20 22 30 22 2c  re_delete", "0",
4260: 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59   TCL_GLOBAL_ONLY
4270: 29 3b 0a 23 65 6e 64 69 66 0a 0a 23 69 66 64 65  );.#endif..#ifde
4280: 66 20 59 59 54 52 41 43 4b 4d 41 58 53 54 41 43  f YYTRACKMAXSTAC
4290: 4b 44 45 50 54 48 0a 20 20 54 63 6c 5f 53 65 74  KDEPTH.  Tcl_Set
42a0: 56 61 72 32 28 69 6e 74 65 72 70 2c 20 22 73 71  Var2(interp, "sq
42b0: 6c 69 74 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22  lite_options", "
42c0: 79 79 74 72 61 63 6b 6d 61 78 73 74 61 63 6b 64  yytrackmaxstackd
42d0: 65 70 74 68 22 2c 20 22 31 22 2c 20 54 43 4c 5f  epth", "1", TCL_
42e0: 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65  GLOBAL_ONLY);.#e
42f0: 6c 73 65 0a 20 20 54 63 6c 5f 53 65 74 56 61 72  lse.  Tcl_SetVar
4300: 32 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74  2(interp, "sqlit
4310: 65 5f 6f 70 74 69 6f 6e 73 22 2c 20 22 79 79 74  e_options", "yyt
4320: 72 61 63 6b 6d 61 78 73 74 61 63 6b 64 65 70 74  rackmaxstackdept
4330: 68 22 2c 20 22 30 22 2c 20 54 43 4c 5f 47 4c 4f  h", "0", TCL_GLO
4340: 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64 69  BAL_ONLY);.#endi
4350: 66 0a 0a 23 64 65 66 69 6e 65 20 4c 49 4e 4b 56  f..#define LINKV
4360: 41 52 28 78 29 20 7b 20 5c 0a 20 20 20 20 73 74  AR(x) { \.    st
4370: 61 74 69 63 20 63 6f 6e 73 74 20 69 6e 74 20 63  atic const int c
4380: 76 5f 20 23 23 20 78 20 3d 20 53 51 4c 49 54 45  v_ ## x = SQLITE
4390: 5f 20 23 23 20 78 3b 20 5c 0a 20 20 20 20 54 63  _ ## x; \.    Tc
43a0: 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 65 72 70  l_LinkVar(interp
43b0: 2c 20 22 53 51 4c 49 54 45 5f 22 20 23 78 2c 20  , "SQLITE_" #x, 
43c0: 28 63 68 61 72 20 2a 29 26 28 63 76 5f 20 23 23  (char *)&(cv_ ##
43d0: 20 78 29 2c 20 5c 0a 20 20 20 20 20 20 20 20 20   x), \.         
43e0: 20 20 20 20 20 20 20 54 43 4c 5f 4c 49 4e 4b 5f         TCL_LINK_
43f0: 49 4e 54 20 7c 20 54 43 4c 5f 4c 49 4e 4b 5f 52  INT | TCL_LINK_R
4400: 45 41 44 5f 4f 4e 4c 59 29 3b 20 7d 0a 0a 20 20  EAD_ONLY); }..  
4410: 4c 49 4e 4b 56 41 52 28 20 4d 41 58 5f 4c 45 4e  LINKVAR( MAX_LEN
4420: 47 54 48 20 29 3b 0a 20 20 4c 49 4e 4b 56 41 52  GTH );.  LINKVAR
4430: 28 20 4d 41 58 5f 43 4f 4c 55 4d 4e 20 29 3b 0a  ( MAX_COLUMN );.
4440: 20 20 4c 49 4e 4b 56 41 52 28 20 4d 41 58 5f 53    LINKVAR( MAX_S
4450: 51 4c 5f 4c 45 4e 47 54 48 20 29 3b 0a 20 20 4c  QL_LENGTH );.  L
4460: 49 4e 4b 56 41 52 28 20 4d 41 58 5f 45 58 50 52  INKVAR( MAX_EXPR
4470: 5f 44 45 50 54 48 20 29 3b 0a 20 20 4c 49 4e 4b  _DEPTH );.  LINK
4480: 56 41 52 28 20 4d 41 58 5f 43 4f 4d 50 4f 55 4e  VAR( MAX_COMPOUN
4490: 44 5f 53 45 4c 45 43 54 20 29 3b 0a 20 20 4c 49  D_SELECT );.  LI
44a0: 4e 4b 56 41 52 28 20 4d 41 58 5f 56 44 42 45 5f  NKVAR( MAX_VDBE_
44b0: 4f 50 20 29 3b 0a 20 20 4c 49 4e 4b 56 41 52 28  OP );.  LINKVAR(
44c0: 20 4d 41 58 5f 46 55 4e 43 54 49 4f 4e 5f 41 52   MAX_FUNCTION_AR
44d0: 47 20 29 3b 0a 20 20 4c 49 4e 4b 56 41 52 28 20  G );.  LINKVAR( 
44e0: 4d 41 58 5f 56 41 52 49 41 42 4c 45 5f 4e 55 4d  MAX_VARIABLE_NUM
44f0: 42 45 52 20 29 3b 0a 20 20 4c 49 4e 4b 56 41 52  BER );.  LINKVAR
4500: 28 20 4d 41 58 5f 50 41 47 45 5f 53 49 5a 45 20  ( MAX_PAGE_SIZE 
4510: 29 3b 0a 20 20 4c 49 4e 4b 56 41 52 28 20 4d 41  );.  LINKVAR( MA
4520: 58 5f 50 41 47 45 5f 43 4f 55 4e 54 20 29 3b 0a  X_PAGE_COUNT );.
4530: 20 20 4c 49 4e 4b 56 41 52 28 20 4d 41 58 5f 4c    LINKVAR( MAX_L
4540: 49 4b 45 5f 50 41 54 54 45 52 4e 5f 4c 45 4e 47  IKE_PATTERN_LENG
4550: 54 48 20 29 3b 0a 20 20 4c 49 4e 4b 56 41 52 28  TH );.  LINKVAR(
4560: 20 44 45 46 41 55 4c 54 5f 54 45 4d 50 5f 43 41   DEFAULT_TEMP_CA
4570: 43 48 45 5f 53 49 5a 45 20 29 3b 0a 20 20 4c 49  CHE_SIZE );.  LI
4580: 4e 4b 56 41 52 28 20 44 45 46 41 55 4c 54 5f 43  NKVAR( DEFAULT_C
4590: 41 43 48 45 5f 53 49 5a 45 20 29 3b 0a 20 20 4c  ACHE_SIZE );.  L
45a0: 49 4e 4b 56 41 52 28 20 44 45 46 41 55 4c 54 5f  INKVAR( DEFAULT_
45b0: 50 41 47 45 5f 53 49 5a 45 20 29 3b 0a 20 20 4c  PAGE_SIZE );.  L
45c0: 49 4e 4b 56 41 52 28 20 44 45 46 41 55 4c 54 5f  INKVAR( DEFAULT_
45d0: 46 49 4c 45 5f 46 4f 52 4d 41 54 20 29 3b 0a 20  FILE_FORMAT );. 
45e0: 20 4c 49 4e 4b 56 41 52 28 20 4d 41 58 5f 41 54   LINKVAR( MAX_AT
45f0: 54 41 43 48 45 44 20 29 3b 0a 0a 20 20 7b 0a 20  TACHED );..  {. 
4600: 20 20 20 73 74 61 74 69 63 20 63 6f 6e 73 74 20     static const 
4610: 69 6e 74 20 63 76 5f 54 45 4d 50 5f 53 54 4f 52  int cv_TEMP_STOR
4620: 45 20 3d 20 53 51 4c 49 54 45 5f 54 45 4d 50 5f  E = SQLITE_TEMP_
4630: 53 54 4f 52 45 3b 0a 20 20 20 20 54 63 6c 5f 4c  STORE;.    Tcl_L
4640: 69 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c 20 22  inkVar(interp, "
4650: 54 45 4d 50 5f 53 54 4f 52 45 22 2c 20 28 63 68  TEMP_STORE", (ch
4660: 61 72 20 2a 29 26 28 63 76 5f 54 45 4d 50 5f 53  ar *)&(cv_TEMP_S
4670: 54 4f 52 45 29 2c 0a 20 20 20 20 20 20 20 20 20  TORE),.         
4680: 20 20 20 20 20 20 20 54 43 4c 5f 4c 49 4e 4b 5f         TCL_LINK_
4690: 49 4e 54 20 7c 20 54 43 4c 5f 4c 49 4e 4b 5f 52  INT | TCL_LINK_R
46a0: 45 41 44 5f 4f 4e 4c 59 29 3b 0a 20 20 7d 0a 7d  EAD_ONLY);.  }.}
46b0: 0a 0a 0a 2f 2a 0a 2a 2a 20 52 65 67 69 73 74 65  .../*.** Registe
46c0: 72 20 63 6f 6d 6d 61 6e 64 73 20 77 69 74 68 20  r commands with 
46d0: 74 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65  the TCL interpre
46e0: 74 65 72 2e 0a 2a 2f 0a 69 6e 74 20 53 71 6c 69  ter..*/.int Sqli
46f0: 74 65 63 6f 6e 66 69 67 5f 49 6e 69 74 28 54 63  teconfig_Init(Tc
4700: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70  l_Interp *interp
4710: 29 7b 0a 20 20 73 65 74 5f 6f 70 74 69 6f 6e 73  ){.  set_options
4720: 28 69 6e 74 65 72 70 29 3b 0a 20 20 72 65 74 75  (interp);.  retu
4730: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a           rn TCL_OK;.}.