0000: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0010: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0020: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0030: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0040: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d ###############.
0050: 0a 23 0d 0a 23 20 63 6f 6d 6d 6f 6e 2e 65 61 67 .#..# common.eag
0060: 6c 65 20 2d 2d 0d 0a 23 0d 0a 23 20 57 72 69 74 le --..#..# Writ
0070: 74 65 6e 20 62 79 20 4a 6f 65 20 4d 69 73 74 61 ten by Joe Mista
0080: 63 68 6b 69 6e 2e 0d 0a 23 20 52 65 6c 65 61 73 chkin...# Releas
0090: 65 64 20 74 6f 20 74 68 65 20 70 75 62 6c 69 63 ed to the public
00a0: 20 64 6f 6d 61 69 6e 2c 20 75 73 65 20 61 74 20 domain, use at
00b0: 79 6f 75 72 20 6f 77 6e 20 72 69 73 6b 21 0d 0a your own risk!..
00c0: 23 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23 23 #..#############
00d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
00e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
00f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0100: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0110: 23 23 0d 0a 0d 0a 23 0d 0a 23 20 4e 4f 54 45 3a ##....#..# NOTE:
0120: 20 55 73 65 20 6f 75 72 20 6f 77 6e 20 6e 61 6d Use our own nam
0130: 65 73 70 61 63 65 20 68 65 72 65 20 62 65 63 61 espace here beca
0140: 75 73 65 20 65 76 65 6e 20 74 68 6f 75 67 68 20 use even though
0150: 77 65 20 64 6f 20 6e 6f 74 20 64 69 72 65 63 74 we do not direct
0160: 6c 79 0d 0a 23 20 20 20 20 20 20 20 73 75 70 70 ly..# supp
0170: 6f 72 74 20 6e 61 6d 65 73 70 61 63 65 73 20 6f ort namespaces o
0180: 75 72 73 65 6c 76 65 73 2c 20 77 65 20 64 6f 20 urselves, we do
0190: 6e 6f 74 20 77 61 6e 74 20 74 6f 20 70 6f 6c 6c not want to poll
01a0: 75 74 65 20 74 68 65 20 67 6c 6f 62 61 6c 0d 0a ute the global..
01b0: 23 20 20 20 20 20 20 20 6e 61 6d 65 73 70 61 63 # namespac
01c0: 65 20 69 66 20 74 68 69 73 20 73 63 72 69 70 74 e if this script
01d0: 20 61 63 74 75 61 6c 6c 79 20 65 6e 64 73 20 75 actually ends u
01e0: 70 20 62 65 69 6e 67 20 65 76 61 6c 75 61 74 65 p being evaluate
01f0: 64 20 69 6e 20 54 63 6c 2e 0d 0a 23 0d 0a 6e 61 d in Tcl...#..na
0200: 6d 65 73 70 61 63 65 20 65 76 61 6c 20 3a 3a 45 mespace eval ::E
0210: 61 67 6c 65 20 7b 0d 0a 20 20 69 66 20 7b 5b 69 agle {.. if {[i
0220: 73 45 61 67 6c 65 5d 7d 20 74 68 65 6e 20 7b 0d sEagle]} then {.
0230: 0a 20 20 20 20 23 23 23 23 23 23 23 23 23 23 23 . ###########
0240: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0250: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0260: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0270: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0280: 0d 0a 20 20 20 20 23 23 23 23 23 23 23 23 23 23 .. ##########
0290: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
02a0: 23 23 20 42 45 47 49 4e 20 45 61 67 6c 65 20 4f ## BEGIN Eagle O
02b0: 4e 4c 59 20 23 23 23 23 23 23 23 23 23 23 23 23 NLY ############
02c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
02d0: 23 0d 0a 20 20 20 20 23 23 23 23 23 23 23 23 23 #.. #########
02e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
02f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0300: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0310: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0320: 23 23 0d 0a 0d 0a 20 20 20 20 70 72 6f 63 20 67 ##.... proc g
0330: 65 74 42 75 69 6c 64 59 65 61 72 20 7b 7d 20 7b etBuildYear {} {
0340: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #..
0350: 20 23 20 4e 4f 54 45 3a 20 53 65 65 20 69 66 20 # NOTE: See if
0360: 74 68 65 20 22 79 65 61 72 22 20 73 65 74 74 69 the "year" setti
0370: 6e 67 20 68 61 73 20 62 65 65 6e 20 6f 76 65 72 ng has been over
0380: 72 69 64 64 65 6e 20 62 79 20 74 68 65 20 75 73 ridden by the us
0390: 65 72 20 28 65 2e 67 2e 0d 0a 20 20 20 20 20 20 er (e.g...
03a0: 23 20 20 20 20 20 20 20 6f 6e 20 74 68 65 20 63 # on the c
03b0: 6f 6d 6d 61 6e 64 20 6c 69 6e 65 29 2e 20 20 54 ommand line). T
03c0: 68 69 73 20 68 65 6c 70 73 20 63 6f 6e 74 72 6f his helps contro
03d0: 6c 20 65 78 61 63 74 6c 79 20 77 68 69 63 68 20 l exactly which
03e0: 73 65 74 20 6f 66 0d 0a 20 20 20 20 20 20 23 20 set of.. #
03f0: 20 20 20 20 20 20 62 69 6e 61 72 69 65 73 20 77 binaries w
0400: 65 20 61 72 65 20 74 65 73 74 69 6e 67 2c 20 74 e are testing, t
0410: 68 6f 73 65 20 70 72 6f 64 75 63 65 64 20 75 73 hose produced us
0420: 69 6e 67 20 74 68 65 20 56 69 73 75 61 6c 20 53 ing the Visual S
0430: 74 75 64 69 6f 0d 0a 20 20 20 20 20 20 23 20 20 tudio.. #
0440: 20 20 20 20 20 32 30 30 35 2c 20 32 30 30 38 2c 2005, 2008,
0450: 20 32 30 31 30 2c 20 6f 72 20 32 30 31 32 20 62 2010, or 2012 b
0460: 75 69 6c 64 20 73 79 73 74 65 6d 73 2e 20 20 54 uild systems. T
0470: 6f 20 6f 76 65 72 72 69 64 65 20 74 68 69 73 20 o override this
0480: 76 61 6c 75 65 0d 0a 20 20 20 20 20 20 23 20 20 value.. #
0490: 20 20 20 20 20 76 69 61 20 74 68 65 20 63 6f 6d via the com
04a0: 6d 61 6e 64 20 6c 69 6e 65 2c 20 65 6e 74 65 72 mand line, enter
04b0: 20 61 20 63 6f 6d 6d 61 6e 64 20 73 69 6d 69 6c a command simil
04c0: 61 72 20 74 6f 20 6f 6e 65 20 6f 66 20 74 68 65 ar to one of the
04d0: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. #
04e0: 66 6f 6c 6c 6f 77 69 6e 67 20 28 61 6c 6c 20 6f following (all o
04f0: 6e 20 6f 6e 65 20 6c 69 6e 65 29 3a 0d 0a 20 20 n one line):..
0500: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 20 #.. #
0510: 20 20 20 20 20 45 61 67 6c 65 53 68 65 6c 6c 2e EagleShell.
0520: 65 78 65 20 2d 70 72 65 49 6e 69 74 69 61 6c 69 exe -preInitiali
0530: 7a 65 20 22 73 65 74 20 74 65 73 74 5f 79 65 61 ze "set test_yea
0540: 72 20 32 30 30 35 22 0d 0a 20 20 20 20 20 20 23 r 2005".. #
0550: 20 20 20 20 20 20 20 20 20 2d 66 69 6c 65 20 2e -file .
0560: 5c 70 61 74 68 5c 74 6f 5c 61 6c 6c 2e 65 61 67 \path\to\all.eag
0570: 6c 65 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 le.. #..
0580: 20 20 20 23 20 20 20 20 20 20 20 45 61 67 6c 65 # Eagle
0590: 53 68 65 6c 6c 2e 65 78 65 20 2d 70 72 65 49 6e Shell.exe -preIn
05a0: 69 74 69 61 6c 69 7a 65 20 22 73 65 74 20 74 65 itialize "set te
05b0: 73 74 5f 79 65 61 72 20 32 30 30 38 22 0d 0a 20 st_year 2008"..
05c0: 20 20 20 20 20 23 20 20 20 20 20 20 20 20 20 2d # -
05d0: 66 69 6c 65 20 2e 5c 70 61 74 68 5c 74 6f 5c 61 file .\path\to\a
05e0: 6c 6c 2e 65 61 67 6c 65 0d 0a 20 20 20 20 20 20 ll.eagle..
05f0: 23 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 #.. #
0600: 20 45 61 67 6c 65 53 68 65 6c 6c 2e 65 78 65 20 EagleShell.exe
0610: 2d 70 72 65 49 6e 69 74 69 61 6c 69 7a 65 20 22 -preInitialize "
0620: 73 65 74 20 74 65 73 74 5f 79 65 61 72 20 32 30 set test_year 20
0630: 31 30 22 0d 0a 20 20 20 20 20 20 23 20 20 20 20 10".. #
0640: 20 20 20 20 20 2d 66 69 6c 65 20 2e 5c 70 61 74 -file .\pat
0650: 68 5c 74 6f 5c 61 6c 6c 2e 65 61 67 6c 65 0d 0a h\to\all.eagle..
0660: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 #.. #
0670: 20 20 20 20 20 20 20 45 61 67 6c 65 53 68 65 6c EagleShel
0680: 6c 2e 65 78 65 20 2d 70 72 65 49 6e 69 74 69 61 l.exe -preInitia
0690: 6c 69 7a 65 20 22 73 65 74 20 74 65 73 74 5f 79 lize "set test_y
06a0: 65 61 72 20 32 30 31 32 22 0d 0a 20 20 20 20 20 ear 2012"..
06b0: 20 23 20 20 20 20 20 20 20 20 20 2d 66 69 6c 65 # -file
06c0: 20 2e 5c 70 61 74 68 5c 74 6f 5c 61 6c 6c 2e 65 .\path\to\all.e
06d0: 61 67 6c 65 0d 0a 20 20 20 20 20 20 23 0d 0a 20 agle.. #..
06e0: 20 20 20 20 20 23 20 20 20 20 20 20 20 45 61 67 # Eag
06f0: 6c 65 53 68 65 6c 6c 2e 65 78 65 20 2d 70 72 65 leShell.exe -pre
0700: 49 6e 69 74 69 61 6c 69 7a 65 20 22 75 6e 73 65 Initialize "unse
0710: 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 74 65 t -nocomplain te
0720: 73 74 5f 79 65 61 72 22 0d 0a 20 20 20 20 20 20 st_year"..
0730: 23 20 20 20 20 20 20 20 20 20 2d 66 69 6c 65 20 # -file
0740: 2e 5c 70 61 74 68 5c 74 6f 5c 61 6c 6c 2e 65 61 .\path\to\all.ea
0750: 67 6c 65 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 gle.. #..
0760: 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 if {[info ex
0770: 69 73 74 73 20 3a 3a 74 65 73 74 5f 79 65 61 72 ists ::test_year
0780: 5d 20 26 26 20 5b 73 74 72 69 6e 67 20 6c 65 6e ] && [string len
0790: 67 74 68 20 24 3a 3a 74 65 73 74 5f 79 65 61 72 gth $::test_year
07a0: 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 ] > 0} then {..
07b0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
07c0: 20 20 23 20 4e 4f 54 45 3a 20 55 73 65 20 74 68 # NOTE: Use th
07d0: 65 20 73 70 65 63 69 66 69 65 64 20 74 65 73 74 e specified test
07e0: 20 79 65 61 72 2e 20 20 49 66 20 74 68 69 73 20 year. If this
07f0: 76 61 72 69 61 62 6c 65 20 69 73 20 6e 6f 74 20 variable is not
0800: 73 65 74 2c 20 74 68 65 0d 0a 20 20 20 20 20 20 set, the..
0810: 20 20 23 20 20 20 20 20 20 20 64 65 66 61 75 6c # defaul
0820: 74 20 76 61 6c 75 65 20 77 69 6c 6c 20 62 65 20 t value will be
0830: 62 61 73 65 64 20 6f 6e 20 77 68 65 74 68 65 72 based on whether
0840: 20 6f 72 20 6e 6f 74 20 45 61 67 6c 65 20 68 61 or not Eagle ha
0850: 73 20 62 65 65 6e 0d 0a 20 20 20 20 20 20 20 20 s been..
0860: 23 20 20 20 20 20 20 20 63 6f 6d 70 69 6c 65 64 # compiled
0870: 20 61 67 61 69 6e 73 74 20 74 68 65 20 43 4c 52 against the CLR
0880: 20 76 32 2e 30 20 6f 72 20 43 4c 52 20 76 34 2e v2.0 or CLR v4.
0890: 30 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 0... #..
08a0: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 3a return $:
08b0: 3a 74 65 73 74 5f 79 65 61 72 0d 0a 20 20 20 20 :test_year..
08c0: 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 } else {..
08d0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 #.. #
08e0: 20 4e 4f 54 45 3a 20 49 66 20 45 61 67 6c 65 20 NOTE: If Eagle
08f0: 68 61 73 20 62 65 65 6e 20 63 6f 6d 70 69 6c 65 has been compile
0900: 64 20 61 67 61 69 6e 73 74 20 74 68 65 20 43 4c d against the CL
0910: 52 20 76 34 2e 30 2c 20 75 73 65 20 22 32 30 31 R v4.0, use "201
0920: 30 22 20 62 79 0d 0a 20 20 20 20 20 20 20 20 23 0" by.. #
0930: 20 20 20 20 20 20 20 64 65 66 61 75 6c 74 20 28 default (
0940: 77 65 20 63 6f 75 6c 64 20 75 73 65 20 22 32 30 we could use "20
0950: 31 32 22 20 69 6e 20 74 68 61 74 20 63 61 73 65 12" in that case
0960: 20 61 73 20 77 65 6c 6c 29 20 61 73 20 74 68 65 as well) as the
0970: 20 74 65 73 74 0d 0a 20 20 20 20 20 20 20 20 23 test.. #
0980: 20 20 20 20 20 20 20 79 65 61 72 3b 20 6f 74 68 year; oth
0990: 65 72 77 69 73 65 2c 20 75 73 65 20 22 32 30 30 erwise, use "200
09a0: 38 22 20 62 79 20 64 65 66 61 75 6c 74 20 28 77 8" by default (w
09b0: 65 20 63 6f 75 6c 64 20 75 73 65 20 22 32 30 30 e could use "200
09c0: 35 22 20 69 6e 0d 0a 20 20 20 20 20 20 20 20 23 5" in.. #
09d0: 20 20 20 20 20 20 20 74 68 61 74 20 63 61 73 65 that case
09e0: 20 61 73 20 77 65 6c 6c 29 2e 20 20 49 66 20 61 as well). If a
09f0: 6e 6f 74 68 65 72 20 6d 61 6a 6f 72 20 5b 69 6e nother major [in
0a00: 63 6f 6d 70 61 74 69 62 6c 65 5d 20 76 65 72 73 compatible] vers
0a10: 69 6f 6e 20 6f 66 0d 0a 20 20 20 20 20 20 20 20 ion of..
0a20: 23 20 20 20 20 20 20 20 74 68 65 20 43 4c 52 20 # the CLR
0a30: 69 73 20 72 65 6c 65 61 73 65 64 2c 20 74 68 69 is released, thi
0a40: 73 20 63 68 65 63 6b 20 77 69 6c 6c 20 68 61 76 s check will hav
0a50: 65 20 74 6f 20 62 65 20 63 68 61 6e 67 65 64 2e e to be changed.
0a60: 20 20 54 68 65 0d 0a 20 20 20 20 20 20 20 20 23 The.. #
0a70: 20 20 20 20 20 20 20 64 65 66 61 75 6c 74 20 74 default t
0a80: 65 73 74 20 79 65 61 72 20 74 6f 20 75 73 65 20 est year to use
0a90: 66 6f 72 20 61 20 70 61 72 74 69 63 75 6c 61 72 for a particular
0aa0: 20 43 4c 52 20 76 65 72 73 69 6f 6e 20 6d 61 79 CLR version may
0ab0: 20 62 65 0d 0a 20 20 20 20 20 20 20 20 23 20 20 be.. #
0ac0: 20 20 20 20 20 6f 76 65 72 72 69 64 64 65 6e 20 overridden
0ad0: 62 79 20 73 65 74 74 69 6e 67 20 74 68 65 20 67 by setting the g
0ae0: 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 20 22 lobal variable "
0af0: 74 65 73 74 5f 79 65 61 72 5f 63 6c 72 5f 76 24 test_year_clr_v$
0b00: 58 22 2c 0d 0a 20 20 20 20 20 20 20 20 23 20 20 X",.. #
0b10: 20 20 20 20 20 77 68 65 72 65 20 22 24 58 22 20 where "$X"
0b20: 6d 61 79 20 5b 63 75 72 72 65 6e 74 6c 79 5d 20 may [currently]
0b30: 62 65 20 65 69 74 68 65 72 20 22 32 22 20 6f 72 be either "2" or
0b40: 20 22 34 22 2e 0d 0a 20 20 20 20 20 20 20 20 23 "4"... #
0b50: 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b 68 .. if {[h
0b60: 61 76 65 43 6f 6e 73 74 72 61 69 6e 74 20 69 6d aveConstraint im
0b70: 61 67 65 52 75 6e 74 69 6d 65 34 30 5d 7d 20 74 ageRuntime40]} t
0b80: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 hen {..
0b90: 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 if {[info exist
0ba0: 73 20 3a 3a 74 65 73 74 5f 79 65 61 72 5f 63 6c s ::test_year_cl
0bb0: 72 5f 76 34 5d 20 26 26 20 5c 0d 0a 20 20 20 20 r_v4] && \..
0bc0: 20 20 20 20 20 20 20 20 20 20 5b 73 74 72 69 6e [strin
0bd0: 67 20 6c 65 6e 67 74 68 20 24 3a 3a 74 65 73 74 g length $::test
0be0: 5f 79 65 61 72 5f 63 6c 72 5f 76 34 5d 20 3e 20 _year_clr_v4] >
0bf0: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 0} then {..
0c00: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
0c10: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 55 73 # NOTE: Us
0c20: 65 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 e the specified
0c30: 74 65 73 74 20 79 65 61 72 20 66 6f 72 20 74 68 test year for th
0c40: 65 20 43 4c 52 20 76 34 2e 30 2e 0d 0a 20 20 20 e CLR v4.0...
0c50: 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 #..
0c60: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 return $
0c70: 3a 3a 74 65 73 74 5f 79 65 61 72 5f 63 6c 72 5f ::test_year_clr_
0c80: 76 34 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 20 v4.. }
0c90: 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 else {..
0ca0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 #..
0cb0: 20 20 20 23 20 4e 4f 54 45 3a 20 55 73 65 20 74 # NOTE: Use t
0cc0: 68 65 20 64 65 66 61 75 6c 74 20 74 65 73 74 20 he default test
0cd0: 79 65 61 72 20 66 6f 72 20 74 68 65 20 43 4c 52 year for the CLR
0ce0: 20 76 34 2e 30 2e 0d 0a 20 20 20 20 20 20 20 20 v4.0...
0cf0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 #..
0d00: 20 20 20 72 65 74 75 72 6e 20 32 30 31 30 3b 20 return 2010;
0d10: 23 20 54 4f 44 4f 3a 20 47 6f 6f 64 20 22 66 61 # TODO: Good "fa
0d20: 6c 6c 62 61 63 6b 22 20 64 65 66 61 75 6c 74 3f llback" default?
0d30: 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 .. }..
0d40: 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d } else {.
0d50: 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 5b . if {[
0d60: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 74 65 info exists ::te
0d70: 73 74 5f 79 65 61 72 5f 63 6c 72 5f 76 32 5d 20 st_year_clr_v2]
0d80: 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 && \..
0d90: 20 20 20 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67 [string leng
0da0: 74 68 20 24 3a 3a 74 65 73 74 5f 79 65 61 72 5f th $::test_year_
0db0: 63 6c 72 5f 76 32 5d 20 3e 20 30 7d 20 74 68 65 clr_v2] > 0} the
0dc0: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 n {..
0dd0: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 #..
0de0: 23 20 4e 4f 54 45 3a 20 55 73 65 20 74 68 65 20 # NOTE: Use the
0df0: 73 70 65 63 69 66 69 65 64 20 74 65 73 74 20 79 specified test y
0e00: 65 61 72 20 66 6f 72 20 74 68 65 20 43 4c 52 20 ear for the CLR
0e10: 76 32 2e 30 2e 0d 0a 20 20 20 20 20 20 20 20 20 v2.0...
0e20: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 #..
0e30: 20 20 72 65 74 75 72 6e 20 24 3a 3a 74 65 73 74 return $::test
0e40: 5f 79 65 61 72 5f 63 6c 72 5f 76 32 0d 0a 20 20 _year_clr_v2..
0e50: 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b } else {
0e60: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 0d .. #.
0e70: 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 20 4e . # N
0e80: 4f 54 45 3a 20 55 73 65 20 74 68 65 20 64 65 66 OTE: Use the def
0e90: 61 75 6c 74 20 74 65 73 74 20 79 65 61 72 20 66 ault test year f
0ea0: 6f 72 20 74 68 65 20 43 4c 52 20 76 32 2e 30 2e or the CLR v2.0.
0eb0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 0d .. #.
0ec0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 . ret
0ed0: 75 72 6e 20 32 30 30 38 3b 20 23 20 54 4f 44 4f urn 2008; # TODO
0ee0: 3a 20 47 6f 6f 64 20 22 66 61 6c 6c 62 61 63 6b : Good "fallback
0ef0: 22 20 64 65 66 61 75 6c 74 3f 0d 0a 20 20 20 20 " default?..
0f00: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 }..
0f10: 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 }.. }..
0f20: 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 }..... proc
0f30: 67 65 74 42 75 69 6c 64 43 6f 6e 66 69 67 75 72 getBuildConfigur
0f40: 61 74 69 6f 6e 20 7b 7d 20 7b 0d 0a 20 20 20 20 ation {} {..
0f50: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT
0f60: 45 3a 20 53 65 65 20 69 66 20 74 68 65 20 22 63 E: See if the "c
0f70: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 22 20 73 65 onfiguration" se
0f80: 74 74 69 6e 67 20 68 61 73 20 62 65 65 6e 20 6f tting has been o
0f90: 76 65 72 72 69 64 64 65 6e 20 62 79 20 74 68 65 verridden by the
0fa0: 20 75 73 65 72 0d 0a 20 20 20 20 20 20 23 20 20 user.. #
0fb0: 20 20 20 20 20 28 65 2e 67 2e 20 6f 6e 20 74 68 (e.g. on th
0fc0: 65 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 29 2e e command line).
0fd0: 20 20 54 68 69 73 20 68 65 6c 70 73 20 63 6f 6e This helps con
0fe0: 74 72 6f 6c 20 65 78 61 63 74 6c 79 20 77 68 69 trol exactly whi
0ff0: 63 68 20 73 65 74 0d 0a 20 20 20 20 20 20 23 20 ch set.. #
1000: 20 20 20 20 20 20 6f 66 20 62 69 6e 61 72 69 65 of binarie
1010: 73 20 77 65 20 61 72 65 20 74 65 73 74 69 6e 67 s we are testing
1020: 20 28 69 2e 65 2e 20 74 68 6f 73 65 20 62 75 69 (i.e. those bui
1030: 6c 74 20 69 6e 20 74 68 65 20 22 44 65 62 75 67 lt in the "Debug
1040: 22 20 6f 72 0d 0a 20 20 20 20 20 20 23 20 20 20 " or.. #
1050: 20 20 20 20 22 52 65 6c 65 61 73 65 22 20 62 75 "Release" bu
1060: 69 6c 64 20 63 6f 6e 66 69 67 75 72 61 74 69 6f ild configuratio
1070: 6e 73 29 2e 20 20 54 6f 20 6f 76 65 72 72 69 64 ns). To overrid
1080: 65 20 74 68 69 73 20 76 61 6c 75 65 20 76 69 61 e this value via
1090: 20 74 68 65 0d 0a 20 20 20 20 20 20 23 20 20 20 the.. #
10a0: 20 20 20 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 command line
10b0: 2c 20 65 6e 74 65 72 20 61 20 63 6f 6d 6d 61 6e , enter a comman
10c0: 64 20 73 69 6d 69 6c 61 72 20 74 6f 20 6f 6e 65 d similar to one
10d0: 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e of the followin
10e0: 67 20 28 61 6c 6c 0d 0a 20 20 20 20 20 20 23 20 g (all.. #
10f0: 20 20 20 20 20 20 6f 6e 20 6f 6e 65 20 6c 69 6e on one lin
1100: 65 29 3a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 e):.. #..
1110: 20 20 20 20 23 20 20 20 20 20 20 20 45 61 67 6c # Eagl
1120: 65 53 68 65 6c 6c 2e 65 78 65 20 2d 70 72 65 49 eShell.exe -preI
1130: 6e 69 74 69 61 6c 69 7a 65 20 22 73 65 74 20 74 nitialize "set t
1140: 65 73 74 5f 63 6f 6e 66 69 67 75 72 61 74 69 6f est_configuratio
1150: 6e 20 44 65 62 75 67 22 0d 0a 20 20 20 20 20 20 n Debug"..
1160: 23 20 20 20 20 20 20 20 20 20 2d 66 69 6c 65 20 # -file
1170: 2e 5c 70 61 74 68 5c 74 6f 5c 61 6c 6c 2e 65 61 .\path\to\all.ea
1180: 67 6c 65 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 gle.. #..
1190: 20 20 20 20 23 20 20 20 20 20 20 20 45 61 67 6c # Eagl
11a0: 65 53 68 65 6c 6c 2e 65 78 65 20 2d 70 72 65 49 eShell.exe -preI
11b0: 6e 69 74 69 61 6c 69 7a 65 20 22 73 65 74 20 74 nitialize "set t
11c0: 65 73 74 5f 63 6f 6e 66 69 67 75 72 61 74 69 6f est_configuratio
11d0: 6e 20 52 65 6c 65 61 73 65 22 0d 0a 20 20 20 20 n Release"..
11e0: 20 20 23 20 20 20 20 20 20 20 20 20 2d 66 69 6c # -fil
11f0: 65 20 2e 5c 70 61 74 68 5c 74 6f 5c 61 6c 6c 2e e .\path\to\all.
1200: 65 61 67 6c 65 0d 0a 20 20 20 20 20 20 23 0d 0a eagle.. #..
1210: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 45 61 # Ea
1220: 67 6c 65 53 68 65 6c 6c 2e 65 78 65 20 2d 66 69 gleShell.exe -fi
1230: 6c 65 20 2e 5c 70 61 74 68 5c 74 6f 5c 61 6c 6c le .\path\to\all
1240: 2e 65 61 67 6c 65 20 2d 70 72 65 54 65 73 74 0d .eagle -preTest.
1250: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 20 . #
1260: 20 22 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c "unset -nocompl
1270: 61 69 6e 20 74 65 73 74 5f 63 6f 6e 66 69 67 75 ain test_configu
1280: 72 61 74 69 6f 6e 22 0d 0a 20 20 20 20 20 20 23 ration".. #
1290: 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 .. if {[inf
12a0: 6f 20 65 78 69 73 74 73 20 3a 3a 74 65 73 74 5f o exists ::test_
12b0: 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 5d 20 26 configuration] &
12c0: 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 5b & \.. [
12d0: 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 3a string length $:
12e0: 3a 74 65 73 74 5f 63 6f 6e 66 69 67 75 72 61 74 :test_configurat
12f0: 69 6f 6e 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b ion] > 0} then {
1300: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #..
1310: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 55 73 65 # NOTE: Use
1320: 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 74 the specified t
1330: 65 73 74 20 63 6f 6e 66 69 67 75 72 61 74 69 6f est configuratio
1340: 6e 2e 20 20 54 68 65 20 64 65 66 61 75 6c 74 20 n. The default
1350: 76 61 6c 75 65 20 75 73 65 64 0d 0a 20 20 20 20 value used..
1360: 20 20 20 20 23 20 20 20 20 20 20 20 66 6f 72 20 # for
1370: 74 68 69 73 20 76 61 72 69 61 62 6c 65 20 69 73 this variable is
1380: 20 22 52 65 6c 65 61 73 65 22 2c 20 61 73 20 73 "Release", as s
1390: 65 74 20 62 79 20 74 68 65 20 74 65 73 74 20 73 et by the test s
13a0: 75 69 74 65 20 69 74 73 65 6c 66 2e 0d 0a 20 20 uite itself...
13b0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
13c0: 20 72 65 74 75 72 6e 20 24 3a 3a 74 65 73 74 5f return $::test_
13d0: 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 0d 0a 20 configuration..
13e0: 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 } else {..
13f0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
1400: 20 20 23 20 4e 4f 54 45 3a 20 4e 6f 72 6d 61 6c # NOTE: Normal
1410: 6c 79 2c 20 77 65 20 77 69 6c 6c 20 6e 65 76 65 ly, we will neve
1420: 72 20 68 69 74 20 74 68 69 73 20 63 61 73 65 20 r hit this case
1430: 62 65 63 61 75 73 65 20 74 68 65 20 76 61 6c 75 because the valu
1440: 65 20 6f 66 20 74 68 65 0d 0a 20 20 20 20 20 20 e of the..
1450: 20 20 23 20 20 20 20 20 20 20 74 65 73 74 20 63 # test c
1460: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 76 61 72 onfiguration var
1470: 69 61 62 6c 65 20 69 73 20 61 6c 77 61 79 73 20 iable is always
1480: 73 65 74 20 62 79 20 74 68 65 20 74 65 73 74 20 set by the test
1490: 73 75 69 74 65 0d 0a 20 20 20 20 20 20 20 20 23 suite.. #
14a0: 20 20 20 20 20 20 20 69 74 73 65 6c 66 3b 20 68 itself; h
14b0: 6f 77 65 76 65 72 2c 20 69 74 20 63 61 6e 20 62 owever, it can b
14c0: 65 20 6f 76 65 72 72 69 64 64 65 6e 20 75 73 69 e overridden usi
14d0: 6e 67 20 74 68 65 20 75 6e 73 65 74 20 63 6f 6d ng the unset com
14e0: 6d 61 6e 64 0d 0a 20 20 20 20 20 20 20 20 23 20 mand.. #
14f0: 20 20 20 20 20 20 66 72 6f 6d 20 74 68 65 20 2d from the -
1500: 70 72 65 54 65 73 74 20 6f 70 74 69 6f 6e 20 74 preTest option t
1510: 6f 20 74 68 65 20 74 65 73 74 20 73 75 69 74 65 o the test suite
1520: 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 ... #..
1530: 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 3a 3a return $::
1540: 65 61 67 6c 65 5f 70 6c 61 74 66 6f 72 6d 28 63 eagle_platform(c
1550: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 29 0d 0a 20 onfiguration)..
1560: 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c }.. }...
1570: 0d 0a 20 20 20 20 70 72 6f 63 20 67 65 74 42 75 .. proc getBu
1580: 69 6c 64 44 69 72 65 63 74 6f 72 79 20 7b 7d 20 ildDirectory {}
1590: 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 {.. #..
15a0: 20 20 23 20 4e 4f 54 45 3a 20 53 65 65 20 69 66 # NOTE: See if
15b0: 20 74 68 65 20 22 6e 61 74 69 76 65 22 20 72 75 the "native" ru
15c0: 6e 74 69 6d 65 20 6f 70 74 69 6f 6e 20 68 61 73 ntime option has
15d0: 20 62 65 65 6e 20 73 65 74 2e 20 20 49 66 20 73 been set. If s
15e0: 6f 2c 20 75 73 65 20 74 68 65 0d 0a 20 20 20 20 o, use the..
15f0: 20 20 23 20 20 20 20 20 20 20 64 69 72 65 63 74 # direct
1600: 6f 72 79 20 66 6f 72 20 74 68 65 20 6d 69 78 65 ory for the mixe
1610: 64 2d 6d 6f 64 65 20 61 73 73 65 6d 62 6c 79 20 d-mode assembly
1620: 28 61 2e 6b 2e 61 2e 20 74 68 65 20 6e 61 74 69 (a.k.a. the nati
1630: 76 65 20 69 6e 74 65 72 6f 70 0d 0a 20 20 20 20 ve interop..
1640: 20 20 23 20 20 20 20 20 20 20 61 73 73 65 6d 62 # assemb
1650: 6c 79 29 2e 20 20 54 6f 20 65 6e 61 62 6c 65 20 ly). To enable
1660: 74 68 69 73 20 6f 70 74 69 6f 6e 20 76 69 61 20 this option via
1670: 74 68 65 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 the command line
1680: 2c 20 65 6e 74 65 72 20 61 0d 0a 20 20 20 20 20 , enter a..
1690: 20 23 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64 # command
16a0: 20 73 69 6d 69 6c 61 72 20 74 6f 20 6f 6e 65 20 similar to one
16b0: 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 of the following
16c0: 20 28 61 6c 6c 20 6f 6e 20 6f 6e 65 20 6c 69 6e (all on one lin
16d0: 65 29 3a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 e):.. #..
16e0: 20 20 20 20 23 20 20 20 20 20 20 20 45 61 67 6c # Eagl
16f0: 65 53 68 65 6c 6c 2e 65 78 65 20 2d 69 6e 69 74 eShell.exe -init
1700: 69 61 6c 69 7a 65 20 2d 72 75 6e 74 69 6d 65 4f ialize -runtimeO
1710: 70 74 69 6f 6e 20 6e 61 74 69 76 65 0d 0a 20 20 ption native..
1720: 20 20 20 20 23 20 20 20 20 20 20 20 20 20 2d 66 # -f
1730: 69 6c 65 20 2e 5c 70 61 74 68 5c 74 6f 5c 61 6c ile .\path\to\al
1740: 6c 2e 65 61 67 6c 65 0d 0a 20 20 20 20 20 20 23 l.eagle.. #
1750: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. #
1760: 54 6f 20 65 6e 61 62 6c 65 20 74 68 69 73 20 6f To enable this o
1770: 70 74 69 6f 6e 20 76 69 61 20 74 68 65 20 63 6f ption via the co
1780: 6d 6d 61 6e 64 20 6c 69 6e 65 20 70 72 69 6f 72 mmand line prior
1790: 20 74 6f 20 74 68 65 20 22 62 65 74 61 20 31 36 to the "beta 16
17a0: 22 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 ".. #
17b0: 20 72 65 6c 65 61 73 65 20 6f 66 20 45 61 67 6c release of Eagl
17c0: 65 2c 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 e, the following
17d0: 20 63 6f 6d 6d 61 6e 64 20 6d 75 73 74 20 62 65 command must be
17e0: 20 75 73 65 64 20 69 6e 73 74 65 61 64 0d 0a 20 used instead..
17f0: 20 20 20 20 20 23 20 20 20 20 20 20 20 28 61 6c # (al
1800: 73 6f 20 61 6c 6c 20 6f 6e 20 6f 6e 65 20 6c 69 so all on one li
1810: 6e 65 29 3a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 ne):.. #..
1820: 20 20 20 20 20 23 20 20 20 20 20 20 20 45 61 67 # Eag
1830: 6c 65 53 68 65 6c 6c 2e 65 78 65 20 2d 69 6e 69 leShell.exe -ini
1840: 74 69 61 6c 69 7a 65 20 2d 70 6f 73 74 49 6e 69 tialize -postIni
1850: 74 69 61 6c 69 7a 65 0d 0a 20 20 20 20 20 20 23 tialize.. #
1860: 20 20 20 20 20 20 20 20 20 22 6f 62 6a 65 63 74 "object
1870: 20 69 6e 76 6f 6b 65 20 49 6e 74 65 72 70 72 65 invoke Interpre
1880: 74 65 72 2e 47 65 74 41 63 74 69 76 65 20 41 64 ter.GetActive Ad
1890: 64 52 75 6e 74 69 6d 65 4f 70 74 69 6f 6e 20 6e dRuntimeOption n
18a0: 61 74 69 76 65 22 0d 0a 20 20 20 20 20 20 23 20 ative".. #
18b0: 20 20 20 20 20 20 20 20 2d 66 69 6c 65 20 2e 5c -file .\
18c0: 70 61 74 68 5c 74 6f 5c 61 6c 6c 2e 65 61 67 6c path\to\all.eagl
18d0: 65 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 e.. #..
18e0: 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 if {[info exis
18f0: 74 73 20 3a 3a 62 75 69 6c 64 5f 64 69 72 65 63 ts ::build_direc
1900: 74 6f 72 79 5d 20 26 26 20 5c 0d 0a 20 20 20 20 tory] && \..
1910: 20 20 20 20 20 20 5b 73 74 72 69 6e 67 20 6c 65 [string le
1920: 6e 67 74 68 20 24 3a 3a 62 75 69 6c 64 5f 64 69 ngth $::build_di
1930: 72 65 63 74 6f 72 79 5d 20 3e 20 30 7d 20 74 68 rectory] > 0} th
1940: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d en {.. #.
1950: 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a . # NOTE:
1960: 20 54 68 65 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 The location of
1970: 20 74 68 65 20 62 75 69 6c 64 20 64 69 72 65 63 the build direc
1980: 74 6f 72 79 20 68 61 73 20 62 65 65 6e 20 6f 76 tory has been ov
1990: 65 72 72 69 64 64 65 6e 3b 0d 0a 20 20 20 20 20 erridden;..
19a0: 20 20 20 23 20 20 20 20 20 20 20 74 68 65 72 65 # there
19b0: 66 6f 72 65 2c 20 75 73 65 20 69 74 20 76 65 72 fore, use it ver
19c0: 62 61 74 69 6d 2e 0d 0a 20 20 20 20 20 20 20 20 batim...
19d0: 23 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 #.. retur
19e0: 6e 20 24 3a 3a 62 75 69 6c 64 5f 64 69 72 65 63 n $::build_direc
19f0: 74 6f 72 79 0d 0a 20 20 20 20 20 20 7d 20 65 6c tory.. } el
1a00: 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d se {.. #.
1a10: 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a . # NOTE:
1a20: 20 46 69 67 75 72 65 20 6f 75 74 20 74 68 65 20 Figure out the
1a30: 62 75 69 6c 64 20 62 61 73 65 20 64 69 72 65 63 build base direc
1a40: 74 6f 72 79 2e 20 20 54 68 69 73 20 77 69 6c 6c tory. This will
1a50: 20 62 65 20 74 68 65 20 64 69 72 65 63 74 6f 72 be the director
1a60: 79 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 y.. #
1a70: 20 20 20 74 68 61 74 20 63 6f 6e 74 61 69 6e 73 that contains
1a80: 20 74 68 65 20 61 63 74 75 61 6c 20 62 75 69 6c the actual buil
1a90: 64 20 6f 75 74 70 75 74 20 64 69 72 65 63 74 6f d output directo
1aa0: 72 79 20 28 65 2e 67 2e 20 22 62 69 6e 22 29 2e ry (e.g. "bin").
1ab0: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #..
1ac0: 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 if {[info e
1ad0: 78 69 73 74 73 20 3a 3a 62 75 69 6c 64 5f 62 61 xists ::build_ba
1ae0: 73 65 5f 64 69 72 65 63 74 6f 72 79 5d 20 26 26 se_directory] &&
1af0: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \..
1b00: 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 [string length $
1b10: 3a 3a 62 75 69 6c 64 5f 62 61 73 65 5f 64 69 72 ::build_base_dir
1b20: 65 63 74 6f 72 79 5d 20 3e 20 30 7d 20 74 68 65 ectory] > 0} the
1b30: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23 n {.. #
1b40: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f .. # NO
1b50: 54 45 3a 20 54 68 65 20 6c 6f 63 61 74 69 6f 6e TE: The location
1b60: 20 6f 66 20 74 68 65 20 62 75 69 6c 64 20 62 61 of the build ba
1b70: 73 65 20 64 69 72 65 63 74 6f 72 79 20 68 61 73 se directory has
1b80: 20 62 65 65 6e 20 6f 76 65 72 72 69 64 64 65 6e been overridden
1b90: 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 20 ;.. #
1ba0: 20 20 20 20 20 74 68 65 72 65 66 6f 72 65 2c 20 therefore,
1bb0: 75 73 65 20 69 74 20 76 65 72 62 61 74 69 6d 2e use it verbatim.
1bc0: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 .. #..
1bd0: 20 20 20 20 20 20 20 20 20 73 65 74 20 70 61 74 set pat
1be0: 68 20 24 3a 3a 62 75 69 6c 64 5f 62 61 73 65 5f h $::build_base_
1bf0: 64 69 72 65 63 74 6f 72 79 0d 0a 20 20 20 20 20 directory..
1c00: 20 20 20 7d 20 65 6c 73 65 69 66 20 7b 5b 69 6e } elseif {[in
1c10: 66 6f 20 65 78 69 73 74 73 20 3a 3a 63 6f 6d 6d fo exists ::comm
1c20: 6f 6e 5f 64 69 72 65 63 74 6f 72 79 5d 20 26 26 on_directory] &&
1c30: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \..
1c40: 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 [string length $
1c50: 3a 3a 63 6f 6d 6d 6f 6e 5f 64 69 72 65 63 74 6f ::common_directo
1c60: 72 79 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d ry] > 0} then {.
1c70: 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 . #..
1c80: 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 # NOTE:
1c90: 4e 65 78 74 2c 20 66 61 6c 6c 62 61 63 6b 20 74 Next, fallback t
1ca0: 6f 20 74 68 65 20 70 61 72 65 6e 74 20 64 69 72 o the parent dir
1cb0: 65 63 74 6f 72 79 20 6f 66 20 74 68 65 20 6f 6e ectory of the on
1cc0: 65 20 63 6f 6e 74 61 69 6e 69 6e 67 0d 0a 20 20 e containing..
1cd0: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 #
1ce0: 74 68 69 73 20 66 69 6c 65 20 28 69 2e 65 2e 20 this file (i.e.
1cf0: 22 63 6f 6d 6d 6f 6e 2e 65 61 67 6c 65 22 29 2c "common.eagle"),
1d00: 20 69 66 20 61 76 61 69 6c 61 62 6c 65 2e 0d 0a if available...
1d10: 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 #..
1d20: 20 20 20 20 20 20 20 73 65 74 20 70 61 74 68 20 set path
1d30: 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 24 3a [file dirname $:
1d40: 3a 63 6f 6d 6d 6f 6e 5f 64 69 72 65 63 74 6f 72 :common_director
1d50: 79 5d 0d 0a 20 20 20 20 20 20 20 20 7d 20 65 6c y].. } el
1d60: 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 se {..
1d70: 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e #.. # N
1d80: 4f 54 45 3a 20 46 69 6e 61 6c 6c 79 2c 20 66 61 OTE: Finally, fa
1d90: 6c 6c 62 61 63 6b 20 74 6f 20 74 68 65 20 70 61 llback to the pa
1da0: 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79 20 6f rent directory o
1db0: 66 20 74 68 65 20 45 61 67 6c 65 54 65 73 74 0d f the EagleTest.
1dc0: 0a 20 20 20 20 20 20 20 20 20 20 23 20 20 20 20 . #
1dd0: 20 20 20 70 61 74 68 2e 20 20 54 68 65 20 45 61 path. The Ea
1de0: 67 6c 65 54 65 73 74 20 70 61 63 6b 61 67 65 20 gleTest package
1df0: 67 75 61 72 61 6e 74 65 65 73 20 74 68 61 74 20 guarantees that
1e00: 74 68 69 73 20 76 61 72 69 61 62 6c 65 0d 0a 20 this variable..
1e10: 20 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 #
1e20: 20 77 69 6c 6c 20 62 65 20 73 65 74 20 74 6f 20 will be set to
1e30: 74 68 65 20 64 69 72 65 63 74 6f 72 79 20 63 6f the directory co
1e40: 6e 74 61 69 6e 69 6e 67 20 74 68 65 20 66 69 72 ntaining the fir
1e50: 73 74 20 66 69 6c 65 20 74 6f 0d 0a 20 20 20 20 st file to..
1e60: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 65 78 # ex
1e70: 65 63 75 74 65 20 74 68 65 20 5b 72 75 6e 54 65 ecute the [runTe
1e80: 73 74 50 72 6f 6c 6f 67 75 65 5d 20 73 63 72 69 stPrologue] scri
1e90: 70 74 20 6c 69 62 72 61 72 79 20 70 72 6f 63 65 pt library proce
1ea0: 64 75 72 65 2e 0d 0a 20 20 20 20 20 20 20 20 20 dure...
1eb0: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 73 65 #.. se
1ec0: 74 20 70 61 74 68 20 5b 66 69 6c 65 20 64 69 72 t path [file dir
1ed0: 6e 61 6d 65 20 24 3a 3a 70 61 74 68 5d 0d 0a 20 name $::path]..
1ee0: 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 }....
1ef0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 #.. #
1f00: 20 4e 4f 54 45 3a 20 49 66 20 74 68 65 20 22 6e NOTE: If the "n
1f10: 61 74 69 76 65 22 20 72 75 6e 74 69 6d 65 20 6f ative" runtime o
1f20: 70 74 69 6f 6e 20 69 73 20 73 65 74 2c 20 74 68 ption is set, th
1f30: 65 20 6d 69 78 65 64 2d 6d 6f 64 65 20 61 73 73 e mixed-mode ass
1f40: 65 6d 62 6c 79 0d 0a 20 20 20 20 20 20 20 20 23 embly.. #
1f50: 20 20 20 20 20 20 20 69 73 20 62 65 69 6e 67 20 is being
1f60: 74 65 73 74 65 64 2e 20 20 49 6e 20 74 68 61 74 tested. In that
1f70: 20 63 61 73 65 2c 20 74 68 65 20 70 61 74 68 20 case, the path
1f80: 74 6f 20 74 68 65 20 62 75 69 6c 64 20 64 69 72 to the build dir
1f90: 65 63 74 6f 72 79 0d 0a 20 20 20 20 20 20 20 20 ectory..
1fa0: 23 20 20 20 20 20 20 20 77 69 6c 6c 20 63 6f 6e # will con
1fb0: 74 61 69 6e 20 74 68 65 20 70 6c 61 74 66 6f 72 tain the platfor
1fc0: 6d 20 6e 61 6d 65 20 61 6e 64 20 61 6c 6c 20 74 m name and all t
1fd0: 68 65 20 62 69 6e 61 72 69 65 73 20 75 6e 64 65 he binaries unde
1fe0: 72 20 74 65 73 74 0d 0a 20 20 20 20 20 20 20 20 r test..
1ff0: 23 20 20 20 20 20 20 20 73 68 6f 75 6c 64 20 62 # should b
2000: 65 20 70 72 65 73 65 6e 74 20 69 6e 20 74 68 61 e present in tha
2010: 74 20 64 69 72 65 63 74 6f 72 79 2e 20 20 49 66 t directory. If
2020: 20 74 68 65 20 22 6e 61 74 69 76 65 22 20 72 75 the "native" ru
2030: 6e 74 69 6d 65 0d 0a 20 20 20 20 20 20 20 20 23 ntime.. #
2040: 20 20 20 20 20 20 20 6f 70 74 69 6f 6e 20 69 73 option is
2050: 20 6e 6f 74 20 73 65 74 2c 20 74 68 65 20 62 75 not set, the bu
2060: 69 6c 64 20 64 69 72 65 63 74 6f 72 79 20 77 69 ild directory wi
2070: 6c 6c 20 62 65 20 63 6f 6e 73 69 64 65 72 65 64 ll be considered
2080: 20 74 6f 20 62 65 0d 0a 20 20 20 20 20 20 20 20 to be..
2090: 23 20 20 20 20 20 20 20 22 70 6c 61 74 66 6f 72 # "platfor
20a0: 6d 2d 6e 65 75 74 72 61 6c 22 2c 20 77 69 74 68 m-neutral", with
20b0: 20 74 68 65 20 6e 6f 74 61 62 6c 65 20 65 78 63 the notable exc
20c0: 65 70 74 69 6f 6e 20 6f 66 20 61 6e 79 20 6e 61 eption of any na
20d0: 74 69 76 65 0d 0a 20 20 20 20 20 20 20 20 23 20 tive.. #
20e0: 20 20 20 20 20 20 61 73 73 65 6d 62 6c 79 20 28 assembly (
20f0: 65 2e 67 2e 20 22 53 51 4c 69 74 65 2e 49 6e 74 e.g. "SQLite.Int
2100: 65 72 6f 70 2e 64 6c 6c 22 29 20 63 6f 70 69 65 erop.dll") copie
2110: 64 20 74 68 65 72 65 20 64 75 72 69 6e 67 20 74 d there during t
2120: 68 65 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 he.. #
2130: 20 20 20 20 62 75 69 6c 64 20 70 72 6f 63 65 73 build proces
2140: 73 20 69 74 73 65 6c 66 2e 20 20 49 66 20 74 68 s itself. If th
2150: 65 20 62 75 69 6c 64 20 70 72 6f 63 65 73 73 20 e build process
2160: 73 6f 6d 65 68 6f 77 20 64 6f 65 73 20 6e 6f 74 somehow does not
2170: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 .. #
2180: 20 20 63 6f 70 79 20 74 68 65 20 6e 61 74 69 76 copy the nativ
2190: 65 20 61 73 73 65 6d 62 6c 79 20 66 6f 72 20 74 e assembly for t
21a0: 68 69 73 20 70 6c 61 74 66 6f 72 6d 2c 20 6d 6f his platform, mo
21b0: 73 74 20 6f 66 20 74 68 65 20 74 65 73 74 73 0d st of the tests.
21c0: 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 . #
21d0: 20 69 6e 20 74 68 65 20 73 75 69 74 65 20 77 69 in the suite wi
21e0: 6c 6c 20 73 69 6d 70 6c 79 20 62 65 20 73 6b 69 ll simply be ski
21f0: 70 70 65 64 2e 20 20 47 65 6e 65 72 61 6c 6c 79 pped. Generally
2200: 20 73 70 65 61 6b 69 6e 67 2c 20 74 68 65 72 65 speaking, there
2210: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 .. #
2220: 20 20 61 72 65 20 74 77 6f 20 77 61 79 73 20 74 are two ways t
2230: 6f 20 62 75 69 6c 64 20 74 68 65 20 62 69 6e 61 o build the bina
2240: 72 69 65 73 20 77 68 65 6e 20 70 72 65 70 61 72 ries when prepar
2250: 69 6e 67 20 74 6f 20 72 75 6e 20 74 68 65 0d 0a ing to run the..
2260: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 #
2270: 74 65 73 74 20 73 75 69 74 65 3a 0d 0a 20 20 20 test suite:..
2280: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #..
2290: 23 20 20 20 20 20 20 20 31 2e 20 42 75 69 6c 64 # 1. Build
22a0: 20 74 68 65 20 73 65 70 61 72 61 74 65 20 6d 61 the separate ma
22b0: 6e 61 67 65 64 20 61 6e 64 20 6e 61 74 69 76 65 naged and native
22c0: 20 61 73 73 65 6d 62 6c 69 65 73 20 75 73 69 6e assemblies usin
22d0: 67 20 73 6f 6d 65 0d 0a 20 20 20 20 20 20 20 20 g some..
22e0: 23 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 61 # comma
22f0: 6e 64 73 20 73 69 6d 69 6c 61 72 20 74 6f 3a 0d nds similar to:.
2300: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #..
2310: 20 20 20 20 23 20 20 20 20 20 20 20 20 20 20 62 # b
2320: 75 69 6c 64 2e 62 61 74 20 24 7b 43 6f 6e 66 69 uild.bat ${Confi
2330: 67 75 72 61 74 69 6f 6e 7d 4d 61 6e 61 67 65 64 guration}Managed
2340: 4f 6e 6c 79 20 24 7b 50 6c 61 74 66 6f 72 6d 7d Only ${Platform}
2350: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 .. #
2360: 20 20 20 20 20 62 75 69 6c 64 2e 62 61 74 20 24 build.bat $
2370: 7b 43 6f 6e 66 69 67 75 72 61 74 69 6f 6e 7d 4e {Configuration}N
2380: 61 74 69 76 65 4f 6e 6c 79 20 24 7b 50 6c 61 74 ativeOnly ${Plat
2390: 66 6f 72 6d 7d 0d 0a 20 20 20 20 20 20 20 20 23 form}.. #
23a0: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 .. #
23b0: 20 20 20 20 20 57 68 65 72 65 20 24 7b 43 6f 6e Where ${Con
23c0: 66 69 67 75 72 61 74 69 6f 6e 7d 20 69 73 20 65 figuration} is e
23d0: 69 74 68 65 72 20 22 44 65 62 75 67 22 20 6f 72 ither "Debug" or
23e0: 20 22 52 65 6c 65 61 73 65 22 20 61 6e 64 0d 0a "Release" and..
23f0: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 #
2400: 20 20 20 24 7b 50 6c 61 74 66 6f 72 6d 7d 20 69 ${Platform} i
2410: 73 20 65 69 74 68 65 72 20 22 57 69 6e 33 32 22 s either "Win32"
2420: 20 6f 72 20 22 78 36 34 22 2e 0d 0a 20 20 20 20 or "x64"...
2430: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 #.. #
2440: 20 20 20 20 20 20 20 32 2e 20 42 75 69 6c 64 20 2. Build
2450: 74 68 65 20 6d 69 78 65 64 2d 6d 6f 64 65 20 61 the mixed-mode a
2460: 73 73 65 6d 62 6c 79 20 75 73 69 6e 67 20 61 20 ssembly using a
2470: 63 6f 6d 6d 61 6e 64 20 73 69 6d 69 6c 61 72 20 command similar
2480: 74 6f 3a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a to:.. #..
2490: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 #
24a0: 20 20 20 62 75 69 6c 64 2e 62 61 74 20 24 7b 43 build.bat ${C
24b0: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 7d 20 24 7b onfiguration} ${
24c0: 50 6c 61 74 66 6f 72 6d 7d 0d 0a 20 20 20 20 20 Platform}..
24d0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 #.. #
24e0: 20 20 20 20 20 20 20 20 20 57 68 65 72 65 20 24 Where $
24f0: 7b 43 6f 6e 66 69 67 75 72 61 74 69 6f 6e 7d 20 {Configuration}
2500: 69 73 20 65 69 74 68 65 72 20 22 44 65 62 75 67 is either "Debug
2510: 22 20 6f 72 20 22 52 65 6c 65 61 73 65 22 20 61 " or "Release" a
2520: 6e 64 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 nd.. #
2530: 20 20 20 20 20 20 20 24 7b 50 6c 61 74 66 6f 72 ${Platfor
2540: 6d 7d 20 69 73 20 65 69 74 68 65 72 20 22 57 69 m} is either "Wi
2550: 6e 33 32 22 20 6f 72 20 22 78 36 34 22 2e 20 20 n32" or "x64".
2560: 49 66 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 If this command
2570: 69 73 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 is.. #
2580: 20 20 20 20 20 20 20 75 73 65 64 2c 20 76 61 72 used, var
2590: 69 6f 75 73 20 74 65 73 74 73 20 74 68 61 74 20 ious tests that
25a0: 72 65 71 75 69 72 65 20 73 75 70 70 6c 65 6d 65 require suppleme
25b0: 6e 74 61 72 79 20 6d 61 6e 61 67 65 64 0d 0a 20 ntary managed..
25c0: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 20 #
25d0: 20 20 61 73 73 65 6d 62 6c 69 65 73 20 28 65 2e assemblies (e.
25e0: 67 2e 20 4c 49 4e 51 29 20 6d 61 79 20 62 65 20 g. LINQ) may be
25f0: 73 6b 69 70 70 65 64 20 75 6e 6c 65 73 73 20 74 skipped unless t
2600: 68 6f 73 65 20 62 69 6e 61 72 69 65 73 0d 0a 20 hose binaries..
2610: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 20 #
2620: 20 20 61 72 65 20 73 75 62 73 65 71 75 65 6e 74 are subsequent
2630: 6c 79 20 63 6f 70 69 65 64 20 69 6e 74 6f 20 74 ly copied into t
2640: 68 65 20 63 6f 72 72 65 63 74 20 64 69 72 65 63 he correct direc
2650: 74 6f 72 79 20 28 69 2e 65 2e 20 62 79 0d 0a 20 tory (i.e. by..
2660: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 20 #
2670: 20 20 22 74 65 73 74 5f 61 6c 6c 2e 62 61 74 22 "test_all.bat"
2680: 29 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 )... #..
2690: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 4e # N
26a0: 6f 74 65 20 74 68 61 74 20 61 6c 6c 20 6f 66 20 ote that all of
26b0: 74 68 65 20 62 75 69 6c 64 20 63 6f 6d 6d 61 6e the build comman
26c0: 64 73 20 61 62 6f 76 65 20 77 69 6c 6c 20 64 65 ds above will de
26d0: 66 61 75 6c 74 20 74 6f 20 75 73 69 6e 67 0d 0a fault to using..
26e0: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 #
26f0: 74 68 65 20 6c 61 74 65 73 74 20 76 65 72 73 69 the latest versi
2700: 6f 6e 20 6f 66 20 4d 53 42 75 69 6c 64 20 61 76 on of MSBuild av
2710: 61 69 6c 61 62 6c 65 20 61 6e 64 20 74 68 65 20 ailable and the
2720: 22 74 65 73 74 5f 79 65 61 72 22 20 6d 61 79 0d "test_year" may.
2730: 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 . #
2740: 20 6e 65 65 64 20 74 6f 20 62 65 20 61 64 6a 75 need to be adju
2750: 73 74 65 64 20 61 63 63 6f 72 64 69 6e 67 6c 79 sted accordingly
2760: 20 74 6f 20 61 63 74 75 61 6c 6c 79 20 72 75 6e to actually run
2770: 20 74 68 65 20 74 65 73 74 20 73 75 69 74 65 2e the test suite.
2780: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 .. #
2790: 20 20 52 65 66 65 72 20 74 6f 20 74 68 65 20 63 Refer to the c
27a0: 6f 6d 6d 65 6e 74 73 20 69 6e 20 5b 67 65 74 42 omments in [getB
27b0: 75 69 6c 64 59 65 61 72 5d 20 66 6f 72 20 6d 6f uildYear] for mo
27c0: 72 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 6f re information o
27d0: 6e 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 n.. #
27e0: 20 20 20 68 6f 77 20 74 6f 20 73 65 74 20 74 68 how to set th
27f0: 69 73 20 76 61 72 69 61 62 6c 65 2e 0d 0a 20 20 is variable...
2800: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
2810: 20 69 66 20 7b 5b 68 61 73 52 75 6e 74 69 6d 65 if {[hasRuntime
2820: 4f 70 74 69 6f 6e 20 6e 61 74 69 76 65 5d 7d 20 Option native]}
2830: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 then {..
2840: 20 20 72 65 74 75 72 6e 20 5b 66 69 6c 65 20 6a return [file j
2850: 6f 69 6e 20 24 70 61 74 68 20 62 69 6e 20 5b 67 oin $path bin [g
2860: 65 74 42 75 69 6c 64 59 65 61 72 5d 20 5b 6d 61 etBuildYear] [ma
2870: 63 68 69 6e 65 54 6f 50 6c 61 74 66 6f 72 6d 20 chineToPlatform
2880: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 \..
2890: 20 24 3a 3a 74 63 6c 5f 70 6c 61 74 66 6f 72 6d $::tcl_platform
28a0: 28 6d 61 63 68 69 6e 65 29 5d 20 5b 67 65 74 42 (machine)] [getB
28b0: 75 69 6c 64 43 6f 6e 66 69 67 75 72 61 74 69 6f uildConfiguratio
28c0: 6e 5d 5d 0d 0a 20 20 20 20 20 20 20 20 7d 20 65 n]].. } e
28d0: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 lse {..
28e0: 20 72 65 74 75 72 6e 20 5b 66 69 6c 65 20 6a 6f return [file jo
28f0: 69 6e 20 24 70 61 74 68 20 62 69 6e 20 5b 67 65 in $path bin [ge
2900: 74 42 75 69 6c 64 59 65 61 72 5d 20 5b 67 65 74 tBuildYear] [get
2910: 42 75 69 6c 64 43 6f 6e 66 69 67 75 72 61 74 69 BuildConfigurati
2920: 6f 6e 5d 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 on] \..
2930: 20 20 20 20 20 62 69 6e 5d 0d 0a 20 20 20 20 20 bin]..
2940: 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 }.. }..
2950: 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f }..... pro
2960: 63 20 67 65 74 42 75 69 6c 64 46 69 6c 65 4e 61 c getBuildFileNa
2970: 6d 65 20 7b 20 66 69 6c 65 4e 61 6d 65 20 7d 20 me { fileName }
2980: 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 {.. #..
2990: 20 20 23 20 4e 4f 54 45 3a 20 52 65 74 75 72 6e # NOTE: Return
29a0: 73 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 s the specified
29b0: 66 69 6c 65 20 6e 61 6d 65 20 61 73 20 69 66 20 file name as if
29c0: 69 74 20 77 65 72 65 20 6c 6f 63 61 74 65 64 20 it were located
29d0: 69 6e 20 74 68 65 0d 0a 20 20 20 20 20 20 23 20 in the.. #
29e0: 20 20 20 20 20 20 62 75 69 6c 64 20 64 69 72 65 build dire
29f0: 63 74 6f 72 79 2c 20 64 69 73 63 61 72 64 69 6e ctory, discardin
2a00: 67 20 61 6e 79 20 64 69 72 65 63 74 6f 72 79 20 g any directory
2a10: 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 70 72 65 73 information pres
2a20: 65 6e 74 0d 0a 20 20 20 20 20 20 23 20 20 20 20 ent.. #
2a30: 20 20 20 69 6e 20 74 68 65 20 66 69 6c 65 20 6e in the file n
2a40: 61 6d 65 20 61 73 20 70 72 6f 76 69 64 65 64 20 ame as provided
2a50: 62 79 20 6f 75 72 20 63 61 6c 6c 65 72 2e 0d 0a by our caller...
2a60: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 72 #.. r
2a70: 65 74 75 72 6e 20 5b 66 69 6c 65 20 6e 61 74 69 eturn [file nati
2a80: 76 65 6e 61 6d 65 20 5c 0d 0a 20 20 20 20 20 20 vename \..
2a90: 20 20 20 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b [file join [
2aa0: 67 65 74 42 75 69 6c 64 44 69 72 65 63 74 6f 72 getBuildDirector
2ab0: 79 5d 20 5b 66 69 6c 65 20 74 61 69 6c 20 24 66 y] [file tail $f
2ac0: 69 6c 65 4e 61 6d 65 5d 5d 5d 0d 0a 20 20 20 20 ileName]]]..
2ad0: 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 67 }..... proc g
2ae0: 65 74 42 69 6e 61 72 79 44 69 72 65 63 74 6f 72 etBinaryDirector
2af0: 79 20 7b 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d y {} {.. #.
2b00: 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 . # NOTE: T
2b10: 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 72 65 his procedure re
2b20: 74 75 72 6e 73 20 74 68 65 20 64 69 72 65 63 74 turns the direct
2b30: 6f 72 79 20 77 68 65 72 65 20 74 68 65 20 74 65 ory where the te
2b40: 73 74 20 61 70 70 6c 69 63 61 74 69 6f 6e 0d 0a st application..
2b50: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 69 74 # it
2b60: 73 65 6c 66 20 28 69 2e 65 2e 20 74 68 65 20 45 self (i.e. the E
2b70: 61 67 6c 65 20 73 68 65 6c 6c 29 20 69 73 20 6c agle shell) is l
2b80: 6f 63 61 74 65 64 2e 20 20 54 68 69 73 20 77 69 ocated. This wi
2b90: 6c 6c 20 62 65 20 75 73 65 64 20 61 73 0d 0a 20 ll be used as..
2ba0: 20 20 20 20 20 23 20 20 20 20 20 20 20 74 68 65 # the
2bb0: 20 64 65 73 74 69 6e 61 74 69 6f 6e 20 66 6f 72 destination for
2bc0: 20 74 68 65 20 63 6f 70 69 65 64 20 53 79 73 74 the copied Syst
2bd0: 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 20 6e em.Data.SQLite n
2be0: 61 74 69 76 65 20 61 6e 64 0d 0a 20 20 20 20 20 ative and..
2bf0: 20 23 20 20 20 20 20 20 20 6d 61 6e 61 67 65 64 # managed
2c00: 20 61 73 73 65 6d 62 6c 69 65 73 20 28 69 2e 65 assemblies (i.e
2c10: 2e 20 62 65 63 61 75 73 65 20 74 68 69 73 20 69 . because this i
2c20: 73 20 6f 6e 65 20 6f 66 20 74 68 65 20 66 65 77 s one of the few
2c30: 20 70 6c 61 63 65 73 0d 0a 20 20 20 20 20 20 23 places.. #
2c40: 20 20 20 20 20 20 20 77 68 65 72 65 20 74 68 65 where the
2c50: 20 43 4c 52 20 77 69 6c 6c 20 61 63 74 75 61 6c CLR will actual
2c60: 6c 79 20 66 69 6e 64 20 61 6e 64 20 6c 6f 61 64 ly find and load
2c70: 20 74 68 65 6d 20 70 72 6f 70 65 72 6c 79 29 2e them properly).
2c80: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #..
2c90: 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 if {[info exist
2ca0: 73 20 3a 3a 62 69 6e 61 72 79 5f 64 69 72 65 63 s ::binary_direc
2cb0: 74 6f 72 79 5d 20 26 26 20 5c 0d 0a 20 20 20 20 tory] && \..
2cc0: 20 20 20 20 20 20 5b 73 74 72 69 6e 67 20 6c 65 [string le
2cd0: 6e 67 74 68 20 24 3a 3a 62 69 6e 61 72 79 5f 64 ngth $::binary_d
2ce0: 69 72 65 63 74 6f 72 79 5d 20 3e 20 30 7d 20 74 irectory] > 0} t
2cf0: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 hen {.. #
2d00: 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 .. # NOTE
2d10: 3a 20 54 68 65 20 6c 6f 63 61 74 69 6f 6e 20 6f : The location o
2d20: 66 20 74 68 65 20 62 69 6e 61 72 79 20 64 69 72 f the binary dir
2d30: 65 63 74 6f 72 79 20 68 61 73 20 62 65 65 6e 20 ectory has been
2d40: 6f 76 65 72 72 69 64 64 65 6e 3b 0d 0a 20 20 20 overridden;..
2d50: 20 20 20 20 20 23 20 20 20 20 20 20 20 74 68 65 # the
2d60: 72 65 66 6f 72 65 2c 20 75 73 65 20 69 74 20 76 refore, use it v
2d70: 65 72 62 61 74 69 6d 2e 0d 0a 20 20 20 20 20 20 erbatim...
2d80: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 72 65 74 #.. ret
2d90: 75 72 6e 20 24 3a 3a 62 69 6e 61 72 79 5f 64 69 urn $::binary_di
2da0: 72 65 63 74 6f 72 79 0d 0a 20 20 20 20 20 20 7d rectory.. }
2db0: 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 else {..
2dc0: 20 72 65 74 75 72 6e 20 5b 69 6e 66 6f 20 62 69 return [info bi
2dd0: 6e 61 72 79 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a nary].. }..
2de0: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 }..... pr
2df0: 6f 63 20 67 65 74 42 69 6e 61 72 79 46 69 6c 65 oc getBinaryFile
2e00: 4e 61 6d 65 20 7b 20 66 69 6c 65 4e 61 6d 65 20 Name { fileName
2e10: 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 } {.. #..
2e20: 20 20 20 20 23 20 4e 4f 54 45 3a 20 52 65 74 75 # NOTE: Retu
2e30: 72 6e 73 20 74 68 65 20 73 70 65 63 69 66 69 65 rns the specifie
2e40: 64 20 66 69 6c 65 20 6e 61 6d 65 20 61 73 20 69 d file name as i
2e50: 66 20 69 74 20 77 65 72 65 20 6c 6f 63 61 74 65 f it were locate
2e60: 64 20 69 6e 20 74 68 65 0d 0a 20 20 20 20 20 20 d in the..
2e70: 23 20 20 20 20 20 20 20 62 69 6e 61 72 79 20 64 # binary d
2e80: 69 72 65 63 74 6f 72 79 2c 20 64 69 73 63 61 72 irectory, discar
2e90: 64 69 6e 67 20 61 6e 79 20 64 69 72 65 63 74 6f ding any directo
2ea0: 72 79 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 70 ry information p
2eb0: 72 65 73 65 6e 74 0d 0a 20 20 20 20 20 20 23 20 resent.. #
2ec0: 20 20 20 20 20 20 69 6e 20 74 68 65 20 66 69 6c in the fil
2ed0: 65 20 6e 61 6d 65 20 61 73 20 70 72 6f 76 69 64 e name as provid
2ee0: 65 64 20 62 79 20 6f 75 72 20 63 61 6c 6c 65 72 ed by our caller
2ef0: 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 ... #..
2f00: 20 20 72 65 74 75 72 6e 20 5b 66 69 6c 65 20 6e return [file n
2f10: 61 74 69 76 65 6e 61 6d 65 20 5c 0d 0a 20 20 20 ativename \..
2f20: 20 20 20 20 20 20 20 5b 66 69 6c 65 20 6a 6f 69 [file joi
2f30: 6e 20 5b 67 65 74 42 69 6e 61 72 79 44 69 72 65 n [getBinaryDire
2f40: 63 74 6f 72 79 5d 20 5b 66 69 6c 65 20 74 61 69 ctory] [file tai
2f50: 6c 20 24 66 69 6c 65 4e 61 6d 65 5d 5d 5d 0d 0a l $fileName]]]..
2f60: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 }..... pr
2f70: 6f 63 20 67 65 74 43 6f 72 65 42 69 6e 61 72 79 oc getCoreBinary
2f80: 46 69 6c 65 4e 61 6d 65 20 7b 20 7b 73 74 61 6e FileName { {stan
2f90: 64 61 72 64 20 66 61 6c 73 65 7d 20 7d 20 7b 0d dard false} } {.
2fa0: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 . #..
2fb0: 23 20 4e 4f 54 45 3a 20 52 65 74 75 72 6e 73 20 # NOTE: Returns
2fc0: 74 68 65 20 66 75 6c 6c 20 70 61 74 68 20 66 6f the full path fo
2fd0: 72 20 74 68 65 20 66 69 6c 65 20 63 6f 6e 74 61 r the file conta
2fe0: 69 6e 69 6e 67 20 74 68 65 20 63 6f 72 65 20 53 ining the core S
2ff0: 51 4c 69 74 65 0d 0a 20 20 20 20 20 20 23 20 20 QLite.. #
3000: 20 20 20 20 20 6c 69 62 72 61 72 79 20 63 6f 64 library cod
3010: 65 20 66 6f 72 20 74 68 69 73 20 70 6c 61 74 66 e for this platf
3020: 6f 72 6d 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 orm... #..
3030: 20 20 20 20 20 69 66 20 7b 5b 68 61 73 52 75 6e if {[hasRun
3040: 74 69 6d 65 4f 70 74 69 6f 6e 20 6e 61 74 69 76 timeOption nativ
3050: 65 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 e]} then {..
3060: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 #.. #
3070: 20 4e 4f 54 45 3a 20 52 65 74 75 72 6e 20 74 68 NOTE: Return th
3080: 65 20 6d 69 78 65 64 2d 6d 6f 64 65 20 61 73 73 e mixed-mode ass
3090: 65 6d 62 6c 79 20 66 69 6c 65 20 6e 61 6d 65 2e embly file name.
30a0: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #..
30b0: 20 20 20 20 20 72 65 74 75 72 6e 20 5b 66 69 6c return [fil
30c0: 65 20 6e 61 74 69 76 65 6e 61 6d 65 20 5c 0d 0a e nativename \..
30d0: 20 20 20 20 20 20 20 20 20 20 20 20 5b 66 69 6c [fil
30e0: 65 20 6a 6f 69 6e 20 5b 67 65 74 42 69 6e 61 72 e join [getBinar
30f0: 79 44 69 72 65 63 74 6f 72 79 5d 20 53 79 73 74 yDirectory] Syst
3100: 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 64 em.Data.SQLite.d
3110: 6c 6c 5d 5d 0d 0a 20 20 20 20 20 20 7d 20 65 6c ll]].. } el
3120: 73 65 69 66 20 7b 24 73 74 61 6e 64 61 72 64 7d seif {$standard}
3130: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 then {..
3140: 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f #.. # NO
3150: 54 45 3a 20 52 65 74 75 72 6e 20 74 68 65 20 6e TE: Return the n
3160: 61 74 69 76 65 2d 6f 6e 6c 79 20 73 74 61 6e 64 ative-only stand
3170: 61 72 64 20 53 51 4c 69 74 65 20 6c 69 62 72 61 ard SQLite libra
3180: 72 79 20 66 69 6c 65 20 6e 61 6d 65 2e 0d 0a 20 ry file name...
3190: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
31a0: 20 20 72 65 74 75 72 6e 20 5b 66 69 6c 65 20 6e return [file n
31b0: 61 74 69 76 65 6e 61 6d 65 20 5c 0d 0a 20 20 20 ativename \..
31c0: 20 20 20 20 20 20 20 20 20 5b 66 69 6c 65 20 6a [file j
31d0: 6f 69 6e 20 5b 67 65 74 42 69 6e 61 72 79 44 69 oin [getBinaryDi
31e0: 72 65 63 74 6f 72 79 5d 20 73 71 6c 69 74 65 33 rectory] sqlite3
31f0: 2e 64 6c 6c 5d 5d 0d 0a 20 20 20 20 20 20 7d 20 .dll]].. }
3200: 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 else {..
3210: 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT
3220: 45 3a 20 52 65 74 75 72 6e 20 74 68 65 20 6e 61 E: Return the na
3230: 74 69 76 65 2d 6f 6e 6c 79 20 69 6e 74 65 72 6f tive-only intero
3240: 70 20 61 73 73 65 6d 62 6c 79 20 66 69 6c 65 20 p assembly file
3250: 6e 61 6d 65 2e 0d 0a 20 20 20 20 20 20 20 20 23 name... #
3260: 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e .. return
3270: 20 5b 66 69 6c 65 20 6e 61 74 69 76 65 6e 61 6d [file nativenam
3280: 65 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 e \..
3290: 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 67 65 74 [file join [get
32a0: 42 69 6e 61 72 79 44 69 72 65 63 74 6f 72 79 5d BinaryDirectory]
32b0: 20 53 51 4c 69 74 65 2e 49 6e 74 65 72 6f 70 2e SQLite.Interop.
32c0: 64 6c 6c 5d 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a dll]].. }..
32d0: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 }..... pr
32e0: 6f 63 20 67 65 74 44 61 74 61 62 61 73 65 44 69 oc getDatabaseDi
32f0: 72 65 63 74 6f 72 79 20 7b 7d 20 7b 0d 0a 20 20 rectory {} {..
3300: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e #.. # N
3310: 4f 54 45 3a 20 54 68 69 73 20 70 72 6f 63 65 64 OTE: This proced
3320: 75 72 65 20 72 65 74 75 72 6e 73 20 74 68 65 20 ure returns the
3330: 64 69 72 65 63 74 6f 72 79 20 77 68 65 72 65 20 directory where
3340: 74 68 65 20 74 65 73 74 20 64 61 74 61 62 61 73 the test databas
3350: 65 73 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 es.. #
3360: 20 20 73 68 6f 75 6c 64 20 62 65 20 6c 6f 63 61 should be loca
3370: 74 65 64 2e 20 20 42 79 20 64 65 66 61 75 6c 74 ted. By default
3380: 2c 20 74 68 69 73 20 6a 75 73 74 20 75 73 65 73 , this just uses
3390: 20 74 68 65 20 74 65 6d 70 6f 72 61 72 79 0d 0a the temporary..
33a0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 64 69 # di
33b0: 72 65 63 74 6f 72 79 20 63 6f 6e 66 69 67 75 72 rectory configur
33c0: 65 64 20 66 6f 72 20 74 68 69 73 20 73 79 73 74 ed for this syst
33d0: 65 6d 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 em... #..
33e0: 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 if {[info ex
33f0: 69 73 74 73 20 3a 3a 64 61 74 61 62 61 73 65 5f ists ::database_
3400: 64 69 72 65 63 74 6f 72 79 5d 20 26 26 20 5c 0d directory] && \.
3410: 0a 20 20 20 20 20 20 20 20 20 20 5b 73 74 72 69 . [stri
3420: 6e 67 20 6c 65 6e 67 74 68 20 24 3a 3a 64 61 74 ng length $::dat
3430: 61 62 61 73 65 5f 64 69 72 65 63 74 6f 72 79 5d abase_directory]
3440: 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 > 0} then {..
3450: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
3460: 20 23 20 4e 4f 54 45 3a 20 54 68 65 20 6c 6f 63 # NOTE: The loc
3470: 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 64 61 74 ation of the dat
3480: 61 62 61 73 65 20 64 69 72 65 63 74 6f 72 79 20 abase directory
3490: 68 61 73 20 62 65 65 6e 20 6f 76 65 72 72 69 64 has been overrid
34a0: 64 65 6e 3b 0d 0a 20 20 20 20 20 20 20 20 23 20 den;.. #
34b0: 20 20 20 20 20 20 74 68 65 72 65 66 6f 72 65 2c therefore,
34c0: 20 75 73 65 20 69 74 2e 0d 0a 20 20 20 20 20 20 use it...
34d0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 72 65 74 #.. ret
34e0: 75 72 6e 20 5b 66 69 6c 65 20 6e 6f 72 6d 61 6c urn [file normal
34f0: 69 7a 65 20 24 3a 3a 64 61 74 61 62 61 73 65 5f ize $::database_
3500: 64 69 72 65 63 74 6f 72 79 5d 0d 0a 20 20 20 20 directory]..
3510: 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 } else {..
3520: 20 20 20 20 72 65 74 75 72 6e 20 5b 67 65 74 54 return [getT
3530: 65 6d 70 6f 72 61 72 79 50 61 74 68 5d 0d 0a 20 emporaryPath]..
3540: 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c }.. }...
3550: 0d 0a 20 20 20 20 70 72 6f 63 20 67 65 74 54 65 .. proc getTe
3560: 6d 70 6f 72 61 72 79 44 69 72 65 63 74 6f 72 79 mporaryDirectory
3570: 20 7b 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a {} {.. #..
3580: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 # NOTE: Th
3590: 69 73 20 70 72 6f 63 65 64 75 72 65 20 72 65 74 is procedure ret
35a0: 75 72 6e 73 20 74 68 65 20 64 69 72 65 63 74 6f urns the directo
35b0: 72 79 20 77 68 65 72 65 20 74 68 65 20 74 65 6d ry where the tem
35c0: 70 6f 72 61 72 79 20 66 69 6c 65 73 0d 0a 20 20 porary files..
35d0: 20 20 20 20 23 20 20 20 20 20 20 20 73 68 6f 75 # shou
35e0: 6c 64 20 62 65 20 6c 6f 63 61 74 65 64 2e 20 20 ld be located.
35f0: 42 79 20 64 65 66 61 75 6c 74 2c 20 74 68 69 73 By default, this
3600: 20 6a 75 73 74 20 75 73 65 73 20 74 68 65 20 74 just uses the t
3610: 65 6d 70 6f 72 61 72 79 0d 0a 20 20 20 20 20 20 emporary..
3620: 23 20 20 20 20 20 20 20 64 69 72 65 63 74 6f 72 # director
3630: 79 20 63 6f 6e 66 69 67 75 72 65 64 20 66 6f 72 y configured for
3640: 20 74 68 69 73 20 73 79 73 74 65 6d 2e 0d 0a 20 this system...
3650: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 #.. if
3660: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a {[info exists :
3670: 3a 74 65 6d 70 6f 72 61 72 79 5f 64 69 72 65 63 :temporary_direc
3680: 74 6f 72 79 5d 20 26 26 20 5c 0d 0a 20 20 20 20 tory] && \..
3690: 20 20 20 20 20 20 5b 73 74 72 69 6e 67 20 6c 65 [string le
36a0: 6e 67 74 68 20 24 3a 3a 74 65 6d 70 6f 72 61 72 ngth $::temporar
36b0: 79 5f 64 69 72 65 63 74 6f 72 79 5d 20 3e 20 30 y_directory] > 0
36c0: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {..
36d0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e #.. # N
36e0: 4f 54 45 3a 20 54 68 65 20 6c 6f 63 61 74 69 6f OTE: The locatio
36f0: 6e 20 6f 66 20 74 68 65 20 74 65 6d 70 6f 72 61 n of the tempora
3700: 72 79 20 64 69 72 65 63 74 6f 72 79 20 68 61 73 ry directory has
3710: 20 62 65 65 6e 20 6f 76 65 72 72 69 64 64 65 6e been overridden
3720: 3b 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 ;.. #
3730: 20 20 20 74 68 65 72 65 66 6f 72 65 2c 20 75 73 therefore, us
3740: 65 20 69 74 2e 0d 0a 20 20 20 20 20 20 20 20 23 e it... #
3750: 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e .. return
3760: 20 5b 66 69 6c 65 20 6e 6f 72 6d 61 6c 69 7a 65 [file normalize
3770: 20 24 3a 3a 74 65 6d 70 6f 72 61 72 79 5f 64 69 $::temporary_di
3780: 72 65 63 74 6f 72 79 5d 0d 0a 20 20 20 20 20 20 rectory]..
3790: 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 } else {..
37a0: 20 20 72 65 74 75 72 6e 20 5b 67 65 74 54 65 6d return [getTem
37b0: 70 6f 72 61 72 79 50 61 74 68 5d 0d 0a 20 20 20 poraryPath]..
37c0: 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a }.. }.....
37d0: 20 20 20 20 70 72 6f 63 20 67 65 74 54 65 73 74 proc getTest
37e0: 4f 76 65 72 72 69 64 65 73 50 72 65 61 6d 62 6c OverridesPreambl
37f0: 65 20 7b 20 7b 65 78 74 72 61 56 61 72 4e 61 6d e { {extraVarNam
3800: 65 73 20 22 22 7d 20 7d 20 7b 0d 0a 20 20 20 20 es ""} } {..
3810: 20 20 73 65 74 20 76 61 72 4e 61 6d 65 73 20 5b set varNames [
3820: 6c 69 73 74 5d 0d 0a 0d 0a 20 20 20 20 20 20 23 list].... #
3830: 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 .. # NOTE:
3840: 49 66 20 61 76 61 69 6c 61 62 6c 65 2c 20 73 74 If available, st
3850: 61 72 74 20 77 69 74 68 20 74 68 65 20 6d 61 73 art with the mas
3860: 74 65 72 20 6c 69 73 74 20 6f 66 20 74 65 73 74 ter list of test
3870: 20 6f 76 65 72 72 69 64 65 0d 0a 20 20 20 20 20 override..
3880: 20 23 20 20 20 20 20 20 20 76 61 72 69 61 62 6c # variabl
3890: 65 73 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 es... #..
38a0: 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 if {[info ex
38b0: 69 73 74 73 20 3a 3a 74 65 73 74 5f 6f 76 65 72 ists ::test_over
38c0: 72 69 64 65 73 5d 20 26 26 20 5c 0d 0a 20 20 20 rides] && \..
38d0: 20 20 20 20 20 20 20 5b 6c 6c 65 6e 67 74 68 20 [llength
38e0: 24 3a 3a 74 65 73 74 5f 6f 76 65 72 72 69 64 65 $::test_override
38f0: 73 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a s] > 0} then {..
3900: 20 20 20 20 20 20 20 20 65 76 61 6c 20 6c 61 70 eval lap
3910: 70 65 6e 64 20 76 61 72 4e 61 6d 65 73 20 24 3a pend varNames $:
3920: 3a 74 65 73 74 5f 6f 76 65 72 72 69 64 65 73 0d :test_overrides.
3930: 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 . }....
3940: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT
3950: 45 3a 20 49 66 20 72 65 71 75 65 73 74 65 64 20 E: If requested
3960: 62 79 20 6f 75 72 20 63 61 6c 6c 65 72 2c 20 61 by our caller, a
3970: 64 64 20 61 6e 79 20 61 64 64 69 74 69 6f 6e 61 dd any additiona
3980: 6c 20 76 61 72 69 61 62 6c 65 0d 0a 20 20 20 20 l variable..
3990: 20 20 23 20 20 20 20 20 20 20 6e 61 6d 65 73 20 # names
39a0: 74 6f 20 63 6f 70 79 20 6e 6f 77 2e 0d 0a 20 20 to copy now...
39b0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 #.. if
39c0: 7b 5b 6c 6c 65 6e 67 74 68 20 24 65 78 74 72 61 {[llength $extra
39d0: 56 61 72 4e 61 6d 65 73 5d 20 3e 20 30 7d 20 74 VarNames] > 0} t
39e0: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 65 hen {.. e
39f0: 76 61 6c 20 6c 61 70 70 65 6e 64 20 76 61 72 4e val lappend varN
3a00: 61 6d 65 73 20 24 65 78 74 72 61 56 61 72 4e 61 ames $extraVarNa
3a10: 6d 65 73 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a mes.. }....
3a20: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 #.. #
3a30: 20 4e 4f 54 45 3a 20 42 75 69 6c 64 20 74 68 65 NOTE: Build the
3a40: 20 73 63 72 69 70 74 20 66 72 61 67 6d 65 6e 74 script fragment
3a50: 20 74 6f 20 62 65 20 72 65 74 75 72 6e 65 64 20 to be returned
3a60: 62 79 20 70 72 6f 63 65 73 73 69 6e 67 20 65 61 by processing ea
3a70: 63 68 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 ch.. #
3a80: 20 20 76 61 72 69 61 62 6c 65 20 6e 61 6d 65 20 variable name
3a90: 61 6e 64 20 61 64 64 69 6e 67 20 74 68 65 20 6e and adding the n
3aa0: 65 63 65 63 65 73 73 61 72 79 20 73 63 72 69 70 ececessary scrip
3ab0: 74 20 66 72 61 67 6d 65 6e 74 73 20 66 6f 72 0d t fragments for.
3ac0: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 65 . # e
3ad0: 61 63 68 20 6f 6e 65 2e 0d 0a 20 20 20 20 20 20 ach one...
3ae0: 23 0d 0a 20 20 20 20 20 20 73 65 74 20 72 65 73 #.. set res
3af0: 75 6c 74 20 22 22 0d 0a 0d 0a 20 20 20 20 20 20 ult ""....
3b00: 66 6f 72 65 61 63 68 20 76 61 72 4e 61 6d 65 20 foreach varName
3b10: 24 76 61 72 4e 61 6d 65 73 20 7b 0d 0a 20 20 20 $varNames {..
3b20: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #..
3b30: 23 20 4e 4f 54 45 3a 20 42 75 69 6c 64 20 74 68 # NOTE: Build th
3b40: 65 20 71 75 61 6c 69 66 69 65 64 20 67 6c 6f 62 e qualified glob
3b50: 61 6c 20 76 61 72 69 61 62 6c 65 20 6e 61 6d 65 al variable name
3b60: 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 ... #..
3b70: 20 20 20 20 20 20 73 65 74 20 66 75 6c 6c 56 61 set fullVa
3b80: 72 4e 61 6d 65 20 5b 61 70 70 65 6e 64 41 72 67 rName [appendArg
3b90: 73 20 3a 3a 20 24 76 61 72 4e 61 6d 65 5d 0d 0a s :: $varName]..
3ba0: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #..
3bb0: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 44 6f 65 # NOTE: Doe
3bc0: 73 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 65 s the variable e
3bd0: 78 69 73 74 20 69 6e 20 74 68 69 73 20 69 6e 74 xist in this int
3be0: 65 72 70 72 65 74 65 72 20 63 6f 6e 74 65 78 74 erpreter context
3bf0: 3f 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 ?.. #..
3c00: 20 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 if {[info
3c10: 65 78 69 73 74 73 20 24 66 75 6c 6c 56 61 72 4e exists $fullVarN
3c20: 61 6d 65 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 ame]} then {..
3c30: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #..
3c40: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 41 70 70 # NOTE: App
3c50: 65 6e 64 20 61 20 73 63 72 69 70 74 20 66 72 61 end a script fra
3c60: 67 6d 65 6e 74 20 74 6f 20 74 68 65 20 72 65 73 gment to the res
3c70: 75 6c 74 20 74 68 61 74 20 77 69 6c 6c 20 63 6f ult that will co
3c80: 72 72 65 63 74 6c 79 0d 0a 20 20 20 20 20 20 20 rrectly..
3c90: 20 20 20 23 20 20 20 20 20 20 20 63 6f 70 79 20 # copy
3ca0: 61 6e 79 20 63 6f 6e 74 61 69 6e 65 64 20 76 61 any contained va
3cb0: 6c 75 65 20 74 6f 20 61 6e 6f 74 68 65 72 20 69 lue to another i
3cc0: 6e 74 65 72 70 72 65 74 65 72 20 63 6f 6e 74 65 nterpreter conte
3cd0: 78 74 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23 xt... #
3ce0: 0d 0a 20 20 20 20 20 20 20 20 20 20 61 70 70 65 .. appe
3cf0: 6e 64 20 72 65 73 75 6c 74 20 5c 6e 20 22 73 65 nd result \n "se
3d00: 74 20 22 20 24 66 75 6c 6c 56 61 72 4e 61 6d 65 t " $fullVarName
3d10: 20 22 20 5c 7b 22 20 5b 73 65 74 20 24 66 75 6c " \{" [set $ful
3d20: 6c 56 61 72 4e 61 6d 65 5d 20 5c 7d 0d 0a 20 20 lVarName] \}..
3d30: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d }.. }
3d40: 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 .... #..
3d50: 20 20 20 23 20 4e 4f 54 45 3a 20 49 66 20 74 68 # NOTE: If th
3d60: 65 20 72 65 73 75 6c 74 20 63 6f 6e 74 61 69 6e e result contain
3d70: 73 20 6f 6e 65 20 6f 72 20 6d 6f 72 65 20 73 63 s one or more sc
3d80: 72 69 70 74 20 66 72 61 67 6d 65 6e 74 73 2c 20 ript fragments,
3d90: 61 70 70 65 6e 64 20 61 0d 0a 20 20 20 20 20 20 append a..
3da0: 23 20 20 20 20 20 20 20 6e 65 77 6c 69 6e 65 2e # newline.
3db0: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #..
3dc0: 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e if {[string len
3dd0: 67 74 68 20 24 72 65 73 75 6c 74 5d 20 3e 20 30 gth $result] > 0
3de0: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {..
3df0: 20 20 61 70 70 65 6e 64 20 72 65 73 75 6c 74 20 append result
3e00: 5c 6e 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 \n.. }....
3e10: 20 20 20 20 20 72 65 74 75 72 6e 20 24 72 65 73 return $res
3e20: 75 6c 74 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 ult.. }.....
3e30: 20 20 20 70 72 6f 63 20 67 65 74 41 70 70 44 6f proc getAppDo
3e40: 6d 61 69 6e 50 72 65 61 6d 62 6c 65 20 7b 20 7b mainPreamble { {
3e50: 70 72 65 66 69 78 20 22 22 7d 20 7b 73 75 66 66 prefix ""} {suff
3e60: 69 78 20 22 22 7d 20 7d 20 7b 0d 0a 20 20 20 20 ix ""} } {..
3e70: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT
3e80: 45 3a 20 54 68 69 73 20 70 72 6f 63 65 64 75 72 E: This procedur
3e90: 65 20 72 65 74 75 72 6e 73 20 61 20 74 65 73 74 e returns a test
3ea0: 20 73 65 74 75 70 20 73 63 72 69 70 74 20 66 72 setup script fr
3eb0: 61 67 6d 65 6e 74 20 73 75 69 74 61 62 6c 65 20 agment suitable
3ec0: 66 6f 72 0d 0a 20 20 20 20 20 20 23 20 20 20 20 for.. #
3ed0: 20 20 20 65 76 61 6c 75 61 74 69 6f 6e 20 62 79 evaluation by
3ee0: 20 61 6e 20 69 6e 74 65 72 70 72 65 74 65 72 20 an interpreter
3ef0: 63 72 65 61 74 65 64 20 69 6e 20 61 6e 20 69 73 created in an is
3f00: 6f 6c 61 74 65 64 20 61 70 70 6c 69 63 61 74 69 olated applicati
3f10: 6f 6e 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 on.. #
3f20: 20 20 64 6f 6d 61 69 6e 2e 20 20 54 68 65 20 73 domain. The s
3f30: 63 72 69 70 74 20 66 72 61 67 6d 65 6e 74 20 62 cript fragment b
3f40: 65 69 6e 67 20 72 65 74 75 72 6e 65 64 20 77 69 eing returned wi
3f50: 6c 6c 20 62 65 20 73 75 72 72 6f 75 6e 64 65 64 ll be surrounded
3f60: 20 62 79 0d 0a 20 20 20 20 20 20 23 20 20 20 20 by.. #
3f70: 20 20 20 74 68 65 20 70 72 65 66 69 78 20 61 6e the prefix an
3f80: 64 20 73 75 66 66 69 78 20 22 73 63 72 69 70 74 d suffix "script
3f90: 20 66 72 61 67 6d 65 6e 74 73 22 20 73 70 65 63 fragments" spec
3fa0: 69 66 69 65 64 20 62 79 20 6f 75 72 20 63 61 6c ified by our cal
3fb0: 6c 65 72 2c 0d 0a 20 20 20 20 20 20 23 20 20 20 ler,.. #
3fc0: 20 20 20 20 69 66 20 61 6e 79 2e 20 20 54 68 65 if any. The
3fd0: 20 65 6e 74 69 72 65 20 73 63 72 69 70 74 20 62 entire script b
3fe0: 65 69 6e 67 20 72 65 74 75 72 6e 65 64 20 77 69 eing returned wi
3ff0: 6c 6c 20 62 65 20 73 75 62 73 74 69 74 75 74 65 ll be substitute
4000: 64 20 76 69 61 0d 0a 20 20 20 20 20 20 23 20 20 d via.. #
4010: 20 20 20 20 20 5b 73 75 62 73 74 5d 2c 20 69 6e [subst], in
4020: 20 74 68 65 20 63 6f 6e 74 65 78 74 20 6f 66 20 the context of
4030: 6f 75 72 20 63 61 6c 6c 65 72 2c 20 62 65 66 6f our caller, befo
4040: 72 65 20 62 65 69 6e 67 20 72 65 74 75 72 6e 65 re being returne
4050: 64 2e 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 d... #
4060: 20 20 54 68 69 73 20 73 74 65 70 20 69 73 20 6e This step is n
4070: 65 63 65 73 73 61 72 79 20 73 6f 20 74 68 61 74 ecessary so that
4080: 20 73 6f 6d 65 20 6c 69 6d 69 74 65 64 20 63 6f some limited co
4090: 6e 74 65 78 74 20 69 6e 66 6f 72 6d 61 74 69 6f ntext informatio
40a0: 6e 2c 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 n,.. #
40b0: 20 20 70 72 69 6d 61 72 69 6c 79 20 72 65 6c 61 primarily rela
40c0: 74 65 64 20 74 6f 20 74 68 65 20 74 65 73 74 69 ted to the testi
40d0: 6e 67 20 64 69 72 65 63 74 6f 72 69 65 73 2c 20 ng directories,
40e0: 63 61 6e 20 62 65 20 74 72 61 6e 73 66 65 72 72 can be transferr
40f0: 65 64 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 ed.. #
4100: 20 20 74 6f 20 74 68 65 20 69 6e 74 65 72 70 72 to the interpr
4110: 65 74 65 72 20 69 6e 20 74 68 65 20 69 73 6f 6c eter in the isol
4120: 61 74 65 64 20 61 70 70 6c 69 63 61 74 69 6f 6e ated application
4130: 20 64 6f 6d 61 69 6e 2c 20 6d 61 6b 69 6e 67 20 domain, making
4140: 69 74 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 it.. #
4150: 20 20 61 62 6c 65 20 74 6f 20 73 75 63 63 65 73 able to succes
4160: 73 66 75 6c 6c 79 20 72 75 6e 20 74 65 73 74 73 sfully run tests
4170: 20 74 68 61 74 20 72 65 71 75 69 72 65 20 6f 6e that require on
4180: 65 20 6f 72 20 6d 6f 72 65 20 6f 66 20 74 68 65 e or more of the
4190: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. #
41a0: 66 69 6c 65 73 20 69 6e 20 6f 6e 65 20 6f 66 20 files in one of
41b0: 74 68 65 20 74 65 73 74 69 6e 67 20 64 69 72 65 the testing dire
41c0: 63 74 6f 72 69 65 73 2e 20 20 43 61 6c 6c 65 72 ctories. Caller
41d0: 73 20 73 68 6f 75 6c 64 20 6b 65 65 70 20 69 6e s should keep in
41e0: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. #
41f0: 6d 69 6e 64 20 74 68 61 74 20 74 68 65 20 74 65 mind that the te
4200: 73 74 20 73 63 72 69 70 74 20 66 72 61 67 6d 65 st script fragme
4210: 6e 74 20 62 65 69 6e 67 20 72 65 74 75 72 6e 65 nt being returne
4220: 64 20 63 61 6e 6e 6f 74 20 72 65 6c 79 20 6f 6e d cannot rely on
4230: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. #
4240: 61 6e 79 20 73 63 72 69 70 74 20 6c 69 62 72 61 any script libra
4250: 72 79 20 70 72 6f 63 65 64 75 72 65 73 20 74 68 ry procedures th
4260: 61 74 20 61 72 65 20 6e 6f 74 20 70 72 6f 76 69 at are not provi
4270: 64 65 64 20 62 79 20 74 68 65 20 45 61 67 6c 65 ded by the Eagle
4280: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. #
4290: 6c 69 62 72 61 72 79 20 70 61 63 6b 61 67 65 20 library package
42a0: 28 69 2e 65 2e 20 22 69 6e 69 74 2e 65 61 67 6c (i.e. "init.eagl
42b0: 65 22 29 2c 20 69 6e 63 6c 75 64 69 6e 67 20 74 e"), including t
42c0: 68 6f 73 65 20 70 72 6f 76 69 64 65 64 20 62 79 hose provided by
42d0: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. #
42e0: 74 68 65 20 45 61 67 6c 65 20 74 65 73 74 20 70 the Eagle test p
42f0: 61 63 6b 61 67 65 2c 20 75 6e 6c 65 73 73 20 74 ackage, unless t
4300: 68 65 20 66 69 6c 65 20 63 6f 6e 74 61 69 6e 69 he file containi
4310: 6e 67 20 74 68 65 6d 20 69 73 20 6c 6f 61 64 65 ng them is loade
4320: 64 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 d.. #
4330: 20 6d 61 6e 75 61 6c 6c 79 20 76 69 61 20 73 6f manually via so
4340: 6d 65 20 6f 74 68 65 72 20 6d 65 63 68 61 6e 69 me other mechani
4350: 73 6d 20 28 65 2e 67 2e 20 62 79 20 69 6e 63 6c sm (e.g. by incl
4360: 75 64 69 6e 67 20 61 70 70 72 6f 70 72 69 61 74 uding appropriat
4370: 65 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 e.. #
4380: 20 5b 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 [package requir
4390: 65 5d 20 6f 72 20 5b 73 6f 75 72 63 65 5d 20 63 e] or [source] c
43a0: 6f 6d 6d 61 6e 64 73 20 69 6e 20 74 68 65 20 70 ommands in the p
43b0: 72 65 66 69 78 20 6f 72 20 73 75 66 66 69 78 0d refix or suffix.
43c0: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 73 . # s
43d0: 63 72 69 70 74 20 66 72 61 67 6d 65 6e 74 73 29 cript fragments)
43e0: 2e 20 20 41 6c 73 6f 2c 20 61 6c 6c 20 76 61 72 . Also, all var
43f0: 69 61 62 6c 65 20 72 65 66 65 72 65 6e 63 65 73 iable references
4400: 20 61 6e 64 20 61 6c 6c 20 6e 65 73 74 65 64 0d and all nested.
4410: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 63 . # c
4420: 6f 6d 6d 61 6e 64 73 20 28 69 2e 65 2e 20 74 68 ommands (i.e. th
4430: 6f 73 65 20 69 6e 20 73 71 75 61 72 65 20 62 72 ose in square br
4440: 61 63 6b 65 74 73 29 20 63 6f 6e 74 61 69 6e 65 ackets) containe
4450: 64 20 69 6e 20 74 68 65 20 66 69 6e 61 6c 0d 0a d in the final..
4460: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 73 63 # sc
4470: 72 69 70 74 20 66 72 61 67 6d 65 6e 74 20 77 69 ript fragment wi
4480: 6c 6c 20 65 6e 64 20 75 70 20 62 65 69 6e 67 20 ll end up being
4490: 65 76 61 6c 75 61 74 65 64 20 69 6e 20 74 68 65 evaluated in the
44a0: 20 63 6f 6e 74 65 78 74 20 6f 66 20 74 68 65 0d context of the.
44b0: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 63 . # c
44c0: 61 6c 6c 69 6e 67 20 69 6e 74 65 72 70 72 65 74 alling interpret
44d0: 65 72 20 61 6e 64 20 6e 6f 74 20 74 68 65 20 74 er and not the t
44e0: 61 72 67 65 74 20 69 6e 74 65 72 70 72 65 74 65 arget interprete
44f0: 72 20 63 72 65 61 74 65 64 20 69 6e 20 74 68 65 r created in the
4500: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. #
4510: 69 73 6f 6c 61 74 65 64 20 61 70 70 6c 69 63 61 isolated applica
4520: 74 69 6f 6e 20 64 6f 6d 61 69 6e 20 75 6e 6c 65 tion domain unle
4530: 73 73 20 74 68 65 20 64 6f 6c 6c 61 72 20 73 69 ss the dollar si
4540: 67 6e 73 20 61 6e 64 2f 6f 72 20 73 71 75 61 72 gns and/or squar
4550: 65 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 e.. #
4560: 20 62 72 61 63 6b 65 74 73 20 61 72 65 20 73 70 brackets are sp
4570: 65 63 69 61 6c 6c 79 20 71 75 6f 74 65 64 20 77 ecially quoted w
4580: 69 74 68 20 62 61 63 6b 73 6c 61 73 68 65 73 2e ith backslashes.
4590: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #..
45a0: 20 72 65 74 75 72 6e 20 5b 75 70 6c 65 76 65 6c return [uplevel
45b0: 20 31 20 5b 6c 69 73 74 20 73 75 62 73 74 20 5b 1 [list subst [
45c0: 61 70 70 65 6e 64 41 72 67 73 20 24 70 72 65 66 appendArgs $pref
45d0: 69 78 20 7b 0d 0a 20 20 20 20 20 20 20 20 69 66 ix {.. if
45e0: 20 7b 5b 68 61 73 52 75 6e 74 69 6d 65 4f 70 74 {[hasRuntimeOpt
45f0: 69 6f 6e 20 6e 61 74 69 76 65 5d 7d 20 74 68 65 ion native]} the
4600: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 6f n {.. o
4610: 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 49 6e 74 bject invoke Int
4620: 65 72 70 72 65 74 65 72 2e 47 65 74 41 63 74 69 erpreter.GetActi
4630: 76 65 20 41 64 64 52 75 6e 74 69 6d 65 4f 70 74 ve AddRuntimeOpt
4640: 69 6f 6e 20 6e 61 74 69 76 65 0d 0a 20 20 20 20 ion native..
4650: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 20 5b }.. } [
4660: 67 65 74 54 65 73 74 4f 76 65 72 72 69 64 65 73 getTestOverrides
4670: 50 72 65 61 6d 62 6c 65 20 5b 6c 69 73 74 20 70 Preamble [list p
4680: 61 74 68 20 74 65 73 74 5f 63 68 61 6e 6e 65 6c ath test_channel
4690: 5d 5d 20 24 73 75 66 66 69 78 5d 5d 5d 0d 0a 20 ]] $suffix]]]..
46a0: 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f }..... pro
46b0: 63 20 74 72 79 43 6f 70 79 42 75 69 6c 64 46 69 c tryCopyBuildFi
46c0: 6c 65 20 7b 20 66 69 6c 65 4e 61 6d 65 20 7d 20 le { fileName }
46d0: 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 {.. #..
46e0: 20 20 23 20 4e 4f 54 45 3a 20 49 66 20 77 65 20 # NOTE: If we
46f0: 63 61 6e 6e 6f 74 20 63 6f 70 79 20 74 68 65 20 cannot copy the
4700: 61 73 73 65 6d 62 6c 79 20 74 68 65 6e 20 69 74 assembly then it
4710: 20 69 73 20 70 72 6f 62 61 62 6c 79 20 61 6c 72 is probably alr
4720: 65 61 64 79 20 6c 6f 61 64 65 64 2e 0d 0a 20 20 eady loaded...
4730: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 73 65 74 #.. set
4740: 20 73 6f 75 72 63 65 46 69 6c 65 4e 61 6d 65 20 sourceFileName
4750: 5b 67 65 74 42 75 69 6c 64 46 69 6c 65 4e 61 6d [getBuildFileNam
4760: 65 20 24 66 69 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a e $fileName]....
4770: 20 20 20 20 20 20 69 66 20 7b 21 5b 66 69 6c 65 if {![file
4780: 20 65 78 69 73 74 73 20 24 73 6f 75 72 63 65 46 exists $sourceF
4790: 69 6c 65 4e 61 6d 65 5d 7d 20 74 68 65 6e 20 7b ileName]} then {
47a0: 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20 .. tputs
47b0: 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 $::test_channel
47c0: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 [appendArgs \..
47d0: 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d "----
47e0: 20 73 6b 69 70 70 65 64 20 63 6f 70 79 69 6e 67 skipped copying
47f0: 20 62 75 69 6c 64 20 66 69 6c 65 20 5c 22 22 20 build file \""
4800: 24 73 6f 75 72 63 65 46 69 6c 65 4e 61 6d 65 20 $sourceFileName
4810: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 \.. "
4820: 5c 22 2c 20 69 74 20 64 6f 65 73 20 6e 6f 74 20 \", it does not
4830: 65 78 69 73 74 5c 6e 22 5d 0d 0a 0d 0a 20 20 20 exist\n"]....
4840: 20 20 20 20 20 72 65 74 75 72 6e 0d 0a 20 20 20 return..
4850: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 73 65 }.... se
4860: 74 20 74 61 72 67 65 74 46 69 6c 65 4e 61 6d 65 t targetFileName
4870: 20 5b 67 65 74 42 69 6e 61 72 79 46 69 6c 65 4e [getBinaryFileN
4880: 61 6d 65 20 24 66 69 6c 65 4e 61 6d 65 5d 0d 0a ame $fileName]..
4890: 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 .. if {[cat
48a0: 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 ch {..
48b0: 20 20 20 20 66 69 6c 65 20 63 6f 70 79 20 2d 66 file copy -f
48c0: 6f 72 63 65 20 24 73 6f 75 72 63 65 46 69 6c 65 orce $sourceFile
48d0: 4e 61 6d 65 20 24 74 61 72 67 65 74 46 69 6c 65 Name $targetFile
48e0: 4e 61 6d 65 7d 5d 20 3d 3d 20 30 7d 20 74 68 65 Name}] == 0} the
48f0: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 74 70 75 n {.. tpu
4900: 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e ts $::test_chann
4910: 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c el [appendArgs \
4920: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 2d .. "-
4930: 2d 2d 2d 20 63 6f 70 69 65 64 20 62 75 69 6c 64 --- copied build
4940: 20 66 69 6c 65 20 66 72 6f 6d 20 5c 22 22 20 24 file from \"" $
4950: 73 6f 75 72 63 65 46 69 6c 65 4e 61 6d 65 20 22 sourceFileName "
4960: 5c 22 20 74 6f 20 5c 22 22 20 5c 0d 0a 20 20 20 \" to \"" \..
4970: 20 20 20 20 20 20 20 20 20 24 74 61 72 67 65 74 $target
4980: 46 69 6c 65 4e 61 6d 65 20 5c 22 5c 6e 5d 0d 0a FileName \"\n]..
4990: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a } else {..
49a0: 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 3a tputs $:
49b0: 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 :test_channel [a
49c0: 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 ppendArgs \..
49d0: 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 66 "---- f
49e0: 61 69 6c 65 64 20 74 6f 20 63 6f 70 79 20 62 75 ailed to copy bu
49f0: 69 6c 64 20 66 69 6c 65 20 66 72 6f 6d 20 5c 22 ild file from \"
4a00: 22 20 24 73 6f 75 72 63 65 46 69 6c 65 4e 61 6d " $sourceFileNam
4a10: 65 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 e \..
4a20: 20 22 5c 22 20 74 6f 20 5c 22 22 20 24 74 61 72 "\" to \"" $tar
4a30: 67 65 74 46 69 6c 65 4e 61 6d 65 20 5c 22 5c 6e getFileName \"\n
4a40: 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 ].. }..
4a50: 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 74 }..... proc t
4a60: 72 79 44 65 6c 65 74 65 42 69 6e 61 72 79 46 69 ryDeleteBinaryFi
4a70: 6c 65 20 7b 20 66 69 6c 65 4e 61 6d 65 20 7d 20 le { fileName }
4a80: 7b 0d 0a 20 20 20 20 20 20 73 65 74 20 66 69 6c {.. set fil
4a90: 65 4e 61 6d 65 20 5b 67 65 74 42 69 6e 61 72 79 eName [getBinary
4aa0: 46 69 6c 65 4e 61 6d 65 20 24 66 69 6c 65 4e 61 FileName $fileNa
4ab0: 6d 65 5d 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 me].... if
4ac0: 7b 21 5b 66 69 6c 65 20 65 78 69 73 74 73 20 24 {![file exists $
4ad0: 66 69 6c 65 4e 61 6d 65 5d 7d 20 74 68 65 6e 20 fileName]} then
4ae0: 7b 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 {.. tputs
4af0: 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c $::test_channel
4b00: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a [appendArgs \..
4b10: 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d "---
4b20: 2d 20 73 6b 69 70 70 65 64 20 64 65 6c 65 74 69 - skipped deleti
4b30: 6e 67 20 62 69 6e 61 72 79 20 66 69 6c 65 20 5c ng binary file \
4b40: 22 22 20 24 66 69 6c 65 4e 61 6d 65 20 5c 0d 0a "" $fileName \..
4b50: 20 20 20 20 20 20 20 20 20 20 20 20 22 5c 22 2c "\",
4b60: 20 69 74 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 it does not exi
4b70: 73 74 5c 6e 22 5d 0d 0a 0d 0a 20 20 20 20 20 20 st\n"]....
4b80: 20 20 72 65 74 75 72 6e 0d 0a 20 20 20 20 20 20 return..
4b90: 7d 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b }.... if {[
4ba0: 63 61 74 63 68 20 7b 66 69 6c 65 20 64 65 6c 65 catch {file dele
4bb0: 74 65 20 24 66 69 6c 65 4e 61 6d 65 7d 5d 20 3d te $fileName}] =
4bc0: 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 = 0} then {..
4bd0: 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 tputs $::te
4be0: 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 st_channel [appe
4bf0: 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 ndArgs \..
4c00: 20 20 20 20 20 20 22 2d 2d 2d 2d 20 64 65 6c 65 "---- dele
4c10: 74 65 64 20 62 69 6e 61 72 79 20 66 69 6c 65 20 ted binary file
4c20: 5c 22 22 20 24 66 69 6c 65 4e 61 6d 65 20 5c 22 \"" $fileName \"
4c30: 5c 6e 5d 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 \n].. } els
4c40: 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 74 70 75 e {.. tpu
4c50: 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e ts $::test_chann
4c60: 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c el [appendArgs \
4c70: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 2d .. "-
4c80: 2d 2d 2d 20 66 61 69 6c 65 64 20 74 6f 20 64 65 --- failed to de
4c90: 6c 65 74 65 20 62 69 6e 61 72 79 20 66 69 6c 65 lete binary file
4ca0: 20 5c 22 22 20 24 66 69 6c 65 4e 61 6d 65 20 5c \"" $fileName \
4cb0: 22 5c 6e 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 "\n].. }..
4cc0: 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f }..... pro
4cd0: 63 20 74 72 79 43 6f 70 79 41 73 73 65 6d 62 6c c tryCopyAssembl
4ce0: 79 20 7b 20 66 69 6c 65 4e 61 6d 65 20 7b 70 64 y { fileName {pd
4cf0: 62 20 74 72 75 65 7d 20 7d 20 7b 0d 0a 20 20 20 b true} } {..
4d00: 20 20 20 74 72 79 43 6f 70 79 42 75 69 6c 64 46 tryCopyBuildF
4d10: 69 6c 65 20 24 66 69 6c 65 4e 61 6d 65 0d 0a 0d ile $fileName...
4d20: 0a 20 20 20 20 20 20 69 66 20 7b 24 70 64 62 7d . if {$pdb}
4d30: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 then {..
4d40: 20 74 72 79 43 6f 70 79 42 75 69 6c 64 46 69 6c tryCopyBuildFil
4d50: 65 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5b 66 e [appendArgs [f
4d60: 69 6c 65 20 72 6f 6f 74 6e 61 6d 65 20 24 66 69 ile rootname $fi
4d70: 6c 65 4e 61 6d 65 5d 20 2e 70 64 62 5d 0d 0a 20 leName] .pdb]..
4d80: 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c }.. }...
4d90: 0d 0a 20 20 20 20 70 72 6f 63 20 74 72 79 44 65 .. proc tryDe
4da0: 6c 65 74 65 41 73 73 65 6d 62 6c 79 20 7b 20 66 leteAssembly { f
4db0: 69 6c 65 4e 61 6d 65 20 7b 70 64 62 20 74 72 75 ileName {pdb tru
4dc0: 65 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 20 74 72 e} } {.. tr
4dd0: 79 44 65 6c 65 74 65 42 69 6e 61 72 79 46 69 6c yDeleteBinaryFil
4de0: 65 20 24 66 69 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 e $fileName....
4df0: 20 20 20 20 20 69 66 20 7b 24 70 64 62 7d 20 74 if {$pdb} t
4e00: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 74 hen {.. t
4e10: 72 79 44 65 6c 65 74 65 42 69 6e 61 72 79 46 69 ryDeleteBinaryFi
4e20: 6c 65 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5b le [appendArgs [
4e30: 66 69 6c 65 20 72 6f 6f 74 6e 61 6d 65 20 24 66 file rootname $f
4e40: 69 6c 65 4e 61 6d 65 5d 20 2e 70 64 62 5d 0d 0a ileName] .pdb]..
4e50: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a }.. }..
4e60: 0c 0d 0a 20 20 20 20 70 72 6f 63 20 74 72 79 4c ... proc tryL
4e70: 6f 61 64 41 73 73 65 6d 62 6c 79 20 7b 20 66 69 oadAssembly { fi
4e80: 6c 65 4e 61 6d 65 20 7d 20 7b 0d 0a 20 20 20 20 leName } {..
4e90: 20 20 73 65 74 20 66 69 6c 65 4e 61 6d 65 20 5b set fileName [
4ea0: 67 65 74 42 69 6e 61 72 79 46 69 6c 65 4e 61 6d getBinaryFileNam
4eb0: 65 20 24 66 69 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a e $fileName]....
4ec0: 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 if {[catch
4ed0: 20 7b 73 65 74 20 61 73 73 65 6d 62 6c 79 20 5c {set assembly \
4ee0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
4ef0: 5b 6f 62 6a 65 63 74 20 6c 6f 61 64 20 2d 6c 6f [object load -lo
4f00: 61 64 74 79 70 65 20 46 69 6c 65 20 2d 61 6c 69 adtype File -ali
4f10: 61 73 20 24 66 69 6c 65 4e 61 6d 65 5d 7d 5d 20 as $fileName]}]
4f20: 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 == 0} then {..
4f30: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
4f40: 20 23 20 4e 4f 54 45 3a 20 4e 6f 77 2c 20 61 64 # NOTE: Now, ad
4f50: 64 20 74 68 65 20 6e 65 63 65 73 73 61 72 79 20 d the necessary
4f60: 74 65 73 74 20 63 6f 6e 73 74 72 61 69 6e 74 2e test constraint.
4f70: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #..
4f80: 20 20 20 20 20 61 64 64 43 6f 6e 73 74 72 61 69 addConstrai
4f90: 6e 74 20 5b 66 69 6c 65 20 72 6f 6f 74 6e 61 6d nt [file rootnam
4fa0: 65 20 5b 66 69 6c 65 20 74 61 69 6c 20 24 66 69 e [file tail $fi
4fb0: 6c 65 4e 61 6d 65 5d 5d 0d 0a 0d 0a 20 20 20 20 leName]]....
4fc0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 #.. #
4fd0: 20 4e 4f 54 45 3a 20 47 72 61 62 20 74 68 65 20 NOTE: Grab the
4fe0: 69 6d 61 67 65 20 72 75 6e 74 69 6d 65 20 76 65 image runtime ve
4ff0: 72 73 69 6f 6e 20 66 72 6f 6d 20 74 68 65 20 61 rsion from the a
5000: 73 73 65 6d 62 6c 79 20 62 65 63 61 75 73 65 0d ssembly because.
5010: 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 . #
5020: 20 73 65 76 65 72 61 6c 20 74 65 73 74 73 20 72 several tests r
5030: 65 6c 79 20 6f 6e 20 69 74 20 68 61 76 69 6e 67 ely on it having
5040: 20 61 20 63 65 72 74 61 69 6e 20 76 61 6c 75 65 a certain value
5050: 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 ... #..
5060: 20 20 20 20 20 20 61 64 64 43 6f 6e 73 74 72 61 addConstra
5070: 69 6e 74 20 5b 61 70 70 65 6e 64 41 72 67 73 20 int [appendArgs
5080: 5b 66 69 6c 65 20 74 61 69 6c 20 24 66 69 6c 65 [file tail $file
5090: 4e 61 6d 65 5d 20 5f 20 5c 0d 0a 20 20 20 20 20 Name] _ \..
50a0: 20 20 20 20 20 20 20 5b 24 61 73 73 65 6d 62 6c [$assembl
50b0: 79 20 49 6d 61 67 65 52 75 6e 74 69 6d 65 56 65 y ImageRuntimeVe
50c0: 72 73 69 6f 6e 5d 5d 0d 0a 0d 0a 20 20 20 20 20 rsion]]....
50d0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 #.. #
50e0: 4e 4f 54 45 3a 20 52 65 74 75 72 6e 20 74 68 65 NOTE: Return the
50f0: 20 66 75 6c 6c 20 70 61 74 68 20 6f 66 20 74 68 full path of th
5100: 65 20 6c 6f 61 64 65 64 20 66 69 6c 65 2e 0d 0a e loaded file...
5110: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #..
5120: 20 20 20 72 65 74 75 72 6e 20 24 66 69 6c 65 4e return $fileN
5130: 61 6d 65 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a ame.. }....
5140: 20 20 20 20 20 20 72 65 74 75 72 6e 20 22 22 0d return "".
5150: 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 . }..... p
5160: 72 6f 63 20 63 68 65 63 6b 46 6f 72 53 51 4c 69 roc checkForSQLi
5170: 74 65 20 7b 20 63 68 61 6e 6e 65 6c 20 7d 20 7b te { channel } {
5180: 0d 0a 20 20 20 20 20 20 74 70 75 74 73 20 24 63 .. tputs $c
5190: 68 61 6e 6e 65 6c 20 22 2d 2d 2d 2d 20 63 68 65 hannel "---- che
51a0: 63 6b 69 6e 67 20 66 6f 72 20 63 6f 72 65 20 53 cking for core S
51b0: 51 4c 69 74 65 20 6c 69 62 72 61 72 79 2e 2e 2e QLite library...
51c0: 20 22 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b ".... if {
51d0: 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 [catch {..
51e0: 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74 20 69 object i
51f0: 6e 76 6f 6b 65 20 2d 66 6c 61 67 73 20 2b 4e 6f nvoke -flags +No
5200: 6e 50 75 62 6c 69 63 20 53 79 73 74 65 6d 2e 44 nPublic System.D
5210: 61 74 61 2e 53 51 4c 69 74 65 2e 53 51 4c 69 74 ata.SQLite.SQLit
5220: 65 33 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 e3 \..
5230: 20 20 20 20 53 51 4c 69 74 65 56 65 72 73 69 6f SQLiteVersio
5240: 6e 7d 20 76 65 72 73 69 6f 6e 5d 20 3d 3d 20 30 n} version] == 0
5250: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {..
5260: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e #.. # N
5270: 4f 54 45 3a 20 41 74 74 65 6d 70 74 20 74 6f 20 OTE: Attempt to
5280: 71 75 65 72 79 20 74 68 65 20 46 6f 73 73 69 6c query the Fossil
5290: 20 73 6f 75 72 63 65 20 69 64 65 6e 74 69 66 69 source identifi
52a0: 65 72 20 66 6f 72 20 74 68 65 20 53 51 4c 69 74 er for the SQLit
52b0: 65 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 e.. #
52c0: 20 20 20 63 6f 72 65 20 6c 69 62 72 61 72 79 2e core library.
52d0: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #..
52e0: 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 if {[catch
52f0: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 {..
5300: 20 20 20 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 object invoke
5310: 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 6c -flags +NonPubl
5320: 69 63 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 ic System.Data.S
5330: 51 4c 69 74 65 2e 53 51 4c 69 74 65 33 20 5c 0d QLite.SQLite3 \.
5340: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
5350: 20 53 51 4c 69 74 65 53 6f 75 72 63 65 49 64 7d SQLiteSourceId}
5360: 20 73 6f 75 72 63 65 49 64 5d 7d 20 74 68 65 6e sourceId]} then
5370: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d {.. #.
5380: 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 . # NOT
5390: 45 3a 20 57 65 20 66 61 69 6c 65 64 20 74 6f 20 E: We failed to
53a0: 71 75 65 72 79 20 74 68 65 20 46 6f 73 73 69 6c query the Fossil
53b0: 20 73 6f 75 72 63 65 20 69 64 65 6e 74 69 66 69 source identifi
53c0: 65 72 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23 er... #
53d0: 0d 0a 20 20 20 20 20 20 20 20 20 20 73 65 74 20 .. set
53e0: 73 6f 75 72 63 65 49 64 20 75 6e 6b 6e 6f 77 6e sourceId unknown
53f0: 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 .. }....
5400: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
5410: 20 20 23 20 4e 4f 54 45 3a 20 59 65 73 2c 20 74 # NOTE: Yes, t
5420: 68 65 20 53 51 4c 69 74 65 20 63 6f 72 65 20 6c he SQLite core l
5430: 69 62 72 61 72 79 20 61 70 70 65 61 72 73 20 74 ibrary appears t
5440: 6f 20 62 65 20 61 76 61 69 6c 61 62 6c 65 2e 0d o be available..
5450: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #..
5460: 20 20 20 20 61 64 64 43 6f 6e 73 74 72 61 69 6e addConstrain
5470: 74 20 53 51 4c 69 74 65 0d 0a 0d 0a 20 20 20 20 t SQLite....
5480: 20 20 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e tputs $chann
5490: 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 22 el [appendArgs "
54a0: 79 65 73 20 28 22 20 24 76 65 72 73 69 6f 6e 20 yes (" $version
54b0: 22 20 22 20 24 73 6f 75 72 63 65 49 64 20 22 29 " " $sourceId ")
54c0: 5c 6e 22 5d 0d 0a 20 20 20 20 20 20 7d 20 65 6c \n"].. } el
54d0: 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 74 70 se {.. tp
54e0: 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 6e 6f 5c uts $channel no\
54f0: 6e 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 n.. }..
5500: 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 63 }..... proc c
5510: 68 65 63 6b 46 6f 72 53 51 4c 69 74 65 44 65 66 heckForSQLiteDef
5520: 69 6e 65 43 6f 6e 73 74 61 6e 74 20 7b 20 63 68 ineConstant { ch
5530: 61 6e 6e 65 6c 20 6e 61 6d 65 20 7d 20 7b 0d 0a annel name } {..
5540: 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68 61 tputs $cha
5550: 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 nnel [appendArgs
5560: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 22 2d \.. "-
5570: 2d 2d 2d 20 63 68 65 63 6b 69 6e 67 20 66 6f 72 --- checking for
5580: 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c System.Data.SQL
5590: 69 74 65 20 64 65 66 69 6e 65 20 63 6f 6e 73 74 ite define const
55a0: 61 6e 74 20 5c 22 22 20 24 6e 61 6d 65 20 5c 0d ant \"" $name \.
55b0: 0a 20 20 20 20 20 20 20 20 20 20 22 5c 22 2e 2e . "\"..
55c0: 2e 20 22 5d 0d 0a 0d 0a 20 20 20 20 20 20 69 66 . "].... if
55d0: 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 {[catch {..
55e0: 20 20 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74 object
55f0: 20 69 6e 76 6f 6b 65 20 2d 66 6c 61 67 73 20 2b invoke -flags +
5600: 4e 6f 6e 50 75 62 6c 69 63 20 53 79 73 74 65 6d NonPublic System
5610: 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 53 51 4c .Data.SQLite.SQL
5620: 69 74 65 33 20 5c 0d 0a 20 20 20 20 20 20 20 20 ite3 \..
5630: 20 20 20 20 20 20 44 65 66 69 6e 65 43 6f 6e 73 DefineCons
5640: 74 61 6e 74 73 7d 20 64 65 66 69 6e 65 43 6f 6e tants} defineCon
5650: 73 74 61 6e 74 73 5d 20 3d 3d 20 30 7d 20 74 68 stants] == 0} th
5660: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 69 66 en {.. if
5670: 20 7b 5b 6c 73 65 61 72 63 68 20 2d 65 78 61 63 {[lsearch -exac
5680: 74 20 2d 6e 6f 63 61 73 65 20 24 64 65 66 69 6e t -nocase $defin
5690: 65 43 6f 6e 73 74 61 6e 74 73 20 24 6e 61 6d 65 eConstants $name
56a0: 5d 20 21 3d 20 2d 31 7d 20 74 68 65 6e 20 7b 0d ] != -1} then {.
56b0: 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 . #..
56c0: 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 # NOTE:
56d0: 59 65 73 2c 20 74 68 69 73 20 64 65 66 69 6e 65 Yes, this define
56e0: 20 63 6f 6e 73 74 61 6e 74 20 77 61 73 20 65 6e constant was en
56f0: 61 62 6c 65 64 20 77 68 65 6e 20 74 68 65 20 6d abled when the m
5700: 61 6e 61 67 65 64 0d 0a 20 20 20 20 20 20 20 20 anaged..
5710: 20 20 23 20 20 20 20 20 20 20 61 73 73 65 6d 62 # assemb
5720: 6c 79 20 77 61 73 20 63 6f 6d 70 69 6c 65 64 2e ly was compiled.
5730: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 .. #..
5740: 20 20 20 20 20 20 20 20 20 61 64 64 43 6f 6e 73 addCons
5750: 74 72 61 69 6e 74 20 5b 61 70 70 65 6e 64 41 72 traint [appendAr
5760: 67 73 20 64 65 66 69 6e 65 43 6f 6e 73 74 61 6e gs defineConstan
5770: 74 2e 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 t.System.Data.SQ
5780: 4c 69 74 65 2e 20 24 6e 61 6d 65 5d 0d 0a 0d 0a Lite. $name]....
5790: 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 tputs
57a0: 24 63 68 61 6e 6e 65 6c 20 79 65 73 5c 6e 0d 0a $channel yes\n..
57b0: 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b } else {
57c0: 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70 75 74 .. tput
57d0: 73 20 24 63 68 61 6e 6e 65 6c 20 6e 6f 5c 6e 0d s $channel no\n.
57e0: 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 . }..
57f0: 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 } else {..
5800: 20 20 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e tputs $chann
5810: 65 6c 20 65 72 72 6f 72 5c 6e 0d 0a 20 20 20 20 el error\n..
5820: 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 }.. }.....
5830: 20 20 20 70 72 6f 63 20 67 65 74 44 61 74 65 54 proc getDateT
5840: 69 6d 65 46 6f 72 6d 61 74 20 7b 7d 20 7b 0d 0a imeFormat {} {..
5850: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 #.. #
5860: 20 4e 4f 54 45 3a 20 54 68 69 73 20 70 72 6f 63 NOTE: This proc
5870: 65 64 75 72 65 20 73 69 6d 70 6c 79 20 72 65 74 edure simply ret
5880: 75 72 6e 73 20 74 68 65 20 22 64 65 66 61 75 6c urns the "defaul
5890: 74 22 20 44 61 74 65 54 69 6d 65 20 66 6f 72 6d t" DateTime form
58a0: 61 74 20 75 73 65 64 0d 0a 20 20 20 20 20 20 23 at used.. #
58b0: 20 20 20 20 20 20 20 62 79 20 74 68 65 20 74 65 by the te
58c0: 73 74 20 73 75 69 74 65 2e 0d 0a 20 20 20 20 20 st suite...
58d0: 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 69 #.. if {[i
58e0: 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 64 61 74 nfo exists ::dat
58f0: 65 74 69 6d 65 5f 66 6f 72 6d 61 74 5d 20 26 26 etime_format] &&
5900: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 5b 73 \.. [s
5910: 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 3a 3a tring length $::
5920: 64 61 74 65 74 69 6d 65 5f 66 6f 72 6d 61 74 5d datetime_format]
5930: 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 > 0} then {..
5940: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
5950: 20 23 20 4e 4f 54 45 3a 20 52 65 74 75 72 6e 20 # NOTE: Return
5960: 74 68 65 20 6d 61 6e 75 61 6c 6c 79 20 6f 76 65 the manually ove
5970: 72 72 69 64 64 65 6e 20 76 61 6c 75 65 20 66 6f rridden value fo
5980: 72 20 74 68 65 20 44 61 74 65 54 69 6d 65 20 66 r the DateTime f
5990: 6f 72 6d 61 74 2e 0d 0a 20 20 20 20 20 20 20 20 ormat...
59a0: 23 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 #.. retur
59b0: 6e 20 24 3a 3a 64 61 74 65 74 69 6d 65 5f 66 6f n $::datetime_fo
59c0: 72 6d 61 74 0d 0a 20 20 20 20 20 20 7d 20 65 6c rmat.. } el
59d0: 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d se {.. #.
59e0: 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a . # NOTE:
59f0: 20 52 65 74 75 72 6e 20 61 6e 20 49 53 4f 38 36 Return an ISO86
5a00: 30 31 20 44 61 74 65 54 69 6d 65 20 66 6f 72 6d 01 DateTime form
5a10: 61 74 20 63 6f 6d 70 61 74 69 62 6c 65 20 77 69 at compatible wi
5a20: 74 68 20 53 51 4c 69 74 65 2c 0d 0a 20 20 20 20 th SQLite,..
5a30: 20 20 20 20 23 20 20 20 20 20 20 20 53 79 73 74 # Syst
5a40: 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2c 20 em.Data.SQLite,
5a50: 61 6e 64 20 73 75 69 74 61 62 6c 65 20 66 6f 72 and suitable for
5a60: 20 72 6f 75 6e 64 2d 74 72 69 70 70 69 6e 67 20 round-tripping
5a70: 77 69 74 68 20 74 68 65 0d 0a 20 20 20 20 20 20 with the..
5a80: 20 20 23 20 20 20 20 20 20 20 44 61 74 65 54 69 # DateTi
5a90: 6d 65 20 63 6c 61 73 73 20 6f 66 20 74 68 65 20 me class of the
5aa0: 66 72 61 6d 65 77 6f 72 6b 2e 20 20 49 66 20 74 framework. If t
5ab0: 68 69 73 20 76 61 6c 75 65 20 69 73 20 63 68 61 his value is cha
5ac0: 6e 67 65 64 2c 0d 0a 20 20 20 20 20 20 20 20 23 nged,.. #
5ad0: 20 20 20 20 20 20 20 76 61 72 69 6f 75 73 20 74 various t
5ae0: 65 73 74 73 20 6d 61 79 20 66 61 69 6c 2e 0d 0a ests may fail...
5af0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #..
5b00: 20 20 20 72 65 74 75 72 6e 20 22 79 79 79 79 2d return "yyyy-
5b10: 4d 4d 2d 64 64 20 48 48 3a 6d 6d 3a 73 73 2e 46 MM-dd HH:mm:ss.F
5b20: 46 46 46 46 46 46 4b 22 0d 0a 20 20 20 20 20 20 FFFFFFK"..
5b30: 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 }.. }.....
5b40: 20 70 72 6f 63 20 65 6e 75 6d 65 72 61 62 6c 65 proc enumerable
5b50: 54 6f 4c 69 73 74 20 7b 20 65 6e 75 6d 65 72 61 ToList { enumera
5b60: 62 6c 65 20 7d 20 7b 0d 0a 20 20 20 20 20 20 73 ble } {.. s
5b70: 65 74 20 72 65 73 75 6c 74 20 5b 6c 69 73 74 5d et result [list]
5b80: 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 73 .... if {[s
5b90: 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 65 6e tring length $en
5ba0: 75 6d 65 72 61 62 6c 65 5d 20 3d 3d 20 30 20 7c umerable] == 0 |
5bb0: 7c 20 24 65 6e 75 6d 65 72 61 62 6c 65 20 65 71 | $enumerable eq
5bc0: 20 22 6e 75 6c 6c 22 7d 20 74 68 65 6e 20 7b 0d "null"} then {.
5bd0: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 . return
5be0: 24 72 65 73 75 6c 74 0d 0a 20 20 20 20 20 20 7d $result.. }
5bf0: 0d 0a 0d 0a 20 20 20 20 20 20 6f 62 6a 65 63 74 .... object
5c00: 20 66 6f 72 65 61 63 68 20 2d 61 6c 69 61 73 20 foreach -alias
5c10: 69 74 65 6d 20 24 65 6e 75 6d 65 72 61 62 6c 65 item $enumerable
5c20: 20 7b 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b {.. if {
5c30: 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 [string length $
5c40: 69 74 65 6d 5d 20 3e 20 30 7d 20 74 68 65 6e 20 item] > 0} then
5c50: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 6c 61 70 {.. lap
5c60: 70 65 6e 64 20 72 65 73 75 6c 74 20 5b 24 69 74 pend result [$it
5c70: 65 6d 20 54 6f 53 74 72 69 6e 67 5d 0d 0a 20 20 em ToString]..
5c80: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d }.. }
5c90: 0d 0a 0d 0a 20 20 20 20 20 20 72 65 74 75 72 6e .... return
5ca0: 20 24 72 65 73 75 6c 74 0d 0a 20 20 20 20 7d 0d $result.. }.
5cb0: 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 63 61 74 .... proc cat
5cc0: 63 68 41 6e 64 52 65 74 75 72 6e 20 7b 20 73 63 chAndReturn { sc
5cd0: 72 69 70 74 20 7b 73 74 61 63 6b 54 72 61 63 65 ript {stackTrace
5ce0: 20 66 61 6c 73 65 7d 20 7b 73 74 72 69 63 74 20 false} {strict
5cf0: 74 72 75 65 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 true} } {..
5d00: 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 #.. # NOTE
5d10: 3a 20 45 76 61 6c 75 61 74 65 20 74 68 65 20 73 : Evaluate the s
5d20: 63 72 69 70 74 20 70 72 6f 76 69 64 65 64 20 62 cript provided b
5d30: 79 20 6f 75 72 20 63 61 6c 6c 65 72 20 69 6e 20 y our caller in
5d40: 74 68 65 69 72 20 63 6f 6e 74 65 78 74 2c 0d 0a their context,..
5d50: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 63 61 # ca
5d60: 70 74 75 72 69 6e 67 20 62 6f 74 68 20 74 68 65 pturing both the
5d70: 20 72 65 73 75 6c 74 20 61 6e 64 20 74 68 65 20 result and the
5d80: 72 65 74 75 72 6e 20 63 6f 64 65 2e 0d 0a 20 20 return code...
5d90: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 73 65 74 #.. set
5da0: 20 63 6f 64 65 20 5b 63 61 74 63 68 20 7b 75 70 code [catch {up
5db0: 6c 65 76 65 6c 20 31 20 24 73 63 72 69 70 74 7d level 1 $script}
5dc0: 20 72 65 73 75 6c 74 5d 0d 0a 0d 0a 20 20 20 20 result]....
5dd0: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT
5de0: 45 3a 20 44 69 64 20 74 68 65 20 73 63 72 69 70 E: Did the scrip
5df0: 74 20 70 72 6f 76 69 64 65 64 20 62 79 20 6f 75 t provided by ou
5e00: 72 20 63 61 6c 6c 65 72 20 4e 4f 54 20 72 61 69 r caller NOT rai
5e10: 73 65 20 61 6e 20 65 72 72 6f 72 3f 0d 0a 20 20 se an error?..
5e20: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 #.. if
5e30: 7b 24 73 74 72 69 63 74 20 26 26 20 24 63 6f 64 {$strict && $cod
5e40: 65 20 3d 3d 20 30 20 7c 7c 20 21 24 73 74 72 69 e == 0 || !$stri
5e50: 63 74 20 26 26 20 24 63 6f 64 65 20 21 3d 20 31 ct && $code != 1
5e60: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {..
5e70: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e #.. # N
5e80: 4f 54 45 3a 20 53 75 63 63 65 73 73 2e 20 20 52 OTE: Success. R
5e90: 65 74 75 72 6e 20 61 20 6c 69 73 74 20 77 69 74 eturn a list wit
5ea0: 68 20 74 68 65 20 72 65 74 75 72 6e 20 63 6f 64 h the return cod
5eb0: 65 20 61 6e 64 20 74 68 65 20 72 65 73 75 6c 74 e and the result
5ec0: 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 ... #..
5ed0: 20 20 20 20 20 20 72 65 74 75 72 6e 20 5b 6c 69 return [li
5ee0: 73 74 20 24 63 6f 64 65 20 24 72 65 73 75 6c 74 st $code $result
5ef0: 5d 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 69 ].. } elsei
5f00: 66 20 7b 24 73 74 61 63 6b 54 72 61 63 65 7d 20 f {$stackTrace}
5f10: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 then {..
5f20: 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT
5f30: 45 3a 20 46 61 69 6c 75 72 65 2e 20 20 4f 75 72 E: Failure. Our
5f40: 20 63 61 6c 6c 65 72 20 77 61 6e 74 73 20 61 20 caller wants a
5f50: 66 75 6c 6c 20 73 74 61 63 6b 20 74 72 61 63 65 full stack trace
5f60: 20 28 69 66 20 61 70 70 6c 69 63 61 62 6c 65 29 (if applicable)
5f70: 2c 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 ,.. #
5f80: 20 20 20 72 65 74 75 72 6e 20 61 20 6c 69 73 74 return a list
5f90: 20 77 69 74 68 20 74 68 65 20 72 65 74 75 72 6e with the return
5fa0: 20 63 6f 64 65 20 61 6e 64 20 74 68 65 20 72 65 code and the re
5fb0: 73 75 6c 74 20 76 65 72 62 61 74 69 6d 2e 0d 0a sult verbatim...
5fc0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #..
5fd0: 20 20 20 72 65 74 75 72 6e 20 5b 6c 69 73 74 20 return [list
5fe0: 24 63 6f 64 65 20 24 72 65 73 75 6c 74 5d 0d 0a $code $result]..
5ff0: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a } else {..
6000: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #..
6010: 20 20 20 23 20 4e 4f 54 45 3a 20 46 61 69 6c 75 # NOTE: Failu
6020: 72 65 2e 20 20 4f 75 72 20 63 61 6c 6c 65 72 20 re. Our caller
6030: 64 6f 65 73 20 6e 6f 74 20 77 61 6e 74 20 61 20 does not want a
6040: 66 75 6c 6c 20 73 74 61 63 6b 20 74 72 61 63 65 full stack trace
6050: 20 28 69 66 0d 0a 20 20 20 20 20 20 20 20 23 20 (if.. #
6060: 20 20 20 20 20 20 61 70 70 6c 69 63 61 62 6c 65 applicable
6070: 29 2c 20 72 65 74 75 72 6e 20 61 20 6c 69 73 74 ), return a list
6080: 20 77 69 74 68 20 74 68 65 20 72 65 74 75 72 6e with the return
6090: 20 63 6f 64 65 2c 20 74 68 65 20 65 72 72 6f 72 code, the error
60a0: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 .. #
60b0: 20 20 63 6f 64 65 20 66 6f 72 20 74 68 65 20 69 code for the i
60c0: 6e 74 65 72 70 72 65 74 65 72 2c 20 61 6e 64 20 nterpreter, and
60d0: 74 68 65 20 65 72 72 6f 72 20 6d 65 73 73 61 67 the error messag
60e0: 65 20 75 70 20 74 6f 20 74 68 65 0d 0a 20 20 20 e up to the..
60f0: 20 20 20 20 20 23 20 20 20 20 20 20 20 70 6f 69 # poi
6100: 6e 74 20 77 68 65 72 65 20 74 68 65 20 73 74 61 nt where the sta
6110: 63 6b 20 74 72 61 63 65 20 73 68 6f 75 6c 64 20 ck trace should
6120: 73 74 61 72 74 2e 0d 0a 20 20 20 20 20 20 20 20 start...
6130: 23 0d 0a 20 20 20 20 20 20 20 20 73 65 74 20 69 #.. set i
6140: 6e 64 65 78 20 5b 73 74 72 69 6e 67 20 66 69 72 ndex [string fir
6150: 73 74 20 22 20 20 20 61 74 20 22 20 24 72 65 73 st " at " $res
6160: 75 6c 74 5d 3b 20 23 20 48 41 43 4b 3a 20 52 65 ult]; # HACK: Re
6170: 6c 69 61 62 6c 65 3f 0d 0a 0d 0a 20 20 20 20 20 liable?....
6180: 20 20 20 72 65 74 75 72 6e 20 5b 6c 69 73 74 20 return [list
6190: 24 63 6f 64 65 20 24 3a 3a 65 72 72 6f 72 43 6f $code $::errorCo
61a0: 64 65 20 5b 65 78 70 72 20 7b 24 69 6e 64 65 78 de [expr {$index
61b0: 20 21 3d 20 2d 31 20 3f 20 5c 0d 0a 20 20 20 20 != -1 ? \..
61c0: 20 20 20 20 20 20 20 20 5b 73 74 72 69 6e 67 20 [string
61d0: 74 72 69 6d 20 5b 73 74 72 69 6e 67 20 72 61 6e trim [string ran
61e0: 67 65 20 24 72 65 73 75 6c 74 20 30 20 24 69 6e ge $result 0 $in
61f0: 64 65 78 5d 5d 20 3a 20 24 72 65 73 75 6c 74 7d dex]] : $result}
6200: 5d 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 ]].. }..
6210: 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 }..... proc
6220: 63 6f 6d 70 69 6c 65 43 53 68 61 72 70 57 69 74 compileCSharpWit
6230: 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 h {..
6240: 20 74 65 78 74 20 6d 65 6d 6f 72 79 20 73 79 6d text memory sym
6250: 62 6f 6c 73 20 73 74 72 69 63 74 20 72 65 73 75 bols strict resu
6260: 6c 74 73 56 61 72 4e 61 6d 65 20 65 72 72 6f 72 ltsVarName error
6270: 73 56 61 72 4e 61 6d 65 20 66 69 6c 65 4e 61 6d sVarName fileNam
6280: 65 73 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 es..
6290: 61 72 67 73 20 7d 20 7b 0d 0a 20 20 20 20 20 20 args } {..
62a0: 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a #.. # NOTE:
62b0: 20 53 69 6e 63 65 20 77 65 20 61 72 65 20 67 6f Since we are go
62c0: 69 6e 67 20 74 6f 20 75 73 65 20 74 68 69 73 20 ing to use this
62d0: 6d 65 74 68 6f 64 20 6e 61 6d 65 20 61 20 6c 6f method name a lo
62e0: 74 2c 20 61 73 73 69 67 6e 20 69 74 20 74 6f 20 t, assign it to
62f0: 61 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 a.. #
6300: 20 76 61 72 69 61 62 6c 65 20 66 69 72 73 74 2e variable first.
6310: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #..
6320: 20 73 65 74 20 61 64 64 20 52 65 66 65 72 65 6e set add Referen
6330: 63 65 64 41 73 73 65 6d 62 6c 69 65 73 2e 41 64 cedAssemblies.Ad
6340: 64 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 d.... #..
6350: 20 20 20 20 23 20 4e 4f 54 45 3a 20 43 72 65 61 # NOTE: Crea
6360: 74 65 20 74 68 65 20 62 61 73 65 20 63 6f 6d 6d te the base comm
6370: 61 6e 64 20 74 6f 20 65 76 61 6c 75 61 74 65 20 and to evaluate
6380: 61 6e 64 20 61 64 64 20 74 68 65 20 70 72 6f 70 and add the prop
6390: 65 72 74 79 20 73 65 74 74 69 6e 67 73 0d 0a 20 erty settings..
63a0: 20 20 20 20 20 23 20 20 20 20 20 20 20 74 68 61 # tha
63b0: 74 20 61 72 65 20 61 6c 6d 6f 73 74 20 61 6c 77 t are almost alw
63c0: 61 79 73 20 6e 65 65 64 65 64 20 62 79 20 6f 75 ays needed by ou
63d0: 72 20 75 6e 69 74 20 74 65 73 74 73 20 28 69 2e r unit tests (i.
63e0: 65 2e 20 74 68 65 20 53 79 73 74 65 6d 0d 0a 20 e. the System..
63f0: 20 20 20 20 20 23 20 20 20 20 20 20 20 61 6e 64 # and
6400: 20 53 79 73 74 65 6d 2e 44 61 74 61 20 61 73 73 System.Data ass
6410: 65 6d 62 6c 79 20 72 65 66 65 72 65 6e 63 65 73 embly references
6420: 29 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 )... #..
6430: 20 20 20 73 65 74 20 63 6f 6d 6d 61 6e 64 20 5b set command [
6440: 6c 69 73 74 20 63 6f 6d 70 69 6c 65 43 53 68 61 list compileCSha
6450: 72 70 20 24 74 65 78 74 20 24 6d 65 6d 6f 72 79 rp $text $memory
6460: 20 24 73 79 6d 62 6f 6c 73 20 24 73 74 72 69 63 $symbols $stric
6470: 74 20 72 65 73 75 6c 74 73 20 5c 0d 0a 20 20 20 t results \..
6480: 20 20 20 20 20 20 20 65 72 72 6f 72 73 20 24 61 errors $a
6490: 64 64 20 53 79 73 74 65 6d 2e 64 6c 6c 20 24 61 dd System.dll $a
64a0: 64 64 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 64 dd System.Data.d
64b0: 6c 6c 20 24 61 64 64 20 53 79 73 74 65 6d 2e 58 ll $add System.X
64c0: 6d 6c 2e 64 6c 6c 5d 0d 0a 0d 0a 20 20 20 20 20 ml.dll]....
64d0: 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 #.. # NOTE
64e0: 3a 20 41 64 64 20 61 6c 6c 20 74 68 65 20 70 72 : Add all the pr
64f0: 6f 76 69 64 65 64 20 66 69 6c 65 20 6e 61 6d 65 ovided file name
6500: 73 20 61 73 20 61 73 73 65 6d 62 6c 79 20 72 65 s as assembly re
6510: 66 65 72 65 6e 63 65 73 2e 0d 0a 20 20 20 20 20 ferences...
6520: 20 23 0d 0a 20 20 20 20 20 20 66 6f 72 65 61 63 #.. foreac
6530: 68 20 66 69 6c 65 4e 61 6d 65 20 24 66 69 6c 65 h fileName $file
6540: 4e 61 6d 65 73 20 7b 0d 0a 20 20 20 20 20 20 20 Names {..
6550: 20 6c 61 70 70 65 6e 64 20 63 6f 6d 6d 61 6e 64 lappend command
6560: 20 24 61 64 64 20 5b 67 65 74 42 69 6e 61 72 79 $add [getBinary
6570: 46 69 6c 65 4e 61 6d 65 20 24 66 69 6c 65 4e 61 FileName $fileNa
6580: 6d 65 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a me].. }....
6590: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 #.. #
65a0: 20 4e 4f 54 45 3a 20 41 64 64 20 74 68 65 20 65 NOTE: Add the e
65b0: 78 74 72 61 20 61 72 67 75 6d 65 6e 74 73 2c 20 xtra arguments,
65c0: 69 66 20 61 6e 79 2c 20 74 6f 20 74 68 65 20 63 if any, to the c
65d0: 6f 6d 6d 61 6e 64 20 74 6f 20 65 76 61 6c 75 61 ommand to evalua
65e0: 74 65 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 te... #..
65f0: 20 20 20 20 65 76 61 6c 20 6c 61 70 70 65 6e 64 eval lappend
6600: 20 63 6f 6d 6d 61 6e 64 20 24 61 72 67 73 0d 0a command $args..
6610: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #..
6620: 20 23 20 4e 4f 54 45 3a 20 41 6c 69 61 73 20 74 # NOTE: Alias t
6630: 68 65 20 63 6f 6d 70 69 6c 65 72 20 6c 6f 63 61 he compiler loca
6640: 6c 20 72 65 73 75 6c 74 73 20 61 6e 64 20 65 72 l results and er
6650: 72 6f 72 73 20 76 61 72 69 61 62 6c 65 73 20 74 rors variables t
6660: 6f 20 74 68 65 0d 0a 20 20 20 20 20 20 23 20 20 o the.. #
6670: 20 20 20 20 20 76 61 72 69 61 62 6c 65 20 6e 61 variable na
6680: 6d 65 73 20 70 72 6f 76 69 64 65 64 20 62 79 20 mes provided by
6690: 6f 75 72 20 63 61 6c 6c 65 72 2e 0d 0a 20 20 20 our caller...
66a0: 20 20 20 23 0d 0a 20 20 20 20 20 20 75 70 76 61 #.. upva
66b0: 72 20 31 20 24 72 65 73 75 6c 74 73 56 61 72 4e r 1 $resultsVarN
66c0: 61 6d 65 20 72 65 73 75 6c 74 73 0d 0a 20 20 20 ame results..
66d0: 20 20 20 75 70 76 61 72 20 31 20 24 65 72 72 6f upvar 1 $erro
66e0: 72 73 56 61 72 4e 61 6d 65 20 65 72 72 6f 72 73 rsVarName errors
66f0: 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 .... #..
6700: 20 20 20 23 20 4e 4f 54 45 3a 20 45 76 61 6c 75 # NOTE: Evalu
6710: 61 74 65 20 74 68 65 20 63 6f 6e 73 74 72 75 63 ate the construc
6720: 74 65 64 20 5b 63 6f 6d 70 69 6c 65 43 53 68 61 ted [compileCSha
6730: 72 70 5d 20 63 6f 6d 6d 61 6e 64 20 61 6e 64 20 rp] command and
6740: 72 65 74 75 72 6e 20 74 68 65 0d 0a 20 20 20 20 return the..
6750: 20 20 23 20 20 20 20 20 20 20 72 65 73 75 6c 74 # result
6760: 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 ... #..
6770: 20 20 65 76 61 6c 20 24 63 6f 6d 6d 61 6e 64 0d eval $command.
6780: 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 . }..... p
6790: 72 6f 63 20 69 73 4d 65 6d 6f 72 79 44 62 20 7b roc isMemoryDb {
67a0: 20 66 69 6c 65 4e 61 6d 65 20 7d 20 7b 0d 0a 20 fileName } {..
67b0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 #.. #
67c0: 4e 4f 54 45 3a 20 49 73 20 74 68 65 20 73 70 65 NOTE: Is the spe
67d0: 63 69 66 69 65 64 20 64 61 74 61 62 61 73 65 20 cified database
67e0: 66 69 6c 65 20 6e 61 6d 65 20 72 65 61 6c 6c 79 file name really
67f0: 20 61 6e 20 69 6e 2d 6d 65 6d 6f 72 79 20 64 61 an in-memory da
6800: 74 61 62 61 73 65 3f 0d 0a 20 20 20 20 20 20 23 tabase?.. #
6810: 0d 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 5b .. return [
6820: 65 78 70 72 20 7b 24 66 69 6c 65 4e 61 6d 65 20 expr {$fileName
6830: 65 71 20 22 3a 6d 65 6d 6f 72 79 3a 22 20 7c 7c eq ":memory:" ||
6840: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 5b 73 \.. [s
6850: 74 72 69 6e 67 20 72 61 6e 67 65 20 24 66 69 6c tring range $fil
6860: 65 4e 61 6d 65 20 30 20 31 32 5d 20 65 71 20 22 eName 0 12] eq "
6870: 66 69 6c 65 3a 3a 6d 65 6d 6f 72 79 3a 22 7d 5d file::memory:"}]
6880: 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 .. }.....
6890: 70 72 6f 63 20 65 78 65 63 75 74 65 53 71 6c 20 proc executeSql
68a0: 7b 20 73 71 6c 20 7b 65 78 65 63 75 74 65 20 6e { sql {execute n
68b0: 6f 6e 65 7d 20 7b 66 69 6c 65 4e 61 6d 65 20 22 one} {fileName "
68c0: 22 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 20 69 66 "} } {.. if
68d0: 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 {[string length
68e0: 20 24 66 69 6c 65 4e 61 6d 65 5d 20 3d 3d 20 30 $fileName] == 0
68f0: 7d 20 74 68 65 6e 20 7b 73 65 74 20 66 69 6c 65 } then {set file
6900: 4e 61 6d 65 20 3a 6d 65 6d 6f 72 79 3a 7d 0d 0a Name :memory:}..
6910: 20 20 20 20 20 20 73 65 74 75 70 44 62 20 24 66 setupDb $f
6920: 69 6c 65 4e 61 6d 65 20 22 22 20 22 22 20 22 22 ileName "" "" ""
6930: 20 22 22 20 22 22 20 66 61 6c 73 65 20 66 61 6c "" "" false fal
6940: 73 65 20 66 61 6c 73 65 20 66 61 6c 73 65 20 6d se false false m
6950: 65 6d 44 62 0d 0a 0d 0a 20 20 20 20 20 20 74 72 emDb.... tr
6960: 79 20 7b 0d 0a 20 20 20 20 20 20 20 20 72 65 74 y {.. ret
6970: 75 72 6e 20 5b 73 71 6c 20 65 78 65 63 75 74 65 urn [sql execute
6980: 20 2d 65 78 65 63 75 74 65 20 24 65 78 65 63 75 -execute $execu
6990: 74 65 20 24 6d 65 6d 44 62 20 24 73 71 6c 5d 0d te $memDb $sql].
69a0: 0a 20 20 20 20 20 20 7d 20 66 69 6e 61 6c 6c 79 . } finally
69b0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 63 6c 65 61 {.. clea
69c0: 6e 75 70 44 62 20 24 66 69 6c 65 4e 61 6d 65 20 nupDb $fileName
69d0: 6d 65 6d 44 62 20 66 61 6c 73 65 20 66 61 6c 73 memDb false fals
69e0: 65 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 e.. }..
69f0: 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 73 }..... proc s
6a00: 65 74 75 70 44 62 20 7b 0d 0a 20 20 20 20 20 20 etupDb {..
6a10: 20 20 20 20 20 20 66 69 6c 65 4e 61 6d 65 20 7b fileName {
6a20: 6d 6f 64 65 20 22 22 7d 20 7b 64 61 74 65 54 69 mode ""} {dateTi
6a30: 6d 65 46 6f 72 6d 61 74 20 22 22 7d 20 7b 64 61 meFormat ""} {da
6a40: 74 65 54 69 6d 65 4b 69 6e 64 20 22 22 7d 20 7b teTimeKind ""} {
6a50: 66 6c 61 67 73 20 22 22 7d 0d 0a 20 20 20 20 20 flags ""}..
6a60: 20 20 20 20 20 20 20 7b 65 78 74 72 61 20 22 22 {extra ""
6a70: 7d 20 7b 71 75 61 6c 69 66 79 20 74 72 75 65 7d } {qualify true}
6a80: 20 7b 64 65 6c 65 74 65 20 74 72 75 65 7d 20 7b {delete true} {
6a90: 75 72 69 20 66 61 6c 73 65 7d 0d 0a 20 20 20 20 uri false}..
6aa0: 20 20 20 20 20 20 20 20 7b 74 65 6d 70 6f 72 61 {tempora
6ab0: 72 79 20 74 72 75 65 7d 20 7b 76 61 72 4e 61 6d ry true} {varNam
6ac0: 65 20 64 62 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 e db} } {..
6ad0: 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 #.. # NOTE
6ae0: 3a 20 46 69 72 73 74 2c 20 73 65 65 20 69 66 20 : First, see if
6af0: 6f 75 72 20 63 61 6c 6c 65 72 20 68 61 73 20 72 our caller has r
6b00: 65 71 75 65 73 74 65 64 20 61 6e 20 69 6e 2d 6d equested an in-m
6b10: 65 6d 6f 72 79 20 64 61 74 61 62 61 73 65 2e 0d emory database..
6b20: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 . #..
6b30: 73 65 74 20 69 73 4d 65 6d 6f 72 79 20 5b 69 73 set isMemory [is
6b40: 4d 65 6d 6f 72 79 44 62 20 24 66 69 6c 65 4e 61 MemoryDb $fileNa
6b50: 6d 65 5d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a me].... #..
6b60: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 46 6f # NOTE: Fo
6b70: 72 20 6e 6f 77 2c 20 61 6c 6c 20 74 65 73 74 20 r now, all test
6b80: 64 61 74 61 62 61 73 65 73 20 75 73 65 64 20 62 databases used b
6b90: 79 20 74 68 65 20 74 65 73 74 20 73 75 69 74 65 y the test suite
6ba0: 20 61 72 65 20 70 6c 61 63 65 64 20 69 6e 74 6f are placed into
6bb0: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. #
6bc0: 74 68 65 20 74 65 6d 70 6f 72 61 72 79 20 64 69 the temporary di
6bd0: 72 65 63 74 6f 72 79 2e 20 20 45 61 63 68 20 64 rectory. Each d
6be0: 61 74 61 62 61 73 65 20 75 73 65 64 20 62 79 20 atabase used by
6bf0: 61 20 74 65 73 74 20 73 68 6f 75 6c 64 20 62 65 a test should be
6c00: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. #
6c10: 63 6c 65 61 6e 65 64 20 75 70 20 62 79 20 74 68 cleaned up by th
6c20: 61 74 20 74 65 73 74 20 75 73 69 6e 67 20 74 68 at test using th
6c30: 65 20 22 63 6c 65 61 6e 75 70 44 62 22 20 70 72 e "cleanupDb" pr
6c40: 6f 63 65 64 75 72 65 2c 20 62 65 6c 6f 77 2e 0d ocedure, below..
6c50: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 . #..
6c60: 69 66 20 7b 21 24 69 73 4d 65 6d 6f 72 79 20 26 if {!$isMemory &
6c70: 26 20 24 71 75 61 6c 69 66 79 7d 20 74 68 65 6e & $qualify} then
6c80: 20 7b 0d 0a 20 20 20 20 20 20 20 20 73 65 74 20 {.. set
6c90: 66 69 6c 65 4e 61 6d 65 20 5b 66 69 6c 65 20 6a fileName [file j
6ca0: 6f 69 6e 20 5b 67 65 74 44 61 74 61 62 61 73 65 oin [getDatabase
6cb0: 44 69 72 65 63 74 6f 72 79 5d 20 5b 66 69 6c 65 Directory] [file
6cc0: 20 74 61 69 6c 20 24 66 69 6c 65 4e 61 6d 65 5d tail $fileName]
6cd0: 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 ].. }....
6ce0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e #.. # N
6cf0: 4f 54 45 3a 20 42 79 20 64 65 66 61 75 6c 74 2c OTE: By default,
6d00: 20 64 65 6c 65 74 65 20 61 6e 79 20 70 72 65 2d delete any pre-
6d10: 65 78 69 73 74 69 6e 67 20 64 61 74 61 62 61 73 existing databas
6d20: 65 20 77 69 74 68 20 74 68 65 20 73 61 6d 65 20 e with the same
6d30: 66 69 6c 65 0d 0a 20 20 20 20 20 20 23 20 20 20 file.. #
6d40: 20 20 20 20 6e 61 6d 65 20 69 66 20 69 74 20 63 name if it c
6d50: 75 72 72 65 6e 74 6c 79 20 65 78 69 73 74 73 2e urrently exists.
6d60: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #..
6d70: 20 69 66 20 7b 21 24 69 73 4d 65 6d 6f 72 79 20 if {!$isMemory
6d80: 26 26 20 24 64 65 6c 65 74 65 20 26 26 20 5b 66 && $delete && [f
6d90: 69 6c 65 20 65 78 69 73 74 73 20 24 66 69 6c 65 ile exists $file
6da0: 4e 61 6d 65 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 Name]} then {..
6db0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
6dc0: 20 20 23 20 4e 4f 54 45 3a 20 41 74 74 65 6d 70 # NOTE: Attemp
6dd0: 74 20 74 6f 20 64 65 6c 65 74 65 20 61 6e 79 20 t to delete any
6de0: 70 72 65 2d 65 78 69 73 74 69 6e 67 20 64 61 74 pre-existing dat
6df0: 61 62 61 73 65 20 77 69 74 68 20 74 68 65 20 73 abase with the s
6e00: 61 6d 65 20 66 69 6c 65 0d 0a 20 20 20 20 20 20 ame file..
6e10: 20 20 23 20 20 20 20 20 20 20 6e 61 6d 65 2e 0d # name..
6e20: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #..
6e30: 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b if {[catch {
6e40: 66 69 6c 65 20 64 65 6c 65 74 65 20 24 66 69 6c file delete $fil
6e50: 65 4e 61 6d 65 7d 20 65 72 72 6f 72 5d 7d 20 74 eName} error]} t
6e60: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 hen {..
6e70: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 #.. #
6e80: 4e 4f 54 45 3a 20 57 65 20 73 6f 6d 65 68 6f 77 NOTE: We somehow
6e90: 20 66 61 69 6c 65 64 20 74 6f 20 64 65 6c 65 74 failed to delet
6ea0: 65 20 74 68 65 20 66 69 6c 65 2c 20 72 65 70 6f e the file, repo
6eb0: 72 74 20 77 68 79 2e 0d 0a 20 20 20 20 20 20 20 rt why...
6ec0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 #..
6ed0: 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 tputs $::test_ch
6ee0: 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 annel [appendArg
6ef0: 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 s \..
6f00: 20 20 20 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e 47 "==== WARNING
6f10: 3a 20 66 61 69 6c 65 64 20 74 6f 20 64 65 6c 65 : failed to dele
6f20: 74 65 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 te database file
6f30: 20 5c 22 22 20 24 66 69 6c 65 4e 61 6d 65 20 5c \"" $fileName \
6f40: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
6f50: 22 5c 22 20 64 75 72 69 6e 67 20 73 65 74 75 70 "\" during setup
6f60: 2c 20 65 72 72 6f 72 3a 20 22 20 5c 6e 5c 74 20 , error: " \n\t
6f70: 24 65 72 72 6f 72 20 5c 6e 5d 0d 0a 20 20 20 20 $error \n]..
6f80: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a }.. }..
6f90: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #..
6fa0: 20 23 20 4e 4f 54 45 3a 20 52 65 66 65 72 20 74 # NOTE: Refer t
6fb0: 6f 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 o the specified
6fc0: 76 61 72 69 61 62 6c 65 20 28 65 2e 67 2e 20 22 variable (e.g. "
6fd0: 64 62 22 29 20 69 6e 20 74 68 65 20 63 6f 6e 74 db") in the cont
6fe0: 65 78 74 20 6f 66 20 6f 75 72 0d 0a 20 20 20 20 ext of our..
6ff0: 20 20 23 20 20 20 20 20 20 20 63 61 6c 6c 65 72 # caller
7000: 2e 20 20 54 68 65 20 68 61 6e 64 6c 65 20 74 6f . The handle to
7010: 20 74 68 65 20 6f 70 65 6e 65 64 20 64 61 74 61 the opened data
7020: 62 61 73 65 20 77 69 6c 6c 20 62 65 20 73 74 6f base will be sto
7030: 72 65 64 20 74 68 65 72 65 2e 0d 0a 20 20 20 20 red there...
7040: 20 20 23 0d 0a 20 20 20 20 20 20 75 70 76 61 72 #.. upvar
7050: 20 31 20 24 76 61 72 4e 61 6d 65 20 64 62 0d 0a 1 $varName db..
7060: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #..
7070: 20 23 20 4e 4f 54 45 3a 20 53 74 61 72 74 20 62 # NOTE: Start b
7080: 75 69 6c 64 69 6e 67 20 74 68 65 20 63 6f 6e 6e uilding the conn
7090: 65 63 74 69 6f 6e 20 73 74 72 69 6e 67 2e 20 20 ection string.
70a0: 54 68 65 20 6f 6e 6c 79 20 72 65 71 75 69 72 65 The only require
70b0: 64 20 70 6f 72 74 69 6f 6e 0d 0a 20 20 20 20 20 d portion..
70c0: 20 23 20 20 20 20 20 20 20 6f 66 20 74 68 65 20 # of the
70d0: 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 72 69 6e connection strin
70e0: 67 20 69 73 20 74 68 65 20 64 61 74 61 20 73 6f g is the data so
70f0: 75 72 63 65 2c 20 77 68 69 63 68 20 63 6f 6e 74 urce, which cont
7100: 61 69 6e 73 20 74 68 65 0d 0a 20 20 20 20 20 20 ains the..
7110: 23 20 20 20 20 20 20 20 64 61 74 61 62 61 73 65 # database
7120: 20 66 69 6c 65 20 6e 61 6d 65 20 69 74 73 65 6c file name itsel
7130: 66 2e 20 20 49 66 20 6f 75 72 20 63 61 6c 6c 65 f. If our calle
7140: 72 20 77 61 6e 74 73 20 74 6f 20 75 73 65 20 61 r wants to use a
7150: 20 55 52 49 20 61 73 0d 0a 20 20 20 20 20 20 23 URI as.. #
7160: 20 20 20 20 20 20 20 74 68 65 20 64 61 74 61 20 the data
7170: 73 6f 75 72 63 65 2c 20 75 73 65 20 74 68 65 20 source, use the
7180: 46 75 6c 6c 55 72 69 20 63 6f 6e 6e 65 63 74 69 FullUri connecti
7190: 6f 6e 20 73 74 72 69 6e 67 20 70 72 6f 70 65 72 on string proper
71a0: 74 79 20 74 6f 0d 0a 20 20 20 20 20 20 23 20 20 ty to.. #
71b0: 20 20 20 20 20 70 72 65 76 65 6e 74 20 74 68 65 prevent the
71c0: 20 64 61 74 61 20 73 6f 75 72 63 65 20 73 74 72 data source str
71d0: 69 6e 67 20 66 72 6f 6d 20 62 65 69 6e 67 20 6d ing from being m
71e0: 61 6e 67 6c 65 64 2e 0d 0a 20 20 20 20 20 20 23 angled... #
71f0: 0d 0a 20 20 20 20 20 20 69 66 20 7b 24 75 72 69 .. if {$uri
7200: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {..
7210: 20 20 73 65 74 20 63 6f 6e 6e 65 63 74 69 6f 6e set connection
7220: 20 7b 46 75 6c 6c 55 72 69 3d 24 7b 66 69 6c 65 {FullUri=${file
7230: 4e 61 6d 65 7d 7d 0d 0a 20 20 20 20 20 20 7d 20 Name}}.. }
7240: 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 else {..
7250: 73 65 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 7b set connection {
7260: 44 61 74 61 20 53 6f 75 72 63 65 3d 24 7b 66 69 Data Source=${fi
7270: 6c 65 4e 61 6d 65 7d 7d 0d 0a 20 20 20 20 20 20 leName}}..
7280: 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 }.... #..
7290: 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 69 6e 63 # NOTE: Sinc
72a0: 65 20 74 68 69 73 20 70 72 6f 63 65 64 75 72 65 e this procedure
72b0: 20 68 61 73 20 6e 6f 20 73 70 65 63 69 61 6c 20 has no special
72c0: 6b 6e 6f 77 6c 65 64 67 65 20 6f 66 20 77 68 61 knowledge of wha
72d0: 74 20 74 68 65 20 64 65 66 61 75 6c 74 0d 0a 20 t the default..
72e0: 20 20 20 20 20 23 20 20 20 20 20 20 20 73 65 74 # set
72f0: 74 69 6e 67 20 69 73 20 66 6f 72 20 74 68 65 20 ting is for the
7300: 54 6f 46 75 6c 6c 50 61 74 68 20 63 6f 6e 6e 65 ToFullPath conne
7310: 63 74 69 6f 6e 20 73 74 72 69 6e 67 20 70 72 6f ction string pro
7320: 70 65 72 79 2c 20 61 6c 77 61 79 73 0d 0a 20 20 pery, always..
7330: 20 20 20 20 23 20 20 20 20 20 20 20 61 64 64 20 # add
7340: 74 68 65 20 76 61 6c 75 65 20 77 65 20 6b 6e 6f the value we kno
7350: 77 20 61 62 6f 75 74 20 74 6f 20 74 68 65 20 63 w about to the c
7360: 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 72 69 6e 67 onnection string
7370: 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 ... #..
7380: 20 20 61 70 70 65 6e 64 20 63 6f 6e 6e 65 63 74 append connect
7390: 69 6f 6e 20 7b 3b 54 6f 46 75 6c 6c 50 61 74 68 ion {;ToFullPath
73a0: 3d 24 7b 71 75 61 6c 69 66 79 7d 7d 0d 0a 0d 0a =${qualify}}....
73b0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 #.. #
73c0: 20 4e 4f 54 45 3a 20 49 66 20 6f 75 72 20 63 61 NOTE: If our ca
73d0: 6c 6c 65 72 20 73 70 65 63 69 66 69 65 64 20 61 ller specified a
73e0: 20 6a 6f 75 72 6e 61 6c 20 6d 6f 64 65 2c 20 61 journal mode, a
73f0: 64 64 20 74 68 65 20 6e 65 63 65 73 73 61 72 79 dd the necessary
7400: 20 70 6f 72 74 69 6f 6e 0d 0a 20 20 20 20 20 20 portion..
7410: 23 20 20 20 20 20 20 20 6f 66 20 74 68 65 20 63 # of the c
7420: 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 72 69 6e 67 onnection string
7430: 20 6e 6f 77 2e 0d 0a 20 20 20 20 20 20 23 0d 0a now... #..
7440: 20 20 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e if {[strin
7450: 67 20 6c 65 6e 67 74 68 20 24 6d 6f 64 65 5d 20 g length $mode]
7460: 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 > 0} then {..
7470: 20 20 20 20 20 61 70 70 65 6e 64 20 63 6f 6e 6e append conn
7480: 65 63 74 69 6f 6e 20 7b 3b 4a 6f 75 72 6e 61 6c ection {;Journal
7490: 20 4d 6f 64 65 3d 24 7b 6d 6f 64 65 7d 7d 0d 0a Mode=${mode}}..
74a0: 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 }....
74b0: 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 #.. # NOTE
74c0: 3a 20 49 66 20 6f 75 72 20 63 61 6c 6c 65 72 20 : If our caller
74d0: 73 70 65 63 69 66 69 65 64 20 61 20 44 61 74 65 specified a Date
74e0: 54 69 6d 65 20 66 6f 72 6d 61 74 2c 20 61 64 64 Time format, add
74f0: 20 74 68 65 20 6e 65 63 65 73 73 61 72 79 0d 0a the necessary..
7500: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 70 6f # po
7510: 72 74 69 6f 6e 20 6f 66 20 74 68 65 20 63 6f 6e rtion of the con
7520: 6e 65 63 74 69 6f 6e 20 73 74 72 69 6e 67 20 6e nection string n
7530: 6f 77 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 ow... #..
7540: 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 if {[string
7550: 6c 65 6e 67 74 68 20 24 64 61 74 65 54 69 6d 65 length $dateTime
7560: 46 6f 72 6d 61 74 5d 20 3e 20 30 7d 20 74 68 65 Format] > 0} the
7570: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 61 70 70 n {.. app
7580: 65 6e 64 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 7b end connection {
7590: 3b 44 61 74 65 54 69 6d 65 46 6f 72 6d 61 74 3d ;DateTimeFormat=
75a0: 24 7b 64 61 74 65 54 69 6d 65 46 6f 72 6d 61 74 ${dateTimeFormat
75b0: 7d 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 }}.. }....
75c0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 #.. #
75d0: 4e 4f 54 45 3a 20 49 66 20 6f 75 72 20 63 61 6c NOTE: If our cal
75e0: 6c 65 72 20 73 70 65 63 69 66 69 65 64 20 61 20 ler specified a
75f0: 44 61 74 65 54 69 6d 65 4b 69 6e 64 2c 20 61 64 DateTimeKind, ad
7600: 64 20 74 68 65 20 6e 65 63 65 73 73 61 72 79 20 d the necessary
7610: 70 6f 72 74 69 6f 6e 0d 0a 20 20 20 20 20 20 23 portion.. #
7620: 20 20 20 20 20 20 20 6f 66 20 74 68 65 20 63 6f of the co
7630: 6e 6e 65 63 74 69 6f 6e 20 73 74 72 69 6e 67 20 nnection string
7640: 6e 6f 77 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 now... #..
7650: 20 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 if {[string
7660: 20 6c 65 6e 67 74 68 20 24 64 61 74 65 54 69 6d length $dateTim
7670: 65 4b 69 6e 64 5d 20 3e 20 30 7d 20 74 68 65 6e eKind] > 0} then
7680: 20 7b 0d 0a 20 20 20 20 20 20 20 20 61 70 70 65 {.. appe
7690: 6e 64 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 7b 3b nd connection {;
76a0: 44 61 74 65 54 69 6d 65 4b 69 6e 64 3d 24 7b 64 DateTimeKind=${d
76b0: 61 74 65 54 69 6d 65 4b 69 6e 64 7d 7d 0d 0a 20 ateTimeKind}}..
76c0: 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 }....
76d0: 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a #.. # NOTE:
76e0: 20 49 66 20 74 68 65 72 65 20 61 72 65 20 61 6e If there are an
76f0: 79 20 67 6c 6f 62 61 6c 20 28 70 65 72 20 74 65 y global (per te
7700: 73 74 20 72 75 6e 29 20 63 6f 6e 6e 65 63 74 69 st run) connecti
7710: 6f 6e 20 66 6c 61 67 73 20 63 75 72 72 65 6e 74 on flags current
7720: 6c 79 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 ly.. #
7730: 20 20 73 65 74 2c 20 75 73 65 20 74 68 65 6d 20 set, use them
7740: 6e 6f 77 20 28 69 2e 65 2e 20 62 79 20 63 6f 6d now (i.e. by com
7750: 62 69 6e 69 6e 67 20 74 68 65 6d 20 77 69 74 68 bining them with
7760: 20 74 68 65 20 6f 6e 65 73 20 66 6f 72 20 74 68 the ones for th
7770: 69 73 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 is.. #
7780: 20 20 63 6f 6e 6e 65 63 74 69 6f 6e 29 2e 0d 0a connection)...
7790: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 #.. i
77a0: 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 f {[info exists
77b0: 3a 3a 63 6f 6e 6e 65 63 74 69 6f 6e 5f 66 6c 61 ::connection_fla
77c0: 67 73 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20 20 gs] && \..
77d0: 20 20 20 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67 [string leng
77e0: 74 68 20 24 3a 3a 63 6f 6e 6e 65 63 74 69 6f 6e th $::connection
77f0: 5f 66 6c 61 67 73 5d 20 3e 20 30 7d 20 74 68 65 _flags] > 0} the
7800: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a n {.. #..
7810: 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 # NOTE:
7820: 53 68 6f 77 20 28 61 6e 64 20 6c 6f 67 29 20 74 Show (and log) t
7830: 68 61 74 20 77 65 20 64 65 74 65 63 74 65 64 20 hat we detected
7840: 73 6f 6d 65 20 67 6c 6f 62 61 6c 20 63 6f 6e 6e some global conn
7850: 65 63 74 69 6f 6e 20 66 6c 61 67 73 2e 0d 0a 20 ection flags...
7860: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
7870: 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f tputs $::test_
7880: 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 channel [appendA
7890: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 rgs \..
78a0: 20 20 20 22 2d 2d 2d 2d 20 67 6c 6f 62 61 6c 20 "---- global
78b0: 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 6c 61 67 73 connection flags
78c0: 20 64 65 74 65 63 74 65 64 3a 20 22 20 24 3a 3a detected: " $::
78d0: 63 6f 6e 6e 65 63 74 69 6f 6e 5f 66 6c 61 67 73 connection_flags
78e0: 20 5c 6e 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 \n]....
78f0: 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT
7900: 45 3a 20 43 6f 6d 62 69 6e 65 20 61 6e 64 2f 6f E: Combine and/o
7910: 72 20 72 65 70 6c 61 63 65 20 74 68 65 20 63 6f r replace the co
7920: 6e 6e 65 63 74 69 6f 6e 20 66 6c 61 67 73 20 61 nnection flags a
7930: 6e 64 20 74 68 65 6e 20 73 68 6f 77 20 74 68 65 nd then show the
7940: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 .. #
7950: 20 20 6e 65 77 20 76 61 6c 75 65 2e 0d 0a 20 20 new value...
7960: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
7970: 20 73 65 74 20 66 6c 61 67 73 20 5b 63 6f 6d 62 set flags [comb
7980: 69 6e 65 46 6c 61 67 73 20 24 66 6c 61 67 73 20 ineFlags $flags
7990: 24 3a 3a 63 6f 6e 6e 65 63 74 69 6f 6e 5f 66 6c $::connection_fl
79a0: 61 67 73 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 ags]....
79b0: 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 tputs $::test_ch
79c0: 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 annel [appendArg
79d0: 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 s \..
79e0: 20 22 2d 2d 2d 2d 20 63 6f 6d 62 69 6e 65 64 20 "---- combined
79f0: 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 6c 61 67 73 connection flags
7a00: 20 61 72 65 3a 20 22 20 24 66 6c 61 67 73 20 5c are: " $flags \
7a10: 6e 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 n].. }....
7a20: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 #.. #
7a30: 4e 4f 54 45 3a 20 49 66 20 6f 75 72 20 63 61 6c NOTE: If our cal
7a40: 6c 65 72 20 73 70 65 63 69 66 69 65 64 20 61 20 ler specified a
7a50: 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e SQLiteConnection
7a60: 46 6c 61 67 73 2c 20 61 64 64 20 74 68 65 20 6e Flags, add the n
7a70: 65 63 65 73 73 61 72 79 0d 0a 20 20 20 20 20 20 ecessary..
7a80: 23 20 20 20 20 20 20 20 70 6f 72 74 69 6f 6e 20 # portion
7a90: 6f 66 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f of the connectio
7aa0: 6e 20 73 74 72 69 6e 67 20 6e 6f 77 2e 0d 0a 20 n string now...
7ab0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 #.. if
7ac0: 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 {[string length
7ad0: 20 24 66 6c 61 67 73 5d 20 3e 20 30 7d 20 74 68 $flags] > 0} th
7ae0: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 61 70 en {.. ap
7af0: 70 65 6e 64 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 pend connection
7b00: 7b 3b 46 6c 61 67 73 3d 24 7b 66 6c 61 67 73 7d {;Flags=${flags}
7b10: 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 }.. }....
7b20: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e #.. # N
7b30: 4f 54 45 3a 20 49 66 20 6f 75 72 20 63 61 6c 6c OTE: If our call
7b40: 65 72 20 73 70 65 63 69 66 69 65 64 20 61 6e 20 er specified an
7b50: 65 78 74 72 61 20 70 61 79 6c 6f 61 64 20 74 6f extra payload to
7b60: 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 the connection
7b70: 73 74 72 69 6e 67 2c 0d 0a 20 20 20 20 20 20 23 string,.. #
7b80: 20 20 20 20 20 20 20 61 70 70 65 6e 64 20 69 74 append it
7b90: 20 6e 6f 77 2e 0d 0a 20 20 20 20 20 20 23 0d 0a now... #..
7ba0: 20 20 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e if {[strin
7bb0: 67 20 6c 65 6e 67 74 68 20 24 65 78 74 72 61 5d g length $extra]
7bc0: 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 > 0} then {..
7bd0: 20 20 20 20 20 20 61 70 70 65 6e 64 20 63 6f 6e append con
7be0: 6e 65 63 74 69 6f 6e 20 5c 3b 20 24 65 78 74 72 nection \; $extr
7bf0: 61 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 a.. }....
7c00: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e #.. # N
7c10: 4f 54 45 3a 20 4f 70 65 6e 20 74 68 65 20 64 61 OTE: Open the da
7c20: 74 61 62 61 73 65 20 63 6f 6e 6e 65 63 74 69 6f tabase connectio
7c30: 6e 20 6e 6f 77 2c 20 70 6c 61 63 69 6e 67 20 74 n now, placing t
7c40: 68 65 20 6f 70 61 71 75 65 20 68 61 6e 64 6c 65 he opaque handle
7c50: 20 76 61 6c 75 65 0d 0a 20 20 20 20 20 20 23 20 value.. #
7c60: 20 20 20 20 20 20 69 6e 74 6f 20 74 68 65 20 76 into the v
7c70: 61 72 69 61 62 6c 65 20 73 70 65 63 69 66 69 65 ariable specifie
7c80: 64 20 62 79 20 6f 75 72 20 63 61 6c 6c 65 72 2e d by our caller.
7c90: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #..
7ca0: 20 73 65 74 20 64 62 20 5b 73 71 6c 20 6f 70 65 set db [sql ope
7cb0: 6e 20 2d 74 79 70 65 20 53 51 4c 69 74 65 20 5b n -type SQLite [
7cc0: 73 75 62 73 74 20 24 63 6f 6e 6e 65 63 74 69 6f subst $connectio
7cd0: 6e 5d 5d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a n]].... #..
7ce0: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 43 6f # NOTE: Co
7cf0: 6e 66 69 67 75 72 65 20 74 68 65 20 74 65 6d 70 nfigure the temp
7d00: 6f 72 61 72 79 20 64 69 72 65 63 74 6f 72 79 20 orary directory
7d10: 66 6f 72 20 74 68 65 20 6e 65 77 6c 79 20 6f 70 for the newly op
7d20: 65 6e 65 64 20 64 61 74 61 62 61 73 65 0d 0a 20 ened database..
7d30: 20 20 20 20 20 23 20 20 20 20 20 20 20 63 6f 6e # con
7d40: 6e 65 63 74 69 6f 6e 20 6e 6f 77 20 75 6e 6c 65 nection now unle
7d50: 73 73 20 6f 75 72 20 63 61 6c 6c 65 72 20 66 6f ss our caller fo
7d60: 72 62 69 64 73 20 69 74 2e 0d 0a 20 20 20 20 20 rbids it...
7d70: 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 24 74 #.. if {$t
7d80: 65 6d 70 6f 72 61 72 79 20 26 26 20 21 5b 69 6e emporary && ![in
7d90: 66 6f 20 65 78 69 73 74 73 20 3a 3a 6e 6f 28 73 fo exists ::no(s
7da0: 65 74 54 65 6d 70 6f 72 61 72 79 44 69 72 65 63 etTemporaryDirec
7db0: 74 6f 72 79 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a tory)]} then {..
7dc0: 20 20 20 20 20 20 20 20 73 71 6c 20 65 78 65 63 sql exec
7dd0: 75 74 65 20 24 64 62 20 5b 61 70 70 65 6e 64 41 ute $db [appendA
7de0: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 rgs \..
7df0: 20 20 20 22 50 52 41 47 4d 41 20 74 65 6d 70 5f "PRAGMA temp_
7e00: 73 74 6f 72 65 5f 64 69 72 65 63 74 6f 72 79 20 store_directory
7e10: 3d 20 5c 22 22 20 5b 67 65 74 54 65 6d 70 6f 72 = \"" [getTempor
7e20: 61 72 79 44 69 72 65 63 74 6f 72 79 5d 20 5c 22 aryDirectory] \"
7e30: 5c 3b 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a \;].. }....
7e40: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 #.. #
7e50: 20 4e 4f 54 45 3a 20 41 6c 77 61 79 73 20 72 65 NOTE: Always re
7e60: 74 75 72 6e 20 74 68 65 20 63 6f 6e 6e 65 63 74 turn the connect
7e70: 69 6f 6e 20 68 61 6e 64 6c 65 20 75 70 6f 6e 20 ion handle upon
7e80: 73 75 63 63 65 73 73 2e 0d 0a 20 20 20 20 20 20 success...
7e90: 23 0d 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 #.. return
7ea0: 24 64 62 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 $db.. }.....
7eb0: 20 20 20 70 72 6f 63 20 67 65 74 44 62 43 6f 6e proc getDbCon
7ec0: 6e 65 63 74 69 6f 6e 20 7b 20 7b 76 61 72 4e 61 nection { {varNa
7ed0: 6d 65 20 64 62 7d 20 7d 20 7b 0d 0a 20 20 20 20 me db} } {..
7ee0: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT
7ef0: 45 3a 20 52 65 66 65 72 20 74 6f 20 74 68 65 20 E: Refer to the
7f00: 73 70 65 63 69 66 69 65 64 20 76 61 72 69 61 62 specified variab
7f10: 6c 65 20 28 65 2e 67 2e 20 22 64 62 22 29 20 69 le (e.g. "db") i
7f20: 6e 20 74 68 65 20 63 6f 6e 74 65 78 74 20 6f 66 n the context of
7f30: 20 6f 75 72 0d 0a 20 20 20 20 20 20 23 20 20 20 our.. #
7f40: 20 20 20 20 63 61 6c 6c 65 72 2e 20 20 54 68 65 caller. The
7f50: 20 68 61 6e 64 6c 65 20 74 6f 20 74 68 65 20 64 handle to the d
7f60: 61 74 61 62 61 73 65 20 70 72 65 76 69 6f 75 73 atabase previous
7f70: 6c 79 20 6f 70 65 6e 65 64 20 62 79 20 5b 73 65 ly opened by [se
7f80: 74 75 70 44 62 5d 0d 0a 20 20 20 20 20 20 23 20 tupDb].. #
7f90: 20 20 20 20 20 20 73 68 6f 75 6c 64 20 62 65 20 should be
7fa0: 73 74 6f 72 65 64 20 74 68 65 72 65 2e 0d 0a 20 stored there...
7fb0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 75 70 #.. up
7fc0: 76 61 72 20 31 20 24 76 61 72 4e 61 6d 65 20 64 var 1 $varName d
7fd0: 62 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 b.... #..
7fe0: 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 69 73 # NOTE: This
7ff0: 20 72 65 74 75 72 6e 73 20 74 68 65 20 41 44 4f returns the ADO
8000: 2e 4e 45 54 20 49 44 62 43 6f 6e 6e 65 63 74 69 .NET IDbConnecti
8010: 6f 6e 20 6f 62 6a 65 63 74 20 69 6e 73 74 61 6e on object instan
8020: 63 65 20 66 6f 72 20 74 68 65 0d 0a 20 20 20 20 ce for the..
8030: 20 20 23 20 20 20 20 20 20 20 73 70 65 63 69 66 # specif
8040: 69 65 64 20 64 61 74 61 62 73 65 20 68 61 6e 64 ied databse hand
8050: 6c 65 2e 20 20 53 69 6e 63 65 20 67 65 74 74 69 le. Since getti
8060: 6e 67 20 74 68 69 73 20 6f 62 6a 65 63 74 20 72 ng this object r
8070: 65 6c 69 65 73 20 75 70 6f 6e 0d 0a 20 20 20 20 elies upon..
8080: 20 20 23 20 20 20 20 20 20 20 45 61 67 6c 65 20 # Eagle
8090: 69 6e 74 65 72 6e 61 6c 73 2c 20 67 72 65 61 74 internals, great
80a0: 20 63 61 72 65 20 73 68 6f 75 6c 64 20 62 65 20 care should be
80b0: 74 61 6b 65 6e 20 74 6f 20 61 76 6f 69 64 20 64 taken to avoid d
80c0: 69 73 70 6f 73 69 6e 67 20 6f 66 0d 0a 20 20 20 isposing of..
80d0: 20 20 20 23 20 20 20 20 20 20 20 74 68 69 73 20 # this
80e0: 6f 62 6a 65 63 74 20 6f 72 20 6f 74 68 65 72 77 object or otherw
80f0: 69 73 65 20 70 75 74 74 69 6e 67 20 69 74 20 69 ise putting it i
8100: 6e 74 6f 20 61 6e 20 69 6e 76 61 6c 69 64 20 73 nto an invalid s
8110: 74 61 74 65 2e 0d 0a 20 20 20 20 20 20 23 0d 0a tate... #..
8120: 20 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 if {[info
8130: 65 78 69 73 74 73 20 64 62 5d 7d 20 74 68 65 6e exists db]} then
8140: 20 7b 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b {.. if {
8150: 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 [catch {..
8160: 20 20 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74 object
8170: 20 69 6e 76 6f 6b 65 20 2d 66 6c 61 67 73 20 2b invoke -flags +
8180: 4e 6f 6e 50 75 62 6c 69 63 20 2d 6f 62 6a 65 63 NonPublic -objec
8190: 74 66 6c 61 67 73 20 2b 4e 6f 44 69 73 70 6f 73 tflags +NoDispos
81a0: 65 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 e \..
81b0: 20 20 20 20 20 2d 61 6c 69 61 73 20 49 6e 74 65 -alias Inte
81c0: 72 70 72 65 74 65 72 2e 47 65 74 41 63 74 69 76 rpreter.GetActiv
81d0: 65 2e 63 6f 6e 6e 65 63 74 69 6f 6e 73 20 49 74 e.connections It
81e0: 65 6d 20 24 64 62 7d 20 5c 0d 0a 20 20 20 20 20 em $db} \..
81f0: 20 20 20 20 20 20 20 20 20 20 20 72 65 73 75 6c resul
8200: 74 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d t] == 0} then {.
8210: 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 . #..
8220: 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 # NOTE:
8230: 53 75 63 63 65 73 73 2c 20 72 65 74 75 72 6e 20 Success, return
8240: 74 68 65 20 6f 70 61 71 75 65 20 6f 62 6a 65 63 the opaque objec
8250: 74 20 68 61 6e 64 6c 65 2e 0d 0a 20 20 20 20 20 t handle...
8260: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #..
8270: 20 20 72 65 74 75 72 6e 20 24 72 65 73 75 6c 74 return $result
8280: 0d 0a 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 .. } else
8290: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d {.. #.
82a0: 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 . # NOT
82b0: 45 3a 20 46 61 69 6c 75 72 65 2c 20 72 65 70 6f E: Failure, repo
82c0: 72 74 20 77 68 79 2e 0d 0a 20 20 20 20 20 20 20 rt why...
82d0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 #..
82e0: 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 tputs $::test_ch
82f0: 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 annel [appendArg
8300: 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 s \..
8310: 20 20 20 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e 47 "==== WARNING
8320: 3a 20 66 61 69 6c 65 64 20 74 6f 20 67 65 74 20 : failed to get
8330: 63 6f 6e 6e 65 63 74 69 6f 6e 20 68 61 6e 64 6c connection handl
8340: 65 20 66 6f 72 20 64 61 74 61 62 61 73 65 20 5c e for database \
8350: 22 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 "" \..
8360: 20 20 20 20 24 64 62 20 22 5c 22 2c 20 65 72 72 $db "\", err
8370: 6f 72 3a 20 22 20 5c 6e 5c 74 20 24 72 65 73 75 or: " \n\t $resu
8380: 6c 74 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 lt \n]..
8390: 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 }.. }..
83a0: 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 66 }..... proc f
83b0: 72 65 65 44 62 43 6f 6e 6e 65 63 74 69 6f 6e 20 reeDbConnection
83c0: 7b 20 7b 76 61 72 4e 61 6d 65 20 63 6f 6e 6e 65 { {varName conne
83d0: 63 74 69 6f 6e 7d 20 7d 20 7b 0d 0a 20 20 20 20 ction} } {..
83e0: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT
83f0: 45 3a 20 52 65 66 65 72 20 74 6f 20 74 68 65 20 E: Refer to the
8400: 73 70 65 63 69 66 69 65 64 20 76 61 72 69 61 62 specified variab
8410: 6c 65 20 28 65 2e 67 2e 20 22 63 6f 6e 6e 65 63 le (e.g. "connec
8420: 74 69 6f 6e 22 29 20 69 6e 20 74 68 65 20 63 6f tion") in the co
8430: 6e 74 65 78 74 0d 0a 20 20 20 20 20 20 23 20 20 ntext.. #
8440: 20 20 20 20 20 6f 66 20 6f 75 72 20 63 61 6c 6c of our call
8450: 65 72 2e 20 20 54 68 65 20 6f 70 61 71 75 65 20 er. The opaque
8460: 6f 62 6a 65 63 74 20 68 61 6e 64 6c 65 20 66 6f object handle fo
8470: 72 20 61 6e 20 41 44 4f 2e 4e 45 54 20 63 6f 6e r an ADO.NET con
8480: 6e 65 63 74 69 6f 6e 0d 0a 20 20 20 20 20 20 23 nection.. #
8490: 20 20 20 20 20 20 20 70 72 65 76 69 6f 75 73 6c previousl
84a0: 79 20 72 65 74 75 72 6e 65 64 20 62 79 20 5b 67 y returned by [g
84b0: 65 74 44 62 43 6f 6e 6e 65 63 74 69 6f 6e 5d 20 etDbConnection]
84c0: 73 68 6f 75 6c 64 20 62 65 20 73 74 6f 72 65 64 should be stored
84d0: 20 74 68 65 72 65 2e 0d 0a 20 20 20 20 20 20 23 there... #
84e0: 0d 0a 20 20 20 20 20 20 75 70 76 61 72 20 31 20 .. upvar 1
84f0: 24 76 61 72 4e 61 6d 65 20 63 6f 6e 6e 65 63 74 $varName connect
8500: 69 6f 6e 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a ion.... #..
8510: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 41 74 # NOTE: At
8520: 74 65 6d 70 74 20 74 6f 20 72 65 6d 6f 76 65 20 tempt to remove
8530: 74 68 65 20 6f 70 61 71 75 65 20 6f 62 6a 65 63 the opaque objec
8540: 74 20 68 61 6e 64 6c 65 20 66 72 6f 6d 20 74 68 t handle from th
8550: 65 20 69 6e 74 65 72 70 72 65 74 65 72 0d 0a 20 e interpreter..
8560: 20 20 20 20 20 23 20 20 20 20 20 20 20 6e 6f 77 # now
8570: 2e 20 20 54 68 69 73 20 5b 6f 62 6a 65 63 74 20 . This [object
8580: 64 69 73 70 6f 73 65 5d 20 63 61 6c 6c 20 77 69 dispose] call wi
8590: 6c 6c 20 6e 6f 74 20 61 63 74 75 61 6c 6c 79 20 ll not actually
85a0: 64 69 73 70 6f 73 65 20 6f 66 20 74 68 65 0d 0a dispose of the..
85b0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 75 6e # un
85c0: 64 65 72 6c 79 69 6e 67 20 6f 62 6a 65 63 74 20 derlying object
85d0: 62 65 63 61 75 73 65 20 74 68 65 20 2b 4e 6f 44 because the +NoD
85e0: 69 73 70 6f 73 65 20 66 6c 61 67 20 77 61 73 20 ispose flag was
85f0: 73 65 74 20 6f 6e 20 69 74 20 64 75 72 69 6e 67 set on it during
8600: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. #
8610: 63 72 65 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 creation of the
8620: 6f 70 61 71 75 65 20 6f 62 6a 65 63 74 20 68 61 opaque object ha
8630: 6e 64 6c 65 2e 0d 0a 20 20 20 20 20 20 23 0d 0a ndle... #..
8640: 20 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 if {[info
8650: 65 78 69 73 74 73 20 63 6f 6e 6e 65 63 74 69 6f exists connectio
8660: 6e 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 n] && \..
8670: 20 20 20 5b 63 61 74 63 68 20 7b 6f 62 6a 65 63 [catch {objec
8680: 74 20 64 69 73 70 6f 73 65 20 24 63 6f 6e 6e 65 t dispose $conne
8690: 63 74 69 6f 6e 7d 20 65 72 72 6f 72 5d 7d 20 74 ction} error]} t
86a0: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 hen {.. #
86b0: 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 .. # NOTE
86c0: 3a 20 57 65 20 73 6f 6d 65 68 6f 77 20 66 61 69 : We somehow fai
86d0: 6c 65 64 20 74 6f 20 72 65 6d 6f 76 65 20 74 68 led to remove th
86e0: 65 20 68 61 6e 64 6c 65 2c 20 72 65 70 6f 72 74 e handle, report
86f0: 20 77 68 79 2e 0d 0a 20 20 20 20 20 20 20 20 23 why... #
8700: 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20 .. tputs
8710: 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 $::test_channel
8720: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 [appendArgs \..
8730: 20 20 20 20 20 20 20 20 20 20 20 22 3d 3d 3d 3d "====
8740: 20 57 41 52 4e 49 4e 47 3a 20 66 61 69 6c 65 64 WARNING: failed
8750: 20 74 6f 20 72 65 6d 6f 76 65 20 63 6f 6e 6e 65 to remove conne
8760: 63 74 69 6f 6e 20 68 61 6e 64 6c 65 20 5c 22 22 ction handle \""
8770: 20 24 63 6f 6e 6e 65 63 74 69 6f 6e 20 5c 0d 0a $connection \..
8780: 20 20 20 20 20 20 20 20 20 20 20 20 22 5c 22 2c "\",
8790: 20 65 72 72 6f 72 3a 20 22 20 5c 6e 5c 74 20 24 error: " \n\t $
87a0: 65 72 72 6f 72 20 5c 6e 5d 0d 0a 20 20 20 20 20 error \n]..
87b0: 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 }.. }.....
87c0: 20 20 70 72 6f 63 20 63 6c 65 61 6e 75 70 44 62 proc cleanupDb
87d0: 20 7b 20 66 69 6c 65 4e 61 6d 65 20 7b 76 61 72 { fileName {var
87e0: 4e 61 6d 65 20 64 62 7d 20 7b 63 6f 6c 6c 65 63 Name db} {collec
87f0: 74 20 74 72 75 65 7d 20 7b 71 75 61 6c 69 66 79 t true} {qualify
8800: 20 74 72 75 65 7d 0d 0a 20 20 20 20 20 20 20 20 true}..
8810: 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 64 65 {de
8820: 6c 65 74 65 20 74 72 75 65 7d 20 7d 20 7b 0d 0a lete true} } {..
8830: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 #.. #
8840: 20 4e 4f 54 45 3a 20 41 74 74 65 6d 70 74 20 74 NOTE: Attempt t
8850: 6f 20 66 6f 72 63 65 20 61 6c 6c 20 70 65 6e 64 o force all pend
8860: 69 6e 67 20 22 67 61 72 62 61 67 65 22 20 6f 62 ing "garbage" ob
8870: 6a 65 63 74 73 20 74 6f 20 62 65 20 63 6f 6c 6c jects to be coll
8880: 65 63 74 65 64 2c 0d 0a 20 20 20 20 20 20 23 20 ected,.. #
8890: 20 20 20 20 20 20 69 6e 63 6c 75 64 69 6e 67 20 including
88a0: 53 51 4c 69 74 65 20 73 74 61 74 65 6d 65 6e 74 SQLite statement
88b0: 73 20 61 6e 64 20 62 61 63 6b 75 70 20 6f 62 6a s and backup obj
88c0: 65 63 74 73 3b 20 74 68 69 73 20 73 68 6f 75 6c ects; this shoul
88d0: 64 20 61 6c 6c 6f 77 0d 0a 20 20 20 20 20 20 23 d allow.. #
88e0: 20 20 20 20 20 20 20 74 68 65 20 75 6e 64 65 72 the under
88f0: 6c 79 69 6e 67 20 64 61 74 61 62 61 73 65 20 66 lying database f
8900: 69 6c 65 20 74 6f 20 62 65 20 64 65 6c 65 74 65 ile to be delete
8910: 64 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 d... #..
8920: 20 20 20 69 66 20 7b 24 63 6f 6c 6c 65 63 74 7d if {$collect}
8930: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 then {..
8940: 20 63 6f 6c 6c 65 63 74 47 61 72 62 61 67 65 20 collectGarbage
8950: 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 0d $::test_channel.
8960: 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 . }....
8970: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT
8980: 45 3a 20 52 65 66 65 72 20 74 6f 20 74 68 65 20 E: Refer to the
8990: 73 70 65 63 69 66 69 65 64 20 76 61 72 69 61 62 specified variab
89a0: 6c 65 20 28 65 2e 67 2e 20 22 64 62 22 29 20 69 le (e.g. "db") i
89b0: 6e 20 74 68 65 20 63 6f 6e 74 65 78 74 20 6f 66 n the context of
89c0: 20 6f 75 72 0d 0a 20 20 20 20 20 20 23 20 20 20 our.. #
89d0: 20 20 20 20 63 61 6c 6c 65 72 2e 20 20 54 68 65 caller. The
89e0: 20 68 61 6e 64 6c 65 20 74 6f 20 74 68 65 20 64 handle to the d
89f0: 61 74 61 62 61 73 65 20 70 72 65 76 69 6f 75 73 atabase previous
8a00: 6c 79 20 6f 70 65 6e 65 64 20 62 79 20 5b 73 65 ly opened by [se
8a10: 74 75 70 44 62 5d 0d 0a 20 20 20 20 20 20 23 20 tupDb].. #
8a20: 20 20 20 20 20 20 73 68 6f 75 6c 64 20 62 65 20 should be
8a30: 73 74 6f 72 65 64 20 74 68 65 72 65 2e 0d 0a 20 stored there...
8a40: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 75 70 #.. up
8a50: 76 61 72 20 31 20 24 76 61 72 4e 61 6d 65 20 64 var 1 $varName d
8a60: 62 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 b.... #..
8a70: 20 20 20 20 23 20 4e 4f 54 45 3a 20 43 6c 6f 73 # NOTE: Clos
8a80: 65 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e e the connection
8a90: 20 74 6f 20 74 68 65 20 64 61 74 61 62 61 73 65 to the database
8aa0: 20 6e 6f 77 2e 20 20 54 68 69 73 20 73 68 6f 75 now. This shou
8ab0: 6c 64 20 61 6c 6c 6f 77 20 75 73 20 74 6f 0d 0a ld allow us to..
8ac0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 64 65 # de
8ad0: 6c 65 74 65 20 74 68 65 20 75 6e 64 65 72 6c 79 lete the underly
8ae0: 69 6e 67 20 64 61 74 61 62 61 73 65 20 66 69 6c ing database fil
8af0: 65 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 e... #..
8b00: 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 if {[info exi
8b10: 73 74 73 20 64 62 5d 20 26 26 20 5b 63 61 74 63 sts db] && [catc
8b20: 68 20 7b 73 71 6c 20 63 6c 6f 73 65 20 24 64 62 h {sql close $db
8b30: 7d 20 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20 7b } error]} then {
8b40: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #..
8b50: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 57 65 20 # NOTE: We
8b60: 73 6f 6d 65 68 6f 77 20 66 61 69 6c 65 64 20 74 somehow failed t
8b70: 6f 20 63 6c 6f 73 65 20 74 68 65 20 64 61 74 61 o close the data
8b80: 62 61 73 65 2c 20 72 65 70 6f 72 74 20 77 68 79 base, report why
8b90: 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 ... #..
8ba0: 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 tputs $::t
8bb0: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 est_channel [app
8bc0: 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 endArgs \..
8bd0: 20 20 20 20 20 20 20 22 3d 3d 3d 3d 20 57 41 52 "==== WAR
8be0: 4e 49 4e 47 3a 20 66 61 69 6c 65 64 20 74 6f 20 NING: failed to
8bf0: 63 6c 6f 73 65 20 64 61 74 61 62 61 73 65 20 5c close database \
8c00: 22 22 20 24 64 62 20 22 5c 22 2c 20 65 72 72 6f "" $db "\", erro
8c10: 72 3a 20 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 r: " \..
8c20: 20 20 20 20 5c 6e 5c 74 20 24 65 72 72 6f 72 20 \n\t $error
8c30: 5c 6e 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a \n].. }....
8c40: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 #.. #
8c50: 20 4e 4f 54 45 3a 20 46 69 72 73 74 2c 20 73 65 NOTE: First, se
8c60: 65 20 69 66 20 6f 75 72 20 63 61 6c 6c 65 72 20 e if our caller
8c70: 68 61 73 20 72 65 71 75 65 73 74 65 64 20 61 6e has requested an
8c80: 20 69 6e 2d 6d 65 6d 6f 72 79 20 64 61 74 61 62 in-memory datab
8c90: 61 73 65 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 ase... #..
8ca0: 20 20 20 20 20 73 65 74 20 69 73 4d 65 6d 6f 72 set isMemor
8cb0: 79 20 5b 69 73 4d 65 6d 6f 72 79 44 62 20 24 66 y [isMemoryDb $f
8cc0: 69 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a 20 20 20 20 ileName]....
8cd0: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT
8ce0: 45 3a 20 42 75 69 6c 64 20 74 68 65 20 66 75 6c E: Build the ful
8cf0: 6c 20 70 61 74 68 20 74 6f 20 74 68 65 20 64 61 l path to the da
8d00: 74 61 62 61 73 65 20 66 69 6c 65 20 6e 61 6d 65 tabase file name
8d10: 2e 20 20 46 6f 72 20 6e 6f 77 2c 20 61 6c 6c 20 . For now, all
8d20: 74 65 73 74 0d 0a 20 20 20 20 20 20 23 20 20 20 test.. #
8d30: 20 20 20 20 64 61 74 61 62 61 73 65 20 66 69 6c database fil
8d40: 65 73 20 61 72 65 20 73 74 6f 72 65 64 20 69 6e es are stored in
8d50: 20 74 68 65 20 74 65 6d 70 6f 72 61 72 79 20 64 the temporary d
8d60: 69 72 65 63 74 6f 72 79 2e 0d 0a 20 20 20 20 20 irectory...
8d70: 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 21 24 #.. if {!$
8d80: 69 73 4d 65 6d 6f 72 79 20 26 26 20 24 71 75 61 isMemory && $qua
8d90: 6c 69 66 79 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 lify} then {..
8da0: 20 20 20 20 20 20 73 65 74 20 66 69 6c 65 4e 61 set fileNa
8db0: 6d 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 67 me [file join [g
8dc0: 65 74 44 61 74 61 62 61 73 65 44 69 72 65 63 74 etDatabaseDirect
8dd0: 6f 72 79 5d 20 5b 66 69 6c 65 20 74 61 69 6c 20 ory] [file tail
8de0: 24 66 69 6c 65 4e 61 6d 65 5d 5d 0d 0a 20 20 20 $fileName]]..
8df0: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d }.... #.
8e00: 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 43 . # NOTE: C
8e10: 68 65 63 6b 20 69 66 20 74 68 65 20 66 69 6c 65 heck if the file
8e20: 20 73 74 69 6c 6c 20 65 78 69 73 74 73 2e 0d 0a still exists...
8e30: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 #.. i
8e40: 66 20 7b 21 24 69 73 4d 65 6d 6f 72 79 20 26 26 f {!$isMemory &&
8e50: 20 24 64 65 6c 65 74 65 20 26 26 20 5b 66 69 6c $delete && [fil
8e60: 65 20 65 78 69 73 74 73 20 24 66 69 6c 65 4e 61 e exists $fileNa
8e70: 6d 65 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 me]} then {..
8e80: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #..
8e90: 23 20 4e 4f 54 45 3a 20 53 6b 69 70 20 64 65 6c # NOTE: Skip del
8ea0: 65 74 69 6e 67 20 64 61 74 61 62 61 73 65 20 66 eting database f
8eb0: 69 6c 65 73 20 69 66 20 73 6f 6d 65 62 6f 64 79 iles if somebody
8ec0: 20 73 65 74 73 20 74 68 65 20 67 6c 6f 62 61 6c sets the global
8ed0: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 .. #
8ee0: 20 20 76 61 72 69 61 62 6c 65 20 74 6f 20 70 72 variable to pr
8ef0: 65 76 65 6e 74 20 69 74 2e 0d 0a 20 20 20 20 20 event it...
8f00: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 69 66 #.. if
8f10: 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 {![info exists
8f20: 3a 3a 6e 6f 28 63 6c 65 61 6e 75 70 44 62 46 69 ::no(cleanupDbFi
8f30: 6c 65 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 le)]} then {..
8f40: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #..
8f50: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 41 74 74 # NOTE: Att
8f60: 65 6d 70 74 20 74 6f 20 64 65 6c 65 74 65 20 74 empt to delete t
8f70: 68 65 20 74 65 73 74 20 64 61 74 61 62 61 73 65 he test database
8f80: 20 66 69 6c 65 20 6e 6f 77 2e 0d 0a 20 20 20 20 file now...
8f90: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
8fa0: 20 20 20 69 66 20 7b 5b 73 65 74 20 63 6f 64 65 if {[set code
8fb0: 20 5b 63 61 74 63 68 20 7b 66 69 6c 65 20 64 65 [catch {file de
8fc0: 6c 65 74 65 20 24 66 69 6c 65 4e 61 6d 65 7d 20 lete $fileName}
8fd0: 65 72 72 6f 72 5d 5d 7d 20 74 68 65 6e 20 7b 0d error]]} then {.
8fe0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 0d 0a . #..
8ff0: 20 20 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f # NO
9000: 54 45 3a 20 57 65 20 73 6f 6d 65 68 6f 77 20 66 TE: We somehow f
9010: 61 69 6c 65 64 20 74 6f 20 64 65 6c 65 74 65 20 ailed to delete
9020: 74 68 65 20 66 69 6c 65 2c 20 72 65 70 6f 72 74 the file, report
9030: 20 77 68 79 2e 0d 0a 20 20 20 20 20 20 20 20 20 why...
9040: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 #..
9050: 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f tputs $::test_
9060: 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 channel [appendA
9070: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 rgs \..
9080: 20 20 20 20 20 20 20 22 3d 3d 3d 3d 20 57 41 52 "==== WAR
9090: 4e 49 4e 47 3a 20 66 61 69 6c 65 64 20 74 6f 20 NING: failed to
90a0: 64 65 6c 65 74 65 20 64 61 74 61 62 61 73 65 20 delete database
90b0: 66 69 6c 65 20 5c 22 22 20 24 66 69 6c 65 4e 61 file \"" $fileNa
90c0: 6d 65 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 me \..
90d0: 20 20 20 20 20 20 22 5c 22 20 64 75 72 69 6e 67 "\" during
90e0: 20 63 6c 65 61 6e 75 70 2c 20 65 72 72 6f 72 3a cleanup, error:
90f0: 20 22 20 5c 6e 5c 74 20 24 65 72 72 6f 72 20 5c " \n\t $error \
9100: 6e 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d n].. }.
9110: 0a 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 . } else
9120: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a {.. #..
9130: 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 # NOTE
9140: 3a 20 53 68 6f 77 20 74 68 61 74 20 77 65 20 73 : Show that we s
9150: 6b 69 70 70 65 64 20 64 65 6c 65 74 69 6e 67 20 kipped deleting
9160: 74 68 65 20 66 69 6c 65 2e 0d 0a 20 20 20 20 20 the file...
9170: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #..
9180: 20 20 73 65 74 20 63 6f 64 65 20 30 0d 0a 0d 0a set code 0....
9190: 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 tputs
91a0: 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 $::test_channel
91b0: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 [appendArgs \..
91c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3d 3d "==
91d0: 3d 3d 20 57 41 52 4e 49 4e 47 3a 20 73 6b 69 70 == WARNING: skip
91e0: 70 65 64 20 64 65 6c 65 74 69 6e 67 20 64 61 74 ped deleting dat
91f0: 61 62 61 73 65 20 66 69 6c 65 20 5c 22 22 20 24 abase file \"" $
9200: 66 69 6c 65 4e 61 6d 65 20 5c 0d 0a 20 20 20 20 fileName \..
9210: 20 20 20 20 20 20 20 20 20 20 22 5c 22 20 64 75 "\" du
9220: 72 69 6e 67 20 63 6c 65 61 6e 75 70 5c 6e 22 5d ring cleanup\n"]
9230: 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 .. }..
9240: 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 } else {..
9250: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #..
9260: 23 20 4e 4f 54 45 3a 20 54 68 65 20 66 69 6c 65 # NOTE: The file
9270: 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 2c does not exist,
9280: 20 73 75 63 63 65 73 73 21 0d 0a 20 20 20 20 20 success!..
9290: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 73 65 #.. se
92a0: 74 20 63 6f 64 65 20 30 0d 0a 20 20 20 20 20 20 t code 0..
92b0: 7d 0d 0a 0d 0a 20 20 20 20 20 20 72 65 74 75 72 }.... retur
92c0: 6e 20 24 63 6f 64 65 0d 0a 20 20 20 20 7d 0d 0a n $code.. }..
92d0: 0c 0d 0a 20 20 20 20 70 72 6f 63 20 63 6c 65 61 ... proc clea
92e0: 6e 75 70 46 69 6c 65 20 7b 20 66 69 6c 65 4e 61 nupFile { fileNa
92f0: 6d 65 20 7b 63 6f 6c 6c 65 63 74 20 74 72 75 65 me {collect true
9300: 7d 20 7b 66 6f 72 63 65 20 66 61 6c 73 65 7d 20 } {force false}
9310: 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 } {.. #..
9320: 20 20 20 20 23 20 4e 4f 54 45 3a 20 41 74 74 65 # NOTE: Atte
9330: 6d 70 74 20 74 6f 20 66 6f 72 63 65 20 61 6c 6c mpt to force all
9340: 20 70 65 6e 64 69 6e 67 20 22 67 61 72 62 61 67 pending "garbag
9350: 65 22 20 6f 62 6a 65 63 74 73 20 74 6f 20 62 65 e" objects to be
9360: 20 63 6f 6c 6c 65 63 74 65 64 2c 0d 0a 20 20 20 collected,..
9370: 20 20 20 23 20 20 20 20 20 20 20 69 6e 63 6c 75 # inclu
9380: 64 69 6e 67 20 53 51 4c 69 74 65 20 73 74 61 74 ding SQLite stat
9390: 65 6d 65 6e 74 73 20 61 6e 64 20 62 61 63 6b 75 ements and backu
93a0: 70 20 6f 62 6a 65 63 74 73 3b 20 74 68 69 73 20 p objects; this
93b0: 73 68 6f 75 6c 64 20 61 6c 6c 6f 77 0d 0a 20 20 should allow..
93c0: 20 20 20 20 23 20 20 20 20 20 20 20 74 68 65 20 # the
93d0: 75 6e 64 65 72 6c 79 69 6e 67 20 64 61 74 61 62 underlying datab
93e0: 61 73 65 20 66 69 6c 65 20 74 6f 20 62 65 20 64 ase file to be d
93f0: 65 6c 65 74 65 64 2e 0d 0a 20 20 20 20 20 20 23 eleted... #
9400: 0d 0a 20 20 20 20 20 20 69 66 20 7b 24 63 6f 6c .. if {$col
9410: 6c 65 63 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 lect} then {..
9420: 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 47 61 72 collectGar
9430: 62 61 67 65 20 24 3a 3a 74 65 73 74 5f 63 68 61 bage $::test_cha
9440: 6e 6e 65 6c 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d nnel.. }...
9450: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 . #..
9460: 23 20 4e 4f 54 45 3a 20 43 68 65 63 6b 20 69 66 # NOTE: Check if
9470: 20 74 68 65 20 66 69 6c 65 20 73 74 69 6c 6c 20 the file still
9480: 65 78 69 73 74 73 2e 0d 0a 20 20 20 20 20 20 23 exists... #
9490: 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 66 69 6c .. if {[fil
94a0: 65 20 65 78 69 73 74 73 20 24 66 69 6c 65 4e 61 e exists $fileNa
94b0: 6d 65 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 me]} then {..
94c0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #..
94d0: 23 20 4e 4f 54 45 3a 20 53 6b 69 70 20 64 65 6c # NOTE: Skip del
94e0: 65 74 69 6e 67 20 74 65 73 74 20 66 69 6c 65 73 eting test files
94f0: 20 69 66 20 73 6f 6d 65 62 6f 64 79 20 73 65 74 if somebody set
9500: 73 20 74 68 65 20 67 6c 6f 62 61 6c 20 76 61 72 s the global var
9510: 69 61 62 6c 65 0d 0a 20 20 20 20 20 20 20 20 23 iable.. #
9520: 20 20 20 20 20 20 20 74 6f 20 70 72 65 76 65 6e to preven
9530: 74 20 69 74 2e 0d 0a 20 20 20 20 20 20 20 20 23 t it... #
9540: 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 24 66 .. if {$f
9550: 6f 72 63 65 20 7c 7c 20 21 5b 69 6e 66 6f 20 65 orce || ![info e
9560: 78 69 73 74 73 20 3a 3a 6e 6f 28 63 6c 65 61 6e xists ::no(clean
9570: 75 70 46 69 6c 65 29 5d 7d 20 74 68 65 6e 20 7b upFile)]} then {
9580: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 .. #..
9590: 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a # NOTE:
95a0: 20 41 74 74 65 6d 70 74 20 74 6f 20 64 65 6c 65 Attempt to dele
95b0: 74 65 20 74 68 65 20 74 65 73 74 20 66 69 6c 65 te the test file
95c0: 20 6e 6f 77 2e 0d 0a 20 20 20 20 20 20 20 20 20 now...
95d0: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66 #.. if
95e0: 20 7b 5b 73 65 74 20 63 6f 64 65 20 5b 63 61 74 {[set code [cat
95f0: 63 68 20 7b 66 69 6c 65 20 64 65 6c 65 74 65 20 ch {file delete
9600: 24 66 69 6c 65 4e 61 6d 65 7d 20 65 72 72 6f 72 $fileName} error
9610: 5d 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 ]]} then {..
9620: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #..
9630: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 57 # NOTE: W
9640: 65 20 73 6f 6d 65 68 6f 77 20 66 61 69 6c 65 64 e somehow failed
9650: 20 74 6f 20 64 65 6c 65 74 65 20 74 68 65 20 66 to delete the f
9660: 69 6c 65 2c 20 72 65 70 6f 72 74 20 77 68 79 2e ile, report why.
9670: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 0d .. #.
9680: 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 70 75 . tpu
9690: 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e ts $::test_chann
96a0: 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c el [appendArgs \
96b0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
96c0: 20 20 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e 47 3a "==== WARNING:
96d0: 20 66 61 69 6c 65 64 20 74 6f 20 64 65 6c 65 74 failed to delet
96e0: 65 20 74 65 73 74 20 66 69 6c 65 20 5c 22 22 20 e test file \""
96f0: 24 66 69 6c 65 4e 61 6d 65 20 5c 0d 0a 20 20 20 $fileName \..
9700: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5c 22 "\"
9710: 20 64 75 72 69 6e 67 20 63 6c 65 61 6e 75 70 2c during cleanup,
9720: 20 65 72 72 6f 72 3a 20 22 20 5c 6e 5c 74 20 24 error: " \n\t $
9730: 65 72 72 6f 72 20 5c 6e 5d 0d 0a 20 20 20 20 20 error \n]..
9740: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 }..
9750: 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 } else {..
9760: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 #..
9770: 20 23 20 4e 4f 54 45 3a 20 53 68 6f 77 20 74 68 # NOTE: Show th
9780: 61 74 20 77 65 20 73 6b 69 70 70 65 64 20 64 65 at we skipped de
9790: 6c 65 74 69 6e 67 20 74 68 65 20 66 69 6c 65 2e leting the file.
97a0: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 .. #..
97b0: 20 20 20 20 20 20 20 20 20 73 65 74 20 63 6f 64 set cod
97c0: 65 20 30 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 e 0....
97d0: 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 tputs $::test_c
97e0: 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 hannel [appendAr
97f0: 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 gs \..
9800: 20 20 20 20 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e "==== WARNIN
9810: 47 3a 20 73 6b 69 70 70 65 64 20 64 65 6c 65 74 G: skipped delet
9820: 69 6e 67 20 74 65 73 74 20 66 69 6c 65 20 5c 22 ing test file \"
9830: 22 20 24 66 69 6c 65 4e 61 6d 65 20 5c 0d 0a 20 " $fileName \..
9840: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5c 22 "\"
9850: 20 64 75 72 69 6e 67 20 63 6c 65 61 6e 75 70 5c during cleanup\
9860: 6e 22 5d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a n"].. }..
9870: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a } else {..
9880: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #..
9890: 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 65 20 66 # NOTE: The f
98a0: 69 6c 65 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 ile does not exi
98b0: 73 74 2c 20 73 75 63 63 65 73 73 21 0d 0a 20 20 st, success!..
98c0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
98d0: 20 73 65 74 20 63 6f 64 65 20 30 0d 0a 20 20 20 set code 0..
98e0: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 72 65 }.... re
98f0: 74 75 72 6e 20 24 63 6f 64 65 0d 0a 20 20 20 20 turn $code..
9900: 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 63 }..... proc c
9910: 6f 6c 6c 65 63 74 47 61 72 62 61 67 65 20 7b 20 ollectGarbage {
9920: 63 68 61 6e 6e 65 6c 20 7d 20 7b 0d 0a 20 20 20 channel } {..
9930: 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f #.. # NO
9940: 54 45 3a 20 41 74 74 65 6d 70 74 20 74 6f 20 66 TE: Attempt to f
9950: 6f 72 63 65 20 61 20 66 75 6c 6c 20 67 61 72 62 orce a full garb
9960: 61 67 65 20 63 6f 6c 6c 65 63 74 69 6f 6e 20 6e age collection n
9970: 6f 77 2e 20 20 52 65 70 6f 72 74 20 61 6e 79 0d ow. Report any.
9980: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 65 . # e
9990: 72 72 6f 72 20 74 68 61 74 20 69 73 20 65 6e 63 rror that is enc
99a0: 6f 75 6e 74 65 72 65 64 20 69 66 20 77 65 20 66 ountered if we f
99b0: 61 69 6c 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 ail... #..
99c0: 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 if {[catch
99d0: 7b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 47 {object invoke G
99e0: 43 20 47 65 74 54 6f 74 61 6c 4d 65 6d 6f 72 79 C GetTotalMemory
99f0: 20 74 72 75 65 7d 20 65 72 72 6f 72 5d 7d 20 74 true} error]} t
9a00: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 74 hen {.. t
9a10: 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61 puts $channel [a
9a20: 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 ppendArgs \..
9a30: 20 20 20 20 20 20 20 20 20 22 3d 3d 3d 3d 20 57 "==== W
9a40: 41 52 4e 49 4e 47 3a 20 66 61 69 6c 65 64 20 66 ARNING: failed f
9a50: 75 6c 6c 20 67 61 72 62 61 67 65 20 63 6f 6c 6c ull garbage coll
9a60: 65 63 74 69 6f 6e 2c 20 65 72 72 6f 72 3a 20 22 ection, error: "
9a70: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \..
9a80: 5c 6e 5c 74 20 24 65 72 72 6f 72 20 5c 6e 5d 0d \n\t $error \n].
9a90: 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d . }.. }.
9aa0: 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 73 68 75 .... proc shu
9ab0: 74 64 6f 77 6e 53 51 4c 69 74 65 20 7b 20 63 68 tdownSQLite { ch
9ac0: 61 6e 6e 65 6c 20 7b 66 6f 72 63 65 20 66 61 6c annel {force fal
9ad0: 73 65 7d 20 7b 71 75 69 65 74 20 66 61 6c 73 65 se} {quiet false
9ae0: 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a } } {.. #..
9af0: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 4d 61 # NOTE: Ma
9b00: 6b 65 20 73 75 72 65 20 74 68 61 74 20 53 51 4c ke sure that SQL
9b10: 69 74 65 20 63 6f 72 65 20 6c 69 62 72 61 72 79 ite core library
9b20: 20 69 73 20 63 6f 6d 70 6c 65 74 65 6c 79 20 73 is completely s
9b30: 68 75 74 64 6f 77 6e 2e 20 20 54 68 69 73 0d 0a hutdown. This..
9b40: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 69 73 # is
9b50: 20 75 73 65 64 20 62 79 20 74 65 73 74 73 20 74 used by tests t
9b60: 68 61 74 20 63 68 61 6e 67 65 20 63 6f 6e 66 69 hat change confi
9b70: 67 75 72 61 74 69 6f 6e 20 6f 70 74 69 6f 6e 73 guration options
9b80: 20 61 6e 64 2f 6f 72 20 74 68 6f 73 65 0d 0a 20 and/or those..
9b90: 20 20 20 20 20 23 20 20 20 20 20 20 20 74 68 61 # tha
9ba0: 74 20 6e 65 65 64 20 74 6f 20 6d 61 6b 65 20 73 t need to make s
9bb0: 75 72 65 20 6c 6f 67 67 69 6e 67 20 69 73 20 69 ure logging is i
9bc0: 6e 69 74 69 61 6c 69 7a 65 64 20 28 69 2e 65 2e nitialized (i.e.
9bd0: 20 6a 75 73 74 20 69 6e 20 63 61 73 65 0d 0a 20 just in case..
9be0: 20 20 20 20 20 23 20 20 20 20 20 20 20 74 68 65 # the
9bf0: 20 53 51 4c 69 74 65 20 63 6f 72 65 20 6c 69 62 SQLite core lib
9c00: 72 61 72 79 20 77 61 73 20 69 6e 69 74 69 61 6c rary was initial
9c10: 69 7a 65 64 20 69 6e 20 74 68 65 20 70 72 6f 63 ized in the proc
9c20: 65 73 73 20 70 72 69 6f 72 20 74 6f 0d 0a 20 20 ess prior to..
9c30: 20 20 20 20 23 20 20 20 20 20 20 20 74 68 65 20 # the
9c40: 53 51 4c 69 74 65 4c 6f 67 20 63 6c 61 73 73 20 SQLiteLog class
9c50: 62 65 69 6e 67 20 61 62 6c 65 20 74 6f 20 73 65 being able to se
9c60: 74 75 70 20 69 74 73 20 6c 6f 67 67 69 6e 67 20 tup its logging
9c70: 63 61 6c 6c 62 61 63 6b 29 2e 0d 0a 20 20 20 20 callback)...
9c80: 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 24 #.. if {$
9c90: 66 6f 72 63 65 20 7c 7c 20 5b 68 61 76 65 43 6f force || [haveCo
9ca0: 6e 73 74 72 61 69 6e 74 20 53 51 4c 69 74 65 5d nstraint SQLite]
9cb0: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {..
9cc0: 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 6f 62 if {[catch {ob
9cd0: 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d 66 6c 61 ject invoke -fla
9ce0: 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 5c 0d gs +NonPublic \.
9cf0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 . S
9d00: 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 ystem.Data.SQLit
9d10: 65 2e 55 6e 73 61 66 65 4e 61 74 69 76 65 4d 65 e.UnsafeNativeMe
9d20: 74 68 6f 64 73 20 5c 0d 0a 20 20 20 20 20 20 20 thods \..
9d30: 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 73 sqlite3_s
9d40: 68 75 74 64 6f 77 6e 7d 20 72 65 73 75 6c 74 5d hutdown} result]
9d50: 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 == 0} then {..
9d60: 20 20 20 20 20 20 20 20 20 69 66 20 7b 21 24 71 if {!$q
9d70: 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 uiet} then {..
9d80: 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 tputs
9d90: 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 $channel [append
9da0: 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 Args \..
9db0: 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 63 61 "---- ca
9dc0: 6c 6c 20 73 71 6c 69 74 65 33 5f 73 68 75 74 64 ll sqlite3_shutd
9dd0: 6f 77 6e 28 29 2e 2e 2e 20 6f 6b 3a 20 22 20 24 own()... ok: " $
9de0: 72 65 73 75 6c 74 20 5c 6e 5d 0d 0a 20 20 20 20 result \n]..
9df0: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 }..
9e00: 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 } else {..
9e10: 20 20 20 20 20 69 66 20 7b 21 24 71 75 69 65 74 if {!$quiet
9e20: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {..
9e30: 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68 61 tputs $cha
9e40: 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 nnel [appendArgs
9e50: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \..
9e60: 20 20 20 20 22 2d 2d 2d 2d 20 63 61 6c 6c 20 73 "---- call s
9e70: 71 6c 69 74 65 33 5f 73 68 75 74 64 6f 77 6e 28 qlite3_shutdown(
9e80: 29 2e 2e 2e 20 65 72 72 6f 72 3a 20 22 20 5c 6e )... error: " \n
9e90: 5c 74 20 24 72 65 73 75 6c 74 20 5c 6e 5d 0d 0a \t $result \n]..
9ea0: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 }..
9eb0: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d }.. }.
9ec0: 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 . }..... p
9ed0: 72 6f 63 20 72 65 70 6f 72 74 53 51 4c 69 74 65 roc reportSQLite
9ee0: 52 65 73 6f 75 72 63 65 73 20 7b 20 63 68 61 6e Resources { chan
9ef0: 6e 65 6c 20 7b 71 75 69 65 74 20 66 61 6c 73 65 nel {quiet false
9f00: 7d 20 7b 63 6f 6c 6c 65 63 74 20 74 72 75 65 7d } {collect true}
9f10: 20 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 } {.. #..
9f20: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 6b 69 # NOTE: Ski
9f30: 70 20 61 6c 6c 20 6f 75 74 70 75 74 20 69 66 20 p all output if
9f40: 77 65 20 61 72 65 20 72 75 6e 6e 69 6e 67 20 69 we are running i
9f50: 6e 20 22 71 75 69 65 74 22 20 6d 6f 64 65 2e 0d n "quiet" mode..
9f60: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 . #..
9f70: 69 66 20 7b 21 24 71 75 69 65 74 7d 20 74 68 65 if {!$quiet} the
9f80: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 74 70 75 n {.. tpu
9f90: 74 73 20 24 63 68 61 6e 6e 65 6c 20 22 2d 2d 2d ts $channel "---
9fa0: 2d 20 63 75 72 72 65 6e 74 20 6d 65 6d 6f 72 79 - current memory
9fb0: 20 69 6e 20 75 73 65 20 62 79 20 53 51 4c 69 74 in use by SQLit
9fc0: 65 2e 2e 2e 20 22 0d 0a 20 20 20 20 20 20 7d 0d e... ".. }.
9fd0: 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 63 61 ... if {[ca
9fe0: 74 63 68 20 7b 6f 62 6a 65 63 74 20 69 6e 76 6f tch {object invo
9ff0: 6b 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 ke -flags +NonPu
a000: 62 6c 69 63 20 5c 0d 0a 20 20 20 20 20 20 20 20 blic \..
a010: 20 20 20 20 20 20 53 79 73 74 65 6d 2e 44 61 74 System.Dat
a020: 61 2e 53 51 4c 69 74 65 2e 55 6e 73 61 66 65 4e a.SQLite.UnsafeN
a030: 61 74 69 76 65 4d 65 74 68 6f 64 73 20 5c 0d 0a ativeMethods \..
a040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 71 sq
a050: 6c 69 74 65 33 5f 6d 65 6d 6f 72 79 5f 75 73 65 lite3_memory_use
a060: 64 7d 20 6d 65 6d 6f 72 79 5d 20 3d 3d 20 30 7d d} memory] == 0}
a070: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 then {..
a080: 20 69 66 20 7b 21 24 71 75 69 65 74 7d 20 74 68 if {!$quiet} th
a090: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 en {..
a0a0: 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 5b tputs $channel [
a0b0: 61 70 70 65 6e 64 41 72 67 73 20 24 6d 65 6d 6f appendArgs $memo
a0c0: 72 79 20 22 20 62 79 74 65 73 5c 6e 22 5d 0d 0a ry " bytes\n"]..
a0d0: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 }..
a0e0: 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 } else {..
a0f0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 #.. #
a100: 4e 4f 54 45 3a 20 4d 61 79 62 65 20 74 68 65 20 NOTE: Maybe the
a110: 53 51 4c 69 74 65 20 63 6f 72 65 20 6c 69 62 72 SQLite core libr
a120: 61 72 79 20 69 73 20 75 6e 61 76 61 69 6c 61 62 ary is unavailab
a130: 6c 65 3f 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a le?.. #..
a140: 20 20 20 20 20 20 20 20 73 65 74 20 6d 65 6d 6f set memo
a150: 72 79 20 75 6e 6b 6e 6f 77 6e 0d 0a 0d 0a 20 20 ry unknown....
a160: 20 20 20 20 20 20 69 66 20 7b 21 24 71 75 69 65 if {!$quie
a170: 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 t} then {..
a180: 20 20 20 20 20 74 70 75 74 73 20 24 63 68 61 6e tputs $chan
a190: 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 nel [appendArgs
a1a0: 24 6d 65 6d 6f 72 79 20 5c 6e 5d 0d 0a 20 20 20 $memory \n]..
a1b0: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d }.. }.
a1c0: 0a 0d 0a 20 20 20 20 20 20 73 65 74 20 72 65 73 ... set res
a1d0: 75 6c 74 20 24 6d 65 6d 6f 72 79 3b 20 23 20 4e ult $memory; # N
a1e0: 4f 54 45 3a 20 52 65 74 75 72 6e 20 6d 65 6d 6f OTE: Return memo
a1f0: 72 79 20 69 6e 2d 75 73 65 20 74 6f 20 6f 75 72 ry in-use to our
a200: 20 63 61 6c 6c 65 72 2e 0d 0a 0d 0a 20 20 20 20 caller.....
a210: 20 20 69 66 20 7b 21 24 71 75 69 65 74 7d 20 74 if {!$quiet} t
a220: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 74 hen {.. t
a230: 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 22 2d puts $channel "-
a240: 2d 2d 2d 20 6d 61 78 69 6d 75 6d 20 6d 65 6d 6f --- maximum memo
a250: 72 79 20 69 6e 20 75 73 65 20 62 79 20 53 51 4c ry in use by SQL
a260: 69 74 65 2e 2e 2e 20 22 0d 0a 20 20 20 20 20 20 ite... "..
a270: 7d 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b }.... if {[
a280: 63 61 74 63 68 20 7b 6f 62 6a 65 63 74 20 69 6e catch {object in
a290: 76 6f 6b 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e voke -flags +Non
a2a0: 50 75 62 6c 69 63 20 5c 0d 0a 20 20 20 20 20 20 Public \..
a2b0: 20 20 20 20 20 20 20 20 53 79 73 74 65 6d 2e 44 System.D
a2c0: 61 74 61 2e 53 51 4c 69 74 65 2e 55 6e 73 61 66 ata.SQLite.Unsaf
a2d0: 65 4e 61 74 69 76 65 4d 65 74 68 6f 64 73 20 5c eNativeMethods \
a2e0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
a2f0: 73 71 6c 69 74 65 33 5f 6d 65 6d 6f 72 79 5f 68 sqlite3_memory_h
a300: 69 67 68 77 61 74 65 72 20 30 7d 20 6d 65 6d 6f ighwater 0} memo
a310: 72 79 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b ry] == 0} then {
a320: 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 21 24 .. if {!$
a330: 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 quiet} then {..
a340: 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 tputs $
a350: 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 channel [appendA
a360: 72 67 73 20 24 6d 65 6d 6f 72 79 20 22 20 62 79 rgs $memory " by
a370: 74 65 73 5c 6e 22 5d 0d 0a 20 20 20 20 20 20 20 tes\n"]..
a380: 20 7d 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 }.. } else
a390: 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 {.. #..
a3a0: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 4d # NOTE: M
a3b0: 61 79 62 65 20 74 68 65 20 53 51 4c 69 74 65 20 aybe the SQLite
a3c0: 63 6f 72 65 20 6c 69 62 72 61 72 79 20 69 73 20 core library is
a3d0: 75 6e 61 76 61 69 6c 61 62 6c 65 3f 0d 0a 20 20 unavailable?..
a3e0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
a3f0: 20 73 65 74 20 6d 65 6d 6f 72 79 20 75 6e 6b 6e set memory unkn
a400: 6f 77 6e 0d 0a 0d 0a 20 20 20 20 20 20 20 20 69 own.... i
a410: 66 20 7b 21 24 71 75 69 65 74 7d 20 74 68 65 6e f {!$quiet} then
a420: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70 {.. tp
a430: 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 uts $channel [ap
a440: 70 65 6e 64 41 72 67 73 20 24 6d 65 6d 6f 72 79 pendArgs $memory
a450: 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 7d 0d \n].. }.
a460: 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 . }....
a470: 20 20 69 66 20 7b 24 63 6f 6c 6c 65 63 74 7d 20 if {$collect}
a480: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 then {..
a490: 63 6f 6c 6c 65 63 74 47 61 72 62 61 67 65 20 24 collectGarbage $
a4a0: 63 68 61 6e 6e 65 6c 0d 0a 20 20 20 20 20 20 7d channel.. }
a4b0: 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 21 24 .... if {!$
a4c0: 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 quiet} then {..
a4d0: 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68 tputs $ch
a4e0: 61 6e 6e 65 6c 20 22 2d 2d 2d 2d 20 63 75 72 72 annel "---- curr
a4f0: 65 6e 74 20 6d 65 6d 6f 72 79 20 69 6e 20 75 73 ent memory in us
a500: 65 20 62 79 20 74 68 65 20 43 4c 52 2e 2e 2e 20 e by the CLR...
a510: 22 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 ".. }....
a520: 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b if {[catch {
a530: 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 47 43 object invoke GC
a540: 20 47 65 74 54 6f 74 61 6c 4d 65 6d 6f 72 79 20 GetTotalMemory
a550: 66 61 6c 73 65 7d 20 6d 65 6d 6f 72 79 5d 20 3d false} memory] =
a560: 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 = 0} then {..
a570: 20 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 if {[string
a580: 20 69 73 20 69 6e 74 65 67 65 72 20 2d 73 74 72 is integer -str
a590: 69 63 74 20 24 6d 65 6d 6f 72 79 5d 7d 20 74 68 ict $memory]} th
a5a0: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 en {..
a5b0: 69 66 20 7b 21 24 71 75 69 65 74 7d 20 74 68 65 if {!$quiet} the
a5c0: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 n {..
a5d0: 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 tputs $channel
a5e0: 5b 61 70 70 65 6e 64 41 72 67 73 20 24 6d 65 6d [appendArgs $mem
a5f0: 6f 72 79 20 22 20 62 79 74 65 73 5c 6e 22 5d 0d ory " bytes\n"].
a600: 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 . }..
a610: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a } else {..
a620: 20 20 20 20 20 20 20 20 20 20 73 65 74 20 6d 65 set me
a630: 6d 6f 72 79 20 69 6e 76 61 6c 69 64 0d 0a 0d 0a mory invalid....
a640: 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 21 24 if {!$
a650: 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 quiet} then {..
a660: 20 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 tputs
a670: 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e $channel [appen
a680: 64 41 72 67 73 20 24 6d 65 6d 6f 72 79 20 5c 6e dArgs $memory \n
a690: 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a ].. }..
a6a0: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 }..
a6b0: 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 } else {..
a6c0: 20 20 20 73 65 74 20 6d 65 6d 6f 72 79 20 75 6e set memory un
a6d0: 6b 6e 6f 77 6e 0d 0a 0d 0a 20 20 20 20 20 20 20 known....
a6e0: 20 69 66 20 7b 21 24 71 75 69 65 74 7d 20 74 68 if {!$quiet} th
a6f0: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 en {..
a700: 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 5b tputs $channel [
a710: 61 70 70 65 6e 64 41 72 67 73 20 24 6d 65 6d 6f appendArgs $memo
a720: 72 79 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 ry \n]..
a730: 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 }.. }....
a740: 20 20 20 20 72 65 74 75 72 6e 20 24 72 65 73 75 return $resu
a750: 6c 74 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 lt.. }.....
a760: 20 20 70 72 6f 63 20 63 68 65 63 6b 46 6f 72 53 proc checkForS
a770: 51 4c 69 74 65 44 69 72 65 63 74 6f 72 69 65 73 QLiteDirectories
a780: 20 7b 20 63 68 61 6e 6e 65 6c 20 7b 72 65 73 65 { channel {rese
a790: 74 20 66 61 6c 73 65 7d 20 7d 20 7b 0d 0a 20 20 t false} } {..
a7a0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e #.. # N
a7b0: 4f 54 45 3a 20 43 68 65 63 6b 20 69 66 20 74 68 OTE: Check if th
a7c0: 65 20 73 71 6c 69 74 65 33 5f 77 69 6e 33 32 5f e sqlite3_win32_
a7d0: 73 65 74 5f 64 69 72 65 63 74 6f 72 79 20 66 75 set_directory fu
a7e0: 6e 63 74 69 6f 6e 20 69 73 20 61 76 61 69 6c 61 nction is availa
a7f0: 62 6c 65 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 ble... #..
a800: 20 20 20 20 20 74 70 75 74 73 20 24 63 68 61 6e tputs $chan
a810: 6e 65 6c 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 nel \..
a820: 20 22 2d 2d 2d 2d 20 63 68 65 63 6b 69 6e 67 20 "---- checking
a830: 66 6f 72 20 66 75 6e 63 74 69 6f 6e 20 73 71 6c for function sql
a840: 69 74 65 33 5f 77 69 6e 33 32 5f 73 65 74 5f 64 ite3_win32_set_d
a850: 69 72 65 63 74 6f 72 79 2e 2e 2e 20 22 0d 0a 0d irectory... "...
a860: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 . #..
a870: 23 20 4e 4f 54 45 3a 20 54 68 69 73 20 63 61 6c # NOTE: This cal
a880: 6c 20 74 6f 20 74 68 65 20 73 71 6c 69 74 65 33 l to the sqlite3
a890: 5f 77 69 6e 33 32 5f 73 65 74 5f 64 69 72 65 63 _win32_set_direc
a8a0: 74 6f 72 79 20 66 75 6e 63 74 69 6f 6e 20 75 73 tory function us
a8b0: 65 73 20 74 68 65 0d 0a 20 20 20 20 20 20 23 20 es the.. #
a8c0: 20 20 20 20 20 20 69 6e 76 61 6c 69 64 20 76 61 invalid va
a8d0: 6c 75 65 20 30 20 66 6f 72 20 74 68 65 20 66 69 lue 0 for the fi
a8e0: 72 73 74 20 61 72 67 75 6d 65 6e 74 2e 20 20 54 rst argument. T
a8f0: 68 69 73 20 63 6f 64 65 20 69 73 20 64 65 73 69 his code is desi
a900: 67 6e 65 64 0d 0a 20 20 20 20 20 20 23 20 20 20 gned.. #
a910: 20 20 20 20 74 6f 20 63 68 65 63 6b 20 69 66 20 to check if
a920: 63 61 6c 6c 69 6e 67 20 74 68 65 20 66 75 6e 63 calling the func
a930: 74 69 6f 6e 20 77 69 6c 6c 20 72 61 69 73 65 20 tion will raise
a940: 61 6e 20 65 78 63 65 70 74 69 6f 6e 20 28 69 2e an exception (i.
a950: 65 2e 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 e... #
a960: 20 20 74 68 65 20 61 63 74 75 61 6c 20 72 65 73 the actual res
a970: 75 6c 74 20 6f 66 20 74 68 65 20 66 75 6e 63 74 ult of the funct
a980: 69 6f 6e 20 64 6f 65 73 20 6e 6f 74 20 6d 61 74 ion does not mat
a990: 74 65 72 20 61 73 20 6c 6f 6e 67 20 61 73 20 6e ter as long as n
a9a0: 6f 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 o.. #
a9b0: 20 64 69 72 65 63 74 6f 72 79 20 69 73 20 63 68 directory is ch
a9c0: 61 6e 67 65 64 29 2e 0d 0a 20 20 20 20 20 20 23 anged)... #
a9d0: 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 .. if {[cat
a9e0: 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 ch {..
a9f0: 20 20 20 20 6f 62 6a 65 63 74 20 69 6e 76 6f 6b object invok
aa00: 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 e -flags +NonPub
aa10: 6c 69 63 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 lic \..
aa20: 20 20 20 20 20 53 79 73 74 65 6d 2e 44 61 74 61 System.Data
aa30: 2e 53 51 4c 69 74 65 2e 55 6e 73 61 66 65 4e 61 .SQLite.UnsafeNa
aa40: 74 69 76 65 4d 65 74 68 6f 64 73 20 5c 0d 0a 20 tiveMethods \..
aa50: 20 20 20 20 20 20 20 20 20 20 20 20 20 73 71 6c sql
aa60: 69 74 65 33 5f 77 69 6e 33 32 5f 73 65 74 5f 64 ite3_win32_set_d
aa70: 69 72 65 63 74 6f 72 79 20 30 20 6e 75 6c 6c 7d irectory 0 null}
aa80: 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a ] == 0} then {..
aa90: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #..
aaa0: 20 20 20 23 20 4e 4f 54 45 3a 20 43 61 6c 6c 69 # NOTE: Calli
aab0: 6e 67 20 74 68 65 20 73 71 6c 69 74 65 33 5f 77 ng the sqlite3_w
aac0: 69 6e 33 32 5f 73 65 74 5f 64 69 72 65 63 74 6f in32_set_directo
aad0: 72 79 20 66 75 6e 63 74 69 6f 6e 20 64 6f 65 73 ry function does
aae0: 20 6e 6f 74 0d 0a 20 20 20 20 20 20 20 20 23 20 not.. #
aaf0: 20 20 20 20 20 20 63 61 75 73 65 20 61 6e 20 65 cause an e
ab00: 78 63 65 70 74 69 6f 6e 3b 20 74 68 65 72 65 66 xception; theref
ab10: 6f 72 65 2c 20 69 74 20 6d 75 73 74 20 62 65 20 ore, it must be
ab20: 61 76 61 69 6c 61 62 6c 65 20 28 69 2e 65 2e 0d available (i.e..
ab30: 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 . #
ab40: 20 65 76 65 6e 20 74 68 6f 75 67 68 20 69 74 20 even though it
ab50: 73 68 6f 75 6c 64 20 72 65 74 75 72 6e 20 61 20 should return a
ab60: 66 61 69 6c 75 72 65 20 72 65 74 75 72 6e 20 63 failure return c
ab70: 6f 64 65 20 69 6e 20 74 68 69 73 0d 0a 20 20 20 ode in this..
ab80: 20 20 20 20 20 23 20 20 20 20 20 20 20 63 61 73 # cas
ab90: 65 29 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a e)... #..
aba0: 20 20 20 20 20 20 20 20 61 64 64 43 6f 6e 73 74 addConst
abb0: 72 61 69 6e 74 20 73 71 6c 69 74 65 33 5f 77 69 raint sqlite3_wi
abc0: 6e 33 32 5f 73 65 74 5f 64 69 72 65 63 74 6f 72 n32_set_director
abd0: 79 0d 0a 0d 0a 20 20 20 20 20 20 20 20 74 70 75 y.... tpu
abe0: 74 73 20 24 63 68 61 6e 6e 65 6c 20 79 65 73 5c ts $channel yes\
abf0: 6e 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a n.... #..
ac00: 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 # NOTE:
ac10: 44 6f 65 73 20 6f 75 72 20 63 61 6c 6c 65 72 20 Does our caller
ac20: 77 61 6e 74 20 74 6f 20 72 65 73 65 74 20 74 68 want to reset th
ac30: 65 20 64 69 72 65 63 74 6f 72 69 65 73 3f 0d 0a e directories?..
ac40: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #..
ac50: 20 20 20 69 66 20 7b 24 72 65 73 65 74 7d 20 74 if {$reset} t
ac60: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 hen {..
ac70: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 #.. #
ac80: 4e 4f 54 45 3a 20 4e 6f 77 20 6d 61 6b 65 20 73 NOTE: Now make s
ac90: 75 72 65 20 74 68 65 20 64 61 74 61 62 61 73 65 ure the database
aca0: 20 61 6e 64 20 74 65 6d 70 6f 72 61 72 79 20 64 and temporary d
acb0: 69 72 65 63 74 6f 72 69 65 73 20 61 72 65 0d 0a irectories are..
acc0: 20 20 20 20 20 20 20 20 20 20 23 20 20 20 20 20 #
acd0: 20 20 72 65 73 65 74 20 74 68 65 69 72 20 64 65 reset their de
ace0: 66 61 75 6c 74 20 76 61 6c 75 65 73 2c 20 77 68 fault values, wh
acf0: 69 63 68 20 73 68 6f 75 6c 64 20 62 65 20 6e 75 ich should be nu
ad00: 6c 6c 20 66 6f 72 20 62 6f 74 68 2e 0d 0a 20 20 ll for both...
ad10: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 #
ad20: 53 69 6e 63 65 20 74 68 65 20 73 71 6c 69 74 65 Since the sqlite
ad30: 33 5f 77 69 6e 33 32 5f 73 65 74 5f 64 69 72 65 3_win32_set_dire
ad40: 63 74 6f 72 79 20 66 75 6e 63 74 69 6f 6e 20 69 ctory function i
ad50: 73 20 61 76 61 69 6c 61 62 6c 65 2c 0d 0a 20 20 s available,..
ad60: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 #
ad70: 75 73 65 20 69 74 2e 0d 0a 20 20 20 20 20 20 20 use it...
ad80: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 #..
ad90: 66 6f 72 20 7b 73 65 74 20 69 6e 64 65 78 20 31 for {set index 1
ada0: 7d 20 7b 24 69 6e 64 65 78 20 3c 20 33 7d 20 7b } {$index < 3} {
adb0: 69 6e 63 72 20 69 6e 64 65 78 7d 20 7b 0d 0a 20 incr index} {..
adc0: 20 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 5b if {[
add0: 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 catch {..
ade0: 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 62 6a obj
adf0: 65 63 74 20 69 6e 76 6f 6b 65 20 2d 66 6c 61 67 ect invoke -flag
ae00: 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 5c 0d 0a s +NonPublic \..
ae10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
ae20: 20 20 20 20 53 79 73 74 65 6d 2e 44 61 74 61 2e System.Data.
ae30: 53 51 4c 69 74 65 2e 55 6e 73 61 66 65 4e 61 74 SQLite.UnsafeNat
ae40: 69 76 65 4d 65 74 68 6f 64 73 20 5c 0d 0a 20 20 iveMethods \..
ae50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
ae60: 20 20 73 71 6c 69 74 65 33 5f 77 69 6e 33 32 5f sqlite3_win32_
ae70: 73 65 74 5f 64 69 72 65 63 74 6f 72 79 20 24 69 set_directory $i
ae80: 6e 64 65 78 20 6e 75 6c 6c 7d 20 5c 0d 0a 20 20 ndex null} \..
ae90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
aea0: 20 20 72 65 73 75 6c 74 5d 20 3d 3d 20 30 7d 20 result] == 0}
aeb0: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 then {..
aec0: 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68 61 tputs $cha
aed0: 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 nnel [appendArgs
aee0: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \..
aef0: 20 20 20 20 20 20 22 2d 2d 2d 2d 20 63 61 6c 6c "---- call
af00: 20 73 71 6c 69 74 65 33 5f 77 69 6e 33 32 5f 73 sqlite3_win32_s
af10: 65 74 5f 64 69 72 65 63 74 6f 72 79 28 22 20 24 et_directory(" $
af20: 69 6e 64 65 78 20 5c 0d 0a 20 20 20 20 20 20 20 index \..
af30: 20 20 20 20 20 20 20 20 20 20 20 22 2c 20 6e 75 ", nu
af40: 6c 6c 29 2e 2e 2e 20 6f 6b 3a 20 22 20 24 72 65 ll)... ok: " $re
af50: 73 75 6c 74 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 sult \n]..
af60: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a } else {..
af70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 70 tp
af80: 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 uts $channel [ap
af90: 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 pendArgs \..
afa0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2d "-
afb0: 2d 2d 2d 20 63 61 6c 6c 20 73 71 6c 69 74 65 33 --- call sqlite3
afc0: 5f 77 69 6e 33 32 5f 73 65 74 5f 64 69 72 65 63 _win32_set_direc
afd0: 74 6f 72 79 28 22 20 24 69 6e 64 65 78 20 5c 0d tory(" $index \.
afe0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
aff0: 20 20 20 22 2c 20 6e 75 6c 6c 29 2e 2e 2e 20 65 ", null)... e
b000: 72 72 6f 72 3a 20 22 20 5c 6e 5c 74 20 24 72 65 rror: " \n\t $re
b010: 73 75 6c 74 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 sult \n]..
b020: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 }..
b030: 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d }.. }.
b040: 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d . } else {.
b050: 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 . tputs $
b060: 63 68 61 6e 6e 65 6c 20 6e 6f 5c 6e 0d 0a 0d 0a channel no\n....
b070: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #..
b080: 20 20 20 23 20 4e 4f 54 45 3a 20 44 6f 65 73 20 # NOTE: Does
b090: 6f 75 72 20 63 61 6c 6c 65 72 20 77 61 6e 74 20 our caller want
b0a0: 74 6f 20 72 65 73 65 74 20 74 68 65 20 64 69 72 to reset the dir
b0b0: 65 63 74 6f 72 69 65 73 3f 0d 0a 20 20 20 20 20 ectories?..
b0c0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 69 66 #.. if
b0d0: 20 7b 24 72 65 73 65 74 7d 20 74 68 65 6e 20 7b {$reset} then {
b0e0: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 .. #..
b0f0: 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a # NOTE:
b100: 20 4e 6f 77 20 6d 61 6b 65 20 73 75 72 65 20 74 Now make sure t
b110: 68 65 20 64 61 74 61 62 61 73 65 20 61 6e 64 20 he database and
b120: 74 65 6d 70 6f 72 61 72 79 20 64 69 72 65 63 74 temporary direct
b130: 6f 72 69 65 73 20 61 72 65 0d 0a 20 20 20 20 20 ories are..
b140: 20 20 20 20 20 23 20 20 20 20 20 20 20 72 65 73 # res
b150: 65 74 20 74 68 65 69 72 20 64 65 66 61 75 6c 74 et their default
b160: 20 76 61 6c 75 65 73 2c 20 77 68 69 63 68 20 73 values, which s
b170: 68 6f 75 6c 64 20 62 65 20 6e 75 6c 6c 20 66 6f hould be null fo
b180: 72 20 62 6f 74 68 2e 0d 0a 20 20 20 20 20 20 20 r both...
b190: 20 20 20 23 20 20 20 20 20 20 20 53 69 6e 63 65 # Since
b1a0: 20 74 68 65 20 73 71 6c 69 74 65 33 5f 77 69 6e the sqlite3_win
b1b0: 33 32 5f 73 65 74 5f 64 69 72 65 63 74 6f 72 79 32_set_directory
b1c0: 20 66 75 6e 63 74 69 6f 6e 20 64 6f 65 73 20 6e function does n
b1d0: 6f 74 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 ot.. #
b1e0: 20 20 20 20 20 20 61 70 70 65 61 72 20 74 6f 20 appear to
b1f0: 62 65 20 61 76 61 69 6c 61 62 6c 65 2c 20 75 73 be available, us
b200: 65 20 74 68 65 20 61 73 73 6f 63 69 61 74 65 64 e the associated
b210: 20 50 52 41 47 4d 41 20 63 6f 6d 6d 61 6e 64 73 PRAGMA commands
b220: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 20 20 .. #
b230: 20 20 20 20 69 6e 73 74 65 61 64 2e 0d 0a 20 20 instead...
b240: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #..
b250: 20 20 20 20 20 66 6f 72 65 61 63 68 20 64 69 72 foreach dir
b260: 65 63 74 6f 72 79 20 5b 6c 69 73 74 20 64 61 74 ectory [list dat
b270: 61 5f 73 74 6f 72 65 5f 64 69 72 65 63 74 6f 72 a_store_director
b280: 79 20 74 65 6d 70 5f 73 74 6f 72 65 5f 64 69 72 y temp_store_dir
b290: 65 63 74 6f 72 79 5d 20 7b 0d 0a 20 20 20 20 20 ectory] {..
b2a0: 20 20 20 20 20 20 20 73 65 74 20 73 71 6c 20 5b set sql [
b2b0: 61 70 70 65 6e 64 41 72 67 73 20 22 50 52 41 47 appendArgs "PRAG
b2c0: 4d 41 20 22 20 24 64 69 72 65 63 74 6f 72 79 20 MA " $directory
b2d0: 22 20 3d 20 5c 22 5c 22 3b 22 5d 0d 0a 0d 0a 20 " = \"\";"]....
b2e0: 20 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 5b if {[
b2f0: 63 61 74 63 68 20 7b 65 78 65 63 75 74 65 53 71 catch {executeSq
b300: 6c 20 24 73 71 6c 7d 20 72 65 73 75 6c 74 5d 20 l $sql} result]
b310: 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 == 0} then {..
b320: 20 20 20 20 20 20 20 20 20 20 20 20 74 70 75 74 tput
b330: 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 s $channel [appe
b340: 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 ndArgs \..
b350: 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d "---
b360: 2d 20 65 78 65 63 75 74 65 20 50 52 41 47 4d 41 - execute PRAGMA
b370: 20 22 20 24 64 69 72 65 63 74 6f 72 79 20 22 2e " $directory ".
b380: 2e 2e 20 6f 6b 3a 20 22 20 5c 0d 0a 20 20 20 20 .. ok: " \..
b390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 72 $r
b3a0: 65 73 75 6c 74 20 5c 6e 5d 0d 0a 20 20 20 20 20 esult \n]..
b3b0: 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d } else {.
b3c0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 . t
b3d0: 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61 puts $channel [a
b3e0: 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 ppendArgs \..
b3f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 "
b400: 2d 2d 2d 2d 20 65 78 65 63 75 74 65 20 50 52 41 ---- execute PRA
b410: 47 4d 41 20 22 20 24 64 69 72 65 63 74 6f 72 79 GMA " $directory
b420: 20 22 2e 2e 2e 20 65 72 72 6f 72 3a 20 22 20 5c "... error: " \
b430: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
b440: 20 20 20 20 5c 6e 5c 74 20 24 72 65 73 75 6c 74 \n\t $result
b450: 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 \n]..
b460: 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 7d }.. }
b470: 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 .. }..
b480: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d }.... #.
b490: 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 46 . # NOTE: F
b4a0: 69 6e 61 6c 6c 79 2c 20 73 68 6f 77 20 74 68 65 inally, show the
b4b0: 20 63 75 72 72 65 6e 74 20 76 61 6c 75 65 20 6f current value o
b4c0: 66 20 74 68 65 20 64 61 74 61 62 61 73 65 20 61 f the database a
b4d0: 6e 64 20 74 65 6d 70 6f 72 61 72 79 0d 0a 20 20 nd temporary..
b4e0: 20 20 20 20 23 20 20 20 20 20 20 20 64 69 72 65 # dire
b4f0: 63 74 6f 72 69 65 73 2e 0d 0a 20 20 20 20 20 20 ctories...
b500: 23 0d 0a 20 20 20 20 20 20 66 6f 72 65 61 63 68 #.. foreach
b510: 20 64 69 72 65 63 74 6f 72 79 20 5b 6c 69 73 74 directory [list
b520: 20 64 61 74 61 5f 73 74 6f 72 65 5f 64 69 72 65 data_store_dire
b530: 63 74 6f 72 79 20 74 65 6d 70 5f 73 74 6f 72 65 ctory temp_store
b540: 5f 64 69 72 65 63 74 6f 72 79 5d 20 7b 0d 0a 20 _directory] {..
b550: 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68 tputs $ch
b560: 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 annel [appendArg
b570: 73 20 22 2d 2d 2d 2d 20 63 68 65 63 6b 69 6e 67 s "---- checking
b580: 20 22 20 24 64 69 72 65 63 74 6f 72 79 20 22 2e " $directory ".
b590: 2e 2e 20 22 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 .. "]....
b5a0: 20 73 65 74 20 73 71 6c 20 5b 61 70 70 65 6e 64 set sql [append
b5b0: 41 72 67 73 20 22 50 52 41 47 4d 41 20 22 20 24 Args "PRAGMA " $
b5c0: 64 69 72 65 63 74 6f 72 79 20 5c 3b 5d 0d 0a 0d directory \;]...
b5d0: 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b 63 61 . if {[ca
b5e0: 74 63 68 20 7b 65 78 65 63 75 74 65 53 71 6c 20 tch {executeSql
b5f0: 24 73 71 6c 20 73 63 61 6c 61 72 7d 20 72 65 73 $sql scalar} res
b600: 75 6c 74 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20 ult] == 0} then
b610: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70 75 {.. tpu
b620: 74 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 ts $channel [app
b630: 65 6e 64 41 72 67 73 20 22 6f 6b 3a 20 5c 22 22 endArgs "ok: \""
b640: 20 24 72 65 73 75 6c 74 20 5c 22 5c 6e 5d 0d 0a $result \"\n]..
b650: 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b } else {
b660: 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70 75 74 .. tput
b670: 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 s $channel [appe
b680: 6e 64 41 72 67 73 20 22 65 72 72 6f 72 3a 20 22 ndArgs "error: "
b690: 20 5c 6e 5c 74 20 24 72 65 73 75 6c 74 20 5c 6e \n\t $result \n
b6a0: 5d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 ].. }..
b6b0: 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d }.. }....
b6c0: 0a 20 20 20 20 70 72 6f 63 20 72 75 6e 53 51 4c . proc runSQL
b6d0: 69 74 65 54 65 73 74 50 72 6f 6c 6f 67 75 65 20 iteTestPrologue
b6e0: 7b 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 {} {.. #..
b6f0: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 6b 69 # NOTE: Ski
b700: 70 20 72 75 6e 6e 69 6e 67 20 6f 75 72 20 63 75 p running our cu
b710: 73 74 6f 6d 20 70 72 6f 6c 6f 67 75 65 20 69 66 stom prologue if
b720: 20 74 68 65 20 6d 61 69 6e 20 6f 6e 65 20 68 61 the main one ha
b730: 73 20 62 65 65 6e 20 73 6b 69 70 70 65 64 2e 0d s been skipped..
b740: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 . #..
b750: 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 if {![info exist
b760: 73 20 3a 3a 6e 6f 28 70 72 6f 6c 6f 67 75 65 2e s ::no(prologue.
b770: 65 61 67 6c 65 29 5d 7d 20 74 68 65 6e 20 7b 0d eagle)]} then {.
b780: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #..
b790: 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 6b 69 70 # NOTE: Skip
b7a0: 20 61 6c 6c 20 53 79 73 74 65 6d 2e 44 61 74 61 all System.Data
b7b0: 2e 53 51 4c 69 74 65 20 72 65 6c 61 74 65 64 20 .SQLite related
b7c0: 66 69 6c 65 20 68 61 6e 64 6c 69 6e 67 20 28 64 file handling (d
b7d0: 65 6c 65 74 69 6e 67 2c 0d 0a 20 20 20 20 20 20 eleting,..
b7e0: 20 20 23 20 20 20 20 20 20 20 63 6f 70 79 69 6e # copyin
b7f0: 67 2c 20 61 6e 64 20 6c 6f 61 64 69 6e 67 29 20 g, and loading)
b800: 69 66 20 77 65 20 61 72 65 20 73 6f 20 69 6e 73 if we are so ins
b810: 74 72 75 63 74 65 64 2e 0d 0a 20 20 20 20 20 20 tructed...
b820: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 69 66 20 #.. if
b830: 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a {![info exists :
b840: 3a 6e 6f 28 73 71 6c 69 74 65 46 69 6c 65 73 29 :no(sqliteFiles)
b850: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 ]} then {..
b860: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #..
b870: 20 20 23 20 4e 4f 54 45 3a 20 53 6b 69 70 20 74 # NOTE: Skip t
b880: 72 79 69 6e 67 20 74 6f 20 64 65 6c 65 74 65 20 rying to delete
b890: 61 6e 79 20 66 69 6c 65 73 20 69 66 20 77 65 20 any files if we
b8a0: 61 72 65 20 73 6f 20 69 6e 73 74 72 75 63 74 65 are so instructe
b8b0: 64 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d d... #.
b8c0: 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 21 . if {!
b8d0: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 6e [info exists ::n
b8e0: 6f 28 64 65 6c 65 74 65 53 71 6c 69 74 65 46 69 o(deleteSqliteFi
b8f0: 6c 65 73 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 les)]} then {..
b900: 20 20 20 20 20 20 20 20 20 20 20 74 72 79 44 65 tryDe
b910: 6c 65 74 65 41 73 73 65 6d 62 6c 79 20 73 71 6c leteAssembly sql
b920: 69 74 65 33 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 ite3.dll..
b930: 20 20 20 20 20 20 72 65 6d 6f 76 65 43 6f 6e 73 removeCons
b940: 74 72 61 69 6e 74 20 66 69 6c 65 5f 73 71 6c 69 traint file_sqli
b950: 74 65 33 2e 64 6c 6c 0d 0a 0d 0a 20 20 20 20 20 te3.dll....
b960: 20 20 20 20 20 20 20 74 72 79 44 65 6c 65 74 65 tryDelete
b970: 41 73 73 65 6d 62 6c 79 20 53 51 4c 69 74 65 2e Assembly SQLite.
b980: 49 6e 74 65 72 6f 70 2e 64 6c 6c 0d 0a 20 20 20 Interop.dll..
b990: 20 20 20 20 20 20 20 20 20 72 65 6d 6f 76 65 43 removeC
b9a0: 6f 6e 73 74 72 61 69 6e 74 20 66 69 6c 65 5f 53 onstraint file_S
b9b0: 51 4c 69 74 65 2e 49 6e 74 65 72 6f 70 2e 64 6c QLite.Interop.dl
b9c0: 6c 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 l....
b9d0: 20 74 72 79 44 65 6c 65 74 65 41 73 73 65 6d 62 tryDeleteAssemb
b9e0: 6c 79 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 ly System.Data.S
b9f0: 51 4c 69 74 65 2e 64 6c 6c 0d 0a 20 20 20 20 20 QLite.dll..
ba00: 20 20 20 20 20 20 20 72 65 6d 6f 76 65 43 6f 6e removeCon
ba10: 73 74 72 61 69 6e 74 20 66 69 6c 65 5f 53 79 73 straint file_Sys
ba20: 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e tem.Data.SQLite.
ba30: 64 6c 6c 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 dll....
ba40: 20 20 20 74 72 79 44 65 6c 65 74 65 41 73 73 65 tryDeleteAsse
ba50: 6d 62 6c 79 20 53 79 73 74 65 6d 2e 44 61 74 61 mbly System.Data
ba60: 2e 53 51 4c 69 74 65 2e 4c 69 6e 71 2e 64 6c 6c .SQLite.Linq.dll
ba70: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 .. re
ba80: 6d 6f 76 65 43 6f 6e 73 74 72 61 69 6e 74 20 66 moveConstraint f
ba90: 69 6c 65 5f 53 79 73 74 65 6d 2e 44 61 74 61 2e ile_System.Data.
baa0: 53 51 4c 69 74 65 2e 4c 69 6e 71 2e 64 6c 6c 0d SQLite.Linq.dll.
bab0: 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a . }....
bac0: 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 #..
bad0: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 # NOTE: S
bae0: 6b 69 70 20 74 72 79 69 6e 67 20 74 6f 20 63 6f kip trying to co
baf0: 70 79 20 61 6e 79 20 66 69 6c 65 73 20 69 66 20 py any files if
bb00: 77 65 20 61 72 65 20 73 6f 20 69 6e 73 74 72 75 we are so instru
bb10: 63 74 65 64 2e 0d 0a 20 20 20 20 20 20 20 20 20 cted...
bb20: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66 #.. if
bb30: 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 {![info exists
bb40: 3a 3a 6e 6f 28 63 6f 70 79 53 71 6c 69 74 65 46 ::no(copySqliteF
bb50: 69 6c 65 73 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a iles)]} then {..
bb60: 20 20 20 20 20 20 20 20 20 20 20 20 74 72 79 43 tryC
bb70: 6f 70 79 41 73 73 65 6d 62 6c 79 20 73 71 6c 69 opyAssembly sqli
bb80: 74 65 33 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 20 te3.dll..
bb90: 20 20 20 20 20 74 72 79 43 6f 70 79 41 73 73 65 tryCopyAsse
bba0: 6d 62 6c 79 20 53 51 4c 69 74 65 2e 49 6e 74 65 mbly SQLite.Inte
bbb0: 72 6f 70 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 20 rop.dll..
bbc0: 20 20 20 20 20 74 72 79 43 6f 70 79 41 73 73 65 tryCopyAsse
bbd0: 6d 62 6c 79 20 53 79 73 74 65 6d 2e 44 61 74 61 mbly System.Data
bbe0: 2e 53 51 4c 69 74 65 2e 64 6c 6c 0d 0a 20 20 20 .SQLite.dll..
bbf0: 20 20 20 20 20 20 20 20 20 74 72 79 43 6f 70 79 tryCopy
bc00: 41 73 73 65 6d 62 6c 79 20 53 79 73 74 65 6d 2e Assembly System.
bc10: 44 61 74 61 2e 53 51 4c 69 74 65 2e 4c 69 6e 71 Data.SQLite.Linq
bc20: 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 20 20 20 20 .dll..
bc30: 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 23 }.... #
bc40: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f .. # NO
bc50: 54 45 3a 20 53 6b 69 70 20 74 72 79 69 6e 67 20 TE: Skip trying
bc60: 74 6f 20 6c 6f 61 64 20 61 6e 79 20 66 69 6c 65 to load any file
bc70: 73 20 69 66 20 77 65 20 61 72 65 20 73 6f 20 69 s if we are so i
bc80: 6e 73 74 72 75 63 74 65 64 2e 0d 0a 20 20 20 20 nstructed...
bc90: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
bca0: 20 20 20 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 if {![info ex
bcb0: 69 73 74 73 20 3a 3a 6e 6f 28 6c 6f 61 64 53 71 ists ::no(loadSq
bcc0: 6c 69 74 65 46 69 6c 65 73 29 5d 7d 20 74 68 65 liteFiles)]} the
bcd0: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 n {..
bce0: 20 74 72 79 4c 6f 61 64 41 73 73 65 6d 62 6c 79 tryLoadAssembly
bcf0: 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c System.Data.SQL
bd00: 69 74 65 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 20 ite.dll..
bd10: 20 20 20 20 20 74 72 79 4c 6f 61 64 41 73 73 65 tryLoadAsse
bd20: 6d 62 6c 79 20 53 79 73 74 65 6d 2e 44 61 74 61 mbly System.Data
bd30: 2e 53 51 4c 69 74 65 2e 4c 69 6e 71 2e 64 6c 6c .SQLite.Linq.dll
bd40: 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 .. }..
bd50: 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 }....
bd60: 20 20 20 20 63 61 74 63 68 20 7b 0d 0a 20 20 20 catch {..
bd70: 20 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a tputs $::
bd80: 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 test_channel [ap
bd90: 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 pendArgs \..
bda0: 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 "----
bdb0: 66 69 6c 65 20 76 65 72 73 69 6f 6e 20 6f 66 20 file version of
bdc0: 5c 22 73 71 6c 69 74 65 33 2e 64 6c 6c 5c 22 2e \"sqlite3.dll\".
bdd0: 2e 2e 20 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 .. " \..
bde0: 20 20 20 20 20 20 5b 66 69 6c 65 20 76 65 72 73 [file vers
bdf0: 69 6f 6e 20 5b 67 65 74 42 69 6e 61 72 79 46 69 ion [getBinaryFi
be00: 6c 65 4e 61 6d 65 20 73 71 6c 69 74 65 33 2e 64 leName sqlite3.d
be10: 6c 6c 5d 5d 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 ll]] \n]..
be20: 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 63 }.... c
be30: 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 atch {..
be40: 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f tputs $::test_
be50: 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 channel [appendA
be60: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 rgs \..
be70: 20 20 20 20 20 22 2d 2d 2d 2d 20 66 69 6c 65 20 "---- file
be80: 76 65 72 73 69 6f 6e 20 6f 66 20 5c 22 53 51 4c version of \"SQL
be90: 69 74 65 2e 49 6e 74 65 72 6f 70 2e 64 6c 6c 5c ite.Interop.dll\
bea0: 22 2e 2e 2e 20 22 20 5c 0d 0a 20 20 20 20 20 20 "... " \..
beb0: 20 20 20 20 20 20 20 20 5b 66 69 6c 65 20 76 65 [file ve
bec0: 72 73 69 6f 6e 20 5b 67 65 74 42 69 6e 61 72 79 rsion [getBinary
bed0: 46 69 6c 65 4e 61 6d 65 20 53 51 4c 69 74 65 2e FileName SQLite.
bee0: 49 6e 74 65 72 6f 70 2e 64 6c 6c 5d 5d 20 5c 6e Interop.dll]] \n
bef0: 5d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a ].. }....
bf00: 20 20 20 20 20 20 20 20 63 61 74 63 68 20 7b 0d catch {.
bf10: 0a 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 . tputs
bf20: 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c $::test_channel
bf30: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a [appendArgs \..
bf40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2d "-
bf50: 2d 2d 2d 20 66 69 6c 65 20 76 65 72 73 69 6f 6e --- file version
bf60: 20 6f 66 20 5c 22 53 79 73 74 65 6d 2e 44 61 74 of \"System.Dat
bf70: 61 2e 53 51 4c 69 74 65 2e 64 6c 6c 5c 22 2e 2e a.SQLite.dll\"..
bf80: 2e 20 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 . " \..
bf90: 20 20 20 20 20 5b 66 69 6c 65 20 76 65 72 73 69 [file versi
bfa0: 6f 6e 20 5b 67 65 74 42 69 6e 61 72 79 46 69 6c on [getBinaryFil
bfb0: 65 4e 61 6d 65 20 53 79 73 74 65 6d 2e 44 61 74 eName System.Dat
bfc0: 61 2e 53 51 4c 69 74 65 2e 64 6c 6c 5d 5d 20 5c a.SQLite.dll]] \
bfd0: 6e 5d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d n].. }...
bfe0: 0a 20 20 20 20 20 20 20 20 63 61 74 63 68 20 7b . catch {
bff0: 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70 75 74 .. tput
c000: 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 s $::test_channe
c010: 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d l [appendArgs \.
c020: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 . "
c030: 2d 2d 2d 2d 20 66 69 6c 65 20 76 65 72 73 69 6f ---- file versio
c040: 6e 20 6f 66 20 5c 22 53 79 73 74 65 6d 2e 44 61 n of \"System.Da
c050: 74 61 2e 53 51 4c 69 74 65 2e 4c 69 6e 71 2e 64 ta.SQLite.Linq.d
c060: 6c 6c 5c 22 2e 2e 2e 20 22 20 5c 0d 0a 20 20 20 ll\"... " \..
c070: 20 20 20 20 20 20 20 20 20 20 20 5b 66 69 6c 65 [file
c080: 20 76 65 72 73 69 6f 6e 20 5b 67 65 74 42 69 6e version [getBin
c090: 61 72 79 46 69 6c 65 4e 61 6d 65 20 53 79 73 74 aryFileName Syst
c0a0: 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 4c em.Data.SQLite.L
c0b0: 69 6e 71 2e 64 6c 6c 5d 5d 20 5c 6e 5d 0d 0a 20 inq.dll]] \n]..
c0c0: 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 }....
c0d0: 20 20 20 20 73 65 74 20 61 73 73 65 6d 62 6c 69 set assembli
c0e0: 65 73 20 5b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b es [object invok
c0f0: 65 20 41 70 70 44 6f 6d 61 69 6e 2e 43 75 72 72 e AppDomain.Curr
c100: 65 6e 74 44 6f 6d 61 69 6e 20 47 65 74 41 73 73 entDomain GetAss
c110: 65 6d 62 6c 69 65 73 5d 0d 0a 0d 0a 20 20 20 20 emblies]....
c120: 20 20 20 20 6f 62 6a 65 63 74 20 66 6f 72 65 61 object forea
c130: 63 68 20 61 73 73 65 6d 62 6c 79 20 24 61 73 73 ch assembly $ass
c140: 65 6d 62 6c 69 65 73 20 7b 0d 0a 20 20 20 20 20 emblies {..
c150: 20 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 if {[string
c160: 20 6d 61 74 63 68 20 5c 7b 53 79 73 74 65 6d 2e match \{System.
c170: 44 61 74 61 2e 53 51 4c 69 74 65 2a 20 24 61 73 Data.SQLite* $as
c180: 73 65 6d 62 6c 79 5d 7d 20 74 68 65 6e 20 7b 0d sembly]} then {.
c190: 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 70 75 . tpu
c1a0: 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e ts $::test_chann
c1b0: 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c el [appendArgs \
c1c0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
c1d0: 20 20 22 2d 2d 2d 2d 20 66 6f 75 6e 64 20 61 73 "---- found as
c1e0: 73 65 6d 62 6c 79 3a 20 22 20 24 61 73 73 65 6d sembly: " $assem
c1f0: 62 6c 79 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 bly \n]..
c200: 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d }.. }.
c210: 0a 0d 0a 20 20 20 20 20 20 20 20 63 61 74 63 68 ... catch
c220: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70 {.. tp
c230: 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e uts $::test_chan
c240: 6e 65 6c 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 nel \..
c250: 20 20 20 20 20 22 2d 2d 2d 2d 20 64 65 66 69 6e "---- defin
c260: 65 20 63 6f 6e 73 74 61 6e 74 73 20 66 6f 72 20 e constants for
c270: 5c 22 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 \"System.Data.SQ
c280: 4c 69 74 65 5c 22 2e 2e 2e 20 22 0d 0a 0d 0a 20 Lite\"... "....
c290: 20 20 20 20 20 20 20 20 20 69 66 20 7b 5b 63 61 if {[ca
c2a0: 74 63 68 20 7b 6f 62 6a 65 63 74 20 69 6e 76 6f tch {object invo
c2b0: 6b 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 ke -flags +NonPu
c2c0: 62 6c 69 63 20 5c 0d 0a 20 20 20 20 20 20 20 20 blic \..
c2d0: 20 20 20 20 20 20 20 20 20 20 53 79 73 74 65 6d System
c2e0: 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 53 51 4c .Data.SQLite.SQL
c2f0: 69 74 65 33 20 44 65 66 69 6e 65 43 6f 6e 73 74 ite3 DefineConst
c300: 61 6e 74 73 7d 20 5c 0d 0a 20 20 20 20 20 20 20 ants} \..
c310: 20 20 20 20 20 20 20 20 20 20 20 64 65 66 69 6e defin
c320: 65 43 6f 6e 73 74 61 6e 74 73 5d 20 3d 3d 20 30 eConstants] == 0
c330: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {..
c340: 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 tputs $::t
c350: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 est_channel [app
c360: 65 6e 64 41 72 67 73 20 5b 66 6f 72 6d 61 74 4c endArgs [formatL
c370: 69 73 74 20 5b 6c 73 6f 72 74 20 5c 0d 0a 20 20 ist [lsort \..
c380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 64 $d
c390: 65 66 69 6e 65 43 6f 6e 73 74 61 6e 74 73 5d 5d efineConstants]]
c3a0: 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 \n]..
c3b0: 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 } else {..
c3c0: 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 tputs $::t
c3d0: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 75 6e 6b 6e est_channel unkn
c3e0: 6f 77 6e 5c 6e 0d 0a 20 20 20 20 20 20 20 20 20 own\n..
c3f0: 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d }.. }...
c400: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #..
c410: 20 20 20 20 23 20 4e 4f 54 45 3a 20 4e 6f 77 2c # NOTE: Now,
c420: 20 77 65 20 6e 65 65 64 20 74 6f 20 6b 6e 6f 77 we need to know
c430: 20 69 66 20 74 68 65 20 53 51 4c 69 74 65 20 63 if the SQLite c
c440: 6f 72 65 20 6c 69 62 72 61 72 79 20 69 73 20 61 ore library is a
c450: 76 61 69 6c 61 62 6c 65 0d 0a 20 20 20 20 20 20 vailable..
c460: 20 20 23 20 20 20 20 20 20 20 28 69 2e 65 2e 20 # (i.e.
c470: 62 65 63 61 75 73 65 20 74 68 65 20 6d 61 6e 61 because the mana
c480: 67 65 64 2d 6f 6e 6c 79 20 53 79 73 74 65 6d 2e ged-only System.
c490: 44 61 74 61 2e 53 51 4c 69 74 65 20 61 73 73 65 Data.SQLite asse
c4a0: 6d 62 6c 79 20 63 61 6e 0d 0a 20 20 20 20 20 20 mbly can..
c4b0: 20 20 23 20 20 20 20 20 20 20 6c 6f 61 64 20 77 # load w
c4c0: 69 74 68 6f 75 74 20 69 74 3b 20 68 6f 77 65 76 ithout it; howev
c4d0: 65 72 2c 20 69 74 20 63 61 6e 6e 6f 74 20 64 6f er, it cannot do
c4e0: 20 61 6e 79 74 68 69 6e 67 20 75 73 65 66 75 6c anything useful
c4f0: 20 77 69 74 68 6f 75 74 0d 0a 20 20 20 20 20 20 without..
c500: 20 20 23 20 20 20 20 20 20 20 69 74 29 2e 20 20 # it).
c510: 49 66 20 77 65 20 61 72 65 20 75 73 69 6e 67 20 If we are using
c520: 74 68 65 20 6d 69 78 65 64 2d 6d 6f 64 65 20 61 the mixed-mode a
c530: 73 73 65 6d 62 6c 79 20 61 6e 64 20 77 65 20 61 ssembly and we a
c540: 6c 72 65 61 64 79 0d 0a 20 20 20 20 20 20 20 20 lready..
c550: 23 20 20 20 20 20 20 20 66 6f 75 6e 64 20 69 74 # found it
c560: 20 28 61 62 6f 76 65 29 2c 20 74 68 69 73 20 73 (above), this s
c570: 68 6f 75 6c 64 20 61 6c 77 61 79 73 20 73 75 63 hould always suc
c580: 63 65 65 64 2e 0d 0a 20 20 20 20 20 20 20 20 23 ceed... #
c590: 0d 0a 20 20 20 20 20 20 20 20 63 68 65 63 6b 46 .. checkF
c5a0: 6f 72 53 51 4c 69 74 65 20 24 3a 3a 74 65 73 74 orSQLite $::test
c5b0: 5f 63 68 61 6e 6e 65 6c 0d 0a 0d 0a 20 20 20 20 _channel....
c5c0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 #.. #
c5d0: 20 4e 4f 54 45 3a 20 43 68 65 63 6b 20 74 68 65 NOTE: Check the
c5e0: 20 53 51 4c 69 74 65 20 64 61 74 61 62 61 73 65 SQLite database
c5f0: 20 61 6e 64 20 74 65 6d 70 6f 72 61 72 79 20 64 and temporary d
c600: 69 72 65 63 74 6f 72 69 65 73 2e 0d 0a 20 20 20 irectories...
c610: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #..
c620: 63 68 65 63 6b 46 6f 72 53 51 4c 69 74 65 44 69 checkForSQLiteDi
c630: 72 65 63 74 6f 72 69 65 73 20 24 3a 3a 74 65 73 rectories $::tes
c640: 74 5f 63 68 61 6e 6e 65 6c 0d 0a 0d 0a 20 20 20 t_channel....
c650: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #..
c660: 23 20 4e 4f 54 45 3a 20 41 74 74 65 6d 70 74 20 # NOTE: Attempt
c670: 74 6f 20 64 65 74 65 72 6d 69 6e 65 20 69 66 20 to determine if
c680: 74 68 65 20 63 75 73 74 6f 6d 20 65 78 74 65 6e the custom exten
c690: 73 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 73 20 77 sion functions w
c6a0: 65 72 65 0d 0a 20 20 20 20 20 20 20 20 23 20 20 ere.. #
c6b0: 20 20 20 20 20 63 6f 6d 70 69 6c 65 64 20 69 6e compiled in
c6c0: 74 6f 20 74 68 65 20 53 51 4c 69 74 65 20 69 6e to the SQLite in
c6d0: 74 65 72 6f 70 20 61 73 73 65 6d 62 6c 79 2e 0d terop assembly..
c6e0: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #..
c6f0: 20 20 20 20 63 68 65 63 6b 46 6f 72 53 51 4c 69 checkForSQLi
c700: 74 65 44 65 66 69 6e 65 43 6f 6e 73 74 61 6e 74 teDefineConstant
c710: 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c $::test_channel
c720: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \..
c730: 43 48 45 43 4b 5f 53 54 41 54 45 0d 0a 0d 0a 20 CHECK_STATE....
c740: 20 20 20 20 20 20 20 63 68 65 63 6b 46 6f 72 53 checkForS
c750: 51 4c 69 74 65 44 65 66 69 6e 65 43 6f 6e 73 74 QLiteDefineConst
c760: 61 6e 74 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e ant $::test_chan
c770: 6e 65 6c 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 nel \..
c780: 20 20 20 55 53 45 5f 49 4e 54 45 52 4f 50 5f 44 USE_INTEROP_D
c790: 4c 4c 0d 0a 0d 0a 20 20 20 20 20 20 20 20 63 68 LL.... ch
c7a0: 65 63 6b 46 6f 72 53 51 4c 69 74 65 44 65 66 69 eckForSQLiteDefi
c7b0: 6e 65 43 6f 6e 73 74 61 6e 74 20 24 3a 3a 74 65 neConstant $::te
c7c0: 73 74 5f 63 68 61 6e 6e 65 6c 20 5c 0d 0a 20 20 st_channel \..
c7d0: 20 20 20 20 20 20 20 20 20 20 49 4e 54 45 52 4f INTERO
c7e0: 50 5f 45 58 54 45 4e 53 49 4f 4e 5f 46 55 4e 43 P_EXTENSION_FUNC
c7f0: 54 49 4f 4e 53 0d 0a 0d 0a 20 20 20 20 20 20 20 TIONS....
c800: 20 63 68 65 63 6b 46 6f 72 53 51 4c 69 74 65 44 checkForSQLiteD
c810: 65 66 69 6e 65 43 6f 6e 73 74 61 6e 74 20 24 3a efineConstant $:
c820: 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5c 0d :test_channel \.
c830: 0a 20 20 20 20 20 20 20 20 20 20 20 20 49 4e 54 . INT
c840: 45 52 4f 50 5f 54 45 53 54 5f 45 58 54 45 4e 53 EROP_TEST_EXTENS
c850: 49 4f 4e 0d 0a 0d 0a 20 20 20 20 20 20 20 20 63 ION.... c
c860: 68 65 63 6b 46 6f 72 53 51 4c 69 74 65 44 65 66 heckForSQLiteDef
c870: 69 6e 65 43 6f 6e 73 74 61 6e 74 20 24 3a 3a 74 ineConstant $::t
c880: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5c 0d 0a 20 est_channel \..
c890: 20 20 20 20 20 20 20 20 20 20 20 53 51 4c 49 54 SQLIT
c8a0: 45 5f 53 54 41 4e 44 41 52 44 0d 0a 0d 0a 20 20 E_STANDARD....
c8b0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
c8c0: 20 23 20 4e 4f 54 45 3a 20 43 68 65 63 6b 20 74 # NOTE: Check t
c8d0: 68 65 20 63 75 72 72 65 6e 74 20 62 75 69 6c 64 he current build
c8e0: 20 79 65 61 72 2e 20 20 42 61 73 69 63 61 6c 6c year. Basicall
c8f0: 79 2c 20 74 68 69 73 20 69 6e 64 69 63 61 74 65 y, this indicate
c900: 73 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 s.. #
c910: 20 20 20 77 68 69 63 68 20 76 65 72 73 69 6f 6e which version
c920: 20 6f 66 20 4d 53 42 75 69 6c 64 20 61 6e 64 2f of MSBuild and/
c930: 6f 72 20 56 69 73 75 61 6c 20 53 74 75 64 69 6f or Visual Studio
c940: 20 77 61 73 20 75 73 65 64 20 74 6f 0d 0a 20 20 was used to..
c950: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 63 6f # co
c960: 6d 70 69 6c 65 20 74 68 65 20 61 73 73 65 6d 62 mpile the assemb
c970: 6c 79 20 62 69 6e 61 72 69 65 73 20 75 6e 64 65 ly binaries unde
c980: 72 20 74 65 73 74 2e 0d 0a 20 20 20 20 20 20 20 r test...
c990: 20 23 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 #.. tput
c9a0: 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 s $::test_channe
c9b0: 6c 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 l \..
c9c0: 20 22 2d 2d 2d 2d 20 63 68 65 63 6b 69 6e 67 20 "---- checking
c9d0: 66 6f 72 20 53 79 73 74 65 6d 2e 44 61 74 61 2e for System.Data.
c9e0: 53 51 4c 69 74 65 20 62 75 69 6c 64 20 79 65 61 SQLite build yea
c9f0: 72 2e 2e 2e 20 22 0d 0a 0d 0a 20 20 20 20 20 20 r... "....
ca00: 20 20 73 65 74 20 79 65 61 72 20 5b 67 65 74 42 set year [getB
ca10: 75 69 6c 64 59 65 61 72 5d 0d 0a 20 20 20 20 20 uildYear]..
ca20: 20 20 20 61 64 64 43 6f 6e 73 74 72 61 69 6e 74 addConstraint
ca30: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 62 75 69 [appendArgs bui
ca40: 6c 64 59 65 61 72 20 24 79 65 61 72 5d 0d 0a 20 ldYear $year]..
ca50: 20 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a tputs $::
ca60: 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 test_channel [ap
ca70: 70 65 6e 64 41 72 67 73 20 5c 22 20 24 79 65 61 pendArgs \" $yea
ca80: 72 20 5c 22 5c 6e 5d 0d 0a 0d 0a 20 20 20 20 20 r \"\n]....
ca90: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 #.. #
caa0: 4e 4f 54 45 3a 20 43 68 65 63 6b 20 74 68 65 20 NOTE: Check the
cab0: 63 75 72 72 65 6e 74 20 62 75 69 6c 64 20 63 6f current build co
cac0: 6e 66 69 67 75 72 61 74 69 6f 6e 2e 20 20 54 68 nfiguration. Th
cad0: 69 73 20 73 68 6f 75 6c 64 20 6e 6f 72 6d 61 6c is should normal
cae0: 6c 79 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 ly.. #
caf0: 20 20 20 20 62 65 20 65 69 74 68 65 72 20 22 44 be either "D
cb00: 65 62 75 67 22 20 6f 72 20 22 52 65 6c 65 61 73 ebug" or "Releas
cb10: 65 22 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a e"... #..
cb20: 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 3a tputs $:
cb30: 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5c 0d :test_channel \.
cb40: 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d . "--
cb50: 2d 2d 20 63 68 65 63 6b 69 6e 67 20 66 6f 72 20 -- checking for
cb60: 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 System.Data.SQLi
cb70: 74 65 20 62 75 69 6c 64 20 63 6f 6e 66 69 67 75 te build configu
cb80: 72 61 74 69 6f 6e 2e 2e 2e 20 22 0d 0a 0d 0a 20 ration... "....
cb90: 20 20 20 20 20 20 20 73 65 74 20 63 6f 6e 66 69 set confi
cba0: 67 75 72 61 74 69 6f 6e 20 5b 67 65 74 42 75 69 guration [getBui
cbb0: 6c 64 43 6f 6e 66 69 67 75 72 61 74 69 6f 6e 5d ldConfiguration]
cbc0: 0d 0a 20 20 20 20 20 20 20 20 61 64 64 43 6f 6e .. addCon
cbd0: 73 74 72 61 69 6e 74 20 5b 61 70 70 65 6e 64 41 straint [appendA
cbe0: 72 67 73 20 62 75 69 6c 64 43 6f 6e 66 69 67 75 rgs buildConfigu
cbf0: 72 61 74 69 6f 6e 20 24 63 6f 6e 66 69 67 75 72 ration $configur
cc00: 61 74 69 6f 6e 5d 0d 0a 20 20 20 20 20 20 20 20 ation]..
cc10: 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 tputs $::test_ch
cc20: 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 annel [appendArg
cc30: 73 20 5c 22 20 24 63 6f 6e 66 69 67 75 72 61 74 s \" $configurat
cc40: 69 6f 6e 20 5c 22 5c 6e 5d 0d 0a 0d 0a 20 20 20 ion \"\n]....
cc50: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #..
cc60: 23 20 4e 4f 54 45 3a 20 43 68 65 63 6b 20 66 6f # NOTE: Check fo
cc70: 72 20 74 68 65 20 6e 61 74 69 76 65 20 72 75 6e r the native run
cc80: 74 69 6d 65 20 6f 70 74 69 6f 6e 2c 20 77 68 69 time option, whi
cc90: 63 68 20 77 6f 75 6c 64 20 6d 65 61 6e 20 77 65 ch would mean we
cca0: 20 61 72 65 0d 0a 20 20 20 20 20 20 20 20 23 20 are.. #
ccb0: 20 20 20 20 20 20 75 73 69 6e 67 20 74 68 65 20 using the
ccc0: 6d 69 78 65 64 2d 6d 6f 64 65 20 61 73 73 65 6d mixed-mode assem
ccd0: 62 6c 79 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d bly... #.
cce0: 0a 20 20 20 20 20 20 20 20 63 68 65 63 6b 46 6f . checkFo
ccf0: 72 52 75 6e 74 69 6d 65 4f 70 74 69 6f 6e 20 24 rRuntimeOption $
cd00: 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 6e ::test_channel n
cd10: 61 74 69 76 65 0d 0a 0d 0a 20 20 20 20 20 20 20 ative....
cd20: 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f #.. # NO
cd30: 54 45 3a 20 52 65 70 6f 72 74 20 74 68 65 20 72 TE: Report the r
cd40: 65 73 6f 75 72 63 65 20 75 73 61 67 65 20 70 72 esource usage pr
cd50: 69 6f 72 20 74 6f 20 72 75 6e 6e 69 6e 67 20 61 ior to running a
cd60: 6e 79 20 74 65 73 74 73 2e 0d 0a 20 20 20 20 20 ny tests...
cd70: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 72 65 #.. re
cd80: 70 6f 72 74 53 51 4c 69 74 65 52 65 73 6f 75 72 portSQLiteResour
cd90: 63 65 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e ces $::test_chan
cda0: 6e 65 6c 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 nel.... #
cdb0: 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 .. # NOTE
cdc0: 3a 20 53 68 6f 77 20 74 68 65 20 61 63 74 69 76 : Show the activ
cdd0: 65 20 74 65 73 74 20 63 6f 6e 73 74 72 61 69 6e e test constrain
cde0: 74 73 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a ts... #..
cdf0: 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 3a tputs $:
ce00: 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 :test_channel [a
ce10: 70 70 65 6e 64 41 72 67 73 20 22 2d 2d 2d 2d 20 ppendArgs "----
ce20: 63 6f 6e 73 74 72 61 69 6e 74 73 3a 20 22 20 5c constraints: " \
ce30: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 5b 66 .. [f
ce40: 6f 72 6d 61 74 4c 69 73 74 20 5b 6c 73 6f 72 74 ormatList [lsort
ce50: 20 5b 67 65 74 43 6f 6e 73 74 72 61 69 6e 74 73 [getConstraints
ce60: 5d 5d 5d 20 5c 6e 5d 0d 0a 0d 0a 20 20 20 20 20 ]]] \n]....
ce70: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 #.. #
ce80: 4e 4f 54 45 3a 20 53 68 6f 77 20 77 68 65 6e 20 NOTE: Show when
ce90: 6f 75 72 20 74 65 73 74 73 20 61 63 74 75 61 6c our tests actual
cea0: 6c 79 20 62 65 67 61 6e 20 28 6e 6f 77 29 2e 0d ly began (now)..
ceb0: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #..
cec0: 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 tputs $::tes
ced0: 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e t_channel [appen
cee0: 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 dArgs \..
cef0: 20 20 20 20 20 22 2d 2d 2d 2d 20 53 79 73 74 65 "---- Syste
cf00: 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 20 74 65 m.Data.SQLite te
cf10: 73 74 73 20 62 65 67 61 6e 20 61 74 20 22 20 5c sts began at " \
cf20: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 5b 63 .. [c
cf30: 6c 6f 63 6b 20 66 6f 72 6d 61 74 20 5b 63 6c 6f lock format [clo
cf40: 63 6b 20 73 65 63 6f 6e 64 73 5d 5d 20 5c 6e 5d ck seconds]] \n]
cf50: 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d .. }.. }
cf60: 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 72 75 ..... proc ru
cf70: 6e 53 51 4c 69 74 65 54 65 73 74 45 70 69 6c 6f nSQLiteTestEpilo
cf80: 67 75 65 20 7b 7d 20 7b 0d 0a 20 20 20 20 20 20 gue {} {..
cf90: 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a #.. # NOTE:
cfa0: 20 53 6b 69 70 20 72 75 6e 6e 69 6e 67 20 6f 75 Skip running ou
cfb0: 72 20 63 75 73 74 6f 6d 20 65 70 69 6c 6f 67 75 r custom epilogu
cfc0: 65 20 69 66 20 74 68 65 20 6d 61 69 6e 20 6f 6e e if the main on
cfd0: 65 20 68 61 73 20 62 65 65 6e 20 73 6b 69 70 70 e has been skipp
cfe0: 65 64 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 ed... #..
cff0: 20 20 20 20 69 66 20 7b 21 5b 69 6e 66 6f 20 65 if {![info e
d000: 78 69 73 74 73 20 3a 3a 6e 6f 28 65 70 69 6c 6f xists ::no(epilo
d010: 67 75 65 2e 65 61 67 6c 65 29 5d 7d 20 74 68 65 gue.eagle)]} the
d020: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a n {.. #..
d030: 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 # NOTE:
d040: 53 68 6f 77 20 77 68 65 6e 20 6f 75 72 20 74 65 Show when our te
d050: 73 74 73 20 61 63 74 75 61 6c 6c 79 20 65 6e 64 sts actually end
d060: 65 64 20 28 6e 6f 77 29 2e 0d 0a 20 20 20 20 20 ed (now)...
d070: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 74 70 #.. tp
d080: 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e uts $::test_chan
d090: 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 nel [appendArgs
d0a0: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 \.. "
d0b0: 2d 2d 2d 2d 20 53 79 73 74 65 6d 2e 44 61 74 61 ---- System.Data
d0c0: 2e 53 51 4c 69 74 65 20 74 65 73 74 73 20 65 6e .SQLite tests en
d0d0: 64 65 64 20 61 74 20 22 20 5c 0d 0a 20 20 20 20 ded at " \..
d0e0: 20 20 20 20 20 20 20 20 5b 63 6c 6f 63 6b 20 66 [clock f
d0f0: 6f 72 6d 61 74 20 5b 63 6c 6f 63 6b 20 73 65 63 ormat [clock sec
d100: 6f 6e 64 73 5d 5d 20 5c 6e 5d 0d 0a 0d 0a 20 20 onds]] \n]....
d110: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
d120: 20 23 20 4e 4f 54 45 3a 20 41 6c 73 6f 20 72 65 # NOTE: Also re
d130: 70 6f 72 74 20 74 68 65 20 72 65 73 6f 75 72 63 port the resourc
d140: 65 20 75 73 61 67 65 20 61 66 74 65 72 20 72 75 e usage after ru
d150: 6e 6e 69 6e 67 20 74 68 65 20 74 65 73 74 73 2e nning the tests.
d160: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #..
d170: 20 20 20 20 20 72 65 70 6f 72 74 53 51 4c 69 74 reportSQLit
d180: 65 52 65 73 6f 75 72 63 65 73 20 24 3a 3a 74 65 eResources $::te
d190: 73 74 5f 63 68 61 6e 6e 65 6c 0d 0a 20 20 20 20 st_channel..
d1a0: 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 }.. }.....
d1b0: 20 20 20 23 23 23 23 23 23 23 23 23 23 23 23 23 #############
d1c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
d1d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
d1e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
d1f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a ##############..
d200: 20 20 20 20 23 23 23 23 23 23 23 23 23 23 23 23 ############
d210: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
d220: 23 20 45 4e 44 20 45 61 67 6c 65 20 4f 4e 4c 59 # END Eagle ONLY
d230: 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ###############
d240: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d ###############.
d250: 0a 20 20 20 20 23 23 23 23 23 23 23 23 23 23 23 . ###########
d260: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
d270: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
d280: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
d290: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
d2a0: 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 23 0d 0a 20 20 .. }.... #..
d2b0: 23 20 4e 4f 54 45 3a 20 53 61 76 65 20 74 68 65 # NOTE: Save the
d2c0: 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 64 69 72 name of the dir
d2d0: 65 63 74 6f 72 79 20 63 6f 6e 74 61 69 6e 69 6e ectory containin
d2e0: 67 20 74 68 69 73 20 66 69 6c 65 2e 0d 0a 20 20 g this file...
d2f0: 23 0d 0a 20 20 69 66 20 7b 21 5b 69 6e 66 6f 20 #.. if {![info
d300: 65 78 69 73 74 73 20 3a 3a 63 6f 6d 6d 6f 6e 5f exists ::common_
d310: 64 69 72 65 63 74 6f 72 79 5d 7d 20 74 68 65 6e directory]} then
d320: 20 7b 0d 0a 20 20 20 20 73 65 74 20 3a 3a 63 6f {.. set ::co
d330: 6d 6d 6f 6e 5f 64 69 72 65 63 74 6f 72 79 20 5b mmon_directory [
d340: 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 5b 69 6e file dirname [in
d350: 66 6f 20 73 63 72 69 70 74 5d 5d 0d 0a 20 20 7d fo script]].. }
d360: 0d 0a 0d 0a 20 20 23 0d 0a 20 20 23 20 4e 4f 54 .... #.. # NOT
d370: 45 3a 20 50 72 6f 76 69 64 65 20 74 68 65 20 53 E: Provide the S
d380: 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 ystem.Data.SQLit
d390: 65 20 74 65 73 74 20 70 61 63 6b 61 67 65 20 74 e test package t
d3a0: 6f 20 74 68 65 20 69 6e 74 65 72 70 72 65 74 65 o the interprete
d3b0: 72 2e 0d 0a 20 20 23 0d 0a 20 20 70 61 63 6b 61 r... #.. packa
d3c0: 67 65 20 70 72 6f 76 69 64 65 20 53 79 73 74 65 ge provide Syste
d3d0: 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 54 65 m.Data.SQLite.Te
d3e0: 73 74 20 31 2e 30 0d 0a 7d 0d 0a st 1.0..}..