0000: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0010: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0020: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0030: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0040: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d ###############.
0050: 0a 23 0d 0a 23 20 63 6f 6d 6d 6f 6e 2e 65 61 67 .#..# common.eag
0060: 6c 65 20 2d 2d 0d 0a 23 0d 0a 23 20 57 72 69 74 le --..#..# Writ
0070: 74 65 6e 20 62 79 20 4a 6f 65 20 4d 69 73 74 61 ten by Joe Mista
0080: 63 68 6b 69 6e 2e 0d 0a 23 20 52 65 6c 65 61 73 chkin...# Releas
0090: 65 64 20 74 6f 20 74 68 65 20 70 75 62 6c 69 63 ed to the public
00a0: 20 64 6f 6d 61 69 6e 2c 20 75 73 65 20 61 74 20 domain, use at
00b0: 79 6f 75 72 20 6f 77 6e 20 72 69 73 6b 21 0d 0a your own risk!..
00c0: 23 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23 23 #..#############
00d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
00e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
00f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0100: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0110: 23 23 0d 0a 0d 0a 23 0d 0a 23 20 4e 4f 54 45 3a ##....#..# NOTE:
0120: 20 55 73 65 20 6f 75 72 20 6f 77 6e 20 6e 61 6d Use our own nam
0130: 65 73 70 61 63 65 20 68 65 72 65 20 62 65 63 61 espace here beca
0140: 75 73 65 20 65 76 65 6e 20 74 68 6f 75 67 68 20 use even though
0150: 77 65 20 64 6f 20 6e 6f 74 20 64 69 72 65 63 74 we do not direct
0160: 6c 79 0d 0a 23 20 20 20 20 20 20 20 73 75 70 70 ly..# supp
0170: 6f 72 74 20 6e 61 6d 65 73 70 61 63 65 73 20 6f ort namespaces o
0180: 75 72 73 65 6c 76 65 73 2c 20 77 65 20 64 6f 20 urselves, we do
0190: 6e 6f 74 20 77 61 6e 74 20 74 6f 20 70 6f 6c 6c not want to poll
01a0: 75 74 65 20 74 68 65 20 67 6c 6f 62 61 6c 0d 0a ute the global..
01b0: 23 20 20 20 20 20 20 20 6e 61 6d 65 73 70 61 63 # namespac
01c0: 65 20 69 66 20 74 68 69 73 20 73 63 72 69 70 74 e if this script
01d0: 20 61 63 74 75 61 6c 6c 79 20 65 6e 64 73 20 75 actually ends u
01e0: 70 20 62 65 69 6e 67 20 65 76 61 6c 75 61 74 65 p being evaluate
01f0: 64 20 69 6e 20 54 63 6c 2e 0d 0a 23 0d 0a 6e 61 d in Tcl...#..na
0200: 6d 65 73 70 61 63 65 20 65 76 61 6c 20 3a 3a 45 mespace eval ::E
0210: 61 67 6c 65 20 7b 0d 0a 20 20 69 66 20 7b 5b 69 agle {.. if {[i
0220: 73 45 61 67 6c 65 5d 7d 20 74 68 65 6e 20 7b 0d sEagle]} then {.
0230: 0a 20 20 20 20 23 23 23 23 23 23 23 23 23 23 23 . ###########
0240: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0250: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0260: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0270: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0280: 0d 0a 20 20 20 20 23 23 23 23 23 23 23 23 23 23 .. ##########
0290: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
02a0: 23 23 20 42 45 47 49 4e 20 45 61 67 6c 65 20 4f ## BEGIN Eagle O
02b0: 4e 4c 59 20 23 23 23 23 23 23 23 23 23 23 23 23 NLY ############
02c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
02d0: 23 0d 0a 20 20 20 20 23 23 23 23 23 23 23 23 23 #.. #########
02e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
02f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0300: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0310: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0320: 23 23 0d 0a 0d 0a 20 20 20 20 70 72 6f 63 20 67 ##.... proc g
0330: 65 74 42 75 69 6c 64 59 65 61 72 20 7b 7d 20 7b etBuildYear {} {
0340: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #..
0350: 20 23 20 4e 4f 54 45 3a 20 53 65 65 20 69 66 20 # NOTE: See if
0360: 74 68 65 20 22 79 65 61 72 22 20 73 65 74 74 69 the "year" setti
0370: 6e 67 20 68 61 73 20 62 65 65 6e 20 6f 76 65 72 ng has been over
0380: 72 69 64 64 65 6e 20 62 79 20 74 68 65 20 75 73 ridden by the us
0390: 65 72 20 28 65 2e 67 2e 0d 0a 20 20 20 20 20 20 er (e.g...
03a0: 23 20 20 20 20 20 20 20 6f 6e 20 74 68 65 20 63 # on the c
03b0: 6f 6d 6d 61 6e 64 20 6c 69 6e 65 29 2e 20 20 54 ommand line). T
03c0: 68 69 73 20 68 65 6c 70 73 20 63 6f 6e 74 72 6f his helps contro
03d0: 6c 20 65 78 61 63 74 6c 79 20 77 68 69 63 68 20 l exactly which
03e0: 73 65 74 20 6f 66 0d 0a 20 20 20 20 20 20 23 20 set of.. #
03f0: 20 20 20 20 20 20 62 69 6e 61 72 69 65 73 20 77 binaries w
0400: 65 20 61 72 65 20 74 65 73 74 69 6e 67 2c 20 74 e are testing, t
0410: 68 6f 73 65 20 70 72 6f 64 75 63 65 64 20 75 73 hose produced us
0420: 69 6e 67 20 74 68 65 20 56 69 73 75 61 6c 20 53 ing the Visual S
0430: 74 75 64 69 6f 0d 0a 20 20 20 20 20 20 23 20 20 tudio.. #
0440: 20 20 20 20 20 32 30 30 35 2c 20 32 30 30 38 2c 2005, 2008,
0450: 20 32 30 31 30 2c 20 6f 72 20 32 30 31 32 20 62 2010, or 2012 b
0460: 75 69 6c 64 20 73 79 73 74 65 6d 73 2e 20 20 54 uild systems. T
0470: 6f 20 6f 76 65 72 72 69 64 65 20 74 68 69 73 20 o override this
0480: 76 61 6c 75 65 0d 0a 20 20 20 20 20 20 23 20 20 value.. #
0490: 20 20 20 20 20 76 69 61 20 74 68 65 20 63 6f 6d via the com
04a0: 6d 61 6e 64 20 6c 69 6e 65 2c 20 65 6e 74 65 72 mand line, enter
04b0: 20 61 20 63 6f 6d 6d 61 6e 64 20 73 69 6d 69 6c a command simil
04c0: 61 72 20 74 6f 20 6f 6e 65 20 6f 66 20 74 68 65 ar to one of the
04d0: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. #
04e0: 66 6f 6c 6c 6f 77 69 6e 67 20 28 61 6c 6c 20 6f following (all o
04f0: 6e 20 6f 6e 65 20 6c 69 6e 65 29 3a 0d 0a 20 20 n one line):..
0500: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 20 #.. #
0510: 20 20 20 20 20 45 61 67 6c 65 53 68 65 6c 6c 2e EagleShell.
0520: 65 78 65 20 2d 70 72 65 49 6e 69 74 69 61 6c 69 exe -preInitiali
0530: 7a 65 20 22 73 65 74 20 74 65 73 74 5f 79 65 61 ze "set test_yea
0540: 72 20 32 30 30 35 22 0d 0a 20 20 20 20 20 20 23 r 2005".. #
0550: 20 20 20 20 20 20 20 20 20 2d 66 69 6c 65 20 2e -file .
0560: 5c 70 61 74 68 5c 74 6f 5c 61 6c 6c 2e 65 61 67 \path\to\all.eag
0570: 6c 65 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 le.. #..
0580: 20 20 20 23 20 20 20 20 20 20 20 45 61 67 6c 65 # Eagle
0590: 53 68 65 6c 6c 2e 65 78 65 20 2d 70 72 65 49 6e Shell.exe -preIn
05a0: 69 74 69 61 6c 69 7a 65 20 22 73 65 74 20 74 65 itialize "set te
05b0: 73 74 5f 79 65 61 72 20 32 30 30 38 22 0d 0a 20 st_year 2008"..
05c0: 20 20 20 20 20 23 20 20 20 20 20 20 20 20 20 2d # -
05d0: 66 69 6c 65 20 2e 5c 70 61 74 68 5c 74 6f 5c 61 file .\path\to\a
05e0: 6c 6c 2e 65 61 67 6c 65 0d 0a 20 20 20 20 20 20 ll.eagle..
05f0: 23 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 #.. #
0600: 20 45 61 67 6c 65 53 68 65 6c 6c 2e 65 78 65 20 EagleShell.exe
0610: 2d 70 72 65 49 6e 69 74 69 61 6c 69 7a 65 20 22 -preInitialize "
0620: 73 65 74 20 74 65 73 74 5f 79 65 61 72 20 32 30 set test_year 20
0630: 31 30 22 0d 0a 20 20 20 20 20 20 23 20 20 20 20 10".. #
0640: 20 20 20 20 20 2d 66 69 6c 65 20 2e 5c 70 61 74 -file .\pat
0650: 68 5c 74 6f 5c 61 6c 6c 2e 65 61 67 6c 65 0d 0a h\to\all.eagle..
0660: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 #.. #
0670: 20 20 20 20 20 20 20 45 61 67 6c 65 53 68 65 6c EagleShel
0680: 6c 2e 65 78 65 20 2d 70 72 65 49 6e 69 74 69 61 l.exe -preInitia
0690: 6c 69 7a 65 20 22 73 65 74 20 74 65 73 74 5f 79 lize "set test_y
06a0: 65 61 72 20 32 30 31 32 22 0d 0a 20 20 20 20 20 ear 2012"..
06b0: 20 23 20 20 20 20 20 20 20 20 20 2d 66 69 6c 65 # -file
06c0: 20 2e 5c 70 61 74 68 5c 74 6f 5c 61 6c 6c 2e 65 .\path\to\all.e
06d0: 61 67 6c 65 0d 0a 20 20 20 20 20 20 23 0d 0a 20 agle.. #..
06e0: 20 20 20 20 20 23 20 20 20 20 20 20 20 45 61 67 # Eag
06f0: 6c 65 53 68 65 6c 6c 2e 65 78 65 20 2d 70 72 65 leShell.exe -pre
0700: 49 6e 69 74 69 61 6c 69 7a 65 20 22 75 6e 73 65 Initialize "unse
0710: 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 74 65 t -nocomplain te
0720: 73 74 5f 79 65 61 72 22 0d 0a 20 20 20 20 20 20 st_year"..
0730: 23 20 20 20 20 20 20 20 20 20 2d 66 69 6c 65 20 # -file
0740: 2e 5c 70 61 74 68 5c 74 6f 5c 61 6c 6c 2e 65 61 .\path\to\all.ea
0750: 67 6c 65 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 gle.. #..
0760: 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 if {[info ex
0770: 69 73 74 73 20 3a 3a 74 65 73 74 5f 79 65 61 72 ists ::test_year
0780: 5d 20 26 26 20 5b 73 74 72 69 6e 67 20 6c 65 6e ] && [string len
0790: 67 74 68 20 24 3a 3a 74 65 73 74 5f 79 65 61 72 gth $::test_year
07a0: 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 ] > 0} then {..
07b0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
07c0: 20 20 23 20 4e 4f 54 45 3a 20 55 73 65 20 74 68 # NOTE: Use th
07d0: 65 20 73 70 65 63 69 66 69 65 64 20 74 65 73 74 e specified test
07e0: 20 79 65 61 72 2e 20 20 49 66 20 74 68 69 73 20 year. If this
07f0: 76 61 72 69 61 62 6c 65 20 69 73 20 6e 6f 74 20 variable is not
0800: 73 65 74 2c 20 74 68 65 0d 0a 20 20 20 20 20 20 set, the..
0810: 20 20 23 20 20 20 20 20 20 20 64 65 66 61 75 6c # defaul
0820: 74 20 76 61 6c 75 65 20 77 69 6c 6c 20 62 65 20 t value will be
0830: 62 61 73 65 64 20 6f 6e 20 77 68 65 74 68 65 72 based on whether
0840: 20 6f 72 20 6e 6f 74 20 45 61 67 6c 65 20 68 61 or not Eagle ha
0850: 73 20 62 65 65 6e 0d 0a 20 20 20 20 20 20 20 20 s been..
0860: 23 20 20 20 20 20 20 20 63 6f 6d 70 69 6c 65 64 # compiled
0870: 20 61 67 61 69 6e 73 74 20 74 68 65 20 43 4c 52 against the CLR
0880: 20 76 32 2e 30 20 6f 72 20 43 4c 52 20 76 34 2e v2.0 or CLR v4.
0890: 30 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 0... #..
08a0: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 3a return $:
08b0: 3a 74 65 73 74 5f 79 65 61 72 0d 0a 20 20 20 20 :test_year..
08c0: 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 } else {..
08d0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 #.. #
08e0: 20 4e 4f 54 45 3a 20 49 66 20 45 61 67 6c 65 20 NOTE: If Eagle
08f0: 68 61 73 20 62 65 65 6e 20 63 6f 6d 70 69 6c 65 has been compile
0900: 64 20 61 67 61 69 6e 73 74 20 74 68 65 20 43 4c d against the CL
0910: 52 20 76 34 2e 30 2c 20 75 73 65 20 22 32 30 31 R v4.0, use "201
0920: 30 22 20 62 79 0d 0a 20 20 20 20 20 20 20 20 23 0" by.. #
0930: 20 20 20 20 20 20 20 64 65 66 61 75 6c 74 20 28 default (
0940: 77 65 20 63 6f 75 6c 64 20 75 73 65 20 22 32 30 we could use "20
0950: 31 32 22 20 69 6e 20 74 68 61 74 20 63 61 73 65 12" in that case
0960: 20 61 73 20 77 65 6c 6c 29 20 61 73 20 74 68 65 as well) as the
0970: 20 74 65 73 74 0d 0a 20 20 20 20 20 20 20 20 23 test.. #
0980: 20 20 20 20 20 20 20 79 65 61 72 3b 20 6f 74 68 year; oth
0990: 65 72 77 69 73 65 2c 20 75 73 65 20 22 32 30 30 erwise, use "200
09a0: 38 22 20 62 79 20 64 65 66 61 75 6c 74 20 28 77 8" by default (w
09b0: 65 20 63 6f 75 6c 64 20 75 73 65 20 22 32 30 30 e could use "200
09c0: 35 22 20 69 6e 0d 0a 20 20 20 20 20 20 20 20 23 5" in.. #
09d0: 20 20 20 20 20 20 20 74 68 61 74 20 63 61 73 65 that case
09e0: 20 61 73 20 77 65 6c 6c 29 2e 20 20 49 66 20 61 as well). If a
09f0: 6e 6f 74 68 65 72 20 6d 61 6a 6f 72 20 5b 69 6e nother major [in
0a00: 63 6f 6d 70 61 74 69 62 6c 65 5d 20 76 65 72 73 compatible] vers
0a10: 69 6f 6e 20 6f 66 0d 0a 20 20 20 20 20 20 20 20 ion of..
0a20: 23 20 20 20 20 20 20 20 74 68 65 20 43 4c 52 20 # the CLR
0a30: 69 73 20 72 65 6c 65 61 73 65 64 2c 20 74 68 69 is released, thi
0a40: 73 20 63 68 65 63 6b 20 77 69 6c 6c 20 68 61 76 s check will hav
0a50: 65 20 74 6f 20 62 65 20 63 68 61 6e 67 65 64 2e e to be changed.
0a60: 20 20 54 68 65 0d 0a 20 20 20 20 20 20 20 20 23 The.. #
0a70: 20 20 20 20 20 20 20 64 65 66 61 75 6c 74 20 74 default t
0a80: 65 73 74 20 79 65 61 72 20 74 6f 20 75 73 65 20 est year to use
0a90: 66 6f 72 20 61 20 70 61 72 74 69 63 75 6c 61 72 for a particular
0aa0: 20 43 4c 52 20 76 65 72 73 69 6f 6e 20 6d 61 79 CLR version may
0ab0: 20 62 65 0d 0a 20 20 20 20 20 20 20 20 23 20 20 be.. #
0ac0: 20 20 20 20 20 6f 76 65 72 72 69 64 64 65 6e 20 overridden
0ad0: 62 79 20 73 65 74 74 69 6e 67 20 74 68 65 20 67 by setting the g
0ae0: 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 20 22 lobal variable "
0af0: 74 65 73 74 5f 79 65 61 72 5f 63 6c 72 5f 76 24 test_year_clr_v$
0b00: 58 22 2c 0d 0a 20 20 20 20 20 20 20 20 23 20 20 X",.. #
0b10: 20 20 20 20 20 77 68 65 72 65 20 22 24 58 22 20 where "$X"
0b20: 6d 61 79 20 5b 63 75 72 72 65 6e 74 6c 79 5d 20 may [currently]
0b30: 62 65 20 65 69 74 68 65 72 20 22 32 22 20 6f 72 be either "2" or
0b40: 20 22 34 22 2e 0d 0a 20 20 20 20 20 20 20 20 23 "4"... #
0b50: 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b 68 .. if {[h
0b60: 61 76 65 43 6f 6e 73 74 72 61 69 6e 74 20 69 6d aveConstraint im
0b70: 61 67 65 52 75 6e 74 69 6d 65 34 30 5d 7d 20 74 ageRuntime40]} t
0b80: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 hen {..
0b90: 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 if {[info exist
0ba0: 73 20 3a 3a 74 65 73 74 5f 79 65 61 72 5f 63 6c s ::test_year_cl
0bb0: 72 5f 76 34 5d 20 26 26 20 5c 0d 0a 20 20 20 20 r_v4] && \..
0bc0: 20 20 20 20 20 20 20 20 20 20 5b 73 74 72 69 6e [strin
0bd0: 67 20 6c 65 6e 67 74 68 20 24 3a 3a 74 65 73 74 g length $::test
0be0: 5f 79 65 61 72 5f 63 6c 72 5f 76 34 5d 20 3e 20 _year_clr_v4] >
0bf0: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 0} then {..
0c00: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
0c10: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 55 73 # NOTE: Us
0c20: 65 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 e the specified
0c30: 74 65 73 74 20 79 65 61 72 20 66 6f 72 20 74 68 test year for th
0c40: 65 20 43 4c 52 20 76 34 2e 30 2e 0d 0a 20 20 20 e CLR v4.0...
0c50: 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 #..
0c60: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 return $
0c70: 3a 3a 74 65 73 74 5f 79 65 61 72 5f 63 6c 72 5f ::test_year_clr_
0c80: 76 34 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 20 v4.. }
0c90: 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 else {..
0ca0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 #..
0cb0: 20 20 20 23 20 4e 4f 54 45 3a 20 55 73 65 20 74 # NOTE: Use t
0cc0: 68 65 20 64 65 66 61 75 6c 74 20 74 65 73 74 20 he default test
0cd0: 79 65 61 72 20 66 6f 72 20 74 68 65 20 43 4c 52 year for the CLR
0ce0: 20 76 34 2e 30 2e 0d 0a 20 20 20 20 20 20 20 20 v4.0...
0cf0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 #..
0d00: 20 20 20 72 65 74 75 72 6e 20 32 30 31 30 3b 20 return 2010;
0d10: 23 20 54 4f 44 4f 3a 20 47 6f 6f 64 20 22 66 61 # TODO: Good "fa
0d20: 6c 6c 62 61 63 6b 22 20 64 65 66 61 75 6c 74 3f llback" default?
0d30: 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 .. }..
0d40: 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d } else {.
0d50: 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 5b . if {[
0d60: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 74 65 info exists ::te
0d70: 73 74 5f 79 65 61 72 5f 63 6c 72 5f 76 32 5d 20 st_year_clr_v2]
0d80: 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 && \..
0d90: 20 20 20 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67 [string leng
0da0: 74 68 20 24 3a 3a 74 65 73 74 5f 79 65 61 72 5f th $::test_year_
0db0: 63 6c 72 5f 76 32 5d 20 3e 20 30 7d 20 74 68 65 clr_v2] > 0} the
0dc0: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 n {..
0dd0: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 #..
0de0: 23 20 4e 4f 54 45 3a 20 55 73 65 20 74 68 65 20 # NOTE: Use the
0df0: 73 70 65 63 69 66 69 65 64 20 74 65 73 74 20 79 specified test y
0e00: 65 61 72 20 66 6f 72 20 74 68 65 20 43 4c 52 20 ear for the CLR
0e10: 76 32 2e 30 2e 0d 0a 20 20 20 20 20 20 20 20 20 v2.0...
0e20: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 #..
0e30: 20 20 72 65 74 75 72 6e 20 24 3a 3a 74 65 73 74 return $::test
0e40: 5f 79 65 61 72 5f 63 6c 72 5f 76 32 0d 0a 20 20 _year_clr_v2..
0e50: 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b } else {
0e60: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 0d .. #.
0e70: 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 20 4e . # N
0e80: 4f 54 45 3a 20 55 73 65 20 74 68 65 20 64 65 66 OTE: Use the def
0e90: 61 75 6c 74 20 74 65 73 74 20 79 65 61 72 20 66 ault test year f
0ea0: 6f 72 20 74 68 65 20 43 4c 52 20 76 32 2e 30 2e or the CLR v2.0.
0eb0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 0d .. #.
0ec0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 . ret
0ed0: 75 72 6e 20 32 30 30 38 3b 20 23 20 54 4f 44 4f urn 2008; # TODO
0ee0: 3a 20 47 6f 6f 64 20 22 66 61 6c 6c 62 61 63 6b : Good "fallback
0ef0: 22 20 64 65 66 61 75 6c 74 3f 0d 0a 20 20 20 20 " default?..
0f00: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 }..
0f10: 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 }.. }..
0f20: 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 }..... proc
0f30: 67 65 74 42 75 69 6c 64 43 6f 6e 66 69 67 75 72 getBuildConfigur
0f40: 61 74 69 6f 6e 20 7b 7d 20 7b 0d 0a 20 20 20 20 ation {} {..
0f50: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT
0f60: 45 3a 20 53 65 65 20 69 66 20 74 68 65 20 22 63 E: See if the "c
0f70: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 22 20 73 65 onfiguration" se
0f80: 74 74 69 6e 67 20 68 61 73 20 62 65 65 6e 20 6f tting has been o
0f90: 76 65 72 72 69 64 64 65 6e 20 62 79 20 74 68 65 verridden by the
0fa0: 20 75 73 65 72 0d 0a 20 20 20 20 20 20 23 20 20 user.. #
0fb0: 20 20 20 20 20 28 65 2e 67 2e 20 6f 6e 20 74 68 (e.g. on th
0fc0: 65 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 29 2e e command line).
0fd0: 20 20 54 68 69 73 20 68 65 6c 70 73 20 63 6f 6e This helps con
0fe0: 74 72 6f 6c 20 65 78 61 63 74 6c 79 20 77 68 69 trol exactly whi
0ff0: 63 68 20 73 65 74 0d 0a 20 20 20 20 20 20 23 20 ch set.. #
1000: 20 20 20 20 20 20 6f 66 20 62 69 6e 61 72 69 65 of binarie
1010: 73 20 77 65 20 61 72 65 20 74 65 73 74 69 6e 67 s we are testing
1020: 20 28 69 2e 65 2e 20 74 68 6f 73 65 20 62 75 69 (i.e. those bui
1030: 6c 74 20 69 6e 20 74 68 65 20 22 44 65 62 75 67 lt in the "Debug
1040: 22 20 6f 72 0d 0a 20 20 20 20 20 20 23 20 20 20 " or.. #
1050: 20 20 20 20 22 52 65 6c 65 61 73 65 22 20 62 75 "Release" bu
1060: 69 6c 64 20 63 6f 6e 66 69 67 75 72 61 74 69 6f ild configuratio
1070: 6e 73 29 2e 20 20 54 6f 20 6f 76 65 72 72 69 64 ns). To overrid
1080: 65 20 74 68 69 73 20 76 61 6c 75 65 20 76 69 61 e this value via
1090: 20 74 68 65 0d 0a 20 20 20 20 20 20 23 20 20 20 the.. #
10a0: 20 20 20 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 command line
10b0: 2c 20 65 6e 74 65 72 20 61 20 63 6f 6d 6d 61 6e , enter a comman
10c0: 64 20 73 69 6d 69 6c 61 72 20 74 6f 20 6f 6e 65 d similar to one
10d0: 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e of the followin
10e0: 67 20 28 61 6c 6c 0d 0a 20 20 20 20 20 20 23 20 g (all.. #
10f0: 20 20 20 20 20 20 6f 6e 20 6f 6e 65 20 6c 69 6e on one lin
1100: 65 29 3a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 e):.. #..
1110: 20 20 20 20 23 20 20 20 20 20 20 20 45 61 67 6c # Eagl
1120: 65 53 68 65 6c 6c 2e 65 78 65 20 2d 70 72 65 49 eShell.exe -preI
1130: 6e 69 74 69 61 6c 69 7a 65 20 22 73 65 74 20 74 nitialize "set t
1140: 65 73 74 5f 63 6f 6e 66 69 67 75 72 61 74 69 6f est_configuratio
1150: 6e 20 44 65 62 75 67 22 0d 0a 20 20 20 20 20 20 n Debug"..
1160: 23 20 20 20 20 20 20 20 20 20 2d 66 69 6c 65 20 # -file
1170: 2e 5c 70 61 74 68 5c 74 6f 5c 61 6c 6c 2e 65 61 .\path\to\all.ea
1180: 67 6c 65 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 gle.. #..
1190: 20 20 20 20 23 20 20 20 20 20 20 20 45 61 67 6c # Eagl
11a0: 65 53 68 65 6c 6c 2e 65 78 65 20 2d 70 72 65 49 eShell.exe -preI
11b0: 6e 69 74 69 61 6c 69 7a 65 20 22 73 65 74 20 74 nitialize "set t
11c0: 65 73 74 5f 63 6f 6e 66 69 67 75 72 61 74 69 6f est_configuratio
11d0: 6e 20 52 65 6c 65 61 73 65 22 0d 0a 20 20 20 20 n Release"..
11e0: 20 20 23 20 20 20 20 20 20 20 20 20 2d 66 69 6c # -fil
11f0: 65 20 2e 5c 70 61 74 68 5c 74 6f 5c 61 6c 6c 2e e .\path\to\all.
1200: 65 61 67 6c 65 0d 0a 20 20 20 20 20 20 23 0d 0a eagle.. #..
1210: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 45 61 # Ea
1220: 67 6c 65 53 68 65 6c 6c 2e 65 78 65 20 2d 66 69 gleShell.exe -fi
1230: 6c 65 20 2e 5c 70 61 74 68 5c 74 6f 5c 61 6c 6c le .\path\to\all
1240: 2e 65 61 67 6c 65 20 2d 70 72 65 54 65 73 74 0d .eagle -preTest.
1250: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 20 . #
1260: 20 22 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c "unset -nocompl
1270: 61 69 6e 20 74 65 73 74 5f 63 6f 6e 66 69 67 75 ain test_configu
1280: 72 61 74 69 6f 6e 22 0d 0a 20 20 20 20 20 20 23 ration".. #
1290: 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 .. if {[inf
12a0: 6f 20 65 78 69 73 74 73 20 3a 3a 74 65 73 74 5f o exists ::test_
12b0: 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 5d 20 26 configuration] &
12c0: 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 5b & \.. [
12d0: 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 3a string length $:
12e0: 3a 74 65 73 74 5f 63 6f 6e 66 69 67 75 72 61 74 :test_configurat
12f0: 69 6f 6e 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b ion] > 0} then {
1300: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #..
1310: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 55 73 65 # NOTE: Use
1320: 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 74 the specified t
1330: 65 73 74 20 63 6f 6e 66 69 67 75 72 61 74 69 6f est configuratio
1340: 6e 2e 20 20 54 68 65 20 64 65 66 61 75 6c 74 20 n. The default
1350: 76 61 6c 75 65 20 75 73 65 64 0d 0a 20 20 20 20 value used..
1360: 20 20 20 20 23 20 20 20 20 20 20 20 66 6f 72 20 # for
1370: 74 68 69 73 20 76 61 72 69 61 62 6c 65 20 69 73 this variable is
1380: 20 22 52 65 6c 65 61 73 65 22 2c 20 61 73 20 73 "Release", as s
1390: 65 74 20 62 79 20 74 68 65 20 74 65 73 74 20 73 et by the test s
13a0: 75 69 74 65 20 69 74 73 65 6c 66 2e 0d 0a 20 20 uite itself...
13b0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
13c0: 20 72 65 74 75 72 6e 20 24 3a 3a 74 65 73 74 5f return $::test_
13d0: 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 0d 0a 20 configuration..
13e0: 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 } else {..
13f0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
1400: 20 20 23 20 4e 4f 54 45 3a 20 4e 6f 72 6d 61 6c # NOTE: Normal
1410: 6c 79 2c 20 77 65 20 77 69 6c 6c 20 6e 65 76 65 ly, we will neve
1420: 72 20 68 69 74 20 74 68 69 73 20 63 61 73 65 20 r hit this case
1430: 62 65 63 61 75 73 65 20 74 68 65 20 76 61 6c 75 because the valu
1440: 65 20 6f 66 20 74 68 65 0d 0a 20 20 20 20 20 20 e of the..
1450: 20 20 23 20 20 20 20 20 20 20 74 65 73 74 20 63 # test c
1460: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 76 61 72 onfiguration var
1470: 69 61 62 6c 65 20 69 73 20 61 6c 77 61 79 73 20 iable is always
1480: 73 65 74 20 62 79 20 74 68 65 20 74 65 73 74 20 set by the test
1490: 73 75 69 74 65 0d 0a 20 20 20 20 20 20 20 20 23 suite.. #
14a0: 20 20 20 20 20 20 20 69 74 73 65 6c 66 3b 20 68 itself; h
14b0: 6f 77 65 76 65 72 2c 20 69 74 20 63 61 6e 20 62 owever, it can b
14c0: 65 20 6f 76 65 72 72 69 64 64 65 6e 20 75 73 69 e overridden usi
14d0: 6e 67 20 74 68 65 20 75 6e 73 65 74 20 63 6f 6d ng the unset com
14e0: 6d 61 6e 64 0d 0a 20 20 20 20 20 20 20 20 23 20 mand.. #
14f0: 20 20 20 20 20 20 66 72 6f 6d 20 74 68 65 20 2d from the -
1500: 70 72 65 54 65 73 74 20 6f 70 74 69 6f 6e 20 74 preTest option t
1510: 6f 20 74 68 65 20 74 65 73 74 20 73 75 69 74 65 o the test suite
1520: 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 ... #..
1530: 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 3a 3a return $::
1540: 65 61 67 6c 65 5f 70 6c 61 74 66 6f 72 6d 28 63 eagle_platform(c
1550: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 29 0d 0a 20 onfiguration)..
1560: 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c }.. }...
1570: 0d 0a 20 20 20 20 70 72 6f 63 20 67 65 74 42 75 .. proc getBu
1580: 69 6c 64 44 69 72 65 63 74 6f 72 79 20 7b 7d 20 ildDirectory {}
1590: 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 {.. #..
15a0: 20 20 23 20 4e 4f 54 45 3a 20 53 65 65 20 69 66 # NOTE: See if
15b0: 20 74 68 65 20 22 6e 61 74 69 76 65 22 20 72 75 the "native" ru
15c0: 6e 74 69 6d 65 20 6f 70 74 69 6f 6e 20 68 61 73 ntime option has
15d0: 20 62 65 65 6e 20 73 65 74 2e 20 20 49 66 20 73 been set. If s
15e0: 6f 2c 20 75 73 65 20 74 68 65 0d 0a 20 20 20 20 o, use the..
15f0: 20 20 23 20 20 20 20 20 20 20 64 69 72 65 63 74 # direct
1600: 6f 72 79 20 66 6f 72 20 74 68 65 20 6d 69 78 65 ory for the mixe
1610: 64 2d 6d 6f 64 65 20 61 73 73 65 6d 62 6c 79 20 d-mode assembly
1620: 28 61 2e 6b 2e 61 2e 20 74 68 65 20 6e 61 74 69 (a.k.a. the nati
1630: 76 65 20 69 6e 74 65 72 6f 70 0d 0a 20 20 20 20 ve interop..
1640: 20 20 23 20 20 20 20 20 20 20 61 73 73 65 6d 62 # assemb
1650: 6c 79 29 2e 20 20 54 6f 20 65 6e 61 62 6c 65 20 ly). To enable
1660: 74 68 69 73 20 6f 70 74 69 6f 6e 20 76 69 61 20 this option via
1670: 74 68 65 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 the command line
1680: 2c 20 65 6e 74 65 72 20 61 0d 0a 20 20 20 20 20 , enter a..
1690: 20 23 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64 # command
16a0: 20 73 69 6d 69 6c 61 72 20 74 6f 20 6f 6e 65 20 similar to one
16b0: 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 of the following
16c0: 20 28 61 6c 6c 20 6f 6e 20 6f 6e 65 20 6c 69 6e (all on one lin
16d0: 65 29 3a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 e):.. #..
16e0: 20 20 20 20 23 20 20 20 20 20 20 20 45 61 67 6c # Eagl
16f0: 65 53 68 65 6c 6c 2e 65 78 65 20 2d 69 6e 69 74 eShell.exe -init
1700: 69 61 6c 69 7a 65 20 2d 72 75 6e 74 69 6d 65 4f ialize -runtimeO
1710: 70 74 69 6f 6e 20 6e 61 74 69 76 65 0d 0a 20 20 ption native..
1720: 20 20 20 20 23 20 20 20 20 20 20 20 20 20 2d 66 # -f
1730: 69 6c 65 20 2e 5c 70 61 74 68 5c 74 6f 5c 61 6c ile .\path\to\al
1740: 6c 2e 65 61 67 6c 65 0d 0a 20 20 20 20 20 20 23 l.eagle.. #
1750: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. #
1760: 54 6f 20 65 6e 61 62 6c 65 20 74 68 69 73 20 6f To enable this o
1770: 70 74 69 6f 6e 20 76 69 61 20 74 68 65 20 63 6f ption via the co
1780: 6d 6d 61 6e 64 20 6c 69 6e 65 20 70 72 69 6f 72 mmand line prior
1790: 20 74 6f 20 74 68 65 20 22 62 65 74 61 20 31 36 to the "beta 16
17a0: 22 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 ".. #
17b0: 20 72 65 6c 65 61 73 65 20 6f 66 20 45 61 67 6c release of Eagl
17c0: 65 2c 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 e, the following
17d0: 20 63 6f 6d 6d 61 6e 64 20 6d 75 73 74 20 62 65 command must be
17e0: 20 75 73 65 64 20 69 6e 73 74 65 61 64 0d 0a 20 used instead..
17f0: 20 20 20 20 20 23 20 20 20 20 20 20 20 28 61 6c # (al
1800: 73 6f 20 61 6c 6c 20 6f 6e 20 6f 6e 65 20 6c 69 so all on one li
1810: 6e 65 29 3a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 ne):.. #..
1820: 20 20 20 20 20 23 20 20 20 20 20 20 20 45 61 67 # Eag
1830: 6c 65 53 68 65 6c 6c 2e 65 78 65 20 2d 69 6e 69 leShell.exe -ini
1840: 74 69 61 6c 69 7a 65 20 2d 70 6f 73 74 49 6e 69 tialize -postIni
1850: 74 69 61 6c 69 7a 65 0d 0a 20 20 20 20 20 20 23 tialize.. #
1860: 20 20 20 20 20 20 20 20 20 22 6f 62 6a 65 63 74 "object
1870: 20 69 6e 76 6f 6b 65 20 49 6e 74 65 72 70 72 65 invoke Interpre
1880: 74 65 72 2e 47 65 74 41 63 74 69 76 65 20 41 64 ter.GetActive Ad
1890: 64 52 75 6e 74 69 6d 65 4f 70 74 69 6f 6e 20 6e dRuntimeOption n
18a0: 61 74 69 76 65 22 0d 0a 20 20 20 20 20 20 23 20 ative".. #
18b0: 20 20 20 20 20 20 20 20 2d 66 69 6c 65 20 2e 5c -file .\
18c0: 70 61 74 68 5c 74 6f 5c 61 6c 6c 2e 65 61 67 6c path\to\all.eagl
18d0: 65 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 e.. #..
18e0: 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 if {[info exis
18f0: 74 73 20 3a 3a 62 75 69 6c 64 5f 64 69 72 65 63 ts ::build_direc
1900: 74 6f 72 79 5d 20 26 26 20 5c 0d 0a 20 20 20 20 tory] && \..
1910: 20 20 20 20 20 20 5b 73 74 72 69 6e 67 20 6c 65 [string le
1920: 6e 67 74 68 20 24 3a 3a 62 75 69 6c 64 5f 64 69 ngth $::build_di
1930: 72 65 63 74 6f 72 79 5d 20 3e 20 30 7d 20 74 68 rectory] > 0} th
1940: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d en {.. #.
1950: 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a . # NOTE:
1960: 20 54 68 65 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 The location of
1970: 20 74 68 65 20 62 75 69 6c 64 20 64 69 72 65 63 the build direc
1980: 74 6f 72 79 20 68 61 73 20 62 65 65 6e 20 6f 76 tory has been ov
1990: 65 72 72 69 64 64 65 6e 3b 0d 0a 20 20 20 20 20 erridden;..
19a0: 20 20 20 23 20 20 20 20 20 20 20 74 68 65 72 65 # there
19b0: 66 6f 72 65 2c 20 75 73 65 20 69 74 20 76 65 72 fore, use it ver
19c0: 62 61 74 69 6d 2e 0d 0a 20 20 20 20 20 20 20 20 batim...
19d0: 23 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 #.. retur
19e0: 6e 20 24 3a 3a 62 75 69 6c 64 5f 64 69 72 65 63 n $::build_direc
19f0: 74 6f 72 79 0d 0a 20 20 20 20 20 20 7d 20 65 6c tory.. } el
1a00: 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d se {.. #.
1a10: 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a . # NOTE:
1a20: 20 46 69 67 75 72 65 20 6f 75 74 20 74 68 65 20 Figure out the
1a30: 62 75 69 6c 64 20 62 61 73 65 20 64 69 72 65 63 build base direc
1a40: 74 6f 72 79 2e 20 20 54 68 69 73 20 77 69 6c 6c tory. This will
1a50: 20 62 65 20 74 68 65 20 64 69 72 65 63 74 6f 72 be the director
1a60: 79 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 y.. #
1a70: 20 20 20 74 68 61 74 20 63 6f 6e 74 61 69 6e 73 that contains
1a80: 20 74 68 65 20 61 63 74 75 61 6c 20 62 75 69 6c the actual buil
1a90: 64 20 6f 75 74 70 75 74 20 64 69 72 65 63 74 6f d output directo
1aa0: 72 79 20 28 65 2e 67 2e 20 22 62 69 6e 22 29 2e ry (e.g. "bin").
1ab0: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #..
1ac0: 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 if {[info e
1ad0: 78 69 73 74 73 20 3a 3a 62 75 69 6c 64 5f 62 61 xists ::build_ba
1ae0: 73 65 5f 64 69 72 65 63 74 6f 72 79 5d 20 26 26 se_directory] &&
1af0: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \..
1b00: 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 [string length $
1b10: 3a 3a 62 75 69 6c 64 5f 62 61 73 65 5f 64 69 72 ::build_base_dir
1b20: 65 63 74 6f 72 79 5d 20 3e 20 30 7d 20 74 68 65 ectory] > 0} the
1b30: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23 n {.. #
1b40: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f .. # NO
1b50: 54 45 3a 20 54 68 65 20 6c 6f 63 61 74 69 6f 6e TE: The location
1b60: 20 6f 66 20 74 68 65 20 62 75 69 6c 64 20 62 61 of the build ba
1b70: 73 65 20 64 69 72 65 63 74 6f 72 79 20 68 61 73 se directory has
1b80: 20 62 65 65 6e 20 6f 76 65 72 72 69 64 64 65 6e been overridden
1b90: 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 20 ;.. #
1ba0: 20 20 20 20 20 74 68 65 72 65 66 6f 72 65 2c 20 therefore,
1bb0: 75 73 65 20 69 74 20 76 65 72 62 61 74 69 6d 2e use it verbatim.
1bc0: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 .. #..
1bd0: 20 20 20 20 20 20 20 20 20 73 65 74 20 70 61 74 set pat
1be0: 68 20 24 3a 3a 62 75 69 6c 64 5f 62 61 73 65 5f h $::build_base_
1bf0: 64 69 72 65 63 74 6f 72 79 0d 0a 20 20 20 20 20 directory..
1c00: 20 20 20 7d 20 65 6c 73 65 69 66 20 7b 5b 69 6e } elseif {[in
1c10: 66 6f 20 65 78 69 73 74 73 20 3a 3a 63 6f 6d 6d fo exists ::comm
1c20: 6f 6e 5f 64 69 72 65 63 74 6f 72 79 5d 20 26 26 on_directory] &&
1c30: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \..
1c40: 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 [string length $
1c50: 3a 3a 63 6f 6d 6d 6f 6e 5f 64 69 72 65 63 74 6f ::common_directo
1c60: 72 79 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d ry] > 0} then {.
1c70: 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 . #..
1c80: 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 # NOTE:
1c90: 4e 65 78 74 2c 20 66 61 6c 6c 62 61 63 6b 20 74 Next, fallback t
1ca0: 6f 20 74 68 65 20 70 61 72 65 6e 74 20 64 69 72 o the parent dir
1cb0: 65 63 74 6f 72 79 20 6f 66 20 74 68 65 20 6f 6e ectory of the on
1cc0: 65 20 63 6f 6e 74 61 69 6e 69 6e 67 0d 0a 20 20 e containing..
1cd0: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 #
1ce0: 74 68 69 73 20 66 69 6c 65 20 28 69 2e 65 2e 20 this file (i.e.
1cf0: 22 63 6f 6d 6d 6f 6e 2e 65 61 67 6c 65 22 29 2c "common.eagle"),
1d00: 20 69 66 20 61 76 61 69 6c 61 62 6c 65 2e 0d 0a if available...
1d10: 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 #..
1d20: 20 20 20 20 20 20 20 73 65 74 20 70 61 74 68 20 set path
1d30: 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 24 3a [file dirname $:
1d40: 3a 63 6f 6d 6d 6f 6e 5f 64 69 72 65 63 74 6f 72 :common_director
1d50: 79 5d 0d 0a 20 20 20 20 20 20 20 20 7d 20 65 6c y].. } el
1d60: 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 se {..
1d70: 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e #.. # N
1d80: 4f 54 45 3a 20 46 69 6e 61 6c 6c 79 2c 20 66 61 OTE: Finally, fa
1d90: 6c 6c 62 61 63 6b 20 74 6f 20 74 68 65 20 70 61 llback to the pa
1da0: 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79 20 6f rent directory o
1db0: 66 20 74 68 65 20 45 61 67 6c 65 54 65 73 74 0d f the EagleTest.
1dc0: 0a 20 20 20 20 20 20 20 20 20 20 23 20 20 20 20 . #
1dd0: 20 20 20 70 61 74 68 2e 20 20 54 68 65 20 45 61 path. The Ea
1de0: 67 6c 65 54 65 73 74 20 70 61 63 6b 61 67 65 20 gleTest package
1df0: 67 75 61 72 61 6e 74 65 65 73 20 74 68 61 74 20 guarantees that
1e00: 74 68 69 73 20 76 61 72 69 61 62 6c 65 0d 0a 20 this variable..
1e10: 20 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 #
1e20: 20 77 69 6c 6c 20 62 65 20 73 65 74 20 74 6f 20 will be set to
1e30: 74 68 65 20 64 69 72 65 63 74 6f 72 79 20 63 6f the directory co
1e40: 6e 74 61 69 6e 69 6e 67 20 74 68 65 20 66 69 72 ntaining the fir
1e50: 73 74 20 66 69 6c 65 20 74 6f 0d 0a 20 20 20 20 st file to..
1e60: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 65 78 # ex
1e70: 65 63 75 74 65 20 74 68 65 20 5b 72 75 6e 54 65 ecute the [runTe
1e80: 73 74 50 72 6f 6c 6f 67 75 65 5d 20 73 63 72 69 stPrologue] scri
1e90: 70 74 20 6c 69 62 72 61 72 79 20 70 72 6f 63 65 pt library proce
1ea0: 64 75 72 65 2e 0d 0a 20 20 20 20 20 20 20 20 20 dure...
1eb0: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 73 65 #.. se
1ec0: 74 20 70 61 74 68 20 5b 66 69 6c 65 20 64 69 72 t path [file dir
1ed0: 6e 61 6d 65 20 24 3a 3a 70 61 74 68 5d 0d 0a 20 name $::path]..
1ee0: 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 }....
1ef0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 #.. #
1f00: 20 4e 4f 54 45 3a 20 49 66 20 74 68 65 20 22 6e NOTE: If the "n
1f10: 61 74 69 76 65 22 20 72 75 6e 74 69 6d 65 20 6f ative" runtime o
1f20: 70 74 69 6f 6e 20 69 73 20 73 65 74 2c 20 74 68 ption is set, th
1f30: 65 20 6d 69 78 65 64 2d 6d 6f 64 65 20 61 73 73 e mixed-mode ass
1f40: 65 6d 62 6c 79 0d 0a 20 20 20 20 20 20 20 20 23 embly.. #
1f50: 20 20 20 20 20 20 20 69 73 20 62 65 69 6e 67 20 is being
1f60: 74 65 73 74 65 64 2e 20 20 49 6e 20 74 68 61 74 tested. In that
1f70: 20 63 61 73 65 2c 20 74 68 65 20 70 61 74 68 20 case, the path
1f80: 74 6f 20 74 68 65 20 62 75 69 6c 64 20 64 69 72 to the build dir
1f90: 65 63 74 6f 72 79 0d 0a 20 20 20 20 20 20 20 20 ectory..
1fa0: 23 20 20 20 20 20 20 20 77 69 6c 6c 20 63 6f 6e # will con
1fb0: 74 61 69 6e 20 74 68 65 20 70 6c 61 74 66 6f 72 tain the platfor
1fc0: 6d 20 6e 61 6d 65 20 61 6e 64 20 61 6c 6c 20 74 m name and all t
1fd0: 68 65 20 62 69 6e 61 72 69 65 73 20 75 6e 64 65 he binaries unde
1fe0: 72 20 74 65 73 74 0d 0a 20 20 20 20 20 20 20 20 r test..
1ff0: 23 20 20 20 20 20 20 20 73 68 6f 75 6c 64 20 62 # should b
2000: 65 20 70 72 65 73 65 6e 74 20 69 6e 20 74 68 61 e present in tha
2010: 74 20 64 69 72 65 63 74 6f 72 79 2e 20 20 49 66 t directory. If
2020: 20 74 68 65 20 22 6e 61 74 69 76 65 22 20 72 75 the "native" ru
2030: 6e 74 69 6d 65 0d 0a 20 20 20 20 20 20 20 20 23 ntime.. #
2040: 20 20 20 20 20 20 20 6f 70 74 69 6f 6e 20 69 73 option is
2050: 20 6e 6f 74 20 73 65 74 2c 20 74 68 65 20 62 75 not set, the bu
2060: 69 6c 64 20 64 69 72 65 63 74 6f 72 79 20 77 69 ild directory wi
2070: 6c 6c 20 62 65 20 63 6f 6e 73 69 64 65 72 65 64 ll be considered
2080: 20 74 6f 20 62 65 0d 0a 20 20 20 20 20 20 20 20 to be..
2090: 23 20 20 20 20 20 20 20 22 70 6c 61 74 66 6f 72 # "platfor
20a0: 6d 2d 6e 65 75 74 72 61 6c 22 2c 20 77 69 74 68 m-neutral", with
20b0: 20 74 68 65 20 6e 6f 74 61 62 6c 65 20 65 78 63 the notable exc
20c0: 65 70 74 69 6f 6e 20 6f 66 20 61 6e 79 20 6e 61 eption of any na
20d0: 74 69 76 65 0d 0a 20 20 20 20 20 20 20 20 23 20 tive.. #
20e0: 20 20 20 20 20 20 61 73 73 65 6d 62 6c 79 20 28 assembly (
20f0: 65 2e 67 2e 20 22 53 51 4c 69 74 65 2e 49 6e 74 e.g. "SQLite.Int
2100: 65 72 6f 70 2e 64 6c 6c 22 29 20 63 6f 70 69 65 erop.dll") copie
2110: 64 20 74 68 65 72 65 20 64 75 72 69 6e 67 20 74 d there during t
2120: 68 65 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 he.. #
2130: 20 20 20 20 62 75 69 6c 64 20 70 72 6f 63 65 73 build proces
2140: 73 20 69 74 73 65 6c 66 2e 20 20 49 66 20 74 68 s itself. If th
2150: 65 20 62 75 69 6c 64 20 70 72 6f 63 65 73 73 20 e build process
2160: 73 6f 6d 65 68 6f 77 20 64 6f 65 73 20 6e 6f 74 somehow does not
2170: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 .. #
2180: 20 20 63 6f 70 79 20 74 68 65 20 6e 61 74 69 76 copy the nativ
2190: 65 20 61 73 73 65 6d 62 6c 79 20 66 6f 72 20 74 e assembly for t
21a0: 68 69 73 20 70 6c 61 74 66 6f 72 6d 2c 20 6d 6f his platform, mo
21b0: 73 74 20 6f 66 20 74 68 65 20 74 65 73 74 73 0d st of the tests.
21c0: 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 . #
21d0: 20 69 6e 20 74 68 65 20 73 75 69 74 65 20 77 69 in the suite wi
21e0: 6c 6c 20 73 69 6d 70 6c 79 20 62 65 20 73 6b 69 ll simply be ski
21f0: 70 70 65 64 2e 20 20 47 65 6e 65 72 61 6c 6c 79 pped. Generally
2200: 20 73 70 65 61 6b 69 6e 67 2c 20 74 68 65 72 65 speaking, there
2210: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 .. #
2220: 20 20 61 72 65 20 74 77 6f 20 77 61 79 73 20 74 are two ways t
2230: 6f 20 62 75 69 6c 64 20 74 68 65 20 62 69 6e 61 o build the bina
2240: 72 69 65 73 20 77 68 65 6e 20 70 72 65 70 61 72 ries when prepar
2250: 69 6e 67 20 74 6f 20 72 75 6e 20 74 68 65 0d 0a ing to run the..
2260: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 #
2270: 74 65 73 74 20 73 75 69 74 65 3a 0d 0a 20 20 20 test suite:..
2280: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #..
2290: 23 20 20 20 20 20 20 20 31 2e 20 42 75 69 6c 64 # 1. Build
22a0: 20 74 68 65 20 73 65 70 61 72 61 74 65 20 6d 61 the separate ma
22b0: 6e 61 67 65 64 20 61 6e 64 20 6e 61 74 69 76 65 naged and native
22c0: 20 61 73 73 65 6d 62 6c 69 65 73 20 75 73 69 6e assemblies usin
22d0: 67 20 73 6f 6d 65 0d 0a 20 20 20 20 20 20 20 20 g some..
22e0: 23 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 61 # comma
22f0: 6e 64 73 20 73 69 6d 69 6c 61 72 20 74 6f 3a 0d nds similar to:.
2300: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #..
2310: 20 20 20 20 23 20 20 20 20 20 20 20 20 20 20 62 # b
2320: 75 69 6c 64 2e 62 61 74 20 24 7b 43 6f 6e 66 69 uild.bat ${Confi
2330: 67 75 72 61 74 69 6f 6e 7d 4d 61 6e 61 67 65 64 guration}Managed
2340: 4f 6e 6c 79 20 24 7b 50 6c 61 74 66 6f 72 6d 7d Only ${Platform}
2350: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 .. #
2360: 20 20 20 20 20 62 75 69 6c 64 2e 62 61 74 20 24 build.bat $
2370: 7b 43 6f 6e 66 69 67 75 72 61 74 69 6f 6e 7d 4e {Configuration}N
2380: 61 74 69 76 65 4f 6e 6c 79 20 24 7b 50 6c 61 74 ativeOnly ${Plat
2390: 66 6f 72 6d 7d 0d 0a 20 20 20 20 20 20 20 20 23 form}.. #
23a0: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 .. #
23b0: 20 20 20 20 20 57 68 65 72 65 20 24 7b 43 6f 6e Where ${Con
23c0: 66 69 67 75 72 61 74 69 6f 6e 7d 20 69 73 20 65 figuration} is e
23d0: 69 74 68 65 72 20 22 44 65 62 75 67 22 20 6f 72 ither "Debug" or
23e0: 20 22 52 65 6c 65 61 73 65 22 20 61 6e 64 0d 0a "Release" and..
23f0: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 #
2400: 20 20 20 24 7b 50 6c 61 74 66 6f 72 6d 7d 20 69 ${Platform} i
2410: 73 20 65 69 74 68 65 72 20 22 57 69 6e 33 32 22 s either "Win32"
2420: 20 6f 72 20 22 78 36 34 22 2e 0d 0a 20 20 20 20 or "x64"...
2430: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 #.. #
2440: 20 20 20 20 20 20 20 32 2e 20 42 75 69 6c 64 20 2. Build
2450: 74 68 65 20 6d 69 78 65 64 2d 6d 6f 64 65 20 61 the mixed-mode a
2460: 73 73 65 6d 62 6c 79 20 75 73 69 6e 67 20 61 20 ssembly using a
2470: 63 6f 6d 6d 61 6e 64 20 73 69 6d 69 6c 61 72 20 command similar
2480: 74 6f 3a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a to:.. #..
2490: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 #
24a0: 20 20 20 62 75 69 6c 64 2e 62 61 74 20 24 7b 43 build.bat ${C
24b0: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 7d 20 24 7b onfiguration} ${
24c0: 50 6c 61 74 66 6f 72 6d 7d 0d 0a 20 20 20 20 20 Platform}..
24d0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 #.. #
24e0: 20 20 20 20 20 20 20 20 20 57 68 65 72 65 20 24 Where $
24f0: 7b 43 6f 6e 66 69 67 75 72 61 74 69 6f 6e 7d 20 {Configuration}
2500: 69 73 20 65 69 74 68 65 72 20 22 44 65 62 75 67 is either "Debug
2510: 22 20 6f 72 20 22 52 65 6c 65 61 73 65 22 20 61 " or "Release" a
2520: 6e 64 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 nd.. #
2530: 20 20 20 20 20 20 20 24 7b 50 6c 61 74 66 6f 72 ${Platfor
2540: 6d 7d 20 69 73 20 65 69 74 68 65 72 20 22 57 69 m} is either "Wi
2550: 6e 33 32 22 20 6f 72 20 22 78 36 34 22 2e 20 20 n32" or "x64".
2560: 49 66 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 If this command
2570: 69 73 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 is.. #
2580: 20 20 20 20 20 20 20 75 73 65 64 2c 20 76 61 72 used, var
2590: 69 6f 75 73 20 74 65 73 74 73 20 74 68 61 74 20 ious tests that
25a0: 72 65 71 75 69 72 65 20 73 75 70 70 6c 65 6d 65 require suppleme
25b0: 6e 74 61 72 79 20 6d 61 6e 61 67 65 64 0d 0a 20 ntary managed..
25c0: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 20 #
25d0: 20 20 61 73 73 65 6d 62 6c 69 65 73 20 28 65 2e assemblies (e.
25e0: 67 2e 20 4c 49 4e 51 29 20 6d 61 79 20 62 65 20 g. LINQ) may be
25f0: 73 6b 69 70 70 65 64 20 75 6e 6c 65 73 73 20 74 skipped unless t
2600: 68 6f 73 65 20 62 69 6e 61 72 69 65 73 0d 0a 20 hose binaries..
2610: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 20 #
2620: 20 20 61 72 65 20 73 75 62 73 65 71 75 65 6e 74 are subsequent
2630: 6c 79 20 63 6f 70 69 65 64 20 69 6e 74 6f 20 74 ly copied into t
2640: 68 65 20 63 6f 72 72 65 63 74 20 64 69 72 65 63 he correct direc
2650: 74 6f 72 79 20 28 69 2e 65 2e 20 62 79 0d 0a 20 tory (i.e. by..
2660: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 20 #
2670: 20 20 22 74 65 73 74 5f 61 6c 6c 2e 62 61 74 22 "test_all.bat"
2680: 29 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 )... #..
2690: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 4e # N
26a0: 6f 74 65 20 74 68 61 74 20 61 6c 6c 20 6f 66 20 ote that all of
26b0: 74 68 65 20 62 75 69 6c 64 20 63 6f 6d 6d 61 6e the build comman
26c0: 64 73 20 61 62 6f 76 65 20 77 69 6c 6c 20 64 65 ds above will de
26d0: 66 61 75 6c 74 20 74 6f 20 75 73 69 6e 67 0d 0a fault to using..
26e0: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 #
26f0: 74 68 65 20 6c 61 74 65 73 74 20 76 65 72 73 69 the latest versi
2700: 6f 6e 20 6f 66 20 4d 53 42 75 69 6c 64 20 61 76 on of MSBuild av
2710: 61 69 6c 61 62 6c 65 20 61 6e 64 20 74 68 65 20 ailable and the
2720: 22 74 65 73 74 5f 79 65 61 72 22 20 6d 61 79 0d "test_year" may.
2730: 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 . #
2740: 20 6e 65 65 64 20 74 6f 20 62 65 20 61 64 6a 75 need to be adju
2750: 73 74 65 64 20 61 63 63 6f 72 64 69 6e 67 6c 79 sted accordingly
2760: 20 74 6f 20 61 63 74 75 61 6c 6c 79 20 72 75 6e to actually run
2770: 20 74 68 65 20 74 65 73 74 20 73 75 69 74 65 2e the test suite.
2780: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 .. #
2790: 20 20 52 65 66 65 72 20 74 6f 20 74 68 65 20 63 Refer to the c
27a0: 6f 6d 6d 65 6e 74 73 20 69 6e 20 5b 67 65 74 42 omments in [getB
27b0: 75 69 6c 64 59 65 61 72 5d 20 66 6f 72 20 6d 6f uildYear] for mo
27c0: 72 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 6f re information o
27d0: 6e 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 n.. #
27e0: 20 20 20 68 6f 77 20 74 6f 20 73 65 74 20 74 68 how to set th
27f0: 69 73 20 76 61 72 69 61 62 6c 65 2e 0d 0a 20 20 is variable...
2800: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
2810: 20 69 66 20 7b 5b 68 61 73 52 75 6e 74 69 6d 65 if {[hasRuntime
2820: 4f 70 74 69 6f 6e 20 6e 61 74 69 76 65 5d 7d 20 Option native]}
2830: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 then {..
2840: 20 20 72 65 74 75 72 6e 20 5b 66 69 6c 65 20 6a return [file j
2850: 6f 69 6e 20 24 70 61 74 68 20 62 69 6e 20 5b 67 oin $path bin [g
2860: 65 74 42 75 69 6c 64 59 65 61 72 5d 20 5b 6d 61 etBuildYear] [ma
2870: 63 68 69 6e 65 54 6f 50 6c 61 74 66 6f 72 6d 20 chineToPlatform
2880: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 \..
2890: 20 24 3a 3a 74 63 6c 5f 70 6c 61 74 66 6f 72 6d $::tcl_platform
28a0: 28 6d 61 63 68 69 6e 65 29 5d 20 5b 67 65 74 42 (machine)] [getB
28b0: 75 69 6c 64 43 6f 6e 66 69 67 75 72 61 74 69 6f uildConfiguratio
28c0: 6e 5d 5d 0d 0a 20 20 20 20 20 20 20 20 7d 20 65 n]].. } e
28d0: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 lse {..
28e0: 20 72 65 74 75 72 6e 20 5b 66 69 6c 65 20 6a 6f return [file jo
28f0: 69 6e 20 24 70 61 74 68 20 62 69 6e 20 5b 67 65 in $path bin [ge
2900: 74 42 75 69 6c 64 59 65 61 72 5d 20 5b 67 65 74 tBuildYear] [get
2910: 42 75 69 6c 64 43 6f 6e 66 69 67 75 72 61 74 69 BuildConfigurati
2920: 6f 6e 5d 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 on] \..
2930: 20 20 20 20 20 62 69 6e 5d 0d 0a 20 20 20 20 20 bin]..
2940: 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 }.. }..
2950: 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f }..... pro
2960: 63 20 67 65 74 42 75 69 6c 64 46 69 6c 65 4e 61 c getBuildFileNa
2970: 6d 65 20 7b 20 66 69 6c 65 4e 61 6d 65 20 7d 20 me { fileName }
2980: 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 {.. #..
2990: 20 20 23 20 4e 4f 54 45 3a 20 52 65 74 75 72 6e # NOTE: Return
29a0: 73 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 s the specified
29b0: 66 69 6c 65 20 6e 61 6d 65 20 61 73 20 69 66 20 file name as if
29c0: 69 74 20 77 65 72 65 20 6c 6f 63 61 74 65 64 20 it were located
29d0: 69 6e 20 74 68 65 0d 0a 20 20 20 20 20 20 23 20 in the.. #
29e0: 20 20 20 20 20 20 62 75 69 6c 64 20 64 69 72 65 build dire
29f0: 63 74 6f 72 79 2c 20 64 69 73 63 61 72 64 69 6e ctory, discardin
2a00: 67 20 61 6e 79 20 64 69 72 65 63 74 6f 72 79 20 g any directory
2a10: 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 70 72 65 73 information pres
2a20: 65 6e 74 0d 0a 20 20 20 20 20 20 23 20 20 20 20 ent.. #
2a30: 20 20 20 69 6e 20 74 68 65 20 66 69 6c 65 20 6e in the file n
2a40: 61 6d 65 20 61 73 20 70 72 6f 76 69 64 65 64 20 ame as provided
2a50: 62 79 20 6f 75 72 20 63 61 6c 6c 65 72 2e 0d 0a by our caller...
2a60: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 72 #.. r
2a70: 65 74 75 72 6e 20 5b 66 69 6c 65 20 6e 61 74 69 eturn [file nati
2a80: 76 65 6e 61 6d 65 20 5c 0d 0a 20 20 20 20 20 20 vename \..
2a90: 20 20 20 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b [file join [
2aa0: 67 65 74 42 75 69 6c 64 44 69 72 65 63 74 6f 72 getBuildDirector
2ab0: 79 5d 20 5b 66 69 6c 65 20 74 61 69 6c 20 24 66 y] [file tail $f
2ac0: 69 6c 65 4e 61 6d 65 5d 5d 5d 0d 0a 20 20 20 20 ileName]]]..
2ad0: 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 67 }..... proc g
2ae0: 65 74 42 69 6e 61 72 79 44 69 72 65 63 74 6f 72 etBinaryDirector
2af0: 79 20 7b 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d y {} {.. #.
2b00: 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 . # NOTE: T
2b10: 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 72 65 his procedure re
2b20: 74 75 72 6e 73 20 74 68 65 20 64 69 72 65 63 74 turns the direct
2b30: 6f 72 79 20 77 68 65 72 65 20 74 68 65 20 74 65 ory where the te
2b40: 73 74 20 61 70 70 6c 69 63 61 74 69 6f 6e 0d 0a st application..
2b50: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 69 74 # it
2b60: 73 65 6c 66 20 28 69 2e 65 2e 20 74 68 65 20 45 self (i.e. the E
2b70: 61 67 6c 65 20 73 68 65 6c 6c 29 20 69 73 20 6c agle shell) is l
2b80: 6f 63 61 74 65 64 2e 20 20 54 68 69 73 20 77 69 ocated. This wi
2b90: 6c 6c 20 62 65 20 75 73 65 64 20 61 73 0d 0a 20 ll be used as..
2ba0: 20 20 20 20 20 23 20 20 20 20 20 20 20 74 68 65 # the
2bb0: 20 64 65 73 74 69 6e 61 74 69 6f 6e 20 66 6f 72 destination for
2bc0: 20 74 68 65 20 63 6f 70 69 65 64 20 53 79 73 74 the copied Syst
2bd0: 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 20 6e em.Data.SQLite n
2be0: 61 74 69 76 65 20 61 6e 64 0d 0a 20 20 20 20 20 ative and..
2bf0: 20 23 20 20 20 20 20 20 20 6d 61 6e 61 67 65 64 # managed
2c00: 20 61 73 73 65 6d 62 6c 69 65 73 20 28 69 2e 65 assemblies (i.e
2c10: 2e 20 62 65 63 61 75 73 65 20 74 68 69 73 20 69 . because this i
2c20: 73 20 6f 6e 65 20 6f 66 20 74 68 65 20 66 65 77 s one of the few
2c30: 20 70 6c 61 63 65 73 0d 0a 20 20 20 20 20 20 23 places.. #
2c40: 20 20 20 20 20 20 20 77 68 65 72 65 20 74 68 65 where the
2c50: 20 43 4c 52 20 77 69 6c 6c 20 61 63 74 75 61 6c CLR will actual
2c60: 6c 79 20 66 69 6e 64 20 61 6e 64 20 6c 6f 61 64 ly find and load
2c70: 20 74 68 65 6d 20 70 72 6f 70 65 72 6c 79 29 2e them properly).
2c80: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #..
2c90: 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 if {[info exist
2ca0: 73 20 3a 3a 62 69 6e 61 72 79 5f 64 69 72 65 63 s ::binary_direc
2cb0: 74 6f 72 79 5d 20 26 26 20 5c 0d 0a 20 20 20 20 tory] && \..
2cc0: 20 20 20 20 20 20 5b 73 74 72 69 6e 67 20 6c 65 [string le
2cd0: 6e 67 74 68 20 24 3a 3a 62 69 6e 61 72 79 5f 64 ngth $::binary_d
2ce0: 69 72 65 63 74 6f 72 79 5d 20 3e 20 30 7d 20 74 irectory] > 0} t
2cf0: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 hen {.. #
2d00: 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 .. # NOTE
2d10: 3a 20 54 68 65 20 6c 6f 63 61 74 69 6f 6e 20 6f : The location o
2d20: 66 20 74 68 65 20 62 69 6e 61 72 79 20 64 69 72 f the binary dir
2d30: 65 63 74 6f 72 79 20 68 61 73 20 62 65 65 6e 20 ectory has been
2d40: 6f 76 65 72 72 69 64 64 65 6e 3b 0d 0a 20 20 20 overridden;..
2d50: 20 20 20 20 20 23 20 20 20 20 20 20 20 74 68 65 # the
2d60: 72 65 66 6f 72 65 2c 20 75 73 65 20 69 74 20 76 refore, use it v
2d70: 65 72 62 61 74 69 6d 2e 0d 0a 20 20 20 20 20 20 erbatim...
2d80: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 72 65 74 #.. ret
2d90: 75 72 6e 20 24 3a 3a 62 69 6e 61 72 79 5f 64 69 urn $::binary_di
2da0: 72 65 63 74 6f 72 79 0d 0a 20 20 20 20 20 20 7d rectory.. }
2db0: 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 else {..
2dc0: 20 72 65 74 75 72 6e 20 5b 69 6e 66 6f 20 62 69 return [info bi
2dd0: 6e 61 72 79 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a nary].. }..
2de0: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 }..... pr
2df0: 6f 63 20 67 65 74 42 69 6e 61 72 79 46 69 6c 65 oc getBinaryFile
2e00: 4e 61 6d 65 20 7b 20 66 69 6c 65 4e 61 6d 65 20 Name { fileName
2e10: 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 } {.. #..
2e20: 20 20 20 20 23 20 4e 4f 54 45 3a 20 52 65 74 75 # NOTE: Retu
2e30: 72 6e 73 20 74 68 65 20 73 70 65 63 69 66 69 65 rns the specifie
2e40: 64 20 66 69 6c 65 20 6e 61 6d 65 20 61 73 20 69 d file name as i
2e50: 66 20 69 74 20 77 65 72 65 20 6c 6f 63 61 74 65 f it were locate
2e60: 64 20 69 6e 20 74 68 65 0d 0a 20 20 20 20 20 20 d in the..
2e70: 23 20 20 20 20 20 20 20 62 69 6e 61 72 79 20 64 # binary d
2e80: 69 72 65 63 74 6f 72 79 2c 20 64 69 73 63 61 72 irectory, discar
2e90: 64 69 6e 67 20 61 6e 79 20 64 69 72 65 63 74 6f ding any directo
2ea0: 72 79 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 70 ry information p
2eb0: 72 65 73 65 6e 74 0d 0a 20 20 20 20 20 20 23 20 resent.. #
2ec0: 20 20 20 20 20 20 69 6e 20 74 68 65 20 66 69 6c in the fil
2ed0: 65 20 6e 61 6d 65 20 61 73 20 70 72 6f 76 69 64 e name as provid
2ee0: 65 64 20 62 79 20 6f 75 72 20 63 61 6c 6c 65 72 ed by our caller
2ef0: 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 ... #..
2f00: 20 20 72 65 74 75 72 6e 20 5b 66 69 6c 65 20 6e return [file n
2f10: 61 74 69 76 65 6e 61 6d 65 20 5c 0d 0a 20 20 20 ativename \..
2f20: 20 20 20 20 20 20 20 5b 66 69 6c 65 20 6a 6f 69 [file joi
2f30: 6e 20 5b 67 65 74 42 69 6e 61 72 79 44 69 72 65 n [getBinaryDire
2f40: 63 74 6f 72 79 5d 20 5b 66 69 6c 65 20 74 61 69 ctory] [file tai
2f50: 6c 20 24 66 69 6c 65 4e 61 6d 65 5d 5d 5d 0d 0a l $fileName]]]..
2f60: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 }..... pr
2f70: 6f 63 20 67 65 74 43 6f 72 65 42 69 6e 61 72 79 oc getCoreBinary
2f80: 46 69 6c 65 4e 61 6d 65 20 7b 20 7b 73 74 61 6e FileName { {stan
2f90: 64 61 72 64 20 66 61 6c 73 65 7d 20 7d 20 7b 0d dard false} } {.
2fa0: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 . #..
2fb0: 23 20 4e 4f 54 45 3a 20 52 65 74 75 72 6e 73 20 # NOTE: Returns
2fc0: 74 68 65 20 66 75 6c 6c 20 70 61 74 68 20 66 6f the full path fo
2fd0: 72 20 74 68 65 20 66 69 6c 65 20 63 6f 6e 74 61 r the file conta
2fe0: 69 6e 69 6e 67 20 74 68 65 20 63 6f 72 65 20 53 ining the core S
2ff0: 51 4c 69 74 65 0d 0a 20 20 20 20 20 20 23 20 20 QLite.. #
3000: 20 20 20 20 20 6c 69 62 72 61 72 79 20 63 6f 64 library cod
3010: 65 20 66 6f 72 20 74 68 69 73 20 70 6c 61 74 66 e for this platf
3020: 6f 72 6d 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 orm... #..
3030: 20 20 20 20 20 69 66 20 7b 5b 68 61 73 52 75 6e if {[hasRun
3040: 74 69 6d 65 4f 70 74 69 6f 6e 20 6e 61 74 69 76 timeOption nativ
3050: 65 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 e]} then {..
3060: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 #.. #
3070: 20 4e 4f 54 45 3a 20 52 65 74 75 72 6e 20 74 68 NOTE: Return th
3080: 65 20 6d 69 78 65 64 2d 6d 6f 64 65 20 61 73 73 e mixed-mode ass
3090: 65 6d 62 6c 79 20 66 69 6c 65 20 6e 61 6d 65 2e embly file name.
30a0: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #..
30b0: 20 20 20 20 20 72 65 74 75 72 6e 20 5b 66 69 6c return [fil
30c0: 65 20 6e 61 74 69 76 65 6e 61 6d 65 20 5c 0d 0a e nativename \..
30d0: 20 20 20 20 20 20 20 20 20 20 20 20 5b 66 69 6c [fil
30e0: 65 20 6a 6f 69 6e 20 5b 67 65 74 42 69 6e 61 72 e join [getBinar
30f0: 79 44 69 72 65 63 74 6f 72 79 5d 20 53 79 73 74 yDirectory] Syst
3100: 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 64 em.Data.SQLite.d
3110: 6c 6c 5d 5d 0d 0a 20 20 20 20 20 20 7d 20 65 6c ll]].. } el
3120: 73 65 69 66 20 7b 24 73 74 61 6e 64 61 72 64 7d seif {$standard}
3130: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 then {..
3140: 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f #.. # NO
3150: 54 45 3a 20 52 65 74 75 72 6e 20 74 68 65 20 6e TE: Return the n
3160: 61 74 69 76 65 2d 6f 6e 6c 79 20 73 74 61 6e 64 ative-only stand
3170: 61 72 64 20 53 51 4c 69 74 65 20 6c 69 62 72 61 ard SQLite libra
3180: 72 79 20 66 69 6c 65 20 6e 61 6d 65 2e 0d 0a 20 ry file name...
3190: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
31a0: 20 20 72 65 74 75 72 6e 20 5b 66 69 6c 65 20 6e return [file n
31b0: 61 74 69 76 65 6e 61 6d 65 20 5c 0d 0a 20 20 20 ativename \..
31c0: 20 20 20 20 20 20 20 20 20 5b 66 69 6c 65 20 6a [file j
31d0: 6f 69 6e 20 5b 67 65 74 42 69 6e 61 72 79 44 69 oin [getBinaryDi
31e0: 72 65 63 74 6f 72 79 5d 20 73 71 6c 69 74 65 33 rectory] sqlite3
31f0: 2e 64 6c 6c 5d 5d 0d 0a 20 20 20 20 20 20 7d 20 .dll]].. }
3200: 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 else {..
3210: 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT
3220: 45 3a 20 52 65 74 75 72 6e 20 74 68 65 20 6e 61 E: Return the na
3230: 74 69 76 65 2d 6f 6e 6c 79 20 69 6e 74 65 72 6f tive-only intero
3240: 70 20 61 73 73 65 6d 62 6c 79 20 66 69 6c 65 20 p assembly file
3250: 6e 61 6d 65 2e 0d 0a 20 20 20 20 20 20 20 20 23 name... #
3260: 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e .. return
3270: 20 5b 66 69 6c 65 20 6e 61 74 69 76 65 6e 61 6d [file nativenam
3280: 65 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 e \..
3290: 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 67 65 74 [file join [get
32a0: 42 69 6e 61 72 79 44 69 72 65 63 74 6f 72 79 5d BinaryDirectory]
32b0: 20 53 51 4c 69 74 65 2e 49 6e 74 65 72 6f 70 2e SQLite.Interop.
32c0: 64 6c 6c 5d 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a dll]].. }..
32d0: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 }..... pr
32e0: 6f 63 20 67 65 74 43 6f 6d 6d 6f 6e 44 69 72 65 oc getCommonDire
32f0: 63 74 6f 72 79 20 7b 7d 20 7b 0d 0a 20 20 20 20 ctory {} {..
3300: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT
3310: 45 3a 20 54 68 69 73 20 70 72 6f 63 65 64 75 72 E: This procedur
3320: 65 20 72 65 74 75 72 6e 73 20 74 68 65 20 64 69 e returns the di
3330: 72 65 63 74 6f 72 79 20 77 68 65 72 65 20 74 68 rectory where th
3340: 65 20 74 65 73 74 20 73 63 72 69 70 74 73 0d 0a e test scripts..
3350: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 73 68 # sh
3360: 6f 75 6c 64 20 62 65 20 6c 6f 63 61 74 65 64 2e ould be located.
3370: 20 20 42 79 20 64 65 66 61 75 6c 74 2c 20 74 68 By default, th
3380: 69 73 20 6a 75 73 74 20 72 65 74 75 72 6e 73 20 is just returns
3390: 74 68 65 20 45 61 67 6c 65 0d 0a 20 20 20 20 20 the Eagle..
33a0: 20 23 20 20 20 20 20 20 20 62 69 6e 61 72 79 20 # binary
33b0: 64 69 72 65 63 74 6f 72 79 2e 0d 0a 20 20 20 20 directory...
33c0: 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b #.. if {[
33d0: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 63 6f info exists ::co
33e0: 6d 6d 6f 6e 5f 64 69 72 65 63 74 6f 72 79 5d 20 mmon_directory]
33f0: 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 && \..
3400: 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 [string length $
3410: 3a 3a 63 6f 6d 6d 6f 6e 5f 64 69 72 65 63 74 6f ::common_directo
3420: 72 79 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d ry] > 0} then {.
3430: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #..
3440: 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 65 20 # NOTE: The
3450: 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 location of the
3460: 63 6f 6d 6d 6f 6e 20 64 69 72 65 63 74 6f 72 79 common directory
3470: 20 68 61 73 20 62 65 65 6e 20 73 65 74 3b 0d 0a has been set;..
3480: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 #
3490: 74 68 65 72 65 66 6f 72 65 2c 20 75 73 65 20 69 therefore, use i
34a0: 74 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 t... #..
34b0: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 3a return $:
34c0: 3a 63 6f 6d 6d 6f 6e 5f 64 69 72 65 63 74 6f 72 :common_director
34d0: 79 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 69 y.. } elsei
34e0: 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 f {[info exists
34f0: 3a 3a 76 65 6e 64 6f 72 5f 64 69 72 65 63 74 6f ::vendor_directo
3500: 72 79 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20 20 ry] && \..
3510: 20 20 20 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67 [string leng
3520: 74 68 20 24 3a 3a 76 65 6e 64 6f 72 5f 64 69 72 th $::vendor_dir
3530: 65 63 74 6f 72 79 5d 20 3e 20 30 7d 20 74 68 65 ectory] > 0} the
3540: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a n {.. #..
3550: 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 # NOTE:
3560: 54 68 65 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 The location of
3570: 74 68 65 20 76 65 6e 64 6f 72 20 64 69 72 65 63 the vendor direc
3580: 74 6f 72 79 20 68 61 73 20 62 65 65 6e 20 73 65 tory has been se
3590: 74 3b 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 t;.. #
35a0: 20 20 20 20 74 68 65 72 65 66 6f 72 65 2c 20 75 therefore, u
35b0: 73 65 20 69 74 2e 0d 0a 20 20 20 20 20 20 20 20 se it...
35c0: 23 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 #.. retur
35d0: 6e 20 24 3a 3a 76 65 6e 64 6f 72 5f 64 69 72 65 n $::vendor_dire
35e0: 63 74 6f 72 79 0d 0a 20 20 20 20 20 20 7d 20 65 ctory.. } e
35f0: 6c 73 65 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 lseif {[info exi
3600: 73 74 73 20 3a 3a 74 63 6c 5f 6c 69 62 72 61 72 sts ::tcl_librar
3610: 79 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 y] && \..
3620: 20 20 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 [string lengt
3630: 68 20 24 3a 3a 74 63 6c 5f 6c 69 62 72 61 72 79 h $::tcl_library
3640: 5d 20 3e 20 30 20 26 26 20 5c 0d 0a 20 20 20 20 ] > 0 && \..
3650: 20 20 20 20 20 20 5b 66 69 6c 65 20 69 73 64 69 [file isdi
3660: 72 65 63 74 6f 72 79 20 24 3a 3a 74 63 6c 5f 6c rectory $::tcl_l
3670: 69 62 72 61 72 79 5d 7d 20 74 68 65 6e 20 7b 0d ibrary]} then {.
3680: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #..
3690: 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 65 20 # NOTE: The
36a0: 76 61 72 69 61 62 6c 65 20 77 69 74 68 20 74 68 variable with th
36b0: 65 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 74 68 e location of th
36c0: 65 20 73 63 72 69 70 74 20 6c 69 62 72 61 72 79 e script library
36d0: 20 69 73 0d 0a 20 20 20 20 20 20 20 20 23 20 20 is.. #
36e0: 20 20 20 20 20 73 65 74 20 61 6e 64 20 61 70 70 set and app
36f0: 65 61 72 73 20 74 6f 20 62 65 20 61 20 72 65 61 ears to be a rea
3700: 6c 20 64 69 72 65 63 74 6f 72 79 20 28 69 2e 65 l directory (i.e
3710: 2e 20 6e 6f 74 20 65 6d 62 65 64 64 65 64 0d 0a . not embedded..
3720: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 #
3730: 77 69 74 68 69 6e 20 61 20 66 69 6c 65 29 3b 20 within a file);
3740: 74 68 65 72 65 66 6f 72 65 2c 20 75 73 65 20 69 therefore, use i
3750: 74 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 t... #..
3760: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 3a return $:
3770: 3a 74 63 6c 5f 6c 69 62 72 61 72 79 0d 0a 20 20 :tcl_library..
3780: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 } else {..
3790: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
37a0: 20 23 20 4e 4f 54 45 3a 20 46 61 6c 6c 62 61 63 # NOTE: Fallbac
37b0: 6b 20 74 6f 20 74 68 65 20 64 69 72 65 63 74 6f k to the directo
37c0: 72 79 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 ry containing th
37d0: 65 20 65 78 65 63 75 74 61 62 6c 65 2e 0d 0a 20 e executable...
37e0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
37f0: 20 20 72 65 74 75 72 6e 20 5b 69 6e 66 6f 20 62 return [info b
3800: 69 6e 61 72 79 5d 0d 0a 20 20 20 20 20 20 7d 0d inary].. }.
3810: 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 . }..... p
3820: 72 6f 63 20 67 65 74 44 61 74 61 62 61 73 65 44 roc getDatabaseD
3830: 69 72 65 63 74 6f 72 79 20 7b 7d 20 7b 0d 0a 20 irectory {} {..
3840: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 #.. #
3850: 4e 4f 54 45 3a 20 54 68 69 73 20 70 72 6f 63 65 NOTE: This proce
3860: 64 75 72 65 20 72 65 74 75 72 6e 73 20 74 68 65 dure returns the
3870: 20 64 69 72 65 63 74 6f 72 79 20 77 68 65 72 65 directory where
3880: 20 74 68 65 20 74 65 73 74 20 64 61 74 61 62 61 the test databa
3890: 73 65 73 0d 0a 20 20 20 20 20 20 23 20 20 20 20 ses.. #
38a0: 20 20 20 73 68 6f 75 6c 64 20 62 65 20 6c 6f 63 should be loc
38b0: 61 74 65 64 2e 20 20 42 79 20 64 65 66 61 75 6c ated. By defaul
38c0: 74 2c 20 74 68 69 73 20 6a 75 73 74 20 75 73 65 t, this just use
38d0: 73 20 74 68 65 20 74 65 6d 70 6f 72 61 72 79 0d s the temporary.
38e0: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 64 . # d
38f0: 69 72 65 63 74 6f 72 79 20 63 6f 6e 66 69 67 75 irectory configu
3900: 72 65 64 20 66 6f 72 20 74 68 69 73 20 73 79 73 red for this sys
3910: 74 65 6d 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 tem... #..
3920: 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 if {[info e
3930: 78 69 73 74 73 20 3a 3a 64 61 74 61 62 61 73 65 xists ::database
3940: 5f 64 69 72 65 63 74 6f 72 79 5d 20 26 26 20 5c _directory] && \
3950: 0d 0a 20 20 20 20 20 20 20 20 20 20 5b 73 74 72 .. [str
3960: 69 6e 67 20 6c 65 6e 67 74 68 20 24 3a 3a 64 61 ing length $::da
3970: 74 61 62 61 73 65 5f 64 69 72 65 63 74 6f 72 79 tabase_directory
3980: 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 ] > 0} then {..
3990: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
39a0: 20 20 23 20 4e 4f 54 45 3a 20 54 68 65 20 6c 6f # NOTE: The lo
39b0: 63 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 64 61 cation of the da
39c0: 74 61 62 61 73 65 20 64 69 72 65 63 74 6f 72 79 tabase directory
39d0: 20 68 61 73 20 62 65 65 6e 20 6f 76 65 72 72 69 has been overri
39e0: 64 64 65 6e 3b 0d 0a 20 20 20 20 20 20 20 20 23 dden;.. #
39f0: 20 20 20 20 20 20 20 74 68 65 72 65 66 6f 72 65 therefore
3a00: 2c 20 75 73 65 20 69 74 2e 0d 0a 20 20 20 20 20 , use it...
3a10: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 72 65 #.. re
3a20: 74 75 72 6e 20 24 3a 3a 64 61 74 61 62 61 73 65 turn $::database
3a30: 5f 64 69 72 65 63 74 6f 72 79 0d 0a 20 20 20 20 _directory..
3a40: 20 20 7d 20 65 6c 73 65 69 66 20 7b 5b 69 6e 66 } elseif {[inf
3a50: 6f 20 65 78 69 73 74 73 20 3a 3a 73 63 72 61 74 o exists ::scrat
3a60: 63 68 5f 64 69 72 65 63 74 6f 72 79 5d 20 26 26 ch_directory] &&
3a70: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 5b 73 \.. [s
3a80: 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 3a 3a tring length $::
3a90: 73 63 72 61 74 63 68 5f 64 69 72 65 63 74 6f 72 scratch_director
3aa0: 79 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a y] > 0} then {..
3ab0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #..
3ac0: 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 65 20 6c # NOTE: The l
3ad0: 6f 63 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 73 ocation of the s
3ae0: 63 72 61 74 63 68 20 64 69 72 65 63 74 6f 72 79 cratch directory
3af0: 20 68 61 73 20 62 65 65 6e 20 6f 76 65 72 72 69 has been overri
3b00: 64 64 65 6e 3b 0d 0a 20 20 20 20 20 20 20 20 23 dden;.. #
3b10: 20 20 20 20 20 20 20 74 68 65 72 65 66 6f 72 65 therefore
3b20: 2c 20 75 73 65 20 69 74 2e 0d 0a 20 20 20 20 20 , use it...
3b30: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 72 65 #.. re
3b40: 74 75 72 6e 20 24 3a 3a 73 63 72 61 74 63 68 5f turn $::scratch_
3b50: 64 69 72 65 63 74 6f 72 79 0d 0a 20 20 20 20 20 directory..
3b60: 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 } else {..
3b70: 20 20 20 72 65 74 75 72 6e 20 5b 67 65 74 54 65 return [getTe
3b80: 6d 70 6f 72 61 72 79 50 61 74 68 5d 0d 0a 20 20 mporaryPath]..
3b90: 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d }.. }....
3ba0: 0a 20 20 20 20 70 72 6f 63 20 67 65 74 54 65 6d . proc getTem
3bb0: 70 6f 72 61 72 79 44 69 72 65 63 74 6f 72 79 20 poraryDirectory
3bc0: 7b 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 {} {.. #..
3bd0: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 69 # NOTE: Thi
3be0: 73 20 70 72 6f 63 65 64 75 72 65 20 72 65 74 75 s procedure retu
3bf0: 72 6e 73 20 74 68 65 20 64 69 72 65 63 74 6f 72 rns the director
3c00: 79 20 77 68 65 72 65 20 74 68 65 20 74 65 6d 70 y where the temp
3c10: 6f 72 61 72 79 20 66 69 6c 65 73 0d 0a 20 20 20 orary files..
3c20: 20 20 20 23 20 20 20 20 20 20 20 73 68 6f 75 6c # shoul
3c30: 64 20 62 65 20 6c 6f 63 61 74 65 64 2e 20 20 42 d be located. B
3c40: 79 20 64 65 66 61 75 6c 74 2c 20 74 68 69 73 20 y default, this
3c50: 6a 75 73 74 20 75 73 65 73 20 74 68 65 20 74 65 just uses the te
3c60: 6d 70 6f 72 61 72 79 0d 0a 20 20 20 20 20 20 23 mporary.. #
3c70: 20 20 20 20 20 20 20 64 69 72 65 63 74 6f 72 79 directory
3c80: 20 63 6f 6e 66 69 67 75 72 65 64 20 66 6f 72 20 configured for
3c90: 74 68 69 73 20 73 79 73 74 65 6d 2e 0d 0a 20 20 this system...
3ca0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 #.. if
3cb0: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a {[info exists ::
3cc0: 74 65 6d 70 6f 72 61 72 79 5f 64 69 72 65 63 74 temporary_direct
3cd0: 6f 72 79 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20 ory] && \..
3ce0: 20 20 20 20 20 5b 73 74 72 69 6e 67 20 6c 65 6e [string len
3cf0: 67 74 68 20 24 3a 3a 74 65 6d 70 6f 72 61 72 79 gth $::temporary
3d00: 5f 64 69 72 65 63 74 6f 72 79 5d 20 3e 20 30 7d _directory] > 0}
3d10: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 then {..
3d20: 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f #.. # NO
3d30: 54 45 3a 20 54 68 65 20 6c 6f 63 61 74 69 6f 6e TE: The location
3d40: 20 6f 66 20 74 68 65 20 74 65 6d 70 6f 72 61 72 of the temporar
3d50: 79 20 64 69 72 65 63 74 6f 72 79 20 68 61 73 20 y directory has
3d60: 62 65 65 6e 20 6f 76 65 72 72 69 64 64 65 6e 3b been overridden;
3d70: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 .. #
3d80: 20 20 74 68 65 72 65 66 6f 72 65 2c 20 75 73 65 therefore, use
3d90: 20 69 74 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d it... #.
3da0: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 . return
3db0: 24 3a 3a 74 65 6d 70 6f 72 61 72 79 5f 64 69 72 $::temporary_dir
3dc0: 65 63 74 6f 72 79 0d 0a 20 20 20 20 20 20 7d 20 ectory.. }
3dd0: 65 6c 73 65 69 66 20 7b 5b 69 6e 66 6f 20 65 78 elseif {[info ex
3de0: 69 73 74 73 20 3a 3a 73 63 72 61 74 63 68 5f 64 ists ::scratch_d
3df0: 69 72 65 63 74 6f 72 79 5d 20 26 26 20 5c 0d 0a irectory] && \..
3e00: 20 20 20 20 20 20 20 20 20 20 5b 73 74 72 69 6e [strin
3e10: 67 20 6c 65 6e 67 74 68 20 24 3a 3a 73 63 72 61 g length $::scra
3e20: 74 63 68 5f 64 69 72 65 63 74 6f 72 79 5d 20 3e tch_directory] >
3e30: 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 0} then {..
3e40: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 #.. #
3e50: 20 4e 4f 54 45 3a 20 54 68 65 20 6c 6f 63 61 74 NOTE: The locat
3e60: 69 6f 6e 20 6f 66 20 74 68 65 20 73 63 72 61 74 ion of the scrat
3e70: 63 68 20 64 69 72 65 63 74 6f 72 79 20 68 61 73 ch directory has
3e80: 20 62 65 65 6e 20 6f 76 65 72 72 69 64 64 65 6e been overridden
3e90: 3b 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 ;.. #
3ea0: 20 20 20 74 68 65 72 65 66 6f 72 65 2c 20 75 73 therefore, us
3eb0: 65 20 69 74 2e 0d 0a 20 20 20 20 20 20 20 20 23 e it... #
3ec0: 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e .. return
3ed0: 20 24 3a 3a 73 63 72 61 74 63 68 5f 64 69 72 65 $::scratch_dire
3ee0: 63 74 6f 72 79 0d 0a 20 20 20 20 20 20 7d 20 65 ctory.. } e
3ef0: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 72 lse {.. r
3f00: 65 74 75 72 6e 20 5b 67 65 74 54 65 6d 70 6f 72 eturn [getTempor
3f10: 61 72 79 50 61 74 68 5d 0d 0a 20 20 20 20 20 20 aryPath]..
3f20: 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 }.. }.....
3f30: 20 70 72 6f 63 20 67 65 74 54 65 73 74 4f 76 65 proc getTestOve
3f40: 72 72 69 64 65 73 50 72 65 61 6d 62 6c 65 20 7b rridesPreamble {
3f50: 20 7b 65 78 74 72 61 56 61 72 4e 61 6d 65 73 20 {extraVarNames
3f60: 22 22 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 20 73 ""} } {.. s
3f70: 65 74 20 76 61 72 4e 61 6d 65 73 20 5b 6c 69 73 et varNames [lis
3f80: 74 5d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 t].... #..
3f90: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 49 66 20 # NOTE: If
3fa0: 61 76 61 69 6c 61 62 6c 65 2c 20 73 74 61 72 74 available, start
3fb0: 20 77 69 74 68 20 74 68 65 20 6d 61 73 74 65 72 with the master
3fc0: 20 6c 69 73 74 20 6f 66 20 74 65 73 74 20 6f 76 list of test ov
3fd0: 65 72 72 69 64 65 0d 0a 20 20 20 20 20 20 23 20 erride.. #
3fe0: 20 20 20 20 20 20 76 61 72 69 61 62 6c 65 73 2e variables.
3ff0: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #..
4000: 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 if {[info exist
4010: 73 20 3a 3a 74 65 73 74 5f 6f 76 65 72 72 69 64 s ::test_overrid
4020: 65 73 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20 20 es] && \..
4030: 20 20 20 20 5b 6c 6c 65 6e 67 74 68 20 24 3a 3a [llength $::
4040: 74 65 73 74 5f 6f 76 65 72 72 69 64 65 73 5d 20 test_overrides]
4050: 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 > 0} then {..
4060: 20 20 20 20 20 65 76 61 6c 20 6c 61 70 70 65 6e eval lappen
4070: 64 20 76 61 72 4e 61 6d 65 73 20 24 3a 3a 74 65 d varNames $::te
4080: 73 74 5f 6f 76 65 72 72 69 64 65 73 0d 0a 20 20 st_overrides..
4090: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 }.... #
40a0: 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 .. # NOTE:
40b0: 49 66 20 72 65 71 75 65 73 74 65 64 20 62 79 20 If requested by
40c0: 6f 75 72 20 63 61 6c 6c 65 72 2c 20 61 64 64 20 our caller, add
40d0: 61 6e 79 20 61 64 64 69 74 69 6f 6e 61 6c 20 76 any additional v
40e0: 61 72 69 61 62 6c 65 0d 0a 20 20 20 20 20 20 23 ariable.. #
40f0: 20 20 20 20 20 20 20 6e 61 6d 65 73 20 74 6f 20 names to
4100: 63 6f 70 79 20 6e 6f 77 2e 0d 0a 20 20 20 20 20 copy now...
4110: 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 6c #.. if {[l
4120: 6c 65 6e 67 74 68 20 24 65 78 74 72 61 56 61 72 length $extraVar
4130: 4e 61 6d 65 73 5d 20 3e 20 30 7d 20 74 68 65 6e Names] > 0} then
4140: 20 7b 0d 0a 20 20 20 20 20 20 20 20 65 76 61 6c {.. eval
4150: 20 6c 61 70 70 65 6e 64 20 76 61 72 4e 61 6d 65 lappend varName
4160: 73 20 24 65 78 74 72 61 56 61 72 4e 61 6d 65 73 s $extraVarNames
4170: 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 .. }....
4180: 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f #.. # NO
4190: 54 45 3a 20 42 75 69 6c 64 20 74 68 65 20 73 63 TE: Build the sc
41a0: 72 69 70 74 20 66 72 61 67 6d 65 6e 74 20 74 6f ript fragment to
41b0: 20 62 65 20 72 65 74 75 72 6e 65 64 20 62 79 20 be returned by
41c0: 70 72 6f 63 65 73 73 69 6e 67 20 65 61 63 68 0d processing each.
41d0: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 76 . # v
41e0: 61 72 69 61 62 6c 65 20 6e 61 6d 65 20 61 6e 64 ariable name and
41f0: 20 61 64 64 69 6e 67 20 74 68 65 20 6e 65 63 65 adding the nece
4200: 63 65 73 73 61 72 79 20 73 63 72 69 70 74 20 66 cessary script f
4210: 72 61 67 6d 65 6e 74 73 20 66 6f 72 0d 0a 20 20 ragments for..
4220: 20 20 20 20 23 20 20 20 20 20 20 20 65 61 63 68 # each
4230: 20 6f 6e 65 2e 0d 0a 20 20 20 20 20 20 23 0d 0a one... #..
4240: 20 20 20 20 20 20 73 65 74 20 72 65 73 75 6c 74 set result
4250: 20 22 22 0d 0a 0d 0a 20 20 20 20 20 20 66 6f 72 "".... for
4260: 65 61 63 68 20 76 61 72 4e 61 6d 65 20 24 76 61 each varName $va
4270: 72 4e 61 6d 65 73 20 7b 0d 0a 20 20 20 20 20 20 rNames {..
4280: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e #.. # N
4290: 4f 54 45 3a 20 42 75 69 6c 64 20 74 68 65 20 71 OTE: Build the q
42a0: 75 61 6c 69 66 69 65 64 20 67 6c 6f 62 61 6c 20 ualified global
42b0: 76 61 72 69 61 62 6c 65 20 6e 61 6d 65 2e 0d 0a variable name...
42c0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #..
42d0: 20 20 20 73 65 74 20 66 75 6c 6c 56 61 72 4e 61 set fullVarNa
42e0: 6d 65 20 5b 61 70 70 65 6e 64 41 72 67 73 20 3a me [appendArgs :
42f0: 3a 20 24 76 61 72 4e 61 6d 65 5d 0d 0a 0d 0a 20 : $varName]....
4300: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
4310: 20 20 23 20 4e 4f 54 45 3a 20 44 6f 65 73 20 74 # NOTE: Does t
4320: 68 65 20 76 61 72 69 61 62 6c 65 20 65 78 69 73 he variable exis
4330: 74 20 69 6e 20 74 68 69 73 20 69 6e 74 65 72 70 t in this interp
4340: 72 65 74 65 72 20 63 6f 6e 74 65 78 74 3f 0d 0a reter context?..
4350: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #..
4360: 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 if {[info exi
4370: 73 74 73 20 24 66 75 6c 6c 56 61 72 4e 61 6d 65 sts $fullVarName
4380: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 ]} then {..
4390: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #..
43a0: 20 20 23 20 4e 4f 54 45 3a 20 41 70 70 65 6e 64 # NOTE: Append
43b0: 20 61 20 73 63 72 69 70 74 20 66 72 61 67 6d 65 a script fragme
43c0: 6e 74 20 74 6f 20 74 68 65 20 72 65 73 75 6c 74 nt to the result
43d0: 20 74 68 61 74 20 77 69 6c 6c 20 63 6f 72 72 65 that will corre
43e0: 63 74 6c 79 0d 0a 20 20 20 20 20 20 20 20 20 20 ctly..
43f0: 23 20 20 20 20 20 20 20 63 6f 70 79 20 61 6e 79 # copy any
4400: 20 63 6f 6e 74 61 69 6e 65 64 20 76 61 6c 75 65 contained value
4410: 20 74 6f 20 61 6e 6f 74 68 65 72 20 69 6e 74 65 to another inte
4420: 72 70 72 65 74 65 72 20 63 6f 6e 74 65 78 74 2e rpreter context.
4430: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 .. #..
4440: 20 20 20 20 20 20 20 20 20 61 70 70 65 6e 64 20 append
4450: 72 65 73 75 6c 74 20 5c 6e 20 22 73 65 74 20 22 result \n "set "
4460: 20 24 66 75 6c 6c 56 61 72 4e 61 6d 65 20 22 20 $fullVarName "
4470: 5c 7b 22 20 5b 73 65 74 20 24 66 75 6c 6c 56 61 \{" [set $fullVa
4480: 72 4e 61 6d 65 5d 20 5c 7d 0d 0a 20 20 20 20 20 rName] \}..
4490: 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d }.. }...
44a0: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 . #..
44b0: 23 20 4e 4f 54 45 3a 20 49 66 20 74 68 65 20 72 # NOTE: If the r
44c0: 65 73 75 6c 74 20 63 6f 6e 74 61 69 6e 73 20 6f esult contains o
44d0: 6e 65 20 6f 72 20 6d 6f 72 65 20 73 63 72 69 70 ne or more scrip
44e0: 74 20 66 72 61 67 6d 65 6e 74 73 2c 20 61 70 70 t fragments, app
44f0: 65 6e 64 20 61 0d 0a 20 20 20 20 20 20 23 20 20 end a.. #
4500: 20 20 20 20 20 6e 65 77 6c 69 6e 65 2e 0d 0a 20 newline...
4510: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 #.. if
4520: 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 {[string length
4530: 20 24 72 65 73 75 6c 74 5d 20 3e 20 30 7d 20 74 $result] > 0} t
4540: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 61 hen {.. a
4550: 70 70 65 6e 64 20 72 65 73 75 6c 74 20 5c 6e 0d ppend result \n.
4560: 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 . }....
4570: 20 20 72 65 74 75 72 6e 20 24 72 65 73 75 6c 74 return $result
4580: 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 .. }.....
4590: 70 72 6f 63 20 67 65 74 41 70 70 44 6f 6d 61 69 proc getAppDomai
45a0: 6e 50 72 65 61 6d 62 6c 65 20 7b 20 7b 70 72 65 nPreamble { {pre
45b0: 66 69 78 20 22 22 7d 20 7b 73 75 66 66 69 78 20 fix ""} {suffix
45c0: 22 22 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 20 23 ""} } {.. #
45d0: 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 .. # NOTE:
45e0: 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 72 This procedure r
45f0: 65 74 75 72 6e 73 20 61 20 74 65 73 74 20 73 65 eturns a test se
4600: 74 75 70 20 73 63 72 69 70 74 20 66 72 61 67 6d tup script fragm
4610: 65 6e 74 20 73 75 69 74 61 62 6c 65 20 66 6f 72 ent suitable for
4620: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. #
4630: 65 76 61 6c 75 61 74 69 6f 6e 20 62 79 20 61 6e evaluation by an
4640: 20 69 6e 74 65 72 70 72 65 74 65 72 20 63 72 65 interpreter cre
4650: 61 74 65 64 20 69 6e 20 61 6e 20 69 73 6f 6c 61 ated in an isola
4660: 74 65 64 20 61 70 70 6c 69 63 61 74 69 6f 6e 0d ted application.
4670: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 64 . # d
4680: 6f 6d 61 69 6e 2e 20 20 54 68 65 20 73 63 72 69 omain. The scri
4690: 70 74 20 66 72 61 67 6d 65 6e 74 20 62 65 69 6e pt fragment bein
46a0: 67 20 72 65 74 75 72 6e 65 64 20 77 69 6c 6c 20 g returned will
46b0: 62 65 20 73 75 72 72 6f 75 6e 64 65 64 20 62 79 be surrounded by
46c0: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. #
46d0: 74 68 65 20 70 72 65 66 69 78 20 61 6e 64 20 73 the prefix and s
46e0: 75 66 66 69 78 20 22 73 63 72 69 70 74 20 66 72 uffix "script fr
46f0: 61 67 6d 65 6e 74 73 22 20 73 70 65 63 69 66 69 agments" specifi
4700: 65 64 20 62 79 20 6f 75 72 20 63 61 6c 6c 65 72 ed by our caller
4710: 2c 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 ,.. #
4720: 20 69 66 20 61 6e 79 2e 20 20 54 68 65 20 65 6e if any. The en
4730: 74 69 72 65 20 73 63 72 69 70 74 20 62 65 69 6e tire script bein
4740: 67 20 72 65 74 75 72 6e 65 64 20 77 69 6c 6c 20 g returned will
4750: 62 65 20 73 75 62 73 74 69 74 75 74 65 64 20 76 be substituted v
4760: 69 61 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 ia.. #
4770: 20 20 5b 73 75 62 73 74 5d 2c 20 69 6e 20 74 68 [subst], in th
4780: 65 20 63 6f 6e 74 65 78 74 20 6f 66 20 6f 75 72 e context of our
4790: 20 63 61 6c 6c 65 72 2c 20 62 65 66 6f 72 65 20 caller, before
47a0: 62 65 69 6e 67 20 72 65 74 75 72 6e 65 64 2e 0d being returned..
47b0: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 54 . # T
47c0: 68 69 73 20 73 74 65 70 20 69 73 20 6e 65 63 65 his step is nece
47d0: 73 73 61 72 79 20 73 6f 20 74 68 61 74 20 73 6f ssary so that so
47e0: 6d 65 20 6c 69 6d 69 74 65 64 20 63 6f 6e 74 65 me limited conte
47f0: 78 74 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2c 0d xt information,.
4800: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 70 . # p
4810: 72 69 6d 61 72 69 6c 79 20 72 65 6c 61 74 65 64 rimarily related
4820: 20 74 6f 20 74 68 65 20 74 65 73 74 69 6e 67 20 to the testing
4830: 64 69 72 65 63 74 6f 72 69 65 73 2c 20 63 61 6e directories, can
4840: 20 62 65 20 74 72 61 6e 73 66 65 72 72 65 64 0d be transferred.
4850: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 74 . # t
4860: 6f 20 74 68 65 20 69 6e 74 65 72 70 72 65 74 65 o the interprete
4870: 72 20 69 6e 20 74 68 65 20 69 73 6f 6c 61 74 65 r in the isolate
4880: 64 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 64 6f d application do
4890: 6d 61 69 6e 2c 20 6d 61 6b 69 6e 67 20 69 74 0d main, making it.
48a0: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 61 . # a
48b0: 62 6c 65 20 74 6f 20 73 75 63 63 65 73 73 66 75 ble to successfu
48c0: 6c 6c 79 20 72 75 6e 20 74 65 73 74 73 20 74 68 lly run tests th
48d0: 61 74 20 72 65 71 75 69 72 65 20 6f 6e 65 20 6f at require one o
48e0: 72 20 6d 6f 72 65 20 6f 66 20 74 68 65 0d 0a 20 r more of the..
48f0: 20 20 20 20 20 23 20 20 20 20 20 20 20 66 69 6c # fil
4900: 65 73 20 69 6e 20 6f 6e 65 20 6f 66 20 74 68 65 es in one of the
4910: 20 74 65 73 74 69 6e 67 20 64 69 72 65 63 74 6f testing directo
4920: 72 69 65 73 2e 20 20 43 61 6c 6c 65 72 73 20 73 ries. Callers s
4930: 68 6f 75 6c 64 20 6b 65 65 70 20 69 6e 0d 0a 20 hould keep in..
4940: 20 20 20 20 20 23 20 20 20 20 20 20 20 6d 69 6e # min
4950: 64 20 74 68 61 74 20 74 68 65 20 74 65 73 74 20 d that the test
4960: 73 63 72 69 70 74 20 66 72 61 67 6d 65 6e 74 20 script fragment
4970: 62 65 69 6e 67 20 72 65 74 75 72 6e 65 64 20 63 being returned c
4980: 61 6e 6e 6f 74 20 72 65 6c 79 20 6f 6e 0d 0a 20 annot rely on..
4990: 20 20 20 20 20 23 20 20 20 20 20 20 20 61 6e 79 # any
49a0: 20 73 63 72 69 70 74 20 6c 69 62 72 61 72 79 20 script library
49b0: 70 72 6f 63 65 64 75 72 65 73 20 74 68 61 74 20 procedures that
49c0: 61 72 65 20 6e 6f 74 20 70 72 6f 76 69 64 65 64 are not provided
49d0: 20 62 79 20 74 68 65 20 45 61 67 6c 65 0d 0a 20 by the Eagle..
49e0: 20 20 20 20 20 23 20 20 20 20 20 20 20 6c 69 62 # lib
49f0: 72 61 72 79 20 70 61 63 6b 61 67 65 20 28 69 2e rary package (i.
4a00: 65 2e 20 22 69 6e 69 74 2e 65 61 67 6c 65 22 29 e. "init.eagle")
4a10: 2c 20 69 6e 63 6c 75 64 69 6e 67 20 74 68 6f 73 , including thos
4a20: 65 20 70 72 6f 76 69 64 65 64 20 62 79 0d 0a 20 e provided by..
4a30: 20 20 20 20 20 23 20 20 20 20 20 20 20 74 68 65 # the
4a40: 20 45 61 67 6c 65 20 74 65 73 74 20 70 61 63 6b Eagle test pack
4a50: 61 67 65 2c 20 75 6e 6c 65 73 73 20 74 68 65 20 age, unless the
4a60: 66 69 6c 65 20 63 6f 6e 74 61 69 6e 69 6e 67 20 file containing
4a70: 74 68 65 6d 20 69 73 20 6c 6f 61 64 65 64 0d 0a them is loaded..
4a80: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 6d 61 # ma
4a90: 6e 75 61 6c 6c 79 20 76 69 61 20 73 6f 6d 65 20 nually via some
4aa0: 6f 74 68 65 72 20 6d 65 63 68 61 6e 69 73 6d 20 other mechanism
4ab0: 28 65 2e 67 2e 20 62 79 20 69 6e 63 6c 75 64 69 (e.g. by includi
4ac0: 6e 67 20 61 70 70 72 6f 70 72 69 61 74 65 0d 0a ng appropriate..
4ad0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 5b 70 # [p
4ae0: 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 5d 20 ackage require]
4af0: 6f 72 20 5b 73 6f 75 72 63 65 5d 20 63 6f 6d 6d or [source] comm
4b00: 61 6e 64 73 20 69 6e 20 74 68 65 20 70 72 65 66 ands in the pref
4b10: 69 78 20 6f 72 20 73 75 66 66 69 78 0d 0a 20 20 ix or suffix..
4b20: 20 20 20 20 23 20 20 20 20 20 20 20 73 63 72 69 # scri
4b30: 70 74 20 66 72 61 67 6d 65 6e 74 73 29 2e 20 20 pt fragments).
4b40: 41 6c 73 6f 2c 20 61 6c 6c 20 76 61 72 69 61 62 Also, all variab
4b50: 6c 65 20 72 65 66 65 72 65 6e 63 65 73 20 61 6e le references an
4b60: 64 20 61 6c 6c 20 6e 65 73 74 65 64 0d 0a 20 20 d all nested..
4b70: 20 20 20 20 23 20 20 20 20 20 20 20 63 6f 6d 6d # comm
4b80: 61 6e 64 73 20 28 69 2e 65 2e 20 74 68 6f 73 65 ands (i.e. those
4b90: 20 69 6e 20 73 71 75 61 72 65 20 62 72 61 63 6b in square brack
4ba0: 65 74 73 29 20 63 6f 6e 74 61 69 6e 65 64 20 69 ets) contained i
4bb0: 6e 20 74 68 65 20 66 69 6e 61 6c 0d 0a 20 20 20 n the final..
4bc0: 20 20 20 23 20 20 20 20 20 20 20 73 63 72 69 70 # scrip
4bd0: 74 20 66 72 61 67 6d 65 6e 74 20 77 69 6c 6c 20 t fragment will
4be0: 65 6e 64 20 75 70 20 62 65 69 6e 67 20 65 76 61 end up being eva
4bf0: 6c 75 61 74 65 64 20 69 6e 20 74 68 65 20 63 6f luated in the co
4c00: 6e 74 65 78 74 20 6f 66 20 74 68 65 0d 0a 20 20 ntext of the..
4c10: 20 20 20 20 23 20 20 20 20 20 20 20 63 61 6c 6c # call
4c20: 69 6e 67 20 69 6e 74 65 72 70 72 65 74 65 72 20 ing interpreter
4c30: 61 6e 64 20 6e 6f 74 20 74 68 65 20 74 61 72 67 and not the targ
4c40: 65 74 20 69 6e 74 65 72 70 72 65 74 65 72 20 63 et interpreter c
4c50: 72 65 61 74 65 64 20 69 6e 20 74 68 65 0d 0a 20 reated in the..
4c60: 20 20 20 20 20 23 20 20 20 20 20 20 20 69 73 6f # iso
4c70: 6c 61 74 65 64 20 61 70 70 6c 69 63 61 74 69 6f lated applicatio
4c80: 6e 20 64 6f 6d 61 69 6e 20 75 6e 6c 65 73 73 20 n domain unless
4c90: 74 68 65 20 64 6f 6c 6c 61 72 20 73 69 67 6e 73 the dollar signs
4ca0: 20 61 6e 64 2f 6f 72 20 73 71 75 61 72 65 0d 0a and/or square..
4cb0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 62 72 # br
4cc0: 61 63 6b 65 74 73 20 61 72 65 20 73 70 65 63 69 ackets are speci
4cd0: 61 6c 6c 79 20 71 75 6f 74 65 64 20 77 69 74 68 ally quoted with
4ce0: 20 62 61 63 6b 73 6c 61 73 68 65 73 2e 0d 0a 20 backslashes...
4cf0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 72 65 #.. re
4d00: 74 75 72 6e 20 5b 75 70 6c 65 76 65 6c 20 31 20 turn [uplevel 1
4d10: 5b 6c 69 73 74 20 73 75 62 73 74 20 5b 61 70 70 [list subst [app
4d20: 65 6e 64 41 72 67 73 20 24 70 72 65 66 69 78 20 endArgs $prefix
4d30: 7b 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b {.. if {[
4d40: 68 61 73 52 75 6e 74 69 6d 65 4f 70 74 69 6f 6e hasRuntimeOption
4d50: 20 6e 61 74 69 76 65 5d 7d 20 74 68 65 6e 20 7b native]} then {
4d60: 0d 0a 20 20 20 20 20 20 20 20 20 20 6f 62 6a 65 .. obje
4d70: 63 74 20 69 6e 76 6f 6b 65 20 49 6e 74 65 72 70 ct invoke Interp
4d80: 72 65 74 65 72 2e 47 65 74 41 63 74 69 76 65 20 reter.GetActive
4d90: 41 64 64 52 75 6e 74 69 6d 65 4f 70 74 69 6f 6e AddRuntimeOption
4da0: 20 6e 61 74 69 76 65 0d 0a 20 20 20 20 20 20 20 native..
4db0: 20 7d 0d 0a 20 20 20 20 20 20 7d 20 5b 67 65 74 }.. } [get
4dc0: 54 65 73 74 4f 76 65 72 72 69 64 65 73 50 72 65 TestOverridesPre
4dd0: 61 6d 62 6c 65 20 5b 6c 69 73 74 20 70 61 74 68 amble [list path
4de0: 20 74 65 73 74 5f 63 68 61 6e 6e 65 6c 5d 5d 20 test_channel]]
4df0: 24 73 75 66 66 69 78 5d 5d 5d 0d 0a 20 20 20 20 $suffix]]]..
4e00: 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 74 }..... proc t
4e10: 72 79 43 6f 70 79 42 75 69 6c 64 46 69 6c 65 20 ryCopyBuildFile
4e20: 7b 20 66 69 6c 65 4e 61 6d 65 20 7d 20 7b 0d 0a { fileName } {..
4e30: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 #.. #
4e40: 20 4e 4f 54 45 3a 20 49 66 20 77 65 20 63 61 6e NOTE: If we can
4e50: 6e 6f 74 20 63 6f 70 79 20 74 68 65 20 61 73 73 not copy the ass
4e60: 65 6d 62 6c 79 20 74 68 65 6e 20 69 74 20 69 73 embly then it is
4e70: 20 70 72 6f 62 61 62 6c 79 20 61 6c 72 65 61 64 probably alread
4e80: 79 20 6c 6f 61 64 65 64 2e 0d 0a 20 20 20 20 20 y loaded...
4e90: 20 23 0d 0a 20 20 20 20 20 20 73 65 74 20 73 6f #.. set so
4ea0: 75 72 63 65 46 69 6c 65 4e 61 6d 65 20 5b 67 65 urceFileName [ge
4eb0: 74 42 75 69 6c 64 46 69 6c 65 4e 61 6d 65 20 24 tBuildFileName $
4ec0: 66 69 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a 20 20 20 fileName]....
4ed0: 20 20 20 69 66 20 7b 21 5b 66 69 6c 65 20 65 78 if {![file ex
4ee0: 69 73 74 73 20 24 73 6f 75 72 63 65 46 69 6c 65 ists $sourceFile
4ef0: 4e 61 6d 65 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 Name]} then {..
4f00: 20 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a tputs $::
4f10: 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 test_channel [ap
4f20: 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 pendArgs \..
4f30: 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 73 6b "---- sk
4f40: 69 70 70 65 64 20 63 6f 70 79 69 6e 67 20 62 75 ipped copying bu
4f50: 69 6c 64 20 66 69 6c 65 20 5c 22 22 20 24 73 6f ild file \"" $so
4f60: 75 72 63 65 46 69 6c 65 4e 61 6d 65 20 5c 0d 0a urceFileName \..
4f70: 20 20 20 20 20 20 20 20 20 20 20 20 22 5c 22 2c "\",
4f80: 20 69 74 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 it does not exi
4f90: 73 74 5c 6e 22 5d 0d 0a 0d 0a 20 20 20 20 20 20 st\n"]....
4fa0: 20 20 72 65 74 75 72 6e 0d 0a 20 20 20 20 20 20 return..
4fb0: 7d 0d 0a 0d 0a 20 20 20 20 20 20 73 65 74 20 74 }.... set t
4fc0: 61 72 67 65 74 46 69 6c 65 4e 61 6d 65 20 5b 67 argetFileName [g
4fd0: 65 74 42 69 6e 61 72 79 46 69 6c 65 4e 61 6d 65 etBinaryFileName
4fe0: 20 24 66 69 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a 20 $fileName]....
4ff0: 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 if {[catch
5000: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 {..
5010: 20 66 69 6c 65 20 63 6f 70 79 20 2d 66 6f 72 63 file copy -forc
5020: 65 20 24 73 6f 75 72 63 65 46 69 6c 65 4e 61 6d e $sourceFileNam
5030: 65 20 24 74 61 72 67 65 74 46 69 6c 65 4e 61 6d e $targetFileNam
5040: 65 7d 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b e}] == 0} then {
5050: 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20 .. tputs
5060: 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 $::test_channel
5070: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 [appendArgs \..
5080: 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d "----
5090: 20 63 6f 70 69 65 64 20 62 75 69 6c 64 20 66 69 copied build fi
50a0: 6c 65 20 66 72 6f 6d 20 5c 22 22 20 24 73 6f 75 le from \"" $sou
50b0: 72 63 65 46 69 6c 65 4e 61 6d 65 20 22 5c 22 20 rceFileName "\"
50c0: 74 6f 20 5c 22 22 20 5c 0d 0a 20 20 20 20 20 20 to \"" \..
50d0: 20 20 20 20 20 20 24 74 61 72 67 65 74 46 69 6c $targetFil
50e0: 65 4e 61 6d 65 20 5c 22 5c 6e 5d 0d 0a 20 20 20 eName \"\n]..
50f0: 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 } else {..
5100: 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 tputs $::te
5110: 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 st_channel [appe
5120: 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 ndArgs \..
5130: 20 20 20 20 20 20 22 2d 2d 2d 2d 20 66 61 69 6c "---- fail
5140: 65 64 20 74 6f 20 63 6f 70 79 20 62 75 69 6c 64 ed to copy build
5150: 20 66 69 6c 65 20 66 72 6f 6d 20 5c 22 22 20 24 file from \"" $
5160: 73 6f 75 72 63 65 46 69 6c 65 4e 61 6d 65 20 5c sourceFileName \
5170: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 5c .. "\
5180: 22 20 74 6f 20 5c 22 22 20 24 74 61 72 67 65 74 " to \"" $target
5190: 46 69 6c 65 4e 61 6d 65 20 5c 22 5c 6e 5d 0d 0a FileName \"\n]..
51a0: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a }.. }..
51b0: 0c 0d 0a 20 20 20 20 70 72 6f 63 20 74 72 79 44 ... proc tryD
51c0: 65 6c 65 74 65 42 69 6e 61 72 79 46 69 6c 65 20 eleteBinaryFile
51d0: 7b 20 66 69 6c 65 4e 61 6d 65 20 7d 20 7b 0d 0a { fileName } {..
51e0: 20 20 20 20 20 20 73 65 74 20 66 69 6c 65 4e 61 set fileNa
51f0: 6d 65 20 5b 67 65 74 42 69 6e 61 72 79 46 69 6c me [getBinaryFil
5200: 65 4e 61 6d 65 20 24 66 69 6c 65 4e 61 6d 65 5d eName $fileName]
5210: 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 21 5b .... if {![
5220: 66 69 6c 65 20 65 78 69 73 74 73 20 24 66 69 6c file exists $fil
5230: 65 4e 61 6d 65 5d 7d 20 74 68 65 6e 20 7b 0d 0a eName]} then {..
5240: 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 3a tputs $:
5250: 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 :test_channel [a
5260: 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 ppendArgs \..
5270: 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 73 "---- s
5280: 6b 69 70 70 65 64 20 64 65 6c 65 74 69 6e 67 20 kipped deleting
5290: 62 69 6e 61 72 79 20 66 69 6c 65 20 5c 22 22 20 binary file \""
52a0: 24 66 69 6c 65 4e 61 6d 65 20 5c 0d 0a 20 20 20 $fileName \..
52b0: 20 20 20 20 20 20 20 20 20 22 5c 22 2c 20 69 74 "\", it
52c0: 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 5c does not exist\
52d0: 6e 22 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 72 n"].... r
52e0: 65 74 75 72 6e 0d 0a 20 20 20 20 20 20 7d 0d 0a eturn.. }..
52f0: 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 .. if {[cat
5300: 63 68 20 7b 66 69 6c 65 20 64 65 6c 65 74 65 20 ch {file delete
5310: 24 66 69 6c 65 4e 61 6d 65 7d 5d 20 3d 3d 20 30 $fileName}] == 0
5320: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {..
5330: 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f tputs $::test_
5340: 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 channel [appendA
5350: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 rgs \..
5360: 20 20 20 22 2d 2d 2d 2d 20 64 65 6c 65 74 65 64 "---- deleted
5370: 20 62 69 6e 61 72 79 20 66 69 6c 65 20 5c 22 22 binary file \""
5380: 20 24 66 69 6c 65 4e 61 6d 65 20 5c 22 5c 6e 5d $fileName \"\n]
5390: 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b .. } else {
53a0: 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20 .. tputs
53b0: 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 $::test_channel
53c0: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 [appendArgs \..
53d0: 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d "----
53e0: 20 66 61 69 6c 65 64 20 74 6f 20 64 65 6c 65 74 failed to delet
53f0: 65 20 62 69 6e 61 72 79 20 66 69 6c 65 20 5c 22 e binary file \"
5400: 22 20 24 66 69 6c 65 4e 61 6d 65 20 5c 22 5c 6e " $fileName \"\n
5410: 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 ].. }..
5420: 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 74 }..... proc t
5430: 72 79 43 6f 70 79 41 73 73 65 6d 62 6c 79 20 7b ryCopyAssembly {
5440: 20 66 69 6c 65 4e 61 6d 65 20 7b 70 64 62 20 74 fileName {pdb t
5450: 72 75 65 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 20 rue} } {..
5460: 74 72 79 43 6f 70 79 42 75 69 6c 64 46 69 6c 65 tryCopyBuildFile
5470: 20 24 66 69 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 20 $fileName....
5480: 20 20 20 20 69 66 20 7b 24 70 64 62 7d 20 74 68 if {$pdb} th
5490: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 74 72 en {.. tr
54a0: 79 43 6f 70 79 42 75 69 6c 64 46 69 6c 65 20 5b yCopyBuildFile [
54b0: 61 70 70 65 6e 64 41 72 67 73 20 5b 66 69 6c 65 appendArgs [file
54c0: 20 72 6f 6f 74 6e 61 6d 65 20 24 66 69 6c 65 4e rootname $fileN
54d0: 61 6d 65 5d 20 2e 70 64 62 5d 0d 0a 20 20 20 20 ame] .pdb]..
54e0: 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 }.. }.....
54f0: 20 20 20 70 72 6f 63 20 74 72 79 44 65 6c 65 74 proc tryDelet
5500: 65 41 73 73 65 6d 62 6c 79 20 7b 20 66 69 6c 65 eAssembly { file
5510: 4e 61 6d 65 20 7b 70 64 62 20 74 72 75 65 7d 20 Name {pdb true}
5520: 7d 20 7b 0d 0a 20 20 20 20 20 20 74 72 79 44 65 } {.. tryDe
5530: 6c 65 74 65 42 69 6e 61 72 79 46 69 6c 65 20 24 leteBinaryFile $
5540: 66 69 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 20 20 20 fileName....
5550: 20 20 69 66 20 7b 24 70 64 62 7d 20 74 68 65 6e if {$pdb} then
5560: 20 7b 0d 0a 20 20 20 20 20 20 20 20 74 72 79 44 {.. tryD
5570: 65 6c 65 74 65 42 69 6e 61 72 79 46 69 6c 65 20 eleteBinaryFile
5580: 5b 61 70 70 65 6e 64 41 72 67 73 20 5b 66 69 6c [appendArgs [fil
5590: 65 20 72 6f 6f 74 6e 61 6d 65 20 24 66 69 6c 65 e rootname $file
55a0: 4e 61 6d 65 5d 20 2e 70 64 62 5d 0d 0a 20 20 20 Name] .pdb]..
55b0: 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a }.. }.....
55c0: 20 20 20 20 70 72 6f 63 20 74 72 79 4c 6f 61 64 proc tryLoad
55d0: 41 73 73 65 6d 62 6c 79 20 7b 20 66 69 6c 65 4e Assembly { fileN
55e0: 61 6d 65 20 7d 20 7b 0d 0a 20 20 20 20 20 20 73 ame } {.. s
55f0: 65 74 20 66 69 6c 65 4e 61 6d 65 20 5b 67 65 74 et fileName [get
5600: 42 69 6e 61 72 79 46 69 6c 65 4e 61 6d 65 20 24 BinaryFileName $
5610: 66 69 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a 20 20 20 fileName]....
5620: 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 73 if {[catch {s
5630: 65 74 20 61 73 73 65 6d 62 6c 79 20 5c 0d 0a 20 et assembly \..
5640: 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 6f 62 [ob
5650: 6a 65 63 74 20 6c 6f 61 64 20 2d 6c 6f 61 64 74 ject load -loadt
5660: 79 70 65 20 46 69 6c 65 20 2d 61 6c 69 61 73 20 ype File -alias
5670: 24 66 69 6c 65 4e 61 6d 65 5d 7d 5d 20 3d 3d 20 $fileName]}] ==
5680: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 0} then {..
5690: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 #.. #
56a0: 4e 4f 54 45 3a 20 4e 6f 77 2c 20 61 64 64 20 74 NOTE: Now, add t
56b0: 68 65 20 6e 65 63 65 73 73 61 72 79 20 74 65 73 he necessary tes
56c0: 74 20 63 6f 6e 73 74 72 61 69 6e 74 2e 0d 0a 20 t constraint...
56d0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
56e0: 20 20 61 64 64 43 6f 6e 73 74 72 61 69 6e 74 20 addConstraint
56f0: 5b 66 69 6c 65 20 72 6f 6f 74 6e 61 6d 65 20 5b [file rootname [
5700: 66 69 6c 65 20 74 61 69 6c 20 24 66 69 6c 65 4e file tail $fileN
5710: 61 6d 65 5d 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 ame]]....
5720: 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f #.. # NO
5730: 54 45 3a 20 47 72 61 62 20 74 68 65 20 69 6d 61 TE: Grab the ima
5740: 67 65 20 72 75 6e 74 69 6d 65 20 76 65 72 73 69 ge runtime versi
5750: 6f 6e 20 66 72 6f 6d 20 74 68 65 20 61 73 73 65 on from the asse
5760: 6d 62 6c 79 20 62 65 63 61 75 73 65 0d 0a 20 20 mbly because..
5770: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 73 65 # se
5780: 76 65 72 61 6c 20 74 65 73 74 73 20 72 65 6c 79 veral tests rely
5790: 20 6f 6e 20 69 74 20 68 61 76 69 6e 67 20 61 20 on it having a
57a0: 63 65 72 74 61 69 6e 20 76 61 6c 75 65 2e 0d 0a certain value...
57b0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #..
57c0: 20 20 20 61 64 64 43 6f 6e 73 74 72 61 69 6e 74 addConstraint
57d0: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5b 66 69 [appendArgs [fi
57e0: 6c 65 20 74 61 69 6c 20 24 66 69 6c 65 4e 61 6d le tail $fileNam
57f0: 65 5d 20 5f 20 5c 0d 0a 20 20 20 20 20 20 20 20 e] _ \..
5800: 20 20 20 20 5b 24 61 73 73 65 6d 62 6c 79 20 49 [$assembly I
5810: 6d 61 67 65 52 75 6e 74 69 6d 65 56 65 72 73 69 mageRuntimeVersi
5820: 6f 6e 5d 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 on]]....
5830: 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT
5840: 45 3a 20 52 65 74 75 72 6e 20 74 68 65 20 66 75 E: Return the fu
5850: 6c 6c 20 70 61 74 68 20 6f 66 20 74 68 65 20 6c ll path of the l
5860: 6f 61 64 65 64 20 66 69 6c 65 2e 0d 0a 20 20 20 oaded file...
5870: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #..
5880: 72 65 74 75 72 6e 20 24 66 69 6c 65 4e 61 6d 65 return $fileName
5890: 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 .. }....
58a0: 20 20 20 72 65 74 75 72 6e 20 22 22 0d 0a 20 20 return ""..
58b0: 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 }..... proc
58c0: 20 69 73 53 51 4c 69 74 65 52 65 61 64 79 20 7b isSQLiteReady {
58d0: 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 } {.. #..
58e0: 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 69 73 # NOTE: This
58f0: 20 70 72 6f 63 65 64 75 72 65 20 6d 75 73 74 20 procedure must
5900: 72 65 74 75 72 6e 20 6e 6f 6e 2d 7a 65 72 6f 20 return non-zero
5910: 6f 6e 6c 79 20 69 66 20 74 68 65 20 53 51 4c 69 only if the SQLi
5920: 74 65 20 6e 61 74 69 76 65 0d 0a 20 20 20 20 20 te native..
5930: 20 23 20 20 20 20 20 20 20 6c 69 62 72 61 72 79 # library
5940: 20 61 6e 64 20 74 68 65 20 53 79 73 74 65 6d 2e and the System.
5950: 44 61 74 61 2e 53 51 4c 69 74 65 20 6d 61 6e 61 Data.SQLite mana
5960: 67 65 64 20 61 73 73 65 6d 62 6c 79 20 61 72 65 ged assembly are
5970: 20 6c 6f 61 64 65 64 0d 0a 20 20 20 20 20 20 23 loaded.. #
5980: 20 20 20 20 20 20 20 61 6e 64 20 72 65 61 64 79 and ready
5990: 20 66 6f 72 20 75 73 65 20 62 79 20 74 68 65 20 for use by the
59a0: 74 65 73 74 20 73 75 69 74 65 2e 20 20 43 75 72 test suite. Cur
59b0: 72 65 6e 74 6c 79 2c 20 74 68 69 73 20 70 72 6f rently, this pro
59c0: 63 65 64 75 72 65 0d 0a 20 20 20 20 20 20 23 20 cedure.. #
59d0: 20 20 20 20 20 20 73 68 6f 75 6c 64 20 62 65 20 should be
59e0: 63 61 6c 6c 65 64 20 6f 6e 6c 79 20 61 66 74 65 called only afte
59f0: 72 20 74 68 65 20 5b 74 72 79 4c 6f 61 64 41 73 r the [tryLoadAs
5a00: 73 65 6d 62 6c 79 5d 20 70 72 6f 63 65 64 75 72 sembly] procedur
5a10: 65 20 68 61 73 0d 0a 20 20 20 20 20 20 23 20 20 e has.. #
5a20: 20 20 20 20 20 62 65 65 6e 20 63 61 6c 6c 65 64 been called
5a30: 20 74 6f 20 70 72 6f 62 65 20 66 6f 72 20 74 68 to probe for th
5a40: 65 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 e System.Data.SQ
5a50: 4c 69 74 65 20 6d 61 6e 61 67 65 64 20 61 73 73 Lite managed ass
5a60: 65 6d 62 6c 79 0d 0a 20 20 20 20 20 20 23 20 20 embly.. #
5a70: 20 20 20 20 20 61 6e 64 20 74 68 65 20 5b 63 68 and the [ch
5a80: 65 63 6b 46 6f 72 53 51 4c 69 74 65 5d 20 70 72 eckForSQLite] pr
5a90: 6f 63 65 64 75 72 65 20 68 61 73 20 62 65 65 6e ocedure has been
5aa0: 20 63 61 6c 6c 65 64 20 74 6f 20 70 72 6f 62 65 called to probe
5ab0: 20 66 6f 72 0d 0a 20 20 20 20 20 20 23 20 20 20 for.. #
5ac0: 20 20 20 20 74 68 65 20 53 51 4c 69 74 65 20 6e the SQLite n
5ad0: 61 74 69 76 65 20 6c 69 62 72 61 72 79 3b 20 6f ative library; o
5ae0: 74 68 65 72 77 69 73 65 2c 20 74 68 69 73 20 70 therwise, this p
5af0: 72 6f 63 65 64 75 72 65 20 77 69 6c 6c 20 73 69 rocedure will si
5b00: 6d 70 6c 79 0d 0a 20 20 20 20 20 20 23 20 20 20 mply.. #
5b10: 20 20 20 20 61 6c 77 61 79 73 20 72 65 74 75 72 always retur
5b20: 6e 20 7a 65 72 6f 2e 0d 0a 20 20 20 20 20 20 23 n zero... #
5b30: 0d 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 5b .. return [
5b40: 65 78 70 72 20 7b 5b 68 61 76 65 43 6f 6e 73 74 expr {[haveConst
5b50: 72 61 69 6e 74 20 53 79 73 74 65 6d 2e 44 61 74 raint System.Dat
5b60: 61 2e 53 51 4c 69 74 65 5d 20 26 26 20 5c 0d 0a a.SQLite] && \..
5b70: 20 20 20 20 20 20 20 20 20 20 5b 68 61 76 65 43 [haveC
5b80: 6f 6e 73 74 72 61 69 6e 74 20 53 51 4c 69 74 65 onstraint SQLite
5b90: 5d 7d 5d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 ]}].. }.....
5ba0: 20 20 20 70 72 6f 63 20 63 68 65 63 6b 46 6f 72 proc checkFor
5bb0: 53 51 4c 69 74 65 20 7b 20 63 68 61 6e 6e 65 6c SQLite { channel
5bc0: 20 7d 20 7b 0d 0a 20 20 20 20 20 20 74 70 75 74 } {.. tput
5bd0: 73 20 24 63 68 61 6e 6e 65 6c 20 22 2d 2d 2d 2d s $channel "----
5be0: 20 63 68 65 63 6b 69 6e 67 20 66 6f 72 20 63 6f checking for co
5bf0: 72 65 20 53 51 4c 69 74 65 20 6c 69 62 72 61 72 re SQLite librar
5c00: 79 2e 2e 2e 20 22 0d 0a 0d 0a 20 20 20 20 20 20 y... "....
5c10: 69 66 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 20 if {[catch {..
5c20: 20 20 20 20 20 20 20 20 20 20 20 20 6f 62 6a 65 obje
5c30: 63 74 20 69 6e 76 6f 6b 65 20 2d 66 6c 61 67 73 ct invoke -flags
5c40: 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 53 79 73 74 +NonPublic Syst
5c50: 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 53 em.Data.SQLite.S
5c60: 51 4c 69 74 65 33 20 5c 0d 0a 20 20 20 20 20 20 QLite3 \..
5c70: 20 20 20 20 20 20 20 20 53 51 4c 69 74 65 56 65 SQLiteVe
5c80: 72 73 69 6f 6e 7d 20 76 65 72 73 69 6f 6e 5d 20 rsion} version]
5c90: 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 == 0} then {..
5ca0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
5cb0: 20 23 20 4e 4f 54 45 3a 20 41 74 74 65 6d 70 74 # NOTE: Attempt
5cc0: 20 74 6f 20 71 75 65 72 79 20 74 68 65 20 46 6f to query the Fo
5cd0: 73 73 69 6c 20 73 6f 75 72 63 65 20 69 64 65 6e ssil source iden
5ce0: 74 69 66 69 65 72 20 66 6f 72 20 74 68 65 20 53 tifier for the S
5cf0: 51 4c 69 74 65 0d 0a 20 20 20 20 20 20 20 20 23 QLite.. #
5d00: 20 20 20 20 20 20 20 63 6f 72 65 20 6c 69 62 72 core libr
5d10: 61 72 79 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d ary... #.
5d20: 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b 63 61 . if {[ca
5d30: 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 tch {..
5d40: 20 20 20 20 20 20 20 6f 62 6a 65 63 74 20 69 6e object in
5d50: 76 6f 6b 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e voke -flags +Non
5d60: 50 75 62 6c 69 63 20 53 79 73 74 65 6d 2e 44 61 Public System.Da
5d70: 74 61 2e 53 51 4c 69 74 65 2e 53 51 4c 69 74 65 ta.SQLite.SQLite
5d80: 33 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 3 \..
5d90: 20 20 20 20 20 53 51 4c 69 74 65 53 6f 75 72 63 SQLiteSourc
5da0: 65 49 64 7d 20 73 6f 75 72 63 65 49 64 5d 7d 20 eId} sourceId]}
5db0: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 then {..
5dc0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23 #.. #
5dd0: 20 4e 4f 54 45 3a 20 57 65 20 66 61 69 6c 65 64 NOTE: We failed
5de0: 20 74 6f 20 71 75 65 72 79 20 74 68 65 20 46 6f to query the Fo
5df0: 73 73 69 6c 20 73 6f 75 72 63 65 20 69 64 65 6e ssil source iden
5e00: 74 69 66 69 65 72 2e 0d 0a 20 20 20 20 20 20 20 tifier...
5e10: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 #..
5e20: 73 65 74 20 73 6f 75 72 63 65 49 64 20 75 6e 6b set sourceId unk
5e30: 6e 6f 77 6e 0d 0a 20 20 20 20 20 20 20 20 7d 0d nown.. }.
5e40: 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 ... #..
5e50: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 59 65 # NOTE: Ye
5e60: 73 2c 20 74 68 65 20 53 51 4c 69 74 65 20 63 6f s, the SQLite co
5e70: 72 65 20 6c 69 62 72 61 72 79 20 61 70 70 65 61 re library appea
5e80: 72 73 20 74 6f 20 62 65 20 61 76 61 69 6c 61 62 rs to be availab
5e90: 6c 65 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a le... #..
5ea0: 20 20 20 20 20 20 20 20 61 64 64 43 6f 6e 73 74 addConst
5eb0: 72 61 69 6e 74 20 53 51 4c 69 74 65 0d 0a 0d 0a raint SQLite....
5ec0: 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63 tputs $c
5ed0: 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 hannel [appendAr
5ee0: 67 73 20 22 79 65 73 20 28 22 20 24 76 65 72 73 gs "yes (" $vers
5ef0: 69 6f 6e 20 22 20 22 20 24 73 6f 75 72 63 65 49 ion " " $sourceI
5f00: 64 20 22 29 5c 6e 22 5d 0d 0a 20 20 20 20 20 20 d ")\n"]..
5f10: 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 } else {..
5f20: 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c tputs $channel
5f30: 20 6e 6f 5c 6e 0d 0a 20 20 20 20 20 20 7d 0d 0a no\n.. }..
5f40: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 }..... pr
5f50: 6f 63 20 63 68 65 63 6b 46 6f 72 53 51 4c 69 74 oc checkForSQLit
5f60: 65 44 65 66 69 6e 65 43 6f 6e 73 74 61 6e 74 20 eDefineConstant
5f70: 7b 20 63 68 61 6e 6e 65 6c 20 6e 61 6d 65 20 7d { channel name }
5f80: 20 7b 0d 0a 20 20 20 20 20 20 74 70 75 74 73 20 {.. tputs
5f90: 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 $channel [append
5fa0: 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 Args \..
5fb0: 20 20 22 2d 2d 2d 2d 20 63 68 65 63 6b 69 6e 67 "---- checking
5fc0: 20 66 6f 72 20 53 79 73 74 65 6d 2e 44 61 74 61 for System.Data
5fd0: 2e 53 51 4c 69 74 65 20 64 65 66 69 6e 65 20 63 .SQLite define c
5fe0: 6f 6e 73 74 61 6e 74 20 5c 22 22 20 24 6e 61 6d onstant \"" $nam
5ff0: 65 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 22 e \.. "
6000: 5c 22 2e 2e 2e 20 22 5d 0d 0a 0d 0a 20 20 20 20 \"... "]....
6010: 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 0d 0a if {[catch {..
6020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 62 ob
6030: 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d 66 6c 61 ject invoke -fla
6040: 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 53 79 gs +NonPublic Sy
6050: 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 stem.Data.SQLite
6060: 2e 53 51 4c 69 74 65 33 20 5c 0d 0a 20 20 20 20 .SQLite3 \..
6070: 20 20 20 20 20 20 20 20 20 20 44 65 66 69 6e 65 Define
6080: 43 6f 6e 73 74 61 6e 74 73 7d 20 64 65 66 69 6e Constants} defin
6090: 65 43 6f 6e 73 74 61 6e 74 73 5d 20 3d 3d 20 30 eConstants] == 0
60a0: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {..
60b0: 20 20 69 66 20 7b 5b 6c 73 65 61 72 63 68 20 2d if {[lsearch -
60c0: 65 78 61 63 74 20 2d 6e 6f 63 61 73 65 20 24 64 exact -nocase $d
60d0: 65 66 69 6e 65 43 6f 6e 73 74 61 6e 74 73 20 24 efineConstants $
60e0: 6e 61 6d 65 5d 20 21 3d 20 2d 31 7d 20 74 68 65 name] != -1} the
60f0: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23 n {.. #
6100: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f .. # NO
6110: 54 45 3a 20 59 65 73 2c 20 74 68 69 73 20 64 65 TE: Yes, this de
6120: 66 69 6e 65 20 63 6f 6e 73 74 61 6e 74 20 77 61 fine constant wa
6130: 73 20 65 6e 61 62 6c 65 64 20 77 68 65 6e 20 74 s enabled when t
6140: 68 65 20 6d 61 6e 61 67 65 64 0d 0a 20 20 20 20 he managed..
6150: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 61 73 # as
6160: 73 65 6d 62 6c 79 20 77 61 73 20 63 6f 6d 70 69 sembly was compi
6170: 6c 65 64 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 led...
6180: 23 0d 0a 20 20 20 20 20 20 20 20 20 20 61 64 64 #.. add
6190: 43 6f 6e 73 74 72 61 69 6e 74 20 5b 61 70 70 65 Constraint [appe
61a0: 6e 64 41 72 67 73 20 64 65 66 69 6e 65 43 6f 6e ndArgs defineCon
61b0: 73 74 61 6e 74 2e 53 79 73 74 65 6d 2e 44 61 74 stant.System.Dat
61c0: 61 2e 53 51 4c 69 74 65 2e 20 24 6e 61 6d 65 5d a.SQLite. $name]
61d0: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70 .... tp
61e0: 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 79 65 73 uts $channel yes
61f0: 5c 6e 0d 0a 20 20 20 20 20 20 20 20 7d 20 65 6c \n.. } el
6200: 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 se {..
6210: 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 6e tputs $channel n
6220: 6f 5c 6e 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a o\n.. }..
6230: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a } else {..
6240: 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63 tputs $c
6250: 68 61 6e 6e 65 6c 20 65 72 72 6f 72 5c 6e 0d 0a hannel error\n..
6260: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a }.. }..
6270: 0c 0d 0a 20 20 20 20 70 72 6f 63 20 67 65 74 44 ... proc getD
6280: 61 74 65 54 69 6d 65 46 6f 72 6d 61 74 20 7b 7d ateTimeFormat {}
6290: 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 {.. #..
62a0: 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 69 73 20 # NOTE: This
62b0: 70 72 6f 63 65 64 75 72 65 20 73 69 6d 70 6c 79 procedure simply
62c0: 20 72 65 74 75 72 6e 73 20 74 68 65 20 22 64 65 returns the "de
62d0: 66 61 75 6c 74 22 20 44 61 74 65 54 69 6d 65 20 fault" DateTime
62e0: 66 6f 72 6d 61 74 20 75 73 65 64 0d 0a 20 20 20 format used..
62f0: 20 20 20 23 20 20 20 20 20 20 20 62 79 20 74 68 # by th
6300: 65 20 74 65 73 74 20 73 75 69 74 65 2e 0d 0a 20 e test suite...
6310: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 #.. if
6320: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a {[info exists :
6330: 3a 64 61 74 65 74 69 6d 65 5f 66 6f 72 6d 61 74 :datetime_format
6340: 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 ] && \..
6350: 20 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 [string length
6360: 20 24 3a 3a 64 61 74 65 74 69 6d 65 5f 66 6f 72 $::datetime_for
6370: 6d 61 74 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b mat] > 0} then {
6380: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #..
6390: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 52 65 74 # NOTE: Ret
63a0: 75 72 6e 20 74 68 65 20 6d 61 6e 75 61 6c 6c 79 urn the manually
63b0: 20 6f 76 65 72 72 69 64 64 65 6e 20 76 61 6c 75 overridden valu
63c0: 65 20 66 6f 72 20 74 68 65 20 44 61 74 65 54 69 e for the DateTi
63d0: 6d 65 20 66 6f 72 6d 61 74 2e 0d 0a 20 20 20 20 me format...
63e0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 72 #.. r
63f0: 65 74 75 72 6e 20 24 3a 3a 64 61 74 65 74 69 6d eturn $::datetim
6400: 65 5f 66 6f 72 6d 61 74 0d 0a 20 20 20 20 20 20 e_format..
6410: 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 } else {..
6420: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e #.. # N
6430: 4f 54 45 3a 20 52 65 74 75 72 6e 20 61 6e 20 49 OTE: Return an I
6440: 53 4f 38 36 30 31 20 44 61 74 65 54 69 6d 65 20 SO8601 DateTime
6450: 66 6f 72 6d 61 74 20 63 6f 6d 70 61 74 69 62 6c format compatibl
6460: 65 20 77 69 74 68 20 53 51 4c 69 74 65 2c 0d 0a e with SQLite,..
6470: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 #
6480: 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 System.Data.SQLi
6490: 74 65 2c 20 61 6e 64 20 73 75 69 74 61 62 6c 65 te, and suitable
64a0: 20 66 6f 72 20 72 6f 75 6e 64 2d 74 72 69 70 70 for round-tripp
64b0: 69 6e 67 20 77 69 74 68 20 74 68 65 0d 0a 20 20 ing with the..
64c0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 44 61 # Da
64d0: 74 65 54 69 6d 65 20 63 6c 61 73 73 20 6f 66 20 teTime class of
64e0: 74 68 65 20 66 72 61 6d 65 77 6f 72 6b 2e 20 20 the framework.
64f0: 49 66 20 74 68 69 73 20 76 61 6c 75 65 20 69 73 If this value is
6500: 20 63 68 61 6e 67 65 64 2c 0d 0a 20 20 20 20 20 changed,..
6510: 20 20 20 23 20 20 20 20 20 20 20 76 61 72 69 6f # vario
6520: 75 73 20 74 65 73 74 73 20 6d 61 79 20 66 61 69 us tests may fai
6530: 6c 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 l... #..
6540: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 22 79 return "y
6550: 79 79 79 2d 4d 4d 2d 64 64 20 48 48 3a 6d 6d 3a yyy-MM-dd HH:mm:
6560: 73 73 2e 46 46 46 46 46 46 46 4b 22 0d 0a 20 20 ss.FFFFFFFK"..
6570: 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d }.. }....
6580: 0a 20 20 20 20 70 72 6f 63 20 65 6e 75 6d 65 72 . proc enumer
6590: 61 62 6c 65 54 6f 4c 69 73 74 20 7b 20 65 6e 75 ableToList { enu
65a0: 6d 65 72 61 62 6c 65 20 7d 20 7b 0d 0a 20 20 20 merable } {..
65b0: 20 20 20 73 65 74 20 72 65 73 75 6c 74 20 5b 6c set result [l
65c0: 69 73 74 5d 0d 0a 0d 0a 20 20 20 20 20 20 69 66 ist].... if
65d0: 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 {[string length
65e0: 20 24 65 6e 75 6d 65 72 61 62 6c 65 5d 20 3d 3d $enumerable] ==
65f0: 20 30 20 7c 7c 20 24 65 6e 75 6d 65 72 61 62 6c 0 || $enumerabl
6600: 65 20 65 71 20 22 6e 75 6c 6c 22 7d 20 74 68 65 e eq "null"} the
6610: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 72 65 74 n {.. ret
6620: 75 72 6e 20 24 72 65 73 75 6c 74 0d 0a 20 20 20 urn $result..
6630: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 6f 62 }.... ob
6640: 6a 65 63 74 20 66 6f 72 65 61 63 68 20 2d 61 6c ject foreach -al
6650: 69 61 73 20 69 74 65 6d 20 24 65 6e 75 6d 65 72 ias item $enumer
6660: 61 62 6c 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 able {..
6670: 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 if {[string leng
6680: 74 68 20 24 69 74 65 6d 5d 20 3e 20 30 7d 20 74 th $item] > 0} t
6690: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 hen {..
66a0: 20 6c 61 70 70 65 6e 64 20 72 65 73 75 6c 74 20 lappend result
66b0: 5b 24 69 74 65 6d 20 54 6f 53 74 72 69 6e 67 5d [$item ToString]
66c0: 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 .. }..
66d0: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 72 65 }.... re
66e0: 74 75 72 6e 20 24 72 65 73 75 6c 74 0d 0a 20 20 turn $result..
66f0: 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 }..... proc
6700: 20 63 61 74 63 68 41 6e 64 52 65 74 75 72 6e 20 catchAndReturn
6710: 7b 20 73 63 72 69 70 74 20 7b 73 74 61 63 6b 54 { script {stackT
6720: 72 61 63 65 20 66 61 6c 73 65 7d 20 7b 73 74 72 race false} {str
6730: 69 63 74 20 74 72 75 65 7d 20 7d 20 7b 0d 0a 20 ict true} } {..
6740: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 #.. #
6750: 4e 4f 54 45 3a 20 45 76 61 6c 75 61 74 65 20 74 NOTE: Evaluate t
6760: 68 65 20 73 63 72 69 70 74 20 70 72 6f 76 69 64 he script provid
6770: 65 64 20 62 79 20 6f 75 72 20 63 61 6c 6c 65 72 ed by our caller
6780: 20 69 6e 20 74 68 65 69 72 20 63 6f 6e 74 65 78 in their contex
6790: 74 2c 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 t,.. #
67a0: 20 20 63 61 70 74 75 72 69 6e 67 20 62 6f 74 68 capturing both
67b0: 20 74 68 65 20 72 65 73 75 6c 74 20 61 6e 64 20 the result and
67c0: 74 68 65 20 72 65 74 75 72 6e 20 63 6f 64 65 2e the return code.
67d0: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #..
67e0: 20 73 65 74 20 63 6f 64 65 20 5b 63 61 74 63 68 set code [catch
67f0: 20 7b 75 70 6c 65 76 65 6c 20 31 20 24 73 63 72 {uplevel 1 $scr
6800: 69 70 74 7d 20 72 65 73 75 6c 74 5d 0d 0a 0d 0a ipt} result]....
6810: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 #.. #
6820: 20 4e 4f 54 45 3a 20 44 69 64 20 74 68 65 20 73 NOTE: Did the s
6830: 63 72 69 70 74 20 70 72 6f 76 69 64 65 64 20 62 cript provided b
6840: 79 20 6f 75 72 20 63 61 6c 6c 65 72 20 4e 4f 54 y our caller NOT
6850: 20 72 61 69 73 65 20 61 6e 20 65 72 72 6f 72 3f raise an error?
6860: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #..
6870: 20 69 66 20 7b 24 73 74 72 69 63 74 20 26 26 20 if {$strict &&
6880: 24 63 6f 64 65 20 3d 3d 20 30 20 7c 7c 20 21 24 $code == 0 || !$
6890: 73 74 72 69 63 74 20 26 26 20 24 63 6f 64 65 20 strict && $code
68a0: 21 3d 20 31 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 != 1} then {..
68b0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
68c0: 20 23 20 4e 4f 54 45 3a 20 53 75 63 63 65 73 73 # NOTE: Success
68d0: 2e 20 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 . Return a list
68e0: 20 77 69 74 68 20 74 68 65 20 72 65 74 75 72 6e with the return
68f0: 20 63 6f 64 65 20 61 6e 64 20 74 68 65 20 72 65 code and the re
6900: 73 75 6c 74 2e 0d 0a 20 20 20 20 20 20 20 20 23 sult... #
6910: 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e .. return
6920: 20 5b 6c 69 73 74 20 24 63 6f 64 65 20 24 72 65 [list $code $re
6930: 73 75 6c 74 5d 0d 0a 20 20 20 20 20 20 7d 20 65 sult].. } e
6940: 6c 73 65 69 66 20 7b 24 73 74 61 63 6b 54 72 61 lseif {$stackTra
6950: 63 65 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 ce} then {..
6960: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 #.. #
6970: 20 4e 4f 54 45 3a 20 46 61 69 6c 75 72 65 2e 20 NOTE: Failure.
6980: 20 4f 75 72 20 63 61 6c 6c 65 72 20 77 61 6e 74 Our caller want
6990: 73 20 61 20 66 75 6c 6c 20 73 74 61 63 6b 20 74 s a full stack t
69a0: 72 61 63 65 20 28 69 66 20 61 70 70 6c 69 63 61 race (if applica
69b0: 62 6c 65 29 2c 0d 0a 20 20 20 20 20 20 20 20 23 ble),.. #
69c0: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 61 20 return a
69d0: 6c 69 73 74 20 77 69 74 68 20 74 68 65 20 72 65 list with the re
69e0: 74 75 72 6e 20 63 6f 64 65 20 61 6e 64 20 74 68 turn code and th
69f0: 65 20 72 65 73 75 6c 74 20 76 65 72 62 61 74 69 e result verbati
6a00: 6d 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 m... #..
6a10: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 5b 6c return [l
6a20: 69 73 74 20 24 63 6f 64 65 20 24 72 65 73 75 6c ist $code $resul
6a30: 74 5d 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 t].. } else
6a40: 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 {.. #..
6a50: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 46 # NOTE: F
6a60: 61 69 6c 75 72 65 2e 20 20 4f 75 72 20 63 61 6c ailure. Our cal
6a70: 6c 65 72 20 64 6f 65 73 20 6e 6f 74 20 77 61 6e ler does not wan
6a80: 74 20 61 20 66 75 6c 6c 20 73 74 61 63 6b 20 74 t a full stack t
6a90: 72 61 63 65 20 28 69 66 0d 0a 20 20 20 20 20 20 race (if..
6aa0: 20 20 23 20 20 20 20 20 20 20 61 70 70 6c 69 63 # applic
6ab0: 61 62 6c 65 29 2c 20 72 65 74 75 72 6e 20 61 20 able), return a
6ac0: 6c 69 73 74 20 77 69 74 68 20 74 68 65 20 72 65 list with the re
6ad0: 74 75 72 6e 20 63 6f 64 65 2c 20 74 68 65 20 65 turn code, the e
6ae0: 72 72 6f 72 0d 0a 20 20 20 20 20 20 20 20 23 20 rror.. #
6af0: 20 20 20 20 20 20 63 6f 64 65 20 66 6f 72 20 74 code for t
6b00: 68 65 20 69 6e 74 65 72 70 72 65 74 65 72 2c 20 he interpreter,
6b10: 61 6e 64 20 74 68 65 20 65 72 72 6f 72 20 6d 65 and the error me
6b20: 73 73 61 67 65 20 75 70 20 74 6f 20 74 68 65 0d ssage up to the.
6b30: 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 . #
6b40: 20 70 6f 69 6e 74 20 77 68 65 72 65 20 74 68 65 point where the
6b50: 20 73 74 61 63 6b 20 74 72 61 63 65 20 73 68 6f stack trace sho
6b60: 75 6c 64 20 73 74 61 72 74 2e 0d 0a 20 20 20 20 uld start...
6b70: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 73 #.. s
6b80: 65 74 20 69 6e 64 65 78 20 5b 73 74 72 69 6e 67 et index [string
6b90: 20 66 69 72 73 74 20 22 20 20 20 61 74 20 22 20 first " at "
6ba0: 24 72 65 73 75 6c 74 5d 3b 20 23 20 48 41 43 4b $result]; # HACK
6bb0: 3a 20 52 65 6c 69 61 62 6c 65 3f 0d 0a 0d 0a 20 : Reliable?....
6bc0: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 5b 6c return [l
6bd0: 69 73 74 20 24 63 6f 64 65 20 24 3a 3a 65 72 72 ist $code $::err
6be0: 6f 72 43 6f 64 65 20 5b 65 78 70 72 20 7b 24 69 orCode [expr {$i
6bf0: 6e 64 65 78 20 21 3d 20 2d 31 20 3f 20 5c 0d 0a ndex != -1 ? \..
6c00: 20 20 20 20 20 20 20 20 20 20 20 20 5b 73 74 72 [str
6c10: 69 6e 67 20 74 72 69 6d 20 5b 73 74 72 69 6e 67 ing trim [string
6c20: 20 72 61 6e 67 65 20 24 72 65 73 75 6c 74 20 30 range $result 0
6c30: 20 24 69 6e 64 65 78 5d 5d 20 3a 20 24 72 65 73 $index]] : $res
6c40: 75 6c 74 7d 5d 5d 0d 0a 20 20 20 20 20 20 7d 0d ult}]].. }.
6c50: 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 . }..... p
6c60: 72 6f 63 20 63 6f 6d 70 69 6c 65 43 53 68 61 72 roc compileCShar
6c70: 70 57 69 74 68 20 7b 0d 0a 20 20 20 20 20 20 20 pWith {..
6c80: 20 20 20 20 20 74 65 78 74 20 6d 65 6d 6f 72 79 text memory
6c90: 20 73 79 6d 62 6f 6c 73 20 73 74 72 69 63 74 20 symbols strict
6ca0: 72 65 73 75 6c 74 73 56 61 72 4e 61 6d 65 20 65 resultsVarName e
6cb0: 72 72 6f 72 73 56 61 72 4e 61 6d 65 20 66 69 6c rrorsVarName fil
6cc0: 65 4e 61 6d 65 73 0d 0a 20 20 20 20 20 20 20 20 eNames..
6cd0: 20 20 20 20 61 72 67 73 20 7d 20 7b 0d 0a 20 20 args } {..
6ce0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e #.. # N
6cf0: 4f 54 45 3a 20 53 69 6e 63 65 20 77 65 20 61 72 OTE: Since we ar
6d00: 65 20 67 6f 69 6e 67 20 74 6f 20 75 73 65 20 74 e going to use t
6d10: 68 69 73 20 6d 65 74 68 6f 64 20 6e 61 6d 65 20 his method name
6d20: 61 20 6c 6f 74 2c 20 61 73 73 69 67 6e 20 69 74 a lot, assign it
6d30: 20 74 6f 20 61 0d 0a 20 20 20 20 20 20 23 20 20 to a.. #
6d40: 20 20 20 20 20 76 61 72 69 61 62 6c 65 20 66 69 variable fi
6d50: 72 73 74 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 rst... #..
6d60: 20 20 20 20 20 73 65 74 20 61 64 64 20 52 65 66 set add Ref
6d70: 65 72 65 6e 63 65 64 41 73 73 65 6d 62 6c 69 65 erencedAssemblie
6d80: 73 2e 41 64 64 0d 0a 0d 0a 20 20 20 20 20 20 23 s.Add.... #
6d90: 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 .. # NOTE:
6da0: 43 72 65 61 74 65 20 74 68 65 20 62 61 73 65 20 Create the base
6db0: 63 6f 6d 6d 61 6e 64 20 74 6f 20 65 76 61 6c 75 command to evalu
6dc0: 61 74 65 20 61 6e 64 20 61 64 64 20 74 68 65 20 ate and add the
6dd0: 70 72 6f 70 65 72 74 79 20 73 65 74 74 69 6e 67 property setting
6de0: 73 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 s.. #
6df0: 20 74 68 61 74 20 61 72 65 20 61 6c 6d 6f 73 74 that are almost
6e00: 20 61 6c 77 61 79 73 20 6e 65 65 64 65 64 20 62 always needed b
6e10: 79 20 6f 75 72 20 75 6e 69 74 20 74 65 73 74 73 y our unit tests
6e20: 20 28 69 2e 65 2e 20 74 68 65 20 53 79 73 74 65 (i.e. the Syste
6e30: 6d 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 m.. #
6e40: 20 61 6e 64 20 53 79 73 74 65 6d 2e 44 61 74 61 and System.Data
6e50: 20 61 73 73 65 6d 62 6c 79 20 72 65 66 65 72 65 assembly refere
6e60: 6e 63 65 73 29 2e 0d 0a 20 20 20 20 20 20 23 0d nces)... #.
6e70: 0a 20 20 20 20 20 20 73 65 74 20 63 6f 6d 6d 61 . set comma
6e80: 6e 64 20 5b 6c 69 73 74 20 63 6f 6d 70 69 6c 65 nd [list compile
6e90: 43 53 68 61 72 70 20 24 74 65 78 74 20 24 6d 65 CSharp $text $me
6ea0: 6d 6f 72 79 20 24 73 79 6d 62 6f 6c 73 20 24 73 mory $symbols $s
6eb0: 74 72 69 63 74 20 72 65 73 75 6c 74 73 20 5c 0d trict results \.
6ec0: 0a 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 . error
6ed0: 73 20 24 61 64 64 20 53 79 73 74 65 6d 2e 64 6c s $add System.dl
6ee0: 6c 20 24 61 64 64 20 53 79 73 74 65 6d 2e 44 61 l $add System.Da
6ef0: 74 61 2e 64 6c 6c 20 24 61 64 64 20 53 79 73 74 ta.dll $add Syst
6f00: 65 6d 2e 58 6d 6c 2e 64 6c 6c 5d 0d 0a 0d 0a 20 em.Xml.dll]....
6f10: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 #.. #
6f20: 4e 4f 54 45 3a 20 41 64 64 20 61 6c 6c 20 74 68 NOTE: Add all th
6f30: 65 20 70 72 6f 76 69 64 65 64 20 66 69 6c 65 20 e provided file
6f40: 6e 61 6d 65 73 20 61 73 20 61 73 73 65 6d 62 6c names as assembl
6f50: 79 20 72 65 66 65 72 65 6e 63 65 73 2e 0d 0a 20 y references...
6f60: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 66 6f #.. fo
6f70: 72 65 61 63 68 20 66 69 6c 65 4e 61 6d 65 20 24 reach fileName $
6f80: 66 69 6c 65 4e 61 6d 65 73 20 7b 0d 0a 20 20 20 fileNames {..
6f90: 20 20 20 20 20 6c 61 70 70 65 6e 64 20 63 6f 6d lappend com
6fa0: 6d 61 6e 64 20 24 61 64 64 20 5b 67 65 74 42 69 mand $add [getBi
6fb0: 6e 61 72 79 46 69 6c 65 4e 61 6d 65 20 24 66 69 naryFileName $fi
6fc0: 6c 65 4e 61 6d 65 5d 0d 0a 20 20 20 20 20 20 7d leName].. }
6fd0: 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 .... #..
6fe0: 20 20 20 23 20 4e 4f 54 45 3a 20 41 64 64 20 74 # NOTE: Add t
6ff0: 68 65 20 65 78 74 72 61 20 61 72 67 75 6d 65 6e he extra argumen
7000: 74 73 2c 20 69 66 20 61 6e 79 2c 20 74 6f 20 74 ts, if any, to t
7010: 68 65 20 63 6f 6d 6d 61 6e 64 20 74 6f 20 65 76 he command to ev
7020: 61 6c 75 61 74 65 2e 0d 0a 20 20 20 20 20 20 23 aluate... #
7030: 0d 0a 20 20 20 20 20 20 65 76 61 6c 20 6c 61 70 .. eval lap
7040: 70 65 6e 64 20 63 6f 6d 6d 61 6e 64 20 24 61 72 pend command $ar
7050: 67 73 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 gs.... #..
7060: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 41 6c 69 # NOTE: Ali
7070: 61 73 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 20 as the compiler
7080: 6c 6f 63 61 6c 20 72 65 73 75 6c 74 73 20 61 6e local results an
7090: 64 20 65 72 72 6f 72 73 20 76 61 72 69 61 62 6c d errors variabl
70a0: 65 73 20 74 6f 20 74 68 65 0d 0a 20 20 20 20 20 es to the..
70b0: 20 23 20 20 20 20 20 20 20 76 61 72 69 61 62 6c # variabl
70c0: 65 20 6e 61 6d 65 73 20 70 72 6f 76 69 64 65 64 e names provided
70d0: 20 62 79 20 6f 75 72 20 63 61 6c 6c 65 72 2e 0d by our caller..
70e0: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 . #..
70f0: 75 70 76 61 72 20 31 20 24 72 65 73 75 6c 74 73 upvar 1 $results
7100: 56 61 72 4e 61 6d 65 20 72 65 73 75 6c 74 73 0d VarName results.
7110: 0a 20 20 20 20 20 20 75 70 76 61 72 20 31 20 24 . upvar 1 $
7120: 65 72 72 6f 72 73 56 61 72 4e 61 6d 65 20 65 72 errorsVarName er
7130: 72 6f 72 73 0d 0a 0d 0a 20 20 20 20 20 20 23 0d rors.... #.
7140: 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 45 . # NOTE: E
7150: 76 61 6c 75 61 74 65 20 74 68 65 20 63 6f 6e 73 valuate the cons
7160: 74 72 75 63 74 65 64 20 5b 63 6f 6d 70 69 6c 65 tructed [compile
7170: 43 53 68 61 72 70 5d 20 63 6f 6d 6d 61 6e 64 20 CSharp] command
7180: 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 0d 0a and return the..
7190: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 72 65 # re
71a0: 73 75 6c 74 2e 0d 0a 20 20 20 20 20 20 23 0d 0a sult... #..
71b0: 20 20 20 20 20 20 65 76 61 6c 20 24 63 6f 6d 6d eval $comm
71c0: 61 6e 64 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 and.. }.....
71d0: 20 20 20 70 72 6f 63 20 69 73 4d 65 6d 6f 72 79 proc isMemory
71e0: 44 62 20 7b 20 66 69 6c 65 4e 61 6d 65 20 7d 20 Db { fileName }
71f0: 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 {.. #..
7200: 20 20 23 20 4e 4f 54 45 3a 20 49 73 20 74 68 65 # NOTE: Is the
7210: 20 73 70 65 63 69 66 69 65 64 20 64 61 74 61 62 specified datab
7220: 61 73 65 20 66 69 6c 65 20 6e 61 6d 65 20 72 65 ase file name re
7230: 61 6c 6c 79 20 61 6e 20 69 6e 2d 6d 65 6d 6f 72 ally an in-memor
7240: 79 20 64 61 74 61 62 61 73 65 3f 0d 0a 20 20 20 y database?..
7250: 20 20 20 23 0d 0a 20 20 20 20 20 20 72 65 74 75 #.. retu
7260: 72 6e 20 5b 65 78 70 72 20 7b 24 66 69 6c 65 4e rn [expr {$fileN
7270: 61 6d 65 20 65 71 20 22 3a 6d 65 6d 6f 72 79 3a ame eq ":memory:
7280: 22 20 7c 7c 20 5c 0d 0a 20 20 20 20 20 20 20 20 " || \..
7290: 20 20 5b 73 74 72 69 6e 67 20 72 61 6e 67 65 20 [string range
72a0: 24 66 69 6c 65 4e 61 6d 65 20 30 20 31 32 5d 20 $fileName 0 12]
72b0: 65 71 20 22 66 69 6c 65 3a 3a 6d 65 6d 6f 72 79 eq "file::memory
72c0: 3a 22 7d 5d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a :"}].. }.....
72d0: 20 20 20 20 70 72 6f 63 20 65 78 65 63 75 74 65 proc execute
72e0: 53 71 6c 20 7b 20 73 71 6c 20 7b 65 78 65 63 75 Sql { sql {execu
72f0: 74 65 20 6e 6f 6e 65 7d 20 7b 66 69 6c 65 4e 61 te none} {fileNa
7300: 6d 65 20 22 22 7d 20 7d 20 7b 0d 0a 20 20 20 20 me ""} } {..
7310: 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 if {[string le
7320: 6e 67 74 68 20 24 66 69 6c 65 4e 61 6d 65 5d 20 ngth $fileName]
7330: 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 73 65 74 20 == 0} then {set
7340: 66 69 6c 65 4e 61 6d 65 20 3a 6d 65 6d 6f 72 79 fileName :memory
7350: 3a 7d 0d 0a 20 20 20 20 20 20 73 65 74 75 70 44 :}.. setupD
7360: 62 20 24 66 69 6c 65 4e 61 6d 65 20 22 22 20 22 b $fileName "" "
7370: 22 20 22 22 20 22 22 20 22 22 20 66 61 6c 73 65 " "" "" "" false
7380: 20 66 61 6c 73 65 20 66 61 6c 73 65 20 66 61 6c false false fal
7390: 73 65 20 6d 65 6d 44 62 0d 0a 0d 0a 20 20 20 20 se memDb....
73a0: 20 20 74 72 79 20 7b 0d 0a 20 20 20 20 20 20 20 try {..
73b0: 20 72 65 74 75 72 6e 20 5b 73 71 6c 20 65 78 65 return [sql exe
73c0: 63 75 74 65 20 2d 65 78 65 63 75 74 65 20 24 65 cute -execute $e
73d0: 78 65 63 75 74 65 20 24 6d 65 6d 44 62 20 24 73 xecute $memDb $s
73e0: 71 6c 5d 0d 0a 20 20 20 20 20 20 7d 20 66 69 6e ql].. } fin
73f0: 61 6c 6c 79 20 7b 0d 0a 20 20 20 20 20 20 20 20 ally {..
7400: 63 6c 65 61 6e 75 70 44 62 20 24 66 69 6c 65 4e cleanupDb $fileN
7410: 61 6d 65 20 6d 65 6d 44 62 20 66 61 6c 73 65 20 ame memDb false
7420: 66 61 6c 73 65 0d 0a 20 20 20 20 20 20 7d 0d 0a false.. }..
7430: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 }..... pr
7440: 6f 63 20 73 65 74 75 70 44 62 20 7b 0d 0a 20 20 oc setupDb {..
7450: 20 20 20 20 20 20 20 20 20 20 66 69 6c 65 4e 61 fileNa
7460: 6d 65 20 7b 6d 6f 64 65 20 22 22 7d 20 7b 64 61 me {mode ""} {da
7470: 74 65 54 69 6d 65 46 6f 72 6d 61 74 20 22 22 7d teTimeFormat ""}
7480: 20 7b 64 61 74 65 54 69 6d 65 4b 69 6e 64 20 22 {dateTimeKind "
7490: 22 7d 20 7b 66 6c 61 67 73 20 22 22 7d 0d 0a 20 "} {flags ""}..
74a0: 20 20 20 20 20 20 20 20 20 20 20 7b 65 78 74 72 {extr
74b0: 61 20 22 22 7d 20 7b 71 75 61 6c 69 66 79 20 74 a ""} {qualify t
74c0: 72 75 65 7d 20 7b 64 65 6c 65 74 65 20 74 72 75 rue} {delete tru
74d0: 65 7d 20 7b 75 72 69 20 66 61 6c 73 65 7d 0d 0a e} {uri false}..
74e0: 20 20 20 20 20 20 20 20 20 20 20 20 7b 74 65 6d {tem
74f0: 70 6f 72 61 72 79 20 74 72 75 65 7d 20 7b 76 61 porary true} {va
7500: 72 4e 61 6d 65 20 64 62 7d 20 7d 20 7b 0d 0a 20 rName db} } {..
7510: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 #.. #
7520: 4e 4f 54 45 3a 20 46 69 72 73 74 2c 20 73 65 65 NOTE: First, see
7530: 20 69 66 20 6f 75 72 20 63 61 6c 6c 65 72 20 68 if our caller h
7540: 61 73 20 72 65 71 75 65 73 74 65 64 20 61 6e 20 as requested an
7550: 69 6e 2d 6d 65 6d 6f 72 79 20 64 61 74 61 62 61 in-memory databa
7560: 73 65 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 se... #..
7570: 20 20 20 20 73 65 74 20 69 73 4d 65 6d 6f 72 79 set isMemory
7580: 20 5b 69 73 4d 65 6d 6f 72 79 44 62 20 24 66 69 [isMemoryDb $fi
7590: 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a 20 20 20 20 20 leName]....
75a0: 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 #.. # NOTE
75b0: 3a 20 46 6f 72 20 6e 6f 77 2c 20 61 6c 6c 20 74 : For now, all t
75c0: 65 73 74 20 64 61 74 61 62 61 73 65 73 20 75 73 est databases us
75d0: 65 64 20 62 79 20 74 68 65 20 74 65 73 74 20 73 ed by the test s
75e0: 75 69 74 65 20 61 72 65 20 70 6c 61 63 65 64 20 uite are placed
75f0: 69 6e 74 6f 0d 0a 20 20 20 20 20 20 23 20 20 20 into.. #
7600: 20 20 20 20 74 68 65 20 74 65 6d 70 6f 72 61 72 the temporar
7610: 79 20 64 69 72 65 63 74 6f 72 79 2e 20 20 45 61 y directory. Ea
7620: 63 68 20 64 61 74 61 62 61 73 65 20 75 73 65 64 ch database used
7630: 20 62 79 20 61 20 74 65 73 74 20 73 68 6f 75 6c by a test shoul
7640: 64 20 62 65 0d 0a 20 20 20 20 20 20 23 20 20 20 d be.. #
7650: 20 20 20 20 63 6c 65 61 6e 65 64 20 75 70 20 62 cleaned up b
7660: 79 20 74 68 61 74 20 74 65 73 74 20 75 73 69 6e y that test usin
7670: 67 20 74 68 65 20 22 63 6c 65 61 6e 75 70 44 62 g the "cleanupDb
7680: 22 20 70 72 6f 63 65 64 75 72 65 2c 20 62 65 6c " procedure, bel
7690: 6f 77 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 ow... #..
76a0: 20 20 20 20 69 66 20 7b 21 24 69 73 4d 65 6d 6f if {!$isMemo
76b0: 72 79 20 26 26 20 24 71 75 61 6c 69 66 79 7d 20 ry && $qualify}
76c0: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 then {..
76d0: 73 65 74 20 66 69 6c 65 4e 61 6d 65 20 5b 66 69 set fileName [fi
76e0: 6c 65 20 6a 6f 69 6e 20 5b 67 65 74 44 61 74 61 le join [getData
76f0: 62 61 73 65 44 69 72 65 63 74 6f 72 79 5d 20 5b baseDirectory] [
7700: 66 69 6c 65 20 74 61 69 6c 20 24 66 69 6c 65 4e file tail $fileN
7710: 61 6d 65 5d 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a ame]].. }..
7720: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #..
7730: 20 23 20 4e 4f 54 45 3a 20 42 79 20 64 65 66 61 # NOTE: By defa
7740: 75 6c 74 2c 20 64 65 6c 65 74 65 20 61 6e 79 20 ult, delete any
7750: 70 72 65 2d 65 78 69 73 74 69 6e 67 20 64 61 74 pre-existing dat
7760: 61 62 61 73 65 20 77 69 74 68 20 74 68 65 20 73 abase with the s
7770: 61 6d 65 20 66 69 6c 65 0d 0a 20 20 20 20 20 20 ame file..
7780: 23 20 20 20 20 20 20 20 6e 61 6d 65 20 69 66 20 # name if
7790: 69 74 20 63 75 72 72 65 6e 74 6c 79 20 65 78 69 it currently exi
77a0: 73 74 73 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 sts... #..
77b0: 20 20 20 20 20 69 66 20 7b 21 24 69 73 4d 65 6d if {!$isMem
77c0: 6f 72 79 20 26 26 20 24 64 65 6c 65 74 65 20 26 ory && $delete &
77d0: 26 20 5b 66 69 6c 65 20 65 78 69 73 74 73 20 24 & [file exists $
77e0: 66 69 6c 65 4e 61 6d 65 5d 7d 20 74 68 65 6e 20 fileName]} then
77f0: 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 {.. #..
7800: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 41 74 # NOTE: At
7810: 74 65 6d 70 74 20 74 6f 20 64 65 6c 65 74 65 20 tempt to delete
7820: 61 6e 79 20 70 72 65 2d 65 78 69 73 74 69 6e 67 any pre-existing
7830: 20 64 61 74 61 62 61 73 65 20 77 69 74 68 20 74 database with t
7840: 68 65 20 73 61 6d 65 20 66 69 6c 65 0d 0a 20 20 he same file..
7850: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 6e 61 # na
7860: 6d 65 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a me... #..
7870: 20 20 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 if {[cat
7880: 63 68 20 7b 66 69 6c 65 20 64 65 6c 65 74 65 20 ch {file delete
7890: 24 66 69 6c 65 4e 61 6d 65 7d 20 65 72 72 6f 72 $fileName} error
78a0: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 ]} then {..
78b0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #..
78c0: 20 20 23 20 4e 4f 54 45 3a 20 57 65 20 73 6f 6d # NOTE: We som
78d0: 65 68 6f 77 20 66 61 69 6c 65 64 20 74 6f 20 64 ehow failed to d
78e0: 65 6c 65 74 65 20 74 68 65 20 66 69 6c 65 2c 20 elete the file,
78f0: 72 65 70 6f 72 74 20 77 68 79 2e 0d 0a 20 20 20 report why...
7900: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
7910: 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 tputs $::tes
7920: 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e t_channel [appen
7930: 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 dArgs \..
7940: 20 20 20 20 20 20 20 22 3d 3d 3d 3d 20 57 41 52 "==== WAR
7950: 4e 49 4e 47 3a 20 66 61 69 6c 65 64 20 74 6f 20 NING: failed to
7960: 64 65 6c 65 74 65 20 64 61 74 61 62 61 73 65 20 delete database
7970: 66 69 6c 65 20 5c 22 22 20 24 66 69 6c 65 4e 61 file \"" $fileNa
7980: 6d 65 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 me \..
7990: 20 20 20 20 22 5c 22 20 64 75 72 69 6e 67 20 73 "\" during s
79a0: 65 74 75 70 2c 20 65 72 72 6f 72 3a 20 22 20 5c etup, error: " \
79b0: 6e 5c 74 20 24 65 72 72 6f 72 20 5c 6e 5d 0d 0a n\t $error \n]..
79c0: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 }..
79d0: 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 }.... #..
79e0: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 52 65 66 # NOTE: Ref
79f0: 65 72 20 74 6f 20 74 68 65 20 73 70 65 63 69 66 er to the specif
7a00: 69 65 64 20 76 61 72 69 61 62 6c 65 20 28 65 2e ied variable (e.
7a10: 67 2e 20 22 64 62 22 29 20 69 6e 20 74 68 65 20 g. "db") in the
7a20: 63 6f 6e 74 65 78 74 20 6f 66 20 6f 75 72 0d 0a context of our..
7a30: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 63 61 # ca
7a40: 6c 6c 65 72 2e 20 20 54 68 65 20 68 61 6e 64 6c ller. The handl
7a50: 65 20 74 6f 20 74 68 65 20 6f 70 65 6e 65 64 20 e to the opened
7a60: 64 61 74 61 62 61 73 65 20 77 69 6c 6c 20 62 65 database will be
7a70: 20 73 74 6f 72 65 64 20 74 68 65 72 65 2e 0d 0a stored there...
7a80: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 75 #.. u
7a90: 70 76 61 72 20 31 20 24 76 61 72 4e 61 6d 65 20 pvar 1 $varName
7aa0: 64 62 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 db.... #..
7ab0: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 74 61 # NOTE: Sta
7ac0: 72 74 20 62 75 69 6c 64 69 6e 67 20 74 68 65 20 rt building the
7ad0: 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 72 69 6e connection strin
7ae0: 67 2e 20 20 54 68 65 20 6f 6e 6c 79 20 72 65 71 g. The only req
7af0: 75 69 72 65 64 20 70 6f 72 74 69 6f 6e 0d 0a 20 uired portion..
7b00: 20 20 20 20 20 23 20 20 20 20 20 20 20 6f 66 20 # of
7b10: 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 the connection s
7b20: 74 72 69 6e 67 20 69 73 20 74 68 65 20 64 61 74 tring is the dat
7b30: 61 20 73 6f 75 72 63 65 2c 20 77 68 69 63 68 20 a source, which
7b40: 63 6f 6e 74 61 69 6e 73 20 74 68 65 0d 0a 20 20 contains the..
7b50: 20 20 20 20 23 20 20 20 20 20 20 20 64 61 74 61 # data
7b60: 62 61 73 65 20 66 69 6c 65 20 6e 61 6d 65 20 69 base file name i
7b70: 74 73 65 6c 66 2e 20 20 49 66 20 6f 75 72 20 63 tself. If our c
7b80: 61 6c 6c 65 72 20 77 61 6e 74 73 20 74 6f 20 75 aller wants to u
7b90: 73 65 20 61 20 55 52 49 20 61 73 0d 0a 20 20 20 se a URI as..
7ba0: 20 20 20 23 20 20 20 20 20 20 20 74 68 65 20 64 # the d
7bb0: 61 74 61 20 73 6f 75 72 63 65 2c 20 75 73 65 20 ata source, use
7bc0: 74 68 65 20 46 75 6c 6c 55 72 69 20 63 6f 6e 6e the FullUri conn
7bd0: 65 63 74 69 6f 6e 20 73 74 72 69 6e 67 20 70 72 ection string pr
7be0: 6f 70 65 72 74 79 20 74 6f 0d 0a 20 20 20 20 20 operty to..
7bf0: 20 23 20 20 20 20 20 20 20 70 72 65 76 65 6e 74 # prevent
7c00: 20 74 68 65 20 64 61 74 61 20 73 6f 75 72 63 65 the data source
7c10: 20 73 74 72 69 6e 67 20 66 72 6f 6d 20 62 65 69 string from bei
7c20: 6e 67 20 6d 61 6e 67 6c 65 64 2e 0d 0a 20 20 20 ng mangled...
7c30: 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b #.. if {
7c40: 24 75 72 69 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 $uri} then {..
7c50: 20 20 20 20 20 20 73 65 74 20 63 6f 6e 6e 65 63 set connec
7c60: 74 69 6f 6e 20 7b 46 75 6c 6c 55 72 69 3d 24 7b tion {FullUri=${
7c70: 66 69 6c 65 4e 61 6d 65 7d 7d 0d 0a 20 20 20 20 fileName}}..
7c80: 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 } else {..
7c90: 20 20 20 20 73 65 74 20 63 6f 6e 6e 65 63 74 69 set connecti
7ca0: 6f 6e 20 7b 44 61 74 61 20 53 6f 75 72 63 65 3d on {Data Source=
7cb0: 24 7b 66 69 6c 65 4e 61 6d 65 7d 7d 0d 0a 20 20 ${fileName}}..
7cc0: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 }.... #
7cd0: 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 .. # NOTE:
7ce0: 53 69 6e 63 65 20 74 68 69 73 20 70 72 6f 63 65 Since this proce
7cf0: 64 75 72 65 20 68 61 73 20 6e 6f 20 73 70 65 63 dure has no spec
7d00: 69 61 6c 20 6b 6e 6f 77 6c 65 64 67 65 20 6f 66 ial knowledge of
7d10: 20 77 68 61 74 20 74 68 65 20 64 65 66 61 75 6c what the defaul
7d20: 74 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 t.. #
7d30: 20 73 65 74 74 69 6e 67 20 69 73 20 66 6f 72 20 setting is for
7d40: 74 68 65 20 54 6f 46 75 6c 6c 50 61 74 68 20 63 the ToFullPath c
7d50: 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 72 69 6e 67 onnection string
7d60: 20 70 72 6f 70 65 72 79 2c 20 61 6c 77 61 79 73 propery, always
7d70: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. #
7d80: 61 64 64 20 74 68 65 20 76 61 6c 75 65 20 77 65 add the value we
7d90: 20 6b 6e 6f 77 20 61 62 6f 75 74 20 74 6f 20 74 know about to t
7da0: 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 he connection st
7db0: 72 69 6e 67 2e 0d 0a 20 20 20 20 20 20 23 0d 0a ring... #..
7dc0: 20 20 20 20 20 20 61 70 70 65 6e 64 20 63 6f 6e append con
7dd0: 6e 65 63 74 69 6f 6e 20 7b 3b 54 6f 46 75 6c 6c nection {;ToFull
7de0: 50 61 74 68 3d 24 7b 71 75 61 6c 69 66 79 7d 7d Path=${qualify}}
7df0: 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 .... #..
7e00: 20 20 20 23 20 4e 4f 54 45 3a 20 49 66 20 6f 75 # NOTE: If ou
7e10: 72 20 63 61 6c 6c 65 72 20 73 70 65 63 69 66 69 r caller specifi
7e20: 65 64 20 61 20 6a 6f 75 72 6e 61 6c 20 6d 6f 64 ed a journal mod
7e30: 65 2c 20 61 64 64 20 74 68 65 20 6e 65 63 65 73 e, add the neces
7e40: 73 61 72 79 20 70 6f 72 74 69 6f 6e 0d 0a 20 20 sary portion..
7e50: 20 20 20 20 23 20 20 20 20 20 20 20 6f 66 20 74 # of t
7e60: 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 he connection st
7e70: 72 69 6e 67 20 6e 6f 77 2e 0d 0a 20 20 20 20 20 ring now...
7e80: 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 73 #.. if {[s
7e90: 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 6d 6f tring length $mo
7ea0: 64 65 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d de] > 0} then {.
7eb0: 0a 20 20 20 20 20 20 20 20 61 70 70 65 6e 64 20 . append
7ec0: 63 6f 6e 6e 65 63 74 69 6f 6e 20 7b 3b 4a 6f 75 connection {;Jou
7ed0: 72 6e 61 6c 20 4d 6f 64 65 3d 24 7b 6d 6f 64 65 rnal Mode=${mode
7ee0: 7d 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 }}.. }....
7ef0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 #.. #
7f00: 4e 4f 54 45 3a 20 49 66 20 6f 75 72 20 63 61 6c NOTE: If our cal
7f10: 6c 65 72 20 73 70 65 63 69 66 69 65 64 20 61 20 ler specified a
7f20: 44 61 74 65 54 69 6d 65 20 66 6f 72 6d 61 74 2c DateTime format,
7f30: 20 61 64 64 20 74 68 65 20 6e 65 63 65 73 73 61 add the necessa
7f40: 72 79 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 ry.. #
7f50: 20 20 70 6f 72 74 69 6f 6e 20 6f 66 20 74 68 65 portion of the
7f60: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 72 69 connection stri
7f70: 6e 67 20 6e 6f 77 2e 0d 0a 20 20 20 20 20 20 23 ng now... #
7f80: 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 73 74 72 .. if {[str
7f90: 69 6e 67 20 6c 65 6e 67 74 68 20 24 64 61 74 65 ing length $date
7fa0: 54 69 6d 65 46 6f 72 6d 61 74 5d 20 3e 20 30 7d TimeFormat] > 0}
7fb0: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 then {..
7fc0: 20 61 70 70 65 6e 64 20 63 6f 6e 6e 65 63 74 69 append connecti
7fd0: 6f 6e 20 7b 3b 44 61 74 65 54 69 6d 65 46 6f 72 on {;DateTimeFor
7fe0: 6d 61 74 3d 24 7b 64 61 74 65 54 69 6d 65 46 6f mat=${dateTimeFo
7ff0: 72 6d 61 74 7d 7d 0d 0a 20 20 20 20 20 20 7d 0d rmat}}.. }.
8000: 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 ... #..
8010: 20 20 23 20 4e 4f 54 45 3a 20 49 66 20 6f 75 72 # NOTE: If our
8020: 20 63 61 6c 6c 65 72 20 73 70 65 63 69 66 69 65 caller specifie
8030: 64 20 61 20 44 61 74 65 54 69 6d 65 4b 69 6e 64 d a DateTimeKind
8040: 2c 20 61 64 64 20 74 68 65 20 6e 65 63 65 73 73 , add the necess
8050: 61 72 79 20 70 6f 72 74 69 6f 6e 0d 0a 20 20 20 ary portion..
8060: 20 20 20 23 20 20 20 20 20 20 20 6f 66 20 74 68 # of th
8070: 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 72 e connection str
8080: 69 6e 67 20 6e 6f 77 2e 0d 0a 20 20 20 20 20 20 ing now...
8090: 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 73 74 #.. if {[st
80a0: 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 64 61 74 ring length $dat
80b0: 65 54 69 6d 65 4b 69 6e 64 5d 20 3e 20 30 7d 20 eTimeKind] > 0}
80c0: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 then {..
80d0: 61 70 70 65 6e 64 20 63 6f 6e 6e 65 63 74 69 6f append connectio
80e0: 6e 20 7b 3b 44 61 74 65 54 69 6d 65 4b 69 6e 64 n {;DateTimeKind
80f0: 3d 24 7b 64 61 74 65 54 69 6d 65 4b 69 6e 64 7d =${dateTimeKind}
8100: 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 }.. }....
8110: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e #.. # N
8120: 4f 54 45 3a 20 49 66 20 74 68 65 72 65 20 61 72 OTE: If there ar
8130: 65 20 61 6e 79 20 67 6c 6f 62 61 6c 20 28 70 65 e any global (pe
8140: 72 20 74 65 73 74 20 72 75 6e 29 20 63 6f 6e 6e r test run) conn
8150: 65 63 74 69 6f 6e 20 66 6c 61 67 73 20 63 75 72 ection flags cur
8160: 72 65 6e 74 6c 79 0d 0a 20 20 20 20 20 20 23 20 rently.. #
8170: 20 20 20 20 20 20 73 65 74 2c 20 75 73 65 20 74 set, use t
8180: 68 65 6d 20 6e 6f 77 20 28 69 2e 65 2e 20 62 79 hem now (i.e. by
8190: 20 63 6f 6d 62 69 6e 69 6e 67 20 74 68 65 6d 20 combining them
81a0: 77 69 74 68 20 74 68 65 20 6f 6e 65 73 20 66 6f with the ones fo
81b0: 72 20 74 68 69 73 0d 0a 20 20 20 20 20 20 23 20 r this.. #
81c0: 20 20 20 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e connection
81d0: 29 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 )... #..
81e0: 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 if {[info exi
81f0: 73 74 73 20 3a 3a 63 6f 6e 6e 65 63 74 69 6f 6e sts ::connection
8200: 5f 66 6c 61 67 73 5d 20 26 26 20 5c 0d 0a 20 20 _flags] && \..
8210: 20 20 20 20 20 20 20 20 5b 73 74 72 69 6e 67 20 [string
8220: 6c 65 6e 67 74 68 20 24 3a 3a 63 6f 6e 6e 65 63 length $::connec
8230: 74 69 6f 6e 5f 66 6c 61 67 73 5d 20 3e 20 30 7d tion_flags] > 0}
8240: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 then {..
8250: 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f #.. # NO
8260: 54 45 3a 20 53 68 6f 77 20 28 61 6e 64 20 6c 6f TE: Show (and lo
8270: 67 29 20 74 68 61 74 20 77 65 20 64 65 74 65 63 g) that we detec
8280: 74 65 64 20 73 6f 6d 65 20 67 6c 6f 62 61 6c 20 ted some global
8290: 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 6c 61 67 73 connection flags
82a0: 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 ... #..
82b0: 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 tputs $::t
82c0: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 est_channel [app
82d0: 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 endArgs \..
82e0: 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 67 6c 6f "---- glo
82f0: 62 61 6c 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 bal connection f
8300: 6c 61 67 73 20 64 65 74 65 63 74 65 64 3a 20 22 lags detected: "
8310: 20 24 3a 3a 63 6f 6e 6e 65 63 74 69 6f 6e 5f 66 $::connection_f
8320: 6c 61 67 73 20 5c 6e 5d 0d 0a 0d 0a 20 20 20 20 lags \n]....
8330: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 #.. #
8340: 20 4e 4f 54 45 3a 20 43 6f 6d 62 69 6e 65 20 61 NOTE: Combine a
8350: 6e 64 2f 6f 72 20 72 65 70 6c 61 63 65 20 74 68 nd/or replace th
8360: 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 6c 61 e connection fla
8370: 67 73 20 61 6e 64 20 74 68 65 6e 20 73 68 6f 77 gs and then show
8380: 20 74 68 65 0d 0a 20 20 20 20 20 20 20 20 23 20 the.. #
8390: 20 20 20 20 20 20 6e 65 77 20 76 61 6c 75 65 2e new value.
83a0: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #..
83b0: 20 20 20 20 20 73 65 74 20 66 6c 61 67 73 20 5b set flags [
83c0: 63 6f 6d 62 69 6e 65 46 6c 61 67 73 20 24 66 6c combineFlags $fl
83d0: 61 67 73 20 24 3a 3a 63 6f 6e 6e 65 63 74 69 6f ags $::connectio
83e0: 6e 5f 66 6c 61 67 73 5d 0d 0a 0d 0a 20 20 20 20 n_flags]....
83f0: 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 tputs $::tes
8400: 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e t_channel [appen
8410: 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 dArgs \..
8420: 20 20 20 20 20 22 2d 2d 2d 2d 20 63 6f 6d 62 69 "---- combi
8430: 6e 65 64 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 ned connection f
8440: 6c 61 67 73 20 61 72 65 3a 20 22 20 24 66 6c 61 lags are: " $fla
8450: 67 73 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 7d 0d gs \n].. }.
8460: 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 ... #..
8470: 20 20 23 20 4e 4f 54 45 3a 20 49 66 20 6f 75 72 # NOTE: If our
8480: 20 63 61 6c 6c 65 72 20 73 70 65 63 69 66 69 65 caller specifie
8490: 64 20 61 20 53 51 4c 69 74 65 43 6f 6e 6e 65 63 d a SQLiteConnec
84a0: 74 69 6f 6e 46 6c 61 67 73 2c 20 61 64 64 20 74 tionFlags, add t
84b0: 68 65 20 6e 65 63 65 73 73 61 72 79 0d 0a 20 20 he necessary..
84c0: 20 20 20 20 23 20 20 20 20 20 20 20 70 6f 72 74 # port
84d0: 69 6f 6e 20 6f 66 20 74 68 65 20 63 6f 6e 6e 65 ion of the conne
84e0: 63 74 69 6f 6e 20 73 74 72 69 6e 67 20 6e 6f 77 ction string now
84f0: 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 ... #..
8500: 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 if {[string le
8510: 6e 67 74 68 20 24 66 6c 61 67 73 5d 20 3e 20 30 ngth $flags] > 0
8520: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {..
8530: 20 20 61 70 70 65 6e 64 20 63 6f 6e 6e 65 63 74 append connect
8540: 69 6f 6e 20 7b 3b 46 6c 61 67 73 3d 24 7b 66 6c ion {;Flags=${fl
8550: 61 67 73 7d 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a ags}}.. }..
8560: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #..
8570: 20 23 20 4e 4f 54 45 3a 20 49 66 20 6f 75 72 20 # NOTE: If our
8580: 63 61 6c 6c 65 72 20 73 70 65 63 69 66 69 65 64 caller specified
8590: 20 61 6e 20 65 78 74 72 61 20 70 61 79 6c 6f 61 an extra payloa
85a0: 64 20 74 6f 20 74 68 65 20 63 6f 6e 6e 65 63 74 d to the connect
85b0: 69 6f 6e 20 73 74 72 69 6e 67 2c 0d 0a 20 20 20 ion string,..
85c0: 20 20 20 23 20 20 20 20 20 20 20 61 70 70 65 6e # appen
85d0: 64 20 69 74 20 6e 6f 77 2e 0d 0a 20 20 20 20 20 d it now...
85e0: 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 73 #.. if {[s
85f0: 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 65 78 tring length $ex
8600: 74 72 61 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b tra] > 0} then {
8610: 0d 0a 20 20 20 20 20 20 20 20 61 70 70 65 6e 64 .. append
8620: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 5c 3b 20 24 connection \; $
8630: 65 78 74 72 61 0d 0a 20 20 20 20 20 20 7d 0d 0a extra.. }..
8640: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #..
8650: 20 23 20 4e 4f 54 45 3a 20 4f 70 65 6e 20 74 68 # NOTE: Open th
8660: 65 20 64 61 74 61 62 61 73 65 20 63 6f 6e 6e 65 e database conne
8670: 63 74 69 6f 6e 20 6e 6f 77 2c 20 70 6c 61 63 69 ction now, placi
8680: 6e 67 20 74 68 65 20 6f 70 61 71 75 65 20 68 61 ng the opaque ha
8690: 6e 64 6c 65 20 76 61 6c 75 65 0d 0a 20 20 20 20 ndle value..
86a0: 20 20 23 20 20 20 20 20 20 20 69 6e 74 6f 20 74 # into t
86b0: 68 65 20 76 61 72 69 61 62 6c 65 20 73 70 65 63 he variable spec
86c0: 69 66 69 65 64 20 62 79 20 6f 75 72 20 63 61 6c ified by our cal
86d0: 6c 65 72 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 ler... #..
86e0: 20 20 20 20 20 73 65 74 20 64 62 20 5b 73 71 6c set db [sql
86f0: 20 6f 70 65 6e 20 2d 74 79 70 65 20 53 51 4c 69 open -type SQLi
8700: 74 65 20 5b 73 75 62 73 74 20 24 63 6f 6e 6e 65 te [subst $conne
8710: 63 74 69 6f 6e 5d 5d 0d 0a 0d 0a 20 20 20 20 20 ction]]....
8720: 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 #.. # NOTE
8730: 3a 20 43 6f 6e 66 69 67 75 72 65 20 74 68 65 20 : Configure the
8740: 74 65 6d 70 6f 72 61 72 79 20 64 69 72 65 63 74 temporary direct
8750: 6f 72 79 20 66 6f 72 20 74 68 65 20 6e 65 77 6c ory for the newl
8760: 79 20 6f 70 65 6e 65 64 20 64 61 74 61 62 61 73 y opened databas
8770: 65 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 e.. #
8780: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 6e 6f 77 20 connection now
8790: 75 6e 6c 65 73 73 20 6f 75 72 20 63 61 6c 6c 65 unless our calle
87a0: 72 20 66 6f 72 62 69 64 73 20 69 74 2e 0d 0a 20 r forbids it...
87b0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 #.. if
87c0: 20 7b 24 74 65 6d 70 6f 72 61 72 79 20 26 26 20 {$temporary &&
87d0: 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a ![info exists ::
87e0: 6e 6f 28 73 65 74 54 65 6d 70 6f 72 61 72 79 44 no(setTemporaryD
87f0: 69 72 65 63 74 6f 72 79 29 5d 7d 20 74 68 65 6e irectory)]} then
8800: 20 7b 0d 0a 20 20 20 20 20 20 20 20 73 71 6c 20 {.. sql
8810: 65 78 65 63 75 74 65 20 24 64 62 20 5b 61 70 70 execute $db [app
8820: 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 endArgs \..
8830: 20 20 20 20 20 20 20 22 50 52 41 47 4d 41 20 74 "PRAGMA t
8840: 65 6d 70 5f 73 74 6f 72 65 5f 64 69 72 65 63 74 emp_store_direct
8850: 6f 72 79 20 3d 20 5c 22 22 20 5b 67 65 74 54 65 ory = \"" [getTe
8860: 6d 70 6f 72 61 72 79 44 69 72 65 63 74 6f 72 79 mporaryDirectory
8870: 5d 20 5c 22 5c 3b 5d 0d 0a 20 20 20 20 20 20 7d ] \"\;].. }
8880: 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 .... #..
8890: 20 20 20 23 20 4e 4f 54 45 3a 20 41 6c 77 61 79 # NOTE: Alway
88a0: 73 20 72 65 74 75 72 6e 20 74 68 65 20 63 6f 6e s return the con
88b0: 6e 65 63 74 69 6f 6e 20 68 61 6e 64 6c 65 20 75 nection handle u
88c0: 70 6f 6e 20 73 75 63 63 65 73 73 2e 0d 0a 20 20 pon success...
88d0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 72 65 74 #.. ret
88e0: 75 72 6e 20 24 64 62 0d 0a 20 20 20 20 7d 0d 0a urn $db.. }..
88f0: 0c 0d 0a 20 20 20 20 70 72 6f 63 20 67 65 74 44 ... proc getD
8900: 62 43 6f 6e 6e 65 63 74 69 6f 6e 20 7b 20 7b 76 bConnection { {v
8910: 61 72 4e 61 6d 65 20 64 62 7d 20 7d 20 7b 0d 0a arName db} } {..
8920: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 #.. #
8930: 20 4e 4f 54 45 3a 20 52 65 66 65 72 20 74 6f 20 NOTE: Refer to
8940: 74 68 65 20 73 70 65 63 69 66 69 65 64 20 76 61 the specified va
8950: 72 69 61 62 6c 65 20 28 65 2e 67 2e 20 22 64 62 riable (e.g. "db
8960: 22 29 20 69 6e 20 74 68 65 20 63 6f 6e 74 65 78 ") in the contex
8970: 74 20 6f 66 20 6f 75 72 0d 0a 20 20 20 20 20 20 t of our..
8980: 23 20 20 20 20 20 20 20 63 61 6c 6c 65 72 2e 20 # caller.
8990: 20 54 68 65 20 68 61 6e 64 6c 65 20 74 6f 20 74 The handle to t
89a0: 68 65 20 64 61 74 61 62 61 73 65 20 70 72 65 76 he database prev
89b0: 69 6f 75 73 6c 79 20 6f 70 65 6e 65 64 20 62 79 iously opened by
89c0: 20 5b 73 65 74 75 70 44 62 5d 0d 0a 20 20 20 20 [setupDb]..
89d0: 20 20 23 20 20 20 20 20 20 20 73 68 6f 75 6c 64 # should
89e0: 20 62 65 20 73 74 6f 72 65 64 20 74 68 65 72 65 be stored there
89f0: 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 ... #..
8a00: 20 20 75 70 76 61 72 20 31 20 24 76 61 72 4e 61 upvar 1 $varNa
8a10: 6d 65 20 64 62 0d 0a 0d 0a 20 20 20 20 20 20 23 me db.... #
8a20: 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 .. # NOTE:
8a30: 54 68 69 73 20 72 65 74 75 72 6e 73 20 74 68 65 This returns the
8a40: 20 41 44 4f 2e 4e 45 54 20 49 44 62 43 6f 6e 6e ADO.NET IDbConn
8a50: 65 63 74 69 6f 6e 20 6f 62 6a 65 63 74 20 69 6e ection object in
8a60: 73 74 61 6e 63 65 20 66 6f 72 20 74 68 65 0d 0a stance for the..
8a70: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 73 70 # sp
8a80: 65 63 69 66 69 65 64 20 64 61 74 61 62 73 65 20 ecified databse
8a90: 68 61 6e 64 6c 65 2e 20 20 53 69 6e 63 65 20 67 handle. Since g
8aa0: 65 74 74 69 6e 67 20 74 68 69 73 20 6f 62 6a 65 etting this obje
8ab0: 63 74 20 72 65 6c 69 65 73 20 75 70 6f 6e 0d 0a ct relies upon..
8ac0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 45 61 # Ea
8ad0: 67 6c 65 20 69 6e 74 65 72 6e 61 6c 73 2c 20 67 gle internals, g
8ae0: 72 65 61 74 20 63 61 72 65 20 73 68 6f 75 6c 64 reat care should
8af0: 20 62 65 20 74 61 6b 65 6e 20 74 6f 20 61 76 6f be taken to avo
8b00: 69 64 20 64 69 73 70 6f 73 69 6e 67 20 6f 66 0d id disposing of.
8b10: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 74 . # t
8b20: 68 69 73 20 6f 62 6a 65 63 74 20 6f 72 20 6f 74 his object or ot
8b30: 68 65 72 77 69 73 65 20 70 75 74 74 69 6e 67 20 herwise putting
8b40: 69 74 20 69 6e 74 6f 20 61 6e 20 69 6e 76 61 6c it into an inval
8b50: 69 64 20 73 74 61 74 65 2e 0d 0a 20 20 20 20 20 id state...
8b60: 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 69 #.. if {[i
8b70: 6e 66 6f 20 65 78 69 73 74 73 20 64 62 5d 7d 20 nfo exists db]}
8b80: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 then {..
8b90: 69 66 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 20 if {[catch {..
8ba0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 62 ob
8bb0: 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d 66 6c 61 ject invoke -fla
8bc0: 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 2d 6f gs +NonPublic -o
8bd0: 62 6a 65 63 74 66 6c 61 67 73 20 2b 4e 6f 44 69 bjectflags +NoDi
8be0: 73 70 6f 73 65 20 5c 0d 0a 20 20 20 20 20 20 20 spose \..
8bf0: 20 20 20 20 20 20 20 20 20 2d 61 6c 69 61 73 20 -alias
8c00: 49 6e 74 65 72 70 72 65 74 65 72 2e 47 65 74 41 Interpreter.GetA
8c10: 63 74 69 76 65 2e 63 6f 6e 6e 65 63 74 69 6f 6e ctive.connection
8c20: 73 20 49 74 65 6d 20 24 64 62 7d 20 5c 0d 0a 20 s Item $db} \..
8c30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 r
8c40: 65 73 75 6c 74 5d 20 3d 3d 20 30 7d 20 74 68 65 esult] == 0} the
8c50: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23 n {.. #
8c60: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f .. # NO
8c70: 54 45 3a 20 53 75 63 63 65 73 73 2c 20 72 65 74 TE: Success, ret
8c80: 75 72 6e 20 74 68 65 20 6f 70 61 71 75 65 20 6f urn the opaque o
8c90: 62 6a 65 63 74 20 68 61 6e 64 6c 65 2e 0d 0a 20 bject handle...
8ca0: 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 #..
8cb0: 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 72 65 return $re
8cc0: 73 75 6c 74 0d 0a 20 20 20 20 20 20 20 20 7d 20 sult.. }
8cd0: 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 else {..
8ce0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23 #.. #
8cf0: 20 4e 4f 54 45 3a 20 46 61 69 6c 75 72 65 2c 20 NOTE: Failure,
8d00: 72 65 70 6f 72 74 20 77 68 79 2e 0d 0a 20 20 20 report why...
8d10: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
8d20: 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 tputs $::tes
8d30: 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e t_channel [appen
8d40: 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 dArgs \..
8d50: 20 20 20 20 20 20 20 22 3d 3d 3d 3d 20 57 41 52 "==== WAR
8d60: 4e 49 4e 47 3a 20 66 61 69 6c 65 64 20 74 6f 20 NING: failed to
8d70: 67 65 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 68 get connection h
8d80: 61 6e 64 6c 65 20 66 6f 72 20 64 61 74 61 62 61 andle for databa
8d90: 73 65 20 5c 22 22 20 5c 0d 0a 20 20 20 20 20 20 se \"" \..
8da0: 20 20 20 20 20 20 20 20 24 64 62 20 22 5c 22 2c $db "\",
8db0: 20 65 72 72 6f 72 3a 20 22 20 5c 6e 5c 74 20 24 error: " \n\t $
8dc0: 72 65 73 75 6c 74 20 5c 6e 5d 0d 0a 20 20 20 20 result \n]..
8dd0: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a }.. }..
8de0: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 }..... pr
8df0: 6f 63 20 66 72 65 65 44 62 43 6f 6e 6e 65 63 74 oc freeDbConnect
8e00: 69 6f 6e 20 7b 20 7b 76 61 72 4e 61 6d 65 20 63 ion { {varName c
8e10: 6f 6e 6e 65 63 74 69 6f 6e 7d 20 7d 20 7b 0d 0a onnection} } {..
8e20: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 #.. #
8e30: 20 4e 4f 54 45 3a 20 52 65 66 65 72 20 74 6f 20 NOTE: Refer to
8e40: 74 68 65 20 73 70 65 63 69 66 69 65 64 20 76 61 the specified va
8e50: 72 69 61 62 6c 65 20 28 65 2e 67 2e 20 22 63 6f riable (e.g. "co
8e60: 6e 6e 65 63 74 69 6f 6e 22 29 20 69 6e 20 74 68 nnection") in th
8e70: 65 20 63 6f 6e 74 65 78 74 0d 0a 20 20 20 20 20 e context..
8e80: 20 23 20 20 20 20 20 20 20 6f 66 20 6f 75 72 20 # of our
8e90: 63 61 6c 6c 65 72 2e 20 20 54 68 65 20 6f 70 61 caller. The opa
8ea0: 71 75 65 20 6f 62 6a 65 63 74 20 68 61 6e 64 6c que object handl
8eb0: 65 20 66 6f 72 20 61 6e 20 41 44 4f 2e 4e 45 54 e for an ADO.NET
8ec0: 20 63 6f 6e 6e 65 63 74 69 6f 6e 0d 0a 20 20 20 connection..
8ed0: 20 20 20 23 20 20 20 20 20 20 20 70 72 65 76 69 # previ
8ee0: 6f 75 73 6c 79 20 72 65 74 75 72 6e 65 64 20 62 ously returned b
8ef0: 79 20 5b 67 65 74 44 62 43 6f 6e 6e 65 63 74 69 y [getDbConnecti
8f00: 6f 6e 5d 20 73 68 6f 75 6c 64 20 62 65 20 73 74 on] should be st
8f10: 6f 72 65 64 20 74 68 65 72 65 2e 0d 0a 20 20 20 ored there...
8f20: 20 20 20 23 0d 0a 20 20 20 20 20 20 75 70 76 61 #.. upva
8f30: 72 20 31 20 24 76 61 72 4e 61 6d 65 20 63 6f 6e r 1 $varName con
8f40: 6e 65 63 74 69 6f 6e 0d 0a 0d 0a 20 20 20 20 20 nection....
8f50: 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 #.. # NOTE
8f60: 3a 20 41 74 74 65 6d 70 74 20 74 6f 20 72 65 6d : Attempt to rem
8f70: 6f 76 65 20 74 68 65 20 6f 70 61 71 75 65 20 6f ove the opaque o
8f80: 62 6a 65 63 74 20 68 61 6e 64 6c 65 20 66 72 6f bject handle fro
8f90: 6d 20 74 68 65 20 69 6e 74 65 72 70 72 65 74 65 m the interprete
8fa0: 72 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 r.. #
8fb0: 20 6e 6f 77 2e 20 20 54 68 69 73 20 5b 6f 62 6a now. This [obj
8fc0: 65 63 74 20 64 69 73 70 6f 73 65 5d 20 63 61 6c ect dispose] cal
8fd0: 6c 20 77 69 6c 6c 20 6e 6f 74 20 61 63 74 75 61 l will not actua
8fe0: 6c 6c 79 20 64 69 73 70 6f 73 65 20 6f 66 20 74 lly dispose of t
8ff0: 68 65 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 he.. #
9000: 20 20 75 6e 64 65 72 6c 79 69 6e 67 20 6f 62 6a underlying obj
9010: 65 63 74 20 62 65 63 61 75 73 65 20 74 68 65 20 ect because the
9020: 2b 4e 6f 44 69 73 70 6f 73 65 20 66 6c 61 67 20 +NoDispose flag
9030: 77 61 73 20 73 65 74 20 6f 6e 20 69 74 20 64 75 was set on it du
9040: 72 69 6e 67 0d 0a 20 20 20 20 20 20 23 20 20 20 ring.. #
9050: 20 20 20 20 63 72 65 61 74 69 6f 6e 20 6f 66 20 creation of
9060: 74 68 65 20 6f 70 61 71 75 65 20 6f 62 6a 65 63 the opaque objec
9070: 74 20 68 61 6e 64 6c 65 2e 0d 0a 20 20 20 20 20 t handle...
9080: 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 69 #.. if {[i
9090: 6e 66 6f 20 65 78 69 73 74 73 20 63 6f 6e 6e 65 nfo exists conne
90a0: 63 74 69 6f 6e 5d 20 26 26 20 5c 0d 0a 20 20 20 ction] && \..
90b0: 20 20 20 20 20 20 20 5b 63 61 74 63 68 20 7b 6f [catch {o
90c0: 62 6a 65 63 74 20 64 69 73 70 6f 73 65 20 24 63 bject dispose $c
90d0: 6f 6e 6e 65 63 74 69 6f 6e 7d 20 65 72 72 6f 72 onnection} error
90e0: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 ]} then {..
90f0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 #.. #
9100: 4e 4f 54 45 3a 20 57 65 20 73 6f 6d 65 68 6f 77 NOTE: We somehow
9110: 20 66 61 69 6c 65 64 20 74 6f 20 72 65 6d 6f 76 failed to remov
9120: 65 20 74 68 65 20 68 61 6e 64 6c 65 2c 20 72 65 e the handle, re
9130: 70 6f 72 74 20 77 68 79 2e 0d 0a 20 20 20 20 20 port why...
9140: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 74 70 #.. tp
9150: 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e uts $::test_chan
9160: 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 nel [appendArgs
9170: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 \.. "
9180: 3d 3d 3d 3d 20 57 41 52 4e 49 4e 47 3a 20 66 61 ==== WARNING: fa
9190: 69 6c 65 64 20 74 6f 20 72 65 6d 6f 76 65 20 63 iled to remove c
91a0: 6f 6e 6e 65 63 74 69 6f 6e 20 68 61 6e 64 6c 65 onnection handle
91b0: 20 5c 22 22 20 24 63 6f 6e 6e 65 63 74 69 6f 6e \"" $connection
91c0: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \..
91d0: 22 5c 22 2c 20 65 72 72 6f 72 3a 20 22 20 5c 6e "\", error: " \n
91e0: 5c 74 20 24 65 72 72 6f 72 20 5c 6e 5d 0d 0a 20 \t $error \n]..
91f0: 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c }.. }...
9200: 0d 0a 20 20 20 20 70 72 6f 63 20 61 64 64 44 62 .. proc addDb
9210: 43 6f 6e 6e 65 63 74 69 6f 6e 20 7b 20 63 6f 6e Connection { con
9220: 6e 65 63 74 69 6f 6e 20 7b 76 61 72 4e 61 6d 65 nection {varName
9230: 20 64 62 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 20 db} } {..
9240: 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a #.. # NOTE:
9250: 20 52 65 66 65 72 20 74 6f 20 74 68 65 20 73 70 Refer to the sp
9260: 65 63 69 66 69 65 64 20 76 61 72 69 61 62 6c 65 ecified variable
9270: 20 28 65 2e 67 2e 20 22 64 62 22 29 20 69 6e 20 (e.g. "db") in
9280: 74 68 65 20 63 6f 6e 74 65 78 74 20 6f 66 20 6f the context of o
9290: 75 72 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 ur.. #
92a0: 20 20 63 61 6c 6c 65 72 2e 0d 0a 20 20 20 20 20 caller...
92b0: 20 23 0d 0a 20 20 20 20 20 20 75 70 76 61 72 20 #.. upvar
92c0: 31 20 24 76 61 72 4e 61 6d 65 20 64 62 0d 0a 0d 1 $varName db...
92d0: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 . #..
92e0: 23 20 4e 4f 54 45 3a 20 43 72 65 61 74 65 20 61 # NOTE: Create a
92f0: 20 63 6f 72 72 65 63 74 6c 79 20 66 6f 72 6d 61 correctly forma
9300: 74 74 65 64 20 6e 61 6d 65 20 66 6f 72 20 74 68 tted name for th
9310: 65 20 64 61 74 61 62 61 73 65 20 63 6f 6e 6e 65 e database conne
9320: 63 74 69 6f 6e 20 74 6f 0d 0a 20 20 20 20 20 20 ction to..
9330: 23 20 20 20 20 20 20 20 62 65 20 61 64 64 65 64 # be added
9340: 20 74 6f 20 74 68 65 20 6c 69 73 74 20 6d 61 6e to the list man
9350: 61 67 65 64 20 62 79 20 74 68 65 20 45 61 67 6c aged by the Eagl
9360: 65 20 69 6e 74 65 72 70 72 65 74 65 72 2e 0d 0a e interpreter...
9370: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 73 #.. s
9380: 65 74 20 64 62 20 5b 6f 62 6a 65 63 74 20 69 6e et db [object in
9390: 76 6f 6b 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e voke -flags +Non
93a0: 50 75 62 6c 69 63 20 5c 0d 0a 20 20 20 20 20 20 Public \..
93b0: 20 20 20 20 45 61 67 6c 65 2e 5f 43 6f 6d 70 6f Eagle._Compo
93c0: 6e 65 6e 74 73 2e 50 72 69 76 61 74 65 2e 46 6f nents.Private.Fo
93d0: 72 6d 61 74 4f 70 73 20 44 61 74 61 62 61 73 65 rmatOps Database
93e0: 4f 62 6a 65 63 74 4e 61 6d 65 20 24 63 6f 6e 6e ObjectName $conn
93f0: 65 63 74 69 6f 6e 20 5c 0d 0a 20 20 20 20 20 20 ection \..
9400: 20 20 20 20 53 51 4c 69 74 65 43 6f 6e 6e 65 63 SQLiteConnec
9410: 74 69 6f 6e 20 5b 6f 62 6a 65 63 74 20 69 6e 76 tion [object inv
9420: 6f 6b 65 20 49 6e 74 65 72 70 72 65 74 65 72 2e oke Interpreter.
9430: 47 65 74 41 63 74 69 76 65 20 4e 65 78 74 49 64 GetActive NextId
9440: 5d 5d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 ]].... #..
9450: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 41 64 64 # NOTE: Add
9460: 20 74 68 65 20 64 61 74 61 62 61 73 65 20 63 6f the database co
9470: 6e 6e 65 63 74 69 6f 6e 20 70 72 6f 76 69 64 65 nnection provide
9480: 64 20 62 79 20 6f 75 72 20 63 61 6c 6c 65 72 20 d by our caller
9490: 74 6f 20 74 68 65 20 6c 69 73 74 0d 0a 20 20 20 to the list..
94a0: 20 20 20 23 20 20 20 20 20 20 20 6f 66 20 74 68 # of th
94b0: 6f 73 65 20 6b 6e 6f 77 6e 20 74 6f 20 74 68 65 ose known to the
94c0: 20 45 61 67 6c 65 20 69 6e 74 65 72 70 72 65 74 Eagle interpret
94d0: 65 72 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 er... #..
94e0: 20 20 20 20 6f 62 6a 65 63 74 20 69 6e 76 6f 6b object invok
94f0: 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 e -flags +NonPub
9500: 6c 69 63 20 49 6e 74 65 72 70 72 65 74 65 72 2e lic Interpreter.
9510: 47 65 74 41 63 74 69 76 65 2e 63 6f 6e 6e 65 63 GetActive.connec
9520: 74 69 6f 6e 73 20 41 64 64 20 5c 0d 0a 20 20 20 tions Add \..
9530: 20 20 20 20 20 20 20 24 64 62 20 24 63 6f 6e 6e $db $conn
9540: 65 63 74 69 6f 6e 0d 0a 20 20 20 20 7d 0d 0a 0c ection.. }...
9550: 0d 0a 20 20 20 20 70 72 6f 63 20 63 6c 65 61 6e .. proc clean
9560: 75 70 44 62 20 7b 20 66 69 6c 65 4e 61 6d 65 20 upDb { fileName
9570: 7b 76 61 72 4e 61 6d 65 20 64 62 7d 20 7b 63 6f {varName db} {co
9580: 6c 6c 65 63 74 20 74 72 75 65 7d 20 7b 71 75 61 llect true} {qua
9590: 6c 69 66 79 20 74 72 75 65 7d 0d 0a 20 20 20 20 lify true}..
95a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
95b0: 20 7b 64 65 6c 65 74 65 20 74 72 75 65 7d 20 7d {delete true} }
95c0: 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 {.. #..
95d0: 20 20 20 23 20 4e 4f 54 45 3a 20 41 74 74 65 6d # NOTE: Attem
95e0: 70 74 20 74 6f 20 66 6f 72 63 65 20 61 6c 6c 20 pt to force all
95f0: 70 65 6e 64 69 6e 67 20 22 67 61 72 62 61 67 65 pending "garbage
9600: 22 20 6f 62 6a 65 63 74 73 20 74 6f 20 62 65 20 " objects to be
9610: 63 6f 6c 6c 65 63 74 65 64 2c 0d 0a 20 20 20 20 collected,..
9620: 20 20 23 20 20 20 20 20 20 20 69 6e 63 6c 75 64 # includ
9630: 69 6e 67 20 53 51 4c 69 74 65 20 73 74 61 74 65 ing SQLite state
9640: 6d 65 6e 74 73 20 61 6e 64 20 62 61 63 6b 75 70 ments and backup
9650: 20 6f 62 6a 65 63 74 73 3b 20 74 68 69 73 20 73 objects; this s
9660: 68 6f 75 6c 64 20 61 6c 6c 6f 77 0d 0a 20 20 20 hould allow..
9670: 20 20 20 23 20 20 20 20 20 20 20 74 68 65 20 75 # the u
9680: 6e 64 65 72 6c 79 69 6e 67 20 64 61 74 61 62 61 nderlying databa
9690: 73 65 20 66 69 6c 65 20 74 6f 20 62 65 20 64 65 se file to be de
96a0: 6c 65 74 65 64 2e 0d 0a 20 20 20 20 20 20 23 0d leted... #.
96b0: 0a 20 20 20 20 20 20 69 66 20 7b 24 63 6f 6c 6c . if {$coll
96c0: 65 63 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 ect} then {..
96d0: 20 20 20 20 20 63 6f 6c 6c 65 63 74 47 61 72 62 collectGarb
96e0: 61 67 65 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e age $::test_chan
96f0: 6e 65 6c 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a nel.. }....
9700: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 #.. #
9710: 20 4e 4f 54 45 3a 20 52 65 66 65 72 20 74 6f 20 NOTE: Refer to
9720: 74 68 65 20 73 70 65 63 69 66 69 65 64 20 76 61 the specified va
9730: 72 69 61 62 6c 65 20 28 65 2e 67 2e 20 22 64 62 riable (e.g. "db
9740: 22 29 20 69 6e 20 74 68 65 20 63 6f 6e 74 65 78 ") in the contex
9750: 74 20 6f 66 20 6f 75 72 0d 0a 20 20 20 20 20 20 t of our..
9760: 23 20 20 20 20 20 20 20 63 61 6c 6c 65 72 2e 20 # caller.
9770: 20 54 68 65 20 68 61 6e 64 6c 65 20 74 6f 20 74 The handle to t
9780: 68 65 20 64 61 74 61 62 61 73 65 20 70 72 65 76 he database prev
9790: 69 6f 75 73 6c 79 20 6f 70 65 6e 65 64 20 62 79 iously opened by
97a0: 20 5b 73 65 74 75 70 44 62 5d 0d 0a 20 20 20 20 [setupDb]..
97b0: 20 20 23 20 20 20 20 20 20 20 73 68 6f 75 6c 64 # should
97c0: 20 62 65 20 73 74 6f 72 65 64 20 74 68 65 72 65 be stored there
97d0: 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 ... #..
97e0: 20 20 75 70 76 61 72 20 31 20 24 76 61 72 4e 61 upvar 1 $varNa
97f0: 6d 65 20 64 62 0d 0a 0d 0a 20 20 20 20 20 20 23 me db.... #
9800: 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 .. # NOTE:
9810: 43 6c 6f 73 65 20 74 68 65 20 63 6f 6e 6e 65 63 Close the connec
9820: 74 69 6f 6e 20 74 6f 20 74 68 65 20 64 61 74 61 tion to the data
9830: 62 61 73 65 20 6e 6f 77 2e 20 20 54 68 69 73 20 base now. This
9840: 73 68 6f 75 6c 64 20 61 6c 6c 6f 77 20 75 73 20 should allow us
9850: 74 6f 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 to.. #
9860: 20 20 64 65 6c 65 74 65 20 74 68 65 20 75 6e 64 delete the und
9870: 65 72 6c 79 69 6e 67 20 64 61 74 61 62 61 73 65 erlying database
9880: 20 66 69 6c 65 2e 0d 0a 20 20 20 20 20 20 23 0d file... #.
9890: 0a 20 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f . if {[info
98a0: 20 65 78 69 73 74 73 20 64 62 5d 20 26 26 20 5b exists db] && [
98b0: 63 61 74 63 68 20 7b 73 71 6c 20 63 6c 6f 73 65 catch {sql close
98c0: 20 24 64 62 7d 20 65 72 72 6f 72 5d 7d 20 74 68 $db} error]} th
98d0: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d en {.. #.
98e0: 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a . # NOTE:
98f0: 20 57 65 20 73 6f 6d 65 68 6f 77 20 66 61 69 6c We somehow fail
9900: 65 64 20 74 6f 20 63 6c 6f 73 65 20 74 68 65 20 ed to close the
9910: 64 61 74 61 62 61 73 65 2c 20 72 65 70 6f 72 74 database, report
9920: 20 77 68 79 2e 0d 0a 20 20 20 20 20 20 20 20 23 why... #
9930: 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20 .. tputs
9940: 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 $::test_channel
9950: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 [appendArgs \..
9960: 20 20 20 20 20 20 20 20 20 20 20 22 3d 3d 3d 3d "====
9970: 20 57 41 52 4e 49 4e 47 3a 20 66 61 69 6c 65 64 WARNING: failed
9980: 20 74 6f 20 63 6c 6f 73 65 20 64 61 74 61 62 61 to close databa
9990: 73 65 20 5c 22 22 20 24 64 62 20 22 5c 22 2c 20 se \"" $db "\",
99a0: 65 72 72 6f 72 3a 20 22 20 5c 0d 0a 20 20 20 20 error: " \..
99b0: 20 20 20 20 20 20 20 20 5c 6e 5c 74 20 24 65 72 \n\t $er
99c0: 72 6f 72 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 7d ror \n].. }
99d0: 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 .... #..
99e0: 20 20 20 23 20 4e 4f 54 45 3a 20 46 69 72 73 74 # NOTE: First
99f0: 2c 20 73 65 65 20 69 66 20 6f 75 72 20 63 61 6c , see if our cal
9a00: 6c 65 72 20 68 61 73 20 72 65 71 75 65 73 74 65 ler has requeste
9a10: 64 20 61 6e 20 69 6e 2d 6d 65 6d 6f 72 79 20 64 d an in-memory d
9a20: 61 74 61 62 61 73 65 2e 0d 0a 20 20 20 20 20 20 atabase...
9a30: 23 0d 0a 20 20 20 20 20 20 73 65 74 20 69 73 4d #.. set isM
9a40: 65 6d 6f 72 79 20 5b 69 73 4d 65 6d 6f 72 79 44 emory [isMemoryD
9a50: 62 20 24 66 69 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a b $fileName]....
9a60: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 #.. #
9a70: 20 4e 4f 54 45 3a 20 42 75 69 6c 64 20 74 68 65 NOTE: Build the
9a80: 20 66 75 6c 6c 20 70 61 74 68 20 74 6f 20 74 68 full path to th
9a90: 65 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 20 e database file
9aa0: 6e 61 6d 65 2e 20 20 46 6f 72 20 6e 6f 77 2c 20 name. For now,
9ab0: 61 6c 6c 20 74 65 73 74 0d 0a 20 20 20 20 20 20 all test..
9ac0: 23 20 20 20 20 20 20 20 64 61 74 61 62 61 73 65 # database
9ad0: 20 66 69 6c 65 73 20 61 72 65 20 73 74 6f 72 65 files are store
9ae0: 64 20 69 6e 20 74 68 65 20 74 65 6d 70 6f 72 61 d in the tempora
9af0: 72 79 20 64 69 72 65 63 74 6f 72 79 2e 0d 0a 20 ry directory...
9b00: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 #.. if
9b10: 20 7b 21 24 69 73 4d 65 6d 6f 72 79 20 26 26 20 {!$isMemory &&
9b20: 24 71 75 61 6c 69 66 79 7d 20 74 68 65 6e 20 7b $qualify} then {
9b30: 0d 0a 20 20 20 20 20 20 20 20 73 65 74 20 66 69 .. set fi
9b40: 6c 65 4e 61 6d 65 20 5b 66 69 6c 65 20 6a 6f 69 leName [file joi
9b50: 6e 20 5b 67 65 74 44 61 74 61 62 61 73 65 44 69 n [getDatabaseDi
9b60: 72 65 63 74 6f 72 79 5d 20 5b 66 69 6c 65 20 74 rectory] [file t
9b70: 61 69 6c 20 24 66 69 6c 65 4e 61 6d 65 5d 5d 0d ail $fileName]].
9b80: 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 . }....
9b90: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT
9ba0: 45 3a 20 43 68 65 63 6b 20 69 66 20 74 68 65 20 E: Check if the
9bb0: 66 69 6c 65 20 73 74 69 6c 6c 20 65 78 69 73 74 file still exist
9bc0: 73 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 s... #..
9bd0: 20 20 20 69 66 20 7b 21 24 69 73 4d 65 6d 6f 72 if {!$isMemor
9be0: 79 20 26 26 20 24 64 65 6c 65 74 65 20 26 26 20 y && $delete &&
9bf0: 5b 66 69 6c 65 20 65 78 69 73 74 73 20 24 66 69 [file exists $fi
9c00: 6c 65 4e 61 6d 65 5d 7d 20 74 68 65 6e 20 7b 0d leName]} then {.
9c10: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #..
9c20: 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 6b 69 70 # NOTE: Skip
9c30: 20 64 65 6c 65 74 69 6e 67 20 64 61 74 61 62 61 deleting databa
9c40: 73 65 20 66 69 6c 65 73 20 69 66 20 73 6f 6d 65 se files if some
9c50: 62 6f 64 79 20 73 65 74 73 20 74 68 65 20 67 6c body sets the gl
9c60: 6f 62 61 6c 0d 0a 20 20 20 20 20 20 20 20 23 20 obal.. #
9c70: 20 20 20 20 20 20 76 61 72 69 61 62 6c 65 20 74 variable t
9c80: 6f 20 70 72 65 76 65 6e 74 20 69 74 2e 0d 0a 20 o prevent it...
9c90: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
9ca0: 20 20 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 if {![info exi
9cb0: 73 74 73 20 3a 3a 6e 6f 28 63 6c 65 61 6e 75 70 sts ::no(cleanup
9cc0: 44 62 46 69 6c 65 29 5d 7d 20 74 68 65 6e 20 7b DbFile)]} then {
9cd0: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 .. #..
9ce0: 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a # NOTE:
9cf0: 20 41 74 74 65 6d 70 74 20 74 6f 20 64 65 6c 65 Attempt to dele
9d00: 74 65 20 74 68 65 20 74 65 73 74 20 64 61 74 61 te the test data
9d10: 62 61 73 65 20 66 69 6c 65 20 6e 6f 77 2e 0d 0a base file now...
9d20: 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 #..
9d30: 20 20 20 20 20 20 20 69 66 20 7b 5b 73 65 74 20 if {[set
9d40: 63 6f 64 65 20 5b 63 61 74 63 68 20 7b 66 69 6c code [catch {fil
9d50: 65 20 64 65 6c 65 74 65 20 24 66 69 6c 65 4e 61 e delete $fileNa
9d60: 6d 65 7d 20 65 72 72 6f 72 5d 5d 7d 20 74 68 65 me} error]]} the
9d70: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 n {..
9d80: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 #..
9d90: 23 20 4e 4f 54 45 3a 20 57 65 20 73 6f 6d 65 68 # NOTE: We someh
9da0: 6f 77 20 66 61 69 6c 65 64 20 74 6f 20 64 65 6c ow failed to del
9db0: 65 74 65 20 74 68 65 20 66 69 6c 65 2c 20 72 65 ete the file, re
9dc0: 70 6f 72 74 20 77 68 79 2e 0d 0a 20 20 20 20 20 port why...
9dd0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
9de0: 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 tputs $::t
9df0: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 est_channel [app
9e00: 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 endArgs \..
9e10: 20 20 20 20 20 20 20 20 20 20 20 22 3d 3d 3d 3d "====
9e20: 20 57 41 52 4e 49 4e 47 3a 20 66 61 69 6c 65 64 WARNING: failed
9e30: 20 74 6f 20 64 65 6c 65 74 65 20 64 61 74 61 62 to delete datab
9e40: 61 73 65 20 66 69 6c 65 20 5c 22 22 20 24 66 69 ase file \"" $fi
9e50: 6c 65 4e 61 6d 65 20 5c 0d 0a 20 20 20 20 20 20 leName \..
9e60: 20 20 20 20 20 20 20 20 20 20 22 5c 22 20 64 75 "\" du
9e70: 72 69 6e 67 20 63 6c 65 61 6e 75 70 2c 20 65 72 ring cleanup, er
9e80: 72 6f 72 3a 20 22 20 5c 6e 5c 74 20 24 65 72 72 ror: " \n\t $err
9e90: 6f 72 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 or \n]..
9ea0: 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 20 65 }.. } e
9eb0: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 lse {..
9ec0: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 #.. #
9ed0: 4e 4f 54 45 3a 20 53 68 6f 77 20 74 68 61 74 20 NOTE: Show that
9ee0: 77 65 20 73 6b 69 70 70 65 64 20 64 65 6c 65 74 we skipped delet
9ef0: 69 6e 67 20 74 68 65 20 66 69 6c 65 2e 0d 0a 20 ing the file...
9f00: 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 #..
9f10: 20 20 20 20 20 20 73 65 74 20 63 6f 64 65 20 30 set code 0
9f20: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70 .... tp
9f30: 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e uts $::test_chan
9f40: 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 nel [appendArgs
9f50: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 \..
9f60: 20 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e 47 3a 20 "==== WARNING:
9f70: 73 6b 69 70 70 65 64 20 64 65 6c 65 74 69 6e 67 skipped deleting
9f80: 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 20 5c database file \
9f90: 22 22 20 24 66 69 6c 65 4e 61 6d 65 20 5c 0d 0a "" $fileName \..
9fa0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5c "\
9fb0: 22 20 64 75 72 69 6e 67 20 63 6c 65 61 6e 75 70 " during cleanup
9fc0: 5c 6e 22 5d 0d 0a 20 20 20 20 20 20 20 20 7d 0d \n"].. }.
9fd0: 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d . } else {.
9fe0: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #..
9ff0: 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 65 20 # NOTE: The
a000: 66 69 6c 65 20 64 6f 65 73 20 6e 6f 74 20 65 78 file does not ex
a010: 69 73 74 2c 20 73 75 63 63 65 73 73 21 0d 0a 20 ist, success!..
a020: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
a030: 20 20 73 65 74 20 63 6f 64 65 20 30 0d 0a 20 20 set code 0..
a040: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 72 }.... r
a050: 65 74 75 72 6e 20 24 63 6f 64 65 0d 0a 20 20 20 eturn $code..
a060: 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 }..... proc
a070: 63 6c 65 61 6e 75 70 46 69 6c 65 20 7b 20 66 69 cleanupFile { fi
a080: 6c 65 4e 61 6d 65 20 7b 63 6f 6c 6c 65 63 74 20 leName {collect
a090: 74 72 75 65 7d 20 7b 66 6f 72 63 65 20 66 61 6c true} {force fal
a0a0: 73 65 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 20 23 se} } {.. #
a0b0: 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 .. # NOTE:
a0c0: 41 74 74 65 6d 70 74 20 74 6f 20 66 6f 72 63 65 Attempt to force
a0d0: 20 61 6c 6c 20 70 65 6e 64 69 6e 67 20 22 67 61 all pending "ga
a0e0: 72 62 61 67 65 22 20 6f 62 6a 65 63 74 73 20 74 rbage" objects t
a0f0: 6f 20 62 65 20 63 6f 6c 6c 65 63 74 65 64 2c 0d o be collected,.
a100: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 69 . # i
a110: 6e 63 6c 75 64 69 6e 67 20 53 51 4c 69 74 65 20 ncluding SQLite
a120: 73 74 61 74 65 6d 65 6e 74 73 20 61 6e 64 20 62 statements and b
a130: 61 63 6b 75 70 20 6f 62 6a 65 63 74 73 3b 20 74 ackup objects; t
a140: 68 69 73 20 73 68 6f 75 6c 64 20 61 6c 6c 6f 77 his should allow
a150: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. #
a160: 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 64 the underlying d
a170: 61 74 61 62 61 73 65 20 66 69 6c 65 20 74 6f 20 atabase file to
a180: 62 65 20 64 65 6c 65 74 65 64 2e 0d 0a 20 20 20 be deleted...
a190: 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b #.. if {
a1a0: 24 63 6f 6c 6c 65 63 74 7d 20 74 68 65 6e 20 7b $collect} then {
a1b0: 0d 0a 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 .. collec
a1c0: 74 47 61 72 62 61 67 65 20 24 3a 3a 74 65 73 74 tGarbage $::test
a1d0: 5f 63 68 61 6e 6e 65 6c 0d 0a 20 20 20 20 20 20 _channel..
a1e0: 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 }.... #..
a1f0: 20 20 20 20 23 20 4e 4f 54 45 3a 20 43 68 65 63 # NOTE: Chec
a200: 6b 20 69 66 20 74 68 65 20 66 69 6c 65 20 73 74 k if the file st
a210: 69 6c 6c 20 65 78 69 73 74 73 2e 0d 0a 20 20 20 ill exists...
a220: 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b #.. if {
a230: 5b 66 69 6c 65 20 65 78 69 73 74 73 20 24 66 69 [file exists $fi
a240: 6c 65 4e 61 6d 65 5d 7d 20 74 68 65 6e 20 7b 0d leName]} then {.
a250: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #..
a260: 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 6b 69 70 # NOTE: Skip
a270: 20 64 65 6c 65 74 69 6e 67 20 74 65 73 74 20 66 deleting test f
a280: 69 6c 65 73 20 69 66 20 73 6f 6d 65 62 6f 64 79 iles if somebody
a290: 20 73 65 74 73 20 74 68 65 20 67 6c 6f 62 61 6c sets the global
a2a0: 20 76 61 72 69 61 62 6c 65 0d 0a 20 20 20 20 20 variable..
a2b0: 20 20 20 23 20 20 20 20 20 20 20 74 6f 20 70 72 # to pr
a2c0: 65 76 65 6e 74 20 69 74 2e 0d 0a 20 20 20 20 20 event it...
a2d0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 69 66 #.. if
a2e0: 20 7b 24 66 6f 72 63 65 20 7c 7c 20 21 5b 69 6e {$force || ![in
a2f0: 66 6f 20 65 78 69 73 74 73 20 3a 3a 6e 6f 28 63 fo exists ::no(c
a300: 6c 65 61 6e 75 70 46 69 6c 65 29 5d 7d 20 74 68 leanupFile)]} th
a310: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 en {..
a320: 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e #.. # N
a330: 4f 54 45 3a 20 41 74 74 65 6d 70 74 20 74 6f 20 OTE: Attempt to
a340: 64 65 6c 65 74 65 20 74 68 65 20 74 65 73 74 20 delete the test
a350: 66 69 6c 65 20 6e 6f 77 2e 0d 0a 20 20 20 20 20 file now...
a360: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #..
a370: 20 20 69 66 20 7b 5b 73 65 74 20 63 6f 64 65 20 if {[set code
a380: 5b 63 61 74 63 68 20 7b 66 69 6c 65 20 64 65 6c [catch {file del
a390: 65 74 65 20 24 66 69 6c 65 4e 61 6d 65 7d 20 65 ete $fileName} e
a3a0: 72 72 6f 72 5d 5d 7d 20 74 68 65 6e 20 7b 0d 0a rror]]} then {..
a3b0: 20 20 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 #..
a3c0: 20 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 # NOT
a3d0: 45 3a 20 57 65 20 73 6f 6d 65 68 6f 77 20 66 61 E: We somehow fa
a3e0: 69 6c 65 64 20 74 6f 20 64 65 6c 65 74 65 20 74 iled to delete t
a3f0: 68 65 20 66 69 6c 65 2c 20 72 65 70 6f 72 74 20 he file, report
a400: 77 68 79 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 why...
a410: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 20 #..
a420: 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 tputs $::test_c
a430: 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 hannel [appendAr
a440: 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 gs \..
a450: 20 20 20 20 20 20 22 3d 3d 3d 3d 20 57 41 52 4e "==== WARN
a460: 49 4e 47 3a 20 66 61 69 6c 65 64 20 74 6f 20 64 ING: failed to d
a470: 65 6c 65 74 65 20 74 65 73 74 20 66 69 6c 65 20 elete test file
a480: 5c 22 22 20 24 66 69 6c 65 4e 61 6d 65 20 5c 0d \"" $fileName \.
a490: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
a4a0: 20 22 5c 22 20 64 75 72 69 6e 67 20 63 6c 65 61 "\" during clea
a4b0: 6e 75 70 2c 20 65 72 72 6f 72 3a 20 22 20 5c 6e nup, error: " \n
a4c0: 5c 74 20 24 65 72 72 6f 72 20 5c 6e 5d 0d 0a 20 \t $error \n]..
a4d0: 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 }..
a4e0: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 } else {..
a4f0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #..
a500: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 68 6f # NOTE: Sho
a510: 77 20 74 68 61 74 20 77 65 20 73 6b 69 70 70 65 w that we skippe
a520: 64 20 64 65 6c 65 74 69 6e 67 20 74 68 65 20 66 d deleting the f
a530: 69 6c 65 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 ile...
a540: 23 0d 0a 20 20 20 20 20 20 20 20 20 20 73 65 74 #.. set
a550: 20 63 6f 64 65 20 30 0d 0a 0d 0a 20 20 20 20 20 code 0....
a560: 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 tputs $::te
a570: 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 st_channel [appe
a580: 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 ndArgs \..
a590: 20 20 20 20 20 20 20 20 22 3d 3d 3d 3d 20 57 41 "==== WA
a5a0: 52 4e 49 4e 47 3a 20 73 6b 69 70 70 65 64 20 64 RNING: skipped d
a5b0: 65 6c 65 74 69 6e 67 20 74 65 73 74 20 66 69 6c eleting test fil
a5c0: 65 20 5c 22 22 20 24 66 69 6c 65 4e 61 6d 65 20 e \"" $fileName
a5d0: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 \..
a5e0: 20 22 5c 22 20 64 75 72 69 6e 67 20 63 6c 65 61 "\" during clea
a5f0: 6e 75 70 5c 6e 22 5d 0d 0a 20 20 20 20 20 20 20 nup\n"]..
a600: 20 7d 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 }.. } else
a610: 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 {.. #..
a620: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 # NOTE: T
a630: 68 65 20 66 69 6c 65 20 64 6f 65 73 20 6e 6f 74 he file does not
a640: 20 65 78 69 73 74 2c 20 73 75 63 63 65 73 73 21 exist, success!
a650: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #..
a660: 20 20 20 20 20 73 65 74 20 63 6f 64 65 20 30 0d set code 0.
a670: 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 . }....
a680: 20 20 72 65 74 75 72 6e 20 24 63 6f 64 65 0d 0a return $code..
a690: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 }..... pr
a6a0: 6f 63 20 63 6f 6c 6c 65 63 74 47 61 72 62 61 67 oc collectGarbag
a6b0: 65 20 7b 20 63 68 61 6e 6e 65 6c 20 7b 6d 69 6c e { channel {mil
a6c0: 6c 69 73 65 63 6f 6e 64 73 20 31 30 30 30 7d 20 liseconds 1000}
a6d0: 7b 71 75 69 65 74 20 74 72 75 65 7d 20 7d 20 7b {quiet true} } {
a6e0: 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 .. if {[cat
a6f0: 63 68 20 7b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b ch {object invok
a700: 65 20 47 43 20 47 65 74 54 6f 74 61 6c 4d 65 6d e GC GetTotalMem
a710: 6f 72 79 20 66 61 6c 73 65 7d 20 72 65 73 75 6c ory false} resul
a720: 74 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d t] == 0} then {.
a730: 0a 20 20 20 20 20 20 20 20 69 66 20 7b 21 24 71 . if {!$q
a740: 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 uiet} then {..
a750: 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63 tputs $c
a760: 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 hannel [appendAr
a770: 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 gs \..
a780: 20 20 20 20 22 2d 2d 2d 2d 20 6d 65 6d 6f 72 79 "---- memory
a790: 20 69 6e 20 75 73 65 20 62 79 20 74 68 65 20 43 in use by the C
a7a0: 4c 52 20 62 65 66 6f 72 65 20 63 6f 6c 6c 65 63 LR before collec
a7b0: 74 69 6f 6e 2e 2e 2e 20 22 20 5c 0d 0a 20 20 20 tion... " \..
a7c0: 20 20 20 20 20 20 20 20 20 20 20 24 72 65 73 75 $resu
a7d0: 6c 74 20 22 20 62 79 74 65 73 5c 6e 22 5d 0d 0a lt " bytes\n"]..
a7e0: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 }..
a7f0: 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 } else {..
a800: 20 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 tputs $channe
a810: 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d l [appendArgs \.
a820: 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 3d 3d . "==
a830: 3d 3d 20 57 41 52 4e 49 4e 47 3a 20 66 61 69 6c == WARNING: fail
a840: 65 64 20 74 6f 20 67 65 74 20 43 4c 52 20 6d 65 ed to get CLR me
a850: 6d 6f 72 79 20 75 73 61 67 65 2c 20 65 72 72 6f mory usage, erro
a860: 72 3a 20 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 r: " \..
a870: 20 20 20 20 5c 6e 5c 74 20 24 72 65 73 75 6c 74 \n\t $result
a880: 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d \n].. }...
a890: 0a 20 20 20 20 20 20 23 23 23 23 23 23 23 23 23 . #########
a8a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
a8b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
a8c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
a8d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
a8e0: 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 .... #..
a8f0: 20 20 20 23 20 4e 4f 54 45 3a 20 52 65 70 65 61 # NOTE: Repea
a900: 74 65 64 6c 79 20 61 74 74 65 6d 70 74 20 74 6f tedly attempt to
a910: 20 63 6f 6c 6c 65 63 74 20 67 61 72 62 61 67 65 collect garbage
a920: 20 75 6e 74 69 6c 20 74 68 65 20 61 6c 6c 6f 74 until the allot
a930: 74 65 64 20 6e 75 6d 62 65 72 0d 0a 20 20 20 20 ted number..
a940: 20 20 23 20 20 20 20 20 20 20 6f 66 20 6d 69 6c # of mil
a950: 6c 69 73 65 63 6f 6e 64 73 20 68 61 73 20 65 6c liseconds has el
a960: 61 70 73 65 64 2e 20 20 41 6c 77 61 79 73 20 61 apsed. Always a
a970: 74 74 65 6d 70 74 20 74 6f 20 63 6f 6c 6c 65 63 ttempt to collec
a980: 74 20 67 61 72 62 61 67 65 0d 0a 20 20 20 20 20 t garbage..
a990: 20 23 20 20 20 20 20 20 20 61 74 20 6c 65 61 73 # at leas
a9a0: 74 20 6f 6e 63 65 2e 0d 0a 20 20 20 20 20 20 23 t once... #
a9b0: 0d 0a 20 20 20 20 20 20 73 65 74 20 73 74 61 72 .. set star
a9c0: 74 20 5b 63 6c 6f 63 6b 20 73 65 63 6f 6e 64 73 t [clock seconds
a9d0: 5d 0d 0a 20 20 20 20 20 20 73 65 74 20 73 74 6f ].. set sto
a9e0: 70 20 5b 65 78 70 72 20 7b 24 73 74 61 72 74 20 p [expr {$start
a9f0: 2b 20 28 24 6d 69 6c 6c 69 73 65 63 6f 6e 64 73 + ($milliseconds
aa00: 20 2f 20 31 30 30 30 29 7d 5d 0d 0a 0d 0a 20 20 / 1000)}]....
aa10: 20 20 20 20 64 6f 20 7b 0d 0a 20 20 20 20 20 20 do {..
aa20: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e #.. # N
aa30: 4f 54 45 3a 20 41 74 74 65 6d 70 74 20 74 6f 20 OTE: Attempt to
aa40: 66 6f 72 63 65 20 61 20 66 75 6c 6c 20 67 61 72 force a full gar
aa50: 62 61 67 65 20 63 6f 6c 6c 65 63 74 69 6f 6e 20 bage collection
aa60: 6e 6f 77 2e 20 20 52 65 70 6f 72 74 20 61 6e 79 now. Report any
aa70: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 .. #
aa80: 20 20 65 72 72 6f 72 20 74 68 61 74 20 69 73 20 error that is
aa90: 65 6e 63 6f 75 6e 74 65 72 65 64 20 69 66 20 77 encountered if w
aaa0: 65 20 66 61 69 6c 2e 0d 0a 20 20 20 20 20 20 20 e fail...
aab0: 20 23 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b #.. if {
aac0: 5b 63 61 74 63 68 20 7b 6f 62 6a 65 63 74 20 69 [catch {object i
aad0: 6e 76 6f 6b 65 20 47 43 20 47 65 74 54 6f 74 61 nvoke GC GetTota
aae0: 6c 4d 65 6d 6f 72 79 20 74 72 75 65 7d 20 65 72 lMemory true} er
aaf0: 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 ror]} then {..
ab00: 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63 tputs $c
ab10: 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 hannel [appendAr
ab20: 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 gs \..
ab30: 20 20 20 20 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e "==== WARNIN
ab40: 47 3a 20 66 61 69 6c 65 64 20 66 75 6c 6c 20 67 G: failed full g
ab50: 61 72 62 61 67 65 20 63 6f 6c 6c 65 63 74 69 6f arbage collectio
ab60: 6e 2c 20 65 72 72 6f 72 3a 20 22 20 5c 0d 0a 20 n, error: " \..
ab70: 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 6e 5c \n\
ab80: 74 20 24 65 72 72 6f 72 20 5c 6e 5d 0d 0a 20 20 t $error \n]..
ab90: 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 }....
aba0: 20 20 20 73 65 74 20 6e 6f 77 20 5b 63 6c 6f 63 set now [cloc
abb0: 6b 20 73 65 63 6f 6e 64 73 5d 0d 0a 20 20 20 20 k seconds]..
abc0: 20 20 7d 20 77 68 69 6c 65 20 7b 24 73 74 61 72 } while {$star
abd0: 74 20 3c 3d 20 24 6e 6f 77 20 26 26 20 24 6e 6f t <= $now && $no
abe0: 77 20 3c 20 24 73 74 6f 70 7d 0d 0a 0d 0a 20 20 w < $stop}....
abf0: 20 20 20 20 23 23 23 23 23 23 23 23 23 23 23 23 ############
ac00: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
ac10: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
ac20: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
ac30: 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d #############...
ac40: 0a 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 . if {[catc
ac50: 68 20 7b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 h {object invoke
ac60: 20 47 43 20 47 65 74 54 6f 74 61 6c 4d 65 6d 6f GC GetTotalMemo
ac70: 72 79 20 66 61 6c 73 65 7d 20 72 65 73 75 6c 74 ry false} result
ac80: 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a ] == 0} then {..
ac90: 20 20 20 20 20 20 20 20 69 66 20 7b 21 24 71 75 if {!$qu
aca0: 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 iet} then {..
acb0: 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68 tputs $ch
acc0: 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 annel [appendArg
acd0: 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 s \..
ace0: 20 20 20 22 2d 2d 2d 2d 20 6d 65 6d 6f 72 79 20 "---- memory
acf0: 69 6e 20 75 73 65 20 62 79 20 74 68 65 20 43 4c in use by the CL
ad00: 52 20 61 66 74 65 72 20 63 6f 6c 6c 65 63 74 69 R after collecti
ad10: 6f 6e 2e 2e 2e 20 22 20 5c 0d 0a 20 20 20 20 20 on... " \..
ad20: 20 20 20 20 20 20 20 20 20 24 72 65 73 75 6c 74 $result
ad30: 20 22 20 62 79 74 65 73 5c 6e 22 5d 0d 0a 20 20 " bytes\n"]..
ad40: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d }.. }
ad50: 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 else {..
ad60: 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 tputs $channel
ad70: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 [appendArgs \..
ad80: 20 20 20 20 20 20 20 20 20 20 20 22 3d 3d 3d 3d "====
ad90: 20 57 41 52 4e 49 4e 47 3a 20 66 61 69 6c 65 64 WARNING: failed
ada0: 20 74 6f 20 67 65 74 20 43 4c 52 20 6d 65 6d 6f to get CLR memo
adb0: 72 79 20 75 73 61 67 65 2c 20 65 72 72 6f 72 3a ry usage, error:
adc0: 20 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 " \..
add0: 20 20 5c 6e 5c 74 20 24 72 65 73 75 6c 74 20 5c \n\t $result \
ade0: 6e 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 n].. }..
adf0: 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 }..... proc
ae00: 67 65 74 53 51 4c 69 74 65 48 61 6e 64 6c 65 43 getSQLiteHandleC
ae10: 6f 75 6e 74 73 20 7b 20 63 68 61 6e 6e 65 6c 20 ounts { channel
ae20: 7b 71 75 69 65 74 20 66 61 6c 73 65 7d 20 7d 20 {quiet false} }
ae30: 7b 0d 0a 20 20 20 20 20 20 73 65 74 20 72 65 73 {.. set res
ae40: 75 6c 74 20 5b 6c 69 73 74 5d 0d 0a 0d 0a 20 20 ult [list]....
ae50: 20 20 20 20 69 66 20 7b 5b 68 61 76 65 43 6f 6e if {[haveCon
ae60: 73 74 72 61 69 6e 74 20 5c 0d 0a 20 20 20 20 20 straint \..
ae70: 20 20 20 20 20 20 20 20 20 64 65 66 69 6e 65 43 defineC
ae80: 6f 6e 73 74 61 6e 74 2e 53 79 73 74 65 6d 2e 44 onstant.System.D
ae90: 61 74 61 2e 53 51 4c 69 74 65 2e 43 4f 55 4e 54 ata.SQLite.COUNT
aea0: 5f 48 41 4e 44 4c 45 5d 7d 20 74 68 65 6e 20 7b _HANDLE]} then {
aeb0: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #..
aec0: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 41 64 64 # NOTE: Add
aed0: 20 65 61 63 68 20 63 72 69 74 69 63 61 6c 20 68 each critical h
aee0: 61 6e 64 6c 65 20 63 6f 75 6e 74 20 74 6f 20 74 andle count to t
aef0: 68 65 20 72 65 73 75 6c 74 69 6e 67 20 6c 69 73 he resulting lis
af00: 74 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 t... #..
af10: 20 20 20 20 20 20 20 66 6f 72 65 61 63 68 20 6e foreach n
af20: 61 6d 65 20 5b 6c 69 73 74 20 63 6f 6e 6e 65 63 ame [list connec
af30: 74 69 6f 6e 43 6f 75 6e 74 20 73 74 61 74 65 6d tionCount statem
af40: 65 6e 74 43 6f 75 6e 74 20 62 61 63 6b 75 70 43 entCount backupC
af50: 6f 75 6e 74 5d 20 7b 0d 0a 20 20 20 20 20 20 20 ount] {..
af60: 20 20 20 73 65 74 20 76 61 6c 75 65 20 5b 6f 62 set value [ob
af70: 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d 66 6c 61 ject invoke -fla
af80: 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 5c 0d gs +NonPublic \.
af90: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 . S
afa0: 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 ystem.Data.SQLit
afb0: 65 2e 55 6e 73 61 66 65 4e 61 74 69 76 65 4d 65 e.UnsafeNativeMe
afc0: 74 68 6f 64 73 20 24 6e 61 6d 65 5d 0d 0a 0d 0a thods $name]....
afd0: 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 21 24 if {!$
afe0: 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 quiet} then {..
aff0: 20 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 tputs
b000: 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e $channel [appen
b010: 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 dArgs \..
b020: 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 63 "---- c
b030: 72 69 74 69 63 61 6c 20 68 61 6e 64 6c 65 20 63 ritical handle c
b040: 6f 75 6e 74 20 5c 22 22 20 24 6e 61 6d 65 20 22 ount \"" $name "
b050: 5c 22 20 69 73 20 22 20 24 76 61 6c 75 65 20 5c \" is " $value \
b060: 6e 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d n].. }.
b070: 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 6c 61 70 ... lap
b080: 70 65 6e 64 20 72 65 73 75 6c 74 20 24 76 61 6c pend result $val
b090: 75 65 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 ue.. }..
b0a0: 20 20 20 20 20 7d 20 65 6c 73 65 69 66 20 7b 21 } elseif {!
b0b0: 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a $quiet} then {..
b0c0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #..
b0d0: 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 65 20 61 # NOTE: The a
b0e0: 63 74 75 61 6c 20 68 61 6e 64 6c 65 20 63 6f 75 ctual handle cou
b0f0: 6e 74 73 20 61 72 65 20 6e 6f 74 20 61 76 61 69 nts are not avai
b100: 6c 61 62 6c 65 3b 20 74 68 65 72 65 66 6f 72 65 lable; therefore
b110: 2c 20 6a 75 73 74 0d 0a 20 20 20 20 20 20 20 20 , just..
b120: 23 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 61 # return a
b130: 6e 20 65 6d 70 74 79 20 6c 69 73 74 2e 0d 0a 20 n empty list...
b140: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
b150: 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c tputs $channel
b160: 20 22 2d 2d 2d 2d 20 63 72 69 74 69 63 61 6c 20 "---- critical
b170: 68 61 6e 64 6c 65 20 63 6f 75 6e 74 73 20 75 6e handle counts un
b180: 61 76 61 69 6c 61 62 6c 65 5c 6e 22 0d 0a 20 20 available\n"..
b190: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 72 }.... r
b1a0: 65 74 75 72 6e 20 24 72 65 73 75 6c 74 0d 0a 20 eturn $result..
b1b0: 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f }..... pro
b1c0: 63 20 73 68 75 74 64 6f 77 6e 53 51 4c 69 74 65 c shutdownSQLite
b1d0: 20 7b 20 63 68 61 6e 6e 65 6c 20 7b 66 6f 72 63 { channel {forc
b1e0: 65 20 66 61 6c 73 65 7d 20 7b 71 75 69 65 74 20 e false} {quiet
b1f0: 66 61 6c 73 65 7d 20 7d 20 7b 0d 0a 20 20 20 20 false} } {..
b200: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT
b210: 45 3a 20 4d 61 6b 65 20 73 75 72 65 20 74 68 61 E: Make sure tha
b220: 74 20 53 51 4c 69 74 65 20 63 6f 72 65 20 6c 69 t SQLite core li
b230: 62 72 61 72 79 20 69 73 20 63 6f 6d 70 6c 65 74 brary is complet
b240: 65 6c 79 20 73 68 75 74 64 6f 77 6e 2e 20 20 54 ely shutdown. T
b250: 68 69 73 0d 0a 20 20 20 20 20 20 23 20 20 20 20 his.. #
b260: 20 20 20 69 73 20 75 73 65 64 20 62 79 20 74 65 is used by te
b270: 73 74 73 20 74 68 61 74 20 63 68 61 6e 67 65 20 sts that change
b280: 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 6f 70 configuration op
b290: 74 69 6f 6e 73 20 61 6e 64 2f 6f 72 20 74 68 6f tions and/or tho
b2a0: 73 65 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 se.. #
b2b0: 20 20 74 68 61 74 20 6e 65 65 64 20 74 6f 20 6d that need to m
b2c0: 61 6b 65 20 73 75 72 65 20 6c 6f 67 67 69 6e 67 ake sure logging
b2d0: 20 69 73 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 is initialized
b2e0: 28 69 2e 65 2e 20 6a 75 73 74 20 69 6e 20 63 61 (i.e. just in ca
b2f0: 73 65 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 se.. #
b300: 20 20 74 68 65 20 53 51 4c 69 74 65 20 63 6f 72 the SQLite cor
b310: 65 20 6c 69 62 72 61 72 79 20 77 61 73 20 69 6e e library was in
b320: 69 74 69 61 6c 69 7a 65 64 20 69 6e 20 74 68 65 itialized in the
b330: 20 70 72 6f 63 65 73 73 20 70 72 69 6f 72 20 74 process prior t
b340: 6f 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 o.. #
b350: 20 74 68 65 20 53 51 4c 69 74 65 4c 6f 67 20 63 the SQLiteLog c
b360: 6c 61 73 73 20 62 65 69 6e 67 20 61 62 6c 65 20 lass being able
b370: 74 6f 20 73 65 74 75 70 20 69 74 73 20 6c 6f 67 to setup its log
b380: 67 69 6e 67 20 63 61 6c 6c 62 61 63 6b 29 2e 0d ging callback)..
b390: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 4e . # N
b3a0: 6f 72 6d 61 6c 6c 79 2c 20 74 68 69 73 20 73 68 ormally, this sh
b3b0: 6f 75 6c 64 20 6f 6e 6c 79 20 62 65 20 70 65 72 ould only be per
b3c0: 66 6f 72 6d 65 64 20 69 66 20 53 51 4c 69 74 65 formed if SQLite
b3d0: 20 69 73 20 6c 6f 61 64 65 64 20 61 6e 64 0d 0a is loaded and..
b3e0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 72 65 # re
b3f0: 61 64 79 20 66 6f 72 20 75 73 65 20 62 79 20 74 ady for use by t
b400: 68 65 20 74 65 73 74 20 73 75 69 74 65 2e 0d 0a he test suite...
b410: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 #.. i
b420: 66 20 7b 24 66 6f 72 63 65 20 7c 7c 20 5b 69 73 f {$force || [is
b430: 53 51 4c 69 74 65 52 65 61 64 79 5d 7d 20 74 68 SQLiteReady]} th
b440: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d en {.. #.
b450: 0a 20 20 20 20 20 20 20 20 23 20 42 55 47 46 49 . # BUGFI
b460: 58 3a 20 42 65 66 6f 72 65 20 63 61 6c 6c 69 6e X: Before callin
b470: 67 20 74 68 65 20 6e 61 74 69 76 65 20 73 68 75 g the native shu
b480: 74 64 6f 77 6e 20 66 75 6e 63 74 69 6f 6e 2c 20 tdown function,
b490: 6d 61 6b 65 20 73 75 72 65 20 62 6f 74 68 0d 0a make sure both..
b4a0: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 #
b4b0: 20 20 6f 66 20 74 68 65 20 50 52 41 47 4d 41 20 of the PRAGMA
b4c0: 72 65 6c 61 74 65 64 20 64 69 72 65 63 74 6f 72 related director
b4d0: 79 20 6e 61 6d 65 73 20 61 72 65 20 66 72 65 65 y names are free
b4e0: 64 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 d... #..
b4f0: 20 20 20 20 20 20 20 63 68 65 63 6b 46 6f 72 53 checkForS
b500: 51 4c 69 74 65 44 69 72 65 63 74 6f 72 69 65 73 QLiteDirectories
b510: 20 24 63 68 61 6e 6e 65 6c 20 74 72 75 65 0d 0a $channel true..
b520: 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b 63 .. if {[c
b530: 61 74 63 68 20 7b 6f 62 6a 65 63 74 20 69 6e 76 atch {object inv
b540: 6f 6b 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 oke -flags +NonP
b550: 75 62 6c 69 63 20 5c 0d 0a 20 20 20 20 20 20 20 ublic \..
b560: 20 20 20 20 20 20 20 20 20 53 79 73 74 65 6d 2e System.
b570: 44 61 74 61 2e 53 51 4c 69 74 65 2e 55 6e 73 61 Data.SQLite.Unsa
b580: 66 65 4e 61 74 69 76 65 4d 65 74 68 6f 64 73 20 feNativeMethods
b590: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 \..
b5a0: 20 20 20 73 71 6c 69 74 65 33 5f 73 68 75 74 64 sqlite3_shutd
b5b0: 6f 77 6e 7d 20 72 65 73 75 6c 74 5d 20 3d 3d 20 own} result] ==
b5c0: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 0} then {..
b5d0: 20 20 20 20 20 69 66 20 7b 21 24 71 75 69 65 74 if {!$quiet
b5e0: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {..
b5f0: 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68 61 tputs $cha
b600: 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 nnel [appendArgs
b610: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \..
b620: 20 20 20 20 22 2d 2d 2d 2d 20 63 61 6c 6c 20 73 "---- call s
b630: 71 6c 69 74 65 33 5f 73 68 75 74 64 6f 77 6e 28 qlite3_shutdown(
b640: 29 2e 2e 2e 20 6f 6b 3a 20 22 20 24 72 65 73 75 )... ok: " $resu
b650: 6c 74 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 lt \n]..
b660: 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 20 65 }.. } e
b670: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 lse {..
b680: 20 69 66 20 7b 21 24 71 75 69 65 74 7d 20 74 68 if {!$quiet} th
b690: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 en {..
b6a0: 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c tputs $channel
b6b0: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a [appendArgs \..
b6c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
b6d0: 22 2d 2d 2d 2d 20 63 61 6c 6c 20 73 71 6c 69 74 "---- call sqlit
b6e0: 65 33 5f 73 68 75 74 64 6f 77 6e 28 29 2e 2e 2e e3_shutdown()...
b6f0: 20 65 72 72 6f 72 3a 20 22 20 5c 6e 5c 74 20 24 error: " \n\t $
b700: 72 65 73 75 6c 74 20 5c 6e 5d 0d 0a 20 20 20 20 result \n]..
b710: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 }..
b720: 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 }.. }..
b730: 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 }..... proc
b740: 72 65 70 6f 72 74 53 51 4c 69 74 65 52 65 73 6f reportSQLiteReso
b750: 75 72 63 65 73 20 7b 20 63 68 61 6e 6e 65 6c 20 urces { channel
b760: 7b 71 75 69 65 74 20 66 61 6c 73 65 7d 20 7b 63 {quiet false} {c
b770: 6f 6c 6c 65 63 74 20 74 72 75 65 7d 20 7d 20 7b ollect true} } {
b780: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #..
b790: 20 23 20 4e 4f 54 45 3a 20 53 6b 69 70 20 61 6c # NOTE: Skip al
b7a0: 6c 20 6f 75 74 70 75 74 20 69 66 20 77 65 20 61 l output if we a
b7b0: 72 65 20 72 75 6e 6e 69 6e 67 20 69 6e 20 22 71 re running in "q
b7c0: 75 69 65 74 22 20 6d 6f 64 65 2e 0d 0a 20 20 20 uiet" mode...
b7d0: 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b #.. if {
b7e0: 21 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d !$quiet} then {.
b7f0: 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 . tputs $
b800: 63 68 61 6e 6e 65 6c 20 22 2d 2d 2d 2d 20 63 75 channel "---- cu
b810: 72 72 65 6e 74 20 6d 65 6d 6f 72 79 20 69 6e 20 rrent memory in
b820: 75 73 65 20 62 79 20 53 51 4c 69 74 65 2e 2e 2e use by SQLite...
b830: 20 22 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 ".. }....
b840: 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 if {[catch
b850: 7b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d {object invoke -
b860: 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 flags +NonPublic
b870: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \..
b880: 20 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 System.Data.SQ
b890: 4c 69 74 65 2e 55 6e 73 61 66 65 4e 61 74 69 76 Lite.UnsafeNativ
b8a0: 65 4d 65 74 68 6f 64 73 20 5c 0d 0a 20 20 20 20 eMethods \..
b8b0: 20 20 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 sqlite
b8c0: 33 5f 6d 65 6d 6f 72 79 5f 75 73 65 64 7d 20 6d 3_memory_used} m
b8d0: 65 6d 6f 72 79 5d 20 3d 3d 20 30 7d 20 74 68 65 emory] == 0} the
b8e0: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 69 66 20 n {.. if
b8f0: 7b 21 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b {!$quiet} then {
b900: 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70 75 74 .. tput
b910: 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 s $channel [appe
b920: 6e 64 41 72 67 73 20 24 6d 65 6d 6f 72 79 20 22 ndArgs $memory "
b930: 20 62 79 74 65 73 5c 6e 22 5d 0d 0a 20 20 20 20 bytes\n"]..
b940: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 20 65 }.. } e
b950: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 lse {.. #
b960: 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 .. # NOTE
b970: 3a 20 4d 61 79 62 65 20 74 68 65 20 53 51 4c 69 : Maybe the SQLi
b980: 74 65 20 63 6f 72 65 20 6c 69 62 72 61 72 79 20 te core library
b990: 69 73 20 75 6e 61 76 61 69 6c 61 62 6c 65 3f 0d is unavailable?.
b9a0: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #..
b9b0: 20 20 20 20 73 65 74 20 6d 65 6d 6f 72 79 20 75 set memory u
b9c0: 6e 6b 6e 6f 77 6e 0d 0a 0d 0a 20 20 20 20 20 20 nknown....
b9d0: 20 20 69 66 20 7b 21 24 71 75 69 65 74 7d 20 74 if {!$quiet} t
b9e0: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 hen {..
b9f0: 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 tputs $channel
ba00: 5b 61 70 70 65 6e 64 41 72 67 73 20 24 6d 65 6d [appendArgs $mem
ba10: 6f 72 79 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 ory \n]..
ba20: 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 }.. }....
ba30: 20 20 20 20 20 73 65 74 20 72 65 73 75 6c 74 20 set result
ba40: 24 6d 65 6d 6f 72 79 3b 20 23 20 4e 4f 54 45 3a $memory; # NOTE:
ba50: 20 52 65 74 75 72 6e 20 6d 65 6d 6f 72 79 20 69 Return memory i
ba60: 6e 2d 75 73 65 20 74 6f 20 6f 75 72 20 63 61 6c n-use to our cal
ba70: 6c 65 72 2e 0d 0a 0d 0a 20 20 20 20 20 20 69 66 ler..... if
ba80: 20 7b 21 24 71 75 69 65 74 7d 20 74 68 65 6e 20 {!$quiet} then
ba90: 7b 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 {.. tputs
baa0: 20 24 63 68 61 6e 6e 65 6c 20 22 2d 2d 2d 2d 20 $channel "----
bab0: 6d 61 78 69 6d 75 6d 20 6d 65 6d 6f 72 79 20 69 maximum memory i
bac0: 6e 20 75 73 65 20 62 79 20 53 51 4c 69 74 65 2e n use by SQLite.
bad0: 2e 2e 20 22 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d .. ".. }...
bae0: 0a 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 . if {[catc
baf0: 68 20 7b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 h {object invoke
bb00: 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 6c -flags +NonPubl
bb10: 69 63 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 ic \..
bb20: 20 20 20 20 53 79 73 74 65 6d 2e 44 61 74 61 2e System.Data.
bb30: 53 51 4c 69 74 65 2e 55 6e 73 61 66 65 4e 61 74 SQLite.UnsafeNat
bb40: 69 76 65 4d 65 74 68 6f 64 73 20 5c 0d 0a 20 20 iveMethods \..
bb50: 20 20 20 20 20 20 20 20 20 20 20 20 73 71 6c 69 sqli
bb60: 74 65 33 5f 6d 65 6d 6f 72 79 5f 68 69 67 68 77 te3_memory_highw
bb70: 61 74 65 72 20 30 7d 20 6d 65 6d 6f 72 79 5d 20 ater 0} memory]
bb80: 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 == 0} then {..
bb90: 20 20 20 20 20 20 69 66 20 7b 21 24 71 75 69 65 if {!$quie
bba0: 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 t} then {..
bbb0: 20 20 20 20 20 74 70 75 74 73 20 24 63 68 61 6e tputs $chan
bbc0: 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 nel [appendArgs
bbd0: 24 6d 65 6d 6f 72 79 20 22 20 62 79 74 65 73 5c $memory " bytes\
bbe0: 6e 22 5d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a n"].. }..
bbf0: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a } else {..
bc00: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #..
bc10: 20 20 20 23 20 4e 4f 54 45 3a 20 4d 61 79 62 65 # NOTE: Maybe
bc20: 20 74 68 65 20 53 51 4c 69 74 65 20 63 6f 72 65 the SQLite core
bc30: 20 6c 69 62 72 61 72 79 20 69 73 20 75 6e 61 76 library is unav
bc40: 61 69 6c 61 62 6c 65 3f 0d 0a 20 20 20 20 20 20 ailable?..
bc50: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 73 65 74 #.. set
bc60: 20 6d 65 6d 6f 72 79 20 75 6e 6b 6e 6f 77 6e 0d memory unknown.
bc70: 0a 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 21 ... if {!
bc80: 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a $quiet} then {..
bc90: 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 tputs
bca0: 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 $channel [append
bcb0: 41 72 67 73 20 24 6d 65 6d 6f 72 79 20 5c 6e 5d Args $memory \n]
bcc0: 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 .. }..
bcd0: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 69 66 }.... if
bce0: 20 7b 24 63 6f 6c 6c 65 63 74 7d 20 74 68 65 6e {$collect} then
bcf0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 63 6f 6c 6c {.. coll
bd00: 65 63 74 47 61 72 62 61 67 65 20 24 63 68 61 6e ectGarbage $chan
bd10: 6e 65 6c 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a nel.. }....
bd20: 20 20 20 20 20 20 69 66 20 7b 21 24 71 75 69 65 if {!$quie
bd30: 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 t} then {..
bd40: 20 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 tputs $channe
bd50: 6c 20 22 2d 2d 2d 2d 20 63 75 72 72 65 6e 74 20 l "---- current
bd60: 6d 65 6d 6f 72 79 20 69 6e 20 75 73 65 20 62 79 memory in use by
bd70: 20 74 68 65 20 43 4c 52 2e 2e 2e 20 22 0d 0a 20 the CLR... "..
bd80: 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 }....
bd90: 69 66 20 7b 5b 63 61 74 63 68 20 7b 6f 62 6a 65 if {[catch {obje
bda0: 63 74 20 69 6e 76 6f 6b 65 20 47 43 20 47 65 74 ct invoke GC Get
bdb0: 54 6f 74 61 6c 4d 65 6d 6f 72 79 20 66 61 6c 73 TotalMemory fals
bdc0: 65 7d 20 6d 65 6d 6f 72 79 5d 20 3d 3d 20 30 7d e} memory] == 0}
bdd0: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 then {..
bde0: 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 69 73 20 if {[string is
bdf0: 69 6e 74 65 67 65 72 20 2d 73 74 72 69 63 74 20 integer -strict
be00: 24 6d 65 6d 6f 72 79 5d 7d 20 74 68 65 6e 20 7b $memory]} then {
be10: 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7b .. if {
be20: 21 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d !$quiet} then {.
be30: 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 70 75 . tpu
be40: 74 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 ts $channel [app
be50: 65 6e 64 41 72 67 73 20 24 6d 65 6d 6f 72 79 20 endArgs $memory
be60: 22 20 62 79 74 65 73 5c 6e 22 5d 0d 0a 20 20 20 " bytes\n"]..
be70: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 }..
be80: 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 } else {..
be90: 20 20 20 20 20 20 73 65 74 20 6d 65 6d 6f 72 79 set memory
bea0: 20 69 6e 76 61 6c 69 64 0d 0a 0d 0a 20 20 20 20 invalid....
beb0: 20 20 20 20 20 20 69 66 20 7b 21 24 71 75 69 65 if {!$quie
bec0: 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 t} then {..
bed0: 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68 tputs $ch
bee0: 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 annel [appendArg
bef0: 73 20 24 6d 65 6d 6f 72 79 20 5c 6e 5d 0d 0a 20 s $memory \n]..
bf00: 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 }..
bf10: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 20 65 }.. } e
bf20: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 73 lse {.. s
bf30: 65 74 20 6d 65 6d 6f 72 79 20 75 6e 6b 6e 6f 77 et memory unknow
bf40: 6e 0d 0a 0d 0a 20 20 20 20 20 20 20 20 69 66 20 n.... if
bf50: 7b 21 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b {!$quiet} then {
bf60: 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70 75 74 .. tput
bf70: 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 s $channel [appe
bf80: 6e 64 41 72 67 73 20 24 6d 65 6d 6f 72 79 20 5c ndArgs $memory \
bf90: 6e 5d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 n].. }..
bfa0: 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 }....
bfb0: 72 65 74 75 72 6e 20 24 72 65 73 75 6c 74 0d 0a return $result..
bfc0: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 }..... pr
bfd0: 6f 63 20 63 68 65 63 6b 46 6f 72 53 51 4c 69 74 oc checkForSQLit
bfe0: 65 44 69 72 65 63 74 6f 72 69 65 73 20 7b 20 63 eDirectories { c
bff0: 68 61 6e 6e 65 6c 20 7b 72 65 73 65 74 20 66 61 hannel {reset fa
c000: 6c 73 65 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 20 lse} } {..
c010: 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a #.. # NOTE:
c020: 20 43 68 65 63 6b 20 69 66 20 74 68 65 20 73 71 Check if the sq
c030: 6c 69 74 65 33 5f 77 69 6e 33 32 5f 73 65 74 5f lite3_win32_set_
c040: 64 69 72 65 63 74 6f 72 79 20 66 75 6e 63 74 69 directory functi
c050: 6f 6e 20 69 73 20 61 76 61 69 6c 61 62 6c 65 2e on is available.
c060: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #..
c070: 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 tputs $channel
c080: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 22 2d 2d \.. "--
c090: 2d 2d 20 63 68 65 63 6b 69 6e 67 20 66 6f 72 20 -- checking for
c0a0: 66 75 6e 63 74 69 6f 6e 20 73 71 6c 69 74 65 33 function sqlite3
c0b0: 5f 77 69 6e 33 32 5f 73 65 74 5f 64 69 72 65 63 _win32_set_direc
c0c0: 74 6f 72 79 2e 2e 2e 20 22 0d 0a 0d 0a 20 20 20 tory... "....
c0d0: 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f #.. # NO
c0e0: 54 45 3a 20 54 68 69 73 20 63 61 6c 6c 20 74 6f TE: This call to
c0f0: 20 74 68 65 20 73 71 6c 69 74 65 33 5f 77 69 6e the sqlite3_win
c100: 33 32 5f 73 65 74 5f 64 69 72 65 63 74 6f 72 79 32_set_directory
c110: 20 66 75 6e 63 74 69 6f 6e 20 75 73 65 73 20 74 function uses t
c120: 68 65 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 he.. #
c130: 20 20 69 6e 76 61 6c 69 64 20 76 61 6c 75 65 20 invalid value
c140: 30 20 66 6f 72 20 74 68 65 20 66 69 72 73 74 20 0 for the first
c150: 61 72 67 75 6d 65 6e 74 2e 20 20 54 68 69 73 20 argument. This
c160: 63 6f 64 65 20 69 73 20 64 65 73 69 67 6e 65 64 code is designed
c170: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. #
c180: 74 6f 20 63 68 65 63 6b 20 69 66 20 63 61 6c 6c to check if call
c190: 69 6e 67 20 74 68 65 20 66 75 6e 63 74 69 6f 6e ing the function
c1a0: 20 77 69 6c 6c 20 72 61 69 73 65 20 61 6e 20 65 will raise an e
c1b0: 78 63 65 70 74 69 6f 6e 20 28 69 2e 65 2e 0d 0a xception (i.e...
c1c0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 74 68 # th
c1d0: 65 20 61 63 74 75 61 6c 20 72 65 73 75 6c 74 20 e actual result
c1e0: 6f 66 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 of the function
c1f0: 64 6f 65 73 20 6e 6f 74 20 6d 61 74 74 65 72 20 does not matter
c200: 61 73 20 6c 6f 6e 67 20 61 73 20 6e 6f 0d 0a 20 as long as no..
c210: 20 20 20 20 20 23 20 20 20 20 20 20 20 64 69 72 # dir
c220: 65 63 74 6f 72 79 20 69 73 20 63 68 61 6e 67 65 ectory is change
c230: 64 29 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 d)... #..
c240: 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b if {[catch {
c250: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
c260: 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d 66 object invoke -f
c270: 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 lags +NonPublic
c280: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 \..
c290: 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c System.Data.SQL
c2a0: 69 74 65 2e 55 6e 73 61 66 65 4e 61 74 69 76 65 ite.UnsafeNative
c2b0: 4d 65 74 68 6f 64 73 20 5c 0d 0a 20 20 20 20 20 Methods \..
c2c0: 20 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 sqlite3
c2d0: 5f 77 69 6e 33 32 5f 73 65 74 5f 64 69 72 65 63 _win32_set_direc
c2e0: 74 6f 72 79 20 30 20 6e 75 6c 6c 7d 5d 20 3d 3d tory 0 null}] ==
c2f0: 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 0} then {..
c300: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 #.. #
c310: 20 4e 4f 54 45 3a 20 43 61 6c 6c 69 6e 67 20 74 NOTE: Calling t
c320: 68 65 20 73 71 6c 69 74 65 33 5f 77 69 6e 33 32 he sqlite3_win32
c330: 5f 73 65 74 5f 64 69 72 65 63 74 6f 72 79 20 66 _set_directory f
c340: 75 6e 63 74 69 6f 6e 20 64 6f 65 73 20 6e 6f 74 unction does not
c350: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 .. #
c360: 20 20 63 61 75 73 65 20 61 6e 20 65 78 63 65 70 cause an excep
c370: 74 69 6f 6e 3b 20 74 68 65 72 65 66 6f 72 65 2c tion; therefore,
c380: 20 69 74 20 6d 75 73 74 20 62 65 20 61 76 61 69 it must be avai
c390: 6c 61 62 6c 65 20 28 69 2e 65 2e 0d 0a 20 20 20 lable (i.e...
c3a0: 20 20 20 20 20 23 20 20 20 20 20 20 20 65 76 65 # eve
c3b0: 6e 20 74 68 6f 75 67 68 20 69 74 20 73 68 6f 75 n though it shou
c3c0: 6c 64 20 72 65 74 75 72 6e 20 61 20 66 61 69 6c ld return a fail
c3d0: 75 72 65 20 72 65 74 75 72 6e 20 63 6f 64 65 20 ure return code
c3e0: 69 6e 20 74 68 69 73 0d 0a 20 20 20 20 20 20 20 in this..
c3f0: 20 23 20 20 20 20 20 20 20 63 61 73 65 29 2e 0d # case)..
c400: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #..
c410: 20 20 20 20 61 64 64 43 6f 6e 73 74 72 61 69 6e addConstrain
c420: 74 20 73 71 6c 69 74 65 33 5f 77 69 6e 33 32 5f t sqlite3_win32_
c430: 73 65 74 5f 64 69 72 65 63 74 6f 72 79 0d 0a 0d set_directory...
c440: 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 . tputs $
c450: 63 68 61 6e 6e 65 6c 20 79 65 73 5c 6e 0d 0a 0d channel yes\n...
c460: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #..
c470: 20 20 20 20 23 20 4e 4f 54 45 3a 20 44 6f 65 73 # NOTE: Does
c480: 20 6f 75 72 20 63 61 6c 6c 65 72 20 77 61 6e 74 our caller want
c490: 20 74 6f 20 72 65 73 65 74 20 74 68 65 20 64 69 to reset the di
c4a0: 72 65 63 74 6f 72 69 65 73 3f 0d 0a 20 20 20 20 rectories?..
c4b0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 69 #.. i
c4c0: 66 20 7b 24 72 65 73 65 74 7d 20 74 68 65 6e 20 f {$reset} then
c4d0: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a {.. #..
c4e0: 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 # NOTE
c4f0: 3a 20 4e 6f 77 20 6d 61 6b 65 20 73 75 72 65 20 : Now make sure
c500: 74 68 65 20 64 61 74 61 62 61 73 65 20 61 6e 64 the database and
c510: 20 74 65 6d 70 6f 72 61 72 79 20 64 69 72 65 63 temporary direc
c520: 74 6f 72 69 65 73 20 61 72 65 0d 0a 20 20 20 20 tories are..
c530: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 72 65 # re
c540: 73 65 74 20 74 68 65 69 72 20 64 65 66 61 75 6c set their defaul
c550: 74 20 76 61 6c 75 65 73 2c 20 77 68 69 63 68 20 t values, which
c560: 73 68 6f 75 6c 64 20 62 65 20 6e 75 6c 6c 20 66 should be null f
c570: 6f 72 20 62 6f 74 68 2e 0d 0a 20 20 20 20 20 20 or both...
c580: 20 20 20 20 23 20 20 20 20 20 20 20 53 69 6e 63 # Sinc
c590: 65 20 74 68 65 20 73 71 6c 69 74 65 33 5f 77 69 e the sqlite3_wi
c5a0: 6e 33 32 5f 73 65 74 5f 64 69 72 65 63 74 6f 72 n32_set_director
c5b0: 79 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 61 76 y function is av
c5c0: 61 69 6c 61 62 6c 65 2c 0d 0a 20 20 20 20 20 20 ailable,..
c5d0: 20 20 20 20 23 20 20 20 20 20 20 20 75 73 65 20 # use
c5e0: 69 74 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23 it... #
c5f0: 0d 0a 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 .. for
c600: 7b 73 65 74 20 69 6e 64 65 78 20 31 7d 20 7b 24 {set index 1} {$
c610: 69 6e 64 65 78 20 3c 20 33 7d 20 7b 69 6e 63 72 index < 3} {incr
c620: 20 69 6e 64 65 78 7d 20 7b 0d 0a 20 20 20 20 20 index} {..
c630: 20 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 if {[catc
c640: 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 h {..
c650: 20 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74 20 object
c660: 69 6e 76 6f 6b 65 20 2d 66 6c 61 67 73 20 2b 4e invoke -flags +N
c670: 6f 6e 50 75 62 6c 69 63 20 5c 0d 0a 20 20 20 20 onPublic \..
c680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
c690: 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 System.Data.SQLi
c6a0: 74 65 2e 55 6e 73 61 66 65 4e 61 74 69 76 65 4d te.UnsafeNativeM
c6b0: 65 74 68 6f 64 73 20 5c 0d 0a 20 20 20 20 20 20 ethods \..
c6c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 71 sq
c6d0: 6c 69 74 65 33 5f 77 69 6e 33 32 5f 73 65 74 5f lite3_win32_set_
c6e0: 64 69 72 65 63 74 6f 72 79 20 24 69 6e 64 65 78 directory $index
c6f0: 20 6e 75 6c 6c 7d 20 5c 0d 0a 20 20 20 20 20 20 null} \..
c700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 re
c710: 73 75 6c 74 5d 20 3d 3d 20 30 7d 20 74 68 65 6e sult] == 0} then
c720: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 {..
c730: 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c tputs $channel
c740: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a [appendArgs \..
c750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
c760: 20 20 22 2d 2d 2d 2d 20 63 61 6c 6c 20 73 71 6c "---- call sql
c770: 69 74 65 33 5f 77 69 6e 33 32 5f 73 65 74 5f 64 ite3_win32_set_d
c780: 69 72 65 63 74 6f 72 79 28 22 20 24 69 6e 64 65 irectory(" $inde
c790: 78 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 x \..
c7a0: 20 20 20 20 20 20 20 22 2c 20 6e 75 6c 6c 29 2e ", null).
c7b0: 2e 2e 20 6f 6b 3a 20 22 20 24 72 65 73 75 6c 74 .. ok: " $result
c7c0: 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 \n]..
c7d0: 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 } else {..
c7e0: 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 tputs
c7f0: 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 $channel [append
c800: 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 Args \..
c810: 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 "----
c820: 63 61 6c 6c 20 73 71 6c 69 74 65 33 5f 77 69 6e call sqlite3_win
c830: 33 32 5f 73 65 74 5f 64 69 72 65 63 74 6f 72 79 32_set_directory
c840: 28 22 20 24 69 6e 64 65 78 20 5c 0d 0a 20 20 20 (" $index \..
c850: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 "
c860: 2c 20 6e 75 6c 6c 29 2e 2e 2e 20 65 72 72 6f 72 , null)... error
c870: 3a 20 22 20 5c 6e 5c 74 20 24 72 65 73 75 6c 74 : " \n\t $result
c880: 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 \n]..
c890: 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 7d }.. }
c8a0: 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 .. }..
c8b0: 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 } else {..
c8c0: 20 20 20 20 20 74 70 75 74 73 20 24 63 68 61 6e tputs $chan
c8d0: 6e 65 6c 20 6e 6f 5c 6e 0d 0a 0d 0a 20 20 20 20 nel no\n....
c8e0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 #.. #
c8f0: 20 4e 4f 54 45 3a 20 44 6f 65 73 20 6f 75 72 20 NOTE: Does our
c900: 63 61 6c 6c 65 72 20 77 61 6e 74 20 74 6f 20 72 caller want to r
c910: 65 73 65 74 20 74 68 65 20 64 69 72 65 63 74 6f eset the directo
c920: 72 69 65 73 3f 20 20 54 68 69 73 20 63 61 6e 20 ries? This can
c930: 6f 6e 6c 79 0d 0a 20 20 20 20 20 20 20 20 23 20 only.. #
c940: 20 20 20 20 20 20 62 65 20 70 65 72 66 6f 72 6d be perform
c950: 65 64 20 69 66 20 53 51 4c 69 74 65 20 69 73 20 ed if SQLite is
c960: 6c 6f 61 64 65 64 20 61 6e 64 20 72 65 61 64 79 loaded and ready
c970: 20 66 6f 72 20 75 73 65 20 62 79 20 74 68 65 20 for use by the
c980: 74 65 73 74 0d 0a 20 20 20 20 20 20 20 20 23 20 test.. #
c990: 20 20 20 20 20 20 73 75 69 74 65 2e 0d 0a 20 20 suite...
c9a0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
c9b0: 20 69 66 20 7b 24 72 65 73 65 74 20 26 26 20 5b if {$reset && [
c9c0: 69 73 53 51 4c 69 74 65 52 65 61 64 79 5d 7d 20 isSQLiteReady]}
c9d0: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 then {..
c9e0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23 #.. #
c9f0: 20 4e 4f 54 45 3a 20 4e 6f 77 20 6d 61 6b 65 20 NOTE: Now make
ca00: 73 75 72 65 20 74 68 65 20 64 61 74 61 62 61 73 sure the databas
ca10: 65 20 61 6e 64 20 74 65 6d 70 6f 72 61 72 79 20 e and temporary
ca20: 64 69 72 65 63 74 6f 72 69 65 73 20 61 72 65 0d directories are.
ca30: 0a 20 20 20 20 20 20 20 20 20 20 23 20 20 20 20 . #
ca40: 20 20 20 72 65 73 65 74 20 74 68 65 69 72 20 64 reset their d
ca50: 65 66 61 75 6c 74 20 76 61 6c 75 65 73 2c 20 77 efault values, w
ca60: 68 69 63 68 20 73 68 6f 75 6c 64 20 62 65 20 6e hich should be n
ca70: 75 6c 6c 20 66 6f 72 20 62 6f 74 68 2e 0d 0a 20 ull for both...
ca80: 20 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 #
ca90: 20 53 69 6e 63 65 20 74 68 65 20 73 71 6c 69 74 Since the sqlit
caa0: 65 33 5f 77 69 6e 33 32 5f 73 65 74 5f 64 69 72 e3_win32_set_dir
cab0: 65 63 74 6f 72 79 20 66 75 6e 63 74 69 6f 6e 20 ectory function
cac0: 64 6f 65 73 20 6e 6f 74 0d 0a 20 20 20 20 20 20 does not..
cad0: 20 20 20 20 23 20 20 20 20 20 20 20 61 70 70 65 # appe
cae0: 61 72 20 74 6f 20 62 65 20 61 76 61 69 6c 61 62 ar to be availab
caf0: 6c 65 2c 20 75 73 65 20 74 68 65 20 61 73 73 6f le, use the asso
cb00: 63 69 61 74 65 64 20 50 52 41 47 4d 41 20 63 6f ciated PRAGMA co
cb10: 6d 6d 61 6e 64 73 0d 0a 20 20 20 20 20 20 20 20 mmands..
cb20: 20 20 23 20 20 20 20 20 20 20 69 6e 73 74 65 61 # instea
cb30: 64 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d d... #.
cb40: 0a 20 20 20 20 20 20 20 20 20 20 66 6f 72 65 61 . forea
cb50: 63 68 20 64 69 72 65 63 74 6f 72 79 20 5b 6c 69 ch directory [li
cb60: 73 74 20 64 61 74 61 5f 73 74 6f 72 65 5f 64 69 st data_store_di
cb70: 72 65 63 74 6f 72 79 20 74 65 6d 70 5f 73 74 6f rectory temp_sto
cb80: 72 65 5f 64 69 72 65 63 74 6f 72 79 5d 20 7b 0d re_directory] {.
cb90: 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 . set
cba0: 20 73 71 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 sql [appendArgs
cbb0: 20 22 50 52 41 47 4d 41 20 22 20 24 64 69 72 65 "PRAGMA " $dire
cbc0: 63 74 6f 72 79 20 22 20 3d 20 5c 22 5c 22 3b 22 ctory " = \"\";"
cbd0: 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ]....
cbe0: 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 65 78 65 if {[catch {exe
cbf0: 63 75 74 65 53 71 6c 20 24 73 71 6c 7d 20 72 65 cuteSql $sql} re
cc00: 73 75 6c 74 5d 20 3d 3d 20 30 7d 20 74 68 65 6e sult] == 0} then
cc10: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 {..
cc20: 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c tputs $channel
cc30: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a [appendArgs \..
cc40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
cc50: 20 20 22 2d 2d 2d 2d 20 65 78 65 63 75 74 65 20 "---- execute
cc60: 50 52 41 47 4d 41 20 22 20 24 64 69 72 65 63 74 PRAGMA " $direct
cc70: 6f 72 79 20 22 2e 2e 2e 20 6f 6b 3a 20 5c 22 22 ory "... ok: \""
cc80: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \..
cc90: 20 20 20 20 20 20 24 72 65 73 75 6c 74 20 5c 22 $result \"
cca0: 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 \n]..
ccb0: 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 } else {..
ccc0: 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 tputs $
ccd0: 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 channel [appendA
cce0: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 rgs \..
ccf0: 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 65 "---- e
cd00: 78 65 63 75 74 65 20 50 52 41 47 4d 41 20 22 20 xecute PRAGMA "
cd10: 24 64 69 72 65 63 74 6f 72 79 20 22 2e 2e 2e 20 $directory "...
cd20: 65 72 72 6f 72 3a 20 22 20 5c 0d 0a 20 20 20 20 error: " \..
cd30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 6e \n
cd40: 5c 74 20 24 72 65 73 75 6c 74 20 5c 6e 5d 0d 0a \t $result \n]..
cd50: 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 }..
cd60: 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 }..
cd70: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a }.. }..
cd80: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #..
cd90: 20 23 20 4e 4f 54 45 3a 20 46 69 6e 61 6c 6c 79 # NOTE: Finally
cda0: 2c 20 73 68 6f 77 20 74 68 65 20 63 75 72 72 65 , show the curre
cdb0: 6e 74 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 nt value of the
cdc0: 64 61 74 61 62 61 73 65 20 61 6e 64 20 74 65 6d database and tem
cdd0: 70 6f 72 61 72 79 0d 0a 20 20 20 20 20 20 23 20 porary.. #
cde0: 20 20 20 20 20 20 64 69 72 65 63 74 6f 72 69 65 directorie
cdf0: 73 2e 20 20 54 68 69 73 20 63 61 6e 20 6f 6e 6c s. This can onl
ce00: 79 20 62 65 20 70 65 72 66 6f 72 6d 65 64 20 69 y be performed i
ce10: 66 20 53 51 4c 69 74 65 20 69 73 20 6c 6f 61 64 f SQLite is load
ce20: 65 64 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 ed.. #
ce30: 20 20 61 6e 64 20 72 65 61 64 79 20 66 6f 72 20 and ready for
ce40: 75 73 65 20 62 79 20 74 68 65 20 74 65 73 74 20 use by the test
ce50: 73 75 69 74 65 2e 0d 0a 20 20 20 20 20 20 23 0d suite... #.
ce60: 0a 20 20 20 20 20 20 69 66 20 7b 5b 69 73 53 51 . if {[isSQ
ce70: 4c 69 74 65 52 65 61 64 79 5d 7d 20 74 68 65 6e LiteReady]} then
ce80: 20 7b 0d 0a 20 20 20 20 20 20 20 20 66 6f 72 65 {.. fore
ce90: 61 63 68 20 64 69 72 65 63 74 6f 72 79 20 5b 6c ach directory [l
cea0: 69 73 74 20 64 61 74 61 5f 73 74 6f 72 65 5f 64 ist data_store_d
ceb0: 69 72 65 63 74 6f 72 79 20 74 65 6d 70 5f 73 74 irectory temp_st
cec0: 6f 72 65 5f 64 69 72 65 63 74 6f 72 79 5d 20 7b ore_directory] {
ced0: 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70 75 74 .. tput
cee0: 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 s $channel [appe
cef0: 6e 64 41 72 67 73 20 22 2d 2d 2d 2d 20 63 68 65 ndArgs "---- che
cf00: 63 6b 69 6e 67 20 22 20 24 64 69 72 65 63 74 6f cking " $directo
cf10: 72 79 20 22 2e 2e 2e 20 22 5d 0d 0a 0d 0a 20 20 ry "... "]....
cf20: 20 20 20 20 20 20 20 20 73 65 74 20 73 71 6c 20 set sql
cf30: 5b 61 70 70 65 6e 64 41 72 67 73 20 22 50 52 41 [appendArgs "PRA
cf40: 47 4d 41 20 22 20 24 64 69 72 65 63 74 6f 72 79 GMA " $directory
cf50: 20 5c 3b 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 \;]....
cf60: 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 65 78 if {[catch {ex
cf70: 65 63 75 74 65 53 71 6c 20 24 73 71 6c 20 73 63 ecuteSql $sql sc
cf80: 61 6c 61 72 7d 20 72 65 73 75 6c 74 5d 20 3d 3d alar} result] ==
cf90: 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 0} then {..
cfa0: 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63 tputs $c
cfb0: 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 hannel [appendAr
cfc0: 67 73 20 22 6f 6b 3a 20 5c 22 22 20 24 72 65 73 gs "ok: \"" $res
cfd0: 75 6c 74 20 5c 22 5c 6e 5d 0d 0a 20 20 20 20 20 ult \"\n]..
cfe0: 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 } else {..
cff0: 20 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 tputs
d000: 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e $channel [appen
d010: 64 41 72 67 73 20 22 65 72 72 6f 72 3a 20 22 20 dArgs "error: "
d020: 5c 6e 5c 74 20 24 72 65 73 75 6c 74 20 5c 6e 5d \n\t $result \n]
d030: 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 .. }..
d040: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 }..
d050: 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 }.. }.....
d060: 20 70 72 6f 63 20 6c 6f 61 64 53 51 4c 69 74 65 proc loadSQLite
d070: 54 65 73 74 53 65 74 74 69 6e 67 73 20 7b 20 63 TestSettings { c
d080: 68 61 6e 6e 65 6c 20 7b 73 75 66 66 69 78 20 22 hannel {suffix "
d090: 22 7d 20 7b 71 75 69 65 74 20 66 61 6c 73 65 7d "} {quiet false}
d0a0: 20 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 } {.. #..
d0b0: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 6b 69 # NOTE: Ski
d0c0: 70 20 6c 6f 61 64 69 6e 67 20 74 68 65 20 73 65 p loading the se
d0d0: 74 74 69 6e 67 73 20 69 66 20 74 68 65 69 72 20 ttings if their
d0e0: 75 73 61 67 65 20 68 61 73 20 62 65 65 6e 20 64 usage has been d
d0f0: 69 73 61 62 6c 65 64 2e 0d 0a 20 20 20 20 20 20 isabled...
d100: 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 21 5b 69 #.. if {![i
d110: 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 6e 6f 28 nfo exists ::no(
d120: 73 71 6c 69 74 65 54 65 73 74 53 65 74 74 69 6e sqliteTestSettin
d130: 67 73 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 gs)]} then {..
d140: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
d150: 20 23 20 4e 4f 54 45 3a 20 4c 6f 61 64 20 63 75 # NOTE: Load cu
d160: 73 74 6f 6d 20 70 65 72 2d 75 73 65 72 20 61 6e stom per-user an
d170: 64 2f 6f 72 20 70 65 72 2d 68 6f 73 74 20 74 65 d/or per-host te
d180: 73 74 20 73 65 74 74 69 6e 67 73 20 6e 6f 77 2e st settings now.
d190: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #..
d1a0: 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 if {[info e
d1b0: 78 69 73 74 73 20 3a 3a 74 63 6c 5f 70 6c 61 74 xists ::tcl_plat
d1c0: 66 6f 72 6d 28 75 73 65 72 29 5d 7d 20 74 68 65 form(user)]} the
d1d0: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 73 n {.. s
d1e0: 65 74 20 75 73 65 72 53 65 74 74 69 6e 67 73 46 et userSettingsF
d1f0: 69 6c 65 4e 61 6d 65 20 5b 66 69 6c 65 20 6a 6f ileName [file jo
d200: 69 6e 20 5b 67 65 74 43 6f 6d 6d 6f 6e 44 69 72 in [getCommonDir
d210: 65 63 74 6f 72 79 5d 20 5c 0d 0a 20 20 20 20 20 ectory] \..
d220: 20 20 20 20 20 20 20 20 20 5b 61 70 70 65 6e 64 [append
d230: 41 72 67 73 20 73 65 74 74 69 6e 67 73 20 24 73 Args settings $s
d240: 75 66 66 69 78 20 2e 20 24 3a 3a 74 63 6c 5f 70 uffix . $::tcl_p
d250: 6c 61 74 66 6f 72 6d 28 75 73 65 72 29 20 2e 65 latform(user) .e
d260: 61 67 6c 65 5d 5d 0d 0a 0d 0a 20 20 20 20 20 20 agle]]....
d270: 20 20 20 20 69 66 20 7b 5b 66 69 6c 65 20 65 78 if {[file ex
d280: 69 73 74 73 20 24 75 73 65 72 53 65 74 74 69 6e ists $userSettin
d290: 67 73 46 69 6c 65 4e 61 6d 65 5d 7d 20 74 68 65 gsFileName]} the
d2a0: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 n {..
d2b0: 20 69 66 20 7b 21 24 71 75 69 65 74 7d 20 74 68 if {!$quiet} th
d2c0: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 en {..
d2d0: 20 20 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e tputs $chann
d2e0: 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c el [appendArgs \
d2f0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
d300: 20 20 20 20 22 2d 2d 2d 2d 20 6c 6f 61 64 69 6e "---- loadin
d310: 67 20 70 65 72 2d 75 73 65 72 20 74 65 73 74 20 g per-user test
d320: 73 65 74 74 69 6e 67 73 20 66 69 6c 65 20 5c 22 settings file \"
d330: 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 " \..
d340: 20 20 20 20 20 20 20 24 75 73 65 72 53 65 74 74 $userSett
d350: 69 6e 67 73 46 69 6c 65 4e 61 6d 65 20 5c 22 2e ingsFileName \".
d360: 2e 2e 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 20 ..\n]..
d370: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 }....
d380: 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b if {[catch {
d390: 75 70 6c 65 76 65 6c 20 31 20 5b 6c 69 73 74 20 uplevel 1 [list
d3a0: 73 6f 75 72 63 65 20 24 75 73 65 72 53 65 74 74 source $userSett
d3b0: 69 6e 67 73 46 69 6c 65 4e 61 6d 65 5d 7d 20 5c ingsFileName]} \
d3c0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
d3d0: 20 20 20 20 20 20 65 72 72 6f 72 5d 7d 20 74 68 error]} th
d3e0: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 en {..
d3f0: 20 20 20 20 69 66 20 7b 21 24 71 75 69 65 74 7d if {!$quiet}
d400: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 then {..
d410: 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 tputs $
d420: 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 channel [appendA
d430: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 rgs \..
d440: 20 20 20 20 20 20 20 20 20 20 20 22 3d 3d 3d 3d "====
d450: 20 57 41 52 4e 49 4e 47 3a 20 66 61 69 6c 65 64 WARNING: failed
d460: 20 74 6f 20 6c 6f 61 64 20 70 65 72 2d 75 73 65 to load per-use
d470: 72 20 73 65 74 74 69 6e 67 73 20 66 69 6c 65 20 r settings file
d480: 5c 22 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 \"" \..
d490: 20 20 20 20 20 20 20 20 20 20 20 24 75 73 65 72 $user
d4a0: 53 65 74 74 69 6e 67 73 46 69 6c 65 4e 61 6d 65 SettingsFileName
d4b0: 20 22 5c 22 2c 20 65 72 72 6f 72 3a 20 22 20 5c "\", error: " \
d4c0: 6e 5c 74 20 24 65 72 72 6f 72 20 5c 6e 5d 0d 0a n\t $error \n]..
d4d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d }.
d4e0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a . }..
d4f0: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 }..
d500: 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 }....
d510: 20 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ##############
d520: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
d530: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
d540: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
d550: 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 20 #########....
d560: 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 if {[info e
d570: 78 69 73 74 73 20 3a 3a 74 63 6c 5f 70 6c 61 74 xists ::tcl_plat
d580: 66 6f 72 6d 28 68 6f 73 74 29 5d 7d 20 74 68 65 form(host)]} the
d590: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 73 n {.. s
d5a0: 65 74 20 68 6f 73 74 53 65 74 74 69 6e 67 73 46 et hostSettingsF
d5b0: 69 6c 65 4e 61 6d 65 20 5b 66 69 6c 65 20 6a 6f ileName [file jo
d5c0: 69 6e 20 5b 67 65 74 43 6f 6d 6d 6f 6e 44 69 72 in [getCommonDir
d5d0: 65 63 74 6f 72 79 5d 20 5c 0d 0a 20 20 20 20 20 ectory] \..
d5e0: 20 20 20 20 20 20 20 20 20 5b 61 70 70 65 6e 64 [append
d5f0: 41 72 67 73 20 73 65 74 74 69 6e 67 73 20 24 73 Args settings $s
d600: 75 66 66 69 78 20 2e 20 24 3a 3a 74 63 6c 5f 70 uffix . $::tcl_p
d610: 6c 61 74 66 6f 72 6d 28 68 6f 73 74 29 20 2e 65 latform(host) .e
d620: 61 67 6c 65 5d 5d 0d 0a 0d 0a 20 20 20 20 20 20 agle]]....
d630: 20 20 20 20 69 66 20 7b 5b 66 69 6c 65 20 65 78 if {[file ex
d640: 69 73 74 73 20 24 68 6f 73 74 53 65 74 74 69 6e ists $hostSettin
d650: 67 73 46 69 6c 65 4e 61 6d 65 5d 7d 20 74 68 65 gsFileName]} the
d660: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 n {..
d670: 20 69 66 20 7b 21 24 71 75 69 65 74 7d 20 74 68 if {!$quiet} th
d680: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 en {..
d690: 20 20 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e tputs $chann
d6a0: 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c el [appendArgs \
d6b0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
d6c0: 20 20 20 20 22 2d 2d 2d 2d 20 6c 6f 61 64 69 6e "---- loadin
d6d0: 67 20 70 65 72 2d 68 6f 73 74 20 74 65 73 74 20 g per-host test
d6e0: 73 65 74 74 69 6e 67 73 20 66 69 6c 65 20 5c 22 settings file \"
d6f0: 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 " \..
d700: 20 20 20 20 20 20 20 24 68 6f 73 74 53 65 74 74 $hostSett
d710: 69 6e 67 73 46 69 6c 65 4e 61 6d 65 20 5c 22 2e ingsFileName \".
d720: 2e 2e 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 20 ..\n]..
d730: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 }....
d740: 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b if {[catch {
d750: 75 70 6c 65 76 65 6c 20 31 20 5b 6c 69 73 74 20 uplevel 1 [list
d760: 73 6f 75 72 63 65 20 24 68 6f 73 74 53 65 74 74 source $hostSett
d770: 69 6e 67 73 46 69 6c 65 4e 61 6d 65 5d 7d 20 5c ingsFileName]} \
d780: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
d790: 20 20 20 20 20 20 65 72 72 6f 72 5d 7d 20 74 68 error]} th
d7a0: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 en {..
d7b0: 20 20 20 20 69 66 20 7b 21 24 71 75 69 65 74 7d if {!$quiet}
d7c0: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 then {..
d7d0: 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 tputs $
d7e0: 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 channel [appendA
d7f0: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 rgs \..
d800: 20 20 20 20 20 20 20 20 20 20 20 22 3d 3d 3d 3d "====
d810: 20 57 41 52 4e 49 4e 47 3a 20 66 61 69 6c 65 64 WARNING: failed
d820: 20 74 6f 20 6c 6f 61 64 20 70 65 72 2d 68 6f 73 to load per-hos
d830: 74 20 73 65 74 74 69 6e 67 73 20 66 69 6c 65 20 t settings file
d840: 5c 22 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 \"" \..
d850: 20 20 20 20 20 20 20 20 20 20 20 24 68 6f 73 74 $host
d860: 53 65 74 74 69 6e 67 73 46 69 6c 65 4e 61 6d 65 SettingsFileName
d870: 20 22 5c 22 2c 20 65 72 72 6f 72 3a 20 22 20 5c "\", error: " \
d880: 6e 5c 74 20 24 65 72 72 6f 72 20 5c 6e 5d 0d 0a n\t $error \n]..
d890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d }.
d8a0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a . }..
d8b0: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 }..
d8c0: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d }.. }.
d8d0: 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 . }..... p
d8e0: 72 6f 63 20 72 75 6e 53 51 4c 69 74 65 54 65 73 roc runSQLiteTes
d8f0: 74 50 72 6f 6c 6f 67 75 65 20 7b 7d 20 7b 0d 0a tPrologue {} {..
d900: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 #.. #
d910: 20 4e 4f 54 45 3a 20 53 6b 69 70 20 72 75 6e 6e NOTE: Skip runn
d920: 69 6e 67 20 6f 75 72 20 63 75 73 74 6f 6d 20 70 ing our custom p
d930: 72 6f 6c 6f 67 75 65 20 69 66 20 74 68 65 20 6d rologue if the m
d940: 61 69 6e 20 6f 6e 65 20 68 61 73 20 62 65 65 6e ain one has been
d950: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. #
d960: 73 6b 69 70 70 65 64 2e 0d 0a 20 20 20 20 20 20 skipped...
d970: 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 21 5b 69 #.. if {![i
d980: 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 6e 6f 28 nfo exists ::no(
d990: 70 72 6f 6c 6f 67 75 65 2e 65 61 67 6c 65 29 5d prologue.eagle)]
d9a0: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {..
d9b0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e #.. # N
d9c0: 4f 54 45 3a 20 4c 6f 61 64 20 74 68 65 20 22 62 OTE: Load the "b
d9d0: 65 66 6f 72 65 2d 63 6f 6e 73 74 72 61 69 6e 74 efore-constraint
d9e0: 73 22 20 63 75 73 74 6f 6d 20 70 65 72 2d 75 73 s" custom per-us
d9f0: 65 72 20 61 6e 64 2f 6f 72 20 70 65 72 2d 68 6f er and/or per-ho
da00: 73 74 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 st.. #
da10: 20 20 20 20 74 65 73 74 20 73 65 74 74 69 6e 67 test setting
da20: 73 20 6e 6f 77 2e 0d 0a 20 20 20 20 20 20 20 20 s now...
da30: 23 0d 0a 20 20 20 20 20 20 20 20 75 70 6c 65 76 #.. uplev
da40: 65 6c 20 31 20 5b 6c 69 73 74 20 6c 6f 61 64 53 el 1 [list loadS
da50: 51 4c 69 74 65 54 65 73 74 53 65 74 74 69 6e 67 QLiteTestSetting
da60: 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 s $::test_channe
da70: 6c 20 2e 62 65 66 6f 72 65 5d 0d 0a 0d 0a 20 20 l .before]....
da80: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
da90: 20 23 20 4e 4f 54 45 3a 20 53 6b 69 70 20 61 6c # NOTE: Skip al
daa0: 6c 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 l System.Data.SQ
dab0: 4c 69 74 65 20 72 65 6c 61 74 65 64 20 66 69 6c Lite related fil
dac0: 65 20 68 61 6e 64 6c 69 6e 67 20 28 64 65 6c 65 e handling (dele
dad0: 74 69 6e 67 2c 0d 0a 20 20 20 20 20 20 20 20 23 ting,.. #
dae0: 20 20 20 20 20 20 20 63 6f 70 79 69 6e 67 2c 20 copying,
daf0: 61 6e 64 20 6c 6f 61 64 69 6e 67 29 20 69 66 20 and loading) if
db00: 77 65 20 61 72 65 20 73 6f 20 69 6e 73 74 72 75 we are so instru
db10: 63 74 65 64 2e 0d 0a 20 20 20 20 20 20 20 20 23 cted... #
db20: 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 21 5b .. if {![
db30: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 6e 6f info exists ::no
db40: 28 73 71 6c 69 74 65 46 69 6c 65 73 29 5d 7d 20 (sqliteFiles)]}
db50: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 then {..
db60: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23 #.. #
db70: 20 4e 4f 54 45 3a 20 53 6b 69 70 20 74 72 79 69 NOTE: Skip tryi
db80: 6e 67 20 74 6f 20 64 65 6c 65 74 65 20 61 6e 79 ng to delete any
db90: 20 66 69 6c 65 73 20 69 66 20 77 65 20 61 72 65 files if we are
dba0: 20 73 6f 20 69 6e 73 74 72 75 63 74 65 64 2e 0d so instructed..
dbb0: 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 . #..
dbc0: 20 20 20 20 20 20 20 20 69 66 20 7b 21 5b 69 6e if {![in
dbd0: 66 6f 20 65 78 69 73 74 73 20 3a 3a 6e 6f 28 64 fo exists ::no(d
dbe0: 65 6c 65 74 65 53 71 6c 69 74 65 46 69 6c 65 73 eleteSqliteFiles
dbf0: 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 )]} then {..
dc00: 20 20 20 20 20 20 20 20 74 72 79 44 65 6c 65 74 tryDelet
dc10: 65 41 73 73 65 6d 62 6c 79 20 73 71 6c 69 74 65 eAssembly sqlite
dc20: 33 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 20 20 20 3.dll..
dc30: 20 20 20 72 65 6d 6f 76 65 43 6f 6e 73 74 72 61 removeConstra
dc40: 69 6e 74 20 66 69 6c 65 5f 73 71 6c 69 74 65 33 int file_sqlite3
dc50: 2e 64 6c 6c 0d 0a 0d 0a 20 20 20 20 20 20 20 20 .dll....
dc60: 20 20 20 20 74 72 79 44 65 6c 65 74 65 41 73 73 tryDeleteAss
dc70: 65 6d 62 6c 79 20 53 51 4c 69 74 65 2e 49 6e 74 embly SQLite.Int
dc80: 65 72 6f 70 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 erop.dll..
dc90: 20 20 20 20 20 20 72 65 6d 6f 76 65 43 6f 6e 73 removeCons
dca0: 74 72 61 69 6e 74 20 66 69 6c 65 5f 53 51 4c 69 traint file_SQLi
dcb0: 74 65 2e 49 6e 74 65 72 6f 70 2e 64 6c 6c 0d 0a te.Interop.dll..
dcc0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 72 .. tr
dcd0: 79 44 65 6c 65 74 65 41 73 73 65 6d 62 6c 79 20 yDeleteAssembly
dce0: 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 System.Data.SQLi
dcf0: 74 65 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 20 20 te.dll..
dd00: 20 20 20 20 72 65 6d 6f 76 65 43 6f 6e 73 74 72 removeConstr
dd10: 61 69 6e 74 20 66 69 6c 65 5f 53 79 73 74 65 6d aint file_System
dd20: 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 64 6c 6c .Data.SQLite.dll
dd30: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ....
dd40: 74 72 79 44 65 6c 65 74 65 41 73 73 65 6d 62 6c tryDeleteAssembl
dd50: 79 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 y System.Data.SQ
dd60: 4c 69 74 65 2e 4c 69 6e 71 2e 64 6c 6c 0d 0a 20 Lite.Linq.dll..
dd70: 20 20 20 20 20 20 20 20 20 20 20 72 65 6d 6f 76 remov
dd80: 65 43 6f 6e 73 74 72 61 69 6e 74 20 66 69 6c 65 eConstraint file
dd90: 5f 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c _System.Data.SQL
dda0: 69 74 65 2e 4c 69 6e 71 2e 64 6c 6c 0d 0a 20 20 ite.Linq.dll..
ddb0: 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 }....
ddc0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
ddd0: 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 6b 69 70 # NOTE: Skip
dde0: 20 74 72 79 69 6e 67 20 74 6f 20 63 6f 70 79 20 trying to copy
ddf0: 61 6e 79 20 66 69 6c 65 73 20 69 66 20 77 65 20 any files if we
de00: 61 72 65 20 73 6f 20 69 6e 73 74 72 75 63 74 65 are so instructe
de10: 64 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d d... #.
de20: 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 21 . if {!
de30: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 6e [info exists ::n
de40: 6f 28 63 6f 70 79 53 71 6c 69 74 65 46 69 6c 65 o(copySqliteFile
de50: 73 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 s)]} then {..
de60: 20 20 20 20 20 20 20 20 20 74 72 79 43 6f 70 79 tryCopy
de70: 41 73 73 65 6d 62 6c 79 20 73 71 6c 69 74 65 33 Assembly sqlite3
de80: 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 20 20 20 20 .dll..
de90: 20 20 74 72 79 43 6f 70 79 41 73 73 65 6d 62 6c tryCopyAssembl
dea0: 79 20 53 51 4c 69 74 65 2e 49 6e 74 65 72 6f 70 y SQLite.Interop
deb0: 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 20 20 20 20 .dll..
dec0: 20 20 74 72 79 43 6f 70 79 41 73 73 65 6d 62 6c tryCopyAssembl
ded0: 79 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 y System.Data.SQ
dee0: 4c 69 74 65 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 Lite.dll..
def0: 20 20 20 20 20 20 74 72 79 43 6f 70 79 41 73 73 tryCopyAss
df00: 65 6d 62 6c 79 20 53 79 73 74 65 6d 2e 44 61 74 embly System.Dat
df10: 61 2e 53 51 4c 69 74 65 2e 4c 69 6e 71 2e 64 6c a.SQLite.Linq.dl
df20: 6c 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a l.. }..
df30: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 .. #..
df40: 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a # NOTE:
df50: 20 53 6b 69 70 20 74 72 79 69 6e 67 20 74 6f 20 Skip trying to
df60: 6c 6f 61 64 20 61 6e 79 20 66 69 6c 65 73 20 69 load any files i
df70: 66 20 77 65 20 61 72 65 20 73 6f 20 69 6e 73 74 f we are so inst
df80: 72 75 63 74 65 64 2e 0d 0a 20 20 20 20 20 20 20 ructed...
df90: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 #..
dfa0: 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 if {![info exist
dfb0: 73 20 3a 3a 6e 6f 28 6c 6f 61 64 53 71 6c 69 74 s ::no(loadSqlit
dfc0: 65 46 69 6c 65 73 29 5d 7d 20 74 68 65 6e 20 7b eFiles)]} then {
dfd0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 72 .. tr
dfe0: 79 4c 6f 61 64 41 73 73 65 6d 62 6c 79 20 53 79 yLoadAssembly Sy
dff0: 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 stem.Data.SQLite
e000: 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 20 20 20 20 .dll..
e010: 20 20 74 72 79 4c 6f 61 64 41 73 73 65 6d 62 6c tryLoadAssembl
e020: 79 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 y System.Data.SQ
e030: 4c 69 74 65 2e 4c 69 6e 71 2e 64 6c 6c 0d 0a 20 Lite.Linq.dll..
e040: 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 }..
e050: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 }....
e060: 20 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 catch {..
e070: 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 tputs $::tes
e080: 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e t_channel [appen
e090: 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 dArgs \..
e0a0: 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 66 69 6c "---- fil
e0b0: 65 20 76 65 72 73 69 6f 6e 20 6f 66 20 5c 22 73 e version of \"s
e0c0: 71 6c 69 74 65 33 2e 64 6c 6c 5c 22 2e 2e 2e 20 qlite3.dll\"...
e0d0: 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 " \..
e0e0: 20 20 20 5b 66 69 6c 65 20 76 65 72 73 69 6f 6e [file version
e0f0: 20 5b 67 65 74 42 69 6e 61 72 79 46 69 6c 65 4e [getBinaryFileN
e100: 61 6d 65 20 73 71 6c 69 74 65 33 2e 64 6c 6c 5d ame sqlite3.dll]
e110: 5d 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 7d ] \n].. }
e120: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 63 61 74 63 .... catc
e130: 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 74 h {.. t
e140: 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 puts $::test_cha
e150: 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 nnel [appendArgs
e160: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \..
e170: 20 20 22 2d 2d 2d 2d 20 66 69 6c 65 20 76 65 72 "---- file ver
e180: 73 69 6f 6e 20 6f 66 20 5c 22 53 51 4c 69 74 65 sion of \"SQLite
e190: 2e 49 6e 74 65 72 6f 70 2e 64 6c 6c 5c 22 2e 2e .Interop.dll\"..
e1a0: 2e 20 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 . " \..
e1b0: 20 20 20 20 20 5b 66 69 6c 65 20 76 65 72 73 69 [file versi
e1c0: 6f 6e 20 5b 67 65 74 42 69 6e 61 72 79 46 69 6c on [getBinaryFil
e1d0: 65 4e 61 6d 65 20 53 51 4c 69 74 65 2e 49 6e 74 eName SQLite.Int
e1e0: 65 72 6f 70 2e 64 6c 6c 5d 5d 20 5c 6e 5d 0d 0a erop.dll]] \n]..
e1f0: 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 }....
e200: 20 20 20 20 20 63 61 74 63 68 20 7b 0d 0a 20 20 catch {..
e210: 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 3a tputs $:
e220: 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 :test_channel [a
e230: 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 ppendArgs \..
e240: 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d "----
e250: 20 66 69 6c 65 20 76 65 72 73 69 6f 6e 20 6f 66 file version of
e260: 20 5c 22 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 \"System.Data.S
e270: 51 4c 69 74 65 2e 64 6c 6c 5c 22 2e 2e 2e 20 22 QLite.dll\"... "
e280: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \..
e290: 20 20 5b 66 69 6c 65 20 76 65 72 73 69 6f 6e 20 [file version
e2a0: 5b 67 65 74 42 69 6e 61 72 79 46 69 6c 65 4e 61 [getBinaryFileNa
e2b0: 6d 65 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 me System.Data.S
e2c0: 51 4c 69 74 65 2e 64 6c 6c 5d 5d 20 5c 6e 5d 0d QLite.dll]] \n].
e2d0: 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 . }....
e2e0: 20 20 20 20 20 20 63 61 74 63 68 20 7b 0d 0a 20 catch {..
e2f0: 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 tputs $
e300: 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b ::test_channel [
e310: 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 appendArgs \..
e320: 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d "---
e330: 2d 20 66 69 6c 65 20 76 65 72 73 69 6f 6e 20 6f - file version o
e340: 66 20 5c 22 53 79 73 74 65 6d 2e 44 61 74 61 2e f \"System.Data.
e350: 53 51 4c 69 74 65 2e 4c 69 6e 71 2e 64 6c 6c 5c SQLite.Linq.dll\
e360: 22 2e 2e 2e 20 22 20 5c 0d 0a 20 20 20 20 20 20 "... " \..
e370: 20 20 20 20 20 20 20 20 5b 66 69 6c 65 20 76 65 [file ve
e380: 72 73 69 6f 6e 20 5b 67 65 74 42 69 6e 61 72 79 rsion [getBinary
e390: 46 69 6c 65 4e 61 6d 65 20 53 79 73 74 65 6d 2e FileName System.
e3a0: 44 61 74 61 2e 53 51 4c 69 74 65 2e 4c 69 6e 71 Data.SQLite.Linq
e3b0: 2e 64 6c 6c 5d 5d 20 5c 6e 5d 0d 0a 20 20 20 20 .dll]] \n]..
e3c0: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 }....
e3d0: 20 73 65 74 20 61 73 73 65 6d 62 6c 69 65 73 20 set assemblies
e3e0: 5b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 41 [object invoke A
e3f0: 70 70 44 6f 6d 61 69 6e 2e 43 75 72 72 65 6e 74 ppDomain.Current
e400: 44 6f 6d 61 69 6e 20 47 65 74 41 73 73 65 6d 62 Domain GetAssemb
e410: 6c 69 65 73 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 lies]....
e420: 20 6f 62 6a 65 63 74 20 66 6f 72 65 61 63 68 20 object foreach
e430: 61 73 73 65 6d 62 6c 79 20 24 61 73 73 65 6d 62 assembly $assemb
e440: 6c 69 65 73 20 7b 0d 0a 20 20 20 20 20 20 20 20 lies {..
e450: 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6d 61 if {[string ma
e460: 74 63 68 20 5c 7b 53 79 73 74 65 6d 2e 44 61 74 tch \{System.Dat
e470: 61 2e 53 51 4c 69 74 65 2a 20 24 61 73 73 65 6d a.SQLite* $assem
e480: 62 6c 79 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 bly]} then {..
e490: 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 tputs
e4a0: 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 $::test_channel
e4b0: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 [appendArgs \..
e4c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 "
e4d0: 2d 2d 2d 2d 20 66 6f 75 6e 64 20 61 73 73 65 6d ---- found assem
e4e0: 62 6c 79 3a 20 22 20 24 61 73 73 65 6d 62 6c 79 bly: " $assembly
e4f0: 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 \n]..
e500: 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a }.. }....
e510: 20 20 20 20 20 20 20 20 63 61 74 63 68 20 7b 0d catch {.
e520: 0a 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 . tputs
e530: 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c $::test_channel
e540: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \..
e550: 20 20 22 2d 2d 2d 2d 20 64 65 66 69 6e 65 20 63 "---- define c
e560: 6f 6e 73 74 61 6e 74 73 20 66 6f 72 20 5c 22 53 onstants for \"S
e570: 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 ystem.Data.SQLit
e580: 65 5c 22 2e 2e 2e 20 22 0d 0a 0d 0a 20 20 20 20 e\"... "....
e590: 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 if {[catch
e5a0: 20 7b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 {object invoke
e5b0: 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 -flags +NonPubli
e5c0: 63 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 c \..
e5d0: 20 20 20 20 20 20 20 53 79 73 74 65 6d 2e 44 61 System.Da
e5e0: 74 61 2e 53 51 4c 69 74 65 2e 53 51 4c 69 74 65 ta.SQLite.SQLite
e5f0: 33 20 44 65 66 69 6e 65 43 6f 6e 73 74 61 6e 74 3 DefineConstant
e600: 73 7d 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 s} \..
e610: 20 20 20 20 20 20 20 20 64 65 66 69 6e 65 43 6f defineCo
e620: 6e 73 74 61 6e 74 73 5d 20 3d 3d 20 30 7d 20 74 nstants] == 0} t
e630: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 hen {..
e640: 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 tputs $::test
e650: 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 _channel [append
e660: 41 72 67 73 20 5b 66 6f 72 6d 61 74 4c 69 73 74 Args [formatList
e670: 20 5b 6c 73 6f 72 74 20 5c 0d 0a 20 20 20 20 20 [lsort \..
e680: 20 20 20 20 20 20 20 20 20 20 20 24 64 65 66 69 $defi
e690: 6e 65 43 6f 6e 73 74 61 6e 74 73 5d 5d 20 5c 6e neConstants]] \n
e6a0: 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 20 65 ].. } e
e6b0: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 lse {..
e6c0: 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 tputs $::test
e6d0: 5f 63 68 61 6e 6e 65 6c 20 75 6e 6b 6e 6f 77 6e _channel unknown
e6e0: 5c 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d \n.. }.
e6f0: 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 . }....
e700: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
e710: 20 23 20 4e 4f 54 45 3a 20 4e 6f 77 2c 20 77 65 # NOTE: Now, we
e720: 20 6e 65 65 64 20 74 6f 20 6b 6e 6f 77 20 69 66 need to know if
e730: 20 74 68 65 20 53 51 4c 69 74 65 20 63 6f 72 65 the SQLite core
e740: 20 6c 69 62 72 61 72 79 20 69 73 20 61 76 61 69 library is avai
e750: 6c 61 62 6c 65 0d 0a 20 20 20 20 20 20 20 20 23 lable.. #
e760: 20 20 20 20 20 20 20 28 69 2e 65 2e 20 62 65 63 (i.e. bec
e770: 61 75 73 65 20 74 68 65 20 6d 61 6e 61 67 65 64 ause the managed
e780: 2d 6f 6e 6c 79 20 53 79 73 74 65 6d 2e 44 61 74 -only System.Dat
e790: 61 2e 53 51 4c 69 74 65 20 61 73 73 65 6d 62 6c a.SQLite assembl
e7a0: 79 20 63 61 6e 0d 0a 20 20 20 20 20 20 20 20 23 y can.. #
e7b0: 20 20 20 20 20 20 20 6c 6f 61 64 20 77 69 74 68 load with
e7c0: 6f 75 74 20 69 74 3b 20 68 6f 77 65 76 65 72 2c out it; however,
e7d0: 20 69 74 20 63 61 6e 6e 6f 74 20 64 6f 20 61 6e it cannot do an
e7e0: 79 74 68 69 6e 67 20 75 73 65 66 75 6c 20 77 69 ything useful wi
e7f0: 74 68 6f 75 74 0d 0a 20 20 20 20 20 20 20 20 23 thout.. #
e800: 20 20 20 20 20 20 20 69 74 29 2e 20 20 49 66 20 it). If
e810: 77 65 20 61 72 65 20 75 73 69 6e 67 20 74 68 65 we are using the
e820: 20 6d 69 78 65 64 2d 6d 6f 64 65 20 61 73 73 65 mixed-mode asse
e830: 6d 62 6c 79 20 61 6e 64 20 77 65 20 61 6c 72 65 mbly and we alre
e840: 61 64 79 0d 0a 20 20 20 20 20 20 20 20 23 20 20 ady.. #
e850: 20 20 20 20 20 66 6f 75 6e 64 20 69 74 20 28 61 found it (a
e860: 62 6f 76 65 29 2c 20 74 68 69 73 20 73 68 6f 75 bove), this shou
e870: 6c 64 20 61 6c 77 61 79 73 20 73 75 63 63 65 65 ld always succee
e880: 64 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 d... #..
e890: 20 20 20 20 20 20 20 63 68 65 63 6b 46 6f 72 53 checkForS
e8a0: 51 4c 69 74 65 20 24 3a 3a 74 65 73 74 5f 63 68 QLite $::test_ch
e8b0: 61 6e 6e 65 6c 0d 0a 0d 0a 20 20 20 20 20 20 20 annel....
e8c0: 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f #.. # NO
e8d0: 54 45 3a 20 43 68 65 63 6b 20 74 68 65 20 53 51 TE: Check the SQ
e8e0: 4c 69 74 65 20 64 61 74 61 62 61 73 65 20 61 6e Lite database an
e8f0: 64 20 74 65 6d 70 6f 72 61 72 79 20 64 69 72 65 d temporary dire
e900: 63 74 6f 72 69 65 73 2e 0d 0a 20 20 20 20 20 20 ctories...
e910: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 63 68 65 #.. che
e920: 63 6b 46 6f 72 53 51 4c 69 74 65 44 69 72 65 63 ckForSQLiteDirec
e930: 74 6f 72 69 65 73 20 24 3a 3a 74 65 73 74 5f 63 tories $::test_c
e940: 68 61 6e 6e 65 6c 0d 0a 0d 0a 20 20 20 20 20 20 hannel....
e950: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e #.. # N
e960: 4f 54 45 3a 20 41 74 74 65 6d 70 74 20 74 6f 20 OTE: Attempt to
e970: 64 65 74 65 72 6d 69 6e 65 20 69 66 20 76 61 72 determine if var
e980: 69 6f 75 73 20 63 6f 6d 70 69 6c 65 2d 74 69 6d ious compile-tim
e990: 65 20 6f 70 74 69 6f 6e 73 20 6e 65 65 64 65 64 e options needed
e9a0: 20 66 6f 72 0d 0a 20 20 20 20 20 20 20 20 23 20 for.. #
e9b0: 20 20 20 20 20 20 74 65 73 74 20 63 6f 6e 73 74 test const
e9c0: 72 61 69 6e 74 73 20 77 65 72 65 20 65 6e 61 62 raints were enab
e9d0: 6c 65 64 20 66 6f 72 20 74 68 65 20 6d 61 6e 61 led for the mana
e9e0: 67 65 64 20 61 73 73 65 6d 62 6c 79 2e 20 20 54 ged assembly. T
e9f0: 68 65 72 65 0d 0a 20 20 20 20 20 20 20 20 23 20 here.. #
ea00: 20 20 20 20 20 20 61 72 65 20 73 6f 6d 65 20 63 are some c
ea10: 6f 6d 70 69 6c 65 2d 74 69 6d 65 20 6f 70 74 69 ompile-time opti
ea20: 6f 6e 73 20 74 68 61 74 20 6d 75 73 74 20 61 6c ons that must al
ea30: 73 6f 20 68 61 76 65 20 62 65 65 6e 20 65 6e 61 so have been ena
ea40: 62 6c 65 64 0d 0a 20 20 20 20 20 20 20 20 23 20 bled.. #
ea50: 20 20 20 20 20 20 66 6f 72 20 74 68 65 20 69 6e for the in
ea60: 74 65 72 6f 70 20 61 73 73 65 6d 62 6c 79 20 69 terop assembly i
ea70: 6e 20 6f 72 64 65 72 20 74 6f 20 62 65 20 65 66 n order to be ef
ea80: 66 65 63 74 69 76 65 2e 20 20 46 6f 72 20 74 68 fective. For th
ea90: 6f 73 65 0d 0a 20 20 20 20 20 20 20 20 23 20 20 ose.. #
eaa0: 20 20 20 20 20 6f 70 74 69 6f 6e 73 2c 20 69 74 options, it
eab0: 20 77 69 6c 6c 20 62 65 20 61 73 73 75 6d 65 64 will be assumed
eac0: 20 74 68 61 74 20 69 74 20 77 61 73 20 65 6e 61 that it was ena
ead0: 62 6c 65 64 20 66 6f 72 20 74 68 65 20 69 6e 74 bled for the int
eae0: 65 72 6f 70 0d 0a 20 20 20 20 20 20 20 20 23 20 erop.. #
eaf0: 20 20 20 20 20 20 61 73 73 65 6d 62 6c 79 20 69 assembly i
eb00: 66 20 69 74 20 77 61 73 20 65 6e 61 62 6c 65 64 f it was enabled
eb10: 20 66 6f 72 20 74 68 65 20 6d 61 6e 61 67 65 64 for the managed
eb20: 20 61 73 73 65 6d 62 6c 79 2e 0d 0a 20 20 20 20 assembly...
eb30: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 66 #.. f
eb40: 6f 72 65 61 63 68 20 64 65 66 69 6e 65 43 6f 6e oreach defineCon
eb50: 73 74 61 6e 74 20 5b 6c 69 73 74 20 43 48 45 43 stant [list CHEC
eb60: 4b 5f 53 54 41 54 45 20 43 4f 55 4e 54 5f 48 41 K_STATE COUNT_HA
eb70: 4e 44 4c 45 20 49 4e 54 45 52 4f 50 5f 43 4f 44 NDLE INTEROP_COD
eb80: 45 43 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 EC \..
eb90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
eba0: 20 20 20 20 20 20 20 20 20 20 20 49 4e 54 45 52 INTER
ebb0: 4f 50 5f 44 45 42 55 47 20 49 4e 54 45 52 4f 50 OP_DEBUG INTEROP
ebc0: 5f 4c 4f 47 20 5c 0d 0a 20 20 20 20 20 20 20 20 _LOG \..
ebd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
ebe0: 20 20 20 20 20 20 20 20 20 20 20 20 20 49 4e 54 INT
ebf0: 45 52 4f 50 5f 45 58 54 45 4e 53 49 4f 4e 5f 46 EROP_EXTENSION_F
ec00: 55 4e 43 54 49 4f 4e 53 20 5c 0d 0a 20 20 20 20 UNCTIONS \..
ec10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
ec20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
ec30: 20 49 4e 54 45 52 4f 50 5f 54 45 53 54 5f 45 58 INTEROP_TEST_EX
ec40: 54 45 4e 53 49 4f 4e 20 53 51 4c 49 54 45 5f 53 TENSION SQLITE_S
ec50: 54 41 4e 44 41 52 44 20 5c 0d 0a 20 20 20 20 20 TANDARD \..
ec60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
ec70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
ec80: 55 53 45 5f 49 4e 54 45 52 4f 50 5f 44 4c 4c 5d USE_INTEROP_DLL]
ec90: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d {.. #.
eca0: 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 . # NOT
ecb0: 45 3a 20 43 68 65 63 6b 20 69 66 20 74 68 65 20 E: Check if the
ecc0: 63 6f 6d 70 69 6c 65 2d 74 69 6d 65 20 6f 70 74 compile-time opt
ecd0: 69 6f 6e 20 69 73 20 6c 69 73 74 65 64 20 69 6e ion is listed in
ece0: 20 74 68 65 20 6c 69 73 74 20 6f 66 0d 0a 20 20 the list of..
ecf0: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 #
ed00: 22 64 65 66 69 6e 65 20 63 6f 6e 73 74 61 6e 74 "define constant
ed10: 73 22 20 6b 65 70 74 20 74 72 61 63 6b 20 6f 66 s" kept track of
ed20: 20 62 79 20 74 68 65 20 6d 61 6e 61 67 65 64 20 by the managed
ed30: 61 73 73 65 6d 62 6c 79 2e 0d 0a 20 20 20 20 20 assembly...
ed40: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #..
ed50: 20 20 63 68 65 63 6b 46 6f 72 53 51 4c 69 74 65 checkForSQLite
ed60: 44 65 66 69 6e 65 43 6f 6e 73 74 61 6e 74 20 24 DefineConstant $
ed70: 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 24 ::test_channel $
ed80: 64 65 66 69 6e 65 43 6f 6e 73 74 61 6e 74 0d 0a defineConstant..
ed90: 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 }....
eda0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #..
edb0: 23 20 4e 4f 54 45 3a 20 43 68 65 63 6b 20 74 68 # NOTE: Check th
edc0: 65 20 63 75 72 72 65 6e 74 20 62 75 69 6c 64 20 e current build
edd0: 79 65 61 72 2e 20 20 42 61 73 69 63 61 6c 6c 79 year. Basically
ede0: 2c 20 74 68 69 73 20 69 6e 64 69 63 61 74 65 73 , this indicates
edf0: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 .. #
ee00: 20 20 77 68 69 63 68 20 76 65 72 73 69 6f 6e 20 which version
ee10: 6f 66 20 4d 53 42 75 69 6c 64 20 61 6e 64 2f 6f of MSBuild and/o
ee20: 72 20 56 69 73 75 61 6c 20 53 74 75 64 69 6f 20 r Visual Studio
ee30: 77 61 73 20 75 73 65 64 20 74 6f 0d 0a 20 20 20 was used to..
ee40: 20 20 20 20 20 23 20 20 20 20 20 20 20 63 6f 6d # com
ee50: 70 69 6c 65 20 74 68 65 20 61 73 73 65 6d 62 6c pile the assembl
ee60: 79 20 62 69 6e 61 72 69 65 73 20 75 6e 64 65 72 y binaries under
ee70: 20 74 65 73 74 2e 0d 0a 20 20 20 20 20 20 20 20 test...
ee80: 23 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 #.. tputs
ee90: 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c $::test_channel
eea0: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \..
eeb0: 22 2d 2d 2d 2d 20 63 68 65 63 6b 69 6e 67 20 66 "---- checking f
eec0: 6f 72 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 or System.Data.S
eed0: 51 4c 69 74 65 20 62 75 69 6c 64 20 79 65 61 72 QLite build year
eee0: 2e 2e 2e 20 22 0d 0a 0d 0a 20 20 20 20 20 20 20 ... "....
eef0: 20 73 65 74 20 79 65 61 72 20 5b 67 65 74 42 75 set year [getBu
ef00: 69 6c 64 59 65 61 72 5d 0d 0a 20 20 20 20 20 20 ildYear]..
ef10: 20 20 61 64 64 43 6f 6e 73 74 72 61 69 6e 74 20 addConstraint
ef20: 5b 61 70 70 65 6e 64 41 72 67 73 20 62 75 69 6c [appendArgs buil
ef30: 64 59 65 61 72 20 24 79 65 61 72 5d 0d 0a 20 20 dYear $year]..
ef40: 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 tputs $::t
ef50: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 est_channel [app
ef60: 65 6e 64 41 72 67 73 20 5c 22 20 24 79 65 61 72 endArgs \" $year
ef70: 20 5c 22 5c 6e 5d 0d 0a 0d 0a 20 20 20 20 20 20 \"\n]....
ef80: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e #.. # N
ef90: 4f 54 45 3a 20 43 68 65 63 6b 20 74 68 65 20 63 OTE: Check the c
efa0: 75 72 72 65 6e 74 20 62 75 69 6c 64 20 63 6f 6e urrent build con
efb0: 66 69 67 75 72 61 74 69 6f 6e 2e 20 20 54 68 69 figuration. Thi
efc0: 73 20 73 68 6f 75 6c 64 20 6e 6f 72 6d 61 6c 6c s should normall
efd0: 79 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 y.. #
efe0: 20 20 20 62 65 20 65 69 74 68 65 72 20 22 44 65 be either "De
eff0: 62 75 67 22 20 6f 72 20 22 52 65 6c 65 61 73 65 bug" or "Release
f000: 22 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 "... #..
f010: 20 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a tputs $::
f020: 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5c 0d 0a test_channel \..
f030: 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d "---
f040: 2d 20 63 68 65 63 6b 69 6e 67 20 66 6f 72 20 53 - checking for S
f050: 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 ystem.Data.SQLit
f060: 65 20 62 75 69 6c 64 20 63 6f 6e 66 69 67 75 72 e build configur
f070: 61 74 69 6f 6e 2e 2e 2e 20 22 0d 0a 0d 0a 20 20 ation... "....
f080: 20 20 20 20 20 20 73 65 74 20 63 6f 6e 66 69 67 set config
f090: 75 72 61 74 69 6f 6e 20 5b 67 65 74 42 75 69 6c uration [getBuil
f0a0: 64 43 6f 6e 66 69 67 75 72 61 74 69 6f 6e 5d 0d dConfiguration].
f0b0: 0a 20 20 20 20 20 20 20 20 61 64 64 43 6f 6e 73 . addCons
f0c0: 74 72 61 69 6e 74 20 5b 61 70 70 65 6e 64 41 72 traint [appendAr
f0d0: 67 73 20 62 75 69 6c 64 43 6f 6e 66 69 67 75 72 gs buildConfigur
f0e0: 61 74 69 6f 6e 20 24 63 6f 6e 66 69 67 75 72 61 ation $configura
f0f0: 74 69 6f 6e 5d 0d 0a 20 20 20 20 20 20 20 20 74 tion].. t
f100: 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 puts $::test_cha
f110: 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 nnel [appendArgs
f120: 20 5c 22 20 24 63 6f 6e 66 69 67 75 72 61 74 69 \" $configurati
f130: 6f 6e 20 5c 22 5c 6e 5d 0d 0a 0d 0a 20 20 20 20 on \"\n]....
f140: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 #.. #
f150: 20 4e 4f 54 45 3a 20 43 68 65 63 6b 20 66 6f 72 NOTE: Check for
f160: 20 74 68 65 20 6e 61 74 69 76 65 20 72 75 6e 74 the native runt
f170: 69 6d 65 20 6f 70 74 69 6f 6e 2c 20 77 68 69 63 ime option, whic
f180: 68 20 77 6f 75 6c 64 20 6d 65 61 6e 20 77 65 20 h would mean we
f190: 61 72 65 0d 0a 20 20 20 20 20 20 20 20 23 20 20 are.. #
f1a0: 20 20 20 20 20 75 73 69 6e 67 20 74 68 65 20 6d using the m
f1b0: 69 78 65 64 2d 6d 6f 64 65 20 61 73 73 65 6d 62 ixed-mode assemb
f1c0: 6c 79 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a ly... #..
f1d0: 20 20 20 20 20 20 20 20 63 68 65 63 6b 46 6f 72 checkFor
f1e0: 52 75 6e 74 69 6d 65 4f 70 74 69 6f 6e 20 24 3a RuntimeOption $:
f1f0: 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 6e 61 :test_channel na
f200: 74 69 76 65 0d 0a 0d 0a 20 20 20 20 20 20 20 20 tive....
f210: 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT
f220: 45 3a 20 43 68 65 63 6b 20 69 66 20 74 68 65 20 E: Check if the
f230: 74 65 73 74 20 73 75 69 74 65 20 73 68 6f 75 6c test suite shoul
f240: 64 20 63 6f 75 6e 74 20 74 68 65 20 6e 75 6d 62 d count the numb
f250: 65 72 20 6f 66 20 63 6f 6e 6e 65 63 74 69 6f 6e er of connection
f260: 73 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 s.. #
f270: 20 20 20 22 6f 70 65 6e 65 64 22 20 61 6e 64 20 "opened" and
f280: 22 63 6c 6f 73 65 64 22 20 66 72 6f 6d 20 74 68 "closed" from th
f290: 65 20 70 6f 6f 6c 20 77 68 65 6e 20 64 65 74 65 e pool when dete
f2a0: 72 6d 69 6e 69 6e 67 20 69 66 20 61 20 74 65 73 rmining if a tes
f2b0: 74 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 t.. #
f2c0: 20 20 20 70 61 73 73 65 64 2e 20 20 44 69 73 61 passed. Disa
f2d0: 62 6c 69 6e 67 20 74 68 69 73 20 62 65 68 61 76 bling this behav
f2e0: 69 6f 72 20 69 73 20 73 6f 6d 65 74 69 6d 65 73 ior is sometimes
f2f0: 20 6e 65 63 65 73 73 61 72 79 20 28 65 2e 67 2e necessary (e.g.
f300: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 .. #
f310: 20 20 64 75 72 69 6e 67 20 74 68 65 20 72 65 6c during the rel
f320: 65 61 73 65 20 74 65 73 74 69 6e 67 20 70 72 6f ease testing pro
f330: 63 65 73 73 29 20 62 65 63 61 75 73 65 20 74 68 cess) because th
f340: 65 72 65 20 61 72 65 20 73 65 76 65 72 61 6c 0d ere are several.
f350: 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 . #
f360: 20 74 65 73 74 73 20 74 68 61 74 20 72 65 6c 79 tests that rely
f370: 20 6f 6e 20 74 68 65 20 22 6f 70 65 6e 65 64 20 on the "opened
f380: 66 72 6f 6d 20 70 6f 6f 6c 22 20 63 6f 75 6e 74 from pool" count
f390: 20 62 65 69 6e 67 20 67 72 65 61 74 65 72 0d 0a being greater..
f3a0: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 #
f3b0: 74 68 61 6e 20 7a 65 72 6f 2e 20 20 54 68 65 73 than zero. Thes
f3c0: 65 20 74 65 73 74 73 20 6d 61 79 20 66 61 69 6c e tests may fail
f3d0: 20 64 75 65 20 74 6f 20 74 68 65 20 6e 6f 6e 2d due to the non-
f3e0: 64 65 74 65 72 6d 69 6e 69 73 74 69 63 0d 0a 20 deterministic..
f3f0: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 62 # b
f400: 65 68 61 76 69 6f 72 20 6f 66 20 74 68 65 20 43 ehavior of the C
f410: 4c 52 20 47 43 2c 20 65 76 65 6e 20 77 68 65 6e LR GC, even when
f420: 20 74 68 65 72 65 20 69 73 20 6e 6f 20 62 75 67 there is no bug
f430: 20 69 6e 20 74 68 65 20 63 6f 64 65 0d 0a 20 20 in the code..
f440: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 62 65 # be
f450: 69 6e 67 20 74 65 73 74 65 64 2e 0d 0a 20 20 20 ing tested...
f460: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #..
f470: 63 68 65 63 6b 46 6f 72 52 75 6e 74 69 6d 65 4f checkForRuntimeO
f480: 70 74 69 6f 6e 20 24 3a 3a 74 65 73 74 5f 63 68 ption $::test_ch
f490: 61 6e 6e 65 6c 20 6e 6f 50 6f 6f 6c 43 6f 75 6e annel noPoolCoun
f4a0: 74 73 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d ts.... #.
f4b0: 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a . # NOTE:
f4c0: 20 52 65 70 6f 72 74 20 74 68 65 20 72 65 73 6f Report the reso
f4d0: 75 72 63 65 20 75 73 61 67 65 20 70 72 69 6f 72 urce usage prior
f4e0: 20 74 6f 20 72 75 6e 6e 69 6e 67 20 61 6e 79 20 to running any
f4f0: 74 65 73 74 73 2e 0d 0a 20 20 20 20 20 20 20 20 tests...
f500: 23 0d 0a 20 20 20 20 20 20 20 20 72 65 70 6f 72 #.. repor
f510: 74 53 51 4c 69 74 65 52 65 73 6f 75 72 63 65 73 tSQLiteResources
f520: 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c $::test_channel
f530: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 .... #..
f540: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 # NOTE: S
f550: 68 6f 77 20 74 68 65 20 61 63 74 69 76 65 20 74 how the active t
f560: 65 73 74 20 63 6f 6e 73 74 72 61 69 6e 74 73 2e est constraints.
f570: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #..
f580: 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 tputs $::te
f590: 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 st_channel [appe
f5a0: 6e 64 41 72 67 73 20 22 2d 2d 2d 2d 20 63 6f 6e ndArgs "---- con
f5b0: 73 74 72 61 69 6e 74 73 3a 20 22 20 5c 0d 0a 20 straints: " \..
f5c0: 20 20 20 20 20 20 20 20 20 20 20 5b 66 6f 72 6d [form
f5d0: 61 74 4c 69 73 74 20 5b 6c 73 6f 72 74 20 5b 67 atList [lsort [g
f5e0: 65 74 43 6f 6e 73 74 72 61 69 6e 74 73 5d 5d 5d etConstraints]]]
f5f0: 20 5c 6e 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 \n]....
f600: 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT
f610: 45 3a 20 53 61 76 65 20 74 68 65 20 74 65 73 74 E: Save the test
f620: 20 63 6f 6e 73 74 72 61 69 6e 74 73 20 66 6f 72 constraints for
f630: 20 75 73 65 20 62 79 20 74 68 72 65 61 64 73 20 use by threads
f640: 63 72 65 61 74 65 64 20 69 6e 20 74 68 69 73 0d created in this.
f650: 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 . #
f660: 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 64 6f 6d application dom
f670: 61 69 6e 2e 20 20 54 68 69 73 20 69 73 20 6e 65 ain. This is ne
f680: 63 65 73 73 61 72 79 20 62 65 63 61 75 73 65 20 cessary because
f690: 61 6c 6c 20 74 68 65 20 45 61 67 6c 65 0d 0a 20 all the Eagle..
f6a0: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 22 # "
f6b0: 74 65 73 74 20 63 6f 6e 74 65 78 74 22 20 69 6e test context" in
f6c0: 66 6f 72 6d 61 74 69 6f 6e 20 69 73 20 70 65 72 formation is per
f6d0: 2d 74 68 72 65 61 64 2e 0d 0a 20 20 20 20 20 20 -thread...
f6e0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 69 66 20 #.. if
f6f0: 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a {![info exists :
f700: 3a 74 65 73 74 5f 63 6f 6e 73 74 72 61 69 6e 74 :test_constraint
f710: 73 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 s]} then {..
f720: 20 20 20 20 20 20 73 65 74 20 3a 3a 74 65 73 74 set ::test
f730: 5f 63 6f 6e 73 74 72 61 69 6e 74 73 20 24 3a 3a _constraints $::
f740: 65 61 67 6c 65 5f 74 65 73 74 73 28 63 6f 6e 73 eagle_tests(cons
f750: 74 72 61 69 6e 74 73 29 0d 0a 20 20 20 20 20 20 traints)..
f760: 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 }.... #
f770: 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 .. # NOTE
f780: 3a 20 4c 6f 61 64 20 74 68 65 20 22 61 66 74 65 : Load the "afte
f790: 72 2d 63 6f 6e 73 74 72 61 69 6e 74 73 22 20 63 r-constraints" c
f7a0: 75 73 74 6f 6d 20 70 65 72 2d 75 73 65 72 20 61 ustom per-user a
f7b0: 6e 64 2f 6f 72 20 70 65 72 2d 68 6f 73 74 0d 0a nd/or per-host..
f7c0: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 #
f7d0: 74 65 73 74 20 73 65 74 74 69 6e 67 73 20 6e 6f test settings no
f7e0: 77 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 w... #..
f7f0: 20 20 20 20 20 20 20 75 70 6c 65 76 65 6c 20 31 uplevel 1
f800: 20 5b 6c 69 73 74 20 6c 6f 61 64 53 51 4c 69 74 [list loadSQLit
f810: 65 54 65 73 74 53 65 74 74 69 6e 67 73 20 24 3a eTestSettings $:
f820: 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 2e 61 :test_channel .a
f830: 66 74 65 72 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 fter]....
f840: 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f #.. # NO
f850: 54 45 3a 20 53 68 6f 77 20 77 68 65 6e 20 6f 75 TE: Show when ou
f860: 72 20 74 65 73 74 73 20 61 63 74 75 61 6c 6c 79 r tests actually
f870: 20 62 65 67 61 6e 20 28 6e 6f 77 29 2e 0d 0a 20 began (now)...
f880: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
f890: 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f tputs $::test_
f8a0: 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 channel [appendA
f8b0: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 rgs \..
f8c0: 20 20 20 22 2d 2d 2d 2d 20 53 79 73 74 65 6d 2e "---- System.
f8d0: 44 61 74 61 2e 53 51 4c 69 74 65 20 74 65 73 74 Data.SQLite test
f8e0: 73 20 62 65 67 61 6e 20 61 74 20 22 20 5c 0d 0a s began at " \..
f8f0: 20 20 20 20 20 20 20 20 20 20 20 20 5b 63 6c 6f [clo
f900: 63 6b 20 66 6f 72 6d 61 74 20 5b 63 6c 6f 63 6b ck format [clock
f910: 20 73 65 63 6f 6e 64 73 5d 5d 20 5c 6e 5d 0d 0a seconds]] \n]..
f920: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a }.. }..
f930: 0c 0d 0a 20 20 20 20 70 72 6f 63 20 72 75 6e 53 ... proc runS
f940: 51 4c 69 74 65 54 65 73 74 45 70 69 6c 6f 67 75 QLiteTestEpilogu
f950: 65 20 7b 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d e {} {.. #.
f960: 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 . # NOTE: S
f970: 6b 69 70 20 72 75 6e 6e 69 6e 67 20 6f 75 72 20 kip running our
f980: 63 75 73 74 6f 6d 20 65 70 69 6c 6f 67 75 65 20 custom epilogue
f990: 69 66 20 74 68 65 20 6d 61 69 6e 20 6f 6e 65 20 if the main one
f9a0: 68 61 73 20 62 65 65 6e 0d 0a 20 20 20 20 20 20 has been..
f9b0: 23 20 20 20 20 20 20 20 73 6b 69 70 70 65 64 2e # skipped.
f9c0: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #..
f9d0: 20 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 if {![info exis
f9e0: 74 73 20 3a 3a 6e 6f 28 65 70 69 6c 6f 67 75 65 ts ::no(epilogue
f9f0: 2e 65 61 67 6c 65 29 5d 7d 20 74 68 65 6e 20 7b .eagle)]} then {
fa00: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #..
fa10: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 68 6f # NOTE: Sho
fa20: 77 20 77 68 65 6e 20 6f 75 72 20 74 65 73 74 73 w when our tests
fa30: 20 61 63 74 75 61 6c 6c 79 20 65 6e 64 65 64 20 actually ended
fa40: 28 6e 6f 77 29 2e 0d 0a 20 20 20 20 20 20 20 20 (now)...
fa50: 23 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 #.. tputs
fa60: 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c $::test_channel
fa70: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a [appendArgs \..
fa80: 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d "---
fa90: 2d 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 - System.Data.SQ
faa0: 4c 69 74 65 20 74 65 73 74 73 20 65 6e 64 65 64 Lite tests ended
fab0: 20 61 74 20 22 20 5c 0d 0a 20 20 20 20 20 20 20 at " \..
fac0: 20 20 20 20 20 5b 63 6c 6f 63 6b 20 66 6f 72 6d [clock form
fad0: 61 74 20 5b 63 6c 6f 63 6b 20 73 65 63 6f 6e 64 at [clock second
fae0: 73 5d 5d 20 5c 6e 5d 0d 0a 0d 0a 20 20 20 20 20 s]] \n]....
faf0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 #.. #
fb00: 42 55 47 46 49 58 3a 20 42 65 66 6f 72 65 20 63 BUGFIX: Before c
fb10: 68 65 63 6b 69 6e 67 20 74 68 65 20 66 69 6e 61 hecking the fina
fb20: 6c 20 72 65 73 6f 75 72 63 65 73 20 69 6e 20 75 l resources in u
fb30: 73 65 20 62 79 20 53 51 4c 69 74 65 2c 20 6d 61 se by SQLite, ma
fb40: 6b 65 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 ke.. #
fb50: 20 20 20 20 20 20 73 75 72 65 20 62 6f 74 68 20 sure both
fb60: 6f 66 20 74 68 65 20 50 52 41 47 4d 41 20 72 65 of the PRAGMA re
fb70: 6c 61 74 65 64 20 64 69 72 65 63 74 6f 72 79 20 lated directory
fb80: 6e 61 6d 65 73 20 61 72 65 20 66 72 65 65 64 2e names are freed.
fb90: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #..
fba0: 20 20 20 20 20 63 68 65 63 6b 46 6f 72 53 51 4c checkForSQL
fbb0: 69 74 65 44 69 72 65 63 74 6f 72 69 65 73 20 24 iteDirectories $
fbc0: 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 74 ::test_channel t
fbd0: 72 75 65 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 rue.... #
fbe0: 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 .. # NOTE
fbf0: 3a 20 41 6c 73 6f 20 72 65 70 6f 72 74 20 74 68 : Also report th
fc00: 65 20 72 65 73 6f 75 72 63 65 20 75 73 61 67 65 e resource usage
fc10: 20 61 66 74 65 72 20 72 75 6e 6e 69 6e 67 20 74 after running t
fc20: 68 65 20 74 65 73 74 73 2e 0d 0a 20 20 20 20 20 he tests...
fc30: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 72 65 #.. re
fc40: 70 6f 72 74 53 51 4c 69 74 65 52 65 73 6f 75 72 portSQLiteResour
fc50: 63 65 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e ces $::test_chan
fc60: 6e 65 6c 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 nel.. }..
fc70: 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 23 23 23 23 }..... ####
fc80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
fc90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
fca0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
fcb0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
fcc0: 23 23 23 23 23 23 23 0d 0a 20 20 20 20 23 23 23 #######.. ###
fcd0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
fce0: 23 23 23 23 23 23 23 23 23 23 20 45 4e 44 20 45 ########## END E
fcf0: 61 67 6c 65 20 4f 4e 4c 59 20 23 23 23 23 23 23 agle ONLY ######
fd00: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
fd10: 23 23 23 23 23 23 23 23 0d 0a 20 20 20 20 23 23 ########.. ##
fd20: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
fd30: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
fd40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
fd50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
fd60: 23 23 23 23 23 23 23 23 23 0d 0a 20 20 7d 0d 0a #########.. }..
fd70: 0d 0a 20 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a .. #.. # NOTE:
fd80: 20 53 61 76 65 20 74 68 65 20 6e 61 6d 65 20 6f Save the name o
fd90: 66 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 20 f the directory
fda0: 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 69 73 20 containing this
fdb0: 66 69 6c 65 2e 0d 0a 20 20 23 0d 0a 20 20 69 66 file... #.. if
fdc0: 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 {![info exists
fdd0: 3a 3a 63 6f 6d 6d 6f 6e 5f 64 69 72 65 63 74 6f ::common_directo
fde0: 72 79 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 ry]} then {..
fdf0: 20 73 65 74 20 3a 3a 63 6f 6d 6d 6f 6e 5f 64 69 set ::common_di
fe00: 72 65 63 74 6f 72 79 20 5b 66 69 6c 65 20 64 69 rectory [file di
fe10: 72 6e 61 6d 65 20 5b 69 6e 66 6f 20 73 63 72 69 rname [info scri
fe20: 70 74 5d 5d 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 23 pt]].. }.... #
fe30: 0d 0a 20 20 23 20 4e 4f 54 45 3a 20 50 72 6f 76 .. # NOTE: Prov
fe40: 69 64 65 20 74 68 65 20 53 79 73 74 65 6d 2e 44 ide the System.D
fe50: 61 74 61 2e 53 51 4c 69 74 65 20 74 65 73 74 20 ata.SQLite test
fe60: 70 61 63 6b 61 67 65 20 74 6f 20 74 68 65 20 69 package to the i
fe70: 6e 74 65 72 70 72 65 74 65 72 2e 0d 0a 20 20 23 nterpreter... #
fe80: 0d 0a 20 20 70 61 63 6b 61 67 65 20 70 72 6f 76 .. package prov
fe90: 69 64 65 20 53 79 73 74 65 6d 2e 44 61 74 61 2e ide System.Data.
fea0: 53 51 4c 69 74 65 2e 54 65 73 74 20 31 2e 30 0d SQLite.Test 1.0.
feb0: 0a 7d 0d 0a .}..