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 59 65 61 72 73 20 7b 7d getBuildYears {}
0f40: 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 {.. #..
0f50: 20 20 20 23 20 4e 4f 54 45 3a 20 53 65 65 20 69 # NOTE: See i
0f60: 66 20 74 68 65 20 6c 69 73 74 20 6f 66 20 74 65 f the list of te
0f70: 73 74 20 79 65 61 72 73 20 68 61 73 20 62 65 65 st years has bee
0f80: 6e 20 6f 76 65 72 72 69 64 64 65 6e 20 62 79 20 n overridden by
0f90: 74 68 65 20 75 73 65 72 0d 0a 20 20 20 20 20 20 the user..
0fa0: 23 20 20 20 20 20 20 20 28 65 2e 67 2e 20 6f 6e # (e.g. on
0fb0: 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e the command lin
0fc0: 65 29 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 e)... #..
0fd0: 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 if {[info ex
0fe0: 69 73 74 73 20 3a 3a 74 65 73 74 5f 79 65 61 72 ists ::test_year
0ff0: 73 5d 20 26 26 20 5b 6c 6c 65 6e 67 74 68 20 24 s] && [llength $
1000: 3a 3a 74 65 73 74 5f 79 65 61 72 73 5d 20 3e 20 ::test_years] >
1010: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 0} then {..
1020: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 #.. #
1030: 4e 4f 54 45 3a 20 55 73 65 20 74 68 65 20 73 70 NOTE: Use the sp
1040: 65 63 69 66 69 65 64 20 6c 69 73 74 20 6f 66 20 ecified list of
1050: 74 65 73 74 20 79 65 61 72 73 2e 0d 0a 20 20 20 test years...
1060: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #..
1070: 72 65 74 75 72 6e 20 24 3a 3a 74 65 73 74 5f 79 return $::test_y
1080: 65 61 72 73 0d 0a 20 20 20 20 20 20 7d 20 65 6c ears.. } el
1090: 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d se {.. #.
10a0: 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a . # NOTE:
10b0: 20 55 73 65 20 74 68 65 20 64 65 66 61 75 6c 74 Use the default
10c0: 20 6c 69 73 74 20 6f 66 20 74 65 73 74 20 79 65 list of test ye
10d0: 61 72 73 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d ars... #.
10e0: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 . return
10f0: 5b 6c 69 73 74 20 32 30 30 35 20 32 30 30 38 20 [list 2005 2008
1100: 32 30 31 30 20 32 30 31 32 5d 0d 0a 20 20 20 20 2010 2012]..
1110: 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 }.. }.....
1120: 20 20 20 70 72 6f 63 20 67 65 74 42 75 69 6c 64 proc getBuild
1130: 50 6c 61 74 66 6f 72 6d 20 7b 20 6e 61 74 69 76 Platform { nativ
1140: 65 20 7d 20 7b 0d 0a 20 20 20 20 20 20 69 66 20 e } {.. if
1150: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a {[info exists ::
1160: 74 65 73 74 5f 70 6c 61 74 66 6f 72 6d 5d 20 26 test_platform] &
1170: 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 5b & \.. [
1180: 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 3a string length $:
1190: 3a 74 65 73 74 5f 70 6c 61 74 66 6f 72 6d 5d 20 :test_platform]
11a0: 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 > 0} then {..
11b0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #..
11c0: 23 20 4e 4f 54 45 3a 20 55 73 65 20 74 68 65 20 # NOTE: Use the
11d0: 73 70 65 63 69 66 69 65 64 20 74 65 73 74 20 70 specified test p
11e0: 6c 61 74 66 6f 72 6d 2e 20 20 49 66 20 74 68 69 latform. If thi
11f0: 73 20 76 61 72 69 61 62 6c 65 20 69 73 20 6e 6f s variable is no
1200: 74 20 73 65 74 2c 0d 0a 20 20 20 20 20 20 20 20 t set,..
1210: 23 20 20 20 20 20 20 20 74 68 65 20 64 65 66 61 # the defa
1220: 75 6c 74 20 76 61 6c 75 65 20 77 69 6c 6c 20 62 ult value will b
1230: 65 20 62 61 73 65 64 20 6f 6e 20 74 68 65 20 6d e based on the m
1240: 61 63 68 69 6e 65 20 61 72 63 68 69 74 65 63 74 achine architect
1250: 75 72 65 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d ure... #.
1260: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 . return
1270: 5b 65 78 70 72 20 7b 24 6e 61 74 69 76 65 20 3f [expr {$native ?
1280: 20 24 3a 3a 74 65 73 74 5f 70 6c 61 74 66 6f 72 $::test_platfor
1290: 6d 20 3a 20 22 22 7d 5d 0d 0a 20 20 20 20 20 20 m : ""}]..
12a0: 7d 20 65 6c 73 65 69 66 20 7b 5b 69 6e 66 6f 20 } elseif {[info
12b0: 65 78 69 73 74 73 20 3a 3a 74 65 73 74 5f 6d 61 exists ::test_ma
12c0: 63 68 69 6e 65 5d 20 26 26 20 5c 0d 0a 20 20 20 chine] && \..
12d0: 20 20 20 20 20 20 20 5b 73 74 72 69 6e 67 20 6c [string l
12e0: 65 6e 67 74 68 20 24 3a 3a 74 65 73 74 5f 6d 61 ength $::test_ma
12f0: 63 68 69 6e 65 5d 20 3e 20 30 7d 20 74 68 65 6e chine] > 0} then
1300: 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 {.. #..
1310: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 46 # NOTE: F
1320: 6f 72 20 6e 61 74 69 76 65 20 62 75 69 6c 64 73 or native builds
1330: 2c 20 72 65 74 75 72 6e 20 74 68 65 20 70 6c 61 , return the pla
1340: 74 66 6f 72 6d 20 6e 61 6d 65 20 63 6f 72 72 65 tform name corre
1350: 73 70 6f 6e 64 69 6e 67 20 74 6f 0d 0a 20 20 20 sponding to..
1360: 20 20 20 20 20 23 20 20 20 20 20 20 20 74 68 65 # the
1370: 20 74 65 73 74 20 6d 61 63 68 69 6e 65 20 61 72 test machine ar
1380: 63 68 69 74 65 63 74 75 72 65 3b 20 6f 74 68 65 chitecture; othe
1390: 72 77 69 73 65 2c 20 72 65 74 75 72 6e 20 61 6e rwise, return an
13a0: 20 65 6d 70 74 79 0d 0a 20 20 20 20 20 20 20 20 empty..
13b0: 23 20 20 20 20 20 20 20 73 74 72 69 6e 67 2e 0d # string..
13c0: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #..
13d0: 20 20 20 20 72 65 74 75 72 6e 20 5b 65 78 70 72 return [expr
13e0: 20 7b 24 6e 61 74 69 76 65 20 3f 20 5b 6d 61 63 {$native ? [mac
13f0: 68 69 6e 65 54 6f 50 6c 61 74 66 6f 72 6d 20 24 hineToPlatform $
1400: 3a 3a 74 65 73 74 5f 6d 61 63 68 69 6e 65 5d 20 ::test_machine]
1410: 3a 20 22 22 7d 5d 0d 0a 20 20 20 20 20 20 7d 20 : ""}].. }
1420: 65 6c 73 65 69 66 20 7b 5b 69 6e 66 6f 20 65 78 elseif {[info ex
1430: 69 73 74 73 20 3a 3a 74 63 6c 5f 70 6c 61 74 66 ists ::tcl_platf
1440: 6f 72 6d 28 6d 61 63 68 69 6e 65 29 5d 7d 20 74 orm(machine)]} t
1450: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 hen {.. #
1460: 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 .. # NOTE
1470: 3a 20 46 6f 72 20 6e 61 74 69 76 65 20 62 75 69 : For native bui
1480: 6c 64 73 2c 20 72 65 74 75 72 6e 20 74 68 65 20 lds, return the
1490: 70 6c 61 74 66 6f 72 6d 20 6e 61 6d 65 20 63 6f platform name co
14a0: 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 6f 0d 0a rresponding to..
14b0: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 #
14c0: 74 68 65 20 6d 61 63 68 69 6e 65 20 61 72 63 68 the machine arch
14d0: 69 74 65 63 74 75 72 65 3b 20 6f 74 68 65 72 77 itecture; otherw
14e0: 69 73 65 2c 20 72 65 74 75 72 6e 20 61 6e 20 65 ise, return an e
14f0: 6d 70 74 79 20 73 74 72 69 6e 67 2e 0d 0a 20 20 mpty string...
1500: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
1510: 20 72 65 74 75 72 6e 20 5b 65 78 70 72 20 7b 24 return [expr {$
1520: 6e 61 74 69 76 65 20 3f 20 5c 0d 0a 20 20 20 20 native ? \..
1530: 20 20 20 20 20 20 20 20 5b 6d 61 63 68 69 6e 65 [machine
1540: 54 6f 50 6c 61 74 66 6f 72 6d 20 24 3a 3a 74 63 ToPlatform $::tc
1550: 6c 5f 70 6c 61 74 66 6f 72 6d 28 6d 61 63 68 69 l_platform(machi
1560: 6e 65 29 5d 20 3a 20 22 22 7d 5d 0d 0a 20 20 20 ne)] : ""}]..
1570: 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 } else {..
1580: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #..
1590: 23 20 4e 4f 54 45 3a 20 4e 6f 20 6d 61 63 68 69 # NOTE: No machi
15a0: 6e 65 20 61 72 63 68 69 74 65 63 74 75 72 65 20 ne architecture
15b0: 69 73 20 61 76 61 69 6c 61 62 6c 65 2c 20 72 65 is available, re
15c0: 74 75 72 6e 20 61 6e 20 65 6d 70 74 79 20 73 74 turn an empty st
15d0: 72 69 6e 67 2e 0d 0a 20 20 20 20 20 20 20 20 23 ring... #
15e0: 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e .. return
15f0: 20 22 22 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 "".. }..
1600: 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 }..... proc
1610: 20 67 65 74 42 75 69 6c 64 43 6f 6e 66 69 67 75 getBuildConfigu
1620: 72 61 74 69 6f 6e 20 7b 7d 20 7b 0d 0a 20 20 20 ration {} {..
1630: 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f #.. # NO
1640: 54 45 3a 20 53 65 65 20 69 66 20 74 68 65 20 22 TE: See if the "
1650: 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 22 20 73 configuration" s
1660: 65 74 74 69 6e 67 20 68 61 73 20 62 65 65 6e 20 etting has been
1670: 6f 76 65 72 72 69 64 64 65 6e 20 62 79 20 74 68 overridden by th
1680: 65 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 e.. #
1690: 20 75 73 65 72 20 28 65 2e 67 2e 20 6f 6e 20 74 user (e.g. on t
16a0: 68 65 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 29 he command line)
16b0: 2e 20 20 54 68 69 73 20 68 65 6c 70 73 20 63 6f . This helps co
16c0: 6e 74 72 6f 6c 20 65 78 61 63 74 6c 79 0d 0a 20 ntrol exactly..
16d0: 20 20 20 20 20 23 20 20 20 20 20 20 20 77 68 69 # whi
16e0: 63 68 20 73 65 74 20 6f 66 20 62 69 6e 61 72 69 ch set of binari
16f0: 65 73 20 77 65 20 61 72 65 20 74 65 73 74 69 6e es we are testin
1700: 67 20 28 69 2e 65 2e 20 74 68 6f 73 65 20 62 75 g (i.e. those bu
1710: 69 6c 74 20 69 6e 20 74 68 65 0d 0a 20 20 20 20 ilt in the..
1720: 20 20 23 20 20 20 20 20 20 20 22 44 65 62 75 67 # "Debug
1730: 22 20 6f 72 20 22 52 65 6c 65 61 73 65 22 20 62 " or "Release" b
1740: 75 69 6c 64 20 63 6f 6e 66 69 67 75 72 61 74 69 uild configurati
1750: 6f 6e 73 29 2e 20 20 54 6f 20 6f 76 65 72 72 69 ons). To overri
1760: 64 65 20 74 68 69 73 0d 0a 20 20 20 20 20 20 23 de this.. #
1770: 20 20 20 20 20 20 20 76 61 6c 75 65 20 76 69 61 value via
1780: 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e the command lin
1790: 65 2c 20 65 6e 74 65 72 20 61 20 63 6f 6d 6d 61 e, enter a comma
17a0: 6e 64 20 73 69 6d 69 6c 61 72 20 74 6f 20 6f 6e nd similar to on
17b0: 65 20 6f 66 0d 0a 20 20 20 20 20 20 23 20 20 20 e of.. #
17c0: 20 20 20 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e the followin
17d0: 67 20 28 61 6c 6c 20 6f 6e 20 6f 6e 65 20 6c 69 g (all on one li
17e0: 6e 65 29 3a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 ne):.. #..
17f0: 20 20 20 20 20 23 20 20 20 20 20 20 20 45 61 67 # Eag
1800: 6c 65 53 68 65 6c 6c 2e 65 78 65 20 2d 70 72 65 leShell.exe -pre
1810: 49 6e 69 74 69 61 6c 69 7a 65 20 22 73 65 74 20 Initialize "set
1820: 74 65 73 74 5f 63 6f 6e 66 69 67 75 72 61 74 69 test_configurati
1830: 6f 6e 20 44 65 62 75 67 22 0d 0a 20 20 20 20 20 on Debug"..
1840: 20 23 20 20 20 20 20 20 20 20 20 2d 66 69 6c 65 # -file
1850: 20 2e 5c 70 61 74 68 5c 74 6f 5c 61 6c 6c 2e 65 .\path\to\all.e
1860: 61 67 6c 65 0d 0a 20 20 20 20 20 20 23 0d 0a 20 agle.. #..
1870: 20 20 20 20 20 23 20 20 20 20 20 20 20 45 61 67 # Eag
1880: 6c 65 53 68 65 6c 6c 2e 65 78 65 20 2d 70 72 65 leShell.exe -pre
1890: 49 6e 69 74 69 61 6c 69 7a 65 20 22 73 65 74 20 Initialize "set
18a0: 74 65 73 74 5f 63 6f 6e 66 69 67 75 72 61 74 69 test_configurati
18b0: 6f 6e 20 52 65 6c 65 61 73 65 22 0d 0a 20 20 20 on Release"..
18c0: 20 20 20 23 20 20 20 20 20 20 20 20 20 2d 66 69 # -fi
18d0: 6c 65 20 2e 5c 70 61 74 68 5c 74 6f 5c 61 6c 6c le .\path\to\all
18e0: 2e 65 61 67 6c 65 0d 0a 20 20 20 20 20 20 23 0d .eagle.. #.
18f0: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 45 . # E
1900: 61 67 6c 65 53 68 65 6c 6c 2e 65 78 65 20 2d 66 agleShell.exe -f
1910: 69 6c 65 20 2e 5c 70 61 74 68 5c 74 6f 5c 61 6c ile .\path\to\al
1920: 6c 2e 65 61 67 6c 65 20 2d 70 72 65 54 65 73 74 l.eagle -preTest
1930: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. #
1940: 20 20 22 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 "unset -nocomp
1950: 6c 61 69 6e 20 74 65 73 74 5f 63 6f 6e 66 69 67 lain test_config
1960: 75 72 61 74 69 6f 6e 22 0d 0a 20 20 20 20 20 20 uration"..
1970: 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 69 6e #.. if {[in
1980: 66 6f 20 65 78 69 73 74 73 20 3a 3a 74 65 73 74 fo exists ::test
1990: 5f 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 5d 20 _configuration]
19a0: 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 && \..
19b0: 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 [string length $
19c0: 3a 3a 74 65 73 74 5f 63 6f 6e 66 69 67 75 72 61 ::test_configura
19d0: 74 69 6f 6e 5d 20 3e 20 30 7d 20 74 68 65 6e 20 tion] > 0} then
19e0: 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 {.. #..
19f0: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 55 73 # NOTE: Us
1a00: 65 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 e the specified
1a10: 74 65 73 74 20 63 6f 6e 66 69 67 75 72 61 74 69 test configurati
1a20: 6f 6e 2e 20 20 54 68 65 20 64 65 66 61 75 6c 74 on. The default
1a30: 20 76 61 6c 75 65 20 75 73 65 64 0d 0a 20 20 20 value used..
1a40: 20 20 20 20 20 23 20 20 20 20 20 20 20 66 6f 72 # for
1a50: 20 74 68 69 73 20 76 61 72 69 61 62 6c 65 20 69 this variable i
1a60: 73 20 74 79 70 69 63 61 6c 6c 79 20 22 52 65 6c s typically "Rel
1a70: 65 61 73 65 22 2c 20 61 73 20 73 65 74 20 62 79 ease", as set by
1a80: 20 74 68 65 20 74 65 73 74 0d 0a 20 20 20 20 20 the test..
1a90: 20 20 20 23 20 20 20 20 20 20 20 73 75 69 74 65 # suite
1aa0: 20 69 74 73 65 6c 66 2e 0d 0a 20 20 20 20 20 20 itself...
1ab0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 72 65 74 #.. ret
1ac0: 75 72 6e 20 24 3a 3a 74 65 73 74 5f 63 6f 6e 66 urn $::test_conf
1ad0: 69 67 75 72 61 74 69 6f 6e 0d 0a 20 20 20 20 20 iguration..
1ae0: 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 } else {..
1af0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 #.. #
1b00: 4e 4f 54 45 3a 20 4e 6f 72 6d 61 6c 6c 79 2c 20 NOTE: Normally,
1b10: 77 65 20 77 69 6c 6c 20 6e 65 76 65 72 20 68 69 we will never hi
1b20: 74 20 74 68 69 73 20 63 61 73 65 20 62 65 63 61 t this case beca
1b30: 75 73 65 20 74 68 65 20 76 61 6c 75 65 20 6f 66 use the value of
1b40: 20 74 68 65 0d 0a 20 20 20 20 20 20 20 20 23 20 the.. #
1b50: 20 20 20 20 20 20 74 65 73 74 20 63 6f 6e 66 69 test confi
1b60: 67 75 72 61 74 69 6f 6e 20 76 61 72 69 61 62 6c guration variabl
1b70: 65 20 69 73 20 61 6c 77 61 79 73 20 73 65 74 20 e is always set
1b80: 62 79 20 74 68 65 20 74 65 73 74 20 73 75 69 74 by the test suit
1b90: 65 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 e.. #
1ba0: 20 20 20 69 74 73 65 6c 66 3b 20 68 6f 77 65 76 itself; howev
1bb0: 65 72 2c 20 69 74 20 63 61 6e 20 62 65 20 6f 76 er, it can be ov
1bc0: 65 72 72 69 64 64 65 6e 20 75 73 69 6e 67 20 74 erridden using t
1bd0: 68 65 20 75 6e 73 65 74 20 63 6f 6d 6d 61 6e 64 he unset command
1be0: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 .. #
1bf0: 20 20 66 72 6f 6d 20 74 68 65 20 2d 70 72 65 54 from the -preT
1c00: 65 73 74 20 6f 70 74 69 6f 6e 20 74 6f 20 74 68 est option to th
1c10: 65 20 74 65 73 74 20 73 75 69 74 65 2e 0d 0a 20 e test suite...
1c20: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
1c30: 20 20 72 65 74 75 72 6e 20 24 3a 3a 65 61 67 6c return $::eagl
1c40: 65 5f 70 6c 61 74 66 6f 72 6d 28 63 6f 6e 66 69 e_platform(confi
1c50: 67 75 72 61 74 69 6f 6e 29 0d 0a 20 20 20 20 20 guration)..
1c60: 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 }.. }.....
1c70: 20 20 70 72 6f 63 20 67 65 74 42 75 69 6c 64 43 proc getBuildC
1c80: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 73 20 7b 7d onfigurations {}
1c90: 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 {.. #..
1ca0: 20 20 20 23 20 4e 4f 54 45 3a 20 53 65 65 20 69 # NOTE: See i
1cb0: 66 20 74 68 65 20 6c 69 73 74 20 6f 66 20 74 65 f the list of te
1cc0: 73 74 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e st configuration
1cd0: 73 20 68 61 73 20 62 65 65 6e 20 6f 76 65 72 72 s has been overr
1ce0: 69 64 64 65 6e 20 62 79 0d 0a 20 20 20 20 20 20 idden by..
1cf0: 23 20 20 20 20 20 20 20 74 68 65 20 75 73 65 72 # the user
1d00: 20 28 65 2e 67 2e 20 6f 6e 20 74 68 65 20 63 6f (e.g. on the co
1d10: 6d 6d 61 6e 64 20 6c 69 6e 65 29 2e 0d 0a 20 20 mmand line)...
1d20: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 #.. if
1d30: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a {[info exists ::
1d40: 74 65 73 74 5f 63 6f 6e 66 69 67 75 72 61 74 69 test_configurati
1d50: 6f 6e 73 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20 ons] && \..
1d60: 20 20 20 20 20 5b 6c 6c 65 6e 67 74 68 20 24 3a [llength $:
1d70: 3a 74 65 73 74 5f 63 6f 6e 66 69 67 75 72 61 74 :test_configurat
1d80: 69 6f 6e 73 5d 20 3e 20 30 7d 20 74 68 65 6e 20 ions] > 0} then
1d90: 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 {.. #..
1da0: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 55 73 # NOTE: Us
1db0: 65 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 e the specified
1dc0: 6c 69 73 74 20 6f 66 20 74 65 73 74 20 63 6f 6e list of test con
1dd0: 66 69 67 75 72 61 74 69 6f 6e 73 2e 0d 0a 20 20 figurations...
1de0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
1df0: 20 72 65 74 75 72 6e 20 24 3a 3a 74 65 73 74 5f return $::test_
1e00: 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 73 0d 0a configurations..
1e10: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a } else {..
1e20: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #..
1e30: 20 20 20 23 20 4e 4f 54 45 3a 20 55 73 65 20 74 # NOTE: Use t
1e40: 68 65 20 64 65 66 61 75 6c 74 20 6c 69 73 74 20 he default list
1e50: 6f 66 20 74 65 73 74 20 63 6f 6e 66 69 67 75 72 of test configur
1e60: 61 74 69 6f 6e 73 2e 0d 0a 20 20 20 20 20 20 20 ations...
1e70: 20 23 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 #.. retu
1e80: 72 6e 20 5b 6c 69 73 74 20 44 65 62 75 67 20 52 rn [list Debug R
1e90: 65 6c 65 61 73 65 5d 0d 0a 20 20 20 20 20 20 7d elease].. }
1ea0: 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 .. }.....
1eb0: 70 72 6f 63 20 67 65 74 42 75 69 6c 64 42 61 73 proc getBuildBas
1ec0: 65 44 69 72 65 63 74 6f 72 79 20 7b 7d 20 7b 0d eDirectory {} {.
1ed0: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 . #..
1ee0: 23 20 4e 4f 54 45 3a 20 46 69 67 75 72 65 20 6f # NOTE: Figure o
1ef0: 75 74 20 74 68 65 20 62 61 73 65 20 64 69 72 65 ut the base dire
1f00: 63 74 6f 72 79 20 77 68 65 72 65 20 61 6c 6c 20 ctory where all
1f10: 74 68 65 20 62 75 69 6c 64 73 20 73 68 6f 75 6c the builds shoul
1f20: 64 20 62 65 0d 0a 20 20 20 20 20 20 23 20 20 20 d be.. #
1f30: 20 20 20 20 6c 6f 63 61 74 65 64 2e 20 20 54 68 located. Th
1f40: 69 73 20 77 69 6c 6c 20 62 65 20 74 68 65 20 64 is will be the d
1f50: 69 72 65 63 74 6f 72 79 20 74 68 61 74 20 63 6f irectory that co
1f60: 6e 74 61 69 6e 73 20 74 68 65 20 61 63 74 75 61 ntains the actua
1f70: 6c 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 l.. #
1f80: 20 62 75 69 6c 64 20 6f 75 74 70 75 74 20 64 69 build output di
1f90: 72 65 63 74 6f 72 79 20 28 65 2e 67 2e 20 70 61 rectory (e.g. pa
1fa0: 72 65 6e 74 20 6f 66 20 22 62 69 6e 22 29 2e 0d rent of "bin")..
1fb0: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 . #..
1fc0: 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 if {[info exists
1fd0: 20 3a 3a 62 75 69 6c 64 5f 62 61 73 65 5f 64 69 ::build_base_di
1fe0: 72 65 63 74 6f 72 79 5d 20 26 26 20 5c 0d 0a 20 rectory] && \..
1ff0: 20 20 20 20 20 20 20 20 20 5b 73 74 72 69 6e 67 [string
2000: 20 6c 65 6e 67 74 68 20 24 3a 3a 62 75 69 6c 64 length $::build
2010: 5f 62 61 73 65 5f 64 69 72 65 63 74 6f 72 79 5d _base_directory]
2020: 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 > 0} then {..
2030: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
2040: 20 23 20 4e 4f 54 45 3a 20 54 68 65 20 6c 6f 63 # NOTE: The loc
2050: 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 62 75 69 ation of the bui
2060: 6c 64 20 62 61 73 65 20 64 69 72 65 63 74 6f 72 ld base director
2070: 79 20 68 61 73 20 62 65 65 6e 20 6f 76 65 72 72 y has been overr
2080: 69 64 64 65 6e 3b 0d 0a 20 20 20 20 20 20 20 20 idden;..
2090: 23 20 20 20 20 20 20 20 74 68 65 72 65 66 6f 72 # therefor
20a0: 65 2c 20 75 73 65 20 69 74 20 76 65 72 62 61 74 e, use it verbat
20b0: 69 6d 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a im... #..
20c0: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 return $
20d0: 3a 3a 62 75 69 6c 64 5f 62 61 73 65 5f 64 69 72 ::build_base_dir
20e0: 65 63 74 6f 72 79 0d 0a 20 20 20 20 20 20 7d 20 ectory.. }
20f0: 65 6c 73 65 69 66 20 7b 5b 69 6e 66 6f 20 65 78 elseif {[info ex
2100: 69 73 74 73 20 3a 3a 63 6f 6d 6d 6f 6e 5f 64 69 ists ::common_di
2110: 72 65 63 74 6f 72 79 5d 20 26 26 20 5c 0d 0a 20 rectory] && \..
2120: 20 20 20 20 20 20 20 20 20 5b 73 74 72 69 6e 67 [string
2130: 20 6c 65 6e 67 74 68 20 24 3a 3a 63 6f 6d 6d 6f length $::commo
2140: 6e 5f 64 69 72 65 63 74 6f 72 79 5d 20 3e 20 30 n_directory] > 0
2150: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {..
2160: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e #.. # N
2170: 4f 54 45 3a 20 4e 65 78 74 2c 20 66 61 6c 6c 62 OTE: Next, fallb
2180: 61 63 6b 20 74 6f 20 74 68 65 20 70 61 72 65 6e ack to the paren
2190: 74 20 64 69 72 65 63 74 6f 72 79 20 6f 66 20 74 t directory of t
21a0: 68 65 20 6f 6e 65 20 63 6f 6e 74 61 69 6e 69 6e he one containin
21b0: 67 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 g.. #
21c0: 20 20 20 74 68 69 73 20 66 69 6c 65 20 28 69 2e this file (i.
21d0: 65 2e 20 22 63 6f 6d 6d 6f 6e 2e 65 61 67 6c 65 e. "common.eagle
21e0: 22 29 2c 20 69 66 20 61 76 61 69 6c 61 62 6c 65 "), if available
21f0: 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 ... #..
2200: 20 20 20 20 20 20 72 65 74 75 72 6e 20 5b 66 69 return [fi
2210: 6c 65 20 64 69 72 6e 61 6d 65 20 24 3a 3a 63 6f le dirname $::co
2220: 6d 6d 6f 6e 5f 64 69 72 65 63 74 6f 72 79 5d 0d mmon_directory].
2230: 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 69 66 20 . } elseif
2240: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a {[info exists ::
2250: 70 61 74 68 5d 20 26 26 20 5c 0d 0a 20 20 20 20 path] && \..
2260: 20 20 20 20 20 20 5b 73 74 72 69 6e 67 20 6c 65 [string le
2270: 6e 67 74 68 20 24 3a 3a 70 61 74 68 5d 20 3e 20 ngth $::path] >
2280: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 0} then {..
2290: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 #.. #
22a0: 4e 4f 54 45 3a 20 46 69 6e 61 6c 6c 79 2c 20 66 NOTE: Finally, f
22b0: 61 6c 6c 62 61 63 6b 20 74 6f 20 74 68 65 20 70 allback to the p
22c0: 61 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79 20 arent directory
22d0: 6f 66 20 74 68 65 20 45 61 67 6c 65 54 65 73 74 of the EagleTest
22e0: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 .. #
22f0: 20 20 70 61 74 68 2e 20 20 54 68 65 20 45 61 67 path. The Eag
2300: 6c 65 54 65 73 74 20 70 61 63 6b 61 67 65 20 67 leTest package g
2310: 75 61 72 61 6e 74 65 65 73 20 74 68 61 74 20 74 uarantees that t
2320: 68 69 73 20 76 61 72 69 61 62 6c 65 0d 0a 20 20 his variable..
2330: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 77 69 # wi
2340: 6c 6c 20 62 65 20 73 65 74 20 74 6f 20 74 68 65 ll be set to the
2350: 20 64 69 72 65 63 74 6f 72 79 20 63 6f 6e 74 61 directory conta
2360: 69 6e 69 6e 67 20 74 68 65 20 66 69 72 73 74 20 ining the first
2370: 66 69 6c 65 20 74 6f 0d 0a 20 20 20 20 20 20 20 file to..
2380: 20 23 20 20 20 20 20 20 20 65 78 65 63 75 74 65 # execute
2390: 20 74 68 65 20 5b 72 75 6e 54 65 73 74 50 72 6f the [runTestPro
23a0: 6c 6f 67 75 65 5d 20 73 63 72 69 70 74 20 6c 69 logue] script li
23b0: 62 72 61 72 79 20 70 72 6f 63 65 64 75 72 65 2e brary procedure.
23c0: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #..
23d0: 20 20 20 20 20 72 65 74 75 72 6e 20 5b 66 69 6c return [fil
23e0: 65 20 64 69 72 6e 61 6d 65 20 24 3a 3a 70 61 74 e dirname $::pat
23f0: 68 5d 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 h].. } else
2400: 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 {.. #..
2410: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 4e # NOTE: N
2420: 6f 20 70 61 74 68 20 69 73 20 61 76 61 69 6c 61 o path is availa
2430: 62 6c 65 2c 20 72 65 74 75 72 6e 20 61 6e 20 65 ble, return an e
2440: 6d 70 74 79 20 73 74 72 69 6e 67 2e 20 20 54 68 mpty string. Th
2450: 69 73 20 70 6f 69 6e 74 0d 0a 20 20 20 20 20 20 is point..
2460: 20 20 23 20 20 20 20 20 20 20 73 68 6f 75 6c 64 # should
2470: 20 6e 6f 74 20 62 65 20 72 65 61 63 68 65 64 2e not be reached.
2480: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #..
2490: 20 20 20 20 20 72 65 74 75 72 6e 20 22 22 0d 0a return ""..
24a0: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a }.. }..
24b0: 0c 0d 0a 20 20 20 20 70 72 6f 63 20 6a 6f 69 6e ... proc join
24c0: 42 75 69 6c 64 44 69 72 65 63 74 6f 72 79 20 7b BuildDirectory {
24d0: 20 6e 61 74 69 76 65 20 70 61 74 68 20 79 65 61 native path yea
24e0: 72 20 70 6c 61 74 66 6f 72 6d 20 63 6f 6e 66 69 r platform confi
24f0: 67 75 72 61 74 69 6f 6e 20 7d 20 7b 0d 0a 20 20 guration } {..
2500: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e #.. # N
2510: 4f 54 45 3a 20 46 69 67 75 72 65 20 6f 75 74 20 OTE: Figure out
2520: 61 6e 64 20 74 68 65 6e 20 72 65 74 75 72 6e 20 and then return
2530: 74 68 65 20 66 75 6c 6c 79 20 71 75 61 6c 69 66 the fully qualif
2540: 69 65 64 20 70 61 74 68 20 74 6f 20 74 68 65 20 ied path to the
2550: 62 75 69 6c 64 0d 0a 20 20 20 20 20 20 23 20 20 build.. #
2560: 20 20 20 20 20 64 69 72 65 63 74 6f 72 79 20 62 directory b
2570: 61 73 65 64 20 6f 6e 20 61 6c 6c 20 74 68 65 20 ased on all the
2580: 61 72 67 75 6d 65 6e 74 73 20 70 72 6f 76 69 64 arguments provid
2590: 65 64 20 62 79 20 6f 75 72 20 63 61 6c 6c 65 72 ed by our caller
25a0: 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 ... #..
25b0: 20 20 69 66 20 7b 24 6e 61 74 69 76 65 7d 20 74 if {$native} t
25c0: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 72 hen {.. r
25d0: 65 74 75 72 6e 20 5b 66 69 6c 65 20 6a 6f 69 6e eturn [file join
25e0: 20 24 70 61 74 68 20 62 69 6e 20 24 79 65 61 72 $path bin $year
25f0: 20 24 70 6c 61 74 66 6f 72 6d 20 24 63 6f 6e 66 $platform $conf
2600: 69 67 75 72 61 74 69 6f 6e 5d 0d 0a 20 20 20 20 iguration]..
2610: 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 } else {..
2620: 20 20 20 20 72 65 74 75 72 6e 20 5b 66 69 6c 65 return [file
2630: 20 6a 6f 69 6e 20 24 70 61 74 68 20 62 69 6e 20 join $path bin
2640: 24 79 65 61 72 20 24 63 6f 6e 66 69 67 75 72 61 $year $configura
2650: 74 69 6f 6e 20 62 69 6e 5d 0d 0a 20 20 20 20 20 tion bin]..
2660: 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 }.. }.....
2670: 20 20 70 72 6f 63 20 67 65 74 42 75 69 6c 64 44 proc getBuildD
2680: 69 72 65 63 74 6f 72 79 20 7b 7d 20 7b 0d 0a 20 irectory {} {..
2690: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 #.. #
26a0: 4e 4f 54 45 3a 20 53 65 65 20 69 66 20 74 68 65 NOTE: See if the
26b0: 20 22 6e 61 74 69 76 65 22 20 72 75 6e 74 69 6d "native" runtim
26c0: 65 20 6f 70 74 69 6f 6e 20 68 61 73 20 62 65 65 e option has bee
26d0: 6e 20 73 65 74 2e 20 20 49 66 20 73 6f 2c 20 75 n set. If so, u
26e0: 73 65 20 74 68 65 0d 0a 20 20 20 20 20 20 23 20 se the.. #
26f0: 20 20 20 20 20 20 64 69 72 65 63 74 6f 72 79 20 directory
2700: 66 6f 72 20 74 68 65 20 6d 69 78 65 64 2d 6d 6f for the mixed-mo
2710: 64 65 20 61 73 73 65 6d 62 6c 79 20 28 61 2e 6b de assembly (a.k
2720: 2e 61 2e 20 74 68 65 20 6e 61 74 69 76 65 20 69 .a. the native i
2730: 6e 74 65 72 6f 70 0d 0a 20 20 20 20 20 20 23 20 nterop.. #
2740: 20 20 20 20 20 20 61 73 73 65 6d 62 6c 79 29 2e assembly).
2750: 20 20 54 6f 20 65 6e 61 62 6c 65 20 74 68 69 73 To enable this
2760: 20 6f 70 74 69 6f 6e 20 76 69 61 20 74 68 65 20 option via the
2770: 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 2c 20 65 6e command line, en
2780: 74 65 72 20 61 0d 0a 20 20 20 20 20 20 23 20 20 ter a.. #
2790: 20 20 20 20 20 63 6f 6d 6d 61 6e 64 20 73 69 6d command sim
27a0: 69 6c 61 72 20 74 6f 20 6f 6e 65 20 6f 66 20 74 ilar to one of t
27b0: 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 28 61 6c he following (al
27c0: 6c 20 6f 6e 20 6f 6e 65 20 6c 69 6e 65 29 3a 0d l on one line):.
27d0: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 . #..
27e0: 23 20 20 20 20 20 20 20 45 61 67 6c 65 53 68 65 # EagleShe
27f0: 6c 6c 2e 65 78 65 20 2d 69 6e 69 74 69 61 6c 69 ll.exe -initiali
2800: 7a 65 20 2d 72 75 6e 74 69 6d 65 4f 70 74 69 6f ze -runtimeOptio
2810: 6e 20 6e 61 74 69 76 65 0d 0a 20 20 20 20 20 20 n native..
2820: 23 20 20 20 20 20 20 20 20 20 2d 66 69 6c 65 20 # -file
2830: 2e 5c 70 61 74 68 5c 74 6f 5c 61 6c 6c 2e 65 61 .\path\to\all.ea
2840: 67 6c 65 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 gle.. #..
2850: 20 20 20 20 23 20 20 20 20 20 20 20 54 6f 20 65 # To e
2860: 6e 61 62 6c 65 20 74 68 69 73 20 6f 70 74 69 6f nable this optio
2870: 6e 20 76 69 61 20 74 68 65 20 63 6f 6d 6d 61 6e n via the comman
2880: 64 20 6c 69 6e 65 20 70 72 69 6f 72 20 74 6f 20 d line prior to
2890: 74 68 65 20 22 62 65 74 61 20 31 36 22 0d 0a 20 the "beta 16"..
28a0: 20 20 20 20 20 23 20 20 20 20 20 20 20 72 65 6c # rel
28b0: 65 61 73 65 20 6f 66 20 45 61 67 6c 65 2c 20 74 ease of Eagle, t
28c0: 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 63 6f 6d he following com
28d0: 6d 61 6e 64 20 6d 75 73 74 20 62 65 20 75 73 65 mand must be use
28e0: 64 20 69 6e 73 74 65 61 64 0d 0a 20 20 20 20 20 d instead..
28f0: 20 23 20 20 20 20 20 20 20 28 61 6c 73 6f 20 61 # (also a
2900: 6c 6c 20 6f 6e 20 6f 6e 65 20 6c 69 6e 65 29 3a ll on one line):
2910: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #..
2920: 20 23 20 20 20 20 20 20 20 45 61 67 6c 65 53 68 # EagleSh
2930: 65 6c 6c 2e 65 78 65 20 2d 69 6e 69 74 69 61 6c ell.exe -initial
2940: 69 7a 65 20 2d 70 6f 73 74 49 6e 69 74 69 61 6c ize -postInitial
2950: 69 7a 65 0d 0a 20 20 20 20 20 20 23 20 20 20 20 ize.. #
2960: 20 20 20 20 20 22 6f 62 6a 65 63 74 20 69 6e 76 "object inv
2970: 6f 6b 65 20 49 6e 74 65 72 70 72 65 74 65 72 2e oke Interpreter.
2980: 47 65 74 41 63 74 69 76 65 20 41 64 64 52 75 6e GetActive AddRun
2990: 74 69 6d 65 4f 70 74 69 6f 6e 20 6e 61 74 69 76 timeOption nativ
29a0: 65 22 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 e".. #
29b0: 20 20 20 20 2d 66 69 6c 65 20 2e 5c 70 61 74 68 -file .\path
29c0: 5c 74 6f 5c 61 6c 6c 2e 65 61 67 6c 65 0d 0a 20 \to\all.eagle..
29d0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 #.. if
29e0: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a {[info exists :
29f0: 3a 62 75 69 6c 64 5f 64 69 72 65 63 74 6f 72 79 :build_directory
2a00: 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 ] && \..
2a10: 20 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 [string length
2a20: 20 24 3a 3a 62 75 69 6c 64 5f 64 69 72 65 63 74 $::build_direct
2a30: 6f 72 79 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b ory] > 0} then {
2a40: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #..
2a50: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 65 # NOTE: The
2a60: 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 74 68 65 location of the
2a70: 20 62 75 69 6c 64 20 64 69 72 65 63 74 6f 72 79 build directory
2a80: 20 68 61 73 20 62 65 65 6e 20 6f 76 65 72 72 69 has been overri
2a90: 64 64 65 6e 3b 0d 0a 20 20 20 20 20 20 20 20 23 dden;.. #
2aa0: 20 20 20 20 20 20 20 74 68 65 72 65 66 6f 72 65 therefore
2ab0: 2c 20 75 73 65 20 69 74 20 76 65 72 62 61 74 69 , use it verbati
2ac0: 6d 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 m... #..
2ad0: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 3a return $:
2ae0: 3a 62 75 69 6c 64 5f 64 69 72 65 63 74 6f 72 79 :build_directory
2af0: 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b .. } else {
2b00: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #..
2b10: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 49 66 20 # NOTE: If
2b20: 74 68 65 20 22 6e 61 74 69 76 65 22 20 72 75 6e the "native" run
2b30: 74 69 6d 65 20 6f 70 74 69 6f 6e 20 69 73 20 73 time option is s
2b40: 65 74 2c 20 74 68 65 20 6d 69 78 65 64 2d 6d 6f et, the mixed-mo
2b50: 64 65 20 61 73 73 65 6d 62 6c 79 0d 0a 20 20 20 de assembly..
2b60: 20 20 20 20 20 23 20 20 20 20 20 20 20 69 73 20 # is
2b70: 62 65 69 6e 67 20 74 65 73 74 65 64 2e 20 20 49 being tested. I
2b80: 6e 20 74 68 61 74 20 63 61 73 65 2c 20 74 68 65 n that case, the
2b90: 20 70 61 74 68 20 74 6f 20 74 68 65 20 62 75 69 path to the bui
2ba0: 6c 64 20 64 69 72 65 63 74 6f 72 79 0d 0a 20 20 ld directory..
2bb0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 77 69 # wi
2bc0: 6c 6c 20 63 6f 6e 74 61 69 6e 20 74 68 65 20 70 ll contain the p
2bd0: 6c 61 74 66 6f 72 6d 20 6e 61 6d 65 20 61 6e 64 latform name and
2be0: 20 61 6c 6c 20 74 68 65 20 62 69 6e 61 72 69 65 all the binarie
2bf0: 73 20 75 6e 64 65 72 20 74 65 73 74 0d 0a 20 20 s under test..
2c00: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 73 68 # sh
2c10: 6f 75 6c 64 20 62 65 20 70 72 65 73 65 6e 74 20 ould be present
2c20: 69 6e 20 74 68 61 74 20 64 69 72 65 63 74 6f 72 in that director
2c30: 79 2e 20 20 49 66 20 74 68 65 20 22 6e 61 74 69 y. If the "nati
2c40: 76 65 22 20 72 75 6e 74 69 6d 65 0d 0a 20 20 20 ve" runtime..
2c50: 20 20 20 20 20 23 20 20 20 20 20 20 20 6f 70 74 # opt
2c60: 69 6f 6e 20 69 73 20 6e 6f 74 20 73 65 74 2c 20 ion is not set,
2c70: 74 68 65 20 62 75 69 6c 64 20 64 69 72 65 63 74 the build direct
2c80: 6f 72 79 20 77 69 6c 6c 20 62 65 20 63 6f 6e 73 ory will be cons
2c90: 69 64 65 72 65 64 20 74 6f 20 62 65 0d 0a 20 20 idered to be..
2ca0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 22 70 # "p
2cb0: 6c 61 74 66 6f 72 6d 2d 6e 65 75 74 72 61 6c 22 latform-neutral"
2cc0: 2c 20 77 69 74 68 20 74 68 65 20 6e 6f 74 61 62 , with the notab
2cd0: 6c 65 20 65 78 63 65 70 74 69 6f 6e 20 6f 66 20 le exception of
2ce0: 61 6e 79 20 6e 61 74 69 76 65 0d 0a 20 20 20 20 any native..
2cf0: 20 20 20 20 23 20 20 20 20 20 20 20 61 73 73 65 # asse
2d00: 6d 62 6c 79 20 28 65 2e 67 2e 20 22 53 51 4c 69 mbly (e.g. "SQLi
2d10: 74 65 2e 49 6e 74 65 72 6f 70 2e 64 6c 6c 22 29 te.Interop.dll")
2d20: 20 63 6f 70 69 65 64 20 74 68 65 72 65 20 64 75 copied there du
2d30: 72 69 6e 67 20 74 68 65 0d 0a 20 20 20 20 20 20 ring the..
2d40: 20 20 23 20 20 20 20 20 20 20 62 75 69 6c 64 20 # build
2d50: 70 72 6f 63 65 73 73 20 69 74 73 65 6c 66 2e 20 process itself.
2d60: 20 49 66 20 74 68 65 20 62 75 69 6c 64 20 70 72 If the build pr
2d70: 6f 63 65 73 73 20 73 6f 6d 65 68 6f 77 20 64 6f ocess somehow do
2d80: 65 73 20 6e 6f 74 0d 0a 20 20 20 20 20 20 20 20 es not..
2d90: 23 20 20 20 20 20 20 20 63 6f 70 79 20 74 68 65 # copy the
2da0: 20 6e 61 74 69 76 65 20 61 73 73 65 6d 62 6c 79 native assembly
2db0: 20 66 6f 72 20 74 68 69 73 20 70 6c 61 74 66 6f for this platfo
2dc0: 72 6d 2c 20 6d 6f 73 74 20 6f 66 20 74 68 65 20 rm, most of the
2dd0: 74 65 73 74 73 0d 0a 20 20 20 20 20 20 20 20 23 tests.. #
2de0: 20 20 20 20 20 20 20 69 6e 20 74 68 65 20 73 75 in the su
2df0: 69 74 65 20 77 69 6c 6c 20 73 69 6d 70 6c 79 20 ite will simply
2e00: 62 65 20 73 6b 69 70 70 65 64 2e 20 20 47 65 6e be skipped. Gen
2e10: 65 72 61 6c 6c 79 20 73 70 65 61 6b 69 6e 67 2c erally speaking,
2e20: 20 74 68 65 72 65 0d 0a 20 20 20 20 20 20 20 20 there..
2e30: 23 20 20 20 20 20 20 20 61 72 65 20 74 77 6f 20 # are two
2e40: 77 61 79 73 20 74 6f 20 62 75 69 6c 64 20 74 68 ways to build th
2e50: 65 20 62 69 6e 61 72 69 65 73 20 77 68 65 6e 20 e binaries when
2e60: 70 72 65 70 61 72 69 6e 67 20 74 6f 20 72 75 6e preparing to run
2e70: 20 74 68 65 0d 0a 20 20 20 20 20 20 20 20 23 20 the.. #
2e80: 20 20 20 20 20 20 74 65 73 74 20 73 75 69 74 65 test suite
2e90: 3a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 :.. #..
2ea0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 31 2e # 1.
2eb0: 20 42 75 69 6c 64 20 74 68 65 20 73 65 70 61 72 Build the separ
2ec0: 61 74 65 20 6d 61 6e 61 67 65 64 20 61 6e 64 20 ate managed and
2ed0: 6e 61 74 69 76 65 20 61 73 73 65 6d 62 6c 69 65 native assemblie
2ee0: 73 20 75 73 69 6e 67 20 73 6f 6d 65 0d 0a 20 20 s using some..
2ef0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 20 20 #
2f00: 20 63 6f 6d 6d 61 6e 64 73 20 73 69 6d 69 6c 61 commands simila
2f10: 72 20 74 6f 3a 0d 0a 20 20 20 20 20 20 20 20 23 r to:.. #
2f20: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 .. #
2f30: 20 20 20 20 20 62 75 69 6c 64 2e 62 61 74 20 24 build.bat $
2f40: 7b 43 6f 6e 66 69 67 75 72 61 74 69 6f 6e 7d 4d {Configuration}M
2f50: 61 6e 61 67 65 64 4f 6e 6c 79 20 24 7b 50 6c 61 anagedOnly ${Pla
2f60: 74 66 6f 72 6d 7d 0d 0a 20 20 20 20 20 20 20 20 tform}..
2f70: 23 20 20 20 20 20 20 20 20 20 20 62 75 69 6c 64 # build
2f80: 2e 62 61 74 20 24 7b 43 6f 6e 66 69 67 75 72 61 .bat ${Configura
2f90: 74 69 6f 6e 7d 4e 61 74 69 76 65 4f 6e 6c 79 20 tion}NativeOnly
2fa0: 24 7b 50 6c 61 74 66 6f 72 6d 7d 0d 0a 20 20 20 ${Platform}..
2fb0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #..
2fc0: 23 20 20 20 20 20 20 20 20 20 20 57 68 65 72 65 # Where
2fd0: 20 24 7b 43 6f 6e 66 69 67 75 72 61 74 69 6f 6e ${Configuration
2fe0: 7d 20 69 73 20 65 69 74 68 65 72 20 22 44 65 62 } is either "Deb
2ff0: 75 67 22 20 6f 72 20 22 52 65 6c 65 61 73 65 22 ug" or "Release"
3000: 20 61 6e 64 0d 0a 20 20 20 20 20 20 20 20 23 20 and.. #
3010: 20 20 20 20 20 20 20 20 20 24 7b 50 6c 61 74 66 ${Platf
3020: 6f 72 6d 7d 20 69 73 20 65 69 74 68 65 72 20 22 orm} is either "
3030: 57 69 6e 33 32 22 20 6f 72 20 22 78 36 34 22 2e Win32" or "x64".
3040: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #..
3050: 20 20 20 20 20 23 20 20 20 20 20 20 20 32 2e 20 # 2.
3060: 42 75 69 6c 64 20 74 68 65 20 6d 69 78 65 64 2d Build the mixed-
3070: 6d 6f 64 65 20 61 73 73 65 6d 62 6c 79 20 75 73 mode assembly us
3080: 69 6e 67 20 61 20 63 6f 6d 6d 61 6e 64 20 73 69 ing a command si
3090: 6d 69 6c 61 72 20 74 6f 3a 0d 0a 20 20 20 20 20 milar to:..
30a0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 #.. #
30b0: 20 20 20 20 20 20 20 20 20 62 75 69 6c 64 2e 62 build.b
30c0: 61 74 20 24 7b 43 6f 6e 66 69 67 75 72 61 74 69 at ${Configurati
30d0: 6f 6e 7d 20 24 7b 50 6c 61 74 66 6f 72 6d 7d 0d on} ${Platform}.
30e0: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #..
30f0: 20 20 20 20 23 20 20 20 20 20 20 20 20 20 20 57 # W
3100: 68 65 72 65 20 24 7b 43 6f 6e 66 69 67 75 72 61 here ${Configura
3110: 74 69 6f 6e 7d 20 69 73 20 65 69 74 68 65 72 20 tion} is either
3120: 22 44 65 62 75 67 22 20 6f 72 20 22 52 65 6c 65 "Debug" or "Rele
3130: 61 73 65 22 20 61 6e 64 0d 0a 20 20 20 20 20 20 ase" and..
3140: 20 20 23 20 20 20 20 20 20 20 20 20 20 24 7b 50 # ${P
3150: 6c 61 74 66 6f 72 6d 7d 20 69 73 20 65 69 74 68 latform} is eith
3160: 65 72 20 22 57 69 6e 33 32 22 20 6f 72 20 22 78 er "Win32" or "x
3170: 36 34 22 2e 20 20 49 66 20 74 68 69 73 20 63 6f 64". If this co
3180: 6d 6d 61 6e 64 20 69 73 0d 0a 20 20 20 20 20 20 mmand is..
3190: 20 20 23 20 20 20 20 20 20 20 20 20 20 75 73 65 # use
31a0: 64 2c 20 76 61 72 69 6f 75 73 20 74 65 73 74 73 d, various tests
31b0: 20 74 68 61 74 20 72 65 71 75 69 72 65 20 73 75 that require su
31c0: 70 70 6c 65 6d 65 6e 74 61 72 79 20 6d 61 6e 61 pplementary mana
31d0: 67 65 64 0d 0a 20 20 20 20 20 20 20 20 23 20 20 ged.. #
31e0: 20 20 20 20 20 20 20 20 61 73 73 65 6d 62 6c 69 assembli
31f0: 65 73 20 28 65 2e 67 2e 20 4c 49 4e 51 29 20 6d es (e.g. LINQ) m
3200: 61 79 20 62 65 20 73 6b 69 70 70 65 64 20 75 6e ay be skipped un
3210: 6c 65 73 73 20 74 68 6f 73 65 20 62 69 6e 61 72 less those binar
3220: 69 65 73 0d 0a 20 20 20 20 20 20 20 20 23 20 20 ies.. #
3230: 20 20 20 20 20 20 20 20 61 72 65 20 73 75 62 73 are subs
3240: 65 71 75 65 6e 74 6c 79 20 63 6f 70 69 65 64 20 equently copied
3250: 69 6e 74 6f 20 74 68 65 20 63 6f 72 72 65 63 74 into the correct
3260: 20 64 69 72 65 63 74 6f 72 79 20 28 69 2e 65 2e directory (i.e.
3270: 20 62 79 0d 0a 20 20 20 20 20 20 20 20 23 20 20 by.. #
3280: 20 20 20 20 20 20 20 20 22 74 65 73 74 5f 61 6c "test_al
3290: 6c 2e 62 61 74 22 29 2e 0d 0a 20 20 20 20 20 20 l.bat")...
32a0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 20 #.. #
32b0: 20 20 20 20 20 4e 6f 74 65 20 74 68 61 74 20 61 Note that a
32c0: 6c 6c 20 6f 66 20 74 68 65 20 62 75 69 6c 64 20 ll of the build
32d0: 63 6f 6d 6d 61 6e 64 73 20 61 62 6f 76 65 20 77 commands above w
32e0: 69 6c 6c 20 64 65 66 61 75 6c 74 20 74 6f 20 75 ill default to u
32f0: 73 69 6e 67 0d 0a 20 20 20 20 20 20 20 20 23 20 sing.. #
3300: 20 20 20 20 20 20 74 68 65 20 6c 61 74 65 73 74 the latest
3310: 20 76 65 72 73 69 6f 6e 20 6f 66 20 4d 53 42 75 version of MSBu
3320: 69 6c 64 20 61 76 61 69 6c 61 62 6c 65 20 61 6e ild available an
3330: 64 20 74 68 65 20 22 74 65 73 74 5f 79 65 61 72 d the "test_year
3340: 22 20 6d 61 79 0d 0a 20 20 20 20 20 20 20 20 23 " may.. #
3350: 20 20 20 20 20 20 20 6e 65 65 64 20 74 6f 20 62 need to b
3360: 65 20 61 64 6a 75 73 74 65 64 20 61 63 63 6f 72 e adjusted accor
3370: 64 69 6e 67 6c 79 20 74 6f 20 61 63 74 75 61 6c dingly to actual
3380: 6c 79 20 72 75 6e 20 74 68 65 20 74 65 73 74 20 ly run the test
3390: 73 75 69 74 65 2e 0d 0a 20 20 20 20 20 20 20 20 suite...
33a0: 23 20 20 20 20 20 20 20 52 65 66 65 72 20 74 6f # Refer to
33b0: 20 74 68 65 20 63 6f 6d 6d 65 6e 74 73 20 69 6e the comments in
33c0: 20 5b 67 65 74 42 75 69 6c 64 59 65 61 72 5d 20 [getBuildYear]
33d0: 66 6f 72 20 6d 6f 72 65 20 69 6e 66 6f 72 6d 61 for more informa
33e0: 74 69 6f 6e 20 6f 6e 0d 0a 20 20 20 20 20 20 20 tion on..
33f0: 20 23 20 20 20 20 20 20 20 68 6f 77 20 74 6f 20 # how to
3400: 73 65 74 20 74 68 69 73 20 76 61 72 69 61 62 6c set this variabl
3410: 65 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 e... #..
3420: 20 20 20 20 20 20 20 73 65 74 20 6e 61 74 69 76 set nativ
3430: 65 20 5b 68 61 73 52 75 6e 74 69 6d 65 4f 70 74 e [hasRuntimeOpt
3440: 69 6f 6e 20 6e 61 74 69 76 65 5d 0d 0a 0d 0a 20 ion native]....
3450: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 5b 6a return [j
3460: 6f 69 6e 42 75 69 6c 64 44 69 72 65 63 74 6f 72 oinBuildDirector
3470: 79 20 24 6e 61 74 69 76 65 20 5b 67 65 74 42 75 y $native [getBu
3480: 69 6c 64 42 61 73 65 44 69 72 65 63 74 6f 72 79 ildBaseDirectory
3490: 5d 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ] \..
34a0: 20 5b 67 65 74 42 75 69 6c 64 59 65 61 72 5d 20 [getBuildYear]
34b0: 5b 67 65 74 42 75 69 6c 64 50 6c 61 74 66 6f 72 [getBuildPlatfor
34c0: 6d 20 24 6e 61 74 69 76 65 5d 20 5b 67 65 74 42 m $native] [getB
34d0: 75 69 6c 64 43 6f 6e 66 69 67 75 72 61 74 69 6f uildConfiguratio
34e0: 6e 5d 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 n]].. }..
34f0: 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 }..... proc
3500: 20 67 65 74 42 75 69 6c 64 46 69 6c 65 4e 61 6d getBuildFileNam
3510: 65 20 7b 20 66 69 6c 65 4e 61 6d 65 20 7d 20 7b e { fileName } {
3520: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #..
3530: 20 23 20 4e 4f 54 45 3a 20 52 65 74 75 72 6e 73 # NOTE: Returns
3540: 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 66 the specified f
3550: 69 6c 65 20 6e 61 6d 65 20 61 73 20 69 66 20 69 ile name as if i
3560: 74 20 77 65 72 65 20 6c 6f 63 61 74 65 64 20 69 t were located i
3570: 6e 20 74 68 65 0d 0a 20 20 20 20 20 20 23 20 20 n the.. #
3580: 20 20 20 20 20 62 75 69 6c 64 20 64 69 72 65 63 build direc
3590: 74 6f 72 79 2c 20 64 69 73 63 61 72 64 69 6e 67 tory, discarding
35a0: 20 61 6e 79 20 64 69 72 65 63 74 6f 72 79 20 69 any directory i
35b0: 6e 66 6f 72 6d 61 74 69 6f 6e 20 70 72 65 73 65 nformation prese
35c0: 6e 74 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 nt.. #
35d0: 20 20 69 6e 20 74 68 65 20 66 69 6c 65 20 6e 61 in the file na
35e0: 6d 65 20 61 73 20 70 72 6f 76 69 64 65 64 20 62 me as provided b
35f0: 79 20 6f 75 72 20 63 61 6c 6c 65 72 2e 0d 0a 20 y our caller...
3600: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 72 65 #.. re
3610: 74 75 72 6e 20 5b 66 69 6c 65 20 6e 61 74 69 76 turn [file nativ
3620: 65 6e 61 6d 65 20 5c 0d 0a 20 20 20 20 20 20 20 ename \..
3630: 20 20 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 67 [file join [g
3640: 65 74 42 75 69 6c 64 44 69 72 65 63 74 6f 72 79 etBuildDirectory
3650: 5d 20 5b 66 69 6c 65 20 74 61 69 6c 20 24 66 69 ] [file tail $fi
3660: 6c 65 4e 61 6d 65 5d 5d 5d 0d 0a 20 20 20 20 7d leName]]].. }
3670: 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 67 65 ..... proc ge
3680: 74 42 69 6e 61 72 79 44 69 72 65 63 74 6f 72 79 tBinaryDirectory
3690: 20 7b 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a {} {.. #..
36a0: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 # NOTE: Th
36b0: 69 73 20 70 72 6f 63 65 64 75 72 65 20 72 65 74 is procedure ret
36c0: 75 72 6e 73 20 74 68 65 20 64 69 72 65 63 74 6f urns the directo
36d0: 72 79 20 77 68 65 72 65 20 74 68 65 20 74 65 73 ry where the tes
36e0: 74 20 61 70 70 6c 69 63 61 74 69 6f 6e 0d 0a 20 t application..
36f0: 20 20 20 20 20 23 20 20 20 20 20 20 20 69 74 73 # its
3700: 65 6c 66 20 28 69 2e 65 2e 20 74 68 65 20 45 61 elf (i.e. the Ea
3710: 67 6c 65 20 73 68 65 6c 6c 29 20 69 73 20 6c 6f gle shell) is lo
3720: 63 61 74 65 64 2e 20 20 54 68 69 73 20 77 69 6c cated. This wil
3730: 6c 20 62 65 20 75 73 65 64 20 61 73 0d 0a 20 20 l be used as..
3740: 20 20 20 20 23 20 20 20 20 20 20 20 74 68 65 20 # the
3750: 64 65 73 74 69 6e 61 74 69 6f 6e 20 66 6f 72 20 destination for
3760: 74 68 65 20 63 6f 70 69 65 64 20 53 79 73 74 65 the copied Syste
3770: 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 20 6e 61 m.Data.SQLite na
3780: 74 69 76 65 20 61 6e 64 0d 0a 20 20 20 20 20 20 tive and..
3790: 23 20 20 20 20 20 20 20 6d 61 6e 61 67 65 64 20 # managed
37a0: 61 73 73 65 6d 62 6c 69 65 73 20 28 69 2e 65 2e assemblies (i.e.
37b0: 20 62 65 63 61 75 73 65 20 74 68 69 73 20 69 73 because this is
37c0: 20 6f 6e 65 20 6f 66 20 74 68 65 20 66 65 77 20 one of the few
37d0: 70 6c 61 63 65 73 0d 0a 20 20 20 20 20 20 23 20 places.. #
37e0: 20 20 20 20 20 20 77 68 65 72 65 20 74 68 65 20 where the
37f0: 43 4c 52 20 77 69 6c 6c 20 61 63 74 75 61 6c 6c CLR will actuall
3800: 79 20 66 69 6e 64 20 61 6e 64 20 6c 6f 61 64 20 y find and load
3810: 74 68 65 6d 20 70 72 6f 70 65 72 6c 79 29 2e 0d them properly)..
3820: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 . #..
3830: 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 if {[info exists
3840: 20 3a 3a 62 69 6e 61 72 79 5f 64 69 72 65 63 74 ::binary_direct
3850: 6f 72 79 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20 ory] && \..
3860: 20 20 20 20 20 5b 73 74 72 69 6e 67 20 6c 65 6e [string len
3870: 67 74 68 20 24 3a 3a 62 69 6e 61 72 79 5f 64 69 gth $::binary_di
3880: 72 65 63 74 6f 72 79 5d 20 3e 20 30 7d 20 74 68 rectory] > 0} th
3890: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d en {.. #.
38a0: 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a . # NOTE:
38b0: 20 54 68 65 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 The location of
38c0: 20 74 68 65 20 62 69 6e 61 72 79 20 64 69 72 65 the binary dire
38d0: 63 74 6f 72 79 20 68 61 73 20 62 65 65 6e 20 6f ctory has been o
38e0: 76 65 72 72 69 64 64 65 6e 3b 0d 0a 20 20 20 20 verridden;..
38f0: 20 20 20 20 23 20 20 20 20 20 20 20 74 68 65 72 # ther
3900: 65 66 6f 72 65 2c 20 75 73 65 20 69 74 20 76 65 efore, use it ve
3910: 72 62 61 74 69 6d 2e 0d 0a 20 20 20 20 20 20 20 rbatim...
3920: 20 23 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 #.. retu
3930: 72 6e 20 24 3a 3a 62 69 6e 61 72 79 5f 64 69 72 rn $::binary_dir
3940: 65 63 74 6f 72 79 0d 0a 20 20 20 20 20 20 7d 20 ectory.. }
3950: 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 else {..
3960: 72 65 74 75 72 6e 20 5b 69 6e 66 6f 20 62 69 6e return [info bin
3970: 61 72 79 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 ary].. }..
3980: 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f }..... pro
3990: 63 20 67 65 74 42 69 6e 61 72 79 46 69 6c 65 4e c getBinaryFileN
39a0: 61 6d 65 20 7b 20 66 69 6c 65 4e 61 6d 65 20 7d ame { fileName }
39b0: 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 {.. #..
39c0: 20 20 20 23 20 4e 4f 54 45 3a 20 52 65 74 75 72 # NOTE: Retur
39d0: 6e 73 20 74 68 65 20 73 70 65 63 69 66 69 65 64 ns the specified
39e0: 20 66 69 6c 65 20 6e 61 6d 65 20 61 73 20 69 66 file name as if
39f0: 20 69 74 20 77 65 72 65 20 6c 6f 63 61 74 65 64 it were located
3a00: 20 69 6e 20 74 68 65 0d 0a 20 20 20 20 20 20 23 in the.. #
3a10: 20 20 20 20 20 20 20 62 69 6e 61 72 79 20 64 69 binary di
3a20: 72 65 63 74 6f 72 79 2c 20 64 69 73 63 61 72 64 rectory, discard
3a30: 69 6e 67 20 61 6e 79 20 64 69 72 65 63 74 6f 72 ing any director
3a40: 79 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 70 72 y information pr
3a50: 65 73 65 6e 74 0d 0a 20 20 20 20 20 20 23 20 20 esent.. #
3a60: 20 20 20 20 20 69 6e 20 74 68 65 20 66 69 6c 65 in the file
3a70: 20 6e 61 6d 65 20 61 73 20 70 72 6f 76 69 64 65 name as provide
3a80: 64 20 62 79 20 6f 75 72 20 63 61 6c 6c 65 72 2e d by our caller.
3a90: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #..
3aa0: 20 72 65 74 75 72 6e 20 5b 66 69 6c 65 20 6e 61 return [file na
3ab0: 74 69 76 65 6e 61 6d 65 20 5c 0d 0a 20 20 20 20 tivename \..
3ac0: 20 20 20 20 20 20 5b 66 69 6c 65 20 6a 6f 69 6e [file join
3ad0: 20 5b 67 65 74 42 69 6e 61 72 79 44 69 72 65 63 [getBinaryDirec
3ae0: 74 6f 72 79 5d 20 5b 66 69 6c 65 20 74 61 69 6c tory] [file tail
3af0: 20 24 66 69 6c 65 4e 61 6d 65 5d 5d 5d 0d 0a 20 $fileName]]]..
3b00: 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f }..... pro
3b10: 63 20 67 65 74 43 6f 72 65 42 69 6e 61 72 79 46 c getCoreBinaryF
3b20: 69 6c 65 4e 61 6d 65 20 7b 20 7b 73 74 61 6e 64 ileName { {stand
3b30: 61 72 64 20 66 61 6c 73 65 7d 20 7d 20 7b 0d 0a ard false} } {..
3b40: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 #.. #
3b50: 20 4e 4f 54 45 3a 20 52 65 74 75 72 6e 73 20 74 NOTE: Returns t
3b60: 68 65 20 66 75 6c 6c 20 70 61 74 68 20 66 6f 72 he full path for
3b70: 20 74 68 65 20 66 69 6c 65 20 63 6f 6e 74 61 69 the file contai
3b80: 6e 69 6e 67 20 74 68 65 20 63 6f 72 65 20 53 51 ning the core SQ
3b90: 4c 69 74 65 0d 0a 20 20 20 20 20 20 23 20 20 20 Lite.. #
3ba0: 20 20 20 20 6c 69 62 72 61 72 79 20 63 6f 64 65 library code
3bb0: 20 66 6f 72 20 74 68 69 73 20 70 6c 61 74 66 6f for this platfo
3bc0: 72 6d 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 rm... #..
3bd0: 20 20 20 20 69 66 20 7b 5b 68 61 73 52 75 6e 74 if {[hasRunt
3be0: 69 6d 65 4f 70 74 69 6f 6e 20 6e 61 74 69 76 65 imeOption native
3bf0: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 ]} then {..
3c00: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 #.. #
3c10: 4e 4f 54 45 3a 20 52 65 74 75 72 6e 20 74 68 65 NOTE: Return the
3c20: 20 6d 69 78 65 64 2d 6d 6f 64 65 20 61 73 73 65 mixed-mode asse
3c30: 6d 62 6c 79 20 66 69 6c 65 20 6e 61 6d 65 2e 0d mbly file name..
3c40: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #..
3c50: 20 20 20 20 72 65 74 75 72 6e 20 5b 66 69 6c 65 return [file
3c60: 20 6e 61 74 69 76 65 6e 61 6d 65 20 5c 0d 0a 20 nativename \..
3c70: 20 20 20 20 20 20 20 20 20 20 20 5b 66 69 6c 65 [file
3c80: 20 6a 6f 69 6e 20 5b 67 65 74 42 69 6e 61 72 79 join [getBinary
3c90: 44 69 72 65 63 74 6f 72 79 5d 20 53 79 73 74 65 Directory] Syste
3ca0: 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 64 6c m.Data.SQLite.dl
3cb0: 6c 5d 5d 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 l]].. } els
3cc0: 65 69 66 20 7b 24 73 74 61 6e 64 61 72 64 7d 20 eif {$standard}
3cd0: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 then {..
3ce0: 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT
3cf0: 45 3a 20 52 65 74 75 72 6e 20 74 68 65 20 6e 61 E: Return the na
3d00: 74 69 76 65 2d 6f 6e 6c 79 20 73 74 61 6e 64 61 tive-only standa
3d10: 72 64 20 53 51 4c 69 74 65 20 6c 69 62 72 61 72 rd SQLite librar
3d20: 79 20 66 69 6c 65 20 6e 61 6d 65 2e 0d 0a 20 20 y file name...
3d30: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
3d40: 20 72 65 74 75 72 6e 20 5b 66 69 6c 65 20 6e 61 return [file na
3d50: 74 69 76 65 6e 61 6d 65 20 5c 0d 0a 20 20 20 20 tivename \..
3d60: 20 20 20 20 20 20 20 20 5b 66 69 6c 65 20 6a 6f [file jo
3d70: 69 6e 20 5b 67 65 74 42 69 6e 61 72 79 44 69 72 in [getBinaryDir
3d80: 65 63 74 6f 72 79 5d 20 73 71 6c 69 74 65 33 2e ectory] sqlite3.
3d90: 64 6c 6c 5d 5d 0d 0a 20 20 20 20 20 20 7d 20 65 dll]].. } e
3da0: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 lse {.. #
3db0: 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 .. # NOTE
3dc0: 3a 20 52 65 74 75 72 6e 20 74 68 65 20 6e 61 74 : Return the nat
3dd0: 69 76 65 2d 6f 6e 6c 79 20 69 6e 74 65 72 6f 70 ive-only interop
3de0: 20 61 73 73 65 6d 62 6c 79 20 66 69 6c 65 20 6e assembly file n
3df0: 61 6d 65 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d ame... #.
3e00: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 . return
3e10: 5b 66 69 6c 65 20 6e 61 74 69 76 65 6e 61 6d 65 [file nativename
3e20: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \..
3e30: 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 67 65 74 42 [file join [getB
3e40: 69 6e 61 72 79 44 69 72 65 63 74 6f 72 79 5d 20 inaryDirectory]
3e50: 53 51 4c 69 74 65 2e 49 6e 74 65 72 6f 70 2e 64 SQLite.Interop.d
3e60: 6c 6c 5d 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 ll]].. }..
3e70: 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f }..... pro
3e80: 63 20 67 65 74 43 6f 6d 6d 6f 6e 44 69 72 65 63 c getCommonDirec
3e90: 74 6f 72 79 20 7b 7d 20 7b 0d 0a 20 20 20 20 20 tory {} {..
3ea0: 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 #.. # NOTE
3eb0: 3a 20 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 : This procedure
3ec0: 20 72 65 74 75 72 6e 73 20 74 68 65 20 64 69 72 returns the dir
3ed0: 65 63 74 6f 72 79 20 77 68 65 72 65 20 74 68 65 ectory where the
3ee0: 20 74 65 73 74 20 73 63 72 69 70 74 73 0d 0a 20 test scripts..
3ef0: 20 20 20 20 20 23 20 20 20 20 20 20 20 73 68 6f # sho
3f00: 75 6c 64 20 62 65 20 6c 6f 63 61 74 65 64 2e 20 uld be located.
3f10: 20 42 79 20 64 65 66 61 75 6c 74 2c 20 74 68 69 By default, thi
3f20: 73 20 6a 75 73 74 20 72 65 74 75 72 6e 73 20 74 s just returns t
3f30: 68 65 20 45 61 67 6c 65 0d 0a 20 20 20 20 20 20 he Eagle..
3f40: 23 20 20 20 20 20 20 20 62 69 6e 61 72 79 20 64 # binary d
3f50: 69 72 65 63 74 6f 72 79 2e 0d 0a 20 20 20 20 20 irectory...
3f60: 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 69 #.. if {[i
3f70: 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 63 6f 6d nfo exists ::com
3f80: 6d 6f 6e 5f 64 69 72 65 63 74 6f 72 79 5d 20 26 mon_directory] &
3f90: 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 5b & \.. [
3fa0: 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 3a string length $:
3fb0: 3a 63 6f 6d 6d 6f 6e 5f 64 69 72 65 63 74 6f 72 :common_director
3fc0: 79 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a y] > 0} then {..
3fd0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #..
3fe0: 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 65 20 6c # NOTE: The l
3ff0: 6f 63 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 63 ocation of the c
4000: 6f 6d 6d 6f 6e 20 64 69 72 65 63 74 6f 72 79 20 ommon directory
4010: 68 61 73 20 62 65 65 6e 20 73 65 74 3b 0d 0a 20 has been set;..
4020: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 74 # t
4030: 68 65 72 65 66 6f 72 65 2c 20 75 73 65 20 69 74 herefore, use it
4040: 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 ... #..
4050: 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 3a 3a return $::
4060: 63 6f 6d 6d 6f 6e 5f 64 69 72 65 63 74 6f 72 79 common_directory
4070: 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 69 66 .. } elseif
4080: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a {[info exists :
4090: 3a 76 65 6e 64 6f 72 5f 64 69 72 65 63 74 6f 72 :vendor_director
40a0: 79 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 y] && \..
40b0: 20 20 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 [string lengt
40c0: 68 20 24 3a 3a 76 65 6e 64 6f 72 5f 64 69 72 65 h $::vendor_dire
40d0: 63 74 6f 72 79 5d 20 3e 20 30 7d 20 74 68 65 6e ctory] > 0} then
40e0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 {.. #..
40f0: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 # NOTE: T
4100: 68 65 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 74 he location of t
4110: 68 65 20 76 65 6e 64 6f 72 20 64 69 72 65 63 74 he vendor direct
4120: 6f 72 79 20 68 61 73 20 62 65 65 6e 20 73 65 74 ory has been set
4130: 3b 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 ;.. #
4140: 20 20 20 74 68 65 72 65 66 6f 72 65 2c 20 75 73 therefore, us
4150: 65 20 69 74 2e 0d 0a 20 20 20 20 20 20 20 20 23 e it... #
4160: 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e .. return
4170: 20 24 3a 3a 76 65 6e 64 6f 72 5f 64 69 72 65 63 $::vendor_direc
4180: 74 6f 72 79 0d 0a 20 20 20 20 20 20 7d 20 65 6c tory.. } el
4190: 73 65 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 seif {[info exis
41a0: 74 73 20 3a 3a 74 63 6c 5f 6c 69 62 72 61 72 79 ts ::tcl_library
41b0: 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 ] && \..
41c0: 20 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 [string length
41d0: 20 24 3a 3a 74 63 6c 5f 6c 69 62 72 61 72 79 5d $::tcl_library]
41e0: 20 3e 20 30 20 26 26 20 5c 0d 0a 20 20 20 20 20 > 0 && \..
41f0: 20 20 20 20 20 5b 66 69 6c 65 20 69 73 64 69 72 [file isdir
4200: 65 63 74 6f 72 79 20 24 3a 3a 74 63 6c 5f 6c 69 ectory $::tcl_li
4210: 62 72 61 72 79 5d 7d 20 74 68 65 6e 20 7b 0d 0a brary]} then {..
4220: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #..
4230: 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 65 20 76 # NOTE: The v
4240: 61 72 69 61 62 6c 65 20 77 69 74 68 20 74 68 65 ariable with the
4250: 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 74 68 65 location of the
4260: 20 73 63 72 69 70 74 20 6c 69 62 72 61 72 79 20 script library
4270: 69 73 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 is.. #
4280: 20 20 20 20 73 65 74 20 61 6e 64 20 61 70 70 65 set and appe
4290: 61 72 73 20 74 6f 20 62 65 20 61 20 72 65 61 6c ars to be a real
42a0: 20 64 69 72 65 63 74 6f 72 79 20 28 69 2e 65 2e directory (i.e.
42b0: 20 6e 6f 74 20 65 6d 62 65 64 64 65 64 0d 0a 20 not embedded..
42c0: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 77 # w
42d0: 69 74 68 69 6e 20 61 20 66 69 6c 65 29 3b 20 74 ithin a file); t
42e0: 68 65 72 65 66 6f 72 65 2c 20 75 73 65 20 69 74 herefore, use it
42f0: 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 ... #..
4300: 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 3a 3a return $::
4310: 74 63 6c 5f 6c 69 62 72 61 72 79 0d 0a 20 20 20 tcl_library..
4320: 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 } else {..
4330: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #..
4340: 23 20 4e 4f 54 45 3a 20 46 61 6c 6c 62 61 63 6b # NOTE: Fallback
4350: 20 74 6f 20 74 68 65 20 64 69 72 65 63 74 6f 72 to the director
4360: 79 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 65 y containing the
4370: 20 65 78 65 63 75 74 61 62 6c 65 2e 0d 0a 20 20 executable...
4380: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
4390: 20 72 65 74 75 72 6e 20 5b 69 6e 66 6f 20 62 69 return [info bi
43a0: 6e 61 72 79 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a nary].. }..
43b0: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 }..... pr
43c0: 6f 63 20 67 65 74 44 61 74 61 62 61 73 65 44 69 oc getDatabaseDi
43d0: 72 65 63 74 6f 72 79 20 7b 7d 20 7b 0d 0a 20 20 rectory {} {..
43e0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e #.. # N
43f0: 4f 54 45 3a 20 54 68 69 73 20 70 72 6f 63 65 64 OTE: This proced
4400: 75 72 65 20 72 65 74 75 72 6e 73 20 74 68 65 20 ure returns the
4410: 64 69 72 65 63 74 6f 72 79 20 77 68 65 72 65 20 directory where
4420: 74 68 65 20 74 65 73 74 20 64 61 74 61 62 61 73 the test databas
4430: 65 73 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 es.. #
4440: 20 20 73 68 6f 75 6c 64 20 62 65 20 6c 6f 63 61 should be loca
4450: 74 65 64 2e 20 20 42 79 20 64 65 66 61 75 6c 74 ted. By default
4460: 2c 20 74 68 69 73 20 6a 75 73 74 20 75 73 65 73 , this just uses
4470: 20 74 68 65 20 74 65 6d 70 6f 72 61 72 79 0d 0a the temporary..
4480: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 64 69 # di
4490: 72 65 63 74 6f 72 79 20 63 6f 6e 66 69 67 75 72 rectory configur
44a0: 65 64 20 66 6f 72 20 74 68 69 73 20 73 79 73 74 ed for this syst
44b0: 65 6d 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 em... #..
44c0: 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 if {[info ex
44d0: 69 73 74 73 20 3a 3a 64 61 74 61 62 61 73 65 5f ists ::database_
44e0: 64 69 72 65 63 74 6f 72 79 5d 20 26 26 20 5c 0d directory] && \.
44f0: 0a 20 20 20 20 20 20 20 20 20 20 5b 73 74 72 69 . [stri
4500: 6e 67 20 6c 65 6e 67 74 68 20 24 3a 3a 64 61 74 ng length $::dat
4510: 61 62 61 73 65 5f 64 69 72 65 63 74 6f 72 79 5d abase_directory]
4520: 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 > 0} then {..
4530: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
4540: 20 23 20 4e 4f 54 45 3a 20 54 68 65 20 6c 6f 63 # NOTE: The loc
4550: 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 64 61 74 ation of the dat
4560: 61 62 61 73 65 20 64 69 72 65 63 74 6f 72 79 20 abase directory
4570: 68 61 73 20 62 65 65 6e 20 6f 76 65 72 72 69 64 has been overrid
4580: 64 65 6e 3b 0d 0a 20 20 20 20 20 20 20 20 23 20 den;.. #
4590: 20 20 20 20 20 20 74 68 65 72 65 66 6f 72 65 2c therefore,
45a0: 20 75 73 65 20 69 74 2e 0d 0a 20 20 20 20 20 20 use it...
45b0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 72 65 74 #.. ret
45c0: 75 72 6e 20 24 3a 3a 64 61 74 61 62 61 73 65 5f urn $::database_
45d0: 64 69 72 65 63 74 6f 72 79 0d 0a 20 20 20 20 20 directory..
45e0: 20 7d 20 65 6c 73 65 69 66 20 7b 5b 69 6e 66 6f } elseif {[info
45f0: 20 65 78 69 73 74 73 20 3a 3a 73 63 72 61 74 63 exists ::scratc
4600: 68 5f 64 69 72 65 63 74 6f 72 79 5d 20 26 26 20 h_directory] &&
4610: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 5b 73 74 \.. [st
4620: 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 3a 3a 73 ring length $::s
4630: 63 72 61 74 63 68 5f 64 69 72 65 63 74 6f 72 79 cratch_directory
4640: 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 ] > 0} then {..
4650: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
4660: 20 20 23 20 4e 4f 54 45 3a 20 54 68 65 20 6c 6f # NOTE: The lo
4670: 63 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 73 63 cation of the sc
4680: 72 61 74 63 68 20 64 69 72 65 63 74 6f 72 79 20 ratch directory
4690: 68 61 73 20 62 65 65 6e 20 6f 76 65 72 72 69 64 has been overrid
46a0: 64 65 6e 3b 0d 0a 20 20 20 20 20 20 20 20 23 20 den;.. #
46b0: 20 20 20 20 20 20 74 68 65 72 65 66 6f 72 65 2c therefore,
46c0: 20 75 73 65 20 69 74 2e 0d 0a 20 20 20 20 20 20 use it...
46d0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 72 65 74 #.. ret
46e0: 75 72 6e 20 24 3a 3a 73 63 72 61 74 63 68 5f 64 urn $::scratch_d
46f0: 69 72 65 63 74 6f 72 79 0d 0a 20 20 20 20 20 20 irectory..
4700: 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 } else {..
4710: 20 20 72 65 74 75 72 6e 20 5b 67 65 74 54 65 6d return [getTem
4720: 70 6f 72 61 72 79 50 61 74 68 5d 0d 0a 20 20 20 poraryPath]..
4730: 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a }.. }.....
4740: 20 20 20 20 70 72 6f 63 20 67 65 74 54 65 6d 70 proc getTemp
4750: 6f 72 61 72 79 44 69 72 65 63 74 6f 72 79 20 7b oraryDirectory {
4760: 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 } {.. #..
4770: 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 69 73 # NOTE: This
4780: 20 70 72 6f 63 65 64 75 72 65 20 72 65 74 75 72 procedure retur
4790: 6e 73 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 ns the directory
47a0: 20 77 68 65 72 65 20 74 68 65 20 74 65 6d 70 6f where the tempo
47b0: 72 61 72 79 20 66 69 6c 65 73 0d 0a 20 20 20 20 rary files..
47c0: 20 20 23 20 20 20 20 20 20 20 73 68 6f 75 6c 64 # should
47d0: 20 62 65 20 6c 6f 63 61 74 65 64 2e 20 20 42 79 be located. By
47e0: 20 64 65 66 61 75 6c 74 2c 20 74 68 69 73 20 6a default, this j
47f0: 75 73 74 20 75 73 65 73 20 74 68 65 20 74 65 6d ust uses the tem
4800: 70 6f 72 61 72 79 0d 0a 20 20 20 20 20 20 23 20 porary.. #
4810: 20 20 20 20 20 20 64 69 72 65 63 74 6f 72 79 20 directory
4820: 63 6f 6e 66 69 67 75 72 65 64 20 66 6f 72 20 74 configured for t
4830: 68 69 73 20 73 79 73 74 65 6d 2e 0d 0a 20 20 20 his system...
4840: 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b #.. if {
4850: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 74 [info exists ::t
4860: 65 6d 70 6f 72 61 72 79 5f 64 69 72 65 63 74 6f emporary_directo
4870: 72 79 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20 20 ry] && \..
4880: 20 20 20 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67 [string leng
4890: 74 68 20 24 3a 3a 74 65 6d 70 6f 72 61 72 79 5f th $::temporary_
48a0: 64 69 72 65 63 74 6f 72 79 5d 20 3e 20 30 7d 20 directory] > 0}
48b0: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 then {..
48c0: 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT
48d0: 45 3a 20 54 68 65 20 6c 6f 63 61 74 69 6f 6e 20 E: The location
48e0: 6f 66 20 74 68 65 20 74 65 6d 70 6f 72 61 72 79 of the temporary
48f0: 20 64 69 72 65 63 74 6f 72 79 20 68 61 73 20 62 directory has b
4900: 65 65 6e 20 6f 76 65 72 72 69 64 64 65 6e 3b 0d een overridden;.
4910: 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 . #
4920: 20 74 68 65 72 65 66 6f 72 65 2c 20 75 73 65 20 therefore, use
4930: 69 74 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a it... #..
4940: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 return $
4950: 3a 3a 74 65 6d 70 6f 72 61 72 79 5f 64 69 72 65 ::temporary_dire
4960: 63 74 6f 72 79 0d 0a 20 20 20 20 20 20 7d 20 65 ctory.. } e
4970: 6c 73 65 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 lseif {[info exi
4980: 73 74 73 20 3a 3a 73 63 72 61 74 63 68 5f 64 69 sts ::scratch_di
4990: 72 65 63 74 6f 72 79 5d 20 26 26 20 5c 0d 0a 20 rectory] && \..
49a0: 20 20 20 20 20 20 20 20 20 5b 73 74 72 69 6e 67 [string
49b0: 20 6c 65 6e 67 74 68 20 24 3a 3a 73 63 72 61 74 length $::scrat
49c0: 63 68 5f 64 69 72 65 63 74 6f 72 79 5d 20 3e 20 ch_directory] >
49d0: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 0} then {..
49e0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 #.. #
49f0: 4e 4f 54 45 3a 20 54 68 65 20 6c 6f 63 61 74 69 NOTE: The locati
4a00: 6f 6e 20 6f 66 20 74 68 65 20 73 63 72 61 74 63 on of the scratc
4a10: 68 20 64 69 72 65 63 74 6f 72 79 20 68 61 73 20 h directory has
4a20: 62 65 65 6e 20 6f 76 65 72 72 69 64 64 65 6e 3b been overridden;
4a30: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 .. #
4a40: 20 20 74 68 65 72 65 66 6f 72 65 2c 20 75 73 65 therefore, use
4a50: 20 69 74 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d it... #.
4a60: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 . return
4a70: 24 3a 3a 73 63 72 61 74 63 68 5f 64 69 72 65 63 $::scratch_direc
4a80: 74 6f 72 79 0d 0a 20 20 20 20 20 20 7d 20 65 6c tory.. } el
4a90: 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 72 65 se {.. re
4aa0: 74 75 72 6e 20 5b 67 65 74 54 65 6d 70 6f 72 61 turn [getTempora
4ab0: 72 79 50 61 74 68 5d 0d 0a 20 20 20 20 20 20 7d ryPath].. }
4ac0: 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 .. }.....
4ad0: 70 72 6f 63 20 67 65 74 54 65 73 74 4f 76 65 72 proc getTestOver
4ae0: 72 69 64 65 73 50 72 65 61 6d 62 6c 65 20 7b 20 ridesPreamble {
4af0: 7b 65 78 74 72 61 56 61 72 4e 61 6d 65 73 20 22 {extraVarNames "
4b00: 22 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 20 73 65 "} } {.. se
4b10: 74 20 76 61 72 4e 61 6d 65 73 20 5b 6c 69 73 74 t varNames [list
4b20: 5d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 ].... #..
4b30: 20 20 20 20 23 20 4e 4f 54 45 3a 20 49 66 20 61 # NOTE: If a
4b40: 76 61 69 6c 61 62 6c 65 2c 20 73 74 61 72 74 20 vailable, start
4b50: 77 69 74 68 20 74 68 65 20 6d 61 73 74 65 72 20 with the master
4b60: 6c 69 73 74 20 6f 66 20 74 65 73 74 20 6f 76 65 list of test ove
4b70: 72 72 69 64 65 0d 0a 20 20 20 20 20 20 23 20 20 rride.. #
4b80: 20 20 20 20 20 76 61 72 69 61 62 6c 65 73 2e 0d variables..
4b90: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 . #..
4ba0: 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 if {[info exists
4bb0: 20 3a 3a 74 65 73 74 5f 6f 76 65 72 72 69 64 65 ::test_override
4bc0: 73 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 s] && \..
4bd0: 20 20 20 5b 6c 6c 65 6e 67 74 68 20 24 3a 3a 74 [llength $::t
4be0: 65 73 74 5f 6f 76 65 72 72 69 64 65 73 5d 20 3e est_overrides] >
4bf0: 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 0} then {..
4c00: 20 20 20 20 65 76 61 6c 20 6c 61 70 70 65 6e 64 eval lappend
4c10: 20 76 61 72 4e 61 6d 65 73 20 24 3a 3a 74 65 73 varNames $::tes
4c20: 74 5f 6f 76 65 72 72 69 64 65 73 0d 0a 20 20 20 t_overrides..
4c30: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d }.... #.
4c40: 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 49 . # NOTE: I
4c50: 66 20 72 65 71 75 65 73 74 65 64 20 62 79 20 6f f requested by o
4c60: 75 72 20 63 61 6c 6c 65 72 2c 20 61 64 64 20 61 ur caller, add a
4c70: 6e 79 20 61 64 64 69 74 69 6f 6e 61 6c 20 76 61 ny additional va
4c80: 72 69 61 62 6c 65 0d 0a 20 20 20 20 20 20 23 20 riable.. #
4c90: 20 20 20 20 20 20 6e 61 6d 65 73 20 74 6f 20 63 names to c
4ca0: 6f 70 79 20 6e 6f 77 2e 0d 0a 20 20 20 20 20 20 opy now...
4cb0: 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 6c 6c #.. if {[ll
4cc0: 65 6e 67 74 68 20 24 65 78 74 72 61 56 61 72 4e ength $extraVarN
4cd0: 61 6d 65 73 5d 20 3e 20 30 7d 20 74 68 65 6e 20 ames] > 0} then
4ce0: 7b 0d 0a 20 20 20 20 20 20 20 20 65 76 61 6c 20 {.. eval
4cf0: 6c 61 70 70 65 6e 64 20 76 61 72 4e 61 6d 65 73 lappend varNames
4d00: 20 24 65 78 74 72 61 56 61 72 4e 61 6d 65 73 0d $extraVarNames.
4d10: 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 . }....
4d20: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT
4d30: 45 3a 20 42 75 69 6c 64 20 74 68 65 20 73 63 72 E: Build the scr
4d40: 69 70 74 20 66 72 61 67 6d 65 6e 74 20 74 6f 20 ipt fragment to
4d50: 62 65 20 72 65 74 75 72 6e 65 64 20 62 79 20 70 be returned by p
4d60: 72 6f 63 65 73 73 69 6e 67 20 65 61 63 68 0d 0a rocessing each..
4d70: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 76 61 # va
4d80: 72 69 61 62 6c 65 20 6e 61 6d 65 20 61 6e 64 20 riable name and
4d90: 61 64 64 69 6e 67 20 74 68 65 20 6e 65 63 65 63 adding the necec
4da0: 65 73 73 61 72 79 20 73 63 72 69 70 74 20 66 72 essary script fr
4db0: 61 67 6d 65 6e 74 73 20 66 6f 72 0d 0a 20 20 20 agments for..
4dc0: 20 20 20 23 20 20 20 20 20 20 20 65 61 63 68 20 # each
4dd0: 6f 6e 65 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 one... #..
4de0: 20 20 20 20 20 73 65 74 20 72 65 73 75 6c 74 20 set result
4df0: 22 22 0d 0a 0d 0a 20 20 20 20 20 20 66 6f 72 65 "".... fore
4e00: 61 63 68 20 76 61 72 4e 61 6d 65 20 24 76 61 72 ach varName $var
4e10: 4e 61 6d 65 73 20 7b 0d 0a 20 20 20 20 20 20 20 Names {..
4e20: 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f #.. # NO
4e30: 54 45 3a 20 42 75 69 6c 64 20 74 68 65 20 71 75 TE: Build the qu
4e40: 61 6c 69 66 69 65 64 20 67 6c 6f 62 61 6c 20 76 alified global v
4e50: 61 72 69 61 62 6c 65 20 6e 61 6d 65 2e 0d 0a 20 ariable name...
4e60: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
4e70: 20 20 73 65 74 20 66 75 6c 6c 56 61 72 4e 61 6d set fullVarNam
4e80: 65 20 5b 61 70 70 65 6e 64 41 72 67 73 20 3a 3a e [appendArgs ::
4e90: 20 24 76 61 72 4e 61 6d 65 5d 0d 0a 0d 0a 20 20 $varName]....
4ea0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
4eb0: 20 23 20 4e 4f 54 45 3a 20 44 6f 65 73 20 74 68 # NOTE: Does th
4ec0: 65 20 76 61 72 69 61 62 6c 65 20 65 78 69 73 74 e variable exist
4ed0: 20 69 6e 20 74 68 69 73 20 69 6e 74 65 72 70 72 in this interpr
4ee0: 65 74 65 72 20 63 6f 6e 74 65 78 74 3f 0d 0a 20 eter context?..
4ef0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
4f00: 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 if {[info exis
4f10: 74 73 20 24 66 75 6c 6c 56 61 72 4e 61 6d 65 5d ts $fullVarName]
4f20: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {..
4f30: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 #..
4f40: 20 23 20 4e 4f 54 45 3a 20 41 70 70 65 6e 64 20 # NOTE: Append
4f50: 61 20 73 63 72 69 70 74 20 66 72 61 67 6d 65 6e a script fragmen
4f60: 74 20 74 6f 20 74 68 65 20 72 65 73 75 6c 74 20 t to the result
4f70: 74 68 61 74 20 77 69 6c 6c 20 63 6f 72 72 65 63 that will correc
4f80: 74 6c 79 0d 0a 20 20 20 20 20 20 20 20 20 20 23 tly.. #
4f90: 20 20 20 20 20 20 20 63 6f 70 79 20 61 6e 79 20 copy any
4fa0: 63 6f 6e 74 61 69 6e 65 64 20 76 61 6c 75 65 20 contained value
4fb0: 74 6f 20 61 6e 6f 74 68 65 72 20 69 6e 74 65 72 to another inter
4fc0: 70 72 65 74 65 72 20 63 6f 6e 74 65 78 74 2e 0d preter context..
4fd0: 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 . #..
4fe0: 20 20 20 20 20 20 20 20 61 70 70 65 6e 64 20 72 append r
4ff0: 65 73 75 6c 74 20 5c 6e 20 22 73 65 74 20 22 20 esult \n "set "
5000: 24 66 75 6c 6c 56 61 72 4e 61 6d 65 20 22 20 5c $fullVarName " \
5010: 7b 22 20 5b 73 65 74 20 24 66 75 6c 6c 56 61 72 {" [set $fullVar
5020: 4e 61 6d 65 5d 20 5c 7d 0d 0a 20 20 20 20 20 20 Name] \}..
5030: 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a }.. }....
5040: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 #.. #
5050: 20 4e 4f 54 45 3a 20 49 66 20 74 68 65 20 72 65 NOTE: If the re
5060: 73 75 6c 74 20 63 6f 6e 74 61 69 6e 73 20 6f 6e sult contains on
5070: 65 20 6f 72 20 6d 6f 72 65 20 73 63 72 69 70 74 e or more script
5080: 20 66 72 61 67 6d 65 6e 74 73 2c 20 61 70 70 65 fragments, appe
5090: 6e 64 20 61 0d 0a 20 20 20 20 20 20 23 20 20 20 nd a.. #
50a0: 20 20 20 20 6e 65 77 6c 69 6e 65 2e 0d 0a 20 20 newline...
50b0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 #.. if
50c0: 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 {[string length
50d0: 24 72 65 73 75 6c 74 5d 20 3e 20 30 7d 20 74 68 $result] > 0} th
50e0: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 61 70 en {.. ap
50f0: 70 65 6e 64 20 72 65 73 75 6c 74 20 5c 6e 0d 0a pend result \n..
5100: 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 }....
5110: 20 72 65 74 75 72 6e 20 24 72 65 73 75 6c 74 0d return $result.
5120: 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 . }..... p
5130: 72 6f 63 20 67 65 74 41 70 70 44 6f 6d 61 69 6e roc getAppDomain
5140: 50 72 65 61 6d 62 6c 65 20 7b 20 7b 70 72 65 66 Preamble { {pref
5150: 69 78 20 22 22 7d 20 7b 73 75 66 66 69 78 20 22 ix ""} {suffix "
5160: 22 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d "} } {.. #.
5170: 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 . # NOTE: T
5180: 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 72 65 his procedure re
5190: 74 75 72 6e 73 20 61 20 74 65 73 74 20 73 65 74 turns a test set
51a0: 75 70 20 73 63 72 69 70 74 20 66 72 61 67 6d 65 up script fragme
51b0: 6e 74 20 73 75 69 74 61 62 6c 65 20 66 6f 72 0d nt suitable for.
51c0: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 65 . # e
51d0: 76 61 6c 75 61 74 69 6f 6e 20 62 79 20 61 6e 20 valuation by an
51e0: 69 6e 74 65 72 70 72 65 74 65 72 20 63 72 65 61 interpreter crea
51f0: 74 65 64 20 69 6e 20 61 6e 20 69 73 6f 6c 61 74 ted in an isolat
5200: 65 64 20 61 70 70 6c 69 63 61 74 69 6f 6e 0d 0a ed application..
5210: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 64 6f # do
5220: 6d 61 69 6e 2e 20 20 54 68 65 20 73 63 72 69 70 main. The scrip
5230: 74 20 66 72 61 67 6d 65 6e 74 20 62 65 69 6e 67 t fragment being
5240: 20 72 65 74 75 72 6e 65 64 20 77 69 6c 6c 20 62 returned will b
5250: 65 20 73 75 72 72 6f 75 6e 64 65 64 20 62 79 0d e surrounded by.
5260: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 74 . # t
5270: 68 65 20 70 72 65 66 69 78 20 61 6e 64 20 73 75 he prefix and su
5280: 66 66 69 78 20 22 73 63 72 69 70 74 20 66 72 61 ffix "script fra
5290: 67 6d 65 6e 74 73 22 20 73 70 65 63 69 66 69 65 gments" specifie
52a0: 64 20 62 79 20 6f 75 72 20 63 61 6c 6c 65 72 2c d by our caller,
52b0: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. #
52c0: 69 66 20 61 6e 79 2e 20 20 54 68 65 20 65 6e 74 if any. The ent
52d0: 69 72 65 20 73 63 72 69 70 74 20 62 65 69 6e 67 ire script being
52e0: 20 72 65 74 75 72 6e 65 64 20 77 69 6c 6c 20 62 returned will b
52f0: 65 20 73 75 62 73 74 69 74 75 74 65 64 20 76 69 e substituted vi
5300: 61 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 a.. #
5310: 20 5b 73 75 62 73 74 5d 2c 20 69 6e 20 74 68 65 [subst], in the
5320: 20 63 6f 6e 74 65 78 74 20 6f 66 20 6f 75 72 20 context of our
5330: 63 61 6c 6c 65 72 2c 20 62 65 66 6f 72 65 20 62 caller, before b
5340: 65 69 6e 67 20 72 65 74 75 72 6e 65 64 2e 0d 0a eing returned...
5350: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 54 68 # Th
5360: 69 73 20 73 74 65 70 20 69 73 20 6e 65 63 65 73 is step is neces
5370: 73 61 72 79 20 73 6f 20 74 68 61 74 20 73 6f 6d sary so that som
5380: 65 20 6c 69 6d 69 74 65 64 20 63 6f 6e 74 65 78 e limited contex
5390: 74 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2c 0d 0a t information,..
53a0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 70 72 # pr
53b0: 69 6d 61 72 69 6c 79 20 72 65 6c 61 74 65 64 20 imarily related
53c0: 74 6f 20 74 68 65 20 74 65 73 74 69 6e 67 20 64 to the testing d
53d0: 69 72 65 63 74 6f 72 69 65 73 2c 20 63 61 6e 20 irectories, can
53e0: 62 65 20 74 72 61 6e 73 66 65 72 72 65 64 0d 0a be transferred..
53f0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 74 6f # to
5400: 20 74 68 65 20 69 6e 74 65 72 70 72 65 74 65 72 the interpreter
5410: 20 69 6e 20 74 68 65 20 69 73 6f 6c 61 74 65 64 in the isolated
5420: 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 64 6f 6d application dom
5430: 61 69 6e 2c 20 6d 61 6b 69 6e 67 20 69 74 0d 0a ain, making it..
5440: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 61 62 # ab
5450: 6c 65 20 74 6f 20 73 75 63 63 65 73 73 66 75 6c le to successful
5460: 6c 79 20 72 75 6e 20 74 65 73 74 73 20 74 68 61 ly run tests tha
5470: 74 20 72 65 71 75 69 72 65 20 6f 6e 65 20 6f 72 t require one or
5480: 20 6d 6f 72 65 20 6f 66 20 74 68 65 0d 0a 20 20 more of the..
5490: 20 20 20 20 23 20 20 20 20 20 20 20 66 69 6c 65 # file
54a0: 73 20 69 6e 20 6f 6e 65 20 6f 66 20 74 68 65 20 s in one of the
54b0: 74 65 73 74 69 6e 67 20 64 69 72 65 63 74 6f 72 testing director
54c0: 69 65 73 2e 20 20 43 61 6c 6c 65 72 73 20 73 68 ies. Callers sh
54d0: 6f 75 6c 64 20 6b 65 65 70 20 69 6e 0d 0a 20 20 ould keep in..
54e0: 20 20 20 20 23 20 20 20 20 20 20 20 6d 69 6e 64 # mind
54f0: 20 74 68 61 74 20 74 68 65 20 74 65 73 74 20 73 that the test s
5500: 63 72 69 70 74 20 66 72 61 67 6d 65 6e 74 20 62 cript fragment b
5510: 65 69 6e 67 20 72 65 74 75 72 6e 65 64 20 63 61 eing returned ca
5520: 6e 6e 6f 74 20 72 65 6c 79 20 6f 6e 0d 0a 20 20 nnot rely on..
5530: 20 20 20 20 23 20 20 20 20 20 20 20 61 6e 79 20 # any
5540: 73 63 72 69 70 74 20 6c 69 62 72 61 72 79 20 70 script library p
5550: 72 6f 63 65 64 75 72 65 73 20 74 68 61 74 20 61 rocedures that a
5560: 72 65 20 6e 6f 74 20 70 72 6f 76 69 64 65 64 20 re not provided
5570: 62 79 20 74 68 65 20 45 61 67 6c 65 0d 0a 20 20 by the Eagle..
5580: 20 20 20 20 23 20 20 20 20 20 20 20 6c 69 62 72 # libr
5590: 61 72 79 20 70 61 63 6b 61 67 65 20 28 69 2e 65 ary package (i.e
55a0: 2e 20 22 69 6e 69 74 2e 65 61 67 6c 65 22 29 2c . "init.eagle"),
55b0: 20 69 6e 63 6c 75 64 69 6e 67 20 74 68 6f 73 65 including those
55c0: 20 70 72 6f 76 69 64 65 64 20 62 79 0d 0a 20 20 provided by..
55d0: 20 20 20 20 23 20 20 20 20 20 20 20 74 68 65 20 # the
55e0: 45 61 67 6c 65 20 74 65 73 74 20 70 61 63 6b 61 Eagle test packa
55f0: 67 65 2c 20 75 6e 6c 65 73 73 20 74 68 65 20 66 ge, unless the f
5600: 69 6c 65 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 ile containing t
5610: 68 65 6d 20 69 73 20 6c 6f 61 64 65 64 0d 0a 20 hem is loaded..
5620: 20 20 20 20 20 23 20 20 20 20 20 20 20 6d 61 6e # man
5630: 75 61 6c 6c 79 20 76 69 61 20 73 6f 6d 65 20 6f ually via some o
5640: 74 68 65 72 20 6d 65 63 68 61 6e 69 73 6d 20 28 ther mechanism (
5650: 65 2e 67 2e 20 62 79 20 69 6e 63 6c 75 64 69 6e e.g. by includin
5660: 67 20 61 70 70 72 6f 70 72 69 61 74 65 0d 0a 20 g appropriate..
5670: 20 20 20 20 20 23 20 20 20 20 20 20 20 5b 70 61 # [pa
5680: 63 6b 61 67 65 20 72 65 71 75 69 72 65 5d 20 6f ckage require] o
5690: 72 20 5b 73 6f 75 72 63 65 5d 20 63 6f 6d 6d 61 r [source] comma
56a0: 6e 64 73 20 69 6e 20 74 68 65 20 70 72 65 66 69 nds in the prefi
56b0: 78 20 6f 72 20 73 75 66 66 69 78 0d 0a 20 20 20 x or suffix..
56c0: 20 20 20 23 20 20 20 20 20 20 20 73 63 72 69 70 # scrip
56d0: 74 20 66 72 61 67 6d 65 6e 74 73 29 2e 20 20 41 t fragments). A
56e0: 6c 73 6f 2c 20 61 6c 6c 20 76 61 72 69 61 62 6c lso, all variabl
56f0: 65 20 72 65 66 65 72 65 6e 63 65 73 20 61 6e 64 e references and
5700: 20 61 6c 6c 20 6e 65 73 74 65 64 0d 0a 20 20 20 all nested..
5710: 20 20 20 23 20 20 20 20 20 20 20 63 6f 6d 6d 61 # comma
5720: 6e 64 73 20 28 69 2e 65 2e 20 74 68 6f 73 65 20 nds (i.e. those
5730: 69 6e 20 73 71 75 61 72 65 20 62 72 61 63 6b 65 in square bracke
5740: 74 73 29 20 63 6f 6e 74 61 69 6e 65 64 20 69 6e ts) contained in
5750: 20 74 68 65 20 66 69 6e 61 6c 0d 0a 20 20 20 20 the final..
5760: 20 20 23 20 20 20 20 20 20 20 73 63 72 69 70 74 # script
5770: 20 66 72 61 67 6d 65 6e 74 20 77 69 6c 6c 20 65 fragment will e
5780: 6e 64 20 75 70 20 62 65 69 6e 67 20 65 76 61 6c nd up being eval
5790: 75 61 74 65 64 20 69 6e 20 74 68 65 20 63 6f 6e uated in the con
57a0: 74 65 78 74 20 6f 66 20 74 68 65 0d 0a 20 20 20 text of the..
57b0: 20 20 20 23 20 20 20 20 20 20 20 63 61 6c 6c 69 # calli
57c0: 6e 67 20 69 6e 74 65 72 70 72 65 74 65 72 20 61 ng interpreter a
57d0: 6e 64 20 6e 6f 74 20 74 68 65 20 74 61 72 67 65 nd not the targe
57e0: 74 20 69 6e 74 65 72 70 72 65 74 65 72 20 63 72 t interpreter cr
57f0: 65 61 74 65 64 20 69 6e 20 74 68 65 0d 0a 20 20 eated in the..
5800: 20 20 20 20 23 20 20 20 20 20 20 20 69 73 6f 6c # isol
5810: 61 74 65 64 20 61 70 70 6c 69 63 61 74 69 6f 6e ated application
5820: 20 64 6f 6d 61 69 6e 20 75 6e 6c 65 73 73 20 74 domain unless t
5830: 68 65 20 64 6f 6c 6c 61 72 20 73 69 67 6e 73 20 he dollar signs
5840: 61 6e 64 2f 6f 72 20 73 71 75 61 72 65 0d 0a 20 and/or square..
5850: 20 20 20 20 20 23 20 20 20 20 20 20 20 62 72 61 # bra
5860: 63 6b 65 74 73 20 61 72 65 20 73 70 65 63 69 61 ckets are specia
5870: 6c 6c 79 20 71 75 6f 74 65 64 20 77 69 74 68 20 lly quoted with
5880: 62 61 63 6b 73 6c 61 73 68 65 73 2e 0d 0a 20 20 backslashes...
5890: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 72 65 74 #.. ret
58a0: 75 72 6e 20 5b 75 70 6c 65 76 65 6c 20 31 20 5b urn [uplevel 1 [
58b0: 6c 69 73 74 20 73 75 62 73 74 20 5b 61 70 70 65 list subst [appe
58c0: 6e 64 41 72 67 73 20 24 70 72 65 66 69 78 20 7b ndArgs $prefix {
58d0: 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b 68 .. if {[h
58e0: 61 73 52 75 6e 74 69 6d 65 4f 70 74 69 6f 6e 20 asRuntimeOption
58f0: 6e 61 74 69 76 65 5d 7d 20 74 68 65 6e 20 7b 0d native]} then {.
5900: 0a 20 20 20 20 20 20 20 20 20 20 6f 62 6a 65 63 . objec
5910: 74 20 69 6e 76 6f 6b 65 20 49 6e 74 65 72 70 72 t invoke Interpr
5920: 65 74 65 72 2e 47 65 74 41 63 74 69 76 65 20 41 eter.GetActive A
5930: 64 64 52 75 6e 74 69 6d 65 4f 70 74 69 6f 6e 20 ddRuntimeOption
5940: 6e 61 74 69 76 65 0d 0a 20 20 20 20 20 20 20 20 native..
5950: 7d 0d 0a 20 20 20 20 20 20 7d 20 5b 67 65 74 54 }.. } [getT
5960: 65 73 74 4f 76 65 72 72 69 64 65 73 50 72 65 61 estOverridesPrea
5970: 6d 62 6c 65 20 5b 6c 69 73 74 20 70 61 74 68 20 mble [list path
5980: 74 65 73 74 5f 63 68 61 6e 6e 65 6c 5d 5d 20 24 test_channel]] $
5990: 73 75 66 66 69 78 5d 5d 5d 0d 0a 20 20 20 20 7d suffix]]].. }
59a0: 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 74 72 ..... proc tr
59b0: 79 43 6f 70 79 42 69 6e 61 72 79 46 69 6c 65 20 yCopyBinaryFile
59c0: 7b 20 66 69 6c 65 4e 61 6d 65 20 7b 6e 65 77 46 { fileName {newF
59d0: 69 6c 65 4e 61 6d 65 20 22 22 7d 20 7d 20 7b 0d ileName ""} } {.
59e0: 0a 20 20 20 20 20 20 73 65 74 20 73 6f 75 72 63 . set sourc
59f0: 65 46 69 6c 65 4e 61 6d 65 20 5b 67 65 74 42 69 eFileName [getBi
5a00: 6e 61 72 79 46 69 6c 65 4e 61 6d 65 20 24 66 69 naryFileName $fi
5a10: 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a 20 20 20 20 20 leName]....
5a20: 20 69 66 20 7b 21 5b 66 69 6c 65 20 65 78 69 73 if {![file exis
5a30: 74 73 20 24 73 6f 75 72 63 65 46 69 6c 65 4e 61 ts $sourceFileNa
5a40: 6d 65 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 me]} then {..
5a50: 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 tputs $::te
5a60: 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 st_channel [appe
5a70: 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 ndArgs \..
5a80: 20 20 20 20 20 20 22 2d 2d 2d 2d 20 73 6b 69 70 "---- skip
5a90: 70 65 64 20 63 6f 70 79 69 6e 67 20 62 69 6e 61 ped copying bina
5aa0: 72 79 20 66 69 6c 65 20 5c 22 22 20 24 73 6f 75 ry file \"" $sou
5ab0: 72 63 65 46 69 6c 65 4e 61 6d 65 20 5c 0d 0a 20 rceFileName \..
5ac0: 20 20 20 20 20 20 20 20 20 20 20 22 5c 22 2c 20 "\",
5ad0: 69 74 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 it does not exis
5ae0: 74 5c 6e 22 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 t\n"]....
5af0: 20 72 65 74 75 72 6e 0d 0a 20 20 20 20 20 20 7d return.. }
5b00: 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 73 .... if {[s
5b10: 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 6e 65 tring length $ne
5b20: 77 46 69 6c 65 4e 61 6d 65 5d 20 3e 20 30 7d 20 wFileName] > 0}
5b30: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 then {..
5b40: 73 65 74 20 74 61 72 67 65 74 46 69 6c 65 4e 61 set targetFileNa
5b50: 6d 65 20 5b 67 65 74 42 75 69 6c 64 46 69 6c 65 me [getBuildFile
5b60: 4e 61 6d 65 20 24 6e 65 77 46 69 6c 65 4e 61 6d Name $newFileNam
5b70: 65 5d 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 e].. } else
5b80: 20 7b 0d 0a 20 20 20 20 20 20 20 20 73 65 74 20 {.. set
5b90: 74 61 72 67 65 74 46 69 6c 65 4e 61 6d 65 20 5b targetFileName [
5ba0: 67 65 74 42 75 69 6c 64 46 69 6c 65 4e 61 6d 65 getBuildFileName
5bb0: 20 24 66 69 6c 65 4e 61 6d 65 5d 0d 0a 20 20 20 $fileName]..
5bc0: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 69 66 }.... if
5bd0: 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 {[catch {..
5be0: 20 20 20 20 20 20 20 20 20 20 66 69 6c 65 20 63 file c
5bf0: 6f 70 79 20 2d 66 6f 72 63 65 20 24 73 6f 75 72 opy -force $sour
5c00: 63 65 46 69 6c 65 4e 61 6d 65 20 24 74 61 72 67 ceFileName $targ
5c10: 65 74 46 69 6c 65 4e 61 6d 65 7d 5d 20 3d 3d 20 etFileName}] ==
5c20: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 0} then {..
5c30: 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 tputs $::test
5c40: 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 _channel [append
5c50: 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 Args \..
5c60: 20 20 20 20 22 2d 2d 2d 2d 20 63 6f 70 69 65 64 "---- copied
5c70: 20 62 69 6e 61 72 79 20 66 69 6c 65 20 66 72 6f binary file fro
5c80: 6d 20 5c 22 22 20 24 73 6f 75 72 63 65 46 69 6c m \"" $sourceFil
5c90: 65 4e 61 6d 65 20 22 5c 22 20 74 6f 20 5c 22 22 eName "\" to \""
5ca0: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \..
5cb0: 24 74 61 72 67 65 74 46 69 6c 65 4e 61 6d 65 20 $targetFileName
5cc0: 5c 22 5c 6e 5d 0d 0a 20 20 20 20 20 20 7d 20 65 \"\n].. } e
5cd0: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 74 lse {.. t
5ce0: 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 puts $::test_cha
5cf0: 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 nnel [appendArgs
5d00: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \..
5d10: 22 2d 2d 2d 2d 20 66 61 69 6c 65 64 20 74 6f 20 "---- failed to
5d20: 63 6f 70 79 20 62 69 6e 61 72 79 20 66 69 6c 65 copy binary file
5d30: 20 66 72 6f 6d 20 5c 22 22 20 24 73 6f 75 72 63 from \"" $sourc
5d40: 65 46 69 6c 65 4e 61 6d 65 20 5c 0d 0a 20 20 20 eFileName \..
5d50: 20 20 20 20 20 20 20 20 20 22 5c 22 20 74 6f 20 "\" to
5d60: 5c 22 22 20 24 74 61 72 67 65 74 46 69 6c 65 4e \"" $targetFileN
5d70: 61 6d 65 20 5c 22 5c 6e 5d 0d 0a 20 20 20 20 20 ame \"\n]..
5d80: 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 }.. }.....
5d90: 20 20 70 72 6f 63 20 74 72 79 43 6f 70 79 42 75 proc tryCopyBu
5da0: 69 6c 64 46 69 6c 65 20 7b 20 66 69 6c 65 4e 61 ildFile { fileNa
5db0: 6d 65 20 7b 6e 65 77 46 69 6c 65 4e 61 6d 65 20 me {newFileName
5dc0: 22 22 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 20 73 ""} } {.. s
5dd0: 65 74 20 73 6f 75 72 63 65 46 69 6c 65 4e 61 6d et sourceFileNam
5de0: 65 20 5b 67 65 74 42 75 69 6c 64 46 69 6c 65 4e e [getBuildFileN
5df0: 61 6d 65 20 24 66 69 6c 65 4e 61 6d 65 5d 0d 0a ame $fileName]..
5e00: 0d 0a 20 20 20 20 20 20 69 66 20 7b 21 5b 66 69 .. if {![fi
5e10: 6c 65 20 65 78 69 73 74 73 20 24 73 6f 75 72 63 le exists $sourc
5e20: 65 46 69 6c 65 4e 61 6d 65 5d 7d 20 74 68 65 6e eFileName]} then
5e30: 20 7b 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 {.. tput
5e40: 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 s $::test_channe
5e50: 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d l [appendArgs \.
5e60: 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d . "--
5e70: 2d 2d 20 73 6b 69 70 70 65 64 20 63 6f 70 79 69 -- skipped copyi
5e80: 6e 67 20 62 75 69 6c 64 20 66 69 6c 65 20 5c 22 ng build file \"
5e90: 22 20 24 73 6f 75 72 63 65 46 69 6c 65 4e 61 6d " $sourceFileNam
5ea0: 65 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 e \..
5eb0: 20 22 5c 22 2c 20 69 74 20 64 6f 65 73 20 6e 6f "\", it does no
5ec0: 74 20 65 78 69 73 74 5c 6e 22 5d 0d 0a 0d 0a 20 t exist\n"]....
5ed0: 20 20 20 20 20 20 20 72 65 74 75 72 6e 0d 0a 20 return..
5ee0: 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 }....
5ef0: 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 if {[string leng
5f00: 74 68 20 24 6e 65 77 46 69 6c 65 4e 61 6d 65 5d th $newFileName]
5f10: 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 > 0} then {..
5f20: 20 20 20 20 20 20 73 65 74 20 74 61 72 67 65 74 set target
5f30: 46 69 6c 65 4e 61 6d 65 20 5b 67 65 74 42 69 6e FileName [getBin
5f40: 61 72 79 46 69 6c 65 4e 61 6d 65 20 24 6e 65 77 aryFileName $new
5f50: 46 69 6c 65 4e 61 6d 65 5d 0d 0a 20 20 20 20 20 FileName]..
5f60: 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 } else {..
5f70: 20 20 20 73 65 74 20 74 61 72 67 65 74 46 69 6c set targetFil
5f80: 65 4e 61 6d 65 20 5b 67 65 74 42 69 6e 61 72 79 eName [getBinary
5f90: 46 69 6c 65 4e 61 6d 65 20 24 66 69 6c 65 4e 61 FileName $fileNa
5fa0: 6d 65 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a me].. }....
5fb0: 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 if {[catch
5fc0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 {..
5fd0: 20 20 66 69 6c 65 20 63 6f 70 79 20 2d 66 6f 72 file copy -for
5fe0: 63 65 20 24 73 6f 75 72 63 65 46 69 6c 65 4e 61 ce $sourceFileNa
5ff0: 6d 65 20 24 74 61 72 67 65 74 46 69 6c 65 4e 61 me $targetFileNa
6000: 6d 65 7d 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20 me}] == 0} then
6010: 7b 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 {.. tputs
6020: 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c $::test_channel
6030: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a [appendArgs \..
6040: 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d "---
6050: 2d 20 63 6f 70 69 65 64 20 62 75 69 6c 64 20 66 - copied build f
6060: 69 6c 65 20 66 72 6f 6d 20 5c 22 22 20 24 73 6f ile from \"" $so
6070: 75 72 63 65 46 69 6c 65 4e 61 6d 65 20 22 5c 22 urceFileName "\"
6080: 20 74 6f 20 5c 22 22 20 5c 0d 0a 20 20 20 20 20 to \"" \..
6090: 20 20 20 20 20 20 20 24 74 61 72 67 65 74 46 69 $targetFi
60a0: 6c 65 4e 61 6d 65 20 5c 22 5c 6e 5d 0d 0a 20 20 leName \"\n]..
60b0: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 } else {..
60c0: 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 tputs $::t
60d0: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 est_channel [app
60e0: 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 endArgs \..
60f0: 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 66 61 69 "---- fai
6100: 6c 65 64 20 74 6f 20 63 6f 70 79 20 62 75 69 6c led to copy buil
6110: 64 20 66 69 6c 65 20 66 72 6f 6d 20 5c 22 22 20 d file from \""
6120: 24 73 6f 75 72 63 65 46 69 6c 65 4e 61 6d 65 20 $sourceFileName
6130: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 \.. "
6140: 5c 22 20 74 6f 20 5c 22 22 20 24 74 61 72 67 65 \" to \"" $targe
6150: 74 46 69 6c 65 4e 61 6d 65 20 5c 22 5c 6e 5d 0d tFileName \"\n].
6160: 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d . }.. }.
6170: 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 74 72 79 .... proc try
6180: 44 65 6c 65 74 65 42 69 6e 61 72 79 46 69 6c 65 DeleteBinaryFile
6190: 20 7b 20 66 69 6c 65 4e 61 6d 65 20 7d 20 7b 0d { fileName } {.
61a0: 0a 20 20 20 20 20 20 73 65 74 20 66 69 6c 65 4e . set fileN
61b0: 61 6d 65 20 5b 67 65 74 42 69 6e 61 72 79 46 69 ame [getBinaryFi
61c0: 6c 65 4e 61 6d 65 20 24 66 69 6c 65 4e 61 6d 65 leName $fileName
61d0: 5d 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 21 ].... if {!
61e0: 5b 66 69 6c 65 20 65 78 69 73 74 73 20 24 66 69 [file exists $fi
61f0: 6c 65 4e 61 6d 65 5d 7d 20 74 68 65 6e 20 7b 0d leName]} then {.
6200: 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 . tputs $
6210: 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b ::test_channel [
6220: 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 appendArgs \..
6230: 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 "----
6240: 73 6b 69 70 70 65 64 20 64 65 6c 65 74 69 6e 67 skipped deleting
6250: 20 62 69 6e 61 72 79 20 66 69 6c 65 20 5c 22 22 binary file \""
6260: 20 24 66 69 6c 65 4e 61 6d 65 20 5c 0d 0a 20 20 $fileName \..
6270: 20 20 20 20 20 20 20 20 20 20 22 5c 22 2c 20 69 "\", i
6280: 74 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 t does not exist
6290: 5c 6e 22 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 \n"]....
62a0: 72 65 74 75 72 6e 0d 0a 20 20 20 20 20 20 7d 0d return.. }.
62b0: 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 63 61 ... if {[ca
62c0: 74 63 68 20 7b 66 69 6c 65 20 64 65 6c 65 74 65 tch {file delete
62d0: 20 24 66 69 6c 65 4e 61 6d 65 7d 5d 20 3d 3d 20 $fileName}] ==
62e0: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 0} then {..
62f0: 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 tputs $::test
6300: 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 _channel [append
6310: 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 Args \..
6320: 20 20 20 20 22 2d 2d 2d 2d 20 64 65 6c 65 74 65 "---- delete
6330: 64 20 62 69 6e 61 72 79 20 66 69 6c 65 20 5c 22 d binary file \"
6340: 22 20 24 66 69 6c 65 4e 61 6d 65 20 5c 22 5c 6e " $fileName \"\n
6350: 5d 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20 ].. } else
6360: 7b 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 {.. tputs
6370: 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c $::test_channel
6380: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a [appendArgs \..
6390: 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d "---
63a0: 2d 20 66 61 69 6c 65 64 20 74 6f 20 64 65 6c 65 - failed to dele
63b0: 74 65 20 62 69 6e 61 72 79 20 66 69 6c 65 20 5c te binary file \
63c0: 22 22 20 24 66 69 6c 65 4e 61 6d 65 20 5c 22 5c "" $fileName \"\
63d0: 6e 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 n].. }..
63e0: 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 }..... proc
63f0: 74 72 79 44 65 6c 65 74 65 42 75 69 6c 64 46 69 tryDeleteBuildFi
6400: 6c 65 20 7b 20 66 69 6c 65 4e 61 6d 65 20 7d 20 le { fileName }
6410: 7b 0d 0a 20 20 20 20 20 20 73 65 74 20 66 69 6c {.. set fil
6420: 65 4e 61 6d 65 20 5b 67 65 74 42 75 69 6c 64 46 eName [getBuildF
6430: 69 6c 65 4e 61 6d 65 20 24 66 69 6c 65 4e 61 6d ileName $fileNam
6440: 65 5d 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b e].... if {
6450: 21 5b 66 69 6c 65 20 65 78 69 73 74 73 20 24 66 ![file exists $f
6460: 69 6c 65 4e 61 6d 65 5d 7d 20 74 68 65 6e 20 7b ileName]} then {
6470: 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20 .. tputs
6480: 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 $::test_channel
6490: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 [appendArgs \..
64a0: 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d "----
64b0: 20 73 6b 69 70 70 65 64 20 64 65 6c 65 74 69 6e skipped deletin
64c0: 67 20 62 75 69 6c 64 20 66 69 6c 65 20 5c 22 22 g build file \""
64d0: 20 24 66 69 6c 65 4e 61 6d 65 20 5c 0d 0a 20 20 $fileName \..
64e0: 20 20 20 20 20 20 20 20 20 20 22 5c 22 2c 20 69 "\", i
64f0: 74 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 t does not exist
6500: 5c 6e 22 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 \n"]....
6510: 72 65 74 75 72 6e 0d 0a 20 20 20 20 20 20 7d 0d return.. }.
6520: 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 63 61 ... if {[ca
6530: 74 63 68 20 7b 66 69 6c 65 20 64 65 6c 65 74 65 tch {file delete
6540: 20 24 66 69 6c 65 4e 61 6d 65 7d 5d 20 3d 3d 20 $fileName}] ==
6550: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 0} then {..
6560: 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 tputs $::test
6570: 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 _channel [append
6580: 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 Args \..
6590: 20 20 20 20 22 2d 2d 2d 2d 20 64 65 6c 65 74 65 "---- delete
65a0: 64 20 62 75 69 6c 64 20 66 69 6c 65 20 5c 22 22 d build file \""
65b0: 20 24 66 69 6c 65 4e 61 6d 65 20 5c 22 5c 6e 5d $fileName \"\n]
65c0: 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b .. } else {
65d0: 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20 .. tputs
65e0: 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 $::test_channel
65f0: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 [appendArgs \..
6600: 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d "----
6610: 20 66 61 69 6c 65 64 20 74 6f 20 64 65 6c 65 74 failed to delet
6620: 65 20 62 75 69 6c 64 20 66 69 6c 65 20 5c 22 22 e build file \""
6630: 20 24 66 69 6c 65 4e 61 6d 65 20 5c 22 5c 6e 5d $fileName \"\n]
6640: 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d .. }.. }
6650: 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 74 72 ..... proc tr
6660: 79 43 6f 70 79 41 73 73 65 6d 62 6c 79 20 7b 20 yCopyAssembly {
6670: 66 69 6c 65 4e 61 6d 65 20 7b 70 64 62 20 74 72 fileName {pdb tr
6680: 75 65 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 20 74 ue} } {.. t
6690: 72 79 43 6f 70 79 42 75 69 6c 64 46 69 6c 65 20 ryCopyBuildFile
66a0: 24 66 69 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 20 20 $fileName....
66b0: 20 20 20 69 66 20 7b 24 70 64 62 7d 20 74 68 65 if {$pdb} the
66c0: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 74 72 79 n {.. try
66d0: 43 6f 70 79 42 75 69 6c 64 46 69 6c 65 20 5b 61 CopyBuildFile [a
66e0: 70 70 65 6e 64 41 72 67 73 20 5b 66 69 6c 65 20 ppendArgs [file
66f0: 72 6f 6f 74 6e 61 6d 65 20 24 66 69 6c 65 4e 61 rootname $fileNa
6700: 6d 65 5d 20 2e 70 64 62 5d 0d 0a 20 20 20 20 20 me] .pdb]..
6710: 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 }.. }.....
6720: 20 20 70 72 6f 63 20 74 72 79 44 65 6c 65 74 65 proc tryDelete
6730: 41 73 73 65 6d 62 6c 79 20 7b 20 66 69 6c 65 4e Assembly { fileN
6740: 61 6d 65 20 7b 70 64 62 20 74 72 75 65 7d 20 7d ame {pdb true} }
6750: 20 7b 0d 0a 20 20 20 20 20 20 74 72 79 44 65 6c {.. tryDel
6760: 65 74 65 42 69 6e 61 72 79 46 69 6c 65 20 24 66 eteBinaryFile $f
6770: 69 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 20 20 20 20 ileName....
6780: 20 69 66 20 7b 24 70 64 62 7d 20 74 68 65 6e 20 if {$pdb} then
6790: 7b 0d 0a 20 20 20 20 20 20 20 20 74 72 79 44 65 {.. tryDe
67a0: 6c 65 74 65 42 69 6e 61 72 79 46 69 6c 65 20 5b leteBinaryFile [
67b0: 61 70 70 65 6e 64 41 72 67 73 20 5b 66 69 6c 65 appendArgs [file
67c0: 20 72 6f 6f 74 6e 61 6d 65 20 24 66 69 6c 65 4e rootname $fileN
67d0: 61 6d 65 5d 20 2e 70 64 62 5d 0d 0a 20 20 20 20 ame] .pdb]..
67e0: 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 }.. }.....
67f0: 20 20 20 70 72 6f 63 20 74 72 79 4c 6f 61 64 41 proc tryLoadA
6800: 73 73 65 6d 62 6c 79 20 7b 20 66 69 6c 65 4e 61 ssembly { fileNa
6810: 6d 65 20 7d 20 7b 0d 0a 20 20 20 20 20 20 73 65 me } {.. se
6820: 74 20 66 69 6c 65 4e 61 6d 65 20 5b 67 65 74 42 t fileName [getB
6830: 69 6e 61 72 79 46 69 6c 65 4e 61 6d 65 20 24 66 inaryFileName $f
6840: 69 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a 20 20 20 20 ileName]....
6850: 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 73 65 if {[catch {se
6860: 74 20 61 73 73 65 6d 62 6c 79 20 5c 0d 0a 20 20 t assembly \..
6870: 20 20 20 20 20 20 20 20 20 20 20 20 5b 6f 62 6a [obj
6880: 65 63 74 20 6c 6f 61 64 20 2d 6c 6f 61 64 74 79 ect load -loadty
6890: 70 65 20 46 69 6c 65 20 2d 61 6c 69 61 73 20 24 pe File -alias $
68a0: 66 69 6c 65 4e 61 6d 65 5d 7d 5d 20 3d 3d 20 30 fileName]}] == 0
68b0: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {..
68c0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e #.. # N
68d0: 4f 54 45 3a 20 4e 6f 77 2c 20 61 64 64 20 74 68 OTE: Now, add th
68e0: 65 20 6e 65 63 65 73 73 61 72 79 20 74 65 73 74 e necessary test
68f0: 20 63 6f 6e 73 74 72 61 69 6e 74 2e 0d 0a 20 20 constraint...
6900: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
6910: 20 61 64 64 43 6f 6e 73 74 72 61 69 6e 74 20 5b addConstraint [
6920: 66 69 6c 65 20 72 6f 6f 74 6e 61 6d 65 20 5b 66 file rootname [f
6930: 69 6c 65 20 74 61 69 6c 20 24 66 69 6c 65 4e 61 ile tail $fileNa
6940: 6d 65 5d 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 me]]....
6950: 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT
6960: 45 3a 20 47 72 61 62 20 74 68 65 20 69 6d 61 67 E: Grab the imag
6970: 65 20 72 75 6e 74 69 6d 65 20 76 65 72 73 69 6f e runtime versio
6980: 6e 20 66 72 6f 6d 20 74 68 65 20 61 73 73 65 6d n from the assem
6990: 62 6c 79 20 62 65 63 61 75 73 65 0d 0a 20 20 20 bly because..
69a0: 20 20 20 20 20 23 20 20 20 20 20 20 20 73 65 76 # sev
69b0: 65 72 61 6c 20 74 65 73 74 73 20 72 65 6c 79 20 eral tests rely
69c0: 6f 6e 20 69 74 20 68 61 76 69 6e 67 20 61 20 63 on it having a c
69d0: 65 72 74 61 69 6e 20 76 61 6c 75 65 2e 0d 0a 20 ertain value...
69e0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
69f0: 20 20 61 64 64 43 6f 6e 73 74 72 61 69 6e 74 20 addConstraint
6a00: 5b 61 70 70 65 6e 64 41 72 67 73 20 5b 66 69 6c [appendArgs [fil
6a10: 65 20 74 61 69 6c 20 24 66 69 6c 65 4e 61 6d 65 e tail $fileName
6a20: 5d 20 5f 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 ] _ \..
6a30: 20 20 20 5b 24 61 73 73 65 6d 62 6c 79 20 49 6d [$assembly Im
6a40: 61 67 65 52 75 6e 74 69 6d 65 56 65 72 73 69 6f ageRuntimeVersio
6a50: 6e 5d 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 n]].... #
6a60: 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 .. # NOTE
6a70: 3a 20 52 65 74 75 72 6e 20 74 68 65 20 66 75 6c : Return the ful
6a80: 6c 20 70 61 74 68 20 6f 66 20 74 68 65 20 6c 6f l path of the lo
6a90: 61 64 65 64 20 66 69 6c 65 2e 0d 0a 20 20 20 20 aded file...
6aa0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 72 #.. r
6ab0: 65 74 75 72 6e 20 24 66 69 6c 65 4e 61 6d 65 0d eturn $fileName.
6ac0: 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 . }....
6ad0: 20 20 72 65 74 75 72 6e 20 22 22 0d 0a 20 20 20 return ""..
6ae0: 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 }..... proc
6af0: 69 73 53 51 4c 69 74 65 52 65 61 64 79 20 7b 7d isSQLiteReady {}
6b00: 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 {.. #..
6b10: 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 69 73 20 # NOTE: This
6b20: 70 72 6f 63 65 64 75 72 65 20 6d 75 73 74 20 72 procedure must r
6b30: 65 74 75 72 6e 20 6e 6f 6e 2d 7a 65 72 6f 20 6f eturn non-zero o
6b40: 6e 6c 79 20 69 66 20 74 68 65 20 53 51 4c 69 74 nly if the SQLit
6b50: 65 20 6e 61 74 69 76 65 0d 0a 20 20 20 20 20 20 e native..
6b60: 23 20 20 20 20 20 20 20 6c 69 62 72 61 72 79 20 # library
6b70: 61 6e 64 20 74 68 65 20 53 79 73 74 65 6d 2e 44 and the System.D
6b80: 61 74 61 2e 53 51 4c 69 74 65 20 6d 61 6e 61 67 ata.SQLite manag
6b90: 65 64 20 61 73 73 65 6d 62 6c 79 20 61 72 65 20 ed assembly are
6ba0: 6c 6f 61 64 65 64 0d 0a 20 20 20 20 20 20 23 20 loaded.. #
6bb0: 20 20 20 20 20 20 61 6e 64 20 72 65 61 64 79 20 and ready
6bc0: 66 6f 72 20 75 73 65 20 62 79 20 74 68 65 20 74 for use by the t
6bd0: 65 73 74 20 73 75 69 74 65 2e 20 20 43 75 72 72 est suite. Curr
6be0: 65 6e 74 6c 79 2c 20 74 68 69 73 20 70 72 6f 63 ently, this proc
6bf0: 65 64 75 72 65 0d 0a 20 20 20 20 20 20 23 20 20 edure.. #
6c00: 20 20 20 20 20 73 68 6f 75 6c 64 20 62 65 20 63 should be c
6c10: 61 6c 6c 65 64 20 6f 6e 6c 79 20 61 66 74 65 72 alled only after
6c20: 20 74 68 65 20 5b 74 72 79 4c 6f 61 64 41 73 73 the [tryLoadAss
6c30: 65 6d 62 6c 79 5d 20 70 72 6f 63 65 64 75 72 65 embly] procedure
6c40: 20 68 61 73 0d 0a 20 20 20 20 20 20 23 20 20 20 has.. #
6c50: 20 20 20 20 62 65 65 6e 20 63 61 6c 6c 65 64 20 been called
6c60: 74 6f 20 70 72 6f 62 65 20 66 6f 72 20 74 68 65 to probe for the
6c70: 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c System.Data.SQL
6c80: 69 74 65 20 6d 61 6e 61 67 65 64 20 61 73 73 65 ite managed asse
6c90: 6d 62 6c 79 0d 0a 20 20 20 20 20 20 23 20 20 20 mbly.. #
6ca0: 20 20 20 20 61 6e 64 20 74 68 65 20 5b 63 68 65 and the [che
6cb0: 63 6b 46 6f 72 53 51 4c 69 74 65 5d 20 70 72 6f ckForSQLite] pro
6cc0: 63 65 64 75 72 65 20 68 61 73 20 62 65 65 6e 20 cedure has been
6cd0: 63 61 6c 6c 65 64 20 74 6f 20 70 72 6f 62 65 20 called to probe
6ce0: 66 6f 72 0d 0a 20 20 20 20 20 20 23 20 20 20 20 for.. #
6cf0: 20 20 20 74 68 65 20 53 51 4c 69 74 65 20 6e 61 the SQLite na
6d00: 74 69 76 65 20 6c 69 62 72 61 72 79 3b 20 6f 74 tive library; ot
6d10: 68 65 72 77 69 73 65 2c 20 74 68 69 73 20 70 72 herwise, this pr
6d20: 6f 63 65 64 75 72 65 20 77 69 6c 6c 20 73 69 6d ocedure will sim
6d30: 70 6c 79 0d 0a 20 20 20 20 20 20 23 20 20 20 20 ply.. #
6d40: 20 20 20 61 6c 77 61 79 73 20 72 65 74 75 72 6e always return
6d50: 20 7a 65 72 6f 2e 0d 0a 20 20 20 20 20 20 23 0d zero... #.
6d60: 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 5b 65 . return [e
6d70: 78 70 72 20 7b 5b 68 61 76 65 43 6f 6e 73 74 72 xpr {[haveConstr
6d80: 61 69 6e 74 20 53 79 73 74 65 6d 2e 44 61 74 61 aint System.Data
6d90: 2e 53 51 4c 69 74 65 5d 20 26 26 20 5c 0d 0a 20 .SQLite] && \..
6da0: 20 20 20 20 20 20 20 20 20 5b 68 61 76 65 43 6f [haveCo
6db0: 6e 73 74 72 61 69 6e 74 20 53 51 4c 69 74 65 5d nstraint SQLite]
6dc0: 7d 5d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 }].. }.....
6dd0: 20 20 70 72 6f 63 20 6d 61 74 63 68 4d 61 63 68 proc matchMach
6de0: 69 6e 65 20 7b 20 70 6c 61 74 66 6f 72 6d 20 7d ine { platform }
6df0: 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 {.. #..
6e00: 20 20 20 23 20 4e 4f 54 45 3a 20 41 6e 20 65 6d # NOTE: An em
6e10: 70 74 79 20 73 74 72 69 6e 67 20 66 6f 72 20 74 pty string for t
6e20: 68 65 20 70 6c 61 74 66 6f 72 6d 20 6d 65 61 6e he platform mean
6e30: 73 20 74 68 61 74 20 74 68 65 20 62 75 69 6c 64 s that the build
6e40: 20 69 73 20 6e 6f 74 0d 0a 20 20 20 20 20 20 23 is not.. #
6e50: 20 20 20 20 20 20 20 5b 70 72 69 6d 61 72 69 6c [primaril
6e60: 79 5d 20 61 20 6e 61 74 69 76 65 20 62 75 69 6c y] a native buil
6e70: 64 3b 20 74 68 65 72 65 66 6f 72 65 2c 20 69 74 d; therefore, it
6e80: 20 61 6c 77 61 79 73 20 6d 61 74 63 68 65 73 2e always matches.
6e90: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #..
6ea0: 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e if {[string len
6eb0: 67 74 68 20 24 70 6c 61 74 66 6f 72 6d 5d 20 3d gth $platform] =
6ec0: 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 = 0} then {..
6ed0: 20 20 20 20 20 72 65 74 75 72 6e 20 74 72 75 65 return true
6ee0: 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 .. }....
6ef0: 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f #.. # NO
6f00: 54 45 3a 20 44 6f 65 73 20 74 68 65 20 73 70 65 TE: Does the spe
6f10: 63 69 66 69 65 64 20 70 6c 61 74 66 6f 72 6d 20 cified platform
6f20: 6d 61 74 63 68 20 75 70 20 74 6f 20 74 68 65 20 match up to the
6f30: 63 75 72 72 65 6e 74 20 70 72 6f 63 65 73 73 3f current process?
6f40: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #..
6f50: 20 69 66 20 7b 24 70 6c 61 74 66 6f 72 6d 20 65 if {$platform e
6f60: 71 20 5b 6d 61 63 68 69 6e 65 54 6f 50 6c 61 74 q [machineToPlat
6f70: 66 6f 72 6d 20 24 3a 3a 74 63 6c 5f 70 6c 61 74 form $::tcl_plat
6f80: 66 6f 72 6d 28 6d 61 63 68 69 6e 65 29 5d 7d 20 form(machine)]}
6f90: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 then {..
6fa0: 72 65 74 75 72 6e 20 74 72 75 65 0d 0a 20 20 20 return true..
6fb0: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d }.... #.
6fc0: 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 . # NOTE: T
6fd0: 68 65 20 73 70 65 63 69 66 69 65 64 20 70 6c 61 he specified pla
6fe0: 74 66 6f 72 6d 20 64 6f 65 73 20 6e 6f 74 20 6d tform does not m
6ff0: 61 74 63 68 20 75 70 20 77 69 74 68 20 74 68 65 atch up with the
7000: 20 70 6c 61 74 66 6f 72 6d 0d 0a 20 20 20 20 20 platform..
7010: 20 23 20 20 20 20 20 20 20 66 6f 72 20 74 68 65 # for the
7020: 20 63 75 72 72 65 6e 74 20 70 72 6f 63 65 73 73 current process
7030: 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 ... #..
7040: 20 20 72 65 74 75 72 6e 20 66 61 6c 73 65 0d 0a return false..
7050: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 }..... pr
7060: 6f 63 20 63 68 65 63 6b 46 6f 72 53 51 4c 69 74 oc checkForSQLit
7070: 65 42 75 69 6c 64 73 20 7b 20 63 68 61 6e 6e 65 eBuilds { channe
7080: 6c 20 7b 73 65 6c 65 63 74 20 66 61 6c 73 65 7d l {select false}
7090: 20 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 } {.. #..
70a0: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 43 68 65 # NOTE: Che
70b0: 63 6b 20 66 6f 72 20 65 76 65 72 79 20 70 6f 73 ck for every pos
70c0: 73 69 62 6c 65 20 76 61 6c 69 64 20 63 6f 6d 62 sible valid comb
70d0: 69 6e 61 74 69 6f 6e 20 6f 66 20 76 61 6c 75 65 ination of value
70e0: 73 20 75 73 65 64 20 77 68 65 6e 0d 0a 20 20 20 s used when..
70f0: 20 20 20 23 20 20 20 20 20 20 20 6c 6f 63 61 74 # locat
7100: 69 6e 67 20 6f 75 74 20 74 68 65 20 62 75 69 6c ing out the buil
7110: 64 20 6f 75 74 70 75 74 20 64 69 72 65 63 74 6f d output directo
7120: 72 79 2c 20 73 68 6f 77 69 6e 67 20 65 61 63 68 ry, showing each
7130: 20 61 76 61 69 6c 61 62 6c 65 0d 0a 20 20 20 20 available..
7140: 20 20 23 20 20 20 20 20 20 20 62 75 69 6c 64 20 # build
7150: 76 61 72 69 61 74 69 6f 6e 20 61 6c 6f 6e 67 20 variation along
7160: 74 68 65 20 77 61 79 2e 0d 0a 20 20 20 20 20 20 the way...
7170: 23 0d 0a 20 20 20 20 20 20 66 6f 72 65 61 63 68 #.. foreach
7180: 20 6e 61 74 69 76 65 20 5b 6c 69 73 74 20 66 61 native [list fa
7190: 6c 73 65 20 74 72 75 65 5d 20 7b 0d 0a 20 20 20 lse true] {..
71a0: 20 20 20 20 20 66 6f 72 65 61 63 68 20 79 65 61 foreach yea
71b0: 72 20 5b 67 65 74 42 75 69 6c 64 59 65 61 72 73 r [getBuildYears
71c0: 5d 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 66 ] {.. f
71d0: 6f 72 65 61 63 68 20 63 6f 6e 66 69 67 75 72 61 oreach configura
71e0: 74 69 6f 6e 20 5b 67 65 74 42 75 69 6c 64 43 6f tion [getBuildCo
71f0: 6e 66 69 67 75 72 61 74 69 6f 6e 73 5d 20 7b 0d nfigurations] {.
7200: 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 0d 0a . #..
7210: 20 20 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f # NO
7220: 54 45 3a 20 46 69 67 75 72 65 20 6f 75 74 20 74 TE: Figure out t
7230: 68 65 20 65 66 66 65 63 74 69 76 65 20 62 75 69 he effective bui
7240: 6c 64 20 70 6c 61 74 66 6f 72 6d 2e 20 20 54 68 ld platform. Th
7250: 69 73 20 69 73 0d 0a 20 20 20 20 20 20 20 20 20 is is..
7260: 20 20 20 23 20 20 20 20 20 20 20 62 61 73 65 64 # based
7270: 20 6f 6e 20 77 68 65 74 68 65 72 20 6f 72 20 6e on whether or n
7280: 6f 74 20 61 20 5b 70 72 69 6d 61 72 69 6c 79 5d ot a [primarily]
7290: 20 6e 61 74 69 76 65 20 62 75 69 6c 64 0d 0a 20 native build..
72a0: 20 20 20 20 20 20 20 20 20 20 20 23 20 20 20 20 #
72b0: 20 20 20 69 73 20 62 65 69 6e 67 20 75 73 65 64 is being used
72c0: 2e 20 20 46 6f 72 20 5b 70 72 69 6d 61 72 69 6c . For [primaril
72d0: 79 5d 20 6e 6f 6e 2d 6e 61 74 69 76 65 20 62 75 y] non-native bu
72e0: 69 6c 64 73 2c 0d 0a 20 20 20 20 20 20 20 20 20 ilds,..
72f0: 20 20 20 23 20 20 20 20 20 20 20 74 68 69 73 20 # this
7300: 77 69 6c 6c 20 62 65 20 61 6e 20 65 6d 70 74 79 will be an empty
7310: 20 73 74 72 69 6e 67 2e 0d 0a 20 20 20 20 20 20 string...
7320: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
7330: 20 20 20 20 20 73 65 74 20 70 6c 61 74 66 6f 72 set platfor
7340: 6d 20 5b 67 65 74 42 75 69 6c 64 50 6c 61 74 66 m [getBuildPlatf
7350: 6f 72 6d 20 24 6e 61 74 69 76 65 5d 0d 0a 0d 0a orm $native]....
7360: 20 20 20 20 20 20 20 20 20 20 20 20 74 70 75 74 tput
7370: 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 s $channel [appe
7380: 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 ndArgs \..
7390: 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 "----
73a0: 63 68 65 63 6b 69 6e 67 20 66 6f 72 20 53 79 73 checking for Sys
73b0: 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 20 tem.Data.SQLite
73c0: 62 75 69 6c 64 20 5c 22 22 20 5b 65 78 70 72 20 build \"" [expr
73d0: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 \..
73e0: 20 20 20 7b 24 6e 61 74 69 76 65 20 3f 20 22 6e {$native ? "n
73f0: 61 74 69 76 65 2f 22 20 3a 20 22 22 7d 5d 20 5b ative/" : ""}] [
7400: 65 78 70 72 20 7b 5b 73 74 72 69 6e 67 20 6c 65 expr {[string le
7410: 6e 67 74 68 20 5c 0d 0a 20 20 20 20 20 20 20 20 ngth \..
7420: 20 20 20 20 20 20 20 20 24 70 6c 61 74 66 6f 72 $platfor
7430: 6d 5d 20 3e 20 30 20 3f 20 5b 61 70 70 65 6e 64 m] > 0 ? [append
7440: 41 72 67 73 20 24 70 6c 61 74 66 6f 72 6d 20 2f Args $platform /
7450: 5d 20 3a 20 22 22 7d 5d 20 24 79 65 61 72 20 5c ] : ""}] $year \
7460: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
7470: 20 20 2f 20 24 63 6f 6e 66 69 67 75 72 61 74 69 / $configurati
7480: 6f 6e 20 22 5c 22 2e 2e 2e 20 22 5d 0d 0a 0d 0a on "\"... "]....
7490: 20 20 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 #..
74a0: 20 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 # NOT
74b0: 45 3a 20 42 75 69 6c 64 20 74 68 65 20 66 75 6c E: Build the ful
74c0: 6c 79 20 71 75 61 6c 69 66 69 65 64 20 66 69 6c ly qualified fil
74d0: 65 20 6e 61 6d 65 20 66 6f 72 20 74 68 65 20 70 e name for the p
74e0: 72 69 6d 61 72 79 0d 0a 20 20 20 20 20 20 20 20 rimary..
74f0: 20 20 20 20 23 20 20 20 20 20 20 20 61 73 73 65 # asse
7500: 6d 62 6c 79 20 63 6f 6e 74 61 69 6e 69 6e 67 20 mbly containing
7510: 74 68 65 20 53 79 73 74 65 6d 2e 44 61 74 61 2e the System.Data.
7520: 53 51 4c 69 74 65 20 6d 61 6e 61 67 65 64 0d 0a SQLite managed..
7530: 20 20 20 20 20 20 20 20 20 20 20 20 23 20 20 20 #
7540: 20 20 20 20 63 6f 6d 70 6f 6e 65 6e 74 73 2e 20 components.
7550: 20 49 74 20 73 68 6f 75 6c 64 20 62 65 20 6e 6f It should be no
7560: 74 65 64 20 74 68 61 74 20 74 68 69 73 20 61 73 ted that this as
7570: 73 65 6d 62 6c 79 0d 0a 20 20 20 20 20 20 20 20 sembly..
7580: 20 20 20 20 23 20 20 20 20 20 20 20 66 69 6c 65 # file
7590: 20 6d 61 79 20 61 6c 73 6f 20 63 6f 6e 74 61 69 may also contai
75a0: 6e 20 74 68 65 20 6e 61 74 69 76 65 20 63 6f 6d n the native com
75b0: 70 6f 6e 65 6e 74 73 2c 20 69 66 20 61 0d 0a 20 ponents, if a..
75c0: 20 20 20 20 20 20 20 20 20 20 20 23 20 20 20 20 #
75d0: 20 20 20 6e 61 74 69 76 65 20 62 75 69 6c 64 20 native build
75e0: 69 73 20 69 6e 20 75 73 65 2e 0d 0a 20 20 20 20 is in use...
75f0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #..
7600: 20 20 20 20 20 20 20 73 65 74 20 66 69 6c 65 4e set fileN
7610: 61 6d 65 20 5b 66 69 6c 65 20 6e 61 74 69 76 65 ame [file native
7620: 6e 61 6d 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 name [file join
7630: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 \..
7640: 20 20 20 5b 6a 6f 69 6e 42 75 69 6c 64 44 69 72 [joinBuildDir
7650: 65 63 74 6f 72 79 20 24 6e 61 74 69 76 65 20 5b ectory $native [
7660: 67 65 74 42 75 69 6c 64 42 61 73 65 44 69 72 65 getBuildBaseDire
7670: 63 74 6f 72 79 5d 20 24 79 65 61 72 20 5c 0d 0a ctory] $year \..
7680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7690: 24 70 6c 61 74 66 6f 72 6d 20 24 63 6f 6e 66 69 $platform $confi
76a0: 67 75 72 61 74 69 6f 6e 5d 20 53 79 73 74 65 6d guration] System
76b0: 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 64 6c 6c .Data.SQLite.dll
76c0: 5d 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 ]]....
76d0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 20 #..
76e0: 20 23 20 4e 4f 54 45 3a 20 44 6f 65 73 20 74 68 # NOTE: Does th
76f0: 65 20 66 69 6c 65 20 65 78 69 73 74 3f 20 20 43 e file exist? C
7700: 75 72 72 65 6e 74 6c 79 2c 20 6e 6f 20 6f 74 68 urrently, no oth
7710: 65 72 20 73 74 65 70 73 20 61 72 65 0d 0a 20 20 er steps are..
7720: 20 20 20 20 20 20 20 20 20 20 23 20 20 20 20 20 #
7730: 20 20 74 61 6b 65 6e 20 74 6f 20 76 65 72 69 66 taken to verif
7740: 79 20 74 68 69 73 20 62 75 69 6c 64 20 69 73 20 y this build is
7750: 61 63 74 75 61 6c 6c 79 20 76 69 61 62 6c 65 2e actually viable.
7760: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 0d .. #.
7770: 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 . if
7780: 7b 5b 66 69 6c 65 20 65 78 69 73 74 73 20 24 66 {[file exists $f
7790: 69 6c 65 4e 61 6d 65 5d 7d 20 74 68 65 6e 20 7b ileName]} then {
77a0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
77b0: 23 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 #..
77c0: 20 23 20 4e 4f 54 45 3a 20 57 68 65 6e 20 69 6e # NOTE: When in
77d0: 20 22 73 65 6c 65 63 74 22 20 6d 6f 64 65 2c 20 "select" mode,
77e0: 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 73 65 automatically se
77f0: 6c 65 63 74 20 74 68 65 20 66 69 72 73 74 0d 0a lect the first..
7800: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 20 #
7810: 20 20 20 20 20 20 61 76 61 69 6c 61 62 6c 65 20 available
7820: 62 75 69 6c 64 20 6f 66 20 53 79 73 74 65 6d 2e build of System.
7830: 44 61 74 61 2e 53 51 4c 69 74 65 20 61 6e 64 20 Data.SQLite and
7840: 74 68 65 6e 20 72 65 74 75 72 6e 0d 0a 20 20 20 then return..
7850: 20 20 20 20 20 20 20 20 20 20 20 23 20 20 20 20 #
7860: 20 20 20 69 6d 6d 65 64 69 61 74 65 6c 79 2e 0d immediately..
7870: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 . #
7880: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
7890: 69 66 20 7b 24 73 65 6c 65 63 74 20 26 26 20 5b if {$select && [
78a0: 6d 61 74 63 68 4d 61 63 68 69 6e 65 20 24 70 6c matchMachine $pl
78b0: 61 74 66 6f 72 6d 5d 7d 20 74 68 65 6e 20 7b 0d atform]} then {.
78c0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
78d0: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 #..
78e0: 20 20 20 20 23 20 4e 4f 54 45 3a 20 4d 61 6e 75 # NOTE: Manu
78f0: 61 6c 6c 79 20 6f 76 65 72 72 69 64 65 20 61 6c ally override al
7900: 6c 20 74 68 65 20 62 75 69 6c 64 20 64 69 72 65 l the build dire
7910: 63 74 6f 72 79 20 73 65 6c 65 63 74 69 6f 6e 0d ctory selection.
7920: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
7930: 20 23 20 20 20 20 20 20 20 72 65 6c 61 74 65 64 # related
7940: 20 74 65 73 74 20 73 65 74 74 69 6e 67 73 20 69 test settings i
7950: 6e 20 6f 72 64 65 72 20 74 6f 20 66 6f 72 63 65 n order to force
7960: 20 74 68 69 73 20 62 75 69 6c 64 0d 0a 20 20 20 this build..
7970: 20 20 20 20 20 20 20 20 20 20 20 20 20 23 20 20 #
7980: 20 20 20 20 20 6f 66 20 53 79 73 74 65 6d 2e 44 of System.D
7990: 61 74 61 2e 53 51 4c 69 74 65 20 74 6f 20 62 65 ata.SQLite to be
79a0: 20 75 73 65 64 2e 0d 0a 20 20 20 20 20 20 20 20 used...
79b0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #..
79c0: 20 20 20 20 20 20 20 20 20 20 20 6f 62 6a 65 63 objec
79d0: 74 20 69 6e 76 6f 6b 65 20 49 6e 74 65 72 70 72 t invoke Interpr
79e0: 65 74 65 72 2e 47 65 74 41 63 74 69 76 65 20 5b eter.GetActive [
79f0: 65 78 70 72 20 7b 24 6e 61 74 69 76 65 20 3f 20 expr {$native ?
7a00: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 \..
7a10: 20 20 20 20 20 20 20 22 41 64 64 52 75 6e 74 69 "AddRunti
7a20: 6d 65 4f 70 74 69 6f 6e 22 20 3a 20 22 52 65 6d meOption" : "Rem
7a30: 6f 76 65 52 75 6e 74 69 6d 65 4f 70 74 69 6f 6e oveRuntimeOption
7a40: 22 7d 5d 20 20 6e 61 74 69 76 65 0d 0a 0d 0a 20 "}] native....
7a50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 s
7a60: 65 74 20 3a 3a 74 65 73 74 5f 79 65 61 72 20 24 et ::test_year $
7a70: 79 65 61 72 0d 0a 20 20 20 20 20 20 20 20 20 20 year..
7a80: 20 20 20 20 20 20 73 65 74 20 3a 3a 74 65 73 74 set ::test
7a90: 5f 70 6c 61 74 66 6f 72 6d 20 24 70 6c 61 74 66 _platform $platf
7aa0: 6f 72 6d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 orm..
7ab0: 20 20 20 20 20 73 65 74 20 3a 3a 74 65 73 74 5f set ::test_
7ac0: 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 24 63 configuration $c
7ad0: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 0d 0a 0d 0a onfiguration....
7ae0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7af0: 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 5b tputs $channel [
7b00: 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 appendArgs \..
7b10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7b20: 20 20 22 79 65 73 2c 20 73 65 6c 65 63 74 65 64 "yes, selected
7b30: 20 28 22 20 5b 65 78 70 72 20 7b 24 6e 61 74 69 (" [expr {$nati
7b40: 76 65 20 3f 20 22 6e 61 74 69 76 65 2f 22 20 3a ve ? "native/" :
7b50: 20 22 22 7d 5d 20 5c 0d 0a 20 20 20 20 20 20 20 ""}] \..
7b60: 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 65 78 [ex
7b70: 70 72 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 pr {[string leng
7b80: 74 68 20 24 70 6c 61 74 66 6f 72 6d 5d 20 3e 20 th $platform] >
7b90: 30 20 3f 20 5b 61 70 70 65 6e 64 41 72 67 73 20 0 ? [appendArgs
7ba0: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 \..
7bb0: 20 20 20 20 20 20 20 24 70 6c 61 74 66 6f 72 6d $platform
7bc0: 20 2f 5d 20 3a 20 22 22 7d 5d 20 24 79 65 61 72 /] : ""}] $year
7bd0: 20 2f 20 24 63 6f 6e 66 69 67 75 72 61 74 69 6f / $configuratio
7be0: 6e 20 22 29 5c 6e 22 5d 0d 0a 0d 0a 20 20 20 20 n ")\n"]....
7bf0: 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75 retu
7c00: 72 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 rn..
7c10: 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 } else {..
7c20: 20 20 20 20 20 20 20 20 20 20 20 20 74 70 75 74 tput
7c30: 73 20 24 63 68 61 6e 6e 65 6c 20 79 65 73 5c 6e s $channel yes\n
7c40: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
7c50: 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d }.. }
7c60: 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 else {..
7c70: 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68 tputs $ch
7c80: 61 6e 6e 65 6c 20 6e 6f 5c 6e 0d 0a 20 20 20 20 annel no\n..
7c90: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 }..
7ca0: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 }..
7cb0: 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 }.. }..
7cc0: 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 63 }..... proc c
7cd0: 68 65 63 6b 46 6f 72 53 51 4c 69 74 65 4c 69 62 heckForSQLiteLib
7ce0: 72 61 72 79 20 7b 20 63 68 61 6e 6e 65 6c 20 7d rary { channel }
7cf0: 20 7b 0d 0a 20 20 20 20 20 20 74 70 75 74 73 20 {.. tputs
7d00: 24 63 68 61 6e 6e 65 6c 20 22 2d 2d 2d 2d 20 63 $channel "---- c
7d10: 68 65 63 6b 69 6e 67 20 66 6f 72 20 53 51 4c 69 hecking for SQLi
7d20: 74 65 20 63 6f 72 65 20 6c 69 62 72 61 72 79 2e te core library.
7d30: 2e 2e 20 22 0d 0a 0d 0a 20 20 20 20 20 20 69 66 .. ".... if
7d40: 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 {[catch {..
7d50: 20 20 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74 object
7d60: 20 69 6e 76 6f 6b 65 20 2d 66 6c 61 67 73 20 2b invoke -flags +
7d70: 4e 6f 6e 50 75 62 6c 69 63 20 53 79 73 74 65 6d NonPublic System
7d80: 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 53 51 4c .Data.SQLite.SQL
7d90: 69 74 65 33 20 5c 0d 0a 20 20 20 20 20 20 20 20 ite3 \..
7da0: 20 20 20 20 20 20 53 51 4c 69 74 65 56 65 72 73 SQLiteVers
7db0: 69 6f 6e 7d 20 76 65 72 73 69 6f 6e 5d 20 3d 3d ion} version] ==
7dc0: 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 0} then {..
7dd0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 #.. #
7de0: 20 4e 4f 54 45 3a 20 43 68 65 63 6b 20 69 66 20 NOTE: Check if
7df0: 74 68 65 20 72 65 74 75 72 6e 65 64 20 76 65 72 the returned ver
7e00: 73 69 6f 6e 20 77 61 73 20 6e 75 6c 6c 2e 20 20 sion was null.
7e10: 49 66 20 73 6f 2c 20 6d 61 6b 65 20 69 74 20 65 If so, make it e
7e20: 61 73 79 0d 0a 20 20 20 20 20 20 20 20 23 20 20 asy.. #
7e30: 20 20 20 20 20 74 6f 20 73 70 6f 74 2e 0d 0a 20 to spot...
7e40: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
7e50: 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 if {[string le
7e60: 6e 67 74 68 20 24 76 65 72 73 69 6f 6e 5d 20 3d ngth $version] =
7e70: 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 = 0} then {..
7e80: 20 20 20 20 20 20 20 73 65 74 20 76 65 72 73 69 set versi
7e90: 6f 6e 20 6e 75 6c 6c 0d 0a 20 20 20 20 20 20 20 on null..
7ea0: 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d }.... #.
7eb0: 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a . # NOTE:
7ec0: 20 41 74 74 65 6d 70 74 20 74 6f 20 71 75 65 72 Attempt to quer
7ed0: 79 20 74 68 65 20 46 6f 73 73 69 6c 20 73 6f 75 y the Fossil sou
7ee0: 72 63 65 20 69 64 65 6e 74 69 66 69 65 72 20 66 rce identifier f
7ef0: 6f 72 20 74 68 65 20 53 51 4c 69 74 65 0d 0a 20 or the SQLite..
7f00: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 63 # c
7f10: 6f 72 65 20 6c 69 62 72 61 72 79 2e 0d 0a 20 20 ore library...
7f20: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
7f30: 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 if {[catch {..
7f40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f o
7f50: 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d 66 6c bject invoke -fl
7f60: 61 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 53 ags +NonPublic S
7f70: 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 ystem.Data.SQLit
7f80: 65 2e 53 51 4c 69 74 65 33 20 5c 0d 0a 20 20 20 e.SQLite3 \..
7f90: 20 20 20 20 20 20 20 20 20 20 20 20 20 53 51 4c SQL
7fa0: 69 74 65 53 6f 75 72 63 65 49 64 7d 20 73 6f 75 iteSourceId} sou
7fb0: 72 63 65 49 64 5d 7d 20 74 68 65 6e 20 7b 0d 0a rceId]} then {..
7fc0: 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 #..
7fd0: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 57 # NOTE: W
7fe0: 65 20 66 61 69 6c 65 64 20 74 6f 20 71 75 65 72 e failed to quer
7ff0: 79 20 74 68 65 20 46 6f 73 73 69 6c 20 73 6f 75 y the Fossil sou
8000: 72 63 65 20 69 64 65 6e 74 69 66 69 65 72 2e 0d rce identifier..
8010: 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 . #..
8020: 20 20 20 20 20 20 20 20 73 65 74 20 73 6f 75 72 set sour
8030: 63 65 49 64 20 75 6e 6b 6e 6f 77 6e 0d 0a 20 20 ceId unknown..
8040: 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 }....
8050: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 #.. #
8060: 4e 4f 54 45 3a 20 43 68 65 63 6b 20 69 66 20 74 NOTE: Check if t
8070: 68 65 20 72 65 74 75 72 6e 65 64 20 46 6f 73 73 he returned Foss
8080: 69 6c 20 73 6f 75 72 63 65 20 69 64 65 6e 74 69 il source identi
8090: 66 69 65 72 20 77 61 73 20 6e 75 6c 6c 2e 20 20 fier was null.
80a0: 49 66 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 If.. #
80b0: 20 20 20 20 73 6f 2c 20 6d 61 6b 65 20 69 74 20 so, make it
80c0: 65 61 73 79 20 74 6f 20 73 70 6f 74 2e 0d 0a 20 easy to spot...
80d0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
80e0: 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 if {[string le
80f0: 6e 67 74 68 20 24 73 6f 75 72 63 65 49 64 5d 20 ngth $sourceId]
8100: 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 == 0} then {..
8110: 20 20 20 20 20 20 20 20 73 65 74 20 73 6f 75 72 set sour
8120: 63 65 49 64 20 6e 75 6c 6c 0d 0a 20 20 20 20 20 ceId null..
8130: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 }....
8140: 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT
8150: 45 3a 20 59 65 73 2c 20 74 68 65 20 53 51 4c 69 E: Yes, the SQLi
8160: 74 65 20 63 6f 72 65 20 6c 69 62 72 61 72 79 20 te core library
8170: 61 70 70 65 61 72 73 20 74 6f 20 62 65 20 61 76 appears to be av
8180: 61 69 6c 61 62 6c 65 2e 0d 0a 20 20 20 20 20 20 ailable...
8190: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 61 64 64 #.. add
81a0: 43 6f 6e 73 74 72 61 69 6e 74 20 53 51 4c 69 74 Constraint SQLit
81b0: 65 0d 0a 0d 0a 20 20 20 20 20 20 20 20 74 70 75 e.... tpu
81c0: 74 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 ts $channel [app
81d0: 65 6e 64 41 72 67 73 20 22 79 65 73 20 28 22 20 endArgs "yes ("
81e0: 24 76 65 72 73 69 6f 6e 20 22 20 22 20 24 73 6f $version " " $so
81f0: 75 72 63 65 49 64 20 22 29 5c 6e 22 5d 0d 0a 20 urceId ")\n"]..
8200: 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 } else {..
8210: 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68 tputs $ch
8220: 61 6e 6e 65 6c 20 6e 6f 5c 6e 0d 0a 20 20 20 20 annel no\n..
8230: 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 }.. }.....
8240: 20 20 20 70 72 6f 63 20 63 68 65 63 6b 46 6f 72 proc checkFor
8250: 53 51 4c 69 74 65 49 6e 74 65 72 6f 70 20 7b 20 SQLiteInterop {
8260: 63 68 61 6e 6e 65 6c 20 7d 20 7b 0d 0a 20 20 20 channel } {..
8270: 20 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 tputs $channe
8280: 6c 20 22 2d 2d 2d 2d 20 63 68 65 63 6b 69 6e 67 l "---- checking
8290: 20 66 6f 72 20 53 51 4c 69 74 65 20 69 6e 74 65 for SQLite inte
82a0: 72 6f 70 20 61 73 73 65 6d 62 6c 79 2e 2e 2e 20 rop assembly...
82b0: 22 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b ".... if {[
82c0: 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 catch {..
82d0: 20 20 20 20 20 20 20 6f 62 6a 65 63 74 20 69 6e object in
82e0: 76 6f 6b 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e voke -flags +Non
82f0: 50 75 62 6c 69 63 20 53 79 73 74 65 6d 2e 44 61 Public System.Da
8300: 74 61 2e 53 51 4c 69 74 65 2e 53 51 4c 69 74 65 ta.SQLite.SQLite
8310: 33 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 3 \..
8320: 20 20 20 49 6e 74 65 72 6f 70 56 65 72 73 69 6f InteropVersio
8330: 6e 7d 20 76 65 72 73 69 6f 6e 5d 20 3d 3d 20 30 n} version] == 0
8340: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {..
8350: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e #.. # N
8360: 4f 54 45 3a 20 43 68 65 63 6b 20 69 66 20 74 68 OTE: Check if th
8370: 65 20 72 65 74 75 72 6e 65 64 20 76 65 72 73 69 e returned versi
8380: 6f 6e 20 77 61 73 20 6e 75 6c 6c 2e 20 20 49 66 on was null. If
8390: 20 73 6f 2c 20 6d 61 6b 65 20 69 74 20 65 61 73 so, make it eas
83a0: 79 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 y.. #
83b0: 20 20 20 74 6f 20 73 70 6f 74 2e 0d 0a 20 20 20 to spot...
83c0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #..
83d0: 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 if {[string leng
83e0: 74 68 20 24 76 65 72 73 69 6f 6e 5d 20 3d 3d 20 th $version] ==
83f0: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 0} then {..
8400: 20 20 20 20 20 73 65 74 20 76 65 72 73 69 6f 6e set version
8410: 20 6e 75 6c 6c 0d 0a 20 20 20 20 20 20 20 20 7d null.. }
8420: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 .... #..
8430: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 41 # NOTE: A
8440: 74 74 65 6d 70 74 20 74 6f 20 71 75 65 72 79 20 ttempt to query
8450: 74 68 65 20 46 6f 73 73 69 6c 20 73 6f 75 72 63 the Fossil sourc
8460: 65 20 69 64 65 6e 74 69 66 69 65 72 20 66 6f 72 e identifier for
8470: 20 74 68 65 20 53 51 4c 69 74 65 0d 0a 20 20 20 the SQLite..
8480: 20 20 20 20 20 23 20 20 20 20 20 20 20 63 6f 72 # cor
8490: 65 20 6c 69 62 72 61 72 79 2e 0d 0a 20 20 20 20 e library...
84a0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 69 #.. i
84b0: 66 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20 f {[catch {..
84c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 62 6a obj
84d0: 65 63 74 20 69 6e 76 6f 6b 65 20 2d 66 6c 61 67 ect invoke -flag
84e0: 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 53 79 73 s +NonPublic Sys
84f0: 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e tem.Data.SQLite.
8500: 53 51 4c 69 74 65 33 20 5c 0d 0a 20 20 20 20 20 SQLite3 \..
8510: 20 20 20 20 20 20 20 20 20 20 20 49 6e 74 65 72 Inter
8520: 6f 70 53 6f 75 72 63 65 49 64 7d 20 73 6f 75 72 opSourceId} sour
8530: 63 65 49 64 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 ceId]} then {..
8540: 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 #..
8550: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 57 65 # NOTE: We
8560: 20 66 61 69 6c 65 64 20 74 6f 20 71 75 65 72 79 failed to query
8570: 20 74 68 65 20 46 6f 73 73 69 6c 20 73 6f 75 72 the Fossil sour
8580: 63 65 20 69 64 65 6e 74 69 66 69 65 72 2e 0d 0a ce identifier...
8590: 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 #..
85a0: 20 20 20 20 20 20 20 73 65 74 20 73 6f 75 72 63 set sourc
85b0: 65 49 64 20 75 6e 6b 6e 6f 77 6e 0d 0a 20 20 20 eId unknown..
85c0: 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 }....
85d0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e #.. # N
85e0: 4f 54 45 3a 20 43 68 65 63 6b 20 69 66 20 74 68 OTE: Check if th
85f0: 65 20 72 65 74 75 72 6e 65 64 20 46 6f 73 73 69 e returned Fossi
8600: 6c 20 73 6f 75 72 63 65 20 69 64 65 6e 74 69 66 l source identif
8610: 69 65 72 20 77 61 73 20 6e 75 6c 6c 2e 20 20 49 ier was null. I
8620: 66 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 f.. #
8630: 20 20 20 73 6f 2c 20 6d 61 6b 65 20 69 74 20 65 so, make it e
8640: 61 73 79 20 74 6f 20 73 70 6f 74 2e 0d 0a 20 20 asy to spot...
8650: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
8660: 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e if {[string len
8670: 67 74 68 20 24 73 6f 75 72 63 65 49 64 5d 20 3d gth $sourceId] =
8680: 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 = 0} then {..
8690: 20 20 20 20 20 20 20 73 65 74 20 73 6f 75 72 63 set sourc
86a0: 65 49 64 20 6e 75 6c 6c 0d 0a 20 20 20 20 20 20 eId null..
86b0: 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 }.... #
86c0: 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 .. # NOTE
86d0: 3a 20 59 65 73 2c 20 74 68 65 20 53 51 4c 69 74 : Yes, the SQLit
86e0: 65 20 69 6e 74 65 72 6f 70 20 61 73 73 65 6d 62 e interop assemb
86f0: 6c 79 20 61 70 70 65 61 72 73 20 74 6f 20 62 65 ly appears to be
8700: 20 61 76 61 69 6c 61 62 6c 65 2e 0d 0a 20 20 20 available...
8710: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #..
8720: 61 64 64 43 6f 6e 73 74 72 61 69 6e 74 20 53 51 addConstraint SQ
8730: 4c 69 74 65 49 6e 74 65 72 6f 70 0d 0a 0d 0a 20 LiteInterop....
8740: 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68 tputs $ch
8750: 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 annel [appendArg
8760: 73 20 22 79 65 73 20 28 22 20 24 76 65 72 73 69 s "yes (" $versi
8770: 6f 6e 20 22 20 22 20 24 73 6f 75 72 63 65 49 64 on " " $sourceId
8780: 20 22 29 5c 6e 22 5d 0d 0a 20 20 20 20 20 20 7d ")\n"].. }
8790: 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 else {..
87a0: 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 tputs $channel
87b0: 6e 6f 5c 6e 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 no\n.. }..
87c0: 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f }..... pro
87d0: 63 20 63 68 65 63 6b 46 6f 72 53 51 4c 69 74 65 c checkForSQLite
87e0: 44 65 66 69 6e 65 43 6f 6e 73 74 61 6e 74 20 7b DefineConstant {
87f0: 20 63 68 61 6e 6e 65 6c 20 6e 61 6d 65 20 7d 20 channel name }
8800: 7b 0d 0a 20 20 20 20 20 20 74 70 75 74 73 20 24 {.. tputs $
8810: 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 channel [appendA
8820: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 rgs \..
8830: 20 22 2d 2d 2d 2d 20 63 68 65 63 6b 69 6e 67 20 "---- checking
8840: 66 6f 72 20 53 79 73 74 65 6d 2e 44 61 74 61 2e for System.Data.
8850: 53 51 4c 69 74 65 20 64 65 66 69 6e 65 20 63 6f SQLite define co
8860: 6e 73 74 61 6e 74 20 5c 22 22 20 24 6e 61 6d 65 nstant \"" $name
8870: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 22 5c \.. "\
8880: 22 2e 2e 2e 20 22 5d 0d 0a 0d 0a 20 20 20 20 20 "... "]....
8890: 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 if {[catch {..
88a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 62 6a obj
88b0: 65 63 74 20 69 6e 76 6f 6b 65 20 2d 66 6c 61 67 ect invoke -flag
88c0: 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 53 79 73 s +NonPublic Sys
88d0: 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e tem.Data.SQLite.
88e0: 53 51 4c 69 74 65 33 20 5c 0d 0a 20 20 20 20 20 SQLite3 \..
88f0: 20 20 20 20 20 20 20 20 20 44 65 66 69 6e 65 43 DefineC
8900: 6f 6e 73 74 61 6e 74 73 7d 20 64 65 66 69 6e 65 onstants} define
8910: 43 6f 6e 73 74 61 6e 74 73 5d 20 3d 3d 20 30 7d Constants] == 0}
8920: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 then {..
8930: 20 69 66 20 7b 5b 6c 73 65 61 72 63 68 20 2d 65 if {[lsearch -e
8940: 78 61 63 74 20 2d 6e 6f 63 61 73 65 20 24 64 65 xact -nocase $de
8950: 66 69 6e 65 43 6f 6e 73 74 61 6e 74 73 20 24 6e fineConstants $n
8960: 61 6d 65 5d 20 21 3d 20 2d 31 7d 20 74 68 65 6e ame] != -1} then
8970: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d {.. #.
8980: 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 . # NOT
8990: 45 3a 20 59 65 73 2c 20 74 68 69 73 20 64 65 66 E: Yes, this def
89a0: 69 6e 65 20 63 6f 6e 73 74 61 6e 74 20 77 61 73 ine constant was
89b0: 20 65 6e 61 62 6c 65 64 20 77 68 65 6e 20 74 68 enabled when th
89c0: 65 20 6d 61 6e 61 67 65 64 0d 0a 20 20 20 20 20 e managed..
89d0: 20 20 20 20 20 23 20 20 20 20 20 20 20 61 73 73 # ass
89e0: 65 6d 62 6c 79 20 77 61 73 20 63 6f 6d 70 69 6c embly was compil
89f0: 65 64 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23 ed... #
8a00: 0d 0a 20 20 20 20 20 20 20 20 20 20 61 64 64 43 .. addC
8a10: 6f 6e 73 74 72 61 69 6e 74 20 5b 61 70 70 65 6e onstraint [appen
8a20: 64 41 72 67 73 20 64 65 66 69 6e 65 43 6f 6e 73 dArgs defineCons
8a30: 74 61 6e 74 2e 53 79 73 74 65 6d 2e 44 61 74 61 tant.System.Data
8a40: 2e 53 51 4c 69 74 65 2e 20 24 6e 61 6d 65 5d 0d .SQLite. $name].
8a50: 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70 75 ... tpu
8a60: 74 73 20 24 63 68 61 6e 6e 65 6c 20 79 65 73 5c ts $channel yes\
8a70: 6e 0d 0a 20 20 20 20 20 20 20 20 7d 20 65 6c 73 n.. } els
8a80: 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 74 e {.. t
8a90: 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 6e 6f puts $channel no
8aa0: 5c 6e 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 \n.. }..
8ab0: 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 } else {..
8ac0: 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68 tputs $ch
8ad0: 61 6e 6e 65 6c 20 65 72 72 6f 72 5c 6e 0d 0a 20 annel error\n..
8ae0: 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c }.. }...
8af0: 0d 0a 20 20 20 20 70 72 6f 63 20 67 65 74 44 61 .. proc getDa
8b00: 74 65 54 69 6d 65 46 6f 72 6d 61 74 20 7b 7d 20 teTimeFormat {}
8b10: 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 {.. #..
8b20: 20 20 23 20 4e 4f 54 45 3a 20 54 68 69 73 20 70 # NOTE: This p
8b30: 72 6f 63 65 64 75 72 65 20 73 69 6d 70 6c 79 20 rocedure simply
8b40: 72 65 74 75 72 6e 73 20 74 68 65 20 22 64 65 66 returns the "def
8b50: 61 75 6c 74 22 20 44 61 74 65 54 69 6d 65 20 66 ault" DateTime f
8b60: 6f 72 6d 61 74 20 75 73 65 64 0d 0a 20 20 20 20 ormat used..
8b70: 20 20 23 20 20 20 20 20 20 20 62 79 20 74 68 65 # by the
8b80: 20 74 65 73 74 20 73 75 69 74 65 2e 0d 0a 20 20 test suite...
8b90: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 #.. if
8ba0: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a {[info exists ::
8bb0: 64 61 74 65 74 69 6d 65 5f 66 6f 72 6d 61 74 5d datetime_format]
8bc0: 20 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 && \..
8bd0: 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 [string length
8be0: 24 3a 3a 64 61 74 65 74 69 6d 65 5f 66 6f 72 6d $::datetime_form
8bf0: 61 74 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d at] > 0} then {.
8c00: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #..
8c10: 20 20 20 20 23 20 4e 4f 54 45 3a 20 52 65 74 75 # NOTE: Retu
8c20: 72 6e 20 74 68 65 20 6d 61 6e 75 61 6c 6c 79 20 rn the manually
8c30: 6f 76 65 72 72 69 64 64 65 6e 20 76 61 6c 75 65 overridden value
8c40: 20 66 6f 72 20 74 68 65 20 44 61 74 65 54 69 6d for the DateTim
8c50: 65 20 66 6f 72 6d 61 74 2e 0d 0a 20 20 20 20 20 e format...
8c60: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 72 65 #.. re
8c70: 74 75 72 6e 20 24 3a 3a 64 61 74 65 74 69 6d 65 turn $::datetime
8c80: 5f 66 6f 72 6d 61 74 0d 0a 20 20 20 20 20 20 7d _format.. }
8c90: 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 else {..
8ca0: 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f #.. # NO
8cb0: 54 45 3a 20 52 65 74 75 72 6e 20 61 6e 20 49 53 TE: Return an IS
8cc0: 4f 38 36 30 31 20 44 61 74 65 54 69 6d 65 20 66 O8601 DateTime f
8cd0: 6f 72 6d 61 74 20 63 6f 6d 70 61 74 69 62 6c 65 ormat compatible
8ce0: 20 77 69 74 68 20 53 51 4c 69 74 65 2c 0d 0a 20 with SQLite,..
8cf0: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 53 # S
8d00: 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 ystem.Data.SQLit
8d10: 65 2c 20 61 6e 64 20 73 75 69 74 61 62 6c 65 20 e, and suitable
8d20: 66 6f 72 20 72 6f 75 6e 64 2d 74 72 69 70 70 69 for round-trippi
8d30: 6e 67 20 77 69 74 68 20 74 68 65 0d 0a 20 20 20 ng with the..
8d40: 20 20 20 20 20 23 20 20 20 20 20 20 20 44 61 74 # Dat
8d50: 65 54 69 6d 65 20 63 6c 61 73 73 20 6f 66 20 74 eTime class of t
8d60: 68 65 20 66 72 61 6d 65 77 6f 72 6b 2e 20 20 49 he framework. I
8d70: 66 20 74 68 69 73 20 76 61 6c 75 65 20 69 73 20 f this value is
8d80: 63 68 61 6e 67 65 64 2c 0d 0a 20 20 20 20 20 20 changed,..
8d90: 20 20 23 20 20 20 20 20 20 20 76 61 72 69 6f 75 # variou
8da0: 73 20 74 65 73 74 73 20 6d 61 79 20 66 61 69 6c s tests may fail
8db0: 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 ... #..
8dc0: 20 20 20 20 20 20 72 65 74 75 72 6e 20 22 79 79 return "yy
8dd0: 79 79 2d 4d 4d 2d 64 64 20 48 48 3a 6d 6d 3a 73 yy-MM-dd HH:mm:s
8de0: 73 2e 46 46 46 46 46 46 46 4b 22 0d 0a 20 20 20 s.FFFFFFFK"..
8df0: 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a }.. }.....
8e00: 20 20 20 20 70 72 6f 63 20 65 6e 75 6d 65 72 61 proc enumera
8e10: 62 6c 65 54 6f 4c 69 73 74 20 7b 20 65 6e 75 6d bleToList { enum
8e20: 65 72 61 62 6c 65 20 7d 20 7b 0d 0a 20 20 20 20 erable } {..
8e30: 20 20 73 65 74 20 72 65 73 75 6c 74 20 5b 6c 69 set result [li
8e40: 73 74 5d 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 st].... if
8e50: 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 {[string length
8e60: 24 65 6e 75 6d 65 72 61 62 6c 65 5d 20 3d 3d 20 $enumerable] ==
8e70: 30 20 7c 7c 20 24 65 6e 75 6d 65 72 61 62 6c 65 0 || $enumerable
8e80: 20 65 71 20 22 6e 75 6c 6c 22 7d 20 74 68 65 6e eq "null"} then
8e90: 20 7b 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 {.. retu
8ea0: 72 6e 20 24 72 65 73 75 6c 74 0d 0a 20 20 20 20 rn $result..
8eb0: 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 6f 62 6a }.... obj
8ec0: 65 63 74 20 66 6f 72 65 61 63 68 20 2d 61 6c 69 ect foreach -ali
8ed0: 61 73 20 69 74 65 6d 20 24 65 6e 75 6d 65 72 61 as item $enumera
8ee0: 62 6c 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 69 ble {.. i
8ef0: 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 f {[string lengt
8f00: 68 20 24 69 74 65 6d 5d 20 3e 20 30 7d 20 74 68 h $item] > 0} th
8f10: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 en {..
8f20: 6c 61 70 70 65 6e 64 20 72 65 73 75 6c 74 20 5b lappend result [
8f30: 24 69 74 65 6d 20 54 6f 53 74 72 69 6e 67 5d 0d $item ToString].
8f40: 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 . }..
8f50: 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 72 65 74 }.... ret
8f60: 75 72 6e 20 24 72 65 73 75 6c 74 0d 0a 20 20 20 urn $result..
8f70: 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 }..... proc
8f80: 63 61 74 63 68 41 6e 64 52 65 74 75 72 6e 20 7b catchAndReturn {
8f90: 20 73 63 72 69 70 74 20 7b 73 74 61 63 6b 54 72 script {stackTr
8fa0: 61 63 65 20 66 61 6c 73 65 7d 20 7b 73 74 72 69 ace false} {stri
8fb0: 63 74 20 74 72 75 65 7d 20 7d 20 7b 0d 0a 20 20 ct true} } {..
8fc0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e #.. # N
8fd0: 4f 54 45 3a 20 45 76 61 6c 75 61 74 65 20 74 68 OTE: Evaluate th
8fe0: 65 20 73 63 72 69 70 74 20 70 72 6f 76 69 64 65 e script provide
8ff0: 64 20 62 79 20 6f 75 72 20 63 61 6c 6c 65 72 20 d by our caller
9000: 69 6e 20 74 68 65 69 72 20 63 6f 6e 74 65 78 74 in their context
9010: 2c 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 ,.. #
9020: 20 63 61 70 74 75 72 69 6e 67 20 62 6f 74 68 20 capturing both
9030: 74 68 65 20 72 65 73 75 6c 74 20 61 6e 64 20 74 the result and t
9040: 68 65 20 72 65 74 75 72 6e 20 63 6f 64 65 2e 0d he return code..
9050: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 . #..
9060: 73 65 74 20 63 6f 64 65 20 5b 63 61 74 63 68 20 set code [catch
9070: 7b 75 70 6c 65 76 65 6c 20 31 20 24 73 63 72 69 {uplevel 1 $scri
9080: 70 74 7d 20 72 65 73 75 6c 74 5d 0d 0a 0d 0a 20 pt} result]....
9090: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 #.. #
90a0: 4e 4f 54 45 3a 20 44 69 64 20 74 68 65 20 73 63 NOTE: Did the sc
90b0: 72 69 70 74 20 70 72 6f 76 69 64 65 64 20 62 79 ript provided by
90c0: 20 6f 75 72 20 63 61 6c 6c 65 72 20 4e 4f 54 20 our caller NOT
90d0: 72 61 69 73 65 20 61 6e 20 65 72 72 6f 72 3f 0d raise an error?.
90e0: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 . #..
90f0: 69 66 20 7b 24 73 74 72 69 63 74 20 26 26 20 24 if {$strict && $
9100: 63 6f 64 65 20 3d 3d 20 30 20 7c 7c 20 21 24 73 code == 0 || !$s
9110: 74 72 69 63 74 20 26 26 20 24 63 6f 64 65 20 21 trict && $code !
9120: 3d 20 31 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 = 1} then {..
9130: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #..
9140: 23 20 4e 4f 54 45 3a 20 53 75 63 63 65 73 73 2e # NOTE: Success.
9150: 20 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 Return a list
9160: 77 69 74 68 20 74 68 65 20 72 65 74 75 72 6e 20 with the return
9170: 63 6f 64 65 20 61 6e 64 20 74 68 65 20 72 65 73 code and the res
9180: 75 6c 74 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d ult... #.
9190: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 . return
91a0: 5b 6c 69 73 74 20 24 63 6f 64 65 20 24 72 65 73 [list $code $res
91b0: 75 6c 74 5d 0d 0a 20 20 20 20 20 20 7d 20 65 6c ult].. } el
91c0: 73 65 69 66 20 7b 24 73 74 61 63 6b 54 72 61 63 seif {$stackTrac
91d0: 65 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 e} then {..
91e0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 #.. #
91f0: 4e 4f 54 45 3a 20 46 61 69 6c 75 72 65 2e 20 20 NOTE: Failure.
9200: 4f 75 72 20 63 61 6c 6c 65 72 20 77 61 6e 74 73 Our caller wants
9210: 20 61 20 66 75 6c 6c 20 73 74 61 63 6b 20 74 72 a full stack tr
9220: 61 63 65 20 28 69 66 20 61 70 70 6c 69 63 61 62 ace (if applicab
9230: 6c 65 29 2c 0d 0a 20 20 20 20 20 20 20 20 23 20 le),.. #
9240: 20 20 20 20 20 20 72 65 74 75 72 6e 20 61 20 6c return a l
9250: 69 73 74 20 77 69 74 68 20 74 68 65 20 72 65 74 ist with the ret
9260: 75 72 6e 20 63 6f 64 65 20 61 6e 64 20 74 68 65 urn code and the
9270: 20 72 65 73 75 6c 74 20 76 65 72 62 61 74 69 6d result verbatim
9280: 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 ... #..
9290: 20 20 20 20 20 20 72 65 74 75 72 6e 20 5b 6c 69 return [li
92a0: 73 74 20 24 63 6f 64 65 20 24 72 65 73 75 6c 74 st $code $result
92b0: 5d 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20 ].. } else
92c0: 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 {.. #..
92d0: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 46 61 # NOTE: Fa
92e0: 69 6c 75 72 65 2e 20 20 4f 75 72 20 63 61 6c 6c ilure. Our call
92f0: 65 72 20 64 6f 65 73 20 6e 6f 74 20 77 61 6e 74 er does not want
9300: 20 61 20 66 75 6c 6c 20 73 74 61 63 6b 20 74 72 a full stack tr
9310: 61 63 65 20 28 69 66 0d 0a 20 20 20 20 20 20 20 ace (if..
9320: 20 23 20 20 20 20 20 20 20 61 70 70 6c 69 63 61 # applica
9330: 62 6c 65 29 2c 20 72 65 74 75 72 6e 20 61 20 6c ble), return a l
9340: 69 73 74 20 77 69 74 68 20 74 68 65 20 72 65 74 ist with the ret
9350: 75 72 6e 20 63 6f 64 65 2c 20 74 68 65 20 65 72 urn code, the er
9360: 72 6f 72 0d 0a 20 20 20 20 20 20 20 20 23 20 20 ror.. #
9370: 20 20 20 20 20 63 6f 64 65 20 66 6f 72 20 74 68 code for th
9380: 65 20 69 6e 74 65 72 70 72 65 74 65 72 2c 20 61 e interpreter, a
9390: 6e 64 20 74 68 65 20 65 72 72 6f 72 20 6d 65 73 nd the error mes
93a0: 73 61 67 65 20 75 70 20 74 6f 20 74 68 65 0d 0a sage up to the..
93b0: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 #
93c0: 70 6f 69 6e 74 20 77 68 65 72 65 20 74 68 65 20 point where the
93d0: 73 74 61 63 6b 20 74 72 61 63 65 20 73 68 6f 75 stack trace shou
93e0: 6c 64 20 73 74 61 72 74 2e 0d 0a 20 20 20 20 20 ld start...
93f0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 73 65 #.. se
9400: 74 20 69 6e 64 65 78 20 5b 73 74 72 69 6e 67 20 t index [string
9410: 66 69 72 73 74 20 22 20 20 20 61 74 20 22 20 24 first " at " $
9420: 72 65 73 75 6c 74 5d 3b 20 23 20 48 41 43 4b 3a result]; # HACK:
9430: 20 52 65 6c 69 61 62 6c 65 3f 0d 0a 0d 0a 20 20 Reliable?....
9440: 20 20 20 20 20 20 72 65 74 75 72 6e 20 5b 6c 69 return [li
9450: 73 74 20 24 63 6f 64 65 20 24 3a 3a 65 72 72 6f st $code $::erro
9460: 72 43 6f 64 65 20 5b 65 78 70 72 20 7b 24 69 6e rCode [expr {$in
9470: 64 65 78 20 21 3d 20 2d 31 20 3f 20 5c 0d 0a 20 dex != -1 ? \..
9480: 20 20 20 20 20 20 20 20 20 20 20 5b 73 74 72 69 [stri
9490: 6e 67 20 74 72 69 6d 20 5b 73 74 72 69 6e 67 20 ng trim [string
94a0: 72 61 6e 67 65 20 24 72 65 73 75 6c 74 20 30 20 range $result 0
94b0: 24 69 6e 64 65 78 5d 5d 20 3a 20 24 72 65 73 75 $index]] : $resu
94c0: 6c 74 7d 5d 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a lt}]].. }..
94d0: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 }..... pr
94e0: 6f 63 20 63 6f 6d 70 69 6c 65 43 53 68 61 72 70 oc compileCSharp
94f0: 57 69 74 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 With {..
9500: 20 20 20 20 74 65 78 74 20 6d 65 6d 6f 72 79 20 text memory
9510: 73 79 6d 62 6f 6c 73 20 73 74 72 69 63 74 20 72 symbols strict r
9520: 65 73 75 6c 74 73 56 61 72 4e 61 6d 65 20 65 72 esultsVarName er
9530: 72 6f 72 73 56 61 72 4e 61 6d 65 20 66 69 6c 65 rorsVarName file
9540: 4e 61 6d 65 73 0d 0a 20 20 20 20 20 20 20 20 20 Names..
9550: 20 20 20 61 72 67 73 20 7d 20 7b 0d 0a 20 20 20 args } {..
9560: 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f #.. # NO
9570: 54 45 3a 20 53 69 6e 63 65 20 77 65 20 61 72 65 TE: Since we are
9580: 20 67 6f 69 6e 67 20 74 6f 20 75 73 65 20 74 68 going to use th
9590: 69 73 20 6d 65 74 68 6f 64 20 6e 61 6d 65 20 61 is method name a
95a0: 20 6c 6f 74 2c 20 61 73 73 69 67 6e 20 69 74 20 lot, assign it
95b0: 74 6f 20 61 0d 0a 20 20 20 20 20 20 23 20 20 20 to a.. #
95c0: 20 20 20 20 76 61 72 69 61 62 6c 65 20 66 69 72 variable fir
95d0: 73 74 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 st... #..
95e0: 20 20 20 20 73 65 74 20 61 64 64 20 52 65 66 65 set add Refe
95f0: 72 65 6e 63 65 64 41 73 73 65 6d 62 6c 69 65 73 rencedAssemblies
9600: 2e 41 64 64 0d 0a 0d 0a 20 20 20 20 20 20 23 0d .Add.... #.
9610: 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 43 . # NOTE: C
9620: 72 65 61 74 65 20 74 68 65 20 62 61 73 65 20 63 reate the base c
9630: 6f 6d 6d 61 6e 64 20 74 6f 20 65 76 61 6c 75 61 ommand to evalua
9640: 74 65 20 61 6e 64 20 61 64 64 20 74 68 65 20 70 te and add the p
9650: 72 6f 70 65 72 74 79 20 73 65 74 74 69 6e 67 73 roperty settings
9660: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. #
9670: 74 68 61 74 20 61 72 65 20 61 6c 6d 6f 73 74 20 that are almost
9680: 61 6c 77 61 79 73 20 6e 65 65 64 65 64 20 62 79 always needed by
9690: 20 6f 75 72 20 75 6e 69 74 20 74 65 73 74 73 20 our unit tests
96a0: 28 69 2e 65 2e 20 74 68 65 20 53 79 73 74 65 6d (i.e. the System
96b0: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. #
96c0: 61 6e 64 20 53 79 73 74 65 6d 2e 44 61 74 61 20 and System.Data
96d0: 61 73 73 65 6d 62 6c 79 20 72 65 66 65 72 65 6e assembly referen
96e0: 63 65 73 29 2e 0d 0a 20 20 20 20 20 20 23 0d 0a ces)... #..
96f0: 20 20 20 20 20 20 73 65 74 20 63 6f 6d 6d 61 6e set comman
9700: 64 20 5b 6c 69 73 74 20 63 6f 6d 70 69 6c 65 43 d [list compileC
9710: 53 68 61 72 70 20 24 74 65 78 74 20 24 6d 65 6d Sharp $text $mem
9720: 6f 72 79 20 24 73 79 6d 62 6f 6c 73 20 24 73 74 ory $symbols $st
9730: 72 69 63 74 20 72 65 73 75 6c 74 73 20 5c 0d 0a rict results \..
9740: 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 73 errors
9750: 20 24 61 64 64 20 53 79 73 74 65 6d 2e 64 6c 6c $add System.dll
9760: 20 24 61 64 64 20 53 79 73 74 65 6d 2e 44 61 74 $add System.Dat
9770: 61 2e 64 6c 6c 20 24 61 64 64 20 53 79 73 74 65 a.dll $add Syste
9780: 6d 2e 58 6d 6c 2e 64 6c 6c 5d 0d 0a 0d 0a 20 20 m.Xml.dll]....
9790: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e #.. # N
97a0: 4f 54 45 3a 20 41 64 64 20 61 6c 6c 20 74 68 65 OTE: Add all the
97b0: 20 70 72 6f 76 69 64 65 64 20 66 69 6c 65 20 6e provided file n
97c0: 61 6d 65 73 20 61 73 20 61 73 73 65 6d 62 6c 79 ames as assembly
97d0: 20 72 65 66 65 72 65 6e 63 65 73 2e 0d 0a 20 20 references...
97e0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 66 6f 72 #.. for
97f0: 65 61 63 68 20 66 69 6c 65 4e 61 6d 65 20 24 66 each fileName $f
9800: 69 6c 65 4e 61 6d 65 73 20 7b 0d 0a 20 20 20 20 ileNames {..
9810: 20 20 20 20 6c 61 70 70 65 6e 64 20 63 6f 6d 6d lappend comm
9820: 61 6e 64 20 24 61 64 64 20 5b 67 65 74 42 69 6e and $add [getBin
9830: 61 72 79 46 69 6c 65 4e 61 6d 65 20 24 66 69 6c aryFileName $fil
9840: 65 4e 61 6d 65 5d 0d 0a 20 20 20 20 20 20 7d 0d eName].. }.
9850: 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 ... #..
9860: 20 20 23 20 4e 4f 54 45 3a 20 41 64 64 20 74 68 # NOTE: Add th
9870: 65 20 65 78 74 72 61 20 61 72 67 75 6d 65 6e 74 e extra argument
9880: 73 2c 20 69 66 20 61 6e 79 2c 20 74 6f 20 74 68 s, if any, to th
9890: 65 20 63 6f 6d 6d 61 6e 64 20 74 6f 20 65 76 61 e command to eva
98a0: 6c 75 61 74 65 2e 0d 0a 20 20 20 20 20 20 23 0d luate... #.
98b0: 0a 20 20 20 20 20 20 65 76 61 6c 20 6c 61 70 70 . eval lapp
98c0: 65 6e 64 20 63 6f 6d 6d 61 6e 64 20 24 61 72 67 end command $arg
98d0: 73 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 s.... #..
98e0: 20 20 20 20 23 20 4e 4f 54 45 3a 20 41 6c 69 61 # NOTE: Alia
98f0: 73 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 20 6c s the compiler l
9900: 6f 63 61 6c 20 72 65 73 75 6c 74 73 20 61 6e 64 ocal results and
9910: 20 65 72 72 6f 72 73 20 76 61 72 69 61 62 6c 65 errors variable
9920: 73 20 74 6f 20 74 68 65 0d 0a 20 20 20 20 20 20 s to the..
9930: 23 20 20 20 20 20 20 20 76 61 72 69 61 62 6c 65 # variable
9940: 20 6e 61 6d 65 73 20 70 72 6f 76 69 64 65 64 20 names provided
9950: 62 79 20 6f 75 72 20 63 61 6c 6c 65 72 2e 0d 0a by our caller...
9960: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 75 #.. u
9970: 70 76 61 72 20 31 20 24 72 65 73 75 6c 74 73 56 pvar 1 $resultsV
9980: 61 72 4e 61 6d 65 20 72 65 73 75 6c 74 73 0d 0a arName results..
9990: 20 20 20 20 20 20 75 70 76 61 72 20 31 20 24 65 upvar 1 $e
99a0: 72 72 6f 72 73 56 61 72 4e 61 6d 65 20 65 72 72 rrorsVarName err
99b0: 6f 72 73 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a ors.... #..
99c0: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 45 76 # NOTE: Ev
99d0: 61 6c 75 61 74 65 20 74 68 65 20 63 6f 6e 73 74 aluate the const
99e0: 72 75 63 74 65 64 20 5b 63 6f 6d 70 69 6c 65 43 ructed [compileC
99f0: 53 68 61 72 70 5d 20 63 6f 6d 6d 61 6e 64 20 61 Sharp] command a
9a00: 6e 64 20 72 65 74 75 72 6e 20 74 68 65 0d 0a 20 nd return the..
9a10: 20 20 20 20 20 23 20 20 20 20 20 20 20 72 65 73 # res
9a20: 75 6c 74 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 ult... #..
9a30: 20 20 20 20 20 65 76 61 6c 20 24 63 6f 6d 6d 61 eval $comma
9a40: 6e 64 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 nd.. }.....
9a50: 20 20 70 72 6f 63 20 69 73 4d 65 6d 6f 72 79 44 proc isMemoryD
9a60: 62 20 7b 20 66 69 6c 65 4e 61 6d 65 20 7d 20 7b b { fileName } {
9a70: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #..
9a80: 20 23 20 4e 4f 54 45 3a 20 49 73 20 74 68 65 20 # NOTE: Is the
9a90: 73 70 65 63 69 66 69 65 64 20 64 61 74 61 62 61 specified databa
9aa0: 73 65 20 66 69 6c 65 20 6e 61 6d 65 20 72 65 61 se file name rea
9ab0: 6c 6c 79 20 61 6e 20 69 6e 2d 6d 65 6d 6f 72 79 lly an in-memory
9ac0: 20 64 61 74 61 62 61 73 65 3f 0d 0a 20 20 20 20 database?..
9ad0: 20 20 23 0d 0a 20 20 20 20 20 20 72 65 74 75 72 #.. retur
9ae0: 6e 20 5b 65 78 70 72 20 7b 24 66 69 6c 65 4e 61 n [expr {$fileNa
9af0: 6d 65 20 65 71 20 22 3a 6d 65 6d 6f 72 79 3a 22 me eq ":memory:"
9b00: 20 7c 7c 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 || \..
9b10: 20 5b 73 74 72 69 6e 67 20 72 61 6e 67 65 20 24 [string range $
9b20: 66 69 6c 65 4e 61 6d 65 20 30 20 31 32 5d 20 65 fileName 0 12] e
9b30: 71 20 22 66 69 6c 65 3a 3a 6d 65 6d 6f 72 79 3a q "file::memory:
9b40: 22 7d 5d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 "}].. }.....
9b50: 20 20 20 70 72 6f 63 20 69 73 54 61 62 6c 65 49 proc isTableI
9b60: 6e 44 62 20 7b 20 6e 61 6d 65 20 7b 76 61 72 4e nDb { name {varN
9b70: 61 6d 65 20 64 62 7d 20 7d 20 7b 0d 0a 20 20 20 ame db} } {..
9b80: 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f #.. # NO
9b90: 54 45 3a 20 52 65 66 65 72 20 74 6f 20 74 68 65 TE: Refer to the
9ba0: 20 73 70 65 63 69 66 69 65 64 20 76 61 72 69 61 specified varia
9bb0: 62 6c 65 20 28 65 2e 67 2e 20 22 64 62 22 29 20 ble (e.g. "db")
9bc0: 69 6e 20 74 68 65 20 63 6f 6e 74 65 78 74 20 6f in the context o
9bd0: 66 20 6f 75 72 0d 0a 20 20 20 20 20 20 23 20 20 f our.. #
9be0: 20 20 20 20 20 63 61 6c 6c 65 72 2e 20 20 49 74 caller. It
9bf0: 20 63 6f 6e 74 61 69 6e 73 20 74 68 65 20 64 61 contains the da
9c00: 74 61 62 61 73 65 20 63 6f 6e 6e 65 63 74 69 6f tabase connectio
9c10: 6e 20 68 61 6e 64 6c 65 20 74 68 61 74 20 77 69 n handle that wi
9c20: 6c 6c 20 62 65 0d 0a 20 20 20 20 20 20 23 20 20 ll be.. #
9c30: 20 20 20 20 20 75 73 65 64 20 74 6f 20 65 78 65 used to exe
9c40: 63 75 74 65 20 74 68 65 20 71 75 65 72 79 20 75 cute the query u
9c50: 73 65 64 20 74 6f 20 64 65 74 65 72 6d 69 6e 65 sed to determine
9c60: 20 69 66 20 74 68 65 20 6e 61 6d 65 64 20 74 61 if the named ta
9c70: 62 6c 65 20 69 73 0d 0a 20 20 20 20 20 20 23 20 ble is.. #
9c80: 20 20 20 20 20 20 70 72 65 73 65 6e 74 20 69 6e present in
9c90: 20 74 68 61 74 20 64 61 74 61 62 61 73 65 2e 0d that database..
9ca0: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 . #..
9cb0: 75 70 76 61 72 20 31 20 24 76 61 72 4e 61 6d 65 upvar 1 $varName
9cc0: 20 64 62 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a db.... #..
9cd0: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 45 78 # NOTE: Ex
9ce0: 65 63 75 74 65 20 74 68 65 20 53 51 4c 20 71 75 ecute the SQL qu
9cf0: 65 72 79 20 61 67 61 69 6e 73 74 20 74 68 65 20 ery against the
9d00: 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 20 74 61 sqlite_master ta
9d10: 62 6c 65 20 74 6f 20 63 68 65 63 6b 20 69 66 0d ble to check if.
9d20: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 74 . # t
9d30: 68 65 20 6e 61 6d 65 64 20 74 61 62 6c 65 20 69 he named table i
9d40: 73 20 70 72 65 73 65 6e 74 20 61 6e 64 20 72 65 s present and re
9d50: 74 75 72 6e 20 6e 6f 6e 2d 7a 65 72 6f 20 69 66 turn non-zero if
9d60: 20 69 74 20 69 73 2e 0d 0a 20 20 20 20 20 20 23 it is... #
9d70: 0d 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 5b .. return [
9d80: 65 78 70 72 20 7b 5b 73 71 6c 20 65 78 65 63 75 expr {[sql execu
9d90: 74 65 20 2d 65 78 65 63 75 74 65 20 73 63 61 6c te -execute scal
9da0: 61 72 20 24 64 62 20 5c 0d 0a 20 20 20 20 20 20 ar $db \..
9db0: 20 20 20 20 22 53 45 4c 45 43 54 20 43 4f 55 4e "SELECT COUN
9dc0: 54 28 2a 29 20 46 52 4f 4d 20 73 71 6c 69 74 65 T(*) FROM sqlite
9dd0: 5f 6d 61 73 74 65 72 20 57 48 45 52 45 20 74 79 _master WHERE ty
9de0: 70 65 20 3d 20 27 74 61 62 6c 65 27 20 41 4e 44 pe = 'table' AND
9df0: 20 6e 61 6d 65 20 3d 20 3f 3b 22 20 5c 0d 0a 20 name = ?;" \..
9e00: 20 20 20 20 20 20 20 20 20 5b 6c 69 73 74 20 70 [list p
9e10: 61 72 61 6d 31 20 53 74 72 69 6e 67 20 24 6e 61 aram1 String $na
9e20: 6d 65 5d 5d 20 3e 20 30 7d 5d 0d 0a 20 20 20 20 me]] > 0}]..
9e30: 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 74 }..... proc t
9e40: 72 69 6d 53 71 6c 20 7b 20 73 71 6c 20 7d 20 7b rimSql { sql } {
9e50: 0d 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 5b .. return [
9e60: 72 65 67 73 75 62 20 2d 61 6c 6c 20 2d 2d 20 7b regsub -all -- {
9e70: 5c 73 2b 7d 20 5b 73 74 72 69 6e 67 20 74 72 69 \s+} [string tri
9e80: 6d 20 24 73 71 6c 5d 20 22 20 22 5d 0d 0a 20 20 m $sql] " "]..
9e90: 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 }..... proc
9ea0: 20 65 78 65 63 75 74 65 53 71 6c 20 7b 20 73 71 executeSql { sq
9eb0: 6c 20 7b 65 78 65 63 75 74 65 20 6e 6f 6e 65 7d l {execute none}
9ec0: 20 7b 66 69 6c 65 4e 61 6d 65 20 22 22 7d 20 7d {fileName ""} }
9ed0: 20 7b 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 73 {.. if {[s
9ee0: 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 66 69 tring length $fi
9ef0: 6c 65 4e 61 6d 65 5d 20 3d 3d 20 30 7d 20 74 68 leName] == 0} th
9f00: 65 6e 20 7b 73 65 74 20 66 69 6c 65 4e 61 6d 65 en {set fileName
9f10: 20 3a 6d 65 6d 6f 72 79 3a 7d 0d 0a 20 20 20 20 :memory:}..
9f20: 20 20 73 65 74 75 70 44 62 20 24 66 69 6c 65 4e setupDb $fileN
9f30: 61 6d 65 20 22 22 20 22 22 20 22 22 20 22 22 20 ame "" "" "" ""
9f40: 22 22 20 66 61 6c 73 65 20 66 61 6c 73 65 20 66 "" false false f
9f50: 61 6c 73 65 20 66 61 6c 73 65 20 6d 65 6d 44 62 alse false memDb
9f60: 0d 0a 0d 0a 20 20 20 20 20 20 74 72 79 20 7b 0d .... try {.
9f70: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 . return
9f80: 5b 73 71 6c 20 65 78 65 63 75 74 65 20 2d 65 78 [sql execute -ex
9f90: 65 63 75 74 65 20 24 65 78 65 63 75 74 65 20 24 ecute $execute $
9fa0: 6d 65 6d 44 62 20 24 73 71 6c 5d 0d 0a 20 20 20 memDb $sql]..
9fb0: 20 20 20 7d 20 66 69 6e 61 6c 6c 79 20 7b 0d 0a } finally {..
9fc0: 20 20 20 20 20 20 20 20 63 6c 65 61 6e 75 70 44 cleanupD
9fd0: 62 20 24 66 69 6c 65 4e 61 6d 65 20 6d 65 6d 44 b $fileName memD
9fe0: 62 20 66 61 6c 73 65 20 66 61 6c 73 65 0d 0a 20 b false false..
9ff0: 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c }.. }...
a000: 0d 0a 20 20 20 20 70 72 6f 63 20 73 65 74 75 70 .. proc setup
a010: 44 62 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 Db {..
a020: 20 20 66 69 6c 65 4e 61 6d 65 20 7b 6d 6f 64 65 fileName {mode
a030: 20 22 22 7d 20 7b 64 61 74 65 54 69 6d 65 46 6f ""} {dateTimeFo
a040: 72 6d 61 74 20 22 22 7d 20 7b 64 61 74 65 54 69 rmat ""} {dateTi
a050: 6d 65 4b 69 6e 64 20 22 22 7d 20 7b 66 6c 61 67 meKind ""} {flag
a060: 73 20 22 22 7d 0d 0a 20 20 20 20 20 20 20 20 20 s ""}..
a070: 20 20 20 7b 65 78 74 72 61 20 22 22 7d 20 7b 71 {extra ""} {q
a080: 75 61 6c 69 66 79 20 74 72 75 65 7d 20 7b 64 65 ualify true} {de
a090: 6c 65 74 65 20 74 72 75 65 7d 20 7b 75 72 69 20 lete true} {uri
a0a0: 66 61 6c 73 65 7d 0d 0a 20 20 20 20 20 20 20 20 false}..
a0b0: 20 20 20 20 7b 74 65 6d 70 6f 72 61 72 79 20 74 {temporary t
a0c0: 72 75 65 7d 20 7b 76 61 72 4e 61 6d 65 20 64 62 rue} {varName db
a0d0: 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a } } {.. #..
a0e0: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 46 69 # NOTE: Fi
a0f0: 72 73 74 2c 20 73 65 65 20 69 66 20 6f 75 72 20 rst, see if our
a100: 63 61 6c 6c 65 72 20 68 61 73 20 72 65 71 75 65 caller has reque
a110: 73 74 65 64 20 61 6e 20 69 6e 2d 6d 65 6d 6f 72 sted an in-memor
a120: 79 20 64 61 74 61 62 61 73 65 2e 0d 0a 20 20 20 y database...
a130: 20 20 20 23 0d 0a 20 20 20 20 20 20 73 65 74 20 #.. set
a140: 69 73 4d 65 6d 6f 72 79 20 5b 69 73 4d 65 6d 6f isMemory [isMemo
a150: 72 79 44 62 20 24 66 69 6c 65 4e 61 6d 65 5d 0d ryDb $fileName].
a160: 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 ... #..
a170: 20 20 23 20 4e 4f 54 45 3a 20 46 6f 72 20 6e 6f # NOTE: For no
a180: 77 2c 20 61 6c 6c 20 74 65 73 74 20 64 61 74 61 w, all test data
a190: 62 61 73 65 73 20 75 73 65 64 20 62 79 20 74 68 bases used by th
a1a0: 65 20 74 65 73 74 20 73 75 69 74 65 20 61 72 65 e test suite are
a1b0: 20 70 6c 61 63 65 64 0d 0a 20 20 20 20 20 20 23 placed.. #
a1c0: 20 20 20 20 20 20 20 69 6e 74 6f 20 74 68 65 20 into the
a1d0: 64 61 74 61 62 61 73 65 20 64 69 72 65 63 74 6f database directo
a1e0: 72 79 2e 20 20 45 61 63 68 20 64 61 74 61 62 61 ry. Each databa
a1f0: 73 65 20 61 6e 64 20 72 65 6c 61 74 65 64 20 66 se and related f
a200: 69 6c 65 73 0d 0a 20 20 20 20 20 20 23 20 20 20 iles.. #
a210: 20 20 20 20 75 73 65 64 20 62 79 20 61 20 74 65 used by a te
a220: 73 74 20 73 68 6f 75 6c 64 20 62 65 20 63 6c 65 st should be cle
a230: 61 6e 65 64 20 75 70 20 62 79 20 74 68 61 74 20 aned up by that
a240: 74 65 73 74 20 75 73 69 6e 67 20 74 68 65 0d 0a test using the..
a250: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 22 63 # "c
a260: 6c 65 61 6e 75 70 44 62 22 20 70 72 6f 63 65 64 leanupDb" proced
a270: 75 72 65 2c 20 62 65 6c 6f 77 2e 0d 0a 20 20 20 ure, below...
a280: 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b #.. if {
a290: 21 24 69 73 4d 65 6d 6f 72 79 20 26 26 20 24 71 !$isMemory && $q
a2a0: 75 61 6c 69 66 79 7d 20 74 68 65 6e 20 7b 0d 0a ualify} then {..
a2b0: 20 20 20 20 20 20 20 20 73 65 74 20 66 69 6c 65 set file
a2c0: 4e 61 6d 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 Name [file join
a2d0: 5b 67 65 74 44 61 74 61 62 61 73 65 44 69 72 65 [getDatabaseDire
a2e0: 63 74 6f 72 79 5d 20 5b 66 69 6c 65 20 74 61 69 ctory] [file tai
a2f0: 6c 20 24 66 69 6c 65 4e 61 6d 65 5d 5d 0d 0a 20 l $fileName]]..
a300: 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 }....
a310: 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a #.. # NOTE:
a320: 20 42 79 20 64 65 66 61 75 6c 74 2c 20 64 65 6c By default, del
a330: 65 74 65 20 61 6e 79 20 70 72 65 2d 65 78 69 73 ete any pre-exis
a340: 74 69 6e 67 20 64 61 74 61 62 61 73 65 20 77 69 ting database wi
a350: 74 68 20 74 68 65 20 73 61 6d 65 20 66 69 6c 65 th the same file
a360: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. #
a370: 6e 61 6d 65 20 69 66 20 69 74 20 63 75 72 72 65 name if it curre
a380: 6e 74 6c 79 20 65 78 69 73 74 73 2e 0d 0a 20 20 ntly exists...
a390: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 #.. if
a3a0: 7b 21 24 69 73 4d 65 6d 6f 72 79 20 26 26 20 24 {!$isMemory && $
a3b0: 64 65 6c 65 74 65 20 26 26 20 5b 66 69 6c 65 20 delete && [file
a3c0: 65 78 69 73 74 73 20 24 66 69 6c 65 4e 61 6d 65 exists $fileName
a3d0: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 ]} then {..
a3e0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 #.. #
a3f0: 4e 4f 54 45 3a 20 41 74 74 65 6d 70 74 20 74 6f NOTE: Attempt to
a400: 20 64 65 6c 65 74 65 20 61 6e 79 20 70 72 65 2d delete any pre-
a410: 65 78 69 73 74 69 6e 67 20 64 61 74 61 62 61 73 existing databas
a420: 65 20 77 69 74 68 20 74 68 65 20 73 61 6d 65 20 e with the same
a430: 66 69 6c 65 0d 0a 20 20 20 20 20 20 20 20 23 20 file.. #
a440: 20 20 20 20 20 20 6e 61 6d 65 2e 0d 0a 20 20 20 name...
a450: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #..
a460: 69 66 20 7b 5b 63 61 74 63 68 20 7b 66 69 6c 65 if {[catch {file
a470: 20 64 65 6c 65 74 65 20 24 66 69 6c 65 4e 61 6d delete $fileNam
a480: 65 7d 20 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20 e} error]} then
a490: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a {.. #..
a4a0: 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 # NOTE
a4b0: 3a 20 57 65 20 73 6f 6d 65 68 6f 77 20 66 61 69 : We somehow fai
a4c0: 6c 65 64 20 74 6f 20 64 65 6c 65 74 65 20 74 68 led to delete th
a4d0: 65 20 66 69 6c 65 2c 20 72 65 70 6f 72 74 20 77 e file, report w
a4e0: 68 79 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23 hy... #
a4f0: 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70 75 74 .. tput
a500: 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 s $::test_channe
a510: 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d l [appendArgs \.
a520: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 . "
a530: 3d 3d 3d 3d 20 57 41 52 4e 49 4e 47 3a 20 66 61 ==== WARNING: fa
a540: 69 6c 65 64 20 74 6f 20 64 65 6c 65 74 65 20 64 iled to delete d
a550: 61 74 61 62 61 73 65 20 66 69 6c 65 20 5c 22 22 atabase file \""
a560: 20 24 66 69 6c 65 4e 61 6d 65 20 5c 0d 0a 20 20 $fileName \..
a570: 20 20 20 20 20 20 20 20 20 20 20 20 22 5c 22 20 "\"
a580: 64 75 72 69 6e 67 20 73 65 74 75 70 2c 20 65 72 during setup, er
a590: 72 6f 72 3a 20 22 20 5c 6e 5c 74 20 24 65 72 72 ror: " \n\t $err
a5a0: 6f 72 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 or \n]..
a5b0: 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 }.. }....
a5c0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e #.. # N
a5d0: 4f 54 45 3a 20 52 65 66 65 72 20 74 6f 20 74 68 OTE: Refer to th
a5e0: 65 20 73 70 65 63 69 66 69 65 64 20 76 61 72 69 e specified vari
a5f0: 61 62 6c 65 20 28 65 2e 67 2e 20 22 64 62 22 29 able (e.g. "db")
a600: 20 69 6e 20 74 68 65 20 63 6f 6e 74 65 78 74 20 in the context
a610: 6f 66 20 6f 75 72 0d 0a 20 20 20 20 20 20 23 20 of our.. #
a620: 20 20 20 20 20 20 63 61 6c 6c 65 72 2e 20 20 54 caller. T
a630: 68 65 20 68 61 6e 64 6c 65 20 74 6f 20 74 68 65 he handle to the
a640: 20 6f 70 65 6e 65 64 20 64 61 74 61 62 61 73 65 opened database
a650: 20 77 69 6c 6c 20 62 65 20 73 74 6f 72 65 64 20 will be stored
a660: 74 68 65 72 65 2e 0d 0a 20 20 20 20 20 20 23 0d there... #.
a670: 0a 20 20 20 20 20 20 75 70 76 61 72 20 31 20 24 . upvar 1 $
a680: 76 61 72 4e 61 6d 65 20 64 62 0d 0a 0d 0a 20 20 varName db....
a690: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e #.. # N
a6a0: 4f 54 45 3a 20 53 74 61 72 74 20 62 75 69 6c 64 OTE: Start build
a6b0: 69 6e 67 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 ing the connecti
a6c0: 6f 6e 20 73 74 72 69 6e 67 2e 20 20 54 68 65 20 on string. The
a6d0: 6f 6e 6c 79 20 72 65 71 75 69 72 65 64 20 70 6f only required po
a6e0: 72 74 69 6f 6e 0d 0a 20 20 20 20 20 20 23 20 20 rtion.. #
a6f0: 20 20 20 20 20 6f 66 20 74 68 65 20 63 6f 6e 6e of the conn
a700: 65 63 74 69 6f 6e 20 73 74 72 69 6e 67 20 69 73 ection string is
a710: 20 74 68 65 20 64 61 74 61 20 73 6f 75 72 63 65 the data source
a720: 2c 20 77 68 69 63 68 20 63 6f 6e 74 61 69 6e 73 , which contains
a730: 20 74 68 65 0d 0a 20 20 20 20 20 20 23 20 20 20 the.. #
a740: 20 20 20 20 64 61 74 61 62 61 73 65 20 66 69 6c database fil
a750: 65 20 6e 61 6d 65 20 69 74 73 65 6c 66 2e 20 20 e name itself.
a760: 49 66 20 6f 75 72 20 63 61 6c 6c 65 72 20 77 61 If our caller wa
a770: 6e 74 73 20 74 6f 20 75 73 65 20 61 20 55 52 49 nts to use a URI
a780: 20 61 73 0d 0a 20 20 20 20 20 20 23 20 20 20 20 as.. #
a790: 20 20 20 74 68 65 20 64 61 74 61 20 73 6f 75 72 the data sour
a7a0: 63 65 2c 20 75 73 65 20 74 68 65 20 46 75 6c 6c ce, use the Full
a7b0: 55 72 69 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 Uri connection s
a7c0: 74 72 69 6e 67 20 70 72 6f 70 65 72 74 79 20 74 tring property t
a7d0: 6f 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 o.. #
a7e0: 20 70 72 65 76 65 6e 74 20 74 68 65 20 64 61 74 prevent the dat
a7f0: 61 20 73 6f 75 72 63 65 20 73 74 72 69 6e 67 20 a source string
a800: 66 72 6f 6d 20 62 65 69 6e 67 20 6d 61 6e 67 6c from being mangl
a810: 65 64 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 ed... #..
a820: 20 20 20 20 69 66 20 7b 24 75 72 69 7d 20 74 68 if {$uri} th
a830: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 73 65 en {.. se
a840: 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 7b 46 75 t connection {Fu
a850: 6c 6c 55 72 69 3d 24 7b 66 69 6c 65 4e 61 6d 65 llUri=${fileName
a860: 7d 7d 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 }}.. } else
a870: 20 7b 0d 0a 20 20 20 20 20 20 20 20 73 65 74 20 {.. set
a880: 63 6f 6e 6e 65 63 74 69 6f 6e 20 7b 44 61 74 61 connection {Data
a890: 20 53 6f 75 72 63 65 3d 24 7b 66 69 6c 65 4e 61 Source=${fileNa
a8a0: 6d 65 7d 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d me}}.. }...
a8b0: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 . #..
a8c0: 23 20 4e 4f 54 45 3a 20 53 69 6e 63 65 20 74 68 # NOTE: Since th
a8d0: 69 73 20 70 72 6f 63 65 64 75 72 65 20 68 61 73 is procedure has
a8e0: 20 6e 6f 20 73 70 65 63 69 61 6c 20 6b 6e 6f 77 no special know
a8f0: 6c 65 64 67 65 20 6f 66 20 77 68 61 74 20 74 68 ledge of what th
a900: 65 20 64 65 66 61 75 6c 74 0d 0a 20 20 20 20 20 e default..
a910: 20 23 20 20 20 20 20 20 20 73 65 74 74 69 6e 67 # setting
a920: 20 69 73 20 66 6f 72 20 74 68 65 20 54 6f 46 75 is for the ToFu
a930: 6c 6c 50 61 74 68 20 63 6f 6e 6e 65 63 74 69 6f llPath connectio
a940: 6e 20 73 74 72 69 6e 67 20 70 72 6f 70 65 72 79 n string propery
a950: 2c 20 61 6c 77 61 79 73 0d 0a 20 20 20 20 20 20 , always..
a960: 23 20 20 20 20 20 20 20 61 64 64 20 74 68 65 20 # add the
a970: 76 61 6c 75 65 20 77 65 20 6b 6e 6f 77 20 61 62 value we know ab
a980: 6f 75 74 20 74 6f 20 74 68 65 20 63 6f 6e 6e 65 out to the conne
a990: 63 74 69 6f 6e 20 73 74 72 69 6e 67 2e 0d 0a 20 ction string...
a9a0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 61 70 #.. ap
a9b0: 70 65 6e 64 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 pend connection
a9c0: 7b 3b 54 6f 46 75 6c 6c 50 61 74 68 3d 24 7b 71 {;ToFullPath=${q
a9d0: 75 61 6c 69 66 79 7d 7d 0d 0a 0d 0a 20 20 20 20 ualify}}....
a9e0: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT
a9f0: 45 3a 20 49 66 20 6f 75 72 20 63 61 6c 6c 65 72 E: If our caller
aa00: 20 73 70 65 63 69 66 69 65 64 20 61 20 6a 6f 75 specified a jou
aa10: 72 6e 61 6c 20 6d 6f 64 65 2c 20 61 64 64 20 74 rnal mode, add t
aa20: 68 65 20 6e 65 63 65 73 73 61 72 79 20 70 6f 72 he necessary por
aa30: 74 69 6f 6e 0d 0a 20 20 20 20 20 20 23 20 20 20 tion.. #
aa40: 20 20 20 20 6f 66 20 74 68 65 20 63 6f 6e 6e 65 of the conne
aa50: 63 74 69 6f 6e 20 73 74 72 69 6e 67 20 6e 6f 77 ction string now
aa60: 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 ... #..
aa70: 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 if {[string le
aa80: 6e 67 74 68 20 24 6d 6f 64 65 5d 20 3e 20 30 7d ngth $mode] > 0}
aa90: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 then {..
aaa0: 20 61 70 70 65 6e 64 20 63 6f 6e 6e 65 63 74 69 append connecti
aab0: 6f 6e 20 7b 3b 4a 6f 75 72 6e 61 6c 20 4d 6f 64 on {;Journal Mod
aac0: 65 3d 24 7b 6d 6f 64 65 7d 7d 0d 0a 20 20 20 20 e=${mode}}..
aad0: 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a }.... #..
aae0: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 49 66 # NOTE: If
aaf0: 20 6f 75 72 20 63 61 6c 6c 65 72 20 73 70 65 63 our caller spec
ab00: 69 66 69 65 64 20 61 20 44 61 74 65 54 69 6d 65 ified a DateTime
ab10: 20 66 6f 72 6d 61 74 2c 20 61 64 64 20 74 68 65 format, add the
ab20: 20 6e 65 63 65 73 73 61 72 79 0d 0a 20 20 20 20 necessary..
ab30: 20 20 23 20 20 20 20 20 20 20 70 6f 72 74 69 6f # portio
ab40: 6e 20 6f 66 20 74 68 65 20 63 6f 6e 6e 65 63 74 n of the connect
ab50: 69 6f 6e 20 73 74 72 69 6e 67 20 6e 6f 77 2e 0d ion string now..
ab60: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 . #..
ab70: 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 if {[string leng
ab80: 74 68 20 24 64 61 74 65 54 69 6d 65 46 6f 72 6d th $dateTimeForm
ab90: 61 74 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d at] > 0} then {.
aba0: 0a 20 20 20 20 20 20 20 20 61 70 70 65 6e 64 20 . append
abb0: 63 6f 6e 6e 65 63 74 69 6f 6e 20 7b 3b 44 61 74 connection {;Dat
abc0: 65 54 69 6d 65 46 6f 72 6d 61 74 3d 24 7b 64 61 eTimeFormat=${da
abd0: 74 65 54 69 6d 65 46 6f 72 6d 61 74 7d 7d 0d 0a teTimeFormat}}..
abe0: 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 }....
abf0: 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 #.. # NOTE
ac00: 3a 20 49 66 20 6f 75 72 20 63 61 6c 6c 65 72 20 : If our caller
ac10: 73 70 65 63 69 66 69 65 64 20 61 20 44 61 74 65 specified a Date
ac20: 54 69 6d 65 4b 69 6e 64 2c 20 61 64 64 20 74 68 TimeKind, add th
ac30: 65 20 6e 65 63 65 73 73 61 72 79 20 70 6f 72 74 e necessary port
ac40: 69 6f 6e 0d 0a 20 20 20 20 20 20 23 20 20 20 20 ion.. #
ac50: 20 20 20 6f 66 20 74 68 65 20 63 6f 6e 6e 65 63 of the connec
ac60: 74 69 6f 6e 20 73 74 72 69 6e 67 20 6e 6f 77 2e tion string now.
ac70: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #..
ac80: 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e if {[string len
ac90: 67 74 68 20 24 64 61 74 65 54 69 6d 65 4b 69 6e gth $dateTimeKin
aca0: 64 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a d] > 0} then {..
acb0: 20 20 20 20 20 20 20 20 61 70 70 65 6e 64 20 63 append c
acc0: 6f 6e 6e 65 63 74 69 6f 6e 20 7b 3b 44 61 74 65 onnection {;Date
acd0: 54 69 6d 65 4b 69 6e 64 3d 24 7b 64 61 74 65 54 TimeKind=${dateT
ace0: 69 6d 65 4b 69 6e 64 7d 7d 0d 0a 20 20 20 20 20 imeKind}}..
acf0: 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 }.... #..
ad00: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 49 66 20 # NOTE: If
ad10: 74 68 65 72 65 20 61 72 65 20 61 6e 79 20 67 6c there are any gl
ad20: 6f 62 61 6c 20 28 70 65 72 20 74 65 73 74 20 72 obal (per test r
ad30: 75 6e 29 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 un) connection f
ad40: 6c 61 67 73 20 63 75 72 72 65 6e 74 6c 79 0d 0a lags currently..
ad50: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 73 65 # se
ad60: 74 2c 20 75 73 65 20 74 68 65 6d 20 6e 6f 77 20 t, use them now
ad70: 28 69 2e 65 2e 20 62 79 20 63 6f 6d 62 69 6e 69 (i.e. by combini
ad80: 6e 67 20 74 68 65 6d 20 77 69 74 68 20 74 68 65 ng them with the
ad90: 20 6f 6e 65 73 20 66 6f 72 20 74 68 69 73 0d 0a ones for this..
ada0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 63 6f # co
adb0: 6e 6e 65 63 74 69 6f 6e 29 2e 0d 0a 20 20 20 20 nnection)...
adc0: 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b #.. if {[
add0: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 63 6f info exists ::co
ade0: 6e 6e 65 63 74 69 6f 6e 5f 66 6c 61 67 73 5d 20 nnection_flags]
adf0: 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 && \..
ae00: 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 [string length $
ae10: 3a 3a 63 6f 6e 6e 65 63 74 69 6f 6e 5f 66 6c 61 ::connection_fla
ae20: 67 73 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d gs] > 0} then {.
ae30: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #..
ae40: 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 68 6f 77 # NOTE: Show
ae50: 20 28 61 6e 64 20 6c 6f 67 29 20 74 68 61 74 20 (and log) that
ae60: 77 65 20 64 65 74 65 63 74 65 64 20 73 6f 6d 65 we detected some
ae70: 20 67 6c 6f 62 61 6c 20 63 6f 6e 6e 65 63 74 69 global connecti
ae80: 6f 6e 20 66 6c 61 67 73 2e 0d 0a 20 20 20 20 20 on flags...
ae90: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 74 70 #.. tp
aea0: 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e uts $::test_chan
aeb0: 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 nel [appendArgs
aec0: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 \.. "
aed0: 2d 2d 2d 2d 20 67 6c 6f 62 61 6c 20 63 6f 6e 6e ---- global conn
aee0: 65 63 74 69 6f 6e 20 66 6c 61 67 73 20 64 65 74 ection flags det
aef0: 65 63 74 65 64 3a 20 22 20 24 3a 3a 63 6f 6e 6e ected: " $::conn
af00: 65 63 74 69 6f 6e 5f 66 6c 61 67 73 20 5c 6e 5d ection_flags \n]
af10: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 .... #..
af20: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 43 # NOTE: C
af30: 6f 6d 62 69 6e 65 20 61 6e 64 2f 6f 72 20 72 65 ombine and/or re
af40: 70 6c 61 63 65 20 74 68 65 20 63 6f 6e 6e 65 63 place the connec
af50: 74 69 6f 6e 20 66 6c 61 67 73 20 61 6e 64 20 74 tion flags and t
af60: 68 65 6e 20 73 68 6f 77 20 74 68 65 0d 0a 20 20 hen show the..
af70: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 6e 65 # ne
af80: 77 20 76 61 6c 75 65 2e 0d 0a 20 20 20 20 20 20 w value...
af90: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 73 65 74 #.. set
afa0: 20 66 6c 61 67 73 20 5b 63 6f 6d 62 69 6e 65 46 flags [combineF
afb0: 6c 61 67 73 20 24 66 6c 61 67 73 20 24 3a 3a 63 lags $flags $::c
afc0: 6f 6e 6e 65 63 74 69 6f 6e 5f 66 6c 61 67 73 5d onnection_flags]
afd0: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 .... tput
afe0: 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 s $::test_channe
aff0: 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d l [appendArgs \.
b000: 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d . "--
b010: 2d 2d 20 63 6f 6d 62 69 6e 65 64 20 63 6f 6e 6e -- combined conn
b020: 65 63 74 69 6f 6e 20 66 6c 61 67 73 20 61 72 65 ection flags are
b030: 3a 20 22 20 24 66 6c 61 67 73 20 5c 6e 5d 0d 0a : " $flags \n]..
b040: 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 }....
b050: 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 #.. # NOTE
b060: 3a 20 49 66 20 6f 75 72 20 63 61 6c 6c 65 72 20 : If our caller
b070: 73 70 65 63 69 66 69 65 64 20 73 6f 6d 65 20 53 specified some S
b080: 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 46 QLiteConnectionF
b090: 6c 61 67 73 2c 20 61 64 64 20 74 68 65 0d 0a 20 lags, add the..
b0a0: 20 20 20 20 20 23 20 20 20 20 20 20 20 6e 65 63 # nec
b0b0: 65 73 73 61 72 79 20 70 6f 72 74 69 6f 6e 20 6f essary portion o
b0c0: 66 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e f the connection
b0d0: 20 73 74 72 69 6e 67 20 6e 6f 77 2e 0d 0a 20 20 string now...
b0e0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 #.. if
b0f0: 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 {[string length
b100: 24 66 6c 61 67 73 5d 20 3e 20 30 7d 20 74 68 65 $flags] > 0} the
b110: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 61 70 70 n {.. app
b120: 65 6e 64 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 7b end connection {
b130: 3b 46 6c 61 67 73 3d 24 7b 66 6c 61 67 73 7d 7d ;Flags=${flags}}
b140: 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 .. }....
b150: 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f #.. # NO
b160: 54 45 3a 20 49 66 20 6f 75 72 20 63 61 6c 6c 65 TE: If our calle
b170: 72 20 73 70 65 63 69 66 69 65 64 20 61 6e 20 65 r specified an e
b180: 78 74 72 61 20 70 61 79 6c 6f 61 64 20 74 6f 20 xtra payload to
b190: 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 0d 0a the connection..
b1a0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 73 74 # st
b1b0: 72 69 6e 67 2c 20 61 70 70 65 6e 64 20 69 74 20 ring, append it
b1c0: 6e 6f 77 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 now... #..
b1d0: 20 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 if {[string
b1e0: 20 6c 65 6e 67 74 68 20 24 65 78 74 72 61 5d 20 length $extra]
b1f0: 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 > 0} then {..
b200: 20 20 20 20 20 61 70 70 65 6e 64 20 63 6f 6e 6e append conn
b210: 65 63 74 69 6f 6e 20 5c 3b 20 24 65 78 74 72 61 ection \; $extra
b220: 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 .. }....
b230: 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f #.. # NO
b240: 54 45 3a 20 4f 70 65 6e 20 74 68 65 20 64 61 74 TE: Open the dat
b250: 61 62 61 73 65 20 63 6f 6e 6e 65 63 74 69 6f 6e abase connection
b260: 20 6e 6f 77 2c 20 70 6c 61 63 69 6e 67 20 74 68 now, placing th
b270: 65 20 6f 70 61 71 75 65 20 68 61 6e 64 6c 65 20 e opaque handle
b280: 76 61 6c 75 65 0d 0a 20 20 20 20 20 20 23 20 20 value.. #
b290: 20 20 20 20 20 69 6e 74 6f 20 74 68 65 20 76 61 into the va
b2a0: 72 69 61 62 6c 65 20 73 70 65 63 69 66 69 65 64 riable specified
b2b0: 20 62 79 20 6f 75 72 20 63 61 6c 6c 65 72 2e 0d by our caller..
b2c0: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 . #..
b2d0: 73 65 74 20 64 62 20 5b 73 71 6c 20 6f 70 65 6e set db [sql open
b2e0: 20 2d 74 79 70 65 20 53 51 4c 69 74 65 20 5b 73 -type SQLite [s
b2f0: 75 62 73 74 20 24 63 6f 6e 6e 65 63 74 69 6f 6e ubst $connection
b300: 5d 5d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 ]].... #..
b310: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 43 6f 6e # NOTE: Con
b320: 66 69 67 75 72 65 20 74 68 65 20 74 65 6d 70 6f figure the tempo
b330: 72 61 72 79 20 64 69 72 65 63 74 6f 72 79 20 66 rary directory f
b340: 6f 72 20 74 68 65 20 6e 65 77 6c 79 20 6f 70 65 or the newly ope
b350: 6e 65 64 20 64 61 74 61 62 61 73 65 0d 0a 20 20 ned database..
b360: 20 20 20 20 23 20 20 20 20 20 20 20 63 6f 6e 6e # conn
b370: 65 63 74 69 6f 6e 20 6e 6f 77 20 75 6e 6c 65 73 ection now unles
b380: 73 20 6f 75 72 20 63 61 6c 6c 65 72 20 66 6f 72 s our caller for
b390: 62 69 64 73 20 69 74 2e 0d 0a 20 20 20 20 20 20 bids it...
b3a0: 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 24 74 65 #.. if {$te
b3b0: 6d 70 6f 72 61 72 79 20 26 26 20 21 5b 69 6e 66 mporary && ![inf
b3c0: 6f 20 65 78 69 73 74 73 20 3a 3a 6e 6f 28 73 65 o exists ::no(se
b3d0: 74 54 65 6d 70 6f 72 61 72 79 44 69 72 65 63 74 tTemporaryDirect
b3e0: 6f 72 79 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 ory)]} then {..
b3f0: 20 20 20 20 20 20 20 73 71 6c 20 65 78 65 63 75 sql execu
b400: 74 65 20 24 64 62 20 5b 61 70 70 65 6e 64 41 72 te $db [appendAr
b410: 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 gs \..
b420: 20 20 22 50 52 41 47 4d 41 20 74 65 6d 70 5f 73 "PRAGMA temp_s
b430: 74 6f 72 65 5f 64 69 72 65 63 74 6f 72 79 20 3d tore_directory =
b440: 20 5c 22 22 20 5b 67 65 74 54 65 6d 70 6f 72 61 \"" [getTempora
b450: 72 79 44 69 72 65 63 74 6f 72 79 5d 20 5c 22 5c ryDirectory] \"\
b460: 3b 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 ;].. }....
b470: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 #.. #
b480: 4e 4f 54 45 3a 20 41 6c 77 61 79 73 20 72 65 74 NOTE: Always ret
b490: 75 72 6e 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 urn the connecti
b4a0: 6f 6e 20 68 61 6e 64 6c 65 20 75 70 6f 6e 20 73 on handle upon s
b4b0: 75 63 63 65 73 73 2e 0d 0a 20 20 20 20 20 20 23 uccess... #
b4c0: 0d 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 .. return $
b4d0: 64 62 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 db.. }.....
b4e0: 20 20 70 72 6f 63 20 67 65 74 44 62 43 6f 6e 6e proc getDbConn
b4f0: 65 63 74 69 6f 6e 20 7b 20 7b 76 61 72 4e 61 6d ection { {varNam
b500: 65 20 64 62 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 e db} } {..
b510: 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 #.. # NOTE
b520: 3a 20 52 65 66 65 72 20 74 6f 20 74 68 65 20 73 : Refer to the s
b530: 70 65 63 69 66 69 65 64 20 76 61 72 69 61 62 6c pecified variabl
b540: 65 20 28 65 2e 67 2e 20 22 64 62 22 29 20 69 6e e (e.g. "db") in
b550: 20 74 68 65 20 63 6f 6e 74 65 78 74 20 6f 66 20 the context of
b560: 6f 75 72 0d 0a 20 20 20 20 20 20 23 20 20 20 20 our.. #
b570: 20 20 20 63 61 6c 6c 65 72 2e 20 20 54 68 65 20 caller. The
b580: 68 61 6e 64 6c 65 20 74 6f 20 74 68 65 20 64 61 handle to the da
b590: 74 61 62 61 73 65 20 70 72 65 76 69 6f 75 73 6c tabase previousl
b5a0: 79 20 6f 70 65 6e 65 64 20 76 69 61 20 74 68 65 y opened via the
b5b0: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. #
b5c0: 5b 73 65 74 75 70 44 62 5d 20 70 72 6f 63 65 64 [setupDb] proced
b5d0: 75 72 65 20 73 68 6f 75 6c 64 20 62 65 20 73 74 ure should be st
b5e0: 6f 72 65 64 20 74 68 65 72 65 2e 0d 0a 20 20 20 ored there...
b5f0: 20 20 20 23 0d 0a 20 20 20 20 20 20 75 70 76 61 #.. upva
b600: 72 20 31 20 24 76 61 72 4e 61 6d 65 20 64 62 0d r 1 $varName db.
b610: 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 ... #..
b620: 20 20 23 20 4e 4f 54 45 3a 20 54 68 69 73 20 72 # NOTE: This r
b630: 65 74 75 72 6e 73 20 74 68 65 20 41 44 4f 2e 4e eturns the ADO.N
b640: 45 54 20 49 44 62 43 6f 6e 6e 65 63 74 69 6f 6e ET IDbConnection
b650: 20 6f 62 6a 65 63 74 20 69 6e 73 74 61 6e 63 65 object instance
b660: 20 66 6f 72 20 74 68 65 0d 0a 20 20 20 20 20 20 for the..
b670: 23 20 20 20 20 20 20 20 73 70 65 63 69 66 69 65 # specifie
b680: 64 20 64 61 74 61 62 73 65 20 68 61 6e 64 6c 65 d databse handle
b690: 2e 20 20 53 69 6e 63 65 20 67 65 74 74 69 6e 67 . Since getting
b6a0: 20 74 68 69 73 20 6f 62 6a 65 63 74 20 72 65 6c this object rel
b6b0: 69 65 73 20 75 70 6f 6e 0d 0a 20 20 20 20 20 20 ies upon..
b6c0: 23 20 20 20 20 20 20 20 45 61 67 6c 65 20 69 6e # Eagle in
b6d0: 74 65 72 6e 61 6c 73 2c 20 67 72 65 61 74 20 63 ternals, great c
b6e0: 61 72 65 20 73 68 6f 75 6c 64 20 62 65 20 74 61 are should be ta
b6f0: 6b 65 6e 20 74 6f 20 61 76 6f 69 64 20 64 69 73 ken to avoid dis
b700: 70 6f 73 69 6e 67 20 6f 66 0d 0a 20 20 20 20 20 posing of..
b710: 20 23 20 20 20 20 20 20 20 74 68 69 73 20 6f 62 # this ob
b720: 6a 65 63 74 20 6f 72 20 6f 74 68 65 72 77 69 73 ject or otherwis
b730: 65 20 70 75 74 74 69 6e 67 20 69 74 20 69 6e 74 e putting it int
b740: 6f 20 61 6e 20 69 6e 76 61 6c 69 64 20 73 74 61 o an invalid sta
b750: 74 65 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 te... #..
b760: 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 if {[info ex
b770: 69 73 74 73 20 64 62 5d 7d 20 74 68 65 6e 20 7b ists db]} then {
b780: 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b 63 .. if {[c
b790: 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 atch {..
b7a0: 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74 20 69 object i
b7b0: 6e 76 6f 6b 65 20 2d 66 6c 61 67 73 20 2b 4e 6f nvoke -flags +No
b7c0: 6e 50 75 62 6c 69 63 20 2d 6f 62 6a 65 63 74 66 nPublic -objectf
b7d0: 6c 61 67 73 20 2b 4e 6f 44 69 73 70 6f 73 65 20 lags +NoDispose
b7e0: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 \..
b7f0: 20 20 20 2d 61 6c 69 61 73 20 49 6e 74 65 72 70 -alias Interp
b800: 72 65 74 65 72 2e 47 65 74 41 63 74 69 76 65 2e reter.GetActive.
b810: 63 6f 6e 6e 65 63 74 69 6f 6e 73 20 49 74 65 6d connections Item
b820: 20 24 64 62 7d 20 5c 0d 0a 20 20 20 20 20 20 20 $db} \..
b830: 20 20 20 20 20 20 20 20 20 72 65 73 75 6c 74 5d result]
b840: 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 == 0} then {..
b850: 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 #..
b860: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 75 # NOTE: Su
b870: 63 63 65 73 73 2c 20 72 65 74 75 72 6e 20 74 68 ccess, return th
b880: 65 20 6f 70 61 71 75 65 20 6f 62 6a 65 63 74 20 e opaque object
b890: 68 61 6e 64 6c 65 2e 0d 0a 20 20 20 20 20 20 20 handle...
b8a0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 #..
b8b0: 72 65 74 75 72 6e 20 24 72 65 73 75 6c 74 0d 0a return $result..
b8c0: 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b } else {
b8d0: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 .. #..
b8e0: 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a # NOTE:
b8f0: 20 46 61 69 6c 75 72 65 2c 20 72 65 70 6f 72 74 Failure, report
b900: 20 77 68 79 2e 0d 0a 20 20 20 20 20 20 20 20 20 why...
b910: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70 #.. tp
b920: 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e uts $::test_chan
b930: 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 nel [appendArgs
b940: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 \..
b950: 20 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e 47 3a 20 "==== WARNING:
b960: 66 61 69 6c 65 64 20 74 6f 20 67 65 74 20 63 6f failed to get co
b970: 6e 6e 65 63 74 69 6f 6e 20 68 61 6e 64 6c 65 20 nnection handle
b980: 66 6f 72 20 64 61 74 61 62 61 73 65 20 5c 22 22 for database \""
b990: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \..
b9a0: 20 20 24 64 62 20 22 5c 22 2c 20 65 72 72 6f 72 $db "\", error
b9b0: 3a 20 22 20 5c 6e 5c 74 20 24 72 65 73 75 6c 74 : " \n\t $result
b9c0: 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 7d 0d \n].. }.
b9d0: 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d . }.. }.
b9e0: 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 66 72 65 .... proc fre
b9f0: 65 44 62 43 6f 6e 6e 65 63 74 69 6f 6e 20 7b 20 eDbConnection {
ba00: 7b 76 61 72 4e 61 6d 65 20 63 6f 6e 6e 65 63 74 {varName connect
ba10: 69 6f 6e 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 20 ion} } {..
ba20: 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a #.. # NOTE:
ba30: 20 52 65 66 65 72 20 74 6f 20 74 68 65 20 73 70 Refer to the sp
ba40: 65 63 69 66 69 65 64 20 76 61 72 69 61 62 6c 65 ecified variable
ba50: 20 28 65 2e 67 2e 20 22 63 6f 6e 6e 65 63 74 69 (e.g. "connecti
ba60: 6f 6e 22 29 20 69 6e 20 74 68 65 0d 0a 20 20 20 on") in the..
ba70: 20 20 20 23 20 20 20 20 20 20 20 63 6f 6e 74 65 # conte
ba80: 78 74 20 6f 66 20 6f 75 72 20 63 61 6c 6c 65 72 xt of our caller
ba90: 2e 20 20 54 68 65 20 6f 70 61 71 75 65 20 6f 62 . The opaque ob
baa0: 6a 65 63 74 20 68 61 6e 64 6c 65 20 66 6f 72 20 ject handle for
bab0: 61 6e 20 41 44 4f 2e 4e 45 54 0d 0a 20 20 20 20 an ADO.NET..
bac0: 20 20 23 20 20 20 20 20 20 20 63 6f 6e 6e 65 63 # connec
bad0: 74 69 6f 6e 20 70 72 65 76 69 6f 75 73 6c 79 20 tion previously
bae0: 72 65 74 75 72 6e 65 64 20 62 79 20 5b 67 65 74 returned by [get
baf0: 44 62 43 6f 6e 6e 65 63 74 69 6f 6e 5d 20 73 68 DbConnection] sh
bb00: 6f 75 6c 64 20 62 65 0d 0a 20 20 20 20 20 20 23 ould be.. #
bb10: 20 20 20 20 20 20 20 73 74 6f 72 65 64 20 74 68 stored th
bb20: 65 72 65 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 ere... #..
bb30: 20 20 20 20 20 75 70 76 61 72 20 31 20 24 76 61 upvar 1 $va
bb40: 72 4e 61 6d 65 20 63 6f 6e 6e 65 63 74 69 6f 6e rName connection
bb50: 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 .... #..
bb60: 20 20 20 23 20 4e 4f 54 45 3a 20 41 74 74 65 6d # NOTE: Attem
bb70: 70 74 20 74 6f 20 72 65 6d 6f 76 65 20 74 68 65 pt to remove the
bb80: 20 6f 70 61 71 75 65 20 6f 62 6a 65 63 74 20 68 opaque object h
bb90: 61 6e 64 6c 65 20 66 72 6f 6d 20 74 68 65 20 69 andle from the i
bba0: 6e 74 65 72 70 72 65 74 65 72 0d 0a 20 20 20 20 nterpreter..
bbb0: 20 20 23 20 20 20 20 20 20 20 6e 6f 77 2e 20 20 # now.
bbc0: 54 68 69 73 20 5b 6f 62 6a 65 63 74 20 64 69 73 This [object dis
bbd0: 70 6f 73 65 5d 20 63 61 6c 6c 20 77 69 6c 6c 20 pose] call will
bbe0: 6e 6f 74 20 61 63 74 75 61 6c 6c 79 20 64 69 73 not actually dis
bbf0: 70 6f 73 65 20 6f 66 20 74 68 65 0d 0a 20 20 20 pose of the..
bc00: 20 20 20 23 20 20 20 20 20 20 20 75 6e 64 65 72 # under
bc10: 6c 79 69 6e 67 20 6f 62 6a 65 63 74 20 62 65 63 lying object bec
bc20: 61 75 73 65 20 74 68 65 20 2b 4e 6f 44 69 73 70 ause the +NoDisp
bc30: 6f 73 65 20 66 6c 61 67 20 77 61 73 20 73 65 74 ose flag was set
bc40: 20 6f 6e 20 69 74 0d 0a 20 20 20 20 20 20 23 20 on it.. #
bc50: 20 20 20 20 20 20 64 75 72 69 6e 67 20 63 72 65 during cre
bc60: 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 6f 70 61 ation of the opa
bc70: 71 75 65 20 6f 62 6a 65 63 74 20 68 61 6e 64 6c que object handl
bc80: 65 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 e... #..
bc90: 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 if {[info exi
bca0: 73 74 73 20 63 6f 6e 6e 65 63 74 69 6f 6e 5d 20 sts connection]
bcb0: 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 && \..
bcc0: 5b 63 61 74 63 68 20 7b 6f 62 6a 65 63 74 20 64 [catch {object d
bcd0: 69 73 70 6f 73 65 20 24 63 6f 6e 6e 65 63 74 69 ispose $connecti
bce0: 6f 6e 7d 20 65 72 72 6f 72 5d 7d 20 74 68 65 6e on} error]} then
bcf0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 {.. #..
bd00: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 57 # NOTE: W
bd10: 65 20 73 6f 6d 65 68 6f 77 20 66 61 69 6c 65 64 e somehow failed
bd20: 20 74 6f 20 72 65 6d 6f 76 65 20 74 68 65 20 68 to remove the h
bd30: 61 6e 64 6c 65 2c 20 72 65 70 6f 72 74 20 77 68 andle, report wh
bd40: 79 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 y... #..
bd50: 20 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a tputs $::
bd60: 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 test_channel [ap
bd70: 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 pendArgs \..
bd80: 20 20 20 20 20 20 20 20 22 3d 3d 3d 3d 20 57 41 "==== WA
bd90: 52 4e 49 4e 47 3a 20 66 61 69 6c 65 64 20 74 6f RNING: failed to
bda0: 20 72 65 6d 6f 76 65 20 63 6f 6e 6e 65 63 74 69 remove connecti
bdb0: 6f 6e 20 68 61 6e 64 6c 65 20 5c 22 22 20 24 63 on handle \"" $c
bdc0: 6f 6e 6e 65 63 74 69 6f 6e 20 5c 0d 0a 20 20 20 onnection \..
bdd0: 20 20 20 20 20 20 20 20 20 22 5c 22 2c 20 65 72 "\", er
bde0: 72 6f 72 3a 20 22 20 5c 6e 5c 74 20 24 65 72 72 ror: " \n\t $err
bdf0: 6f 72 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 7d 0d or \n].. }.
be00: 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 . }..... p
be10: 72 6f 63 20 61 64 64 44 62 43 6f 6e 6e 65 63 74 roc addDbConnect
be20: 69 6f 6e 20 7b 20 63 6f 6e 6e 65 63 74 69 6f 6e ion { connection
be30: 20 7b 76 61 72 4e 61 6d 65 20 64 62 7d 20 7d 20 {varName db} }
be40: 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 {.. #..
be50: 20 20 23 20 4e 4f 54 45 3a 20 52 65 66 65 72 20 # NOTE: Refer
be60: 74 6f 20 74 68 65 20 73 70 65 63 69 66 69 65 64 to the specified
be70: 20 76 61 72 69 61 62 6c 65 20 28 65 2e 67 2e 20 variable (e.g.
be80: 22 64 62 22 29 20 69 6e 20 74 68 65 20 63 6f 6e "db") in the con
be90: 74 65 78 74 20 6f 66 20 6f 75 72 0d 0a 20 20 20 text of our..
bea0: 20 20 20 23 20 20 20 20 20 20 20 63 61 6c 6c 65 # calle
beb0: 72 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 r... #..
bec0: 20 20 20 75 70 76 61 72 20 31 20 24 76 61 72 4e upvar 1 $varN
bed0: 61 6d 65 20 64 62 0d 0a 0d 0a 20 20 20 20 20 20 ame db....
bee0: 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a #.. # NOTE:
bef0: 20 43 72 65 61 74 65 20 61 20 63 6f 72 72 65 63 Create a correc
bf00: 74 6c 79 20 66 6f 72 6d 61 74 74 65 64 20 6e 61 tly formatted na
bf10: 6d 65 20 66 6f 72 20 74 68 65 20 64 61 74 61 62 me for the datab
bf20: 61 73 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 74 ase connection t
bf30: 6f 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 o.. #
bf40: 20 62 65 20 61 64 64 65 64 20 74 6f 20 74 68 65 be added to the
bf50: 20 6c 69 73 74 20 6d 61 6e 61 67 65 64 20 62 79 list managed by
bf60: 20 74 68 65 20 45 61 67 6c 65 20 69 6e 74 65 72 the Eagle inter
bf70: 70 72 65 74 65 72 2e 0d 0a 20 20 20 20 20 20 23 preter... #
bf80: 0d 0a 20 20 20 20 20 20 73 65 74 20 64 62 20 5b .. set db [
bf90: 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d 66 object invoke -f
bfa0: 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 lags +NonPublic
bfb0: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 45 61 67 \.. Eag
bfc0: 6c 65 2e 5f 43 6f 6d 70 6f 6e 65 6e 74 73 2e 50 le._Components.P
bfd0: 72 69 76 61 74 65 2e 46 6f 72 6d 61 74 4f 70 73 rivate.FormatOps
bfe0: 20 44 61 74 61 62 61 73 65 4f 62 6a 65 63 74 4e DatabaseObjectN
bff0: 61 6d 65 20 24 63 6f 6e 6e 65 63 74 69 6f 6e 20 ame $connection
c000: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 53 51 4c \.. SQL
c010: 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 20 5b 6f iteConnection [o
c020: 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 49 6e 74 bject invoke Int
c030: 65 72 70 72 65 74 65 72 2e 47 65 74 41 63 74 69 erpreter.GetActi
c040: 76 65 20 4e 65 78 74 49 64 5d 5d 0d 0a 0d 0a 20 ve NextId]]....
c050: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 #.. #
c060: 4e 4f 54 45 3a 20 41 64 64 20 74 68 65 20 64 61 NOTE: Add the da
c070: 74 61 62 61 73 65 20 63 6f 6e 6e 65 63 74 69 6f tabase connectio
c080: 6e 20 70 72 6f 76 69 64 65 64 20 62 79 20 6f 75 n provided by ou
c090: 72 20 63 61 6c 6c 65 72 20 74 6f 20 74 68 65 20 r caller to the
c0a0: 6c 69 73 74 0d 0a 20 20 20 20 20 20 23 20 20 20 list.. #
c0b0: 20 20 20 20 6f 66 20 74 68 6f 73 65 20 6b 6e 6f of those kno
c0c0: 77 6e 20 74 6f 20 74 68 65 20 45 61 67 6c 65 20 wn to the Eagle
c0d0: 69 6e 74 65 72 70 72 65 74 65 72 2e 0d 0a 20 20 interpreter...
c0e0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 6f 62 6a #.. obj
c0f0: 65 63 74 20 69 6e 76 6f 6b 65 20 2d 66 6c 61 67 ect invoke -flag
c100: 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 49 6e 74 s +NonPublic Int
c110: 65 72 70 72 65 74 65 72 2e 47 65 74 41 63 74 69 erpreter.GetActi
c120: 76 65 2e 63 6f 6e 6e 65 63 74 69 6f 6e 73 20 41 ve.connections A
c130: 64 64 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 dd \..
c140: 24 64 62 20 24 63 6f 6e 6e 65 63 74 69 6f 6e 0d $db $connection.
c150: 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 . }..... p
c160: 72 6f 63 20 63 6c 65 61 6e 75 70 44 62 20 7b 20 roc cleanupDb {
c170: 66 69 6c 65 4e 61 6d 65 20 7b 76 61 72 4e 61 6d fileName {varNam
c180: 65 20 64 62 7d 20 7b 63 6f 6c 6c 65 63 74 20 74 e db} {collect t
c190: 72 75 65 7d 20 7b 71 75 61 6c 69 66 79 20 74 72 rue} {qualify tr
c1a0: 75 65 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ue}..
c1b0: 20 20 20 20 20 20 20 20 20 20 7b 64 65 6c 65 74 {delet
c1c0: 65 20 74 72 75 65 7d 20 7d 20 7b 0d 0a 20 20 20 e true} } {..
c1d0: 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f #.. # NO
c1e0: 54 45 3a 20 41 74 74 65 6d 70 74 20 74 6f 20 66 TE: Attempt to f
c1f0: 6f 72 63 65 20 61 6c 6c 20 70 65 6e 64 69 6e 67 orce all pending
c200: 20 22 67 61 72 62 61 67 65 22 20 6f 62 6a 65 63 "garbage" objec
c210: 74 73 20 74 6f 20 62 65 20 63 6f 6c 6c 65 63 74 ts to be collect
c220: 65 64 2c 0d 0a 20 20 20 20 20 20 23 20 20 20 20 ed,.. #
c230: 20 20 20 69 6e 63 6c 75 64 69 6e 67 20 53 51 4c including SQL
c240: 69 74 65 20 73 74 61 74 65 6d 65 6e 74 73 20 61 ite statements a
c250: 6e 64 20 62 61 63 6b 75 70 20 6f 62 6a 65 63 74 nd backup object
c260: 73 3b 20 74 68 69 73 20 73 68 6f 75 6c 64 20 61 s; this should a
c270: 6c 6c 6f 77 0d 0a 20 20 20 20 20 20 23 20 20 20 llow.. #
c280: 20 20 20 20 74 68 65 20 75 6e 64 65 72 6c 79 69 the underlyi
c290: 6e 67 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 ng database file
c2a0: 20 74 6f 20 62 65 20 64 65 6c 65 74 65 64 2e 0d to be deleted..
c2b0: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 . #..
c2c0: 69 66 20 7b 24 63 6f 6c 6c 65 63 74 7d 20 74 68 if {$collect} th
c2d0: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 63 6f en {.. co
c2e0: 6c 6c 65 63 74 47 61 72 62 61 67 65 20 24 3a 3a llectGarbage $::
c2f0: 74 65 73 74 5f 63 68 61 6e 6e 65 6c 0d 0a 20 20 test_channel..
c300: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 }.... #
c310: 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 .. # NOTE:
c320: 52 65 66 65 72 20 74 6f 20 74 68 65 20 73 70 65 Refer to the spe
c330: 63 69 66 69 65 64 20 76 61 72 69 61 62 6c 65 20 cified variable
c340: 28 65 2e 67 2e 20 22 64 62 22 29 20 69 6e 20 74 (e.g. "db") in t
c350: 68 65 20 63 6f 6e 74 65 78 74 20 6f 66 20 6f 75 he context of ou
c360: 72 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 r.. #
c370: 20 63 61 6c 6c 65 72 2e 20 20 54 68 65 20 68 61 caller. The ha
c380: 6e 64 6c 65 20 74 6f 20 74 68 65 20 64 61 74 61 ndle to the data
c390: 62 61 73 65 20 70 72 65 76 69 6f 75 73 6c 79 20 base previously
c3a0: 6f 70 65 6e 65 64 20 76 69 61 20 74 68 65 0d 0a opened via the..
c3b0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 5b 73 # [s
c3c0: 65 74 75 70 44 62 5d 20 70 72 6f 63 65 64 75 72 etupDb] procedur
c3d0: 65 20 73 68 6f 75 6c 64 20 62 65 20 73 74 6f 72 e should be stor
c3e0: 65 64 20 74 68 65 72 65 2e 0d 0a 20 20 20 20 20 ed there...
c3f0: 20 23 0d 0a 20 20 20 20 20 20 75 70 76 61 72 20 #.. upvar
c400: 31 20 24 76 61 72 4e 61 6d 65 20 64 62 0d 0a 0d 1 $varName db...
c410: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 . #..
c420: 23 20 4e 4f 54 45 3a 20 43 6c 6f 73 65 20 74 68 # NOTE: Close th
c430: 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 74 6f 20 e connection to
c440: 74 68 65 20 64 61 74 61 62 61 73 65 20 6e 6f 77 the database now
c450: 2e 20 20 54 68 69 73 20 73 68 6f 75 6c 64 20 61 . This should a
c460: 6c 6c 6f 77 20 75 73 0d 0a 20 20 20 20 20 20 23 llow us.. #
c470: 20 20 20 20 20 20 20 74 6f 20 64 65 6c 65 74 65 to delete
c480: 20 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 the underlying
c490: 64 61 74 61 62 61 73 65 20 66 69 6c 65 2e 0d 0a database file...
c4a0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 #.. i
c4b0: 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 f {[info exists
c4c0: 64 62 5d 20 26 26 20 5b 63 61 74 63 68 20 7b 73 db] && [catch {s
c4d0: 71 6c 20 63 6c 6f 73 65 20 24 64 62 7d 20 65 72 ql close $db} er
c4e0: 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 ror]} then {..
c4f0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
c500: 20 23 20 4e 4f 54 45 3a 20 57 65 20 73 6f 6d 65 # NOTE: We some
c510: 68 6f 77 20 66 61 69 6c 65 64 20 74 6f 20 63 6c how failed to cl
c520: 6f 73 65 20 74 68 65 20 64 61 74 61 62 61 73 65 ose the database
c530: 2c 20 72 65 70 6f 72 74 20 77 68 79 2e 0d 0a 20 , report why...
c540: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
c550: 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f tputs $::test_
c560: 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 channel [appendA
c570: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 rgs \..
c580: 20 20 20 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e 47 "==== WARNING
c590: 3a 20 66 61 69 6c 65 64 20 74 6f 20 63 6c 6f 73 : failed to clos
c5a0: 65 20 64 61 74 61 62 61 73 65 20 5c 22 22 20 24 e database \"" $
c5b0: 64 62 20 22 5c 22 2c 20 65 72 72 6f 72 3a 20 22 db "\", error: "
c5c0: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \..
c5d0: 5c 6e 5c 74 20 24 65 72 72 6f 72 20 5c 6e 5d 0d \n\t $error \n].
c5e0: 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 . }....
c5f0: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT
c600: 45 3a 20 46 69 72 73 74 2c 20 73 65 65 20 69 66 E: First, see if
c610: 20 6f 75 72 20 63 61 6c 6c 65 72 20 68 61 73 20 our caller has
c620: 72 65 71 75 65 73 74 65 64 20 61 6e 20 69 6e 2d requested an in-
c630: 6d 65 6d 6f 72 79 20 64 61 74 61 62 61 73 65 2e memory database.
c640: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #..
c650: 20 73 65 74 20 69 73 4d 65 6d 6f 72 79 20 5b 69 set isMemory [i
c660: 73 4d 65 6d 6f 72 79 44 62 20 24 66 69 6c 65 4e sMemoryDb $fileN
c670: 61 6d 65 5d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d ame].... #.
c680: 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 42 . # NOTE: B
c690: 75 69 6c 64 20 74 68 65 20 66 75 6c 6c 20 70 61 uild the full pa
c6a0: 74 68 20 74 6f 20 74 68 65 20 64 61 74 61 62 61 th to the databa
c6b0: 73 65 20 66 69 6c 65 20 6e 61 6d 65 2e 20 20 46 se file name. F
c6c0: 6f 72 20 6e 6f 77 2c 20 61 6c 6c 20 74 65 73 74 or now, all test
c6d0: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. #
c6e0: 64 61 74 61 62 61 73 65 20 66 69 6c 65 73 20 61 database files a
c6f0: 72 65 20 73 74 6f 72 65 64 20 69 6e 20 74 68 65 re stored in the
c700: 20 74 65 6d 70 6f 72 61 72 79 20 64 69 72 65 63 temporary direc
c710: 74 6f 72 79 2e 0d 0a 20 20 20 20 20 20 23 0d 0a tory... #..
c720: 20 20 20 20 20 20 69 66 20 7b 21 24 69 73 4d 65 if {!$isMe
c730: 6d 6f 72 79 20 26 26 20 24 71 75 61 6c 69 66 79 mory && $qualify
c740: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {..
c750: 20 20 73 65 74 20 66 69 6c 65 4e 61 6d 65 20 5b set fileName [
c760: 66 69 6c 65 20 6a 6f 69 6e 20 5b 67 65 74 44 61 file join [getDa
c770: 74 61 62 61 73 65 44 69 72 65 63 74 6f 72 79 5d tabaseDirectory]
c780: 20 5b 66 69 6c 65 20 74 61 69 6c 20 24 66 69 6c [file tail $fil
c790: 65 4e 61 6d 65 5d 5d 0d 0a 20 20 20 20 20 20 7d eName]].. }
c7a0: 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 .... #..
c7b0: 20 20 20 23 20 4e 4f 54 45 3a 20 43 68 65 63 6b # NOTE: Check
c7c0: 20 69 66 20 74 68 65 20 66 69 6c 65 20 73 74 69 if the file sti
c7d0: 6c 6c 20 65 78 69 73 74 73 2e 0d 0a 20 20 20 20 ll exists...
c7e0: 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 21 #.. if {!
c7f0: 24 69 73 4d 65 6d 6f 72 79 20 26 26 20 24 64 65 $isMemory && $de
c800: 6c 65 74 65 20 26 26 20 5b 66 69 6c 65 20 65 78 lete && [file ex
c810: 69 73 74 73 20 24 66 69 6c 65 4e 61 6d 65 5d 7d ists $fileName]}
c820: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 then {..
c830: 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f #.. # NO
c840: 54 45 3a 20 53 6b 69 70 20 64 65 6c 65 74 69 6e TE: Skip deletin
c850: 67 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 73 g database files
c860: 20 69 66 20 73 6f 6d 65 62 6f 64 79 20 73 65 74 if somebody set
c870: 73 20 74 68 65 20 67 6c 6f 62 61 6c 0d 0a 20 20 s the global..
c880: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 76 61 # va
c890: 72 69 61 62 6c 65 20 74 6f 20 70 72 65 76 65 6e riable to preven
c8a0: 74 20 69 74 2e 0d 0a 20 20 20 20 20 20 20 20 23 t it... #
c8b0: 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 21 5b .. if {![
c8c0: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 6e 6f info exists ::no
c8d0: 28 63 6c 65 61 6e 75 70 44 62 46 69 6c 65 29 5d (cleanupDbFile)]
c8e0: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {..
c8f0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 #..
c900: 20 23 20 4e 4f 54 45 3a 20 41 74 74 65 6d 70 74 # NOTE: Attempt
c910: 20 74 6f 20 64 65 6c 65 74 65 20 74 68 65 20 74 to delete the t
c920: 65 73 74 20 64 61 74 61 62 61 73 65 20 66 69 6c est database fil
c930: 65 20 6e 6f 77 2e 0d 0a 20 20 20 20 20 20 20 20 e now...
c940: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 69 #.. i
c950: 66 20 7b 5b 73 65 74 20 63 6f 64 65 20 5b 63 61 f {[set code [ca
c960: 74 63 68 20 7b 66 69 6c 65 20 64 65 6c 65 74 65 tch {file delete
c970: 20 24 66 69 6c 65 4e 61 6d 65 7d 20 65 72 72 6f $fileName} erro
c980: 72 5d 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 r]]} then {..
c990: 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 #..
c9a0: 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 # NOTE:
c9b0: 57 65 20 73 6f 6d 65 68 6f 77 20 66 61 69 6c 65 We somehow faile
c9c0: 64 20 74 6f 20 64 65 6c 65 74 65 20 74 68 65 20 d to delete the
c9d0: 66 69 6c 65 2c 20 72 65 70 6f 72 74 20 77 68 79 file, report why
c9e0: 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 ... #
c9f0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 70 .. tp
ca00: 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e uts $::test_chan
ca10: 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 nel [appendArgs
ca20: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 \..
ca30: 20 20 20 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e 47 "==== WARNING
ca40: 3a 20 66 61 69 6c 65 64 20 74 6f 20 64 65 6c 65 : failed to dele
ca50: 74 65 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 te database file
ca60: 20 5c 22 22 20 24 66 69 6c 65 4e 61 6d 65 20 5c \"" $fileName \
ca70: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
ca80: 20 20 22 5c 22 20 64 75 72 69 6e 67 20 63 6c 65 "\" during cle
ca90: 61 6e 75 70 2c 20 65 72 72 6f 72 3a 20 22 20 5c anup, error: " \
caa0: 6e 5c 74 20 24 65 72 72 6f 72 20 5c 6e 5d 0d 0a n\t $error \n]..
cab0: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 }..
cac0: 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 } else {..
cad0: 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 #..
cae0: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 68 # NOTE: Sh
caf0: 6f 77 20 74 68 61 74 20 77 65 20 73 6b 69 70 70 ow that we skipp
cb00: 65 64 20 64 65 6c 65 74 69 6e 67 20 74 68 65 20 ed deleting the
cb10: 66 69 6c 65 2e 0d 0a 20 20 20 20 20 20 20 20 20 file...
cb20: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 73 65 #.. se
cb30: 74 20 63 6f 64 65 20 30 0d 0a 0d 0a 20 20 20 20 t code 0....
cb40: 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 tputs $::t
cb50: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 est_channel [app
cb60: 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 endArgs \..
cb70: 20 20 20 20 20 20 20 20 20 22 3d 3d 3d 3d 20 57 "==== W
cb80: 41 52 4e 49 4e 47 3a 20 73 6b 69 70 70 65 64 20 ARNING: skipped
cb90: 64 65 6c 65 74 69 6e 67 20 64 61 74 61 62 61 73 deleting databas
cba0: 65 20 66 69 6c 65 20 5c 22 22 20 24 66 69 6c 65 e file \"" $file
cbb0: 4e 61 6d 65 20 5c 0d 0a 20 20 20 20 20 20 20 20 Name \..
cbc0: 20 20 20 20 20 20 22 5c 22 20 64 75 72 69 6e 67 "\" during
cbd0: 20 63 6c 65 61 6e 75 70 5c 6e 22 5d 0d 0a 20 20 cleanup\n"]..
cbe0: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d }.. }
cbf0: 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 else {..
cc00: 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f #.. # NO
cc10: 54 45 3a 20 54 68 65 20 66 69 6c 65 20 64 6f 65 TE: The file doe
cc20: 73 20 6e 6f 74 20 65 78 69 73 74 2c 20 73 75 63 s not exist, suc
cc30: 63 65 73 73 21 0d 0a 20 20 20 20 20 20 20 20 23 cess!.. #
cc40: 0d 0a 20 20 20 20 20 20 20 20 73 65 74 20 63 6f .. set co
cc50: 64 65 20 30 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d de 0.. }...
cc60: 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 63 . return $c
cc70: 6f 64 65 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 ode.. }.....
cc80: 20 20 20 70 72 6f 63 20 73 65 74 75 70 44 62 49 proc setupDbI
cc90: 6e 74 65 72 72 75 70 74 43 61 6c 6c 62 61 63 6b nterruptCallback
cca0: 20 7b 20 63 68 61 6e 6e 65 6c 20 6c 6f 67 20 7d { channel log }
ccb0: 20 7b 0d 0a 20 20 20 20 20 20 74 70 75 74 73 20 {.. tputs
ccc0: 24 63 68 61 6e 6e 65 6c 20 22 2d 2d 2d 2d 20 73 $channel "---- s
ccd0: 65 74 74 69 6e 67 20 75 70 20 64 65 62 75 67 67 etting up debugg
cce0: 65 72 20 69 6e 74 65 72 72 75 70 74 20 63 61 6c er interrupt cal
ccf0: 6c 62 61 63 6b 2e 2e 2e 20 22 0d 0a 0d 0a 20 20 lback... "....
cd00: 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b if {[catch {
cd10: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #..
cd20: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 4d 61 6b # NOTE: Mak
cd30: 65 20 73 75 72 65 20 74 68 65 20 73 63 72 69 70 e sure the scrip
cd40: 74 20 64 65 62 75 67 67 65 72 20 61 6e 64 20 74 t debugger and t
cd50: 68 65 20 69 73 6f 6c 61 74 65 64 20 69 6e 74 65 he isolated inte
cd60: 72 70 72 65 74 65 72 20 61 72 65 0d 0a 20 20 20 rpreter are..
cd70: 20 20 20 20 20 23 20 20 20 20 20 20 20 73 65 74 # set
cd80: 75 70 20 61 6e 64 20 72 65 61 64 79 20 66 6f 72 up and ready for
cd90: 20 75 73 65 2e 0d 0a 20 20 20 20 20 20 20 20 23 use... #
cda0: 0d 0a 20 20 20 20 20 20 20 20 64 65 62 75 67 20 .. debug
cdb0: 73 65 74 75 70 20 74 72 75 65 20 74 72 75 65 0d setup true true.
cdc0: 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 ... #..
cdd0: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 4c 6f # NOTE: Lo
cde0: 61 64 20 74 68 65 20 6e 65 63 65 73 73 61 72 79 ad the necessary
cdf0: 20 70 61 63 6b 61 67 65 73 20 69 6e 74 6f 20 74 packages into t
ce00: 68 65 20 69 73 6f 6c 61 74 65 64 20 69 6e 74 65 he isolated inte
ce10: 72 70 72 65 74 65 72 2e 0d 0a 20 20 20 20 20 20 rpreter...
ce20: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 64 65 62 #.. deb
ce30: 75 67 20 65 76 61 6c 20 7b 0d 0a 20 20 20 20 20 ug eval {..
ce40: 20 20 20 20 20 70 61 63 6b 61 67 65 20 72 65 71 package req
ce50: 75 69 72 65 20 45 61 67 6c 65 0d 0a 20 20 20 20 uire Eagle..
ce60: 20 20 20 20 20 20 70 61 63 6b 61 67 65 20 72 65 package re
ce70: 71 75 69 72 65 20 45 61 67 6c 65 2e 4c 69 62 72 quire Eagle.Libr
ce80: 61 72 79 0d 0a 20 20 20 20 20 20 20 20 20 20 70 ary.. p
ce90: 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 45 ackage require E
cea0: 61 67 6c 65 2e 54 65 73 74 0d 0a 20 20 20 20 20 agle.Test..
ceb0: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 }....
cec0: 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT
ced0: 45 3a 20 43 6f 70 79 20 74 68 65 20 6e 65 63 65 E: Copy the nece
cee0: 73 73 61 72 79 20 76 61 72 69 61 62 6c 65 73 20 ssary variables
cef0: 69 6e 74 6f 20 74 68 65 20 69 73 6f 6c 61 74 65 into the isolate
cf00: 64 20 69 6e 74 65 72 70 72 65 74 65 72 2e 0d 0a d interpreter...
cf10: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #..
cf20: 20 20 20 64 65 62 75 67 20 69 6e 76 6f 6b 65 20 debug invoke
cf30: 30 20 73 65 74 20 3a 3a 74 65 73 74 5f 63 68 61 0 set ::test_cha
cf40: 6e 6e 65 6c 20 24 63 68 61 6e 6e 65 6c 3b 20 23 nnel $channel; #
cf50: 20 4e 4f 54 45 3a 20 46 6f 72 20 5b 74 70 75 74 NOTE: For [tput
cf60: 73 5d 2e 0d 0a 20 20 20 20 20 20 20 20 64 65 62 s]... deb
cf70: 75 67 20 69 6e 76 6f 6b 65 20 30 20 73 65 74 20 ug invoke 0 set
cf80: 3a 3a 74 65 73 74 5f 6c 6f 67 20 24 6c 6f 67 3b ::test_log $log;
cf90: 20 23 20 4e 4f 54 45 3a 20 46 6f 72 20 5b 74 6c # NOTE: For [tl
cfa0: 6f 67 5d 2e 0d 0a 0d 0a 20 20 20 20 20 20 20 20 og].....
cfb0: 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT
cfc0: 45 3a 20 49 6e 73 74 61 6c 6c 20 74 68 65 20 63 E: Install the c
cfd0: 61 6c 6c 62 61 63 6b 20 73 63 72 69 70 74 20 74 allback script t
cfe0: 6f 20 62 65 20 65 76 61 6c 75 61 74 65 64 20 69 o be evaluated i
cff0: 6e 20 74 68 65 20 69 73 6f 6c 61 74 65 64 0d 0a n the isolated..
d000: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 #
d010: 69 6e 74 65 72 70 72 65 74 65 72 20 77 68 65 6e interpreter when
d020: 20 74 68 69 73 20 69 6e 74 65 72 70 72 65 74 65 this interprete
d030: 72 20 69 73 20 69 6e 74 65 72 72 75 70 74 65 64 r is interrupted
d040: 20 62 79 20 73 63 72 69 70 74 0d 0a 20 20 20 20 by script..
d050: 20 20 20 20 23 20 20 20 20 20 20 20 63 61 6e 63 # canc
d060: 65 6c 6c 61 74 69 6f 6e 2c 20 65 74 63 2e 0d 0a ellation, etc...
d070: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #..
d080: 20 20 20 64 65 62 75 67 20 63 61 6c 6c 62 61 63 debug callbac
d090: 6b 20 61 70 70 6c 79 20 7b 7b 73 65 6e 64 65 72 k apply {{sender
d0a0: 20 65 7d 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 e} {..
d0b0: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 #.. #
d0c0: 4e 4f 54 45 3a 20 43 68 65 63 6b 20 69 66 20 74 NOTE: Check if t
d0d0: 68 69 73 20 63 61 6c 6c 62 61 63 6b 20 69 73 20 his callback is
d0e0: 6f 6e 65 20 74 68 61 74 20 77 65 20 63 61 72 65 one that we care
d0f0: 20 61 62 6f 75 74 2e 0d 0a 20 20 20 20 20 20 20 about...
d100: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 #..
d110: 69 66 20 7b 22 43 61 6e 63 65 6c 65 64 22 20 69 if {"Canceled" i
d120: 6e 20 5b 73 70 6c 69 74 20 5b 24 65 20 49 6e 74 n [split [$e Int
d130: 65 72 72 75 70 74 54 79 70 65 5d 20 22 2c 20 22 erruptType] ", "
d140: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 ]} then {..
d150: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
d160: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 49 74 # NOTE: It
d170: 65 72 61 74 65 20 74 68 72 6f 75 67 68 20 61 6c erate through al
d180: 6c 20 64 61 74 61 62 61 73 65 20 63 6f 6e 6e 65 l database conne
d190: 63 74 69 6f 6e 73 20 6b 6e 6f 77 6e 20 74 6f 20 ctions known to
d1a0: 74 68 65 0d 0a 20 20 20 20 20 20 20 20 20 20 20 the..
d1b0: 20 23 20 20 20 20 20 20 20 70 61 72 65 6e 74 20 # parent
d1c0: 69 6e 74 65 72 70 72 65 74 65 72 2e 0d 0a 20 20 interpreter...
d1d0: 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 #..
d1e0: 20 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74 20 object
d1f0: 66 6f 72 65 61 63 68 20 2d 61 6c 69 61 73 20 70 foreach -alias p
d200: 61 69 72 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 air \..
d210: 20 20 20 20 20 20 20 5b 6f 62 6a 65 63 74 20 69 [object i
d220: 6e 76 6f 6b 65 20 2d 66 6c 61 67 73 20 2b 4e 6f nvoke -flags +No
d230: 6e 50 75 62 6c 69 63 20 24 65 20 49 6e 74 65 72 nPublic $e Inter
d240: 70 72 65 74 65 72 2e 63 6f 6e 6e 65 63 74 69 6f preter.connectio
d250: 6e 73 5d 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 ns] {..
d260: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #..
d270: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 41 74 # NOTE: At
d280: 74 65 6d 70 74 20 74 6f 20 63 61 6e 63 65 6c 20 tempt to cancel
d290: 61 6e 79 20 53 51 4c 20 71 75 65 72 69 65 73 20 any SQL queries
d2a0: 69 6e 20 70 72 6f 67 72 65 73 73 20 6f 6e 20 74 in progress on t
d2b0: 68 69 73 0d 0a 20 20 20 20 20 20 20 20 20 20 20 his..
d2c0: 20 20 20 23 20 20 20 20 20 20 20 64 61 74 61 62 # datab
d2d0: 61 73 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 0d ase connection..
d2e0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 . #
d2f0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
d300: 69 66 20 7b 5b 63 61 74 63 68 20 7b 24 70 61 69 if {[catch {$pai
d310: 72 20 56 61 6c 75 65 2e 43 61 6e 63 65 6c 7d 20 r Value.Cancel}
d320: 65 72 72 6f 72 5d 20 21 3d 20 30 7d 20 74 68 65 error] != 0} the
d330: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 n {..
d340: 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 tputs $::te
d350: 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 st_channel [appe
d360: 6e 64 41 72 67 73 20 5c 6e 20 5c 0d 0a 20 20 20 ndArgs \n \..
d370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
d380: 20 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e 47 3a 20 "==== WARNING:
d390: 66 61 69 6c 65 64 20 74 6f 20 63 61 6e 63 65 6c failed to cancel
d3a0: 20 71 75 65 72 79 20 66 6f 72 20 63 6f 6e 6e 65 query for conne
d3b0: 63 74 69 6f 6e 20 5c 22 22 20 5c 0d 0a 20 20 20 ction \"" \..
d3c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
d3d0: 20 5b 24 70 61 69 72 20 4b 65 79 5d 20 22 5c 22 [$pair Key] "\"
d3e0: 2c 20 65 72 72 6f 72 3a 20 22 20 5c 6e 5c 74 20 , error: " \n\t
d3f0: 24 65 72 72 6f 72 20 5c 6e 5d 0d 0a 20 20 20 20 $error \n]..
d400: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 }..
d410: 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 }..
d420: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 }..
d430: 20 7d 7d 0d 0a 20 20 20 20 20 20 7d 20 65 72 72 }}.. } err
d440: 6f 72 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b or] == 0} then {
d450: 0d 0a 20 20 20 20 20 20 20 20 61 64 64 43 6f 6e .. addCon
d460: 73 74 72 61 69 6e 74 20 69 6e 74 65 72 72 75 70 straint interrup
d470: 74 43 61 6c 6c 62 61 63 6b 2e 73 71 6c 69 74 65 tCallback.sqlite
d480: 33 0d 0a 0d 0a 20 20 20 20 20 20 20 20 74 70 75 3.... tpu
d490: 74 73 20 24 63 68 61 6e 6e 65 6c 20 79 65 73 5c ts $channel yes\
d4a0: 6e 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20 n.. } else
d4b0: 7b 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 {.. tputs
d4c0: 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e $channel [appen
d4d0: 64 41 72 67 73 20 22 6e 6f 2c 20 65 72 72 6f 72 dArgs "no, error
d4e0: 3a 20 22 20 5c 6e 5c 74 20 24 65 72 72 6f 72 20 : " \n\t $error
d4f0: 5c 6e 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 \n].. }..
d500: 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 }..... proc
d510: 20 63 6c 65 61 6e 75 70 46 69 6c 65 20 7b 20 66 cleanupFile { f
d520: 69 6c 65 4e 61 6d 65 20 7b 63 6f 6c 6c 65 63 74 ileName {collect
d530: 20 74 72 75 65 7d 20 7b 66 6f 72 63 65 20 66 61 true} {force fa
d540: 6c 73 65 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 20 lse} } {..
d550: 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a #.. # NOTE:
d560: 20 41 74 74 65 6d 70 74 20 74 6f 20 66 6f 72 63 Attempt to forc
d570: 65 20 61 6c 6c 20 70 65 6e 64 69 6e 67 20 22 67 e all pending "g
d580: 61 72 62 61 67 65 22 20 6f 62 6a 65 63 74 73 20 arbage" objects
d590: 74 6f 20 62 65 20 63 6f 6c 6c 65 63 74 65 64 2c to be collected,
d5a0: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. #
d5b0: 69 6e 63 6c 75 64 69 6e 67 20 53 51 4c 69 74 65 including SQLite
d5c0: 20 73 74 61 74 65 6d 65 6e 74 73 20 61 6e 64 20 statements and
d5d0: 62 61 63 6b 75 70 20 6f 62 6a 65 63 74 73 3b 20 backup objects;
d5e0: 74 68 69 73 20 73 68 6f 75 6c 64 20 61 6c 6c 6f this should allo
d5f0: 77 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 w.. #
d600: 20 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 the underlying
d610: 64 61 74 61 62 61 73 65 20 66 69 6c 65 20 74 6f database file to
d620: 20 62 65 20 64 65 6c 65 74 65 64 2e 0d 0a 20 20 be deleted...
d630: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 #.. if
d640: 7b 24 63 6f 6c 6c 65 63 74 7d 20 74 68 65 6e 20 {$collect} then
d650: 7b 0d 0a 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 {.. colle
d660: 63 74 47 61 72 62 61 67 65 20 24 3a 3a 74 65 73 ctGarbage $::tes
d670: 74 5f 63 68 61 6e 6e 65 6c 0d 0a 20 20 20 20 20 t_channel..
d680: 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 }.... #..
d690: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 43 68 65 # NOTE: Che
d6a0: 63 6b 20 69 66 20 74 68 65 20 66 69 6c 65 20 73 ck if the file s
d6b0: 74 69 6c 6c 20 65 78 69 73 74 73 2e 0d 0a 20 20 till exists...
d6c0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 #.. if
d6d0: 7b 5b 66 69 6c 65 20 65 78 69 73 74 73 20 24 66 {[file exists $f
d6e0: 69 6c 65 4e 61 6d 65 5d 7d 20 74 68 65 6e 20 7b ileName]} then {
d6f0: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #..
d700: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 6b 69 # NOTE: Ski
d710: 70 20 64 65 6c 65 74 69 6e 67 20 74 65 73 74 20 p deleting test
d720: 66 69 6c 65 73 20 69 66 20 73 6f 6d 65 62 6f 64 files if somebod
d730: 79 20 73 65 74 73 20 74 68 65 20 67 6c 6f 62 61 y sets the globa
d740: 6c 20 76 61 72 69 61 62 6c 65 0d 0a 20 20 20 20 l variable..
d750: 20 20 20 20 23 20 20 20 20 20 20 20 74 6f 20 70 # to p
d760: 72 65 76 65 6e 74 20 69 74 2e 0d 0a 20 20 20 20 revent it...
d770: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 69 #.. i
d780: 66 20 7b 24 66 6f 72 63 65 20 7c 7c 20 21 5b 69 f {$force || ![i
d790: 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 6e 6f 28 nfo exists ::no(
d7a0: 63 6c 65 61 6e 75 70 46 69 6c 65 29 5d 7d 20 74 cleanupFile)]} t
d7b0: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 hen {..
d7c0: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 #.. #
d7d0: 4e 4f 54 45 3a 20 41 74 74 65 6d 70 74 20 74 6f NOTE: Attempt to
d7e0: 20 64 65 6c 65 74 65 20 74 68 65 20 74 65 73 74 delete the test
d7f0: 20 66 69 6c 65 20 6e 6f 77 2e 0d 0a 20 20 20 20 file now...
d800: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
d810: 20 20 20 69 66 20 7b 5b 73 65 74 20 63 6f 64 65 if {[set code
d820: 20 5b 63 61 74 63 68 20 7b 66 69 6c 65 20 64 65 [catch {file de
d830: 6c 65 74 65 20 24 66 69 6c 65 4e 61 6d 65 7d 20 lete $fileName}
d840: 65 72 72 6f 72 5d 5d 7d 20 74 68 65 6e 20 7b 0d error]]} then {.
d850: 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 0d 0a . #..
d860: 20 20 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f # NO
d870: 54 45 3a 20 57 65 20 73 6f 6d 65 68 6f 77 20 66 TE: We somehow f
d880: 61 69 6c 65 64 20 74 6f 20 64 65 6c 65 74 65 20 ailed to delete
d890: 74 68 65 20 66 69 6c 65 2c 20 72 65 70 6f 72 74 the file, report
d8a0: 20 77 68 79 2e 0d 0a 20 20 20 20 20 20 20 20 20 why...
d8b0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 #..
d8c0: 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f tputs $::test_
d8d0: 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 channel [appendA
d8e0: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 rgs \..
d8f0: 20 20 20 20 20 20 20 22 3d 3d 3d 3d 20 57 41 52 "==== WAR
d900: 4e 49 4e 47 3a 20 66 61 69 6c 65 64 20 74 6f 20 NING: failed to
d910: 64 65 6c 65 74 65 20 74 65 73 74 20 66 69 6c 65 delete test file
d920: 20 5c 22 22 20 24 66 69 6c 65 4e 61 6d 65 20 5c \"" $fileName \
d930: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
d940: 20 20 22 5c 22 20 64 75 72 69 6e 67 20 63 6c 65 "\" during cle
d950: 61 6e 75 70 2c 20 65 72 72 6f 72 3a 20 22 20 5c anup, error: " \
d960: 6e 5c 74 20 24 65 72 72 6f 72 20 5c 6e 5d 0d 0a n\t $error \n]..
d970: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 }..
d980: 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 } else {..
d990: 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 #..
d9a0: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 68 # NOTE: Sh
d9b0: 6f 77 20 74 68 61 74 20 77 65 20 73 6b 69 70 70 ow that we skipp
d9c0: 65 64 20 64 65 6c 65 74 69 6e 67 20 74 68 65 20 ed deleting the
d9d0: 66 69 6c 65 2e 0d 0a 20 20 20 20 20 20 20 20 20 file...
d9e0: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 73 65 #.. se
d9f0: 74 20 63 6f 64 65 20 30 0d 0a 0d 0a 20 20 20 20 t code 0....
da00: 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 tputs $::t
da10: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 est_channel [app
da20: 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 endArgs \..
da30: 20 20 20 20 20 20 20 20 20 22 3d 3d 3d 3d 20 57 "==== W
da40: 41 52 4e 49 4e 47 3a 20 73 6b 69 70 70 65 64 20 ARNING: skipped
da50: 64 65 6c 65 74 69 6e 67 20 74 65 73 74 20 66 69 deleting test fi
da60: 6c 65 20 5c 22 22 20 24 66 69 6c 65 4e 61 6d 65 le \"" $fileName
da70: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \..
da80: 20 20 22 5c 22 20 64 75 72 69 6e 67 20 63 6c 65 "\" during cle
da90: 61 6e 75 70 5c 6e 22 5d 0d 0a 20 20 20 20 20 20 anup\n"]..
daa0: 20 20 7d 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 }.. } els
dab0: 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a e {.. #..
dac0: 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 # NOTE:
dad0: 54 68 65 20 66 69 6c 65 20 64 6f 65 73 20 6e 6f The file does no
dae0: 74 20 65 78 69 73 74 2c 20 73 75 63 63 65 73 73 t exist, success
daf0: 21 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 !.. #..
db00: 20 20 20 20 20 20 73 65 74 20 63 6f 64 65 20 30 set code 0
db10: 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 .. }....
db20: 20 20 20 72 65 74 75 72 6e 20 24 63 6f 64 65 0d return $code.
db30: 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 . }..... p
db40: 72 6f 63 20 63 6f 6c 6c 65 63 74 47 61 72 62 61 roc collectGarba
db50: 67 65 20 7b 20 63 68 61 6e 6e 65 6c 20 7b 6d 69 ge { channel {mi
db60: 6c 6c 69 73 65 63 6f 6e 64 73 20 31 30 30 30 7d lliseconds 1000}
db70: 20 7b 71 75 69 65 74 20 74 72 75 65 7d 20 7d 20 {quiet true} }
db80: 7b 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 63 61 {.. if {[ca
db90: 74 63 68 20 7b 6f 62 6a 65 63 74 20 69 6e 76 6f tch {object invo
dba0: 6b 65 20 47 43 20 47 65 74 54 6f 74 61 6c 4d 65 ke GC GetTotalMe
dbb0: 6d 6f 72 79 20 66 61 6c 73 65 7d 20 72 65 73 75 mory false} resu
dbc0: 6c 74 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b lt] == 0} then {
dbd0: 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 21 24 .. if {!$
dbe0: 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 quiet} then {..
dbf0: 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 tputs $
dc00: 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 channel [appendA
dc10: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 rgs \..
dc20: 20 20 20 20 20 22 2d 2d 2d 2d 20 6d 65 6d 6f 72 "---- memor
dc30: 79 20 69 6e 20 75 73 65 20 62 79 20 74 68 65 20 y in use by the
dc40: 43 4c 52 20 62 65 66 6f 72 65 20 63 6f 6c 6c 65 CLR before colle
dc50: 63 74 69 6f 6e 2e 2e 2e 20 22 20 5c 0d 0a 20 20 ction... " \..
dc60: 20 20 20 20 20 20 20 20 20 20 20 20 24 72 65 73 $res
dc70: 75 6c 74 20 22 20 62 79 74 65 73 5c 6e 22 5d 0d ult " bytes\n"].
dc80: 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 . }..
dc90: 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 } else {..
dca0: 20 20 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e tputs $chann
dcb0: 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c el [appendArgs \
dcc0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 3d .. "=
dcd0: 3d 3d 3d 20 57 41 52 4e 49 4e 47 3a 20 66 61 69 === WARNING: fai
dce0: 6c 65 64 20 74 6f 20 67 65 74 20 43 4c 52 20 6d led to get CLR m
dcf0: 65 6d 6f 72 79 20 75 73 61 67 65 2c 20 65 72 72 emory usage, err
dd00: 6f 72 3a 20 22 20 5c 0d 0a 20 20 20 20 20 20 20 or: " \..
dd10: 20 20 20 20 20 5c 6e 5c 74 20 24 72 65 73 75 6c \n\t $resul
dd20: 74 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a t \n].. }..
dd30: 0d 0a 20 20 20 20 20 20 23 23 23 23 23 23 23 23 .. ########
dd40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
dd50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
dd60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
dd70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
dd80: 23 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 #.... #..
dd90: 20 20 20 20 23 20 4e 4f 54 45 3a 20 52 65 70 65 # NOTE: Repe
dda0: 61 74 65 64 6c 79 20 61 74 74 65 6d 70 74 20 74 atedly attempt t
ddb0: 6f 20 63 6f 6c 6c 65 63 74 20 67 61 72 62 61 67 o collect garbag
ddc0: 65 20 75 6e 74 69 6c 20 74 68 65 20 61 6c 6c 6f e until the allo
ddd0: 74 74 65 64 20 6e 75 6d 62 65 72 0d 0a 20 20 20 tted number..
dde0: 20 20 20 23 20 20 20 20 20 20 20 6f 66 20 6d 69 # of mi
ddf0: 6c 6c 69 73 65 63 6f 6e 64 73 20 68 61 73 20 65 lliseconds has e
de00: 6c 61 70 73 65 64 2e 20 20 41 6c 77 61 79 73 20 lapsed. Always
de10: 61 74 74 65 6d 70 74 20 74 6f 20 63 6f 6c 6c 65 attempt to colle
de20: 63 74 20 67 61 72 62 61 67 65 0d 0a 20 20 20 20 ct garbage..
de30: 20 20 23 20 20 20 20 20 20 20 61 74 20 6c 65 61 # at lea
de40: 73 74 20 6f 6e 63 65 2e 0d 0a 20 20 20 20 20 20 st once...
de50: 23 0d 0a 20 20 20 20 20 20 73 65 74 20 73 74 61 #.. set sta
de60: 72 74 20 5b 63 6c 6f 63 6b 20 73 65 63 6f 6e 64 rt [clock second
de70: 73 5d 0d 0a 20 20 20 20 20 20 73 65 74 20 73 74 s].. set st
de80: 6f 70 20 5b 65 78 70 72 20 7b 24 73 74 61 72 74 op [expr {$start
de90: 20 2b 20 28 24 6d 69 6c 6c 69 73 65 63 6f 6e 64 + ($millisecond
dea0: 73 20 2f 20 31 30 30 30 29 7d 5d 0d 0a 0d 0a 20 s / 1000)}]....
deb0: 20 20 20 20 20 64 6f 20 7b 0d 0a 20 20 20 20 20 do {..
dec0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 #.. #
ded0: 4e 4f 54 45 3a 20 41 74 74 65 6d 70 74 20 74 6f NOTE: Attempt to
dee0: 20 66 6f 72 63 65 20 61 20 66 75 6c 6c 20 67 61 force a full ga
def0: 72 62 61 67 65 20 63 6f 6c 6c 65 63 74 69 6f 6e rbage collection
df00: 20 6e 6f 77 2e 20 20 52 65 70 6f 72 74 20 61 6e now. Report an
df10: 79 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 y.. #
df20: 20 20 20 65 72 72 6f 72 20 74 68 61 74 20 69 73 error that is
df30: 20 65 6e 63 6f 75 6e 74 65 72 65 64 20 69 66 20 encountered if
df40: 77 65 20 66 61 69 6c 2e 0d 0a 20 20 20 20 20 20 we fail...
df50: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 69 66 20 #.. if
df60: 7b 5b 63 61 74 63 68 20 7b 6f 62 6a 65 63 74 20 {[catch {object
df70: 69 6e 76 6f 6b 65 20 47 43 20 47 65 74 54 6f 74 invoke GC GetTot
df80: 61 6c 4d 65 6d 6f 72 79 20 74 72 75 65 7d 20 65 alMemory true} e
df90: 72 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 rror]} then {..
dfa0: 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 tputs $
dfb0: 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 channel [appendA
dfc0: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 rgs \..
dfd0: 20 20 20 20 20 22 3d 3d 3d 3d 20 57 41 52 4e 49 "==== WARNI
dfe0: 4e 47 3a 20 66 61 69 6c 65 64 20 66 75 6c 6c 20 NG: failed full
dff0: 67 61 72 62 61 67 65 20 63 6f 6c 6c 65 63 74 69 garbage collecti
e000: 6f 6e 2c 20 65 72 72 6f 72 3a 20 22 20 5c 0d 0a on, error: " \..
e010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 6e \n
e020: 5c 74 20 24 65 72 72 6f 72 20 5c 6e 5d 0d 0a 20 \t $error \n]..
e030: 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 }....
e040: 20 20 20 20 73 65 74 20 6e 6f 77 20 5b 63 6c 6f set now [clo
e050: 63 6b 20 73 65 63 6f 6e 64 73 5d 0d 0a 20 20 20 ck seconds]..
e060: 20 20 20 7d 20 77 68 69 6c 65 20 7b 24 73 74 61 } while {$sta
e070: 72 74 20 3c 3d 20 24 6e 6f 77 20 26 26 20 24 6e rt <= $now && $n
e080: 6f 77 20 3c 20 24 73 74 6f 70 7d 0d 0a 0d 0a 20 ow < $stop}....
e090: 20 20 20 20 20 23 23 23 23 23 23 23 23 23 23 23 ###########
e0a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
e0b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
e0c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
e0d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a ##############..
e0e0: 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 .. if {[cat
e0f0: 63 68 20 7b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b ch {object invok
e100: 65 20 47 43 20 47 65 74 54 6f 74 61 6c 4d 65 6d e GC GetTotalMem
e110: 6f 72 79 20 66 61 6c 73 65 7d 20 72 65 73 75 6c ory false} resul
e120: 74 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d t] == 0} then {.
e130: 0a 20 20 20 20 20 20 20 20 69 66 20 7b 21 24 71 . if {!$q
e140: 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 uiet} then {..
e150: 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63 tputs $c
e160: 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 hannel [appendAr
e170: 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 gs \..
e180: 20 20 20 20 22 2d 2d 2d 2d 20 6d 65 6d 6f 72 79 "---- memory
e190: 20 69 6e 20 75 73 65 20 62 79 20 74 68 65 20 43 in use by the C
e1a0: 4c 52 20 61 66 74 65 72 20 63 6f 6c 6c 65 63 74 LR after collect
e1b0: 69 6f 6e 2e 2e 2e 20 22 20 5c 0d 0a 20 20 20 20 ion... " \..
e1c0: 20 20 20 20 20 20 20 20 20 20 24 72 65 73 75 6c $resul
e1d0: 74 20 22 20 62 79 74 65 73 5c 6e 22 5d 0d 0a 20 t " bytes\n"]..
e1e0: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 }..
e1f0: 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 } else {..
e200: 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c tputs $channel
e210: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a [appendArgs \..
e220: 20 20 20 20 20 20 20 20 20 20 20 20 22 3d 3d 3d "===
e230: 3d 20 57 41 52 4e 49 4e 47 3a 20 66 61 69 6c 65 = WARNING: faile
e240: 64 20 74 6f 20 67 65 74 20 43 4c 52 20 6d 65 6d d to get CLR mem
e250: 6f 72 79 20 75 73 61 67 65 2c 20 65 72 72 6f 72 ory usage, error
e260: 3a 20 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 : " \..
e270: 20 20 20 5c 6e 5c 74 20 24 72 65 73 75 6c 74 20 \n\t $result
e280: 5c 6e 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 \n].. }..
e290: 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 }..... proc
e2a0: 20 67 65 74 53 51 4c 69 74 65 48 61 6e 64 6c 65 getSQLiteHandle
e2b0: 43 6f 75 6e 74 73 20 7b 20 63 68 61 6e 6e 65 6c Counts { channel
e2c0: 20 7b 71 75 69 65 74 20 66 61 6c 73 65 7d 20 7d {quiet false} }
e2d0: 20 7b 0d 0a 20 20 20 20 20 20 73 65 74 20 72 65 {.. set re
e2e0: 73 75 6c 74 20 5b 6c 69 73 74 5d 0d 0a 0d 0a 20 sult [list]....
e2f0: 20 20 20 20 20 69 66 20 7b 5b 68 61 76 65 43 6f if {[haveCo
e300: 6e 73 74 72 61 69 6e 74 20 5c 0d 0a 20 20 20 20 nstraint \..
e310: 20 20 20 20 20 20 20 20 20 20 64 65 66 69 6e 65 define
e320: 43 6f 6e 73 74 61 6e 74 2e 53 79 73 74 65 6d 2e Constant.System.
e330: 44 61 74 61 2e 53 51 4c 69 74 65 2e 43 4f 55 4e Data.SQLite.COUN
e340: 54 5f 48 41 4e 44 4c 45 5d 7d 20 74 68 65 6e 20 T_HANDLE]} then
e350: 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 {.. #..
e360: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 41 64 # NOTE: Ad
e370: 64 20 65 61 63 68 20 63 72 69 74 69 63 61 6c 20 d each critical
e380: 68 61 6e 64 6c 65 20 63 6f 75 6e 74 20 74 6f 20 handle count to
e390: 74 68 65 20 72 65 73 75 6c 74 69 6e 67 20 6c 69 the resulting li
e3a0: 73 74 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a st... #..
e3b0: 20 20 20 20 20 20 20 20 66 6f 72 65 61 63 68 20 foreach
e3c0: 6e 61 6d 65 20 5b 6c 69 73 74 20 63 6f 6e 6e 65 name [list conne
e3d0: 63 74 69 6f 6e 43 6f 75 6e 74 20 73 74 61 74 65 ctionCount state
e3e0: 6d 65 6e 74 43 6f 75 6e 74 20 62 61 63 6b 75 70 mentCount backup
e3f0: 43 6f 75 6e 74 5d 20 7b 0d 0a 20 20 20 20 20 20 Count] {..
e400: 20 20 20 20 73 65 74 20 76 61 6c 75 65 20 5b 6f set value [o
e410: 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d 66 6c bject invoke -fl
e420: 61 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 5c ags +NonPublic \
e430: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
e440: 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 System.Data.SQLi
e450: 74 65 2e 55 6e 73 61 66 65 4e 61 74 69 76 65 4d te.UnsafeNativeM
e460: 65 74 68 6f 64 73 20 24 6e 61 6d 65 5d 0d 0a 0d ethods $name]...
e470: 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 21 . if {!
e480: 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a $quiet} then {..
e490: 20 20 20 20 20 20 20 20 20 20 20 20 74 70 75 74 tput
e4a0: 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 s $channel [appe
e4b0: 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 ndArgs \..
e4c0: 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 "----
e4d0: 63 72 69 74 69 63 61 6c 20 68 61 6e 64 6c 65 20 critical handle
e4e0: 63 6f 75 6e 74 20 5c 22 22 20 24 6e 61 6d 65 20 count \"" $name
e4f0: 22 5c 22 20 69 73 20 22 20 24 76 61 6c 75 65 20 "\" is " $value
e500: 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 7d \n].. }
e510: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 6c 61 .... la
e520: 70 70 65 6e 64 20 72 65 73 75 6c 74 20 24 76 61 ppend result $va
e530: 6c 75 65 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a lue.. }..
e540: 20 20 20 20 20 20 7d 20 65 6c 73 65 69 66 20 7b } elseif {
e550: 21 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d !$quiet} then {.
e560: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #..
e570: 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 65 20 # NOTE: The
e580: 61 63 74 75 61 6c 20 68 61 6e 64 6c 65 20 63 6f actual handle co
e590: 75 6e 74 73 20 61 72 65 20 6e 6f 74 20 61 76 61 unts are not ava
e5a0: 69 6c 61 62 6c 65 3b 20 74 68 65 72 65 66 6f 72 ilable; therefor
e5b0: 65 2c 20 6a 75 73 74 0d 0a 20 20 20 20 20 20 20 e, just..
e5c0: 20 23 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 # return
e5d0: 61 6e 20 65 6d 70 74 79 20 6c 69 73 74 2e 0d 0a an empty list...
e5e0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #..
e5f0: 20 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 tputs $channe
e600: 6c 20 22 2d 2d 2d 2d 20 63 72 69 74 69 63 61 6c l "---- critical
e610: 20 68 61 6e 64 6c 65 20 63 6f 75 6e 74 73 20 75 handle counts u
e620: 6e 61 76 61 69 6c 61 62 6c 65 5c 6e 22 0d 0a 20 navailable\n"..
e630: 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 }....
e640: 72 65 74 75 72 6e 20 24 72 65 73 75 6c 74 0d 0a return $result..
e650: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 }..... pr
e660: 6f 63 20 73 68 75 74 64 6f 77 6e 53 51 4c 69 74 oc shutdownSQLit
e670: 65 20 7b 20 63 68 61 6e 6e 65 6c 20 7b 66 6f 72 e { channel {for
e680: 63 65 20 66 61 6c 73 65 7d 20 7b 71 75 69 65 74 ce false} {quiet
e690: 20 66 61 6c 73 65 7d 20 7d 20 7b 0d 0a 20 20 20 false} } {..
e6a0: 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f #.. # NO
e6b0: 54 45 3a 20 4d 61 6b 65 20 73 75 72 65 20 74 68 TE: Make sure th
e6c0: 61 74 20 53 51 4c 69 74 65 20 63 6f 72 65 20 6c at SQLite core l
e6d0: 69 62 72 61 72 79 20 69 73 20 63 6f 6d 70 6c 65 ibrary is comple
e6e0: 74 65 6c 79 20 73 68 75 74 64 6f 77 6e 2e 20 20 tely shutdown.
e6f0: 54 68 69 73 0d 0a 20 20 20 20 20 20 23 20 20 20 This.. #
e700: 20 20 20 20 69 73 20 75 73 65 64 20 62 79 20 74 is used by t
e710: 65 73 74 73 20 74 68 61 74 20 63 68 61 6e 67 65 ests that change
e720: 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 6f configuration o
e730: 70 74 69 6f 6e 73 20 61 6e 64 2f 6f 72 20 74 68 ptions and/or th
e740: 6f 73 65 0d 0a 20 20 20 20 20 20 23 20 20 20 20 ose.. #
e750: 20 20 20 74 68 61 74 20 6e 65 65 64 20 74 6f 20 that need to
e760: 6d 61 6b 65 20 73 75 72 65 20 6c 6f 67 67 69 6e make sure loggin
e770: 67 20 69 73 20 69 6e 69 74 69 61 6c 69 7a 65 64 g is initialized
e780: 20 28 69 2e 65 2e 20 6a 75 73 74 20 69 6e 20 63 (i.e. just in c
e790: 61 73 65 0d 0a 20 20 20 20 20 20 23 20 20 20 20 ase.. #
e7a0: 20 20 20 74 68 65 20 53 51 4c 69 74 65 20 63 6f the SQLite co
e7b0: 72 65 20 6c 69 62 72 61 72 79 20 77 61 73 20 69 re library was i
e7c0: 6e 69 74 69 61 6c 69 7a 65 64 20 69 6e 20 74 68 nitialized in th
e7d0: 65 20 70 72 6f 63 65 73 73 20 70 72 69 6f 72 20 e process prior
e7e0: 74 6f 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 to.. #
e7f0: 20 20 74 68 65 20 53 51 4c 69 74 65 4c 6f 67 20 the SQLiteLog
e800: 63 6c 61 73 73 20 62 65 69 6e 67 20 61 62 6c 65 class being able
e810: 20 74 6f 20 73 65 74 75 70 20 69 74 73 20 6c 6f to setup its lo
e820: 67 67 69 6e 67 20 63 61 6c 6c 62 61 63 6b 29 2e gging callback).
e830: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. #
e840: 4e 6f 72 6d 61 6c 6c 79 2c 20 74 68 69 73 20 73 Normally, this s
e850: 68 6f 75 6c 64 20 6f 6e 6c 79 20 62 65 20 70 65 hould only be pe
e860: 72 66 6f 72 6d 65 64 20 69 66 20 53 51 4c 69 74 rformed if SQLit
e870: 65 20 69 73 20 6c 6f 61 64 65 64 20 61 6e 64 0d e is loaded and.
e880: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 72 . # r
e890: 65 61 64 79 20 66 6f 72 20 75 73 65 20 62 79 20 eady for use by
e8a0: 74 68 65 20 74 65 73 74 20 73 75 69 74 65 2e 0d the test suite..
e8b0: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 . #..
e8c0: 69 66 20 7b 24 66 6f 72 63 65 20 7c 7c 20 5b 69 if {$force || [i
e8d0: 73 53 51 4c 69 74 65 52 65 61 64 79 5d 7d 20 74 sSQLiteReady]} t
e8e0: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 hen {.. #
e8f0: 0d 0a 20 20 20 20 20 20 20 20 23 20 42 55 47 46 .. # BUGF
e900: 49 58 3a 20 42 65 66 6f 72 65 20 63 61 6c 6c 69 IX: Before calli
e910: 6e 67 20 74 68 65 20 6e 61 74 69 76 65 20 73 68 ng the native sh
e920: 75 74 64 6f 77 6e 20 66 75 6e 63 74 69 6f 6e 2c utdown function,
e930: 20 6d 61 6b 65 20 73 75 72 65 20 62 6f 74 68 0d make sure both.
e940: 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 . #
e950: 20 20 20 6f 66 20 74 68 65 20 50 52 41 47 4d 41 of the PRAGMA
e960: 20 72 65 6c 61 74 65 64 20 64 69 72 65 63 74 6f related directo
e970: 72 79 20 6e 61 6d 65 73 20 61 72 65 20 66 72 65 ry names are fre
e980: 65 64 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a ed... #..
e990: 20 20 20 20 20 20 20 20 63 68 65 63 6b 46 6f 72 checkFor
e9a0: 53 51 4c 69 74 65 44 69 72 65 63 74 6f 72 69 65 SQLiteDirectorie
e9b0: 73 20 24 63 68 61 6e 6e 65 6c 20 74 72 75 65 0d s $channel true.
e9c0: 0a 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b ... if {[
e9d0: 63 61 74 63 68 20 7b 6f 62 6a 65 63 74 20 69 6e catch {object in
e9e0: 76 6f 6b 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e voke -flags +Non
e9f0: 50 75 62 6c 69 63 20 5c 0d 0a 20 20 20 20 20 20 Public \..
ea00: 20 20 20 20 20 20 20 20 20 20 53 79 73 74 65 6d System
ea10: 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 55 6e 73 .Data.SQLite.Uns
ea20: 61 66 65 4e 61 74 69 76 65 4d 65 74 68 6f 64 73 afeNativeMethods
ea30: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \..
ea40: 20 20 20 20 73 71 6c 69 74 65 33 5f 73 68 75 74 sqlite3_shut
ea50: 64 6f 77 6e 7d 20 72 65 73 75 6c 74 5d 20 3d 3d down} result] ==
ea60: 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 0} then {..
ea70: 20 20 20 20 20 20 69 66 20 7b 21 24 71 75 69 65 if {!$quie
ea80: 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 t} then {..
ea90: 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68 tputs $ch
eaa0: 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 annel [appendArg
eab0: 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 s \..
eac0: 20 20 20 20 20 22 2d 2d 2d 2d 20 63 61 6c 6c 20 "---- call
ead0: 73 71 6c 69 74 65 33 5f 73 68 75 74 64 6f 77 6e sqlite3_shutdown
eae0: 28 29 2e 2e 2e 20 6f 6b 3a 20 22 20 24 72 65 73 ()... ok: " $res
eaf0: 75 6c 74 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 ult \n]..
eb00: 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 20 }.. }
eb10: 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 else {..
eb20: 20 20 69 66 20 7b 21 24 71 75 69 65 74 7d 20 74 if {!$quiet} t
eb30: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 hen {..
eb40: 20 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 tputs $channe
eb50: 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d l [appendArgs \.
eb60: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
eb70: 20 22 2d 2d 2d 2d 20 63 61 6c 6c 20 73 71 6c 69 "---- call sqli
eb80: 74 65 33 5f 73 68 75 74 64 6f 77 6e 28 29 2e 2e te3_shutdown()..
eb90: 2e 20 65 72 72 6f 72 3a 20 22 20 5c 6e 5c 74 20 . error: " \n\t
eba0: 24 72 65 73 75 6c 74 20 5c 6e 5d 0d 0a 20 20 20 $result \n]..
ebb0: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 }..
ebc0: 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 }.. }..
ebd0: 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 }..... proc
ebe0: 20 72 65 70 6f 72 74 53 51 4c 69 74 65 52 65 73 reportSQLiteRes
ebf0: 6f 75 72 63 65 73 20 7b 20 63 68 61 6e 6e 65 6c ources { channel
ec00: 20 7b 71 75 69 65 74 20 66 61 6c 73 65 7d 20 7b {quiet false} {
ec10: 63 6f 6c 6c 65 63 74 20 74 72 75 65 7d 20 7d 20 collect true} }
ec20: 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 {.. #..
ec30: 20 20 23 20 4e 4f 54 45 3a 20 53 6b 69 70 20 61 # NOTE: Skip a
ec40: 6c 6c 20 6f 75 74 70 75 74 20 69 66 20 77 65 20 ll output if we
ec50: 61 72 65 20 72 75 6e 6e 69 6e 67 20 69 6e 20 22 are running in "
ec60: 71 75 69 65 74 22 20 6d 6f 64 65 2e 0d 0a 20 20 quiet" mode...
ec70: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 #.. if
ec80: 7b 5b 68 61 76 65 43 6f 6e 73 74 72 61 69 6e 74 {[haveConstraint
ec90: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \..
eca0: 20 20 64 65 66 69 6e 65 43 6f 6e 73 74 61 6e 74 defineConstant
ecb0: 2e 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c .System.Data.SQL
ecc0: 69 74 65 2e 49 4e 54 45 52 4f 50 5f 56 49 52 54 ite.INTEROP_VIRT
ecd0: 55 41 4c 5f 54 41 42 4c 45 5d 20 26 26 20 5c 0d UAL_TABLE] && \.
ece0: 0a 20 20 20 20 20 20 20 20 20 20 5b 68 61 76 65 . [have
ecf0: 43 6f 6e 73 74 72 61 69 6e 74 20 5c 0d 0a 20 20 Constraint \..
ed00: 20 20 20 20 20 20 20 20 20 20 20 20 64 65 66 69 defi
ed10: 6e 65 43 6f 6e 73 74 61 6e 74 2e 53 79 73 74 65 neConstant.Syste
ed20: 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 54 52 m.Data.SQLite.TR
ed30: 41 43 4b 5f 4d 45 4d 4f 52 59 5f 42 59 54 45 53 ACK_MEMORY_BYTES
ed40: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 ]} then {..
ed50: 20 20 20 69 66 20 7b 21 24 71 75 69 65 74 7d 20 if {!$quiet}
ed60: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 then {..
ed70: 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c tputs $channel
ed80: 20 22 2d 2d 2d 2d 20 63 75 72 72 65 6e 74 20 6d "---- current m
ed90: 65 6d 6f 72 79 20 69 6e 20 75 73 65 20 62 79 20 emory in use by
eda0: 53 51 4c 69 74 65 4d 65 6d 6f 72 79 2e 2e 2e 20 SQLiteMemory...
edb0: 22 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a ".. }....
edc0: 20 20 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 if {[cat
edd0: 63 68 20 7b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b ch {object invok
ede0: 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 e -flags +NonPub
edf0: 6c 69 63 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 lic \..
ee00: 20 20 20 20 20 20 20 53 79 73 74 65 6d 2e 44 61 System.Da
ee10: 74 61 2e 53 51 4c 69 74 65 2e 53 51 4c 69 74 65 ta.SQLite.SQLite
ee20: 4d 65 6d 6f 72 79 20 5c 0d 0a 20 20 20 20 20 20 Memory \..
ee30: 20 20 20 20 20 20 20 20 20 20 62 79 74 65 73 41 bytesA
ee40: 6c 6c 6f 63 61 74 65 64 7d 20 6d 65 6d 6f 72 79 llocated} memory
ee50: 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a ] == 0} then {..
ee60: 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 21 24 if {!$
ee70: 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 quiet} then {..
ee80: 20 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 tputs
ee90: 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e $channel [appen
eea0: 64 41 72 67 73 20 24 6d 65 6d 6f 72 79 20 22 20 dArgs $memory "
eeb0: 62 79 74 65 73 5c 6e 22 5d 0d 0a 20 20 20 20 20 bytes\n"]..
eec0: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 }..
eed0: 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 } else {..
eee0: 20 20 20 20 73 65 74 20 6d 65 6d 6f 72 79 20 75 set memory u
eef0: 6e 6b 6e 6f 77 6e 0d 0a 0d 0a 20 20 20 20 20 20 nknown....
ef00: 20 20 20 20 69 66 20 7b 21 24 71 75 69 65 74 7d if {!$quiet}
ef10: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 then {..
ef20: 20 20 20 20 20 74 70 75 74 73 20 24 63 68 61 6e tputs $chan
ef30: 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 nel [appendArgs
ef40: 24 6d 65 6d 6f 72 79 20 5c 6e 5d 0d 0a 20 20 20 $memory \n]..
ef50: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 }..
ef60: 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 69 }.... i
ef70: 66 20 7b 21 24 71 75 69 65 74 7d 20 74 68 65 6e f {!$quiet} then
ef80: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70 {.. tp
ef90: 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 22 2d 2d uts $channel "--
efa0: 2d 2d 20 6d 61 78 69 6d 75 6d 20 6d 65 6d 6f 72 -- maximum memor
efb0: 79 20 69 6e 20 75 73 65 20 62 79 20 53 51 4c 69 y in use by SQLi
efc0: 74 65 4d 65 6d 6f 72 79 2e 2e 2e 20 22 0d 0a 20 teMemory... "..
efd0: 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 }....
efe0: 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b if {[catch {
eff0: 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d 66 object invoke -f
f000: 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 lags +NonPublic
f010: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 \..
f020: 20 20 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 System.Data.S
f030: 51 4c 69 74 65 2e 53 51 4c 69 74 65 4d 65 6d 6f QLite.SQLiteMemo
f040: 72 79 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 ry \..
f050: 20 20 20 20 20 20 6d 61 78 69 6d 75 6d 42 79 74 maximumByt
f060: 65 73 41 6c 6c 6f 63 61 74 65 64 7d 20 6d 65 6d esAllocated} mem
f070: 6f 72 79 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20 ory] == 0} then
f080: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 {.. if
f090: 7b 21 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b {!$quiet} then {
f0a0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 70 .. tp
f0b0: 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 uts $channel [ap
f0c0: 70 65 6e 64 41 72 67 73 20 24 6d 65 6d 6f 72 79 pendArgs $memory
f0d0: 20 22 20 62 79 74 65 73 5c 6e 22 5d 0d 0a 20 20 " bytes\n"]..
f0e0: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 }..
f0f0: 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 } else {..
f100: 20 20 20 20 20 20 20 73 65 74 20 6d 65 6d 6f 72 set memor
f110: 79 20 75 6e 6b 6e 6f 77 6e 0d 0a 0d 0a 20 20 20 y unknown....
f120: 20 20 20 20 20 20 20 69 66 20 7b 21 24 71 75 69 if {!$qui
f130: 65 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 et} then {..
f140: 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63 tputs $c
f150: 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 hannel [appendAr
f160: 67 73 20 24 6d 65 6d 6f 72 79 20 5c 6e 5d 0d 0a gs $memory \n]..
f170: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 }..
f180: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d }.. }.
f190: 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 21 24 71 ... if {!$q
f1a0: 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 uiet} then {..
f1b0: 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68 61 tputs $cha
f1c0: 6e 6e 65 6c 20 22 2d 2d 2d 2d 20 63 75 72 72 65 nnel "---- curre
f1d0: 6e 74 20 6d 65 6d 6f 72 79 20 69 6e 20 75 73 65 nt memory in use
f1e0: 20 62 79 20 53 51 4c 69 74 65 2e 2e 2e 20 22 0d by SQLite... ".
f1f0: 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 . }....
f200: 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 6f 62 if {[catch {ob
f210: 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d 66 6c 61 ject invoke -fla
f220: 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 5c 0d gs +NonPublic \.
f230: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 . S
f240: 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 ystem.Data.SQLit
f250: 65 2e 55 6e 73 61 66 65 4e 61 74 69 76 65 4d 65 e.UnsafeNativeMe
f260: 74 68 6f 64 73 20 5c 0d 0a 20 20 20 20 20 20 20 thods \..
f270: 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 6d sqlite3_m
f280: 65 6d 6f 72 79 5f 75 73 65 64 7d 20 6d 65 6d 6f emory_used} memo
f290: 72 79 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b ry] == 0} then {
f2a0: 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 21 24 .. if {!$
f2b0: 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 quiet} then {..
f2c0: 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 tputs $
f2d0: 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 channel [appendA
f2e0: 72 67 73 20 24 6d 65 6d 6f 72 79 20 22 20 62 79 rgs $memory " by
f2f0: 74 65 73 5c 6e 22 5d 0d 0a 20 20 20 20 20 20 20 tes\n"]..
f300: 20 7d 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 }.. } else
f310: 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 {.. #..
f320: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 4d # NOTE: M
f330: 61 79 62 65 20 74 68 65 20 53 51 4c 69 74 65 20 aybe the SQLite
f340: 63 6f 72 65 20 6c 69 62 72 61 72 79 20 69 73 20 core library is
f350: 75 6e 61 76 61 69 6c 61 62 6c 65 3f 0d 0a 20 20 unavailable?..
f360: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
f370: 20 73 65 74 20 6d 65 6d 6f 72 79 20 75 6e 6b 6e set memory unkn
f380: 6f 77 6e 0d 0a 0d 0a 20 20 20 20 20 20 20 20 69 own.... i
f390: 66 20 7b 21 24 71 75 69 65 74 7d 20 74 68 65 6e f {!$quiet} then
f3a0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70 {.. tp
f3b0: 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 uts $channel [ap
f3c0: 70 65 6e 64 41 72 67 73 20 24 6d 65 6d 6f 72 79 pendArgs $memory
f3d0: 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 7d 0d \n].. }.
f3e0: 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 . }....
f3f0: 20 20 73 65 74 20 72 65 73 75 6c 74 20 24 6d 65 set result $me
f400: 6d 6f 72 79 3b 20 23 20 4e 4f 54 45 3a 20 52 65 mory; # NOTE: Re
f410: 74 75 72 6e 20 6d 65 6d 6f 72 79 20 69 6e 2d 75 turn memory in-u
f420: 73 65 20 74 6f 20 6f 75 72 20 63 61 6c 6c 65 72 se to our caller
f430: 2e 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 21 ..... if {!
f440: 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a $quiet} then {..
f450: 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63 tputs $c
f460: 68 61 6e 6e 65 6c 20 22 2d 2d 2d 2d 20 6d 61 78 hannel "---- max
f470: 69 6d 75 6d 20 6d 65 6d 6f 72 79 20 69 6e 20 75 imum memory in u
f480: 73 65 20 62 79 20 53 51 4c 69 74 65 2e 2e 2e 20 se by SQLite...
f490: 22 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 ".. }....
f4a0: 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b if {[catch {
f4b0: 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d 66 object invoke -f
f4c0: 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 lags +NonPublic
f4d0: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 \..
f4e0: 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c System.Data.SQL
f4f0: 69 74 65 2e 55 6e 73 61 66 65 4e 61 74 69 76 65 ite.UnsafeNative
f500: 4d 65 74 68 6f 64 73 20 5c 0d 0a 20 20 20 20 20 Methods \..
f510: 20 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 sqlite3
f520: 5f 6d 65 6d 6f 72 79 5f 68 69 67 68 77 61 74 65 _memory_highwate
f530: 72 20 30 7d 20 6d 65 6d 6f 72 79 5d 20 3d 3d 20 r 0} memory] ==
f540: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 0} then {..
f550: 20 20 20 69 66 20 7b 21 24 71 75 69 65 74 7d 20 if {!$quiet}
f560: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 then {..
f570: 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c tputs $channel
f580: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 24 6d 65 [appendArgs $me
f590: 6d 6f 72 79 20 22 20 62 79 74 65 73 5c 6e 22 5d mory " bytes\n"]
f5a0: 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 .. }..
f5b0: 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 } else {..
f5c0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #..
f5d0: 23 20 4e 4f 54 45 3a 20 4d 61 79 62 65 20 74 68 # NOTE: Maybe th
f5e0: 65 20 53 51 4c 69 74 65 20 63 6f 72 65 20 6c 69 e SQLite core li
f5f0: 62 72 61 72 79 20 69 73 20 75 6e 61 76 61 69 6c brary is unavail
f600: 61 62 6c 65 3f 0d 0a 20 20 20 20 20 20 20 20 23 able?.. #
f610: 0d 0a 20 20 20 20 20 20 20 20 73 65 74 20 6d 65 .. set me
f620: 6d 6f 72 79 20 75 6e 6b 6e 6f 77 6e 0d 0a 0d 0a mory unknown....
f630: 20 20 20 20 20 20 20 20 69 66 20 7b 21 24 71 75 if {!$qu
f640: 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 iet} then {..
f650: 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68 tputs $ch
f660: 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 annel [appendArg
f670: 73 20 24 6d 65 6d 6f 72 79 20 5c 6e 5d 0d 0a 20 s $memory \n]..
f680: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 }..
f690: 7d 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 24 }.... if {$
f6a0: 63 6f 6c 6c 65 63 74 7d 20 74 68 65 6e 20 7b 0d collect} then {.
f6b0: 0a 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 . collect
f6c0: 47 61 72 62 61 67 65 20 24 63 68 61 6e 6e 65 6c Garbage $channel
f6d0: 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 .. }....
f6e0: 20 20 20 69 66 20 7b 21 24 71 75 69 65 74 7d 20 if {!$quiet}
f6f0: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 then {..
f700: 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 22 tputs $channel "
f710: 2d 2d 2d 2d 20 63 75 72 72 65 6e 74 20 6d 65 6d ---- current mem
f720: 6f 72 79 20 69 6e 20 75 73 65 20 62 79 20 74 68 ory in use by th
f730: 65 20 43 4c 52 2e 2e 2e 20 22 0d 0a 20 20 20 20 e CLR... "..
f740: 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 }.... if
f750: 7b 5b 63 61 74 63 68 20 7b 6f 62 6a 65 63 74 20 {[catch {object
f760: 69 6e 76 6f 6b 65 20 47 43 20 47 65 74 54 6f 74 invoke GC GetTot
f770: 61 6c 4d 65 6d 6f 72 79 20 66 61 6c 73 65 7d 20 alMemory false}
f780: 6d 65 6d 6f 72 79 5d 20 3d 3d 20 30 7d 20 74 68 memory] == 0} th
f790: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 69 66 en {.. if
f7a0: 20 7b 5b 73 74 72 69 6e 67 20 69 73 20 69 6e 74 {[string is int
f7b0: 65 67 65 72 20 2d 73 74 72 69 63 74 20 24 6d 65 eger -strict $me
f7c0: 6d 6f 72 79 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 mory]} then {..
f7d0: 20 20 20 20 20 20 20 20 20 69 66 20 7b 21 24 71 if {!$q
f7e0: 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 uiet} then {..
f7f0: 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 tputs
f800: 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 $channel [append
f810: 41 72 67 73 20 24 6d 65 6d 6f 72 79 20 22 20 62 Args $memory " b
f820: 79 74 65 73 5c 6e 22 5d 0d 0a 20 20 20 20 20 20 ytes\n"]..
f830: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d }.. }
f840: 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 else {..
f850: 20 20 20 73 65 74 20 6d 65 6d 6f 72 79 20 69 6e set memory in
f860: 76 61 6c 69 64 0d 0a 0d 0a 20 20 20 20 20 20 20 valid....
f870: 20 20 20 69 66 20 7b 21 24 71 75 69 65 74 7d 20 if {!$quiet}
f880: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 then {..
f890: 20 20 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e tputs $chann
f8a0: 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 24 el [appendArgs $
f8b0: 6d 65 6d 6f 72 79 20 5c 6e 5d 0d 0a 20 20 20 20 memory \n]..
f8c0: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 }..
f8d0: 20 7d 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 }.. } else
f8e0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 73 65 74 20 {.. set
f8f0: 6d 65 6d 6f 72 79 20 75 6e 6b 6e 6f 77 6e 0d 0a memory unknown..
f900: 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 21 24 .. if {!$
f910: 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 quiet} then {..
f920: 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 tputs $
f930: 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 channel [appendA
f940: 72 67 73 20 24 6d 65 6d 6f 72 79 20 5c 6e 5d 0d rgs $memory \n].
f950: 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 . }..
f960: 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 72 65 74 }.... ret
f970: 75 72 6e 20 24 72 65 73 75 6c 74 0d 0a 20 20 20 urn $result..
f980: 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 }..... proc
f990: 63 68 65 63 6b 46 6f 72 53 51 4c 69 74 65 44 69 checkForSQLiteDi
f9a0: 72 65 63 74 6f 72 69 65 73 20 7b 20 63 68 61 6e rectories { chan
f9b0: 6e 65 6c 20 7b 72 65 73 65 74 20 66 61 6c 73 65 nel {reset false
f9c0: 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a } } {.. #..
f9d0: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 43 68 # NOTE: Ch
f9e0: 65 63 6b 20 69 66 20 74 68 65 20 73 71 6c 69 74 eck if the sqlit
f9f0: 65 33 5f 77 69 6e 33 32 5f 73 65 74 5f 64 69 72 e3_win32_set_dir
fa00: 65 63 74 6f 72 79 20 66 75 6e 63 74 69 6f 6e 20 ectory function
fa10: 69 73 20 61 76 61 69 6c 61 62 6c 65 2e 0d 0a 20 is available...
fa20: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 74 70 #.. tp
fa30: 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 5c 0d 0a uts $channel \..
fa40: 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 "----
fa50: 63 68 65 63 6b 69 6e 67 20 66 6f 72 20 66 75 6e checking for fun
fa60: 63 74 69 6f 6e 20 73 71 6c 69 74 65 33 5f 77 69 ction sqlite3_wi
fa70: 6e 33 32 5f 73 65 74 5f 64 69 72 65 63 74 6f 72 n32_set_director
fa80: 79 2e 2e 2e 20 22 0d 0a 0d 0a 20 20 20 20 20 20 y... "....
fa90: 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a #.. # NOTE:
faa0: 20 54 68 69 73 20 63 61 6c 6c 20 74 6f 20 74 68 This call to th
fab0: 65 20 73 71 6c 69 74 65 33 5f 77 69 6e 33 32 5f e sqlite3_win32_
fac0: 73 65 74 5f 64 69 72 65 63 74 6f 72 79 20 66 75 set_directory fu
fad0: 6e 63 74 69 6f 6e 20 75 73 65 73 20 74 68 65 0d nction uses the.
fae0: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 69 . # i
faf0: 6e 76 61 6c 69 64 20 76 61 6c 75 65 20 30 20 66 nvalid value 0 f
fb00: 6f 72 20 74 68 65 20 66 69 72 73 74 20 61 72 67 or the first arg
fb10: 75 6d 65 6e 74 2e 20 20 54 68 69 73 20 63 6f 64 ument. This cod
fb20: 65 20 69 73 20 64 65 73 69 67 6e 65 64 0d 0a 20 e is designed..
fb30: 20 20 20 20 20 23 20 20 20 20 20 20 20 74 6f 20 # to
fb40: 63 68 65 63 6b 20 69 66 20 63 61 6c 6c 69 6e 67 check if calling
fb50: 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 77 69 the function wi
fb60: 6c 6c 20 72 61 69 73 65 20 61 6e 20 65 78 63 65 ll raise an exce
fb70: 70 74 69 6f 6e 20 28 69 2e 65 2e 0d 0a 20 20 20 ption (i.e...
fb80: 20 20 20 23 20 20 20 20 20 20 20 74 68 65 20 61 # the a
fb90: 63 74 75 61 6c 20 72 65 73 75 6c 74 20 6f 66 20 ctual result of
fba0: 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 64 6f 65 the function doe
fbb0: 73 20 6e 6f 74 20 6d 61 74 74 65 72 20 61 73 20 s not matter as
fbc0: 6c 6f 6e 67 20 61 73 20 6e 6f 0d 0a 20 20 20 20 long as no..
fbd0: 20 20 23 20 20 20 20 20 20 20 64 69 72 65 63 74 # direct
fbe0: 6f 72 79 20 69 73 20 63 68 61 6e 67 65 64 29 2e ory is changed).
fbf0: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #..
fc00: 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 if {[catch {..
fc10: 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 62 6a obj
fc20: 65 63 74 20 69 6e 76 6f 6b 65 20 2d 66 6c 61 67 ect invoke -flag
fc30: 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 5c 0d 0a s +NonPublic \..
fc40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 79 Sy
fc50: 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 stem.Data.SQLite
fc60: 2e 55 6e 73 61 66 65 4e 61 74 69 76 65 4d 65 74 .UnsafeNativeMet
fc70: 68 6f 64 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 hods \..
fc80: 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 77 69 sqlite3_wi
fc90: 6e 33 32 5f 73 65 74 5f 64 69 72 65 63 74 6f 72 n32_set_director
fca0: 79 20 30 20 6e 75 6c 6c 7d 5d 20 3d 3d 20 30 7d y 0 null}] == 0}
fcb0: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 then {..
fcc0: 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f #.. # NO
fcd0: 54 45 3a 20 43 61 6c 6c 69 6e 67 20 74 68 65 20 TE: Calling the
fce0: 73 71 6c 69 74 65 33 5f 77 69 6e 33 32 5f 73 65 sqlite3_win32_se
fcf0: 74 5f 64 69 72 65 63 74 6f 72 79 20 66 75 6e 63 t_directory func
fd00: 74 69 6f 6e 20 64 6f 65 73 20 6e 6f 74 0d 0a 20 tion does not..
fd10: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 63 # c
fd20: 61 75 73 65 20 61 6e 20 65 78 63 65 70 74 69 6f ause an exceptio
fd30: 6e 3b 20 74 68 65 72 65 66 6f 72 65 2c 20 69 74 n; therefore, it
fd40: 20 6d 75 73 74 20 62 65 20 61 76 61 69 6c 61 62 must be availab
fd50: 6c 65 20 28 69 2e 65 2e 0d 0a 20 20 20 20 20 20 le (i.e...
fd60: 20 20 23 20 20 20 20 20 20 20 65 76 65 6e 20 74 # even t
fd70: 68 6f 75 67 68 20 69 74 20 73 68 6f 75 6c 64 20 hough it should
fd80: 72 65 74 75 72 6e 20 61 20 66 61 69 6c 75 72 65 return a failure
fd90: 20 72 65 74 75 72 6e 20 63 6f 64 65 20 69 6e 20 return code in
fda0: 74 68 69 73 0d 0a 20 20 20 20 20 20 20 20 23 20 this.. #
fdb0: 20 20 20 20 20 20 63 61 73 65 29 2e 0d 0a 20 20 case)...
fdc0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
fdd0: 20 61 64 64 43 6f 6e 73 74 72 61 69 6e 74 20 73 addConstraint s
fde0: 71 6c 69 74 65 33 5f 77 69 6e 33 32 5f 73 65 74 qlite3_win32_set
fdf0: 5f 64 69 72 65 63 74 6f 72 79 0d 0a 0d 0a 20 20 _directory....
fe00: 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68 61 tputs $cha
fe10: 6e 6e 65 6c 20 79 65 73 5c 6e 0d 0a 0d 0a 20 20 nnel yes\n....
fe20: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
fe30: 20 23 20 4e 4f 54 45 3a 20 44 6f 65 73 20 6f 75 # NOTE: Does ou
fe40: 72 20 63 61 6c 6c 65 72 20 77 61 6e 74 20 74 6f r caller want to
fe50: 20 72 65 73 65 74 20 74 68 65 20 64 69 72 65 63 reset the direc
fe60: 74 6f 72 69 65 73 3f 0d 0a 20 20 20 20 20 20 20 tories?..
fe70: 20 23 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b #.. if {
fe80: 24 72 65 73 65 74 7d 20 74 68 65 6e 20 7b 0d 0a $reset} then {..
fe90: 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 #..
fea0: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 4e # NOTE: N
feb0: 6f 77 20 6d 61 6b 65 20 73 75 72 65 20 74 68 65 ow make sure the
fec0: 20 64 61 74 61 62 61 73 65 20 61 6e 64 20 74 65 database and te
fed0: 6d 70 6f 72 61 72 79 20 64 69 72 65 63 74 6f 72 mporary director
fee0: 69 65 73 20 61 72 65 0d 0a 20 20 20 20 20 20 20 ies are..
fef0: 20 20 20 23 20 20 20 20 20 20 20 72 65 73 65 74 # reset
ff00: 20 74 68 65 69 72 20 64 65 66 61 75 6c 74 20 76 their default v
ff10: 61 6c 75 65 73 2c 20 77 68 69 63 68 20 73 68 6f alues, which sho
ff20: 75 6c 64 20 62 65 20 6e 75 6c 6c 20 66 6f 72 20 uld be null for
ff30: 62 6f 74 68 2e 0d 0a 20 20 20 20 20 20 20 20 20 both...
ff40: 20 23 20 20 20 20 20 20 20 53 69 6e 63 65 20 74 # Since t
ff50: 68 65 20 73 71 6c 69 74 65 33 5f 77 69 6e 33 32 he sqlite3_win32
ff60: 5f 73 65 74 5f 64 69 72 65 63 74 6f 72 79 20 66 _set_directory f
ff70: 75 6e 63 74 69 6f 6e 20 69 73 20 61 76 61 69 6c unction is avail
ff80: 61 62 6c 65 2c 0d 0a 20 20 20 20 20 20 20 20 20 able,..
ff90: 20 23 20 20 20 20 20 20 20 75 73 65 20 69 74 2e # use it.
ffa0: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 .. #..
ffb0: 20 20 20 20 20 20 20 20 20 66 6f 72 20 7b 73 65 for {se
ffc0: 74 20 69 6e 64 65 78 20 31 7d 20 7b 24 69 6e 64 t index 1} {$ind
ffd0: 65 78 20 3c 20 33 7d 20 7b 69 6e 63 72 20 69 6e ex < 3} {incr in
ffe0: 64 65 78 7d 20 7b 0d 0a 20 20 20 20 20 20 20 20 dex} {..
fff0: 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b if {[catch {
10000 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
10010 20 20 20 20 20 20 6f 62 6a 65 63 74 20 69 6e 76 object inv
10020 6f 6b 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 oke -flags +NonP
10030 75 62 6c 69 63 20 5c 0d 0a 20 20 20 20 20 20 20 ublic \..
10040 20 20 20 20 20 20 20 20 20 20 20 20 20 53 79 73 Sys
10050 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e tem.Data.SQLite.
10060 55 6e 73 61 66 65 4e 61 74 69 76 65 4d 65 74 68 UnsafeNativeMeth
10070 6f 64 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 ods \..
10080 20 20 20 20 20 20 20 20 20 20 20 73 71 6c 69 74 sqlit
10090 65 33 5f 77 69 6e 33 32 5f 73 65 74 5f 64 69 72 e3_win32_set_dir
100a0 65 63 74 6f 72 79 20 24 69 6e 64 65 78 20 6e 75 ectory $index nu
100b0 6c 6c 7d 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 ll} \..
100c0 20 20 20 20 20 20 20 20 20 20 20 72 65 73 75 6c resul
100d0 74 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d t] == 0} then {.
100e0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 . t
100f0 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61 puts $channel [a
10100 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 ppendArgs \..
10110 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 "
10120 2d 2d 2d 2d 20 63 61 6c 6c 20 73 71 6c 69 74 65 ---- call sqlite
10130 33 5f 77 69 6e 33 32 5f 73 65 74 5f 64 69 72 65 3_win32_set_dire
10140 63 74 6f 72 79 28 22 20 24 69 6e 64 65 78 20 5c ctory(" $index \
10150 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
10160 20 20 20 20 22 2c 20 6e 75 6c 6c 29 2e 2e 2e 20 ", null)...
10170 6f 6b 3a 20 22 20 24 72 65 73 75 6c 74 20 5c 6e ok: " $result \n
10180 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d ].. }
10190 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 else {..
101a0 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68 tputs $ch
101b0 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 annel [appendArg
101c0 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 s \..
101d0 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 63 61 6c "---- cal
101e0 6c 20 73 71 6c 69 74 65 33 5f 77 69 6e 33 32 5f l sqlite3_win32_
101f0 73 65 74 5f 64 69 72 65 63 74 6f 72 79 28 22 20 set_directory("
10200 24 69 6e 64 65 78 20 5c 0d 0a 20 20 20 20 20 20 $index \..
10210 20 20 20 20 20 20 20 20 20 20 20 20 22 2c 20 6e ", n
10220 75 6c 6c 29 2e 2e 2e 20 65 72 72 6f 72 3a 20 22 ull)... error: "
10230 20 5c 6e 5c 74 20 24 72 65 73 75 6c 74 20 5c 6e \n\t $result \n
10240 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d ].. }
10250 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 .. }..
10260 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 }..
10270 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 } else {..
10280 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c tputs $channel
10290 20 6e 6f 5c 6e 0d 0a 0d 0a 20 20 20 20 20 20 20 no\n....
102a0 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f #.. # NO
102b0 54 45 3a 20 44 6f 65 73 20 6f 75 72 20 63 61 6c TE: Does our cal
102c0 6c 65 72 20 77 61 6e 74 20 74 6f 20 72 65 73 65 ler want to rese
102d0 74 20 74 68 65 20 64 69 72 65 63 74 6f 72 69 65 t the directorie
102e0 73 3f 20 20 54 68 69 73 20 63 61 6e 20 6f 6e 6c s? This can onl
102f0 79 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 y.. #
10300 20 20 20 62 65 20 70 65 72 66 6f 72 6d 65 64 20 be performed
10310 69 66 20 53 51 4c 69 74 65 20 69 73 20 6c 6f 61 if SQLite is loa
10320 64 65 64 20 61 6e 64 20 72 65 61 64 79 20 66 6f ded and ready fo
10330 72 20 75 73 65 20 62 79 20 74 68 65 20 74 65 73 r use by the tes
10340 74 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 t.. #
10350 20 20 20 73 75 69 74 65 2e 0d 0a 20 20 20 20 20 suite...
10360 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 69 66 #.. if
10370 20 7b 24 72 65 73 65 74 20 26 26 20 5b 69 73 53 {$reset && [isS
10380 51 4c 69 74 65 52 65 61 64 79 5d 7d 20 74 68 65 QLiteReady]} the
10390 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23 n {.. #
103a0 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f .. # NO
103b0 54 45 3a 20 4e 6f 77 20 6d 61 6b 65 20 73 75 72 TE: Now make sur
103c0 65 20 74 68 65 20 64 61 74 61 62 61 73 65 20 61 e the database a
103d0 6e 64 20 74 65 6d 70 6f 72 61 72 79 20 64 69 72 nd temporary dir
103e0 65 63 74 6f 72 69 65 73 20 61 72 65 0d 0a 20 20 ectories are..
103f0 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 #
10400 72 65 73 65 74 20 74 68 65 69 72 20 64 65 66 61 reset their defa
10410 75 6c 74 20 76 61 6c 75 65 73 2c 20 77 68 69 63 ult values, whic
10420 68 20 73 68 6f 75 6c 64 20 62 65 20 6e 75 6c 6c h should be null
10430 20 66 6f 72 20 62 6f 74 68 2e 0d 0a 20 20 20 20 for both...
10440 20 20 20 20 20 20 23 20 20 20 20 20 20 20 53 69 # Si
10450 6e 63 65 20 74 68 65 20 73 71 6c 69 74 65 33 5f nce the sqlite3_
10460 77 69 6e 33 32 5f 73 65 74 5f 64 69 72 65 63 74 win32_set_direct
10470 6f 72 79 20 66 75 6e 63 74 69 6f 6e 20 64 6f 65 ory function doe
10480 73 20 6e 6f 74 0d 0a 20 20 20 20 20 20 20 20 20 s not..
10490 20 23 20 20 20 20 20 20 20 61 70 70 65 61 72 20 # appear
104a0 74 6f 20 62 65 20 61 76 61 69 6c 61 62 6c 65 2c to be available,
104b0 20 75 73 65 20 74 68 65 20 61 73 73 6f 63 69 61 use the associa
104c0 74 65 64 20 50 52 41 47 4d 41 20 63 6f 6d 6d 61 ted PRAGMA comma
104d0 6e 64 73 0d 0a 20 20 20 20 20 20 20 20 20 20 23 nds.. #
104e0 20 20 20 20 20 20 20 69 6e 73 74 65 61 64 2e 0d instead..
104f0 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 . #..
10500 20 20 20 20 20 20 20 20 66 6f 72 65 61 63 68 20 foreach
10510 64 69 72 65 63 74 6f 72 79 20 5b 6c 69 73 74 20 directory [list
10520 64 61 74 61 5f 73 74 6f 72 65 5f 64 69 72 65 63 data_store_direc
10530 74 6f 72 79 20 74 65 6d 70 5f 73 74 6f 72 65 5f tory temp_store_
10540 64 69 72 65 63 74 6f 72 79 5d 20 7b 0d 0a 20 20 directory] {..
10550 20 20 20 20 20 20 20 20 20 20 73 65 74 20 73 71 set sq
10560 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 22 50 l [appendArgs "P
10570 52 41 47 4d 41 20 22 20 24 64 69 72 65 63 74 6f RAGMA " $directo
10580 72 79 20 22 20 3d 20 5c 22 5c 22 3b 22 5d 0d 0a ry " = \"\";"]..
10590 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 .. if
105a0 20 7b 5b 63 61 74 63 68 20 7b 65 78 65 63 75 74 {[catch {execut
105b0 65 53 71 6c 20 24 73 71 6c 7d 20 72 65 73 75 6c eSql $sql} resul
105c0 74 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d t] == 0} then {.
105d0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 . t
105e0 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61 puts $channel [a
105f0 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 ppendArgs \..
10600 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 "
10610 2d 2d 2d 2d 20 65 78 65 63 75 74 65 20 50 52 41 ---- execute PRA
10620 47 4d 41 20 22 20 24 64 69 72 65 63 74 6f 72 79 GMA " $directory
10630 20 22 2e 2e 2e 20 6f 6b 3a 20 5c 22 22 20 5c 0d "... ok: \"" \.
10640 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
10650 20 20 20 24 72 65 73 75 6c 74 20 5c 22 5c 6e 5d $result \"\n]
10660 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d 20 .. }
10670 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 else {..
10680 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68 61 tputs $cha
10690 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 nnel [appendArgs
106a0 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \..
106b0 20 20 20 20 20 20 22 2d 2d 2d 2d 20 65 78 65 63 "---- exec
106c0 75 74 65 20 50 52 41 47 4d 41 20 22 20 24 64 69 ute PRAGMA " $di
106d0 72 65 63 74 6f 72 79 20 22 2e 2e 2e 20 65 72 72 rectory "... err
106e0 6f 72 3a 20 22 20 5c 0d 0a 20 20 20 20 20 20 20 or: " \..
106f0 20 20 20 20 20 20 20 20 20 20 20 5c 6e 5c 74 20 \n\t
10700 24 72 65 73 75 6c 74 20 5c 6e 5d 0d 0a 20 20 20 $result \n]..
10710 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 }..
10720 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 }..
10730 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 }.. }....
10740 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 #.. #
10750 4e 4f 54 45 3a 20 46 69 6e 61 6c 6c 79 2c 20 73 NOTE: Finally, s
10760 68 6f 77 20 74 68 65 20 63 75 72 72 65 6e 74 20 how the current
10770 76 61 6c 75 65 20 6f 66 20 74 68 65 20 64 61 74 value of the dat
10780 61 62 61 73 65 20 61 6e 64 20 74 65 6d 70 6f 72 abase and tempor
10790 61 72 79 0d 0a 20 20 20 20 20 20 23 20 20 20 20 ary.. #
107a0 20 20 20 64 69 72 65 63 74 6f 72 69 65 73 2e 20 directories.
107b0 20 54 68 69 73 20 63 61 6e 20 6f 6e 6c 79 20 62 This can only b
107c0 65 20 70 65 72 66 6f 72 6d 65 64 20 69 66 20 53 e performed if S
107d0 51 4c 69 74 65 20 69 73 20 6c 6f 61 64 65 64 0d QLite is loaded.
107e0 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 61 . # a
107f0 6e 64 20 72 65 61 64 79 20 66 6f 72 20 75 73 65 nd ready for use
10800 20 62 79 20 74 68 65 20 74 65 73 74 20 73 75 69 by the test sui
10810 74 65 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 te... #..
10820 20 20 20 20 69 66 20 7b 5b 69 73 53 51 4c 69 74 if {[isSQLit
10830 65 52 65 61 64 79 5d 7d 20 74 68 65 6e 20 7b 0d eReady]} then {.
10840 0a 20 20 20 20 20 20 20 20 66 6f 72 65 61 63 68 . foreach
10850 20 64 69 72 65 63 74 6f 72 79 20 5b 6c 69 73 74 directory [list
10860 20 64 61 74 61 5f 73 74 6f 72 65 5f 64 69 72 65 data_store_dire
10870 63 74 6f 72 79 20 74 65 6d 70 5f 73 74 6f 72 65 ctory temp_store
10880 5f 64 69 72 65 63 74 6f 72 79 5d 20 7b 0d 0a 20 _directory] {..
10890 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 tputs $
108a0 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 channel [appendA
108b0 72 67 73 20 22 2d 2d 2d 2d 20 63 68 65 63 6b 69 rgs "---- checki
108c0 6e 67 20 22 20 24 64 69 72 65 63 74 6f 72 79 20 ng " $directory
108d0 22 2e 2e 2e 20 22 5d 0d 0a 0d 0a 20 20 20 20 20 "... "]....
108e0 20 20 20 20 20 73 65 74 20 73 71 6c 20 5b 61 70 set sql [ap
108f0 70 65 6e 64 41 72 67 73 20 22 50 52 41 47 4d 41 pendArgs "PRAGMA
10900 20 22 20 24 64 69 72 65 63 74 6f 72 79 20 5c 3b " $directory \;
10910 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 69 ].... i
10920 66 20 7b 5b 63 61 74 63 68 20 7b 65 78 65 63 75 f {[catch {execu
10930 74 65 53 71 6c 20 24 73 71 6c 20 73 63 61 6c 61 teSql $sql scala
10940 72 7d 20 72 65 73 75 6c 74 5d 20 3d 3d 20 30 7d r} result] == 0}
10950 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 then {..
10960 20 20 20 20 20 74 70 75 74 73 20 24 63 68 61 6e tputs $chan
10970 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 nel [appendArgs
10980 22 6f 6b 3a 20 5c 22 22 20 24 72 65 73 75 6c 74 "ok: \"" $result
10990 20 5c 22 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 \"\n]..
109a0 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 } else {..
109b0 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63 tputs $c
109c0 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 hannel [appendAr
109d0 67 73 20 22 65 72 72 6f 72 3a 20 22 20 5c 6e 5c gs "error: " \n\
109e0 74 20 24 72 65 73 75 6c 74 20 5c 6e 5d 0d 0a 20 t $result \n]..
109f0 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 }..
10a00 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a }.. }..
10a10 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 }..... pr
10a20 6f 63 20 6c 6f 61 64 53 51 4c 69 74 65 54 65 73 oc loadSQLiteTes
10a30 74 53 65 74 74 69 6e 67 73 20 7b 20 63 68 61 6e tSettings { chan
10a40 6e 65 6c 20 7b 73 75 66 66 69 78 20 22 22 7d 20 nel {suffix ""}
10a50 7b 71 75 69 65 74 20 66 61 6c 73 65 7d 20 7d 20 {quiet false} }
10a60 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 {.. #..
10a70 20 20 23 20 4e 4f 54 45 3a 20 53 6b 69 70 20 6c # NOTE: Skip l
10a80 6f 61 64 69 6e 67 20 74 68 65 20 73 65 74 74 69 oading the setti
10a90 6e 67 73 20 69 66 20 74 68 65 69 72 20 75 73 61 ngs if their usa
10aa0 67 65 20 68 61 73 20 62 65 65 6e 20 64 69 73 61 ge has been disa
10ab0 62 6c 65 64 2e 0d 0a 20 20 20 20 20 20 23 0d 0a bled... #..
10ac0 20 20 20 20 20 20 69 66 20 7b 21 5b 69 6e 66 6f if {![info
10ad0 20 65 78 69 73 74 73 20 3a 3a 6e 6f 28 73 71 6c exists ::no(sql
10ae0 69 74 65 54 65 73 74 53 65 74 74 69 6e 67 73 29 iteTestSettings)
10af0 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 ]} then {..
10b00 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 #.. #
10b10 4e 4f 54 45 3a 20 4c 6f 61 64 20 63 75 73 74 6f NOTE: Load custo
10b20 6d 20 70 65 72 2d 75 73 65 72 20 61 6e 64 2f 6f m per-user and/o
10b30 72 20 70 65 72 2d 68 6f 73 74 20 74 65 73 74 20 r per-host test
10b40 73 65 74 74 69 6e 67 73 20 6e 6f 77 2e 0d 0a 20 settings now...
10b50 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
10b60 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 if {[info exis
10b70 74 73 20 3a 3a 74 63 6c 5f 70 6c 61 74 66 6f 72 ts ::tcl_platfor
10b80 6d 28 75 73 65 72 29 5d 7d 20 74 68 65 6e 20 7b m(user)]} then {
10b90 0d 0a 20 20 20 20 20 20 20 20 20 20 73 65 74 20 .. set
10ba0 75 73 65 72 53 65 74 74 69 6e 67 73 46 69 6c 65 userSettingsFile
10bb0 4e 61 6d 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 Name [file join
10bc0 5b 67 65 74 43 6f 6d 6d 6f 6e 44 69 72 65 63 74 [getCommonDirect
10bd0 6f 72 79 5d 20 5c 0d 0a 20 20 20 20 20 20 20 20 ory] \..
10be0 20 20 20 20 20 20 5b 61 70 70 65 6e 64 41 72 67 [appendArg
10bf0 73 20 73 65 74 74 69 6e 67 73 20 24 73 75 66 66 s settings $suff
10c00 69 78 20 2e 20 24 3a 3a 74 63 6c 5f 70 6c 61 74 ix . $::tcl_plat
10c10 66 6f 72 6d 28 75 73 65 72 29 20 2e 65 61 67 6c form(user) .eagl
10c20 65 5d 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 e]]....
10c30 20 69 66 20 7b 5b 66 69 6c 65 20 65 78 69 73 74 if {[file exist
10c40 73 20 24 75 73 65 72 53 65 74 74 69 6e 67 73 46 s $userSettingsF
10c50 69 6c 65 4e 61 6d 65 5d 7d 20 74 68 65 6e 20 7b ileName]} then {
10c60 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 .. if
10c70 20 7b 21 24 71 75 69 65 74 7d 20 74 68 65 6e 20 {!$quiet} then
10c80 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 {..
10c90 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 tputs $channel
10ca0 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 [appendArgs \..
10cb0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
10cc0 20 22 2d 2d 2d 2d 20 6c 6f 61 64 69 6e 67 20 70 "---- loading p
10cd0 65 72 2d 75 73 65 72 20 74 65 73 74 20 73 65 74 er-user test set
10ce0 74 69 6e 67 73 20 66 69 6c 65 20 5c 22 22 20 5c tings file \"" \
10cf0 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
10d00 20 20 20 20 24 75 73 65 72 53 65 74 74 69 6e 67 $userSetting
10d10 73 46 69 6c 65 4e 61 6d 65 20 5c 22 2e 2e 2e 5c sFileName \"...\
10d20 6e 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 n]..
10d30 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 }....
10d40 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 75 70 6c if {[catch {upl
10d50 65 76 65 6c 20 31 20 5b 6c 69 73 74 20 73 6f 75 evel 1 [list sou
10d60 72 63 65 20 24 75 73 65 72 53 65 74 74 69 6e 67 rce $userSetting
10d70 73 46 69 6c 65 4e 61 6d 65 5d 7d 20 5c 0d 0a 20 sFileName]} \..
10d80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
10d90 20 20 20 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20 error]} then
10da0 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 {..
10db0 20 69 66 20 7b 21 24 71 75 69 65 74 7d 20 74 68 if {!$quiet} th
10dc0 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 en {..
10dd0 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68 61 tputs $cha
10de0 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 nnel [appendArgs
10df0 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \..
10e00 20 20 20 20 20 20 20 20 22 3d 3d 3d 3d 20 57 41 "==== WA
10e10 52 4e 49 4e 47 3a 20 66 61 69 6c 65 64 20 74 6f RNING: failed to
10e20 20 6c 6f 61 64 20 70 65 72 2d 75 73 65 72 20 73 load per-user s
10e30 65 74 74 69 6e 67 73 20 66 69 6c 65 20 5c 22 22 ettings file \""
10e40 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \..
10e50 20 20 20 20 20 20 20 20 24 75 73 65 72 53 65 74 $userSet
10e60 74 69 6e 67 73 46 69 6c 65 4e 61 6d 65 20 22 5c tingsFileName "\
10e70 22 2c 20 65 72 72 6f 72 3a 20 22 20 5c 6e 5c 74 ", error: " \n\t
10e80 20 24 65 72 72 6f 72 20 5c 6e 5d 0d 0a 20 20 20 $error \n]..
10e90 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 }..
10ea0 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 }..
10eb0 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d } else {.
10ec0 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 . if
10ed0 7b 21 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b {!$quiet} then {
10ee0 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
10ef0 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 5b tputs $channel [
10f00 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 appendArgs \..
10f10 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
10f20 22 2d 2d 2d 2d 20 73 6b 69 70 70 65 64 20 6c 6f "---- skipped lo
10f30 61 64 69 6e 67 20 70 65 72 2d 75 73 65 72 20 74 ading per-user t
10f40 65 73 74 20 73 65 74 74 69 6e 67 73 20 66 69 6c est settings fil
10f50 65 20 5c 22 22 20 5c 0d 0a 20 20 20 20 20 20 20 e \"" \..
10f60 20 20 20 20 20 20 20 20 20 20 20 24 75 73 65 72 $user
10f70 53 65 74 74 69 6e 67 73 46 69 6c 65 4e 61 6d 65 SettingsFileName
10f80 20 22 5c 22 2c 20 69 74 20 64 6f 65 73 20 6e 6f "\", it does no
10f90 74 20 65 78 69 73 74 5c 6e 22 5d 0d 0a 20 20 20 t exist\n"]..
10fa0 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 }..
10fb0 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 }..
10fc0 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 23 }.... ##
10fd0 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
10fe0 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
10ff0 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
11000 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
11010 23 23 23 23 23 0d 0a 0d 0a 20 20 20 20 20 20 20 #####....
11020 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 if {[info exist
11030 73 20 3a 3a 74 63 6c 5f 70 6c 61 74 66 6f 72 6d s ::tcl_platform
11040 28 68 6f 73 74 29 5d 7d 20 74 68 65 6e 20 7b 0d (host)]} then {.
11050 0a 20 20 20 20 20 20 20 20 20 20 73 65 74 20 68 . set h
11060 6f 73 74 53 65 74 74 69 6e 67 73 46 69 6c 65 4e ostSettingsFileN
11070 61 6d 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b ame [file join [
11080 67 65 74 43 6f 6d 6d 6f 6e 44 69 72 65 63 74 6f getCommonDirecto
11090 72 79 5d 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 ry] \..
110a0 20 20 20 20 20 5b 61 70 70 65 6e 64 41 72 67 73 [appendArgs
110b0 20 73 65 74 74 69 6e 67 73 20 24 73 75 66 66 69 settings $suffi
110c0 78 20 2e 20 24 3a 3a 74 63 6c 5f 70 6c 61 74 66 x . $::tcl_platf
110d0 6f 72 6d 28 68 6f 73 74 29 20 2e 65 61 67 6c 65 orm(host) .eagle
110e0 5d 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 ]]....
110f0 69 66 20 7b 5b 66 69 6c 65 20 65 78 69 73 74 73 if {[file exists
11100 20 24 68 6f 73 74 53 65 74 74 69 6e 67 73 46 69 $hostSettingsFi
11110 6c 65 4e 61 6d 65 5d 7d 20 74 68 65 6e 20 7b 0d leName]} then {.
11120 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 . if
11130 7b 21 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b {!$quiet} then {
11140 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
11150 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 5b tputs $channel [
11160 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 appendArgs \..
11170 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
11180 22 2d 2d 2d 2d 20 6c 6f 61 64 69 6e 67 20 70 65 "---- loading pe
11190 72 2d 68 6f 73 74 20 74 65 73 74 20 73 65 74 74 r-host test sett
111a0 69 6e 67 73 20 66 69 6c 65 20 5c 22 22 20 5c 0d ings file \"" \.
111b0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
111c0 20 20 20 24 68 6f 73 74 53 65 74 74 69 6e 67 73 $hostSettings
111d0 46 69 6c 65 4e 61 6d 65 20 5c 22 2e 2e 2e 5c 6e FileName \"...\n
111e0 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d ].. }
111f0 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ....
11200 69 66 20 7b 5b 63 61 74 63 68 20 7b 75 70 6c 65 if {[catch {uple
11210 76 65 6c 20 31 20 5b 6c 69 73 74 20 73 6f 75 72 vel 1 [list sour
11220 63 65 20 24 68 6f 73 74 53 65 74 74 69 6e 67 73 ce $hostSettings
11230 46 69 6c 65 4e 61 6d 65 5d 7d 20 5c 0d 0a 20 20 FileName]} \..
11240 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
11250 20 20 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20 7b error]} then {
11260 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
11270 69 66 20 7b 21 24 71 75 69 65 74 7d 20 74 68 65 if {!$quiet} the
11280 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 n {..
11290 20 20 20 20 20 74 70 75 74 73 20 24 63 68 61 6e tputs $chan
112a0 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 nel [appendArgs
112b0 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 \..
112c0 20 20 20 20 20 20 20 22 3d 3d 3d 3d 20 57 41 52 "==== WAR
112d0 4e 49 4e 47 3a 20 66 61 69 6c 65 64 20 74 6f 20 NING: failed to
112e0 6c 6f 61 64 20 70 65 72 2d 68 6f 73 74 20 73 65 load per-host se
112f0 74 74 69 6e 67 73 20 66 69 6c 65 20 5c 22 22 20 ttings file \""
11300 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 \..
11310 20 20 20 20 20 20 20 24 68 6f 73 74 53 65 74 74 $hostSett
11320 69 6e 67 73 46 69 6c 65 4e 61 6d 65 20 22 5c 22 ingsFileName "\"
11330 2c 20 65 72 72 6f 72 3a 20 22 20 5c 6e 5c 74 20 , error: " \n\t
11340 24 65 72 72 6f 72 20 5c 6e 5d 0d 0a 20 20 20 20 $error \n]..
11350 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 }..
11360 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 }..
11370 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a } else {..
11380 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 7b if {
11390 21 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d !$quiet} then {.
113a0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 . t
113b0 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61 puts $channel [a
113c0 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 ppendArgs \..
113d0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 "
113e0 2d 2d 2d 2d 20 73 6b 69 70 70 65 64 20 6c 6f 61 ---- skipped loa
113f0 64 69 6e 67 20 70 65 72 2d 68 6f 73 74 20 74 65 ding per-host te
11400 73 74 20 73 65 74 74 69 6e 67 73 20 66 69 6c 65 st settings file
11410 20 5c 22 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 \"" \..
11420 20 20 20 20 20 20 20 20 20 20 24 68 6f 73 74 53 $hostS
11430 65 74 74 69 6e 67 73 46 69 6c 65 4e 61 6d 65 20 ettingsFileName
11440 22 5c 22 2c 20 69 74 20 64 6f 65 73 20 6e 6f 74 "\", it does not
11450 20 65 78 69 73 74 5c 6e 22 5d 0d 0a 20 20 20 20 exist\n"]..
11460 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 }..
11470 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 }..
11480 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 }.. }..
11490 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 72 }..... proc r
114a0 75 6e 53 51 4c 69 74 65 54 65 73 74 50 72 6f 6c unSQLiteTestProl
114b0 6f 67 75 65 20 7b 7d 20 7b 0d 0a 20 20 20 20 20 ogue {} {..
114c0 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 #.. # NOTE
114d0 3a 20 53 6b 69 70 20 72 75 6e 6e 69 6e 67 20 6f : Skip running o
114e0 75 72 20 63 75 73 74 6f 6d 20 70 72 6f 6c 6f 67 ur custom prolog
114f0 75 65 20 69 66 20 74 68 65 20 6d 61 69 6e 20 6f ue if the main o
11500 6e 65 20 68 61 73 20 62 65 65 6e 0d 0a 20 20 20 ne has been..
11510 20 20 20 23 20 20 20 20 20 20 20 73 6b 69 70 70 # skipp
11520 65 64 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 ed... #..
11530 20 20 20 20 69 66 20 7b 21 5b 69 6e 66 6f 20 65 if {![info e
11540 78 69 73 74 73 20 3a 3a 6e 6f 28 70 72 6f 6c 6f xists ::no(prolo
11550 67 75 65 2e 65 61 67 6c 65 29 5d 7d 20 74 68 65 gue.eagle)]} the
11560 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a n {.. #..
11570 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 # NOTE:
11580 4c 6f 61 64 20 74 68 65 20 22 62 65 66 6f 72 65 Load the "before
11590 2d 63 6f 6e 73 74 72 61 69 6e 74 73 22 20 63 75 -constraints" cu
115a0 73 74 6f 6d 20 70 65 72 2d 75 73 65 72 20 61 6e stom per-user an
115b0 64 2f 6f 72 20 70 65 72 2d 68 6f 73 74 0d 0a 20 d/or per-host..
115c0 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 74 # t
115d0 65 73 74 20 73 65 74 74 69 6e 67 73 20 6e 6f 77 est settings now
115e0 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 ... #..
115f0 20 20 20 20 20 20 75 70 6c 65 76 65 6c 20 31 20 uplevel 1
11600 5b 6c 69 73 74 20 6c 6f 61 64 53 51 4c 69 74 65 [list loadSQLite
11610 54 65 73 74 53 65 74 74 69 6e 67 73 20 24 3a 3a TestSettings $::
11620 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 2e 62 65 test_channel .be
11630 66 6f 72 65 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 fore]....
11640 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f #.. # NO
11650 54 45 3a 20 53 6b 69 70 20 61 6c 6c 20 53 79 73 TE: Skip all Sys
11660 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 20 tem.Data.SQLite
11670 72 65 6c 61 74 65 64 20 66 69 6c 65 20 68 61 6e related file han
11680 64 6c 69 6e 67 20 28 64 65 6c 65 74 69 6e 67 2c dling (deleting,
11690 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 .. #
116a0 20 20 63 6f 70 79 69 6e 67 2c 20 61 6e 64 20 6c copying, and l
116b0 6f 61 64 69 6e 67 29 20 69 66 20 77 65 20 61 72 oading) if we ar
116c0 65 20 73 6f 20 69 6e 73 74 72 75 63 74 65 64 2e e so instructed.
116d0 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #..
116e0 20 20 20 20 20 69 66 20 7b 21 5b 69 6e 66 6f 20 if {![info
116f0 65 78 69 73 74 73 20 3a 3a 6e 6f 28 73 71 6c 69 exists ::no(sqli
11700 74 65 46 69 6c 65 73 29 5d 7d 20 74 68 65 6e 20 teFiles)]} then
11710 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a {.. #..
11720 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 # NOTE
11730 3a 20 53 6b 69 70 20 74 72 79 69 6e 67 20 74 6f : Skip trying to
11740 20 64 65 6c 65 74 65 20 61 6e 79 20 66 69 6c 65 delete any file
11750 73 20 69 66 20 77 65 20 61 72 65 20 73 6f 20 69 s if we are so i
11760 6e 73 74 72 75 63 74 65 64 2e 0d 0a 20 20 20 20 nstructed...
11770 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
11780 20 20 20 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 if {![info ex
11790 69 73 74 73 20 3a 3a 6e 6f 28 64 65 6c 65 74 65 ists ::no(delete
117a0 53 71 6c 69 74 65 46 69 6c 65 73 29 5d 7d 20 74 SqliteFiles)]} t
117b0 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 hen {..
117c0 20 20 20 74 72 79 44 65 6c 65 74 65 41 73 73 65 tryDeleteAsse
117d0 6d 62 6c 79 20 73 71 6c 69 74 65 33 2e 64 6c 6c mbly sqlite3.dll
117e0 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 .. re
117f0 6d 6f 76 65 43 6f 6e 73 74 72 61 69 6e 74 20 66 moveConstraint f
11800 69 6c 65 5f 73 71 6c 69 74 65 33 2e 64 6c 6c 0d ile_sqlite3.dll.
11810 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 ... t
11820 72 79 44 65 6c 65 74 65 41 73 73 65 6d 62 6c 79 ryDeleteAssembly
11830 20 53 51 4c 69 74 65 2e 49 6e 74 65 72 6f 70 2e SQLite.Interop.
11840 64 6c 6c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 dll..
11850 20 72 65 6d 6f 76 65 43 6f 6e 73 74 72 61 69 6e removeConstrain
11860 74 20 66 69 6c 65 5f 53 51 4c 69 74 65 2e 49 6e t file_SQLite.In
11870 74 65 72 6f 70 2e 64 6c 6c 0d 0a 0d 0a 20 20 20 terop.dll....
11880 20 20 20 20 20 20 20 20 20 74 72 79 44 65 6c 65 tryDele
11890 74 65 41 73 73 65 6d 62 6c 79 20 53 79 73 74 65 teAssembly Syste
118a0 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 64 6c m.Data.SQLite.dl
118b0 6c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 l.. r
118c0 65 6d 6f 76 65 43 6f 6e 73 74 72 61 69 6e 74 20 emoveConstraint
118d0 66 69 6c 65 5f 53 79 73 74 65 6d 2e 44 61 74 61 file_System.Data
118e0 2e 53 51 4c 69 74 65 2e 64 6c 6c 0d 0a 0d 0a 20 .SQLite.dll....
118f0 20 20 20 20 20 20 20 20 20 20 20 74 72 79 44 65 tryDe
11900 6c 65 74 65 41 73 73 65 6d 62 6c 79 20 53 79 73 leteAssembly Sys
11910 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e tem.Data.SQLite.
11920 4c 69 6e 71 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 Linq.dll..
11930 20 20 20 20 20 20 72 65 6d 6f 76 65 43 6f 6e 73 removeCons
11940 74 72 61 69 6e 74 20 66 69 6c 65 5f 53 79 73 74 traint file_Syst
11950 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 4c em.Data.SQLite.L
11960 69 6e 71 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 20 inq.dll..
11970 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 }....
11980 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23 #.. #
11990 20 4e 4f 54 45 3a 20 43 68 65 63 6b 20 66 6f 72 NOTE: Check for
119a0 20 74 68 65 20 22 61 75 74 6f 53 65 6c 65 63 74 the "autoSelect
119b0 22 20 72 75 6e 74 69 6d 65 20 6f 70 74 69 6f 6e " runtime option
119c0 2e 20 20 49 66 20 70 72 65 73 65 6e 74 2c 0d 0a . If present,..
119d0 20 20 20 20 20 20 20 20 20 20 23 20 20 20 20 20 #
119e0 20 20 61 74 74 65 6d 70 74 20 74 6f 20 61 75 74 attempt to aut
119f0 6f 6d 61 74 69 63 61 6c 6c 79 20 73 65 6c 65 63 omatically selec
11a00 74 20 74 68 65 20 66 69 72 73 74 20 61 76 61 69 t the first avai
11a10 6c 61 62 6c 65 0d 0a 20 20 20 20 20 20 20 20 20 lable..
11a20 20 23 20 20 20 20 20 20 20 62 75 69 6c 64 20 6f # build o
11a30 66 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 f System.Data.SQ
11a40 4c 69 74 65 20 66 6f 72 20 75 73 65 20 77 69 74 Lite for use wit
11a50 68 20 74 68 65 20 74 65 73 74 20 73 75 69 74 65 h the test suite
11a60 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a ... #..
11a70 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 5b 68 if {[h
11a80 61 73 52 75 6e 74 69 6d 65 4f 70 74 69 6f 6e 20 asRuntimeOption
11a90 61 75 74 6f 53 65 6c 65 63 74 5d 7d 20 74 68 65 autoSelect]} the
11aa0 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 n {..
11ab0 20 63 68 65 63 6b 46 6f 72 53 51 4c 69 74 65 42 checkForSQLiteB
11ac0 75 69 6c 64 73 20 24 3a 3a 74 65 73 74 5f 63 68 uilds $::test_ch
11ad0 61 6e 6e 65 6c 20 74 72 75 65 0d 0a 20 20 20 20 annel true..
11ae0 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 }....
11af0 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #..
11b00 20 20 23 20 4e 4f 54 45 3a 20 53 6b 69 70 20 74 # NOTE: Skip t
11b10 72 79 69 6e 67 20 74 6f 20 76 65 72 69 66 79 20 rying to verify
11b20 74 68 65 20 62 75 69 6c 64 20 64 69 72 65 63 74 the build direct
11b30 6f 72 79 20 69 66 20 77 65 20 61 72 65 20 73 6f ory if we are so
11b40 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 20 20 .. #
11b50 20 20 20 20 69 6e 73 74 72 75 63 74 65 64 3b 20 instructed;
11b60 6f 74 68 65 72 77 69 73 65 2c 20 6d 61 6b 65 20 otherwise, make
11b70 73 75 72 65 20 69 74 20 61 63 74 75 61 6c 6c 79 sure it actually
11b80 20 65 78 69 73 74 73 20 6f 72 0d 0a 20 20 20 20 exists or..
11b90 20 20 20 20 20 20 23 20 20 20 20 20 20 20 68 61 # ha
11ba0 6c 74 20 74 68 65 20 65 6e 74 69 72 65 20 74 65 lt the entire te
11bb0 73 74 69 6e 67 20 70 72 6f 63 65 73 73 20 69 66 sting process if
11bc0 20 69 74 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 it does not exi
11bd0 73 74 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23 st... #
11be0 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7b .. if {
11bf0 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a ![info exists ::
11c00 6e 6f 28 76 65 72 69 66 79 42 75 69 6c 64 44 69 no(verifyBuildDi
11c10 72 65 63 74 6f 72 79 29 5d 7d 20 74 68 65 6e 20 rectory)]} then
11c20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 {.. #
11c30 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 20 .. #
11c40 4e 4f 54 45 3a 20 41 74 20 74 68 69 73 20 70 6f NOTE: At this po
11c50 69 6e 74 2c 20 74 68 65 20 62 75 69 6c 64 20 64 int, the build d
11c60 69 72 65 63 74 6f 72 79 20 4d 55 53 54 20 65 78 irectory MUST ex
11c70 69 73 74 20 61 73 20 61 0d 0a 20 20 20 20 20 20 ist as a..
11c80 20 20 20 20 20 20 23 20 20 20 20 20 20 20 76 61 # va
11c90 6c 69 64 20 64 69 72 65 63 74 6f 72 79 20 66 6f lid directory fo
11ca0 72 20 74 68 65 20 74 65 73 74 69 6e 67 20 70 72 r the testing pr
11cb0 6f 63 65 73 73 20 74 6f 20 63 6f 6e 74 69 6e 75 ocess to continu
11cc0 65 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 e...
11cd0 23 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 #.. s
11ce0 65 74 20 64 69 72 65 63 74 6f 72 79 20 5b 67 65 et directory [ge
11cf0 74 42 75 69 6c 64 44 69 72 65 63 74 6f 72 79 5d tBuildDirectory]
11d00 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ....
11d10 69 66 20 7b 21 5b 66 69 6c 65 20 65 78 69 73 74 if {![file exist
11d20 73 20 24 64 69 72 65 63 74 6f 72 79 5d 20 7c 7c s $directory] ||
11d30 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \..
11d40 20 20 20 20 21 5b 66 69 6c 65 20 69 73 64 69 72 ![file isdir
11d50 65 63 74 6f 72 79 20 24 64 69 72 65 63 74 6f 72 ectory $director
11d60 79 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 y]} then {..
11d70 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 #..
11d80 20 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 # NOT
11d90 45 3a 20 4a 75 73 74 20 70 72 69 6f 72 20 74 6f E: Just prior to
11da0 20 61 63 74 75 61 6c 6c 79 20 68 61 6c 74 69 6e actually haltin
11db0 67 20 74 68 65 20 74 65 73 74 69 6e 67 20 70 72 g the testing pr
11dc0 6f 63 65 73 73 2c 0d 0a 20 20 20 20 20 20 20 20 ocess,..
11dd0 20 20 20 20 20 20 23 20 20 20 20 20 20 20 61 64 # ad
11de0 64 20 61 6e 20 65 72 72 6f 72 20 74 6f 20 74 68 d an error to th
11df0 65 20 74 65 73 74 20 6c 6f 67 20 66 69 6c 65 2e e test log file.
11e00 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
11e10 23 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 #..
11e20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 tputs $::test_c
11e30 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 hannel [appendAr
11e40 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 gs \..
11e50 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 63 6f "---- co
11e60 75 6c 64 20 6e 6f 74 20 76 65 72 69 66 79 20 62 uld not verify b
11e70 75 69 6c 64 20 64 69 72 65 63 74 6f 72 79 20 5c uild directory \
11e80 22 22 20 24 64 69 72 65 63 74 6f 72 79 20 5c 0d "" $directory \.
11e90 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
11ea0 20 20 20 22 5c 22 2c 20 61 6c 6c 20 74 65 73 74 "\", all test
11eb0 69 6e 67 20 68 61 6c 74 65 64 5c 6e 22 5d 0d 0a ing halted\n"]..
11ec0 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
11ed0 23 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 #..
11ee0 20 23 20 4e 4f 54 45 3a 20 52 61 69 73 69 6e 67 # NOTE: Raising
11ef0 20 61 20 73 63 72 69 70 74 20 65 72 72 6f 72 20 a script error
11f00 66 72 6f 6d 20 74 68 69 73 20 70 6f 69 6e 74 20 from this point
11f10 73 68 6f 75 6c 64 20 68 61 6c 74 0d 0a 20 20 20 should halt..
11f20 20 20 20 20 20 20 20 20 20 20 20 23 20 20 20 20 #
11f30 20 20 20 74 68 65 20 74 65 73 74 69 6e 67 20 70 the testing p
11f40 72 6f 63 65 73 73 2e 0d 0a 20 20 20 20 20 20 20 rocess...
11f50 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
11f60 20 20 20 20 20 20 20 20 65 72 72 6f 72 20 5b 61 error [a
11f70 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 ppendArgs \..
11f80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 "
11f90 63 6f 75 6c 64 20 6e 6f 74 20 76 65 72 69 66 79 could not verify
11fa0 20 62 75 69 6c 64 20 64 69 72 65 63 74 6f 72 79 build directory
11fb0 20 5c 22 22 20 24 64 69 72 65 63 74 6f 72 79 20 \"" $directory
11fc0 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 \..
11fd0 20 20 20 20 20 22 5c 22 2c 20 61 6c 6c 20 74 65 "\", all te
11fe0 73 74 69 6e 67 20 68 61 6c 74 65 64 22 5d 0d 0a sting halted"]..
11ff0 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 }..
12000 20 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 }....
12010 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #..
12020 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 6b 69 # NOTE: Ski
12030 70 20 74 72 79 69 6e 67 20 74 6f 20 63 6f 70 79 p trying to copy
12040 20 61 6e 79 20 66 69 6c 65 73 20 69 66 20 77 65 any files if we
12050 20 61 72 65 20 73 6f 20 69 6e 73 74 72 75 63 74 are so instruct
12060 65 64 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23 ed... #
12070 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7b .. if {
12080 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a ![info exists ::
12090 6e 6f 28 63 6f 70 79 53 71 6c 69 74 65 46 69 6c no(copySqliteFil
120a0 65 73 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 es)]} then {..
120b0 20 20 20 20 20 20 20 20 20 20 74 72 79 43 6f 70 tryCop
120c0 79 41 73 73 65 6d 62 6c 79 20 73 71 6c 69 74 65 yAssembly sqlite
120d0 33 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 20 20 20 3.dll..
120e0 20 20 20 74 72 79 43 6f 70 79 41 73 73 65 6d 62 tryCopyAssemb
120f0 6c 79 20 53 51 4c 69 74 65 2e 49 6e 74 65 72 6f ly SQLite.Intero
12100 70 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 20 20 20 p.dll..
12110 20 20 20 74 72 79 43 6f 70 79 41 73 73 65 6d 62 tryCopyAssemb
12120 6c 79 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 ly System.Data.S
12130 51 4c 69 74 65 2e 64 6c 6c 0d 0a 20 20 20 20 20 QLite.dll..
12140 20 20 20 20 20 20 20 74 72 79 43 6f 70 79 41 73 tryCopyAs
12150 73 65 6d 62 6c 79 20 53 79 73 74 65 6d 2e 44 61 sembly System.Da
12160 74 61 2e 53 51 4c 69 74 65 2e 4c 69 6e 71 2e 64 ta.SQLite.Linq.d
12170 6c 6c 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d ll.. }.
12180 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a ... #..
12190 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 # NOTE
121a0 3a 20 53 6b 69 70 20 74 72 79 69 6e 67 20 74 6f : Skip trying to
121b0 20 6c 6f 61 64 20 61 6e 79 20 66 69 6c 65 73 20 load any files
121c0 69 66 20 77 65 20 61 72 65 20 73 6f 20 69 6e 73 if we are so ins
121d0 74 72 75 63 74 65 64 2e 0d 0a 20 20 20 20 20 20 tructed...
121e0 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 #..
121f0 20 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 if {![info exis
12200 74 73 20 3a 3a 6e 6f 28 6c 6f 61 64 53 71 6c 69 ts ::no(loadSqli
12210 74 65 46 69 6c 65 73 29 5d 7d 20 74 68 65 6e 20 teFiles)]} then
12220 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 {.. t
12230 72 79 4c 6f 61 64 41 73 73 65 6d 62 6c 79 20 53 ryLoadAssembly S
12240 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 ystem.Data.SQLit
12250 65 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 20 20 20 e.dll..
12260 20 20 20 74 72 79 4c 6f 61 64 41 73 73 65 6d 62 tryLoadAssemb
12270 6c 79 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 ly System.Data.S
12280 51 4c 69 74 65 2e 4c 69 6e 71 2e 64 6c 6c 0d 0a QLite.Linq.dll..
12290 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 }....
122a0 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 #..
122b0 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 6b # NOTE: Sk
122c0 69 70 20 74 72 79 69 6e 67 20 74 6f 20 64 65 6c ip trying to del
122d0 65 74 65 20 65 78 74 65 72 6e 61 6c 20 66 69 6c ete external fil
122e0 65 73 20 69 66 20 77 65 20 61 72 65 20 73 6f 20 es if we are so
122f0 69 6e 73 74 72 75 63 74 65 64 2e 0d 0a 20 20 20 instructed...
12300 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
12310 20 20 20 20 69 66 20 7b 21 5b 69 6e 66 6f 20 65 if {![info e
12320 78 69 73 74 73 20 3a 3a 6e 6f 28 64 65 6c 65 74 xists ::no(delet
12330 65 53 71 6c 69 74 65 45 78 74 65 72 6e 61 6c 46 eSqliteExternalF
12340 69 6c 65 73 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a iles)]} then {..
12350 20 20 20 20 20 20 20 20 20 20 20 20 74 72 79 44 tryD
12360 65 6c 65 74 65 42 75 69 6c 64 46 69 6c 65 20 49 eleteBuildFile I
12370 6e 73 74 61 6c 6c 65 72 2e 65 78 65 2e 6d 64 61 nstaller.exe.mda
12380 2e 63 6f 6e 66 69 67 0d 0a 20 20 20 20 20 20 20 .config..
12390 20 20 20 20 20 74 72 79 44 65 6c 65 74 65 42 75 tryDeleteBu
123a0 69 6c 64 46 69 6c 65 20 74 65 73 74 2e 65 78 65 ildFile test.exe
123b0 2e 6d 64 61 2e 63 6f 6e 66 69 67 0d 0a 20 20 20 .mda.config..
123c0 20 20 20 20 20 20 20 20 20 74 72 79 44 65 6c 65 tryDele
123d0 74 65 42 75 69 6c 64 46 69 6c 65 20 74 65 73 74 teBuildFile test
123e0 6c 69 6e 71 2e 65 78 65 2e 6d 64 61 2e 63 6f 6e linq.exe.mda.con
123f0 66 69 67 0d 0a 20 20 20 20 20 20 20 20 20 20 7d fig.. }
12400 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d .... #.
12410 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 . # NOT
12420 45 3a 20 53 6b 69 70 20 74 72 79 69 6e 67 20 74 E: Skip trying t
12430 6f 20 63 6f 70 79 20 65 78 74 65 72 6e 61 6c 20 o copy external
12440 66 69 6c 65 73 20 69 66 20 77 65 20 61 72 65 20 files if we are
12450 73 6f 20 69 6e 73 74 72 75 63 74 65 64 2e 0d 0a so instructed...
12460 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 #..
12470 20 20 20 20 20 20 20 69 66 20 7b 21 5b 69 6e 66 if {![inf
12480 6f 20 65 78 69 73 74 73 20 3a 3a 6e 6f 28 63 6f o exists ::no(co
12490 70 79 53 71 6c 69 74 65 45 78 74 65 72 6e 61 6c pySqliteExternal
124a0 46 69 6c 65 73 29 5d 7d 20 74 68 65 6e 20 7b 0d Files)]} then {.
124b0 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 0d 0a . #..
124c0 20 20 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f # NO
124d0 54 45 3a 20 43 6f 70 79 20 74 68 65 20 4d 44 41 TE: Copy the MDA
124e0 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 66 configuration f
124f0 69 6c 65 20 66 6f 72 20 74 68 65 20 45 61 67 6c ile for the Eagl
12500 65 20 73 68 65 6c 6c 20 74 6f 20 74 68 65 0d 0a e shell to the..
12510 20 20 20 20 20 20 20 20 20 20 20 20 23 20 20 20 #
12520 20 20 20 20 62 75 69 6c 64 20 6f 75 74 70 75 74 build output
12530 20 64 69 72 65 63 74 6f 72 79 3b 20 68 6f 77 65 directory; howe
12540 76 65 72 2c 20 75 73 65 20 74 68 65 20 6e 61 6d ver, use the nam
12550 65 20 6f 66 20 74 68 65 20 6c 65 67 61 63 79 0d e of the legacy.
12560 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 20 20 . #
12570 20 20 20 20 20 74 65 73 74 20 65 78 65 63 75 74 test execut
12580 61 62 6c 65 2e 20 20 54 68 69 73 20 77 69 6c 6c able. This will
12590 20 6d 61 6b 65 20 73 75 72 65 20 74 68 61 74 20 make sure that
125a0 74 68 65 20 6c 65 67 61 63 79 20 74 65 73 74 73 the legacy tests
125b0 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 20 .. #
125c0 20 20 20 20 20 20 72 75 6e 20 77 69 74 68 20 74 run with t
125d0 68 65 20 73 61 6d 65 20 73 65 74 20 6f 66 20 4d he same set of M
125e0 44 41 73 20 63 6f 6e 66 69 67 75 72 65 64 2e 0d DAs configured..
125f0 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 0d 0a . #..
12600 20 20 20 20 20 20 20 20 20 20 20 20 74 72 79 43 tryC
12610 6f 70 79 42 69 6e 61 72 79 46 69 6c 65 20 45 61 opyBinaryFile Ea
12620 67 6c 65 53 68 65 6c 6c 2e 65 78 65 2e 6d 64 61 gleShell.exe.mda
12630 2e 63 6f 6e 66 69 67 20 49 6e 73 74 61 6c 6c 65 .config Installe
12640 72 2e 65 78 65 2e 6d 64 61 2e 63 6f 6e 66 69 67 r.exe.mda.config
12650 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 72 .. tr
12660 79 43 6f 70 79 42 69 6e 61 72 79 46 69 6c 65 20 yCopyBinaryFile
12670 45 61 67 6c 65 53 68 65 6c 6c 2e 65 78 65 2e 6d EagleShell.exe.m
12680 64 61 2e 63 6f 6e 66 69 67 20 74 65 73 74 2e 65 da.config test.e
12690 78 65 2e 6d 64 61 2e 63 6f 6e 66 69 67 0d 0a 20 xe.mda.config..
126a0 20 20 20 20 20 20 20 20 20 20 20 74 72 79 43 6f tryCo
126b0 70 79 42 69 6e 61 72 79 46 69 6c 65 20 45 61 67 pyBinaryFile Eag
126c0 6c 65 53 68 65 6c 6c 2e 65 78 65 2e 6d 64 61 2e leShell.exe.mda.
126d0 63 6f 6e 66 69 67 20 74 65 73 74 6c 69 6e 71 2e config testlinq.
126e0 65 78 65 2e 6d 64 61 2e 63 6f 6e 66 69 67 0d 0a exe.mda.config..
126f0 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 }..
12700 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 }....
12710 20 20 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 catch {..
12720 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 tputs $::te
12730 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 st_channel [appe
12740 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 ndArgs \..
12750 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 66 69 "---- fi
12760 6c 65 20 76 65 72 73 69 6f 6e 20 6f 66 20 5c 22 le version of \"
12770 73 71 6c 69 74 65 33 2e 64 6c 6c 5c 22 2e 2e 2e sqlite3.dll\"...
12780 20 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 " \..
12790 20 20 20 20 5b 66 69 6c 65 20 76 65 72 73 69 6f [file versio
127a0 6e 20 5b 67 65 74 42 69 6e 61 72 79 46 69 6c 65 n [getBinaryFile
127b0 4e 61 6d 65 20 73 71 6c 69 74 65 33 2e 64 6c 6c Name sqlite3.dll
127c0 5d 5d 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 ]] \n]..
127d0 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 63 61 74 }.... cat
127e0 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 ch {..
127f0 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 tputs $::test_ch
12800 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 annel [appendArg
12810 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 s \..
12820 20 20 20 22 2d 2d 2d 2d 20 66 69 6c 65 20 76 65 "---- file ve
12830 72 73 69 6f 6e 20 6f 66 20 5c 22 53 51 4c 69 74 rsion of \"SQLit
12840 65 2e 49 6e 74 65 72 6f 70 2e 64 6c 6c 5c 22 2e e.Interop.dll\".
12850 2e 2e 20 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 .. " \..
12860 20 20 20 20 20 20 5b 66 69 6c 65 20 76 65 72 73 [file vers
12870 69 6f 6e 20 5b 67 65 74 42 69 6e 61 72 79 46 69 ion [getBinaryFi
12880 6c 65 4e 61 6d 65 20 53 51 4c 69 74 65 2e 49 6e leName SQLite.In
12890 74 65 72 6f 70 2e 64 6c 6c 5d 5d 20 5c 6e 5d 0d terop.dll]] \n].
128a0 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 . }....
128b0 20 20 20 20 20 20 63 61 74 63 68 20 7b 0d 0a 20 catch {..
128c0 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 tputs $
128d0 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b ::test_channel [
128e0 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 appendArgs \..
128f0 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d "---
12900 2d 20 66 69 6c 65 20 76 65 72 73 69 6f 6e 20 6f - file version o
12910 66 20 5c 22 53 79 73 74 65 6d 2e 44 61 74 61 2e f \"System.Data.
12920 53 51 4c 69 74 65 2e 64 6c 6c 5c 22 2e 2e 2e 20 SQLite.dll\"...
12930 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 " \..
12940 20 20 20 5b 66 69 6c 65 20 76 65 72 73 69 6f 6e [file version
12950 20 5b 67 65 74 42 69 6e 61 72 79 46 69 6c 65 4e [getBinaryFileN
12960 61 6d 65 20 53 79 73 74 65 6d 2e 44 61 74 61 2e ame System.Data.
12970 53 51 4c 69 74 65 2e 64 6c 6c 5d 5d 20 5c 6e 5d SQLite.dll]] \n]
12980 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 .. }....
12990 20 20 20 20 20 20 20 63 61 74 63 68 20 7b 0d 0a catch {..
129a0 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 tputs
129b0 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 $::test_channel
129c0 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 [appendArgs \..
129d0 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d "--
129e0 2d 2d 20 66 69 6c 65 20 76 65 72 73 69 6f 6e 20 -- file version
129f0 6f 66 20 5c 22 53 79 73 74 65 6d 2e 44 61 74 61 of \"System.Data
12a00 2e 53 51 4c 69 74 65 2e 4c 69 6e 71 2e 64 6c 6c .SQLite.Linq.dll
12a10 5c 22 2e 2e 2e 20 22 20 5c 0d 0a 20 20 20 20 20 \"... " \..
12a20 20 20 20 20 20 20 20 20 20 5b 66 69 6c 65 20 76 [file v
12a30 65 72 73 69 6f 6e 20 5b 67 65 74 42 69 6e 61 72 ersion [getBinar
12a40 79 46 69 6c 65 4e 61 6d 65 20 53 79 73 74 65 6d yFileName System
12a50 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 4c 69 6e .Data.SQLite.Lin
12a60 71 2e 64 6c 6c 5d 5d 20 5c 6e 5d 0d 0a 20 20 20 q.dll]] \n]..
12a70 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 }....
12a80 20 20 73 65 74 20 61 73 73 65 6d 62 6c 69 65 73 set assemblies
12a90 20 5b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 [object invoke
12aa0 41 70 70 44 6f 6d 61 69 6e 2e 43 75 72 72 65 6e AppDomain.Curren
12ab0 74 44 6f 6d 61 69 6e 20 47 65 74 41 73 73 65 6d tDomain GetAssem
12ac0 62 6c 69 65 73 5d 0d 0a 0d 0a 20 20 20 20 20 20 blies]....
12ad0 20 20 6f 62 6a 65 63 74 20 66 6f 72 65 61 63 68 object foreach
12ae0 20 61 73 73 65 6d 62 6c 79 20 24 61 73 73 65 6d assembly $assem
12af0 62 6c 69 65 73 20 7b 0d 0a 20 20 20 20 20 20 20 blies {..
12b00 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6d if {[string m
12b10 61 74 63 68 20 5c 7b 53 79 73 74 65 6d 2e 44 61 atch \{System.Da
12b20 74 61 2e 53 51 4c 69 74 65 2a 20 24 61 73 73 65 ta.SQLite* $asse
12b30 6d 62 6c 79 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 mbly]} then {..
12b40 20 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 tputs
12b50 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c $::test_channel
12b60 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a [appendArgs \..
12b70 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
12b80 22 2d 2d 2d 2d 20 66 6f 75 6e 64 20 61 73 73 65 "---- found asse
12b90 6d 62 6c 79 3a 20 22 20 24 61 73 73 65 6d 62 6c mbly: " $assembl
12ba0 79 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 20 y \n]..
12bb0 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d }.. }...
12bc0 0a 20 20 20 20 20 20 20 20 63 61 74 63 68 20 7b . catch {
12bd0 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70 75 74 .. tput
12be0 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 s $::test_channe
12bf0 6c 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 l \..
12c00 20 20 20 22 2d 2d 2d 2d 20 64 65 66 69 6e 65 20 "---- define
12c10 63 6f 6e 73 74 61 6e 74 73 20 66 6f 72 20 5c 22 constants for \"
12c20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 System.Data.SQLi
12c30 74 65 5c 22 2e 2e 2e 20 22 0d 0a 0d 0a 20 20 20 te\"... "....
12c40 20 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 if {[catc
12c50 68 20 7b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 h {object invoke
12c60 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 6c -flags +NonPubl
12c70 69 63 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 ic \..
12c80 20 20 20 20 20 20 20 20 53 79 73 74 65 6d 2e 44 System.D
12c90 61 74 61 2e 53 51 4c 69 74 65 2e 53 51 4c 69 74 ata.SQLite.SQLit
12ca0 65 33 20 44 65 66 69 6e 65 43 6f 6e 73 74 61 6e e3 DefineConstan
12cb0 74 73 7d 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 ts} \..
12cc0 20 20 20 20 20 20 20 20 20 64 65 66 69 6e 65 43 defineC
12cd0 6f 6e 73 74 61 6e 74 73 5d 20 3d 3d 20 30 7d 20 onstants] == 0}
12ce0 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 then {..
12cf0 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 tputs $::tes
12d00 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e t_channel [appen
12d10 64 41 72 67 73 20 5b 66 6f 72 6d 61 74 4c 69 73 dArgs [formatLis
12d20 74 20 5b 6c 73 6f 72 74 20 5c 0d 0a 20 20 20 20 t [lsort \..
12d30 20 20 20 20 20 20 20 20 20 20 20 20 24 64 65 66 $def
12d40 69 6e 65 43 6f 6e 73 74 61 6e 74 73 5d 20 3c 6e ineConstants] <n
12d50 6f 6e 65 3e 5d 20 5c 6e 5d 0d 0a 20 20 20 20 20 one>] \n]..
12d60 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 } else {..
12d70 20 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 tputs
12d80 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c $::test_channel
12d90 20 75 6e 6b 6e 6f 77 6e 5c 6e 0d 0a 20 20 20 20 unknown\n..
12da0 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 }..
12db0 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 63 61 }.... ca
12dc0 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 tch {..
12dd0 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 tputs $::test_c
12de0 68 61 6e 6e 65 6c 20 5c 0d 0a 20 20 20 20 20 20 hannel \..
12df0 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 73 6f "---- so
12e00 75 72 63 65 20 76 65 72 73 69 6f 6e 20 6f 66 20 urce version of
12e10 5c 22 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 \"System.Data.SQ
12e20 4c 69 74 65 2e 64 6c 6c 5c 22 2e 2e 2e 20 22 0d Lite.dll\"... ".
12e30 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 ... if
12e40 7b 5b 63 61 74 63 68 20 7b 6f 62 6a 65 63 74 20 {[catch {object
12e50 69 6e 76 6f 6b 65 20 2d 66 6c 61 67 73 20 2b 4e invoke -flags +N
12e60 6f 6e 50 75 62 6c 69 63 20 5c 0d 0a 20 20 20 20 onPublic \..
12e70 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 79 Sy
12e80 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 stem.Data.SQLite
12e90 2e 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f .SQLiteConnectio
12ea0 6e 20 50 72 6f 76 69 64 65 72 56 65 72 73 69 6f n ProviderVersio
12eb0 6e 7d 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 n} \..
12ec0 20 20 20 20 20 20 20 20 76 65 72 73 69 6f 6e 5d version]
12ed0 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 == 0} then {..
12ee0 20 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 5b if {[
12ef0 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 76 string length $v
12f00 65 72 73 69 6f 6e 5d 20 3d 3d 20 30 7d 20 74 68 ersion] == 0} th
12f10 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 en {..
12f20 20 20 20 20 73 65 74 20 76 65 72 73 69 6f 6e 20 set version
12f30 6e 75 6c 6c 0d 0a 20 20 20 20 20 20 20 20 20 20 null..
12f40 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 }..
12f50 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 tputs $::test_c
12f60 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 hannel [appendAr
12f70 67 73 20 24 76 65 72 73 69 6f 6e 20 5c 6e 5d 0d gs $version \n].
12f80 0a 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73 . } els
12f90 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 e {..
12fa0 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 tputs $::test_c
12fb0 68 61 6e 6e 65 6c 20 75 6e 6b 6e 6f 77 6e 5c 6e hannel unknown\n
12fc0 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 .. }..
12fd0 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 }....
12fe0 20 20 20 20 63 61 74 63 68 20 7b 0d 0a 20 20 20 catch {..
12ff0 20 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a tputs $::
13000 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5c 0d 0a test_channel \..
13010 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2d "-
13020 2d 2d 2d 20 73 6f 75 72 63 65 20 63 68 65 63 6b --- source check
13030 6f 75 74 20 6f 66 20 5c 22 53 79 73 74 65 6d 2e out of \"System.
13040 44 61 74 61 2e 53 51 4c 69 74 65 2e 64 6c 6c 5c Data.SQLite.dll\
13050 22 2e 2e 2e 20 22 0d 0a 0d 0a 20 20 20 20 20 20 "... "....
13060 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b if {[catch {
13070 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d 66 object invoke -f
13080 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 lags +NonPublic
13090 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 \..
130a0 20 20 20 20 20 53 79 73 74 65 6d 2e 44 61 74 61 System.Data
130b0 2e 53 51 4c 69 74 65 2e 53 51 4c 69 74 65 43 6f .SQLite.SQLiteCo
130c0 6e 6e 65 63 74 69 6f 6e 20 50 72 6f 76 69 64 65 nnection Provide
130d0 72 53 6f 75 72 63 65 49 64 7d 20 5c 0d 0a 20 20 rSourceId} \..
130e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
130f0 73 6f 75 72 63 65 49 64 5d 20 3d 3d 20 30 7d 20 sourceId] == 0}
13100 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 then {..
13110 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 if {[string
13120 6c 65 6e 67 74 68 20 24 73 6f 75 72 63 65 49 64 length $sourceId
13130 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a ] == 0} then {..
13140 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 se
13150 74 20 73 6f 75 72 63 65 49 64 20 6e 75 6c 6c 0d t sourceId null.
13160 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a . }..
13170 20 20 20 20 20 20 20 20 20 20 20 20 74 70 75 74 tput
13180 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 s $::test_channe
13190 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 24 73 l [appendArgs $s
131a0 6f 75 72 63 65 49 64 20 5c 6e 5d 0d 0a 20 20 20 ourceId \n]..
131b0 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d } else {.
131c0 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 70 75 . tpu
131d0 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e ts $::test_chann
131e0 65 6c 20 75 6e 6b 6e 6f 77 6e 5c 6e 0d 0a 20 20 el unknown\n..
131f0 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 }..
13200 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 }....
13210 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT
13220 45 3a 20 43 68 65 63 6b 20 74 68 65 20 61 76 61 E: Check the ava
13230 69 6c 61 62 6c 65 20 62 75 69 6c 64 73 20 6f 66 ilable builds of
13240 20 53 51 4c 69 74 65 20 61 6e 64 20 53 79 73 74 SQLite and Syst
13250 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 0d em.Data.SQLite..
13260 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #..
13270 20 20 20 20 63 68 65 63 6b 46 6f 72 53 51 4c 69 checkForSQLi
13280 74 65 42 75 69 6c 64 73 20 24 3a 3a 74 65 73 74 teBuilds $::test
13290 5f 63 68 61 6e 6e 65 6c 0d 0a 0d 0a 20 20 20 20 _channel....
132a0 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 #.. #
132b0 20 4e 4f 54 45 3a 20 4e 6f 77 2c 20 77 65 20 6e NOTE: Now, we n
132c0 65 65 64 20 74 6f 20 6b 6e 6f 77 20 69 66 20 74 eed to know if t
132d0 68 65 20 53 51 4c 69 74 65 20 63 6f 72 65 20 6c he SQLite core l
132e0 69 62 72 61 72 79 20 69 73 20 61 76 61 69 6c 61 ibrary is availa
132f0 62 6c 65 0d 0a 20 20 20 20 20 20 20 20 23 20 20 ble.. #
13300 20 20 20 20 20 28 69 2e 65 2e 20 62 65 63 61 75 (i.e. becau
13310 73 65 20 74 68 65 20 6d 61 6e 61 67 65 64 2d 6f se the managed-o
13320 6e 6c 79 20 53 79 73 74 65 6d 2e 44 61 74 61 2e nly System.Data.
13330 53 51 4c 69 74 65 20 61 73 73 65 6d 62 6c 79 20 SQLite assembly
13340 63 61 6e 0d 0a 20 20 20 20 20 20 20 20 23 20 20 can.. #
13350 20 20 20 20 20 6c 6f 61 64 20 77 69 74 68 6f 75 load withou
13360 74 20 69 74 3b 20 68 6f 77 65 76 65 72 2c 20 69 t it; however, i
13370 74 20 63 61 6e 6e 6f 74 20 64 6f 20 61 6e 79 74 t cannot do anyt
13380 68 69 6e 67 20 75 73 65 66 75 6c 20 77 69 74 68 hing useful with
13390 6f 75 74 0d 0a 20 20 20 20 20 20 20 20 23 20 20 out.. #
133a0 20 20 20 20 20 69 74 29 2e 20 20 49 66 20 77 65 it). If we
133b0 20 61 72 65 20 75 73 69 6e 67 20 74 68 65 20 6d are using the m
133c0 69 78 65 64 2d 6d 6f 64 65 20 61 73 73 65 6d 62 ixed-mode assemb
133d0 6c 79 20 61 6e 64 20 77 65 20 61 6c 72 65 61 64 ly and we alread
133e0 79 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 y.. #
133f0 20 20 20 66 6f 75 6e 64 20 69 74 20 28 61 62 6f found it (abo
13400 76 65 29 2c 20 74 68 69 73 20 73 68 6f 75 6c 64 ve), this should
13410 20 61 6c 77 61 79 73 20 73 75 63 63 65 65 64 2e always succeed.
13420 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #..
13430 20 20 20 20 20 63 68 65 63 6b 46 6f 72 53 51 4c checkForSQL
13440 69 74 65 4c 69 62 72 61 72 79 20 24 3a 3a 74 65 iteLibrary $::te
13450 73 74 5f 63 68 61 6e 6e 65 6c 0d 0a 0d 0a 20 20 st_channel....
13460 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
13470 20 23 20 4e 4f 54 45 3a 20 43 68 65 63 6b 20 69 # NOTE: Check i
13480 66 20 74 68 65 20 53 51 4c 69 74 65 20 69 6e 74 f the SQLite int
13490 65 72 6f 70 20 61 73 73 65 6d 62 6c 79 20 69 73 erop assembly is
134a0 20 61 76 61 69 6c 61 62 6c 65 2e 0d 0a 20 20 20 available...
134b0 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #..
134c0 63 68 65 63 6b 46 6f 72 53 51 4c 69 74 65 49 6e checkForSQLiteIn
134d0 74 65 72 6f 70 20 24 3a 3a 74 65 73 74 5f 63 68 terop $::test_ch
134e0 61 6e 6e 65 6c 0d 0a 0d 0a 20 20 20 20 20 20 20 annel....
134f0 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f #.. # NO
13500 54 45 3a 20 43 68 65 63 6b 20 74 68 65 20 53 51 TE: Check the SQ
13510 4c 69 74 65 20 64 61 74 61 62 61 73 65 20 61 6e Lite database an
13520 64 20 74 65 6d 70 6f 72 61 72 79 20 64 69 72 65 d temporary dire
13530 63 74 6f 72 69 65 73 2e 0d 0a 20 20 20 20 20 20 ctories...
13540 20 20 23 0d 0a 20 20 20 20 20 20 20 20 63 68 65 #.. che
13550 63 6b 46 6f 72 53 51 4c 69 74 65 44 69 72 65 63 ckForSQLiteDirec
13560 74 6f 72 69 65 73 20 24 3a 3a 74 65 73 74 5f 63 tories $::test_c
13570 68 61 6e 6e 65 6c 0d 0a 0d 0a 20 20 20 20 20 20 hannel....
13580 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e #.. # N
13590 4f 54 45 3a 20 41 74 74 65 6d 70 74 20 74 6f 20 OTE: Attempt to
135a0 64 65 74 65 72 6d 69 6e 65 20 69 66 20 76 61 72 determine if var
135b0 69 6f 75 73 20 63 6f 6d 70 69 6c 65 2d 74 69 6d ious compile-tim
135c0 65 20 6f 70 74 69 6f 6e 73 20 6e 65 65 64 65 64 e options needed
135d0 20 66 6f 72 0d 0a 20 20 20 20 20 20 20 20 23 20 for.. #
135e0 20 20 20 20 20 20 74 65 73 74 20 63 6f 6e 73 74 test const
135f0 72 61 69 6e 74 73 20 77 65 72 65 20 65 6e 61 62 raints were enab
13600 6c 65 64 20 66 6f 72 20 74 68 65 20 6d 61 6e 61 led for the mana
13610 67 65 64 20 61 73 73 65 6d 62 6c 79 2e 20 20 54 ged assembly. T
13620 68 65 72 65 0d 0a 20 20 20 20 20 20 20 20 23 20 here.. #
13630 20 20 20 20 20 20 61 72 65 20 73 6f 6d 65 20 63 are some c
13640 6f 6d 70 69 6c 65 2d 74 69 6d 65 20 6f 70 74 69 ompile-time opti
13650 6f 6e 73 20 74 68 61 74 20 6d 75 73 74 20 61 6c ons that must al
13660 73 6f 20 68 61 76 65 20 62 65 65 6e 20 65 6e 61 so have been ena
13670 62 6c 65 64 0d 0a 20 20 20 20 20 20 20 20 23 20 bled.. #
13680 20 20 20 20 20 20 66 6f 72 20 74 68 65 20 69 6e for the in
13690 74 65 72 6f 70 20 61 73 73 65 6d 62 6c 79 20 69 terop assembly i
136a0 6e 20 6f 72 64 65 72 20 74 6f 20 62 65 20 65 66 n order to be ef
136b0 66 65 63 74 69 76 65 2e 20 20 46 6f 72 20 74 68 fective. For th
136c0 6f 73 65 0d 0a 20 20 20 20 20 20 20 20 23 20 20 ose.. #
136d0 20 20 20 20 20 6f 70 74 69 6f 6e 73 2c 20 69 74 options, it
136e0 20 77 69 6c 6c 20 62 65 20 61 73 73 75 6d 65 64 will be assumed
136f0 20 74 68 61 74 20 69 74 20 77 61 73 20 65 6e 61 that it was ena
13700 62 6c 65 64 20 66 6f 72 20 74 68 65 20 69 6e 74 bled for the int
13710 65 72 6f 70 0d 0a 20 20 20 20 20 20 20 20 23 20 erop.. #
13720 20 20 20 20 20 20 61 73 73 65 6d 62 6c 79 20 69 assembly i
13730 66 20 69 74 20 77 61 73 20 65 6e 61 62 6c 65 64 f it was enabled
13740 20 66 6f 72 20 74 68 65 20 6d 61 6e 61 67 65 64 for the managed
13750 20 61 73 73 65 6d 62 6c 79 2e 0d 0a 20 20 20 20 assembly...
13760 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 66 #.. f
13770 6f 72 65 61 63 68 20 64 65 66 69 6e 65 43 6f 6e oreach defineCon
13780 73 74 61 6e 74 20 5b 6c 69 73 74 20 5c 0d 0a 20 stant [list \..
13790 20 20 20 20 20 20 20 20 20 20 20 43 48 45 43 4b CHECK
137a0 5f 53 54 41 54 45 20 43 4f 55 4e 54 5f 48 41 4e _STATE COUNT_HAN
137b0 44 4c 45 20 44 45 42 55 47 20 49 4e 54 45 52 4f DLE DEBUG INTERO
137c0 50 5f 43 4f 44 45 43 20 49 4e 54 45 52 4f 50 5f P_CODEC INTEROP_
137d0 44 45 42 55 47 20 5c 0d 0a 20 20 20 20 20 20 20 DEBUG \..
137e0 20 20 20 20 20 49 4e 54 45 52 4f 50 5f 45 58 54 INTEROP_EXT
137f0 45 4e 53 49 4f 4e 5f 46 55 4e 43 54 49 4f 4e 53 ENSION_FUNCTIONS
13800 20 49 4e 54 45 52 4f 50 5f 4c 45 47 41 43 59 5f INTEROP_LEGACY_
13810 43 4c 4f 53 45 20 49 4e 54 45 52 4f 50 5f 4c 4f CLOSE INTEROP_LO
13820 47 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 G \..
13830 20 49 4e 54 45 52 4f 50 5f 54 45 53 54 5f 45 58 INTEROP_TEST_EX
13840 54 45 4e 53 49 4f 4e 20 49 4e 54 45 52 4f 50 5f TENSION INTEROP_
13850 56 49 52 54 55 41 4c 5f 54 41 42 4c 45 20 4e 45 VIRTUAL_TABLE NE
13860 54 5f 32 30 20 4e 45 54 5f 33 35 20 5c 0d 0a 20 T_20 NET_35 \..
13870 20 20 20 20 20 20 20 20 20 20 20 4e 45 54 5f 34 NET_4
13880 30 20 4e 45 54 5f 34 35 20 4e 45 54 5f 43 4f 4d 0 NET_45 NET_COM
13890 50 41 43 54 5f 32 30 20 50 4c 41 54 46 4f 52 4d PACT_20 PLATFORM
138a0 5f 43 4f 4d 50 41 43 54 46 52 41 4d 45 57 4f 52 _COMPACTFRAMEWOR
138b0 4b 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 K \..
138c0 20 50 52 45 4c 4f 41 44 5f 4e 41 54 49 56 45 5f PRELOAD_NATIVE_
138d0 4c 49 42 52 41 52 59 20 52 45 54 41 52 47 45 54 LIBRARY RETARGET
138e0 41 42 4c 45 20 53 51 4c 49 54 45 5f 53 54 41 4e ABLE SQLITE_STAN
138f0 44 41 52 44 20 5c 0d 0a 20 20 20 20 20 20 20 20 DARD \..
13900 20 20 20 20 54 48 52 4f 57 5f 4f 4e 5f 44 49 53 THROW_ON_DIS
13910 50 4f 53 45 44 20 54 52 41 43 45 20 54 52 41 43 POSED TRACE TRAC
13920 45 5f 43 4f 4e 4e 45 43 54 49 4f 4e 20 54 52 41 E_CONNECTION TRA
13930 43 45 5f 48 41 4e 44 4c 45 20 5c 0d 0a 20 20 20 CE_HANDLE \..
13940 20 20 20 20 20 20 20 20 20 54 52 41 43 45 5f 50 TRACE_P
13950 52 45 4c 4f 41 44 20 54 52 41 43 45 5f 53 54 41 RELOAD TRACE_STA
13960 54 45 4d 45 4e 54 20 54 52 41 43 45 5f 57 41 52 TEMENT TRACE_WAR
13970 4e 49 4e 47 20 54 52 41 43 4b 5f 4d 45 4d 4f 52 NING TRACK_MEMOR
13980 59 5f 42 59 54 45 53 20 5c 0d 0a 20 20 20 20 20 Y_BYTES \..
13990 20 20 20 20 20 20 20 55 53 45 5f 49 4e 54 45 52 USE_INTER
139a0 4f 50 5f 44 4c 4c 20 55 53 45 5f 50 52 45 50 41 OP_DLL USE_PREPA
139b0 52 45 5f 56 32 20 57 49 4e 44 4f 57 53 5d 20 7b RE_V2 WINDOWS] {
139c0 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 .. #..
139d0 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a # NOTE:
139e0 20 43 68 65 63 6b 20 69 66 20 74 68 65 20 63 6f Check if the co
139f0 6d 70 69 6c 65 2d 74 69 6d 65 20 6f 70 74 69 6f mpile-time optio
13a00 6e 20 69 73 20 6c 69 73 74 65 64 20 69 6e 20 74 n is listed in t
13a10 68 65 20 6c 69 73 74 20 6f 66 0d 0a 20 20 20 20 he list of..
13a20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 22 64 # "d
13a30 65 66 69 6e 65 20 63 6f 6e 73 74 61 6e 74 73 22 efine constants"
13a40 20 6b 65 70 74 20 74 72 61 63 6b 20 6f 66 20 62 kept track of b
13a50 79 20 74 68 65 20 6d 61 6e 61 67 65 64 20 61 73 y the managed as
13a60 73 65 6d 62 6c 79 2e 0d 0a 20 20 20 20 20 20 20 sembly...
13a70 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 #..
13a80 63 68 65 63 6b 46 6f 72 53 51 4c 69 74 65 44 65 checkForSQLiteDe
13a90 66 69 6e 65 43 6f 6e 73 74 61 6e 74 20 24 3a 3a fineConstant $::
13aa0 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 24 64 65 test_channel $de
13ab0 66 69 6e 65 43 6f 6e 73 74 61 6e 74 0d 0a 20 20 fineConstant..
13ac0 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 }....
13ad0 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 #.. #
13ae0 4e 4f 54 45 3a 20 43 68 65 63 6b 20 74 68 65 20 NOTE: Check the
13af0 63 75 72 72 65 6e 74 20 62 75 69 6c 64 20 79 65 current build ye
13b00 61 72 2e 20 20 42 61 73 69 63 61 6c 6c 79 2c 20 ar. Basically,
13b10 74 68 69 73 20 69 6e 64 69 63 61 74 65 73 0d 0a this indicates..
13b20 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 #
13b30 77 68 69 63 68 20 76 65 72 73 69 6f 6e 20 6f 66 which version of
13b40 20 4d 53 42 75 69 6c 64 20 61 6e 64 2f 6f 72 20 MSBuild and/or
13b50 56 69 73 75 61 6c 20 53 74 75 64 69 6f 20 77 61 Visual Studio wa
13b60 73 20 75 73 65 64 20 74 6f 0d 0a 20 20 20 20 20 s used to..
13b70 20 20 20 23 20 20 20 20 20 20 20 63 6f 6d 70 69 # compi
13b80 6c 65 20 74 68 65 20 61 73 73 65 6d 62 6c 79 20 le the assembly
13b90 62 69 6e 61 72 69 65 73 20 75 6e 64 65 72 20 74 binaries under t
13ba0 65 73 74 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d est... #.
13bb0 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 . tputs $
13bc0 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5c ::test_channel \
13bd0 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 2d .. "-
13be0 2d 2d 2d 20 63 68 65 63 6b 69 6e 67 20 66 6f 72 --- checking for
13bf0 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c System.Data.SQL
13c00 69 74 65 20 62 75 69 6c 64 20 79 65 61 72 2e 2e ite build year..
13c10 2e 20 22 0d 0a 0d 0a 20 20 20 20 20 20 20 20 73 . ".... s
13c20 65 74 20 79 65 61 72 20 5b 67 65 74 42 75 69 6c et year [getBuil
13c30 64 59 65 61 72 5d 0d 0a 20 20 20 20 20 20 20 20 dYear]..
13c40 61 64 64 43 6f 6e 73 74 72 61 69 6e 74 20 5b 61 addConstraint [a
13c50 70 70 65 6e 64 41 72 67 73 20 62 75 69 6c 64 59 ppendArgs buildY
13c60 65 61 72 2e 20 24 79 65 61 72 5d 0d 0a 20 20 20 ear. $year]..
13c70 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 tputs $::te
13c80 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 st_channel [appe
13c90 6e 64 41 72 67 73 20 5c 22 20 24 79 65 61 72 20 ndArgs \" $year
13ca0 5c 22 5c 6e 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 \"\n]....
13cb0 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f #.. # NO
13cc0 54 45 3a 20 43 68 65 63 6b 20 74 68 65 20 63 75 TE: Check the cu
13cd0 72 72 65 6e 74 20 62 75 69 6c 64 20 63 6f 6e 66 rrent build conf
13ce0 69 67 75 72 61 74 69 6f 6e 2e 20 20 54 68 69 73 iguration. This
13cf0 20 73 68 6f 75 6c 64 20 6e 6f 72 6d 61 6c 6c 79 should normally
13d00 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 .. #
13d10 20 20 62 65 20 65 69 74 68 65 72 20 22 44 65 62 be either "Deb
13d20 75 67 22 20 6f 72 20 22 52 65 6c 65 61 73 65 22 ug" or "Release"
13d30 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 ... #..
13d40 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 tputs $::t
13d50 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5c 0d 0a 20 est_channel \..
13d60 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d "----
13d70 20 63 68 65 63 6b 69 6e 67 20 66 6f 72 20 53 79 checking for Sy
13d80 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 stem.Data.SQLite
13d90 20 62 75 69 6c 64 20 63 6f 6e 66 69 67 75 72 61 build configura
13da0 74 69 6f 6e 2e 2e 2e 20 22 0d 0a 0d 0a 20 20 20 tion... "....
13db0 20 20 20 20 20 73 65 74 20 63 6f 6e 66 69 67 75 set configu
13dc0 72 61 74 69 6f 6e 20 5b 67 65 74 42 75 69 6c 64 ration [getBuild
13dd0 43 6f 6e 66 69 67 75 72 61 74 69 6f 6e 5d 0d 0a Configuration]..
13de0 20 20 20 20 20 20 20 20 61 64 64 43 6f 6e 73 74 addConst
13df0 72 61 69 6e 74 20 5b 61 70 70 65 6e 64 41 72 67 raint [appendArg
13e00 73 20 62 75 69 6c 64 43 6f 6e 66 69 67 75 72 61 s buildConfigura
13e10 74 69 6f 6e 2e 20 24 63 6f 6e 66 69 67 75 72 61 tion. $configura
13e20 74 69 6f 6e 5d 0d 0a 20 20 20 20 20 20 20 20 74 tion].. t
13e30 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 puts $::test_cha
13e40 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 nnel [appendArgs
13e50 20 5c 22 20 24 63 6f 6e 66 69 67 75 72 61 74 69 \" $configurati
13e60 6f 6e 20 5c 22 5c 6e 5d 0d 0a 0d 0a 20 20 20 20 on \"\n]....
13e70 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 #.. #
13e80 20 4e 4f 54 45 3a 20 54 72 79 20 74 6f 20 73 65 NOTE: Try to se
13e90 74 75 70 20 61 6e 20 69 6e 74 65 72 72 75 70 74 tup an interrupt
13ea0 20 63 61 6c 6c 62 61 63 6b 20 75 73 69 6e 67 20 callback using
13eb0 74 68 65 20 73 63 72 69 70 74 20 64 65 62 75 67 the script debug
13ec0 67 65 72 0d 0a 20 20 20 20 20 20 20 20 23 20 20 ger.. #
13ed0 20 20 20 20 20 74 68 61 74 20 77 69 6c 6c 20 63 that will c
13ee0 61 6e 63 65 6c 20 61 6c 6c 20 53 51 4c 20 71 75 ancel all SQL qu
13ef0 65 72 69 65 73 20 69 6e 20 70 72 6f 67 72 65 73 eries in progres
13f00 73 20 66 6f 72 20 61 6c 6c 20 64 61 74 61 62 61 s for all databa
13f10 73 65 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 se.. #
13f20 20 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 20 connections
13f30 6b 6e 6f 77 6e 20 74 6f 20 74 68 69 73 20 69 6e known to this in
13f40 74 65 72 70 72 65 74 65 72 2e 0d 0a 20 20 20 20 terpreter...
13f50 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 69 #.. i
13f60 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 f {![info exists
13f70 20 3a 3a 6e 6f 28 73 71 6c 69 74 65 49 6e 74 65 ::no(sqliteInte
13f80 72 72 75 70 74 43 61 6c 6c 62 61 63 6b 29 5d 7d rruptCallback)]}
13f90 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 then {..
13fa0 20 20 20 73 65 74 75 70 44 62 49 6e 74 65 72 72 setupDbInterr
13fb0 75 70 74 43 61 6c 6c 62 61 63 6b 20 24 3a 3a 74 uptCallback $::t
13fc0 65 73 74 5f 63 68 61 6e 6e 65 6c 20 24 3a 3a 74 est_channel $::t
13fd0 65 73 74 5f 6c 6f 67 0d 0a 20 20 20 20 20 20 20 est_log..
13fe0 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d }.... #.
13ff0 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a . # NOTE:
14000 20 43 68 65 63 6b 20 66 6f 72 20 74 68 65 20 6e Check for the n
14010 61 74 69 76 65 20 72 75 6e 74 69 6d 65 20 6f 70 ative runtime op
14020 74 69 6f 6e 2c 20 77 68 69 63 68 20 77 6f 75 6c tion, which woul
14030 64 20 6d 65 61 6e 20 77 65 20 61 72 65 0d 0a 20 d mean we are..
14040 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 75 # u
14050 73 69 6e 67 20 74 68 65 20 6d 69 78 65 64 2d 6d sing the mixed-m
14060 6f 64 65 20 61 73 73 65 6d 62 6c 79 2e 0d 0a 20 ode assembly...
14070 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
14080 20 20 63 68 65 63 6b 46 6f 72 52 75 6e 74 69 6d checkForRuntim
14090 65 4f 70 74 69 6f 6e 20 24 3a 3a 74 65 73 74 5f eOption $::test_
140a0 63 68 61 6e 6e 65 6c 20 6e 61 74 69 76 65 0d 0a channel native..
140b0 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #..
140c0 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 43 68 65 # NOTE: Che
140d0 63 6b 20 69 66 20 74 68 65 20 74 65 73 74 20 73 ck if the test s
140e0 75 69 74 65 20 73 68 6f 75 6c 64 20 63 6f 75 6e uite should coun
140f0 74 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 t the number of
14100 63 6f 6e 6e 65 63 74 69 6f 6e 73 0d 0a 20 20 20 connections..
14110 20 20 20 20 20 23 20 20 20 20 20 20 20 22 6f 70 # "op
14120 65 6e 65 64 22 20 61 6e 64 20 22 63 6c 6f 73 65 ened" and "close
14130 64 22 20 66 72 6f 6d 20 74 68 65 20 70 6f 6f 6c d" from the pool
14140 20 77 68 65 6e 20 64 65 74 65 72 6d 69 6e 69 6e when determinin
14150 67 20 69 66 20 61 20 74 65 73 74 0d 0a 20 20 20 g if a test..
14160 20 20 20 20 20 23 20 20 20 20 20 20 20 70 61 73 # pas
14170 73 65 64 2e 20 20 44 69 73 61 62 6c 69 6e 67 20 sed. Disabling
14180 74 68 69 73 20 62 65 68 61 76 69 6f 72 20 69 73 this behavior is
14190 20 73 6f 6d 65 74 69 6d 65 73 20 6e 65 63 65 73 sometimes neces
141a0 73 61 72 79 20 28 65 2e 67 2e 0d 0a 20 20 20 20 sary (e.g...
141b0 20 20 20 20 23 20 20 20 20 20 20 20 64 75 72 69 # duri
141c0 6e 67 20 74 68 65 20 72 65 6c 65 61 73 65 20 74 ng the release t
141d0 65 73 74 69 6e 67 20 70 72 6f 63 65 73 73 29 20 esting process)
141e0 62 65 63 61 75 73 65 20 74 68 65 72 65 20 61 72 because there ar
141f0 65 20 73 65 76 65 72 61 6c 0d 0a 20 20 20 20 20 e several..
14200 20 20 20 23 20 20 20 20 20 20 20 74 65 73 74 73 # tests
14210 20 74 68 61 74 20 72 65 6c 79 20 6f 6e 20 74 68 that rely on th
14220 65 20 22 6f 70 65 6e 65 64 20 66 72 6f 6d 20 70 e "opened from p
14230 6f 6f 6c 22 20 63 6f 75 6e 74 20 62 65 69 6e 67 ool" count being
14240 20 67 72 65 61 74 65 72 0d 0a 20 20 20 20 20 20 greater..
14250 20 20 23 20 20 20 20 20 20 20 74 68 61 6e 20 7a # than z
14260 65 72 6f 2e 20 20 54 68 65 73 65 20 74 65 73 74 ero. These test
14270 73 20 6d 61 79 20 66 61 69 6c 20 64 75 65 20 74 s may fail due t
14280 6f 20 74 68 65 20 6e 6f 6e 2d 64 65 74 65 72 6d o the non-determ
14290 69 6e 69 73 74 69 63 0d 0a 20 20 20 20 20 20 20 inistic..
142a0 20 23 20 20 20 20 20 20 20 62 65 68 61 76 69 6f # behavio
142b0 72 20 6f 66 20 74 68 65 20 43 4c 52 20 47 43 2c r of the CLR GC,
142c0 20 65 76 65 6e 20 77 68 65 6e 20 74 68 65 72 65 even when there
142d0 20 69 73 20 6e 6f 20 62 75 67 20 69 6e 20 74 68 is no bug in th
142e0 65 20 63 6f 64 65 0d 0a 20 20 20 20 20 20 20 20 e code..
142f0 23 20 20 20 20 20 20 20 62 65 69 6e 67 20 74 65 # being te
14300 73 74 65 64 2e 0d 0a 20 20 20 20 20 20 20 20 23 sted... #
14310 0d 0a 20 20 20 20 20 20 20 20 63 68 65 63 6b 46 .. checkF
14320 6f 72 52 75 6e 74 69 6d 65 4f 70 74 69 6f 6e 20 orRuntimeOption
14330 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 $::test_channel
14340 6e 6f 50 6f 6f 6c 43 6f 75 6e 74 73 0d 0a 0d 0a noPoolCounts....
14350 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #..
14360 20 20 20 23 20 4e 4f 54 45 3a 20 52 65 70 6f 72 # NOTE: Repor
14370 74 20 74 68 65 20 72 65 73 6f 75 72 63 65 20 75 t the resource u
14380 73 61 67 65 20 70 72 69 6f 72 20 74 6f 20 72 75 sage prior to ru
14390 6e 6e 69 6e 67 20 61 6e 79 20 74 65 73 74 73 2e nning any tests.
143a0 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #..
143b0 20 20 20 20 20 72 65 70 6f 72 74 53 51 4c 69 74 reportSQLit
143c0 65 52 65 73 6f 75 72 63 65 73 20 24 3a 3a 74 65 eResources $::te
143d0 73 74 5f 63 68 61 6e 6e 65 6c 0d 0a 0d 0a 20 20 st_channel....
143e0 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
143f0 20 23 20 4e 4f 54 45 3a 20 53 68 6f 77 20 74 68 # NOTE: Show th
14400 65 20 61 63 74 69 76 65 20 74 65 73 74 20 63 6f e active test co
14410 6e 73 74 72 61 69 6e 74 73 2e 0d 0a 20 20 20 20 nstraints...
14420 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 74 #.. t
14430 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 puts $::test_cha
14440 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 nnel [appendArgs
14450 20 22 2d 2d 2d 2d 20 63 6f 6e 73 74 72 61 69 6e "---- constrain
14460 74 73 3a 20 22 20 5c 0d 0a 20 20 20 20 20 20 20 ts: " \..
14470 20 20 20 20 20 5b 66 6f 72 6d 61 74 4c 69 73 74 [formatList
14480 20 5b 6c 73 6f 72 74 20 5b 67 65 74 43 6f 6e 73 [lsort [getCons
14490 74 72 61 69 6e 74 73 5d 5d 20 3c 6e 6f 6e 65 3e traints]] <none>
144a0 5d 20 5c 6e 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 ] \n]....
144b0 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f #.. # NO
144c0 54 45 3a 20 53 61 76 65 20 74 68 65 20 74 65 73 TE: Save the tes
144d0 74 20 63 6f 6e 73 74 72 61 69 6e 74 73 20 66 6f t constraints fo
144e0 72 20 75 73 65 20 62 79 20 74 68 72 65 61 64 73 r use by threads
144f0 20 63 72 65 61 74 65 64 20 69 6e 20 74 68 69 73 created in this
14500 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 .. #
14510 20 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 64 6f application do
14520 6d 61 69 6e 2e 20 20 54 68 69 73 20 69 73 20 6e main. This is n
14530 65 63 65 73 73 61 72 79 20 62 65 63 61 75 73 65 ecessary because
14540 20 61 6c 6c 20 74 68 65 20 45 61 67 6c 65 0d 0a all the Eagle..
14550 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 #
14560 22 74 65 73 74 20 63 6f 6e 74 65 78 74 22 20 69 "test context" i
14570 6e 66 6f 72 6d 61 74 69 6f 6e 20 69 73 20 70 65 nformation is pe
14580 72 2d 74 68 72 65 61 64 2e 0d 0a 20 20 20 20 20 r-thread...
14590 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 69 66 #.. if
145a0 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 {![info exists
145b0 3a 3a 74 65 73 74 5f 63 6f 6e 73 74 72 61 69 6e ::test_constrain
145c0 74 73 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 ts]} then {..
145d0 20 20 20 20 20 20 20 73 65 74 20 3a 3a 74 65 73 set ::tes
145e0 74 5f 63 6f 6e 73 74 72 61 69 6e 74 73 20 24 3a t_constraints $:
145f0 3a 65 61 67 6c 65 5f 74 65 73 74 73 28 63 6f 6e :eagle_tests(con
14600 73 74 72 61 69 6e 74 73 29 0d 0a 20 20 20 20 20 straints)..
14610 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 }....
14620 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT
14630 45 3a 20 4c 6f 61 64 20 74 68 65 20 22 61 66 74 E: Load the "aft
14640 65 72 2d 63 6f 6e 73 74 72 61 69 6e 74 73 22 20 er-constraints"
14650 63 75 73 74 6f 6d 20 70 65 72 2d 75 73 65 72 20 custom per-user
14660 61 6e 64 2f 6f 72 20 70 65 72 2d 68 6f 73 74 0d and/or per-host.
14670 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 . #
14680 20 74 65 73 74 20 73 65 74 74 69 6e 67 73 20 6e test settings n
14690 6f 77 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a ow... #..
146a0 20 20 20 20 20 20 20 20 75 70 6c 65 76 65 6c 20 uplevel
146b0 31 20 5b 6c 69 73 74 20 6c 6f 61 64 53 51 4c 69 1 [list loadSQLi
146c0 74 65 54 65 73 74 53 65 74 74 69 6e 67 73 20 24 teTestSettings $
146d0 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 2e ::test_channel .
146e0 61 66 74 65 72 5d 0d 0a 0d 0a 20 20 20 20 20 20 after]....
146f0 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e #.. # N
14700 4f 54 45 3a 20 53 68 6f 77 20 77 68 65 6e 20 6f OTE: Show when o
14710 75 72 20 74 65 73 74 73 20 61 63 74 75 61 6c 6c ur tests actuall
14720 79 20 62 65 67 61 6e 20 28 6e 6f 77 29 2e 0d 0a y began (now)...
14730 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #..
14740 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 tputs $::test
14750 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 _channel [append
14760 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 Args \..
14770 20 20 20 20 22 2d 2d 2d 2d 20 53 79 73 74 65 6d "---- System
14780 2e 44 61 74 61 2e 53 51 4c 69 74 65 20 74 65 73 .Data.SQLite tes
14790 74 73 20 62 65 67 61 6e 20 61 74 20 22 20 5c 0d ts began at " \.
147a0 0a 20 20 20 20 20 20 20 20 20 20 20 20 5b 63 6c . [cl
147b0 6f 63 6b 20 66 6f 72 6d 61 74 20 5b 63 6c 6f 63 ock format [cloc
147c0 6b 20 73 65 63 6f 6e 64 73 5d 5d 20 5c 6e 5d 0d k seconds]] \n].
147d0 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d . }.. }.
147e0 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 72 75 6e .... proc run
147f0 53 51 4c 69 74 65 54 65 73 74 45 70 69 6c 6f 67 SQLiteTestEpilog
14800 75 65 20 7b 7d 20 7b 0d 0a 20 20 20 20 20 20 23 ue {} {.. #
14810 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 .. # NOTE:
14820 53 6b 69 70 20 72 75 6e 6e 69 6e 67 20 6f 75 72 Skip running our
14830 20 63 75 73 74 6f 6d 20 65 70 69 6c 6f 67 75 65 custom epilogue
14840 20 69 66 20 74 68 65 20 6d 61 69 6e 20 6f 6e 65 if the main one
14850 20 68 61 73 20 62 65 65 6e 0d 0a 20 20 20 20 20 has been..
14860 20 23 20 20 20 20 20 20 20 73 6b 69 70 70 65 64 # skipped
14870 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 ... #..
14880 20 20 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 if {![info exi
14890 73 74 73 20 3a 3a 6e 6f 28 65 70 69 6c 6f 67 75 sts ::no(epilogu
148a0 65 2e 65 61 67 6c 65 29 5d 7d 20 74 68 65 6e 20 e.eagle)]} then
148b0 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 {.. #..
148c0 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 68 # NOTE: Sh
148d0 6f 77 20 77 68 65 6e 20 6f 75 72 20 74 65 73 74 ow when our test
148e0 73 20 61 63 74 75 61 6c 6c 79 20 65 6e 64 65 64 s actually ended
148f0 20 28 6e 6f 77 29 2e 0d 0a 20 20 20 20 20 20 20 (now)...
14900 20 23 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 #.. tput
14910 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 s $::test_channe
14920 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d l [appendArgs \.
14930 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d . "--
14940 2d 2d 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 -- System.Data.S
14950 51 4c 69 74 65 20 74 65 73 74 73 20 65 6e 64 65 QLite tests ende
14960 64 20 61 74 20 22 20 5c 0d 0a 20 20 20 20 20 20 d at " \..
14970 20 20 20 20 20 20 5b 63 6c 6f 63 6b 20 66 6f 72 [clock for
14980 6d 61 74 20 5b 63 6c 6f 63 6b 20 73 65 63 6f 6e mat [clock secon
14990 64 73 5d 5d 20 5c 6e 5d 0d 0a 0d 0a 20 20 20 20 ds]] \n]....
149a0 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 #.. #
149b0 20 42 55 47 46 49 58 3a 20 42 65 66 6f 72 65 20 BUGFIX: Before
149c0 63 68 65 63 6b 69 6e 67 20 74 68 65 20 66 69 6e checking the fin
149d0 61 6c 20 72 65 73 6f 75 72 63 65 73 20 69 6e 20 al resources in
149e0 75 73 65 20 62 79 20 53 51 4c 69 74 65 2c 20 6d use by SQLite, m
149f0 61 6b 65 0d 0a 20 20 20 20 20 20 20 20 23 20 20 ake.. #
14a00 20 20 20 20 20 20 20 73 75 72 65 20 62 6f 74 68 sure both
14a10 20 6f 66 20 74 68 65 20 50 52 41 47 4d 41 20 72 of the PRAGMA r
14a20 65 6c 61 74 65 64 20 64 69 72 65 63 74 6f 72 79 elated directory
14a30 20 6e 61 6d 65 73 20 61 72 65 20 66 72 65 65 64 names are freed
14a40 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 ... #..
14a50 20 20 20 20 20 20 63 68 65 63 6b 46 6f 72 53 51 checkForSQ
14a60 4c 69 74 65 44 69 72 65 63 74 6f 72 69 65 73 20 LiteDirectories
14a70 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 $::test_channel
14a80 74 72 75 65 0d 0a 0d 0a 20 20 20 20 20 20 20 20 true....
14a90 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT
14aa0 45 3a 20 41 6c 73 6f 20 72 65 70 6f 72 74 20 74 E: Also report t
14ab0 68 65 20 72 65 73 6f 75 72 63 65 20 75 73 61 67 he resource usag
14ac0 65 20 61 66 74 65 72 20 72 75 6e 6e 69 6e 67 20 e after running
14ad0 74 68 65 20 74 65 73 74 73 2e 0d 0a 20 20 20 20 the tests...
14ae0 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 72 #.. r
14af0 65 70 6f 72 74 53 51 4c 69 74 65 52 65 73 6f 75 eportSQLiteResou
14b00 72 63 65 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 rces $::test_cha
14b10 6e 6e 65 6c 0d 0a 0d 0a 20 20 20 20 20 20 20 20 nnel....
14b20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT
14b30 45 3a 20 52 65 70 6f 72 74 20 74 68 65 20 63 72 E: Report the cr
14b40 69 74 69 63 61 6c 20 68 61 6e 64 6c 65 20 63 6f itical handle co
14b50 75 6e 74 73 20 61 66 74 65 72 20 72 75 6e 6e 69 unts after runni
14b60 6e 67 20 74 68 65 20 74 65 73 74 73 2e 0d 0a 20 ng the tests...
14b70 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
14b80 20 20 67 65 74 53 51 4c 69 74 65 48 61 6e 64 6c getSQLiteHandl
14b90 65 43 6f 75 6e 74 73 20 24 3a 3a 74 65 73 74 5f eCounts $::test_
14ba0 63 68 61 6e 6e 65 6c 0d 0a 20 20 20 20 20 20 7d channel.. }
14bb0 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 .. }.....
14bc0 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
14bd0 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
14be0 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
14bf0 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
14c00 23 23 23 23 23 23 23 23 23 23 23 0d 0a 20 20 20 ###########..
14c10 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ###############
14c20 23 23 23 23 23 23 23 23 23 23 23 23 23 23 20 45 ############## E
14c30 4e 44 20 45 61 67 6c 65 20 4f 4e 4c 59 20 23 23 ND Eagle ONLY ##
14c40 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
14c50 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 20 20 ############..
14c60 20 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ##############
14c70 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
14c80 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
14c90 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
14ca0 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 20 #############..
14cb0 20 7d 0d 0a 0d 0a 20 20 23 0d 0a 20 20 23 20 4e }.... #.. # N
14cc0 4f 54 45 3a 20 53 61 76 65 20 74 68 65 20 6e 61 OTE: Save the na
14cd0 6d 65 20 6f 66 20 74 68 65 20 64 69 72 65 63 74 me of the direct
14ce0 6f 72 79 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 ory containing t
14cf0 68 69 73 20 66 69 6c 65 2e 0d 0a 20 20 23 0d 0a his file... #..
14d00 20 20 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 if {![info exi
14d10 73 74 73 20 63 6f 6d 6d 6f 6e 5f 64 69 72 65 63 sts common_direc
14d20 74 6f 72 79 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 tory]} then {..
14d30 20 20 20 73 65 74 20 63 6f 6d 6d 6f 6e 5f 64 69 set common_di
14d40 72 65 63 74 6f 72 79 20 5b 66 69 6c 65 20 64 69 rectory [file di
14d50 72 6e 61 6d 65 20 5b 69 6e 66 6f 20 73 63 72 69 rname [info scri
14d60 70 74 5d 5d 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 23 pt]].. }.... #
14d70 0d 0a 20 20 23 20 4e 4f 54 45 3a 20 50 72 6f 76 .. # NOTE: Prov
14d80 69 64 65 20 74 68 65 20 53 79 73 74 65 6d 2e 44 ide the System.D
14d90 61 74 61 2e 53 51 4c 69 74 65 20 74 65 73 74 20 ata.SQLite test
14da0 70 61 63 6b 61 67 65 20 74 6f 20 74 68 65 20 69 package to the i
14db0 6e 74 65 72 70 72 65 74 65 72 2e 0d 0a 20 20 23 nterpreter... #
14dc0 0d 0a 20 20 70 61 63 6b 61 67 65 20 70 72 6f 76 .. package prov
14dd0 69 64 65 20 53 79 73 74 65 6d 2e 44 61 74 61 2e ide System.Data.
14de0 53 51 4c 69 74 65 2e 54 65 73 74 20 31 2e 30 0d SQLite.Test 1.0.
14df0 0a 7d 0d 0a .}..