0000: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0010: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0020: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0030: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0040: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d ###############.
0050: 0a 23 0d 0a 23 20 63 6f 6d 6d 6f 6e 2e 65 61 67 .#..# common.eag
0060: 6c 65 20 2d 2d 0d 0a 23 0d 0a 23 20 57 72 69 74 le --..#..# Writ
0070: 74 65 6e 20 62 79 20 4a 6f 65 20 4d 69 73 74 61 ten by Joe Mista
0080: 63 68 6b 69 6e 2e 0d 0a 23 20 52 65 6c 65 61 73 chkin...# Releas
0090: 65 64 20 74 6f 20 74 68 65 20 70 75 62 6c 69 63 ed to the public
00a0: 20 64 6f 6d 61 69 6e 2c 20 75 73 65 20 61 74 20 domain, use at
00b0: 79 6f 75 72 20 6f 77 6e 20 72 69 73 6b 21 0d 0a your own risk!..
00c0: 23 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23 23 #..#############
00d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
00e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
00f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0100: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0110: 23 23 0d 0a 0d 0a 23 0d 0a 23 20 4e 4f 54 45 3a ##....#..# NOTE:
0120: 20 55 73 65 20 6f 75 72 20 6f 77 6e 20 6e 61 6d Use our own nam
0130: 65 73 70 61 63 65 20 68 65 72 65 20 62 65 63 61 espace here beca
0140: 75 73 65 20 65 76 65 6e 20 74 68 6f 75 67 68 20 use even though
0150: 77 65 20 64 6f 20 6e 6f 74 20 64 69 72 65 63 74 we do not direct
0160: 6c 79 0d 0a 23 20 20 20 20 20 20 20 73 75 70 70 ly..# supp
0170: 6f 72 74 20 6e 61 6d 65 73 70 61 63 65 73 20 6f ort namespaces o
0180: 75 72 73 65 6c 76 65 73 2c 20 77 65 20 64 6f 20 urselves, we do
0190: 6e 6f 74 20 77 61 6e 74 20 74 6f 20 70 6f 6c 6c not want to poll
01a0: 75 74 65 20 74 68 65 20 67 6c 6f 62 61 6c 0d 0a ute the global..
01b0: 23 20 20 20 20 20 20 20 6e 61 6d 65 73 70 61 63 # namespac
01c0: 65 20 69 66 20 74 68 69 73 20 73 63 72 69 70 74 e if this script
01d0: 20 61 63 74 75 61 6c 6c 79 20 65 6e 64 73 20 75 actually ends u
01e0: 70 20 62 65 69 6e 67 20 65 76 61 6c 75 61 74 65 p being evaluate
01f0: 64 20 69 6e 20 54 63 6c 2e 0d 0a 23 0d 0a 6e 61 d in Tcl...#..na
0200: 6d 65 73 70 61 63 65 20 65 76 61 6c 20 3a 3a 45 mespace eval ::E
0210: 61 67 6c 65 20 7b 0d 0a 20 20 69 66 20 7b 5b 69 agle {.. if {[i
0220: 73 45 61 67 6c 65 5d 7d 20 74 68 65 6e 20 7b 0d sEagle]} then {.
0230: 0a 20 20 20 20 23 23 23 23 23 23 23 23 23 23 23 . ###########
0240: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0250: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0260: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0270: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0280: 0d 0a 20 20 20 20 23 23 23 23 23 23 23 23 23 23 .. ##########
0290: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
02a0: 23 23 20 42 45 47 49 4e 20 45 61 67 6c 65 20 4f ## BEGIN Eagle O
02b0: 4e 4c 59 20 23 23 23 23 23 23 23 23 23 23 23 23 NLY ############
02c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
02d0: 23 0d 0a 20 20 20 20 23 23 23 23 23 23 23 23 23 #.. #########
02e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
02f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0300: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0310: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0320: 23 23 0d 0a 0d 0a 20 20 20 20 70 72 6f 63 20 67 ##.... proc g
0330: 65 74 42 75 69 6c 64 59 65 61 72 20 7b 7d 20 7b etBuildYear {} {
0340: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #..
0350: 20 23 20 4e 4f 54 45 3a 20 53 65 65 20 69 66 20 # NOTE: See if
0360: 74 68 65 20 22 79 65 61 72 22 20 73 65 74 74 69 the "year" setti
0370: 6e 67 20 68 61 73 20 62 65 65 6e 20 6f 76 65 72 ng has been over
0380: 72 69 64 64 65 6e 20 62 79 20 74 68 65 20 75 73 ridden by the us
0390: 65 72 20 28 65 2e 67 2e 0d 0a 20 20 20 20 20 20 er (e.g...
03a0: 23 20 20 20 20 20 20 20 6f 6e 20 74 68 65 20 63 # on the c
03b0: 6f 6d 6d 61 6e 64 20 6c 69 6e 65 29 2e 20 20 54 ommand line). T
03c0: 68 69 73 20 68 65 6c 70 73 20 63 6f 6e 74 72 6f his helps contro
03d0: 6c 20 65 78 61 63 74 6c 79 20 77 68 69 63 68 20 l exactly which
03e0: 73 65 74 20 6f 66 0d 0a 20 20 20 20 20 20 23 20 set of.. #
03f0: 20 20 20 20 20 20 62 69 6e 61 72 69 65 73 20 77 binaries w
0400: 65 20 61 72 65 20 74 65 73 74 69 6e 67 2c 20 74 e are testing, t
0410: 68 6f 73 65 20 70 72 6f 64 75 63 65 64 20 75 73 hose produced us
0420: 69 6e 67 20 74 68 65 20 56 69 73 75 61 6c 20 53 ing the Visual S
0430: 74 75 64 69 6f 0d 0a 20 20 20 20 20 20 23 20 20 tudio.. #
0440: 20 20 20 20 20 32 30 30 35 2c 20 32 30 30 38 2c 2005, 2008,
0450: 20 32 30 31 30 2c 20 6f 72 20 32 30 31 32 20 62 2010, or 2012 b
0460: 75 69 6c 64 20 73 79 73 74 65 6d 73 2e 20 20 54 uild systems. T
0470: 6f 20 6f 76 65 72 72 69 64 65 20 74 68 69 73 20 o override this
0480: 76 61 6c 75 65 0d 0a 20 20 20 20 20 20 23 20 20 value.. #
0490: 20 20 20 20 20 76 69 61 20 74 68 65 20 63 6f 6d via the com
04a0: 6d 61 6e 64 20 6c 69 6e 65 2c 20 65 6e 74 65 72 mand line, enter
04b0: 20 61 20 63 6f 6d 6d 61 6e 64 20 73 69 6d 69 6c a command simil
04c0: 61 72 20 74 6f 20 6f 6e 65 20 6f 66 20 74 68 65 ar to one of the
04d0: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. #
04e0: 66 6f 6c 6c 6f 77 69 6e 67 20 28 61 6c 6c 20 6f following (all o
04f0: 6e 20 6f 6e 65 20 6c 69 6e 65 29 3a 0d 0a 20 20 n one line):..
0500: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 20 #.. #
0510: 20 20 20 20 20 45 61 67 6c 65 53 68 65 6c 6c 2e EagleShell.
0520: 65 78 65 20 2d 70 72 65 49 6e 69 74 69 61 6c 69 exe -preInitiali
0530: 7a 65 20 22 73 65 74 20 74 65 73 74 5f 79 65 61 ze "set test_yea
0540: 72 20 32 30 30 35 22 0d 0a 20 20 20 20 20 20 23 r 2005".. #
0550: 20 20 20 20 20 20 20 20 20 2d 66 69 6c 65 20 2e -file .
0560: 5c 70 61 74 68 5c 74 6f 5c 61 6c 6c 2e 65 61 67 \path\to\all.eag
0570: 6c 65 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 le.. #..
0580: 20 20 20 23 20 20 20 20 20 20 20 45 61 67 6c 65 # Eagle
0590: 53 68 65 6c 6c 2e 65 78 65 20 2d 70 72 65 49 6e Shell.exe -preIn
05a0: 69 74 69 61 6c 69 7a 65 20 22 73 65 74 20 74 65 itialize "set te
05b0: 73 74 5f 79 65 61 72 20 32 30 30 38 22 0d 0a 20 st_year 2008"..
05c0: 20 20 20 20 20 23 20 20 20 20 20 20 20 20 20 2d # -
05d0: 66 69 6c 65 20 2e 5c 70 61 74 68 5c 74 6f 5c 61 file .\path\to\a
05e0: 6c 6c 2e 65 61 67 6c 65 0d 0a 20 20 20 20 20 20 ll.eagle..
05f0: 23 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 #.. #
0600: 20 45 61 67 6c 65 53 68 65 6c 6c 2e 65 78 65 20 EagleShell.exe
0610: 2d 70 72 65 49 6e 69 74 69 61 6c 69 7a 65 20 22 -preInitialize "
0620: 73 65 74 20 74 65 73 74 5f 79 65 61 72 20 32 30 set test_year 20
0630: 31 30 22 0d 0a 20 20 20 20 20 20 23 20 20 20 20 10".. #
0640: 20 20 20 20 20 2d 66 69 6c 65 20 2e 5c 70 61 74 -file .\pat
0650: 68 5c 74 6f 5c 61 6c 6c 2e 65 61 67 6c 65 0d 0a h\to\all.eagle..
0660: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 #.. #
0670: 20 20 20 20 20 20 20 45 61 67 6c 65 53 68 65 6c EagleShel
0680: 6c 2e 65 78 65 20 2d 70 72 65 49 6e 69 74 69 61 l.exe -preInitia
0690: 6c 69 7a 65 20 22 73 65 74 20 74 65 73 74 5f 79 lize "set test_y
06a0: 65 61 72 20 32 30 31 32 22 0d 0a 20 20 20 20 20 ear 2012"..
06b0: 20 23 20 20 20 20 20 20 20 20 20 2d 66 69 6c 65 # -file
06c0: 20 2e 5c 70 61 74 68 5c 74 6f 5c 61 6c 6c 2e 65 .\path\to\all.e
06d0: 61 67 6c 65 0d 0a 20 20 20 20 20 20 23 0d 0a 20 agle.. #..
06e0: 20 20 20 20 20 23 20 20 20 20 20 20 20 45 61 67 # Eag
06f0: 6c 65 53 68 65 6c 6c 2e 65 78 65 20 2d 70 72 65 leShell.exe -pre
0700: 49 6e 69 74 69 61 6c 69 7a 65 20 22 75 6e 73 65 Initialize "unse
0710: 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 74 65 t -nocomplain te
0720: 73 74 5f 79 65 61 72 22 0d 0a 20 20 20 20 20 20 st_year"..
0730: 23 20 20 20 20 20 20 20 20 20 2d 66 69 6c 65 20 # -file
0740: 2e 5c 70 61 74 68 5c 74 6f 5c 61 6c 6c 2e 65 61 .\path\to\all.ea
0750: 67 6c 65 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 gle.. #..
0760: 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 if {[info ex
0770: 69 73 74 73 20 3a 3a 74 65 73 74 5f 79 65 61 72 ists ::test_year
0780: 5d 20 26 26 20 5b 73 74 72 69 6e 67 20 6c 65 6e ] && [string len
0790: 67 74 68 20 24 3a 3a 74 65 73 74 5f 79 65 61 72 gth $::test_year
07a0: 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 ] > 0} then {..
07b0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
07c0: 20 20 23 20 4e 4f 54 45 3a 20 55 73 65 20 74 68 # NOTE: Use th
07d0: 65 20 73 70 65 63 69 66 69 65 64 20 74 65 73 74 e specified test
07e0: 20 79 65 61 72 2e 20 20 49 66 20 74 68 69 73 20 year. If this
07f0: 76 61 72 69 61 62 6c 65 20 69 73 20 6e 6f 74 20 variable is not
0800: 73 65 74 2c 20 74 68 65 0d 0a 20 20 20 20 20 20 set, the..
0810: 20 20 23 20 20 20 20 20 20 20 64 65 66 61 75 6c # defaul
0820: 74 20 76 61 6c 75 65 20 77 69 6c 6c 20 62 65 20 t value will be
0830: 62 61 73 65 64 20 6f 6e 20 77 68 65 74 68 65 72 based on whether
0840: 20 6f 72 20 6e 6f 74 20 45 61 67 6c 65 20 68 61 or not Eagle ha
0850: 73 20 62 65 65 6e 0d 0a 20 20 20 20 20 20 20 20 s been..
0860: 23 20 20 20 20 20 20 20 63 6f 6d 70 69 6c 65 64 # compiled
0870: 20 61 67 61 69 6e 73 74 20 74 68 65 20 43 4c 52 against the CLR
0880: 20 76 32 2e 30 20 6f 72 20 43 4c 52 20 76 34 2e v2.0 or CLR v4.
0890: 30 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 0... #..
08a0: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 3a return $:
08b0: 3a 74 65 73 74 5f 79 65 61 72 0d 0a 20 20 20 20 :test_year..
08c0: 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 } else {..
08d0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 #.. #
08e0: 20 4e 4f 54 45 3a 20 49 66 20 45 61 67 6c 65 20 NOTE: If Eagle
08f0: 68 61 73 20 62 65 65 6e 20 63 6f 6d 70 69 6c 65 has been compile
0900: 64 20 61 67 61 69 6e 73 74 20 74 68 65 20 43 4c d against the CL
0910: 52 20 76 34 2e 30 2c 20 75 73 65 20 22 32 30 31 R v4.0, use "201
0920: 30 22 20 62 79 0d 0a 20 20 20 20 20 20 20 20 23 0" by.. #
0930: 20 20 20 20 20 20 20 64 65 66 61 75 6c 74 20 28 default (
0940: 77 65 20 63 6f 75 6c 64 20 75 73 65 20 22 32 30 we could use "20
0950: 31 32 22 20 69 6e 20 74 68 61 74 20 63 61 73 65 12" in that case
0960: 20 61 73 20 77 65 6c 6c 29 20 61 73 20 74 68 65 as well) as the
0970: 20 74 65 73 74 0d 0a 20 20 20 20 20 20 20 20 23 test.. #
0980: 20 20 20 20 20 20 20 79 65 61 72 3b 20 6f 74 68 year; oth
0990: 65 72 77 69 73 65 2c 20 75 73 65 20 22 32 30 30 erwise, use "200
09a0: 38 22 20 62 79 20 64 65 66 61 75 6c 74 20 28 77 8" by default (w
09b0: 65 20 63 6f 75 6c 64 20 75 73 65 20 22 32 30 30 e could use "200
09c0: 35 22 20 69 6e 0d 0a 20 20 20 20 20 20 20 20 23 5" in.. #
09d0: 20 20 20 20 20 20 20 74 68 61 74 20 63 61 73 65 that case
09e0: 20 61 73 20 77 65 6c 6c 29 2e 20 20 49 66 20 61 as well). If a
09f0: 6e 6f 74 68 65 72 20 6d 61 6a 6f 72 20 5b 69 6e nother major [in
0a00: 63 6f 6d 70 61 74 69 62 6c 65 5d 20 76 65 72 73 compatible] vers
0a10: 69 6f 6e 20 6f 66 0d 0a 20 20 20 20 20 20 20 20 ion of..
0a20: 23 20 20 20 20 20 20 20 74 68 65 20 43 4c 52 20 # the CLR
0a30: 69 73 20 72 65 6c 65 61 73 65 64 2c 20 74 68 69 is released, thi
0a40: 73 20 63 68 65 63 6b 20 77 69 6c 6c 20 68 61 76 s check will hav
0a50: 65 20 74 6f 20 62 65 20 63 68 61 6e 67 65 64 2e e to be changed.
0a60: 20 20 54 68 65 0d 0a 20 20 20 20 20 20 20 20 23 The.. #
0a70: 20 20 20 20 20 20 20 64 65 66 61 75 6c 74 20 74 default t
0a80: 65 73 74 20 79 65 61 72 20 74 6f 20 75 73 65 20 est year to use
0a90: 66 6f 72 20 61 20 70 61 72 74 69 63 75 6c 61 72 for a particular
0aa0: 20 43 4c 52 20 76 65 72 73 69 6f 6e 20 6d 61 79 CLR version may
0ab0: 20 62 65 0d 0a 20 20 20 20 20 20 20 20 23 20 20 be.. #
0ac0: 20 20 20 20 20 6f 76 65 72 72 69 64 64 65 6e 20 overridden
0ad0: 62 79 20 73 65 74 74 69 6e 67 20 74 68 65 20 67 by setting the g
0ae0: 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 20 22 lobal variable "
0af0: 74 65 73 74 5f 79 65 61 72 5f 63 6c 72 5f 76 24 test_year_clr_v$
0b00: 58 22 2c 0d 0a 20 20 20 20 20 20 20 20 23 20 20 X",.. #
0b10: 20 20 20 20 20 77 68 65 72 65 20 22 24 58 22 20 where "$X"
0b20: 6d 61 79 20 5b 63 75 72 72 65 6e 74 6c 79 5d 20 may [currently]
0b30: 62 65 20 65 69 74 68 65 72 20 22 32 22 20 6f 72 be either "2" or
0b40: 20 22 34 22 2e 0d 0a 20 20 20 20 20 20 20 20 23 "4"... #
0b50: 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b 68 .. if {[h
0b60: 61 76 65 43 6f 6e 73 74 72 61 69 6e 74 20 69 6d aveConstraint im
0b70: 61 67 65 52 75 6e 74 69 6d 65 34 30 5d 7d 20 74 ageRuntime40]} t
0b80: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 hen {..
0b90: 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 if {[info exist
0ba0: 73 20 3a 3a 74 65 73 74 5f 79 65 61 72 5f 63 6c s ::test_year_cl
0bb0: 72 5f 76 34 5d 20 26 26 20 5c 0d 0a 20 20 20 20 r_v4] && \..
0bc0: 20 20 20 20 20 20 20 20 20 20 5b 73 74 72 69 6e [strin
0bd0: 67 20 6c 65 6e 67 74 68 20 24 3a 3a 74 65 73 74 g length $::test
0be0: 5f 79 65 61 72 5f 63 6c 72 5f 76 34 5d 20 3e 20 _year_clr_v4] >
0bf0: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 0} then {..
0c00: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
0c10: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 55 73 # NOTE: Us
0c20: 65 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 e the specified
0c30: 74 65 73 74 20 79 65 61 72 20 66 6f 72 20 74 68 test year for th
0c40: 65 20 43 4c 52 20 76 34 2e 30 2e 0d 0a 20 20 20 e CLR v4.0...
0c50: 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 #..
0c60: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 return $
0c70: 3a 3a 74 65 73 74 5f 79 65 61 72 5f 63 6c 72 5f ::test_year_clr_
0c80: 76 34 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 20 v4.. }
0c90: 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 else {..
0ca0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 #..
0cb0: 20 20 20 23 20 4e 4f 54 45 3a 20 55 73 65 20 74 # NOTE: Use t
0cc0: 68 65 20 64 65 66 61 75 6c 74 20 74 65 73 74 20 he default test
0cd0: 79 65 61 72 20 66 6f 72 20 74 68 65 20 43 4c 52 year for the CLR
0ce0: 20 76 34 2e 30 2e 0d 0a 20 20 20 20 20 20 20 20 v4.0...
0cf0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 #..
0d00: 20 20 20 72 65 74 75 72 6e 20 32 30 31 30 3b 20 return 2010;
0d10: 23 20 54 4f 44 4f 3a 20 47 6f 6f 64 20 22 66 61 # TODO: Good "fa
0d20: 6c 6c 62 61 63 6b 22 20 64 65 66 61 75 6c 74 3f llback" default?
0d30: 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 .. }..
0d40: 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d } else {.
0d50: 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 5b . if {[
0d60: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 74 65 info exists ::te
0d70: 73 74 5f 79 65 61 72 5f 63 6c 72 5f 76 32 5d 20 st_year_clr_v2]
0d80: 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 && \..
0d90: 20 20 20 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67 [string leng
0da0: 74 68 20 24 3a 3a 74 65 73 74 5f 79 65 61 72 5f th $::test_year_
0db0: 63 6c 72 5f 76 32 5d 20 3e 20 30 7d 20 74 68 65 clr_v2] > 0} the
0dc0: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 n {..
0dd0: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 #..
0de0: 23 20 4e 4f 54 45 3a 20 55 73 65 20 74 68 65 20 # NOTE: Use the
0df0: 73 70 65 63 69 66 69 65 64 20 74 65 73 74 20 79 specified test y
0e00: 65 61 72 20 66 6f 72 20 74 68 65 20 43 4c 52 20 ear for the CLR
0e10: 76 32 2e 30 2e 0d 0a 20 20 20 20 20 20 20 20 20 v2.0...
0e20: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 #..
0e30: 20 20 72 65 74 75 72 6e 20 24 3a 3a 74 65 73 74 return $::test
0e40: 5f 79 65 61 72 5f 63 6c 72 5f 76 32 0d 0a 20 20 _year_clr_v2..
0e50: 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b } else {
0e60: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 0d .. #.
0e70: 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 20 4e . # N
0e80: 4f 54 45 3a 20 55 73 65 20 74 68 65 20 64 65 66 OTE: Use the def
0e90: 61 75 6c 74 20 74 65 73 74 20 79 65 61 72 20 66 ault test year f
0ea0: 6f 72 20 74 68 65 20 43 4c 52 20 76 32 2e 30 2e or the CLR v2.0.
0eb0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 0d .. #.
0ec0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 . ret
0ed0: 75 72 6e 20 32 30 30 38 3b 20 23 20 54 4f 44 4f urn 2008; # TODO
0ee0: 3a 20 47 6f 6f 64 20 22 66 61 6c 6c 62 61 63 6b : Good "fallback
0ef0: 22 20 64 65 66 61 75 6c 74 3f 0d 0a 20 20 20 20 " default?..
0f00: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 }..
0f10: 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 }.. }..
0f20: 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 }..... proc
0f30: 67 65 74 42 75 69 6c 64 43 6f 6e 66 69 67 75 72 getBuildConfigur
0f40: 61 74 69 6f 6e 20 7b 7d 20 7b 0d 0a 20 20 20 20 ation {} {..
0f50: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT
0f60: 45 3a 20 53 65 65 20 69 66 20 74 68 65 20 22 63 E: See if the "c
0f70: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 22 20 73 65 onfiguration" se
0f80: 74 74 69 6e 67 20 68 61 73 20 62 65 65 6e 20 6f tting has been o
0f90: 76 65 72 72 69 64 64 65 6e 20 62 79 20 74 68 65 verridden by the
0fa0: 20 75 73 65 72 0d 0a 20 20 20 20 20 20 23 20 20 user.. #
0fb0: 20 20 20 20 20 28 65 2e 67 2e 20 6f 6e 20 74 68 (e.g. on th
0fc0: 65 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 29 2e e command line).
0fd0: 20 20 54 68 69 73 20 68 65 6c 70 73 20 63 6f 6e This helps con
0fe0: 74 72 6f 6c 20 65 78 61 63 74 6c 79 20 77 68 69 trol exactly whi
0ff0: 63 68 20 73 65 74 0d 0a 20 20 20 20 20 20 23 20 ch set.. #
1000: 20 20 20 20 20 20 6f 66 20 62 69 6e 61 72 69 65 of binarie
1010: 73 20 77 65 20 61 72 65 20 74 65 73 74 69 6e 67 s we are testing
1020: 20 28 69 2e 65 2e 20 74 68 6f 73 65 20 62 75 69 (i.e. those bui
1030: 6c 74 20 69 6e 20 74 68 65 20 22 44 65 62 75 67 lt in the "Debug
1040: 22 20 6f 72 0d 0a 20 20 20 20 20 20 23 20 20 20 " or.. #
1050: 20 20 20 20 22 52 65 6c 65 61 73 65 22 20 62 75 "Release" bu
1060: 69 6c 64 20 63 6f 6e 66 69 67 75 72 61 74 69 6f ild configuratio
1070: 6e 73 29 2e 20 20 54 6f 20 6f 76 65 72 72 69 64 ns). To overrid
1080: 65 20 74 68 69 73 20 76 61 6c 75 65 20 76 69 61 e this value via
1090: 20 74 68 65 0d 0a 20 20 20 20 20 20 23 20 20 20 the.. #
10a0: 20 20 20 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 command line
10b0: 2c 20 65 6e 74 65 72 20 61 20 63 6f 6d 6d 61 6e , enter a comman
10c0: 64 20 73 69 6d 69 6c 61 72 20 74 6f 20 6f 6e 65 d similar to one
10d0: 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e of the followin
10e0: 67 20 28 61 6c 6c 0d 0a 20 20 20 20 20 20 23 20 g (all.. #
10f0: 20 20 20 20 20 20 6f 6e 20 6f 6e 65 20 6c 69 6e on one lin
1100: 65 29 3a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 e):.. #..
1110: 20 20 20 20 23 20 20 20 20 20 20 20 45 61 67 6c # Eagl
1120: 65 53 68 65 6c 6c 2e 65 78 65 20 2d 70 72 65 49 eShell.exe -preI
1130: 6e 69 74 69 61 6c 69 7a 65 20 22 73 65 74 20 74 nitialize "set t
1140: 65 73 74 5f 63 6f 6e 66 69 67 75 72 61 74 69 6f est_configuratio
1150: 6e 20 44 65 62 75 67 22 0d 0a 20 20 20 20 20 20 n Debug"..
1160: 23 20 20 20 20 20 20 20 20 20 2d 66 69 6c 65 20 # -file
1170: 2e 5c 70 61 74 68 5c 74 6f 5c 61 6c 6c 2e 65 61 .\path\to\all.ea
1180: 67 6c 65 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 gle.. #..
1190: 20 20 20 20 23 20 20 20 20 20 20 20 45 61 67 6c # Eagl
11a0: 65 53 68 65 6c 6c 2e 65 78 65 20 2d 70 72 65 49 eShell.exe -preI
11b0: 6e 69 74 69 61 6c 69 7a 65 20 22 73 65 74 20 74 nitialize "set t
11c0: 65 73 74 5f 63 6f 6e 66 69 67 75 72 61 74 69 6f est_configuratio
11d0: 6e 20 52 65 6c 65 61 73 65 22 0d 0a 20 20 20 20 n Release"..
11e0: 20 20 23 20 20 20 20 20 20 20 20 20 2d 66 69 6c # -fil
11f0: 65 20 2e 5c 70 61 74 68 5c 74 6f 5c 61 6c 6c 2e e .\path\to\all.
1200: 65 61 67 6c 65 0d 0a 20 20 20 20 20 20 23 0d 0a eagle.. #..
1210: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 45 61 # Ea
1220: 67 6c 65 53 68 65 6c 6c 2e 65 78 65 20 2d 66 69 gleShell.exe -fi
1230: 6c 65 20 2e 5c 70 61 74 68 5c 74 6f 5c 61 6c 6c le .\path\to\all
1240: 2e 65 61 67 6c 65 20 2d 70 72 65 54 65 73 74 0d .eagle -preTest.
1250: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 20 . #
1260: 20 22 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c "unset -nocompl
1270: 61 69 6e 20 74 65 73 74 5f 63 6f 6e 66 69 67 75 ain test_configu
1280: 72 61 74 69 6f 6e 22 0d 0a 20 20 20 20 20 20 23 ration".. #
1290: 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 .. if {[inf
12a0: 6f 20 65 78 69 73 74 73 20 3a 3a 74 65 73 74 5f o exists ::test_
12b0: 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 5d 20 26 configuration] &
12c0: 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 5b & \.. [
12d0: 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 3a string length $:
12e0: 3a 74 65 73 74 5f 63 6f 6e 66 69 67 75 72 61 74 :test_configurat
12f0: 69 6f 6e 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b ion] > 0} then {
1300: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #..
1310: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 55 73 65 # NOTE: Use
1320: 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 74 the specified t
1330: 65 73 74 20 63 6f 6e 66 69 67 75 72 61 74 69 6f est configuratio
1340: 6e 2e 20 20 54 68 65 20 64 65 66 61 75 6c 74 20 n. The default
1350: 76 61 6c 75 65 20 75 73 65 64 0d 0a 20 20 20 20 value used..
1360: 20 20 20 20 23 20 20 20 20 20 20 20 66 6f 72 20 # for
1370: 74 68 69 73 20 76 61 72 69 61 62 6c 65 20 69 73 this variable is
1380: 20 22 52 65 6c 65 61 73 65 22 2c 20 61 73 20 73 "Release", as s
1390: 65 74 20 62 79 20 74 68 65 20 74 65 73 74 20 73 et by the test s
13a0: 75 69 74 65 20 69 74 73 65 6c 66 2e 0d 0a 20 20 uite itself...
13b0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
13c0: 20 72 65 74 75 72 6e 20 24 3a 3a 74 65 73 74 5f return $::test_
13d0: 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 0d 0a 20 configuration..
13e0: 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 } else {..
13f0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
1400: 20 20 23 20 4e 4f 54 45 3a 20 4e 6f 72 6d 61 6c # NOTE: Normal
1410: 6c 79 2c 20 77 65 20 77 69 6c 6c 20 6e 65 76 65 ly, we will neve
1420: 72 20 68 69 74 20 74 68 69 73 20 63 61 73 65 20 r hit this case
1430: 62 65 63 61 75 73 65 20 74 68 65 20 76 61 6c 75 because the valu
1440: 65 20 6f 66 20 74 68 65 0d 0a 20 20 20 20 20 20 e of the..
1450: 20 20 23 20 20 20 20 20 20 20 74 65 73 74 20 63 # test c
1460: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 76 61 72 onfiguration var
1470: 69 61 62 6c 65 20 69 73 20 61 6c 77 61 79 73 20 iable is always
1480: 73 65 74 20 62 79 20 74 68 65 20 74 65 73 74 20 set by the test
1490: 73 75 69 74 65 0d 0a 20 20 20 20 20 20 20 20 23 suite.. #
14a0: 20 20 20 20 20 20 20 69 74 73 65 6c 66 3b 20 68 itself; h
14b0: 6f 77 65 76 65 72 2c 20 69 74 20 63 61 6e 20 62 owever, it can b
14c0: 65 20 6f 76 65 72 72 69 64 64 65 6e 20 75 73 69 e overridden usi
14d0: 6e 67 20 74 68 65 20 75 6e 73 65 74 20 63 6f 6d ng the unset com
14e0: 6d 61 6e 64 0d 0a 20 20 20 20 20 20 20 20 23 20 mand.. #
14f0: 20 20 20 20 20 20 66 72 6f 6d 20 74 68 65 20 2d from the -
1500: 70 72 65 54 65 73 74 20 6f 70 74 69 6f 6e 20 74 preTest option t
1510: 6f 20 74 68 65 20 74 65 73 74 20 73 75 69 74 65 o the test suite
1520: 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 ... #..
1530: 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 3a 3a return $::
1540: 65 61 67 6c 65 5f 70 6c 61 74 66 6f 72 6d 28 63 eagle_platform(c
1550: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 29 0d 0a 20 onfiguration)..
1560: 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c }.. }...
1570: 0d 0a 20 20 20 20 70 72 6f 63 20 67 65 74 42 75 .. proc getBu
1580: 69 6c 64 44 69 72 65 63 74 6f 72 79 20 7b 7d 20 ildDirectory {}
1590: 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 {.. #..
15a0: 20 20 23 20 4e 4f 54 45 3a 20 53 65 65 20 69 66 # NOTE: See if
15b0: 20 74 68 65 20 22 6e 61 74 69 76 65 22 20 72 75 the "native" ru
15c0: 6e 74 69 6d 65 20 6f 70 74 69 6f 6e 20 68 61 73 ntime option has
15d0: 20 62 65 65 6e 20 73 65 74 2e 20 20 49 66 20 73 been set. If s
15e0: 6f 2c 20 75 73 65 20 74 68 65 0d 0a 20 20 20 20 o, use the..
15f0: 20 20 23 20 20 20 20 20 20 20 64 69 72 65 63 74 # direct
1600: 6f 72 79 20 66 6f 72 20 74 68 65 20 6d 69 78 65 ory for the mixe
1610: 64 2d 6d 6f 64 65 20 61 73 73 65 6d 62 6c 79 20 d-mode assembly
1620: 28 61 2e 6b 2e 61 2e 20 74 68 65 20 6e 61 74 69 (a.k.a. the nati
1630: 76 65 20 69 6e 74 65 72 6f 70 0d 0a 20 20 20 20 ve interop..
1640: 20 20 23 20 20 20 20 20 20 20 61 73 73 65 6d 62 # assemb
1650: 6c 79 29 2e 20 20 54 6f 20 65 6e 61 62 6c 65 20 ly). To enable
1660: 74 68 69 73 20 6f 70 74 69 6f 6e 20 76 69 61 20 this option via
1670: 74 68 65 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 the command line
1680: 2c 20 65 6e 74 65 72 20 61 0d 0a 20 20 20 20 20 , enter a..
1690: 20 23 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64 # command
16a0: 20 73 69 6d 69 6c 61 72 20 74 6f 20 6f 6e 65 20 similar to one
16b0: 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 of the following
16c0: 20 28 61 6c 6c 20 6f 6e 20 6f 6e 65 20 6c 69 6e (all on one lin
16d0: 65 29 3a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 e):.. #..
16e0: 20 20 20 20 23 20 20 20 20 20 20 20 45 61 67 6c # Eagl
16f0: 65 53 68 65 6c 6c 2e 65 78 65 20 2d 69 6e 69 74 eShell.exe -init
1700: 69 61 6c 69 7a 65 20 2d 72 75 6e 74 69 6d 65 4f ialize -runtimeO
1710: 70 74 69 6f 6e 20 6e 61 74 69 76 65 0d 0a 20 20 ption native..
1720: 20 20 20 20 23 20 20 20 20 20 20 20 20 20 2d 66 # -f
1730: 69 6c 65 20 2e 5c 70 61 74 68 5c 74 6f 5c 61 6c ile .\path\to\al
1740: 6c 2e 65 61 67 6c 65 0d 0a 20 20 20 20 20 20 23 l.eagle.. #
1750: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. #
1760: 54 6f 20 65 6e 61 62 6c 65 20 74 68 69 73 20 6f To enable this o
1770: 70 74 69 6f 6e 20 76 69 61 20 74 68 65 20 63 6f ption via the co
1780: 6d 6d 61 6e 64 20 6c 69 6e 65 20 70 72 69 6f 72 mmand line prior
1790: 20 74 6f 20 74 68 65 20 22 62 65 74 61 20 31 36 to the "beta 16
17a0: 22 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 ".. #
17b0: 20 72 65 6c 65 61 73 65 20 6f 66 20 45 61 67 6c release of Eagl
17c0: 65 2c 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 e, the following
17d0: 20 63 6f 6d 6d 61 6e 64 20 6d 75 73 74 20 62 65 command must be
17e0: 20 75 73 65 64 20 69 6e 73 74 65 61 64 0d 0a 20 used instead..
17f0: 20 20 20 20 20 23 20 20 20 20 20 20 20 28 61 6c # (al
1800: 73 6f 20 61 6c 6c 20 6f 6e 20 6f 6e 65 20 6c 69 so all on one li
1810: 6e 65 29 3a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 ne):.. #..
1820: 20 20 20 20 20 23 20 20 20 20 20 20 20 45 61 67 # Eag
1830: 6c 65 53 68 65 6c 6c 2e 65 78 65 20 2d 69 6e 69 leShell.exe -ini
1840: 74 69 61 6c 69 7a 65 20 2d 70 6f 73 74 49 6e 69 tialize -postIni
1850: 74 69 61 6c 69 7a 65 0d 0a 20 20 20 20 20 20 23 tialize.. #
1860: 20 20 20 20 20 20 20 20 20 22 6f 62 6a 65 63 74 "object
1870: 20 69 6e 76 6f 6b 65 20 49 6e 74 65 72 70 72 65 invoke Interpre
1880: 74 65 72 2e 47 65 74 41 63 74 69 76 65 20 41 64 ter.GetActive Ad
1890: 64 52 75 6e 74 69 6d 65 4f 70 74 69 6f 6e 20 6e dRuntimeOption n
18a0: 61 74 69 76 65 22 0d 0a 20 20 20 20 20 20 23 20 ative".. #
18b0: 20 20 20 20 20 20 20 20 2d 66 69 6c 65 20 2e 5c -file .\
18c0: 70 61 74 68 5c 74 6f 5c 61 6c 6c 2e 65 61 67 6c path\to\all.eagl
18d0: 65 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 e.. #..
18e0: 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 if {[info exis
18f0: 74 73 20 3a 3a 62 75 69 6c 64 5f 64 69 72 65 63 ts ::build_direc
1900: 74 6f 72 79 5d 20 26 26 20 5c 0d 0a 20 20 20 20 tory] && \..
1910: 20 20 20 20 20 20 5b 73 74 72 69 6e 67 20 6c 65 [string le
1920: 6e 67 74 68 20 24 3a 3a 62 75 69 6c 64 5f 64 69 ngth $::build_di
1930: 72 65 63 74 6f 72 79 5d 20 3e 20 30 7d 20 74 68 rectory] > 0} th
1940: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d en {.. #.
1950: 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a . # NOTE:
1960: 20 54 68 65 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 The location of
1970: 20 74 68 65 20 62 75 69 6c 64 20 64 69 72 65 63 the build direc
1980: 74 6f 72 79 20 68 61 73 20 62 65 65 6e 20 6f 76 tory has been ov
1990: 65 72 72 69 64 64 65 6e 3b 0d 0a 20 20 20 20 20 erridden;..
19a0: 20 20 20 23 20 20 20 20 20 20 20 74 68 65 72 65 # there
19b0: 66 6f 72 65 2c 20 75 73 65 20 69 74 20 76 65 72 fore, use it ver
19c0: 62 61 74 69 6d 2e 0d 0a 20 20 20 20 20 20 20 20 batim...
19d0: 23 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 #.. retur
19e0: 6e 20 24 3a 3a 62 75 69 6c 64 5f 64 69 72 65 63 n $::build_direc
19f0: 74 6f 72 79 0d 0a 20 20 20 20 20 20 7d 20 65 6c tory.. } el
1a00: 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d se {.. #.
1a10: 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a . # NOTE:
1a20: 20 46 69 67 75 72 65 20 6f 75 74 20 74 68 65 20 Figure out the
1a30: 62 75 69 6c 64 20 62 61 73 65 20 64 69 72 65 63 build base direc
1a40: 74 6f 72 79 2e 20 20 54 68 69 73 20 77 69 6c 6c tory. This will
1a50: 20 62 65 20 74 68 65 20 64 69 72 65 63 74 6f 72 be the director
1a60: 79 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 y.. #
1a70: 20 20 20 74 68 61 74 20 63 6f 6e 74 61 69 6e 73 that contains
1a80: 20 74 68 65 20 61 63 74 75 61 6c 20 62 75 69 6c the actual buil
1a90: 64 20 6f 75 74 70 75 74 20 64 69 72 65 63 74 6f d output directo
1aa0: 72 79 20 28 65 2e 67 2e 20 22 62 69 6e 22 29 2e ry (e.g. "bin").
1ab0: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #..
1ac0: 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 if {[info e
1ad0: 78 69 73 74 73 20 3a 3a 62 75 69 6c 64 5f 62 61 xists ::build_ba
1ae0: 73 65 5f 64 69 72 65 63 74 6f 72 79 5d 20 26 26 se_directory] &&
1af0: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \..
1b00: 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 [string length $
1b10: 3a 3a 62 75 69 6c 64 5f 62 61 73 65 5f 64 69 72 ::build_base_dir
1b20: 65 63 74 6f 72 79 5d 20 3e 20 30 7d 20 74 68 65 ectory] > 0} the
1b30: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23 n {.. #
1b40: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f .. # NO
1b50: 54 45 3a 20 54 68 65 20 6c 6f 63 61 74 69 6f 6e TE: The location
1b60: 20 6f 66 20 74 68 65 20 62 75 69 6c 64 20 62 61 of the build ba
1b70: 73 65 20 64 69 72 65 63 74 6f 72 79 20 68 61 73 se directory has
1b80: 20 62 65 65 6e 20 6f 76 65 72 72 69 64 64 65 6e been overridden
1b90: 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 20 ;.. #
1ba0: 20 20 20 20 20 74 68 65 72 65 66 6f 72 65 2c 20 therefore,
1bb0: 75 73 65 20 69 74 20 76 65 72 62 61 74 69 6d 2e use it verbatim.
1bc0: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 .. #..
1bd0: 20 20 20 20 20 20 20 20 20 73 65 74 20 70 61 74 set pat
1be0: 68 20 24 3a 3a 62 75 69 6c 64 5f 62 61 73 65 5f h $::build_base_
1bf0: 64 69 72 65 63 74 6f 72 79 0d 0a 20 20 20 20 20 directory..
1c00: 20 20 20 7d 20 65 6c 73 65 69 66 20 7b 5b 69 6e } elseif {[in
1c10: 66 6f 20 65 78 69 73 74 73 20 3a 3a 63 6f 6d 6d fo exists ::comm
1c20: 6f 6e 5f 64 69 72 65 63 74 6f 72 79 5d 20 26 26 on_directory] &&
1c30: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \..
1c40: 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 [string length $
1c50: 3a 3a 63 6f 6d 6d 6f 6e 5f 64 69 72 65 63 74 6f ::common_directo
1c60: 72 79 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d ry] > 0} then {.
1c70: 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 . #..
1c80: 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 # NOTE:
1c90: 4e 65 78 74 2c 20 66 61 6c 6c 62 61 63 6b 20 74 Next, fallback t
1ca0: 6f 20 74 68 65 20 70 61 72 65 6e 74 20 64 69 72 o the parent dir
1cb0: 65 63 74 6f 72 79 20 6f 66 20 74 68 65 20 6f 6e ectory of the on
1cc0: 65 20 63 6f 6e 74 61 69 6e 69 6e 67 0d 0a 20 20 e containing..
1cd0: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 #
1ce0: 74 68 69 73 20 66 69 6c 65 20 28 69 2e 65 2e 20 this file (i.e.
1cf0: 22 63 6f 6d 6d 6f 6e 2e 65 61 67 6c 65 22 29 2c "common.eagle"),
1d00: 20 69 66 20 61 76 61 69 6c 61 62 6c 65 2e 0d 0a if available...
1d10: 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 #..
1d20: 20 20 20 20 20 20 20 73 65 74 20 70 61 74 68 20 set path
1d30: 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 24 3a [file dirname $:
1d40: 3a 63 6f 6d 6d 6f 6e 5f 64 69 72 65 63 74 6f 72 :common_director
1d50: 79 5d 0d 0a 20 20 20 20 20 20 20 20 7d 20 65 6c y].. } el
1d60: 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 se {..
1d70: 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e #.. # N
1d80: 4f 54 45 3a 20 46 69 6e 61 6c 6c 79 2c 20 66 61 OTE: Finally, fa
1d90: 6c 6c 62 61 63 6b 20 74 6f 20 74 68 65 20 70 61 llback to the pa
1da0: 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79 20 6f rent directory o
1db0: 66 20 74 68 65 20 45 61 67 6c 65 54 65 73 74 0d f the EagleTest.
1dc0: 0a 20 20 20 20 20 20 20 20 20 20 23 20 20 20 20 . #
1dd0: 20 20 20 70 61 74 68 2e 20 20 54 68 65 20 45 61 path. The Ea
1de0: 67 6c 65 54 65 73 74 20 70 61 63 6b 61 67 65 20 gleTest package
1df0: 67 75 61 72 61 6e 74 65 65 73 20 74 68 61 74 20 guarantees that
1e00: 74 68 69 73 20 76 61 72 69 61 62 6c 65 0d 0a 20 this variable..
1e10: 20 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 #
1e20: 20 77 69 6c 6c 20 62 65 20 73 65 74 20 74 6f 20 will be set to
1e30: 74 68 65 20 64 69 72 65 63 74 6f 72 79 20 63 6f the directory co
1e40: 6e 74 61 69 6e 69 6e 67 20 74 68 65 20 66 69 72 ntaining the fir
1e50: 73 74 20 66 69 6c 65 20 74 6f 0d 0a 20 20 20 20 st file to..
1e60: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 65 78 # ex
1e70: 65 63 75 74 65 20 74 68 65 20 5b 72 75 6e 54 65 ecute the [runTe
1e80: 73 74 50 72 6f 6c 6f 67 75 65 5d 20 73 63 72 69 stPrologue] scri
1e90: 70 74 20 6c 69 62 72 61 72 79 20 70 72 6f 63 65 pt library proce
1ea0: 64 75 72 65 2e 0d 0a 20 20 20 20 20 20 20 20 20 dure...
1eb0: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 73 65 #.. se
1ec0: 74 20 70 61 74 68 20 5b 66 69 6c 65 20 64 69 72 t path [file dir
1ed0: 6e 61 6d 65 20 24 3a 3a 70 61 74 68 5d 0d 0a 20 name $::path]..
1ee0: 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 }....
1ef0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 #.. #
1f00: 20 4e 4f 54 45 3a 20 49 66 20 74 68 65 20 22 6e NOTE: If the "n
1f10: 61 74 69 76 65 22 20 72 75 6e 74 69 6d 65 20 6f ative" runtime o
1f20: 70 74 69 6f 6e 20 69 73 20 73 65 74 2c 20 74 68 ption is set, th
1f30: 65 20 6d 69 78 65 64 2d 6d 6f 64 65 20 61 73 73 e mixed-mode ass
1f40: 65 6d 62 6c 79 0d 0a 20 20 20 20 20 20 20 20 23 embly.. #
1f50: 20 20 20 20 20 20 20 69 73 20 62 65 69 6e 67 20 is being
1f60: 74 65 73 74 65 64 2e 20 20 49 6e 20 74 68 61 74 tested. In that
1f70: 20 63 61 73 65 2c 20 74 68 65 20 70 61 74 68 20 case, the path
1f80: 74 6f 20 74 68 65 20 62 75 69 6c 64 20 64 69 72 to the build dir
1f90: 65 63 74 6f 72 79 0d 0a 20 20 20 20 20 20 20 20 ectory..
1fa0: 23 20 20 20 20 20 20 20 77 69 6c 6c 20 63 6f 6e # will con
1fb0: 74 61 69 6e 20 74 68 65 20 70 6c 61 74 66 6f 72 tain the platfor
1fc0: 6d 20 6e 61 6d 65 20 61 6e 64 20 61 6c 6c 20 74 m name and all t
1fd0: 68 65 20 62 69 6e 61 72 69 65 73 20 75 6e 64 65 he binaries unde
1fe0: 72 20 74 65 73 74 0d 0a 20 20 20 20 20 20 20 20 r test..
1ff0: 23 20 20 20 20 20 20 20 73 68 6f 75 6c 64 20 62 # should b
2000: 65 20 70 72 65 73 65 6e 74 20 69 6e 20 74 68 61 e present in tha
2010: 74 20 64 69 72 65 63 74 6f 72 79 2e 20 20 49 66 t directory. If
2020: 20 74 68 65 20 22 6e 61 74 69 76 65 22 20 72 75 the "native" ru
2030: 6e 74 69 6d 65 0d 0a 20 20 20 20 20 20 20 20 23 ntime.. #
2040: 20 20 20 20 20 20 20 6f 70 74 69 6f 6e 20 69 73 option is
2050: 20 6e 6f 74 20 73 65 74 2c 20 74 68 65 20 62 75 not set, the bu
2060: 69 6c 64 20 64 69 72 65 63 74 6f 72 79 20 77 69 ild directory wi
2070: 6c 6c 20 62 65 20 63 6f 6e 73 69 64 65 72 65 64 ll be considered
2080: 20 74 6f 20 62 65 0d 0a 20 20 20 20 20 20 20 20 to be..
2090: 23 20 20 20 20 20 20 20 22 70 6c 61 74 66 6f 72 # "platfor
20a0: 6d 2d 6e 65 75 74 72 61 6c 22 2c 20 77 69 74 68 m-neutral", with
20b0: 20 74 68 65 20 6e 6f 74 61 62 6c 65 20 65 78 63 the notable exc
20c0: 65 70 74 69 6f 6e 20 6f 66 20 61 6e 79 20 6e 61 eption of any na
20d0: 74 69 76 65 0d 0a 20 20 20 20 20 20 20 20 23 20 tive.. #
20e0: 20 20 20 20 20 20 61 73 73 65 6d 62 6c 79 20 28 assembly (
20f0: 65 2e 67 2e 20 22 53 51 4c 69 74 65 2e 49 6e 74 e.g. "SQLite.Int
2100: 65 72 6f 70 2e 64 6c 6c 22 29 20 63 6f 70 69 65 erop.dll") copie
2110: 64 20 74 68 65 72 65 20 64 75 72 69 6e 67 20 74 d there during t
2120: 68 65 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 he.. #
2130: 20 20 20 20 62 75 69 6c 64 20 70 72 6f 63 65 73 build proces
2140: 73 20 69 74 73 65 6c 66 2e 20 20 49 66 20 74 68 s itself. If th
2150: 65 20 62 75 69 6c 64 20 70 72 6f 63 65 73 73 20 e build process
2160: 73 6f 6d 65 68 6f 77 20 64 6f 65 73 20 6e 6f 74 somehow does not
2170: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 .. #
2180: 20 20 63 6f 70 79 20 74 68 65 20 6e 61 74 69 76 copy the nativ
2190: 65 20 61 73 73 65 6d 62 6c 79 20 66 6f 72 20 74 e assembly for t
21a0: 68 69 73 20 70 6c 61 74 66 6f 72 6d 2c 20 6d 6f his platform, mo
21b0: 73 74 20 6f 66 20 74 68 65 20 74 65 73 74 73 0d st of the tests.
21c0: 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 . #
21d0: 20 69 6e 20 74 68 65 20 73 75 69 74 65 20 77 69 in the suite wi
21e0: 6c 6c 20 73 69 6d 70 6c 79 20 62 65 20 73 6b 69 ll simply be ski
21f0: 70 70 65 64 2e 20 20 47 65 6e 65 72 61 6c 6c 79 pped. Generally
2200: 20 73 70 65 61 6b 69 6e 67 2c 20 74 68 65 72 65 speaking, there
2210: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 .. #
2220: 20 20 61 72 65 20 74 77 6f 20 77 61 79 73 20 74 are two ways t
2230: 6f 20 62 75 69 6c 64 20 74 68 65 20 62 69 6e 61 o build the bina
2240: 72 69 65 73 20 77 68 65 6e 20 70 72 65 70 61 72 ries when prepar
2250: 69 6e 67 20 74 6f 20 72 75 6e 20 74 68 65 0d 0a ing to run the..
2260: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 #
2270: 74 65 73 74 20 73 75 69 74 65 3a 0d 0a 20 20 20 test suite:..
2280: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #..
2290: 23 20 20 20 20 20 20 20 31 2e 20 42 75 69 6c 64 # 1. Build
22a0: 20 74 68 65 20 73 65 70 61 72 61 74 65 20 6d 61 the separate ma
22b0: 6e 61 67 65 64 20 61 6e 64 20 6e 61 74 69 76 65 naged and native
22c0: 20 61 73 73 65 6d 62 6c 69 65 73 20 75 73 69 6e assemblies usin
22d0: 67 20 73 6f 6d 65 0d 0a 20 20 20 20 20 20 20 20 g some..
22e0: 23 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 61 # comma
22f0: 6e 64 73 20 73 69 6d 69 6c 61 72 20 74 6f 3a 0d nds similar to:.
2300: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #..
2310: 20 20 20 20 23 20 20 20 20 20 20 20 20 20 20 62 # b
2320: 75 69 6c 64 2e 62 61 74 20 24 7b 43 6f 6e 66 69 uild.bat ${Confi
2330: 67 75 72 61 74 69 6f 6e 7d 4d 61 6e 61 67 65 64 guration}Managed
2340: 4f 6e 6c 79 20 24 7b 50 6c 61 74 66 6f 72 6d 7d Only ${Platform}
2350: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 .. #
2360: 20 20 20 20 20 62 75 69 6c 64 2e 62 61 74 20 24 build.bat $
2370: 7b 43 6f 6e 66 69 67 75 72 61 74 69 6f 6e 7d 4e {Configuration}N
2380: 61 74 69 76 65 4f 6e 6c 79 20 24 7b 50 6c 61 74 ativeOnly ${Plat
2390: 66 6f 72 6d 7d 0d 0a 20 20 20 20 20 20 20 20 23 form}.. #
23a0: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 .. #
23b0: 20 20 20 20 20 57 68 65 72 65 20 24 7b 43 6f 6e Where ${Con
23c0: 66 69 67 75 72 61 74 69 6f 6e 7d 20 69 73 20 65 figuration} is e
23d0: 69 74 68 65 72 20 22 44 65 62 75 67 22 20 6f 72 ither "Debug" or
23e0: 20 22 52 65 6c 65 61 73 65 22 20 61 6e 64 0d 0a "Release" and..
23f0: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 #
2400: 20 20 20 24 7b 50 6c 61 74 66 6f 72 6d 7d 20 69 ${Platform} i
2410: 73 20 65 69 74 68 65 72 20 22 57 69 6e 33 32 22 s either "Win32"
2420: 20 6f 72 20 22 78 36 34 22 2e 0d 0a 20 20 20 20 or "x64"...
2430: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 #.. #
2440: 20 20 20 20 20 20 20 32 2e 20 42 75 69 6c 64 20 2. Build
2450: 74 68 65 20 6d 69 78 65 64 2d 6d 6f 64 65 20 61 the mixed-mode a
2460: 73 73 65 6d 62 6c 79 20 75 73 69 6e 67 20 61 20 ssembly using a
2470: 63 6f 6d 6d 61 6e 64 20 73 69 6d 69 6c 61 72 20 command similar
2480: 74 6f 3a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a to:.. #..
2490: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 #
24a0: 20 20 20 62 75 69 6c 64 2e 62 61 74 20 24 7b 43 build.bat ${C
24b0: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 7d 20 24 7b onfiguration} ${
24c0: 50 6c 61 74 66 6f 72 6d 7d 0d 0a 20 20 20 20 20 Platform}..
24d0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 #.. #
24e0: 20 20 20 20 20 20 20 20 20 57 68 65 72 65 20 24 Where $
24f0: 7b 43 6f 6e 66 69 67 75 72 61 74 69 6f 6e 7d 20 {Configuration}
2500: 69 73 20 65 69 74 68 65 72 20 22 44 65 62 75 67 is either "Debug
2510: 22 20 6f 72 20 22 52 65 6c 65 61 73 65 22 20 61 " or "Release" a
2520: 6e 64 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 nd.. #
2530: 20 20 20 20 20 20 20 24 7b 50 6c 61 74 66 6f 72 ${Platfor
2540: 6d 7d 20 69 73 20 65 69 74 68 65 72 20 22 57 69 m} is either "Wi
2550: 6e 33 32 22 20 6f 72 20 22 78 36 34 22 2e 20 20 n32" or "x64".
2560: 49 66 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 If this command
2570: 69 73 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 is.. #
2580: 20 20 20 20 20 20 20 75 73 65 64 2c 20 76 61 72 used, var
2590: 69 6f 75 73 20 74 65 73 74 73 20 74 68 61 74 20 ious tests that
25a0: 72 65 71 75 69 72 65 20 73 75 70 70 6c 65 6d 65 require suppleme
25b0: 6e 74 61 72 79 20 6d 61 6e 61 67 65 64 0d 0a 20 ntary managed..
25c0: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 20 #
25d0: 20 20 61 73 73 65 6d 62 6c 69 65 73 20 28 65 2e assemblies (e.
25e0: 67 2e 20 4c 49 4e 51 29 20 6d 61 79 20 62 65 20 g. LINQ) may be
25f0: 73 6b 69 70 70 65 64 20 75 6e 6c 65 73 73 20 74 skipped unless t
2600: 68 6f 73 65 20 62 69 6e 61 72 69 65 73 0d 0a 20 hose binaries..
2610: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 20 #
2620: 20 20 61 72 65 20 73 75 62 73 65 71 75 65 6e 74 are subsequent
2630: 6c 79 20 63 6f 70 69 65 64 20 69 6e 74 6f 20 74 ly copied into t
2640: 68 65 20 63 6f 72 72 65 63 74 20 64 69 72 65 63 he correct direc
2650: 74 6f 72 79 20 28 69 2e 65 2e 20 62 79 0d 0a 20 tory (i.e. by..
2660: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 20 #
2670: 20 20 22 74 65 73 74 5f 61 6c 6c 2e 62 61 74 22 "test_all.bat"
2680: 29 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 )... #..
2690: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 4e # N
26a0: 6f 74 65 20 74 68 61 74 20 61 6c 6c 20 6f 66 20 ote that all of
26b0: 74 68 65 20 62 75 69 6c 64 20 63 6f 6d 6d 61 6e the build comman
26c0: 64 73 20 61 62 6f 76 65 20 77 69 6c 6c 20 64 65 ds above will de
26d0: 66 61 75 6c 74 20 74 6f 20 75 73 69 6e 67 0d 0a fault to using..
26e0: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 #
26f0: 74 68 65 20 6c 61 74 65 73 74 20 76 65 72 73 69 the latest versi
2700: 6f 6e 20 6f 66 20 4d 53 42 75 69 6c 64 20 61 76 on of MSBuild av
2710: 61 69 6c 61 62 6c 65 20 61 6e 64 20 74 68 65 20 ailable and the
2720: 22 74 65 73 74 5f 79 65 61 72 22 20 6d 61 79 0d "test_year" may.
2730: 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 . #
2740: 20 6e 65 65 64 20 74 6f 20 62 65 20 61 64 6a 75 need to be adju
2750: 73 74 65 64 20 61 63 63 6f 72 64 69 6e 67 6c 79 sted accordingly
2760: 20 74 6f 20 61 63 74 75 61 6c 6c 79 20 72 75 6e to actually run
2770: 20 74 68 65 20 74 65 73 74 20 73 75 69 74 65 2e the test suite.
2780: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 .. #
2790: 20 20 52 65 66 65 72 20 74 6f 20 74 68 65 20 63 Refer to the c
27a0: 6f 6d 6d 65 6e 74 73 20 69 6e 20 5b 67 65 74 42 omments in [getB
27b0: 75 69 6c 64 59 65 61 72 5d 20 66 6f 72 20 6d 6f uildYear] for mo
27c0: 72 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 6f re information o
27d0: 6e 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 n.. #
27e0: 20 20 20 68 6f 77 20 74 6f 20 73 65 74 20 74 68 how to set th
27f0: 69 73 20 76 61 72 69 61 62 6c 65 2e 0d 0a 20 20 is variable...
2800: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
2810: 20 69 66 20 7b 5b 68 61 73 52 75 6e 74 69 6d 65 if {[hasRuntime
2820: 4f 70 74 69 6f 6e 20 6e 61 74 69 76 65 5d 7d 20 Option native]}
2830: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 then {..
2840: 20 20 72 65 74 75 72 6e 20 5b 66 69 6c 65 20 6a return [file j
2850: 6f 69 6e 20 24 70 61 74 68 20 62 69 6e 20 5b 67 oin $path bin [g
2860: 65 74 42 75 69 6c 64 59 65 61 72 5d 20 5b 6d 61 etBuildYear] [ma
2870: 63 68 69 6e 65 54 6f 50 6c 61 74 66 6f 72 6d 20 chineToPlatform
2880: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 \..
2890: 20 24 3a 3a 74 63 6c 5f 70 6c 61 74 66 6f 72 6d $::tcl_platform
28a0: 28 6d 61 63 68 69 6e 65 29 5d 20 5b 67 65 74 42 (machine)] [getB
28b0: 75 69 6c 64 43 6f 6e 66 69 67 75 72 61 74 69 6f uildConfiguratio
28c0: 6e 5d 5d 0d 0a 20 20 20 20 20 20 20 20 7d 20 65 n]].. } e
28d0: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 lse {..
28e0: 20 72 65 74 75 72 6e 20 5b 66 69 6c 65 20 6a 6f return [file jo
28f0: 69 6e 20 24 70 61 74 68 20 62 69 6e 20 5b 67 65 in $path bin [ge
2900: 74 42 75 69 6c 64 59 65 61 72 5d 20 5b 67 65 74 tBuildYear] [get
2910: 42 75 69 6c 64 43 6f 6e 66 69 67 75 72 61 74 69 BuildConfigurati
2920: 6f 6e 5d 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 on] \..
2930: 20 20 20 20 20 62 69 6e 5d 0d 0a 20 20 20 20 20 bin]..
2940: 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 }.. }..
2950: 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f }..... pro
2960: 63 20 67 65 74 42 75 69 6c 64 46 69 6c 65 4e 61 c getBuildFileNa
2970: 6d 65 20 7b 20 66 69 6c 65 4e 61 6d 65 20 7d 20 me { fileName }
2980: 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 {.. #..
2990: 20 20 23 20 4e 4f 54 45 3a 20 52 65 74 75 72 6e # NOTE: Return
29a0: 73 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 s the specified
29b0: 66 69 6c 65 20 6e 61 6d 65 20 61 73 20 69 66 20 file name as if
29c0: 69 74 20 77 65 72 65 20 6c 6f 63 61 74 65 64 20 it were located
29d0: 69 6e 20 74 68 65 0d 0a 20 20 20 20 20 20 23 20 in the.. #
29e0: 20 20 20 20 20 20 62 75 69 6c 64 20 64 69 72 65 build dire
29f0: 63 74 6f 72 79 2c 20 64 69 73 63 61 72 64 69 6e ctory, discardin
2a00: 67 20 61 6e 79 20 64 69 72 65 63 74 6f 72 79 20 g any directory
2a10: 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 70 72 65 73 information pres
2a20: 65 6e 74 0d 0a 20 20 20 20 20 20 23 20 20 20 20 ent.. #
2a30: 20 20 20 69 6e 20 74 68 65 20 66 69 6c 65 20 6e in the file n
2a40: 61 6d 65 20 61 73 20 70 72 6f 76 69 64 65 64 20 ame as provided
2a50: 62 79 20 6f 75 72 20 63 61 6c 6c 65 72 2e 0d 0a by our caller...
2a60: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 72 #.. r
2a70: 65 74 75 72 6e 20 5b 66 69 6c 65 20 6e 61 74 69 eturn [file nati
2a80: 76 65 6e 61 6d 65 20 5c 0d 0a 20 20 20 20 20 20 vename \..
2a90: 20 20 20 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b [file join [
2aa0: 67 65 74 42 75 69 6c 64 44 69 72 65 63 74 6f 72 getBuildDirector
2ab0: 79 5d 20 5b 66 69 6c 65 20 74 61 69 6c 20 24 66 y] [file tail $f
2ac0: 69 6c 65 4e 61 6d 65 5d 5d 5d 0d 0a 20 20 20 20 ileName]]]..
2ad0: 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 67 }..... proc g
2ae0: 65 74 42 69 6e 61 72 79 44 69 72 65 63 74 6f 72 etBinaryDirector
2af0: 79 20 7b 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d y {} {.. #.
2b00: 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 . # NOTE: T
2b10: 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 72 65 his procedure re
2b20: 74 75 72 6e 73 20 74 68 65 20 64 69 72 65 63 74 turns the direct
2b30: 6f 72 79 20 77 68 65 72 65 20 74 68 65 20 74 65 ory where the te
2b40: 73 74 20 61 70 70 6c 69 63 61 74 69 6f 6e 0d 0a st application..
2b50: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 69 74 # it
2b60: 73 65 6c 66 20 28 69 2e 65 2e 20 74 68 65 20 45 self (i.e. the E
2b70: 61 67 6c 65 20 73 68 65 6c 6c 29 20 69 73 20 6c agle shell) is l
2b80: 6f 63 61 74 65 64 2e 20 20 54 68 69 73 20 77 69 ocated. This wi
2b90: 6c 6c 20 62 65 20 75 73 65 64 20 61 73 0d 0a 20 ll be used as..
2ba0: 20 20 20 20 20 23 20 20 20 20 20 20 20 74 68 65 # the
2bb0: 20 64 65 73 74 69 6e 61 74 69 6f 6e 20 66 6f 72 destination for
2bc0: 20 74 68 65 20 63 6f 70 69 65 64 20 53 79 73 74 the copied Syst
2bd0: 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 20 6e em.Data.SQLite n
2be0: 61 74 69 76 65 20 61 6e 64 0d 0a 20 20 20 20 20 ative and..
2bf0: 20 23 20 20 20 20 20 20 20 6d 61 6e 61 67 65 64 # managed
2c00: 20 61 73 73 65 6d 62 6c 69 65 73 20 28 69 2e 65 assemblies (i.e
2c10: 2e 20 62 65 63 61 75 73 65 20 74 68 69 73 20 69 . because this i
2c20: 73 20 6f 6e 65 20 6f 66 20 74 68 65 20 66 65 77 s one of the few
2c30: 20 70 6c 61 63 65 73 0d 0a 20 20 20 20 20 20 23 places.. #
2c40: 20 20 20 20 20 20 20 77 68 65 72 65 20 74 68 65 where the
2c50: 20 43 4c 52 20 77 69 6c 6c 20 61 63 74 75 61 6c CLR will actual
2c60: 6c 79 20 66 69 6e 64 20 61 6e 64 20 6c 6f 61 64 ly find and load
2c70: 20 74 68 65 6d 20 70 72 6f 70 65 72 6c 79 29 2e them properly).
2c80: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #..
2c90: 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 if {[info exist
2ca0: 73 20 3a 3a 62 69 6e 61 72 79 5f 64 69 72 65 63 s ::binary_direc
2cb0: 74 6f 72 79 5d 20 26 26 20 5c 0d 0a 20 20 20 20 tory] && \..
2cc0: 20 20 20 20 20 20 5b 73 74 72 69 6e 67 20 6c 65 [string le
2cd0: 6e 67 74 68 20 24 3a 3a 62 69 6e 61 72 79 5f 64 ngth $::binary_d
2ce0: 69 72 65 63 74 6f 72 79 5d 20 3e 20 30 7d 20 74 irectory] > 0} t
2cf0: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 hen {.. #
2d00: 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 .. # NOTE
2d10: 3a 20 54 68 65 20 6c 6f 63 61 74 69 6f 6e 20 6f : The location o
2d20: 66 20 74 68 65 20 62 69 6e 61 72 79 20 64 69 72 f the binary dir
2d30: 65 63 74 6f 72 79 20 68 61 73 20 62 65 65 6e 20 ectory has been
2d40: 6f 76 65 72 72 69 64 64 65 6e 3b 0d 0a 20 20 20 overridden;..
2d50: 20 20 20 20 20 23 20 20 20 20 20 20 20 74 68 65 # the
2d60: 72 65 66 6f 72 65 2c 20 75 73 65 20 69 74 20 76 refore, use it v
2d70: 65 72 62 61 74 69 6d 2e 0d 0a 20 20 20 20 20 20 erbatim...
2d80: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 72 65 74 #.. ret
2d90: 75 72 6e 20 24 3a 3a 62 69 6e 61 72 79 5f 64 69 urn $::binary_di
2da0: 72 65 63 74 6f 72 79 0d 0a 20 20 20 20 20 20 7d rectory.. }
2db0: 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 else {..
2dc0: 20 72 65 74 75 72 6e 20 5b 69 6e 66 6f 20 62 69 return [info bi
2dd0: 6e 61 72 79 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a nary].. }..
2de0: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 }..... pr
2df0: 6f 63 20 67 65 74 42 69 6e 61 72 79 46 69 6c 65 oc getBinaryFile
2e00: 4e 61 6d 65 20 7b 20 66 69 6c 65 4e 61 6d 65 20 Name { fileName
2e10: 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 } {.. #..
2e20: 20 20 20 20 23 20 4e 4f 54 45 3a 20 52 65 74 75 # NOTE: Retu
2e30: 72 6e 73 20 74 68 65 20 73 70 65 63 69 66 69 65 rns the specifie
2e40: 64 20 66 69 6c 65 20 6e 61 6d 65 20 61 73 20 69 d file name as i
2e50: 66 20 69 74 20 77 65 72 65 20 6c 6f 63 61 74 65 f it were locate
2e60: 64 20 69 6e 20 74 68 65 0d 0a 20 20 20 20 20 20 d in the..
2e70: 23 20 20 20 20 20 20 20 62 69 6e 61 72 79 20 64 # binary d
2e80: 69 72 65 63 74 6f 72 79 2c 20 64 69 73 63 61 72 irectory, discar
2e90: 64 69 6e 67 20 61 6e 79 20 64 69 72 65 63 74 6f ding any directo
2ea0: 72 79 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 70 ry information p
2eb0: 72 65 73 65 6e 74 0d 0a 20 20 20 20 20 20 23 20 resent.. #
2ec0: 20 20 20 20 20 20 69 6e 20 74 68 65 20 66 69 6c in the fil
2ed0: 65 20 6e 61 6d 65 20 61 73 20 70 72 6f 76 69 64 e name as provid
2ee0: 65 64 20 62 79 20 6f 75 72 20 63 61 6c 6c 65 72 ed by our caller
2ef0: 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 ... #..
2f00: 20 20 72 65 74 75 72 6e 20 5b 66 69 6c 65 20 6e return [file n
2f10: 61 74 69 76 65 6e 61 6d 65 20 5c 0d 0a 20 20 20 ativename \..
2f20: 20 20 20 20 20 20 20 5b 66 69 6c 65 20 6a 6f 69 [file joi
2f30: 6e 20 5b 67 65 74 42 69 6e 61 72 79 44 69 72 65 n [getBinaryDire
2f40: 63 74 6f 72 79 5d 20 5b 66 69 6c 65 20 74 61 69 ctory] [file tai
2f50: 6c 20 24 66 69 6c 65 4e 61 6d 65 5d 5d 5d 0d 0a l $fileName]]]..
2f60: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 }..... pr
2f70: 6f 63 20 67 65 74 43 6f 72 65 42 69 6e 61 72 79 oc getCoreBinary
2f80: 46 69 6c 65 4e 61 6d 65 20 7b 20 7b 73 74 61 6e FileName { {stan
2f90: 64 61 72 64 20 66 61 6c 73 65 7d 20 7d 20 7b 0d dard false} } {.
2fa0: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 . #..
2fb0: 23 20 4e 4f 54 45 3a 20 52 65 74 75 72 6e 73 20 # NOTE: Returns
2fc0: 74 68 65 20 66 75 6c 6c 20 70 61 74 68 20 66 6f the full path fo
2fd0: 72 20 74 68 65 20 66 69 6c 65 20 63 6f 6e 74 61 r the file conta
2fe0: 69 6e 69 6e 67 20 74 68 65 20 63 6f 72 65 20 53 ining the core S
2ff0: 51 4c 69 74 65 0d 0a 20 20 20 20 20 20 23 20 20 QLite.. #
3000: 20 20 20 20 20 6c 69 62 72 61 72 79 20 63 6f 64 library cod
3010: 65 20 66 6f 72 20 74 68 69 73 20 70 6c 61 74 66 e for this platf
3020: 6f 72 6d 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 orm... #..
3030: 20 20 20 20 20 69 66 20 7b 5b 68 61 73 52 75 6e if {[hasRun
3040: 74 69 6d 65 4f 70 74 69 6f 6e 20 6e 61 74 69 76 timeOption nativ
3050: 65 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 e]} then {..
3060: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 #.. #
3070: 20 4e 4f 54 45 3a 20 52 65 74 75 72 6e 20 74 68 NOTE: Return th
3080: 65 20 6d 69 78 65 64 2d 6d 6f 64 65 20 61 73 73 e mixed-mode ass
3090: 65 6d 62 6c 79 20 66 69 6c 65 20 6e 61 6d 65 2e embly file name.
30a0: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #..
30b0: 20 20 20 20 20 72 65 74 75 72 6e 20 5b 66 69 6c return [fil
30c0: 65 20 6e 61 74 69 76 65 6e 61 6d 65 20 5c 0d 0a e nativename \..
30d0: 20 20 20 20 20 20 20 20 20 20 20 20 5b 66 69 6c [fil
30e0: 65 20 6a 6f 69 6e 20 5b 67 65 74 42 69 6e 61 72 e join [getBinar
30f0: 79 44 69 72 65 63 74 6f 72 79 5d 20 53 79 73 74 yDirectory] Syst
3100: 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 64 em.Data.SQLite.d
3110: 6c 6c 5d 5d 0d 0a 20 20 20 20 20 20 7d 20 65 6c ll]].. } el
3120: 73 65 69 66 20 7b 24 73 74 61 6e 64 61 72 64 7d seif {$standard}
3130: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 then {..
3140: 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f #.. # NO
3150: 54 45 3a 20 52 65 74 75 72 6e 20 74 68 65 20 6e TE: Return the n
3160: 61 74 69 76 65 2d 6f 6e 6c 79 20 73 74 61 6e 64 ative-only stand
3170: 61 72 64 20 53 51 4c 69 74 65 20 6c 69 62 72 61 ard SQLite libra
3180: 72 79 20 66 69 6c 65 20 6e 61 6d 65 2e 0d 0a 20 ry file name...
3190: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
31a0: 20 20 72 65 74 75 72 6e 20 5b 66 69 6c 65 20 6e return [file n
31b0: 61 74 69 76 65 6e 61 6d 65 20 5c 0d 0a 20 20 20 ativename \..
31c0: 20 20 20 20 20 20 20 20 20 5b 66 69 6c 65 20 6a [file j
31d0: 6f 69 6e 20 5b 67 65 74 42 69 6e 61 72 79 44 69 oin [getBinaryDi
31e0: 72 65 63 74 6f 72 79 5d 20 73 71 6c 69 74 65 33 rectory] sqlite3
31f0: 2e 64 6c 6c 5d 5d 0d 0a 20 20 20 20 20 20 7d 20 .dll]].. }
3200: 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 else {..
3210: 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT
3220: 45 3a 20 52 65 74 75 72 6e 20 74 68 65 20 6e 61 E: Return the na
3230: 74 69 76 65 2d 6f 6e 6c 79 20 69 6e 74 65 72 6f tive-only intero
3240: 70 20 61 73 73 65 6d 62 6c 79 20 66 69 6c 65 20 p assembly file
3250: 6e 61 6d 65 2e 0d 0a 20 20 20 20 20 20 20 20 23 name... #
3260: 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e .. return
3270: 20 5b 66 69 6c 65 20 6e 61 74 69 76 65 6e 61 6d [file nativenam
3280: 65 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 e \..
3290: 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 67 65 74 [file join [get
32a0: 42 69 6e 61 72 79 44 69 72 65 63 74 6f 72 79 5d BinaryDirectory]
32b0: 20 53 51 4c 69 74 65 2e 49 6e 74 65 72 6f 70 2e SQLite.Interop.
32c0: 64 6c 6c 5d 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a dll]].. }..
32d0: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 }..... pr
32e0: 6f 63 20 67 65 74 44 61 74 61 62 61 73 65 44 69 oc getDatabaseDi
32f0: 72 65 63 74 6f 72 79 20 7b 7d 20 7b 0d 0a 20 20 rectory {} {..
3300: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e #.. # N
3310: 4f 54 45 3a 20 54 68 69 73 20 70 72 6f 63 65 64 OTE: This proced
3320: 75 72 65 20 72 65 74 75 72 6e 73 20 74 68 65 20 ure returns the
3330: 64 69 72 65 63 74 6f 72 79 20 77 68 65 72 65 20 directory where
3340: 74 68 65 20 74 65 73 74 20 64 61 74 61 62 61 73 the test databas
3350: 65 73 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 es.. #
3360: 20 20 73 68 6f 75 6c 64 20 62 65 20 6c 6f 63 61 should be loca
3370: 74 65 64 2e 20 20 42 79 20 64 65 66 61 75 6c 74 ted. By default
3380: 2c 20 74 68 69 73 20 6a 75 73 74 20 75 73 65 73 , this just uses
3390: 20 74 68 65 20 74 65 6d 70 6f 72 61 72 79 0d 0a the temporary..
33a0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 64 69 # di
33b0: 72 65 63 74 6f 72 79 20 63 6f 6e 66 69 67 75 72 rectory configur
33c0: 65 64 20 66 6f 72 20 74 68 69 73 20 73 79 73 74 ed for this syst
33d0: 65 6d 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 em... #..
33e0: 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 if {[info ex
33f0: 69 73 74 73 20 3a 3a 64 61 74 61 62 61 73 65 5f ists ::database_
3400: 64 69 72 65 63 74 6f 72 79 5d 20 26 26 20 5c 0d directory] && \.
3410: 0a 20 20 20 20 20 20 20 20 20 20 5b 73 74 72 69 . [stri
3420: 6e 67 20 6c 65 6e 67 74 68 20 24 3a 3a 64 61 74 ng length $::dat
3430: 61 62 61 73 65 5f 64 69 72 65 63 74 6f 72 79 5d abase_directory]
3440: 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 > 0} then {..
3450: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
3460: 20 23 20 4e 4f 54 45 3a 20 54 68 65 20 6c 6f 63 # NOTE: The loc
3470: 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 64 61 74 ation of the dat
3480: 61 62 61 73 65 20 64 69 72 65 63 74 6f 72 79 20 abase directory
3490: 68 61 73 20 62 65 65 6e 20 6f 76 65 72 72 69 64 has been overrid
34a0: 64 65 6e 3b 0d 0a 20 20 20 20 20 20 20 20 23 20 den;.. #
34b0: 20 20 20 20 20 20 74 68 65 72 65 66 6f 72 65 2c therefore,
34c0: 20 75 73 65 20 69 74 2e 0d 0a 20 20 20 20 20 20 use it...
34d0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 72 65 74 #.. ret
34e0: 75 72 6e 20 5b 66 69 6c 65 20 6e 6f 72 6d 61 6c urn [file normal
34f0: 69 7a 65 20 24 3a 3a 64 61 74 61 62 61 73 65 5f ize $::database_
3500: 64 69 72 65 63 74 6f 72 79 5d 0d 0a 20 20 20 20 directory]..
3510: 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 } else {..
3520: 20 20 20 20 72 65 74 75 72 6e 20 5b 67 65 74 54 return [getT
3530: 65 6d 70 6f 72 61 72 79 50 61 74 68 5d 0d 0a 20 emporaryPath]..
3540: 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c }.. }...
3550: 0d 0a 20 20 20 20 70 72 6f 63 20 67 65 74 41 70 .. proc getAp
3560: 70 44 6f 6d 61 69 6e 50 72 65 61 6d 62 6c 65 20 pDomainPreamble
3570: 7b 20 7b 70 72 65 66 69 78 20 22 22 7d 20 7b 73 { {prefix ""} {s
3580: 75 66 66 69 78 20 22 22 7d 20 7d 20 7b 0d 0a 20 uffix ""} } {..
3590: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 #.. #
35a0: 4e 4f 54 45 3a 20 54 68 69 73 20 70 72 6f 63 65 NOTE: This proce
35b0: 64 75 72 65 20 72 65 74 75 72 6e 73 20 61 20 74 dure returns a t
35c0: 65 73 74 20 73 65 74 75 70 20 73 63 72 69 70 74 est setup script
35d0: 20 73 75 69 74 61 62 6c 65 20 66 6f 72 20 65 76 suitable for ev
35e0: 61 6c 75 61 74 69 6f 6e 0d 0a 20 20 20 20 20 20 aluation..
35f0: 23 20 20 20 20 20 20 20 62 79 20 61 20 74 65 73 # by a tes
3600: 74 20 69 6e 74 65 72 70 72 65 74 65 72 20 63 72 t interpreter cr
3610: 65 61 74 65 64 20 69 6e 20 61 6e 20 69 73 6f 6c eated in an isol
3620: 61 74 65 64 20 61 70 70 6c 69 63 61 74 69 6f 6e ated application
3630: 20 64 6f 6d 61 69 6e 2e 0d 0a 20 20 20 20 20 20 domain...
3640: 23 20 20 20 20 20 20 20 54 68 65 20 73 63 72 69 # The scri
3650: 70 74 20 62 65 69 6e 67 20 72 65 74 75 72 6e 65 pt being returne
3660: 64 20 77 69 6c 6c 20 62 65 20 73 75 72 72 6f 75 d will be surrou
3670: 6e 64 65 64 20 62 79 20 74 68 65 20 70 72 65 66 nded by the pref
3680: 69 78 20 61 6e 64 0d 0a 20 20 20 20 20 20 23 20 ix and.. #
3690: 20 20 20 20 20 20 73 75 66 66 69 78 20 22 73 63 suffix "sc
36a0: 72 69 70 74 20 66 72 61 67 6d 65 6e 74 73 22 20 ript fragments"
36b0: 73 70 65 63 69 66 69 65 64 20 62 79 20 6f 75 72 specified by our
36c0: 20 63 61 6c 6c 65 72 2c 20 69 66 20 61 6e 79 2e caller, if any.
36d0: 20 20 54 68 65 0d 0a 20 20 20 20 20 20 23 20 20 The.. #
36e0: 20 20 20 20 20 65 6e 74 69 72 65 20 73 63 72 69 entire scri
36f0: 70 74 20 62 65 69 6e 67 20 72 65 74 75 72 6e 65 pt being returne
3700: 64 20 77 69 6c 6c 20 62 65 20 73 75 62 73 74 69 d will be substi
3710: 74 75 74 65 64 20 76 69 61 20 5b 73 75 62 73 74 tuted via [subst
3720: 5d 2c 20 69 6e 0d 0a 20 20 20 20 20 20 23 20 20 ], in.. #
3730: 20 20 20 20 20 74 68 65 20 63 6f 6e 74 65 78 74 the context
3740: 20 6f 66 20 6f 75 72 20 63 61 6c 6c 65 72 2e 20 of our caller.
3750: 20 54 68 69 73 20 73 74 65 70 20 69 73 20 6e 65 This step is ne
3760: 63 65 73 73 61 72 79 20 73 6f 20 74 68 61 74 20 cessary so that
3770: 73 6f 6d 65 0d 0a 20 20 20 20 20 20 23 20 20 20 some.. #
3780: 20 20 20 20 6c 69 6d 69 74 65 64 20 63 6f 6e 74 limited cont
3790: 65 78 74 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2c ext information,
37a0: 20 70 72 69 6d 61 72 69 6c 79 20 72 65 6c 61 74 primarily relat
37b0: 65 64 20 74 6f 20 74 68 65 20 74 65 73 74 20 62 ed to the test b
37c0: 75 69 6c 64 0d 0a 20 20 20 20 20 20 23 20 20 20 uild.. #
37d0: 20 20 20 20 64 69 72 65 63 74 6f 72 79 2c 20 63 directory, c
37e0: 61 6e 20 62 65 20 74 72 61 6e 73 66 65 72 72 65 an be transferre
37f0: 64 20 74 6f 20 74 68 65 20 69 6e 74 65 72 70 72 d to the interpr
3800: 65 74 65 72 20 69 6e 20 74 68 65 20 69 73 6f 6c eter in the isol
3810: 61 74 65 64 0d 0a 20 20 20 20 20 20 23 20 20 20 ated.. #
3820: 20 20 20 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 application
3830: 64 6f 6d 61 69 6e 2c 20 6d 61 6b 69 6e 67 20 69 domain, making i
3840: 74 20 61 62 6c 65 20 74 6f 20 73 75 63 63 65 73 t able to succes
3850: 73 66 75 6c 6c 79 20 72 75 6e 20 74 65 73 74 73 sfully run tests
3860: 20 74 68 61 74 0d 0a 20 20 20 20 20 20 23 20 20 that.. #
3870: 20 20 20 20 20 72 65 71 75 69 72 65 20 6f 6e 65 require one
3880: 20 6f 72 20 6d 6f 72 65 20 6f 66 20 74 68 65 20 or more of the
3890: 66 69 6c 65 73 20 69 6e 20 74 68 65 20 62 75 69 files in the bui
38a0: 6c 64 20 64 69 72 65 63 74 6f 72 79 2e 20 20 43 ld directory. C
38b0: 61 6c 6c 65 72 73 0d 0a 20 20 20 20 20 20 23 20 allers.. #
38c0: 20 20 20 20 20 20 74 6f 20 74 68 69 73 20 70 72 to this pr
38d0: 6f 63 65 64 75 72 65 20 73 68 6f 75 6c 64 20 6b ocedure should k
38e0: 65 65 70 20 69 6e 20 6d 69 6e 64 20 74 68 61 74 eep in mind that
38f0: 20 74 68 65 20 74 65 73 74 20 73 63 72 69 70 74 the test script
3900: 20 62 65 69 6e 67 0d 0a 20 20 20 20 20 20 23 20 being.. #
3910: 20 20 20 20 20 20 72 65 74 75 72 6e 65 64 20 63 returned c
3920: 61 6e 6e 6f 74 20 72 65 6c 79 20 6f 6e 20 61 6e annot rely on an
3930: 79 20 73 63 72 69 70 74 20 6c 69 62 72 61 72 79 y script library
3940: 20 70 72 6f 63 65 64 75 72 65 73 20 6e 6f 74 20 procedures not
3950: 64 65 66 69 6e 65 64 0d 0a 20 20 20 20 20 20 23 defined.. #
3960: 20 20 20 20 20 20 20 62 79 20 74 68 65 20 45 61 by the Ea
3970: 67 6c 65 2e 4c 69 62 72 61 72 79 20 70 61 63 6b gle.Library pack
3980: 61 67 65 20 28 69 2e 65 2e 20 22 69 6e 69 74 2e age (i.e. "init.
3990: 65 61 67 6c 65 22 29 2e 20 20 41 6c 73 6f 2c 20 eagle"). Also,
39a0: 61 6c 6c 0d 0a 20 20 20 20 20 20 23 20 20 20 20 all.. #
39b0: 20 20 20 76 61 72 69 61 62 6c 65 20 72 65 66 65 variable refe
39c0: 72 65 6e 63 65 73 20 61 6e 64 20 61 6c 6c 20 22 rences and all "
39d0: 6e 65 73 74 65 64 22 20 63 6f 6d 6d 61 6e 64 73 nested" commands
39e0: 20 28 69 2e 65 2e 20 74 68 6f 73 65 20 69 6e 0d (i.e. those in.
39f0: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 73 . # s
3a00: 71 75 61 72 65 20 62 72 61 63 6b 65 74 73 29 2c quare brackets),
3a10: 20 75 6e 6c 65 73 73 20 74 68 65 79 20 61 72 65 unless they are
3a20: 20 73 70 65 63 69 61 6c 6c 79 20 71 75 6f 74 65 specially quote
3a30: 64 2c 20 77 69 6c 6c 20 65 6e 64 20 75 70 0d 0a d, will end up..
3a40: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 62 65 # be
3a50: 69 6e 67 20 65 76 61 6c 75 61 74 65 64 20 69 6e ing evaluated in
3a60: 20 74 68 65 20 63 6f 6e 74 65 78 74 20 6f 66 20 the context of
3a70: 74 68 65 20 63 61 6c 6c 69 6e 67 20 69 6e 74 65 the calling inte
3a80: 72 70 72 65 74 65 72 20 61 6e 64 20 6e 6f 74 0d rpreter and not.
3a90: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 74 . # t
3aa0: 68 65 20 74 65 73 74 20 69 6e 74 65 72 70 72 65 he test interpre
3ab0: 74 65 72 20 63 72 65 61 74 65 64 20 69 6e 20 74 ter created in t
3ac0: 68 65 20 69 73 6f 6c 61 74 65 64 20 61 70 70 6c he isolated appl
3ad0: 69 63 61 74 69 6f 6e 20 64 6f 6d 61 69 6e 2e 0d ication domain..
3ae0: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 . #..
3af0: 72 65 74 75 72 6e 20 5b 75 70 6c 65 76 65 6c 20 return [uplevel
3b00: 31 20 5b 6c 69 73 74 20 73 75 62 73 74 20 5b 61 1 [list subst [a
3b10: 70 70 65 6e 64 41 72 67 73 20 24 70 72 65 66 69 ppendArgs $prefi
3b20: 78 20 7b 0d 0a 20 20 20 20 20 20 20 20 69 66 20 x {.. if
3b30: 7b 5b 68 61 73 52 75 6e 74 69 6d 65 4f 70 74 69 {[hasRuntimeOpti
3b40: 6f 6e 20 6e 61 74 69 76 65 5d 7d 20 74 68 65 6e on native]} then
3b50: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 6f 62 {.. ob
3b60: 6a 65 63 74 20 69 6e 76 6f 6b 65 20 49 6e 74 65 ject invoke Inte
3b70: 72 70 72 65 74 65 72 2e 47 65 74 41 63 74 69 76 rpreter.GetActiv
3b80: 65 20 41 64 64 52 75 6e 74 69 6d 65 4f 70 74 69 e AddRuntimeOpti
3b90: 6f 6e 20 6e 61 74 69 76 65 0d 0a 20 20 20 20 20 on native..
3ba0: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 }....
3bb0: 73 65 74 20 3a 3a 70 61 74 68 20 7b 24 3a 3a 70 set ::path {$::p
3bc0: 61 74 68 7d 0d 0a 20 20 20 20 20 20 20 20 73 65 ath}.. se
3bd0: 74 20 3a 3a 74 65 73 74 5f 79 65 61 72 20 7b 5b t ::test_year {[
3be0: 67 65 74 42 75 69 6c 64 59 65 61 72 5d 7d 0d 0a getBuildYear]}..
3bf0: 20 20 20 20 20 20 20 20 73 65 74 20 3a 3a 74 65 set ::te
3c00: 73 74 5f 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e st_configuration
3c10: 20 7b 5b 67 65 74 42 75 69 6c 64 43 6f 6e 66 69 {[getBuildConfi
3c20: 67 75 72 61 74 69 6f 6e 5d 7d 0d 0a 20 20 20 20 guration]}..
3c30: 20 20 7d 20 24 73 75 66 66 69 78 5d 5d 5d 0d 0a } $suffix]]]..
3c40: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 }..... pr
3c50: 6f 63 20 74 72 79 43 6f 70 79 42 75 69 6c 64 46 oc tryCopyBuildF
3c60: 69 6c 65 20 7b 20 66 69 6c 65 4e 61 6d 65 20 7d ile { fileName }
3c70: 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 {.. #..
3c80: 20 20 20 23 20 4e 4f 54 45 3a 20 49 66 20 77 65 # NOTE: If we
3c90: 20 63 61 6e 6e 6f 74 20 63 6f 70 79 20 74 68 65 cannot copy the
3ca0: 20 61 73 73 65 6d 62 6c 79 20 74 68 65 6e 20 69 assembly then i
3cb0: 74 20 69 73 20 70 72 6f 62 61 62 6c 79 20 61 6c t is probably al
3cc0: 72 65 61 64 79 20 6c 6f 61 64 65 64 2e 0d 0a 20 ready loaded...
3cd0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 73 65 #.. se
3ce0: 74 20 73 6f 75 72 63 65 46 69 6c 65 4e 61 6d 65 t sourceFileName
3cf0: 20 5b 67 65 74 42 75 69 6c 64 46 69 6c 65 4e 61 [getBuildFileNa
3d00: 6d 65 20 24 66 69 6c 65 4e 61 6d 65 5d 0d 0a 0d me $fileName]...
3d10: 0a 20 20 20 20 20 20 69 66 20 7b 21 5b 66 69 6c . if {![fil
3d20: 65 20 65 78 69 73 74 73 20 24 73 6f 75 72 63 65 e exists $source
3d30: 46 69 6c 65 4e 61 6d 65 5d 7d 20 74 68 65 6e 20 FileName]} then
3d40: 7b 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 {.. tputs
3d50: 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c $::test_channel
3d60: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a [appendArgs \..
3d70: 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d "---
3d80: 2d 20 73 6b 69 70 70 65 64 20 63 6f 70 79 69 6e - skipped copyin
3d90: 67 20 62 75 69 6c 64 20 66 69 6c 65 20 5c 22 22 g build file \""
3da0: 20 24 73 6f 75 72 63 65 46 69 6c 65 4e 61 6d 65 $sourceFileName
3db0: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \..
3dc0: 22 5c 22 2c 20 69 74 20 64 6f 65 73 20 6e 6f 74 "\", it does not
3dd0: 20 65 78 69 73 74 5c 6e 22 5d 0d 0a 0d 0a 20 20 exist\n"]....
3de0: 20 20 20 20 20 20 72 65 74 75 72 6e 0d 0a 20 20 return..
3df0: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 73 }.... s
3e00: 65 74 20 74 61 72 67 65 74 46 69 6c 65 4e 61 6d et targetFileNam
3e10: 65 20 5b 67 65 74 42 69 6e 61 72 79 46 69 6c 65 e [getBinaryFile
3e20: 4e 61 6d 65 20 24 66 69 6c 65 4e 61 6d 65 5d 0d Name $fileName].
3e30: 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 63 61 ... if {[ca
3e40: 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 tch {..
3e50: 20 20 20 20 20 66 69 6c 65 20 63 6f 70 79 20 2d file copy -
3e60: 66 6f 72 63 65 20 24 73 6f 75 72 63 65 46 69 6c force $sourceFil
3e70: 65 4e 61 6d 65 20 24 74 61 72 67 65 74 46 69 6c eName $targetFil
3e80: 65 4e 61 6d 65 7d 5d 20 3d 3d 20 30 7d 20 74 68 eName}] == 0} th
3e90: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 74 70 en {.. tp
3ea0: 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e uts $::test_chan
3eb0: 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 nel [appendArgs
3ec0: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 \.. "
3ed0: 2d 2d 2d 2d 20 63 6f 70 69 65 64 20 62 75 69 6c ---- copied buil
3ee0: 64 20 66 69 6c 65 20 66 72 6f 6d 20 5c 22 22 20 d file from \""
3ef0: 24 73 6f 75 72 63 65 46 69 6c 65 4e 61 6d 65 20 $sourceFileName
3f00: 22 5c 22 20 74 6f 20 5c 22 22 20 5c 0d 0a 20 20 "\" to \"" \..
3f10: 20 20 20 20 20 20 20 20 20 20 24 74 61 72 67 65 $targe
3f20: 74 46 69 6c 65 4e 61 6d 65 20 5c 22 5c 6e 5d 0d tFileName \"\n].
3f30: 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d . } else {.
3f40: 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 . tputs $
3f50: 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b ::test_channel [
3f60: 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 appendArgs \..
3f70: 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 "----
3f80: 66 61 69 6c 65 64 20 74 6f 20 63 6f 70 79 20 62 failed to copy b
3f90: 75 69 6c 64 20 66 69 6c 65 20 66 72 6f 6d 20 5c uild file from \
3fa0: 22 22 20 24 73 6f 75 72 63 65 46 69 6c 65 4e 61 "" $sourceFileNa
3fb0: 6d 65 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 me \..
3fc0: 20 20 22 5c 22 20 74 6f 20 5c 22 22 20 24 74 61 "\" to \"" $ta
3fd0: 72 67 65 74 46 69 6c 65 4e 61 6d 65 20 5c 22 5c rgetFileName \"\
3fe0: 6e 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 n].. }..
3ff0: 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 }..... proc
4000: 74 72 79 44 65 6c 65 74 65 42 69 6e 61 72 79 46 tryDeleteBinaryF
4010: 69 6c 65 20 7b 20 66 69 6c 65 4e 61 6d 65 20 7d ile { fileName }
4020: 20 7b 0d 0a 20 20 20 20 20 20 73 65 74 20 66 69 {.. set fi
4030: 6c 65 4e 61 6d 65 20 5b 67 65 74 42 69 6e 61 72 leName [getBinar
4040: 79 46 69 6c 65 4e 61 6d 65 20 24 66 69 6c 65 4e yFileName $fileN
4050: 61 6d 65 5d 0d 0a 0d 0a 20 20 20 20 20 20 69 66 ame].... if
4060: 20 7b 21 5b 66 69 6c 65 20 65 78 69 73 74 73 20 {![file exists
4070: 24 66 69 6c 65 4e 61 6d 65 5d 7d 20 74 68 65 6e $fileName]} then
4080: 20 7b 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 {.. tput
4090: 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 s $::test_channe
40a0: 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d l [appendArgs \.
40b0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d . "--
40c0: 2d 2d 20 73 6b 69 70 70 65 64 20 64 65 6c 65 74 -- skipped delet
40d0: 69 6e 67 20 62 69 6e 61 72 79 20 66 69 6c 65 20 ing binary file
40e0: 5c 22 22 20 24 66 69 6c 65 4e 61 6d 65 20 5c 0d \"" $fileName \.
40f0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 5c 22 . "\"
4100: 2c 20 69 74 20 64 6f 65 73 20 6e 6f 74 20 65 78 , it does not ex
4110: 69 73 74 5c 6e 22 5d 0d 0a 0d 0a 20 20 20 20 20 ist\n"]....
4120: 20 20 20 72 65 74 75 72 6e 0d 0a 20 20 20 20 20 return..
4130: 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b }.... if {
4140: 5b 63 61 74 63 68 20 7b 66 69 6c 65 20 64 65 6c [catch {file del
4150: 65 74 65 20 24 66 69 6c 65 4e 61 6d 65 7d 5d 20 ete $fileName}]
4160: 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 == 0} then {..
4170: 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 tputs $::t
4180: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 est_channel [app
4190: 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 endArgs \..
41a0: 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 64 65 6c "---- del
41b0: 65 74 65 64 20 62 69 6e 61 72 79 20 66 69 6c 65 eted binary file
41c0: 20 5c 22 22 20 24 66 69 6c 65 4e 61 6d 65 20 5c \"" $fileName \
41d0: 22 5c 6e 5d 0d 0a 20 20 20 20 20 20 7d 20 65 6c "\n].. } el
41e0: 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 74 70 se {.. tp
41f0: 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e uts $::test_chan
4200: 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 nel [appendArgs
4210: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 \.. "
4220: 2d 2d 2d 2d 20 66 61 69 6c 65 64 20 74 6f 20 64 ---- failed to d
4230: 65 6c 65 74 65 20 62 69 6e 61 72 79 20 66 69 6c elete binary fil
4240: 65 20 5c 22 22 20 24 66 69 6c 65 4e 61 6d 65 20 e \"" $fileName
4250: 5c 22 5c 6e 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a \"\n].. }..
4260: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 }..... pr
4270: 6f 63 20 74 72 79 43 6f 70 79 41 73 73 65 6d 62 oc tryCopyAssemb
4280: 6c 79 20 7b 20 66 69 6c 65 4e 61 6d 65 20 7b 70 ly { fileName {p
4290: 64 62 20 74 72 75 65 7d 20 7d 20 7b 0d 0a 20 20 db true} } {..
42a0: 20 20 20 20 74 72 79 43 6f 70 79 42 75 69 6c 64 tryCopyBuild
42b0: 46 69 6c 65 20 24 66 69 6c 65 4e 61 6d 65 0d 0a File $fileName..
42c0: 0d 0a 20 20 20 20 20 20 69 66 20 7b 24 70 64 62 .. if {$pdb
42d0: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {..
42e0: 20 20 74 72 79 43 6f 70 79 42 75 69 6c 64 46 69 tryCopyBuildFi
42f0: 6c 65 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5b le [appendArgs [
4300: 66 69 6c 65 20 72 6f 6f 74 6e 61 6d 65 20 24 66 file rootname $f
4310: 69 6c 65 4e 61 6d 65 5d 20 2e 70 64 62 5d 0d 0a ileName] .pdb]..
4320: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a }.. }..
4330: 0c 0d 0a 20 20 20 20 70 72 6f 63 20 74 72 79 44 ... proc tryD
4340: 65 6c 65 74 65 41 73 73 65 6d 62 6c 79 20 7b 20 eleteAssembly {
4350: 66 69 6c 65 4e 61 6d 65 20 7b 70 64 62 20 74 72 fileName {pdb tr
4360: 75 65 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 20 74 ue} } {.. t
4370: 72 79 44 65 6c 65 74 65 42 69 6e 61 72 79 46 69 ryDeleteBinaryFi
4380: 6c 65 20 24 66 69 6c 65 4e 61 6d 65 0d 0a 0d 0a le $fileName....
4390: 20 20 20 20 20 20 69 66 20 7b 24 70 64 62 7d 20 if {$pdb}
43a0: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 then {..
43b0: 74 72 79 44 65 6c 65 74 65 42 69 6e 61 72 79 46 tryDeleteBinaryF
43c0: 69 6c 65 20 5b 61 70 70 65 6e 64 41 72 67 73 20 ile [appendArgs
43d0: 5b 66 69 6c 65 20 72 6f 6f 74 6e 61 6d 65 20 24 [file rootname $
43e0: 66 69 6c 65 4e 61 6d 65 5d 20 2e 70 64 62 5d 0d fileName] .pdb].
43f0: 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d . }.. }.
4400: 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 74 72 79 .... proc try
4410: 4c 6f 61 64 41 73 73 65 6d 62 6c 79 20 7b 20 66 LoadAssembly { f
4420: 69 6c 65 4e 61 6d 65 20 7d 20 7b 0d 0a 20 20 20 ileName } {..
4430: 20 20 20 73 65 74 20 66 69 6c 65 4e 61 6d 65 20 set fileName
4440: 5b 67 65 74 42 69 6e 61 72 79 46 69 6c 65 4e 61 [getBinaryFileNa
4450: 6d 65 20 24 66 69 6c 65 4e 61 6d 65 5d 0d 0a 0d me $fileName]...
4460: 0a 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 . if {[catc
4470: 68 20 7b 73 65 74 20 61 73 73 65 6d 62 6c 79 20 h {set assembly
4480: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 \..
4490: 20 5b 6f 62 6a 65 63 74 20 6c 6f 61 64 20 2d 6c [object load -l
44a0: 6f 61 64 74 79 70 65 20 46 69 6c 65 20 2d 61 6c oadtype File -al
44b0: 69 61 73 20 24 66 69 6c 65 4e 61 6d 65 5d 7d 5d ias $fileName]}]
44c0: 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 == 0} then {..
44d0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
44e0: 20 20 23 20 4e 4f 54 45 3a 20 4e 6f 77 2c 20 61 # NOTE: Now, a
44f0: 64 64 20 74 68 65 20 6e 65 63 65 73 73 61 72 79 dd the necessary
4500: 20 74 65 73 74 20 63 6f 6e 73 74 72 61 69 6e 74 test constraint
4510: 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 ... #..
4520: 20 20 20 20 20 20 61 64 64 43 6f 6e 73 74 72 61 addConstra
4530: 69 6e 74 20 5b 66 69 6c 65 20 72 6f 6f 74 6e 61 int [file rootna
4540: 6d 65 20 5b 66 69 6c 65 20 74 61 69 6c 20 24 66 me [file tail $f
4550: 69 6c 65 4e 61 6d 65 5d 5d 0d 0a 0d 0a 20 20 20 ileName]]....
4560: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #..
4570: 23 20 4e 4f 54 45 3a 20 47 72 61 62 20 74 68 65 # NOTE: Grab the
4580: 20 69 6d 61 67 65 20 72 75 6e 74 69 6d 65 20 76 image runtime v
4590: 65 72 73 69 6f 6e 20 66 72 6f 6d 20 74 68 65 20 ersion from the
45a0: 61 73 73 65 6d 62 6c 79 20 62 65 63 61 75 73 65 assembly because
45b0: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 .. #
45c0: 20 20 73 65 76 65 72 61 6c 20 74 65 73 74 73 20 several tests
45d0: 72 65 6c 79 20 6f 6e 20 69 74 20 68 61 76 69 6e rely on it havin
45e0: 67 20 61 20 63 65 72 74 61 69 6e 20 76 61 6c 75 g a certain valu
45f0: 65 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 e... #..
4600: 20 20 20 20 20 20 20 61 64 64 43 6f 6e 73 74 72 addConstr
4610: 61 69 6e 74 20 5b 61 70 70 65 6e 64 41 72 67 73 aint [appendArgs
4620: 20 5b 66 69 6c 65 20 74 61 69 6c 20 24 66 69 6c [file tail $fil
4630: 65 4e 61 6d 65 5d 20 5f 20 5c 0d 0a 20 20 20 20 eName] _ \..
4640: 20 20 20 20 20 20 20 20 5b 24 61 73 73 65 6d 62 [$assemb
4650: 6c 79 20 49 6d 61 67 65 52 75 6e 74 69 6d 65 56 ly ImageRuntimeV
4660: 65 72 73 69 6f 6e 5d 5d 0d 0a 0d 0a 20 20 20 20 ersion]]....
4670: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 #.. #
4680: 20 4e 4f 54 45 3a 20 52 65 74 75 72 6e 20 74 68 NOTE: Return th
4690: 65 20 66 75 6c 6c 20 70 61 74 68 20 6f 66 20 74 e full path of t
46a0: 68 65 20 6c 6f 61 64 65 64 20 66 69 6c 65 2e 0d he loaded file..
46b0: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #..
46c0: 20 20 20 20 72 65 74 75 72 6e 20 24 66 69 6c 65 return $file
46d0: 4e 61 6d 65 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d Name.. }...
46e0: 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 22 22 . return ""
46f0: 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 .. }.....
4700: 70 72 6f 63 20 63 68 65 63 6b 46 6f 72 53 51 4c proc checkForSQL
4710: 69 74 65 20 7b 20 63 68 61 6e 6e 65 6c 20 7d 20 ite { channel }
4720: 7b 0d 0a 20 20 20 20 20 20 74 70 75 74 73 20 24 {.. tputs $
4730: 63 68 61 6e 6e 65 6c 20 22 2d 2d 2d 2d 20 63 68 channel "---- ch
4740: 65 63 6b 69 6e 67 20 66 6f 72 20 63 6f 72 65 20 ecking for core
4750: 53 51 4c 69 74 65 20 6c 69 62 72 61 72 79 2e 2e SQLite library..
4760: 2e 20 22 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 . ".... if
4770: 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 {[catch {..
4780: 20 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74 20 object
4790: 69 6e 76 6f 6b 65 20 2d 66 6c 61 67 73 20 2b 4e invoke -flags +N
47a0: 6f 6e 50 75 62 6c 69 63 20 53 79 73 74 65 6d 2e onPublic System.
47b0: 44 61 74 61 2e 53 51 4c 69 74 65 2e 53 51 4c 69 Data.SQLite.SQLi
47c0: 74 65 33 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 te3 \..
47d0: 20 20 20 20 20 53 51 4c 69 74 65 56 65 72 73 69 SQLiteVersi
47e0: 6f 6e 7d 20 76 65 72 73 69 6f 6e 5d 20 3d 3d 20 on} version] ==
47f0: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 0} then {..
4800: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 #.. #
4810: 4e 4f 54 45 3a 20 41 74 74 65 6d 70 74 20 74 6f NOTE: Attempt to
4820: 20 71 75 65 72 79 20 74 68 65 20 46 6f 73 73 69 query the Fossi
4830: 6c 20 73 6f 75 72 63 65 20 69 64 65 6e 74 69 66 l source identif
4840: 69 65 72 20 66 6f 72 20 74 68 65 20 53 51 4c 69 ier for the SQLi
4850: 74 65 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 te.. #
4860: 20 20 20 20 63 6f 72 65 20 6c 69 62 72 61 72 79 core library
4870: 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 ... #..
4880: 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 if {[catch
4890: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 {..
48a0: 20 20 20 20 6f 62 6a 65 63 74 20 69 6e 76 6f 6b object invok
48b0: 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 e -flags +NonPub
48c0: 6c 69 63 20 53 79 73 74 65 6d 2e 44 61 74 61 2e lic System.Data.
48d0: 53 51 4c 69 74 65 2e 53 51 4c 69 74 65 33 20 5c SQLite.SQLite3 \
48e0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
48f0: 20 20 53 51 4c 69 74 65 53 6f 75 72 63 65 49 64 SQLiteSourceId
4900: 7d 20 73 6f 75 72 63 65 49 64 5d 7d 20 74 68 65 } sourceId]} the
4910: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23 n {.. #
4920: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f .. # NO
4930: 54 45 3a 20 57 65 20 66 61 69 6c 65 64 20 74 6f TE: We failed to
4940: 20 71 75 65 72 79 20 74 68 65 20 46 6f 73 73 69 query the Fossi
4950: 6c 20 73 6f 75 72 63 65 20 69 64 65 6e 74 69 66 l source identif
4960: 69 65 72 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 ier...
4970: 23 0d 0a 20 20 20 20 20 20 20 20 20 20 73 65 74 #.. set
4980: 20 73 6f 75 72 63 65 49 64 20 75 6e 6b 6e 6f 77 sourceId unknow
4990: 6e 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a n.. }....
49a0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #..
49b0: 20 20 20 23 20 4e 4f 54 45 3a 20 59 65 73 2c 20 # NOTE: Yes,
49c0: 74 68 65 20 53 51 4c 69 74 65 20 63 6f 72 65 20 the SQLite core
49d0: 6c 69 62 72 61 72 79 20 61 70 70 65 61 72 73 20 library appears
49e0: 74 6f 20 62 65 20 61 76 61 69 6c 61 62 6c 65 2e to be available.
49f0: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #..
4a00: 20 20 20 20 20 61 64 64 43 6f 6e 73 74 72 61 69 addConstrai
4a10: 6e 74 20 53 51 4c 69 74 65 0d 0a 0d 0a 20 20 20 nt SQLite....
4a20: 20 20 20 20 20 74 70 75 74 73 20 24 63 68 61 6e tputs $chan
4a30: 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 nel [appendArgs
4a40: 22 79 65 73 20 28 22 20 24 76 65 72 73 69 6f 6e "yes (" $version
4a50: 20 22 20 22 20 24 73 6f 75 72 63 65 49 64 20 22 " " $sourceId "
4a60: 29 5c 6e 22 5d 0d 0a 20 20 20 20 20 20 7d 20 65 )\n"].. } e
4a70: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 74 lse {.. t
4a80: 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 6e 6f puts $channel no
4a90: 5c 6e 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 \n.. }..
4aa0: 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 }..... proc
4ab0: 63 68 65 63 6b 46 6f 72 53 51 4c 69 74 65 44 65 checkForSQLiteDe
4ac0: 66 69 6e 65 43 6f 6e 73 74 61 6e 74 20 7b 20 63 fineConstant { c
4ad0: 68 61 6e 6e 65 6c 20 6e 61 6d 65 20 7d 20 7b 0d hannel name } {.
4ae0: 0a 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68 . tputs $ch
4af0: 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 annel [appendArg
4b00: 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 22 s \.. "
4b10: 2d 2d 2d 2d 20 63 68 65 63 6b 69 6e 67 20 66 6f ---- checking fo
4b20: 72 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 r System.Data.SQ
4b30: 4c 69 74 65 20 64 65 66 69 6e 65 20 63 6f 6e 73 Lite define cons
4b40: 74 61 6e 74 20 5c 22 22 20 24 6e 61 6d 65 20 5c tant \"" $name \
4b50: 0d 0a 20 20 20 20 20 20 20 20 20 20 22 5c 22 2e .. "\".
4b60: 2e 2e 20 22 5d 0d 0a 0d 0a 20 20 20 20 20 20 69 .. "].... i
4b70: 66 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20 f {[catch {..
4b80: 20 20 20 20 20 20 20 20 20 20 20 6f 62 6a 65 63 objec
4b90: 74 20 69 6e 76 6f 6b 65 20 2d 66 6c 61 67 73 20 t invoke -flags
4ba0: 2b 4e 6f 6e 50 75 62 6c 69 63 20 53 79 73 74 65 +NonPublic Syste
4bb0: 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 53 51 m.Data.SQLite.SQ
4bc0: 4c 69 74 65 33 20 5c 0d 0a 20 20 20 20 20 20 20 Lite3 \..
4bd0: 20 20 20 20 20 20 20 44 65 66 69 6e 65 43 6f 6e DefineCon
4be0: 73 74 61 6e 74 73 7d 20 64 65 66 69 6e 65 43 6f stants} defineCo
4bf0: 6e 73 74 61 6e 74 73 5d 20 3d 3d 20 30 7d 20 74 nstants] == 0} t
4c00: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 69 hen {.. i
4c10: 66 20 7b 5b 6c 73 65 61 72 63 68 20 2d 65 78 61 f {[lsearch -exa
4c20: 63 74 20 2d 6e 6f 63 61 73 65 20 24 64 65 66 69 ct -nocase $defi
4c30: 6e 65 43 6f 6e 73 74 61 6e 74 73 20 24 6e 61 6d neConstants $nam
4c40: 65 5d 20 21 3d 20 2d 31 7d 20 74 68 65 6e 20 7b e] != -1} then {
4c50: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 .. #..
4c60: 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a # NOTE:
4c70: 20 59 65 73 2c 20 74 68 69 73 20 64 65 66 69 6e Yes, this defin
4c80: 65 20 63 6f 6e 73 74 61 6e 74 20 77 61 73 20 65 e constant was e
4c90: 6e 61 62 6c 65 64 20 77 68 65 6e 20 74 68 65 20 nabled when the
4ca0: 6d 61 6e 61 67 65 64 0d 0a 20 20 20 20 20 20 20 managed..
4cb0: 20 20 20 23 20 20 20 20 20 20 20 61 73 73 65 6d # assem
4cc0: 62 6c 79 20 77 61 73 20 63 6f 6d 70 69 6c 65 64 bly was compiled
4cd0: 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a ... #..
4ce0: 20 20 20 20 20 20 20 20 20 20 61 64 64 43 6f 6e addCon
4cf0: 73 74 72 61 69 6e 74 20 5b 61 70 70 65 6e 64 41 straint [appendA
4d00: 72 67 73 20 64 65 66 69 6e 65 43 6f 6e 73 74 61 rgs defineConsta
4d10: 6e 74 2e 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 nt.System.Data.S
4d20: 51 4c 69 74 65 2e 20 24 6e 61 6d 65 5d 0d 0a 0d QLite. $name]...
4d30: 0a 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 . tputs
4d40: 20 24 63 68 61 6e 6e 65 6c 20 79 65 73 5c 6e 0d $channel yes\n.
4d50: 0a 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 . } else
4d60: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70 75 {.. tpu
4d70: 74 73 20 24 63 68 61 6e 6e 65 6c 20 6e 6f 5c 6e ts $channel no\n
4d80: 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 .. }..
4d90: 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 } else {..
4da0: 20 20 20 20 20 74 70 75 74 73 20 24 63 68 61 6e tputs $chan
4db0: 6e 65 6c 20 65 72 72 6f 72 5c 6e 0d 0a 20 20 20 nel error\n..
4dc0: 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a }.. }.....
4dd0: 20 20 20 20 70 72 6f 63 20 67 65 74 44 61 74 65 proc getDate
4de0: 54 69 6d 65 46 6f 72 6d 61 74 20 7b 7d 20 7b 0d TimeFormat {} {.
4df0: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 . #..
4e00: 23 20 4e 4f 54 45 3a 20 54 68 69 73 20 70 72 6f # NOTE: This pro
4e10: 63 65 64 75 72 65 20 73 69 6d 70 6c 79 20 72 65 cedure simply re
4e20: 74 75 72 6e 73 20 74 68 65 20 22 64 65 66 61 75 turns the "defau
4e30: 6c 74 22 20 44 61 74 65 54 69 6d 65 20 66 6f 72 lt" DateTime for
4e40: 6d 61 74 20 75 73 65 64 0d 0a 20 20 20 20 20 20 mat used..
4e50: 23 20 20 20 20 20 20 20 62 79 20 74 68 65 20 74 # by the t
4e60: 65 73 74 20 73 75 69 74 65 2e 0d 0a 20 20 20 20 est suite...
4e70: 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b #.. if {[
4e80: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 64 61 info exists ::da
4e90: 74 65 74 69 6d 65 5f 66 6f 72 6d 61 74 5d 20 26 tetime_format] &
4ea0: 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 5b & \.. [
4eb0: 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 3a string length $:
4ec0: 3a 64 61 74 65 74 69 6d 65 5f 66 6f 72 6d 61 74 :datetime_format
4ed0: 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 ] > 0} then {..
4ee0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
4ef0: 20 20 23 20 4e 4f 54 45 3a 20 52 65 74 75 72 6e # NOTE: Return
4f00: 20 74 68 65 20 6d 61 6e 75 61 6c 6c 79 20 6f 76 the manually ov
4f10: 65 72 72 69 64 64 65 6e 20 76 61 6c 75 65 20 66 erridden value f
4f20: 6f 72 20 74 68 65 20 44 61 74 65 54 69 6d 65 20 or the DateTime
4f30: 66 6f 72 6d 61 74 2e 0d 0a 20 20 20 20 20 20 20 format...
4f40: 20 23 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 #.. retu
4f50: 72 6e 20 24 3a 3a 64 61 74 65 74 69 6d 65 5f 66 rn $::datetime_f
4f60: 6f 72 6d 61 74 0d 0a 20 20 20 20 20 20 7d 20 65 ormat.. } e
4f70: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 lse {.. #
4f80: 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 .. # NOTE
4f90: 3a 20 52 65 74 75 72 6e 20 61 6e 20 49 53 4f 38 : Return an ISO8
4fa0: 36 30 31 20 44 61 74 65 54 69 6d 65 20 66 6f 72 601 DateTime for
4fb0: 6d 61 74 20 63 6f 6d 70 61 74 69 62 6c 65 20 77 mat compatible w
4fc0: 69 74 68 20 53 51 4c 69 74 65 2c 0d 0a 20 20 20 ith SQLite,..
4fd0: 20 20 20 20 20 23 20 20 20 20 20 20 20 53 79 73 # Sys
4fe0: 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2c tem.Data.SQLite,
4ff0: 20 61 6e 64 20 73 75 69 74 61 62 6c 65 20 66 6f and suitable fo
5000: 72 20 72 6f 75 6e 64 2d 74 72 69 70 70 69 6e 67 r round-tripping
5010: 20 77 69 74 68 20 74 68 65 0d 0a 20 20 20 20 20 with the..
5020: 20 20 20 23 20 20 20 20 20 20 20 44 61 74 65 54 # DateT
5030: 69 6d 65 20 63 6c 61 73 73 20 6f 66 20 74 68 65 ime class of the
5040: 20 66 72 61 6d 65 77 6f 72 6b 2e 20 20 49 66 20 framework. If
5050: 74 68 69 73 20 76 61 6c 75 65 20 69 73 20 63 68 this value is ch
5060: 61 6e 67 65 64 2c 0d 0a 20 20 20 20 20 20 20 20 anged,..
5070: 23 20 20 20 20 20 20 20 76 61 72 69 6f 75 73 20 # various
5080: 74 65 73 74 73 20 6d 61 79 20 66 61 69 6c 2e 0d tests may fail..
5090: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #..
50a0: 20 20 20 20 72 65 74 75 72 6e 20 22 79 79 79 79 return "yyyy
50b0: 2d 4d 4d 2d 64 64 20 48 48 3a 6d 6d 3a 73 73 2e -MM-dd HH:mm:ss.
50c0: 46 46 46 46 46 46 46 4b 22 0d 0a 20 20 20 20 20 FFFFFFFK"..
50d0: 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 }.. }.....
50e0: 20 20 70 72 6f 63 20 65 6e 75 6d 65 72 61 62 6c proc enumerabl
50f0: 65 54 6f 4c 69 73 74 20 7b 20 65 6e 75 6d 65 72 eToList { enumer
5100: 61 62 6c 65 20 7d 20 7b 0d 0a 20 20 20 20 20 20 able } {..
5110: 73 65 74 20 72 65 73 75 6c 74 20 5b 6c 69 73 74 set result [list
5120: 5d 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b ].... if {[
5130: 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 65 string length $e
5140: 6e 75 6d 65 72 61 62 6c 65 5d 20 3d 3d 20 30 20 numerable] == 0
5150: 7c 7c 20 24 65 6e 75 6d 65 72 61 62 6c 65 20 65 || $enumerable e
5160: 71 20 22 6e 75 6c 6c 22 7d 20 74 68 65 6e 20 7b q "null"} then {
5170: 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e .. return
5180: 20 24 72 65 73 75 6c 74 0d 0a 20 20 20 20 20 20 $result..
5190: 7d 0d 0a 0d 0a 20 20 20 20 20 20 6f 62 6a 65 63 }.... objec
51a0: 74 20 66 6f 72 65 61 63 68 20 2d 61 6c 69 61 73 t foreach -alias
51b0: 20 69 74 65 6d 20 24 65 6e 75 6d 65 72 61 62 6c item $enumerabl
51c0: 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 69 66 20 e {.. if
51d0: 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 {[string length
51e0: 24 69 74 65 6d 5d 20 3e 20 30 7d 20 74 68 65 6e $item] > 0} then
51f0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 6c 61 {.. la
5200: 70 70 65 6e 64 20 72 65 73 75 6c 74 20 5b 24 69 ppend result [$i
5210: 74 65 6d 20 54 6f 53 74 72 69 6e 67 5d 0d 0a 20 tem ToString]..
5220: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 }..
5230: 7d 0d 0a 0d 0a 20 20 20 20 20 20 72 65 74 75 72 }.... retur
5240: 6e 20 24 72 65 73 75 6c 74 0d 0a 20 20 20 20 7d n $result.. }
5250: 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 63 61 ..... proc ca
5260: 74 63 68 41 6e 64 52 65 74 75 72 6e 20 7b 20 73 tchAndReturn { s
5270: 63 72 69 70 74 20 7b 73 74 61 63 6b 54 72 61 63 cript {stackTrac
5280: 65 20 66 61 6c 73 65 7d 20 7b 73 74 72 69 63 74 e false} {strict
5290: 20 74 72 75 65 7d 20 7d 20 7b 0d 0a 20 20 20 20 true} } {..
52a0: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT
52b0: 45 3a 20 45 76 61 6c 75 61 74 65 20 74 68 65 20 E: Evaluate the
52c0: 73 63 72 69 70 74 20 70 72 6f 76 69 64 65 64 20 script provided
52d0: 62 79 20 6f 75 72 20 63 61 6c 6c 65 72 20 69 6e by our caller in
52e0: 20 74 68 65 69 72 20 63 6f 6e 74 65 78 74 2c 0d their context,.
52f0: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 63 . # c
5300: 61 70 74 75 72 69 6e 67 20 62 6f 74 68 20 74 68 apturing both th
5310: 65 20 72 65 73 75 6c 74 20 61 6e 64 20 74 68 65 e result and the
5320: 20 72 65 74 75 72 6e 20 63 6f 64 65 2e 0d 0a 20 return code...
5330: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 73 65 #.. se
5340: 74 20 63 6f 64 65 20 5b 63 61 74 63 68 20 7b 75 t code [catch {u
5350: 70 6c 65 76 65 6c 20 31 20 24 73 63 72 69 70 74 plevel 1 $script
5360: 7d 20 72 65 73 75 6c 74 5d 0d 0a 0d 0a 20 20 20 } result]....
5370: 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f #.. # NO
5380: 54 45 3a 20 44 69 64 20 74 68 65 20 73 63 72 69 TE: Did the scri
5390: 70 74 20 70 72 6f 76 69 64 65 64 20 62 79 20 6f pt provided by o
53a0: 75 72 20 63 61 6c 6c 65 72 20 4e 4f 54 20 72 61 ur caller NOT ra
53b0: 69 73 65 20 61 6e 20 65 72 72 6f 72 3f 0d 0a 20 ise an error?..
53c0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 #.. if
53d0: 20 7b 24 73 74 72 69 63 74 20 26 26 20 24 63 6f {$strict && $co
53e0: 64 65 20 3d 3d 20 30 20 7c 7c 20 21 24 73 74 72 de == 0 || !$str
53f0: 69 63 74 20 26 26 20 24 63 6f 64 65 20 21 3d 20 ict && $code !=
5400: 31 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 1} then {..
5410: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 #.. #
5420: 4e 4f 54 45 3a 20 53 75 63 63 65 73 73 2e 20 20 NOTE: Success.
5430: 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 77 69 Return a list wi
5440: 74 68 20 74 68 65 20 72 65 74 75 72 6e 20 63 6f th the return co
5450: 64 65 20 61 6e 64 20 74 68 65 20 72 65 73 75 6c de and the resul
5460: 74 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 t... #..
5470: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 5b 6c return [l
5480: 69 73 74 20 24 63 6f 64 65 20 24 72 65 73 75 6c ist $code $resul
5490: 74 5d 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 t].. } else
54a0: 69 66 20 7b 24 73 74 61 63 6b 54 72 61 63 65 7d if {$stackTrace}
54b0: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 then {..
54c0: 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f #.. # NO
54d0: 54 45 3a 20 46 61 69 6c 75 72 65 2e 20 20 4f 75 TE: Failure. Ou
54e0: 72 20 63 61 6c 6c 65 72 20 77 61 6e 74 73 20 61 r caller wants a
54f0: 20 66 75 6c 6c 20 73 74 61 63 6b 20 74 72 61 63 full stack trac
5500: 65 20 28 69 66 20 61 70 70 6c 69 63 61 62 6c 65 e (if applicable
5510: 29 2c 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 ),.. #
5520: 20 20 20 20 72 65 74 75 72 6e 20 61 20 6c 69 73 return a lis
5530: 74 20 77 69 74 68 20 74 68 65 20 72 65 74 75 72 t with the retur
5540: 6e 20 63 6f 64 65 20 61 6e 64 20 74 68 65 20 72 n code and the r
5550: 65 73 75 6c 74 20 76 65 72 62 61 74 69 6d 2e 0d esult verbatim..
5560: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #..
5570: 20 20 20 20 72 65 74 75 72 6e 20 5b 6c 69 73 74 return [list
5580: 20 24 63 6f 64 65 20 24 72 65 73 75 6c 74 5d 0d $code $result].
5590: 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d . } else {.
55a0: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #..
55b0: 20 20 20 20 23 20 4e 4f 54 45 3a 20 46 61 69 6c # NOTE: Fail
55c0: 75 72 65 2e 20 20 4f 75 72 20 63 61 6c 6c 65 72 ure. Our caller
55d0: 20 64 6f 65 73 20 6e 6f 74 20 77 61 6e 74 20 61 does not want a
55e0: 20 66 75 6c 6c 20 73 74 61 63 6b 20 74 72 61 63 full stack trac
55f0: 65 20 28 69 66 0d 0a 20 20 20 20 20 20 20 20 23 e (if.. #
5600: 20 20 20 20 20 20 20 61 70 70 6c 69 63 61 62 6c applicabl
5610: 65 29 2c 20 72 65 74 75 72 6e 20 61 20 6c 69 73 e), return a lis
5620: 74 20 77 69 74 68 20 74 68 65 20 72 65 74 75 72 t with the retur
5630: 6e 20 63 6f 64 65 2c 20 74 68 65 20 65 72 72 6f n code, the erro
5640: 72 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 r.. #
5650: 20 20 20 63 6f 64 65 20 66 6f 72 20 74 68 65 20 code for the
5660: 69 6e 74 65 72 70 72 65 74 65 72 2c 20 61 6e 64 interpreter, and
5670: 20 74 68 65 20 65 72 72 6f 72 20 6d 65 73 73 61 the error messa
5680: 67 65 20 75 70 20 74 6f 20 74 68 65 0d 0a 20 20 ge up to the..
5690: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 70 6f # po
56a0: 69 6e 74 20 77 68 65 72 65 20 74 68 65 20 73 74 int where the st
56b0: 61 63 6b 20 74 72 61 63 65 20 73 68 6f 75 6c 64 ack trace should
56c0: 20 73 74 61 72 74 2e 0d 0a 20 20 20 20 20 20 20 start...
56d0: 20 23 0d 0a 20 20 20 20 20 20 20 20 73 65 74 20 #.. set
56e0: 69 6e 64 65 78 20 5b 73 74 72 69 6e 67 20 66 69 index [string fi
56f0: 72 73 74 20 22 20 20 20 61 74 20 22 20 24 72 65 rst " at " $re
5700: 73 75 6c 74 5d 3b 20 23 20 48 41 43 4b 3a 20 52 sult]; # HACK: R
5710: 65 6c 69 61 62 6c 65 3f 0d 0a 0d 0a 20 20 20 20 eliable?....
5720: 20 20 20 20 72 65 74 75 72 6e 20 5b 6c 69 73 74 return [list
5730: 20 24 63 6f 64 65 20 24 3a 3a 65 72 72 6f 72 43 $code $::errorC
5740: 6f 64 65 20 5b 65 78 70 72 20 7b 24 69 6e 64 65 ode [expr {$inde
5750: 78 20 21 3d 20 2d 31 20 3f 20 5c 0d 0a 20 20 20 x != -1 ? \..
5760: 20 20 20 20 20 20 20 20 20 5b 73 74 72 69 6e 67 [string
5770: 20 74 72 69 6d 20 5b 73 74 72 69 6e 67 20 72 61 trim [string ra
5780: 6e 67 65 20 24 72 65 73 75 6c 74 20 30 20 24 69 nge $result 0 $i
5790: 6e 64 65 78 5d 5d 20 3a 20 24 72 65 73 75 6c 74 ndex]] : $result
57a0: 7d 5d 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 }]].. }..
57b0: 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 }..... proc
57c0: 20 63 6f 6d 70 69 6c 65 43 53 68 61 72 70 57 69 compileCSharpWi
57d0: 74 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 th {..
57e0: 20 20 74 65 78 74 20 6d 65 6d 6f 72 79 20 73 79 text memory sy
57f0: 6d 62 6f 6c 73 20 73 74 72 69 63 74 20 72 65 73 mbols strict res
5800: 75 6c 74 73 56 61 72 4e 61 6d 65 20 65 72 72 6f ultsVarName erro
5810: 72 73 56 61 72 4e 61 6d 65 20 66 69 6c 65 4e 61 rsVarName fileNa
5820: 6d 65 73 0d 0a 20 20 20 20 20 20 20 20 20 20 20 mes..
5830: 20 61 72 67 73 20 7d 20 7b 0d 0a 20 20 20 20 20 args } {..
5840: 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 #.. # NOTE
5850: 3a 20 53 69 6e 63 65 20 77 65 20 61 72 65 20 67 : Since we are g
5860: 6f 69 6e 67 20 74 6f 20 75 73 65 20 74 68 69 73 oing to use this
5870: 20 6d 65 74 68 6f 64 20 6e 61 6d 65 20 61 20 6c method name a l
5880: 6f 74 2c 20 61 73 73 69 67 6e 20 69 74 20 74 6f ot, assign it to
5890: 20 61 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 a.. #
58a0: 20 20 76 61 72 69 61 62 6c 65 20 66 69 72 73 74 variable first
58b0: 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 ... #..
58c0: 20 20 73 65 74 20 61 64 64 20 52 65 66 65 72 65 set add Refere
58d0: 6e 63 65 64 41 73 73 65 6d 62 6c 69 65 73 2e 41 ncedAssemblies.A
58e0: 64 64 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 dd.... #..
58f0: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 43 72 65 # NOTE: Cre
5900: 61 74 65 20 74 68 65 20 62 61 73 65 20 63 6f 6d ate the base com
5910: 6d 61 6e 64 20 74 6f 20 65 76 61 6c 75 61 74 65 mand to evaluate
5920: 20 61 6e 64 20 61 64 64 20 74 68 65 20 70 72 6f and add the pro
5930: 70 65 72 74 79 20 73 65 74 74 69 6e 67 73 0d 0a perty settings..
5940: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 74 68 # th
5950: 61 74 20 61 72 65 20 61 6c 6d 6f 73 74 20 61 6c at are almost al
5960: 77 61 79 73 20 6e 65 65 64 65 64 20 62 79 20 6f ways needed by o
5970: 75 72 20 75 6e 69 74 20 74 65 73 74 73 20 28 69 ur unit tests (i
5980: 2e 65 2e 20 74 68 65 20 53 79 73 74 65 6d 0d 0a .e. the System..
5990: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 61 6e # an
59a0: 64 20 53 79 73 74 65 6d 2e 44 61 74 61 20 61 73 d System.Data as
59b0: 73 65 6d 62 6c 79 20 72 65 66 65 72 65 6e 63 65 sembly reference
59c0: 73 29 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 s)... #..
59d0: 20 20 20 20 73 65 74 20 63 6f 6d 6d 61 6e 64 20 set command
59e0: 5b 6c 69 73 74 20 63 6f 6d 70 69 6c 65 43 53 68 [list compileCSh
59f0: 61 72 70 20 24 74 65 78 74 20 24 6d 65 6d 6f 72 arp $text $memor
5a00: 79 20 24 73 79 6d 62 6f 6c 73 20 24 73 74 72 69 y $symbols $stri
5a10: 63 74 20 72 65 73 75 6c 74 73 20 5c 0d 0a 20 20 ct results \..
5a20: 20 20 20 20 20 20 20 20 65 72 72 6f 72 73 20 24 errors $
5a30: 61 64 64 20 53 79 73 74 65 6d 2e 64 6c 6c 20 24 add System.dll $
5a40: 61 64 64 20 53 79 73 74 65 6d 2e 44 61 74 61 2e add System.Data.
5a50: 64 6c 6c 20 24 61 64 64 20 53 79 73 74 65 6d 2e dll $add System.
5a60: 58 6d 6c 2e 64 6c 6c 5d 0d 0a 0d 0a 20 20 20 20 Xml.dll]....
5a70: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT
5a80: 45 3a 20 41 64 64 20 61 6c 6c 20 74 68 65 20 70 E: Add all the p
5a90: 72 6f 76 69 64 65 64 20 66 69 6c 65 20 6e 61 6d rovided file nam
5aa0: 65 73 20 61 73 20 61 73 73 65 6d 62 6c 79 20 72 es as assembly r
5ab0: 65 66 65 72 65 6e 63 65 73 2e 0d 0a 20 20 20 20 eferences...
5ac0: 20 20 23 0d 0a 20 20 20 20 20 20 66 6f 72 65 61 #.. forea
5ad0: 63 68 20 66 69 6c 65 4e 61 6d 65 20 24 66 69 6c ch fileName $fil
5ae0: 65 4e 61 6d 65 73 20 7b 0d 0a 20 20 20 20 20 20 eNames {..
5af0: 20 20 6c 61 70 70 65 6e 64 20 63 6f 6d 6d 61 6e lappend comman
5b00: 64 20 24 61 64 64 20 5b 67 65 74 42 69 6e 61 72 d $add [getBinar
5b10: 79 46 69 6c 65 4e 61 6d 65 20 24 66 69 6c 65 4e yFileName $fileN
5b20: 61 6d 65 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d ame].. }...
5b30: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 . #..
5b40: 23 20 4e 4f 54 45 3a 20 41 64 64 20 74 68 65 20 # NOTE: Add the
5b50: 65 78 74 72 61 20 61 72 67 75 6d 65 6e 74 73 2c extra arguments,
5b60: 20 69 66 20 61 6e 79 2c 20 74 6f 20 74 68 65 20 if any, to the
5b70: 63 6f 6d 6d 61 6e 64 20 74 6f 20 65 76 61 6c 75 command to evalu
5b80: 61 74 65 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 ate... #..
5b90: 20 20 20 20 20 65 76 61 6c 20 6c 61 70 70 65 6e eval lappen
5ba0: 64 20 63 6f 6d 6d 61 6e 64 20 24 61 72 67 73 0d d command $args.
5bb0: 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 ... #..
5bc0: 20 20 23 20 4e 4f 54 45 3a 20 41 6c 69 61 73 20 # NOTE: Alias
5bd0: 74 68 65 20 63 6f 6d 70 69 6c 65 72 20 6c 6f 63 the compiler loc
5be0: 61 6c 20 72 65 73 75 6c 74 73 20 61 6e 64 20 65 al results and e
5bf0: 72 72 6f 72 73 20 76 61 72 69 61 62 6c 65 73 20 rrors variables
5c00: 74 6f 20 74 68 65 0d 0a 20 20 20 20 20 20 23 20 to the.. #
5c10: 20 20 20 20 20 20 76 61 72 69 61 62 6c 65 20 6e variable n
5c20: 61 6d 65 73 20 70 72 6f 76 69 64 65 64 20 62 79 ames provided by
5c30: 20 6f 75 72 20 63 61 6c 6c 65 72 2e 0d 0a 20 20 our caller...
5c40: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 75 70 76 #.. upv
5c50: 61 72 20 31 20 24 72 65 73 75 6c 74 73 56 61 72 ar 1 $resultsVar
5c60: 4e 61 6d 65 20 72 65 73 75 6c 74 73 0d 0a 20 20 Name results..
5c70: 20 20 20 20 75 70 76 61 72 20 31 20 24 65 72 72 upvar 1 $err
5c80: 6f 72 73 56 61 72 4e 61 6d 65 20 65 72 72 6f 72 orsVarName error
5c90: 73 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 s.... #..
5ca0: 20 20 20 20 23 20 4e 4f 54 45 3a 20 45 76 61 6c # NOTE: Eval
5cb0: 75 61 74 65 20 74 68 65 20 63 6f 6e 73 74 72 75 uate the constru
5cc0: 63 74 65 64 20 5b 63 6f 6d 70 69 6c 65 43 53 68 cted [compileCSh
5cd0: 61 72 70 5d 20 63 6f 6d 6d 61 6e 64 20 61 6e 64 arp] command and
5ce0: 20 72 65 74 75 72 6e 20 74 68 65 0d 0a 20 20 20 return the..
5cf0: 20 20 20 23 20 20 20 20 20 20 20 72 65 73 75 6c # resul
5d00: 74 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 t... #..
5d10: 20 20 20 65 76 61 6c 20 24 63 6f 6d 6d 61 6e 64 eval $command
5d20: 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 .. }.....
5d30: 70 72 6f 63 20 69 73 4d 65 6d 6f 72 79 44 62 20 proc isMemoryDb
5d40: 7b 20 66 69 6c 65 4e 61 6d 65 20 7d 20 7b 0d 0a { fileName } {..
5d50: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 #.. #
5d60: 20 4e 4f 54 45 3a 20 49 73 20 74 68 65 20 73 70 NOTE: Is the sp
5d70: 65 63 69 66 69 65 64 20 64 61 74 61 62 61 73 65 ecified database
5d80: 20 66 69 6c 65 20 6e 61 6d 65 20 72 65 61 6c 6c file name reall
5d90: 79 20 61 6e 20 69 6e 2d 6d 65 6d 6f 72 79 20 64 y an in-memory d
5da0: 61 74 61 62 61 73 65 3f 0d 0a 20 20 20 20 20 20 atabase?..
5db0: 23 0d 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 #.. return
5dc0: 5b 65 78 70 72 20 7b 24 66 69 6c 65 4e 61 6d 65 [expr {$fileName
5dd0: 20 65 71 20 22 3a 6d 65 6d 6f 72 79 3a 22 20 7c eq ":memory:" |
5de0: 7c 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 5b | \.. [
5df0: 73 74 72 69 6e 67 20 72 61 6e 67 65 20 24 66 69 string range $fi
5e00: 6c 65 4e 61 6d 65 20 30 20 31 32 5d 20 65 71 20 leName 0 12] eq
5e10: 22 66 69 6c 65 3a 3a 6d 65 6d 6f 72 79 3a 22 7d "file::memory:"}
5e20: 5d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 ].. }.....
5e30: 20 70 72 6f 63 20 73 65 74 75 70 44 62 20 7b 0d proc setupDb {.
5e40: 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6c . fil
5e50: 65 4e 61 6d 65 20 7b 6d 6f 64 65 20 22 22 7d 20 eName {mode ""}
5e60: 7b 64 61 74 65 54 69 6d 65 46 6f 72 6d 61 74 20 {dateTimeFormat
5e70: 22 22 7d 20 7b 64 61 74 65 54 69 6d 65 4b 69 6e ""} {dateTimeKin
5e80: 64 20 22 22 7d 20 7b 66 6c 61 67 73 20 22 22 7d d ""} {flags ""}
5e90: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 7b 65 .. {e
5ea0: 78 74 72 61 20 22 22 7d 20 7b 71 75 61 6c 69 66 xtra ""} {qualif
5eb0: 79 20 74 72 75 65 7d 20 7b 64 65 6c 65 74 65 20 y true} {delete
5ec0: 74 72 75 65 7d 20 7b 75 72 69 20 66 61 6c 73 65 true} {uri false
5ed0: 7d 20 7b 76 61 72 4e 61 6d 65 20 64 62 7d 20 7d } {varName db} }
5ee0: 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 {.. #..
5ef0: 20 20 20 23 20 4e 4f 54 45 3a 20 46 69 72 73 74 # NOTE: First
5f00: 2c 20 73 65 65 20 69 66 20 6f 75 72 20 63 61 6c , see if our cal
5f10: 6c 65 72 20 68 61 73 20 72 65 71 75 65 73 74 65 ler has requeste
5f20: 64 20 61 6e 20 69 6e 2d 6d 65 6d 6f 72 79 20 64 d an in-memory d
5f30: 61 74 61 62 61 73 65 2e 0d 0a 20 20 20 20 20 20 atabase...
5f40: 23 0d 0a 20 20 20 20 20 20 73 65 74 20 69 73 4d #.. set isM
5f50: 65 6d 6f 72 79 20 5b 69 73 4d 65 6d 6f 72 79 44 emory [isMemoryD
5f60: 62 20 24 66 69 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a b $fileName]....
5f70: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 #.. #
5f80: 20 4e 4f 54 45 3a 20 46 6f 72 20 6e 6f 77 2c 20 NOTE: For now,
5f90: 61 6c 6c 20 74 65 73 74 20 64 61 74 61 62 61 73 all test databas
5fa0: 65 73 20 75 73 65 64 20 62 79 20 74 68 65 20 74 es used by the t
5fb0: 65 73 74 20 73 75 69 74 65 20 61 72 65 20 70 6c est suite are pl
5fc0: 61 63 65 64 20 69 6e 74 6f 0d 0a 20 20 20 20 20 aced into..
5fd0: 20 23 20 20 20 20 20 20 20 74 68 65 20 74 65 6d # the tem
5fe0: 70 6f 72 61 72 79 20 64 69 72 65 63 74 6f 72 79 porary directory
5ff0: 2e 20 20 45 61 63 68 20 64 61 74 61 62 61 73 65 . Each database
6000: 20 75 73 65 64 20 62 79 20 61 20 74 65 73 74 20 used by a test
6010: 73 68 6f 75 6c 64 20 62 65 0d 0a 20 20 20 20 20 should be..
6020: 20 23 20 20 20 20 20 20 20 63 6c 65 61 6e 65 64 # cleaned
6030: 20 75 70 20 62 79 20 74 68 61 74 20 74 65 73 74 up by that test
6040: 20 75 73 69 6e 67 20 74 68 65 20 22 63 6c 65 61 using the "clea
6050: 6e 75 70 44 62 22 20 70 72 6f 63 65 64 75 72 65 nupDb" procedure
6060: 2c 20 62 65 6c 6f 77 2e 0d 0a 20 20 20 20 20 20 , below...
6070: 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 21 24 69 #.. if {!$i
6080: 73 4d 65 6d 6f 72 79 20 26 26 20 24 71 75 61 6c sMemory && $qual
6090: 69 66 79 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 ify} then {..
60a0: 20 20 20 20 20 73 65 74 20 66 69 6c 65 4e 61 6d set fileNam
60b0: 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 67 65 e [file join [ge
60c0: 74 44 61 74 61 62 61 73 65 44 69 72 65 63 74 6f tDatabaseDirecto
60d0: 72 79 5d 20 5b 66 69 6c 65 20 74 61 69 6c 20 24 ry] [file tail $
60e0: 66 69 6c 65 4e 61 6d 65 5d 5d 0d 0a 20 20 20 20 fileName]]..
60f0: 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a }.... #..
6100: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 42 79 # NOTE: By
6110: 20 64 65 66 61 75 6c 74 2c 20 64 65 6c 65 74 65 default, delete
6120: 20 61 6e 79 20 70 72 65 2d 65 78 69 73 74 69 6e any pre-existin
6130: 67 20 64 61 74 61 62 61 73 65 20 77 69 74 68 20 g database with
6140: 74 68 65 20 73 61 6d 65 20 66 69 6c 65 0d 0a 20 the same file..
6150: 20 20 20 20 20 23 20 20 20 20 20 20 20 6e 61 6d # nam
6160: 65 20 69 66 20 69 74 20 63 75 72 72 65 6e 74 6c e if it currentl
6170: 79 20 65 78 69 73 74 73 2e 0d 0a 20 20 20 20 20 y exists...
6180: 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 21 24 #.. if {!$
6190: 69 73 4d 65 6d 6f 72 79 20 26 26 20 24 64 65 6c isMemory && $del
61a0: 65 74 65 20 26 26 20 5b 66 69 6c 65 20 65 78 69 ete && [file exi
61b0: 73 74 73 20 24 66 69 6c 65 4e 61 6d 65 5d 7d 20 sts $fileName]}
61c0: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 then {..
61d0: 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT
61e0: 45 3a 20 41 74 74 65 6d 70 74 20 74 6f 20 64 65 E: Attempt to de
61f0: 6c 65 74 65 20 61 6e 79 20 70 72 65 2d 65 78 69 lete any pre-exi
6200: 73 74 69 6e 67 20 64 61 74 61 62 61 73 65 20 77 sting database w
6210: 69 74 68 20 74 68 65 20 73 61 6d 65 20 66 69 6c ith the same fil
6220: 65 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 e.. #
6230: 20 20 20 6e 61 6d 65 2e 0d 0a 20 20 20 20 20 20 name...
6240: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 69 66 20 #.. if
6250: 7b 5b 63 61 74 63 68 20 7b 66 69 6c 65 20 64 65 {[catch {file de
6260: 6c 65 74 65 20 24 66 69 6c 65 4e 61 6d 65 7d 20 lete $fileName}
6270: 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a error]} then {..
6280: 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 #..
6290: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 57 # NOTE: W
62a0: 65 20 73 6f 6d 65 68 6f 77 20 66 61 69 6c 65 64 e somehow failed
62b0: 20 74 6f 20 64 65 6c 65 74 65 20 74 68 65 20 66 to delete the f
62c0: 69 6c 65 2c 20 72 65 70 6f 72 74 20 77 68 79 2e ile, report why.
62d0: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 .. #..
62e0: 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 tputs $
62f0: 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b ::test_channel [
6300: 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 appendArgs \..
6310: 20 20 20 20 20 20 20 20 20 20 20 20 22 3d 3d 3d "===
6320: 3d 20 57 41 52 4e 49 4e 47 3a 20 66 61 69 6c 65 = WARNING: faile
6330: 64 20 74 6f 20 64 65 6c 65 74 65 20 64 61 74 61 d to delete data
6340: 62 61 73 65 20 66 69 6c 65 20 5c 22 22 20 24 66 base file \"" $f
6350: 69 6c 65 4e 61 6d 65 20 5c 0d 0a 20 20 20 20 20 ileName \..
6360: 20 20 20 20 20 20 20 20 20 22 5c 22 20 64 75 72 "\" dur
6370: 69 6e 67 20 73 65 74 75 70 2c 20 65 72 72 6f 72 ing setup, error
6380: 3a 20 22 20 5c 6e 5c 74 20 24 65 72 72 6f 72 20 : " \n\t $error
6390: 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a \n].. }..
63a0: 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 }....
63b0: 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 #.. # NOTE
63c0: 3a 20 52 65 66 65 72 20 74 6f 20 74 68 65 20 73 : Refer to the s
63d0: 70 65 63 69 66 69 65 64 20 76 61 72 69 61 62 6c pecified variabl
63e0: 65 20 28 65 2e 67 2e 20 22 64 62 22 29 20 69 6e e (e.g. "db") in
63f0: 20 74 68 65 20 63 6f 6e 74 65 78 74 20 6f 66 20 the context of
6400: 6f 75 72 0d 0a 20 20 20 20 20 20 23 20 20 20 20 our.. #
6410: 20 20 20 63 61 6c 6c 65 72 2e 20 20 54 68 65 20 caller. The
6420: 68 61 6e 64 6c 65 20 74 6f 20 74 68 65 20 6f 70 handle to the op
6430: 65 6e 65 64 20 64 61 74 61 62 61 73 65 20 77 69 ened database wi
6440: 6c 6c 20 62 65 20 73 74 6f 72 65 64 20 74 68 65 ll be stored the
6450: 72 65 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 re... #..
6460: 20 20 20 20 75 70 76 61 72 20 31 20 24 76 61 72 upvar 1 $var
6470: 4e 61 6d 65 20 64 62 0d 0a 0d 0a 20 20 20 20 20 Name db....
6480: 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 #.. # NOTE
6490: 3a 20 53 74 61 72 74 20 62 75 69 6c 64 69 6e 67 : Start building
64a0: 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 the connection
64b0: 73 74 72 69 6e 67 2e 20 20 54 68 65 20 6f 6e 6c string. The onl
64c0: 79 20 72 65 71 75 69 72 65 64 20 70 6f 72 74 69 y required porti
64d0: 6f 6e 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 on.. #
64e0: 20 20 6f 66 20 74 68 65 20 63 6f 6e 6e 65 63 74 of the connect
64f0: 69 6f 6e 20 73 74 72 69 6e 67 20 69 73 20 74 68 ion string is th
6500: 65 20 64 61 74 61 20 73 6f 75 72 63 65 2c 20 77 e data source, w
6510: 68 69 63 68 20 63 6f 6e 74 61 69 6e 73 20 74 68 hich contains th
6520: 65 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 e.. #
6530: 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 20 6e database file n
6540: 61 6d 65 20 69 74 73 65 6c 66 2e 20 20 49 66 20 ame itself. If
6550: 6f 75 72 20 63 61 6c 6c 65 72 20 77 61 6e 74 73 our caller wants
6560: 20 74 6f 20 75 73 65 20 61 20 55 52 49 20 61 73 to use a URI as
6570: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. #
6580: 74 68 65 20 64 61 74 61 20 73 6f 75 72 63 65 2c the data source,
6590: 20 75 73 65 20 74 68 65 20 46 75 6c 6c 55 72 69 use the FullUri
65a0: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 72 69 connection stri
65b0: 6e 67 20 70 72 6f 70 65 72 74 79 20 74 6f 0d 0a ng property to..
65c0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 70 72 # pr
65d0: 65 76 65 6e 74 20 74 68 65 20 64 61 74 61 20 73 event the data s
65e0: 6f 75 72 63 65 20 73 74 72 69 6e 67 20 66 72 6f ource string fro
65f0: 6d 20 62 65 69 6e 67 20 6d 61 6e 67 6c 65 64 2e m being mangled.
6600: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #..
6610: 20 69 66 20 7b 24 75 72 69 7d 20 74 68 65 6e 20 if {$uri} then
6620: 7b 0d 0a 20 20 20 20 20 20 20 20 73 65 74 20 63 {.. set c
6630: 6f 6e 6e 65 63 74 69 6f 6e 20 7b 46 75 6c 6c 55 onnection {FullU
6640: 72 69 3d 24 7b 66 69 6c 65 4e 61 6d 65 7d 7d 0d ri=${fileName}}.
6650: 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d . } else {.
6660: 0a 20 20 20 20 20 20 20 20 73 65 74 20 63 6f 6e . set con
6670: 6e 65 63 74 69 6f 6e 20 7b 44 61 74 61 20 53 6f nection {Data So
6680: 75 72 63 65 3d 24 7b 66 69 6c 65 4e 61 6d 65 7d urce=${fileName}
6690: 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 }.. }....
66a0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e #.. # N
66b0: 4f 54 45 3a 20 53 69 6e 63 65 20 74 68 69 73 20 OTE: Since this
66c0: 70 72 6f 63 65 64 75 72 65 20 68 61 73 20 6e 6f procedure has no
66d0: 20 73 70 65 63 69 61 6c 20 6b 6e 6f 77 6c 65 64 special knowled
66e0: 67 65 20 6f 66 20 77 68 61 74 20 74 68 65 20 64 ge of what the d
66f0: 65 66 61 75 6c 74 0d 0a 20 20 20 20 20 20 23 20 efault.. #
6700: 20 20 20 20 20 20 73 65 74 74 69 6e 67 20 69 73 setting is
6710: 20 66 6f 72 20 74 68 65 20 54 6f 46 75 6c 6c 50 for the ToFullP
6720: 61 74 68 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 ath connection s
6730: 74 72 69 6e 67 20 70 72 6f 70 65 72 79 2c 20 61 tring propery, a
6740: 6c 77 61 79 73 0d 0a 20 20 20 20 20 20 23 20 20 lways.. #
6750: 20 20 20 20 20 61 64 64 20 74 68 65 20 76 61 6c add the val
6760: 75 65 20 77 65 20 6b 6e 6f 77 20 61 62 6f 75 74 ue we know about
6770: 20 74 6f 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 to the connecti
6780: 6f 6e 20 73 74 72 69 6e 67 2e 0d 0a 20 20 20 20 on string...
6790: 20 20 23 0d 0a 20 20 20 20 20 20 61 70 70 65 6e #.. appen
67a0: 64 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 7b 3b 54 d connection {;T
67b0: 6f 46 75 6c 6c 50 61 74 68 3d 24 7b 71 75 61 6c oFullPath=${qual
67c0: 69 66 79 7d 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 ify}}.... #
67d0: 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 .. # NOTE:
67e0: 49 66 20 6f 75 72 20 63 61 6c 6c 65 72 20 73 70 If our caller sp
67f0: 65 63 69 66 69 65 64 20 61 20 6a 6f 75 72 6e 61 ecified a journa
6800: 6c 20 6d 6f 64 65 2c 20 61 64 64 20 74 68 65 20 l mode, add the
6810: 6e 65 63 65 73 73 61 72 79 20 70 6f 72 74 69 6f necessary portio
6820: 6e 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 n.. #
6830: 20 6f 66 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 of the connecti
6840: 6f 6e 20 73 74 72 69 6e 67 20 6e 6f 77 2e 0d 0a on string now...
6850: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 #.. i
6860: 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 f {[string lengt
6870: 68 20 24 6d 6f 64 65 5d 20 3e 20 30 7d 20 74 68 h $mode] > 0} th
6880: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 61 70 en {.. ap
6890: 70 65 6e 64 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 pend connection
68a0: 7b 3b 4a 6f 75 72 6e 61 6c 20 4d 6f 64 65 3d 24 {;Journal Mode=$
68b0: 7b 6d 6f 64 65 7d 7d 0d 0a 20 20 20 20 20 20 7d {mode}}.. }
68c0: 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 .... #..
68d0: 20 20 20 23 20 4e 4f 54 45 3a 20 49 66 20 6f 75 # NOTE: If ou
68e0: 72 20 63 61 6c 6c 65 72 20 73 70 65 63 69 66 69 r caller specifi
68f0: 65 64 20 61 20 44 61 74 65 54 69 6d 65 20 66 6f ed a DateTime fo
6900: 72 6d 61 74 2c 20 61 64 64 20 74 68 65 20 6e 65 rmat, add the ne
6910: 63 65 73 73 61 72 79 0d 0a 20 20 20 20 20 20 23 cessary.. #
6920: 20 20 20 20 20 20 20 70 6f 72 74 69 6f 6e 20 6f portion o
6930: 66 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e f the connection
6940: 20 73 74 72 69 6e 67 20 6e 6f 77 2e 0d 0a 20 20 string now...
6950: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 #.. if
6960: 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 {[string length
6970: 24 64 61 74 65 54 69 6d 65 46 6f 72 6d 61 74 5d $dateTimeFormat]
6980: 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 > 0} then {..
6990: 20 20 20 20 20 20 61 70 70 65 6e 64 20 63 6f 6e append con
69a0: 6e 65 63 74 69 6f 6e 20 7b 3b 44 61 74 65 54 69 nection {;DateTi
69b0: 6d 65 46 6f 72 6d 61 74 3d 24 7b 64 61 74 65 54 meFormat=${dateT
69c0: 69 6d 65 46 6f 72 6d 61 74 7d 7d 0d 0a 20 20 20 imeFormat}}..
69d0: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d }.... #.
69e0: 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 49 . # NOTE: I
69f0: 66 20 6f 75 72 20 63 61 6c 6c 65 72 20 73 70 65 f our caller spe
6a00: 63 69 66 69 65 64 20 61 20 44 61 74 65 54 69 6d cified a DateTim
6a10: 65 4b 69 6e 64 2c 20 61 64 64 20 74 68 65 20 6e eKind, add the n
6a20: 65 63 65 73 73 61 72 79 20 70 6f 72 74 69 6f 6e ecessary portion
6a30: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. #
6a40: 6f 66 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f of the connectio
6a50: 6e 20 73 74 72 69 6e 67 20 6e 6f 77 2e 0d 0a 20 n string now...
6a60: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 #.. if
6a70: 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 {[string length
6a80: 20 24 64 61 74 65 54 69 6d 65 4b 69 6e 64 5d 20 $dateTimeKind]
6a90: 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 > 0} then {..
6aa0: 20 20 20 20 20 61 70 70 65 6e 64 20 63 6f 6e 6e append conn
6ab0: 65 63 74 69 6f 6e 20 7b 3b 44 61 74 65 54 69 6d ection {;DateTim
6ac0: 65 4b 69 6e 64 3d 24 7b 64 61 74 65 54 69 6d 65 eKind=${dateTime
6ad0: 4b 69 6e 64 7d 7d 0d 0a 20 20 20 20 20 20 7d 0d Kind}}.. }.
6ae0: 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 ... #..
6af0: 20 20 23 20 4e 4f 54 45 3a 20 49 66 20 74 68 65 # NOTE: If the
6b00: 72 65 20 61 72 65 20 61 6e 79 20 67 6c 6f 62 61 re are any globa
6b10: 6c 20 28 70 65 72 20 74 65 73 74 20 72 75 6e 29 l (per test run)
6b20: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 6c 61 67 connection flag
6b30: 73 20 63 75 72 72 65 6e 74 6c 79 0d 0a 20 20 20 s currently..
6b40: 20 20 20 23 20 20 20 20 20 20 20 73 65 74 2c 20 # set,
6b50: 75 73 65 20 74 68 65 6d 20 6e 6f 77 20 28 69 2e use them now (i.
6b60: 65 2e 20 62 79 20 63 6f 6d 62 69 6e 69 6e 67 20 e. by combining
6b70: 74 68 65 6d 20 77 69 74 68 20 74 68 65 20 6f 6e them with the on
6b80: 65 73 20 66 6f 72 20 74 68 69 73 0d 0a 20 20 20 es for this..
6b90: 20 20 20 23 20 20 20 20 20 20 20 63 6f 6e 6e 65 # conne
6ba0: 63 74 69 6f 6e 29 2e 0d 0a 20 20 20 20 20 20 23 ction)... #
6bb0: 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 .. if {[inf
6bc0: 6f 20 65 78 69 73 74 73 20 3a 3a 63 6f 6e 6e 65 o exists ::conne
6bd0: 63 74 69 6f 6e 5f 66 6c 61 67 73 5d 20 26 26 20 ction_flags] &&
6be0: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 5b 73 74 \.. [st
6bf0: 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 3a 3a 63 ring length $::c
6c00: 6f 6e 6e 65 63 74 69 6f 6e 5f 66 6c 61 67 73 5d onnection_flags]
6c10: 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 > 0} then {..
6c20: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
6c30: 20 23 20 4e 4f 54 45 3a 20 53 68 6f 77 20 28 61 # NOTE: Show (a
6c40: 6e 64 20 6c 6f 67 29 20 74 68 61 74 20 77 65 20 nd log) that we
6c50: 64 65 74 65 63 74 65 64 20 73 6f 6d 65 20 67 6c detected some gl
6c60: 6f 62 61 6c 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 obal connection
6c70: 66 6c 61 67 73 2e 0d 0a 20 20 20 20 20 20 20 20 flags...
6c80: 23 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 #.. tputs
6c90: 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c $::test_channel
6ca0: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a [appendArgs \..
6cb0: 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d "---
6cc0: 2d 20 67 6c 6f 62 61 6c 20 63 6f 6e 6e 65 63 74 - global connect
6cd0: 69 6f 6e 20 66 6c 61 67 73 20 64 65 74 65 63 74 ion flags detect
6ce0: 65 64 3a 20 22 20 24 3a 3a 63 6f 6e 6e 65 63 74 ed: " $::connect
6cf0: 69 6f 6e 5f 66 6c 61 67 73 20 5c 6e 5d 0d 0a 0d ion_flags \n]...
6d00: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #..
6d10: 20 20 20 20 23 20 4e 4f 54 45 3a 20 43 6f 6d 62 # NOTE: Comb
6d20: 69 6e 65 20 61 6e 64 2f 6f 72 20 72 65 70 6c 61 ine and/or repla
6d30: 63 65 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f ce the connectio
6d40: 6e 20 66 6c 61 67 73 20 61 6e 64 20 74 68 65 6e n flags and then
6d50: 20 73 68 6f 77 20 74 68 65 0d 0a 20 20 20 20 20 show the..
6d60: 20 20 20 23 20 20 20 20 20 20 20 6e 65 77 20 76 # new v
6d70: 61 6c 75 65 2e 0d 0a 20 20 20 20 20 20 20 20 23 alue... #
6d80: 0d 0a 20 20 20 20 20 20 20 20 73 65 74 20 66 6c .. set fl
6d90: 61 67 73 20 5b 63 6f 6d 62 69 6e 65 46 6c 61 67 ags [combineFlag
6da0: 73 20 24 66 6c 61 67 73 20 24 3a 3a 63 6f 6e 6e s $flags $::conn
6db0: 65 63 74 69 6f 6e 5f 66 6c 61 67 73 5d 0d 0a 0d ection_flags]...
6dc0: 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 . tputs $
6dd0: 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b ::test_channel [
6de0: 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 appendArgs \..
6df0: 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 "----
6e00: 63 6f 6d 62 69 6e 65 64 20 63 6f 6e 6e 65 63 74 combined connect
6e10: 69 6f 6e 20 66 6c 61 67 73 20 61 72 65 3a 20 22 ion flags are: "
6e20: 20 24 66 6c 61 67 73 20 5c 6e 5d 0d 0a 20 20 20 $flags \n]..
6e30: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d }.... #.
6e40: 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 49 . # NOTE: I
6e50: 66 20 6f 75 72 20 63 61 6c 6c 65 72 20 73 70 65 f our caller spe
6e60: 63 69 66 69 65 64 20 61 20 53 51 4c 69 74 65 43 cified a SQLiteC
6e70: 6f 6e 6e 65 63 74 69 6f 6e 46 6c 61 67 73 2c 20 onnectionFlags,
6e80: 61 64 64 20 74 68 65 20 6e 65 63 65 73 73 61 72 add the necessar
6e90: 79 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 y.. #
6ea0: 20 70 6f 72 74 69 6f 6e 20 6f 66 20 74 68 65 20 portion of the
6eb0: 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 72 69 6e connection strin
6ec0: 67 20 6e 6f 77 2e 0d 0a 20 20 20 20 20 20 23 0d g now... #.
6ed0: 0a 20 20 20 20 20 20 69 66 20 7b 5b 73 74 72 69 . if {[stri
6ee0: 6e 67 20 6c 65 6e 67 74 68 20 24 66 6c 61 67 73 ng length $flags
6ef0: 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 ] > 0} then {..
6f00: 20 20 20 20 20 20 20 61 70 70 65 6e 64 20 63 6f append co
6f10: 6e 6e 65 63 74 69 6f 6e 20 7b 3b 46 6c 61 67 73 nnection {;Flags
6f20: 3d 24 7b 66 6c 61 67 73 7d 7d 0d 0a 20 20 20 20 =${flags}}..
6f30: 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a }.... #..
6f40: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 49 66 # NOTE: If
6f50: 20 6f 75 72 20 63 61 6c 6c 65 72 20 73 70 65 63 our caller spec
6f60: 69 66 69 65 64 20 61 6e 20 65 78 74 72 61 20 70 ified an extra p
6f70: 61 79 6c 6f 61 64 20 74 6f 20 74 68 65 20 63 6f ayload to the co
6f80: 6e 6e 65 63 74 69 6f 6e 20 73 74 72 69 6e 67 2c nnection string,
6f90: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. #
6fa0: 61 70 70 65 6e 64 20 69 74 20 6e 6f 77 2e 0d 0a append it now...
6fb0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 #.. i
6fc0: 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 f {[string lengt
6fd0: 68 20 24 65 78 74 72 61 5d 20 3e 20 30 7d 20 74 h $extra] > 0} t
6fe0: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 61 hen {.. a
6ff0: 70 70 65 6e 64 20 63 6f 6e 6e 65 63 74 69 6f 6e ppend connection
7000: 20 5c 3b 20 24 65 78 74 72 61 0d 0a 20 20 20 20 \; $extra..
7010: 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a }.... #..
7020: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 4f 70 # NOTE: Op
7030: 65 6e 20 74 68 65 20 64 61 74 61 62 61 73 65 20 en the database
7040: 63 6f 6e 6e 65 63 74 69 6f 6e 20 6e 6f 77 2c 20 connection now,
7050: 70 6c 61 63 69 6e 67 20 74 68 65 20 6f 70 61 71 placing the opaq
7060: 75 65 20 68 61 6e 64 6c 65 20 76 61 6c 75 65 0d ue handle value.
7070: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 69 . # i
7080: 6e 74 6f 20 74 68 65 20 76 61 72 69 61 62 6c 65 nto the variable
7090: 20 73 70 65 63 69 66 69 65 64 20 62 79 20 6f 75 specified by ou
70a0: 72 20 63 61 6c 6c 65 72 2e 0d 0a 20 20 20 20 20 r caller...
70b0: 20 23 0d 0a 20 20 20 20 20 20 73 65 74 20 64 62 #.. set db
70c0: 20 5b 73 71 6c 20 6f 70 65 6e 20 2d 74 79 70 65 [sql open -type
70d0: 20 53 51 4c 69 74 65 20 5b 73 75 62 73 74 20 24 SQLite [subst $
70e0: 63 6f 6e 6e 65 63 74 69 6f 6e 5d 5d 0d 0a 20 20 connection]]..
70f0: 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 }..... proc
7100: 20 67 65 74 44 62 43 6f 6e 6e 65 63 74 69 6f 6e getDbConnection
7110: 20 7b 20 7b 76 61 72 4e 61 6d 65 20 64 62 7d 20 { {varName db}
7120: 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 } {.. #..
7130: 20 20 20 20 23 20 4e 4f 54 45 3a 20 52 65 66 65 # NOTE: Refe
7140: 72 20 74 6f 20 74 68 65 20 73 70 65 63 69 66 69 r to the specifi
7150: 65 64 20 76 61 72 69 61 62 6c 65 20 28 65 2e 67 ed variable (e.g
7160: 2e 20 22 64 62 22 29 20 69 6e 20 74 68 65 20 63 . "db") in the c
7170: 6f 6e 74 65 78 74 20 6f 66 20 6f 75 72 0d 0a 20 ontext of our..
7180: 20 20 20 20 20 23 20 20 20 20 20 20 20 63 61 6c # cal
7190: 6c 65 72 2e 20 20 54 68 65 20 68 61 6e 64 6c 65 ler. The handle
71a0: 20 74 6f 20 74 68 65 20 64 61 74 61 62 61 73 65 to the database
71b0: 20 70 72 65 76 69 6f 75 73 6c 79 20 6f 70 65 6e previously open
71c0: 65 64 20 62 79 20 5b 73 65 74 75 70 44 62 5d 0d ed by [setupDb].
71d0: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 73 . # s
71e0: 68 6f 75 6c 64 20 62 65 20 73 74 6f 72 65 64 20 hould be stored
71f0: 74 68 65 72 65 2e 0d 0a 20 20 20 20 20 20 23 0d there... #.
7200: 0a 20 20 20 20 20 20 75 70 76 61 72 20 31 20 24 . upvar 1 $
7210: 76 61 72 4e 61 6d 65 20 64 62 0d 0a 0d 0a 20 20 varName db....
7220: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e #.. # N
7230: 4f 54 45 3a 20 54 68 69 73 20 72 65 74 75 72 6e OTE: This return
7240: 73 20 74 68 65 20 41 44 4f 2e 4e 45 54 20 49 44 s the ADO.NET ID
7250: 62 43 6f 6e 6e 65 63 74 69 6f 6e 20 6f 62 6a 65 bConnection obje
7260: 63 74 20 69 6e 73 74 61 6e 63 65 20 66 6f 72 20 ct instance for
7270: 74 68 65 0d 0a 20 20 20 20 20 20 23 20 20 20 20 the.. #
7280: 20 20 20 73 70 65 63 69 66 69 65 64 20 64 61 74 specified dat
7290: 61 62 73 65 20 68 61 6e 64 6c 65 2e 20 20 53 69 abse handle. Si
72a0: 6e 63 65 20 67 65 74 74 69 6e 67 20 74 68 69 73 nce getting this
72b0: 20 6f 62 6a 65 63 74 20 72 65 6c 69 65 73 20 75 object relies u
72c0: 70 6f 6e 0d 0a 20 20 20 20 20 20 23 20 20 20 20 pon.. #
72d0: 20 20 20 45 61 67 6c 65 20 69 6e 74 65 72 6e 61 Eagle interna
72e0: 6c 73 2c 20 67 72 65 61 74 20 63 61 72 65 20 73 ls, great care s
72f0: 68 6f 75 6c 64 20 62 65 20 74 61 6b 65 6e 20 74 hould be taken t
7300: 6f 20 61 76 6f 69 64 20 64 69 73 70 6f 73 69 6e o avoid disposin
7310: 67 20 6f 66 0d 0a 20 20 20 20 20 20 23 20 20 20 g of.. #
7320: 20 20 20 20 74 68 69 73 20 6f 62 6a 65 63 74 20 this object
7330: 6f 72 20 6f 74 68 65 72 77 69 73 65 20 70 75 74 or otherwise put
7340: 74 69 6e 67 20 69 74 20 69 6e 74 6f 20 61 6e 20 ting it into an
7350: 69 6e 76 61 6c 69 64 20 73 74 61 74 65 2e 0d 0a invalid state...
7360: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 #.. i
7370: 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 f {[info exists
7380: 64 62 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 db]} then {..
7390: 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 if {[catch
73a0: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 {..
73b0: 20 20 20 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 object invoke
73c0: 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 6c -flags +NonPubl
73d0: 69 63 20 2d 6f 62 6a 65 63 74 66 6c 61 67 73 20 ic -objectflags
73e0: 2b 4e 6f 44 69 73 70 6f 73 65 20 5c 0d 0a 20 20 +NoDispose \..
73f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 61 -a
7400: 6c 69 61 73 20 49 6e 74 65 72 70 72 65 74 65 72 lias Interpreter
7410: 2e 47 65 74 41 63 74 69 76 65 2e 63 6f 6e 6e 65 .GetActive.conne
7420: 63 74 69 6f 6e 73 20 49 74 65 6d 20 24 64 62 7d ctions Item $db}
7430: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \..
7440: 20 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e 5d 20 connection]
7450: 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 == 0} then {..
7460: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #..
7470: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 75 63 # NOTE: Suc
7480: 63 65 73 73 2c 20 72 65 74 75 72 6e 20 74 68 65 cess, return the
7490: 20 6f 70 61 71 75 65 20 6f 62 6a 65 63 74 20 68 opaque object h
74a0: 61 6e 64 6c 65 2e 0d 0a 20 20 20 20 20 20 20 20 andle...
74b0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 72 #.. r
74c0: 65 74 75 72 6e 20 24 63 6f 6e 6e 65 63 74 69 6f eturn $connectio
74d0: 6e 0d 0a 20 20 20 20 20 20 20 20 7d 20 65 6c 73 n.. } els
74e0: 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23 e {.. #
74f0: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f .. # NO
7500: 54 45 3a 20 46 61 69 6c 75 72 65 2c 20 72 65 70 TE: Failure, rep
7510: 6f 72 74 20 77 68 79 2e 0d 0a 20 20 20 20 20 20 ort why...
7520: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 #..
7530: 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 tputs $::test_c
7540: 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 hannel [appendAr
7550: 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 gs \..
7560: 20 20 20 20 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e "==== WARNIN
7570: 47 3a 20 66 61 69 6c 65 64 20 74 6f 20 67 65 74 G: failed to get
7580: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 68 61 6e 64 connection hand
7590: 6c 65 20 66 6f 72 20 64 61 74 61 62 61 73 65 20 le for database
75a0: 5c 22 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 \"" \..
75b0: 20 20 20 20 20 24 64 62 20 22 5c 22 2c 20 65 72 $db "\", er
75c0: 72 6f 72 3a 20 22 20 5c 6e 5c 74 20 24 65 72 72 ror: " \n\t $err
75d0: 6f 72 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 or \n]..
75e0: 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 }.. }..
75f0: 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 66 }..... proc f
7600: 72 65 65 44 62 43 6f 6e 6e 65 63 74 69 6f 6e 20 reeDbConnection
7610: 7b 20 7b 76 61 72 4e 61 6d 65 20 63 6f 6e 6e 65 { {varName conne
7620: 63 74 69 6f 6e 7d 20 7d 20 7b 0d 0a 20 20 20 20 ction} } {..
7630: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT
7640: 45 3a 20 52 65 66 65 72 20 74 6f 20 74 68 65 20 E: Refer to the
7650: 73 70 65 63 69 66 69 65 64 20 76 61 72 69 61 62 specified variab
7660: 6c 65 20 28 65 2e 67 2e 20 22 63 6f 6e 6e 65 63 le (e.g. "connec
7670: 74 69 6f 6e 22 29 20 69 6e 20 74 68 65 20 63 6f tion") in the co
7680: 6e 74 65 78 74 0d 0a 20 20 20 20 20 20 23 20 20 ntext.. #
7690: 20 20 20 20 20 6f 66 20 6f 75 72 20 63 61 6c 6c of our call
76a0: 65 72 2e 20 20 54 68 65 20 6f 70 61 71 75 65 20 er. The opaque
76b0: 6f 62 6a 65 63 74 20 68 61 6e 64 6c 65 20 66 6f object handle fo
76c0: 72 20 61 6e 20 41 44 4f 2e 4e 45 54 20 63 6f 6e r an ADO.NET con
76d0: 6e 65 63 74 69 6f 6e 0d 0a 20 20 20 20 20 20 23 nection.. #
76e0: 20 20 20 20 20 20 20 70 72 65 76 69 6f 75 73 6c previousl
76f0: 79 20 72 65 74 75 72 6e 65 64 20 62 79 20 5b 67 y returned by [g
7700: 65 74 44 62 43 6f 6e 6e 65 63 74 69 6f 6e 5d 20 etDbConnection]
7710: 73 68 6f 75 6c 64 20 62 65 20 73 74 6f 72 65 64 should be stored
7720: 20 74 68 65 72 65 2e 0d 0a 20 20 20 20 20 20 23 there... #
7730: 0d 0a 20 20 20 20 20 20 75 70 76 61 72 20 31 20 .. upvar 1
7740: 24 76 61 72 4e 61 6d 65 20 63 6f 6e 6e 65 63 74 $varName connect
7750: 69 6f 6e 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a ion.... #..
7760: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 41 74 # NOTE: At
7770: 74 65 6d 70 74 20 74 6f 20 72 65 6d 6f 76 65 20 tempt to remove
7780: 74 68 65 20 6f 70 61 71 75 65 20 6f 62 6a 65 63 the opaque objec
7790: 74 20 68 61 6e 64 6c 65 20 66 72 6f 6d 20 74 68 t handle from th
77a0: 65 20 69 6e 74 65 72 70 72 65 74 65 72 0d 0a 20 e interpreter..
77b0: 20 20 20 20 20 23 20 20 20 20 20 20 20 6e 6f 77 # now
77c0: 2e 20 20 54 68 69 73 20 5b 6f 62 6a 65 63 74 20 . This [object
77d0: 64 69 73 70 6f 73 65 5d 20 63 61 6c 6c 20 77 69 dispose] call wi
77e0: 6c 6c 20 6e 6f 74 20 61 63 74 75 61 6c 6c 79 20 ll not actually
77f0: 64 69 73 70 6f 73 65 20 6f 66 20 74 68 65 0d 0a dispose of the..
7800: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 75 6e # un
7810: 64 65 72 6c 79 69 6e 67 20 6f 62 6a 65 63 74 20 derlying object
7820: 62 65 63 61 75 73 65 20 74 68 65 20 2b 4e 6f 44 because the +NoD
7830: 69 73 70 6f 73 65 20 66 6c 61 67 20 77 61 73 20 ispose flag was
7840: 73 65 74 20 6f 6e 20 69 74 20 64 75 72 69 6e 67 set on it during
7850: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. #
7860: 63 72 65 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 creation of the
7870: 6f 70 61 71 75 65 20 6f 62 6a 65 63 74 20 68 61 opaque object ha
7880: 6e 64 6c 65 2e 0d 0a 20 20 20 20 20 20 23 0d 0a ndle... #..
7890: 20 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 if {[info
78a0: 65 78 69 73 74 73 20 63 6f 6e 6e 65 63 74 69 6f exists connectio
78b0: 6e 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 n] && \..
78c0: 20 20 20 5b 63 61 74 63 68 20 7b 6f 62 6a 65 63 [catch {objec
78d0: 74 20 64 69 73 70 6f 73 65 20 24 63 6f 6e 6e 65 t dispose $conne
78e0: 63 74 69 6f 6e 7d 20 65 72 72 6f 72 5d 7d 20 74 ction} error]} t
78f0: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 hen {.. #
7900: 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 .. # NOTE
7910: 3a 20 57 65 20 73 6f 6d 65 68 6f 77 20 66 61 69 : We somehow fai
7920: 6c 65 64 20 74 6f 20 72 65 6d 6f 76 65 20 74 68 led to remove th
7930: 65 20 68 61 6e 64 6c 65 2c 20 72 65 70 6f 72 74 e handle, report
7940: 20 77 68 79 2e 0d 0a 20 20 20 20 20 20 20 20 23 why... #
7950: 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20 .. tputs
7960: 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 $::test_channel
7970: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 [appendArgs \..
7980: 20 20 20 20 20 20 20 20 20 20 20 22 3d 3d 3d 3d "====
7990: 20 57 41 52 4e 49 4e 47 3a 20 66 61 69 6c 65 64 WARNING: failed
79a0: 20 74 6f 20 72 65 6d 6f 76 65 20 63 6f 6e 6e 65 to remove conne
79b0: 63 74 69 6f 6e 20 68 61 6e 64 6c 65 20 5c 22 22 ction handle \""
79c0: 20 24 63 6f 6e 6e 65 63 74 69 6f 6e 20 5c 0d 0a $connection \..
79d0: 20 20 20 20 20 20 20 20 20 20 20 20 22 5c 22 2c "\",
79e0: 20 65 72 72 6f 72 3a 20 22 20 5c 6e 5c 74 20 24 error: " \n\t $
79f0: 65 72 72 6f 72 20 5c 6e 5d 0d 0a 20 20 20 20 20 error \n]..
7a00: 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 }.. }.....
7a10: 20 20 70 72 6f 63 20 63 6c 65 61 6e 75 70 44 62 proc cleanupDb
7a20: 20 7b 20 66 69 6c 65 4e 61 6d 65 20 7b 76 61 72 { fileName {var
7a30: 4e 61 6d 65 20 64 62 7d 20 7b 63 6f 6c 6c 65 63 Name db} {collec
7a40: 74 20 74 72 75 65 7d 20 7b 71 75 61 6c 69 66 79 t true} {qualify
7a50: 20 74 72 75 65 7d 0d 0a 20 20 20 20 20 20 20 20 true}..
7a60: 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 64 65 {de
7a70: 6c 65 74 65 20 74 72 75 65 7d 20 7d 20 7b 0d 0a lete true} } {..
7a80: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 #.. #
7a90: 20 4e 4f 54 45 3a 20 41 74 74 65 6d 70 74 20 74 NOTE: Attempt t
7aa0: 6f 20 66 6f 72 63 65 20 61 6c 6c 20 70 65 6e 64 o force all pend
7ab0: 69 6e 67 20 22 67 61 72 62 61 67 65 22 20 6f 62 ing "garbage" ob
7ac0: 6a 65 63 74 73 20 74 6f 20 62 65 20 63 6f 6c 6c jects to be coll
7ad0: 65 63 74 65 64 2c 0d 0a 20 20 20 20 20 20 23 20 ected,.. #
7ae0: 20 20 20 20 20 20 69 6e 63 6c 75 64 69 6e 67 20 including
7af0: 53 51 4c 69 74 65 20 73 74 61 74 65 6d 65 6e 74 SQLite statement
7b00: 73 20 61 6e 64 20 62 61 63 6b 75 70 20 6f 62 6a s and backup obj
7b10: 65 63 74 73 3b 20 74 68 69 73 20 73 68 6f 75 6c ects; this shoul
7b20: 64 20 61 6c 6c 6f 77 0d 0a 20 20 20 20 20 20 23 d allow.. #
7b30: 20 20 20 20 20 20 20 74 68 65 20 75 6e 64 65 72 the under
7b40: 6c 79 69 6e 67 20 64 61 74 61 62 61 73 65 20 66 lying database f
7b50: 69 6c 65 20 74 6f 20 62 65 20 64 65 6c 65 74 65 ile to be delete
7b60: 64 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 d... #..
7b70: 20 20 20 69 66 20 7b 24 63 6f 6c 6c 65 63 74 20 if {$collect
7b80: 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 && \..
7b90: 5b 63 61 74 63 68 20 7b 6f 62 6a 65 63 74 20 69 [catch {object i
7ba0: 6e 76 6f 6b 65 20 47 43 20 47 65 74 54 6f 74 61 nvoke GC GetTota
7bb0: 6c 4d 65 6d 6f 72 79 20 74 72 75 65 7d 20 65 72 lMemory true} er
7bc0: 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 ror]} then {..
7bd0: 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68 61 tputs $cha
7be0: 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 nnel [appendArgs
7bf0: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \..
7c00: 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e 47 3a 20 66 "==== WARNING: f
7c10: 61 69 6c 65 64 20 66 75 6c 6c 20 67 61 72 62 61 ailed full garba
7c20: 67 65 20 63 6f 6c 6c 65 63 74 69 6f 6e 2c 20 65 ge collection, e
7c30: 72 72 6f 72 3a 20 22 20 5c 0d 0a 20 20 20 20 20 rror: " \..
7c40: 20 20 20 20 20 20 20 5c 6e 5c 74 20 24 65 72 72 \n\t $err
7c50: 6f 72 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 7d 0d or \n].. }.
7c60: 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 ... #..
7c70: 20 20 23 20 4e 4f 54 45 3a 20 52 65 66 65 72 20 # NOTE: Refer
7c80: 74 6f 20 74 68 65 20 73 70 65 63 69 66 69 65 64 to the specified
7c90: 20 76 61 72 69 61 62 6c 65 20 28 65 2e 67 2e 20 variable (e.g.
7ca0: 22 64 62 22 29 20 69 6e 20 74 68 65 20 63 6f 6e "db") in the con
7cb0: 74 65 78 74 20 6f 66 20 6f 75 72 0d 0a 20 20 20 text of our..
7cc0: 20 20 20 23 20 20 20 20 20 20 20 63 61 6c 6c 65 # calle
7cd0: 72 2e 20 20 54 68 65 20 68 61 6e 64 6c 65 20 74 r. The handle t
7ce0: 6f 20 74 68 65 20 64 61 74 61 62 61 73 65 20 70 o the database p
7cf0: 72 65 76 69 6f 75 73 6c 79 20 6f 70 65 6e 65 64 reviously opened
7d00: 20 62 79 20 5b 73 65 74 75 70 44 62 5d 0d 0a 20 by [setupDb]..
7d10: 20 20 20 20 20 23 20 20 20 20 20 20 20 73 68 6f # sho
7d20: 75 6c 64 20 62 65 20 73 74 6f 72 65 64 20 74 68 uld be stored th
7d30: 65 72 65 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 ere... #..
7d40: 20 20 20 20 20 75 70 76 61 72 20 31 20 24 76 61 upvar 1 $va
7d50: 72 4e 61 6d 65 20 64 62 0d 0a 0d 0a 20 20 20 20 rName db....
7d60: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT
7d70: 45 3a 20 43 6c 6f 73 65 20 74 68 65 20 63 6f 6e E: Close the con
7d80: 6e 65 63 74 69 6f 6e 20 74 6f 20 74 68 65 20 64 nection to the d
7d90: 61 74 61 62 61 73 65 20 6e 6f 77 2e 20 20 54 68 atabase now. Th
7da0: 69 73 20 73 68 6f 75 6c 64 20 61 6c 6c 6f 77 20 is should allow
7db0: 75 73 20 74 6f 0d 0a 20 20 20 20 20 20 23 20 20 us to.. #
7dc0: 20 20 20 20 20 64 65 6c 65 74 65 20 74 68 65 20 delete the
7dd0: 75 6e 64 65 72 6c 79 69 6e 67 20 64 61 74 61 62 underlying datab
7de0: 61 73 65 20 66 69 6c 65 2e 0d 0a 20 20 20 20 20 ase file...
7df0: 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 69 #.. if {[i
7e00: 6e 66 6f 20 65 78 69 73 74 73 20 64 62 5d 20 26 nfo exists db] &
7e10: 26 20 5b 63 61 74 63 68 20 7b 73 71 6c 20 63 6c & [catch {sql cl
7e20: 6f 73 65 20 24 64 62 7d 20 65 72 72 6f 72 5d 7d ose $db} error]}
7e30: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 then {..
7e40: 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f #.. # NO
7e50: 54 45 3a 20 57 65 20 73 6f 6d 65 68 6f 77 20 66 TE: We somehow f
7e60: 61 69 6c 65 64 20 74 6f 20 63 6c 6f 73 65 20 74 ailed to close t
7e70: 68 65 20 64 61 74 61 62 61 73 65 2c 20 72 65 70 he database, rep
7e80: 6f 72 74 20 77 68 79 2e 0d 0a 20 20 20 20 20 20 ort why...
7e90: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 74 70 75 #.. tpu
7ea0: 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e ts $::test_chann
7eb0: 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c el [appendArgs \
7ec0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 3d .. "=
7ed0: 3d 3d 3d 20 57 41 52 4e 49 4e 47 3a 20 66 61 69 === WARNING: fai
7ee0: 6c 65 64 20 74 6f 20 63 6c 6f 73 65 20 64 61 74 led to close dat
7ef0: 61 62 61 73 65 20 5c 22 22 20 24 64 62 20 22 5c abase \"" $db "\
7f00: 22 2c 20 65 72 72 6f 72 3a 20 22 20 5c 0d 0a 20 ", error: " \..
7f10: 20 20 20 20 20 20 20 20 20 20 20 5c 6e 5c 74 20 \n\t
7f20: 24 65 72 72 6f 72 20 5c 6e 5d 0d 0a 20 20 20 20 $error \n]..
7f30: 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a }.... #..
7f40: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 46 69 # NOTE: Fi
7f50: 72 73 74 2c 20 73 65 65 20 69 66 20 6f 75 72 20 rst, see if our
7f60: 63 61 6c 6c 65 72 20 68 61 73 20 72 65 71 75 65 caller has reque
7f70: 73 74 65 64 20 61 6e 20 69 6e 2d 6d 65 6d 6f 72 sted an in-memor
7f80: 79 20 64 61 74 61 62 61 73 65 2e 0d 0a 20 20 20 y database...
7f90: 20 20 20 23 0d 0a 20 20 20 20 20 20 73 65 74 20 #.. set
7fa0: 69 73 4d 65 6d 6f 72 79 20 5b 69 73 4d 65 6d 6f isMemory [isMemo
7fb0: 72 79 44 62 20 24 66 69 6c 65 4e 61 6d 65 5d 0d ryDb $fileName].
7fc0: 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 ... #..
7fd0: 20 20 23 20 4e 4f 54 45 3a 20 42 75 69 6c 64 20 # NOTE: Build
7fe0: 74 68 65 20 66 75 6c 6c 20 70 61 74 68 20 74 6f the full path to
7ff0: 20 74 68 65 20 64 61 74 61 62 61 73 65 20 66 69 the database fi
8000: 6c 65 20 6e 61 6d 65 2e 20 20 46 6f 72 20 6e 6f le name. For no
8010: 77 2c 20 61 6c 6c 20 74 65 73 74 0d 0a 20 20 20 w, all test..
8020: 20 20 20 23 20 20 20 20 20 20 20 64 61 74 61 62 # datab
8030: 61 73 65 20 66 69 6c 65 73 20 61 72 65 20 73 74 ase files are st
8040: 6f 72 65 64 20 69 6e 20 74 68 65 20 74 65 6d 70 ored in the temp
8050: 6f 72 61 72 79 20 64 69 72 65 63 74 6f 72 79 2e orary directory.
8060: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #..
8070: 20 69 66 20 7b 21 24 69 73 4d 65 6d 6f 72 79 20 if {!$isMemory
8080: 26 26 20 24 71 75 61 6c 69 66 79 7d 20 74 68 65 && $qualify} the
8090: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 73 65 74 n {.. set
80a0: 20 66 69 6c 65 4e 61 6d 65 20 5b 66 69 6c 65 20 fileName [file
80b0: 6a 6f 69 6e 20 5b 67 65 74 44 61 74 61 62 61 73 join [getDatabas
80c0: 65 44 69 72 65 63 74 6f 72 79 5d 20 5b 66 69 6c eDirectory] [fil
80d0: 65 20 74 61 69 6c 20 24 66 69 6c 65 4e 61 6d 65 e tail $fileName
80e0: 5d 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 ]].. }....
80f0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 #.. #
8100: 4e 4f 54 45 3a 20 43 68 65 63 6b 20 69 66 20 74 NOTE: Check if t
8110: 68 65 20 66 69 6c 65 20 73 74 69 6c 6c 20 65 78 he file still ex
8120: 69 73 74 73 2e 0d 0a 20 20 20 20 20 20 23 0d 0a ists... #..
8130: 20 20 20 20 20 20 69 66 20 7b 21 24 69 73 4d 65 if {!$isMe
8140: 6d 6f 72 79 20 26 26 20 24 64 65 6c 65 74 65 20 mory && $delete
8150: 26 26 20 5b 66 69 6c 65 20 65 78 69 73 74 73 20 && [file exists
8160: 24 66 69 6c 65 4e 61 6d 65 5d 7d 20 74 68 65 6e $fileName]} then
8170: 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 {.. #..
8180: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 # NOTE: S
8190: 6b 69 70 20 64 65 6c 65 74 69 6e 67 20 64 61 74 kip deleting dat
81a0: 61 62 61 73 65 20 66 69 6c 65 73 20 69 66 20 73 abase files if s
81b0: 6f 6d 65 62 6f 64 79 20 73 65 74 73 20 74 68 65 omebody sets the
81c0: 20 67 6c 6f 62 61 6c 0d 0a 20 20 20 20 20 20 20 global..
81d0: 20 23 20 20 20 20 20 20 20 76 61 72 69 61 62 6c # variabl
81e0: 65 20 74 6f 20 70 72 65 76 65 6e 74 20 69 74 2e e to prevent it.
81f0: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #..
8200: 20 20 20 20 20 69 66 20 7b 21 5b 69 6e 66 6f 20 if {![info
8210: 65 78 69 73 74 73 20 3a 3a 6e 6f 28 63 6c 65 61 exists ::no(clea
8220: 6e 75 70 44 62 46 69 6c 65 29 5d 7d 20 74 68 65 nupDbFile)]} the
8230: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23 n {.. #
8240: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f .. # NO
8250: 54 45 3a 20 41 74 74 65 6d 70 74 20 74 6f 20 64 TE: Attempt to d
8260: 65 6c 65 74 65 20 74 68 65 20 74 65 73 74 20 64 elete the test d
8270: 61 74 61 62 61 73 65 20 66 69 6c 65 20 6e 6f 77 atabase file now
8280: 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a ... #..
8290: 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 5b 73 if {[s
82a0: 65 74 20 63 6f 64 65 20 5b 63 61 74 63 68 20 7b et code [catch {
82b0: 66 69 6c 65 20 64 65 6c 65 74 65 20 24 66 69 6c file delete $fil
82c0: 65 4e 61 6d 65 7d 20 65 72 72 6f 72 5d 5d 7d 20 eName} error]]}
82d0: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 then {..
82e0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 #..
82f0: 20 20 20 23 20 4e 4f 54 45 3a 20 57 65 20 73 6f # NOTE: We so
8300: 6d 65 68 6f 77 20 66 61 69 6c 65 64 20 74 6f 20 mehow failed to
8310: 64 65 6c 65 74 65 20 74 68 65 20 66 69 6c 65 2c delete the file,
8320: 20 72 65 70 6f 72 74 20 77 68 79 2e 0d 0a 20 20 report why...
8330: 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 #..
8340: 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 tputs $
8350: 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b ::test_channel [
8360: 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 appendArgs \..
8370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3d "=
8380: 3d 3d 3d 20 57 41 52 4e 49 4e 47 3a 20 66 61 69 === WARNING: fai
8390: 6c 65 64 20 74 6f 20 64 65 6c 65 74 65 20 64 61 led to delete da
83a0: 74 61 62 61 73 65 20 66 69 6c 65 20 5c 22 22 20 tabase file \""
83b0: 24 66 69 6c 65 4e 61 6d 65 20 5c 0d 0a 20 20 20 $fileName \..
83c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5c 22 "\"
83d0: 20 64 75 72 69 6e 67 20 63 6c 65 61 6e 75 70 2c during cleanup,
83e0: 20 65 72 72 6f 72 3a 20 22 20 5c 6e 5c 74 20 24 error: " \n\t $
83f0: 65 72 72 6f 72 20 5c 6e 5d 0d 0a 20 20 20 20 20 error \n]..
8400: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 }..
8410: 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 } else {..
8420: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 #..
8430: 20 23 20 4e 4f 54 45 3a 20 53 68 6f 77 20 74 68 # NOTE: Show th
8440: 61 74 20 77 65 20 73 6b 69 70 70 65 64 20 64 65 at we skipped de
8450: 6c 65 74 69 6e 67 20 74 68 65 20 66 69 6c 65 2e leting the file.
8460: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 .. #..
8470: 20 20 20 20 20 20 20 20 20 73 65 74 20 63 6f 64 set cod
8480: 65 20 30 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 e 0....
8490: 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 tputs $::test_c
84a0: 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 hannel [appendAr
84b0: 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 gs \..
84c0: 20 20 20 20 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e "==== WARNIN
84d0: 47 3a 20 73 6b 69 70 70 65 64 20 64 65 6c 65 74 G: skipped delet
84e0: 69 6e 67 20 64 61 74 61 62 61 73 65 20 66 69 6c ing database fil
84f0: 65 20 5c 22 22 20 24 66 69 6c 65 4e 61 6d 65 20 e \"" $fileName
8500: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 \..
8510: 20 22 5c 22 20 64 75 72 69 6e 67 20 63 6c 65 61 "\" during clea
8520: 6e 75 70 5c 6e 22 5d 0d 0a 20 20 20 20 20 20 20 nup\n"]..
8530: 20 7d 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 }.. } else
8540: 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 {.. #..
8550: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 # NOTE: T
8560: 68 65 20 66 69 6c 65 20 64 6f 65 73 20 6e 6f 74 he file does not
8570: 20 65 78 69 73 74 2c 20 73 75 63 63 65 73 73 21 exist, success!
8580: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #..
8590: 20 20 20 20 20 73 65 74 20 63 6f 64 65 20 30 0d set code 0.
85a0: 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 . }....
85b0: 20 20 72 65 74 75 72 6e 20 24 63 6f 64 65 0d 0a return $code..
85c0: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 }..... pr
85d0: 6f 63 20 63 6c 65 61 6e 75 70 46 69 6c 65 20 7b oc cleanupFile {
85e0: 20 66 69 6c 65 4e 61 6d 65 20 7b 63 6f 6c 6c 65 fileName {colle
85f0: 63 74 20 74 72 75 65 7d 20 7b 66 6f 72 63 65 20 ct true} {force
8600: 66 61 6c 73 65 7d 20 7d 20 7b 0d 0a 20 20 20 20 false} } {..
8610: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT
8620: 45 3a 20 41 74 74 65 6d 70 74 20 74 6f 20 66 6f E: Attempt to fo
8630: 72 63 65 20 61 6c 6c 20 70 65 6e 64 69 6e 67 20 rce all pending
8640: 22 67 61 72 62 61 67 65 22 20 6f 62 6a 65 63 74 "garbage" object
8650: 73 20 74 6f 20 62 65 20 63 6f 6c 6c 65 63 74 65 s to be collecte
8660: 64 2c 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 d,.. #
8670: 20 20 69 6e 63 6c 75 64 69 6e 67 20 53 51 4c 69 including SQLi
8680: 74 65 20 73 74 61 74 65 6d 65 6e 74 73 20 61 6e te statements an
8690: 64 20 62 61 63 6b 75 70 20 6f 62 6a 65 63 74 73 d backup objects
86a0: 3b 20 74 68 69 73 20 73 68 6f 75 6c 64 20 61 6c ; this should al
86b0: 6c 6f 77 0d 0a 20 20 20 20 20 20 23 20 20 20 20 low.. #
86c0: 20 20 20 74 68 65 20 75 6e 64 65 72 6c 79 69 6e the underlyin
86d0: 67 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 20 g database file
86e0: 74 6f 20 62 65 20 64 65 6c 65 74 65 64 2e 0d 0a to be deleted...
86f0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 #.. i
8700: 66 20 7b 24 63 6f 6c 6c 65 63 74 20 26 26 20 5c f {$collect && \
8710: 0d 0a 20 20 20 20 20 20 20 20 20 20 5b 63 61 74 .. [cat
8720: 63 68 20 7b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b ch {object invok
8730: 65 20 47 43 20 47 65 74 54 6f 74 61 6c 4d 65 6d e GC GetTotalMem
8740: 6f 72 79 20 74 72 75 65 7d 20 65 72 72 6f 72 5d ory true} error]
8750: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {..
8760: 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c tputs $channel
8770: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a [appendArgs \..
8780: 20 20 20 20 20 20 20 20 20 20 20 20 22 3d 3d 3d "===
8790: 3d 20 57 41 52 4e 49 4e 47 3a 20 66 61 69 6c 65 = WARNING: faile
87a0: 64 20 66 75 6c 6c 20 67 61 72 62 61 67 65 20 63 d full garbage c
87b0: 6f 6c 6c 65 63 74 69 6f 6e 2c 20 65 72 72 6f 72 ollection, error
87c0: 3a 20 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 : " \..
87d0: 20 20 20 5c 6e 5c 74 20 24 65 72 72 6f 72 20 5c \n\t $error \
87e0: 6e 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 n].. }....
87f0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 #.. #
8800: 4e 4f 54 45 3a 20 43 68 65 63 6b 20 69 66 20 74 NOTE: Check if t
8810: 68 65 20 66 69 6c 65 20 73 74 69 6c 6c 20 65 78 he file still ex
8820: 69 73 74 73 2e 0d 0a 20 20 20 20 20 20 23 0d 0a ists... #..
8830: 20 20 20 20 20 20 69 66 20 7b 5b 66 69 6c 65 20 if {[file
8840: 65 78 69 73 74 73 20 24 66 69 6c 65 4e 61 6d 65 exists $fileName
8850: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 ]} then {..
8860: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 #.. #
8870: 4e 4f 54 45 3a 20 53 6b 69 70 20 64 65 6c 65 74 NOTE: Skip delet
8880: 69 6e 67 20 74 65 73 74 20 66 69 6c 65 73 20 69 ing test files i
8890: 66 20 73 6f 6d 65 62 6f 64 79 20 73 65 74 73 20 f somebody sets
88a0: 74 68 65 20 67 6c 6f 62 61 6c 20 76 61 72 69 61 the global varia
88b0: 62 6c 65 0d 0a 20 20 20 20 20 20 20 20 23 20 20 ble.. #
88c0: 20 20 20 20 20 74 6f 20 70 72 65 76 65 6e 74 20 to prevent
88d0: 69 74 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a it... #..
88e0: 20 20 20 20 20 20 20 20 69 66 20 7b 24 66 6f 72 if {$for
88f0: 63 65 20 7c 7c 20 21 5b 69 6e 66 6f 20 65 78 69 ce || ![info exi
8900: 73 74 73 20 3a 3a 6e 6f 28 63 6c 65 61 6e 75 70 sts ::no(cleanup
8910: 46 69 6c 65 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a File)]} then {..
8920: 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 #..
8930: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 41 # NOTE: A
8940: 74 74 65 6d 70 74 20 74 6f 20 64 65 6c 65 74 65 ttempt to delete
8950: 20 74 68 65 20 74 65 73 74 20 66 69 6c 65 20 6e the test file n
8960: 6f 77 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23 ow... #
8970: 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7b .. if {
8980: 5b 73 65 74 20 63 6f 64 65 20 5b 63 61 74 63 68 [set code [catch
8990: 20 7b 66 69 6c 65 20 64 65 6c 65 74 65 20 24 66 {file delete $f
89a0: 69 6c 65 4e 61 6d 65 7d 20 65 72 72 6f 72 5d 5d ileName} error]]
89b0: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {..
89c0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
89d0: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 57 65 20 # NOTE: We
89e0: 73 6f 6d 65 68 6f 77 20 66 61 69 6c 65 64 20 74 somehow failed t
89f0: 6f 20 64 65 6c 65 74 65 20 74 68 65 20 66 69 6c o delete the fil
8a00: 65 2c 20 72 65 70 6f 72 74 20 77 68 79 2e 0d 0a e, report why...
8a10: 20 20 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 #..
8a20: 20 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 tputs
8a30: 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c $::test_channel
8a40: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a [appendArgs \..
8a50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
8a60: 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e 47 3a 20 66 "==== WARNING: f
8a70: 61 69 6c 65 64 20 74 6f 20 64 65 6c 65 74 65 20 ailed to delete
8a80: 74 65 73 74 20 66 69 6c 65 20 5c 22 22 20 24 66 test file \"" $f
8a90: 69 6c 65 4e 61 6d 65 20 5c 0d 0a 20 20 20 20 20 ileName \..
8aa0: 20 20 20 20 20 20 20 20 20 20 20 22 5c 22 20 64 "\" d
8ab0: 75 72 69 6e 67 20 63 6c 65 61 6e 75 70 2c 20 65 uring cleanup, e
8ac0: 72 72 6f 72 3a 20 22 20 5c 6e 5c 74 20 24 65 72 rror: " \n\t $er
8ad0: 72 6f 72 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 ror \n]..
8ae0: 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 20 }.. }
8af0: 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 else {..
8b00: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23 #.. #
8b10: 20 4e 4f 54 45 3a 20 53 68 6f 77 20 74 68 61 74 NOTE: Show that
8b20: 20 77 65 20 73 6b 69 70 70 65 64 20 64 65 6c 65 we skipped dele
8b30: 74 69 6e 67 20 74 68 65 20 66 69 6c 65 2e 0d 0a ting the file...
8b40: 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 #..
8b50: 20 20 20 20 20 20 20 73 65 74 20 63 6f 64 65 20 set code
8b60: 30 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 74 0.... t
8b70: 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 puts $::test_cha
8b80: 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 nnel [appendArgs
8b90: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \..
8ba0: 20 20 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e 47 3a "==== WARNING:
8bb0: 20 73 6b 69 70 70 65 64 20 64 65 6c 65 74 69 6e skipped deletin
8bc0: 67 20 74 65 73 74 20 66 69 6c 65 20 5c 22 22 20 g test file \""
8bd0: 24 66 69 6c 65 4e 61 6d 65 20 5c 0d 0a 20 20 20 $fileName \..
8be0: 20 20 20 20 20 20 20 20 20 20 20 22 5c 22 20 64 "\" d
8bf0: 75 72 69 6e 67 20 63 6c 65 61 6e 75 70 5c 6e 22 uring cleanup\n"
8c00: 5d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 ].. }..
8c10: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 } else {..
8c20: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
8c30: 20 23 20 4e 4f 54 45 3a 20 54 68 65 20 66 69 6c # NOTE: The fil
8c40: 65 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 e does not exist
8c50: 2c 20 73 75 63 63 65 73 73 21 0d 0a 20 20 20 20 , success!..
8c60: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 73 #.. s
8c70: 65 74 20 63 6f 64 65 20 30 0d 0a 20 20 20 20 20 et code 0..
8c80: 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 72 65 74 75 }.... retu
8c90: 72 6e 20 24 63 6f 64 65 0d 0a 20 20 20 20 7d 0d rn $code.. }.
8ca0: 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 72 65 70 .... proc rep
8cb0: 6f 72 74 53 51 4c 69 74 65 52 65 73 6f 75 72 63 ortSQLiteResourc
8cc0: 65 73 20 7b 20 63 68 61 6e 6e 65 6c 20 7b 71 75 es { channel {qu
8cd0: 69 65 74 20 66 61 6c 73 65 7d 20 7b 63 6f 6c 6c iet false} {coll
8ce0: 65 63 74 20 74 72 75 65 7d 20 7d 20 7b 0d 0a 20 ect true} } {..
8cf0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 #.. #
8d00: 4e 4f 54 45 3a 20 53 6b 69 70 20 61 6c 6c 20 6f NOTE: Skip all o
8d10: 75 74 70 75 74 20 69 66 20 77 65 20 61 72 65 20 utput if we are
8d20: 72 75 6e 6e 69 6e 67 20 69 6e 20 22 71 75 69 65 running in "quie
8d30: 74 22 20 6d 6f 64 65 2e 0d 0a 20 20 20 20 20 20 t" mode...
8d40: 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 21 24 71 #.. if {!$q
8d50: 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 uiet} then {..
8d60: 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68 61 tputs $cha
8d70: 6e 6e 65 6c 20 22 2d 2d 2d 2d 20 63 75 72 72 65 nnel "---- curre
8d80: 6e 74 20 6d 65 6d 6f 72 79 20 69 6e 20 75 73 65 nt memory in use
8d90: 20 62 79 20 53 51 4c 69 74 65 2e 2e 2e 20 22 0d by SQLite... ".
8da0: 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 . }....
8db0: 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 6f 62 if {[catch {ob
8dc0: 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d 66 6c 61 ject invoke -fla
8dd0: 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 5c 0d gs +NonPublic \.
8de0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 . S
8df0: 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 ystem.Data.SQLit
8e00: 65 2e 55 6e 73 61 66 65 4e 61 74 69 76 65 4d 65 e.UnsafeNativeMe
8e10: 74 68 6f 64 73 20 5c 0d 0a 20 20 20 20 20 20 20 thods \..
8e20: 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 6d sqlite3_m
8e30: 65 6d 6f 72 79 5f 75 73 65 64 7d 20 6d 65 6d 6f emory_used} memo
8e40: 72 79 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b ry] == 0} then {
8e50: 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 21 24 .. if {!$
8e60: 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 quiet} then {..
8e70: 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 tputs $
8e80: 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 channel [appendA
8e90: 72 67 73 20 24 6d 65 6d 6f 72 79 20 22 20 62 79 rgs $memory " by
8ea0: 74 65 73 5c 6e 22 5d 0d 0a 20 20 20 20 20 20 20 tes\n"]..
8eb0: 20 7d 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 }.. } else
8ec0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 {.. #..
8ed0: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 4d # NOTE: M
8ee0: 61 79 62 65 20 74 68 65 20 53 51 4c 69 74 65 20 aybe the SQLite
8ef0: 6e 61 74 69 76 65 20 6c 69 62 72 61 72 79 20 69 native library i
8f00: 73 20 75 6e 61 76 61 69 6c 61 62 6c 65 3f 0d 0a s unavailable?..
8f10: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #..
8f20: 20 20 20 73 65 74 20 6d 65 6d 6f 72 79 20 75 6e set memory un
8f30: 6b 6e 6f 77 6e 0d 0a 0d 0a 20 20 20 20 20 20 20 known....
8f40: 20 69 66 20 7b 21 24 71 75 69 65 74 7d 20 74 68 if {!$quiet} th
8f50: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 en {..
8f60: 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 5b tputs $channel [
8f70: 61 70 70 65 6e 64 41 72 67 73 20 24 6d 65 6d 6f appendArgs $memo
8f80: 72 79 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 ry \n]..
8f90: 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 }.. }....
8fa0: 20 20 20 20 73 65 74 20 72 65 73 75 6c 74 20 24 set result $
8fb0: 6d 65 6d 6f 72 79 3b 20 23 20 4e 4f 54 45 3a 20 memory; # NOTE:
8fc0: 52 65 74 75 72 6e 20 6d 65 6d 6f 72 79 20 69 6e Return memory in
8fd0: 2d 75 73 65 20 74 6f 20 6f 75 72 20 63 61 6c 6c -use to our call
8fe0: 65 72 2e 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 er..... if
8ff0: 7b 21 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b {!$quiet} then {
9000: 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20 .. tputs
9010: 24 63 68 61 6e 6e 65 6c 20 22 2d 2d 2d 2d 20 6d $channel "---- m
9020: 61 78 69 6d 75 6d 20 6d 65 6d 6f 72 79 20 69 6e aximum memory in
9030: 20 75 73 65 20 62 79 20 53 51 4c 69 74 65 2e 2e use by SQLite..
9040: 2e 20 22 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a . ".. }....
9050: 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 if {[catch
9060: 20 7b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 {object invoke
9070: 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 -flags +NonPubli
9080: 63 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 c \..
9090: 20 20 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 System.Data.S
90a0: 51 4c 69 74 65 2e 55 6e 73 61 66 65 4e 61 74 69 QLite.UnsafeNati
90b0: 76 65 4d 65 74 68 6f 64 73 20 5c 0d 0a 20 20 20 veMethods \..
90c0: 20 20 20 20 20 20 20 20 20 20 20 73 71 6c 69 74 sqlit
90d0: 65 33 5f 6d 65 6d 6f 72 79 5f 68 69 67 68 77 61 e3_memory_highwa
90e0: 74 65 72 20 30 7d 20 6d 65 6d 6f 72 79 5d 20 3d ter 0} memory] =
90f0: 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 = 0} then {..
9100: 20 20 20 20 20 69 66 20 7b 21 24 71 75 69 65 74 if {!$quiet
9110: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {..
9120: 20 20 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e tputs $chann
9130: 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 24 el [appendArgs $
9140: 6d 65 6d 6f 72 79 20 22 20 62 79 74 65 73 5c 6e memory " bytes\n
9150: 22 5d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 "].. }..
9160: 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 } else {..
9170: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
9180: 20 20 23 20 4e 4f 54 45 3a 20 4d 61 79 62 65 20 # NOTE: Maybe
9190: 74 68 65 20 53 51 4c 69 74 65 20 6e 61 74 69 76 the SQLite nativ
91a0: 65 20 6c 69 62 72 61 72 79 20 69 73 20 75 6e 61 e library is una
91b0: 76 61 69 6c 61 62 6c 65 3f 0d 0a 20 20 20 20 20 vailable?..
91c0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 73 65 #.. se
91d0: 74 20 6d 65 6d 6f 72 79 20 75 6e 6b 6e 6f 77 6e t memory unknown
91e0: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b .... if {
91f0: 21 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d !$quiet} then {.
9200: 0a 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 . tputs
9210: 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e $channel [appen
9220: 64 41 72 67 73 20 24 6d 65 6d 6f 72 79 20 5c 6e dArgs $memory \n
9230: 5d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 ].. }..
9240: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 69 }.... i
9250: 66 20 7b 24 63 6f 6c 6c 65 63 74 7d 20 74 68 65 f {$collect} the
9260: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 69 66 20 n {.. if
9270: 7b 5b 63 61 74 63 68 20 7b 6f 62 6a 65 63 74 20 {[catch {object
9280: 69 6e 76 6f 6b 65 20 47 43 20 47 65 74 54 6f 74 invoke GC GetTot
9290: 61 6c 4d 65 6d 6f 72 79 20 74 72 75 65 7d 20 65 alMemory true} e
92a0: 72 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 rror]} then {..
92b0: 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 tputs $
92c0: 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 channel [appendA
92d0: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 rgs \..
92e0: 20 20 20 20 20 22 3d 3d 3d 3d 20 57 41 52 4e 49 "==== WARNI
92f0: 4e 47 3a 20 66 61 69 6c 65 64 20 66 75 6c 6c 20 NG: failed full
9300: 67 61 72 62 61 67 65 20 63 6f 6c 6c 65 63 74 69 garbage collecti
9310: 6f 6e 2c 20 65 72 72 6f 72 3a 20 22 20 5c 0d 0a on, error: " \..
9320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 6e \n
9330: 5c 74 20 24 65 72 72 6f 72 20 5c 6e 5d 0d 0a 20 \t $error \n]..
9340: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 }..
9350: 7d 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 21 }.... if {!
9360: 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a $quiet} then {..
9370: 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63 tputs $c
9380: 68 61 6e 6e 65 6c 20 22 2d 2d 2d 2d 20 63 75 72 hannel "---- cur
9390: 72 65 6e 74 20 6d 65 6d 6f 72 79 20 69 6e 20 75 rent memory in u
93a0: 73 65 20 62 79 20 74 68 65 20 43 4c 52 2e 2e 2e se by the CLR...
93b0: 20 22 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 ".. }....
93c0: 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 if {[catch
93d0: 7b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 47 {object invoke G
93e0: 43 20 47 65 74 54 6f 74 61 6c 4d 65 6d 6f 72 79 C GetTotalMemory
93f0: 20 66 61 6c 73 65 7d 20 6d 65 6d 6f 72 79 5d 20 false} memory]
9400: 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 == 0} then {..
9410: 20 20 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e if {[strin
9420: 67 20 69 73 20 69 6e 74 65 67 65 72 20 2d 73 74 g is integer -st
9430: 72 69 63 74 20 24 6d 65 6d 6f 72 79 5d 7d 20 74 rict $memory]} t
9440: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 hen {..
9450: 20 69 66 20 7b 21 24 71 75 69 65 74 7d 20 74 68 if {!$quiet} th
9460: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 en {..
9470: 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c tputs $channel
9480: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 24 6d 65 [appendArgs $me
9490: 6d 6f 72 79 20 22 20 62 79 74 65 73 5c 6e 22 5d mory " bytes\n"]
94a0: 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 .. }..
94b0: 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d } else {.
94c0: 0a 20 20 20 20 20 20 20 20 20 20 73 65 74 20 6d . set m
94d0: 65 6d 6f 72 79 20 69 6e 76 61 6c 69 64 0d 0a 0d emory invalid...
94e0: 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 21 . if {!
94f0: 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a $quiet} then {..
9500: 20 20 20 20 20 20 20 20 20 20 20 20 74 70 75 74 tput
9510: 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 s $channel [appe
9520: 6e 64 41 72 67 73 20 24 6d 65 6d 6f 72 79 20 5c ndArgs $memory \
9530: 6e 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d n].. }.
9540: 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 . }..
9550: 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 } else {..
9560: 20 20 20 20 73 65 74 20 6d 65 6d 6f 72 79 20 75 set memory u
9570: 6e 6b 6e 6f 77 6e 0d 0a 0d 0a 20 20 20 20 20 20 nknown....
9580: 20 20 69 66 20 7b 21 24 71 75 69 65 74 7d 20 74 if {!$quiet} t
9590: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 hen {..
95a0: 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 tputs $channel
95b0: 5b 61 70 70 65 6e 64 41 72 67 73 20 24 6d 65 6d [appendArgs $mem
95c0: 6f 72 79 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 ory \n]..
95d0: 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 }.. }....
95e0: 20 20 20 20 20 72 65 74 75 72 6e 20 24 72 65 73 return $res
95f0: 75 6c 74 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 ult.. }.....
9600: 20 20 20 70 72 6f 63 20 72 75 6e 53 51 4c 69 74 proc runSQLit
9610: 65 54 65 73 74 50 72 6f 6c 6f 67 75 65 20 7b 7d eTestPrologue {}
9620: 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 {.. #..
9630: 20 20 20 23 20 4e 4f 54 45 3a 20 53 6b 69 70 20 # NOTE: Skip
9640: 72 75 6e 6e 69 6e 67 20 6f 75 72 20 63 75 73 74 running our cust
9650: 6f 6d 20 70 72 6f 6c 6f 67 75 65 20 69 66 20 74 om prologue if t
9660: 68 65 20 6d 61 69 6e 20 6f 6e 65 20 68 61 73 20 he main one has
9670: 62 65 65 6e 20 73 6b 69 70 70 65 64 2e 0d 0a 20 been skipped...
9680: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 #.. if
9690: 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 {![info exists
96a0: 3a 3a 6e 6f 28 70 72 6f 6c 6f 67 75 65 2e 65 61 ::no(prologue.ea
96b0: 67 6c 65 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 gle)]} then {..
96c0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
96d0: 20 20 23 20 4e 4f 54 45 3a 20 53 6b 69 70 20 61 # NOTE: Skip a
96e0: 6c 6c 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 ll System.Data.S
96f0: 51 4c 69 74 65 20 72 65 6c 61 74 65 64 20 66 69 QLite related fi
9700: 6c 65 20 68 61 6e 64 6c 69 6e 67 20 28 64 65 6c le handling (del
9710: 65 74 69 6e 67 2c 0d 0a 20 20 20 20 20 20 20 20 eting,..
9720: 23 20 20 20 20 20 20 20 63 6f 70 79 69 6e 67 2c # copying,
9730: 20 61 6e 64 20 6c 6f 61 64 69 6e 67 29 20 69 66 and loading) if
9740: 20 77 65 20 61 72 65 20 73 6f 20 69 6e 73 74 72 we are so instr
9750: 75 63 74 65 64 2e 0d 0a 20 20 20 20 20 20 20 20 ucted...
9760: 23 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 21 #.. if {!
9770: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 6e [info exists ::n
9780: 6f 28 73 71 6c 69 74 65 46 69 6c 65 73 29 5d 7d o(sqliteFiles)]}
9790: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 then {..
97a0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 #..
97b0: 23 20 4e 4f 54 45 3a 20 53 6b 69 70 20 74 72 79 # NOTE: Skip try
97c0: 69 6e 67 20 74 6f 20 64 65 6c 65 74 65 20 61 6e ing to delete an
97d0: 79 20 66 69 6c 65 73 20 69 66 20 77 65 20 61 72 y files if we ar
97e0: 65 20 73 6f 20 69 6e 73 74 72 75 63 74 65 64 2e e so instructed.
97f0: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 .. #..
9800: 20 20 20 20 20 20 20 20 20 69 66 20 7b 21 5b 69 if {![i
9810: 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 6e 6f 28 nfo exists ::no(
9820: 64 65 6c 65 74 65 53 71 6c 69 74 65 46 69 6c 65 deleteSqliteFile
9830: 73 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 s)]} then {..
9840: 20 20 20 20 20 20 20 20 20 74 72 79 44 65 6c 65 tryDele
9850: 74 65 41 73 73 65 6d 62 6c 79 20 73 71 6c 69 74 teAssembly sqlit
9860: 65 33 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 20 20 e3.dll..
9870: 20 20 20 20 72 65 6d 6f 76 65 43 6f 6e 73 74 72 removeConstr
9880: 61 69 6e 74 20 66 69 6c 65 5f 73 71 6c 69 74 65 aint file_sqlite
9890: 33 2e 64 6c 6c 0d 0a 0d 0a 20 20 20 20 20 20 20 3.dll....
98a0: 20 20 20 20 20 74 72 79 44 65 6c 65 74 65 41 73 tryDeleteAs
98b0: 73 65 6d 62 6c 79 20 53 51 4c 69 74 65 2e 49 6e sembly SQLite.In
98c0: 74 65 72 6f 70 2e 64 6c 6c 0d 0a 20 20 20 20 20 terop.dll..
98d0: 20 20 20 20 20 20 20 72 65 6d 6f 76 65 43 6f 6e removeCon
98e0: 73 74 72 61 69 6e 74 20 66 69 6c 65 5f 53 51 4c straint file_SQL
98f0: 69 74 65 2e 49 6e 74 65 72 6f 70 2e 64 6c 6c 0d ite.Interop.dll.
9900: 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 ... t
9910: 72 79 44 65 6c 65 74 65 41 73 73 65 6d 62 6c 79 ryDeleteAssembly
9920: 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c System.Data.SQL
9930: 69 74 65 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 20 ite.dll..
9940: 20 20 20 20 20 72 65 6d 6f 76 65 43 6f 6e 73 74 removeConst
9950: 72 61 69 6e 74 20 66 69 6c 65 5f 53 79 73 74 65 raint file_Syste
9960: 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 64 6c m.Data.SQLite.dl
9970: 6c 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 l....
9980: 20 74 72 79 44 65 6c 65 74 65 41 73 73 65 6d 62 tryDeleteAssemb
9990: 6c 79 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 ly System.Data.S
99a0: 51 4c 69 74 65 2e 4c 69 6e 71 2e 64 6c 6c 0d 0a QLite.Linq.dll..
99b0: 20 20 20 20 20 20 20 20 20 20 20 20 72 65 6d 6f remo
99c0: 76 65 43 6f 6e 73 74 72 61 69 6e 74 20 66 69 6c veConstraint fil
99d0: 65 5f 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 e_System.Data.SQ
99e0: 4c 69 74 65 2e 4c 69 6e 71 2e 64 6c 6c 0d 0a 20 Lite.Linq.dll..
99f0: 20 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 }....
9a00: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #..
9a10: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 6b 69 # NOTE: Ski
9a20: 70 20 74 72 79 69 6e 67 20 74 6f 20 63 6f 70 79 p trying to copy
9a30: 20 61 6e 79 20 66 69 6c 65 73 20 69 66 20 77 65 any files if we
9a40: 20 61 72 65 20 73 6f 20 69 6e 73 74 72 75 63 74 are so instruct
9a50: 65 64 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23 ed... #
9a60: 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7b .. if {
9a70: 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a ![info exists ::
9a80: 6e 6f 28 63 6f 70 79 53 71 6c 69 74 65 46 69 6c no(copySqliteFil
9a90: 65 73 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 es)]} then {..
9aa0: 20 20 20 20 20 20 20 20 20 20 74 72 79 43 6f 70 tryCop
9ab0: 79 41 73 73 65 6d 62 6c 79 20 73 71 6c 69 74 65 yAssembly sqlite
9ac0: 33 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 20 20 20 3.dll..
9ad0: 20 20 20 74 72 79 43 6f 70 79 41 73 73 65 6d 62 tryCopyAssemb
9ae0: 6c 79 20 53 51 4c 69 74 65 2e 49 6e 74 65 72 6f ly SQLite.Intero
9af0: 70 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 20 20 20 p.dll..
9b00: 20 20 20 74 72 79 43 6f 70 79 41 73 73 65 6d 62 tryCopyAssemb
9b10: 6c 79 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 ly System.Data.S
9b20: 51 4c 69 74 65 2e 64 6c 6c 0d 0a 20 20 20 20 20 QLite.dll..
9b30: 20 20 20 20 20 20 20 74 72 79 43 6f 70 79 41 73 tryCopyAs
9b40: 73 65 6d 62 6c 79 20 53 79 73 74 65 6d 2e 44 61 sembly System.Da
9b50: 74 61 2e 53 51 4c 69 74 65 2e 4c 69 6e 71 2e 64 ta.SQLite.Linq.d
9b60: 6c 6c 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d ll.. }.
9b70: 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a ... #..
9b80: 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 # NOTE
9b90: 3a 20 53 6b 69 70 20 74 72 79 69 6e 67 20 74 6f : Skip trying to
9ba0: 20 6c 6f 61 64 20 61 6e 79 20 66 69 6c 65 73 20 load any files
9bb0: 69 66 20 77 65 20 61 72 65 20 73 6f 20 69 6e 73 if we are so ins
9bc0: 74 72 75 63 74 65 64 2e 0d 0a 20 20 20 20 20 20 tructed...
9bd0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 #..
9be0: 20 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 if {![info exis
9bf0: 74 73 20 3a 3a 6e 6f 28 6c 6f 61 64 53 71 6c 69 ts ::no(loadSqli
9c00: 74 65 46 69 6c 65 73 29 5d 7d 20 74 68 65 6e 20 teFiles)]} then
9c10: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 {.. t
9c20: 72 79 4c 6f 61 64 41 73 73 65 6d 62 6c 79 20 53 ryLoadAssembly S
9c30: 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 ystem.Data.SQLit
9c40: 65 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 20 20 20 e.dll..
9c50: 20 20 20 74 72 79 4c 6f 61 64 41 73 73 65 6d 62 tryLoadAssemb
9c60: 6c 79 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 ly System.Data.S
9c70: 51 4c 69 74 65 2e 4c 69 6e 71 2e 64 6c 6c 0d 0a QLite.Linq.dll..
9c80: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 }..
9c90: 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 }....
9ca0: 20 20 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 catch {..
9cb0: 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 tputs $::te
9cc0: 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 st_channel [appe
9cd0: 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 ndArgs \..
9ce0: 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 66 69 "---- fi
9cf0: 6c 65 20 76 65 72 73 69 6f 6e 20 6f 66 20 5c 22 le version of \"
9d00: 73 71 6c 69 74 65 33 2e 64 6c 6c 5c 22 2e 2e 2e sqlite3.dll\"...
9d10: 20 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 " \..
9d20: 20 20 20 20 5b 66 69 6c 65 20 76 65 72 73 69 6f [file versio
9d30: 6e 20 5b 67 65 74 42 69 6e 61 72 79 46 69 6c 65 n [getBinaryFile
9d40: 4e 61 6d 65 20 73 71 6c 69 74 65 33 2e 64 6c 6c Name sqlite3.dll
9d50: 5d 5d 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 ]] \n]..
9d60: 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 63 61 74 }.... cat
9d70: 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 ch {..
9d80: 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 tputs $::test_ch
9d90: 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 annel [appendArg
9da0: 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 s \..
9db0: 20 20 20 22 2d 2d 2d 2d 20 66 69 6c 65 20 76 65 "---- file ve
9dc0: 72 73 69 6f 6e 20 6f 66 20 5c 22 53 51 4c 69 74 rsion of \"SQLit
9dd0: 65 2e 49 6e 74 65 72 6f 70 2e 64 6c 6c 5c 22 2e e.Interop.dll\".
9de0: 2e 2e 20 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 .. " \..
9df0: 20 20 20 20 20 20 5b 66 69 6c 65 20 76 65 72 73 [file vers
9e00: 69 6f 6e 20 5b 67 65 74 42 69 6e 61 72 79 46 69 ion [getBinaryFi
9e10: 6c 65 4e 61 6d 65 20 53 51 4c 69 74 65 2e 49 6e leName SQLite.In
9e20: 74 65 72 6f 70 2e 64 6c 6c 5d 5d 20 5c 6e 5d 0d terop.dll]] \n].
9e30: 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 . }....
9e40: 20 20 20 20 20 20 63 61 74 63 68 20 7b 0d 0a 20 catch {..
9e50: 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 tputs $
9e60: 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b ::test_channel [
9e70: 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 appendArgs \..
9e80: 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d "---
9e90: 2d 20 66 69 6c 65 20 76 65 72 73 69 6f 6e 20 6f - file version o
9ea0: 66 20 5c 22 53 79 73 74 65 6d 2e 44 61 74 61 2e f \"System.Data.
9eb0: 53 51 4c 69 74 65 2e 64 6c 6c 5c 22 2e 2e 2e 20 SQLite.dll\"...
9ec0: 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 " \..
9ed0: 20 20 20 5b 66 69 6c 65 20 76 65 72 73 69 6f 6e [file version
9ee0: 20 5b 67 65 74 42 69 6e 61 72 79 46 69 6c 65 4e [getBinaryFileN
9ef0: 61 6d 65 20 53 79 73 74 65 6d 2e 44 61 74 61 2e ame System.Data.
9f00: 53 51 4c 69 74 65 2e 64 6c 6c 5d 5d 20 5c 6e 5d SQLite.dll]] \n]
9f10: 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 .. }....
9f20: 20 20 20 20 20 20 20 63 61 74 63 68 20 7b 0d 0a catch {..
9f30: 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 tputs
9f40: 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 $::test_channel
9f50: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 [appendArgs \..
9f60: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d "--
9f70: 2d 2d 20 66 69 6c 65 20 76 65 72 73 69 6f 6e 20 -- file version
9f80: 6f 66 20 5c 22 53 79 73 74 65 6d 2e 44 61 74 61 of \"System.Data
9f90: 2e 53 51 4c 69 74 65 2e 4c 69 6e 71 2e 64 6c 6c .SQLite.Linq.dll
9fa0: 5c 22 2e 2e 2e 20 22 20 5c 0d 0a 20 20 20 20 20 \"... " \..
9fb0: 20 20 20 20 20 20 20 20 20 5b 66 69 6c 65 20 76 [file v
9fc0: 65 72 73 69 6f 6e 20 5b 67 65 74 42 69 6e 61 72 ersion [getBinar
9fd0: 79 46 69 6c 65 4e 61 6d 65 20 53 79 73 74 65 6d yFileName System
9fe0: 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 4c 69 6e .Data.SQLite.Lin
9ff0: 71 2e 64 6c 6c 5d 5d 20 5c 6e 5d 0d 0a 20 20 20 q.dll]] \n]..
a000: 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 }....
a010: 20 20 73 65 74 20 61 73 73 65 6d 62 6c 69 65 73 set assemblies
a020: 20 5b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 [object invoke
a030: 41 70 70 44 6f 6d 61 69 6e 2e 43 75 72 72 65 6e AppDomain.Curren
a040: 74 44 6f 6d 61 69 6e 20 47 65 74 41 73 73 65 6d tDomain GetAssem
a050: 62 6c 69 65 73 5d 0d 0a 0d 0a 20 20 20 20 20 20 blies]....
a060: 20 20 6f 62 6a 65 63 74 20 66 6f 72 65 61 63 68 object foreach
a070: 20 61 73 73 65 6d 62 6c 79 20 24 61 73 73 65 6d assembly $assem
a080: 62 6c 69 65 73 20 7b 0d 0a 20 20 20 20 20 20 20 blies {..
a090: 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6d if {[string m
a0a0: 61 74 63 68 20 5c 7b 53 79 73 74 65 6d 2e 44 61 atch \{System.Da
a0b0: 74 61 2e 53 51 4c 69 74 65 2a 20 24 61 73 73 65 ta.SQLite* $asse
a0c0: 6d 62 6c 79 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 mbly]} then {..
a0d0: 20 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 tputs
a0e0: 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c $::test_channel
a0f0: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a [appendArgs \..
a100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
a110: 22 2d 2d 2d 2d 20 66 6f 75 6e 64 20 61 73 73 65 "---- found asse
a120: 6d 62 6c 79 3a 20 22 20 24 61 73 73 65 6d 62 6c mbly: " $assembl
a130: 79 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 20 y \n]..
a140: 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d }.. }...
a150: 0a 20 20 20 20 20 20 20 20 63 61 74 63 68 20 7b . catch {
a160: 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70 75 74 .. tput
a170: 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 s $::test_channe
a180: 6c 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 l \..
a190: 20 20 20 22 2d 2d 2d 2d 20 64 65 66 69 6e 65 20 "---- define
a1a0: 63 6f 6e 73 74 61 6e 74 73 20 66 6f 72 20 5c 22 constants for \"
a1b0: 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 System.Data.SQLi
a1c0: 74 65 5c 22 2e 2e 2e 20 22 0d 0a 0d 0a 20 20 20 te\"... "....
a1d0: 20 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 if {[catc
a1e0: 68 20 7b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 h {object invoke
a1f0: 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 6c -flags +NonPubl
a200: 69 63 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 ic \..
a210: 20 20 20 20 20 20 20 20 53 79 73 74 65 6d 2e 44 System.D
a220: 61 74 61 2e 53 51 4c 69 74 65 2e 53 51 4c 69 74 ata.SQLite.SQLit
a230: 65 33 20 44 65 66 69 6e 65 43 6f 6e 73 74 61 6e e3 DefineConstan
a240: 74 73 7d 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 ts} \..
a250: 20 20 20 20 20 20 20 20 20 64 65 66 69 6e 65 43 defineC
a260: 6f 6e 73 74 61 6e 74 73 5d 20 3d 3d 20 30 7d 20 onstants] == 0}
a270: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 then {..
a280: 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 tputs $::tes
a290: 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e t_channel [appen
a2a0: 64 41 72 67 73 20 5b 66 6f 72 6d 61 74 4c 69 73 dArgs [formatLis
a2b0: 74 20 5b 6c 73 6f 72 74 20 5c 0d 0a 20 20 20 20 t [lsort \..
a2c0: 20 20 20 20 20 20 20 20 20 20 20 20 24 64 65 66 $def
a2d0: 69 6e 65 43 6f 6e 73 74 61 6e 74 73 5d 5d 20 5c ineConstants]] \
a2e0: 6e 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 20 n].. }
a2f0: 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 else {..
a300: 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 tputs $::tes
a310: 74 5f 63 68 61 6e 6e 65 6c 20 75 6e 6b 6e 6f 77 t_channel unknow
a320: 6e 5c 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 7d n\n.. }
a330: 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 .. }....
a340: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
a350: 20 20 23 20 4e 4f 54 45 3a 20 4e 6f 77 2c 20 77 # NOTE: Now, w
a360: 65 20 6e 65 65 64 20 74 6f 20 6b 6e 6f 77 20 69 e need to know i
a370: 66 20 74 68 65 20 53 51 4c 69 74 65 20 63 6f 72 f the SQLite cor
a380: 65 20 6c 69 62 72 61 72 79 20 69 73 20 61 76 61 e library is ava
a390: 69 6c 61 62 6c 65 0d 0a 20 20 20 20 20 20 20 20 ilable..
a3a0: 23 20 20 20 20 20 20 20 28 69 2e 65 2e 20 62 65 # (i.e. be
a3b0: 63 61 75 73 65 20 74 68 65 20 6d 61 6e 61 67 65 cause the manage
a3c0: 64 2d 6f 6e 6c 79 20 53 79 73 74 65 6d 2e 44 61 d-only System.Da
a3d0: 74 61 2e 53 51 4c 69 74 65 20 61 73 73 65 6d 62 ta.SQLite assemb
a3e0: 6c 79 20 63 61 6e 0d 0a 20 20 20 20 20 20 20 20 ly can..
a3f0: 23 20 20 20 20 20 20 20 6c 6f 61 64 20 77 69 74 # load wit
a400: 68 6f 75 74 20 69 74 3b 20 68 6f 77 65 76 65 72 hout it; however
a410: 2c 20 69 74 20 63 61 6e 6e 6f 74 20 64 6f 20 61 , it cannot do a
a420: 6e 79 74 68 69 6e 67 20 75 73 65 66 75 6c 20 77 nything useful w
a430: 69 74 68 6f 75 74 0d 0a 20 20 20 20 20 20 20 20 ithout..
a440: 23 20 20 20 20 20 20 20 69 74 29 2e 20 20 49 66 # it). If
a450: 20 77 65 20 61 72 65 20 75 73 69 6e 67 20 74 68 we are using th
a460: 65 20 6d 69 78 65 64 2d 6d 6f 64 65 20 61 73 73 e mixed-mode ass
a470: 65 6d 62 6c 79 20 61 6e 64 20 77 65 20 61 6c 72 embly and we alr
a480: 65 61 64 79 0d 0a 20 20 20 20 20 20 20 20 23 20 eady.. #
a490: 20 20 20 20 20 20 66 6f 75 6e 64 20 69 74 20 28 found it (
a4a0: 61 62 6f 76 65 29 2c 20 74 68 69 73 20 73 68 6f above), this sho
a4b0: 75 6c 64 20 61 6c 77 61 79 73 20 73 75 63 63 65 uld always succe
a4c0: 65 64 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a ed... #..
a4d0: 20 20 20 20 20 20 20 20 63 68 65 63 6b 46 6f 72 checkFor
a4e0: 53 51 4c 69 74 65 20 24 3a 3a 74 65 73 74 5f 63 SQLite $::test_c
a4f0: 68 61 6e 6e 65 6c 0d 0a 0d 0a 20 20 20 20 20 20 hannel....
a500: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e #.. # N
a510: 4f 54 45 3a 20 43 68 65 63 6b 20 69 66 20 74 68 OTE: Check if th
a520: 65 20 73 71 6c 69 74 65 33 5f 77 69 6e 33 32 5f e sqlite3_win32_
a530: 73 65 74 5f 64 69 72 65 63 74 6f 72 79 20 66 75 set_directory fu
a540: 6e 63 74 69 6f 6e 20 69 73 20 61 76 61 69 6c 61 nction is availa
a550: 62 6c 65 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d ble... #.
a560: 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 . tputs $
a570: 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5c ::test_channel \
a580: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 2d .. "-
a590: 2d 2d 2d 20 63 68 65 63 6b 69 6e 67 20 66 6f 72 --- checking for
a5a0: 20 66 75 6e 63 74 69 6f 6e 20 73 71 6c 69 74 65 function sqlite
a5b0: 33 5f 77 69 6e 33 32 5f 73 65 74 5f 64 69 72 65 3_win32_set_dire
a5c0: 63 74 6f 72 79 2e 2e 2e 20 22 0d 0a 0d 0a 20 20 ctory... "....
a5d0: 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 if {[catch
a5e0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 {..
a5f0: 20 20 20 20 6f 62 6a 65 63 74 20 69 6e 76 6f 6b object invok
a600: 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 e -flags +NonPub
a610: 6c 69 63 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 lic \..
a620: 20 20 20 20 20 20 20 53 79 73 74 65 6d 2e 44 61 System.Da
a630: 74 61 2e 53 51 4c 69 74 65 2e 55 6e 73 61 66 65 ta.SQLite.Unsafe
a640: 4e 61 74 69 76 65 4d 65 74 68 6f 64 73 20 5c 0d NativeMethods \.
a650: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
a660: 20 73 71 6c 69 74 65 33 5f 77 69 6e 33 32 5f 73 sqlite3_win32_s
a670: 65 74 5f 64 69 72 65 63 74 6f 72 79 20 30 20 6e et_directory 0 n
a680: 75 6c 6c 7d 5d 20 3d 3d 20 30 7d 20 74 68 65 6e ull}] == 0} then
a690: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d {.. #.
a6a0: 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 . # NOT
a6b0: 45 3a 20 43 61 6c 6c 69 6e 67 20 74 68 65 20 73 E: Calling the s
a6c0: 71 6c 69 74 65 33 5f 77 69 6e 33 32 5f 73 65 74 qlite3_win32_set
a6d0: 5f 64 69 72 65 63 74 6f 72 79 20 66 75 6e 63 74 _directory funct
a6e0: 69 6f 6e 20 64 6f 65 73 20 6e 6f 74 0d 0a 20 20 ion does not..
a6f0: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 #
a700: 63 61 75 73 65 20 61 6e 20 65 78 63 65 70 74 69 cause an excepti
a710: 6f 6e 3b 20 74 68 65 72 65 66 6f 72 65 2c 20 69 on; therefore, i
a720: 74 20 6d 75 73 74 20 62 65 20 61 76 61 69 6c 61 t must be availa
a730: 62 6c 65 20 28 69 2e 65 2e 0d 0a 20 20 20 20 20 ble (i.e...
a740: 20 20 20 20 20 23 20 20 20 20 20 20 20 65 76 65 # eve
a750: 6e 20 74 68 6f 75 67 68 20 69 74 20 73 68 6f 75 n though it shou
a760: 6c 64 20 72 65 74 75 72 6e 20 61 20 66 61 69 6c ld return a fail
a770: 75 72 65 20 72 65 74 75 72 6e 20 63 6f 64 65 20 ure return code
a780: 69 6e 20 74 68 69 73 0d 0a 20 20 20 20 20 20 20 in this..
a790: 20 20 20 23 20 20 20 20 20 20 20 63 61 73 65 29 # case)
a7a0: 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a ... #..
a7b0: 20 20 20 20 20 20 20 20 20 20 61 64 64 43 6f 6e addCon
a7c0: 73 74 72 61 69 6e 74 20 73 71 6c 69 74 65 33 5f straint sqlite3_
a7d0: 77 69 6e 33 32 5f 73 65 74 5f 64 69 72 65 63 74 win32_set_direct
a7e0: 6f 72 79 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 ory....
a7f0: 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 tputs $::test_c
a800: 68 61 6e 6e 65 6c 20 79 65 73 5c 6e 0d 0a 20 20 hannel yes\n..
a810: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a } else {..
a820: 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 tputs
a830: 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 $::test_channel
a840: 6e 6f 5c 6e 0d 0a 20 20 20 20 20 20 20 20 7d 0d no\n.. }.
a850: 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 ... #..
a860: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 41 74 # NOTE: At
a870: 74 65 6d 70 74 20 74 6f 20 64 65 74 65 72 6d 69 tempt to determi
a880: 6e 65 20 69 66 20 74 68 65 20 63 75 73 74 6f 6d ne if the custom
a890: 20 65 78 74 65 6e 73 69 6f 6e 20 66 75 6e 63 74 extension funct
a8a0: 69 6f 6e 73 20 77 65 72 65 0d 0a 20 20 20 20 20 ions were..
a8b0: 20 20 20 23 20 20 20 20 20 20 20 63 6f 6d 70 69 # compi
a8c0: 6c 65 64 20 69 6e 74 6f 20 74 68 65 20 53 51 4c led into the SQL
a8d0: 69 74 65 20 69 6e 74 65 72 6f 70 20 61 73 73 65 ite interop asse
a8e0: 6d 62 6c 79 2e 0d 0a 20 20 20 20 20 20 20 20 23 mbly... #
a8f0: 0d 0a 20 20 20 20 20 20 20 20 63 68 65 63 6b 46 .. checkF
a900: 6f 72 53 51 4c 69 74 65 44 65 66 69 6e 65 43 6f orSQLiteDefineCo
a910: 6e 73 74 61 6e 74 20 24 3a 3a 74 65 73 74 5f 63 nstant $::test_c
a920: 68 61 6e 6e 65 6c 20 5c 0d 0a 20 20 20 20 20 20 hannel \..
a930: 20 20 20 20 20 20 43 48 45 43 4b 5f 53 54 41 54 CHECK_STAT
a940: 45 0d 0a 0d 0a 20 20 20 20 20 20 20 20 63 68 65 E.... che
a950: 63 6b 46 6f 72 53 51 4c 69 74 65 44 65 66 69 6e ckForSQLiteDefin
a960: 65 43 6f 6e 73 74 61 6e 74 20 24 3a 3a 74 65 73 eConstant $::tes
a970: 74 5f 63 68 61 6e 6e 65 6c 20 5c 0d 0a 20 20 20 t_channel \..
a980: 20 20 20 20 20 20 20 20 20 55 53 45 5f 49 4e 54 USE_INT
a990: 45 52 4f 50 5f 44 4c 4c 0d 0a 0d 0a 20 20 20 20 EROP_DLL....
a9a0: 20 20 20 20 63 68 65 63 6b 46 6f 72 53 51 4c 69 checkForSQLi
a9b0: 74 65 44 65 66 69 6e 65 43 6f 6e 73 74 61 6e 74 teDefineConstant
a9c0: 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c $::test_channel
a9d0: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \..
a9e0: 49 4e 54 45 52 4f 50 5f 45 58 54 45 4e 53 49 4f INTEROP_EXTENSIO
a9f0: 4e 5f 46 55 4e 43 54 49 4f 4e 53 0d 0a 0d 0a 20 N_FUNCTIONS....
aa00: 20 20 20 20 20 20 20 63 68 65 63 6b 46 6f 72 53 checkForS
aa10: 51 4c 69 74 65 44 65 66 69 6e 65 43 6f 6e 73 74 QLiteDefineConst
aa20: 61 6e 74 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e ant $::test_chan
aa30: 6e 65 6c 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 nel \..
aa40: 20 20 20 49 4e 54 45 52 4f 50 5f 54 45 53 54 5f INTEROP_TEST_
aa50: 45 58 54 45 4e 53 49 4f 4e 0d 0a 0d 0a 20 20 20 EXTENSION....
aa60: 20 20 20 20 20 63 68 65 63 6b 46 6f 72 53 51 4c checkForSQL
aa70: 69 74 65 44 65 66 69 6e 65 43 6f 6e 73 74 61 6e iteDefineConstan
aa80: 74 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 t $::test_channe
aa90: 6c 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 l \..
aaa0: 20 53 51 4c 49 54 45 5f 53 54 41 4e 44 41 52 44 SQLITE_STANDARD
aab0: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 .... #..
aac0: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 43 # NOTE: C
aad0: 68 65 63 6b 20 74 68 65 20 63 75 72 72 65 6e 74 heck the current
aae0: 20 62 75 69 6c 64 20 79 65 61 72 2e 20 20 42 61 build year. Ba
aaf0: 73 69 63 61 6c 6c 79 2c 20 74 68 69 73 20 69 6e sically, this in
ab00: 64 69 63 61 74 65 73 0d 0a 20 20 20 20 20 20 20 dicates..
ab10: 20 23 20 20 20 20 20 20 20 77 68 69 63 68 20 76 # which v
ab20: 65 72 73 69 6f 6e 20 6f 66 20 4d 53 42 75 69 6c ersion of MSBuil
ab30: 64 20 61 6e 64 2f 6f 72 20 56 69 73 75 61 6c 20 d and/or Visual
ab40: 53 74 75 64 69 6f 20 77 61 73 20 75 73 65 64 20 Studio was used
ab50: 74 6f 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 to.. #
ab60: 20 20 20 20 63 6f 6d 70 69 6c 65 20 74 68 65 20 compile the
ab70: 61 73 73 65 6d 62 6c 79 20 62 69 6e 61 72 69 65 assembly binarie
ab80: 73 20 75 6e 64 65 72 20 74 65 73 74 2e 0d 0a 20 s under test...
ab90: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
aba0: 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f tputs $::test_
abb0: 63 68 61 6e 6e 65 6c 20 5c 0d 0a 20 20 20 20 20 channel \..
abc0: 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 63 68 65 "---- che
abd0: 63 6b 69 6e 67 20 66 6f 72 20 53 79 73 74 65 6d cking for System
abe0: 2e 44 61 74 61 2e 53 51 4c 69 74 65 20 62 75 69 .Data.SQLite bui
abf0: 6c 64 20 79 65 61 72 2e 2e 2e 20 22 0d 0a 0d 0a ld year... "....
ac00: 20 20 20 20 20 20 20 20 73 65 74 20 79 65 61 72 set year
ac10: 20 5b 67 65 74 42 75 69 6c 64 59 65 61 72 5d 0d [getBuildYear].
ac20: 0a 20 20 20 20 20 20 20 20 61 64 64 43 6f 6e 73 . addCons
ac30: 74 72 61 69 6e 74 20 5b 61 70 70 65 6e 64 41 72 traint [appendAr
ac40: 67 73 20 62 75 69 6c 64 59 65 61 72 20 24 79 65 gs buildYear $ye
ac50: 61 72 5d 0d 0a 20 20 20 20 20 20 20 20 74 70 75 ar].. tpu
ac60: 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e ts $::test_chann
ac70: 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c el [appendArgs \
ac80: 22 20 24 79 65 61 72 20 5c 22 5c 6e 5d 0d 0a 0d " $year \"\n]...
ac90: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #..
aca0: 20 20 20 20 23 20 4e 4f 54 45 3a 20 43 68 65 63 # NOTE: Chec
acb0: 6b 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 k the current bu
acc0: 69 6c 64 20 63 6f 6e 66 69 67 75 72 61 74 69 6f ild configuratio
acd0: 6e 2e 20 20 54 68 69 73 20 73 68 6f 75 6c 64 20 n. This should
ace0: 6e 6f 72 6d 61 6c 6c 79 0d 0a 20 20 20 20 20 20 normally..
acf0: 20 20 23 20 20 20 20 20 20 20 62 65 20 65 69 74 # be eit
ad00: 68 65 72 20 22 44 65 62 75 67 22 20 6f 72 20 22 her "Debug" or "
ad10: 52 65 6c 65 61 73 65 22 2e 0d 0a 20 20 20 20 20 Release"...
ad20: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 74 70 #.. tp
ad30: 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e uts $::test_chan
ad40: 6e 65 6c 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 nel \..
ad50: 20 20 20 22 2d 2d 2d 2d 20 63 68 65 63 6b 69 6e "---- checkin
ad60: 67 20 66 6f 72 20 53 79 73 74 65 6d 2e 44 61 74 g for System.Dat
ad70: 61 2e 53 51 4c 69 74 65 20 62 75 69 6c 64 20 63 a.SQLite build c
ad80: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 2e 2e 2e 20 onfiguration...
ad90: 22 0d 0a 0d 0a 20 20 20 20 20 20 20 20 73 65 74 ".... set
ada0: 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 5b configuration [
adb0: 67 65 74 42 75 69 6c 64 43 6f 6e 66 69 67 75 72 getBuildConfigur
adc0: 61 74 69 6f 6e 5d 0d 0a 20 20 20 20 20 20 20 20 ation]..
add0: 61 64 64 43 6f 6e 73 74 72 61 69 6e 74 20 5b 61 addConstraint [a
ade0: 70 70 65 6e 64 41 72 67 73 20 62 75 69 6c 64 43 ppendArgs buildC
adf0: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 24 63 6f onfiguration $co
ae00: 6e 66 69 67 75 72 61 74 69 6f 6e 5d 0d 0a 20 20 nfiguration]..
ae10: 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 tputs $::t
ae20: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 est_channel [app
ae30: 65 6e 64 41 72 67 73 20 5c 22 20 24 63 6f 6e 66 endArgs \" $conf
ae40: 69 67 75 72 61 74 69 6f 6e 20 5c 22 5c 6e 5d 0d iguration \"\n].
ae50: 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 ... #..
ae60: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 43 68 # NOTE: Ch
ae70: 65 63 6b 20 66 6f 72 20 74 68 65 20 6e 61 74 69 eck for the nati
ae80: 76 65 20 72 75 6e 74 69 6d 65 20 6f 70 74 69 6f ve runtime optio
ae90: 6e 2c 20 77 68 69 63 68 20 77 6f 75 6c 64 20 6d n, which would m
aea0: 65 61 6e 20 77 65 20 61 72 65 0d 0a 20 20 20 20 ean we are..
aeb0: 20 20 20 20 23 20 20 20 20 20 20 20 75 73 69 6e # usin
aec0: 67 20 74 68 65 20 6d 69 78 65 64 2d 6d 6f 64 65 g the mixed-mode
aed0: 20 61 73 73 65 6d 62 6c 79 2e 0d 0a 20 20 20 20 assembly...
aee0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 63 #.. c
aef0: 68 65 63 6b 46 6f 72 52 75 6e 74 69 6d 65 4f 70 heckForRuntimeOp
af00: 74 69 6f 6e 20 24 3a 3a 74 65 73 74 5f 63 68 61 tion $::test_cha
af10: 6e 6e 65 6c 20 6e 61 74 69 76 65 0d 0a 0d 0a 20 nnel native....
af20: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
af30: 20 20 23 20 4e 4f 54 45 3a 20 52 65 70 6f 72 74 # NOTE: Report
af40: 20 74 68 65 20 72 65 73 6f 75 72 63 65 20 75 73 the resource us
af50: 61 67 65 20 70 72 69 6f 72 20 74 6f 20 72 75 6e age prior to run
af60: 6e 69 6e 67 20 61 6e 79 20 74 65 73 74 73 2e 0d ning any tests..
af70: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #..
af80: 20 20 20 20 72 65 70 6f 72 74 53 51 4c 69 74 65 reportSQLite
af90: 52 65 73 6f 75 72 63 65 73 20 24 3a 3a 74 65 73 Resources $::tes
afa0: 74 5f 63 68 61 6e 6e 65 6c 0d 0a 0d 0a 20 20 20 t_channel....
afb0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #..
afc0: 23 20 4e 4f 54 45 3a 20 53 68 6f 77 20 74 68 65 # NOTE: Show the
afd0: 20 61 63 74 69 76 65 20 74 65 73 74 20 63 6f 6e active test con
afe0: 73 74 72 61 69 6e 74 73 2e 0d 0a 20 20 20 20 20 straints...
aff0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 74 70 #.. tp
b000: 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e uts $::test_chan
b010: 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 nel [appendArgs
b020: 22 2d 2d 2d 2d 20 63 6f 6e 73 74 72 61 69 6e 74 "---- constraint
b030: 73 3a 20 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 s: " \..
b040: 20 20 20 20 5b 66 6f 72 6d 61 74 4c 69 73 74 20 [formatList
b050: 5b 6c 73 6f 72 74 20 5b 67 65 74 43 6f 6e 73 74 [lsort [getConst
b060: 72 61 69 6e 74 73 5d 5d 5d 20 5c 6e 5d 0d 0a 0d raints]]] \n]...
b070: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #..
b080: 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 68 6f 77 # NOTE: Show
b090: 20 77 68 65 6e 20 6f 75 72 20 74 65 73 74 73 20 when our tests
b0a0: 61 63 74 75 61 6c 6c 79 20 62 65 67 61 6e 20 28 actually began (
b0b0: 6e 6f 77 29 2e 0d 0a 20 20 20 20 20 20 20 20 23 now)... #
b0c0: 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20 .. tputs
b0d0: 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 $::test_channel
b0e0: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 [appendArgs \..
b0f0: 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d "----
b100: 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c System.Data.SQL
b110: 69 74 65 20 74 65 73 74 73 20 62 65 67 61 6e 20 ite tests began
b120: 61 74 20 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 at " \..
b130: 20 20 20 20 5b 63 6c 6f 63 6b 20 66 6f 72 6d 61 [clock forma
b140: 74 20 5b 63 6c 6f 63 6b 20 73 65 63 6f 6e 64 73 t [clock seconds
b150: 5d 5d 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 7d 0d ]] \n].. }.
b160: 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 . }..... p
b170: 72 6f 63 20 72 75 6e 53 51 4c 69 74 65 54 65 73 roc runSQLiteTes
b180: 74 45 70 69 6c 6f 67 75 65 20 7b 7d 20 7b 0d 0a tEpilogue {} {..
b190: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 #.. #
b1a0: 20 4e 4f 54 45 3a 20 53 6b 69 70 20 72 75 6e 6e NOTE: Skip runn
b1b0: 69 6e 67 20 6f 75 72 20 63 75 73 74 6f 6d 20 65 ing our custom e
b1c0: 70 69 6c 6f 67 75 65 20 69 66 20 74 68 65 20 6d pilogue if the m
b1d0: 61 69 6e 20 6f 6e 65 20 68 61 73 20 62 65 65 6e ain one has been
b1e0: 20 73 6b 69 70 70 65 64 2e 0d 0a 20 20 20 20 20 skipped...
b1f0: 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 21 5b #.. if {![
b200: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 6e 6f info exists ::no
b210: 28 65 70 69 6c 6f 67 75 65 2e 65 61 67 6c 65 29 (epilogue.eagle)
b220: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 ]} then {..
b230: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 #.. #
b240: 4e 4f 54 45 3a 20 53 68 6f 77 20 77 68 65 6e 20 NOTE: Show when
b250: 6f 75 72 20 74 65 73 74 73 20 61 63 74 75 61 6c our tests actual
b260: 6c 79 20 65 6e 64 65 64 20 28 6e 6f 77 29 2e 0d ly ended (now)..
b270: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #..
b280: 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 tputs $::tes
b290: 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e t_channel [appen
b2a0: 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 dArgs \..
b2b0: 20 20 20 20 20 22 2d 2d 2d 2d 20 53 79 73 74 65 "---- Syste
b2c0: 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 20 74 65 m.Data.SQLite te
b2d0: 73 74 73 20 65 6e 64 65 64 20 61 74 20 22 20 5c sts ended at " \
b2e0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 5b 63 .. [c
b2f0: 6c 6f 63 6b 20 66 6f 72 6d 61 74 20 5b 63 6c 6f lock format [clo
b300: 63 6b 20 73 65 63 6f 6e 64 73 5d 5d 20 5c 6e 5d ck seconds]] \n]
b310: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 .... #..
b320: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 41 # NOTE: A
b330: 6c 73 6f 20 72 65 70 6f 72 74 20 74 68 65 20 72 lso report the r
b340: 65 73 6f 75 72 63 65 20 75 73 61 67 65 20 61 66 esource usage af
b350: 74 65 72 20 72 75 6e 6e 69 6e 67 20 74 68 65 20 ter running the
b360: 74 65 73 74 73 2e 0d 0a 20 20 20 20 20 20 20 20 tests...
b370: 23 0d 0a 20 20 20 20 20 20 20 20 72 65 70 6f 72 #.. repor
b380: 74 53 51 4c 69 74 65 52 65 73 6f 75 72 63 65 73 tSQLiteResources
b390: 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c $::test_channel
b3a0: 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d .. }.. }
b3b0: 0d 0a 0c 0d 0a 20 20 20 20 23 23 23 23 23 23 23 ..... #######
b3c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
b3d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
b3e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
b3f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
b400: 23 23 23 23 0d 0a 20 20 20 20 23 23 23 23 23 23 ####.. ######
b410: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
b420: 23 23 23 23 23 23 23 20 45 4e 44 20 45 61 67 6c ####### END Eagl
b430: 65 20 4f 4e 4c 59 20 23 23 23 23 23 23 23 23 23 e ONLY #########
b440: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
b450: 23 23 23 23 23 0d 0a 20 20 20 20 23 23 23 23 23 #####.. #####
b460: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
b470: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
b480: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
b490: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
b4a0: 23 23 23 23 23 23 0d 0a 20 20 7d 0d 0a 0d 0a 20 ######.. }....
b4b0: 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a 20 53 61 #.. # NOTE: Sa
b4c0: 76 65 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 74 ve the name of t
b4d0: 68 65 20 64 69 72 65 63 74 6f 72 79 20 63 6f 6e he directory con
b4e0: 74 61 69 6e 69 6e 67 20 74 68 69 73 20 66 69 6c taining this fil
b4f0: 65 2e 0d 0a 20 20 23 0d 0a 20 20 69 66 20 7b 21 e... #.. if {!
b500: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 63 [info exists ::c
b510: 6f 6d 6d 6f 6e 5f 64 69 72 65 63 74 6f 72 79 5d ommon_directory]
b520: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 73 65 } then {.. se
b530: 74 20 3a 3a 63 6f 6d 6d 6f 6e 5f 64 69 72 65 63 t ::common_direc
b540: 74 6f 72 79 20 5b 66 69 6c 65 20 64 69 72 6e 61 tory [file dirna
b550: 6d 65 20 5b 69 6e 66 6f 20 73 63 72 69 70 74 5d me [info script]
b560: 5d 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 23 0d 0a 20 ].. }.... #..
b570: 20 23 20 4e 4f 54 45 3a 20 50 72 6f 76 69 64 65 # NOTE: Provide
b580: 20 74 68 65 20 53 79 73 74 65 6d 2e 44 61 74 61 the System.Data
b590: 2e 53 51 4c 69 74 65 20 74 65 73 74 20 70 61 63 .SQLite test pac
b5a0: 6b 61 67 65 20 74 6f 20 74 68 65 20 69 6e 74 65 kage to the inte
b5b0: 72 70 72 65 74 65 72 2e 0d 0a 20 20 23 0d 0a 20 rpreter... #..
b5c0: 20 70 61 63 6b 61 67 65 20 70 72 6f 76 69 64 65 package provide
b5d0: 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c System.Data.SQL
b5e0: 69 74 65 2e 54 65 73 74 20 31 2e 30 0d 0a 7d 0d ite.Test 1.0..}.
b5f0: 0a .