System.Data.SQLite
Hex Artifact Content
Not logged in

## Artifact 3b30ed97d94401fc96c1b2cb08d80e5a08fd1744:

• File Tests/common.eagle — part of check-in [34eb58d008] at 2012-10-08 13:48:54 on branch trunk — Enhancements to test suite infrastructure and comments. (user: mistachkin size: 49558)

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 44 61 74 61 62 61 73 65 44 69  oc getDatabaseDi
32f0: 72 65 63 74 6f 72 79 20 7b 7d 20 7b 0d 0a 20 20  rectory {} {..
3300: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e      #..      # N
3310: 4f 54 45 3a 20 54 68 69 73 20 70 72 6f 63 65 64  OTE: This proced
3320: 75 72 65 20 72 65 74 75 72 6e 73 20 74 68 65 20  ure returns the
3330: 64 69 72 65 63 74 6f 72 79 20 77 68 65 72 65 20  directory where
3340: 74 68 65 20 74 65 73 74 20 64 61 74 61 62 61 73  the test databas
3350: 65 73 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20  es..      #
3360: 20 20 73 68 6f 75 6c 64 20 62 65 20 6c 6f 63 61    should be loca
3370: 74 65 64 2e 20 20 42 79 20 64 65 66 61 75 6c 74  ted.  By default
3380: 2c 20 74 68 69 73 20 6a 75 73 74 20 75 73 65 73  , this just uses
3390: 20 74 68 65 20 74 65 6d 70 6f 72 61 72 79 0d 0a   the temporary..
33a0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 64 69        #       di
33b0: 72 65 63 74 6f 72 79 20 63 6f 6e 66 69 67 75 72  rectory configur
33c0: 65 64 20 66 6f 72 20 74 68 69 73 20 73 79 73 74  ed for this syst
33d0: 65 6d 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  em...      #..
33e0: 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78      if {[info ex
33f0: 69 73 74 73 20 3a 3a 64 61 74 61 62 61 73 65 5f  ists ::database_
3400: 64 69 72 65 63 74 6f 72 79 5d 20 26 26 20 5c 0d  directory] && \.
3410: 0a 20 20 20 20 20 20 20 20 20 20 5b 73 74 72 69  .          [stri
3420: 6e 67 20 6c 65 6e 67 74 68 20 24 3a 3a 64 61 74  ng length $::dat 3430: 61 62 61 73 65 5f 64 69 72 65 63 74 6f 72 79 5d abase_directory] 3440: 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 > 0} then {.. 3450: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #.. 3460: 20 23 20 4e 4f 54 45 3a 20 54 68 65 20 6c 6f 63 # NOTE: The loc 3470: 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 64 61 74 ation of the dat 3480: 61 62 61 73 65 20 64 69 72 65 63 74 6f 72 79 20 abase directory 3490: 68 61 73 20 62 65 65 6e 20 6f 76 65 72 72 69 64 has been overrid 34a0: 64 65 6e 3b 0d 0a 20 20 20 20 20 20 20 20 23 20 den;.. # 34b0: 20 20 20 20 20 20 74 68 65 72 65 66 6f 72 65 2c therefore, 34c0: 20 75 73 65 20 69 74 2e 0d 0a 20 20 20 20 20 20 use it... 34d0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 72 65 74 #.. ret 34e0: 75 72 6e 20 5b 66 69 6c 65 20 6e 6f 72 6d 61 6c urn [file normal 34f0: 69 7a 65 20 24 3a 3a 64 61 74 61 62 61 73 65 5f ize$::database_
3500: 64 69 72 65 63 74 6f 72 79 5d 0d 0a 20 20 20 20  directory]..
3510: 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20    } else {..
3520: 20 20 20 20 72 65 74 75 72 6e 20 5b 67 65 74 54      return [getT
3530: 65 6d 70 6f 72 61 72 79 50 61 74 68 5d 0d 0a 20  emporaryPath]..
3540: 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c       }..    }...
3550: 0d 0a 20 20 20 20 70 72 6f 63 20 67 65 74 54 65  ..    proc getTe
3560: 6d 70 6f 72 61 72 79 44 69 72 65 63 74 6f 72 79  mporaryDirectory
3570: 20 7b 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a   {} {..      #..
3580: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 68        # NOTE: Th
3590: 69 73 20 70 72 6f 63 65 64 75 72 65 20 72 65 74  is procedure ret
35a0: 75 72 6e 73 20 74 68 65 20 64 69 72 65 63 74 6f  urns the directo
35b0: 72 79 20 77 68 65 72 65 20 74 68 65 20 74 65 6d  ry where the tem
35c0: 70 6f 72 61 72 79 20 66 69 6c 65 73 0d 0a 20 20  porary files..
35d0: 20 20 20 20 23 20 20 20 20 20 20 20 73 68 6f 75      #       shou
35e0: 6c 64 20 62 65 20 6c 6f 63 61 74 65 64 2e 20 20  ld be located.
35f0: 42 79 20 64 65 66 61 75 6c 74 2c 20 74 68 69 73  By default, this
3600: 20 6a 75 73 74 20 75 73 65 73 20 74 68 65 20 74   just uses the t
3610: 65 6d 70 6f 72 61 72 79 0d 0a 20 20 20 20 20 20  emporary..
3620: 23 20 20 20 20 20 20 20 64 69 72 65 63 74 6f 72  #       director
3630: 79 20 63 6f 6e 66 69 67 75 72 65 64 20 66 6f 72  y configured for
3640: 20 74 68 69 73 20 73 79 73 74 65 6d 2e 0d 0a 20   this system...
3650: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66       #..      if
3660: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a   {[info exists :
3670: 3a 74 65 6d 70 6f 72 61 72 79 5f 64 69 72 65 63  :temporary_direc
3680: 74 6f 72 79 5d 20 26 26 20 5c 0d 0a 20 20 20 20  tory] && \..
3690: 20 20 20 20 20 20 5b 73 74 72 69 6e 67 20 6c 65        [string le
36a0: 6e 67 74 68 20 24 3a 3a 74 65 6d 70 6f 72 61 72  ngth $::temporar 36b0: 79 5f 64 69 72 65 63 74 6f 72 79 5d 20 3e 20 30 y_directory] > 0 36c0: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {.. 36d0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e #.. # N 36e0: 4f 54 45 3a 20 54 68 65 20 6c 6f 63 61 74 69 6f OTE: The locatio 36f0: 6e 20 6f 66 20 74 68 65 20 74 65 6d 70 6f 72 61 n of the tempora 3700: 72 79 20 64 69 72 65 63 74 6f 72 79 20 68 61 73 ry directory has 3710: 20 62 65 65 6e 20 6f 76 65 72 72 69 64 64 65 6e been overridden 3720: 3b 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 ;.. # 3730: 20 20 20 74 68 65 72 65 66 6f 72 65 2c 20 75 73 therefore, us 3740: 65 20 69 74 2e 0d 0a 20 20 20 20 20 20 20 20 23 e it... # 3750: 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e .. return 3760: 20 5b 66 69 6c 65 20 6e 6f 72 6d 61 6c 69 7a 65 [file normalize 3770: 20 24 3a 3a 74 65 6d 70 6f 72 61 72 79 5f 64 69$::temporary_di
3780: 72 65 63 74 6f 72 79 5d 0d 0a 20 20 20 20 20 20  rectory]..
3790: 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20  } else {..
37a0: 20 20 72 65 74 75 72 6e 20 5b 67 65 74 54 65 6d    return [getTem
37b0: 70 6f 72 61 72 79 50 61 74 68 5d 0d 0a 20 20 20  poraryPath]..
37c0: 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a     }..    }.....
37d0: 20 20 20 20 70 72 6f 63 20 67 65 74 54 65 73 74      proc getTest
37e0: 4f 76 65 72 72 69 64 65 73 50 72 65 61 6d 62 6c  OverridesPreambl
37f0: 65 20 7b 20 7b 65 78 74 72 61 56 61 72 4e 61 6d  e { {extraVarNam
3800: 65 73 20 22 22 7d 20 7d 20 7b 0d 0a 20 20 20 20  es ""} } {..
3810: 20 20 73 65 74 20 76 61 72 4e 61 6d 65 73 20 5b    set varNames [
3820: 6c 69 73 74 5d 0d 0a 0d 0a 20 20 20 20 20 20 23  list]....      #
3830: 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20  ..      # NOTE:
3840: 49 66 20 61 76 61 69 6c 61 62 6c 65 2c 20 73 74  If available, st
3850: 61 72 74 20 77 69 74 68 20 74 68 65 20 6d 61 73  art with the mas
3860: 74 65 72 20 6c 69 73 74 20 6f 66 20 74 65 73 74  ter list of test
3870: 20 6f 76 65 72 72 69 64 65 0d 0a 20 20 20 20 20   override..
3880: 20 23 20 20 20 20 20 20 20 76 61 72 69 61 62 6c   #       variabl
3890: 65 73 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  es...      #..
38a0: 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78      if {[info ex
38b0: 69 73 74 73 20 3a 3a 74 65 73 74 5f 6f 76 65 72  ists ::test_over
38c0: 72 69 64 65 73 5d 20 26 26 20 5c 0d 0a 20 20 20  rides] && \..
38d0: 20 20 20 20 20 20 20 5b 6c 6c 65 6e 67 74 68 20         [llength
38e0: 24 3a 3a 74 65 73 74 5f 6f 76 65 72 72 69 64 65  $::test_override 38f0: 73 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a s] > 0} then {.. 3900: 20 20 20 20 20 20 20 20 65 76 61 6c 20 6c 61 70 eval lap 3910: 70 65 6e 64 20 76 61 72 4e 61 6d 65 73 20 24 3a pend varNames$:
3920: 3a 74 65 73 74 5f 6f 76 65 72 72 69 64 65 73 0d  :test_overrides.
3930: 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20  .      }....
3940: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54    #..      # NOT
3950: 45 3a 20 49 66 20 72 65 71 75 65 73 74 65 64 20  E: If requested
3960: 62 79 20 6f 75 72 20 63 61 6c 6c 65 72 2c 20 61  by our caller, a
3970: 64 64 20 61 6e 79 20 61 64 64 69 74 69 6f 6e 61  dd any additiona
3980: 6c 20 76 61 72 69 61 62 6c 65 0d 0a 20 20 20 20  l variable..
3990: 20 20 23 20 20 20 20 20 20 20 6e 61 6d 65 73 20    #       names
39a0: 74 6f 20 63 6f 70 79 20 6e 6f 77 2e 0d 0a 20 20  to copy now...
39b0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20      #..      if
39c0: 7b 5b 6c 6c 65 6e 67 74 68 20 24 65 78 74 72 61  {[llength $extra 39d0: 56 61 72 4e 61 6d 65 73 5d 20 3e 20 30 7d 20 74 VarNames] > 0} t 39e0: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 65 hen {.. e 39f0: 76 61 6c 20 6c 61 70 70 65 6e 64 20 76 61 72 4e val lappend varN 3a00: 61 6d 65 73 20 24 65 78 74 72 61 56 61 72 4e 61 ames$extraVarNa
3a10: 6d 65 73 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a  mes..      }....
3a20: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23        #..      #
3a30: 20 4e 4f 54 45 3a 20 42 75 69 6c 64 20 74 68 65   NOTE: Build the
3a40: 20 73 63 72 69 70 74 20 66 72 61 67 6d 65 6e 74   script fragment
3a50: 20 74 6f 20 62 65 20 72 65 74 75 72 6e 65 64 20   to be returned
3a60: 62 79 20 70 72 6f 63 65 73 73 69 6e 67 20 65 61  by processing ea
3a70: 63 68 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20  ch..      #
3a80: 20 20 76 61 72 69 61 62 6c 65 20 6e 61 6d 65 20    variable name
3a90: 61 6e 64 20 61 64 64 69 6e 67 20 74 68 65 20 6e  and adding the n
3aa0: 65 63 65 63 65 73 73 61 72 79 20 73 63 72 69 70  ececessary scrip
3ab0: 74 20 66 72 61 67 6d 65 6e 74 73 20 66 6f 72 0d  t fragments for.
3ac0: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 65  .      #       e
3ad0: 61 63 68 20 6f 6e 65 2e 0d 0a 20 20 20 20 20 20  ach one...
3ae0: 23 0d 0a 20 20 20 20 20 20 73 65 74 20 72 65 73  #..      set res
3af0: 75 6c 74 20 22 22 0d 0a 0d 0a 20 20 20 20 20 20  ult ""....
3b00: 66 6f 72 65 61 63 68 20 76 61 72 4e 61 6d 65 20  foreach varName
3b10: 24 76 61 72 4e 61 6d 65 73 20 7b 0d 0a 20 20 20  $varNames {.. 3b20: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #.. 3b30: 23 20 4e 4f 54 45 3a 20 42 75 69 6c 64 20 74 68 # NOTE: Build th 3b40: 65 20 71 75 61 6c 69 66 69 65 64 20 67 6c 6f 62 e qualified glob 3b50: 61 6c 20 76 61 72 69 61 62 6c 65 20 6e 61 6d 65 al variable name 3b60: 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 ... #.. 3b70: 20 20 20 20 20 20 73 65 74 20 66 75 6c 6c 56 61 set fullVa 3b80: 72 4e 61 6d 65 20 5b 61 70 70 65 6e 64 41 72 67 rName [appendArg 3b90: 73 20 3a 3a 20 24 76 61 72 4e 61 6d 65 5d 0d 0a s ::$varName]..
3ba0: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20  ..        #..
3bb0: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 44 6f 65       # NOTE: Doe
3bc0: 73 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 65  s the variable e
3bd0: 78 69 73 74 20 69 6e 20 74 68 69 73 20 69 6e 74  xist in this int
3be0: 65 72 70 72 65 74 65 72 20 63 6f 6e 74 65 78 74  erpreter context
3bf0: 3f 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20  ?..        #..
3c00: 20 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20        if {[info
3c10: 65 78 69 73 74 73 20 24 66 75 6c 6c 56 61 72 4e  exists $fullVarN 3c20: 61 6d 65 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 ame]} then {.. 3c30: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #.. 3c40: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 41 70 70 # NOTE: App 3c50: 65 6e 64 20 61 20 73 63 72 69 70 74 20 66 72 61 end a script fra 3c60: 67 6d 65 6e 74 20 74 6f 20 74 68 65 20 72 65 73 gment to the res 3c70: 75 6c 74 20 74 68 61 74 20 77 69 6c 6c 20 63 6f ult that will co 3c80: 72 72 65 63 74 6c 79 0d 0a 20 20 20 20 20 20 20 rrectly.. 3c90: 20 20 20 23 20 20 20 20 20 20 20 63 6f 70 79 20 # copy 3ca0: 61 6e 79 20 63 6f 6e 74 61 69 6e 65 64 20 76 61 any contained va 3cb0: 6c 75 65 20 74 6f 20 61 6e 6f 74 68 65 72 20 69 lue to another i 3cc0: 6e 74 65 72 70 72 65 74 65 72 20 63 6f 6e 74 65 nterpreter conte 3cd0: 78 74 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23 xt... # 3ce0: 0d 0a 20 20 20 20 20 20 20 20 20 20 61 70 70 65 .. appe 3cf0: 6e 64 20 72 65 73 75 6c 74 20 5c 6e 20 22 73 65 nd result \n "se 3d00: 74 20 22 20 24 66 75 6c 6c 56 61 72 4e 61 6d 65 t "$fullVarName
3d10: 20 22 20 5c 7b 22 20 5b 73 65 74 20 24 66 75 6c   " \{" [set $ful 3d20: 6c 56 61 72 4e 61 6d 65 5d 20 5c 7d 0d 0a 20 20 lVarName] \}.. 3d30: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d }.. } 3d40: 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 .... #.. 3d50: 20 20 20 23 20 4e 4f 54 45 3a 20 49 66 20 74 68 # NOTE: If th 3d60: 65 20 72 65 73 75 6c 74 20 63 6f 6e 74 61 69 6e e result contain 3d70: 73 20 6f 6e 65 20 6f 72 20 6d 6f 72 65 20 73 63 s one or more sc 3d80: 72 69 70 74 20 66 72 61 67 6d 65 6e 74 73 2c 20 ript fragments, 3d90: 61 70 70 65 6e 64 20 61 0d 0a 20 20 20 20 20 20 append a.. 3da0: 23 20 20 20 20 20 20 20 6e 65 77 6c 69 6e 65 2e # newline. 3db0: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #.. 3dc0: 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e if {[string len 3dd0: 67 74 68 20 24 72 65 73 75 6c 74 5d 20 3e 20 30 gth$result] > 0
3de0: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..
3df0: 20 20 61 70 70 65 6e 64 20 72 65 73 75 6c 74 20    append result
3e00: 5c 6e 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20  \n..      }....
3e10: 20 20 20 20 20 72 65 74 75 72 6e 20 24 72 65 73       return $res 3e20: 75 6c 74 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 ult.. }..... 3e30: 20 20 20 70 72 6f 63 20 67 65 74 41 70 70 44 6f proc getAppDo 3e40: 6d 61 69 6e 50 72 65 61 6d 62 6c 65 20 7b 20 7b mainPreamble { { 3e50: 70 72 65 66 69 78 20 22 22 7d 20 7b 73 75 66 66 prefix ""} {suff 3e60: 69 78 20 22 22 7d 20 7d 20 7b 0d 0a 20 20 20 20 ix ""} } {.. 3e70: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT 3e80: 45 3a 20 54 68 69 73 20 70 72 6f 63 65 64 75 72 E: This procedur 3e90: 65 20 72 65 74 75 72 6e 73 20 61 20 74 65 73 74 e returns a test 3ea0: 20 73 65 74 75 70 20 73 63 72 69 70 74 20 66 72 setup script fr 3eb0: 61 67 6d 65 6e 74 20 73 75 69 74 61 62 6c 65 20 agment suitable 3ec0: 66 6f 72 0d 0a 20 20 20 20 20 20 23 20 20 20 20 for.. # 3ed0: 20 20 20 65 76 61 6c 75 61 74 69 6f 6e 20 62 79 evaluation by 3ee0: 20 61 6e 20 69 6e 74 65 72 70 72 65 74 65 72 20 an interpreter 3ef0: 63 72 65 61 74 65 64 20 69 6e 20 61 6e 20 69 73 created in an is 3f00: 6f 6c 61 74 65 64 20 61 70 70 6c 69 63 61 74 69 olated applicati 3f10: 6f 6e 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 on.. # 3f20: 20 20 64 6f 6d 61 69 6e 2e 20 20 54 68 65 20 73 domain. The s 3f30: 63 72 69 70 74 20 66 72 61 67 6d 65 6e 74 20 62 cript fragment b 3f40: 65 69 6e 67 20 72 65 74 75 72 6e 65 64 20 77 69 eing returned wi 3f50: 6c 6c 20 62 65 20 73 75 72 72 6f 75 6e 64 65 64 ll be surrounded 3f60: 20 62 79 0d 0a 20 20 20 20 20 20 23 20 20 20 20 by.. # 3f70: 20 20 20 74 68 65 20 70 72 65 66 69 78 20 61 6e the prefix an 3f80: 64 20 73 75 66 66 69 78 20 22 73 63 72 69 70 74 d suffix "script 3f90: 20 66 72 61 67 6d 65 6e 74 73 22 20 73 70 65 63 fragments" spec 3fa0: 69 66 69 65 64 20 62 79 20 6f 75 72 20 63 61 6c ified by our cal 3fb0: 6c 65 72 2c 0d 0a 20 20 20 20 20 20 23 20 20 20 ler,.. # 3fc0: 20 20 20 20 69 66 20 61 6e 79 2e 20 20 54 68 65 if any. The 3fd0: 20 65 6e 74 69 72 65 20 73 63 72 69 70 74 20 62 entire script b 3fe0: 65 69 6e 67 20 72 65 74 75 72 6e 65 64 20 77 69 eing returned wi 3ff0: 6c 6c 20 62 65 20 73 75 62 73 74 69 74 75 74 65 ll be substitute 4000: 64 20 76 69 61 0d 0a 20 20 20 20 20 20 23 20 20 d via.. # 4010: 20 20 20 20 20 5b 73 75 62 73 74 5d 2c 20 69 6e [subst], in 4020: 20 74 68 65 20 63 6f 6e 74 65 78 74 20 6f 66 20 the context of 4030: 6f 75 72 20 63 61 6c 6c 65 72 2c 20 62 65 66 6f our caller, befo 4040: 72 65 20 62 65 69 6e 67 20 72 65 74 75 72 6e 65 re being returne 4050: 64 2e 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 d... # 4060: 20 20 54 68 69 73 20 73 74 65 70 20 69 73 20 6e This step is n 4070: 65 63 65 73 73 61 72 79 20 73 6f 20 74 68 61 74 ecessary so that 4080: 20 73 6f 6d 65 20 6c 69 6d 69 74 65 64 20 63 6f some limited co 4090: 6e 74 65 78 74 20 69 6e 66 6f 72 6d 61 74 69 6f ntext informatio 40a0: 6e 2c 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 n,.. # 40b0: 20 20 70 72 69 6d 61 72 69 6c 79 20 72 65 6c 61 primarily rela 40c0: 74 65 64 20 74 6f 20 74 68 65 20 74 65 73 74 69 ted to the testi 40d0: 6e 67 20 64 69 72 65 63 74 6f 72 69 65 73 2c 20 ng directories, 40e0: 63 61 6e 20 62 65 20 74 72 61 6e 73 66 65 72 72 can be transferr 40f0: 65 64 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 ed.. # 4100: 20 20 74 6f 20 74 68 65 20 69 6e 74 65 72 70 72 to the interpr 4110: 65 74 65 72 20 69 6e 20 74 68 65 20 69 73 6f 6c eter in the isol 4120: 61 74 65 64 20 61 70 70 6c 69 63 61 74 69 6f 6e ated application 4130: 20 64 6f 6d 61 69 6e 2c 20 6d 61 6b 69 6e 67 20 domain, making 4140: 69 74 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 it.. # 4150: 20 20 61 62 6c 65 20 74 6f 20 73 75 63 63 65 73 able to succes 4160: 73 66 75 6c 6c 79 20 72 75 6e 20 74 65 73 74 73 sfully run tests 4170: 20 74 68 61 74 20 72 65 71 75 69 72 65 20 6f 6e that require on 4180: 65 20 6f 72 20 6d 6f 72 65 20 6f 66 20 74 68 65 e or more of the 4190: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. # 41a0: 66 69 6c 65 73 20 69 6e 20 6f 6e 65 20 6f 66 20 files in one of 41b0: 74 68 65 20 74 65 73 74 69 6e 67 20 64 69 72 65 the testing dire 41c0: 63 74 6f 72 69 65 73 2e 20 20 43 61 6c 6c 65 72 ctories. Caller 41d0: 73 20 73 68 6f 75 6c 64 20 6b 65 65 70 20 69 6e s should keep in 41e0: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. # 41f0: 6d 69 6e 64 20 74 68 61 74 20 74 68 65 20 74 65 mind that the te 4200: 73 74 20 73 63 72 69 70 74 20 66 72 61 67 6d 65 st script fragme 4210: 6e 74 20 62 65 69 6e 67 20 72 65 74 75 72 6e 65 nt being returne 4220: 64 20 63 61 6e 6e 6f 74 20 72 65 6c 79 20 6f 6e d cannot rely on 4230: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. # 4240: 61 6e 79 20 73 63 72 69 70 74 20 6c 69 62 72 61 any script libra 4250: 72 79 20 70 72 6f 63 65 64 75 72 65 73 20 74 68 ry procedures th 4260: 61 74 20 61 72 65 20 6e 6f 74 20 70 72 6f 76 69 at are not provi 4270: 64 65 64 20 62 79 20 74 68 65 20 45 61 67 6c 65 ded by the Eagle 4280: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. # 4290: 6c 69 62 72 61 72 79 20 70 61 63 6b 61 67 65 20 library package 42a0: 28 69 2e 65 2e 20 22 69 6e 69 74 2e 65 61 67 6c (i.e. "init.eagl 42b0: 65 22 29 2c 20 69 6e 63 6c 75 64 69 6e 67 20 74 e"), including t 42c0: 68 6f 73 65 20 70 72 6f 76 69 64 65 64 20 62 79 hose provided by 42d0: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. # 42e0: 74 68 65 20 45 61 67 6c 65 20 74 65 73 74 20 70 the Eagle test p 42f0: 61 63 6b 61 67 65 2c 20 75 6e 6c 65 73 73 20 74 ackage, unless t 4300: 68 65 20 66 69 6c 65 20 63 6f 6e 74 61 69 6e 69 he file containi 4310: 6e 67 20 74 68 65 6d 20 69 73 20 6c 6f 61 64 65 ng them is loade 4320: 64 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 d.. # 4330: 20 6d 61 6e 75 61 6c 6c 79 20 76 69 61 20 73 6f manually via so 4340: 6d 65 20 6f 74 68 65 72 20 6d 65 63 68 61 6e 69 me other mechani 4350: 73 6d 20 28 65 2e 67 2e 20 62 79 20 69 6e 63 6c sm (e.g. by incl 4360: 75 64 69 6e 67 20 61 70 70 72 6f 70 72 69 61 74 uding appropriat 4370: 65 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 e.. # 4380: 20 5b 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 [package requir 4390: 65 5d 20 6f 72 20 5b 73 6f 75 72 63 65 5d 20 63 e] or [source] c 43a0: 6f 6d 6d 61 6e 64 73 20 69 6e 20 74 68 65 20 70 ommands in the p 43b0: 72 65 66 69 78 20 6f 72 20 73 75 66 66 69 78 0d refix or suffix. 43c0: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 73 . # s 43d0: 63 72 69 70 74 20 66 72 61 67 6d 65 6e 74 73 29 cript fragments) 43e0: 2e 20 20 41 6c 73 6f 2c 20 61 6c 6c 20 76 61 72 . Also, all var 43f0: 69 61 62 6c 65 20 72 65 66 65 72 65 6e 63 65 73 iable references 4400: 20 61 6e 64 20 61 6c 6c 20 6e 65 73 74 65 64 0d and all nested. 4410: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 63 . # c 4420: 6f 6d 6d 61 6e 64 73 20 28 69 2e 65 2e 20 74 68 ommands (i.e. th 4430: 6f 73 65 20 69 6e 20 73 71 75 61 72 65 20 62 72 ose in square br 4440: 61 63 6b 65 74 73 29 20 63 6f 6e 74 61 69 6e 65 ackets) containe 4450: 64 20 69 6e 20 74 68 65 20 66 69 6e 61 6c 0d 0a d in the final.. 4460: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 73 63 # sc 4470: 72 69 70 74 20 66 72 61 67 6d 65 6e 74 20 77 69 ript fragment wi 4480: 6c 6c 20 65 6e 64 20 75 70 20 62 65 69 6e 67 20 ll end up being 4490: 65 76 61 6c 75 61 74 65 64 20 69 6e 20 74 68 65 evaluated in the 44a0: 20 63 6f 6e 74 65 78 74 20 6f 66 20 74 68 65 0d context of the. 44b0: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 63 . # c 44c0: 61 6c 6c 69 6e 67 20 69 6e 74 65 72 70 72 65 74 alling interpret 44d0: 65 72 20 61 6e 64 20 6e 6f 74 20 74 68 65 20 74 er and not the t 44e0: 61 72 67 65 74 20 69 6e 74 65 72 70 72 65 74 65 arget interprete 44f0: 72 20 63 72 65 61 74 65 64 20 69 6e 20 74 68 65 r created in the 4500: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. # 4510: 69 73 6f 6c 61 74 65 64 20 61 70 70 6c 69 63 61 isolated applica 4520: 74 69 6f 6e 20 64 6f 6d 61 69 6e 20 75 6e 6c 65 tion domain unle 4530: 73 73 20 74 68 65 20 64 6f 6c 6c 61 72 20 73 69 ss the dollar si 4540: 67 6e 73 20 61 6e 64 2f 6f 72 20 73 71 75 61 72 gns and/or squar 4550: 65 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 e.. # 4560: 20 62 72 61 63 6b 65 74 73 20 61 72 65 20 73 70 brackets are sp 4570: 65 63 69 61 6c 6c 79 20 71 75 6f 74 65 64 20 77 ecially quoted w 4580: 69 74 68 20 62 61 63 6b 73 6c 61 73 68 65 73 2e ith backslashes. 4590: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #.. 45a0: 20 72 65 74 75 72 6e 20 5b 75 70 6c 65 76 65 6c return [uplevel 45b0: 20 31 20 5b 6c 69 73 74 20 73 75 62 73 74 20 5b 1 [list subst [ 45c0: 61 70 70 65 6e 64 41 72 67 73 20 24 70 72 65 66 appendArgs$pref
45d0: 69 78 20 7b 0d 0a 20 20 20 20 20 20 20 20 69 66  ix {..        if
45e0: 20 7b 5b 68 61 73 52 75 6e 74 69 6d 65 4f 70 74   {[hasRuntimeOpt
45f0: 69 6f 6e 20 6e 61 74 69 76 65 5d 7d 20 74 68 65  ion native]} the
4600: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 6f  n {..          o
4610: 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 49 6e 74  bject invoke Int
4620: 65 72 70 72 65 74 65 72 2e 47 65 74 41 63 74 69  erpreter.GetActi
4630: 76 65 20 41 64 64 52 75 6e 74 69 6d 65 4f 70 74  ve AddRuntimeOpt
4640: 69 6f 6e 20 6e 61 74 69 76 65 0d 0a 20 20 20 20  ion native..
4650: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 20 5b      }..      } [
4660: 67 65 74 54 65 73 74 4f 76 65 72 72 69 64 65 73  getTestOverrides
4670: 50 72 65 61 6d 62 6c 65 20 5b 6c 69 73 74 20 70  Preamble [list p
4680: 61 74 68 20 74 65 73 74 5f 63 68 61 6e 6e 65 6c  ath test_channel
4690: 5d 5d 20 24 73 75 66 66 69 78 5d 5d 5d 0d 0a 20  ]] $suffix]]].. 46a0: 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f }..... pro 46b0: 63 20 74 72 79 43 6f 70 79 42 75 69 6c 64 46 69 c tryCopyBuildFi 46c0: 6c 65 20 7b 20 66 69 6c 65 4e 61 6d 65 20 7d 20 le { fileName } 46d0: 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 {.. #.. 46e0: 20 20 23 20 4e 4f 54 45 3a 20 49 66 20 77 65 20 # NOTE: If we 46f0: 63 61 6e 6e 6f 74 20 63 6f 70 79 20 74 68 65 20 cannot copy the 4700: 61 73 73 65 6d 62 6c 79 20 74 68 65 6e 20 69 74 assembly then it 4710: 20 69 73 20 70 72 6f 62 61 62 6c 79 20 61 6c 72 is probably alr 4720: 65 61 64 79 20 6c 6f 61 64 65 64 2e 0d 0a 20 20 eady loaded... 4730: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 73 65 74 #.. set 4740: 20 73 6f 75 72 63 65 46 69 6c 65 4e 61 6d 65 20 sourceFileName 4750: 5b 67 65 74 42 75 69 6c 64 46 69 6c 65 4e 61 6d [getBuildFileNam 4760: 65 20 24 66 69 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a e$fileName]....
4770: 20 20 20 20 20 20 69 66 20 7b 21 5b 66 69 6c 65        if {![file
4780: 20 65 78 69 73 74 73 20 24 73 6f 75 72 63 65 46   exists $sourceF 4790: 69 6c 65 4e 61 6d 65 5d 7d 20 74 68 65 6e 20 7b ileName]} then { 47a0: 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20 .. tputs 47b0: 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20$::test_channel
47c0: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20  [appendArgs \..
47d0: 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d             "----
47e0: 20 73 6b 69 70 70 65 64 20 63 6f 70 79 69 6e 67   skipped copying
47f0: 20 62 75 69 6c 64 20 66 69 6c 65 20 5c 22 22 20   build file \""
4800: 24 73 6f 75 72 63 65 46 69 6c 65 4e 61 6d 65 20  $sourceFileName 4810: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 \.. " 4820: 5c 22 2c 20 69 74 20 64 6f 65 73 20 6e 6f 74 20 \", it does not 4830: 65 78 69 73 74 5c 6e 22 5d 0d 0a 0d 0a 20 20 20 exist\n"].... 4840: 20 20 20 20 20 72 65 74 75 72 6e 0d 0a 20 20 20 return.. 4850: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 73 65 }.... se 4860: 74 20 74 61 72 67 65 74 46 69 6c 65 4e 61 6d 65 t targetFileName 4870: 20 5b 67 65 74 42 69 6e 61 72 79 46 69 6c 65 4e [getBinaryFileN 4880: 61 6d 65 20 24 66 69 6c 65 4e 61 6d 65 5d 0d 0a ame$fileName]..
4890: 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74  ..      if {[cat
48a0: 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20  ch {..
48b0: 20 20 20 20 66 69 6c 65 20 63 6f 70 79 20 2d 66      file copy -f
48c0: 6f 72 63 65 20 24 73 6f 75 72 63 65 46 69 6c 65  orce $sourceFile 48d0: 4e 61 6d 65 20 24 74 61 72 67 65 74 46 69 6c 65 Name$targetFile
48e0: 4e 61 6d 65 7d 5d 20 3d 3d 20 30 7d 20 74 68 65  Name}] == 0} the
48f0: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 74 70 75  n {..        tpu
4900: 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e  ts $::test_chann 4910: 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c el [appendArgs \ 4920: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 2d .. "- 4930: 2d 2d 2d 20 63 6f 70 69 65 64 20 62 75 69 6c 64 --- copied build 4940: 20 66 69 6c 65 20 66 72 6f 6d 20 5c 22 22 20 24 file from \""$
4950: 73 6f 75 72 63 65 46 69 6c 65 4e 61 6d 65 20 22  sourceFileName "
4960: 5c 22 20 74 6f 20 5c 22 22 20 5c 0d 0a 20 20 20  \" to \"" \..
4970: 20 20 20 20 20 20 20 20 20 24 74 61 72 67 65 74           $target 4980: 46 69 6c 65 4e 61 6d 65 20 5c 22 5c 6e 5d 0d 0a FileName \"\n].. 4990: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a } else {.. 49a0: 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 3a tputs$:
49b0: 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61  :test_channel [a
49c0: 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20  ppendArgs \..
49d0: 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 66           "---- f
49e0: 61 69 6c 65 64 20 74 6f 20 63 6f 70 79 20 62 75  ailed to copy bu
49f0: 69 6c 64 20 66 69 6c 65 20 66 72 6f 6d 20 5c 22  ild file from \"
4a00: 22 20 24 73 6f 75 72 63 65 46 69 6c 65 4e 61 6d  " $sourceFileNam 4a10: 65 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 e \.. 4a20: 20 22 5c 22 20 74 6f 20 5c 22 22 20 24 74 61 72 "\" to \""$tar
4a30: 67 65 74 46 69 6c 65 4e 61 6d 65 20 5c 22 5c 6e  getFileName \"\n
4a40: 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20  ]..      }..
4a50: 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 74  }.....    proc t
4a60: 72 79 44 65 6c 65 74 65 42 69 6e 61 72 79 46 69  ryDeleteBinaryFi
4a70: 6c 65 20 7b 20 66 69 6c 65 4e 61 6d 65 20 7d 20  le { fileName }
4a80: 7b 0d 0a 20 20 20 20 20 20 73 65 74 20 66 69 6c  {..      set fil
4a90: 65 4e 61 6d 65 20 5b 67 65 74 42 69 6e 61 72 79  eName [getBinary
4aa0: 46 69 6c 65 4e 61 6d 65 20 24 66 69 6c 65 4e 61  FileName $fileNa 4ab0: 6d 65 5d 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 me].... if 4ac0: 7b 21 5b 66 69 6c 65 20 65 78 69 73 74 73 20 24 {![file exists$
4ad0: 66 69 6c 65 4e 61 6d 65 5d 7d 20 74 68 65 6e 20  fileName]} then
4ae0: 7b 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73  {..        tputs
4af0: 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c   $::test_channel 4b00: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a [appendArgs \.. 4b10: 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d "--- 4b20: 2d 20 73 6b 69 70 70 65 64 20 64 65 6c 65 74 69 - skipped deleti 4b30: 6e 67 20 62 69 6e 61 72 79 20 66 69 6c 65 20 5c ng binary file \ 4b40: 22 22 20 24 66 69 6c 65 4e 61 6d 65 20 5c 0d 0a ""$fileName \..
4b50: 20 20 20 20 20 20 20 20 20 20 20 20 22 5c 22 2c              "\",
4b60: 20 69 74 20 64 6f 65 73 20 6e 6f 74 20 65 78 69   it does not exi
4b70: 73 74 5c 6e 22 5d 0d 0a 0d 0a 20 20 20 20 20 20  st\n"]....
4b80: 20 20 72 65 74 75 72 6e 0d 0a 20 20 20 20 20 20    return..
4b90: 7d 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b  }....      if {[
4ba0: 63 61 74 63 68 20 7b 66 69 6c 65 20 64 65 6c 65  catch {file dele
4bb0: 74 65 20 24 66 69 6c 65 4e 61 6d 65 7d 5d 20 3d  te $fileName}] = 4bc0: 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 = 0} then {.. 4bd0: 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 tputs$::te
4be0: 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65  st_channel [appe
4bf0: 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20  ndArgs \..
4c00: 20 20 20 20 20 20 22 2d 2d 2d 2d 20 64 65 6c 65        "---- dele
4c10: 74 65 64 20 62 69 6e 61 72 79 20 66 69 6c 65 20  ted binary file
4c20: 5c 22 22 20 24 66 69 6c 65 4e 61 6d 65 20 5c 22  \"" $fileName \" 4c30: 5c 6e 5d 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 \n].. } els 4c40: 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 74 70 75 e {.. tpu 4c50: 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e ts$::test_chann
4c60: 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c  el [appendArgs \
4c70: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 2d  ..            "-
4c80: 2d 2d 2d 20 66 61 69 6c 65 64 20 74 6f 20 64 65  --- failed to de
4c90: 6c 65 74 65 20 62 69 6e 61 72 79 20 66 69 6c 65  lete binary file
4ca0: 20 5c 22 22 20 24 66 69 6c 65 4e 61 6d 65 20 5c   \"" $fileName \ 4cb0: 22 5c 6e 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 "\n].. }.. 4cc0: 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f }..... pro 4cd0: 63 20 74 72 79 43 6f 70 79 41 73 73 65 6d 62 6c c tryCopyAssembl 4ce0: 79 20 7b 20 66 69 6c 65 4e 61 6d 65 20 7b 70 64 y { fileName {pd 4cf0: 62 20 74 72 75 65 7d 20 7d 20 7b 0d 0a 20 20 20 b true} } {.. 4d00: 20 20 20 74 72 79 43 6f 70 79 42 75 69 6c 64 46 tryCopyBuildF 4d10: 69 6c 65 20 24 66 69 6c 65 4e 61 6d 65 0d 0a 0d ile$fileName...
4d20: 0a 20 20 20 20 20 20 69 66 20 7b 24 70 64 62 7d  .      if {$pdb} 4d30: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 then {.. 4d40: 20 74 72 79 43 6f 70 79 42 75 69 6c 64 46 69 6c tryCopyBuildFil 4d50: 65 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5b 66 e [appendArgs [f 4d60: 69 6c 65 20 72 6f 6f 74 6e 61 6d 65 20 24 66 69 ile rootname$fi
4d70: 6c 65 4e 61 6d 65 5d 20 2e 70 64 62 5d 0d 0a 20  leName] .pdb]..
4d80: 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c       }..    }...
4d90: 0d 0a 20 20 20 20 70 72 6f 63 20 74 72 79 44 65  ..    proc tryDe
4da0: 6c 65 74 65 41 73 73 65 6d 62 6c 79 20 7b 20 66  leteAssembly { f
4db0: 69 6c 65 4e 61 6d 65 20 7b 70 64 62 20 74 72 75  ileName {pdb tru
4dc0: 65 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 20 74 72  e} } {..      tr
4dd0: 79 44 65 6c 65 74 65 42 69 6e 61 72 79 46 69 6c  yDeleteBinaryFil
4de0: 65 20 24 66 69 6c 65 4e 61 6d 65 0d 0a 0d 0a 20  e $fileName.... 4df0: 20 20 20 20 20 69 66 20 7b 24 70 64 62 7d 20 74 if {$pdb} t
4e00: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 74  hen {..        t
4e10: 72 79 44 65 6c 65 74 65 42 69 6e 61 72 79 46 69  ryDeleteBinaryFi
4e20: 6c 65 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5b  le [appendArgs [
4e30: 66 69 6c 65 20 72 6f 6f 74 6e 61 6d 65 20 24 66  file rootname $f 4e40: 69 6c 65 4e 61 6d 65 5d 20 2e 70 64 62 5d 0d 0a ileName] .pdb].. 4e50: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a }.. }.. 4e60: 0c 0d 0a 20 20 20 20 70 72 6f 63 20 74 72 79 4c ... proc tryL 4e70: 6f 61 64 41 73 73 65 6d 62 6c 79 20 7b 20 66 69 oadAssembly { fi 4e80: 6c 65 4e 61 6d 65 20 7d 20 7b 0d 0a 20 20 20 20 leName } {.. 4e90: 20 20 73 65 74 20 66 69 6c 65 4e 61 6d 65 20 5b set fileName [ 4ea0: 67 65 74 42 69 6e 61 72 79 46 69 6c 65 4e 61 6d getBinaryFileNam 4eb0: 65 20 24 66 69 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a e$fileName]....
4ec0: 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68        if {[catch
4ed0: 20 7b 73 65 74 20 61 73 73 65 6d 62 6c 79 20 5c   {set assembly \
4ee0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..
4ef0: 5b 6f 62 6a 65 63 74 20 6c 6f 61 64 20 2d 6c 6f  [object load -lo
4f00: 61 64 74 79 70 65 20 46 69 6c 65 20 2d 61 6c 69  adtype File -ali
4f10: 61 73 20 24 66 69 6c 65 4e 61 6d 65 5d 7d 5d 20  as $fileName]}] 4f20: 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 == 0} then {.. 4f30: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #.. 4f40: 20 23 20 4e 4f 54 45 3a 20 4e 6f 77 2c 20 61 64 # NOTE: Now, ad 4f50: 64 20 74 68 65 20 6e 65 63 65 73 73 61 72 79 20 d the necessary 4f60: 74 65 73 74 20 63 6f 6e 73 74 72 61 69 6e 74 2e test constraint. 4f70: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #.. 4f80: 20 20 20 20 20 61 64 64 43 6f 6e 73 74 72 61 69 addConstrai 4f90: 6e 74 20 5b 66 69 6c 65 20 72 6f 6f 74 6e 61 6d nt [file rootnam 4fa0: 65 20 5b 66 69 6c 65 20 74 61 69 6c 20 24 66 69 e [file tail$fi
4fb0: 6c 65 4e 61 6d 65 5d 5d 0d 0a 0d 0a 20 20 20 20  leName]]....
4fc0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23      #..        #
4fd0: 20 4e 4f 54 45 3a 20 47 72 61 62 20 74 68 65 20   NOTE: Grab the
4fe0: 69 6d 61 67 65 20 72 75 6e 74 69 6d 65 20 76 65  image runtime ve
4ff0: 72 73 69 6f 6e 20 66 72 6f 6d 20 74 68 65 20 61  rsion from the a
5000: 73 73 65 6d 62 6c 79 20 62 65 63 61 75 73 65 0d  ssembly because.
5010: 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20  .        #
5020: 20 73 65 76 65 72 61 6c 20 74 65 73 74 73 20 72   several tests r
5030: 65 6c 79 20 6f 6e 20 69 74 20 68 61 76 69 6e 67  ely on it having
5040: 20 61 20 63 65 72 74 61 69 6e 20 76 61 6c 75 65   a certain value
5050: 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20  ...        #..
5060: 20 20 20 20 20 20 61 64 64 43 6f 6e 73 74 72 61        addConstra
5070: 69 6e 74 20 5b 61 70 70 65 6e 64 41 72 67 73 20  int [appendArgs
5080: 5b 66 69 6c 65 20 74 61 69 6c 20 24 66 69 6c 65  [file tail $file 5090: 4e 61 6d 65 5d 20 5f 20 5c 0d 0a 20 20 20 20 20 Name] _ \.. 50a0: 20 20 20 20 20 20 20 5b 24 61 73 73 65 6d 62 6c [$assembl
50b0: 79 20 49 6d 61 67 65 52 75 6e 74 69 6d 65 56 65  y ImageRuntimeVe
50c0: 72 73 69 6f 6e 5d 5d 0d 0a 0d 0a 20 20 20 20 20  rsion]]....
50d0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20     #..        #
50e0: 4e 4f 54 45 3a 20 52 65 74 75 72 6e 20 74 68 65  NOTE: Return the
50f0: 20 66 75 6c 6c 20 70 61 74 68 20 6f 66 20 74 68   full path of th
5100: 65 20 6c 6f 61 64 65 64 20 66 69 6c 65 2e 0d 0a  e loaded file...
5110: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..
5120: 20 20 20 72 65 74 75 72 6e 20 24 66 69 6c 65 4e     return $fileN 5130: 61 6d 65 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a ame.. }.... 5140: 20 20 20 20 20 20 72 65 74 75 72 6e 20 22 22 0d return "". 5150: 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 . }..... p 5160: 72 6f 63 20 63 68 65 63 6b 46 6f 72 53 51 4c 69 roc checkForSQLi 5170: 74 65 20 7b 20 63 68 61 6e 6e 65 6c 20 7d 20 7b te { channel } { 5180: 0d 0a 20 20 20 20 20 20 74 70 75 74 73 20 24 63 .. tputs$c
5190: 68 61 6e 6e 65 6c 20 22 2d 2d 2d 2d 20 63 68 65  hannel "---- che
51a0: 63 6b 69 6e 67 20 66 6f 72 20 63 6f 72 65 20 53  cking for core S
51b0: 51 4c 69 74 65 20 6c 69 62 72 61 72 79 2e 2e 2e  QLite library...
51c0: 20 22 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b   "....      if {
51d0: 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 20  [catch {..
51e0: 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74 20 69          object i
51f0: 6e 76 6f 6b 65 20 2d 66 6c 61 67 73 20 2b 4e 6f  nvoke -flags +No
5200: 6e 50 75 62 6c 69 63 20 53 79 73 74 65 6d 2e 44  nPublic System.D
5210: 61 74 61 2e 53 51 4c 69 74 65 2e 53 51 4c 69 74  ata.SQLite.SQLit
5220: 65 33 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  e3 \..
5230: 20 20 20 20 53 51 4c 69 74 65 56 65 72 73 69 6f      SQLiteVersio
5240: 6e 7d 20 76 65 72 73 69 6f 6e 5d 20 3d 3d 20 30  n} version] == 0
5250: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..
5260: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e    #..        # N
5270: 4f 54 45 3a 20 41 74 74 65 6d 70 74 20 74 6f 20  OTE: Attempt to
5280: 71 75 65 72 79 20 74 68 65 20 46 6f 73 73 69 6c  query the Fossil
5290: 20 73 6f 75 72 63 65 20 69 64 65 6e 74 69 66 69   source identifi
52a0: 65 72 20 66 6f 72 20 74 68 65 20 53 51 4c 69 74  er for the SQLit
52b0: 65 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20  e..        #
52c0: 20 20 20 63 6f 72 65 20 6c 69 62 72 61 72 79 2e     core library.
52d0: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20  ..        #..
52e0: 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20       if {[catch
52f0: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  {..
5300: 20 20 20 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65     object invoke
5310: 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 6c   -flags +NonPubl
5320: 69 63 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53  ic System.Data.S
5330: 51 4c 69 74 65 2e 53 51 4c 69 74 65 33 20 5c 0d  QLite.SQLite3 \.
5340: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .
5350: 20 53 51 4c 69 74 65 53 6f 75 72 63 65 49 64 7d   SQLiteSourceId}
5360: 20 73 6f 75 72 63 65 49 64 5d 7d 20 74 68 65 6e   sourceId]} then
5370: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d   {..          #.
5380: 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54  .          # NOT
5390: 45 3a 20 57 65 20 66 61 69 6c 65 64 20 74 6f 20  E: We failed to
53a0: 71 75 65 72 79 20 74 68 65 20 46 6f 73 73 69 6c  query the Fossil
53b0: 20 73 6f 75 72 63 65 20 69 64 65 6e 74 69 66 69   source identifi
53c0: 65 72 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23  er...          #
53d0: 0d 0a 20 20 20 20 20 20 20 20 20 20 73 65 74 20  ..          set
53e0: 73 6f 75 72 63 65 49 64 20 75 6e 6b 6e 6f 77 6e  sourceId unknown
53f0: 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20  ..        }....
5400: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..
5410: 20 20 23 20 4e 4f 54 45 3a 20 59 65 73 2c 20 74    # NOTE: Yes, t
5420: 68 65 20 53 51 4c 69 74 65 20 63 6f 72 65 20 6c  he SQLite core l
5430: 69 62 72 61 72 79 20 61 70 70 65 61 72 73 20 74  ibrary appears t
5440: 6f 20 62 65 20 61 76 61 69 6c 61 62 6c 65 2e 0d  o be available..
5450: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20  .        #..
5460: 20 20 20 20 61 64 64 43 6f 6e 73 74 72 61 69 6e      addConstrain
5470: 74 20 53 51 4c 69 74 65 0d 0a 0d 0a 20 20 20 20  t SQLite....
5480: 20 20 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e      tputs $chann 5490: 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 22 el [appendArgs " 54a0: 79 65 73 20 28 22 20 24 76 65 72 73 69 6f 6e 20 yes ("$version
54b0: 22 20 22 20 24 73 6f 75 72 63 65 49 64 20 22 29  " " $sourceId ") 54c0: 5c 6e 22 5d 0d 0a 20 20 20 20 20 20 7d 20 65 6c \n"].. } el 54d0: 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 74 70 se {.. tp 54e0: 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 6e 6f 5c uts$channel no\
54f0: 6e 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20  n..      }..
5500: 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 63  }.....    proc c
5510: 68 65 63 6b 46 6f 72 53 51 4c 69 74 65 44 65 66  heckForSQLiteDef
5520: 69 6e 65 43 6f 6e 73 74 61 6e 74 20 7b 20 63 68  ineConstant { ch
5530: 61 6e 6e 65 6c 20 6e 61 6d 65 20 7d 20 7b 0d 0a  annel name } {..
5540: 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68 61        tputs $cha 5550: 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 nnel [appendArgs 5560: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 22 2d \.. "- 5570: 2d 2d 2d 20 63 68 65 63 6b 69 6e 67 20 66 6f 72 --- checking for 5580: 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c System.Data.SQL 5590: 69 74 65 20 64 65 66 69 6e 65 20 63 6f 6e 73 74 ite define const 55a0: 61 6e 74 20 5c 22 22 20 24 6e 61 6d 65 20 5c 0d ant \""$name \.
55b0: 0a 20 20 20 20 20 20 20 20 20 20 22 5c 22 2e 2e  .          "\"..
55c0: 2e 20 22 5d 0d 0a 0d 0a 20 20 20 20 20 20 69 66  . "]....      if
55d0: 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20 20   {[catch {..
55e0: 20 20 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74            object
55f0: 20 69 6e 76 6f 6b 65 20 2d 66 6c 61 67 73 20 2b   invoke -flags +
5600: 4e 6f 6e 50 75 62 6c 69 63 20 53 79 73 74 65 6d  NonPublic System
5610: 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 53 51 4c  .Data.SQLite.SQL
5620: 69 74 65 33 20 5c 0d 0a 20 20 20 20 20 20 20 20  ite3 \..
5630: 20 20 20 20 20 20 44 65 66 69 6e 65 43 6f 6e 73        DefineCons
5640: 74 61 6e 74 73 7d 20 64 65 66 69 6e 65 43 6f 6e  tants} defineCon
5650: 73 74 61 6e 74 73 5d 20 3d 3d 20 30 7d 20 74 68  stants] == 0} th
5660: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 69 66  en {..        if
5670: 20 7b 5b 6c 73 65 61 72 63 68 20 2d 65 78 61 63   {[lsearch -exac
5680: 74 20 2d 6e 6f 63 61 73 65 20 24 64 65 66 69 6e  t -nocase $defin 5690: 65 43 6f 6e 73 74 61 6e 74 73 20 24 6e 61 6d 65 eConstants$name
56a0: 5d 20 21 3d 20 2d 31 7d 20 74 68 65 6e 20 7b 0d  ] != -1} then {.
56b0: 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20  .          #..
56c0: 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20          # NOTE:
56d0: 59 65 73 2c 20 74 68 69 73 20 64 65 66 69 6e 65  Yes, this define
56e0: 20 63 6f 6e 73 74 61 6e 74 20 77 61 73 20 65 6e   constant was en
56f0: 61 62 6c 65 64 20 77 68 65 6e 20 74 68 65 20 6d  abled when the m
5700: 61 6e 61 67 65 64 0d 0a 20 20 20 20 20 20 20 20  anaged..
5710: 20 20 23 20 20 20 20 20 20 20 61 73 73 65 6d 62    #       assemb
5720: 6c 79 20 77 61 73 20 63 6f 6d 70 69 6c 65 64 2e  ly was compiled.
5730: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20  ..          #..
5740: 20 20 20 20 20 20 20 20 20 61 64 64 43 6f 6e 73           addCons
5750: 74 72 61 69 6e 74 20 5b 61 70 70 65 6e 64 41 72  traint [appendAr
5760: 67 73 20 64 65 66 69 6e 65 43 6f 6e 73 74 61 6e  gs defineConstan
5770: 74 2e 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51  t.System.Data.SQ
5780: 4c 69 74 65 2e 20 24 6e 61 6d 65 5d 0d 0a 0d 0a  Lite. $name].... 5790: 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 tputs 57a0: 24 63 68 61 6e 6e 65 6c 20 79 65 73 5c 6e 0d 0a$channel yes\n..
57b0: 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b          } else {
57c0: 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70 75 74  ..          tput
57d0: 73 20 24 63 68 61 6e 6e 65 6c 20 6e 6f 5c 6e 0d  s $channel no\n. 57e0: 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 . }.. 57f0: 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 } else {.. 5800: 20 20 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e tputs$chann
5810: 65 6c 20 65 72 72 6f 72 5c 6e 0d 0a 20 20 20 20  el error\n..
5820: 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20    }..    }.....
5830: 20 20 20 70 72 6f 63 20 67 65 74 44 61 74 65 54     proc getDateT
5840: 69 6d 65 46 6f 72 6d 61 74 20 7b 7d 20 7b 0d 0a  imeFormat {} {..
5850: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23        #..      #
5860: 20 4e 4f 54 45 3a 20 54 68 69 73 20 70 72 6f 63   NOTE: This proc
5870: 65 64 75 72 65 20 73 69 6d 70 6c 79 20 72 65 74  edure simply ret
5880: 75 72 6e 73 20 74 68 65 20 22 64 65 66 61 75 6c  urns the "defaul
5890: 74 22 20 44 61 74 65 54 69 6d 65 20 66 6f 72 6d  t" DateTime form
58a0: 61 74 20 75 73 65 64 0d 0a 20 20 20 20 20 20 23  at used..      #
58b0: 20 20 20 20 20 20 20 62 79 20 74 68 65 20 74 65         by the te
58c0: 73 74 20 73 75 69 74 65 2e 0d 0a 20 20 20 20 20  st suite...
58d0: 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 69   #..      if {[i
58e0: 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 64 61 74  nfo exists ::dat
58f0: 65 74 69 6d 65 5f 66 6f 72 6d 61 74 5d 20 26 26  etime_format] &&
5900: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 5b 73   \..          [s
5910: 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 3a 3a  tring length $:: 5920: 64 61 74 65 74 69 6d 65 5f 66 6f 72 6d 61 74 5d datetime_format] 5930: 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 > 0} then {.. 5940: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #.. 5950: 20 23 20 4e 4f 54 45 3a 20 52 65 74 75 72 6e 20 # NOTE: Return 5960: 74 68 65 20 6d 61 6e 75 61 6c 6c 79 20 6f 76 65 the manually ove 5970: 72 72 69 64 64 65 6e 20 76 61 6c 75 65 20 66 6f rridden value fo 5980: 72 20 74 68 65 20 44 61 74 65 54 69 6d 65 20 66 r the DateTime f 5990: 6f 72 6d 61 74 2e 0d 0a 20 20 20 20 20 20 20 20 ormat... 59a0: 23 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 #.. retur 59b0: 6e 20 24 3a 3a 64 61 74 65 74 69 6d 65 5f 66 6f n$::datetime_fo
59c0: 72 6d 61 74 0d 0a 20 20 20 20 20 20 7d 20 65 6c  rmat..      } el
59d0: 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d  se {..        #.
59e0: 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a  .        # NOTE:
59f0: 20 52 65 74 75 72 6e 20 61 6e 20 49 53 4f 38 36   Return an ISO86
5a00: 30 31 20 44 61 74 65 54 69 6d 65 20 66 6f 72 6d  01 DateTime form
5a10: 61 74 20 63 6f 6d 70 61 74 69 62 6c 65 20 77 69  at compatible wi
5a20: 74 68 20 53 51 4c 69 74 65 2c 0d 0a 20 20 20 20  th SQLite,..
5a30: 20 20 20 20 23 20 20 20 20 20 20 20 53 79 73 74      #       Syst
5a40: 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2c 20  em.Data.SQLite,
5a50: 61 6e 64 20 73 75 69 74 61 62 6c 65 20 66 6f 72  and suitable for
5a60: 20 72 6f 75 6e 64 2d 74 72 69 70 70 69 6e 67 20   round-tripping
5a70: 77 69 74 68 20 74 68 65 0d 0a 20 20 20 20 20 20  with the..
5a80: 20 20 23 20 20 20 20 20 20 20 44 61 74 65 54 69    #       DateTi
5a90: 6d 65 20 63 6c 61 73 73 20 6f 66 20 74 68 65 20  me class of the
5aa0: 66 72 61 6d 65 77 6f 72 6b 2e 20 20 49 66 20 74  framework.  If t
5ab0: 68 69 73 20 76 61 6c 75 65 20 69 73 20 63 68 61  his value is cha
5ac0: 6e 67 65 64 2c 0d 0a 20 20 20 20 20 20 20 20 23  nged,..        #
5ad0: 20 20 20 20 20 20 20 76 61 72 69 6f 75 73 20 74         various t
5ae0: 65 73 74 73 20 6d 61 79 20 66 61 69 6c 2e 0d 0a  ests may fail...
5af0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..
5b00: 20 20 20 72 65 74 75 72 6e 20 22 79 79 79 79 2d     return "yyyy-
5b10: 4d 4d 2d 64 64 20 48 48 3a 6d 6d 3a 73 73 2e 46  MM-dd HH:mm:ss.F
5b20: 46 46 46 46 46 46 4b 22 0d 0a 20 20 20 20 20 20  FFFFFFK"..
5b30: 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20  }..    }.....
5b40: 20 70 72 6f 63 20 65 6e 75 6d 65 72 61 62 6c 65   proc enumerable
5b50: 54 6f 4c 69 73 74 20 7b 20 65 6e 75 6d 65 72 61  ToList { enumera
5b60: 62 6c 65 20 7d 20 7b 0d 0a 20 20 20 20 20 20 73  ble } {..      s
5b70: 65 74 20 72 65 73 75 6c 74 20 5b 6c 69 73 74 5d  et result [list]
5b80: 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 73  ....      if {[s
5b90: 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 65 6e  tring length $en 5ba0: 75 6d 65 72 61 62 6c 65 5d 20 3d 3d 20 30 20 7c umerable] == 0 | 5bb0: 7c 20 24 65 6e 75 6d 65 72 61 62 6c 65 20 65 71 |$enumerable eq
5bc0: 20 22 6e 75 6c 6c 22 7d 20 74 68 65 6e 20 7b 0d   "null"} then {.
5bd0: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20  .        return
5be0: 24 72 65 73 75 6c 74 0d 0a 20 20 20 20 20 20 7d  $result.. } 5bf0: 0d 0a 0d 0a 20 20 20 20 20 20 6f 62 6a 65 63 74 .... object 5c00: 20 66 6f 72 65 61 63 68 20 2d 61 6c 69 61 73 20 foreach -alias 5c10: 69 74 65 6d 20 24 65 6e 75 6d 65 72 61 62 6c 65 item$enumerable
5c20: 20 7b 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b   {..        if {
5c30: 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24  [string length $5c40: 69 74 65 6d 5d 20 3e 20 30 7d 20 74 68 65 6e 20 item] > 0} then 5c50: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 6c 61 70 {.. lap 5c60: 70 65 6e 64 20 72 65 73 75 6c 74 20 5b 24 69 74 pend result [$it
5c70: 65 6d 20 54 6f 53 74 72 69 6e 67 5d 0d 0a 20 20  em ToString]..
5c80: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d        }..      }
5c90: 0d 0a 0d 0a 20 20 20 20 20 20 72 65 74 75 72 6e  ....      return
5ca0: 20 24 72 65 73 75 6c 74 0d 0a 20 20 20 20 7d 0d   $result.. }. 5cb0: 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 63 61 74 .... proc cat 5cc0: 63 68 41 6e 64 52 65 74 75 72 6e 20 7b 20 73 63 chAndReturn { sc 5cd0: 72 69 70 74 20 7b 73 74 61 63 6b 54 72 61 63 65 ript {stackTrace 5ce0: 20 66 61 6c 73 65 7d 20 7b 73 74 72 69 63 74 20 false} {strict 5cf0: 74 72 75 65 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 true} } {.. 5d00: 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 #.. # NOTE 5d10: 3a 20 45 76 61 6c 75 61 74 65 20 74 68 65 20 73 : Evaluate the s 5d20: 63 72 69 70 74 20 70 72 6f 76 69 64 65 64 20 62 cript provided b 5d30: 79 20 6f 75 72 20 63 61 6c 6c 65 72 20 69 6e 20 y our caller in 5d40: 74 68 65 69 72 20 63 6f 6e 74 65 78 74 2c 0d 0a their context,.. 5d50: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 63 61 # ca 5d60: 70 74 75 72 69 6e 67 20 62 6f 74 68 20 74 68 65 pturing both the 5d70: 20 72 65 73 75 6c 74 20 61 6e 64 20 74 68 65 20 result and the 5d80: 72 65 74 75 72 6e 20 63 6f 64 65 2e 0d 0a 20 20 return code... 5d90: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 73 65 74 #.. set 5da0: 20 63 6f 64 65 20 5b 63 61 74 63 68 20 7b 75 70 code [catch {up 5db0: 6c 65 76 65 6c 20 31 20 24 73 63 72 69 70 74 7d level 1$script}
5dc0: 20 72 65 73 75 6c 74 5d 0d 0a 0d 0a 20 20 20 20   result]....
5dd0: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54    #..      # NOT
5de0: 45 3a 20 44 69 64 20 74 68 65 20 73 63 72 69 70  E: Did the scrip
5df0: 74 20 70 72 6f 76 69 64 65 64 20 62 79 20 6f 75  t provided by ou
5e00: 72 20 63 61 6c 6c 65 72 20 4e 4f 54 20 72 61 69  r caller NOT rai
5e10: 73 65 20 61 6e 20 65 72 72 6f 72 3f 0d 0a 20 20  se an error?..
5e20: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20      #..      if
5e30: 7b 24 73 74 72 69 63 74 20 26 26 20 24 63 6f 64  {$strict &&$cod
5e40: 65 20 3d 3d 20 30 20 7c 7c 20 21 24 73 74 72 69  e == 0 || !$stri 5e50: 63 74 20 26 26 20 24 63 6f 64 65 20 21 3d 20 31 ct &&$code != 1
5e60: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..
5e70: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e    #..        # N
5e80: 4f 54 45 3a 20 53 75 63 63 65 73 73 2e 20 20 52  OTE: Success.  R
5e90: 65 74 75 72 6e 20 61 20 6c 69 73 74 20 77 69 74  eturn a list wit
5ea0: 68 20 74 68 65 20 72 65 74 75 72 6e 20 63 6f 64  h the return cod
5eb0: 65 20 61 6e 64 20 74 68 65 20 72 65 73 75 6c 74  e and the result
5ec0: 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20  ...        #..
5ed0: 20 20 20 20 20 20 72 65 74 75 72 6e 20 5b 6c 69        return [li
5ee0: 73 74 20 24 63 6f 64 65 20 24 72 65 73 75 6c 74  st $code$result
5ef0: 5d 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 69  ]..      } elsei
5f00: 66 20 7b 24 73 74 61 63 6b 54 72 61 63 65 7d 20  f {$stackTrace} 5f10: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 then {.. 5f20: 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT 5f30: 45 3a 20 46 61 69 6c 75 72 65 2e 20 20 4f 75 72 E: Failure. Our 5f40: 20 63 61 6c 6c 65 72 20 77 61 6e 74 73 20 61 20 caller wants a 5f50: 66 75 6c 6c 20 73 74 61 63 6b 20 74 72 61 63 65 full stack trace 5f60: 20 28 69 66 20 61 70 70 6c 69 63 61 62 6c 65 29 (if applicable) 5f70: 2c 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 ,.. # 5f80: 20 20 20 72 65 74 75 72 6e 20 61 20 6c 69 73 74 return a list 5f90: 20 77 69 74 68 20 74 68 65 20 72 65 74 75 72 6e with the return 5fa0: 20 63 6f 64 65 20 61 6e 64 20 74 68 65 20 72 65 code and the re 5fb0: 73 75 6c 74 20 76 65 72 62 61 74 69 6d 2e 0d 0a sult verbatim... 5fc0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #.. 5fd0: 20 20 20 72 65 74 75 72 6e 20 5b 6c 69 73 74 20 return [list 5fe0: 24 63 6f 64 65 20 24 72 65 73 75 6c 74 5d 0d 0a$code $result].. 5ff0: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a } else {.. 6000: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #.. 6010: 20 20 20 23 20 4e 4f 54 45 3a 20 46 61 69 6c 75 # NOTE: Failu 6020: 72 65 2e 20 20 4f 75 72 20 63 61 6c 6c 65 72 20 re. Our caller 6030: 64 6f 65 73 20 6e 6f 74 20 77 61 6e 74 20 61 20 does not want a 6040: 66 75 6c 6c 20 73 74 61 63 6b 20 74 72 61 63 65 full stack trace 6050: 20 28 69 66 0d 0a 20 20 20 20 20 20 20 20 23 20 (if.. # 6060: 20 20 20 20 20 20 61 70 70 6c 69 63 61 62 6c 65 applicable 6070: 29 2c 20 72 65 74 75 72 6e 20 61 20 6c 69 73 74 ), return a list 6080: 20 77 69 74 68 20 74 68 65 20 72 65 74 75 72 6e with the return 6090: 20 63 6f 64 65 2c 20 74 68 65 20 65 72 72 6f 72 code, the error 60a0: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 .. # 60b0: 20 20 63 6f 64 65 20 66 6f 72 20 74 68 65 20 69 code for the i 60c0: 6e 74 65 72 70 72 65 74 65 72 2c 20 61 6e 64 20 nterpreter, and 60d0: 74 68 65 20 65 72 72 6f 72 20 6d 65 73 73 61 67 the error messag 60e0: 65 20 75 70 20 74 6f 20 74 68 65 0d 0a 20 20 20 e up to the.. 60f0: 20 20 20 20 20 23 20 20 20 20 20 20 20 70 6f 69 # poi 6100: 6e 74 20 77 68 65 72 65 20 74 68 65 20 73 74 61 nt where the sta 6110: 63 6b 20 74 72 61 63 65 20 73 68 6f 75 6c 64 20 ck trace should 6120: 73 74 61 72 74 2e 0d 0a 20 20 20 20 20 20 20 20 start... 6130: 23 0d 0a 20 20 20 20 20 20 20 20 73 65 74 20 69 #.. set i 6140: 6e 64 65 78 20 5b 73 74 72 69 6e 67 20 66 69 72 ndex [string fir 6150: 73 74 20 22 20 20 20 61 74 20 22 20 24 72 65 73 st " at "$res
6160: 75 6c 74 5d 3b 20 23 20 48 41 43 4b 3a 20 52 65  ult]; # HACK: Re
6170: 6c 69 61 62 6c 65 3f 0d 0a 0d 0a 20 20 20 20 20  liable?....
6180: 20 20 20 72 65 74 75 72 6e 20 5b 6c 69 73 74 20     return [list
6190: 24 63 6f 64 65 20 24 3a 3a 65 72 72 6f 72 43 6f  $code$::errorCo
61a0: 64 65 20 5b 65 78 70 72 20 7b 24 69 6e 64 65 78  de [expr {$index 61b0: 20 21 3d 20 2d 31 20 3f 20 5c 0d 0a 20 20 20 20 != -1 ? \.. 61c0: 20 20 20 20 20 20 20 20 5b 73 74 72 69 6e 67 20 [string 61d0: 74 72 69 6d 20 5b 73 74 72 69 6e 67 20 72 61 6e trim [string ran 61e0: 67 65 20 24 72 65 73 75 6c 74 20 30 20 24 69 6e ge$result 0 $in 61f0: 64 65 78 5d 5d 20 3a 20 24 72 65 73 75 6c 74 7d dex]] :$result}
6200: 5d 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20  ]]..      }..
6210: 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20   }.....    proc
6220: 63 6f 6d 70 69 6c 65 43 53 68 61 72 70 57 69 74  compileCSharpWit
6230: 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20  h {..
6240: 20 74 65 78 74 20 6d 65 6d 6f 72 79 20 73 79 6d   text memory sym
6250: 62 6f 6c 73 20 73 74 72 69 63 74 20 72 65 73 75  bols strict resu
6260: 6c 74 73 56 61 72 4e 61 6d 65 20 65 72 72 6f 72  ltsVarName error
6270: 73 56 61 72 4e 61 6d 65 20 66 69 6c 65 4e 61 6d  sVarName fileNam
6280: 65 73 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  es..
6290: 61 72 67 73 20 7d 20 7b 0d 0a 20 20 20 20 20 20  args } {..
62a0: 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a  #..      # NOTE:
62b0: 20 53 69 6e 63 65 20 77 65 20 61 72 65 20 67 6f   Since we are go
62c0: 69 6e 67 20 74 6f 20 75 73 65 20 74 68 69 73 20  ing to use this
62d0: 6d 65 74 68 6f 64 20 6e 61 6d 65 20 61 20 6c 6f  method name a lo
62e0: 74 2c 20 61 73 73 69 67 6e 20 69 74 20 74 6f 20  t, assign it to
62f0: 61 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20  a..      #
6300: 20 76 61 72 69 61 62 6c 65 20 66 69 72 73 74 2e   variable first.
6310: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20  ..      #..
6320: 20 73 65 74 20 61 64 64 20 52 65 66 65 72 65 6e   set add Referen
6330: 63 65 64 41 73 73 65 6d 62 6c 69 65 73 2e 41 64  cedAssemblies.Ad
6340: 64 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  d....      #..
6350: 20 20 20 20 23 20 4e 4f 54 45 3a 20 43 72 65 61      # NOTE: Crea
6360: 74 65 20 74 68 65 20 62 61 73 65 20 63 6f 6d 6d  te the base comm
6370: 61 6e 64 20 74 6f 20 65 76 61 6c 75 61 74 65 20  and to evaluate
6380: 61 6e 64 20 61 64 64 20 74 68 65 20 70 72 6f 70  and add the prop
6390: 65 72 74 79 20 73 65 74 74 69 6e 67 73 0d 0a 20  erty settings..
63a0: 20 20 20 20 20 23 20 20 20 20 20 20 20 74 68 61       #       tha
63b0: 74 20 61 72 65 20 61 6c 6d 6f 73 74 20 61 6c 77  t are almost alw
63c0: 61 79 73 20 6e 65 65 64 65 64 20 62 79 20 6f 75  ays needed by ou
63d0: 72 20 75 6e 69 74 20 74 65 73 74 73 20 28 69 2e  r unit tests (i.
63e0: 65 2e 20 74 68 65 20 53 79 73 74 65 6d 0d 0a 20  e. the System..
63f0: 20 20 20 20 20 23 20 20 20 20 20 20 20 61 6e 64       #       and
6400: 20 53 79 73 74 65 6d 2e 44 61 74 61 20 61 73 73   System.Data ass
6410: 65 6d 62 6c 79 20 72 65 66 65 72 65 6e 63 65 73  embly references
6420: 29 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20  )...      #..
6430: 20 20 20 73 65 74 20 63 6f 6d 6d 61 6e 64 20 5b     set command [
6440: 6c 69 73 74 20 63 6f 6d 70 69 6c 65 43 53 68 61  list compileCSha
6450: 72 70 20 24 74 65 78 74 20 24 6d 65 6d 6f 72 79  rp $text$memory
6460: 20 24 73 79 6d 62 6f 6c 73 20 24 73 74 72 69 63   $symbols$stric
6470: 74 20 72 65 73 75 6c 74 73 20 5c 0d 0a 20 20 20  t results \..
6480: 20 20 20 20 20 20 20 65 72 72 6f 72 73 20 24 61         errors $a 6490: 64 64 20 53 79 73 74 65 6d 2e 64 6c 6c 20 24 61 dd System.dll$a
64a0: 64 64 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 64  dd System.Data.d
64b0: 6c 6c 20 24 61 64 64 20 53 79 73 74 65 6d 2e 58  ll $add System.X 64c0: 6d 6c 2e 64 6c 6c 5d 0d 0a 0d 0a 20 20 20 20 20 ml.dll].... 64d0: 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 #.. # NOTE 64e0: 3a 20 41 64 64 20 61 6c 6c 20 74 68 65 20 70 72 : Add all the pr 64f0: 6f 76 69 64 65 64 20 66 69 6c 65 20 6e 61 6d 65 ovided file name 6500: 73 20 61 73 20 61 73 73 65 6d 62 6c 79 20 72 65 s as assembly re 6510: 66 65 72 65 6e 63 65 73 2e 0d 0a 20 20 20 20 20 ferences... 6520: 20 23 0d 0a 20 20 20 20 20 20 66 6f 72 65 61 63 #.. foreac 6530: 68 20 66 69 6c 65 4e 61 6d 65 20 24 66 69 6c 65 h fileName$file
6540: 4e 61 6d 65 73 20 7b 0d 0a 20 20 20 20 20 20 20  Names {..
6550: 20 6c 61 70 70 65 6e 64 20 63 6f 6d 6d 61 6e 64   lappend command
6560: 20 24 61 64 64 20 5b 67 65 74 42 69 6e 61 72 79   $add [getBinary 6570: 46 69 6c 65 4e 61 6d 65 20 24 66 69 6c 65 4e 61 FileName$fileNa
6580: 6d 65 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a  me]..      }....
6590: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23        #..      #
65a0: 20 4e 4f 54 45 3a 20 41 64 64 20 74 68 65 20 65   NOTE: Add the e
65b0: 78 74 72 61 20 61 72 67 75 6d 65 6e 74 73 2c 20  xtra arguments,
65c0: 69 66 20 61 6e 79 2c 20 74 6f 20 74 68 65 20 63  if any, to the c
65d0: 6f 6d 6d 61 6e 64 20 74 6f 20 65 76 61 6c 75 61  ommand to evalua
65e0: 74 65 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  te...      #..
65f0: 20 20 20 20 65 76 61 6c 20 6c 61 70 70 65 6e 64      eval lappend
6600: 20 63 6f 6d 6d 61 6e 64 20 24 61 72 67 73 0d 0a   command $args.. 6610: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #.. 6620: 20 23 20 4e 4f 54 45 3a 20 41 6c 69 61 73 20 74 # NOTE: Alias t 6630: 68 65 20 63 6f 6d 70 69 6c 65 72 20 6c 6f 63 61 he compiler loca 6640: 6c 20 72 65 73 75 6c 74 73 20 61 6e 64 20 65 72 l results and er 6650: 72 6f 72 73 20 76 61 72 69 61 62 6c 65 73 20 74 rors variables t 6660: 6f 20 74 68 65 0d 0a 20 20 20 20 20 20 23 20 20 o the.. # 6670: 20 20 20 20 20 76 61 72 69 61 62 6c 65 20 6e 61 variable na 6680: 6d 65 73 20 70 72 6f 76 69 64 65 64 20 62 79 20 mes provided by 6690: 6f 75 72 20 63 61 6c 6c 65 72 2e 0d 0a 20 20 20 our caller... 66a0: 20 20 20 23 0d 0a 20 20 20 20 20 20 75 70 76 61 #.. upva 66b0: 72 20 31 20 24 72 65 73 75 6c 74 73 56 61 72 4e r 1$resultsVarN
66c0: 61 6d 65 20 72 65 73 75 6c 74 73 0d 0a 20 20 20  ame results..
66d0: 20 20 20 75 70 76 61 72 20 31 20 24 65 72 72 6f     upvar 1 $erro 66e0: 72 73 56 61 72 4e 61 6d 65 20 65 72 72 6f 72 73 rsVarName errors 66f0: 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 .... #.. 6700: 20 20 20 23 20 4e 4f 54 45 3a 20 45 76 61 6c 75 # NOTE: Evalu 6710: 61 74 65 20 74 68 65 20 63 6f 6e 73 74 72 75 63 ate the construc 6720: 74 65 64 20 5b 63 6f 6d 70 69 6c 65 43 53 68 61 ted [compileCSha 6730: 72 70 5d 20 63 6f 6d 6d 61 6e 64 20 61 6e 64 20 rp] command and 6740: 72 65 74 75 72 6e 20 74 68 65 0d 0a 20 20 20 20 return the.. 6750: 20 20 23 20 20 20 20 20 20 20 72 65 73 75 6c 74 # result 6760: 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 ... #.. 6770: 20 20 65 76 61 6c 20 24 63 6f 6d 6d 61 6e 64 0d eval$command.
6780: 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70  .    }.....    p
6790: 72 6f 63 20 69 73 4d 65 6d 6f 72 79 44 62 20 7b  roc isMemoryDb {
67a0: 20 66 69 6c 65 4e 61 6d 65 20 7d 20 7b 0d 0a 20   fileName } {..
67b0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20       #..      #
67c0: 4e 4f 54 45 3a 20 49 73 20 74 68 65 20 73 70 65  NOTE: Is the spe
67d0: 63 69 66 69 65 64 20 64 61 74 61 62 61 73 65 20  cified database
67e0: 66 69 6c 65 20 6e 61 6d 65 20 72 65 61 6c 6c 79  file name really
67f0: 20 61 6e 20 69 6e 2d 6d 65 6d 6f 72 79 20 64 61   an in-memory da
6800: 74 61 62 61 73 65 3f 0d 0a 20 20 20 20 20 20 23  tabase?..      #
6810: 0d 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 5b  ..      return [
6820: 65 78 70 72 20 7b 24 66 69 6c 65 4e 61 6d 65 20  expr {$fileName 6830: 65 71 20 22 3a 6d 65 6d 6f 72 79 3a 22 20 7c 7c eq ":memory:" || 6840: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 5b 73 \.. [s 6850: 74 72 69 6e 67 20 72 61 6e 67 65 20 24 66 69 6c tring range$fil
6860: 65 4e 61 6d 65 20 30 20 31 32 5d 20 65 71 20 22  eName 0 12] eq "
6870: 66 69 6c 65 3a 3a 6d 65 6d 6f 72 79 3a 22 7d 5d  file::memory:"}]
6880: 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20  ..    }.....
6890: 70 72 6f 63 20 73 65 74 75 70 44 62 20 7b 0d 0a  proc setupDb {..
68a0: 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6c 65              file
68b0: 4e 61 6d 65 20 7b 6d 6f 64 65 20 22 22 7d 20 7b  Name {mode ""} {
68c0: 64 61 74 65 54 69 6d 65 46 6f 72 6d 61 74 20 22  dateTimeFormat "
68d0: 22 7d 20 7b 64 61 74 65 54 69 6d 65 4b 69 6e 64  "} {dateTimeKind
68e0: 20 22 22 7d 20 7b 66 6c 61 67 73 20 22 22 7d 0d   ""} {flags ""}.
68f0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 7b 65 78  .            {ex
6900: 74 72 61 20 22 22 7d 20 7b 71 75 61 6c 69 66 79  tra ""} {qualify
6910: 20 74 72 75 65 7d 20 7b 64 65 6c 65 74 65 20 74   true} {delete t
6920: 72 75 65 7d 20 7b 75 72 69 20 66 61 6c 73 65 7d  rue} {uri false}
6930: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 7b 74  ..            {t
6940: 65 6d 70 6f 72 61 72 79 20 74 72 75 65 7d 20 7b  emporary true} {
6950: 76 61 72 4e 61 6d 65 20 64 62 7d 20 7d 20 7b 0d  varName db} } {.
6960: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20  .      #..
6970: 23 20 4e 4f 54 45 3a 20 46 69 72 73 74 2c 20 73  # NOTE: First, s
6980: 65 65 20 69 66 20 6f 75 72 20 63 61 6c 6c 65 72  ee if our caller
6990: 20 68 61 73 20 72 65 71 75 65 73 74 65 64 20 61   has requested a
69a0: 6e 20 69 6e 2d 6d 65 6d 6f 72 79 20 64 61 74 61  n in-memory data
69b0: 62 61 73 65 2e 0d 0a 20 20 20 20 20 20 23 0d 0a  base...      #..
69c0: 20 20 20 20 20 20 73 65 74 20 69 73 4d 65 6d 6f        set isMemo
69d0: 72 79 20 5b 69 73 4d 65 6d 6f 72 79 44 62 20 24  ry [isMemoryDb $69e0: 66 69 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a 20 20 20 fileName].... 69f0: 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f #.. # NO 6a00: 54 45 3a 20 46 6f 72 20 6e 6f 77 2c 20 61 6c 6c TE: For now, all 6a10: 20 74 65 73 74 20 64 61 74 61 62 61 73 65 73 20 test databases 6a20: 75 73 65 64 20 62 79 20 74 68 65 20 74 65 73 74 used by the test 6a30: 20 73 75 69 74 65 20 61 72 65 20 70 6c 61 63 65 suite are place 6a40: 64 20 69 6e 74 6f 0d 0a 20 20 20 20 20 20 23 20 d into.. # 6a50: 20 20 20 20 20 20 74 68 65 20 74 65 6d 70 6f 72 the tempor 6a60: 61 72 79 20 64 69 72 65 63 74 6f 72 79 2e 20 20 ary directory. 6a70: 45 61 63 68 20 64 61 74 61 62 61 73 65 20 75 73 Each database us 6a80: 65 64 20 62 79 20 61 20 74 65 73 74 20 73 68 6f ed by a test sho 6a90: 75 6c 64 20 62 65 0d 0a 20 20 20 20 20 20 23 20 uld be.. # 6aa0: 20 20 20 20 20 20 63 6c 65 61 6e 65 64 20 75 70 cleaned up 6ab0: 20 62 79 20 74 68 61 74 20 74 65 73 74 20 75 73 by that test us 6ac0: 69 6e 67 20 74 68 65 20 22 63 6c 65 61 6e 75 70 ing the "cleanup 6ad0: 44 62 22 20 70 72 6f 63 65 64 75 72 65 2c 20 62 Db" procedure, b 6ae0: 65 6c 6f 77 2e 0d 0a 20 20 20 20 20 20 23 0d 0a elow... #.. 6af0: 20 20 20 20 20 20 69 66 20 7b 21 24 69 73 4d 65 if {!$isMe
6b00: 6d 6f 72 79 20 26 26 20 24 71 75 61 6c 69 66 79  mory && $qualify 6b10: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {.. 6b20: 20 20 73 65 74 20 66 69 6c 65 4e 61 6d 65 20 5b set fileName [ 6b30: 66 69 6c 65 20 6a 6f 69 6e 20 5b 67 65 74 44 61 file join [getDa 6b40: 74 61 62 61 73 65 44 69 72 65 63 74 6f 72 79 5d tabaseDirectory] 6b50: 20 5b 66 69 6c 65 20 74 61 69 6c 20 24 66 69 6c [file tail$fil
6b60: 65 4e 61 6d 65 5d 5d 0d 0a 20 20 20 20 20 20 7d  eName]]..      }
6b70: 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20  ....      #..
6b80: 20 20 20 23 20 4e 4f 54 45 3a 20 42 79 20 64 65     # NOTE: By de
6b90: 66 61 75 6c 74 2c 20 64 65 6c 65 74 65 20 61 6e  fault, delete an
6ba0: 79 20 70 72 65 2d 65 78 69 73 74 69 6e 67 20 64  y pre-existing d
6bb0: 61 74 61 62 61 73 65 20 77 69 74 68 20 74 68 65  atabase with the
6bc0: 20 73 61 6d 65 20 66 69 6c 65 0d 0a 20 20 20 20   same file..
6bd0: 20 20 23 20 20 20 20 20 20 20 6e 61 6d 65 20 69    #       name i
6be0: 66 20 69 74 20 63 75 72 72 65 6e 74 6c 79 20 65  f it currently e
6bf0: 78 69 73 74 73 2e 0d 0a 20 20 20 20 20 20 23 0d  xists...      #.
6c00: 0a 20 20 20 20 20 20 69 66 20 7b 21 24 69 73 4d  .      if {!$isM 6c10: 65 6d 6f 72 79 20 26 26 20 24 64 65 6c 65 74 65 emory &&$delete
6c20: 20 26 26 20 5b 66 69 6c 65 20 65 78 69 73 74 73   && [file exists
6c30: 20 24 66 69 6c 65 4e 61 6d 65 5d 7d 20 74 68 65   $fileName]} the 6c40: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a n {.. #.. 6c50: 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 # NOTE: 6c60: 41 74 74 65 6d 70 74 20 74 6f 20 64 65 6c 65 74 Attempt to delet 6c70: 65 20 61 6e 79 20 70 72 65 2d 65 78 69 73 74 69 e any pre-existi 6c80: 6e 67 20 64 61 74 61 62 61 73 65 20 77 69 74 68 ng database with 6c90: 20 74 68 65 20 73 61 6d 65 20 66 69 6c 65 0d 0a the same file.. 6ca0: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 # 6cb0: 6e 61 6d 65 2e 0d 0a 20 20 20 20 20 20 20 20 23 name... # 6cc0: 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b 63 .. if {[c 6cd0: 61 74 63 68 20 7b 66 69 6c 65 20 64 65 6c 65 74 atch {file delet 6ce0: 65 20 24 66 69 6c 65 4e 61 6d 65 7d 20 65 72 72 e$fileName} err
6cf0: 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  or]} then {..
6d00: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..
6d10: 20 20 20 20 23 20 4e 4f 54 45 3a 20 57 65 20 73      # NOTE: We s
6d20: 6f 6d 65 68 6f 77 20 66 61 69 6c 65 64 20 74 6f  omehow failed to
6d30: 20 64 65 6c 65 74 65 20 74 68 65 20 66 69 6c 65   delete the file
6d40: 2c 20 72 65 70 6f 72 74 20 77 68 79 2e 0d 0a 20  , report why...
6d50: 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20           #..
6d60: 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74        tputs $::t 6d70: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 est_channel [app 6d80: 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 endArgs \.. 6d90: 20 20 20 20 20 20 20 20 20 22 3d 3d 3d 3d 20 57 "==== W 6da0: 41 52 4e 49 4e 47 3a 20 66 61 69 6c 65 64 20 74 ARNING: failed t 6db0: 6f 20 64 65 6c 65 74 65 20 64 61 74 61 62 61 73 o delete databas 6dc0: 65 20 66 69 6c 65 20 5c 22 22 20 24 66 69 6c 65 e file \""$file
6dd0: 4e 61 6d 65 20 5c 0d 0a 20 20 20 20 20 20 20 20  Name \..
6de0: 20 20 20 20 20 20 22 5c 22 20 64 75 72 69 6e 67        "\" during
6df0: 20 73 65 74 75 70 2c 20 65 72 72 6f 72 3a 20 22   setup, error: "
6e00: 20 5c 6e 5c 74 20 24 65 72 72 6f 72 20 5c 6e 5d   \n\t $error \n] 6e10: 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 .. }.. 6e20: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d }.... #. 6e30: 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 52 . # NOTE: R 6e40: 65 66 65 72 20 74 6f 20 74 68 65 20 73 70 65 63 efer to the spec 6e50: 69 66 69 65 64 20 76 61 72 69 61 62 6c 65 20 28 ified variable ( 6e60: 65 2e 67 2e 20 22 64 62 22 29 20 69 6e 20 74 68 e.g. "db") in th 6e70: 65 20 63 6f 6e 74 65 78 74 20 6f 66 20 6f 75 72 e context of our 6e80: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. # 6e90: 63 61 6c 6c 65 72 2e 20 20 54 68 65 20 68 61 6e caller. The han 6ea0: 64 6c 65 20 74 6f 20 74 68 65 20 6f 70 65 6e 65 dle to the opene 6eb0: 64 20 64 61 74 61 62 61 73 65 20 77 69 6c 6c 20 d database will 6ec0: 62 65 20 73 74 6f 72 65 64 20 74 68 65 72 65 2e be stored there. 6ed0: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #.. 6ee0: 20 75 70 76 61 72 20 31 20 24 76 61 72 4e 61 6d upvar 1$varNam
6ef0: 65 20 64 62 0d 0a 0d 0a 20 20 20 20 20 20 23 0d  e db....      #.
6f00: 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53  .      # NOTE: S
6f10: 74 61 72 74 20 62 75 69 6c 64 69 6e 67 20 74 68  tart building th
6f20: 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 72  e connection str
6f30: 69 6e 67 2e 20 20 54 68 65 20 6f 6e 6c 79 20 72  ing.  The only r
6f40: 65 71 75 69 72 65 64 20 70 6f 72 74 69 6f 6e 0d  equired portion.
6f50: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 6f  .      #       o
6f60: 66 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e  f the connection
6f70: 20 73 74 72 69 6e 67 20 69 73 20 74 68 65 20 64   string is the d
6f80: 61 74 61 20 73 6f 75 72 63 65 2c 20 77 68 69 63  ata source, whic
6f90: 68 20 63 6f 6e 74 61 69 6e 73 20 74 68 65 0d 0a  h contains the..
6fa0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 64 61        #       da
6fb0: 74 61 62 61 73 65 20 66 69 6c 65 20 6e 61 6d 65  tabase file name
6fc0: 20 69 74 73 65 6c 66 2e 20 20 49 66 20 6f 75 72   itself.  If our
6fd0: 20 63 61 6c 6c 65 72 20 77 61 6e 74 73 20 74 6f   caller wants to
6fe0: 20 75 73 65 20 61 20 55 52 49 20 61 73 0d 0a 20   use a URI as..
6ff0: 20 20 20 20 20 23 20 20 20 20 20 20 20 74 68 65       #       the
7000: 20 64 61 74 61 20 73 6f 75 72 63 65 2c 20 75 73   data source, us
7010: 65 20 74 68 65 20 46 75 6c 6c 55 72 69 20 63 6f  e the FullUri co
7020: 6e 6e 65 63 74 69 6f 6e 20 73 74 72 69 6e 67 20  nnection string
7030: 70 72 6f 70 65 72 74 79 20 74 6f 0d 0a 20 20 20  property to..
7040: 20 20 20 23 20 20 20 20 20 20 20 70 72 65 76 65     #       preve
7050: 6e 74 20 74 68 65 20 64 61 74 61 20 73 6f 75 72  nt the data sour
7060: 63 65 20 73 74 72 69 6e 67 20 66 72 6f 6d 20 62  ce string from b
7070: 65 69 6e 67 20 6d 61 6e 67 6c 65 64 2e 0d 0a 20  eing mangled...
7080: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66       #..      if
7090: 20 7b 24 75 72 69 7d 20 74 68 65 6e 20 7b 0d 0a   {$uri} then {.. 70a0: 20 20 20 20 20 20 20 20 73 65 74 20 63 6f 6e 6e set conn 70b0: 65 63 74 69 6f 6e 20 7b 46 75 6c 6c 55 72 69 3d ection {FullUri= 70c0: 24 7b 66 69 6c 65 4e 61 6d 65 7d 7d 0d 0a 20 20${fileName}}..
70d0: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20      } else {..
70e0: 20 20 20 20 20 20 73 65 74 20 63 6f 6e 6e 65 63        set connec
70f0: 74 69 6f 6e 20 7b 44 61 74 61 20 53 6f 75 72 63  tion {Data Sourc
7100: 65 3d 24 7b 66 69 6c 65 4e 61 6d 65 7d 7d 0d 0a  e=${fileName}}.. 7110: 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 }.... 7120: 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 #.. # NOTE 7130: 3a 20 53 69 6e 63 65 20 74 68 69 73 20 70 72 6f : Since this pro 7140: 63 65 64 75 72 65 20 68 61 73 20 6e 6f 20 73 70 cedure has no sp 7150: 65 63 69 61 6c 20 6b 6e 6f 77 6c 65 64 67 65 20 ecial knowledge 7160: 6f 66 20 77 68 61 74 20 74 68 65 20 64 65 66 61 of what the defa 7170: 75 6c 74 0d 0a 20 20 20 20 20 20 23 20 20 20 20 ult.. # 7180: 20 20 20 73 65 74 74 69 6e 67 20 69 73 20 66 6f setting is fo 7190: 72 20 74 68 65 20 54 6f 46 75 6c 6c 50 61 74 68 r the ToFullPath 71a0: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 72 69 connection stri 71b0: 6e 67 20 70 72 6f 70 65 72 79 2c 20 61 6c 77 61 ng propery, alwa 71c0: 79 73 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 ys.. # 71d0: 20 20 61 64 64 20 74 68 65 20 76 61 6c 75 65 20 add the value 71e0: 77 65 20 6b 6e 6f 77 20 61 62 6f 75 74 20 74 6f we know about to 71f0: 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 the connection 7200: 73 74 72 69 6e 67 2e 0d 0a 20 20 20 20 20 20 23 string... # 7210: 0d 0a 20 20 20 20 20 20 61 70 70 65 6e 64 20 63 .. append c 7220: 6f 6e 6e 65 63 74 69 6f 6e 20 7b 3b 54 6f 46 75 onnection {;ToFu 7230: 6c 6c 50 61 74 68 3d 24 7b 71 75 61 6c 69 66 79 llPath=${qualify
7240: 7d 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20  }}....      #..
7250: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 49 66 20       # NOTE: If
7260: 6f 75 72 20 63 61 6c 6c 65 72 20 73 70 65 63 69  our caller speci
7270: 66 69 65 64 20 61 20 6a 6f 75 72 6e 61 6c 20 6d  fied a journal m
7280: 6f 64 65 2c 20 61 64 64 20 74 68 65 20 6e 65 63  ode, add the nec
7290: 65 73 73 61 72 79 20 70 6f 72 74 69 6f 6e 0d 0a  essary portion..
72a0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 6f 66        #       of
72b0: 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20   the connection
72c0: 73 74 72 69 6e 67 20 6e 6f 77 2e 0d 0a 20 20 20  string now...
72d0: 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b     #..      if {
72e0: 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24  [string length $72f0: 6d 6f 64 65 5d 20 3e 20 30 7d 20 74 68 65 6e 20 mode] > 0} then 7300: 7b 0d 0a 20 20 20 20 20 20 20 20 61 70 70 65 6e {.. appen 7310: 64 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 7b 3b 4a d connection {;J 7320: 6f 75 72 6e 61 6c 20 4d 6f 64 65 3d 24 7b 6d 6f ournal Mode=${mo
7330: 64 65 7d 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d  de}}..      }...
7340: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20  .      #..
7350: 23 20 4e 4f 54 45 3a 20 49 66 20 6f 75 72 20 63  # NOTE: If our c
7360: 61 6c 6c 65 72 20 73 70 65 63 69 66 69 65 64 20  aller specified
7370: 61 20 44 61 74 65 54 69 6d 65 20 66 6f 72 6d 61  a DateTime forma
7380: 74 2c 20 61 64 64 20 74 68 65 20 6e 65 63 65 73  t, add the neces
7390: 73 61 72 79 0d 0a 20 20 20 20 20 20 23 20 20 20  sary..      #
73a0: 20 20 20 20 70 6f 72 74 69 6f 6e 20 6f 66 20 74      portion of t
73b0: 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 74  he connection st
73c0: 72 69 6e 67 20 6e 6f 77 2e 0d 0a 20 20 20 20 20  ring now...
73d0: 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 73   #..      if {[s
73e0: 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 64 61  tring length $da 73f0: 74 65 54 69 6d 65 46 6f 72 6d 61 74 5d 20 3e 20 teTimeFormat] > 7400: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 0} then {.. 7410: 20 20 20 61 70 70 65 6e 64 20 63 6f 6e 6e 65 63 append connec 7420: 74 69 6f 6e 20 7b 3b 44 61 74 65 54 69 6d 65 46 tion {;DateTimeF 7430: 6f 72 6d 61 74 3d 24 7b 64 61 74 65 54 69 6d 65 ormat=${dateTime
7440: 46 6f 72 6d 61 74 7d 7d 0d 0a 20 20 20 20 20 20  Format}}..
7450: 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  }....      #..
7460: 20 20 20 20 23 20 4e 4f 54 45 3a 20 49 66 20 6f      # NOTE: If o
7470: 75 72 20 63 61 6c 6c 65 72 20 73 70 65 63 69 66  ur caller specif
7480: 69 65 64 20 61 20 44 61 74 65 54 69 6d 65 4b 69  ied a DateTimeKi
7490: 6e 64 2c 20 61 64 64 20 74 68 65 20 6e 65 63 65  nd, add the nece
74a0: 73 73 61 72 79 20 70 6f 72 74 69 6f 6e 0d 0a 20  ssary portion..
74b0: 20 20 20 20 20 23 20 20 20 20 20 20 20 6f 66 20       #       of
74c0: 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 73  the connection s
74d0: 74 72 69 6e 67 20 6e 6f 77 2e 0d 0a 20 20 20 20  tring now...
74e0: 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b    #..      if {[
74f0: 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 64  string length $d 7500: 61 74 65 54 69 6d 65 4b 69 6e 64 5d 20 3e 20 30 ateTimeKind] > 0 7510: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {.. 7520: 20 20 61 70 70 65 6e 64 20 63 6f 6e 6e 65 63 74 append connect 7530: 69 6f 6e 20 7b 3b 44 61 74 65 54 69 6d 65 4b 69 ion {;DateTimeKi 7540: 6e 64 3d 24 7b 64 61 74 65 54 69 6d 65 4b 69 6e nd=${dateTimeKin
7550: 64 7d 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a  d}}..      }....
7560: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23        #..      #
7570: 20 4e 4f 54 45 3a 20 49 66 20 74 68 65 72 65 20   NOTE: If there
7580: 61 72 65 20 61 6e 79 20 67 6c 6f 62 61 6c 20 28  are any global (
7590: 70 65 72 20 74 65 73 74 20 72 75 6e 29 20 63 6f  per test run) co
75a0: 6e 6e 65 63 74 69 6f 6e 20 66 6c 61 67 73 20 63  nnection flags c
75b0: 75 72 72 65 6e 74 6c 79 0d 0a 20 20 20 20 20 20  urrently..
75c0: 23 20 20 20 20 20 20 20 73 65 74 2c 20 75 73 65  #       set, use
75d0: 20 74 68 65 6d 20 6e 6f 77 20 28 69 2e 65 2e 20   them now (i.e.
75e0: 62 79 20 63 6f 6d 62 69 6e 69 6e 67 20 74 68 65  by combining the
75f0: 6d 20 77 69 74 68 20 74 68 65 20 6f 6e 65 73 20  m with the ones
7600: 66 6f 72 20 74 68 69 73 0d 0a 20 20 20 20 20 20  for this..
7610: 23 20 20 20 20 20 20 20 63 6f 6e 6e 65 63 74 69  #       connecti
7620: 6f 6e 29 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20  on)...      #..
7630: 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65       if {[info e
7640: 78 69 73 74 73 20 3a 3a 63 6f 6e 6e 65 63 74 69  xists ::connecti
7650: 6f 6e 5f 66 6c 61 67 73 5d 20 26 26 20 5c 0d 0a  on_flags] && \..
7660: 20 20 20 20 20 20 20 20 20 20 5b 73 74 72 69 6e            [strin
7670: 67 20 6c 65 6e 67 74 68 20 24 3a 3a 63 6f 6e 6e  g length $::conn 7680: 65 63 74 69 6f 6e 5f 66 6c 61 67 73 5d 20 3e 20 ection_flags] > 7690: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 0} then {.. 76a0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 #.. # 76b0: 4e 4f 54 45 3a 20 53 68 6f 77 20 28 61 6e 64 20 NOTE: Show (and 76c0: 6c 6f 67 29 20 74 68 61 74 20 77 65 20 64 65 74 log) that we det 76d0: 65 63 74 65 64 20 73 6f 6d 65 20 67 6c 6f 62 61 ected some globa 76e0: 6c 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 6c 61 l connection fla 76f0: 67 73 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a gs... #.. 7700: 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 3a tputs$:
7710: 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61  :test_channel [a
7720: 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20  ppendArgs \..
7730: 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 67           "---- g
7740: 6c 6f 62 61 6c 20 63 6f 6e 6e 65 63 74 69 6f 6e  lobal connection
7750: 20 66 6c 61 67 73 20 64 65 74 65 63 74 65 64 3a   flags detected:
7760: 20 22 20 24 3a 3a 63 6f 6e 6e 65 63 74 69 6f 6e   " $::connection 7770: 5f 66 6c 61 67 73 20 5c 6e 5d 0d 0a 0d 0a 20 20 _flags \n].... 7780: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #.. 7790: 20 23 20 4e 4f 54 45 3a 20 43 6f 6d 62 69 6e 65 # NOTE: Combine 77a0: 20 61 6e 64 2f 6f 72 20 72 65 70 6c 61 63 65 20 and/or replace 77b0: 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 the connection f 77c0: 6c 61 67 73 20 61 6e 64 20 74 68 65 6e 20 73 68 lags and then sh 77d0: 6f 77 20 74 68 65 0d 0a 20 20 20 20 20 20 20 20 ow the.. 77e0: 23 20 20 20 20 20 20 20 6e 65 77 20 76 61 6c 75 # new valu 77f0: 65 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 e... #.. 7800: 20 20 20 20 20 20 20 73 65 74 20 66 6c 61 67 73 set flags 7810: 20 5b 63 6f 6d 62 69 6e 65 46 6c 61 67 73 20 24 [combineFlags$
7820: 66 6c 61 67 73 20 24 3a 3a 63 6f 6e 6e 65 63 74  flags $::connect 7830: 69 6f 6e 5f 66 6c 61 67 73 5d 0d 0a 0d 0a 20 20 ion_flags].... 7840: 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 tputs$::t
7850: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70  est_channel [app
7860: 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20  endArgs \..
7870: 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 63 6f 6d         "---- com
7880: 62 69 6e 65 64 20 63 6f 6e 6e 65 63 74 69 6f 6e  bined connection
7890: 20 66 6c 61 67 73 20 61 72 65 3a 20 22 20 24 66   flags are: " $f 78a0: 6c 61 67 73 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 lags \n].. 78b0: 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 }.... #.. 78c0: 20 20 20 20 23 20 4e 4f 54 45 3a 20 49 66 20 6f # NOTE: If o 78d0: 75 72 20 63 61 6c 6c 65 72 20 73 70 65 63 69 66 ur caller specif 78e0: 69 65 64 20 61 20 53 51 4c 69 74 65 43 6f 6e 6e ied a SQLiteConn 78f0: 65 63 74 69 6f 6e 46 6c 61 67 73 2c 20 61 64 64 ectionFlags, add 7900: 20 74 68 65 20 6e 65 63 65 73 73 61 72 79 0d 0a the necessary.. 7910: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 70 6f # po 7920: 72 74 69 6f 6e 20 6f 66 20 74 68 65 20 63 6f 6e rtion of the con 7930: 6e 65 63 74 69 6f 6e 20 73 74 72 69 6e 67 20 6e nection string n 7940: 6f 77 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 ow... #.. 7950: 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 if {[string 7960: 6c 65 6e 67 74 68 20 24 66 6c 61 67 73 5d 20 3e length$flags] >
7970: 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20   0} then {..
7980: 20 20 20 20 61 70 70 65 6e 64 20 63 6f 6e 6e 65      append conne
7990: 63 74 69 6f 6e 20 7b 3b 46 6c 61 67 73 3d 24 7b  ction {;Flags=${ 79a0: 66 6c 61 67 73 7d 7d 0d 0a 20 20 20 20 20 20 7d flags}}.. } 79b0: 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 .... #.. 79c0: 20 20 20 23 20 4e 4f 54 45 3a 20 49 66 20 6f 75 # NOTE: If ou 79d0: 72 20 63 61 6c 6c 65 72 20 73 70 65 63 69 66 69 r caller specifi 79e0: 65 64 20 61 6e 20 65 78 74 72 61 20 70 61 79 6c ed an extra payl 79f0: 6f 61 64 20 74 6f 20 74 68 65 20 63 6f 6e 6e 65 oad to the conne 7a00: 63 74 69 6f 6e 20 73 74 72 69 6e 67 2c 0d 0a 20 ction string,.. 7a10: 20 20 20 20 20 23 20 20 20 20 20 20 20 61 70 70 # app 7a20: 65 6e 64 20 69 74 20 6e 6f 77 2e 0d 0a 20 20 20 end it now... 7a30: 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b #.. if { 7a40: 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 [string length$
7a50: 65 78 74 72 61 5d 20 3e 20 30 7d 20 74 68 65 6e  extra] > 0} then
7a60: 20 7b 0d 0a 20 20 20 20 20 20 20 20 61 70 70 65   {..        appe
7a70: 6e 64 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 5c 3b  nd connection \;
7a80: 20 24 65 78 74 72 61 0d 0a 20 20 20 20 20 20 7d   $extra.. } 7a90: 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 .... #.. 7aa0: 20 20 20 23 20 4e 4f 54 45 3a 20 4f 70 65 6e 20 # NOTE: Open 7ab0: 74 68 65 20 64 61 74 61 62 61 73 65 20 63 6f 6e the database con 7ac0: 6e 65 63 74 69 6f 6e 20 6e 6f 77 2c 20 70 6c 61 nection now, pla 7ad0: 63 69 6e 67 20 74 68 65 20 6f 70 61 71 75 65 20 cing the opaque 7ae0: 68 61 6e 64 6c 65 20 76 61 6c 75 65 0d 0a 20 20 handle value.. 7af0: 20 20 20 20 23 20 20 20 20 20 20 20 69 6e 74 6f # into 7b00: 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 73 70 the variable sp 7b10: 65 63 69 66 69 65 64 20 62 79 20 6f 75 72 20 63 ecified by our c 7b20: 61 6c 6c 65 72 2e 0d 0a 20 20 20 20 20 20 23 0d aller... #. 7b30: 0a 20 20 20 20 20 20 73 65 74 20 64 62 20 5b 73 . set db [s 7b40: 71 6c 20 6f 70 65 6e 20 2d 74 79 70 65 20 53 51 ql open -type SQ 7b50: 4c 69 74 65 20 5b 73 75 62 73 74 20 24 63 6f 6e Lite [subst$con
7b60: 6e 65 63 74 69 6f 6e 5d 5d 0d 0a 0d 0a 20 20 20  nection]]....
7b70: 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f     #..      # NO
7b80: 54 45 3a 20 43 6f 6e 66 69 67 75 72 65 20 74 68  TE: Configure th
7b90: 65 20 74 65 6d 70 6f 72 61 72 79 20 64 69 72 65  e temporary dire
7ba0: 63 74 6f 72 79 20 66 6f 72 20 74 68 65 20 6e 65  ctory for the ne
7bb0: 77 6c 79 20 6f 70 65 6e 65 64 20 64 61 74 61 62  wly opened datab
7bc0: 61 73 65 0d 0a 20 20 20 20 20 20 23 20 20 20 20  ase..      #
7bd0: 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 6e 6f     connection no
7be0: 77 20 75 6e 6c 65 73 73 20 6f 75 72 20 63 61 6c  w unless our cal
7bf0: 6c 65 72 20 66 6f 72 62 69 64 73 20 69 74 2e 0d  ler forbids it..
7c00: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20  .      #..
7c10: 69 66 20 7b 24 74 65 6d 70 6f 72 61 72 79 7d 20  if {$temporary} 7c20: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 then {.. 7c30: 73 71 6c 20 65 78 65 63 75 74 65 20 24 64 62 20 sql execute$db
7c40: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20  [appendArgs \..
7c50: 20 20 20 20 20 20 20 20 20 20 20 22 50 52 41 47             "PRAG
7c60: 4d 41 20 74 65 6d 70 5f 73 74 6f 72 65 5f 64 69  MA temp_store_di
7c70: 72 65 63 74 6f 72 79 20 3d 20 5c 22 22 20 5b 67  rectory = \"" [g
7c80: 65 74 54 65 6d 70 6f 72 61 72 79 44 69 72 65 63  etTemporaryDirec
7c90: 74 6f 72 79 5d 20 22 5c 22 3b 22 5d 0d 0a 20 20  tory] "\";"]..
7ca0: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23      }....      #
7cb0: 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20  ..      # NOTE:
7cc0: 41 6c 77 61 79 73 20 72 65 74 75 72 6e 20 74 68  Always return th
7cd0: 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 68 61 6e  e connection han
7ce0: 64 6c 65 20 75 70 6f 6e 20 73 75 63 63 65 73 73  dle upon success
7cf0: 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20  ...      #..
7d00: 20 20 72 65 74 75 72 6e 20 24 64 62 0d 0a 20 20    return $db.. 7d10: 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 }..... proc 7d20: 20 67 65 74 44 62 43 6f 6e 6e 65 63 74 69 6f 6e getDbConnection 7d30: 20 7b 20 7b 76 61 72 4e 61 6d 65 20 64 62 7d 20 { {varName db} 7d40: 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 } {.. #.. 7d50: 20 20 20 20 23 20 4e 4f 54 45 3a 20 52 65 66 65 # NOTE: Refe 7d60: 72 20 74 6f 20 74 68 65 20 73 70 65 63 69 66 69 r to the specifi 7d70: 65 64 20 76 61 72 69 61 62 6c 65 20 28 65 2e 67 ed variable (e.g 7d80: 2e 20 22 64 62 22 29 20 69 6e 20 74 68 65 20 63 . "db") in the c 7d90: 6f 6e 74 65 78 74 20 6f 66 20 6f 75 72 0d 0a 20 ontext of our.. 7da0: 20 20 20 20 20 23 20 20 20 20 20 20 20 63 61 6c # cal 7db0: 6c 65 72 2e 20 20 54 68 65 20 68 61 6e 64 6c 65 ler. The handle 7dc0: 20 74 6f 20 74 68 65 20 64 61 74 61 62 61 73 65 to the database 7dd0: 20 70 72 65 76 69 6f 75 73 6c 79 20 6f 70 65 6e previously open 7de0: 65 64 20 62 79 20 5b 73 65 74 75 70 44 62 5d 0d ed by [setupDb]. 7df0: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 73 . # s 7e00: 68 6f 75 6c 64 20 62 65 20 73 74 6f 72 65 64 20 hould be stored 7e10: 74 68 65 72 65 2e 0d 0a 20 20 20 20 20 20 23 0d there... #. 7e20: 0a 20 20 20 20 20 20 75 70 76 61 72 20 31 20 24 . upvar 1$
7e30: 76 61 72 4e 61 6d 65 20 64 62 0d 0a 0d 0a 20 20  varName db....
7e40: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e      #..      # N
7e50: 4f 54 45 3a 20 54 68 69 73 20 72 65 74 75 72 6e  OTE: This return
7e60: 73 20 74 68 65 20 41 44 4f 2e 4e 45 54 20 49 44  s the ADO.NET ID
7e70: 62 43 6f 6e 6e 65 63 74 69 6f 6e 20 6f 62 6a 65  bConnection obje
7e80: 63 74 20 69 6e 73 74 61 6e 63 65 20 66 6f 72 20  ct instance for
7e90: 74 68 65 0d 0a 20 20 20 20 20 20 23 20 20 20 20  the..      #
7ea0: 20 20 20 73 70 65 63 69 66 69 65 64 20 64 61 74     specified dat
7eb0: 61 62 73 65 20 68 61 6e 64 6c 65 2e 20 20 53 69  abse handle.  Si
7ec0: 6e 63 65 20 67 65 74 74 69 6e 67 20 74 68 69 73  nce getting this
7ed0: 20 6f 62 6a 65 63 74 20 72 65 6c 69 65 73 20 75   object relies u
7ee0: 70 6f 6e 0d 0a 20 20 20 20 20 20 23 20 20 20 20  pon..      #
7ef0: 20 20 20 45 61 67 6c 65 20 69 6e 74 65 72 6e 61     Eagle interna
7f00: 6c 73 2c 20 67 72 65 61 74 20 63 61 72 65 20 73  ls, great care s
7f10: 68 6f 75 6c 64 20 62 65 20 74 61 6b 65 6e 20 74  hould be taken t
7f20: 6f 20 61 76 6f 69 64 20 64 69 73 70 6f 73 69 6e  o avoid disposin
7f30: 67 20 6f 66 0d 0a 20 20 20 20 20 20 23 20 20 20  g of..      #
7f40: 20 20 20 20 74 68 69 73 20 6f 62 6a 65 63 74 20      this object
7f50: 6f 72 20 6f 74 68 65 72 77 69 73 65 20 70 75 74  or otherwise put
7f60: 74 69 6e 67 20 69 74 20 69 6e 74 6f 20 61 6e 20  ting it into an
7f70: 69 6e 76 61 6c 69 64 20 73 74 61 74 65 2e 0d 0a  invalid state...
7f80: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69        #..      i
7f90: 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20  f {[info exists
7fa0: 64 62 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  db]} then {..
7fb0: 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20       if {[catch
7fc0: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  {..
7fd0: 20 20 20 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65     object invoke
7fe0: 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 6c   -flags +NonPubl
7ff0: 69 63 20 2d 6f 62 6a 65 63 74 66 6c 61 67 73 20  ic -objectflags
8000: 2b 4e 6f 44 69 73 70 6f 73 65 20 5c 0d 0a 20 20  +NoDispose \..
8010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 61                -a
8020: 6c 69 61 73 20 49 6e 74 65 72 70 72 65 74 65 72  lias Interpreter
8030: 2e 47 65 74 41 63 74 69 76 65 2e 63 6f 6e 6e 65  .GetActive.conne
8040: 63 74 69 6f 6e 73 20 49 74 65 6d 20 24 64 62 7d  ctions Item $db} 8050: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \.. 8060: 20 20 20 20 72 65 73 75 6c 74 5d 20 3d 3d 20 30 result] == 0 8070: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {.. 8080: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 #.. 8090: 20 23 20 4e 4f 54 45 3a 20 53 75 63 63 65 73 73 # NOTE: Success 80a0: 2c 20 72 65 74 75 72 6e 20 74 68 65 20 6f 70 61 , return the opa 80b0: 71 75 65 20 6f 62 6a 65 63 74 20 68 61 6e 64 6c que object handl 80c0: 65 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d e... #. 80d0: 0a 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 . retur 80e0: 6e 20 24 72 65 73 75 6c 74 0d 0a 20 20 20 20 20 n$result..
80f0: 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20     } else {..
8100: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..
8110: 20 20 20 20 23 20 4e 4f 54 45 3a 20 46 61 69 6c      # NOTE: Fail
8120: 75 72 65 2c 20 72 65 70 6f 72 74 20 77 68 79 2e  ure, report why.
8130: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20  ..          #..
8140: 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24           tputs $8150: 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b ::test_channel [ 8160: 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 appendArgs \.. 8170: 20 20 20 20 20 20 20 20 20 20 20 20 22 3d 3d 3d "=== 8180: 3d 20 57 41 52 4e 49 4e 47 3a 20 66 61 69 6c 65 = WARNING: faile 8190: 64 20 74 6f 20 67 65 74 20 63 6f 6e 6e 65 63 74 d to get connect 81a0: 69 6f 6e 20 68 61 6e 64 6c 65 20 66 6f 72 20 64 ion handle for d 81b0: 61 74 61 62 61 73 65 20 5c 22 22 20 5c 0d 0a 20 atabase \"" \.. 81c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 24 64 62$db
81d0: 20 22 5c 22 2c 20 65 72 72 6f 72 3a 20 22 20 5c   "\", error: " \
81e0: 6e 5c 74 20 24 72 65 73 75 6c 74 20 5c 6e 5d 0d  n\t $result \n]. 81f0: 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 . }.. 8200: 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 }.. }..... 8210: 20 20 20 70 72 6f 63 20 66 72 65 65 44 62 43 6f proc freeDbCo 8220: 6e 6e 65 63 74 69 6f 6e 20 7b 20 7b 76 61 72 4e nnection { {varN 8230: 61 6d 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 7d 20 ame connection} 8240: 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 } {.. #.. 8250: 20 20 20 20 23 20 4e 4f 54 45 3a 20 52 65 66 65 # NOTE: Refe 8260: 72 20 74 6f 20 74 68 65 20 73 70 65 63 69 66 69 r to the specifi 8270: 65 64 20 76 61 72 69 61 62 6c 65 20 28 65 2e 67 ed variable (e.g 8280: 2e 20 22 63 6f 6e 6e 65 63 74 69 6f 6e 22 29 20 . "connection") 8290: 69 6e 20 74 68 65 20 63 6f 6e 74 65 78 74 0d 0a in the context.. 82a0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 6f 66 # of 82b0: 20 6f 75 72 20 63 61 6c 6c 65 72 2e 20 20 54 68 our caller. Th 82c0: 65 20 6f 70 61 71 75 65 20 6f 62 6a 65 63 74 20 e opaque object 82d0: 68 61 6e 64 6c 65 20 66 6f 72 20 61 6e 20 41 44 handle for an AD 82e0: 4f 2e 4e 45 54 20 63 6f 6e 6e 65 63 74 69 6f 6e O.NET connection 82f0: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. # 8300: 70 72 65 76 69 6f 75 73 6c 79 20 72 65 74 75 72 previously retur 8310: 6e 65 64 20 62 79 20 5b 67 65 74 44 62 43 6f 6e ned by [getDbCon 8320: 6e 65 63 74 69 6f 6e 5d 20 73 68 6f 75 6c 64 20 nection] should 8330: 62 65 20 73 74 6f 72 65 64 20 74 68 65 72 65 2e be stored there. 8340: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #.. 8350: 20 75 70 76 61 72 20 31 20 24 76 61 72 4e 61 6d upvar 1$varNam
8360: 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 0d 0a 0d 0a  e connection....
8370: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23        #..      #
8380: 20 4e 4f 54 45 3a 20 41 74 74 65 6d 70 74 20 74   NOTE: Attempt t
8390: 6f 20 72 65 6d 6f 76 65 20 74 68 65 20 6f 70 61  o remove the opa
83a0: 71 75 65 20 6f 62 6a 65 63 74 20 68 61 6e 64 6c  que object handl
83b0: 65 20 66 72 6f 6d 20 74 68 65 20 69 6e 74 65 72  e from the inter
83c0: 70 72 65 74 65 72 0d 0a 20 20 20 20 20 20 23 20  preter..      #
83d0: 20 20 20 20 20 20 6e 6f 77 2e 20 20 54 68 69 73        now.  This
83e0: 20 5b 6f 62 6a 65 63 74 20 64 69 73 70 6f 73 65   [object dispose
83f0: 5d 20 63 61 6c 6c 20 77 69 6c 6c 20 6e 6f 74 20  ] call will not
8400: 61 63 74 75 61 6c 6c 79 20 64 69 73 70 6f 73 65  actually dispose
8410: 20 6f 66 20 74 68 65 0d 0a 20 20 20 20 20 20 23   of the..      #
8420: 20 20 20 20 20 20 20 75 6e 64 65 72 6c 79 69 6e         underlyin
8430: 67 20 6f 62 6a 65 63 74 20 62 65 63 61 75 73 65  g object because
8440: 20 74 68 65 20 2b 4e 6f 44 69 73 70 6f 73 65 20   the +NoDispose
8450: 66 6c 61 67 20 77 61 73 20 73 65 74 20 6f 6e 20  flag was set on
8460: 69 74 20 64 75 72 69 6e 67 0d 0a 20 20 20 20 20  it during..
8470: 20 23 20 20 20 20 20 20 20 63 72 65 61 74 69 6f   #       creatio
8480: 6e 20 6f 66 20 74 68 65 20 6f 70 61 71 75 65 20  n of the opaque
8490: 6f 62 6a 65 63 74 20 68 61 6e 64 6c 65 2e 0d 0a  object handle...
84a0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69        #..      i
84b0: 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20  f {[info exists
84c0: 63 6f 6e 6e 65 63 74 69 6f 6e 5d 20 26 26 20 5c  connection] && \
84d0: 0d 0a 20 20 20 20 20 20 20 20 20 20 5b 63 61 74  ..          [cat
84e0: 63 68 20 7b 6f 62 6a 65 63 74 20 64 69 73 70 6f  ch {object dispo
84f0: 73 65 20 24 63 6f 6e 6e 65 63 74 69 6f 6e 7d 20  se $connection} 8500: 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a error]} then {.. 8510: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #.. 8520: 20 20 20 23 20 4e 4f 54 45 3a 20 57 65 20 73 6f # NOTE: We so 8530: 6d 65 68 6f 77 20 66 61 69 6c 65 64 20 74 6f 20 mehow failed to 8540: 72 65 6d 6f 76 65 20 74 68 65 20 68 61 6e 64 6c remove the handl 8550: 65 2c 20 72 65 70 6f 72 74 20 77 68 79 2e 0d 0a e, report why... 8560: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #.. 8570: 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 tputs$::test
8580: 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64  _channel [append
8590: 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20  Args \..
85a0: 20 20 20 20 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e      "==== WARNIN
85b0: 47 3a 20 66 61 69 6c 65 64 20 74 6f 20 72 65 6d  G: failed to rem
85c0: 6f 76 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 68  ove connection h
85d0: 61 6e 64 6c 65 20 5c 22 22 20 24 63 6f 6e 6e 65  andle \"" $conne 85e0: 63 74 69 6f 6e 20 5c 0d 0a 20 20 20 20 20 20 20 ction \.. 85f0: 20 20 20 20 20 22 5c 22 2c 20 65 72 72 6f 72 3a "\", error: 8600: 20 22 20 5c 6e 5c 74 20 24 65 72 72 6f 72 20 5c " \n\t$error \
8610: 6e 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20  n]..      }..
8620: 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20   }.....    proc
8630: 63 6c 65 61 6e 75 70 44 62 20 7b 20 66 69 6c 65  cleanupDb { file
8640: 4e 61 6d 65 20 7b 76 61 72 4e 61 6d 65 20 64 62  Name {varName db
8650: 7d 20 7b 63 6f 6c 6c 65 63 74 20 74 72 75 65 7d  } {collect true}
8660: 20 7b 71 75 61 6c 69 66 79 20 74 72 75 65 7d 0d   {qualify true}.
8670: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .
8680: 20 20 20 20 20 20 7b 64 65 6c 65 74 65 20 74 72        {delete tr
8690: 75 65 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 20 23  ue} } {..      #
86a0: 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20  ..      # NOTE:
86b0: 41 74 74 65 6d 70 74 20 74 6f 20 66 6f 72 63 65  Attempt to force
86c0: 20 61 6c 6c 20 70 65 6e 64 69 6e 67 20 22 67 61   all pending "ga
86d0: 72 62 61 67 65 22 20 6f 62 6a 65 63 74 73 20 74  rbage" objects t
86e0: 6f 20 62 65 20 63 6f 6c 6c 65 63 74 65 64 2c 0d  o be collected,.
86f0: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 69  .      #       i
8700: 6e 63 6c 75 64 69 6e 67 20 53 51 4c 69 74 65 20  ncluding SQLite
8710: 73 74 61 74 65 6d 65 6e 74 73 20 61 6e 64 20 62  statements and b
8720: 61 63 6b 75 70 20 6f 62 6a 65 63 74 73 3b 20 74  ackup objects; t
8730: 68 69 73 20 73 68 6f 75 6c 64 20 61 6c 6c 6f 77  his should allow
8740: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20  ..      #
8750: 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 64  the underlying d
8760: 61 74 61 62 61 73 65 20 66 69 6c 65 20 74 6f 20  atabase file to
8770: 62 65 20 64 65 6c 65 74 65 64 2e 0d 0a 20 20 20  be deleted...
8780: 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b     #..      if {
8790: 24 63 6f 6c 6c 65 63 74 7d 20 74 68 65 6e 20 7b  $collect} then { 87a0: 0d 0a 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 .. collec 87b0: 74 47 61 72 62 61 67 65 20 24 3a 3a 74 65 73 74 tGarbage$::test
87c0: 5f 63 68 61 6e 6e 65 6c 0d 0a 20 20 20 20 20 20  _channel..
87d0: 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  }....      #..
87e0: 20 20 20 20 23 20 4e 4f 54 45 3a 20 52 65 66 65      # NOTE: Refe
87f0: 72 20 74 6f 20 74 68 65 20 73 70 65 63 69 66 69  r to the specifi
8800: 65 64 20 76 61 72 69 61 62 6c 65 20 28 65 2e 67  ed variable (e.g
8810: 2e 20 22 64 62 22 29 20 69 6e 20 74 68 65 20 63  . "db") in the c
8820: 6f 6e 74 65 78 74 20 6f 66 20 6f 75 72 0d 0a 20  ontext of our..
8830: 20 20 20 20 20 23 20 20 20 20 20 20 20 63 61 6c       #       cal
8840: 6c 65 72 2e 20 20 54 68 65 20 68 61 6e 64 6c 65  ler.  The handle
8850: 20 74 6f 20 74 68 65 20 64 61 74 61 62 61 73 65   to the database
8860: 20 70 72 65 76 69 6f 75 73 6c 79 20 6f 70 65 6e   previously open
8870: 65 64 20 62 79 20 5b 73 65 74 75 70 44 62 5d 0d  ed by [setupDb].
8880: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 73  .      #       s
8890: 68 6f 75 6c 64 20 62 65 20 73 74 6f 72 65 64 20  hould be stored
88a0: 74 68 65 72 65 2e 0d 0a 20 20 20 20 20 20 23 0d  there...      #.
88b0: 0a 20 20 20 20 20 20 75 70 76 61 72 20 31 20 24  .      upvar 1 $88c0: 76 61 72 4e 61 6d 65 20 64 62 0d 0a 0d 0a 20 20 varName db.... 88d0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e #.. # N 88e0: 4f 54 45 3a 20 43 6c 6f 73 65 20 74 68 65 20 63 OTE: Close the c 88f0: 6f 6e 6e 65 63 74 69 6f 6e 20 74 6f 20 74 68 65 onnection to the 8900: 20 64 61 74 61 62 61 73 65 20 6e 6f 77 2e 20 20 database now. 8910: 54 68 69 73 20 73 68 6f 75 6c 64 20 61 6c 6c 6f This should allo 8920: 77 20 75 73 20 74 6f 0d 0a 20 20 20 20 20 20 23 w us to.. # 8930: 20 20 20 20 20 20 20 64 65 6c 65 74 65 20 74 68 delete th 8940: 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 64 61 74 e underlying dat 8950: 61 62 61 73 65 20 66 69 6c 65 2e 0d 0a 20 20 20 abase file... 8960: 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b #.. if { 8970: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 64 62 5d [info exists db] 8980: 20 26 26 20 5b 63 61 74 63 68 20 7b 73 71 6c 20 && [catch {sql 8990: 63 6c 6f 73 65 20 24 64 62 7d 20 65 72 72 6f 72 close$db} error
89a0: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  ]} then {..
89b0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20     #..        #
89c0: 4e 4f 54 45 3a 20 57 65 20 73 6f 6d 65 68 6f 77  NOTE: We somehow
89d0: 20 66 61 69 6c 65 64 20 74 6f 20 63 6c 6f 73 65   failed to close
89e0: 20 74 68 65 20 64 61 74 61 62 61 73 65 2c 20 72   the database, r
89f0: 65 70 6f 72 74 20 77 68 79 2e 0d 0a 20 20 20 20  eport why...
8a00: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 74      #..        t
8a10: 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61  puts $::test_cha 8a20: 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 nnel [appendArgs 8a30: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \.. 8a40: 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e 47 3a 20 66 "==== WARNING: f 8a50: 61 69 6c 65 64 20 74 6f 20 63 6c 6f 73 65 20 64 ailed to close d 8a60: 61 74 61 62 61 73 65 20 5c 22 22 20 24 64 62 20 atabase \""$db
8a70: 22 5c 22 2c 20 65 72 72 6f 72 3a 20 22 20 5c 0d  "\", error: " \.
8a80: 0a 20 20 20 20 20 20 20 20 20 20 20 20 5c 6e 5c  .            \n\
8a90: 74 20 24 65 72 72 6f 72 20 5c 6e 5d 0d 0a 20 20  t $error \n].. 8aa0: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 }.... # 8ab0: 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 .. # NOTE: 8ac0: 46 69 72 73 74 2c 20 73 65 65 20 69 66 20 6f 75 First, see if ou 8ad0: 72 20 63 61 6c 6c 65 72 20 68 61 73 20 72 65 71 r caller has req 8ae0: 75 65 73 74 65 64 20 61 6e 20 69 6e 2d 6d 65 6d uested an in-mem 8af0: 6f 72 79 20 64 61 74 61 62 61 73 65 2e 0d 0a 20 ory database... 8b00: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 73 65 #.. se 8b10: 74 20 69 73 4d 65 6d 6f 72 79 20 5b 69 73 4d 65 t isMemory [isMe 8b20: 6d 6f 72 79 44 62 20 24 66 69 6c 65 4e 61 6d 65 moryDb$fileName
8b30: 5d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  ]....      #..
8b40: 20 20 20 20 23 20 4e 4f 54 45 3a 20 42 75 69 6c      # NOTE: Buil
8b50: 64 20 74 68 65 20 66 75 6c 6c 20 70 61 74 68 20  d the full path
8b60: 74 6f 20 74 68 65 20 64 61 74 61 62 61 73 65 20  to the database
8b70: 66 69 6c 65 20 6e 61 6d 65 2e 20 20 46 6f 72 20  file name.  For
8b80: 6e 6f 77 2c 20 61 6c 6c 20 74 65 73 74 0d 0a 20  now, all test..
8b90: 20 20 20 20 20 23 20 20 20 20 20 20 20 64 61 74       #       dat
8ba0: 61 62 61 73 65 20 66 69 6c 65 73 20 61 72 65 20  abase files are
8bb0: 73 74 6f 72 65 64 20 69 6e 20 74 68 65 20 74 65  stored in the te
8bc0: 6d 70 6f 72 61 72 79 20 64 69 72 65 63 74 6f 72  mporary director
8bd0: 79 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20  y...      #..
8be0: 20 20 20 69 66 20 7b 21 24 69 73 4d 65 6d 6f 72     if {!$isMemor 8bf0: 79 20 26 26 20 24 71 75 61 6c 69 66 79 7d 20 74 y &&$qualify} t
8c00: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 73  hen {..        s
8c10: 65 74 20 66 69 6c 65 4e 61 6d 65 20 5b 66 69 6c  et fileName [fil
8c20: 65 20 6a 6f 69 6e 20 5b 67 65 74 44 61 74 61 62  e join [getDatab
8c30: 61 73 65 44 69 72 65 63 74 6f 72 79 5d 20 5b 66  aseDirectory] [f
8c40: 69 6c 65 20 74 61 69 6c 20 24 66 69 6c 65 4e 61  ile tail $fileNa 8c50: 6d 65 5d 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d me]].. }... 8c60: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 . #.. 8c70: 23 20 4e 4f 54 45 3a 20 43 68 65 63 6b 20 69 66 # NOTE: Check if 8c80: 20 74 68 65 20 66 69 6c 65 20 73 74 69 6c 6c 20 the file still 8c90: 65 78 69 73 74 73 2e 0d 0a 20 20 20 20 20 20 23 exists... # 8ca0: 0d 0a 20 20 20 20 20 20 69 66 20 7b 21 24 69 73 .. if {!$is
8cb0: 4d 65 6d 6f 72 79 20 26 26 20 24 64 65 6c 65 74  Memory && $delet 8cc0: 65 20 26 26 20 5b 66 69 6c 65 20 65 78 69 73 74 e && [file exist 8cd0: 73 20 24 66 69 6c 65 4e 61 6d 65 5d 7d 20 74 68 s$fileName]} th
8ce0: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d  en {..        #.
8cf0: 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a  .        # NOTE:
8d00: 20 53 6b 69 70 20 64 65 6c 65 74 69 6e 67 20 64   Skip deleting d
8d10: 61 74 61 62 61 73 65 20 66 69 6c 65 73 20 69 66  atabase files if
8d20: 20 73 6f 6d 65 62 6f 64 79 20 73 65 74 73 20 74   somebody sets t
8d30: 68 65 20 67 6c 6f 62 61 6c 0d 0a 20 20 20 20 20  he global..
8d40: 20 20 20 23 20 20 20 20 20 20 20 76 61 72 69 61     #       varia
8d50: 62 6c 65 20 74 6f 20 70 72 65 76 65 6e 74 20 69  ble to prevent i
8d60: 74 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20  t...        #..
8d70: 20 20 20 20 20 20 20 69 66 20 7b 21 5b 69 6e 66         if {![inf
8d80: 6f 20 65 78 69 73 74 73 20 3a 3a 6e 6f 28 63 6c  o exists ::no(cl
8d90: 65 61 6e 75 70 44 62 46 69 6c 65 29 5d 7d 20 74  eanupDbFile)]} t
8da0: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  hen {..
8db0: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20   #..          #
8dc0: 4e 4f 54 45 3a 20 41 74 74 65 6d 70 74 20 74 6f  NOTE: Attempt to
8dd0: 20 64 65 6c 65 74 65 20 74 68 65 20 74 65 73 74   delete the test
8de0: 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 20 6e   database file n
8df0: 6f 77 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23  ow...          #
8e00: 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7b  ..          if {
8e10: 5b 73 65 74 20 63 6f 64 65 20 5b 63 61 74 63 68  [set code [catch
8e20: 20 7b 66 69 6c 65 20 64 65 6c 65 74 65 20 24 66   {file delete $f 8e30: 69 6c 65 4e 61 6d 65 7d 20 65 72 72 6f 72 5d 5d ileName} error]] 8e40: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {.. 8e50: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #.. 8e60: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 57 65 20 # NOTE: We 8e70: 73 6f 6d 65 68 6f 77 20 66 61 69 6c 65 64 20 74 somehow failed t 8e80: 6f 20 64 65 6c 65 74 65 20 74 68 65 20 66 69 6c o delete the fil 8e90: 65 2c 20 72 65 70 6f 72 74 20 77 68 79 2e 0d 0a e, report why... 8ea0: 20 20 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 #.. 8eb0: 20 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 tputs 8ec0: 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c$::test_channel
8ed0: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a   [appendArgs \..
8ee0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
8ef0: 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e 47 3a 20 66  "==== WARNING: f
8f00: 61 69 6c 65 64 20 74 6f 20 64 65 6c 65 74 65 20  ailed to delete
8f10: 64 61 74 61 62 61 73 65 20 66 69 6c 65 20 5c 22  database file \"
8f20: 22 20 24 66 69 6c 65 4e 61 6d 65 20 5c 0d 0a 20  " $fileName \.. 8f30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 " 8f40: 5c 22 20 64 75 72 69 6e 67 20 63 6c 65 61 6e 75 \" during cleanu 8f50: 70 2c 20 65 72 72 6f 72 3a 20 22 20 5c 6e 5c 74 p, error: " \n\t 8f60: 20 24 65 72 72 6f 72 20 5c 6e 5d 0d 0a 20 20 20$error \n]..
8f70: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20         }..
8f80: 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20    } else {..
8f90: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..
8fa0: 20 20 20 23 20 4e 4f 54 45 3a 20 53 68 6f 77 20     # NOTE: Show
8fb0: 74 68 61 74 20 77 65 20 73 6b 69 70 70 65 64 20  that we skipped
8fc0: 64 65 6c 65 74 69 6e 67 20 74 68 65 20 66 69 6c  deleting the fil
8fd0: 65 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d  e...          #.
8fe0: 0a 20 20 20 20 20 20 20 20 20 20 73 65 74 20 63  .          set c
8ff0: 6f 64 65 20 30 0d 0a 0d 0a 20 20 20 20 20 20 20  ode 0....
9000: 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74     tputs $::test 9010: 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 _channel [append 9020: 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 Args \.. 9030: 20 20 20 20 20 20 22 3d 3d 3d 3d 20 57 41 52 4e "==== WARN 9040: 49 4e 47 3a 20 73 6b 69 70 70 65 64 20 64 65 6c ING: skipped del 9050: 65 74 69 6e 67 20 64 61 74 61 62 61 73 65 20 66 eting database f 9060: 69 6c 65 20 5c 22 22 20 24 66 69 6c 65 4e 61 6d ile \""$fileNam
9070: 65 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20  e \..
9080: 20 20 20 22 5c 22 20 64 75 72 69 6e 67 20 63 6c     "\" during cl
9090: 65 61 6e 75 70 5c 6e 22 5d 0d 0a 20 20 20 20 20  eanup\n"]..
90a0: 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 20 65 6c     }..      } el
90b0: 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d  se {..        #.
90c0: 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a  .        # NOTE:
90d0: 20 54 68 65 20 66 69 6c 65 20 64 6f 65 73 20 6e   The file does n
90e0: 6f 74 20 65 78 69 73 74 2c 20 73 75 63 63 65 73  ot exist, succes
90f0: 73 21 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20  s!..        #..
9100: 20 20 20 20 20 20 20 73 65 74 20 63 6f 64 65 20         set code
9110: 30 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20  0..      }....
9120: 20 20 20 20 72 65 74 75 72 6e 20 24 63 6f 64 65      return $code 9130: 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 .. }..... 9140: 70 72 6f 63 20 63 6c 65 61 6e 75 70 46 69 6c 65 proc cleanupFile 9150: 20 7b 20 66 69 6c 65 4e 61 6d 65 20 7b 63 6f 6c { fileName {col 9160: 6c 65 63 74 20 74 72 75 65 7d 20 7b 66 6f 72 63 lect true} {forc 9170: 65 20 66 61 6c 73 65 7d 20 7d 20 7b 0d 0a 20 20 e false} } {.. 9180: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e #.. # N 9190: 4f 54 45 3a 20 41 74 74 65 6d 70 74 20 74 6f 20 OTE: Attempt to 91a0: 66 6f 72 63 65 20 61 6c 6c 20 70 65 6e 64 69 6e force all pendin 91b0: 67 20 22 67 61 72 62 61 67 65 22 20 6f 62 6a 65 g "garbage" obje 91c0: 63 74 73 20 74 6f 20 62 65 20 63 6f 6c 6c 65 63 cts to be collec 91d0: 74 65 64 2c 0d 0a 20 20 20 20 20 20 23 20 20 20 ted,.. # 91e0: 20 20 20 20 69 6e 63 6c 75 64 69 6e 67 20 53 51 including SQ 91f0: 4c 69 74 65 20 73 74 61 74 65 6d 65 6e 74 73 20 Lite statements 9200: 61 6e 64 20 62 61 63 6b 75 70 20 6f 62 6a 65 63 and backup objec 9210: 74 73 3b 20 74 68 69 73 20 73 68 6f 75 6c 64 20 ts; this should 9220: 61 6c 6c 6f 77 0d 0a 20 20 20 20 20 20 23 20 20 allow.. # 9230: 20 20 20 20 20 74 68 65 20 75 6e 64 65 72 6c 79 the underly 9240: 69 6e 67 20 64 61 74 61 62 61 73 65 20 66 69 6c ing database fil 9250: 65 20 74 6f 20 62 65 20 64 65 6c 65 74 65 64 2e e to be deleted. 9260: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #.. 9270: 20 69 66 20 7b 24 63 6f 6c 6c 65 63 74 7d 20 74 if {$collect} t
9280: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 63  hen {..        c
9290: 6f 6c 6c 65 63 74 47 61 72 62 61 67 65 20 24 3a  ollectGarbage $: 92a0: 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 0d 0a 20 :test_channel.. 92b0: 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 }.... 92c0: 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a #.. # NOTE: 92d0: 20 43 68 65 63 6b 20 69 66 20 74 68 65 20 66 69 Check if the fi 92e0: 6c 65 20 73 74 69 6c 6c 20 65 78 69 73 74 73 2e le still exists. 92f0: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #.. 9300: 20 69 66 20 7b 5b 66 69 6c 65 20 65 78 69 73 74 if {[file exist 9310: 73 20 24 66 69 6c 65 4e 61 6d 65 5d 7d 20 74 68 s$fileName]} th
9320: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d  en {..        #.
9330: 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a  .        # NOTE:
9340: 20 53 6b 69 70 20 64 65 6c 65 74 69 6e 67 20 74   Skip deleting t
9350: 65 73 74 20 66 69 6c 65 73 20 69 66 20 73 6f 6d  est files if som
9360: 65 62 6f 64 79 20 73 65 74 73 20 74 68 65 20 67  ebody sets the g
9370: 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 0d 0a  lobal variable..
9380: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20          #
9390: 74 6f 20 70 72 65 76 65 6e 74 20 69 74 2e 0d 0a  to prevent it...
93a0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..
93b0: 20 20 20 69 66 20 7b 24 66 6f 72 63 65 20 7c 7c     if {$force || 93c0: 20 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a ![info exists : 93d0: 3a 6e 6f 28 63 6c 65 61 6e 75 70 46 69 6c 65 29 :no(cleanupFile) 93e0: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 ]} then {.. 93f0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #.. 9400: 20 20 23 20 4e 4f 54 45 3a 20 41 74 74 65 6d 70 # NOTE: Attemp 9410: 74 20 74 6f 20 64 65 6c 65 74 65 20 74 68 65 20 t to delete the 9420: 74 65 73 74 20 66 69 6c 65 20 6e 6f 77 2e 0d 0a test file now... 9430: 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 #.. 9440: 20 20 20 20 20 20 20 69 66 20 7b 5b 73 65 74 20 if {[set 9450: 63 6f 64 65 20 5b 63 61 74 63 68 20 7b 66 69 6c code [catch {fil 9460: 65 20 64 65 6c 65 74 65 20 24 66 69 6c 65 4e 61 e delete$fileNa
9470: 6d 65 7d 20 65 72 72 6f 72 5d 5d 7d 20 74 68 65  me} error]]} the
9480: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20  n {..
9490: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   #..
94a0: 23 20 4e 4f 54 45 3a 20 57 65 20 73 6f 6d 65 68  # NOTE: We someh
94b0: 6f 77 20 66 61 69 6c 65 64 20 74 6f 20 64 65 6c  ow failed to del
94c0: 65 74 65 20 74 68 65 20 66 69 6c 65 2c 20 72 65  ete the file, re
94d0: 70 6f 72 74 20 77 68 79 2e 0d 0a 20 20 20 20 20  port why...
94e0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..
94f0: 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74        tputs $::t 9500: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 est_channel [app 9510: 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 endArgs \.. 9520: 20 20 20 20 20 20 20 20 20 20 20 22 3d 3d 3d 3d "==== 9530: 20 57 41 52 4e 49 4e 47 3a 20 66 61 69 6c 65 64 WARNING: failed 9540: 20 74 6f 20 64 65 6c 65 74 65 20 74 65 73 74 20 to delete test 9550: 66 69 6c 65 20 5c 22 22 20 24 66 69 6c 65 4e 61 file \""$fileNa
9560: 6d 65 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  me \..
9570: 20 20 20 20 20 20 22 5c 22 20 64 75 72 69 6e 67        "\" during
9580: 20 63 6c 65 61 6e 75 70 2c 20 65 72 72 6f 72 3a   cleanup, error:
9590: 20 22 20 5c 6e 5c 74 20 24 65 72 72 6f 72 20 5c   " \n\t $error \ 95a0: 6e 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d n].. }. 95b0: 0a 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 . } else 95c0: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a {.. #.. 95d0: 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 # NOTE 95e0: 3a 20 53 68 6f 77 20 74 68 61 74 20 77 65 20 73 : Show that we s 95f0: 6b 69 70 70 65 64 20 64 65 6c 65 74 69 6e 67 20 kipped deleting 9600: 74 68 65 20 66 69 6c 65 2e 0d 0a 20 20 20 20 20 the file... 9610: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #.. 9620: 20 20 73 65 74 20 63 6f 64 65 20 30 0d 0a 0d 0a set code 0.... 9630: 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 tputs 9640: 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20$::test_channel
9650: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20  [appendArgs \..
9660: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3d 3d               "==
9670: 3d 3d 20 57 41 52 4e 49 4e 47 3a 20 73 6b 69 70  == WARNING: skip
9680: 70 65 64 20 64 65 6c 65 74 69 6e 67 20 74 65 73  ped deleting tes
9690: 74 20 66 69 6c 65 20 5c 22 22 20 24 66 69 6c 65  t file \"" $file 96a0: 4e 61 6d 65 20 5c 0d 0a 20 20 20 20 20 20 20 20 Name \.. 96b0: 20 20 20 20 20 20 22 5c 22 20 64 75 72 69 6e 67 "\" during 96c0: 20 63 6c 65 61 6e 75 70 5c 6e 22 5d 0d 0a 20 20 cleanup\n"].. 96d0: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d }.. } 96e0: 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 else {.. 96f0: 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f #.. # NO 9700: 54 45 3a 20 54 68 65 20 66 69 6c 65 20 64 6f 65 TE: The file doe 9710: 73 20 6e 6f 74 20 65 78 69 73 74 2c 20 73 75 63 s not exist, suc 9720: 63 65 73 73 21 0d 0a 20 20 20 20 20 20 20 20 23 cess!.. # 9730: 0d 0a 20 20 20 20 20 20 20 20 73 65 74 20 63 6f .. set co 9740: 64 65 20 30 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d de 0.. }... 9750: 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 63 . return$c
9760: 6f 64 65 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20  ode..    }.....
9770: 20 20 20 70 72 6f 63 20 63 6f 6c 6c 65 63 74 47     proc collectG
9780: 61 72 62 61 67 65 20 7b 20 63 68 61 6e 6e 65 6c  arbage { channel
9790: 20 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20   } {..      #..
97a0: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 41 74 74       # NOTE: Att
97b0: 65 6d 70 74 20 74 6f 20 66 6f 72 63 65 20 61 20  empt to force a
97c0: 66 75 6c 6c 20 67 61 72 62 61 67 65 20 63 6f 6c  full garbage col
97d0: 6c 65 63 74 69 6f 6e 20 6e 6f 77 2e 20 20 52 65  lection now.  Re
97e0: 70 6f 72 74 20 61 6e 79 0d 0a 20 20 20 20 20 20  port any..
97f0: 23 20 20 20 20 20 20 20 65 72 72 6f 72 20 74 68  #       error th
9800: 61 74 20 69 73 20 65 6e 63 6f 75 6e 74 65 72 65  at is encountere
9810: 64 20 69 66 20 77 65 20 66 61 69 6c 2e 0d 0a 20  d if we fail...
9820: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66       #..      if
9830: 20 7b 5b 63 61 74 63 68 20 7b 6f 62 6a 65 63 74   {[catch {object
9840: 20 69 6e 76 6f 6b 65 20 47 43 20 47 65 74 54 6f   invoke GC GetTo
9850: 74 61 6c 4d 65 6d 6f 72 79 20 74 72 75 65 7d 20  talMemory true}
9860: 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a  error]} then {..
9870: 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63          tputs $c 9880: 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 hannel [appendAr 9890: 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 gs \.. 98a0: 20 20 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e 47 3a "==== WARNING: 98b0: 20 66 61 69 6c 65 64 20 66 75 6c 6c 20 67 61 72 failed full gar 98c0: 62 61 67 65 20 63 6f 6c 6c 65 63 74 69 6f 6e 2c bage collection, 98d0: 20 65 72 72 6f 72 3a 20 22 20 5c 0d 0a 20 20 20 error: " \.. 98e0: 20 20 20 20 20 20 20 20 20 5c 6e 5c 74 20 24 65 \n\t$e
98f0: 72 72 6f 72 20 5c 6e 5d 0d 0a 20 20 20 20 20 20  rror \n]..
9900: 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20  }..    }.....
9910: 20 70 72 6f 63 20 72 65 70 6f 72 74 53 51 4c 69   proc reportSQLi
9920: 74 65 52 65 73 6f 75 72 63 65 73 20 7b 20 63 68  teResources { ch
9930: 61 6e 6e 65 6c 20 7b 71 75 69 65 74 20 66 61 6c  annel {quiet fal
9940: 73 65 7d 20 7b 63 6f 6c 6c 65 63 74 20 74 72 75  se} {collect tru
9950: 65 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d  e} } {..      #.
9960: 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53  .      # NOTE: S
9970: 6b 69 70 20 61 6c 6c 20 6f 75 74 70 75 74 20 69  kip all output i
9980: 66 20 77 65 20 61 72 65 20 72 75 6e 6e 69 6e 67  f we are running
9990: 20 69 6e 20 22 71 75 69 65 74 22 20 6d 6f 64 65   in "quiet" mode
99a0: 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20  ...      #..
99b0: 20 20 69 66 20 7b 21 24 71 75 69 65 74 7d 20 74    if {!$quiet} t 99c0: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 74 hen {.. t 99d0: 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 22 2d puts$channel "-
99e0: 2d 2d 2d 20 63 75 72 72 65 6e 74 20 6d 65 6d 6f  --- current memo
99f0: 72 79 20 69 6e 20 75 73 65 20 62 79 20 53 51 4c  ry in use by SQL
9a00: 69 74 65 2e 2e 2e 20 22 0d 0a 20 20 20 20 20 20  ite... "..
9a10: 7d 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b  }....      if {[
9a20: 63 61 74 63 68 20 7b 6f 62 6a 65 63 74 20 69 6e  catch {object in
9a30: 76 6f 6b 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e  voke -flags +Non
9a40: 50 75 62 6c 69 63 20 5c 0d 0a 20 20 20 20 20 20  Public \..
9a50: 20 20 20 20 20 20 20 20 53 79 73 74 65 6d 2e 44          System.D
9a60: 61 74 61 2e 53 51 4c 69 74 65 2e 55 6e 73 61 66  ata.SQLite.Unsaf
9a70: 65 4e 61 74 69 76 65 4d 65 74 68 6f 64 73 20 5c  eNativeMethods \
9a80: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..
9a90: 73 71 6c 69 74 65 33 5f 6d 65 6d 6f 72 79 5f 75  sqlite3_memory_u
9aa0: 73 65 64 7d 20 6d 65 6d 6f 72 79 5d 20 3d 3d 20  sed} memory] ==
9ab0: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  0} then {..
9ac0: 20 20 20 69 66 20 7b 21 24 71 75 69 65 74 7d 20     if {!$quiet} 9ad0: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 then {.. 9ae0: 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c tputs$channel
9af0: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 24 6d 65   [appendArgs $me 9b00: 6d 6f 72 79 20 22 20 62 79 74 65 73 5c 6e 22 5d mory " bytes\n"] 9b10: 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 .. }.. 9b20: 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 } else {.. 9b30: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #.. 9b40: 23 20 4e 4f 54 45 3a 20 4d 61 79 62 65 20 74 68 # NOTE: Maybe th 9b50: 65 20 53 51 4c 69 74 65 20 6e 61 74 69 76 65 20 e SQLite native 9b60: 6c 69 62 72 61 72 79 20 69 73 20 75 6e 61 76 61 library is unava 9b70: 69 6c 61 62 6c 65 3f 0d 0a 20 20 20 20 20 20 20 ilable?.. 9b80: 20 23 0d 0a 20 20 20 20 20 20 20 20 73 65 74 20 #.. set 9b90: 6d 65 6d 6f 72 79 20 75 6e 6b 6e 6f 77 6e 0d 0a memory unknown.. 9ba0: 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 21 24 .. if {!$
9bb0: 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a 20  quiet} then {..
9bc0: 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24           tputs $9bd0: 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 channel [appendA 9be0: 72 67 73 20 24 6d 65 6d 6f 72 79 20 5c 6e 5d 0d rgs$memory \n].
9bf0: 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20  .        }..
9c00: 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 73 65 74    }....      set
9c10: 20 72 65 73 75 6c 74 20 24 6d 65 6d 6f 72 79 3b   result $memory; 9c20: 20 23 20 4e 4f 54 45 3a 20 52 65 74 75 72 6e 20 # NOTE: Return 9c30: 6d 65 6d 6f 72 79 20 69 6e 2d 75 73 65 20 74 6f memory in-use to 9c40: 20 6f 75 72 20 63 61 6c 6c 65 72 2e 0d 0a 0d 0a our caller..... 9c50: 20 20 20 20 20 20 69 66 20 7b 21 24 71 75 69 65 if {!$quie
9c60: 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  t} then {..
9c70: 20 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65     tputs $channe 9c80: 6c 20 22 2d 2d 2d 2d 20 6d 61 78 69 6d 75 6d 20 l "---- maximum 9c90: 6d 65 6d 6f 72 79 20 69 6e 20 75 73 65 20 62 79 memory in use by 9ca0: 20 53 51 4c 69 74 65 2e 2e 2e 20 22 0d 0a 20 20 SQLite... ".. 9cb0: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 69 }.... i 9cc0: 66 20 7b 5b 63 61 74 63 68 20 7b 6f 62 6a 65 63 f {[catch {objec 9cd0: 74 20 69 6e 76 6f 6b 65 20 2d 66 6c 61 67 73 20 t invoke -flags 9ce0: 2b 4e 6f 6e 50 75 62 6c 69 63 20 5c 0d 0a 20 20 +NonPublic \.. 9cf0: 20 20 20 20 20 20 20 20 20 20 20 20 53 79 73 74 Syst 9d00: 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 55 em.Data.SQLite.U 9d10: 6e 73 61 66 65 4e 61 74 69 76 65 4d 65 74 68 6f nsafeNativeMetho 9d20: 64 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 ds \.. 9d30: 20 20 20 20 73 71 6c 69 74 65 33 5f 6d 65 6d 6f sqlite3_memo 9d40: 72 79 5f 68 69 67 68 77 61 74 65 72 20 30 7d 20 ry_highwater 0} 9d50: 6d 65 6d 6f 72 79 5d 20 3d 3d 20 30 7d 20 74 68 memory] == 0} th 9d60: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 69 66 en {.. if 9d70: 20 7b 21 24 71 75 69 65 74 7d 20 74 68 65 6e 20 {!$quiet} then
9d80: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70 75  {..          tpu
9d90: 74 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70  ts $channel [app 9da0: 65 6e 64 41 72 67 73 20 24 6d 65 6d 6f 72 79 20 endArgs$memory
9db0: 22 20 62 79 74 65 73 5c 6e 22 5d 0d 0a 20 20 20  " bytes\n"]..
9dc0: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 20       }..      }
9dd0: 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20  else {..
9de0: 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54  #..        # NOT
9df0: 45 3a 20 4d 61 79 62 65 20 74 68 65 20 53 51 4c  E: Maybe the SQL
9e00: 69 74 65 20 6e 61 74 69 76 65 20 6c 69 62 72 61  ite native libra
9e10: 72 79 20 69 73 20 75 6e 61 76 61 69 6c 61 62 6c  ry is unavailabl
9e20: 65 3f 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20  e?..        #..
9e30: 20 20 20 20 20 20 20 73 65 74 20 6d 65 6d 6f 72         set memor
9e40: 79 20 75 6e 6b 6e 6f 77 6e 0d 0a 0d 0a 20 20 20  y unknown....
9e50: 20 20 20 20 20 69 66 20 7b 21 24 71 75 69 65 74       if {!$quiet 9e60: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {.. 9e70: 20 20 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e tputs$chann
9e80: 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 24  el [appendArgs $9e90: 6d 65 6d 6f 72 79 20 5c 6e 5d 0d 0a 20 20 20 20 memory \n].. 9ea0: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a }.. }.. 9eb0: 0d 0a 20 20 20 20 20 20 69 66 20 7b 24 63 6f 6c .. if {$col
9ec0: 6c 65 63 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  lect} then {..
9ed0: 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 47 61 72        collectGar
9ee0: 62 61 67 65 20 24 63 68 61 6e 6e 65 6c 0d 0a 20  bage $channel.. 9ef0: 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 }.... 9f00: 69 66 20 7b 21 24 71 75 69 65 74 7d 20 74 68 65 if {!$quiet} the
9f10: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 74 70 75  n {..        tpu
9f20: 74 73 20 24 63 68 61 6e 6e 65 6c 20 22 2d 2d 2d  ts $channel "--- 9f30: 2d 20 63 75 72 72 65 6e 74 20 6d 65 6d 6f 72 79 - current memory 9f40: 20 69 6e 20 75 73 65 20 62 79 20 74 68 65 20 43 in use by the C 9f50: 4c 52 2e 2e 2e 20 22 0d 0a 20 20 20 20 20 20 7d LR... ".. } 9f60: 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 63 .... if {[c 9f70: 61 74 63 68 20 7b 6f 62 6a 65 63 74 20 69 6e 76 atch {object inv 9f80: 6f 6b 65 20 47 43 20 47 65 74 54 6f 74 61 6c 4d oke GC GetTotalM 9f90: 65 6d 6f 72 79 20 66 61 6c 73 65 7d 20 6d 65 6d emory false} mem 9fa0: 6f 72 79 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20 ory] == 0} then 9fb0: 7b 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b {.. if {[ 9fc0: 73 74 72 69 6e 67 20 69 73 20 69 6e 74 65 67 65 string is intege 9fd0: 72 20 2d 73 74 72 69 63 74 20 24 6d 65 6d 6f 72 r -strict$memor
9fe0: 79 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20  y]} then {..
9ff0: 20 20 20 20 20 20 69 66 20 7b 21 24 71 75 69 65        if {!$quie a000: 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 t} then {.. a010: 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68 tputs$ch
a020: 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67  annel [appendArg
a030: 73 20 24 6d 65 6d 6f 72 79 20 22 20 62 79 74 65  s $memory " byte a040: 73 5c 6e 22 5d 0d 0a 20 20 20 20 20 20 20 20 20 s\n"].. a050: 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 20 65 6c }.. } el a060: 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 se {.. a070: 73 65 74 20 6d 65 6d 6f 72 79 20 69 6e 76 61 6c set memory inval a080: 69 64 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 id.... a090: 69 66 20 7b 21 24 71 75 69 65 74 7d 20 74 68 65 if {!$quiet} the
a0a0: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20  n {..
a0b0: 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20   tputs $channel a0c0: 5b 61 70 70 65 6e 64 41 72 67 73 20 24 6d 65 6d [appendArgs$mem
a0d0: 6f 72 79 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20  ory \n]..
a0e0: 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d     }..        }.
a0f0: 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d  .      } else {.
a100: 0a 20 20 20 20 20 20 20 20 73 65 74 20 6d 65 6d  .        set mem
a110: 6f 72 79 20 75 6e 6b 6e 6f 77 6e 0d 0a 0d 0a 20  ory unknown....
a120: 20 20 20 20 20 20 20 69 66 20 7b 21 24 71 75 69         if {!$qui a130: 65 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 et} then {.. a140: 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68 61 tputs$cha
a150: 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73  nnel [appendArgs
a160: 20 24 6d 65 6d 6f 72 79 20 5c 6e 5d 0d 0a 20 20   $memory \n].. a170: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d }.. } a180: 0d 0a 0d 0a 20 20 20 20 20 20 72 65 74 75 72 6e .... return a190: 20 24 72 65 73 75 6c 74 0d 0a 20 20 20 20 7d 0d$result..    }.
a1a0: 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 72 75 6e  ....    proc run
a1b0: 53 51 4c 69 74 65 54 65 73 74 50 72 6f 6c 6f 67  SQLiteTestProlog
a1c0: 75 65 20 7b 7d 20 7b 0d 0a 20 20 20 20 20 20 23  ue {} {..      #
a1d0: 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20  ..      # NOTE:
a1e0: 53 6b 69 70 20 72 75 6e 6e 69 6e 67 20 6f 75 72  Skip running our
a1f0: 20 63 75 73 74 6f 6d 20 70 72 6f 6c 6f 67 75 65   custom prologue
a200: 20 69 66 20 74 68 65 20 6d 61 69 6e 20 6f 6e 65   if the main one
a210: 20 68 61 73 20 62 65 65 6e 20 73 6b 69 70 70 65   has been skippe
a220: 64 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20  d...      #..
a230: 20 20 20 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78     if {![info ex
a240: 69 73 74 73 20 3a 3a 6e 6f 28 70 72 6f 6c 6f 67  ists ::no(prolog
a250: 75 65 2e 65 61 67 6c 65 29 5d 7d 20 74 68 65 6e  ue.eagle)]} then
a260: 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20   {..        #..
a270: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53         # NOTE: S
a280: 6b 69 70 20 61 6c 6c 20 53 79 73 74 65 6d 2e 44  kip all System.D
a290: 61 74 61 2e 53 51 4c 69 74 65 20 72 65 6c 61 74  ata.SQLite relat
a2a0: 65 64 20 66 69 6c 65 20 68 61 6e 64 6c 69 6e 67  ed file handling
a2b0: 20 28 64 65 6c 65 74 69 6e 67 2c 0d 0a 20 20 20   (deleting,..
a2c0: 20 20 20 20 20 23 20 20 20 20 20 20 20 63 6f 70       #       cop
a2d0: 79 69 6e 67 2c 20 61 6e 64 20 6c 6f 61 64 69 6e  ying, and loadin
a2e0: 67 29 20 69 66 20 77 65 20 61 72 65 20 73 6f 20  g) if we are so
a2f0: 69 6e 73 74 72 75 63 74 65 64 2e 0d 0a 20 20 20  instructed...
a300: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..
a310: 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74  if {![info exist
a320: 73 20 3a 3a 6e 6f 28 73 71 6c 69 74 65 46 69 6c  s ::no(sqliteFil
a330: 65 73 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  es)]} then {..
a340: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..
a350: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 6b 69       # NOTE: Ski
a360: 70 20 74 72 79 69 6e 67 20 74 6f 20 64 65 6c 65  p trying to dele
a370: 74 65 20 61 6e 79 20 66 69 6c 65 73 20 69 66 20  te any files if
a380: 77 65 20 61 72 65 20 73 6f 20 69 6e 73 74 72 75  we are so instru
a390: 63 74 65 64 2e 0d 0a 20 20 20 20 20 20 20 20 20  cted...
a3a0: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66   #..          if
a3b0: 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20   {![info exists
a3c0: 3a 3a 6e 6f 28 64 65 6c 65 74 65 53 71 6c 69 74  ::no(deleteSqlit
a3d0: 65 46 69 6c 65 73 29 5d 7d 20 74 68 65 6e 20 7b  eFiles)]} then {
a3e0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 72  ..            tr
a3f0: 79 44 65 6c 65 74 65 41 73 73 65 6d 62 6c 79 20  yDeleteAssembly
a400: 73 71 6c 69 74 65 33 2e 64 6c 6c 0d 0a 20 20 20  sqlite3.dll..
a410: 20 20 20 20 20 20 20 20 20 72 65 6d 6f 76 65 43           removeC
a420: 6f 6e 73 74 72 61 69 6e 74 20 66 69 6c 65 5f 73  onstraint file_s
a430: 71 6c 69 74 65 33 2e 64 6c 6c 0d 0a 0d 0a 20 20  qlite3.dll....
a440: 20 20 20 20 20 20 20 20 20 20 74 72 79 44 65 6c            tryDel
a450: 65 74 65 41 73 73 65 6d 62 6c 79 20 53 51 4c 69  eteAssembly SQLi
a460: 74 65 2e 49 6e 74 65 72 6f 70 2e 64 6c 6c 0d 0a  te.Interop.dll..
a470: 20 20 20 20 20 20 20 20 20 20 20 20 72 65 6d 6f              remo
a480: 76 65 43 6f 6e 73 74 72 61 69 6e 74 20 66 69 6c  veConstraint fil
a490: 65 5f 53 51 4c 69 74 65 2e 49 6e 74 65 72 6f 70  e_SQLite.Interop
a4a0: 2e 64 6c 6c 0d 0a 0d 0a 20 20 20 20 20 20 20 20  .dll....
a4b0: 20 20 20 20 74 72 79 44 65 6c 65 74 65 41 73 73      tryDeleteAss
a4c0: 65 6d 62 6c 79 20 53 79 73 74 65 6d 2e 44 61 74  embly System.Dat
a4d0: 61 2e 53 51 4c 69 74 65 2e 64 6c 6c 0d 0a 20 20  a.SQLite.dll..
a4e0: 20 20 20 20 20 20 20 20 20 20 72 65 6d 6f 76 65            remove
a4f0: 43 6f 6e 73 74 72 61 69 6e 74 20 66 69 6c 65 5f  Constraint file_
a500: 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69  System.Data.SQLi
a510: 74 65 2e 64 6c 6c 0d 0a 0d 0a 20 20 20 20 20 20  te.dll....
a520: 20 20 20 20 20 20 74 72 79 44 65 6c 65 74 65 41        tryDeleteA
a530: 73 73 65 6d 62 6c 79 20 53 79 73 74 65 6d 2e 44  ssembly System.D
a540: 61 74 61 2e 53 51 4c 69 74 65 2e 4c 69 6e 71 2e  ata.SQLite.Linq.
a550: 64 6c 6c 0d 0a 20 20 20 20 20 20 20 20 20 20 20  dll..
a560: 20 72 65 6d 6f 76 65 43 6f 6e 73 74 72 61 69 6e   removeConstrain
a570: 74 20 66 69 6c 65 5f 53 79 73 74 65 6d 2e 44 61  t file_System.Da
a580: 74 61 2e 53 51 4c 69 74 65 2e 4c 69 6e 71 2e 64  ta.SQLite.Linq.d
a590: 6c 6c 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d  ll..          }.
a5a0: 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a  ...          #..
a5b0: 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45            # NOTE
a5c0: 3a 20 53 6b 69 70 20 74 72 79 69 6e 67 20 74 6f  : Skip trying to
a5d0: 20 63 6f 70 79 20 61 6e 79 20 66 69 6c 65 73 20   copy any files
a5e0: 69 66 20 77 65 20 61 72 65 20 73 6f 20 69 6e 73  if we are so ins
a5f0: 74 72 75 63 74 65 64 2e 0d 0a 20 20 20 20 20 20  tructed...
a600: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20      #..
a610: 20 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73   if {![info exis
a620: 74 73 20 3a 3a 6e 6f 28 63 6f 70 79 53 71 6c 69  ts ::no(copySqli
a630: 74 65 46 69 6c 65 73 29 5d 7d 20 74 68 65 6e 20  teFiles)]} then
a640: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 74  {..            t
a650: 72 79 43 6f 70 79 41 73 73 65 6d 62 6c 79 20 73  ryCopyAssembly s
a660: 71 6c 69 74 65 33 2e 64 6c 6c 0d 0a 20 20 20 20  qlite3.dll..
a670: 20 20 20 20 20 20 20 20 74 72 79 43 6f 70 79 41          tryCopyA
a680: 73 73 65 6d 62 6c 79 20 53 51 4c 69 74 65 2e 49  ssembly SQLite.I
a690: 6e 74 65 72 6f 70 2e 64 6c 6c 0d 0a 20 20 20 20  nterop.dll..
a6a0: 20 20 20 20 20 20 20 20 74 72 79 43 6f 70 79 41          tryCopyA
a6b0: 73 73 65 6d 62 6c 79 20 53 79 73 74 65 6d 2e 44  ssembly System.D
a6c0: 61 74 61 2e 53 51 4c 69 74 65 2e 64 6c 6c 0d 0a  ata.SQLite.dll..
a6d0: 20 20 20 20 20 20 20 20 20 20 20 20 74 72 79 43              tryC
a6e0: 6f 70 79 41 73 73 65 6d 62 6c 79 20 53 79 73 74  opyAssembly Syst
a6f0: 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 4c  em.Data.SQLite.L
a700: 69 6e 71 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 20  inq.dll..
a710: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20     }....
a720: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23    #..          #
a730: 20 4e 4f 54 45 3a 20 53 6b 69 70 20 74 72 79 69   NOTE: Skip tryi
a740: 6e 67 20 74 6f 20 6c 6f 61 64 20 61 6e 79 20 66  ng to load any f
a750: 69 6c 65 73 20 69 66 20 77 65 20 61 72 65 20 73  iles if we are s
a760: 6f 20 69 6e 73 74 72 75 63 74 65 64 2e 0d 0a 20  o instructed...
a770: 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20           #..
a780: 20 20 20 20 20 20 69 66 20 7b 21 5b 69 6e 66 6f        if {![info
a790: 20 65 78 69 73 74 73 20 3a 3a 6e 6f 28 6c 6f 61   exists ::no(loa
a7a0: 64 53 71 6c 69 74 65 46 69 6c 65 73 29 5d 7d 20  dSqliteFiles)]}
a7b0: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20  then {..
a7c0: 20 20 20 20 74 72 79 4c 6f 61 64 41 73 73 65 6d      tryLoadAssem
a7d0: 62 6c 79 20 53 79 73 74 65 6d 2e 44 61 74 61 2e  bly System.Data.
a7e0: 53 51 4c 69 74 65 2e 64 6c 6c 0d 0a 20 20 20 20  SQLite.dll..
a7f0: 20 20 20 20 20 20 20 20 74 72 79 4c 6f 61 64 41          tryLoadA
a800: 73 73 65 6d 62 6c 79 20 53 79 73 74 65 6d 2e 44  ssembly System.D
a810: 61 74 61 2e 53 51 4c 69 74 65 2e 4c 69 6e 71 2e  ata.SQLite.Linq.
a820: 64 6c 6c 0d 0a 20 20 20 20 20 20 20 20 20 20 7d  dll..          }
a830: 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20  ..        }....
a840: 20 20 20 20 20 20 20 63 61 74 63 68 20 7b 0d 0a         catch {..
a850: 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20            tputs
a860: 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20  $::test_channel a870: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 [appendArgs \.. a880: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d "-- a890: 2d 2d 20 66 69 6c 65 20 76 65 72 73 69 6f 6e 20 -- file version a8a0: 6f 66 20 5c 22 73 71 6c 69 74 65 33 2e 64 6c 6c of \"sqlite3.dll a8b0: 5c 22 2e 2e 2e 20 22 20 5c 0d 0a 20 20 20 20 20 \"... " \.. a8c0: 20 20 20 20 20 20 20 20 20 5b 66 69 6c 65 20 76 [file v a8d0: 65 72 73 69 6f 6e 20 5b 67 65 74 42 69 6e 61 72 ersion [getBinar a8e0: 79 46 69 6c 65 4e 61 6d 65 20 73 71 6c 69 74 65 yFileName sqlite a8f0: 33 2e 64 6c 6c 5d 5d 20 5c 6e 5d 0d 0a 20 20 20 3.dll]] \n].. a900: 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 }.... a910: 20 20 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 catch {.. a920: 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 tputs$::te
a930: 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65  st_channel [appe
a940: 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20  ndArgs \..
a950: 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 66 69          "---- fi
a960: 6c 65 20 76 65 72 73 69 6f 6e 20 6f 66 20 5c 22  le version of \"
a970: 53 51 4c 69 74 65 2e 49 6e 74 65 72 6f 70 2e 64  SQLite.Interop.d
a980: 6c 6c 5c 22 2e 2e 2e 20 22 20 5c 0d 0a 20 20 20  ll\"... " \..
a990: 20 20 20 20 20 20 20 20 20 20 20 5b 66 69 6c 65             [file
a9a0: 20 76 65 72 73 69 6f 6e 20 5b 67 65 74 42 69 6e   version [getBin
a9b0: 61 72 79 46 69 6c 65 4e 61 6d 65 20 53 51 4c 69  aryFileName SQLi
a9c0: 74 65 2e 49 6e 74 65 72 6f 70 2e 64 6c 6c 5d 5d  te.Interop.dll]]
a9d0: 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 7d 0d   \n]..        }.
a9e0: 0a 0d 0a 20 20 20 20 20 20 20 20 63 61 74 63 68  ...        catch
a9f0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70   {..          tp
aa00: 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e  uts $::test_chan aa10: 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 nel [appendArgs aa20: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 \.. aa30: 20 22 2d 2d 2d 2d 20 66 69 6c 65 20 76 65 72 73 "---- file vers aa40: 69 6f 6e 20 6f 66 20 5c 22 53 79 73 74 65 6d 2e ion of \"System. aa50: 44 61 74 61 2e 53 51 4c 69 74 65 2e 64 6c 6c 5c Data.SQLite.dll\ aa60: 22 2e 2e 2e 20 22 20 5c 0d 0a 20 20 20 20 20 20 "... " \.. aa70: 20 20 20 20 20 20 20 20 5b 66 69 6c 65 20 76 65 [file ve aa80: 72 73 69 6f 6e 20 5b 67 65 74 42 69 6e 61 72 79 rsion [getBinary aa90: 46 69 6c 65 4e 61 6d 65 20 53 79 73 74 65 6d 2e FileName System. aaa0: 44 61 74 61 2e 53 51 4c 69 74 65 2e 64 6c 6c 5d Data.SQLite.dll] aab0: 5d 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 7d ] \n].. } aac0: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 63 61 74 63 .... catc aad0: 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 74 h {.. t aae0: 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 puts$::test_cha
aaf0: 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73  nnel [appendArgs
ab00: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   \..
ab10: 20 20 22 2d 2d 2d 2d 20 66 69 6c 65 20 76 65 72    "---- file ver
ab20: 73 69 6f 6e 20 6f 66 20 5c 22 53 79 73 74 65 6d  sion of \"System
ab30: 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 4c 69 6e  .Data.SQLite.Lin
ab40: 71 2e 64 6c 6c 5c 22 2e 2e 2e 20 22 20 5c 0d 0a  q.dll\"... " \..
ab50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 66                [f
ab60: 69 6c 65 20 76 65 72 73 69 6f 6e 20 5b 67 65 74  ile version [get
ab70: 42 69 6e 61 72 79 46 69 6c 65 4e 61 6d 65 20 53  BinaryFileName S
ab80: 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74  ystem.Data.SQLit
ab90: 65 2e 4c 69 6e 71 2e 64 6c 6c 5d 5d 20 5c 6e 5d  e.Linq.dll]] \n]
aba0: 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20  ..        }....
abb0: 20 20 20 20 20 20 20 73 65 74 20 61 73 73 65 6d         set assem
abc0: 62 6c 69 65 73 20 5b 6f 62 6a 65 63 74 20 69 6e  blies [object in
abd0: 76 6f 6b 65 20 41 70 70 44 6f 6d 61 69 6e 2e 43  voke AppDomain.C
abe0: 75 72 72 65 6e 74 44 6f 6d 61 69 6e 20 47 65 74  urrentDomain Get
abf0: 41 73 73 65 6d 62 6c 69 65 73 5d 0d 0a 0d 0a 20  Assemblies]....
ac00: 20 20 20 20 20 20 20 6f 62 6a 65 63 74 20 66 6f         object fo
ac10: 72 65 61 63 68 20 61 73 73 65 6d 62 6c 79 20 24  reach assembly $ac20: 61 73 73 65 6d 62 6c 69 65 73 20 7b 0d 0a 20 20 assemblies {.. ac30: 20 20 20 20 20 20 20 20 69 66 20 7b 5b 73 74 72 if {[str ac40: 69 6e 67 20 6d 61 74 63 68 20 5c 7b 53 79 73 74 ing match \{Syst ac50: 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2a 20 em.Data.SQLite* ac60: 24 61 73 73 65 6d 62 6c 79 5d 7d 20 74 68 65 6e$assembly]} then
ac70: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..
ac80: 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68  tputs $::test_ch ac90: 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 annel [appendArg aca0: 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 s \.. acb0: 20 20 20 20 20 22 2d 2d 2d 2d 20 66 6f 75 6e 64 "---- found acc0: 20 61 73 73 65 6d 62 6c 79 3a 20 22 20 24 61 73 assembly: "$as
acd0: 73 65 6d 62 6c 79 20 5c 6e 5d 0d 0a 20 20 20 20  sembly \n]..
ace0: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20        }..
acf0: 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 63 61   }....        ca
ad00: 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  tch {..
ad10: 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63   tputs $::test_c ad20: 68 61 6e 6e 65 6c 20 5c 0d 0a 20 20 20 20 20 20 hannel \.. ad30: 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 64 65 "---- de ad40: 66 69 6e 65 20 63 6f 6e 73 74 61 6e 74 73 20 66 fine constants f ad50: 6f 72 20 5c 22 53 79 73 74 65 6d 2e 44 61 74 61 or \"System.Data ad60: 2e 53 51 4c 69 74 65 5c 22 2e 2e 2e 20 22 0d 0a .SQLite\"... ".. ad70: 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7b .. if { ad80: 5b 63 61 74 63 68 20 7b 6f 62 6a 65 63 74 20 69 [catch {object i ad90: 6e 76 6f 6b 65 20 2d 66 6c 61 67 73 20 2b 4e 6f nvoke -flags +No ada0: 6e 50 75 62 6c 69 63 20 5c 0d 0a 20 20 20 20 20 nPublic \.. adb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 53 79 73 Sys adc0: 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e tem.Data.SQLite. add0: 53 51 4c 69 74 65 33 20 44 65 66 69 6e 65 43 6f SQLite3 DefineCo ade0: 6e 73 74 61 6e 74 73 7d 20 5c 0d 0a 20 20 20 20 nstants} \.. adf0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 de ae00: 66 69 6e 65 43 6f 6e 73 74 61 6e 74 73 5d 20 3d fineConstants] = ae10: 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 = 0} then {.. ae20: 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 tputs$
ae30: 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b  ::test_channel [
ae40: 61 70 70 65 6e 64 41 72 67 73 20 5b 66 6f 72 6d  appendArgs [form
ae50: 61 74 4c 69 73 74 20 5b 6c 73 6f 72 74 20 5c 0d  atList [lsort \.
ae60: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .
ae70: 20 24 64 65 66 69 6e 65 43 6f 6e 73 74 61 6e 74   $defineConstant ae80: 73 5d 5d 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 s]] \n].. ae90: 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 } else {.. aea0: 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 tputs$
aeb0: 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 75  ::test_channel u
aec0: 6e 6b 6e 6f 77 6e 5c 6e 0d 0a 20 20 20 20 20 20  nknown\n..
aed0: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d      }..        }
aee0: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20  ....        #..
aef0: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 4e         # NOTE: N
af00: 6f 77 2c 20 77 65 20 6e 65 65 64 20 74 6f 20 6b  ow, we need to k
af10: 6e 6f 77 20 69 66 20 74 68 65 20 53 51 4c 69 74  now if the SQLit
af20: 65 20 63 6f 72 65 20 6c 69 62 72 61 72 79 20 69  e core library i
af30: 73 20 61 76 61 69 6c 61 62 6c 65 0d 0a 20 20 20  s available..
af40: 20 20 20 20 20 23 20 20 20 20 20 20 20 28 69 2e       #       (i.
af50: 65 2e 20 62 65 63 61 75 73 65 20 74 68 65 20 6d  e. because the m
af60: 61 6e 61 67 65 64 2d 6f 6e 6c 79 20 53 79 73 74  anaged-only Syst
af70: 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 20 61  em.Data.SQLite a
af80: 73 73 65 6d 62 6c 79 20 63 61 6e 0d 0a 20 20 20  ssembly can..
af90: 20 20 20 20 20 23 20 20 20 20 20 20 20 6c 6f 61       #       loa
afa0: 64 20 77 69 74 68 6f 75 74 20 69 74 3b 20 68 6f  d without it; ho
afb0: 77 65 76 65 72 2c 20 69 74 20 63 61 6e 6e 6f 74  wever, it cannot
afc0: 20 64 6f 20 61 6e 79 74 68 69 6e 67 20 75 73 65   do anything use
afd0: 66 75 6c 20 77 69 74 68 6f 75 74 0d 0a 20 20 20  ful without..
afe0: 20 20 20 20 20 23 20 20 20 20 20 20 20 69 74 29       #       it)
aff0: 2e 20 20 49 66 20 77 65 20 61 72 65 20 75 73 69  .  If we are usi
b000: 6e 67 20 74 68 65 20 6d 69 78 65 64 2d 6d 6f 64  ng the mixed-mod
b010: 65 20 61 73 73 65 6d 62 6c 79 20 61 6e 64 20 77  e assembly and w
b020: 65 20 61 6c 72 65 61 64 79 0d 0a 20 20 20 20 20  e already..
b030: 20 20 20 23 20 20 20 20 20 20 20 66 6f 75 6e 64     #       found
b040: 20 69 74 20 28 61 62 6f 76 65 29 2c 20 74 68 69   it (above), thi
b050: 73 20 73 68 6f 75 6c 64 20 61 6c 77 61 79 73 20  s should always
b060: 73 75 63 63 65 65 64 2e 0d 0a 20 20 20 20 20 20  succeed...
b070: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 63 68 65    #..        che
b080: 63 6b 46 6f 72 53 51 4c 69 74 65 20 24 3a 3a 74  ckForSQLite $::t b090: 65 73 74 5f 63 68 61 6e 6e 65 6c 0d 0a 0d 0a 20 est_channel.... b0a0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #.. b0b0: 20 20 23 20 4e 4f 54 45 3a 20 43 68 65 63 6b 20 # NOTE: Check b0c0: 69 66 20 74 68 65 20 73 71 6c 69 74 65 33 5f 77 if the sqlite3_w b0d0: 69 6e 33 32 5f 73 65 74 5f 64 69 72 65 63 74 6f in32_set_directo b0e0: 72 79 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 61 ry function is a b0f0: 76 61 69 6c 61 62 6c 65 2e 0d 0a 20 20 20 20 20 vailable... b100: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 74 70 #.. tp b110: 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e uts$::test_chan
b120: 6e 65 6c 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  nel \..
b130: 20 20 20 22 2d 2d 2d 2d 20 63 68 65 63 6b 69 6e     "---- checkin
b140: 67 20 66 6f 72 20 66 75 6e 63 74 69 6f 6e 20 73  g for function s
b150: 71 6c 69 74 65 33 5f 77 69 6e 33 32 5f 73 65 74  qlite3_win32_set
b160: 5f 64 69 72 65 63 74 6f 72 79 2e 2e 2e 20 22 0d  _directory... ".
b170: 0a 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b  ...        if {[
b180: 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 20  catch {..
b190: 20 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74 20           object
b1a0: 69 6e 76 6f 6b 65 20 2d 66 6c 61 67 73 20 2b 4e  invoke -flags +N
b1b0: 6f 6e 50 75 62 6c 69 63 20 5c 0d 0a 20 20 20 20  onPublic \..
b1c0: 20 20 20 20 20 20 20 20 20 20 20 20 53 79 73 74              Syst
b1d0: 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 55  em.Data.SQLite.U
b1e0: 6e 73 61 66 65 4e 61 74 69 76 65 4d 65 74 68 6f  nsafeNativeMetho
b1f0: 64 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  ds \..
b200: 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 77 69        sqlite3_wi
b210: 6e 33 32 5f 73 65 74 5f 64 69 72 65 63 74 6f 72  n32_set_director
b220: 79 20 30 20 6e 75 6c 6c 7d 5d 20 3d 3d 20 30 7d  y 0 null}] == 0}
b230: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20   then {..
b240: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20     #..
b250: 23 20 4e 4f 54 45 3a 20 43 61 6c 6c 69 6e 67 20  # NOTE: Calling
b260: 74 68 65 20 73 71 6c 69 74 65 33 5f 77 69 6e 33  the sqlite3_win3
b270: 32 5f 73 65 74 5f 64 69 72 65 63 74 6f 72 79 20  2_set_directory
b280: 66 75 6e 63 74 69 6f 6e 20 64 6f 65 73 20 6e 6f  function does no
b290: 74 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 20  t..          #
b2a0: 20 20 20 20 20 63 61 75 73 65 20 61 6e 20 65 78       cause an ex
b2b0: 63 65 70 74 69 6f 6e 3b 20 74 68 65 72 65 66 6f  ception; therefo
b2c0: 72 65 2c 20 69 74 20 6d 75 73 74 20 62 65 20 61  re, it must be a
b2d0: 76 61 69 6c 61 62 6c 65 20 28 69 2e 65 2e 0d 0a  vailable (i.e...
b2e0: 20 20 20 20 20 20 20 20 20 20 23 20 20 20 20 20            #
b2f0: 20 20 65 76 65 6e 20 74 68 6f 75 67 68 20 69 74    even though it
b300: 20 73 68 6f 75 6c 64 20 72 65 74 75 72 6e 20 61   should return a
b310: 20 66 61 69 6c 75 72 65 20 72 65 74 75 72 6e 20   failure return
b320: 63 6f 64 65 20 69 6e 20 74 68 69 73 0d 0a 20 20  code in this..
b330: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20          #
b340: 63 61 73 65 29 2e 0d 0a 20 20 20 20 20 20 20 20  case)...
b350: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 61    #..          a
b360: 64 64 43 6f 6e 73 74 72 61 69 6e 74 20 73 71 6c  ddConstraint sql
b370: 69 74 65 33 5f 77 69 6e 33 32 5f 73 65 74 5f 64  ite3_win32_set_d
b380: 69 72 65 63 74 6f 72 79 0d 0a 0d 0a 20 20 20 20  irectory....
b390: 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74        tputs $::t b3a0: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 79 65 73 5c est_channel yes\ b3b0: 6e 0d 0a 20 20 20 20 20 20 20 20 7d 20 65 6c 73 n.. } els b3c0: 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 74 e {.. t b3d0: 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 puts$::test_cha
b3e0: 6e 6e 65 6c 20 6e 6f 5c 6e 0d 0a 20 20 20 20 20  nnel no\n..
b3f0: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20     }....
b400: 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54  #..        # NOT
b410: 45 3a 20 41 74 74 65 6d 70 74 20 74 6f 20 64 65  E: Attempt to de
b420: 74 65 72 6d 69 6e 65 20 69 66 20 74 68 65 20 63  termine if the c
b430: 75 73 74 6f 6d 20 65 78 74 65 6e 73 69 6f 6e 20  ustom extension
b440: 66 75 6e 63 74 69 6f 6e 73 20 77 65 72 65 0d 0a  functions were..
b450: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20          #
b460: 63 6f 6d 70 69 6c 65 64 20 69 6e 74 6f 20 74 68  compiled into th
b470: 65 20 53 51 4c 69 74 65 20 69 6e 74 65 72 6f 70  e SQLite interop
b480: 20 61 73 73 65 6d 62 6c 79 2e 0d 0a 20 20 20 20   assembly...
b490: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 63      #..        c
b4a0: 68 65 63 6b 46 6f 72 53 51 4c 69 74 65 44 65 66  heckForSQLiteDef
b4b0: 69 6e 65 43 6f 6e 73 74 61 6e 74 20 24 3a 3a 74  ineConstant $::t b4c0: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5c 0d 0a 20 est_channel \.. b4d0: 20 20 20 20 20 20 20 20 20 20 20 43 48 45 43 4b CHECK b4e0: 5f 53 54 41 54 45 0d 0a 0d 0a 20 20 20 20 20 20 _STATE.... b4f0: 20 20 63 68 65 63 6b 46 6f 72 53 51 4c 69 74 65 checkForSQLite b500: 44 65 66 69 6e 65 43 6f 6e 73 74 61 6e 74 20 24 DefineConstant$
b510: 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5c  ::test_channel \
b520: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 55 53  ..            US
b530: 45 5f 49 4e 54 45 52 4f 50 5f 44 4c 4c 0d 0a 0d  E_INTEROP_DLL...
b540: 0a 20 20 20 20 20 20 20 20 63 68 65 63 6b 46 6f  .        checkFo
b550: 72 53 51 4c 69 74 65 44 65 66 69 6e 65 43 6f 6e  rSQLiteDefineCon
b560: 73 74 61 6e 74 20 24 3a 3a 74 65 73 74 5f 63 68  stant $::test_ch b570: 61 6e 6e 65 6c 20 5c 0d 0a 20 20 20 20 20 20 20 annel \.. b580: 20 20 20 20 20 49 4e 54 45 52 4f 50 5f 45 58 54 INTEROP_EXT b590: 45 4e 53 49 4f 4e 5f 46 55 4e 43 54 49 4f 4e 53 ENSION_FUNCTIONS b5a0: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 63 68 65 63 .... chec b5b0: 6b 46 6f 72 53 51 4c 69 74 65 44 65 66 69 6e 65 kForSQLiteDefine b5c0: 43 6f 6e 73 74 61 6e 74 20 24 3a 3a 74 65 73 74 Constant$::test
b5d0: 5f 63 68 61 6e 6e 65 6c 20 5c 0d 0a 20 20 20 20  _channel \..
b5e0: 20 20 20 20 20 20 20 20 49 4e 54 45 52 4f 50 5f          INTEROP_
b5f0: 54 45 53 54 5f 45 58 54 45 4e 53 49 4f 4e 0d 0a  TEST_EXTENSION..
b600: 0d 0a 20 20 20 20 20 20 20 20 63 68 65 63 6b 46  ..        checkF
b610: 6f 72 53 51 4c 69 74 65 44 65 66 69 6e 65 43 6f  orSQLiteDefineCo
b620: 6e 73 74 61 6e 74 20 24 3a 3a 74 65 73 74 5f 63  nstant $::test_c b630: 68 61 6e 6e 65 6c 20 5c 0d 0a 20 20 20 20 20 20 hannel \.. b640: 20 20 20 20 20 20 53 51 4c 49 54 45 5f 53 54 41 SQLITE_STA b650: 4e 44 41 52 44 0d 0a 0d 0a 20 20 20 20 20 20 20 NDARD.... b660: 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f #.. # NO b670: 54 45 3a 20 43 68 65 63 6b 20 74 68 65 20 63 75 TE: Check the cu b680: 72 72 65 6e 74 20 62 75 69 6c 64 20 79 65 61 72 rrent build year b690: 2e 20 20 42 61 73 69 63 61 6c 6c 79 2c 20 74 68 . Basically, th b6a0: 69 73 20 69 6e 64 69 63 61 74 65 73 0d 0a 20 20 is indicates.. b6b0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 77 68 # wh b6c0: 69 63 68 20 76 65 72 73 69 6f 6e 20 6f 66 20 4d ich version of M b6d0: 53 42 75 69 6c 64 20 61 6e 64 2f 6f 72 20 56 69 SBuild and/or Vi b6e0: 73 75 61 6c 20 53 74 75 64 69 6f 20 77 61 73 20 sual Studio was b6f0: 75 73 65 64 20 74 6f 0d 0a 20 20 20 20 20 20 20 used to.. b700: 20 23 20 20 20 20 20 20 20 63 6f 6d 70 69 6c 65 # compile b710: 20 74 68 65 20 61 73 73 65 6d 62 6c 79 20 62 69 the assembly bi b720: 6e 61 72 69 65 73 20 75 6e 64 65 72 20 74 65 73 naries under tes b730: 74 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 t... #.. b740: 20 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a tputs$::
b750: 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5c 0d 0a  test_channel \..
b760: 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d              "---
b770: 2d 20 63 68 65 63 6b 69 6e 67 20 66 6f 72 20 53  - checking for S
b780: 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74  ystem.Data.SQLit
b790: 65 20 62 75 69 6c 64 20 79 65 61 72 2e 2e 2e 20  e build year...
b7a0: 22 0d 0a 0d 0a 20 20 20 20 20 20 20 20 73 65 74  "....        set
b7b0: 20 79 65 61 72 20 5b 67 65 74 42 75 69 6c 64 59   year [getBuildY
b7c0: 65 61 72 5d 0d 0a 20 20 20 20 20 20 20 20 61 64  ear]..        ad
b7d0: 64 43 6f 6e 73 74 72 61 69 6e 74 20 5b 61 70 70  dConstraint [app
b7e0: 65 6e 64 41 72 67 73 20 62 75 69 6c 64 59 65 61  endArgs buildYea
b7f0: 72 20 24 79 65 61 72 5d 0d 0a 20 20 20 20 20 20  r $year].. b800: 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f tputs$::test_
b810: 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41  channel [appendA
b820: 72 67 73 20 5c 22 20 24 79 65 61 72 20 5c 22 5c  rgs \" $year \"\ b830: 6e 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d n].... #. b840: 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a . # NOTE: b850: 20 43 68 65 63 6b 20 74 68 65 20 63 75 72 72 65 Check the curre b860: 6e 74 20 62 75 69 6c 64 20 63 6f 6e 66 69 67 75 nt build configu b870: 72 61 74 69 6f 6e 2e 20 20 54 68 69 73 20 73 68 ration. This sh b880: 6f 75 6c 64 20 6e 6f 72 6d 61 6c 6c 79 0d 0a 20 ould normally.. b890: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 62 # b b8a0: 65 20 65 69 74 68 65 72 20 22 44 65 62 75 67 22 e either "Debug" b8b0: 20 6f 72 20 22 52 65 6c 65 61 73 65 22 2e 0d 0a or "Release"... b8c0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #.. b8d0: 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 tputs$::test
b8e0: 5f 63 68 61 6e 6e 65 6c 20 5c 0d 0a 20 20 20 20  _channel \..
b8f0: 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 63 68          "---- ch
b900: 65 63 6b 69 6e 67 20 66 6f 72 20 53 79 73 74 65  ecking for Syste
b910: 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 20 62 75  m.Data.SQLite bu
b920: 69 6c 64 20 63 6f 6e 66 69 67 75 72 61 74 69 6f  ild configuratio
b930: 6e 2e 2e 2e 20 22 0d 0a 0d 0a 20 20 20 20 20 20  n... "....
b940: 20 20 73 65 74 20 63 6f 6e 66 69 67 75 72 61 74    set configurat
b950: 69 6f 6e 20 5b 67 65 74 42 75 69 6c 64 43 6f 6e  ion [getBuildCon
b960: 66 69 67 75 72 61 74 69 6f 6e 5d 0d 0a 20 20 20  figuration]..
b970: 20 20 20 20 20 61 64 64 43 6f 6e 73 74 72 61 69       addConstrai
b980: 6e 74 20 5b 61 70 70 65 6e 64 41 72 67 73 20 62  nt [appendArgs b
b990: 75 69 6c 64 43 6f 6e 66 69 67 75 72 61 74 69 6f  uildConfiguratio
b9a0: 6e 20 24 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e  n $configuration b9b0: 5d 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 ].. tputs b9c0: 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c$::test_channel
b9d0: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 22 20   [appendArgs \"
b9e0: 24 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 5c  $configuration \ b9f0: 22 5c 6e 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 "\n].... ba00: 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT ba10: 45 3a 20 43 68 65 63 6b 20 66 6f 72 20 74 68 65 E: Check for the ba20: 20 6e 61 74 69 76 65 20 72 75 6e 74 69 6d 65 20 native runtime ba30: 6f 70 74 69 6f 6e 2c 20 77 68 69 63 68 20 77 6f option, which wo ba40: 75 6c 64 20 6d 65 61 6e 20 77 65 20 61 72 65 0d uld mean we are. ba50: 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 . # ba60: 20 75 73 69 6e 67 20 74 68 65 20 6d 69 78 65 64 using the mixed ba70: 2d 6d 6f 64 65 20 61 73 73 65 6d 62 6c 79 2e 0d -mode assembly.. ba80: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #.. ba90: 20 20 20 20 63 68 65 63 6b 46 6f 72 52 75 6e 74 checkForRunt baa0: 69 6d 65 4f 70 74 69 6f 6e 20 24 3a 3a 74 65 73 imeOption$::tes
bab0: 74 5f 63 68 61 6e 6e 65 6c 20 6e 61 74 69 76 65  t_channel native
bac0: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20  ....        #..
bad0: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 52         # NOTE: R
bae0: 65 70 6f 72 74 20 74 68 65 20 72 65 73 6f 75 72  eport the resour
baf0: 63 65 20 75 73 61 67 65 20 70 72 69 6f 72 20 74  ce usage prior t
bb00: 6f 20 72 75 6e 6e 69 6e 67 20 61 6e 79 20 74 65  o running any te
bb10: 73 74 73 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d  sts...        #.
bb20: 0a 20 20 20 20 20 20 20 20 72 65 70 6f 72 74 53  .        reportS
bb30: 51 4c 69 74 65 52 65 73 6f 75 72 63 65 73 20 24  QLiteResources $bb40: 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 0d 0a ::test_channel.. bb50: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #.. bb60: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 68 6f # NOTE: Sho bb70: 77 20 74 68 65 20 61 63 74 69 76 65 20 74 65 73 w the active tes bb80: 74 20 63 6f 6e 73 74 72 61 69 6e 74 73 2e 0d 0a t constraints... bb90: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #.. bba0: 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 tputs$::test
bbb0: 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64  _channel [append
bbc0: 41 72 67 73 20 22 2d 2d 2d 2d 20 63 6f 6e 73 74  Args "---- const
bbd0: 72 61 69 6e 74 73 3a 20 22 20 5c 0d 0a 20 20 20  raints: " \..
bbe0: 20 20 20 20 20 20 20 20 20 5b 66 6f 72 6d 61 74           [format
bbf0: 4c 69 73 74 20 5b 6c 73 6f 72 74 20 5b 67 65 74  List [lsort [get
bc00: 43 6f 6e 73 74 72 61 69 6e 74 73 5d 5d 5d 20 5c  Constraints]]] \
bc10: 6e 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d  n]....        #.
bc20: 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a  .        # NOTE:
bc30: 20 53 68 6f 77 20 77 68 65 6e 20 6f 75 72 20 74   Show when our t
bc40: 65 73 74 73 20 61 63 74 75 61 6c 6c 79 20 62 65  ests actually be
bc50: 67 61 6e 20 28 6e 6f 77 29 2e 0d 0a 20 20 20 20  gan (now)...
bc60: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 74      #..        t
bc70: 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61  puts $::test_cha bc80: 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 nnel [appendArgs bc90: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \.. bca0: 22 2d 2d 2d 2d 20 53 79 73 74 65 6d 2e 44 61 74 "---- System.Dat bcb0: 61 2e 53 51 4c 69 74 65 20 74 65 73 74 73 20 62 a.SQLite tests b bcc0: 65 67 61 6e 20 61 74 20 22 20 5c 0d 0a 20 20 20 egan at " \.. bcd0: 20 20 20 20 20 20 20 20 20 5b 63 6c 6f 63 6b 20 [clock bce0: 66 6f 72 6d 61 74 20 5b 63 6c 6f 63 6b 20 73 65 format [clock se bcf0: 63 6f 6e 64 73 5d 5d 20 5c 6e 5d 0d 0a 20 20 20 conds]] \n].. bd00: 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a }.. }..... bd10: 20 20 20 20 70 72 6f 63 20 72 75 6e 53 51 4c 69 proc runSQLi bd20: 74 65 54 65 73 74 45 70 69 6c 6f 67 75 65 20 7b teTestEpilogue { bd30: 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 } {.. #.. bd40: 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 6b 69 70 # NOTE: Skip bd50: 20 72 75 6e 6e 69 6e 67 20 6f 75 72 20 63 75 73 running our cus bd60: 74 6f 6d 20 65 70 69 6c 6f 67 75 65 20 69 66 20 tom epilogue if bd70: 74 68 65 20 6d 61 69 6e 20 6f 6e 65 20 68 61 73 the main one has bd80: 20 62 65 65 6e 20 73 6b 69 70 70 65 64 2e 0d 0a been skipped... bd90: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 #.. i bda0: 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 f {![info exists bdb0: 20 3a 3a 6e 6f 28 65 70 69 6c 6f 67 75 65 2e 65 ::no(epilogue.e bdc0: 61 67 6c 65 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a agle)]} then {.. bdd0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #.. bde0: 20 20 20 23 20 4e 4f 54 45 3a 20 53 68 6f 77 20 # NOTE: Show bdf0: 77 68 65 6e 20 6f 75 72 20 74 65 73 74 73 20 61 when our tests a be00: 63 74 75 61 6c 6c 79 20 65 6e 64 65 64 20 28 6e ctually ended (n be10: 6f 77 29 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d ow)... #. be20: 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 . tputs$
be30: 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b  ::test_channel [
be40: 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20  appendArgs \..
be50: 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20            "----
be60: 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69  System.Data.SQLi
be70: 74 65 20 74 65 73 74 73 20 65 6e 64 65 64 20 61  te tests ended a
be80: 74 20 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  t " \..
be90: 20 20 20 5b 63 6c 6f 63 6b 20 66 6f 72 6d 61 74     [clock format
bea0: 20 5b 63 6c 6f 63 6b 20 73 65 63 6f 6e 64 73 5d   [clock seconds]
beb0: 5d 20 5c 6e 5d 0d 0a 0d 0a 20 20 20 20 20 20 20  ] \n]....
bec0: 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f   #..        # NO
bed0: 54 45 3a 20 41 6c 73 6f 20 72 65 70 6f 72 74 20  TE: Also report
bee0: 74 68 65 20 72 65 73 6f 75 72 63 65 20 75 73 61  the resource usa
bef0: 67 65 20 61 66 74 65 72 20 72 75 6e 6e 69 6e 67  ge after running
bf00: 20 74 68 65 20 74 65 73 74 73 2e 0d 0a 20 20 20   the tests...
bf10: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..
bf20: 72 65 70 6f 72 74 53 51 4c 69 74 65 52 65 73 6f  reportSQLiteReso
bf30: 75 72 63 65 73 20 24 3a 3a 74 65 73 74 5f 63 68  urces \$::test_ch
bf40: 61 6e 6e 65 6c 0d 0a 20 20 20 20 20 20 7d 0d 0a  annel..      }..
bf50: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 23 23      }.....    ##
bf60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
bf70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
bf80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
bf90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
bfa0: 23 23 23 23 23 23 23 23 23 0d 0a 20 20 20 20 23  #########..    #
bfb0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
bfc0: 23 23 23 23 23 23 23 23 23 23 23 23 20 45 4e 44  ############ END
bfd0: 20 45 61 67 6c 65 20 4f 4e 4c 59 20 23 23 23 23   Eagle ONLY ####
bfe0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
bff0: 23 23 23 23 23 23 23 23 23 23 0d 0a 20 20 20 20  ##########..
c000: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
c010: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
c020: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
c030: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
c040: 23 23 23 23 23 23 23 23 23 23 23 0d 0a 20 20 7d  ###########..  }
c050: 0d 0a 0d 0a 20 20 23 0d 0a 20 20 23 20 4e 4f 54  ....  #..  # NOT
c060: 45 3a 20 53 61 76 65 20 74 68 65 20 6e 61 6d 65  E: Save the name
c070: 20 6f 66 20 74 68 65 20 64 69 72 65 63 74 6f 72   of the director
c080: 79 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 69  y containing thi
c090: 73 20 66 69 6c 65 2e 0d 0a 20 20 23 0d 0a 20 20  s file...  #..
c0a0: 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74  if {![info exist
c0b0: 73 20 3a 3a 63 6f 6d 6d 6f 6e 5f 64 69 72 65 63  s ::common_direc
c0c0: 74 6f 72 79 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20  tory]} then {..
c0d0: 20 20 20 73 65 74 20 3a 3a 63 6f 6d 6d 6f 6e 5f     set ::common_
c0e0: 64 69 72 65 63 74 6f 72 79 20 5b 66 69 6c 65 20  directory [file
c0f0: 64 69 72 6e 61 6d 65 20 5b 69 6e 66 6f 20 73 63  dirname [info sc
c100: 72 69 70 74 5d 5d 0d 0a 20 20 7d 0d 0a 0d 0a 20  ript]]..  }....
c110: 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a 20 50 72   #..  # NOTE: Pr
c120: 6f 76 69 64 65 20 74 68 65 20 53 79 73 74 65 6d  ovide the System
c130: 2e 44 61 74 61 2e 53 51 4c 69 74 65 20 74 65 73  .Data.SQLite tes
c140: 74 20 70 61 63 6b 61 67 65 20 74 6f 20 74 68 65  t package to the
c150: 20 69 6e 74 65 72 70 72 65 74 65 72 2e 0d 0a 20   interpreter...
c160: 20 23 0d 0a 20 20 70 61 63 6b 61 67 65 20 70 72   #..  package pr
c170: 6f 76 69 64 65 20 53 79 73 74 65 6d 2e 44 61 74  ovide System.Dat
c180: 61 2e 53 51 4c 69 74 65 2e 54 65 73 74 20 31 2e  a.SQLite.Test 1.
c190: 30 0d 0a 7d 0d 0a                                0..}..