System.Data.SQLite
Hex Artifact Content
Not logged in

## Artifact d9f93665d26b40e40b0606b360cffd5a2cd6a6b7:

• File Tests/common.eagle — part of check-in [40e0fb8133] at 2012-09-22 18:50:35 on branch trunk — Modularize the connection opaque object handle lookup done by several tests. Modify test data-1.34 to use the Enum typed ReturnCode property instead of the Int32 typed ErrorCode property. Improve comments and formatting in the common test suite infrastructure file. (user: mistachkin size: 46577)

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 41 70  ..    proc getAp
3560: 70 44 6f 6d 61 69 6e 50 72 65 61 6d 62 6c 65 20  pDomainPreamble
3570: 7b 20 7b 70 72 65 66 69 78 20 22 22 7d 20 7b 73  { {prefix ""} {s
3580: 75 66 66 69 78 20 22 22 7d 20 7d 20 7b 0d 0a 20  uffix ""} } {..
3590: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20       #..      #
35a0: 4e 4f 54 45 3a 20 54 68 69 73 20 70 72 6f 63 65  NOTE: This proce
35b0: 64 75 72 65 20 72 65 74 75 72 6e 73 20 61 20 74  dure returns a t
35c0: 65 73 74 20 73 65 74 75 70 20 73 63 72 69 70 74  est setup script
35d0: 20 73 75 69 74 61 62 6c 65 20 66 6f 72 20 65 76   suitable for ev
35e0: 61 6c 75 61 74 69 6f 6e 0d 0a 20 20 20 20 20 20  aluation..
35f0: 23 20 20 20 20 20 20 20 62 79 20 61 20 74 65 73  #       by a tes
3600: 74 20 69 6e 74 65 72 70 72 65 74 65 72 20 63 72  t interpreter cr
3610: 65 61 74 65 64 20 69 6e 20 61 6e 20 69 73 6f 6c  eated in an isol
3620: 61 74 65 64 20 61 70 70 6c 69 63 61 74 69 6f 6e  ated application
3630: 20 64 6f 6d 61 69 6e 2e 0d 0a 20 20 20 20 20 20   domain...
3640: 23 20 20 20 20 20 20 20 54 68 65 20 73 63 72 69  #       The scri
3650: 70 74 20 62 65 69 6e 67 20 72 65 74 75 72 6e 65  pt being returne
3660: 64 20 77 69 6c 6c 20 62 65 20 73 75 72 72 6f 75  d will be surrou
3670: 6e 64 65 64 20 62 79 20 74 68 65 20 70 72 65 66  nded by the pref
3680: 69 78 20 61 6e 64 0d 0a 20 20 20 20 20 20 23 20  ix and..      #
3690: 20 20 20 20 20 20 73 75 66 66 69 78 20 22 73 63        suffix "sc
36a0: 72 69 70 74 20 66 72 61 67 6d 65 6e 74 73 22 20  ript fragments"
36b0: 73 70 65 63 69 66 69 65 64 20 62 79 20 6f 75 72  specified by our
36c0: 20 63 61 6c 6c 65 72 2c 20 69 66 20 61 6e 79 2e   caller, if any.
36d0: 20 20 54 68 65 0d 0a 20 20 20 20 20 20 23 20 20    The..      #
36e0: 20 20 20 20 20 65 6e 74 69 72 65 20 73 63 72 69       entire scri
36f0: 70 74 20 62 65 69 6e 67 20 72 65 74 75 72 6e 65  pt being returne
3700: 64 20 77 69 6c 6c 20 62 65 20 73 75 62 73 74 69  d will be substi
3710: 74 75 74 65 64 20 76 69 61 20 5b 73 75 62 73 74  tuted via [subst
3720: 5d 2c 20 69 6e 0d 0a 20 20 20 20 20 20 23 20 20  ], in..      #
3730: 20 20 20 20 20 74 68 65 20 63 6f 6e 74 65 78 74       the context
3740: 20 6f 66 20 6f 75 72 20 63 61 6c 6c 65 72 2e 20   of our caller.
3750: 20 54 68 69 73 20 73 74 65 70 20 69 73 20 6e 65   This step is ne
3760: 63 65 73 73 61 72 79 20 73 6f 20 74 68 61 74 20  cessary so that
3770: 73 6f 6d 65 0d 0a 20 20 20 20 20 20 23 20 20 20  some..      #
3780: 20 20 20 20 6c 69 6d 69 74 65 64 20 63 6f 6e 74      limited cont
3790: 65 78 74 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2c  ext information,
37a0: 20 70 72 69 6d 61 72 69 6c 79 20 72 65 6c 61 74   primarily relat
37b0: 65 64 20 74 6f 20 74 68 65 20 74 65 73 74 20 62  ed to the test b
37c0: 75 69 6c 64 0d 0a 20 20 20 20 20 20 23 20 20 20  uild..      #
37d0: 20 20 20 20 64 69 72 65 63 74 6f 72 79 2c 20 63      directory, c
37e0: 61 6e 20 62 65 20 74 72 61 6e 73 66 65 72 72 65  an be transferre
37f0: 64 20 74 6f 20 74 68 65 20 69 6e 74 65 72 70 72  d to the interpr
3800: 65 74 65 72 20 69 6e 20 74 68 65 20 69 73 6f 6c  eter in the isol
3810: 61 74 65 64 0d 0a 20 20 20 20 20 20 23 20 20 20  ated..      #
3820: 20 20 20 20 61 70 70 6c 69 63 61 74 69 6f 6e 20      application
3830: 64 6f 6d 61 69 6e 2c 20 6d 61 6b 69 6e 67 20 69  domain, making i
3840: 74 20 61 62 6c 65 20 74 6f 20 73 75 63 63 65 73  t able to succes
3850: 73 66 75 6c 6c 79 20 72 75 6e 20 74 65 73 74 73  sfully run tests
3860: 20 74 68 61 74 0d 0a 20 20 20 20 20 20 23 20 20   that..      #
3870: 20 20 20 20 20 72 65 71 75 69 72 65 20 6f 6e 65       require one
3880: 20 6f 72 20 6d 6f 72 65 20 6f 66 20 74 68 65 20   or more of the
3890: 66 69 6c 65 73 20 69 6e 20 74 68 65 20 62 75 69  files in the bui
38a0: 6c 64 20 64 69 72 65 63 74 6f 72 79 2e 20 20 43  ld directory.  C
38b0: 61 6c 6c 65 72 73 0d 0a 20 20 20 20 20 20 23 20  allers..      #
38c0: 20 20 20 20 20 20 74 6f 20 74 68 69 73 20 70 72        to this pr
38d0: 6f 63 65 64 75 72 65 20 73 68 6f 75 6c 64 20 6b  ocedure should k
38e0: 65 65 70 20 69 6e 20 6d 69 6e 64 20 74 68 61 74  eep in mind that
38f0: 20 74 68 65 20 74 65 73 74 20 73 63 72 69 70 74   the test script
3900: 20 62 65 69 6e 67 0d 0a 20 20 20 20 20 20 23 20   being..      #
3910: 20 20 20 20 20 20 72 65 74 75 72 6e 65 64 20 63        returned c
3920: 61 6e 6e 6f 74 20 72 65 6c 79 20 6f 6e 20 61 6e  annot rely on an
3930: 79 20 73 63 72 69 70 74 20 6c 69 62 72 61 72 79  y script library
3940: 20 70 72 6f 63 65 64 75 72 65 73 20 6e 6f 74 20   procedures not
3950: 64 65 66 69 6e 65 64 0d 0a 20 20 20 20 20 20 23  defined..      #
3960: 20 20 20 20 20 20 20 62 79 20 74 68 65 20 45 61         by the Ea
3970: 67 6c 65 2e 4c 69 62 72 61 72 79 20 70 61 63 6b  gle.Library pack
3980: 61 67 65 20 28 69 2e 65 2e 20 22 69 6e 69 74 2e  age (i.e. "init.
3990: 65 61 67 6c 65 22 29 2e 20 20 41 6c 73 6f 2c 20  eagle").  Also,
39a0: 61 6c 6c 0d 0a 20 20 20 20 20 20 23 20 20 20 20  all..      #
39b0: 20 20 20 76 61 72 69 61 62 6c 65 20 72 65 66 65     variable refe
39c0: 72 65 6e 63 65 73 20 61 6e 64 20 61 6c 6c 20 22  rences and all "
39d0: 6e 65 73 74 65 64 22 20 63 6f 6d 6d 61 6e 64 73  nested" commands
39e0: 20 28 69 2e 65 2e 20 74 68 6f 73 65 20 69 6e 0d   (i.e. those in.
39f0: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 73  .      #       s
3a00: 71 75 61 72 65 20 62 72 61 63 6b 65 74 73 29 2c  quare brackets),
3a10: 20 75 6e 6c 65 73 73 20 74 68 65 79 20 61 72 65   unless they are
3a20: 20 73 70 65 63 69 61 6c 6c 79 20 71 75 6f 74 65   specially quote
3a30: 64 2c 20 77 69 6c 6c 20 65 6e 64 20 75 70 0d 0a  d, will end up..
3a40: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 62 65        #       be
3a50: 69 6e 67 20 65 76 61 6c 75 61 74 65 64 20 69 6e  ing evaluated in
3a60: 20 74 68 65 20 63 6f 6e 74 65 78 74 20 6f 66 20   the context of
3a70: 74 68 65 20 63 61 6c 6c 69 6e 67 20 69 6e 74 65  the calling inte
3a80: 72 70 72 65 74 65 72 20 61 6e 64 20 6e 6f 74 0d  rpreter and not.
3a90: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 74  .      #       t
3aa0: 68 65 20 74 65 73 74 20 69 6e 74 65 72 70 72 65  he test interpre
3ab0: 74 65 72 20 63 72 65 61 74 65 64 20 69 6e 20 74  ter created in t
3ac0: 68 65 20 69 73 6f 6c 61 74 65 64 20 61 70 70 6c  he isolated appl
3ad0: 69 63 61 74 69 6f 6e 20 64 6f 6d 61 69 6e 2e 0d  ication domain..
3ae0: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20  .      #..
3af0: 72 65 74 75 72 6e 20 5b 75 70 6c 65 76 65 6c 20  return [uplevel
3b00: 31 20 5b 6c 69 73 74 20 73 75 62 73 74 20 5b 61  1 [list subst [a
3b10: 70 70 65 6e 64 41 72 67 73 20 24 70 72 65 66 69  ppendArgs $prefi 3b20: 78 20 7b 0d 0a 20 20 20 20 20 20 20 20 69 66 20 x {.. if 3b30: 7b 5b 68 61 73 52 75 6e 74 69 6d 65 4f 70 74 69 {[hasRuntimeOpti 3b40: 6f 6e 20 6e 61 74 69 76 65 5d 7d 20 74 68 65 6e on native]} then 3b50: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 6f 62 {.. ob 3b60: 6a 65 63 74 20 69 6e 76 6f 6b 65 20 49 6e 74 65 ject invoke Inte 3b70: 72 70 72 65 74 65 72 2e 47 65 74 41 63 74 69 76 rpreter.GetActiv 3b80: 65 20 41 64 64 52 75 6e 74 69 6d 65 4f 70 74 69 e AddRuntimeOpti 3b90: 6f 6e 20 6e 61 74 69 76 65 0d 0a 20 20 20 20 20 on native.. 3ba0: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 }.... 3bb0: 73 65 74 20 3a 3a 70 61 74 68 20 7b 24 3a 3a 70 set ::path {$::p
3bc0: 61 74 68 7d 0d 0a 20 20 20 20 20 20 20 20 73 65  ath}..        se
3bd0: 74 20 3a 3a 74 65 73 74 5f 79 65 61 72 20 7b 5b  t ::test_year {[
3be0: 67 65 74 42 75 69 6c 64 59 65 61 72 5d 7d 0d 0a  getBuildYear]}..
3bf0: 20 20 20 20 20 20 20 20 73 65 74 20 3a 3a 74 65          set ::te
3c00: 73 74 5f 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e  st_configuration
3c10: 20 7b 5b 67 65 74 42 75 69 6c 64 43 6f 6e 66 69   {[getBuildConfi
3c20: 67 75 72 61 74 69 6f 6e 5d 7d 0d 0a 20 20 20 20  guration]}..
3c30: 20 20 7d 20 24 73 75 66 66 69 78 5d 5d 5d 0d 0a    } $suffix]]].. 3c40: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 }..... pr 3c50: 6f 63 20 74 72 79 43 6f 70 79 42 75 69 6c 64 46 oc tryCopyBuildF 3c60: 69 6c 65 20 7b 20 66 69 6c 65 4e 61 6d 65 20 7d ile { fileName } 3c70: 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 {.. #.. 3c80: 20 20 20 23 20 4e 4f 54 45 3a 20 49 66 20 77 65 # NOTE: If we 3c90: 20 63 61 6e 6e 6f 74 20 63 6f 70 79 20 74 68 65 cannot copy the 3ca0: 20 61 73 73 65 6d 62 6c 79 20 74 68 65 6e 20 69 assembly then i 3cb0: 74 20 69 73 20 70 72 6f 62 61 62 6c 79 20 61 6c t is probably al 3cc0: 72 65 61 64 79 20 6c 6f 61 64 65 64 2e 0d 0a 20 ready loaded... 3cd0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 73 65 #.. se 3ce0: 74 20 73 6f 75 72 63 65 46 69 6c 65 4e 61 6d 65 t sourceFileName 3cf0: 20 5b 67 65 74 42 75 69 6c 64 46 69 6c 65 4e 61 [getBuildFileNa 3d00: 6d 65 20 24 66 69 6c 65 4e 61 6d 65 5d 0d 0a 0d me$fileName]...
3d10: 0a 20 20 20 20 20 20 69 66 20 7b 21 5b 66 69 6c  .      if {![fil
3d20: 65 20 65 78 69 73 74 73 20 24 73 6f 75 72 63 65  e exists $source 3d30: 46 69 6c 65 4e 61 6d 65 5d 7d 20 74 68 65 6e 20 FileName]} then 3d40: 7b 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 {.. tputs 3d50: 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c$::test_channel
3d60: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a   [appendArgs \..
3d70: 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d              "---
3d80: 2d 20 73 6b 69 70 70 65 64 20 63 6f 70 79 69 6e  - skipped copyin
3d90: 67 20 62 75 69 6c 64 20 66 69 6c 65 20 5c 22 22  g build file \""
3da0: 20 24 73 6f 75 72 63 65 46 69 6c 65 4e 61 6d 65   $sourceFileName 3db0: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \.. 3dc0: 22 5c 22 2c 20 69 74 20 64 6f 65 73 20 6e 6f 74 "\", it does not 3dd0: 20 65 78 69 73 74 5c 6e 22 5d 0d 0a 0d 0a 20 20 exist\n"].... 3de0: 20 20 20 20 20 20 72 65 74 75 72 6e 0d 0a 20 20 return.. 3df0: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 73 }.... s 3e00: 65 74 20 74 61 72 67 65 74 46 69 6c 65 4e 61 6d et targetFileNam 3e10: 65 20 5b 67 65 74 42 69 6e 61 72 79 46 69 6c 65 e [getBinaryFile 3e20: 4e 61 6d 65 20 24 66 69 6c 65 4e 61 6d 65 5d 0d Name$fileName].
3e30: 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 63 61  ...      if {[ca
3e40: 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  tch {..
3e50: 20 20 20 20 20 66 69 6c 65 20 63 6f 70 79 20 2d       file copy -
3e60: 66 6f 72 63 65 20 24 73 6f 75 72 63 65 46 69 6c  force $sourceFil 3e70: 65 4e 61 6d 65 20 24 74 61 72 67 65 74 46 69 6c eName$targetFil
3e80: 65 4e 61 6d 65 7d 5d 20 3d 3d 20 30 7d 20 74 68  eName}] == 0} th
3e90: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 74 70  en {..        tp
3ea0: 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e  uts $::test_chan 3eb0: 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 nel [appendArgs 3ec0: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 \.. " 3ed0: 2d 2d 2d 2d 20 63 6f 70 69 65 64 20 62 75 69 6c ---- copied buil 3ee0: 64 20 66 69 6c 65 20 66 72 6f 6d 20 5c 22 22 20 d file from \"" 3ef0: 24 73 6f 75 72 63 65 46 69 6c 65 4e 61 6d 65 20$sourceFileName
3f00: 22 5c 22 20 74 6f 20 5c 22 22 20 5c 0d 0a 20 20  "\" to \"" \..
3f10: 20 20 20 20 20 20 20 20 20 20 24 74 61 72 67 65            $targe 3f20: 74 46 69 6c 65 4e 61 6d 65 20 5c 22 5c 6e 5d 0d tFileName \"\n]. 3f30: 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d . } else {. 3f40: 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 . tputs$
3f50: 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b  ::test_channel [
3f60: 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20  appendArgs \..
3f70: 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20            "----
3f80: 66 61 69 6c 65 64 20 74 6f 20 63 6f 70 79 20 62  failed to copy b
3f90: 75 69 6c 64 20 66 69 6c 65 20 66 72 6f 6d 20 5c  uild file from \
3fa0: 22 22 20 24 73 6f 75 72 63 65 46 69 6c 65 4e 61  "" $sourceFileNa 3fb0: 6d 65 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 me \.. 3fc0: 20 20 22 5c 22 20 74 6f 20 5c 22 22 20 24 74 61 "\" to \""$ta
3fd0: 72 67 65 74 46 69 6c 65 4e 61 6d 65 20 5c 22 5c  rgetFileName \"\
3fe0: 6e 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20  n]..      }..
3ff0: 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20   }.....    proc
4000: 74 72 79 44 65 6c 65 74 65 42 69 6e 61 72 79 46  tryDeleteBinaryF
4010: 69 6c 65 20 7b 20 66 69 6c 65 4e 61 6d 65 20 7d  ile { fileName }
4020: 20 7b 0d 0a 20 20 20 20 20 20 73 65 74 20 66 69   {..      set fi
4030: 6c 65 4e 61 6d 65 20 5b 67 65 74 42 69 6e 61 72  leName [getBinar
4040: 79 46 69 6c 65 4e 61 6d 65 20 24 66 69 6c 65 4e  yFileName $fileN 4050: 61 6d 65 5d 0d 0a 0d 0a 20 20 20 20 20 20 69 66 ame].... if 4060: 20 7b 21 5b 66 69 6c 65 20 65 78 69 73 74 73 20 {![file exists 4070: 24 66 69 6c 65 4e 61 6d 65 5d 7d 20 74 68 65 6e$fileName]} then
4080: 20 7b 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74   {..        tput
4090: 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65  s $::test_channe 40a0: 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d l [appendArgs \. 40b0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d . "-- 40c0: 2d 2d 20 73 6b 69 70 70 65 64 20 64 65 6c 65 74 -- skipped delet 40d0: 69 6e 67 20 62 69 6e 61 72 79 20 66 69 6c 65 20 ing binary file 40e0: 5c 22 22 20 24 66 69 6c 65 4e 61 6d 65 20 5c 0d \""$fileName \.
40f0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 5c 22  .            "\"
4100: 2c 20 69 74 20 64 6f 65 73 20 6e 6f 74 20 65 78  , it does not ex
4110: 69 73 74 5c 6e 22 5d 0d 0a 0d 0a 20 20 20 20 20  ist\n"]....
4120: 20 20 20 72 65 74 75 72 6e 0d 0a 20 20 20 20 20     return..
4130: 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b   }....      if {
4140: 5b 63 61 74 63 68 20 7b 66 69 6c 65 20 64 65 6c  [catch {file del
4150: 65 74 65 20 24 66 69 6c 65 4e 61 6d 65 7d 5d 20  ete $fileName}] 4160: 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 == 0} then {.. 4170: 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 tputs$::t
4180: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70  est_channel [app
4190: 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20  endArgs \..
41a0: 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 64 65 6c         "---- del
41b0: 65 74 65 64 20 62 69 6e 61 72 79 20 66 69 6c 65  eted binary file
41c0: 20 5c 22 22 20 24 66 69 6c 65 4e 61 6d 65 20 5c   \"" $fileName \ 41d0: 22 5c 6e 5d 0d 0a 20 20 20 20 20 20 7d 20 65 6c "\n].. } el 41e0: 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 74 70 se {.. tp 41f0: 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e uts$::test_chan
4200: 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20  nel [appendArgs
4210: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 22  \..            "
4220: 2d 2d 2d 2d 20 66 61 69 6c 65 64 20 74 6f 20 64  ---- failed to d
4230: 65 6c 65 74 65 20 62 69 6e 61 72 79 20 66 69 6c  elete binary fil
4240: 65 20 5c 22 22 20 24 66 69 6c 65 4e 61 6d 65 20  e \"" $fileName 4250: 5c 22 5c 6e 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a \"\n].. }.. 4260: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 }..... pr 4270: 6f 63 20 74 72 79 43 6f 70 79 41 73 73 65 6d 62 oc tryCopyAssemb 4280: 6c 79 20 7b 20 66 69 6c 65 4e 61 6d 65 20 7b 70 ly { fileName {p 4290: 64 62 20 74 72 75 65 7d 20 7d 20 7b 0d 0a 20 20 db true} } {.. 42a0: 20 20 20 20 74 72 79 43 6f 70 79 42 75 69 6c 64 tryCopyBuild 42b0: 46 69 6c 65 20 24 66 69 6c 65 4e 61 6d 65 0d 0a File$fileName..
42c0: 0d 0a 20 20 20 20 20 20 69 66 20 7b 24 70 64 62  ..      if {$pdb 42d0: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {.. 42e0: 20 20 74 72 79 43 6f 70 79 42 75 69 6c 64 46 69 tryCopyBuildFi 42f0: 6c 65 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5b le [appendArgs [ 4300: 66 69 6c 65 20 72 6f 6f 74 6e 61 6d 65 20 24 66 file rootname$f
4310: 69 6c 65 4e 61 6d 65 5d 20 2e 70 64 62 5d 0d 0a  ileName] .pdb]..
4320: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a        }..    }..
4330: 0c 0d 0a 20 20 20 20 70 72 6f 63 20 74 72 79 44  ...    proc tryD
4340: 65 6c 65 74 65 41 73 73 65 6d 62 6c 79 20 7b 20  eleteAssembly {
4350: 66 69 6c 65 4e 61 6d 65 20 7b 70 64 62 20 74 72  fileName {pdb tr
4360: 75 65 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 20 74  ue} } {..      t
4370: 72 79 44 65 6c 65 74 65 42 69 6e 61 72 79 46 69  ryDeleteBinaryFi
4380: 6c 65 20 24 66 69 6c 65 4e 61 6d 65 0d 0a 0d 0a  le $fileName.... 4390: 20 20 20 20 20 20 69 66 20 7b 24 70 64 62 7d 20 if {$pdb}
43a0: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20  then {..
43b0: 74 72 79 44 65 6c 65 74 65 42 69 6e 61 72 79 46  tryDeleteBinaryF
43c0: 69 6c 65 20 5b 61 70 70 65 6e 64 41 72 67 73 20  ile [appendArgs
43d0: 5b 66 69 6c 65 20 72 6f 6f 74 6e 61 6d 65 20 24  [file rootname $43e0: 66 69 6c 65 4e 61 6d 65 5d 20 2e 70 64 62 5d 0d fileName] .pdb]. 43f0: 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d . }.. }. 4400: 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 74 72 79 .... proc try 4410: 4c 6f 61 64 41 73 73 65 6d 62 6c 79 20 7b 20 66 LoadAssembly { f 4420: 69 6c 65 4e 61 6d 65 20 7d 20 7b 0d 0a 20 20 20 ileName } {.. 4430: 20 20 20 73 65 74 20 66 69 6c 65 4e 61 6d 65 20 set fileName 4440: 5b 67 65 74 42 69 6e 61 72 79 46 69 6c 65 4e 61 [getBinaryFileNa 4450: 6d 65 20 24 66 69 6c 65 4e 61 6d 65 5d 0d 0a 0d me$fileName]...
4460: 0a 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63  .      if {[catc
4470: 68 20 7b 73 65 74 20 61 73 73 65 6d 62 6c 79 20  h {set assembly
4480: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  \..
4490: 20 5b 6f 62 6a 65 63 74 20 6c 6f 61 64 20 2d 6c   [object load -l
44a0: 6f 61 64 74 79 70 65 20 46 69 6c 65 20 2d 61 6c  oadtype File -al
44b0: 69 61 73 20 24 66 69 6c 65 4e 61 6d 65 5d 7d 5d  ias $fileName]}] 44c0: 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 == 0} then {.. 44d0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #.. 44e0: 20 20 23 20 4e 4f 54 45 3a 20 4e 6f 77 2c 20 61 # NOTE: Now, a 44f0: 64 64 20 74 68 65 20 6e 65 63 65 73 73 61 72 79 dd the necessary 4500: 20 74 65 73 74 20 63 6f 6e 73 74 72 61 69 6e 74 test constraint 4510: 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 ... #.. 4520: 20 20 20 20 20 20 61 64 64 43 6f 6e 73 74 72 61 addConstra 4530: 69 6e 74 20 5b 66 69 6c 65 20 72 6f 6f 74 6e 61 int [file rootna 4540: 6d 65 20 5b 66 69 6c 65 20 74 61 69 6c 20 24 66 me [file tail$f
4550: 69 6c 65 4e 61 6d 65 5d 5d 0d 0a 0d 0a 20 20 20  ileName]]....
4560: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..
4570: 23 20 4e 4f 54 45 3a 20 47 72 61 62 20 74 68 65  # NOTE: Grab the
4580: 20 69 6d 61 67 65 20 72 75 6e 74 69 6d 65 20 76   image runtime v
4590: 65 72 73 69 6f 6e 20 66 72 6f 6d 20 74 68 65 20  ersion from the
45a0: 61 73 73 65 6d 62 6c 79 20 62 65 63 61 75 73 65  assembly because
45b0: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20  ..        #
45c0: 20 20 73 65 76 65 72 61 6c 20 74 65 73 74 73 20    several tests
45d0: 72 65 6c 79 20 6f 6e 20 69 74 20 68 61 76 69 6e  rely on it havin
45e0: 67 20 61 20 63 65 72 74 61 69 6e 20 76 61 6c 75  g a certain valu
45f0: 65 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20  e...        #..
4600: 20 20 20 20 20 20 20 61 64 64 43 6f 6e 73 74 72         addConstr
4610: 61 69 6e 74 20 5b 61 70 70 65 6e 64 41 72 67 73  aint [appendArgs
4620: 20 5b 66 69 6c 65 20 74 61 69 6c 20 24 66 69 6c   [file tail $fil 4630: 65 4e 61 6d 65 5d 20 5f 20 5c 0d 0a 20 20 20 20 eName] _ \.. 4640: 20 20 20 20 20 20 20 20 5b 24 61 73 73 65 6d 62 [$assemb
4650: 6c 79 20 49 6d 61 67 65 52 75 6e 74 69 6d 65 56  ly ImageRuntimeV
4660: 65 72 73 69 6f 6e 5d 5d 0d 0a 0d 0a 20 20 20 20  ersion]]....
4670: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23      #..        #
4680: 20 4e 4f 54 45 3a 20 52 65 74 75 72 6e 20 74 68   NOTE: Return th
4690: 65 20 66 75 6c 6c 20 70 61 74 68 20 6f 66 20 74  e full path of t
46a0: 68 65 20 6c 6f 61 64 65 64 20 66 69 6c 65 2e 0d  he loaded file..
46b0: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20  .        #..
46c0: 20 20 20 20 72 65 74 75 72 6e 20 24 66 69 6c 65      return $file 46d0: 4e 61 6d 65 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d Name.. }... 46e0: 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 22 22 . return "" 46f0: 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 .. }..... 4700: 70 72 6f 63 20 63 68 65 63 6b 46 6f 72 53 51 4c proc checkForSQL 4710: 69 74 65 20 7b 20 63 68 61 6e 6e 65 6c 20 7d 20 ite { channel } 4720: 7b 0d 0a 20 20 20 20 20 20 74 70 75 74 73 20 24 {.. tputs$
4730: 63 68 61 6e 6e 65 6c 20 22 2d 2d 2d 2d 20 63 68  channel "---- ch
4740: 65 63 6b 69 6e 67 20 66 6f 72 20 63 6f 72 65 20  ecking for core
4750: 53 51 4c 69 74 65 20 6c 69 62 72 61 72 79 2e 2e  SQLite library..
4760: 2e 20 22 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20  . "....      if
4770: 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 20  {[catch {..
4780: 20 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74 20           object
4790: 69 6e 76 6f 6b 65 20 2d 66 6c 61 67 73 20 2b 4e  invoke -flags +N
47a0: 6f 6e 50 75 62 6c 69 63 20 53 79 73 74 65 6d 2e  onPublic System.
47b0: 44 61 74 61 2e 53 51 4c 69 74 65 2e 53 51 4c 69  Data.SQLite.SQLi
47c0: 74 65 33 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  te3 \..
47d0: 20 20 20 20 20 53 51 4c 69 74 65 56 65 72 73 69       SQLiteVersi
47e0: 6f 6e 7d 20 76 65 72 73 69 6f 6e 5d 20 3d 3d 20  on} version] ==
47f0: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  0} then {..
4800: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20     #..        #
4810: 4e 4f 54 45 3a 20 41 74 74 65 6d 70 74 20 74 6f  NOTE: Attempt to
4820: 20 71 75 65 72 79 20 74 68 65 20 46 6f 73 73 69   query the Fossi
4830: 6c 20 73 6f 75 72 63 65 20 69 64 65 6e 74 69 66  l source identif
4840: 69 65 72 20 66 6f 72 20 74 68 65 20 53 51 4c 69  ier for the SQLi
4850: 74 65 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20  te..        #
4860: 20 20 20 20 63 6f 72 65 20 6c 69 62 72 61 72 79      core library
4870: 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20  ...        #..
4880: 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68        if {[catch
4890: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..
48a0: 20 20 20 20 6f 62 6a 65 63 74 20 69 6e 76 6f 6b      object invok
48b0: 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 62  e -flags +NonPub
48c0: 6c 69 63 20 53 79 73 74 65 6d 2e 44 61 74 61 2e  lic System.Data.
48d0: 53 51 4c 69 74 65 2e 53 51 4c 69 74 65 33 20 5c  SQLite.SQLite3 \
48e0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..
48f0: 20 20 53 51 4c 69 74 65 53 6f 75 72 63 65 49 64    SQLiteSourceId
4900: 7d 20 73 6f 75 72 63 65 49 64 5d 7d 20 74 68 65  } sourceId]} the
4910: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23  n {..          #
4920: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f  ..          # NO
4930: 54 45 3a 20 57 65 20 66 61 69 6c 65 64 20 74 6f  TE: We failed to
4940: 20 71 75 65 72 79 20 74 68 65 20 46 6f 73 73 69   query the Fossi
4950: 6c 20 73 6f 75 72 63 65 20 69 64 65 6e 74 69 66  l source identif
4960: 69 65 72 2e 0d 0a 20 20 20 20 20 20 20 20 20 20  ier...
4970: 23 0d 0a 20 20 20 20 20 20 20 20 20 20 73 65 74  #..          set
4980: 20 73 6f 75 72 63 65 49 64 20 75 6e 6b 6e 6f 77   sourceId unknow
4990: 6e 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a  n..        }....
49a0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..
49b0: 20 20 20 23 20 4e 4f 54 45 3a 20 59 65 73 2c 20     # NOTE: Yes,
49c0: 74 68 65 20 53 51 4c 69 74 65 20 63 6f 72 65 20  the SQLite core
49d0: 6c 69 62 72 61 72 79 20 61 70 70 65 61 72 73 20  library appears
49e0: 74 6f 20 62 65 20 61 76 61 69 6c 61 62 6c 65 2e  to be available.
49f0: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20  ..        #..
4a00: 20 20 20 20 20 61 64 64 43 6f 6e 73 74 72 61 69       addConstrai
4a10: 6e 74 20 53 51 4c 69 74 65 0d 0a 0d 0a 20 20 20  nt SQLite....
4a20: 20 20 20 20 20 74 70 75 74 73 20 24 63 68 61 6e       tputs $chan 4a30: 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 nel [appendArgs 4a40: 22 79 65 73 20 28 22 20 24 76 65 72 73 69 6f 6e "yes ("$version
4a50: 20 22 20 22 20 24 73 6f 75 72 63 65 49 64 20 22   " " $sourceId " 4a60: 29 5c 6e 22 5d 0d 0a 20 20 20 20 20 20 7d 20 65 )\n"].. } e 4a70: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 74 lse {.. t 4a80: 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 6e 6f puts$channel no
4a90: 5c 6e 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20  \n..      }..
4aa0: 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20   }.....    proc
4ab0: 63 68 65 63 6b 46 6f 72 53 51 4c 69 74 65 44 65  checkForSQLiteDe
4ac0: 66 69 6e 65 43 6f 6e 73 74 61 6e 74 20 7b 20 63  fineConstant { c
4ad0: 68 61 6e 6e 65 6c 20 6e 61 6d 65 20 7d 20 7b 0d  hannel name } {.
4ae0: 0a 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68  .      tputs $ch 4af0: 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 annel [appendArg 4b00: 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 22 s \.. " 4b10: 2d 2d 2d 2d 20 63 68 65 63 6b 69 6e 67 20 66 6f ---- checking fo 4b20: 72 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 r System.Data.SQ 4b30: 4c 69 74 65 20 64 65 66 69 6e 65 20 63 6f 6e 73 Lite define cons 4b40: 74 61 6e 74 20 5c 22 22 20 24 6e 61 6d 65 20 5c tant \""$name \
4b50: 0d 0a 20 20 20 20 20 20 20 20 20 20 22 5c 22 2e  ..          "\".
4b60: 2e 2e 20 22 5d 0d 0a 0d 0a 20 20 20 20 20 20 69  .. "]....      i
4b70: 66 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20  f {[catch {..
4b80: 20 20 20 20 20 20 20 20 20 20 20 6f 62 6a 65 63             objec
4b90: 74 20 69 6e 76 6f 6b 65 20 2d 66 6c 61 67 73 20  t invoke -flags
4ba0: 2b 4e 6f 6e 50 75 62 6c 69 63 20 53 79 73 74 65  +NonPublic Syste
4bb0: 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 53 51  m.Data.SQLite.SQ
4bc0: 4c 69 74 65 33 20 5c 0d 0a 20 20 20 20 20 20 20  Lite3 \..
4bd0: 20 20 20 20 20 20 20 44 65 66 69 6e 65 43 6f 6e         DefineCon
4be0: 73 74 61 6e 74 73 7d 20 64 65 66 69 6e 65 43 6f  stants} defineCo
4bf0: 6e 73 74 61 6e 74 73 5d 20 3d 3d 20 30 7d 20 74  nstants] == 0} t
4c00: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 69  hen {..        i
4c10: 66 20 7b 5b 6c 73 65 61 72 63 68 20 2d 65 78 61  f {[lsearch -exa
4c20: 63 74 20 2d 6e 6f 63 61 73 65 20 24 64 65 66 69  ct -nocase $defi 4c30: 6e 65 43 6f 6e 73 74 61 6e 74 73 20 24 6e 61 6d neConstants$nam
4c40: 65 5d 20 21 3d 20 2d 31 7d 20 74 68 65 6e 20 7b  e] != -1} then {
4c50: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20  ..          #..
4c60: 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a           # NOTE:
4c70: 20 59 65 73 2c 20 74 68 69 73 20 64 65 66 69 6e   Yes, this defin
4c80: 65 20 63 6f 6e 73 74 61 6e 74 20 77 61 73 20 65  e constant was e
4c90: 6e 61 62 6c 65 64 20 77 68 65 6e 20 74 68 65 20  nabled when the
4ca0: 6d 61 6e 61 67 65 64 0d 0a 20 20 20 20 20 20 20  managed..
4cb0: 20 20 20 23 20 20 20 20 20 20 20 61 73 73 65 6d     #       assem
4cc0: 62 6c 79 20 77 61 73 20 63 6f 6d 70 69 6c 65 64  bly was compiled
4cd0: 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a  ...          #..
4ce0: 20 20 20 20 20 20 20 20 20 20 61 64 64 43 6f 6e            addCon
4cf0: 73 74 72 61 69 6e 74 20 5b 61 70 70 65 6e 64 41  straint [appendA
4d00: 72 67 73 20 64 65 66 69 6e 65 43 6f 6e 73 74 61  rgs defineConsta
4d10: 6e 74 2e 53 79 73 74 65 6d 2e 44 61 74 61 2e 53  nt.System.Data.S
4d20: 51 4c 69 74 65 2e 20 24 6e 61 6d 65 5d 0d 0a 0d  QLite. $name]... 4d30: 0a 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 . tputs 4d40: 20 24 63 68 61 6e 6e 65 6c 20 79 65 73 5c 6e 0d$channel yes\n.
4d50: 0a 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20  .        } else
4d60: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70 75  {..          tpu
4d70: 74 73 20 24 63 68 61 6e 6e 65 6c 20 6e 6f 5c 6e  ts $channel no\n 4d80: 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 .. }.. 4d90: 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 } else {.. 4da0: 20 20 20 20 20 74 70 75 74 73 20 24 63 68 61 6e tputs$chan
4db0: 6e 65 6c 20 65 72 72 6f 72 5c 6e 0d 0a 20 20 20  nel error\n..
4dc0: 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a     }..    }.....
4dd0: 20 20 20 20 70 72 6f 63 20 67 65 74 44 61 74 65      proc getDate
4de0: 54 69 6d 65 46 6f 72 6d 61 74 20 7b 7d 20 7b 0d  TimeFormat {} {.
4df0: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20  .      #..
4e00: 23 20 4e 4f 54 45 3a 20 54 68 69 73 20 70 72 6f  # NOTE: This pro
4e10: 63 65 64 75 72 65 20 73 69 6d 70 6c 79 20 72 65  cedure simply re
4e20: 74 75 72 6e 73 20 74 68 65 20 22 64 65 66 61 75  turns the "defau
4e30: 6c 74 22 20 44 61 74 65 54 69 6d 65 20 66 6f 72  lt" DateTime for
4e40: 6d 61 74 20 75 73 65 64 0d 0a 20 20 20 20 20 20  mat used..
4e50: 23 20 20 20 20 20 20 20 62 79 20 74 68 65 20 74  #       by the t
4e60: 65 73 74 20 73 75 69 74 65 2e 0d 0a 20 20 20 20  est suite...
4e70: 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b    #..      if {[
4e80: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 64 61  info exists ::da
4e90: 74 65 74 69 6d 65 5f 66 6f 72 6d 61 74 5d 20 26  tetime_format] &
4ea0: 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 5b  & \..          [
4eb0: 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 3a  string length $: 4ec0: 3a 64 61 74 65 74 69 6d 65 5f 66 6f 72 6d 61 74 :datetime_format 4ed0: 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 ] > 0} then {.. 4ee0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #.. 4ef0: 20 20 23 20 4e 4f 54 45 3a 20 52 65 74 75 72 6e # NOTE: Return 4f00: 20 74 68 65 20 6d 61 6e 75 61 6c 6c 79 20 6f 76 the manually ov 4f10: 65 72 72 69 64 64 65 6e 20 76 61 6c 75 65 20 66 erridden value f 4f20: 6f 72 20 74 68 65 20 44 61 74 65 54 69 6d 65 20 or the DateTime 4f30: 66 6f 72 6d 61 74 2e 0d 0a 20 20 20 20 20 20 20 format... 4f40: 20 23 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 #.. retu 4f50: 72 6e 20 24 3a 3a 64 61 74 65 74 69 6d 65 5f 66 rn$::datetime_f
4f60: 6f 72 6d 61 74 0d 0a 20 20 20 20 20 20 7d 20 65  ormat..      } e
4f70: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 23  lse {..        #
4f80: 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45  ..        # NOTE
4f90: 3a 20 52 65 74 75 72 6e 20 61 6e 20 49 53 4f 38  : Return an ISO8
4fa0: 36 30 31 20 44 61 74 65 54 69 6d 65 20 66 6f 72  601 DateTime for
4fb0: 6d 61 74 20 63 6f 6d 70 61 74 69 62 6c 65 20 77  mat compatible w
4fc0: 69 74 68 20 53 51 4c 69 74 65 2c 0d 0a 20 20 20  ith SQLite,..
4fd0: 20 20 20 20 20 23 20 20 20 20 20 20 20 53 79 73       #       Sys
4fe0: 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2c  tem.Data.SQLite,
4ff0: 20 61 6e 64 20 73 75 69 74 61 62 6c 65 20 66 6f   and suitable fo
5000: 72 20 72 6f 75 6e 64 2d 74 72 69 70 70 69 6e 67  r round-tripping
5010: 20 77 69 74 68 20 74 68 65 0d 0a 20 20 20 20 20   with the..
5020: 20 20 20 23 20 20 20 20 20 20 20 44 61 74 65 54     #       DateT
5030: 69 6d 65 20 63 6c 61 73 73 20 6f 66 20 74 68 65  ime class of the
5040: 20 66 72 61 6d 65 77 6f 72 6b 2e 20 20 49 66 20   framework.  If
5050: 74 68 69 73 20 76 61 6c 75 65 20 69 73 20 63 68  this value is ch
5060: 61 6e 67 65 64 2c 0d 0a 20 20 20 20 20 20 20 20  anged,..
5070: 23 20 20 20 20 20 20 20 76 61 72 69 6f 75 73 20  #       various
5080: 74 65 73 74 73 20 6d 61 79 20 66 61 69 6c 2e 0d  tests may fail..
5090: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20  .        #..
50a0: 20 20 20 20 72 65 74 75 72 6e 20 22 79 79 79 79      return "yyyy
50b0: 2d 4d 4d 2d 64 64 20 48 48 3a 6d 6d 3a 73 73 2e  -MM-dd HH:mm:ss.
50c0: 46 46 46 46 46 46 46 4b 22 0d 0a 20 20 20 20 20  FFFFFFFK"..
50d0: 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20   }..    }.....
50e0: 20 20 70 72 6f 63 20 65 6e 75 6d 65 72 61 62 6c    proc enumerabl
50f0: 65 54 6f 4c 69 73 74 20 7b 20 65 6e 75 6d 65 72  eToList { enumer
5100: 61 62 6c 65 20 7d 20 7b 0d 0a 20 20 20 20 20 20  able } {..
5110: 73 65 74 20 72 65 73 75 6c 74 20 5b 6c 69 73 74  set result [list
5120: 5d 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b  ]....      if {[
5130: 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 65  string length $e 5140: 6e 75 6d 65 72 61 62 6c 65 5d 20 3d 3d 20 30 20 numerable] == 0 5150: 7c 7c 20 24 65 6e 75 6d 65 72 61 62 6c 65 20 65 ||$enumerable e
5160: 71 20 22 6e 75 6c 6c 22 7d 20 74 68 65 6e 20 7b  q "null"} then {
5170: 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e  ..        return
5180: 20 24 72 65 73 75 6c 74 0d 0a 20 20 20 20 20 20   $result.. 5190: 7d 0d 0a 0d 0a 20 20 20 20 20 20 6f 62 6a 65 63 }.... objec 51a0: 74 20 66 6f 72 65 61 63 68 20 2d 61 6c 69 61 73 t foreach -alias 51b0: 20 69 74 65 6d 20 24 65 6e 75 6d 65 72 61 62 6c item$enumerabl
51c0: 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 69 66 20  e {..        if
51d0: 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20  {[string length
51e0: 24 69 74 65 6d 5d 20 3e 20 30 7d 20 74 68 65 6e  $item] > 0} then 51f0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 6c 61 {.. la 5200: 70 70 65 6e 64 20 72 65 73 75 6c 74 20 5b 24 69 ppend result [$i
5210: 74 65 6d 20 54 6f 53 74 72 69 6e 67 5d 0d 0a 20  tem ToString]..
5220: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20         }..
5230: 7d 0d 0a 0d 0a 20 20 20 20 20 20 72 65 74 75 72  }....      retur
5240: 6e 20 24 72 65 73 75 6c 74 0d 0a 20 20 20 20 7d  n $result.. } 5250: 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 63 61 ..... proc ca 5260: 74 63 68 41 6e 64 52 65 74 75 72 6e 20 7b 20 73 tchAndReturn { s 5270: 63 72 69 70 74 20 7b 73 74 61 63 6b 54 72 61 63 cript {stackTrac 5280: 65 20 66 61 6c 73 65 7d 20 7b 73 74 72 69 63 74 e false} {strict 5290: 20 74 72 75 65 7d 20 7d 20 7b 0d 0a 20 20 20 20 true} } {.. 52a0: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT 52b0: 45 3a 20 45 76 61 6c 75 61 74 65 20 74 68 65 20 E: Evaluate the 52c0: 73 63 72 69 70 74 20 70 72 6f 76 69 64 65 64 20 script provided 52d0: 62 79 20 6f 75 72 20 63 61 6c 6c 65 72 20 69 6e by our caller in 52e0: 20 74 68 65 69 72 20 63 6f 6e 74 65 78 74 2c 0d their context,. 52f0: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 63 . # c 5300: 61 70 74 75 72 69 6e 67 20 62 6f 74 68 20 74 68 apturing both th 5310: 65 20 72 65 73 75 6c 74 20 61 6e 64 20 74 68 65 e result and the 5320: 20 72 65 74 75 72 6e 20 63 6f 64 65 2e 0d 0a 20 return code... 5330: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 73 65 #.. se 5340: 74 20 63 6f 64 65 20 5b 63 61 74 63 68 20 7b 75 t code [catch {u 5350: 70 6c 65 76 65 6c 20 31 20 24 73 63 72 69 70 74 plevel 1$script
5360: 7d 20 72 65 73 75 6c 74 5d 0d 0a 0d 0a 20 20 20  } result]....
5370: 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f     #..      # NO
5380: 54 45 3a 20 44 69 64 20 74 68 65 20 73 63 72 69  TE: Did the scri
5390: 70 74 20 70 72 6f 76 69 64 65 64 20 62 79 20 6f  pt provided by o
53a0: 75 72 20 63 61 6c 6c 65 72 20 4e 4f 54 20 72 61  ur caller NOT ra
53b0: 69 73 65 20 61 6e 20 65 72 72 6f 72 3f 0d 0a 20  ise an error?..
53c0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66       #..      if
53d0: 20 7b 24 73 74 72 69 63 74 20 26 26 20 24 63 6f   {$strict &&$co
53e0: 64 65 20 3d 3d 20 30 20 7c 7c 20 21 24 73 74 72  de == 0 || !$str 53f0: 69 63 74 20 26 26 20 24 63 6f 64 65 20 21 3d 20 ict &&$code !=
5400: 31 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  1} then {..
5410: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20     #..        #
5420: 4e 4f 54 45 3a 20 53 75 63 63 65 73 73 2e 20 20  NOTE: Success.
5430: 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 77 69  Return a list wi
5440: 74 68 20 74 68 65 20 72 65 74 75 72 6e 20 63 6f  th the return co
5450: 64 65 20 61 6e 64 20 74 68 65 20 72 65 73 75 6c  de and the resul
5460: 74 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20  t...        #..
5470: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 5b 6c         return [l
5480: 69 73 74 20 24 63 6f 64 65 20 24 72 65 73 75 6c  ist $code$resul
5490: 74 5d 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65  t]..      } else
54a0: 69 66 20 7b 24 73 74 61 63 6b 54 72 61 63 65 7d  if {$stackTrace} 54b0: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 then {.. 54c0: 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f #.. # NO 54d0: 54 45 3a 20 46 61 69 6c 75 72 65 2e 20 20 4f 75 TE: Failure. Ou 54e0: 72 20 63 61 6c 6c 65 72 20 77 61 6e 74 73 20 61 r caller wants a 54f0: 20 66 75 6c 6c 20 73 74 61 63 6b 20 74 72 61 63 full stack trac 5500: 65 20 28 69 66 20 61 70 70 6c 69 63 61 62 6c 65 e (if applicable 5510: 29 2c 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 ),.. # 5520: 20 20 20 20 72 65 74 75 72 6e 20 61 20 6c 69 73 return a lis 5530: 74 20 77 69 74 68 20 74 68 65 20 72 65 74 75 72 t with the retur 5540: 6e 20 63 6f 64 65 20 61 6e 64 20 74 68 65 20 72 n code and the r 5550: 65 73 75 6c 74 20 76 65 72 62 61 74 69 6d 2e 0d esult verbatim.. 5560: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #.. 5570: 20 20 20 20 72 65 74 75 72 6e 20 5b 6c 69 73 74 return [list 5580: 20 24 63 6f 64 65 20 24 72 65 73 75 6c 74 5d 0d$code $result]. 5590: 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d . } else {. 55a0: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #.. 55b0: 20 20 20 20 23 20 4e 4f 54 45 3a 20 46 61 69 6c # NOTE: Fail 55c0: 75 72 65 2e 20 20 4f 75 72 20 63 61 6c 6c 65 72 ure. Our caller 55d0: 20 64 6f 65 73 20 6e 6f 74 20 77 61 6e 74 20 61 does not want a 55e0: 20 66 75 6c 6c 20 73 74 61 63 6b 20 74 72 61 63 full stack trac 55f0: 65 20 28 69 66 0d 0a 20 20 20 20 20 20 20 20 23 e (if.. # 5600: 20 20 20 20 20 20 20 61 70 70 6c 69 63 61 62 6c applicabl 5610: 65 29 2c 20 72 65 74 75 72 6e 20 61 20 6c 69 73 e), return a lis 5620: 74 20 77 69 74 68 20 74 68 65 20 72 65 74 75 72 t with the retur 5630: 6e 20 63 6f 64 65 2c 20 74 68 65 20 65 72 72 6f n code, the erro 5640: 72 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 r.. # 5650: 20 20 20 63 6f 64 65 20 66 6f 72 20 74 68 65 20 code for the 5660: 69 6e 74 65 72 70 72 65 74 65 72 2c 20 61 6e 64 interpreter, and 5670: 20 74 68 65 20 65 72 72 6f 72 20 6d 65 73 73 61 the error messa 5680: 67 65 20 75 70 20 74 6f 20 74 68 65 0d 0a 20 20 ge up to the.. 5690: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 70 6f # po 56a0: 69 6e 74 20 77 68 65 72 65 20 74 68 65 20 73 74 int where the st 56b0: 61 63 6b 20 74 72 61 63 65 20 73 68 6f 75 6c 64 ack trace should 56c0: 20 73 74 61 72 74 2e 0d 0a 20 20 20 20 20 20 20 start... 56d0: 20 23 0d 0a 20 20 20 20 20 20 20 20 73 65 74 20 #.. set 56e0: 69 6e 64 65 78 20 5b 73 74 72 69 6e 67 20 66 69 index [string fi 56f0: 72 73 74 20 22 20 20 20 61 74 20 22 20 24 72 65 rst " at "$re
5700: 73 75 6c 74 5d 3b 20 23 20 48 41 43 4b 3a 20 52  sult]; # HACK: R
5710: 65 6c 69 61 62 6c 65 3f 0d 0a 0d 0a 20 20 20 20  eliable?....
5720: 20 20 20 20 72 65 74 75 72 6e 20 5b 6c 69 73 74      return [list
5730: 20 24 63 6f 64 65 20 24 3a 3a 65 72 72 6f 72 43   $code$::errorC
5740: 6f 64 65 20 5b 65 78 70 72 20 7b 24 69 6e 64 65  ode [expr {$inde 5750: 78 20 21 3d 20 2d 31 20 3f 20 5c 0d 0a 20 20 20 x != -1 ? \.. 5760: 20 20 20 20 20 20 20 20 20 5b 73 74 72 69 6e 67 [string 5770: 20 74 72 69 6d 20 5b 73 74 72 69 6e 67 20 72 61 trim [string ra 5780: 6e 67 65 20 24 72 65 73 75 6c 74 20 30 20 24 69 nge$result 0 $i 5790: 6e 64 65 78 5d 5d 20 3a 20 24 72 65 73 75 6c 74 ndex]] :$result
57a0: 7d 5d 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20  }]]..      }..
57b0: 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63    }.....    proc
57c0: 20 63 6f 6d 70 69 6c 65 43 53 68 61 72 70 57 69   compileCSharpWi
57d0: 74 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20  th {..
57e0: 20 20 74 65 78 74 20 6d 65 6d 6f 72 79 20 73 79    text memory sy
57f0: 6d 62 6f 6c 73 20 73 74 72 69 63 74 20 72 65 73  mbols strict res
5800: 75 6c 74 73 56 61 72 4e 61 6d 65 20 65 72 72 6f  ultsVarName erro
5810: 72 73 56 61 72 4e 61 6d 65 20 66 69 6c 65 4e 61  rsVarName fileNa
5820: 6d 65 73 0d 0a 20 20 20 20 20 20 20 20 20 20 20  mes..
5830: 20 61 72 67 73 20 7d 20 7b 0d 0a 20 20 20 20 20   args } {..
5840: 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45   #..      # NOTE
5850: 3a 20 53 69 6e 63 65 20 77 65 20 61 72 65 20 67  : Since we are g
5860: 6f 69 6e 67 20 74 6f 20 75 73 65 20 74 68 69 73  oing to use this
5870: 20 6d 65 74 68 6f 64 20 6e 61 6d 65 20 61 20 6c   method name a l
5880: 6f 74 2c 20 61 73 73 69 67 6e 20 69 74 20 74 6f  ot, assign it to
5890: 20 61 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20   a..      #
58a0: 20 20 76 61 72 69 61 62 6c 65 20 66 69 72 73 74    variable first
58b0: 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20  ...      #..
58c0: 20 20 73 65 74 20 61 64 64 20 52 65 66 65 72 65    set add Refere
58d0: 6e 63 65 64 41 73 73 65 6d 62 6c 69 65 73 2e 41  ncedAssemblies.A
58e0: 64 64 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20  dd....      #..
58f0: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 43 72 65       # NOTE: Cre
5900: 61 74 65 20 74 68 65 20 62 61 73 65 20 63 6f 6d  ate the base com
5910: 6d 61 6e 64 20 74 6f 20 65 76 61 6c 75 61 74 65  mand to evaluate
5920: 20 61 6e 64 20 61 64 64 20 74 68 65 20 70 72 6f   and add the pro
5930: 70 65 72 74 79 20 73 65 74 74 69 6e 67 73 0d 0a  perty settings..
5940: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 74 68        #       th
5950: 61 74 20 61 72 65 20 61 6c 6d 6f 73 74 20 61 6c  at are almost al
5960: 77 61 79 73 20 6e 65 65 64 65 64 20 62 79 20 6f  ways needed by o
5970: 75 72 20 75 6e 69 74 20 74 65 73 74 73 20 28 69  ur unit tests (i
5980: 2e 65 2e 20 74 68 65 20 53 79 73 74 65 6d 0d 0a  .e. the System..
5990: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 61 6e        #       an
59a0: 64 20 53 79 73 74 65 6d 2e 44 61 74 61 20 61 73  d System.Data as
59b0: 73 65 6d 62 6c 79 20 72 65 66 65 72 65 6e 63 65  sembly reference
59c0: 73 29 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  s)...      #..
59d0: 20 20 20 20 73 65 74 20 63 6f 6d 6d 61 6e 64 20      set command
59e0: 5b 6c 69 73 74 20 63 6f 6d 70 69 6c 65 43 53 68  [list compileCSh
59f0: 61 72 70 20 24 74 65 78 74 20 24 6d 65 6d 6f 72  arp $text$memor
5a00: 79 20 24 73 79 6d 62 6f 6c 73 20 24 73 74 72 69  y $symbols$stri
5a10: 63 74 20 72 65 73 75 6c 74 73 20 5c 0d 0a 20 20  ct results \..
5a20: 20 20 20 20 20 20 20 20 65 72 72 6f 72 73 20 24          errors $5a30: 61 64 64 20 53 79 73 74 65 6d 2e 64 6c 6c 20 24 add System.dll$
5a40: 61 64 64 20 53 79 73 74 65 6d 2e 44 61 74 61 2e  add System.Data.
5a50: 64 6c 6c 20 24 61 64 64 20 53 79 73 74 65 6d 2e  dll $add System. 5a60: 58 6d 6c 2e 64 6c 6c 5d 0d 0a 0d 0a 20 20 20 20 Xml.dll].... 5a70: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT 5a80: 45 3a 20 41 64 64 20 61 6c 6c 20 74 68 65 20 70 E: Add all the p 5a90: 72 6f 76 69 64 65 64 20 66 69 6c 65 20 6e 61 6d rovided file nam 5aa0: 65 73 20 61 73 20 61 73 73 65 6d 62 6c 79 20 72 es as assembly r 5ab0: 65 66 65 72 65 6e 63 65 73 2e 0d 0a 20 20 20 20 eferences... 5ac0: 20 20 23 0d 0a 20 20 20 20 20 20 66 6f 72 65 61 #.. forea 5ad0: 63 68 20 66 69 6c 65 4e 61 6d 65 20 24 66 69 6c ch fileName$fil
5ae0: 65 4e 61 6d 65 73 20 7b 0d 0a 20 20 20 20 20 20  eNames {..
5af0: 20 20 6c 61 70 70 65 6e 64 20 63 6f 6d 6d 61 6e    lappend comman
5b00: 64 20 24 61 64 64 20 5b 67 65 74 42 69 6e 61 72  d $add [getBinar 5b10: 79 46 69 6c 65 4e 61 6d 65 20 24 66 69 6c 65 4e yFileName$fileN
5b20: 61 6d 65 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d  ame]..      }...
5b30: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20  .      #..
5b40: 23 20 4e 4f 54 45 3a 20 41 64 64 20 74 68 65 20  # NOTE: Add the
5b50: 65 78 74 72 61 20 61 72 67 75 6d 65 6e 74 73 2c  extra arguments,
5b60: 20 69 66 20 61 6e 79 2c 20 74 6f 20 74 68 65 20   if any, to the
5b70: 63 6f 6d 6d 61 6e 64 20 74 6f 20 65 76 61 6c 75  command to evalu
5b80: 61 74 65 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20  ate...      #..
5b90: 20 20 20 20 20 65 76 61 6c 20 6c 61 70 70 65 6e       eval lappen
5ba0: 64 20 63 6f 6d 6d 61 6e 64 20 24 61 72 67 73 0d  d command $args. 5bb0: 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 ... #.. 5bc0: 20 20 23 20 4e 4f 54 45 3a 20 41 6c 69 61 73 20 # NOTE: Alias 5bd0: 74 68 65 20 63 6f 6d 70 69 6c 65 72 20 6c 6f 63 the compiler loc 5be0: 61 6c 20 72 65 73 75 6c 74 73 20 61 6e 64 20 65 al results and e 5bf0: 72 72 6f 72 73 20 76 61 72 69 61 62 6c 65 73 20 rrors variables 5c00: 74 6f 20 74 68 65 0d 0a 20 20 20 20 20 20 23 20 to the.. # 5c10: 20 20 20 20 20 20 76 61 72 69 61 62 6c 65 20 6e variable n 5c20: 61 6d 65 73 20 70 72 6f 76 69 64 65 64 20 62 79 ames provided by 5c30: 20 6f 75 72 20 63 61 6c 6c 65 72 2e 0d 0a 20 20 our caller... 5c40: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 75 70 76 #.. upv 5c50: 61 72 20 31 20 24 72 65 73 75 6c 74 73 56 61 72 ar 1$resultsVar
5c60: 4e 61 6d 65 20 72 65 73 75 6c 74 73 0d 0a 20 20  Name results..
5c70: 20 20 20 20 75 70 76 61 72 20 31 20 24 65 72 72      upvar 1 $err 5c80: 6f 72 73 56 61 72 4e 61 6d 65 20 65 72 72 6f 72 orsVarName error 5c90: 73 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 s.... #.. 5ca0: 20 20 20 20 23 20 4e 4f 54 45 3a 20 45 76 61 6c # NOTE: Eval 5cb0: 75 61 74 65 20 74 68 65 20 63 6f 6e 73 74 72 75 uate the constru 5cc0: 63 74 65 64 20 5b 63 6f 6d 70 69 6c 65 43 53 68 cted [compileCSh 5cd0: 61 72 70 5d 20 63 6f 6d 6d 61 6e 64 20 61 6e 64 arp] command and 5ce0: 20 72 65 74 75 72 6e 20 74 68 65 0d 0a 20 20 20 return the.. 5cf0: 20 20 20 23 20 20 20 20 20 20 20 72 65 73 75 6c # resul 5d00: 74 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 t... #.. 5d10: 20 20 20 65 76 61 6c 20 24 63 6f 6d 6d 61 6e 64 eval$command
5d20: 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20  ..    }.....
5d30: 70 72 6f 63 20 69 73 4d 65 6d 6f 72 79 44 62 20  proc isMemoryDb
5d40: 7b 20 66 69 6c 65 4e 61 6d 65 20 7d 20 7b 0d 0a  { fileName } {..
5d50: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23        #..      #
5d60: 20 4e 4f 54 45 3a 20 49 73 20 74 68 65 20 73 70   NOTE: Is the sp
5d70: 65 63 69 66 69 65 64 20 64 61 74 61 62 61 73 65  ecified database
5d80: 20 66 69 6c 65 20 6e 61 6d 65 20 72 65 61 6c 6c   file name reall
5d90: 79 20 61 6e 20 69 6e 2d 6d 65 6d 6f 72 79 20 64  y an in-memory d
5da0: 61 74 61 62 61 73 65 3f 0d 0a 20 20 20 20 20 20  atabase?..
5db0: 23 0d 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20  #..      return
5dc0: 5b 65 78 70 72 20 7b 24 66 69 6c 65 4e 61 6d 65  [expr {$fileName 5dd0: 20 65 71 20 22 3a 6d 65 6d 6f 72 79 3a 22 20 7c eq ":memory:" | 5de0: 7c 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 5b | \.. [ 5df0: 73 74 72 69 6e 67 20 72 61 6e 67 65 20 24 66 69 string range$fi
5e00: 6c 65 4e 61 6d 65 20 30 20 31 32 5d 20 65 71 20  leName 0 12] eq
5e10: 22 66 69 6c 65 3a 3a 6d 65 6d 6f 72 79 3a 22 7d  "file::memory:"}
5e20: 5d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20  ]..    }.....
5e30: 20 70 72 6f 63 20 73 65 74 75 70 44 62 20 7b 0d   proc setupDb {.
5e40: 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6c  .            fil
5e50: 65 4e 61 6d 65 20 7b 6d 6f 64 65 20 22 22 7d 20  eName {mode ""}
5e60: 7b 64 61 74 65 54 69 6d 65 46 6f 72 6d 61 74 20  {dateTimeFormat
5e70: 22 22 7d 20 7b 64 61 74 65 54 69 6d 65 4b 69 6e  ""} {dateTimeKin
5e80: 64 20 22 22 7d 20 7b 66 6c 61 67 73 20 22 22 7d  d ""} {flags ""}
5e90: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 7b 65  ..            {e
5ea0: 78 74 72 61 20 22 22 7d 20 7b 71 75 61 6c 69 66  xtra ""} {qualif
5eb0: 79 20 74 72 75 65 7d 20 7b 64 65 6c 65 74 65 20  y true} {delete
5ec0: 74 72 75 65 7d 20 7b 75 72 69 20 66 61 6c 73 65  true} {uri false
5ed0: 7d 20 7b 76 61 72 4e 61 6d 65 20 64 62 7d 20 7d  } {varName db} }
5ee0: 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20   {..      #..
5ef0: 20 20 20 23 20 4e 4f 54 45 3a 20 46 69 72 73 74     # NOTE: First
5f00: 2c 20 73 65 65 20 69 66 20 6f 75 72 20 63 61 6c  , see if our cal
5f10: 6c 65 72 20 68 61 73 20 72 65 71 75 65 73 74 65  ler has requeste
5f20: 64 20 61 6e 20 69 6e 2d 6d 65 6d 6f 72 79 20 64  d an in-memory d
5f30: 61 74 61 62 61 73 65 2e 0d 0a 20 20 20 20 20 20  atabase...
5f40: 23 0d 0a 20 20 20 20 20 20 73 65 74 20 69 73 4d  #..      set isM
5f50: 65 6d 6f 72 79 20 5b 69 73 4d 65 6d 6f 72 79 44  emory [isMemoryD
5f60: 62 20 24 66 69 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a  b $fileName].... 5f70: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 #.. # 5f80: 20 4e 4f 54 45 3a 20 46 6f 72 20 6e 6f 77 2c 20 NOTE: For now, 5f90: 61 6c 6c 20 74 65 73 74 20 64 61 74 61 62 61 73 all test databas 5fa0: 65 73 20 75 73 65 64 20 62 79 20 74 68 65 20 74 es used by the t 5fb0: 65 73 74 20 73 75 69 74 65 20 61 72 65 20 70 6c est suite are pl 5fc0: 61 63 65 64 20 69 6e 74 6f 0d 0a 20 20 20 20 20 aced into.. 5fd0: 20 23 20 20 20 20 20 20 20 74 68 65 20 74 65 6d # the tem 5fe0: 70 6f 72 61 72 79 20 64 69 72 65 63 74 6f 72 79 porary directory 5ff0: 2e 20 20 45 61 63 68 20 64 61 74 61 62 61 73 65 . Each database 6000: 20 75 73 65 64 20 62 79 20 61 20 74 65 73 74 20 used by a test 6010: 73 68 6f 75 6c 64 20 62 65 0d 0a 20 20 20 20 20 should be.. 6020: 20 23 20 20 20 20 20 20 20 63 6c 65 61 6e 65 64 # cleaned 6030: 20 75 70 20 62 79 20 74 68 61 74 20 74 65 73 74 up by that test 6040: 20 75 73 69 6e 67 20 74 68 65 20 22 63 6c 65 61 using the "clea 6050: 6e 75 70 44 62 22 20 70 72 6f 63 65 64 75 72 65 nupDb" procedure 6060: 2c 20 62 65 6c 6f 77 2e 0d 0a 20 20 20 20 20 20 , below... 6070: 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 21 24 69 #.. if {!$i
6080: 73 4d 65 6d 6f 72 79 20 26 26 20 24 71 75 61 6c  sMemory && $qual 6090: 69 66 79 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 ify} then {.. 60a0: 20 20 20 20 20 73 65 74 20 66 69 6c 65 4e 61 6d set fileNam 60b0: 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 67 65 e [file join [ge 60c0: 74 44 61 74 61 62 61 73 65 44 69 72 65 63 74 6f tDatabaseDirecto 60d0: 72 79 5d 20 5b 66 69 6c 65 20 74 61 69 6c 20 24 ry] [file tail$
60e0: 66 69 6c 65 4e 61 6d 65 5d 5d 0d 0a 20 20 20 20  fileName]]..
60f0: 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a    }....      #..
6100: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 42 79        # NOTE: By
6110: 20 64 65 66 61 75 6c 74 2c 20 64 65 6c 65 74 65   default, delete
6120: 20 61 6e 79 20 70 72 65 2d 65 78 69 73 74 69 6e   any pre-existin
6130: 67 20 64 61 74 61 62 61 73 65 20 77 69 74 68 20  g database with
6140: 74 68 65 20 73 61 6d 65 20 66 69 6c 65 0d 0a 20  the same file..
6150: 20 20 20 20 20 23 20 20 20 20 20 20 20 6e 61 6d       #       nam
6160: 65 20 69 66 20 69 74 20 63 75 72 72 65 6e 74 6c  e if it currentl
6170: 79 20 65 78 69 73 74 73 2e 0d 0a 20 20 20 20 20  y exists...
6180: 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 21 24   #..      if {!$6190: 69 73 4d 65 6d 6f 72 79 20 26 26 20 24 64 65 6c isMemory &&$del
61a0: 65 74 65 20 26 26 20 5b 66 69 6c 65 20 65 78 69  ete && [file exi
61b0: 73 74 73 20 24 66 69 6c 65 4e 61 6d 65 5d 7d 20  sts $fileName]} 61c0: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 then {.. 61d0: 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT 61e0: 45 3a 20 41 74 74 65 6d 70 74 20 74 6f 20 64 65 E: Attempt to de 61f0: 6c 65 74 65 20 61 6e 79 20 70 72 65 2d 65 78 69 lete any pre-exi 6200: 73 74 69 6e 67 20 64 61 74 61 62 61 73 65 20 77 sting database w 6210: 69 74 68 20 74 68 65 20 73 61 6d 65 20 66 69 6c ith the same fil 6220: 65 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 e.. # 6230: 20 20 20 6e 61 6d 65 2e 0d 0a 20 20 20 20 20 20 name... 6240: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 69 66 20 #.. if 6250: 7b 5b 63 61 74 63 68 20 7b 66 69 6c 65 20 64 65 {[catch {file de 6260: 6c 65 74 65 20 24 66 69 6c 65 4e 61 6d 65 7d 20 lete$fileName}
6270: 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a  error]} then {..
6280: 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20            #..
6290: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 57         # NOTE: W
62a0: 65 20 73 6f 6d 65 68 6f 77 20 66 61 69 6c 65 64  e somehow failed
62b0: 20 74 6f 20 64 65 6c 65 74 65 20 74 68 65 20 66   to delete the f
62c0: 69 6c 65 2c 20 72 65 70 6f 72 74 20 77 68 79 2e  ile, report why.
62d0: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20  ..          #..
62e0: 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24           tputs $62f0: 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b ::test_channel [ 6300: 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 appendArgs \.. 6310: 20 20 20 20 20 20 20 20 20 20 20 20 22 3d 3d 3d "=== 6320: 3d 20 57 41 52 4e 49 4e 47 3a 20 66 61 69 6c 65 = WARNING: faile 6330: 64 20 74 6f 20 64 65 6c 65 74 65 20 64 61 74 61 d to delete data 6340: 62 61 73 65 20 66 69 6c 65 20 5c 22 22 20 24 66 base file \""$f
6350: 69 6c 65 4e 61 6d 65 20 5c 0d 0a 20 20 20 20 20  ileName \..
6360: 20 20 20 20 20 20 20 20 20 22 5c 22 20 64 75 72           "\" dur
6370: 69 6e 67 20 73 65 74 75 70 2c 20 65 72 72 6f 72  ing setup, error
6380: 3a 20 22 20 5c 6e 5c 74 20 24 65 72 72 6f 72 20  : " \n\t $error 6390: 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a \n].. }.. 63a0: 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 }.... 63b0: 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 #.. # NOTE 63c0: 3a 20 52 65 66 65 72 20 74 6f 20 74 68 65 20 73 : Refer to the s 63d0: 70 65 63 69 66 69 65 64 20 76 61 72 69 61 62 6c pecified variabl 63e0: 65 20 28 65 2e 67 2e 20 22 64 62 22 29 20 69 6e e (e.g. "db") in 63f0: 20 74 68 65 20 63 6f 6e 74 65 78 74 20 6f 66 20 the context of 6400: 6f 75 72 0d 0a 20 20 20 20 20 20 23 20 20 20 20 our.. # 6410: 20 20 20 63 61 6c 6c 65 72 2e 20 20 54 68 65 20 caller. The 6420: 68 61 6e 64 6c 65 20 74 6f 20 74 68 65 20 6f 70 handle to the op 6430: 65 6e 65 64 20 64 61 74 61 62 61 73 65 20 77 69 ened database wi 6440: 6c 6c 20 62 65 20 73 74 6f 72 65 64 20 74 68 65 ll be stored the 6450: 72 65 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 re... #.. 6460: 20 20 20 20 75 70 76 61 72 20 31 20 24 76 61 72 upvar 1$var
6470: 4e 61 6d 65 20 64 62 0d 0a 0d 0a 20 20 20 20 20  Name db....
6480: 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45   #..      # NOTE
6490: 3a 20 53 74 61 72 74 20 62 75 69 6c 64 69 6e 67  : Start building
64a0: 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20   the connection
64b0: 73 74 72 69 6e 67 2e 20 20 54 68 65 20 6f 6e 6c  string.  The onl
64c0: 79 20 72 65 71 75 69 72 65 64 20 70 6f 72 74 69  y required porti
64d0: 6f 6e 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20  on..      #
64e0: 20 20 6f 66 20 74 68 65 20 63 6f 6e 6e 65 63 74    of the connect
64f0: 69 6f 6e 20 73 74 72 69 6e 67 20 69 73 20 74 68  ion string is th
6500: 65 20 64 61 74 61 20 73 6f 75 72 63 65 2c 20 77  e data source, w
6510: 68 69 63 68 20 63 6f 6e 74 61 69 6e 73 20 74 68  hich contains th
6520: 65 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20  e..      #
6530: 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 20 6e   database file n
6540: 61 6d 65 20 69 74 73 65 6c 66 2e 20 20 49 66 20  ame itself.  If
6550: 6f 75 72 20 63 61 6c 6c 65 72 20 77 61 6e 74 73  our caller wants
6560: 20 74 6f 20 75 73 65 20 61 20 55 52 49 20 61 73   to use a URI as
6570: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20  ..      #
6580: 74 68 65 20 64 61 74 61 20 73 6f 75 72 63 65 2c  the data source,
6590: 20 75 73 65 20 74 68 65 20 46 75 6c 6c 55 72 69   use the FullUri
65a0: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 72 69   connection stri
65b0: 6e 67 20 70 72 6f 70 65 72 74 79 20 74 6f 0d 0a  ng property to..
65c0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 70 72        #       pr
65d0: 65 76 65 6e 74 20 74 68 65 20 64 61 74 61 20 73  event the data s
65e0: 6f 75 72 63 65 20 73 74 72 69 6e 67 20 66 72 6f  ource string fro
65f0: 6d 20 62 65 69 6e 67 20 6d 61 6e 67 6c 65 64 2e  m being mangled.
6600: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20  ..      #..
6610: 20 69 66 20 7b 24 75 72 69 7d 20 74 68 65 6e 20   if {$uri} then 6620: 7b 0d 0a 20 20 20 20 20 20 20 20 73 65 74 20 63 {.. set c 6630: 6f 6e 6e 65 63 74 69 6f 6e 20 7b 46 75 6c 6c 55 onnection {FullU 6640: 72 69 3d 24 7b 66 69 6c 65 4e 61 6d 65 7d 7d 0d ri=${fileName}}.
6650: 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d  .      } else {.
6660: 0a 20 20 20 20 20 20 20 20 73 65 74 20 63 6f 6e  .        set con
6670: 6e 65 63 74 69 6f 6e 20 7b 44 61 74 61 20 53 6f  nection {Data So
6680: 75 72 63 65 3d 24 7b 66 69 6c 65 4e 61 6d 65 7d  urce=${fileName} 6690: 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 }.. }.... 66a0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e #.. # N 66b0: 4f 54 45 3a 20 53 69 6e 63 65 20 74 68 69 73 20 OTE: Since this 66c0: 70 72 6f 63 65 64 75 72 65 20 68 61 73 20 6e 6f procedure has no 66d0: 20 73 70 65 63 69 61 6c 20 6b 6e 6f 77 6c 65 64 special knowled 66e0: 67 65 20 6f 66 20 77 68 61 74 20 74 68 65 20 64 ge of what the d 66f0: 65 66 61 75 6c 74 0d 0a 20 20 20 20 20 20 23 20 efault.. # 6700: 20 20 20 20 20 20 73 65 74 74 69 6e 67 20 69 73 setting is 6710: 20 66 6f 72 20 74 68 65 20 54 6f 46 75 6c 6c 50 for the ToFullP 6720: 61 74 68 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 ath connection s 6730: 74 72 69 6e 67 20 70 72 6f 70 65 72 79 2c 20 61 tring propery, a 6740: 6c 77 61 79 73 0d 0a 20 20 20 20 20 20 23 20 20 lways.. # 6750: 20 20 20 20 20 61 64 64 20 74 68 65 20 76 61 6c add the val 6760: 75 65 20 77 65 20 6b 6e 6f 77 20 61 62 6f 75 74 ue we know about 6770: 20 74 6f 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 to the connecti 6780: 6f 6e 20 73 74 72 69 6e 67 2e 0d 0a 20 20 20 20 on string... 6790: 20 20 23 0d 0a 20 20 20 20 20 20 61 70 70 65 6e #.. appen 67a0: 64 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 7b 3b 54 d connection {;T 67b0: 6f 46 75 6c 6c 50 61 74 68 3d 24 7b 71 75 61 6c oFullPath=${qual
67c0: 69 66 79 7d 7d 0d 0a 0d 0a 20 20 20 20 20 20 23  ify}}....      #
67d0: 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20  ..      # NOTE:
67e0: 49 66 20 6f 75 72 20 63 61 6c 6c 65 72 20 73 70  If our caller sp
67f0: 65 63 69 66 69 65 64 20 61 20 6a 6f 75 72 6e 61  ecified a journa
6800: 6c 20 6d 6f 64 65 2c 20 61 64 64 20 74 68 65 20  l mode, add the
6810: 6e 65 63 65 73 73 61 72 79 20 70 6f 72 74 69 6f  necessary portio
6820: 6e 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20  n..      #
6830: 20 6f 66 20 74 68 65 20 63 6f 6e 6e 65 63 74 69   of the connecti
6840: 6f 6e 20 73 74 72 69 6e 67 20 6e 6f 77 2e 0d 0a  on string now...
6850: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69        #..      i
6860: 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74  f {[string lengt
6870: 68 20 24 6d 6f 64 65 5d 20 3e 20 30 7d 20 74 68  h $mode] > 0} th 6880: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 61 70 en {.. ap 6890: 70 65 6e 64 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 pend connection 68a0: 7b 3b 4a 6f 75 72 6e 61 6c 20 4d 6f 64 65 3d 24 {;Journal Mode=$
68b0: 7b 6d 6f 64 65 7d 7d 0d 0a 20 20 20 20 20 20 7d  {mode}}..      }
68c0: 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20  ....      #..
68d0: 20 20 20 23 20 4e 4f 54 45 3a 20 49 66 20 6f 75     # NOTE: If ou
68e0: 72 20 63 61 6c 6c 65 72 20 73 70 65 63 69 66 69  r caller specifi
68f0: 65 64 20 61 20 44 61 74 65 54 69 6d 65 20 66 6f  ed a DateTime fo
6900: 72 6d 61 74 2c 20 61 64 64 20 74 68 65 20 6e 65  rmat, add the ne
6910: 63 65 73 73 61 72 79 0d 0a 20 20 20 20 20 20 23  cessary..      #
6920: 20 20 20 20 20 20 20 70 6f 72 74 69 6f 6e 20 6f         portion o
6930: 66 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e  f the connection
6940: 20 73 74 72 69 6e 67 20 6e 6f 77 2e 0d 0a 20 20   string now...
6950: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20      #..      if
6960: 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20  {[string length
6970: 24 64 61 74 65 54 69 6d 65 46 6f 72 6d 61 74 5d  $dateTimeFormat] 6980: 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 > 0} then {.. 6990: 20 20 20 20 20 20 61 70 70 65 6e 64 20 63 6f 6e append con 69a0: 6e 65 63 74 69 6f 6e 20 7b 3b 44 61 74 65 54 69 nection {;DateTi 69b0: 6d 65 46 6f 72 6d 61 74 3d 24 7b 64 61 74 65 54 meFormat=${dateT
69c0: 69 6d 65 46 6f 72 6d 61 74 7d 7d 0d 0a 20 20 20  imeFormat}}..
69d0: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d     }....      #.
69e0: 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 49  .      # NOTE: I
69f0: 66 20 6f 75 72 20 63 61 6c 6c 65 72 20 73 70 65  f our caller spe
6a00: 63 69 66 69 65 64 20 61 20 44 61 74 65 54 69 6d  cified a DateTim
6a10: 65 4b 69 6e 64 2c 20 61 64 64 20 74 68 65 20 6e  eKind, add the n
6a20: 65 63 65 73 73 61 72 79 20 70 6f 72 74 69 6f 6e  ecessary portion
6a30: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20  ..      #
6a40: 6f 66 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f  of the connectio
6a50: 6e 20 73 74 72 69 6e 67 20 6e 6f 77 2e 0d 0a 20  n string now...
6a60: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66       #..      if
6a70: 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68   {[string length
6a80: 20 24 64 61 74 65 54 69 6d 65 4b 69 6e 64 5d 20   $dateTimeKind] 6a90: 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 > 0} then {.. 6aa0: 20 20 20 20 20 61 70 70 65 6e 64 20 63 6f 6e 6e append conn 6ab0: 65 63 74 69 6f 6e 20 7b 3b 44 61 74 65 54 69 6d ection {;DateTim 6ac0: 65 4b 69 6e 64 3d 24 7b 64 61 74 65 54 69 6d 65 eKind=${dateTime
6ad0: 4b 69 6e 64 7d 7d 0d 0a 20 20 20 20 20 20 7d 0d  Kind}}..      }.
6ae0: 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20  ...      #..
6af0: 20 20 23 20 4e 4f 54 45 3a 20 49 66 20 74 68 65    # NOTE: If the
6b00: 72 65 20 61 72 65 20 61 6e 79 20 67 6c 6f 62 61  re are any globa
6b10: 6c 20 28 70 65 72 20 74 65 73 74 20 72 75 6e 29  l (per test run)
6b20: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 6c 61 67   connection flag
6b30: 73 20 63 75 72 72 65 6e 74 6c 79 0d 0a 20 20 20  s currently..
6b40: 20 20 20 23 20 20 20 20 20 20 20 73 65 74 2c 20     #       set,
6b50: 75 73 65 20 74 68 65 6d 20 6e 6f 77 20 28 69 2e  use them now (i.
6b60: 65 2e 20 62 79 20 63 6f 6d 62 69 6e 69 6e 67 20  e. by combining
6b70: 74 68 65 6d 20 77 69 74 68 20 74 68 65 20 6f 6e  them with the on
6b80: 65 73 20 66 6f 72 20 74 68 69 73 0d 0a 20 20 20  es for this..
6b90: 20 20 20 23 20 20 20 20 20 20 20 63 6f 6e 6e 65     #       conne
6ba0: 63 74 69 6f 6e 29 2e 0d 0a 20 20 20 20 20 20 23  ction)...      #
6bb0: 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 69 6e 66  ..      if {[inf
6bc0: 6f 20 65 78 69 73 74 73 20 3a 3a 63 6f 6e 6e 65  o exists ::conne
6bd0: 63 74 69 6f 6e 5f 66 6c 61 67 73 5d 20 26 26 20  ction_flags] &&
6be0: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 5b 73 74  \..          [st
6bf0: 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 3a 3a 63  ring length $::c 6c00: 6f 6e 6e 65 63 74 69 6f 6e 5f 66 6c 61 67 73 5d onnection_flags] 6c10: 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 > 0} then {.. 6c20: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #.. 6c30: 20 23 20 4e 4f 54 45 3a 20 53 68 6f 77 20 28 61 # NOTE: Show (a 6c40: 6e 64 20 6c 6f 67 29 20 74 68 61 74 20 77 65 20 nd log) that we 6c50: 64 65 74 65 63 74 65 64 20 73 6f 6d 65 20 67 6c detected some gl 6c60: 6f 62 61 6c 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 obal connection 6c70: 66 6c 61 67 73 2e 0d 0a 20 20 20 20 20 20 20 20 flags... 6c80: 23 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 #.. tputs 6c90: 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c$::test_channel
6ca0: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a   [appendArgs \..
6cb0: 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d              "---
6cc0: 2d 20 67 6c 6f 62 61 6c 20 63 6f 6e 6e 65 63 74  - global connect
6cd0: 69 6f 6e 20 66 6c 61 67 73 20 64 65 74 65 63 74  ion flags detect
6ce0: 65 64 3a 20 22 20 24 3a 3a 63 6f 6e 6e 65 63 74  ed: " $::connect 6cf0: 69 6f 6e 5f 66 6c 61 67 73 20 5c 6e 5d 0d 0a 0d ion_flags \n]... 6d00: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #.. 6d10: 20 20 20 20 23 20 4e 4f 54 45 3a 20 43 6f 6d 62 # NOTE: Comb 6d20: 69 6e 65 20 61 6e 64 2f 6f 72 20 72 65 70 6c 61 ine and/or repla 6d30: 63 65 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f ce the connectio 6d40: 6e 20 66 6c 61 67 73 20 61 6e 64 20 74 68 65 6e n flags and then 6d50: 20 73 68 6f 77 20 74 68 65 0d 0a 20 20 20 20 20 show the.. 6d60: 20 20 20 23 20 20 20 20 20 20 20 6e 65 77 20 76 # new v 6d70: 61 6c 75 65 2e 0d 0a 20 20 20 20 20 20 20 20 23 alue... # 6d80: 0d 0a 20 20 20 20 20 20 20 20 73 65 74 20 66 6c .. set fl 6d90: 61 67 73 20 5b 63 6f 6d 62 69 6e 65 46 6c 61 67 ags [combineFlag 6da0: 73 20 24 66 6c 61 67 73 20 24 3a 3a 63 6f 6e 6e s$flags $::conn 6db0: 65 63 74 69 6f 6e 5f 66 6c 61 67 73 5d 0d 0a 0d ection_flags]... 6dc0: 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 . tputs$
6dd0: 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b  ::test_channel [
6de0: 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20  appendArgs \..
6df0: 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20            "----
6e00: 63 6f 6d 62 69 6e 65 64 20 63 6f 6e 6e 65 63 74  combined connect
6e10: 69 6f 6e 20 66 6c 61 67 73 20 61 72 65 3a 20 22  ion flags are: "
6e20: 20 24 66 6c 61 67 73 20 5c 6e 5d 0d 0a 20 20 20   $flags \n].. 6e30: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d }.... #. 6e40: 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 49 . # NOTE: I 6e50: 66 20 6f 75 72 20 63 61 6c 6c 65 72 20 73 70 65 f our caller spe 6e60: 63 69 66 69 65 64 20 61 20 53 51 4c 69 74 65 43 cified a SQLiteC 6e70: 6f 6e 6e 65 63 74 69 6f 6e 46 6c 61 67 73 2c 20 onnectionFlags, 6e80: 61 64 64 20 74 68 65 20 6e 65 63 65 73 73 61 72 add the necessar 6e90: 79 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 y.. # 6ea0: 20 70 6f 72 74 69 6f 6e 20 6f 66 20 74 68 65 20 portion of the 6eb0: 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 72 69 6e connection strin 6ec0: 67 20 6e 6f 77 2e 0d 0a 20 20 20 20 20 20 23 0d g now... #. 6ed0: 0a 20 20 20 20 20 20 69 66 20 7b 5b 73 74 72 69 . if {[stri 6ee0: 6e 67 20 6c 65 6e 67 74 68 20 24 66 6c 61 67 73 ng length$flags
6ef0: 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20  ] > 0} then {..
6f00: 20 20 20 20 20 20 20 61 70 70 65 6e 64 20 63 6f         append co
6f10: 6e 6e 65 63 74 69 6f 6e 20 7b 3b 46 6c 61 67 73  nnection {;Flags
6f20: 3d 24 7b 66 6c 61 67 73 7d 7d 0d 0a 20 20 20 20  =${flags}}.. 6f30: 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a }.... #.. 6f40: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 49 66 # NOTE: If 6f50: 20 6f 75 72 20 63 61 6c 6c 65 72 20 73 70 65 63 our caller spec 6f60: 69 66 69 65 64 20 61 6e 20 65 78 74 72 61 20 70 ified an extra p 6f70: 61 79 6c 6f 61 64 20 74 6f 20 74 68 65 20 63 6f ayload to the co 6f80: 6e 6e 65 63 74 69 6f 6e 20 73 74 72 69 6e 67 2c nnection string, 6f90: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. # 6fa0: 61 70 70 65 6e 64 20 69 74 20 6e 6f 77 2e 0d 0a append it now... 6fb0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 #.. i 6fc0: 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 f {[string lengt 6fd0: 68 20 24 65 78 74 72 61 5d 20 3e 20 30 7d 20 74 h$extra] > 0} t
6fe0: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 61  hen {..        a
6ff0: 70 70 65 6e 64 20 63 6f 6e 6e 65 63 74 69 6f 6e  ppend connection
7000: 20 5c 3b 20 24 65 78 74 72 61 0d 0a 20 20 20 20   \; $extra.. 7010: 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a }.... #.. 7020: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 4f 70 # NOTE: Op 7030: 65 6e 20 74 68 65 20 64 61 74 61 62 61 73 65 20 en the database 7040: 63 6f 6e 6e 65 63 74 69 6f 6e 20 6e 6f 77 2c 20 connection now, 7050: 70 6c 61 63 69 6e 67 20 74 68 65 20 6f 70 61 71 placing the opaq 7060: 75 65 20 68 61 6e 64 6c 65 20 76 61 6c 75 65 0d ue handle value. 7070: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 69 . # i 7080: 6e 74 6f 20 74 68 65 20 76 61 72 69 61 62 6c 65 nto the variable 7090: 20 73 70 65 63 69 66 69 65 64 20 62 79 20 6f 75 specified by ou 70a0: 72 20 63 61 6c 6c 65 72 2e 0d 0a 20 20 20 20 20 r caller... 70b0: 20 23 0d 0a 20 20 20 20 20 20 73 65 74 20 64 62 #.. set db 70c0: 20 5b 73 71 6c 20 6f 70 65 6e 20 2d 74 79 70 65 [sql open -type 70d0: 20 53 51 4c 69 74 65 20 5b 73 75 62 73 74 20 24 SQLite [subst$
70e0: 63 6f 6e 6e 65 63 74 69 6f 6e 5d 5d 0d 0a 20 20  connection]]..
70f0: 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63    }.....    proc
7100: 20 67 65 74 44 62 43 6f 6e 6e 65 63 74 69 6f 6e   getDbConnection
7110: 20 7b 20 7b 76 61 72 4e 61 6d 65 20 64 62 7d 20   { {varName db}
7120: 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  } {..      #..
7130: 20 20 20 20 23 20 4e 4f 54 45 3a 20 52 65 66 65      # NOTE: Refe
7140: 72 20 74 6f 20 74 68 65 20 73 70 65 63 69 66 69  r to the specifi
7150: 65 64 20 76 61 72 69 61 62 6c 65 20 28 65 2e 67  ed variable (e.g
7160: 2e 20 22 64 62 22 29 20 69 6e 20 74 68 65 20 63  . "db") in the c
7170: 6f 6e 74 65 78 74 20 6f 66 20 6f 75 72 0d 0a 20  ontext of our..
7180: 20 20 20 20 20 23 20 20 20 20 20 20 20 63 61 6c       #       cal
7190: 6c 65 72 2e 20 20 54 68 65 20 68 61 6e 64 6c 65  ler.  The handle
71a0: 20 74 6f 20 74 68 65 20 64 61 74 61 62 61 73 65   to the database
71b0: 20 70 72 65 76 69 6f 75 73 6c 79 20 6f 70 65 6e   previously open
71c0: 65 64 20 62 79 20 5b 73 65 74 75 70 44 62 5d 0d  ed by [setupDb].
71d0: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 73  .      #       s
71e0: 68 6f 75 6c 64 20 62 65 20 73 74 6f 72 65 64 20  hould be stored
71f0: 74 68 65 72 65 2e 0d 0a 20 20 20 20 20 20 23 0d  there...      #.
7200: 0a 20 20 20 20 20 20 75 70 76 61 72 20 31 20 24  .      upvar 1 $7210: 76 61 72 4e 61 6d 65 20 64 62 0d 0a 0d 0a 20 20 varName db.... 7220: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e #.. # N 7230: 4f 54 45 3a 20 54 68 69 73 20 72 65 74 75 72 6e OTE: This return 7240: 73 20 74 68 65 20 41 44 4f 2e 4e 45 54 20 49 44 s the ADO.NET ID 7250: 62 43 6f 6e 6e 65 63 74 69 6f 6e 20 6f 62 6a 65 bConnection obje 7260: 63 74 20 69 6e 73 74 61 6e 63 65 20 66 6f 72 20 ct instance for 7270: 74 68 65 0d 0a 20 20 20 20 20 20 23 20 20 20 20 the.. # 7280: 20 20 20 73 70 65 63 69 66 69 65 64 20 64 61 74 specified dat 7290: 61 62 73 65 20 68 61 6e 64 6c 65 2e 20 20 53 69 abse handle. Si 72a0: 6e 63 65 20 67 65 74 74 69 6e 67 20 74 68 69 73 nce getting this 72b0: 20 6f 62 6a 65 63 74 20 72 65 6c 69 65 73 20 75 object relies u 72c0: 70 6f 6e 0d 0a 20 20 20 20 20 20 23 20 20 20 20 pon.. # 72d0: 20 20 20 45 61 67 6c 65 20 69 6e 74 65 72 6e 61 Eagle interna 72e0: 6c 73 2c 20 67 72 65 61 74 20 63 61 72 65 20 73 ls, great care s 72f0: 68 6f 75 6c 64 20 62 65 20 74 61 6b 65 6e 20 74 hould be taken t 7300: 6f 20 61 76 6f 69 64 20 64 69 73 70 6f 73 69 6e o avoid disposin 7310: 67 20 6f 66 0d 0a 20 20 20 20 20 20 23 20 20 20 g of.. # 7320: 20 20 20 20 74 68 69 73 20 6f 62 6a 65 63 74 20 this object 7330: 6f 72 20 6f 74 68 65 72 77 69 73 65 20 70 75 74 or otherwise put 7340: 74 69 6e 67 20 69 74 20 69 6e 74 6f 20 61 6e 20 ting it into an 7350: 69 6e 76 61 6c 69 64 20 73 74 61 74 65 2e 0d 0a invalid state... 7360: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 #.. i 7370: 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 f {[info exists 7380: 64 62 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 db]} then {.. 7390: 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 if {[catch 73a0: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 {.. 73b0: 20 20 20 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 object invoke 73c0: 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 6c -flags +NonPubl 73d0: 69 63 20 2d 6f 62 6a 65 63 74 66 6c 61 67 73 20 ic -objectflags 73e0: 2b 4e 6f 44 69 73 70 6f 73 65 20 5c 0d 0a 20 20 +NoDispose \.. 73f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 61 -a 7400: 6c 69 61 73 20 49 6e 74 65 72 70 72 65 74 65 72 lias Interpreter 7410: 2e 47 65 74 41 63 74 69 76 65 2e 63 6f 6e 6e 65 .GetActive.conne 7420: 63 74 69 6f 6e 73 20 49 74 65 6d 20 24 64 62 7d ctions Item$db}
7430: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   \..
7440: 20 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e 5d 20      connection]
7450: 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  == 0} then {..
7460: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..
7470: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 75 63       # NOTE: Suc
7480: 63 65 73 73 2c 20 72 65 74 75 72 6e 20 74 68 65  cess, return the
7490: 20 6f 70 61 71 75 65 20 6f 62 6a 65 63 74 20 68   opaque object h
74a0: 61 6e 64 6c 65 2e 0d 0a 20 20 20 20 20 20 20 20  andle...
74b0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 72    #..          r
74c0: 65 74 75 72 6e 20 24 63 6f 6e 6e 65 63 74 69 6f  eturn $connectio 74d0: 6e 0d 0a 20 20 20 20 20 20 20 20 7d 20 65 6c 73 n.. } els 74e0: 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23 e {.. # 74f0: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f .. # NO 7500: 54 45 3a 20 46 61 69 6c 75 72 65 2c 20 72 65 70 TE: Failure, rep 7510: 6f 72 74 20 77 68 79 2e 0d 0a 20 20 20 20 20 20 ort why... 7520: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 #.. 7530: 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 tputs$::test_c
7540: 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72  hannel [appendAr
7550: 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  gs \..
7560: 20 20 20 20 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e      "==== WARNIN
7570: 47 3a 20 66 61 69 6c 65 64 20 74 6f 20 67 65 74  G: failed to get
7580: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 68 61 6e 64   connection hand
7590: 6c 65 20 66 6f 72 20 64 61 74 61 62 61 73 65 20  le for database
75a0: 5c 22 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  \"" \..
75b0: 20 20 20 20 20 24 64 62 20 22 5c 22 2c 20 65 72       $db "\", er 75c0: 72 6f 72 3a 20 22 20 5c 6e 5c 74 20 24 65 72 72 ror: " \n\t$err
75d0: 6f 72 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20  or \n]..
75e0: 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20  }..      }..
75f0: 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 66  }.....    proc f
7600: 72 65 65 44 62 43 6f 6e 6e 65 63 74 69 6f 6e 20  reeDbConnection
7610: 7b 20 7b 76 61 72 4e 61 6d 65 20 63 6f 6e 6e 65  { {varName conne
7620: 63 74 69 6f 6e 7d 20 7d 20 7b 0d 0a 20 20 20 20  ction} } {..
7630: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54    #..      # NOT
7640: 45 3a 20 52 65 66 65 72 20 74 6f 20 74 68 65 20  E: Refer to the
7650: 73 70 65 63 69 66 69 65 64 20 76 61 72 69 61 62  specified variab
7660: 6c 65 20 28 65 2e 67 2e 20 22 63 6f 6e 6e 65 63  le (e.g. "connec
7670: 74 69 6f 6e 22 29 20 69 6e 20 74 68 65 20 63 6f  tion") in the co
7680: 6e 74 65 78 74 0d 0a 20 20 20 20 20 20 23 20 20  ntext..      #
7690: 20 20 20 20 20 6f 66 20 6f 75 72 20 63 61 6c 6c       of our call
76a0: 65 72 2e 20 20 54 68 65 20 6f 70 61 71 75 65 20  er.  The opaque
76b0: 6f 62 6a 65 63 74 20 68 61 6e 64 6c 65 20 66 6f  object handle fo
76c0: 72 20 61 6e 20 41 44 4f 2e 4e 45 54 20 63 6f 6e  r an ADO.NET con
76d0: 6e 65 63 74 69 6f 6e 0d 0a 20 20 20 20 20 20 23  nection..      #
76e0: 20 20 20 20 20 20 20 70 72 65 76 69 6f 75 73 6c         previousl
76f0: 79 20 72 65 74 75 72 6e 65 64 20 62 79 20 5b 67  y returned by [g
7700: 65 74 44 62 43 6f 6e 6e 65 63 74 69 6f 6e 5d 20  etDbConnection]
7710: 73 68 6f 75 6c 64 20 62 65 20 73 74 6f 72 65 64  should be stored
7720: 20 74 68 65 72 65 2e 0d 0a 20 20 20 20 20 20 23   there...      #
7730: 0d 0a 20 20 20 20 20 20 75 70 76 61 72 20 31 20  ..      upvar 1
7740: 24 76 61 72 4e 61 6d 65 20 63 6f 6e 6e 65 63 74  $varName connect 7750: 69 6f 6e 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a ion.... #.. 7760: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 41 74 # NOTE: At 7770: 74 65 6d 70 74 20 74 6f 20 72 65 6d 6f 76 65 20 tempt to remove 7780: 74 68 65 20 6f 70 61 71 75 65 20 6f 62 6a 65 63 the opaque objec 7790: 74 20 68 61 6e 64 6c 65 20 66 72 6f 6d 20 74 68 t handle from th 77a0: 65 20 69 6e 74 65 72 70 72 65 74 65 72 0d 0a 20 e interpreter.. 77b0: 20 20 20 20 20 23 20 20 20 20 20 20 20 6e 6f 77 # now 77c0: 2e 20 20 54 68 69 73 20 5b 6f 62 6a 65 63 74 20 . This [object 77d0: 64 69 73 70 6f 73 65 5d 20 63 61 6c 6c 20 77 69 dispose] call wi 77e0: 6c 6c 20 6e 6f 74 20 61 63 74 75 61 6c 6c 79 20 ll not actually 77f0: 64 69 73 70 6f 73 65 20 6f 66 20 74 68 65 0d 0a dispose of the.. 7800: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 75 6e # un 7810: 64 65 72 6c 79 69 6e 67 20 6f 62 6a 65 63 74 20 derlying object 7820: 62 65 63 61 75 73 65 20 74 68 65 20 2b 4e 6f 44 because the +NoD 7830: 69 73 70 6f 73 65 20 66 6c 61 67 20 77 61 73 20 ispose flag was 7840: 73 65 74 20 6f 6e 20 69 74 20 64 75 72 69 6e 67 set on it during 7850: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. # 7860: 63 72 65 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 creation of the 7870: 6f 70 61 71 75 65 20 6f 62 6a 65 63 74 20 68 61 opaque object ha 7880: 6e 64 6c 65 2e 0d 0a 20 20 20 20 20 20 23 0d 0a ndle... #.. 7890: 20 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 if {[info 78a0: 65 78 69 73 74 73 20 63 6f 6e 6e 65 63 74 69 6f exists connectio 78b0: 6e 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 n] && \.. 78c0: 20 20 20 5b 63 61 74 63 68 20 7b 6f 62 6a 65 63 [catch {objec 78d0: 74 20 64 69 73 70 6f 73 65 20 24 63 6f 6e 6e 65 t dispose$conne
78e0: 63 74 69 6f 6e 7d 20 65 72 72 6f 72 5d 7d 20 74  ction} error]} t
78f0: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 23  hen {..        #
7900: 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45  ..        # NOTE
7910: 3a 20 57 65 20 73 6f 6d 65 68 6f 77 20 66 61 69  : We somehow fai
7920: 6c 65 64 20 74 6f 20 72 65 6d 6f 76 65 20 74 68  led to remove th
7930: 65 20 68 61 6e 64 6c 65 2c 20 72 65 70 6f 72 74  e handle, report
7940: 20 77 68 79 2e 0d 0a 20 20 20 20 20 20 20 20 23   why...        #
7950: 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20  ..        tputs
7960: 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20  $::test_channel 7970: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 [appendArgs \.. 7980: 20 20 20 20 20 20 20 20 20 20 20 22 3d 3d 3d 3d "==== 7990: 20 57 41 52 4e 49 4e 47 3a 20 66 61 69 6c 65 64 WARNING: failed 79a0: 20 74 6f 20 72 65 6d 6f 76 65 20 63 6f 6e 6e 65 to remove conne 79b0: 63 74 69 6f 6e 20 68 61 6e 64 6c 65 20 5c 22 22 ction handle \"" 79c0: 20 24 63 6f 6e 6e 65 63 74 69 6f 6e 20 5c 0d 0a$connection \..
79d0: 20 20 20 20 20 20 20 20 20 20 20 20 22 5c 22 2c              "\",
79e0: 20 65 72 72 6f 72 3a 20 22 20 5c 6e 5c 74 20 24   error: " \n\t $79f0: 65 72 72 6f 72 20 5c 6e 5d 0d 0a 20 20 20 20 20 error \n].. 7a00: 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 }.. }..... 7a10: 20 20 70 72 6f 63 20 63 6c 65 61 6e 75 70 44 62 proc cleanupDb 7a20: 20 7b 20 66 69 6c 65 4e 61 6d 65 20 7b 76 61 72 { fileName {var 7a30: 4e 61 6d 65 20 64 62 7d 20 7b 63 6f 6c 6c 65 63 Name db} {collec 7a40: 74 20 74 72 75 65 7d 20 7b 71 75 61 6c 69 66 79 t true} {qualify 7a50: 20 74 72 75 65 7d 0d 0a 20 20 20 20 20 20 20 20 true}.. 7a60: 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 64 65 {de 7a70: 6c 65 74 65 20 74 72 75 65 7d 20 7d 20 7b 0d 0a lete true} } {.. 7a80: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 #.. # 7a90: 20 4e 4f 54 45 3a 20 41 74 74 65 6d 70 74 20 74 NOTE: Attempt t 7aa0: 6f 20 66 6f 72 63 65 20 61 6c 6c 20 70 65 6e 64 o force all pend 7ab0: 69 6e 67 20 22 67 61 72 62 61 67 65 22 20 6f 62 ing "garbage" ob 7ac0: 6a 65 63 74 73 20 74 6f 20 62 65 20 63 6f 6c 6c jects to be coll 7ad0: 65 63 74 65 64 2c 0d 0a 20 20 20 20 20 20 23 20 ected,.. # 7ae0: 20 20 20 20 20 20 69 6e 63 6c 75 64 69 6e 67 20 including 7af0: 53 51 4c 69 74 65 20 73 74 61 74 65 6d 65 6e 74 SQLite statement 7b00: 73 20 61 6e 64 20 62 61 63 6b 75 70 20 6f 62 6a s and backup obj 7b10: 65 63 74 73 3b 20 74 68 69 73 20 73 68 6f 75 6c ects; this shoul 7b20: 64 20 61 6c 6c 6f 77 0d 0a 20 20 20 20 20 20 23 d allow.. # 7b30: 20 20 20 20 20 20 20 74 68 65 20 75 6e 64 65 72 the under 7b40: 6c 79 69 6e 67 20 64 61 74 61 62 61 73 65 20 66 lying database f 7b50: 69 6c 65 20 74 6f 20 62 65 20 64 65 6c 65 74 65 ile to be delete 7b60: 64 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 d... #.. 7b70: 20 20 20 69 66 20 7b 24 63 6f 6c 6c 65 63 74 20 if {$collect
7b80: 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  && \..
7b90: 5b 63 61 74 63 68 20 7b 6f 62 6a 65 63 74 20 69  [catch {object i
7ba0: 6e 76 6f 6b 65 20 47 43 20 47 65 74 54 6f 74 61  nvoke GC GetTota
7bb0: 6c 4d 65 6d 6f 72 79 20 74 72 75 65 7d 20 65 72  lMemory true} er
7bc0: 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  ror]} then {..
7bd0: 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68 61        tputs $cha 7be0: 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 nnel [appendArgs 7bf0: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \.. 7c00: 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e 47 3a 20 66 "==== WARNING: f 7c10: 61 69 6c 65 64 20 66 75 6c 6c 20 67 61 72 62 61 ailed full garba 7c20: 67 65 20 63 6f 6c 6c 65 63 74 69 6f 6e 2c 20 65 ge collection, e 7c30: 72 72 6f 72 3a 20 22 20 5c 0d 0a 20 20 20 20 20 rror: " \.. 7c40: 20 20 20 20 20 20 20 5c 6e 5c 74 20 24 65 72 72 \n\t$err
7c50: 6f 72 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 7d 0d  or \n]..      }.
7c60: 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20  ...      #..
7c70: 20 20 23 20 4e 4f 54 45 3a 20 52 65 66 65 72 20    # NOTE: Refer
7c80: 74 6f 20 74 68 65 20 73 70 65 63 69 66 69 65 64  to the specified
7c90: 20 76 61 72 69 61 62 6c 65 20 28 65 2e 67 2e 20   variable (e.g.
7ca0: 22 64 62 22 29 20 69 6e 20 74 68 65 20 63 6f 6e  "db") in the con
7cb0: 74 65 78 74 20 6f 66 20 6f 75 72 0d 0a 20 20 20  text of our..
7cc0: 20 20 20 23 20 20 20 20 20 20 20 63 61 6c 6c 65     #       calle
7cd0: 72 2e 20 20 54 68 65 20 68 61 6e 64 6c 65 20 74  r.  The handle t
7ce0: 6f 20 74 68 65 20 64 61 74 61 62 61 73 65 20 70  o the database p
7cf0: 72 65 76 69 6f 75 73 6c 79 20 6f 70 65 6e 65 64  reviously opened
7d00: 20 62 79 20 5b 73 65 74 75 70 44 62 5d 0d 0a 20   by [setupDb]..
7d10: 20 20 20 20 20 23 20 20 20 20 20 20 20 73 68 6f       #       sho
7d20: 75 6c 64 20 62 65 20 73 74 6f 72 65 64 20 74 68  uld be stored th
7d30: 65 72 65 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20  ere...      #..
7d40: 20 20 20 20 20 75 70 76 61 72 20 31 20 24 76 61       upvar 1 $va 7d50: 72 4e 61 6d 65 20 64 62 0d 0a 0d 0a 20 20 20 20 rName db.... 7d60: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT 7d70: 45 3a 20 43 6c 6f 73 65 20 74 68 65 20 63 6f 6e E: Close the con 7d80: 6e 65 63 74 69 6f 6e 20 74 6f 20 74 68 65 20 64 nection to the d 7d90: 61 74 61 62 61 73 65 20 6e 6f 77 2e 20 20 54 68 atabase now. Th 7da0: 69 73 20 73 68 6f 75 6c 64 20 61 6c 6c 6f 77 20 is should allow 7db0: 75 73 20 74 6f 0d 0a 20 20 20 20 20 20 23 20 20 us to.. # 7dc0: 20 20 20 20 20 64 65 6c 65 74 65 20 74 68 65 20 delete the 7dd0: 75 6e 64 65 72 6c 79 69 6e 67 20 64 61 74 61 62 underlying datab 7de0: 61 73 65 20 66 69 6c 65 2e 0d 0a 20 20 20 20 20 ase file... 7df0: 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 69 #.. if {[i 7e00: 6e 66 6f 20 65 78 69 73 74 73 20 64 62 5d 20 26 nfo exists db] & 7e10: 26 20 5b 63 61 74 63 68 20 7b 73 71 6c 20 63 6c & [catch {sql cl 7e20: 6f 73 65 20 24 64 62 7d 20 65 72 72 6f 72 5d 7d ose$db} error]}
7e30: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20   then {..
7e40: 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f   #..        # NO
7e50: 54 45 3a 20 57 65 20 73 6f 6d 65 68 6f 77 20 66  TE: We somehow f
7e60: 61 69 6c 65 64 20 74 6f 20 63 6c 6f 73 65 20 74  ailed to close t
7e70: 68 65 20 64 61 74 61 62 61 73 65 2c 20 72 65 70  he database, rep
7e80: 6f 72 74 20 77 68 79 2e 0d 0a 20 20 20 20 20 20  ort why...
7e90: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 74 70 75    #..        tpu
7ea0: 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e  ts $::test_chann 7eb0: 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c el [appendArgs \ 7ec0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 3d .. "= 7ed0: 3d 3d 3d 20 57 41 52 4e 49 4e 47 3a 20 66 61 69 === WARNING: fai 7ee0: 6c 65 64 20 74 6f 20 63 6c 6f 73 65 20 64 61 74 led to close dat 7ef0: 61 62 61 73 65 20 5c 22 22 20 24 64 62 20 22 5c abase \""$db "\
7f00: 22 2c 20 65 72 72 6f 72 3a 20 22 20 5c 0d 0a 20  ", error: " \..
7f10: 20 20 20 20 20 20 20 20 20 20 20 5c 6e 5c 74 20             \n\t
7f20: 24 65 72 72 6f 72 20 5c 6e 5d 0d 0a 20 20 20 20  $error \n].. 7f30: 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a }.... #.. 7f40: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 46 69 # NOTE: Fi 7f50: 72 73 74 2c 20 73 65 65 20 69 66 20 6f 75 72 20 rst, see if our 7f60: 63 61 6c 6c 65 72 20 68 61 73 20 72 65 71 75 65 caller has reque 7f70: 73 74 65 64 20 61 6e 20 69 6e 2d 6d 65 6d 6f 72 sted an in-memor 7f80: 79 20 64 61 74 61 62 61 73 65 2e 0d 0a 20 20 20 y database... 7f90: 20 20 20 23 0d 0a 20 20 20 20 20 20 73 65 74 20 #.. set 7fa0: 69 73 4d 65 6d 6f 72 79 20 5b 69 73 4d 65 6d 6f isMemory [isMemo 7fb0: 72 79 44 62 20 24 66 69 6c 65 4e 61 6d 65 5d 0d ryDb$fileName].
7fc0: 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20  ...      #..
7fd0: 20 20 23 20 4e 4f 54 45 3a 20 42 75 69 6c 64 20    # NOTE: Build
7fe0: 74 68 65 20 66 75 6c 6c 20 70 61 74 68 20 74 6f  the full path to
7ff0: 20 74 68 65 20 64 61 74 61 62 61 73 65 20 66 69   the database fi
8000: 6c 65 20 6e 61 6d 65 2e 20 20 46 6f 72 20 6e 6f  le name.  For no
8010: 77 2c 20 61 6c 6c 20 74 65 73 74 0d 0a 20 20 20  w, all test..
8020: 20 20 20 23 20 20 20 20 20 20 20 64 61 74 61 62     #       datab
8030: 61 73 65 20 66 69 6c 65 73 20 61 72 65 20 73 74  ase files are st
8040: 6f 72 65 64 20 69 6e 20 74 68 65 20 74 65 6d 70  ored in the temp
8050: 6f 72 61 72 79 20 64 69 72 65 63 74 6f 72 79 2e  orary directory.
8060: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20  ..      #..
8070: 20 69 66 20 7b 21 24 69 73 4d 65 6d 6f 72 79 20   if {!$isMemory 8080: 26 26 20 24 71 75 61 6c 69 66 79 7d 20 74 68 65 &&$qualify} the
8090: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 73 65 74  n {..        set
80a0: 20 66 69 6c 65 4e 61 6d 65 20 5b 66 69 6c 65 20   fileName [file
80b0: 6a 6f 69 6e 20 5b 67 65 74 44 61 74 61 62 61 73  join [getDatabas
80c0: 65 44 69 72 65 63 74 6f 72 79 5d 20 5b 66 69 6c  eDirectory] [fil
80d0: 65 20 74 61 69 6c 20 24 66 69 6c 65 4e 61 6d 65  e tail $fileName 80e0: 5d 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 ]].. }.... 80f0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 #.. # 8100: 4e 4f 54 45 3a 20 43 68 65 63 6b 20 69 66 20 74 NOTE: Check if t 8110: 68 65 20 66 69 6c 65 20 73 74 69 6c 6c 20 65 78 he file still ex 8120: 69 73 74 73 2e 0d 0a 20 20 20 20 20 20 23 0d 0a ists... #.. 8130: 20 20 20 20 20 20 69 66 20 7b 21 24 69 73 4d 65 if {!$isMe
8140: 6d 6f 72 79 20 26 26 20 24 64 65 6c 65 74 65 20  mory && $delete 8150: 26 26 20 5b 66 69 6c 65 20 65 78 69 73 74 73 20 && [file exists 8160: 24 66 69 6c 65 4e 61 6d 65 5d 7d 20 74 68 65 6e$fileName]} then
8170: 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20   {..        #..
8180: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53         # NOTE: S
8190: 6b 69 70 20 64 65 6c 65 74 69 6e 67 20 64 61 74  kip deleting dat
81a0: 61 62 61 73 65 20 66 69 6c 65 73 20 69 66 20 73  abase files if s
81b0: 6f 6d 65 62 6f 64 79 20 73 65 74 73 20 74 68 65  omebody sets the
81c0: 20 67 6c 6f 62 61 6c 0d 0a 20 20 20 20 20 20 20   global..
81d0: 20 23 20 20 20 20 20 20 20 76 61 72 69 61 62 6c   #       variabl
81e0: 65 20 74 6f 20 70 72 65 76 65 6e 74 20 69 74 2e  e to prevent it.
81f0: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20  ..        #..
8200: 20 20 20 20 20 69 66 20 7b 21 5b 69 6e 66 6f 20       if {![info
8210: 65 78 69 73 74 73 20 3a 3a 6e 6f 28 63 6c 65 61  exists ::no(clea
8220: 6e 75 70 44 62 46 69 6c 65 29 5d 7d 20 74 68 65  nupDbFile)]} the
8230: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23  n {..          #
8240: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f  ..          # NO
8250: 54 45 3a 20 41 74 74 65 6d 70 74 20 74 6f 20 64  TE: Attempt to d
8260: 65 6c 65 74 65 20 74 68 65 20 74 65 73 74 20 64  elete the test d
8270: 61 74 61 62 61 73 65 20 66 69 6c 65 20 6e 6f 77  atabase file now
8280: 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a  ...          #..
8290: 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 5b 73            if {[s
82a0: 65 74 20 63 6f 64 65 20 5b 63 61 74 63 68 20 7b  et code [catch {
82b0: 66 69 6c 65 20 64 65 6c 65 74 65 20 24 66 69 6c  file delete $fil 82c0: 65 4e 61 6d 65 7d 20 65 72 72 6f 72 5d 5d 7d 20 eName} error]]} 82d0: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 then {.. 82e0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 #.. 82f0: 20 20 20 23 20 4e 4f 54 45 3a 20 57 65 20 73 6f # NOTE: We so 8300: 6d 65 68 6f 77 20 66 61 69 6c 65 64 20 74 6f 20 mehow failed to 8310: 64 65 6c 65 74 65 20 74 68 65 20 66 69 6c 65 2c delete the file, 8320: 20 72 65 70 6f 72 74 20 77 68 79 2e 0d 0a 20 20 report why... 8330: 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 #.. 8340: 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 tputs$
8350: 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b  ::test_channel [
8360: 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20  appendArgs \..
8370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3d                "=
8380: 3d 3d 3d 20 57 41 52 4e 49 4e 47 3a 20 66 61 69  === WARNING: fai
8390: 6c 65 64 20 74 6f 20 64 65 6c 65 74 65 20 64 61  led to delete da
83a0: 74 61 62 61 73 65 20 66 69 6c 65 20 5c 22 22 20  tabase file \""
83b0: 24 66 69 6c 65 4e 61 6d 65 20 5c 0d 0a 20 20 20  $fileName \.. 83c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5c 22 "\" 83d0: 20 64 75 72 69 6e 67 20 63 6c 65 61 6e 75 70 2c during cleanup, 83e0: 20 65 72 72 6f 72 3a 20 22 20 5c 6e 5c 74 20 24 error: " \n\t$
83f0: 65 72 72 6f 72 20 5c 6e 5d 0d 0a 20 20 20 20 20  error \n]..
8400: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20       }..
8410: 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20  } else {..
8420: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20      #..
8430: 20 23 20 4e 4f 54 45 3a 20 53 68 6f 77 20 74 68   # NOTE: Show th
8440: 61 74 20 77 65 20 73 6b 69 70 70 65 64 20 64 65  at we skipped de
8450: 6c 65 74 69 6e 67 20 74 68 65 20 66 69 6c 65 2e  leting the file.
8460: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20  ..          #..
8470: 20 20 20 20 20 20 20 20 20 73 65 74 20 63 6f 64           set cod
8480: 65 20 30 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20  e 0....
8490: 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63   tputs $::test_c 84a0: 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 hannel [appendAr 84b0: 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 gs \.. 84c0: 20 20 20 20 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e "==== WARNIN 84d0: 47 3a 20 73 6b 69 70 70 65 64 20 64 65 6c 65 74 G: skipped delet 84e0: 69 6e 67 20 64 61 74 61 62 61 73 65 20 66 69 6c ing database fil 84f0: 65 20 5c 22 22 20 24 66 69 6c 65 4e 61 6d 65 20 e \""$fileName
8500: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  \..
8510: 20 22 5c 22 20 64 75 72 69 6e 67 20 63 6c 65 61   "\" during clea
8520: 6e 75 70 5c 6e 22 5d 0d 0a 20 20 20 20 20 20 20  nup\n"]..
8530: 20 7d 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65   }..      } else
8540: 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20   {..        #..
8550: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 54         # NOTE: T
8560: 68 65 20 66 69 6c 65 20 64 6f 65 73 20 6e 6f 74  he file does not
8570: 20 65 78 69 73 74 2c 20 73 75 63 63 65 73 73 21   exist, success!
8580: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20  ..        #..
8590: 20 20 20 20 20 73 65 74 20 63 6f 64 65 20 30 0d       set code 0.
85a0: 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20  .      }....
85b0: 20 20 72 65 74 75 72 6e 20 24 63 6f 64 65 0d 0a    return $code.. 85c0: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 }..... pr 85d0: 6f 63 20 63 6c 65 61 6e 75 70 46 69 6c 65 20 7b oc cleanupFile { 85e0: 20 66 69 6c 65 4e 61 6d 65 20 7b 63 6f 6c 6c 65 fileName {colle 85f0: 63 74 20 74 72 75 65 7d 20 7b 66 6f 72 63 65 20 ct true} {force 8600: 66 61 6c 73 65 7d 20 7d 20 7b 0d 0a 20 20 20 20 false} } {.. 8610: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT 8620: 45 3a 20 41 74 74 65 6d 70 74 20 74 6f 20 66 6f E: Attempt to fo 8630: 72 63 65 20 61 6c 6c 20 70 65 6e 64 69 6e 67 20 rce all pending 8640: 22 67 61 72 62 61 67 65 22 20 6f 62 6a 65 63 74 "garbage" object 8650: 73 20 74 6f 20 62 65 20 63 6f 6c 6c 65 63 74 65 s to be collecte 8660: 64 2c 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 d,.. # 8670: 20 20 69 6e 63 6c 75 64 69 6e 67 20 53 51 4c 69 including SQLi 8680: 74 65 20 73 74 61 74 65 6d 65 6e 74 73 20 61 6e te statements an 8690: 64 20 62 61 63 6b 75 70 20 6f 62 6a 65 63 74 73 d backup objects 86a0: 3b 20 74 68 69 73 20 73 68 6f 75 6c 64 20 61 6c ; this should al 86b0: 6c 6f 77 0d 0a 20 20 20 20 20 20 23 20 20 20 20 low.. # 86c0: 20 20 20 74 68 65 20 75 6e 64 65 72 6c 79 69 6e the underlyin 86d0: 67 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 20 g database file 86e0: 74 6f 20 62 65 20 64 65 6c 65 74 65 64 2e 0d 0a to be deleted... 86f0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 #.. i 8700: 66 20 7b 24 63 6f 6c 6c 65 63 74 20 26 26 20 5c f {$collect && \
8710: 0d 0a 20 20 20 20 20 20 20 20 20 20 5b 63 61 74  ..          [cat
8720: 63 68 20 7b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b  ch {object invok
8730: 65 20 47 43 20 47 65 74 54 6f 74 61 6c 4d 65 6d  e GC GetTotalMem
8740: 6f 72 79 20 74 72 75 65 7d 20 65 72 72 6f 72 5d  ory true} error]
8750: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..
8760: 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c    tputs $channel 8770: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a [appendArgs \.. 8780: 20 20 20 20 20 20 20 20 20 20 20 20 22 3d 3d 3d "=== 8790: 3d 20 57 41 52 4e 49 4e 47 3a 20 66 61 69 6c 65 = WARNING: faile 87a0: 64 20 66 75 6c 6c 20 67 61 72 62 61 67 65 20 63 d full garbage c 87b0: 6f 6c 6c 65 63 74 69 6f 6e 2c 20 65 72 72 6f 72 ollection, error 87c0: 3a 20 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 : " \.. 87d0: 20 20 20 5c 6e 5c 74 20 24 65 72 72 6f 72 20 5c \n\t$error \
87e0: 6e 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20  n]..      }....
87f0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20       #..      #
8800: 4e 4f 54 45 3a 20 43 68 65 63 6b 20 69 66 20 74  NOTE: Check if t
8810: 68 65 20 66 69 6c 65 20 73 74 69 6c 6c 20 65 78  he file still ex
8820: 69 73 74 73 2e 0d 0a 20 20 20 20 20 20 23 0d 0a  ists...      #..
8830: 20 20 20 20 20 20 69 66 20 7b 5b 66 69 6c 65 20        if {[file
8840: 65 78 69 73 74 73 20 24 66 69 6c 65 4e 61 6d 65  exists $fileName 8850: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 ]} then {.. 8860: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 #.. # 8870: 4e 4f 54 45 3a 20 53 6b 69 70 20 64 65 6c 65 74 NOTE: Skip delet 8880: 69 6e 67 20 74 65 73 74 20 66 69 6c 65 73 20 69 ing test files i 8890: 66 20 73 6f 6d 65 62 6f 64 79 20 73 65 74 73 20 f somebody sets 88a0: 74 68 65 20 67 6c 6f 62 61 6c 20 76 61 72 69 61 the global varia 88b0: 62 6c 65 0d 0a 20 20 20 20 20 20 20 20 23 20 20 ble.. # 88c0: 20 20 20 20 20 74 6f 20 70 72 65 76 65 6e 74 20 to prevent 88d0: 69 74 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a it... #.. 88e0: 20 20 20 20 20 20 20 20 69 66 20 7b 24 66 6f 72 if {$for
88f0: 63 65 20 7c 7c 20 21 5b 69 6e 66 6f 20 65 78 69  ce || ![info exi
8900: 73 74 73 20 3a 3a 6e 6f 28 63 6c 65 61 6e 75 70  sts ::no(cleanup
8910: 46 69 6c 65 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a  File)]} then {..
8920: 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20            #..
8930: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 41         # NOTE: A
8940: 74 74 65 6d 70 74 20 74 6f 20 64 65 6c 65 74 65  ttempt to delete
8950: 20 74 68 65 20 74 65 73 74 20 66 69 6c 65 20 6e   the test file n
8960: 6f 77 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23  ow...          #
8970: 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7b  ..          if {
8980: 5b 73 65 74 20 63 6f 64 65 20 5b 63 61 74 63 68  [set code [catch
8990: 20 7b 66 69 6c 65 20 64 65 6c 65 74 65 20 24 66   {file delete $f 89a0: 69 6c 65 4e 61 6d 65 7d 20 65 72 72 6f 72 5d 5d ileName} error]] 89b0: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {.. 89c0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #.. 89d0: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 57 65 20 # NOTE: We 89e0: 73 6f 6d 65 68 6f 77 20 66 61 69 6c 65 64 20 74 somehow failed t 89f0: 6f 20 64 65 6c 65 74 65 20 74 68 65 20 66 69 6c o delete the fil 8a00: 65 2c 20 72 65 70 6f 72 74 20 77 68 79 2e 0d 0a e, report why... 8a10: 20 20 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 #.. 8a20: 20 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 tputs 8a30: 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c$::test_channel
8a40: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a   [appendArgs \..
8a50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
8a60: 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e 47 3a 20 66  "==== WARNING: f
8a70: 61 69 6c 65 64 20 74 6f 20 64 65 6c 65 74 65 20  ailed to delete
8a80: 74 65 73 74 20 66 69 6c 65 20 5c 22 22 20 24 66  test file \"" $f 8a90: 69 6c 65 4e 61 6d 65 20 5c 0d 0a 20 20 20 20 20 ileName \.. 8aa0: 20 20 20 20 20 20 20 20 20 20 20 22 5c 22 20 64 "\" d 8ab0: 75 72 69 6e 67 20 63 6c 65 61 6e 75 70 2c 20 65 uring cleanup, e 8ac0: 72 72 6f 72 3a 20 22 20 5c 6e 5c 74 20 24 65 72 rror: " \n\t$er
8ad0: 72 6f 72 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20  ror \n]..
8ae0: 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 20     }..        }
8af0: 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20  else {..
8b00: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23    #..          #
8b10: 20 4e 4f 54 45 3a 20 53 68 6f 77 20 74 68 61 74   NOTE: Show that
8b20: 20 77 65 20 73 6b 69 70 70 65 64 20 64 65 6c 65   we skipped dele
8b30: 74 69 6e 67 20 74 68 65 20 66 69 6c 65 2e 0d 0a  ting the file...
8b40: 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20            #..
8b50: 20 20 20 20 20 20 20 73 65 74 20 63 6f 64 65 20         set code
8b60: 30 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 74  0....          t
8b70: 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61  puts $::test_cha 8b80: 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 nnel [appendArgs 8b90: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \.. 8ba0: 20 20 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e 47 3a "==== WARNING: 8bb0: 20 73 6b 69 70 70 65 64 20 64 65 6c 65 74 69 6e skipped deletin 8bc0: 67 20 74 65 73 74 20 66 69 6c 65 20 5c 22 22 20 g test file \"" 8bd0: 24 66 69 6c 65 4e 61 6d 65 20 5c 0d 0a 20 20 20$fileName \..
8be0: 20 20 20 20 20 20 20 20 20 20 20 22 5c 22 20 64             "\" d
8bf0: 75 72 69 6e 67 20 63 6c 65 61 6e 75 70 5c 6e 22  uring cleanup\n"
8c00: 5d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20  ]..        }..
8c10: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20      } else {..
8c20: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..
8c30: 20 23 20 4e 4f 54 45 3a 20 54 68 65 20 66 69 6c   # NOTE: The fil
8c40: 65 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74  e does not exist
8c50: 2c 20 73 75 63 63 65 73 73 21 0d 0a 20 20 20 20  , success!..
8c60: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 73      #..        s
8c70: 65 74 20 63 6f 64 65 20 30 0d 0a 20 20 20 20 20  et code 0..
8c80: 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 72 65 74 75   }....      retu
8c90: 72 6e 20 24 63 6f 64 65 0d 0a 20 20 20 20 7d 0d  rn $code.. }. 8ca0: 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 72 65 70 .... proc rep 8cb0: 6f 72 74 53 51 4c 69 74 65 52 65 73 6f 75 72 63 ortSQLiteResourc 8cc0: 65 73 20 7b 20 63 68 61 6e 6e 65 6c 20 7b 71 75 es { channel {qu 8cd0: 69 65 74 20 66 61 6c 73 65 7d 20 7b 63 6f 6c 6c iet false} {coll 8ce0: 65 63 74 20 74 72 75 65 7d 20 7d 20 7b 0d 0a 20 ect true} } {.. 8cf0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 #.. # 8d00: 4e 4f 54 45 3a 20 53 6b 69 70 20 61 6c 6c 20 6f NOTE: Skip all o 8d10: 75 74 70 75 74 20 69 66 20 77 65 20 61 72 65 20 utput if we are 8d20: 72 75 6e 6e 69 6e 67 20 69 6e 20 22 71 75 69 65 running in "quie 8d30: 74 22 20 6d 6f 64 65 2e 0d 0a 20 20 20 20 20 20 t" mode... 8d40: 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 21 24 71 #.. if {!$q
8d50: 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  uiet} then {..
8d60: 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68 61        tputs $cha 8d70: 6e 6e 65 6c 20 22 2d 2d 2d 2d 20 63 75 72 72 65 nnel "---- curre 8d80: 6e 74 20 6d 65 6d 6f 72 79 20 69 6e 20 75 73 65 nt memory in use 8d90: 20 62 79 20 53 51 4c 69 74 65 2e 2e 2e 20 22 0d by SQLite... ". 8da0: 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 . }.... 8db0: 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 6f 62 if {[catch {ob 8dc0: 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d 66 6c 61 ject invoke -fla 8dd0: 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 5c 0d gs +NonPublic \. 8de0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 . S 8df0: 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 ystem.Data.SQLit 8e00: 65 2e 55 6e 73 61 66 65 4e 61 74 69 76 65 4d 65 e.UnsafeNativeMe 8e10: 74 68 6f 64 73 20 5c 0d 0a 20 20 20 20 20 20 20 thods \.. 8e20: 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 6d sqlite3_m 8e30: 65 6d 6f 72 79 5f 75 73 65 64 7d 20 6d 65 6d 6f emory_used} memo 8e40: 72 79 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b ry] == 0} then { 8e50: 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 21 24 .. if {!$
8e60: 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a 20  quiet} then {..
8e70: 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24           tputs $8e80: 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 channel [appendA 8e90: 72 67 73 20 24 6d 65 6d 6f 72 79 20 22 20 62 79 rgs$memory " by
8ea0: 74 65 73 5c 6e 22 5d 0d 0a 20 20 20 20 20 20 20  tes\n"]..
8eb0: 20 7d 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65   }..      } else
8ec0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20   {..        #..
8ed0: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 4d         # NOTE: M
8ee0: 61 79 62 65 20 74 68 65 20 53 51 4c 69 74 65 20  aybe the SQLite
8ef0: 6e 61 74 69 76 65 20 6c 69 62 72 61 72 79 20 69  native library i
8f00: 73 20 75 6e 61 76 61 69 6c 61 62 6c 65 3f 0d 0a  s unavailable?..
8f10: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..
8f20: 20 20 20 73 65 74 20 6d 65 6d 6f 72 79 20 75 6e     set memory un
8f30: 6b 6e 6f 77 6e 0d 0a 0d 0a 20 20 20 20 20 20 20  known....
8f40: 20 69 66 20 7b 21 24 71 75 69 65 74 7d 20 74 68   if {!$quiet} th 8f50: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 en {.. 8f60: 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 5b tputs$channel [
8f70: 61 70 70 65 6e 64 41 72 67 73 20 24 6d 65 6d 6f  appendArgs $memo 8f80: 72 79 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 ry \n].. 8f90: 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 }.. }.... 8fa0: 20 20 20 20 73 65 74 20 72 65 73 75 6c 74 20 24 set result$
8fb0: 6d 65 6d 6f 72 79 3b 20 23 20 4e 4f 54 45 3a 20  memory; # NOTE:
8fc0: 52 65 74 75 72 6e 20 6d 65 6d 6f 72 79 20 69 6e  Return memory in
8fd0: 2d 75 73 65 20 74 6f 20 6f 75 72 20 63 61 6c 6c  -use to our call
8fe0: 65 72 2e 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20  er.....      if
8ff0: 7b 21 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b  {!$quiet} then { 9000: 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20 .. tputs 9010: 24 63 68 61 6e 6e 65 6c 20 22 2d 2d 2d 2d 20 6d$channel "---- m
9020: 61 78 69 6d 75 6d 20 6d 65 6d 6f 72 79 20 69 6e  aximum memory in
9030: 20 75 73 65 20 62 79 20 53 51 4c 69 74 65 2e 2e   use by SQLite..
9040: 2e 20 22 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a  . "..      }....
9050: 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68        if {[catch
9060: 20 7b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20   {object invoke
9070: 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 6c 69  -flags +NonPubli
9080: 63 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20  c \..
9090: 20 20 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53     System.Data.S
90a0: 51 4c 69 74 65 2e 55 6e 73 61 66 65 4e 61 74 69  QLite.UnsafeNati
90b0: 76 65 4d 65 74 68 6f 64 73 20 5c 0d 0a 20 20 20  veMethods \..
90c0: 20 20 20 20 20 20 20 20 20 20 20 73 71 6c 69 74             sqlit
90d0: 65 33 5f 6d 65 6d 6f 72 79 5f 68 69 67 68 77 61  e3_memory_highwa
90e0: 74 65 72 20 30 7d 20 6d 65 6d 6f 72 79 5d 20 3d  ter 0} memory] =
90f0: 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  = 0} then {..
9100: 20 20 20 20 20 69 66 20 7b 21 24 71 75 69 65 74       if {!$quiet 9110: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {.. 9120: 20 20 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e tputs$chann
9130: 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 24  el [appendArgs $9140: 6d 65 6d 6f 72 79 20 22 20 62 79 74 65 73 5c 6e memory " bytes\n 9150: 22 5d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 "].. }.. 9160: 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 } else {.. 9170: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #.. 9180: 20 20 23 20 4e 4f 54 45 3a 20 4d 61 79 62 65 20 # NOTE: Maybe 9190: 74 68 65 20 53 51 4c 69 74 65 20 6e 61 74 69 76 the SQLite nativ 91a0: 65 20 6c 69 62 72 61 72 79 20 69 73 20 75 6e 61 e library is una 91b0: 76 61 69 6c 61 62 6c 65 3f 0d 0a 20 20 20 20 20 vailable?.. 91c0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 73 65 #.. se 91d0: 74 20 6d 65 6d 6f 72 79 20 75 6e 6b 6e 6f 77 6e t memory unknown 91e0: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b .... if { 91f0: 21 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d !$quiet} then {.
9200: 0a 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73  .          tputs
9210: 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e   $channel [appen 9220: 64 41 72 67 73 20 24 6d 65 6d 6f 72 79 20 5c 6e dArgs$memory \n
9230: 5d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20  ]..        }..
9240: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 69      }....      i
9250: 66 20 7b 24 63 6f 6c 6c 65 63 74 7d 20 74 68 65  f {$collect} the 9260: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 69 66 20 n {.. if 9270: 7b 5b 63 61 74 63 68 20 7b 6f 62 6a 65 63 74 20 {[catch {object 9280: 69 6e 76 6f 6b 65 20 47 43 20 47 65 74 54 6f 74 invoke GC GetTot 9290: 61 6c 4d 65 6d 6f 72 79 20 74 72 75 65 7d 20 65 alMemory true} e 92a0: 72 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 rror]} then {.. 92b0: 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 tputs$
92c0: 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41  channel [appendA
92d0: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  rgs \..
92e0: 20 20 20 20 20 22 3d 3d 3d 3d 20 57 41 52 4e 49       "==== WARNI
92f0: 4e 47 3a 20 66 61 69 6c 65 64 20 66 75 6c 6c 20  NG: failed full
9300: 67 61 72 62 61 67 65 20 63 6f 6c 6c 65 63 74 69  garbage collecti
9310: 6f 6e 2c 20 65 72 72 6f 72 3a 20 22 20 5c 0d 0a  on, error: " \..
9320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 6e                \n
9330: 5c 74 20 24 65 72 72 6f 72 20 5c 6e 5d 0d 0a 20  \t $error \n].. 9340: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 }.. 9350: 7d 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 21 }.... if {! 9360: 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a$quiet} then {..
9370: 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63          tputs $c 9380: 68 61 6e 6e 65 6c 20 22 2d 2d 2d 2d 20 63 75 72 hannel "---- cur 9390: 72 65 6e 74 20 6d 65 6d 6f 72 79 20 69 6e 20 75 rent memory in u 93a0: 73 65 20 62 79 20 74 68 65 20 43 4c 52 2e 2e 2e se by the CLR... 93b0: 20 22 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 ".. }.... 93c0: 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 if {[catch 93d0: 7b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 47 {object invoke G 93e0: 43 20 47 65 74 54 6f 74 61 6c 4d 65 6d 6f 72 79 C GetTotalMemory 93f0: 20 66 61 6c 73 65 7d 20 6d 65 6d 6f 72 79 5d 20 false} memory] 9400: 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 == 0} then {.. 9410: 20 20 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e if {[strin 9420: 67 20 69 73 20 69 6e 74 65 67 65 72 20 2d 73 74 g is integer -st 9430: 72 69 63 74 20 24 6d 65 6d 6f 72 79 5d 7d 20 74 rict$memory]} t
9440: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  hen {..
9450: 20 69 66 20 7b 21 24 71 75 69 65 74 7d 20 74 68   if {!$quiet} th 9460: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 en {.. 9470: 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c tputs$channel
9480: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 24 6d 65   [appendArgs $me 9490: 6d 6f 72 79 20 22 20 62 79 74 65 73 5c 6e 22 5d mory " bytes\n"] 94a0: 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 .. }.. 94b0: 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d } else {. 94c0: 0a 20 20 20 20 20 20 20 20 20 20 73 65 74 20 6d . set m 94d0: 65 6d 6f 72 79 20 69 6e 76 61 6c 69 64 0d 0a 0d emory invalid... 94e0: 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 21 . if {! 94f0: 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a$quiet} then {..
9500: 20 20 20 20 20 20 20 20 20 20 20 20 74 70 75 74              tput
9510: 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65  s $channel [appe 9520: 6e 64 41 72 67 73 20 24 6d 65 6d 6f 72 79 20 5c ndArgs$memory \
9530: 6e 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d  n]..          }.
9540: 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20  .        }..
9550: 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20    } else {..
9560: 20 20 20 20 73 65 74 20 6d 65 6d 6f 72 79 20 75      set memory u
9570: 6e 6b 6e 6f 77 6e 0d 0a 0d 0a 20 20 20 20 20 20  nknown....
9580: 20 20 69 66 20 7b 21 24 71 75 69 65 74 7d 20 74    if {!$quiet} t 9590: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 hen {.. 95a0: 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 tputs$channel
95b0: 5b 61 70 70 65 6e 64 41 72 67 73 20 24 6d 65 6d  [appendArgs $mem 95c0: 6f 72 79 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 ory \n].. 95d0: 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 }.. }.... 95e0: 20 20 20 20 20 72 65 74 75 72 6e 20 24 72 65 73 return$res
95f0: 75 6c 74 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20  ult..    }.....
9600: 20 20 20 70 72 6f 63 20 72 75 6e 53 51 4c 69 74     proc runSQLit
9610: 65 54 65 73 74 50 72 6f 6c 6f 67 75 65 20 7b 7d  eTestPrologue {}
9620: 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20   {..      #..
9630: 20 20 20 23 20 4e 4f 54 45 3a 20 53 6b 69 70 20     # NOTE: Skip
9640: 72 75 6e 6e 69 6e 67 20 6f 75 72 20 63 75 73 74  running our cust
9650: 6f 6d 20 70 72 6f 6c 6f 67 75 65 20 69 66 20 74  om prologue if t
9660: 68 65 20 6d 61 69 6e 20 6f 6e 65 20 68 61 73 20  he main one has
9670: 62 65 65 6e 20 73 6b 69 70 70 65 64 2e 0d 0a 20  been skipped...
9680: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66       #..      if
9690: 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20   {![info exists
96a0: 3a 3a 6e 6f 28 70 72 6f 6c 6f 67 75 65 2e 65 61  ::no(prologue.ea
96b0: 67 6c 65 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20  gle)]} then {..
96c0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..
96d0: 20 20 23 20 4e 4f 54 45 3a 20 53 6b 69 70 20 61    # NOTE: Skip a
96e0: 6c 6c 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53  ll System.Data.S
96f0: 51 4c 69 74 65 20 72 65 6c 61 74 65 64 20 66 69  QLite related fi
9700: 6c 65 20 68 61 6e 64 6c 69 6e 67 20 28 64 65 6c  le handling (del
9710: 65 74 69 6e 67 2c 0d 0a 20 20 20 20 20 20 20 20  eting,..
9720: 23 20 20 20 20 20 20 20 63 6f 70 79 69 6e 67 2c  #       copying,
9730: 20 61 6e 64 20 6c 6f 61 64 69 6e 67 29 20 69 66   and loading) if
9740: 20 77 65 20 61 72 65 20 73 6f 20 69 6e 73 74 72   we are so instr
9750: 75 63 74 65 64 2e 0d 0a 20 20 20 20 20 20 20 20  ucted...
9760: 23 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 21  #..        if {!
9770: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 6e  [info exists ::n
9780: 6f 28 73 71 6c 69 74 65 46 69 6c 65 73 29 5d 7d  o(sqliteFiles)]}
9790: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20   then {..
97a0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20     #..
97b0: 23 20 4e 4f 54 45 3a 20 53 6b 69 70 20 74 72 79  # NOTE: Skip try
97c0: 69 6e 67 20 74 6f 20 64 65 6c 65 74 65 20 61 6e  ing to delete an
97d0: 79 20 66 69 6c 65 73 20 69 66 20 77 65 20 61 72  y files if we ar
97e0: 65 20 73 6f 20 69 6e 73 74 72 75 63 74 65 64 2e  e so instructed.
97f0: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20  ..          #..
9800: 20 20 20 20 20 20 20 20 20 69 66 20 7b 21 5b 69           if {![i
9810: 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 6e 6f 28  nfo exists ::no(
9820: 64 65 6c 65 74 65 53 71 6c 69 74 65 46 69 6c 65  deleteSqliteFile
9830: 73 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  s)]} then {..
9840: 20 20 20 20 20 20 20 20 20 74 72 79 44 65 6c 65           tryDele
9850: 74 65 41 73 73 65 6d 62 6c 79 20 73 71 6c 69 74  teAssembly sqlit
9860: 65 33 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 20 20  e3.dll..
9870: 20 20 20 20 72 65 6d 6f 76 65 43 6f 6e 73 74 72      removeConstr
9880: 61 69 6e 74 20 66 69 6c 65 5f 73 71 6c 69 74 65  aint file_sqlite
9890: 33 2e 64 6c 6c 0d 0a 0d 0a 20 20 20 20 20 20 20  3.dll....
98a0: 20 20 20 20 20 74 72 79 44 65 6c 65 74 65 41 73       tryDeleteAs
98b0: 73 65 6d 62 6c 79 20 53 51 4c 69 74 65 2e 49 6e  sembly SQLite.In
98c0: 74 65 72 6f 70 2e 64 6c 6c 0d 0a 20 20 20 20 20  terop.dll..
98d0: 20 20 20 20 20 20 20 72 65 6d 6f 76 65 43 6f 6e         removeCon
98e0: 73 74 72 61 69 6e 74 20 66 69 6c 65 5f 53 51 4c  straint file_SQL
98f0: 69 74 65 2e 49 6e 74 65 72 6f 70 2e 64 6c 6c 0d  ite.Interop.dll.
9900: 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 74  ...            t
9910: 72 79 44 65 6c 65 74 65 41 73 73 65 6d 62 6c 79  ryDeleteAssembly
9920: 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c   System.Data.SQL
9930: 69 74 65 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 20  ite.dll..
9940: 20 20 20 20 20 72 65 6d 6f 76 65 43 6f 6e 73 74       removeConst
9950: 72 61 69 6e 74 20 66 69 6c 65 5f 53 79 73 74 65  raint file_Syste
9960: 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 64 6c  m.Data.SQLite.dl
9970: 6c 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20  l....
9980: 20 74 72 79 44 65 6c 65 74 65 41 73 73 65 6d 62   tryDeleteAssemb
9990: 6c 79 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53  ly System.Data.S
99a0: 51 4c 69 74 65 2e 4c 69 6e 71 2e 64 6c 6c 0d 0a  QLite.Linq.dll..
99b0: 20 20 20 20 20 20 20 20 20 20 20 20 72 65 6d 6f              remo
99c0: 76 65 43 6f 6e 73 74 72 61 69 6e 74 20 66 69 6c  veConstraint fil
99d0: 65 5f 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51  e_System.Data.SQ
99e0: 4c 69 74 65 2e 4c 69 6e 71 2e 64 6c 6c 0d 0a 20  Lite.Linq.dll..
99f0: 20 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20           }....
9a00: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..
9a10: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 6b 69       # NOTE: Ski
9a20: 70 20 74 72 79 69 6e 67 20 74 6f 20 63 6f 70 79  p trying to copy
9a30: 20 61 6e 79 20 66 69 6c 65 73 20 69 66 20 77 65   any files if we
9a40: 20 61 72 65 20 73 6f 20 69 6e 73 74 72 75 63 74   are so instruct
9a50: 65 64 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23  ed...          #
9a60: 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7b  ..          if {
9a70: 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a  ![info exists ::
9a80: 6e 6f 28 63 6f 70 79 53 71 6c 69 74 65 46 69 6c  no(copySqliteFil
9a90: 65 73 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  es)]} then {..
9aa0: 20 20 20 20 20 20 20 20 20 20 74 72 79 43 6f 70            tryCop
9ab0: 79 41 73 73 65 6d 62 6c 79 20 73 71 6c 69 74 65  yAssembly sqlite
9ac0: 33 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 20 20 20  3.dll..
9ad0: 20 20 20 74 72 79 43 6f 70 79 41 73 73 65 6d 62     tryCopyAssemb
9ae0: 6c 79 20 53 51 4c 69 74 65 2e 49 6e 74 65 72 6f  ly SQLite.Intero
9af0: 70 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 20 20 20  p.dll..
9b00: 20 20 20 74 72 79 43 6f 70 79 41 73 73 65 6d 62     tryCopyAssemb
9b10: 6c 79 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53  ly System.Data.S
9b20: 51 4c 69 74 65 2e 64 6c 6c 0d 0a 20 20 20 20 20  QLite.dll..
9b30: 20 20 20 20 20 20 20 74 72 79 43 6f 70 79 41 73         tryCopyAs
9b40: 73 65 6d 62 6c 79 20 53 79 73 74 65 6d 2e 44 61  sembly System.Da
9b50: 74 61 2e 53 51 4c 69 74 65 2e 4c 69 6e 71 2e 64  ta.SQLite.Linq.d
9b60: 6c 6c 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d  ll..          }.
9b70: 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a  ...          #..
9b80: 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45            # NOTE
9b90: 3a 20 53 6b 69 70 20 74 72 79 69 6e 67 20 74 6f  : Skip trying to
9ba0: 20 6c 6f 61 64 20 61 6e 79 20 66 69 6c 65 73 20   load any files
9bb0: 69 66 20 77 65 20 61 72 65 20 73 6f 20 69 6e 73  if we are so ins
9bc0: 74 72 75 63 74 65 64 2e 0d 0a 20 20 20 20 20 20  tructed...
9bd0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20      #..
9be0: 20 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73   if {![info exis
9bf0: 74 73 20 3a 3a 6e 6f 28 6c 6f 61 64 53 71 6c 69  ts ::no(loadSqli
9c00: 74 65 46 69 6c 65 73 29 5d 7d 20 74 68 65 6e 20  teFiles)]} then
9c10: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 74  {..            t
9c20: 72 79 4c 6f 61 64 41 73 73 65 6d 62 6c 79 20 53  ryLoadAssembly S
9c30: 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74  ystem.Data.SQLit
9c40: 65 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 20 20 20  e.dll..
9c50: 20 20 20 74 72 79 4c 6f 61 64 41 73 73 65 6d 62     tryLoadAssemb
9c60: 6c 79 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53  ly System.Data.S
9c70: 51 4c 69 74 65 2e 4c 69 6e 71 2e 64 6c 6c 0d 0a  QLite.Linq.dll..
9c80: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20            }..
9c90: 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20       }....
9ca0: 20 20 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 20    catch {..
9cb0: 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65       tputs $::te 9cc0: 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 st_channel [appe 9cd0: 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 ndArgs \.. 9ce0: 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 66 69 "---- fi 9cf0: 6c 65 20 76 65 72 73 69 6f 6e 20 6f 66 20 5c 22 le version of \" 9d00: 73 71 6c 69 74 65 33 2e 64 6c 6c 5c 22 2e 2e 2e sqlite3.dll\"... 9d10: 20 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 " \.. 9d20: 20 20 20 20 5b 66 69 6c 65 20 76 65 72 73 69 6f [file versio 9d30: 6e 20 5b 67 65 74 42 69 6e 61 72 79 46 69 6c 65 n [getBinaryFile 9d40: 4e 61 6d 65 20 73 71 6c 69 74 65 33 2e 64 6c 6c Name sqlite3.dll 9d50: 5d 5d 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 ]] \n].. 9d60: 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 63 61 74 }.... cat 9d70: 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 ch {.. 9d80: 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 tputs$::test_ch
9d90: 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67  annel [appendArg
9da0: 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20  s \..
9db0: 20 20 20 22 2d 2d 2d 2d 20 66 69 6c 65 20 76 65     "---- file ve
9dc0: 72 73 69 6f 6e 20 6f 66 20 5c 22 53 51 4c 69 74  rsion of \"SQLit
9dd0: 65 2e 49 6e 74 65 72 6f 70 2e 64 6c 6c 5c 22 2e  e.Interop.dll\".
9de0: 2e 2e 20 22 20 5c 0d 0a 20 20 20 20 20 20 20 20  .. " \..
9df0: 20 20 20 20 20 20 5b 66 69 6c 65 20 76 65 72 73        [file vers
9e00: 69 6f 6e 20 5b 67 65 74 42 69 6e 61 72 79 46 69  ion [getBinaryFi
9e10: 6c 65 4e 61 6d 65 20 53 51 4c 69 74 65 2e 49 6e  leName SQLite.In
9e20: 74 65 72 6f 70 2e 64 6c 6c 5d 5d 20 5c 6e 5d 0d  terop.dll]] \n].
9e30: 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20  .        }....
9e40: 20 20 20 20 20 20 63 61 74 63 68 20 7b 0d 0a 20        catch {..
9e50: 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24           tputs $9e60: 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b ::test_channel [ 9e70: 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 appendArgs \.. 9e80: 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d "--- 9e90: 2d 20 66 69 6c 65 20 76 65 72 73 69 6f 6e 20 6f - file version o 9ea0: 66 20 5c 22 53 79 73 74 65 6d 2e 44 61 74 61 2e f \"System.Data. 9eb0: 53 51 4c 69 74 65 2e 64 6c 6c 5c 22 2e 2e 2e 20 SQLite.dll\"... 9ec0: 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 " \.. 9ed0: 20 20 20 5b 66 69 6c 65 20 76 65 72 73 69 6f 6e [file version 9ee0: 20 5b 67 65 74 42 69 6e 61 72 79 46 69 6c 65 4e [getBinaryFileN 9ef0: 61 6d 65 20 53 79 73 74 65 6d 2e 44 61 74 61 2e ame System.Data. 9f00: 53 51 4c 69 74 65 2e 64 6c 6c 5d 5d 20 5c 6e 5d SQLite.dll]] \n] 9f10: 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 .. }.... 9f20: 20 20 20 20 20 20 20 63 61 74 63 68 20 7b 0d 0a catch {.. 9f30: 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 tputs 9f40: 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20$::test_channel
9f50: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20  [appendArgs \..
9f60: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d               "--
9f70: 2d 2d 20 66 69 6c 65 20 76 65 72 73 69 6f 6e 20  -- file version
9f80: 6f 66 20 5c 22 53 79 73 74 65 6d 2e 44 61 74 61  of \"System.Data
9f90: 2e 53 51 4c 69 74 65 2e 4c 69 6e 71 2e 64 6c 6c  .SQLite.Linq.dll
9fa0: 5c 22 2e 2e 2e 20 22 20 5c 0d 0a 20 20 20 20 20  \"... " \..
9fb0: 20 20 20 20 20 20 20 20 20 5b 66 69 6c 65 20 76           [file v
9fc0: 65 72 73 69 6f 6e 20 5b 67 65 74 42 69 6e 61 72  ersion [getBinar
9fd0: 79 46 69 6c 65 4e 61 6d 65 20 53 79 73 74 65 6d  yFileName System
9fe0: 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 4c 69 6e  .Data.SQLite.Lin
9ff0: 71 2e 64 6c 6c 5d 5d 20 5c 6e 5d 0d 0a 20 20 20  q.dll]] \n]..
a000: 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20       }....
a010: 20 20 73 65 74 20 61 73 73 65 6d 62 6c 69 65 73    set assemblies
a020: 20 5b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20   [object invoke
a030: 41 70 70 44 6f 6d 61 69 6e 2e 43 75 72 72 65 6e  AppDomain.Curren
a040: 74 44 6f 6d 61 69 6e 20 47 65 74 41 73 73 65 6d  tDomain GetAssem
a050: 62 6c 69 65 73 5d 0d 0a 0d 0a 20 20 20 20 20 20  blies]....
a060: 20 20 6f 62 6a 65 63 74 20 66 6f 72 65 61 63 68    object foreach
a070: 20 61 73 73 65 6d 62 6c 79 20 24 61 73 73 65 6d   assembly $assem a080: 62 6c 69 65 73 20 7b 0d 0a 20 20 20 20 20 20 20 blies {.. a090: 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6d if {[string m a0a0: 61 74 63 68 20 5c 7b 53 79 73 74 65 6d 2e 44 61 atch \{System.Da a0b0: 74 61 2e 53 51 4c 69 74 65 2a 20 24 61 73 73 65 ta.SQLite*$asse
a0c0: 6d 62 6c 79 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20  mbly]} then {..
a0d0: 20 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73             tputs
a0e0: 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c   $::test_channel a0f0: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a [appendArgs \.. a100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 a110: 22 2d 2d 2d 2d 20 66 6f 75 6e 64 20 61 73 73 65 "---- found asse a120: 6d 62 6c 79 3a 20 22 20 24 61 73 73 65 6d 62 6c mbly: "$assembl
a130: 79 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 20  y \n]..
a140: 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d   }..        }...
a150: 0a 20 20 20 20 20 20 20 20 63 61 74 63 68 20 7b  .        catch {
a160: 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70 75 74  ..          tput
a170: 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65  s $::test_channe a180: 6c 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 l \.. a190: 20 20 20 22 2d 2d 2d 2d 20 64 65 66 69 6e 65 20 "---- define a1a0: 63 6f 6e 73 74 61 6e 74 73 20 66 6f 72 20 5c 22 constants for \" a1b0: 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 System.Data.SQLi a1c0: 74 65 5c 22 2e 2e 2e 20 22 0d 0a 0d 0a 20 20 20 te\"... ".... a1d0: 20 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 if {[catc a1e0: 68 20 7b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 h {object invoke a1f0: 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 6c -flags +NonPubl a200: 69 63 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 ic \.. a210: 20 20 20 20 20 20 20 20 53 79 73 74 65 6d 2e 44 System.D a220: 61 74 61 2e 53 51 4c 69 74 65 2e 53 51 4c 69 74 ata.SQLite.SQLit a230: 65 33 20 44 65 66 69 6e 65 43 6f 6e 73 74 61 6e e3 DefineConstan a240: 74 73 7d 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 ts} \.. a250: 20 20 20 20 20 20 20 20 20 64 65 66 69 6e 65 43 defineC a260: 6f 6e 73 74 61 6e 74 73 5d 20 3d 3d 20 30 7d 20 onstants] == 0} a270: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 then {.. a280: 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 tputs$::tes
a290: 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e  t_channel [appen
a2a0: 64 41 72 67 73 20 5b 66 6f 72 6d 61 74 4c 69 73  dArgs [formatLis
a2b0: 74 20 5b 6c 73 6f 72 74 20 5c 0d 0a 20 20 20 20  t [lsort \..
a2c0: 20 20 20 20 20 20 20 20 20 20 20 20 24 64 65 66              $def a2d0: 69 6e 65 43 6f 6e 73 74 61 6e 74 73 5d 5d 20 5c ineConstants]] \ a2e0: 6e 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 20 n].. } a2f0: 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 else {.. a300: 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 tputs$::tes
a310: 74 5f 63 68 61 6e 6e 65 6c 20 75 6e 6b 6e 6f 77  t_channel unknow
a320: 6e 5c 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 7d  n\n..          }
a330: 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20  ..        }....
a340: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..
a350: 20 20 23 20 4e 4f 54 45 3a 20 4e 6f 77 2c 20 77    # NOTE: Now, w
a360: 65 20 6e 65 65 64 20 74 6f 20 6b 6e 6f 77 20 69  e need to know i
a370: 66 20 74 68 65 20 53 51 4c 69 74 65 20 63 6f 72  f the SQLite cor
a380: 65 20 6c 69 62 72 61 72 79 20 69 73 20 61 76 61  e library is ava
a390: 69 6c 61 62 6c 65 0d 0a 20 20 20 20 20 20 20 20  ilable..
a3a0: 23 20 20 20 20 20 20 20 28 69 2e 65 2e 20 62 65  #       (i.e. be
a3b0: 63 61 75 73 65 20 74 68 65 20 6d 61 6e 61 67 65  cause the manage
a3c0: 64 2d 6f 6e 6c 79 20 53 79 73 74 65 6d 2e 44 61  d-only System.Da
a3d0: 74 61 2e 53 51 4c 69 74 65 20 61 73 73 65 6d 62  ta.SQLite assemb
a3e0: 6c 79 20 63 61 6e 0d 0a 20 20 20 20 20 20 20 20  ly can..
a3f0: 23 20 20 20 20 20 20 20 6c 6f 61 64 20 77 69 74  #       load wit
a400: 68 6f 75 74 20 69 74 3b 20 68 6f 77 65 76 65 72  hout it; however
a410: 2c 20 69 74 20 63 61 6e 6e 6f 74 20 64 6f 20 61  , it cannot do a
a420: 6e 79 74 68 69 6e 67 20 75 73 65 66 75 6c 20 77  nything useful w
a430: 69 74 68 6f 75 74 0d 0a 20 20 20 20 20 20 20 20  ithout..
a440: 23 20 20 20 20 20 20 20 69 74 29 2e 20 20 49 66  #       it).  If
a450: 20 77 65 20 61 72 65 20 75 73 69 6e 67 20 74 68   we are using th
a460: 65 20 6d 69 78 65 64 2d 6d 6f 64 65 20 61 73 73  e mixed-mode ass
a470: 65 6d 62 6c 79 20 61 6e 64 20 77 65 20 61 6c 72  embly and we alr
a480: 65 61 64 79 0d 0a 20 20 20 20 20 20 20 20 23 20  eady..        #
a490: 20 20 20 20 20 20 66 6f 75 6e 64 20 69 74 20 28        found it (
a4a0: 61 62 6f 76 65 29 2c 20 74 68 69 73 20 73 68 6f  above), this sho
a4b0: 75 6c 64 20 61 6c 77 61 79 73 20 73 75 63 63 65  uld always succe
a4c0: 65 64 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a  ed...        #..
a4d0: 20 20 20 20 20 20 20 20 63 68 65 63 6b 46 6f 72          checkFor
a4e0: 53 51 4c 69 74 65 20 24 3a 3a 74 65 73 74 5f 63  SQLite $::test_c a4f0: 68 61 6e 6e 65 6c 0d 0a 0d 0a 20 20 20 20 20 20 hannel.... a500: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e #.. # N a510: 4f 54 45 3a 20 43 68 65 63 6b 20 69 66 20 74 68 OTE: Check if th a520: 65 20 73 71 6c 69 74 65 33 5f 77 69 6e 33 32 5f e sqlite3_win32_ a530: 73 65 74 5f 64 69 72 65 63 74 6f 72 79 20 66 75 set_directory fu a540: 6e 63 74 69 6f 6e 20 69 73 20 61 76 61 69 6c 61 nction is availa a550: 62 6c 65 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d ble... #. a560: 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 . tputs$
a570: 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5c  ::test_channel \
a580: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 2d  ..            "-
a590: 2d 2d 2d 20 63 68 65 63 6b 69 6e 67 20 66 6f 72  --- checking for
a5a0: 20 66 75 6e 63 74 69 6f 6e 20 73 71 6c 69 74 65   function sqlite
a5b0: 33 5f 77 69 6e 33 32 5f 73 65 74 5f 64 69 72 65  3_win32_set_dire
a5c0: 63 74 6f 72 79 2e 2e 2e 20 22 0d 0a 0d 0a 20 20  ctory... "....
a5d0: 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68        if {[catch
a5e0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..
a5f0: 20 20 20 20 6f 62 6a 65 63 74 20 69 6e 76 6f 6b      object invok
a600: 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 62  e -flags +NonPub
a610: 6c 69 63 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  lic \..
a620: 20 20 20 20 20 20 20 53 79 73 74 65 6d 2e 44 61         System.Da
a630: 74 61 2e 53 51 4c 69 74 65 2e 55 6e 73 61 66 65  ta.SQLite.Unsafe
a640: 4e 61 74 69 76 65 4d 65 74 68 6f 64 73 20 5c 0d  NativeMethods \.
a650: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .
a660: 20 73 71 6c 69 74 65 33 5f 77 69 6e 33 32 5f 73   sqlite3_win32_s
a670: 65 74 5f 64 69 72 65 63 74 6f 72 79 20 30 20 6e  et_directory 0 n
a680: 75 6c 6c 7d 5d 20 3d 3d 20 30 7d 20 74 68 65 6e  ull}] == 0} then
a690: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d   {..          #.
a6a0: 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54  .          # NOT
a6b0: 45 3a 20 43 61 6c 6c 69 6e 67 20 74 68 65 20 73  E: Calling the s
a6c0: 71 6c 69 74 65 33 5f 77 69 6e 33 32 5f 73 65 74  qlite3_win32_set
a6d0: 5f 64 69 72 65 63 74 6f 72 79 20 66 75 6e 63 74  _directory funct
a6e0: 69 6f 6e 20 64 6f 65 73 20 6e 6f 74 0d 0a 20 20  ion does not..
a6f0: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20          #
a700: 63 61 75 73 65 20 61 6e 20 65 78 63 65 70 74 69  cause an excepti
a710: 6f 6e 3b 20 74 68 65 72 65 66 6f 72 65 2c 20 69  on; therefore, i
a720: 74 20 6d 75 73 74 20 62 65 20 61 76 61 69 6c 61  t must be availa
a730: 62 6c 65 20 28 69 2e 65 2e 0d 0a 20 20 20 20 20  ble (i.e...
a740: 20 20 20 20 20 23 20 20 20 20 20 20 20 65 76 65       #       eve
a750: 6e 20 74 68 6f 75 67 68 20 69 74 20 73 68 6f 75  n though it shou
a760: 6c 64 20 72 65 74 75 72 6e 20 61 20 66 61 69 6c  ld return a fail
a770: 75 72 65 20 72 65 74 75 72 6e 20 63 6f 64 65 20  ure return code
a780: 69 6e 20 74 68 69 73 0d 0a 20 20 20 20 20 20 20  in this..
a790: 20 20 20 23 20 20 20 20 20 20 20 63 61 73 65 29     #       case)
a7a0: 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a  ...          #..
a7b0: 20 20 20 20 20 20 20 20 20 20 61 64 64 43 6f 6e            addCon
a7c0: 73 74 72 61 69 6e 74 20 73 71 6c 69 74 65 33 5f  straint sqlite3_
a7d0: 77 69 6e 33 32 5f 73 65 74 5f 64 69 72 65 63 74  win32_set_direct
a7e0: 6f 72 79 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20  ory....
a7f0: 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63   tputs $::test_c a800: 68 61 6e 6e 65 6c 20 79 65 73 5c 6e 0d 0a 20 20 hannel yes\n.. a810: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a } else {.. a820: 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 tputs a830: 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20$::test_channel
a840: 6e 6f 5c 6e 0d 0a 20 20 20 20 20 20 20 20 7d 0d  no\n..        }.
a850: 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20  ...        #..
a860: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 41 74        # NOTE: At
a870: 74 65 6d 70 74 20 74 6f 20 64 65 74 65 72 6d 69  tempt to determi
a880: 6e 65 20 69 66 20 74 68 65 20 63 75 73 74 6f 6d  ne if the custom
a890: 20 65 78 74 65 6e 73 69 6f 6e 20 66 75 6e 63 74   extension funct
a8a0: 69 6f 6e 73 20 77 65 72 65 0d 0a 20 20 20 20 20  ions were..
a8b0: 20 20 20 23 20 20 20 20 20 20 20 63 6f 6d 70 69     #       compi
a8c0: 6c 65 64 20 69 6e 74 6f 20 74 68 65 20 53 51 4c  led into the SQL
a8d0: 69 74 65 20 69 6e 74 65 72 6f 70 20 61 73 73 65  ite interop asse
a8e0: 6d 62 6c 79 2e 0d 0a 20 20 20 20 20 20 20 20 23  mbly...        #
a8f0: 0d 0a 20 20 20 20 20 20 20 20 63 68 65 63 6b 46  ..        checkF
a900: 6f 72 53 51 4c 69 74 65 44 65 66 69 6e 65 43 6f  orSQLiteDefineCo
a910: 6e 73 74 61 6e 74 20 24 3a 3a 74 65 73 74 5f 63  nstant $::test_c a920: 68 61 6e 6e 65 6c 20 5c 0d 0a 20 20 20 20 20 20 hannel \.. a930: 20 20 20 20 20 20 43 48 45 43 4b 5f 53 54 41 54 CHECK_STAT a940: 45 0d 0a 0d 0a 20 20 20 20 20 20 20 20 63 68 65 E.... che a950: 63 6b 46 6f 72 53 51 4c 69 74 65 44 65 66 69 6e ckForSQLiteDefin a960: 65 43 6f 6e 73 74 61 6e 74 20 24 3a 3a 74 65 73 eConstant$::tes
a970: 74 5f 63 68 61 6e 6e 65 6c 20 5c 0d 0a 20 20 20  t_channel \..
a980: 20 20 20 20 20 20 20 20 20 55 53 45 5f 49 4e 54           USE_INT
a990: 45 52 4f 50 5f 44 4c 4c 0d 0a 0d 0a 20 20 20 20  EROP_DLL....
a9a0: 20 20 20 20 63 68 65 63 6b 46 6f 72 53 51 4c 69      checkForSQLi
a9b0: 74 65 44 65 66 69 6e 65 43 6f 6e 73 74 61 6e 74  teDefineConstant
a9c0: 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c   $::test_channel a9d0: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \.. a9e0: 49 4e 54 45 52 4f 50 5f 45 58 54 45 4e 53 49 4f INTEROP_EXTENSIO a9f0: 4e 5f 46 55 4e 43 54 49 4f 4e 53 0d 0a 0d 0a 20 N_FUNCTIONS.... aa00: 20 20 20 20 20 20 20 63 68 65 63 6b 46 6f 72 53 checkForS aa10: 51 4c 69 74 65 44 65 66 69 6e 65 43 6f 6e 73 74 QLiteDefineConst aa20: 61 6e 74 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e ant$::test_chan
aa30: 6e 65 6c 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  nel \..
aa40: 20 20 20 49 4e 54 45 52 4f 50 5f 54 45 53 54 5f     INTEROP_TEST_
aa50: 45 58 54 45 4e 53 49 4f 4e 0d 0a 0d 0a 20 20 20  EXTENSION....
aa60: 20 20 20 20 20 63 68 65 63 6b 46 6f 72 53 51 4c       checkForSQL
aa70: 69 74 65 44 65 66 69 6e 65 43 6f 6e 73 74 61 6e  iteDefineConstan
aa80: 74 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65  t $::test_channe aa90: 6c 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 l \.. aaa0: 20 53 51 4c 49 54 45 5f 53 54 41 4e 44 41 52 44 SQLITE_STANDARD aab0: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 .... #.. aac0: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 43 # NOTE: C aad0: 68 65 63 6b 20 74 68 65 20 63 75 72 72 65 6e 74 heck the current aae0: 20 62 75 69 6c 64 20 79 65 61 72 2e 20 20 42 61 build year. Ba aaf0: 73 69 63 61 6c 6c 79 2c 20 74 68 69 73 20 69 6e sically, this in ab00: 64 69 63 61 74 65 73 0d 0a 20 20 20 20 20 20 20 dicates.. ab10: 20 23 20 20 20 20 20 20 20 77 68 69 63 68 20 76 # which v ab20: 65 72 73 69 6f 6e 20 6f 66 20 4d 53 42 75 69 6c ersion of MSBuil ab30: 64 20 61 6e 64 2f 6f 72 20 56 69 73 75 61 6c 20 d and/or Visual ab40: 53 74 75 64 69 6f 20 77 61 73 20 75 73 65 64 20 Studio was used ab50: 74 6f 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 to.. # ab60: 20 20 20 20 63 6f 6d 70 69 6c 65 20 74 68 65 20 compile the ab70: 61 73 73 65 6d 62 6c 79 20 62 69 6e 61 72 69 65 assembly binarie ab80: 73 20 75 6e 64 65 72 20 74 65 73 74 2e 0d 0a 20 s under test... ab90: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #.. aba0: 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f tputs$::test_
abb0: 63 68 61 6e 6e 65 6c 20 5c 0d 0a 20 20 20 20 20  channel \..
abc0: 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 63 68 65         "---- che
abd0: 63 6b 69 6e 67 20 66 6f 72 20 53 79 73 74 65 6d  cking for System
abe0: 2e 44 61 74 61 2e 53 51 4c 69 74 65 20 62 75 69  .Data.SQLite bui
abf0: 6c 64 20 79 65 61 72 2e 2e 2e 20 22 0d 0a 0d 0a  ld year... "....
ac00: 20 20 20 20 20 20 20 20 73 65 74 20 79 65 61 72          set year
ac10: 20 5b 67 65 74 42 75 69 6c 64 59 65 61 72 5d 0d   [getBuildYear].
ac20: 0a 20 20 20 20 20 20 20 20 61 64 64 43 6f 6e 73  .        addCons
ac30: 74 72 61 69 6e 74 20 5b 61 70 70 65 6e 64 41 72  traint [appendAr
ac40: 67 73 20 62 75 69 6c 64 59 65 61 72 20 24 79 65  gs buildYear $ye ac50: 61 72 5d 0d 0a 20 20 20 20 20 20 20 20 74 70 75 ar].. tpu ac60: 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e ts$::test_chann
ac70: 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c  el [appendArgs \
ac80: 22 20 24 79 65 61 72 20 5c 22 5c 6e 5d 0d 0a 0d  " $year \"\n]... ac90: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #.. aca0: 20 20 20 20 23 20 4e 4f 54 45 3a 20 43 68 65 63 # NOTE: Chec acb0: 6b 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 k the current bu acc0: 69 6c 64 20 63 6f 6e 66 69 67 75 72 61 74 69 6f ild configuratio acd0: 6e 2e 20 20 54 68 69 73 20 73 68 6f 75 6c 64 20 n. This should ace0: 6e 6f 72 6d 61 6c 6c 79 0d 0a 20 20 20 20 20 20 normally.. acf0: 20 20 23 20 20 20 20 20 20 20 62 65 20 65 69 74 # be eit ad00: 68 65 72 20 22 44 65 62 75 67 22 20 6f 72 20 22 her "Debug" or " ad10: 52 65 6c 65 61 73 65 22 2e 0d 0a 20 20 20 20 20 Release"... ad20: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 74 70 #.. tp ad30: 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e uts$::test_chan
ad40: 6e 65 6c 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  nel \..
ad50: 20 20 20 22 2d 2d 2d 2d 20 63 68 65 63 6b 69 6e     "---- checkin
ad60: 67 20 66 6f 72 20 53 79 73 74 65 6d 2e 44 61 74  g for System.Dat
ad70: 61 2e 53 51 4c 69 74 65 20 62 75 69 6c 64 20 63  a.SQLite build c
ad80: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 2e 2e 2e 20  onfiguration...
ad90: 22 0d 0a 0d 0a 20 20 20 20 20 20 20 20 73 65 74  "....        set
ada0: 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 5b   configuration [
adb0: 67 65 74 42 75 69 6c 64 43 6f 6e 66 69 67 75 72  getBuildConfigur
adc0: 61 74 69 6f 6e 5d 0d 0a 20 20 20 20 20 20 20 20  ation]..
add0: 61 64 64 43 6f 6e 73 74 72 61 69 6e 74 20 5b 61  addConstraint [a
ade0: 70 70 65 6e 64 41 72 67 73 20 62 75 69 6c 64 43  ppendArgs buildC
adf0: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 24 63 6f  onfiguration $co ae00: 6e 66 69 67 75 72 61 74 69 6f 6e 5d 0d 0a 20 20 nfiguration].. ae10: 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 tputs$::t
ae20: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70  est_channel [app
ae30: 65 6e 64 41 72 67 73 20 5c 22 20 24 63 6f 6e 66  endArgs \" $conf ae40: 69 67 75 72 61 74 69 6f 6e 20 5c 22 5c 6e 5d 0d iguration \"\n]. ae50: 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 ... #.. ae60: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 43 68 # NOTE: Ch ae70: 65 63 6b 20 66 6f 72 20 74 68 65 20 6e 61 74 69 eck for the nati ae80: 76 65 20 72 75 6e 74 69 6d 65 20 6f 70 74 69 6f ve runtime optio ae90: 6e 2c 20 77 68 69 63 68 20 77 6f 75 6c 64 20 6d n, which would m aea0: 65 61 6e 20 77 65 20 61 72 65 0d 0a 20 20 20 20 ean we are.. aeb0: 20 20 20 20 23 20 20 20 20 20 20 20 75 73 69 6e # usin aec0: 67 20 74 68 65 20 6d 69 78 65 64 2d 6d 6f 64 65 g the mixed-mode aed0: 20 61 73 73 65 6d 62 6c 79 2e 0d 0a 20 20 20 20 assembly... aee0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 63 #.. c aef0: 68 65 63 6b 46 6f 72 52 75 6e 74 69 6d 65 4f 70 heckForRuntimeOp af00: 74 69 6f 6e 20 24 3a 3a 74 65 73 74 5f 63 68 61 tion$::test_cha
af10: 6e 6e 65 6c 20 6e 61 74 69 76 65 0d 0a 0d 0a 20  nnel native....
af20: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..
af30: 20 20 23 20 4e 4f 54 45 3a 20 52 65 70 6f 72 74    # NOTE: Report
af40: 20 74 68 65 20 72 65 73 6f 75 72 63 65 20 75 73   the resource us
af50: 61 67 65 20 70 72 69 6f 72 20 74 6f 20 72 75 6e  age prior to run
af60: 6e 69 6e 67 20 61 6e 79 20 74 65 73 74 73 2e 0d  ning any tests..
af70: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20  .        #..
af80: 20 20 20 20 72 65 70 6f 72 74 53 51 4c 69 74 65      reportSQLite
af90: 52 65 73 6f 75 72 63 65 73 20 24 3a 3a 74 65 73  Resources $::tes afa0: 74 5f 63 68 61 6e 6e 65 6c 0d 0a 0d 0a 20 20 20 t_channel.... afb0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #.. afc0: 23 20 4e 4f 54 45 3a 20 53 68 6f 77 20 74 68 65 # NOTE: Show the afd0: 20 61 63 74 69 76 65 20 74 65 73 74 20 63 6f 6e active test con afe0: 73 74 72 61 69 6e 74 73 2e 0d 0a 20 20 20 20 20 straints... aff0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 74 70 #.. tp b000: 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e uts$::test_chan
b010: 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20  nel [appendArgs
b020: 22 2d 2d 2d 2d 20 63 6f 6e 73 74 72 61 69 6e 74  "---- constraint
b030: 73 3a 20 22 20 5c 0d 0a 20 20 20 20 20 20 20 20  s: " \..
b040: 20 20 20 20 5b 66 6f 72 6d 61 74 4c 69 73 74 20      [formatList
b050: 5b 6c 73 6f 72 74 20 5b 67 65 74 43 6f 6e 73 74  [lsort [getConst
b060: 72 61 69 6e 74 73 5d 5d 5d 20 5c 6e 5d 0d 0a 0d  raints]]] \n]...
b070: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20  .        #..
b080: 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 68 6f 77      # NOTE: Show
b090: 20 77 68 65 6e 20 6f 75 72 20 74 65 73 74 73 20   when our tests
b0a0: 61 63 74 75 61 6c 6c 79 20 62 65 67 61 6e 20 28  actually began (
b0b0: 6e 6f 77 29 2e 0d 0a 20 20 20 20 20 20 20 20 23  now)...        #
b0c0: 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20  ..        tputs
b0d0: 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20  $::test_channel b0e0: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 [appendArgs \.. b0f0: 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d "---- b100: 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c System.Data.SQL b110: 69 74 65 20 74 65 73 74 73 20 62 65 67 61 6e 20 ite tests began b120: 61 74 20 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 at " \.. b130: 20 20 20 20 5b 63 6c 6f 63 6b 20 66 6f 72 6d 61 [clock forma b140: 74 20 5b 63 6c 6f 63 6b 20 73 65 63 6f 6e 64 73 t [clock seconds b150: 5d 5d 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 7d 0d ]] \n].. }. b160: 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 . }..... p b170: 72 6f 63 20 72 75 6e 53 51 4c 69 74 65 54 65 73 roc runSQLiteTes b180: 74 45 70 69 6c 6f 67 75 65 20 7b 7d 20 7b 0d 0a tEpilogue {} {.. b190: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 #.. # b1a0: 20 4e 4f 54 45 3a 20 53 6b 69 70 20 72 75 6e 6e NOTE: Skip runn b1b0: 69 6e 67 20 6f 75 72 20 63 75 73 74 6f 6d 20 65 ing our custom e b1c0: 70 69 6c 6f 67 75 65 20 69 66 20 74 68 65 20 6d pilogue if the m b1d0: 61 69 6e 20 6f 6e 65 20 68 61 73 20 62 65 65 6e ain one has been b1e0: 20 73 6b 69 70 70 65 64 2e 0d 0a 20 20 20 20 20 skipped... b1f0: 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 21 5b #.. if {![ b200: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 6e 6f info exists ::no b210: 28 65 70 69 6c 6f 67 75 65 2e 65 61 67 6c 65 29 (epilogue.eagle) b220: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 ]} then {.. b230: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 #.. # b240: 4e 4f 54 45 3a 20 53 68 6f 77 20 77 68 65 6e 20 NOTE: Show when b250: 6f 75 72 20 74 65 73 74 73 20 61 63 74 75 61 6c our tests actual b260: 6c 79 20 65 6e 64 65 64 20 28 6e 6f 77 29 2e 0d ly ended (now).. b270: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #.. b280: 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 tputs$::tes
b290: 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e  t_channel [appen
b2a0: 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20  dArgs \..
b2b0: 20 20 20 20 20 22 2d 2d 2d 2d 20 53 79 73 74 65       "---- Syste
b2c0: 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 20 74 65  m.Data.SQLite te
b2d0: 73 74 73 20 65 6e 64 65 64 20 61 74 20 22 20 5c  sts ended at " \
b2e0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 5b 63  ..            [c
b2f0: 6c 6f 63 6b 20 66 6f 72 6d 61 74 20 5b 63 6c 6f  lock format [clo
b300: 63 6b 20 73 65 63 6f 6e 64 73 5d 5d 20 5c 6e 5d  ck seconds]] \n]
b310: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20  ....        #..
b320: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 41         # NOTE: A
b330: 6c 73 6f 20 72 65 70 6f 72 74 20 74 68 65 20 72  lso report the r
b340: 65 73 6f 75 72 63 65 20 75 73 61 67 65 20 61 66  esource usage af
b350: 74 65 72 20 72 75 6e 6e 69 6e 67 20 74 68 65 20  ter running the
b360: 74 65 73 74 73 2e 0d 0a 20 20 20 20 20 20 20 20  tests...
b370: 23 0d 0a 20 20 20 20 20 20 20 20 72 65 70 6f 72  #..        repor
b380: 74 53 51 4c 69 74 65 52 65 73 6f 75 72 63 65 73  tSQLiteResources
b390: 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c   \$::test_channel
b3a0: 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d  ..      }..    }
b3b0: 0d 0a 0c 0d 0a 20 20 20 20 23 23 23 23 23 23 23  .....    #######
b3c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
b3d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
b3e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
b3f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
b400: 23 23 23 23 0d 0a 20 20 20 20 23 23 23 23 23 23  ####..    ######
b410: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
b420: 23 23 23 23 23 23 23 20 45 4e 44 20 45 61 67 6c  ####### END Eagl
b430: 65 20 4f 4e 4c 59 20 23 23 23 23 23 23 23 23 23  e ONLY #########
b440: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
b450: 23 23 23 23 23 0d 0a 20 20 20 20 23 23 23 23 23  #####..    #####
b460: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
b470: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
b480: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
b490: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
b4a0: 23 23 23 23 23 23 0d 0a 20 20 7d 0d 0a 0d 0a 20  ######..  }....
b4b0: 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a 20 53 61   #..  # NOTE: Sa
b4c0: 76 65 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 74  ve the name of t
b4d0: 68 65 20 64 69 72 65 63 74 6f 72 79 20 63 6f 6e  he directory con
b4e0: 74 61 69 6e 69 6e 67 20 74 68 69 73 20 66 69 6c  taining this fil
b4f0: 65 2e 0d 0a 20 20 23 0d 0a 20 20 69 66 20 7b 21  e...  #..  if {!
b500: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 63  [info exists ::c
b510: 6f 6d 6d 6f 6e 5f 64 69 72 65 63 74 6f 72 79 5d  ommon_directory]
b520: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 73 65  } then {..    se
b530: 74 20 3a 3a 63 6f 6d 6d 6f 6e 5f 64 69 72 65 63  t ::common_direc
b540: 74 6f 72 79 20 5b 66 69 6c 65 20 64 69 72 6e 61  tory [file dirna
b550: 6d 65 20 5b 69 6e 66 6f 20 73 63 72 69 70 74 5d  me [info script]
b560: 5d 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 23 0d 0a 20  ]..  }....  #..
b570: 20 23 20 4e 4f 54 45 3a 20 50 72 6f 76 69 64 65   # NOTE: Provide
b580: 20 74 68 65 20 53 79 73 74 65 6d 2e 44 61 74 61   the System.Data
b590: 2e 53 51 4c 69 74 65 20 74 65 73 74 20 70 61 63  .SQLite test pac
b5a0: 6b 61 67 65 20 74 6f 20 74 68 65 20 69 6e 74 65  kage to the inte
b5b0: 72 70 72 65 74 65 72 2e 0d 0a 20 20 23 0d 0a 20  rpreter...  #..
b5c0: 20 70 61 63 6b 61 67 65 20 70 72 6f 76 69 64 65   package provide
b5d0: 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c   System.Data.SQL
b5e0: 69 74 65 2e 54 65 73 74 20 31 2e 30 0d 0a 7d 0d  ite.Test 1.0..}.
b5f0: 0a                                               .