System.Data.SQLite
Hex Artifact Content
Not logged in

• File Tests/common.eagle — part of check-in [99a46a4feb] at 2012-12-29 21:37:36 on branch trunk — In the test suite, avoid leaking memory used for data/temp_store_directory. Fix missing description in test [bb4b04d457]. (user: mistachkin size: 65204)

0000: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0010: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0020: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0030: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0040: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d  ###############.
0050: 0a 23 0d 0a 23 20 63 6f 6d 6d 6f 6e 2e 65 61 67  .#..# common.eag
0060: 6c 65 20 2d 2d 0d 0a 23 0d 0a 23 20 57 72 69 74  le --..#..# Writ
0070: 74 65 6e 20 62 79 20 4a 6f 65 20 4d 69 73 74 61  ten by Joe Mista
0080: 63 68 6b 69 6e 2e 0d 0a 23 20 52 65 6c 65 61 73  chkin...# Releas
0090: 65 64 20 74 6f 20 74 68 65 20 70 75 62 6c 69 63  ed to the public
00a0: 20 64 6f 6d 61 69 6e 2c 20 75 73 65 20 61 74 20   domain, use at
00b0: 79 6f 75 72 20 6f 77 6e 20 72 69 73 6b 21 0d 0a  your own risk!..
00c0: 23 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23 23  #..#############
00d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
00e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
00f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0100: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0110: 23 23 0d 0a 0d 0a 23 0d 0a 23 20 4e 4f 54 45 3a  ##....#..# NOTE:
0120: 20 55 73 65 20 6f 75 72 20 6f 77 6e 20 6e 61 6d   Use our own nam
0130: 65 73 70 61 63 65 20 68 65 72 65 20 62 65 63 61  espace here beca
0140: 75 73 65 20 65 76 65 6e 20 74 68 6f 75 67 68 20  use even though
0150: 77 65 20 64 6f 20 6e 6f 74 20 64 69 72 65 63 74  we do not direct
0160: 6c 79 0d 0a 23 20 20 20 20 20 20 20 73 75 70 70  ly..#       supp
0170: 6f 72 74 20 6e 61 6d 65 73 70 61 63 65 73 20 6f  ort namespaces o
0180: 75 72 73 65 6c 76 65 73 2c 20 77 65 20 64 6f 20  urselves, we do
0190: 6e 6f 74 20 77 61 6e 74 20 74 6f 20 70 6f 6c 6c  not want to poll
01a0: 75 74 65 20 74 68 65 20 67 6c 6f 62 61 6c 0d 0a  ute the global..
01b0: 23 20 20 20 20 20 20 20 6e 61 6d 65 73 70 61 63  #       namespac
01c0: 65 20 69 66 20 74 68 69 73 20 73 63 72 69 70 74  e if this script
01d0: 20 61 63 74 75 61 6c 6c 79 20 65 6e 64 73 20 75   actually ends u
01e0: 70 20 62 65 69 6e 67 20 65 76 61 6c 75 61 74 65  p being evaluate
01f0: 64 20 69 6e 20 54 63 6c 2e 0d 0a 23 0d 0a 6e 61  d in Tcl...#..na
0200: 6d 65 73 70 61 63 65 20 65 76 61 6c 20 3a 3a 45  mespace eval ::E
0210: 61 67 6c 65 20 7b 0d 0a 20 20 69 66 20 7b 5b 69  agle {..  if {[i
0220: 73 45 61 67 6c 65 5d 7d 20 74 68 65 6e 20 7b 0d  sEagle]} then {.
0230: 0a 20 20 20 20 23 23 23 23 23 23 23 23 23 23 23  .    ###########
0240: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0250: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0260: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0270: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0280: 0d 0a 20 20 20 20 23 23 23 23 23 23 23 23 23 23  ..    ##########
0290: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
02a0: 23 23 20 42 45 47 49 4e 20 45 61 67 6c 65 20 4f  ## BEGIN Eagle O
02b0: 4e 4c 59 20 23 23 23 23 23 23 23 23 23 23 23 23  NLY ############
02c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
02d0: 23 0d 0a 20 20 20 20 23 23 23 23 23 23 23 23 23  #..    #########
02e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
02f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0300: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0310: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0320: 23 23 0d 0a 0d 0a 20 20 20 20 70 72 6f 63 20 67  ##....    proc g
0330: 65 74 42 75 69 6c 64 59 65 61 72 20 7b 7d 20 7b  etBuildYear {} {
0340: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20  ..      #..
0350: 20 23 20 4e 4f 54 45 3a 20 53 65 65 20 69 66 20   # NOTE: See if
0360: 74 68 65 20 22 79 65 61 72 22 20 73 65 74 74 69  the "year" setti
0370: 6e 67 20 68 61 73 20 62 65 65 6e 20 6f 76 65 72  ng has been over
0380: 72 69 64 64 65 6e 20 62 79 20 74 68 65 20 75 73  ridden by the us
0390: 65 72 20 28 65 2e 67 2e 0d 0a 20 20 20 20 20 20  er (e.g...
03a0: 23 20 20 20 20 20 20 20 6f 6e 20 74 68 65 20 63  #       on the c
03b0: 6f 6d 6d 61 6e 64 20 6c 69 6e 65 29 2e 20 20 54  ommand line).  T
03c0: 68 69 73 20 68 65 6c 70 73 20 63 6f 6e 74 72 6f  his helps contro
03d0: 6c 20 65 78 61 63 74 6c 79 20 77 68 69 63 68 20  l exactly which
03e0: 73 65 74 20 6f 66 0d 0a 20 20 20 20 20 20 23 20  set of..      #
03f0: 20 20 20 20 20 20 62 69 6e 61 72 69 65 73 20 77        binaries w
0400: 65 20 61 72 65 20 74 65 73 74 69 6e 67 2c 20 74  e are testing, t
0410: 68 6f 73 65 20 70 72 6f 64 75 63 65 64 20 75 73  hose produced us
0420: 69 6e 67 20 74 68 65 20 56 69 73 75 61 6c 20 53  ing the Visual S
0430: 74 75 64 69 6f 0d 0a 20 20 20 20 20 20 23 20 20  tudio..      #
0440: 20 20 20 20 20 32 30 30 35 2c 20 32 30 30 38 2c       2005, 2008,
0450: 20 32 30 31 30 2c 20 6f 72 20 32 30 31 32 20 62   2010, or 2012 b
0460: 75 69 6c 64 20 73 79 73 74 65 6d 73 2e 20 20 54  uild systems.  T
0470: 6f 20 6f 76 65 72 72 69 64 65 20 74 68 69 73 20  o override this
0480: 76 61 6c 75 65 0d 0a 20 20 20 20 20 20 23 20 20  value..      #
0490: 20 20 20 20 20 76 69 61 20 74 68 65 20 63 6f 6d       via the com
04a0: 6d 61 6e 64 20 6c 69 6e 65 2c 20 65 6e 74 65 72  mand line, enter
04b0: 20 61 20 63 6f 6d 6d 61 6e 64 20 73 69 6d 69 6c   a command simil
04c0: 61 72 20 74 6f 20 6f 6e 65 20 6f 66 20 74 68 65  ar to one of the
04d0: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20  ..      #
04e0: 66 6f 6c 6c 6f 77 69 6e 67 20 28 61 6c 6c 20 6f  following (all o
04f0: 6e 20 6f 6e 65 20 6c 69 6e 65 29 3a 0d 0a 20 20  n one line):..
0500: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 20      #..      #
0510: 20 20 20 20 20 45 61 67 6c 65 53 68 65 6c 6c 2e       EagleShell.
0520: 65 78 65 20 2d 70 72 65 49 6e 69 74 69 61 6c 69  exe -preInitiali
0530: 7a 65 20 22 73 65 74 20 74 65 73 74 5f 79 65 61  ze "set test_yea
0540: 72 20 32 30 30 35 22 0d 0a 20 20 20 20 20 20 23  r 2005"..      #
0550: 20 20 20 20 20 20 20 20 20 2d 66 69 6c 65 20 2e           -file .
0560: 5c 70 61 74 68 5c 74 6f 5c 61 6c 6c 2e 65 61 67  \path\to\all.eag
0570: 6c 65 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20  le..      #..
0580: 20 20 20 23 20 20 20 20 20 20 20 45 61 67 6c 65     #       Eagle
0590: 53 68 65 6c 6c 2e 65 78 65 20 2d 70 72 65 49 6e  Shell.exe -preIn
05a0: 69 74 69 61 6c 69 7a 65 20 22 73 65 74 20 74 65  itialize "set te
05b0: 73 74 5f 79 65 61 72 20 32 30 30 38 22 0d 0a 20  st_year 2008"..
05c0: 20 20 20 20 20 23 20 20 20 20 20 20 20 20 20 2d       #         -
05d0: 66 69 6c 65 20 2e 5c 70 61 74 68 5c 74 6f 5c 61  file .\path\to\a
05e0: 6c 6c 2e 65 61 67 6c 65 0d 0a 20 20 20 20 20 20  ll.eagle..
05f0: 23 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20  #..      #
0600: 20 45 61 67 6c 65 53 68 65 6c 6c 2e 65 78 65 20   EagleShell.exe
0610: 2d 70 72 65 49 6e 69 74 69 61 6c 69 7a 65 20 22  -preInitialize "
0620: 73 65 74 20 74 65 73 74 5f 79 65 61 72 20 32 30  set test_year 20
0630: 31 30 22 0d 0a 20 20 20 20 20 20 23 20 20 20 20  10"..      #
0640: 20 20 20 20 20 2d 66 69 6c 65 20 2e 5c 70 61 74       -file .\pat
0650: 68 5c 74 6f 5c 61 6c 6c 2e 65 61 67 6c 65 0d 0a  h\to\all.eagle..
0660: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23        #..      #
0670: 20 20 20 20 20 20 20 45 61 67 6c 65 53 68 65 6c         EagleShel
0680: 6c 2e 65 78 65 20 2d 70 72 65 49 6e 69 74 69 61  l.exe -preInitia
0690: 6c 69 7a 65 20 22 73 65 74 20 74 65 73 74 5f 79  lize "set test_y
06a0: 65 61 72 20 32 30 31 32 22 0d 0a 20 20 20 20 20  ear 2012"..
06b0: 20 23 20 20 20 20 20 20 20 20 20 2d 66 69 6c 65   #         -file
06c0: 20 2e 5c 70 61 74 68 5c 74 6f 5c 61 6c 6c 2e 65   .\path\to\all.e
06d0: 61 67 6c 65 0d 0a 20 20 20 20 20 20 23 0d 0a 20  agle..      #..
06e0: 20 20 20 20 20 23 20 20 20 20 20 20 20 45 61 67       #       Eag
06f0: 6c 65 53 68 65 6c 6c 2e 65 78 65 20 2d 70 72 65  leShell.exe -pre
0700: 49 6e 69 74 69 61 6c 69 7a 65 20 22 75 6e 73 65  Initialize "unse
0710: 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 74 65  t -nocomplain te
0720: 73 74 5f 79 65 61 72 22 0d 0a 20 20 20 20 20 20  st_year"..
0730: 23 20 20 20 20 20 20 20 20 20 2d 66 69 6c 65 20  #         -file
0740: 2e 5c 70 61 74 68 5c 74 6f 5c 61 6c 6c 2e 65 61  .\path\to\all.ea
0750: 67 6c 65 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  gle..      #..
0760: 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78      if {[info ex
0770: 69 73 74 73 20 3a 3a 74 65 73 74 5f 79 65 61 72  ists ::test_year
0780: 5d 20 26 26 20 5b 73 74 72 69 6e 67 20 6c 65 6e  ] && [string len
0790: 67 74 68 20 24 3a 3a 74 65 73 74 5f 79 65 61 72  gth $::test_year 07a0: 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 ] > 0} then {.. 07b0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #.. 07c0: 20 20 23 20 4e 4f 54 45 3a 20 55 73 65 20 74 68 # NOTE: Use th 07d0: 65 20 73 70 65 63 69 66 69 65 64 20 74 65 73 74 e specified test 07e0: 20 79 65 61 72 2e 20 20 49 66 20 74 68 69 73 20 year. If this 07f0: 76 61 72 69 61 62 6c 65 20 69 73 20 6e 6f 74 20 variable is not 0800: 73 65 74 2c 20 74 68 65 0d 0a 20 20 20 20 20 20 set, the.. 0810: 20 20 23 20 20 20 20 20 20 20 64 65 66 61 75 6c # defaul 0820: 74 20 76 61 6c 75 65 20 77 69 6c 6c 20 62 65 20 t value will be 0830: 62 61 73 65 64 20 6f 6e 20 77 68 65 74 68 65 72 based on whether 0840: 20 6f 72 20 6e 6f 74 20 45 61 67 6c 65 20 68 61 or not Eagle ha 0850: 73 20 62 65 65 6e 0d 0a 20 20 20 20 20 20 20 20 s been.. 0860: 23 20 20 20 20 20 20 20 63 6f 6d 70 69 6c 65 64 # compiled 0870: 20 61 67 61 69 6e 73 74 20 74 68 65 20 43 4c 52 against the CLR 0880: 20 76 32 2e 30 20 6f 72 20 43 4c 52 20 76 34 2e v2.0 or CLR v4. 0890: 30 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 0... #.. 08a0: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 3a return$:
08b0: 3a 74 65 73 74 5f 79 65 61 72 0d 0a 20 20 20 20  :test_year..
08c0: 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20    } else {..
08d0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23      #..        #
08e0: 20 4e 4f 54 45 3a 20 49 66 20 45 61 67 6c 65 20   NOTE: If Eagle
08f0: 68 61 73 20 62 65 65 6e 20 63 6f 6d 70 69 6c 65  has been compile
0900: 64 20 61 67 61 69 6e 73 74 20 74 68 65 20 43 4c  d against the CL
0910: 52 20 76 34 2e 30 2c 20 75 73 65 20 22 32 30 31  R v4.0, use "201
0920: 30 22 20 62 79 0d 0a 20 20 20 20 20 20 20 20 23  0" by..        #
0930: 20 20 20 20 20 20 20 64 65 66 61 75 6c 74 20 28         default (
0940: 77 65 20 63 6f 75 6c 64 20 75 73 65 20 22 32 30  we could use "20
0950: 31 32 22 20 69 6e 20 74 68 61 74 20 63 61 73 65  12" in that case
0960: 20 61 73 20 77 65 6c 6c 29 20 61 73 20 74 68 65   as well) as the
0970: 20 74 65 73 74 0d 0a 20 20 20 20 20 20 20 20 23   test..        #
0980: 20 20 20 20 20 20 20 79 65 61 72 3b 20 6f 74 68         year; oth
0990: 65 72 77 69 73 65 2c 20 75 73 65 20 22 32 30 30  erwise, use "200
09a0: 38 22 20 62 79 20 64 65 66 61 75 6c 74 20 28 77  8" by default (w
09b0: 65 20 63 6f 75 6c 64 20 75 73 65 20 22 32 30 30  e could use "200
09c0: 35 22 20 69 6e 0d 0a 20 20 20 20 20 20 20 20 23  5" in..        #
09d0: 20 20 20 20 20 20 20 74 68 61 74 20 63 61 73 65         that case
09e0: 20 61 73 20 77 65 6c 6c 29 2e 20 20 49 66 20 61   as well).  If a
09f0: 6e 6f 74 68 65 72 20 6d 61 6a 6f 72 20 5b 69 6e  nother major [in
0a00: 63 6f 6d 70 61 74 69 62 6c 65 5d 20 76 65 72 73  compatible] vers
0a10: 69 6f 6e 20 6f 66 0d 0a 20 20 20 20 20 20 20 20  ion of..
0a20: 23 20 20 20 20 20 20 20 74 68 65 20 43 4c 52 20  #       the CLR
0a30: 69 73 20 72 65 6c 65 61 73 65 64 2c 20 74 68 69  is released, thi
0a40: 73 20 63 68 65 63 6b 20 77 69 6c 6c 20 68 61 76  s check will hav
0a50: 65 20 74 6f 20 62 65 20 63 68 61 6e 67 65 64 2e  e to be changed.
0a60: 20 20 54 68 65 0d 0a 20 20 20 20 20 20 20 20 23    The..        #
0a70: 20 20 20 20 20 20 20 64 65 66 61 75 6c 74 20 74         default t
0a80: 65 73 74 20 79 65 61 72 20 74 6f 20 75 73 65 20  est year to use
0a90: 66 6f 72 20 61 20 70 61 72 74 69 63 75 6c 61 72  for a particular
0aa0: 20 43 4c 52 20 76 65 72 73 69 6f 6e 20 6d 61 79   CLR version may
0ab0: 20 62 65 0d 0a 20 20 20 20 20 20 20 20 23 20 20   be..        #
0ac0: 20 20 20 20 20 6f 76 65 72 72 69 64 64 65 6e 20       overridden
0ad0: 62 79 20 73 65 74 74 69 6e 67 20 74 68 65 20 67  by setting the g
0ae0: 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 20 22  lobal variable "
0af0: 74 65 73 74 5f 79 65 61 72 5f 63 6c 72 5f 76 24  test_year_clr_v$0b00: 58 22 2c 0d 0a 20 20 20 20 20 20 20 20 23 20 20 X",.. # 0b10: 20 20 20 20 20 77 68 65 72 65 20 22 24 58 22 20 where "$X"
0b20: 6d 61 79 20 5b 63 75 72 72 65 6e 74 6c 79 5d 20  may [currently]
0b30: 62 65 20 65 69 74 68 65 72 20 22 32 22 20 6f 72  be either "2" or
0b40: 20 22 34 22 2e 0d 0a 20 20 20 20 20 20 20 20 23   "4"...        #
0b50: 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b 68  ..        if {[h
0b60: 61 76 65 43 6f 6e 73 74 72 61 69 6e 74 20 69 6d  aveConstraint im
0b70: 61 67 65 52 75 6e 74 69 6d 65 34 30 5d 7d 20 74  ageRuntime40]} t
0b80: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  hen {..
0b90: 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74   if {[info exist
0ba0: 73 20 3a 3a 74 65 73 74 5f 79 65 61 72 5f 63 6c  s ::test_year_cl
0bb0: 72 5f 76 34 5d 20 26 26 20 5c 0d 0a 20 20 20 20  r_v4] && \..
0bc0: 20 20 20 20 20 20 20 20 20 20 5b 73 74 72 69 6e            [strin
0bd0: 67 20 6c 65 6e 67 74 68 20 24 3a 3a 74 65 73 74  g length $::test 0be0: 5f 79 65 61 72 5f 63 6c 72 5f 76 34 5d 20 3e 20 _year_clr_v4] > 0bf0: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 0} then {.. 0c00: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #.. 0c10: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 55 73 # NOTE: Us 0c20: 65 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 e the specified 0c30: 74 65 73 74 20 79 65 61 72 20 66 6f 72 20 74 68 test year for th 0c40: 65 20 43 4c 52 20 76 34 2e 30 2e 0d 0a 20 20 20 e CLR v4.0... 0c50: 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 #.. 0c60: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 return$
0c70: 3a 3a 74 65 73 74 5f 79 65 61 72 5f 63 6c 72 5f  ::test_year_clr_
0c80: 76 34 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 20  v4..          }
0c90: 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20  else {..
0ca0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20      #..
0cb0: 20 20 20 23 20 4e 4f 54 45 3a 20 55 73 65 20 74     # NOTE: Use t
0cc0: 68 65 20 64 65 66 61 75 6c 74 20 74 65 73 74 20  he default test
0cd0: 79 65 61 72 20 66 6f 72 20 74 68 65 20 43 4c 52  year for the CLR
0ce0: 20 76 34 2e 30 2e 0d 0a 20 20 20 20 20 20 20 20   v4.0...
0cf0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20      #..
0d00: 20 20 20 72 65 74 75 72 6e 20 32 30 31 30 3b 20     return 2010;
0d10: 23 20 54 4f 44 4f 3a 20 47 6f 6f 64 20 22 66 61  # TODO: Good "fa
0d20: 6c 6c 62 61 63 6b 22 20 64 65 66 61 75 6c 74 3f  llback" default?
0d30: 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20  ..          }..
0d40: 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d         } else {.
0d50: 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 5b  .          if {[
0d60: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 74 65  info exists ::te
0d70: 73 74 5f 79 65 61 72 5f 63 6c 72 5f 76 32 5d 20  st_year_clr_v2]
0d80: 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  && \..
0d90: 20 20 20 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67      [string leng
0da0: 74 68 20 24 3a 3a 74 65 73 74 5f 79 65 61 72 5f  th $::test_year_ 0db0: 63 6c 72 5f 76 32 5d 20 3e 20 30 7d 20 74 68 65 clr_v2] > 0} the 0dc0: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 n {.. 0dd0: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 #.. 0de0: 23 20 4e 4f 54 45 3a 20 55 73 65 20 74 68 65 20 # NOTE: Use the 0df0: 73 70 65 63 69 66 69 65 64 20 74 65 73 74 20 79 specified test y 0e00: 65 61 72 20 66 6f 72 20 74 68 65 20 43 4c 52 20 ear for the CLR 0e10: 76 32 2e 30 2e 0d 0a 20 20 20 20 20 20 20 20 20 v2.0... 0e20: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 #.. 0e30: 20 20 72 65 74 75 72 6e 20 24 3a 3a 74 65 73 74 return$::test
0e40: 5f 79 65 61 72 5f 63 6c 72 5f 76 32 0d 0a 20 20  _year_clr_v2..
0e50: 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b          } else {
0e60: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 0d  ..            #.
0e70: 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 20 4e  .            # N
0e80: 4f 54 45 3a 20 55 73 65 20 74 68 65 20 64 65 66  OTE: Use the def
0e90: 61 75 6c 74 20 74 65 73 74 20 79 65 61 72 20 66  ault test year f
0ea0: 6f 72 20 74 68 65 20 43 4c 52 20 76 32 2e 30 2e  or the CLR v2.0.
0eb0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 0d  ..            #.
0ec0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74  .            ret
0ed0: 75 72 6e 20 32 30 30 38 3b 20 23 20 54 4f 44 4f  urn 2008; # TODO
0ee0: 3a 20 47 6f 6f 64 20 22 66 61 6c 6c 62 61 63 6b  : Good "fallback
0ef0: 22 20 64 65 66 61 75 6c 74 3f 0d 0a 20 20 20 20  " default?..
0f00: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20        }..
0f10: 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20   }..      }..
0f20: 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20   }.....    proc
0f30: 67 65 74 42 75 69 6c 64 43 6f 6e 66 69 67 75 72  getBuildConfigur
0f40: 61 74 69 6f 6e 20 7b 7d 20 7b 0d 0a 20 20 20 20  ation {} {..
0f50: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54    #..      # NOT
0f60: 45 3a 20 53 65 65 20 69 66 20 74 68 65 20 22 63  E: See if the "c
0f70: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 22 20 73 65  onfiguration" se
0f80: 74 74 69 6e 67 20 68 61 73 20 62 65 65 6e 20 6f  tting has been o
0f90: 76 65 72 72 69 64 64 65 6e 20 62 79 20 74 68 65  verridden by the
0fa0: 20 75 73 65 72 0d 0a 20 20 20 20 20 20 23 20 20   user..      #
0fb0: 20 20 20 20 20 28 65 2e 67 2e 20 6f 6e 20 74 68       (e.g. on th
0fc0: 65 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 29 2e  e command line).
0fd0: 20 20 54 68 69 73 20 68 65 6c 70 73 20 63 6f 6e    This helps con
0fe0: 74 72 6f 6c 20 65 78 61 63 74 6c 79 20 77 68 69  trol exactly whi
0ff0: 63 68 20 73 65 74 0d 0a 20 20 20 20 20 20 23 20  ch set..      #
1000: 20 20 20 20 20 20 6f 66 20 62 69 6e 61 72 69 65        of binarie
1010: 73 20 77 65 20 61 72 65 20 74 65 73 74 69 6e 67  s we are testing
1020: 20 28 69 2e 65 2e 20 74 68 6f 73 65 20 62 75 69   (i.e. those bui
1030: 6c 74 20 69 6e 20 74 68 65 20 22 44 65 62 75 67  lt in the "Debug
1040: 22 20 6f 72 0d 0a 20 20 20 20 20 20 23 20 20 20  " or..      #
1050: 20 20 20 20 22 52 65 6c 65 61 73 65 22 20 62 75      "Release" bu
1060: 69 6c 64 20 63 6f 6e 66 69 67 75 72 61 74 69 6f  ild configuratio
1070: 6e 73 29 2e 20 20 54 6f 20 6f 76 65 72 72 69 64  ns).  To overrid
1080: 65 20 74 68 69 73 20 76 61 6c 75 65 20 76 69 61  e this value via
1090: 20 74 68 65 0d 0a 20 20 20 20 20 20 23 20 20 20   the..      #
10a0: 20 20 20 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65      command line
10b0: 2c 20 65 6e 74 65 72 20 61 20 63 6f 6d 6d 61 6e  , enter a comman
10c0: 64 20 73 69 6d 69 6c 61 72 20 74 6f 20 6f 6e 65  d similar to one
10d0: 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e   of the followin
10e0: 67 20 28 61 6c 6c 0d 0a 20 20 20 20 20 20 23 20  g (all..      #
10f0: 20 20 20 20 20 20 6f 6e 20 6f 6e 65 20 6c 69 6e        on one lin
1100: 65 29 3a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  e):..      #..
1110: 20 20 20 20 23 20 20 20 20 20 20 20 45 61 67 6c      #       Eagl
1120: 65 53 68 65 6c 6c 2e 65 78 65 20 2d 70 72 65 49  eShell.exe -preI
1130: 6e 69 74 69 61 6c 69 7a 65 20 22 73 65 74 20 74  nitialize "set t
1140: 65 73 74 5f 63 6f 6e 66 69 67 75 72 61 74 69 6f  est_configuratio
1150: 6e 20 44 65 62 75 67 22 0d 0a 20 20 20 20 20 20  n Debug"..
1160: 23 20 20 20 20 20 20 20 20 20 2d 66 69 6c 65 20  #         -file
1170: 2e 5c 70 61 74 68 5c 74 6f 5c 61 6c 6c 2e 65 61  .\path\to\all.ea
1180: 67 6c 65 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  gle..      #..
1190: 20 20 20 20 23 20 20 20 20 20 20 20 45 61 67 6c      #       Eagl
11a0: 65 53 68 65 6c 6c 2e 65 78 65 20 2d 70 72 65 49  eShell.exe -preI
11b0: 6e 69 74 69 61 6c 69 7a 65 20 22 73 65 74 20 74  nitialize "set t
11c0: 65 73 74 5f 63 6f 6e 66 69 67 75 72 61 74 69 6f  est_configuratio
11d0: 6e 20 52 65 6c 65 61 73 65 22 0d 0a 20 20 20 20  n Release"..
11e0: 20 20 23 20 20 20 20 20 20 20 20 20 2d 66 69 6c    #         -fil
11f0: 65 20 2e 5c 70 61 74 68 5c 74 6f 5c 61 6c 6c 2e  e .\path\to\all.
1200: 65 61 67 6c 65 0d 0a 20 20 20 20 20 20 23 0d 0a  eagle..      #..
1210: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 45 61        #       Ea
1220: 67 6c 65 53 68 65 6c 6c 2e 65 78 65 20 2d 66 69  gleShell.exe -fi
1230: 6c 65 20 2e 5c 70 61 74 68 5c 74 6f 5c 61 6c 6c  le .\path\to\all
1240: 2e 65 61 67 6c 65 20 2d 70 72 65 54 65 73 74 0d  .eagle -preTest.
1250: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 20  .      #
1260: 20 22 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c   "unset -nocompl
1270: 61 69 6e 20 74 65 73 74 5f 63 6f 6e 66 69 67 75  ain test_configu
1280: 72 61 74 69 6f 6e 22 0d 0a 20 20 20 20 20 20 23  ration"..      #
1290: 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 69 6e 66  ..      if {[inf
12a0: 6f 20 65 78 69 73 74 73 20 3a 3a 74 65 73 74 5f  o exists ::test_
12b0: 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 5d 20 26  configuration] &
12c0: 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 5b  & \..          [
12d0: 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 3a  string length $: 12e0: 3a 74 65 73 74 5f 63 6f 6e 66 69 67 75 72 61 74 :test_configurat 12f0: 69 6f 6e 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b ion] > 0} then { 1300: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #.. 1310: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 55 73 65 # NOTE: Use 1320: 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 74 the specified t 1330: 65 73 74 20 63 6f 6e 66 69 67 75 72 61 74 69 6f est configuratio 1340: 6e 2e 20 20 54 68 65 20 64 65 66 61 75 6c 74 20 n. The default 1350: 76 61 6c 75 65 20 75 73 65 64 0d 0a 20 20 20 20 value used.. 1360: 20 20 20 20 23 20 20 20 20 20 20 20 66 6f 72 20 # for 1370: 74 68 69 73 20 76 61 72 69 61 62 6c 65 20 69 73 this variable is 1380: 20 22 52 65 6c 65 61 73 65 22 2c 20 61 73 20 73 "Release", as s 1390: 65 74 20 62 79 20 74 68 65 20 74 65 73 74 20 73 et by the test s 13a0: 75 69 74 65 20 69 74 73 65 6c 66 2e 0d 0a 20 20 uite itself... 13b0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #.. 13c0: 20 72 65 74 75 72 6e 20 24 3a 3a 74 65 73 74 5f return$::test_
13d0: 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 0d 0a 20  configuration..
13e0: 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20       } else {..
13f0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..
1400: 20 20 23 20 4e 4f 54 45 3a 20 4e 6f 72 6d 61 6c    # NOTE: Normal
1410: 6c 79 2c 20 77 65 20 77 69 6c 6c 20 6e 65 76 65  ly, we will neve
1420: 72 20 68 69 74 20 74 68 69 73 20 63 61 73 65 20  r hit this case
1430: 62 65 63 61 75 73 65 20 74 68 65 20 76 61 6c 75  because the valu
1440: 65 20 6f 66 20 74 68 65 0d 0a 20 20 20 20 20 20  e of the..
1450: 20 20 23 20 20 20 20 20 20 20 74 65 73 74 20 63    #       test c
1460: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 76 61 72  onfiguration var
1470: 69 61 62 6c 65 20 69 73 20 61 6c 77 61 79 73 20  iable is always
1480: 73 65 74 20 62 79 20 74 68 65 20 74 65 73 74 20  set by the test
1490: 73 75 69 74 65 0d 0a 20 20 20 20 20 20 20 20 23  suite..        #
14a0: 20 20 20 20 20 20 20 69 74 73 65 6c 66 3b 20 68         itself; h
14b0: 6f 77 65 76 65 72 2c 20 69 74 20 63 61 6e 20 62  owever, it can b
14c0: 65 20 6f 76 65 72 72 69 64 64 65 6e 20 75 73 69  e overridden usi
14d0: 6e 67 20 74 68 65 20 75 6e 73 65 74 20 63 6f 6d  ng the unset com
14e0: 6d 61 6e 64 0d 0a 20 20 20 20 20 20 20 20 23 20  mand..        #
14f0: 20 20 20 20 20 20 66 72 6f 6d 20 74 68 65 20 2d        from the -
1500: 70 72 65 54 65 73 74 20 6f 70 74 69 6f 6e 20 74  preTest option t
1510: 6f 20 74 68 65 20 74 65 73 74 20 73 75 69 74 65  o the test suite
1520: 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20  ...        #..
1530: 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 3a 3a        return $:: 1540: 65 61 67 6c 65 5f 70 6c 61 74 66 6f 72 6d 28 63 eagle_platform(c 1550: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 29 0d 0a 20 onfiguration).. 1560: 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c }.. }... 1570: 0d 0a 20 20 20 20 70 72 6f 63 20 67 65 74 42 75 .. proc getBu 1580: 69 6c 64 44 69 72 65 63 74 6f 72 79 20 7b 7d 20 ildDirectory {} 1590: 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 {.. #.. 15a0: 20 20 23 20 4e 4f 54 45 3a 20 53 65 65 20 69 66 # NOTE: See if 15b0: 20 74 68 65 20 22 6e 61 74 69 76 65 22 20 72 75 the "native" ru 15c0: 6e 74 69 6d 65 20 6f 70 74 69 6f 6e 20 68 61 73 ntime option has 15d0: 20 62 65 65 6e 20 73 65 74 2e 20 20 49 66 20 73 been set. If s 15e0: 6f 2c 20 75 73 65 20 74 68 65 0d 0a 20 20 20 20 o, use the.. 15f0: 20 20 23 20 20 20 20 20 20 20 64 69 72 65 63 74 # direct 1600: 6f 72 79 20 66 6f 72 20 74 68 65 20 6d 69 78 65 ory for the mixe 1610: 64 2d 6d 6f 64 65 20 61 73 73 65 6d 62 6c 79 20 d-mode assembly 1620: 28 61 2e 6b 2e 61 2e 20 74 68 65 20 6e 61 74 69 (a.k.a. the nati 1630: 76 65 20 69 6e 74 65 72 6f 70 0d 0a 20 20 20 20 ve interop.. 1640: 20 20 23 20 20 20 20 20 20 20 61 73 73 65 6d 62 # assemb 1650: 6c 79 29 2e 20 20 54 6f 20 65 6e 61 62 6c 65 20 ly). To enable 1660: 74 68 69 73 20 6f 70 74 69 6f 6e 20 76 69 61 20 this option via 1670: 74 68 65 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 the command line 1680: 2c 20 65 6e 74 65 72 20 61 0d 0a 20 20 20 20 20 , enter a.. 1690: 20 23 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64 # command 16a0: 20 73 69 6d 69 6c 61 72 20 74 6f 20 6f 6e 65 20 similar to one 16b0: 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 of the following 16c0: 20 28 61 6c 6c 20 6f 6e 20 6f 6e 65 20 6c 69 6e (all on one lin 16d0: 65 29 3a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 e):.. #.. 16e0: 20 20 20 20 23 20 20 20 20 20 20 20 45 61 67 6c # Eagl 16f0: 65 53 68 65 6c 6c 2e 65 78 65 20 2d 69 6e 69 74 eShell.exe -init 1700: 69 61 6c 69 7a 65 20 2d 72 75 6e 74 69 6d 65 4f ialize -runtimeO 1710: 70 74 69 6f 6e 20 6e 61 74 69 76 65 0d 0a 20 20 ption native.. 1720: 20 20 20 20 23 20 20 20 20 20 20 20 20 20 2d 66 # -f 1730: 69 6c 65 20 2e 5c 70 61 74 68 5c 74 6f 5c 61 6c ile .\path\to\al 1740: 6c 2e 65 61 67 6c 65 0d 0a 20 20 20 20 20 20 23 l.eagle.. # 1750: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. # 1760: 54 6f 20 65 6e 61 62 6c 65 20 74 68 69 73 20 6f To enable this o 1770: 70 74 69 6f 6e 20 76 69 61 20 74 68 65 20 63 6f ption via the co 1780: 6d 6d 61 6e 64 20 6c 69 6e 65 20 70 72 69 6f 72 mmand line prior 1790: 20 74 6f 20 74 68 65 20 22 62 65 74 61 20 31 36 to the "beta 16 17a0: 22 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 ".. # 17b0: 20 72 65 6c 65 61 73 65 20 6f 66 20 45 61 67 6c release of Eagl 17c0: 65 2c 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 e, the following 17d0: 20 63 6f 6d 6d 61 6e 64 20 6d 75 73 74 20 62 65 command must be 17e0: 20 75 73 65 64 20 69 6e 73 74 65 61 64 0d 0a 20 used instead.. 17f0: 20 20 20 20 20 23 20 20 20 20 20 20 20 28 61 6c # (al 1800: 73 6f 20 61 6c 6c 20 6f 6e 20 6f 6e 65 20 6c 69 so all on one li 1810: 6e 65 29 3a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 ne):.. #.. 1820: 20 20 20 20 20 23 20 20 20 20 20 20 20 45 61 67 # Eag 1830: 6c 65 53 68 65 6c 6c 2e 65 78 65 20 2d 69 6e 69 leShell.exe -ini 1840: 74 69 61 6c 69 7a 65 20 2d 70 6f 73 74 49 6e 69 tialize -postIni 1850: 74 69 61 6c 69 7a 65 0d 0a 20 20 20 20 20 20 23 tialize.. # 1860: 20 20 20 20 20 20 20 20 20 22 6f 62 6a 65 63 74 "object 1870: 20 69 6e 76 6f 6b 65 20 49 6e 74 65 72 70 72 65 invoke Interpre 1880: 74 65 72 2e 47 65 74 41 63 74 69 76 65 20 41 64 ter.GetActive Ad 1890: 64 52 75 6e 74 69 6d 65 4f 70 74 69 6f 6e 20 6e dRuntimeOption n 18a0: 61 74 69 76 65 22 0d 0a 20 20 20 20 20 20 23 20 ative".. # 18b0: 20 20 20 20 20 20 20 20 2d 66 69 6c 65 20 2e 5c -file .\ 18c0: 70 61 74 68 5c 74 6f 5c 61 6c 6c 2e 65 61 67 6c path\to\all.eagl 18d0: 65 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 e.. #.. 18e0: 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 if {[info exis 18f0: 74 73 20 3a 3a 62 75 69 6c 64 5f 64 69 72 65 63 ts ::build_direc 1900: 74 6f 72 79 5d 20 26 26 20 5c 0d 0a 20 20 20 20 tory] && \.. 1910: 20 20 20 20 20 20 5b 73 74 72 69 6e 67 20 6c 65 [string le 1920: 6e 67 74 68 20 24 3a 3a 62 75 69 6c 64 5f 64 69 ngth$::build_di
1930: 72 65 63 74 6f 72 79 5d 20 3e 20 30 7d 20 74 68  rectory] > 0} th
1940: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d  en {..        #.
1950: 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a  .        # NOTE:
1960: 20 54 68 65 20 6c 6f 63 61 74 69 6f 6e 20 6f 66   The location of
1970: 20 74 68 65 20 62 75 69 6c 64 20 64 69 72 65 63   the build direc
1980: 74 6f 72 79 20 68 61 73 20 62 65 65 6e 20 6f 76  tory has been ov
1990: 65 72 72 69 64 64 65 6e 3b 0d 0a 20 20 20 20 20  erridden;..
19a0: 20 20 20 23 20 20 20 20 20 20 20 74 68 65 72 65     #       there
19b0: 66 6f 72 65 2c 20 75 73 65 20 69 74 20 76 65 72  fore, use it ver
19c0: 62 61 74 69 6d 2e 0d 0a 20 20 20 20 20 20 20 20  batim...
19d0: 23 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 72  #..        retur
19e0: 6e 20 24 3a 3a 62 75 69 6c 64 5f 64 69 72 65 63  n $::build_direc 19f0: 74 6f 72 79 0d 0a 20 20 20 20 20 20 7d 20 65 6c tory.. } el 1a00: 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d se {.. #. 1a10: 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a . # NOTE: 1a20: 20 46 69 67 75 72 65 20 6f 75 74 20 74 68 65 20 Figure out the 1a30: 62 75 69 6c 64 20 62 61 73 65 20 64 69 72 65 63 build base direc 1a40: 74 6f 72 79 2e 20 20 54 68 69 73 20 77 69 6c 6c tory. This will 1a50: 20 62 65 20 74 68 65 20 64 69 72 65 63 74 6f 72 be the director 1a60: 79 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 y.. # 1a70: 20 20 20 74 68 61 74 20 63 6f 6e 74 61 69 6e 73 that contains 1a80: 20 74 68 65 20 61 63 74 75 61 6c 20 62 75 69 6c the actual buil 1a90: 64 20 6f 75 74 70 75 74 20 64 69 72 65 63 74 6f d output directo 1aa0: 72 79 20 28 65 2e 67 2e 20 22 62 69 6e 22 29 2e ry (e.g. "bin"). 1ab0: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #.. 1ac0: 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 if {[info e 1ad0: 78 69 73 74 73 20 3a 3a 62 75 69 6c 64 5f 62 61 xists ::build_ba 1ae0: 73 65 5f 64 69 72 65 63 74 6f 72 79 5d 20 26 26 se_directory] && 1af0: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \.. 1b00: 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 [string length$
1b10: 3a 3a 62 75 69 6c 64 5f 62 61 73 65 5f 64 69 72  ::build_base_dir
1b20: 65 63 74 6f 72 79 5d 20 3e 20 30 7d 20 74 68 65  ectory] > 0} the
1b30: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23  n {..          #
1b40: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f  ..          # NO
1b50: 54 45 3a 20 54 68 65 20 6c 6f 63 61 74 69 6f 6e  TE: The location
1b60: 20 6f 66 20 74 68 65 20 62 75 69 6c 64 20 62 61   of the build ba
1b70: 73 65 20 64 69 72 65 63 74 6f 72 79 20 68 61 73  se directory has
1b80: 20 62 65 65 6e 20 6f 76 65 72 72 69 64 64 65 6e   been overridden
1b90: 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 20  ;..          #
1ba0: 20 20 20 20 20 74 68 65 72 65 66 6f 72 65 2c 20       therefore,
1bb0: 75 73 65 20 69 74 20 76 65 72 62 61 74 69 6d 2e  use it verbatim.
1bc0: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20  ..          #..
1bd0: 20 20 20 20 20 20 20 20 20 73 65 74 20 70 61 74           set pat
1be0: 68 20 24 3a 3a 62 75 69 6c 64 5f 62 61 73 65 5f  h $::build_base_ 1bf0: 64 69 72 65 63 74 6f 72 79 0d 0a 20 20 20 20 20 directory.. 1c00: 20 20 20 7d 20 65 6c 73 65 69 66 20 7b 5b 69 6e } elseif {[in 1c10: 66 6f 20 65 78 69 73 74 73 20 3a 3a 63 6f 6d 6d fo exists ::comm 1c20: 6f 6e 5f 64 69 72 65 63 74 6f 72 79 5d 20 26 26 on_directory] && 1c30: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \.. 1c40: 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 [string length$
1c50: 3a 3a 63 6f 6d 6d 6f 6e 5f 64 69 72 65 63 74 6f  ::common_directo
1c60: 72 79 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d  ry] > 0} then {.
1c70: 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20  .          #..
1c80: 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20          # NOTE:
1c90: 4e 65 78 74 2c 20 66 61 6c 6c 62 61 63 6b 20 74  Next, fallback t
1ca0: 6f 20 74 68 65 20 70 61 72 65 6e 74 20 64 69 72  o the parent dir
1cb0: 65 63 74 6f 72 79 20 6f 66 20 74 68 65 20 6f 6e  ectory of the on
1cc0: 65 20 63 6f 6e 74 61 69 6e 69 6e 67 0d 0a 20 20  e containing..
1cd0: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20          #
1ce0: 74 68 69 73 20 66 69 6c 65 20 28 69 2e 65 2e 20  this file (i.e.
1cf0: 22 63 6f 6d 6d 6f 6e 2e 65 61 67 6c 65 22 29 2c  "common.eagle"),
1d00: 20 69 66 20 61 76 61 69 6c 61 62 6c 65 2e 0d 0a   if available...
1d10: 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20            #..
1d20: 20 20 20 20 20 20 20 73 65 74 20 70 61 74 68 20         set path
1d30: 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 24 3a  [file dirname $: 1d40: 3a 63 6f 6d 6d 6f 6e 5f 64 69 72 65 63 74 6f 72 :common_director 1d50: 79 5d 0d 0a 20 20 20 20 20 20 20 20 7d 20 65 6c y].. } el 1d60: 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 se {.. 1d70: 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e #.. # N 1d80: 4f 54 45 3a 20 46 69 6e 61 6c 6c 79 2c 20 66 61 OTE: Finally, fa 1d90: 6c 6c 62 61 63 6b 20 74 6f 20 74 68 65 20 70 61 llback to the pa 1da0: 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79 20 6f rent directory o 1db0: 66 20 74 68 65 20 45 61 67 6c 65 54 65 73 74 0d f the EagleTest. 1dc0: 0a 20 20 20 20 20 20 20 20 20 20 23 20 20 20 20 . # 1dd0: 20 20 20 70 61 74 68 2e 20 20 54 68 65 20 45 61 path. The Ea 1de0: 67 6c 65 54 65 73 74 20 70 61 63 6b 61 67 65 20 gleTest package 1df0: 67 75 61 72 61 6e 74 65 65 73 20 74 68 61 74 20 guarantees that 1e00: 74 68 69 73 20 76 61 72 69 61 62 6c 65 0d 0a 20 this variable.. 1e10: 20 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 # 1e20: 20 77 69 6c 6c 20 62 65 20 73 65 74 20 74 6f 20 will be set to 1e30: 74 68 65 20 64 69 72 65 63 74 6f 72 79 20 63 6f the directory co 1e40: 6e 74 61 69 6e 69 6e 67 20 74 68 65 20 66 69 72 ntaining the fir 1e50: 73 74 20 66 69 6c 65 20 74 6f 0d 0a 20 20 20 20 st file to.. 1e60: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 65 78 # ex 1e70: 65 63 75 74 65 20 74 68 65 20 5b 72 75 6e 54 65 ecute the [runTe 1e80: 73 74 50 72 6f 6c 6f 67 75 65 5d 20 73 63 72 69 stPrologue] scri 1e90: 70 74 20 6c 69 62 72 61 72 79 20 70 72 6f 63 65 pt library proce 1ea0: 64 75 72 65 2e 0d 0a 20 20 20 20 20 20 20 20 20 dure... 1eb0: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 73 65 #.. se 1ec0: 74 20 70 61 74 68 20 5b 66 69 6c 65 20 64 69 72 t path [file dir 1ed0: 6e 61 6d 65 20 24 3a 3a 70 61 74 68 5d 0d 0a 20 name$::path]..
1ee0: 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20         }....
1ef0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23      #..        #
1f00: 20 4e 4f 54 45 3a 20 49 66 20 74 68 65 20 22 6e   NOTE: If the "n
1f10: 61 74 69 76 65 22 20 72 75 6e 74 69 6d 65 20 6f  ative" runtime o
1f20: 70 74 69 6f 6e 20 69 73 20 73 65 74 2c 20 74 68  ption is set, th
1f30: 65 20 6d 69 78 65 64 2d 6d 6f 64 65 20 61 73 73  e mixed-mode ass
1f40: 65 6d 62 6c 79 0d 0a 20 20 20 20 20 20 20 20 23  embly..        #
1f50: 20 20 20 20 20 20 20 69 73 20 62 65 69 6e 67 20         is being
1f60: 74 65 73 74 65 64 2e 20 20 49 6e 20 74 68 61 74  tested.  In that
1f70: 20 63 61 73 65 2c 20 74 68 65 20 70 61 74 68 20   case, the path
1f80: 74 6f 20 74 68 65 20 62 75 69 6c 64 20 64 69 72  to the build dir
1f90: 65 63 74 6f 72 79 0d 0a 20 20 20 20 20 20 20 20  ectory..
1fa0: 23 20 20 20 20 20 20 20 77 69 6c 6c 20 63 6f 6e  #       will con
1fb0: 74 61 69 6e 20 74 68 65 20 70 6c 61 74 66 6f 72  tain the platfor
1fc0: 6d 20 6e 61 6d 65 20 61 6e 64 20 61 6c 6c 20 74  m name and all t
1fd0: 68 65 20 62 69 6e 61 72 69 65 73 20 75 6e 64 65  he binaries unde
1fe0: 72 20 74 65 73 74 0d 0a 20 20 20 20 20 20 20 20  r test..
1ff0: 23 20 20 20 20 20 20 20 73 68 6f 75 6c 64 20 62  #       should b
2000: 65 20 70 72 65 73 65 6e 74 20 69 6e 20 74 68 61  e present in tha
2010: 74 20 64 69 72 65 63 74 6f 72 79 2e 20 20 49 66  t directory.  If
2020: 20 74 68 65 20 22 6e 61 74 69 76 65 22 20 72 75   the "native" ru
2030: 6e 74 69 6d 65 0d 0a 20 20 20 20 20 20 20 20 23  ntime..        #
2040: 20 20 20 20 20 20 20 6f 70 74 69 6f 6e 20 69 73         option is
2050: 20 6e 6f 74 20 73 65 74 2c 20 74 68 65 20 62 75   not set, the bu
2060: 69 6c 64 20 64 69 72 65 63 74 6f 72 79 20 77 69  ild directory wi
2070: 6c 6c 20 62 65 20 63 6f 6e 73 69 64 65 72 65 64  ll be considered
2080: 20 74 6f 20 62 65 0d 0a 20 20 20 20 20 20 20 20   to be..
2090: 23 20 20 20 20 20 20 20 22 70 6c 61 74 66 6f 72  #       "platfor
20a0: 6d 2d 6e 65 75 74 72 61 6c 22 2c 20 77 69 74 68  m-neutral", with
20b0: 20 74 68 65 20 6e 6f 74 61 62 6c 65 20 65 78 63   the notable exc
20c0: 65 70 74 69 6f 6e 20 6f 66 20 61 6e 79 20 6e 61  eption of any na
20d0: 74 69 76 65 0d 0a 20 20 20 20 20 20 20 20 23 20  tive..        #
20e0: 20 20 20 20 20 20 61 73 73 65 6d 62 6c 79 20 28        assembly (
20f0: 65 2e 67 2e 20 22 53 51 4c 69 74 65 2e 49 6e 74  e.g. "SQLite.Int
2100: 65 72 6f 70 2e 64 6c 6c 22 29 20 63 6f 70 69 65  erop.dll") copie
2110: 64 20 74 68 65 72 65 20 64 75 72 69 6e 67 20 74  d there during t
2120: 68 65 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20  he..        #
2130: 20 20 20 20 62 75 69 6c 64 20 70 72 6f 63 65 73      build proces
2140: 73 20 69 74 73 65 6c 66 2e 20 20 49 66 20 74 68  s itself.  If th
2150: 65 20 62 75 69 6c 64 20 70 72 6f 63 65 73 73 20  e build process
2160: 73 6f 6d 65 68 6f 77 20 64 6f 65 73 20 6e 6f 74  somehow does not
2170: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20  ..        #
2180: 20 20 63 6f 70 79 20 74 68 65 20 6e 61 74 69 76    copy the nativ
2190: 65 20 61 73 73 65 6d 62 6c 79 20 66 6f 72 20 74  e assembly for t
21a0: 68 69 73 20 70 6c 61 74 66 6f 72 6d 2c 20 6d 6f  his platform, mo
21b0: 73 74 20 6f 66 20 74 68 65 20 74 65 73 74 73 0d  st of the tests.
21c0: 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20  .        #
21d0: 20 69 6e 20 74 68 65 20 73 75 69 74 65 20 77 69   in the suite wi
21e0: 6c 6c 20 73 69 6d 70 6c 79 20 62 65 20 73 6b 69  ll simply be ski
21f0: 70 70 65 64 2e 20 20 47 65 6e 65 72 61 6c 6c 79  pped.  Generally
2200: 20 73 70 65 61 6b 69 6e 67 2c 20 74 68 65 72 65   speaking, there
2210: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20  ..        #
2220: 20 20 61 72 65 20 74 77 6f 20 77 61 79 73 20 74    are two ways t
2230: 6f 20 62 75 69 6c 64 20 74 68 65 20 62 69 6e 61  o build the bina
2240: 72 69 65 73 20 77 68 65 6e 20 70 72 65 70 61 72  ries when prepar
2250: 69 6e 67 20 74 6f 20 72 75 6e 20 74 68 65 0d 0a  ing to run the..
2260: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20          #
2270: 74 65 73 74 20 73 75 69 74 65 3a 0d 0a 20 20 20  test suite:..
2280: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..
2290: 23 20 20 20 20 20 20 20 31 2e 20 42 75 69 6c 64  #       1. Build
22a0: 20 74 68 65 20 73 65 70 61 72 61 74 65 20 6d 61   the separate ma
22b0: 6e 61 67 65 64 20 61 6e 64 20 6e 61 74 69 76 65  naged and native
22c0: 20 61 73 73 65 6d 62 6c 69 65 73 20 75 73 69 6e   assemblies usin
22d0: 67 20 73 6f 6d 65 0d 0a 20 20 20 20 20 20 20 20  g some..
22e0: 23 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 61  #          comma
22f0: 6e 64 73 20 73 69 6d 69 6c 61 72 20 74 6f 3a 0d  nds similar to:.
2300: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20  .        #..
2310: 20 20 20 20 23 20 20 20 20 20 20 20 20 20 20 62      #          b
2320: 75 69 6c 64 2e 62 61 74 20 24 7b 43 6f 6e 66 69  uild.bat ${Confi 2330: 67 75 72 61 74 69 6f 6e 7d 4d 61 6e 61 67 65 64 guration}Managed 2340: 4f 6e 6c 79 20 24 7b 50 6c 61 74 66 6f 72 6d 7d Only${Platform}
2350: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20  ..        #
2360: 20 20 20 20 20 62 75 69 6c 64 2e 62 61 74 20 24       build.bat $2370: 7b 43 6f 6e 66 69 67 75 72 61 74 69 6f 6e 7d 4e {Configuration}N 2380: 61 74 69 76 65 4f 6e 6c 79 20 24 7b 50 6c 61 74 ativeOnly${Plat
2390: 66 6f 72 6d 7d 0d 0a 20 20 20 20 20 20 20 20 23  form}..        #
23a0: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20  ..        #
23b0: 20 20 20 20 20 57 68 65 72 65 20 24 7b 43 6f 6e       Where ${Con 23c0: 66 69 67 75 72 61 74 69 6f 6e 7d 20 69 73 20 65 figuration} is e 23d0: 69 74 68 65 72 20 22 44 65 62 75 67 22 20 6f 72 ither "Debug" or 23e0: 20 22 52 65 6c 65 61 73 65 22 20 61 6e 64 0d 0a "Release" and.. 23f0: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 # 2400: 20 20 20 24 7b 50 6c 61 74 66 6f 72 6d 7d 20 69${Platform} i
2410: 73 20 65 69 74 68 65 72 20 22 57 69 6e 33 32 22  s either "Win32"
2420: 20 6f 72 20 22 78 36 34 22 2e 0d 0a 20 20 20 20   or "x64"...
2430: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23      #..        #
2440: 20 20 20 20 20 20 20 32 2e 20 42 75 69 6c 64 20         2. Build
2450: 74 68 65 20 6d 69 78 65 64 2d 6d 6f 64 65 20 61  the mixed-mode a
2460: 73 73 65 6d 62 6c 79 20 75 73 69 6e 67 20 61 20  ssembly using a
2470: 63 6f 6d 6d 61 6e 64 20 73 69 6d 69 6c 61 72 20  command similar
2480: 74 6f 3a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a  to:..        #..
2490: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20          #
24a0: 20 20 20 62 75 69 6c 64 2e 62 61 74 20 24 7b 43     build.bat ${C 24b0: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 7d 20 24 7b onfiguration}${
24c0: 50 6c 61 74 66 6f 72 6d 7d 0d 0a 20 20 20 20 20  Platform}..
24d0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20     #..        #
24e0: 20 20 20 20 20 20 20 20 20 57 68 65 72 65 20 24           Where $24f0: 7b 43 6f 6e 66 69 67 75 72 61 74 69 6f 6e 7d 20 {Configuration} 2500: 69 73 20 65 69 74 68 65 72 20 22 44 65 62 75 67 is either "Debug 2510: 22 20 6f 72 20 22 52 65 6c 65 61 73 65 22 20 61 " or "Release" a 2520: 6e 64 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 nd.. # 2530: 20 20 20 20 20 20 20 24 7b 50 6c 61 74 66 6f 72${Platfor
2540: 6d 7d 20 69 73 20 65 69 74 68 65 72 20 22 57 69  m} is either "Wi
2550: 6e 33 32 22 20 6f 72 20 22 78 36 34 22 2e 20 20  n32" or "x64".
2560: 49 66 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20  If this command
2570: 69 73 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20  is..        #
2580: 20 20 20 20 20 20 20 75 73 65 64 2c 20 76 61 72         used, var
2590: 69 6f 75 73 20 74 65 73 74 73 20 74 68 61 74 20  ious tests that
25a0: 72 65 71 75 69 72 65 20 73 75 70 70 6c 65 6d 65  require suppleme
25b0: 6e 74 61 72 79 20 6d 61 6e 61 67 65 64 0d 0a 20  ntary managed..
25c0: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 20         #
25d0: 20 20 61 73 73 65 6d 62 6c 69 65 73 20 28 65 2e    assemblies (e.
25e0: 67 2e 20 4c 49 4e 51 29 20 6d 61 79 20 62 65 20  g. LINQ) may be
25f0: 73 6b 69 70 70 65 64 20 75 6e 6c 65 73 73 20 74  skipped unless t
2600: 68 6f 73 65 20 62 69 6e 61 72 69 65 73 0d 0a 20  hose binaries..
2610: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 20         #
2620: 20 20 61 72 65 20 73 75 62 73 65 71 75 65 6e 74    are subsequent
2630: 6c 79 20 63 6f 70 69 65 64 20 69 6e 74 6f 20 74  ly copied into t
2640: 68 65 20 63 6f 72 72 65 63 74 20 64 69 72 65 63  he correct direc
2650: 74 6f 72 79 20 28 69 2e 65 2e 20 62 79 0d 0a 20  tory (i.e. by..
2660: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 20         #
2670: 20 20 22 74 65 73 74 5f 61 6c 6c 2e 62 61 74 22    "test_all.bat"
2680: 29 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20  )...        #..
2690: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 4e         #       N
26a0: 6f 74 65 20 74 68 61 74 20 61 6c 6c 20 6f 66 20  ote that all of
26b0: 74 68 65 20 62 75 69 6c 64 20 63 6f 6d 6d 61 6e  the build comman
26c0: 64 73 20 61 62 6f 76 65 20 77 69 6c 6c 20 64 65  ds above will de
26d0: 66 61 75 6c 74 20 74 6f 20 75 73 69 6e 67 0d 0a  fault to using..
26e0: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20          #
26f0: 74 68 65 20 6c 61 74 65 73 74 20 76 65 72 73 69  the latest versi
2700: 6f 6e 20 6f 66 20 4d 53 42 75 69 6c 64 20 61 76  on of MSBuild av
2710: 61 69 6c 61 62 6c 65 20 61 6e 64 20 74 68 65 20  ailable and the
2720: 22 74 65 73 74 5f 79 65 61 72 22 20 6d 61 79 0d  "test_year" may.
2730: 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20  .        #
2740: 20 6e 65 65 64 20 74 6f 20 62 65 20 61 64 6a 75   need to be adju
2750: 73 74 65 64 20 61 63 63 6f 72 64 69 6e 67 6c 79  sted accordingly
2760: 20 74 6f 20 61 63 74 75 61 6c 6c 79 20 72 75 6e   to actually run
2770: 20 74 68 65 20 74 65 73 74 20 73 75 69 74 65 2e   the test suite.
2780: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20  ..        #
2790: 20 20 52 65 66 65 72 20 74 6f 20 74 68 65 20 63    Refer to the c
27a0: 6f 6d 6d 65 6e 74 73 20 69 6e 20 5b 67 65 74 42  omments in [getB
27b0: 75 69 6c 64 59 65 61 72 5d 20 66 6f 72 20 6d 6f  uildYear] for mo
27c0: 72 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 6f  re information o
27d0: 6e 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20  n..        #
27e0: 20 20 20 68 6f 77 20 74 6f 20 73 65 74 20 74 68     how to set th
27f0: 69 73 20 76 61 72 69 61 62 6c 65 2e 0d 0a 20 20  is variable...
2800: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..
2810: 20 69 66 20 7b 5b 68 61 73 52 75 6e 74 69 6d 65   if {[hasRuntime
2820: 4f 70 74 69 6f 6e 20 6e 61 74 69 76 65 5d 7d 20  Option native]}
2830: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20  then {..
2840: 20 20 72 65 74 75 72 6e 20 5b 66 69 6c 65 20 6a    return [file j
2850: 6f 69 6e 20 24 70 61 74 68 20 62 69 6e 20 5b 67  oin $path bin [g 2860: 65 74 42 75 69 6c 64 59 65 61 72 5d 20 5b 6d 61 etBuildYear] [ma 2870: 63 68 69 6e 65 54 6f 50 6c 61 74 66 6f 72 6d 20 chineToPlatform 2880: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 \.. 2890: 20 24 3a 3a 74 63 6c 5f 70 6c 61 74 66 6f 72 6d$::tcl_platform
28a0: 28 6d 61 63 68 69 6e 65 29 5d 20 5b 67 65 74 42  (machine)] [getB
28b0: 75 69 6c 64 43 6f 6e 66 69 67 75 72 61 74 69 6f  uildConfiguratio
28c0: 6e 5d 5d 0d 0a 20 20 20 20 20 20 20 20 7d 20 65  n]]..        } e
28d0: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  lse {..
28e0: 20 72 65 74 75 72 6e 20 5b 66 69 6c 65 20 6a 6f   return [file jo
28f0: 69 6e 20 24 70 61 74 68 20 62 69 6e 20 5b 67 65  in $path bin [ge 2900: 74 42 75 69 6c 64 59 65 61 72 5d 20 5b 67 65 74 tBuildYear] [get 2910: 42 75 69 6c 64 43 6f 6e 66 69 67 75 72 61 74 69 BuildConfigurati 2920: 6f 6e 5d 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 on] \.. 2930: 20 20 20 20 20 62 69 6e 5d 0d 0a 20 20 20 20 20 bin].. 2940: 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 }.. }.. 2950: 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f }..... pro 2960: 63 20 67 65 74 42 75 69 6c 64 46 69 6c 65 4e 61 c getBuildFileNa 2970: 6d 65 20 7b 20 66 69 6c 65 4e 61 6d 65 20 7d 20 me { fileName } 2980: 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 {.. #.. 2990: 20 20 23 20 4e 4f 54 45 3a 20 52 65 74 75 72 6e # NOTE: Return 29a0: 73 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 s the specified 29b0: 66 69 6c 65 20 6e 61 6d 65 20 61 73 20 69 66 20 file name as if 29c0: 69 74 20 77 65 72 65 20 6c 6f 63 61 74 65 64 20 it were located 29d0: 69 6e 20 74 68 65 0d 0a 20 20 20 20 20 20 23 20 in the.. # 29e0: 20 20 20 20 20 20 62 75 69 6c 64 20 64 69 72 65 build dire 29f0: 63 74 6f 72 79 2c 20 64 69 73 63 61 72 64 69 6e ctory, discardin 2a00: 67 20 61 6e 79 20 64 69 72 65 63 74 6f 72 79 20 g any directory 2a10: 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 70 72 65 73 information pres 2a20: 65 6e 74 0d 0a 20 20 20 20 20 20 23 20 20 20 20 ent.. # 2a30: 20 20 20 69 6e 20 74 68 65 20 66 69 6c 65 20 6e in the file n 2a40: 61 6d 65 20 61 73 20 70 72 6f 76 69 64 65 64 20 ame as provided 2a50: 62 79 20 6f 75 72 20 63 61 6c 6c 65 72 2e 0d 0a by our caller... 2a60: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 72 #.. r 2a70: 65 74 75 72 6e 20 5b 66 69 6c 65 20 6e 61 74 69 eturn [file nati 2a80: 76 65 6e 61 6d 65 20 5c 0d 0a 20 20 20 20 20 20 vename \.. 2a90: 20 20 20 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b [file join [ 2aa0: 67 65 74 42 75 69 6c 64 44 69 72 65 63 74 6f 72 getBuildDirector 2ab0: 79 5d 20 5b 66 69 6c 65 20 74 61 69 6c 20 24 66 y] [file tail$f
2ac0: 69 6c 65 4e 61 6d 65 5d 5d 5d 0d 0a 20 20 20 20  ileName]]]..
2ad0: 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 67  }.....    proc g
2ae0: 65 74 42 69 6e 61 72 79 44 69 72 65 63 74 6f 72  etBinaryDirector
2af0: 79 20 7b 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d  y {} {..      #.
2b00: 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 54  .      # NOTE: T
2b10: 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 72 65  his procedure re
2b20: 74 75 72 6e 73 20 74 68 65 20 64 69 72 65 63 74  turns the direct
2b30: 6f 72 79 20 77 68 65 72 65 20 74 68 65 20 74 65  ory where the te
2b40: 73 74 20 61 70 70 6c 69 63 61 74 69 6f 6e 0d 0a  st application..
2b50: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 69 74        #       it
2b60: 73 65 6c 66 20 28 69 2e 65 2e 20 74 68 65 20 45  self (i.e. the E
2b70: 61 67 6c 65 20 73 68 65 6c 6c 29 20 69 73 20 6c  agle shell) is l
2b80: 6f 63 61 74 65 64 2e 20 20 54 68 69 73 20 77 69  ocated.  This wi
2b90: 6c 6c 20 62 65 20 75 73 65 64 20 61 73 0d 0a 20  ll be used as..
2ba0: 20 20 20 20 20 23 20 20 20 20 20 20 20 74 68 65       #       the
2bb0: 20 64 65 73 74 69 6e 61 74 69 6f 6e 20 66 6f 72   destination for
2bc0: 20 74 68 65 20 63 6f 70 69 65 64 20 53 79 73 74   the copied Syst
2bd0: 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 20 6e  em.Data.SQLite n
2be0: 61 74 69 76 65 20 61 6e 64 0d 0a 20 20 20 20 20  ative and..
2bf0: 20 23 20 20 20 20 20 20 20 6d 61 6e 61 67 65 64   #       managed
2c00: 20 61 73 73 65 6d 62 6c 69 65 73 20 28 69 2e 65   assemblies (i.e
2c10: 2e 20 62 65 63 61 75 73 65 20 74 68 69 73 20 69  . because this i
2c20: 73 20 6f 6e 65 20 6f 66 20 74 68 65 20 66 65 77  s one of the few
2c30: 20 70 6c 61 63 65 73 0d 0a 20 20 20 20 20 20 23   places..      #
2c40: 20 20 20 20 20 20 20 77 68 65 72 65 20 74 68 65         where the
2c50: 20 43 4c 52 20 77 69 6c 6c 20 61 63 74 75 61 6c   CLR will actual
2c60: 6c 79 20 66 69 6e 64 20 61 6e 64 20 6c 6f 61 64  ly find and load
2c70: 20 74 68 65 6d 20 70 72 6f 70 65 72 6c 79 29 2e   them properly).
2c80: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20  ..      #..
2c90: 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74   if {[info exist
2ca0: 73 20 3a 3a 62 69 6e 61 72 79 5f 64 69 72 65 63  s ::binary_direc
2cb0: 74 6f 72 79 5d 20 26 26 20 5c 0d 0a 20 20 20 20  tory] && \..
2cc0: 20 20 20 20 20 20 5b 73 74 72 69 6e 67 20 6c 65        [string le
2cd0: 6e 67 74 68 20 24 3a 3a 62 69 6e 61 72 79 5f 64  ngth $::binary_d 2ce0: 69 72 65 63 74 6f 72 79 5d 20 3e 20 30 7d 20 74 irectory] > 0} t 2cf0: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 hen {.. # 2d00: 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 .. # NOTE 2d10: 3a 20 54 68 65 20 6c 6f 63 61 74 69 6f 6e 20 6f : The location o 2d20: 66 20 74 68 65 20 62 69 6e 61 72 79 20 64 69 72 f the binary dir 2d30: 65 63 74 6f 72 79 20 68 61 73 20 62 65 65 6e 20 ectory has been 2d40: 6f 76 65 72 72 69 64 64 65 6e 3b 0d 0a 20 20 20 overridden;.. 2d50: 20 20 20 20 20 23 20 20 20 20 20 20 20 74 68 65 # the 2d60: 72 65 66 6f 72 65 2c 20 75 73 65 20 69 74 20 76 refore, use it v 2d70: 65 72 62 61 74 69 6d 2e 0d 0a 20 20 20 20 20 20 erbatim... 2d80: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 72 65 74 #.. ret 2d90: 75 72 6e 20 24 3a 3a 62 69 6e 61 72 79 5f 64 69 urn$::binary_di
2da0: 72 65 63 74 6f 72 79 0d 0a 20 20 20 20 20 20 7d  rectory..      }
2db0: 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20   else {..
2dc0: 20 72 65 74 75 72 6e 20 5b 69 6e 66 6f 20 62 69   return [info bi
2dd0: 6e 61 72 79 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a  nary]..      }..
2de0: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72      }.....    pr
2df0: 6f 63 20 67 65 74 42 69 6e 61 72 79 46 69 6c 65  oc getBinaryFile
2e00: 4e 61 6d 65 20 7b 20 66 69 6c 65 4e 61 6d 65 20  Name { fileName
2e10: 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  } {..      #..
2e20: 20 20 20 20 23 20 4e 4f 54 45 3a 20 52 65 74 75      # NOTE: Retu
2e30: 72 6e 73 20 74 68 65 20 73 70 65 63 69 66 69 65  rns the specifie
2e40: 64 20 66 69 6c 65 20 6e 61 6d 65 20 61 73 20 69  d file name as i
2e50: 66 20 69 74 20 77 65 72 65 20 6c 6f 63 61 74 65  f it were locate
2e60: 64 20 69 6e 20 74 68 65 0d 0a 20 20 20 20 20 20  d in the..
2e70: 23 20 20 20 20 20 20 20 62 69 6e 61 72 79 20 64  #       binary d
2e80: 69 72 65 63 74 6f 72 79 2c 20 64 69 73 63 61 72  irectory, discar
2e90: 64 69 6e 67 20 61 6e 79 20 64 69 72 65 63 74 6f  ding any directo
2ea0: 72 79 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 70  ry information p
2eb0: 72 65 73 65 6e 74 0d 0a 20 20 20 20 20 20 23 20  resent..      #
2ec0: 20 20 20 20 20 20 69 6e 20 74 68 65 20 66 69 6c        in the fil
2ed0: 65 20 6e 61 6d 65 20 61 73 20 70 72 6f 76 69 64  e name as provid
2ee0: 65 64 20 62 79 20 6f 75 72 20 63 61 6c 6c 65 72  ed by our caller
2ef0: 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20  ...      #..
2f00: 20 20 72 65 74 75 72 6e 20 5b 66 69 6c 65 20 6e    return [file n
2f10: 61 74 69 76 65 6e 61 6d 65 20 5c 0d 0a 20 20 20  ativename \..
2f20: 20 20 20 20 20 20 20 5b 66 69 6c 65 20 6a 6f 69         [file joi
2f30: 6e 20 5b 67 65 74 42 69 6e 61 72 79 44 69 72 65  n [getBinaryDire
2f40: 63 74 6f 72 79 5d 20 5b 66 69 6c 65 20 74 61 69  ctory] [file tai
2f50: 6c 20 24 66 69 6c 65 4e 61 6d 65 5d 5d 5d 0d 0a  l $fileName]]].. 2f60: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 }..... pr 2f70: 6f 63 20 67 65 74 43 6f 72 65 42 69 6e 61 72 79 oc getCoreBinary 2f80: 46 69 6c 65 4e 61 6d 65 20 7b 20 7b 73 74 61 6e FileName { {stan 2f90: 64 61 72 64 20 66 61 6c 73 65 7d 20 7d 20 7b 0d dard false} } {. 2fa0: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 . #.. 2fb0: 23 20 4e 4f 54 45 3a 20 52 65 74 75 72 6e 73 20 # NOTE: Returns 2fc0: 74 68 65 20 66 75 6c 6c 20 70 61 74 68 20 66 6f the full path fo 2fd0: 72 20 74 68 65 20 66 69 6c 65 20 63 6f 6e 74 61 r the file conta 2fe0: 69 6e 69 6e 67 20 74 68 65 20 63 6f 72 65 20 53 ining the core S 2ff0: 51 4c 69 74 65 0d 0a 20 20 20 20 20 20 23 20 20 QLite.. # 3000: 20 20 20 20 20 6c 69 62 72 61 72 79 20 63 6f 64 library cod 3010: 65 20 66 6f 72 20 74 68 69 73 20 70 6c 61 74 66 e for this platf 3020: 6f 72 6d 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 orm... #.. 3030: 20 20 20 20 20 69 66 20 7b 5b 68 61 73 52 75 6e if {[hasRun 3040: 74 69 6d 65 4f 70 74 69 6f 6e 20 6e 61 74 69 76 timeOption nativ 3050: 65 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 e]} then {.. 3060: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 #.. # 3070: 20 4e 4f 54 45 3a 20 52 65 74 75 72 6e 20 74 68 NOTE: Return th 3080: 65 20 6d 69 78 65 64 2d 6d 6f 64 65 20 61 73 73 e mixed-mode ass 3090: 65 6d 62 6c 79 20 66 69 6c 65 20 6e 61 6d 65 2e embly file name. 30a0: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #.. 30b0: 20 20 20 20 20 72 65 74 75 72 6e 20 5b 66 69 6c return [fil 30c0: 65 20 6e 61 74 69 76 65 6e 61 6d 65 20 5c 0d 0a e nativename \.. 30d0: 20 20 20 20 20 20 20 20 20 20 20 20 5b 66 69 6c [fil 30e0: 65 20 6a 6f 69 6e 20 5b 67 65 74 42 69 6e 61 72 e join [getBinar 30f0: 79 44 69 72 65 63 74 6f 72 79 5d 20 53 79 73 74 yDirectory] Syst 3100: 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 64 em.Data.SQLite.d 3110: 6c 6c 5d 5d 0d 0a 20 20 20 20 20 20 7d 20 65 6c ll]].. } el 3120: 73 65 69 66 20 7b 24 73 74 61 6e 64 61 72 64 7d seif {$standard}
3130: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20   then {..
3140: 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f   #..        # NO
3150: 54 45 3a 20 52 65 74 75 72 6e 20 74 68 65 20 6e  TE: Return the n
3160: 61 74 69 76 65 2d 6f 6e 6c 79 20 73 74 61 6e 64  ative-only stand
3170: 61 72 64 20 53 51 4c 69 74 65 20 6c 69 62 72 61  ard SQLite libra
3180: 72 79 20 66 69 6c 65 20 6e 61 6d 65 2e 0d 0a 20  ry file name...
3190: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..
31a0: 20 20 72 65 74 75 72 6e 20 5b 66 69 6c 65 20 6e    return [file n
31b0: 61 74 69 76 65 6e 61 6d 65 20 5c 0d 0a 20 20 20  ativename \..
31c0: 20 20 20 20 20 20 20 20 20 5b 66 69 6c 65 20 6a           [file j
31d0: 6f 69 6e 20 5b 67 65 74 42 69 6e 61 72 79 44 69  oin [getBinaryDi
31e0: 72 65 63 74 6f 72 79 5d 20 73 71 6c 69 74 65 33  rectory] sqlite3
31f0: 2e 64 6c 6c 5d 5d 0d 0a 20 20 20 20 20 20 7d 20  .dll]]..      }
3200: 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20  else {..
3210: 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54  #..        # NOT
3220: 45 3a 20 52 65 74 75 72 6e 20 74 68 65 20 6e 61  E: Return the na
3230: 74 69 76 65 2d 6f 6e 6c 79 20 69 6e 74 65 72 6f  tive-only intero
3240: 70 20 61 73 73 65 6d 62 6c 79 20 66 69 6c 65 20  p assembly file
3250: 6e 61 6d 65 2e 0d 0a 20 20 20 20 20 20 20 20 23  name...        #
3260: 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e  ..        return
3270: 20 5b 66 69 6c 65 20 6e 61 74 69 76 65 6e 61 6d   [file nativenam
3280: 65 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20  e \..
3290: 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 67 65 74   [file join [get
32a0: 42 69 6e 61 72 79 44 69 72 65 63 74 6f 72 79 5d  BinaryDirectory]
32b0: 20 53 51 4c 69 74 65 2e 49 6e 74 65 72 6f 70 2e   SQLite.Interop.
32c0: 64 6c 6c 5d 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a  dll]]..      }..
32d0: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72      }.....    pr
32e0: 6f 63 20 67 65 74 43 6f 6d 6d 6f 6e 44 69 72 65  oc getCommonDire
32f0: 63 74 6f 72 79 20 7b 7d 20 7b 0d 0a 20 20 20 20  ctory {} {..
3300: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54    #..      # NOT
3310: 45 3a 20 54 68 69 73 20 70 72 6f 63 65 64 75 72  E: This procedur
3320: 65 20 72 65 74 75 72 6e 73 20 74 68 65 20 64 69  e returns the di
3330: 72 65 63 74 6f 72 79 20 77 68 65 72 65 20 74 68  rectory where th
3340: 65 20 74 65 73 74 20 73 63 72 69 70 74 73 0d 0a  e test scripts..
3350: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 73 68        #       sh
3360: 6f 75 6c 64 20 62 65 20 6c 6f 63 61 74 65 64 2e  ould be located.
3370: 20 20 42 79 20 64 65 66 61 75 6c 74 2c 20 74 68    By default, th
3380: 69 73 20 6a 75 73 74 20 72 65 74 75 72 6e 73 20  is just returns
3390: 74 68 65 20 45 61 67 6c 65 0d 0a 20 20 20 20 20  the Eagle..
33a0: 20 23 20 20 20 20 20 20 20 62 69 6e 61 72 79 20   #       binary
33b0: 64 69 72 65 63 74 6f 72 79 2e 0d 0a 20 20 20 20  directory...
33c0: 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b    #..      if {[
33d0: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 63 6f  info exists ::co
33e0: 6d 6d 6f 6e 5f 64 69 72 65 63 74 6f 72 79 5d 20  mmon_directory]
33f0: 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  && \..
3400: 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24  [string length $3410: 3a 3a 63 6f 6d 6d 6f 6e 5f 64 69 72 65 63 74 6f ::common_directo 3420: 72 79 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d ry] > 0} then {. 3430: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #.. 3440: 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 65 20 # NOTE: The 3450: 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 location of the 3460: 63 6f 6d 6d 6f 6e 20 64 69 72 65 63 74 6f 72 79 common directory 3470: 20 68 61 73 20 62 65 65 6e 20 73 65 74 3b 0d 0a has been set;.. 3480: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 # 3490: 74 68 65 72 65 66 6f 72 65 2c 20 75 73 65 20 69 therefore, use i 34a0: 74 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 t... #.. 34b0: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 3a return$:
34c0: 3a 63 6f 6d 6d 6f 6e 5f 64 69 72 65 63 74 6f 72  :common_director
34d0: 79 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 69  y..      } elsei
34e0: 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20  f {[info exists
34f0: 3a 3a 76 65 6e 64 6f 72 5f 64 69 72 65 63 74 6f  ::vendor_directo
3500: 72 79 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20 20  ry] && \..
3510: 20 20 20 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67      [string leng
3520: 74 68 20 24 3a 3a 76 65 6e 64 6f 72 5f 64 69 72  th $::vendor_dir 3530: 65 63 74 6f 72 79 5d 20 3e 20 30 7d 20 74 68 65 ectory] > 0} the 3540: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a n {.. #.. 3550: 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 # NOTE: 3560: 54 68 65 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 The location of 3570: 74 68 65 20 76 65 6e 64 6f 72 20 64 69 72 65 63 the vendor direc 3580: 74 6f 72 79 20 68 61 73 20 62 65 65 6e 20 73 65 tory has been se 3590: 74 3b 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 t;.. # 35a0: 20 20 20 20 74 68 65 72 65 66 6f 72 65 2c 20 75 therefore, u 35b0: 73 65 20 69 74 2e 0d 0a 20 20 20 20 20 20 20 20 se it... 35c0: 23 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 #.. retur 35d0: 6e 20 24 3a 3a 76 65 6e 64 6f 72 5f 64 69 72 65 n$::vendor_dire
35e0: 63 74 6f 72 79 0d 0a 20 20 20 20 20 20 7d 20 65  ctory..      } e
35f0: 6c 73 65 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69  lseif {[info exi
3600: 73 74 73 20 3a 3a 74 63 6c 5f 6c 69 62 72 61 72  sts ::tcl_librar
3610: 79 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20 20 20  y] && \..
3620: 20 20 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74     [string lengt
3630: 68 20 24 3a 3a 74 63 6c 5f 6c 69 62 72 61 72 79  h $::tcl_library 3640: 5d 20 3e 20 30 20 26 26 20 5c 0d 0a 20 20 20 20 ] > 0 && \.. 3650: 20 20 20 20 20 20 5b 66 69 6c 65 20 69 73 64 69 [file isdi 3660: 72 65 63 74 6f 72 79 20 24 3a 3a 74 63 6c 5f 6c rectory$::tcl_l
3670: 69 62 72 61 72 79 5d 7d 20 74 68 65 6e 20 7b 0d  ibrary]} then {.
3680: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20  .        #..
3690: 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 65 20      # NOTE: The
36a0: 76 61 72 69 61 62 6c 65 20 77 69 74 68 20 74 68  variable with th
36b0: 65 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 74 68  e location of th
36c0: 65 20 73 63 72 69 70 74 20 6c 69 62 72 61 72 79  e script library
36d0: 20 69 73 0d 0a 20 20 20 20 20 20 20 20 23 20 20   is..        #
36e0: 20 20 20 20 20 73 65 74 20 61 6e 64 20 61 70 70       set and app
36f0: 65 61 72 73 20 74 6f 20 62 65 20 61 20 72 65 61  ears to be a rea
3700: 6c 20 64 69 72 65 63 74 6f 72 79 20 28 69 2e 65  l directory (i.e
3710: 2e 20 6e 6f 74 20 65 6d 62 65 64 64 65 64 0d 0a  . not embedded..
3720: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20          #
3730: 77 69 74 68 69 6e 20 61 20 66 69 6c 65 29 3b 20  within a file);
3740: 74 68 65 72 65 66 6f 72 65 2c 20 75 73 65 20 69  therefore, use i
3750: 74 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20  t...        #..
3760: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 3a         return $: 3770: 3a 74 63 6c 5f 6c 69 62 72 61 72 79 0d 0a 20 20 :tcl_library.. 3780: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 } else {.. 3790: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #.. 37a0: 20 23 20 4e 4f 54 45 3a 20 46 61 6c 6c 62 61 63 # NOTE: Fallbac 37b0: 6b 20 74 6f 20 74 68 65 20 64 69 72 65 63 74 6f k to the directo 37c0: 72 79 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 ry containing th 37d0: 65 20 65 78 65 63 75 74 61 62 6c 65 2e 0d 0a 20 e executable... 37e0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #.. 37f0: 20 20 72 65 74 75 72 6e 20 5b 69 6e 66 6f 20 62 return [info b 3800: 69 6e 61 72 79 5d 0d 0a 20 20 20 20 20 20 7d 0d inary].. }. 3810: 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 . }..... p 3820: 72 6f 63 20 67 65 74 44 61 74 61 62 61 73 65 44 roc getDatabaseD 3830: 69 72 65 63 74 6f 72 79 20 7b 7d 20 7b 0d 0a 20 irectory {} {.. 3840: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 #.. # 3850: 4e 4f 54 45 3a 20 54 68 69 73 20 70 72 6f 63 65 NOTE: This proce 3860: 64 75 72 65 20 72 65 74 75 72 6e 73 20 74 68 65 dure returns the 3870: 20 64 69 72 65 63 74 6f 72 79 20 77 68 65 72 65 directory where 3880: 20 74 68 65 20 74 65 73 74 20 64 61 74 61 62 61 the test databa 3890: 73 65 73 0d 0a 20 20 20 20 20 20 23 20 20 20 20 ses.. # 38a0: 20 20 20 73 68 6f 75 6c 64 20 62 65 20 6c 6f 63 should be loc 38b0: 61 74 65 64 2e 20 20 42 79 20 64 65 66 61 75 6c ated. By defaul 38c0: 74 2c 20 74 68 69 73 20 6a 75 73 74 20 75 73 65 t, this just use 38d0: 73 20 74 68 65 20 74 65 6d 70 6f 72 61 72 79 0d s the temporary. 38e0: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 64 . # d 38f0: 69 72 65 63 74 6f 72 79 20 63 6f 6e 66 69 67 75 irectory configu 3900: 72 65 64 20 66 6f 72 20 74 68 69 73 20 73 79 73 red for this sys 3910: 74 65 6d 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 tem... #.. 3920: 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 if {[info e 3930: 78 69 73 74 73 20 3a 3a 64 61 74 61 62 61 73 65 xists ::database 3940: 5f 64 69 72 65 63 74 6f 72 79 5d 20 26 26 20 5c _directory] && \ 3950: 0d 0a 20 20 20 20 20 20 20 20 20 20 5b 73 74 72 .. [str 3960: 69 6e 67 20 6c 65 6e 67 74 68 20 24 3a 3a 64 61 ing length$::da
3970: 74 61 62 61 73 65 5f 64 69 72 65 63 74 6f 72 79  tabase_directory
3980: 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20  ] > 0} then {..
3990: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..
39a0: 20 20 23 20 4e 4f 54 45 3a 20 54 68 65 20 6c 6f    # NOTE: The lo
39b0: 63 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 64 61  cation of the da
39c0: 74 61 62 61 73 65 20 64 69 72 65 63 74 6f 72 79  tabase directory
39d0: 20 68 61 73 20 62 65 65 6e 20 6f 76 65 72 72 69   has been overri
39e0: 64 64 65 6e 3b 0d 0a 20 20 20 20 20 20 20 20 23  dden;..        #
39f0: 20 20 20 20 20 20 20 74 68 65 72 65 66 6f 72 65         therefore
3a00: 2c 20 75 73 65 20 69 74 2e 0d 0a 20 20 20 20 20  , use it...
3a10: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 72 65     #..        re
3a20: 74 75 72 6e 20 24 3a 3a 64 61 74 61 62 61 73 65  turn $::database 3a30: 5f 64 69 72 65 63 74 6f 72 79 0d 0a 20 20 20 20 _directory.. 3a40: 20 20 7d 20 65 6c 73 65 69 66 20 7b 5b 69 6e 66 } elseif {[inf 3a50: 6f 20 65 78 69 73 74 73 20 3a 3a 73 63 72 61 74 o exists ::scrat 3a60: 63 68 5f 64 69 72 65 63 74 6f 72 79 5d 20 26 26 ch_directory] && 3a70: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 5b 73 \.. [s 3a80: 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 3a 3a tring length$::
3a90: 73 63 72 61 74 63 68 5f 64 69 72 65 63 74 6f 72  scratch_director
3aa0: 79 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a  y] > 0} then {..
3ab0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..
3ac0: 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 65 20 6c     # NOTE: The l
3ad0: 6f 63 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 73  ocation of the s
3ae0: 63 72 61 74 63 68 20 64 69 72 65 63 74 6f 72 79  cratch directory
3af0: 20 68 61 73 20 62 65 65 6e 20 6f 76 65 72 72 69   has been overri
3b00: 64 64 65 6e 3b 0d 0a 20 20 20 20 20 20 20 20 23  dden;..        #
3b10: 20 20 20 20 20 20 20 74 68 65 72 65 66 6f 72 65         therefore
3b20: 2c 20 75 73 65 20 69 74 2e 0d 0a 20 20 20 20 20  , use it...
3b30: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 72 65     #..        re
3b40: 74 75 72 6e 20 24 3a 3a 73 63 72 61 74 63 68 5f  turn $::scratch_ 3b50: 64 69 72 65 63 74 6f 72 79 0d 0a 20 20 20 20 20 directory.. 3b60: 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 } else {.. 3b70: 20 20 20 72 65 74 75 72 6e 20 5b 67 65 74 54 65 return [getTe 3b80: 6d 70 6f 72 61 72 79 50 61 74 68 5d 0d 0a 20 20 mporaryPath].. 3b90: 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d }.. }.... 3ba0: 0a 20 20 20 20 70 72 6f 63 20 67 65 74 54 65 6d . proc getTem 3bb0: 70 6f 72 61 72 79 44 69 72 65 63 74 6f 72 79 20 poraryDirectory 3bc0: 7b 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 {} {.. #.. 3bd0: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 69 # NOTE: Thi 3be0: 73 20 70 72 6f 63 65 64 75 72 65 20 72 65 74 75 s procedure retu 3bf0: 72 6e 73 20 74 68 65 20 64 69 72 65 63 74 6f 72 rns the director 3c00: 79 20 77 68 65 72 65 20 74 68 65 20 74 65 6d 70 y where the temp 3c10: 6f 72 61 72 79 20 66 69 6c 65 73 0d 0a 20 20 20 orary files.. 3c20: 20 20 20 23 20 20 20 20 20 20 20 73 68 6f 75 6c # shoul 3c30: 64 20 62 65 20 6c 6f 63 61 74 65 64 2e 20 20 42 d be located. B 3c40: 79 20 64 65 66 61 75 6c 74 2c 20 74 68 69 73 20 y default, this 3c50: 6a 75 73 74 20 75 73 65 73 20 74 68 65 20 74 65 just uses the te 3c60: 6d 70 6f 72 61 72 79 0d 0a 20 20 20 20 20 20 23 mporary.. # 3c70: 20 20 20 20 20 20 20 64 69 72 65 63 74 6f 72 79 directory 3c80: 20 63 6f 6e 66 69 67 75 72 65 64 20 66 6f 72 20 configured for 3c90: 74 68 69 73 20 73 79 73 74 65 6d 2e 0d 0a 20 20 this system... 3ca0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 #.. if 3cb0: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a {[info exists :: 3cc0: 74 65 6d 70 6f 72 61 72 79 5f 64 69 72 65 63 74 temporary_direct 3cd0: 6f 72 79 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20 ory] && \.. 3ce0: 20 20 20 20 20 5b 73 74 72 69 6e 67 20 6c 65 6e [string len 3cf0: 67 74 68 20 24 3a 3a 74 65 6d 70 6f 72 61 72 79 gth$::temporary
3d00: 5f 64 69 72 65 63 74 6f 72 79 5d 20 3e 20 30 7d  _directory] > 0}
3d10: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20   then {..
3d20: 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f   #..        # NO
3d30: 54 45 3a 20 54 68 65 20 6c 6f 63 61 74 69 6f 6e  TE: The location
3d40: 20 6f 66 20 74 68 65 20 74 65 6d 70 6f 72 61 72   of the temporar
3d50: 79 20 64 69 72 65 63 74 6f 72 79 20 68 61 73 20  y directory has
3d60: 62 65 65 6e 20 6f 76 65 72 72 69 64 64 65 6e 3b  been overridden;
3d70: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20  ..        #
3d80: 20 20 74 68 65 72 65 66 6f 72 65 2c 20 75 73 65    therefore, use
3d90: 20 69 74 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d   it...        #.
3da0: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20  .        return
3db0: 24 3a 3a 74 65 6d 70 6f 72 61 72 79 5f 64 69 72  $::temporary_dir 3dc0: 65 63 74 6f 72 79 0d 0a 20 20 20 20 20 20 7d 20 ectory.. } 3dd0: 65 6c 73 65 69 66 20 7b 5b 69 6e 66 6f 20 65 78 elseif {[info ex 3de0: 69 73 74 73 20 3a 3a 73 63 72 61 74 63 68 5f 64 ists ::scratch_d 3df0: 69 72 65 63 74 6f 72 79 5d 20 26 26 20 5c 0d 0a irectory] && \.. 3e00: 20 20 20 20 20 20 20 20 20 20 5b 73 74 72 69 6e [strin 3e10: 67 20 6c 65 6e 67 74 68 20 24 3a 3a 73 63 72 61 g length$::scra
3e20: 74 63 68 5f 64 69 72 65 63 74 6f 72 79 5d 20 3e  tch_directory] >
3e30: 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20   0} then {..
3e40: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23      #..        #
3e50: 20 4e 4f 54 45 3a 20 54 68 65 20 6c 6f 63 61 74   NOTE: The locat
3e60: 69 6f 6e 20 6f 66 20 74 68 65 20 73 63 72 61 74  ion of the scrat
3e70: 63 68 20 64 69 72 65 63 74 6f 72 79 20 68 61 73  ch directory has
3e80: 20 62 65 65 6e 20 6f 76 65 72 72 69 64 64 65 6e   been overridden
3e90: 3b 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20  ;..        #
3ea0: 20 20 20 74 68 65 72 65 66 6f 72 65 2c 20 75 73     therefore, us
3eb0: 65 20 69 74 2e 0d 0a 20 20 20 20 20 20 20 20 23  e it...        #
3ec0: 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e  ..        return
3ed0: 20 24 3a 3a 73 63 72 61 74 63 68 5f 64 69 72 65   $::scratch_dire 3ee0: 63 74 6f 72 79 0d 0a 20 20 20 20 20 20 7d 20 65 ctory.. } e 3ef0: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 72 lse {.. r 3f00: 65 74 75 72 6e 20 5b 67 65 74 54 65 6d 70 6f 72 eturn [getTempor 3f10: 61 72 79 50 61 74 68 5d 0d 0a 20 20 20 20 20 20 aryPath].. 3f20: 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 }.. }..... 3f30: 20 70 72 6f 63 20 67 65 74 54 65 73 74 4f 76 65 proc getTestOve 3f40: 72 72 69 64 65 73 50 72 65 61 6d 62 6c 65 20 7b rridesPreamble { 3f50: 20 7b 65 78 74 72 61 56 61 72 4e 61 6d 65 73 20 {extraVarNames 3f60: 22 22 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 20 73 ""} } {.. s 3f70: 65 74 20 76 61 72 4e 61 6d 65 73 20 5b 6c 69 73 et varNames [lis 3f80: 74 5d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 t].... #.. 3f90: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 49 66 20 # NOTE: If 3fa0: 61 76 61 69 6c 61 62 6c 65 2c 20 73 74 61 72 74 available, start 3fb0: 20 77 69 74 68 20 74 68 65 20 6d 61 73 74 65 72 with the master 3fc0: 20 6c 69 73 74 20 6f 66 20 74 65 73 74 20 6f 76 list of test ov 3fd0: 65 72 72 69 64 65 0d 0a 20 20 20 20 20 20 23 20 erride.. # 3fe0: 20 20 20 20 20 20 76 61 72 69 61 62 6c 65 73 2e variables. 3ff0: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #.. 4000: 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 if {[info exist 4010: 73 20 3a 3a 74 65 73 74 5f 6f 76 65 72 72 69 64 s ::test_overrid 4020: 65 73 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20 20 es] && \.. 4030: 20 20 20 20 5b 6c 6c 65 6e 67 74 68 20 24 3a 3a [llength$::
4040: 74 65 73 74 5f 6f 76 65 72 72 69 64 65 73 5d 20  test_overrides]
4050: 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  > 0} then {..
4060: 20 20 20 20 20 65 76 61 6c 20 6c 61 70 70 65 6e       eval lappen
4070: 64 20 76 61 72 4e 61 6d 65 73 20 24 3a 3a 74 65  d varNames $::te 4080: 73 74 5f 6f 76 65 72 72 69 64 65 73 0d 0a 20 20 st_overrides.. 4090: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 }.... # 40a0: 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 .. # NOTE: 40b0: 49 66 20 72 65 71 75 65 73 74 65 64 20 62 79 20 If requested by 40c0: 6f 75 72 20 63 61 6c 6c 65 72 2c 20 61 64 64 20 our caller, add 40d0: 61 6e 79 20 61 64 64 69 74 69 6f 6e 61 6c 20 76 any additional v 40e0: 61 72 69 61 62 6c 65 0d 0a 20 20 20 20 20 20 23 ariable.. # 40f0: 20 20 20 20 20 20 20 6e 61 6d 65 73 20 74 6f 20 names to 4100: 63 6f 70 79 20 6e 6f 77 2e 0d 0a 20 20 20 20 20 copy now... 4110: 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 6c #.. if {[l 4120: 6c 65 6e 67 74 68 20 24 65 78 74 72 61 56 61 72 length$extraVar
4130: 4e 61 6d 65 73 5d 20 3e 20 30 7d 20 74 68 65 6e  Names] > 0} then
4140: 20 7b 0d 0a 20 20 20 20 20 20 20 20 65 76 61 6c   {..        eval
4150: 20 6c 61 70 70 65 6e 64 20 76 61 72 4e 61 6d 65   lappend varName
4160: 73 20 24 65 78 74 72 61 56 61 72 4e 61 6d 65 73  s $extraVarNames 4170: 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 .. }.... 4180: 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f #.. # NO 4190: 54 45 3a 20 42 75 69 6c 64 20 74 68 65 20 73 63 TE: Build the sc 41a0: 72 69 70 74 20 66 72 61 67 6d 65 6e 74 20 74 6f ript fragment to 41b0: 20 62 65 20 72 65 74 75 72 6e 65 64 20 62 79 20 be returned by 41c0: 70 72 6f 63 65 73 73 69 6e 67 20 65 61 63 68 0d processing each. 41d0: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 76 . # v 41e0: 61 72 69 61 62 6c 65 20 6e 61 6d 65 20 61 6e 64 ariable name and 41f0: 20 61 64 64 69 6e 67 20 74 68 65 20 6e 65 63 65 adding the nece 4200: 63 65 73 73 61 72 79 20 73 63 72 69 70 74 20 66 cessary script f 4210: 72 61 67 6d 65 6e 74 73 20 66 6f 72 0d 0a 20 20 ragments for.. 4220: 20 20 20 20 23 20 20 20 20 20 20 20 65 61 63 68 # each 4230: 20 6f 6e 65 2e 0d 0a 20 20 20 20 20 20 23 0d 0a one... #.. 4240: 20 20 20 20 20 20 73 65 74 20 72 65 73 75 6c 74 set result 4250: 20 22 22 0d 0a 0d 0a 20 20 20 20 20 20 66 6f 72 "".... for 4260: 65 61 63 68 20 76 61 72 4e 61 6d 65 20 24 76 61 each varName$va
4270: 72 4e 61 6d 65 73 20 7b 0d 0a 20 20 20 20 20 20  rNames {..
4280: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e    #..        # N
4290: 4f 54 45 3a 20 42 75 69 6c 64 20 74 68 65 20 71  OTE: Build the q
42a0: 75 61 6c 69 66 69 65 64 20 67 6c 6f 62 61 6c 20  ualified global
42b0: 76 61 72 69 61 62 6c 65 20 6e 61 6d 65 2e 0d 0a  variable name...
42c0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..
42d0: 20 20 20 73 65 74 20 66 75 6c 6c 56 61 72 4e 61     set fullVarNa
42e0: 6d 65 20 5b 61 70 70 65 6e 64 41 72 67 73 20 3a  me [appendArgs :
42f0: 3a 20 24 76 61 72 4e 61 6d 65 5d 0d 0a 0d 0a 20  : $varName].... 4300: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #.. 4310: 20 20 23 20 4e 4f 54 45 3a 20 44 6f 65 73 20 74 # NOTE: Does t 4320: 68 65 20 76 61 72 69 61 62 6c 65 20 65 78 69 73 he variable exis 4330: 74 20 69 6e 20 74 68 69 73 20 69 6e 74 65 72 70 t in this interp 4340: 72 65 74 65 72 20 63 6f 6e 74 65 78 74 3f 0d 0a reter context?.. 4350: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #.. 4360: 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 if {[info exi 4370: 73 74 73 20 24 66 75 6c 6c 56 61 72 4e 61 6d 65 sts$fullVarName
4380: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  ]} then {..
4390: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..
43a0: 20 20 23 20 4e 4f 54 45 3a 20 41 70 70 65 6e 64    # NOTE: Append
43b0: 20 61 20 73 63 72 69 70 74 20 66 72 61 67 6d 65   a script fragme
43c0: 6e 74 20 74 6f 20 74 68 65 20 72 65 73 75 6c 74  nt to the result
43d0: 20 74 68 61 74 20 77 69 6c 6c 20 63 6f 72 72 65   that will corre
43e0: 63 74 6c 79 0d 0a 20 20 20 20 20 20 20 20 20 20  ctly..
43f0: 23 20 20 20 20 20 20 20 63 6f 70 79 20 61 6e 79  #       copy any
4400: 20 63 6f 6e 74 61 69 6e 65 64 20 76 61 6c 75 65   contained value
4410: 20 74 6f 20 61 6e 6f 74 68 65 72 20 69 6e 74 65   to another inte
4420: 72 70 72 65 74 65 72 20 63 6f 6e 74 65 78 74 2e  rpreter context.
4430: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20  ..          #..
4440: 20 20 20 20 20 20 20 20 20 61 70 70 65 6e 64 20           append
4450: 72 65 73 75 6c 74 20 5c 6e 20 22 73 65 74 20 22  result \n "set "
4460: 20 24 66 75 6c 6c 56 61 72 4e 61 6d 65 20 22 20   $fullVarName " 4470: 5c 7b 22 20 5b 73 65 74 20 24 66 75 6c 6c 56 61 \{" [set$fullVa
4480: 72 4e 61 6d 65 5d 20 5c 7d 0d 0a 20 20 20 20 20  rName] \}..
4490: 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d     }..      }...
44a0: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20  .      #..
44b0: 23 20 4e 4f 54 45 3a 20 49 66 20 74 68 65 20 72  # NOTE: If the r
44c0: 65 73 75 6c 74 20 63 6f 6e 74 61 69 6e 73 20 6f  esult contains o
44d0: 6e 65 20 6f 72 20 6d 6f 72 65 20 73 63 72 69 70  ne or more scrip
44e0: 74 20 66 72 61 67 6d 65 6e 74 73 2c 20 61 70 70  t fragments, app
44f0: 65 6e 64 20 61 0d 0a 20 20 20 20 20 20 23 20 20  end a..      #
4500: 20 20 20 20 20 6e 65 77 6c 69 6e 65 2e 0d 0a 20       newline...
4510: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66       #..      if
4520: 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68   {[string length
4530: 20 24 72 65 73 75 6c 74 5d 20 3e 20 30 7d 20 74   $result] > 0} t 4540: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 61 hen {.. a 4550: 70 70 65 6e 64 20 72 65 73 75 6c 74 20 5c 6e 0d ppend result \n. 4560: 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 . }.... 4570: 20 20 72 65 74 75 72 6e 20 24 72 65 73 75 6c 74 return$result
4580: 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20  ..    }.....
4590: 70 72 6f 63 20 67 65 74 41 70 70 44 6f 6d 61 69  proc getAppDomai
45a0: 6e 50 72 65 61 6d 62 6c 65 20 7b 20 7b 70 72 65  nPreamble { {pre
45b0: 66 69 78 20 22 22 7d 20 7b 73 75 66 66 69 78 20  fix ""} {suffix
45c0: 22 22 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 20 23  ""} } {..      #
45d0: 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20  ..      # NOTE:
45e0: 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 72  This procedure r
45f0: 65 74 75 72 6e 73 20 61 20 74 65 73 74 20 73 65  eturns a test se
4600: 74 75 70 20 73 63 72 69 70 74 20 66 72 61 67 6d  tup script fragm
4610: 65 6e 74 20 73 75 69 74 61 62 6c 65 20 66 6f 72  ent suitable for
4620: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20  ..      #
4630: 65 76 61 6c 75 61 74 69 6f 6e 20 62 79 20 61 6e  evaluation by an
4640: 20 69 6e 74 65 72 70 72 65 74 65 72 20 63 72 65   interpreter cre
4650: 61 74 65 64 20 69 6e 20 61 6e 20 69 73 6f 6c 61  ated in an isola
4660: 74 65 64 20 61 70 70 6c 69 63 61 74 69 6f 6e 0d  ted application.
4670: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 64  .      #       d
4680: 6f 6d 61 69 6e 2e 20 20 54 68 65 20 73 63 72 69  omain.  The scri
4690: 70 74 20 66 72 61 67 6d 65 6e 74 20 62 65 69 6e  pt fragment bein
46a0: 67 20 72 65 74 75 72 6e 65 64 20 77 69 6c 6c 20  g returned will
46b0: 62 65 20 73 75 72 72 6f 75 6e 64 65 64 20 62 79  be surrounded by
46c0: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20  ..      #
46d0: 74 68 65 20 70 72 65 66 69 78 20 61 6e 64 20 73  the prefix and s
46e0: 75 66 66 69 78 20 22 73 63 72 69 70 74 20 66 72  uffix "script fr
46f0: 61 67 6d 65 6e 74 73 22 20 73 70 65 63 69 66 69  agments" specifi
4700: 65 64 20 62 79 20 6f 75 72 20 63 61 6c 6c 65 72  ed by our caller
4710: 2c 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20  ,..      #
4720: 20 69 66 20 61 6e 79 2e 20 20 54 68 65 20 65 6e   if any.  The en
4730: 74 69 72 65 20 73 63 72 69 70 74 20 62 65 69 6e  tire script bein
4740: 67 20 72 65 74 75 72 6e 65 64 20 77 69 6c 6c 20  g returned will
4750: 62 65 20 73 75 62 73 74 69 74 75 74 65 64 20 76  be substituted v
4760: 69 61 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20  ia..      #
4770: 20 20 5b 73 75 62 73 74 5d 2c 20 69 6e 20 74 68    [subst], in th
4780: 65 20 63 6f 6e 74 65 78 74 20 6f 66 20 6f 75 72  e context of our
4790: 20 63 61 6c 6c 65 72 2c 20 62 65 66 6f 72 65 20   caller, before
47a0: 62 65 69 6e 67 20 72 65 74 75 72 6e 65 64 2e 0d  being returned..
47b0: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 54  .      #       T
47c0: 68 69 73 20 73 74 65 70 20 69 73 20 6e 65 63 65  his step is nece
47d0: 73 73 61 72 79 20 73 6f 20 74 68 61 74 20 73 6f  ssary so that so
47e0: 6d 65 20 6c 69 6d 69 74 65 64 20 63 6f 6e 74 65  me limited conte
47f0: 78 74 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2c 0d  xt information,.
4800: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 70  .      #       p
4810: 72 69 6d 61 72 69 6c 79 20 72 65 6c 61 74 65 64  rimarily related
4820: 20 74 6f 20 74 68 65 20 74 65 73 74 69 6e 67 20   to the testing
4830: 64 69 72 65 63 74 6f 72 69 65 73 2c 20 63 61 6e  directories, can
4840: 20 62 65 20 74 72 61 6e 73 66 65 72 72 65 64 0d   be transferred.
4850: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 74  .      #       t
4860: 6f 20 74 68 65 20 69 6e 74 65 72 70 72 65 74 65  o the interprete
4870: 72 20 69 6e 20 74 68 65 20 69 73 6f 6c 61 74 65  r in the isolate
4880: 64 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 64 6f  d application do
4890: 6d 61 69 6e 2c 20 6d 61 6b 69 6e 67 20 69 74 0d  main, making it.
48a0: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 61  .      #       a
48b0: 62 6c 65 20 74 6f 20 73 75 63 63 65 73 73 66 75  ble to successfu
48c0: 6c 6c 79 20 72 75 6e 20 74 65 73 74 73 20 74 68  lly run tests th
48d0: 61 74 20 72 65 71 75 69 72 65 20 6f 6e 65 20 6f  at require one o
48e0: 72 20 6d 6f 72 65 20 6f 66 20 74 68 65 0d 0a 20  r more of the..
48f0: 20 20 20 20 20 23 20 20 20 20 20 20 20 66 69 6c       #       fil
4900: 65 73 20 69 6e 20 6f 6e 65 20 6f 66 20 74 68 65  es in one of the
4910: 20 74 65 73 74 69 6e 67 20 64 69 72 65 63 74 6f   testing directo
4920: 72 69 65 73 2e 20 20 43 61 6c 6c 65 72 73 20 73  ries.  Callers s
4930: 68 6f 75 6c 64 20 6b 65 65 70 20 69 6e 0d 0a 20  hould keep in..
4940: 20 20 20 20 20 23 20 20 20 20 20 20 20 6d 69 6e       #       min
4950: 64 20 74 68 61 74 20 74 68 65 20 74 65 73 74 20  d that the test
4960: 73 63 72 69 70 74 20 66 72 61 67 6d 65 6e 74 20  script fragment
4970: 62 65 69 6e 67 20 72 65 74 75 72 6e 65 64 20 63  being returned c
4980: 61 6e 6e 6f 74 20 72 65 6c 79 20 6f 6e 0d 0a 20  annot rely on..
4990: 20 20 20 20 20 23 20 20 20 20 20 20 20 61 6e 79       #       any
49a0: 20 73 63 72 69 70 74 20 6c 69 62 72 61 72 79 20   script library
49b0: 70 72 6f 63 65 64 75 72 65 73 20 74 68 61 74 20  procedures that
49c0: 61 72 65 20 6e 6f 74 20 70 72 6f 76 69 64 65 64  are not provided
49d0: 20 62 79 20 74 68 65 20 45 61 67 6c 65 0d 0a 20   by the Eagle..
49e0: 20 20 20 20 20 23 20 20 20 20 20 20 20 6c 69 62       #       lib
49f0: 72 61 72 79 20 70 61 63 6b 61 67 65 20 28 69 2e  rary package (i.
4a00: 65 2e 20 22 69 6e 69 74 2e 65 61 67 6c 65 22 29  e. "init.eagle")
4a10: 2c 20 69 6e 63 6c 75 64 69 6e 67 20 74 68 6f 73  , including thos
4a20: 65 20 70 72 6f 76 69 64 65 64 20 62 79 0d 0a 20  e provided by..
4a30: 20 20 20 20 20 23 20 20 20 20 20 20 20 74 68 65       #       the
4a40: 20 45 61 67 6c 65 20 74 65 73 74 20 70 61 63 6b   Eagle test pack
4a50: 61 67 65 2c 20 75 6e 6c 65 73 73 20 74 68 65 20  age, unless the
4a60: 66 69 6c 65 20 63 6f 6e 74 61 69 6e 69 6e 67 20  file containing
4a70: 74 68 65 6d 20 69 73 20 6c 6f 61 64 65 64 0d 0a  them is loaded..
4a80: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 6d 61        #       ma
4a90: 6e 75 61 6c 6c 79 20 76 69 61 20 73 6f 6d 65 20  nually via some
4aa0: 6f 74 68 65 72 20 6d 65 63 68 61 6e 69 73 6d 20  other mechanism
4ab0: 28 65 2e 67 2e 20 62 79 20 69 6e 63 6c 75 64 69  (e.g. by includi
4ac0: 6e 67 20 61 70 70 72 6f 70 72 69 61 74 65 0d 0a  ng appropriate..
4ad0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 5b 70        #       [p
4ae0: 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 5d 20  ackage require]
4af0: 6f 72 20 5b 73 6f 75 72 63 65 5d 20 63 6f 6d 6d  or [source] comm
4b00: 61 6e 64 73 20 69 6e 20 74 68 65 20 70 72 65 66  ands in the pref
4b10: 69 78 20 6f 72 20 73 75 66 66 69 78 0d 0a 20 20  ix or suffix..
4b20: 20 20 20 20 23 20 20 20 20 20 20 20 73 63 72 69      #       scri
4b30: 70 74 20 66 72 61 67 6d 65 6e 74 73 29 2e 20 20  pt fragments).
4b40: 41 6c 73 6f 2c 20 61 6c 6c 20 76 61 72 69 61 62  Also, all variab
4b50: 6c 65 20 72 65 66 65 72 65 6e 63 65 73 20 61 6e  le references an
4b60: 64 20 61 6c 6c 20 6e 65 73 74 65 64 0d 0a 20 20  d all nested..
4b70: 20 20 20 20 23 20 20 20 20 20 20 20 63 6f 6d 6d      #       comm
4b80: 61 6e 64 73 20 28 69 2e 65 2e 20 74 68 6f 73 65  ands (i.e. those
4b90: 20 69 6e 20 73 71 75 61 72 65 20 62 72 61 63 6b   in square brack
4ba0: 65 74 73 29 20 63 6f 6e 74 61 69 6e 65 64 20 69  ets) contained i
4bb0: 6e 20 74 68 65 20 66 69 6e 61 6c 0d 0a 20 20 20  n the final..
4bc0: 20 20 20 23 20 20 20 20 20 20 20 73 63 72 69 70     #       scrip
4bd0: 74 20 66 72 61 67 6d 65 6e 74 20 77 69 6c 6c 20  t fragment will
4be0: 65 6e 64 20 75 70 20 62 65 69 6e 67 20 65 76 61  end up being eva
4bf0: 6c 75 61 74 65 64 20 69 6e 20 74 68 65 20 63 6f  luated in the co
4c00: 6e 74 65 78 74 20 6f 66 20 74 68 65 0d 0a 20 20  ntext of the..
4c10: 20 20 20 20 23 20 20 20 20 20 20 20 63 61 6c 6c      #       call
4c20: 69 6e 67 20 69 6e 74 65 72 70 72 65 74 65 72 20  ing interpreter
4c30: 61 6e 64 20 6e 6f 74 20 74 68 65 20 74 61 72 67  and not the targ
4c40: 65 74 20 69 6e 74 65 72 70 72 65 74 65 72 20 63  et interpreter c
4c50: 72 65 61 74 65 64 20 69 6e 20 74 68 65 0d 0a 20  reated in the..
4c60: 20 20 20 20 20 23 20 20 20 20 20 20 20 69 73 6f       #       iso
4c70: 6c 61 74 65 64 20 61 70 70 6c 69 63 61 74 69 6f  lated applicatio
4c80: 6e 20 64 6f 6d 61 69 6e 20 75 6e 6c 65 73 73 20  n domain unless
4c90: 74 68 65 20 64 6f 6c 6c 61 72 20 73 69 67 6e 73  the dollar signs
4ca0: 20 61 6e 64 2f 6f 72 20 73 71 75 61 72 65 0d 0a   and/or square..
4cb0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 62 72        #       br
4cc0: 61 63 6b 65 74 73 20 61 72 65 20 73 70 65 63 69  ackets are speci
4cd0: 61 6c 6c 79 20 71 75 6f 74 65 64 20 77 69 74 68  ally quoted with
4ce0: 20 62 61 63 6b 73 6c 61 73 68 65 73 2e 0d 0a 20   backslashes...
4cf0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 72 65       #..      re
4d00: 74 75 72 6e 20 5b 75 70 6c 65 76 65 6c 20 31 20  turn [uplevel 1
4d10: 5b 6c 69 73 74 20 73 75 62 73 74 20 5b 61 70 70  [list subst [app
4d20: 65 6e 64 41 72 67 73 20 24 70 72 65 66 69 78 20  endArgs $prefix 4d30: 7b 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b {.. if {[ 4d40: 68 61 73 52 75 6e 74 69 6d 65 4f 70 74 69 6f 6e hasRuntimeOption 4d50: 20 6e 61 74 69 76 65 5d 7d 20 74 68 65 6e 20 7b native]} then { 4d60: 0d 0a 20 20 20 20 20 20 20 20 20 20 6f 62 6a 65 .. obje 4d70: 63 74 20 69 6e 76 6f 6b 65 20 49 6e 74 65 72 70 ct invoke Interp 4d80: 72 65 74 65 72 2e 47 65 74 41 63 74 69 76 65 20 reter.GetActive 4d90: 41 64 64 52 75 6e 74 69 6d 65 4f 70 74 69 6f 6e AddRuntimeOption 4da0: 20 6e 61 74 69 76 65 0d 0a 20 20 20 20 20 20 20 native.. 4db0: 20 7d 0d 0a 20 20 20 20 20 20 7d 20 5b 67 65 74 }.. } [get 4dc0: 54 65 73 74 4f 76 65 72 72 69 64 65 73 50 72 65 TestOverridesPre 4dd0: 61 6d 62 6c 65 20 5b 6c 69 73 74 20 70 61 74 68 amble [list path 4de0: 20 74 65 73 74 5f 63 68 61 6e 6e 65 6c 5d 5d 20 test_channel]] 4df0: 24 73 75 66 66 69 78 5d 5d 5d 0d 0a 20 20 20 20$suffix]]]..
4e00: 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 74  }.....    proc t
4e10: 72 79 43 6f 70 79 42 75 69 6c 64 46 69 6c 65 20  ryCopyBuildFile
4e20: 7b 20 66 69 6c 65 4e 61 6d 65 20 7d 20 7b 0d 0a  { fileName } {..
4e30: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23        #..      #
4e40: 20 4e 4f 54 45 3a 20 49 66 20 77 65 20 63 61 6e   NOTE: If we can
4e50: 6e 6f 74 20 63 6f 70 79 20 74 68 65 20 61 73 73  not copy the ass
4e60: 65 6d 62 6c 79 20 74 68 65 6e 20 69 74 20 69 73  embly then it is
4e70: 20 70 72 6f 62 61 62 6c 79 20 61 6c 72 65 61 64   probably alread
4e80: 79 20 6c 6f 61 64 65 64 2e 0d 0a 20 20 20 20 20  y loaded...
4e90: 20 23 0d 0a 20 20 20 20 20 20 73 65 74 20 73 6f   #..      set so
4ea0: 75 72 63 65 46 69 6c 65 4e 61 6d 65 20 5b 67 65  urceFileName [ge
4eb0: 74 42 75 69 6c 64 46 69 6c 65 4e 61 6d 65 20 24  tBuildFileName $4ec0: 66 69 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a 20 20 20 fileName].... 4ed0: 20 20 20 69 66 20 7b 21 5b 66 69 6c 65 20 65 78 if {![file ex 4ee0: 69 73 74 73 20 24 73 6f 75 72 63 65 46 69 6c 65 ists$sourceFile
4ef0: 4e 61 6d 65 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20  Name]} then {..
4f00: 20 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a         tputs $:: 4f10: 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 test_channel [ap 4f20: 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 pendArgs \.. 4f30: 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 73 6b "---- sk 4f40: 69 70 70 65 64 20 63 6f 70 79 69 6e 67 20 62 75 ipped copying bu 4f50: 69 6c 64 20 66 69 6c 65 20 5c 22 22 20 24 73 6f ild file \""$so
4f60: 75 72 63 65 46 69 6c 65 4e 61 6d 65 20 5c 0d 0a  urceFileName \..
4f70: 20 20 20 20 20 20 20 20 20 20 20 20 22 5c 22 2c              "\",
4f80: 20 69 74 20 64 6f 65 73 20 6e 6f 74 20 65 78 69   it does not exi
4f90: 73 74 5c 6e 22 5d 0d 0a 0d 0a 20 20 20 20 20 20  st\n"]....
4fa0: 20 20 72 65 74 75 72 6e 0d 0a 20 20 20 20 20 20    return..
4fb0: 7d 0d 0a 0d 0a 20 20 20 20 20 20 73 65 74 20 74  }....      set t
4fc0: 61 72 67 65 74 46 69 6c 65 4e 61 6d 65 20 5b 67  argetFileName [g
4fd0: 65 74 42 69 6e 61 72 79 46 69 6c 65 4e 61 6d 65  etBinaryFileName
4fe0: 20 24 66 69 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a 20   $fileName].... 4ff0: 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 if {[catch 5000: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 {.. 5010: 20 66 69 6c 65 20 63 6f 70 79 20 2d 66 6f 72 63 file copy -forc 5020: 65 20 24 73 6f 75 72 63 65 46 69 6c 65 4e 61 6d e$sourceFileNam
5030: 65 20 24 74 61 72 67 65 74 46 69 6c 65 4e 61 6d  e $targetFileNam 5040: 65 7d 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b e}] == 0} then { 5050: 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20 .. tputs 5060: 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20$::test_channel
5070: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20  [appendArgs \..
5080: 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d             "----
5090: 20 63 6f 70 69 65 64 20 62 75 69 6c 64 20 66 69   copied build fi
50a0: 6c 65 20 66 72 6f 6d 20 5c 22 22 20 24 73 6f 75  le from \"" $sou 50b0: 72 63 65 46 69 6c 65 4e 61 6d 65 20 22 5c 22 20 rceFileName "\" 50c0: 74 6f 20 5c 22 22 20 5c 0d 0a 20 20 20 20 20 20 to \"" \.. 50d0: 20 20 20 20 20 20 24 74 61 72 67 65 74 46 69 6c$targetFil
50e0: 65 4e 61 6d 65 20 5c 22 5c 6e 5d 0d 0a 20 20 20  eName \"\n]..
50f0: 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20     } else {..
5100: 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65       tputs $::te 5110: 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 st_channel [appe 5120: 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 ndArgs \.. 5130: 20 20 20 20 20 20 22 2d 2d 2d 2d 20 66 61 69 6c "---- fail 5140: 65 64 20 74 6f 20 63 6f 70 79 20 62 75 69 6c 64 ed to copy build 5150: 20 66 69 6c 65 20 66 72 6f 6d 20 5c 22 22 20 24 file from \""$
5160: 73 6f 75 72 63 65 46 69 6c 65 4e 61 6d 65 20 5c  sourceFileName \
5170: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 5c  ..            "\
5180: 22 20 74 6f 20 5c 22 22 20 24 74 61 72 67 65 74  " to \"" $target 5190: 46 69 6c 65 4e 61 6d 65 20 5c 22 5c 6e 5d 0d 0a FileName \"\n].. 51a0: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a }.. }.. 51b0: 0c 0d 0a 20 20 20 20 70 72 6f 63 20 74 72 79 44 ... proc tryD 51c0: 65 6c 65 74 65 42 69 6e 61 72 79 46 69 6c 65 20 eleteBinaryFile 51d0: 7b 20 66 69 6c 65 4e 61 6d 65 20 7d 20 7b 0d 0a { fileName } {.. 51e0: 20 20 20 20 20 20 73 65 74 20 66 69 6c 65 4e 61 set fileNa 51f0: 6d 65 20 5b 67 65 74 42 69 6e 61 72 79 46 69 6c me [getBinaryFil 5200: 65 4e 61 6d 65 20 24 66 69 6c 65 4e 61 6d 65 5d eName$fileName]
5210: 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 21 5b  ....      if {![
5220: 66 69 6c 65 20 65 78 69 73 74 73 20 24 66 69 6c  file exists $fil 5230: 65 4e 61 6d 65 5d 7d 20 74 68 65 6e 20 7b 0d 0a eName]} then {.. 5240: 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 3a tputs$:
5250: 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61  :test_channel [a
5260: 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20  ppendArgs \..
5270: 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 73           "---- s
5280: 6b 69 70 70 65 64 20 64 65 6c 65 74 69 6e 67 20  kipped deleting
5290: 62 69 6e 61 72 79 20 66 69 6c 65 20 5c 22 22 20  binary file \""
52a0: 24 66 69 6c 65 4e 61 6d 65 20 5c 0d 0a 20 20 20  $fileName \.. 52b0: 20 20 20 20 20 20 20 20 20 22 5c 22 2c 20 69 74 "\", it 52c0: 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 5c does not exist\ 52d0: 6e 22 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 72 n"].... r 52e0: 65 74 75 72 6e 0d 0a 20 20 20 20 20 20 7d 0d 0a eturn.. }.. 52f0: 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 .. if {[cat 5300: 63 68 20 7b 66 69 6c 65 20 64 65 6c 65 74 65 20 ch {file delete 5310: 24 66 69 6c 65 4e 61 6d 65 7d 5d 20 3d 3d 20 30$fileName}] == 0
5320: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..
5330: 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f    tputs $::test_ 5340: 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 channel [appendA 5350: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 rgs \.. 5360: 20 20 20 22 2d 2d 2d 2d 20 64 65 6c 65 74 65 64 "---- deleted 5370: 20 62 69 6e 61 72 79 20 66 69 6c 65 20 5c 22 22 binary file \"" 5380: 20 24 66 69 6c 65 4e 61 6d 65 20 5c 22 5c 6e 5d$fileName \"\n]
5390: 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b  ..      } else {
53a0: 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20  ..        tputs
53b0: 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20  $::test_channel 53c0: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 [appendArgs \.. 53d0: 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d "---- 53e0: 20 66 61 69 6c 65 64 20 74 6f 20 64 65 6c 65 74 failed to delet 53f0: 65 20 62 69 6e 61 72 79 20 66 69 6c 65 20 5c 22 e binary file \" 5400: 22 20 24 66 69 6c 65 4e 61 6d 65 20 5c 22 5c 6e "$fileName \"\n
5410: 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20  ]..      }..
5420: 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 74  }.....    proc t
5430: 72 79 43 6f 70 79 41 73 73 65 6d 62 6c 79 20 7b  ryCopyAssembly {
5440: 20 66 69 6c 65 4e 61 6d 65 20 7b 70 64 62 20 74   fileName {pdb t
5450: 72 75 65 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 20  rue} } {..
5460: 74 72 79 43 6f 70 79 42 75 69 6c 64 46 69 6c 65  tryCopyBuildFile
5470: 20 24 66 69 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 20   $fileName.... 5480: 20 20 20 20 69 66 20 7b 24 70 64 62 7d 20 74 68 if {$pdb} th
5490: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 74 72  en {..        tr
54a0: 79 43 6f 70 79 42 75 69 6c 64 46 69 6c 65 20 5b  yCopyBuildFile [
54b0: 61 70 70 65 6e 64 41 72 67 73 20 5b 66 69 6c 65  appendArgs [file
54c0: 20 72 6f 6f 74 6e 61 6d 65 20 24 66 69 6c 65 4e   rootname $fileN 54d0: 61 6d 65 5d 20 2e 70 64 62 5d 0d 0a 20 20 20 20 ame] .pdb].. 54e0: 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 }.. }..... 54f0: 20 20 20 70 72 6f 63 20 74 72 79 44 65 6c 65 74 proc tryDelet 5500: 65 41 73 73 65 6d 62 6c 79 20 7b 20 66 69 6c 65 eAssembly { file 5510: 4e 61 6d 65 20 7b 70 64 62 20 74 72 75 65 7d 20 Name {pdb true} 5520: 7d 20 7b 0d 0a 20 20 20 20 20 20 74 72 79 44 65 } {.. tryDe 5530: 6c 65 74 65 42 69 6e 61 72 79 46 69 6c 65 20 24 leteBinaryFile$
5540: 66 69 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 20 20 20  fileName....
5550: 20 20 69 66 20 7b 24 70 64 62 7d 20 74 68 65 6e    if {$pdb} then 5560: 20 7b 0d 0a 20 20 20 20 20 20 20 20 74 72 79 44 {.. tryD 5570: 65 6c 65 74 65 42 69 6e 61 72 79 46 69 6c 65 20 eleteBinaryFile 5580: 5b 61 70 70 65 6e 64 41 72 67 73 20 5b 66 69 6c [appendArgs [fil 5590: 65 20 72 6f 6f 74 6e 61 6d 65 20 24 66 69 6c 65 e rootname$file
55a0: 4e 61 6d 65 5d 20 2e 70 64 62 5d 0d 0a 20 20 20  Name] .pdb]..
55b0: 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a     }..    }.....
55c0: 20 20 20 20 70 72 6f 63 20 74 72 79 4c 6f 61 64      proc tryLoad
55d0: 41 73 73 65 6d 62 6c 79 20 7b 20 66 69 6c 65 4e  Assembly { fileN
55e0: 61 6d 65 20 7d 20 7b 0d 0a 20 20 20 20 20 20 73  ame } {..      s
55f0: 65 74 20 66 69 6c 65 4e 61 6d 65 20 5b 67 65 74  et fileName [get
5600: 42 69 6e 61 72 79 46 69 6c 65 4e 61 6d 65 20 24  BinaryFileName $5610: 66 69 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a 20 20 20 fileName].... 5620: 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 73 if {[catch {s 5630: 65 74 20 61 73 73 65 6d 62 6c 79 20 5c 0d 0a 20 et assembly \.. 5640: 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 6f 62 [ob 5650: 6a 65 63 74 20 6c 6f 61 64 20 2d 6c 6f 61 64 74 ject load -loadt 5660: 79 70 65 20 46 69 6c 65 20 2d 61 6c 69 61 73 20 ype File -alias 5670: 24 66 69 6c 65 4e 61 6d 65 5d 7d 5d 20 3d 3d 20$fileName]}] ==
5680: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  0} then {..
5690: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20     #..        #
56a0: 4e 4f 54 45 3a 20 4e 6f 77 2c 20 61 64 64 20 74  NOTE: Now, add t
56b0: 68 65 20 6e 65 63 65 73 73 61 72 79 20 74 65 73  he necessary tes
56c0: 74 20 63 6f 6e 73 74 72 61 69 6e 74 2e 0d 0a 20  t constraint...
56d0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..
56e0: 20 20 61 64 64 43 6f 6e 73 74 72 61 69 6e 74 20    addConstraint
56f0: 5b 66 69 6c 65 20 72 6f 6f 74 6e 61 6d 65 20 5b  [file rootname [
5700: 66 69 6c 65 20 74 61 69 6c 20 24 66 69 6c 65 4e  file tail $fileN 5710: 61 6d 65 5d 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 ame]].... 5720: 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f #.. # NO 5730: 54 45 3a 20 47 72 61 62 20 74 68 65 20 69 6d 61 TE: Grab the ima 5740: 67 65 20 72 75 6e 74 69 6d 65 20 76 65 72 73 69 ge runtime versi 5750: 6f 6e 20 66 72 6f 6d 20 74 68 65 20 61 73 73 65 on from the asse 5760: 6d 62 6c 79 20 62 65 63 61 75 73 65 0d 0a 20 20 mbly because.. 5770: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 73 65 # se 5780: 76 65 72 61 6c 20 74 65 73 74 73 20 72 65 6c 79 veral tests rely 5790: 20 6f 6e 20 69 74 20 68 61 76 69 6e 67 20 61 20 on it having a 57a0: 63 65 72 74 61 69 6e 20 76 61 6c 75 65 2e 0d 0a certain value... 57b0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #.. 57c0: 20 20 20 61 64 64 43 6f 6e 73 74 72 61 69 6e 74 addConstraint 57d0: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5b 66 69 [appendArgs [fi 57e0: 6c 65 20 74 61 69 6c 20 24 66 69 6c 65 4e 61 6d le tail$fileNam
57f0: 65 5d 20 5f 20 5c 0d 0a 20 20 20 20 20 20 20 20  e] _ \..
5800: 20 20 20 20 5b 24 61 73 73 65 6d 62 6c 79 20 49      [$assembly I 5810: 6d 61 67 65 52 75 6e 74 69 6d 65 56 65 72 73 69 mageRuntimeVersi 5820: 6f 6e 5d 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 on]].... 5830: 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT 5840: 45 3a 20 52 65 74 75 72 6e 20 74 68 65 20 66 75 E: Return the fu 5850: 6c 6c 20 70 61 74 68 20 6f 66 20 74 68 65 20 6c ll path of the l 5860: 6f 61 64 65 64 20 66 69 6c 65 2e 0d 0a 20 20 20 oaded file... 5870: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #.. 5880: 72 65 74 75 72 6e 20 24 66 69 6c 65 4e 61 6d 65 return$fileName
5890: 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20  ..      }....
58a0: 20 20 20 72 65 74 75 72 6e 20 22 22 0d 0a 20 20     return ""..
58b0: 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63    }.....    proc
58c0: 20 69 73 53 51 4c 69 74 65 52 65 61 64 79 20 7b   isSQLiteReady {
58d0: 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  } {..      #..
58e0: 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 69 73      # NOTE: This
58f0: 20 70 72 6f 63 65 64 75 72 65 20 6d 75 73 74 20   procedure must
5900: 72 65 74 75 72 6e 20 6e 6f 6e 2d 7a 65 72 6f 20  return non-zero
5910: 6f 6e 6c 79 20 69 66 20 74 68 65 20 53 51 4c 69  only if the SQLi
5920: 74 65 20 6e 61 74 69 76 65 0d 0a 20 20 20 20 20  te native..
5930: 20 23 20 20 20 20 20 20 20 6c 69 62 72 61 72 79   #       library
5940: 20 61 6e 64 20 74 68 65 20 53 79 73 74 65 6d 2e   and the System.
5950: 44 61 74 61 2e 53 51 4c 69 74 65 20 6d 61 6e 61  Data.SQLite mana
5960: 67 65 64 20 61 73 73 65 6d 62 6c 79 20 61 72 65  ged assembly are
5970: 20 6c 6f 61 64 65 64 0d 0a 20 20 20 20 20 20 23   loaded..      #
5980: 20 20 20 20 20 20 20 61 6e 64 20 72 65 61 64 79         and ready
5990: 20 66 6f 72 20 75 73 65 20 62 79 20 74 68 65 20   for use by the
59a0: 74 65 73 74 20 73 75 69 74 65 2e 20 20 43 75 72  test suite.  Cur
59b0: 72 65 6e 74 6c 79 2c 20 74 68 69 73 20 70 72 6f  rently, this pro
59c0: 63 65 64 75 72 65 0d 0a 20 20 20 20 20 20 23 20  cedure..      #
59d0: 20 20 20 20 20 20 73 68 6f 75 6c 64 20 62 65 20        should be
59e0: 63 61 6c 6c 65 64 20 6f 6e 6c 79 20 61 66 74 65  called only afte
59f0: 72 20 74 68 65 20 5b 74 72 79 4c 6f 61 64 41 73  r the [tryLoadAs
5a00: 73 65 6d 62 6c 79 5d 20 70 72 6f 63 65 64 75 72  sembly] procedur
5a10: 65 20 68 61 73 0d 0a 20 20 20 20 20 20 23 20 20  e has..      #
5a20: 20 20 20 20 20 62 65 65 6e 20 63 61 6c 6c 65 64       been called
5a30: 20 74 6f 20 70 72 6f 62 65 20 66 6f 72 20 74 68   to probe for th
5a40: 65 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51  e System.Data.SQ
5a50: 4c 69 74 65 20 6d 61 6e 61 67 65 64 20 61 73 73  Lite managed ass
5a60: 65 6d 62 6c 79 0d 0a 20 20 20 20 20 20 23 20 20  embly..      #
5a70: 20 20 20 20 20 61 6e 64 20 74 68 65 20 5b 63 68       and the [ch
5a80: 65 63 6b 46 6f 72 53 51 4c 69 74 65 5d 20 70 72  eckForSQLite] pr
5a90: 6f 63 65 64 75 72 65 20 68 61 73 20 62 65 65 6e  ocedure has been
5aa0: 20 63 61 6c 6c 65 64 20 74 6f 20 70 72 6f 62 65   called to probe
5ab0: 20 66 6f 72 0d 0a 20 20 20 20 20 20 23 20 20 20   for..      #
5ac0: 20 20 20 20 74 68 65 20 53 51 4c 69 74 65 20 6e      the SQLite n
5ad0: 61 74 69 76 65 20 6c 69 62 72 61 72 79 3b 20 6f  ative library; o
5ae0: 74 68 65 72 77 69 73 65 2c 20 74 68 69 73 20 70  therwise, this p
5af0: 72 6f 63 65 64 75 72 65 20 77 69 6c 6c 20 73 69  rocedure will si
5b00: 6d 70 6c 79 0d 0a 20 20 20 20 20 20 23 20 20 20  mply..      #
5b10: 20 20 20 20 61 6c 77 61 79 73 20 72 65 74 75 72      always retur
5b20: 6e 20 7a 65 72 6f 2e 0d 0a 20 20 20 20 20 20 23  n zero...      #
5b30: 0d 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 5b  ..      return [
5b40: 65 78 70 72 20 7b 5b 68 61 76 65 43 6f 6e 73 74  expr {[haveConst
5b50: 72 61 69 6e 74 20 53 79 73 74 65 6d 2e 44 61 74  raint System.Dat
5b60: 61 2e 53 51 4c 69 74 65 5d 20 26 26 20 5c 0d 0a  a.SQLite] && \..
5b70: 20 20 20 20 20 20 20 20 20 20 5b 68 61 76 65 43            [haveC
5b80: 6f 6e 73 74 72 61 69 6e 74 20 53 51 4c 69 74 65  onstraint SQLite
5b90: 5d 7d 5d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20  ]}]..    }.....
5ba0: 20 20 20 70 72 6f 63 20 63 68 65 63 6b 46 6f 72     proc checkFor
5bb0: 53 51 4c 69 74 65 20 7b 20 63 68 61 6e 6e 65 6c  SQLite { channel
5bc0: 20 7d 20 7b 0d 0a 20 20 20 20 20 20 74 70 75 74   } {..      tput
5bd0: 73 20 24 63 68 61 6e 6e 65 6c 20 22 2d 2d 2d 2d  s $channel "---- 5be0: 20 63 68 65 63 6b 69 6e 67 20 66 6f 72 20 63 6f checking for co 5bf0: 72 65 20 53 51 4c 69 74 65 20 6c 69 62 72 61 72 re SQLite librar 5c00: 79 2e 2e 2e 20 22 0d 0a 0d 0a 20 20 20 20 20 20 y... ".... 5c10: 69 66 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 20 if {[catch {.. 5c20: 20 20 20 20 20 20 20 20 20 20 20 20 6f 62 6a 65 obje 5c30: 63 74 20 69 6e 76 6f 6b 65 20 2d 66 6c 61 67 73 ct invoke -flags 5c40: 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 53 79 73 74 +NonPublic Syst 5c50: 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 53 em.Data.SQLite.S 5c60: 51 4c 69 74 65 33 20 5c 0d 0a 20 20 20 20 20 20 QLite3 \.. 5c70: 20 20 20 20 20 20 20 20 53 51 4c 69 74 65 56 65 SQLiteVe 5c80: 72 73 69 6f 6e 7d 20 76 65 72 73 69 6f 6e 5d 20 rsion} version] 5c90: 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 == 0} then {.. 5ca0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #.. 5cb0: 20 23 20 4e 4f 54 45 3a 20 41 74 74 65 6d 70 74 # NOTE: Attempt 5cc0: 20 74 6f 20 71 75 65 72 79 20 74 68 65 20 46 6f to query the Fo 5cd0: 73 73 69 6c 20 73 6f 75 72 63 65 20 69 64 65 6e ssil source iden 5ce0: 74 69 66 69 65 72 20 66 6f 72 20 74 68 65 20 53 tifier for the S 5cf0: 51 4c 69 74 65 0d 0a 20 20 20 20 20 20 20 20 23 QLite.. # 5d00: 20 20 20 20 20 20 20 63 6f 72 65 20 6c 69 62 72 core libr 5d10: 61 72 79 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d ary... #. 5d20: 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b 63 61 . if {[ca 5d30: 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 tch {.. 5d40: 20 20 20 20 20 20 20 6f 62 6a 65 63 74 20 69 6e object in 5d50: 76 6f 6b 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e voke -flags +Non 5d60: 50 75 62 6c 69 63 20 53 79 73 74 65 6d 2e 44 61 Public System.Da 5d70: 74 61 2e 53 51 4c 69 74 65 2e 53 51 4c 69 74 65 ta.SQLite.SQLite 5d80: 33 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 3 \.. 5d90: 20 20 20 20 20 53 51 4c 69 74 65 53 6f 75 72 63 SQLiteSourc 5da0: 65 49 64 7d 20 73 6f 75 72 63 65 49 64 5d 7d 20 eId} sourceId]} 5db0: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 then {.. 5dc0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23 #.. # 5dd0: 20 4e 4f 54 45 3a 20 57 65 20 66 61 69 6c 65 64 NOTE: We failed 5de0: 20 74 6f 20 71 75 65 72 79 20 74 68 65 20 46 6f to query the Fo 5df0: 73 73 69 6c 20 73 6f 75 72 63 65 20 69 64 65 6e ssil source iden 5e00: 74 69 66 69 65 72 2e 0d 0a 20 20 20 20 20 20 20 tifier... 5e10: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 #.. 5e20: 73 65 74 20 73 6f 75 72 63 65 49 64 20 75 6e 6b set sourceId unk 5e30: 6e 6f 77 6e 0d 0a 20 20 20 20 20 20 20 20 7d 0d nown.. }. 5e40: 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 ... #.. 5e50: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 59 65 # NOTE: Ye 5e60: 73 2c 20 74 68 65 20 53 51 4c 69 74 65 20 63 6f s, the SQLite co 5e70: 72 65 20 6c 69 62 72 61 72 79 20 61 70 70 65 61 re library appea 5e80: 72 73 20 74 6f 20 62 65 20 61 76 61 69 6c 61 62 rs to be availab 5e90: 6c 65 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a le... #.. 5ea0: 20 20 20 20 20 20 20 20 61 64 64 43 6f 6e 73 74 addConst 5eb0: 72 61 69 6e 74 20 53 51 4c 69 74 65 0d 0a 0d 0a raint SQLite.... 5ec0: 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63 tputs$c
5ed0: 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72  hannel [appendAr
5ee0: 67 73 20 22 79 65 73 20 28 22 20 24 76 65 72 73  gs "yes (" $vers 5ef0: 69 6f 6e 20 22 20 22 20 24 73 6f 75 72 63 65 49 ion " "$sourceI
5f00: 64 20 22 29 5c 6e 22 5d 0d 0a 20 20 20 20 20 20  d ")\n"]..
5f10: 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20  } else {..
5f20: 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c    tputs $channel 5f30: 20 6e 6f 5c 6e 0d 0a 20 20 20 20 20 20 7d 0d 0a no\n.. }.. 5f40: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 }..... pr 5f50: 6f 63 20 63 68 65 63 6b 46 6f 72 53 51 4c 69 74 oc checkForSQLit 5f60: 65 44 65 66 69 6e 65 43 6f 6e 73 74 61 6e 74 20 eDefineConstant 5f70: 7b 20 63 68 61 6e 6e 65 6c 20 6e 61 6d 65 20 7d { channel name } 5f80: 20 7b 0d 0a 20 20 20 20 20 20 74 70 75 74 73 20 {.. tputs 5f90: 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64$channel [append
5fa0: 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20  Args \..
5fb0: 20 20 22 2d 2d 2d 2d 20 63 68 65 63 6b 69 6e 67    "---- checking
5fc0: 20 66 6f 72 20 53 79 73 74 65 6d 2e 44 61 74 61   for System.Data
5fd0: 2e 53 51 4c 69 74 65 20 64 65 66 69 6e 65 20 63  .SQLite define c
5fe0: 6f 6e 73 74 61 6e 74 20 5c 22 22 20 24 6e 61 6d  onstant \"" $nam 5ff0: 65 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 22 e \.. " 6000: 5c 22 2e 2e 2e 20 22 5d 0d 0a 0d 0a 20 20 20 20 \"... "].... 6010: 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 0d 0a if {[catch {.. 6020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 62 ob 6030: 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d 66 6c 61 ject invoke -fla 6040: 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 53 79 gs +NonPublic Sy 6050: 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 stem.Data.SQLite 6060: 2e 53 51 4c 69 74 65 33 20 5c 0d 0a 20 20 20 20 .SQLite3 \.. 6070: 20 20 20 20 20 20 20 20 20 20 44 65 66 69 6e 65 Define 6080: 43 6f 6e 73 74 61 6e 74 73 7d 20 64 65 66 69 6e Constants} defin 6090: 65 43 6f 6e 73 74 61 6e 74 73 5d 20 3d 3d 20 30 eConstants] == 0 60a0: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {.. 60b0: 20 20 69 66 20 7b 5b 6c 73 65 61 72 63 68 20 2d if {[lsearch - 60c0: 65 78 61 63 74 20 2d 6e 6f 63 61 73 65 20 24 64 exact -nocase$d
60d0: 65 66 69 6e 65 43 6f 6e 73 74 61 6e 74 73 20 24  efineConstants $60e0: 6e 61 6d 65 5d 20 21 3d 20 2d 31 7d 20 74 68 65 name] != -1} the 60f0: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23 n {.. # 6100: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f .. # NO 6110: 54 45 3a 20 59 65 73 2c 20 74 68 69 73 20 64 65 TE: Yes, this de 6120: 66 69 6e 65 20 63 6f 6e 73 74 61 6e 74 20 77 61 fine constant wa 6130: 73 20 65 6e 61 62 6c 65 64 20 77 68 65 6e 20 74 s enabled when t 6140: 68 65 20 6d 61 6e 61 67 65 64 0d 0a 20 20 20 20 he managed.. 6150: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 61 73 # as 6160: 73 65 6d 62 6c 79 20 77 61 73 20 63 6f 6d 70 69 sembly was compi 6170: 6c 65 64 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 led... 6180: 23 0d 0a 20 20 20 20 20 20 20 20 20 20 61 64 64 #.. add 6190: 43 6f 6e 73 74 72 61 69 6e 74 20 5b 61 70 70 65 Constraint [appe 61a0: 6e 64 41 72 67 73 20 64 65 66 69 6e 65 43 6f 6e ndArgs defineCon 61b0: 73 74 61 6e 74 2e 53 79 73 74 65 6d 2e 44 61 74 stant.System.Dat 61c0: 61 2e 53 51 4c 69 74 65 2e 20 24 6e 61 6d 65 5d a.SQLite.$name]
61d0: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70  ....          tp
61e0: 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 79 65 73  uts $channel yes 61f0: 5c 6e 0d 0a 20 20 20 20 20 20 20 20 7d 20 65 6c \n.. } el 6200: 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 se {.. 6210: 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 6e tputs$channel n
6220: 6f 5c 6e 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a  o\n..        }..
6230: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a        } else {..
6240: 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63          tputs $c 6250: 68 61 6e 6e 65 6c 20 65 72 72 6f 72 5c 6e 0d 0a hannel error\n.. 6260: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a }.. }.. 6270: 0c 0d 0a 20 20 20 20 70 72 6f 63 20 67 65 74 44 ... proc getD 6280: 61 74 65 54 69 6d 65 46 6f 72 6d 61 74 20 7b 7d ateTimeFormat {} 6290: 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 {.. #.. 62a0: 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 69 73 20 # NOTE: This 62b0: 70 72 6f 63 65 64 75 72 65 20 73 69 6d 70 6c 79 procedure simply 62c0: 20 72 65 74 75 72 6e 73 20 74 68 65 20 22 64 65 returns the "de 62d0: 66 61 75 6c 74 22 20 44 61 74 65 54 69 6d 65 20 fault" DateTime 62e0: 66 6f 72 6d 61 74 20 75 73 65 64 0d 0a 20 20 20 format used.. 62f0: 20 20 20 23 20 20 20 20 20 20 20 62 79 20 74 68 # by th 6300: 65 20 74 65 73 74 20 73 75 69 74 65 2e 0d 0a 20 e test suite... 6310: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 #.. if 6320: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a {[info exists : 6330: 3a 64 61 74 65 74 69 6d 65 5f 66 6f 72 6d 61 74 :datetime_format 6340: 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 ] && \.. 6350: 20 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 [string length 6360: 20 24 3a 3a 64 61 74 65 74 69 6d 65 5f 66 6f 72$::datetime_for
6370: 6d 61 74 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b  mat] > 0} then {
6380: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20  ..        #..
6390: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 52 65 74       # NOTE: Ret
63a0: 75 72 6e 20 74 68 65 20 6d 61 6e 75 61 6c 6c 79  urn the manually
63b0: 20 6f 76 65 72 72 69 64 64 65 6e 20 76 61 6c 75   overridden valu
63c0: 65 20 66 6f 72 20 74 68 65 20 44 61 74 65 54 69  e for the DateTi
63d0: 6d 65 20 66 6f 72 6d 61 74 2e 0d 0a 20 20 20 20  me format...
63e0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 72      #..        r
63f0: 65 74 75 72 6e 20 24 3a 3a 64 61 74 65 74 69 6d  eturn $::datetim 6400: 65 5f 66 6f 72 6d 61 74 0d 0a 20 20 20 20 20 20 e_format.. 6410: 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 } else {.. 6420: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e #.. # N 6430: 4f 54 45 3a 20 52 65 74 75 72 6e 20 61 6e 20 49 OTE: Return an I 6440: 53 4f 38 36 30 31 20 44 61 74 65 54 69 6d 65 20 SO8601 DateTime 6450: 66 6f 72 6d 61 74 20 63 6f 6d 70 61 74 69 62 6c format compatibl 6460: 65 20 77 69 74 68 20 53 51 4c 69 74 65 2c 0d 0a e with SQLite,.. 6470: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 # 6480: 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 System.Data.SQLi 6490: 74 65 2c 20 61 6e 64 20 73 75 69 74 61 62 6c 65 te, and suitable 64a0: 20 66 6f 72 20 72 6f 75 6e 64 2d 74 72 69 70 70 for round-tripp 64b0: 69 6e 67 20 77 69 74 68 20 74 68 65 0d 0a 20 20 ing with the.. 64c0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 44 61 # Da 64d0: 74 65 54 69 6d 65 20 63 6c 61 73 73 20 6f 66 20 teTime class of 64e0: 74 68 65 20 66 72 61 6d 65 77 6f 72 6b 2e 20 20 the framework. 64f0: 49 66 20 74 68 69 73 20 76 61 6c 75 65 20 69 73 If this value is 6500: 20 63 68 61 6e 67 65 64 2c 0d 0a 20 20 20 20 20 changed,.. 6510: 20 20 20 23 20 20 20 20 20 20 20 76 61 72 69 6f # vario 6520: 75 73 20 74 65 73 74 73 20 6d 61 79 20 66 61 69 us tests may fai 6530: 6c 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 l... #.. 6540: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 22 79 return "y 6550: 79 79 79 2d 4d 4d 2d 64 64 20 48 48 3a 6d 6d 3a yyy-MM-dd HH:mm: 6560: 73 73 2e 46 46 46 46 46 46 46 4b 22 0d 0a 20 20 ss.FFFFFFFK".. 6570: 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d }.. }.... 6580: 0a 20 20 20 20 70 72 6f 63 20 65 6e 75 6d 65 72 . proc enumer 6590: 61 62 6c 65 54 6f 4c 69 73 74 20 7b 20 65 6e 75 ableToList { enu 65a0: 6d 65 72 61 62 6c 65 20 7d 20 7b 0d 0a 20 20 20 merable } {.. 65b0: 20 20 20 73 65 74 20 72 65 73 75 6c 74 20 5b 6c set result [l 65c0: 69 73 74 5d 0d 0a 0d 0a 20 20 20 20 20 20 69 66 ist].... if 65d0: 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 {[string length 65e0: 20 24 65 6e 75 6d 65 72 61 62 6c 65 5d 20 3d 3d$enumerable] ==
65f0: 20 30 20 7c 7c 20 24 65 6e 75 6d 65 72 61 62 6c   0 || $enumerabl 6600: 65 20 65 71 20 22 6e 75 6c 6c 22 7d 20 74 68 65 e eq "null"} the 6610: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 72 65 74 n {.. ret 6620: 75 72 6e 20 24 72 65 73 75 6c 74 0d 0a 20 20 20 urn$result..
6630: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 6f 62     }....      ob
6640: 6a 65 63 74 20 66 6f 72 65 61 63 68 20 2d 61 6c  ject foreach -al
6650: 69 61 73 20 69 74 65 6d 20 24 65 6e 75 6d 65 72  ias item $enumer 6660: 61 62 6c 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 able {.. 6670: 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 if {[string leng 6680: 74 68 20 24 69 74 65 6d 5d 20 3e 20 30 7d 20 74 th$item] > 0} t
6690: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  hen {..
66a0: 20 6c 61 70 70 65 6e 64 20 72 65 73 75 6c 74 20   lappend result
66b0: 5b 24 69 74 65 6d 20 54 6f 53 74 72 69 6e 67 5d  [$item ToString] 66c0: 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 .. }.. 66d0: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 72 65 }.... re 66e0: 74 75 72 6e 20 24 72 65 73 75 6c 74 0d 0a 20 20 turn$result..
66f0: 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63    }.....    proc
6700: 20 63 61 74 63 68 41 6e 64 52 65 74 75 72 6e 20   catchAndReturn
6710: 7b 20 73 63 72 69 70 74 20 7b 73 74 61 63 6b 54  { script {stackT
6720: 72 61 63 65 20 66 61 6c 73 65 7d 20 7b 73 74 72  race false} {str
6730: 69 63 74 20 74 72 75 65 7d 20 7d 20 7b 0d 0a 20  ict true} } {..
6740: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20       #..      #
6750: 4e 4f 54 45 3a 20 45 76 61 6c 75 61 74 65 20 74  NOTE: Evaluate t
6760: 68 65 20 73 63 72 69 70 74 20 70 72 6f 76 69 64  he script provid
6770: 65 64 20 62 79 20 6f 75 72 20 63 61 6c 6c 65 72  ed by our caller
6780: 20 69 6e 20 74 68 65 69 72 20 63 6f 6e 74 65 78   in their contex
6790: 74 2c 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20  t,..      #
67a0: 20 20 63 61 70 74 75 72 69 6e 67 20 62 6f 74 68    capturing both
67b0: 20 74 68 65 20 72 65 73 75 6c 74 20 61 6e 64 20   the result and
67c0: 74 68 65 20 72 65 74 75 72 6e 20 63 6f 64 65 2e  the return code.
67d0: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20  ..      #..
67e0: 20 73 65 74 20 63 6f 64 65 20 5b 63 61 74 63 68   set code [catch
67f0: 20 7b 75 70 6c 65 76 65 6c 20 31 20 24 73 63 72   {uplevel 1 $scr 6800: 69 70 74 7d 20 72 65 73 75 6c 74 5d 0d 0a 0d 0a ipt} result].... 6810: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 #.. # 6820: 20 4e 4f 54 45 3a 20 44 69 64 20 74 68 65 20 73 NOTE: Did the s 6830: 63 72 69 70 74 20 70 72 6f 76 69 64 65 64 20 62 cript provided b 6840: 79 20 6f 75 72 20 63 61 6c 6c 65 72 20 4e 4f 54 y our caller NOT 6850: 20 72 61 69 73 65 20 61 6e 20 65 72 72 6f 72 3f raise an error? 6860: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #.. 6870: 20 69 66 20 7b 24 73 74 72 69 63 74 20 26 26 20 if {$strict &&
6880: 24 63 6f 64 65 20 3d 3d 20 30 20 7c 7c 20 21 24  $code == 0 || !$
6890: 73 74 72 69 63 74 20 26 26 20 24 63 6f 64 65 20  strict && $code 68a0: 21 3d 20 31 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 != 1} then {.. 68b0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #.. 68c0: 20 23 20 4e 4f 54 45 3a 20 53 75 63 63 65 73 73 # NOTE: Success 68d0: 2e 20 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 . Return a list 68e0: 20 77 69 74 68 20 74 68 65 20 72 65 74 75 72 6e with the return 68f0: 20 63 6f 64 65 20 61 6e 64 20 74 68 65 20 72 65 code and the re 6900: 73 75 6c 74 2e 0d 0a 20 20 20 20 20 20 20 20 23 sult... # 6910: 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e .. return 6920: 20 5b 6c 69 73 74 20 24 63 6f 64 65 20 24 72 65 [list$code $re 6930: 73 75 6c 74 5d 0d 0a 20 20 20 20 20 20 7d 20 65 sult].. } e 6940: 6c 73 65 69 66 20 7b 24 73 74 61 63 6b 54 72 61 lseif {$stackTra
6950: 63 65 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20  ce} then {..
6960: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23      #..        #
6970: 20 4e 4f 54 45 3a 20 46 61 69 6c 75 72 65 2e 20   NOTE: Failure.
6980: 20 4f 75 72 20 63 61 6c 6c 65 72 20 77 61 6e 74   Our caller want
6990: 73 20 61 20 66 75 6c 6c 20 73 74 61 63 6b 20 74  s a full stack t
69a0: 72 61 63 65 20 28 69 66 20 61 70 70 6c 69 63 61  race (if applica
69b0: 62 6c 65 29 2c 0d 0a 20 20 20 20 20 20 20 20 23  ble),..        #
69c0: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 61 20         return a
69d0: 6c 69 73 74 20 77 69 74 68 20 74 68 65 20 72 65  list with the re
69e0: 74 75 72 6e 20 63 6f 64 65 20 61 6e 64 20 74 68  turn code and th
69f0: 65 20 72 65 73 75 6c 74 20 76 65 72 62 61 74 69  e result verbati
6a00: 6d 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20  m...        #..
6a10: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 5b 6c         return [l
6a20: 69 73 74 20 24 63 6f 64 65 20 24 72 65 73 75 6c  ist $code$resul
6a30: 74 5d 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65  t]..      } else
6a40: 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20   {..        #..
6a50: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 46         # NOTE: F
6a60: 61 69 6c 75 72 65 2e 20 20 4f 75 72 20 63 61 6c  ailure.  Our cal
6a70: 6c 65 72 20 64 6f 65 73 20 6e 6f 74 20 77 61 6e  ler does not wan
6a80: 74 20 61 20 66 75 6c 6c 20 73 74 61 63 6b 20 74  t a full stack t
6a90: 72 61 63 65 20 28 69 66 0d 0a 20 20 20 20 20 20  race (if..
6aa0: 20 20 23 20 20 20 20 20 20 20 61 70 70 6c 69 63    #       applic
6ab0: 61 62 6c 65 29 2c 20 72 65 74 75 72 6e 20 61 20  able), return a
6ac0: 6c 69 73 74 20 77 69 74 68 20 74 68 65 20 72 65  list with the re
6ad0: 74 75 72 6e 20 63 6f 64 65 2c 20 74 68 65 20 65  turn code, the e
6ae0: 72 72 6f 72 0d 0a 20 20 20 20 20 20 20 20 23 20  rror..        #
6af0: 20 20 20 20 20 20 63 6f 64 65 20 66 6f 72 20 74        code for t
6b00: 68 65 20 69 6e 74 65 72 70 72 65 74 65 72 2c 20  he interpreter,
6b10: 61 6e 64 20 74 68 65 20 65 72 72 6f 72 20 6d 65  and the error me
6b20: 73 73 61 67 65 20 75 70 20 74 6f 20 74 68 65 0d  ssage up to the.
6b30: 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20  .        #
6b40: 20 70 6f 69 6e 74 20 77 68 65 72 65 20 74 68 65   point where the
6b50: 20 73 74 61 63 6b 20 74 72 61 63 65 20 73 68 6f   stack trace sho
6b60: 75 6c 64 20 73 74 61 72 74 2e 0d 0a 20 20 20 20  uld start...
6b70: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 73      #..        s
6b80: 65 74 20 69 6e 64 65 78 20 5b 73 74 72 69 6e 67  et index [string
6b90: 20 66 69 72 73 74 20 22 20 20 20 61 74 20 22 20   first "   at "
6ba0: 24 72 65 73 75 6c 74 5d 3b 20 23 20 48 41 43 4b  $result]; # HACK 6bb0: 3a 20 52 65 6c 69 61 62 6c 65 3f 0d 0a 0d 0a 20 : Reliable?.... 6bc0: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 5b 6c return [l 6bd0: 69 73 74 20 24 63 6f 64 65 20 24 3a 3a 65 72 72 ist$code $::err 6be0: 6f 72 43 6f 64 65 20 5b 65 78 70 72 20 7b 24 69 orCode [expr {$i
6bf0: 6e 64 65 78 20 21 3d 20 2d 31 20 3f 20 5c 0d 0a  ndex != -1 ? \..
6c00: 20 20 20 20 20 20 20 20 20 20 20 20 5b 73 74 72              [str
6c10: 69 6e 67 20 74 72 69 6d 20 5b 73 74 72 69 6e 67  ing trim [string
6c20: 20 72 61 6e 67 65 20 24 72 65 73 75 6c 74 20 30   range $result 0 6c30: 20 24 69 6e 64 65 78 5d 5d 20 3a 20 24 72 65 73$index]] : $res 6c40: 75 6c 74 7d 5d 5d 0d 0a 20 20 20 20 20 20 7d 0d ult}]].. }. 6c50: 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 . }..... p 6c60: 72 6f 63 20 63 6f 6d 70 69 6c 65 43 53 68 61 72 roc compileCShar 6c70: 70 57 69 74 68 20 7b 0d 0a 20 20 20 20 20 20 20 pWith {.. 6c80: 20 20 20 20 20 74 65 78 74 20 6d 65 6d 6f 72 79 text memory 6c90: 20 73 79 6d 62 6f 6c 73 20 73 74 72 69 63 74 20 symbols strict 6ca0: 72 65 73 75 6c 74 73 56 61 72 4e 61 6d 65 20 65 resultsVarName e 6cb0: 72 72 6f 72 73 56 61 72 4e 61 6d 65 20 66 69 6c rrorsVarName fil 6cc0: 65 4e 61 6d 65 73 0d 0a 20 20 20 20 20 20 20 20 eNames.. 6cd0: 20 20 20 20 61 72 67 73 20 7d 20 7b 0d 0a 20 20 args } {.. 6ce0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e #.. # N 6cf0: 4f 54 45 3a 20 53 69 6e 63 65 20 77 65 20 61 72 OTE: Since we ar 6d00: 65 20 67 6f 69 6e 67 20 74 6f 20 75 73 65 20 74 e going to use t 6d10: 68 69 73 20 6d 65 74 68 6f 64 20 6e 61 6d 65 20 his method name 6d20: 61 20 6c 6f 74 2c 20 61 73 73 69 67 6e 20 69 74 a lot, assign it 6d30: 20 74 6f 20 61 0d 0a 20 20 20 20 20 20 23 20 20 to a.. # 6d40: 20 20 20 20 20 76 61 72 69 61 62 6c 65 20 66 69 variable fi 6d50: 72 73 74 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 rst... #.. 6d60: 20 20 20 20 20 73 65 74 20 61 64 64 20 52 65 66 set add Ref 6d70: 65 72 65 6e 63 65 64 41 73 73 65 6d 62 6c 69 65 erencedAssemblie 6d80: 73 2e 41 64 64 0d 0a 0d 0a 20 20 20 20 20 20 23 s.Add.... # 6d90: 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 .. # NOTE: 6da0: 43 72 65 61 74 65 20 74 68 65 20 62 61 73 65 20 Create the base 6db0: 63 6f 6d 6d 61 6e 64 20 74 6f 20 65 76 61 6c 75 command to evalu 6dc0: 61 74 65 20 61 6e 64 20 61 64 64 20 74 68 65 20 ate and add the 6dd0: 70 72 6f 70 65 72 74 79 20 73 65 74 74 69 6e 67 property setting 6de0: 73 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 s.. # 6df0: 20 74 68 61 74 20 61 72 65 20 61 6c 6d 6f 73 74 that are almost 6e00: 20 61 6c 77 61 79 73 20 6e 65 65 64 65 64 20 62 always needed b 6e10: 79 20 6f 75 72 20 75 6e 69 74 20 74 65 73 74 73 y our unit tests 6e20: 20 28 69 2e 65 2e 20 74 68 65 20 53 79 73 74 65 (i.e. the Syste 6e30: 6d 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 m.. # 6e40: 20 61 6e 64 20 53 79 73 74 65 6d 2e 44 61 74 61 and System.Data 6e50: 20 61 73 73 65 6d 62 6c 79 20 72 65 66 65 72 65 assembly refere 6e60: 6e 63 65 73 29 2e 0d 0a 20 20 20 20 20 20 23 0d nces)... #. 6e70: 0a 20 20 20 20 20 20 73 65 74 20 63 6f 6d 6d 61 . set comma 6e80: 6e 64 20 5b 6c 69 73 74 20 63 6f 6d 70 69 6c 65 nd [list compile 6e90: 43 53 68 61 72 70 20 24 74 65 78 74 20 24 6d 65 CSharp$text $me 6ea0: 6d 6f 72 79 20 24 73 79 6d 62 6f 6c 73 20 24 73 mory$symbols $s 6eb0: 74 72 69 63 74 20 72 65 73 75 6c 74 73 20 5c 0d trict results \. 6ec0: 0a 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 . error 6ed0: 73 20 24 61 64 64 20 53 79 73 74 65 6d 2e 64 6c s$add System.dl
6ee0: 6c 20 24 61 64 64 20 53 79 73 74 65 6d 2e 44 61  l $add System.Da 6ef0: 74 61 2e 64 6c 6c 20 24 61 64 64 20 53 79 73 74 ta.dll$add Syst
6f00: 65 6d 2e 58 6d 6c 2e 64 6c 6c 5d 0d 0a 0d 0a 20  em.Xml.dll]....
6f10: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20       #..      #
6f20: 4e 4f 54 45 3a 20 41 64 64 20 61 6c 6c 20 74 68  NOTE: Add all th
6f30: 65 20 70 72 6f 76 69 64 65 64 20 66 69 6c 65 20  e provided file
6f40: 6e 61 6d 65 73 20 61 73 20 61 73 73 65 6d 62 6c  names as assembl
6f50: 79 20 72 65 66 65 72 65 6e 63 65 73 2e 0d 0a 20  y references...
6f60: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 66 6f       #..      fo
6f70: 72 65 61 63 68 20 66 69 6c 65 4e 61 6d 65 20 24  reach fileName $6f80: 66 69 6c 65 4e 61 6d 65 73 20 7b 0d 0a 20 20 20 fileNames {.. 6f90: 20 20 20 20 20 6c 61 70 70 65 6e 64 20 63 6f 6d lappend com 6fa0: 6d 61 6e 64 20 24 61 64 64 20 5b 67 65 74 42 69 mand$add [getBi
6fb0: 6e 61 72 79 46 69 6c 65 4e 61 6d 65 20 24 66 69  naryFileName $fi 6fc0: 6c 65 4e 61 6d 65 5d 0d 0a 20 20 20 20 20 20 7d leName].. } 6fd0: 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 .... #.. 6fe0: 20 20 20 23 20 4e 4f 54 45 3a 20 41 64 64 20 74 # NOTE: Add t 6ff0: 68 65 20 65 78 74 72 61 20 61 72 67 75 6d 65 6e he extra argumen 7000: 74 73 2c 20 69 66 20 61 6e 79 2c 20 74 6f 20 74 ts, if any, to t 7010: 68 65 20 63 6f 6d 6d 61 6e 64 20 74 6f 20 65 76 he command to ev 7020: 61 6c 75 61 74 65 2e 0d 0a 20 20 20 20 20 20 23 aluate... # 7030: 0d 0a 20 20 20 20 20 20 65 76 61 6c 20 6c 61 70 .. eval lap 7040: 70 65 6e 64 20 63 6f 6d 6d 61 6e 64 20 24 61 72 pend command$ar
7050: 67 73 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20  gs....      #..
7060: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 41 6c 69       # NOTE: Ali
7070: 61 73 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 20  as the compiler
7080: 6c 6f 63 61 6c 20 72 65 73 75 6c 74 73 20 61 6e  local results an
7090: 64 20 65 72 72 6f 72 73 20 76 61 72 69 61 62 6c  d errors variabl
70a0: 65 73 20 74 6f 20 74 68 65 0d 0a 20 20 20 20 20  es to the..
70b0: 20 23 20 20 20 20 20 20 20 76 61 72 69 61 62 6c   #       variabl
70c0: 65 20 6e 61 6d 65 73 20 70 72 6f 76 69 64 65 64  e names provided
70d0: 20 62 79 20 6f 75 72 20 63 61 6c 6c 65 72 2e 0d   by our caller..
70e0: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20  .      #..
70f0: 75 70 76 61 72 20 31 20 24 72 65 73 75 6c 74 73  upvar 1 $results 7100: 56 61 72 4e 61 6d 65 20 72 65 73 75 6c 74 73 0d VarName results. 7110: 0a 20 20 20 20 20 20 75 70 76 61 72 20 31 20 24 . upvar 1$
7120: 65 72 72 6f 72 73 56 61 72 4e 61 6d 65 20 65 72  errorsVarName er
7130: 72 6f 72 73 0d 0a 0d 0a 20 20 20 20 20 20 23 0d  rors....      #.
7140: 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 45  .      # NOTE: E
7150: 76 61 6c 75 61 74 65 20 74 68 65 20 63 6f 6e 73  valuate the cons
7160: 74 72 75 63 74 65 64 20 5b 63 6f 6d 70 69 6c 65  tructed [compile
7170: 43 53 68 61 72 70 5d 20 63 6f 6d 6d 61 6e 64 20  CSharp] command
7180: 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 0d 0a  and return the..
7190: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 72 65        #       re
71a0: 73 75 6c 74 2e 0d 0a 20 20 20 20 20 20 23 0d 0a  sult...      #..
71b0: 20 20 20 20 20 20 65 76 61 6c 20 24 63 6f 6d 6d        eval $comm 71c0: 61 6e 64 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 and.. }..... 71d0: 20 20 20 70 72 6f 63 20 69 73 4d 65 6d 6f 72 79 proc isMemory 71e0: 44 62 20 7b 20 66 69 6c 65 4e 61 6d 65 20 7d 20 Db { fileName } 71f0: 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 {.. #.. 7200: 20 20 23 20 4e 4f 54 45 3a 20 49 73 20 74 68 65 # NOTE: Is the 7210: 20 73 70 65 63 69 66 69 65 64 20 64 61 74 61 62 specified datab 7220: 61 73 65 20 66 69 6c 65 20 6e 61 6d 65 20 72 65 ase file name re 7230: 61 6c 6c 79 20 61 6e 20 69 6e 2d 6d 65 6d 6f 72 ally an in-memor 7240: 79 20 64 61 74 61 62 61 73 65 3f 0d 0a 20 20 20 y database?.. 7250: 20 20 20 23 0d 0a 20 20 20 20 20 20 72 65 74 75 #.. retu 7260: 72 6e 20 5b 65 78 70 72 20 7b 24 66 69 6c 65 4e rn [expr {$fileN
7270: 61 6d 65 20 65 71 20 22 3a 6d 65 6d 6f 72 79 3a  ame eq ":memory:
7280: 22 20 7c 7c 20 5c 0d 0a 20 20 20 20 20 20 20 20  " || \..
7290: 20 20 5b 73 74 72 69 6e 67 20 72 61 6e 67 65 20    [string range
72a0: 24 66 69 6c 65 4e 61 6d 65 20 30 20 31 32 5d 20  $fileName 0 12] 72b0: 65 71 20 22 66 69 6c 65 3a 3a 6d 65 6d 6f 72 79 eq "file::memory 72c0: 3a 22 7d 5d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a :"}].. }..... 72d0: 20 20 20 20 70 72 6f 63 20 65 78 65 63 75 74 65 proc execute 72e0: 53 71 6c 20 7b 20 73 71 6c 20 7b 65 78 65 63 75 Sql { sql {execu 72f0: 74 65 20 6e 6f 6e 65 7d 20 7b 66 69 6c 65 4e 61 te none} {fileNa 7300: 6d 65 20 22 22 7d 20 7d 20 7b 0d 0a 20 20 20 20 me ""} } {.. 7310: 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 if {[string le 7320: 6e 67 74 68 20 24 66 69 6c 65 4e 61 6d 65 5d 20 ngth$fileName]
7330: 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 73 65 74 20  == 0} then {set
7340: 66 69 6c 65 4e 61 6d 65 20 3a 6d 65 6d 6f 72 79  fileName :memory
7350: 3a 7d 0d 0a 20 20 20 20 20 20 73 65 74 75 70 44  :}..      setupD
7360: 62 20 24 66 69 6c 65 4e 61 6d 65 20 22 22 20 22  b $fileName "" " 7370: 22 20 22 22 20 22 22 20 22 22 20 66 61 6c 73 65 " "" "" "" false 7380: 20 66 61 6c 73 65 20 66 61 6c 73 65 20 66 61 6c false false fal 7390: 73 65 20 6d 65 6d 44 62 0d 0a 0d 0a 20 20 20 20 se memDb.... 73a0: 20 20 74 72 79 20 7b 0d 0a 20 20 20 20 20 20 20 try {.. 73b0: 20 72 65 74 75 72 6e 20 5b 73 71 6c 20 65 78 65 return [sql exe 73c0: 63 75 74 65 20 2d 65 78 65 63 75 74 65 20 24 65 cute -execute$e
73d0: 78 65 63 75 74 65 20 24 6d 65 6d 44 62 20 24 73  xecute $memDb$s
73e0: 71 6c 5d 0d 0a 20 20 20 20 20 20 7d 20 66 69 6e  ql]..      } fin
73f0: 61 6c 6c 79 20 7b 0d 0a 20 20 20 20 20 20 20 20  ally {..
7400: 63 6c 65 61 6e 75 70 44 62 20 24 66 69 6c 65 4e  cleanupDb $fileN 7410: 61 6d 65 20 6d 65 6d 44 62 20 66 61 6c 73 65 20 ame memDb false 7420: 66 61 6c 73 65 0d 0a 20 20 20 20 20 20 7d 0d 0a false.. }.. 7430: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 }..... pr 7440: 6f 63 20 73 65 74 75 70 44 62 20 7b 0d 0a 20 20 oc setupDb {.. 7450: 20 20 20 20 20 20 20 20 20 20 66 69 6c 65 4e 61 fileNa 7460: 6d 65 20 7b 6d 6f 64 65 20 22 22 7d 20 7b 64 61 me {mode ""} {da 7470: 74 65 54 69 6d 65 46 6f 72 6d 61 74 20 22 22 7d teTimeFormat ""} 7480: 20 7b 64 61 74 65 54 69 6d 65 4b 69 6e 64 20 22 {dateTimeKind " 7490: 22 7d 20 7b 66 6c 61 67 73 20 22 22 7d 0d 0a 20 "} {flags ""}.. 74a0: 20 20 20 20 20 20 20 20 20 20 20 7b 65 78 74 72 {extr 74b0: 61 20 22 22 7d 20 7b 71 75 61 6c 69 66 79 20 74 a ""} {qualify t 74c0: 72 75 65 7d 20 7b 64 65 6c 65 74 65 20 74 72 75 rue} {delete tru 74d0: 65 7d 20 7b 75 72 69 20 66 61 6c 73 65 7d 0d 0a e} {uri false}.. 74e0: 20 20 20 20 20 20 20 20 20 20 20 20 7b 74 65 6d {tem 74f0: 70 6f 72 61 72 79 20 74 72 75 65 7d 20 7b 76 61 porary true} {va 7500: 72 4e 61 6d 65 20 64 62 7d 20 7d 20 7b 0d 0a 20 rName db} } {.. 7510: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 #.. # 7520: 4e 4f 54 45 3a 20 46 69 72 73 74 2c 20 73 65 65 NOTE: First, see 7530: 20 69 66 20 6f 75 72 20 63 61 6c 6c 65 72 20 68 if our caller h 7540: 61 73 20 72 65 71 75 65 73 74 65 64 20 61 6e 20 as requested an 7550: 69 6e 2d 6d 65 6d 6f 72 79 20 64 61 74 61 62 61 in-memory databa 7560: 73 65 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 se... #.. 7570: 20 20 20 20 73 65 74 20 69 73 4d 65 6d 6f 72 79 set isMemory 7580: 20 5b 69 73 4d 65 6d 6f 72 79 44 62 20 24 66 69 [isMemoryDb$fi
7590: 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a 20 20 20 20 20  leName]....
75a0: 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45   #..      # NOTE
75b0: 3a 20 46 6f 72 20 6e 6f 77 2c 20 61 6c 6c 20 74  : For now, all t
75c0: 65 73 74 20 64 61 74 61 62 61 73 65 73 20 75 73  est databases us
75d0: 65 64 20 62 79 20 74 68 65 20 74 65 73 74 20 73  ed by the test s
75e0: 75 69 74 65 20 61 72 65 20 70 6c 61 63 65 64 20  uite are placed
75f0: 69 6e 74 6f 0d 0a 20 20 20 20 20 20 23 20 20 20  into..      #
7600: 20 20 20 20 74 68 65 20 74 65 6d 70 6f 72 61 72      the temporar
7610: 79 20 64 69 72 65 63 74 6f 72 79 2e 20 20 45 61  y directory.  Ea
7620: 63 68 20 64 61 74 61 62 61 73 65 20 75 73 65 64  ch database used
7630: 20 62 79 20 61 20 74 65 73 74 20 73 68 6f 75 6c   by a test shoul
7640: 64 20 62 65 0d 0a 20 20 20 20 20 20 23 20 20 20  d be..      #
7650: 20 20 20 20 63 6c 65 61 6e 65 64 20 75 70 20 62      cleaned up b
7660: 79 20 74 68 61 74 20 74 65 73 74 20 75 73 69 6e  y that test usin
7670: 67 20 74 68 65 20 22 63 6c 65 61 6e 75 70 44 62  g the "cleanupDb
7680: 22 20 70 72 6f 63 65 64 75 72 65 2c 20 62 65 6c  " procedure, bel
7690: 6f 77 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  ow...      #..
76a0: 20 20 20 20 69 66 20 7b 21 24 69 73 4d 65 6d 6f      if {!$isMemo 76b0: 72 79 20 26 26 20 24 71 75 61 6c 69 66 79 7d 20 ry &&$qualify}
76c0: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20  then {..
76d0: 73 65 74 20 66 69 6c 65 4e 61 6d 65 20 5b 66 69  set fileName [fi
76e0: 6c 65 20 6a 6f 69 6e 20 5b 67 65 74 44 61 74 61  le join [getData
76f0: 62 61 73 65 44 69 72 65 63 74 6f 72 79 5d 20 5b  baseDirectory] [
7700: 66 69 6c 65 20 74 61 69 6c 20 24 66 69 6c 65 4e  file tail $fileN 7710: 61 6d 65 5d 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a ame]].. }.. 7720: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #.. 7730: 20 23 20 4e 4f 54 45 3a 20 42 79 20 64 65 66 61 # NOTE: By defa 7740: 75 6c 74 2c 20 64 65 6c 65 74 65 20 61 6e 79 20 ult, delete any 7750: 70 72 65 2d 65 78 69 73 74 69 6e 67 20 64 61 74 pre-existing dat 7760: 61 62 61 73 65 20 77 69 74 68 20 74 68 65 20 73 abase with the s 7770: 61 6d 65 20 66 69 6c 65 0d 0a 20 20 20 20 20 20 ame file.. 7780: 23 20 20 20 20 20 20 20 6e 61 6d 65 20 69 66 20 # name if 7790: 69 74 20 63 75 72 72 65 6e 74 6c 79 20 65 78 69 it currently exi 77a0: 73 74 73 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 sts... #.. 77b0: 20 20 20 20 20 69 66 20 7b 21 24 69 73 4d 65 6d if {!$isMem
77c0: 6f 72 79 20 26 26 20 24 64 65 6c 65 74 65 20 26  ory && $delete & 77d0: 26 20 5b 66 69 6c 65 20 65 78 69 73 74 73 20 24 & [file exists$
77e0: 66 69 6c 65 4e 61 6d 65 5d 7d 20 74 68 65 6e 20  fileName]} then
77f0: 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20  {..        #..
7800: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 41 74        # NOTE: At
7810: 74 65 6d 70 74 20 74 6f 20 64 65 6c 65 74 65 20  tempt to delete
7820: 61 6e 79 20 70 72 65 2d 65 78 69 73 74 69 6e 67  any pre-existing
7830: 20 64 61 74 61 62 61 73 65 20 77 69 74 68 20 74   database with t
7840: 68 65 20 73 61 6d 65 20 66 69 6c 65 0d 0a 20 20  he same file..
7850: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 6e 61        #       na
7860: 6d 65 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a  me...        #..
7870: 20 20 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74          if {[cat
7880: 63 68 20 7b 66 69 6c 65 20 64 65 6c 65 74 65 20  ch {file delete
7890: 24 66 69 6c 65 4e 61 6d 65 7d 20 65 72 72 6f 72  $fileName} error 78a0: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 ]} then {.. 78b0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #.. 78c0: 20 20 23 20 4e 4f 54 45 3a 20 57 65 20 73 6f 6d # NOTE: We som 78d0: 65 68 6f 77 20 66 61 69 6c 65 64 20 74 6f 20 64 ehow failed to d 78e0: 65 6c 65 74 65 20 74 68 65 20 66 69 6c 65 2c 20 elete the file, 78f0: 72 65 70 6f 72 74 20 77 68 79 2e 0d 0a 20 20 20 report why... 7900: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #.. 7910: 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 tputs$::tes
7920: 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e  t_channel [appen
7930: 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20  dArgs \..
7940: 20 20 20 20 20 20 20 22 3d 3d 3d 3d 20 57 41 52         "==== WAR
7950: 4e 49 4e 47 3a 20 66 61 69 6c 65 64 20 74 6f 20  NING: failed to
7960: 64 65 6c 65 74 65 20 64 61 74 61 62 61 73 65 20  delete database
7970: 66 69 6c 65 20 5c 22 22 20 24 66 69 6c 65 4e 61  file \"" $fileNa 7980: 6d 65 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 me \.. 7990: 20 20 20 20 22 5c 22 20 64 75 72 69 6e 67 20 73 "\" during s 79a0: 65 74 75 70 2c 20 65 72 72 6f 72 3a 20 22 20 5c etup, error: " \ 79b0: 6e 5c 74 20 24 65 72 72 6f 72 20 5c 6e 5d 0d 0a n\t$error \n]..
79c0: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20          }..
79d0: 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20   }....      #..
79e0: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 52 65 66       # NOTE: Ref
79f0: 65 72 20 74 6f 20 74 68 65 20 73 70 65 63 69 66  er to the specif
7a00: 69 65 64 20 76 61 72 69 61 62 6c 65 20 28 65 2e  ied variable (e.
7a10: 67 2e 20 22 64 62 22 29 20 69 6e 20 74 68 65 20  g. "db") in the
7a20: 63 6f 6e 74 65 78 74 20 6f 66 20 6f 75 72 0d 0a  context of our..
7a30: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 63 61        #       ca
7a40: 6c 6c 65 72 2e 20 20 54 68 65 20 68 61 6e 64 6c  ller.  The handl
7a50: 65 20 74 6f 20 74 68 65 20 6f 70 65 6e 65 64 20  e to the opened
7a60: 64 61 74 61 62 61 73 65 20 77 69 6c 6c 20 62 65  database will be
7a70: 20 73 74 6f 72 65 64 20 74 68 65 72 65 2e 0d 0a   stored there...
7a80: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 75        #..      u
7a90: 70 76 61 72 20 31 20 24 76 61 72 4e 61 6d 65 20  pvar 1 $varName 7aa0: 64 62 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 db.... #.. 7ab0: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 74 61 # NOTE: Sta 7ac0: 72 74 20 62 75 69 6c 64 69 6e 67 20 74 68 65 20 rt building the 7ad0: 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 72 69 6e connection strin 7ae0: 67 2e 20 20 54 68 65 20 6f 6e 6c 79 20 72 65 71 g. The only req 7af0: 75 69 72 65 64 20 70 6f 72 74 69 6f 6e 0d 0a 20 uired portion.. 7b00: 20 20 20 20 20 23 20 20 20 20 20 20 20 6f 66 20 # of 7b10: 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 the connection s 7b20: 74 72 69 6e 67 20 69 73 20 74 68 65 20 64 61 74 tring is the dat 7b30: 61 20 73 6f 75 72 63 65 2c 20 77 68 69 63 68 20 a source, which 7b40: 63 6f 6e 74 61 69 6e 73 20 74 68 65 0d 0a 20 20 contains the.. 7b50: 20 20 20 20 23 20 20 20 20 20 20 20 64 61 74 61 # data 7b60: 62 61 73 65 20 66 69 6c 65 20 6e 61 6d 65 20 69 base file name i 7b70: 74 73 65 6c 66 2e 20 20 49 66 20 6f 75 72 20 63 tself. If our c 7b80: 61 6c 6c 65 72 20 77 61 6e 74 73 20 74 6f 20 75 aller wants to u 7b90: 73 65 20 61 20 55 52 49 20 61 73 0d 0a 20 20 20 se a URI as.. 7ba0: 20 20 20 23 20 20 20 20 20 20 20 74 68 65 20 64 # the d 7bb0: 61 74 61 20 73 6f 75 72 63 65 2c 20 75 73 65 20 ata source, use 7bc0: 74 68 65 20 46 75 6c 6c 55 72 69 20 63 6f 6e 6e the FullUri conn 7bd0: 65 63 74 69 6f 6e 20 73 74 72 69 6e 67 20 70 72 ection string pr 7be0: 6f 70 65 72 74 79 20 74 6f 0d 0a 20 20 20 20 20 operty to.. 7bf0: 20 23 20 20 20 20 20 20 20 70 72 65 76 65 6e 74 # prevent 7c00: 20 74 68 65 20 64 61 74 61 20 73 6f 75 72 63 65 the data source 7c10: 20 73 74 72 69 6e 67 20 66 72 6f 6d 20 62 65 69 string from bei 7c20: 6e 67 20 6d 61 6e 67 6c 65 64 2e 0d 0a 20 20 20 ng mangled... 7c30: 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b #.. if { 7c40: 24 75 72 69 7d 20 74 68 65 6e 20 7b 0d 0a 20 20$uri} then {..
7c50: 20 20 20 20 20 20 73 65 74 20 63 6f 6e 6e 65 63        set connec
7c60: 74 69 6f 6e 20 7b 46 75 6c 6c 55 72 69 3d 24 7b  tion {FullUri=${ 7c70: 66 69 6c 65 4e 61 6d 65 7d 7d 0d 0a 20 20 20 20 fileName}}.. 7c80: 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 } else {.. 7c90: 20 20 20 20 73 65 74 20 63 6f 6e 6e 65 63 74 69 set connecti 7ca0: 6f 6e 20 7b 44 61 74 61 20 53 6f 75 72 63 65 3d on {Data Source= 7cb0: 24 7b 66 69 6c 65 4e 61 6d 65 7d 7d 0d 0a 20 20${fileName}}..
7cc0: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23      }....      #
7cd0: 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20  ..      # NOTE:
7ce0: 53 69 6e 63 65 20 74 68 69 73 20 70 72 6f 63 65  Since this proce
7cf0: 64 75 72 65 20 68 61 73 20 6e 6f 20 73 70 65 63  dure has no spec
7d00: 69 61 6c 20 6b 6e 6f 77 6c 65 64 67 65 20 6f 66  ial knowledge of
7d10: 20 77 68 61 74 20 74 68 65 20 64 65 66 61 75 6c   what the defaul
7d20: 74 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20  t..      #
7d30: 20 73 65 74 74 69 6e 67 20 69 73 20 66 6f 72 20   setting is for
7d40: 74 68 65 20 54 6f 46 75 6c 6c 50 61 74 68 20 63  the ToFullPath c
7d50: 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 72 69 6e 67  onnection string
7d60: 20 70 72 6f 70 65 72 79 2c 20 61 6c 77 61 79 73   propery, always
7d70: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20  ..      #
7d80: 61 64 64 20 74 68 65 20 76 61 6c 75 65 20 77 65  add the value we
7d90: 20 6b 6e 6f 77 20 61 62 6f 75 74 20 74 6f 20 74   know about to t
7da0: 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 74  he connection st
7db0: 72 69 6e 67 2e 0d 0a 20 20 20 20 20 20 23 0d 0a  ring...      #..
7dc0: 20 20 20 20 20 20 61 70 70 65 6e 64 20 63 6f 6e        append con
7dd0: 6e 65 63 74 69 6f 6e 20 7b 3b 54 6f 46 75 6c 6c  nection {;ToFull
7de0: 50 61 74 68 3d 24 7b 71 75 61 6c 69 66 79 7d 7d  Path=${qualify}} 7df0: 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 .... #.. 7e00: 20 20 20 23 20 4e 4f 54 45 3a 20 49 66 20 6f 75 # NOTE: If ou 7e10: 72 20 63 61 6c 6c 65 72 20 73 70 65 63 69 66 69 r caller specifi 7e20: 65 64 20 61 20 6a 6f 75 72 6e 61 6c 20 6d 6f 64 ed a journal mod 7e30: 65 2c 20 61 64 64 20 74 68 65 20 6e 65 63 65 73 e, add the neces 7e40: 73 61 72 79 20 70 6f 72 74 69 6f 6e 0d 0a 20 20 sary portion.. 7e50: 20 20 20 20 23 20 20 20 20 20 20 20 6f 66 20 74 # of t 7e60: 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 he connection st 7e70: 72 69 6e 67 20 6e 6f 77 2e 0d 0a 20 20 20 20 20 ring now... 7e80: 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 73 #.. if {[s 7e90: 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 6d 6f tring length$mo
7ea0: 64 65 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d  de] > 0} then {.
7eb0: 0a 20 20 20 20 20 20 20 20 61 70 70 65 6e 64 20  .        append
7ec0: 63 6f 6e 6e 65 63 74 69 6f 6e 20 7b 3b 4a 6f 75  connection {;Jou
7ed0: 72 6e 61 6c 20 4d 6f 64 65 3d 24 7b 6d 6f 64 65  rnal Mode=${mode 7ee0: 7d 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 }}.. }.... 7ef0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 #.. # 7f00: 4e 4f 54 45 3a 20 49 66 20 6f 75 72 20 63 61 6c NOTE: If our cal 7f10: 6c 65 72 20 73 70 65 63 69 66 69 65 64 20 61 20 ler specified a 7f20: 44 61 74 65 54 69 6d 65 20 66 6f 72 6d 61 74 2c DateTime format, 7f30: 20 61 64 64 20 74 68 65 20 6e 65 63 65 73 73 61 add the necessa 7f40: 72 79 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 ry.. # 7f50: 20 20 70 6f 72 74 69 6f 6e 20 6f 66 20 74 68 65 portion of the 7f60: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 72 69 connection stri 7f70: 6e 67 20 6e 6f 77 2e 0d 0a 20 20 20 20 20 20 23 ng now... # 7f80: 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 73 74 72 .. if {[str 7f90: 69 6e 67 20 6c 65 6e 67 74 68 20 24 64 61 74 65 ing length$date
7fa0: 54 69 6d 65 46 6f 72 6d 61 74 5d 20 3e 20 30 7d  TimeFormat] > 0}
7fb0: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20   then {..
7fc0: 20 61 70 70 65 6e 64 20 63 6f 6e 6e 65 63 74 69   append connecti
7fd0: 6f 6e 20 7b 3b 44 61 74 65 54 69 6d 65 46 6f 72  on {;DateTimeFor
7fe0: 6d 61 74 3d 24 7b 64 61 74 65 54 69 6d 65 46 6f  mat=${dateTimeFo 7ff0: 72 6d 61 74 7d 7d 0d 0a 20 20 20 20 20 20 7d 0d rmat}}.. }. 8000: 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 ... #.. 8010: 20 20 23 20 4e 4f 54 45 3a 20 49 66 20 6f 75 72 # NOTE: If our 8020: 20 63 61 6c 6c 65 72 20 73 70 65 63 69 66 69 65 caller specifie 8030: 64 20 61 20 44 61 74 65 54 69 6d 65 4b 69 6e 64 d a DateTimeKind 8040: 2c 20 61 64 64 20 74 68 65 20 6e 65 63 65 73 73 , add the necess 8050: 61 72 79 20 70 6f 72 74 69 6f 6e 0d 0a 20 20 20 ary portion.. 8060: 20 20 20 23 20 20 20 20 20 20 20 6f 66 20 74 68 # of th 8070: 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 72 e connection str 8080: 69 6e 67 20 6e 6f 77 2e 0d 0a 20 20 20 20 20 20 ing now... 8090: 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 73 74 #.. if {[st 80a0: 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 64 61 74 ring length$dat
80b0: 65 54 69 6d 65 4b 69 6e 64 5d 20 3e 20 30 7d 20  eTimeKind] > 0}
80c0: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20  then {..
80d0: 61 70 70 65 6e 64 20 63 6f 6e 6e 65 63 74 69 6f  append connectio
80e0: 6e 20 7b 3b 44 61 74 65 54 69 6d 65 4b 69 6e 64  n {;DateTimeKind
80f0: 3d 24 7b 64 61 74 65 54 69 6d 65 4b 69 6e 64 7d  =${dateTimeKind} 8100: 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 }.. }.... 8110: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e #.. # N 8120: 4f 54 45 3a 20 49 66 20 74 68 65 72 65 20 61 72 OTE: If there ar 8130: 65 20 61 6e 79 20 67 6c 6f 62 61 6c 20 28 70 65 e any global (pe 8140: 72 20 74 65 73 74 20 72 75 6e 29 20 63 6f 6e 6e r test run) conn 8150: 65 63 74 69 6f 6e 20 66 6c 61 67 73 20 63 75 72 ection flags cur 8160: 72 65 6e 74 6c 79 0d 0a 20 20 20 20 20 20 23 20 rently.. # 8170: 20 20 20 20 20 20 73 65 74 2c 20 75 73 65 20 74 set, use t 8180: 68 65 6d 20 6e 6f 77 20 28 69 2e 65 2e 20 62 79 hem now (i.e. by 8190: 20 63 6f 6d 62 69 6e 69 6e 67 20 74 68 65 6d 20 combining them 81a0: 77 69 74 68 20 74 68 65 20 6f 6e 65 73 20 66 6f with the ones fo 81b0: 72 20 74 68 69 73 0d 0a 20 20 20 20 20 20 23 20 r this.. # 81c0: 20 20 20 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e connection 81d0: 29 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 )... #.. 81e0: 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 if {[info exi 81f0: 73 74 73 20 3a 3a 63 6f 6e 6e 65 63 74 69 6f 6e sts ::connection 8200: 5f 66 6c 61 67 73 5d 20 26 26 20 5c 0d 0a 20 20 _flags] && \.. 8210: 20 20 20 20 20 20 20 20 5b 73 74 72 69 6e 67 20 [string 8220: 6c 65 6e 67 74 68 20 24 3a 3a 63 6f 6e 6e 65 63 length$::connec
8230: 74 69 6f 6e 5f 66 6c 61 67 73 5d 20 3e 20 30 7d  tion_flags] > 0}
8240: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20   then {..
8250: 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f   #..        # NO
8260: 54 45 3a 20 53 68 6f 77 20 28 61 6e 64 20 6c 6f  TE: Show (and lo
8270: 67 29 20 74 68 61 74 20 77 65 20 64 65 74 65 63  g) that we detec
8280: 74 65 64 20 73 6f 6d 65 20 67 6c 6f 62 61 6c 20  ted some global
8290: 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 6c 61 67 73  connection flags
82a0: 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20  ...        #..
82b0: 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74        tputs $::t 82c0: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 est_channel [app 82d0: 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 endArgs \.. 82e0: 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 67 6c 6f "---- glo 82f0: 62 61 6c 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 bal connection f 8300: 6c 61 67 73 20 64 65 74 65 63 74 65 64 3a 20 22 lags detected: " 8310: 20 24 3a 3a 63 6f 6e 6e 65 63 74 69 6f 6e 5f 66$::connection_f
8320: 6c 61 67 73 20 5c 6e 5d 0d 0a 0d 0a 20 20 20 20  lags \n]....
8330: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23      #..        #
8340: 20 4e 4f 54 45 3a 20 43 6f 6d 62 69 6e 65 20 61   NOTE: Combine a
8350: 6e 64 2f 6f 72 20 72 65 70 6c 61 63 65 20 74 68  nd/or replace th
8360: 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 6c 61  e connection fla
8370: 67 73 20 61 6e 64 20 74 68 65 6e 20 73 68 6f 77  gs and then show
8380: 20 74 68 65 0d 0a 20 20 20 20 20 20 20 20 23 20   the..        #
8390: 20 20 20 20 20 20 6e 65 77 20 76 61 6c 75 65 2e        new value.
83a0: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20  ..        #..
83b0: 20 20 20 20 20 73 65 74 20 66 6c 61 67 73 20 5b       set flags [
83c0: 63 6f 6d 62 69 6e 65 46 6c 61 67 73 20 24 66 6c  combineFlags $fl 83d0: 61 67 73 20 24 3a 3a 63 6f 6e 6e 65 63 74 69 6f ags$::connectio
83e0: 6e 5f 66 6c 61 67 73 5d 0d 0a 0d 0a 20 20 20 20  n_flags]....
83f0: 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73      tputs $::tes 8400: 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e t_channel [appen 8410: 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 dArgs \.. 8420: 20 20 20 20 20 22 2d 2d 2d 2d 20 63 6f 6d 62 69 "---- combi 8430: 6e 65 64 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 ned connection f 8440: 6c 61 67 73 20 61 72 65 3a 20 22 20 24 66 6c 61 lags are: "$fla
8450: 67 73 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 7d 0d  gs \n]..      }.
8460: 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20  ...      #..
8470: 20 20 23 20 4e 4f 54 45 3a 20 49 66 20 6f 75 72    # NOTE: If our
8480: 20 63 61 6c 6c 65 72 20 73 70 65 63 69 66 69 65   caller specifie
8490: 64 20 61 20 53 51 4c 69 74 65 43 6f 6e 6e 65 63  d a SQLiteConnec
84a0: 74 69 6f 6e 46 6c 61 67 73 2c 20 61 64 64 20 74  tionFlags, add t
84b0: 68 65 20 6e 65 63 65 73 73 61 72 79 0d 0a 20 20  he necessary..
84c0: 20 20 20 20 23 20 20 20 20 20 20 20 70 6f 72 74      #       port
84d0: 69 6f 6e 20 6f 66 20 74 68 65 20 63 6f 6e 6e 65  ion of the conne
84e0: 63 74 69 6f 6e 20 73 74 72 69 6e 67 20 6e 6f 77  ction string now
84f0: 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20  ...      #..
8500: 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65    if {[string le
8510: 6e 67 74 68 20 24 66 6c 61 67 73 5d 20 3e 20 30  ngth $flags] > 0 8520: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {.. 8530: 20 20 61 70 70 65 6e 64 20 63 6f 6e 6e 65 63 74 append connect 8540: 69 6f 6e 20 7b 3b 46 6c 61 67 73 3d 24 7b 66 6c ion {;Flags=${fl
8550: 61 67 73 7d 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a  ags}}..      }..
8560: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20  ..      #..
8570: 20 23 20 4e 4f 54 45 3a 20 49 66 20 6f 75 72 20   # NOTE: If our
8580: 63 61 6c 6c 65 72 20 73 70 65 63 69 66 69 65 64  caller specified
8590: 20 61 6e 20 65 78 74 72 61 20 70 61 79 6c 6f 61   an extra payloa
85a0: 64 20 74 6f 20 74 68 65 20 63 6f 6e 6e 65 63 74  d to the connect
85b0: 69 6f 6e 20 73 74 72 69 6e 67 2c 0d 0a 20 20 20  ion string,..
85c0: 20 20 20 23 20 20 20 20 20 20 20 61 70 70 65 6e     #       appen
85d0: 64 20 69 74 20 6e 6f 77 2e 0d 0a 20 20 20 20 20  d it now...
85e0: 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 73   #..      if {[s
85f0: 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 65 78  tring length $ex 8600: 74 72 61 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b tra] > 0} then { 8610: 0d 0a 20 20 20 20 20 20 20 20 61 70 70 65 6e 64 .. append 8620: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 5c 3b 20 24 connection \;$
8630: 65 78 74 72 61 0d 0a 20 20 20 20 20 20 7d 0d 0a  extra..      }..
8640: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20  ..      #..
8650: 20 23 20 4e 4f 54 45 3a 20 4f 70 65 6e 20 74 68   # NOTE: Open th
8660: 65 20 64 61 74 61 62 61 73 65 20 63 6f 6e 6e 65  e database conne
8670: 63 74 69 6f 6e 20 6e 6f 77 2c 20 70 6c 61 63 69  ction now, placi
8680: 6e 67 20 74 68 65 20 6f 70 61 71 75 65 20 68 61  ng the opaque ha
8690: 6e 64 6c 65 20 76 61 6c 75 65 0d 0a 20 20 20 20  ndle value..
86a0: 20 20 23 20 20 20 20 20 20 20 69 6e 74 6f 20 74    #       into t
86b0: 68 65 20 76 61 72 69 61 62 6c 65 20 73 70 65 63  he variable spec
86c0: 69 66 69 65 64 20 62 79 20 6f 75 72 20 63 61 6c  ified by our cal
86d0: 6c 65 72 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20  ler...      #..
86e0: 20 20 20 20 20 73 65 74 20 64 62 20 5b 73 71 6c       set db [sql
86f0: 20 6f 70 65 6e 20 2d 74 79 70 65 20 53 51 4c 69   open -type SQLi
8700: 74 65 20 5b 73 75 62 73 74 20 24 63 6f 6e 6e 65  te [subst $conne 8710: 63 74 69 6f 6e 5d 5d 0d 0a 0d 0a 20 20 20 20 20 ction]].... 8720: 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 #.. # NOTE 8730: 3a 20 43 6f 6e 66 69 67 75 72 65 20 74 68 65 20 : Configure the 8740: 74 65 6d 70 6f 72 61 72 79 20 64 69 72 65 63 74 temporary direct 8750: 6f 72 79 20 66 6f 72 20 74 68 65 20 6e 65 77 6c ory for the newl 8760: 79 20 6f 70 65 6e 65 64 20 64 61 74 61 62 61 73 y opened databas 8770: 65 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 e.. # 8780: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 6e 6f 77 20 connection now 8790: 75 6e 6c 65 73 73 20 6f 75 72 20 63 61 6c 6c 65 unless our calle 87a0: 72 20 66 6f 72 62 69 64 73 20 69 74 2e 0d 0a 20 r forbids it... 87b0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 #.. if 87c0: 20 7b 24 74 65 6d 70 6f 72 61 72 79 20 26 26 20 {$temporary &&
87d0: 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a  ![info exists ::
87e0: 6e 6f 28 73 65 74 54 65 6d 70 6f 72 61 72 79 44  no(setTemporaryD
87f0: 69 72 65 63 74 6f 72 79 29 5d 7d 20 74 68 65 6e  irectory)]} then
8800: 20 7b 0d 0a 20 20 20 20 20 20 20 20 73 71 6c 20   {..        sql
8810: 65 78 65 63 75 74 65 20 24 64 62 20 5b 61 70 70  execute $db [app 8820: 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 endArgs \.. 8830: 20 20 20 20 20 20 20 22 50 52 41 47 4d 41 20 74 "PRAGMA t 8840: 65 6d 70 5f 73 74 6f 72 65 5f 64 69 72 65 63 74 emp_store_direct 8850: 6f 72 79 20 3d 20 5c 22 22 20 5b 67 65 74 54 65 ory = \"" [getTe 8860: 6d 70 6f 72 61 72 79 44 69 72 65 63 74 6f 72 79 mporaryDirectory 8870: 5d 20 5c 22 5c 3b 5d 0d 0a 20 20 20 20 20 20 7d ] \"\;].. } 8880: 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 .... #.. 8890: 20 20 20 23 20 4e 4f 54 45 3a 20 41 6c 77 61 79 # NOTE: Alway 88a0: 73 20 72 65 74 75 72 6e 20 74 68 65 20 63 6f 6e s return the con 88b0: 6e 65 63 74 69 6f 6e 20 68 61 6e 64 6c 65 20 75 nection handle u 88c0: 70 6f 6e 20 73 75 63 63 65 73 73 2e 0d 0a 20 20 pon success... 88d0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 72 65 74 #.. ret 88e0: 75 72 6e 20 24 64 62 0d 0a 20 20 20 20 7d 0d 0a urn$db..    }..
88f0: 0c 0d 0a 20 20 20 20 70 72 6f 63 20 67 65 74 44  ...    proc getD
8900: 62 43 6f 6e 6e 65 63 74 69 6f 6e 20 7b 20 7b 76  bConnection { {v
8910: 61 72 4e 61 6d 65 20 64 62 7d 20 7d 20 7b 0d 0a  arName db} } {..
8920: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23        #..      #
8930: 20 4e 4f 54 45 3a 20 52 65 66 65 72 20 74 6f 20   NOTE: Refer to
8940: 74 68 65 20 73 70 65 63 69 66 69 65 64 20 76 61  the specified va
8950: 72 69 61 62 6c 65 20 28 65 2e 67 2e 20 22 64 62  riable (e.g. "db
8960: 22 29 20 69 6e 20 74 68 65 20 63 6f 6e 74 65 78  ") in the contex
8970: 74 20 6f 66 20 6f 75 72 0d 0a 20 20 20 20 20 20  t of our..
8980: 23 20 20 20 20 20 20 20 63 61 6c 6c 65 72 2e 20  #       caller.
8990: 20 54 68 65 20 68 61 6e 64 6c 65 20 74 6f 20 74   The handle to t
89a0: 68 65 20 64 61 74 61 62 61 73 65 20 70 72 65 76  he database prev
89b0: 69 6f 75 73 6c 79 20 6f 70 65 6e 65 64 20 62 79  iously opened by
89c0: 20 5b 73 65 74 75 70 44 62 5d 0d 0a 20 20 20 20   [setupDb]..
89d0: 20 20 23 20 20 20 20 20 20 20 73 68 6f 75 6c 64    #       should
89e0: 20 62 65 20 73 74 6f 72 65 64 20 74 68 65 72 65   be stored there
89f0: 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20  ...      #..
8a00: 20 20 75 70 76 61 72 20 31 20 24 76 61 72 4e 61    upvar 1 $varNa 8a10: 6d 65 20 64 62 0d 0a 0d 0a 20 20 20 20 20 20 23 me db.... # 8a20: 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 .. # NOTE: 8a30: 54 68 69 73 20 72 65 74 75 72 6e 73 20 74 68 65 This returns the 8a40: 20 41 44 4f 2e 4e 45 54 20 49 44 62 43 6f 6e 6e ADO.NET IDbConn 8a50: 65 63 74 69 6f 6e 20 6f 62 6a 65 63 74 20 69 6e ection object in 8a60: 73 74 61 6e 63 65 20 66 6f 72 20 74 68 65 0d 0a stance for the.. 8a70: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 73 70 # sp 8a80: 65 63 69 66 69 65 64 20 64 61 74 61 62 73 65 20 ecified databse 8a90: 68 61 6e 64 6c 65 2e 20 20 53 69 6e 63 65 20 67 handle. Since g 8aa0: 65 74 74 69 6e 67 20 74 68 69 73 20 6f 62 6a 65 etting this obje 8ab0: 63 74 20 72 65 6c 69 65 73 20 75 70 6f 6e 0d 0a ct relies upon.. 8ac0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 45 61 # Ea 8ad0: 67 6c 65 20 69 6e 74 65 72 6e 61 6c 73 2c 20 67 gle internals, g 8ae0: 72 65 61 74 20 63 61 72 65 20 73 68 6f 75 6c 64 reat care should 8af0: 20 62 65 20 74 61 6b 65 6e 20 74 6f 20 61 76 6f be taken to avo 8b00: 69 64 20 64 69 73 70 6f 73 69 6e 67 20 6f 66 0d id disposing of. 8b10: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 74 . # t 8b20: 68 69 73 20 6f 62 6a 65 63 74 20 6f 72 20 6f 74 his object or ot 8b30: 68 65 72 77 69 73 65 20 70 75 74 74 69 6e 67 20 herwise putting 8b40: 69 74 20 69 6e 74 6f 20 61 6e 20 69 6e 76 61 6c it into an inval 8b50: 69 64 20 73 74 61 74 65 2e 0d 0a 20 20 20 20 20 id state... 8b60: 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 69 #.. if {[i 8b70: 6e 66 6f 20 65 78 69 73 74 73 20 64 62 5d 7d 20 nfo exists db]} 8b80: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 then {.. 8b90: 69 66 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 20 if {[catch {.. 8ba0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 62 ob 8bb0: 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d 66 6c 61 ject invoke -fla 8bc0: 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 2d 6f gs +NonPublic -o 8bd0: 62 6a 65 63 74 66 6c 61 67 73 20 2b 4e 6f 44 69 bjectflags +NoDi 8be0: 73 70 6f 73 65 20 5c 0d 0a 20 20 20 20 20 20 20 spose \.. 8bf0: 20 20 20 20 20 20 20 20 20 2d 61 6c 69 61 73 20 -alias 8c00: 49 6e 74 65 72 70 72 65 74 65 72 2e 47 65 74 41 Interpreter.GetA 8c10: 63 74 69 76 65 2e 63 6f 6e 6e 65 63 74 69 6f 6e ctive.connection 8c20: 73 20 49 74 65 6d 20 24 64 62 7d 20 5c 0d 0a 20 s Item$db} \..
8c30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72                 r
8c40: 65 73 75 6c 74 5d 20 3d 3d 20 30 7d 20 74 68 65  esult] == 0} the
8c50: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23  n {..          #
8c60: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f  ..          # NO
8c70: 54 45 3a 20 53 75 63 63 65 73 73 2c 20 72 65 74  TE: Success, ret
8c80: 75 72 6e 20 74 68 65 20 6f 70 61 71 75 65 20 6f  urn the opaque o
8c90: 62 6a 65 63 74 20 68 61 6e 64 6c 65 2e 0d 0a 20  bject handle...
8ca0: 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20           #..
8cb0: 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 72 65        return $re 8cc0: 73 75 6c 74 0d 0a 20 20 20 20 20 20 20 20 7d 20 sult.. } 8cd0: 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 else {.. 8ce0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23 #.. # 8cf0: 20 4e 4f 54 45 3a 20 46 61 69 6c 75 72 65 2c 20 NOTE: Failure, 8d00: 72 65 70 6f 72 74 20 77 68 79 2e 0d 0a 20 20 20 report why... 8d10: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #.. 8d20: 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 tputs$::tes
8d30: 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e  t_channel [appen
8d40: 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20  dArgs \..
8d50: 20 20 20 20 20 20 20 22 3d 3d 3d 3d 20 57 41 52         "==== WAR
8d60: 4e 49 4e 47 3a 20 66 61 69 6c 65 64 20 74 6f 20  NING: failed to
8d70: 67 65 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 68  get connection h
8d80: 61 6e 64 6c 65 20 66 6f 72 20 64 61 74 61 62 61  andle for databa
8d90: 73 65 20 5c 22 22 20 5c 0d 0a 20 20 20 20 20 20  se \"" \..
8da0: 20 20 20 20 20 20 20 20 24 64 62 20 22 5c 22 2c          $db "\", 8db0: 20 65 72 72 6f 72 3a 20 22 20 5c 6e 5c 74 20 24 error: " \n\t$
8dc0: 72 65 73 75 6c 74 20 5c 6e 5d 0d 0a 20 20 20 20  result \n]..
8dd0: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a      }..      }..
8de0: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72      }.....    pr
8df0: 6f 63 20 66 72 65 65 44 62 43 6f 6e 6e 65 63 74  oc freeDbConnect
8e00: 69 6f 6e 20 7b 20 7b 76 61 72 4e 61 6d 65 20 63  ion { {varName c
8e10: 6f 6e 6e 65 63 74 69 6f 6e 7d 20 7d 20 7b 0d 0a  onnection} } {..
8e20: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23        #..      #
8e30: 20 4e 4f 54 45 3a 20 52 65 66 65 72 20 74 6f 20   NOTE: Refer to
8e40: 74 68 65 20 73 70 65 63 69 66 69 65 64 20 76 61  the specified va
8e50: 72 69 61 62 6c 65 20 28 65 2e 67 2e 20 22 63 6f  riable (e.g. "co
8e60: 6e 6e 65 63 74 69 6f 6e 22 29 20 69 6e 20 74 68  nnection") in th
8e70: 65 20 63 6f 6e 74 65 78 74 0d 0a 20 20 20 20 20  e context..
8e80: 20 23 20 20 20 20 20 20 20 6f 66 20 6f 75 72 20   #       of our
8e90: 63 61 6c 6c 65 72 2e 20 20 54 68 65 20 6f 70 61  caller.  The opa
8ea0: 71 75 65 20 6f 62 6a 65 63 74 20 68 61 6e 64 6c  que object handl
8eb0: 65 20 66 6f 72 20 61 6e 20 41 44 4f 2e 4e 45 54  e for an ADO.NET
8ec0: 20 63 6f 6e 6e 65 63 74 69 6f 6e 0d 0a 20 20 20   connection..
8ed0: 20 20 20 23 20 20 20 20 20 20 20 70 72 65 76 69     #       previ
8ee0: 6f 75 73 6c 79 20 72 65 74 75 72 6e 65 64 20 62  ously returned b
8ef0: 79 20 5b 67 65 74 44 62 43 6f 6e 6e 65 63 74 69  y [getDbConnecti
8f00: 6f 6e 5d 20 73 68 6f 75 6c 64 20 62 65 20 73 74  on] should be st
8f10: 6f 72 65 64 20 74 68 65 72 65 2e 0d 0a 20 20 20  ored there...
8f20: 20 20 20 23 0d 0a 20 20 20 20 20 20 75 70 76 61     #..      upva
8f30: 72 20 31 20 24 76 61 72 4e 61 6d 65 20 63 6f 6e  r 1 $varName con 8f40: 6e 65 63 74 69 6f 6e 0d 0a 0d 0a 20 20 20 20 20 nection.... 8f50: 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 #.. # NOTE 8f60: 3a 20 41 74 74 65 6d 70 74 20 74 6f 20 72 65 6d : Attempt to rem 8f70: 6f 76 65 20 74 68 65 20 6f 70 61 71 75 65 20 6f ove the opaque o 8f80: 62 6a 65 63 74 20 68 61 6e 64 6c 65 20 66 72 6f bject handle fro 8f90: 6d 20 74 68 65 20 69 6e 74 65 72 70 72 65 74 65 m the interprete 8fa0: 72 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 r.. # 8fb0: 20 6e 6f 77 2e 20 20 54 68 69 73 20 5b 6f 62 6a now. This [obj 8fc0: 65 63 74 20 64 69 73 70 6f 73 65 5d 20 63 61 6c ect dispose] cal 8fd0: 6c 20 77 69 6c 6c 20 6e 6f 74 20 61 63 74 75 61 l will not actua 8fe0: 6c 6c 79 20 64 69 73 70 6f 73 65 20 6f 66 20 74 lly dispose of t 8ff0: 68 65 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 he.. # 9000: 20 20 75 6e 64 65 72 6c 79 69 6e 67 20 6f 62 6a underlying obj 9010: 65 63 74 20 62 65 63 61 75 73 65 20 74 68 65 20 ect because the 9020: 2b 4e 6f 44 69 73 70 6f 73 65 20 66 6c 61 67 20 +NoDispose flag 9030: 77 61 73 20 73 65 74 20 6f 6e 20 69 74 20 64 75 was set on it du 9040: 72 69 6e 67 0d 0a 20 20 20 20 20 20 23 20 20 20 ring.. # 9050: 20 20 20 20 63 72 65 61 74 69 6f 6e 20 6f 66 20 creation of 9060: 74 68 65 20 6f 70 61 71 75 65 20 6f 62 6a 65 63 the opaque objec 9070: 74 20 68 61 6e 64 6c 65 2e 0d 0a 20 20 20 20 20 t handle... 9080: 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 69 #.. if {[i 9090: 6e 66 6f 20 65 78 69 73 74 73 20 63 6f 6e 6e 65 nfo exists conne 90a0: 63 74 69 6f 6e 5d 20 26 26 20 5c 0d 0a 20 20 20 ction] && \.. 90b0: 20 20 20 20 20 20 20 5b 63 61 74 63 68 20 7b 6f [catch {o 90c0: 62 6a 65 63 74 20 64 69 73 70 6f 73 65 20 24 63 bject dispose$c
90d0: 6f 6e 6e 65 63 74 69 6f 6e 7d 20 65 72 72 6f 72  onnection} error
90e0: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  ]} then {..
90f0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20     #..        #
9100: 4e 4f 54 45 3a 20 57 65 20 73 6f 6d 65 68 6f 77  NOTE: We somehow
9110: 20 66 61 69 6c 65 64 20 74 6f 20 72 65 6d 6f 76   failed to remov
9120: 65 20 74 68 65 20 68 61 6e 64 6c 65 2c 20 72 65  e the handle, re
9130: 70 6f 72 74 20 77 68 79 2e 0d 0a 20 20 20 20 20  port why...
9140: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 74 70     #..        tp
9150: 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e  uts $::test_chan 9160: 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 nel [appendArgs 9170: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 \.. " 9180: 3d 3d 3d 3d 20 57 41 52 4e 49 4e 47 3a 20 66 61 ==== WARNING: fa 9190: 69 6c 65 64 20 74 6f 20 72 65 6d 6f 76 65 20 63 iled to remove c 91a0: 6f 6e 6e 65 63 74 69 6f 6e 20 68 61 6e 64 6c 65 onnection handle 91b0: 20 5c 22 22 20 24 63 6f 6e 6e 65 63 74 69 6f 6e \""$connection
91c0: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   \..
91d0: 22 5c 22 2c 20 65 72 72 6f 72 3a 20 22 20 5c 6e  "\", error: " \n
91e0: 5c 74 20 24 65 72 72 6f 72 20 5c 6e 5d 0d 0a 20  \t $error \n].. 91f0: 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c }.. }... 9200: 0d 0a 20 20 20 20 70 72 6f 63 20 61 64 64 44 62 .. proc addDb 9210: 43 6f 6e 6e 65 63 74 69 6f 6e 20 7b 20 63 6f 6e Connection { con 9220: 6e 65 63 74 69 6f 6e 20 7b 76 61 72 4e 61 6d 65 nection {varName 9230: 20 64 62 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 20 db} } {.. 9240: 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a #.. # NOTE: 9250: 20 52 65 66 65 72 20 74 6f 20 74 68 65 20 73 70 Refer to the sp 9260: 65 63 69 66 69 65 64 20 76 61 72 69 61 62 6c 65 ecified variable 9270: 20 28 65 2e 67 2e 20 22 64 62 22 29 20 69 6e 20 (e.g. "db") in 9280: 74 68 65 20 63 6f 6e 74 65 78 74 20 6f 66 20 6f the context of o 9290: 75 72 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 ur.. # 92a0: 20 20 63 61 6c 6c 65 72 2e 0d 0a 20 20 20 20 20 caller... 92b0: 20 23 0d 0a 20 20 20 20 20 20 75 70 76 61 72 20 #.. upvar 92c0: 31 20 24 76 61 72 4e 61 6d 65 20 64 62 0d 0a 0d 1$varName db...
92d0: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20  .      #..
92e0: 23 20 4e 4f 54 45 3a 20 43 72 65 61 74 65 20 61  # NOTE: Create a
92f0: 20 63 6f 72 72 65 63 74 6c 79 20 66 6f 72 6d 61   correctly forma
9300: 74 74 65 64 20 6e 61 6d 65 20 66 6f 72 20 74 68  tted name for th
9310: 65 20 64 61 74 61 62 61 73 65 20 63 6f 6e 6e 65  e database conne
9320: 63 74 69 6f 6e 20 74 6f 0d 0a 20 20 20 20 20 20  ction to..
9330: 23 20 20 20 20 20 20 20 62 65 20 61 64 64 65 64  #       be added
9340: 20 74 6f 20 74 68 65 20 6c 69 73 74 20 6d 61 6e   to the list man
9350: 61 67 65 64 20 62 79 20 74 68 65 20 45 61 67 6c  aged by the Eagl
9360: 65 20 69 6e 74 65 72 70 72 65 74 65 72 2e 0d 0a  e interpreter...
9370: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 73        #..      s
9380: 65 74 20 64 62 20 5b 6f 62 6a 65 63 74 20 69 6e  et db [object in
9390: 76 6f 6b 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e  voke -flags +Non
93a0: 50 75 62 6c 69 63 20 5c 0d 0a 20 20 20 20 20 20  Public \..
93b0: 20 20 20 20 45 61 67 6c 65 2e 5f 43 6f 6d 70 6f      Eagle._Compo
93c0: 6e 65 6e 74 73 2e 50 72 69 76 61 74 65 2e 46 6f  nents.Private.Fo
93d0: 72 6d 61 74 4f 70 73 20 44 61 74 61 62 61 73 65  rmatOps Database
93e0: 4f 62 6a 65 63 74 4e 61 6d 65 20 24 63 6f 6e 6e  ObjectName $conn 93f0: 65 63 74 69 6f 6e 20 5c 0d 0a 20 20 20 20 20 20 ection \.. 9400: 20 20 20 20 53 51 4c 69 74 65 43 6f 6e 6e 65 63 SQLiteConnec 9410: 74 69 6f 6e 20 5b 6f 62 6a 65 63 74 20 69 6e 76 tion [object inv 9420: 6f 6b 65 20 49 6e 74 65 72 70 72 65 74 65 72 2e oke Interpreter. 9430: 47 65 74 41 63 74 69 76 65 20 4e 65 78 74 49 64 GetActive NextId 9440: 5d 5d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 ]].... #.. 9450: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 41 64 64 # NOTE: Add 9460: 20 74 68 65 20 64 61 74 61 62 61 73 65 20 63 6f the database co 9470: 6e 6e 65 63 74 69 6f 6e 20 70 72 6f 76 69 64 65 nnection provide 9480: 64 20 62 79 20 6f 75 72 20 63 61 6c 6c 65 72 20 d by our caller 9490: 74 6f 20 74 68 65 20 6c 69 73 74 0d 0a 20 20 20 to the list.. 94a0: 20 20 20 23 20 20 20 20 20 20 20 6f 66 20 74 68 # of th 94b0: 6f 73 65 20 6b 6e 6f 77 6e 20 74 6f 20 74 68 65 ose known to the 94c0: 20 45 61 67 6c 65 20 69 6e 74 65 72 70 72 65 74 Eagle interpret 94d0: 65 72 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 er... #.. 94e0: 20 20 20 20 6f 62 6a 65 63 74 20 69 6e 76 6f 6b object invok 94f0: 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 e -flags +NonPub 9500: 6c 69 63 20 49 6e 74 65 72 70 72 65 74 65 72 2e lic Interpreter. 9510: 47 65 74 41 63 74 69 76 65 2e 63 6f 6e 6e 65 63 GetActive.connec 9520: 74 69 6f 6e 73 20 41 64 64 20 5c 0d 0a 20 20 20 tions Add \.. 9530: 20 20 20 20 20 20 20 24 64 62 20 24 63 6f 6e 6e$db $conn 9540: 65 63 74 69 6f 6e 0d 0a 20 20 20 20 7d 0d 0a 0c ection.. }... 9550: 0d 0a 20 20 20 20 70 72 6f 63 20 63 6c 65 61 6e .. proc clean 9560: 75 70 44 62 20 7b 20 66 69 6c 65 4e 61 6d 65 20 upDb { fileName 9570: 7b 76 61 72 4e 61 6d 65 20 64 62 7d 20 7b 63 6f {varName db} {co 9580: 6c 6c 65 63 74 20 74 72 75 65 7d 20 7b 71 75 61 llect true} {qua 9590: 6c 69 66 79 20 74 72 75 65 7d 0d 0a 20 20 20 20 lify true}.. 95a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 95b0: 20 7b 64 65 6c 65 74 65 20 74 72 75 65 7d 20 7d {delete true} } 95c0: 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 {.. #.. 95d0: 20 20 20 23 20 4e 4f 54 45 3a 20 41 74 74 65 6d # NOTE: Attem 95e0: 70 74 20 74 6f 20 66 6f 72 63 65 20 61 6c 6c 20 pt to force all 95f0: 70 65 6e 64 69 6e 67 20 22 67 61 72 62 61 67 65 pending "garbage 9600: 22 20 6f 62 6a 65 63 74 73 20 74 6f 20 62 65 20 " objects to be 9610: 63 6f 6c 6c 65 63 74 65 64 2c 0d 0a 20 20 20 20 collected,.. 9620: 20 20 23 20 20 20 20 20 20 20 69 6e 63 6c 75 64 # includ 9630: 69 6e 67 20 53 51 4c 69 74 65 20 73 74 61 74 65 ing SQLite state 9640: 6d 65 6e 74 73 20 61 6e 64 20 62 61 63 6b 75 70 ments and backup 9650: 20 6f 62 6a 65 63 74 73 3b 20 74 68 69 73 20 73 objects; this s 9660: 68 6f 75 6c 64 20 61 6c 6c 6f 77 0d 0a 20 20 20 hould allow.. 9670: 20 20 20 23 20 20 20 20 20 20 20 74 68 65 20 75 # the u 9680: 6e 64 65 72 6c 79 69 6e 67 20 64 61 74 61 62 61 nderlying databa 9690: 73 65 20 66 69 6c 65 20 74 6f 20 62 65 20 64 65 se file to be de 96a0: 6c 65 74 65 64 2e 0d 0a 20 20 20 20 20 20 23 0d leted... #. 96b0: 0a 20 20 20 20 20 20 69 66 20 7b 24 63 6f 6c 6c . if {$coll
96c0: 65 63 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  ect} then {..
96d0: 20 20 20 20 20 63 6f 6c 6c 65 63 74 47 61 72 62       collectGarb
96e0: 61 67 65 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e  age $::test_chan 96f0: 6e 65 6c 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a nel.. }.... 9700: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 #.. # 9710: 20 4e 4f 54 45 3a 20 52 65 66 65 72 20 74 6f 20 NOTE: Refer to 9720: 74 68 65 20 73 70 65 63 69 66 69 65 64 20 76 61 the specified va 9730: 72 69 61 62 6c 65 20 28 65 2e 67 2e 20 22 64 62 riable (e.g. "db 9740: 22 29 20 69 6e 20 74 68 65 20 63 6f 6e 74 65 78 ") in the contex 9750: 74 20 6f 66 20 6f 75 72 0d 0a 20 20 20 20 20 20 t of our.. 9760: 23 20 20 20 20 20 20 20 63 61 6c 6c 65 72 2e 20 # caller. 9770: 20 54 68 65 20 68 61 6e 64 6c 65 20 74 6f 20 74 The handle to t 9780: 68 65 20 64 61 74 61 62 61 73 65 20 70 72 65 76 he database prev 9790: 69 6f 75 73 6c 79 20 6f 70 65 6e 65 64 20 62 79 iously opened by 97a0: 20 5b 73 65 74 75 70 44 62 5d 0d 0a 20 20 20 20 [setupDb].. 97b0: 20 20 23 20 20 20 20 20 20 20 73 68 6f 75 6c 64 # should 97c0: 20 62 65 20 73 74 6f 72 65 64 20 74 68 65 72 65 be stored there 97d0: 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 ... #.. 97e0: 20 20 75 70 76 61 72 20 31 20 24 76 61 72 4e 61 upvar 1$varNa
97f0: 6d 65 20 64 62 0d 0a 0d 0a 20 20 20 20 20 20 23  me db....      #
9800: 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20  ..      # NOTE:
9810: 43 6c 6f 73 65 20 74 68 65 20 63 6f 6e 6e 65 63  Close the connec
9820: 74 69 6f 6e 20 74 6f 20 74 68 65 20 64 61 74 61  tion to the data
9830: 62 61 73 65 20 6e 6f 77 2e 20 20 54 68 69 73 20  base now.  This
9840: 73 68 6f 75 6c 64 20 61 6c 6c 6f 77 20 75 73 20  should allow us
9850: 74 6f 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20  to..      #
9860: 20 20 64 65 6c 65 74 65 20 74 68 65 20 75 6e 64    delete the und
9870: 65 72 6c 79 69 6e 67 20 64 61 74 61 62 61 73 65  erlying database
9880: 20 66 69 6c 65 2e 0d 0a 20 20 20 20 20 20 23 0d   file...      #.
9890: 0a 20 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f  .      if {[info
98a0: 20 65 78 69 73 74 73 20 64 62 5d 20 26 26 20 5b   exists db] && [
98b0: 63 61 74 63 68 20 7b 73 71 6c 20 63 6c 6f 73 65  catch {sql close
98c0: 20 24 64 62 7d 20 65 72 72 6f 72 5d 7d 20 74 68   $db} error]} th 98d0: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d en {.. #. 98e0: 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a . # NOTE: 98f0: 20 57 65 20 73 6f 6d 65 68 6f 77 20 66 61 69 6c We somehow fail 9900: 65 64 20 74 6f 20 63 6c 6f 73 65 20 74 68 65 20 ed to close the 9910: 64 61 74 61 62 61 73 65 2c 20 72 65 70 6f 72 74 database, report 9920: 20 77 68 79 2e 0d 0a 20 20 20 20 20 20 20 20 23 why... # 9930: 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20 .. tputs 9940: 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20$::test_channel
9950: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20  [appendArgs \..
9960: 20 20 20 20 20 20 20 20 20 20 20 22 3d 3d 3d 3d             "====
9970: 20 57 41 52 4e 49 4e 47 3a 20 66 61 69 6c 65 64   WARNING: failed
9980: 20 74 6f 20 63 6c 6f 73 65 20 64 61 74 61 62 61   to close databa
9990: 73 65 20 5c 22 22 20 24 64 62 20 22 5c 22 2c 20  se \"" $db "\", 99a0: 65 72 72 6f 72 3a 20 22 20 5c 0d 0a 20 20 20 20 error: " \.. 99b0: 20 20 20 20 20 20 20 20 5c 6e 5c 74 20 24 65 72 \n\t$er
99c0: 72 6f 72 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 7d  ror \n]..      }
99d0: 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20  ....      #..
99e0: 20 20 20 23 20 4e 4f 54 45 3a 20 46 69 72 73 74     # NOTE: First
99f0: 2c 20 73 65 65 20 69 66 20 6f 75 72 20 63 61 6c  , see if our cal
9a00: 6c 65 72 20 68 61 73 20 72 65 71 75 65 73 74 65  ler has requeste
9a10: 64 20 61 6e 20 69 6e 2d 6d 65 6d 6f 72 79 20 64  d an in-memory d
9a20: 61 74 61 62 61 73 65 2e 0d 0a 20 20 20 20 20 20  atabase...
9a30: 23 0d 0a 20 20 20 20 20 20 73 65 74 20 69 73 4d  #..      set isM
9a40: 65 6d 6f 72 79 20 5b 69 73 4d 65 6d 6f 72 79 44  emory [isMemoryD
9a50: 62 20 24 66 69 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a  b $fileName].... 9a60: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 #.. # 9a70: 20 4e 4f 54 45 3a 20 42 75 69 6c 64 20 74 68 65 NOTE: Build the 9a80: 20 66 75 6c 6c 20 70 61 74 68 20 74 6f 20 74 68 full path to th 9a90: 65 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 20 e database file 9aa0: 6e 61 6d 65 2e 20 20 46 6f 72 20 6e 6f 77 2c 20 name. For now, 9ab0: 61 6c 6c 20 74 65 73 74 0d 0a 20 20 20 20 20 20 all test.. 9ac0: 23 20 20 20 20 20 20 20 64 61 74 61 62 61 73 65 # database 9ad0: 20 66 69 6c 65 73 20 61 72 65 20 73 74 6f 72 65 files are store 9ae0: 64 20 69 6e 20 74 68 65 20 74 65 6d 70 6f 72 61 d in the tempora 9af0: 72 79 20 64 69 72 65 63 74 6f 72 79 2e 0d 0a 20 ry directory... 9b00: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 #.. if 9b10: 20 7b 21 24 69 73 4d 65 6d 6f 72 79 20 26 26 20 {!$isMemory &&
9b20: 24 71 75 61 6c 69 66 79 7d 20 74 68 65 6e 20 7b  $qualify} then { 9b30: 0d 0a 20 20 20 20 20 20 20 20 73 65 74 20 66 69 .. set fi 9b40: 6c 65 4e 61 6d 65 20 5b 66 69 6c 65 20 6a 6f 69 leName [file joi 9b50: 6e 20 5b 67 65 74 44 61 74 61 62 61 73 65 44 69 n [getDatabaseDi 9b60: 72 65 63 74 6f 72 79 5d 20 5b 66 69 6c 65 20 74 rectory] [file t 9b70: 61 69 6c 20 24 66 69 6c 65 4e 61 6d 65 5d 5d 0d ail$fileName]].
9b80: 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20  .      }....
9b90: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54    #..      # NOT
9ba0: 45 3a 20 43 68 65 63 6b 20 69 66 20 74 68 65 20  E: Check if the
9bb0: 66 69 6c 65 20 73 74 69 6c 6c 20 65 78 69 73 74  file still exist
9bc0: 73 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20  s...      #..
9bd0: 20 20 20 69 66 20 7b 21 24 69 73 4d 65 6d 6f 72     if {!$isMemor 9be0: 79 20 26 26 20 24 64 65 6c 65 74 65 20 26 26 20 y &&$delete &&
9bf0: 5b 66 69 6c 65 20 65 78 69 73 74 73 20 24 66 69  [file exists $fi 9c00: 6c 65 4e 61 6d 65 5d 7d 20 74 68 65 6e 20 7b 0d leName]} then {. 9c10: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #.. 9c20: 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 6b 69 70 # NOTE: Skip 9c30: 20 64 65 6c 65 74 69 6e 67 20 64 61 74 61 62 61 deleting databa 9c40: 73 65 20 66 69 6c 65 73 20 69 66 20 73 6f 6d 65 se files if some 9c50: 62 6f 64 79 20 73 65 74 73 20 74 68 65 20 67 6c body sets the gl 9c60: 6f 62 61 6c 0d 0a 20 20 20 20 20 20 20 20 23 20 obal.. # 9c70: 20 20 20 20 20 20 76 61 72 69 61 62 6c 65 20 74 variable t 9c80: 6f 20 70 72 65 76 65 6e 74 20 69 74 2e 0d 0a 20 o prevent it... 9c90: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #.. 9ca0: 20 20 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 if {![info exi 9cb0: 73 74 73 20 3a 3a 6e 6f 28 63 6c 65 61 6e 75 70 sts ::no(cleanup 9cc0: 44 62 46 69 6c 65 29 5d 7d 20 74 68 65 6e 20 7b DbFile)]} then { 9cd0: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 .. #.. 9ce0: 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a # NOTE: 9cf0: 20 41 74 74 65 6d 70 74 20 74 6f 20 64 65 6c 65 Attempt to dele 9d00: 74 65 20 74 68 65 20 74 65 73 74 20 64 61 74 61 te the test data 9d10: 62 61 73 65 20 66 69 6c 65 20 6e 6f 77 2e 0d 0a base file now... 9d20: 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 #.. 9d30: 20 20 20 20 20 20 20 69 66 20 7b 5b 73 65 74 20 if {[set 9d40: 63 6f 64 65 20 5b 63 61 74 63 68 20 7b 66 69 6c code [catch {fil 9d50: 65 20 64 65 6c 65 74 65 20 24 66 69 6c 65 4e 61 e delete$fileNa
9d60: 6d 65 7d 20 65 72 72 6f 72 5d 5d 7d 20 74 68 65  me} error]]} the
9d70: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20  n {..
9d80: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   #..
9d90: 23 20 4e 4f 54 45 3a 20 57 65 20 73 6f 6d 65 68  # NOTE: We someh
9da0: 6f 77 20 66 61 69 6c 65 64 20 74 6f 20 64 65 6c  ow failed to del
9db0: 65 74 65 20 74 68 65 20 66 69 6c 65 2c 20 72 65  ete the file, re
9dc0: 70 6f 72 74 20 77 68 79 2e 0d 0a 20 20 20 20 20  port why...
9dd0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..
9de0: 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74        tputs $::t 9df0: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 est_channel [app 9e00: 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 endArgs \.. 9e10: 20 20 20 20 20 20 20 20 20 20 20 22 3d 3d 3d 3d "==== 9e20: 20 57 41 52 4e 49 4e 47 3a 20 66 61 69 6c 65 64 WARNING: failed 9e30: 20 74 6f 20 64 65 6c 65 74 65 20 64 61 74 61 62 to delete datab 9e40: 61 73 65 20 66 69 6c 65 20 5c 22 22 20 24 66 69 ase file \""$fi
9e50: 6c 65 4e 61 6d 65 20 5c 0d 0a 20 20 20 20 20 20  leName \..
9e60: 20 20 20 20 20 20 20 20 20 20 22 5c 22 20 64 75            "\" du
9e70: 72 69 6e 67 20 63 6c 65 61 6e 75 70 2c 20 65 72  ring cleanup, er
9e80: 72 6f 72 3a 20 22 20 5c 6e 5c 74 20 24 65 72 72  ror: " \n\t $err 9e90: 6f 72 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 or \n].. 9ea0: 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 20 65 }.. } e 9eb0: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 lse {.. 9ec0: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 #.. # 9ed0: 4e 4f 54 45 3a 20 53 68 6f 77 20 74 68 61 74 20 NOTE: Show that 9ee0: 77 65 20 73 6b 69 70 70 65 64 20 64 65 6c 65 74 we skipped delet 9ef0: 69 6e 67 20 74 68 65 20 66 69 6c 65 2e 0d 0a 20 ing the file... 9f00: 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 #.. 9f10: 20 20 20 20 20 20 73 65 74 20 63 6f 64 65 20 30 set code 0 9f20: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70 .... tp 9f30: 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e uts$::test_chan
9f40: 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20  nel [appendArgs
9f50: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  \..
9f60: 20 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e 47 3a 20   "==== WARNING:
9f70: 73 6b 69 70 70 65 64 20 64 65 6c 65 74 69 6e 67  skipped deleting
9f80: 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 20 5c   database file \
9f90: 22 22 20 24 66 69 6c 65 4e 61 6d 65 20 5c 0d 0a  "" $fileName \.. 9fa0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5c "\ 9fb0: 22 20 64 75 72 69 6e 67 20 63 6c 65 61 6e 75 70 " during cleanup 9fc0: 5c 6e 22 5d 0d 0a 20 20 20 20 20 20 20 20 7d 0d \n"].. }. 9fd0: 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d . } else {. 9fe0: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #.. 9ff0: 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 65 20 # NOTE: The a000: 66 69 6c 65 20 64 6f 65 73 20 6e 6f 74 20 65 78 file does not ex a010: 69 73 74 2c 20 73 75 63 63 65 73 73 21 0d 0a 20 ist, success!.. a020: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #.. a030: 20 20 73 65 74 20 63 6f 64 65 20 30 0d 0a 20 20 set code 0.. a040: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 72 }.... r a050: 65 74 75 72 6e 20 24 63 6f 64 65 0d 0a 20 20 20 eturn$code..
a060: 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20   }.....    proc
a070: 63 6c 65 61 6e 75 70 46 69 6c 65 20 7b 20 66 69  cleanupFile { fi
a080: 6c 65 4e 61 6d 65 20 7b 63 6f 6c 6c 65 63 74 20  leName {collect
a090: 74 72 75 65 7d 20 7b 66 6f 72 63 65 20 66 61 6c  true} {force fal
a0a0: 73 65 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 20 23  se} } {..      #
a0b0: 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20  ..      # NOTE:
a0c0: 41 74 74 65 6d 70 74 20 74 6f 20 66 6f 72 63 65  Attempt to force
a0d0: 20 61 6c 6c 20 70 65 6e 64 69 6e 67 20 22 67 61   all pending "ga
a0e0: 72 62 61 67 65 22 20 6f 62 6a 65 63 74 73 20 74  rbage" objects t
a0f0: 6f 20 62 65 20 63 6f 6c 6c 65 63 74 65 64 2c 0d  o be collected,.
a100: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 69  .      #       i
a110: 6e 63 6c 75 64 69 6e 67 20 53 51 4c 69 74 65 20  ncluding SQLite
a120: 73 74 61 74 65 6d 65 6e 74 73 20 61 6e 64 20 62  statements and b
a130: 61 63 6b 75 70 20 6f 62 6a 65 63 74 73 3b 20 74  ackup objects; t
a140: 68 69 73 20 73 68 6f 75 6c 64 20 61 6c 6c 6f 77  his should allow
a150: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20  ..      #
a160: 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 64  the underlying d
a170: 61 74 61 62 61 73 65 20 66 69 6c 65 20 74 6f 20  atabase file to
a180: 62 65 20 64 65 6c 65 74 65 64 2e 0d 0a 20 20 20  be deleted...
a190: 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b     #..      if {
a1a0: 24 63 6f 6c 6c 65 63 74 7d 20 74 68 65 6e 20 7b  $collect} then { a1b0: 0d 0a 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 .. collec a1c0: 74 47 61 72 62 61 67 65 20 24 3a 3a 74 65 73 74 tGarbage$::test
a1d0: 5f 63 68 61 6e 6e 65 6c 0d 0a 20 20 20 20 20 20  _channel..
a1e0: 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  }....      #..
a1f0: 20 20 20 20 23 20 4e 4f 54 45 3a 20 43 68 65 63      # NOTE: Chec
a200: 6b 20 69 66 20 74 68 65 20 66 69 6c 65 20 73 74  k if the file st
a210: 69 6c 6c 20 65 78 69 73 74 73 2e 0d 0a 20 20 20  ill exists...
a220: 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b     #..      if {
a230: 5b 66 69 6c 65 20 65 78 69 73 74 73 20 24 66 69  [file exists $fi a240: 6c 65 4e 61 6d 65 5d 7d 20 74 68 65 6e 20 7b 0d leName]} then {. a250: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #.. a260: 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 6b 69 70 # NOTE: Skip a270: 20 64 65 6c 65 74 69 6e 67 20 74 65 73 74 20 66 deleting test f a280: 69 6c 65 73 20 69 66 20 73 6f 6d 65 62 6f 64 79 iles if somebody a290: 20 73 65 74 73 20 74 68 65 20 67 6c 6f 62 61 6c sets the global a2a0: 20 76 61 72 69 61 62 6c 65 0d 0a 20 20 20 20 20 variable.. a2b0: 20 20 20 23 20 20 20 20 20 20 20 74 6f 20 70 72 # to pr a2c0: 65 76 65 6e 74 20 69 74 2e 0d 0a 20 20 20 20 20 event it... a2d0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 69 66 #.. if a2e0: 20 7b 24 66 6f 72 63 65 20 7c 7c 20 21 5b 69 6e {$force || ![in
a2f0: 66 6f 20 65 78 69 73 74 73 20 3a 3a 6e 6f 28 63  fo exists ::no(c
a300: 6c 65 61 6e 75 70 46 69 6c 65 29 5d 7d 20 74 68  leanupFile)]} th
a310: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20  en {..
a320: 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e  #..          # N
a330: 4f 54 45 3a 20 41 74 74 65 6d 70 74 20 74 6f 20  OTE: Attempt to
a340: 64 65 6c 65 74 65 20 74 68 65 20 74 65 73 74 20  delete the test
a350: 66 69 6c 65 20 6e 6f 77 2e 0d 0a 20 20 20 20 20  file now...
a360: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..
a370: 20 20 69 66 20 7b 5b 73 65 74 20 63 6f 64 65 20    if {[set code
a380: 5b 63 61 74 63 68 20 7b 66 69 6c 65 20 64 65 6c  [catch {file del
a390: 65 74 65 20 24 66 69 6c 65 4e 61 6d 65 7d 20 65  ete $fileName} e a3a0: 72 72 6f 72 5d 5d 7d 20 74 68 65 6e 20 7b 0d 0a rror]]} then {.. a3b0: 20 20 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 #.. a3c0: 20 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 # NOT a3d0: 45 3a 20 57 65 20 73 6f 6d 65 68 6f 77 20 66 61 E: We somehow fa a3e0: 69 6c 65 64 20 74 6f 20 64 65 6c 65 74 65 20 74 iled to delete t a3f0: 68 65 20 66 69 6c 65 2c 20 72 65 70 6f 72 74 20 he file, report a400: 77 68 79 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 why... a410: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 20 #.. a420: 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 tputs$::test_c
a430: 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72  hannel [appendAr
a440: 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  gs \..
a450: 20 20 20 20 20 20 22 3d 3d 3d 3d 20 57 41 52 4e        "==== WARN
a460: 49 4e 47 3a 20 66 61 69 6c 65 64 20 74 6f 20 64  ING: failed to d
a470: 65 6c 65 74 65 20 74 65 73 74 20 66 69 6c 65 20  elete test file
a480: 5c 22 22 20 24 66 69 6c 65 4e 61 6d 65 20 5c 0d  \"" $fileName \. a490: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 . a4a0: 20 22 5c 22 20 64 75 72 69 6e 67 20 63 6c 65 61 "\" during clea a4b0: 6e 75 70 2c 20 65 72 72 6f 72 3a 20 22 20 5c 6e nup, error: " \n a4c0: 5c 74 20 24 65 72 72 6f 72 20 5c 6e 5d 0d 0a 20 \t$error \n]..
a4d0: 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20           }..
a4e0: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20      } else {..
a4f0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..
a500: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 68 6f       # NOTE: Sho
a510: 77 20 74 68 61 74 20 77 65 20 73 6b 69 70 70 65  w that we skippe
a520: 64 20 64 65 6c 65 74 69 6e 67 20 74 68 65 20 66  d deleting the f
a530: 69 6c 65 2e 0d 0a 20 20 20 20 20 20 20 20 20 20  ile...
a540: 23 0d 0a 20 20 20 20 20 20 20 20 20 20 73 65 74  #..          set
a550: 20 63 6f 64 65 20 30 0d 0a 0d 0a 20 20 20 20 20   code 0....
a560: 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65       tputs $::te a570: 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 st_channel [appe a580: 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 ndArgs \.. a590: 20 20 20 20 20 20 20 20 22 3d 3d 3d 3d 20 57 41 "==== WA a5a0: 52 4e 49 4e 47 3a 20 73 6b 69 70 70 65 64 20 64 RNING: skipped d a5b0: 65 6c 65 74 69 6e 67 20 74 65 73 74 20 66 69 6c eleting test fil a5c0: 65 20 5c 22 22 20 24 66 69 6c 65 4e 61 6d 65 20 e \""$fileName
a5d0: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  \..
a5e0: 20 22 5c 22 20 64 75 72 69 6e 67 20 63 6c 65 61   "\" during clea
a5f0: 6e 75 70 5c 6e 22 5d 0d 0a 20 20 20 20 20 20 20  nup\n"]..
a600: 20 7d 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65   }..      } else
a610: 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20   {..        #..
a620: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 54         # NOTE: T
a630: 68 65 20 66 69 6c 65 20 64 6f 65 73 20 6e 6f 74  he file does not
a640: 20 65 78 69 73 74 2c 20 73 75 63 63 65 73 73 21   exist, success!
a650: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20  ..        #..
a660: 20 20 20 20 20 73 65 74 20 63 6f 64 65 20 30 0d       set code 0.
a670: 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20  .      }....
a680: 20 20 72 65 74 75 72 6e 20 24 63 6f 64 65 0d 0a    return $code.. a690: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 }..... pr a6a0: 6f 63 20 63 6f 6c 6c 65 63 74 47 61 72 62 61 67 oc collectGarbag a6b0: 65 20 7b 20 63 68 61 6e 6e 65 6c 20 7b 6d 69 6c e { channel {mil a6c0: 6c 69 73 65 63 6f 6e 64 73 20 31 30 30 30 7d 20 liseconds 1000} a6d0: 7b 71 75 69 65 74 20 74 72 75 65 7d 20 7d 20 7b {quiet true} } { a6e0: 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 .. if {[cat a6f0: 63 68 20 7b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b ch {object invok a700: 65 20 47 43 20 47 65 74 54 6f 74 61 6c 4d 65 6d e GC GetTotalMem a710: 6f 72 79 20 66 61 6c 73 65 7d 20 72 65 73 75 6c ory false} resul a720: 74 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d t] == 0} then {. a730: 0a 20 20 20 20 20 20 20 20 69 66 20 7b 21 24 71 . if {!$q
a740: 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  uiet} then {..
a750: 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63          tputs $c a760: 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 hannel [appendAr a770: 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 gs \.. a780: 20 20 20 20 22 2d 2d 2d 2d 20 6d 65 6d 6f 72 79 "---- memory a790: 20 69 6e 20 75 73 65 20 62 79 20 74 68 65 20 43 in use by the C a7a0: 4c 52 20 62 65 66 6f 72 65 20 63 6f 6c 6c 65 63 LR before collec a7b0: 74 69 6f 6e 2e 2e 2e 20 22 20 5c 0d 0a 20 20 20 tion... " \.. a7c0: 20 20 20 20 20 20 20 20 20 20 20 24 72 65 73 75$resu
a7d0: 6c 74 20 22 20 62 79 74 65 73 5c 6e 22 5d 0d 0a  lt " bytes\n"]..
a7e0: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20          }..
a7f0: 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20   } else {..
a800: 20 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65     tputs $channe a810: 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d l [appendArgs \. a820: 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 3d 3d . "== a830: 3d 3d 20 57 41 52 4e 49 4e 47 3a 20 66 61 69 6c == WARNING: fail a840: 65 64 20 74 6f 20 67 65 74 20 43 4c 52 20 6d 65 ed to get CLR me a850: 6d 6f 72 79 20 75 73 61 67 65 2c 20 65 72 72 6f mory usage, erro a860: 72 3a 20 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 r: " \.. a870: 20 20 20 20 5c 6e 5c 74 20 24 72 65 73 75 6c 74 \n\t$result
a880: 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d   \n]..      }...
a890: 0a 20 20 20 20 20 20 23 23 23 23 23 23 23 23 23  .      #########
a8a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
a8b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
a8c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
a8d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
a8e0: 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20  ....      #..
a8f0: 20 20 20 23 20 4e 4f 54 45 3a 20 52 65 70 65 61     # NOTE: Repea
a900: 74 65 64 6c 79 20 61 74 74 65 6d 70 74 20 74 6f  tedly attempt to
a910: 20 63 6f 6c 6c 65 63 74 20 67 61 72 62 61 67 65   collect garbage
a920: 20 75 6e 74 69 6c 20 74 68 65 20 61 6c 6c 6f 74   until the allot
a930: 74 65 64 20 6e 75 6d 62 65 72 0d 0a 20 20 20 20  ted number..
a940: 20 20 23 20 20 20 20 20 20 20 6f 66 20 6d 69 6c    #       of mil
a950: 6c 69 73 65 63 6f 6e 64 73 20 68 61 73 20 65 6c  liseconds has el
a960: 61 70 73 65 64 2e 20 20 41 6c 77 61 79 73 20 61  apsed.  Always a
a970: 74 74 65 6d 70 74 20 74 6f 20 63 6f 6c 6c 65 63  ttempt to collec
a980: 74 20 67 61 72 62 61 67 65 0d 0a 20 20 20 20 20  t garbage..
a990: 20 23 20 20 20 20 20 20 20 61 74 20 6c 65 61 73   #       at leas
a9a0: 74 20 6f 6e 63 65 2e 0d 0a 20 20 20 20 20 20 23  t once...      #
a9b0: 0d 0a 20 20 20 20 20 20 73 65 74 20 73 74 61 72  ..      set star
a9c0: 74 20 5b 63 6c 6f 63 6b 20 73 65 63 6f 6e 64 73  t [clock seconds
a9d0: 5d 0d 0a 20 20 20 20 20 20 73 65 74 20 73 74 6f  ]..      set sto
a9e0: 70 20 5b 65 78 70 72 20 7b 24 73 74 61 72 74 20  p [expr {$start a9f0: 2b 20 28 24 6d 69 6c 6c 69 73 65 63 6f 6e 64 73 + ($milliseconds
aa00: 20 2f 20 31 30 30 30 29 7d 5d 0d 0a 0d 0a 20 20   / 1000)}]....
aa10: 20 20 20 20 64 6f 20 7b 0d 0a 20 20 20 20 20 20      do {..
aa20: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e    #..        # N
aa30: 4f 54 45 3a 20 41 74 74 65 6d 70 74 20 74 6f 20  OTE: Attempt to
aa40: 66 6f 72 63 65 20 61 20 66 75 6c 6c 20 67 61 72  force a full gar
aa50: 62 61 67 65 20 63 6f 6c 6c 65 63 74 69 6f 6e 20  bage collection
aa60: 6e 6f 77 2e 20 20 52 65 70 6f 72 74 20 61 6e 79  now.  Report any
aa70: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20  ..        #
aa80: 20 20 65 72 72 6f 72 20 74 68 61 74 20 69 73 20    error that is
aa90: 65 6e 63 6f 75 6e 74 65 72 65 64 20 69 66 20 77  encountered if w
aaa0: 65 20 66 61 69 6c 2e 0d 0a 20 20 20 20 20 20 20  e fail...
aab0: 20 23 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b   #..        if {
aac0: 5b 63 61 74 63 68 20 7b 6f 62 6a 65 63 74 20 69  [catch {object i
aad0: 6e 76 6f 6b 65 20 47 43 20 47 65 74 54 6f 74 61  nvoke GC GetTota
aae0: 6c 4d 65 6d 6f 72 79 20 74 72 75 65 7d 20 65 72  lMemory true} er
aaf0: 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  ror]} then {..
ab00: 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63          tputs $c ab10: 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 hannel [appendAr ab20: 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 gs \.. ab30: 20 20 20 20 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e "==== WARNIN ab40: 47 3a 20 66 61 69 6c 65 64 20 66 75 6c 6c 20 67 G: failed full g ab50: 61 72 62 61 67 65 20 63 6f 6c 6c 65 63 74 69 6f arbage collectio ab60: 6e 2c 20 65 72 72 6f 72 3a 20 22 20 5c 0d 0a 20 n, error: " \.. ab70: 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 6e 5c \n\ ab80: 74 20 24 65 72 72 6f 72 20 5c 6e 5d 0d 0a 20 20 t$error \n]..
ab90: 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20        }....
aba0: 20 20 20 73 65 74 20 6e 6f 77 20 5b 63 6c 6f 63     set now [cloc
abb0: 6b 20 73 65 63 6f 6e 64 73 5d 0d 0a 20 20 20 20  k seconds]..
abc0: 20 20 7d 20 77 68 69 6c 65 20 7b 24 73 74 61 72    } while {$star abd0: 74 20 3c 3d 20 24 6e 6f 77 20 26 26 20 24 6e 6f t <=$now && $no abe0: 77 20 3c 20 24 73 74 6f 70 7d 0d 0a 0d 0a 20 20 w <$stop}....
abf0: 20 20 20 20 23 23 23 23 23 23 23 23 23 23 23 23      ############
ac00: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
ac10: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
ac20: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
ac30: 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d  #############...
ac40: 0a 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63  .      if {[catc
ac50: 68 20 7b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65  h {object invoke
ac60: 20 47 43 20 47 65 74 54 6f 74 61 6c 4d 65 6d 6f   GC GetTotalMemo
ac70: 72 79 20 66 61 6c 73 65 7d 20 72 65 73 75 6c 74  ry false} result
ac80: 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a  ] == 0} then {..
ac90: 20 20 20 20 20 20 20 20 69 66 20 7b 21 24 71 75          if {!$qu aca0: 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 iet} then {.. acb0: 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68 tputs$ch
acc0: 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67  annel [appendArg
acd0: 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20  s \..
ace0: 20 20 20 22 2d 2d 2d 2d 20 6d 65 6d 6f 72 79 20     "---- memory
acf0: 69 6e 20 75 73 65 20 62 79 20 74 68 65 20 43 4c  in use by the CL
ad00: 52 20 61 66 74 65 72 20 63 6f 6c 6c 65 63 74 69  R after collecti
ad10: 6f 6e 2e 2e 2e 20 22 20 5c 0d 0a 20 20 20 20 20  on... " \..
ad20: 20 20 20 20 20 20 20 20 20 24 72 65 73 75 6c 74           $result ad30: 20 22 20 62 79 74 65 73 5c 6e 22 5d 0d 0a 20 20 " bytes\n"].. ad40: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d }.. } ad50: 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 else {.. ad60: 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 tputs$channel
ad70: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20  [appendArgs \..
ad80: 20 20 20 20 20 20 20 20 20 20 20 22 3d 3d 3d 3d             "====
ad90: 20 57 41 52 4e 49 4e 47 3a 20 66 61 69 6c 65 64   WARNING: failed
ada0: 20 74 6f 20 67 65 74 20 43 4c 52 20 6d 65 6d 6f   to get CLR memo
adb0: 72 79 20 75 73 61 67 65 2c 20 65 72 72 6f 72 3a  ry usage, error:
adc0: 20 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20   " \..
add0: 20 20 5c 6e 5c 74 20 24 72 65 73 75 6c 74 20 5c    \n\t $result \ ade0: 6e 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 n].. }.. adf0: 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 }..... proc ae00: 67 65 74 53 51 4c 69 74 65 48 61 6e 64 6c 65 43 getSQLiteHandleC ae10: 6f 75 6e 74 73 20 7b 20 63 68 61 6e 6e 65 6c 20 ounts { channel ae20: 7b 71 75 69 65 74 20 66 61 6c 73 65 7d 20 7d 20 {quiet false} } ae30: 7b 0d 0a 20 20 20 20 20 20 73 65 74 20 72 65 73 {.. set res ae40: 75 6c 74 20 5b 6c 69 73 74 5d 0d 0a 0d 0a 20 20 ult [list].... ae50: 20 20 20 20 69 66 20 7b 5b 68 61 76 65 43 6f 6e if {[haveCon ae60: 73 74 72 61 69 6e 74 20 5c 0d 0a 20 20 20 20 20 straint \.. ae70: 20 20 20 20 20 20 20 20 20 64 65 66 69 6e 65 43 defineC ae80: 6f 6e 73 74 61 6e 74 2e 53 79 73 74 65 6d 2e 44 onstant.System.D ae90: 61 74 61 2e 53 51 4c 69 74 65 2e 43 4f 55 4e 54 ata.SQLite.COUNT aea0: 5f 48 41 4e 44 4c 45 5d 7d 20 74 68 65 6e 20 7b _HANDLE]} then { aeb0: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #.. aec0: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 41 64 64 # NOTE: Add aed0: 20 65 61 63 68 20 63 72 69 74 69 63 61 6c 20 68 each critical h aee0: 61 6e 64 6c 65 20 63 6f 75 6e 74 20 74 6f 20 74 andle count to t aef0: 68 65 20 72 65 73 75 6c 74 69 6e 67 20 6c 69 73 he resulting lis af00: 74 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 t... #.. af10: 20 20 20 20 20 20 20 66 6f 72 65 61 63 68 20 6e foreach n af20: 61 6d 65 20 5b 6c 69 73 74 20 63 6f 6e 6e 65 63 ame [list connec af30: 74 69 6f 6e 43 6f 75 6e 74 20 73 74 61 74 65 6d tionCount statem af40: 65 6e 74 43 6f 75 6e 74 20 62 61 63 6b 75 70 43 entCount backupC af50: 6f 75 6e 74 5d 20 7b 0d 0a 20 20 20 20 20 20 20 ount] {.. af60: 20 20 20 73 65 74 20 76 61 6c 75 65 20 5b 6f 62 set value [ob af70: 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d 66 6c 61 ject invoke -fla af80: 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 5c 0d gs +NonPublic \. af90: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 . S afa0: 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 ystem.Data.SQLit afb0: 65 2e 55 6e 73 61 66 65 4e 61 74 69 76 65 4d 65 e.UnsafeNativeMe afc0: 74 68 6f 64 73 20 24 6e 61 6d 65 5d 0d 0a 0d 0a thods$name]....
afd0: 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 21 24            if {!$afe0: 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 quiet} then {.. aff0: 20 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 tputs b000: 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e$channel [appen
b010: 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20  dArgs \..
b020: 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 63           "---- c
b030: 72 69 74 69 63 61 6c 20 68 61 6e 64 6c 65 20 63  ritical handle c
b040: 6f 75 6e 74 20 5c 22 22 20 24 6e 61 6d 65 20 22  ount \"" $name " b050: 5c 22 20 69 73 20 22 20 24 76 61 6c 75 65 20 5c \" is "$value \
b060: 6e 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d  n]..          }.
b070: 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 6c 61 70  ...          lap
b080: 70 65 6e 64 20 72 65 73 75 6c 74 20 24 76 61 6c  pend result $val b090: 75 65 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 ue.. }.. b0a0: 20 20 20 20 20 7d 20 65 6c 73 65 69 66 20 7b 21 } elseif {! b0b0: 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a$quiet} then {..
b0c0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..
b0d0: 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 65 20 61     # NOTE: The a
b0e0: 63 74 75 61 6c 20 68 61 6e 64 6c 65 20 63 6f 75  ctual handle cou
b0f0: 6e 74 73 20 61 72 65 20 6e 6f 74 20 61 76 61 69  nts are not avai
b100: 6c 61 62 6c 65 3b 20 74 68 65 72 65 66 6f 72 65  lable; therefore
b110: 2c 20 6a 75 73 74 0d 0a 20 20 20 20 20 20 20 20  , just..
b120: 23 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 61  #       return a
b130: 6e 20 65 6d 70 74 79 20 6c 69 73 74 2e 0d 0a 20  n empty list...
b140: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..
b150: 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c    tputs $channel b160: 20 22 2d 2d 2d 2d 20 63 72 69 74 69 63 61 6c 20 "---- critical b170: 68 61 6e 64 6c 65 20 63 6f 75 6e 74 73 20 75 6e handle counts un b180: 61 76 61 69 6c 61 62 6c 65 5c 6e 22 0d 0a 20 20 available\n".. b190: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 72 }.... r b1a0: 65 74 75 72 6e 20 24 72 65 73 75 6c 74 0d 0a 20 eturn$result..
b1b0: 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f     }.....    pro
b1c0: 63 20 73 68 75 74 64 6f 77 6e 53 51 4c 69 74 65  c shutdownSQLite
b1d0: 20 7b 20 63 68 61 6e 6e 65 6c 20 7b 66 6f 72 63   { channel {forc
b1e0: 65 20 66 61 6c 73 65 7d 20 7b 71 75 69 65 74 20  e false} {quiet
b1f0: 66 61 6c 73 65 7d 20 7d 20 7b 0d 0a 20 20 20 20  false} } {..
b200: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54    #..      # NOT
b210: 45 3a 20 4d 61 6b 65 20 73 75 72 65 20 74 68 61  E: Make sure tha
b220: 74 20 53 51 4c 69 74 65 20 63 6f 72 65 20 6c 69  t SQLite core li
b230: 62 72 61 72 79 20 69 73 20 63 6f 6d 70 6c 65 74  brary is complet
b240: 65 6c 79 20 73 68 75 74 64 6f 77 6e 2e 20 20 54  ely shutdown.  T
b250: 68 69 73 0d 0a 20 20 20 20 20 20 23 20 20 20 20  his..      #
b260: 20 20 20 69 73 20 75 73 65 64 20 62 79 20 74 65     is used by te
b270: 73 74 73 20 74 68 61 74 20 63 68 61 6e 67 65 20  sts that change
b280: 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 6f 70  configuration op
b290: 74 69 6f 6e 73 20 61 6e 64 2f 6f 72 20 74 68 6f  tions and/or tho
b2a0: 73 65 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20  se..      #
b2b0: 20 20 74 68 61 74 20 6e 65 65 64 20 74 6f 20 6d    that need to m
b2c0: 61 6b 65 20 73 75 72 65 20 6c 6f 67 67 69 6e 67  ake sure logging
b2d0: 20 69 73 20 69 6e 69 74 69 61 6c 69 7a 65 64 20   is initialized
b2e0: 28 69 2e 65 2e 20 6a 75 73 74 20 69 6e 20 63 61  (i.e. just in ca
b2f0: 73 65 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20  se..      #
b300: 20 20 74 68 65 20 53 51 4c 69 74 65 20 63 6f 72    the SQLite cor
b310: 65 20 6c 69 62 72 61 72 79 20 77 61 73 20 69 6e  e library was in
b320: 69 74 69 61 6c 69 7a 65 64 20 69 6e 20 74 68 65  itialized in the
b330: 20 70 72 6f 63 65 73 73 20 70 72 69 6f 72 20 74   process prior t
b340: 6f 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20  o..      #
b350: 20 74 68 65 20 53 51 4c 69 74 65 4c 6f 67 20 63   the SQLiteLog c
b360: 6c 61 73 73 20 62 65 69 6e 67 20 61 62 6c 65 20  lass being able
b370: 74 6f 20 73 65 74 75 70 20 69 74 73 20 6c 6f 67  to setup its log
b380: 67 69 6e 67 20 63 61 6c 6c 62 61 63 6b 29 2e 0d  ging callback)..
b390: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 4e  .      #       N
b3a0: 6f 72 6d 61 6c 6c 79 2c 20 74 68 69 73 20 73 68  ormally, this sh
b3b0: 6f 75 6c 64 20 6f 6e 6c 79 20 62 65 20 70 65 72  ould only be per
b3c0: 66 6f 72 6d 65 64 20 69 66 20 53 51 4c 69 74 65  formed if SQLite
b3d0: 20 69 73 20 6c 6f 61 64 65 64 20 61 6e 64 0d 0a   is loaded and..
b3e0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 72 65        #       re
b3f0: 61 64 79 20 66 6f 72 20 75 73 65 20 62 79 20 74  ady for use by t
b400: 68 65 20 74 65 73 74 20 73 75 69 74 65 2e 0d 0a  he test suite...
b410: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69        #..      i
b420: 66 20 7b 24 66 6f 72 63 65 20 7c 7c 20 5b 69 73  f {$force || [is b430: 53 51 4c 69 74 65 52 65 61 64 79 5d 7d 20 74 68 SQLiteReady]} th b440: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d en {.. #. b450: 0a 20 20 20 20 20 20 20 20 23 20 42 55 47 46 49 . # BUGFI b460: 58 3a 20 42 65 66 6f 72 65 20 63 61 6c 6c 69 6e X: Before callin b470: 67 20 74 68 65 20 6e 61 74 69 76 65 20 73 68 75 g the native shu b480: 74 64 6f 77 6e 20 66 75 6e 63 74 69 6f 6e 2c 20 tdown function, b490: 6d 61 6b 65 20 73 75 72 65 20 62 6f 74 68 0d 0a make sure both.. b4a0: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 # b4b0: 20 20 6f 66 20 74 68 65 20 50 52 41 47 4d 41 20 of the PRAGMA b4c0: 72 65 6c 61 74 65 64 20 64 69 72 65 63 74 6f 72 related director b4d0: 79 20 6e 61 6d 65 73 20 61 72 65 20 66 72 65 65 y names are free b4e0: 64 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 d... #.. b4f0: 20 20 20 20 20 20 20 63 68 65 63 6b 46 6f 72 53 checkForS b500: 51 4c 69 74 65 44 69 72 65 63 74 6f 72 69 65 73 QLiteDirectories b510: 20 24 63 68 61 6e 6e 65 6c 20 74 72 75 65 0d 0a$channel true..
b520: 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b 63  ..        if {[c
b530: 61 74 63 68 20 7b 6f 62 6a 65 63 74 20 69 6e 76  atch {object inv
b540: 6f 6b 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50  oke -flags +NonP
b550: 75 62 6c 69 63 20 5c 0d 0a 20 20 20 20 20 20 20  ublic \..
b560: 20 20 20 20 20 20 20 20 20 53 79 73 74 65 6d 2e           System.
b570: 44 61 74 61 2e 53 51 4c 69 74 65 2e 55 6e 73 61  Data.SQLite.Unsa
b580: 66 65 4e 61 74 69 76 65 4d 65 74 68 6f 64 73 20  feNativeMethods
b590: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  \..
b5a0: 20 20 20 73 71 6c 69 74 65 33 5f 73 68 75 74 64     sqlite3_shutd
b5b0: 6f 77 6e 7d 20 72 65 73 75 6c 74 5d 20 3d 3d 20  own} result] ==
b5c0: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  0} then {..
b5d0: 20 20 20 20 20 69 66 20 7b 21 24 71 75 69 65 74       if {!$quiet b5e0: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {.. b5f0: 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68 61 tputs$cha
b600: 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73  nnel [appendArgs
b610: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   \..
b620: 20 20 20 20 22 2d 2d 2d 2d 20 63 61 6c 6c 20 73      "---- call s
b630: 71 6c 69 74 65 33 5f 73 68 75 74 64 6f 77 6e 28  qlite3_shutdown(
b640: 29 2e 2e 2e 20 6f 6b 3a 20 22 20 24 72 65 73 75  )... ok: " $resu b650: 6c 74 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 lt \n].. b660: 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 20 65 }.. } e b670: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 lse {.. b680: 20 69 66 20 7b 21 24 71 75 69 65 74 7d 20 74 68 if {!$quiet} th
b690: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20  en {..
b6a0: 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c    tputs $channel b6b0: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a [appendArgs \.. b6c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 b6d0: 22 2d 2d 2d 2d 20 63 61 6c 6c 20 73 71 6c 69 74 "---- call sqlit b6e0: 65 33 5f 73 68 75 74 64 6f 77 6e 28 29 2e 2e 2e e3_shutdown()... b6f0: 20 65 72 72 6f 72 3a 20 22 20 5c 6e 5c 74 20 24 error: " \n\t$
b700: 72 65 73 75 6c 74 20 5c 6e 5d 0d 0a 20 20 20 20  result \n]..
b710: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20        }..
b720: 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20   }..      }..
b730: 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20   }.....    proc
b740: 72 65 70 6f 72 74 53 51 4c 69 74 65 52 65 73 6f  reportSQLiteReso
b750: 75 72 63 65 73 20 7b 20 63 68 61 6e 6e 65 6c 20  urces { channel
b760: 7b 71 75 69 65 74 20 66 61 6c 73 65 7d 20 7b 63  {quiet false} {c
b770: 6f 6c 6c 65 63 74 20 74 72 75 65 7d 20 7d 20 7b  ollect true} } {
b780: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20  ..      #..
b790: 20 23 20 4e 4f 54 45 3a 20 53 6b 69 70 20 61 6c   # NOTE: Skip al
b7a0: 6c 20 6f 75 74 70 75 74 20 69 66 20 77 65 20 61  l output if we a
b7b0: 72 65 20 72 75 6e 6e 69 6e 67 20 69 6e 20 22 71  re running in "q
b7c0: 75 69 65 74 22 20 6d 6f 64 65 2e 0d 0a 20 20 20  uiet" mode...
b7d0: 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b     #..      if {
b7e0: 21 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d  !$quiet} then {. b7f0: 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 . tputs$
b800: 63 68 61 6e 6e 65 6c 20 22 2d 2d 2d 2d 20 63 75  channel "---- cu
b810: 72 72 65 6e 74 20 6d 65 6d 6f 72 79 20 69 6e 20  rrent memory in
b820: 75 73 65 20 62 79 20 53 51 4c 69 74 65 2e 2e 2e  use by SQLite...
b830: 20 22 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20   "..      }....
b840: 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20       if {[catch
b850: 7b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d  {object invoke -
b860: 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 63  flags +NonPublic
b870: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   \..
b880: 20 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51    System.Data.SQ
b890: 4c 69 74 65 2e 55 6e 73 61 66 65 4e 61 74 69 76  Lite.UnsafeNativ
b8a0: 65 4d 65 74 68 6f 64 73 20 5c 0d 0a 20 20 20 20  eMethods \..
b8b0: 20 20 20 20 20 20 20 20 20 20 73 71 6c 69 74 65            sqlite
b8c0: 33 5f 6d 65 6d 6f 72 79 5f 75 73 65 64 7d 20 6d  3_memory_used} m
b8d0: 65 6d 6f 72 79 5d 20 3d 3d 20 30 7d 20 74 68 65  emory] == 0} the
b8e0: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 69 66 20  n {..        if
b8f0: 7b 21 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b  {!$quiet} then { b900: 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70 75 74 .. tput b910: 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 s$channel [appe
b920: 6e 64 41 72 67 73 20 24 6d 65 6d 6f 72 79 20 22  ndArgs $memory " b930: 20 62 79 74 65 73 5c 6e 22 5d 0d 0a 20 20 20 20 bytes\n"].. b940: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 20 65 }.. } e b950: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 lse {.. # b960: 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 .. # NOTE b970: 3a 20 4d 61 79 62 65 20 74 68 65 20 53 51 4c 69 : Maybe the SQLi b980: 74 65 20 63 6f 72 65 20 6c 69 62 72 61 72 79 20 te core library b990: 69 73 20 75 6e 61 76 61 69 6c 61 62 6c 65 3f 0d is unavailable?. b9a0: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #.. b9b0: 20 20 20 20 73 65 74 20 6d 65 6d 6f 72 79 20 75 set memory u b9c0: 6e 6b 6e 6f 77 6e 0d 0a 0d 0a 20 20 20 20 20 20 nknown.... b9d0: 20 20 69 66 20 7b 21 24 71 75 69 65 74 7d 20 74 if {!$quiet} t
b9e0: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  hen {..
b9f0: 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20   tputs $channel ba00: 5b 61 70 70 65 6e 64 41 72 67 73 20 24 6d 65 6d [appendArgs$mem
ba10: 6f 72 79 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20  ory \n]..
ba20: 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20   }..      }....
ba30: 20 20 20 20 20 73 65 74 20 72 65 73 75 6c 74 20       set result
ba40: 24 6d 65 6d 6f 72 79 3b 20 23 20 4e 4f 54 45 3a  $memory; # NOTE: ba50: 20 52 65 74 75 72 6e 20 6d 65 6d 6f 72 79 20 69 Return memory i ba60: 6e 2d 75 73 65 20 74 6f 20 6f 75 72 20 63 61 6c n-use to our cal ba70: 6c 65 72 2e 0d 0a 0d 0a 20 20 20 20 20 20 69 66 ler..... if ba80: 20 7b 21 24 71 75 69 65 74 7d 20 74 68 65 6e 20 {!$quiet} then
ba90: 7b 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73  {..        tputs
baa0: 20 24 63 68 61 6e 6e 65 6c 20 22 2d 2d 2d 2d 20   $channel "---- bab0: 6d 61 78 69 6d 75 6d 20 6d 65 6d 6f 72 79 20 69 maximum memory i bac0: 6e 20 75 73 65 20 62 79 20 53 51 4c 69 74 65 2e n use by SQLite. bad0: 2e 2e 20 22 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d .. ".. }... bae0: 0a 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 . if {[catc baf0: 68 20 7b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 h {object invoke bb00: 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 6c -flags +NonPubl bb10: 69 63 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 ic \.. bb20: 20 20 20 20 53 79 73 74 65 6d 2e 44 61 74 61 2e System.Data. bb30: 53 51 4c 69 74 65 2e 55 6e 73 61 66 65 4e 61 74 SQLite.UnsafeNat bb40: 69 76 65 4d 65 74 68 6f 64 73 20 5c 0d 0a 20 20 iveMethods \.. bb50: 20 20 20 20 20 20 20 20 20 20 20 20 73 71 6c 69 sqli bb60: 74 65 33 5f 6d 65 6d 6f 72 79 5f 68 69 67 68 77 te3_memory_highw bb70: 61 74 65 72 20 30 7d 20 6d 65 6d 6f 72 79 5d 20 ater 0} memory] bb80: 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 == 0} then {.. bb90: 20 20 20 20 20 20 69 66 20 7b 21 24 71 75 69 65 if {!$quie
bba0: 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  t} then {..
bbb0: 20 20 20 20 20 74 70 75 74 73 20 24 63 68 61 6e       tputs $chan bbc0: 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 nel [appendArgs bbd0: 24 6d 65 6d 6f 72 79 20 22 20 62 79 74 65 73 5c$memory " bytes\
bbe0: 6e 22 5d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a  n"]..        }..
bbf0: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a        } else {..
bc00: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..
bc10: 20 20 20 23 20 4e 4f 54 45 3a 20 4d 61 79 62 65     # NOTE: Maybe
bc20: 20 74 68 65 20 53 51 4c 69 74 65 20 63 6f 72 65   the SQLite core
bc30: 20 6c 69 62 72 61 72 79 20 69 73 20 75 6e 61 76   library is unav
bc40: 61 69 6c 61 62 6c 65 3f 0d 0a 20 20 20 20 20 20  ailable?..
bc50: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 73 65 74    #..        set
bc60: 20 6d 65 6d 6f 72 79 20 75 6e 6b 6e 6f 77 6e 0d   memory unknown.
bc70: 0a 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 21  ...        if {!
bc80: 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a  $quiet} then {.. bc90: 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 tputs bca0: 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64$channel [append
bcb0: 41 72 67 73 20 24 6d 65 6d 6f 72 79 20 5c 6e 5d  Args $memory \n] bcc0: 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 .. }.. bcd0: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 69 66 }.... if bce0: 20 7b 24 63 6f 6c 6c 65 63 74 7d 20 74 68 65 6e {$collect} then
bcf0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 63 6f 6c 6c   {..        coll
bd00: 65 63 74 47 61 72 62 61 67 65 20 24 63 68 61 6e  ectGarbage $chan bd10: 6e 65 6c 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a nel.. }.... bd20: 20 20 20 20 20 20 69 66 20 7b 21 24 71 75 69 65 if {!$quie
bd30: 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  t} then {..
bd40: 20 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65     tputs $channe bd50: 6c 20 22 2d 2d 2d 2d 20 63 75 72 72 65 6e 74 20 l "---- current bd60: 6d 65 6d 6f 72 79 20 69 6e 20 75 73 65 20 62 79 memory in use by bd70: 20 74 68 65 20 43 4c 52 2e 2e 2e 20 22 0d 0a 20 the CLR... ".. bd80: 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 }.... bd90: 69 66 20 7b 5b 63 61 74 63 68 20 7b 6f 62 6a 65 if {[catch {obje bda0: 63 74 20 69 6e 76 6f 6b 65 20 47 43 20 47 65 74 ct invoke GC Get bdb0: 54 6f 74 61 6c 4d 65 6d 6f 72 79 20 66 61 6c 73 TotalMemory fals bdc0: 65 7d 20 6d 65 6d 6f 72 79 5d 20 3d 3d 20 30 7d e} memory] == 0} bdd0: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 then {.. bde0: 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 69 73 20 if {[string is bdf0: 69 6e 74 65 67 65 72 20 2d 73 74 72 69 63 74 20 integer -strict be00: 24 6d 65 6d 6f 72 79 5d 7d 20 74 68 65 6e 20 7b$memory]} then {
be10: 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7b  ..          if {
be20: 21 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d  !$quiet} then {. be30: 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 70 75 . tpu be40: 74 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 ts$channel [app
be50: 65 6e 64 41 72 67 73 20 24 6d 65 6d 6f 72 79 20  endArgs $memory be60: 22 20 62 79 74 65 73 5c 6e 22 5d 0d 0a 20 20 20 " bytes\n"].. be70: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 }.. be80: 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 } else {.. be90: 20 20 20 20 20 20 73 65 74 20 6d 65 6d 6f 72 79 set memory bea0: 20 69 6e 76 61 6c 69 64 0d 0a 0d 0a 20 20 20 20 invalid.... beb0: 20 20 20 20 20 20 69 66 20 7b 21 24 71 75 69 65 if {!$quie
bec0: 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  t} then {..
bed0: 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68         tputs $ch bee0: 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 annel [appendArg bef0: 73 20 24 6d 65 6d 6f 72 79 20 5c 6e 5d 0d 0a 20 s$memory \n]..
bf00: 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20           }..
bf10: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 20 65      }..      } e
bf20: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 73  lse {..        s
bf30: 65 74 20 6d 65 6d 6f 72 79 20 75 6e 6b 6e 6f 77  et memory unknow
bf40: 6e 0d 0a 0d 0a 20 20 20 20 20 20 20 20 69 66 20  n....        if
bf50: 7b 21 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b  {!$quiet} then { bf60: 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70 75 74 .. tput bf70: 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 s$channel [appe
bf80: 6e 64 41 72 67 73 20 24 6d 65 6d 6f 72 79 20 5c  ndArgs $memory \ bf90: 6e 5d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 n].. }.. bfa0: 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 }.... bfb0: 72 65 74 75 72 6e 20 24 72 65 73 75 6c 74 0d 0a return$result..
bfc0: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72      }.....    pr
bfd0: 6f 63 20 63 68 65 63 6b 46 6f 72 53 51 4c 69 74  oc checkForSQLit
bfe0: 65 44 69 72 65 63 74 6f 72 69 65 73 20 7b 20 63  eDirectories { c
bff0: 68 61 6e 6e 65 6c 20 7b 72 65 73 65 74 20 66 61  hannel {reset fa
c000: 6c 73 65 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 20  lse} } {..
c010: 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a  #..      # NOTE:
c020: 20 43 68 65 63 6b 20 69 66 20 74 68 65 20 73 71   Check if the sq
c030: 6c 69 74 65 33 5f 77 69 6e 33 32 5f 73 65 74 5f  lite3_win32_set_
c040: 64 69 72 65 63 74 6f 72 79 20 66 75 6e 63 74 69  directory functi
c050: 6f 6e 20 69 73 20 61 76 61 69 6c 61 62 6c 65 2e  on is available.
c060: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20  ..      #..
c070: 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20   tputs $channel c080: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 22 2d 2d \.. "-- c090: 2d 2d 20 63 68 65 63 6b 69 6e 67 20 66 6f 72 20 -- checking for c0a0: 66 75 6e 63 74 69 6f 6e 20 73 71 6c 69 74 65 33 function sqlite3 c0b0: 5f 77 69 6e 33 32 5f 73 65 74 5f 64 69 72 65 63 _win32_set_direc c0c0: 74 6f 72 79 2e 2e 2e 20 22 0d 0a 0d 0a 20 20 20 tory... ".... c0d0: 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f #.. # NO c0e0: 54 45 3a 20 54 68 69 73 20 63 61 6c 6c 20 74 6f TE: This call to c0f0: 20 74 68 65 20 73 71 6c 69 74 65 33 5f 77 69 6e the sqlite3_win c100: 33 32 5f 73 65 74 5f 64 69 72 65 63 74 6f 72 79 32_set_directory c110: 20 66 75 6e 63 74 69 6f 6e 20 75 73 65 73 20 74 function uses t c120: 68 65 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 he.. # c130: 20 20 69 6e 76 61 6c 69 64 20 76 61 6c 75 65 20 invalid value c140: 30 20 66 6f 72 20 74 68 65 20 66 69 72 73 74 20 0 for the first c150: 61 72 67 75 6d 65 6e 74 2e 20 20 54 68 69 73 20 argument. This c160: 63 6f 64 65 20 69 73 20 64 65 73 69 67 6e 65 64 code is designed c170: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. # c180: 74 6f 20 63 68 65 63 6b 20 69 66 20 63 61 6c 6c to check if call c190: 69 6e 67 20 74 68 65 20 66 75 6e 63 74 69 6f 6e ing the function c1a0: 20 77 69 6c 6c 20 72 61 69 73 65 20 61 6e 20 65 will raise an e c1b0: 78 63 65 70 74 69 6f 6e 20 28 69 2e 65 2e 0d 0a xception (i.e... c1c0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 74 68 # th c1d0: 65 20 61 63 74 75 61 6c 20 72 65 73 75 6c 74 20 e actual result c1e0: 6f 66 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 of the function c1f0: 64 6f 65 73 20 6e 6f 74 20 6d 61 74 74 65 72 20 does not matter c200: 61 73 20 6c 6f 6e 67 20 61 73 20 6e 6f 0d 0a 20 as long as no.. c210: 20 20 20 20 20 23 20 20 20 20 20 20 20 64 69 72 # dir c220: 65 63 74 6f 72 79 20 69 73 20 63 68 61 6e 67 65 ectory is change c230: 64 29 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 d)... #.. c240: 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b if {[catch { c250: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .. c260: 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d 66 object invoke -f c270: 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 lags +NonPublic c280: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 \.. c290: 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c System.Data.SQL c2a0: 69 74 65 2e 55 6e 73 61 66 65 4e 61 74 69 76 65 ite.UnsafeNative c2b0: 4d 65 74 68 6f 64 73 20 5c 0d 0a 20 20 20 20 20 Methods \.. c2c0: 20 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 sqlite3 c2d0: 5f 77 69 6e 33 32 5f 73 65 74 5f 64 69 72 65 63 _win32_set_direc c2e0: 74 6f 72 79 20 30 20 6e 75 6c 6c 7d 5d 20 3d 3d tory 0 null}] == c2f0: 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 0} then {.. c300: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 #.. # c310: 20 4e 4f 54 45 3a 20 43 61 6c 6c 69 6e 67 20 74 NOTE: Calling t c320: 68 65 20 73 71 6c 69 74 65 33 5f 77 69 6e 33 32 he sqlite3_win32 c330: 5f 73 65 74 5f 64 69 72 65 63 74 6f 72 79 20 66 _set_directory f c340: 75 6e 63 74 69 6f 6e 20 64 6f 65 73 20 6e 6f 74 unction does not c350: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 .. # c360: 20 20 63 61 75 73 65 20 61 6e 20 65 78 63 65 70 cause an excep c370: 74 69 6f 6e 3b 20 74 68 65 72 65 66 6f 72 65 2c tion; therefore, c380: 20 69 74 20 6d 75 73 74 20 62 65 20 61 76 61 69 it must be avai c390: 6c 61 62 6c 65 20 28 69 2e 65 2e 0d 0a 20 20 20 lable (i.e... c3a0: 20 20 20 20 20 23 20 20 20 20 20 20 20 65 76 65 # eve c3b0: 6e 20 74 68 6f 75 67 68 20 69 74 20 73 68 6f 75 n though it shou c3c0: 6c 64 20 72 65 74 75 72 6e 20 61 20 66 61 69 6c ld return a fail c3d0: 75 72 65 20 72 65 74 75 72 6e 20 63 6f 64 65 20 ure return code c3e0: 69 6e 20 74 68 69 73 0d 0a 20 20 20 20 20 20 20 in this.. c3f0: 20 23 20 20 20 20 20 20 20 63 61 73 65 29 2e 0d # case).. c400: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #.. c410: 20 20 20 20 61 64 64 43 6f 6e 73 74 72 61 69 6e addConstrain c420: 74 20 73 71 6c 69 74 65 33 5f 77 69 6e 33 32 5f t sqlite3_win32_ c430: 73 65 74 5f 64 69 72 65 63 74 6f 72 79 0d 0a 0d set_directory... c440: 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 . tputs$
c450: 63 68 61 6e 6e 65 6c 20 79 65 73 5c 6e 0d 0a 0d  channel yes\n...
c460: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20  .        #..
c470: 20 20 20 20 23 20 4e 4f 54 45 3a 20 44 6f 65 73      # NOTE: Does
c480: 20 6f 75 72 20 63 61 6c 6c 65 72 20 77 61 6e 74   our caller want
c490: 20 74 6f 20 72 65 73 65 74 20 74 68 65 20 64 69   to reset the di
c4a0: 72 65 63 74 6f 72 69 65 73 3f 0d 0a 20 20 20 20  rectories?..
c4b0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 69      #..        i
c4c0: 66 20 7b 24 72 65 73 65 74 7d 20 74 68 65 6e 20  f {$reset} then c4d0: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a {.. #.. c4e0: 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 # NOTE c4f0: 3a 20 4e 6f 77 20 6d 61 6b 65 20 73 75 72 65 20 : Now make sure c500: 74 68 65 20 64 61 74 61 62 61 73 65 20 61 6e 64 the database and c510: 20 74 65 6d 70 6f 72 61 72 79 20 64 69 72 65 63 temporary direc c520: 74 6f 72 69 65 73 20 61 72 65 0d 0a 20 20 20 20 tories are.. c530: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 72 65 # re c540: 73 65 74 20 74 68 65 69 72 20 64 65 66 61 75 6c set their defaul c550: 74 20 76 61 6c 75 65 73 2c 20 77 68 69 63 68 20 t values, which c560: 73 68 6f 75 6c 64 20 62 65 20 6e 75 6c 6c 20 66 should be null f c570: 6f 72 20 62 6f 74 68 2e 0d 0a 20 20 20 20 20 20 or both... c580: 20 20 20 20 23 20 20 20 20 20 20 20 53 69 6e 63 # Sinc c590: 65 20 74 68 65 20 73 71 6c 69 74 65 33 5f 77 69 e the sqlite3_wi c5a0: 6e 33 32 5f 73 65 74 5f 64 69 72 65 63 74 6f 72 n32_set_director c5b0: 79 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 61 76 y function is av c5c0: 61 69 6c 61 62 6c 65 2c 0d 0a 20 20 20 20 20 20 ailable,.. c5d0: 20 20 20 20 23 20 20 20 20 20 20 20 75 73 65 20 # use c5e0: 69 74 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23 it... # c5f0: 0d 0a 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 .. for c600: 7b 73 65 74 20 69 6e 64 65 78 20 31 7d 20 7b 24 {set index 1} {$
c610: 69 6e 64 65 78 20 3c 20 33 7d 20 7b 69 6e 63 72  index < 3} {incr
c620: 20 69 6e 64 65 78 7d 20 7b 0d 0a 20 20 20 20 20   index} {..
c630: 20 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63         if {[catc
c640: 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20  h {..
c650: 20 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74 20           object
c660: 69 6e 76 6f 6b 65 20 2d 66 6c 61 67 73 20 2b 4e  invoke -flags +N
c670: 6f 6e 50 75 62 6c 69 63 20 5c 0d 0a 20 20 20 20  onPublic \..
c680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
c690: 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69  System.Data.SQLi
c6a0: 74 65 2e 55 6e 73 61 66 65 4e 61 74 69 76 65 4d  te.UnsafeNativeM
c6b0: 65 74 68 6f 64 73 20 5c 0d 0a 20 20 20 20 20 20  ethods \..
c6c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 71                sq
c6d0: 6c 69 74 65 33 5f 77 69 6e 33 32 5f 73 65 74 5f  lite3_win32_set_
c6e0: 64 69 72 65 63 74 6f 72 79 20 24 69 6e 64 65 78  directory $index c6f0: 20 6e 75 6c 6c 7d 20 5c 0d 0a 20 20 20 20 20 20 null} \.. c700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 re c710: 73 75 6c 74 5d 20 3d 3d 20 30 7d 20 74 68 65 6e sult] == 0} then c720: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 {.. c730: 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c tputs$channel
c740: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a   [appendArgs \..
c750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
c760: 20 20 22 2d 2d 2d 2d 20 63 61 6c 6c 20 73 71 6c    "---- call sql
c770: 69 74 65 33 5f 77 69 6e 33 32 5f 73 65 74 5f 64  ite3_win32_set_d
c780: 69 72 65 63 74 6f 72 79 28 22 20 24 69 6e 64 65  irectory(" $inde c790: 78 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 x \.. c7a0: 20 20 20 20 20 20 20 22 2c 20 6e 75 6c 6c 29 2e ", null). c7b0: 2e 2e 20 6f 6b 3a 20 22 20 24 72 65 73 75 6c 74 .. ok: "$result
c7c0: 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 20 20   \n]..
c7d0: 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20    } else {..
c7e0: 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20            tputs
c7f0: 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64  $channel [append c800: 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 Args \.. c810: 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 "---- c820: 63 61 6c 6c 20 73 71 6c 69 74 65 33 5f 77 69 6e call sqlite3_win c830: 33 32 5f 73 65 74 5f 64 69 72 65 63 74 6f 72 79 32_set_directory c840: 28 22 20 24 69 6e 64 65 78 20 5c 0d 0a 20 20 20 ("$index \..
c850: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22                 "
c860: 2c 20 6e 75 6c 6c 29 2e 2e 2e 20 65 72 72 6f 72  , null)... error
c870: 3a 20 22 20 5c 6e 5c 74 20 24 72 65 73 75 6c 74  : " \n\t $result c880: 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 \n].. c890: 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 7d }.. } c8a0: 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 .. }.. c8b0: 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 } else {.. c8c0: 20 20 20 20 20 74 70 75 74 73 20 24 63 68 61 6e tputs$chan
c8d0: 6e 65 6c 20 6e 6f 5c 6e 0d 0a 0d 0a 20 20 20 20  nel no\n....
c8e0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23      #..        #
c8f0: 20 4e 4f 54 45 3a 20 44 6f 65 73 20 6f 75 72 20   NOTE: Does our
c900: 63 61 6c 6c 65 72 20 77 61 6e 74 20 74 6f 20 72  caller want to r
c910: 65 73 65 74 20 74 68 65 20 64 69 72 65 63 74 6f  eset the directo
c920: 72 69 65 73 3f 20 20 54 68 69 73 20 63 61 6e 20  ries?  This can
c930: 6f 6e 6c 79 0d 0a 20 20 20 20 20 20 20 20 23 20  only..        #
c940: 20 20 20 20 20 20 62 65 20 70 65 72 66 6f 72 6d        be perform
c950: 65 64 20 69 66 20 53 51 4c 69 74 65 20 69 73 20  ed if SQLite is
c960: 6c 6f 61 64 65 64 20 61 6e 64 20 72 65 61 64 79  loaded and ready
c970: 20 66 6f 72 20 75 73 65 20 62 79 20 74 68 65 20   for use by the
c980: 74 65 73 74 0d 0a 20 20 20 20 20 20 20 20 23 20  test..        #
c990: 20 20 20 20 20 20 73 75 69 74 65 2e 0d 0a 20 20        suite...
c9a0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..
c9b0: 20 69 66 20 7b 24 72 65 73 65 74 20 26 26 20 5b   if {$reset && [ c9c0: 69 73 53 51 4c 69 74 65 52 65 61 64 79 5d 7d 20 isSQLiteReady]} c9d0: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 then {.. c9e0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23 #.. # c9f0: 20 4e 4f 54 45 3a 20 4e 6f 77 20 6d 61 6b 65 20 NOTE: Now make ca00: 73 75 72 65 20 74 68 65 20 64 61 74 61 62 61 73 sure the databas ca10: 65 20 61 6e 64 20 74 65 6d 70 6f 72 61 72 79 20 e and temporary ca20: 64 69 72 65 63 74 6f 72 69 65 73 20 61 72 65 0d directories are. ca30: 0a 20 20 20 20 20 20 20 20 20 20 23 20 20 20 20 . # ca40: 20 20 20 72 65 73 65 74 20 74 68 65 69 72 20 64 reset their d ca50: 65 66 61 75 6c 74 20 76 61 6c 75 65 73 2c 20 77 efault values, w ca60: 68 69 63 68 20 73 68 6f 75 6c 64 20 62 65 20 6e hich should be n ca70: 75 6c 6c 20 66 6f 72 20 62 6f 74 68 2e 0d 0a 20 ull for both... ca80: 20 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 # ca90: 20 53 69 6e 63 65 20 74 68 65 20 73 71 6c 69 74 Since the sqlit caa0: 65 33 5f 77 69 6e 33 32 5f 73 65 74 5f 64 69 72 e3_win32_set_dir cab0: 65 63 74 6f 72 79 20 66 75 6e 63 74 69 6f 6e 20 ectory function cac0: 64 6f 65 73 20 6e 6f 74 0d 0a 20 20 20 20 20 20 does not.. cad0: 20 20 20 20 23 20 20 20 20 20 20 20 61 70 70 65 # appe cae0: 61 72 20 74 6f 20 62 65 20 61 76 61 69 6c 61 62 ar to be availab caf0: 6c 65 2c 20 75 73 65 20 74 68 65 20 61 73 73 6f le, use the asso cb00: 63 69 61 74 65 64 20 50 52 41 47 4d 41 20 63 6f ciated PRAGMA co cb10: 6d 6d 61 6e 64 73 0d 0a 20 20 20 20 20 20 20 20 mmands.. cb20: 20 20 23 20 20 20 20 20 20 20 69 6e 73 74 65 61 # instea cb30: 64 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d d... #. cb40: 0a 20 20 20 20 20 20 20 20 20 20 66 6f 72 65 61 . forea cb50: 63 68 20 64 69 72 65 63 74 6f 72 79 20 5b 6c 69 ch directory [li cb60: 73 74 20 64 61 74 61 5f 73 74 6f 72 65 5f 64 69 st data_store_di cb70: 72 65 63 74 6f 72 79 20 74 65 6d 70 5f 73 74 6f rectory temp_sto cb80: 72 65 5f 64 69 72 65 63 74 6f 72 79 5d 20 7b 0d re_directory] {. cb90: 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 . set cba0: 20 73 71 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 sql [appendArgs cbb0: 20 22 50 52 41 47 4d 41 20 22 20 24 64 69 72 65 "PRAGMA "$dire
cbc0: 63 74 6f 72 79 20 22 20 3d 20 5c 22 5c 22 3b 22  ctory " = \"\";"
cbd0: 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20  ]....
cbe0: 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 65 78 65   if {[catch {exe
cbf0: 63 75 74 65 53 71 6c 20 24 73 71 6c 7d 20 72 65  cuteSql $sql} re cc00: 73 75 6c 74 5d 20 3d 3d 20 30 7d 20 74 68 65 6e sult] == 0} then cc10: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 {.. cc20: 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c tputs$channel
cc30: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a   [appendArgs \..
cc40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
cc50: 20 20 22 2d 2d 2d 2d 20 65 78 65 63 75 74 65 20    "---- execute
cc60: 50 52 41 47 4d 41 20 22 20 24 64 69 72 65 63 74  PRAGMA " $direct cc70: 6f 72 79 20 22 2e 2e 2e 20 6f 6b 3a 20 5c 22 22 ory "... ok: \"" cc80: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \.. cc90: 20 20 20 20 20 20 24 72 65 73 75 6c 74 20 5c 22$result \"
cca0: 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 20  \n]..
ccb0: 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20   } else {..
ccc0: 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24           tputs $ccd0: 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 channel [appendA cce0: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 rgs \.. ccf0: 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 65 "---- e cd00: 78 65 63 75 74 65 20 50 52 41 47 4d 41 20 22 20 xecute PRAGMA " cd10: 24 64 69 72 65 63 74 6f 72 79 20 22 2e 2e 2e 20$directory "...
cd20: 65 72 72 6f 72 3a 20 22 20 5c 0d 0a 20 20 20 20  error: " \..
cd30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 6e                \n
cd40: 5c 74 20 24 72 65 73 75 6c 74 20 5c 6e 5d 0d 0a  \t $result \n].. cd50: 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 }.. cd60: 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 }.. cd70: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a }.. }.. cd80: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #.. cd90: 20 23 20 4e 4f 54 45 3a 20 46 69 6e 61 6c 6c 79 # NOTE: Finally cda0: 2c 20 73 68 6f 77 20 74 68 65 20 63 75 72 72 65 , show the curre cdb0: 6e 74 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 nt value of the cdc0: 64 61 74 61 62 61 73 65 20 61 6e 64 20 74 65 6d database and tem cdd0: 70 6f 72 61 72 79 0d 0a 20 20 20 20 20 20 23 20 porary.. # cde0: 20 20 20 20 20 20 64 69 72 65 63 74 6f 72 69 65 directorie cdf0: 73 2e 20 20 54 68 69 73 20 63 61 6e 20 6f 6e 6c s. This can onl ce00: 79 20 62 65 20 70 65 72 66 6f 72 6d 65 64 20 69 y be performed i ce10: 66 20 53 51 4c 69 74 65 20 69 73 20 6c 6f 61 64 f SQLite is load ce20: 65 64 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 ed.. # ce30: 20 20 61 6e 64 20 72 65 61 64 79 20 66 6f 72 20 and ready for ce40: 75 73 65 20 62 79 20 74 68 65 20 74 65 73 74 20 use by the test ce50: 73 75 69 74 65 2e 0d 0a 20 20 20 20 20 20 23 0d suite... #. ce60: 0a 20 20 20 20 20 20 69 66 20 7b 5b 69 73 53 51 . if {[isSQ ce70: 4c 69 74 65 52 65 61 64 79 5d 7d 20 74 68 65 6e LiteReady]} then ce80: 20 7b 0d 0a 20 20 20 20 20 20 20 20 66 6f 72 65 {.. fore ce90: 61 63 68 20 64 69 72 65 63 74 6f 72 79 20 5b 6c ach directory [l cea0: 69 73 74 20 64 61 74 61 5f 73 74 6f 72 65 5f 64 ist data_store_d ceb0: 69 72 65 63 74 6f 72 79 20 74 65 6d 70 5f 73 74 irectory temp_st cec0: 6f 72 65 5f 64 69 72 65 63 74 6f 72 79 5d 20 7b ore_directory] { ced0: 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70 75 74 .. tput cee0: 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 s$channel [appe
cef0: 6e 64 41 72 67 73 20 22 2d 2d 2d 2d 20 63 68 65  ndArgs "---- che
cf00: 63 6b 69 6e 67 20 22 20 24 64 69 72 65 63 74 6f  cking " $directo cf10: 72 79 20 22 2e 2e 2e 20 22 5d 0d 0a 0d 0a 20 20 ry "... "].... cf20: 20 20 20 20 20 20 20 20 73 65 74 20 73 71 6c 20 set sql cf30: 5b 61 70 70 65 6e 64 41 72 67 73 20 22 50 52 41 [appendArgs "PRA cf40: 47 4d 41 20 22 20 24 64 69 72 65 63 74 6f 72 79 GMA "$directory
cf50: 20 5c 3b 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20   \;]....
cf60: 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 65 78    if {[catch {ex
cf70: 65 63 75 74 65 53 71 6c 20 24 73 71 6c 20 73 63  ecuteSql $sql sc cf80: 61 6c 61 72 7d 20 72 65 73 75 6c 74 5d 20 3d 3d alar} result] == cf90: 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 0} then {.. cfa0: 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63 tputs$c
cfb0: 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72  hannel [appendAr
cfc0: 67 73 20 22 6f 6b 3a 20 5c 22 22 20 24 72 65 73  gs "ok: \"" $res cfd0: 75 6c 74 20 5c 22 5c 6e 5d 0d 0a 20 20 20 20 20 ult \"\n].. cfe0: 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 } else {.. cff0: 20 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 tputs d000: 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e$channel [appen
d010: 64 41 72 67 73 20 22 65 72 72 6f 72 3a 20 22 20  dArgs "error: "
d020: 5c 6e 5c 74 20 24 72 65 73 75 6c 74 20 5c 6e 5d  \n\t $result \n] d030: 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 .. }.. d040: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 }.. d050: 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 }.. }..... d060: 20 70 72 6f 63 20 6c 6f 61 64 53 51 4c 69 74 65 proc loadSQLite d070: 54 65 73 74 53 65 74 74 69 6e 67 73 20 7b 20 63 TestSettings { c d080: 68 61 6e 6e 65 6c 20 7b 73 75 66 66 69 78 20 22 hannel {suffix " d090: 22 7d 20 7b 71 75 69 65 74 20 66 61 6c 73 65 7d "} {quiet false} d0a0: 20 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 } {.. #.. d0b0: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 6b 69 # NOTE: Ski d0c0: 70 20 6c 6f 61 64 69 6e 67 20 74 68 65 20 73 65 p loading the se d0d0: 74 74 69 6e 67 73 20 69 66 20 74 68 65 69 72 20 ttings if their d0e0: 75 73 61 67 65 20 68 61 73 20 62 65 65 6e 20 64 usage has been d d0f0: 69 73 61 62 6c 65 64 2e 0d 0a 20 20 20 20 20 20 isabled... d100: 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 21 5b 69 #.. if {![i d110: 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 6e 6f 28 nfo exists ::no( d120: 73 71 6c 69 74 65 54 65 73 74 53 65 74 74 69 6e sqliteTestSettin d130: 67 73 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 gs)]} then {.. d140: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #.. d150: 20 23 20 4e 4f 54 45 3a 20 4c 6f 61 64 20 63 75 # NOTE: Load cu d160: 73 74 6f 6d 20 70 65 72 2d 75 73 65 72 20 61 6e stom per-user an d170: 64 2f 6f 72 20 70 65 72 2d 68 6f 73 74 20 74 65 d/or per-host te d180: 73 74 20 73 65 74 74 69 6e 67 73 20 6e 6f 77 2e st settings now. d190: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #.. d1a0: 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 if {[info e d1b0: 78 69 73 74 73 20 3a 3a 74 63 6c 5f 70 6c 61 74 xists ::tcl_plat d1c0: 66 6f 72 6d 28 75 73 65 72 29 5d 7d 20 74 68 65 form(user)]} the d1d0: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 73 n {.. s d1e0: 65 74 20 75 73 65 72 53 65 74 74 69 6e 67 73 46 et userSettingsF d1f0: 69 6c 65 4e 61 6d 65 20 5b 66 69 6c 65 20 6a 6f ileName [file jo d200: 69 6e 20 5b 67 65 74 43 6f 6d 6d 6f 6e 44 69 72 in [getCommonDir d210: 65 63 74 6f 72 79 5d 20 5c 0d 0a 20 20 20 20 20 ectory] \.. d220: 20 20 20 20 20 20 20 20 20 5b 61 70 70 65 6e 64 [append d230: 41 72 67 73 20 73 65 74 74 69 6e 67 73 20 24 73 Args settings$s
d240: 75 66 66 69 78 20 2e 20 24 3a 3a 74 63 6c 5f 70  uffix . $::tcl_p d250: 6c 61 74 66 6f 72 6d 28 75 73 65 72 29 20 2e 65 latform(user) .e d260: 61 67 6c 65 5d 5d 0d 0a 0d 0a 20 20 20 20 20 20 agle]].... d270: 20 20 20 20 69 66 20 7b 5b 66 69 6c 65 20 65 78 if {[file ex d280: 69 73 74 73 20 24 75 73 65 72 53 65 74 74 69 6e ists$userSettin
d290: 67 73 46 69 6c 65 4e 61 6d 65 5d 7d 20 74 68 65  gsFileName]} the
d2a0: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20  n {..
d2b0: 20 69 66 20 7b 21 24 71 75 69 65 74 7d 20 74 68   if {!$quiet} th d2c0: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 en {.. d2d0: 20 20 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e tputs$chann
d2e0: 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c  el [appendArgs \
d2f0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..
d300: 20 20 20 20 22 2d 2d 2d 2d 20 6c 6f 61 64 69 6e      "---- loadin
d310: 67 20 70 65 72 2d 75 73 65 72 20 74 65 73 74 20  g per-user test
d320: 73 65 74 74 69 6e 67 73 20 66 69 6c 65 20 5c 22  settings file \"
d330: 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20  " \..
d340: 20 20 20 20 20 20 20 24 75 73 65 72 53 65 74 74         $userSett d350: 69 6e 67 73 46 69 6c 65 4e 61 6d 65 20 5c 22 2e ingsFileName \". d360: 2e 2e 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 20 ..\n].. d370: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 }.... d380: 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b if {[catch { d390: 75 70 6c 65 76 65 6c 20 31 20 5b 6c 69 73 74 20 uplevel 1 [list d3a0: 73 6f 75 72 63 65 20 24 75 73 65 72 53 65 74 74 source$userSett
d3b0: 69 6e 67 73 46 69 6c 65 4e 61 6d 65 5d 7d 20 5c  ingsFileName]} \
d3c0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..
d3d0: 20 20 20 20 20 20 65 72 72 6f 72 5d 7d 20 74 68        error]} th
d3e0: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20  en {..
d3f0: 20 20 20 20 69 66 20 7b 21 24 71 75 69 65 74 7d      if {!$quiet} d400: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 then {.. d410: 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 tputs$
d420: 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41  channel [appendA
d430: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  rgs \..
d440: 20 20 20 20 20 20 20 20 20 20 20 22 3d 3d 3d 3d             "====
d450: 20 57 41 52 4e 49 4e 47 3a 20 66 61 69 6c 65 64   WARNING: failed
d460: 20 74 6f 20 6c 6f 61 64 20 70 65 72 2d 75 73 65   to load per-use
d470: 72 20 73 65 74 74 69 6e 67 73 20 66 69 6c 65 20  r settings file
d480: 5c 22 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  \"" \..
d490: 20 20 20 20 20 20 20 20 20 20 20 24 75 73 65 72             $user d4a0: 53 65 74 74 69 6e 67 73 46 69 6c 65 4e 61 6d 65 SettingsFileName d4b0: 20 22 5c 22 2c 20 65 72 72 6f 72 3a 20 22 20 5c "\", error: " \ d4c0: 6e 5c 74 20 24 65 72 72 6f 72 20 5c 6e 5d 0d 0a n\t$error \n]..
d4d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d                }.
d4e0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a  .            }..
d4f0: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20            }..
d500: 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20       }....
d510: 20 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23    ##############
d520: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
d530: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
d540: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
d550: 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 20  #########....
d560: 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65       if {[info e
d570: 78 69 73 74 73 20 3a 3a 74 63 6c 5f 70 6c 61 74  xists ::tcl_plat
d580: 66 6f 72 6d 28 68 6f 73 74 29 5d 7d 20 74 68 65  form(host)]} the
d590: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 73  n {..          s
d5a0: 65 74 20 68 6f 73 74 53 65 74 74 69 6e 67 73 46  et hostSettingsF
d5b0: 69 6c 65 4e 61 6d 65 20 5b 66 69 6c 65 20 6a 6f  ileName [file jo
d5c0: 69 6e 20 5b 67 65 74 43 6f 6d 6d 6f 6e 44 69 72  in [getCommonDir
d5d0: 65 63 74 6f 72 79 5d 20 5c 0d 0a 20 20 20 20 20  ectory] \..
d5e0: 20 20 20 20 20 20 20 20 20 5b 61 70 70 65 6e 64           [append
d5f0: 41 72 67 73 20 73 65 74 74 69 6e 67 73 20 24 73  Args settings $s d600: 75 66 66 69 78 20 2e 20 24 3a 3a 74 63 6c 5f 70 uffix .$::tcl_p
d610: 6c 61 74 66 6f 72 6d 28 68 6f 73 74 29 20 2e 65  latform(host) .e
d620: 61 67 6c 65 5d 5d 0d 0a 0d 0a 20 20 20 20 20 20  agle]]....
d630: 20 20 20 20 69 66 20 7b 5b 66 69 6c 65 20 65 78      if {[file ex
d640: 69 73 74 73 20 24 68 6f 73 74 53 65 74 74 69 6e  ists $hostSettin d650: 67 73 46 69 6c 65 4e 61 6d 65 5d 7d 20 74 68 65 gsFileName]} the d660: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 n {.. d670: 20 69 66 20 7b 21 24 71 75 69 65 74 7d 20 74 68 if {!$quiet} th
d680: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20  en {..
d690: 20 20 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e      tputs $chann d6a0: 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c el [appendArgs \ d6b0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .. d6c0: 20 20 20 20 22 2d 2d 2d 2d 20 6c 6f 61 64 69 6e "---- loadin d6d0: 67 20 70 65 72 2d 68 6f 73 74 20 74 65 73 74 20 g per-host test d6e0: 73 65 74 74 69 6e 67 73 20 66 69 6c 65 20 5c 22 settings file \" d6f0: 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 " \.. d700: 20 20 20 20 20 20 20 24 68 6f 73 74 53 65 74 74$hostSett
d710: 69 6e 67 73 46 69 6c 65 4e 61 6d 65 20 5c 22 2e  ingsFileName \".
d720: 2e 2e 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 20  ..\n]..
d730: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20     }....
d740: 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b      if {[catch {
d750: 75 70 6c 65 76 65 6c 20 31 20 5b 6c 69 73 74 20  uplevel 1 [list
d760: 73 6f 75 72 63 65 20 24 68 6f 73 74 53 65 74 74  source $hostSett d770: 69 6e 67 73 46 69 6c 65 4e 61 6d 65 5d 7d 20 5c ingsFileName]} \ d780: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .. d790: 20 20 20 20 20 20 65 72 72 6f 72 5d 7d 20 74 68 error]} th d7a0: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 en {.. d7b0: 20 20 20 20 69 66 20 7b 21 24 71 75 69 65 74 7d if {!$quiet}
d7c0: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20   then {..
d7d0: 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24           tputs $d7e0: 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 channel [appendA d7f0: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 rgs \.. d800: 20 20 20 20 20 20 20 20 20 20 20 22 3d 3d 3d 3d "==== d810: 20 57 41 52 4e 49 4e 47 3a 20 66 61 69 6c 65 64 WARNING: failed d820: 20 74 6f 20 6c 6f 61 64 20 70 65 72 2d 68 6f 73 to load per-hos d830: 74 20 73 65 74 74 69 6e 67 73 20 66 69 6c 65 20 t settings file d840: 5c 22 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 \"" \.. d850: 20 20 20 20 20 20 20 20 20 20 20 24 68 6f 73 74$host
d860: 53 65 74 74 69 6e 67 73 46 69 6c 65 4e 61 6d 65  SettingsFileName
d870: 20 22 5c 22 2c 20 65 72 72 6f 72 3a 20 22 20 5c   "\", error: " \
d880: 6e 5c 74 20 24 65 72 72 6f 72 20 5c 6e 5d 0d 0a  n\t $error \n].. d890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d }. d8a0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a . }.. d8b0: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 }.. d8c0: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d }.. }. d8d0: 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 . }..... p d8e0: 72 6f 63 20 72 75 6e 53 51 4c 69 74 65 54 65 73 roc runSQLiteTes d8f0: 74 50 72 6f 6c 6f 67 75 65 20 7b 7d 20 7b 0d 0a tPrologue {} {.. d900: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 #.. # d910: 20 4e 4f 54 45 3a 20 53 6b 69 70 20 72 75 6e 6e NOTE: Skip runn d920: 69 6e 67 20 6f 75 72 20 63 75 73 74 6f 6d 20 70 ing our custom p d930: 72 6f 6c 6f 67 75 65 20 69 66 20 74 68 65 20 6d rologue if the m d940: 61 69 6e 20 6f 6e 65 20 68 61 73 20 62 65 65 6e ain one has been d950: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. # d960: 73 6b 69 70 70 65 64 2e 0d 0a 20 20 20 20 20 20 skipped... d970: 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 21 5b 69 #.. if {![i d980: 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 6e 6f 28 nfo exists ::no( d990: 70 72 6f 6c 6f 67 75 65 2e 65 61 67 6c 65 29 5d prologue.eagle)] d9a0: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {.. d9b0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e #.. # N d9c0: 4f 54 45 3a 20 4c 6f 61 64 20 74 68 65 20 22 62 OTE: Load the "b d9d0: 65 66 6f 72 65 2d 63 6f 6e 73 74 72 61 69 6e 74 efore-constraint d9e0: 73 22 20 63 75 73 74 6f 6d 20 70 65 72 2d 75 73 s" custom per-us d9f0: 65 72 20 61 6e 64 2f 6f 72 20 70 65 72 2d 68 6f er and/or per-ho da00: 73 74 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 st.. # da10: 20 20 20 20 74 65 73 74 20 73 65 74 74 69 6e 67 test setting da20: 73 20 6e 6f 77 2e 0d 0a 20 20 20 20 20 20 20 20 s now... da30: 23 0d 0a 20 20 20 20 20 20 20 20 75 70 6c 65 76 #.. uplev da40: 65 6c 20 31 20 5b 6c 69 73 74 20 6c 6f 61 64 53 el 1 [list loadS da50: 51 4c 69 74 65 54 65 73 74 53 65 74 74 69 6e 67 QLiteTestSetting da60: 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 s$::test_channe
da70: 6c 20 2e 62 65 66 6f 72 65 5d 0d 0a 0d 0a 20 20  l .before]....
da80: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..
da90: 20 23 20 4e 4f 54 45 3a 20 53 6b 69 70 20 61 6c   # NOTE: Skip al
daa0: 6c 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51  l System.Data.SQ
dab0: 4c 69 74 65 20 72 65 6c 61 74 65 64 20 66 69 6c  Lite related fil
dac0: 65 20 68 61 6e 64 6c 69 6e 67 20 28 64 65 6c 65  e handling (dele
dad0: 74 69 6e 67 2c 0d 0a 20 20 20 20 20 20 20 20 23  ting,..        #
dae0: 20 20 20 20 20 20 20 63 6f 70 79 69 6e 67 2c 20         copying,
daf0: 61 6e 64 20 6c 6f 61 64 69 6e 67 29 20 69 66 20  and loading) if
db00: 77 65 20 61 72 65 20 73 6f 20 69 6e 73 74 72 75  we are so instru
db10: 63 74 65 64 2e 0d 0a 20 20 20 20 20 20 20 20 23  cted...        #
db20: 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 21 5b  ..        if {![
db30: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 6e 6f  info exists ::no
db40: 28 73 71 6c 69 74 65 46 69 6c 65 73 29 5d 7d 20  (sqliteFiles)]}
db50: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20  then {..
db60: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23    #..          #
db70: 20 4e 4f 54 45 3a 20 53 6b 69 70 20 74 72 79 69   NOTE: Skip tryi
db80: 6e 67 20 74 6f 20 64 65 6c 65 74 65 20 61 6e 79  ng to delete any
db90: 20 66 69 6c 65 73 20 69 66 20 77 65 20 61 72 65   files if we are
dba0: 20 73 6f 20 69 6e 73 74 72 75 63 74 65 64 2e 0d   so instructed..
dbb0: 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20  .          #..
dbc0: 20 20 20 20 20 20 20 20 69 66 20 7b 21 5b 69 6e          if {![in
dbd0: 66 6f 20 65 78 69 73 74 73 20 3a 3a 6e 6f 28 64  fo exists ::no(d
dbe0: 65 6c 65 74 65 53 71 6c 69 74 65 46 69 6c 65 73  eleteSqliteFiles
dbf0: 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20  )]} then {..
dc00: 20 20 20 20 20 20 20 20 74 72 79 44 65 6c 65 74          tryDelet
dc10: 65 41 73 73 65 6d 62 6c 79 20 73 71 6c 69 74 65  eAssembly sqlite
dc20: 33 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 20 20 20  3.dll..
dc30: 20 20 20 72 65 6d 6f 76 65 43 6f 6e 73 74 72 61     removeConstra
dc40: 69 6e 74 20 66 69 6c 65 5f 73 71 6c 69 74 65 33  int file_sqlite3
dc50: 2e 64 6c 6c 0d 0a 0d 0a 20 20 20 20 20 20 20 20  .dll....
dc60: 20 20 20 20 74 72 79 44 65 6c 65 74 65 41 73 73      tryDeleteAss
dc70: 65 6d 62 6c 79 20 53 51 4c 69 74 65 2e 49 6e 74  embly SQLite.Int
dc80: 65 72 6f 70 2e 64 6c 6c 0d 0a 20 20 20 20 20 20  erop.dll..
dc90: 20 20 20 20 20 20 72 65 6d 6f 76 65 43 6f 6e 73        removeCons
dca0: 74 72 61 69 6e 74 20 66 69 6c 65 5f 53 51 4c 69  traint file_SQLi
dcb0: 74 65 2e 49 6e 74 65 72 6f 70 2e 64 6c 6c 0d 0a  te.Interop.dll..
dcc0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 72  ..            tr
dcd0: 79 44 65 6c 65 74 65 41 73 73 65 6d 62 6c 79 20  yDeleteAssembly
dce0: 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69  System.Data.SQLi
dcf0: 74 65 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 20 20  te.dll..
dd00: 20 20 20 20 72 65 6d 6f 76 65 43 6f 6e 73 74 72      removeConstr
dd10: 61 69 6e 74 20 66 69 6c 65 5f 53 79 73 74 65 6d  aint file_System
dd20: 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 64 6c 6c  .Data.SQLite.dll
dd30: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  ....
dd40: 74 72 79 44 65 6c 65 74 65 41 73 73 65 6d 62 6c  tryDeleteAssembl
dd50: 79 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51  y System.Data.SQ
dd60: 4c 69 74 65 2e 4c 69 6e 71 2e 64 6c 6c 0d 0a 20  Lite.Linq.dll..
dd70: 20 20 20 20 20 20 20 20 20 20 20 72 65 6d 6f 76             remov
dd80: 65 43 6f 6e 73 74 72 61 69 6e 74 20 66 69 6c 65  eConstraint file
dd90: 5f 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c  _System.Data.SQL
dda0: 69 74 65 2e 4c 69 6e 71 2e 64 6c 6c 0d 0a 20 20  ite.Linq.dll..
ddb0: 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20          }....
ddc0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..
ddd0: 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 6b 69 70      # NOTE: Skip
dde0: 20 74 72 79 69 6e 67 20 74 6f 20 63 6f 70 79 20   trying to copy
ddf0: 61 6e 79 20 66 69 6c 65 73 20 69 66 20 77 65 20  any files if we
de00: 61 72 65 20 73 6f 20 69 6e 73 74 72 75 63 74 65  are so instructe
de10: 64 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d  d...          #.
de20: 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 21  .          if {!
de30: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 6e  [info exists ::n
de40: 6f 28 63 6f 70 79 53 71 6c 69 74 65 46 69 6c 65  o(copySqliteFile
de50: 73 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  s)]} then {..
de60: 20 20 20 20 20 20 20 20 20 74 72 79 43 6f 70 79           tryCopy
de70: 41 73 73 65 6d 62 6c 79 20 73 71 6c 69 74 65 33  Assembly sqlite3
de80: 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 20 20 20 20  .dll..
de90: 20 20 74 72 79 43 6f 70 79 41 73 73 65 6d 62 6c    tryCopyAssembl
dea0: 79 20 53 51 4c 69 74 65 2e 49 6e 74 65 72 6f 70  y SQLite.Interop
deb0: 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 20 20 20 20  .dll..
dec0: 20 20 74 72 79 43 6f 70 79 41 73 73 65 6d 62 6c    tryCopyAssembl
ded0: 79 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51  y System.Data.SQ
dee0: 4c 69 74 65 2e 64 6c 6c 0d 0a 20 20 20 20 20 20  Lite.dll..
def0: 20 20 20 20 20 20 74 72 79 43 6f 70 79 41 73 73        tryCopyAss
df00: 65 6d 62 6c 79 20 53 79 73 74 65 6d 2e 44 61 74  embly System.Dat
df10: 61 2e 53 51 4c 69 74 65 2e 4c 69 6e 71 2e 64 6c  a.SQLite.Linq.dl
df20: 6c 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a  l..          }..
df30: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20  ..          #..
df40: 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a           # NOTE:
df50: 20 53 6b 69 70 20 74 72 79 69 6e 67 20 74 6f 20   Skip trying to
df60: 6c 6f 61 64 20 61 6e 79 20 66 69 6c 65 73 20 69  load any files i
df70: 66 20 77 65 20 61 72 65 20 73 6f 20 69 6e 73 74  f we are so inst
df80: 72 75 63 74 65 64 2e 0d 0a 20 20 20 20 20 20 20  ructed...
df90: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20     #..
dfa0: 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74  if {![info exist
dfb0: 73 20 3a 3a 6e 6f 28 6c 6f 61 64 53 71 6c 69 74  s ::no(loadSqlit
dfc0: 65 46 69 6c 65 73 29 5d 7d 20 74 68 65 6e 20 7b  eFiles)]} then {
dfd0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 72  ..            tr
dfe0: 79 4c 6f 61 64 41 73 73 65 6d 62 6c 79 20 53 79  yLoadAssembly Sy
dff0: 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65  stem.Data.SQLite
e000: 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 20 20 20 20  .dll..
e010: 20 20 74 72 79 4c 6f 61 64 41 73 73 65 6d 62 6c    tryLoadAssembl
e020: 79 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51  y System.Data.SQ
e030: 4c 69 74 65 2e 4c 69 6e 71 2e 64 6c 6c 0d 0a 20  Lite.Linq.dll..
e040: 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20           }..
e050: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20      }....
e060: 20 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 20   catch {..
e070: 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73      tputs $::tes e080: 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e t_channel [appen e090: 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 dArgs \.. e0a0: 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 66 69 6c "---- fil e0b0: 65 20 76 65 72 73 69 6f 6e 20 6f 66 20 5c 22 73 e version of \"s e0c0: 71 6c 69 74 65 33 2e 64 6c 6c 5c 22 2e 2e 2e 20 qlite3.dll\"... e0d0: 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 " \.. e0e0: 20 20 20 5b 66 69 6c 65 20 76 65 72 73 69 6f 6e [file version e0f0: 20 5b 67 65 74 42 69 6e 61 72 79 46 69 6c 65 4e [getBinaryFileN e100: 61 6d 65 20 73 71 6c 69 74 65 33 2e 64 6c 6c 5d ame sqlite3.dll] e110: 5d 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 7d ] \n].. } e120: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 63 61 74 63 .... catc e130: 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 74 h {.. t e140: 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 puts$::test_cha
e150: 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73  nnel [appendArgs
e160: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   \..
e170: 20 20 22 2d 2d 2d 2d 20 66 69 6c 65 20 76 65 72    "---- file ver
e180: 73 69 6f 6e 20 6f 66 20 5c 22 53 51 4c 69 74 65  sion of \"SQLite
e190: 2e 49 6e 74 65 72 6f 70 2e 64 6c 6c 5c 22 2e 2e  .Interop.dll\"..
e1a0: 2e 20 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  . " \..
e1b0: 20 20 20 20 20 5b 66 69 6c 65 20 76 65 72 73 69       [file versi
e1c0: 6f 6e 20 5b 67 65 74 42 69 6e 61 72 79 46 69 6c  on [getBinaryFil
e1d0: 65 4e 61 6d 65 20 53 51 4c 69 74 65 2e 49 6e 74  eName SQLite.Int
e1e0: 65 72 6f 70 2e 64 6c 6c 5d 5d 20 5c 6e 5d 0d 0a  erop.dll]] \n]..
e1f0: 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20          }....
e200: 20 20 20 20 20 63 61 74 63 68 20 7b 0d 0a 20 20       catch {..
e210: 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 3a          tputs $: e220: 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 :test_channel [a e230: 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 ppendArgs \.. e240: 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d "---- e250: 20 66 69 6c 65 20 76 65 72 73 69 6f 6e 20 6f 66 file version of e260: 20 5c 22 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 \"System.Data.S e270: 51 4c 69 74 65 2e 64 6c 6c 5c 22 2e 2e 2e 20 22 QLite.dll\"... " e280: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \.. e290: 20 20 5b 66 69 6c 65 20 76 65 72 73 69 6f 6e 20 [file version e2a0: 5b 67 65 74 42 69 6e 61 72 79 46 69 6c 65 4e 61 [getBinaryFileNa e2b0: 6d 65 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 me System.Data.S e2c0: 51 4c 69 74 65 2e 64 6c 6c 5d 5d 20 5c 6e 5d 0d QLite.dll]] \n]. e2d0: 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 . }.... e2e0: 20 20 20 20 20 20 63 61 74 63 68 20 7b 0d 0a 20 catch {.. e2f0: 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 tputs$
e300: 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b  ::test_channel [
e310: 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20  appendArgs \..
e320: 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d              "---
e330: 2d 20 66 69 6c 65 20 76 65 72 73 69 6f 6e 20 6f  - file version o
e340: 66 20 5c 22 53 79 73 74 65 6d 2e 44 61 74 61 2e  f \"System.Data.
e350: 53 51 4c 69 74 65 2e 4c 69 6e 71 2e 64 6c 6c 5c  SQLite.Linq.dll\
e360: 22 2e 2e 2e 20 22 20 5c 0d 0a 20 20 20 20 20 20  "... " \..
e370: 20 20 20 20 20 20 20 20 5b 66 69 6c 65 20 76 65          [file ve
e380: 72 73 69 6f 6e 20 5b 67 65 74 42 69 6e 61 72 79  rsion [getBinary
e390: 46 69 6c 65 4e 61 6d 65 20 53 79 73 74 65 6d 2e  FileName System.
e3a0: 44 61 74 61 2e 53 51 4c 69 74 65 2e 4c 69 6e 71  Data.SQLite.Linq
e3b0: 2e 64 6c 6c 5d 5d 20 5c 6e 5d 0d 0a 20 20 20 20  .dll]] \n]..
e3c0: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20      }....
e3d0: 20 73 65 74 20 61 73 73 65 6d 62 6c 69 65 73 20   set assemblies
e3e0: 5b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 41  [object invoke A
e3f0: 70 70 44 6f 6d 61 69 6e 2e 43 75 72 72 65 6e 74  ppDomain.Current
e400: 44 6f 6d 61 69 6e 20 47 65 74 41 73 73 65 6d 62  Domain GetAssemb
e410: 6c 69 65 73 5d 0d 0a 0d 0a 20 20 20 20 20 20 20  lies]....
e420: 20 6f 62 6a 65 63 74 20 66 6f 72 65 61 63 68 20   object foreach
e430: 61 73 73 65 6d 62 6c 79 20 24 61 73 73 65 6d 62  assembly $assemb e440: 6c 69 65 73 20 7b 0d 0a 20 20 20 20 20 20 20 20 lies {.. e450: 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6d 61 if {[string ma e460: 74 63 68 20 5c 7b 53 79 73 74 65 6d 2e 44 61 74 tch \{System.Dat e470: 61 2e 53 51 4c 69 74 65 2a 20 24 61 73 73 65 6d a.SQLite*$assem
e480: 62 6c 79 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  bly]} then {..
e490: 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20            tputs
e4a0: 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20  $::test_channel e4b0: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 [appendArgs \.. e4c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 " e4d0: 2d 2d 2d 2d 20 66 6f 75 6e 64 20 61 73 73 65 6d ---- found assem e4e0: 62 6c 79 3a 20 22 20 24 61 73 73 65 6d 62 6c 79 bly: "$assembly
e4f0: 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 20 20   \n]..
e500: 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a  }..        }....
e510: 20 20 20 20 20 20 20 20 63 61 74 63 68 20 7b 0d          catch {.
e520: 0a 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73  .          tputs
e530: 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c   $::test_channel e540: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \.. e550: 20 20 22 2d 2d 2d 2d 20 64 65 66 69 6e 65 20 63 "---- define c e560: 6f 6e 73 74 61 6e 74 73 20 66 6f 72 20 5c 22 53 onstants for \"S e570: 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 ystem.Data.SQLit e580: 65 5c 22 2e 2e 2e 20 22 0d 0a 0d 0a 20 20 20 20 e\"... ".... e590: 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 if {[catch e5a0: 20 7b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 {object invoke e5b0: 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 -flags +NonPubli e5c0: 63 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 c \.. e5d0: 20 20 20 20 20 20 20 53 79 73 74 65 6d 2e 44 61 System.Da e5e0: 74 61 2e 53 51 4c 69 74 65 2e 53 51 4c 69 74 65 ta.SQLite.SQLite e5f0: 33 20 44 65 66 69 6e 65 43 6f 6e 73 74 61 6e 74 3 DefineConstant e600: 73 7d 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 s} \.. e610: 20 20 20 20 20 20 20 20 64 65 66 69 6e 65 43 6f defineCo e620: 6e 73 74 61 6e 74 73 5d 20 3d 3d 20 30 7d 20 74 nstants] == 0} t e630: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 hen {.. e640: 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 tputs$::test
e650: 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64  _channel [append
e660: 41 72 67 73 20 5b 66 6f 72 6d 61 74 4c 69 73 74  Args [formatList
e670: 20 5b 6c 73 6f 72 74 20 5c 0d 0a 20 20 20 20 20   [lsort \..
e680: 20 20 20 20 20 20 20 20 20 20 20 24 64 65 66 69             $defi e690: 6e 65 43 6f 6e 73 74 61 6e 74 73 5d 5d 20 5c 6e neConstants]] \n e6a0: 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 20 65 ].. } e e6b0: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 lse {.. e6c0: 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 tputs$::test
e6d0: 5f 63 68 61 6e 6e 65 6c 20 75 6e 6b 6e 6f 77 6e  _channel unknown
e6e0: 5c 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d  \n..          }.
e6f0: 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20  .        }....
e700: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..
e710: 20 23 20 4e 4f 54 45 3a 20 4e 6f 77 2c 20 77 65   # NOTE: Now, we
e720: 20 6e 65 65 64 20 74 6f 20 6b 6e 6f 77 20 69 66   need to know if
e730: 20 74 68 65 20 53 51 4c 69 74 65 20 63 6f 72 65   the SQLite core
e740: 20 6c 69 62 72 61 72 79 20 69 73 20 61 76 61 69   library is avai
e750: 6c 61 62 6c 65 0d 0a 20 20 20 20 20 20 20 20 23  lable..        #
e760: 20 20 20 20 20 20 20 28 69 2e 65 2e 20 62 65 63         (i.e. bec
e770: 61 75 73 65 20 74 68 65 20 6d 61 6e 61 67 65 64  ause the managed
e780: 2d 6f 6e 6c 79 20 53 79 73 74 65 6d 2e 44 61 74  -only System.Dat
e790: 61 2e 53 51 4c 69 74 65 20 61 73 73 65 6d 62 6c  a.SQLite assembl
e7a0: 79 20 63 61 6e 0d 0a 20 20 20 20 20 20 20 20 23  y can..        #
e7b0: 20 20 20 20 20 20 20 6c 6f 61 64 20 77 69 74 68         load with
e7c0: 6f 75 74 20 69 74 3b 20 68 6f 77 65 76 65 72 2c  out it; however,
e7d0: 20 69 74 20 63 61 6e 6e 6f 74 20 64 6f 20 61 6e   it cannot do an
e7e0: 79 74 68 69 6e 67 20 75 73 65 66 75 6c 20 77 69  ything useful wi
e7f0: 74 68 6f 75 74 0d 0a 20 20 20 20 20 20 20 20 23  thout..        #
e800: 20 20 20 20 20 20 20 69 74 29 2e 20 20 49 66 20         it).  If
e810: 77 65 20 61 72 65 20 75 73 69 6e 67 20 74 68 65  we are using the
e820: 20 6d 69 78 65 64 2d 6d 6f 64 65 20 61 73 73 65   mixed-mode asse
e830: 6d 62 6c 79 20 61 6e 64 20 77 65 20 61 6c 72 65  mbly and we alre
e840: 61 64 79 0d 0a 20 20 20 20 20 20 20 20 23 20 20  ady..        #
e850: 20 20 20 20 20 66 6f 75 6e 64 20 69 74 20 28 61       found it (a
e860: 62 6f 76 65 29 2c 20 74 68 69 73 20 73 68 6f 75  bove), this shou
e870: 6c 64 20 61 6c 77 61 79 73 20 73 75 63 63 65 65  ld always succee
e880: 64 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20  d...        #..
e890: 20 20 20 20 20 20 20 63 68 65 63 6b 46 6f 72 53         checkForS
e8a0: 51 4c 69 74 65 20 24 3a 3a 74 65 73 74 5f 63 68  QLite $::test_ch e8b0: 61 6e 6e 65 6c 0d 0a 0d 0a 20 20 20 20 20 20 20 annel.... e8c0: 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f #.. # NO e8d0: 54 45 3a 20 43 68 65 63 6b 20 74 68 65 20 53 51 TE: Check the SQ e8e0: 4c 69 74 65 20 64 61 74 61 62 61 73 65 20 61 6e Lite database an e8f0: 64 20 74 65 6d 70 6f 72 61 72 79 20 64 69 72 65 d temporary dire e900: 63 74 6f 72 69 65 73 2e 0d 0a 20 20 20 20 20 20 ctories... e910: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 63 68 65 #.. che e920: 63 6b 46 6f 72 53 51 4c 69 74 65 44 69 72 65 63 ckForSQLiteDirec e930: 74 6f 72 69 65 73 20 24 3a 3a 74 65 73 74 5f 63 tories$::test_c
e940: 68 61 6e 6e 65 6c 0d 0a 0d 0a 20 20 20 20 20 20  hannel....
e950: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e    #..        # N
e960: 4f 54 45 3a 20 41 74 74 65 6d 70 74 20 74 6f 20  OTE: Attempt to
e970: 64 65 74 65 72 6d 69 6e 65 20 69 66 20 76 61 72  determine if var
e980: 69 6f 75 73 20 63 6f 6d 70 69 6c 65 2d 74 69 6d  ious compile-tim
e990: 65 20 6f 70 74 69 6f 6e 73 20 6e 65 65 64 65 64  e options needed
e9a0: 20 66 6f 72 0d 0a 20 20 20 20 20 20 20 20 23 20   for..        #
e9b0: 20 20 20 20 20 20 74 65 73 74 20 63 6f 6e 73 74        test const
e9c0: 72 61 69 6e 74 73 20 77 65 72 65 20 65 6e 61 62  raints were enab
e9d0: 6c 65 64 20 66 6f 72 20 74 68 65 20 6d 61 6e 61  led for the mana
e9e0: 67 65 64 20 61 73 73 65 6d 62 6c 79 2e 20 20 54  ged assembly.  T
e9f0: 68 65 72 65 0d 0a 20 20 20 20 20 20 20 20 23 20  here..        #
ea00: 20 20 20 20 20 20 61 72 65 20 73 6f 6d 65 20 63        are some c
ea10: 6f 6d 70 69 6c 65 2d 74 69 6d 65 20 6f 70 74 69  ompile-time opti
ea20: 6f 6e 73 20 74 68 61 74 20 6d 75 73 74 20 61 6c  ons that must al
ea30: 73 6f 20 68 61 76 65 20 62 65 65 6e 20 65 6e 61  so have been ena
ea40: 62 6c 65 64 0d 0a 20 20 20 20 20 20 20 20 23 20  bled..        #
ea50: 20 20 20 20 20 20 66 6f 72 20 74 68 65 20 69 6e        for the in
ea60: 74 65 72 6f 70 20 61 73 73 65 6d 62 6c 79 20 69  terop assembly i
ea70: 6e 20 6f 72 64 65 72 20 74 6f 20 62 65 20 65 66  n order to be ef
ea80: 66 65 63 74 69 76 65 2e 20 20 46 6f 72 20 74 68  fective.  For th
ea90: 6f 73 65 0d 0a 20 20 20 20 20 20 20 20 23 20 20  ose..        #
eaa0: 20 20 20 20 20 6f 70 74 69 6f 6e 73 2c 20 69 74       options, it
eab0: 20 77 69 6c 6c 20 62 65 20 61 73 73 75 6d 65 64   will be assumed
eac0: 20 74 68 61 74 20 69 74 20 77 61 73 20 65 6e 61   that it was ena
ead0: 62 6c 65 64 20 66 6f 72 20 74 68 65 20 69 6e 74  bled for the int
eae0: 65 72 6f 70 0d 0a 20 20 20 20 20 20 20 20 23 20  erop..        #
eaf0: 20 20 20 20 20 20 61 73 73 65 6d 62 6c 79 20 69        assembly i
eb00: 66 20 69 74 20 77 61 73 20 65 6e 61 62 6c 65 64  f it was enabled
eb10: 20 66 6f 72 20 74 68 65 20 6d 61 6e 61 67 65 64   for the managed
eb20: 20 61 73 73 65 6d 62 6c 79 2e 0d 0a 20 20 20 20   assembly...
eb30: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 66      #..        f
eb40: 6f 72 65 61 63 68 20 64 65 66 69 6e 65 43 6f 6e  oreach defineCon
eb50: 73 74 61 6e 74 20 5b 6c 69 73 74 20 43 48 45 43  stant [list CHEC
eb60: 4b 5f 53 54 41 54 45 20 43 4f 55 4e 54 5f 48 41  K_STATE COUNT_HA
eb70: 4e 44 4c 45 20 49 4e 54 45 52 4f 50 5f 43 4f 44  NDLE INTEROP_COD
eb80: 45 43 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  EC \..
eb90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
eba0: 20 20 20 20 20 20 20 20 20 20 20 49 4e 54 45 52             INTER
ebb0: 4f 50 5f 44 45 42 55 47 20 49 4e 54 45 52 4f 50  OP_DEBUG INTEROP
ebc0: 5f 4c 4f 47 20 5c 0d 0a 20 20 20 20 20 20 20 20  _LOG \..
ebd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
ebe0: 20 20 20 20 20 20 20 20 20 20 20 20 20 49 4e 54               INT
ebf0: 45 52 4f 50 5f 45 58 54 45 4e 53 49 4f 4e 5f 46  EROP_EXTENSION_F
ec00: 55 4e 43 54 49 4f 4e 53 20 5c 0d 0a 20 20 20 20  UNCTIONS \..
ec10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
ec20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
ec30: 20 49 4e 54 45 52 4f 50 5f 54 45 53 54 5f 45 58   INTEROP_TEST_EX
ec40: 54 45 4e 53 49 4f 4e 20 53 51 4c 49 54 45 5f 53  TENSION SQLITE_S
ec50: 54 41 4e 44 41 52 44 20 5c 0d 0a 20 20 20 20 20  TANDARD \..
ec60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
ec70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
ec80: 55 53 45 5f 49 4e 54 45 52 4f 50 5f 44 4c 4c 5d  USE_INTEROP_DLL]
ec90: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d   {..          #.
eca0: 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54  .          # NOT
ecb0: 45 3a 20 43 68 65 63 6b 20 69 66 20 74 68 65 20  E: Check if the
ecc0: 63 6f 6d 70 69 6c 65 2d 74 69 6d 65 20 6f 70 74  compile-time opt
ecd0: 69 6f 6e 20 69 73 20 6c 69 73 74 65 64 20 69 6e  ion is listed in
ece0: 20 74 68 65 20 6c 69 73 74 20 6f 66 0d 0a 20 20   the list of..
ecf0: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20          #
ed00: 22 64 65 66 69 6e 65 20 63 6f 6e 73 74 61 6e 74  "define constant
ed10: 73 22 20 6b 65 70 74 20 74 72 61 63 6b 20 6f 66  s" kept track of
ed20: 20 62 79 20 74 68 65 20 6d 61 6e 61 67 65 64 20   by the managed
ed30: 61 73 73 65 6d 62 6c 79 2e 0d 0a 20 20 20 20 20  assembly...
ed40: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..
ed50: 20 20 63 68 65 63 6b 46 6f 72 53 51 4c 69 74 65    checkForSQLite
ed60: 44 65 66 69 6e 65 43 6f 6e 73 74 61 6e 74 20 24  DefineConstant $ed70: 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 24 ::test_channel$
ed80: 64 65 66 69 6e 65 43 6f 6e 73 74 61 6e 74 0d 0a  defineConstant..
ed90: 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20          }....
eda0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..
edb0: 23 20 4e 4f 54 45 3a 20 43 68 65 63 6b 20 74 68  # NOTE: Check th
edc0: 65 20 63 75 72 72 65 6e 74 20 62 75 69 6c 64 20  e current build
edd0: 79 65 61 72 2e 20 20 42 61 73 69 63 61 6c 6c 79  year.  Basically
ede0: 2c 20 74 68 69 73 20 69 6e 64 69 63 61 74 65 73  , this indicates
edf0: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20  ..        #
ee00: 20 20 77 68 69 63 68 20 76 65 72 73 69 6f 6e 20    which version
ee10: 6f 66 20 4d 53 42 75 69 6c 64 20 61 6e 64 2f 6f  of MSBuild and/o
ee20: 72 20 56 69 73 75 61 6c 20 53 74 75 64 69 6f 20  r Visual Studio
ee30: 77 61 73 20 75 73 65 64 20 74 6f 0d 0a 20 20 20  was used to..
ee40: 20 20 20 20 20 23 20 20 20 20 20 20 20 63 6f 6d       #       com
ee50: 70 69 6c 65 20 74 68 65 20 61 73 73 65 6d 62 6c  pile the assembl
ee60: 79 20 62 69 6e 61 72 69 65 73 20 75 6e 64 65 72  y binaries under
ee70: 20 74 65 73 74 2e 0d 0a 20 20 20 20 20 20 20 20   test...
ee80: 23 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73  #..        tputs
ee90: 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c   $::test_channel eea0: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \.. eeb0: 22 2d 2d 2d 2d 20 63 68 65 63 6b 69 6e 67 20 66 "---- checking f eec0: 6f 72 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 or System.Data.S eed0: 51 4c 69 74 65 20 62 75 69 6c 64 20 79 65 61 72 QLite build year eee0: 2e 2e 2e 20 22 0d 0a 0d 0a 20 20 20 20 20 20 20 ... ".... eef0: 20 73 65 74 20 79 65 61 72 20 5b 67 65 74 42 75 set year [getBu ef00: 69 6c 64 59 65 61 72 5d 0d 0a 20 20 20 20 20 20 ildYear].. ef10: 20 20 61 64 64 43 6f 6e 73 74 72 61 69 6e 74 20 addConstraint ef20: 5b 61 70 70 65 6e 64 41 72 67 73 20 62 75 69 6c [appendArgs buil ef30: 64 59 65 61 72 20 24 79 65 61 72 5d 0d 0a 20 20 dYear$year]..
ef40: 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74        tputs $::t ef50: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 est_channel [app ef60: 65 6e 64 41 72 67 73 20 5c 22 20 24 79 65 61 72 endArgs \"$year
ef70: 20 5c 22 5c 6e 5d 0d 0a 0d 0a 20 20 20 20 20 20   \"\n]....
ef80: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e    #..        # N
ef90: 4f 54 45 3a 20 43 68 65 63 6b 20 74 68 65 20 63  OTE: Check the c
efa0: 75 72 72 65 6e 74 20 62 75 69 6c 64 20 63 6f 6e  urrent build con
efb0: 66 69 67 75 72 61 74 69 6f 6e 2e 20 20 54 68 69  figuration.  Thi
efc0: 73 20 73 68 6f 75 6c 64 20 6e 6f 72 6d 61 6c 6c  s should normall
efd0: 79 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20  y..        #
efe0: 20 20 20 62 65 20 65 69 74 68 65 72 20 22 44 65     be either "De
eff0: 62 75 67 22 20 6f 72 20 22 52 65 6c 65 61 73 65  bug" or "Release
f000: 22 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20  "...        #..
f010: 20 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a         tputs $:: f020: 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5c 0d 0a test_channel \.. f030: 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d "--- f040: 2d 20 63 68 65 63 6b 69 6e 67 20 66 6f 72 20 53 - checking for S f050: 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 ystem.Data.SQLit f060: 65 20 62 75 69 6c 64 20 63 6f 6e 66 69 67 75 72 e build configur f070: 61 74 69 6f 6e 2e 2e 2e 20 22 0d 0a 0d 0a 20 20 ation... ".... f080: 20 20 20 20 20 20 73 65 74 20 63 6f 6e 66 69 67 set config f090: 75 72 61 74 69 6f 6e 20 5b 67 65 74 42 75 69 6c uration [getBuil f0a0: 64 43 6f 6e 66 69 67 75 72 61 74 69 6f 6e 5d 0d dConfiguration]. f0b0: 0a 20 20 20 20 20 20 20 20 61 64 64 43 6f 6e 73 . addCons f0c0: 74 72 61 69 6e 74 20 5b 61 70 70 65 6e 64 41 72 traint [appendAr f0d0: 67 73 20 62 75 69 6c 64 43 6f 6e 66 69 67 75 72 gs buildConfigur f0e0: 61 74 69 6f 6e 20 24 63 6f 6e 66 69 67 75 72 61 ation$configura
f0f0: 74 69 6f 6e 5d 0d 0a 20 20 20 20 20 20 20 20 74  tion]..        t
f100: 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61  puts $::test_cha f110: 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 nnel [appendArgs f120: 20 5c 22 20 24 63 6f 6e 66 69 67 75 72 61 74 69 \"$configurati
f130: 6f 6e 20 5c 22 5c 6e 5d 0d 0a 0d 0a 20 20 20 20  on \"\n]....
f140: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23      #..        #
f150: 20 4e 4f 54 45 3a 20 43 68 65 63 6b 20 66 6f 72   NOTE: Check for
f160: 20 74 68 65 20 6e 61 74 69 76 65 20 72 75 6e 74   the native runt
f170: 69 6d 65 20 6f 70 74 69 6f 6e 2c 20 77 68 69 63  ime option, whic
f180: 68 20 77 6f 75 6c 64 20 6d 65 61 6e 20 77 65 20  h would mean we
f190: 61 72 65 0d 0a 20 20 20 20 20 20 20 20 23 20 20  are..        #
f1a0: 20 20 20 20 20 75 73 69 6e 67 20 74 68 65 20 6d       using the m
f1b0: 69 78 65 64 2d 6d 6f 64 65 20 61 73 73 65 6d 62  ixed-mode assemb
f1c0: 6c 79 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a  ly...        #..
f1d0: 20 20 20 20 20 20 20 20 63 68 65 63 6b 46 6f 72          checkFor
f1e0: 52 75 6e 74 69 6d 65 4f 70 74 69 6f 6e 20 24 3a  RuntimeOption $: f1f0: 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 6e 61 :test_channel na f200: 74 69 76 65 0d 0a 0d 0a 20 20 20 20 20 20 20 20 tive.... f210: 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT f220: 45 3a 20 43 68 65 63 6b 20 69 66 20 74 68 65 20 E: Check if the f230: 74 65 73 74 20 73 75 69 74 65 20 73 68 6f 75 6c test suite shoul f240: 64 20 63 6f 75 6e 74 20 74 68 65 20 6e 75 6d 62 d count the numb f250: 65 72 20 6f 66 20 63 6f 6e 6e 65 63 74 69 6f 6e er of connection f260: 73 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 s.. # f270: 20 20 20 22 6f 70 65 6e 65 64 22 20 61 6e 64 20 "opened" and f280: 22 63 6c 6f 73 65 64 22 20 66 72 6f 6d 20 74 68 "closed" from th f290: 65 20 70 6f 6f 6c 20 77 68 65 6e 20 64 65 74 65 e pool when dete f2a0: 72 6d 69 6e 69 6e 67 20 69 66 20 61 20 74 65 73 rmining if a tes f2b0: 74 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 t.. # f2c0: 20 20 20 70 61 73 73 65 64 2e 20 20 44 69 73 61 passed. Disa f2d0: 62 6c 69 6e 67 20 74 68 69 73 20 62 65 68 61 76 bling this behav f2e0: 69 6f 72 20 69 73 20 73 6f 6d 65 74 69 6d 65 73 ior is sometimes f2f0: 20 6e 65 63 65 73 73 61 72 79 20 28 65 2e 67 2e necessary (e.g. f300: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 .. # f310: 20 20 64 75 72 69 6e 67 20 74 68 65 20 72 65 6c during the rel f320: 65 61 73 65 20 74 65 73 74 69 6e 67 20 70 72 6f ease testing pro f330: 63 65 73 73 29 20 62 65 63 61 75 73 65 20 74 68 cess) because th f340: 65 72 65 20 61 72 65 20 73 65 76 65 72 61 6c 0d ere are several. f350: 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 . # f360: 20 74 65 73 74 73 20 74 68 61 74 20 72 65 6c 79 tests that rely f370: 20 6f 6e 20 74 68 65 20 22 6f 70 65 6e 65 64 20 on the "opened f380: 66 72 6f 6d 20 70 6f 6f 6c 22 20 63 6f 75 6e 74 from pool" count f390: 20 62 65 69 6e 67 20 67 72 65 61 74 65 72 0d 0a being greater.. f3a0: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 # f3b0: 74 68 61 6e 20 7a 65 72 6f 2e 20 20 54 68 65 73 than zero. Thes f3c0: 65 20 74 65 73 74 73 20 6d 61 79 20 66 61 69 6c e tests may fail f3d0: 20 64 75 65 20 74 6f 20 74 68 65 20 6e 6f 6e 2d due to the non- f3e0: 64 65 74 65 72 6d 69 6e 69 73 74 69 63 0d 0a 20 deterministic.. f3f0: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 62 # b f400: 65 68 61 76 69 6f 72 20 6f 66 20 74 68 65 20 43 ehavior of the C f410: 4c 52 20 47 43 2c 20 65 76 65 6e 20 77 68 65 6e LR GC, even when f420: 20 74 68 65 72 65 20 69 73 20 6e 6f 20 62 75 67 there is no bug f430: 20 69 6e 20 74 68 65 20 63 6f 64 65 0d 0a 20 20 in the code.. f440: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 62 65 # be f450: 69 6e 67 20 74 65 73 74 65 64 2e 0d 0a 20 20 20 ing tested... f460: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #.. f470: 63 68 65 63 6b 46 6f 72 52 75 6e 74 69 6d 65 4f checkForRuntimeO f480: 70 74 69 6f 6e 20 24 3a 3a 74 65 73 74 5f 63 68 ption$::test_ch
f490: 61 6e 6e 65 6c 20 6e 6f 50 6f 6f 6c 43 6f 75 6e  annel noPoolCoun
f4a0: 74 73 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d  ts....        #.
f4b0: 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a  .        # NOTE:
f4c0: 20 52 65 70 6f 72 74 20 74 68 65 20 72 65 73 6f   Report the reso
f4d0: 75 72 63 65 20 75 73 61 67 65 20 70 72 69 6f 72  urce usage prior
f4e0: 20 74 6f 20 72 75 6e 6e 69 6e 67 20 61 6e 79 20   to running any
f4f0: 74 65 73 74 73 2e 0d 0a 20 20 20 20 20 20 20 20  tests...
f500: 23 0d 0a 20 20 20 20 20 20 20 20 72 65 70 6f 72  #..        repor
f510: 74 53 51 4c 69 74 65 52 65 73 6f 75 72 63 65 73  tSQLiteResources
f520: 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c   $::test_channel f530: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 .... #.. f540: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 # NOTE: S f550: 68 6f 77 20 74 68 65 20 61 63 74 69 76 65 20 74 how the active t f560: 65 73 74 20 63 6f 6e 73 74 72 61 69 6e 74 73 2e est constraints. f570: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #.. f580: 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 tputs$::te
f590: 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65  st_channel [appe
f5a0: 6e 64 41 72 67 73 20 22 2d 2d 2d 2d 20 63 6f 6e  ndArgs "---- con
f5b0: 73 74 72 61 69 6e 74 73 3a 20 22 20 5c 0d 0a 20  straints: " \..
f5c0: 20 20 20 20 20 20 20 20 20 20 20 5b 66 6f 72 6d             [form
f5d0: 61 74 4c 69 73 74 20 5b 6c 73 6f 72 74 20 5b 67  atList [lsort [g
f5e0: 65 74 43 6f 6e 73 74 72 61 69 6e 74 73 5d 5d 5d  etConstraints]]]
f5f0: 20 5c 6e 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20   \n]....
f600: 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54  #..        # NOT
f610: 45 3a 20 53 61 76 65 20 74 68 65 20 74 65 73 74  E: Save the test
f620: 20 63 6f 6e 73 74 72 61 69 6e 74 73 20 66 6f 72   constraints for
f630: 20 75 73 65 20 62 79 20 74 68 72 65 61 64 73 20   use by threads
f640: 63 72 65 61 74 65 64 20 69 6e 20 74 68 69 73 0d  created in this.
f650: 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20  .        #
f660: 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 64 6f 6d   application dom
f670: 61 69 6e 2e 20 20 54 68 69 73 20 69 73 20 6e 65  ain.  This is ne
f680: 63 65 73 73 61 72 79 20 62 65 63 61 75 73 65 20  cessary because
f690: 61 6c 6c 20 74 68 65 20 45 61 67 6c 65 0d 0a 20  all the Eagle..
f6a0: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 22         #       "
f6b0: 74 65 73 74 20 63 6f 6e 74 65 78 74 22 20 69 6e  test context" in
f6c0: 66 6f 72 6d 61 74 69 6f 6e 20 69 73 20 70 65 72  formation is per
f6d0: 2d 74 68 72 65 61 64 2e 0d 0a 20 20 20 20 20 20  -thread...
f6e0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 69 66 20    #..        if
f6f0: 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a  {![info exists :
f700: 3a 74 65 73 74 5f 63 6f 6e 73 74 72 61 69 6e 74  :test_constraint
f710: 73 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20  s]} then {..
f720: 20 20 20 20 20 20 73 65 74 20 3a 3a 74 65 73 74        set ::test
f730: 5f 63 6f 6e 73 74 72 61 69 6e 74 73 20 24 3a 3a  _constraints $:: f740: 65 61 67 6c 65 5f 74 65 73 74 73 28 63 6f 6e 73 eagle_tests(cons f750: 74 72 61 69 6e 74 73 29 0d 0a 20 20 20 20 20 20 traints).. f760: 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 }.... # f770: 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 .. # NOTE f780: 3a 20 4c 6f 61 64 20 74 68 65 20 22 61 66 74 65 : Load the "afte f790: 72 2d 63 6f 6e 73 74 72 61 69 6e 74 73 22 20 63 r-constraints" c f7a0: 75 73 74 6f 6d 20 70 65 72 2d 75 73 65 72 20 61 ustom per-user a f7b0: 6e 64 2f 6f 72 20 70 65 72 2d 68 6f 73 74 0d 0a nd/or per-host.. f7c0: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 # f7d0: 74 65 73 74 20 73 65 74 74 69 6e 67 73 20 6e 6f test settings no f7e0: 77 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 w... #.. f7f0: 20 20 20 20 20 20 20 75 70 6c 65 76 65 6c 20 31 uplevel 1 f800: 20 5b 6c 69 73 74 20 6c 6f 61 64 53 51 4c 69 74 [list loadSQLit f810: 65 54 65 73 74 53 65 74 74 69 6e 67 73 20 24 3a eTestSettings$:
f820: 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 2e 61  :test_channel .a
f830: 66 74 65 72 5d 0d 0a 0d 0a 20 20 20 20 20 20 20  fter]....
f840: 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f   #..        # NO
f850: 54 45 3a 20 53 68 6f 77 20 77 68 65 6e 20 6f 75  TE: Show when ou
f860: 72 20 74 65 73 74 73 20 61 63 74 75 61 6c 6c 79  r tests actually
f870: 20 62 65 67 61 6e 20 28 6e 6f 77 29 2e 0d 0a 20   began (now)...
f880: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..
f890: 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f    tputs $::test_ f8a0: 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 channel [appendA f8b0: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 rgs \.. f8c0: 20 20 20 22 2d 2d 2d 2d 20 53 79 73 74 65 6d 2e "---- System. f8d0: 44 61 74 61 2e 53 51 4c 69 74 65 20 74 65 73 74 Data.SQLite test f8e0: 73 20 62 65 67 61 6e 20 61 74 20 22 20 5c 0d 0a s began at " \.. f8f0: 20 20 20 20 20 20 20 20 20 20 20 20 5b 63 6c 6f [clo f900: 63 6b 20 66 6f 72 6d 61 74 20 5b 63 6c 6f 63 6b ck format [clock f910: 20 73 65 63 6f 6e 64 73 5d 5d 20 5c 6e 5d 0d 0a seconds]] \n].. f920: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a }.. }.. f930: 0c 0d 0a 20 20 20 20 70 72 6f 63 20 72 75 6e 53 ... proc runS f940: 51 4c 69 74 65 54 65 73 74 45 70 69 6c 6f 67 75 QLiteTestEpilogu f950: 65 20 7b 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d e {} {.. #. f960: 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 . # NOTE: S f970: 6b 69 70 20 72 75 6e 6e 69 6e 67 20 6f 75 72 20 kip running our f980: 63 75 73 74 6f 6d 20 65 70 69 6c 6f 67 75 65 20 custom epilogue f990: 69 66 20 74 68 65 20 6d 61 69 6e 20 6f 6e 65 20 if the main one f9a0: 68 61 73 20 62 65 65 6e 0d 0a 20 20 20 20 20 20 has been.. f9b0: 23 20 20 20 20 20 20 20 73 6b 69 70 70 65 64 2e # skipped. f9c0: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #.. f9d0: 20 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 if {![info exis f9e0: 74 73 20 3a 3a 6e 6f 28 65 70 69 6c 6f 67 75 65 ts ::no(epilogue f9f0: 2e 65 61 67 6c 65 29 5d 7d 20 74 68 65 6e 20 7b .eagle)]} then { fa00: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #.. fa10: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 68 6f # NOTE: Sho fa20: 77 20 77 68 65 6e 20 6f 75 72 20 74 65 73 74 73 w when our tests fa30: 20 61 63 74 75 61 6c 6c 79 20 65 6e 64 65 64 20 actually ended fa40: 28 6e 6f 77 29 2e 0d 0a 20 20 20 20 20 20 20 20 (now)... fa50: 23 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 #.. tputs fa60: 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c$::test_channel
fa70: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a   [appendArgs \..
fa80: 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d              "---
fa90: 2d 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51  - System.Data.SQ
faa0: 4c 69 74 65 20 74 65 73 74 73 20 65 6e 64 65 64  Lite tests ended
fab0: 20 61 74 20 22 20 5c 0d 0a 20 20 20 20 20 20 20   at " \..
fac0: 20 20 20 20 20 5b 63 6c 6f 63 6b 20 66 6f 72 6d       [clock form
fad0: 61 74 20 5b 63 6c 6f 63 6b 20 73 65 63 6f 6e 64  at [clock second
fae0: 73 5d 5d 20 5c 6e 5d 0d 0a 0d 0a 20 20 20 20 20  s]] \n]....
faf0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20     #..        #
fb00: 42 55 47 46 49 58 3a 20 42 65 66 6f 72 65 20 63  BUGFIX: Before c
fb10: 68 65 63 6b 69 6e 67 20 74 68 65 20 66 69 6e 61  hecking the fina
fb20: 6c 20 72 65 73 6f 75 72 63 65 73 20 69 6e 20 75  l resources in u
fb30: 73 65 20 62 79 20 53 51 4c 69 74 65 2c 20 6d 61  se by SQLite, ma
fb40: 6b 65 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20  ke..        #
fb50: 20 20 20 20 20 20 73 75 72 65 20 62 6f 74 68 20        sure both
fb60: 6f 66 20 74 68 65 20 50 52 41 47 4d 41 20 72 65  of the PRAGMA re
fb70: 6c 61 74 65 64 20 64 69 72 65 63 74 6f 72 79 20  lated directory
fb80: 6e 61 6d 65 73 20 61 72 65 20 66 72 65 65 64 2e  names are freed.
fb90: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20  ..        #..
fba0: 20 20 20 20 20 63 68 65 63 6b 46 6f 72 53 51 4c       checkForSQL
fbb0: 69 74 65 44 69 72 65 63 74 6f 72 69 65 73 20 24  iteDirectories $fbc0: 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 74 ::test_channel t fbd0: 72 75 65 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 rue.... # fbe0: 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 .. # NOTE fbf0: 3a 20 41 6c 73 6f 20 72 65 70 6f 72 74 20 74 68 : Also report th fc00: 65 20 72 65 73 6f 75 72 63 65 20 75 73 61 67 65 e resource usage fc10: 20 61 66 74 65 72 20 72 75 6e 6e 69 6e 67 20 74 after running t fc20: 68 65 20 74 65 73 74 73 2e 0d 0a 20 20 20 20 20 he tests... fc30: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 72 65 #.. re fc40: 70 6f 72 74 53 51 4c 69 74 65 52 65 73 6f 75 72 portSQLiteResour fc50: 63 65 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e ces$::test_chan
fc60: 6e 65 6c 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20  nel..      }..
fc70: 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 23 23 23 23    }.....    ####
fc80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
fc90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
fca0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
fcb0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
fcc0: 23 23 23 23 23 23 23 0d 0a 20 20 20 20 23 23 23  #######..    ###
fcd0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
fce0: 23 23 23 23 23 23 23 23 23 23 20 45 4e 44 20 45  ########## END E
fcf0: 61 67 6c 65 20 4f 4e 4c 59 20 23 23 23 23 23 23  agle ONLY ######
fd00: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
fd10: 23 23 23 23 23 23 23 23 0d 0a 20 20 20 20 23 23  ########..    ##
fd20: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
fd30: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
fd40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
fd50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
fd60: 23 23 23 23 23 23 23 23 23 0d 0a 20 20 7d 0d 0a  #########..  }..
fd70: 0d 0a 20 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a  ..  #..  # NOTE:
fd80: 20 53 61 76 65 20 74 68 65 20 6e 61 6d 65 20 6f   Save the name o
fd90: 66 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 20  f the directory
fda0: 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 69 73 20  containing this
fdb0: 66 69 6c 65 2e 0d 0a 20 20 23 0d 0a 20 20 69 66  file...  #..  if
fdc0: 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20   {![info exists
fdd0: 3a 3a 63 6f 6d 6d 6f 6e 5f 64 69 72 65 63 74 6f  ::common_directo
fde0: 72 79 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  ry]} then {..
fdf0: 20 73 65 74 20 3a 3a 63 6f 6d 6d 6f 6e 5f 64 69   set ::common_di
fe00: 72 65 63 74 6f 72 79 20 5b 66 69 6c 65 20 64 69  rectory [file di
fe10: 72 6e 61 6d 65 20 5b 69 6e 66 6f 20 73 63 72 69  rname [info scri
fe20: 70 74 5d 5d 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 23  pt]]..  }....  #
fe30: 0d 0a 20 20 23 20 4e 4f 54 45 3a 20 50 72 6f 76  ..  # NOTE: Prov
fe40: 69 64 65 20 74 68 65 20 53 79 73 74 65 6d 2e 44  ide the System.D
fe50: 61 74 61 2e 53 51 4c 69 74 65 20 74 65 73 74 20  ata.SQLite test
fe60: 70 61 63 6b 61 67 65 20 74 6f 20 74 68 65 20 69  package to the i
fe70: 6e 74 65 72 70 72 65 74 65 72 2e 0d 0a 20 20 23  nterpreter...  #
fe80: 0d 0a 20 20 70 61 63 6b 61 67 65 20 70 72 6f 76  ..  package prov
fe90: 69 64 65 20 53 79 73 74 65 6d 2e 44 61 74 61 2e  ide System.Data.
fea0: 53 51 4c 69 74 65 2e 54 65 73 74 20 31 2e 30 0d  SQLite.Test 1.0.
feb0: 0a 7d 0d 0a                                      .}..