System.Data.SQLite
Hex Artifact Content
Not logged in

Artifact 33046b6105c20daa63e4d46f9deb531b96138536:


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