System.Data.SQLite
Hex Artifact Content
Not logged in

## Artifact 3d3ecc3ea2618d9e8d4c827ef6b181e0e31e8986:

• File Tests/common.eagle — part of check-in [9ff332924a] at 2012-09-21 05:31:33 on branch trunk — Fix build issue due to not setting the new .NET Framework properties. Revise batch testing tool to support testing more build variations. Skip handling the LINQ assembly in the design-time installer when targeting Visual Studio 2005. Miscellaneous test cleanup. (user: mistachkin size: 44129)

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 74 68 65 20 63 61 6c 6c 65 72 2e 0d 0a by the 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 74 68 65 20 63 61 6c 6c 65 72  ed by the 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 74 68 65  specified by the
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 74 68 65 20 63 61 6c 6c 65 72 2e 20   of the 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 66 69 6c 65 20 63 6f 70 79 20 2d 66 6f 72 63   file copy -forc
3e60: 65 20 24 73 6f 75 72 63 65 46 69 6c 65 4e 61 6d  e $sourceFileNam 3e70: 65 20 24 74 61 72 67 65 74 46 69 6c 65 4e 61 6d e$targetFileNam
3e80: 65 7d 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b  e}] == 0} then {
3e90: 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20  ..        tputs
3ea0: 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20  $::test_channel 3eb0: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 [appendArgs \.. 3ec0: 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d "---- 3ed0: 20 63 6f 70 69 65 64 20 62 75 69 6c 64 20 66 69 copied build fi 3ee0: 6c 65 20 66 72 6f 6d 20 5c 22 22 20 24 73 6f 75 le from \""$sou
3ef0: 72 63 65 46 69 6c 65 4e 61 6d 65 20 22 5c 22 20  rceFileName "\"
3f00: 74 6f 20 5c 22 22 20 5c 0d 0a 20 20 20 20 20 20  to \"" \..
3f10: 20 20 20 20 20 20 24 74 61 72 67 65 74 46 69 6c        $targetFil 3f20: 65 4e 61 6d 65 20 5c 22 5c 6e 5d 0d 0a 20 20 20 eName \"\n].. 3f30: 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 } else {.. 3f40: 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 tputs$::te
3f50: 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65  st_channel [appe
3f60: 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20  ndArgs \..
3f70: 20 20 20 20 20 20 22 2d 2d 2d 2d 20 66 61 69 6c        "---- fail
3f80: 65 64 20 74 6f 20 63 6f 70 79 20 62 75 69 6c 64  ed to copy build
3f90: 20 66 69 6c 65 20 66 72 6f 6d 20 5c 22 22 20 24   file from \"" $3fa0: 73 6f 75 72 63 65 46 69 6c 65 4e 61 6d 65 20 5c sourceFileName \ 3fb0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 5c .. "\ 3fc0: 22 20 74 6f 20 5c 22 22 20 24 74 61 72 67 65 74 " to \""$target
3fd0: 46 69 6c 65 4e 61 6d 65 20 5c 22 5c 6e 5d 0d 0a  FileName \"\n]..
3fe0: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a        }..    }..
3ff0: 0c 0d 0a 20 20 20 20 70 72 6f 63 20 74 72 79 44  ...    proc tryD
4000: 65 6c 65 74 65 42 69 6e 61 72 79 46 69 6c 65 20  eleteBinaryFile
4010: 7b 20 66 69 6c 65 4e 61 6d 65 20 7d 20 7b 0d 0a  { fileName } {..
4020: 20 20 20 20 20 20 73 65 74 20 66 69 6c 65 4e 61        set fileNa
4030: 6d 65 20 5b 67 65 74 42 69 6e 61 72 79 46 69 6c  me [getBinaryFil
4040: 65 4e 61 6d 65 20 24 66 69 6c 65 4e 61 6d 65 5d  eName $fileName] 4050: 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 21 5b .... if {![ 4060: 66 69 6c 65 20 65 78 69 73 74 73 20 24 66 69 6c file exists$fil
4070: 65 4e 61 6d 65 5d 7d 20 74 68 65 6e 20 7b 0d 0a  eName]} then {..
4080: 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 3a          tputs $: 4090: 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 :test_channel [a 40a0: 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 ppendArgs \.. 40b0: 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 73 "---- s 40c0: 6b 69 70 70 65 64 20 64 65 6c 65 74 69 6e 67 20 kipped deleting 40d0: 62 69 6e 61 72 79 20 66 69 6c 65 20 5c 22 22 20 binary file \"" 40e0: 24 66 69 6c 65 4e 61 6d 65 20 5c 0d 0a 20 20 20$fileName \..
40f0: 20 20 20 20 20 20 20 20 20 22 5c 22 2c 20 69 74           "\", it
4100: 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 5c   does not exist\
4110: 6e 22 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 72  n"]....        r
4120: 65 74 75 72 6e 0d 0a 20 20 20 20 20 20 7d 0d 0a  eturn..      }..
4130: 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74  ..      if {[cat
4140: 63 68 20 7b 66 69 6c 65 20 64 65 6c 65 74 65 20  ch {file delete
4150: 24 66 69 6c 65 4e 61 6d 65 7d 5d 20 3d 3d 20 30  $fileName}] == 0 4160: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {.. 4170: 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f tputs$::test_
4180: 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41  channel [appendA
4190: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  rgs \..
41a0: 20 20 20 22 2d 2d 2d 2d 20 64 65 6c 65 74 65 64     "---- deleted
41b0: 20 62 69 6e 61 72 79 20 66 69 6c 65 20 5c 22 22   binary file \""
41c0: 20 24 66 69 6c 65 4e 61 6d 65 20 5c 22 5c 6e 5d   $fileName \"\n] 41d0: 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b .. } else { 41e0: 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20 .. tputs 41f0: 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20$::test_channel
4200: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20  [appendArgs \..
4210: 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d             "----
4220: 20 66 61 69 6c 65 64 20 74 6f 20 64 65 6c 65 74   failed to delet
4230: 65 20 62 69 6e 61 72 79 20 66 69 6c 65 20 5c 22  e binary file \"
4240: 22 20 24 66 69 6c 65 4e 61 6d 65 20 5c 22 5c 6e  " $fileName \"\n 4250: 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 ].. }.. 4260: 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 74 }..... proc t 4270: 72 79 43 6f 70 79 41 73 73 65 6d 62 6c 79 20 7b ryCopyAssembly { 4280: 20 66 69 6c 65 4e 61 6d 65 20 7b 70 64 62 20 74 fileName {pdb t 4290: 72 75 65 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 20 rue} } {.. 42a0: 74 72 79 43 6f 70 79 42 75 69 6c 64 46 69 6c 65 tryCopyBuildFile 42b0: 20 24 66 69 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 20$fileName....
42c0: 20 20 20 20 69 66 20 7b 24 70 64 62 7d 20 74 68      if {$pdb} th 42d0: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 74 72 en {.. tr 42e0: 79 43 6f 70 79 42 75 69 6c 64 46 69 6c 65 20 5b yCopyBuildFile [ 42f0: 61 70 70 65 6e 64 41 72 67 73 20 5b 66 69 6c 65 appendArgs [file 4300: 20 72 6f 6f 74 6e 61 6d 65 20 24 66 69 6c 65 4e rootname$fileN
4310: 61 6d 65 5d 20 2e 70 64 62 5d 0d 0a 20 20 20 20  ame] .pdb]..
4320: 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20    }..    }.....
4330: 20 20 20 70 72 6f 63 20 74 72 79 44 65 6c 65 74     proc tryDelet
4340: 65 41 73 73 65 6d 62 6c 79 20 7b 20 66 69 6c 65  eAssembly { file
4350: 4e 61 6d 65 20 7b 70 64 62 20 74 72 75 65 7d 20  Name {pdb true}
4360: 7d 20 7b 0d 0a 20 20 20 20 20 20 74 72 79 44 65  } {..      tryDe
4370: 6c 65 74 65 42 69 6e 61 72 79 46 69 6c 65 20 24  leteBinaryFile $4380: 66 69 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 20 20 20 fileName.... 4390: 20 20 69 66 20 7b 24 70 64 62 7d 20 74 68 65 6e if {$pdb} then
43a0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 74 72 79 44   {..        tryD
43b0: 65 6c 65 74 65 42 69 6e 61 72 79 46 69 6c 65 20  eleteBinaryFile
43c0: 5b 61 70 70 65 6e 64 41 72 67 73 20 5b 66 69 6c  [appendArgs [fil
43d0: 65 20 72 6f 6f 74 6e 61 6d 65 20 24 66 69 6c 65  e rootname $file 43e0: 4e 61 6d 65 5d 20 2e 70 64 62 5d 0d 0a 20 20 20 Name] .pdb].. 43f0: 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a }.. }..... 4400: 20 20 20 20 70 72 6f 63 20 74 72 79 4c 6f 61 64 proc tryLoad 4410: 41 73 73 65 6d 62 6c 79 20 7b 20 66 69 6c 65 4e Assembly { fileN 4420: 61 6d 65 20 7d 20 7b 0d 0a 20 20 20 20 20 20 73 ame } {.. s 4430: 65 74 20 66 69 6c 65 4e 61 6d 65 20 5b 67 65 74 et fileName [get 4440: 42 69 6e 61 72 79 46 69 6c 65 4e 61 6d 65 20 24 BinaryFileName$
4450: 66 69 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a 20 20 20  fileName]....
4460: 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 73     if {[catch {s
4470: 65 74 20 61 73 73 65 6d 62 6c 79 20 5c 0d 0a 20  et assembly \..
4480: 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 6f 62               [ob
4490: 6a 65 63 74 20 6c 6f 61 64 20 2d 6c 6f 61 64 74  ject load -loadt
44a0: 79 70 65 20 46 69 6c 65 20 2d 61 6c 69 61 73 20  ype File -alias
44b0: 24 66 69 6c 65 4e 61 6d 65 5d 7d 5d 20 3d 3d 20  $fileName]}] == 44c0: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 0} then {.. 44d0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 #.. # 44e0: 4e 4f 54 45 3a 20 4e 6f 77 2c 20 61 64 64 20 74 NOTE: Now, add t 44f0: 68 65 20 6e 65 63 65 73 73 61 72 79 20 74 65 73 he necessary tes 4500: 74 20 63 6f 6e 73 74 72 61 69 6e 74 2e 0d 0a 20 t constraint... 4510: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #.. 4520: 20 20 61 64 64 43 6f 6e 73 74 72 61 69 6e 74 20 addConstraint 4530: 5b 66 69 6c 65 20 72 6f 6f 74 6e 61 6d 65 20 5b [file rootname [ 4540: 66 69 6c 65 20 74 61 69 6c 20 24 66 69 6c 65 4e file tail$fileN
4550: 61 6d 65 5d 5d 0d 0a 0d 0a 20 20 20 20 20 20 20  ame]]....
4560: 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f   #..        # NO
4570: 54 45 3a 20 47 72 61 62 20 74 68 65 20 69 6d 61  TE: Grab the ima
4580: 67 65 20 72 75 6e 74 69 6d 65 20 76 65 72 73 69  ge runtime versi
4590: 6f 6e 20 66 72 6f 6d 20 74 68 65 20 61 73 73 65  on from the asse
45a0: 6d 62 6c 79 20 62 65 63 61 75 73 65 0d 0a 20 20  mbly because..
45b0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 73 65        #       se
45c0: 76 65 72 61 6c 20 74 65 73 74 73 20 72 65 6c 79  veral tests rely
45d0: 20 6f 6e 20 69 74 20 68 61 76 69 6e 67 20 61 20   on it having a
45e0: 63 65 72 74 61 69 6e 20 76 61 6c 75 65 2e 0d 0a  certain value...
45f0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..
4600: 20 20 20 61 64 64 43 6f 6e 73 74 72 61 69 6e 74     addConstraint
4610: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5b 66 69   [appendArgs [fi
4620: 6c 65 20 74 61 69 6c 20 24 66 69 6c 65 4e 61 6d  le tail $fileNam 4630: 65 5d 20 5f 20 5c 0d 0a 20 20 20 20 20 20 20 20 e] _ \.. 4640: 20 20 20 20 5b 24 61 73 73 65 6d 62 6c 79 20 49 [$assembly I
4650: 6d 61 67 65 52 75 6e 74 69 6d 65 56 65 72 73 69  mageRuntimeVersi
4660: 6f 6e 5d 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20  on]]....
4670: 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54  #..        # NOT
4680: 45 3a 20 52 65 74 75 72 6e 20 74 68 65 20 66 75  E: Return the fu
4690: 6c 6c 20 70 61 74 68 20 6f 66 20 74 68 65 20 6c  ll path of the l
46a0: 6f 61 64 65 64 20 66 69 6c 65 2e 0d 0a 20 20 20  oaded file...
46b0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..
46c0: 72 65 74 75 72 6e 20 24 66 69 6c 65 4e 61 6d 65  return $fileName 46d0: 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 .. }.... 46e0: 20 20 20 72 65 74 75 72 6e 20 22 22 0d 0a 20 20 return "".. 46f0: 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 }..... proc 4700: 20 63 68 65 63 6b 46 6f 72 53 51 4c 69 74 65 20 checkForSQLite 4710: 7b 20 63 68 61 6e 6e 65 6c 20 7d 20 7b 0d 0a 20 { channel } {.. 4720: 20 20 20 20 20 74 70 75 74 73 20 24 63 68 61 6e tputs$chan
4730: 6e 65 6c 20 22 2d 2d 2d 2d 20 63 68 65 63 6b 69  nel "---- checki
4740: 6e 67 20 66 6f 72 20 63 6f 72 65 20 53 51 4c 69  ng for core SQLi
4750: 74 65 20 6c 69 62 72 61 72 79 2e 2e 2e 20 22 0d  te library... ".
4760: 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 63 61  ...      if {[ca
4770: 74 63 68 20 7b 6f 62 6a 65 63 74 20 69 6e 76 6f  tch {object invo
4780: 6b 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75  ke -flags +NonPu
4790: 62 6c 69 63 20 53 79 73 74 65 6d 2e 44 61 74 61  blic System.Data
47a0: 2e 53 51 4c 69 74 65 2e 53 51 4c 69 74 65 33 20  .SQLite.SQLite3
47b0: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  \..
47c0: 20 53 51 4c 69 74 65 56 65 72 73 69 6f 6e 7d 20   SQLiteVersion}
47d0: 76 65 72 73 69 6f 6e 5d 20 3d 3d 20 30 7d 20 74  version] == 0} t
47e0: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 23  hen {..        #
47f0: 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45  ..        # NOTE
4800: 3a 20 41 74 74 65 6d 70 74 20 74 6f 20 71 75 65  : Attempt to que
4810: 72 79 20 74 68 65 20 46 6f 73 73 69 6c 20 73 6f  ry the Fossil so
4820: 75 72 63 65 20 69 64 65 6e 74 69 66 69 65 72 20  urce identifier
4830: 66 6f 72 20 74 68 65 20 53 51 4c 69 74 65 0d 0a  for the SQLite..
4840: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20          #
4850: 63 6f 72 65 20 6c 69 62 72 61 72 79 2e 0d 0a 20  core library...
4860: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..
4870: 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 6f 62    if {[catch {ob
4880: 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d 66 6c 61  ject invoke -fla
4890: 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 53 79  gs +NonPublic Sy
48a0: 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65  stem.Data.SQLite
48b0: 2e 53 51 4c 69 74 65 33 20 5c 0d 0a 20 20 20 20  .SQLite3 \..
48c0: 20 20 20 20 20 20 20 20 20 20 20 20 53 51 4c 69              SQLi
48d0: 74 65 53 6f 75 72 63 65 49 64 7d 20 73 6f 75 72  teSourceId} sour
48e0: 63 65 49 64 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20  ceId]} then {..
48f0: 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20           #..
4900: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 57 65        # NOTE: We
4910: 20 66 61 69 6c 65 64 20 74 6f 20 71 75 65 72 79   failed to query
4920: 20 74 68 65 20 46 6f 73 73 69 6c 20 73 6f 75 72   the Fossil sour
4930: 63 65 20 69 64 65 6e 74 69 66 69 65 72 2e 0d 0a  ce identifier...
4940: 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20            #..
4950: 20 20 20 20 20 20 20 73 65 74 20 73 6f 75 72 63         set sourc
4960: 65 49 64 20 75 6e 6b 6e 6f 77 6e 0d 0a 20 20 20  eId unknown..
4970: 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20       }....
4980: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e    #..        # N
4990: 4f 54 45 3a 20 59 65 73 2c 20 74 68 65 20 53 51  OTE: Yes, the SQ
49a0: 4c 69 74 65 20 63 6f 72 65 20 6c 69 62 72 61 72  Lite core librar
49b0: 79 20 61 70 70 65 61 72 73 20 74 6f 20 62 65 20  y appears to be
49c0: 61 76 61 69 6c 61 62 6c 65 2e 0d 0a 20 20 20 20  available...
49d0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 61      #..        a
49e0: 64 64 43 6f 6e 73 74 72 61 69 6e 74 20 53 51 4c  ddConstraint SQL
49f0: 69 74 65 0d 0a 0d 0a 20 20 20 20 20 20 20 20 74  ite....        t
4a00: 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61  puts $channel [a 4a10: 70 70 65 6e 64 41 72 67 73 20 22 79 65 73 20 28 ppendArgs "yes ( 4a20: 22 20 24 76 65 72 73 69 6f 6e 20 22 20 22 20 24 "$version " " $4a30: 73 6f 75 72 63 65 49 64 20 22 29 5c 6e 22 5d 0d sourceId ")\n"]. 4a40: 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d . } else {. 4a50: 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 . tputs$
4a60: 63 68 61 6e 6e 65 6c 20 6e 6f 5c 6e 0d 0a 20 20  channel no\n..
4a70: 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d      }..    }....
4a80: 0a 20 20 20 20 70 72 6f 63 20 63 68 65 63 6b 46  .    proc checkF
4a90: 6f 72 53 51 4c 69 74 65 44 65 66 69 6e 65 43 6f  orSQLiteDefineCo
4aa0: 6e 73 74 61 6e 74 20 7b 20 63 68 61 6e 6e 65 6c  nstant { channel
4ab0: 20 6e 61 6d 65 20 7d 20 7b 0d 0a 20 20 20 20 20   name } {..
4ac0: 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20   tputs $channel 4ad0: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 [appendArgs \.. 4ae0: 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 63 "---- c 4af0: 68 65 63 6b 69 6e 67 20 66 6f 72 20 53 79 73 74 hecking for Syst 4b00: 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 20 64 em.Data.SQLite d 4b10: 65 66 69 6e 65 20 63 6f 6e 73 74 61 6e 74 20 5c efine constant \ 4b20: 22 22 20 24 6e 61 6d 65 20 5c 0d 0a 20 20 20 20 ""$name \..
4b30: 20 20 20 20 20 20 22 5c 22 2e 2e 2e 20 22 5d 0d        "\"... "].
4b40: 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 63 61  ...      if {[ca
4b50: 74 63 68 20 7b 6f 62 6a 65 63 74 20 69 6e 76 6f  tch {object invo
4b60: 6b 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75  ke -flags +NonPu
4b70: 62 6c 69 63 20 53 79 73 74 65 6d 2e 44 61 74 61  blic System.Data
4b80: 2e 53 51 4c 69 74 65 2e 53 51 4c 69 74 65 33 20  .SQLite.SQLite3
4b90: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  \..
4ba0: 20 44 65 66 69 6e 65 43 6f 6e 73 74 61 6e 74 73   DefineConstants
4bb0: 7d 20 64 65 66 69 6e 65 43 6f 6e 73 74 61 6e 74  } defineConstant
4bc0: 73 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d  s] == 0} then {.
4bd0: 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b 6c 73  .        if {[ls
4be0: 65 61 72 63 68 20 2d 65 78 61 63 74 20 2d 6e 6f  earch -exact -no
4bf0: 63 61 73 65 20 24 64 65 66 69 6e 65 43 6f 6e 73  case $defineCons 4c00: 74 61 6e 74 73 20 24 6e 61 6d 65 5d 20 21 3d 20 tants$name] !=
4c10: 2d 31 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20  -1} then {..
4c20: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..
4c30: 20 20 20 23 20 4e 4f 54 45 3a 20 59 65 73 2c 20     # NOTE: Yes,
4c40: 74 68 69 73 20 64 65 66 69 6e 65 20 63 6f 6e 73  this define cons
4c50: 74 61 6e 74 20 77 61 73 20 65 6e 61 62 6c 65 64  tant was enabled
4c60: 20 77 68 65 6e 20 74 68 65 20 6d 61 6e 61 67 65   when the manage
4c70: 64 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 20  d..          #
4c80: 20 20 20 20 20 61 73 73 65 6d 62 6c 79 20 77 61       assembly wa
4c90: 73 20 63 6f 6d 70 69 6c 65 64 2e 0d 0a 20 20 20  s compiled...
4ca0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..
4cb0: 20 20 20 20 61 64 64 43 6f 6e 73 74 72 61 69 6e      addConstrain
4cc0: 74 20 5b 61 70 70 65 6e 64 41 72 67 73 20 64 65  t [appendArgs de
4cd0: 66 69 6e 65 43 6f 6e 73 74 61 6e 74 2e 53 79 73  fineConstant.Sys
4ce0: 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e  tem.Data.SQLite.
4cf0: 20 24 6e 61 6d 65 5d 0d 0a 0d 0a 20 20 20 20 20   $name].... 4d00: 20 20 20 20 20 74 70 75 74 73 20 24 63 68 61 6e tputs$chan
4d10: 6e 65 6c 20 79 65 73 5c 6e 0d 0a 20 20 20 20 20  nel yes\n..
4d20: 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20     } else {..
4d30: 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68         tputs $ch 4d40: 61 6e 6e 65 6c 20 6e 6f 5c 6e 0d 0a 20 20 20 20 annel no\n.. 4d50: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 20 65 }.. } e 4d60: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 74 lse {.. t 4d70: 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 65 72 puts$channel er
4d80: 72 6f 72 5c 6e 0d 0a 20 20 20 20 20 20 7d 0d 0a  ror\n..      }..
4d90: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72      }.....    pr
4da0: 6f 63 20 67 65 74 44 61 74 65 54 69 6d 65 46 6f  oc getDateTimeFo
4db0: 72 6d 61 74 20 7b 7d 20 7b 0d 0a 20 20 20 20 20  rmat {} {..
4dc0: 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45   #..      # NOTE
4dd0: 3a 20 54 68 69 73 20 70 72 6f 63 65 64 75 72 65  : This procedure
4de0: 20 73 69 6d 70 6c 79 20 72 65 74 75 72 6e 73 20   simply returns
4df0: 74 68 65 20 22 64 65 66 61 75 6c 74 22 20 44 61  the "default" Da
4e00: 74 65 54 69 6d 65 20 66 6f 72 6d 61 74 20 75 73  teTime format us
4e10: 65 64 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20  ed..      #
4e20: 20 20 62 79 20 74 68 65 20 74 65 73 74 20 73 75    by the test su
4e30: 69 74 65 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20  ite...      #..
4e40: 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65       if {[info e
4e50: 78 69 73 74 73 20 3a 3a 64 61 74 65 74 69 6d 65  xists ::datetime
4e60: 5f 66 6f 72 6d 61 74 5d 20 26 26 20 5c 0d 0a 20  _format] && \..
4e70: 20 20 20 20 20 20 20 20 20 5b 73 74 72 69 6e 67           [string
4e80: 20 6c 65 6e 67 74 68 20 24 3a 3a 64 61 74 65 74   length $::datet 4e90: 69 6d 65 5f 66 6f 72 6d 61 74 5d 20 3e 20 30 7d ime_format] > 0} 4ea0: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 then {.. 4eb0: 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f #.. # NO 4ec0: 54 45 3a 20 52 65 74 75 72 6e 20 74 68 65 20 6d TE: Return the m 4ed0: 61 6e 75 61 6c 6c 79 20 6f 76 65 72 72 69 64 64 anually overridd 4ee0: 65 6e 20 76 61 6c 75 65 20 66 6f 72 20 74 68 65 en value for the 4ef0: 20 44 61 74 65 54 69 6d 65 20 66 6f 72 6d 61 74 DateTime format 4f00: 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 ... #.. 4f10: 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 3a 3a return$::
4f20: 64 61 74 65 74 69 6d 65 5f 66 6f 72 6d 61 74 0d  datetime_format.
4f30: 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d  .      } else {.
4f40: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20  .        #..
4f50: 20 20 20 20 23 20 4e 4f 54 45 3a 20 52 65 74 75      # NOTE: Retu
4f60: 72 6e 20 61 6e 20 49 53 4f 38 36 30 31 20 44 61  rn an ISO8601 Da
4f70: 74 65 54 69 6d 65 20 66 6f 72 6d 61 74 20 63 6f  teTime format co
4f80: 6d 70 61 74 69 62 6c 65 20 77 69 74 68 20 53 51  mpatible with SQ
4f90: 4c 69 74 65 2c 0d 0a 20 20 20 20 20 20 20 20 23  Lite,..        #
4fa0: 20 20 20 20 20 20 20 53 79 73 74 65 6d 2e 44 61         System.Da
4fb0: 74 61 2e 53 51 4c 69 74 65 2c 20 61 6e 64 20 73  ta.SQLite, and s
4fc0: 75 69 74 61 62 6c 65 20 66 6f 72 20 72 6f 75 6e  uitable for roun
4fd0: 64 2d 74 72 69 70 70 69 6e 67 20 77 69 74 68 20  d-tripping with
4fe0: 74 68 65 0d 0a 20 20 20 20 20 20 20 20 23 20 20  the..        #
4ff0: 20 20 20 20 20 44 61 74 65 54 69 6d 65 20 63 6c       DateTime cl
5000: 61 73 73 20 6f 66 20 74 68 65 20 66 72 61 6d 65  ass of the frame
5010: 77 6f 72 6b 2e 20 20 49 66 20 74 68 69 73 20 76  work.  If this v
5020: 61 6c 75 65 20 69 73 20 63 68 61 6e 67 65 64 2c  alue is changed,
5030: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20  ..        #
5040: 20 20 76 61 72 69 6f 75 73 20 74 65 73 74 73 20    various tests
5050: 6d 61 79 20 66 61 69 6c 2e 0d 0a 20 20 20 20 20  may fail...
5060: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 72 65     #..        re
5070: 74 75 72 6e 20 22 79 79 79 79 2d 4d 4d 2d 64 64  turn "yyyy-MM-dd
5080: 20 48 48 3a 6d 6d 3a 73 73 2e 46 46 46 46 46 46   HH:mm:ss.FFFFFF
5090: 46 4b 22 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20  FK"..      }..
50a0: 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63    }.....    proc
50b0: 20 65 6e 75 6d 65 72 61 62 6c 65 54 6f 4c 69 73   enumerableToLis
50c0: 74 20 7b 20 65 6e 75 6d 65 72 61 62 6c 65 20 7d  t { enumerable }
50d0: 20 7b 0d 0a 20 20 20 20 20 20 73 65 74 20 72 65   {..      set re
50e0: 73 75 6c 74 20 5b 6c 69 73 74 5d 0d 0a 0d 0a 20  sult [list]....
50f0: 20 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67       if {[string
5100: 20 6c 65 6e 67 74 68 20 24 65 6e 75 6d 65 72 61   length $enumera 5110: 62 6c 65 5d 20 3d 3d 20 30 20 7c 7c 20 24 65 6e ble] == 0 ||$en
5120: 75 6d 65 72 61 62 6c 65 20 65 71 20 22 6e 75 6c  umerable eq "nul
5130: 6c 22 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20  l"} then {..
5140: 20 20 20 20 72 65 74 75 72 6e 20 24 72 65 73 75      return $resu 5150: 6c 74 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 lt.. }.... 5160: 20 20 20 20 20 6f 62 6a 65 63 74 20 66 6f 72 65 object fore 5170: 61 63 68 20 2d 61 6c 69 61 73 20 69 74 65 6d 20 ach -alias item 5180: 24 65 6e 75 6d 65 72 61 62 6c 65 20 7b 0d 0a 20$enumerable {..
5190: 20 20 20 20 20 20 20 69 66 20 7b 5b 73 74 72 69         if {[stri
51a0: 6e 67 20 6c 65 6e 67 74 68 20 24 69 74 65 6d 5d  ng length $item] 51b0: 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 > 0} then {.. 51c0: 20 20 20 20 20 20 20 20 6c 61 70 70 65 6e 64 20 lappend 51d0: 72 65 73 75 6c 74 20 5b 24 69 74 65 6d 20 54 6f result [$item To
51e0: 53 74 72 69 6e 67 5d 0d 0a 20 20 20 20 20 20 20  String]..
51f0: 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20   }..      }....
5200: 20 20 20 20 20 72 65 74 75 72 6e 20 24 72 65 73       return $res 5210: 75 6c 74 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 ult.. }..... 5220: 20 20 20 70 72 6f 63 20 63 61 74 63 68 41 6e 64 proc catchAnd 5230: 52 65 74 75 72 6e 20 7b 20 73 63 72 69 70 74 20 Return { script 5240: 7b 73 74 61 63 6b 54 72 61 63 65 20 66 61 6c 73 {stackTrace fals 5250: 65 7d 20 7b 73 74 72 69 63 74 20 74 72 75 65 7d e} {strict true} 5260: 20 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 } {.. #.. 5270: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 45 76 61 # NOTE: Eva 5280: 6c 75 61 74 65 20 74 68 65 20 73 63 72 69 70 74 luate the script 5290: 20 70 72 6f 76 69 64 65 64 20 62 79 20 74 68 65 provided by the 52a0: 20 63 61 6c 6c 65 72 20 69 6e 20 74 68 65 69 72 caller in their 52b0: 20 63 6f 6e 74 65 78 74 2c 0d 0a 20 20 20 20 20 context,.. 52c0: 20 23 20 20 20 20 20 20 20 63 61 70 74 75 72 69 # capturi 52d0: 6e 67 20 62 6f 74 68 20 74 68 65 20 72 65 73 75 ng both the resu 52e0: 6c 74 20 61 6e 64 20 74 68 65 20 72 65 74 75 72 lt and the retur 52f0: 6e 20 63 6f 64 65 2e 0d 0a 20 20 20 20 20 20 23 n code... # 5300: 0d 0a 20 20 20 20 20 20 73 65 74 20 63 6f 64 65 .. set code 5310: 20 5b 63 61 74 63 68 20 7b 75 70 6c 65 76 65 6c [catch {uplevel 5320: 20 31 20 24 73 63 72 69 70 74 7d 20 72 65 73 75 1$script} resu
5330: 6c 74 5d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a  lt]....      #..
5340: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 44 69        # NOTE: Di
5350: 64 20 74 68 65 20 73 63 72 69 70 74 20 70 72 6f  d the script pro
5360: 76 69 64 65 64 20 62 79 20 74 68 65 20 63 61 6c  vided by the cal
5370: 6c 65 72 20 4e 4f 54 20 72 61 69 73 65 20 61 6e  ler NOT raise an
5380: 20 65 72 72 6f 72 3f 0d 0a 20 20 20 20 20 20 23   error?..      #
5390: 0d 0a 20 20 20 20 20 20 69 66 20 7b 24 73 74 72  ..      if {$str 53a0: 69 63 74 20 26 26 20 24 63 6f 64 65 20 3d 3d 20 ict &&$code ==
53b0: 30 20 7c 7c 20 21 24 73 74 72 69 63 74 20 26 26  0 || !$strict && 53c0: 20 24 63 6f 64 65 20 21 3d 20 31 7d 20 74 68 65$code != 1} the
53d0: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a  n {..        #..
53e0: 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20          # NOTE:
53f0: 53 75 63 63 65 73 73 2e 20 20 52 65 74 75 72 6e  Success.  Return
5400: 20 61 20 6c 69 73 74 20 77 69 74 68 20 74 68 65   a list with the
5410: 20 72 65 74 75 72 6e 20 63 6f 64 65 20 61 6e 64   return code and
5420: 20 74 68 65 20 72 65 73 75 6c 74 2e 0d 0a 20 20   the result...
5430: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..
5440: 20 72 65 74 75 72 6e 20 5b 6c 69 73 74 20 24 63   return [list $c 5450: 6f 64 65 20 24 72 65 73 75 6c 74 5d 0d 0a 20 20 ode$result]..
5460: 20 20 20 20 7d 20 65 6c 73 65 69 66 20 7b 24 73      } elseif {$s 5470: 74 61 63 6b 54 72 61 63 65 7d 20 74 68 65 6e 20 tackTrace} then 5480: 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 {.. #.. 5490: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 46 61 # NOTE: Fa 54a0: 69 6c 75 72 65 2e 20 20 54 68 65 20 63 61 6c 6c ilure. The call 54b0: 65 72 20 77 61 6e 74 73 20 61 20 66 75 6c 6c 20 er wants a full 54c0: 73 74 61 63 6b 20 74 72 61 63 65 20 28 69 66 20 stack trace (if 54d0: 61 70 70 6c 69 63 61 62 6c 65 29 2c 0d 0a 20 20 applicable),.. 54e0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 72 65 # re 54f0: 74 75 72 6e 20 61 20 6c 69 73 74 20 77 69 74 68 turn a list with 5500: 20 74 68 65 20 72 65 74 75 72 6e 20 63 6f 64 65 the return code 5510: 20 61 6e 64 20 74 68 65 20 72 65 73 75 6c 74 20 and the result 5520: 76 65 72 62 61 74 69 6d 2e 0d 0a 20 20 20 20 20 verbatim... 5530: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 72 65 #.. re 5540: 74 75 72 6e 20 5b 6c 69 73 74 20 24 63 6f 64 65 turn [list$code
5550: 20 24 72 65 73 75 6c 74 5d 0d 0a 20 20 20 20 20   $result].. 5560: 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 } else {.. 5570: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 #.. # 5580: 4e 4f 54 45 3a 20 46 61 69 6c 75 72 65 2e 20 20 NOTE: Failure. 5590: 54 68 65 20 63 61 6c 6c 65 72 20 64 6f 65 73 20 The caller does 55a0: 6e 6f 74 20 77 61 6e 74 20 61 20 66 75 6c 6c 20 not want a full 55b0: 73 74 61 63 6b 20 74 72 61 63 65 20 28 69 66 0d stack trace (if. 55c0: 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 . # 55d0: 20 61 70 70 6c 69 63 61 62 6c 65 29 2c 20 72 65 applicable), re 55e0: 74 75 72 6e 20 61 20 6c 69 73 74 20 77 69 74 68 turn a list with 55f0: 20 74 68 65 20 72 65 74 75 72 6e 20 63 6f 64 65 the return code 5600: 2c 20 74 68 65 20 65 72 72 6f 72 0d 0a 20 20 20 , the error.. 5610: 20 20 20 20 20 23 20 20 20 20 20 20 20 63 6f 64 # cod 5620: 65 20 66 6f 72 20 74 68 65 20 69 6e 74 65 72 70 e for the interp 5630: 72 65 74 65 72 2c 20 61 6e 64 20 74 68 65 20 65 reter, and the e 5640: 72 72 6f 72 20 6d 65 73 73 61 67 65 20 75 70 20 rror message up 5650: 74 6f 20 74 68 65 0d 0a 20 20 20 20 20 20 20 20 to the.. 5660: 23 20 20 20 20 20 20 20 70 6f 69 6e 74 20 77 68 # point wh 5670: 65 72 65 20 74 68 65 20 73 74 61 63 6b 20 74 72 ere the stack tr 5680: 61 63 65 20 73 68 6f 75 6c 64 20 73 74 61 72 74 ace should start 5690: 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 ... #.. 56a0: 20 20 20 20 20 20 73 65 74 20 69 6e 64 65 78 20 set index 56b0: 5b 73 74 72 69 6e 67 20 66 69 72 73 74 20 22 20 [string first " 56c0: 20 20 61 74 20 22 20 24 72 65 73 75 6c 74 5d 3b at "$result];
56d0: 20 23 20 48 41 43 4b 3a 20 52 65 6c 69 61 62 6c   # HACK: Reliabl
56e0: 65 3f 0d 0a 0d 0a 20 20 20 20 20 20 20 20 72 65  e?....        re
56f0: 74 75 72 6e 20 5b 6c 69 73 74 20 24 63 6f 64 65  turn [list $code 5700: 20 24 3a 3a 65 72 72 6f 72 43 6f 64 65 20 5b 65$::errorCode [e
5710: 78 70 72 20 7b 24 69 6e 64 65 78 20 21 3d 20 2d  xpr {$index != - 5720: 31 20 3f 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 1 ? \.. 5730: 20 20 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20 [string trim 5740: 5b 73 74 72 69 6e 67 20 72 61 6e 67 65 20 24 72 [string range$r
5750: 65 73 75 6c 74 20 30 20 24 69 6e 64 65 78 5d 5d  esult 0 $index]] 5760: 20 3a 20 24 72 65 73 75 6c 74 7d 5d 5d 0d 0a 20 :$result}]]..
5770: 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c       }..    }...
5780: 0d 0a 20 20 20 20 70 72 6f 63 20 63 6f 6d 70 69  ..    proc compi
5790: 6c 65 43 53 68 61 72 70 57 69 74 68 20 7b 0d 0a  leCSharpWith {..
57a0: 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74              text
57b0: 20 6d 65 6d 6f 72 79 20 73 79 6d 62 6f 6c 73 20   memory symbols
57c0: 73 74 72 69 63 74 20 72 65 73 75 6c 74 73 56 61  strict resultsVa
57d0: 72 4e 61 6d 65 20 65 72 72 6f 72 73 56 61 72 4e  rName errorsVarN
57e0: 61 6d 65 20 66 69 6c 65 4e 61 6d 65 73 0d 0a 20  ame fileNames..
57f0: 20 20 20 20 20 20 20 20 20 20 20 61 72 67 73 20             args
5800: 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  } {..      #..
5810: 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 69 6e 63      # NOTE: Sinc
5820: 65 20 77 65 20 61 72 65 20 67 6f 69 6e 67 20 74  e we are going t
5830: 6f 20 75 73 65 20 74 68 69 73 20 6d 65 74 68 6f  o use this metho
5840: 64 20 6e 61 6d 65 20 61 20 6c 6f 74 2c 20 61 73  d name a lot, as
5850: 73 69 67 6e 20 69 74 20 74 6f 20 61 0d 0a 20 20  sign it to a..
5860: 20 20 20 20 23 20 20 20 20 20 20 20 76 61 72 69      #       vari
5870: 61 62 6c 65 20 66 69 72 73 74 2e 0d 0a 20 20 20  able first...
5880: 20 20 20 23 0d 0a 20 20 20 20 20 20 73 65 74 20     #..      set
5890: 61 64 64 20 52 65 66 65 72 65 6e 63 65 64 41 73  add ReferencedAs
58a0: 73 65 6d 62 6c 69 65 73 2e 41 64 64 0d 0a 0d 0a  semblies.Add....
58b0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23        #..      #
58c0: 20 4e 4f 54 45 3a 20 43 72 65 61 74 65 20 74 68   NOTE: Create th
58d0: 65 20 62 61 73 65 20 63 6f 6d 6d 61 6e 64 20 74  e base command t
58e0: 6f 20 65 76 61 6c 75 61 74 65 20 61 6e 64 20 61  o evaluate and a
58f0: 64 64 20 74 68 65 20 70 72 6f 70 65 72 74 79 20  dd the property
5900: 73 65 74 74 69 6e 67 73 0d 0a 20 20 20 20 20 20  settings..
5910: 23 20 20 20 20 20 20 20 74 68 61 74 20 61 72 65  #       that are
5920: 20 61 6c 6d 6f 73 74 20 61 6c 77 61 79 73 20 6e   almost always n
5930: 65 65 64 65 64 20 62 79 20 6f 75 72 20 75 6e 69  eeded by our uni
5940: 74 20 74 65 73 74 73 20 28 69 2e 65 2e 20 74 68  t tests (i.e. th
5950: 65 20 53 79 73 74 65 6d 0d 0a 20 20 20 20 20 20  e System..
5960: 23 20 20 20 20 20 20 20 61 6e 64 20 53 79 73 74  #       and Syst
5970: 65 6d 2e 44 61 74 61 20 61 73 73 65 6d 62 6c 79  em.Data assembly
5980: 20 72 65 66 65 72 65 6e 63 65 73 29 2e 0d 0a 20   references)...
5990: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 73 65       #..      se
59a0: 74 20 63 6f 6d 6d 61 6e 64 20 5b 6c 69 73 74 20  t command [list
59b0: 63 6f 6d 70 69 6c 65 43 53 68 61 72 70 20 24 74  compileCSharp $t 59c0: 65 78 74 20 24 6d 65 6d 6f 72 79 20 24 73 79 6d ext$memory $sym 59d0: 62 6f 6c 73 20 24 73 74 72 69 63 74 20 72 65 73 bols$strict res
59e0: 75 6c 74 73 20 5c 0d 0a 20 20 20 20 20 20 20 20  ults \..
59f0: 20 20 65 72 72 6f 72 73 20 24 61 64 64 20 53 79    errors $add Sy 5a00: 73 74 65 6d 2e 64 6c 6c 20 24 61 64 64 20 53 79 stem.dll$add Sy
5a10: 73 74 65 6d 2e 44 61 74 61 2e 64 6c 6c 20 24 61  stem.Data.dll $a 5a20: 64 64 20 53 79 73 74 65 6d 2e 58 6d 6c 2e 64 6c dd System.Xml.dl 5a30: 6c 5d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 l].... #.. 5a40: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 41 64 64 # NOTE: Add 5a50: 20 61 6c 6c 20 74 68 65 20 70 72 6f 76 69 64 65 all the provide 5a60: 64 20 66 69 6c 65 20 6e 61 6d 65 73 20 61 73 20 d file names as 5a70: 61 73 73 65 6d 62 6c 79 20 72 65 66 65 72 65 6e assembly referen 5a80: 63 65 73 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 ces... #.. 5a90: 20 20 20 20 20 66 6f 72 65 61 63 68 20 66 69 6c foreach fil 5aa0: 65 4e 61 6d 65 20 24 66 69 6c 65 4e 61 6d 65 73 eName$fileNames
5ab0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 6c 61 70 70   {..        lapp
5ac0: 65 6e 64 20 63 6f 6d 6d 61 6e 64 20 24 61 64 64  end command $add 5ad0: 20 5b 67 65 74 42 69 6e 61 72 79 46 69 6c 65 4e [getBinaryFileN 5ae0: 61 6d 65 20 24 66 69 6c 65 4e 61 6d 65 5d 0d 0a ame$fileName]..
5af0: 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20        }....
5b00: 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45   #..      # NOTE
5b10: 3a 20 41 64 64 20 74 68 65 20 65 78 74 72 61 20  : Add the extra
5b20: 61 72 67 75 6d 65 6e 74 73 2c 20 69 66 20 61 6e  arguments, if an
5b30: 79 2c 20 74 6f 20 74 68 65 20 63 6f 6d 6d 61 6e  y, to the comman
5b40: 64 20 74 6f 20 65 76 61 6c 75 61 74 65 2e 0d 0a  d to evaluate...
5b50: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 65        #..      e
5b60: 76 61 6c 20 6c 61 70 70 65 6e 64 20 63 6f 6d 6d  val lappend comm
5b70: 61 6e 64 20 24 61 72 67 73 0d 0a 0d 0a 20 20 20  and $args.... 5b80: 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f #.. # NO 5b90: 54 45 3a 20 41 6c 69 61 73 20 74 68 65 20 63 6f TE: Alias the co 5ba0: 6d 70 69 6c 65 72 20 6c 6f 63 61 6c 20 72 65 73 mpiler local res 5bb0: 75 6c 74 73 20 61 6e 64 20 65 72 72 6f 72 73 20 ults and errors 5bc0: 76 61 72 69 61 62 6c 65 73 20 74 6f 20 74 68 65 variables to the 5bd0: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. # 5be0: 76 61 72 69 61 62 6c 65 20 6e 61 6d 65 73 20 70 variable names p 5bf0: 72 6f 76 69 64 65 64 20 62 79 20 6f 75 72 20 63 rovided by our c 5c00: 61 6c 6c 65 72 2e 0d 0a 20 20 20 20 20 20 23 0d aller... #. 5c10: 0a 20 20 20 20 20 20 75 70 76 61 72 20 31 20 24 . upvar 1$
5c20: 72 65 73 75 6c 74 73 56 61 72 4e 61 6d 65 20 72  resultsVarName r
5c30: 65 73 75 6c 74 73 0d 0a 20 20 20 20 20 20 75 70  esults..      up
5c40: 76 61 72 20 31 20 24 65 72 72 6f 72 73 56 61 72  var 1 $errorsVar 5c50: 4e 61 6d 65 20 65 72 72 6f 72 73 0d 0a 0d 0a 20 Name errors.... 5c60: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 #.. # 5c70: 4e 4f 54 45 3a 20 45 76 61 6c 75 61 74 65 20 74 NOTE: Evaluate t 5c80: 68 65 20 63 6f 6e 73 74 72 75 63 74 65 64 20 5b he constructed [ 5c90: 63 6f 6d 70 69 6c 65 43 53 68 61 72 70 5d 20 63 compileCSharp] c 5ca0: 6f 6d 6d 61 6e 64 20 61 6e 64 20 72 65 74 75 72 ommand and retur 5cb0: 6e 20 74 68 65 0d 0a 20 20 20 20 20 20 23 20 20 n the.. # 5cc0: 20 20 20 20 20 72 65 73 75 6c 74 2e 0d 0a 20 20 result... 5cd0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 65 76 61 #.. eva 5ce0: 6c 20 24 63 6f 6d 6d 61 6e 64 0d 0a 20 20 20 20 l$command..
5cf0: 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 69  }.....    proc i
5d00: 73 4d 65 6d 6f 72 79 44 62 20 7b 20 66 69 6c 65  sMemoryDb { file
5d10: 4e 61 6d 65 20 7d 20 7b 0d 0a 20 20 20 20 20 20  Name } {..
5d20: 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a  #..      # NOTE:
5d30: 20 49 73 20 74 68 65 20 73 70 65 63 69 66 69 65   Is the specifie
5d40: 64 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 20  d database file
5d50: 6e 61 6d 65 20 72 65 61 6c 6c 79 20 61 6e 20 69  name really an i
5d60: 6e 2d 6d 65 6d 6f 72 79 20 64 61 74 61 62 61 73  n-memory databas
5d70: 65 3f 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20  e?..      #..
5d80: 20 20 20 72 65 74 75 72 6e 20 5b 65 78 70 72 20     return [expr
5d90: 7b 24 66 69 6c 65 4e 61 6d 65 20 65 71 20 22 3a  {$fileName eq ": 5da0: 6d 65 6d 6f 72 79 3a 22 20 7c 7c 20 5c 0d 0a 20 memory:" || \.. 5db0: 20 20 20 20 20 20 20 20 20 5b 73 74 72 69 6e 67 [string 5dc0: 20 72 61 6e 67 65 20 24 66 69 6c 65 4e 61 6d 65 range$fileName
5dd0: 20 30 20 31 32 5d 20 65 71 20 22 66 69 6c 65 3a   0 12] eq "file:
5de0: 3a 6d 65 6d 6f 72 79 3a 22 7d 5d 0d 0a 20 20 20  :memory:"}]..
5df0: 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20   }.....    proc
5e00: 73 65 74 75 70 44 62 20 7b 0d 0a 20 20 20 20 20  setupDb {..
5e10: 20 20 20 20 20 20 20 66 69 6c 65 4e 61 6d 65 20         fileName
5e20: 7b 6d 6f 64 65 20 22 22 7d 20 7b 64 61 74 65 54  {mode ""} {dateT
5e30: 69 6d 65 46 6f 72 6d 61 74 20 22 22 7d 20 7b 64  imeFormat ""} {d
5e40: 61 74 65 54 69 6d 65 4b 69 6e 64 20 22 22 7d 20  ateTimeKind ""}
5e50: 7b 66 6c 61 67 73 20 22 22 7d 0d 0a 20 20 20 20  {flags ""}..
5e60: 20 20 20 20 20 20 20 20 7b 65 78 74 72 61 20 22          {extra "
5e70: 22 7d 20 7b 71 75 61 6c 69 66 79 20 74 72 75 65  "} {qualify true
5e80: 7d 20 7b 64 65 6c 65 74 65 20 74 72 75 65 7d 20  } {delete true}
5e90: 7b 75 72 69 20 66 61 6c 73 65 7d 20 7b 76 61 72  {uri false} {var
5ea0: 4e 61 6d 65 20 64 62 7d 20 7d 20 7b 0d 0a 20 20  Name db} } {..
5eb0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e      #..      # N
5ec0: 4f 54 45 3a 20 46 69 72 73 74 2c 20 73 65 65 20  OTE: First, see
5ed0: 69 66 20 74 68 65 20 63 61 6c 6c 65 72 20 68 61  if the caller ha
5ee0: 73 20 72 65 71 75 65 73 74 65 64 20 61 6e 20 69  s requested an i
5ef0: 6e 2d 6d 65 6d 6f 72 79 20 64 61 74 61 62 61 73  n-memory databas
5f00: 65 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20  e...      #..
5f10: 20 20 20 73 65 74 20 69 73 4d 65 6d 6f 72 79 20     set isMemory
5f20: 5b 69 73 4d 65 6d 6f 72 79 44 62 20 24 66 69 6c  [isMemoryDb $fil 5f30: 65 4e 61 6d 65 5d 0d 0a 0d 0a 20 20 20 20 20 20 eName].... 5f40: 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a #.. # NOTE: 5f50: 20 46 6f 72 20 6e 6f 77 2c 20 61 6c 6c 20 74 65 For now, all te 5f60: 73 74 20 64 61 74 61 62 61 73 65 73 20 75 73 65 st databases use 5f70: 64 20 62 79 20 74 68 65 20 74 65 73 74 20 73 75 d by the test su 5f80: 69 74 65 20 61 72 65 20 70 6c 61 63 65 64 20 69 ite are placed i 5f90: 6e 74 6f 0d 0a 20 20 20 20 20 20 23 20 20 20 20 nto.. # 5fa0: 20 20 20 74 68 65 20 74 65 6d 70 6f 72 61 72 79 the temporary 5fb0: 20 64 69 72 65 63 74 6f 72 79 2e 20 20 45 61 63 directory. Eac 5fc0: 68 20 64 61 74 61 62 61 73 65 20 75 73 65 64 20 h database used 5fd0: 62 79 20 61 20 74 65 73 74 20 73 68 6f 75 6c 64 by a test should 5fe0: 20 62 65 0d 0a 20 20 20 20 20 20 23 20 20 20 20 be.. # 5ff0: 20 20 20 63 6c 65 61 6e 65 64 20 75 70 20 62 79 cleaned up by 6000: 20 74 68 61 74 20 74 65 73 74 20 75 73 69 6e 67 that test using 6010: 20 74 68 65 20 22 63 6c 65 61 6e 75 70 44 62 22 the "cleanupDb" 6020: 20 70 72 6f 63 65 64 75 72 65 2c 20 62 65 6c 6f procedure, belo 6030: 77 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 w... #.. 6040: 20 20 20 69 66 20 7b 21 24 69 73 4d 65 6d 6f 72 if {!$isMemor
6050: 79 20 26 26 20 24 71 75 61 6c 69 66 79 7d 20 74  y && $qualify} t 6060: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 73 hen {.. s 6070: 65 74 20 66 69 6c 65 4e 61 6d 65 20 5b 66 69 6c et fileName [fil 6080: 65 20 6a 6f 69 6e 20 5b 67 65 74 44 61 74 61 62 e join [getDatab 6090: 61 73 65 44 69 72 65 63 74 6f 72 79 5d 20 5b 66 aseDirectory] [f 60a0: 69 6c 65 20 74 61 69 6c 20 24 66 69 6c 65 4e 61 ile tail$fileNa
60b0: 6d 65 5d 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d  me]]..      }...
60c0: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20  .      #..
60d0: 23 20 4e 4f 54 45 3a 20 42 79 20 64 65 66 61 75  # NOTE: By defau
60e0: 6c 74 2c 20 64 65 6c 65 74 65 20 61 6e 79 20 70  lt, delete any p
60f0: 72 65 2d 65 78 69 73 74 69 6e 67 20 64 61 74 61  re-existing data
6100: 62 61 73 65 20 77 69 74 68 20 74 68 65 20 73 61  base with the sa
6110: 6d 65 20 66 69 6c 65 0d 0a 20 20 20 20 20 20 23  me file..      #
6120: 20 20 20 20 20 20 20 6e 61 6d 65 20 69 66 20 69         name if i
6130: 74 20 63 75 72 72 65 6e 74 6c 79 20 65 78 69 73  t currently exis
6140: 74 73 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  ts...      #..
6150: 20 20 20 20 69 66 20 7b 21 24 69 73 4d 65 6d 6f      if {!$isMemo 6160: 72 79 20 26 26 20 24 64 65 6c 65 74 65 20 26 26 ry &&$delete &&
6170: 20 5b 66 69 6c 65 20 65 78 69 73 74 73 20 24 66   [file exists $f 6180: 69 6c 65 4e 61 6d 65 5d 7d 20 74 68 65 6e 20 7b ileName]} then { 6190: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #.. 61a0: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 41 74 74 # NOTE: Att 61b0: 65 6d 70 74 20 74 6f 20 64 65 6c 65 74 65 20 61 empt to delete a 61c0: 6e 79 20 70 72 65 2d 65 78 69 73 74 69 6e 67 20 ny pre-existing 61d0: 64 61 74 61 62 61 73 65 20 77 69 74 68 20 74 68 database with th 61e0: 65 20 73 61 6d 65 20 66 69 6c 65 0d 0a 20 20 20 e same file.. 61f0: 20 20 20 20 20 23 20 20 20 20 20 20 20 6e 61 6d # nam 6200: 65 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 e... #.. 6210: 20 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 if {[catc 6220: 68 20 7b 66 69 6c 65 20 64 65 6c 65 74 65 20 24 h {file delete$
6230: 66 69 6c 65 4e 61 6d 65 7d 20 65 72 72 6f 72 5d  fileName} error]
6240: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..
6250: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20      #..
6260: 20 23 20 4e 4f 54 45 3a 20 57 65 20 73 6f 6d 65   # NOTE: We some
6270: 68 6f 77 20 66 61 69 6c 65 64 20 74 6f 20 64 65  how failed to de
6280: 6c 65 74 65 20 74 68 65 20 66 69 6c 65 2c 20 72  lete the file, r
6290: 65 70 6f 72 74 20 77 68 79 2e 0d 0a 20 20 20 20  eport why...
62a0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..
62b0: 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74     tputs $::test 62c0: 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 _channel [append 62d0: 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 Args \.. 62e0: 20 20 20 20 20 20 22 3d 3d 3d 3d 20 57 41 52 4e "==== WARN 62f0: 49 4e 47 3a 20 66 61 69 6c 65 64 20 74 6f 20 64 ING: failed to d 6300: 65 6c 65 74 65 20 64 61 74 61 62 61 73 65 20 66 elete database f 6310: 69 6c 65 20 5c 22 22 20 24 66 69 6c 65 4e 61 6d ile \""$fileNam
6320: 65 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20  e \..
6330: 20 20 20 22 5c 22 20 64 75 72 69 6e 67 20 73 65     "\" during se
6340: 74 75 70 2c 20 65 72 72 6f 72 3a 20 22 20 5c 6e  tup, error: " \n
6350: 5c 74 20 24 65 72 72 6f 72 20 5c 6e 5d 0d 0a 20  \t $error \n].. 6360: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 }.. 6370: 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 }.... #.. 6380: 20 20 20 20 23 20 4e 4f 54 45 3a 20 52 65 66 65 # NOTE: Refe 6390: 72 20 74 6f 20 74 68 65 20 73 70 65 63 69 66 69 r to the specifi 63a0: 65 64 20 76 61 72 69 61 62 6c 65 20 28 65 2e 67 ed variable (e.g 63b0: 2e 20 22 64 62 22 29 20 69 6e 20 74 68 65 20 63 . "db") in the c 63c0: 6f 6e 74 65 78 74 20 6f 66 20 74 68 65 0d 0a 20 ontext of the.. 63d0: 20 20 20 20 20 23 20 20 20 20 20 20 20 63 61 6c # cal 63e0: 6c 65 72 2e 20 20 54 68 65 20 68 61 6e 64 6c 65 ler. The handle 63f0: 20 74 6f 20 74 68 65 20 6f 70 65 6e 65 64 20 64 to the opened d 6400: 61 74 61 62 61 73 65 20 77 69 6c 6c 20 62 65 20 atabase will be 6410: 73 74 6f 72 65 64 20 74 68 65 72 65 2e 0d 0a 20 stored there... 6420: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 75 70 #.. up 6430: 76 61 72 20 31 20 24 76 61 72 4e 61 6d 65 20 64 var 1$varName d
6440: 62 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  b....      #..
6450: 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 74 61 72      # NOTE: Star
6460: 74 20 62 75 69 6c 64 69 6e 67 20 74 68 65 20 63  t building the c
6470: 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 72 69 6e 67  onnection string
6480: 2e 20 20 54 68 65 20 6f 6e 6c 79 20 72 65 71 75  .  The only requ
6490: 69 72 65 64 20 70 6f 72 74 69 6f 6e 0d 0a 20 20  ired portion..
64a0: 20 20 20 20 23 20 20 20 20 20 20 20 6f 66 20 74      #       of t
64b0: 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 74  he connection st
64c0: 72 69 6e 67 20 69 73 20 74 68 65 20 64 61 74 61  ring is the data
64d0: 20 73 6f 75 72 63 65 2c 20 77 68 69 63 68 20 63   source, which c
64e0: 6f 6e 74 61 69 6e 73 20 74 68 65 0d 0a 20 20 20  ontains the..
64f0: 20 20 20 23 20 20 20 20 20 20 20 64 61 74 61 62     #       datab
6500: 61 73 65 20 66 69 6c 65 20 6e 61 6d 65 20 69 74  ase file name it
6510: 73 65 6c 66 2e 20 20 49 66 20 74 68 65 20 63 61  self.  If the ca
6520: 6c 6c 65 72 20 77 61 6e 74 73 20 74 6f 20 75 73  ller wants to us
6530: 65 20 61 20 55 52 49 20 61 73 0d 0a 20 20 20 20  e a URI as..
6540: 20 20 23 20 20 20 20 20 20 20 74 68 65 20 64 61    #       the da
6550: 74 61 20 73 6f 75 72 63 65 2c 20 75 73 65 20 74  ta source, use t
6560: 68 65 20 46 75 6c 6c 55 72 69 20 63 6f 6e 6e 65  he FullUri conne
6570: 63 74 69 6f 6e 20 73 74 72 69 6e 67 20 70 72 6f  ction string pro
6580: 70 65 72 74 79 20 74 6f 0d 0a 20 20 20 20 20 20  perty to..
6590: 23 20 20 20 20 20 20 20 70 72 65 76 65 6e 74 20  #       prevent
65a0: 74 68 65 20 64 61 74 61 20 73 6f 75 72 63 65 20  the data source
65b0: 73 74 72 69 6e 67 20 66 72 6f 6d 20 62 65 69 6e  string from bein
65c0: 67 20 6d 61 6e 67 6c 65 64 2e 0d 0a 20 20 20 20  g mangled...
65d0: 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 24    #..      if {$65e0: 75 72 69 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 uri} then {.. 65f0: 20 20 20 20 20 73 65 74 20 63 6f 6e 6e 65 63 74 set connect 6600: 69 6f 6e 20 7b 46 75 6c 6c 55 72 69 3d 24 7b 66 ion {FullUri=${f
6610: 69 6c 65 4e 61 6d 65 7d 7d 0d 0a 20 20 20 20 20  ileName}}..
6620: 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20   } else {..
6630: 20 20 20 73 65 74 20 63 6f 6e 6e 65 63 74 69 6f     set connectio
6640: 6e 20 7b 44 61 74 61 20 53 6f 75 72 63 65 3d 24  n {Data Source=$6650: 7b 66 69 6c 65 4e 61 6d 65 7d 7d 0d 0a 20 20 20 {fileName}}.. 6660: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d }.... #. 6670: 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 . # NOTE: S 6680: 69 6e 63 65 20 74 68 69 73 20 70 72 6f 63 65 64 ince this proced 6690: 75 72 65 20 68 61 73 20 6e 6f 20 73 70 65 63 69 ure has no speci 66a0: 61 6c 20 6b 6e 6f 77 6c 65 64 67 65 20 6f 66 20 al knowledge of 66b0: 77 68 61 74 20 74 68 65 20 64 65 66 61 75 6c 74 what the default 66c0: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. # 66d0: 73 65 74 74 69 6e 67 20 69 73 20 66 6f 72 20 74 setting is for t 66e0: 68 65 20 54 6f 46 75 6c 6c 50 61 74 68 20 63 6f he ToFullPath co 66f0: 6e 6e 65 63 74 69 6f 6e 20 73 74 72 69 6e 67 20 nnection string 6700: 70 72 6f 70 65 72 79 2c 20 61 6c 77 61 79 73 0d propery, always. 6710: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 61 . # a 6720: 64 64 20 74 68 65 20 76 61 6c 75 65 20 77 65 20 dd the value we 6730: 6b 6e 6f 77 20 61 62 6f 75 74 20 74 6f 20 74 68 know about to th 6740: 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 72 e connection str 6750: 69 6e 67 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 ing... #.. 6760: 20 20 20 20 20 61 70 70 65 6e 64 20 63 6f 6e 6e append conn 6770: 65 63 74 69 6f 6e 20 7b 3b 54 6f 46 75 6c 6c 50 ection {;ToFullP 6780: 61 74 68 3d 24 7b 71 75 61 6c 69 66 79 7d 7d 0d ath=${qualify}}.
6790: 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20  ...      #..
67a0: 20 20 23 20 4e 4f 54 45 3a 20 49 66 20 74 68 65    # NOTE: If the
67b0: 20 63 61 6c 6c 65 72 20 73 70 65 63 69 66 69 65   caller specifie
67c0: 64 20 61 20 6a 6f 75 72 6e 61 6c 20 6d 6f 64 65  d a journal mode
67d0: 2c 20 61 64 64 20 74 68 65 20 6e 65 63 65 73 73  , add the necess
67e0: 61 72 79 20 70 6f 72 74 69 6f 6e 0d 0a 20 20 20  ary portion..
67f0: 20 20 20 23 20 20 20 20 20 20 20 6f 66 20 74 68     #       of th
6800: 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 72  e connection str
6810: 69 6e 67 20 6e 6f 77 2e 0d 0a 20 20 20 20 20 20  ing now...
6820: 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 73 74  #..      if {[st
6830: 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 6d 6f 64  ring length $mod 6840: 65 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a e] > 0} then {.. 6850: 20 20 20 20 20 20 20 20 61 70 70 65 6e 64 20 63 append c 6860: 6f 6e 6e 65 63 74 69 6f 6e 20 7b 3b 4a 6f 75 72 onnection {;Jour 6870: 6e 61 6c 20 4d 6f 64 65 3d 24 7b 6d 6f 64 65 7d nal Mode=${mode}
6880: 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20  }..      }....
6890: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e      #..      # N
68a0: 4f 54 45 3a 20 49 66 20 74 68 65 20 63 61 6c 6c  OTE: If the call
68b0: 65 72 20 73 70 65 63 69 66 69 65 64 20 61 20 44  er specified a D
68c0: 61 74 65 54 69 6d 65 20 66 6f 72 6d 61 74 2c 20  ateTime format,
68d0: 61 64 64 20 74 68 65 20 6e 65 63 65 73 73 61 72  add the necessar
68e0: 79 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20  y..      #
68f0: 20 70 6f 72 74 69 6f 6e 20 6f 66 20 74 68 65 20   portion of the
6900: 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 72 69 6e  connection strin
6910: 67 20 6e 6f 77 2e 0d 0a 20 20 20 20 20 20 23 0d  g now...      #.
6920: 0a 20 20 20 20 20 20 69 66 20 7b 5b 73 74 72 69  .      if {[stri
6930: 6e 67 20 6c 65 6e 67 74 68 20 24 64 61 74 65 54  ng length $dateT 6940: 69 6d 65 46 6f 72 6d 61 74 5d 20 3e 20 30 7d 20 imeFormat] > 0} 6950: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 then {.. 6960: 61 70 70 65 6e 64 20 63 6f 6e 6e 65 63 74 69 6f append connectio 6970: 6e 20 7b 3b 44 61 74 65 54 69 6d 65 46 6f 72 6d n {;DateTimeForm 6980: 61 74 3d 24 7b 64 61 74 65 54 69 6d 65 46 6f 72 at=${dateTimeFor
6990: 6d 61 74 7d 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a  mat}}..      }..
69a0: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20  ..      #..
69b0: 20 23 20 4e 4f 54 45 3a 20 49 66 20 74 68 65 20   # NOTE: If the
69c0: 63 61 6c 6c 65 72 20 73 70 65 63 69 66 69 65 64  caller specified
69d0: 20 61 20 44 61 74 65 54 69 6d 65 4b 69 6e 64 2c   a DateTimeKind,
69e0: 20 61 64 64 20 74 68 65 20 6e 65 63 65 73 73 61   add the necessa
69f0: 72 79 20 70 6f 72 74 69 6f 6e 0d 0a 20 20 20 20  ry portion..
6a00: 20 20 23 20 20 20 20 20 20 20 6f 66 20 74 68 65    #       of the
6a10: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 72 69   connection stri
6a20: 6e 67 20 6e 6f 77 2e 0d 0a 20 20 20 20 20 20 23  ng now...      #
6a30: 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 73 74 72  ..      if {[str
6a40: 69 6e 67 20 6c 65 6e 67 74 68 20 24 64 61 74 65  ing length $date 6a50: 54 69 6d 65 4b 69 6e 64 5d 20 3e 20 30 7d 20 74 TimeKind] > 0} t 6a60: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 61 hen {.. a 6a70: 70 70 65 6e 64 20 63 6f 6e 6e 65 63 74 69 6f 6e ppend connection 6a80: 20 7b 3b 44 61 74 65 54 69 6d 65 4b 69 6e 64 3d {;DateTimeKind= 6a90: 24 7b 64 61 74 65 54 69 6d 65 4b 69 6e 64 7d 7d${dateTimeKind}}
6aa0: 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20  ..      }....
6ab0: 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f     #..      # NO
6ac0: 54 45 3a 20 49 66 20 74 68 65 72 65 20 61 72 65  TE: If there are
6ad0: 20 61 6e 79 20 67 6c 6f 62 61 6c 20 28 70 65 72   any global (per
6ae0: 20 74 65 73 74 20 72 75 6e 29 20 63 6f 6e 6e 65   test run) conne
6af0: 63 74 69 6f 6e 20 66 6c 61 67 73 20 63 75 72 72  ction flags curr
6b00: 65 6e 74 6c 79 0d 0a 20 20 20 20 20 20 23 20 20  ently..      #
6b10: 20 20 20 20 20 73 65 74 2c 20 75 73 65 20 74 68       set, use th
6b20: 65 6d 20 6e 6f 77 20 28 69 2e 65 2e 20 62 79 20  em now (i.e. by
6b30: 63 6f 6d 62 69 6e 69 6e 67 20 74 68 65 6d 20 77  combining them w
6b40: 69 74 68 20 74 68 65 20 6f 6e 65 73 20 66 6f 72  ith the ones for
6b50: 20 74 68 69 73 0d 0a 20 20 20 20 20 20 23 20 20   this..      #
6b60: 20 20 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e 29       connection)
6b70: 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20  ...      #..
6b80: 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73    if {[info exis
6b90: 74 73 20 3a 3a 63 6f 6e 6e 65 63 74 69 6f 6e 5f  ts ::connection_
6ba0: 66 6c 61 67 73 5d 20 26 26 20 5c 0d 0a 20 20 20  flags] && \..
6bb0: 20 20 20 20 20 20 20 5b 73 74 72 69 6e 67 20 6c         [string l
6bc0: 65 6e 67 74 68 20 24 3a 3a 63 6f 6e 6e 65 63 74  ength $::connect 6bd0: 69 6f 6e 5f 66 6c 61 67 73 5d 20 3e 20 30 7d 20 ion_flags] > 0} 6be0: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 then {.. 6bf0: 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT 6c00: 45 3a 20 53 68 6f 77 20 28 61 6e 64 20 6c 6f 67 E: Show (and log 6c10: 29 20 74 68 61 74 20 77 65 20 64 65 74 65 63 74 ) that we detect 6c20: 65 64 20 73 6f 6d 65 20 67 6c 6f 62 61 6c 20 63 ed some global c 6c30: 6f 6e 6e 65 63 74 69 6f 6e 20 66 6c 61 67 73 2e onnection flags. 6c40: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #.. 6c50: 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 tputs$::te
6c60: 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65  st_channel [appe
6c70: 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20  ndArgs \..
6c80: 20 20 20 20 20 20 22 2d 2d 2d 2d 20 67 6c 6f 62        "---- glob
6c90: 61 6c 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 6c  al connection fl
6ca0: 61 67 73 20 64 65 74 65 63 74 65 64 3a 20 22 20  ags detected: "
6cb0: 24 3a 3a 63 6f 6e 6e 65 63 74 69 6f 6e 5f 66 6c  $::connection_fl 6cc0: 61 67 73 20 5c 6e 5d 0d 0a 0d 0a 20 20 20 20 20 ags \n].... 6cd0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 #.. # 6ce0: 4e 4f 54 45 3a 20 43 6f 6d 62 69 6e 65 20 61 6e NOTE: Combine an 6cf0: 64 2f 6f 72 20 72 65 70 6c 61 63 65 20 74 68 65 d/or replace the 6d00: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 6c 61 67 connection flag 6d10: 73 20 61 6e 64 20 74 68 65 6e 20 73 68 6f 77 20 s and then show 6d20: 74 68 65 0d 0a 20 20 20 20 20 20 20 20 23 20 20 the.. # 6d30: 20 20 20 20 20 6e 65 77 20 76 61 6c 75 65 2e 0d new value.. 6d40: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #.. 6d50: 20 20 20 20 73 65 74 20 66 6c 61 67 73 20 5b 63 set flags [c 6d60: 6f 6d 62 69 6e 65 46 6c 61 67 73 20 24 66 6c 61 ombineFlags$fla
6d70: 67 73 20 24 3a 3a 63 6f 6e 6e 65 63 74 69 6f 6e  gs $::connection 6d80: 5f 66 6c 61 67 73 5d 0d 0a 0d 0a 20 20 20 20 20 _flags].... 6d90: 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 tputs$::test
6da0: 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64  _channel [append
6db0: 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20  Args \..
6dc0: 20 20 20 20 22 2d 2d 2d 2d 20 63 6f 6d 62 69 6e      "---- combin
6dd0: 65 64 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 6c  ed connection fl
6de0: 61 67 73 20 61 72 65 3a 20 22 20 24 66 6c 61 67  ags are: " $flag 6df0: 73 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a s \n].. }.. 6e00: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #.. 6e10: 20 23 20 4e 4f 54 45 3a 20 49 66 20 74 68 65 20 # NOTE: If the 6e20: 63 61 6c 6c 65 72 20 73 70 65 63 69 66 69 65 64 caller specified 6e30: 20 61 20 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74 a SQLiteConnect 6e40: 69 6f 6e 46 6c 61 67 73 2c 20 61 64 64 20 74 68 ionFlags, add th 6e50: 65 20 6e 65 63 65 73 73 61 72 79 0d 0a 20 20 20 e necessary.. 6e60: 20 20 20 23 20 20 20 20 20 20 20 70 6f 72 74 69 # porti 6e70: 6f 6e 20 6f 66 20 74 68 65 20 63 6f 6e 6e 65 63 on of the connec 6e80: 74 69 6f 6e 20 73 74 72 69 6e 67 20 6e 6f 77 2e tion string now. 6e90: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #.. 6ea0: 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e if {[string len 6eb0: 67 74 68 20 24 66 6c 61 67 73 5d 20 3e 20 30 7d gth$flags] > 0}
6ec0: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20   then {..
6ed0: 20 61 70 70 65 6e 64 20 63 6f 6e 6e 65 63 74 69   append connecti
6ee0: 6f 6e 20 7b 3b 46 6c 61 67 73 3d 24 7b 66 6c 61  on {;Flags=${fla 6ef0: 67 73 7d 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d gs}}.. }... 6f00: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 . #.. 6f10: 23 20 4e 4f 54 45 3a 20 49 66 20 74 68 65 20 63 # NOTE: If the c 6f20: 61 6c 6c 65 72 20 73 70 65 63 69 66 69 65 64 20 aller specified 6f30: 61 6e 20 65 78 74 72 61 20 70 61 79 6c 6f 61 64 an extra payload 6f40: 20 74 6f 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 to the connecti 6f50: 6f 6e 20 73 74 72 69 6e 67 2c 0d 0a 20 20 20 20 on string,.. 6f60: 20 20 23 20 20 20 20 20 20 20 61 70 70 65 6e 64 # append 6f70: 20 69 74 20 6e 6f 77 2e 0d 0a 20 20 20 20 20 20 it now... 6f80: 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 73 74 #.. if {[st 6f90: 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 65 78 74 ring length$ext
6fa0: 72 61 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d  ra] > 0} then {.
6fb0: 0a 20 20 20 20 20 20 20 20 61 70 70 65 6e 64 20  .        append
6fc0: 63 6f 6e 6e 65 63 74 69 6f 6e 20 5c 3b 20 24 65  connection \; $e 6fd0: 78 74 72 61 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d xtra.. }... 6fe0: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 . #.. 6ff0: 23 20 4e 4f 54 45 3a 20 4f 70 65 6e 20 74 68 65 # NOTE: Open the 7000: 20 64 61 74 61 62 61 73 65 20 63 6f 6e 6e 65 63 database connec 7010: 74 69 6f 6e 20 6e 6f 77 2c 20 70 6c 61 63 69 6e tion now, placin 7020: 67 20 74 68 65 20 6f 70 61 71 75 65 20 68 61 6e g the opaque han 7030: 64 6c 65 20 76 61 6c 75 65 0d 0a 20 20 20 20 20 dle value.. 7040: 20 23 20 20 20 20 20 20 20 69 6e 74 6f 20 74 68 # into th 7050: 65 20 76 61 72 69 61 62 6c 65 20 73 70 65 63 69 e variable speci 7060: 66 69 65 64 20 62 79 20 74 68 65 20 63 61 6c 6c fied by the call 7070: 65 72 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 er... #.. 7080: 20 20 20 20 73 65 74 20 64 62 20 5b 73 71 6c 20 set db [sql 7090: 6f 70 65 6e 20 2d 74 79 70 65 20 53 51 4c 69 74 open -type SQLit 70a0: 65 20 5b 73 75 62 73 74 20 24 63 6f 6e 6e 65 63 e [subst$connec
70b0: 74 69 6f 6e 5d 5d 0d 0a 20 20 20 20 7d 0d 0a 0c  tion]]..    }...
70c0: 0d 0a 20 20 20 20 70 72 6f 63 20 63 6c 65 61 6e  ..    proc clean
70d0: 75 70 44 62 20 7b 20 66 69 6c 65 4e 61 6d 65 20  upDb { fileName
70e0: 7b 76 61 72 4e 61 6d 65 20 64 62 7d 20 7b 63 6f  {varName db} {co
70f0: 6c 6c 65 63 74 20 74 72 75 65 7d 20 7b 71 75 61  llect true} {qua
7100: 6c 69 66 79 20 74 72 75 65 7d 0d 0a 20 20 20 20  lify true}..
7110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7120: 20 7b 64 65 6c 65 74 65 20 74 72 75 65 7d 20 7d   {delete true} }
7130: 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20   {..      #..
7140: 20 20 20 23 20 4e 4f 54 45 3a 20 41 74 74 65 6d     # NOTE: Attem
7150: 70 74 20 74 6f 20 66 6f 72 63 65 20 61 6c 6c 20  pt to force all
7160: 70 65 6e 64 69 6e 67 20 22 67 61 72 62 61 67 65  pending "garbage
7170: 22 20 6f 62 6a 65 63 74 73 20 74 6f 20 62 65 20  " objects to be
7180: 63 6f 6c 6c 65 63 74 65 64 2c 0d 0a 20 20 20 20  collected,..
7190: 20 20 23 20 20 20 20 20 20 20 69 6e 63 6c 75 64    #       includ
71a0: 69 6e 67 20 53 51 4c 69 74 65 20 73 74 61 74 65  ing SQLite state
71b0: 6d 65 6e 74 73 20 61 6e 64 20 62 61 63 6b 75 70  ments and backup
71c0: 20 6f 62 6a 65 63 74 73 3b 20 74 68 69 73 20 73   objects; this s
71d0: 68 6f 75 6c 64 20 61 6c 6c 6f 77 0d 0a 20 20 20  hould allow..
71e0: 20 20 20 23 20 20 20 20 20 20 20 74 68 65 20 75     #       the u
71f0: 6e 64 65 72 6c 79 69 6e 67 20 64 61 74 61 62 61  nderlying databa
7200: 73 65 20 66 69 6c 65 20 74 6f 20 62 65 20 64 65  se file to be de
7210: 6c 65 74 65 64 2e 0d 0a 20 20 20 20 20 20 23 0d  leted...      #.
7220: 0a 20 20 20 20 20 20 69 66 20 7b 24 63 6f 6c 6c  .      if {$coll 7230: 65 63 74 20 26 26 20 5c 0d 0a 20 20 20 20 20 20 ect && \.. 7240: 20 20 20 20 5b 63 61 74 63 68 20 7b 6f 62 6a 65 [catch {obje 7250: 63 74 20 69 6e 76 6f 6b 65 20 47 43 20 47 65 74 ct invoke GC Get 7260: 54 6f 74 61 6c 4d 65 6d 6f 72 79 20 74 72 75 65 TotalMemory true 7270: 7d 20 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20 7b } error]} then { 7280: 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20 .. tputs 7290: 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64$channel [append
72a0: 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20  Args \..
72b0: 20 20 20 20 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e      "==== WARNIN
72c0: 47 3a 20 66 61 69 6c 65 64 20 66 75 6c 6c 20 67  G: failed full g
72d0: 61 72 62 61 67 65 20 63 6f 6c 6c 65 63 74 69 6f  arbage collectio
72e0: 6e 2c 20 65 72 72 6f 72 3a 20 22 20 5c 0d 0a 20  n, error: " \..
72f0: 20 20 20 20 20 20 20 20 20 20 20 5c 6e 5c 74 20             \n\t
7300: 24 65 72 72 6f 72 20 5c 6e 5d 0d 0a 20 20 20 20  $error \n].. 7310: 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a }.... #.. 7320: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 52 65 # NOTE: Re 7330: 66 65 72 20 74 6f 20 74 68 65 20 73 70 65 63 69 fer to the speci 7340: 66 69 65 64 20 76 61 72 69 61 62 6c 65 20 28 65 fied variable (e 7350: 2e 67 2e 20 22 64 62 22 29 20 69 6e 20 74 68 65 .g. "db") in the 7360: 20 63 6f 6e 74 65 78 74 20 6f 66 20 74 68 65 0d context of the. 7370: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 63 . # c 7380: 61 6c 6c 65 72 2e 20 20 54 68 65 20 68 61 6e 64 aller. The hand 7390: 6c 65 20 74 6f 20 74 68 65 20 6f 70 65 6e 65 64 le to the opened 73a0: 20 64 61 74 61 62 61 73 65 20 69 73 20 73 74 6f database is sto 73b0: 72 65 64 20 74 68 65 72 65 2e 0d 0a 20 20 20 20 red there... 73c0: 20 20 23 0d 0a 20 20 20 20 20 20 75 70 76 61 72 #.. upvar 73d0: 20 31 20 24 76 61 72 4e 61 6d 65 20 64 62 0d 0a 1$varName db..
73e0: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20  ..      #..
73f0: 20 23 20 4e 4f 54 45 3a 20 43 6c 6f 73 65 20 74   # NOTE: Close t
7400: 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 74 6f  he connection to
7410: 20 74 68 65 20 64 61 74 61 62 61 73 65 20 6e 6f   the database no
7420: 77 2e 20 20 54 68 69 73 20 73 68 6f 75 6c 64 20  w.  This should
7430: 61 6c 6c 6f 77 20 75 73 20 74 6f 0d 0a 20 20 20  allow us to..
7440: 20 20 20 23 20 20 20 20 20 20 20 64 65 6c 65 74     #       delet
7450: 65 20 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67  e the underlying
7460: 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 2e 0d   database file..
7470: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20  .      #..
7480: 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73  if {[info exists
7490: 20 64 62 5d 20 26 26 20 5b 63 61 74 63 68 20 7b   db] && [catch {
74a0: 73 71 6c 20 63 6c 6f 73 65 20 24 64 62 7d 20 65  sql close $db} e 74b0: 72 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 rror]} then {.. 74c0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #.. 74d0: 20 20 23 20 4e 4f 54 45 3a 20 57 65 20 73 6f 6d # NOTE: We som 74e0: 65 68 6f 77 20 66 61 69 6c 65 64 20 74 6f 20 63 ehow failed to c 74f0: 6c 6f 73 65 20 74 68 65 20 64 61 74 61 62 61 73 lose the databas 7500: 65 2c 20 72 65 70 6f 72 74 20 77 68 79 2e 0d 0a e, report why... 7510: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #.. 7520: 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 tputs$::test
7530: 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64  _channel [append
7540: 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20  Args \..
7550: 20 20 20 20 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e      "==== WARNIN
7560: 47 3a 20 66 61 69 6c 65 64 20 74 6f 20 63 6c 6f  G: failed to clo
7570: 73 65 20 64 61 74 61 62 61 73 65 20 5c 22 22 20  se database \""
7580: 24 64 62 20 22 5c 22 2c 20 65 72 72 6f 72 3a 20  $db "\", error: 7590: 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 " \.. 75a0: 20 5c 6e 5c 74 20 24 65 72 72 6f 72 20 5c 6e 5d \n\t$error \n]
75b0: 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20  ..      }....
75c0: 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f     #..      # NO
75d0: 54 45 3a 20 46 69 72 73 74 2c 20 73 65 65 20 69  TE: First, see i
75e0: 66 20 74 68 65 20 63 61 6c 6c 65 72 20 68 61 73  f the caller has
75f0: 20 72 65 71 75 65 73 74 65 64 20 61 6e 20 69 6e   requested an in
7600: 2d 6d 65 6d 6f 72 79 20 64 61 74 61 62 61 73 65  -memory database
7610: 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20  ...      #..
7620: 20 20 73 65 74 20 69 73 4d 65 6d 6f 72 79 20 5b    set isMemory [
7630: 69 73 4d 65 6d 6f 72 79 44 62 20 24 66 69 6c 65  isMemoryDb $file 7640: 4e 61 6d 65 5d 0d 0a 0d 0a 20 20 20 20 20 20 23 Name].... # 7650: 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 .. # NOTE: 7660: 42 75 69 6c 64 20 74 68 65 20 66 75 6c 6c 20 70 Build the full p 7670: 61 74 68 20 74 6f 20 74 68 65 20 64 61 74 61 62 ath to the datab 7680: 61 73 65 20 66 69 6c 65 20 6e 61 6d 65 2e 20 20 ase file name. 7690: 46 6f 72 20 6e 6f 77 2c 20 61 6c 6c 20 74 65 73 For now, all tes 76a0: 74 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 t.. # 76b0: 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 73 20 database files 76c0: 61 72 65 20 73 74 6f 72 65 64 20 69 6e 20 74 68 are stored in th 76d0: 65 20 74 65 6d 70 6f 72 61 72 79 20 64 69 72 65 e temporary dire 76e0: 63 74 6f 72 79 2e 0d 0a 20 20 20 20 20 20 23 0d ctory... #. 76f0: 0a 20 20 20 20 20 20 69 66 20 7b 21 24 69 73 4d . if {!$isM
7700: 65 6d 6f 72 79 20 26 26 20 24 71 75 61 6c 69 66  emory && $qualif 7710: 79 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 y} then {.. 7720: 20 20 20 73 65 74 20 66 69 6c 65 4e 61 6d 65 20 set fileName 7730: 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 67 65 74 44 [file join [getD 7740: 61 74 61 62 61 73 65 44 69 72 65 63 74 6f 72 79 atabaseDirectory 7750: 5d 20 5b 66 69 6c 65 20 74 61 69 6c 20 24 66 69 ] [file tail$fi
7760: 6c 65 4e 61 6d 65 5d 5d 0d 0a 20 20 20 20 20 20  leName]]..
7770: 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  }....      #..
7780: 20 20 20 20 23 20 4e 4f 54 45 3a 20 43 68 65 63      # NOTE: Chec
7790: 6b 20 69 66 20 74 68 65 20 66 69 6c 65 20 73 74  k if the file st
77a0: 69 6c 6c 20 65 78 69 73 74 73 2e 0d 0a 20 20 20  ill exists...
77b0: 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b     #..      if {
77c0: 21 24 69 73 4d 65 6d 6f 72 79 20 26 26 20 24 64  !$isMemory &&$d
77d0: 65 6c 65 74 65 20 26 26 20 5b 66 69 6c 65 20 65  elete && [file e
77e0: 78 69 73 74 73 20 24 66 69 6c 65 4e 61 6d 65 5d  xists $fileName] 77f0: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {.. 7800: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e #.. # N 7810: 4f 54 45 3a 20 53 6b 69 70 20 64 65 6c 65 74 69 OTE: Skip deleti 7820: 6e 67 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 ng database file 7830: 73 20 69 66 20 73 6f 6d 65 62 6f 64 79 20 73 65 s if somebody se 7840: 74 73 20 74 68 65 20 67 6c 6f 62 61 6c 0d 0a 20 ts the global.. 7850: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 76 # v 7860: 61 72 69 61 62 6c 65 20 74 6f 20 70 72 65 76 65 ariable to preve 7870: 6e 74 20 69 74 2e 0d 0a 20 20 20 20 20 20 20 20 nt it... 7880: 23 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 21 #.. if {! 7890: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 6e [info exists ::n 78a0: 6f 28 63 6c 65 61 6e 75 70 44 62 46 69 6c 65 29 o(cleanupDbFile) 78b0: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 ]} then {.. 78c0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #.. 78d0: 20 20 23 20 4e 4f 54 45 3a 20 41 74 74 65 6d 70 # NOTE: Attemp 78e0: 74 20 74 6f 20 64 65 6c 65 74 65 20 74 68 65 20 t to delete the 78f0: 74 65 73 74 20 64 61 74 61 62 61 73 65 20 66 69 test database fi 7900: 6c 65 20 6e 6f 77 2e 0d 0a 20 20 20 20 20 20 20 le now... 7910: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 #.. 7920: 69 66 20 7b 5b 73 65 74 20 63 6f 64 65 20 5b 63 if {[set code [c 7930: 61 74 63 68 20 7b 66 69 6c 65 20 64 65 6c 65 74 atch {file delet 7940: 65 20 24 66 69 6c 65 4e 61 6d 65 7d 20 65 72 72 e$fileName} err
7950: 6f 72 5d 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  or]]} then {..
7960: 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20            #..
7970: 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a           # NOTE:
7980: 20 57 65 20 73 6f 6d 65 68 6f 77 20 66 61 69 6c   We somehow fail
7990: 65 64 20 74 6f 20 64 65 6c 65 74 65 20 74 68 65  ed to delete the
79a0: 20 66 69 6c 65 2c 20 72 65 70 6f 72 74 20 77 68   file, report wh
79b0: 79 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  y...
79c0: 23 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 74  #..            t
79d0: 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61  puts $::test_cha 79e0: 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 nnel [appendArgs 79f0: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \.. 7a00: 20 20 20 20 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e "==== WARNIN 7a10: 47 3a 20 66 61 69 6c 65 64 20 74 6f 20 64 65 6c G: failed to del 7a20: 65 74 65 20 64 61 74 61 62 61 73 65 20 66 69 6c ete database fil 7a30: 65 20 5c 22 22 20 24 66 69 6c 65 4e 61 6d 65 20 e \""$fileName
7a40: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  \..
7a50: 20 20 20 22 5c 22 20 64 75 72 69 6e 67 20 63 6c     "\" during cl
7a60: 65 61 6e 75 70 2c 20 65 72 72 6f 72 3a 20 22 20  eanup, error: "
7a70: 5c 6e 5c 74 20 24 65 72 72 6f 72 20 5c 6e 5d 0d  \n\t $error \n]. 7a80: 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 . }.. 7a90: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a } else {.. 7aa0: 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 #.. 7ab0: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 # NOTE: S 7ac0: 68 6f 77 20 74 68 61 74 20 77 65 20 73 6b 69 70 how that we skip 7ad0: 70 65 64 20 64 65 6c 65 74 69 6e 67 20 74 68 65 ped deleting the 7ae0: 20 66 69 6c 65 2e 0d 0a 20 20 20 20 20 20 20 20 file... 7af0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 73 #.. s 7b00: 65 74 20 63 6f 64 65 20 30 0d 0a 0d 0a 20 20 20 et code 0.... 7b10: 20 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a tputs$::
7b20: 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70  test_channel [ap
7b30: 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20  pendArgs \..
7b40: 20 20 20 20 20 20 20 20 20 20 22 3d 3d 3d 3d 20            "====
7b50: 57 41 52 4e 49 4e 47 3a 20 73 6b 69 70 70 65 64  WARNING: skipped
7b60: 20 64 65 6c 65 74 69 6e 67 20 64 61 74 61 62 61   deleting databa
7b70: 73 65 20 66 69 6c 65 20 5c 22 22 20 24 66 69 6c  se file \"" $fil 7b80: 65 4e 61 6d 65 20 5c 0d 0a 20 20 20 20 20 20 20 eName \.. 7b90: 20 20 20 20 20 20 20 22 5c 22 20 64 75 72 69 6e "\" durin 7ba0: 67 20 63 6c 65 61 6e 75 70 5c 6e 22 5d 0d 0a 20 g cleanup\n"].. 7bb0: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 }.. 7bc0: 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 } else {.. 7bd0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e #.. # N 7be0: 4f 54 45 3a 20 54 68 65 20 66 69 6c 65 20 64 6f OTE: The file do 7bf0: 65 73 20 6e 6f 74 20 65 78 69 73 74 2c 20 73 75 es not exist, su 7c00: 63 63 65 73 73 21 0d 0a 20 20 20 20 20 20 20 20 ccess!.. 7c10: 23 0d 0a 20 20 20 20 20 20 20 20 73 65 74 20 63 #.. set c 7c20: 6f 64 65 20 30 0d 0a 20 20 20 20 20 20 7d 0d 0a ode 0.. }.. 7c30: 0d 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 .. return$
7c40: 63 6f 64 65 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a  code..    }.....
7c50: 20 20 20 20 70 72 6f 63 20 63 6c 65 61 6e 75 70      proc cleanup
7c60: 46 69 6c 65 20 7b 20 66 69 6c 65 4e 61 6d 65 20  File { fileName
7c70: 7b 63 6f 6c 6c 65 63 74 20 74 72 75 65 7d 20 7b  {collect true} {
7c80: 66 6f 72 63 65 20 66 61 6c 73 65 7d 20 7d 20 7b  force false} } {
7c90: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20  ..      #..
7ca0: 20 23 20 4e 4f 54 45 3a 20 41 74 74 65 6d 70 74   # NOTE: Attempt
7cb0: 20 74 6f 20 66 6f 72 63 65 20 61 6c 6c 20 70 65   to force all pe
7cc0: 6e 64 69 6e 67 20 22 67 61 72 62 61 67 65 22 20  nding "garbage"
7cd0: 6f 62 6a 65 63 74 73 20 74 6f 20 62 65 20 63 6f  objects to be co
7ce0: 6c 6c 65 63 74 65 64 2c 0d 0a 20 20 20 20 20 20  llected,..
7cf0: 23 20 20 20 20 20 20 20 69 6e 63 6c 75 64 69 6e  #       includin
7d00: 67 20 53 51 4c 69 74 65 20 73 74 61 74 65 6d 65  g SQLite stateme
7d10: 6e 74 73 20 61 6e 64 20 62 61 63 6b 75 70 20 6f  nts and backup o
7d20: 62 6a 65 63 74 73 3b 20 74 68 69 73 20 73 68 6f  bjects; this sho
7d30: 75 6c 64 20 61 6c 6c 6f 77 0d 0a 20 20 20 20 20  uld allow..
7d40: 20 23 20 20 20 20 20 20 20 74 68 65 20 75 6e 64   #       the und
7d50: 65 72 6c 79 69 6e 67 20 64 61 74 61 62 61 73 65  erlying database
7d60: 20 66 69 6c 65 20 74 6f 20 62 65 20 64 65 6c 65   file to be dele
7d70: 74 65 64 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20  ted...      #..
7d80: 20 20 20 20 20 69 66 20 7b 24 63 6f 6c 6c 65 63       if {$collec 7d90: 74 20 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 t && \.. 7da0: 20 20 5b 63 61 74 63 68 20 7b 6f 62 6a 65 63 74 [catch {object 7db0: 20 69 6e 76 6f 6b 65 20 47 43 20 47 65 74 54 6f invoke GC GetTo 7dc0: 74 61 6c 4d 65 6d 6f 72 79 20 74 72 75 65 7d 20 talMemory true} 7dd0: 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a error]} then {.. 7de0: 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63 tputs$c
7df0: 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72  hannel [appendAr
7e00: 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  gs \..
7e10: 20 20 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e 47 3a    "==== WARNING:
7e20: 20 66 61 69 6c 65 64 20 66 75 6c 6c 20 67 61 72   failed full gar
7e30: 62 61 67 65 20 63 6f 6c 6c 65 63 74 69 6f 6e 2c  bage collection,
7e40: 20 65 72 72 6f 72 3a 20 22 20 5c 0d 0a 20 20 20   error: " \..
7e50: 20 20 20 20 20 20 20 20 20 5c 6e 5c 74 20 24 65           \n\t $e 7e60: 72 72 6f 72 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 rror \n].. 7e70: 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 }.... #.. 7e80: 20 20 20 20 23 20 4e 4f 54 45 3a 20 43 68 65 63 # NOTE: Chec 7e90: 6b 20 69 66 20 74 68 65 20 66 69 6c 65 20 73 74 k if the file st 7ea0: 69 6c 6c 20 65 78 69 73 74 73 2e 0d 0a 20 20 20 ill exists... 7eb0: 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b #.. if { 7ec0: 5b 66 69 6c 65 20 65 78 69 73 74 73 20 24 66 69 [file exists$fi
7ed0: 6c 65 4e 61 6d 65 5d 7d 20 74 68 65 6e 20 7b 0d  leName]} then {.
7ee0: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20  .        #..
7ef0: 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 6b 69 70      # NOTE: Skip
7f00: 20 64 65 6c 65 74 69 6e 67 20 74 65 73 74 20 66   deleting test f
7f10: 69 6c 65 73 20 69 66 20 73 6f 6d 65 62 6f 64 79  iles if somebody
7f20: 20 73 65 74 73 20 74 68 65 20 67 6c 6f 62 61 6c   sets the global
7f30: 20 76 61 72 69 61 62 6c 65 0d 0a 20 20 20 20 20   variable..
7f40: 20 20 20 23 20 20 20 20 20 20 20 74 6f 20 70 72     #       to pr
7f50: 65 76 65 6e 74 20 69 74 2e 0d 0a 20 20 20 20 20  event it...
7f60: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 69 66     #..        if
7f70: 20 7b 24 66 6f 72 63 65 20 7c 7c 20 21 5b 69 6e   {$force || ![in 7f80: 66 6f 20 65 78 69 73 74 73 20 3a 3a 6e 6f 28 63 fo exists ::no(c 7f90: 6c 65 61 6e 75 70 46 69 6c 65 29 5d 7d 20 74 68 leanupFile)]} th 7fa0: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 en {.. 7fb0: 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e #.. # N 7fc0: 4f 54 45 3a 20 41 74 74 65 6d 70 74 20 74 6f 20 OTE: Attempt to 7fd0: 64 65 6c 65 74 65 20 74 68 65 20 74 65 73 74 20 delete the test 7fe0: 66 69 6c 65 20 6e 6f 77 2e 0d 0a 20 20 20 20 20 file now... 7ff0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #.. 8000: 20 20 69 66 20 7b 5b 73 65 74 20 63 6f 64 65 20 if {[set code 8010: 5b 63 61 74 63 68 20 7b 66 69 6c 65 20 64 65 6c [catch {file del 8020: 65 74 65 20 24 66 69 6c 65 4e 61 6d 65 7d 20 65 ete$fileName} e
8030: 72 72 6f 72 5d 5d 7d 20 74 68 65 6e 20 7b 0d 0a  rror]]} then {..
8040: 20 20 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20              #..
8050: 20 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54             # NOT
8060: 45 3a 20 57 65 20 73 6f 6d 65 68 6f 77 20 66 61  E: We somehow fa
8070: 69 6c 65 64 20 74 6f 20 64 65 6c 65 74 65 20 74  iled to delete t
8080: 68 65 20 66 69 6c 65 2c 20 72 65 70 6f 72 74 20  he file, report
8090: 77 68 79 2e 0d 0a 20 20 20 20 20 20 20 20 20 20  why...
80a0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 20    #..
80b0: 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63   tputs $::test_c 80c0: 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 hannel [appendAr 80d0: 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 gs \.. 80e0: 20 20 20 20 20 20 22 3d 3d 3d 3d 20 57 41 52 4e "==== WARN 80f0: 49 4e 47 3a 20 66 61 69 6c 65 64 20 74 6f 20 64 ING: failed to d 8100: 65 6c 65 74 65 20 74 65 73 74 20 66 69 6c 65 20 elete test file 8110: 5c 22 22 20 24 66 69 6c 65 4e 61 6d 65 20 5c 0d \""$fileName \.
8120: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .
8130: 20 22 5c 22 20 64 75 72 69 6e 67 20 63 6c 65 61   "\" during clea
8140: 6e 75 70 2c 20 65 72 72 6f 72 3a 20 22 20 5c 6e  nup, error: " \n
8150: 5c 74 20 24 65 72 72 6f 72 20 5c 6e 5d 0d 0a 20  \t $error \n].. 8160: 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 }.. 8170: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 } else {.. 8180: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #.. 8190: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 68 6f # NOTE: Sho 81a0: 77 20 74 68 61 74 20 77 65 20 73 6b 69 70 70 65 w that we skippe 81b0: 64 20 64 65 6c 65 74 69 6e 67 20 74 68 65 20 66 d deleting the f 81c0: 69 6c 65 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 ile... 81d0: 23 0d 0a 20 20 20 20 20 20 20 20 20 20 73 65 74 #.. set 81e0: 20 63 6f 64 65 20 30 0d 0a 0d 0a 20 20 20 20 20 code 0.... 81f0: 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 tputs$::te
8200: 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65  st_channel [appe
8210: 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20  ndArgs \..
8220: 20 20 20 20 20 20 20 20 22 3d 3d 3d 3d 20 57 41          "==== WA
8230: 52 4e 49 4e 47 3a 20 73 6b 69 70 70 65 64 20 64  RNING: skipped d
8240: 65 6c 65 74 69 6e 67 20 74 65 73 74 20 66 69 6c  eleting test fil
8250: 65 20 5c 22 22 20 24 66 69 6c 65 4e 61 6d 65 20  e \"" $fileName 8260: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 \.. 8270: 20 22 5c 22 20 64 75 72 69 6e 67 20 63 6c 65 61 "\" during clea 8280: 6e 75 70 5c 6e 22 5d 0d 0a 20 20 20 20 20 20 20 nup\n"].. 8290: 20 7d 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 }.. } else 82a0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 {.. #.. 82b0: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 # NOTE: T 82c0: 68 65 20 66 69 6c 65 20 64 6f 65 73 20 6e 6f 74 he file does not 82d0: 20 65 78 69 73 74 2c 20 73 75 63 63 65 73 73 21 exist, success! 82e0: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #.. 82f0: 20 20 20 20 20 73 65 74 20 63 6f 64 65 20 30 0d set code 0. 8300: 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 . }.... 8310: 20 20 72 65 74 75 72 6e 20 24 63 6f 64 65 0d 0a return$code..
8320: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72      }.....    pr
8330: 6f 63 20 72 65 70 6f 72 74 53 51 4c 69 74 65 52  oc reportSQLiteR
8340: 65 73 6f 75 72 63 65 73 20 7b 20 63 68 61 6e 6e  esources { chann
8350: 65 6c 20 7b 71 75 69 65 74 20 66 61 6c 73 65 7d  el {quiet false}
8360: 20 7b 63 6f 6c 6c 65 63 74 20 74 72 75 65 7d 20   {collect true}
8370: 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  } {..      #..
8380: 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 6b 69 70      # NOTE: Skip
8390: 20 61 6c 6c 20 6f 75 74 70 75 74 20 69 66 20 77   all output if w
83a0: 65 20 61 72 65 20 72 75 6e 6e 69 6e 67 20 69 6e  e are running in
83b0: 20 22 71 75 69 65 74 22 20 6d 6f 64 65 2e 0d 0a   "quiet" mode...
83c0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69        #..      i
83d0: 66 20 7b 21 24 71 75 69 65 74 7d 20 74 68 65 6e  f {!$quiet} then 83e0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 {.. tput 83f0: 73 20 24 63 68 61 6e 6e 65 6c 20 22 2d 2d 2d 2d s$channel "----
8400: 20 63 75 72 72 65 6e 74 20 6d 65 6d 6f 72 79 20   current memory
8410: 69 6e 20 75 73 65 20 62 79 20 53 51 4c 69 74 65  in use by SQLite
8420: 2e 2e 2e 20 22 0d 0a 20 20 20 20 20 20 7d 0d 0a  ... "..      }..
8430: 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74  ..      if {[cat
8440: 63 68 20 7b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b  ch {object invok
8450: 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 62  e -flags +NonPub
8460: 6c 69 63 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  lic \..
8470: 20 20 20 20 20 53 79 73 74 65 6d 2e 44 61 74 61       System.Data
8480: 2e 53 51 4c 69 74 65 2e 55 6e 73 61 66 65 4e 61  .SQLite.UnsafeNa
8490: 74 69 76 65 4d 65 74 68 6f 64 73 20 5c 0d 0a 20  tiveMethods \..
84a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 73 71 6c               sql
84b0: 69 74 65 33 5f 6d 65 6d 6f 72 79 5f 75 73 65 64  ite3_memory_used
84c0: 7d 20 6d 65 6d 6f 72 79 5d 20 3d 3d 20 30 7d 20  } memory] == 0}
84d0: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20  then {..
84e0: 69 66 20 7b 21 24 71 75 69 65 74 7d 20 74 68 65  if {!$quiet} the 84f0: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 74 n {.. t 8500: 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61 puts$channel [a
8510: 70 70 65 6e 64 41 72 67 73 20 24 6d 65 6d 6f 72  ppendArgs $memor 8520: 79 20 22 20 62 79 74 65 73 5c 6e 22 5d 0d 0a 20 y " bytes\n"].. 8530: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 }.. 8540: 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 } else {.. 8550: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e #.. # N 8560: 4f 54 45 3a 20 4d 61 79 62 65 20 74 68 65 20 53 OTE: Maybe the S 8570: 51 4c 69 74 65 20 6e 61 74 69 76 65 20 6c 69 62 QLite native lib 8580: 72 61 72 79 20 69 73 20 75 6e 61 76 61 69 6c 61 rary is unavaila 8590: 62 6c 65 3f 0d 0a 20 20 20 20 20 20 20 20 23 0d ble?.. #. 85a0: 0a 20 20 20 20 20 20 20 20 73 65 74 20 6d 65 6d . set mem 85b0: 6f 72 79 20 75 6e 6b 6e 6f 77 6e 0d 0a 0d 0a 20 ory unknown.... 85c0: 20 20 20 20 20 20 20 69 66 20 7b 21 24 71 75 69 if {!$qui
85d0: 65 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20  et} then {..
85e0: 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68 61        tputs $cha 85f0: 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 nnel [appendArgs 8600: 20 24 6d 65 6d 6f 72 79 20 5c 6e 5d 0d 0a 20 20$memory \n]..
8610: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d        }..      }
8620: 0d 0a 0d 0a 20 20 20 20 20 20 73 65 74 20 72 65  ....      set re
8630: 73 75 6c 74 20 24 6d 65 6d 6f 72 79 3b 20 23 20  sult $memory; # 8640: 4e 4f 54 45 3a 20 52 65 74 75 72 6e 20 6d 65 6d NOTE: Return mem 8650: 6f 72 79 20 69 6e 2d 75 73 65 20 74 6f 20 63 61 ory in-use to ca 8660: 6c 6c 65 72 2e 0d 0a 0d 0a 20 20 20 20 20 20 69 ller..... i 8670: 66 20 7b 21 24 71 75 69 65 74 7d 20 74 68 65 6e f {!$quiet} then
8680: 20 7b 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74   {..        tput
8690: 73 20 24 63 68 61 6e 6e 65 6c 20 22 2d 2d 2d 2d  s $channel "---- 86a0: 20 6d 61 78 69 6d 75 6d 20 6d 65 6d 6f 72 79 20 maximum memory 86b0: 69 6e 20 75 73 65 20 62 79 20 53 51 4c 69 74 65 in use by SQLite 86c0: 2e 2e 2e 20 22 0d 0a 20 20 20 20 20 20 7d 0d 0a ... ".. }.. 86d0: 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 .. if {[cat 86e0: 63 68 20 7b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b ch {object invok 86f0: 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 e -flags +NonPub 8700: 6c 69 63 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 lic \.. 8710: 20 20 20 20 20 53 79 73 74 65 6d 2e 44 61 74 61 System.Data 8720: 2e 53 51 4c 69 74 65 2e 55 6e 73 61 66 65 4e 61 .SQLite.UnsafeNa 8730: 74 69 76 65 4d 65 74 68 6f 64 73 20 5c 0d 0a 20 tiveMethods \.. 8740: 20 20 20 20 20 20 20 20 20 20 20 20 20 73 71 6c sql 8750: 69 74 65 33 5f 6d 65 6d 6f 72 79 5f 68 69 67 68 ite3_memory_high 8760: 77 61 74 65 72 20 30 7d 20 6d 65 6d 6f 72 79 5d water 0} memory] 8770: 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 == 0} then {.. 8780: 20 20 20 20 20 20 20 69 66 20 7b 21 24 71 75 69 if {!$qui
8790: 65 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20  et} then {..
87a0: 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68 61        tputs $cha 87b0: 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 nnel [appendArgs 87c0: 20 24 6d 65 6d 6f 72 79 20 22 20 62 79 74 65 73$memory " bytes
87d0: 5c 6e 22 5d 0d 0a 20 20 20 20 20 20 20 20 7d 0d  \n"]..        }.
87e0: 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d  .      } else {.
87f0: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20  .        #..
8800: 20 20 20 20 23 20 4e 4f 54 45 3a 20 4d 61 79 62      # NOTE: Mayb
8810: 65 20 74 68 65 20 53 51 4c 69 74 65 20 6e 61 74  e the SQLite nat
8820: 69 76 65 20 6c 69 62 72 61 72 79 20 69 73 20 75  ive library is u
8830: 6e 61 76 61 69 6c 61 62 6c 65 3f 0d 0a 20 20 20  navailable?..
8840: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..
8850: 73 65 74 20 6d 65 6d 6f 72 79 20 75 6e 6b 6e 6f  set memory unkno
8860: 77 6e 0d 0a 0d 0a 20 20 20 20 20 20 20 20 69 66  wn....        if
8870: 20 7b 21 24 71 75 69 65 74 7d 20 74 68 65 6e 20   {!$quiet} then 8880: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70 75 {.. tpu 8890: 74 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 ts$channel [app
88a0: 65 6e 64 41 72 67 73 20 24 6d 65 6d 6f 72 79 20  endArgs $memory 88b0: 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a \n].. }.. 88c0: 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 }.... 88d0: 20 69 66 20 7b 24 63 6f 6c 6c 65 63 74 7d 20 74 if {$collect} t
88e0: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 69  hen {..        i
88f0: 66 20 7b 5b 63 61 74 63 68 20 7b 6f 62 6a 65 63  f {[catch {objec
8900: 74 20 69 6e 76 6f 6b 65 20 47 43 20 47 65 74 54  t invoke GC GetT
8910: 6f 74 61 6c 4d 65 6d 6f 72 79 20 74 72 75 65 7d  otalMemory true}
8920: 20 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d   error]} then {.
8930: 0a 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73  .          tputs
8940: 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e   $channel [appen 8950: 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 dArgs \.. 8960: 20 20 20 20 20 20 20 22 3d 3d 3d 3d 20 57 41 52 "==== WAR 8970: 4e 49 4e 47 3a 20 66 61 69 6c 65 64 20 66 75 6c NING: failed ful 8980: 6c 20 67 61 72 62 61 67 65 20 63 6f 6c 6c 65 63 l garbage collec 8990: 74 69 6f 6e 2c 20 65 72 72 6f 72 3a 20 22 20 5c tion, error: " \ 89a0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .. 89b0: 5c 6e 5c 74 20 24 65 72 72 6f 72 20 5c 6e 5d 0d \n\t$error \n].
89c0: 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20  .        }..
89d0: 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20    }....      if
89e0: 7b 21 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b  {!$quiet} then { 89f0: 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20 .. tputs 8a00: 24 63 68 61 6e 6e 65 6c 20 22 2d 2d 2d 2d 20 63$channel "---- c
8a10: 75 72 72 65 6e 74 20 6d 65 6d 6f 72 79 20 69 6e  urrent memory in
8a20: 20 75 73 65 20 62 79 20 74 68 65 20 43 4c 52 2e   use by the CLR.
8a30: 2e 2e 20 22 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d  .. "..      }...
8a40: 0a 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63  .      if {[catc
8a50: 68 20 7b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65  h {object invoke
8a60: 20 47 43 20 47 65 74 54 6f 74 61 6c 4d 65 6d 6f   GC GetTotalMemo
8a70: 72 79 20 66 61 6c 73 65 7d 20 6d 65 6d 6f 72 79  ry false} memory
8a80: 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a  ] == 0} then {..
8a90: 20 20 20 20 20 20 20 20 69 66 20 7b 5b 73 74 72          if {[str
8aa0: 69 6e 67 20 69 73 20 69 6e 74 65 67 65 72 20 2d  ing is integer -
8ab0: 73 74 72 69 63 74 20 24 6d 65 6d 6f 72 79 5d 7d  strict $memory]} 8ac0: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 then {.. 8ad0: 20 20 20 69 66 20 7b 21 24 71 75 69 65 74 7d 20 if {!$quiet}
8ae0: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20  then {..
8af0: 20 20 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e      tputs $chann 8b00: 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 24 el [appendArgs$
8b10: 6d 65 6d 6f 72 79 20 22 20 62 79 74 65 73 5c 6e  memory " bytes\n
8b20: 22 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d  "]..          }.
8b30: 0a 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20  .        } else
8b40: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 73 65 74  {..          set
8b50: 20 6d 65 6d 6f 72 79 20 69 6e 76 61 6c 69 64 0d   memory invalid.
8b60: 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66 20  ...          if
8b70: 7b 21 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b  {!$quiet} then { 8b80: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 70 .. tp 8b90: 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 uts$channel [ap
8ba0: 70 65 6e 64 41 72 67 73 20 24 6d 65 6d 6f 72 79  pendArgs $memory 8bb0: 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 \n].. 8bc0: 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 }.. }.. 8bd0: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 } else {.. 8be0: 20 20 20 20 20 20 73 65 74 20 6d 65 6d 6f 72 79 set memory 8bf0: 20 75 6e 6b 6e 6f 77 6e 0d 0a 0d 0a 20 20 20 20 unknown.... 8c00: 20 20 20 20 69 66 20 7b 21 24 71 75 69 65 74 7d if {!$quiet}
8c10: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20   then {..
8c20: 20 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65     tputs $channe 8c30: 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 24 6d l [appendArgs$m
8c40: 65 6d 6f 72 79 20 5c 6e 5d 0d 0a 20 20 20 20 20  emory \n]..
8c50: 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d     }..      }...
8c60: 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 72  .      return $r 8c70: 65 73 75 6c 74 0d 0a 20 20 20 20 7d 0d 0a 0c 0d esult.. }.... 8c80: 0a 20 20 20 20 70 72 6f 63 20 72 75 6e 53 51 4c . proc runSQL 8c90: 69 74 65 54 65 73 74 50 72 6f 6c 6f 67 75 65 20 iteTestPrologue 8ca0: 7b 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 {} {.. #.. 8cb0: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 6b 69 # NOTE: Ski 8cc0: 70 20 72 75 6e 6e 69 6e 67 20 6f 75 72 20 63 75 p running our cu 8cd0: 73 74 6f 6d 20 70 72 6f 6c 6f 67 75 65 20 69 66 stom prologue if 8ce0: 20 74 68 65 20 6d 61 69 6e 20 6f 6e 65 20 68 61 the main one ha 8cf0: 73 20 62 65 65 6e 20 73 6b 69 70 70 65 64 2e 0d s been skipped.. 8d00: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 . #.. 8d10: 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 if {![info exist 8d20: 73 20 3a 3a 6e 6f 28 70 72 6f 6c 6f 67 75 65 2e s ::no(prologue. 8d30: 65 61 67 6c 65 29 5d 7d 20 74 68 65 6e 20 7b 0d eagle)]} then {. 8d40: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #.. 8d50: 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 6b 69 70 # NOTE: Skip 8d60: 20 61 6c 6c 20 53 79 73 74 65 6d 2e 44 61 74 61 all System.Data 8d70: 2e 53 51 4c 69 74 65 20 72 65 6c 61 74 65 64 20 .SQLite related 8d80: 66 69 6c 65 20 68 61 6e 64 6c 69 6e 67 20 28 64 file handling (d 8d90: 65 6c 65 74 69 6e 67 2c 0d 0a 20 20 20 20 20 20 eleting,.. 8da0: 20 20 23 20 20 20 20 20 20 20 63 6f 70 79 69 6e # copyin 8db0: 67 2c 20 61 6e 64 20 6c 6f 61 64 69 6e 67 29 20 g, and loading) 8dc0: 69 66 20 77 65 20 61 72 65 20 73 6f 20 69 6e 73 if we are so ins 8dd0: 74 72 75 63 74 65 64 2e 0d 0a 20 20 20 20 20 20 tructed... 8de0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 69 66 20 #.. if 8df0: 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a {![info exists : 8e00: 3a 6e 6f 28 73 71 6c 69 74 65 46 69 6c 65 73 29 :no(sqliteFiles) 8e10: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 ]} then {.. 8e20: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #.. 8e30: 20 20 23 20 4e 4f 54 45 3a 20 53 6b 69 70 20 74 # NOTE: Skip t 8e40: 72 79 69 6e 67 20 74 6f 20 64 65 6c 65 74 65 20 rying to delete 8e50: 61 6e 79 20 66 69 6c 65 73 20 69 66 20 77 65 20 any files if we 8e60: 61 72 65 20 73 6f 20 69 6e 73 74 72 75 63 74 65 are so instructe 8e70: 64 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d d... #. 8e80: 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 21 . if {! 8e90: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 6e [info exists ::n 8ea0: 6f 28 64 65 6c 65 74 65 53 71 6c 69 74 65 46 69 o(deleteSqliteFi 8eb0: 6c 65 73 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 les)]} then {.. 8ec0: 20 20 20 20 20 20 20 20 20 20 20 74 72 79 44 65 tryDe 8ed0: 6c 65 74 65 41 73 73 65 6d 62 6c 79 20 73 71 6c leteAssembly sql 8ee0: 69 74 65 33 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 ite3.dll.. 8ef0: 20 20 20 20 20 20 72 65 6d 6f 76 65 43 6f 6e 73 removeCons 8f00: 74 72 61 69 6e 74 20 66 69 6c 65 5f 73 71 6c 69 traint file_sqli 8f10: 74 65 33 2e 64 6c 6c 0d 0a 0d 0a 20 20 20 20 20 te3.dll.... 8f20: 20 20 20 20 20 20 20 74 72 79 44 65 6c 65 74 65 tryDelete 8f30: 41 73 73 65 6d 62 6c 79 20 53 51 4c 69 74 65 2e Assembly SQLite. 8f40: 49 6e 74 65 72 6f 70 2e 64 6c 6c 0d 0a 20 20 20 Interop.dll.. 8f50: 20 20 20 20 20 20 20 20 20 72 65 6d 6f 76 65 43 removeC 8f60: 6f 6e 73 74 72 61 69 6e 74 20 66 69 6c 65 5f 53 onstraint file_S 8f70: 51 4c 69 74 65 2e 49 6e 74 65 72 6f 70 2e 64 6c QLite.Interop.dl 8f80: 6c 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 l.... 8f90: 20 74 72 79 44 65 6c 65 74 65 41 73 73 65 6d 62 tryDeleteAssemb 8fa0: 6c 79 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 ly System.Data.S 8fb0: 51 4c 69 74 65 2e 64 6c 6c 0d 0a 20 20 20 20 20 QLite.dll.. 8fc0: 20 20 20 20 20 20 20 72 65 6d 6f 76 65 43 6f 6e removeCon 8fd0: 73 74 72 61 69 6e 74 20 66 69 6c 65 5f 53 79 73 straint file_Sys 8fe0: 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e tem.Data.SQLite. 8ff0: 64 6c 6c 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 dll.... 9000: 20 20 20 74 72 79 44 65 6c 65 74 65 41 73 73 65 tryDeleteAsse 9010: 6d 62 6c 79 20 53 79 73 74 65 6d 2e 44 61 74 61 mbly System.Data 9020: 2e 53 51 4c 69 74 65 2e 4c 69 6e 71 2e 64 6c 6c .SQLite.Linq.dll 9030: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 .. re 9040: 6d 6f 76 65 43 6f 6e 73 74 72 61 69 6e 74 20 66 moveConstraint f 9050: 69 6c 65 5f 53 79 73 74 65 6d 2e 44 61 74 61 2e ile_System.Data. 9060: 53 51 4c 69 74 65 2e 4c 69 6e 71 2e 64 6c 6c 0d SQLite.Linq.dll. 9070: 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a . }.... 9080: 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 #.. 9090: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 # NOTE: S 90a0: 6b 69 70 20 74 72 79 69 6e 67 20 74 6f 20 63 6f kip trying to co 90b0: 70 79 20 61 6e 79 20 66 69 6c 65 73 20 69 66 20 py any files if 90c0: 77 65 20 61 72 65 20 73 6f 20 69 6e 73 74 72 75 we are so instru 90d0: 63 74 65 64 2e 0d 0a 20 20 20 20 20 20 20 20 20 cted... 90e0: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66 #.. if 90f0: 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 {![info exists 9100: 3a 3a 6e 6f 28 63 6f 70 79 53 71 6c 69 74 65 46 ::no(copySqliteF 9110: 69 6c 65 73 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a iles)]} then {.. 9120: 20 20 20 20 20 20 20 20 20 20 20 20 74 72 79 43 tryC 9130: 6f 70 79 41 73 73 65 6d 62 6c 79 20 73 71 6c 69 opyAssembly sqli 9140: 74 65 33 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 20 te3.dll.. 9150: 20 20 20 20 20 74 72 79 43 6f 70 79 41 73 73 65 tryCopyAsse 9160: 6d 62 6c 79 20 53 51 4c 69 74 65 2e 49 6e 74 65 mbly SQLite.Inte 9170: 72 6f 70 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 20 rop.dll.. 9180: 20 20 20 20 20 74 72 79 43 6f 70 79 41 73 73 65 tryCopyAsse 9190: 6d 62 6c 79 20 53 79 73 74 65 6d 2e 44 61 74 61 mbly System.Data 91a0: 2e 53 51 4c 69 74 65 2e 64 6c 6c 0d 0a 20 20 20 .SQLite.dll.. 91b0: 20 20 20 20 20 20 20 20 20 74 72 79 43 6f 70 79 tryCopy 91c0: 41 73 73 65 6d 62 6c 79 20 53 79 73 74 65 6d 2e Assembly System. 91d0: 44 61 74 61 2e 53 51 4c 69 74 65 2e 4c 69 6e 71 Data.SQLite.Linq 91e0: 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 20 20 20 20 .dll.. 91f0: 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 23 }.... # 9200: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f .. # NO 9210: 54 45 3a 20 53 6b 69 70 20 74 72 79 69 6e 67 20 TE: Skip trying 9220: 74 6f 20 6c 6f 61 64 20 61 6e 79 20 66 69 6c 65 to load any file 9230: 73 20 69 66 20 77 65 20 61 72 65 20 73 6f 20 69 s if we are so i 9240: 6e 73 74 72 75 63 74 65 64 2e 0d 0a 20 20 20 20 nstructed... 9250: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #.. 9260: 20 20 20 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 if {![info ex 9270: 69 73 74 73 20 3a 3a 6e 6f 28 6c 6f 61 64 53 71 ists ::no(loadSq 9280: 6c 69 74 65 46 69 6c 65 73 29 5d 7d 20 74 68 65 liteFiles)]} the 9290: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 n {.. 92a0: 20 74 72 79 4c 6f 61 64 41 73 73 65 6d 62 6c 79 tryLoadAssembly 92b0: 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c System.Data.SQL 92c0: 69 74 65 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 20 ite.dll.. 92d0: 20 20 20 20 20 74 72 79 4c 6f 61 64 41 73 73 65 tryLoadAsse 92e0: 6d 62 6c 79 20 53 79 73 74 65 6d 2e 44 61 74 61 mbly System.Data 92f0: 2e 53 51 4c 69 74 65 2e 4c 69 6e 71 2e 64 6c 6c .SQLite.Linq.dll 9300: 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 .. }.. 9310: 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 }.... 9320: 20 20 20 20 63 61 74 63 68 20 7b 0d 0a 20 20 20 catch {.. 9330: 20 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a tputs$::
9340: 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70  test_channel [ap
9350: 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20  pendArgs \..
9360: 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20            "----
9370: 66 69 6c 65 20 76 65 72 73 69 6f 6e 20 6f 66 20  file version of
9380: 5c 22 73 71 6c 69 74 65 33 2e 64 6c 6c 5c 22 2e  \"sqlite3.dll\".
9390: 2e 2e 20 22 20 5c 0d 0a 20 20 20 20 20 20 20 20  .. " \..
93a0: 20 20 20 20 20 20 5b 66 69 6c 65 20 76 65 72 73        [file vers
93b0: 69 6f 6e 20 5b 67 65 74 42 69 6e 61 72 79 46 69  ion [getBinaryFi
93c0: 6c 65 4e 61 6d 65 20 73 71 6c 69 74 65 33 2e 64  leName sqlite3.d
93d0: 6c 6c 5d 5d 20 5c 6e 5d 0d 0a 20 20 20 20 20 20  ll]] \n]..
93e0: 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 63    }....        c
93f0: 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20  atch {..
9400: 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f    tputs $::test_ 9410: 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 channel [appendA 9420: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 rgs \.. 9430: 20 20 20 20 20 22 2d 2d 2d 2d 20 66 69 6c 65 20 "---- file 9440: 76 65 72 73 69 6f 6e 20 6f 66 20 5c 22 53 51 4c version of \"SQL 9450: 69 74 65 2e 49 6e 74 65 72 6f 70 2e 64 6c 6c 5c ite.Interop.dll\ 9460: 22 2e 2e 2e 20 22 20 5c 0d 0a 20 20 20 20 20 20 "... " \.. 9470: 20 20 20 20 20 20 20 20 5b 66 69 6c 65 20 76 65 [file ve 9480: 72 73 69 6f 6e 20 5b 67 65 74 42 69 6e 61 72 79 rsion [getBinary 9490: 46 69 6c 65 4e 61 6d 65 20 53 51 4c 69 74 65 2e FileName SQLite. 94a0: 49 6e 74 65 72 6f 70 2e 64 6c 6c 5d 5d 20 5c 6e Interop.dll]] \n 94b0: 5d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a ].. }.... 94c0: 20 20 20 20 20 20 20 20 63 61 74 63 68 20 7b 0d catch {. 94d0: 0a 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 . tputs 94e0: 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c$::test_channel
94f0: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a   [appendArgs \..
9500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2d                "-
9510: 2d 2d 2d 20 66 69 6c 65 20 76 65 72 73 69 6f 6e  --- file version
9520: 20 6f 66 20 5c 22 53 79 73 74 65 6d 2e 44 61 74   of \"System.Dat
9530: 61 2e 53 51 4c 69 74 65 2e 64 6c 6c 5c 22 2e 2e  a.SQLite.dll\"..
9540: 2e 20 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  . " \..
9550: 20 20 20 20 20 5b 66 69 6c 65 20 76 65 72 73 69       [file versi
9560: 6f 6e 20 5b 67 65 74 42 69 6e 61 72 79 46 69 6c  on [getBinaryFil
9570: 65 4e 61 6d 65 20 53 79 73 74 65 6d 2e 44 61 74  eName System.Dat
9580: 61 2e 53 51 4c 69 74 65 2e 64 6c 6c 5d 5d 20 5c  a.SQLite.dll]] \
9590: 6e 5d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d  n]..        }...
95a0: 0a 20 20 20 20 20 20 20 20 63 61 74 63 68 20 7b  .        catch {
95b0: 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70 75 74  ..          tput
95c0: 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65  s $::test_channe 95d0: 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d l [appendArgs \. 95e0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 . " 95f0: 2d 2d 2d 2d 20 66 69 6c 65 20 76 65 72 73 69 6f ---- file versio 9600: 6e 20 6f 66 20 5c 22 53 79 73 74 65 6d 2e 44 61 n of \"System.Da 9610: 74 61 2e 53 51 4c 69 74 65 2e 4c 69 6e 71 2e 64 ta.SQLite.Linq.d 9620: 6c 6c 5c 22 2e 2e 2e 20 22 20 5c 0d 0a 20 20 20 ll\"... " \.. 9630: 20 20 20 20 20 20 20 20 20 20 20 5b 66 69 6c 65 [file 9640: 20 76 65 72 73 69 6f 6e 20 5b 67 65 74 42 69 6e version [getBin 9650: 61 72 79 46 69 6c 65 4e 61 6d 65 20 53 79 73 74 aryFileName Syst 9660: 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 4c em.Data.SQLite.L 9670: 69 6e 71 2e 64 6c 6c 5d 5d 20 5c 6e 5d 0d 0a 20 inq.dll]] \n].. 9680: 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 }.... 9690: 20 20 20 20 73 65 74 20 61 73 73 65 6d 62 6c 69 set assembli 96a0: 65 73 20 5b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b es [object invok 96b0: 65 20 41 70 70 44 6f 6d 61 69 6e 2e 43 75 72 72 e AppDomain.Curr 96c0: 65 6e 74 44 6f 6d 61 69 6e 20 47 65 74 41 73 73 entDomain GetAss 96d0: 65 6d 62 6c 69 65 73 5d 0d 0a 0d 0a 20 20 20 20 emblies].... 96e0: 20 20 20 20 6f 62 6a 65 63 74 20 66 6f 72 65 61 object forea 96f0: 63 68 20 61 73 73 65 6d 62 6c 79 20 24 61 73 73 ch assembly$ass
9700: 65 6d 62 6c 69 65 73 20 7b 0d 0a 20 20 20 20 20  emblies {..
9710: 20 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67       if {[string
9720: 20 6d 61 74 63 68 20 5c 7b 53 79 73 74 65 6d 2e   match \{System.
9730: 44 61 74 61 2e 53 51 4c 69 74 65 2a 20 24 61 73  Data.SQLite* $as 9740: 73 65 6d 62 6c 79 5d 7d 20 74 68 65 6e 20 7b 0d sembly]} then {. 9750: 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 70 75 . tpu 9760: 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e ts$::test_chann
9770: 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c  el [appendArgs \
9780: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..
9790: 20 20 22 2d 2d 2d 2d 20 66 6f 75 6e 64 20 61 73    "---- found as
97a0: 73 65 6d 62 6c 79 3a 20 22 20 24 61 73 73 65 6d  sembly: " $assem 97b0: 62 6c 79 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 bly \n].. 97c0: 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d }.. }. 97d0: 0a 0d 0a 20 20 20 20 20 20 20 20 63 61 74 63 68 ... catch 97e0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70 {.. tp 97f0: 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e uts$::test_chan
9800: 6e 65 6c 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  nel \..
9810: 20 20 20 20 20 22 2d 2d 2d 2d 20 64 65 66 69 6e       "---- defin
9820: 65 20 63 6f 6e 73 74 61 6e 74 73 20 66 6f 72 20  e constants for
9830: 5c 22 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51  \"System.Data.SQ
9840: 4c 69 74 65 5c 22 2e 2e 2e 20 22 0d 0a 0d 0a 20  Lite\"... "....
9850: 20 20 20 20 20 20 20 20 20 69 66 20 7b 5b 63 61           if {[ca
9860: 74 63 68 20 7b 6f 62 6a 65 63 74 20 69 6e 76 6f  tch {object invo
9870: 6b 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75  ke -flags +NonPu
9880: 62 6c 69 63 20 5c 0d 0a 20 20 20 20 20 20 20 20  blic \..
9890: 20 20 20 20 20 20 20 20 20 20 53 79 73 74 65 6d            System
98a0: 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 53 51 4c  .Data.SQLite.SQL
98b0: 69 74 65 33 20 44 65 66 69 6e 65 43 6f 6e 73 74  ite3 DefineConst
98c0: 61 6e 74 73 7d 20 5c 0d 0a 20 20 20 20 20 20 20  ants} \..
98d0: 20 20 20 20 20 20 20 20 20 20 20 64 65 66 69 6e             defin
98e0: 65 43 6f 6e 73 74 61 6e 74 73 5d 20 3d 3d 20 30  eConstants] == 0
98f0: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..
9900: 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74        tputs $::t 9910: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 est_channel [app 9920: 65 6e 64 41 72 67 73 20 5b 66 6f 72 6d 61 74 4c endArgs [formatL 9930: 69 73 74 20 5b 6c 73 6f 72 74 20 5c 0d 0a 20 20 ist [lsort \.. 9940: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 64$d
9950: 65 66 69 6e 65 43 6f 6e 73 74 61 6e 74 73 5d 5d  efineConstants]]
9960: 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 20 20   \n]..
9970: 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20  } else {..
9980: 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74        tputs $::t 9990: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 75 6e 6b 6e est_channel unkn 99a0: 6f 77 6e 5c 6e 0d 0a 20 20 20 20 20 20 20 20 20 own\n.. 99b0: 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d }.. }... 99c0: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #.. 99d0: 20 20 20 20 23 20 4e 4f 54 45 3a 20 4e 6f 77 2c # NOTE: Now, 99e0: 20 77 65 20 6e 65 65 64 20 74 6f 20 6b 6e 6f 77 we need to know 99f0: 20 69 66 20 74 68 65 20 53 51 4c 69 74 65 20 63 if the SQLite c 9a00: 6f 72 65 20 6c 69 62 72 61 72 79 20 69 73 20 61 ore library is a 9a10: 76 61 69 6c 61 62 6c 65 0d 0a 20 20 20 20 20 20 vailable.. 9a20: 20 20 23 20 20 20 20 20 20 20 28 69 2e 65 2e 20 # (i.e. 9a30: 62 65 63 61 75 73 65 20 74 68 65 20 6d 61 6e 61 because the mana 9a40: 67 65 64 2d 6f 6e 6c 79 20 53 79 73 74 65 6d 2e ged-only System. 9a50: 44 61 74 61 2e 53 51 4c 69 74 65 20 61 73 73 65 Data.SQLite asse 9a60: 6d 62 6c 79 20 63 61 6e 0d 0a 20 20 20 20 20 20 mbly can.. 9a70: 20 20 23 20 20 20 20 20 20 20 6c 6f 61 64 20 77 # load w 9a80: 69 74 68 6f 75 74 20 69 74 3b 20 68 6f 77 65 76 ithout it; howev 9a90: 65 72 2c 20 69 74 20 63 61 6e 6e 6f 74 20 64 6f er, it cannot do 9aa0: 20 61 6e 79 74 68 69 6e 67 20 75 73 65 66 75 6c anything useful 9ab0: 20 77 69 74 68 6f 75 74 0d 0a 20 20 20 20 20 20 without.. 9ac0: 20 20 23 20 20 20 20 20 20 20 69 74 29 2e 20 20 # it). 9ad0: 49 66 20 77 65 20 61 72 65 20 75 73 69 6e 67 20 If we are using 9ae0: 74 68 65 20 6d 69 78 65 64 2d 6d 6f 64 65 20 61 the mixed-mode a 9af0: 73 73 65 6d 62 6c 79 20 61 6e 64 20 77 65 20 61 ssembly and we a 9b00: 6c 72 65 61 64 79 0d 0a 20 20 20 20 20 20 20 20 lready.. 9b10: 23 20 20 20 20 20 20 20 66 6f 75 6e 64 20 69 74 # found it 9b20: 20 28 61 62 6f 76 65 29 2c 20 74 68 69 73 20 73 (above), this s 9b30: 68 6f 75 6c 64 20 61 6c 77 61 79 73 20 73 75 63 hould always suc 9b40: 63 65 65 64 2e 0d 0a 20 20 20 20 20 20 20 20 23 ceed... # 9b50: 0d 0a 20 20 20 20 20 20 20 20 63 68 65 63 6b 46 .. checkF 9b60: 6f 72 53 51 4c 69 74 65 20 24 3a 3a 74 65 73 74 orSQLite$::test
9b70: 5f 63 68 61 6e 6e 65 6c 0d 0a 0d 0a 20 20 20 20  _channel....
9b80: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23      #..        #
9b90: 20 4e 4f 54 45 3a 20 43 68 65 63 6b 20 69 66 20   NOTE: Check if
9ba0: 74 68 65 20 73 71 6c 69 74 65 33 5f 77 69 6e 33  the sqlite3_win3
9bb0: 32 5f 73 65 74 5f 64 69 72 65 63 74 6f 72 79 20  2_set_directory
9bc0: 66 75 6e 63 74 69 6f 6e 20 69 73 20 61 76 61 69  function is avai
9bd0: 6c 61 62 6c 65 2e 0d 0a 20 20 20 20 20 20 20 20  lable...
9be0: 23 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73  #..        tputs
9bf0: 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c   $::test_channel 9c00: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \.. 9c10: 22 2d 2d 2d 2d 20 63 68 65 63 6b 69 6e 67 20 66 "---- checking f 9c20: 6f 72 20 66 75 6e 63 74 69 6f 6e 20 73 71 6c 69 or function sqli 9c30: 74 65 33 5f 77 69 6e 33 32 5f 73 65 74 5f 64 69 te3_win32_set_di 9c40: 72 65 63 74 6f 72 79 2e 2e 2e 20 22 0d 0a 0d 0a rectory... ".... 9c50: 20 20 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 if {[cat 9c60: 63 68 20 7b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b ch {object invok 9c70: 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 e -flags +NonPub 9c80: 6c 69 63 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 lic \.. 9c90: 20 20 20 20 20 20 20 53 79 73 74 65 6d 2e 44 61 System.Da 9ca0: 74 61 2e 53 51 4c 69 74 65 2e 55 6e 73 61 66 65 ta.SQLite.Unsafe 9cb0: 4e 61 74 69 76 65 4d 65 74 68 6f 64 73 20 5c 0d NativeMethods \. 9cc0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 . 9cd0: 20 73 71 6c 69 74 65 33 5f 77 69 6e 33 32 5f 73 sqlite3_win32_s 9ce0: 65 74 5f 64 69 72 65 63 74 6f 72 79 20 30 20 6e et_directory 0 n 9cf0: 75 6c 6c 7d 5d 20 3d 3d 20 30 7d 20 74 68 65 6e ull}] == 0} then 9d00: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d {.. #. 9d10: 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 . # NOT 9d20: 45 3a 20 43 61 6c 6c 69 6e 67 20 74 68 65 20 73 E: Calling the s 9d30: 71 6c 69 74 65 33 5f 77 69 6e 33 32 5f 73 65 74 qlite3_win32_set 9d40: 5f 64 69 72 65 63 74 6f 72 79 20 66 75 6e 63 74 _directory funct 9d50: 69 6f 6e 20 64 6f 65 73 20 6e 6f 74 0d 0a 20 20 ion does not.. 9d60: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 # 9d70: 63 61 75 73 65 20 61 6e 20 65 78 63 65 70 74 69 cause an excepti 9d80: 6f 6e 3b 20 74 68 65 72 65 66 6f 72 65 2c 20 69 on; therefore, i 9d90: 74 20 6d 75 73 74 20 62 65 20 61 76 61 69 6c 61 t must be availa 9da0: 62 6c 65 20 28 69 2e 65 2e 0d 0a 20 20 20 20 20 ble (i.e... 9db0: 20 20 20 20 20 23 20 20 20 20 20 20 20 65 76 65 # eve 9dc0: 6e 20 74 68 6f 75 67 68 20 69 74 20 73 68 6f 75 n though it shou 9dd0: 6c 64 20 72 65 74 75 72 6e 20 61 20 66 61 69 6c ld return a fail 9de0: 75 72 65 20 72 65 74 75 72 6e 20 63 6f 64 65 20 ure return code 9df0: 69 6e 20 74 68 69 73 0d 0a 20 20 20 20 20 20 20 in this.. 9e00: 20 20 20 23 20 20 20 20 20 20 20 63 61 73 65 29 # case) 9e10: 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a ... #.. 9e20: 20 20 20 20 20 20 20 20 20 20 61 64 64 43 6f 6e addCon 9e30: 73 74 72 61 69 6e 74 20 73 71 6c 69 74 65 33 5f straint sqlite3_ 9e40: 77 69 6e 33 32 5f 73 65 74 5f 64 69 72 65 63 74 win32_set_direct 9e50: 6f 72 79 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 ory.... 9e60: 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 tputs$::test_c
9e70: 68 61 6e 6e 65 6c 20 79 65 73 5c 6e 0d 0a 20 20  hannel yes\n..
9e80: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a        } else {..
9e90: 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20            tputs
9ea0: 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20  $::test_channel 9eb0: 6e 6f 5c 6e 0d 0a 20 20 20 20 20 20 20 20 7d 0d no\n.. }. 9ec0: 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 ... #.. 9ed0: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 41 74 # NOTE: At 9ee0: 74 65 6d 70 74 20 74 6f 20 64 65 74 65 72 6d 69 tempt to determi 9ef0: 6e 65 20 69 66 20 74 68 65 20 63 75 73 74 6f 6d ne if the custom 9f00: 20 65 78 74 65 6e 73 69 6f 6e 20 66 75 6e 63 74 extension funct 9f10: 69 6f 6e 73 20 77 65 72 65 0d 0a 20 20 20 20 20 ions were.. 9f20: 20 20 20 23 20 20 20 20 20 20 20 63 6f 6d 70 69 # compi 9f30: 6c 65 64 20 69 6e 74 6f 20 74 68 65 20 53 51 4c led into the SQL 9f40: 69 74 65 20 69 6e 74 65 72 6f 70 20 61 73 73 65 ite interop asse 9f50: 6d 62 6c 79 2e 0d 0a 20 20 20 20 20 20 20 20 23 mbly... # 9f60: 0d 0a 20 20 20 20 20 20 20 20 63 68 65 63 6b 46 .. checkF 9f70: 6f 72 53 51 4c 69 74 65 44 65 66 69 6e 65 43 6f orSQLiteDefineCo 9f80: 6e 73 74 61 6e 74 20 24 3a 3a 74 65 73 74 5f 63 nstant$::test_c
9f90: 68 61 6e 6e 65 6c 20 5c 0d 0a 20 20 20 20 20 20  hannel \..
9fa0: 20 20 20 20 20 20 43 48 45 43 4b 5f 53 54 41 54        CHECK_STAT
9fb0: 45 0d 0a 0d 0a 20 20 20 20 20 20 20 20 63 68 65  E....        che
9fc0: 63 6b 46 6f 72 53 51 4c 69 74 65 44 65 66 69 6e  ckForSQLiteDefin
9fd0: 65 43 6f 6e 73 74 61 6e 74 20 24 3a 3a 74 65 73  eConstant $::tes 9fe0: 74 5f 63 68 61 6e 6e 65 6c 20 5c 0d 0a 20 20 20 t_channel \.. 9ff0: 20 20 20 20 20 20 20 20 20 55 53 45 5f 49 4e 54 USE_INT a000: 45 52 4f 50 5f 44 4c 4c 0d 0a 0d 0a 20 20 20 20 EROP_DLL.... a010: 20 20 20 20 63 68 65 63 6b 46 6f 72 53 51 4c 69 checkForSQLi a020: 74 65 44 65 66 69 6e 65 43 6f 6e 73 74 61 6e 74 teDefineConstant a030: 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c$::test_channel
a040: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   \..
a050: 49 4e 54 45 52 4f 50 5f 45 58 54 45 4e 53 49 4f  INTEROP_EXTENSIO
a060: 4e 5f 46 55 4e 43 54 49 4f 4e 53 0d 0a 0d 0a 20  N_FUNCTIONS....
a070: 20 20 20 20 20 20 20 63 68 65 63 6b 46 6f 72 53         checkForS
a080: 51 4c 69 74 65 44 65 66 69 6e 65 43 6f 6e 73 74  QLiteDefineConst
a090: 61 6e 74 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e  ant $::test_chan a0a0: 6e 65 6c 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 nel \.. a0b0: 20 20 20 49 4e 54 45 52 4f 50 5f 54 45 53 54 5f INTEROP_TEST_ a0c0: 45 58 54 45 4e 53 49 4f 4e 0d 0a 0d 0a 20 20 20 EXTENSION.... a0d0: 20 20 20 20 20 63 68 65 63 6b 46 6f 72 53 51 4c checkForSQL a0e0: 69 74 65 44 65 66 69 6e 65 43 6f 6e 73 74 61 6e iteDefineConstan a0f0: 74 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 t$::test_channe
a100: 6c 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20  l \..
a110: 20 53 51 4c 49 54 45 5f 53 54 41 4e 44 41 52 44   SQLITE_STANDARD
a120: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20  ....        #..
a130: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 43         # NOTE: C
a140: 68 65 63 6b 20 74 68 65 20 63 75 72 72 65 6e 74  heck the current
a150: 20 62 75 69 6c 64 20 79 65 61 72 2e 20 20 42 61   build year.  Ba
a160: 73 69 63 61 6c 6c 79 2c 20 74 68 69 73 20 69 6e  sically, this in
a170: 64 69 63 61 74 65 73 0d 0a 20 20 20 20 20 20 20  dicates..
a180: 20 23 20 20 20 20 20 20 20 77 68 69 63 68 20 76   #       which v
a190: 65 72 73 69 6f 6e 20 6f 66 20 4d 53 42 75 69 6c  ersion of MSBuil
a1a0: 64 20 61 6e 64 2f 6f 72 20 56 69 73 75 61 6c 20  d and/or Visual
a1b0: 53 74 75 64 69 6f 20 77 61 73 20 75 73 65 64 20  Studio was used
a1c0: 74 6f 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20  to..        #
a1d0: 20 20 20 20 63 6f 6d 70 69 6c 65 20 74 68 65 20      compile the
a1e0: 61 73 73 65 6d 62 6c 79 20 62 69 6e 61 72 69 65  assembly binarie
a1f0: 73 20 75 6e 64 65 72 20 74 65 73 74 2e 0d 0a 20  s under test...
a200: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..
a210: 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f    tputs $::test_ a220: 63 68 61 6e 6e 65 6c 20 5c 0d 0a 20 20 20 20 20 channel \.. a230: 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 63 68 65 "---- che a240: 63 6b 69 6e 67 20 66 6f 72 20 53 79 73 74 65 6d cking for System a250: 2e 44 61 74 61 2e 53 51 4c 69 74 65 20 62 75 69 .Data.SQLite bui a260: 6c 64 20 79 65 61 72 2e 2e 2e 20 22 0d 0a 0d 0a ld year... ".... a270: 20 20 20 20 20 20 20 20 73 65 74 20 79 65 61 72 set year a280: 20 5b 67 65 74 42 75 69 6c 64 59 65 61 72 5d 0d [getBuildYear]. a290: 0a 20 20 20 20 20 20 20 20 61 64 64 43 6f 6e 73 . addCons a2a0: 74 72 61 69 6e 74 20 5b 61 70 70 65 6e 64 41 72 traint [appendAr a2b0: 67 73 20 62 75 69 6c 64 59 65 61 72 20 24 79 65 gs buildYear$ye
a2c0: 61 72 5d 0d 0a 20 20 20 20 20 20 20 20 74 70 75  ar]..        tpu
a2d0: 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e  ts $::test_chann a2e0: 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c el [appendArgs \ a2f0: 22 20 24 79 65 61 72 20 5c 22 5c 6e 5d 0d 0a 0d "$year \"\n]...
a300: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20  .        #..
a310: 20 20 20 20 23 20 4e 4f 54 45 3a 20 43 68 65 63      # NOTE: Chec
a320: 6b 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75  k the current bu
a330: 69 6c 64 20 63 6f 6e 66 69 67 75 72 61 74 69 6f  ild configuratio
a340: 6e 2e 20 20 54 68 69 73 20 73 68 6f 75 6c 64 20  n.  This should
a350: 6e 6f 72 6d 61 6c 6c 79 0d 0a 20 20 20 20 20 20  normally..
a360: 20 20 23 20 20 20 20 20 20 20 62 65 20 65 69 74    #       be eit
a370: 68 65 72 20 22 44 65 62 75 67 22 20 6f 72 20 22  her "Debug" or "
a380: 52 65 6c 65 61 73 65 22 2e 0d 0a 20 20 20 20 20  Release"...
a390: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 74 70     #..        tp
a3a0: 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e  uts $::test_chan a3b0: 6e 65 6c 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 nel \.. a3c0: 20 20 20 22 2d 2d 2d 2d 20 63 68 65 63 6b 69 6e "---- checkin a3d0: 67 20 66 6f 72 20 53 79 73 74 65 6d 2e 44 61 74 g for System.Dat a3e0: 61 2e 53 51 4c 69 74 65 20 62 75 69 6c 64 20 63 a.SQLite build c a3f0: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 2e 2e 2e 20 onfiguration... a400: 22 0d 0a 0d 0a 20 20 20 20 20 20 20 20 73 65 74 ".... set a410: 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 5b configuration [ a420: 67 65 74 42 75 69 6c 64 43 6f 6e 66 69 67 75 72 getBuildConfigur a430: 61 74 69 6f 6e 5d 0d 0a 20 20 20 20 20 20 20 20 ation].. a440: 61 64 64 43 6f 6e 73 74 72 61 69 6e 74 20 5b 61 addConstraint [a a450: 70 70 65 6e 64 41 72 67 73 20 62 75 69 6c 64 43 ppendArgs buildC a460: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 24 63 6f onfiguration$co
a470: 6e 66 69 67 75 72 61 74 69 6f 6e 5d 0d 0a 20 20  nfiguration]..
a480: 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74        tputs $::t a490: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 est_channel [app a4a0: 65 6e 64 41 72 67 73 20 5c 22 20 24 63 6f 6e 66 endArgs \"$conf
a4b0: 69 67 75 72 61 74 69 6f 6e 20 5c 22 5c 6e 5d 0d  iguration \"\n].
a4c0: 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20  ...        #..
a4d0: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 43 68        # NOTE: Ch
a4e0: 65 63 6b 20 66 6f 72 20 74 68 65 20 6e 61 74 69  eck for the nati
a4f0: 76 65 20 72 75 6e 74 69 6d 65 20 6f 70 74 69 6f  ve runtime optio
a500: 6e 2c 20 77 68 69 63 68 20 77 6f 75 6c 64 20 6d  n, which would m
a510: 65 61 6e 20 77 65 20 61 72 65 0d 0a 20 20 20 20  ean we are..
a520: 20 20 20 20 23 20 20 20 20 20 20 20 75 73 69 6e      #       usin
a530: 67 20 74 68 65 20 6d 69 78 65 64 2d 6d 6f 64 65  g the mixed-mode
a540: 20 61 73 73 65 6d 62 6c 79 2e 0d 0a 20 20 20 20   assembly...
a550: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 63      #..        c
a560: 68 65 63 6b 46 6f 72 52 75 6e 74 69 6d 65 4f 70  heckForRuntimeOp
a570: 74 69 6f 6e 20 24 3a 3a 74 65 73 74 5f 63 68 61  tion $::test_cha a580: 6e 6e 65 6c 20 6e 61 74 69 76 65 0d 0a 0d 0a 20 nnel native.... a590: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #.. a5a0: 20 20 23 20 4e 4f 54 45 3a 20 52 65 70 6f 72 74 # NOTE: Report a5b0: 20 74 68 65 20 72 65 73 6f 75 72 63 65 20 75 73 the resource us a5c0: 61 67 65 20 70 72 69 6f 72 20 74 6f 20 72 75 6e age prior to run a5d0: 6e 69 6e 67 20 61 6e 79 20 74 65 73 74 73 2e 0d ning any tests.. a5e0: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #.. a5f0: 20 20 20 20 72 65 70 6f 72 74 53 51 4c 69 74 65 reportSQLite a600: 52 65 73 6f 75 72 63 65 73 20 24 3a 3a 74 65 73 Resources$::tes
a610: 74 5f 63 68 61 6e 6e 65 6c 0d 0a 0d 0a 20 20 20  t_channel....
a620: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..
a630: 23 20 4e 4f 54 45 3a 20 53 68 6f 77 20 74 68 65  # NOTE: Show the
a640: 20 61 63 74 69 76 65 20 74 65 73 74 20 63 6f 6e   active test con
a650: 73 74 72 61 69 6e 74 73 2e 0d 0a 20 20 20 20 20  straints...
a660: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 74 70     #..        tp
a670: 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e  uts $::test_chan a680: 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 nel [appendArgs a690: 22 2d 2d 2d 2d 20 63 6f 6e 73 74 72 61 69 6e 74 "---- constraint a6a0: 73 3a 20 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 s: " \.. a6b0: 20 20 20 20 5b 66 6f 72 6d 61 74 4c 69 73 74 20 [formatList a6c0: 5b 6c 73 6f 72 74 20 5b 67 65 74 43 6f 6e 73 74 [lsort [getConst a6d0: 72 61 69 6e 74 73 5d 5d 5d 20 5c 6e 5d 0d 0a 0d raints]]] \n]... a6e0: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #.. a6f0: 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 68 6f 77 # NOTE: Show a700: 20 77 68 65 6e 20 6f 75 72 20 74 65 73 74 73 20 when our tests a710: 61 63 74 75 61 6c 6c 79 20 62 65 67 61 6e 20 28 actually began ( a720: 6e 6f 77 29 2e 0d 0a 20 20 20 20 20 20 20 20 23 now)... # a730: 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20 .. tputs a740: 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20$::test_channel
a750: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20  [appendArgs \..
a760: 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d             "----
a770: 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c   System.Data.SQL
a780: 69 74 65 20 74 65 73 74 73 20 62 65 67 61 6e 20  ite tests began
a790: 61 74 20 22 20 5c 0d 0a 20 20 20 20 20 20 20 20  at " \..
a7a0: 20 20 20 20 5b 63 6c 6f 63 6b 20 66 6f 72 6d 61      [clock forma
a7b0: 74 20 5b 63 6c 6f 63 6b 20 73 65 63 6f 6e 64 73  t [clock seconds
a7c0: 5d 5d 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 7d 0d  ]] \n]..      }.
a7d0: 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70  .    }.....    p
a7e0: 72 6f 63 20 72 75 6e 53 51 4c 69 74 65 54 65 73  roc runSQLiteTes
a7f0: 74 45 70 69 6c 6f 67 75 65 20 7b 7d 20 7b 0d 0a  tEpilogue {} {..
a800: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23        #..      #
a810: 20 4e 4f 54 45 3a 20 53 6b 69 70 20 72 75 6e 6e   NOTE: Skip runn
a820: 69 6e 67 20 6f 75 72 20 63 75 73 74 6f 6d 20 65  ing our custom e
a830: 70 69 6c 6f 67 75 65 20 69 66 20 74 68 65 20 6d  pilogue if the m
a840: 61 69 6e 20 6f 6e 65 20 68 61 73 20 62 65 65 6e  ain one has been
a850: 20 73 6b 69 70 70 65 64 2e 0d 0a 20 20 20 20 20   skipped...
a860: 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 21 5b   #..      if {![
a870: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 6e 6f  info exists ::no
a880: 28 65 70 69 6c 6f 67 75 65 2e 65 61 67 6c 65 29  (epilogue.eagle)
a890: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  ]} then {..
a8a0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20     #..        #
a8b0: 4e 4f 54 45 3a 20 53 68 6f 77 20 77 68 65 6e 20  NOTE: Show when
a8c0: 6f 75 72 20 74 65 73 74 73 20 61 63 74 75 61 6c  our tests actual
a8d0: 6c 79 20 65 6e 64 65 64 20 28 6e 6f 77 29 2e 0d  ly ended (now)..
a8e0: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20  .        #..
a8f0: 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73      tputs $::tes a900: 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e t_channel [appen a910: 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 dArgs \.. a920: 20 20 20 20 20 22 2d 2d 2d 2d 20 53 79 73 74 65 "---- Syste a930: 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 20 74 65 m.Data.SQLite te a940: 73 74 73 20 65 6e 64 65 64 20 61 74 20 22 20 5c sts ended at " \ a950: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 5b 63 .. [c a960: 6c 6f 63 6b 20 66 6f 72 6d 61 74 20 5b 63 6c 6f lock format [clo a970: 63 6b 20 73 65 63 6f 6e 64 73 5d 5d 20 5c 6e 5d ck seconds]] \n] a980: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 .... #.. a990: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 41 # NOTE: A a9a0: 6c 73 6f 20 72 65 70 6f 72 74 20 74 68 65 20 72 lso report the r a9b0: 65 73 6f 75 72 63 65 20 75 73 61 67 65 20 61 66 esource usage af a9c0: 74 65 72 20 72 75 6e 6e 69 6e 67 20 74 68 65 20 ter running the a9d0: 74 65 73 74 73 2e 0d 0a 20 20 20 20 20 20 20 20 tests... a9e0: 23 0d 0a 20 20 20 20 20 20 20 20 72 65 70 6f 72 #.. repor a9f0: 74 53 51 4c 69 74 65 52 65 73 6f 75 72 63 65 73 tSQLiteResources aa00: 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c$::test_channel
aa10: 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d  ..      }..    }
aa20: 0d 0a 0c 0d 0a 20 20 20 20 23 23 23 23 23 23 23  .....    #######
aa30: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
aa40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
aa50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
aa60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
aa70: 23 23 23 23 0d 0a 20 20 20 20 23 23 23 23 23 23  ####..    ######
aa80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
aa90: 23 23 23 23 23 23 23 20 45 4e 44 20 45 61 67 6c  ####### END Eagl
aaa0: 65 20 4f 4e 4c 59 20 23 23 23 23 23 23 23 23 23  e ONLY #########
aab0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
aac0: 23 23 23 23 23 0d 0a 20 20 20 20 23 23 23 23 23  #####..    #####
aad0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
aae0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
aaf0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
ab00: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
ab10: 23 23 23 23 23 23 0d 0a 20 20 7d 0d 0a 0d 0a 20  ######..  }....
ab20: 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a 20 53 61   #..  # NOTE: Sa
ab30: 76 65 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 74  ve the name of t
ab40: 68 65 20 64 69 72 65 63 74 6f 72 79 20 63 6f 6e  he directory con
ab50: 74 61 69 6e 69 6e 67 20 74 68 69 73 20 66 69 6c  taining this fil
ab60: 65 2e 0d 0a 20 20 23 0d 0a 20 20 69 66 20 7b 21  e...  #..  if {!
ab70: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 63  [info exists ::c
ab80: 6f 6d 6d 6f 6e 5f 64 69 72 65 63 74 6f 72 79 5d  ommon_directory]
ab90: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 73 65  } then {..    se
aba0: 74 20 3a 3a 63 6f 6d 6d 6f 6e 5f 64 69 72 65 63  t ::common_direc
abb0: 74 6f 72 79 20 5b 66 69 6c 65 20 64 69 72 6e 61  tory [file dirna
abc0: 6d 65 20 5b 69 6e 66 6f 20 73 63 72 69 70 74 5d  me [info script]
abd0: 5d 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 23 0d 0a 20  ]..  }....  #..
abe0: 20 23 20 4e 4f 54 45 3a 20 50 72 6f 76 69 64 65   # NOTE: Provide
abf0: 20 74 68 65 20 53 79 73 74 65 6d 2e 44 61 74 61   the System.Data
ac00: 2e 53 51 4c 69 74 65 20 74 65 73 74 20 70 61 63  .SQLite test pac
ac10: 6b 61 67 65 20 74 6f 20 74 68 65 20 69 6e 74 65  kage to the inte
ac20: 72 70 72 65 74 65 72 2e 0d 0a 20 20 23 0d 0a 20  rpreter...  #..
ac30: 20 70 61 63 6b 61 67 65 20 70 72 6f 76 69 64 65   package provide
ac40: 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c   System.Data.SQL
ac50: 69 74 65 2e 54 65 73 74 20 31 2e 30 0d 0a 7d 0d  ite.Test 1.0..}.
ac60: 0a                                               .