System.Data.SQLite
Hex Artifact Content
Not logged in

Artifact 36bcbf108b98ffb1d8d00d7281ad614afdac3c5c:


0000: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0010: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0020: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0030: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0040: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d  ###############.
0050: 0a 23 0d 0a 23 20 63 6f 6d 6d 6f 6e 2e 65 61 67  .#..# common.eag
0060: 6c 65 20 2d 2d 0d 0a 23 0d 0a 23 20 57 72 69 74  le --..#..# Writ
0070: 74 65 6e 20 62 79 20 4a 6f 65 20 4d 69 73 74 61  ten by Joe Mista
0080: 63 68 6b 69 6e 2e 0d 0a 23 20 52 65 6c 65 61 73  chkin...# Releas
0090: 65 64 20 74 6f 20 74 68 65 20 70 75 62 6c 69 63  ed to the public
00a0: 20 64 6f 6d 61 69 6e 2c 20 75 73 65 20 61 74 20   domain, use at 
00b0: 79 6f 75 72 20 6f 77 6e 20 72 69 73 6b 21 0d 0a  your own risk!..
00c0: 23 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23 23  #..#############
00d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
00e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
00f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0100: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0110: 23 23 0d 0a 0d 0a 23 0d 0a 23 20 4e 4f 54 45 3a  ##....#..# NOTE:
0120: 20 55 73 65 20 6f 75 72 20 6f 77 6e 20 6e 61 6d   Use our own nam
0130: 65 73 70 61 63 65 20 68 65 72 65 20 62 65 63 61  espace here beca
0140: 75 73 65 20 65 76 65 6e 20 74 68 6f 75 67 68 20  use even though 
0150: 77 65 20 64 6f 20 6e 6f 74 20 64 69 72 65 63 74  we do not direct
0160: 6c 79 0d 0a 23 20 20 20 20 20 20 20 73 75 70 70  ly..#       supp
0170: 6f 72 74 20 6e 61 6d 65 73 70 61 63 65 73 20 6f  ort namespaces o
0180: 75 72 73 65 6c 76 65 73 2c 20 77 65 20 64 6f 20  urselves, we do 
0190: 6e 6f 74 20 77 61 6e 74 20 74 6f 20 70 6f 6c 6c  not want to poll
01a0: 75 74 65 20 74 68 65 20 67 6c 6f 62 61 6c 0d 0a  ute the global..
01b0: 23 20 20 20 20 20 20 20 6e 61 6d 65 73 70 61 63  #       namespac
01c0: 65 20 69 66 20 74 68 69 73 20 73 63 72 69 70 74  e if this script
01d0: 20 61 63 74 75 61 6c 6c 79 20 65 6e 64 73 20 75   actually ends u
01e0: 70 20 62 65 69 6e 67 20 65 76 61 6c 75 61 74 65  p being evaluate
01f0: 64 20 69 6e 20 54 63 6c 2e 0d 0a 23 0d 0a 6e 61  d in Tcl...#..na
0200: 6d 65 73 70 61 63 65 20 65 76 61 6c 20 3a 3a 45  mespace eval ::E
0210: 61 67 6c 65 20 7b 0d 0a 20 20 69 66 20 7b 5b 69  agle {..  if {[i
0220: 73 45 61 67 6c 65 5d 7d 20 74 68 65 6e 20 7b 0d  sEagle]} then {.
0230: 0a 20 20 20 20 23 23 23 23 23 23 23 23 23 23 23  .    ###########
0240: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0250: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0260: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0270: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0280: 0d 0a 20 20 20 20 23 23 23 23 23 23 23 23 23 23  ..    ##########
0290: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
02a0: 23 23 20 42 45 47 49 4e 20 45 61 67 6c 65 20 4f  ## BEGIN Eagle O
02b0: 4e 4c 59 20 23 23 23 23 23 23 23 23 23 23 23 23  NLY ############
02c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
02d0: 23 0d 0a 20 20 20 20 23 23 23 23 23 23 23 23 23  #..    #########
02e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
02f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0300: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0310: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0320: 23 23 0d 0a 0d 0a 20 20 20 20 70 72 6f 63 20 67  ##....    proc g
0330: 65 74 42 75 69 6c 64 59 65 61 72 20 7b 7d 20 7b  etBuildYear {} {
0340: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20  ..      #..     
0350: 20 23 20 4e 4f 54 45 3a 20 53 65 65 20 69 66 20   # NOTE: See if 
0360: 74 68 65 20 22 79 65 61 72 22 20 73 65 74 74 69  the "year" setti
0370: 6e 67 20 68 61 73 20 62 65 65 6e 20 6f 76 65 72  ng has been over
0380: 72 69 64 64 65 6e 20 62 79 20 74 68 65 20 75 73  ridden by the us
0390: 65 72 20 28 65 2e 67 2e 0d 0a 20 20 20 20 20 20  er (e.g...      
03a0: 23 20 20 20 20 20 20 20 6f 6e 20 74 68 65 20 63  #       on the c
03b0: 6f 6d 6d 61 6e 64 20 6c 69 6e 65 29 2e 20 20 54  ommand line).  T
03c0: 68 69 73 20 68 65 6c 70 73 20 63 6f 6e 74 72 6f  his helps contro
03d0: 6c 20 65 78 61 63 74 6c 79 20 77 68 69 63 68 20  l exactly which 
03e0: 73 65 74 20 6f 66 0d 0a 20 20 20 20 20 20 23 20  set of..      # 
03f0: 20 20 20 20 20 20 62 69 6e 61 72 69 65 73 20 77        binaries w
0400: 65 20 61 72 65 20 74 65 73 74 69 6e 67 2c 20 74  e are testing, t
0410: 68 6f 73 65 20 70 72 6f 64 75 63 65 64 20 75 73  hose produced us
0420: 69 6e 67 20 74 68 65 20 56 69 73 75 61 6c 20 53  ing the Visual S
0430: 74 75 64 69 6f 0d 0a 20 20 20 20 20 20 23 20 20  tudio..      #  
0440: 20 20 20 20 20 32 30 30 35 2c 20 32 30 30 38 2c       2005, 2008,
0450: 20 32 30 31 30 2c 20 6f 72 20 32 30 31 32 20 62   2010, or 2012 b
0460: 75 69 6c 64 20 73 79 73 74 65 6d 73 2e 20 20 54  uild systems.  T
0470: 6f 20 6f 76 65 72 72 69 64 65 20 74 68 69 73 20  o override this 
0480: 76 61 6c 75 65 0d 0a 20 20 20 20 20 20 23 20 20  value..      #  
0490: 20 20 20 20 20 76 69 61 20 74 68 65 20 63 6f 6d       via the com
04a0: 6d 61 6e 64 20 6c 69 6e 65 2c 20 65 6e 74 65 72  mand line, enter
04b0: 20 61 20 63 6f 6d 6d 61 6e 64 20 73 69 6d 69 6c   a command simil
04c0: 61 72 20 74 6f 20 6f 6e 65 20 6f 66 20 74 68 65  ar to one of the
04d0: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20  ..      #       
04e0: 66 6f 6c 6c 6f 77 69 6e 67 20 28 61 6c 6c 20 6f  following (all o
04f0: 6e 20 6f 6e 65 20 6c 69 6e 65 29 3a 0d 0a 20 20  n one line):..  
0500: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 20      #..      #  
0510: 20 20 20 20 20 45 61 67 6c 65 53 68 65 6c 6c 2e       EagleShell.
0520: 65 78 65 20 2d 70 72 65 49 6e 69 74 69 61 6c 69  exe -preInitiali
0530: 7a 65 20 22 73 65 74 20 74 65 73 74 5f 79 65 61  ze "set test_yea
0540: 72 20 32 30 30 35 22 0d 0a 20 20 20 20 20 20 23  r 2005"..      #
0550: 20 20 20 20 20 20 20 20 20 2d 66 69 6c 65 20 2e           -file .
0560: 5c 70 61 74 68 5c 74 6f 5c 61 6c 6c 2e 65 61 67  \path\to\all.eag
0570: 6c 65 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20  le..      #..   
0580: 20 20 20 23 20 20 20 20 20 20 20 45 61 67 6c 65     #       Eagle
0590: 53 68 65 6c 6c 2e 65 78 65 20 2d 70 72 65 49 6e  Shell.exe -preIn
05a0: 69 74 69 61 6c 69 7a 65 20 22 73 65 74 20 74 65  itialize "set te
05b0: 73 74 5f 79 65 61 72 20 32 30 30 38 22 0d 0a 20  st_year 2008".. 
05c0: 20 20 20 20 20 23 20 20 20 20 20 20 20 20 20 2d       #         -
05d0: 66 69 6c 65 20 2e 5c 70 61 74 68 5c 74 6f 5c 61  file .\path\to\a
05e0: 6c 6c 2e 65 61 67 6c 65 0d 0a 20 20 20 20 20 20  ll.eagle..      
05f0: 23 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20  #..      #      
0600: 20 45 61 67 6c 65 53 68 65 6c 6c 2e 65 78 65 20   EagleShell.exe 
0610: 2d 70 72 65 49 6e 69 74 69 61 6c 69 7a 65 20 22  -preInitialize "
0620: 73 65 74 20 74 65 73 74 5f 79 65 61 72 20 32 30  set test_year 20
0630: 31 30 22 0d 0a 20 20 20 20 20 20 23 20 20 20 20  10"..      #    
0640: 20 20 20 20 20 2d 66 69 6c 65 20 2e 5c 70 61 74       -file .\pat
0650: 68 5c 74 6f 5c 61 6c 6c 2e 65 61 67 6c 65 0d 0a  h\to\all.eagle..
0660: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23        #..      #
0670: 20 20 20 20 20 20 20 45 61 67 6c 65 53 68 65 6c         EagleShel
0680: 6c 2e 65 78 65 20 2d 70 72 65 49 6e 69 74 69 61  l.exe -preInitia
0690: 6c 69 7a 65 20 22 73 65 74 20 74 65 73 74 5f 79  lize "set test_y
06a0: 65 61 72 20 32 30 31 32 22 0d 0a 20 20 20 20 20  ear 2012"..     
06b0: 20 23 20 20 20 20 20 20 20 20 20 2d 66 69 6c 65   #         -file
06c0: 20 2e 5c 70 61 74 68 5c 74 6f 5c 61 6c 6c 2e 65   .\path\to\all.e
06d0: 61 67 6c 65 0d 0a 20 20 20 20 20 20 23 0d 0a 20  agle..      #.. 
06e0: 20 20 20 20 20 23 20 20 20 20 20 20 20 45 61 67       #       Eag
06f0: 6c 65 53 68 65 6c 6c 2e 65 78 65 20 2d 70 72 65  leShell.exe -pre
0700: 49 6e 69 74 69 61 6c 69 7a 65 20 22 75 6e 73 65  Initialize "unse
0710: 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 74 65  t -nocomplain te
0720: 73 74 5f 79 65 61 72 22 0d 0a 20 20 20 20 20 20  st_year"..      
0730: 23 20 20 20 20 20 20 20 20 20 2d 66 69 6c 65 20  #         -file 
0740: 2e 5c 70 61 74 68 5c 74 6f 5c 61 6c 6c 2e 65 61  .\path\to\all.ea
0750: 67 6c 65 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  gle..      #..  
0760: 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78      if {[info ex
0770: 69 73 74 73 20 3a 3a 74 65 73 74 5f 79 65 61 72  ists ::test_year
0780: 5d 20 26 26 20 5b 73 74 72 69 6e 67 20 6c 65 6e  ] && [string len
0790: 67 74 68 20 24 3a 3a 74 65 73 74 5f 79 65 61 72  gth $::test_year
07a0: 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20  ] > 0} then {.. 
07b0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..      
07c0: 20 20 23 20 4e 4f 54 45 3a 20 55 73 65 20 74 68    # NOTE: Use th
07d0: 65 20 73 70 65 63 69 66 69 65 64 20 74 65 73 74  e specified test
07e0: 20 79 65 61 72 2e 20 20 49 66 20 74 68 69 73 20   year.  If this 
07f0: 76 61 72 69 61 62 6c 65 20 69 73 20 6e 6f 74 20  variable is not 
0800: 73 65 74 2c 20 74 68 65 0d 0a 20 20 20 20 20 20  set, the..      
0810: 20 20 23 20 20 20 20 20 20 20 64 65 66 61 75 6c    #       defaul
0820: 74 20 76 61 6c 75 65 20 77 69 6c 6c 20 62 65 20  t value will be 
0830: 62 61 73 65 64 20 6f 6e 20 77 68 65 74 68 65 72  based on whether
0840: 20 6f 72 20 6e 6f 74 20 45 61 67 6c 65 20 68 61   or not Eagle ha
0850: 73 20 62 65 65 6e 0d 0a 20 20 20 20 20 20 20 20  s been..        
0860: 23 20 20 20 20 20 20 20 63 6f 6d 70 69 6c 65 64  #       compiled
0870: 20 61 67 61 69 6e 73 74 20 74 68 65 20 43 4c 52   against the CLR
0880: 20 76 32 2e 30 20 6f 72 20 43 4c 52 20 76 34 2e   v2.0 or CLR v4.
0890: 30 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20  0...        #.. 
08a0: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 3a         return $:
08b0: 3a 74 65 73 74 5f 79 65 61 72 0d 0a 20 20 20 20  :test_year..    
08c0: 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20    } else {..    
08d0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23      #..        #
08e0: 20 4e 4f 54 45 3a 20 49 66 20 45 61 67 6c 65 20   NOTE: If Eagle 
08f0: 68 61 73 20 62 65 65 6e 20 63 6f 6d 70 69 6c 65  has been compile
0900: 64 20 61 67 61 69 6e 73 74 20 74 68 65 20 43 4c  d against the CL
0910: 52 20 76 34 2e 30 2c 20 75 73 65 20 22 32 30 31  R v4.0, use "201
0920: 30 22 20 62 79 0d 0a 20 20 20 20 20 20 20 20 23  0" by..        #
0930: 20 20 20 20 20 20 20 64 65 66 61 75 6c 74 20 28         default (
0940: 77 65 20 63 6f 75 6c 64 20 75 73 65 20 22 32 30  we could use "20
0950: 31 32 22 20 69 6e 20 74 68 61 74 20 63 61 73 65  12" in that case
0960: 20 61 73 20 77 65 6c 6c 29 20 61 73 20 74 68 65   as well) as the
0970: 20 74 65 73 74 0d 0a 20 20 20 20 20 20 20 20 23   test..        #
0980: 20 20 20 20 20 20 20 79 65 61 72 3b 20 6f 74 68         year; oth
0990: 65 72 77 69 73 65 2c 20 75 73 65 20 22 32 30 30  erwise, use "200
09a0: 38 22 20 62 79 20 64 65 66 61 75 6c 74 20 28 77  8" by default (w
09b0: 65 20 63 6f 75 6c 64 20 75 73 65 20 22 32 30 30  e could use "200
09c0: 35 22 20 69 6e 0d 0a 20 20 20 20 20 20 20 20 23  5" in..        #
09d0: 20 20 20 20 20 20 20 74 68 61 74 20 63 61 73 65         that case
09e0: 20 61 73 20 77 65 6c 6c 29 2e 20 20 49 66 20 61   as well).  If a
09f0: 6e 6f 74 68 65 72 20 6d 61 6a 6f 72 20 5b 69 6e  nother major [in
0a00: 63 6f 6d 70 61 74 69 62 6c 65 5d 20 76 65 72 73  compatible] vers
0a10: 69 6f 6e 20 6f 66 0d 0a 20 20 20 20 20 20 20 20  ion of..        
0a20: 23 20 20 20 20 20 20 20 74 68 65 20 43 4c 52 20  #       the CLR 
0a30: 69 73 20 72 65 6c 65 61 73 65 64 2c 20 74 68 69  is released, thi
0a40: 73 20 63 68 65 63 6b 20 77 69 6c 6c 20 68 61 76  s check will hav
0a50: 65 20 74 6f 20 62 65 20 63 68 61 6e 67 65 64 2e  e to be changed.
0a60: 20 20 54 68 65 0d 0a 20 20 20 20 20 20 20 20 23    The..        #
0a70: 20 20 20 20 20 20 20 64 65 66 61 75 6c 74 20 74         default t
0a80: 65 73 74 20 79 65 61 72 20 74 6f 20 75 73 65 20  est year to use 
0a90: 66 6f 72 20 61 20 70 61 72 74 69 63 75 6c 61 72  for a particular
0aa0: 20 43 4c 52 20 76 65 72 73 69 6f 6e 20 6d 61 79   CLR version may
0ab0: 20 62 65 0d 0a 20 20 20 20 20 20 20 20 23 20 20   be..        #  
0ac0: 20 20 20 20 20 6f 76 65 72 72 69 64 64 65 6e 20       overridden 
0ad0: 62 79 20 73 65 74 74 69 6e 67 20 74 68 65 20 67  by setting the g
0ae0: 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 20 22  lobal variable "
0af0: 74 65 73 74 5f 79 65 61 72 5f 63 6c 72 5f 76 24  test_year_clr_v$
0b00: 58 22 2c 0d 0a 20 20 20 20 20 20 20 20 23 20 20  X",..        #  
0b10: 20 20 20 20 20 77 68 65 72 65 20 22 24 58 22 20       where "$X" 
0b20: 6d 61 79 20 5b 63 75 72 72 65 6e 74 6c 79 5d 20  may [currently] 
0b30: 62 65 20 65 69 74 68 65 72 20 22 32 22 20 6f 72  be either "2" or
0b40: 20 22 34 22 2e 0d 0a 20 20 20 20 20 20 20 20 23   "4"...        #
0b50: 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b 68  ..        if {[h
0b60: 61 76 65 43 6f 6e 73 74 72 61 69 6e 74 20 69 6d  aveConstraint im
0b70: 61 67 65 52 75 6e 74 69 6d 65 34 30 5d 7d 20 74  ageRuntime40]} t
0b80: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  hen {..         
0b90: 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74   if {[info exist
0ba0: 73 20 3a 3a 74 65 73 74 5f 79 65 61 72 5f 63 6c  s ::test_year_cl
0bb0: 72 5f 76 34 5d 20 26 26 20 5c 0d 0a 20 20 20 20  r_v4] && \..    
0bc0: 20 20 20 20 20 20 20 20 20 20 5b 73 74 72 69 6e            [strin
0bd0: 67 20 6c 65 6e 67 74 68 20 24 3a 3a 74 65 73 74  g length $::test
0be0: 5f 79 65 61 72 5f 63 6c 72 5f 76 34 5d 20 3e 20  _year_clr_v4] > 
0bf0: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  0} then {..     
0c00: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..      
0c10: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 55 73        # NOTE: Us
0c20: 65 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20  e the specified 
0c30: 74 65 73 74 20 79 65 61 72 20 66 6f 72 20 74 68  test year for th
0c40: 65 20 43 4c 52 20 76 34 2e 30 2e 0d 0a 20 20 20  e CLR v4.0...   
0c50: 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20           #..    
0c60: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 24          return $
0c70: 3a 3a 74 65 73 74 5f 79 65 61 72 5f 63 6c 72 5f  ::test_year_clr_
0c80: 76 34 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 20  v4..          } 
0c90: 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20  else {..        
0ca0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20      #..         
0cb0: 20 20 20 23 20 4e 4f 54 45 3a 20 55 73 65 20 74     # NOTE: Use t
0cc0: 68 65 20 64 65 66 61 75 6c 74 20 74 65 73 74 20  he default test 
0cd0: 79 65 61 72 20 66 6f 72 20 74 68 65 20 43 4c 52  year for the CLR
0ce0: 20 76 34 2e 30 2e 0d 0a 20 20 20 20 20 20 20 20   v4.0...        
0cf0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20      #..         
0d00: 20 20 20 72 65 74 75 72 6e 20 32 30 31 30 3b 20     return 2010; 
0d10: 23 20 54 4f 44 4f 3a 20 47 6f 6f 64 20 22 66 61  # TODO: Good "fa
0d20: 6c 6c 62 61 63 6b 22 20 64 65 66 61 75 6c 74 3f  llback" default?
0d30: 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20  ..          }.. 
0d40: 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d         } else {.
0d50: 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 5b  .          if {[
0d60: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 74 65  info exists ::te
0d70: 73 74 5f 79 65 61 72 5f 63 6c 72 5f 76 32 5d 20  st_year_clr_v2] 
0d80: 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  && \..          
0d90: 20 20 20 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67      [string leng
0da0: 74 68 20 24 3a 3a 74 65 73 74 5f 79 65 61 72 5f  th $::test_year_
0db0: 63 6c 72 5f 76 32 5d 20 3e 20 30 7d 20 74 68 65  clr_v2] > 0} the
0dc0: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20  n {..           
0dd0: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   #..            
0de0: 23 20 4e 4f 54 45 3a 20 55 73 65 20 74 68 65 20  # NOTE: Use the 
0df0: 73 70 65 63 69 66 69 65 64 20 74 65 73 74 20 79  specified test y
0e00: 65 61 72 20 66 6f 72 20 74 68 65 20 43 4c 52 20  ear for the CLR 
0e10: 76 32 2e 30 2e 0d 0a 20 20 20 20 20 20 20 20 20  v2.0...         
0e20: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20     #..          
0e30: 20 20 72 65 74 75 72 6e 20 24 3a 3a 74 65 73 74    return $::test
0e40: 5f 79 65 61 72 5f 63 6c 72 5f 76 32 0d 0a 20 20  _year_clr_v2..  
0e50: 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b          } else {
0e60: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 0d  ..            #.
0e70: 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 20 4e  .            # N
0e80: 4f 54 45 3a 20 55 73 65 20 74 68 65 20 64 65 66  OTE: Use the def
0e90: 61 75 6c 74 20 74 65 73 74 20 79 65 61 72 20 66  ault test year f
0ea0: 6f 72 20 74 68 65 20 43 4c 52 20 76 32 2e 30 2e  or the CLR v2.0.
0eb0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 0d  ..            #.
0ec0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74  .            ret
0ed0: 75 72 6e 20 32 30 30 38 3b 20 23 20 54 4f 44 4f  urn 2008; # TODO
0ee0: 3a 20 47 6f 6f 64 20 22 66 61 6c 6c 62 61 63 6b  : Good "fallback
0ef0: 22 20 64 65 66 61 75 6c 74 3f 0d 0a 20 20 20 20  " default?..    
0f00: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20        }..       
0f10: 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20   }..      }..   
0f20: 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20   }.....    proc 
0f30: 67 65 74 42 75 69 6c 64 43 6f 6e 66 69 67 75 72  getBuildConfigur
0f40: 61 74 69 6f 6e 20 7b 7d 20 7b 0d 0a 20 20 20 20  ation {} {..    
0f50: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54    #..      # NOT
0f60: 45 3a 20 53 65 65 20 69 66 20 74 68 65 20 22 63  E: See if the "c
0f70: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 22 20 73 65  onfiguration" se
0f80: 74 74 69 6e 67 20 68 61 73 20 62 65 65 6e 20 6f  tting has been o
0f90: 76 65 72 72 69 64 64 65 6e 20 62 79 20 74 68 65  verridden by the
0fa0: 20 75 73 65 72 0d 0a 20 20 20 20 20 20 23 20 20   user..      #  
0fb0: 20 20 20 20 20 28 65 2e 67 2e 20 6f 6e 20 74 68       (e.g. on th
0fc0: 65 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 29 2e  e command line).
0fd0: 20 20 54 68 69 73 20 68 65 6c 70 73 20 63 6f 6e    This helps con
0fe0: 74 72 6f 6c 20 65 78 61 63 74 6c 79 20 77 68 69  trol exactly whi
0ff0: 63 68 20 73 65 74 0d 0a 20 20 20 20 20 20 23 20  ch set..      # 
1000: 20 20 20 20 20 20 6f 66 20 62 69 6e 61 72 69 65        of binarie
1010: 73 20 77 65 20 61 72 65 20 74 65 73 74 69 6e 67  s we are testing
1020: 20 28 69 2e 65 2e 20 74 68 6f 73 65 20 62 75 69   (i.e. those bui
1030: 6c 74 20 69 6e 20 74 68 65 20 22 44 65 62 75 67  lt in the "Debug
1040: 22 20 6f 72 0d 0a 20 20 20 20 20 20 23 20 20 20  " or..      #   
1050: 20 20 20 20 22 52 65 6c 65 61 73 65 22 20 62 75      "Release" bu
1060: 69 6c 64 20 63 6f 6e 66 69 67 75 72 61 74 69 6f  ild configuratio
1070: 6e 73 29 2e 20 20 54 6f 20 6f 76 65 72 72 69 64  ns).  To overrid
1080: 65 20 74 68 69 73 20 76 61 6c 75 65 20 76 69 61  e this value via
1090: 20 74 68 65 0d 0a 20 20 20 20 20 20 23 20 20 20   the..      #   
10a0: 20 20 20 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65      command line
10b0: 2c 20 65 6e 74 65 72 20 61 20 63 6f 6d 6d 61 6e  , enter a comman
10c0: 64 20 73 69 6d 69 6c 61 72 20 74 6f 20 6f 6e 65  d similar to one
10d0: 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e   of the followin
10e0: 67 20 28 61 6c 6c 0d 0a 20 20 20 20 20 20 23 20  g (all..      # 
10f0: 20 20 20 20 20 20 6f 6e 20 6f 6e 65 20 6c 69 6e        on one lin
1100: 65 29 3a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  e):..      #..  
1110: 20 20 20 20 23 20 20 20 20 20 20 20 45 61 67 6c      #       Eagl
1120: 65 53 68 65 6c 6c 2e 65 78 65 20 2d 70 72 65 49  eShell.exe -preI
1130: 6e 69 74 69 61 6c 69 7a 65 20 22 73 65 74 20 74  nitialize "set t
1140: 65 73 74 5f 63 6f 6e 66 69 67 75 72 61 74 69 6f  est_configuratio
1150: 6e 20 44 65 62 75 67 22 0d 0a 20 20 20 20 20 20  n Debug"..      
1160: 23 20 20 20 20 20 20 20 20 20 2d 66 69 6c 65 20  #         -file 
1170: 2e 5c 70 61 74 68 5c 74 6f 5c 61 6c 6c 2e 65 61  .\path\to\all.ea
1180: 67 6c 65 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  gle..      #..  
1190: 20 20 20 20 23 20 20 20 20 20 20 20 45 61 67 6c      #       Eagl
11a0: 65 53 68 65 6c 6c 2e 65 78 65 20 2d 70 72 65 49  eShell.exe -preI
11b0: 6e 69 74 69 61 6c 69 7a 65 20 22 73 65 74 20 74  nitialize "set t
11c0: 65 73 74 5f 63 6f 6e 66 69 67 75 72 61 74 69 6f  est_configuratio
11d0: 6e 20 52 65 6c 65 61 73 65 22 0d 0a 20 20 20 20  n Release"..    
11e0: 20 20 23 20 20 20 20 20 20 20 20 20 2d 66 69 6c    #         -fil
11f0: 65 20 2e 5c 70 61 74 68 5c 74 6f 5c 61 6c 6c 2e  e .\path\to\all.
1200: 65 61 67 6c 65 0d 0a 20 20 20 20 20 20 23 0d 0a  eagle..      #..
1210: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 45 61        #       Ea
1220: 67 6c 65 53 68 65 6c 6c 2e 65 78 65 20 2d 66 69  gleShell.exe -fi
1230: 6c 65 20 2e 5c 70 61 74 68 5c 74 6f 5c 61 6c 6c  le .\path\to\all
1240: 2e 65 61 67 6c 65 20 2d 70 72 65 54 65 73 74 0d  .eagle -preTest.
1250: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 20  .      #        
1260: 20 22 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c   "unset -nocompl
1270: 61 69 6e 20 74 65 73 74 5f 63 6f 6e 66 69 67 75  ain test_configu
1280: 72 61 74 69 6f 6e 22 0d 0a 20 20 20 20 20 20 23  ration"..      #
1290: 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 69 6e 66  ..      if {[inf
12a0: 6f 20 65 78 69 73 74 73 20 3a 3a 74 65 73 74 5f  o exists ::test_
12b0: 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 5d 20 26  configuration] &
12c0: 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 5b  & \..          [
12d0: 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 3a  string length $:
12e0: 3a 74 65 73 74 5f 63 6f 6e 66 69 67 75 72 61 74  :test_configurat
12f0: 69 6f 6e 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b  ion] > 0} then {
1300: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20  ..        #..   
1310: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 55 73 65       # NOTE: Use
1320: 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 74   the specified t
1330: 65 73 74 20 63 6f 6e 66 69 67 75 72 61 74 69 6f  est configuratio
1340: 6e 2e 20 20 54 68 65 20 64 65 66 61 75 6c 74 20  n.  The default 
1350: 76 61 6c 75 65 20 75 73 65 64 0d 0a 20 20 20 20  value used..    
1360: 20 20 20 20 23 20 20 20 20 20 20 20 66 6f 72 20      #       for 
1370: 74 68 69 73 20 76 61 72 69 61 62 6c 65 20 69 73  this variable is
1380: 20 22 52 65 6c 65 61 73 65 22 2c 20 61 73 20 73   "Release", as s
1390: 65 74 20 62 79 20 74 68 65 20 74 65 73 74 20 73  et by the test s
13a0: 75 69 74 65 20 69 74 73 65 6c 66 2e 0d 0a 20 20  uite itself...  
13b0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
13c0: 20 72 65 74 75 72 6e 20 24 3a 3a 74 65 73 74 5f   return $::test_
13d0: 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 0d 0a 20  configuration.. 
13e0: 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20       } else {.. 
13f0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..      
1400: 20 20 23 20 4e 4f 54 45 3a 20 4e 6f 72 6d 61 6c    # NOTE: Normal
1410: 6c 79 2c 20 77 65 20 77 69 6c 6c 20 6e 65 76 65  ly, we will neve
1420: 72 20 68 69 74 20 74 68 69 73 20 63 61 73 65 20  r hit this case 
1430: 62 65 63 61 75 73 65 20 74 68 65 20 76 61 6c 75  because the valu
1440: 65 20 6f 66 20 74 68 65 0d 0a 20 20 20 20 20 20  e of the..      
1450: 20 20 23 20 20 20 20 20 20 20 74 65 73 74 20 63    #       test c
1460: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 76 61 72  onfiguration var
1470: 69 61 62 6c 65 20 69 73 20 61 6c 77 61 79 73 20  iable is always 
1480: 73 65 74 20 62 79 20 74 68 65 20 74 65 73 74 20  set by the test 
1490: 73 75 69 74 65 0d 0a 20 20 20 20 20 20 20 20 23  suite..        #
14a0: 20 20 20 20 20 20 20 69 74 73 65 6c 66 3b 20 68         itself; h
14b0: 6f 77 65 76 65 72 2c 20 69 74 20 63 61 6e 20 62  owever, it can b
14c0: 65 20 6f 76 65 72 72 69 64 64 65 6e 20 75 73 69  e overridden usi
14d0: 6e 67 20 74 68 65 20 75 6e 73 65 74 20 63 6f 6d  ng the unset com
14e0: 6d 61 6e 64 0d 0a 20 20 20 20 20 20 20 20 23 20  mand..        # 
14f0: 20 20 20 20 20 20 66 72 6f 6d 20 74 68 65 20 2d        from the -
1500: 70 72 65 54 65 73 74 20 6f 70 74 69 6f 6e 20 74  preTest option t
1510: 6f 20 74 68 65 20 74 65 73 74 20 73 75 69 74 65  o the test suite
1520: 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20  ...        #..  
1530: 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 3a 3a        return $::
1540: 65 61 67 6c 65 5f 70 6c 61 74 66 6f 72 6d 28 63  eagle_platform(c
1550: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 29 0d 0a 20  onfiguration).. 
1560: 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c       }..    }...
1570: 0d 0a 20 20 20 20 70 72 6f 63 20 67 65 74 42 75  ..    proc getBu
1580: 69 6c 64 44 69 72 65 63 74 6f 72 79 20 7b 7d 20  ildDirectory {} 
1590: 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20  {..      #..    
15a0: 20 20 23 20 4e 4f 54 45 3a 20 53 65 65 20 69 66    # NOTE: See if
15b0: 20 74 68 65 20 22 6e 61 74 69 76 65 22 20 72 75   the "native" ru
15c0: 6e 74 69 6d 65 20 6f 70 74 69 6f 6e 20 68 61 73  ntime option has
15d0: 20 62 65 65 6e 20 73 65 74 2e 20 20 49 66 20 73   been set.  If s
15e0: 6f 2c 20 75 73 65 20 74 68 65 0d 0a 20 20 20 20  o, use the..    
15f0: 20 20 23 20 20 20 20 20 20 20 64 69 72 65 63 74    #       direct
1600: 6f 72 79 20 66 6f 72 20 74 68 65 20 6d 69 78 65  ory for the mixe
1610: 64 2d 6d 6f 64 65 20 61 73 73 65 6d 62 6c 79 20  d-mode assembly 
1620: 28 61 2e 6b 2e 61 2e 20 74 68 65 20 6e 61 74 69  (a.k.a. the nati
1630: 76 65 20 69 6e 74 65 72 6f 70 0d 0a 20 20 20 20  ve interop..    
1640: 20 20 23 20 20 20 20 20 20 20 61 73 73 65 6d 62    #       assemb
1650: 6c 79 29 2e 20 20 54 6f 20 65 6e 61 62 6c 65 20  ly).  To enable 
1660: 74 68 69 73 20 6f 70 74 69 6f 6e 20 76 69 61 20  this option via 
1670: 74 68 65 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65  the command line
1680: 2c 20 65 6e 74 65 72 20 61 0d 0a 20 20 20 20 20  , enter a..     
1690: 20 23 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64   #       command
16a0: 20 73 69 6d 69 6c 61 72 20 74 6f 20 6f 6e 65 20   similar to one 
16b0: 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67  of the following
16c0: 20 28 61 6c 6c 20 6f 6e 20 6f 6e 65 20 6c 69 6e   (all on one lin
16d0: 65 29 3a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  e):..      #..  
16e0: 20 20 20 20 23 20 20 20 20 20 20 20 45 61 67 6c      #       Eagl
16f0: 65 53 68 65 6c 6c 2e 65 78 65 20 2d 69 6e 69 74  eShell.exe -init
1700: 69 61 6c 69 7a 65 20 2d 72 75 6e 74 69 6d 65 4f  ialize -runtimeO
1710: 70 74 69 6f 6e 20 6e 61 74 69 76 65 0d 0a 20 20  ption native..  
1720: 20 20 20 20 23 20 20 20 20 20 20 20 20 20 2d 66      #         -f
1730: 69 6c 65 20 2e 5c 70 61 74 68 5c 74 6f 5c 61 6c  ile .\path\to\al
1740: 6c 2e 65 61 67 6c 65 0d 0a 20 20 20 20 20 20 23  l.eagle..      #
1750: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20  ..      #       
1760: 54 6f 20 65 6e 61 62 6c 65 20 74 68 69 73 20 6f  To enable this o
1770: 70 74 69 6f 6e 20 76 69 61 20 74 68 65 20 63 6f  ption via the co
1780: 6d 6d 61 6e 64 20 6c 69 6e 65 20 70 72 69 6f 72  mmand line prior
1790: 20 74 6f 20 74 68 65 20 22 62 65 74 61 20 31 36   to the "beta 16
17a0: 22 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20  "..      #      
17b0: 20 72 65 6c 65 61 73 65 20 6f 66 20 45 61 67 6c   release of Eagl
17c0: 65 2c 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67  e, the following
17d0: 20 63 6f 6d 6d 61 6e 64 20 6d 75 73 74 20 62 65   command must be
17e0: 20 75 73 65 64 20 69 6e 73 74 65 61 64 0d 0a 20   used instead.. 
17f0: 20 20 20 20 20 23 20 20 20 20 20 20 20 28 61 6c       #       (al
1800: 73 6f 20 61 6c 6c 20 6f 6e 20 6f 6e 65 20 6c 69  so all on one li
1810: 6e 65 29 3a 0d 0a 20 20 20 20 20 20 23 0d 0a 20  ne):..      #.. 
1820: 20 20 20 20 20 23 20 20 20 20 20 20 20 45 61 67       #       Eag
1830: 6c 65 53 68 65 6c 6c 2e 65 78 65 20 2d 69 6e 69  leShell.exe -ini
1840: 74 69 61 6c 69 7a 65 20 2d 70 6f 73 74 49 6e 69  tialize -postIni
1850: 74 69 61 6c 69 7a 65 0d 0a 20 20 20 20 20 20 23  tialize..      #
1860: 20 20 20 20 20 20 20 20 20 22 6f 62 6a 65 63 74           "object
1870: 20 69 6e 76 6f 6b 65 20 49 6e 74 65 72 70 72 65   invoke Interpre
1880: 74 65 72 2e 47 65 74 41 63 74 69 76 65 20 41 64  ter.GetActive Ad
1890: 64 52 75 6e 74 69 6d 65 4f 70 74 69 6f 6e 20 6e  dRuntimeOption n
18a0: 61 74 69 76 65 22 0d 0a 20 20 20 20 20 20 23 20  ative"..      # 
18b0: 20 20 20 20 20 20 20 20 2d 66 69 6c 65 20 2e 5c          -file .\
18c0: 70 61 74 68 5c 74 6f 5c 61 6c 6c 2e 65 61 67 6c  path\to\all.eagl
18d0: 65 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20  e..      #..    
18e0: 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73    if {[info exis
18f0: 74 73 20 3a 3a 62 75 69 6c 64 5f 64 69 72 65 63  ts ::build_direc
1900: 74 6f 72 79 5d 20 26 26 20 5c 0d 0a 20 20 20 20  tory] && \..    
1910: 20 20 20 20 20 20 5b 73 74 72 69 6e 67 20 6c 65        [string le
1920: 6e 67 74 68 20 24 3a 3a 62 75 69 6c 64 5f 64 69  ngth $::build_di
1930: 72 65 63 74 6f 72 79 5d 20 3e 20 30 7d 20 74 68  rectory] > 0} th
1940: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d  en {..        #.
1950: 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a  .        # NOTE:
1960: 20 54 68 65 20 6c 6f 63 61 74 69 6f 6e 20 6f 66   The location of
1970: 20 74 68 65 20 62 75 69 6c 64 20 64 69 72 65 63   the build direc
1980: 74 6f 72 79 20 68 61 73 20 62 65 65 6e 20 6f 76  tory has been ov
1990: 65 72 72 69 64 64 65 6e 3b 0d 0a 20 20 20 20 20  erridden;..     
19a0: 20 20 20 23 20 20 20 20 20 20 20 74 68 65 72 65     #       there
19b0: 66 6f 72 65 2c 20 75 73 65 20 69 74 20 76 65 72  fore, use it ver
19c0: 62 61 74 69 6d 2e 0d 0a 20 20 20 20 20 20 20 20  batim...        
19d0: 23 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 72  #..        retur
19e0: 6e 20 24 3a 3a 62 75 69 6c 64 5f 64 69 72 65 63  n $::build_direc
19f0: 74 6f 72 79 0d 0a 20 20 20 20 20 20 7d 20 65 6c  tory..      } el
1a00: 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d  se {..        #.
1a10: 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a  .        # NOTE:
1a20: 20 46 69 67 75 72 65 20 6f 75 74 20 74 68 65 20   Figure out the 
1a30: 62 75 69 6c 64 20 62 61 73 65 20 64 69 72 65 63  build base direc
1a40: 74 6f 72 79 2e 20 20 54 68 69 73 20 77 69 6c 6c  tory.  This will
1a50: 20 62 65 20 74 68 65 20 64 69 72 65 63 74 6f 72   be the director
1a60: 79 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20  y..        #    
1a70: 20 20 20 74 68 61 74 20 63 6f 6e 74 61 69 6e 73     that contains
1a80: 20 74 68 65 20 61 63 74 75 61 6c 20 62 75 69 6c   the actual buil
1a90: 64 20 6f 75 74 70 75 74 20 64 69 72 65 63 74 6f  d output directo
1aa0: 72 79 20 28 65 2e 67 2e 20 22 62 69 6e 22 29 2e  ry (e.g. "bin").
1ab0: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20  ..        #..   
1ac0: 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65       if {[info e
1ad0: 78 69 73 74 73 20 3a 3a 62 75 69 6c 64 5f 62 61  xists ::build_ba
1ae0: 73 65 5f 64 69 72 65 63 74 6f 72 79 5d 20 26 26  se_directory] &&
1af0: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   \..            
1b00: 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24  [string length $
1b10: 3a 3a 62 75 69 6c 64 5f 62 61 73 65 5f 64 69 72  ::build_base_dir
1b20: 65 63 74 6f 72 79 5d 20 3e 20 30 7d 20 74 68 65  ectory] > 0} the
1b30: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23  n {..          #
1b40: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f  ..          # NO
1b50: 54 45 3a 20 54 68 65 20 6c 6f 63 61 74 69 6f 6e  TE: The location
1b60: 20 6f 66 20 74 68 65 20 62 75 69 6c 64 20 62 61   of the build ba
1b70: 73 65 20 64 69 72 65 63 74 6f 72 79 20 68 61 73  se directory has
1b80: 20 62 65 65 6e 20 6f 76 65 72 72 69 64 64 65 6e   been overridden
1b90: 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 20  ;..          #  
1ba0: 20 20 20 20 20 74 68 65 72 65 66 6f 72 65 2c 20       therefore, 
1bb0: 75 73 65 20 69 74 20 76 65 72 62 61 74 69 6d 2e  use it verbatim.
1bc0: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20  ..          #.. 
1bd0: 20 20 20 20 20 20 20 20 20 73 65 74 20 70 61 74           set pat
1be0: 68 20 24 3a 3a 62 75 69 6c 64 5f 62 61 73 65 5f  h $::build_base_
1bf0: 64 69 72 65 63 74 6f 72 79 0d 0a 20 20 20 20 20  directory..     
1c00: 20 20 20 7d 20 65 6c 73 65 69 66 20 7b 5b 69 6e     } elseif {[in
1c10: 66 6f 20 65 78 69 73 74 73 20 3a 3a 63 6f 6d 6d  fo exists ::comm
1c20: 6f 6e 5f 64 69 72 65 63 74 6f 72 79 5d 20 26 26  on_directory] &&
1c30: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   \..            
1c40: 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24  [string length $
1c50: 3a 3a 63 6f 6d 6d 6f 6e 5f 64 69 72 65 63 74 6f  ::common_directo
1c60: 72 79 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d  ry] > 0} then {.
1c70: 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20  .          #..  
1c80: 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20          # NOTE: 
1c90: 4e 65 78 74 2c 20 66 61 6c 6c 62 61 63 6b 20 74  Next, fallback t
1ca0: 6f 20 74 68 65 20 70 61 72 65 6e 74 20 64 69 72  o the parent dir
1cb0: 65 63 74 6f 72 79 20 6f 66 20 74 68 65 20 6f 6e  ectory of the on
1cc0: 65 20 63 6f 6e 74 61 69 6e 69 6e 67 0d 0a 20 20  e containing..  
1cd0: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20          #       
1ce0: 74 68 69 73 20 66 69 6c 65 20 28 69 2e 65 2e 20  this file (i.e. 
1cf0: 22 63 6f 6d 6d 6f 6e 2e 65 61 67 6c 65 22 29 2c  "common.eagle"),
1d00: 20 69 66 20 61 76 61 69 6c 61 62 6c 65 2e 0d 0a   if available...
1d10: 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20            #..   
1d20: 20 20 20 20 20 20 20 73 65 74 20 70 61 74 68 20         set path 
1d30: 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 24 3a  [file dirname $:
1d40: 3a 63 6f 6d 6d 6f 6e 5f 64 69 72 65 63 74 6f 72  :common_director
1d50: 79 5d 0d 0a 20 20 20 20 20 20 20 20 7d 20 65 6c  y]..        } el
1d60: 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20  se {..          
1d70: 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e  #..          # N
1d80: 4f 54 45 3a 20 46 69 6e 61 6c 6c 79 2c 20 66 61  OTE: Finally, fa
1d90: 6c 6c 62 61 63 6b 20 74 6f 20 74 68 65 20 70 61  llback to the pa
1da0: 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79 20 6f  rent directory o
1db0: 66 20 74 68 65 20 45 61 67 6c 65 54 65 73 74 0d  f the EagleTest.
1dc0: 0a 20 20 20 20 20 20 20 20 20 20 23 20 20 20 20  .          #    
1dd0: 20 20 20 70 61 74 68 2e 20 20 54 68 65 20 45 61     path.  The Ea
1de0: 67 6c 65 54 65 73 74 20 70 61 63 6b 61 67 65 20  gleTest package 
1df0: 67 75 61 72 61 6e 74 65 65 73 20 74 68 61 74 20  guarantees that 
1e00: 74 68 69 73 20 76 61 72 69 61 62 6c 65 0d 0a 20  this variable.. 
1e10: 20 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20           #      
1e20: 20 77 69 6c 6c 20 62 65 20 73 65 74 20 74 6f 20   will be set to 
1e30: 74 68 65 20 64 69 72 65 63 74 6f 72 79 20 63 6f  the directory co
1e40: 6e 74 61 69 6e 69 6e 67 20 74 68 65 20 66 69 72  ntaining the fir
1e50: 73 74 20 66 69 6c 65 20 74 6f 0d 0a 20 20 20 20  st file to..    
1e60: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 65 78        #       ex
1e70: 65 63 75 74 65 20 74 68 65 20 5b 72 75 6e 54 65  ecute the [runTe
1e80: 73 74 50 72 6f 6c 6f 67 75 65 5d 20 73 63 72 69  stPrologue] scri
1e90: 70 74 20 6c 69 62 72 61 72 79 20 70 72 6f 63 65  pt library proce
1ea0: 64 75 72 65 2e 0d 0a 20 20 20 20 20 20 20 20 20  dure...         
1eb0: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 73 65   #..          se
1ec0: 74 20 70 61 74 68 20 5b 66 69 6c 65 20 64 69 72  t path [file dir
1ed0: 6e 61 6d 65 20 24 3a 3a 70 61 74 68 5d 0d 0a 20  name $::path].. 
1ee0: 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20         }....    
1ef0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23      #..        #
1f00: 20 4e 4f 54 45 3a 20 49 66 20 74 68 65 20 22 6e   NOTE: If the "n
1f10: 61 74 69 76 65 22 20 72 75 6e 74 69 6d 65 20 6f  ative" runtime o
1f20: 70 74 69 6f 6e 20 69 73 20 73 65 74 2c 20 74 68  ption is set, th
1f30: 65 20 6d 69 78 65 64 2d 6d 6f 64 65 20 61 73 73  e mixed-mode ass
1f40: 65 6d 62 6c 79 0d 0a 20 20 20 20 20 20 20 20 23  embly..        #
1f50: 20 20 20 20 20 20 20 69 73 20 62 65 69 6e 67 20         is being 
1f60: 74 65 73 74 65 64 2e 20 20 49 6e 20 74 68 61 74  tested.  In that
1f70: 20 63 61 73 65 2c 20 74 68 65 20 70 61 74 68 20   case, the path 
1f80: 74 6f 20 74 68 65 20 62 75 69 6c 64 20 64 69 72  to the build dir
1f90: 65 63 74 6f 72 79 0d 0a 20 20 20 20 20 20 20 20  ectory..        
1fa0: 23 20 20 20 20 20 20 20 77 69 6c 6c 20 63 6f 6e  #       will con
1fb0: 74 61 69 6e 20 74 68 65 20 70 6c 61 74 66 6f 72  tain the platfor
1fc0: 6d 20 6e 61 6d 65 20 61 6e 64 20 61 6c 6c 20 74  m name and all t
1fd0: 68 65 20 62 69 6e 61 72 69 65 73 20 75 6e 64 65  he binaries unde
1fe0: 72 20 74 65 73 74 0d 0a 20 20 20 20 20 20 20 20  r test..        
1ff0: 23 20 20 20 20 20 20 20 73 68 6f 75 6c 64 20 62  #       should b
2000: 65 20 70 72 65 73 65 6e 74 20 69 6e 20 74 68 61  e present in tha
2010: 74 20 64 69 72 65 63 74 6f 72 79 2e 20 20 49 66  t directory.  If
2020: 20 74 68 65 20 22 6e 61 74 69 76 65 22 20 72 75   the "native" ru
2030: 6e 74 69 6d 65 0d 0a 20 20 20 20 20 20 20 20 23  ntime..        #
2040: 20 20 20 20 20 20 20 6f 70 74 69 6f 6e 20 69 73         option is
2050: 20 6e 6f 74 20 73 65 74 2c 20 74 68 65 20 62 75   not set, the bu
2060: 69 6c 64 20 64 69 72 65 63 74 6f 72 79 20 77 69  ild directory wi
2070: 6c 6c 20 62 65 20 63 6f 6e 73 69 64 65 72 65 64  ll be considered
2080: 20 74 6f 20 62 65 0d 0a 20 20 20 20 20 20 20 20   to be..        
2090: 23 20 20 20 20 20 20 20 22 70 6c 61 74 66 6f 72  #       "platfor
20a0: 6d 2d 6e 65 75 74 72 61 6c 22 2c 20 77 69 74 68  m-neutral", with
20b0: 20 74 68 65 20 6e 6f 74 61 62 6c 65 20 65 78 63   the notable exc
20c0: 65 70 74 69 6f 6e 20 6f 66 20 61 6e 79 20 6e 61  eption of any na
20d0: 74 69 76 65 0d 0a 20 20 20 20 20 20 20 20 23 20  tive..        # 
20e0: 20 20 20 20 20 20 61 73 73 65 6d 62 6c 79 20 28        assembly (
20f0: 65 2e 67 2e 20 22 53 51 4c 69 74 65 2e 49 6e 74  e.g. "SQLite.Int
2100: 65 72 6f 70 2e 64 6c 6c 22 29 20 63 6f 70 69 65  erop.dll") copie
2110: 64 20 74 68 65 72 65 20 64 75 72 69 6e 67 20 74  d there during t
2120: 68 65 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20  he..        #   
2130: 20 20 20 20 62 75 69 6c 64 20 70 72 6f 63 65 73      build proces
2140: 73 20 69 74 73 65 6c 66 2e 20 20 49 66 20 74 68  s itself.  If th
2150: 65 20 62 75 69 6c 64 20 70 72 6f 63 65 73 73 20  e build process 
2160: 73 6f 6d 65 68 6f 77 20 64 6f 65 73 20 6e 6f 74  somehow does not
2170: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20  ..        #     
2180: 20 20 63 6f 70 79 20 74 68 65 20 6e 61 74 69 76    copy the nativ
2190: 65 20 61 73 73 65 6d 62 6c 79 20 66 6f 72 20 74  e assembly for t
21a0: 68 69 73 20 70 6c 61 74 66 6f 72 6d 2c 20 6d 6f  his platform, mo
21b0: 73 74 20 6f 66 20 74 68 65 20 74 65 73 74 73 0d  st of the tests.
21c0: 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20  .        #      
21d0: 20 69 6e 20 74 68 65 20 73 75 69 74 65 20 77 69   in the suite wi
21e0: 6c 6c 20 73 69 6d 70 6c 79 20 62 65 20 73 6b 69  ll simply be ski
21f0: 70 70 65 64 2e 20 20 47 65 6e 65 72 61 6c 6c 79  pped.  Generally
2200: 20 73 70 65 61 6b 69 6e 67 2c 20 74 68 65 72 65   speaking, there
2210: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20  ..        #     
2220: 20 20 61 72 65 20 74 77 6f 20 77 61 79 73 20 74    are two ways t
2230: 6f 20 62 75 69 6c 64 20 74 68 65 20 62 69 6e 61  o build the bina
2240: 72 69 65 73 20 77 68 65 6e 20 70 72 65 70 61 72  ries when prepar
2250: 69 6e 67 20 74 6f 20 72 75 6e 20 74 68 65 0d 0a  ing to run the..
2260: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20          #       
2270: 74 65 73 74 20 73 75 69 74 65 3a 0d 0a 20 20 20  test suite:..   
2280: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..        
2290: 23 20 20 20 20 20 20 20 31 2e 20 42 75 69 6c 64  #       1. Build
22a0: 20 74 68 65 20 73 65 70 61 72 61 74 65 20 6d 61   the separate ma
22b0: 6e 61 67 65 64 20 61 6e 64 20 6e 61 74 69 76 65  naged and native
22c0: 20 61 73 73 65 6d 62 6c 69 65 73 20 75 73 69 6e   assemblies usin
22d0: 67 20 73 6f 6d 65 0d 0a 20 20 20 20 20 20 20 20  g some..        
22e0: 23 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 61  #          comma
22f0: 6e 64 73 20 73 69 6d 69 6c 61 72 20 74 6f 3a 0d  nds similar to:.
2300: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20  .        #..    
2310: 20 20 20 20 23 20 20 20 20 20 20 20 20 20 20 62      #          b
2320: 75 69 6c 64 2e 62 61 74 20 24 7b 43 6f 6e 66 69  uild.bat ${Confi
2330: 67 75 72 61 74 69 6f 6e 7d 4d 61 6e 61 67 65 64  guration}Managed
2340: 4f 6e 6c 79 20 24 7b 50 6c 61 74 66 6f 72 6d 7d  Only ${Platform}
2350: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20  ..        #     
2360: 20 20 20 20 20 62 75 69 6c 64 2e 62 61 74 20 24       build.bat $
2370: 7b 43 6f 6e 66 69 67 75 72 61 74 69 6f 6e 7d 4e  {Configuration}N
2380: 61 74 69 76 65 4f 6e 6c 79 20 24 7b 50 6c 61 74  ativeOnly ${Plat
2390: 66 6f 72 6d 7d 0d 0a 20 20 20 20 20 20 20 20 23  form}..        #
23a0: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20  ..        #     
23b0: 20 20 20 20 20 57 68 65 72 65 20 24 7b 43 6f 6e       Where ${Con
23c0: 66 69 67 75 72 61 74 69 6f 6e 7d 20 69 73 20 65  figuration} is e
23d0: 69 74 68 65 72 20 22 44 65 62 75 67 22 20 6f 72  ither "Debug" or
23e0: 20 22 52 65 6c 65 61 73 65 22 20 61 6e 64 0d 0a   "Release" and..
23f0: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20          #       
2400: 20 20 20 24 7b 50 6c 61 74 66 6f 72 6d 7d 20 69     ${Platform} i
2410: 73 20 65 69 74 68 65 72 20 22 57 69 6e 33 32 22  s either "Win32"
2420: 20 6f 72 20 22 78 36 34 22 2e 0d 0a 20 20 20 20   or "x64"...    
2430: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23      #..        #
2440: 20 20 20 20 20 20 20 32 2e 20 42 75 69 6c 64 20         2. Build 
2450: 74 68 65 20 6d 69 78 65 64 2d 6d 6f 64 65 20 61  the mixed-mode a
2460: 73 73 65 6d 62 6c 79 20 75 73 69 6e 67 20 61 20  ssembly using a 
2470: 63 6f 6d 6d 61 6e 64 20 73 69 6d 69 6c 61 72 20  command similar 
2480: 74 6f 3a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a  to:..        #..
2490: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20          #       
24a0: 20 20 20 62 75 69 6c 64 2e 62 61 74 20 24 7b 43     build.bat ${C
24b0: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 7d 20 24 7b  onfiguration} ${
24c0: 50 6c 61 74 66 6f 72 6d 7d 0d 0a 20 20 20 20 20  Platform}..     
24d0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20     #..        # 
24e0: 20 20 20 20 20 20 20 20 20 57 68 65 72 65 20 24           Where $
24f0: 7b 43 6f 6e 66 69 67 75 72 61 74 69 6f 6e 7d 20  {Configuration} 
2500: 69 73 20 65 69 74 68 65 72 20 22 44 65 62 75 67  is either "Debug
2510: 22 20 6f 72 20 22 52 65 6c 65 61 73 65 22 20 61  " or "Release" a
2520: 6e 64 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20  nd..        #   
2530: 20 20 20 20 20 20 20 24 7b 50 6c 61 74 66 6f 72         ${Platfor
2540: 6d 7d 20 69 73 20 65 69 74 68 65 72 20 22 57 69  m} is either "Wi
2550: 6e 33 32 22 20 6f 72 20 22 78 36 34 22 2e 20 20  n32" or "x64".  
2560: 49 66 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20  If this command 
2570: 69 73 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20  is..        #   
2580: 20 20 20 20 20 20 20 75 73 65 64 2c 20 76 61 72         used, var
2590: 69 6f 75 73 20 74 65 73 74 73 20 74 68 61 74 20  ious tests that 
25a0: 72 65 71 75 69 72 65 20 73 75 70 70 6c 65 6d 65  require suppleme
25b0: 6e 74 61 72 79 20 6d 61 6e 61 67 65 64 0d 0a 20  ntary managed.. 
25c0: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 20         #        
25d0: 20 20 61 73 73 65 6d 62 6c 69 65 73 20 28 65 2e    assemblies (e.
25e0: 67 2e 20 4c 49 4e 51 29 20 6d 61 79 20 62 65 20  g. LINQ) may be 
25f0: 73 6b 69 70 70 65 64 20 75 6e 6c 65 73 73 20 74  skipped unless t
2600: 68 6f 73 65 20 62 69 6e 61 72 69 65 73 0d 0a 20  hose binaries.. 
2610: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 20         #        
2620: 20 20 61 72 65 20 73 75 62 73 65 71 75 65 6e 74    are subsequent
2630: 6c 79 20 63 6f 70 69 65 64 20 69 6e 74 6f 20 74  ly copied into t
2640: 68 65 20 63 6f 72 72 65 63 74 20 64 69 72 65 63  he correct direc
2650: 74 6f 72 79 20 28 69 2e 65 2e 20 62 79 0d 0a 20  tory (i.e. by.. 
2660: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 20         #        
2670: 20 20 22 74 65 73 74 5f 61 6c 6c 2e 62 61 74 22    "test_all.bat"
2680: 29 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20  )...        #.. 
2690: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 4e         #       N
26a0: 6f 74 65 20 74 68 61 74 20 61 6c 6c 20 6f 66 20  ote that all of 
26b0: 74 68 65 20 62 75 69 6c 64 20 63 6f 6d 6d 61 6e  the build comman
26c0: 64 73 20 61 62 6f 76 65 20 77 69 6c 6c 20 64 65  ds above will de
26d0: 66 61 75 6c 74 20 74 6f 20 75 73 69 6e 67 0d 0a  fault to using..
26e0: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20          #       
26f0: 74 68 65 20 6c 61 74 65 73 74 20 76 65 72 73 69  the latest versi
2700: 6f 6e 20 6f 66 20 4d 53 42 75 69 6c 64 20 61 76  on of MSBuild av
2710: 61 69 6c 61 62 6c 65 20 61 6e 64 20 74 68 65 20  ailable and the 
2720: 22 74 65 73 74 5f 79 65 61 72 22 20 6d 61 79 0d  "test_year" may.
2730: 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20  .        #      
2740: 20 6e 65 65 64 20 74 6f 20 62 65 20 61 64 6a 75   need to be adju
2750: 73 74 65 64 20 61 63 63 6f 72 64 69 6e 67 6c 79  sted accordingly
2760: 20 74 6f 20 61 63 74 75 61 6c 6c 79 20 72 75 6e   to actually run
2770: 20 74 68 65 20 74 65 73 74 20 73 75 69 74 65 2e   the test suite.
2780: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20  ..        #     
2790: 20 20 52 65 66 65 72 20 74 6f 20 74 68 65 20 63    Refer to the c
27a0: 6f 6d 6d 65 6e 74 73 20 69 6e 20 5b 67 65 74 42  omments in [getB
27b0: 75 69 6c 64 59 65 61 72 5d 20 66 6f 72 20 6d 6f  uildYear] for mo
27c0: 72 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 6f  re information o
27d0: 6e 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20  n..        #    
27e0: 20 20 20 68 6f 77 20 74 6f 20 73 65 74 20 74 68     how to set th
27f0: 69 73 20 76 61 72 69 61 62 6c 65 2e 0d 0a 20 20  is variable...  
2800: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
2810: 20 69 66 20 7b 5b 68 61 73 52 75 6e 74 69 6d 65   if {[hasRuntime
2820: 4f 70 74 69 6f 6e 20 6e 61 74 69 76 65 5d 7d 20  Option native]} 
2830: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20  then {..        
2840: 20 20 72 65 74 75 72 6e 20 5b 66 69 6c 65 20 6a    return [file j
2850: 6f 69 6e 20 24 70 61 74 68 20 62 69 6e 20 5b 67  oin $path bin [g
2860: 65 74 42 75 69 6c 64 59 65 61 72 5d 20 5b 6d 61  etBuildYear] [ma
2870: 63 68 69 6e 65 54 6f 50 6c 61 74 66 6f 72 6d 20  chineToPlatform 
2880: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  \..             
2890: 20 24 3a 3a 74 63 6c 5f 70 6c 61 74 66 6f 72 6d   $::tcl_platform
28a0: 28 6d 61 63 68 69 6e 65 29 5d 20 5b 67 65 74 42  (machine)] [getB
28b0: 75 69 6c 64 43 6f 6e 66 69 67 75 72 61 74 69 6f  uildConfiguratio
28c0: 6e 5d 5d 0d 0a 20 20 20 20 20 20 20 20 7d 20 65  n]]..        } e
28d0: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  lse {..         
28e0: 20 72 65 74 75 72 6e 20 5b 66 69 6c 65 20 6a 6f   return [file jo
28f0: 69 6e 20 24 70 61 74 68 20 62 69 6e 20 5b 67 65  in $path bin [ge
2900: 74 42 75 69 6c 64 59 65 61 72 5d 20 5b 67 65 74  tBuildYear] [get
2910: 42 75 69 6c 64 43 6f 6e 66 69 67 75 72 61 74 69  BuildConfigurati
2920: 6f 6e 5d 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  on] \..         
2930: 20 20 20 20 20 62 69 6e 5d 0d 0a 20 20 20 20 20       bin]..     
2940: 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20     }..      }.. 
2950: 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f     }.....    pro
2960: 63 20 67 65 74 42 75 69 6c 64 46 69 6c 65 4e 61  c getBuildFileNa
2970: 6d 65 20 7b 20 66 69 6c 65 4e 61 6d 65 20 7d 20  me { fileName } 
2980: 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20  {..      #..    
2990: 20 20 23 20 4e 4f 54 45 3a 20 52 65 74 75 72 6e    # NOTE: Return
29a0: 73 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20  s the specified 
29b0: 66 69 6c 65 20 6e 61 6d 65 20 61 73 20 69 66 20  file name as if 
29c0: 69 74 20 77 65 72 65 20 6c 6f 63 61 74 65 64 20  it were located 
29d0: 69 6e 20 74 68 65 0d 0a 20 20 20 20 20 20 23 20  in the..      # 
29e0: 20 20 20 20 20 20 62 75 69 6c 64 20 64 69 72 65        build dire
29f0: 63 74 6f 72 79 2c 20 64 69 73 63 61 72 64 69 6e  ctory, discardin
2a00: 67 20 61 6e 79 20 64 69 72 65 63 74 6f 72 79 20  g any directory 
2a10: 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 70 72 65 73  information pres
2a20: 65 6e 74 0d 0a 20 20 20 20 20 20 23 20 20 20 20  ent..      #    
2a30: 20 20 20 69 6e 20 74 68 65 20 66 69 6c 65 20 6e     in the file n
2a40: 61 6d 65 20 61 73 20 70 72 6f 76 69 64 65 64 20  ame as provided 
2a50: 62 79 20 6f 75 72 20 63 61 6c 6c 65 72 2e 0d 0a  by our caller...
2a60: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 72        #..      r
2a70: 65 74 75 72 6e 20 5b 66 69 6c 65 20 6e 61 74 69  eturn [file nati
2a80: 76 65 6e 61 6d 65 20 5c 0d 0a 20 20 20 20 20 20  vename \..      
2a90: 20 20 20 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b      [file join [
2aa0: 67 65 74 42 75 69 6c 64 44 69 72 65 63 74 6f 72  getBuildDirector
2ab0: 79 5d 20 5b 66 69 6c 65 20 74 61 69 6c 20 24 66  y] [file tail $f
2ac0: 69 6c 65 4e 61 6d 65 5d 5d 5d 0d 0a 20 20 20 20  ileName]]]..    
2ad0: 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 67  }.....    proc g
2ae0: 65 74 42 69 6e 61 72 79 44 69 72 65 63 74 6f 72  etBinaryDirector
2af0: 79 20 7b 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d  y {} {..      #.
2b00: 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 54  .      # NOTE: T
2b10: 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 72 65  his procedure re
2b20: 74 75 72 6e 73 20 74 68 65 20 64 69 72 65 63 74  turns the direct
2b30: 6f 72 79 20 77 68 65 72 65 20 74 68 65 20 74 65  ory where the te
2b40: 73 74 20 61 70 70 6c 69 63 61 74 69 6f 6e 0d 0a  st application..
2b50: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 69 74        #       it
2b60: 73 65 6c 66 20 28 69 2e 65 2e 20 74 68 65 20 45  self (i.e. the E
2b70: 61 67 6c 65 20 73 68 65 6c 6c 29 20 69 73 20 6c  agle shell) is l
2b80: 6f 63 61 74 65 64 2e 20 20 54 68 69 73 20 77 69  ocated.  This wi
2b90: 6c 6c 20 62 65 20 75 73 65 64 20 61 73 0d 0a 20  ll be used as.. 
2ba0: 20 20 20 20 20 23 20 20 20 20 20 20 20 74 68 65       #       the
2bb0: 20 64 65 73 74 69 6e 61 74 69 6f 6e 20 66 6f 72   destination for
2bc0: 20 74 68 65 20 63 6f 70 69 65 64 20 53 79 73 74   the copied Syst
2bd0: 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 20 6e  em.Data.SQLite n
2be0: 61 74 69 76 65 20 61 6e 64 0d 0a 20 20 20 20 20  ative and..     
2bf0: 20 23 20 20 20 20 20 20 20 6d 61 6e 61 67 65 64   #       managed
2c00: 20 61 73 73 65 6d 62 6c 69 65 73 20 28 69 2e 65   assemblies (i.e
2c10: 2e 20 62 65 63 61 75 73 65 20 74 68 69 73 20 69  . because this i
2c20: 73 20 6f 6e 65 20 6f 66 20 74 68 65 20 66 65 77  s one of the few
2c30: 20 70 6c 61 63 65 73 0d 0a 20 20 20 20 20 20 23   places..      #
2c40: 20 20 20 20 20 20 20 77 68 65 72 65 20 74 68 65         where the
2c50: 20 43 4c 52 20 77 69 6c 6c 20 61 63 74 75 61 6c   CLR will actual
2c60: 6c 79 20 66 69 6e 64 20 61 6e 64 20 6c 6f 61 64  ly find and load
2c70: 20 74 68 65 6d 20 70 72 6f 70 65 72 6c 79 29 2e   them properly).
2c80: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20  ..      #..     
2c90: 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74   if {[info exist
2ca0: 73 20 3a 3a 62 69 6e 61 72 79 5f 64 69 72 65 63  s ::binary_direc
2cb0: 74 6f 72 79 5d 20 26 26 20 5c 0d 0a 20 20 20 20  tory] && \..    
2cc0: 20 20 20 20 20 20 5b 73 74 72 69 6e 67 20 6c 65        [string le
2cd0: 6e 67 74 68 20 24 3a 3a 62 69 6e 61 72 79 5f 64  ngth $::binary_d
2ce0: 69 72 65 63 74 6f 72 79 5d 20 3e 20 30 7d 20 74  irectory] > 0} t
2cf0: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 23  hen {..        #
2d00: 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45  ..        # NOTE
2d10: 3a 20 54 68 65 20 6c 6f 63 61 74 69 6f 6e 20 6f  : The location o
2d20: 66 20 74 68 65 20 62 69 6e 61 72 79 20 64 69 72  f the binary dir
2d30: 65 63 74 6f 72 79 20 68 61 73 20 62 65 65 6e 20  ectory has been 
2d40: 6f 76 65 72 72 69 64 64 65 6e 3b 0d 0a 20 20 20  overridden;..   
2d50: 20 20 20 20 20 23 20 20 20 20 20 20 20 74 68 65       #       the
2d60: 72 65 66 6f 72 65 2c 20 75 73 65 20 69 74 20 76  refore, use it v
2d70: 65 72 62 61 74 69 6d 2e 0d 0a 20 20 20 20 20 20  erbatim...      
2d80: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 72 65 74    #..        ret
2d90: 75 72 6e 20 24 3a 3a 62 69 6e 61 72 79 5f 64 69  urn $::binary_di
2da0: 72 65 63 74 6f 72 79 0d 0a 20 20 20 20 20 20 7d  rectory..      }
2db0: 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20   else {..       
2dc0: 20 72 65 74 75 72 6e 20 5b 69 6e 66 6f 20 62 69   return [info bi
2dd0: 6e 61 72 79 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a  nary]..      }..
2de0: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72      }.....    pr
2df0: 6f 63 20 67 65 74 42 69 6e 61 72 79 46 69 6c 65  oc getBinaryFile
2e00: 4e 61 6d 65 20 7b 20 66 69 6c 65 4e 61 6d 65 20  Name { fileName 
2e10: 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  } {..      #..  
2e20: 20 20 20 20 23 20 4e 4f 54 45 3a 20 52 65 74 75      # NOTE: Retu
2e30: 72 6e 73 20 74 68 65 20 73 70 65 63 69 66 69 65  rns the specifie
2e40: 64 20 66 69 6c 65 20 6e 61 6d 65 20 61 73 20 69  d file name as i
2e50: 66 20 69 74 20 77 65 72 65 20 6c 6f 63 61 74 65  f it were locate
2e60: 64 20 69 6e 20 74 68 65 0d 0a 20 20 20 20 20 20  d in the..      
2e70: 23 20 20 20 20 20 20 20 62 69 6e 61 72 79 20 64  #       binary d
2e80: 69 72 65 63 74 6f 72 79 2c 20 64 69 73 63 61 72  irectory, discar
2e90: 64 69 6e 67 20 61 6e 79 20 64 69 72 65 63 74 6f  ding any directo
2ea0: 72 79 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 70  ry information p
2eb0: 72 65 73 65 6e 74 0d 0a 20 20 20 20 20 20 23 20  resent..      # 
2ec0: 20 20 20 20 20 20 69 6e 20 74 68 65 20 66 69 6c        in the fil
2ed0: 65 20 6e 61 6d 65 20 61 73 20 70 72 6f 76 69 64  e name as provid
2ee0: 65 64 20 62 79 20 6f 75 72 20 63 61 6c 6c 65 72  ed by our caller
2ef0: 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20  ...      #..    
2f00: 20 20 72 65 74 75 72 6e 20 5b 66 69 6c 65 20 6e    return [file n
2f10: 61 74 69 76 65 6e 61 6d 65 20 5c 0d 0a 20 20 20  ativename \..   
2f20: 20 20 20 20 20 20 20 5b 66 69 6c 65 20 6a 6f 69         [file joi
2f30: 6e 20 5b 67 65 74 42 69 6e 61 72 79 44 69 72 65  n [getBinaryDire
2f40: 63 74 6f 72 79 5d 20 5b 66 69 6c 65 20 74 61 69  ctory] [file tai
2f50: 6c 20 24 66 69 6c 65 4e 61 6d 65 5d 5d 5d 0d 0a  l $fileName]]]..
2f60: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72      }.....    pr
2f70: 6f 63 20 67 65 74 43 6f 72 65 42 69 6e 61 72 79  oc getCoreBinary
2f80: 46 69 6c 65 4e 61 6d 65 20 7b 20 7b 73 74 61 6e  FileName { {stan
2f90: 64 61 72 64 20 66 61 6c 73 65 7d 20 7d 20 7b 0d  dard false} } {.
2fa0: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20  .      #..      
2fb0: 23 20 4e 4f 54 45 3a 20 52 65 74 75 72 6e 73 20  # NOTE: Returns 
2fc0: 74 68 65 20 66 75 6c 6c 20 70 61 74 68 20 66 6f  the full path fo
2fd0: 72 20 74 68 65 20 66 69 6c 65 20 63 6f 6e 74 61  r the file conta
2fe0: 69 6e 69 6e 67 20 74 68 65 20 63 6f 72 65 20 53  ining the core S
2ff0: 51 4c 69 74 65 0d 0a 20 20 20 20 20 20 23 20 20  QLite..      #  
3000: 20 20 20 20 20 6c 69 62 72 61 72 79 20 63 6f 64       library cod
3010: 65 20 66 6f 72 20 74 68 69 73 20 70 6c 61 74 66  e for this platf
3020: 6f 72 6d 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20  orm...      #.. 
3030: 20 20 20 20 20 69 66 20 7b 5b 68 61 73 52 75 6e       if {[hasRun
3040: 74 69 6d 65 4f 70 74 69 6f 6e 20 6e 61 74 69 76  timeOption nativ
3050: 65 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20  e]} then {..    
3060: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23      #..        #
3070: 20 4e 4f 54 45 3a 20 52 65 74 75 72 6e 20 74 68   NOTE: Return th
3080: 65 20 6d 69 78 65 64 2d 6d 6f 64 65 20 61 73 73  e mixed-mode ass
3090: 65 6d 62 6c 79 20 66 69 6c 65 20 6e 61 6d 65 2e  embly file name.
30a0: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20  ..        #..   
30b0: 20 20 20 20 20 72 65 74 75 72 6e 20 5b 66 69 6c       return [fil
30c0: 65 20 6e 61 74 69 76 65 6e 61 6d 65 20 5c 0d 0a  e nativename \..
30d0: 20 20 20 20 20 20 20 20 20 20 20 20 5b 66 69 6c              [fil
30e0: 65 20 6a 6f 69 6e 20 5b 67 65 74 42 69 6e 61 72  e join [getBinar
30f0: 79 44 69 72 65 63 74 6f 72 79 5d 20 53 79 73 74  yDirectory] Syst
3100: 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 64  em.Data.SQLite.d
3110: 6c 6c 5d 5d 0d 0a 20 20 20 20 20 20 7d 20 65 6c  ll]]..      } el
3120: 73 65 69 66 20 7b 24 73 74 61 6e 64 61 72 64 7d  seif {$standard}
3130: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20   then {..       
3140: 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f   #..        # NO
3150: 54 45 3a 20 52 65 74 75 72 6e 20 74 68 65 20 6e  TE: Return the n
3160: 61 74 69 76 65 2d 6f 6e 6c 79 20 73 74 61 6e 64  ative-only stand
3170: 61 72 64 20 53 51 4c 69 74 65 20 6c 69 62 72 61  ard SQLite libra
3180: 72 79 20 66 69 6c 65 20 6e 61 6d 65 2e 0d 0a 20  ry file name... 
3190: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..      
31a0: 20 20 72 65 74 75 72 6e 20 5b 66 69 6c 65 20 6e    return [file n
31b0: 61 74 69 76 65 6e 61 6d 65 20 5c 0d 0a 20 20 20  ativename \..   
31c0: 20 20 20 20 20 20 20 20 20 5b 66 69 6c 65 20 6a           [file j
31d0: 6f 69 6e 20 5b 67 65 74 42 69 6e 61 72 79 44 69  oin [getBinaryDi
31e0: 72 65 63 74 6f 72 79 5d 20 73 71 6c 69 74 65 33  rectory] sqlite3
31f0: 2e 64 6c 6c 5d 5d 0d 0a 20 20 20 20 20 20 7d 20  .dll]]..      } 
3200: 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20  else {..        
3210: 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54  #..        # NOT
3220: 45 3a 20 52 65 74 75 72 6e 20 74 68 65 20 6e 61  E: Return the na
3230: 74 69 76 65 2d 6f 6e 6c 79 20 69 6e 74 65 72 6f  tive-only intero
3240: 70 20 61 73 73 65 6d 62 6c 79 20 66 69 6c 65 20  p assembly file 
3250: 6e 61 6d 65 2e 0d 0a 20 20 20 20 20 20 20 20 23  name...        #
3260: 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e  ..        return
3270: 20 5b 66 69 6c 65 20 6e 61 74 69 76 65 6e 61 6d   [file nativenam
3280: 65 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20  e \..           
3290: 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 67 65 74   [file join [get
32a0: 42 69 6e 61 72 79 44 69 72 65 63 74 6f 72 79 5d  BinaryDirectory]
32b0: 20 53 51 4c 69 74 65 2e 49 6e 74 65 72 6f 70 2e   SQLite.Interop.
32c0: 64 6c 6c 5d 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a  dll]]..      }..
32d0: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72      }.....    pr
32e0: 6f 63 20 67 65 74 43 6f 6d 6d 6f 6e 44 69 72 65  oc getCommonDire
32f0: 63 74 6f 72 79 20 7b 7d 20 7b 0d 0a 20 20 20 20  ctory {} {..    
3300: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54    #..      # NOT
3310: 45 3a 20 54 68 69 73 20 70 72 6f 63 65 64 75 72  E: This procedur
3320: 65 20 72 65 74 75 72 6e 73 20 74 68 65 20 64 69  e returns the di
3330: 72 65 63 74 6f 72 79 20 77 68 65 72 65 20 74 68  rectory where th
3340: 65 20 74 65 73 74 20 73 63 72 69 70 74 73 0d 0a  e test scripts..
3350: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 73 68        #       sh
3360: 6f 75 6c 64 20 62 65 20 6c 6f 63 61 74 65 64 2e  ould be located.
3370: 20 20 42 79 20 64 65 66 61 75 6c 74 2c 20 74 68    By default, th
3380: 69 73 20 6a 75 73 74 20 72 65 74 75 72 6e 73 20  is just returns 
3390: 74 68 65 20 45 61 67 6c 65 0d 0a 20 20 20 20 20  the Eagle..     
33a0: 20 23 20 20 20 20 20 20 20 62 69 6e 61 72 79 20   #       binary 
33b0: 64 69 72 65 63 74 6f 72 79 2e 0d 0a 20 20 20 20  directory...    
33c0: 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b    #..      if {[
33d0: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 63 6f  info exists ::co
33e0: 6d 6d 6f 6e 5f 64 69 72 65 63 74 6f 72 79 5d 20  mmon_directory] 
33f0: 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  && \..          
3400: 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24  [string length $
3410: 3a 3a 63 6f 6d 6d 6f 6e 5f 64 69 72 65 63 74 6f  ::common_directo
3420: 72 79 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d  ry] > 0} then {.
3430: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20  .        #..    
3440: 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 65 20      # NOTE: The 
3450: 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 74 68 65 20  location of the 
3460: 63 6f 6d 6d 6f 6e 20 64 69 72 65 63 74 6f 72 79  common directory
3470: 20 68 61 73 20 62 65 65 6e 20 73 65 74 3b 0d 0a   has been set;..
3480: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20          #       
3490: 74 68 65 72 65 66 6f 72 65 2c 20 75 73 65 20 69  therefore, use i
34a0: 74 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20  t...        #.. 
34b0: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 3a         return $:
34c0: 3a 63 6f 6d 6d 6f 6e 5f 64 69 72 65 63 74 6f 72  :common_director
34d0: 79 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 69  y..      } elsei
34e0: 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20  f {[info exists 
34f0: 3a 3a 76 65 6e 64 6f 72 5f 64 69 72 65 63 74 6f  ::vendor_directo
3500: 72 79 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20 20  ry] && \..      
3510: 20 20 20 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67      [string leng
3520: 74 68 20 24 3a 3a 76 65 6e 64 6f 72 5f 64 69 72  th $::vendor_dir
3530: 65 63 74 6f 72 79 5d 20 3e 20 30 7d 20 74 68 65  ectory] > 0} the
3540: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a  n {..        #..
3550: 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20          # NOTE: 
3560: 54 68 65 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 20  The location of 
3570: 74 68 65 20 76 65 6e 64 6f 72 20 64 69 72 65 63  the vendor direc
3580: 74 6f 72 79 20 68 61 73 20 62 65 65 6e 20 73 65  tory has been se
3590: 74 3b 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20  t;..        #   
35a0: 20 20 20 20 74 68 65 72 65 66 6f 72 65 2c 20 75      therefore, u
35b0: 73 65 20 69 74 2e 0d 0a 20 20 20 20 20 20 20 20  se it...        
35c0: 23 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 72  #..        retur
35d0: 6e 20 24 3a 3a 76 65 6e 64 6f 72 5f 64 69 72 65  n $::vendor_dire
35e0: 63 74 6f 72 79 0d 0a 20 20 20 20 20 20 7d 20 65  ctory..      } e
35f0: 6c 73 65 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69  lseif {[info exi
3600: 73 74 73 20 3a 3a 74 63 6c 5f 6c 69 62 72 61 72  sts ::tcl_librar
3610: 79 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20 20 20  y] && \..       
3620: 20 20 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74     [string lengt
3630: 68 20 24 3a 3a 74 63 6c 5f 6c 69 62 72 61 72 79  h $::tcl_library
3640: 5d 20 3e 20 30 20 26 26 20 5c 0d 0a 20 20 20 20  ] > 0 && \..    
3650: 20 20 20 20 20 20 5b 66 69 6c 65 20 69 73 64 69        [file isdi
3660: 72 65 63 74 6f 72 79 20 24 3a 3a 74 63 6c 5f 6c  rectory $::tcl_l
3670: 69 62 72 61 72 79 5d 7d 20 74 68 65 6e 20 7b 0d  ibrary]} then {.
3680: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20  .        #..    
3690: 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 65 20      # NOTE: The 
36a0: 76 61 72 69 61 62 6c 65 20 77 69 74 68 20 74 68  variable with th
36b0: 65 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 74 68  e location of th
36c0: 65 20 73 63 72 69 70 74 20 6c 69 62 72 61 72 79  e script library
36d0: 20 69 73 0d 0a 20 20 20 20 20 20 20 20 23 20 20   is..        #  
36e0: 20 20 20 20 20 73 65 74 20 61 6e 64 20 61 70 70       set and app
36f0: 65 61 72 73 20 74 6f 20 62 65 20 61 20 72 65 61  ears to be a rea
3700: 6c 20 64 69 72 65 63 74 6f 72 79 20 28 69 2e 65  l directory (i.e
3710: 2e 20 6e 6f 74 20 65 6d 62 65 64 64 65 64 0d 0a  . not embedded..
3720: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20          #       
3730: 77 69 74 68 69 6e 20 61 20 66 69 6c 65 29 3b 20  within a file); 
3740: 74 68 65 72 65 66 6f 72 65 2c 20 75 73 65 20 69  therefore, use i
3750: 74 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20  t...        #.. 
3760: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 3a         return $:
3770: 3a 74 63 6c 5f 6c 69 62 72 61 72 79 0d 0a 20 20  :tcl_library..  
3780: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20      } else {..  
3790: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
37a0: 20 23 20 4e 4f 54 45 3a 20 46 61 6c 6c 62 61 63   # NOTE: Fallbac
37b0: 6b 20 74 6f 20 74 68 65 20 64 69 72 65 63 74 6f  k to the directo
37c0: 72 79 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68  ry containing th
37d0: 65 20 65 78 65 63 75 74 61 62 6c 65 2e 0d 0a 20  e executable... 
37e0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..      
37f0: 20 20 72 65 74 75 72 6e 20 5b 69 6e 66 6f 20 62    return [info b
3800: 69 6e 61 72 79 5d 0d 0a 20 20 20 20 20 20 7d 0d  inary]..      }.
3810: 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70  .    }.....    p
3820: 72 6f 63 20 67 65 74 44 61 74 61 62 61 73 65 44  roc getDatabaseD
3830: 69 72 65 63 74 6f 72 79 20 7b 7d 20 7b 0d 0a 20  irectory {} {.. 
3840: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20       #..      # 
3850: 4e 4f 54 45 3a 20 54 68 69 73 20 70 72 6f 63 65  NOTE: This proce
3860: 64 75 72 65 20 72 65 74 75 72 6e 73 20 74 68 65  dure returns the
3870: 20 64 69 72 65 63 74 6f 72 79 20 77 68 65 72 65   directory where
3880: 20 74 68 65 20 74 65 73 74 20 64 61 74 61 62 61   the test databa
3890: 73 65 73 0d 0a 20 20 20 20 20 20 23 20 20 20 20  ses..      #    
38a0: 20 20 20 73 68 6f 75 6c 64 20 62 65 20 6c 6f 63     should be loc
38b0: 61 74 65 64 2e 20 20 42 79 20 64 65 66 61 75 6c  ated.  By defaul
38c0: 74 2c 20 74 68 69 73 20 6a 75 73 74 20 75 73 65  t, this just use
38d0: 73 20 74 68 65 20 74 65 6d 70 6f 72 61 72 79 0d  s the temporary.
38e0: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 64  .      #       d
38f0: 69 72 65 63 74 6f 72 79 20 63 6f 6e 66 69 67 75  irectory configu
3900: 72 65 64 20 66 6f 72 20 74 68 69 73 20 73 79 73  red for this sys
3910: 74 65 6d 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20  tem...      #.. 
3920: 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65       if {[info e
3930: 78 69 73 74 73 20 3a 3a 64 61 74 61 62 61 73 65  xists ::database
3940: 5f 64 69 72 65 63 74 6f 72 79 5d 20 26 26 20 5c  _directory] && \
3950: 0d 0a 20 20 20 20 20 20 20 20 20 20 5b 73 74 72  ..          [str
3960: 69 6e 67 20 6c 65 6e 67 74 68 20 24 3a 3a 64 61  ing length $::da
3970: 74 61 62 61 73 65 5f 64 69 72 65 63 74 6f 72 79  tabase_directory
3980: 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20  ] > 0} then {.. 
3990: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..      
39a0: 20 20 23 20 4e 4f 54 45 3a 20 54 68 65 20 6c 6f    # NOTE: The lo
39b0: 63 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 64 61  cation of the da
39c0: 74 61 62 61 73 65 20 64 69 72 65 63 74 6f 72 79  tabase directory
39d0: 20 68 61 73 20 62 65 65 6e 20 6f 76 65 72 72 69   has been overri
39e0: 64 64 65 6e 3b 0d 0a 20 20 20 20 20 20 20 20 23  dden;..        #
39f0: 20 20 20 20 20 20 20 74 68 65 72 65 66 6f 72 65         therefore
3a00: 2c 20 75 73 65 20 69 74 2e 0d 0a 20 20 20 20 20  , use it...     
3a10: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 72 65     #..        re
3a20: 74 75 72 6e 20 24 3a 3a 64 61 74 61 62 61 73 65  turn $::database
3a30: 5f 64 69 72 65 63 74 6f 72 79 0d 0a 20 20 20 20  _directory..    
3a40: 20 20 7d 20 65 6c 73 65 69 66 20 7b 5b 69 6e 66    } elseif {[inf
3a50: 6f 20 65 78 69 73 74 73 20 3a 3a 73 63 72 61 74  o exists ::scrat
3a60: 63 68 5f 64 69 72 65 63 74 6f 72 79 5d 20 26 26  ch_directory] &&
3a70: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 5b 73   \..          [s
3a80: 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 3a 3a  tring length $::
3a90: 73 63 72 61 74 63 68 5f 64 69 72 65 63 74 6f 72  scratch_director
3aa0: 79 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a  y] > 0} then {..
3ab0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..     
3ac0: 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 65 20 6c     # NOTE: The l
3ad0: 6f 63 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 73  ocation of the s
3ae0: 63 72 61 74 63 68 20 64 69 72 65 63 74 6f 72 79  cratch directory
3af0: 20 68 61 73 20 62 65 65 6e 20 6f 76 65 72 72 69   has been overri
3b00: 64 64 65 6e 3b 0d 0a 20 20 20 20 20 20 20 20 23  dden;..        #
3b10: 20 20 20 20 20 20 20 74 68 65 72 65 66 6f 72 65         therefore
3b20: 2c 20 75 73 65 20 69 74 2e 0d 0a 20 20 20 20 20  , use it...     
3b30: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 72 65     #..        re
3b40: 74 75 72 6e 20 24 3a 3a 73 63 72 61 74 63 68 5f  turn $::scratch_
3b50: 64 69 72 65 63 74 6f 72 79 0d 0a 20 20 20 20 20  directory..     
3b60: 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20   } else {..     
3b70: 20 20 20 72 65 74 75 72 6e 20 5b 67 65 74 54 65     return [getTe
3b80: 6d 70 6f 72 61 72 79 50 61 74 68 5d 0d 0a 20 20  mporaryPath]..  
3b90: 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d      }..    }....
3ba0: 0a 20 20 20 20 70 72 6f 63 20 67 65 74 54 65 6d  .    proc getTem
3bb0: 70 6f 72 61 72 79 44 69 72 65 63 74 6f 72 79 20  poraryDirectory 
3bc0: 7b 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20  {} {..      #.. 
3bd0: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 69       # NOTE: Thi
3be0: 73 20 70 72 6f 63 65 64 75 72 65 20 72 65 74 75  s procedure retu
3bf0: 72 6e 73 20 74 68 65 20 64 69 72 65 63 74 6f 72  rns the director
3c00: 79 20 77 68 65 72 65 20 74 68 65 20 74 65 6d 70  y where the temp
3c10: 6f 72 61 72 79 20 66 69 6c 65 73 0d 0a 20 20 20  orary files..   
3c20: 20 20 20 23 20 20 20 20 20 20 20 73 68 6f 75 6c     #       shoul
3c30: 64 20 62 65 20 6c 6f 63 61 74 65 64 2e 20 20 42  d be located.  B
3c40: 79 20 64 65 66 61 75 6c 74 2c 20 74 68 69 73 20  y default, this 
3c50: 6a 75 73 74 20 75 73 65 73 20 74 68 65 20 74 65  just uses the te
3c60: 6d 70 6f 72 61 72 79 0d 0a 20 20 20 20 20 20 23  mporary..      #
3c70: 20 20 20 20 20 20 20 64 69 72 65 63 74 6f 72 79         directory
3c80: 20 63 6f 6e 66 69 67 75 72 65 64 20 66 6f 72 20   configured for 
3c90: 74 68 69 73 20 73 79 73 74 65 6d 2e 0d 0a 20 20  this system...  
3ca0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20      #..      if 
3cb0: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a  {[info exists ::
3cc0: 74 65 6d 70 6f 72 61 72 79 5f 64 69 72 65 63 74  temporary_direct
3cd0: 6f 72 79 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20  ory] && \..     
3ce0: 20 20 20 20 20 5b 73 74 72 69 6e 67 20 6c 65 6e       [string len
3cf0: 67 74 68 20 24 3a 3a 74 65 6d 70 6f 72 61 72 79  gth $::temporary
3d00: 5f 64 69 72 65 63 74 6f 72 79 5d 20 3e 20 30 7d  _directory] > 0}
3d10: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20   then {..       
3d20: 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f   #..        # NO
3d30: 54 45 3a 20 54 68 65 20 6c 6f 63 61 74 69 6f 6e  TE: The location
3d40: 20 6f 66 20 74 68 65 20 74 65 6d 70 6f 72 61 72   of the temporar
3d50: 79 20 64 69 72 65 63 74 6f 72 79 20 68 61 73 20  y directory has 
3d60: 62 65 65 6e 20 6f 76 65 72 72 69 64 64 65 6e 3b  been overridden;
3d70: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20  ..        #     
3d80: 20 20 74 68 65 72 65 66 6f 72 65 2c 20 75 73 65    therefore, use
3d90: 20 69 74 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d   it...        #.
3da0: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20  .        return 
3db0: 24 3a 3a 74 65 6d 70 6f 72 61 72 79 5f 64 69 72  $::temporary_dir
3dc0: 65 63 74 6f 72 79 0d 0a 20 20 20 20 20 20 7d 20  ectory..      } 
3dd0: 65 6c 73 65 69 66 20 7b 5b 69 6e 66 6f 20 65 78  elseif {[info ex
3de0: 69 73 74 73 20 3a 3a 73 63 72 61 74 63 68 5f 64  ists ::scratch_d
3df0: 69 72 65 63 74 6f 72 79 5d 20 26 26 20 5c 0d 0a  irectory] && \..
3e00: 20 20 20 20 20 20 20 20 20 20 5b 73 74 72 69 6e            [strin
3e10: 67 20 6c 65 6e 67 74 68 20 24 3a 3a 73 63 72 61  g length $::scra
3e20: 74 63 68 5f 64 69 72 65 63 74 6f 72 79 5d 20 3e  tch_directory] >
3e30: 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20   0} then {..    
3e40: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23      #..        #
3e50: 20 4e 4f 54 45 3a 20 54 68 65 20 6c 6f 63 61 74   NOTE: The locat
3e60: 69 6f 6e 20 6f 66 20 74 68 65 20 73 63 72 61 74  ion of the scrat
3e70: 63 68 20 64 69 72 65 63 74 6f 72 79 20 68 61 73  ch directory has
3e80: 20 62 65 65 6e 20 6f 76 65 72 72 69 64 64 65 6e   been overridden
3e90: 3b 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20  ;..        #    
3ea0: 20 20 20 74 68 65 72 65 66 6f 72 65 2c 20 75 73     therefore, us
3eb0: 65 20 69 74 2e 0d 0a 20 20 20 20 20 20 20 20 23  e it...        #
3ec0: 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e  ..        return
3ed0: 20 24 3a 3a 73 63 72 61 74 63 68 5f 64 69 72 65   $::scratch_dire
3ee0: 63 74 6f 72 79 0d 0a 20 20 20 20 20 20 7d 20 65  ctory..      } e
3ef0: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 72  lse {..        r
3f00: 65 74 75 72 6e 20 5b 67 65 74 54 65 6d 70 6f 72  eturn [getTempor
3f10: 61 72 79 50 61 74 68 5d 0d 0a 20 20 20 20 20 20  aryPath]..      
3f20: 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20  }..    }.....   
3f30: 20 70 72 6f 63 20 67 65 74 54 65 73 74 4f 76 65   proc getTestOve
3f40: 72 72 69 64 65 73 50 72 65 61 6d 62 6c 65 20 7b  rridesPreamble {
3f50: 20 7b 65 78 74 72 61 56 61 72 4e 61 6d 65 73 20   {extraVarNames 
3f60: 22 22 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 20 73  ""} } {..      s
3f70: 65 74 20 76 61 72 4e 61 6d 65 73 20 5b 6c 69 73  et varNames [lis
3f80: 74 5d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20  t]....      #.. 
3f90: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 49 66 20       # NOTE: If 
3fa0: 61 76 61 69 6c 61 62 6c 65 2c 20 73 74 61 72 74  available, start
3fb0: 20 77 69 74 68 20 74 68 65 20 6d 61 73 74 65 72   with the master
3fc0: 20 6c 69 73 74 20 6f 66 20 74 65 73 74 20 6f 76   list of test ov
3fd0: 65 72 72 69 64 65 0d 0a 20 20 20 20 20 20 23 20  erride..      # 
3fe0: 20 20 20 20 20 20 76 61 72 69 61 62 6c 65 73 2e        variables.
3ff0: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20  ..      #..     
4000: 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74   if {[info exist
4010: 73 20 3a 3a 74 65 73 74 5f 6f 76 65 72 72 69 64  s ::test_overrid
4020: 65 73 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20 20  es] && \..      
4030: 20 20 20 20 5b 6c 6c 65 6e 67 74 68 20 24 3a 3a      [llength $::
4040: 74 65 73 74 5f 6f 76 65 72 72 69 64 65 73 5d 20  test_overrides] 
4050: 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  > 0} then {..   
4060: 20 20 20 20 20 65 76 61 6c 20 6c 61 70 70 65 6e       eval lappen
4070: 64 20 76 61 72 4e 61 6d 65 73 20 24 3a 3a 74 65  d varNames $::te
4080: 73 74 5f 6f 76 65 72 72 69 64 65 73 0d 0a 20 20  st_overrides..  
4090: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23      }....      #
40a0: 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20  ..      # NOTE: 
40b0: 49 66 20 72 65 71 75 65 73 74 65 64 20 62 79 20  If requested by 
40c0: 6f 75 72 20 63 61 6c 6c 65 72 2c 20 61 64 64 20  our caller, add 
40d0: 61 6e 79 20 61 64 64 69 74 69 6f 6e 61 6c 20 76  any additional v
40e0: 61 72 69 61 62 6c 65 0d 0a 20 20 20 20 20 20 23  ariable..      #
40f0: 20 20 20 20 20 20 20 6e 61 6d 65 73 20 74 6f 20         names to 
4100: 63 6f 70 79 20 6e 6f 77 2e 0d 0a 20 20 20 20 20  copy now...     
4110: 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 6c   #..      if {[l
4120: 6c 65 6e 67 74 68 20 24 65 78 74 72 61 56 61 72  length $extraVar
4130: 4e 61 6d 65 73 5d 20 3e 20 30 7d 20 74 68 65 6e  Names] > 0} then
4140: 20 7b 0d 0a 20 20 20 20 20 20 20 20 65 76 61 6c   {..        eval
4150: 20 6c 61 70 70 65 6e 64 20 76 61 72 4e 61 6d 65   lappend varName
4160: 73 20 24 65 78 74 72 61 56 61 72 4e 61 6d 65 73  s $extraVarNames
4170: 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20  ..      }....   
4180: 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f     #..      # NO
4190: 54 45 3a 20 42 75 69 6c 64 20 74 68 65 20 73 63  TE: Build the sc
41a0: 72 69 70 74 20 66 72 61 67 6d 65 6e 74 20 74 6f  ript fragment to
41b0: 20 62 65 20 72 65 74 75 72 6e 65 64 20 62 79 20   be returned by 
41c0: 70 72 6f 63 65 73 73 69 6e 67 20 65 61 63 68 0d  processing each.
41d0: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 76  .      #       v
41e0: 61 72 69 61 62 6c 65 20 6e 61 6d 65 20 61 6e 64  ariable name and
41f0: 20 61 64 64 69 6e 67 20 74 68 65 20 6e 65 63 65   adding the nece
4200: 63 65 73 73 61 72 79 20 73 63 72 69 70 74 20 66  cessary script f
4210: 72 61 67 6d 65 6e 74 73 20 66 6f 72 0d 0a 20 20  ragments for..  
4220: 20 20 20 20 23 20 20 20 20 20 20 20 65 61 63 68      #       each
4230: 20 6f 6e 65 2e 0d 0a 20 20 20 20 20 20 23 0d 0a   one...      #..
4240: 20 20 20 20 20 20 73 65 74 20 72 65 73 75 6c 74        set result
4250: 20 22 22 0d 0a 0d 0a 20 20 20 20 20 20 66 6f 72   ""....      for
4260: 65 61 63 68 20 76 61 72 4e 61 6d 65 20 24 76 61  each varName $va
4270: 72 4e 61 6d 65 73 20 7b 0d 0a 20 20 20 20 20 20  rNames {..      
4280: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e    #..        # N
4290: 4f 54 45 3a 20 42 75 69 6c 64 20 74 68 65 20 71  OTE: Build the q
42a0: 75 61 6c 69 66 69 65 64 20 67 6c 6f 62 61 6c 20  ualified global 
42b0: 76 61 72 69 61 62 6c 65 20 6e 61 6d 65 2e 0d 0a  variable name...
42c0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..     
42d0: 20 20 20 73 65 74 20 66 75 6c 6c 56 61 72 4e 61     set fullVarNa
42e0: 6d 65 20 5b 61 70 70 65 6e 64 41 72 67 73 20 3a  me [appendArgs :
42f0: 3a 20 24 76 61 72 4e 61 6d 65 5d 0d 0a 0d 0a 20  : $varName].... 
4300: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..      
4310: 20 20 23 20 4e 4f 54 45 3a 20 44 6f 65 73 20 74    # NOTE: Does t
4320: 68 65 20 76 61 72 69 61 62 6c 65 20 65 78 69 73  he variable exis
4330: 74 20 69 6e 20 74 68 69 73 20 69 6e 74 65 72 70  t in this interp
4340: 72 65 74 65 72 20 63 6f 6e 74 65 78 74 3f 0d 0a  reter context?..
4350: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..     
4360: 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69     if {[info exi
4370: 73 74 73 20 24 66 75 6c 6c 56 61 72 4e 61 6d 65  sts $fullVarName
4380: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  ]} then {..     
4390: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..        
43a0: 20 20 23 20 4e 4f 54 45 3a 20 41 70 70 65 6e 64    # NOTE: Append
43b0: 20 61 20 73 63 72 69 70 74 20 66 72 61 67 6d 65   a script fragme
43c0: 6e 74 20 74 6f 20 74 68 65 20 72 65 73 75 6c 74  nt to the result
43d0: 20 74 68 61 74 20 77 69 6c 6c 20 63 6f 72 72 65   that will corre
43e0: 63 74 6c 79 0d 0a 20 20 20 20 20 20 20 20 20 20  ctly..          
43f0: 23 20 20 20 20 20 20 20 63 6f 70 79 20 61 6e 79  #       copy any
4400: 20 63 6f 6e 74 61 69 6e 65 64 20 76 61 6c 75 65   contained value
4410: 20 74 6f 20 61 6e 6f 74 68 65 72 20 69 6e 74 65   to another inte
4420: 72 70 72 65 74 65 72 20 63 6f 6e 74 65 78 74 2e  rpreter context.
4430: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20  ..          #.. 
4440: 20 20 20 20 20 20 20 20 20 61 70 70 65 6e 64 20           append 
4450: 72 65 73 75 6c 74 20 5c 6e 20 22 73 65 74 20 22  result \n "set "
4460: 20 24 66 75 6c 6c 56 61 72 4e 61 6d 65 20 22 20   $fullVarName " 
4470: 5c 7b 22 20 5b 73 65 74 20 24 66 75 6c 6c 56 61  \{" [set $fullVa
4480: 72 4e 61 6d 65 5d 20 5c 7d 0d 0a 20 20 20 20 20  rName] \}..     
4490: 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d     }..      }...
44a0: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20  .      #..      
44b0: 23 20 4e 4f 54 45 3a 20 49 66 20 74 68 65 20 72  # NOTE: If the r
44c0: 65 73 75 6c 74 20 63 6f 6e 74 61 69 6e 73 20 6f  esult contains o
44d0: 6e 65 20 6f 72 20 6d 6f 72 65 20 73 63 72 69 70  ne or more scrip
44e0: 74 20 66 72 61 67 6d 65 6e 74 73 2c 20 61 70 70  t fragments, app
44f0: 65 6e 64 20 61 0d 0a 20 20 20 20 20 20 23 20 20  end a..      #  
4500: 20 20 20 20 20 6e 65 77 6c 69 6e 65 2e 0d 0a 20       newline... 
4510: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66       #..      if
4520: 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68   {[string length
4530: 20 24 72 65 73 75 6c 74 5d 20 3e 20 30 7d 20 74   $result] > 0} t
4540: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 61  hen {..        a
4550: 70 70 65 6e 64 20 72 65 73 75 6c 74 20 5c 6e 0d  ppend result \n.
4560: 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20  .      }....    
4570: 20 20 72 65 74 75 72 6e 20 24 72 65 73 75 6c 74    return $result
4580: 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20  ..    }.....    
4590: 70 72 6f 63 20 67 65 74 41 70 70 44 6f 6d 61 69  proc getAppDomai
45a0: 6e 50 72 65 61 6d 62 6c 65 20 7b 20 7b 70 72 65  nPreamble { {pre
45b0: 66 69 78 20 22 22 7d 20 7b 73 75 66 66 69 78 20  fix ""} {suffix 
45c0: 22 22 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 20 23  ""} } {..      #
45d0: 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20  ..      # NOTE: 
45e0: 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 72  This procedure r
45f0: 65 74 75 72 6e 73 20 61 20 74 65 73 74 20 73 65  eturns a test se
4600: 74 75 70 20 73 63 72 69 70 74 20 66 72 61 67 6d  tup script fragm
4610: 65 6e 74 20 73 75 69 74 61 62 6c 65 20 66 6f 72  ent suitable for
4620: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20  ..      #       
4630: 65 76 61 6c 75 61 74 69 6f 6e 20 62 79 20 61 6e  evaluation by an
4640: 20 69 6e 74 65 72 70 72 65 74 65 72 20 63 72 65   interpreter cre
4650: 61 74 65 64 20 69 6e 20 61 6e 20 69 73 6f 6c 61  ated in an isola
4660: 74 65 64 20 61 70 70 6c 69 63 61 74 69 6f 6e 0d  ted application.
4670: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 64  .      #       d
4680: 6f 6d 61 69 6e 2e 20 20 54 68 65 20 73 63 72 69  omain.  The scri
4690: 70 74 20 66 72 61 67 6d 65 6e 74 20 62 65 69 6e  pt fragment bein
46a0: 67 20 72 65 74 75 72 6e 65 64 20 77 69 6c 6c 20  g returned will 
46b0: 62 65 20 73 75 72 72 6f 75 6e 64 65 64 20 62 79  be surrounded by
46c0: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20  ..      #       
46d0: 74 68 65 20 70 72 65 66 69 78 20 61 6e 64 20 73  the prefix and s
46e0: 75 66 66 69 78 20 22 73 63 72 69 70 74 20 66 72  uffix "script fr
46f0: 61 67 6d 65 6e 74 73 22 20 73 70 65 63 69 66 69  agments" specifi
4700: 65 64 20 62 79 20 6f 75 72 20 63 61 6c 6c 65 72  ed by our caller
4710: 2c 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20  ,..      #      
4720: 20 69 66 20 61 6e 79 2e 20 20 54 68 65 20 65 6e   if any.  The en
4730: 74 69 72 65 20 73 63 72 69 70 74 20 62 65 69 6e  tire script bein
4740: 67 20 72 65 74 75 72 6e 65 64 20 77 69 6c 6c 20  g returned will 
4750: 62 65 20 73 75 62 73 74 69 74 75 74 65 64 20 76  be substituted v
4760: 69 61 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20  ia..      #     
4770: 20 20 5b 73 75 62 73 74 5d 2c 20 69 6e 20 74 68    [subst], in th
4780: 65 20 63 6f 6e 74 65 78 74 20 6f 66 20 6f 75 72  e context of our
4790: 20 63 61 6c 6c 65 72 2c 20 62 65 66 6f 72 65 20   caller, before 
47a0: 62 65 69 6e 67 20 72 65 74 75 72 6e 65 64 2e 0d  being returned..
47b0: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 54  .      #       T
47c0: 68 69 73 20 73 74 65 70 20 69 73 20 6e 65 63 65  his step is nece
47d0: 73 73 61 72 79 20 73 6f 20 74 68 61 74 20 73 6f  ssary so that so
47e0: 6d 65 20 6c 69 6d 69 74 65 64 20 63 6f 6e 74 65  me limited conte
47f0: 78 74 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2c 0d  xt information,.
4800: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 70  .      #       p
4810: 72 69 6d 61 72 69 6c 79 20 72 65 6c 61 74 65 64  rimarily related
4820: 20 74 6f 20 74 68 65 20 74 65 73 74 69 6e 67 20   to the testing 
4830: 64 69 72 65 63 74 6f 72 69 65 73 2c 20 63 61 6e  directories, can
4840: 20 62 65 20 74 72 61 6e 73 66 65 72 72 65 64 0d   be transferred.
4850: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 74  .      #       t
4860: 6f 20 74 68 65 20 69 6e 74 65 72 70 72 65 74 65  o the interprete
4870: 72 20 69 6e 20 74 68 65 20 69 73 6f 6c 61 74 65  r in the isolate
4880: 64 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 64 6f  d application do
4890: 6d 61 69 6e 2c 20 6d 61 6b 69 6e 67 20 69 74 0d  main, making it.
48a0: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 61  .      #       a
48b0: 62 6c 65 20 74 6f 20 73 75 63 63 65 73 73 66 75  ble to successfu
48c0: 6c 6c 79 20 72 75 6e 20 74 65 73 74 73 20 74 68  lly run tests th
48d0: 61 74 20 72 65 71 75 69 72 65 20 6f 6e 65 20 6f  at require one o
48e0: 72 20 6d 6f 72 65 20 6f 66 20 74 68 65 0d 0a 20  r more of the.. 
48f0: 20 20 20 20 20 23 20 20 20 20 20 20 20 66 69 6c       #       fil
4900: 65 73 20 69 6e 20 6f 6e 65 20 6f 66 20 74 68 65  es in one of the
4910: 20 74 65 73 74 69 6e 67 20 64 69 72 65 63 74 6f   testing directo
4920: 72 69 65 73 2e 20 20 43 61 6c 6c 65 72 73 20 73  ries.  Callers s
4930: 68 6f 75 6c 64 20 6b 65 65 70 20 69 6e 0d 0a 20  hould keep in.. 
4940: 20 20 20 20 20 23 20 20 20 20 20 20 20 6d 69 6e       #       min
4950: 64 20 74 68 61 74 20 74 68 65 20 74 65 73 74 20  d that the test 
4960: 73 63 72 69 70 74 20 66 72 61 67 6d 65 6e 74 20  script fragment 
4970: 62 65 69 6e 67 20 72 65 74 75 72 6e 65 64 20 63  being returned c
4980: 61 6e 6e 6f 74 20 72 65 6c 79 20 6f 6e 0d 0a 20  annot rely on.. 
4990: 20 20 20 20 20 23 20 20 20 20 20 20 20 61 6e 79       #       any
49a0: 20 73 63 72 69 70 74 20 6c 69 62 72 61 72 79 20   script library 
49b0: 70 72 6f 63 65 64 75 72 65 73 20 74 68 61 74 20  procedures that 
49c0: 61 72 65 20 6e 6f 74 20 70 72 6f 76 69 64 65 64  are not provided
49d0: 20 62 79 20 74 68 65 20 45 61 67 6c 65 0d 0a 20   by the Eagle.. 
49e0: 20 20 20 20 20 23 20 20 20 20 20 20 20 6c 69 62       #       lib
49f0: 72 61 72 79 20 70 61 63 6b 61 67 65 20 28 69 2e  rary package (i.
4a00: 65 2e 20 22 69 6e 69 74 2e 65 61 67 6c 65 22 29  e. "init.eagle")
4a10: 2c 20 69 6e 63 6c 75 64 69 6e 67 20 74 68 6f 73  , including thos
4a20: 65 20 70 72 6f 76 69 64 65 64 20 62 79 0d 0a 20  e provided by.. 
4a30: 20 20 20 20 20 23 20 20 20 20 20 20 20 74 68 65       #       the
4a40: 20 45 61 67 6c 65 20 74 65 73 74 20 70 61 63 6b   Eagle test pack
4a50: 61 67 65 2c 20 75 6e 6c 65 73 73 20 74 68 65 20  age, unless the 
4a60: 66 69 6c 65 20 63 6f 6e 74 61 69 6e 69 6e 67 20  file containing 
4a70: 74 68 65 6d 20 69 73 20 6c 6f 61 64 65 64 0d 0a  them is loaded..
4a80: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 6d 61        #       ma
4a90: 6e 75 61 6c 6c 79 20 76 69 61 20 73 6f 6d 65 20  nually via some 
4aa0: 6f 74 68 65 72 20 6d 65 63 68 61 6e 69 73 6d 20  other mechanism 
4ab0: 28 65 2e 67 2e 20 62 79 20 69 6e 63 6c 75 64 69  (e.g. by includi
4ac0: 6e 67 20 61 70 70 72 6f 70 72 69 61 74 65 0d 0a  ng appropriate..
4ad0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 5b 70        #       [p
4ae0: 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 5d 20  ackage require] 
4af0: 6f 72 20 5b 73 6f 75 72 63 65 5d 20 63 6f 6d 6d  or [source] comm
4b00: 61 6e 64 73 20 69 6e 20 74 68 65 20 70 72 65 66  ands in the pref
4b10: 69 78 20 6f 72 20 73 75 66 66 69 78 0d 0a 20 20  ix or suffix..  
4b20: 20 20 20 20 23 20 20 20 20 20 20 20 73 63 72 69      #       scri
4b30: 70 74 20 66 72 61 67 6d 65 6e 74 73 29 2e 20 20  pt fragments).  
4b40: 41 6c 73 6f 2c 20 61 6c 6c 20 76 61 72 69 61 62  Also, all variab
4b50: 6c 65 20 72 65 66 65 72 65 6e 63 65 73 20 61 6e  le references an
4b60: 64 20 61 6c 6c 20 6e 65 73 74 65 64 0d 0a 20 20  d all nested..  
4b70: 20 20 20 20 23 20 20 20 20 20 20 20 63 6f 6d 6d      #       comm
4b80: 61 6e 64 73 20 28 69 2e 65 2e 20 74 68 6f 73 65  ands (i.e. those
4b90: 20 69 6e 20 73 71 75 61 72 65 20 62 72 61 63 6b   in square brack
4ba0: 65 74 73 29 20 63 6f 6e 74 61 69 6e 65 64 20 69  ets) contained i
4bb0: 6e 20 74 68 65 20 66 69 6e 61 6c 0d 0a 20 20 20  n the final..   
4bc0: 20 20 20 23 20 20 20 20 20 20 20 73 63 72 69 70     #       scrip
4bd0: 74 20 66 72 61 67 6d 65 6e 74 20 77 69 6c 6c 20  t fragment will 
4be0: 65 6e 64 20 75 70 20 62 65 69 6e 67 20 65 76 61  end up being eva
4bf0: 6c 75 61 74 65 64 20 69 6e 20 74 68 65 20 63 6f  luated in the co
4c00: 6e 74 65 78 74 20 6f 66 20 74 68 65 0d 0a 20 20  ntext of the..  
4c10: 20 20 20 20 23 20 20 20 20 20 20 20 63 61 6c 6c      #       call
4c20: 69 6e 67 20 69 6e 74 65 72 70 72 65 74 65 72 20  ing interpreter 
4c30: 61 6e 64 20 6e 6f 74 20 74 68 65 20 74 61 72 67  and not the targ
4c40: 65 74 20 69 6e 74 65 72 70 72 65 74 65 72 20 63  et interpreter c
4c50: 72 65 61 74 65 64 20 69 6e 20 74 68 65 0d 0a 20  reated in the.. 
4c60: 20 20 20 20 20 23 20 20 20 20 20 20 20 69 73 6f       #       iso
4c70: 6c 61 74 65 64 20 61 70 70 6c 69 63 61 74 69 6f  lated applicatio
4c80: 6e 20 64 6f 6d 61 69 6e 20 75 6e 6c 65 73 73 20  n domain unless 
4c90: 74 68 65 20 64 6f 6c 6c 61 72 20 73 69 67 6e 73  the dollar signs
4ca0: 20 61 6e 64 2f 6f 72 20 73 71 75 61 72 65 0d 0a   and/or square..
4cb0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 62 72        #       br
4cc0: 61 63 6b 65 74 73 20 61 72 65 20 73 70 65 63 69  ackets are speci
4cd0: 61 6c 6c 79 20 71 75 6f 74 65 64 20 77 69 74 68  ally quoted with
4ce0: 20 62 61 63 6b 73 6c 61 73 68 65 73 2e 0d 0a 20   backslashes... 
4cf0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 72 65       #..      re
4d00: 74 75 72 6e 20 5b 75 70 6c 65 76 65 6c 20 31 20  turn [uplevel 1 
4d10: 5b 6c 69 73 74 20 73 75 62 73 74 20 5b 61 70 70  [list subst [app
4d20: 65 6e 64 41 72 67 73 20 24 70 72 65 66 69 78 20  endArgs $prefix 
4d30: 7b 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b  {..        if {[
4d40: 68 61 73 52 75 6e 74 69 6d 65 4f 70 74 69 6f 6e  hasRuntimeOption
4d50: 20 6e 61 74 69 76 65 5d 7d 20 74 68 65 6e 20 7b   native]} then {
4d60: 0d 0a 20 20 20 20 20 20 20 20 20 20 6f 62 6a 65  ..          obje
4d70: 63 74 20 69 6e 76 6f 6b 65 20 49 6e 74 65 72 70  ct invoke Interp
4d80: 72 65 74 65 72 2e 47 65 74 41 63 74 69 76 65 20  reter.GetActive 
4d90: 41 64 64 52 75 6e 74 69 6d 65 4f 70 74 69 6f 6e  AddRuntimeOption
4da0: 20 6e 61 74 69 76 65 0d 0a 20 20 20 20 20 20 20   native..       
4db0: 20 7d 0d 0a 20 20 20 20 20 20 7d 20 5b 67 65 74   }..      } [get
4dc0: 54 65 73 74 4f 76 65 72 72 69 64 65 73 50 72 65  TestOverridesPre
4dd0: 61 6d 62 6c 65 20 5b 6c 69 73 74 20 70 61 74 68  amble [list path
4de0: 20 74 65 73 74 5f 63 68 61 6e 6e 65 6c 5d 5d 20   test_channel]] 
4df0: 24 73 75 66 66 69 78 5d 5d 5d 0d 0a 20 20 20 20  $suffix]]]..    
4e00: 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 74  }.....    proc t
4e10: 72 79 43 6f 70 79 42 75 69 6c 64 46 69 6c 65 20  ryCopyBuildFile 
4e20: 7b 20 66 69 6c 65 4e 61 6d 65 20 7d 20 7b 0d 0a  { fileName } {..
4e30: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23        #..      #
4e40: 20 4e 4f 54 45 3a 20 49 66 20 77 65 20 63 61 6e   NOTE: If we can
4e50: 6e 6f 74 20 63 6f 70 79 20 74 68 65 20 61 73 73  not copy the ass
4e60: 65 6d 62 6c 79 20 74 68 65 6e 20 69 74 20 69 73  embly then it is
4e70: 20 70 72 6f 62 61 62 6c 79 20 61 6c 72 65 61 64   probably alread
4e80: 79 20 6c 6f 61 64 65 64 2e 0d 0a 20 20 20 20 20  y loaded...     
4e90: 20 23 0d 0a 20 20 20 20 20 20 73 65 74 20 73 6f   #..      set so
4ea0: 75 72 63 65 46 69 6c 65 4e 61 6d 65 20 5b 67 65  urceFileName [ge
4eb0: 74 42 75 69 6c 64 46 69 6c 65 4e 61 6d 65 20 24  tBuildFileName $
4ec0: 66 69 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a 20 20 20  fileName]....   
4ed0: 20 20 20 69 66 20 7b 21 5b 66 69 6c 65 20 65 78     if {![file ex
4ee0: 69 73 74 73 20 24 73 6f 75 72 63 65 46 69 6c 65  ists $sourceFile
4ef0: 4e 61 6d 65 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20  Name]} then {.. 
4f00: 20 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a         tputs $::
4f10: 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70  test_channel [ap
4f20: 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20  pendArgs \..    
4f30: 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 73 6b          "---- sk
4f40: 69 70 70 65 64 20 63 6f 70 79 69 6e 67 20 62 75  ipped copying bu
4f50: 69 6c 64 20 66 69 6c 65 20 5c 22 22 20 24 73 6f  ild file \"" $so
4f60: 75 72 63 65 46 69 6c 65 4e 61 6d 65 20 5c 0d 0a  urceFileName \..
4f70: 20 20 20 20 20 20 20 20 20 20 20 20 22 5c 22 2c              "\",
4f80: 20 69 74 20 64 6f 65 73 20 6e 6f 74 20 65 78 69   it does not exi
4f90: 73 74 5c 6e 22 5d 0d 0a 0d 0a 20 20 20 20 20 20  st\n"]....      
4fa0: 20 20 72 65 74 75 72 6e 0d 0a 20 20 20 20 20 20    return..      
4fb0: 7d 0d 0a 0d 0a 20 20 20 20 20 20 73 65 74 20 74  }....      set t
4fc0: 61 72 67 65 74 46 69 6c 65 4e 61 6d 65 20 5b 67  argetFileName [g
4fd0: 65 74 42 69 6e 61 72 79 46 69 6c 65 4e 61 6d 65  etBinaryFileName
4fe0: 20 24 66 69 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a 20   $fileName].... 
4ff0: 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20       if {[catch 
5000: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  {..             
5010: 20 66 69 6c 65 20 63 6f 70 79 20 2d 66 6f 72 63   file copy -forc
5020: 65 20 24 73 6f 75 72 63 65 46 69 6c 65 4e 61 6d  e $sourceFileNam
5030: 65 20 24 74 61 72 67 65 74 46 69 6c 65 4e 61 6d  e $targetFileNam
5040: 65 7d 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b  e}] == 0} then {
5050: 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20  ..        tputs 
5060: 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20  $::test_channel 
5070: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20  [appendArgs \.. 
5080: 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d             "----
5090: 20 63 6f 70 69 65 64 20 62 75 69 6c 64 20 66 69   copied build fi
50a0: 6c 65 20 66 72 6f 6d 20 5c 22 22 20 24 73 6f 75  le from \"" $sou
50b0: 72 63 65 46 69 6c 65 4e 61 6d 65 20 22 5c 22 20  rceFileName "\" 
50c0: 74 6f 20 5c 22 22 20 5c 0d 0a 20 20 20 20 20 20  to \"" \..      
50d0: 20 20 20 20 20 20 24 74 61 72 67 65 74 46 69 6c        $targetFil
50e0: 65 4e 61 6d 65 20 5c 22 5c 6e 5d 0d 0a 20 20 20  eName \"\n]..   
50f0: 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20     } else {..   
5100: 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65       tputs $::te
5110: 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65  st_channel [appe
5120: 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20  ndArgs \..      
5130: 20 20 20 20 20 20 22 2d 2d 2d 2d 20 66 61 69 6c        "---- fail
5140: 65 64 20 74 6f 20 63 6f 70 79 20 62 75 69 6c 64  ed to copy build
5150: 20 66 69 6c 65 20 66 72 6f 6d 20 5c 22 22 20 24   file from \"" $
5160: 73 6f 75 72 63 65 46 69 6c 65 4e 61 6d 65 20 5c  sourceFileName \
5170: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 5c  ..            "\
5180: 22 20 74 6f 20 5c 22 22 20 24 74 61 72 67 65 74  " to \"" $target
5190: 46 69 6c 65 4e 61 6d 65 20 5c 22 5c 6e 5d 0d 0a  FileName \"\n]..
51a0: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a        }..    }..
51b0: 0c 0d 0a 20 20 20 20 70 72 6f 63 20 74 72 79 44  ...    proc tryD
51c0: 65 6c 65 74 65 42 69 6e 61 72 79 46 69 6c 65 20  eleteBinaryFile 
51d0: 7b 20 66 69 6c 65 4e 61 6d 65 20 7d 20 7b 0d 0a  { fileName } {..
51e0: 20 20 20 20 20 20 73 65 74 20 66 69 6c 65 4e 61        set fileNa
51f0: 6d 65 20 5b 67 65 74 42 69 6e 61 72 79 46 69 6c  me [getBinaryFil
5200: 65 4e 61 6d 65 20 24 66 69 6c 65 4e 61 6d 65 5d  eName $fileName]
5210: 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 21 5b  ....      if {![
5220: 66 69 6c 65 20 65 78 69 73 74 73 20 24 66 69 6c  file exists $fil
5230: 65 4e 61 6d 65 5d 7d 20 74 68 65 6e 20 7b 0d 0a  eName]} then {..
5240: 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 3a          tputs $:
5250: 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61  :test_channel [a
5260: 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20  ppendArgs \..   
5270: 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 73           "---- s
5280: 6b 69 70 70 65 64 20 64 65 6c 65 74 69 6e 67 20  kipped deleting 
5290: 62 69 6e 61 72 79 20 66 69 6c 65 20 5c 22 22 20  binary file \"" 
52a0: 24 66 69 6c 65 4e 61 6d 65 20 5c 0d 0a 20 20 20  $fileName \..   
52b0: 20 20 20 20 20 20 20 20 20 22 5c 22 2c 20 69 74           "\", it
52c0: 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 5c   does not exist\
52d0: 6e 22 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 72  n"]....        r
52e0: 65 74 75 72 6e 0d 0a 20 20 20 20 20 20 7d 0d 0a  eturn..      }..
52f0: 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74  ..      if {[cat
5300: 63 68 20 7b 66 69 6c 65 20 64 65 6c 65 74 65 20  ch {file delete 
5310: 24 66 69 6c 65 4e 61 6d 65 7d 5d 20 3d 3d 20 30  $fileName}] == 0
5320: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..      
5330: 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f    tputs $::test_
5340: 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41  channel [appendA
5350: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  rgs \..         
5360: 20 20 20 22 2d 2d 2d 2d 20 64 65 6c 65 74 65 64     "---- deleted
5370: 20 62 69 6e 61 72 79 20 66 69 6c 65 20 5c 22 22   binary file \""
5380: 20 24 66 69 6c 65 4e 61 6d 65 20 5c 22 5c 6e 5d   $fileName \"\n]
5390: 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b  ..      } else {
53a0: 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20  ..        tputs 
53b0: 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20  $::test_channel 
53c0: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20  [appendArgs \.. 
53d0: 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d             "----
53e0: 20 66 61 69 6c 65 64 20 74 6f 20 64 65 6c 65 74   failed to delet
53f0: 65 20 62 69 6e 61 72 79 20 66 69 6c 65 20 5c 22  e binary file \"
5400: 22 20 24 66 69 6c 65 4e 61 6d 65 20 5c 22 5c 6e  " $fileName \"\n
5410: 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20  ]..      }..    
5420: 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 74  }.....    proc t
5430: 72 79 43 6f 70 79 41 73 73 65 6d 62 6c 79 20 7b  ryCopyAssembly {
5440: 20 66 69 6c 65 4e 61 6d 65 20 7b 70 64 62 20 74   fileName {pdb t
5450: 72 75 65 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 20  rue} } {..      
5460: 74 72 79 43 6f 70 79 42 75 69 6c 64 46 69 6c 65  tryCopyBuildFile
5470: 20 24 66 69 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 20   $fileName....  
5480: 20 20 20 20 69 66 20 7b 24 70 64 62 7d 20 74 68      if {$pdb} th
5490: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 74 72  en {..        tr
54a0: 79 43 6f 70 79 42 75 69 6c 64 46 69 6c 65 20 5b  yCopyBuildFile [
54b0: 61 70 70 65 6e 64 41 72 67 73 20 5b 66 69 6c 65  appendArgs [file
54c0: 20 72 6f 6f 74 6e 61 6d 65 20 24 66 69 6c 65 4e   rootname $fileN
54d0: 61 6d 65 5d 20 2e 70 64 62 5d 0d 0a 20 20 20 20  ame] .pdb]..    
54e0: 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20    }..    }..... 
54f0: 20 20 20 70 72 6f 63 20 74 72 79 44 65 6c 65 74     proc tryDelet
5500: 65 41 73 73 65 6d 62 6c 79 20 7b 20 66 69 6c 65  eAssembly { file
5510: 4e 61 6d 65 20 7b 70 64 62 20 74 72 75 65 7d 20  Name {pdb true} 
5520: 7d 20 7b 0d 0a 20 20 20 20 20 20 74 72 79 44 65  } {..      tryDe
5530: 6c 65 74 65 42 69 6e 61 72 79 46 69 6c 65 20 24  leteBinaryFile $
5540: 66 69 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 20 20 20  fileName....    
5550: 20 20 69 66 20 7b 24 70 64 62 7d 20 74 68 65 6e    if {$pdb} then
5560: 20 7b 0d 0a 20 20 20 20 20 20 20 20 74 72 79 44   {..        tryD
5570: 65 6c 65 74 65 42 69 6e 61 72 79 46 69 6c 65 20  eleteBinaryFile 
5580: 5b 61 70 70 65 6e 64 41 72 67 73 20 5b 66 69 6c  [appendArgs [fil
5590: 65 20 72 6f 6f 74 6e 61 6d 65 20 24 66 69 6c 65  e rootname $file
55a0: 4e 61 6d 65 5d 20 2e 70 64 62 5d 0d 0a 20 20 20  Name] .pdb]..   
55b0: 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a     }..    }.....
55c0: 20 20 20 20 70 72 6f 63 20 74 72 79 4c 6f 61 64      proc tryLoad
55d0: 41 73 73 65 6d 62 6c 79 20 7b 20 66 69 6c 65 4e  Assembly { fileN
55e0: 61 6d 65 20 7d 20 7b 0d 0a 20 20 20 20 20 20 73  ame } {..      s
55f0: 65 74 20 66 69 6c 65 4e 61 6d 65 20 5b 67 65 74  et fileName [get
5600: 42 69 6e 61 72 79 46 69 6c 65 4e 61 6d 65 20 24  BinaryFileName $
5610: 66 69 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a 20 20 20  fileName]....   
5620: 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 73     if {[catch {s
5630: 65 74 20 61 73 73 65 6d 62 6c 79 20 5c 0d 0a 20  et assembly \.. 
5640: 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 6f 62               [ob
5650: 6a 65 63 74 20 6c 6f 61 64 20 2d 6c 6f 61 64 74  ject load -loadt
5660: 79 70 65 20 46 69 6c 65 20 2d 61 6c 69 61 73 20  ype File -alias 
5670: 24 66 69 6c 65 4e 61 6d 65 5d 7d 5d 20 3d 3d 20  $fileName]}] == 
5680: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  0} then {..     
5690: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20     #..        # 
56a0: 4e 4f 54 45 3a 20 4e 6f 77 2c 20 61 64 64 20 74  NOTE: Now, add t
56b0: 68 65 20 6e 65 63 65 73 73 61 72 79 20 74 65 73  he necessary tes
56c0: 74 20 63 6f 6e 73 74 72 61 69 6e 74 2e 0d 0a 20  t constraint... 
56d0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..      
56e0: 20 20 61 64 64 43 6f 6e 73 74 72 61 69 6e 74 20    addConstraint 
56f0: 5b 66 69 6c 65 20 72 6f 6f 74 6e 61 6d 65 20 5b  [file rootname [
5700: 66 69 6c 65 20 74 61 69 6c 20 24 66 69 6c 65 4e  file tail $fileN
5710: 61 6d 65 5d 5d 0d 0a 0d 0a 20 20 20 20 20 20 20  ame]]....       
5720: 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f   #..        # NO
5730: 54 45 3a 20 47 72 61 62 20 74 68 65 20 69 6d 61  TE: Grab the ima
5740: 67 65 20 72 75 6e 74 69 6d 65 20 76 65 72 73 69  ge runtime versi
5750: 6f 6e 20 66 72 6f 6d 20 74 68 65 20 61 73 73 65  on from the asse
5760: 6d 62 6c 79 20 62 65 63 61 75 73 65 0d 0a 20 20  mbly because..  
5770: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 73 65        #       se
5780: 76 65 72 61 6c 20 74 65 73 74 73 20 72 65 6c 79  veral tests rely
5790: 20 6f 6e 20 69 74 20 68 61 76 69 6e 67 20 61 20   on it having a 
57a0: 63 65 72 74 61 69 6e 20 76 61 6c 75 65 2e 0d 0a  certain value...
57b0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..     
57c0: 20 20 20 61 64 64 43 6f 6e 73 74 72 61 69 6e 74     addConstraint
57d0: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5b 66 69   [appendArgs [fi
57e0: 6c 65 20 74 61 69 6c 20 24 66 69 6c 65 4e 61 6d  le tail $fileNam
57f0: 65 5d 20 5f 20 5c 0d 0a 20 20 20 20 20 20 20 20  e] _ \..        
5800: 20 20 20 20 5b 24 61 73 73 65 6d 62 6c 79 20 49      [$assembly I
5810: 6d 61 67 65 52 75 6e 74 69 6d 65 56 65 72 73 69  mageRuntimeVersi
5820: 6f 6e 5d 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20  on]]....        
5830: 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54  #..        # NOT
5840: 45 3a 20 52 65 74 75 72 6e 20 74 68 65 20 66 75  E: Return the fu
5850: 6c 6c 20 70 61 74 68 20 6f 66 20 74 68 65 20 6c  ll path of the l
5860: 6f 61 64 65 64 20 66 69 6c 65 2e 0d 0a 20 20 20  oaded file...   
5870: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..        
5880: 72 65 74 75 72 6e 20 24 66 69 6c 65 4e 61 6d 65  return $fileName
5890: 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20  ..      }....   
58a0: 20 20 20 72 65 74 75 72 6e 20 22 22 0d 0a 20 20     return ""..  
58b0: 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63    }.....    proc
58c0: 20 69 73 53 51 4c 69 74 65 52 65 61 64 79 20 7b   isSQLiteReady {
58d0: 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  } {..      #..  
58e0: 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 69 73      # NOTE: This
58f0: 20 70 72 6f 63 65 64 75 72 65 20 6d 75 73 74 20   procedure must 
5900: 72 65 74 75 72 6e 20 6e 6f 6e 2d 7a 65 72 6f 20  return non-zero 
5910: 6f 6e 6c 79 20 69 66 20 74 68 65 20 53 51 4c 69  only if the SQLi
5920: 74 65 20 6e 61 74 69 76 65 0d 0a 20 20 20 20 20  te native..     
5930: 20 23 20 20 20 20 20 20 20 6c 69 62 72 61 72 79   #       library
5940: 20 61 6e 64 20 74 68 65 20 53 79 73 74 65 6d 2e   and the System.
5950: 44 61 74 61 2e 53 51 4c 69 74 65 20 6d 61 6e 61  Data.SQLite mana
5960: 67 65 64 20 61 73 73 65 6d 62 6c 79 20 61 72 65  ged assembly are
5970: 20 6c 6f 61 64 65 64 0d 0a 20 20 20 20 20 20 23   loaded..      #
5980: 20 20 20 20 20 20 20 61 6e 64 20 72 65 61 64 79         and ready
5990: 20 66 6f 72 20 75 73 65 20 62 79 20 74 68 65 20   for use by the 
59a0: 74 65 73 74 20 73 75 69 74 65 2e 20 20 43 75 72  test suite.  Cur
59b0: 72 65 6e 74 6c 79 2c 20 74 68 69 73 20 70 72 6f  rently, this pro
59c0: 63 65 64 75 72 65 0d 0a 20 20 20 20 20 20 23 20  cedure..      # 
59d0: 20 20 20 20 20 20 73 68 6f 75 6c 64 20 62 65 20        should be 
59e0: 63 61 6c 6c 65 64 20 6f 6e 6c 79 20 61 66 74 65  called only afte
59f0: 72 20 74 68 65 20 5b 74 72 79 4c 6f 61 64 41 73  r the [tryLoadAs
5a00: 73 65 6d 62 6c 79 5d 20 70 72 6f 63 65 64 75 72  sembly] procedur
5a10: 65 20 68 61 73 0d 0a 20 20 20 20 20 20 23 20 20  e has..      #  
5a20: 20 20 20 20 20 62 65 65 6e 20 63 61 6c 6c 65 64       been called
5a30: 20 74 6f 20 70 72 6f 62 65 20 66 6f 72 20 74 68   to probe for th
5a40: 65 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51  e System.Data.SQ
5a50: 4c 69 74 65 20 6d 61 6e 61 67 65 64 20 61 73 73  Lite managed ass
5a60: 65 6d 62 6c 79 0d 0a 20 20 20 20 20 20 23 20 20  embly..      #  
5a70: 20 20 20 20 20 61 6e 64 20 74 68 65 20 5b 63 68       and the [ch
5a80: 65 63 6b 46 6f 72 53 51 4c 69 74 65 5d 20 70 72  eckForSQLite] pr
5a90: 6f 63 65 64 75 72 65 20 68 61 73 20 62 65 65 6e  ocedure has been
5aa0: 20 63 61 6c 6c 65 64 20 74 6f 20 70 72 6f 62 65   called to probe
5ab0: 20 66 6f 72 0d 0a 20 20 20 20 20 20 23 20 20 20   for..      #   
5ac0: 20 20 20 20 74 68 65 20 53 51 4c 69 74 65 20 6e      the SQLite n
5ad0: 61 74 69 76 65 20 6c 69 62 72 61 72 79 3b 20 6f  ative library; o
5ae0: 74 68 65 72 77 69 73 65 2c 20 74 68 69 73 20 70  therwise, this p
5af0: 72 6f 63 65 64 75 72 65 20 77 69 6c 6c 20 73 69  rocedure will si
5b00: 6d 70 6c 79 0d 0a 20 20 20 20 20 20 23 20 20 20  mply..      #   
5b10: 20 20 20 20 61 6c 77 61 79 73 20 72 65 74 75 72      always retur
5b20: 6e 20 7a 65 72 6f 2e 0d 0a 20 20 20 20 20 20 23  n zero...      #
5b30: 0d 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 5b  ..      return [
5b40: 65 78 70 72 20 7b 5b 68 61 76 65 43 6f 6e 73 74  expr {[haveConst
5b50: 72 61 69 6e 74 20 53 79 73 74 65 6d 2e 44 61 74  raint System.Dat
5b60: 61 2e 53 51 4c 69 74 65 5d 20 26 26 20 5c 0d 0a  a.SQLite] && \..
5b70: 20 20 20 20 20 20 20 20 20 20 5b 68 61 76 65 43            [haveC
5b80: 6f 6e 73 74 72 61 69 6e 74 20 53 51 4c 69 74 65  onstraint SQLite
5b90: 5d 7d 5d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20  ]}]..    }..... 
5ba0: 20 20 20 70 72 6f 63 20 63 68 65 63 6b 46 6f 72     proc checkFor
5bb0: 53 51 4c 69 74 65 20 7b 20 63 68 61 6e 6e 65 6c  SQLite { channel
5bc0: 20 7d 20 7b 0d 0a 20 20 20 20 20 20 74 70 75 74   } {..      tput
5bd0: 73 20 24 63 68 61 6e 6e 65 6c 20 22 2d 2d 2d 2d  s $channel "----
5be0: 20 63 68 65 63 6b 69 6e 67 20 66 6f 72 20 63 6f   checking for co
5bf0: 72 65 20 53 51 4c 69 74 65 20 6c 69 62 72 61 72  re SQLite librar
5c00: 79 2e 2e 2e 20 22 0d 0a 0d 0a 20 20 20 20 20 20  y... "....      
5c10: 69 66 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 20  if {[catch {..  
5c20: 20 20 20 20 20 20 20 20 20 20 20 20 6f 62 6a 65              obje
5c30: 63 74 20 69 6e 76 6f 6b 65 20 2d 66 6c 61 67 73  ct invoke -flags
5c40: 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 53 79 73 74   +NonPublic Syst
5c50: 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 53  em.Data.SQLite.S
5c60: 51 4c 69 74 65 33 20 5c 0d 0a 20 20 20 20 20 20  QLite3 \..      
5c70: 20 20 20 20 20 20 20 20 53 51 4c 69 74 65 56 65          SQLiteVe
5c80: 72 73 69 6f 6e 7d 20 76 65 72 73 69 6f 6e 5d 20  rsion} version] 
5c90: 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  == 0} then {..  
5ca0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
5cb0: 20 23 20 4e 4f 54 45 3a 20 41 74 74 65 6d 70 74   # NOTE: Attempt
5cc0: 20 74 6f 20 71 75 65 72 79 20 74 68 65 20 46 6f   to query the Fo
5cd0: 73 73 69 6c 20 73 6f 75 72 63 65 20 69 64 65 6e  ssil source iden
5ce0: 74 69 66 69 65 72 20 66 6f 72 20 74 68 65 20 53  tifier for the S
5cf0: 51 4c 69 74 65 0d 0a 20 20 20 20 20 20 20 20 23  QLite..        #
5d00: 20 20 20 20 20 20 20 63 6f 72 65 20 6c 69 62 72         core libr
5d10: 61 72 79 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d  ary...        #.
5d20: 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b 63 61  .        if {[ca
5d30: 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  tch {..         
5d40: 20 20 20 20 20 20 20 6f 62 6a 65 63 74 20 69 6e         object in
5d50: 76 6f 6b 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e  voke -flags +Non
5d60: 50 75 62 6c 69 63 20 53 79 73 74 65 6d 2e 44 61  Public System.Da
5d70: 74 61 2e 53 51 4c 69 74 65 2e 53 51 4c 69 74 65  ta.SQLite.SQLite
5d80: 33 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20  3 \..           
5d90: 20 20 20 20 20 53 51 4c 69 74 65 53 6f 75 72 63       SQLiteSourc
5da0: 65 49 64 7d 20 73 6f 75 72 63 65 49 64 5d 7d 20  eId} sourceId]} 
5db0: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20  then {..        
5dc0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23    #..          #
5dd0: 20 4e 4f 54 45 3a 20 57 65 20 66 61 69 6c 65 64   NOTE: We failed
5de0: 20 74 6f 20 71 75 65 72 79 20 74 68 65 20 46 6f   to query the Fo
5df0: 73 73 69 6c 20 73 6f 75 72 63 65 20 69 64 65 6e  ssil source iden
5e00: 74 69 66 69 65 72 2e 0d 0a 20 20 20 20 20 20 20  tifier...       
5e10: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20     #..          
5e20: 73 65 74 20 73 6f 75 72 63 65 49 64 20 75 6e 6b  set sourceId unk
5e30: 6e 6f 77 6e 0d 0a 20 20 20 20 20 20 20 20 7d 0d  nown..        }.
5e40: 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20  ...        #..  
5e50: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 59 65        # NOTE: Ye
5e60: 73 2c 20 74 68 65 20 53 51 4c 69 74 65 20 63 6f  s, the SQLite co
5e70: 72 65 20 6c 69 62 72 61 72 79 20 61 70 70 65 61  re library appea
5e80: 72 73 20 74 6f 20 62 65 20 61 76 61 69 6c 61 62  rs to be availab
5e90: 6c 65 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a  le...        #..
5ea0: 20 20 20 20 20 20 20 20 61 64 64 43 6f 6e 73 74          addConst
5eb0: 72 61 69 6e 74 20 53 51 4c 69 74 65 0d 0a 0d 0a  raint SQLite....
5ec0: 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63          tputs $c
5ed0: 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72  hannel [appendAr
5ee0: 67 73 20 22 79 65 73 20 28 22 20 24 76 65 72 73  gs "yes (" $vers
5ef0: 69 6f 6e 20 22 20 22 20 24 73 6f 75 72 63 65 49  ion " " $sourceI
5f00: 64 20 22 29 5c 6e 22 5d 0d 0a 20 20 20 20 20 20  d ")\n"]..      
5f10: 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20  } else {..      
5f20: 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c    tputs $channel
5f30: 20 6e 6f 5c 6e 0d 0a 20 20 20 20 20 20 7d 0d 0a   no\n..      }..
5f40: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72      }.....    pr
5f50: 6f 63 20 63 68 65 63 6b 46 6f 72 53 51 4c 69 74  oc checkForSQLit
5f60: 65 44 65 66 69 6e 65 43 6f 6e 73 74 61 6e 74 20  eDefineConstant 
5f70: 7b 20 63 68 61 6e 6e 65 6c 20 6e 61 6d 65 20 7d  { channel name }
5f80: 20 7b 0d 0a 20 20 20 20 20 20 74 70 75 74 73 20   {..      tputs 
5f90: 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64  $channel [append
5fa0: 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20  Args \..        
5fb0: 20 20 22 2d 2d 2d 2d 20 63 68 65 63 6b 69 6e 67    "---- checking
5fc0: 20 66 6f 72 20 53 79 73 74 65 6d 2e 44 61 74 61   for System.Data
5fd0: 2e 53 51 4c 69 74 65 20 64 65 66 69 6e 65 20 63  .SQLite define c
5fe0: 6f 6e 73 74 61 6e 74 20 5c 22 22 20 24 6e 61 6d  onstant \"" $nam
5ff0: 65 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 22  e \..          "
6000: 5c 22 2e 2e 2e 20 22 5d 0d 0a 0d 0a 20 20 20 20  \"... "]....    
6010: 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 0d 0a    if {[catch {..
6020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 62                ob
6030: 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d 66 6c 61  ject invoke -fla
6040: 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 53 79  gs +NonPublic Sy
6050: 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65  stem.Data.SQLite
6060: 2e 53 51 4c 69 74 65 33 20 5c 0d 0a 20 20 20 20  .SQLite3 \..    
6070: 20 20 20 20 20 20 20 20 20 20 44 65 66 69 6e 65            Define
6080: 43 6f 6e 73 74 61 6e 74 73 7d 20 64 65 66 69 6e  Constants} defin
6090: 65 43 6f 6e 73 74 61 6e 74 73 5d 20 3d 3d 20 30  eConstants] == 0
60a0: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..      
60b0: 20 20 69 66 20 7b 5b 6c 73 65 61 72 63 68 20 2d    if {[lsearch -
60c0: 65 78 61 63 74 20 2d 6e 6f 63 61 73 65 20 24 64  exact -nocase $d
60d0: 65 66 69 6e 65 43 6f 6e 73 74 61 6e 74 73 20 24  efineConstants $
60e0: 6e 61 6d 65 5d 20 21 3d 20 2d 31 7d 20 74 68 65  name] != -1} the
60f0: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23  n {..          #
6100: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f  ..          # NO
6110: 54 45 3a 20 59 65 73 2c 20 74 68 69 73 20 64 65  TE: Yes, this de
6120: 66 69 6e 65 20 63 6f 6e 73 74 61 6e 74 20 77 61  fine constant wa
6130: 73 20 65 6e 61 62 6c 65 64 20 77 68 65 6e 20 74  s enabled when t
6140: 68 65 20 6d 61 6e 61 67 65 64 0d 0a 20 20 20 20  he managed..    
6150: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 61 73        #       as
6160: 73 65 6d 62 6c 79 20 77 61 73 20 63 6f 6d 70 69  sembly was compi
6170: 6c 65 64 2e 0d 0a 20 20 20 20 20 20 20 20 20 20  led...          
6180: 23 0d 0a 20 20 20 20 20 20 20 20 20 20 61 64 64  #..          add
6190: 43 6f 6e 73 74 72 61 69 6e 74 20 5b 61 70 70 65  Constraint [appe
61a0: 6e 64 41 72 67 73 20 64 65 66 69 6e 65 43 6f 6e  ndArgs defineCon
61b0: 73 74 61 6e 74 2e 53 79 73 74 65 6d 2e 44 61 74  stant.System.Dat
61c0: 61 2e 53 51 4c 69 74 65 2e 20 24 6e 61 6d 65 5d  a.SQLite. $name]
61d0: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70  ....          tp
61e0: 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 79 65 73  uts $channel yes
61f0: 5c 6e 0d 0a 20 20 20 20 20 20 20 20 7d 20 65 6c  \n..        } el
6200: 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20  se {..          
6210: 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 6e  tputs $channel n
6220: 6f 5c 6e 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a  o\n..        }..
6230: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a        } else {..
6240: 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63          tputs $c
6250: 68 61 6e 6e 65 6c 20 65 72 72 6f 72 5c 6e 0d 0a  hannel error\n..
6260: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a        }..    }..
6270: 0c 0d 0a 20 20 20 20 70 72 6f 63 20 67 65 74 44  ...    proc getD
6280: 61 74 65 54 69 6d 65 46 6f 72 6d 61 74 20 7b 7d  ateTimeFormat {}
6290: 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20   {..      #..   
62a0: 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 69 73 20     # NOTE: This 
62b0: 70 72 6f 63 65 64 75 72 65 20 73 69 6d 70 6c 79  procedure simply
62c0: 20 72 65 74 75 72 6e 73 20 74 68 65 20 22 64 65   returns the "de
62d0: 66 61 75 6c 74 22 20 44 61 74 65 54 69 6d 65 20  fault" DateTime 
62e0: 66 6f 72 6d 61 74 20 75 73 65 64 0d 0a 20 20 20  format used..   
62f0: 20 20 20 23 20 20 20 20 20 20 20 62 79 20 74 68     #       by th
6300: 65 20 74 65 73 74 20 73 75 69 74 65 2e 0d 0a 20  e test suite... 
6310: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66       #..      if
6320: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a   {[info exists :
6330: 3a 64 61 74 65 74 69 6d 65 5f 66 6f 72 6d 61 74  :datetime_format
6340: 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 20  ] && \..        
6350: 20 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68    [string length
6360: 20 24 3a 3a 64 61 74 65 74 69 6d 65 5f 66 6f 72   $::datetime_for
6370: 6d 61 74 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b  mat] > 0} then {
6380: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20  ..        #..   
6390: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 52 65 74       # NOTE: Ret
63a0: 75 72 6e 20 74 68 65 20 6d 61 6e 75 61 6c 6c 79  urn the manually
63b0: 20 6f 76 65 72 72 69 64 64 65 6e 20 76 61 6c 75   overridden valu
63c0: 65 20 66 6f 72 20 74 68 65 20 44 61 74 65 54 69  e for the DateTi
63d0: 6d 65 20 66 6f 72 6d 61 74 2e 0d 0a 20 20 20 20  me format...    
63e0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 72      #..        r
63f0: 65 74 75 72 6e 20 24 3a 3a 64 61 74 65 74 69 6d  eturn $::datetim
6400: 65 5f 66 6f 72 6d 61 74 0d 0a 20 20 20 20 20 20  e_format..      
6410: 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20  } else {..      
6420: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e    #..        # N
6430: 4f 54 45 3a 20 52 65 74 75 72 6e 20 61 6e 20 49  OTE: Return an I
6440: 53 4f 38 36 30 31 20 44 61 74 65 54 69 6d 65 20  SO8601 DateTime 
6450: 66 6f 72 6d 61 74 20 63 6f 6d 70 61 74 69 62 6c  format compatibl
6460: 65 20 77 69 74 68 20 53 51 4c 69 74 65 2c 0d 0a  e with SQLite,..
6470: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20          #       
6480: 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69  System.Data.SQLi
6490: 74 65 2c 20 61 6e 64 20 73 75 69 74 61 62 6c 65  te, and suitable
64a0: 20 66 6f 72 20 72 6f 75 6e 64 2d 74 72 69 70 70   for round-tripp
64b0: 69 6e 67 20 77 69 74 68 20 74 68 65 0d 0a 20 20  ing with the..  
64c0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 44 61        #       Da
64d0: 74 65 54 69 6d 65 20 63 6c 61 73 73 20 6f 66 20  teTime class of 
64e0: 74 68 65 20 66 72 61 6d 65 77 6f 72 6b 2e 20 20  the framework.  
64f0: 49 66 20 74 68 69 73 20 76 61 6c 75 65 20 69 73  If this value is
6500: 20 63 68 61 6e 67 65 64 2c 0d 0a 20 20 20 20 20   changed,..     
6510: 20 20 20 23 20 20 20 20 20 20 20 76 61 72 69 6f     #       vario
6520: 75 73 20 74 65 73 74 73 20 6d 61 79 20 66 61 69  us tests may fai
6530: 6c 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20  l...        #.. 
6540: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 22 79         return "y
6550: 79 79 79 2d 4d 4d 2d 64 64 20 48 48 3a 6d 6d 3a  yyy-MM-dd HH:mm:
6560: 73 73 2e 46 46 46 46 46 46 46 4b 22 0d 0a 20 20  ss.FFFFFFFK"..  
6570: 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d      }..    }....
6580: 0a 20 20 20 20 70 72 6f 63 20 65 6e 75 6d 65 72  .    proc enumer
6590: 61 62 6c 65 54 6f 4c 69 73 74 20 7b 20 65 6e 75  ableToList { enu
65a0: 6d 65 72 61 62 6c 65 20 7d 20 7b 0d 0a 20 20 20  merable } {..   
65b0: 20 20 20 73 65 74 20 72 65 73 75 6c 74 20 5b 6c     set result [l
65c0: 69 73 74 5d 0d 0a 0d 0a 20 20 20 20 20 20 69 66  ist]....      if
65d0: 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68   {[string length
65e0: 20 24 65 6e 75 6d 65 72 61 62 6c 65 5d 20 3d 3d   $enumerable] ==
65f0: 20 30 20 7c 7c 20 24 65 6e 75 6d 65 72 61 62 6c   0 || $enumerabl
6600: 65 20 65 71 20 22 6e 75 6c 6c 22 7d 20 74 68 65  e eq "null"} the
6610: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 72 65 74  n {..        ret
6620: 75 72 6e 20 24 72 65 73 75 6c 74 0d 0a 20 20 20  urn $result..   
6630: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 6f 62     }....      ob
6640: 6a 65 63 74 20 66 6f 72 65 61 63 68 20 2d 61 6c  ject foreach -al
6650: 69 61 73 20 69 74 65 6d 20 24 65 6e 75 6d 65 72  ias item $enumer
6660: 61 62 6c 65 20 7b 0d 0a 20 20 20 20 20 20 20 20  able {..        
6670: 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67  if {[string leng
6680: 74 68 20 24 69 74 65 6d 5d 20 3e 20 30 7d 20 74  th $item] > 0} t
6690: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  hen {..         
66a0: 20 6c 61 70 70 65 6e 64 20 72 65 73 75 6c 74 20   lappend result 
66b0: 5b 24 69 74 65 6d 20 54 6f 53 74 72 69 6e 67 5d  [$item ToString]
66c0: 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20  ..        }..   
66d0: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 72 65     }....      re
66e0: 74 75 72 6e 20 24 72 65 73 75 6c 74 0d 0a 20 20  turn $result..  
66f0: 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63    }.....    proc
6700: 20 63 61 74 63 68 41 6e 64 52 65 74 75 72 6e 20   catchAndReturn 
6710: 7b 20 73 63 72 69 70 74 20 7b 73 74 61 63 6b 54  { script {stackT
6720: 72 61 63 65 20 66 61 6c 73 65 7d 20 7b 73 74 72  race false} {str
6730: 69 63 74 20 74 72 75 65 7d 20 7d 20 7b 0d 0a 20  ict true} } {.. 
6740: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20       #..      # 
6750: 4e 4f 54 45 3a 20 45 76 61 6c 75 61 74 65 20 74  NOTE: Evaluate t
6760: 68 65 20 73 63 72 69 70 74 20 70 72 6f 76 69 64  he script provid
6770: 65 64 20 62 79 20 6f 75 72 20 63 61 6c 6c 65 72  ed by our caller
6780: 20 69 6e 20 74 68 65 69 72 20 63 6f 6e 74 65 78   in their contex
6790: 74 2c 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20  t,..      #     
67a0: 20 20 63 61 70 74 75 72 69 6e 67 20 62 6f 74 68    capturing both
67b0: 20 74 68 65 20 72 65 73 75 6c 74 20 61 6e 64 20   the result and 
67c0: 74 68 65 20 72 65 74 75 72 6e 20 63 6f 64 65 2e  the return code.
67d0: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20  ..      #..     
67e0: 20 73 65 74 20 63 6f 64 65 20 5b 63 61 74 63 68   set code [catch
67f0: 20 7b 75 70 6c 65 76 65 6c 20 31 20 24 73 63 72   {uplevel 1 $scr
6800: 69 70 74 7d 20 72 65 73 75 6c 74 5d 0d 0a 0d 0a  ipt} result]....
6810: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23        #..      #
6820: 20 4e 4f 54 45 3a 20 44 69 64 20 74 68 65 20 73   NOTE: Did the s
6830: 63 72 69 70 74 20 70 72 6f 76 69 64 65 64 20 62  cript provided b
6840: 79 20 6f 75 72 20 63 61 6c 6c 65 72 20 4e 4f 54  y our caller NOT
6850: 20 72 61 69 73 65 20 61 6e 20 65 72 72 6f 72 3f   raise an error?
6860: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20  ..      #..     
6870: 20 69 66 20 7b 24 73 74 72 69 63 74 20 26 26 20   if {$strict && 
6880: 24 63 6f 64 65 20 3d 3d 20 30 20 7c 7c 20 21 24  $code == 0 || !$
6890: 73 74 72 69 63 74 20 26 26 20 24 63 6f 64 65 20  strict && $code 
68a0: 21 3d 20 31 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  != 1} then {..  
68b0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
68c0: 20 23 20 4e 4f 54 45 3a 20 53 75 63 63 65 73 73   # NOTE: Success
68d0: 2e 20 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74  .  Return a list
68e0: 20 77 69 74 68 20 74 68 65 20 72 65 74 75 72 6e   with the return
68f0: 20 63 6f 64 65 20 61 6e 64 20 74 68 65 20 72 65   code and the re
6900: 73 75 6c 74 2e 0d 0a 20 20 20 20 20 20 20 20 23  sult...        #
6910: 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e  ..        return
6920: 20 5b 6c 69 73 74 20 24 63 6f 64 65 20 24 72 65   [list $code $re
6930: 73 75 6c 74 5d 0d 0a 20 20 20 20 20 20 7d 20 65  sult]..      } e
6940: 6c 73 65 69 66 20 7b 24 73 74 61 63 6b 54 72 61  lseif {$stackTra
6950: 63 65 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20  ce} then {..    
6960: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23      #..        #
6970: 20 4e 4f 54 45 3a 20 46 61 69 6c 75 72 65 2e 20   NOTE: Failure. 
6980: 20 4f 75 72 20 63 61 6c 6c 65 72 20 77 61 6e 74   Our caller want
6990: 73 20 61 20 66 75 6c 6c 20 73 74 61 63 6b 20 74  s a full stack t
69a0: 72 61 63 65 20 28 69 66 20 61 70 70 6c 69 63 61  race (if applica
69b0: 62 6c 65 29 2c 0d 0a 20 20 20 20 20 20 20 20 23  ble),..        #
69c0: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 61 20         return a 
69d0: 6c 69 73 74 20 77 69 74 68 20 74 68 65 20 72 65  list with the re
69e0: 74 75 72 6e 20 63 6f 64 65 20 61 6e 64 20 74 68  turn code and th
69f0: 65 20 72 65 73 75 6c 74 20 76 65 72 62 61 74 69  e result verbati
6a00: 6d 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20  m...        #.. 
6a10: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 5b 6c         return [l
6a20: 69 73 74 20 24 63 6f 64 65 20 24 72 65 73 75 6c  ist $code $resul
6a30: 74 5d 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65  t]..      } else
6a40: 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20   {..        #.. 
6a50: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 46         # NOTE: F
6a60: 61 69 6c 75 72 65 2e 20 20 4f 75 72 20 63 61 6c  ailure.  Our cal
6a70: 6c 65 72 20 64 6f 65 73 20 6e 6f 74 20 77 61 6e  ler does not wan
6a80: 74 20 61 20 66 75 6c 6c 20 73 74 61 63 6b 20 74  t a full stack t
6a90: 72 61 63 65 20 28 69 66 0d 0a 20 20 20 20 20 20  race (if..      
6aa0: 20 20 23 20 20 20 20 20 20 20 61 70 70 6c 69 63    #       applic
6ab0: 61 62 6c 65 29 2c 20 72 65 74 75 72 6e 20 61 20  able), return a 
6ac0: 6c 69 73 74 20 77 69 74 68 20 74 68 65 20 72 65  list with the re
6ad0: 74 75 72 6e 20 63 6f 64 65 2c 20 74 68 65 20 65  turn code, the e
6ae0: 72 72 6f 72 0d 0a 20 20 20 20 20 20 20 20 23 20  rror..        # 
6af0: 20 20 20 20 20 20 63 6f 64 65 20 66 6f 72 20 74        code for t
6b00: 68 65 20 69 6e 74 65 72 70 72 65 74 65 72 2c 20  he interpreter, 
6b10: 61 6e 64 20 74 68 65 20 65 72 72 6f 72 20 6d 65  and the error me
6b20: 73 73 61 67 65 20 75 70 20 74 6f 20 74 68 65 0d  ssage up to the.
6b30: 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20  .        #      
6b40: 20 70 6f 69 6e 74 20 77 68 65 72 65 20 74 68 65   point where the
6b50: 20 73 74 61 63 6b 20 74 72 61 63 65 20 73 68 6f   stack trace sho
6b60: 75 6c 64 20 73 74 61 72 74 2e 0d 0a 20 20 20 20  uld start...    
6b70: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 73      #..        s
6b80: 65 74 20 69 6e 64 65 78 20 5b 73 74 72 69 6e 67  et index [string
6b90: 20 66 69 72 73 74 20 22 20 20 20 61 74 20 22 20   first "   at " 
6ba0: 24 72 65 73 75 6c 74 5d 3b 20 23 20 48 41 43 4b  $result]; # HACK
6bb0: 3a 20 52 65 6c 69 61 62 6c 65 3f 0d 0a 0d 0a 20  : Reliable?.... 
6bc0: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 5b 6c         return [l
6bd0: 69 73 74 20 24 63 6f 64 65 20 24 3a 3a 65 72 72  ist $code $::err
6be0: 6f 72 43 6f 64 65 20 5b 65 78 70 72 20 7b 24 69  orCode [expr {$i
6bf0: 6e 64 65 78 20 21 3d 20 2d 31 20 3f 20 5c 0d 0a  ndex != -1 ? \..
6c00: 20 20 20 20 20 20 20 20 20 20 20 20 5b 73 74 72              [str
6c10: 69 6e 67 20 74 72 69 6d 20 5b 73 74 72 69 6e 67  ing trim [string
6c20: 20 72 61 6e 67 65 20 24 72 65 73 75 6c 74 20 30   range $result 0
6c30: 20 24 69 6e 64 65 78 5d 5d 20 3a 20 24 72 65 73   $index]] : $res
6c40: 75 6c 74 7d 5d 5d 0d 0a 20 20 20 20 20 20 7d 0d  ult}]]..      }.
6c50: 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70  .    }.....    p
6c60: 72 6f 63 20 63 6f 6d 70 69 6c 65 43 53 68 61 72  roc compileCShar
6c70: 70 57 69 74 68 20 7b 0d 0a 20 20 20 20 20 20 20  pWith {..       
6c80: 20 20 20 20 20 74 65 78 74 20 6d 65 6d 6f 72 79       text memory
6c90: 20 73 79 6d 62 6f 6c 73 20 73 74 72 69 63 74 20   symbols strict 
6ca0: 72 65 73 75 6c 74 73 56 61 72 4e 61 6d 65 20 65  resultsVarName e
6cb0: 72 72 6f 72 73 56 61 72 4e 61 6d 65 20 66 69 6c  rrorsVarName fil
6cc0: 65 4e 61 6d 65 73 0d 0a 20 20 20 20 20 20 20 20  eNames..        
6cd0: 20 20 20 20 61 72 67 73 20 7d 20 7b 0d 0a 20 20      args } {..  
6ce0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e      #..      # N
6cf0: 4f 54 45 3a 20 53 69 6e 63 65 20 77 65 20 61 72  OTE: Since we ar
6d00: 65 20 67 6f 69 6e 67 20 74 6f 20 75 73 65 20 74  e going to use t
6d10: 68 69 73 20 6d 65 74 68 6f 64 20 6e 61 6d 65 20  his method name 
6d20: 61 20 6c 6f 74 2c 20 61 73 73 69 67 6e 20 69 74  a lot, assign it
6d30: 20 74 6f 20 61 0d 0a 20 20 20 20 20 20 23 20 20   to a..      #  
6d40: 20 20 20 20 20 76 61 72 69 61 62 6c 65 20 66 69       variable fi
6d50: 72 73 74 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20  rst...      #.. 
6d60: 20 20 20 20 20 73 65 74 20 61 64 64 20 52 65 66       set add Ref
6d70: 65 72 65 6e 63 65 64 41 73 73 65 6d 62 6c 69 65  erencedAssemblie
6d80: 73 2e 41 64 64 0d 0a 0d 0a 20 20 20 20 20 20 23  s.Add....      #
6d90: 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20  ..      # NOTE: 
6da0: 43 72 65 61 74 65 20 74 68 65 20 62 61 73 65 20  Create the base 
6db0: 63 6f 6d 6d 61 6e 64 20 74 6f 20 65 76 61 6c 75  command to evalu
6dc0: 61 74 65 20 61 6e 64 20 61 64 64 20 74 68 65 20  ate and add the 
6dd0: 70 72 6f 70 65 72 74 79 20 73 65 74 74 69 6e 67  property setting
6de0: 73 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20  s..      #      
6df0: 20 74 68 61 74 20 61 72 65 20 61 6c 6d 6f 73 74   that are almost
6e00: 20 61 6c 77 61 79 73 20 6e 65 65 64 65 64 20 62   always needed b
6e10: 79 20 6f 75 72 20 75 6e 69 74 20 74 65 73 74 73  y our unit tests
6e20: 20 28 69 2e 65 2e 20 74 68 65 20 53 79 73 74 65   (i.e. the Syste
6e30: 6d 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20  m..      #      
6e40: 20 61 6e 64 20 53 79 73 74 65 6d 2e 44 61 74 61   and System.Data
6e50: 20 61 73 73 65 6d 62 6c 79 20 72 65 66 65 72 65   assembly refere
6e60: 6e 63 65 73 29 2e 0d 0a 20 20 20 20 20 20 23 0d  nces)...      #.
6e70: 0a 20 20 20 20 20 20 73 65 74 20 63 6f 6d 6d 61  .      set comma
6e80: 6e 64 20 5b 6c 69 73 74 20 63 6f 6d 70 69 6c 65  nd [list compile
6e90: 43 53 68 61 72 70 20 24 74 65 78 74 20 24 6d 65  CSharp $text $me
6ea0: 6d 6f 72 79 20 24 73 79 6d 62 6f 6c 73 20 24 73  mory $symbols $s
6eb0: 74 72 69 63 74 20 72 65 73 75 6c 74 73 20 5c 0d  trict results \.
6ec0: 0a 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72  .          error
6ed0: 73 20 24 61 64 64 20 53 79 73 74 65 6d 2e 64 6c  s $add System.dl
6ee0: 6c 20 24 61 64 64 20 53 79 73 74 65 6d 2e 44 61  l $add System.Da
6ef0: 74 61 2e 64 6c 6c 20 24 61 64 64 20 53 79 73 74  ta.dll $add Syst
6f00: 65 6d 2e 58 6d 6c 2e 64 6c 6c 5d 0d 0a 0d 0a 20  em.Xml.dll].... 
6f10: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20       #..      # 
6f20: 4e 4f 54 45 3a 20 41 64 64 20 61 6c 6c 20 74 68  NOTE: Add all th
6f30: 65 20 70 72 6f 76 69 64 65 64 20 66 69 6c 65 20  e provided file 
6f40: 6e 61 6d 65 73 20 61 73 20 61 73 73 65 6d 62 6c  names as assembl
6f50: 79 20 72 65 66 65 72 65 6e 63 65 73 2e 0d 0a 20  y references... 
6f60: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 66 6f       #..      fo
6f70: 72 65 61 63 68 20 66 69 6c 65 4e 61 6d 65 20 24  reach fileName $
6f80: 66 69 6c 65 4e 61 6d 65 73 20 7b 0d 0a 20 20 20  fileNames {..   
6f90: 20 20 20 20 20 6c 61 70 70 65 6e 64 20 63 6f 6d       lappend com
6fa0: 6d 61 6e 64 20 24 61 64 64 20 5b 67 65 74 42 69  mand $add [getBi
6fb0: 6e 61 72 79 46 69 6c 65 4e 61 6d 65 20 24 66 69  naryFileName $fi
6fc0: 6c 65 4e 61 6d 65 5d 0d 0a 20 20 20 20 20 20 7d  leName]..      }
6fd0: 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20  ....      #..   
6fe0: 20 20 20 23 20 4e 4f 54 45 3a 20 41 64 64 20 74     # NOTE: Add t
6ff0: 68 65 20 65 78 74 72 61 20 61 72 67 75 6d 65 6e  he extra argumen
7000: 74 73 2c 20 69 66 20 61 6e 79 2c 20 74 6f 20 74  ts, if any, to t
7010: 68 65 20 63 6f 6d 6d 61 6e 64 20 74 6f 20 65 76  he command to ev
7020: 61 6c 75 61 74 65 2e 0d 0a 20 20 20 20 20 20 23  aluate...      #
7030: 0d 0a 20 20 20 20 20 20 65 76 61 6c 20 6c 61 70  ..      eval lap
7040: 70 65 6e 64 20 63 6f 6d 6d 61 6e 64 20 24 61 72  pend command $ar
7050: 67 73 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20  gs....      #.. 
7060: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 41 6c 69       # NOTE: Ali
7070: 61 73 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 20  as the compiler 
7080: 6c 6f 63 61 6c 20 72 65 73 75 6c 74 73 20 61 6e  local results an
7090: 64 20 65 72 72 6f 72 73 20 76 61 72 69 61 62 6c  d errors variabl
70a0: 65 73 20 74 6f 20 74 68 65 0d 0a 20 20 20 20 20  es to the..     
70b0: 20 23 20 20 20 20 20 20 20 76 61 72 69 61 62 6c   #       variabl
70c0: 65 20 6e 61 6d 65 73 20 70 72 6f 76 69 64 65 64  e names provided
70d0: 20 62 79 20 6f 75 72 20 63 61 6c 6c 65 72 2e 0d   by our caller..
70e0: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20  .      #..      
70f0: 75 70 76 61 72 20 31 20 24 72 65 73 75 6c 74 73  upvar 1 $results
7100: 56 61 72 4e 61 6d 65 20 72 65 73 75 6c 74 73 0d  VarName results.
7110: 0a 20 20 20 20 20 20 75 70 76 61 72 20 31 20 24  .      upvar 1 $
7120: 65 72 72 6f 72 73 56 61 72 4e 61 6d 65 20 65 72  errorsVarName er
7130: 72 6f 72 73 0d 0a 0d 0a 20 20 20 20 20 20 23 0d  rors....      #.
7140: 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 45  .      # NOTE: E
7150: 76 61 6c 75 61 74 65 20 74 68 65 20 63 6f 6e 73  valuate the cons
7160: 74 72 75 63 74 65 64 20 5b 63 6f 6d 70 69 6c 65  tructed [compile
7170: 43 53 68 61 72 70 5d 20 63 6f 6d 6d 61 6e 64 20  CSharp] command 
7180: 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 0d 0a  and return the..
7190: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 72 65        #       re
71a0: 73 75 6c 74 2e 0d 0a 20 20 20 20 20 20 23 0d 0a  sult...      #..
71b0: 20 20 20 20 20 20 65 76 61 6c 20 24 63 6f 6d 6d        eval $comm
71c0: 61 6e 64 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20  and..    }..... 
71d0: 20 20 20 70 72 6f 63 20 69 73 4d 65 6d 6f 72 79     proc isMemory
71e0: 44 62 20 7b 20 66 69 6c 65 4e 61 6d 65 20 7d 20  Db { fileName } 
71f0: 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20  {..      #..    
7200: 20 20 23 20 4e 4f 54 45 3a 20 49 73 20 74 68 65    # NOTE: Is the
7210: 20 73 70 65 63 69 66 69 65 64 20 64 61 74 61 62   specified datab
7220: 61 73 65 20 66 69 6c 65 20 6e 61 6d 65 20 72 65  ase file name re
7230: 61 6c 6c 79 20 61 6e 20 69 6e 2d 6d 65 6d 6f 72  ally an in-memor
7240: 79 20 64 61 74 61 62 61 73 65 3f 0d 0a 20 20 20  y database?..   
7250: 20 20 20 23 0d 0a 20 20 20 20 20 20 72 65 74 75     #..      retu
7260: 72 6e 20 5b 65 78 70 72 20 7b 24 66 69 6c 65 4e  rn [expr {$fileN
7270: 61 6d 65 20 65 71 20 22 3a 6d 65 6d 6f 72 79 3a  ame eq ":memory:
7280: 22 20 7c 7c 20 5c 0d 0a 20 20 20 20 20 20 20 20  " || \..        
7290: 20 20 5b 73 74 72 69 6e 67 20 72 61 6e 67 65 20    [string range 
72a0: 24 66 69 6c 65 4e 61 6d 65 20 30 20 31 32 5d 20  $fileName 0 12] 
72b0: 65 71 20 22 66 69 6c 65 3a 3a 6d 65 6d 6f 72 79  eq "file::memory
72c0: 3a 22 7d 5d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a  :"}]..    }.....
72d0: 20 20 20 20 70 72 6f 63 20 65 78 65 63 75 74 65      proc execute
72e0: 53 71 6c 20 7b 20 73 71 6c 20 7b 65 78 65 63 75  Sql { sql {execu
72f0: 74 65 20 6e 6f 6e 65 7d 20 7b 66 69 6c 65 4e 61  te none} {fileNa
7300: 6d 65 20 22 22 7d 20 7d 20 7b 0d 0a 20 20 20 20  me ""} } {..    
7310: 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65    if {[string le
7320: 6e 67 74 68 20 24 66 69 6c 65 4e 61 6d 65 5d 20  ngth $fileName] 
7330: 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 73 65 74 20  == 0} then {set 
7340: 66 69 6c 65 4e 61 6d 65 20 3a 6d 65 6d 6f 72 79  fileName :memory
7350: 3a 7d 0d 0a 20 20 20 20 20 20 73 65 74 75 70 44  :}..      setupD
7360: 62 20 24 66 69 6c 65 4e 61 6d 65 20 22 22 20 22  b $fileName "" "
7370: 22 20 22 22 20 22 22 20 22 22 20 66 61 6c 73 65  " "" "" "" false
7380: 20 66 61 6c 73 65 20 66 61 6c 73 65 20 66 61 6c   false false fal
7390: 73 65 20 6d 65 6d 44 62 0d 0a 0d 0a 20 20 20 20  se memDb....    
73a0: 20 20 74 72 79 20 7b 0d 0a 20 20 20 20 20 20 20    try {..       
73b0: 20 72 65 74 75 72 6e 20 5b 73 71 6c 20 65 78 65   return [sql exe
73c0: 63 75 74 65 20 2d 65 78 65 63 75 74 65 20 24 65  cute -execute $e
73d0: 78 65 63 75 74 65 20 24 6d 65 6d 44 62 20 24 73  xecute $memDb $s
73e0: 71 6c 5d 0d 0a 20 20 20 20 20 20 7d 20 66 69 6e  ql]..      } fin
73f0: 61 6c 6c 79 20 7b 0d 0a 20 20 20 20 20 20 20 20  ally {..        
7400: 63 6c 65 61 6e 75 70 44 62 20 24 66 69 6c 65 4e  cleanupDb $fileN
7410: 61 6d 65 20 6d 65 6d 44 62 20 66 61 6c 73 65 20  ame memDb false 
7420: 66 61 6c 73 65 0d 0a 20 20 20 20 20 20 7d 0d 0a  false..      }..
7430: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72      }.....    pr
7440: 6f 63 20 73 65 74 75 70 44 62 20 7b 0d 0a 20 20  oc setupDb {..  
7450: 20 20 20 20 20 20 20 20 20 20 66 69 6c 65 4e 61            fileNa
7460: 6d 65 20 7b 6d 6f 64 65 20 22 22 7d 20 7b 64 61  me {mode ""} {da
7470: 74 65 54 69 6d 65 46 6f 72 6d 61 74 20 22 22 7d  teTimeFormat ""}
7480: 20 7b 64 61 74 65 54 69 6d 65 4b 69 6e 64 20 22   {dateTimeKind "
7490: 22 7d 20 7b 66 6c 61 67 73 20 22 22 7d 0d 0a 20  "} {flags ""}.. 
74a0: 20 20 20 20 20 20 20 20 20 20 20 7b 65 78 74 72             {extr
74b0: 61 20 22 22 7d 20 7b 71 75 61 6c 69 66 79 20 74  a ""} {qualify t
74c0: 72 75 65 7d 20 7b 64 65 6c 65 74 65 20 74 72 75  rue} {delete tru
74d0: 65 7d 20 7b 75 72 69 20 66 61 6c 73 65 7d 0d 0a  e} {uri false}..
74e0: 20 20 20 20 20 20 20 20 20 20 20 20 7b 74 65 6d              {tem
74f0: 70 6f 72 61 72 79 20 74 72 75 65 7d 20 7b 76 61  porary true} {va
7500: 72 4e 61 6d 65 20 64 62 7d 20 7d 20 7b 0d 0a 20  rName db} } {.. 
7510: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20       #..      # 
7520: 4e 4f 54 45 3a 20 46 69 72 73 74 2c 20 73 65 65  NOTE: First, see
7530: 20 69 66 20 6f 75 72 20 63 61 6c 6c 65 72 20 68   if our caller h
7540: 61 73 20 72 65 71 75 65 73 74 65 64 20 61 6e 20  as requested an 
7550: 69 6e 2d 6d 65 6d 6f 72 79 20 64 61 74 61 62 61  in-memory databa
7560: 73 65 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  se...      #..  
7570: 20 20 20 20 73 65 74 20 69 73 4d 65 6d 6f 72 79      set isMemory
7580: 20 5b 69 73 4d 65 6d 6f 72 79 44 62 20 24 66 69   [isMemoryDb $fi
7590: 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a 20 20 20 20 20  leName]....     
75a0: 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45   #..      # NOTE
75b0: 3a 20 46 6f 72 20 6e 6f 77 2c 20 61 6c 6c 20 74  : For now, all t
75c0: 65 73 74 20 64 61 74 61 62 61 73 65 73 20 75 73  est databases us
75d0: 65 64 20 62 79 20 74 68 65 20 74 65 73 74 20 73  ed by the test s
75e0: 75 69 74 65 20 61 72 65 20 70 6c 61 63 65 64 20  uite are placed 
75f0: 69 6e 74 6f 0d 0a 20 20 20 20 20 20 23 20 20 20  into..      #   
7600: 20 20 20 20 74 68 65 20 74 65 6d 70 6f 72 61 72      the temporar
7610: 79 20 64 69 72 65 63 74 6f 72 79 2e 20 20 45 61  y directory.  Ea
7620: 63 68 20 64 61 74 61 62 61 73 65 20 75 73 65 64  ch database used
7630: 20 62 79 20 61 20 74 65 73 74 20 73 68 6f 75 6c   by a test shoul
7640: 64 20 62 65 0d 0a 20 20 20 20 20 20 23 20 20 20  d be..      #   
7650: 20 20 20 20 63 6c 65 61 6e 65 64 20 75 70 20 62      cleaned up b
7660: 79 20 74 68 61 74 20 74 65 73 74 20 75 73 69 6e  y that test usin
7670: 67 20 74 68 65 20 22 63 6c 65 61 6e 75 70 44 62  g the "cleanupDb
7680: 22 20 70 72 6f 63 65 64 75 72 65 2c 20 62 65 6c  " procedure, bel
7690: 6f 77 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  ow...      #..  
76a0: 20 20 20 20 69 66 20 7b 21 24 69 73 4d 65 6d 6f      if {!$isMemo
76b0: 72 79 20 26 26 20 24 71 75 61 6c 69 66 79 7d 20  ry && $qualify} 
76c0: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20  then {..        
76d0: 73 65 74 20 66 69 6c 65 4e 61 6d 65 20 5b 66 69  set fileName [fi
76e0: 6c 65 20 6a 6f 69 6e 20 5b 67 65 74 44 61 74 61  le join [getData
76f0: 62 61 73 65 44 69 72 65 63 74 6f 72 79 5d 20 5b  baseDirectory] [
7700: 66 69 6c 65 20 74 61 69 6c 20 24 66 69 6c 65 4e  file tail $fileN
7710: 61 6d 65 5d 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a  ame]]..      }..
7720: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20  ..      #..     
7730: 20 23 20 4e 4f 54 45 3a 20 42 79 20 64 65 66 61   # NOTE: By defa
7740: 75 6c 74 2c 20 64 65 6c 65 74 65 20 61 6e 79 20  ult, delete any 
7750: 70 72 65 2d 65 78 69 73 74 69 6e 67 20 64 61 74  pre-existing dat
7760: 61 62 61 73 65 20 77 69 74 68 20 74 68 65 20 73  abase with the s
7770: 61 6d 65 20 66 69 6c 65 0d 0a 20 20 20 20 20 20  ame file..      
7780: 23 20 20 20 20 20 20 20 6e 61 6d 65 20 69 66 20  #       name if 
7790: 69 74 20 63 75 72 72 65 6e 74 6c 79 20 65 78 69  it currently exi
77a0: 73 74 73 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20  sts...      #.. 
77b0: 20 20 20 20 20 69 66 20 7b 21 24 69 73 4d 65 6d       if {!$isMem
77c0: 6f 72 79 20 26 26 20 24 64 65 6c 65 74 65 20 26  ory && $delete &
77d0: 26 20 5b 66 69 6c 65 20 65 78 69 73 74 73 20 24  & [file exists $
77e0: 66 69 6c 65 4e 61 6d 65 5d 7d 20 74 68 65 6e 20  fileName]} then 
77f0: 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20  {..        #..  
7800: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 41 74        # NOTE: At
7810: 74 65 6d 70 74 20 74 6f 20 64 65 6c 65 74 65 20  tempt to delete 
7820: 61 6e 79 20 70 72 65 2d 65 78 69 73 74 69 6e 67  any pre-existing
7830: 20 64 61 74 61 62 61 73 65 20 77 69 74 68 20 74   database with t
7840: 68 65 20 73 61 6d 65 20 66 69 6c 65 0d 0a 20 20  he same file..  
7850: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 6e 61        #       na
7860: 6d 65 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a  me...        #..
7870: 20 20 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74          if {[cat
7880: 63 68 20 7b 66 69 6c 65 20 64 65 6c 65 74 65 20  ch {file delete 
7890: 24 66 69 6c 65 4e 61 6d 65 7d 20 65 72 72 6f 72  $fileName} error
78a0: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  ]} then {..     
78b0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..        
78c0: 20 20 23 20 4e 4f 54 45 3a 20 57 65 20 73 6f 6d    # NOTE: We som
78d0: 65 68 6f 77 20 66 61 69 6c 65 64 20 74 6f 20 64  ehow failed to d
78e0: 65 6c 65 74 65 20 74 68 65 20 66 69 6c 65 2c 20  elete the file, 
78f0: 72 65 70 6f 72 74 20 77 68 79 2e 0d 0a 20 20 20  report why...   
7900: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..      
7910: 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73      tputs $::tes
7920: 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e  t_channel [appen
7930: 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20  dArgs \..       
7940: 20 20 20 20 20 20 20 22 3d 3d 3d 3d 20 57 41 52         "==== WAR
7950: 4e 49 4e 47 3a 20 66 61 69 6c 65 64 20 74 6f 20  NING: failed to 
7960: 64 65 6c 65 74 65 20 64 61 74 61 62 61 73 65 20  delete database 
7970: 66 69 6c 65 20 5c 22 22 20 24 66 69 6c 65 4e 61  file \"" $fileNa
7980: 6d 65 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  me \..          
7990: 20 20 20 20 22 5c 22 20 64 75 72 69 6e 67 20 73      "\" during s
79a0: 65 74 75 70 2c 20 65 72 72 6f 72 3a 20 22 20 5c  etup, error: " \
79b0: 6e 5c 74 20 24 65 72 72 6f 72 20 5c 6e 5d 0d 0a  n\t $error \n]..
79c0: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20          }..     
79d0: 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20   }....      #.. 
79e0: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 52 65 66       # NOTE: Ref
79f0: 65 72 20 74 6f 20 74 68 65 20 73 70 65 63 69 66  er to the specif
7a00: 69 65 64 20 76 61 72 69 61 62 6c 65 20 28 65 2e  ied variable (e.
7a10: 67 2e 20 22 64 62 22 29 20 69 6e 20 74 68 65 20  g. "db") in the 
7a20: 63 6f 6e 74 65 78 74 20 6f 66 20 6f 75 72 0d 0a  context of our..
7a30: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 63 61        #       ca
7a40: 6c 6c 65 72 2e 20 20 54 68 65 20 68 61 6e 64 6c  ller.  The handl
7a50: 65 20 74 6f 20 74 68 65 20 6f 70 65 6e 65 64 20  e to the opened 
7a60: 64 61 74 61 62 61 73 65 20 77 69 6c 6c 20 62 65  database will be
7a70: 20 73 74 6f 72 65 64 20 74 68 65 72 65 2e 0d 0a   stored there...
7a80: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 75        #..      u
7a90: 70 76 61 72 20 31 20 24 76 61 72 4e 61 6d 65 20  pvar 1 $varName 
7aa0: 64 62 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20  db....      #.. 
7ab0: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 74 61       # NOTE: Sta
7ac0: 72 74 20 62 75 69 6c 64 69 6e 67 20 74 68 65 20  rt building the 
7ad0: 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 72 69 6e  connection strin
7ae0: 67 2e 20 20 54 68 65 20 6f 6e 6c 79 20 72 65 71  g.  The only req
7af0: 75 69 72 65 64 20 70 6f 72 74 69 6f 6e 0d 0a 20  uired portion.. 
7b00: 20 20 20 20 20 23 20 20 20 20 20 20 20 6f 66 20       #       of 
7b10: 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 73  the connection s
7b20: 74 72 69 6e 67 20 69 73 20 74 68 65 20 64 61 74  tring is the dat
7b30: 61 20 73 6f 75 72 63 65 2c 20 77 68 69 63 68 20  a source, which 
7b40: 63 6f 6e 74 61 69 6e 73 20 74 68 65 0d 0a 20 20  contains the..  
7b50: 20 20 20 20 23 20 20 20 20 20 20 20 64 61 74 61      #       data
7b60: 62 61 73 65 20 66 69 6c 65 20 6e 61 6d 65 20 69  base file name i
7b70: 74 73 65 6c 66 2e 20 20 49 66 20 6f 75 72 20 63  tself.  If our c
7b80: 61 6c 6c 65 72 20 77 61 6e 74 73 20 74 6f 20 75  aller wants to u
7b90: 73 65 20 61 20 55 52 49 20 61 73 0d 0a 20 20 20  se a URI as..   
7ba0: 20 20 20 23 20 20 20 20 20 20 20 74 68 65 20 64     #       the d
7bb0: 61 74 61 20 73 6f 75 72 63 65 2c 20 75 73 65 20  ata source, use 
7bc0: 74 68 65 20 46 75 6c 6c 55 72 69 20 63 6f 6e 6e  the FullUri conn
7bd0: 65 63 74 69 6f 6e 20 73 74 72 69 6e 67 20 70 72  ection string pr
7be0: 6f 70 65 72 74 79 20 74 6f 0d 0a 20 20 20 20 20  operty to..     
7bf0: 20 23 20 20 20 20 20 20 20 70 72 65 76 65 6e 74   #       prevent
7c00: 20 74 68 65 20 64 61 74 61 20 73 6f 75 72 63 65   the data source
7c10: 20 73 74 72 69 6e 67 20 66 72 6f 6d 20 62 65 69   string from bei
7c20: 6e 67 20 6d 61 6e 67 6c 65 64 2e 0d 0a 20 20 20  ng mangled...   
7c30: 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b     #..      if {
7c40: 24 75 72 69 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  $uri} then {..  
7c50: 20 20 20 20 20 20 73 65 74 20 63 6f 6e 6e 65 63        set connec
7c60: 74 69 6f 6e 20 7b 46 75 6c 6c 55 72 69 3d 24 7b  tion {FullUri=${
7c70: 66 69 6c 65 4e 61 6d 65 7d 7d 0d 0a 20 20 20 20  fileName}}..    
7c80: 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20    } else {..    
7c90: 20 20 20 20 73 65 74 20 63 6f 6e 6e 65 63 74 69      set connecti
7ca0: 6f 6e 20 7b 44 61 74 61 20 53 6f 75 72 63 65 3d  on {Data Source=
7cb0: 24 7b 66 69 6c 65 4e 61 6d 65 7d 7d 0d 0a 20 20  ${fileName}}..  
7cc0: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23      }....      #
7cd0: 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20  ..      # NOTE: 
7ce0: 53 69 6e 63 65 20 74 68 69 73 20 70 72 6f 63 65  Since this proce
7cf0: 64 75 72 65 20 68 61 73 20 6e 6f 20 73 70 65 63  dure has no spec
7d00: 69 61 6c 20 6b 6e 6f 77 6c 65 64 67 65 20 6f 66  ial knowledge of
7d10: 20 77 68 61 74 20 74 68 65 20 64 65 66 61 75 6c   what the defaul
7d20: 74 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20  t..      #      
7d30: 20 73 65 74 74 69 6e 67 20 69 73 20 66 6f 72 20   setting is for 
7d40: 74 68 65 20 54 6f 46 75 6c 6c 50 61 74 68 20 63  the ToFullPath c
7d50: 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 72 69 6e 67  onnection string
7d60: 20 70 72 6f 70 65 72 79 2c 20 61 6c 77 61 79 73   propery, always
7d70: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20  ..      #       
7d80: 61 64 64 20 74 68 65 20 76 61 6c 75 65 20 77 65  add the value we
7d90: 20 6b 6e 6f 77 20 61 62 6f 75 74 20 74 6f 20 74   know about to t
7da0: 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 74  he connection st
7db0: 72 69 6e 67 2e 0d 0a 20 20 20 20 20 20 23 0d 0a  ring...      #..
7dc0: 20 20 20 20 20 20 61 70 70 65 6e 64 20 63 6f 6e        append con
7dd0: 6e 65 63 74 69 6f 6e 20 7b 3b 54 6f 46 75 6c 6c  nection {;ToFull
7de0: 50 61 74 68 3d 24 7b 71 75 61 6c 69 66 79 7d 7d  Path=${qualify}}
7df0: 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20  ....      #..   
7e00: 20 20 20 23 20 4e 4f 54 45 3a 20 49 66 20 6f 75     # NOTE: If ou
7e10: 72 20 63 61 6c 6c 65 72 20 73 70 65 63 69 66 69  r caller specifi
7e20: 65 64 20 61 20 6a 6f 75 72 6e 61 6c 20 6d 6f 64  ed a journal mod
7e30: 65 2c 20 61 64 64 20 74 68 65 20 6e 65 63 65 73  e, add the neces
7e40: 73 61 72 79 20 70 6f 72 74 69 6f 6e 0d 0a 20 20  sary portion..  
7e50: 20 20 20 20 23 20 20 20 20 20 20 20 6f 66 20 74      #       of t
7e60: 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 74  he connection st
7e70: 72 69 6e 67 20 6e 6f 77 2e 0d 0a 20 20 20 20 20  ring now...     
7e80: 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 73   #..      if {[s
7e90: 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 6d 6f  tring length $mo
7ea0: 64 65 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d  de] > 0} then {.
7eb0: 0a 20 20 20 20 20 20 20 20 61 70 70 65 6e 64 20  .        append 
7ec0: 63 6f 6e 6e 65 63 74 69 6f 6e 20 7b 3b 4a 6f 75  connection {;Jou
7ed0: 72 6e 61 6c 20 4d 6f 64 65 3d 24 7b 6d 6f 64 65  rnal Mode=${mode
7ee0: 7d 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20  }}..      }.... 
7ef0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20       #..      # 
7f00: 4e 4f 54 45 3a 20 49 66 20 6f 75 72 20 63 61 6c  NOTE: If our cal
7f10: 6c 65 72 20 73 70 65 63 69 66 69 65 64 20 61 20  ler specified a 
7f20: 44 61 74 65 54 69 6d 65 20 66 6f 72 6d 61 74 2c  DateTime format,
7f30: 20 61 64 64 20 74 68 65 20 6e 65 63 65 73 73 61   add the necessa
7f40: 72 79 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20  ry..      #     
7f50: 20 20 70 6f 72 74 69 6f 6e 20 6f 66 20 74 68 65    portion of the
7f60: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 72 69   connection stri
7f70: 6e 67 20 6e 6f 77 2e 0d 0a 20 20 20 20 20 20 23  ng now...      #
7f80: 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 73 74 72  ..      if {[str
7f90: 69 6e 67 20 6c 65 6e 67 74 68 20 24 64 61 74 65  ing length $date
7fa0: 54 69 6d 65 46 6f 72 6d 61 74 5d 20 3e 20 30 7d  TimeFormat] > 0}
7fb0: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20   then {..       
7fc0: 20 61 70 70 65 6e 64 20 63 6f 6e 6e 65 63 74 69   append connecti
7fd0: 6f 6e 20 7b 3b 44 61 74 65 54 69 6d 65 46 6f 72  on {;DateTimeFor
7fe0: 6d 61 74 3d 24 7b 64 61 74 65 54 69 6d 65 46 6f  mat=${dateTimeFo
7ff0: 72 6d 61 74 7d 7d 0d 0a 20 20 20 20 20 20 7d 0d  rmat}}..      }.
8000: 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20  ...      #..    
8010: 20 20 23 20 4e 4f 54 45 3a 20 49 66 20 6f 75 72    # NOTE: If our
8020: 20 63 61 6c 6c 65 72 20 73 70 65 63 69 66 69 65   caller specifie
8030: 64 20 61 20 44 61 74 65 54 69 6d 65 4b 69 6e 64  d a DateTimeKind
8040: 2c 20 61 64 64 20 74 68 65 20 6e 65 63 65 73 73  , add the necess
8050: 61 72 79 20 70 6f 72 74 69 6f 6e 0d 0a 20 20 20  ary portion..   
8060: 20 20 20 23 20 20 20 20 20 20 20 6f 66 20 74 68     #       of th
8070: 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 74 72  e connection str
8080: 69 6e 67 20 6e 6f 77 2e 0d 0a 20 20 20 20 20 20  ing now...      
8090: 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 73 74  #..      if {[st
80a0: 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 64 61 74  ring length $dat
80b0: 65 54 69 6d 65 4b 69 6e 64 5d 20 3e 20 30 7d 20  eTimeKind] > 0} 
80c0: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20  then {..        
80d0: 61 70 70 65 6e 64 20 63 6f 6e 6e 65 63 74 69 6f  append connectio
80e0: 6e 20 7b 3b 44 61 74 65 54 69 6d 65 4b 69 6e 64  n {;DateTimeKind
80f0: 3d 24 7b 64 61 74 65 54 69 6d 65 4b 69 6e 64 7d  =${dateTimeKind}
8100: 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20  }..      }....  
8110: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e      #..      # N
8120: 4f 54 45 3a 20 49 66 20 74 68 65 72 65 20 61 72  OTE: If there ar
8130: 65 20 61 6e 79 20 67 6c 6f 62 61 6c 20 28 70 65  e any global (pe
8140: 72 20 74 65 73 74 20 72 75 6e 29 20 63 6f 6e 6e  r test run) conn
8150: 65 63 74 69 6f 6e 20 66 6c 61 67 73 20 63 75 72  ection flags cur
8160: 72 65 6e 74 6c 79 0d 0a 20 20 20 20 20 20 23 20  rently..      # 
8170: 20 20 20 20 20 20 73 65 74 2c 20 75 73 65 20 74        set, use t
8180: 68 65 6d 20 6e 6f 77 20 28 69 2e 65 2e 20 62 79  hem now (i.e. by
8190: 20 63 6f 6d 62 69 6e 69 6e 67 20 74 68 65 6d 20   combining them 
81a0: 77 69 74 68 20 74 68 65 20 6f 6e 65 73 20 66 6f  with the ones fo
81b0: 72 20 74 68 69 73 0d 0a 20 20 20 20 20 20 23 20  r this..      # 
81c0: 20 20 20 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e        connection
81d0: 29 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20  )...      #..   
81e0: 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69     if {[info exi
81f0: 73 74 73 20 3a 3a 63 6f 6e 6e 65 63 74 69 6f 6e  sts ::connection
8200: 5f 66 6c 61 67 73 5d 20 26 26 20 5c 0d 0a 20 20  _flags] && \..  
8210: 20 20 20 20 20 20 20 20 5b 73 74 72 69 6e 67 20          [string 
8220: 6c 65 6e 67 74 68 20 24 3a 3a 63 6f 6e 6e 65 63  length $::connec
8230: 74 69 6f 6e 5f 66 6c 61 67 73 5d 20 3e 20 30 7d  tion_flags] > 0}
8240: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20   then {..       
8250: 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f   #..        # NO
8260: 54 45 3a 20 53 68 6f 77 20 28 61 6e 64 20 6c 6f  TE: Show (and lo
8270: 67 29 20 74 68 61 74 20 77 65 20 64 65 74 65 63  g) that we detec
8280: 74 65 64 20 73 6f 6d 65 20 67 6c 6f 62 61 6c 20  ted some global 
8290: 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 6c 61 67 73  connection flags
82a0: 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20  ...        #..  
82b0: 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74        tputs $::t
82c0: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70  est_channel [app
82d0: 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20  endArgs \..     
82e0: 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 67 6c 6f         "---- glo
82f0: 62 61 6c 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 66  bal connection f
8300: 6c 61 67 73 20 64 65 74 65 63 74 65 64 3a 20 22  lags detected: "
8310: 20 24 3a 3a 63 6f 6e 6e 65 63 74 69 6f 6e 5f 66   $::connection_f
8320: 6c 61 67 73 20 5c 6e 5d 0d 0a 0d 0a 20 20 20 20  lags \n]....    
8330: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23      #..        #
8340: 20 4e 4f 54 45 3a 20 43 6f 6d 62 69 6e 65 20 61   NOTE: Combine a
8350: 6e 64 2f 6f 72 20 72 65 70 6c 61 63 65 20 74 68  nd/or replace th
8360: 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 66 6c 61  e connection fla
8370: 67 73 20 61 6e 64 20 74 68 65 6e 20 73 68 6f 77  gs and then show
8380: 20 74 68 65 0d 0a 20 20 20 20 20 20 20 20 23 20   the..        # 
8390: 20 20 20 20 20 20 6e 65 77 20 76 61 6c 75 65 2e        new value.
83a0: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20  ..        #..   
83b0: 20 20 20 20 20 73 65 74 20 66 6c 61 67 73 20 5b       set flags [
83c0: 63 6f 6d 62 69 6e 65 46 6c 61 67 73 20 24 66 6c  combineFlags $fl
83d0: 61 67 73 20 24 3a 3a 63 6f 6e 6e 65 63 74 69 6f  ags $::connectio
83e0: 6e 5f 66 6c 61 67 73 5d 0d 0a 0d 0a 20 20 20 20  n_flags]....    
83f0: 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73      tputs $::tes
8400: 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e  t_channel [appen
8410: 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20  dArgs \..       
8420: 20 20 20 20 20 22 2d 2d 2d 2d 20 63 6f 6d 62 69       "---- combi
8430: 6e 65 64 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 66  ned connection f
8440: 6c 61 67 73 20 61 72 65 3a 20 22 20 24 66 6c 61  lags are: " $fla
8450: 67 73 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 7d 0d  gs \n]..      }.
8460: 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20  ...      #..    
8470: 20 20 23 20 4e 4f 54 45 3a 20 49 66 20 6f 75 72    # NOTE: If our
8480: 20 63 61 6c 6c 65 72 20 73 70 65 63 69 66 69 65   caller specifie
8490: 64 20 61 20 53 51 4c 69 74 65 43 6f 6e 6e 65 63  d a SQLiteConnec
84a0: 74 69 6f 6e 46 6c 61 67 73 2c 20 61 64 64 20 74  tionFlags, add t
84b0: 68 65 20 6e 65 63 65 73 73 61 72 79 0d 0a 20 20  he necessary..  
84c0: 20 20 20 20 23 20 20 20 20 20 20 20 70 6f 72 74      #       port
84d0: 69 6f 6e 20 6f 66 20 74 68 65 20 63 6f 6e 6e 65  ion of the conne
84e0: 63 74 69 6f 6e 20 73 74 72 69 6e 67 20 6e 6f 77  ction string now
84f0: 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20  ...      #..    
8500: 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65    if {[string le
8510: 6e 67 74 68 20 24 66 6c 61 67 73 5d 20 3e 20 30  ngth $flags] > 0
8520: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..      
8530: 20 20 61 70 70 65 6e 64 20 63 6f 6e 6e 65 63 74    append connect
8540: 69 6f 6e 20 7b 3b 46 6c 61 67 73 3d 24 7b 66 6c  ion {;Flags=${fl
8550: 61 67 73 7d 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a  ags}}..      }..
8560: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20  ..      #..     
8570: 20 23 20 4e 4f 54 45 3a 20 49 66 20 6f 75 72 20   # NOTE: If our 
8580: 63 61 6c 6c 65 72 20 73 70 65 63 69 66 69 65 64  caller specified
8590: 20 61 6e 20 65 78 74 72 61 20 70 61 79 6c 6f 61   an extra payloa
85a0: 64 20 74 6f 20 74 68 65 20 63 6f 6e 6e 65 63 74  d to the connect
85b0: 69 6f 6e 20 73 74 72 69 6e 67 2c 0d 0a 20 20 20  ion string,..   
85c0: 20 20 20 23 20 20 20 20 20 20 20 61 70 70 65 6e     #       appen
85d0: 64 20 69 74 20 6e 6f 77 2e 0d 0a 20 20 20 20 20  d it now...     
85e0: 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 73   #..      if {[s
85f0: 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 65 78  tring length $ex
8600: 74 72 61 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b  tra] > 0} then {
8610: 0d 0a 20 20 20 20 20 20 20 20 61 70 70 65 6e 64  ..        append
8620: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 5c 3b 20 24   connection \; $
8630: 65 78 74 72 61 0d 0a 20 20 20 20 20 20 7d 0d 0a  extra..      }..
8640: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20  ..      #..     
8650: 20 23 20 4e 4f 54 45 3a 20 4f 70 65 6e 20 74 68   # NOTE: Open th
8660: 65 20 64 61 74 61 62 61 73 65 20 63 6f 6e 6e 65  e database conne
8670: 63 74 69 6f 6e 20 6e 6f 77 2c 20 70 6c 61 63 69  ction now, placi
8680: 6e 67 20 74 68 65 20 6f 70 61 71 75 65 20 68 61  ng the opaque ha
8690: 6e 64 6c 65 20 76 61 6c 75 65 0d 0a 20 20 20 20  ndle value..    
86a0: 20 20 23 20 20 20 20 20 20 20 69 6e 74 6f 20 74    #       into t
86b0: 68 65 20 76 61 72 69 61 62 6c 65 20 73 70 65 63  he variable spec
86c0: 69 66 69 65 64 20 62 79 20 6f 75 72 20 63 61 6c  ified by our cal
86d0: 6c 65 72 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20  ler...      #.. 
86e0: 20 20 20 20 20 73 65 74 20 64 62 20 5b 73 71 6c       set db [sql
86f0: 20 6f 70 65 6e 20 2d 74 79 70 65 20 53 51 4c 69   open -type SQLi
8700: 74 65 20 5b 73 75 62 73 74 20 24 63 6f 6e 6e 65  te [subst $conne
8710: 63 74 69 6f 6e 5d 5d 0d 0a 0d 0a 20 20 20 20 20  ction]]....     
8720: 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45   #..      # NOTE
8730: 3a 20 43 6f 6e 66 69 67 75 72 65 20 74 68 65 20  : Configure the 
8740: 74 65 6d 70 6f 72 61 72 79 20 64 69 72 65 63 74  temporary direct
8750: 6f 72 79 20 66 6f 72 20 74 68 65 20 6e 65 77 6c  ory for the newl
8760: 79 20 6f 70 65 6e 65 64 20 64 61 74 61 62 61 73  y opened databas
8770: 65 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20  e..      #      
8780: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 6e 6f 77 20   connection now 
8790: 75 6e 6c 65 73 73 20 6f 75 72 20 63 61 6c 6c 65  unless our calle
87a0: 72 20 66 6f 72 62 69 64 73 20 69 74 2e 0d 0a 20  r forbids it... 
87b0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66       #..      if
87c0: 20 7b 24 74 65 6d 70 6f 72 61 72 79 20 26 26 20   {$temporary && 
87d0: 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a  ![info exists ::
87e0: 6e 6f 28 73 65 74 54 65 6d 70 6f 72 61 72 79 44  no(setTemporaryD
87f0: 69 72 65 63 74 6f 72 79 29 5d 7d 20 74 68 65 6e  irectory)]} then
8800: 20 7b 0d 0a 20 20 20 20 20 20 20 20 73 71 6c 20   {..        sql 
8810: 65 78 65 63 75 74 65 20 24 64 62 20 5b 61 70 70  execute $db [app
8820: 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20  endArgs \..     
8830: 20 20 20 20 20 20 20 22 50 52 41 47 4d 41 20 74         "PRAGMA t
8840: 65 6d 70 5f 73 74 6f 72 65 5f 64 69 72 65 63 74  emp_store_direct
8850: 6f 72 79 20 3d 20 5c 22 22 20 5b 67 65 74 54 65  ory = \"" [getTe
8860: 6d 70 6f 72 61 72 79 44 69 72 65 63 74 6f 72 79  mporaryDirectory
8870: 5d 20 5c 22 5c 3b 5d 0d 0a 20 20 20 20 20 20 7d  ] \"\;]..      }
8880: 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20  ....      #..   
8890: 20 20 20 23 20 4e 4f 54 45 3a 20 41 6c 77 61 79     # NOTE: Alway
88a0: 73 20 72 65 74 75 72 6e 20 74 68 65 20 63 6f 6e  s return the con
88b0: 6e 65 63 74 69 6f 6e 20 68 61 6e 64 6c 65 20 75  nection handle u
88c0: 70 6f 6e 20 73 75 63 63 65 73 73 2e 0d 0a 20 20  pon success...  
88d0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 72 65 74      #..      ret
88e0: 75 72 6e 20 24 64 62 0d 0a 20 20 20 20 7d 0d 0a  urn $db..    }..
88f0: 0c 0d 0a 20 20 20 20 70 72 6f 63 20 67 65 74 44  ...    proc getD
8900: 62 43 6f 6e 6e 65 63 74 69 6f 6e 20 7b 20 7b 76  bConnection { {v
8910: 61 72 4e 61 6d 65 20 64 62 7d 20 7d 20 7b 0d 0a  arName db} } {..
8920: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23        #..      #
8930: 20 4e 4f 54 45 3a 20 52 65 66 65 72 20 74 6f 20   NOTE: Refer to 
8940: 74 68 65 20 73 70 65 63 69 66 69 65 64 20 76 61  the specified va
8950: 72 69 61 62 6c 65 20 28 65 2e 67 2e 20 22 64 62  riable (e.g. "db
8960: 22 29 20 69 6e 20 74 68 65 20 63 6f 6e 74 65 78  ") in the contex
8970: 74 20 6f 66 20 6f 75 72 0d 0a 20 20 20 20 20 20  t of our..      
8980: 23 20 20 20 20 20 20 20 63 61 6c 6c 65 72 2e 20  #       caller. 
8990: 20 54 68 65 20 68 61 6e 64 6c 65 20 74 6f 20 74   The handle to t
89a0: 68 65 20 64 61 74 61 62 61 73 65 20 70 72 65 76  he database prev
89b0: 69 6f 75 73 6c 79 20 6f 70 65 6e 65 64 20 62 79  iously opened by
89c0: 20 5b 73 65 74 75 70 44 62 5d 0d 0a 20 20 20 20   [setupDb]..    
89d0: 20 20 23 20 20 20 20 20 20 20 73 68 6f 75 6c 64    #       should
89e0: 20 62 65 20 73 74 6f 72 65 64 20 74 68 65 72 65   be stored there
89f0: 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20  ...      #..    
8a00: 20 20 75 70 76 61 72 20 31 20 24 76 61 72 4e 61    upvar 1 $varNa
8a10: 6d 65 20 64 62 0d 0a 0d 0a 20 20 20 20 20 20 23  me db....      #
8a20: 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20  ..      # NOTE: 
8a30: 54 68 69 73 20 72 65 74 75 72 6e 73 20 74 68 65  This returns the
8a40: 20 41 44 4f 2e 4e 45 54 20 49 44 62 43 6f 6e 6e   ADO.NET IDbConn
8a50: 65 63 74 69 6f 6e 20 6f 62 6a 65 63 74 20 69 6e  ection object in
8a60: 73 74 61 6e 63 65 20 66 6f 72 20 74 68 65 0d 0a  stance for the..
8a70: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 73 70        #       sp
8a80: 65 63 69 66 69 65 64 20 64 61 74 61 62 73 65 20  ecified databse 
8a90: 68 61 6e 64 6c 65 2e 20 20 53 69 6e 63 65 20 67  handle.  Since g
8aa0: 65 74 74 69 6e 67 20 74 68 69 73 20 6f 62 6a 65  etting this obje
8ab0: 63 74 20 72 65 6c 69 65 73 20 75 70 6f 6e 0d 0a  ct relies upon..
8ac0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 45 61        #       Ea
8ad0: 67 6c 65 20 69 6e 74 65 72 6e 61 6c 73 2c 20 67  gle internals, g
8ae0: 72 65 61 74 20 63 61 72 65 20 73 68 6f 75 6c 64  reat care should
8af0: 20 62 65 20 74 61 6b 65 6e 20 74 6f 20 61 76 6f   be taken to avo
8b00: 69 64 20 64 69 73 70 6f 73 69 6e 67 20 6f 66 0d  id disposing of.
8b10: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 74  .      #       t
8b20: 68 69 73 20 6f 62 6a 65 63 74 20 6f 72 20 6f 74  his object or ot
8b30: 68 65 72 77 69 73 65 20 70 75 74 74 69 6e 67 20  herwise putting 
8b40: 69 74 20 69 6e 74 6f 20 61 6e 20 69 6e 76 61 6c  it into an inval
8b50: 69 64 20 73 74 61 74 65 2e 0d 0a 20 20 20 20 20  id state...     
8b60: 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 69   #..      if {[i
8b70: 6e 66 6f 20 65 78 69 73 74 73 20 64 62 5d 7d 20  nfo exists db]} 
8b80: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20  then {..        
8b90: 69 66 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 20  if {[catch {..  
8ba0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 62                ob
8bb0: 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d 66 6c 61  ject invoke -fla
8bc0: 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 2d 6f  gs +NonPublic -o
8bd0: 62 6a 65 63 74 66 6c 61 67 73 20 2b 4e 6f 44 69  bjectflags +NoDi
8be0: 73 70 6f 73 65 20 5c 0d 0a 20 20 20 20 20 20 20  spose \..       
8bf0: 20 20 20 20 20 20 20 20 20 2d 61 6c 69 61 73 20           -alias 
8c00: 49 6e 74 65 72 70 72 65 74 65 72 2e 47 65 74 41  Interpreter.GetA
8c10: 63 74 69 76 65 2e 63 6f 6e 6e 65 63 74 69 6f 6e  ctive.connection
8c20: 73 20 49 74 65 6d 20 24 64 62 7d 20 5c 0d 0a 20  s Item $db} \.. 
8c30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72                 r
8c40: 65 73 75 6c 74 5d 20 3d 3d 20 30 7d 20 74 68 65  esult] == 0} the
8c50: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23  n {..          #
8c60: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f  ..          # NO
8c70: 54 45 3a 20 53 75 63 63 65 73 73 2c 20 72 65 74  TE: Success, ret
8c80: 75 72 6e 20 74 68 65 20 6f 70 61 71 75 65 20 6f  urn the opaque o
8c90: 62 6a 65 63 74 20 68 61 6e 64 6c 65 2e 0d 0a 20  bject handle... 
8ca0: 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20           #..    
8cb0: 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 72 65        return $re
8cc0: 73 75 6c 74 0d 0a 20 20 20 20 20 20 20 20 7d 20  sult..        } 
8cd0: 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20  else {..        
8ce0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23    #..          #
8cf0: 20 4e 4f 54 45 3a 20 46 61 69 6c 75 72 65 2c 20   NOTE: Failure, 
8d00: 72 65 70 6f 72 74 20 77 68 79 2e 0d 0a 20 20 20  report why...   
8d10: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..      
8d20: 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73      tputs $::tes
8d30: 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e  t_channel [appen
8d40: 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20  dArgs \..       
8d50: 20 20 20 20 20 20 20 22 3d 3d 3d 3d 20 57 41 52         "==== WAR
8d60: 4e 49 4e 47 3a 20 66 61 69 6c 65 64 20 74 6f 20  NING: failed to 
8d70: 67 65 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 68  get connection h
8d80: 61 6e 64 6c 65 20 66 6f 72 20 64 61 74 61 62 61  andle for databa
8d90: 73 65 20 5c 22 22 20 5c 0d 0a 20 20 20 20 20 20  se \"" \..      
8da0: 20 20 20 20 20 20 20 20 24 64 62 20 22 5c 22 2c          $db "\",
8db0: 20 65 72 72 6f 72 3a 20 22 20 5c 6e 5c 74 20 24   error: " \n\t $
8dc0: 72 65 73 75 6c 74 20 5c 6e 5d 0d 0a 20 20 20 20  result \n]..    
8dd0: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a      }..      }..
8de0: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72      }.....    pr
8df0: 6f 63 20 66 72 65 65 44 62 43 6f 6e 6e 65 63 74  oc freeDbConnect
8e00: 69 6f 6e 20 7b 20 7b 76 61 72 4e 61 6d 65 20 63  ion { {varName c
8e10: 6f 6e 6e 65 63 74 69 6f 6e 7d 20 7d 20 7b 0d 0a  onnection} } {..
8e20: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23        #..      #
8e30: 20 4e 4f 54 45 3a 20 52 65 66 65 72 20 74 6f 20   NOTE: Refer to 
8e40: 74 68 65 20 73 70 65 63 69 66 69 65 64 20 76 61  the specified va
8e50: 72 69 61 62 6c 65 20 28 65 2e 67 2e 20 22 63 6f  riable (e.g. "co
8e60: 6e 6e 65 63 74 69 6f 6e 22 29 20 69 6e 20 74 68  nnection") in th
8e70: 65 20 63 6f 6e 74 65 78 74 0d 0a 20 20 20 20 20  e context..     
8e80: 20 23 20 20 20 20 20 20 20 6f 66 20 6f 75 72 20   #       of our 
8e90: 63 61 6c 6c 65 72 2e 20 20 54 68 65 20 6f 70 61  caller.  The opa
8ea0: 71 75 65 20 6f 62 6a 65 63 74 20 68 61 6e 64 6c  que object handl
8eb0: 65 20 66 6f 72 20 61 6e 20 41 44 4f 2e 4e 45 54  e for an ADO.NET
8ec0: 20 63 6f 6e 6e 65 63 74 69 6f 6e 0d 0a 20 20 20   connection..   
8ed0: 20 20 20 23 20 20 20 20 20 20 20 70 72 65 76 69     #       previ
8ee0: 6f 75 73 6c 79 20 72 65 74 75 72 6e 65 64 20 62  ously returned b
8ef0: 79 20 5b 67 65 74 44 62 43 6f 6e 6e 65 63 74 69  y [getDbConnecti
8f00: 6f 6e 5d 20 73 68 6f 75 6c 64 20 62 65 20 73 74  on] should be st
8f10: 6f 72 65 64 20 74 68 65 72 65 2e 0d 0a 20 20 20  ored there...   
8f20: 20 20 20 23 0d 0a 20 20 20 20 20 20 75 70 76 61     #..      upva
8f30: 72 20 31 20 24 76 61 72 4e 61 6d 65 20 63 6f 6e  r 1 $varName con
8f40: 6e 65 63 74 69 6f 6e 0d 0a 0d 0a 20 20 20 20 20  nection....     
8f50: 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45   #..      # NOTE
8f60: 3a 20 41 74 74 65 6d 70 74 20 74 6f 20 72 65 6d  : Attempt to rem
8f70: 6f 76 65 20 74 68 65 20 6f 70 61 71 75 65 20 6f  ove the opaque o
8f80: 62 6a 65 63 74 20 68 61 6e 64 6c 65 20 66 72 6f  bject handle fro
8f90: 6d 20 74 68 65 20 69 6e 74 65 72 70 72 65 74 65  m the interprete
8fa0: 72 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20  r..      #      
8fb0: 20 6e 6f 77 2e 20 20 54 68 69 73 20 5b 6f 62 6a   now.  This [obj
8fc0: 65 63 74 20 64 69 73 70 6f 73 65 5d 20 63 61 6c  ect dispose] cal
8fd0: 6c 20 77 69 6c 6c 20 6e 6f 74 20 61 63 74 75 61  l will not actua
8fe0: 6c 6c 79 20 64 69 73 70 6f 73 65 20 6f 66 20 74  lly dispose of t
8ff0: 68 65 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20  he..      #     
9000: 20 20 75 6e 64 65 72 6c 79 69 6e 67 20 6f 62 6a    underlying obj
9010: 65 63 74 20 62 65 63 61 75 73 65 20 74 68 65 20  ect because the 
9020: 2b 4e 6f 44 69 73 70 6f 73 65 20 66 6c 61 67 20  +NoDispose flag 
9030: 77 61 73 20 73 65 74 20 6f 6e 20 69 74 20 64 75  was set on it du
9040: 72 69 6e 67 0d 0a 20 20 20 20 20 20 23 20 20 20  ring..      #   
9050: 20 20 20 20 63 72 65 61 74 69 6f 6e 20 6f 66 20      creation of 
9060: 74 68 65 20 6f 70 61 71 75 65 20 6f 62 6a 65 63  the opaque objec
9070: 74 20 68 61 6e 64 6c 65 2e 0d 0a 20 20 20 20 20  t handle...     
9080: 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 69   #..      if {[i
9090: 6e 66 6f 20 65 78 69 73 74 73 20 63 6f 6e 6e 65  nfo exists conne
90a0: 63 74 69 6f 6e 5d 20 26 26 20 5c 0d 0a 20 20 20  ction] && \..   
90b0: 20 20 20 20 20 20 20 5b 63 61 74 63 68 20 7b 6f         [catch {o
90c0: 62 6a 65 63 74 20 64 69 73 70 6f 73 65 20 24 63  bject dispose $c
90d0: 6f 6e 6e 65 63 74 69 6f 6e 7d 20 65 72 72 6f 72  onnection} error
90e0: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  ]} then {..     
90f0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20     #..        # 
9100: 4e 4f 54 45 3a 20 57 65 20 73 6f 6d 65 68 6f 77  NOTE: We somehow
9110: 20 66 61 69 6c 65 64 20 74 6f 20 72 65 6d 6f 76   failed to remov
9120: 65 20 74 68 65 20 68 61 6e 64 6c 65 2c 20 72 65  e the handle, re
9130: 70 6f 72 74 20 77 68 79 2e 0d 0a 20 20 20 20 20  port why...     
9140: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 74 70     #..        tp
9150: 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e  uts $::test_chan
9160: 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20  nel [appendArgs 
9170: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 22  \..            "
9180: 3d 3d 3d 3d 20 57 41 52 4e 49 4e 47 3a 20 66 61  ==== WARNING: fa
9190: 69 6c 65 64 20 74 6f 20 72 65 6d 6f 76 65 20 63  iled to remove c
91a0: 6f 6e 6e 65 63 74 69 6f 6e 20 68 61 6e 64 6c 65  onnection handle
91b0: 20 5c 22 22 20 24 63 6f 6e 6e 65 63 74 69 6f 6e   \"" $connection
91c0: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   \..            
91d0: 22 5c 22 2c 20 65 72 72 6f 72 3a 20 22 20 5c 6e  "\", error: " \n
91e0: 5c 74 20 24 65 72 72 6f 72 20 5c 6e 5d 0d 0a 20  \t $error \n].. 
91f0: 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c       }..    }...
9200: 0d 0a 20 20 20 20 70 72 6f 63 20 61 64 64 44 62  ..    proc addDb
9210: 43 6f 6e 6e 65 63 74 69 6f 6e 20 7b 20 63 6f 6e  Connection { con
9220: 6e 65 63 74 69 6f 6e 20 7b 76 61 72 4e 61 6d 65  nection {varName
9230: 20 64 62 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 20   db} } {..      
9240: 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a  #..      # NOTE:
9250: 20 52 65 66 65 72 20 74 6f 20 74 68 65 20 73 70   Refer to the sp
9260: 65 63 69 66 69 65 64 20 76 61 72 69 61 62 6c 65  ecified variable
9270: 20 28 65 2e 67 2e 20 22 64 62 22 29 20 69 6e 20   (e.g. "db") in 
9280: 74 68 65 20 63 6f 6e 74 65 78 74 20 6f 66 20 6f  the context of o
9290: 75 72 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20  ur..      #     
92a0: 20 20 63 61 6c 6c 65 72 2e 0d 0a 20 20 20 20 20    caller...     
92b0: 20 23 0d 0a 20 20 20 20 20 20 75 70 76 61 72 20   #..      upvar 
92c0: 31 20 24 76 61 72 4e 61 6d 65 20 64 62 0d 0a 0d  1 $varName db...
92d0: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20  .      #..      
92e0: 23 20 4e 4f 54 45 3a 20 43 72 65 61 74 65 20 61  # NOTE: Create a
92f0: 20 63 6f 72 72 65 63 74 6c 79 20 66 6f 72 6d 61   correctly forma
9300: 74 74 65 64 20 6e 61 6d 65 20 66 6f 72 20 74 68  tted name for th
9310: 65 20 64 61 74 61 62 61 73 65 20 63 6f 6e 6e 65  e database conne
9320: 63 74 69 6f 6e 20 74 6f 0d 0a 20 20 20 20 20 20  ction to..      
9330: 23 20 20 20 20 20 20 20 62 65 20 61 64 64 65 64  #       be added
9340: 20 74 6f 20 74 68 65 20 6c 69 73 74 20 6d 61 6e   to the list man
9350: 61 67 65 64 20 62 79 20 74 68 65 20 45 61 67 6c  aged by the Eagl
9360: 65 20 69 6e 74 65 72 70 72 65 74 65 72 2e 0d 0a  e interpreter...
9370: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 73        #..      s
9380: 65 74 20 64 62 20 5b 6f 62 6a 65 63 74 20 69 6e  et db [object in
9390: 76 6f 6b 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e  voke -flags +Non
93a0: 50 75 62 6c 69 63 20 5c 0d 0a 20 20 20 20 20 20  Public \..      
93b0: 20 20 20 20 45 61 67 6c 65 2e 5f 43 6f 6d 70 6f      Eagle._Compo
93c0: 6e 65 6e 74 73 2e 50 72 69 76 61 74 65 2e 46 6f  nents.Private.Fo
93d0: 72 6d 61 74 4f 70 73 20 44 61 74 61 62 61 73 65  rmatOps Database
93e0: 4f 62 6a 65 63 74 4e 61 6d 65 20 24 63 6f 6e 6e  ObjectName $conn
93f0: 65 63 74 69 6f 6e 20 5c 0d 0a 20 20 20 20 20 20  ection \..      
9400: 20 20 20 20 53 51 4c 69 74 65 43 6f 6e 6e 65 63      SQLiteConnec
9410: 74 69 6f 6e 20 5b 6f 62 6a 65 63 74 20 69 6e 76  tion [object inv
9420: 6f 6b 65 20 49 6e 74 65 72 70 72 65 74 65 72 2e  oke Interpreter.
9430: 47 65 74 41 63 74 69 76 65 20 4e 65 78 74 49 64  GetActive NextId
9440: 5d 5d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20  ]]....      #.. 
9450: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 41 64 64       # NOTE: Add
9460: 20 74 68 65 20 64 61 74 61 62 61 73 65 20 63 6f   the database co
9470: 6e 6e 65 63 74 69 6f 6e 20 70 72 6f 76 69 64 65  nnection provide
9480: 64 20 62 79 20 6f 75 72 20 63 61 6c 6c 65 72 20  d by our caller 
9490: 74 6f 20 74 68 65 20 6c 69 73 74 0d 0a 20 20 20  to the list..   
94a0: 20 20 20 23 20 20 20 20 20 20 20 6f 66 20 74 68     #       of th
94b0: 6f 73 65 20 6b 6e 6f 77 6e 20 74 6f 20 74 68 65  ose known to the
94c0: 20 45 61 67 6c 65 20 69 6e 74 65 72 70 72 65 74   Eagle interpret
94d0: 65 72 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  er...      #..  
94e0: 20 20 20 20 6f 62 6a 65 63 74 20 69 6e 76 6f 6b      object invok
94f0: 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 62  e -flags +NonPub
9500: 6c 69 63 20 49 6e 74 65 72 70 72 65 74 65 72 2e  lic Interpreter.
9510: 47 65 74 41 63 74 69 76 65 2e 63 6f 6e 6e 65 63  GetActive.connec
9520: 74 69 6f 6e 73 20 41 64 64 20 5c 0d 0a 20 20 20  tions Add \..   
9530: 20 20 20 20 20 20 20 24 64 62 20 24 63 6f 6e 6e         $db $conn
9540: 65 63 74 69 6f 6e 0d 0a 20 20 20 20 7d 0d 0a 0c  ection..    }...
9550: 0d 0a 20 20 20 20 70 72 6f 63 20 63 6c 65 61 6e  ..    proc clean
9560: 75 70 44 62 20 7b 20 66 69 6c 65 4e 61 6d 65 20  upDb { fileName 
9570: 7b 76 61 72 4e 61 6d 65 20 64 62 7d 20 7b 63 6f  {varName db} {co
9580: 6c 6c 65 63 74 20 74 72 75 65 7d 20 7b 71 75 61  llect true} {qua
9590: 6c 69 66 79 20 74 72 75 65 7d 0d 0a 20 20 20 20  lify true}..    
95a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
95b0: 20 7b 64 65 6c 65 74 65 20 74 72 75 65 7d 20 7d   {delete true} }
95c0: 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20   {..      #..   
95d0: 20 20 20 23 20 4e 4f 54 45 3a 20 41 74 74 65 6d     # NOTE: Attem
95e0: 70 74 20 74 6f 20 66 6f 72 63 65 20 61 6c 6c 20  pt to force all 
95f0: 70 65 6e 64 69 6e 67 20 22 67 61 72 62 61 67 65  pending "garbage
9600: 22 20 6f 62 6a 65 63 74 73 20 74 6f 20 62 65 20  " objects to be 
9610: 63 6f 6c 6c 65 63 74 65 64 2c 0d 0a 20 20 20 20  collected,..    
9620: 20 20 23 20 20 20 20 20 20 20 69 6e 63 6c 75 64    #       includ
9630: 69 6e 67 20 53 51 4c 69 74 65 20 73 74 61 74 65  ing SQLite state
9640: 6d 65 6e 74 73 20 61 6e 64 20 62 61 63 6b 75 70  ments and backup
9650: 20 6f 62 6a 65 63 74 73 3b 20 74 68 69 73 20 73   objects; this s
9660: 68 6f 75 6c 64 20 61 6c 6c 6f 77 0d 0a 20 20 20  hould allow..   
9670: 20 20 20 23 20 20 20 20 20 20 20 74 68 65 20 75     #       the u
9680: 6e 64 65 72 6c 79 69 6e 67 20 64 61 74 61 62 61  nderlying databa
9690: 73 65 20 66 69 6c 65 20 74 6f 20 62 65 20 64 65  se file to be de
96a0: 6c 65 74 65 64 2e 0d 0a 20 20 20 20 20 20 23 0d  leted...      #.
96b0: 0a 20 20 20 20 20 20 69 66 20 7b 24 63 6f 6c 6c  .      if {$coll
96c0: 65 63 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  ect} then {..   
96d0: 20 20 20 20 20 63 6f 6c 6c 65 63 74 47 61 72 62       collectGarb
96e0: 61 67 65 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e  age $::test_chan
96f0: 6e 65 6c 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a  nel..      }....
9700: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23        #..      #
9710: 20 4e 4f 54 45 3a 20 52 65 66 65 72 20 74 6f 20   NOTE: Refer to 
9720: 74 68 65 20 73 70 65 63 69 66 69 65 64 20 76 61  the specified va
9730: 72 69 61 62 6c 65 20 28 65 2e 67 2e 20 22 64 62  riable (e.g. "db
9740: 22 29 20 69 6e 20 74 68 65 20 63 6f 6e 74 65 78  ") in the contex
9750: 74 20 6f 66 20 6f 75 72 0d 0a 20 20 20 20 20 20  t of our..      
9760: 23 20 20 20 20 20 20 20 63 61 6c 6c 65 72 2e 20  #       caller. 
9770: 20 54 68 65 20 68 61 6e 64 6c 65 20 74 6f 20 74   The handle to t
9780: 68 65 20 64 61 74 61 62 61 73 65 20 70 72 65 76  he database prev
9790: 69 6f 75 73 6c 79 20 6f 70 65 6e 65 64 20 62 79  iously opened by
97a0: 20 5b 73 65 74 75 70 44 62 5d 0d 0a 20 20 20 20   [setupDb]..    
97b0: 20 20 23 20 20 20 20 20 20 20 73 68 6f 75 6c 64    #       should
97c0: 20 62 65 20 73 74 6f 72 65 64 20 74 68 65 72 65   be stored there
97d0: 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20  ...      #..    
97e0: 20 20 75 70 76 61 72 20 31 20 24 76 61 72 4e 61    upvar 1 $varNa
97f0: 6d 65 20 64 62 0d 0a 0d 0a 20 20 20 20 20 20 23  me db....      #
9800: 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20  ..      # NOTE: 
9810: 43 6c 6f 73 65 20 74 68 65 20 63 6f 6e 6e 65 63  Close the connec
9820: 74 69 6f 6e 20 74 6f 20 74 68 65 20 64 61 74 61  tion to the data
9830: 62 61 73 65 20 6e 6f 77 2e 20 20 54 68 69 73 20  base now.  This 
9840: 73 68 6f 75 6c 64 20 61 6c 6c 6f 77 20 75 73 20  should allow us 
9850: 74 6f 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20  to..      #     
9860: 20 20 64 65 6c 65 74 65 20 74 68 65 20 75 6e 64    delete the und
9870: 65 72 6c 79 69 6e 67 20 64 61 74 61 62 61 73 65  erlying database
9880: 20 66 69 6c 65 2e 0d 0a 20 20 20 20 20 20 23 0d   file...      #.
9890: 0a 20 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f  .      if {[info
98a0: 20 65 78 69 73 74 73 20 64 62 5d 20 26 26 20 5b   exists db] && [
98b0: 63 61 74 63 68 20 7b 73 71 6c 20 63 6c 6f 73 65  catch {sql close
98c0: 20 24 64 62 7d 20 65 72 72 6f 72 5d 7d 20 74 68   $db} error]} th
98d0: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d  en {..        #.
98e0: 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a  .        # NOTE:
98f0: 20 57 65 20 73 6f 6d 65 68 6f 77 20 66 61 69 6c   We somehow fail
9900: 65 64 20 74 6f 20 63 6c 6f 73 65 20 74 68 65 20  ed to close the 
9910: 64 61 74 61 62 61 73 65 2c 20 72 65 70 6f 72 74  database, report
9920: 20 77 68 79 2e 0d 0a 20 20 20 20 20 20 20 20 23   why...        #
9930: 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20  ..        tputs 
9940: 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20  $::test_channel 
9950: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20  [appendArgs \.. 
9960: 20 20 20 20 20 20 20 20 20 20 20 22 3d 3d 3d 3d             "====
9970: 20 57 41 52 4e 49 4e 47 3a 20 66 61 69 6c 65 64   WARNING: failed
9980: 20 74 6f 20 63 6c 6f 73 65 20 64 61 74 61 62 61   to close databa
9990: 73 65 20 5c 22 22 20 24 64 62 20 22 5c 22 2c 20  se \"" $db "\", 
99a0: 65 72 72 6f 72 3a 20 22 20 5c 0d 0a 20 20 20 20  error: " \..    
99b0: 20 20 20 20 20 20 20 20 5c 6e 5c 74 20 24 65 72          \n\t $er
99c0: 72 6f 72 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 7d  ror \n]..      }
99d0: 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20  ....      #..   
99e0: 20 20 20 23 20 4e 4f 54 45 3a 20 46 69 72 73 74     # NOTE: First
99f0: 2c 20 73 65 65 20 69 66 20 6f 75 72 20 63 61 6c  , see if our cal
9a00: 6c 65 72 20 68 61 73 20 72 65 71 75 65 73 74 65  ler has requeste
9a10: 64 20 61 6e 20 69 6e 2d 6d 65 6d 6f 72 79 20 64  d an in-memory d
9a20: 61 74 61 62 61 73 65 2e 0d 0a 20 20 20 20 20 20  atabase...      
9a30: 23 0d 0a 20 20 20 20 20 20 73 65 74 20 69 73 4d  #..      set isM
9a40: 65 6d 6f 72 79 20 5b 69 73 4d 65 6d 6f 72 79 44  emory [isMemoryD
9a50: 62 20 24 66 69 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a  b $fileName]....
9a60: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23        #..      #
9a70: 20 4e 4f 54 45 3a 20 42 75 69 6c 64 20 74 68 65   NOTE: Build the
9a80: 20 66 75 6c 6c 20 70 61 74 68 20 74 6f 20 74 68   full path to th
9a90: 65 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 20  e database file 
9aa0: 6e 61 6d 65 2e 20 20 46 6f 72 20 6e 6f 77 2c 20  name.  For now, 
9ab0: 61 6c 6c 20 74 65 73 74 0d 0a 20 20 20 20 20 20  all test..      
9ac0: 23 20 20 20 20 20 20 20 64 61 74 61 62 61 73 65  #       database
9ad0: 20 66 69 6c 65 73 20 61 72 65 20 73 74 6f 72 65   files are store
9ae0: 64 20 69 6e 20 74 68 65 20 74 65 6d 70 6f 72 61  d in the tempora
9af0: 72 79 20 64 69 72 65 63 74 6f 72 79 2e 0d 0a 20  ry directory... 
9b00: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66       #..      if
9b10: 20 7b 21 24 69 73 4d 65 6d 6f 72 79 20 26 26 20   {!$isMemory && 
9b20: 24 71 75 61 6c 69 66 79 7d 20 74 68 65 6e 20 7b  $qualify} then {
9b30: 0d 0a 20 20 20 20 20 20 20 20 73 65 74 20 66 69  ..        set fi
9b40: 6c 65 4e 61 6d 65 20 5b 66 69 6c 65 20 6a 6f 69  leName [file joi
9b50: 6e 20 5b 67 65 74 44 61 74 61 62 61 73 65 44 69  n [getDatabaseDi
9b60: 72 65 63 74 6f 72 79 5d 20 5b 66 69 6c 65 20 74  rectory] [file t
9b70: 61 69 6c 20 24 66 69 6c 65 4e 61 6d 65 5d 5d 0d  ail $fileName]].
9b80: 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20  .      }....    
9b90: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54    #..      # NOT
9ba0: 45 3a 20 43 68 65 63 6b 20 69 66 20 74 68 65 20  E: Check if the 
9bb0: 66 69 6c 65 20 73 74 69 6c 6c 20 65 78 69 73 74  file still exist
9bc0: 73 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20  s...      #..   
9bd0: 20 20 20 69 66 20 7b 21 24 69 73 4d 65 6d 6f 72     if {!$isMemor
9be0: 79 20 26 26 20 24 64 65 6c 65 74 65 20 26 26 20  y && $delete && 
9bf0: 5b 66 69 6c 65 20 65 78 69 73 74 73 20 24 66 69  [file exists $fi
9c00: 6c 65 4e 61 6d 65 5d 7d 20 74 68 65 6e 20 7b 0d  leName]} then {.
9c10: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20  .        #..    
9c20: 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 6b 69 70      # NOTE: Skip
9c30: 20 64 65 6c 65 74 69 6e 67 20 64 61 74 61 62 61   deleting databa
9c40: 73 65 20 66 69 6c 65 73 20 69 66 20 73 6f 6d 65  se files if some
9c50: 62 6f 64 79 20 73 65 74 73 20 74 68 65 20 67 6c  body sets the gl
9c60: 6f 62 61 6c 0d 0a 20 20 20 20 20 20 20 20 23 20  obal..        # 
9c70: 20 20 20 20 20 20 76 61 72 69 61 62 6c 65 20 74        variable t
9c80: 6f 20 70 72 65 76 65 6e 74 20 69 74 2e 0d 0a 20  o prevent it... 
9c90: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..      
9ca0: 20 20 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69    if {![info exi
9cb0: 73 74 73 20 3a 3a 6e 6f 28 63 6c 65 61 6e 75 70  sts ::no(cleanup
9cc0: 44 62 46 69 6c 65 29 5d 7d 20 74 68 65 6e 20 7b  DbFile)]} then {
9cd0: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20  ..          #.. 
9ce0: 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a           # NOTE:
9cf0: 20 41 74 74 65 6d 70 74 20 74 6f 20 64 65 6c 65   Attempt to dele
9d00: 74 65 20 74 68 65 20 74 65 73 74 20 64 61 74 61  te the test data
9d10: 62 61 73 65 20 66 69 6c 65 20 6e 6f 77 2e 0d 0a  base file now...
9d20: 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20            #..   
9d30: 20 20 20 20 20 20 20 69 66 20 7b 5b 73 65 74 20         if {[set 
9d40: 63 6f 64 65 20 5b 63 61 74 63 68 20 7b 66 69 6c  code [catch {fil
9d50: 65 20 64 65 6c 65 74 65 20 24 66 69 6c 65 4e 61  e delete $fileNa
9d60: 6d 65 7d 20 65 72 72 6f 72 5d 5d 7d 20 74 68 65  me} error]]} the
9d70: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20  n {..           
9d80: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   #..            
9d90: 23 20 4e 4f 54 45 3a 20 57 65 20 73 6f 6d 65 68  # NOTE: We someh
9da0: 6f 77 20 66 61 69 6c 65 64 20 74 6f 20 64 65 6c  ow failed to del
9db0: 65 74 65 20 74 68 65 20 66 69 6c 65 2c 20 72 65  ete the file, re
9dc0: 70 6f 72 74 20 77 68 79 2e 0d 0a 20 20 20 20 20  port why...     
9dd0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..      
9de0: 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74        tputs $::t
9df0: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70  est_channel [app
9e00: 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20  endArgs \..     
9e10: 20 20 20 20 20 20 20 20 20 20 20 22 3d 3d 3d 3d             "====
9e20: 20 57 41 52 4e 49 4e 47 3a 20 66 61 69 6c 65 64   WARNING: failed
9e30: 20 74 6f 20 64 65 6c 65 74 65 20 64 61 74 61 62   to delete datab
9e40: 61 73 65 20 66 69 6c 65 20 5c 22 22 20 24 66 69  ase file \"" $fi
9e50: 6c 65 4e 61 6d 65 20 5c 0d 0a 20 20 20 20 20 20  leName \..      
9e60: 20 20 20 20 20 20 20 20 20 20 22 5c 22 20 64 75            "\" du
9e70: 72 69 6e 67 20 63 6c 65 61 6e 75 70 2c 20 65 72  ring cleanup, er
9e80: 72 6f 72 3a 20 22 20 5c 6e 5c 74 20 24 65 72 72  ror: " \n\t $err
9e90: 6f 72 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20  or \n]..        
9ea0: 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 20 65    }..        } e
9eb0: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  lse {..         
9ec0: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20   #..          # 
9ed0: 4e 4f 54 45 3a 20 53 68 6f 77 20 74 68 61 74 20  NOTE: Show that 
9ee0: 77 65 20 73 6b 69 70 70 65 64 20 64 65 6c 65 74  we skipped delet
9ef0: 69 6e 67 20 74 68 65 20 66 69 6c 65 2e 0d 0a 20  ing the file... 
9f00: 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20           #..    
9f10: 20 20 20 20 20 20 73 65 74 20 63 6f 64 65 20 30        set code 0
9f20: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70  ....          tp
9f30: 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e  uts $::test_chan
9f40: 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20  nel [appendArgs 
9f50: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  \..             
9f60: 20 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e 47 3a 20   "==== WARNING: 
9f70: 73 6b 69 70 70 65 64 20 64 65 6c 65 74 69 6e 67  skipped deleting
9f80: 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 20 5c   database file \
9f90: 22 22 20 24 66 69 6c 65 4e 61 6d 65 20 5c 0d 0a  "" $fileName \..
9fa0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5c                "\
9fb0: 22 20 64 75 72 69 6e 67 20 63 6c 65 61 6e 75 70  " during cleanup
9fc0: 5c 6e 22 5d 0d 0a 20 20 20 20 20 20 20 20 7d 0d  \n"]..        }.
9fd0: 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d  .      } else {.
9fe0: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20  .        #..    
9ff0: 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 65 20      # NOTE: The 
a000: 66 69 6c 65 20 64 6f 65 73 20 6e 6f 74 20 65 78  file does not ex
a010: 69 73 74 2c 20 73 75 63 63 65 73 73 21 0d 0a 20  ist, success!.. 
a020: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..      
a030: 20 20 73 65 74 20 63 6f 64 65 20 30 0d 0a 20 20    set code 0..  
a040: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 72      }....      r
a050: 65 74 75 72 6e 20 24 63 6f 64 65 0d 0a 20 20 20  eturn $code..   
a060: 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20   }.....    proc 
a070: 63 6c 65 61 6e 75 70 46 69 6c 65 20 7b 20 66 69  cleanupFile { fi
a080: 6c 65 4e 61 6d 65 20 7b 63 6f 6c 6c 65 63 74 20  leName {collect 
a090: 74 72 75 65 7d 20 7b 66 6f 72 63 65 20 66 61 6c  true} {force fal
a0a0: 73 65 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 20 23  se} } {..      #
a0b0: 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20  ..      # NOTE: 
a0c0: 41 74 74 65 6d 70 74 20 74 6f 20 66 6f 72 63 65  Attempt to force
a0d0: 20 61 6c 6c 20 70 65 6e 64 69 6e 67 20 22 67 61   all pending "ga
a0e0: 72 62 61 67 65 22 20 6f 62 6a 65 63 74 73 20 74  rbage" objects t
a0f0: 6f 20 62 65 20 63 6f 6c 6c 65 63 74 65 64 2c 0d  o be collected,.
a100: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 69  .      #       i
a110: 6e 63 6c 75 64 69 6e 67 20 53 51 4c 69 74 65 20  ncluding SQLite 
a120: 73 74 61 74 65 6d 65 6e 74 73 20 61 6e 64 20 62  statements and b
a130: 61 63 6b 75 70 20 6f 62 6a 65 63 74 73 3b 20 74  ackup objects; t
a140: 68 69 73 20 73 68 6f 75 6c 64 20 61 6c 6c 6f 77  his should allow
a150: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20  ..      #       
a160: 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 64  the underlying d
a170: 61 74 61 62 61 73 65 20 66 69 6c 65 20 74 6f 20  atabase file to 
a180: 62 65 20 64 65 6c 65 74 65 64 2e 0d 0a 20 20 20  be deleted...   
a190: 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b     #..      if {
a1a0: 24 63 6f 6c 6c 65 63 74 7d 20 74 68 65 6e 20 7b  $collect} then {
a1b0: 0d 0a 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63  ..        collec
a1c0: 74 47 61 72 62 61 67 65 20 24 3a 3a 74 65 73 74  tGarbage $::test
a1d0: 5f 63 68 61 6e 6e 65 6c 0d 0a 20 20 20 20 20 20  _channel..      
a1e0: 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  }....      #..  
a1f0: 20 20 20 20 23 20 4e 4f 54 45 3a 20 43 68 65 63      # NOTE: Chec
a200: 6b 20 69 66 20 74 68 65 20 66 69 6c 65 20 73 74  k if the file st
a210: 69 6c 6c 20 65 78 69 73 74 73 2e 0d 0a 20 20 20  ill exists...   
a220: 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b     #..      if {
a230: 5b 66 69 6c 65 20 65 78 69 73 74 73 20 24 66 69  [file exists $fi
a240: 6c 65 4e 61 6d 65 5d 7d 20 74 68 65 6e 20 7b 0d  leName]} then {.
a250: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20  .        #..    
a260: 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 6b 69 70      # NOTE: Skip
a270: 20 64 65 6c 65 74 69 6e 67 20 74 65 73 74 20 66   deleting test f
a280: 69 6c 65 73 20 69 66 20 73 6f 6d 65 62 6f 64 79  iles if somebody
a290: 20 73 65 74 73 20 74 68 65 20 67 6c 6f 62 61 6c   sets the global
a2a0: 20 76 61 72 69 61 62 6c 65 0d 0a 20 20 20 20 20   variable..     
a2b0: 20 20 20 23 20 20 20 20 20 20 20 74 6f 20 70 72     #       to pr
a2c0: 65 76 65 6e 74 20 69 74 2e 0d 0a 20 20 20 20 20  event it...     
a2d0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 69 66     #..        if
a2e0: 20 7b 24 66 6f 72 63 65 20 7c 7c 20 21 5b 69 6e   {$force || ![in
a2f0: 66 6f 20 65 78 69 73 74 73 20 3a 3a 6e 6f 28 63  fo exists ::no(c
a300: 6c 65 61 6e 75 70 46 69 6c 65 29 5d 7d 20 74 68  leanupFile)]} th
a310: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20  en {..          
a320: 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e  #..          # N
a330: 4f 54 45 3a 20 41 74 74 65 6d 70 74 20 74 6f 20  OTE: Attempt to 
a340: 64 65 6c 65 74 65 20 74 68 65 20 74 65 73 74 20  delete the test 
a350: 66 69 6c 65 20 6e 6f 77 2e 0d 0a 20 20 20 20 20  file now...     
a360: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..        
a370: 20 20 69 66 20 7b 5b 73 65 74 20 63 6f 64 65 20    if {[set code 
a380: 5b 63 61 74 63 68 20 7b 66 69 6c 65 20 64 65 6c  [catch {file del
a390: 65 74 65 20 24 66 69 6c 65 4e 61 6d 65 7d 20 65  ete $fileName} e
a3a0: 72 72 6f 72 5d 5d 7d 20 74 68 65 6e 20 7b 0d 0a  rror]]} then {..
a3b0: 20 20 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20              #.. 
a3c0: 20 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54             # NOT
a3d0: 45 3a 20 57 65 20 73 6f 6d 65 68 6f 77 20 66 61  E: We somehow fa
a3e0: 69 6c 65 64 20 74 6f 20 64 65 6c 65 74 65 20 74  iled to delete t
a3f0: 68 65 20 66 69 6c 65 2c 20 72 65 70 6f 72 74 20  he file, report 
a400: 77 68 79 2e 0d 0a 20 20 20 20 20 20 20 20 20 20  why...          
a410: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 20    #..           
a420: 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63   tputs $::test_c
a430: 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72  hannel [appendAr
a440: 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  gs \..          
a450: 20 20 20 20 20 20 22 3d 3d 3d 3d 20 57 41 52 4e        "==== WARN
a460: 49 4e 47 3a 20 66 61 69 6c 65 64 20 74 6f 20 64  ING: failed to d
a470: 65 6c 65 74 65 20 74 65 73 74 20 66 69 6c 65 20  elete test file 
a480: 5c 22 22 20 24 66 69 6c 65 4e 61 6d 65 20 5c 0d  \"" $fileName \.
a490: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
a4a0: 20 22 5c 22 20 64 75 72 69 6e 67 20 63 6c 65 61   "\" during clea
a4b0: 6e 75 70 2c 20 65 72 72 6f 72 3a 20 22 20 5c 6e  nup, error: " \n
a4c0: 5c 74 20 24 65 72 72 6f 72 20 5c 6e 5d 0d 0a 20  \t $error \n].. 
a4d0: 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20           }..    
a4e0: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20      } else {..  
a4f0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..     
a500: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 68 6f       # NOTE: Sho
a510: 77 20 74 68 61 74 20 77 65 20 73 6b 69 70 70 65  w that we skippe
a520: 64 20 64 65 6c 65 74 69 6e 67 20 74 68 65 20 66  d deleting the f
a530: 69 6c 65 2e 0d 0a 20 20 20 20 20 20 20 20 20 20  ile...          
a540: 23 0d 0a 20 20 20 20 20 20 20 20 20 20 73 65 74  #..          set
a550: 20 63 6f 64 65 20 30 0d 0a 0d 0a 20 20 20 20 20   code 0....     
a560: 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65       tputs $::te
a570: 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65  st_channel [appe
a580: 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20  ndArgs \..      
a590: 20 20 20 20 20 20 20 20 22 3d 3d 3d 3d 20 57 41          "==== WA
a5a0: 52 4e 49 4e 47 3a 20 73 6b 69 70 70 65 64 20 64  RNING: skipped d
a5b0: 65 6c 65 74 69 6e 67 20 74 65 73 74 20 66 69 6c  eleting test fil
a5c0: 65 20 5c 22 22 20 24 66 69 6c 65 4e 61 6d 65 20  e \"" $fileName 
a5d0: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  \..             
a5e0: 20 22 5c 22 20 64 75 72 69 6e 67 20 63 6c 65 61   "\" during clea
a5f0: 6e 75 70 5c 6e 22 5d 0d 0a 20 20 20 20 20 20 20  nup\n"]..       
a600: 20 7d 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65   }..      } else
a610: 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20   {..        #.. 
a620: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 54         # NOTE: T
a630: 68 65 20 66 69 6c 65 20 64 6f 65 73 20 6e 6f 74  he file does not
a640: 20 65 78 69 73 74 2c 20 73 75 63 63 65 73 73 21   exist, success!
a650: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20  ..        #..   
a660: 20 20 20 20 20 73 65 74 20 63 6f 64 65 20 30 0d       set code 0.
a670: 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20  .      }....    
a680: 20 20 72 65 74 75 72 6e 20 24 63 6f 64 65 0d 0a    return $code..
a690: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72      }.....    pr
a6a0: 6f 63 20 63 6f 6c 6c 65 63 74 47 61 72 62 61 67  oc collectGarbag
a6b0: 65 20 7b 20 63 68 61 6e 6e 65 6c 20 7b 6d 69 6c  e { channel {mil
a6c0: 6c 69 73 65 63 6f 6e 64 73 20 31 30 30 30 7d 20  liseconds 1000} 
a6d0: 7b 71 75 69 65 74 20 74 72 75 65 7d 20 7d 20 7b  {quiet true} } {
a6e0: 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74  ..      if {[cat
a6f0: 63 68 20 7b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b  ch {object invok
a700: 65 20 47 43 20 47 65 74 54 6f 74 61 6c 4d 65 6d  e GC GetTotalMem
a710: 6f 72 79 20 66 61 6c 73 65 7d 20 72 65 73 75 6c  ory false} resul
a720: 74 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d  t] == 0} then {.
a730: 0a 20 20 20 20 20 20 20 20 69 66 20 7b 21 24 71  .        if {!$q
a740: 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  uiet} then {..  
a750: 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63          tputs $c
a760: 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72  hannel [appendAr
a770: 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  gs \..          
a780: 20 20 20 20 22 2d 2d 2d 2d 20 6d 65 6d 6f 72 79      "---- memory
a790: 20 69 6e 20 75 73 65 20 62 79 20 74 68 65 20 43   in use by the C
a7a0: 4c 52 20 62 65 66 6f 72 65 20 63 6f 6c 6c 65 63  LR before collec
a7b0: 74 69 6f 6e 2e 2e 2e 20 22 20 5c 0d 0a 20 20 20  tion... " \..   
a7c0: 20 20 20 20 20 20 20 20 20 20 20 24 72 65 73 75             $resu
a7d0: 6c 74 20 22 20 62 79 74 65 73 5c 6e 22 5d 0d 0a  lt " bytes\n"]..
a7e0: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20          }..     
a7f0: 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20   } else {..     
a800: 20 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65     tputs $channe
a810: 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d  l [appendArgs \.
a820: 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 3d 3d  .            "==
a830: 3d 3d 20 57 41 52 4e 49 4e 47 3a 20 66 61 69 6c  == WARNING: fail
a840: 65 64 20 74 6f 20 67 65 74 20 43 4c 52 20 6d 65  ed to get CLR me
a850: 6d 6f 72 79 20 75 73 61 67 65 2c 20 65 72 72 6f  mory usage, erro
a860: 72 3a 20 22 20 5c 0d 0a 20 20 20 20 20 20 20 20  r: " \..        
a870: 20 20 20 20 5c 6e 5c 74 20 24 72 65 73 75 6c 74      \n\t $result
a880: 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d   \n]..      }...
a890: 0a 20 20 20 20 20 20 23 23 23 23 23 23 23 23 23  .      #########
a8a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
a8b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
a8c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
a8d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
a8e0: 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20  ....      #..   
a8f0: 20 20 20 23 20 4e 4f 54 45 3a 20 52 65 70 65 61     # NOTE: Repea
a900: 74 65 64 6c 79 20 61 74 74 65 6d 70 74 20 74 6f  tedly attempt to
a910: 20 63 6f 6c 6c 65 63 74 20 67 61 72 62 61 67 65   collect garbage
a920: 20 75 6e 74 69 6c 20 74 68 65 20 61 6c 6c 6f 74   until the allot
a930: 74 65 64 20 6e 75 6d 62 65 72 0d 0a 20 20 20 20  ted number..    
a940: 20 20 23 20 20 20 20 20 20 20 6f 66 20 6d 69 6c    #       of mil
a950: 6c 69 73 65 63 6f 6e 64 73 20 68 61 73 20 65 6c  liseconds has el
a960: 61 70 73 65 64 2e 20 20 41 6c 77 61 79 73 20 61  apsed.  Always a
a970: 74 74 65 6d 70 74 20 74 6f 20 63 6f 6c 6c 65 63  ttempt to collec
a980: 74 20 67 61 72 62 61 67 65 0d 0a 20 20 20 20 20  t garbage..     
a990: 20 23 20 20 20 20 20 20 20 61 74 20 6c 65 61 73   #       at leas
a9a0: 74 20 6f 6e 63 65 2e 0d 0a 20 20 20 20 20 20 23  t once...      #
a9b0: 0d 0a 20 20 20 20 20 20 73 65 74 20 73 74 61 72  ..      set star
a9c0: 74 20 5b 63 6c 6f 63 6b 20 73 65 63 6f 6e 64 73  t [clock seconds
a9d0: 5d 0d 0a 20 20 20 20 20 20 73 65 74 20 73 74 6f  ]..      set sto
a9e0: 70 20 5b 65 78 70 72 20 7b 24 73 74 61 72 74 20  p [expr {$start 
a9f0: 2b 20 28 24 6d 69 6c 6c 69 73 65 63 6f 6e 64 73  + ($milliseconds
aa00: 20 2f 20 31 30 30 30 29 7d 5d 0d 0a 0d 0a 20 20   / 1000)}]....  
aa10: 20 20 20 20 64 6f 20 7b 0d 0a 20 20 20 20 20 20      do {..      
aa20: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e    #..        # N
aa30: 4f 54 45 3a 20 41 74 74 65 6d 70 74 20 74 6f 20  OTE: Attempt to 
aa40: 66 6f 72 63 65 20 61 20 66 75 6c 6c 20 67 61 72  force a full gar
aa50: 62 61 67 65 20 63 6f 6c 6c 65 63 74 69 6f 6e 20  bage collection 
aa60: 6e 6f 77 2e 20 20 52 65 70 6f 72 74 20 61 6e 79  now.  Report any
aa70: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20  ..        #     
aa80: 20 20 65 72 72 6f 72 20 74 68 61 74 20 69 73 20    error that is 
aa90: 65 6e 63 6f 75 6e 74 65 72 65 64 20 69 66 20 77  encountered if w
aaa0: 65 20 66 61 69 6c 2e 0d 0a 20 20 20 20 20 20 20  e fail...       
aab0: 20 23 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b   #..        if {
aac0: 5b 63 61 74 63 68 20 7b 6f 62 6a 65 63 74 20 69  [catch {object i
aad0: 6e 76 6f 6b 65 20 47 43 20 47 65 74 54 6f 74 61  nvoke GC GetTota
aae0: 6c 4d 65 6d 6f 72 79 20 74 72 75 65 7d 20 65 72  lMemory true} er
aaf0: 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  ror]} then {..  
ab00: 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63          tputs $c
ab10: 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72  hannel [appendAr
ab20: 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  gs \..          
ab30: 20 20 20 20 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e      "==== WARNIN
ab40: 47 3a 20 66 61 69 6c 65 64 20 66 75 6c 6c 20 67  G: failed full g
ab50: 61 72 62 61 67 65 20 63 6f 6c 6c 65 63 74 69 6f  arbage collectio
ab60: 6e 2c 20 65 72 72 6f 72 3a 20 22 20 5c 0d 0a 20  n, error: " \.. 
ab70: 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 6e 5c               \n\
ab80: 74 20 24 65 72 72 6f 72 20 5c 6e 5d 0d 0a 20 20  t $error \n]..  
ab90: 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20        }....     
aba0: 20 20 20 73 65 74 20 6e 6f 77 20 5b 63 6c 6f 63     set now [cloc
abb0: 6b 20 73 65 63 6f 6e 64 73 5d 0d 0a 20 20 20 20  k seconds]..    
abc0: 20 20 7d 20 77 68 69 6c 65 20 7b 24 73 74 61 72    } while {$star
abd0: 74 20 3c 3d 20 24 6e 6f 77 20 26 26 20 24 6e 6f  t <= $now && $no
abe0: 77 20 3c 20 24 73 74 6f 70 7d 0d 0a 0d 0a 20 20  w < $stop}....  
abf0: 20 20 20 20 23 23 23 23 23 23 23 23 23 23 23 23      ############
ac00: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
ac10: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
ac20: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
ac30: 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d  #############...
ac40: 0a 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63  .      if {[catc
ac50: 68 20 7b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65  h {object invoke
ac60: 20 47 43 20 47 65 74 54 6f 74 61 6c 4d 65 6d 6f   GC GetTotalMemo
ac70: 72 79 20 66 61 6c 73 65 7d 20 72 65 73 75 6c 74  ry false} result
ac80: 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a  ] == 0} then {..
ac90: 20 20 20 20 20 20 20 20 69 66 20 7b 21 24 71 75          if {!$qu
aca0: 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  iet} then {..   
acb0: 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68         tputs $ch
acc0: 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67  annel [appendArg
acd0: 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20  s \..           
ace0: 20 20 20 22 2d 2d 2d 2d 20 6d 65 6d 6f 72 79 20     "---- memory 
acf0: 69 6e 20 75 73 65 20 62 79 20 74 68 65 20 43 4c  in use by the CL
ad00: 52 20 61 66 74 65 72 20 63 6f 6c 6c 65 63 74 69  R after collecti
ad10: 6f 6e 2e 2e 2e 20 22 20 5c 0d 0a 20 20 20 20 20  on... " \..     
ad20: 20 20 20 20 20 20 20 20 20 24 72 65 73 75 6c 74           $result
ad30: 20 22 20 62 79 74 65 73 5c 6e 22 5d 0d 0a 20 20   " bytes\n"]..  
ad40: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d        }..      }
ad50: 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20   else {..       
ad60: 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20   tputs $channel 
ad70: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20  [appendArgs \.. 
ad80: 20 20 20 20 20 20 20 20 20 20 20 22 3d 3d 3d 3d             "====
ad90: 20 57 41 52 4e 49 4e 47 3a 20 66 61 69 6c 65 64   WARNING: failed
ada0: 20 74 6f 20 67 65 74 20 43 4c 52 20 6d 65 6d 6f   to get CLR memo
adb0: 72 79 20 75 73 61 67 65 2c 20 65 72 72 6f 72 3a  ry usage, error:
adc0: 20 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20   " \..          
add0: 20 20 5c 6e 5c 74 20 24 72 65 73 75 6c 74 20 5c    \n\t $result \
ade0: 6e 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20  n]..      }..   
adf0: 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20   }.....    proc 
ae00: 67 65 74 53 51 4c 69 74 65 48 61 6e 64 6c 65 43  getSQLiteHandleC
ae10: 6f 75 6e 74 73 20 7b 20 63 68 61 6e 6e 65 6c 20  ounts { channel 
ae20: 7b 71 75 69 65 74 20 66 61 6c 73 65 7d 20 7d 20  {quiet false} } 
ae30: 7b 0d 0a 20 20 20 20 20 20 73 65 74 20 72 65 73  {..      set res
ae40: 75 6c 74 20 5b 6c 69 73 74 5d 0d 0a 0d 0a 20 20  ult [list]....  
ae50: 20 20 20 20 69 66 20 7b 5b 68 61 76 65 43 6f 6e      if {[haveCon
ae60: 73 74 72 61 69 6e 74 20 5c 0d 0a 20 20 20 20 20  straint \..     
ae70: 20 20 20 20 20 20 20 20 20 64 65 66 69 6e 65 43           defineC
ae80: 6f 6e 73 74 61 6e 74 2e 53 79 73 74 65 6d 2e 44  onstant.System.D
ae90: 61 74 61 2e 53 51 4c 69 74 65 2e 43 4f 55 4e 54  ata.SQLite.COUNT
aea0: 5f 48 41 4e 44 4c 45 5d 7d 20 74 68 65 6e 20 7b  _HANDLE]} then {
aeb0: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20  ..        #..   
aec0: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 41 64 64       # NOTE: Add
aed0: 20 65 61 63 68 20 63 72 69 74 69 63 61 6c 20 68   each critical h
aee0: 61 6e 64 6c 65 20 63 6f 75 6e 74 20 74 6f 20 74  andle count to t
aef0: 68 65 20 72 65 73 75 6c 74 69 6e 67 20 6c 69 73  he resulting lis
af00: 74 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20  t...        #.. 
af10: 20 20 20 20 20 20 20 66 6f 72 65 61 63 68 20 6e         foreach n
af20: 61 6d 65 20 5b 6c 69 73 74 20 63 6f 6e 6e 65 63  ame [list connec
af30: 74 69 6f 6e 43 6f 75 6e 74 20 73 74 61 74 65 6d  tionCount statem
af40: 65 6e 74 43 6f 75 6e 74 20 62 61 63 6b 75 70 43  entCount backupC
af50: 6f 75 6e 74 5d 20 7b 0d 0a 20 20 20 20 20 20 20  ount] {..       
af60: 20 20 20 73 65 74 20 76 61 6c 75 65 20 5b 6f 62     set value [ob
af70: 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d 66 6c 61  ject invoke -fla
af80: 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 5c 0d  gs +NonPublic \.
af90: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53  .              S
afa0: 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74  ystem.Data.SQLit
afb0: 65 2e 55 6e 73 61 66 65 4e 61 74 69 76 65 4d 65  e.UnsafeNativeMe
afc0: 74 68 6f 64 73 20 24 6e 61 6d 65 5d 0d 0a 0d 0a  thods $name]....
afd0: 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 21 24            if {!$
afe0: 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a 20  quiet} then {.. 
aff0: 20 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73             tputs
b000: 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e   $channel [appen
b010: 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20  dArgs \..       
b020: 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 63           "---- c
b030: 72 69 74 69 63 61 6c 20 68 61 6e 64 6c 65 20 63  ritical handle c
b040: 6f 75 6e 74 20 5c 22 22 20 24 6e 61 6d 65 20 22  ount \"" $name "
b050: 5c 22 20 69 73 20 22 20 24 76 61 6c 75 65 20 5c  \" is " $value \
b060: 6e 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d  n]..          }.
b070: 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 6c 61 70  ...          lap
b080: 70 65 6e 64 20 72 65 73 75 6c 74 20 24 76 61 6c  pend result $val
b090: 75 65 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20  ue..        }.. 
b0a0: 20 20 20 20 20 7d 20 65 6c 73 65 69 66 20 7b 21       } elseif {!
b0b0: 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a  $quiet} then {..
b0c0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..     
b0d0: 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 65 20 61     # NOTE: The a
b0e0: 63 74 75 61 6c 20 68 61 6e 64 6c 65 20 63 6f 75  ctual handle cou
b0f0: 6e 74 73 20 61 72 65 20 6e 6f 74 20 61 76 61 69  nts are not avai
b100: 6c 61 62 6c 65 3b 20 74 68 65 72 65 66 6f 72 65  lable; therefore
b110: 2c 20 6a 75 73 74 0d 0a 20 20 20 20 20 20 20 20  , just..        
b120: 23 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 61  #       return a
b130: 6e 20 65 6d 70 74 79 20 6c 69 73 74 2e 0d 0a 20  n empty list... 
b140: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..      
b150: 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c    tputs $channel
b160: 20 22 2d 2d 2d 2d 20 63 72 69 74 69 63 61 6c 20   "---- critical 
b170: 68 61 6e 64 6c 65 20 63 6f 75 6e 74 73 20 75 6e  handle counts un
b180: 61 76 61 69 6c 61 62 6c 65 5c 6e 22 0d 0a 20 20  available\n"..  
b190: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 72      }....      r
b1a0: 65 74 75 72 6e 20 24 72 65 73 75 6c 74 0d 0a 20  eturn $result.. 
b1b0: 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f     }.....    pro
b1c0: 63 20 73 68 75 74 64 6f 77 6e 53 51 4c 69 74 65  c shutdownSQLite
b1d0: 20 7b 20 63 68 61 6e 6e 65 6c 20 7b 66 6f 72 63   { channel {forc
b1e0: 65 20 66 61 6c 73 65 7d 20 7b 71 75 69 65 74 20  e false} {quiet 
b1f0: 66 61 6c 73 65 7d 20 7d 20 7b 0d 0a 20 20 20 20  false} } {..    
b200: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54    #..      # NOT
b210: 45 3a 20 4d 61 6b 65 20 73 75 72 65 20 74 68 61  E: Make sure tha
b220: 74 20 53 51 4c 69 74 65 20 63 6f 72 65 20 6c 69  t SQLite core li
b230: 62 72 61 72 79 20 69 73 20 63 6f 6d 70 6c 65 74  brary is complet
b240: 65 6c 79 20 73 68 75 74 64 6f 77 6e 2e 20 20 54  ely shutdown.  T
b250: 68 69 73 0d 0a 20 20 20 20 20 20 23 20 20 20 20  his..      #    
b260: 20 20 20 69 73 20 75 73 65 64 20 62 79 20 74 65     is used by te
b270: 73 74 73 20 74 68 61 74 20 63 68 61 6e 67 65 20  sts that change 
b280: 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 6f 70  configuration op
b290: 74 69 6f 6e 73 20 61 6e 64 2f 6f 72 20 74 68 6f  tions and/or tho
b2a0: 73 65 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20  se..      #     
b2b0: 20 20 74 68 61 74 20 6e 65 65 64 20 74 6f 20 6d    that need to m
b2c0: 61 6b 65 20 73 75 72 65 20 6c 6f 67 67 69 6e 67  ake sure logging
b2d0: 20 69 73 20 69 6e 69 74 69 61 6c 69 7a 65 64 20   is initialized 
b2e0: 28 69 2e 65 2e 20 6a 75 73 74 20 69 6e 20 63 61  (i.e. just in ca
b2f0: 73 65 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20  se..      #     
b300: 20 20 74 68 65 20 53 51 4c 69 74 65 20 63 6f 72    the SQLite cor
b310: 65 20 6c 69 62 72 61 72 79 20 77 61 73 20 69 6e  e library was in
b320: 69 74 69 61 6c 69 7a 65 64 20 69 6e 20 74 68 65  itialized in the
b330: 20 70 72 6f 63 65 73 73 20 70 72 69 6f 72 20 74   process prior t
b340: 6f 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20  o..      #      
b350: 20 74 68 65 20 53 51 4c 69 74 65 4c 6f 67 20 63   the SQLiteLog c
b360: 6c 61 73 73 20 62 65 69 6e 67 20 61 62 6c 65 20  lass being able 
b370: 74 6f 20 73 65 74 75 70 20 69 74 73 20 6c 6f 67  to setup its log
b380: 67 69 6e 67 20 63 61 6c 6c 62 61 63 6b 29 2e 0d  ging callback)..
b390: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 4e  .      #       N
b3a0: 6f 72 6d 61 6c 6c 79 2c 20 74 68 69 73 20 73 68  ormally, this sh
b3b0: 6f 75 6c 64 20 6f 6e 6c 79 20 62 65 20 70 65 72  ould only be per
b3c0: 66 6f 72 6d 65 64 20 69 66 20 53 51 4c 69 74 65  formed if SQLite
b3d0: 20 69 73 20 6c 6f 61 64 65 64 20 61 6e 64 0d 0a   is loaded and..
b3e0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 72 65        #       re
b3f0: 61 64 79 20 66 6f 72 20 75 73 65 20 62 79 20 74  ady for use by t
b400: 68 65 20 74 65 73 74 20 73 75 69 74 65 2e 0d 0a  he test suite...
b410: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69        #..      i
b420: 66 20 7b 24 66 6f 72 63 65 20 7c 7c 20 5b 69 73  f {$force || [is
b430: 53 51 4c 69 74 65 52 65 61 64 79 5d 7d 20 74 68  SQLiteReady]} th
b440: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d  en {..        #.
b450: 0a 20 20 20 20 20 20 20 20 23 20 42 55 47 46 49  .        # BUGFI
b460: 58 3a 20 42 65 66 6f 72 65 20 63 61 6c 6c 69 6e  X: Before callin
b470: 67 20 74 68 65 20 6e 61 74 69 76 65 20 73 68 75  g the native shu
b480: 74 64 6f 77 6e 20 66 75 6e 63 74 69 6f 6e 2c 20  tdown function, 
b490: 6d 61 6b 65 20 73 75 72 65 20 62 6f 74 68 0d 0a  make sure both..
b4a0: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20          #       
b4b0: 20 20 6f 66 20 74 68 65 20 50 52 41 47 4d 41 20    of the PRAGMA 
b4c0: 72 65 6c 61 74 65 64 20 64 69 72 65 63 74 6f 72  related director
b4d0: 79 20 6e 61 6d 65 73 20 61 72 65 20 66 72 65 65  y names are free
b4e0: 64 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20  d...        #.. 
b4f0: 20 20 20 20 20 20 20 63 68 65 63 6b 46 6f 72 53         checkForS
b500: 51 4c 69 74 65 44 69 72 65 63 74 6f 72 69 65 73  QLiteDirectories
b510: 20 24 63 68 61 6e 6e 65 6c 20 74 72 75 65 0d 0a   $channel true..
b520: 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b 63  ..        if {[c
b530: 61 74 63 68 20 7b 6f 62 6a 65 63 74 20 69 6e 76  atch {object inv
b540: 6f 6b 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50  oke -flags +NonP
b550: 75 62 6c 69 63 20 5c 0d 0a 20 20 20 20 20 20 20  ublic \..       
b560: 20 20 20 20 20 20 20 20 20 53 79 73 74 65 6d 2e           System.
b570: 44 61 74 61 2e 53 51 4c 69 74 65 2e 55 6e 73 61  Data.SQLite.Unsa
b580: 66 65 4e 61 74 69 76 65 4d 65 74 68 6f 64 73 20  feNativeMethods 
b590: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  \..             
b5a0: 20 20 20 73 71 6c 69 74 65 33 5f 73 68 75 74 64     sqlite3_shutd
b5b0: 6f 77 6e 7d 20 72 65 73 75 6c 74 5d 20 3d 3d 20  own} result] == 
b5c0: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  0} then {..     
b5d0: 20 20 20 20 20 69 66 20 7b 21 24 71 75 69 65 74       if {!$quiet
b5e0: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..      
b5f0: 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68 61        tputs $cha
b600: 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73  nnel [appendArgs
b610: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   \..            
b620: 20 20 20 20 22 2d 2d 2d 2d 20 63 61 6c 6c 20 73      "---- call s
b630: 71 6c 69 74 65 33 5f 73 68 75 74 64 6f 77 6e 28  qlite3_shutdown(
b640: 29 2e 2e 2e 20 6f 6b 3a 20 22 20 24 72 65 73 75  )... ok: " $resu
b650: 6c 74 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20  lt \n]..        
b660: 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 20 65    }..        } e
b670: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  lse {..         
b680: 20 69 66 20 7b 21 24 71 75 69 65 74 7d 20 74 68   if {!$quiet} th
b690: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20  en {..          
b6a0: 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c    tputs $channel
b6b0: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a   [appendArgs \..
b6c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
b6d0: 22 2d 2d 2d 2d 20 63 61 6c 6c 20 73 71 6c 69 74  "---- call sqlit
b6e0: 65 33 5f 73 68 75 74 64 6f 77 6e 28 29 2e 2e 2e  e3_shutdown()...
b6f0: 20 65 72 72 6f 72 3a 20 22 20 5c 6e 5c 74 20 24   error: " \n\t $
b700: 72 65 73 75 6c 74 20 5c 6e 5d 0d 0a 20 20 20 20  result \n]..    
b710: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20        }..       
b720: 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20   }..      }..   
b730: 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20   }.....    proc 
b740: 72 65 70 6f 72 74 53 51 4c 69 74 65 52 65 73 6f  reportSQLiteReso
b750: 75 72 63 65 73 20 7b 20 63 68 61 6e 6e 65 6c 20  urces { channel 
b760: 7b 71 75 69 65 74 20 66 61 6c 73 65 7d 20 7b 63  {quiet false} {c
b770: 6f 6c 6c 65 63 74 20 74 72 75 65 7d 20 7d 20 7b  ollect true} } {
b780: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20  ..      #..     
b790: 20 23 20 4e 4f 54 45 3a 20 53 6b 69 70 20 61 6c   # NOTE: Skip al
b7a0: 6c 20 6f 75 74 70 75 74 20 69 66 20 77 65 20 61  l output if we a
b7b0: 72 65 20 72 75 6e 6e 69 6e 67 20 69 6e 20 22 71  re running in "q
b7c0: 75 69 65 74 22 20 6d 6f 64 65 2e 0d 0a 20 20 20  uiet" mode...   
b7d0: 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b     #..      if {
b7e0: 21 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d  !$quiet} then {.
b7f0: 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24  .        tputs $
b800: 63 68 61 6e 6e 65 6c 20 22 2d 2d 2d 2d 20 63 75  channel "---- cu
b810: 72 72 65 6e 74 20 6d 65 6d 6f 72 79 20 69 6e 20  rrent memory in 
b820: 75 73 65 20 62 79 20 53 51 4c 69 74 65 2e 2e 2e  use by SQLite...
b830: 20 22 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20   "..      }.... 
b840: 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20       if {[catch 
b850: 7b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d  {object invoke -
b860: 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 63  flags +NonPublic
b870: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   \..            
b880: 20 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51    System.Data.SQ
b890: 4c 69 74 65 2e 55 6e 73 61 66 65 4e 61 74 69 76  Lite.UnsafeNativ
b8a0: 65 4d 65 74 68 6f 64 73 20 5c 0d 0a 20 20 20 20  eMethods \..    
b8b0: 20 20 20 20 20 20 20 20 20 20 73 71 6c 69 74 65            sqlite
b8c0: 33 5f 6d 65 6d 6f 72 79 5f 75 73 65 64 7d 20 6d  3_memory_used} m
b8d0: 65 6d 6f 72 79 5d 20 3d 3d 20 30 7d 20 74 68 65  emory] == 0} the
b8e0: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 69 66 20  n {..        if 
b8f0: 7b 21 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b  {!$quiet} then {
b900: 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70 75 74  ..          tput
b910: 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65  s $channel [appe
b920: 6e 64 41 72 67 73 20 24 6d 65 6d 6f 72 79 20 22  ndArgs $memory "
b930: 20 62 79 74 65 73 5c 6e 22 5d 0d 0a 20 20 20 20   bytes\n"]..    
b940: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 20 65      }..      } e
b950: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 23  lse {..        #
b960: 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45  ..        # NOTE
b970: 3a 20 4d 61 79 62 65 20 74 68 65 20 53 51 4c 69  : Maybe the SQLi
b980: 74 65 20 63 6f 72 65 20 6c 69 62 72 61 72 79 20  te core library 
b990: 69 73 20 75 6e 61 76 61 69 6c 61 62 6c 65 3f 0d  is unavailable?.
b9a0: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20  .        #..    
b9b0: 20 20 20 20 73 65 74 20 6d 65 6d 6f 72 79 20 75      set memory u
b9c0: 6e 6b 6e 6f 77 6e 0d 0a 0d 0a 20 20 20 20 20 20  nknown....      
b9d0: 20 20 69 66 20 7b 21 24 71 75 69 65 74 7d 20 74    if {!$quiet} t
b9e0: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  hen {..         
b9f0: 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20   tputs $channel 
ba00: 5b 61 70 70 65 6e 64 41 72 67 73 20 24 6d 65 6d  [appendArgs $mem
ba10: 6f 72 79 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20  ory \n]..       
ba20: 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20   }..      }.... 
ba30: 20 20 20 20 20 73 65 74 20 72 65 73 75 6c 74 20       set result 
ba40: 24 6d 65 6d 6f 72 79 3b 20 23 20 4e 4f 54 45 3a  $memory; # NOTE:
ba50: 20 52 65 74 75 72 6e 20 6d 65 6d 6f 72 79 20 69   Return memory i
ba60: 6e 2d 75 73 65 20 74 6f 20 6f 75 72 20 63 61 6c  n-use to our cal
ba70: 6c 65 72 2e 0d 0a 0d 0a 20 20 20 20 20 20 69 66  ler.....      if
ba80: 20 7b 21 24 71 75 69 65 74 7d 20 74 68 65 6e 20   {!$quiet} then 
ba90: 7b 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73  {..        tputs
baa0: 20 24 63 68 61 6e 6e 65 6c 20 22 2d 2d 2d 2d 20   $channel "---- 
bab0: 6d 61 78 69 6d 75 6d 20 6d 65 6d 6f 72 79 20 69  maximum memory i
bac0: 6e 20 75 73 65 20 62 79 20 53 51 4c 69 74 65 2e  n use by SQLite.
bad0: 2e 2e 20 22 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d  .. "..      }...
bae0: 0a 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63  .      if {[catc
baf0: 68 20 7b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65  h {object invoke
bb00: 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 6c   -flags +NonPubl
bb10: 69 63 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  ic \..          
bb20: 20 20 20 20 53 79 73 74 65 6d 2e 44 61 74 61 2e      System.Data.
bb30: 53 51 4c 69 74 65 2e 55 6e 73 61 66 65 4e 61 74  SQLite.UnsafeNat
bb40: 69 76 65 4d 65 74 68 6f 64 73 20 5c 0d 0a 20 20  iveMethods \..  
bb50: 20 20 20 20 20 20 20 20 20 20 20 20 73 71 6c 69              sqli
bb60: 74 65 33 5f 6d 65 6d 6f 72 79 5f 68 69 67 68 77  te3_memory_highw
bb70: 61 74 65 72 20 30 7d 20 6d 65 6d 6f 72 79 5d 20  ater 0} memory] 
bb80: 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  == 0} then {..  
bb90: 20 20 20 20 20 20 69 66 20 7b 21 24 71 75 69 65        if {!$quie
bba0: 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  t} then {..     
bbb0: 20 20 20 20 20 74 70 75 74 73 20 24 63 68 61 6e       tputs $chan
bbc0: 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20  nel [appendArgs 
bbd0: 24 6d 65 6d 6f 72 79 20 22 20 62 79 74 65 73 5c  $memory " bytes\
bbe0: 6e 22 5d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a  n"]..        }..
bbf0: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a        } else {..
bc00: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..     
bc10: 20 20 20 23 20 4e 4f 54 45 3a 20 4d 61 79 62 65     # NOTE: Maybe
bc20: 20 74 68 65 20 53 51 4c 69 74 65 20 63 6f 72 65   the SQLite core
bc30: 20 6c 69 62 72 61 72 79 20 69 73 20 75 6e 61 76   library is unav
bc40: 61 69 6c 61 62 6c 65 3f 0d 0a 20 20 20 20 20 20  ailable?..      
bc50: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 73 65 74    #..        set
bc60: 20 6d 65 6d 6f 72 79 20 75 6e 6b 6e 6f 77 6e 0d   memory unknown.
bc70: 0a 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 21  ...        if {!
bc80: 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a  $quiet} then {..
bc90: 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20            tputs 
bca0: 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64  $channel [append
bcb0: 41 72 67 73 20 24 6d 65 6d 6f 72 79 20 5c 6e 5d  Args $memory \n]
bcc0: 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20  ..        }..   
bcd0: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 69 66     }....      if
bce0: 20 7b 24 63 6f 6c 6c 65 63 74 7d 20 74 68 65 6e   {$collect} then
bcf0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 63 6f 6c 6c   {..        coll
bd00: 65 63 74 47 61 72 62 61 67 65 20 24 63 68 61 6e  ectGarbage $chan
bd10: 6e 65 6c 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a  nel..      }....
bd20: 20 20 20 20 20 20 69 66 20 7b 21 24 71 75 69 65        if {!$quie
bd30: 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  t} then {..     
bd40: 20 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65     tputs $channe
bd50: 6c 20 22 2d 2d 2d 2d 20 63 75 72 72 65 6e 74 20  l "---- current 
bd60: 6d 65 6d 6f 72 79 20 69 6e 20 75 73 65 20 62 79  memory in use by
bd70: 20 74 68 65 20 43 4c 52 2e 2e 2e 20 22 0d 0a 20   the CLR... ".. 
bd80: 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20       }....      
bd90: 69 66 20 7b 5b 63 61 74 63 68 20 7b 6f 62 6a 65  if {[catch {obje
bda0: 63 74 20 69 6e 76 6f 6b 65 20 47 43 20 47 65 74  ct invoke GC Get
bdb0: 54 6f 74 61 6c 4d 65 6d 6f 72 79 20 66 61 6c 73  TotalMemory fals
bdc0: 65 7d 20 6d 65 6d 6f 72 79 5d 20 3d 3d 20 30 7d  e} memory] == 0}
bdd0: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20   then {..       
bde0: 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 69 73 20   if {[string is 
bdf0: 69 6e 74 65 67 65 72 20 2d 73 74 72 69 63 74 20  integer -strict 
be00: 24 6d 65 6d 6f 72 79 5d 7d 20 74 68 65 6e 20 7b  $memory]} then {
be10: 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7b  ..          if {
be20: 21 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d  !$quiet} then {.
be30: 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 70 75  .            tpu
be40: 74 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70  ts $channel [app
be50: 65 6e 64 41 72 67 73 20 24 6d 65 6d 6f 72 79 20  endArgs $memory 
be60: 22 20 62 79 74 65 73 5c 6e 22 5d 0d 0a 20 20 20  " bytes\n"]..   
be70: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20         }..      
be80: 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20    } else {..    
be90: 20 20 20 20 20 20 73 65 74 20 6d 65 6d 6f 72 79        set memory
bea0: 20 69 6e 76 61 6c 69 64 0d 0a 0d 0a 20 20 20 20   invalid....    
beb0: 20 20 20 20 20 20 69 66 20 7b 21 24 71 75 69 65        if {!$quie
bec0: 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  t} then {..     
bed0: 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68         tputs $ch
bee0: 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67  annel [appendArg
bef0: 73 20 24 6d 65 6d 6f 72 79 20 5c 6e 5d 0d 0a 20  s $memory \n].. 
bf00: 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20           }..    
bf10: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 20 65      }..      } e
bf20: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 73  lse {..        s
bf30: 65 74 20 6d 65 6d 6f 72 79 20 75 6e 6b 6e 6f 77  et memory unknow
bf40: 6e 0d 0a 0d 0a 20 20 20 20 20 20 20 20 69 66 20  n....        if 
bf50: 7b 21 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b  {!$quiet} then {
bf60: 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70 75 74  ..          tput
bf70: 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65  s $channel [appe
bf80: 6e 64 41 72 67 73 20 24 6d 65 6d 6f 72 79 20 5c  ndArgs $memory \
bf90: 6e 5d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20  n]..        }.. 
bfa0: 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20       }....      
bfb0: 72 65 74 75 72 6e 20 24 72 65 73 75 6c 74 0d 0a  return $result..
bfc0: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72      }.....    pr
bfd0: 6f 63 20 63 68 65 63 6b 46 6f 72 53 51 4c 69 74  oc checkForSQLit
bfe0: 65 44 69 72 65 63 74 6f 72 69 65 73 20 7b 20 63  eDirectories { c
bff0: 68 61 6e 6e 65 6c 20 7b 72 65 73 65 74 20 66 61  hannel {reset fa
c000: 6c 73 65 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 20  lse} } {..      
c010: 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a  #..      # NOTE:
c020: 20 43 68 65 63 6b 20 69 66 20 74 68 65 20 73 71   Check if the sq
c030: 6c 69 74 65 33 5f 77 69 6e 33 32 5f 73 65 74 5f  lite3_win32_set_
c040: 64 69 72 65 63 74 6f 72 79 20 66 75 6e 63 74 69  directory functi
c050: 6f 6e 20 69 73 20 61 76 61 69 6c 61 62 6c 65 2e  on is available.
c060: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20  ..      #..     
c070: 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20   tputs $channel 
c080: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 22 2d 2d  \..          "--
c090: 2d 2d 20 63 68 65 63 6b 69 6e 67 20 66 6f 72 20  -- checking for 
c0a0: 66 75 6e 63 74 69 6f 6e 20 73 71 6c 69 74 65 33  function sqlite3
c0b0: 5f 77 69 6e 33 32 5f 73 65 74 5f 64 69 72 65 63  _win32_set_direc
c0c0: 74 6f 72 79 2e 2e 2e 20 22 0d 0a 0d 0a 20 20 20  tory... "....   
c0d0: 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f     #..      # NO
c0e0: 54 45 3a 20 54 68 69 73 20 63 61 6c 6c 20 74 6f  TE: This call to
c0f0: 20 74 68 65 20 73 71 6c 69 74 65 33 5f 77 69 6e   the sqlite3_win
c100: 33 32 5f 73 65 74 5f 64 69 72 65 63 74 6f 72 79  32_set_directory
c110: 20 66 75 6e 63 74 69 6f 6e 20 75 73 65 73 20 74   function uses t
c120: 68 65 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20  he..      #     
c130: 20 20 69 6e 76 61 6c 69 64 20 76 61 6c 75 65 20    invalid value 
c140: 30 20 66 6f 72 20 74 68 65 20 66 69 72 73 74 20  0 for the first 
c150: 61 72 67 75 6d 65 6e 74 2e 20 20 54 68 69 73 20  argument.  This 
c160: 63 6f 64 65 20 69 73 20 64 65 73 69 67 6e 65 64  code is designed
c170: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20  ..      #       
c180: 74 6f 20 63 68 65 63 6b 20 69 66 20 63 61 6c 6c  to check if call
c190: 69 6e 67 20 74 68 65 20 66 75 6e 63 74 69 6f 6e  ing the function
c1a0: 20 77 69 6c 6c 20 72 61 69 73 65 20 61 6e 20 65   will raise an e
c1b0: 78 63 65 70 74 69 6f 6e 20 28 69 2e 65 2e 0d 0a  xception (i.e...
c1c0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 74 68        #       th
c1d0: 65 20 61 63 74 75 61 6c 20 72 65 73 75 6c 74 20  e actual result 
c1e0: 6f 66 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20  of the function 
c1f0: 64 6f 65 73 20 6e 6f 74 20 6d 61 74 74 65 72 20  does not matter 
c200: 61 73 20 6c 6f 6e 67 20 61 73 20 6e 6f 0d 0a 20  as long as no.. 
c210: 20 20 20 20 20 23 20 20 20 20 20 20 20 64 69 72       #       dir
c220: 65 63 74 6f 72 79 20 69 73 20 63 68 61 6e 67 65  ectory is change
c230: 64 29 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  d)...      #..  
c240: 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b      if {[catch {
c250: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
c260: 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d 66  object invoke -f
c270: 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 20  lags +NonPublic 
c280: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  \..             
c290: 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c   System.Data.SQL
c2a0: 69 74 65 2e 55 6e 73 61 66 65 4e 61 74 69 76 65  ite.UnsafeNative
c2b0: 4d 65 74 68 6f 64 73 20 5c 0d 0a 20 20 20 20 20  Methods \..     
c2c0: 20 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 33           sqlite3
c2d0: 5f 77 69 6e 33 32 5f 73 65 74 5f 64 69 72 65 63  _win32_set_direc
c2e0: 74 6f 72 79 20 30 20 6e 75 6c 6c 7d 5d 20 3d 3d  tory 0 null}] ==
c2f0: 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20   0} then {..    
c300: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23      #..        #
c310: 20 4e 4f 54 45 3a 20 43 61 6c 6c 69 6e 67 20 74   NOTE: Calling t
c320: 68 65 20 73 71 6c 69 74 65 33 5f 77 69 6e 33 32  he sqlite3_win32
c330: 5f 73 65 74 5f 64 69 72 65 63 74 6f 72 79 20 66  _set_directory f
c340: 75 6e 63 74 69 6f 6e 20 64 6f 65 73 20 6e 6f 74  unction does not
c350: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20  ..        #     
c360: 20 20 63 61 75 73 65 20 61 6e 20 65 78 63 65 70    cause an excep
c370: 74 69 6f 6e 3b 20 74 68 65 72 65 66 6f 72 65 2c  tion; therefore,
c380: 20 69 74 20 6d 75 73 74 20 62 65 20 61 76 61 69   it must be avai
c390: 6c 61 62 6c 65 20 28 69 2e 65 2e 0d 0a 20 20 20  lable (i.e...   
c3a0: 20 20 20 20 20 23 20 20 20 20 20 20 20 65 76 65       #       eve
c3b0: 6e 20 74 68 6f 75 67 68 20 69 74 20 73 68 6f 75  n though it shou
c3c0: 6c 64 20 72 65 74 75 72 6e 20 61 20 66 61 69 6c  ld return a fail
c3d0: 75 72 65 20 72 65 74 75 72 6e 20 63 6f 64 65 20  ure return code 
c3e0: 69 6e 20 74 68 69 73 0d 0a 20 20 20 20 20 20 20  in this..       
c3f0: 20 23 20 20 20 20 20 20 20 63 61 73 65 29 2e 0d   #       case)..
c400: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20  .        #..    
c410: 20 20 20 20 61 64 64 43 6f 6e 73 74 72 61 69 6e      addConstrain
c420: 74 20 73 71 6c 69 74 65 33 5f 77 69 6e 33 32 5f  t sqlite3_win32_
c430: 73 65 74 5f 64 69 72 65 63 74 6f 72 79 0d 0a 0d  set_directory...
c440: 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24  .        tputs $
c450: 63 68 61 6e 6e 65 6c 20 79 65 73 5c 6e 0d 0a 0d  channel yes\n...
c460: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20  .        #..    
c470: 20 20 20 20 23 20 4e 4f 54 45 3a 20 44 6f 65 73      # NOTE: Does
c480: 20 6f 75 72 20 63 61 6c 6c 65 72 20 77 61 6e 74   our caller want
c490: 20 74 6f 20 72 65 73 65 74 20 74 68 65 20 64 69   to reset the di
c4a0: 72 65 63 74 6f 72 69 65 73 3f 0d 0a 20 20 20 20  rectories?..    
c4b0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 69      #..        i
c4c0: 66 20 7b 24 72 65 73 65 74 7d 20 74 68 65 6e 20  f {$reset} then 
c4d0: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a  {..          #..
c4e0: 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45            # NOTE
c4f0: 3a 20 4e 6f 77 20 6d 61 6b 65 20 73 75 72 65 20  : Now make sure 
c500: 74 68 65 20 64 61 74 61 62 61 73 65 20 61 6e 64  the database and
c510: 20 74 65 6d 70 6f 72 61 72 79 20 64 69 72 65 63   temporary direc
c520: 74 6f 72 69 65 73 20 61 72 65 0d 0a 20 20 20 20  tories are..    
c530: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 72 65        #       re
c540: 73 65 74 20 74 68 65 69 72 20 64 65 66 61 75 6c  set their defaul
c550: 74 20 76 61 6c 75 65 73 2c 20 77 68 69 63 68 20  t values, which 
c560: 73 68 6f 75 6c 64 20 62 65 20 6e 75 6c 6c 20 66  should be null f
c570: 6f 72 20 62 6f 74 68 2e 0d 0a 20 20 20 20 20 20  or both...      
c580: 20 20 20 20 23 20 20 20 20 20 20 20 53 69 6e 63      #       Sinc
c590: 65 20 74 68 65 20 73 71 6c 69 74 65 33 5f 77 69  e the sqlite3_wi
c5a0: 6e 33 32 5f 73 65 74 5f 64 69 72 65 63 74 6f 72  n32_set_director
c5b0: 79 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 61 76  y function is av
c5c0: 61 69 6c 61 62 6c 65 2c 0d 0a 20 20 20 20 20 20  ailable,..      
c5d0: 20 20 20 20 23 20 20 20 20 20 20 20 75 73 65 20      #       use 
c5e0: 69 74 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23  it...          #
c5f0: 0d 0a 20 20 20 20 20 20 20 20 20 20 66 6f 72 20  ..          for 
c600: 7b 73 65 74 20 69 6e 64 65 78 20 31 7d 20 7b 24  {set index 1} {$
c610: 69 6e 64 65 78 20 3c 20 33 7d 20 7b 69 6e 63 72  index < 3} {incr
c620: 20 69 6e 64 65 78 7d 20 7b 0d 0a 20 20 20 20 20   index} {..     
c630: 20 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63         if {[catc
c640: 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20  h {..           
c650: 20 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74 20           object 
c660: 69 6e 76 6f 6b 65 20 2d 66 6c 61 67 73 20 2b 4e  invoke -flags +N
c670: 6f 6e 50 75 62 6c 69 63 20 5c 0d 0a 20 20 20 20  onPublic \..    
c680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
c690: 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69  System.Data.SQLi
c6a0: 74 65 2e 55 6e 73 61 66 65 4e 61 74 69 76 65 4d  te.UnsafeNativeM
c6b0: 65 74 68 6f 64 73 20 5c 0d 0a 20 20 20 20 20 20  ethods \..      
c6c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 71                sq
c6d0: 6c 69 74 65 33 5f 77 69 6e 33 32 5f 73 65 74 5f  lite3_win32_set_
c6e0: 64 69 72 65 63 74 6f 72 79 20 24 69 6e 64 65 78  directory $index
c6f0: 20 6e 75 6c 6c 7d 20 5c 0d 0a 20 20 20 20 20 20   null} \..      
c700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65                re
c710: 73 75 6c 74 5d 20 3d 3d 20 30 7d 20 74 68 65 6e  sult] == 0} then
c720: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..            
c730: 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c    tputs $channel
c740: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a   [appendArgs \..
c750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
c760: 20 20 22 2d 2d 2d 2d 20 63 61 6c 6c 20 73 71 6c    "---- call sql
c770: 69 74 65 33 5f 77 69 6e 33 32 5f 73 65 74 5f 64  ite3_win32_set_d
c780: 69 72 65 63 74 6f 72 79 28 22 20 24 69 6e 64 65  irectory(" $inde
c790: 78 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20  x \..           
c7a0: 20 20 20 20 20 20 20 22 2c 20 6e 75 6c 6c 29 2e         ", null).
c7b0: 2e 2e 20 6f 6b 3a 20 22 20 24 72 65 73 75 6c 74  .. ok: " $result
c7c0: 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 20 20   \n]..          
c7d0: 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20    } else {..    
c7e0: 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20            tputs 
c7f0: 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64  $channel [append
c800: 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20  Args \..        
c810: 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20            "---- 
c820: 63 61 6c 6c 20 73 71 6c 69 74 65 33 5f 77 69 6e  call sqlite3_win
c830: 33 32 5f 73 65 74 5f 64 69 72 65 63 74 6f 72 79  32_set_directory
c840: 28 22 20 24 69 6e 64 65 78 20 5c 0d 0a 20 20 20  (" $index \..   
c850: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22                 "
c860: 2c 20 6e 75 6c 6c 29 2e 2e 2e 20 65 72 72 6f 72  , null)... error
c870: 3a 20 22 20 5c 6e 5c 74 20 24 72 65 73 75 6c 74  : " \n\t $result
c880: 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 20 20   \n]..          
c890: 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 7d    }..          }
c8a0: 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20  ..        }..   
c8b0: 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20     } else {..   
c8c0: 20 20 20 20 20 74 70 75 74 73 20 24 63 68 61 6e       tputs $chan
c8d0: 6e 65 6c 20 6e 6f 5c 6e 0d 0a 0d 0a 20 20 20 20  nel no\n....    
c8e0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23      #..        #
c8f0: 20 4e 4f 54 45 3a 20 44 6f 65 73 20 6f 75 72 20   NOTE: Does our 
c900: 63 61 6c 6c 65 72 20 77 61 6e 74 20 74 6f 20 72  caller want to r
c910: 65 73 65 74 20 74 68 65 20 64 69 72 65 63 74 6f  eset the directo
c920: 72 69 65 73 3f 20 20 54 68 69 73 20 63 61 6e 20  ries?  This can 
c930: 6f 6e 6c 79 0d 0a 20 20 20 20 20 20 20 20 23 20  only..        # 
c940: 20 20 20 20 20 20 62 65 20 70 65 72 66 6f 72 6d        be perform
c950: 65 64 20 69 66 20 53 51 4c 69 74 65 20 69 73 20  ed if SQLite is 
c960: 6c 6f 61 64 65 64 20 61 6e 64 20 72 65 61 64 79  loaded and ready
c970: 20 66 6f 72 20 75 73 65 20 62 79 20 74 68 65 20   for use by the 
c980: 74 65 73 74 0d 0a 20 20 20 20 20 20 20 20 23 20  test..        # 
c990: 20 20 20 20 20 20 73 75 69 74 65 2e 0d 0a 20 20        suite...  
c9a0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
c9b0: 20 69 66 20 7b 24 72 65 73 65 74 20 26 26 20 5b   if {$reset && [
c9c0: 69 73 53 51 4c 69 74 65 52 65 61 64 79 5d 7d 20  isSQLiteReady]} 
c9d0: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20  then {..        
c9e0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23    #..          #
c9f0: 20 4e 4f 54 45 3a 20 4e 6f 77 20 6d 61 6b 65 20   NOTE: Now make 
ca00: 73 75 72 65 20 74 68 65 20 64 61 74 61 62 61 73  sure the databas
ca10: 65 20 61 6e 64 20 74 65 6d 70 6f 72 61 72 79 20  e and temporary 
ca20: 64 69 72 65 63 74 6f 72 69 65 73 20 61 72 65 0d  directories are.
ca30: 0a 20 20 20 20 20 20 20 20 20 20 23 20 20 20 20  .          #    
ca40: 20 20 20 72 65 73 65 74 20 74 68 65 69 72 20 64     reset their d
ca50: 65 66 61 75 6c 74 20 76 61 6c 75 65 73 2c 20 77  efault values, w
ca60: 68 69 63 68 20 73 68 6f 75 6c 64 20 62 65 20 6e  hich should be n
ca70: 75 6c 6c 20 66 6f 72 20 62 6f 74 68 2e 0d 0a 20  ull for both... 
ca80: 20 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20           #      
ca90: 20 53 69 6e 63 65 20 74 68 65 20 73 71 6c 69 74   Since the sqlit
caa0: 65 33 5f 77 69 6e 33 32 5f 73 65 74 5f 64 69 72  e3_win32_set_dir
cab0: 65 63 74 6f 72 79 20 66 75 6e 63 74 69 6f 6e 20  ectory function 
cac0: 64 6f 65 73 20 6e 6f 74 0d 0a 20 20 20 20 20 20  does not..      
cad0: 20 20 20 20 23 20 20 20 20 20 20 20 61 70 70 65      #       appe
cae0: 61 72 20 74 6f 20 62 65 20 61 76 61 69 6c 61 62  ar to be availab
caf0: 6c 65 2c 20 75 73 65 20 74 68 65 20 61 73 73 6f  le, use the asso
cb00: 63 69 61 74 65 64 20 50 52 41 47 4d 41 20 63 6f  ciated PRAGMA co
cb10: 6d 6d 61 6e 64 73 0d 0a 20 20 20 20 20 20 20 20  mmands..        
cb20: 20 20 23 20 20 20 20 20 20 20 69 6e 73 74 65 61    #       instea
cb30: 64 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d  d...          #.
cb40: 0a 20 20 20 20 20 20 20 20 20 20 66 6f 72 65 61  .          forea
cb50: 63 68 20 64 69 72 65 63 74 6f 72 79 20 5b 6c 69  ch directory [li
cb60: 73 74 20 64 61 74 61 5f 73 74 6f 72 65 5f 64 69  st data_store_di
cb70: 72 65 63 74 6f 72 79 20 74 65 6d 70 5f 73 74 6f  rectory temp_sto
cb80: 72 65 5f 64 69 72 65 63 74 6f 72 79 5d 20 7b 0d  re_directory] {.
cb90: 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74  .            set
cba0: 20 73 71 6c 20 5b 61 70 70 65 6e 64 41 72 67 73   sql [appendArgs
cbb0: 20 22 50 52 41 47 4d 41 20 22 20 24 64 69 72 65   "PRAGMA " $dire
cbc0: 63 74 6f 72 79 20 22 20 3d 20 5c 22 5c 22 3b 22  ctory " = \"\";"
cbd0: 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20  ]....           
cbe0: 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 65 78 65   if {[catch {exe
cbf0: 63 75 74 65 53 71 6c 20 24 73 71 6c 7d 20 72 65  cuteSql $sql} re
cc00: 73 75 6c 74 5d 20 3d 3d 20 30 7d 20 74 68 65 6e  sult] == 0} then
cc10: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..            
cc20: 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c    tputs $channel
cc30: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a   [appendArgs \..
cc40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
cc50: 20 20 22 2d 2d 2d 2d 20 65 78 65 63 75 74 65 20    "---- execute 
cc60: 50 52 41 47 4d 41 20 22 20 24 64 69 72 65 63 74  PRAGMA " $direct
cc70: 6f 72 79 20 22 2e 2e 2e 20 6f 6b 3a 20 5c 22 22  ory "... ok: \""
cc80: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   \..            
cc90: 20 20 20 20 20 20 24 72 65 73 75 6c 74 20 5c 22        $result \"
cca0: 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 20  \n]..           
ccb0: 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20   } else {..     
ccc0: 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24           tputs $
ccd0: 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41  channel [appendA
cce0: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  rgs \..         
ccf0: 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 65           "---- e
cd00: 78 65 63 75 74 65 20 50 52 41 47 4d 41 20 22 20  xecute PRAGMA " 
cd10: 24 64 69 72 65 63 74 6f 72 79 20 22 2e 2e 2e 20  $directory "... 
cd20: 65 72 72 6f 72 3a 20 22 20 5c 0d 0a 20 20 20 20  error: " \..    
cd30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 6e                \n
cd40: 5c 74 20 24 72 65 73 75 6c 74 20 5c 6e 5d 0d 0a  \t $result \n]..
cd50: 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20              }.. 
cd60: 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20           }..    
cd70: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a      }..      }..
cd80: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20  ..      #..     
cd90: 20 23 20 4e 4f 54 45 3a 20 46 69 6e 61 6c 6c 79   # NOTE: Finally
cda0: 2c 20 73 68 6f 77 20 74 68 65 20 63 75 72 72 65  , show the curre
cdb0: 6e 74 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20  nt value of the 
cdc0: 64 61 74 61 62 61 73 65 20 61 6e 64 20 74 65 6d  database and tem
cdd0: 70 6f 72 61 72 79 0d 0a 20 20 20 20 20 20 23 20  porary..      # 
cde0: 20 20 20 20 20 20 64 69 72 65 63 74 6f 72 69 65        directorie
cdf0: 73 2e 20 20 54 68 69 73 20 63 61 6e 20 6f 6e 6c  s.  This can onl
ce00: 79 20 62 65 20 70 65 72 66 6f 72 6d 65 64 20 69  y be performed i
ce10: 66 20 53 51 4c 69 74 65 20 69 73 20 6c 6f 61 64  f SQLite is load
ce20: 65 64 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20  ed..      #     
ce30: 20 20 61 6e 64 20 72 65 61 64 79 20 66 6f 72 20    and ready for 
ce40: 75 73 65 20 62 79 20 74 68 65 20 74 65 73 74 20  use by the test 
ce50: 73 75 69 74 65 2e 0d 0a 20 20 20 20 20 20 23 0d  suite...      #.
ce60: 0a 20 20 20 20 20 20 69 66 20 7b 5b 69 73 53 51  .      if {[isSQ
ce70: 4c 69 74 65 52 65 61 64 79 5d 7d 20 74 68 65 6e  LiteReady]} then
ce80: 20 7b 0d 0a 20 20 20 20 20 20 20 20 66 6f 72 65   {..        fore
ce90: 61 63 68 20 64 69 72 65 63 74 6f 72 79 20 5b 6c  ach directory [l
cea0: 69 73 74 20 64 61 74 61 5f 73 74 6f 72 65 5f 64  ist data_store_d
ceb0: 69 72 65 63 74 6f 72 79 20 74 65 6d 70 5f 73 74  irectory temp_st
cec0: 6f 72 65 5f 64 69 72 65 63 74 6f 72 79 5d 20 7b  ore_directory] {
ced0: 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70 75 74  ..          tput
cee0: 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65  s $channel [appe
cef0: 6e 64 41 72 67 73 20 22 2d 2d 2d 2d 20 63 68 65  ndArgs "---- che
cf00: 63 6b 69 6e 67 20 22 20 24 64 69 72 65 63 74 6f  cking " $directo
cf10: 72 79 20 22 2e 2e 2e 20 22 5d 0d 0a 0d 0a 20 20  ry "... "]....  
cf20: 20 20 20 20 20 20 20 20 73 65 74 20 73 71 6c 20          set sql 
cf30: 5b 61 70 70 65 6e 64 41 72 67 73 20 22 50 52 41  [appendArgs "PRA
cf40: 47 4d 41 20 22 20 24 64 69 72 65 63 74 6f 72 79  GMA " $directory
cf50: 20 5c 3b 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20   \;]....        
cf60: 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 65 78    if {[catch {ex
cf70: 65 63 75 74 65 53 71 6c 20 24 73 71 6c 20 73 63  ecuteSql $sql sc
cf80: 61 6c 61 72 7d 20 72 65 73 75 6c 74 5d 20 3d 3d  alar} result] ==
cf90: 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20   0} then {..    
cfa0: 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63          tputs $c
cfb0: 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72  hannel [appendAr
cfc0: 67 73 20 22 6f 6b 3a 20 5c 22 22 20 24 72 65 73  gs "ok: \"" $res
cfd0: 75 6c 74 20 5c 22 5c 6e 5d 0d 0a 20 20 20 20 20  ult \"\n]..     
cfe0: 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20       } else {.. 
cff0: 20 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73             tputs
d000: 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e   $channel [appen
d010: 64 41 72 67 73 20 22 65 72 72 6f 72 3a 20 22 20  dArgs "error: " 
d020: 5c 6e 5c 74 20 24 72 65 73 75 6c 74 20 5c 6e 5d  \n\t $result \n]
d030: 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20  ..          }.. 
d040: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20         }..      
d050: 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20  }..    }.....   
d060: 20 70 72 6f 63 20 6c 6f 61 64 53 51 4c 69 74 65   proc loadSQLite
d070: 54 65 73 74 53 65 74 74 69 6e 67 73 20 7b 20 63  TestSettings { c
d080: 68 61 6e 6e 65 6c 20 7b 73 75 66 66 69 78 20 22  hannel {suffix "
d090: 22 7d 20 7b 71 75 69 65 74 20 66 61 6c 73 65 7d  "} {quiet false}
d0a0: 20 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20   } {..      #.. 
d0b0: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 6b 69       # NOTE: Ski
d0c0: 70 20 6c 6f 61 64 69 6e 67 20 74 68 65 20 73 65  p loading the se
d0d0: 74 74 69 6e 67 73 20 69 66 20 74 68 65 69 72 20  ttings if their 
d0e0: 75 73 61 67 65 20 68 61 73 20 62 65 65 6e 20 64  usage has been d
d0f0: 69 73 61 62 6c 65 64 2e 0d 0a 20 20 20 20 20 20  isabled...      
d100: 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 21 5b 69  #..      if {![i
d110: 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 6e 6f 28  nfo exists ::no(
d120: 73 71 6c 69 74 65 54 65 73 74 53 65 74 74 69 6e  sqliteTestSettin
d130: 67 73 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  gs)]} then {..  
d140: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
d150: 20 23 20 4e 4f 54 45 3a 20 4c 6f 61 64 20 63 75   # NOTE: Load cu
d160: 73 74 6f 6d 20 70 65 72 2d 75 73 65 72 20 61 6e  stom per-user an
d170: 64 2f 6f 72 20 70 65 72 2d 68 6f 73 74 20 74 65  d/or per-host te
d180: 73 74 20 73 65 74 74 69 6e 67 73 20 6e 6f 77 2e  st settings now.
d190: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20  ..        #..   
d1a0: 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65       if {[info e
d1b0: 78 69 73 74 73 20 3a 3a 74 63 6c 5f 70 6c 61 74  xists ::tcl_plat
d1c0: 66 6f 72 6d 28 75 73 65 72 29 5d 7d 20 74 68 65  form(user)]} the
d1d0: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 73  n {..          s
d1e0: 65 74 20 75 73 65 72 53 65 74 74 69 6e 67 73 46  et userSettingsF
d1f0: 69 6c 65 4e 61 6d 65 20 5b 66 69 6c 65 20 6a 6f  ileName [file jo
d200: 69 6e 20 5b 67 65 74 43 6f 6d 6d 6f 6e 44 69 72  in [getCommonDir
d210: 65 63 74 6f 72 79 5d 20 5c 0d 0a 20 20 20 20 20  ectory] \..     
d220: 20 20 20 20 20 20 20 20 20 5b 61 70 70 65 6e 64           [append
d230: 41 72 67 73 20 73 65 74 74 69 6e 67 73 20 24 73  Args settings $s
d240: 75 66 66 69 78 20 2e 20 24 3a 3a 74 63 6c 5f 70  uffix . $::tcl_p
d250: 6c 61 74 66 6f 72 6d 28 75 73 65 72 29 20 2e 65  latform(user) .e
d260: 61 67 6c 65 5d 5d 0d 0a 0d 0a 20 20 20 20 20 20  agle]]....      
d270: 20 20 20 20 69 66 20 7b 5b 66 69 6c 65 20 65 78      if {[file ex
d280: 69 73 74 73 20 24 75 73 65 72 53 65 74 74 69 6e  ists $userSettin
d290: 67 73 46 69 6c 65 4e 61 6d 65 5d 7d 20 74 68 65  gsFileName]} the
d2a0: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20  n {..           
d2b0: 20 69 66 20 7b 21 24 71 75 69 65 74 7d 20 74 68   if {!$quiet} th
d2c0: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20  en {..          
d2d0: 20 20 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e      tputs $chann
d2e0: 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c  el [appendArgs \
d2f0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
d300: 20 20 20 20 22 2d 2d 2d 2d 20 6c 6f 61 64 69 6e      "---- loadin
d310: 67 20 70 65 72 2d 75 73 65 72 20 74 65 73 74 20  g per-user test 
d320: 73 65 74 74 69 6e 67 73 20 66 69 6c 65 20 5c 22  settings file \"
d330: 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20  " \..           
d340: 20 20 20 20 20 20 20 24 75 73 65 72 53 65 74 74         $userSett
d350: 69 6e 67 73 46 69 6c 65 4e 61 6d 65 20 5c 22 2e  ingsFileName \".
d360: 2e 2e 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 20  ..\n]..         
d370: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20     }....        
d380: 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b      if {[catch {
d390: 75 70 6c 65 76 65 6c 20 31 20 5b 6c 69 73 74 20  uplevel 1 [list 
d3a0: 73 6f 75 72 63 65 20 24 75 73 65 72 53 65 74 74  source $userSett
d3b0: 69 6e 67 73 46 69 6c 65 4e 61 6d 65 5d 7d 20 5c  ingsFileName]} \
d3c0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
d3d0: 20 20 20 20 20 20 65 72 72 6f 72 5d 7d 20 74 68        error]} th
d3e0: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20  en {..          
d3f0: 20 20 20 20 69 66 20 7b 21 24 71 75 69 65 74 7d      if {!$quiet}
d400: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20   then {..       
d410: 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24           tputs $
d420: 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41  channel [appendA
d430: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  rgs \..         
d440: 20 20 20 20 20 20 20 20 20 20 20 22 3d 3d 3d 3d             "====
d450: 20 57 41 52 4e 49 4e 47 3a 20 66 61 69 6c 65 64   WARNING: failed
d460: 20 74 6f 20 6c 6f 61 64 20 70 65 72 2d 75 73 65   to load per-use
d470: 72 20 73 65 74 74 69 6e 67 73 20 66 69 6c 65 20  r settings file 
d480: 5c 22 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  \"" \..         
d490: 20 20 20 20 20 20 20 20 20 20 20 24 75 73 65 72             $user
d4a0: 53 65 74 74 69 6e 67 73 46 69 6c 65 4e 61 6d 65  SettingsFileName
d4b0: 20 22 5c 22 2c 20 65 72 72 6f 72 3a 20 22 20 5c   "\", error: " \
d4c0: 6e 5c 74 20 24 65 72 72 6f 72 20 5c 6e 5d 0d 0a  n\t $error \n]..
d4d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d                }.
d4e0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a  .            }..
d4f0: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20            }..   
d500: 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20       }....      
d510: 20 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23    ##############
d520: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
d530: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
d540: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
d550: 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 20  #########....   
d560: 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65       if {[info e
d570: 78 69 73 74 73 20 3a 3a 74 63 6c 5f 70 6c 61 74  xists ::tcl_plat
d580: 66 6f 72 6d 28 68 6f 73 74 29 5d 7d 20 74 68 65  form(host)]} the
d590: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 73  n {..          s
d5a0: 65 74 20 68 6f 73 74 53 65 74 74 69 6e 67 73 46  et hostSettingsF
d5b0: 69 6c 65 4e 61 6d 65 20 5b 66 69 6c 65 20 6a 6f  ileName [file jo
d5c0: 69 6e 20 5b 67 65 74 43 6f 6d 6d 6f 6e 44 69 72  in [getCommonDir
d5d0: 65 63 74 6f 72 79 5d 20 5c 0d 0a 20 20 20 20 20  ectory] \..     
d5e0: 20 20 20 20 20 20 20 20 20 5b 61 70 70 65 6e 64           [append
d5f0: 41 72 67 73 20 73 65 74 74 69 6e 67 73 20 24 73  Args settings $s
d600: 75 66 66 69 78 20 2e 20 24 3a 3a 74 63 6c 5f 70  uffix . $::tcl_p
d610: 6c 61 74 66 6f 72 6d 28 68 6f 73 74 29 20 2e 65  latform(host) .e
d620: 61 67 6c 65 5d 5d 0d 0a 0d 0a 20 20 20 20 20 20  agle]]....      
d630: 20 20 20 20 69 66 20 7b 5b 66 69 6c 65 20 65 78      if {[file ex
d640: 69 73 74 73 20 24 68 6f 73 74 53 65 74 74 69 6e  ists $hostSettin
d650: 67 73 46 69 6c 65 4e 61 6d 65 5d 7d 20 74 68 65  gsFileName]} the
d660: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20  n {..           
d670: 20 69 66 20 7b 21 24 71 75 69 65 74 7d 20 74 68   if {!$quiet} th
d680: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20  en {..          
d690: 20 20 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e      tputs $chann
d6a0: 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c  el [appendArgs \
d6b0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
d6c0: 20 20 20 20 22 2d 2d 2d 2d 20 6c 6f 61 64 69 6e      "---- loadin
d6d0: 67 20 70 65 72 2d 68 6f 73 74 20 74 65 73 74 20  g per-host test 
d6e0: 73 65 74 74 69 6e 67 73 20 66 69 6c 65 20 5c 22  settings file \"
d6f0: 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20  " \..           
d700: 20 20 20 20 20 20 20 24 68 6f 73 74 53 65 74 74         $hostSett
d710: 69 6e 67 73 46 69 6c 65 4e 61 6d 65 20 5c 22 2e  ingsFileName \".
d720: 2e 2e 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 20  ..\n]..         
d730: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20     }....        
d740: 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b      if {[catch {
d750: 75 70 6c 65 76 65 6c 20 31 20 5b 6c 69 73 74 20  uplevel 1 [list 
d760: 73 6f 75 72 63 65 20 24 68 6f 73 74 53 65 74 74  source $hostSett
d770: 69 6e 67 73 46 69 6c 65 4e 61 6d 65 5d 7d 20 5c  ingsFileName]} \
d780: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
d790: 20 20 20 20 20 20 65 72 72 6f 72 5d 7d 20 74 68        error]} th
d7a0: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20  en {..          
d7b0: 20 20 20 20 69 66 20 7b 21 24 71 75 69 65 74 7d      if {!$quiet}
d7c0: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20   then {..       
d7d0: 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24           tputs $
d7e0: 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41  channel [appendA
d7f0: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  rgs \..         
d800: 20 20 20 20 20 20 20 20 20 20 20 22 3d 3d 3d 3d             "====
d810: 20 57 41 52 4e 49 4e 47 3a 20 66 61 69 6c 65 64   WARNING: failed
d820: 20 74 6f 20 6c 6f 61 64 20 70 65 72 2d 68 6f 73   to load per-hos
d830: 74 20 73 65 74 74 69 6e 67 73 20 66 69 6c 65 20  t settings file 
d840: 5c 22 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  \"" \..         
d850: 20 20 20 20 20 20 20 20 20 20 20 24 68 6f 73 74             $host
d860: 53 65 74 74 69 6e 67 73 46 69 6c 65 4e 61 6d 65  SettingsFileName
d870: 20 22 5c 22 2c 20 65 72 72 6f 72 3a 20 22 20 5c   "\", error: " \
d880: 6e 5c 74 20 24 65 72 72 6f 72 20 5c 6e 5d 0d 0a  n\t $error \n]..
d890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d                }.
d8a0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a  .            }..
d8b0: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20            }..   
d8c0: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d       }..      }.
d8d0: 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70  .    }.....    p
d8e0: 72 6f 63 20 72 75 6e 53 51 4c 69 74 65 54 65 73  roc runSQLiteTes
d8f0: 74 50 72 6f 6c 6f 67 75 65 20 7b 7d 20 7b 0d 0a  tPrologue {} {..
d900: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23        #..      #
d910: 20 4e 4f 54 45 3a 20 53 6b 69 70 20 72 75 6e 6e   NOTE: Skip runn
d920: 69 6e 67 20 6f 75 72 20 63 75 73 74 6f 6d 20 70  ing our custom p
d930: 72 6f 6c 6f 67 75 65 20 69 66 20 74 68 65 20 6d  rologue if the m
d940: 61 69 6e 20 6f 6e 65 20 68 61 73 20 62 65 65 6e  ain one has been
d950: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20  ..      #       
d960: 73 6b 69 70 70 65 64 2e 0d 0a 20 20 20 20 20 20  skipped...      
d970: 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 21 5b 69  #..      if {![i
d980: 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 6e 6f 28  nfo exists ::no(
d990: 70 72 6f 6c 6f 67 75 65 2e 65 61 67 6c 65 29 5d  prologue.eagle)]
d9a0: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..      
d9b0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e    #..        # N
d9c0: 4f 54 45 3a 20 4c 6f 61 64 20 74 68 65 20 22 62  OTE: Load the "b
d9d0: 65 66 6f 72 65 2d 63 6f 6e 73 74 72 61 69 6e 74  efore-constraint
d9e0: 73 22 20 63 75 73 74 6f 6d 20 70 65 72 2d 75 73  s" custom per-us
d9f0: 65 72 20 61 6e 64 2f 6f 72 20 70 65 72 2d 68 6f  er and/or per-ho
da00: 73 74 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20  st..        #   
da10: 20 20 20 20 74 65 73 74 20 73 65 74 74 69 6e 67      test setting
da20: 73 20 6e 6f 77 2e 0d 0a 20 20 20 20 20 20 20 20  s now...        
da30: 23 0d 0a 20 20 20 20 20 20 20 20 75 70 6c 65 76  #..        uplev
da40: 65 6c 20 31 20 5b 6c 69 73 74 20 6c 6f 61 64 53  el 1 [list loadS
da50: 51 4c 69 74 65 54 65 73 74 53 65 74 74 69 6e 67  QLiteTestSetting
da60: 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65  s $::test_channe
da70: 6c 20 2e 62 65 66 6f 72 65 5d 0d 0a 0d 0a 20 20  l .before]....  
da80: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
da90: 20 23 20 4e 4f 54 45 3a 20 53 6b 69 70 20 61 6c   # NOTE: Skip al
daa0: 6c 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51  l System.Data.SQ
dab0: 4c 69 74 65 20 72 65 6c 61 74 65 64 20 66 69 6c  Lite related fil
dac0: 65 20 68 61 6e 64 6c 69 6e 67 20 28 64 65 6c 65  e handling (dele
dad0: 74 69 6e 67 2c 0d 0a 20 20 20 20 20 20 20 20 23  ting,..        #
dae0: 20 20 20 20 20 20 20 63 6f 70 79 69 6e 67 2c 20         copying, 
daf0: 61 6e 64 20 6c 6f 61 64 69 6e 67 29 20 69 66 20  and loading) if 
db00: 77 65 20 61 72 65 20 73 6f 20 69 6e 73 74 72 75  we are so instru
db10: 63 74 65 64 2e 0d 0a 20 20 20 20 20 20 20 20 23  cted...        #
db20: 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 21 5b  ..        if {![
db30: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 6e 6f  info exists ::no
db40: 28 73 71 6c 69 74 65 46 69 6c 65 73 29 5d 7d 20  (sqliteFiles)]} 
db50: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20  then {..        
db60: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23    #..          #
db70: 20 4e 4f 54 45 3a 20 53 6b 69 70 20 74 72 79 69   NOTE: Skip tryi
db80: 6e 67 20 74 6f 20 64 65 6c 65 74 65 20 61 6e 79  ng to delete any
db90: 20 66 69 6c 65 73 20 69 66 20 77 65 20 61 72 65   files if we are
dba0: 20 73 6f 20 69 6e 73 74 72 75 63 74 65 64 2e 0d   so instructed..
dbb0: 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20  .          #..  
dbc0: 20 20 20 20 20 20 20 20 69 66 20 7b 21 5b 69 6e          if {![in
dbd0: 66 6f 20 65 78 69 73 74 73 20 3a 3a 6e 6f 28 64  fo exists ::no(d
dbe0: 65 6c 65 74 65 53 71 6c 69 74 65 46 69 6c 65 73  eleteSqliteFiles
dbf0: 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20  )]} then {..    
dc00: 20 20 20 20 20 20 20 20 74 72 79 44 65 6c 65 74          tryDelet
dc10: 65 41 73 73 65 6d 62 6c 79 20 73 71 6c 69 74 65  eAssembly sqlite
dc20: 33 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 20 20 20  3.dll..         
dc30: 20 20 20 72 65 6d 6f 76 65 43 6f 6e 73 74 72 61     removeConstra
dc40: 69 6e 74 20 66 69 6c 65 5f 73 71 6c 69 74 65 33  int file_sqlite3
dc50: 2e 64 6c 6c 0d 0a 0d 0a 20 20 20 20 20 20 20 20  .dll....        
dc60: 20 20 20 20 74 72 79 44 65 6c 65 74 65 41 73 73      tryDeleteAss
dc70: 65 6d 62 6c 79 20 53 51 4c 69 74 65 2e 49 6e 74  embly SQLite.Int
dc80: 65 72 6f 70 2e 64 6c 6c 0d 0a 20 20 20 20 20 20  erop.dll..      
dc90: 20 20 20 20 20 20 72 65 6d 6f 76 65 43 6f 6e 73        removeCons
dca0: 74 72 61 69 6e 74 20 66 69 6c 65 5f 53 51 4c 69  traint file_SQLi
dcb0: 74 65 2e 49 6e 74 65 72 6f 70 2e 64 6c 6c 0d 0a  te.Interop.dll..
dcc0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 72  ..            tr
dcd0: 79 44 65 6c 65 74 65 41 73 73 65 6d 62 6c 79 20  yDeleteAssembly 
dce0: 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69  System.Data.SQLi
dcf0: 74 65 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 20 20  te.dll..        
dd00: 20 20 20 20 72 65 6d 6f 76 65 43 6f 6e 73 74 72      removeConstr
dd10: 61 69 6e 74 20 66 69 6c 65 5f 53 79 73 74 65 6d  aint file_System
dd20: 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 64 6c 6c  .Data.SQLite.dll
dd30: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  ....            
dd40: 74 72 79 44 65 6c 65 74 65 41 73 73 65 6d 62 6c  tryDeleteAssembl
dd50: 79 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51  y System.Data.SQ
dd60: 4c 69 74 65 2e 4c 69 6e 71 2e 64 6c 6c 0d 0a 20  Lite.Linq.dll.. 
dd70: 20 20 20 20 20 20 20 20 20 20 20 72 65 6d 6f 76             remov
dd80: 65 43 6f 6e 73 74 72 61 69 6e 74 20 66 69 6c 65  eConstraint file
dd90: 5f 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c  _System.Data.SQL
dda0: 69 74 65 2e 4c 69 6e 71 2e 64 6c 6c 0d 0a 20 20  ite.Linq.dll..  
ddb0: 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20          }....   
ddc0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..      
ddd0: 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 6b 69 70      # NOTE: Skip
dde0: 20 74 72 79 69 6e 67 20 74 6f 20 63 6f 70 79 20   trying to copy 
ddf0: 61 6e 79 20 66 69 6c 65 73 20 69 66 20 77 65 20  any files if we 
de00: 61 72 65 20 73 6f 20 69 6e 73 74 72 75 63 74 65  are so instructe
de10: 64 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d  d...          #.
de20: 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 21  .          if {!
de30: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 6e  [info exists ::n
de40: 6f 28 63 6f 70 79 53 71 6c 69 74 65 46 69 6c 65  o(copySqliteFile
de50: 73 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  s)]} then {..   
de60: 20 20 20 20 20 20 20 20 20 74 72 79 43 6f 70 79           tryCopy
de70: 41 73 73 65 6d 62 6c 79 20 73 71 6c 69 74 65 33  Assembly sqlite3
de80: 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 20 20 20 20  .dll..          
de90: 20 20 74 72 79 43 6f 70 79 41 73 73 65 6d 62 6c    tryCopyAssembl
dea0: 79 20 53 51 4c 69 74 65 2e 49 6e 74 65 72 6f 70  y SQLite.Interop
deb0: 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 20 20 20 20  .dll..          
dec0: 20 20 74 72 79 43 6f 70 79 41 73 73 65 6d 62 6c    tryCopyAssembl
ded0: 79 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51  y System.Data.SQ
dee0: 4c 69 74 65 2e 64 6c 6c 0d 0a 20 20 20 20 20 20  Lite.dll..      
def0: 20 20 20 20 20 20 74 72 79 43 6f 70 79 41 73 73        tryCopyAss
df00: 65 6d 62 6c 79 20 53 79 73 74 65 6d 2e 44 61 74  embly System.Dat
df10: 61 2e 53 51 4c 69 74 65 2e 4c 69 6e 71 2e 64 6c  a.SQLite.Linq.dl
df20: 6c 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a  l..          }..
df30: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20  ..          #.. 
df40: 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a           # NOTE:
df50: 20 53 6b 69 70 20 74 72 79 69 6e 67 20 74 6f 20   Skip trying to 
df60: 6c 6f 61 64 20 61 6e 79 20 66 69 6c 65 73 20 69  load any files i
df70: 66 20 77 65 20 61 72 65 20 73 6f 20 69 6e 73 74  f we are so inst
df80: 72 75 63 74 65 64 2e 0d 0a 20 20 20 20 20 20 20  ructed...       
df90: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20     #..          
dfa0: 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74  if {![info exist
dfb0: 73 20 3a 3a 6e 6f 28 6c 6f 61 64 53 71 6c 69 74  s ::no(loadSqlit
dfc0: 65 46 69 6c 65 73 29 5d 7d 20 74 68 65 6e 20 7b  eFiles)]} then {
dfd0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 72  ..            tr
dfe0: 79 4c 6f 61 64 41 73 73 65 6d 62 6c 79 20 53 79  yLoadAssembly Sy
dff0: 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65  stem.Data.SQLite
e000: 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 20 20 20 20  .dll..          
e010: 20 20 74 72 79 4c 6f 61 64 41 73 73 65 6d 62 6c    tryLoadAssembl
e020: 79 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51  y System.Data.SQ
e030: 4c 69 74 65 2e 4c 69 6e 71 2e 64 6c 6c 0d 0a 20  Lite.Linq.dll.. 
e040: 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20           }..    
e050: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20      }....       
e060: 20 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 20   catch {..      
e070: 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73      tputs $::tes
e080: 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e  t_channel [appen
e090: 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20  dArgs \..       
e0a0: 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 66 69 6c         "---- fil
e0b0: 65 20 76 65 72 73 69 6f 6e 20 6f 66 20 5c 22 73  e version of \"s
e0c0: 71 6c 69 74 65 33 2e 64 6c 6c 5c 22 2e 2e 2e 20  qlite3.dll\"... 
e0d0: 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20  " \..           
e0e0: 20 20 20 5b 66 69 6c 65 20 76 65 72 73 69 6f 6e     [file version
e0f0: 20 5b 67 65 74 42 69 6e 61 72 79 46 69 6c 65 4e   [getBinaryFileN
e100: 61 6d 65 20 73 71 6c 69 74 65 33 2e 64 6c 6c 5d  ame sqlite3.dll]
e110: 5d 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 7d  ] \n]..        }
e120: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 63 61 74 63  ....        catc
e130: 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 74  h {..          t
e140: 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61  puts $::test_cha
e150: 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73  nnel [appendArgs
e160: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   \..            
e170: 20 20 22 2d 2d 2d 2d 20 66 69 6c 65 20 76 65 72    "---- file ver
e180: 73 69 6f 6e 20 6f 66 20 5c 22 53 51 4c 69 74 65  sion of \"SQLite
e190: 2e 49 6e 74 65 72 6f 70 2e 64 6c 6c 5c 22 2e 2e  .Interop.dll\"..
e1a0: 2e 20 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  . " \..         
e1b0: 20 20 20 20 20 5b 66 69 6c 65 20 76 65 72 73 69       [file versi
e1c0: 6f 6e 20 5b 67 65 74 42 69 6e 61 72 79 46 69 6c  on [getBinaryFil
e1d0: 65 4e 61 6d 65 20 53 51 4c 69 74 65 2e 49 6e 74  eName SQLite.Int
e1e0: 65 72 6f 70 2e 64 6c 6c 5d 5d 20 5c 6e 5d 0d 0a  erop.dll]] \n]..
e1f0: 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20          }....   
e200: 20 20 20 20 20 63 61 74 63 68 20 7b 0d 0a 20 20       catch {..  
e210: 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 3a          tputs $:
e220: 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61  :test_channel [a
e230: 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20  ppendArgs \..   
e240: 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d             "----
e250: 20 66 69 6c 65 20 76 65 72 73 69 6f 6e 20 6f 66   file version of
e260: 20 5c 22 53 79 73 74 65 6d 2e 44 61 74 61 2e 53   \"System.Data.S
e270: 51 4c 69 74 65 2e 64 6c 6c 5c 22 2e 2e 2e 20 22  QLite.dll\"... "
e280: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   \..            
e290: 20 20 5b 66 69 6c 65 20 76 65 72 73 69 6f 6e 20    [file version 
e2a0: 5b 67 65 74 42 69 6e 61 72 79 46 69 6c 65 4e 61  [getBinaryFileNa
e2b0: 6d 65 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53  me System.Data.S
e2c0: 51 4c 69 74 65 2e 64 6c 6c 5d 5d 20 5c 6e 5d 0d  QLite.dll]] \n].
e2d0: 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20  .        }....  
e2e0: 20 20 20 20 20 20 63 61 74 63 68 20 7b 0d 0a 20        catch {.. 
e2f0: 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24           tputs $
e300: 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b  ::test_channel [
e310: 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20  appendArgs \..  
e320: 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d              "---
e330: 2d 20 66 69 6c 65 20 76 65 72 73 69 6f 6e 20 6f  - file version o
e340: 66 20 5c 22 53 79 73 74 65 6d 2e 44 61 74 61 2e  f \"System.Data.
e350: 53 51 4c 69 74 65 2e 4c 69 6e 71 2e 64 6c 6c 5c  SQLite.Linq.dll\
e360: 22 2e 2e 2e 20 22 20 5c 0d 0a 20 20 20 20 20 20  "... " \..      
e370: 20 20 20 20 20 20 20 20 5b 66 69 6c 65 20 76 65          [file ve
e380: 72 73 69 6f 6e 20 5b 67 65 74 42 69 6e 61 72 79  rsion [getBinary
e390: 46 69 6c 65 4e 61 6d 65 20 53 79 73 74 65 6d 2e  FileName System.
e3a0: 44 61 74 61 2e 53 51 4c 69 74 65 2e 4c 69 6e 71  Data.SQLite.Linq
e3b0: 2e 64 6c 6c 5d 5d 20 5c 6e 5d 0d 0a 20 20 20 20  .dll]] \n]..    
e3c0: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20      }....       
e3d0: 20 73 65 74 20 61 73 73 65 6d 62 6c 69 65 73 20   set assemblies 
e3e0: 5b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 41  [object invoke A
e3f0: 70 70 44 6f 6d 61 69 6e 2e 43 75 72 72 65 6e 74  ppDomain.Current
e400: 44 6f 6d 61 69 6e 20 47 65 74 41 73 73 65 6d 62  Domain GetAssemb
e410: 6c 69 65 73 5d 0d 0a 0d 0a 20 20 20 20 20 20 20  lies]....       
e420: 20 6f 62 6a 65 63 74 20 66 6f 72 65 61 63 68 20   object foreach 
e430: 61 73 73 65 6d 62 6c 79 20 24 61 73 73 65 6d 62  assembly $assemb
e440: 6c 69 65 73 20 7b 0d 0a 20 20 20 20 20 20 20 20  lies {..        
e450: 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6d 61    if {[string ma
e460: 74 63 68 20 5c 7b 53 79 73 74 65 6d 2e 44 61 74  tch \{System.Dat
e470: 61 2e 53 51 4c 69 74 65 2a 20 24 61 73 73 65 6d  a.SQLite* $assem
e480: 62 6c 79 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  bly]} then {..  
e490: 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20            tputs 
e4a0: 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20  $::test_channel 
e4b0: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20  [appendArgs \.. 
e4c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22                 "
e4d0: 2d 2d 2d 2d 20 66 6f 75 6e 64 20 61 73 73 65 6d  ---- found assem
e4e0: 62 6c 79 3a 20 22 20 24 61 73 73 65 6d 62 6c 79  bly: " $assembly
e4f0: 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 20 20   \n]..          
e500: 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a  }..        }....
e510: 20 20 20 20 20 20 20 20 63 61 74 63 68 20 7b 0d          catch {.
e520: 0a 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73  .          tputs
e530: 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c   $::test_channel
e540: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   \..            
e550: 20 20 22 2d 2d 2d 2d 20 64 65 66 69 6e 65 20 63    "---- define c
e560: 6f 6e 73 74 61 6e 74 73 20 66 6f 72 20 5c 22 53  onstants for \"S
e570: 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74  ystem.Data.SQLit
e580: 65 5c 22 2e 2e 2e 20 22 0d 0a 0d 0a 20 20 20 20  e\"... "....    
e590: 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68        if {[catch
e5a0: 20 7b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20   {object invoke 
e5b0: 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 6c 69  -flags +NonPubli
e5c0: 63 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20  c \..           
e5d0: 20 20 20 20 20 20 20 53 79 73 74 65 6d 2e 44 61         System.Da
e5e0: 74 61 2e 53 51 4c 69 74 65 2e 53 51 4c 69 74 65  ta.SQLite.SQLite
e5f0: 33 20 44 65 66 69 6e 65 43 6f 6e 73 74 61 6e 74  3 DefineConstant
e600: 73 7d 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  s} \..          
e610: 20 20 20 20 20 20 20 20 64 65 66 69 6e 65 43 6f          defineCo
e620: 6e 73 74 61 6e 74 73 5d 20 3d 3d 20 30 7d 20 74  nstants] == 0} t
e630: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  hen {..         
e640: 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74     tputs $::test
e650: 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64  _channel [append
e660: 41 72 67 73 20 5b 66 6f 72 6d 61 74 4c 69 73 74  Args [formatList
e670: 20 5b 6c 73 6f 72 74 20 5c 0d 0a 20 20 20 20 20   [lsort \..     
e680: 20 20 20 20 20 20 20 20 20 20 20 24 64 65 66 69             $defi
e690: 6e 65 43 6f 6e 73 74 61 6e 74 73 5d 5d 20 5c 6e  neConstants]] \n
e6a0: 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 20 65  ]..          } e
e6b0: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  lse {..         
e6c0: 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74     tputs $::test
e6d0: 5f 63 68 61 6e 6e 65 6c 20 75 6e 6b 6e 6f 77 6e  _channel unknown
e6e0: 5c 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d  \n..          }.
e6f0: 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20  .        }....  
e700: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
e710: 20 23 20 4e 4f 54 45 3a 20 4e 6f 77 2c 20 77 65   # NOTE: Now, we
e720: 20 6e 65 65 64 20 74 6f 20 6b 6e 6f 77 20 69 66   need to know if
e730: 20 74 68 65 20 53 51 4c 69 74 65 20 63 6f 72 65   the SQLite core
e740: 20 6c 69 62 72 61 72 79 20 69 73 20 61 76 61 69   library is avai
e750: 6c 61 62 6c 65 0d 0a 20 20 20 20 20 20 20 20 23  lable..        #
e760: 20 20 20 20 20 20 20 28 69 2e 65 2e 20 62 65 63         (i.e. bec
e770: 61 75 73 65 20 74 68 65 20 6d 61 6e 61 67 65 64  ause the managed
e780: 2d 6f 6e 6c 79 20 53 79 73 74 65 6d 2e 44 61 74  -only System.Dat
e790: 61 2e 53 51 4c 69 74 65 20 61 73 73 65 6d 62 6c  a.SQLite assembl
e7a0: 79 20 63 61 6e 0d 0a 20 20 20 20 20 20 20 20 23  y can..        #
e7b0: 20 20 20 20 20 20 20 6c 6f 61 64 20 77 69 74 68         load with
e7c0: 6f 75 74 20 69 74 3b 20 68 6f 77 65 76 65 72 2c  out it; however,
e7d0: 20 69 74 20 63 61 6e 6e 6f 74 20 64 6f 20 61 6e   it cannot do an
e7e0: 79 74 68 69 6e 67 20 75 73 65 66 75 6c 20 77 69  ything useful wi
e7f0: 74 68 6f 75 74 0d 0a 20 20 20 20 20 20 20 20 23  thout..        #
e800: 20 20 20 20 20 20 20 69 74 29 2e 20 20 49 66 20         it).  If 
e810: 77 65 20 61 72 65 20 75 73 69 6e 67 20 74 68 65  we are using the
e820: 20 6d 69 78 65 64 2d 6d 6f 64 65 20 61 73 73 65   mixed-mode asse
e830: 6d 62 6c 79 20 61 6e 64 20 77 65 20 61 6c 72 65  mbly and we alre
e840: 61 64 79 0d 0a 20 20 20 20 20 20 20 20 23 20 20  ady..        #  
e850: 20 20 20 20 20 66 6f 75 6e 64 20 69 74 20 28 61       found it (a
e860: 62 6f 76 65 29 2c 20 74 68 69 73 20 73 68 6f 75  bove), this shou
e870: 6c 64 20 61 6c 77 61 79 73 20 73 75 63 63 65 65  ld always succee
e880: 64 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20  d...        #.. 
e890: 20 20 20 20 20 20 20 63 68 65 63 6b 46 6f 72 53         checkForS
e8a0: 51 4c 69 74 65 20 24 3a 3a 74 65 73 74 5f 63 68  QLite $::test_ch
e8b0: 61 6e 6e 65 6c 0d 0a 0d 0a 20 20 20 20 20 20 20  annel....       
e8c0: 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f   #..        # NO
e8d0: 54 45 3a 20 43 68 65 63 6b 20 74 68 65 20 53 51  TE: Check the SQ
e8e0: 4c 69 74 65 20 64 61 74 61 62 61 73 65 20 61 6e  Lite database an
e8f0: 64 20 74 65 6d 70 6f 72 61 72 79 20 64 69 72 65  d temporary dire
e900: 63 74 6f 72 69 65 73 2e 0d 0a 20 20 20 20 20 20  ctories...      
e910: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 63 68 65    #..        che
e920: 63 6b 46 6f 72 53 51 4c 69 74 65 44 69 72 65 63  ckForSQLiteDirec
e930: 74 6f 72 69 65 73 20 24 3a 3a 74 65 73 74 5f 63  tories $::test_c
e940: 68 61 6e 6e 65 6c 0d 0a 0d 0a 20 20 20 20 20 20  hannel....      
e950: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e    #..        # N
e960: 4f 54 45 3a 20 41 74 74 65 6d 70 74 20 74 6f 20  OTE: Attempt to 
e970: 64 65 74 65 72 6d 69 6e 65 20 69 66 20 76 61 72  determine if var
e980: 69 6f 75 73 20 63 6f 6d 70 69 6c 65 2d 74 69 6d  ious compile-tim
e990: 65 20 6f 70 74 69 6f 6e 73 20 6e 65 65 64 65 64  e options needed
e9a0: 20 66 6f 72 0d 0a 20 20 20 20 20 20 20 20 23 20   for..        # 
e9b0: 20 20 20 20 20 20 74 65 73 74 20 63 6f 6e 73 74        test const
e9c0: 72 61 69 6e 74 73 20 77 65 72 65 20 65 6e 61 62  raints were enab
e9d0: 6c 65 64 20 66 6f 72 20 74 68 65 20 6d 61 6e 61  led for the mana
e9e0: 67 65 64 20 61 73 73 65 6d 62 6c 79 2e 20 20 54  ged assembly.  T
e9f0: 68 65 72 65 0d 0a 20 20 20 20 20 20 20 20 23 20  here..        # 
ea00: 20 20 20 20 20 20 61 72 65 20 73 6f 6d 65 20 63        are some c
ea10: 6f 6d 70 69 6c 65 2d 74 69 6d 65 20 6f 70 74 69  ompile-time opti
ea20: 6f 6e 73 20 74 68 61 74 20 6d 75 73 74 20 61 6c  ons that must al
ea30: 73 6f 20 68 61 76 65 20 62 65 65 6e 20 65 6e 61  so have been ena
ea40: 62 6c 65 64 0d 0a 20 20 20 20 20 20 20 20 23 20  bled..        # 
ea50: 20 20 20 20 20 20 66 6f 72 20 74 68 65 20 69 6e        for the in
ea60: 74 65 72 6f 70 20 61 73 73 65 6d 62 6c 79 20 69  terop assembly i
ea70: 6e 20 6f 72 64 65 72 20 74 6f 20 62 65 20 65 66  n order to be ef
ea80: 66 65 63 74 69 76 65 2e 20 20 46 6f 72 20 74 68  fective.  For th
ea90: 6f 73 65 0d 0a 20 20 20 20 20 20 20 20 23 20 20  ose..        #  
eaa0: 20 20 20 20 20 6f 70 74 69 6f 6e 73 2c 20 69 74       options, it
eab0: 20 77 69 6c 6c 20 62 65 20 61 73 73 75 6d 65 64   will be assumed
eac0: 20 74 68 61 74 20 69 74 20 77 61 73 20 65 6e 61   that it was ena
ead0: 62 6c 65 64 20 66 6f 72 20 74 68 65 20 69 6e 74  bled for the int
eae0: 65 72 6f 70 0d 0a 20 20 20 20 20 20 20 20 23 20  erop..        # 
eaf0: 20 20 20 20 20 20 61 73 73 65 6d 62 6c 79 20 69        assembly i
eb00: 66 20 69 74 20 77 61 73 20 65 6e 61 62 6c 65 64  f it was enabled
eb10: 20 66 6f 72 20 74 68 65 20 6d 61 6e 61 67 65 64   for the managed
eb20: 20 61 73 73 65 6d 62 6c 79 2e 0d 0a 20 20 20 20   assembly...    
eb30: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 66      #..        f
eb40: 6f 72 65 61 63 68 20 64 65 66 69 6e 65 43 6f 6e  oreach defineCon
eb50: 73 74 61 6e 74 20 5b 6c 69 73 74 20 43 48 45 43  stant [list CHEC
eb60: 4b 5f 53 54 41 54 45 20 43 4f 55 4e 54 5f 48 41  K_STATE COUNT_HA
eb70: 4e 44 4c 45 20 49 4e 54 45 52 4f 50 5f 43 4f 44  NDLE INTEROP_COD
eb80: 45 43 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  EC \..          
eb90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
eba0: 20 20 20 20 20 20 20 20 20 20 20 49 4e 54 45 52             INTER
ebb0: 4f 50 5f 44 45 42 55 47 20 49 4e 54 45 52 4f 50  OP_DEBUG INTEROP
ebc0: 5f 4c 4f 47 20 5c 0d 0a 20 20 20 20 20 20 20 20  _LOG \..        
ebd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
ebe0: 20 20 20 20 20 20 20 20 20 20 20 20 20 49 4e 54               INT
ebf0: 45 52 4f 50 5f 45 58 54 45 4e 53 49 4f 4e 5f 46  EROP_EXTENSION_F
ec00: 55 4e 43 54 49 4f 4e 53 20 5c 0d 0a 20 20 20 20  UNCTIONS \..    
ec10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
ec20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
ec30: 20 49 4e 54 45 52 4f 50 5f 54 45 53 54 5f 45 58   INTEROP_TEST_EX
ec40: 54 45 4e 53 49 4f 4e 20 53 51 4c 49 54 45 5f 53  TENSION SQLITE_S
ec50: 54 41 4e 44 41 52 44 20 5c 0d 0a 20 20 20 20 20  TANDARD \..     
ec60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
ec70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
ec80: 55 53 45 5f 49 4e 54 45 52 4f 50 5f 44 4c 4c 5d  USE_INTEROP_DLL]
ec90: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d   {..          #.
eca0: 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54  .          # NOT
ecb0: 45 3a 20 43 68 65 63 6b 20 69 66 20 74 68 65 20  E: Check if the 
ecc0: 63 6f 6d 70 69 6c 65 2d 74 69 6d 65 20 6f 70 74  compile-time opt
ecd0: 69 6f 6e 20 69 73 20 6c 69 73 74 65 64 20 69 6e  ion is listed in
ece0: 20 74 68 65 20 6c 69 73 74 20 6f 66 0d 0a 20 20   the list of..  
ecf0: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20          #       
ed00: 22 64 65 66 69 6e 65 20 63 6f 6e 73 74 61 6e 74  "define constant
ed10: 73 22 20 6b 65 70 74 20 74 72 61 63 6b 20 6f 66  s" kept track of
ed20: 20 62 79 20 74 68 65 20 6d 61 6e 61 67 65 64 20   by the managed 
ed30: 61 73 73 65 6d 62 6c 79 2e 0d 0a 20 20 20 20 20  assembly...     
ed40: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..        
ed50: 20 20 63 68 65 63 6b 46 6f 72 53 51 4c 69 74 65    checkForSQLite
ed60: 44 65 66 69 6e 65 43 6f 6e 73 74 61 6e 74 20 24  DefineConstant $
ed70: 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 24  ::test_channel $
ed80: 64 65 66 69 6e 65 43 6f 6e 73 74 61 6e 74 0d 0a  defineConstant..
ed90: 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20          }....   
eda0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..        
edb0: 23 20 4e 4f 54 45 3a 20 43 68 65 63 6b 20 74 68  # NOTE: Check th
edc0: 65 20 63 75 72 72 65 6e 74 20 62 75 69 6c 64 20  e current build 
edd0: 79 65 61 72 2e 20 20 42 61 73 69 63 61 6c 6c 79  year.  Basically
ede0: 2c 20 74 68 69 73 20 69 6e 64 69 63 61 74 65 73  , this indicates
edf0: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20  ..        #     
ee00: 20 20 77 68 69 63 68 20 76 65 72 73 69 6f 6e 20    which version 
ee10: 6f 66 20 4d 53 42 75 69 6c 64 20 61 6e 64 2f 6f  of MSBuild and/o
ee20: 72 20 56 69 73 75 61 6c 20 53 74 75 64 69 6f 20  r Visual Studio 
ee30: 77 61 73 20 75 73 65 64 20 74 6f 0d 0a 20 20 20  was used to..   
ee40: 20 20 20 20 20 23 20 20 20 20 20 20 20 63 6f 6d       #       com
ee50: 70 69 6c 65 20 74 68 65 20 61 73 73 65 6d 62 6c  pile the assembl
ee60: 79 20 62 69 6e 61 72 69 65 73 20 75 6e 64 65 72  y binaries under
ee70: 20 74 65 73 74 2e 0d 0a 20 20 20 20 20 20 20 20   test...        
ee80: 23 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73  #..        tputs
ee90: 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c   $::test_channel
eea0: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   \..            
eeb0: 22 2d 2d 2d 2d 20 63 68 65 63 6b 69 6e 67 20 66  "---- checking f
eec0: 6f 72 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53  or System.Data.S
eed0: 51 4c 69 74 65 20 62 75 69 6c 64 20 79 65 61 72  QLite build year
eee0: 2e 2e 2e 20 22 0d 0a 0d 0a 20 20 20 20 20 20 20  ... "....       
eef0: 20 73 65 74 20 79 65 61 72 20 5b 67 65 74 42 75   set year [getBu
ef00: 69 6c 64 59 65 61 72 5d 0d 0a 20 20 20 20 20 20  ildYear]..      
ef10: 20 20 61 64 64 43 6f 6e 73 74 72 61 69 6e 74 20    addConstraint 
ef20: 5b 61 70 70 65 6e 64 41 72 67 73 20 62 75 69 6c  [appendArgs buil
ef30: 64 59 65 61 72 20 24 79 65 61 72 5d 0d 0a 20 20  dYear $year]..  
ef40: 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74        tputs $::t
ef50: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70  est_channel [app
ef60: 65 6e 64 41 72 67 73 20 5c 22 20 24 79 65 61 72  endArgs \" $year
ef70: 20 5c 22 5c 6e 5d 0d 0a 0d 0a 20 20 20 20 20 20   \"\n]....      
ef80: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e    #..        # N
ef90: 4f 54 45 3a 20 43 68 65 63 6b 20 74 68 65 20 63  OTE: Check the c
efa0: 75 72 72 65 6e 74 20 62 75 69 6c 64 20 63 6f 6e  urrent build con
efb0: 66 69 67 75 72 61 74 69 6f 6e 2e 20 20 54 68 69  figuration.  Thi
efc0: 73 20 73 68 6f 75 6c 64 20 6e 6f 72 6d 61 6c 6c  s should normall
efd0: 79 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20  y..        #    
efe0: 20 20 20 62 65 20 65 69 74 68 65 72 20 22 44 65     be either "De
eff0: 62 75 67 22 20 6f 72 20 22 52 65 6c 65 61 73 65  bug" or "Release
f000: 22 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20  "...        #.. 
f010: 20 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a         tputs $::
f020: 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5c 0d 0a  test_channel \..
f030: 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d              "---
f040: 2d 20 63 68 65 63 6b 69 6e 67 20 66 6f 72 20 53  - checking for S
f050: 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74  ystem.Data.SQLit
f060: 65 20 62 75 69 6c 64 20 63 6f 6e 66 69 67 75 72  e build configur
f070: 61 74 69 6f 6e 2e 2e 2e 20 22 0d 0a 0d 0a 20 20  ation... "....  
f080: 20 20 20 20 20 20 73 65 74 20 63 6f 6e 66 69 67        set config
f090: 75 72 61 74 69 6f 6e 20 5b 67 65 74 42 75 69 6c  uration [getBuil
f0a0: 64 43 6f 6e 66 69 67 75 72 61 74 69 6f 6e 5d 0d  dConfiguration].
f0b0: 0a 20 20 20 20 20 20 20 20 61 64 64 43 6f 6e 73  .        addCons
f0c0: 74 72 61 69 6e 74 20 5b 61 70 70 65 6e 64 41 72  traint [appendAr
f0d0: 67 73 20 62 75 69 6c 64 43 6f 6e 66 69 67 75 72  gs buildConfigur
f0e0: 61 74 69 6f 6e 20 24 63 6f 6e 66 69 67 75 72 61  ation $configura
f0f0: 74 69 6f 6e 5d 0d 0a 20 20 20 20 20 20 20 20 74  tion]..        t
f100: 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61  puts $::test_cha
f110: 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73  nnel [appendArgs
f120: 20 5c 22 20 24 63 6f 6e 66 69 67 75 72 61 74 69   \" $configurati
f130: 6f 6e 20 5c 22 5c 6e 5d 0d 0a 0d 0a 20 20 20 20  on \"\n]....    
f140: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23      #..        #
f150: 20 4e 4f 54 45 3a 20 43 68 65 63 6b 20 66 6f 72   NOTE: Check for
f160: 20 74 68 65 20 6e 61 74 69 76 65 20 72 75 6e 74   the native runt
f170: 69 6d 65 20 6f 70 74 69 6f 6e 2c 20 77 68 69 63  ime option, whic
f180: 68 20 77 6f 75 6c 64 20 6d 65 61 6e 20 77 65 20  h would mean we 
f190: 61 72 65 0d 0a 20 20 20 20 20 20 20 20 23 20 20  are..        #  
f1a0: 20 20 20 20 20 75 73 69 6e 67 20 74 68 65 20 6d       using the m
f1b0: 69 78 65 64 2d 6d 6f 64 65 20 61 73 73 65 6d 62  ixed-mode assemb
f1c0: 6c 79 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a  ly...        #..
f1d0: 20 20 20 20 20 20 20 20 63 68 65 63 6b 46 6f 72          checkFor
f1e0: 52 75 6e 74 69 6d 65 4f 70 74 69 6f 6e 20 24 3a  RuntimeOption $:
f1f0: 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 6e 61  :test_channel na
f200: 74 69 76 65 0d 0a 0d 0a 20 20 20 20 20 20 20 20  tive....        
f210: 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54  #..        # NOT
f220: 45 3a 20 43 68 65 63 6b 20 69 66 20 74 68 65 20  E: Check if the 
f230: 74 65 73 74 20 73 75 69 74 65 20 73 68 6f 75 6c  test suite shoul
f240: 64 20 63 6f 75 6e 74 20 74 68 65 20 6e 75 6d 62  d count the numb
f250: 65 72 20 6f 66 20 63 6f 6e 6e 65 63 74 69 6f 6e  er of connection
f260: 73 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20  s..        #    
f270: 20 20 20 22 6f 70 65 6e 65 64 22 20 61 6e 64 20     "opened" and 
f280: 22 63 6c 6f 73 65 64 22 20 66 72 6f 6d 20 74 68  "closed" from th
f290: 65 20 70 6f 6f 6c 20 77 68 65 6e 20 64 65 74 65  e pool when dete
f2a0: 72 6d 69 6e 69 6e 67 20 69 66 20 61 20 74 65 73  rmining if a tes
f2b0: 74 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20  t..        #    
f2c0: 20 20 20 70 61 73 73 65 64 2e 20 20 44 69 73 61     passed.  Disa
f2d0: 62 6c 69 6e 67 20 74 68 69 73 20 62 65 68 61 76  bling this behav
f2e0: 69 6f 72 20 69 73 20 73 6f 6d 65 74 69 6d 65 73  ior is sometimes
f2f0: 20 6e 65 63 65 73 73 61 72 79 20 28 65 2e 67 2e   necessary (e.g.
f300: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20  ..        #     
f310: 20 20 64 75 72 69 6e 67 20 74 68 65 20 72 65 6c    during the rel
f320: 65 61 73 65 20 74 65 73 74 69 6e 67 20 70 72 6f  ease testing pro
f330: 63 65 73 73 29 20 62 65 63 61 75 73 65 20 74 68  cess) because th
f340: 65 72 65 20 61 72 65 20 73 65 76 65 72 61 6c 0d  ere are several.
f350: 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20  .        #      
f360: 20 74 65 73 74 73 20 74 68 61 74 20 72 65 6c 79   tests that rely
f370: 20 6f 6e 20 74 68 65 20 22 6f 70 65 6e 65 64 20   on the "opened 
f380: 66 72 6f 6d 20 70 6f 6f 6c 22 20 63 6f 75 6e 74  from pool" count
f390: 20 62 65 69 6e 67 20 67 72 65 61 74 65 72 0d 0a   being greater..
f3a0: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20          #       
f3b0: 74 68 61 6e 20 7a 65 72 6f 2e 20 20 54 68 65 73  than zero.  Thes
f3c0: 65 20 74 65 73 74 73 20 6d 61 79 20 66 61 69 6c  e tests may fail
f3d0: 20 64 75 65 20 74 6f 20 74 68 65 20 6e 6f 6e 2d   due to the non-
f3e0: 64 65 74 65 72 6d 69 6e 69 73 74 69 63 0d 0a 20  deterministic.. 
f3f0: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 62         #       b
f400: 65 68 61 76 69 6f 72 20 6f 66 20 74 68 65 20 43  ehavior of the C
f410: 4c 52 20 47 43 2c 20 65 76 65 6e 20 77 68 65 6e  LR GC, even when
f420: 20 74 68 65 72 65 20 69 73 20 6e 6f 20 62 75 67   there is no bug
f430: 20 69 6e 20 74 68 65 20 63 6f 64 65 0d 0a 20 20   in the code..  
f440: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 62 65        #       be
f450: 69 6e 67 20 74 65 73 74 65 64 2e 0d 0a 20 20 20  ing tested...   
f460: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..        
f470: 63 68 65 63 6b 46 6f 72 52 75 6e 74 69 6d 65 4f  checkForRuntimeO
f480: 70 74 69 6f 6e 20 24 3a 3a 74 65 73 74 5f 63 68  ption $::test_ch
f490: 61 6e 6e 65 6c 20 6e 6f 50 6f 6f 6c 43 6f 75 6e  annel noPoolCoun
f4a0: 74 73 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d  ts....        #.
f4b0: 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a  .        # NOTE:
f4c0: 20 52 65 70 6f 72 74 20 74 68 65 20 72 65 73 6f   Report the reso
f4d0: 75 72 63 65 20 75 73 61 67 65 20 70 72 69 6f 72  urce usage prior
f4e0: 20 74 6f 20 72 75 6e 6e 69 6e 67 20 61 6e 79 20   to running any 
f4f0: 74 65 73 74 73 2e 0d 0a 20 20 20 20 20 20 20 20  tests...        
f500: 23 0d 0a 20 20 20 20 20 20 20 20 72 65 70 6f 72  #..        repor
f510: 74 53 51 4c 69 74 65 52 65 73 6f 75 72 63 65 73  tSQLiteResources
f520: 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c   $::test_channel
f530: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20  ....        #.. 
f540: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53         # NOTE: S
f550: 68 6f 77 20 74 68 65 20 61 63 74 69 76 65 20 74  how the active t
f560: 65 73 74 20 63 6f 6e 73 74 72 61 69 6e 74 73 2e  est constraints.
f570: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20  ..        #..   
f580: 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65       tputs $::te
f590: 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65  st_channel [appe
f5a0: 6e 64 41 72 67 73 20 22 2d 2d 2d 2d 20 63 6f 6e  ndArgs "---- con
f5b0: 73 74 72 61 69 6e 74 73 3a 20 22 20 5c 0d 0a 20  straints: " \.. 
f5c0: 20 20 20 20 20 20 20 20 20 20 20 5b 66 6f 72 6d             [form
f5d0: 61 74 4c 69 73 74 20 5b 6c 73 6f 72 74 20 5b 67  atList [lsort [g
f5e0: 65 74 43 6f 6e 73 74 72 61 69 6e 74 73 5d 5d 5d  etConstraints]]]
f5f0: 20 5c 6e 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20   \n]....        
f600: 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54  #..        # NOT
f610: 45 3a 20 53 61 76 65 20 74 68 65 20 74 65 73 74  E: Save the test
f620: 20 63 6f 6e 73 74 72 61 69 6e 74 73 20 66 6f 72   constraints for
f630: 20 75 73 65 20 62 79 20 74 68 72 65 61 64 73 20   use by threads 
f640: 63 72 65 61 74 65 64 20 69 6e 20 74 68 69 73 0d  created in this.
f650: 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20  .        #      
f660: 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 64 6f 6d   application dom
f670: 61 69 6e 2e 20 20 54 68 69 73 20 69 73 20 6e 65  ain.  This is ne
f680: 63 65 73 73 61 72 79 20 62 65 63 61 75 73 65 20  cessary because 
f690: 61 6c 6c 20 74 68 65 20 45 61 67 6c 65 0d 0a 20  all the Eagle.. 
f6a0: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 22         #       "
f6b0: 74 65 73 74 20 63 6f 6e 74 65 78 74 22 20 69 6e  test context" in
f6c0: 66 6f 72 6d 61 74 69 6f 6e 20 69 73 20 70 65 72  formation is per
f6d0: 2d 74 68 72 65 61 64 2e 0d 0a 20 20 20 20 20 20  -thread...      
f6e0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 69 66 20    #..        if 
f6f0: 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a  {![info exists :
f700: 3a 74 65 73 74 5f 63 6f 6e 73 74 72 61 69 6e 74  :test_constraint
f710: 73 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20  s]} then {..    
f720: 20 20 20 20 20 20 73 65 74 20 3a 3a 74 65 73 74        set ::test
f730: 5f 63 6f 6e 73 74 72 61 69 6e 74 73 20 24 3a 3a  _constraints $::
f740: 65 61 67 6c 65 5f 74 65 73 74 73 28 63 6f 6e 73  eagle_tests(cons
f750: 74 72 61 69 6e 74 73 29 0d 0a 20 20 20 20 20 20  traints)..      
f760: 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23    }....        #
f770: 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45  ..        # NOTE
f780: 3a 20 4c 6f 61 64 20 74 68 65 20 22 61 66 74 65  : Load the "afte
f790: 72 2d 63 6f 6e 73 74 72 61 69 6e 74 73 22 20 63  r-constraints" c
f7a0: 75 73 74 6f 6d 20 70 65 72 2d 75 73 65 72 20 61  ustom per-user a
f7b0: 6e 64 2f 6f 72 20 70 65 72 2d 68 6f 73 74 0d 0a  nd/or per-host..
f7c0: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20          #       
f7d0: 74 65 73 74 20 73 65 74 74 69 6e 67 73 20 6e 6f  test settings no
f7e0: 77 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20  w...        #.. 
f7f0: 20 20 20 20 20 20 20 75 70 6c 65 76 65 6c 20 31         uplevel 1
f800: 20 5b 6c 69 73 74 20 6c 6f 61 64 53 51 4c 69 74   [list loadSQLit
f810: 65 54 65 73 74 53 65 74 74 69 6e 67 73 20 24 3a  eTestSettings $:
f820: 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 2e 61  :test_channel .a
f830: 66 74 65 72 5d 0d 0a 0d 0a 20 20 20 20 20 20 20  fter]....       
f840: 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f   #..        # NO
f850: 54 45 3a 20 53 68 6f 77 20 77 68 65 6e 20 6f 75  TE: Show when ou
f860: 72 20 74 65 73 74 73 20 61 63 74 75 61 6c 6c 79  r tests actually
f870: 20 62 65 67 61 6e 20 28 6e 6f 77 29 2e 0d 0a 20   began (now)... 
f880: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..      
f890: 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f    tputs $::test_
f8a0: 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41  channel [appendA
f8b0: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  rgs \..         
f8c0: 20 20 20 22 2d 2d 2d 2d 20 53 79 73 74 65 6d 2e     "---- System.
f8d0: 44 61 74 61 2e 53 51 4c 69 74 65 20 74 65 73 74  Data.SQLite test
f8e0: 73 20 62 65 67 61 6e 20 61 74 20 22 20 5c 0d 0a  s began at " \..
f8f0: 20 20 20 20 20 20 20 20 20 20 20 20 5b 63 6c 6f              [clo
f900: 63 6b 20 66 6f 72 6d 61 74 20 5b 63 6c 6f 63 6b  ck format [clock
f910: 20 73 65 63 6f 6e 64 73 5d 5d 20 5c 6e 5d 0d 0a   seconds]] \n]..
f920: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a        }..    }..
f930: 0c 0d 0a 20 20 20 20 70 72 6f 63 20 72 75 6e 53  ...    proc runS
f940: 51 4c 69 74 65 54 65 73 74 45 70 69 6c 6f 67 75  QLiteTestEpilogu
f950: 65 20 7b 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d  e {} {..      #.
f960: 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53  .      # NOTE: S
f970: 6b 69 70 20 72 75 6e 6e 69 6e 67 20 6f 75 72 20  kip running our 
f980: 63 75 73 74 6f 6d 20 65 70 69 6c 6f 67 75 65 20  custom epilogue 
f990: 69 66 20 74 68 65 20 6d 61 69 6e 20 6f 6e 65 20  if the main one 
f9a0: 68 61 73 20 62 65 65 6e 0d 0a 20 20 20 20 20 20  has been..      
f9b0: 23 20 20 20 20 20 20 20 73 6b 69 70 70 65 64 2e  #       skipped.
f9c0: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20  ..      #..     
f9d0: 20 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73   if {![info exis
f9e0: 74 73 20 3a 3a 6e 6f 28 65 70 69 6c 6f 67 75 65  ts ::no(epilogue
f9f0: 2e 65 61 67 6c 65 29 5d 7d 20 74 68 65 6e 20 7b  .eagle)]} then {
fa00: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20  ..        #..   
fa10: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 68 6f       # NOTE: Sho
fa20: 77 20 77 68 65 6e 20 6f 75 72 20 74 65 73 74 73  w when our tests
fa30: 20 61 63 74 75 61 6c 6c 79 20 65 6e 64 65 64 20   actually ended 
fa40: 28 6e 6f 77 29 2e 0d 0a 20 20 20 20 20 20 20 20  (now)...        
fa50: 23 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73  #..        tputs
fa60: 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c   $::test_channel
fa70: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a   [appendArgs \..
fa80: 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d              "---
fa90: 2d 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51  - System.Data.SQ
faa0: 4c 69 74 65 20 74 65 73 74 73 20 65 6e 64 65 64  Lite tests ended
fab0: 20 61 74 20 22 20 5c 0d 0a 20 20 20 20 20 20 20   at " \..       
fac0: 20 20 20 20 20 5b 63 6c 6f 63 6b 20 66 6f 72 6d       [clock form
fad0: 61 74 20 5b 63 6c 6f 63 6b 20 73 65 63 6f 6e 64  at [clock second
fae0: 73 5d 5d 20 5c 6e 5d 0d 0a 0d 0a 20 20 20 20 20  s]] \n]....     
faf0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20     #..        # 
fb00: 42 55 47 46 49 58 3a 20 42 65 66 6f 72 65 20 63  BUGFIX: Before c
fb10: 68 65 63 6b 69 6e 67 20 74 68 65 20 66 69 6e 61  hecking the fina
fb20: 6c 20 72 65 73 6f 75 72 63 65 73 20 69 6e 20 75  l resources in u
fb30: 73 65 20 62 79 20 53 51 4c 69 74 65 2c 20 6d 61  se by SQLite, ma
fb40: 6b 65 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20  ke..        #   
fb50: 20 20 20 20 20 20 73 75 72 65 20 62 6f 74 68 20        sure both 
fb60: 6f 66 20 74 68 65 20 50 52 41 47 4d 41 20 72 65  of the PRAGMA re
fb70: 6c 61 74 65 64 20 64 69 72 65 63 74 6f 72 79 20  lated directory 
fb80: 6e 61 6d 65 73 20 61 72 65 20 66 72 65 65 64 2e  names are freed.
fb90: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20  ..        #..   
fba0: 20 20 20 20 20 63 68 65 63 6b 46 6f 72 53 51 4c       checkForSQL
fbb0: 69 74 65 44 69 72 65 63 74 6f 72 69 65 73 20 24  iteDirectories $
fbc0: 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 74  ::test_channel t
fbd0: 72 75 65 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23  rue....        #
fbe0: 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45  ..        # NOTE
fbf0: 3a 20 41 6c 73 6f 20 72 65 70 6f 72 74 20 74 68  : Also report th
fc00: 65 20 72 65 73 6f 75 72 63 65 20 75 73 61 67 65  e resource usage
fc10: 20 61 66 74 65 72 20 72 75 6e 6e 69 6e 67 20 74   after running t
fc20: 68 65 20 74 65 73 74 73 2e 0d 0a 20 20 20 20 20  he tests...     
fc30: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 72 65     #..        re
fc40: 70 6f 72 74 53 51 4c 69 74 65 52 65 73 6f 75 72  portSQLiteResour
fc50: 63 65 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e  ces $::test_chan
fc60: 6e 65 6c 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20  nel..      }..  
fc70: 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 23 23 23 23    }.....    ####
fc80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
fc90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
fca0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
fcb0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
fcc0: 23 23 23 23 23 23 23 0d 0a 20 20 20 20 23 23 23  #######..    ###
fcd0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
fce0: 23 23 23 23 23 23 23 23 23 23 20 45 4e 44 20 45  ########## END E
fcf0: 61 67 6c 65 20 4f 4e 4c 59 20 23 23 23 23 23 23  agle ONLY ######
fd00: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
fd10: 23 23 23 23 23 23 23 23 0d 0a 20 20 20 20 23 23  ########..    ##
fd20: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
fd30: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
fd40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
fd50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
fd60: 23 23 23 23 23 23 23 23 23 0d 0a 20 20 7d 0d 0a  #########..  }..
fd70: 0d 0a 20 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a  ..  #..  # NOTE:
fd80: 20 53 61 76 65 20 74 68 65 20 6e 61 6d 65 20 6f   Save the name o
fd90: 66 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 20  f the directory 
fda0: 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 69 73 20  containing this 
fdb0: 66 69 6c 65 2e 0d 0a 20 20 23 0d 0a 20 20 69 66  file...  #..  if
fdc0: 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20   {![info exists 
fdd0: 3a 3a 63 6f 6d 6d 6f 6e 5f 64 69 72 65 63 74 6f  ::common_directo
fde0: 72 79 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  ry]} then {..   
fdf0: 20 73 65 74 20 3a 3a 63 6f 6d 6d 6f 6e 5f 64 69   set ::common_di
fe00: 72 65 63 74 6f 72 79 20 5b 66 69 6c 65 20 64 69  rectory [file di
fe10: 72 6e 61 6d 65 20 5b 69 6e 66 6f 20 73 63 72 69  rname [info scri
fe20: 70 74 5d 5d 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 23  pt]]..  }....  #
fe30: 0d 0a 20 20 23 20 4e 4f 54 45 3a 20 50 72 6f 76  ..  # NOTE: Prov
fe40: 69 64 65 20 74 68 65 20 53 79 73 74 65 6d 2e 44  ide the System.D
fe50: 61 74 61 2e 53 51 4c 69 74 65 20 74 65 73 74 20  ata.SQLite test 
fe60: 70 61 63 6b 61 67 65 20 74 6f 20 74 68 65 20 69  package to the i
fe70: 6e 74 65 72 70 72 65 74 65 72 2e 0d 0a 20 20 23  nterpreter...  #
fe80: 0d 0a 20 20 70 61 63 6b 61 67 65 20 70 72 6f 76  ..  package prov
fe90: 69 64 65 20 53 79 73 74 65 6d 2e 44 61 74 61 2e  ide System.Data.
fea0: 53 51 4c 69 74 65 2e 54 65 73 74 20 31 2e 30 0d  SQLite.Test 1.0.
feb0: 0a 7d 0d 0a                                      .}..