System.Data.SQLite
Hex Artifact Content
Not logged in

Artifact 94dcf8f44ea9d9394cf762d9ab16fe3a78281dbd:


0000: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0010: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0020: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0030: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0040: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d  ###############.
0050: 0a 23 0d 0a 23 20 63 6f 6d 6d 6f 6e 2e 65 61 67  .#..# common.eag
0060: 6c 65 20 2d 2d 0d 0a 23 0d 0a 23 20 57 72 69 74  le --..#..# Writ
0070: 74 65 6e 20 62 79 20 4a 6f 65 20 4d 69 73 74 61  ten by Joe Mista
0080: 63 68 6b 69 6e 2e 0d 0a 23 20 52 65 6c 65 61 73  chkin...# Releas
0090: 65 64 20 74 6f 20 74 68 65 20 70 75 62 6c 69 63  ed to the public
00a0: 20 64 6f 6d 61 69 6e 2c 20 75 73 65 20 61 74 20   domain, use at 
00b0: 79 6f 75 72 20 6f 77 6e 20 72 69 73 6b 21 0d 0a  your own risk!..
00c0: 23 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23 23  #..#############
00d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
00e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
00f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0100: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0110: 23 23 0d 0a 0d 0a 23 0d 0a 23 20 4e 4f 54 45 3a  ##....#..# NOTE:
0120: 20 55 73 65 20 6f 75 72 20 6f 77 6e 20 6e 61 6d   Use our own nam
0130: 65 73 70 61 63 65 20 68 65 72 65 20 62 65 63 61  espace here beca
0140: 75 73 65 20 65 76 65 6e 20 74 68 6f 75 67 68 20  use even though 
0150: 77 65 20 64 6f 20 6e 6f 74 20 64 69 72 65 63 74  we do not direct
0160: 6c 79 0d 0a 23 20 20 20 20 20 20 20 73 75 70 70  ly..#       supp
0170: 6f 72 74 20 6e 61 6d 65 73 70 61 63 65 73 20 6f  ort namespaces o
0180: 75 72 73 65 6c 76 65 73 2c 20 77 65 20 64 6f 20  urselves, we do 
0190: 6e 6f 74 20 77 61 6e 74 20 74 6f 20 70 6f 6c 6c  not want to poll
01a0: 75 74 65 20 74 68 65 20 67 6c 6f 62 61 6c 0d 0a  ute the global..
01b0: 23 20 20 20 20 20 20 20 6e 61 6d 65 73 70 61 63  #       namespac
01c0: 65 20 69 66 20 74 68 69 73 20 73 63 72 69 70 74  e if this script
01d0: 20 61 63 74 75 61 6c 6c 79 20 65 6e 64 73 20 75   actually ends u
01e0: 70 20 62 65 69 6e 67 20 65 76 61 6c 75 61 74 65  p being evaluate
01f0: 64 20 69 6e 20 54 63 6c 2e 0d 0a 23 0d 0a 6e 61  d in Tcl...#..na
0200: 6d 65 73 70 61 63 65 20 65 76 61 6c 20 3a 3a 45  mespace eval ::E
0210: 61 67 6c 65 20 7b 0d 0a 20 20 69 66 20 7b 5b 69  agle {..  if {[i
0220: 73 45 61 67 6c 65 5d 7d 20 74 68 65 6e 20 7b 0d  sEagle]} then {.
0230: 0a 20 20 20 20 23 23 23 23 23 23 23 23 23 23 23  .    ###########
0240: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0250: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0260: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0270: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0280: 0d 0a 20 20 20 20 23 23 23 23 23 23 23 23 23 23  ..    ##########
0290: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
02a0: 23 23 20 42 45 47 49 4e 20 45 61 67 6c 65 20 4f  ## BEGIN Eagle O
02b0: 4e 4c 59 20 23 23 23 23 23 23 23 23 23 23 23 23  NLY ############
02c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
02d0: 23 0d 0a 20 20 20 20 23 23 23 23 23 23 23 23 23  #..    #########
02e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
02f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0300: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0310: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0320: 23 23 0d 0a 0d 0a 20 20 20 20 70 72 6f 63 20 67  ##....    proc g
0330: 65 74 42 75 69 6c 64 59 65 61 72 20 7b 7d 20 7b  etBuildYear {} {
0340: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20  ..      #..     
0350: 20 23 20 4e 4f 54 45 3a 20 53 65 65 20 69 66 20   # NOTE: See if 
0360: 74 68 65 20 22 79 65 61 72 22 20 73 65 74 74 69  the "year" setti
0370: 6e 67 20 68 61 73 20 62 65 65 6e 20 6f 76 65 72  ng has been over
0380: 72 69 64 64 65 6e 20 62 79 20 74 68 65 20 75 73  ridden by the us
0390: 65 72 20 28 65 2e 67 2e 0d 0a 20 20 20 20 20 20  er (e.g...      
03a0: 23 20 20 20 20 20 20 20 6f 6e 20 74 68 65 20 63  #       on the c
03b0: 6f 6d 6d 61 6e 64 20 6c 69 6e 65 29 2e 20 20 54  ommand line).  T
03c0: 68 69 73 20 68 65 6c 70 73 20 63 6f 6e 74 72 6f  his helps contro
03d0: 6c 20 65 78 61 63 74 6c 79 20 77 68 69 63 68 20  l exactly which 
03e0: 73 65 74 20 6f 66 0d 0a 20 20 20 20 20 20 23 20  set of..      # 
03f0: 20 20 20 20 20 20 62 69 6e 61 72 69 65 73 20 77        binaries w
0400: 65 20 61 72 65 20 74 65 73 74 69 6e 67 2c 20 74  e are testing, t
0410: 68 6f 73 65 20 70 72 6f 64 75 63 65 64 20 75 73  hose produced us
0420: 69 6e 67 20 74 68 65 20 56 69 73 75 61 6c 20 53  ing the Visual S
0430: 74 75 64 69 6f 0d 0a 20 20 20 20 20 20 23 20 20  tudio..      #  
0440: 20 20 20 20 20 32 30 30 35 2c 20 32 30 30 38 2c       2005, 2008,
0450: 20 32 30 31 30 2c 20 6f 72 20 32 30 31 32 20 62   2010, or 2012 b
0460: 75 69 6c 64 20 73 79 73 74 65 6d 73 2e 20 20 54  uild systems.  T
0470: 6f 20 6f 76 65 72 72 69 64 65 20 74 68 69 73 20  o override this 
0480: 76 61 6c 75 65 0d 0a 20 20 20 20 20 20 23 20 20  value..      #  
0490: 20 20 20 20 20 76 69 61 20 74 68 65 20 63 6f 6d       via the com
04a0: 6d 61 6e 64 20 6c 69 6e 65 2c 20 65 6e 74 65 72  mand line, enter
04b0: 20 61 20 63 6f 6d 6d 61 6e 64 20 73 69 6d 69 6c   a command simil
04c0: 61 72 20 74 6f 20 6f 6e 65 20 6f 66 20 74 68 65  ar to one of the
04d0: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20  ..      #       
04e0: 66 6f 6c 6c 6f 77 69 6e 67 20 28 61 6c 6c 20 6f  following (all o
04f0: 6e 20 6f 6e 65 20 6c 69 6e 65 29 3a 0d 0a 20 20  n one line):..  
0500: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 20      #..      #  
0510: 20 20 20 20 20 45 61 67 6c 65 53 68 65 6c 6c 2e       EagleShell.
0520: 65 78 65 20 2d 70 72 65 49 6e 69 74 69 61 6c 69  exe -preInitiali
0530: 7a 65 20 22 73 65 74 20 74 65 73 74 5f 79 65 61  ze "set test_yea
0540: 72 20 32 30 30 35 22 0d 0a 20 20 20 20 20 20 23  r 2005"..      #
0550: 20 20 20 20 20 20 20 20 20 2d 66 69 6c 65 20 2e           -file .
0560: 5c 70 61 74 68 5c 74 6f 5c 61 6c 6c 2e 65 61 67  \path\to\all.eag
0570: 6c 65 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20  le..      #..   
0580: 20 20 20 23 20 20 20 20 20 20 20 45 61 67 6c 65     #       Eagle
0590: 53 68 65 6c 6c 2e 65 78 65 20 2d 70 72 65 49 6e  Shell.exe -preIn
05a0: 69 74 69 61 6c 69 7a 65 20 22 73 65 74 20 74 65  itialize "set te
05b0: 73 74 5f 79 65 61 72 20 32 30 30 38 22 0d 0a 20  st_year 2008".. 
05c0: 20 20 20 20 20 23 20 20 20 20 20 20 20 20 20 2d       #         -
05d0: 66 69 6c 65 20 2e 5c 70 61 74 68 5c 74 6f 5c 61  file .\path\to\a
05e0: 6c 6c 2e 65 61 67 6c 65 0d 0a 20 20 20 20 20 20  ll.eagle..      
05f0: 23 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20  #..      #      
0600: 20 45 61 67 6c 65 53 68 65 6c 6c 2e 65 78 65 20   EagleShell.exe 
0610: 2d 70 72 65 49 6e 69 74 69 61 6c 69 7a 65 20 22  -preInitialize "
0620: 73 65 74 20 74 65 73 74 5f 79 65 61 72 20 32 30  set test_year 20
0630: 31 30 22 0d 0a 20 20 20 20 20 20 23 20 20 20 20  10"..      #    
0640: 20 20 20 20 20 2d 66 69 6c 65 20 2e 5c 70 61 74       -file .\pat
0650: 68 5c 74 6f 5c 61 6c 6c 2e 65 61 67 6c 65 0d 0a  h\to\all.eagle..
0660: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23        #..      #
0670: 20 20 20 20 20 20 20 45 61 67 6c 65 53 68 65 6c         EagleShel
0680: 6c 2e 65 78 65 20 2d 70 72 65 49 6e 69 74 69 61  l.exe -preInitia
0690: 6c 69 7a 65 20 22 73 65 74 20 74 65 73 74 5f 79  lize "set test_y
06a0: 65 61 72 20 32 30 31 32 22 0d 0a 20 20 20 20 20  ear 2012"..     
06b0: 20 23 20 20 20 20 20 20 20 20 20 2d 66 69 6c 65   #         -file
06c0: 20 2e 5c 70 61 74 68 5c 74 6f 5c 61 6c 6c 2e 65   .\path\to\all.e
06d0: 61 67 6c 65 0d 0a 20 20 20 20 20 20 23 0d 0a 20  agle..      #.. 
06e0: 20 20 20 20 20 23 20 20 20 20 20 20 20 45 61 67       #       Eag
06f0: 6c 65 53 68 65 6c 6c 2e 65 78 65 20 2d 70 72 65  leShell.exe -pre
0700: 49 6e 69 74 69 61 6c 69 7a 65 20 22 75 6e 73 65  Initialize "unse
0710: 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 74 65  t -nocomplain te
0720: 73 74 5f 79 65 61 72 22 0d 0a 20 20 20 20 20 20  st_year"..      
0730: 23 20 20 20 20 20 20 20 20 20 2d 66 69 6c 65 20  #         -file 
0740: 2e 5c 70 61 74 68 5c 74 6f 5c 61 6c 6c 2e 65 61  .\path\to\all.ea
0750: 67 6c 65 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  gle..      #..  
0760: 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78      if {[info ex
0770: 69 73 74 73 20 3a 3a 74 65 73 74 5f 79 65 61 72  ists ::test_year
0780: 5d 20 26 26 20 5b 73 74 72 69 6e 67 20 6c 65 6e  ] && [string len
0790: 67 74 68 20 24 3a 3a 74 65 73 74 5f 79 65 61 72  gth $::test_year
07a0: 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20  ] > 0} then {.. 
07b0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..      
07c0: 20 20 23 20 4e 4f 54 45 3a 20 55 73 65 20 74 68    # NOTE: Use th
07d0: 65 20 73 70 65 63 69 66 69 65 64 20 74 65 73 74  e specified test
07e0: 20 79 65 61 72 2e 20 20 49 66 20 74 68 69 73 20   year.  If this 
07f0: 76 61 72 69 61 62 6c 65 20 69 73 20 6e 6f 74 20  variable is not 
0800: 73 65 74 2c 20 74 68 65 0d 0a 20 20 20 20 20 20  set, the..      
0810: 20 20 23 20 20 20 20 20 20 20 64 65 66 61 75 6c    #       defaul
0820: 74 20 76 61 6c 75 65 20 77 69 6c 6c 20 62 65 20  t value will be 
0830: 62 61 73 65 64 20 6f 6e 20 77 68 65 74 68 65 72  based on whether
0840: 20 6f 72 20 6e 6f 74 20 45 61 67 6c 65 20 68 61   or not Eagle ha
0850: 73 20 62 65 65 6e 0d 0a 20 20 20 20 20 20 20 20  s been..        
0860: 23 20 20 20 20 20 20 20 63 6f 6d 70 69 6c 65 64  #       compiled
0870: 20 61 67 61 69 6e 73 74 20 74 68 65 20 43 4c 52   against the CLR
0880: 20 76 32 2e 30 20 6f 72 20 43 4c 52 20 76 34 2e   v2.0 or CLR v4.
0890: 30 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20  0...        #.. 
08a0: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 3a         return $:
08b0: 3a 74 65 73 74 5f 79 65 61 72 0d 0a 20 20 20 20  :test_year..    
08c0: 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20    } else {..    
08d0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23      #..        #
08e0: 20 4e 4f 54 45 3a 20 49 66 20 45 61 67 6c 65 20   NOTE: If Eagle 
08f0: 68 61 73 20 62 65 65 6e 20 63 6f 6d 70 69 6c 65  has been compile
0900: 64 20 61 67 61 69 6e 73 74 20 74 68 65 20 43 4c  d against the CL
0910: 52 20 76 34 2e 30 2c 20 75 73 65 20 22 32 30 31  R v4.0, use "201
0920: 30 22 20 62 79 0d 0a 20 20 20 20 20 20 20 20 23  0" by..        #
0930: 20 20 20 20 20 20 20 64 65 66 61 75 6c 74 20 28         default (
0940: 77 65 20 63 6f 75 6c 64 20 75 73 65 20 22 32 30  we could use "20
0950: 31 32 22 20 69 6e 20 74 68 61 74 20 63 61 73 65  12" in that case
0960: 20 61 73 20 77 65 6c 6c 29 20 61 73 20 74 68 65   as well) as the
0970: 20 74 65 73 74 0d 0a 20 20 20 20 20 20 20 20 23   test..        #
0980: 20 20 20 20 20 20 20 79 65 61 72 3b 20 6f 74 68         year; oth
0990: 65 72 77 69 73 65 2c 20 75 73 65 20 22 32 30 30  erwise, use "200
09a0: 38 22 20 62 79 20 64 65 66 61 75 6c 74 20 28 77  8" by default (w
09b0: 65 20 63 6f 75 6c 64 20 75 73 65 20 22 32 30 30  e could use "200
09c0: 35 22 20 69 6e 0d 0a 20 20 20 20 20 20 20 20 23  5" in..        #
09d0: 20 20 20 20 20 20 20 74 68 61 74 20 63 61 73 65         that case
09e0: 20 61 73 20 77 65 6c 6c 29 2e 20 20 49 66 20 61   as well).  If a
09f0: 6e 6f 74 68 65 72 20 6d 61 6a 6f 72 20 5b 69 6e  nother major [in
0a00: 63 6f 6d 70 61 74 69 62 6c 65 5d 20 76 65 72 73  compatible] vers
0a10: 69 6f 6e 20 6f 66 0d 0a 20 20 20 20 20 20 20 20  ion of..        
0a20: 23 20 20 20 20 20 20 20 74 68 65 20 43 4c 52 20  #       the CLR 
0a30: 69 73 20 72 65 6c 65 61 73 65 64 2c 20 74 68 69  is released, thi
0a40: 73 20 63 68 65 63 6b 20 77 69 6c 6c 20 68 61 76  s check will hav
0a50: 65 20 74 6f 20 62 65 20 63 68 61 6e 67 65 64 2e  e to be changed.
0a60: 20 20 54 68 65 0d 0a 20 20 20 20 20 20 20 20 23    The..        #
0a70: 20 20 20 20 20 20 20 64 65 66 61 75 6c 74 20 74         default t
0a80: 65 73 74 20 79 65 61 72 20 74 6f 20 75 73 65 20  est year to use 
0a90: 66 6f 72 20 61 20 70 61 72 74 69 63 75 6c 61 72  for a particular
0aa0: 20 43 4c 52 20 76 65 72 73 69 6f 6e 20 6d 61 79   CLR version may
0ab0: 20 62 65 0d 0a 20 20 20 20 20 20 20 20 23 20 20   be..        #  
0ac0: 20 20 20 20 20 6f 76 65 72 72 69 64 64 65 6e 20       overridden 
0ad0: 62 79 20 73 65 74 74 69 6e 67 20 74 68 65 20 67  by setting the g
0ae0: 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 20 22  lobal variable "
0af0: 74 65 73 74 5f 79 65 61 72 5f 63 6c 72 5f 76 24  test_year_clr_v$
0b00: 58 22 2c 0d 0a 20 20 20 20 20 20 20 20 23 20 20  X",..        #  
0b10: 20 20 20 20 20 77 68 65 72 65 20 22 24 58 22 20       where "$X" 
0b20: 6d 61 79 20 5b 63 75 72 72 65 6e 74 6c 79 5d 20  may [currently] 
0b30: 62 65 20 65 69 74 68 65 72 20 22 32 22 20 6f 72  be either "2" or
0b40: 20 22 34 22 2e 0d 0a 20 20 20 20 20 20 20 20 23   "4"...        #
0b50: 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b 68  ..        if {[h
0b60: 61 76 65 43 6f 6e 73 74 72 61 69 6e 74 20 69 6d  aveConstraint im
0b70: 61 67 65 52 75 6e 74 69 6d 65 34 30 5d 7d 20 74  ageRuntime40]} t
0b80: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  hen {..         
0b90: 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74   if {[info exist
0ba0: 73 20 3a 3a 74 65 73 74 5f 79 65 61 72 5f 63 6c  s ::test_year_cl
0bb0: 72 5f 76 34 5d 20 26 26 20 5c 0d 0a 20 20 20 20  r_v4] && \..    
0bc0: 20 20 20 20 20 20 20 20 20 20 5b 73 74 72 69 6e            [strin
0bd0: 67 20 6c 65 6e 67 74 68 20 24 3a 3a 74 65 73 74  g length $::test
0be0: 5f 79 65 61 72 5f 63 6c 72 5f 76 34 5d 20 3e 20  _year_clr_v4] > 
0bf0: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  0} then {..     
0c00: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..      
0c10: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 55 73        # NOTE: Us
0c20: 65 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20  e the specified 
0c30: 74 65 73 74 20 79 65 61 72 20 66 6f 72 20 74 68  test year for th
0c40: 65 20 43 4c 52 20 76 34 2e 30 2e 0d 0a 20 20 20  e CLR v4.0...   
0c50: 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20           #..    
0c60: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 24          return $
0c70: 3a 3a 74 65 73 74 5f 79 65 61 72 5f 63 6c 72 5f  ::test_year_clr_
0c80: 76 34 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 20  v4..          } 
0c90: 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20  else {..        
0ca0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20      #..         
0cb0: 20 20 20 23 20 4e 4f 54 45 3a 20 55 73 65 20 74     # NOTE: Use t
0cc0: 68 65 20 64 65 66 61 75 6c 74 20 74 65 73 74 20  he default test 
0cd0: 79 65 61 72 20 66 6f 72 20 74 68 65 20 43 4c 52  year for the CLR
0ce0: 20 76 34 2e 30 2e 0d 0a 20 20 20 20 20 20 20 20   v4.0...        
0cf0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20      #..         
0d00: 20 20 20 72 65 74 75 72 6e 20 32 30 31 30 3b 20     return 2010; 
0d10: 23 20 54 4f 44 4f 3a 20 47 6f 6f 64 20 22 66 61  # TODO: Good "fa
0d20: 6c 6c 62 61 63 6b 22 20 64 65 66 61 75 6c 74 3f  llback" default?
0d30: 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20  ..          }.. 
0d40: 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d         } else {.
0d50: 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 5b  .          if {[
0d60: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 74 65  info exists ::te
0d70: 73 74 5f 79 65 61 72 5f 63 6c 72 5f 76 32 5d 20  st_year_clr_v2] 
0d80: 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  && \..          
0d90: 20 20 20 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67      [string leng
0da0: 74 68 20 24 3a 3a 74 65 73 74 5f 79 65 61 72 5f  th $::test_year_
0db0: 63 6c 72 5f 76 32 5d 20 3e 20 30 7d 20 74 68 65  clr_v2] > 0} the
0dc0: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20  n {..           
0dd0: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   #..            
0de0: 23 20 4e 4f 54 45 3a 20 55 73 65 20 74 68 65 20  # NOTE: Use the 
0df0: 73 70 65 63 69 66 69 65 64 20 74 65 73 74 20 79  specified test y
0e00: 65 61 72 20 66 6f 72 20 74 68 65 20 43 4c 52 20  ear for the CLR 
0e10: 76 32 2e 30 2e 0d 0a 20 20 20 20 20 20 20 20 20  v2.0...         
0e20: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20     #..          
0e30: 20 20 72 65 74 75 72 6e 20 24 3a 3a 74 65 73 74    return $::test
0e40: 5f 79 65 61 72 5f 63 6c 72 5f 76 32 0d 0a 20 20  _year_clr_v2..  
0e50: 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b          } else {
0e60: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 0d  ..            #.
0e70: 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 20 4e  .            # N
0e80: 4f 54 45 3a 20 55 73 65 20 74 68 65 20 64 65 66  OTE: Use the def
0e90: 61 75 6c 74 20 74 65 73 74 20 79 65 61 72 20 66  ault test year f
0ea0: 6f 72 20 74 68 65 20 43 4c 52 20 76 32 2e 30 2e  or the CLR v2.0.
0eb0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 0d  ..            #.
0ec0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74  .            ret
0ed0: 75 72 6e 20 32 30 30 38 3b 20 23 20 54 4f 44 4f  urn 2008; # TODO
0ee0: 3a 20 47 6f 6f 64 20 22 66 61 6c 6c 62 61 63 6b  : Good "fallback
0ef0: 22 20 64 65 66 61 75 6c 74 3f 0d 0a 20 20 20 20  " default?..    
0f00: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20        }..       
0f10: 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20   }..      }..   
0f20: 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20   }.....    proc 
0f30: 67 65 74 42 75 69 6c 64 59 65 61 72 73 20 7b 7d  getBuildYears {}
0f40: 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20   {..      #..   
0f50: 20 20 20 23 20 4e 4f 54 45 3a 20 53 65 65 20 69     # NOTE: See i
0f60: 66 20 74 68 65 20 6c 69 73 74 20 6f 66 20 74 65  f the list of te
0f70: 73 74 20 79 65 61 72 73 20 68 61 73 20 62 65 65  st years has bee
0f80: 6e 20 6f 76 65 72 72 69 64 64 65 6e 20 62 79 20  n overridden by 
0f90: 74 68 65 20 75 73 65 72 0d 0a 20 20 20 20 20 20  the user..      
0fa0: 23 20 20 20 20 20 20 20 28 65 2e 67 2e 20 6f 6e  #       (e.g. on
0fb0: 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e   the command lin
0fc0: 65 29 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  e)...      #..  
0fd0: 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78      if {[info ex
0fe0: 69 73 74 73 20 3a 3a 74 65 73 74 5f 79 65 61 72  ists ::test_year
0ff0: 73 5d 20 26 26 20 5b 6c 6c 65 6e 67 74 68 20 24  s] && [llength $
1000: 3a 3a 74 65 73 74 5f 79 65 61 72 73 5d 20 3e 20  ::test_years] > 
1010: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  0} then {..     
1020: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20     #..        # 
1030: 4e 4f 54 45 3a 20 55 73 65 20 74 68 65 20 73 70  NOTE: Use the sp
1040: 65 63 69 66 69 65 64 20 6c 69 73 74 20 6f 66 20  ecified list of 
1050: 74 65 73 74 20 79 65 61 72 73 2e 0d 0a 20 20 20  test years...   
1060: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..        
1070: 72 65 74 75 72 6e 20 24 3a 3a 74 65 73 74 5f 79  return $::test_y
1080: 65 61 72 73 0d 0a 20 20 20 20 20 20 7d 20 65 6c  ears..      } el
1090: 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d  se {..        #.
10a0: 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a  .        # NOTE:
10b0: 20 55 73 65 20 74 68 65 20 64 65 66 61 75 6c 74   Use the default
10c0: 20 6c 69 73 74 20 6f 66 20 74 65 73 74 20 79 65   list of test ye
10d0: 61 72 73 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d  ars...        #.
10e0: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20  .        return 
10f0: 5b 6c 69 73 74 20 32 30 30 35 20 32 30 30 38 20  [list 2005 2008 
1100: 32 30 31 30 20 32 30 31 32 5d 0d 0a 20 20 20 20  2010 2012]..    
1110: 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20    }..    }..... 
1120: 20 20 20 70 72 6f 63 20 67 65 74 42 75 69 6c 64     proc getBuild
1130: 50 6c 61 74 66 6f 72 6d 20 7b 20 6e 61 74 69 76  Platform { nativ
1140: 65 20 7d 20 7b 0d 0a 20 20 20 20 20 20 69 66 20  e } {..      if 
1150: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a  {[info exists ::
1160: 74 65 73 74 5f 70 6c 61 74 66 6f 72 6d 5d 20 26  test_platform] &
1170: 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 5b  & \..          [
1180: 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 3a  string length $:
1190: 3a 74 65 73 74 5f 70 6c 61 74 66 6f 72 6d 5d 20  :test_platform] 
11a0: 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  > 0} then {..   
11b0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..        
11c0: 23 20 4e 4f 54 45 3a 20 55 73 65 20 74 68 65 20  # NOTE: Use the 
11d0: 73 70 65 63 69 66 69 65 64 20 74 65 73 74 20 70  specified test p
11e0: 6c 61 74 66 6f 72 6d 2e 20 20 49 66 20 74 68 69  latform.  If thi
11f0: 73 20 76 61 72 69 61 62 6c 65 20 69 73 20 6e 6f  s variable is no
1200: 74 20 73 65 74 2c 0d 0a 20 20 20 20 20 20 20 20  t set,..        
1210: 23 20 20 20 20 20 20 20 74 68 65 20 64 65 66 61  #       the defa
1220: 75 6c 74 20 76 61 6c 75 65 20 77 69 6c 6c 20 62  ult value will b
1230: 65 20 62 61 73 65 64 20 6f 6e 20 74 68 65 20 6d  e based on the m
1240: 61 63 68 69 6e 65 20 61 72 63 68 69 74 65 63 74  achine architect
1250: 75 72 65 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d  ure...        #.
1260: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20  .        return 
1270: 5b 65 78 70 72 20 7b 24 6e 61 74 69 76 65 20 3f  [expr {$native ?
1280: 20 24 3a 3a 74 65 73 74 5f 70 6c 61 74 66 6f 72   $::test_platfor
1290: 6d 20 3a 20 22 22 7d 5d 0d 0a 20 20 20 20 20 20  m : ""}]..      
12a0: 7d 20 65 6c 73 65 69 66 20 7b 5b 69 6e 66 6f 20  } elseif {[info 
12b0: 65 78 69 73 74 73 20 3a 3a 74 65 73 74 5f 6d 61  exists ::test_ma
12c0: 63 68 69 6e 65 5d 20 26 26 20 5c 0d 0a 20 20 20  chine] && \..   
12d0: 20 20 20 20 20 20 20 5b 73 74 72 69 6e 67 20 6c         [string l
12e0: 65 6e 67 74 68 20 24 3a 3a 74 65 73 74 5f 6d 61  ength $::test_ma
12f0: 63 68 69 6e 65 5d 20 3e 20 30 7d 20 74 68 65 6e  chine] > 0} then
1300: 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20   {..        #.. 
1310: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 46         # NOTE: F
1320: 6f 72 20 6e 61 74 69 76 65 20 62 75 69 6c 64 73  or native builds
1330: 2c 20 72 65 74 75 72 6e 20 74 68 65 20 70 6c 61  , return the pla
1340: 74 66 6f 72 6d 20 6e 61 6d 65 20 63 6f 72 72 65  tform name corre
1350: 73 70 6f 6e 64 69 6e 67 20 74 6f 0d 0a 20 20 20  sponding to..   
1360: 20 20 20 20 20 23 20 20 20 20 20 20 20 74 68 65       #       the
1370: 20 74 65 73 74 20 6d 61 63 68 69 6e 65 20 61 72   test machine ar
1380: 63 68 69 74 65 63 74 75 72 65 3b 20 6f 74 68 65  chitecture; othe
1390: 72 77 69 73 65 2c 20 72 65 74 75 72 6e 20 61 6e  rwise, return an
13a0: 20 65 6d 70 74 79 0d 0a 20 20 20 20 20 20 20 20   empty..        
13b0: 23 20 20 20 20 20 20 20 73 74 72 69 6e 67 2e 0d  #       string..
13c0: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20  .        #..    
13d0: 20 20 20 20 72 65 74 75 72 6e 20 5b 65 78 70 72      return [expr
13e0: 20 7b 24 6e 61 74 69 76 65 20 3f 20 5b 6d 61 63   {$native ? [mac
13f0: 68 69 6e 65 54 6f 50 6c 61 74 66 6f 72 6d 20 24  hineToPlatform $
1400: 3a 3a 74 65 73 74 5f 6d 61 63 68 69 6e 65 5d 20  ::test_machine] 
1410: 3a 20 22 22 7d 5d 0d 0a 20 20 20 20 20 20 7d 20  : ""}]..      } 
1420: 65 6c 73 65 69 66 20 7b 5b 69 6e 66 6f 20 65 78  elseif {[info ex
1430: 69 73 74 73 20 3a 3a 74 63 6c 5f 70 6c 61 74 66  ists ::tcl_platf
1440: 6f 72 6d 28 6d 61 63 68 69 6e 65 29 5d 7d 20 74  orm(machine)]} t
1450: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 23  hen {..        #
1460: 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45  ..        # NOTE
1470: 3a 20 46 6f 72 20 6e 61 74 69 76 65 20 62 75 69  : For native bui
1480: 6c 64 73 2c 20 72 65 74 75 72 6e 20 74 68 65 20  lds, return the 
1490: 70 6c 61 74 66 6f 72 6d 20 6e 61 6d 65 20 63 6f  platform name co
14a0: 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 6f 0d 0a  rresponding to..
14b0: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20          #       
14c0: 74 68 65 20 6d 61 63 68 69 6e 65 20 61 72 63 68  the machine arch
14d0: 69 74 65 63 74 75 72 65 3b 20 6f 74 68 65 72 77  itecture; otherw
14e0: 69 73 65 2c 20 72 65 74 75 72 6e 20 61 6e 20 65  ise, return an e
14f0: 6d 70 74 79 20 73 74 72 69 6e 67 2e 0d 0a 20 20  mpty string...  
1500: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
1510: 20 72 65 74 75 72 6e 20 5b 65 78 70 72 20 7b 24   return [expr {$
1520: 6e 61 74 69 76 65 20 3f 20 5c 0d 0a 20 20 20 20  native ? \..    
1530: 20 20 20 20 20 20 20 20 5b 6d 61 63 68 69 6e 65          [machine
1540: 54 6f 50 6c 61 74 66 6f 72 6d 20 24 3a 3a 74 63  ToPlatform $::tc
1550: 6c 5f 70 6c 61 74 66 6f 72 6d 28 6d 61 63 68 69  l_platform(machi
1560: 6e 65 29 5d 20 3a 20 22 22 7d 5d 0d 0a 20 20 20  ne)] : ""}]..   
1570: 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20     } else {..   
1580: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..        
1590: 23 20 4e 4f 54 45 3a 20 4e 6f 20 6d 61 63 68 69  # NOTE: No machi
15a0: 6e 65 20 61 72 63 68 69 74 65 63 74 75 72 65 20  ne architecture 
15b0: 69 73 20 61 76 61 69 6c 61 62 6c 65 2c 20 72 65  is available, re
15c0: 74 75 72 6e 20 61 6e 20 65 6d 70 74 79 20 73 74  turn an empty st
15d0: 72 69 6e 67 2e 0d 0a 20 20 20 20 20 20 20 20 23  ring...        #
15e0: 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e  ..        return
15f0: 20 22 22 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20   ""..      }..  
1600: 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63    }.....    proc
1610: 20 67 65 74 42 75 69 6c 64 43 6f 6e 66 69 67 75   getBuildConfigu
1620: 72 61 74 69 6f 6e 20 7b 7d 20 7b 0d 0a 20 20 20  ration {} {..   
1630: 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f     #..      # NO
1640: 54 45 3a 20 53 65 65 20 69 66 20 74 68 65 20 22  TE: See if the "
1650: 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 22 20 73  configuration" s
1660: 65 74 74 69 6e 67 20 68 61 73 20 62 65 65 6e 20  etting has been 
1670: 6f 76 65 72 72 69 64 64 65 6e 20 62 79 20 74 68  overridden by th
1680: 65 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20  e..      #      
1690: 20 75 73 65 72 20 28 65 2e 67 2e 20 6f 6e 20 74   user (e.g. on t
16a0: 68 65 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 29  he command line)
16b0: 2e 20 20 54 68 69 73 20 68 65 6c 70 73 20 63 6f  .  This helps co
16c0: 6e 74 72 6f 6c 20 65 78 61 63 74 6c 79 0d 0a 20  ntrol exactly.. 
16d0: 20 20 20 20 20 23 20 20 20 20 20 20 20 77 68 69       #       whi
16e0: 63 68 20 73 65 74 20 6f 66 20 62 69 6e 61 72 69  ch set of binari
16f0: 65 73 20 77 65 20 61 72 65 20 74 65 73 74 69 6e  es we are testin
1700: 67 20 28 69 2e 65 2e 20 74 68 6f 73 65 20 62 75  g (i.e. those bu
1710: 69 6c 74 20 69 6e 20 74 68 65 0d 0a 20 20 20 20  ilt in the..    
1720: 20 20 23 20 20 20 20 20 20 20 22 44 65 62 75 67    #       "Debug
1730: 22 20 6f 72 20 22 52 65 6c 65 61 73 65 22 20 62  " or "Release" b
1740: 75 69 6c 64 20 63 6f 6e 66 69 67 75 72 61 74 69  uild configurati
1750: 6f 6e 73 29 2e 20 20 54 6f 20 6f 76 65 72 72 69  ons).  To overri
1760: 64 65 20 74 68 69 73 0d 0a 20 20 20 20 20 20 23  de this..      #
1770: 20 20 20 20 20 20 20 76 61 6c 75 65 20 76 69 61         value via
1780: 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e   the command lin
1790: 65 2c 20 65 6e 74 65 72 20 61 20 63 6f 6d 6d 61  e, enter a comma
17a0: 6e 64 20 73 69 6d 69 6c 61 72 20 74 6f 20 6f 6e  nd similar to on
17b0: 65 20 6f 66 0d 0a 20 20 20 20 20 20 23 20 20 20  e of..      #   
17c0: 20 20 20 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e      the followin
17d0: 67 20 28 61 6c 6c 20 6f 6e 20 6f 6e 65 20 6c 69  g (all on one li
17e0: 6e 65 29 3a 0d 0a 20 20 20 20 20 20 23 0d 0a 20  ne):..      #.. 
17f0: 20 20 20 20 20 23 20 20 20 20 20 20 20 45 61 67       #       Eag
1800: 6c 65 53 68 65 6c 6c 2e 65 78 65 20 2d 70 72 65  leShell.exe -pre
1810: 49 6e 69 74 69 61 6c 69 7a 65 20 22 73 65 74 20  Initialize "set 
1820: 74 65 73 74 5f 63 6f 6e 66 69 67 75 72 61 74 69  test_configurati
1830: 6f 6e 20 44 65 62 75 67 22 0d 0a 20 20 20 20 20  on Debug"..     
1840: 20 23 20 20 20 20 20 20 20 20 20 2d 66 69 6c 65   #         -file
1850: 20 2e 5c 70 61 74 68 5c 74 6f 5c 61 6c 6c 2e 65   .\path\to\all.e
1860: 61 67 6c 65 0d 0a 20 20 20 20 20 20 23 0d 0a 20  agle..      #.. 
1870: 20 20 20 20 20 23 20 20 20 20 20 20 20 45 61 67       #       Eag
1880: 6c 65 53 68 65 6c 6c 2e 65 78 65 20 2d 70 72 65  leShell.exe -pre
1890: 49 6e 69 74 69 61 6c 69 7a 65 20 22 73 65 74 20  Initialize "set 
18a0: 74 65 73 74 5f 63 6f 6e 66 69 67 75 72 61 74 69  test_configurati
18b0: 6f 6e 20 52 65 6c 65 61 73 65 22 0d 0a 20 20 20  on Release"..   
18c0: 20 20 20 23 20 20 20 20 20 20 20 20 20 2d 66 69     #         -fi
18d0: 6c 65 20 2e 5c 70 61 74 68 5c 74 6f 5c 61 6c 6c  le .\path\to\all
18e0: 2e 65 61 67 6c 65 0d 0a 20 20 20 20 20 20 23 0d  .eagle..      #.
18f0: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 45  .      #       E
1900: 61 67 6c 65 53 68 65 6c 6c 2e 65 78 65 20 2d 66  agleShell.exe -f
1910: 69 6c 65 20 2e 5c 70 61 74 68 5c 74 6f 5c 61 6c  ile .\path\to\al
1920: 6c 2e 65 61 67 6c 65 20 2d 70 72 65 54 65 73 74  l.eagle -preTest
1930: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20  ..      #       
1940: 20 20 22 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70    "unset -nocomp
1950: 6c 61 69 6e 20 74 65 73 74 5f 63 6f 6e 66 69 67  lain test_config
1960: 75 72 61 74 69 6f 6e 22 0d 0a 20 20 20 20 20 20  uration"..      
1970: 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 69 6e  #..      if {[in
1980: 66 6f 20 65 78 69 73 74 73 20 3a 3a 74 65 73 74  fo exists ::test
1990: 5f 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 5d 20  _configuration] 
19a0: 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  && \..          
19b0: 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24  [string length $
19c0: 3a 3a 74 65 73 74 5f 63 6f 6e 66 69 67 75 72 61  ::test_configura
19d0: 74 69 6f 6e 5d 20 3e 20 30 7d 20 74 68 65 6e 20  tion] > 0} then 
19e0: 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20  {..        #..  
19f0: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 55 73        # NOTE: Us
1a00: 65 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20  e the specified 
1a10: 74 65 73 74 20 63 6f 6e 66 69 67 75 72 61 74 69  test configurati
1a20: 6f 6e 2e 20 20 54 68 65 20 64 65 66 61 75 6c 74  on.  The default
1a30: 20 76 61 6c 75 65 20 75 73 65 64 0d 0a 20 20 20   value used..   
1a40: 20 20 20 20 20 23 20 20 20 20 20 20 20 66 6f 72       #       for
1a50: 20 74 68 69 73 20 76 61 72 69 61 62 6c 65 20 69   this variable i
1a60: 73 20 74 79 70 69 63 61 6c 6c 79 20 22 52 65 6c  s typically "Rel
1a70: 65 61 73 65 22 2c 20 61 73 20 73 65 74 20 62 79  ease", as set by
1a80: 20 74 68 65 20 74 65 73 74 0d 0a 20 20 20 20 20   the test..     
1a90: 20 20 20 23 20 20 20 20 20 20 20 73 75 69 74 65     #       suite
1aa0: 20 69 74 73 65 6c 66 2e 0d 0a 20 20 20 20 20 20   itself...      
1ab0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 72 65 74    #..        ret
1ac0: 75 72 6e 20 24 3a 3a 74 65 73 74 5f 63 6f 6e 66  urn $::test_conf
1ad0: 69 67 75 72 61 74 69 6f 6e 0d 0a 20 20 20 20 20  iguration..     
1ae0: 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20   } else {..     
1af0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20     #..        # 
1b00: 4e 4f 54 45 3a 20 4e 6f 72 6d 61 6c 6c 79 2c 20  NOTE: Normally, 
1b10: 77 65 20 77 69 6c 6c 20 6e 65 76 65 72 20 68 69  we will never hi
1b20: 74 20 74 68 69 73 20 63 61 73 65 20 62 65 63 61  t this case beca
1b30: 75 73 65 20 74 68 65 20 76 61 6c 75 65 20 6f 66  use the value of
1b40: 20 74 68 65 0d 0a 20 20 20 20 20 20 20 20 23 20   the..        # 
1b50: 20 20 20 20 20 20 74 65 73 74 20 63 6f 6e 66 69        test confi
1b60: 67 75 72 61 74 69 6f 6e 20 76 61 72 69 61 62 6c  guration variabl
1b70: 65 20 69 73 20 61 6c 77 61 79 73 20 73 65 74 20  e is always set 
1b80: 62 79 20 74 68 65 20 74 65 73 74 20 73 75 69 74  by the test suit
1b90: 65 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20  e..        #    
1ba0: 20 20 20 69 74 73 65 6c 66 3b 20 68 6f 77 65 76     itself; howev
1bb0: 65 72 2c 20 69 74 20 63 61 6e 20 62 65 20 6f 76  er, it can be ov
1bc0: 65 72 72 69 64 64 65 6e 20 75 73 69 6e 67 20 74  erridden using t
1bd0: 68 65 20 75 6e 73 65 74 20 63 6f 6d 6d 61 6e 64  he unset command
1be0: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20  ..        #     
1bf0: 20 20 66 72 6f 6d 20 74 68 65 20 2d 70 72 65 54    from the -preT
1c00: 65 73 74 20 6f 70 74 69 6f 6e 20 74 6f 20 74 68  est option to th
1c10: 65 20 74 65 73 74 20 73 75 69 74 65 2e 0d 0a 20  e test suite... 
1c20: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..      
1c30: 20 20 72 65 74 75 72 6e 20 24 3a 3a 65 61 67 6c    return $::eagl
1c40: 65 5f 70 6c 61 74 66 6f 72 6d 28 63 6f 6e 66 69  e_platform(confi
1c50: 67 75 72 61 74 69 6f 6e 29 0d 0a 20 20 20 20 20  guration)..     
1c60: 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20   }..    }.....  
1c70: 20 20 70 72 6f 63 20 67 65 74 42 75 69 6c 64 43    proc getBuildC
1c80: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 73 20 7b 7d  onfigurations {}
1c90: 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20   {..      #..   
1ca0: 20 20 20 23 20 4e 4f 54 45 3a 20 53 65 65 20 69     # NOTE: See i
1cb0: 66 20 74 68 65 20 6c 69 73 74 20 6f 66 20 74 65  f the list of te
1cc0: 73 74 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e  st configuration
1cd0: 73 20 68 61 73 20 62 65 65 6e 20 6f 76 65 72 72  s has been overr
1ce0: 69 64 64 65 6e 20 62 79 0d 0a 20 20 20 20 20 20  idden by..      
1cf0: 23 20 20 20 20 20 20 20 74 68 65 20 75 73 65 72  #       the user
1d00: 20 28 65 2e 67 2e 20 6f 6e 20 74 68 65 20 63 6f   (e.g. on the co
1d10: 6d 6d 61 6e 64 20 6c 69 6e 65 29 2e 0d 0a 20 20  mmand line)...  
1d20: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20      #..      if 
1d30: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a  {[info exists ::
1d40: 74 65 73 74 5f 63 6f 6e 66 69 67 75 72 61 74 69  test_configurati
1d50: 6f 6e 73 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20  ons] && \..     
1d60: 20 20 20 20 20 5b 6c 6c 65 6e 67 74 68 20 24 3a       [llength $:
1d70: 3a 74 65 73 74 5f 63 6f 6e 66 69 67 75 72 61 74  :test_configurat
1d80: 69 6f 6e 73 5d 20 3e 20 30 7d 20 74 68 65 6e 20  ions] > 0} then 
1d90: 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20  {..        #..  
1da0: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 55 73        # NOTE: Us
1db0: 65 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20  e the specified 
1dc0: 6c 69 73 74 20 6f 66 20 74 65 73 74 20 63 6f 6e  list of test con
1dd0: 66 69 67 75 72 61 74 69 6f 6e 73 2e 0d 0a 20 20  figurations...  
1de0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
1df0: 20 72 65 74 75 72 6e 20 24 3a 3a 74 65 73 74 5f   return $::test_
1e00: 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 73 0d 0a  configurations..
1e10: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a        } else {..
1e20: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..     
1e30: 20 20 20 23 20 4e 4f 54 45 3a 20 55 73 65 20 74     # NOTE: Use t
1e40: 68 65 20 64 65 66 61 75 6c 74 20 6c 69 73 74 20  he default list 
1e50: 6f 66 20 74 65 73 74 20 63 6f 6e 66 69 67 75 72  of test configur
1e60: 61 74 69 6f 6e 73 2e 0d 0a 20 20 20 20 20 20 20  ations...       
1e70: 20 23 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75   #..        retu
1e80: 72 6e 20 5b 6c 69 73 74 20 44 65 62 75 67 20 52  rn [list Debug R
1e90: 65 6c 65 61 73 65 5d 0d 0a 20 20 20 20 20 20 7d  elease]..      }
1ea0: 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20  ..    }.....    
1eb0: 70 72 6f 63 20 67 65 74 42 75 69 6c 64 42 61 73  proc getBuildBas
1ec0: 65 44 69 72 65 63 74 6f 72 79 20 7b 7d 20 7b 0d  eDirectory {} {.
1ed0: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20  .      #..      
1ee0: 23 20 4e 4f 54 45 3a 20 46 69 67 75 72 65 20 6f  # NOTE: Figure o
1ef0: 75 74 20 74 68 65 20 62 61 73 65 20 64 69 72 65  ut the base dire
1f00: 63 74 6f 72 79 20 77 68 65 72 65 20 61 6c 6c 20  ctory where all 
1f10: 74 68 65 20 62 75 69 6c 64 73 20 73 68 6f 75 6c  the builds shoul
1f20: 64 20 62 65 0d 0a 20 20 20 20 20 20 23 20 20 20  d be..      #   
1f30: 20 20 20 20 6c 6f 63 61 74 65 64 2e 20 20 54 68      located.  Th
1f40: 69 73 20 77 69 6c 6c 20 62 65 20 74 68 65 20 64  is will be the d
1f50: 69 72 65 63 74 6f 72 79 20 74 68 61 74 20 63 6f  irectory that co
1f60: 6e 74 61 69 6e 73 20 74 68 65 20 61 63 74 75 61  ntains the actua
1f70: 6c 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20  l..      #      
1f80: 20 62 75 69 6c 64 20 6f 75 74 70 75 74 20 64 69   build output di
1f90: 72 65 63 74 6f 72 79 20 28 65 2e 67 2e 20 70 61  rectory (e.g. pa
1fa0: 72 65 6e 74 20 6f 66 20 22 62 69 6e 22 29 2e 0d  rent of "bin")..
1fb0: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20  .      #..      
1fc0: 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73  if {[info exists
1fd0: 20 3a 3a 62 75 69 6c 64 5f 62 61 73 65 5f 64 69   ::build_base_di
1fe0: 72 65 63 74 6f 72 79 5d 20 26 26 20 5c 0d 0a 20  rectory] && \.. 
1ff0: 20 20 20 20 20 20 20 20 20 5b 73 74 72 69 6e 67           [string
2000: 20 6c 65 6e 67 74 68 20 24 3a 3a 62 75 69 6c 64   length $::build
2010: 5f 62 61 73 65 5f 64 69 72 65 63 74 6f 72 79 5d  _base_directory]
2020: 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20   > 0} then {..  
2030: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
2040: 20 23 20 4e 4f 54 45 3a 20 54 68 65 20 6c 6f 63   # NOTE: The loc
2050: 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 62 75 69  ation of the bui
2060: 6c 64 20 62 61 73 65 20 64 69 72 65 63 74 6f 72  ld base director
2070: 79 20 68 61 73 20 62 65 65 6e 20 6f 76 65 72 72  y has been overr
2080: 69 64 64 65 6e 3b 0d 0a 20 20 20 20 20 20 20 20  idden;..        
2090: 23 20 20 20 20 20 20 20 74 68 65 72 65 66 6f 72  #       therefor
20a0: 65 2c 20 75 73 65 20 69 74 20 76 65 72 62 61 74  e, use it verbat
20b0: 69 6d 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a  im...        #..
20c0: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 24          return $
20d0: 3a 3a 62 75 69 6c 64 5f 62 61 73 65 5f 64 69 72  ::build_base_dir
20e0: 65 63 74 6f 72 79 0d 0a 20 20 20 20 20 20 7d 20  ectory..      } 
20f0: 65 6c 73 65 69 66 20 7b 5b 69 6e 66 6f 20 65 78  elseif {[info ex
2100: 69 73 74 73 20 3a 3a 63 6f 6d 6d 6f 6e 5f 64 69  ists ::common_di
2110: 72 65 63 74 6f 72 79 5d 20 26 26 20 5c 0d 0a 20  rectory] && \.. 
2120: 20 20 20 20 20 20 20 20 20 5b 73 74 72 69 6e 67           [string
2130: 20 6c 65 6e 67 74 68 20 24 3a 3a 63 6f 6d 6d 6f   length $::commo
2140: 6e 5f 64 69 72 65 63 74 6f 72 79 5d 20 3e 20 30  n_directory] > 0
2150: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..      
2160: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e    #..        # N
2170: 4f 54 45 3a 20 4e 65 78 74 2c 20 66 61 6c 6c 62  OTE: Next, fallb
2180: 61 63 6b 20 74 6f 20 74 68 65 20 70 61 72 65 6e  ack to the paren
2190: 74 20 64 69 72 65 63 74 6f 72 79 20 6f 66 20 74  t directory of t
21a0: 68 65 20 6f 6e 65 20 63 6f 6e 74 61 69 6e 69 6e  he one containin
21b0: 67 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20  g..        #    
21c0: 20 20 20 74 68 69 73 20 66 69 6c 65 20 28 69 2e     this file (i.
21d0: 65 2e 20 22 63 6f 6d 6d 6f 6e 2e 65 61 67 6c 65  e. "common.eagle
21e0: 22 29 2c 20 69 66 20 61 76 61 69 6c 61 62 6c 65  "), if available
21f0: 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20  ...        #..  
2200: 20 20 20 20 20 20 72 65 74 75 72 6e 20 5b 66 69        return [fi
2210: 6c 65 20 64 69 72 6e 61 6d 65 20 24 3a 3a 63 6f  le dirname $::co
2220: 6d 6d 6f 6e 5f 64 69 72 65 63 74 6f 72 79 5d 0d  mmon_directory].
2230: 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 69 66 20  .      } elseif 
2240: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a  {[info exists ::
2250: 70 61 74 68 5d 20 26 26 20 5c 0d 0a 20 20 20 20  path] && \..    
2260: 20 20 20 20 20 20 5b 73 74 72 69 6e 67 20 6c 65        [string le
2270: 6e 67 74 68 20 24 3a 3a 70 61 74 68 5d 20 3e 20  ngth $::path] > 
2280: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  0} then {..     
2290: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20     #..        # 
22a0: 4e 4f 54 45 3a 20 46 69 6e 61 6c 6c 79 2c 20 66  NOTE: Finally, f
22b0: 61 6c 6c 62 61 63 6b 20 74 6f 20 74 68 65 20 70  allback to the p
22c0: 61 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79 20  arent directory 
22d0: 6f 66 20 74 68 65 20 45 61 67 6c 65 54 65 73 74  of the EagleTest
22e0: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20  ..        #     
22f0: 20 20 70 61 74 68 2e 20 20 54 68 65 20 45 61 67    path.  The Eag
2300: 6c 65 54 65 73 74 20 70 61 63 6b 61 67 65 20 67  leTest package g
2310: 75 61 72 61 6e 74 65 65 73 20 74 68 61 74 20 74  uarantees that t
2320: 68 69 73 20 76 61 72 69 61 62 6c 65 0d 0a 20 20  his variable..  
2330: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 77 69        #       wi
2340: 6c 6c 20 62 65 20 73 65 74 20 74 6f 20 74 68 65  ll be set to the
2350: 20 64 69 72 65 63 74 6f 72 79 20 63 6f 6e 74 61   directory conta
2360: 69 6e 69 6e 67 20 74 68 65 20 66 69 72 73 74 20  ining the first 
2370: 66 69 6c 65 20 74 6f 0d 0a 20 20 20 20 20 20 20  file to..       
2380: 20 23 20 20 20 20 20 20 20 65 78 65 63 75 74 65   #       execute
2390: 20 74 68 65 20 5b 72 75 6e 54 65 73 74 50 72 6f   the [runTestPro
23a0: 6c 6f 67 75 65 5d 20 73 63 72 69 70 74 20 6c 69  logue] script li
23b0: 62 72 61 72 79 20 70 72 6f 63 65 64 75 72 65 2e  brary procedure.
23c0: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20  ..        #..   
23d0: 20 20 20 20 20 72 65 74 75 72 6e 20 5b 66 69 6c       return [fil
23e0: 65 20 64 69 72 6e 61 6d 65 20 24 3a 3a 70 61 74  e dirname $::pat
23f0: 68 5d 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65  h]..      } else
2400: 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20   {..        #.. 
2410: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 4e         # NOTE: N
2420: 6f 20 70 61 74 68 20 69 73 20 61 76 61 69 6c 61  o path is availa
2430: 62 6c 65 2c 20 72 65 74 75 72 6e 20 61 6e 20 65  ble, return an e
2440: 6d 70 74 79 20 73 74 72 69 6e 67 2e 20 20 54 68  mpty string.  Th
2450: 69 73 20 70 6f 69 6e 74 0d 0a 20 20 20 20 20 20  is point..      
2460: 20 20 23 20 20 20 20 20 20 20 73 68 6f 75 6c 64    #       should
2470: 20 6e 6f 74 20 62 65 20 72 65 61 63 68 65 64 2e   not be reached.
2480: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20  ..        #..   
2490: 20 20 20 20 20 72 65 74 75 72 6e 20 22 22 0d 0a       return ""..
24a0: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a        }..    }..
24b0: 0c 0d 0a 20 20 20 20 70 72 6f 63 20 6a 6f 69 6e  ...    proc join
24c0: 42 75 69 6c 64 44 69 72 65 63 74 6f 72 79 20 7b  BuildDirectory {
24d0: 20 6e 61 74 69 76 65 20 70 61 74 68 20 79 65 61   native path yea
24e0: 72 20 70 6c 61 74 66 6f 72 6d 20 63 6f 6e 66 69  r platform confi
24f0: 67 75 72 61 74 69 6f 6e 20 7d 20 7b 0d 0a 20 20  guration } {..  
2500: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e      #..      # N
2510: 4f 54 45 3a 20 46 69 67 75 72 65 20 6f 75 74 20  OTE: Figure out 
2520: 61 6e 64 20 74 68 65 6e 20 72 65 74 75 72 6e 20  and then return 
2530: 74 68 65 20 66 75 6c 6c 79 20 71 75 61 6c 69 66  the fully qualif
2540: 69 65 64 20 70 61 74 68 20 74 6f 20 74 68 65 20  ied path to the 
2550: 62 75 69 6c 64 0d 0a 20 20 20 20 20 20 23 20 20  build..      #  
2560: 20 20 20 20 20 64 69 72 65 63 74 6f 72 79 20 62       directory b
2570: 61 73 65 64 20 6f 6e 20 61 6c 6c 20 74 68 65 20  ased on all the 
2580: 61 72 67 75 6d 65 6e 74 73 20 70 72 6f 76 69 64  arguments provid
2590: 65 64 20 62 79 20 6f 75 72 20 63 61 6c 6c 65 72  ed by our caller
25a0: 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20  ...      #..    
25b0: 20 20 69 66 20 7b 24 6e 61 74 69 76 65 7d 20 74    if {$native} t
25c0: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 72  hen {..        r
25d0: 65 74 75 72 6e 20 5b 66 69 6c 65 20 6a 6f 69 6e  eturn [file join
25e0: 20 24 70 61 74 68 20 62 69 6e 20 24 79 65 61 72   $path bin $year
25f0: 20 24 70 6c 61 74 66 6f 72 6d 20 24 63 6f 6e 66   $platform $conf
2600: 69 67 75 72 61 74 69 6f 6e 5d 0d 0a 20 20 20 20  iguration]..    
2610: 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20    } else {..    
2620: 20 20 20 20 72 65 74 75 72 6e 20 5b 66 69 6c 65      return [file
2630: 20 6a 6f 69 6e 20 24 70 61 74 68 20 62 69 6e 20   join $path bin 
2640: 24 79 65 61 72 20 24 63 6f 6e 66 69 67 75 72 61  $year $configura
2650: 74 69 6f 6e 20 62 69 6e 5d 0d 0a 20 20 20 20 20  tion bin]..     
2660: 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20   }..    }.....  
2670: 20 20 70 72 6f 63 20 67 65 74 42 75 69 6c 64 44    proc getBuildD
2680: 69 72 65 63 74 6f 72 79 20 7b 7d 20 7b 0d 0a 20  irectory {} {.. 
2690: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20       #..      # 
26a0: 4e 4f 54 45 3a 20 53 65 65 20 69 66 20 74 68 65  NOTE: See if the
26b0: 20 22 6e 61 74 69 76 65 22 20 72 75 6e 74 69 6d   "native" runtim
26c0: 65 20 6f 70 74 69 6f 6e 20 68 61 73 20 62 65 65  e option has bee
26d0: 6e 20 73 65 74 2e 20 20 49 66 20 73 6f 2c 20 75  n set.  If so, u
26e0: 73 65 20 74 68 65 0d 0a 20 20 20 20 20 20 23 20  se the..      # 
26f0: 20 20 20 20 20 20 64 69 72 65 63 74 6f 72 79 20        directory 
2700: 66 6f 72 20 74 68 65 20 6d 69 78 65 64 2d 6d 6f  for the mixed-mo
2710: 64 65 20 61 73 73 65 6d 62 6c 79 20 28 61 2e 6b  de assembly (a.k
2720: 2e 61 2e 20 74 68 65 20 6e 61 74 69 76 65 20 69  .a. the native i
2730: 6e 74 65 72 6f 70 0d 0a 20 20 20 20 20 20 23 20  nterop..      # 
2740: 20 20 20 20 20 20 61 73 73 65 6d 62 6c 79 29 2e        assembly).
2750: 20 20 54 6f 20 65 6e 61 62 6c 65 20 74 68 69 73    To enable this
2760: 20 6f 70 74 69 6f 6e 20 76 69 61 20 74 68 65 20   option via the 
2770: 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 2c 20 65 6e  command line, en
2780: 74 65 72 20 61 0d 0a 20 20 20 20 20 20 23 20 20  ter a..      #  
2790: 20 20 20 20 20 63 6f 6d 6d 61 6e 64 20 73 69 6d       command sim
27a0: 69 6c 61 72 20 74 6f 20 6f 6e 65 20 6f 66 20 74  ilar to one of t
27b0: 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 28 61 6c  he following (al
27c0: 6c 20 6f 6e 20 6f 6e 65 20 6c 69 6e 65 29 3a 0d  l on one line):.
27d0: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20  .      #..      
27e0: 23 20 20 20 20 20 20 20 45 61 67 6c 65 53 68 65  #       EagleShe
27f0: 6c 6c 2e 65 78 65 20 2d 69 6e 69 74 69 61 6c 69  ll.exe -initiali
2800: 7a 65 20 2d 72 75 6e 74 69 6d 65 4f 70 74 69 6f  ze -runtimeOptio
2810: 6e 20 6e 61 74 69 76 65 0d 0a 20 20 20 20 20 20  n native..      
2820: 23 20 20 20 20 20 20 20 20 20 2d 66 69 6c 65 20  #         -file 
2830: 2e 5c 70 61 74 68 5c 74 6f 5c 61 6c 6c 2e 65 61  .\path\to\all.ea
2840: 67 6c 65 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  gle..      #..  
2850: 20 20 20 20 23 20 20 20 20 20 20 20 54 6f 20 65      #       To e
2860: 6e 61 62 6c 65 20 74 68 69 73 20 6f 70 74 69 6f  nable this optio
2870: 6e 20 76 69 61 20 74 68 65 20 63 6f 6d 6d 61 6e  n via the comman
2880: 64 20 6c 69 6e 65 20 70 72 69 6f 72 20 74 6f 20  d line prior to 
2890: 74 68 65 20 22 62 65 74 61 20 31 36 22 0d 0a 20  the "beta 16".. 
28a0: 20 20 20 20 20 23 20 20 20 20 20 20 20 72 65 6c       #       rel
28b0: 65 61 73 65 20 6f 66 20 45 61 67 6c 65 2c 20 74  ease of Eagle, t
28c0: 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 63 6f 6d  he following com
28d0: 6d 61 6e 64 20 6d 75 73 74 20 62 65 20 75 73 65  mand must be use
28e0: 64 20 69 6e 73 74 65 61 64 0d 0a 20 20 20 20 20  d instead..     
28f0: 20 23 20 20 20 20 20 20 20 28 61 6c 73 6f 20 61   #       (also a
2900: 6c 6c 20 6f 6e 20 6f 6e 65 20 6c 69 6e 65 29 3a  ll on one line):
2910: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20  ..      #..     
2920: 20 23 20 20 20 20 20 20 20 45 61 67 6c 65 53 68   #       EagleSh
2930: 65 6c 6c 2e 65 78 65 20 2d 69 6e 69 74 69 61 6c  ell.exe -initial
2940: 69 7a 65 20 2d 70 6f 73 74 49 6e 69 74 69 61 6c  ize -postInitial
2950: 69 7a 65 0d 0a 20 20 20 20 20 20 23 20 20 20 20  ize..      #    
2960: 20 20 20 20 20 22 6f 62 6a 65 63 74 20 69 6e 76       "object inv
2970: 6f 6b 65 20 49 6e 74 65 72 70 72 65 74 65 72 2e  oke Interpreter.
2980: 47 65 74 41 63 74 69 76 65 20 41 64 64 52 75 6e  GetActive AddRun
2990: 74 69 6d 65 4f 70 74 69 6f 6e 20 6e 61 74 69 76  timeOption nativ
29a0: 65 22 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20  e"..      #     
29b0: 20 20 20 20 2d 66 69 6c 65 20 2e 5c 70 61 74 68      -file .\path
29c0: 5c 74 6f 5c 61 6c 6c 2e 65 61 67 6c 65 0d 0a 20  \to\all.eagle.. 
29d0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66       #..      if
29e0: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a   {[info exists :
29f0: 3a 62 75 69 6c 64 5f 64 69 72 65 63 74 6f 72 79  :build_directory
2a00: 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 20  ] && \..        
2a10: 20 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68    [string length
2a20: 20 24 3a 3a 62 75 69 6c 64 5f 64 69 72 65 63 74   $::build_direct
2a30: 6f 72 79 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b  ory] > 0} then {
2a40: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20  ..        #..   
2a50: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 65       # NOTE: The
2a60: 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 74 68 65   location of the
2a70: 20 62 75 69 6c 64 20 64 69 72 65 63 74 6f 72 79   build directory
2a80: 20 68 61 73 20 62 65 65 6e 20 6f 76 65 72 72 69   has been overri
2a90: 64 64 65 6e 3b 0d 0a 20 20 20 20 20 20 20 20 23  dden;..        #
2aa0: 20 20 20 20 20 20 20 74 68 65 72 65 66 6f 72 65         therefore
2ab0: 2c 20 75 73 65 20 69 74 20 76 65 72 62 61 74 69  , use it verbati
2ac0: 6d 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20  m...        #.. 
2ad0: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 3a         return $:
2ae0: 3a 62 75 69 6c 64 5f 64 69 72 65 63 74 6f 72 79  :build_directory
2af0: 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b  ..      } else {
2b00: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20  ..        #..   
2b10: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 49 66 20       # NOTE: If 
2b20: 74 68 65 20 22 6e 61 74 69 76 65 22 20 72 75 6e  the "native" run
2b30: 74 69 6d 65 20 6f 70 74 69 6f 6e 20 69 73 20 73  time option is s
2b40: 65 74 2c 20 74 68 65 20 6d 69 78 65 64 2d 6d 6f  et, the mixed-mo
2b50: 64 65 20 61 73 73 65 6d 62 6c 79 0d 0a 20 20 20  de assembly..   
2b60: 20 20 20 20 20 23 20 20 20 20 20 20 20 69 73 20       #       is 
2b70: 62 65 69 6e 67 20 74 65 73 74 65 64 2e 20 20 49  being tested.  I
2b80: 6e 20 74 68 61 74 20 63 61 73 65 2c 20 74 68 65  n that case, the
2b90: 20 70 61 74 68 20 74 6f 20 74 68 65 20 62 75 69   path to the bui
2ba0: 6c 64 20 64 69 72 65 63 74 6f 72 79 0d 0a 20 20  ld directory..  
2bb0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 77 69        #       wi
2bc0: 6c 6c 20 63 6f 6e 74 61 69 6e 20 74 68 65 20 70  ll contain the p
2bd0: 6c 61 74 66 6f 72 6d 20 6e 61 6d 65 20 61 6e 64  latform name and
2be0: 20 61 6c 6c 20 74 68 65 20 62 69 6e 61 72 69 65   all the binarie
2bf0: 73 20 75 6e 64 65 72 20 74 65 73 74 0d 0a 20 20  s under test..  
2c00: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 73 68        #       sh
2c10: 6f 75 6c 64 20 62 65 20 70 72 65 73 65 6e 74 20  ould be present 
2c20: 69 6e 20 74 68 61 74 20 64 69 72 65 63 74 6f 72  in that director
2c30: 79 2e 20 20 49 66 20 74 68 65 20 22 6e 61 74 69  y.  If the "nati
2c40: 76 65 22 20 72 75 6e 74 69 6d 65 0d 0a 20 20 20  ve" runtime..   
2c50: 20 20 20 20 20 23 20 20 20 20 20 20 20 6f 70 74       #       opt
2c60: 69 6f 6e 20 69 73 20 6e 6f 74 20 73 65 74 2c 20  ion is not set, 
2c70: 74 68 65 20 62 75 69 6c 64 20 64 69 72 65 63 74  the build direct
2c80: 6f 72 79 20 77 69 6c 6c 20 62 65 20 63 6f 6e 73  ory will be cons
2c90: 69 64 65 72 65 64 20 74 6f 20 62 65 0d 0a 20 20  idered to be..  
2ca0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 22 70        #       "p
2cb0: 6c 61 74 66 6f 72 6d 2d 6e 65 75 74 72 61 6c 22  latform-neutral"
2cc0: 2c 20 77 69 74 68 20 74 68 65 20 6e 6f 74 61 62  , with the notab
2cd0: 6c 65 20 65 78 63 65 70 74 69 6f 6e 20 6f 66 20  le exception of 
2ce0: 61 6e 79 20 6e 61 74 69 76 65 0d 0a 20 20 20 20  any native..    
2cf0: 20 20 20 20 23 20 20 20 20 20 20 20 61 73 73 65      #       asse
2d00: 6d 62 6c 79 20 28 65 2e 67 2e 20 22 53 51 4c 69  mbly (e.g. "SQLi
2d10: 74 65 2e 49 6e 74 65 72 6f 70 2e 64 6c 6c 22 29  te.Interop.dll")
2d20: 20 63 6f 70 69 65 64 20 74 68 65 72 65 20 64 75   copied there du
2d30: 72 69 6e 67 20 74 68 65 0d 0a 20 20 20 20 20 20  ring the..      
2d40: 20 20 23 20 20 20 20 20 20 20 62 75 69 6c 64 20    #       build 
2d50: 70 72 6f 63 65 73 73 20 69 74 73 65 6c 66 2e 20  process itself. 
2d60: 20 49 66 20 74 68 65 20 62 75 69 6c 64 20 70 72   If the build pr
2d70: 6f 63 65 73 73 20 73 6f 6d 65 68 6f 77 20 64 6f  ocess somehow do
2d80: 65 73 20 6e 6f 74 0d 0a 20 20 20 20 20 20 20 20  es not..        
2d90: 23 20 20 20 20 20 20 20 63 6f 70 79 20 74 68 65  #       copy the
2da0: 20 6e 61 74 69 76 65 20 61 73 73 65 6d 62 6c 79   native assembly
2db0: 20 66 6f 72 20 74 68 69 73 20 70 6c 61 74 66 6f   for this platfo
2dc0: 72 6d 2c 20 6d 6f 73 74 20 6f 66 20 74 68 65 20  rm, most of the 
2dd0: 74 65 73 74 73 0d 0a 20 20 20 20 20 20 20 20 23  tests..        #
2de0: 20 20 20 20 20 20 20 69 6e 20 74 68 65 20 73 75         in the su
2df0: 69 74 65 20 77 69 6c 6c 20 73 69 6d 70 6c 79 20  ite will simply 
2e00: 62 65 20 73 6b 69 70 70 65 64 2e 20 20 47 65 6e  be skipped.  Gen
2e10: 65 72 61 6c 6c 79 20 73 70 65 61 6b 69 6e 67 2c  erally speaking,
2e20: 20 74 68 65 72 65 0d 0a 20 20 20 20 20 20 20 20   there..        
2e30: 23 20 20 20 20 20 20 20 61 72 65 20 74 77 6f 20  #       are two 
2e40: 77 61 79 73 20 74 6f 20 62 75 69 6c 64 20 74 68  ways to build th
2e50: 65 20 62 69 6e 61 72 69 65 73 20 77 68 65 6e 20  e binaries when 
2e60: 70 72 65 70 61 72 69 6e 67 20 74 6f 20 72 75 6e  preparing to run
2e70: 20 74 68 65 0d 0a 20 20 20 20 20 20 20 20 23 20   the..        # 
2e80: 20 20 20 20 20 20 74 65 73 74 20 73 75 69 74 65        test suite
2e90: 3a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20  :..        #..  
2ea0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 31 2e        #       1.
2eb0: 20 42 75 69 6c 64 20 74 68 65 20 73 65 70 61 72   Build the separ
2ec0: 61 74 65 20 6d 61 6e 61 67 65 64 20 61 6e 64 20  ate managed and 
2ed0: 6e 61 74 69 76 65 20 61 73 73 65 6d 62 6c 69 65  native assemblie
2ee0: 73 20 75 73 69 6e 67 20 73 6f 6d 65 0d 0a 20 20  s using some..  
2ef0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 20 20        #         
2f00: 20 63 6f 6d 6d 61 6e 64 73 20 73 69 6d 69 6c 61   commands simila
2f10: 72 20 74 6f 3a 0d 0a 20 20 20 20 20 20 20 20 23  r to:..        #
2f20: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20  ..        #     
2f30: 20 20 20 20 20 62 75 69 6c 64 2e 62 61 74 20 24       build.bat $
2f40: 7b 43 6f 6e 66 69 67 75 72 61 74 69 6f 6e 7d 4d  {Configuration}M
2f50: 61 6e 61 67 65 64 4f 6e 6c 79 20 24 7b 50 6c 61  anagedOnly ${Pla
2f60: 74 66 6f 72 6d 7d 0d 0a 20 20 20 20 20 20 20 20  tform}..        
2f70: 23 20 20 20 20 20 20 20 20 20 20 62 75 69 6c 64  #          build
2f80: 2e 62 61 74 20 24 7b 43 6f 6e 66 69 67 75 72 61  .bat ${Configura
2f90: 74 69 6f 6e 7d 4e 61 74 69 76 65 4f 6e 6c 79 20  tion}NativeOnly 
2fa0: 24 7b 50 6c 61 74 66 6f 72 6d 7d 0d 0a 20 20 20  ${Platform}..   
2fb0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..        
2fc0: 23 20 20 20 20 20 20 20 20 20 20 57 68 65 72 65  #          Where
2fd0: 20 24 7b 43 6f 6e 66 69 67 75 72 61 74 69 6f 6e   ${Configuration
2fe0: 7d 20 69 73 20 65 69 74 68 65 72 20 22 44 65 62  } is either "Deb
2ff0: 75 67 22 20 6f 72 20 22 52 65 6c 65 61 73 65 22  ug" or "Release"
3000: 20 61 6e 64 0d 0a 20 20 20 20 20 20 20 20 23 20   and..        # 
3010: 20 20 20 20 20 20 20 20 20 24 7b 50 6c 61 74 66           ${Platf
3020: 6f 72 6d 7d 20 69 73 20 65 69 74 68 65 72 20 22  orm} is either "
3030: 57 69 6e 33 32 22 20 6f 72 20 22 78 36 34 22 2e  Win32" or "x64".
3040: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20  ..        #..   
3050: 20 20 20 20 20 23 20 20 20 20 20 20 20 32 2e 20       #       2. 
3060: 42 75 69 6c 64 20 74 68 65 20 6d 69 78 65 64 2d  Build the mixed-
3070: 6d 6f 64 65 20 61 73 73 65 6d 62 6c 79 20 75 73  mode assembly us
3080: 69 6e 67 20 61 20 63 6f 6d 6d 61 6e 64 20 73 69  ing a command si
3090: 6d 69 6c 61 72 20 74 6f 3a 0d 0a 20 20 20 20 20  milar to:..     
30a0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20     #..        # 
30b0: 20 20 20 20 20 20 20 20 20 62 75 69 6c 64 2e 62           build.b
30c0: 61 74 20 24 7b 43 6f 6e 66 69 67 75 72 61 74 69  at ${Configurati
30d0: 6f 6e 7d 20 24 7b 50 6c 61 74 66 6f 72 6d 7d 0d  on} ${Platform}.
30e0: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20  .        #..    
30f0: 20 20 20 20 23 20 20 20 20 20 20 20 20 20 20 57      #          W
3100: 68 65 72 65 20 24 7b 43 6f 6e 66 69 67 75 72 61  here ${Configura
3110: 74 69 6f 6e 7d 20 69 73 20 65 69 74 68 65 72 20  tion} is either 
3120: 22 44 65 62 75 67 22 20 6f 72 20 22 52 65 6c 65  "Debug" or "Rele
3130: 61 73 65 22 20 61 6e 64 0d 0a 20 20 20 20 20 20  ase" and..      
3140: 20 20 23 20 20 20 20 20 20 20 20 20 20 24 7b 50    #          ${P
3150: 6c 61 74 66 6f 72 6d 7d 20 69 73 20 65 69 74 68  latform} is eith
3160: 65 72 20 22 57 69 6e 33 32 22 20 6f 72 20 22 78  er "Win32" or "x
3170: 36 34 22 2e 20 20 49 66 20 74 68 69 73 20 63 6f  64".  If this co
3180: 6d 6d 61 6e 64 20 69 73 0d 0a 20 20 20 20 20 20  mmand is..      
3190: 20 20 23 20 20 20 20 20 20 20 20 20 20 75 73 65    #          use
31a0: 64 2c 20 76 61 72 69 6f 75 73 20 74 65 73 74 73  d, various tests
31b0: 20 74 68 61 74 20 72 65 71 75 69 72 65 20 73 75   that require su
31c0: 70 70 6c 65 6d 65 6e 74 61 72 79 20 6d 61 6e 61  pplementary mana
31d0: 67 65 64 0d 0a 20 20 20 20 20 20 20 20 23 20 20  ged..        #  
31e0: 20 20 20 20 20 20 20 20 61 73 73 65 6d 62 6c 69          assembli
31f0: 65 73 20 28 65 2e 67 2e 20 4c 49 4e 51 29 20 6d  es (e.g. LINQ) m
3200: 61 79 20 62 65 20 73 6b 69 70 70 65 64 20 75 6e  ay be skipped un
3210: 6c 65 73 73 20 74 68 6f 73 65 20 62 69 6e 61 72  less those binar
3220: 69 65 73 0d 0a 20 20 20 20 20 20 20 20 23 20 20  ies..        #  
3230: 20 20 20 20 20 20 20 20 61 72 65 20 73 75 62 73          are subs
3240: 65 71 75 65 6e 74 6c 79 20 63 6f 70 69 65 64 20  equently copied 
3250: 69 6e 74 6f 20 74 68 65 20 63 6f 72 72 65 63 74  into the correct
3260: 20 64 69 72 65 63 74 6f 72 79 20 28 69 2e 65 2e   directory (i.e.
3270: 20 62 79 0d 0a 20 20 20 20 20 20 20 20 23 20 20   by..        #  
3280: 20 20 20 20 20 20 20 20 22 74 65 73 74 5f 61 6c          "test_al
3290: 6c 2e 62 61 74 22 29 2e 0d 0a 20 20 20 20 20 20  l.bat")...      
32a0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 20    #..        #  
32b0: 20 20 20 20 20 4e 6f 74 65 20 74 68 61 74 20 61       Note that a
32c0: 6c 6c 20 6f 66 20 74 68 65 20 62 75 69 6c 64 20  ll of the build 
32d0: 63 6f 6d 6d 61 6e 64 73 20 61 62 6f 76 65 20 77  commands above w
32e0: 69 6c 6c 20 64 65 66 61 75 6c 74 20 74 6f 20 75  ill default to u
32f0: 73 69 6e 67 0d 0a 20 20 20 20 20 20 20 20 23 20  sing..        # 
3300: 20 20 20 20 20 20 74 68 65 20 6c 61 74 65 73 74        the latest
3310: 20 76 65 72 73 69 6f 6e 20 6f 66 20 4d 53 42 75   version of MSBu
3320: 69 6c 64 20 61 76 61 69 6c 61 62 6c 65 20 61 6e  ild available an
3330: 64 20 74 68 65 20 22 74 65 73 74 5f 79 65 61 72  d the "test_year
3340: 22 20 6d 61 79 0d 0a 20 20 20 20 20 20 20 20 23  " may..        #
3350: 20 20 20 20 20 20 20 6e 65 65 64 20 74 6f 20 62         need to b
3360: 65 20 61 64 6a 75 73 74 65 64 20 61 63 63 6f 72  e adjusted accor
3370: 64 69 6e 67 6c 79 20 74 6f 20 61 63 74 75 61 6c  dingly to actual
3380: 6c 79 20 72 75 6e 20 74 68 65 20 74 65 73 74 20  ly run the test 
3390: 73 75 69 74 65 2e 0d 0a 20 20 20 20 20 20 20 20  suite...        
33a0: 23 20 20 20 20 20 20 20 52 65 66 65 72 20 74 6f  #       Refer to
33b0: 20 74 68 65 20 63 6f 6d 6d 65 6e 74 73 20 69 6e   the comments in
33c0: 20 5b 67 65 74 42 75 69 6c 64 59 65 61 72 5d 20   [getBuildYear] 
33d0: 66 6f 72 20 6d 6f 72 65 20 69 6e 66 6f 72 6d 61  for more informa
33e0: 74 69 6f 6e 20 6f 6e 0d 0a 20 20 20 20 20 20 20  tion on..       
33f0: 20 23 20 20 20 20 20 20 20 68 6f 77 20 74 6f 20   #       how to 
3400: 73 65 74 20 74 68 69 73 20 76 61 72 69 61 62 6c  set this variabl
3410: 65 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20  e...        #.. 
3420: 20 20 20 20 20 20 20 73 65 74 20 6e 61 74 69 76         set nativ
3430: 65 20 5b 68 61 73 52 75 6e 74 69 6d 65 4f 70 74  e [hasRuntimeOpt
3440: 69 6f 6e 20 6e 61 74 69 76 65 5d 0d 0a 0d 0a 20  ion native].... 
3450: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 5b 6a         return [j
3460: 6f 69 6e 42 75 69 6c 64 44 69 72 65 63 74 6f 72  oinBuildDirector
3470: 79 20 24 6e 61 74 69 76 65 20 5b 67 65 74 42 75  y $native [getBu
3480: 69 6c 64 42 61 73 65 44 69 72 65 63 74 6f 72 79  ildBaseDirectory
3490: 5d 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20  ] \..           
34a0: 20 5b 67 65 74 42 75 69 6c 64 59 65 61 72 5d 20   [getBuildYear] 
34b0: 5b 67 65 74 42 75 69 6c 64 50 6c 61 74 66 6f 72  [getBuildPlatfor
34c0: 6d 20 24 6e 61 74 69 76 65 5d 20 5b 67 65 74 42  m $native] [getB
34d0: 75 69 6c 64 43 6f 6e 66 69 67 75 72 61 74 69 6f  uildConfiguratio
34e0: 6e 5d 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20  n]]..      }..  
34f0: 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63    }.....    proc
3500: 20 67 65 74 42 75 69 6c 64 46 69 6c 65 4e 61 6d   getBuildFileNam
3510: 65 20 7b 20 66 69 6c 65 4e 61 6d 65 20 7d 20 7b  e { fileName } {
3520: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20  ..      #..     
3530: 20 23 20 4e 4f 54 45 3a 20 52 65 74 75 72 6e 73   # NOTE: Returns
3540: 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 66   the specified f
3550: 69 6c 65 20 6e 61 6d 65 20 61 73 20 69 66 20 69  ile name as if i
3560: 74 20 77 65 72 65 20 6c 6f 63 61 74 65 64 20 69  t were located i
3570: 6e 20 74 68 65 0d 0a 20 20 20 20 20 20 23 20 20  n the..      #  
3580: 20 20 20 20 20 62 75 69 6c 64 20 64 69 72 65 63       build direc
3590: 74 6f 72 79 2c 20 64 69 73 63 61 72 64 69 6e 67  tory, discarding
35a0: 20 61 6e 79 20 64 69 72 65 63 74 6f 72 79 20 69   any directory i
35b0: 6e 66 6f 72 6d 61 74 69 6f 6e 20 70 72 65 73 65  nformation prese
35c0: 6e 74 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20  nt..      #     
35d0: 20 20 69 6e 20 74 68 65 20 66 69 6c 65 20 6e 61    in the file na
35e0: 6d 65 20 61 73 20 70 72 6f 76 69 64 65 64 20 62  me as provided b
35f0: 79 20 6f 75 72 20 63 61 6c 6c 65 72 2e 0d 0a 20  y our caller... 
3600: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 72 65       #..      re
3610: 74 75 72 6e 20 5b 66 69 6c 65 20 6e 61 74 69 76  turn [file nativ
3620: 65 6e 61 6d 65 20 5c 0d 0a 20 20 20 20 20 20 20  ename \..       
3630: 20 20 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 67     [file join [g
3640: 65 74 42 75 69 6c 64 44 69 72 65 63 74 6f 72 79  etBuildDirectory
3650: 5d 20 5b 66 69 6c 65 20 74 61 69 6c 20 24 66 69  ] [file tail $fi
3660: 6c 65 4e 61 6d 65 5d 5d 5d 0d 0a 20 20 20 20 7d  leName]]]..    }
3670: 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 67 65  .....    proc ge
3680: 74 42 69 6e 61 72 79 44 69 72 65 63 74 6f 72 79  tBinaryDirectory
3690: 20 7b 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a   {} {..      #..
36a0: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 68        # NOTE: Th
36b0: 69 73 20 70 72 6f 63 65 64 75 72 65 20 72 65 74  is procedure ret
36c0: 75 72 6e 73 20 74 68 65 20 64 69 72 65 63 74 6f  urns the directo
36d0: 72 79 20 77 68 65 72 65 20 74 68 65 20 74 65 73  ry where the tes
36e0: 74 20 61 70 70 6c 69 63 61 74 69 6f 6e 0d 0a 20  t application.. 
36f0: 20 20 20 20 20 23 20 20 20 20 20 20 20 69 74 73       #       its
3700: 65 6c 66 20 28 69 2e 65 2e 20 74 68 65 20 45 61  elf (i.e. the Ea
3710: 67 6c 65 20 73 68 65 6c 6c 29 20 69 73 20 6c 6f  gle shell) is lo
3720: 63 61 74 65 64 2e 20 20 54 68 69 73 20 77 69 6c  cated.  This wil
3730: 6c 20 62 65 20 75 73 65 64 20 61 73 0d 0a 20 20  l be used as..  
3740: 20 20 20 20 23 20 20 20 20 20 20 20 74 68 65 20      #       the 
3750: 64 65 73 74 69 6e 61 74 69 6f 6e 20 66 6f 72 20  destination for 
3760: 74 68 65 20 63 6f 70 69 65 64 20 53 79 73 74 65  the copied Syste
3770: 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 20 6e 61  m.Data.SQLite na
3780: 74 69 76 65 20 61 6e 64 0d 0a 20 20 20 20 20 20  tive and..      
3790: 23 20 20 20 20 20 20 20 6d 61 6e 61 67 65 64 20  #       managed 
37a0: 61 73 73 65 6d 62 6c 69 65 73 20 28 69 2e 65 2e  assemblies (i.e.
37b0: 20 62 65 63 61 75 73 65 20 74 68 69 73 20 69 73   because this is
37c0: 20 6f 6e 65 20 6f 66 20 74 68 65 20 66 65 77 20   one of the few 
37d0: 70 6c 61 63 65 73 0d 0a 20 20 20 20 20 20 23 20  places..      # 
37e0: 20 20 20 20 20 20 77 68 65 72 65 20 74 68 65 20        where the 
37f0: 43 4c 52 20 77 69 6c 6c 20 61 63 74 75 61 6c 6c  CLR will actuall
3800: 79 20 66 69 6e 64 20 61 6e 64 20 6c 6f 61 64 20  y find and load 
3810: 74 68 65 6d 20 70 72 6f 70 65 72 6c 79 29 2e 0d  them properly)..
3820: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20  .      #..      
3830: 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73  if {[info exists
3840: 20 3a 3a 62 69 6e 61 72 79 5f 64 69 72 65 63 74   ::binary_direct
3850: 6f 72 79 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20  ory] && \..     
3860: 20 20 20 20 20 5b 73 74 72 69 6e 67 20 6c 65 6e       [string len
3870: 67 74 68 20 24 3a 3a 62 69 6e 61 72 79 5f 64 69  gth $::binary_di
3880: 72 65 63 74 6f 72 79 5d 20 3e 20 30 7d 20 74 68  rectory] > 0} th
3890: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d  en {..        #.
38a0: 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a  .        # NOTE:
38b0: 20 54 68 65 20 6c 6f 63 61 74 69 6f 6e 20 6f 66   The location of
38c0: 20 74 68 65 20 62 69 6e 61 72 79 20 64 69 72 65   the binary dire
38d0: 63 74 6f 72 79 20 68 61 73 20 62 65 65 6e 20 6f  ctory has been o
38e0: 76 65 72 72 69 64 64 65 6e 3b 0d 0a 20 20 20 20  verridden;..    
38f0: 20 20 20 20 23 20 20 20 20 20 20 20 74 68 65 72      #       ther
3900: 65 66 6f 72 65 2c 20 75 73 65 20 69 74 20 76 65  efore, use it ve
3910: 72 62 61 74 69 6d 2e 0d 0a 20 20 20 20 20 20 20  rbatim...       
3920: 20 23 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75   #..        retu
3930: 72 6e 20 24 3a 3a 62 69 6e 61 72 79 5f 64 69 72  rn $::binary_dir
3940: 65 63 74 6f 72 79 0d 0a 20 20 20 20 20 20 7d 20  ectory..      } 
3950: 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20  else {..        
3960: 72 65 74 75 72 6e 20 5b 69 6e 66 6f 20 62 69 6e  return [info bin
3970: 61 72 79 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20  ary]..      }.. 
3980: 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f     }.....    pro
3990: 63 20 67 65 74 42 69 6e 61 72 79 46 69 6c 65 4e  c getBinaryFileN
39a0: 61 6d 65 20 7b 20 66 69 6c 65 4e 61 6d 65 20 7d  ame { fileName }
39b0: 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20   {..      #..   
39c0: 20 20 20 23 20 4e 4f 54 45 3a 20 52 65 74 75 72     # NOTE: Retur
39d0: 6e 73 20 74 68 65 20 73 70 65 63 69 66 69 65 64  ns the specified
39e0: 20 66 69 6c 65 20 6e 61 6d 65 20 61 73 20 69 66   file name as if
39f0: 20 69 74 20 77 65 72 65 20 6c 6f 63 61 74 65 64   it were located
3a00: 20 69 6e 20 74 68 65 0d 0a 20 20 20 20 20 20 23   in the..      #
3a10: 20 20 20 20 20 20 20 62 69 6e 61 72 79 20 64 69         binary di
3a20: 72 65 63 74 6f 72 79 2c 20 64 69 73 63 61 72 64  rectory, discard
3a30: 69 6e 67 20 61 6e 79 20 64 69 72 65 63 74 6f 72  ing any director
3a40: 79 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 70 72  y information pr
3a50: 65 73 65 6e 74 0d 0a 20 20 20 20 20 20 23 20 20  esent..      #  
3a60: 20 20 20 20 20 69 6e 20 74 68 65 20 66 69 6c 65       in the file
3a70: 20 6e 61 6d 65 20 61 73 20 70 72 6f 76 69 64 65   name as provide
3a80: 64 20 62 79 20 6f 75 72 20 63 61 6c 6c 65 72 2e  d by our caller.
3a90: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20  ..      #..     
3aa0: 20 72 65 74 75 72 6e 20 5b 66 69 6c 65 20 6e 61   return [file na
3ab0: 74 69 76 65 6e 61 6d 65 20 5c 0d 0a 20 20 20 20  tivename \..    
3ac0: 20 20 20 20 20 20 5b 66 69 6c 65 20 6a 6f 69 6e        [file join
3ad0: 20 5b 67 65 74 42 69 6e 61 72 79 44 69 72 65 63   [getBinaryDirec
3ae0: 74 6f 72 79 5d 20 5b 66 69 6c 65 20 74 61 69 6c  tory] [file tail
3af0: 20 24 66 69 6c 65 4e 61 6d 65 5d 5d 5d 0d 0a 20   $fileName]]].. 
3b00: 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f     }.....    pro
3b10: 63 20 67 65 74 43 6f 72 65 42 69 6e 61 72 79 46  c getCoreBinaryF
3b20: 69 6c 65 4e 61 6d 65 20 7b 20 7b 73 74 61 6e 64  ileName { {stand
3b30: 61 72 64 20 66 61 6c 73 65 7d 20 7d 20 7b 0d 0a  ard false} } {..
3b40: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23        #..      #
3b50: 20 4e 4f 54 45 3a 20 52 65 74 75 72 6e 73 20 74   NOTE: Returns t
3b60: 68 65 20 66 75 6c 6c 20 70 61 74 68 20 66 6f 72  he full path for
3b70: 20 74 68 65 20 66 69 6c 65 20 63 6f 6e 74 61 69   the file contai
3b80: 6e 69 6e 67 20 74 68 65 20 63 6f 72 65 20 53 51  ning the core SQ
3b90: 4c 69 74 65 0d 0a 20 20 20 20 20 20 23 20 20 20  Lite..      #   
3ba0: 20 20 20 20 6c 69 62 72 61 72 79 20 63 6f 64 65      library code
3bb0: 20 66 6f 72 20 74 68 69 73 20 70 6c 61 74 66 6f   for this platfo
3bc0: 72 6d 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  rm...      #..  
3bd0: 20 20 20 20 69 66 20 7b 5b 68 61 73 52 75 6e 74      if {[hasRunt
3be0: 69 6d 65 4f 70 74 69 6f 6e 20 6e 61 74 69 76 65  imeOption native
3bf0: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  ]} then {..     
3c00: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20     #..        # 
3c10: 4e 4f 54 45 3a 20 52 65 74 75 72 6e 20 74 68 65  NOTE: Return the
3c20: 20 6d 69 78 65 64 2d 6d 6f 64 65 20 61 73 73 65   mixed-mode asse
3c30: 6d 62 6c 79 20 66 69 6c 65 20 6e 61 6d 65 2e 0d  mbly file name..
3c40: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20  .        #..    
3c50: 20 20 20 20 72 65 74 75 72 6e 20 5b 66 69 6c 65      return [file
3c60: 20 6e 61 74 69 76 65 6e 61 6d 65 20 5c 0d 0a 20   nativename \.. 
3c70: 20 20 20 20 20 20 20 20 20 20 20 5b 66 69 6c 65             [file
3c80: 20 6a 6f 69 6e 20 5b 67 65 74 42 69 6e 61 72 79   join [getBinary
3c90: 44 69 72 65 63 74 6f 72 79 5d 20 53 79 73 74 65  Directory] Syste
3ca0: 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 64 6c  m.Data.SQLite.dl
3cb0: 6c 5d 5d 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73  l]]..      } els
3cc0: 65 69 66 20 7b 24 73 74 61 6e 64 61 72 64 7d 20  eif {$standard} 
3cd0: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20  then {..        
3ce0: 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54  #..        # NOT
3cf0: 45 3a 20 52 65 74 75 72 6e 20 74 68 65 20 6e 61  E: Return the na
3d00: 74 69 76 65 2d 6f 6e 6c 79 20 73 74 61 6e 64 61  tive-only standa
3d10: 72 64 20 53 51 4c 69 74 65 20 6c 69 62 72 61 72  rd SQLite librar
3d20: 79 20 66 69 6c 65 20 6e 61 6d 65 2e 0d 0a 20 20  y file name...  
3d30: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
3d40: 20 72 65 74 75 72 6e 20 5b 66 69 6c 65 20 6e 61   return [file na
3d50: 74 69 76 65 6e 61 6d 65 20 5c 0d 0a 20 20 20 20  tivename \..    
3d60: 20 20 20 20 20 20 20 20 5b 66 69 6c 65 20 6a 6f          [file jo
3d70: 69 6e 20 5b 67 65 74 42 69 6e 61 72 79 44 69 72  in [getBinaryDir
3d80: 65 63 74 6f 72 79 5d 20 73 71 6c 69 74 65 33 2e  ectory] sqlite3.
3d90: 64 6c 6c 5d 5d 0d 0a 20 20 20 20 20 20 7d 20 65  dll]]..      } e
3da0: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 23  lse {..        #
3db0: 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45  ..        # NOTE
3dc0: 3a 20 52 65 74 75 72 6e 20 74 68 65 20 6e 61 74  : Return the nat
3dd0: 69 76 65 2d 6f 6e 6c 79 20 69 6e 74 65 72 6f 70  ive-only interop
3de0: 20 61 73 73 65 6d 62 6c 79 20 66 69 6c 65 20 6e   assembly file n
3df0: 61 6d 65 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d  ame...        #.
3e00: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20  .        return 
3e10: 5b 66 69 6c 65 20 6e 61 74 69 76 65 6e 61 6d 65  [file nativename
3e20: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   \..            
3e30: 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 67 65 74 42  [file join [getB
3e40: 69 6e 61 72 79 44 69 72 65 63 74 6f 72 79 5d 20  inaryDirectory] 
3e50: 53 51 4c 69 74 65 2e 49 6e 74 65 72 6f 70 2e 64  SQLite.Interop.d
3e60: 6c 6c 5d 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20  ll]]..      }.. 
3e70: 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f     }.....    pro
3e80: 63 20 67 65 74 43 6f 6d 6d 6f 6e 44 69 72 65 63  c getCommonDirec
3e90: 74 6f 72 79 20 7b 7d 20 7b 0d 0a 20 20 20 20 20  tory {} {..     
3ea0: 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45   #..      # NOTE
3eb0: 3a 20 54 68 69 73 20 70 72 6f 63 65 64 75 72 65  : This procedure
3ec0: 20 72 65 74 75 72 6e 73 20 74 68 65 20 64 69 72   returns the dir
3ed0: 65 63 74 6f 72 79 20 77 68 65 72 65 20 74 68 65  ectory where the
3ee0: 20 74 65 73 74 20 73 63 72 69 70 74 73 0d 0a 20   test scripts.. 
3ef0: 20 20 20 20 20 23 20 20 20 20 20 20 20 73 68 6f       #       sho
3f00: 75 6c 64 20 62 65 20 6c 6f 63 61 74 65 64 2e 20  uld be located. 
3f10: 20 42 79 20 64 65 66 61 75 6c 74 2c 20 74 68 69   By default, thi
3f20: 73 20 6a 75 73 74 20 72 65 74 75 72 6e 73 20 74  s just returns t
3f30: 68 65 20 45 61 67 6c 65 0d 0a 20 20 20 20 20 20  he Eagle..      
3f40: 23 20 20 20 20 20 20 20 62 69 6e 61 72 79 20 64  #       binary d
3f50: 69 72 65 63 74 6f 72 79 2e 0d 0a 20 20 20 20 20  irectory...     
3f60: 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 69   #..      if {[i
3f70: 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 63 6f 6d  nfo exists ::com
3f80: 6d 6f 6e 5f 64 69 72 65 63 74 6f 72 79 5d 20 26  mon_directory] &
3f90: 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 5b  & \..          [
3fa0: 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 3a  string length $:
3fb0: 3a 63 6f 6d 6d 6f 6e 5f 64 69 72 65 63 74 6f 72  :common_director
3fc0: 79 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a  y] > 0} then {..
3fd0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..     
3fe0: 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 65 20 6c     # NOTE: The l
3ff0: 6f 63 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 63  ocation of the c
4000: 6f 6d 6d 6f 6e 20 64 69 72 65 63 74 6f 72 79 20  ommon directory 
4010: 68 61 73 20 62 65 65 6e 20 73 65 74 3b 0d 0a 20  has been set;.. 
4020: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 74         #       t
4030: 68 65 72 65 66 6f 72 65 2c 20 75 73 65 20 69 74  herefore, use it
4040: 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20  ...        #..  
4050: 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 3a 3a        return $::
4060: 63 6f 6d 6d 6f 6e 5f 64 69 72 65 63 74 6f 72 79  common_directory
4070: 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 69 66  ..      } elseif
4080: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a   {[info exists :
4090: 3a 76 65 6e 64 6f 72 5f 64 69 72 65 63 74 6f 72  :vendor_director
40a0: 79 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20 20 20  y] && \..       
40b0: 20 20 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74     [string lengt
40c0: 68 20 24 3a 3a 76 65 6e 64 6f 72 5f 64 69 72 65  h $::vendor_dire
40d0: 63 74 6f 72 79 5d 20 3e 20 30 7d 20 74 68 65 6e  ctory] > 0} then
40e0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20   {..        #.. 
40f0: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 54         # NOTE: T
4100: 68 65 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 74  he location of t
4110: 68 65 20 76 65 6e 64 6f 72 20 64 69 72 65 63 74  he vendor direct
4120: 6f 72 79 20 68 61 73 20 62 65 65 6e 20 73 65 74  ory has been set
4130: 3b 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20  ;..        #    
4140: 20 20 20 74 68 65 72 65 66 6f 72 65 2c 20 75 73     therefore, us
4150: 65 20 69 74 2e 0d 0a 20 20 20 20 20 20 20 20 23  e it...        #
4160: 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e  ..        return
4170: 20 24 3a 3a 76 65 6e 64 6f 72 5f 64 69 72 65 63   $::vendor_direc
4180: 74 6f 72 79 0d 0a 20 20 20 20 20 20 7d 20 65 6c  tory..      } el
4190: 73 65 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73  seif {[info exis
41a0: 74 73 20 3a 3a 74 63 6c 5f 6c 69 62 72 61 72 79  ts ::tcl_library
41b0: 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 20  ] && \..        
41c0: 20 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68    [string length
41d0: 20 24 3a 3a 74 63 6c 5f 6c 69 62 72 61 72 79 5d   $::tcl_library]
41e0: 20 3e 20 30 20 26 26 20 5c 0d 0a 20 20 20 20 20   > 0 && \..     
41f0: 20 20 20 20 20 5b 66 69 6c 65 20 69 73 64 69 72       [file isdir
4200: 65 63 74 6f 72 79 20 24 3a 3a 74 63 6c 5f 6c 69  ectory $::tcl_li
4210: 62 72 61 72 79 5d 7d 20 74 68 65 6e 20 7b 0d 0a  brary]} then {..
4220: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..     
4230: 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 65 20 76     # NOTE: The v
4240: 61 72 69 61 62 6c 65 20 77 69 74 68 20 74 68 65  ariable with the
4250: 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 74 68 65   location of the
4260: 20 73 63 72 69 70 74 20 6c 69 62 72 61 72 79 20   script library 
4270: 69 73 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20  is..        #   
4280: 20 20 20 20 73 65 74 20 61 6e 64 20 61 70 70 65      set and appe
4290: 61 72 73 20 74 6f 20 62 65 20 61 20 72 65 61 6c  ars to be a real
42a0: 20 64 69 72 65 63 74 6f 72 79 20 28 69 2e 65 2e   directory (i.e.
42b0: 20 6e 6f 74 20 65 6d 62 65 64 64 65 64 0d 0a 20   not embedded.. 
42c0: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 77         #       w
42d0: 69 74 68 69 6e 20 61 20 66 69 6c 65 29 3b 20 74  ithin a file); t
42e0: 68 65 72 65 66 6f 72 65 2c 20 75 73 65 20 69 74  herefore, use it
42f0: 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20  ...        #..  
4300: 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 3a 3a        return $::
4310: 74 63 6c 5f 6c 69 62 72 61 72 79 0d 0a 20 20 20  tcl_library..   
4320: 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20     } else {..   
4330: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..        
4340: 23 20 4e 4f 54 45 3a 20 46 61 6c 6c 62 61 63 6b  # NOTE: Fallback
4350: 20 74 6f 20 74 68 65 20 64 69 72 65 63 74 6f 72   to the director
4360: 79 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 65  y containing the
4370: 20 65 78 65 63 75 74 61 62 6c 65 2e 0d 0a 20 20   executable...  
4380: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
4390: 20 72 65 74 75 72 6e 20 5b 69 6e 66 6f 20 62 69   return [info bi
43a0: 6e 61 72 79 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a  nary]..      }..
43b0: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72      }.....    pr
43c0: 6f 63 20 67 65 74 44 61 74 61 62 61 73 65 44 69  oc getDatabaseDi
43d0: 72 65 63 74 6f 72 79 20 7b 7d 20 7b 0d 0a 20 20  rectory {} {..  
43e0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e      #..      # N
43f0: 4f 54 45 3a 20 54 68 69 73 20 70 72 6f 63 65 64  OTE: This proced
4400: 75 72 65 20 72 65 74 75 72 6e 73 20 74 68 65 20  ure returns the 
4410: 64 69 72 65 63 74 6f 72 79 20 77 68 65 72 65 20  directory where 
4420: 74 68 65 20 74 65 73 74 20 64 61 74 61 62 61 73  the test databas
4430: 65 73 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20  es..      #     
4440: 20 20 73 68 6f 75 6c 64 20 62 65 20 6c 6f 63 61    should be loca
4450: 74 65 64 2e 20 20 42 79 20 64 65 66 61 75 6c 74  ted.  By default
4460: 2c 20 74 68 69 73 20 6a 75 73 74 20 75 73 65 73  , this just uses
4470: 20 74 68 65 20 74 65 6d 70 6f 72 61 72 79 0d 0a   the temporary..
4480: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 64 69        #       di
4490: 72 65 63 74 6f 72 79 20 63 6f 6e 66 69 67 75 72  rectory configur
44a0: 65 64 20 66 6f 72 20 74 68 69 73 20 73 79 73 74  ed for this syst
44b0: 65 6d 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  em...      #..  
44c0: 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78      if {[info ex
44d0: 69 73 74 73 20 3a 3a 64 61 74 61 62 61 73 65 5f  ists ::database_
44e0: 64 69 72 65 63 74 6f 72 79 5d 20 26 26 20 5c 0d  directory] && \.
44f0: 0a 20 20 20 20 20 20 20 20 20 20 5b 73 74 72 69  .          [stri
4500: 6e 67 20 6c 65 6e 67 74 68 20 24 3a 3a 64 61 74  ng length $::dat
4510: 61 62 61 73 65 5f 64 69 72 65 63 74 6f 72 79 5d  abase_directory]
4520: 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20   > 0} then {..  
4530: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
4540: 20 23 20 4e 4f 54 45 3a 20 54 68 65 20 6c 6f 63   # NOTE: The loc
4550: 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 64 61 74  ation of the dat
4560: 61 62 61 73 65 20 64 69 72 65 63 74 6f 72 79 20  abase directory 
4570: 68 61 73 20 62 65 65 6e 20 6f 76 65 72 72 69 64  has been overrid
4580: 64 65 6e 3b 0d 0a 20 20 20 20 20 20 20 20 23 20  den;..        # 
4590: 20 20 20 20 20 20 74 68 65 72 65 66 6f 72 65 2c        therefore,
45a0: 20 75 73 65 20 69 74 2e 0d 0a 20 20 20 20 20 20   use it...      
45b0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 72 65 74    #..        ret
45c0: 75 72 6e 20 24 3a 3a 64 61 74 61 62 61 73 65 5f  urn $::database_
45d0: 64 69 72 65 63 74 6f 72 79 0d 0a 20 20 20 20 20  directory..     
45e0: 20 7d 20 65 6c 73 65 69 66 20 7b 5b 69 6e 66 6f   } elseif {[info
45f0: 20 65 78 69 73 74 73 20 3a 3a 73 63 72 61 74 63   exists ::scratc
4600: 68 5f 64 69 72 65 63 74 6f 72 79 5d 20 26 26 20  h_directory] && 
4610: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 5b 73 74  \..          [st
4620: 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 3a 3a 73  ring length $::s
4630: 63 72 61 74 63 68 5f 64 69 72 65 63 74 6f 72 79  cratch_directory
4640: 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20  ] > 0} then {.. 
4650: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..      
4660: 20 20 23 20 4e 4f 54 45 3a 20 54 68 65 20 6c 6f    # NOTE: The lo
4670: 63 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 73 63  cation of the sc
4680: 72 61 74 63 68 20 64 69 72 65 63 74 6f 72 79 20  ratch directory 
4690: 68 61 73 20 62 65 65 6e 20 6f 76 65 72 72 69 64  has been overrid
46a0: 64 65 6e 3b 0d 0a 20 20 20 20 20 20 20 20 23 20  den;..        # 
46b0: 20 20 20 20 20 20 74 68 65 72 65 66 6f 72 65 2c        therefore,
46c0: 20 75 73 65 20 69 74 2e 0d 0a 20 20 20 20 20 20   use it...      
46d0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 72 65 74    #..        ret
46e0: 75 72 6e 20 24 3a 3a 73 63 72 61 74 63 68 5f 64  urn $::scratch_d
46f0: 69 72 65 63 74 6f 72 79 0d 0a 20 20 20 20 20 20  irectory..      
4700: 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20  } else {..      
4710: 20 20 72 65 74 75 72 6e 20 5b 67 65 74 54 65 6d    return [getTem
4720: 70 6f 72 61 72 79 50 61 74 68 5d 0d 0a 20 20 20  poraryPath]..   
4730: 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a     }..    }.....
4740: 20 20 20 20 70 72 6f 63 20 67 65 74 54 65 6d 70      proc getTemp
4750: 6f 72 61 72 79 44 69 72 65 63 74 6f 72 79 20 7b  oraryDirectory {
4760: 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  } {..      #..  
4770: 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 69 73      # NOTE: This
4780: 20 70 72 6f 63 65 64 75 72 65 20 72 65 74 75 72   procedure retur
4790: 6e 73 20 74 68 65 20 64 69 72 65 63 74 6f 72 79  ns the directory
47a0: 20 77 68 65 72 65 20 74 68 65 20 74 65 6d 70 6f   where the tempo
47b0: 72 61 72 79 20 66 69 6c 65 73 0d 0a 20 20 20 20  rary files..    
47c0: 20 20 23 20 20 20 20 20 20 20 73 68 6f 75 6c 64    #       should
47d0: 20 62 65 20 6c 6f 63 61 74 65 64 2e 20 20 42 79   be located.  By
47e0: 20 64 65 66 61 75 6c 74 2c 20 74 68 69 73 20 6a   default, this j
47f0: 75 73 74 20 75 73 65 73 20 74 68 65 20 74 65 6d  ust uses the tem
4800: 70 6f 72 61 72 79 0d 0a 20 20 20 20 20 20 23 20  porary..      # 
4810: 20 20 20 20 20 20 64 69 72 65 63 74 6f 72 79 20        directory 
4820: 63 6f 6e 66 69 67 75 72 65 64 20 66 6f 72 20 74  configured for t
4830: 68 69 73 20 73 79 73 74 65 6d 2e 0d 0a 20 20 20  his system...   
4840: 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b     #..      if {
4850: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 74  [info exists ::t
4860: 65 6d 70 6f 72 61 72 79 5f 64 69 72 65 63 74 6f  emporary_directo
4870: 72 79 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20 20  ry] && \..      
4880: 20 20 20 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67      [string leng
4890: 74 68 20 24 3a 3a 74 65 6d 70 6f 72 61 72 79 5f  th $::temporary_
48a0: 64 69 72 65 63 74 6f 72 79 5d 20 3e 20 30 7d 20  directory] > 0} 
48b0: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20  then {..        
48c0: 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54  #..        # NOT
48d0: 45 3a 20 54 68 65 20 6c 6f 63 61 74 69 6f 6e 20  E: The location 
48e0: 6f 66 20 74 68 65 20 74 65 6d 70 6f 72 61 72 79  of the temporary
48f0: 20 64 69 72 65 63 74 6f 72 79 20 68 61 73 20 62   directory has b
4900: 65 65 6e 20 6f 76 65 72 72 69 64 64 65 6e 3b 0d  een overridden;.
4910: 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20  .        #      
4920: 20 74 68 65 72 65 66 6f 72 65 2c 20 75 73 65 20   therefore, use 
4930: 69 74 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a  it...        #..
4940: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 24          return $
4950: 3a 3a 74 65 6d 70 6f 72 61 72 79 5f 64 69 72 65  ::temporary_dire
4960: 63 74 6f 72 79 0d 0a 20 20 20 20 20 20 7d 20 65  ctory..      } e
4970: 6c 73 65 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69  lseif {[info exi
4980: 73 74 73 20 3a 3a 73 63 72 61 74 63 68 5f 64 69  sts ::scratch_di
4990: 72 65 63 74 6f 72 79 5d 20 26 26 20 5c 0d 0a 20  rectory] && \.. 
49a0: 20 20 20 20 20 20 20 20 20 5b 73 74 72 69 6e 67           [string
49b0: 20 6c 65 6e 67 74 68 20 24 3a 3a 73 63 72 61 74   length $::scrat
49c0: 63 68 5f 64 69 72 65 63 74 6f 72 79 5d 20 3e 20  ch_directory] > 
49d0: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  0} then {..     
49e0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20     #..        # 
49f0: 4e 4f 54 45 3a 20 54 68 65 20 6c 6f 63 61 74 69  NOTE: The locati
4a00: 6f 6e 20 6f 66 20 74 68 65 20 73 63 72 61 74 63  on of the scratc
4a10: 68 20 64 69 72 65 63 74 6f 72 79 20 68 61 73 20  h directory has 
4a20: 62 65 65 6e 20 6f 76 65 72 72 69 64 64 65 6e 3b  been overridden;
4a30: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20  ..        #     
4a40: 20 20 74 68 65 72 65 66 6f 72 65 2c 20 75 73 65    therefore, use
4a50: 20 69 74 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d   it...        #.
4a60: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20  .        return 
4a70: 24 3a 3a 73 63 72 61 74 63 68 5f 64 69 72 65 63  $::scratch_direc
4a80: 74 6f 72 79 0d 0a 20 20 20 20 20 20 7d 20 65 6c  tory..      } el
4a90: 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 72 65  se {..        re
4aa0: 74 75 72 6e 20 5b 67 65 74 54 65 6d 70 6f 72 61  turn [getTempora
4ab0: 72 79 50 61 74 68 5d 0d 0a 20 20 20 20 20 20 7d  ryPath]..      }
4ac0: 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20  ..    }.....    
4ad0: 70 72 6f 63 20 67 65 74 54 65 73 74 4f 76 65 72  proc getTestOver
4ae0: 72 69 64 65 73 50 72 65 61 6d 62 6c 65 20 7b 20  ridesPreamble { 
4af0: 7b 65 78 74 72 61 56 61 72 4e 61 6d 65 73 20 22  {extraVarNames "
4b00: 22 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 20 73 65  "} } {..      se
4b10: 74 20 76 61 72 4e 61 6d 65 73 20 5b 6c 69 73 74  t varNames [list
4b20: 5d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  ]....      #..  
4b30: 20 20 20 20 23 20 4e 4f 54 45 3a 20 49 66 20 61      # NOTE: If a
4b40: 76 61 69 6c 61 62 6c 65 2c 20 73 74 61 72 74 20  vailable, start 
4b50: 77 69 74 68 20 74 68 65 20 6d 61 73 74 65 72 20  with the master 
4b60: 6c 69 73 74 20 6f 66 20 74 65 73 74 20 6f 76 65  list of test ove
4b70: 72 72 69 64 65 0d 0a 20 20 20 20 20 20 23 20 20  rride..      #  
4b80: 20 20 20 20 20 76 61 72 69 61 62 6c 65 73 2e 0d       variables..
4b90: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20  .      #..      
4ba0: 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73  if {[info exists
4bb0: 20 3a 3a 74 65 73 74 5f 6f 76 65 72 72 69 64 65   ::test_override
4bc0: 73 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20 20 20  s] && \..       
4bd0: 20 20 20 5b 6c 6c 65 6e 67 74 68 20 24 3a 3a 74     [llength $::t
4be0: 65 73 74 5f 6f 76 65 72 72 69 64 65 73 5d 20 3e  est_overrides] >
4bf0: 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20   0} then {..    
4c00: 20 20 20 20 65 76 61 6c 20 6c 61 70 70 65 6e 64      eval lappend
4c10: 20 76 61 72 4e 61 6d 65 73 20 24 3a 3a 74 65 73   varNames $::tes
4c20: 74 5f 6f 76 65 72 72 69 64 65 73 0d 0a 20 20 20  t_overrides..   
4c30: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d     }....      #.
4c40: 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 49  .      # NOTE: I
4c50: 66 20 72 65 71 75 65 73 74 65 64 20 62 79 20 6f  f requested by o
4c60: 75 72 20 63 61 6c 6c 65 72 2c 20 61 64 64 20 61  ur caller, add a
4c70: 6e 79 20 61 64 64 69 74 69 6f 6e 61 6c 20 76 61  ny additional va
4c80: 72 69 61 62 6c 65 0d 0a 20 20 20 20 20 20 23 20  riable..      # 
4c90: 20 20 20 20 20 20 6e 61 6d 65 73 20 74 6f 20 63        names to c
4ca0: 6f 70 79 20 6e 6f 77 2e 0d 0a 20 20 20 20 20 20  opy now...      
4cb0: 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 6c 6c  #..      if {[ll
4cc0: 65 6e 67 74 68 20 24 65 78 74 72 61 56 61 72 4e  ength $extraVarN
4cd0: 61 6d 65 73 5d 20 3e 20 30 7d 20 74 68 65 6e 20  ames] > 0} then 
4ce0: 7b 0d 0a 20 20 20 20 20 20 20 20 65 76 61 6c 20  {..        eval 
4cf0: 6c 61 70 70 65 6e 64 20 76 61 72 4e 61 6d 65 73  lappend varNames
4d00: 20 24 65 78 74 72 61 56 61 72 4e 61 6d 65 73 0d   $extraVarNames.
4d10: 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20  .      }....    
4d20: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54    #..      # NOT
4d30: 45 3a 20 42 75 69 6c 64 20 74 68 65 20 73 63 72  E: Build the scr
4d40: 69 70 74 20 66 72 61 67 6d 65 6e 74 20 74 6f 20  ipt fragment to 
4d50: 62 65 20 72 65 74 75 72 6e 65 64 20 62 79 20 70  be returned by p
4d60: 72 6f 63 65 73 73 69 6e 67 20 65 61 63 68 0d 0a  rocessing each..
4d70: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 76 61        #       va
4d80: 72 69 61 62 6c 65 20 6e 61 6d 65 20 61 6e 64 20  riable name and 
4d90: 61 64 64 69 6e 67 20 74 68 65 20 6e 65 63 65 63  adding the necec
4da0: 65 73 73 61 72 79 20 73 63 72 69 70 74 20 66 72  essary script fr
4db0: 61 67 6d 65 6e 74 73 20 66 6f 72 0d 0a 20 20 20  agments for..   
4dc0: 20 20 20 23 20 20 20 20 20 20 20 65 61 63 68 20     #       each 
4dd0: 6f 6e 65 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20  one...      #.. 
4de0: 20 20 20 20 20 73 65 74 20 72 65 73 75 6c 74 20       set result 
4df0: 22 22 0d 0a 0d 0a 20 20 20 20 20 20 66 6f 72 65  ""....      fore
4e00: 61 63 68 20 76 61 72 4e 61 6d 65 20 24 76 61 72  ach varName $var
4e10: 4e 61 6d 65 73 20 7b 0d 0a 20 20 20 20 20 20 20  Names {..       
4e20: 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f   #..        # NO
4e30: 54 45 3a 20 42 75 69 6c 64 20 74 68 65 20 71 75  TE: Build the qu
4e40: 61 6c 69 66 69 65 64 20 67 6c 6f 62 61 6c 20 76  alified global v
4e50: 61 72 69 61 62 6c 65 20 6e 61 6d 65 2e 0d 0a 20  ariable name... 
4e60: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..      
4e70: 20 20 73 65 74 20 66 75 6c 6c 56 61 72 4e 61 6d    set fullVarNam
4e80: 65 20 5b 61 70 70 65 6e 64 41 72 67 73 20 3a 3a  e [appendArgs ::
4e90: 20 24 76 61 72 4e 61 6d 65 5d 0d 0a 0d 0a 20 20   $varName]....  
4ea0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
4eb0: 20 23 20 4e 4f 54 45 3a 20 44 6f 65 73 20 74 68   # NOTE: Does th
4ec0: 65 20 76 61 72 69 61 62 6c 65 20 65 78 69 73 74  e variable exist
4ed0: 20 69 6e 20 74 68 69 73 20 69 6e 74 65 72 70 72   in this interpr
4ee0: 65 74 65 72 20 63 6f 6e 74 65 78 74 3f 0d 0a 20  eter context?.. 
4ef0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..      
4f00: 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73    if {[info exis
4f10: 74 73 20 24 66 75 6c 6c 56 61 72 4e 61 6d 65 5d  ts $fullVarName]
4f20: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..      
4f30: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20      #..         
4f40: 20 23 20 4e 4f 54 45 3a 20 41 70 70 65 6e 64 20   # NOTE: Append 
4f50: 61 20 73 63 72 69 70 74 20 66 72 61 67 6d 65 6e  a script fragmen
4f60: 74 20 74 6f 20 74 68 65 20 72 65 73 75 6c 74 20  t to the result 
4f70: 74 68 61 74 20 77 69 6c 6c 20 63 6f 72 72 65 63  that will correc
4f80: 74 6c 79 0d 0a 20 20 20 20 20 20 20 20 20 20 23  tly..          #
4f90: 20 20 20 20 20 20 20 63 6f 70 79 20 61 6e 79 20         copy any 
4fa0: 63 6f 6e 74 61 69 6e 65 64 20 76 61 6c 75 65 20  contained value 
4fb0: 74 6f 20 61 6e 6f 74 68 65 72 20 69 6e 74 65 72  to another inter
4fc0: 70 72 65 74 65 72 20 63 6f 6e 74 65 78 74 2e 0d  preter context..
4fd0: 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20  .          #..  
4fe0: 20 20 20 20 20 20 20 20 61 70 70 65 6e 64 20 72          append r
4ff0: 65 73 75 6c 74 20 5c 6e 20 22 73 65 74 20 22 20  esult \n "set " 
5000: 24 66 75 6c 6c 56 61 72 4e 61 6d 65 20 22 20 5c  $fullVarName " \
5010: 7b 22 20 5b 73 65 74 20 24 66 75 6c 6c 56 61 72  {" [set $fullVar
5020: 4e 61 6d 65 5d 20 5c 7d 0d 0a 20 20 20 20 20 20  Name] \}..      
5030: 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a    }..      }....
5040: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23        #..      #
5050: 20 4e 4f 54 45 3a 20 49 66 20 74 68 65 20 72 65   NOTE: If the re
5060: 73 75 6c 74 20 63 6f 6e 74 61 69 6e 73 20 6f 6e  sult contains on
5070: 65 20 6f 72 20 6d 6f 72 65 20 73 63 72 69 70 74  e or more script
5080: 20 66 72 61 67 6d 65 6e 74 73 2c 20 61 70 70 65   fragments, appe
5090: 6e 64 20 61 0d 0a 20 20 20 20 20 20 23 20 20 20  nd a..      #   
50a0: 20 20 20 20 6e 65 77 6c 69 6e 65 2e 0d 0a 20 20      newline...  
50b0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20      #..      if 
50c0: 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20  {[string length 
50d0: 24 72 65 73 75 6c 74 5d 20 3e 20 30 7d 20 74 68  $result] > 0} th
50e0: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 61 70  en {..        ap
50f0: 70 65 6e 64 20 72 65 73 75 6c 74 20 5c 6e 0d 0a  pend result \n..
5100: 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20        }....     
5110: 20 72 65 74 75 72 6e 20 24 72 65 73 75 6c 74 0d   return $result.
5120: 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70  .    }.....    p
5130: 72 6f 63 20 67 65 74 41 70 70 44 6f 6d 61 69 6e  roc getAppDomain
5140: 50 72 65 61 6d 62 6c 65 20 7b 20 7b 70 72 65 66  Preamble { {pref
5150: 69 78 20 22 22 7d 20 7b 73 75 66 66 69 78 20 22  ix ""} {suffix "
5160: 22 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d  "} } {..      #.
5170: 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 54  .      # NOTE: T
5180: 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 72 65  his procedure re
5190: 74 75 72 6e 73 20 61 20 74 65 73 74 20 73 65 74  turns a test set
51a0: 75 70 20 73 63 72 69 70 74 20 66 72 61 67 6d 65  up script fragme
51b0: 6e 74 20 73 75 69 74 61 62 6c 65 20 66 6f 72 0d  nt suitable for.
51c0: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 65  .      #       e
51d0: 76 61 6c 75 61 74 69 6f 6e 20 62 79 20 61 6e 20  valuation by an 
51e0: 69 6e 74 65 72 70 72 65 74 65 72 20 63 72 65 61  interpreter crea
51f0: 74 65 64 20 69 6e 20 61 6e 20 69 73 6f 6c 61 74  ted in an isolat
5200: 65 64 20 61 70 70 6c 69 63 61 74 69 6f 6e 0d 0a  ed application..
5210: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 64 6f        #       do
5220: 6d 61 69 6e 2e 20 20 54 68 65 20 73 63 72 69 70  main.  The scrip
5230: 74 20 66 72 61 67 6d 65 6e 74 20 62 65 69 6e 67  t fragment being
5240: 20 72 65 74 75 72 6e 65 64 20 77 69 6c 6c 20 62   returned will b
5250: 65 20 73 75 72 72 6f 75 6e 64 65 64 20 62 79 0d  e surrounded by.
5260: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 74  .      #       t
5270: 68 65 20 70 72 65 66 69 78 20 61 6e 64 20 73 75  he prefix and su
5280: 66 66 69 78 20 22 73 63 72 69 70 74 20 66 72 61  ffix "script fra
5290: 67 6d 65 6e 74 73 22 20 73 70 65 63 69 66 69 65  gments" specifie
52a0: 64 20 62 79 20 6f 75 72 20 63 61 6c 6c 65 72 2c  d by our caller,
52b0: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20  ..      #       
52c0: 69 66 20 61 6e 79 2e 20 20 54 68 65 20 65 6e 74  if any.  The ent
52d0: 69 72 65 20 73 63 72 69 70 74 20 62 65 69 6e 67  ire script being
52e0: 20 72 65 74 75 72 6e 65 64 20 77 69 6c 6c 20 62   returned will b
52f0: 65 20 73 75 62 73 74 69 74 75 74 65 64 20 76 69  e substituted vi
5300: 61 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20  a..      #      
5310: 20 5b 73 75 62 73 74 5d 2c 20 69 6e 20 74 68 65   [subst], in the
5320: 20 63 6f 6e 74 65 78 74 20 6f 66 20 6f 75 72 20   context of our 
5330: 63 61 6c 6c 65 72 2c 20 62 65 66 6f 72 65 20 62  caller, before b
5340: 65 69 6e 67 20 72 65 74 75 72 6e 65 64 2e 0d 0a  eing returned...
5350: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 54 68        #       Th
5360: 69 73 20 73 74 65 70 20 69 73 20 6e 65 63 65 73  is step is neces
5370: 73 61 72 79 20 73 6f 20 74 68 61 74 20 73 6f 6d  sary so that som
5380: 65 20 6c 69 6d 69 74 65 64 20 63 6f 6e 74 65 78  e limited contex
5390: 74 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2c 0d 0a  t information,..
53a0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 70 72        #       pr
53b0: 69 6d 61 72 69 6c 79 20 72 65 6c 61 74 65 64 20  imarily related 
53c0: 74 6f 20 74 68 65 20 74 65 73 74 69 6e 67 20 64  to the testing d
53d0: 69 72 65 63 74 6f 72 69 65 73 2c 20 63 61 6e 20  irectories, can 
53e0: 62 65 20 74 72 61 6e 73 66 65 72 72 65 64 0d 0a  be transferred..
53f0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 74 6f        #       to
5400: 20 74 68 65 20 69 6e 74 65 72 70 72 65 74 65 72   the interpreter
5410: 20 69 6e 20 74 68 65 20 69 73 6f 6c 61 74 65 64   in the isolated
5420: 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 64 6f 6d   application dom
5430: 61 69 6e 2c 20 6d 61 6b 69 6e 67 20 69 74 0d 0a  ain, making it..
5440: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 61 62        #       ab
5450: 6c 65 20 74 6f 20 73 75 63 63 65 73 73 66 75 6c  le to successful
5460: 6c 79 20 72 75 6e 20 74 65 73 74 73 20 74 68 61  ly run tests tha
5470: 74 20 72 65 71 75 69 72 65 20 6f 6e 65 20 6f 72  t require one or
5480: 20 6d 6f 72 65 20 6f 66 20 74 68 65 0d 0a 20 20   more of the..  
5490: 20 20 20 20 23 20 20 20 20 20 20 20 66 69 6c 65      #       file
54a0: 73 20 69 6e 20 6f 6e 65 20 6f 66 20 74 68 65 20  s in one of the 
54b0: 74 65 73 74 69 6e 67 20 64 69 72 65 63 74 6f 72  testing director
54c0: 69 65 73 2e 20 20 43 61 6c 6c 65 72 73 20 73 68  ies.  Callers sh
54d0: 6f 75 6c 64 20 6b 65 65 70 20 69 6e 0d 0a 20 20  ould keep in..  
54e0: 20 20 20 20 23 20 20 20 20 20 20 20 6d 69 6e 64      #       mind
54f0: 20 74 68 61 74 20 74 68 65 20 74 65 73 74 20 73   that the test s
5500: 63 72 69 70 74 20 66 72 61 67 6d 65 6e 74 20 62  cript fragment b
5510: 65 69 6e 67 20 72 65 74 75 72 6e 65 64 20 63 61  eing returned ca
5520: 6e 6e 6f 74 20 72 65 6c 79 20 6f 6e 0d 0a 20 20  nnot rely on..  
5530: 20 20 20 20 23 20 20 20 20 20 20 20 61 6e 79 20      #       any 
5540: 73 63 72 69 70 74 20 6c 69 62 72 61 72 79 20 70  script library p
5550: 72 6f 63 65 64 75 72 65 73 20 74 68 61 74 20 61  rocedures that a
5560: 72 65 20 6e 6f 74 20 70 72 6f 76 69 64 65 64 20  re not provided 
5570: 62 79 20 74 68 65 20 45 61 67 6c 65 0d 0a 20 20  by the Eagle..  
5580: 20 20 20 20 23 20 20 20 20 20 20 20 6c 69 62 72      #       libr
5590: 61 72 79 20 70 61 63 6b 61 67 65 20 28 69 2e 65  ary package (i.e
55a0: 2e 20 22 69 6e 69 74 2e 65 61 67 6c 65 22 29 2c  . "init.eagle"),
55b0: 20 69 6e 63 6c 75 64 69 6e 67 20 74 68 6f 73 65   including those
55c0: 20 70 72 6f 76 69 64 65 64 20 62 79 0d 0a 20 20   provided by..  
55d0: 20 20 20 20 23 20 20 20 20 20 20 20 74 68 65 20      #       the 
55e0: 45 61 67 6c 65 20 74 65 73 74 20 70 61 63 6b 61  Eagle test packa
55f0: 67 65 2c 20 75 6e 6c 65 73 73 20 74 68 65 20 66  ge, unless the f
5600: 69 6c 65 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74  ile containing t
5610: 68 65 6d 20 69 73 20 6c 6f 61 64 65 64 0d 0a 20  hem is loaded.. 
5620: 20 20 20 20 20 23 20 20 20 20 20 20 20 6d 61 6e       #       man
5630: 75 61 6c 6c 79 20 76 69 61 20 73 6f 6d 65 20 6f  ually via some o
5640: 74 68 65 72 20 6d 65 63 68 61 6e 69 73 6d 20 28  ther mechanism (
5650: 65 2e 67 2e 20 62 79 20 69 6e 63 6c 75 64 69 6e  e.g. by includin
5660: 67 20 61 70 70 72 6f 70 72 69 61 74 65 0d 0a 20  g appropriate.. 
5670: 20 20 20 20 20 23 20 20 20 20 20 20 20 5b 70 61       #       [pa
5680: 63 6b 61 67 65 20 72 65 71 75 69 72 65 5d 20 6f  ckage require] o
5690: 72 20 5b 73 6f 75 72 63 65 5d 20 63 6f 6d 6d 61  r [source] comma
56a0: 6e 64 73 20 69 6e 20 74 68 65 20 70 72 65 66 69  nds in the prefi
56b0: 78 20 6f 72 20 73 75 66 66 69 78 0d 0a 20 20 20  x or suffix..   
56c0: 20 20 20 23 20 20 20 20 20 20 20 73 63 72 69 70     #       scrip
56d0: 74 20 66 72 61 67 6d 65 6e 74 73 29 2e 20 20 41  t fragments).  A
56e0: 6c 73 6f 2c 20 61 6c 6c 20 76 61 72 69 61 62 6c  lso, all variabl
56f0: 65 20 72 65 66 65 72 65 6e 63 65 73 20 61 6e 64  e references and
5700: 20 61 6c 6c 20 6e 65 73 74 65 64 0d 0a 20 20 20   all nested..   
5710: 20 20 20 23 20 20 20 20 20 20 20 63 6f 6d 6d 61     #       comma
5720: 6e 64 73 20 28 69 2e 65 2e 20 74 68 6f 73 65 20  nds (i.e. those 
5730: 69 6e 20 73 71 75 61 72 65 20 62 72 61 63 6b 65  in square bracke
5740: 74 73 29 20 63 6f 6e 74 61 69 6e 65 64 20 69 6e  ts) contained in
5750: 20 74 68 65 20 66 69 6e 61 6c 0d 0a 20 20 20 20   the final..    
5760: 20 20 23 20 20 20 20 20 20 20 73 63 72 69 70 74    #       script
5770: 20 66 72 61 67 6d 65 6e 74 20 77 69 6c 6c 20 65   fragment will e
5780: 6e 64 20 75 70 20 62 65 69 6e 67 20 65 76 61 6c  nd up being eval
5790: 75 61 74 65 64 20 69 6e 20 74 68 65 20 63 6f 6e  uated in the con
57a0: 74 65 78 74 20 6f 66 20 74 68 65 0d 0a 20 20 20  text of the..   
57b0: 20 20 20 23 20 20 20 20 20 20 20 63 61 6c 6c 69     #       calli
57c0: 6e 67 20 69 6e 74 65 72 70 72 65 74 65 72 20 61  ng interpreter a
57d0: 6e 64 20 6e 6f 74 20 74 68 65 20 74 61 72 67 65  nd not the targe
57e0: 74 20 69 6e 74 65 72 70 72 65 74 65 72 20 63 72  t interpreter cr
57f0: 65 61 74 65 64 20 69 6e 20 74 68 65 0d 0a 20 20  eated in the..  
5800: 20 20 20 20 23 20 20 20 20 20 20 20 69 73 6f 6c      #       isol
5810: 61 74 65 64 20 61 70 70 6c 69 63 61 74 69 6f 6e  ated application
5820: 20 64 6f 6d 61 69 6e 20 75 6e 6c 65 73 73 20 74   domain unless t
5830: 68 65 20 64 6f 6c 6c 61 72 20 73 69 67 6e 73 20  he dollar signs 
5840: 61 6e 64 2f 6f 72 20 73 71 75 61 72 65 0d 0a 20  and/or square.. 
5850: 20 20 20 20 20 23 20 20 20 20 20 20 20 62 72 61       #       bra
5860: 63 6b 65 74 73 20 61 72 65 20 73 70 65 63 69 61  ckets are specia
5870: 6c 6c 79 20 71 75 6f 74 65 64 20 77 69 74 68 20  lly quoted with 
5880: 62 61 63 6b 73 6c 61 73 68 65 73 2e 0d 0a 20 20  backslashes...  
5890: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 72 65 74      #..      ret
58a0: 75 72 6e 20 5b 75 70 6c 65 76 65 6c 20 31 20 5b  urn [uplevel 1 [
58b0: 6c 69 73 74 20 73 75 62 73 74 20 5b 61 70 70 65  list subst [appe
58c0: 6e 64 41 72 67 73 20 24 70 72 65 66 69 78 20 7b  ndArgs $prefix {
58d0: 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b 68  ..        if {[h
58e0: 61 73 52 75 6e 74 69 6d 65 4f 70 74 69 6f 6e 20  asRuntimeOption 
58f0: 6e 61 74 69 76 65 5d 7d 20 74 68 65 6e 20 7b 0d  native]} then {.
5900: 0a 20 20 20 20 20 20 20 20 20 20 6f 62 6a 65 63  .          objec
5910: 74 20 69 6e 76 6f 6b 65 20 49 6e 74 65 72 70 72  t invoke Interpr
5920: 65 74 65 72 2e 47 65 74 41 63 74 69 76 65 20 41  eter.GetActive A
5930: 64 64 52 75 6e 74 69 6d 65 4f 70 74 69 6f 6e 20  ddRuntimeOption 
5940: 6e 61 74 69 76 65 0d 0a 20 20 20 20 20 20 20 20  native..        
5950: 7d 0d 0a 20 20 20 20 20 20 7d 20 5b 67 65 74 54  }..      } [getT
5960: 65 73 74 4f 76 65 72 72 69 64 65 73 50 72 65 61  estOverridesPrea
5970: 6d 62 6c 65 20 5b 6c 69 73 74 20 70 61 74 68 20  mble [list path 
5980: 74 65 73 74 5f 63 68 61 6e 6e 65 6c 5d 5d 20 24  test_channel]] $
5990: 73 75 66 66 69 78 5d 5d 5d 0d 0a 20 20 20 20 7d  suffix]]]..    }
59a0: 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 74 72  .....    proc tr
59b0: 79 43 6f 70 79 42 69 6e 61 72 79 46 69 6c 65 20  yCopyBinaryFile 
59c0: 7b 20 66 69 6c 65 4e 61 6d 65 20 7b 6e 65 77 46  { fileName {newF
59d0: 69 6c 65 4e 61 6d 65 20 22 22 7d 20 7d 20 7b 0d  ileName ""} } {.
59e0: 0a 20 20 20 20 20 20 73 65 74 20 73 6f 75 72 63  .      set sourc
59f0: 65 46 69 6c 65 4e 61 6d 65 20 5b 67 65 74 42 69  eFileName [getBi
5a00: 6e 61 72 79 46 69 6c 65 4e 61 6d 65 20 24 66 69  naryFileName $fi
5a10: 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a 20 20 20 20 20  leName]....     
5a20: 20 69 66 20 7b 21 5b 66 69 6c 65 20 65 78 69 73   if {![file exis
5a30: 74 73 20 24 73 6f 75 72 63 65 46 69 6c 65 4e 61  ts $sourceFileNa
5a40: 6d 65 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  me]} then {..   
5a50: 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65       tputs $::te
5a60: 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65  st_channel [appe
5a70: 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20  ndArgs \..      
5a80: 20 20 20 20 20 20 22 2d 2d 2d 2d 20 73 6b 69 70        "---- skip
5a90: 70 65 64 20 63 6f 70 79 69 6e 67 20 62 69 6e 61  ped copying bina
5aa0: 72 79 20 66 69 6c 65 20 5c 22 22 20 24 73 6f 75  ry file \"" $sou
5ab0: 72 63 65 46 69 6c 65 4e 61 6d 65 20 5c 0d 0a 20  rceFileName \.. 
5ac0: 20 20 20 20 20 20 20 20 20 20 20 22 5c 22 2c 20             "\", 
5ad0: 69 74 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73  it does not exis
5ae0: 74 5c 6e 22 5d 0d 0a 0d 0a 20 20 20 20 20 20 20  t\n"]....       
5af0: 20 72 65 74 75 72 6e 0d 0a 20 20 20 20 20 20 7d   return..      }
5b00: 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 73  ....      if {[s
5b10: 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 6e 65  tring length $ne
5b20: 77 46 69 6c 65 4e 61 6d 65 5d 20 3e 20 30 7d 20  wFileName] > 0} 
5b30: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20  then {..        
5b40: 73 65 74 20 74 61 72 67 65 74 46 69 6c 65 4e 61  set targetFileNa
5b50: 6d 65 20 5b 67 65 74 42 75 69 6c 64 46 69 6c 65  me [getBuildFile
5b60: 4e 61 6d 65 20 24 6e 65 77 46 69 6c 65 4e 61 6d  Name $newFileNam
5b70: 65 5d 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65  e]..      } else
5b80: 20 7b 0d 0a 20 20 20 20 20 20 20 20 73 65 74 20   {..        set 
5b90: 74 61 72 67 65 74 46 69 6c 65 4e 61 6d 65 20 5b  targetFileName [
5ba0: 67 65 74 42 75 69 6c 64 46 69 6c 65 4e 61 6d 65  getBuildFileName
5bb0: 20 24 66 69 6c 65 4e 61 6d 65 5d 0d 0a 20 20 20   $fileName]..   
5bc0: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 69 66     }....      if
5bd0: 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20 20   {[catch {..    
5be0: 20 20 20 20 20 20 20 20 20 20 66 69 6c 65 20 63            file c
5bf0: 6f 70 79 20 2d 66 6f 72 63 65 20 24 73 6f 75 72  opy -force $sour
5c00: 63 65 46 69 6c 65 4e 61 6d 65 20 24 74 61 72 67  ceFileName $targ
5c10: 65 74 46 69 6c 65 4e 61 6d 65 7d 5d 20 3d 3d 20  etFileName}] == 
5c20: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  0} then {..     
5c30: 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74     tputs $::test
5c40: 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64  _channel [append
5c50: 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20  Args \..        
5c60: 20 20 20 20 22 2d 2d 2d 2d 20 63 6f 70 69 65 64      "---- copied
5c70: 20 62 69 6e 61 72 79 20 66 69 6c 65 20 66 72 6f   binary file fro
5c80: 6d 20 5c 22 22 20 24 73 6f 75 72 63 65 46 69 6c  m \"" $sourceFil
5c90: 65 4e 61 6d 65 20 22 5c 22 20 74 6f 20 5c 22 22  eName "\" to \""
5ca0: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   \..            
5cb0: 24 74 61 72 67 65 74 46 69 6c 65 4e 61 6d 65 20  $targetFileName 
5cc0: 5c 22 5c 6e 5d 0d 0a 20 20 20 20 20 20 7d 20 65  \"\n]..      } e
5cd0: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 74  lse {..        t
5ce0: 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61  puts $::test_cha
5cf0: 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73  nnel [appendArgs
5d00: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   \..            
5d10: 22 2d 2d 2d 2d 20 66 61 69 6c 65 64 20 74 6f 20  "---- failed to 
5d20: 63 6f 70 79 20 62 69 6e 61 72 79 20 66 69 6c 65  copy binary file
5d30: 20 66 72 6f 6d 20 5c 22 22 20 24 73 6f 75 72 63   from \"" $sourc
5d40: 65 46 69 6c 65 4e 61 6d 65 20 5c 0d 0a 20 20 20  eFileName \..   
5d50: 20 20 20 20 20 20 20 20 20 22 5c 22 20 74 6f 20           "\" to 
5d60: 5c 22 22 20 24 74 61 72 67 65 74 46 69 6c 65 4e  \"" $targetFileN
5d70: 61 6d 65 20 5c 22 5c 6e 5d 0d 0a 20 20 20 20 20  ame \"\n]..     
5d80: 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20   }..    }.....  
5d90: 20 20 70 72 6f 63 20 74 72 79 43 6f 70 79 42 75    proc tryCopyBu
5da0: 69 6c 64 46 69 6c 65 20 7b 20 66 69 6c 65 4e 61  ildFile { fileNa
5db0: 6d 65 20 7b 6e 65 77 46 69 6c 65 4e 61 6d 65 20  me {newFileName 
5dc0: 22 22 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 20 73  ""} } {..      s
5dd0: 65 74 20 73 6f 75 72 63 65 46 69 6c 65 4e 61 6d  et sourceFileNam
5de0: 65 20 5b 67 65 74 42 75 69 6c 64 46 69 6c 65 4e  e [getBuildFileN
5df0: 61 6d 65 20 24 66 69 6c 65 4e 61 6d 65 5d 0d 0a  ame $fileName]..
5e00: 0d 0a 20 20 20 20 20 20 69 66 20 7b 21 5b 66 69  ..      if {![fi
5e10: 6c 65 20 65 78 69 73 74 73 20 24 73 6f 75 72 63  le exists $sourc
5e20: 65 46 69 6c 65 4e 61 6d 65 5d 7d 20 74 68 65 6e  eFileName]} then
5e30: 20 7b 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74   {..        tput
5e40: 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65  s $::test_channe
5e50: 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d  l [appendArgs \.
5e60: 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d  .            "--
5e70: 2d 2d 20 73 6b 69 70 70 65 64 20 63 6f 70 79 69  -- skipped copyi
5e80: 6e 67 20 62 75 69 6c 64 20 66 69 6c 65 20 5c 22  ng build file \"
5e90: 22 20 24 73 6f 75 72 63 65 46 69 6c 65 4e 61 6d  " $sourceFileNam
5ea0: 65 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20  e \..           
5eb0: 20 22 5c 22 2c 20 69 74 20 64 6f 65 73 20 6e 6f   "\", it does no
5ec0: 74 20 65 78 69 73 74 5c 6e 22 5d 0d 0a 0d 0a 20  t exist\n"].... 
5ed0: 20 20 20 20 20 20 20 72 65 74 75 72 6e 0d 0a 20         return.. 
5ee0: 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20       }....      
5ef0: 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67  if {[string leng
5f00: 74 68 20 24 6e 65 77 46 69 6c 65 4e 61 6d 65 5d  th $newFileName]
5f10: 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20   > 0} then {..  
5f20: 20 20 20 20 20 20 73 65 74 20 74 61 72 67 65 74        set target
5f30: 46 69 6c 65 4e 61 6d 65 20 5b 67 65 74 42 69 6e  FileName [getBin
5f40: 61 72 79 46 69 6c 65 4e 61 6d 65 20 24 6e 65 77  aryFileName $new
5f50: 46 69 6c 65 4e 61 6d 65 5d 0d 0a 20 20 20 20 20  FileName]..     
5f60: 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20   } else {..     
5f70: 20 20 20 73 65 74 20 74 61 72 67 65 74 46 69 6c     set targetFil
5f80: 65 4e 61 6d 65 20 5b 67 65 74 42 69 6e 61 72 79  eName [getBinary
5f90: 46 69 6c 65 4e 61 6d 65 20 24 66 69 6c 65 4e 61  FileName $fileNa
5fa0: 6d 65 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a  me]..      }....
5fb0: 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68        if {[catch
5fc0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..            
5fd0: 20 20 66 69 6c 65 20 63 6f 70 79 20 2d 66 6f 72    file copy -for
5fe0: 63 65 20 24 73 6f 75 72 63 65 46 69 6c 65 4e 61  ce $sourceFileNa
5ff0: 6d 65 20 24 74 61 72 67 65 74 46 69 6c 65 4e 61  me $targetFileNa
6000: 6d 65 7d 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20  me}] == 0} then 
6010: 7b 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73  {..        tputs
6020: 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c   $::test_channel
6030: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a   [appendArgs \..
6040: 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d              "---
6050: 2d 20 63 6f 70 69 65 64 20 62 75 69 6c 64 20 66  - copied build f
6060: 69 6c 65 20 66 72 6f 6d 20 5c 22 22 20 24 73 6f  ile from \"" $so
6070: 75 72 63 65 46 69 6c 65 4e 61 6d 65 20 22 5c 22  urceFileName "\"
6080: 20 74 6f 20 5c 22 22 20 5c 0d 0a 20 20 20 20 20   to \"" \..     
6090: 20 20 20 20 20 20 20 24 74 61 72 67 65 74 46 69         $targetFi
60a0: 6c 65 4e 61 6d 65 20 5c 22 5c 6e 5d 0d 0a 20 20  leName \"\n]..  
60b0: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20      } else {..  
60c0: 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74        tputs $::t
60d0: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70  est_channel [app
60e0: 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20  endArgs \..     
60f0: 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 66 61 69         "---- fai
6100: 6c 65 64 20 74 6f 20 63 6f 70 79 20 62 75 69 6c  led to copy buil
6110: 64 20 66 69 6c 65 20 66 72 6f 6d 20 5c 22 22 20  d file from \"" 
6120: 24 73 6f 75 72 63 65 46 69 6c 65 4e 61 6d 65 20  $sourceFileName 
6130: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 22  \..            "
6140: 5c 22 20 74 6f 20 5c 22 22 20 24 74 61 72 67 65  \" to \"" $targe
6150: 74 46 69 6c 65 4e 61 6d 65 20 5c 22 5c 6e 5d 0d  tFileName \"\n].
6160: 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d  .      }..    }.
6170: 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 74 72 79  ....    proc try
6180: 44 65 6c 65 74 65 42 69 6e 61 72 79 46 69 6c 65  DeleteBinaryFile
6190: 20 7b 20 66 69 6c 65 4e 61 6d 65 20 7d 20 7b 0d   { fileName } {.
61a0: 0a 20 20 20 20 20 20 73 65 74 20 66 69 6c 65 4e  .      set fileN
61b0: 61 6d 65 20 5b 67 65 74 42 69 6e 61 72 79 46 69  ame [getBinaryFi
61c0: 6c 65 4e 61 6d 65 20 24 66 69 6c 65 4e 61 6d 65  leName $fileName
61d0: 5d 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 21  ]....      if {!
61e0: 5b 66 69 6c 65 20 65 78 69 73 74 73 20 24 66 69  [file exists $fi
61f0: 6c 65 4e 61 6d 65 5d 7d 20 74 68 65 6e 20 7b 0d  leName]} then {.
6200: 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24  .        tputs $
6210: 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b  ::test_channel [
6220: 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20  appendArgs \..  
6230: 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20            "---- 
6240: 73 6b 69 70 70 65 64 20 64 65 6c 65 74 69 6e 67  skipped deleting
6250: 20 62 69 6e 61 72 79 20 66 69 6c 65 20 5c 22 22   binary file \""
6260: 20 24 66 69 6c 65 4e 61 6d 65 20 5c 0d 0a 20 20   $fileName \..  
6270: 20 20 20 20 20 20 20 20 20 20 22 5c 22 2c 20 69            "\", i
6280: 74 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74  t does not exist
6290: 5c 6e 22 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20  \n"]....        
62a0: 72 65 74 75 72 6e 0d 0a 20 20 20 20 20 20 7d 0d  return..      }.
62b0: 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 63 61  ...      if {[ca
62c0: 74 63 68 20 7b 66 69 6c 65 20 64 65 6c 65 74 65  tch {file delete
62d0: 20 24 66 69 6c 65 4e 61 6d 65 7d 5d 20 3d 3d 20   $fileName}] == 
62e0: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  0} then {..     
62f0: 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74     tputs $::test
6300: 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64  _channel [append
6310: 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20  Args \..        
6320: 20 20 20 20 22 2d 2d 2d 2d 20 64 65 6c 65 74 65      "---- delete
6330: 64 20 62 69 6e 61 72 79 20 66 69 6c 65 20 5c 22  d binary file \"
6340: 22 20 24 66 69 6c 65 4e 61 6d 65 20 5c 22 5c 6e  " $fileName \"\n
6350: 5d 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20  ]..      } else 
6360: 7b 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73  {..        tputs
6370: 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c   $::test_channel
6380: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a   [appendArgs \..
6390: 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d              "---
63a0: 2d 20 66 61 69 6c 65 64 20 74 6f 20 64 65 6c 65  - failed to dele
63b0: 74 65 20 62 69 6e 61 72 79 20 66 69 6c 65 20 5c  te binary file \
63c0: 22 22 20 24 66 69 6c 65 4e 61 6d 65 20 5c 22 5c  "" $fileName \"\
63d0: 6e 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20  n]..      }..   
63e0: 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20   }.....    proc 
63f0: 74 72 79 44 65 6c 65 74 65 42 75 69 6c 64 46 69  tryDeleteBuildFi
6400: 6c 65 20 7b 20 66 69 6c 65 4e 61 6d 65 20 7d 20  le { fileName } 
6410: 7b 0d 0a 20 20 20 20 20 20 73 65 74 20 66 69 6c  {..      set fil
6420: 65 4e 61 6d 65 20 5b 67 65 74 42 75 69 6c 64 46  eName [getBuildF
6430: 69 6c 65 4e 61 6d 65 20 24 66 69 6c 65 4e 61 6d  ileName $fileNam
6440: 65 5d 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b  e]....      if {
6450: 21 5b 66 69 6c 65 20 65 78 69 73 74 73 20 24 66  ![file exists $f
6460: 69 6c 65 4e 61 6d 65 5d 7d 20 74 68 65 6e 20 7b  ileName]} then {
6470: 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20  ..        tputs 
6480: 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20  $::test_channel 
6490: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20  [appendArgs \.. 
64a0: 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d             "----
64b0: 20 73 6b 69 70 70 65 64 20 64 65 6c 65 74 69 6e   skipped deletin
64c0: 67 20 62 75 69 6c 64 20 66 69 6c 65 20 5c 22 22  g build file \""
64d0: 20 24 66 69 6c 65 4e 61 6d 65 20 5c 0d 0a 20 20   $fileName \..  
64e0: 20 20 20 20 20 20 20 20 20 20 22 5c 22 2c 20 69            "\", i
64f0: 74 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74  t does not exist
6500: 5c 6e 22 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20  \n"]....        
6510: 72 65 74 75 72 6e 0d 0a 20 20 20 20 20 20 7d 0d  return..      }.
6520: 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 63 61  ...      if {[ca
6530: 74 63 68 20 7b 66 69 6c 65 20 64 65 6c 65 74 65  tch {file delete
6540: 20 24 66 69 6c 65 4e 61 6d 65 7d 5d 20 3d 3d 20   $fileName}] == 
6550: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  0} then {..     
6560: 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74     tputs $::test
6570: 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64  _channel [append
6580: 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20  Args \..        
6590: 20 20 20 20 22 2d 2d 2d 2d 20 64 65 6c 65 74 65      "---- delete
65a0: 64 20 62 75 69 6c 64 20 66 69 6c 65 20 5c 22 22  d build file \""
65b0: 20 24 66 69 6c 65 4e 61 6d 65 20 5c 22 5c 6e 5d   $fileName \"\n]
65c0: 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b  ..      } else {
65d0: 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20  ..        tputs 
65e0: 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20  $::test_channel 
65f0: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20  [appendArgs \.. 
6600: 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d             "----
6610: 20 66 61 69 6c 65 64 20 74 6f 20 64 65 6c 65 74   failed to delet
6620: 65 20 62 75 69 6c 64 20 66 69 6c 65 20 5c 22 22  e build file \""
6630: 20 24 66 69 6c 65 4e 61 6d 65 20 5c 22 5c 6e 5d   $fileName \"\n]
6640: 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d  ..      }..    }
6650: 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 74 72  .....    proc tr
6660: 79 43 6f 70 79 41 73 73 65 6d 62 6c 79 20 7b 20  yCopyAssembly { 
6670: 66 69 6c 65 4e 61 6d 65 20 7b 70 64 62 20 74 72  fileName {pdb tr
6680: 75 65 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 20 74  ue} } {..      t
6690: 72 79 43 6f 70 79 42 75 69 6c 64 46 69 6c 65 20  ryCopyBuildFile 
66a0: 24 66 69 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 20 20  $fileName....   
66b0: 20 20 20 69 66 20 7b 24 70 64 62 7d 20 74 68 65     if {$pdb} the
66c0: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 74 72 79  n {..        try
66d0: 43 6f 70 79 42 75 69 6c 64 46 69 6c 65 20 5b 61  CopyBuildFile [a
66e0: 70 70 65 6e 64 41 72 67 73 20 5b 66 69 6c 65 20  ppendArgs [file 
66f0: 72 6f 6f 74 6e 61 6d 65 20 24 66 69 6c 65 4e 61  rootname $fileNa
6700: 6d 65 5d 20 2e 70 64 62 5d 0d 0a 20 20 20 20 20  me] .pdb]..     
6710: 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20   }..    }.....  
6720: 20 20 70 72 6f 63 20 74 72 79 44 65 6c 65 74 65    proc tryDelete
6730: 41 73 73 65 6d 62 6c 79 20 7b 20 66 69 6c 65 4e  Assembly { fileN
6740: 61 6d 65 20 7b 70 64 62 20 74 72 75 65 7d 20 7d  ame {pdb true} }
6750: 20 7b 0d 0a 20 20 20 20 20 20 74 72 79 44 65 6c   {..      tryDel
6760: 65 74 65 42 69 6e 61 72 79 46 69 6c 65 20 24 66  eteBinaryFile $f
6770: 69 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 20 20 20 20  ileName....     
6780: 20 69 66 20 7b 24 70 64 62 7d 20 74 68 65 6e 20   if {$pdb} then 
6790: 7b 0d 0a 20 20 20 20 20 20 20 20 74 72 79 44 65  {..        tryDe
67a0: 6c 65 74 65 42 69 6e 61 72 79 46 69 6c 65 20 5b  leteBinaryFile [
67b0: 61 70 70 65 6e 64 41 72 67 73 20 5b 66 69 6c 65  appendArgs [file
67c0: 20 72 6f 6f 74 6e 61 6d 65 20 24 66 69 6c 65 4e   rootname $fileN
67d0: 61 6d 65 5d 20 2e 70 64 62 5d 0d 0a 20 20 20 20  ame] .pdb]..    
67e0: 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20    }..    }..... 
67f0: 20 20 20 70 72 6f 63 20 74 72 79 4c 6f 61 64 41     proc tryLoadA
6800: 73 73 65 6d 62 6c 79 20 7b 20 66 69 6c 65 4e 61  ssembly { fileNa
6810: 6d 65 20 7d 20 7b 0d 0a 20 20 20 20 20 20 73 65  me } {..      se
6820: 74 20 66 69 6c 65 4e 61 6d 65 20 5b 67 65 74 42  t fileName [getB
6830: 69 6e 61 72 79 46 69 6c 65 4e 61 6d 65 20 24 66  inaryFileName $f
6840: 69 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a 20 20 20 20  ileName]....    
6850: 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 73 65    if {[catch {se
6860: 74 20 61 73 73 65 6d 62 6c 79 20 5c 0d 0a 20 20  t assembly \..  
6870: 20 20 20 20 20 20 20 20 20 20 20 20 5b 6f 62 6a              [obj
6880: 65 63 74 20 6c 6f 61 64 20 2d 6c 6f 61 64 74 79  ect load -loadty
6890: 70 65 20 46 69 6c 65 20 2d 61 6c 69 61 73 20 24  pe File -alias $
68a0: 66 69 6c 65 4e 61 6d 65 5d 7d 5d 20 3d 3d 20 30  fileName]}] == 0
68b0: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..      
68c0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e    #..        # N
68d0: 4f 54 45 3a 20 4e 6f 77 2c 20 61 64 64 20 74 68  OTE: Now, add th
68e0: 65 20 6e 65 63 65 73 73 61 72 79 20 74 65 73 74  e necessary test
68f0: 20 63 6f 6e 73 74 72 61 69 6e 74 2e 0d 0a 20 20   constraint...  
6900: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
6910: 20 61 64 64 43 6f 6e 73 74 72 61 69 6e 74 20 5b   addConstraint [
6920: 66 69 6c 65 20 72 6f 6f 74 6e 61 6d 65 20 5b 66  file rootname [f
6930: 69 6c 65 20 74 61 69 6c 20 24 66 69 6c 65 4e 61  ile tail $fileNa
6940: 6d 65 5d 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20  me]]....        
6950: 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54  #..        # NOT
6960: 45 3a 20 47 72 61 62 20 74 68 65 20 69 6d 61 67  E: Grab the imag
6970: 65 20 72 75 6e 74 69 6d 65 20 76 65 72 73 69 6f  e runtime versio
6980: 6e 20 66 72 6f 6d 20 74 68 65 20 61 73 73 65 6d  n from the assem
6990: 62 6c 79 20 62 65 63 61 75 73 65 0d 0a 20 20 20  bly because..   
69a0: 20 20 20 20 20 23 20 20 20 20 20 20 20 73 65 76       #       sev
69b0: 65 72 61 6c 20 74 65 73 74 73 20 72 65 6c 79 20  eral tests rely 
69c0: 6f 6e 20 69 74 20 68 61 76 69 6e 67 20 61 20 63  on it having a c
69d0: 65 72 74 61 69 6e 20 76 61 6c 75 65 2e 0d 0a 20  ertain value... 
69e0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..      
69f0: 20 20 61 64 64 43 6f 6e 73 74 72 61 69 6e 74 20    addConstraint 
6a00: 5b 61 70 70 65 6e 64 41 72 67 73 20 5b 66 69 6c  [appendArgs [fil
6a10: 65 20 74 61 69 6c 20 24 66 69 6c 65 4e 61 6d 65  e tail $fileName
6a20: 5d 20 5f 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  ] _ \..         
6a30: 20 20 20 5b 24 61 73 73 65 6d 62 6c 79 20 49 6d     [$assembly Im
6a40: 61 67 65 52 75 6e 74 69 6d 65 56 65 72 73 69 6f  ageRuntimeVersio
6a50: 6e 5d 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23  n]]....        #
6a60: 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45  ..        # NOTE
6a70: 3a 20 52 65 74 75 72 6e 20 74 68 65 20 66 75 6c  : Return the ful
6a80: 6c 20 70 61 74 68 20 6f 66 20 74 68 65 20 6c 6f  l path of the lo
6a90: 61 64 65 64 20 66 69 6c 65 2e 0d 0a 20 20 20 20  aded file...    
6aa0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 72      #..        r
6ab0: 65 74 75 72 6e 20 24 66 69 6c 65 4e 61 6d 65 0d  eturn $fileName.
6ac0: 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20  .      }....    
6ad0: 20 20 72 65 74 75 72 6e 20 22 22 0d 0a 20 20 20    return ""..   
6ae0: 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20   }.....    proc 
6af0: 69 73 53 51 4c 69 74 65 52 65 61 64 79 20 7b 7d  isSQLiteReady {}
6b00: 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20   {..      #..   
6b10: 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 69 73 20     # NOTE: This 
6b20: 70 72 6f 63 65 64 75 72 65 20 6d 75 73 74 20 72  procedure must r
6b30: 65 74 75 72 6e 20 6e 6f 6e 2d 7a 65 72 6f 20 6f  eturn non-zero o
6b40: 6e 6c 79 20 69 66 20 74 68 65 20 53 51 4c 69 74  nly if the SQLit
6b50: 65 20 6e 61 74 69 76 65 0d 0a 20 20 20 20 20 20  e native..      
6b60: 23 20 20 20 20 20 20 20 6c 69 62 72 61 72 79 20  #       library 
6b70: 61 6e 64 20 74 68 65 20 53 79 73 74 65 6d 2e 44  and the System.D
6b80: 61 74 61 2e 53 51 4c 69 74 65 20 6d 61 6e 61 67  ata.SQLite manag
6b90: 65 64 20 61 73 73 65 6d 62 6c 79 20 61 72 65 20  ed assembly are 
6ba0: 6c 6f 61 64 65 64 0d 0a 20 20 20 20 20 20 23 20  loaded..      # 
6bb0: 20 20 20 20 20 20 61 6e 64 20 72 65 61 64 79 20        and ready 
6bc0: 66 6f 72 20 75 73 65 20 62 79 20 74 68 65 20 74  for use by the t
6bd0: 65 73 74 20 73 75 69 74 65 2e 20 20 43 75 72 72  est suite.  Curr
6be0: 65 6e 74 6c 79 2c 20 74 68 69 73 20 70 72 6f 63  ently, this proc
6bf0: 65 64 75 72 65 0d 0a 20 20 20 20 20 20 23 20 20  edure..      #  
6c00: 20 20 20 20 20 73 68 6f 75 6c 64 20 62 65 20 63       should be c
6c10: 61 6c 6c 65 64 20 6f 6e 6c 79 20 61 66 74 65 72  alled only after
6c20: 20 74 68 65 20 5b 74 72 79 4c 6f 61 64 41 73 73   the [tryLoadAss
6c30: 65 6d 62 6c 79 5d 20 70 72 6f 63 65 64 75 72 65  embly] procedure
6c40: 20 68 61 73 0d 0a 20 20 20 20 20 20 23 20 20 20   has..      #   
6c50: 20 20 20 20 62 65 65 6e 20 63 61 6c 6c 65 64 20      been called 
6c60: 74 6f 20 70 72 6f 62 65 20 66 6f 72 20 74 68 65  to probe for the
6c70: 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c   System.Data.SQL
6c80: 69 74 65 20 6d 61 6e 61 67 65 64 20 61 73 73 65  ite managed asse
6c90: 6d 62 6c 79 0d 0a 20 20 20 20 20 20 23 20 20 20  mbly..      #   
6ca0: 20 20 20 20 61 6e 64 20 74 68 65 20 5b 63 68 65      and the [che
6cb0: 63 6b 46 6f 72 53 51 4c 69 74 65 5d 20 70 72 6f  ckForSQLite] pro
6cc0: 63 65 64 75 72 65 20 68 61 73 20 62 65 65 6e 20  cedure has been 
6cd0: 63 61 6c 6c 65 64 20 74 6f 20 70 72 6f 62 65 20  called to probe 
6ce0: 66 6f 72 0d 0a 20 20 20 20 20 20 23 20 20 20 20  for..      #    
6cf0: 20 20 20 74 68 65 20 53 51 4c 69 74 65 20 6e 61     the SQLite na
6d00: 74 69 76 65 20 6c 69 62 72 61 72 79 3b 20 6f 74  tive library; ot
6d10: 68 65 72 77 69 73 65 2c 20 74 68 69 73 20 70 72  herwise, this pr
6d20: 6f 63 65 64 75 72 65 20 77 69 6c 6c 20 73 69 6d  ocedure will sim
6d30: 70 6c 79 0d 0a 20 20 20 20 20 20 23 20 20 20 20  ply..      #    
6d40: 20 20 20 61 6c 77 61 79 73 20 72 65 74 75 72 6e     always return
6d50: 20 7a 65 72 6f 2e 0d 0a 20 20 20 20 20 20 23 0d   zero...      #.
6d60: 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 5b 65  .      return [e
6d70: 78 70 72 20 7b 5b 68 61 76 65 43 6f 6e 73 74 72  xpr {[haveConstr
6d80: 61 69 6e 74 20 53 79 73 74 65 6d 2e 44 61 74 61  aint System.Data
6d90: 2e 53 51 4c 69 74 65 5d 20 26 26 20 5c 0d 0a 20  .SQLite] && \.. 
6da0: 20 20 20 20 20 20 20 20 20 5b 68 61 76 65 43 6f           [haveCo
6db0: 6e 73 74 72 61 69 6e 74 20 53 51 4c 69 74 65 5d  nstraint SQLite]
6dc0: 7d 5d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20  }]..    }.....  
6dd0: 20 20 70 72 6f 63 20 6d 61 74 63 68 4d 61 63 68    proc matchMach
6de0: 69 6e 65 20 7b 20 70 6c 61 74 66 6f 72 6d 20 7d  ine { platform }
6df0: 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20   {..      #..   
6e00: 20 20 20 23 20 4e 4f 54 45 3a 20 41 6e 20 65 6d     # NOTE: An em
6e10: 70 74 79 20 73 74 72 69 6e 67 20 66 6f 72 20 74  pty string for t
6e20: 68 65 20 70 6c 61 74 66 6f 72 6d 20 6d 65 61 6e  he platform mean
6e30: 73 20 74 68 61 74 20 74 68 65 20 62 75 69 6c 64  s that the build
6e40: 20 69 73 20 6e 6f 74 0d 0a 20 20 20 20 20 20 23   is not..      #
6e50: 20 20 20 20 20 20 20 5b 70 72 69 6d 61 72 69 6c         [primaril
6e60: 79 5d 20 61 20 6e 61 74 69 76 65 20 62 75 69 6c  y] a native buil
6e70: 64 3b 20 74 68 65 72 65 66 6f 72 65 2c 20 69 74  d; therefore, it
6e80: 20 61 6c 77 61 79 73 20 6d 61 74 63 68 65 73 2e   always matches.
6e90: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20  ..      #..     
6ea0: 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e   if {[string len
6eb0: 67 74 68 20 24 70 6c 61 74 66 6f 72 6d 5d 20 3d  gth $platform] =
6ec0: 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  = 0} then {..   
6ed0: 20 20 20 20 20 72 65 74 75 72 6e 20 74 72 75 65       return true
6ee0: 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20  ..      }....   
6ef0: 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f     #..      # NO
6f00: 54 45 3a 20 44 6f 65 73 20 74 68 65 20 73 70 65  TE: Does the spe
6f10: 63 69 66 69 65 64 20 70 6c 61 74 66 6f 72 6d 20  cified platform 
6f20: 6d 61 74 63 68 20 75 70 20 74 6f 20 74 68 65 20  match up to the 
6f30: 63 75 72 72 65 6e 74 20 70 72 6f 63 65 73 73 3f  current process?
6f40: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20  ..      #..     
6f50: 20 69 66 20 7b 24 70 6c 61 74 66 6f 72 6d 20 65   if {$platform e
6f60: 71 20 5b 6d 61 63 68 69 6e 65 54 6f 50 6c 61 74  q [machineToPlat
6f70: 66 6f 72 6d 20 24 3a 3a 74 63 6c 5f 70 6c 61 74  form $::tcl_plat
6f80: 66 6f 72 6d 28 6d 61 63 68 69 6e 65 29 5d 7d 20  form(machine)]} 
6f90: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20  then {..        
6fa0: 72 65 74 75 72 6e 20 74 72 75 65 0d 0a 20 20 20  return true..   
6fb0: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d     }....      #.
6fc0: 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 54  .      # NOTE: T
6fd0: 68 65 20 73 70 65 63 69 66 69 65 64 20 70 6c 61  he specified pla
6fe0: 74 66 6f 72 6d 20 64 6f 65 73 20 6e 6f 74 20 6d  tform does not m
6ff0: 61 74 63 68 20 75 70 20 77 69 74 68 20 74 68 65  atch up with the
7000: 20 70 6c 61 74 66 6f 72 6d 0d 0a 20 20 20 20 20   platform..     
7010: 20 23 20 20 20 20 20 20 20 66 6f 72 20 74 68 65   #       for the
7020: 20 63 75 72 72 65 6e 74 20 70 72 6f 63 65 73 73   current process
7030: 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20  ...      #..    
7040: 20 20 72 65 74 75 72 6e 20 66 61 6c 73 65 0d 0a    return false..
7050: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72      }.....    pr
7060: 6f 63 20 63 68 65 63 6b 46 6f 72 53 51 4c 69 74  oc checkForSQLit
7070: 65 42 75 69 6c 64 73 20 7b 20 63 68 61 6e 6e 65  eBuilds { channe
7080: 6c 20 7b 73 65 6c 65 63 74 20 66 61 6c 73 65 7d  l {select false}
7090: 20 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20   } {..      #.. 
70a0: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 43 68 65       # NOTE: Che
70b0: 63 6b 20 66 6f 72 20 65 76 65 72 79 20 70 6f 73  ck for every pos
70c0: 73 69 62 6c 65 20 76 61 6c 69 64 20 63 6f 6d 62  sible valid comb
70d0: 69 6e 61 74 69 6f 6e 20 6f 66 20 76 61 6c 75 65  ination of value
70e0: 73 20 75 73 65 64 20 77 68 65 6e 0d 0a 20 20 20  s used when..   
70f0: 20 20 20 23 20 20 20 20 20 20 20 6c 6f 63 61 74     #       locat
7100: 69 6e 67 20 6f 75 74 20 74 68 65 20 62 75 69 6c  ing out the buil
7110: 64 20 6f 75 74 70 75 74 20 64 69 72 65 63 74 6f  d output directo
7120: 72 79 2c 20 73 68 6f 77 69 6e 67 20 65 61 63 68  ry, showing each
7130: 20 61 76 61 69 6c 61 62 6c 65 0d 0a 20 20 20 20   available..    
7140: 20 20 23 20 20 20 20 20 20 20 62 75 69 6c 64 20    #       build 
7150: 76 61 72 69 61 74 69 6f 6e 20 61 6c 6f 6e 67 20  variation along 
7160: 74 68 65 20 77 61 79 2e 0d 0a 20 20 20 20 20 20  the way...      
7170: 23 0d 0a 20 20 20 20 20 20 66 6f 72 65 61 63 68  #..      foreach
7180: 20 6e 61 74 69 76 65 20 5b 6c 69 73 74 20 66 61   native [list fa
7190: 6c 73 65 20 74 72 75 65 5d 20 7b 0d 0a 20 20 20  lse true] {..   
71a0: 20 20 20 20 20 66 6f 72 65 61 63 68 20 79 65 61       foreach yea
71b0: 72 20 5b 67 65 74 42 75 69 6c 64 59 65 61 72 73  r [getBuildYears
71c0: 5d 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 66  ] {..          f
71d0: 6f 72 65 61 63 68 20 63 6f 6e 66 69 67 75 72 61  oreach configura
71e0: 74 69 6f 6e 20 5b 67 65 74 42 75 69 6c 64 43 6f  tion [getBuildCo
71f0: 6e 66 69 67 75 72 61 74 69 6f 6e 73 5d 20 7b 0d  nfigurations] {.
7200: 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 0d 0a  .            #..
7210: 20 20 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f              # NO
7220: 54 45 3a 20 46 69 67 75 72 65 20 6f 75 74 20 74  TE: Figure out t
7230: 68 65 20 65 66 66 65 63 74 69 76 65 20 62 75 69  he effective bui
7240: 6c 64 20 70 6c 61 74 66 6f 72 6d 2e 20 20 54 68  ld platform.  Th
7250: 69 73 20 69 73 0d 0a 20 20 20 20 20 20 20 20 20  is is..         
7260: 20 20 20 23 20 20 20 20 20 20 20 62 61 73 65 64     #       based
7270: 20 6f 6e 20 77 68 65 74 68 65 72 20 6f 72 20 6e   on whether or n
7280: 6f 74 20 61 20 5b 70 72 69 6d 61 72 69 6c 79 5d  ot a [primarily]
7290: 20 6e 61 74 69 76 65 20 62 75 69 6c 64 0d 0a 20   native build.. 
72a0: 20 20 20 20 20 20 20 20 20 20 20 23 20 20 20 20             #    
72b0: 20 20 20 69 73 20 62 65 69 6e 67 20 75 73 65 64     is being used
72c0: 2e 20 20 46 6f 72 20 5b 70 72 69 6d 61 72 69 6c  .  For [primaril
72d0: 79 5d 20 6e 6f 6e 2d 6e 61 74 69 76 65 20 62 75  y] non-native bu
72e0: 69 6c 64 73 2c 0d 0a 20 20 20 20 20 20 20 20 20  ilds,..         
72f0: 20 20 20 23 20 20 20 20 20 20 20 74 68 69 73 20     #       this 
7300: 77 69 6c 6c 20 62 65 20 61 6e 20 65 6d 70 74 79  will be an empty
7310: 20 73 74 72 69 6e 67 2e 0d 0a 20 20 20 20 20 20   string...      
7320: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
7330: 20 20 20 20 20 73 65 74 20 70 6c 61 74 66 6f 72       set platfor
7340: 6d 20 5b 67 65 74 42 75 69 6c 64 50 6c 61 74 66  m [getBuildPlatf
7350: 6f 72 6d 20 24 6e 61 74 69 76 65 5d 0d 0a 0d 0a  orm $native]....
7360: 20 20 20 20 20 20 20 20 20 20 20 20 74 70 75 74              tput
7370: 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65  s $channel [appe
7380: 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20  ndArgs \..      
7390: 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20            "---- 
73a0: 63 68 65 63 6b 69 6e 67 20 66 6f 72 20 53 79 73  checking for Sys
73b0: 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 20  tem.Data.SQLite 
73c0: 62 75 69 6c 64 20 5c 22 22 20 5b 65 78 70 72 20  build \"" [expr 
73d0: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  \..             
73e0: 20 20 20 7b 24 6e 61 74 69 76 65 20 3f 20 22 6e     {$native ? "n
73f0: 61 74 69 76 65 2f 22 20 3a 20 22 22 7d 5d 20 5b  ative/" : ""}] [
7400: 65 78 70 72 20 7b 5b 73 74 72 69 6e 67 20 6c 65  expr {[string le
7410: 6e 67 74 68 20 5c 0d 0a 20 20 20 20 20 20 20 20  ngth \..        
7420: 20 20 20 20 20 20 20 20 24 70 6c 61 74 66 6f 72          $platfor
7430: 6d 5d 20 3e 20 30 20 3f 20 5b 61 70 70 65 6e 64  m] > 0 ? [append
7440: 41 72 67 73 20 24 70 6c 61 74 66 6f 72 6d 20 2f  Args $platform /
7450: 5d 20 3a 20 22 22 7d 5d 20 24 79 65 61 72 20 5c  ] : ""}] $year \
7460: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
7470: 20 20 2f 20 24 63 6f 6e 66 69 67 75 72 61 74 69    / $configurati
7480: 6f 6e 20 22 5c 22 2e 2e 2e 20 22 5d 0d 0a 0d 0a  on "\"... "]....
7490: 20 20 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20              #.. 
74a0: 20 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54             # NOT
74b0: 45 3a 20 42 75 69 6c 64 20 74 68 65 20 66 75 6c  E: Build the ful
74c0: 6c 79 20 71 75 61 6c 69 66 69 65 64 20 66 69 6c  ly qualified fil
74d0: 65 20 6e 61 6d 65 20 66 6f 72 20 74 68 65 20 70  e name for the p
74e0: 72 69 6d 61 72 79 0d 0a 20 20 20 20 20 20 20 20  rimary..        
74f0: 20 20 20 20 23 20 20 20 20 20 20 20 61 73 73 65      #       asse
7500: 6d 62 6c 79 20 63 6f 6e 74 61 69 6e 69 6e 67 20  mbly containing 
7510: 74 68 65 20 53 79 73 74 65 6d 2e 44 61 74 61 2e  the System.Data.
7520: 53 51 4c 69 74 65 20 6d 61 6e 61 67 65 64 0d 0a  SQLite managed..
7530: 20 20 20 20 20 20 20 20 20 20 20 20 23 20 20 20              #   
7540: 20 20 20 20 63 6f 6d 70 6f 6e 65 6e 74 73 2e 20      components. 
7550: 20 49 74 20 73 68 6f 75 6c 64 20 62 65 20 6e 6f   It should be no
7560: 74 65 64 20 74 68 61 74 20 74 68 69 73 20 61 73  ted that this as
7570: 73 65 6d 62 6c 79 0d 0a 20 20 20 20 20 20 20 20  sembly..        
7580: 20 20 20 20 23 20 20 20 20 20 20 20 66 69 6c 65      #       file
7590: 20 6d 61 79 20 61 6c 73 6f 20 63 6f 6e 74 61 69   may also contai
75a0: 6e 20 74 68 65 20 6e 61 74 69 76 65 20 63 6f 6d  n the native com
75b0: 70 6f 6e 65 6e 74 73 2c 20 69 66 20 61 0d 0a 20  ponents, if a.. 
75c0: 20 20 20 20 20 20 20 20 20 20 20 23 20 20 20 20             #    
75d0: 20 20 20 6e 61 74 69 76 65 20 62 75 69 6c 64 20     native build 
75e0: 69 73 20 69 6e 20 75 73 65 2e 0d 0a 20 20 20 20  is in use...    
75f0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..     
7600: 20 20 20 20 20 20 20 73 65 74 20 66 69 6c 65 4e         set fileN
7610: 61 6d 65 20 5b 66 69 6c 65 20 6e 61 74 69 76 65  ame [file native
7620: 6e 61 6d 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20  name [file join 
7630: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  \..             
7640: 20 20 20 5b 6a 6f 69 6e 42 75 69 6c 64 44 69 72     [joinBuildDir
7650: 65 63 74 6f 72 79 20 24 6e 61 74 69 76 65 20 5b  ectory $native [
7660: 67 65 74 42 75 69 6c 64 42 61 73 65 44 69 72 65  getBuildBaseDire
7670: 63 74 6f 72 79 5d 20 24 79 65 61 72 20 5c 0d 0a  ctory] $year \..
7680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
7690: 24 70 6c 61 74 66 6f 72 6d 20 24 63 6f 6e 66 69  $platform $confi
76a0: 67 75 72 61 74 69 6f 6e 5d 20 53 79 73 74 65 6d  guration] System
76b0: 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 64 6c 6c  .Data.SQLite.dll
76c0: 5d 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20  ]]....          
76d0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 20    #..           
76e0: 20 23 20 4e 4f 54 45 3a 20 44 6f 65 73 20 74 68   # NOTE: Does th
76f0: 65 20 66 69 6c 65 20 65 78 69 73 74 3f 20 20 43  e file exist?  C
7700: 75 72 72 65 6e 74 6c 79 2c 20 6e 6f 20 6f 74 68  urrently, no oth
7710: 65 72 20 73 74 65 70 73 20 61 72 65 0d 0a 20 20  er steps are..  
7720: 20 20 20 20 20 20 20 20 20 20 23 20 20 20 20 20            #     
7730: 20 20 74 61 6b 65 6e 20 74 6f 20 76 65 72 69 66    taken to verif
7740: 79 20 74 68 69 73 20 62 75 69 6c 64 20 69 73 20  y this build is 
7750: 61 63 74 75 61 6c 6c 79 20 76 69 61 62 6c 65 2e  actually viable.
7760: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 0d  ..            #.
7770: 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20  .            if 
7780: 7b 5b 66 69 6c 65 20 65 78 69 73 74 73 20 24 66  {[file exists $f
7790: 69 6c 65 4e 61 6d 65 5d 7d 20 74 68 65 6e 20 7b  ileName]} then {
77a0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
77b0: 23 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  #..             
77c0: 20 23 20 4e 4f 54 45 3a 20 57 68 65 6e 20 69 6e   # NOTE: When in
77d0: 20 22 73 65 6c 65 63 74 22 20 6d 6f 64 65 2c 20   "select" mode, 
77e0: 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 73 65  automatically se
77f0: 6c 65 63 74 20 74 68 65 20 66 69 72 73 74 0d 0a  lect the first..
7800: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 20                # 
7810: 20 20 20 20 20 20 61 76 61 69 6c 61 62 6c 65 20        available 
7820: 62 75 69 6c 64 20 6f 66 20 53 79 73 74 65 6d 2e  build of System.
7830: 44 61 74 61 2e 53 51 4c 69 74 65 20 61 6e 64 20  Data.SQLite and 
7840: 74 68 65 6e 20 72 65 74 75 72 6e 0d 0a 20 20 20  then return..   
7850: 20 20 20 20 20 20 20 20 20 20 20 23 20 20 20 20             #    
7860: 20 20 20 69 6d 6d 65 64 69 61 74 65 6c 79 2e 0d     immediately..
7870: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23  .              #
7880: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
7890: 69 66 20 7b 24 73 65 6c 65 63 74 20 26 26 20 5b  if {$select && [
78a0: 6d 61 74 63 68 4d 61 63 68 69 6e 65 20 24 70 6c  matchMachine $pl
78b0: 61 74 66 6f 72 6d 5d 7d 20 74 68 65 6e 20 7b 0d  atform]} then {.
78c0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
78d0: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   #..            
78e0: 20 20 20 20 23 20 4e 4f 54 45 3a 20 4d 61 6e 75      # NOTE: Manu
78f0: 61 6c 6c 79 20 6f 76 65 72 72 69 64 65 20 61 6c  ally override al
7900: 6c 20 74 68 65 20 62 75 69 6c 64 20 64 69 72 65  l the build dire
7910: 63 74 6f 72 79 20 73 65 6c 65 63 74 69 6f 6e 0d  ctory selection.
7920: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
7930: 20 23 20 20 20 20 20 20 20 72 65 6c 61 74 65 64   #       related
7940: 20 74 65 73 74 20 73 65 74 74 69 6e 67 73 20 69   test settings i
7950: 6e 20 6f 72 64 65 72 20 74 6f 20 66 6f 72 63 65  n order to force
7960: 20 74 68 69 73 20 62 75 69 6c 64 0d 0a 20 20 20   this build..   
7970: 20 20 20 20 20 20 20 20 20 20 20 20 20 23 20 20               #  
7980: 20 20 20 20 20 6f 66 20 53 79 73 74 65 6d 2e 44       of System.D
7990: 61 74 61 2e 53 51 4c 69 74 65 20 74 6f 20 62 65  ata.SQLite to be
79a0: 20 75 73 65 64 2e 0d 0a 20 20 20 20 20 20 20 20   used...        
79b0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..     
79c0: 20 20 20 20 20 20 20 20 20 20 20 6f 62 6a 65 63             objec
79d0: 74 20 69 6e 76 6f 6b 65 20 49 6e 74 65 72 70 72  t invoke Interpr
79e0: 65 74 65 72 2e 47 65 74 41 63 74 69 76 65 20 5b  eter.GetActive [
79f0: 65 78 70 72 20 7b 24 6e 61 74 69 76 65 20 3f 20  expr {$native ? 
7a00: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  \..             
7a10: 20 20 20 20 20 20 20 22 41 64 64 52 75 6e 74 69         "AddRunti
7a20: 6d 65 4f 70 74 69 6f 6e 22 20 3a 20 22 52 65 6d  meOption" : "Rem
7a30: 6f 76 65 52 75 6e 74 69 6d 65 4f 70 74 69 6f 6e  oveRuntimeOption
7a40: 22 7d 5d 20 20 6e 61 74 69 76 65 0d 0a 0d 0a 20  "}]  native.... 
7a50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73                 s
7a60: 65 74 20 3a 3a 74 65 73 74 5f 79 65 61 72 20 24  et ::test_year $
7a70: 79 65 61 72 0d 0a 20 20 20 20 20 20 20 20 20 20  year..          
7a80: 20 20 20 20 20 20 73 65 74 20 3a 3a 74 65 73 74        set ::test
7a90: 5f 70 6c 61 74 66 6f 72 6d 20 24 70 6c 61 74 66  _platform $platf
7aa0: 6f 72 6d 0d 0a 20 20 20 20 20 20 20 20 20 20 20  orm..           
7ab0: 20 20 20 20 20 73 65 74 20 3a 3a 74 65 73 74 5f       set ::test_
7ac0: 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 24 63  configuration $c
7ad0: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 0d 0a 0d 0a  onfiguration....
7ae0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
7af0: 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 5b  tputs $channel [
7b00: 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20  appendArgs \..  
7b10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
7b20: 20 20 22 79 65 73 2c 20 73 65 6c 65 63 74 65 64    "yes, selected
7b30: 20 28 22 20 5b 65 78 70 72 20 7b 24 6e 61 74 69   (" [expr {$nati
7b40: 76 65 20 3f 20 22 6e 61 74 69 76 65 2f 22 20 3a  ve ? "native/" :
7b50: 20 22 22 7d 5d 20 5c 0d 0a 20 20 20 20 20 20 20   ""}] \..       
7b60: 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 65 78               [ex
7b70: 70 72 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67  pr {[string leng
7b80: 74 68 20 24 70 6c 61 74 66 6f 72 6d 5d 20 3e 20  th $platform] > 
7b90: 30 20 3f 20 5b 61 70 70 65 6e 64 41 72 67 73 20  0 ? [appendArgs 
7ba0: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  \..             
7bb0: 20 20 20 20 20 20 20 24 70 6c 61 74 66 6f 72 6d         $platform
7bc0: 20 2f 5d 20 3a 20 22 22 7d 5d 20 24 79 65 61 72   /] : ""}] $year
7bd0: 20 2f 20 24 63 6f 6e 66 69 67 75 72 61 74 69 6f   / $configuratio
7be0: 6e 20 22 29 5c 6e 22 5d 0d 0a 0d 0a 20 20 20 20  n ")\n"]....    
7bf0: 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75              retu
7c00: 72 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  rn..            
7c10: 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20    } else {..    
7c20: 20 20 20 20 20 20 20 20 20 20 20 20 74 70 75 74              tput
7c30: 73 20 24 63 68 61 6e 6e 65 6c 20 79 65 73 5c 6e  s $channel yes\n
7c40: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
7c50: 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d  }..            }
7c60: 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20   else {..       
7c70: 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68         tputs $ch
7c80: 61 6e 6e 65 6c 20 6e 6f 5c 6e 0d 0a 20 20 20 20  annel no\n..    
7c90: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20          }..     
7ca0: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20       }..        
7cb0: 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20  }..      }..    
7cc0: 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 63  }.....    proc c
7cd0: 68 65 63 6b 46 6f 72 53 51 4c 69 74 65 4c 69 62  heckForSQLiteLib
7ce0: 72 61 72 79 20 7b 20 63 68 61 6e 6e 65 6c 20 7d  rary { channel }
7cf0: 20 7b 0d 0a 20 20 20 20 20 20 74 70 75 74 73 20   {..      tputs 
7d00: 24 63 68 61 6e 6e 65 6c 20 22 2d 2d 2d 2d 20 63  $channel "---- c
7d10: 68 65 63 6b 69 6e 67 20 66 6f 72 20 53 51 4c 69  hecking for SQLi
7d20: 74 65 20 63 6f 72 65 20 6c 69 62 72 61 72 79 2e  te core library.
7d30: 2e 2e 20 22 0d 0a 0d 0a 20 20 20 20 20 20 69 66  .. "....      if
7d40: 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20 20   {[catch {..    
7d50: 20 20 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74            object
7d60: 20 69 6e 76 6f 6b 65 20 2d 66 6c 61 67 73 20 2b   invoke -flags +
7d70: 4e 6f 6e 50 75 62 6c 69 63 20 53 79 73 74 65 6d  NonPublic System
7d80: 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 53 51 4c  .Data.SQLite.SQL
7d90: 69 74 65 33 20 5c 0d 0a 20 20 20 20 20 20 20 20  ite3 \..        
7da0: 20 20 20 20 20 20 53 51 4c 69 74 65 56 65 72 73        SQLiteVers
7db0: 69 6f 6e 7d 20 76 65 72 73 69 6f 6e 5d 20 3d 3d  ion} version] ==
7dc0: 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20   0} then {..    
7dd0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23      #..        #
7de0: 20 4e 4f 54 45 3a 20 43 68 65 63 6b 20 69 66 20   NOTE: Check if 
7df0: 74 68 65 20 72 65 74 75 72 6e 65 64 20 76 65 72  the returned ver
7e00: 73 69 6f 6e 20 77 61 73 20 6e 75 6c 6c 2e 20 20  sion was null.  
7e10: 49 66 20 73 6f 2c 20 6d 61 6b 65 20 69 74 20 65  If so, make it e
7e20: 61 73 79 0d 0a 20 20 20 20 20 20 20 20 23 20 20  asy..        #  
7e30: 20 20 20 20 20 74 6f 20 73 70 6f 74 2e 0d 0a 20       to spot... 
7e40: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..      
7e50: 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65    if {[string le
7e60: 6e 67 74 68 20 24 76 65 72 73 69 6f 6e 5d 20 3d  ngth $version] =
7e70: 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  = 0} then {..   
7e80: 20 20 20 20 20 20 20 73 65 74 20 76 65 72 73 69         set versi
7e90: 6f 6e 20 6e 75 6c 6c 0d 0a 20 20 20 20 20 20 20  on null..       
7ea0: 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d   }....        #.
7eb0: 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a  .        # NOTE:
7ec0: 20 41 74 74 65 6d 70 74 20 74 6f 20 71 75 65 72   Attempt to quer
7ed0: 79 20 74 68 65 20 46 6f 73 73 69 6c 20 73 6f 75  y the Fossil sou
7ee0: 72 63 65 20 69 64 65 6e 74 69 66 69 65 72 20 66  rce identifier f
7ef0: 6f 72 20 74 68 65 20 53 51 4c 69 74 65 0d 0a 20  or the SQLite.. 
7f00: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 63         #       c
7f10: 6f 72 65 20 6c 69 62 72 61 72 79 2e 0d 0a 20 20  ore library...  
7f20: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
7f30: 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20   if {[catch {.. 
7f40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f                 o
7f50: 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d 66 6c  bject invoke -fl
7f60: 61 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 53  ags +NonPublic S
7f70: 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74  ystem.Data.SQLit
7f80: 65 2e 53 51 4c 69 74 65 33 20 5c 0d 0a 20 20 20  e.SQLite3 \..   
7f90: 20 20 20 20 20 20 20 20 20 20 20 20 20 53 51 4c               SQL
7fa0: 69 74 65 53 6f 75 72 63 65 49 64 7d 20 73 6f 75  iteSourceId} sou
7fb0: 72 63 65 49 64 5d 7d 20 74 68 65 6e 20 7b 0d 0a  rceId]} then {..
7fc0: 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20            #..   
7fd0: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 57         # NOTE: W
7fe0: 65 20 66 61 69 6c 65 64 20 74 6f 20 71 75 65 72  e failed to quer
7ff0: 79 20 74 68 65 20 46 6f 73 73 69 6c 20 73 6f 75  y the Fossil sou
8000: 72 63 65 20 69 64 65 6e 74 69 66 69 65 72 2e 0d  rce identifier..
8010: 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20  .          #..  
8020: 20 20 20 20 20 20 20 20 73 65 74 20 73 6f 75 72          set sour
8030: 63 65 49 64 20 75 6e 6b 6e 6f 77 6e 0d 0a 20 20  ceId unknown..  
8040: 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20        }....     
8050: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20     #..        # 
8060: 4e 4f 54 45 3a 20 43 68 65 63 6b 20 69 66 20 74  NOTE: Check if t
8070: 68 65 20 72 65 74 75 72 6e 65 64 20 46 6f 73 73  he returned Foss
8080: 69 6c 20 73 6f 75 72 63 65 20 69 64 65 6e 74 69  il source identi
8090: 66 69 65 72 20 77 61 73 20 6e 75 6c 6c 2e 20 20  fier was null.  
80a0: 49 66 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20  If..        #   
80b0: 20 20 20 20 73 6f 2c 20 6d 61 6b 65 20 69 74 20      so, make it 
80c0: 65 61 73 79 20 74 6f 20 73 70 6f 74 2e 0d 0a 20  easy to spot... 
80d0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..      
80e0: 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65    if {[string le
80f0: 6e 67 74 68 20 24 73 6f 75 72 63 65 49 64 5d 20  ngth $sourceId] 
8100: 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  == 0} then {..  
8110: 20 20 20 20 20 20 20 20 73 65 74 20 73 6f 75 72          set sour
8120: 63 65 49 64 20 6e 75 6c 6c 0d 0a 20 20 20 20 20  ceId null..     
8130: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20     }....        
8140: 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54  #..        # NOT
8150: 45 3a 20 59 65 73 2c 20 74 68 65 20 53 51 4c 69  E: Yes, the SQLi
8160: 74 65 20 63 6f 72 65 20 6c 69 62 72 61 72 79 20  te core library 
8170: 61 70 70 65 61 72 73 20 74 6f 20 62 65 20 61 76  appears to be av
8180: 61 69 6c 61 62 6c 65 2e 0d 0a 20 20 20 20 20 20  ailable...      
8190: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 61 64 64    #..        add
81a0: 43 6f 6e 73 74 72 61 69 6e 74 20 53 51 4c 69 74  Constraint SQLit
81b0: 65 0d 0a 0d 0a 20 20 20 20 20 20 20 20 74 70 75  e....        tpu
81c0: 74 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70  ts $channel [app
81d0: 65 6e 64 41 72 67 73 20 22 79 65 73 20 28 22 20  endArgs "yes (" 
81e0: 24 76 65 72 73 69 6f 6e 20 22 20 22 20 24 73 6f  $version " " $so
81f0: 75 72 63 65 49 64 20 22 29 5c 6e 22 5d 0d 0a 20  urceId ")\n"].. 
8200: 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20       } else {.. 
8210: 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68         tputs $ch
8220: 61 6e 6e 65 6c 20 6e 6f 5c 6e 0d 0a 20 20 20 20  annel no\n..    
8230: 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20    }..    }..... 
8240: 20 20 20 70 72 6f 63 20 63 68 65 63 6b 46 6f 72     proc checkFor
8250: 53 51 4c 69 74 65 49 6e 74 65 72 6f 70 20 7b 20  SQLiteInterop { 
8260: 63 68 61 6e 6e 65 6c 20 7d 20 7b 0d 0a 20 20 20  channel } {..   
8270: 20 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65     tputs $channe
8280: 6c 20 22 2d 2d 2d 2d 20 63 68 65 63 6b 69 6e 67  l "---- checking
8290: 20 66 6f 72 20 53 51 4c 69 74 65 20 69 6e 74 65   for SQLite inte
82a0: 72 6f 70 20 61 73 73 65 6d 62 6c 79 2e 2e 2e 20  rop assembly... 
82b0: 22 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b  "....      if {[
82c0: 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 20  catch {..       
82d0: 20 20 20 20 20 20 20 6f 62 6a 65 63 74 20 69 6e         object in
82e0: 76 6f 6b 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e  voke -flags +Non
82f0: 50 75 62 6c 69 63 20 53 79 73 74 65 6d 2e 44 61  Public System.Da
8300: 74 61 2e 53 51 4c 69 74 65 2e 53 51 4c 69 74 65  ta.SQLite.SQLite
8310: 33 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20  3 \..           
8320: 20 20 20 49 6e 74 65 72 6f 70 56 65 72 73 69 6f     InteropVersio
8330: 6e 7d 20 76 65 72 73 69 6f 6e 5d 20 3d 3d 20 30  n} version] == 0
8340: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..      
8350: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e    #..        # N
8360: 4f 54 45 3a 20 43 68 65 63 6b 20 69 66 20 74 68  OTE: Check if th
8370: 65 20 72 65 74 75 72 6e 65 64 20 76 65 72 73 69  e returned versi
8380: 6f 6e 20 77 61 73 20 6e 75 6c 6c 2e 20 20 49 66  on was null.  If
8390: 20 73 6f 2c 20 6d 61 6b 65 20 69 74 20 65 61 73   so, make it eas
83a0: 79 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20  y..        #    
83b0: 20 20 20 74 6f 20 73 70 6f 74 2e 0d 0a 20 20 20     to spot...   
83c0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..        
83d0: 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67  if {[string leng
83e0: 74 68 20 24 76 65 72 73 69 6f 6e 5d 20 3d 3d 20  th $version] == 
83f0: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  0} then {..     
8400: 20 20 20 20 20 73 65 74 20 76 65 72 73 69 6f 6e       set version
8410: 20 6e 75 6c 6c 0d 0a 20 20 20 20 20 20 20 20 7d   null..        }
8420: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20  ....        #.. 
8430: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 41         # NOTE: A
8440: 74 74 65 6d 70 74 20 74 6f 20 71 75 65 72 79 20  ttempt to query 
8450: 74 68 65 20 46 6f 73 73 69 6c 20 73 6f 75 72 63  the Fossil sourc
8460: 65 20 69 64 65 6e 74 69 66 69 65 72 20 66 6f 72  e identifier for
8470: 20 74 68 65 20 53 51 4c 69 74 65 0d 0a 20 20 20   the SQLite..   
8480: 20 20 20 20 20 23 20 20 20 20 20 20 20 63 6f 72       #       cor
8490: 65 20 6c 69 62 72 61 72 79 2e 0d 0a 20 20 20 20  e library...    
84a0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 69      #..        i
84b0: 66 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20  f {[catch {..   
84c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 62 6a               obj
84d0: 65 63 74 20 69 6e 76 6f 6b 65 20 2d 66 6c 61 67  ect invoke -flag
84e0: 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 53 79 73  s +NonPublic Sys
84f0: 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e  tem.Data.SQLite.
8500: 53 51 4c 69 74 65 33 20 5c 0d 0a 20 20 20 20 20  SQLite3 \..     
8510: 20 20 20 20 20 20 20 20 20 20 20 49 6e 74 65 72             Inter
8520: 6f 70 53 6f 75 72 63 65 49 64 7d 20 73 6f 75 72  opSourceId} sour
8530: 63 65 49 64 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20  ceId]} then {.. 
8540: 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20           #..    
8550: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 57 65        # NOTE: We
8560: 20 66 61 69 6c 65 64 20 74 6f 20 71 75 65 72 79   failed to query
8570: 20 74 68 65 20 46 6f 73 73 69 6c 20 73 6f 75 72   the Fossil sour
8580: 63 65 20 69 64 65 6e 74 69 66 69 65 72 2e 0d 0a  ce identifier...
8590: 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20            #..   
85a0: 20 20 20 20 20 20 20 73 65 74 20 73 6f 75 72 63         set sourc
85b0: 65 49 64 20 75 6e 6b 6e 6f 77 6e 0d 0a 20 20 20  eId unknown..   
85c0: 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20       }....      
85d0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e    #..        # N
85e0: 4f 54 45 3a 20 43 68 65 63 6b 20 69 66 20 74 68  OTE: Check if th
85f0: 65 20 72 65 74 75 72 6e 65 64 20 46 6f 73 73 69  e returned Fossi
8600: 6c 20 73 6f 75 72 63 65 20 69 64 65 6e 74 69 66  l source identif
8610: 69 65 72 20 77 61 73 20 6e 75 6c 6c 2e 20 20 49  ier was null.  I
8620: 66 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20  f..        #    
8630: 20 20 20 73 6f 2c 20 6d 61 6b 65 20 69 74 20 65     so, make it e
8640: 61 73 79 20 74 6f 20 73 70 6f 74 2e 0d 0a 20 20  asy to spot...  
8650: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
8660: 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e   if {[string len
8670: 67 74 68 20 24 73 6f 75 72 63 65 49 64 5d 20 3d  gth $sourceId] =
8680: 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  = 0} then {..   
8690: 20 20 20 20 20 20 20 73 65 74 20 73 6f 75 72 63         set sourc
86a0: 65 49 64 20 6e 75 6c 6c 0d 0a 20 20 20 20 20 20  eId null..      
86b0: 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23    }....        #
86c0: 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45  ..        # NOTE
86d0: 3a 20 59 65 73 2c 20 74 68 65 20 53 51 4c 69 74  : Yes, the SQLit
86e0: 65 20 69 6e 74 65 72 6f 70 20 61 73 73 65 6d 62  e interop assemb
86f0: 6c 79 20 61 70 70 65 61 72 73 20 74 6f 20 62 65  ly appears to be
8700: 20 61 76 61 69 6c 61 62 6c 65 2e 0d 0a 20 20 20   available...   
8710: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..        
8720: 61 64 64 43 6f 6e 73 74 72 61 69 6e 74 20 53 51  addConstraint SQ
8730: 4c 69 74 65 49 6e 74 65 72 6f 70 0d 0a 0d 0a 20  LiteInterop.... 
8740: 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68         tputs $ch
8750: 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67  annel [appendArg
8760: 73 20 22 79 65 73 20 28 22 20 24 76 65 72 73 69  s "yes (" $versi
8770: 6f 6e 20 22 20 22 20 24 73 6f 75 72 63 65 49 64  on " " $sourceId
8780: 20 22 29 5c 6e 22 5d 0d 0a 20 20 20 20 20 20 7d   ")\n"]..      }
8790: 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20   else {..       
87a0: 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20   tputs $channel 
87b0: 6e 6f 5c 6e 0d 0a 20 20 20 20 20 20 7d 0d 0a 20  no\n..      }.. 
87c0: 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f     }.....    pro
87d0: 63 20 63 68 65 63 6b 46 6f 72 53 51 4c 69 74 65  c checkForSQLite
87e0: 44 65 66 69 6e 65 43 6f 6e 73 74 61 6e 74 20 7b  DefineConstant {
87f0: 20 63 68 61 6e 6e 65 6c 20 6e 61 6d 65 20 7d 20   channel name } 
8800: 7b 0d 0a 20 20 20 20 20 20 74 70 75 74 73 20 24  {..      tputs $
8810: 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41  channel [appendA
8820: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  rgs \..         
8830: 20 22 2d 2d 2d 2d 20 63 68 65 63 6b 69 6e 67 20   "---- checking 
8840: 66 6f 72 20 53 79 73 74 65 6d 2e 44 61 74 61 2e  for System.Data.
8850: 53 51 4c 69 74 65 20 64 65 66 69 6e 65 20 63 6f  SQLite define co
8860: 6e 73 74 61 6e 74 20 5c 22 22 20 24 6e 61 6d 65  nstant \"" $name
8870: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 22 5c   \..          "\
8880: 22 2e 2e 2e 20 22 5d 0d 0a 0d 0a 20 20 20 20 20  "... "]....     
8890: 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20   if {[catch {.. 
88a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 62 6a               obj
88b0: 65 63 74 20 69 6e 76 6f 6b 65 20 2d 66 6c 61 67  ect invoke -flag
88c0: 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 53 79 73  s +NonPublic Sys
88d0: 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e  tem.Data.SQLite.
88e0: 53 51 4c 69 74 65 33 20 5c 0d 0a 20 20 20 20 20  SQLite3 \..     
88f0: 20 20 20 20 20 20 20 20 20 44 65 66 69 6e 65 43           DefineC
8900: 6f 6e 73 74 61 6e 74 73 7d 20 64 65 66 69 6e 65  onstants} define
8910: 43 6f 6e 73 74 61 6e 74 73 5d 20 3d 3d 20 30 7d  Constants] == 0}
8920: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20   then {..       
8930: 20 69 66 20 7b 5b 6c 73 65 61 72 63 68 20 2d 65   if {[lsearch -e
8940: 78 61 63 74 20 2d 6e 6f 63 61 73 65 20 24 64 65  xact -nocase $de
8950: 66 69 6e 65 43 6f 6e 73 74 61 6e 74 73 20 24 6e  fineConstants $n
8960: 61 6d 65 5d 20 21 3d 20 2d 31 7d 20 74 68 65 6e  ame] != -1} then
8970: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d   {..          #.
8980: 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54  .          # NOT
8990: 45 3a 20 59 65 73 2c 20 74 68 69 73 20 64 65 66  E: Yes, this def
89a0: 69 6e 65 20 63 6f 6e 73 74 61 6e 74 20 77 61 73  ine constant was
89b0: 20 65 6e 61 62 6c 65 64 20 77 68 65 6e 20 74 68   enabled when th
89c0: 65 20 6d 61 6e 61 67 65 64 0d 0a 20 20 20 20 20  e managed..     
89d0: 20 20 20 20 20 23 20 20 20 20 20 20 20 61 73 73       #       ass
89e0: 65 6d 62 6c 79 20 77 61 73 20 63 6f 6d 70 69 6c  embly was compil
89f0: 65 64 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23  ed...          #
8a00: 0d 0a 20 20 20 20 20 20 20 20 20 20 61 64 64 43  ..          addC
8a10: 6f 6e 73 74 72 61 69 6e 74 20 5b 61 70 70 65 6e  onstraint [appen
8a20: 64 41 72 67 73 20 64 65 66 69 6e 65 43 6f 6e 73  dArgs defineCons
8a30: 74 61 6e 74 2e 53 79 73 74 65 6d 2e 44 61 74 61  tant.System.Data
8a40: 2e 53 51 4c 69 74 65 2e 20 24 6e 61 6d 65 5d 0d  .SQLite. $name].
8a50: 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70 75  ...          tpu
8a60: 74 73 20 24 63 68 61 6e 6e 65 6c 20 79 65 73 5c  ts $channel yes\
8a70: 6e 0d 0a 20 20 20 20 20 20 20 20 7d 20 65 6c 73  n..        } els
8a80: 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 74  e {..          t
8a90: 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 6e 6f  puts $channel no
8aa0: 5c 6e 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20  \n..        }.. 
8ab0: 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20       } else {.. 
8ac0: 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68         tputs $ch
8ad0: 61 6e 6e 65 6c 20 65 72 72 6f 72 5c 6e 0d 0a 20  annel error\n.. 
8ae0: 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c       }..    }...
8af0: 0d 0a 20 20 20 20 70 72 6f 63 20 67 65 74 44 61  ..    proc getDa
8b00: 74 65 54 69 6d 65 46 6f 72 6d 61 74 20 7b 7d 20  teTimeFormat {} 
8b10: 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20  {..      #..    
8b20: 20 20 23 20 4e 4f 54 45 3a 20 54 68 69 73 20 70    # NOTE: This p
8b30: 72 6f 63 65 64 75 72 65 20 73 69 6d 70 6c 79 20  rocedure simply 
8b40: 72 65 74 75 72 6e 73 20 74 68 65 20 22 64 65 66  returns the "def
8b50: 61 75 6c 74 22 20 44 61 74 65 54 69 6d 65 20 66  ault" DateTime f
8b60: 6f 72 6d 61 74 20 75 73 65 64 0d 0a 20 20 20 20  ormat used..    
8b70: 20 20 23 20 20 20 20 20 20 20 62 79 20 74 68 65    #       by the
8b80: 20 74 65 73 74 20 73 75 69 74 65 2e 0d 0a 20 20   test suite...  
8b90: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20      #..      if 
8ba0: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a  {[info exists ::
8bb0: 64 61 74 65 74 69 6d 65 5f 66 6f 72 6d 61 74 5d  datetime_format]
8bc0: 20 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 20   && \..         
8bd0: 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20   [string length 
8be0: 24 3a 3a 64 61 74 65 74 69 6d 65 5f 66 6f 72 6d  $::datetime_form
8bf0: 61 74 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d  at] > 0} then {.
8c00: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20  .        #..    
8c10: 20 20 20 20 23 20 4e 4f 54 45 3a 20 52 65 74 75      # NOTE: Retu
8c20: 72 6e 20 74 68 65 20 6d 61 6e 75 61 6c 6c 79 20  rn the manually 
8c30: 6f 76 65 72 72 69 64 64 65 6e 20 76 61 6c 75 65  overridden value
8c40: 20 66 6f 72 20 74 68 65 20 44 61 74 65 54 69 6d   for the DateTim
8c50: 65 20 66 6f 72 6d 61 74 2e 0d 0a 20 20 20 20 20  e format...     
8c60: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 72 65     #..        re
8c70: 74 75 72 6e 20 24 3a 3a 64 61 74 65 74 69 6d 65  turn $::datetime
8c80: 5f 66 6f 72 6d 61 74 0d 0a 20 20 20 20 20 20 7d  _format..      }
8c90: 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20   else {..       
8ca0: 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f   #..        # NO
8cb0: 54 45 3a 20 52 65 74 75 72 6e 20 61 6e 20 49 53  TE: Return an IS
8cc0: 4f 38 36 30 31 20 44 61 74 65 54 69 6d 65 20 66  O8601 DateTime f
8cd0: 6f 72 6d 61 74 20 63 6f 6d 70 61 74 69 62 6c 65  ormat compatible
8ce0: 20 77 69 74 68 20 53 51 4c 69 74 65 2c 0d 0a 20   with SQLite,.. 
8cf0: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 53         #       S
8d00: 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74  ystem.Data.SQLit
8d10: 65 2c 20 61 6e 64 20 73 75 69 74 61 62 6c 65 20  e, and suitable 
8d20: 66 6f 72 20 72 6f 75 6e 64 2d 74 72 69 70 70 69  for round-trippi
8d30: 6e 67 20 77 69 74 68 20 74 68 65 0d 0a 20 20 20  ng with the..   
8d40: 20 20 20 20 20 23 20 20 20 20 20 20 20 44 61 74       #       Dat
8d50: 65 54 69 6d 65 20 63 6c 61 73 73 20 6f 66 20 74  eTime class of t
8d60: 68 65 20 66 72 61 6d 65 77 6f 72 6b 2e 20 20 49  he framework.  I
8d70: 66 20 74 68 69 73 20 76 61 6c 75 65 20 69 73 20  f this value is 
8d80: 63 68 61 6e 67 65 64 2c 0d 0a 20 20 20 20 20 20  changed,..      
8d90: 20 20 23 20 20 20 20 20 20 20 76 61 72 69 6f 75    #       variou
8da0: 73 20 74 65 73 74 73 20 6d 61 79 20 66 61 69 6c  s tests may fail
8db0: 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20  ...        #..  
8dc0: 20 20 20 20 20 20 72 65 74 75 72 6e 20 22 79 79        return "yy
8dd0: 79 79 2d 4d 4d 2d 64 64 20 48 48 3a 6d 6d 3a 73  yy-MM-dd HH:mm:s
8de0: 73 2e 46 46 46 46 46 46 46 4b 22 0d 0a 20 20 20  s.FFFFFFFK"..   
8df0: 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a     }..    }.....
8e00: 20 20 20 20 70 72 6f 63 20 65 6e 75 6d 65 72 61      proc enumera
8e10: 62 6c 65 54 6f 4c 69 73 74 20 7b 20 65 6e 75 6d  bleToList { enum
8e20: 65 72 61 62 6c 65 20 7d 20 7b 0d 0a 20 20 20 20  erable } {..    
8e30: 20 20 73 65 74 20 72 65 73 75 6c 74 20 5b 6c 69    set result [li
8e40: 73 74 5d 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20  st]....      if 
8e50: 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20  {[string length 
8e60: 24 65 6e 75 6d 65 72 61 62 6c 65 5d 20 3d 3d 20  $enumerable] == 
8e70: 30 20 7c 7c 20 24 65 6e 75 6d 65 72 61 62 6c 65  0 || $enumerable
8e80: 20 65 71 20 22 6e 75 6c 6c 22 7d 20 74 68 65 6e   eq "null"} then
8e90: 20 7b 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75   {..        retu
8ea0: 72 6e 20 24 72 65 73 75 6c 74 0d 0a 20 20 20 20  rn $result..    
8eb0: 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 6f 62 6a    }....      obj
8ec0: 65 63 74 20 66 6f 72 65 61 63 68 20 2d 61 6c 69  ect foreach -ali
8ed0: 61 73 20 69 74 65 6d 20 24 65 6e 75 6d 65 72 61  as item $enumera
8ee0: 62 6c 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 69  ble {..        i
8ef0: 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74  f {[string lengt
8f00: 68 20 24 69 74 65 6d 5d 20 3e 20 30 7d 20 74 68  h $item] > 0} th
8f10: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20  en {..          
8f20: 6c 61 70 70 65 6e 64 20 72 65 73 75 6c 74 20 5b  lappend result [
8f30: 24 69 74 65 6d 20 54 6f 53 74 72 69 6e 67 5d 0d  $item ToString].
8f40: 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20  .        }..    
8f50: 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 72 65 74    }....      ret
8f60: 75 72 6e 20 24 72 65 73 75 6c 74 0d 0a 20 20 20  urn $result..   
8f70: 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20   }.....    proc 
8f80: 63 61 74 63 68 41 6e 64 52 65 74 75 72 6e 20 7b  catchAndReturn {
8f90: 20 73 63 72 69 70 74 20 7b 73 74 61 63 6b 54 72   script {stackTr
8fa0: 61 63 65 20 66 61 6c 73 65 7d 20 7b 73 74 72 69  ace false} {stri
8fb0: 63 74 20 74 72 75 65 7d 20 7d 20 7b 0d 0a 20 20  ct true} } {..  
8fc0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e      #..      # N
8fd0: 4f 54 45 3a 20 45 76 61 6c 75 61 74 65 20 74 68  OTE: Evaluate th
8fe0: 65 20 73 63 72 69 70 74 20 70 72 6f 76 69 64 65  e script provide
8ff0: 64 20 62 79 20 6f 75 72 20 63 61 6c 6c 65 72 20  d by our caller 
9000: 69 6e 20 74 68 65 69 72 20 63 6f 6e 74 65 78 74  in their context
9010: 2c 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20  ,..      #      
9020: 20 63 61 70 74 75 72 69 6e 67 20 62 6f 74 68 20   capturing both 
9030: 74 68 65 20 72 65 73 75 6c 74 20 61 6e 64 20 74  the result and t
9040: 68 65 20 72 65 74 75 72 6e 20 63 6f 64 65 2e 0d  he return code..
9050: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20  .      #..      
9060: 73 65 74 20 63 6f 64 65 20 5b 63 61 74 63 68 20  set code [catch 
9070: 7b 75 70 6c 65 76 65 6c 20 31 20 24 73 63 72 69  {uplevel 1 $scri
9080: 70 74 7d 20 72 65 73 75 6c 74 5d 0d 0a 0d 0a 20  pt} result].... 
9090: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20       #..      # 
90a0: 4e 4f 54 45 3a 20 44 69 64 20 74 68 65 20 73 63  NOTE: Did the sc
90b0: 72 69 70 74 20 70 72 6f 76 69 64 65 64 20 62 79  ript provided by
90c0: 20 6f 75 72 20 63 61 6c 6c 65 72 20 4e 4f 54 20   our caller NOT 
90d0: 72 61 69 73 65 20 61 6e 20 65 72 72 6f 72 3f 0d  raise an error?.
90e0: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20  .      #..      
90f0: 69 66 20 7b 24 73 74 72 69 63 74 20 26 26 20 24  if {$strict && $
9100: 63 6f 64 65 20 3d 3d 20 30 20 7c 7c 20 21 24 73  code == 0 || !$s
9110: 74 72 69 63 74 20 26 26 20 24 63 6f 64 65 20 21  trict && $code !
9120: 3d 20 31 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  = 1} then {..   
9130: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..        
9140: 23 20 4e 4f 54 45 3a 20 53 75 63 63 65 73 73 2e  # NOTE: Success.
9150: 20 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20    Return a list 
9160: 77 69 74 68 20 74 68 65 20 72 65 74 75 72 6e 20  with the return 
9170: 63 6f 64 65 20 61 6e 64 20 74 68 65 20 72 65 73  code and the res
9180: 75 6c 74 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d  ult...        #.
9190: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20  .        return 
91a0: 5b 6c 69 73 74 20 24 63 6f 64 65 20 24 72 65 73  [list $code $res
91b0: 75 6c 74 5d 0d 0a 20 20 20 20 20 20 7d 20 65 6c  ult]..      } el
91c0: 73 65 69 66 20 7b 24 73 74 61 63 6b 54 72 61 63  seif {$stackTrac
91d0: 65 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  e} then {..     
91e0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20     #..        # 
91f0: 4e 4f 54 45 3a 20 46 61 69 6c 75 72 65 2e 20 20  NOTE: Failure.  
9200: 4f 75 72 20 63 61 6c 6c 65 72 20 77 61 6e 74 73  Our caller wants
9210: 20 61 20 66 75 6c 6c 20 73 74 61 63 6b 20 74 72   a full stack tr
9220: 61 63 65 20 28 69 66 20 61 70 70 6c 69 63 61 62  ace (if applicab
9230: 6c 65 29 2c 0d 0a 20 20 20 20 20 20 20 20 23 20  le),..        # 
9240: 20 20 20 20 20 20 72 65 74 75 72 6e 20 61 20 6c        return a l
9250: 69 73 74 20 77 69 74 68 20 74 68 65 20 72 65 74  ist with the ret
9260: 75 72 6e 20 63 6f 64 65 20 61 6e 64 20 74 68 65  urn code and the
9270: 20 72 65 73 75 6c 74 20 76 65 72 62 61 74 69 6d   result verbatim
9280: 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20  ...        #..  
9290: 20 20 20 20 20 20 72 65 74 75 72 6e 20 5b 6c 69        return [li
92a0: 73 74 20 24 63 6f 64 65 20 24 72 65 73 75 6c 74  st $code $result
92b0: 5d 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20  ]..      } else 
92c0: 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20  {..        #..  
92d0: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 46 61        # NOTE: Fa
92e0: 69 6c 75 72 65 2e 20 20 4f 75 72 20 63 61 6c 6c  ilure.  Our call
92f0: 65 72 20 64 6f 65 73 20 6e 6f 74 20 77 61 6e 74  er does not want
9300: 20 61 20 66 75 6c 6c 20 73 74 61 63 6b 20 74 72   a full stack tr
9310: 61 63 65 20 28 69 66 0d 0a 20 20 20 20 20 20 20  ace (if..       
9320: 20 23 20 20 20 20 20 20 20 61 70 70 6c 69 63 61   #       applica
9330: 62 6c 65 29 2c 20 72 65 74 75 72 6e 20 61 20 6c  ble), return a l
9340: 69 73 74 20 77 69 74 68 20 74 68 65 20 72 65 74  ist with the ret
9350: 75 72 6e 20 63 6f 64 65 2c 20 74 68 65 20 65 72  urn code, the er
9360: 72 6f 72 0d 0a 20 20 20 20 20 20 20 20 23 20 20  ror..        #  
9370: 20 20 20 20 20 63 6f 64 65 20 66 6f 72 20 74 68       code for th
9380: 65 20 69 6e 74 65 72 70 72 65 74 65 72 2c 20 61  e interpreter, a
9390: 6e 64 20 74 68 65 20 65 72 72 6f 72 20 6d 65 73  nd the error mes
93a0: 73 61 67 65 20 75 70 20 74 6f 20 74 68 65 0d 0a  sage up to the..
93b0: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20          #       
93c0: 70 6f 69 6e 74 20 77 68 65 72 65 20 74 68 65 20  point where the 
93d0: 73 74 61 63 6b 20 74 72 61 63 65 20 73 68 6f 75  stack trace shou
93e0: 6c 64 20 73 74 61 72 74 2e 0d 0a 20 20 20 20 20  ld start...     
93f0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 73 65     #..        se
9400: 74 20 69 6e 64 65 78 20 5b 73 74 72 69 6e 67 20  t index [string 
9410: 66 69 72 73 74 20 22 20 20 20 61 74 20 22 20 24  first "   at " $
9420: 72 65 73 75 6c 74 5d 3b 20 23 20 48 41 43 4b 3a  result]; # HACK:
9430: 20 52 65 6c 69 61 62 6c 65 3f 0d 0a 0d 0a 20 20   Reliable?....  
9440: 20 20 20 20 20 20 72 65 74 75 72 6e 20 5b 6c 69        return [li
9450: 73 74 20 24 63 6f 64 65 20 24 3a 3a 65 72 72 6f  st $code $::erro
9460: 72 43 6f 64 65 20 5b 65 78 70 72 20 7b 24 69 6e  rCode [expr {$in
9470: 64 65 78 20 21 3d 20 2d 31 20 3f 20 5c 0d 0a 20  dex != -1 ? \.. 
9480: 20 20 20 20 20 20 20 20 20 20 20 5b 73 74 72 69             [stri
9490: 6e 67 20 74 72 69 6d 20 5b 73 74 72 69 6e 67 20  ng trim [string 
94a0: 72 61 6e 67 65 20 24 72 65 73 75 6c 74 20 30 20  range $result 0 
94b0: 24 69 6e 64 65 78 5d 5d 20 3a 20 24 72 65 73 75  $index]] : $resu
94c0: 6c 74 7d 5d 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a  lt}]]..      }..
94d0: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72      }.....    pr
94e0: 6f 63 20 63 6f 6d 70 69 6c 65 43 53 68 61 72 70  oc compileCSharp
94f0: 57 69 74 68 20 7b 0d 0a 20 20 20 20 20 20 20 20  With {..        
9500: 20 20 20 20 74 65 78 74 20 6d 65 6d 6f 72 79 20      text memory 
9510: 73 79 6d 62 6f 6c 73 20 73 74 72 69 63 74 20 72  symbols strict r
9520: 65 73 75 6c 74 73 56 61 72 4e 61 6d 65 20 65 72  esultsVarName er
9530: 72 6f 72 73 56 61 72 4e 61 6d 65 20 66 69 6c 65  rorsVarName file
9540: 4e 61 6d 65 73 0d 0a 20 20 20 20 20 20 20 20 20  Names..         
9550: 20 20 20 61 72 67 73 20 7d 20 7b 0d 0a 20 20 20     args } {..   
9560: 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f     #..      # NO
9570: 54 45 3a 20 53 69 6e 63 65 20 77 65 20 61 72 65  TE: Since we are
9580: 20 67 6f 69 6e 67 20 74 6f 20 75 73 65 20 74 68   going to use th
9590: 69 73 20 6d 65 74 68 6f 64 20 6e 61 6d 65 20 61  is method name a
95a0: 20 6c 6f 74 2c 20 61 73 73 69 67 6e 20 69 74 20   lot, assign it 
95b0: 74 6f 20 61 0d 0a 20 20 20 20 20 20 23 20 20 20  to a..      #   
95c0: 20 20 20 20 76 61 72 69 61 62 6c 65 20 66 69 72      variable fir
95d0: 73 74 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  st...      #..  
95e0: 20 20 20 20 73 65 74 20 61 64 64 20 52 65 66 65      set add Refe
95f0: 72 65 6e 63 65 64 41 73 73 65 6d 62 6c 69 65 73  rencedAssemblies
9600: 2e 41 64 64 0d 0a 0d 0a 20 20 20 20 20 20 23 0d  .Add....      #.
9610: 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 43  .      # NOTE: C
9620: 72 65 61 74 65 20 74 68 65 20 62 61 73 65 20 63  reate the base c
9630: 6f 6d 6d 61 6e 64 20 74 6f 20 65 76 61 6c 75 61  ommand to evalua
9640: 74 65 20 61 6e 64 20 61 64 64 20 74 68 65 20 70  te and add the p
9650: 72 6f 70 65 72 74 79 20 73 65 74 74 69 6e 67 73  roperty settings
9660: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20  ..      #       
9670: 74 68 61 74 20 61 72 65 20 61 6c 6d 6f 73 74 20  that are almost 
9680: 61 6c 77 61 79 73 20 6e 65 65 64 65 64 20 62 79  always needed by
9690: 20 6f 75 72 20 75 6e 69 74 20 74 65 73 74 73 20   our unit tests 
96a0: 28 69 2e 65 2e 20 74 68 65 20 53 79 73 74 65 6d  (i.e. the System
96b0: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20  ..      #       
96c0: 61 6e 64 20 53 79 73 74 65 6d 2e 44 61 74 61 20  and System.Data 
96d0: 61 73 73 65 6d 62 6c 79 20 72 65 66 65 72 65 6e  assembly referen
96e0: 63 65 73 29 2e 0d 0a 20 20 20 20 20 20 23 0d 0a  ces)...      #..
96f0: 20 20 20 20 20 20 73 65 74 20 63 6f 6d 6d 61 6e        set comman
9700: 64 20 5b 6c 69 73 74 20 63 6f 6d 70 69 6c 65 43  d [list compileC
9710: 53 68 61 72 70 20 24 74 65 78 74 20 24 6d 65 6d  Sharp $text $mem
9720: 6f 72 79 20 24 73 79 6d 62 6f 6c 73 20 24 73 74  ory $symbols $st
9730: 72 69 63 74 20 72 65 73 75 6c 74 73 20 5c 0d 0a  rict results \..
9740: 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 73            errors
9750: 20 24 61 64 64 20 53 79 73 74 65 6d 2e 64 6c 6c   $add System.dll
9760: 20 24 61 64 64 20 53 79 73 74 65 6d 2e 44 61 74   $add System.Dat
9770: 61 2e 64 6c 6c 20 24 61 64 64 20 53 79 73 74 65  a.dll $add Syste
9780: 6d 2e 58 6d 6c 2e 64 6c 6c 5d 0d 0a 0d 0a 20 20  m.Xml.dll]....  
9790: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e      #..      # N
97a0: 4f 54 45 3a 20 41 64 64 20 61 6c 6c 20 74 68 65  OTE: Add all the
97b0: 20 70 72 6f 76 69 64 65 64 20 66 69 6c 65 20 6e   provided file n
97c0: 61 6d 65 73 20 61 73 20 61 73 73 65 6d 62 6c 79  ames as assembly
97d0: 20 72 65 66 65 72 65 6e 63 65 73 2e 0d 0a 20 20   references...  
97e0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 66 6f 72      #..      for
97f0: 65 61 63 68 20 66 69 6c 65 4e 61 6d 65 20 24 66  each fileName $f
9800: 69 6c 65 4e 61 6d 65 73 20 7b 0d 0a 20 20 20 20  ileNames {..    
9810: 20 20 20 20 6c 61 70 70 65 6e 64 20 63 6f 6d 6d      lappend comm
9820: 61 6e 64 20 24 61 64 64 20 5b 67 65 74 42 69 6e  and $add [getBin
9830: 61 72 79 46 69 6c 65 4e 61 6d 65 20 24 66 69 6c  aryFileName $fil
9840: 65 4e 61 6d 65 5d 0d 0a 20 20 20 20 20 20 7d 0d  eName]..      }.
9850: 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20  ...      #..    
9860: 20 20 23 20 4e 4f 54 45 3a 20 41 64 64 20 74 68    # NOTE: Add th
9870: 65 20 65 78 74 72 61 20 61 72 67 75 6d 65 6e 74  e extra argument
9880: 73 2c 20 69 66 20 61 6e 79 2c 20 74 6f 20 74 68  s, if any, to th
9890: 65 20 63 6f 6d 6d 61 6e 64 20 74 6f 20 65 76 61  e command to eva
98a0: 6c 75 61 74 65 2e 0d 0a 20 20 20 20 20 20 23 0d  luate...      #.
98b0: 0a 20 20 20 20 20 20 65 76 61 6c 20 6c 61 70 70  .      eval lapp
98c0: 65 6e 64 20 63 6f 6d 6d 61 6e 64 20 24 61 72 67  end command $arg
98d0: 73 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  s....      #..  
98e0: 20 20 20 20 23 20 4e 4f 54 45 3a 20 41 6c 69 61      # NOTE: Alia
98f0: 73 20 74 68 65 20 63 6f 6d 70 69 6c 65 72 20 6c  s the compiler l
9900: 6f 63 61 6c 20 72 65 73 75 6c 74 73 20 61 6e 64  ocal results and
9910: 20 65 72 72 6f 72 73 20 76 61 72 69 61 62 6c 65   errors variable
9920: 73 20 74 6f 20 74 68 65 0d 0a 20 20 20 20 20 20  s to the..      
9930: 23 20 20 20 20 20 20 20 76 61 72 69 61 62 6c 65  #       variable
9940: 20 6e 61 6d 65 73 20 70 72 6f 76 69 64 65 64 20   names provided 
9950: 62 79 20 6f 75 72 20 63 61 6c 6c 65 72 2e 0d 0a  by our caller...
9960: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 75        #..      u
9970: 70 76 61 72 20 31 20 24 72 65 73 75 6c 74 73 56  pvar 1 $resultsV
9980: 61 72 4e 61 6d 65 20 72 65 73 75 6c 74 73 0d 0a  arName results..
9990: 20 20 20 20 20 20 75 70 76 61 72 20 31 20 24 65        upvar 1 $e
99a0: 72 72 6f 72 73 56 61 72 4e 61 6d 65 20 65 72 72  rrorsVarName err
99b0: 6f 72 73 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a  ors....      #..
99c0: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 45 76        # NOTE: Ev
99d0: 61 6c 75 61 74 65 20 74 68 65 20 63 6f 6e 73 74  aluate the const
99e0: 72 75 63 74 65 64 20 5b 63 6f 6d 70 69 6c 65 43  ructed [compileC
99f0: 53 68 61 72 70 5d 20 63 6f 6d 6d 61 6e 64 20 61  Sharp] command a
9a00: 6e 64 20 72 65 74 75 72 6e 20 74 68 65 0d 0a 20  nd return the.. 
9a10: 20 20 20 20 20 23 20 20 20 20 20 20 20 72 65 73       #       res
9a20: 75 6c 74 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20  ult...      #.. 
9a30: 20 20 20 20 20 65 76 61 6c 20 24 63 6f 6d 6d 61       eval $comma
9a40: 6e 64 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20  nd..    }.....  
9a50: 20 20 70 72 6f 63 20 69 73 4d 65 6d 6f 72 79 44    proc isMemoryD
9a60: 62 20 7b 20 66 69 6c 65 4e 61 6d 65 20 7d 20 7b  b { fileName } {
9a70: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20  ..      #..     
9a80: 20 23 20 4e 4f 54 45 3a 20 49 73 20 74 68 65 20   # NOTE: Is the 
9a90: 73 70 65 63 69 66 69 65 64 20 64 61 74 61 62 61  specified databa
9aa0: 73 65 20 66 69 6c 65 20 6e 61 6d 65 20 72 65 61  se file name rea
9ab0: 6c 6c 79 20 61 6e 20 69 6e 2d 6d 65 6d 6f 72 79  lly an in-memory
9ac0: 20 64 61 74 61 62 61 73 65 3f 0d 0a 20 20 20 20   database?..    
9ad0: 20 20 23 0d 0a 20 20 20 20 20 20 72 65 74 75 72    #..      retur
9ae0: 6e 20 5b 65 78 70 72 20 7b 24 66 69 6c 65 4e 61  n [expr {$fileNa
9af0: 6d 65 20 65 71 20 22 3a 6d 65 6d 6f 72 79 3a 22  me eq ":memory:"
9b00: 20 7c 7c 20 5c 0d 0a 20 20 20 20 20 20 20 20 20   || \..         
9b10: 20 5b 73 74 72 69 6e 67 20 72 61 6e 67 65 20 24   [string range $
9b20: 66 69 6c 65 4e 61 6d 65 20 30 20 31 32 5d 20 65  fileName 0 12] e
9b30: 71 20 22 66 69 6c 65 3a 3a 6d 65 6d 6f 72 79 3a  q "file::memory:
9b40: 22 7d 5d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20  "}]..    }..... 
9b50: 20 20 20 70 72 6f 63 20 69 73 54 61 62 6c 65 49     proc isTableI
9b60: 6e 44 62 20 7b 20 6e 61 6d 65 20 7b 76 61 72 4e  nDb { name {varN
9b70: 61 6d 65 20 64 62 7d 20 7d 20 7b 0d 0a 20 20 20  ame db} } {..   
9b80: 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f     #..      # NO
9b90: 54 45 3a 20 52 65 66 65 72 20 74 6f 20 74 68 65  TE: Refer to the
9ba0: 20 73 70 65 63 69 66 69 65 64 20 76 61 72 69 61   specified varia
9bb0: 62 6c 65 20 28 65 2e 67 2e 20 22 64 62 22 29 20  ble (e.g. "db") 
9bc0: 69 6e 20 74 68 65 20 63 6f 6e 74 65 78 74 20 6f  in the context o
9bd0: 66 20 6f 75 72 0d 0a 20 20 20 20 20 20 23 20 20  f our..      #  
9be0: 20 20 20 20 20 63 61 6c 6c 65 72 2e 20 20 49 74       caller.  It
9bf0: 20 63 6f 6e 74 61 69 6e 73 20 74 68 65 20 64 61   contains the da
9c00: 74 61 62 61 73 65 20 63 6f 6e 6e 65 63 74 69 6f  tabase connectio
9c10: 6e 20 68 61 6e 64 6c 65 20 74 68 61 74 20 77 69  n handle that wi
9c20: 6c 6c 20 62 65 0d 0a 20 20 20 20 20 20 23 20 20  ll be..      #  
9c30: 20 20 20 20 20 75 73 65 64 20 74 6f 20 65 78 65       used to exe
9c40: 63 75 74 65 20 74 68 65 20 71 75 65 72 79 20 75  cute the query u
9c50: 73 65 64 20 74 6f 20 64 65 74 65 72 6d 69 6e 65  sed to determine
9c60: 20 69 66 20 74 68 65 20 6e 61 6d 65 64 20 74 61   if the named ta
9c70: 62 6c 65 20 69 73 0d 0a 20 20 20 20 20 20 23 20  ble is..      # 
9c80: 20 20 20 20 20 20 70 72 65 73 65 6e 74 20 69 6e        present in
9c90: 20 74 68 61 74 20 64 61 74 61 62 61 73 65 2e 0d   that database..
9ca0: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20  .      #..      
9cb0: 75 70 76 61 72 20 31 20 24 76 61 72 4e 61 6d 65  upvar 1 $varName
9cc0: 20 64 62 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a   db....      #..
9cd0: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 45 78        # NOTE: Ex
9ce0: 65 63 75 74 65 20 74 68 65 20 53 51 4c 20 71 75  ecute the SQL qu
9cf0: 65 72 79 20 61 67 61 69 6e 73 74 20 74 68 65 20  ery against the 
9d00: 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 20 74 61  sqlite_master ta
9d10: 62 6c 65 20 74 6f 20 63 68 65 63 6b 20 69 66 0d  ble to check if.
9d20: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 74  .      #       t
9d30: 68 65 20 6e 61 6d 65 64 20 74 61 62 6c 65 20 69  he named table i
9d40: 73 20 70 72 65 73 65 6e 74 20 61 6e 64 20 72 65  s present and re
9d50: 74 75 72 6e 20 6e 6f 6e 2d 7a 65 72 6f 20 69 66  turn non-zero if
9d60: 20 69 74 20 69 73 2e 0d 0a 20 20 20 20 20 20 23   it is...      #
9d70: 0d 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 5b  ..      return [
9d80: 65 78 70 72 20 7b 5b 73 71 6c 20 65 78 65 63 75  expr {[sql execu
9d90: 74 65 20 2d 65 78 65 63 75 74 65 20 73 63 61 6c  te -execute scal
9da0: 61 72 20 24 64 62 20 5c 0d 0a 20 20 20 20 20 20  ar $db \..      
9db0: 20 20 20 20 22 53 45 4c 45 43 54 20 43 4f 55 4e      "SELECT COUN
9dc0: 54 28 2a 29 20 46 52 4f 4d 20 73 71 6c 69 74 65  T(*) FROM sqlite
9dd0: 5f 6d 61 73 74 65 72 20 57 48 45 52 45 20 74 79  _master WHERE ty
9de0: 70 65 20 3d 20 27 74 61 62 6c 65 27 20 41 4e 44  pe = 'table' AND
9df0: 20 6e 61 6d 65 20 3d 20 3f 3b 22 20 5c 0d 0a 20   name = ?;" \.. 
9e00: 20 20 20 20 20 20 20 20 20 5b 6c 69 73 74 20 70           [list p
9e10: 61 72 61 6d 31 20 53 74 72 69 6e 67 20 24 6e 61  aram1 String $na
9e20: 6d 65 5d 5d 20 3e 20 30 7d 5d 0d 0a 20 20 20 20  me]] > 0}]..    
9e30: 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 74  }.....    proc t
9e40: 72 69 6d 53 71 6c 20 7b 20 73 71 6c 20 7d 20 7b  rimSql { sql } {
9e50: 0d 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 5b  ..      return [
9e60: 72 65 67 73 75 62 20 2d 61 6c 6c 20 2d 2d 20 7b  regsub -all -- {
9e70: 5c 73 2b 7d 20 5b 73 74 72 69 6e 67 20 74 72 69  \s+} [string tri
9e80: 6d 20 24 73 71 6c 5d 20 22 20 22 5d 0d 0a 20 20  m $sql] " "]..  
9e90: 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63    }.....    proc
9ea0: 20 65 78 65 63 75 74 65 53 71 6c 20 7b 20 73 71   executeSql { sq
9eb0: 6c 20 7b 65 78 65 63 75 74 65 20 6e 6f 6e 65 7d  l {execute none}
9ec0: 20 7b 66 69 6c 65 4e 61 6d 65 20 22 22 7d 20 7d   {fileName ""} }
9ed0: 20 7b 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 73   {..      if {[s
9ee0: 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 66 69  tring length $fi
9ef0: 6c 65 4e 61 6d 65 5d 20 3d 3d 20 30 7d 20 74 68  leName] == 0} th
9f00: 65 6e 20 7b 73 65 74 20 66 69 6c 65 4e 61 6d 65  en {set fileName
9f10: 20 3a 6d 65 6d 6f 72 79 3a 7d 0d 0a 20 20 20 20   :memory:}..    
9f20: 20 20 73 65 74 75 70 44 62 20 24 66 69 6c 65 4e    setupDb $fileN
9f30: 61 6d 65 20 22 22 20 22 22 20 22 22 20 22 22 20  ame "" "" "" "" 
9f40: 22 22 20 66 61 6c 73 65 20 66 61 6c 73 65 20 66  "" false false f
9f50: 61 6c 73 65 20 66 61 6c 73 65 20 6d 65 6d 44 62  alse false memDb
9f60: 0d 0a 0d 0a 20 20 20 20 20 20 74 72 79 20 7b 0d  ....      try {.
9f70: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20  .        return 
9f80: 5b 73 71 6c 20 65 78 65 63 75 74 65 20 2d 65 78  [sql execute -ex
9f90: 65 63 75 74 65 20 24 65 78 65 63 75 74 65 20 24  ecute $execute $
9fa0: 6d 65 6d 44 62 20 24 73 71 6c 5d 0d 0a 20 20 20  memDb $sql]..   
9fb0: 20 20 20 7d 20 66 69 6e 61 6c 6c 79 20 7b 0d 0a     } finally {..
9fc0: 20 20 20 20 20 20 20 20 63 6c 65 61 6e 75 70 44          cleanupD
9fd0: 62 20 24 66 69 6c 65 4e 61 6d 65 20 6d 65 6d 44  b $fileName memD
9fe0: 62 20 66 61 6c 73 65 20 66 61 6c 73 65 0d 0a 20  b false false.. 
9ff0: 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c       }..    }...
a000: 0d 0a 20 20 20 20 70 72 6f 63 20 73 65 74 75 70  ..    proc setup
a010: 44 62 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20  Db {..          
a020: 20 20 66 69 6c 65 4e 61 6d 65 20 7b 6d 6f 64 65    fileName {mode
a030: 20 22 22 7d 20 7b 64 61 74 65 54 69 6d 65 46 6f   ""} {dateTimeFo
a040: 72 6d 61 74 20 22 22 7d 20 7b 64 61 74 65 54 69  rmat ""} {dateTi
a050: 6d 65 4b 69 6e 64 20 22 22 7d 20 7b 66 6c 61 67  meKind ""} {flag
a060: 73 20 22 22 7d 0d 0a 20 20 20 20 20 20 20 20 20  s ""}..         
a070: 20 20 20 7b 65 78 74 72 61 20 22 22 7d 20 7b 71     {extra ""} {q
a080: 75 61 6c 69 66 79 20 74 72 75 65 7d 20 7b 64 65  ualify true} {de
a090: 6c 65 74 65 20 74 72 75 65 7d 20 7b 75 72 69 20  lete true} {uri 
a0a0: 66 61 6c 73 65 7d 0d 0a 20 20 20 20 20 20 20 20  false}..        
a0b0: 20 20 20 20 7b 74 65 6d 70 6f 72 61 72 79 20 74      {temporary t
a0c0: 72 75 65 7d 20 7b 76 61 72 4e 61 6d 65 20 64 62  rue} {varName db
a0d0: 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a  } } {..      #..
a0e0: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 46 69        # NOTE: Fi
a0f0: 72 73 74 2c 20 73 65 65 20 69 66 20 6f 75 72 20  rst, see if our 
a100: 63 61 6c 6c 65 72 20 68 61 73 20 72 65 71 75 65  caller has reque
a110: 73 74 65 64 20 61 6e 20 69 6e 2d 6d 65 6d 6f 72  sted an in-memor
a120: 79 20 64 61 74 61 62 61 73 65 2e 0d 0a 20 20 20  y database...   
a130: 20 20 20 23 0d 0a 20 20 20 20 20 20 73 65 74 20     #..      set 
a140: 69 73 4d 65 6d 6f 72 79 20 5b 69 73 4d 65 6d 6f  isMemory [isMemo
a150: 72 79 44 62 20 24 66 69 6c 65 4e 61 6d 65 5d 0d  ryDb $fileName].
a160: 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20  ...      #..    
a170: 20 20 23 20 4e 4f 54 45 3a 20 46 6f 72 20 6e 6f    # NOTE: For no
a180: 77 2c 20 61 6c 6c 20 74 65 73 74 20 64 61 74 61  w, all test data
a190: 62 61 73 65 73 20 75 73 65 64 20 62 79 20 74 68  bases used by th
a1a0: 65 20 74 65 73 74 20 73 75 69 74 65 20 61 72 65  e test suite are
a1b0: 20 70 6c 61 63 65 64 0d 0a 20 20 20 20 20 20 23   placed..      #
a1c0: 20 20 20 20 20 20 20 69 6e 74 6f 20 74 68 65 20         into the 
a1d0: 64 61 74 61 62 61 73 65 20 64 69 72 65 63 74 6f  database directo
a1e0: 72 79 2e 20 20 45 61 63 68 20 64 61 74 61 62 61  ry.  Each databa
a1f0: 73 65 20 61 6e 64 20 72 65 6c 61 74 65 64 20 66  se and related f
a200: 69 6c 65 73 0d 0a 20 20 20 20 20 20 23 20 20 20  iles..      #   
a210: 20 20 20 20 75 73 65 64 20 62 79 20 61 20 74 65      used by a te
a220: 73 74 20 73 68 6f 75 6c 64 20 62 65 20 63 6c 65  st should be cle
a230: 61 6e 65 64 20 75 70 20 62 79 20 74 68 61 74 20  aned up by that 
a240: 74 65 73 74 20 75 73 69 6e 67 20 74 68 65 0d 0a  test using the..
a250: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 22 63        #       "c
a260: 6c 65 61 6e 75 70 44 62 22 20 70 72 6f 63 65 64  leanupDb" proced
a270: 75 72 65 2c 20 62 65 6c 6f 77 2e 0d 0a 20 20 20  ure, below...   
a280: 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b     #..      if {
a290: 21 24 69 73 4d 65 6d 6f 72 79 20 26 26 20 24 71  !$isMemory && $q
a2a0: 75 61 6c 69 66 79 7d 20 74 68 65 6e 20 7b 0d 0a  ualify} then {..
a2b0: 20 20 20 20 20 20 20 20 73 65 74 20 66 69 6c 65          set file
a2c0: 4e 61 6d 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20  Name [file join 
a2d0: 5b 67 65 74 44 61 74 61 62 61 73 65 44 69 72 65  [getDatabaseDire
a2e0: 63 74 6f 72 79 5d 20 5b 66 69 6c 65 20 74 61 69  ctory] [file tai
a2f0: 6c 20 24 66 69 6c 65 4e 61 6d 65 5d 5d 0d 0a 20  l $fileName]].. 
a300: 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20       }....      
a310: 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a  #..      # NOTE:
a320: 20 42 79 20 64 65 66 61 75 6c 74 2c 20 64 65 6c   By default, del
a330: 65 74 65 20 61 6e 79 20 70 72 65 2d 65 78 69 73  ete any pre-exis
a340: 74 69 6e 67 20 64 61 74 61 62 61 73 65 20 77 69  ting database wi
a350: 74 68 20 74 68 65 20 73 61 6d 65 20 66 69 6c 65  th the same file
a360: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20  ..      #       
a370: 6e 61 6d 65 20 69 66 20 69 74 20 63 75 72 72 65  name if it curre
a380: 6e 74 6c 79 20 65 78 69 73 74 73 2e 0d 0a 20 20  ntly exists...  
a390: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20      #..      if 
a3a0: 7b 21 24 69 73 4d 65 6d 6f 72 79 20 26 26 20 24  {!$isMemory && $
a3b0: 64 65 6c 65 74 65 20 26 26 20 5b 66 69 6c 65 20  delete && [file 
a3c0: 65 78 69 73 74 73 20 24 66 69 6c 65 4e 61 6d 65  exists $fileName
a3d0: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  ]} then {..     
a3e0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20     #..        # 
a3f0: 4e 4f 54 45 3a 20 41 74 74 65 6d 70 74 20 74 6f  NOTE: Attempt to
a400: 20 64 65 6c 65 74 65 20 61 6e 79 20 70 72 65 2d   delete any pre-
a410: 65 78 69 73 74 69 6e 67 20 64 61 74 61 62 61 73  existing databas
a420: 65 20 77 69 74 68 20 74 68 65 20 73 61 6d 65 20  e with the same 
a430: 66 69 6c 65 0d 0a 20 20 20 20 20 20 20 20 23 20  file..        # 
a440: 20 20 20 20 20 20 6e 61 6d 65 2e 0d 0a 20 20 20        name...   
a450: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..        
a460: 69 66 20 7b 5b 63 61 74 63 68 20 7b 66 69 6c 65  if {[catch {file
a470: 20 64 65 6c 65 74 65 20 24 66 69 6c 65 4e 61 6d   delete $fileNam
a480: 65 7d 20 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20  e} error]} then 
a490: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a  {..          #..
a4a0: 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45            # NOTE
a4b0: 3a 20 57 65 20 73 6f 6d 65 68 6f 77 20 66 61 69  : We somehow fai
a4c0: 6c 65 64 20 74 6f 20 64 65 6c 65 74 65 20 74 68  led to delete th
a4d0: 65 20 66 69 6c 65 2c 20 72 65 70 6f 72 74 20 77  e file, report w
a4e0: 68 79 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23  hy...          #
a4f0: 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70 75 74  ..          tput
a500: 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65  s $::test_channe
a510: 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d  l [appendArgs \.
a520: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22  .              "
a530: 3d 3d 3d 3d 20 57 41 52 4e 49 4e 47 3a 20 66 61  ==== WARNING: fa
a540: 69 6c 65 64 20 74 6f 20 64 65 6c 65 74 65 20 64  iled to delete d
a550: 61 74 61 62 61 73 65 20 66 69 6c 65 20 5c 22 22  atabase file \""
a560: 20 24 66 69 6c 65 4e 61 6d 65 20 5c 0d 0a 20 20   $fileName \..  
a570: 20 20 20 20 20 20 20 20 20 20 20 20 22 5c 22 20              "\" 
a580: 64 75 72 69 6e 67 20 73 65 74 75 70 2c 20 65 72  during setup, er
a590: 72 6f 72 3a 20 22 20 5c 6e 5c 74 20 24 65 72 72  ror: " \n\t $err
a5a0: 6f 72 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20  or \n]..        
a5b0: 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20  }..      }....  
a5c0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e      #..      # N
a5d0: 4f 54 45 3a 20 52 65 66 65 72 20 74 6f 20 74 68  OTE: Refer to th
a5e0: 65 20 73 70 65 63 69 66 69 65 64 20 76 61 72 69  e specified vari
a5f0: 61 62 6c 65 20 28 65 2e 67 2e 20 22 64 62 22 29  able (e.g. "db")
a600: 20 69 6e 20 74 68 65 20 63 6f 6e 74 65 78 74 20   in the context 
a610: 6f 66 20 6f 75 72 0d 0a 20 20 20 20 20 20 23 20  of our..      # 
a620: 20 20 20 20 20 20 63 61 6c 6c 65 72 2e 20 20 54        caller.  T
a630: 68 65 20 68 61 6e 64 6c 65 20 74 6f 20 74 68 65  he handle to the
a640: 20 6f 70 65 6e 65 64 20 64 61 74 61 62 61 73 65   opened database
a650: 20 77 69 6c 6c 20 62 65 20 73 74 6f 72 65 64 20   will be stored 
a660: 74 68 65 72 65 2e 0d 0a 20 20 20 20 20 20 23 0d  there...      #.
a670: 0a 20 20 20 20 20 20 75 70 76 61 72 20 31 20 24  .      upvar 1 $
a680: 76 61 72 4e 61 6d 65 20 64 62 0d 0a 0d 0a 20 20  varName db....  
a690: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e      #..      # N
a6a0: 4f 54 45 3a 20 53 74 61 72 74 20 62 75 69 6c 64  OTE: Start build
a6b0: 69 6e 67 20 74 68 65 20 63 6f 6e 6e 65 63 74 69  ing the connecti
a6c0: 6f 6e 20 73 74 72 69 6e 67 2e 20 20 54 68 65 20  on string.  The 
a6d0: 6f 6e 6c 79 20 72 65 71 75 69 72 65 64 20 70 6f  only required po
a6e0: 72 74 69 6f 6e 0d 0a 20 20 20 20 20 20 23 20 20  rtion..      #  
a6f0: 20 20 20 20 20 6f 66 20 74 68 65 20 63 6f 6e 6e       of the conn
a700: 65 63 74 69 6f 6e 20 73 74 72 69 6e 67 20 69 73  ection string is
a710: 20 74 68 65 20 64 61 74 61 20 73 6f 75 72 63 65   the data source
a720: 2c 20 77 68 69 63 68 20 63 6f 6e 74 61 69 6e 73  , which contains
a730: 20 74 68 65 0d 0a 20 20 20 20 20 20 23 20 20 20   the..      #   
a740: 20 20 20 20 64 61 74 61 62 61 73 65 20 66 69 6c      database fil
a750: 65 20 6e 61 6d 65 20 69 74 73 65 6c 66 2e 20 20  e name itself.  
a760: 49 66 20 6f 75 72 20 63 61 6c 6c 65 72 20 77 61  If our caller wa
a770: 6e 74 73 20 74 6f 20 75 73 65 20 61 20 55 52 49  nts to use a URI
a780: 20 61 73 0d 0a 20 20 20 20 20 20 23 20 20 20 20   as..      #    
a790: 20 20 20 74 68 65 20 64 61 74 61 20 73 6f 75 72     the data sour
a7a0: 63 65 2c 20 75 73 65 20 74 68 65 20 46 75 6c 6c  ce, use the Full
a7b0: 55 72 69 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 73  Uri connection s
a7c0: 74 72 69 6e 67 20 70 72 6f 70 65 72 74 79 20 74  tring property t
a7d0: 6f 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20  o..      #      
a7e0: 20 70 72 65 76 65 6e 74 20 74 68 65 20 64 61 74   prevent the dat
a7f0: 61 20 73 6f 75 72 63 65 20 73 74 72 69 6e 67 20  a source string 
a800: 66 72 6f 6d 20 62 65 69 6e 67 20 6d 61 6e 67 6c  from being mangl
a810: 65 64 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  ed...      #..  
a820: 20 20 20 20 69 66 20 7b 24 75 72 69 7d 20 74 68      if {$uri} th
a830: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 73 65  en {..        se
a840: 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 7b 46 75  t connection {Fu
a850: 6c 6c 55 72 69 3d 24 7b 66 69 6c 65 4e 61 6d 65  llUri=${fileName
a860: 7d 7d 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65  }}..      } else
a870: 20 7b 0d 0a 20 20 20 20 20 20 20 20 73 65 74 20   {..        set 
a880: 63 6f 6e 6e 65 63 74 69 6f 6e 20 7b 44 61 74 61  connection {Data
a890: 20 53 6f 75 72 63 65 3d 24 7b 66 69 6c 65 4e 61   Source=${fileNa
a8a0: 6d 65 7d 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d  me}}..      }...
a8b0: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20  .      #..      
a8c0: 23 20 4e 4f 54 45 3a 20 53 69 6e 63 65 20 74 68  # NOTE: Since th
a8d0: 69 73 20 70 72 6f 63 65 64 75 72 65 20 68 61 73  is procedure has
a8e0: 20 6e 6f 20 73 70 65 63 69 61 6c 20 6b 6e 6f 77   no special know
a8f0: 6c 65 64 67 65 20 6f 66 20 77 68 61 74 20 74 68  ledge of what th
a900: 65 20 64 65 66 61 75 6c 74 0d 0a 20 20 20 20 20  e default..     
a910: 20 23 20 20 20 20 20 20 20 73 65 74 74 69 6e 67   #       setting
a920: 20 69 73 20 66 6f 72 20 74 68 65 20 54 6f 46 75   is for the ToFu
a930: 6c 6c 50 61 74 68 20 63 6f 6e 6e 65 63 74 69 6f  llPath connectio
a940: 6e 20 73 74 72 69 6e 67 20 70 72 6f 70 65 72 79  n string propery
a950: 2c 20 61 6c 77 61 79 73 0d 0a 20 20 20 20 20 20  , always..      
a960: 23 20 20 20 20 20 20 20 61 64 64 20 74 68 65 20  #       add the 
a970: 76 61 6c 75 65 20 77 65 20 6b 6e 6f 77 20 61 62  value we know ab
a980: 6f 75 74 20 74 6f 20 74 68 65 20 63 6f 6e 6e 65  out to the conne
a990: 63 74 69 6f 6e 20 73 74 72 69 6e 67 2e 0d 0a 20  ction string... 
a9a0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 61 70       #..      ap
a9b0: 70 65 6e 64 20 63 6f 6e 6e 65 63 74 69 6f 6e 20  pend connection 
a9c0: 7b 3b 54 6f 46 75 6c 6c 50 61 74 68 3d 24 7b 71  {;ToFullPath=${q
a9d0: 75 61 6c 69 66 79 7d 7d 0d 0a 0d 0a 20 20 20 20  ualify}}....    
a9e0: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54    #..      # NOT
a9f0: 45 3a 20 49 66 20 6f 75 72 20 63 61 6c 6c 65 72  E: If our caller
aa00: 20 73 70 65 63 69 66 69 65 64 20 61 20 6a 6f 75   specified a jou
aa10: 72 6e 61 6c 20 6d 6f 64 65 2c 20 61 64 64 20 74  rnal mode, add t
aa20: 68 65 20 6e 65 63 65 73 73 61 72 79 20 70 6f 72  he necessary por
aa30: 74 69 6f 6e 0d 0a 20 20 20 20 20 20 23 20 20 20  tion..      #   
aa40: 20 20 20 20 6f 66 20 74 68 65 20 63 6f 6e 6e 65      of the conne
aa50: 63 74 69 6f 6e 20 73 74 72 69 6e 67 20 6e 6f 77  ction string now
aa60: 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20  ...      #..    
aa70: 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65    if {[string le
aa80: 6e 67 74 68 20 24 6d 6f 64 65 5d 20 3e 20 30 7d  ngth $mode] > 0}
aa90: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20   then {..       
aaa0: 20 61 70 70 65 6e 64 20 63 6f 6e 6e 65 63 74 69   append connecti
aab0: 6f 6e 20 7b 3b 4a 6f 75 72 6e 61 6c 20 4d 6f 64  on {;Journal Mod
aac0: 65 3d 24 7b 6d 6f 64 65 7d 7d 0d 0a 20 20 20 20  e=${mode}}..    
aad0: 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a    }....      #..
aae0: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 49 66        # NOTE: If
aaf0: 20 6f 75 72 20 63 61 6c 6c 65 72 20 73 70 65 63   our caller spec
ab00: 69 66 69 65 64 20 61 20 44 61 74 65 54 69 6d 65  ified a DateTime
ab10: 20 66 6f 72 6d 61 74 2c 20 61 64 64 20 74 68 65   format, add the
ab20: 20 6e 65 63 65 73 73 61 72 79 0d 0a 20 20 20 20   necessary..    
ab30: 20 20 23 20 20 20 20 20 20 20 70 6f 72 74 69 6f    #       portio
ab40: 6e 20 6f 66 20 74 68 65 20 63 6f 6e 6e 65 63 74  n of the connect
ab50: 69 6f 6e 20 73 74 72 69 6e 67 20 6e 6f 77 2e 0d  ion string now..
ab60: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20  .      #..      
ab70: 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67  if {[string leng
ab80: 74 68 20 24 64 61 74 65 54 69 6d 65 46 6f 72 6d  th $dateTimeForm
ab90: 61 74 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d  at] > 0} then {.
aba0: 0a 20 20 20 20 20 20 20 20 61 70 70 65 6e 64 20  .        append 
abb0: 63 6f 6e 6e 65 63 74 69 6f 6e 20 7b 3b 44 61 74  connection {;Dat
abc0: 65 54 69 6d 65 46 6f 72 6d 61 74 3d 24 7b 64 61  eTimeFormat=${da
abd0: 74 65 54 69 6d 65 46 6f 72 6d 61 74 7d 7d 0d 0a  teTimeFormat}}..
abe0: 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20        }....     
abf0: 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45   #..      # NOTE
ac00: 3a 20 49 66 20 6f 75 72 20 63 61 6c 6c 65 72 20  : If our caller 
ac10: 73 70 65 63 69 66 69 65 64 20 61 20 44 61 74 65  specified a Date
ac20: 54 69 6d 65 4b 69 6e 64 2c 20 61 64 64 20 74 68  TimeKind, add th
ac30: 65 20 6e 65 63 65 73 73 61 72 79 20 70 6f 72 74  e necessary port
ac40: 69 6f 6e 0d 0a 20 20 20 20 20 20 23 20 20 20 20  ion..      #    
ac50: 20 20 20 6f 66 20 74 68 65 20 63 6f 6e 6e 65 63     of the connec
ac60: 74 69 6f 6e 20 73 74 72 69 6e 67 20 6e 6f 77 2e  tion string now.
ac70: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20  ..      #..     
ac80: 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e   if {[string len
ac90: 67 74 68 20 24 64 61 74 65 54 69 6d 65 4b 69 6e  gth $dateTimeKin
aca0: 64 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a  d] > 0} then {..
acb0: 20 20 20 20 20 20 20 20 61 70 70 65 6e 64 20 63          append c
acc0: 6f 6e 6e 65 63 74 69 6f 6e 20 7b 3b 44 61 74 65  onnection {;Date
acd0: 54 69 6d 65 4b 69 6e 64 3d 24 7b 64 61 74 65 54  TimeKind=${dateT
ace0: 69 6d 65 4b 69 6e 64 7d 7d 0d 0a 20 20 20 20 20  imeKind}}..     
acf0: 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20   }....      #.. 
ad00: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 49 66 20       # NOTE: If 
ad10: 74 68 65 72 65 20 61 72 65 20 61 6e 79 20 67 6c  there are any gl
ad20: 6f 62 61 6c 20 28 70 65 72 20 74 65 73 74 20 72  obal (per test r
ad30: 75 6e 29 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 66  un) connection f
ad40: 6c 61 67 73 20 63 75 72 72 65 6e 74 6c 79 0d 0a  lags currently..
ad50: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 73 65        #       se
ad60: 74 2c 20 75 73 65 20 74 68 65 6d 20 6e 6f 77 20  t, use them now 
ad70: 28 69 2e 65 2e 20 62 79 20 63 6f 6d 62 69 6e 69  (i.e. by combini
ad80: 6e 67 20 74 68 65 6d 20 77 69 74 68 20 74 68 65  ng them with the
ad90: 20 6f 6e 65 73 20 66 6f 72 20 74 68 69 73 0d 0a   ones for this..
ada0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 63 6f        #       co
adb0: 6e 6e 65 63 74 69 6f 6e 29 2e 0d 0a 20 20 20 20  nnection)...    
adc0: 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b    #..      if {[
add0: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 63 6f  info exists ::co
ade0: 6e 6e 65 63 74 69 6f 6e 5f 66 6c 61 67 73 5d 20  nnection_flags] 
adf0: 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  && \..          
ae00: 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24  [string length $
ae10: 3a 3a 63 6f 6e 6e 65 63 74 69 6f 6e 5f 66 6c 61  ::connection_fla
ae20: 67 73 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d  gs] > 0} then {.
ae30: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20  .        #..    
ae40: 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 68 6f 77      # NOTE: Show
ae50: 20 28 61 6e 64 20 6c 6f 67 29 20 74 68 61 74 20   (and log) that 
ae60: 77 65 20 64 65 74 65 63 74 65 64 20 73 6f 6d 65  we detected some
ae70: 20 67 6c 6f 62 61 6c 20 63 6f 6e 6e 65 63 74 69   global connecti
ae80: 6f 6e 20 66 6c 61 67 73 2e 0d 0a 20 20 20 20 20  on flags...     
ae90: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 74 70     #..        tp
aea0: 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e  uts $::test_chan
aeb0: 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20  nel [appendArgs 
aec0: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 22  \..            "
aed0: 2d 2d 2d 2d 20 67 6c 6f 62 61 6c 20 63 6f 6e 6e  ---- global conn
aee0: 65 63 74 69 6f 6e 20 66 6c 61 67 73 20 64 65 74  ection flags det
aef0: 65 63 74 65 64 3a 20 22 20 24 3a 3a 63 6f 6e 6e  ected: " $::conn
af00: 65 63 74 69 6f 6e 5f 66 6c 61 67 73 20 5c 6e 5d  ection_flags \n]
af10: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20  ....        #.. 
af20: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 43         # NOTE: C
af30: 6f 6d 62 69 6e 65 20 61 6e 64 2f 6f 72 20 72 65  ombine and/or re
af40: 70 6c 61 63 65 20 74 68 65 20 63 6f 6e 6e 65 63  place the connec
af50: 74 69 6f 6e 20 66 6c 61 67 73 20 61 6e 64 20 74  tion flags and t
af60: 68 65 6e 20 73 68 6f 77 20 74 68 65 0d 0a 20 20  hen show the..  
af70: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 6e 65        #       ne
af80: 77 20 76 61 6c 75 65 2e 0d 0a 20 20 20 20 20 20  w value...      
af90: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 73 65 74    #..        set
afa0: 20 66 6c 61 67 73 20 5b 63 6f 6d 62 69 6e 65 46   flags [combineF
afb0: 6c 61 67 73 20 24 66 6c 61 67 73 20 24 3a 3a 63  lags $flags $::c
afc0: 6f 6e 6e 65 63 74 69 6f 6e 5f 66 6c 61 67 73 5d  onnection_flags]
afd0: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74  ....        tput
afe0: 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65  s $::test_channe
aff0: 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d  l [appendArgs \.
b000: 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d  .            "--
b010: 2d 2d 20 63 6f 6d 62 69 6e 65 64 20 63 6f 6e 6e  -- combined conn
b020: 65 63 74 69 6f 6e 20 66 6c 61 67 73 20 61 72 65  ection flags are
b030: 3a 20 22 20 24 66 6c 61 67 73 20 5c 6e 5d 0d 0a  : " $flags \n]..
b040: 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20        }....     
b050: 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45   #..      # NOTE
b060: 3a 20 49 66 20 6f 75 72 20 63 61 6c 6c 65 72 20  : If our caller 
b070: 73 70 65 63 69 66 69 65 64 20 73 6f 6d 65 20 53  specified some S
b080: 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 46  QLiteConnectionF
b090: 6c 61 67 73 2c 20 61 64 64 20 74 68 65 0d 0a 20  lags, add the.. 
b0a0: 20 20 20 20 20 23 20 20 20 20 20 20 20 6e 65 63       #       nec
b0b0: 65 73 73 61 72 79 20 70 6f 72 74 69 6f 6e 20 6f  essary portion o
b0c0: 66 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e  f the connection
b0d0: 20 73 74 72 69 6e 67 20 6e 6f 77 2e 0d 0a 20 20   string now...  
b0e0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20      #..      if 
b0f0: 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20  {[string length 
b100: 24 66 6c 61 67 73 5d 20 3e 20 30 7d 20 74 68 65  $flags] > 0} the
b110: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 61 70 70  n {..        app
b120: 65 6e 64 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 7b  end connection {
b130: 3b 46 6c 61 67 73 3d 24 7b 66 6c 61 67 73 7d 7d  ;Flags=${flags}}
b140: 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20  ..      }....   
b150: 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f     #..      # NO
b160: 54 45 3a 20 49 66 20 6f 75 72 20 63 61 6c 6c 65  TE: If our calle
b170: 72 20 73 70 65 63 69 66 69 65 64 20 61 6e 20 65  r specified an e
b180: 78 74 72 61 20 70 61 79 6c 6f 61 64 20 74 6f 20  xtra payload to 
b190: 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 0d 0a  the connection..
b1a0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 73 74        #       st
b1b0: 72 69 6e 67 2c 20 61 70 70 65 6e 64 20 69 74 20  ring, append it 
b1c0: 6e 6f 77 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20  now...      #.. 
b1d0: 20 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67       if {[string
b1e0: 20 6c 65 6e 67 74 68 20 24 65 78 74 72 61 5d 20   length $extra] 
b1f0: 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  > 0} then {..   
b200: 20 20 20 20 20 61 70 70 65 6e 64 20 63 6f 6e 6e       append conn
b210: 65 63 74 69 6f 6e 20 5c 3b 20 24 65 78 74 72 61  ection \; $extra
b220: 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20  ..      }....   
b230: 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f     #..      # NO
b240: 54 45 3a 20 4f 70 65 6e 20 74 68 65 20 64 61 74  TE: Open the dat
b250: 61 62 61 73 65 20 63 6f 6e 6e 65 63 74 69 6f 6e  abase connection
b260: 20 6e 6f 77 2c 20 70 6c 61 63 69 6e 67 20 74 68   now, placing th
b270: 65 20 6f 70 61 71 75 65 20 68 61 6e 64 6c 65 20  e opaque handle 
b280: 76 61 6c 75 65 0d 0a 20 20 20 20 20 20 23 20 20  value..      #  
b290: 20 20 20 20 20 69 6e 74 6f 20 74 68 65 20 76 61       into the va
b2a0: 72 69 61 62 6c 65 20 73 70 65 63 69 66 69 65 64  riable specified
b2b0: 20 62 79 20 6f 75 72 20 63 61 6c 6c 65 72 2e 0d   by our caller..
b2c0: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20  .      #..      
b2d0: 73 65 74 20 64 62 20 5b 73 71 6c 20 6f 70 65 6e  set db [sql open
b2e0: 20 2d 74 79 70 65 20 53 51 4c 69 74 65 20 5b 73   -type SQLite [s
b2f0: 75 62 73 74 20 24 63 6f 6e 6e 65 63 74 69 6f 6e  ubst $connection
b300: 5d 5d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20  ]]....      #.. 
b310: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 43 6f 6e       # NOTE: Con
b320: 66 69 67 75 72 65 20 74 68 65 20 74 65 6d 70 6f  figure the tempo
b330: 72 61 72 79 20 64 69 72 65 63 74 6f 72 79 20 66  rary directory f
b340: 6f 72 20 74 68 65 20 6e 65 77 6c 79 20 6f 70 65  or the newly ope
b350: 6e 65 64 20 64 61 74 61 62 61 73 65 0d 0a 20 20  ned database..  
b360: 20 20 20 20 23 20 20 20 20 20 20 20 63 6f 6e 6e      #       conn
b370: 65 63 74 69 6f 6e 20 6e 6f 77 20 75 6e 6c 65 73  ection now unles
b380: 73 20 6f 75 72 20 63 61 6c 6c 65 72 20 66 6f 72  s our caller for
b390: 62 69 64 73 20 69 74 2e 0d 0a 20 20 20 20 20 20  bids it...      
b3a0: 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 24 74 65  #..      if {$te
b3b0: 6d 70 6f 72 61 72 79 20 26 26 20 21 5b 69 6e 66  mporary && ![inf
b3c0: 6f 20 65 78 69 73 74 73 20 3a 3a 6e 6f 28 73 65  o exists ::no(se
b3d0: 74 54 65 6d 70 6f 72 61 72 79 44 69 72 65 63 74  tTemporaryDirect
b3e0: 6f 72 79 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20  ory)]} then {.. 
b3f0: 20 20 20 20 20 20 20 73 71 6c 20 65 78 65 63 75         sql execu
b400: 74 65 20 24 64 62 20 5b 61 70 70 65 6e 64 41 72  te $db [appendAr
b410: 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  gs \..          
b420: 20 20 22 50 52 41 47 4d 41 20 74 65 6d 70 5f 73    "PRAGMA temp_s
b430: 74 6f 72 65 5f 64 69 72 65 63 74 6f 72 79 20 3d  tore_directory =
b440: 20 5c 22 22 20 5b 67 65 74 54 65 6d 70 6f 72 61   \"" [getTempora
b450: 72 79 44 69 72 65 63 74 6f 72 79 5d 20 5c 22 5c  ryDirectory] \"\
b460: 3b 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20  ;]..      }.... 
b470: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20       #..      # 
b480: 4e 4f 54 45 3a 20 41 6c 77 61 79 73 20 72 65 74  NOTE: Always ret
b490: 75 72 6e 20 74 68 65 20 63 6f 6e 6e 65 63 74 69  urn the connecti
b4a0: 6f 6e 20 68 61 6e 64 6c 65 20 75 70 6f 6e 20 73  on handle upon s
b4b0: 75 63 63 65 73 73 2e 0d 0a 20 20 20 20 20 20 23  uccess...      #
b4c0: 0d 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 24  ..      return $
b4d0: 64 62 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20  db..    }.....  
b4e0: 20 20 70 72 6f 63 20 67 65 74 44 62 43 6f 6e 6e    proc getDbConn
b4f0: 65 63 74 69 6f 6e 20 7b 20 7b 76 61 72 4e 61 6d  ection { {varNam
b500: 65 20 64 62 7d 20 7d 20 7b 0d 0a 20 20 20 20 20  e db} } {..     
b510: 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45   #..      # NOTE
b520: 3a 20 52 65 66 65 72 20 74 6f 20 74 68 65 20 73  : Refer to the s
b530: 70 65 63 69 66 69 65 64 20 76 61 72 69 61 62 6c  pecified variabl
b540: 65 20 28 65 2e 67 2e 20 22 64 62 22 29 20 69 6e  e (e.g. "db") in
b550: 20 74 68 65 20 63 6f 6e 74 65 78 74 20 6f 66 20   the context of 
b560: 6f 75 72 0d 0a 20 20 20 20 20 20 23 20 20 20 20  our..      #    
b570: 20 20 20 63 61 6c 6c 65 72 2e 20 20 54 68 65 20     caller.  The 
b580: 68 61 6e 64 6c 65 20 74 6f 20 74 68 65 20 64 61  handle to the da
b590: 74 61 62 61 73 65 20 70 72 65 76 69 6f 75 73 6c  tabase previousl
b5a0: 79 20 6f 70 65 6e 65 64 20 76 69 61 20 74 68 65  y opened via the
b5b0: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20  ..      #       
b5c0: 5b 73 65 74 75 70 44 62 5d 20 70 72 6f 63 65 64  [setupDb] proced
b5d0: 75 72 65 20 73 68 6f 75 6c 64 20 62 65 20 73 74  ure should be st
b5e0: 6f 72 65 64 20 74 68 65 72 65 2e 0d 0a 20 20 20  ored there...   
b5f0: 20 20 20 23 0d 0a 20 20 20 20 20 20 75 70 76 61     #..      upva
b600: 72 20 31 20 24 76 61 72 4e 61 6d 65 20 64 62 0d  r 1 $varName db.
b610: 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20  ...      #..    
b620: 20 20 23 20 4e 4f 54 45 3a 20 54 68 69 73 20 72    # NOTE: This r
b630: 65 74 75 72 6e 73 20 74 68 65 20 41 44 4f 2e 4e  eturns the ADO.N
b640: 45 54 20 49 44 62 43 6f 6e 6e 65 63 74 69 6f 6e  ET IDbConnection
b650: 20 6f 62 6a 65 63 74 20 69 6e 73 74 61 6e 63 65   object instance
b660: 20 66 6f 72 20 74 68 65 0d 0a 20 20 20 20 20 20   for the..      
b670: 23 20 20 20 20 20 20 20 73 70 65 63 69 66 69 65  #       specifie
b680: 64 20 64 61 74 61 62 73 65 20 68 61 6e 64 6c 65  d databse handle
b690: 2e 20 20 53 69 6e 63 65 20 67 65 74 74 69 6e 67  .  Since getting
b6a0: 20 74 68 69 73 20 6f 62 6a 65 63 74 20 72 65 6c   this object rel
b6b0: 69 65 73 20 75 70 6f 6e 0d 0a 20 20 20 20 20 20  ies upon..      
b6c0: 23 20 20 20 20 20 20 20 45 61 67 6c 65 20 69 6e  #       Eagle in
b6d0: 74 65 72 6e 61 6c 73 2c 20 67 72 65 61 74 20 63  ternals, great c
b6e0: 61 72 65 20 73 68 6f 75 6c 64 20 62 65 20 74 61  are should be ta
b6f0: 6b 65 6e 20 74 6f 20 61 76 6f 69 64 20 64 69 73  ken to avoid dis
b700: 70 6f 73 69 6e 67 20 6f 66 0d 0a 20 20 20 20 20  posing of..     
b710: 20 23 20 20 20 20 20 20 20 74 68 69 73 20 6f 62   #       this ob
b720: 6a 65 63 74 20 6f 72 20 6f 74 68 65 72 77 69 73  ject or otherwis
b730: 65 20 70 75 74 74 69 6e 67 20 69 74 20 69 6e 74  e putting it int
b740: 6f 20 61 6e 20 69 6e 76 61 6c 69 64 20 73 74 61  o an invalid sta
b750: 74 65 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  te...      #..  
b760: 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78      if {[info ex
b770: 69 73 74 73 20 64 62 5d 7d 20 74 68 65 6e 20 7b  ists db]} then {
b780: 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b 63  ..        if {[c
b790: 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20  atch {..        
b7a0: 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74 20 69          object i
b7b0: 6e 76 6f 6b 65 20 2d 66 6c 61 67 73 20 2b 4e 6f  nvoke -flags +No
b7c0: 6e 50 75 62 6c 69 63 20 2d 6f 62 6a 65 63 74 66  nPublic -objectf
b7d0: 6c 61 67 73 20 2b 4e 6f 44 69 73 70 6f 73 65 20  lags +NoDispose 
b7e0: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  \..             
b7f0: 20 20 20 2d 61 6c 69 61 73 20 49 6e 74 65 72 70     -alias Interp
b800: 72 65 74 65 72 2e 47 65 74 41 63 74 69 76 65 2e  reter.GetActive.
b810: 63 6f 6e 6e 65 63 74 69 6f 6e 73 20 49 74 65 6d  connections Item
b820: 20 24 64 62 7d 20 5c 0d 0a 20 20 20 20 20 20 20   $db} \..       
b830: 20 20 20 20 20 20 20 20 20 72 65 73 75 6c 74 5d           result]
b840: 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20   == 0} then {.. 
b850: 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20           #..    
b860: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 75        # NOTE: Su
b870: 63 63 65 73 73 2c 20 72 65 74 75 72 6e 20 74 68  ccess, return th
b880: 65 20 6f 70 61 71 75 65 20 6f 62 6a 65 63 74 20  e opaque object 
b890: 68 61 6e 64 6c 65 2e 0d 0a 20 20 20 20 20 20 20  handle...       
b8a0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20     #..          
b8b0: 72 65 74 75 72 6e 20 24 72 65 73 75 6c 74 0d 0a  return $result..
b8c0: 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b          } else {
b8d0: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20  ..          #.. 
b8e0: 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a           # NOTE:
b8f0: 20 46 61 69 6c 75 72 65 2c 20 72 65 70 6f 72 74   Failure, report
b900: 20 77 68 79 2e 0d 0a 20 20 20 20 20 20 20 20 20   why...         
b910: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70   #..          tp
b920: 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e  uts $::test_chan
b930: 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20  nel [appendArgs 
b940: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  \..             
b950: 20 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e 47 3a 20   "==== WARNING: 
b960: 66 61 69 6c 65 64 20 74 6f 20 67 65 74 20 63 6f  failed to get co
b970: 6e 6e 65 63 74 69 6f 6e 20 68 61 6e 64 6c 65 20  nnection handle 
b980: 66 6f 72 20 64 61 74 61 62 61 73 65 20 5c 22 22  for database \""
b990: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   \..            
b9a0: 20 20 24 64 62 20 22 5c 22 2c 20 65 72 72 6f 72    $db "\", error
b9b0: 3a 20 22 20 5c 6e 5c 74 20 24 72 65 73 75 6c 74  : " \n\t $result
b9c0: 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 7d 0d   \n]..        }.
b9d0: 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d  .      }..    }.
b9e0: 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 66 72 65  ....    proc fre
b9f0: 65 44 62 43 6f 6e 6e 65 63 74 69 6f 6e 20 7b 20  eDbConnection { 
ba00: 7b 76 61 72 4e 61 6d 65 20 63 6f 6e 6e 65 63 74  {varName connect
ba10: 69 6f 6e 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 20  ion} } {..      
ba20: 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a  #..      # NOTE:
ba30: 20 52 65 66 65 72 20 74 6f 20 74 68 65 20 73 70   Refer to the sp
ba40: 65 63 69 66 69 65 64 20 76 61 72 69 61 62 6c 65  ecified variable
ba50: 20 28 65 2e 67 2e 20 22 63 6f 6e 6e 65 63 74 69   (e.g. "connecti
ba60: 6f 6e 22 29 20 69 6e 20 74 68 65 0d 0a 20 20 20  on") in the..   
ba70: 20 20 20 23 20 20 20 20 20 20 20 63 6f 6e 74 65     #       conte
ba80: 78 74 20 6f 66 20 6f 75 72 20 63 61 6c 6c 65 72  xt of our caller
ba90: 2e 20 20 54 68 65 20 6f 70 61 71 75 65 20 6f 62  .  The opaque ob
baa0: 6a 65 63 74 20 68 61 6e 64 6c 65 20 66 6f 72 20  ject handle for 
bab0: 61 6e 20 41 44 4f 2e 4e 45 54 0d 0a 20 20 20 20  an ADO.NET..    
bac0: 20 20 23 20 20 20 20 20 20 20 63 6f 6e 6e 65 63    #       connec
bad0: 74 69 6f 6e 20 70 72 65 76 69 6f 75 73 6c 79 20  tion previously 
bae0: 72 65 74 75 72 6e 65 64 20 62 79 20 5b 67 65 74  returned by [get
baf0: 44 62 43 6f 6e 6e 65 63 74 69 6f 6e 5d 20 73 68  DbConnection] sh
bb00: 6f 75 6c 64 20 62 65 0d 0a 20 20 20 20 20 20 23  ould be..      #
bb10: 20 20 20 20 20 20 20 73 74 6f 72 65 64 20 74 68         stored th
bb20: 65 72 65 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20  ere...      #.. 
bb30: 20 20 20 20 20 75 70 76 61 72 20 31 20 24 76 61       upvar 1 $va
bb40: 72 4e 61 6d 65 20 63 6f 6e 6e 65 63 74 69 6f 6e  rName connection
bb50: 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20  ....      #..   
bb60: 20 20 20 23 20 4e 4f 54 45 3a 20 41 74 74 65 6d     # NOTE: Attem
bb70: 70 74 20 74 6f 20 72 65 6d 6f 76 65 20 74 68 65  pt to remove the
bb80: 20 6f 70 61 71 75 65 20 6f 62 6a 65 63 74 20 68   opaque object h
bb90: 61 6e 64 6c 65 20 66 72 6f 6d 20 74 68 65 20 69  andle from the i
bba0: 6e 74 65 72 70 72 65 74 65 72 0d 0a 20 20 20 20  nterpreter..    
bbb0: 20 20 23 20 20 20 20 20 20 20 6e 6f 77 2e 20 20    #       now.  
bbc0: 54 68 69 73 20 5b 6f 62 6a 65 63 74 20 64 69 73  This [object dis
bbd0: 70 6f 73 65 5d 20 63 61 6c 6c 20 77 69 6c 6c 20  pose] call will 
bbe0: 6e 6f 74 20 61 63 74 75 61 6c 6c 79 20 64 69 73  not actually dis
bbf0: 70 6f 73 65 20 6f 66 20 74 68 65 0d 0a 20 20 20  pose of the..   
bc00: 20 20 20 23 20 20 20 20 20 20 20 75 6e 64 65 72     #       under
bc10: 6c 79 69 6e 67 20 6f 62 6a 65 63 74 20 62 65 63  lying object bec
bc20: 61 75 73 65 20 74 68 65 20 2b 4e 6f 44 69 73 70  ause the +NoDisp
bc30: 6f 73 65 20 66 6c 61 67 20 77 61 73 20 73 65 74  ose flag was set
bc40: 20 6f 6e 20 69 74 0d 0a 20 20 20 20 20 20 23 20   on it..      # 
bc50: 20 20 20 20 20 20 64 75 72 69 6e 67 20 63 72 65        during cre
bc60: 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 6f 70 61  ation of the opa
bc70: 71 75 65 20 6f 62 6a 65 63 74 20 68 61 6e 64 6c  que object handl
bc80: 65 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20  e...      #..   
bc90: 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69     if {[info exi
bca0: 73 74 73 20 63 6f 6e 6e 65 63 74 69 6f 6e 5d 20  sts connection] 
bcb0: 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  && \..          
bcc0: 5b 63 61 74 63 68 20 7b 6f 62 6a 65 63 74 20 64  [catch {object d
bcd0: 69 73 70 6f 73 65 20 24 63 6f 6e 6e 65 63 74 69  ispose $connecti
bce0: 6f 6e 7d 20 65 72 72 6f 72 5d 7d 20 74 68 65 6e  on} error]} then
bcf0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20   {..        #.. 
bd00: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 57         # NOTE: W
bd10: 65 20 73 6f 6d 65 68 6f 77 20 66 61 69 6c 65 64  e somehow failed
bd20: 20 74 6f 20 72 65 6d 6f 76 65 20 74 68 65 20 68   to remove the h
bd30: 61 6e 64 6c 65 2c 20 72 65 70 6f 72 74 20 77 68  andle, report wh
bd40: 79 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20  y...        #.. 
bd50: 20 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a         tputs $::
bd60: 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70  test_channel [ap
bd70: 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20  pendArgs \..    
bd80: 20 20 20 20 20 20 20 20 22 3d 3d 3d 3d 20 57 41          "==== WA
bd90: 52 4e 49 4e 47 3a 20 66 61 69 6c 65 64 20 74 6f  RNING: failed to
bda0: 20 72 65 6d 6f 76 65 20 63 6f 6e 6e 65 63 74 69   remove connecti
bdb0: 6f 6e 20 68 61 6e 64 6c 65 20 5c 22 22 20 24 63  on handle \"" $c
bdc0: 6f 6e 6e 65 63 74 69 6f 6e 20 5c 0d 0a 20 20 20  onnection \..   
bdd0: 20 20 20 20 20 20 20 20 20 22 5c 22 2c 20 65 72           "\", er
bde0: 72 6f 72 3a 20 22 20 5c 6e 5c 74 20 24 65 72 72  ror: " \n\t $err
bdf0: 6f 72 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 7d 0d  or \n]..      }.
be00: 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70  .    }.....    p
be10: 72 6f 63 20 61 64 64 44 62 43 6f 6e 6e 65 63 74  roc addDbConnect
be20: 69 6f 6e 20 7b 20 63 6f 6e 6e 65 63 74 69 6f 6e  ion { connection
be30: 20 7b 76 61 72 4e 61 6d 65 20 64 62 7d 20 7d 20   {varName db} } 
be40: 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20  {..      #..    
be50: 20 20 23 20 4e 4f 54 45 3a 20 52 65 66 65 72 20    # NOTE: Refer 
be60: 74 6f 20 74 68 65 20 73 70 65 63 69 66 69 65 64  to the specified
be70: 20 76 61 72 69 61 62 6c 65 20 28 65 2e 67 2e 20   variable (e.g. 
be80: 22 64 62 22 29 20 69 6e 20 74 68 65 20 63 6f 6e  "db") in the con
be90: 74 65 78 74 20 6f 66 20 6f 75 72 0d 0a 20 20 20  text of our..   
bea0: 20 20 20 23 20 20 20 20 20 20 20 63 61 6c 6c 65     #       calle
beb0: 72 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20  r...      #..   
bec0: 20 20 20 75 70 76 61 72 20 31 20 24 76 61 72 4e     upvar 1 $varN
bed0: 61 6d 65 20 64 62 0d 0a 0d 0a 20 20 20 20 20 20  ame db....      
bee0: 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a  #..      # NOTE:
bef0: 20 43 72 65 61 74 65 20 61 20 63 6f 72 72 65 63   Create a correc
bf00: 74 6c 79 20 66 6f 72 6d 61 74 74 65 64 20 6e 61  tly formatted na
bf10: 6d 65 20 66 6f 72 20 74 68 65 20 64 61 74 61 62  me for the datab
bf20: 61 73 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 74  ase connection t
bf30: 6f 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20  o..      #      
bf40: 20 62 65 20 61 64 64 65 64 20 74 6f 20 74 68 65   be added to the
bf50: 20 6c 69 73 74 20 6d 61 6e 61 67 65 64 20 62 79   list managed by
bf60: 20 74 68 65 20 45 61 67 6c 65 20 69 6e 74 65 72   the Eagle inter
bf70: 70 72 65 74 65 72 2e 0d 0a 20 20 20 20 20 20 23  preter...      #
bf80: 0d 0a 20 20 20 20 20 20 73 65 74 20 64 62 20 5b  ..      set db [
bf90: 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d 66  object invoke -f
bfa0: 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 20  lags +NonPublic 
bfb0: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 45 61 67  \..          Eag
bfc0: 6c 65 2e 5f 43 6f 6d 70 6f 6e 65 6e 74 73 2e 50  le._Components.P
bfd0: 72 69 76 61 74 65 2e 46 6f 72 6d 61 74 4f 70 73  rivate.FormatOps
bfe0: 20 44 61 74 61 62 61 73 65 4f 62 6a 65 63 74 4e   DatabaseObjectN
bff0: 61 6d 65 20 24 63 6f 6e 6e 65 63 74 69 6f 6e 20  ame $connection 
c000: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 53 51 4c  \..          SQL
c010: 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 20 5b 6f  iteConnection [o
c020: 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 49 6e 74  bject invoke Int
c030: 65 72 70 72 65 74 65 72 2e 47 65 74 41 63 74 69  erpreter.GetActi
c040: 76 65 20 4e 65 78 74 49 64 5d 5d 0d 0a 0d 0a 20  ve NextId]].... 
c050: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20       #..      # 
c060: 4e 4f 54 45 3a 20 41 64 64 20 74 68 65 20 64 61  NOTE: Add the da
c070: 74 61 62 61 73 65 20 63 6f 6e 6e 65 63 74 69 6f  tabase connectio
c080: 6e 20 70 72 6f 76 69 64 65 64 20 62 79 20 6f 75  n provided by ou
c090: 72 20 63 61 6c 6c 65 72 20 74 6f 20 74 68 65 20  r caller to the 
c0a0: 6c 69 73 74 0d 0a 20 20 20 20 20 20 23 20 20 20  list..      #   
c0b0: 20 20 20 20 6f 66 20 74 68 6f 73 65 20 6b 6e 6f      of those kno
c0c0: 77 6e 20 74 6f 20 74 68 65 20 45 61 67 6c 65 20  wn to the Eagle 
c0d0: 69 6e 74 65 72 70 72 65 74 65 72 2e 0d 0a 20 20  interpreter...  
c0e0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 6f 62 6a      #..      obj
c0f0: 65 63 74 20 69 6e 76 6f 6b 65 20 2d 66 6c 61 67  ect invoke -flag
c100: 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 49 6e 74  s +NonPublic Int
c110: 65 72 70 72 65 74 65 72 2e 47 65 74 41 63 74 69  erpreter.GetActi
c120: 76 65 2e 63 6f 6e 6e 65 63 74 69 6f 6e 73 20 41  ve.connections A
c130: 64 64 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  dd \..          
c140: 24 64 62 20 24 63 6f 6e 6e 65 63 74 69 6f 6e 0d  $db $connection.
c150: 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70  .    }.....    p
c160: 72 6f 63 20 63 6c 65 61 6e 75 70 44 62 20 7b 20  roc cleanupDb { 
c170: 66 69 6c 65 4e 61 6d 65 20 7b 76 61 72 4e 61 6d  fileName {varNam
c180: 65 20 64 62 7d 20 7b 63 6f 6c 6c 65 63 74 20 74  e db} {collect t
c190: 72 75 65 7d 20 7b 71 75 61 6c 69 66 79 20 74 72  rue} {qualify tr
c1a0: 75 65 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 20  ue}..           
c1b0: 20 20 20 20 20 20 20 20 20 20 7b 64 65 6c 65 74            {delet
c1c0: 65 20 74 72 75 65 7d 20 7d 20 7b 0d 0a 20 20 20  e true} } {..   
c1d0: 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f     #..      # NO
c1e0: 54 45 3a 20 41 74 74 65 6d 70 74 20 74 6f 20 66  TE: Attempt to f
c1f0: 6f 72 63 65 20 61 6c 6c 20 70 65 6e 64 69 6e 67  orce all pending
c200: 20 22 67 61 72 62 61 67 65 22 20 6f 62 6a 65 63   "garbage" objec
c210: 74 73 20 74 6f 20 62 65 20 63 6f 6c 6c 65 63 74  ts to be collect
c220: 65 64 2c 0d 0a 20 20 20 20 20 20 23 20 20 20 20  ed,..      #    
c230: 20 20 20 69 6e 63 6c 75 64 69 6e 67 20 53 51 4c     including SQL
c240: 69 74 65 20 73 74 61 74 65 6d 65 6e 74 73 20 61  ite statements a
c250: 6e 64 20 62 61 63 6b 75 70 20 6f 62 6a 65 63 74  nd backup object
c260: 73 3b 20 74 68 69 73 20 73 68 6f 75 6c 64 20 61  s; this should a
c270: 6c 6c 6f 77 0d 0a 20 20 20 20 20 20 23 20 20 20  llow..      #   
c280: 20 20 20 20 74 68 65 20 75 6e 64 65 72 6c 79 69      the underlyi
c290: 6e 67 20 64 61 74 61 62 61 73 65 20 66 69 6c 65  ng database file
c2a0: 20 74 6f 20 62 65 20 64 65 6c 65 74 65 64 2e 0d   to be deleted..
c2b0: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20  .      #..      
c2c0: 69 66 20 7b 24 63 6f 6c 6c 65 63 74 7d 20 74 68  if {$collect} th
c2d0: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 63 6f  en {..        co
c2e0: 6c 6c 65 63 74 47 61 72 62 61 67 65 20 24 3a 3a  llectGarbage $::
c2f0: 74 65 73 74 5f 63 68 61 6e 6e 65 6c 0d 0a 20 20  test_channel..  
c300: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23      }....      #
c310: 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20  ..      # NOTE: 
c320: 52 65 66 65 72 20 74 6f 20 74 68 65 20 73 70 65  Refer to the spe
c330: 63 69 66 69 65 64 20 76 61 72 69 61 62 6c 65 20  cified variable 
c340: 28 65 2e 67 2e 20 22 64 62 22 29 20 69 6e 20 74  (e.g. "db") in t
c350: 68 65 20 63 6f 6e 74 65 78 74 20 6f 66 20 6f 75  he context of ou
c360: 72 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20  r..      #      
c370: 20 63 61 6c 6c 65 72 2e 20 20 54 68 65 20 68 61   caller.  The ha
c380: 6e 64 6c 65 20 74 6f 20 74 68 65 20 64 61 74 61  ndle to the data
c390: 62 61 73 65 20 70 72 65 76 69 6f 75 73 6c 79 20  base previously 
c3a0: 6f 70 65 6e 65 64 20 76 69 61 20 74 68 65 0d 0a  opened via the..
c3b0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 5b 73        #       [s
c3c0: 65 74 75 70 44 62 5d 20 70 72 6f 63 65 64 75 72  etupDb] procedur
c3d0: 65 20 73 68 6f 75 6c 64 20 62 65 20 73 74 6f 72  e should be stor
c3e0: 65 64 20 74 68 65 72 65 2e 0d 0a 20 20 20 20 20  ed there...     
c3f0: 20 23 0d 0a 20 20 20 20 20 20 75 70 76 61 72 20   #..      upvar 
c400: 31 20 24 76 61 72 4e 61 6d 65 20 64 62 0d 0a 0d  1 $varName db...
c410: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20  .      #..      
c420: 23 20 4e 4f 54 45 3a 20 43 6c 6f 73 65 20 74 68  # NOTE: Close th
c430: 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 74 6f 20  e connection to 
c440: 74 68 65 20 64 61 74 61 62 61 73 65 20 6e 6f 77  the database now
c450: 2e 20 20 54 68 69 73 20 73 68 6f 75 6c 64 20 61  .  This should a
c460: 6c 6c 6f 77 20 75 73 0d 0a 20 20 20 20 20 20 23  llow us..      #
c470: 20 20 20 20 20 20 20 74 6f 20 64 65 6c 65 74 65         to delete
c480: 20 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 20   the underlying 
c490: 64 61 74 61 62 61 73 65 20 66 69 6c 65 2e 0d 0a  database file...
c4a0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69        #..      i
c4b0: 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20  f {[info exists 
c4c0: 64 62 5d 20 26 26 20 5b 63 61 74 63 68 20 7b 73  db] && [catch {s
c4d0: 71 6c 20 63 6c 6f 73 65 20 24 64 62 7d 20 65 72  ql close $db} er
c4e0: 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  ror]} then {..  
c4f0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
c500: 20 23 20 4e 4f 54 45 3a 20 57 65 20 73 6f 6d 65   # NOTE: We some
c510: 68 6f 77 20 66 61 69 6c 65 64 20 74 6f 20 63 6c  how failed to cl
c520: 6f 73 65 20 74 68 65 20 64 61 74 61 62 61 73 65  ose the database
c530: 2c 20 72 65 70 6f 72 74 20 77 68 79 2e 0d 0a 20  , report why... 
c540: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..      
c550: 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f    tputs $::test_
c560: 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41  channel [appendA
c570: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  rgs \..         
c580: 20 20 20 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e 47     "==== WARNING
c590: 3a 20 66 61 69 6c 65 64 20 74 6f 20 63 6c 6f 73  : failed to clos
c5a0: 65 20 64 61 74 61 62 61 73 65 20 5c 22 22 20 24  e database \"" $
c5b0: 64 62 20 22 5c 22 2c 20 65 72 72 6f 72 3a 20 22  db "\", error: "
c5c0: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   \..            
c5d0: 5c 6e 5c 74 20 24 65 72 72 6f 72 20 5c 6e 5d 0d  \n\t $error \n].
c5e0: 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20  .      }....    
c5f0: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54    #..      # NOT
c600: 45 3a 20 46 69 72 73 74 2c 20 73 65 65 20 69 66  E: First, see if
c610: 20 6f 75 72 20 63 61 6c 6c 65 72 20 68 61 73 20   our caller has 
c620: 72 65 71 75 65 73 74 65 64 20 61 6e 20 69 6e 2d  requested an in-
c630: 6d 65 6d 6f 72 79 20 64 61 74 61 62 61 73 65 2e  memory database.
c640: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20  ..      #..     
c650: 20 73 65 74 20 69 73 4d 65 6d 6f 72 79 20 5b 69   set isMemory [i
c660: 73 4d 65 6d 6f 72 79 44 62 20 24 66 69 6c 65 4e  sMemoryDb $fileN
c670: 61 6d 65 5d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d  ame]....      #.
c680: 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 42  .      # NOTE: B
c690: 75 69 6c 64 20 74 68 65 20 66 75 6c 6c 20 70 61  uild the full pa
c6a0: 74 68 20 74 6f 20 74 68 65 20 64 61 74 61 62 61  th to the databa
c6b0: 73 65 20 66 69 6c 65 20 6e 61 6d 65 2e 20 20 46  se file name.  F
c6c0: 6f 72 20 6e 6f 77 2c 20 61 6c 6c 20 74 65 73 74  or now, all test
c6d0: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20  ..      #       
c6e0: 64 61 74 61 62 61 73 65 20 66 69 6c 65 73 20 61  database files a
c6f0: 72 65 20 73 74 6f 72 65 64 20 69 6e 20 74 68 65  re stored in the
c700: 20 74 65 6d 70 6f 72 61 72 79 20 64 69 72 65 63   temporary direc
c710: 74 6f 72 79 2e 0d 0a 20 20 20 20 20 20 23 0d 0a  tory...      #..
c720: 20 20 20 20 20 20 69 66 20 7b 21 24 69 73 4d 65        if {!$isMe
c730: 6d 6f 72 79 20 26 26 20 24 71 75 61 6c 69 66 79  mory && $qualify
c740: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..      
c750: 20 20 73 65 74 20 66 69 6c 65 4e 61 6d 65 20 5b    set fileName [
c760: 66 69 6c 65 20 6a 6f 69 6e 20 5b 67 65 74 44 61  file join [getDa
c770: 74 61 62 61 73 65 44 69 72 65 63 74 6f 72 79 5d  tabaseDirectory]
c780: 20 5b 66 69 6c 65 20 74 61 69 6c 20 24 66 69 6c   [file tail $fil
c790: 65 4e 61 6d 65 5d 5d 0d 0a 20 20 20 20 20 20 7d  eName]]..      }
c7a0: 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20  ....      #..   
c7b0: 20 20 20 23 20 4e 4f 54 45 3a 20 43 68 65 63 6b     # NOTE: Check
c7c0: 20 69 66 20 74 68 65 20 66 69 6c 65 20 73 74 69   if the file sti
c7d0: 6c 6c 20 65 78 69 73 74 73 2e 0d 0a 20 20 20 20  ll exists...    
c7e0: 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 21    #..      if {!
c7f0: 24 69 73 4d 65 6d 6f 72 79 20 26 26 20 24 64 65  $isMemory && $de
c800: 6c 65 74 65 20 26 26 20 5b 66 69 6c 65 20 65 78  lete && [file ex
c810: 69 73 74 73 20 24 66 69 6c 65 4e 61 6d 65 5d 7d  ists $fileName]}
c820: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20   then {..       
c830: 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f   #..        # NO
c840: 54 45 3a 20 53 6b 69 70 20 64 65 6c 65 74 69 6e  TE: Skip deletin
c850: 67 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 73  g database files
c860: 20 69 66 20 73 6f 6d 65 62 6f 64 79 20 73 65 74   if somebody set
c870: 73 20 74 68 65 20 67 6c 6f 62 61 6c 0d 0a 20 20  s the global..  
c880: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 76 61        #       va
c890: 72 69 61 62 6c 65 20 74 6f 20 70 72 65 76 65 6e  riable to preven
c8a0: 74 20 69 74 2e 0d 0a 20 20 20 20 20 20 20 20 23  t it...        #
c8b0: 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 21 5b  ..        if {![
c8c0: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 6e 6f  info exists ::no
c8d0: 28 63 6c 65 61 6e 75 70 44 62 46 69 6c 65 29 5d  (cleanupDbFile)]
c8e0: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..      
c8f0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20      #..         
c900: 20 23 20 4e 4f 54 45 3a 20 41 74 74 65 6d 70 74   # NOTE: Attempt
c910: 20 74 6f 20 64 65 6c 65 74 65 20 74 68 65 20 74   to delete the t
c920: 65 73 74 20 64 61 74 61 62 61 73 65 20 66 69 6c  est database fil
c930: 65 20 6e 6f 77 2e 0d 0a 20 20 20 20 20 20 20 20  e now...        
c940: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 69    #..          i
c950: 66 20 7b 5b 73 65 74 20 63 6f 64 65 20 5b 63 61  f {[set code [ca
c960: 74 63 68 20 7b 66 69 6c 65 20 64 65 6c 65 74 65  tch {file delete
c970: 20 24 66 69 6c 65 4e 61 6d 65 7d 20 65 72 72 6f   $fileName} erro
c980: 72 5d 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  r]]} then {..   
c990: 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20           #..    
c9a0: 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20          # NOTE: 
c9b0: 57 65 20 73 6f 6d 65 68 6f 77 20 66 61 69 6c 65  We somehow faile
c9c0: 64 20 74 6f 20 64 65 6c 65 74 65 20 74 68 65 20  d to delete the 
c9d0: 66 69 6c 65 2c 20 72 65 70 6f 72 74 20 77 68 79  file, report why
c9e0: 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 23  ...            #
c9f0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 70  ..            tp
ca00: 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e  uts $::test_chan
ca10: 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20  nel [appendArgs 
ca20: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  \..             
ca30: 20 20 20 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e 47     "==== WARNING
ca40: 3a 20 66 61 69 6c 65 64 20 74 6f 20 64 65 6c 65  : failed to dele
ca50: 74 65 20 64 61 74 61 62 61 73 65 20 66 69 6c 65  te database file
ca60: 20 5c 22 22 20 24 66 69 6c 65 4e 61 6d 65 20 5c   \"" $fileName \
ca70: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
ca80: 20 20 22 5c 22 20 64 75 72 69 6e 67 20 63 6c 65    "\" during cle
ca90: 61 6e 75 70 2c 20 65 72 72 6f 72 3a 20 22 20 5c  anup, error: " \
caa0: 6e 5c 74 20 24 65 72 72 6f 72 20 5c 6e 5d 0d 0a  n\t $error \n]..
cab0: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20            }..   
cac0: 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20       } else {.. 
cad0: 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20           #..    
cae0: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 68        # NOTE: Sh
caf0: 6f 77 20 74 68 61 74 20 77 65 20 73 6b 69 70 70  ow that we skipp
cb00: 65 64 20 64 65 6c 65 74 69 6e 67 20 74 68 65 20  ed deleting the 
cb10: 66 69 6c 65 2e 0d 0a 20 20 20 20 20 20 20 20 20  file...         
cb20: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 73 65   #..          se
cb30: 74 20 63 6f 64 65 20 30 0d 0a 0d 0a 20 20 20 20  t code 0....    
cb40: 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74        tputs $::t
cb50: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70  est_channel [app
cb60: 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20  endArgs \..     
cb70: 20 20 20 20 20 20 20 20 20 22 3d 3d 3d 3d 20 57           "==== W
cb80: 41 52 4e 49 4e 47 3a 20 73 6b 69 70 70 65 64 20  ARNING: skipped 
cb90: 64 65 6c 65 74 69 6e 67 20 64 61 74 61 62 61 73  deleting databas
cba0: 65 20 66 69 6c 65 20 5c 22 22 20 24 66 69 6c 65  e file \"" $file
cbb0: 4e 61 6d 65 20 5c 0d 0a 20 20 20 20 20 20 20 20  Name \..        
cbc0: 20 20 20 20 20 20 22 5c 22 20 64 75 72 69 6e 67        "\" during
cbd0: 20 63 6c 65 61 6e 75 70 5c 6e 22 5d 0d 0a 20 20   cleanup\n"]..  
cbe0: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d        }..      }
cbf0: 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20   else {..       
cc00: 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f   #..        # NO
cc10: 54 45 3a 20 54 68 65 20 66 69 6c 65 20 64 6f 65  TE: The file doe
cc20: 73 20 6e 6f 74 20 65 78 69 73 74 2c 20 73 75 63  s not exist, suc
cc30: 63 65 73 73 21 0d 0a 20 20 20 20 20 20 20 20 23  cess!..        #
cc40: 0d 0a 20 20 20 20 20 20 20 20 73 65 74 20 63 6f  ..        set co
cc50: 64 65 20 30 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d  de 0..      }...
cc60: 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 63  .      return $c
cc70: 6f 64 65 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20  ode..    }..... 
cc80: 20 20 20 70 72 6f 63 20 73 65 74 75 70 44 62 49     proc setupDbI
cc90: 6e 74 65 72 72 75 70 74 43 61 6c 6c 62 61 63 6b  nterruptCallback
cca0: 20 7b 20 63 68 61 6e 6e 65 6c 20 6c 6f 67 20 7d   { channel log }
ccb0: 20 7b 0d 0a 20 20 20 20 20 20 74 70 75 74 73 20   {..      tputs 
ccc0: 24 63 68 61 6e 6e 65 6c 20 22 2d 2d 2d 2d 20 73  $channel "---- s
ccd0: 65 74 74 69 6e 67 20 75 70 20 64 65 62 75 67 67  etting up debugg
cce0: 65 72 20 69 6e 74 65 72 72 75 70 74 20 63 61 6c  er interrupt cal
ccf0: 6c 62 61 63 6b 2e 2e 2e 20 22 0d 0a 0d 0a 20 20  lback... "....  
cd00: 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b      if {[catch {
cd10: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20  ..        #..   
cd20: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 4d 61 6b       # NOTE: Mak
cd30: 65 20 73 75 72 65 20 74 68 65 20 73 63 72 69 70  e sure the scrip
cd40: 74 20 64 65 62 75 67 67 65 72 20 61 6e 64 20 74  t debugger and t
cd50: 68 65 20 69 73 6f 6c 61 74 65 64 20 69 6e 74 65  he isolated inte
cd60: 72 70 72 65 74 65 72 20 61 72 65 0d 0a 20 20 20  rpreter are..   
cd70: 20 20 20 20 20 23 20 20 20 20 20 20 20 73 65 74       #       set
cd80: 75 70 20 61 6e 64 20 72 65 61 64 79 20 66 6f 72  up and ready for
cd90: 20 75 73 65 2e 0d 0a 20 20 20 20 20 20 20 20 23   use...        #
cda0: 0d 0a 20 20 20 20 20 20 20 20 64 65 62 75 67 20  ..        debug 
cdb0: 73 65 74 75 70 20 74 72 75 65 20 74 72 75 65 0d  setup true true.
cdc0: 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20  ...        #..  
cdd0: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 4c 6f        # NOTE: Lo
cde0: 61 64 20 74 68 65 20 6e 65 63 65 73 73 61 72 79  ad the necessary
cdf0: 20 70 61 63 6b 61 67 65 73 20 69 6e 74 6f 20 74   packages into t
ce00: 68 65 20 69 73 6f 6c 61 74 65 64 20 69 6e 74 65  he isolated inte
ce10: 72 70 72 65 74 65 72 2e 0d 0a 20 20 20 20 20 20  rpreter...      
ce20: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 64 65 62    #..        deb
ce30: 75 67 20 65 76 61 6c 20 7b 0d 0a 20 20 20 20 20  ug eval {..     
ce40: 20 20 20 20 20 70 61 63 6b 61 67 65 20 72 65 71       package req
ce50: 75 69 72 65 20 45 61 67 6c 65 0d 0a 20 20 20 20  uire Eagle..    
ce60: 20 20 20 20 20 20 70 61 63 6b 61 67 65 20 72 65        package re
ce70: 71 75 69 72 65 20 45 61 67 6c 65 2e 4c 69 62 72  quire Eagle.Libr
ce80: 61 72 79 0d 0a 20 20 20 20 20 20 20 20 20 20 70  ary..          p
ce90: 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 45  ackage require E
cea0: 61 67 6c 65 2e 54 65 73 74 0d 0a 20 20 20 20 20  agle.Test..     
ceb0: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20     }....        
cec0: 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54  #..        # NOT
ced0: 45 3a 20 43 6f 70 79 20 74 68 65 20 6e 65 63 65  E: Copy the nece
cee0: 73 73 61 72 79 20 76 61 72 69 61 62 6c 65 73 20  ssary variables 
cef0: 69 6e 74 6f 20 74 68 65 20 69 73 6f 6c 61 74 65  into the isolate
cf00: 64 20 69 6e 74 65 72 70 72 65 74 65 72 2e 0d 0a  d interpreter...
cf10: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..     
cf20: 20 20 20 64 65 62 75 67 20 69 6e 76 6f 6b 65 20     debug invoke 
cf30: 30 20 73 65 74 20 3a 3a 74 65 73 74 5f 63 68 61  0 set ::test_cha
cf40: 6e 6e 65 6c 20 24 63 68 61 6e 6e 65 6c 3b 20 23  nnel $channel; #
cf50: 20 4e 4f 54 45 3a 20 46 6f 72 20 5b 74 70 75 74   NOTE: For [tput
cf60: 73 5d 2e 0d 0a 20 20 20 20 20 20 20 20 64 65 62  s]...        deb
cf70: 75 67 20 69 6e 76 6f 6b 65 20 30 20 73 65 74 20  ug invoke 0 set 
cf80: 3a 3a 74 65 73 74 5f 6c 6f 67 20 24 6c 6f 67 3b  ::test_log $log;
cf90: 20 23 20 4e 4f 54 45 3a 20 46 6f 72 20 5b 74 6c   # NOTE: For [tl
cfa0: 6f 67 5d 2e 0d 0a 0d 0a 20 20 20 20 20 20 20 20  og].....        
cfb0: 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54  #..        # NOT
cfc0: 45 3a 20 49 6e 73 74 61 6c 6c 20 74 68 65 20 63  E: Install the c
cfd0: 61 6c 6c 62 61 63 6b 20 73 63 72 69 70 74 20 74  allback script t
cfe0: 6f 20 62 65 20 65 76 61 6c 75 61 74 65 64 20 69  o be evaluated i
cff0: 6e 20 74 68 65 20 69 73 6f 6c 61 74 65 64 0d 0a  n the isolated..
d000: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20          #       
d010: 69 6e 74 65 72 70 72 65 74 65 72 20 77 68 65 6e  interpreter when
d020: 20 74 68 69 73 20 69 6e 74 65 72 70 72 65 74 65   this interprete
d030: 72 20 69 73 20 69 6e 74 65 72 72 75 70 74 65 64  r is interrupted
d040: 20 62 79 20 73 63 72 69 70 74 0d 0a 20 20 20 20   by script..    
d050: 20 20 20 20 23 20 20 20 20 20 20 20 63 61 6e 63      #       canc
d060: 65 6c 6c 61 74 69 6f 6e 2c 20 65 74 63 2e 0d 0a  ellation, etc...
d070: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..     
d080: 20 20 20 64 65 62 75 67 20 63 61 6c 6c 62 61 63     debug callbac
d090: 6b 20 61 70 70 6c 79 20 7b 7b 73 65 6e 64 65 72  k apply {{sender
d0a0: 20 65 7d 20 7b 0d 0a 20 20 20 20 20 20 20 20 20   e} {..         
d0b0: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20   #..          # 
d0c0: 4e 4f 54 45 3a 20 43 68 65 63 6b 20 69 66 20 74  NOTE: Check if t
d0d0: 68 69 73 20 63 61 6c 6c 62 61 63 6b 20 69 73 20  his callback is 
d0e0: 6f 6e 65 20 74 68 61 74 20 77 65 20 63 61 72 65  one that we care
d0f0: 20 61 62 6f 75 74 2e 0d 0a 20 20 20 20 20 20 20   about...       
d100: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20     #..          
d110: 69 66 20 7b 22 43 61 6e 63 65 6c 65 64 22 20 69  if {"Canceled" i
d120: 6e 20 5b 73 70 6c 69 74 20 5b 24 65 20 49 6e 74  n [split [$e Int
d130: 65 72 72 75 70 74 54 79 70 65 5d 20 22 2c 20 22  erruptType] ", "
d140: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  ]} then {..     
d150: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..      
d160: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 49 74        # NOTE: It
d170: 65 72 61 74 65 20 74 68 72 6f 75 67 68 20 61 6c  erate through al
d180: 6c 20 64 61 74 61 62 61 73 65 20 63 6f 6e 6e 65  l database conne
d190: 63 74 69 6f 6e 73 20 6b 6e 6f 77 6e 20 74 6f 20  ctions known to 
d1a0: 74 68 65 0d 0a 20 20 20 20 20 20 20 20 20 20 20  the..           
d1b0: 20 23 20 20 20 20 20 20 20 70 61 72 65 6e 74 20   #       parent 
d1c0: 69 6e 74 65 72 70 72 65 74 65 72 2e 0d 0a 20 20  interpreter...  
d1d0: 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20            #..   
d1e0: 20 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74 20           object 
d1f0: 66 6f 72 65 61 63 68 20 2d 61 6c 69 61 73 20 70  foreach -alias p
d200: 61 69 72 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  air \..         
d210: 20 20 20 20 20 20 20 5b 6f 62 6a 65 63 74 20 69         [object i
d220: 6e 76 6f 6b 65 20 2d 66 6c 61 67 73 20 2b 4e 6f  nvoke -flags +No
d230: 6e 50 75 62 6c 69 63 20 24 65 20 49 6e 74 65 72  nPublic $e Inter
d240: 70 72 65 74 65 72 2e 63 6f 6e 6e 65 63 74 69 6f  preter.connectio
d250: 6e 73 5d 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  ns] {..         
d260: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..        
d270: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 41 74        # NOTE: At
d280: 74 65 6d 70 74 20 74 6f 20 63 61 6e 63 65 6c 20  tempt to cancel 
d290: 61 6e 79 20 53 51 4c 20 71 75 65 72 69 65 73 20  any SQL queries 
d2a0: 69 6e 20 70 72 6f 67 72 65 73 73 20 6f 6e 20 74  in progress on t
d2b0: 68 69 73 0d 0a 20 20 20 20 20 20 20 20 20 20 20  his..           
d2c0: 20 20 20 23 20 20 20 20 20 20 20 64 61 74 61 62     #       datab
d2d0: 61 73 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 0d  ase connection..
d2e0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23  .              #
d2f0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
d300: 69 66 20 7b 5b 63 61 74 63 68 20 7b 24 70 61 69  if {[catch {$pai
d310: 72 20 56 61 6c 75 65 2e 43 61 6e 63 65 6c 7d 20  r Value.Cancel} 
d320: 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a  error]} then {..
d330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
d340: 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68  tputs $::test_ch
d350: 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67  annel [appendArg
d360: 73 20 5c 6e 20 5c 0d 0a 20 20 20 20 20 20 20 20  s \n \..        
d370: 20 20 20 20 20 20 20 20 20 20 20 20 22 3d 3d 3d              "===
d380: 3d 20 57 41 52 4e 49 4e 47 3a 20 66 61 69 6c 65  = WARNING: faile
d390: 64 20 74 6f 20 63 61 6e 63 65 6c 20 71 75 65 72  d to cancel quer
d3a0: 79 20 66 6f 72 20 63 6f 6e 6e 65 63 74 69 6f 6e  y for connection
d3b0: 20 5c 22 22 20 5c 0d 0a 20 20 20 20 20 20 20 20   \"" \..        
d3c0: 20 20 20 20 20 20 20 20 20 20 20 20 5b 24 70 61              [$pa
d3d0: 69 72 20 4b 65 79 5d 20 22 5c 22 2c 20 65 72 72  ir Key] "\", err
d3e0: 6f 72 3a 20 22 20 5c 6e 5c 74 20 24 65 72 72 6f  or: " \n\t $erro
d3f0: 72 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 20  r \n]..         
d400: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20       }..        
d410: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20      }..         
d420: 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 7d 0d 0a   }..        }}..
d430: 20 20 20 20 20 20 7d 20 65 72 72 6f 72 5d 20 3d        } error] =
d440: 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  = 0} then {..   
d450: 20 20 20 20 20 61 64 64 43 6f 6e 73 74 72 61 69       addConstrai
d460: 6e 74 20 69 6e 74 65 72 72 75 70 74 43 61 6c 6c  nt interruptCall
d470: 62 61 63 6b 2e 73 71 6c 69 74 65 33 0d 0a 0d 0a  back.sqlite3....
d480: 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63          tputs $c
d490: 68 61 6e 6e 65 6c 20 79 65 73 5c 6e 0d 0a 20 20  hannel yes\n..  
d4a0: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20      } else {..  
d4b0: 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68 61        tputs $cha
d4c0: 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73  nnel [appendArgs
d4d0: 20 22 6e 6f 2c 20 65 72 72 6f 72 3a 20 22 20 5c   "no, error: " \
d4e0: 6e 5c 74 20 24 65 72 72 6f 72 20 5c 6e 5d 0d 0a  n\t $error \n]..
d4f0: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a        }..    }..
d500: 0c 0d 0a 20 20 20 20 70 72 6f 63 20 63 6c 65 61  ...    proc clea
d510: 6e 75 70 46 69 6c 65 20 7b 20 66 69 6c 65 4e 61  nupFile { fileNa
d520: 6d 65 20 7b 63 6f 6c 6c 65 63 74 20 74 72 75 65  me {collect true
d530: 7d 20 7b 66 6f 72 63 65 20 66 61 6c 73 65 7d 20  } {force false} 
d540: 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  } {..      #..  
d550: 20 20 20 20 23 20 4e 4f 54 45 3a 20 41 74 74 65      # NOTE: Atte
d560: 6d 70 74 20 74 6f 20 66 6f 72 63 65 20 61 6c 6c  mpt to force all
d570: 20 70 65 6e 64 69 6e 67 20 22 67 61 72 62 61 67   pending "garbag
d580: 65 22 20 6f 62 6a 65 63 74 73 20 74 6f 20 62 65  e" objects to be
d590: 20 63 6f 6c 6c 65 63 74 65 64 2c 0d 0a 20 20 20   collected,..   
d5a0: 20 20 20 23 20 20 20 20 20 20 20 69 6e 63 6c 75     #       inclu
d5b0: 64 69 6e 67 20 53 51 4c 69 74 65 20 73 74 61 74  ding SQLite stat
d5c0: 65 6d 65 6e 74 73 20 61 6e 64 20 62 61 63 6b 75  ements and backu
d5d0: 70 20 6f 62 6a 65 63 74 73 3b 20 74 68 69 73 20  p objects; this 
d5e0: 73 68 6f 75 6c 64 20 61 6c 6c 6f 77 0d 0a 20 20  should allow..  
d5f0: 20 20 20 20 23 20 20 20 20 20 20 20 74 68 65 20      #       the 
d600: 75 6e 64 65 72 6c 79 69 6e 67 20 64 61 74 61 62  underlying datab
d610: 61 73 65 20 66 69 6c 65 20 74 6f 20 62 65 20 64  ase file to be d
d620: 65 6c 65 74 65 64 2e 0d 0a 20 20 20 20 20 20 23  eleted...      #
d630: 0d 0a 20 20 20 20 20 20 69 66 20 7b 24 63 6f 6c  ..      if {$col
d640: 6c 65 63 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  lect} then {..  
d650: 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 47 61 72        collectGar
d660: 62 61 67 65 20 24 3a 3a 74 65 73 74 5f 63 68 61  bage $::test_cha
d670: 6e 6e 65 6c 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d  nnel..      }...
d680: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20  .      #..      
d690: 23 20 4e 4f 54 45 3a 20 43 68 65 63 6b 20 69 66  # NOTE: Check if
d6a0: 20 74 68 65 20 66 69 6c 65 20 73 74 69 6c 6c 20   the file still 
d6b0: 65 78 69 73 74 73 2e 0d 0a 20 20 20 20 20 20 23  exists...      #
d6c0: 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 66 69 6c  ..      if {[fil
d6d0: 65 20 65 78 69 73 74 73 20 24 66 69 6c 65 4e 61  e exists $fileNa
d6e0: 6d 65 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  me]} then {..   
d6f0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..        
d700: 23 20 4e 4f 54 45 3a 20 53 6b 69 70 20 64 65 6c  # NOTE: Skip del
d710: 65 74 69 6e 67 20 74 65 73 74 20 66 69 6c 65 73  eting test files
d720: 20 69 66 20 73 6f 6d 65 62 6f 64 79 20 73 65 74   if somebody set
d730: 73 20 74 68 65 20 67 6c 6f 62 61 6c 20 76 61 72  s the global var
d740: 69 61 62 6c 65 0d 0a 20 20 20 20 20 20 20 20 23  iable..        #
d750: 20 20 20 20 20 20 20 74 6f 20 70 72 65 76 65 6e         to preven
d760: 74 20 69 74 2e 0d 0a 20 20 20 20 20 20 20 20 23  t it...        #
d770: 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 24 66  ..        if {$f
d780: 6f 72 63 65 20 7c 7c 20 21 5b 69 6e 66 6f 20 65  orce || ![info e
d790: 78 69 73 74 73 20 3a 3a 6e 6f 28 63 6c 65 61 6e  xists ::no(clean
d7a0: 75 70 46 69 6c 65 29 5d 7d 20 74 68 65 6e 20 7b  upFile)]} then {
d7b0: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20  ..          #.. 
d7c0: 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a           # NOTE:
d7d0: 20 41 74 74 65 6d 70 74 20 74 6f 20 64 65 6c 65   Attempt to dele
d7e0: 74 65 20 74 68 65 20 74 65 73 74 20 66 69 6c 65  te the test file
d7f0: 20 6e 6f 77 2e 0d 0a 20 20 20 20 20 20 20 20 20   now...         
d800: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66   #..          if
d810: 20 7b 5b 73 65 74 20 63 6f 64 65 20 5b 63 61 74   {[set code [cat
d820: 63 68 20 7b 66 69 6c 65 20 64 65 6c 65 74 65 20  ch {file delete 
d830: 24 66 69 6c 65 4e 61 6d 65 7d 20 65 72 72 6f 72  $fileName} error
d840: 5d 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20  ]]} then {..    
d850: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..     
d860: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 57         # NOTE: W
d870: 65 20 73 6f 6d 65 68 6f 77 20 66 61 69 6c 65 64  e somehow failed
d880: 20 74 6f 20 64 65 6c 65 74 65 20 74 68 65 20 66   to delete the f
d890: 69 6c 65 2c 20 72 65 70 6f 72 74 20 77 68 79 2e  ile, report why.
d8a0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 0d  ..            #.
d8b0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 70 75  .            tpu
d8c0: 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e  ts $::test_chann
d8d0: 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c  el [appendArgs \
d8e0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
d8f0: 20 20 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e 47 3a    "==== WARNING:
d900: 20 66 61 69 6c 65 64 20 74 6f 20 64 65 6c 65 74   failed to delet
d910: 65 20 74 65 73 74 20 66 69 6c 65 20 5c 22 22 20  e test file \"" 
d920: 24 66 69 6c 65 4e 61 6d 65 20 5c 0d 0a 20 20 20  $fileName \..   
d930: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5c 22               "\"
d940: 20 64 75 72 69 6e 67 20 63 6c 65 61 6e 75 70 2c   during cleanup,
d950: 20 65 72 72 6f 72 3a 20 22 20 5c 6e 5c 74 20 24   error: " \n\t $
d960: 65 72 72 6f 72 20 5c 6e 5d 0d 0a 20 20 20 20 20  error \n]..     
d970: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20       }..        
d980: 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20  } else {..      
d990: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20      #..         
d9a0: 20 23 20 4e 4f 54 45 3a 20 53 68 6f 77 20 74 68   # NOTE: Show th
d9b0: 61 74 20 77 65 20 73 6b 69 70 70 65 64 20 64 65  at we skipped de
d9c0: 6c 65 74 69 6e 67 20 74 68 65 20 66 69 6c 65 2e  leting the file.
d9d0: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20  ..          #.. 
d9e0: 20 20 20 20 20 20 20 20 20 73 65 74 20 63 6f 64           set cod
d9f0: 65 20 30 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20  e 0....         
da00: 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63   tputs $::test_c
da10: 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72  hannel [appendAr
da20: 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  gs \..          
da30: 20 20 20 20 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e      "==== WARNIN
da40: 47 3a 20 73 6b 69 70 70 65 64 20 64 65 6c 65 74  G: skipped delet
da50: 69 6e 67 20 74 65 73 74 20 66 69 6c 65 20 5c 22  ing test file \"
da60: 22 20 24 66 69 6c 65 4e 61 6d 65 20 5c 0d 0a 20  " $fileName \.. 
da70: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5c 22               "\"
da80: 20 64 75 72 69 6e 67 20 63 6c 65 61 6e 75 70 5c   during cleanup\
da90: 6e 22 5d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a  n"]..        }..
daa0: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a        } else {..
dab0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..     
dac0: 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 65 20 66     # NOTE: The f
dad0: 69 6c 65 20 64 6f 65 73 20 6e 6f 74 20 65 78 69  ile does not exi
dae0: 73 74 2c 20 73 75 63 63 65 73 73 21 0d 0a 20 20  st, success!..  
daf0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
db00: 20 73 65 74 20 63 6f 64 65 20 30 0d 0a 20 20 20   set code 0..   
db10: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 72 65     }....      re
db20: 74 75 72 6e 20 24 63 6f 64 65 0d 0a 20 20 20 20  turn $code..    
db30: 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 63  }.....    proc c
db40: 6f 6c 6c 65 63 74 47 61 72 62 61 67 65 20 7b 20  ollectGarbage { 
db50: 63 68 61 6e 6e 65 6c 20 7b 6d 69 6c 6c 69 73 65  channel {millise
db60: 63 6f 6e 64 73 20 31 30 30 30 7d 20 7b 71 75 69  conds 1000} {qui
db70: 65 74 20 74 72 75 65 7d 20 7d 20 7b 0d 0a 20 20  et true} } {..  
db80: 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b      if {[catch {
db90: 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 47 43  object invoke GC
dba0: 20 47 65 74 54 6f 74 61 6c 4d 65 6d 6f 72 79 20   GetTotalMemory 
dbb0: 66 61 6c 73 65 7d 20 72 65 73 75 6c 74 5d 20 3d  false} result] =
dbc0: 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  = 0} then {..   
dbd0: 20 20 20 20 20 69 66 20 7b 21 24 71 75 69 65 74       if {!$quiet
dbe0: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..      
dbf0: 20 20 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e      tputs $chann
dc00: 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c  el [appendArgs \
dc10: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
dc20: 22 2d 2d 2d 2d 20 6d 65 6d 6f 72 79 20 69 6e 20  "---- memory in 
dc30: 75 73 65 20 62 79 20 74 68 65 20 43 4c 52 20 62  use by the CLR b
dc40: 65 66 6f 72 65 20 63 6f 6c 6c 65 63 74 69 6f 6e  efore collection
dc50: 2e 2e 2e 20 22 20 5c 0d 0a 20 20 20 20 20 20 20  ... " \..       
dc60: 20 20 20 20 20 20 20 24 72 65 73 75 6c 74 20 22         $result "
dc70: 20 62 79 74 65 73 5c 6e 22 5d 0d 0a 20 20 20 20   bytes\n"]..    
dc80: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 20 65      }..      } e
dc90: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 74  lse {..        t
dca0: 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61  puts $channel [a
dcb0: 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20  ppendArgs \..   
dcc0: 20 20 20 20 20 20 20 20 20 22 3d 3d 3d 3d 20 57           "==== W
dcd0: 41 52 4e 49 4e 47 3a 20 66 61 69 6c 65 64 20 74  ARNING: failed t
dce0: 6f 20 67 65 74 20 43 4c 52 20 6d 65 6d 6f 72 79  o get CLR memory
dcf0: 20 75 73 61 67 65 2c 20 65 72 72 6f 72 3a 20 22   usage, error: "
dd00: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   \..            
dd10: 5c 6e 5c 74 20 24 72 65 73 75 6c 74 20 5c 6e 5d  \n\t $result \n]
dd20: 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20  ..      }....   
dd30: 20 20 20 23 23 23 23 23 23 23 23 23 23 23 23 23     #############
dd40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
dd50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
dd60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
dd70: 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a  ############....
dd80: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23        #..      #
dd90: 20 4e 4f 54 45 3a 20 52 65 70 65 61 74 65 64 6c   NOTE: Repeatedl
dda0: 79 20 61 74 74 65 6d 70 74 20 74 6f 20 63 6f 6c  y attempt to col
ddb0: 6c 65 63 74 20 67 61 72 62 61 67 65 20 75 6e 74  lect garbage unt
ddc0: 69 6c 20 74 68 65 20 61 6c 6c 6f 74 74 65 64 20  il the allotted 
ddd0: 6e 75 6d 62 65 72 0d 0a 20 20 20 20 20 20 23 20  number..      # 
dde0: 20 20 20 20 20 20 6f 66 20 6d 69 6c 6c 69 73 65        of millise
ddf0: 63 6f 6e 64 73 20 68 61 73 20 65 6c 61 70 73 65  conds has elapse
de00: 64 2e 20 20 41 6c 77 61 79 73 20 61 74 74 65 6d  d.  Always attem
de10: 70 74 20 74 6f 20 63 6f 6c 6c 65 63 74 20 67 61  pt to collect ga
de20: 72 62 61 67 65 0d 0a 20 20 20 20 20 20 23 20 20  rbage..      #  
de30: 20 20 20 20 20 61 74 20 6c 65 61 73 74 20 6f 6e       at least on
de40: 63 65 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  ce...      #..  
de50: 20 20 20 20 73 65 74 20 73 74 61 72 74 20 5b 63      set start [c
de60: 6c 6f 63 6b 20 73 65 63 6f 6e 64 73 5d 0d 0a 20  lock seconds].. 
de70: 20 20 20 20 20 73 65 74 20 73 74 6f 70 20 5b 65       set stop [e
de80: 78 70 72 20 7b 24 73 74 61 72 74 20 2b 20 28 24  xpr {$start + ($
de90: 6d 69 6c 6c 69 73 65 63 6f 6e 64 73 20 2f 20 31  milliseconds / 1
dea0: 30 30 30 29 7d 5d 0d 0a 0d 0a 20 20 20 20 20 20  000)}]....      
deb0: 64 6f 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d  do {..        #.
dec0: 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a  .        # NOTE:
ded0: 20 41 74 74 65 6d 70 74 20 74 6f 20 66 6f 72 63   Attempt to forc
dee0: 65 20 61 20 66 75 6c 6c 20 67 61 72 62 61 67 65  e a full garbage
def0: 20 63 6f 6c 6c 65 63 74 69 6f 6e 20 6e 6f 77 2e   collection now.
df00: 20 20 52 65 70 6f 72 74 20 61 6e 79 0d 0a 20 20    Report any..  
df10: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 65 72        #       er
df20: 72 6f 72 20 74 68 61 74 20 69 73 20 65 6e 63 6f  ror that is enco
df30: 75 6e 74 65 72 65 64 20 69 66 20 77 65 20 66 61  untered if we fa
df40: 69 6c 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a  il...        #..
df50: 20 20 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74          if {[cat
df60: 63 68 20 7b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b  ch {object invok
df70: 65 20 47 43 20 47 65 74 54 6f 74 61 6c 4d 65 6d  e GC GetTotalMem
df80: 6f 72 79 20 74 72 75 65 7d 20 65 72 72 6f 72 5d  ory true} error]
df90: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..      
dfa0: 20 20 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e      tputs $chann
dfb0: 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c  el [appendArgs \
dfc0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
dfd0: 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e 47 3a 20 66  "==== WARNING: f
dfe0: 61 69 6c 65 64 20 66 75 6c 6c 20 67 61 72 62 61  ailed full garba
dff0: 67 65 20 63 6f 6c 6c 65 63 74 69 6f 6e 2c 20 65  ge collection, e
e000: 72 72 6f 72 3a 20 22 20 5c 0d 0a 20 20 20 20 20  rror: " \..     
e010: 20 20 20 20 20 20 20 20 20 5c 6e 5c 74 20 24 65           \n\t $e
e020: 72 72 6f 72 20 5c 6e 5d 0d 0a 20 20 20 20 20 20  rror \n]..      
e030: 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 73    }....        s
e040: 65 74 20 6e 6f 77 20 5b 63 6c 6f 63 6b 20 73 65  et now [clock se
e050: 63 6f 6e 64 73 5d 0d 0a 20 20 20 20 20 20 7d 20  conds]..      } 
e060: 77 68 69 6c 65 20 7b 24 73 74 61 72 74 20 3c 3d  while {$start <=
e070: 20 24 6e 6f 77 20 26 26 20 24 6e 6f 77 20 3c 20   $now && $now < 
e080: 24 73 74 6f 70 7d 0d 0a 0d 0a 20 20 20 20 20 20  $stop}....      
e090: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
e0a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
e0b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
e0c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
e0d0: 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 20  #########....   
e0e0: 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 6f     if {[catch {o
e0f0: 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 47 43 20  bject invoke GC 
e100: 47 65 74 54 6f 74 61 6c 4d 65 6d 6f 72 79 20 66  GetTotalMemory f
e110: 61 6c 73 65 7d 20 72 65 73 75 6c 74 5d 20 3d 3d  alse} result] ==
e120: 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20   0} then {..    
e130: 20 20 20 20 69 66 20 7b 21 24 71 75 69 65 74 7d      if {!$quiet}
e140: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20   then {..       
e150: 20 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65     tputs $channe
e160: 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d  l [appendArgs \.
e170: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22  .              "
e180: 2d 2d 2d 2d 20 6d 65 6d 6f 72 79 20 69 6e 20 75  ---- memory in u
e190: 73 65 20 62 79 20 74 68 65 20 43 4c 52 20 61 66  se by the CLR af
e1a0: 74 65 72 20 63 6f 6c 6c 65 63 74 69 6f 6e 2e 2e  ter collection..
e1b0: 2e 20 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  . " \..         
e1c0: 20 20 20 20 20 24 72 65 73 75 6c 74 20 22 20 62       $result " b
e1d0: 79 74 65 73 5c 6e 22 5d 0d 0a 20 20 20 20 20 20  ytes\n"]..      
e1e0: 20 20 7d 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73    }..      } els
e1f0: 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 74 70 75  e {..        tpu
e200: 74 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70  ts $channel [app
e210: 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20  endArgs \..     
e220: 20 20 20 20 20 20 20 22 3d 3d 3d 3d 20 57 41 52         "==== WAR
e230: 4e 49 4e 47 3a 20 66 61 69 6c 65 64 20 74 6f 20  NING: failed to 
e240: 67 65 74 20 43 4c 52 20 6d 65 6d 6f 72 79 20 75  get CLR memory u
e250: 73 61 67 65 2c 20 65 72 72 6f 72 3a 20 22 20 5c  sage, error: " \
e260: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 5c 6e  ..            \n
e270: 5c 74 20 24 72 65 73 75 6c 74 20 5c 6e 5d 0d 0a  \t $result \n]..
e280: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a        }..    }..
e290: 0c 0d 0a 20 20 20 20 70 72 6f 63 20 67 65 74 53  ...    proc getS
e2a0: 51 4c 69 74 65 48 61 6e 64 6c 65 43 6f 75 6e 74  QLiteHandleCount
e2b0: 73 20 7b 20 63 68 61 6e 6e 65 6c 20 7b 71 75 69  s { channel {qui
e2c0: 65 74 20 66 61 6c 73 65 7d 20 7d 20 7b 0d 0a 20  et false} } {.. 
e2d0: 20 20 20 20 20 73 65 74 20 72 65 73 75 6c 74 20       set result 
e2e0: 5b 6c 69 73 74 5d 0d 0a 0d 0a 20 20 20 20 20 20  [list]....      
e2f0: 69 66 20 7b 5b 68 61 76 65 43 6f 6e 73 74 72 61  if {[haveConstra
e300: 69 6e 74 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  int \..         
e310: 20 20 20 20 20 64 65 66 69 6e 65 43 6f 6e 73 74       defineConst
e320: 61 6e 74 2e 53 79 73 74 65 6d 2e 44 61 74 61 2e  ant.System.Data.
e330: 53 51 4c 69 74 65 2e 43 4f 55 4e 54 5f 48 41 4e  SQLite.COUNT_HAN
e340: 44 4c 45 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  DLE]} then {..  
e350: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
e360: 20 23 20 4e 4f 54 45 3a 20 41 64 64 20 65 61 63   # NOTE: Add eac
e370: 68 20 63 72 69 74 69 63 61 6c 20 68 61 6e 64 6c  h critical handl
e380: 65 20 63 6f 75 6e 74 20 74 6f 20 74 68 65 20 72  e count to the r
e390: 65 73 75 6c 74 69 6e 67 20 6c 69 73 74 2e 0d 0a  esulting list...
e3a0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..     
e3b0: 20 20 20 66 6f 72 65 61 63 68 20 6e 61 6d 65 20     foreach name 
e3c0: 5b 6c 69 73 74 20 63 6f 6e 6e 65 63 74 69 6f 6e  [list connection
e3d0: 43 6f 75 6e 74 20 73 74 61 74 65 6d 65 6e 74 43  Count statementC
e3e0: 6f 75 6e 74 20 62 61 63 6b 75 70 43 6f 75 6e 74  ount backupCount
e3f0: 5d 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 73  ] {..          s
e400: 65 74 20 76 61 6c 75 65 20 5b 6f 62 6a 65 63 74  et value [object
e410: 20 69 6e 76 6f 6b 65 20 2d 66 6c 61 67 73 20 2b   invoke -flags +
e420: 4e 6f 6e 50 75 62 6c 69 63 20 5c 0d 0a 20 20 20  NonPublic \..   
e430: 20 20 20 20 20 20 20 20 20 20 20 53 79 73 74 65             Syste
e440: 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 55 6e  m.Data.SQLite.Un
e450: 73 61 66 65 4e 61 74 69 76 65 4d 65 74 68 6f 64  safeNativeMethod
e460: 73 20 24 6e 61 6d 65 5d 0d 0a 0d 0a 20 20 20 20  s $name]....    
e470: 20 20 20 20 20 20 69 66 20 7b 21 24 71 75 69 65        if {!$quie
e480: 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  t} then {..     
e490: 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68         tputs $ch
e4a0: 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67  annel [appendArg
e4b0: 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20  s \..           
e4c0: 20 20 20 20 20 22 2d 2d 2d 2d 20 63 72 69 74 69       "---- criti
e4d0: 63 61 6c 20 68 61 6e 64 6c 65 20 63 6f 75 6e 74  cal handle count
e4e0: 20 5c 22 22 20 24 6e 61 6d 65 20 22 5c 22 20 69   \"" $name "\" i
e4f0: 73 20 22 20 24 76 61 6c 75 65 20 5c 6e 5d 0d 0a  s " $value \n]..
e500: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20            }.... 
e510: 20 20 20 20 20 20 20 20 20 6c 61 70 70 65 6e 64           lappend
e520: 20 72 65 73 75 6c 74 20 24 76 61 6c 75 65 0d 0a   result $value..
e530: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20          }..     
e540: 20 7d 20 65 6c 73 65 69 66 20 7b 21 24 71 75 69   } elseif {!$qui
e550: 65 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20  et} then {..    
e560: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23      #..        #
e570: 20 4e 4f 54 45 3a 20 54 68 65 20 61 63 74 75 61   NOTE: The actua
e580: 6c 20 68 61 6e 64 6c 65 20 63 6f 75 6e 74 73 20  l handle counts 
e590: 61 72 65 20 6e 6f 74 20 61 76 61 69 6c 61 62 6c  are not availabl
e5a0: 65 3b 20 74 68 65 72 65 66 6f 72 65 2c 20 6a 75  e; therefore, ju
e5b0: 73 74 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20  st..        #   
e5c0: 20 20 20 20 72 65 74 75 72 6e 20 61 6e 20 65 6d      return an em
e5d0: 70 74 79 20 6c 69 73 74 2e 0d 0a 20 20 20 20 20  pty list...     
e5e0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 74 70     #..        tp
e5f0: 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 22 2d 2d  uts $channel "--
e600: 2d 2d 20 63 72 69 74 69 63 61 6c 20 68 61 6e 64  -- critical hand
e610: 6c 65 20 63 6f 75 6e 74 73 20 75 6e 61 76 61 69  le counts unavai
e620: 6c 61 62 6c 65 5c 6e 22 0d 0a 20 20 20 20 20 20  lable\n"..      
e630: 7d 0d 0a 0d 0a 20 20 20 20 20 20 72 65 74 75 72  }....      retur
e640: 6e 20 24 72 65 73 75 6c 74 0d 0a 20 20 20 20 7d  n $result..    }
e650: 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 73 68  .....    proc sh
e660: 75 74 64 6f 77 6e 53 51 4c 69 74 65 20 7b 20 63  utdownSQLite { c
e670: 68 61 6e 6e 65 6c 20 7b 66 6f 72 63 65 20 66 61  hannel {force fa
e680: 6c 73 65 7d 20 7b 71 75 69 65 74 20 66 61 6c 73  lse} {quiet fals
e690: 65 7d 20 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d  e} } {..      #.
e6a0: 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 4d  .      # NOTE: M
e6b0: 61 6b 65 20 73 75 72 65 20 74 68 61 74 20 53 51  ake sure that SQ
e6c0: 4c 69 74 65 20 63 6f 72 65 20 6c 69 62 72 61 72  Lite core librar
e6d0: 79 20 69 73 20 63 6f 6d 70 6c 65 74 65 6c 79 20  y is completely 
e6e0: 73 68 75 74 64 6f 77 6e 2e 20 20 54 68 69 73 0d  shutdown.  This.
e6f0: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 69  .      #       i
e700: 73 20 75 73 65 64 20 62 79 20 74 65 73 74 73 20  s used by tests 
e710: 74 68 61 74 20 63 68 61 6e 67 65 20 63 6f 6e 66  that change conf
e720: 69 67 75 72 61 74 69 6f 6e 20 6f 70 74 69 6f 6e  iguration option
e730: 73 20 61 6e 64 2f 6f 72 20 74 68 6f 73 65 0d 0a  s and/or those..
e740: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 74 68        #       th
e750: 61 74 20 6e 65 65 64 20 74 6f 20 6d 61 6b 65 20  at need to make 
e760: 73 75 72 65 20 6c 6f 67 67 69 6e 67 20 69 73 20  sure logging is 
e770: 69 6e 69 74 69 61 6c 69 7a 65 64 20 28 69 2e 65  initialized (i.e
e780: 2e 20 6a 75 73 74 20 69 6e 20 63 61 73 65 0d 0a  . just in case..
e790: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 74 68        #       th
e7a0: 65 20 53 51 4c 69 74 65 20 63 6f 72 65 20 6c 69  e SQLite core li
e7b0: 62 72 61 72 79 20 77 61 73 20 69 6e 69 74 69 61  brary was initia
e7c0: 6c 69 7a 65 64 20 69 6e 20 74 68 65 20 70 72 6f  lized in the pro
e7d0: 63 65 73 73 20 70 72 69 6f 72 20 74 6f 0d 0a 20  cess prior to.. 
e7e0: 20 20 20 20 20 23 20 20 20 20 20 20 20 74 68 65       #       the
e7f0: 20 53 51 4c 69 74 65 4c 6f 67 20 63 6c 61 73 73   SQLiteLog class
e800: 20 62 65 69 6e 67 20 61 62 6c 65 20 74 6f 20 73   being able to s
e810: 65 74 75 70 20 69 74 73 20 6c 6f 67 67 69 6e 67  etup its logging
e820: 20 63 61 6c 6c 62 61 63 6b 29 2e 0d 0a 20 20 20   callback)...   
e830: 20 20 20 23 20 20 20 20 20 20 20 4e 6f 72 6d 61     #       Norma
e840: 6c 6c 79 2c 20 74 68 69 73 20 73 68 6f 75 6c 64  lly, this should
e850: 20 6f 6e 6c 79 20 62 65 20 70 65 72 66 6f 72 6d   only be perform
e860: 65 64 20 69 66 20 53 51 4c 69 74 65 20 69 73 20  ed if SQLite is 
e870: 6c 6f 61 64 65 64 20 61 6e 64 0d 0a 20 20 20 20  loaded and..    
e880: 20 20 23 20 20 20 20 20 20 20 72 65 61 64 79 20    #       ready 
e890: 66 6f 72 20 75 73 65 20 62 79 20 74 68 65 20 74  for use by the t
e8a0: 65 73 74 20 73 75 69 74 65 2e 0d 0a 20 20 20 20  est suite...    
e8b0: 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 24    #..      if {$
e8c0: 66 6f 72 63 65 20 7c 7c 20 5b 69 73 53 51 4c 69  force || [isSQLi
e8d0: 74 65 52 65 61 64 79 5d 7d 20 74 68 65 6e 20 7b  teReady]} then {
e8e0: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20  ..        #..   
e8f0: 20 20 20 20 20 23 20 42 55 47 46 49 58 3a 20 42       # BUGFIX: B
e900: 65 66 6f 72 65 20 63 61 6c 6c 69 6e 67 20 74 68  efore calling th
e910: 65 20 6e 61 74 69 76 65 20 73 68 75 74 64 6f 77  e native shutdow
e920: 6e 20 66 75 6e 63 74 69 6f 6e 2c 20 6d 61 6b 65  n function, make
e930: 20 73 75 72 65 20 62 6f 74 68 0d 0a 20 20 20 20   sure both..    
e940: 20 20 20 20 23 20 20 20 20 20 20 20 20 20 6f 66      #         of
e950: 20 74 68 65 20 50 52 41 47 4d 41 20 72 65 6c 61   the PRAGMA rela
e960: 74 65 64 20 64 69 72 65 63 74 6f 72 79 20 6e 61  ted directory na
e970: 6d 65 73 20 61 72 65 20 66 72 65 65 64 2e 0d 0a  mes are freed...
e980: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..     
e990: 20 20 20 63 68 65 63 6b 46 6f 72 53 51 4c 69 74     checkForSQLit
e9a0: 65 44 69 72 65 63 74 6f 72 69 65 73 20 24 63 68  eDirectories $ch
e9b0: 61 6e 6e 65 6c 20 74 72 75 65 0d 0a 0d 0a 20 20  annel true....  
e9c0: 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68        if {[catch
e9d0: 20 7b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20   {object invoke 
e9e0: 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 6c 69  -flags +NonPubli
e9f0: 63 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20  c \..           
ea00: 20 20 20 20 20 53 79 73 74 65 6d 2e 44 61 74 61       System.Data
ea10: 2e 53 51 4c 69 74 65 2e 55 6e 73 61 66 65 4e 61  .SQLite.UnsafeNa
ea20: 74 69 76 65 4d 65 74 68 6f 64 73 20 5c 0d 0a 20  tiveMethods \.. 
ea30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73                 s
ea40: 71 6c 69 74 65 33 5f 73 68 75 74 64 6f 77 6e 7d  qlite3_shutdown}
ea50: 20 72 65 73 75 6c 74 5d 20 3d 3d 20 30 7d 20 74   result] == 0} t
ea60: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  hen {..         
ea70: 20 69 66 20 7b 21 24 71 75 69 65 74 7d 20 74 68   if {!$quiet} th
ea80: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20  en {..          
ea90: 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c    tputs $channel
eaa0: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a   [appendArgs \..
eab0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
eac0: 22 2d 2d 2d 2d 20 63 61 6c 6c 20 73 71 6c 69 74  "---- call sqlit
ead0: 65 33 5f 73 68 75 74 64 6f 77 6e 28 29 2e 2e 2e  e3_shutdown()...
eae0: 20 6f 6b 3a 20 22 20 24 72 65 73 75 6c 74 20 5c   ok: " $result \
eaf0: 6e 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d  n]..          }.
eb00: 0a 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20  .        } else 
eb10: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66 20  {..          if 
eb20: 7b 21 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b  {!$quiet} then {
eb30: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 70  ..            tp
eb40: 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70  uts $channel [ap
eb50: 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20  pendArgs \..    
eb60: 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d              "---
eb70: 2d 20 63 61 6c 6c 20 73 71 6c 69 74 65 33 5f 73  - call sqlite3_s
eb80: 68 75 74 64 6f 77 6e 28 29 2e 2e 2e 20 65 72 72  hutdown()... err
eb90: 6f 72 3a 20 22 20 5c 6e 5c 74 20 24 72 65 73 75  or: " \n\t $resu
eba0: 6c 74 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20  lt \n]..        
ebb0: 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a    }..        }..
ebc0: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a        }..    }..
ebd0: 0c 0d 0a 20 20 20 20 70 72 6f 63 20 72 65 70 6f  ...    proc repo
ebe0: 72 74 53 51 4c 69 74 65 52 65 73 6f 75 72 63 65  rtSQLiteResource
ebf0: 73 20 7b 20 63 68 61 6e 6e 65 6c 20 7b 71 75 69  s { channel {qui
ec00: 65 74 20 66 61 6c 73 65 7d 20 7b 63 6f 6c 6c 65  et false} {colle
ec10: 63 74 20 74 72 75 65 7d 20 7d 20 7b 0d 0a 20 20  ct true} } {..  
ec20: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e      #..      # N
ec30: 4f 54 45 3a 20 53 6b 69 70 20 61 6c 6c 20 6f 75  OTE: Skip all ou
ec40: 74 70 75 74 20 69 66 20 77 65 20 61 72 65 20 72  tput if we are r
ec50: 75 6e 6e 69 6e 67 20 69 6e 20 22 71 75 69 65 74  unning in "quiet
ec60: 22 20 6d 6f 64 65 2e 0d 0a 20 20 20 20 20 20 23  " mode...      #
ec70: 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 68 61 76  ..      if {[hav
ec80: 65 43 6f 6e 73 74 72 61 69 6e 74 20 5c 0d 0a 20  eConstraint \.. 
ec90: 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 66               def
eca0: 69 6e 65 43 6f 6e 73 74 61 6e 74 2e 53 79 73 74  ineConstant.Syst
ecb0: 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 49  em.Data.SQLite.I
ecc0: 4e 54 45 52 4f 50 5f 56 49 52 54 55 41 4c 5f 54  NTEROP_VIRTUAL_T
ecd0: 41 42 4c 45 5d 20 26 26 20 5c 0d 0a 20 20 20 20  ABLE] && \..    
ece0: 20 20 20 20 20 20 5b 68 61 76 65 43 6f 6e 73 74        [haveConst
ecf0: 72 61 69 6e 74 20 5c 0d 0a 20 20 20 20 20 20 20  raint \..       
ed00: 20 20 20 20 20 20 20 64 65 66 69 6e 65 43 6f 6e         defineCon
ed10: 73 74 61 6e 74 2e 53 79 73 74 65 6d 2e 44 61 74  stant.System.Dat
ed20: 61 2e 53 51 4c 69 74 65 2e 54 52 41 43 4b 5f 4d  a.SQLite.TRACK_M
ed30: 45 4d 4f 52 59 5f 42 59 54 45 53 5d 7d 20 74 68  EMORY_BYTES]} th
ed40: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 69 66  en {..        if
ed50: 20 7b 21 24 71 75 69 65 74 7d 20 74 68 65 6e 20   {!$quiet} then 
ed60: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70 75  {..          tpu
ed70: 74 73 20 24 63 68 61 6e 6e 65 6c 20 22 2d 2d 2d  ts $channel "---
ed80: 2d 20 63 75 72 72 65 6e 74 20 6d 65 6d 6f 72 79  - current memory
ed90: 20 69 6e 20 75 73 65 20 62 79 20 53 51 4c 69 74   in use by SQLit
eda0: 65 4d 65 6d 6f 72 79 2e 2e 2e 20 22 0d 0a 20 20  eMemory... "..  
edb0: 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20        }....     
edc0: 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 6f     if {[catch {o
edd0: 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d 66 6c  bject invoke -fl
ede0: 61 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 5c  ags +NonPublic \
edf0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
ee00: 20 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51    System.Data.SQ
ee10: 4c 69 74 65 2e 53 51 4c 69 74 65 4d 65 6d 6f 72  Lite.SQLiteMemor
ee20: 79 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20  y \..           
ee30: 20 20 20 20 20 62 79 74 65 73 41 6c 6c 6f 63 61       bytesAlloca
ee40: 74 65 64 7d 20 6d 65 6d 6f 72 79 5d 20 3d 3d 20  ted} memory] == 
ee50: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  0} then {..     
ee60: 20 20 20 20 20 69 66 20 7b 21 24 71 75 69 65 74       if {!$quiet
ee70: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..      
ee80: 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68 61        tputs $cha
ee90: 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73  nnel [appendArgs
eea0: 20 24 6d 65 6d 6f 72 79 20 22 20 62 79 74 65 73   $memory " bytes
eeb0: 5c 6e 22 5d 0d 0a 20 20 20 20 20 20 20 20 20 20  \n"]..          
eec0: 7d 0d 0a 20 20 20 20 20 20 20 20 7d 20 65 6c 73  }..        } els
eed0: 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 73  e {..          s
eee0: 65 74 20 6d 65 6d 6f 72 79 20 75 6e 6b 6e 6f 77  et memory unknow
eef0: 6e 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 69  n....          i
ef00: 66 20 7b 21 24 71 75 69 65 74 7d 20 74 68 65 6e  f {!$quiet} then
ef10: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..            
ef20: 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 5b  tputs $channel [
ef30: 61 70 70 65 6e 64 41 72 67 73 20 24 6d 65 6d 6f  appendArgs $memo
ef40: 72 79 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20  ry \n]..        
ef50: 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a    }..        }..
ef60: 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 21 24  ..        if {!$
ef70: 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a 20  quiet} then {.. 
ef80: 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24           tputs $
ef90: 63 68 61 6e 6e 65 6c 20 22 2d 2d 2d 2d 20 6d 61  channel "---- ma
efa0: 78 69 6d 75 6d 20 6d 65 6d 6f 72 79 20 69 6e 20  ximum memory in 
efb0: 75 73 65 20 62 79 20 53 51 4c 69 74 65 4d 65 6d  use by SQLiteMem
efc0: 6f 72 79 2e 2e 2e 20 22 0d 0a 20 20 20 20 20 20  ory... "..      
efd0: 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 69    }....        i
efe0: 66 20 7b 5b 63 61 74 63 68 20 7b 6f 62 6a 65 63  f {[catch {objec
eff0: 74 20 69 6e 76 6f 6b 65 20 2d 66 6c 61 67 73 20  t invoke -flags 
f000: 2b 4e 6f 6e 50 75 62 6c 69 63 20 5c 0d 0a 20 20  +NonPublic \..  
f010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 79                Sy
f020: 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65  stem.Data.SQLite
f030: 2e 53 51 4c 69 74 65 4d 65 6d 6f 72 79 20 5c 0d  .SQLiteMemory \.
f040: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
f050: 20 6d 61 78 69 6d 75 6d 42 79 74 65 73 41 6c 6c   maximumBytesAll
f060: 6f 63 61 74 65 64 7d 20 6d 65 6d 6f 72 79 5d 20  ocated} memory] 
f070: 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  == 0} then {..  
f080: 20 20 20 20 20 20 20 20 69 66 20 7b 21 24 71 75          if {!$qu
f090: 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  iet} then {..   
f0a0: 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24           tputs $
f0b0: 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41  channel [appendA
f0c0: 72 67 73 20 24 6d 65 6d 6f 72 79 20 22 20 62 79  rgs $memory " by
f0d0: 74 65 73 5c 6e 22 5d 0d 0a 20 20 20 20 20 20 20  tes\n"]..       
f0e0: 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 20     }..        } 
f0f0: 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20  else {..        
f100: 20 20 73 65 74 20 6d 65 6d 6f 72 79 20 75 6e 6b    set memory unk
f110: 6e 6f 77 6e 0d 0a 0d 0a 20 20 20 20 20 20 20 20  nown....        
f120: 20 20 69 66 20 7b 21 24 71 75 69 65 74 7d 20 74    if {!$quiet} t
f130: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  hen {..         
f140: 20 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65     tputs $channe
f150: 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 24 6d  l [appendArgs $m
f160: 65 6d 6f 72 79 20 5c 6e 5d 0d 0a 20 20 20 20 20  emory \n]..     
f170: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20       }..        
f180: 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20  }..      }....  
f190: 20 20 20 20 69 66 20 7b 21 24 71 75 69 65 74 7d      if {!$quiet}
f1a0: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20   then {..       
f1b0: 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20   tputs $channel 
f1c0: 22 2d 2d 2d 2d 20 63 75 72 72 65 6e 74 20 6d 65  "---- current me
f1d0: 6d 6f 72 79 20 69 6e 20 75 73 65 20 62 79 20 53  mory in use by S
f1e0: 51 4c 69 74 65 2e 2e 2e 20 22 0d 0a 20 20 20 20  QLite... "..    
f1f0: 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20    }....      if 
f200: 7b 5b 63 61 74 63 68 20 7b 6f 62 6a 65 63 74 20  {[catch {object 
f210: 69 6e 76 6f 6b 65 20 2d 66 6c 61 67 73 20 2b 4e  invoke -flags +N
f220: 6f 6e 50 75 62 6c 69 63 20 5c 0d 0a 20 20 20 20  onPublic \..    
f230: 20 20 20 20 20 20 20 20 20 20 53 79 73 74 65 6d            System
f240: 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 55 6e 73  .Data.SQLite.Uns
f250: 61 66 65 4e 61 74 69 76 65 4d 65 74 68 6f 64 73  afeNativeMethods
f260: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   \..            
f270: 20 20 73 71 6c 69 74 65 33 5f 6d 65 6d 6f 72 79    sqlite3_memory
f280: 5f 75 73 65 64 7d 20 6d 65 6d 6f 72 79 5d 20 3d  _used} memory] =
f290: 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  = 0} then {..   
f2a0: 20 20 20 20 20 69 66 20 7b 21 24 71 75 69 65 74       if {!$quiet
f2b0: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..      
f2c0: 20 20 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e      tputs $chann
f2d0: 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 24  el [appendArgs $
f2e0: 6d 65 6d 6f 72 79 20 22 20 62 79 74 65 73 5c 6e  memory " bytes\n
f2f0: 22 5d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20  "]..        }.. 
f300: 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20       } else {.. 
f310: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..      
f320: 20 20 23 20 4e 4f 54 45 3a 20 4d 61 79 62 65 20    # NOTE: Maybe 
f330: 74 68 65 20 53 51 4c 69 74 65 20 63 6f 72 65 20  the SQLite core 
f340: 6c 69 62 72 61 72 79 20 69 73 20 75 6e 61 76 61  library is unava
f350: 69 6c 61 62 6c 65 3f 0d 0a 20 20 20 20 20 20 20  ilable?..       
f360: 20 23 0d 0a 20 20 20 20 20 20 20 20 73 65 74 20   #..        set 
f370: 6d 65 6d 6f 72 79 20 75 6e 6b 6e 6f 77 6e 0d 0a  memory unknown..
f380: 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 21 24  ..        if {!$
f390: 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a 20  quiet} then {.. 
f3a0: 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24           tputs $
f3b0: 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41  channel [appendA
f3c0: 72 67 73 20 24 6d 65 6d 6f 72 79 20 5c 6e 5d 0d  rgs $memory \n].
f3d0: 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20  .        }..    
f3e0: 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 73 65 74    }....      set
f3f0: 20 72 65 73 75 6c 74 20 24 6d 65 6d 6f 72 79 3b   result $memory;
f400: 20 23 20 4e 4f 54 45 3a 20 52 65 74 75 72 6e 20   # NOTE: Return 
f410: 6d 65 6d 6f 72 79 20 69 6e 2d 75 73 65 20 74 6f  memory in-use to
f420: 20 6f 75 72 20 63 61 6c 6c 65 72 2e 0d 0a 0d 0a   our caller.....
f430: 20 20 20 20 20 20 69 66 20 7b 21 24 71 75 69 65        if {!$quie
f440: 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  t} then {..     
f450: 20 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65     tputs $channe
f460: 6c 20 22 2d 2d 2d 2d 20 6d 61 78 69 6d 75 6d 20  l "---- maximum 
f470: 6d 65 6d 6f 72 79 20 69 6e 20 75 73 65 20 62 79  memory in use by
f480: 20 53 51 4c 69 74 65 2e 2e 2e 20 22 0d 0a 20 20   SQLite... "..  
f490: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 69      }....      i
f4a0: 66 20 7b 5b 63 61 74 63 68 20 7b 6f 62 6a 65 63  f {[catch {objec
f4b0: 74 20 69 6e 76 6f 6b 65 20 2d 66 6c 61 67 73 20  t invoke -flags 
f4c0: 2b 4e 6f 6e 50 75 62 6c 69 63 20 5c 0d 0a 20 20  +NonPublic \..  
f4d0: 20 20 20 20 20 20 20 20 20 20 20 20 53 79 73 74              Syst
f4e0: 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 55  em.Data.SQLite.U
f4f0: 6e 73 61 66 65 4e 61 74 69 76 65 4d 65 74 68 6f  nsafeNativeMetho
f500: 64 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  ds \..          
f510: 20 20 20 20 73 71 6c 69 74 65 33 5f 6d 65 6d 6f      sqlite3_memo
f520: 72 79 5f 68 69 67 68 77 61 74 65 72 20 30 7d 20  ry_highwater 0} 
f530: 6d 65 6d 6f 72 79 5d 20 3d 3d 20 30 7d 20 74 68  memory] == 0} th
f540: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 69 66  en {..        if
f550: 20 7b 21 24 71 75 69 65 74 7d 20 74 68 65 6e 20   {!$quiet} then 
f560: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70 75  {..          tpu
f570: 74 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70  ts $channel [app
f580: 65 6e 64 41 72 67 73 20 24 6d 65 6d 6f 72 79 20  endArgs $memory 
f590: 22 20 62 79 74 65 73 5c 6e 22 5d 0d 0a 20 20 20  " bytes\n"]..   
f5a0: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 20       }..      } 
f5b0: 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20  else {..        
f5c0: 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54  #..        # NOT
f5d0: 45 3a 20 4d 61 79 62 65 20 74 68 65 20 53 51 4c  E: Maybe the SQL
f5e0: 69 74 65 20 63 6f 72 65 20 6c 69 62 72 61 72 79  ite core library
f5f0: 20 69 73 20 75 6e 61 76 61 69 6c 61 62 6c 65 3f   is unavailable?
f600: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20  ..        #..   
f610: 20 20 20 20 20 73 65 74 20 6d 65 6d 6f 72 79 20       set memory 
f620: 75 6e 6b 6e 6f 77 6e 0d 0a 0d 0a 20 20 20 20 20  unknown....     
f630: 20 20 20 69 66 20 7b 21 24 71 75 69 65 74 7d 20     if {!$quiet} 
f640: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20  then {..        
f650: 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c    tputs $channel
f660: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 24 6d 65   [appendArgs $me
f670: 6d 6f 72 79 20 5c 6e 5d 0d 0a 20 20 20 20 20 20  mory \n]..      
f680: 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a    }..      }....
f690: 20 20 20 20 20 20 69 66 20 7b 24 63 6f 6c 6c 65        if {$colle
f6a0: 63 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20  ct} then {..    
f6b0: 20 20 20 20 63 6f 6c 6c 65 63 74 47 61 72 62 61      collectGarba
f6c0: 67 65 20 24 63 68 61 6e 6e 65 6c 0d 0a 20 20 20  ge $channel..   
f6d0: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 69 66     }....      if
f6e0: 20 7b 21 24 71 75 69 65 74 7d 20 74 68 65 6e 20   {!$quiet} then 
f6f0: 7b 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73  {..        tputs
f700: 20 24 63 68 61 6e 6e 65 6c 20 22 2d 2d 2d 2d 20   $channel "---- 
f710: 63 75 72 72 65 6e 74 20 6d 65 6d 6f 72 79 20 69  current memory i
f720: 6e 20 75 73 65 20 62 79 20 74 68 65 20 43 4c 52  n use by the CLR
f730: 2e 2e 2e 20 22 0d 0a 20 20 20 20 20 20 7d 0d 0a  ... "..      }..
f740: 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74  ..      if {[cat
f750: 63 68 20 7b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b  ch {object invok
f760: 65 20 47 43 20 47 65 74 54 6f 74 61 6c 4d 65 6d  e GC GetTotalMem
f770: 6f 72 79 20 66 61 6c 73 65 7d 20 6d 65 6d 6f 72  ory false} memor
f780: 79 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d  y] == 0} then {.
f790: 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b 73 74  .        if {[st
f7a0: 72 69 6e 67 20 69 73 20 69 6e 74 65 67 65 72 20  ring is integer 
f7b0: 2d 73 74 72 69 63 74 20 24 6d 65 6d 6f 72 79 5d  -strict $memory]
f7c0: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..      
f7d0: 20 20 20 20 69 66 20 7b 21 24 71 75 69 65 74 7d      if {!$quiet}
f7e0: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20   then {..       
f7f0: 20 20 20 20 20 74 70 75 74 73 20 24 63 68 61 6e       tputs $chan
f800: 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20  nel [appendArgs 
f810: 24 6d 65 6d 6f 72 79 20 22 20 62 79 74 65 73 5c  $memory " bytes\
f820: 6e 22 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 7d  n"]..          }
f830: 0d 0a 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65  ..        } else
f840: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 73 65   {..          se
f850: 74 20 6d 65 6d 6f 72 79 20 69 6e 76 61 6c 69 64  t memory invalid
f860: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66  ....          if
f870: 20 7b 21 24 71 75 69 65 74 7d 20 74 68 65 6e 20   {!$quiet} then 
f880: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 74  {..            t
f890: 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61  puts $channel [a
f8a0: 70 70 65 6e 64 41 72 67 73 20 24 6d 65 6d 6f 72  ppendArgs $memor
f8b0: 79 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 20  y \n]..         
f8c0: 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20   }..        }.. 
f8d0: 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20       } else {.. 
f8e0: 20 20 20 20 20 20 20 73 65 74 20 6d 65 6d 6f 72         set memor
f8f0: 79 20 75 6e 6b 6e 6f 77 6e 0d 0a 0d 0a 20 20 20  y unknown....   
f900: 20 20 20 20 20 69 66 20 7b 21 24 71 75 69 65 74       if {!$quiet
f910: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..      
f920: 20 20 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e      tputs $chann
f930: 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 24  el [appendArgs $
f940: 6d 65 6d 6f 72 79 20 5c 6e 5d 0d 0a 20 20 20 20  memory \n]..    
f950: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a      }..      }..
f960: 0d 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 24  ..      return $
f970: 72 65 73 75 6c 74 0d 0a 20 20 20 20 7d 0d 0a 0c  result..    }...
f980: 0d 0a 20 20 20 20 70 72 6f 63 20 63 68 65 63 6b  ..    proc check
f990: 46 6f 72 53 51 4c 69 74 65 44 69 72 65 63 74 6f  ForSQLiteDirecto
f9a0: 72 69 65 73 20 7b 20 63 68 61 6e 6e 65 6c 20 7b  ries { channel {
f9b0: 72 65 73 65 74 20 66 61 6c 73 65 7d 20 7d 20 7b  reset false} } {
f9c0: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20  ..      #..     
f9d0: 20 23 20 4e 4f 54 45 3a 20 43 68 65 63 6b 20 69   # NOTE: Check i
f9e0: 66 20 74 68 65 20 73 71 6c 69 74 65 33 5f 77 69  f the sqlite3_wi
f9f0: 6e 33 32 5f 73 65 74 5f 64 69 72 65 63 74 6f 72  n32_set_director
fa00: 79 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 61 76  y function is av
fa10: 61 69 6c 61 62 6c 65 2e 0d 0a 20 20 20 20 20 20  ailable...      
fa20: 23 0d 0a 20 20 20 20 20 20 74 70 75 74 73 20 24  #..      tputs $
fa30: 63 68 61 6e 6e 65 6c 20 5c 0d 0a 20 20 20 20 20  channel \..     
fa40: 20 20 20 20 20 22 2d 2d 2d 2d 20 63 68 65 63 6b       "---- check
fa50: 69 6e 67 20 66 6f 72 20 66 75 6e 63 74 69 6f 6e  ing for function
fa60: 20 73 71 6c 69 74 65 33 5f 77 69 6e 33 32 5f 73   sqlite3_win32_s
fa70: 65 74 5f 64 69 72 65 63 74 6f 72 79 2e 2e 2e 20  et_directory... 
fa80: 22 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  "....      #..  
fa90: 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 69 73      # NOTE: This
faa0: 20 63 61 6c 6c 20 74 6f 20 74 68 65 20 73 71 6c   call to the sql
fab0: 69 74 65 33 5f 77 69 6e 33 32 5f 73 65 74 5f 64  ite3_win32_set_d
fac0: 69 72 65 63 74 6f 72 79 20 66 75 6e 63 74 69 6f  irectory functio
fad0: 6e 20 75 73 65 73 20 74 68 65 0d 0a 20 20 20 20  n uses the..    
fae0: 20 20 23 20 20 20 20 20 20 20 69 6e 76 61 6c 69    #       invali
faf0: 64 20 76 61 6c 75 65 20 30 20 66 6f 72 20 74 68  d value 0 for th
fb00: 65 20 66 69 72 73 74 20 61 72 67 75 6d 65 6e 74  e first argument
fb10: 2e 20 20 54 68 69 73 20 63 6f 64 65 20 69 73 20  .  This code is 
fb20: 64 65 73 69 67 6e 65 64 0d 0a 20 20 20 20 20 20  designed..      
fb30: 23 20 20 20 20 20 20 20 74 6f 20 63 68 65 63 6b  #       to check
fb40: 20 69 66 20 63 61 6c 6c 69 6e 67 20 74 68 65 20   if calling the 
fb50: 66 75 6e 63 74 69 6f 6e 20 77 69 6c 6c 20 72 61  function will ra
fb60: 69 73 65 20 61 6e 20 65 78 63 65 70 74 69 6f 6e  ise an exception
fb70: 20 28 69 2e 65 2e 0d 0a 20 20 20 20 20 20 23 20   (i.e...      # 
fb80: 20 20 20 20 20 20 74 68 65 20 61 63 74 75 61 6c        the actual
fb90: 20 72 65 73 75 6c 74 20 6f 66 20 74 68 65 20 66   result of the f
fba0: 75 6e 63 74 69 6f 6e 20 64 6f 65 73 20 6e 6f 74  unction does not
fbb0: 20 6d 61 74 74 65 72 20 61 73 20 6c 6f 6e 67 20   matter as long 
fbc0: 61 73 20 6e 6f 0d 0a 20 20 20 20 20 20 23 20 20  as no..      #  
fbd0: 20 20 20 20 20 64 69 72 65 63 74 6f 72 79 20 69       directory i
fbe0: 73 20 63 68 61 6e 67 65 64 29 2e 0d 0a 20 20 20  s changed)...   
fbf0: 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b     #..      if {
fc00: 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 20  [catch {..      
fc10: 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74 20 69          object i
fc20: 6e 76 6f 6b 65 20 2d 66 6c 61 67 73 20 2b 4e 6f  nvoke -flags +No
fc30: 6e 50 75 62 6c 69 63 20 5c 0d 0a 20 20 20 20 20  nPublic \..     
fc40: 20 20 20 20 20 20 20 20 20 53 79 73 74 65 6d 2e           System.
fc50: 44 61 74 61 2e 53 51 4c 69 74 65 2e 55 6e 73 61  Data.SQLite.Unsa
fc60: 66 65 4e 61 74 69 76 65 4d 65 74 68 6f 64 73 20  feNativeMethods 
fc70: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  \..             
fc80: 20 73 71 6c 69 74 65 33 5f 77 69 6e 33 32 5f 73   sqlite3_win32_s
fc90: 65 74 5f 64 69 72 65 63 74 6f 72 79 20 30 20 6e  et_directory 0 n
fca0: 75 6c 6c 7d 5d 20 3d 3d 20 30 7d 20 74 68 65 6e  ull}] == 0} then
fcb0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20   {..        #.. 
fcc0: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 43         # NOTE: C
fcd0: 61 6c 6c 69 6e 67 20 74 68 65 20 73 71 6c 69 74  alling the sqlit
fce0: 65 33 5f 77 69 6e 33 32 5f 73 65 74 5f 64 69 72  e3_win32_set_dir
fcf0: 65 63 74 6f 72 79 20 66 75 6e 63 74 69 6f 6e 20  ectory function 
fd00: 64 6f 65 73 20 6e 6f 74 0d 0a 20 20 20 20 20 20  does not..      
fd10: 20 20 23 20 20 20 20 20 20 20 63 61 75 73 65 20    #       cause 
fd20: 61 6e 20 65 78 63 65 70 74 69 6f 6e 3b 20 74 68  an exception; th
fd30: 65 72 65 66 6f 72 65 2c 20 69 74 20 6d 75 73 74  erefore, it must
fd40: 20 62 65 20 61 76 61 69 6c 61 62 6c 65 20 28 69   be available (i
fd50: 2e 65 2e 0d 0a 20 20 20 20 20 20 20 20 23 20 20  .e...        #  
fd60: 20 20 20 20 20 65 76 65 6e 20 74 68 6f 75 67 68       even though
fd70: 20 69 74 20 73 68 6f 75 6c 64 20 72 65 74 75 72   it should retur
fd80: 6e 20 61 20 66 61 69 6c 75 72 65 20 72 65 74 75  n a failure retu
fd90: 72 6e 20 63 6f 64 65 20 69 6e 20 74 68 69 73 0d  rn code in this.
fda0: 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20  .        #      
fdb0: 20 63 61 73 65 29 2e 0d 0a 20 20 20 20 20 20 20   case)...       
fdc0: 20 23 0d 0a 20 20 20 20 20 20 20 20 61 64 64 43   #..        addC
fdd0: 6f 6e 73 74 72 61 69 6e 74 20 73 71 6c 69 74 65  onstraint sqlite
fde0: 33 5f 77 69 6e 33 32 5f 73 65 74 5f 64 69 72 65  3_win32_set_dire
fdf0: 63 74 6f 72 79 0d 0a 0d 0a 20 20 20 20 20 20 20  ctory....       
fe00: 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20   tputs $channel 
fe10: 79 65 73 5c 6e 0d 0a 0d 0a 20 20 20 20 20 20 20  yes\n....       
fe20: 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f   #..        # NO
fe30: 54 45 3a 20 44 6f 65 73 20 6f 75 72 20 63 61 6c  TE: Does our cal
fe40: 6c 65 72 20 77 61 6e 74 20 74 6f 20 72 65 73 65  ler want to rese
fe50: 74 20 74 68 65 20 64 69 72 65 63 74 6f 72 69 65  t the directorie
fe60: 73 3f 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20  s?..        #.. 
fe70: 20 20 20 20 20 20 20 69 66 20 7b 24 72 65 73 65         if {$rese
fe80: 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  t} then {..     
fe90: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..        
fea0: 20 20 23 20 4e 4f 54 45 3a 20 4e 6f 77 20 6d 61    # NOTE: Now ma
feb0: 6b 65 20 73 75 72 65 20 74 68 65 20 64 61 74 61  ke sure the data
fec0: 62 61 73 65 20 61 6e 64 20 74 65 6d 70 6f 72 61  base and tempora
fed0: 72 79 20 64 69 72 65 63 74 6f 72 69 65 73 20 61  ry directories a
fee0: 72 65 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20  re..          # 
fef0: 20 20 20 20 20 20 72 65 73 65 74 20 74 68 65 69        reset thei
ff00: 72 20 64 65 66 61 75 6c 74 20 76 61 6c 75 65 73  r default values
ff10: 2c 20 77 68 69 63 68 20 73 68 6f 75 6c 64 20 62  , which should b
ff20: 65 20 6e 75 6c 6c 20 66 6f 72 20 62 6f 74 68 2e  e null for both.
ff30: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 20 20  ..          #   
ff40: 20 20 20 20 53 69 6e 63 65 20 74 68 65 20 73 71      Since the sq
ff50: 6c 69 74 65 33 5f 77 69 6e 33 32 5f 73 65 74 5f  lite3_win32_set_
ff60: 64 69 72 65 63 74 6f 72 79 20 66 75 6e 63 74 69  directory functi
ff70: 6f 6e 20 69 73 20 61 76 61 69 6c 61 62 6c 65 2c  on is available,
ff80: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 20 20  ..          #   
ff90: 20 20 20 20 75 73 65 20 69 74 2e 0d 0a 20 20 20      use it...   
ffa0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..      
ffb0: 20 20 20 20 66 6f 72 20 7b 73 65 74 20 69 6e 64      for {set ind
ffc0: 65 78 20 31 7d 20 7b 24 69 6e 64 65 78 20 3c 20  ex 1} {$index < 
ffd0: 33 7d 20 7b 69 6e 63 72 20 69 6e 64 65 78 7d 20  3} {incr index} 
ffe0: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 69  {..            i
fff0: 66 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20  f {[catch {..   
10000 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
10010 20 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d   object invoke -
10020 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 63  flags +NonPublic
10030 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   \..            
10040 20 20 20 20 20 20 20 20 53 79 73 74 65 6d 2e 44          System.D
10050 61 74 61 2e 53 51 4c 69 74 65 2e 55 6e 73 61 66  ata.SQLite.Unsaf
10060 65 4e 61 74 69 76 65 4d 65 74 68 6f 64 73 20 5c  eNativeMethods \
10070 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
10080 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 77 69        sqlite3_wi
10090 6e 33 32 5f 73 65 74 5f 64 69 72 65 63 74 6f 72  n32_set_director
100a0 79 20 24 69 6e 64 65 78 20 6e 75 6c 6c 7d 20 5c  y $index null} \
100b0 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
100c0 20 20 20 20 20 20 72 65 73 75 6c 74 5d 20 3d 3d        result] ==
100d0 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20   0} then {..    
100e0 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20            tputs 
100f0 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64  $channel [append
10100 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20  Args \..        
10110 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20            "---- 
10120 63 61 6c 6c 20 73 71 6c 69 74 65 33 5f 77 69 6e  call sqlite3_win
10130 33 32 5f 73 65 74 5f 64 69 72 65 63 74 6f 72 79  32_set_directory
10140 28 22 20 24 69 6e 64 65 78 20 5c 0d 0a 20 20 20  (" $index \..   
10150 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22                 "
10160 2c 20 6e 75 6c 6c 29 2e 2e 2e 20 6f 6b 3a 20 22  , null)... ok: "
10170 20 24 72 65 73 75 6c 74 20 5c 6e 5d 0d 0a 20 20   $result \n]..  
10180 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65            } else
10190 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..            
101a0 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c    tputs $channel
101b0 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a   [appendArgs \..
101c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
101d0 20 20 22 2d 2d 2d 2d 20 63 61 6c 6c 20 73 71 6c    "---- call sql
101e0 69 74 65 33 5f 77 69 6e 33 32 5f 73 65 74 5f 64  ite3_win32_set_d
101f0 69 72 65 63 74 6f 72 79 28 22 20 24 69 6e 64 65  irectory(" $inde
10200 78 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20  x \..           
10210 20 20 20 20 20 20 20 22 2c 20 6e 75 6c 6c 29 2e         ", null).
10220 2e 2e 20 65 72 72 6f 72 3a 20 22 20 5c 6e 5c 74  .. error: " \n\t
10230 20 24 72 65 73 75 6c 74 20 5c 6e 5d 0d 0a 20 20   $result \n]..  
10240 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20            }..   
10250 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20         }..      
10260 20 20 7d 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73    }..      } els
10270 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 74 70 75  e {..        tpu
10280 74 73 20 24 63 68 61 6e 6e 65 6c 20 6e 6f 5c 6e  ts $channel no\n
10290 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20  ....        #.. 
102a0 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 44         # NOTE: D
102b0 6f 65 73 20 6f 75 72 20 63 61 6c 6c 65 72 20 77  oes our caller w
102c0 61 6e 74 20 74 6f 20 72 65 73 65 74 20 74 68 65  ant to reset the
102d0 20 64 69 72 65 63 74 6f 72 69 65 73 3f 20 20 54   directories?  T
102e0 68 69 73 20 63 61 6e 20 6f 6e 6c 79 0d 0a 20 20  his can only..  
102f0 20 20 20 20 20 20 23 20 20 20 20 20 20 20 62 65        #       be
10300 20 70 65 72 66 6f 72 6d 65 64 20 69 66 20 53 51   performed if SQ
10310 4c 69 74 65 20 69 73 20 6c 6f 61 64 65 64 20 61  Lite is loaded a
10320 6e 64 20 72 65 61 64 79 20 66 6f 72 20 75 73 65  nd ready for use
10330 20 62 79 20 74 68 65 20 74 65 73 74 0d 0a 20 20   by the test..  
10340 20 20 20 20 20 20 23 20 20 20 20 20 20 20 73 75        #       su
10350 69 74 65 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d  ite...        #.
10360 0a 20 20 20 20 20 20 20 20 69 66 20 7b 24 72 65  .        if {$re
10370 73 65 74 20 26 26 20 5b 69 73 53 51 4c 69 74 65  set && [isSQLite
10380 52 65 61 64 79 5d 7d 20 74 68 65 6e 20 7b 0d 0a  Ready]} then {..
10390 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20            #..   
103a0 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 4e         # NOTE: N
103b0 6f 77 20 6d 61 6b 65 20 73 75 72 65 20 74 68 65  ow make sure the
103c0 20 64 61 74 61 62 61 73 65 20 61 6e 64 20 74 65   database and te
103d0 6d 70 6f 72 61 72 79 20 64 69 72 65 63 74 6f 72  mporary director
103e0 69 65 73 20 61 72 65 0d 0a 20 20 20 20 20 20 20  ies are..       
103f0 20 20 20 23 20 20 20 20 20 20 20 72 65 73 65 74     #       reset
10400 20 74 68 65 69 72 20 64 65 66 61 75 6c 74 20 76   their default v
10410 61 6c 75 65 73 2c 20 77 68 69 63 68 20 73 68 6f  alues, which sho
10420 75 6c 64 20 62 65 20 6e 75 6c 6c 20 66 6f 72 20  uld be null for 
10430 62 6f 74 68 2e 0d 0a 20 20 20 20 20 20 20 20 20  both...         
10440 20 23 20 20 20 20 20 20 20 53 69 6e 63 65 20 74   #       Since t
10450 68 65 20 73 71 6c 69 74 65 33 5f 77 69 6e 33 32  he sqlite3_win32
10460 5f 73 65 74 5f 64 69 72 65 63 74 6f 72 79 20 66  _set_directory f
10470 75 6e 63 74 69 6f 6e 20 64 6f 65 73 20 6e 6f 74  unction does not
10480 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 20 20  ..          #   
10490 20 20 20 20 61 70 70 65 61 72 20 74 6f 20 62 65      appear to be
104a0 20 61 76 61 69 6c 61 62 6c 65 2c 20 75 73 65 20   available, use 
104b0 74 68 65 20 61 73 73 6f 63 69 61 74 65 64 20 50  the associated P
104c0 52 41 47 4d 41 20 63 6f 6d 6d 61 6e 64 73 0d 0a  RAGMA commands..
104d0 20 20 20 20 20 20 20 20 20 20 23 20 20 20 20 20            #     
104e0 20 20 69 6e 73 74 65 61 64 2e 0d 0a 20 20 20 20    instead...    
104f0 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
10500 20 20 20 66 6f 72 65 61 63 68 20 64 69 72 65 63     foreach direc
10510 74 6f 72 79 20 5b 6c 69 73 74 20 64 61 74 61 5f  tory [list data_
10520 73 74 6f 72 65 5f 64 69 72 65 63 74 6f 72 79 20  store_directory 
10530 74 65 6d 70 5f 73 74 6f 72 65 5f 64 69 72 65 63  temp_store_direc
10540 74 6f 72 79 5d 20 7b 0d 0a 20 20 20 20 20 20 20  tory] {..       
10550 20 20 20 20 20 73 65 74 20 73 71 6c 20 5b 61 70       set sql [ap
10560 70 65 6e 64 41 72 67 73 20 22 50 52 41 47 4d 41  pendArgs "PRAGMA
10570 20 22 20 24 64 69 72 65 63 74 6f 72 79 20 22 20   " $directory " 
10580 3d 20 5c 22 5c 22 3b 22 5d 0d 0a 0d 0a 20 20 20  = \"\";"]....   
10590 20 20 20 20 20 20 20 20 20 69 66 20 7b 5b 63 61           if {[ca
105a0 74 63 68 20 7b 65 78 65 63 75 74 65 53 71 6c 20  tch {executeSql 
105b0 24 73 71 6c 7d 20 72 65 73 75 6c 74 5d 20 3d 3d  $sql} result] ==
105c0 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20   0} then {..    
105d0 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20            tputs 
105e0 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64  $channel [append
105f0 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20  Args \..        
10600 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20            "---- 
10610 65 78 65 63 75 74 65 20 50 52 41 47 4d 41 20 22  execute PRAGMA "
10620 20 24 64 69 72 65 63 74 6f 72 79 20 22 2e 2e 2e   $directory "...
10630 20 6f 6b 3a 20 5c 22 22 20 5c 0d 0a 20 20 20 20   ok: \"" \..    
10640 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 72                $r
10650 65 73 75 6c 74 20 5c 22 5c 6e 5d 0d 0a 20 20 20  esult \"\n]..   
10660 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20           } else 
10670 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  {..             
10680 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20   tputs $channel 
10690 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20  [appendArgs \.. 
106a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
106b0 20 22 2d 2d 2d 2d 20 65 78 65 63 75 74 65 20 50   "---- execute P
106c0 52 41 47 4d 41 20 22 20 24 64 69 72 65 63 74 6f  RAGMA " $directo
106d0 72 79 20 22 2e 2e 2e 20 65 72 72 6f 72 3a 20 22  ry "... error: "
106e0 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   \..            
106f0 20 20 20 20 20 20 5c 6e 5c 74 20 24 72 65 73 75        \n\t $resu
10700 6c 74 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20  lt \n]..        
10710 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20      }..         
10720 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20   }..        }.. 
10730 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20       }....      
10740 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a  #..      # NOTE:
10750 20 46 69 6e 61 6c 6c 79 2c 20 73 68 6f 77 20 74   Finally, show t
10760 68 65 20 63 75 72 72 65 6e 74 20 76 61 6c 75 65  he current value
10770 20 6f 66 20 74 68 65 20 64 61 74 61 62 61 73 65   of the database
10780 20 61 6e 64 20 74 65 6d 70 6f 72 61 72 79 0d 0a   and temporary..
10790 20 20 20 20 20 20 23 20 20 20 20 20 20 20 64 69        #       di
107a0 72 65 63 74 6f 72 69 65 73 2e 20 20 54 68 69 73  rectories.  This
107b0 20 63 61 6e 20 6f 6e 6c 79 20 62 65 20 70 65 72   can only be per
107c0 66 6f 72 6d 65 64 20 69 66 20 53 51 4c 69 74 65  formed if SQLite
107d0 20 69 73 20 6c 6f 61 64 65 64 0d 0a 20 20 20 20   is loaded..    
107e0 20 20 23 20 20 20 20 20 20 20 61 6e 64 20 72 65    #       and re
107f0 61 64 79 20 66 6f 72 20 75 73 65 20 62 79 20 74  ady for use by t
10800 68 65 20 74 65 73 74 20 73 75 69 74 65 2e 0d 0a  he test suite...
10810 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69        #..      i
10820 66 20 7b 5b 69 73 53 51 4c 69 74 65 52 65 61 64  f {[isSQLiteRead
10830 79 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20  y]} then {..    
10840 20 20 20 20 66 6f 72 65 61 63 68 20 64 69 72 65      foreach dire
10850 63 74 6f 72 79 20 5b 6c 69 73 74 20 64 61 74 61  ctory [list data
10860 5f 73 74 6f 72 65 5f 64 69 72 65 63 74 6f 72 79  _store_directory
10870 20 74 65 6d 70 5f 73 74 6f 72 65 5f 64 69 72 65   temp_store_dire
10880 63 74 6f 72 79 5d 20 7b 0d 0a 20 20 20 20 20 20  ctory] {..      
10890 20 20 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e      tputs $chann
108a0 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 22  el [appendArgs "
108b0 2d 2d 2d 2d 20 63 68 65 63 6b 69 6e 67 20 22 20  ---- checking " 
108c0 24 64 69 72 65 63 74 6f 72 79 20 22 2e 2e 2e 20  $directory "... 
108d0 22 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20  "]....          
108e0 73 65 74 20 73 71 6c 20 5b 61 70 70 65 6e 64 41  set sql [appendA
108f0 72 67 73 20 22 50 52 41 47 4d 41 20 22 20 24 64  rgs "PRAGMA " $d
10900 69 72 65 63 74 6f 72 79 20 5c 3b 5d 0d 0a 0d 0a  irectory \;]....
10910 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 5b 63            if {[c
10920 61 74 63 68 20 7b 65 78 65 63 75 74 65 53 71 6c  atch {executeSql
10930 20 24 73 71 6c 20 73 63 61 6c 61 72 7d 20 72 65   $sql scalar} re
10940 73 75 6c 74 5d 20 3d 3d 20 30 7d 20 74 68 65 6e  sult] == 0} then
10950 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..            
10960 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 5b  tputs $channel [
10970 61 70 70 65 6e 64 41 72 67 73 20 22 6f 6b 3a 20  appendArgs "ok: 
10980 5c 22 22 20 24 72 65 73 75 6c 74 20 5c 22 5c 6e  \"" $result \"\n
10990 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 20 65  ]..          } e
109a0 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  lse {..         
109b0 20 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65     tputs $channe
109c0 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 22 65  l [appendArgs "e
109d0 72 72 6f 72 3a 20 22 20 5c 6e 5c 74 20 24 72 65  rror: " \n\t $re
109e0 73 75 6c 74 20 5c 6e 5d 0d 0a 20 20 20 20 20 20  sult \n]..      
109f0 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d      }..        }
10a00 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d  ..      }..    }
10a10 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 6c 6f  .....    proc lo
10a20 61 64 53 51 4c 69 74 65 54 65 73 74 53 65 74 74  adSQLiteTestSett
10a30 69 6e 67 73 20 7b 20 63 68 61 6e 6e 65 6c 20 7b  ings { channel {
10a40 73 75 66 66 69 78 20 22 22 7d 20 7b 71 75 69 65  suffix ""} {quie
10a50 74 20 66 61 6c 73 65 7d 20 7d 20 7b 0d 0a 20 20  t false} } {..  
10a60 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e      #..      # N
10a70 4f 54 45 3a 20 53 6b 69 70 20 6c 6f 61 64 69 6e  OTE: Skip loadin
10a80 67 20 74 68 65 20 73 65 74 74 69 6e 67 73 20 69  g the settings i
10a90 66 20 74 68 65 69 72 20 75 73 61 67 65 20 68 61  f their usage ha
10aa0 73 20 62 65 65 6e 20 64 69 73 61 62 6c 65 64 2e  s been disabled.
10ab0 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20  ..      #..     
10ac0 20 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73   if {![info exis
10ad0 74 73 20 3a 3a 6e 6f 28 73 71 6c 69 74 65 54 65  ts ::no(sqliteTe
10ae0 73 74 53 65 74 74 69 6e 67 73 29 5d 7d 20 74 68  stSettings)]} th
10af0 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d  en {..        #.
10b00 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a  .        # NOTE:
10b10 20 4c 6f 61 64 20 63 75 73 74 6f 6d 20 70 65 72   Load custom per
10b20 2d 75 73 65 72 20 61 6e 64 2f 6f 72 20 70 65 72  -user and/or per
10b30 2d 68 6f 73 74 20 74 65 73 74 20 73 65 74 74 69  -host test setti
10b40 6e 67 73 20 6e 6f 77 2e 0d 0a 20 20 20 20 20 20  ngs now...      
10b50 20 20 23 0d 0a 20 20 20 20 20 20 20 20 69 66 20    #..        if 
10b60 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a  {[info exists ::
10b70 74 63 6c 5f 70 6c 61 74 66 6f 72 6d 28 75 73 65  tcl_platform(use
10b80 72 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  r)]} then {..   
10b90 20 20 20 20 20 20 20 73 65 74 20 75 73 65 72 53         set userS
10ba0 65 74 74 69 6e 67 73 46 69 6c 65 4e 61 6d 65 20  ettingsFileName 
10bb0 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 67 65 74 43  [file join [getC
10bc0 6f 6d 6d 6f 6e 44 69 72 65 63 74 6f 72 79 5d 20  ommonDirectory] 
10bd0 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  \..             
10be0 20 5b 61 70 70 65 6e 64 41 72 67 73 20 73 65 74   [appendArgs set
10bf0 74 69 6e 67 73 20 24 73 75 66 66 69 78 20 2e 20  tings $suffix . 
10c00 24 3a 3a 74 63 6c 5f 70 6c 61 74 66 6f 72 6d 28  $::tcl_platform(
10c10 75 73 65 72 29 20 2e 65 61 67 6c 65 5d 5d 0d 0a  user) .eagle]]..
10c20 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7b  ..          if {
10c30 5b 66 69 6c 65 20 65 78 69 73 74 73 20 24 75 73  [file exists $us
10c40 65 72 53 65 74 74 69 6e 67 73 46 69 6c 65 4e 61  erSettingsFileNa
10c50 6d 65 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  me]} then {..   
10c60 20 20 20 20 20 20 20 20 20 69 66 20 7b 21 24 71           if {!$q
10c70 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  uiet} then {..  
10c80 20 20 20 20 20 20 20 20 20 20 20 20 74 70 75 74              tput
10c90 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65  s $channel [appe
10ca0 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20  ndArgs \..      
10cb0 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d              "---
10cc0 2d 20 6c 6f 61 64 69 6e 67 20 70 65 72 2d 75 73  - loading per-us
10cd0 65 72 20 74 65 73 74 20 73 65 74 74 69 6e 67 73  er test settings
10ce0 20 66 69 6c 65 20 5c 22 22 20 5c 0d 0a 20 20 20   file \"" \..   
10cf0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24                 $
10d00 75 73 65 72 53 65 74 74 69 6e 67 73 46 69 6c 65  userSettingsFile
10d10 4e 61 6d 65 20 5c 22 2e 2e 2e 5c 6e 5d 0d 0a 20  Name \"...\n].. 
10d20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a             }....
10d30 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 7b              if {
10d40 5b 63 61 74 63 68 20 7b 75 70 6c 65 76 65 6c 20  [catch {uplevel 
10d50 31 20 5b 6c 69 73 74 20 73 6f 75 72 63 65 20 24  1 [list source $
10d60 75 73 65 72 53 65 74 74 69 6e 67 73 46 69 6c 65  userSettingsFile
10d70 4e 61 6d 65 5d 7d 20 5c 0d 0a 20 20 20 20 20 20  Name]} \..      
10d80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 72                er
10d90 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  ror]} then {..  
10da0 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 7b              if {
10db0 21 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d  !$quiet} then {.
10dc0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
10dd0 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20   tputs $channel 
10de0 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20  [appendArgs \.. 
10df0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
10e00 20 20 20 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e 47     "==== WARNING
10e10 3a 20 66 61 69 6c 65 64 20 74 6f 20 6c 6f 61 64  : failed to load
10e20 20 70 65 72 2d 75 73 65 72 20 73 65 74 74 69 6e   per-user settin
10e30 67 73 20 66 69 6c 65 20 5c 22 22 20 5c 0d 0a 20  gs file \"" \.. 
10e40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
10e50 20 20 20 24 75 73 65 72 53 65 74 74 69 6e 67 73     $userSettings
10e60 46 69 6c 65 4e 61 6d 65 20 22 5c 22 2c 20 65 72  FileName "\", er
10e70 72 6f 72 3a 20 22 20 5c 6e 5c 74 20 24 65 72 72  ror: " \n\t $err
10e80 6f 72 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20  or \n]..        
10e90 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20        }..       
10ea0 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20       }..        
10eb0 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20    } else {..    
10ec0 20 20 20 20 20 20 20 20 69 66 20 7b 21 24 71 75          if {!$qu
10ed0 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  iet} then {..   
10ee0 20 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73             tputs
10ef0 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e   $channel [appen
10f00 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20  dArgs \..       
10f10 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d             "----
10f20 20 73 6b 69 70 70 65 64 20 6c 6f 61 64 69 6e 67   skipped loading
10f30 20 70 65 72 2d 75 73 65 72 20 74 65 73 74 20 73   per-user test s
10f40 65 74 74 69 6e 67 73 20 66 69 6c 65 20 5c 22 22  ettings file \""
10f50 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   \..            
10f60 20 20 20 20 20 20 24 75 73 65 72 53 65 74 74 69        $userSetti
10f70 6e 67 73 46 69 6c 65 4e 61 6d 65 20 22 5c 22 2c  ngsFileName "\",
10f80 20 69 74 20 64 6f 65 73 20 6e 6f 74 20 65 78 69   it does not exi
10f90 73 74 5c 6e 22 5d 0d 0a 20 20 20 20 20 20 20 20  st\n"]..        
10fa0 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20      }..         
10fb0 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d   }..        }...
10fc0 0a 20 20 20 20 20 20 20 20 23 23 23 23 23 23 23  .        #######
10fd0 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
10fe0 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
10ff0 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
11000 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
11010 0d 0a 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b  ....        if {
11020 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 74  [info exists ::t
11030 63 6c 5f 70 6c 61 74 66 6f 72 6d 28 68 6f 73 74  cl_platform(host
11040 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20  )]} then {..    
11050 20 20 20 20 20 20 73 65 74 20 68 6f 73 74 53 65        set hostSe
11060 74 74 69 6e 67 73 46 69 6c 65 4e 61 6d 65 20 5b  ttingsFileName [
11070 66 69 6c 65 20 6a 6f 69 6e 20 5b 67 65 74 43 6f  file join [getCo
11080 6d 6d 6f 6e 44 69 72 65 63 74 6f 72 79 5d 20 5c  mmonDirectory] \
11090 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
110a0 5b 61 70 70 65 6e 64 41 72 67 73 20 73 65 74 74  [appendArgs sett
110b0 69 6e 67 73 20 24 73 75 66 66 69 78 20 2e 20 24  ings $suffix . $
110c0 3a 3a 74 63 6c 5f 70 6c 61 74 66 6f 72 6d 28 68  ::tcl_platform(h
110d0 6f 73 74 29 20 2e 65 61 67 6c 65 5d 5d 0d 0a 0d  ost) .eagle]]...
110e0 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 5b  .          if {[
110f0 66 69 6c 65 20 65 78 69 73 74 73 20 24 68 6f 73  file exists $hos
11100 74 53 65 74 74 69 6e 67 73 46 69 6c 65 4e 61 6d  tSettingsFileNam
11110 65 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20  e]} then {..    
11120 20 20 20 20 20 20 20 20 69 66 20 7b 21 24 71 75          if {!$qu
11130 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  iet} then {..   
11140 20 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73             tputs
11150 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e   $channel [appen
11160 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20  dArgs \..       
11170 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d             "----
11180 20 6c 6f 61 64 69 6e 67 20 70 65 72 2d 68 6f 73   loading per-hos
11190 74 20 74 65 73 74 20 73 65 74 74 69 6e 67 73 20  t test settings 
111a0 66 69 6c 65 20 5c 22 22 20 5c 0d 0a 20 20 20 20  file \"" \..    
111b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 68                $h
111c0 6f 73 74 53 65 74 74 69 6e 67 73 46 69 6c 65 4e  ostSettingsFileN
111d0 61 6d 65 20 5c 22 2e 2e 2e 5c 6e 5d 0d 0a 20 20  ame \"...\n]..  
111e0 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20            }.... 
111f0 20 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 5b             if {[
11200 63 61 74 63 68 20 7b 75 70 6c 65 76 65 6c 20 31  catch {uplevel 1
11210 20 5b 6c 69 73 74 20 73 6f 75 72 63 65 20 24 68   [list source $h
11220 6f 73 74 53 65 74 74 69 6e 67 73 46 69 6c 65 4e  ostSettingsFileN
11230 61 6d 65 5d 7d 20 5c 0d 0a 20 20 20 20 20 20 20  ame]} \..       
11240 20 20 20 20 20 20 20 20 20 20 20 20 20 65 72 72               err
11250 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  or]} then {..   
11260 20 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 21             if {!
11270 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a  $quiet} then {..
11280 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
11290 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 5b  tputs $channel [
112a0 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20  appendArgs \..  
112b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
112c0 20 20 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e 47 3a    "==== WARNING:
112d0 20 66 61 69 6c 65 64 20 74 6f 20 6c 6f 61 64 20   failed to load 
112e0 70 65 72 2d 68 6f 73 74 20 73 65 74 74 69 6e 67  per-host setting
112f0 73 20 66 69 6c 65 20 5c 22 22 20 5c 0d 0a 20 20  s file \"" \..  
11300 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
11310 20 20 24 68 6f 73 74 53 65 74 74 69 6e 67 73 46    $hostSettingsF
11320 69 6c 65 4e 61 6d 65 20 22 5c 22 2c 20 65 72 72  ileName "\", err
11330 6f 72 3a 20 22 20 5c 6e 5c 74 20 24 65 72 72 6f  or: " \n\t $erro
11340 72 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 20  r \n]..         
11350 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20       }..        
11360 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20      }..         
11370 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20   } else {..     
11380 20 20 20 20 20 20 20 69 66 20 7b 21 24 71 75 69         if {!$qui
11390 65 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20  et} then {..    
113a0 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20            tputs 
113b0 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64  $channel [append
113c0 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20  Args \..        
113d0 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20            "---- 
113e0 73 6b 69 70 70 65 64 20 6c 6f 61 64 69 6e 67 20  skipped loading 
113f0 70 65 72 2d 68 6f 73 74 20 74 65 73 74 20 73 65  per-host test se
11400 74 74 69 6e 67 73 20 66 69 6c 65 20 5c 22 22 20  ttings file \"" 
11410 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  \..             
11420 20 20 20 20 20 24 68 6f 73 74 53 65 74 74 69 6e       $hostSettin
11430 67 73 46 69 6c 65 4e 61 6d 65 20 22 5c 22 2c 20  gsFileName "\", 
11440 69 74 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73  it does not exis
11450 74 5c 6e 22 5d 0d 0a 20 20 20 20 20 20 20 20 20  t\n"]..         
11460 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20     }..          
11470 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20  }..        }..  
11480 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d      }..    }....
11490 0a 20 20 20 20 70 72 6f 63 20 72 75 6e 53 51 4c  .    proc runSQL
114a0 69 74 65 54 65 73 74 50 72 6f 6c 6f 67 75 65 20  iteTestPrologue 
114b0 7b 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20  {} {..      #.. 
114c0 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 6b 69       # NOTE: Ski
114d0 70 20 72 75 6e 6e 69 6e 67 20 6f 75 72 20 63 75  p running our cu
114e0 73 74 6f 6d 20 70 72 6f 6c 6f 67 75 65 20 69 66  stom prologue if
114f0 20 74 68 65 20 6d 61 69 6e 20 6f 6e 65 20 68 61   the main one ha
11500 73 20 62 65 65 6e 0d 0a 20 20 20 20 20 20 23 20  s been..      # 
11510 20 20 20 20 20 20 73 6b 69 70 70 65 64 2e 0d 0a        skipped...
11520 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69        #..      i
11530 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73  f {![info exists
11540 20 3a 3a 6e 6f 28 70 72 6f 6c 6f 67 75 65 2e 65   ::no(prologue.e
11550 61 67 6c 65 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a  agle)]} then {..
11560 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..     
11570 20 20 20 23 20 4e 4f 54 45 3a 20 4c 6f 61 64 20     # NOTE: Load 
11580 74 68 65 20 22 62 65 66 6f 72 65 2d 63 6f 6e 73  the "before-cons
11590 74 72 61 69 6e 74 73 22 20 63 75 73 74 6f 6d 20  traints" custom 
115a0 70 65 72 2d 75 73 65 72 20 61 6e 64 2f 6f 72 20  per-user and/or 
115b0 70 65 72 2d 68 6f 73 74 0d 0a 20 20 20 20 20 20  per-host..      
115c0 20 20 23 20 20 20 20 20 20 20 74 65 73 74 20 73    #       test s
115d0 65 74 74 69 6e 67 73 20 6e 6f 77 2e 0d 0a 20 20  ettings now...  
115e0 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
115f0 20 75 70 6c 65 76 65 6c 20 31 20 5b 6c 69 73 74   uplevel 1 [list
11600 20 6c 6f 61 64 53 51 4c 69 74 65 54 65 73 74 53   loadSQLiteTestS
11610 65 74 74 69 6e 67 73 20 24 3a 3a 74 65 73 74 5f  ettings $::test_
11620 63 68 61 6e 6e 65 6c 20 2e 62 65 66 6f 72 65 5d  channel .before]
11630 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20  ....        #.. 
11640 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53         # NOTE: S
11650 6b 69 70 20 61 6c 6c 20 53 79 73 74 65 6d 2e 44  kip all System.D
11660 61 74 61 2e 53 51 4c 69 74 65 20 72 65 6c 61 74  ata.SQLite relat
11670 65 64 20 66 69 6c 65 20 68 61 6e 64 6c 69 6e 67  ed file handling
11680 20 28 64 65 6c 65 74 69 6e 67 2c 0d 0a 20 20 20   (deleting,..   
11690 20 20 20 20 20 23 20 20 20 20 20 20 20 63 6f 70       #       cop
116a0 79 69 6e 67 2c 20 61 6e 64 20 6c 6f 61 64 69 6e  ying, and loadin
116b0 67 29 20 69 66 20 77 65 20 61 72 65 20 73 6f 20  g) if we are so 
116c0 69 6e 73 74 72 75 63 74 65 64 2e 0d 0a 20 20 20  instructed...   
116d0 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..        
116e0 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74  if {![info exist
116f0 73 20 3a 3a 6e 6f 28 73 71 6c 69 74 65 46 69 6c  s ::no(sqliteFil
11700 65 73 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  es)]} then {..  
11710 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..     
11720 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 6b 69       # NOTE: Ski
11730 70 20 74 72 79 69 6e 67 20 74 6f 20 64 65 6c 65  p trying to dele
11740 74 65 20 61 6e 79 20 66 69 6c 65 73 20 69 66 20  te any files if 
11750 77 65 20 61 72 65 20 73 6f 20 69 6e 73 74 72 75  we are so instru
11760 63 74 65 64 2e 0d 0a 20 20 20 20 20 20 20 20 20  cted...         
11770 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66   #..          if
11780 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20   {![info exists 
11790 3a 3a 6e 6f 28 64 65 6c 65 74 65 53 71 6c 69 74  ::no(deleteSqlit
117a0 65 46 69 6c 65 73 29 5d 7d 20 74 68 65 6e 20 7b  eFiles)]} then {
117b0 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 72  ..            tr
117c0 79 44 65 6c 65 74 65 41 73 73 65 6d 62 6c 79 20  yDeleteAssembly 
117d0 73 71 6c 69 74 65 33 2e 64 6c 6c 0d 0a 20 20 20  sqlite3.dll..   
117e0 20 20 20 20 20 20 20 20 20 72 65 6d 6f 76 65 43           removeC
117f0 6f 6e 73 74 72 61 69 6e 74 20 66 69 6c 65 5f 73  onstraint file_s
11800 71 6c 69 74 65 33 2e 64 6c 6c 0d 0a 0d 0a 20 20  qlite3.dll....  
11810 20 20 20 20 20 20 20 20 20 20 74 72 79 44 65 6c            tryDel
11820 65 74 65 41 73 73 65 6d 62 6c 79 20 53 51 4c 69  eteAssembly SQLi
11830 74 65 2e 49 6e 74 65 72 6f 70 2e 64 6c 6c 0d 0a  te.Interop.dll..
11840 20 20 20 20 20 20 20 20 20 20 20 20 72 65 6d 6f              remo
11850 76 65 43 6f 6e 73 74 72 61 69 6e 74 20 66 69 6c  veConstraint fil
11860 65 5f 53 51 4c 69 74 65 2e 49 6e 74 65 72 6f 70  e_SQLite.Interop
11870 2e 64 6c 6c 0d 0a 0d 0a 20 20 20 20 20 20 20 20  .dll....        
11880 20 20 20 20 74 72 79 44 65 6c 65 74 65 41 73 73      tryDeleteAss
11890 65 6d 62 6c 79 20 53 79 73 74 65 6d 2e 44 61 74  embly System.Dat
118a0 61 2e 53 51 4c 69 74 65 2e 64 6c 6c 0d 0a 20 20  a.SQLite.dll..  
118b0 20 20 20 20 20 20 20 20 20 20 72 65 6d 6f 76 65            remove
118c0 43 6f 6e 73 74 72 61 69 6e 74 20 66 69 6c 65 5f  Constraint file_
118d0 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69  System.Data.SQLi
118e0 74 65 2e 64 6c 6c 0d 0a 0d 0a 20 20 20 20 20 20  te.dll....      
118f0 20 20 20 20 20 20 74 72 79 44 65 6c 65 74 65 41        tryDeleteA
11900 73 73 65 6d 62 6c 79 20 53 79 73 74 65 6d 2e 44  ssembly System.D
11910 61 74 61 2e 53 51 4c 69 74 65 2e 4c 69 6e 71 2e  ata.SQLite.Linq.
11920 64 6c 6c 0d 0a 20 20 20 20 20 20 20 20 20 20 20  dll..           
11930 20 72 65 6d 6f 76 65 43 6f 6e 73 74 72 61 69 6e   removeConstrain
11940 74 20 66 69 6c 65 5f 53 79 73 74 65 6d 2e 44 61  t file_System.Da
11950 74 61 2e 53 51 4c 69 74 65 2e 4c 69 6e 71 2e 64  ta.SQLite.Linq.d
11960 6c 6c 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d  ll..          }.
11970 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a  ...          #..
11980 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45            # NOTE
11990 3a 20 43 68 65 63 6b 20 66 6f 72 20 74 68 65 20  : Check for the 
119a0 22 61 75 74 6f 53 65 6c 65 63 74 22 20 72 75 6e  "autoSelect" run
119b0 74 69 6d 65 20 6f 70 74 69 6f 6e 2e 20 20 49 66  time option.  If
119c0 20 70 72 65 73 65 6e 74 2c 0d 0a 20 20 20 20 20   present,..     
119d0 20 20 20 20 20 23 20 20 20 20 20 20 20 61 74 74       #       att
119e0 65 6d 70 74 20 74 6f 20 61 75 74 6f 6d 61 74 69  empt to automati
119f0 63 61 6c 6c 79 20 73 65 6c 65 63 74 20 74 68 65  cally select the
11a00 20 66 69 72 73 74 20 61 76 61 69 6c 61 62 6c 65   first available
11a10 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 20 20  ..          #   
11a20 20 20 20 20 62 75 69 6c 64 20 6f 66 20 53 79 73      build of Sys
11a30 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 20  tem.Data.SQLite 
11a40 66 6f 72 20 75 73 65 20 77 69 74 68 20 74 68 65  for use with the
11a50 20 74 65 73 74 20 73 75 69 74 65 2e 0d 0a 20 20   test suite...  
11a60 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..     
11a70 20 20 20 20 20 69 66 20 7b 5b 68 61 73 52 75 6e       if {[hasRun
11a80 74 69 6d 65 4f 70 74 69 6f 6e 20 61 75 74 6f 53  timeOption autoS
11a90 65 6c 65 63 74 5d 7d 20 74 68 65 6e 20 7b 0d 0a  elect]} then {..
11aa0 20 20 20 20 20 20 20 20 20 20 20 20 63 68 65 63              chec
11ab0 6b 46 6f 72 53 51 4c 69 74 65 42 75 69 6c 64 73  kForSQLiteBuilds
11ac0 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c   $::test_channel
11ad0 20 74 72 75 65 0d 0a 20 20 20 20 20 20 20 20 20   true..         
11ae0 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20   }....          
11af0 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e  #..          # N
11b00 4f 54 45 3a 20 53 6b 69 70 20 74 72 79 69 6e 67  OTE: Skip trying
11b10 20 74 6f 20 76 65 72 69 66 79 20 74 68 65 20 62   to verify the b
11b20 75 69 6c 64 20 64 69 72 65 63 74 6f 72 79 20 69  uild directory i
11b30 66 20 77 65 20 61 72 65 20 73 6f 0d 0a 20 20 20  f we are so..   
11b40 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 69         #       i
11b50 6e 73 74 72 75 63 74 65 64 3b 20 6f 74 68 65 72  nstructed; other
11b60 77 69 73 65 2c 20 6d 61 6b 65 20 73 75 72 65 20  wise, make sure 
11b70 69 74 20 61 63 74 75 61 6c 6c 79 20 65 78 69 73  it actually exis
11b80 74 73 20 6f 72 0d 0a 20 20 20 20 20 20 20 20 20  ts or..         
11b90 20 23 20 20 20 20 20 20 20 68 61 6c 74 20 74 68   #       halt th
11ba0 65 20 65 6e 74 69 72 65 20 74 65 73 74 69 6e 67  e entire testing
11bb0 20 70 72 6f 63 65 73 73 20 69 66 20 69 74 20 64   process if it d
11bc0 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 2e 0d 0a  oes not exist...
11bd0 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20            #..   
11be0 20 20 20 20 20 20 20 69 66 20 7b 21 5b 69 6e 66         if {![inf
11bf0 6f 20 65 78 69 73 74 73 20 3a 3a 6e 6f 28 76 65  o exists ::no(ve
11c00 72 69 66 79 42 75 69 6c 64 44 69 72 65 63 74 6f  rifyBuildDirecto
11c10 72 79 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  ry)]} then {..  
11c20 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20            #..   
11c30 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a           # NOTE:
11c40 20 41 74 20 74 68 69 73 20 70 6f 69 6e 74 2c 20   At this point, 
11c50 74 68 65 20 62 75 69 6c 64 20 64 69 72 65 63 74  the build direct
11c60 6f 72 79 20 4d 55 53 54 20 65 78 69 73 74 20 61  ory MUST exist a
11c70 73 20 61 0d 0a 20 20 20 20 20 20 20 20 20 20 20  s a..           
11c80 20 23 20 20 20 20 20 20 20 76 61 6c 69 64 20 64   #       valid d
11c90 69 72 65 63 74 6f 72 79 20 66 6f 72 20 74 68 65  irectory for the
11ca0 20 74 65 73 74 69 6e 67 20 70 72 6f 63 65 73 73   testing process
11cb0 20 74 6f 20 63 6f 6e 74 69 6e 75 65 2e 0d 0a 20   to continue... 
11cc0 20 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20             #..  
11cd0 20 20 20 20 20 20 20 20 20 20 73 65 74 20 64 69            set di
11ce0 72 65 63 74 6f 72 79 20 5b 67 65 74 42 75 69 6c  rectory [getBuil
11cf0 64 44 69 72 65 63 74 6f 72 79 5d 0d 0a 0d 0a 20  dDirectory].... 
11d00 20 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 21             if {!
11d10 5b 66 69 6c 65 20 65 78 69 73 74 73 20 24 64 69  [file exists $di
11d20 72 65 63 74 6f 72 79 5d 20 7c 7c 20 5c 0d 0a 20  rectory] || \.. 
11d30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21                 !
11d40 5b 66 69 6c 65 20 69 73 64 69 72 65 63 74 6f 72  [file isdirector
11d50 79 20 24 64 69 72 65 63 74 6f 72 79 5d 7d 20 74  y $directory]} t
11d60 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  hen {..         
11d70 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..        
11d80 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 4a 75        # NOTE: Ju
11d90 73 74 20 70 72 69 6f 72 20 74 6f 20 61 63 74 75  st prior to actu
11da0 61 6c 6c 79 20 68 61 6c 74 69 6e 67 20 74 68 65  ally halting the
11db0 20 74 65 73 74 69 6e 67 20 70 72 6f 63 65 73 73   testing process
11dc0 2c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  ,..             
11dd0 20 23 20 20 20 20 20 20 20 61 64 64 20 61 6e 20   #       add an 
11de0 65 72 72 6f 72 20 74 6f 20 74 68 65 20 74 65 73  error to the tes
11df0 74 20 6c 6f 67 20 66 69 6c 65 2e 0d 0a 20 20 20  t log file...   
11e00 20 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20             #..  
11e10 20 20 20 20 20 20 20 20 20 20 20 20 74 70 75 74              tput
11e20 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65  s $::test_channe
11e30 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d  l [appendArgs \.
11e40 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
11e50 20 20 20 22 2d 2d 2d 2d 20 63 6f 75 6c 64 20 6e     "---- could n
11e60 6f 74 20 76 65 72 69 66 79 20 62 75 69 6c 64 20  ot verify build 
11e70 64 69 72 65 63 74 6f 72 79 20 5c 22 22 20 24 64  directory \"" $d
11e80 69 72 65 63 74 6f 72 79 20 5c 0d 0a 20 20 20 20  irectory \..    
11e90 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5c                "\
11ea0 22 2c 20 61 6c 6c 20 74 65 73 74 69 6e 67 20 68  ", all testing h
11eb0 61 6c 74 65 64 5c 6e 22 5d 0d 0a 0d 0a 20 20 20  alted\n"]....   
11ec0 20 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20             #..  
11ed0 20 20 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f              # NO
11ee0 54 45 3a 20 52 61 69 73 69 6e 67 20 61 20 73 63  TE: Raising a sc
11ef0 72 69 70 74 20 65 72 72 6f 72 20 66 72 6f 6d 20  ript error from 
11f00 74 68 69 73 20 70 6f 69 6e 74 20 73 68 6f 75 6c  this point shoul
11f10 64 20 68 61 6c 74 0d 0a 20 20 20 20 20 20 20 20  d halt..        
11f20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 74 68        #       th
11f30 65 20 74 65 73 74 69 6e 67 20 70 72 6f 63 65 73  e testing proces
11f40 73 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  s...            
11f50 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 20    #..           
11f60 20 20 20 65 72 72 6f 72 20 5b 61 70 70 65 6e 64     error [append
11f70 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20  Args \..        
11f80 20 20 20 20 20 20 20 20 20 20 22 63 6f 75 6c 64            "could
11f90 20 6e 6f 74 20 76 65 72 69 66 79 20 62 75 69 6c   not verify buil
11fa0 64 20 64 69 72 65 63 74 6f 72 79 20 5c 22 22 20  d directory \"" 
11fb0 24 64 69 72 65 63 74 6f 72 79 20 5c 0d 0a 20 20  $directory \..  
11fc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
11fd0 22 5c 22 2c 20 61 6c 6c 20 74 65 73 74 69 6e 67  "\", all testing
11fe0 20 68 61 6c 74 65 64 22 5d 0d 0a 20 20 20 20 20   halted"]..     
11ff0 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20         }..      
12000 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20      }....       
12010 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20     #..          
12020 23 20 4e 4f 54 45 3a 20 53 6b 69 70 20 74 72 79  # NOTE: Skip try
12030 69 6e 67 20 74 6f 20 63 6f 70 79 20 61 6e 79 20  ing to copy any 
12040 66 69 6c 65 73 20 69 66 20 77 65 20 61 72 65 20  files if we are 
12050 73 6f 20 69 6e 73 74 72 75 63 74 65 64 2e 0d 0a  so instructed...
12060 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20            #..   
12070 20 20 20 20 20 20 20 69 66 20 7b 21 5b 69 6e 66         if {![inf
12080 6f 20 65 78 69 73 74 73 20 3a 3a 6e 6f 28 63 6f  o exists ::no(co
12090 70 79 53 71 6c 69 74 65 46 69 6c 65 73 29 5d 7d  pySqliteFiles)]}
120a0 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20   then {..       
120b0 20 20 20 20 20 74 72 79 43 6f 70 79 41 73 73 65       tryCopyAsse
120c0 6d 62 6c 79 20 73 71 6c 69 74 65 33 2e 64 6c 6c  mbly sqlite3.dll
120d0 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 72  ..            tr
120e0 79 43 6f 70 79 41 73 73 65 6d 62 6c 79 20 53 51  yCopyAssembly SQ
120f0 4c 69 74 65 2e 49 6e 74 65 72 6f 70 2e 64 6c 6c  Lite.Interop.dll
12100 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 72  ..            tr
12110 79 43 6f 70 79 41 73 73 65 6d 62 6c 79 20 53 79  yCopyAssembly Sy
12120 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65  stem.Data.SQLite
12130 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 20 20 20 20  .dll..          
12140 20 20 74 72 79 43 6f 70 79 41 73 73 65 6d 62 6c    tryCopyAssembl
12150 79 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51  y System.Data.SQ
12160 4c 69 74 65 2e 4c 69 6e 71 2e 64 6c 6c 0d 0a 20  Lite.Linq.dll.. 
12170 20 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20           }....  
12180 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..     
12190 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 6b 69       # NOTE: Ski
121a0 70 20 74 72 79 69 6e 67 20 74 6f 20 6c 6f 61 64  p trying to load
121b0 20 61 6e 79 20 66 69 6c 65 73 20 69 66 20 77 65   any files if we
121c0 20 61 72 65 20 73 6f 20 69 6e 73 74 72 75 63 74   are so instruct
121d0 65 64 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23  ed...          #
121e0 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7b  ..          if {
121f0 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a  ![info exists ::
12200 6e 6f 28 6c 6f 61 64 53 71 6c 69 74 65 46 69 6c  no(loadSqliteFil
12210 65 73 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  es)]} then {..  
12220 20 20 20 20 20 20 20 20 20 20 74 72 79 4c 6f 61            tryLoa
12230 64 41 73 73 65 6d 62 6c 79 20 53 79 73 74 65 6d  dAssembly System
12240 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 64 6c 6c  .Data.SQLite.dll
12250 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 72  ..            tr
12260 79 4c 6f 61 64 41 73 73 65 6d 62 6c 79 20 53 79  yLoadAssembly Sy
12270 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65  stem.Data.SQLite
12280 2e 4c 69 6e 71 2e 64 6c 6c 0d 0a 20 20 20 20 20  .Linq.dll..     
12290 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20       }....      
122a0 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20      #..         
122b0 20 23 20 4e 4f 54 45 3a 20 53 6b 69 70 20 74 72   # NOTE: Skip tr
122c0 79 69 6e 67 20 74 6f 20 64 65 6c 65 74 65 20 65  ying to delete e
122d0 78 74 65 72 6e 61 6c 20 66 69 6c 65 73 20 69 66  xternal files if
122e0 20 77 65 20 61 72 65 20 73 6f 20 69 6e 73 74 72   we are so instr
122f0 75 63 74 65 64 2e 0d 0a 20 20 20 20 20 20 20 20  ucted...        
12300 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 69    #..          i
12310 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73  f {![info exists
12320 20 3a 3a 6e 6f 28 64 65 6c 65 74 65 53 71 6c 69   ::no(deleteSqli
12330 74 65 45 78 74 65 72 6e 61 6c 46 69 6c 65 73 29  teExternalFiles)
12340 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  ]} then {..     
12350 20 20 20 20 20 20 20 74 72 79 44 65 6c 65 74 65         tryDelete
12360 42 75 69 6c 64 46 69 6c 65 20 49 6e 73 74 61 6c  BuildFile Instal
12370 6c 65 72 2e 65 78 65 2e 6d 64 61 2e 63 6f 6e 66  ler.exe.mda.conf
12380 69 67 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  ig..            
12390 74 72 79 44 65 6c 65 74 65 42 75 69 6c 64 46 69  tryDeleteBuildFi
123a0 6c 65 20 74 65 73 74 2e 65 78 65 2e 6d 64 61 2e  le test.exe.mda.
123b0 63 6f 6e 66 69 67 0d 0a 20 20 20 20 20 20 20 20  config..        
123c0 20 20 20 20 74 72 79 44 65 6c 65 74 65 42 75 69      tryDeleteBui
123d0 6c 64 46 69 6c 65 20 74 65 73 74 6c 69 6e 71 2e  ldFile testlinq.
123e0 65 78 65 2e 6d 64 61 2e 63 6f 6e 66 69 67 0d 0a  exe.mda.config..
123f0 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20            }.... 
12400 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20           #..    
12410 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 6b        # NOTE: Sk
12420 69 70 20 74 72 79 69 6e 67 20 74 6f 20 63 6f 70  ip trying to cop
12430 79 20 65 78 74 65 72 6e 61 6c 20 66 69 6c 65 73  y external files
12440 20 69 66 20 77 65 20 61 72 65 20 73 6f 20 69 6e   if we are so in
12450 73 74 72 75 63 74 65 64 2e 0d 0a 20 20 20 20 20  structed...     
12460 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..        
12470 20 20 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69    if {![info exi
12480 73 74 73 20 3a 3a 6e 6f 28 63 6f 70 79 53 71 6c  sts ::no(copySql
12490 69 74 65 45 78 74 65 72 6e 61 6c 46 69 6c 65 73  iteExternalFiles
124a0 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20  )]} then {..    
124b0 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..     
124c0 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 43         # NOTE: C
124d0 6f 70 79 20 74 68 65 20 4d 44 41 20 63 6f 6e 66  opy the MDA conf
124e0 69 67 75 72 61 74 69 6f 6e 20 66 69 6c 65 20 66  iguration file f
124f0 6f 72 20 74 68 65 20 45 61 67 6c 65 20 73 68 65  or the Eagle she
12500 6c 6c 20 74 6f 20 74 68 65 0d 0a 20 20 20 20 20  ll to the..     
12510 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 62         #       b
12520 75 69 6c 64 20 6f 75 74 70 75 74 20 64 69 72 65  uild output dire
12530 63 74 6f 72 79 3b 20 68 6f 77 65 76 65 72 2c 20  ctory; however, 
12540 75 73 65 20 74 68 65 20 6e 61 6d 65 20 6f 66 20  use the name of 
12550 74 68 65 20 6c 65 67 61 63 79 0d 0a 20 20 20 20  the legacy..    
12560 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20          #       
12570 74 65 73 74 20 65 78 65 63 75 74 61 62 6c 65 2e  test executable.
12580 20 20 54 68 69 73 20 77 69 6c 6c 20 6d 61 6b 65    This will make
12590 20 73 75 72 65 20 74 68 61 74 20 74 68 65 20 6c   sure that the l
125a0 65 67 61 63 79 20 74 65 73 74 73 0d 0a 20 20 20  egacy tests..   
125b0 20 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20           #      
125c0 20 72 75 6e 20 77 69 74 68 20 74 68 65 20 73 61   run with the sa
125d0 6d 65 20 73 65 74 20 6f 66 20 4d 44 41 73 20 63  me set of MDAs c
125e0 6f 6e 66 69 67 75 72 65 64 2e 0d 0a 20 20 20 20  onfigured...    
125f0 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..     
12600 20 20 20 20 20 20 20 74 72 79 43 6f 70 79 42 69         tryCopyBi
12610 6e 61 72 79 46 69 6c 65 20 45 61 67 6c 65 53 68  naryFile EagleSh
12620 65 6c 6c 2e 65 78 65 2e 6d 64 61 2e 63 6f 6e 66  ell.exe.mda.conf
12630 69 67 20 49 6e 73 74 61 6c 6c 65 72 2e 65 78 65  ig Installer.exe
12640 2e 6d 64 61 2e 63 6f 6e 66 69 67 0d 0a 20 20 20  .mda.config..   
12650 20 20 20 20 20 20 20 20 20 74 72 79 43 6f 70 79           tryCopy
12660 42 69 6e 61 72 79 46 69 6c 65 20 45 61 67 6c 65  BinaryFile Eagle
12670 53 68 65 6c 6c 2e 65 78 65 2e 6d 64 61 2e 63 6f  Shell.exe.mda.co
12680 6e 66 69 67 20 74 65 73 74 2e 65 78 65 2e 6d 64  nfig test.exe.md
12690 61 2e 63 6f 6e 66 69 67 0d 0a 20 20 20 20 20 20  a.config..      
126a0 20 20 20 20 20 20 74 72 79 43 6f 70 79 42 69 6e        tryCopyBin
126b0 61 72 79 46 69 6c 65 20 45 61 67 6c 65 53 68 65  aryFile EagleShe
126c0 6c 6c 2e 65 78 65 2e 6d 64 61 2e 63 6f 6e 66 69  ll.exe.mda.confi
126d0 67 20 74 65 73 74 6c 69 6e 71 2e 65 78 65 2e 6d  g testlinq.exe.m
126e0 64 61 2e 63 6f 6e 66 69 67 0d 0a 20 20 20 20 20  da.config..     
126f0 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20       }..        
12700 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 63 61 74  }....        cat
12710 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20  ch {..          
12720 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68  tputs $::test_ch
12730 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67  annel [appendArg
12740 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20  s \..           
12750 20 20 20 22 2d 2d 2d 2d 20 66 69 6c 65 20 76 65     "---- file ve
12760 72 73 69 6f 6e 20 6f 66 20 5c 22 73 71 6c 69 74  rsion of \"sqlit
12770 65 33 2e 64 6c 6c 5c 22 2e 2e 2e 20 22 20 5c 0d  e3.dll\"... " \.
12780 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5b  .              [
12790 66 69 6c 65 20 76 65 72 73 69 6f 6e 20 5b 67 65  file version [ge
127a0 74 42 69 6e 61 72 79 46 69 6c 65 4e 61 6d 65 20  tBinaryFileName 
127b0 73 71 6c 69 74 65 33 2e 64 6c 6c 5d 5d 20 5c 6e  sqlite3.dll]] \n
127c0 5d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a  ]..        }....
127d0 20 20 20 20 20 20 20 20 63 61 74 63 68 20 7b 0d          catch {.
127e0 0a 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73  .          tputs
127f0 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c   $::test_channel
12800 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a   [appendArgs \..
12810 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2d                "-
12820 2d 2d 2d 20 66 69 6c 65 20 76 65 72 73 69 6f 6e  --- file version
12830 20 6f 66 20 5c 22 53 51 4c 69 74 65 2e 49 6e 74   of \"SQLite.Int
12840 65 72 6f 70 2e 64 6c 6c 5c 22 2e 2e 2e 20 22 20  erop.dll\"... " 
12850 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  \..             
12860 20 5b 66 69 6c 65 20 76 65 72 73 69 6f 6e 20 5b   [file version [
12870 67 65 74 42 69 6e 61 72 79 46 69 6c 65 4e 61 6d  getBinaryFileNam
12880 65 20 53 51 4c 69 74 65 2e 49 6e 74 65 72 6f 70  e SQLite.Interop
12890 2e 64 6c 6c 5d 5d 20 5c 6e 5d 0d 0a 20 20 20 20  .dll]] \n]..    
128a0 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20      }....       
128b0 20 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 20   catch {..      
128c0 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73      tputs $::tes
128d0 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e  t_channel [appen
128e0 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20  dArgs \..       
128f0 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 66 69 6c         "---- fil
12900 65 20 76 65 72 73 69 6f 6e 20 6f 66 20 5c 22 53  e version of \"S
12910 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74  ystem.Data.SQLit
12920 65 2e 64 6c 6c 5c 22 2e 2e 2e 20 22 20 5c 0d 0a  e.dll\"... " \..
12930 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 66                [f
12940 69 6c 65 20 76 65 72 73 69 6f 6e 20 5b 67 65 74  ile version [get
12950 42 69 6e 61 72 79 46 69 6c 65 4e 61 6d 65 20 53  BinaryFileName S
12960 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74  ystem.Data.SQLit
12970 65 2e 64 6c 6c 5d 5d 20 5c 6e 5d 0d 0a 20 20 20  e.dll]] \n]..   
12980 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20       }....      
12990 20 20 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 20    catch {..     
129a0 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65       tputs $::te
129b0 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65  st_channel [appe
129c0 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20  ndArgs \..      
129d0 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 66 69          "---- fi
129e0 6c 65 20 76 65 72 73 69 6f 6e 20 6f 66 20 5c 22  le version of \"
129f0 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69  System.Data.SQLi
12a00 74 65 2e 4c 69 6e 71 2e 64 6c 6c 5c 22 2e 2e 2e  te.Linq.dll\"...
12a10 20 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20   " \..          
12a20 20 20 20 20 5b 66 69 6c 65 20 76 65 72 73 69 6f      [file versio
12a30 6e 20 5b 67 65 74 42 69 6e 61 72 79 46 69 6c 65  n [getBinaryFile
12a40 4e 61 6d 65 20 53 79 73 74 65 6d 2e 44 61 74 61  Name System.Data
12a50 2e 53 51 4c 69 74 65 2e 4c 69 6e 71 2e 64 6c 6c  .SQLite.Linq.dll
12a60 5d 5d 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20  ]] \n]..        
12a70 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 73 65 74  }....        set
12a80 20 61 73 73 65 6d 62 6c 69 65 73 20 5b 6f 62 6a   assemblies [obj
12a90 65 63 74 20 69 6e 76 6f 6b 65 20 41 70 70 44 6f  ect invoke AppDo
12aa0 6d 61 69 6e 2e 43 75 72 72 65 6e 74 44 6f 6d 61  main.CurrentDoma
12ab0 69 6e 20 47 65 74 41 73 73 65 6d 62 6c 69 65 73  in GetAssemblies
12ac0 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 6f 62 6a  ]....        obj
12ad0 65 63 74 20 66 6f 72 65 61 63 68 20 61 73 73 65  ect foreach asse
12ae0 6d 62 6c 79 20 24 61 73 73 65 6d 62 6c 69 65 73  mbly $assemblies
12af0 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66   {..          if
12b00 20 7b 5b 73 74 72 69 6e 67 20 6d 61 74 63 68 20   {[string match 
12b10 5c 7b 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51  \{System.Data.SQ
12b20 4c 69 74 65 2a 20 24 61 73 73 65 6d 62 6c 79 5d  Lite* $assembly]
12b30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..      
12b40 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74        tputs $::t
12b50 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70  est_channel [app
12b60 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20  endArgs \..     
12b70 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d             "----
12b80 20 66 6f 75 6e 64 20 61 73 73 65 6d 62 6c 79 3a   found assembly:
12b90 20 22 20 24 61 73 73 65 6d 62 6c 79 20 5c 6e 5d   " $assembly \n]
12ba0 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20  ..          }.. 
12bb0 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20         }....    
12bc0 20 20 20 20 63 61 74 63 68 20 7b 0d 0a 20 20 20      catch {..   
12bd0 20 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a         tputs $::
12be0 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5c 0d 0a  test_channel \..
12bf0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2d                "-
12c00 2d 2d 2d 20 64 65 66 69 6e 65 20 63 6f 6e 73 74  --- define const
12c10 61 6e 74 73 20 66 6f 72 20 5c 22 53 79 73 74 65  ants for \"Syste
12c20 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 5c 22 2e  m.Data.SQLite\".
12c30 2e 2e 20 22 0d 0a 0d 0a 20 20 20 20 20 20 20 20  .. "....        
12c40 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 6f 62    if {[catch {ob
12c50 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d 66 6c 61  ject invoke -fla
12c60 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 5c 0d  gs +NonPublic \.
12c70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
12c80 20 20 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53     System.Data.S
12c90 51 4c 69 74 65 2e 53 51 4c 69 74 65 33 20 44 65  QLite.SQLite3 De
12ca0 66 69 6e 65 43 6f 6e 73 74 61 6e 74 73 7d 20 5c  fineConstants} \
12cb0 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
12cc0 20 20 20 20 64 65 66 69 6e 65 43 6f 6e 73 74 61      defineConsta
12cd0 6e 74 73 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20  nts] == 0} then 
12ce0 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 74  {..            t
12cf0 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61  puts $::test_cha
12d00 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73  nnel [appendArgs
12d10 20 5b 66 6f 72 6d 61 74 4c 69 73 74 20 5b 6c 73   [formatList [ls
12d20 6f 72 74 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  ort \..         
12d30 20 20 20 20 20 20 20 24 64 65 66 69 6e 65 43 6f         $defineCo
12d40 6e 73 74 61 6e 74 73 5d 20 3c 6e 6f 6e 65 3e 5d  nstants] <none>]
12d50 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 20 20   \n]..          
12d60 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20  } else {..      
12d70 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74        tputs $::t
12d80 65 73 74 5f 63 68 61 6e 6e 65 6c 20 75 6e 6b 6e  est_channel unkn
12d90 6f 77 6e 5c 6e 0d 0a 20 20 20 20 20 20 20 20 20  own\n..         
12da0 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d   }..        }...
12db0 0a 20 20 20 20 20 20 20 20 63 61 74 63 68 20 7b  .        catch {
12dc0 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70 75 74  ..          tput
12dd0 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65  s $::test_channe
12de0 6c 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20  l \..           
12df0 20 20 20 22 2d 2d 2d 2d 20 73 6f 75 72 63 65 20     "---- source 
12e00 76 65 72 73 69 6f 6e 20 6f 66 20 5c 22 53 79 73  version of \"Sys
12e10 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e  tem.Data.SQLite.
12e20 64 6c 6c 5c 22 2e 2e 2e 20 22 0d 0a 0d 0a 20 20  dll\"... "....  
12e30 20 20 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74          if {[cat
12e40 63 68 20 7b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b  ch {object invok
12e50 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 62  e -flags +NonPub
12e60 6c 69 63 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  lic \..         
12e70 20 20 20 20 20 20 20 20 20 53 79 73 74 65 6d 2e           System.
12e80 44 61 74 61 2e 53 51 4c 69 74 65 2e 53 51 4c 69  Data.SQLite.SQLi
12e90 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 20 50 72 6f  teConnection Pro
12ea0 76 69 64 65 72 56 65 72 73 69 6f 6e 7d 20 5c 0d  viderVersion} \.
12eb0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
12ec0 20 20 20 76 65 72 73 69 6f 6e 5d 20 3d 3d 20 30     version] == 0
12ed0 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..      
12ee0 20 20 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e        if {[strin
12ef0 67 20 6c 65 6e 67 74 68 20 24 76 65 72 73 69 6f  g length $versio
12f00 6e 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d  n] == 0} then {.
12f10 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73  .              s
12f20 65 74 20 76 65 72 73 69 6f 6e 20 6e 75 6c 6c 0d  et version null.
12f30 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a  .            }..
12f40 20 20 20 20 20 20 20 20 20 20 20 20 74 70 75 74              tput
12f50 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65  s $::test_channe
12f60 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 24 76  l [appendArgs $v
12f70 65 72 73 69 6f 6e 20 5c 6e 5d 0d 0a 20 20 20 20  ersion \n]..    
12f80 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a        } else {..
12f90 20 20 20 20 20 20 20 20 20 20 20 20 74 70 75 74              tput
12fa0 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65  s $::test_channe
12fb0 6c 20 75 6e 6b 6e 6f 77 6e 5c 6e 0d 0a 20 20 20  l unknown\n..   
12fc0 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20         }..      
12fd0 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 63    }....        c
12fe0 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20  atch {..        
12ff0 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f    tputs $::test_
13000 63 68 61 6e 6e 65 6c 20 5c 0d 0a 20 20 20 20 20  channel \..     
13010 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 73           "---- s
13020 6f 75 72 63 65 20 63 68 65 63 6b 6f 75 74 20 6f  ource checkout o
13030 66 20 5c 22 53 79 73 74 65 6d 2e 44 61 74 61 2e  f \"System.Data.
13040 53 51 4c 69 74 65 2e 64 6c 6c 5c 22 2e 2e 2e 20  SQLite.dll\"... 
13050 22 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 69  "....          i
13060 66 20 7b 5b 63 61 74 63 68 20 7b 6f 62 6a 65 63  f {[catch {objec
13070 74 20 69 6e 76 6f 6b 65 20 2d 66 6c 61 67 73 20  t invoke -flags 
13080 2b 4e 6f 6e 50 75 62 6c 69 63 20 5c 0d 0a 20 20  +NonPublic \..  
13090 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
130a0 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69  System.Data.SQLi
130b0 74 65 2e 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74  te.SQLiteConnect
130c0 69 6f 6e 20 50 72 6f 76 69 64 65 72 53 6f 75 72  ion ProviderSour
130d0 63 65 49 64 7d 20 5c 0d 0a 20 20 20 20 20 20 20  ceId} \..       
130e0 20 20 20 20 20 20 20 20 20 20 20 73 6f 75 72 63             sourc
130f0 65 49 64 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20  eId] == 0} then 
13100 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 69  {..            i
13110 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74  f {[string lengt
13120 68 20 24 73 6f 75 72 63 65 49 64 5d 20 3d 3d 20  h $sourceId] == 
13130 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  0} then {..     
13140 20 20 20 20 20 20 20 20 20 73 65 74 20 73 6f 75           set sou
13150 72 63 65 49 64 20 6e 75 6c 6c 0d 0a 20 20 20 20  rceId null..    
13160 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20          }..     
13170 20 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a         tputs $::
13180 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70  test_channel [ap
13190 70 65 6e 64 41 72 67 73 20 24 73 6f 75 72 63 65  pendArgs $source
131a0 49 64 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20  Id \n]..        
131b0 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20    } else {..    
131c0 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 3a          tputs $:
131d0 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 75 6e  :test_channel un
131e0 6b 6e 6f 77 6e 5c 6e 0d 0a 20 20 20 20 20 20 20  known\n..       
131f0 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d     }..        }.
13200 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20  ...        #..  
13210 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 43 68        # NOTE: Ch
13220 65 63 6b 20 74 68 65 20 61 76 61 69 6c 61 62 6c  eck the availabl
13230 65 20 62 75 69 6c 64 73 20 6f 66 20 53 51 4c 69  e builds of SQLi
13240 74 65 20 61 6e 64 20 53 79 73 74 65 6d 2e 44 61  te and System.Da
13250 74 61 2e 53 51 4c 69 74 65 2e 0d 0a 20 20 20 20  ta.SQLite...    
13260 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 63      #..        c
13270 68 65 63 6b 46 6f 72 53 51 4c 69 74 65 42 75 69  heckForSQLiteBui
13280 6c 64 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e  lds $::test_chan
13290 6e 65 6c 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23  nel....        #
132a0 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45  ..        # NOTE
132b0 3a 20 4e 6f 77 2c 20 77 65 20 6e 65 65 64 20 74  : Now, we need t
132c0 6f 20 6b 6e 6f 77 20 69 66 20 74 68 65 20 53 51  o know if the SQ
132d0 4c 69 74 65 20 63 6f 72 65 20 6c 69 62 72 61 72  Lite core librar
132e0 79 20 69 73 20 61 76 61 69 6c 61 62 6c 65 0d 0a  y is available..
132f0 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20          #       
13300 28 69 2e 65 2e 20 62 65 63 61 75 73 65 20 74 68  (i.e. because th
13310 65 20 6d 61 6e 61 67 65 64 2d 6f 6e 6c 79 20 53  e managed-only S
13320 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74  ystem.Data.SQLit
13330 65 20 61 73 73 65 6d 62 6c 79 20 63 61 6e 0d 0a  e assembly can..
13340 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20          #       
13350 6c 6f 61 64 20 77 69 74 68 6f 75 74 20 69 74 3b  load without it;
13360 20 68 6f 77 65 76 65 72 2c 20 69 74 20 63 61 6e   however, it can
13370 6e 6f 74 20 64 6f 20 61 6e 79 74 68 69 6e 67 20  not do anything 
13380 75 73 65 66 75 6c 20 77 69 74 68 6f 75 74 0d 0a  useful without..
13390 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20          #       
133a0 69 74 29 2e 20 20 49 66 20 77 65 20 61 72 65 20  it).  If we are 
133b0 75 73 69 6e 67 20 74 68 65 20 6d 69 78 65 64 2d  using the mixed-
133c0 6d 6f 64 65 20 61 73 73 65 6d 62 6c 79 20 61 6e  mode assembly an
133d0 64 20 77 65 20 61 6c 72 65 61 64 79 0d 0a 20 20  d we already..  
133e0 20 20 20 20 20 20 23 20 20 20 20 20 20 20 66 6f        #       fo
133f0 75 6e 64 20 69 74 20 28 61 62 6f 76 65 29 2c 20  und it (above), 
13400 74 68 69 73 20 73 68 6f 75 6c 64 20 61 6c 77 61  this should alwa
13410 79 73 20 73 75 63 63 65 65 64 2e 0d 0a 20 20 20  ys succeed...   
13420 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..        
13430 63 68 65 63 6b 46 6f 72 53 51 4c 69 74 65 4c 69  checkForSQLiteLi
13440 62 72 61 72 79 20 24 3a 3a 74 65 73 74 5f 63 68  brary $::test_ch
13450 61 6e 6e 65 6c 0d 0a 0d 0a 20 20 20 20 20 20 20  annel....       
13460 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f   #..        # NO
13470 54 45 3a 20 43 68 65 63 6b 20 69 66 20 74 68 65  TE: Check if the
13480 20 53 51 4c 69 74 65 20 69 6e 74 65 72 6f 70 20   SQLite interop 
13490 61 73 73 65 6d 62 6c 79 20 69 73 20 61 76 61 69  assembly is avai
134a0 6c 61 62 6c 65 2e 0d 0a 20 20 20 20 20 20 20 20  lable...        
134b0 23 0d 0a 20 20 20 20 20 20 20 20 63 68 65 63 6b  #..        check
134c0 46 6f 72 53 51 4c 69 74 65 49 6e 74 65 72 6f 70  ForSQLiteInterop
134d0 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c   $::test_channel
134e0 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20  ....        #.. 
134f0 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 43         # NOTE: C
13500 68 65 63 6b 20 74 68 65 20 53 51 4c 69 74 65 20  heck the SQLite 
13510 64 61 74 61 62 61 73 65 20 61 6e 64 20 74 65 6d  database and tem
13520 70 6f 72 61 72 79 20 64 69 72 65 63 74 6f 72 69  porary directori
13530 65 73 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a  es...        #..
13540 20 20 20 20 20 20 20 20 63 68 65 63 6b 46 6f 72          checkFor
13550 53 51 4c 69 74 65 44 69 72 65 63 74 6f 72 69 65  SQLiteDirectorie
13560 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65  s $::test_channe
13570 6c 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a  l....        #..
13580 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20          # NOTE: 
13590 41 74 74 65 6d 70 74 20 74 6f 20 64 65 74 65 72  Attempt to deter
135a0 6d 69 6e 65 20 69 66 20 76 61 72 69 6f 75 73 20  mine if various 
135b0 63 6f 6d 70 69 6c 65 2d 74 69 6d 65 20 6f 70 74  compile-time opt
135c0 69 6f 6e 73 20 6e 65 65 64 65 64 20 66 6f 72 0d  ions needed for.
135d0 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20  .        #      
135e0 20 74 65 73 74 20 63 6f 6e 73 74 72 61 69 6e 74   test constraint
135f0 73 20 77 65 72 65 20 65 6e 61 62 6c 65 64 20 66  s were enabled f
13600 6f 72 20 74 68 65 20 6d 61 6e 61 67 65 64 20 61  or the managed a
13610 73 73 65 6d 62 6c 79 2e 20 20 54 68 65 72 65 0d  ssembly.  There.
13620 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20  .        #      
13630 20 61 72 65 20 73 6f 6d 65 20 63 6f 6d 70 69 6c   are some compil
13640 65 2d 74 69 6d 65 20 6f 70 74 69 6f 6e 73 20 74  e-time options t
13650 68 61 74 20 6d 75 73 74 20 61 6c 73 6f 20 68 61  hat must also ha
13660 76 65 20 62 65 65 6e 20 65 6e 61 62 6c 65 64 0d  ve been enabled.
13670 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20  .        #      
13680 20 66 6f 72 20 74 68 65 20 69 6e 74 65 72 6f 70   for the interop
13690 20 61 73 73 65 6d 62 6c 79 20 69 6e 20 6f 72 64   assembly in ord
136a0 65 72 20 74 6f 20 62 65 20 65 66 66 65 63 74 69  er to be effecti
136b0 76 65 2e 20 20 46 6f 72 20 74 68 6f 73 65 0d 0a  ve.  For those..
136c0 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20          #       
136d0 6f 70 74 69 6f 6e 73 2c 20 69 74 20 77 69 6c 6c  options, it will
136e0 20 62 65 20 61 73 73 75 6d 65 64 20 74 68 61 74   be assumed that
136f0 20 69 74 20 77 61 73 20 65 6e 61 62 6c 65 64 20   it was enabled 
13700 66 6f 72 20 74 68 65 20 69 6e 74 65 72 6f 70 0d  for the interop.
13710 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20  .        #      
13720 20 61 73 73 65 6d 62 6c 79 20 69 66 20 69 74 20   assembly if it 
13730 77 61 73 20 65 6e 61 62 6c 65 64 20 66 6f 72 20  was enabled for 
13740 74 68 65 20 6d 61 6e 61 67 65 64 20 61 73 73 65  the managed asse
13750 6d 62 6c 79 2e 0d 0a 20 20 20 20 20 20 20 20 23  mbly...        #
13760 0d 0a 20 20 20 20 20 20 20 20 66 6f 72 65 61 63  ..        foreac
13770 68 20 64 65 66 69 6e 65 43 6f 6e 73 74 61 6e 74  h defineConstant
13780 20 5b 6c 69 73 74 20 5c 0d 0a 20 20 20 20 20 20   [list \..      
13790 20 20 20 20 20 20 43 48 45 43 4b 5f 53 54 41 54        CHECK_STAT
137a0 45 20 43 4f 55 4e 54 5f 48 41 4e 44 4c 45 20 44  E COUNT_HANDLE D
137b0 45 42 55 47 20 49 4e 54 45 52 4f 50 5f 43 4f 44  EBUG INTEROP_COD
137c0 45 43 20 49 4e 54 45 52 4f 50 5f 44 45 42 55 47  EC INTEROP_DEBUG
137d0 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   \..            
137e0 49 4e 54 45 52 4f 50 5f 45 58 54 45 4e 53 49 4f  INTEROP_EXTENSIO
137f0 4e 5f 46 55 4e 43 54 49 4f 4e 53 20 49 4e 54 45  N_FUNCTIONS INTE
13800 52 4f 50 5f 4c 45 47 41 43 59 5f 43 4c 4f 53 45  ROP_LEGACY_CLOSE
13810 20 49 4e 54 45 52 4f 50 5f 4c 4f 47 20 5c 0d 0a   INTEROP_LOG \..
13820 20 20 20 20 20 20 20 20 20 20 20 20 49 4e 54 45              INTE
13830 52 4f 50 5f 54 45 53 54 5f 45 58 54 45 4e 53 49  ROP_TEST_EXTENSI
13840 4f 4e 20 49 4e 54 45 52 4f 50 5f 56 49 52 54 55  ON INTEROP_VIRTU
13850 41 4c 5f 54 41 42 4c 45 20 4e 45 54 5f 32 30 20  AL_TABLE NET_20 
13860 4e 45 54 5f 33 35 20 5c 0d 0a 20 20 20 20 20 20  NET_35 \..      
13870 20 20 20 20 20 20 4e 45 54 5f 34 30 20 4e 45 54        NET_40 NET
13880 5f 34 35 20 4e 45 54 5f 43 4f 4d 50 41 43 54 5f  _45 NET_COMPACT_
13890 32 30 20 50 4c 41 54 46 4f 52 4d 5f 43 4f 4d 50  20 PLATFORM_COMP
138a0 41 43 54 46 52 41 4d 45 57 4f 52 4b 20 5c 0d 0a  ACTFRAMEWORK \..
138b0 20 20 20 20 20 20 20 20 20 20 20 20 50 52 45 4c              PREL
138c0 4f 41 44 5f 4e 41 54 49 56 45 5f 4c 49 42 52 41  OAD_NATIVE_LIBRA
138d0 52 59 20 52 45 54 41 52 47 45 54 41 42 4c 45 20  RY RETARGETABLE 
138e0 53 51 4c 49 54 45 5f 53 54 41 4e 44 41 52 44 20  SQLITE_STANDARD 
138f0 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 54  \..            T
13900 48 52 4f 57 5f 4f 4e 5f 44 49 53 50 4f 53 45 44  HROW_ON_DISPOSED
13910 20 54 52 41 43 45 20 54 52 41 43 45 5f 43 4f 4e   TRACE TRACE_CON
13920 4e 45 43 54 49 4f 4e 20 54 52 41 43 45 5f 48 41  NECTION TRACE_HA
13930 4e 44 4c 45 20 5c 0d 0a 20 20 20 20 20 20 20 20  NDLE \..        
13940 20 20 20 20 54 52 41 43 45 5f 50 52 45 4c 4f 41      TRACE_PRELOA
13950 44 20 54 52 41 43 45 5f 53 54 41 54 45 4d 45 4e  D TRACE_STATEMEN
13960 54 20 54 52 41 43 45 5f 57 41 52 4e 49 4e 47 20  T TRACE_WARNING 
13970 54 52 41 43 4b 5f 4d 45 4d 4f 52 59 5f 42 59 54  TRACK_MEMORY_BYT
13980 45 53 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  ES \..          
13990 20 20 55 53 45 5f 49 4e 54 45 52 4f 50 5f 44 4c    USE_INTEROP_DL
139a0 4c 20 55 53 45 5f 50 52 45 50 41 52 45 5f 56 32  L USE_PREPARE_V2
139b0 20 57 49 4e 44 4f 57 53 5d 20 7b 0d 0a 20 20 20   WINDOWS] {..   
139c0 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..      
139d0 20 20 20 20 23 20 4e 4f 54 45 3a 20 43 68 65 63      # NOTE: Chec
139e0 6b 20 69 66 20 74 68 65 20 63 6f 6d 70 69 6c 65  k if the compile
139f0 2d 74 69 6d 65 20 6f 70 74 69 6f 6e 20 69 73 20  -time option is 
13a00 6c 69 73 74 65 64 20 69 6e 20 74 68 65 20 6c 69  listed in the li
13a10 73 74 20 6f 66 0d 0a 20 20 20 20 20 20 20 20 20  st of..         
13a20 20 23 20 20 20 20 20 20 20 22 64 65 66 69 6e 65   #       "define
13a30 20 63 6f 6e 73 74 61 6e 74 73 22 20 6b 65 70 74   constants" kept
13a40 20 74 72 61 63 6b 20 6f 66 20 62 79 20 74 68 65   track of by the
13a50 20 6d 61 6e 61 67 65 64 20 61 73 73 65 6d 62 6c   managed assembl
13a60 79 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d  y...          #.
13a70 0a 20 20 20 20 20 20 20 20 20 20 63 68 65 63 6b  .          check
13a80 46 6f 72 53 51 4c 69 74 65 44 65 66 69 6e 65 43  ForSQLiteDefineC
13a90 6f 6e 73 74 61 6e 74 20 24 3a 3a 74 65 73 74 5f  onstant $::test_
13aa0 63 68 61 6e 6e 65 6c 20 24 64 65 66 69 6e 65 43  channel $defineC
13ab0 6f 6e 73 74 61 6e 74 0d 0a 20 20 20 20 20 20 20  onstant..       
13ac0 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d   }....        #.
13ad0 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a  .        # NOTE:
13ae0 20 43 68 65 63 6b 20 74 68 65 20 63 75 72 72 65   Check the curre
13af0 6e 74 20 62 75 69 6c 64 20 79 65 61 72 2e 20 20  nt build year.  
13b00 42 61 73 69 63 61 6c 6c 79 2c 20 74 68 69 73 20  Basically, this 
13b10 69 6e 64 69 63 61 74 65 73 0d 0a 20 20 20 20 20  indicates..     
13b20 20 20 20 23 20 20 20 20 20 20 20 77 68 69 63 68     #       which
13b30 20 76 65 72 73 69 6f 6e 20 6f 66 20 4d 53 42 75   version of MSBu
13b40 69 6c 64 20 61 6e 64 2f 6f 72 20 56 69 73 75 61  ild and/or Visua
13b50 6c 20 53 74 75 64 69 6f 20 77 61 73 20 75 73 65  l Studio was use
13b60 64 20 74 6f 0d 0a 20 20 20 20 20 20 20 20 23 20  d to..        # 
13b70 20 20 20 20 20 20 63 6f 6d 70 69 6c 65 20 74 68        compile th
13b80 65 20 61 73 73 65 6d 62 6c 79 20 62 69 6e 61 72  e assembly binar
13b90 69 65 73 20 75 6e 64 65 72 20 74 65 73 74 2e 0d  ies under test..
13ba0 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20  .        #..    
13bb0 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73      tputs $::tes
13bc0 74 5f 63 68 61 6e 6e 65 6c 20 5c 0d 0a 20 20 20  t_channel \..   
13bd0 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 63           "---- c
13be0 68 65 63 6b 69 6e 67 20 66 6f 72 20 53 79 73 74  hecking for Syst
13bf0 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 20 62  em.Data.SQLite b
13c00 75 69 6c 64 20 79 65 61 72 2e 2e 2e 20 22 0d 0a  uild year... "..
13c10 0d 0a 20 20 20 20 20 20 20 20 73 65 74 20 79 65  ..        set ye
13c20 61 72 20 5b 67 65 74 42 75 69 6c 64 59 65 61 72  ar [getBuildYear
13c30 5d 0d 0a 20 20 20 20 20 20 20 20 61 64 64 43 6f  ]..        addCo
13c40 6e 73 74 72 61 69 6e 74 20 5b 61 70 70 65 6e 64  nstraint [append
13c50 41 72 67 73 20 62 75 69 6c 64 59 65 61 72 2e 20  Args buildYear. 
13c60 24 79 65 61 72 5d 0d 0a 20 20 20 20 20 20 20 20  $year]..        
13c70 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68  tputs $::test_ch
13c80 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67  annel [appendArg
13c90 73 20 5c 22 20 24 79 65 61 72 20 5c 22 5c 6e 5d  s \" $year \"\n]
13ca0 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20  ....        #.. 
13cb0 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 43         # NOTE: C
13cc0 68 65 63 6b 20 74 68 65 20 63 75 72 72 65 6e 74  heck the current
13cd0 20 62 75 69 6c 64 20 63 6f 6e 66 69 67 75 72 61   build configura
13ce0 74 69 6f 6e 2e 20 20 54 68 69 73 20 73 68 6f 75  tion.  This shou
13cf0 6c 64 20 6e 6f 72 6d 61 6c 6c 79 0d 0a 20 20 20  ld normally..   
13d00 20 20 20 20 20 23 20 20 20 20 20 20 20 62 65 20       #       be 
13d10 65 69 74 68 65 72 20 22 44 65 62 75 67 22 20 6f  either "Debug" o
13d20 72 20 22 52 65 6c 65 61 73 65 22 2e 0d 0a 20 20  r "Release"...  
13d30 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
13d40 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63   tputs $::test_c
13d50 68 61 6e 6e 65 6c 20 5c 0d 0a 20 20 20 20 20 20  hannel \..      
13d60 20 20 20 20 20 20 22 2d 2d 2d 2d 20 63 68 65 63        "---- chec
13d70 6b 69 6e 67 20 66 6f 72 20 53 79 73 74 65 6d 2e  king for System.
13d80 44 61 74 61 2e 53 51 4c 69 74 65 20 62 75 69 6c  Data.SQLite buil
13d90 64 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 2e  d configuration.
13da0 2e 2e 20 22 0d 0a 0d 0a 20 20 20 20 20 20 20 20  .. "....        
13db0 73 65 74 20 63 6f 6e 66 69 67 75 72 61 74 69 6f  set configuratio
13dc0 6e 20 5b 67 65 74 42 75 69 6c 64 43 6f 6e 66 69  n [getBuildConfi
13dd0 67 75 72 61 74 69 6f 6e 5d 0d 0a 20 20 20 20 20  guration]..     
13de0 20 20 20 61 64 64 43 6f 6e 73 74 72 61 69 6e 74     addConstraint
13df0 20 5b 61 70 70 65 6e 64 41 72 67 73 20 62 75 69   [appendArgs bui
13e00 6c 64 43 6f 6e 66 69 67 75 72 61 74 69 6f 6e 2e  ldConfiguration.
13e10 20 24 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 5d   $configuration]
13e20 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20  ..        tputs 
13e30 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20  $::test_channel 
13e40 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 22 20 24  [appendArgs \" $
13e50 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 5c 22  configuration \"
13e60 5c 6e 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23  \n]....        #
13e70 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45  ..        # NOTE
13e80 3a 20 54 72 79 20 74 6f 20 73 65 74 75 70 20 61  : Try to setup a
13e90 6e 20 69 6e 74 65 72 72 75 70 74 20 63 61 6c 6c  n interrupt call
13ea0 62 61 63 6b 20 75 73 69 6e 67 20 74 68 65 20 73  back using the s
13eb0 63 72 69 70 74 20 64 65 62 75 67 67 65 72 0d 0a  cript debugger..
13ec0 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20          #       
13ed0 74 68 61 74 20 77 69 6c 6c 20 63 61 6e 63 65 6c  that will cancel
13ee0 20 61 6c 6c 20 53 51 4c 20 71 75 65 72 69 65 73   all SQL queries
13ef0 20 69 6e 20 70 72 6f 67 72 65 73 73 20 66 6f 72   in progress for
13f00 20 61 6c 6c 20 64 61 74 61 62 61 73 65 0d 0a 20   all database.. 
13f10 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 63         #       c
13f20 6f 6e 6e 65 63 74 69 6f 6e 73 20 6b 6e 6f 77 6e  onnections known
13f30 20 74 6f 20 74 68 69 73 20 69 6e 74 65 72 70 72   to this interpr
13f40 65 74 65 72 2e 0d 0a 20 20 20 20 20 20 20 20 23  eter...        #
13f50 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 21 5b  ..        if {![
13f60 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 6e 6f  info exists ::no
13f70 28 73 71 6c 69 74 65 49 6e 74 65 72 72 75 70 74  (sqliteInterrupt
13f80 43 61 6c 6c 62 61 63 6b 29 5d 7d 20 74 68 65 6e  Callback)]} then
13f90 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 73 65   {..          se
13fa0 74 75 70 44 62 49 6e 74 65 72 72 75 70 74 43 61  tupDbInterruptCa
13fb0 6c 6c 62 61 63 6b 20 24 3a 3a 74 65 73 74 5f 63  llback $::test_c
13fc0 68 61 6e 6e 65 6c 20 24 3a 3a 74 65 73 74 5f 6c  hannel $::test_l
13fd0 6f 67 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d  og..        }...
13fe0 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20  .        #..    
13ff0 20 20 20 20 23 20 4e 4f 54 45 3a 20 43 68 65 63      # NOTE: Chec
14000 6b 20 66 6f 72 20 74 68 65 20 6e 61 74 69 76 65  k for the native
14010 20 72 75 6e 74 69 6d 65 20 6f 70 74 69 6f 6e 2c   runtime option,
14020 20 77 68 69 63 68 20 77 6f 75 6c 64 20 6d 65 61   which would mea
14030 6e 20 77 65 20 61 72 65 0d 0a 20 20 20 20 20 20  n we are..      
14040 20 20 23 20 20 20 20 20 20 20 75 73 69 6e 67 20    #       using 
14050 74 68 65 20 6d 69 78 65 64 2d 6d 6f 64 65 20 61  the mixed-mode a
14060 73 73 65 6d 62 6c 79 2e 0d 0a 20 20 20 20 20 20  ssembly...      
14070 20 20 23 0d 0a 20 20 20 20 20 20 20 20 63 68 65    #..        che
14080 63 6b 46 6f 72 52 75 6e 74 69 6d 65 4f 70 74 69  ckForRuntimeOpti
14090 6f 6e 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e  on $::test_chann
140a0 65 6c 20 6e 61 74 69 76 65 0d 0a 0d 0a 20 20 20  el native....   
140b0 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..        
140c0 23 20 4e 4f 54 45 3a 20 43 68 65 63 6b 20 69 66  # NOTE: Check if
140d0 20 74 68 65 20 74 65 73 74 20 73 75 69 74 65 20   the test suite 
140e0 73 68 6f 75 6c 64 20 63 6f 75 6e 74 20 74 68 65  should count the
140f0 20 6e 75 6d 62 65 72 20 6f 66 20 63 6f 6e 6e 65   number of conne
14100 63 74 69 6f 6e 73 0d 0a 20 20 20 20 20 20 20 20  ctions..        
14110 23 20 20 20 20 20 20 20 22 6f 70 65 6e 65 64 22  #       "opened"
14120 20 61 6e 64 20 22 63 6c 6f 73 65 64 22 20 66 72   and "closed" fr
14130 6f 6d 20 74 68 65 20 70 6f 6f 6c 20 77 68 65 6e  om the pool when
14140 20 64 65 74 65 72 6d 69 6e 69 6e 67 20 69 66 20   determining if 
14150 61 20 74 65 73 74 0d 0a 20 20 20 20 20 20 20 20  a test..        
14160 23 20 20 20 20 20 20 20 70 61 73 73 65 64 2e 20  #       passed. 
14170 20 44 69 73 61 62 6c 69 6e 67 20 74 68 69 73 20   Disabling this 
14180 62 65 68 61 76 69 6f 72 20 69 73 20 73 6f 6d 65  behavior is some
14190 74 69 6d 65 73 20 6e 65 63 65 73 73 61 72 79 20  times necessary 
141a0 28 65 2e 67 2e 0d 0a 20 20 20 20 20 20 20 20 23  (e.g...        #
141b0 20 20 20 20 20 20 20 64 75 72 69 6e 67 20 74 68         during th
141c0 65 20 72 65 6c 65 61 73 65 20 74 65 73 74 69 6e  e release testin
141d0 67 20 70 72 6f 63 65 73 73 29 20 62 65 63 61 75  g process) becau
141e0 73 65 20 74 68 65 72 65 20 61 72 65 20 73 65 76  se there are sev
141f0 65 72 61 6c 0d 0a 20 20 20 20 20 20 20 20 23 20  eral..        # 
14200 20 20 20 20 20 20 74 65 73 74 73 20 74 68 61 74        tests that
14210 20 72 65 6c 79 20 6f 6e 20 74 68 65 20 22 6f 70   rely on the "op
14220 65 6e 65 64 20 66 72 6f 6d 20 70 6f 6f 6c 22 20  ened from pool" 
14230 63 6f 75 6e 74 20 62 65 69 6e 67 20 67 72 65 61  count being grea
14240 74 65 72 0d 0a 20 20 20 20 20 20 20 20 23 20 20  ter..        #  
14250 20 20 20 20 20 74 68 61 6e 20 7a 65 72 6f 2e 20       than zero. 
14260 20 54 68 65 73 65 20 74 65 73 74 73 20 6d 61 79   These tests may
14270 20 66 61 69 6c 20 64 75 65 20 74 6f 20 74 68 65   fail due to the
14280 20 6e 6f 6e 2d 64 65 74 65 72 6d 69 6e 69 73 74   non-determinist
14290 69 63 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20  ic..        #   
142a0 20 20 20 20 62 65 68 61 76 69 6f 72 20 6f 66 20      behavior of 
142b0 74 68 65 20 43 4c 52 20 47 43 2c 20 65 76 65 6e  the CLR GC, even
142c0 20 77 68 65 6e 20 74 68 65 72 65 20 69 73 20 6e   when there is n
142d0 6f 20 62 75 67 20 69 6e 20 74 68 65 20 63 6f 64  o bug in the cod
142e0 65 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20  e..        #    
142f0 20 20 20 62 65 69 6e 67 20 74 65 73 74 65 64 2e     being tested.
14300 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20  ..        #..   
14310 20 20 20 20 20 63 68 65 63 6b 46 6f 72 52 75 6e       checkForRun
14320 74 69 6d 65 4f 70 74 69 6f 6e 20 24 3a 3a 74 65  timeOption $::te
14330 73 74 5f 63 68 61 6e 6e 65 6c 20 6e 6f 50 6f 6f  st_channel noPoo
14340 6c 43 6f 75 6e 74 73 0d 0a 0d 0a 20 20 20 20 20  lCounts....     
14350 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20     #..        # 
14360 4e 4f 54 45 3a 20 52 65 70 6f 72 74 20 74 68 65  NOTE: Report the
14370 20 72 65 73 6f 75 72 63 65 20 75 73 61 67 65 20   resource usage 
14380 70 72 69 6f 72 20 74 6f 20 72 75 6e 6e 69 6e 67  prior to running
14390 20 61 6e 79 20 74 65 73 74 73 2e 0d 0a 20 20 20   any tests...   
143a0 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..        
143b0 72 65 70 6f 72 74 53 51 4c 69 74 65 52 65 73 6f  reportSQLiteReso
143c0 75 72 63 65 73 20 24 3a 3a 74 65 73 74 5f 63 68  urces $::test_ch
143d0 61 6e 6e 65 6c 0d 0a 0d 0a 20 20 20 20 20 20 20  annel....       
143e0 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f   #..        # NO
143f0 54 45 3a 20 53 68 6f 77 20 74 68 65 20 61 63 74  TE: Show the act
14400 69 76 65 20 74 65 73 74 20 63 6f 6e 73 74 72 61  ive test constra
14410 69 6e 74 73 2e 0d 0a 20 20 20 20 20 20 20 20 23  ints...        #
14420 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20  ..        tputs 
14430 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20  $::test_channel 
14440 5b 61 70 70 65 6e 64 41 72 67 73 20 22 2d 2d 2d  [appendArgs "---
14450 2d 20 63 6f 6e 73 74 72 61 69 6e 74 73 3a 20 22  - constraints: "
14460 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   \..            
14470 5b 66 6f 72 6d 61 74 4c 69 73 74 20 5b 6c 73 6f  [formatList [lso
14480 72 74 20 5b 67 65 74 43 6f 6e 73 74 72 61 69 6e  rt [getConstrain
14490 74 73 5d 5d 20 3c 6e 6f 6e 65 3e 5d 20 5c 6e 5d  ts]] <none>] \n]
144a0 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20  ....        #.. 
144b0 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53         # NOTE: S
144c0 61 76 65 20 74 68 65 20 74 65 73 74 20 63 6f 6e  ave the test con
144d0 73 74 72 61 69 6e 74 73 20 66 6f 72 20 75 73 65  straints for use
144e0 20 62 79 20 74 68 72 65 61 64 73 20 63 72 65 61   by threads crea
144f0 74 65 64 20 69 6e 20 74 68 69 73 0d 0a 20 20 20  ted in this..   
14500 20 20 20 20 20 23 20 20 20 20 20 20 20 61 70 70       #       app
14510 6c 69 63 61 74 69 6f 6e 20 64 6f 6d 61 69 6e 2e  lication domain.
14520 20 20 54 68 69 73 20 69 73 20 6e 65 63 65 73 73    This is necess
14530 61 72 79 20 62 65 63 61 75 73 65 20 61 6c 6c 20  ary because all 
14540 74 68 65 20 45 61 67 6c 65 0d 0a 20 20 20 20 20  the Eagle..     
14550 20 20 20 23 20 20 20 20 20 20 20 22 74 65 73 74     #       "test
14560 20 63 6f 6e 74 65 78 74 22 20 69 6e 66 6f 72 6d   context" inform
14570 61 74 69 6f 6e 20 69 73 20 70 65 72 2d 74 68 72  ation is per-thr
14580 65 61 64 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d  ead...        #.
14590 0a 20 20 20 20 20 20 20 20 69 66 20 7b 21 5b 69  .        if {![i
145a0 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 74 65 73  nfo exists ::tes
145b0 74 5f 63 6f 6e 73 74 72 61 69 6e 74 73 5d 7d 20  t_constraints]} 
145c0 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20  then {..        
145d0 20 20 73 65 74 20 3a 3a 74 65 73 74 5f 63 6f 6e    set ::test_con
145e0 73 74 72 61 69 6e 74 73 20 24 3a 3a 65 61 67 6c  straints $::eagl
145f0 65 5f 74 65 73 74 73 28 63 6f 6e 73 74 72 61 69  e_tests(constrai
14600 6e 74 73 29 0d 0a 20 20 20 20 20 20 20 20 7d 0d  nts)..        }.
14610 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20  ...        #..  
14620 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 4c 6f        # NOTE: Lo
14630 61 64 20 74 68 65 20 22 61 66 74 65 72 2d 63 6f  ad the "after-co
14640 6e 73 74 72 61 69 6e 74 73 22 20 63 75 73 74 6f  nstraints" custo
14650 6d 20 70 65 72 2d 75 73 65 72 20 61 6e 64 2f 6f  m per-user and/o
14660 72 20 70 65 72 2d 68 6f 73 74 0d 0a 20 20 20 20  r per-host..    
14670 20 20 20 20 23 20 20 20 20 20 20 20 74 65 73 74      #       test
14680 20 73 65 74 74 69 6e 67 73 20 6e 6f 77 2e 0d 0a   settings now...
14690 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..     
146a0 20 20 20 75 70 6c 65 76 65 6c 20 31 20 5b 6c 69     uplevel 1 [li
146b0 73 74 20 6c 6f 61 64 53 51 4c 69 74 65 54 65 73  st loadSQLiteTes
146c0 74 53 65 74 74 69 6e 67 73 20 24 3a 3a 74 65 73  tSettings $::tes
146d0 74 5f 63 68 61 6e 6e 65 6c 20 2e 61 66 74 65 72  t_channel .after
146e0 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a  ]....        #..
146f0 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20          # NOTE: 
14700 53 68 6f 77 20 77 68 65 6e 20 6f 75 72 20 74 65  Show when our te
14710 73 74 73 20 61 63 74 75 61 6c 6c 79 20 62 65 67  sts actually beg
14720 61 6e 20 28 6e 6f 77 29 2e 0d 0a 20 20 20 20 20  an (now)...     
14730 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 74 70     #..        tp
14740 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e  uts $::test_chan
14750 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20  nel [appendArgs 
14760 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 22  \..            "
14770 2d 2d 2d 2d 20 53 79 73 74 65 6d 2e 44 61 74 61  ---- System.Data
14780 2e 53 51 4c 69 74 65 20 74 65 73 74 73 20 62 65  .SQLite tests be
14790 67 61 6e 20 61 74 20 22 20 5c 0d 0a 20 20 20 20  gan at " \..    
147a0 20 20 20 20 20 20 20 20 5b 63 6c 6f 63 6b 20 66          [clock f
147b0 6f 72 6d 61 74 20 5b 63 6c 6f 63 6b 20 73 65 63  ormat [clock sec
147c0 6f 6e 64 73 5d 5d 20 5c 6e 5d 0d 0a 20 20 20 20  onds]] \n]..    
147d0 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20    }..    }..... 
147e0 20 20 20 70 72 6f 63 20 72 75 6e 53 51 4c 69 74     proc runSQLit
147f0 65 54 65 73 74 45 70 69 6c 6f 67 75 65 20 7b 7d  eTestEpilogue {}
14800 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20   {..      #..   
14810 20 20 20 23 20 4e 4f 54 45 3a 20 53 6b 69 70 20     # NOTE: Skip 
14820 72 75 6e 6e 69 6e 67 20 6f 75 72 20 63 75 73 74  running our cust
14830 6f 6d 20 65 70 69 6c 6f 67 75 65 20 69 66 20 74  om epilogue if t
14840 68 65 20 6d 61 69 6e 20 6f 6e 65 20 68 61 73 20  he main one has 
14850 62 65 65 6e 0d 0a 20 20 20 20 20 20 23 20 20 20  been..      #   
14860 20 20 20 20 73 6b 69 70 70 65 64 2e 0d 0a 20 20      skipped...  
14870 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20      #..      if 
14880 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a  {![info exists :
14890 3a 6e 6f 28 65 70 69 6c 6f 67 75 65 2e 65 61 67  :no(epilogue.eag
148a0 6c 65 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  le)]} then {..  
148b0 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
148c0 20 23 20 4e 4f 54 45 3a 20 53 68 6f 77 20 77 68   # NOTE: Show wh
148d0 65 6e 20 6f 75 72 20 74 65 73 74 73 20 61 63 74  en our tests act
148e0 75 61 6c 6c 79 20 65 6e 64 65 64 20 28 6e 6f 77  ually ended (now
148f0 29 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20  )...        #.. 
14900 20 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a         tputs $::
14910 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70  test_channel [ap
14920 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20  pendArgs \..    
14930 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 53 79          "---- Sy
14940 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65  stem.Data.SQLite
14950 20 74 65 73 74 73 20 65 6e 64 65 64 20 61 74 20   tests ended at 
14960 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20  " \..           
14970 20 5b 63 6c 6f 63 6b 20 66 6f 72 6d 61 74 20 5b   [clock format [
14980 63 6c 6f 63 6b 20 73 65 63 6f 6e 64 73 5d 5d 20  clock seconds]] 
14990 5c 6e 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23  \n]....        #
149a0 0d 0a 20 20 20 20 20 20 20 20 23 20 42 55 47 46  ..        # BUGF
149b0 49 58 3a 20 42 65 66 6f 72 65 20 63 68 65 63 6b  IX: Before check
149c0 69 6e 67 20 74 68 65 20 66 69 6e 61 6c 20 72 65  ing the final re
149d0 73 6f 75 72 63 65 73 20 69 6e 20 75 73 65 20 62  sources in use b
149e0 79 20 53 51 4c 69 74 65 2c 20 6d 61 6b 65 0d 0a  y SQLite, make..
149f0 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20          #       
14a00 20 20 73 75 72 65 20 62 6f 74 68 20 6f 66 20 74    sure both of t
14a10 68 65 20 50 52 41 47 4d 41 20 72 65 6c 61 74 65  he PRAGMA relate
14a20 64 20 64 69 72 65 63 74 6f 72 79 20 6e 61 6d 65  d directory name
14a30 73 20 61 72 65 20 66 72 65 65 64 2e 0d 0a 20 20  s are freed...  
14a40 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
14a50 20 63 68 65 63 6b 46 6f 72 53 51 4c 69 74 65 44   checkForSQLiteD
14a60 69 72 65 63 74 6f 72 69 65 73 20 24 3a 3a 74 65  irectories $::te
14a70 73 74 5f 63 68 61 6e 6e 65 6c 20 74 72 75 65 0d  st_channel true.
14a80 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20  ...        #..  
14a90 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 41 6c        # NOTE: Al
14aa0 73 6f 20 72 65 70 6f 72 74 20 74 68 65 20 72 65  so report the re
14ab0 73 6f 75 72 63 65 20 75 73 61 67 65 20 61 66 74  source usage aft
14ac0 65 72 20 72 75 6e 6e 69 6e 67 20 74 68 65 20 74  er running the t
14ad0 65 73 74 73 2e 0d 0a 20 20 20 20 20 20 20 20 23  ests...        #
14ae0 0d 0a 20 20 20 20 20 20 20 20 72 65 70 6f 72 74  ..        report
14af0 53 51 4c 69 74 65 52 65 73 6f 75 72 63 65 73 20  SQLiteResources 
14b00 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 0d  $::test_channel.
14b10 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20  ...        #..  
14b20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 52 65        # NOTE: Re
14b30 70 6f 72 74 20 74 68 65 20 63 72 69 74 69 63 61  port the critica
14b40 6c 20 68 61 6e 64 6c 65 20 63 6f 75 6e 74 73 20  l handle counts 
14b50 61 66 74 65 72 20 72 75 6e 6e 69 6e 67 20 74 68  after running th
14b60 65 20 74 65 73 74 73 2e 0d 0a 20 20 20 20 20 20  e tests...      
14b70 20 20 23 0d 0a 20 20 20 20 20 20 20 20 67 65 74    #..        get
14b80 53 51 4c 69 74 65 48 61 6e 64 6c 65 43 6f 75 6e  SQLiteHandleCoun
14b90 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e  ts $::test_chann
14ba0 65 6c 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20  el..      }..   
14bb0 20 7d 0d 0a 0c 0d 0a 20 20 20 20 23 23 23 23 23   }.....    #####
14bc0 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
14bd0 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
14be0 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
14bf0 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
14c00 23 23 23 23 23 23 0d 0a 20 20 20 20 23 23 23 23  ######..    ####
14c10 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
14c20 23 23 23 23 23 23 23 23 23 20 45 4e 44 20 45 61  ######### END Ea
14c30 67 6c 65 20 4f 4e 4c 59 20 23 23 23 23 23 23 23  gle ONLY #######
14c40 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
14c50 23 23 23 23 23 23 23 0d 0a 20 20 20 20 23 23 23  #######..    ###
14c60 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
14c70 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
14c80 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
14c90 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
14ca0 23 23 23 23 23 23 23 23 0d 0a 20 20 7d 0d 0a 0d  ########..  }...
14cb0 0a 20 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a 20  .  #..  # NOTE: 
14cc0 53 61 76 65 20 74 68 65 20 6e 61 6d 65 20 6f 66  Save the name of
14cd0 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 20 63   the directory c
14ce0 6f 6e 74 61 69 6e 69 6e 67 20 74 68 69 73 20 66  ontaining this f
14cf0 69 6c 65 2e 0d 0a 20 20 23 0d 0a 20 20 69 66 20  ile...  #..  if 
14d00 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 63  {![info exists c
14d10 6f 6d 6d 6f 6e 5f 64 69 72 65 63 74 6f 72 79 5d  ommon_directory]
14d20 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 73 65  } then {..    se
14d30 74 20 63 6f 6d 6d 6f 6e 5f 64 69 72 65 63 74 6f  t common_directo
14d40 72 79 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65  ry [file dirname
14d50 20 5b 69 6e 66 6f 20 73 63 72 69 70 74 5d 5d 0d   [info script]].
14d60 0a 20 20 7d 0d 0a 0d 0a 20 20 23 0d 0a 20 20 23  .  }....  #..  #
14d70 20 4e 4f 54 45 3a 20 50 72 6f 76 69 64 65 20 74   NOTE: Provide t
14d80 68 65 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53  he System.Data.S
14d90 51 4c 69 74 65 20 74 65 73 74 20 70 61 63 6b 61  QLite test packa
14da0 67 65 20 74 6f 20 74 68 65 20 69 6e 74 65 72 70  ge to the interp
14db0 72 65 74 65 72 2e 0d 0a 20 20 23 0d 0a 20 20 70  reter...  #..  p
14dc0 61 63 6b 61 67 65 20 70 72 6f 76 69 64 65 20 53  ackage provide S
14dd0 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74  ystem.Data.SQLit
14de0 65 2e 54 65 73 74 20 31 2e 30 0d 0a 7d 0d 0a     e.Test 1.0..}..