System.Data.SQLite
Hex Artifact Content
Not logged in

Artifact 009ff991552199692b585803a54a097065e562e4:


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