System.Data.SQLite
Hex Artifact Content
Not logged in

Artifact a44f377eaddef5bf8fbfb3ecfcd0a3ca7a40a59f:


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 76 65 6e 64 6f 72 2e 65 61 67  .#..# vendor.eag
0060: 6c 65 20 2d 2d 0d 0a 23 0d 0a 23 20 45 78 74 65  le --..#..# Exte
0070: 6e 73 69 62 6c 65 20 41 64 61 70 74 61 62 6c 65  nsible Adaptable
0080: 20 47 65 6e 65 72 61 6c 69 7a 65 64 20 4c 6f 67   Generalized Log
0090: 69 63 20 45 6e 67 69 6e 65 20 28 45 61 67 6c 65  ic Engine (Eagle
00a0: 29 0d 0a 23 20 56 65 6e 64 6f 72 20 49 6e 69 74  )..# Vendor Init
00b0: 69 61 6c 69 7a 61 74 69 6f 6e 20 46 69 6c 65 20  ialization File 
00c0: 66 6f 72 20 53 79 73 74 65 6d 2e 44 61 74 61 2e  for System.Data.
00d0: 53 51 4c 69 74 65 0d 0a 23 0d 0a 23 20 43 6f 70  SQLite..#..# Cop
00e0: 79 72 69 67 68 74 20 28 63 29 20 32 30 30 37 2d  yright (c) 2007-
00f0: 32 30 31 32 20 62 79 20 4a 6f 65 20 4d 69 73 74  2012 by Joe Mist
0100: 61 63 68 6b 69 6e 2e 20 20 41 6c 6c 20 72 69 67  achkin.  All rig
0110: 68 74 73 20 72 65 73 65 72 76 65 64 2e 0d 0a 23  hts reserved...#
0120: 0d 0a 23 20 53 65 65 20 74 68 65 20 66 69 6c 65  ..# See the file
0130: 20 22 6c 69 63 65 6e 73 65 2e 74 65 72 6d 73 22   "license.terms"
0140: 20 66 6f 72 20 69 6e 66 6f 72 6d 61 74 69 6f 6e   for information
0150: 20 6f 6e 20 75 73 61 67 65 20 61 6e 64 20 72 65   on usage and re
0160: 64 69 73 74 72 69 62 75 74 69 6f 6e 20 6f 66 0d  distribution of.
0170: 0a 23 20 74 68 69 73 20 66 69 6c 65 2c 20 61 6e  .# this file, an
0180: 64 20 66 6f 72 20 61 20 44 49 53 43 4c 41 49 4d  d for a DISCLAIM
0190: 45 52 20 4f 46 20 41 4c 4c 20 57 41 52 52 41 4e  ER OF ALL WARRAN
01a0: 54 49 45 53 2e 0d 0a 23 0d 0a 23 20 52 43 53 3a  TIES...#..# RCS:
01b0: 20 40 28 23 29 20 24 49 64 3a 20 24 0d 0a 23 0d   @(#) $Id: $..#.
01c0: 0a 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  .###############
01d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
01e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
01f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0200: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0210: 0d 0a 0d 0a 23 0d 0a 23 20 53 54 55 42 3a 20 54  ....#..# STUB: T
0220: 68 69 73 20 73 63 72 69 70 74 20 66 69 6c 65 20  his script file 
0230: 69 73 20 61 20 70 6c 61 63 65 68 6f 6c 64 65 72  is a placeholder
0240: 2e 20 20 54 68 69 73 20 66 69 6c 65 2c 20 77 68  .  This file, wh
0250: 65 6e 20 70 72 65 73 65 6e 74 2c 20 69 73 20 61  en present, is a
0260: 6c 77 61 79 73 0d 0a 23 20 20 20 20 20 20 20 65  lways..#       e
0270: 76 61 6c 75 61 74 65 64 20 77 68 65 6e 20 61 6e  valuated when an
0280: 20 69 6e 74 65 72 70 72 65 74 65 72 20 69 73 20   interpreter is 
0290: 69 6e 69 74 69 61 6c 69 7a 65 64 2e 20 20 56 65  initialized.  Ve
02a0: 6e 64 6f 72 73 20 64 69 73 74 72 69 62 75 74 69  ndors distributi
02b0: 6e 67 0d 0a 23 20 20 20 20 20 20 20 45 61 67 6c  ng..#       Eagl
02c0: 65 20 63 61 6e 20 70 6c 61 63 65 20 63 75 73 74  e can place cust
02d0: 6f 6d 20 61 70 70 6c 69 63 61 74 69 6f 6e 2d 73  om application-s
02e0: 70 65 63 69 66 69 63 2c 20 69 6e 74 65 72 70 72  pecific, interpr
02f0: 65 74 65 72 2d 73 70 65 63 69 66 69 63 0d 0a 23  eter-specific..#
0300: 20 20 20 20 20 20 20 69 6e 69 74 69 61 6c 69 7a         initializ
0310: 61 74 69 6f 6e 20 61 6e 64 2f 6f 72 20 63 75 73  ation and/or cus
0320: 74 6f 6d 69 7a 61 74 69 6f 6e 73 20 69 6e 20 68  tomizations in h
0330: 65 72 65 2e 20 20 41 64 64 69 74 69 6f 6e 61 6c  ere.  Additional
0340: 6c 79 2c 20 74 68 69 73 20 66 69 6c 65 0d 0a 23  ly, this file..#
0350: 20 20 20 20 20 20 20 6d 61 79 20 63 6f 6e 74 61         may conta
0360: 69 6e 20 70 65 72 2d 69 6e 74 65 72 70 72 65 74  in per-interpret
0370: 65 72 20 63 75 73 74 6f 6d 69 7a 61 74 69 6f 6e  er customization
0380: 73 20 72 65 71 75 69 72 65 64 20 77 68 65 6e 20  s required when 
0390: 70 6f 72 74 69 6e 67 20 74 6f 0d 0a 23 20 20 20  porting to..#   
03a0: 20 20 20 20 6e 65 77 20 70 6c 61 74 66 6f 72 6d      new platform
03b0: 73 2c 20 6f 70 65 72 61 74 69 6e 67 20 73 79 73  s, operating sys
03c0: 74 65 6d 73 2c 20 65 74 63 2e 0d 0a 23 0d 0a 0c  tems, etc...#...
03d0: 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ..##############
03e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
03f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0400: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0410: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0420: 23 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23 23  #..#############
0430: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0440: 23 20 42 45 47 49 4e 20 56 45 4e 44 4f 52 20 43  # BEGIN VENDOR C
0450: 4f 44 45 20 23 23 23 23 23 23 23 23 23 23 23 23  ODE ############
0460: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0470: 23 23 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23  ##..############
0480: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0490: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
04a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
04b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
04c0: 23 23 23 0d 0a 23 0d 0a 23 20 4e 4f 54 45 3a 20  ###..#..# NOTE: 
04d0: 55 73 65 20 6f 75 72 20 6f 77 6e 20 6e 61 6d 65  Use our own name
04e0: 73 70 61 63 65 20 68 65 72 65 20 62 65 63 61 75  space here becau
04f0: 73 65 20 65 76 65 6e 20 74 68 6f 75 67 68 20 77  se even though w
0500: 65 20 64 6f 20 6e 6f 74 20 64 69 72 65 63 74 6c  e do not directl
0510: 79 0d 0a 23 20 20 20 20 20 20 20 73 75 70 70 6f  y..#       suppo
0520: 72 74 20 6e 61 6d 65 73 70 61 63 65 73 20 6f 75  rt namespaces ou
0530: 72 73 65 6c 76 65 73 2c 20 77 65 20 64 6f 20 6e  rselves, we do n
0540: 6f 74 20 77 61 6e 74 20 74 6f 20 70 6f 6c 6c 75  ot want to pollu
0550: 74 65 20 74 68 65 20 67 6c 6f 62 61 6c 0d 0a 23  te the global..#
0560: 20 20 20 20 20 20 20 6e 61 6d 65 73 70 61 63 65         namespace
0570: 20 69 66 20 74 68 69 73 20 73 63 72 69 70 74 20   if this script 
0580: 61 63 74 75 61 6c 6c 79 20 65 6e 64 73 20 75 70  actually ends up
0590: 20 62 65 69 6e 67 20 65 76 61 6c 75 61 74 65 64   being evaluated
05a0: 20 69 6e 20 54 63 6c 2e 0d 0a 23 0d 0a 6e 61 6d   in Tcl...#..nam
05b0: 65 73 70 61 63 65 20 65 76 61 6c 20 3a 3a 45 61  espace eval ::Ea
05c0: 67 6c 65 20 7b 0d 0a 20 20 69 66 20 7b 5b 69 73  gle {..  if {[is
05d0: 45 61 67 6c 65 5d 7d 20 74 68 65 6e 20 7b 0d 0a  Eagle]} then {..
05e0: 20 20 20 20 70 72 6f 63 20 63 68 65 63 6b 46 6f      proc checkFo
05f0: 72 54 65 73 74 4f 76 65 72 72 69 64 65 73 20 7b  rTestOverrides {
0600: 20 63 68 61 6e 6e 65 6c 20 76 61 72 4e 61 6d 65   channel varName
0610: 73 20 71 75 69 65 74 20 7d 20 7b 0d 0a 20 20 20  s quiet } {..   
0620: 20 20 20 73 65 74 20 72 65 73 75 6c 74 20 30 0d     set result 0.
0630: 0a 0d 0a 20 20 20 20 20 20 66 6f 72 65 61 63 68  ...      foreach
0640: 20 76 61 72 4e 61 6d 65 20 24 76 61 72 4e 61 6d   varName $varNam
0650: 65 73 20 7b 0d 0a 20 20 20 20 20 20 20 20 69 66  es {..        if
0660: 20 7b 21 5b 75 70 6c 65 76 65 6c 20 31 20 5b 6c   {![uplevel 1 [l
0670: 69 73 74 20 69 6e 66 6f 20 65 78 69 73 74 73 20  ist info exists 
0680: 24 76 61 72 4e 61 6d 65 5d 5d 7d 20 74 68 65 6e  $varName]]} then
0690: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 63 6f   {..          co
06a0: 6e 74 69 6e 75 65 0d 0a 20 20 20 20 20 20 20 20  ntinue..        
06b0: 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 69 6e 63  }....        inc
06c0: 72 20 72 65 73 75 6c 74 0d 0a 0d 0a 20 20 20 20  r result....    
06d0: 20 20 20 20 69 66 20 7b 21 24 71 75 69 65 74 7d      if {!$quiet}
06e0: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20   then {..       
06f0: 20 20 20 63 61 74 63 68 20 7b 0d 0a 20 20 20 20     catch {..    
0700: 20 20 20 20 20 20 20 20 74 71 70 75 74 73 20 24          tqputs $
0710: 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41  channel [appendA
0720: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  rgs \..         
0730: 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 66 6f 75         "---- fou
0740: 6e 64 20 76 65 6e 64 6f 72 2d 73 70 65 63 69 66  nd vendor-specif
0750: 69 63 20 74 65 73 74 20 6f 76 65 72 72 69 64 65  ic test override
0760: 20 5c 22 22 20 24 76 61 72 4e 61 6d 65 20 5c 0d   \"" $varName \.
0770: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
0780: 20 22 5c 22 20 77 69 74 68 20 76 61 6c 75 65 20   "\" with value 
0790: 5c 22 22 20 5b 75 70 6c 65 76 65 6c 20 31 20 5b  \"" [uplevel 1 [
07a0: 6c 69 73 74 20 73 65 74 20 24 76 61 72 4e 61 6d  list set $varNam
07b0: 65 5d 5d 20 5c 22 5c 6e 5d 0d 0a 20 20 20 20 20  e]] \"\n]..     
07c0: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20       }..        
07d0: 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20  }..      }....  
07e0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e      #..      # N
07f0: 4f 54 45 3a 20 4b 65 65 70 20 74 72 61 63 6b 20  OTE: Keep track 
0800: 6f 66 20 74 68 65 20 6c 69 73 74 20 6f 66 20 74  of the list of t
0810: 65 73 74 20 6f 76 65 72 72 69 64 65 20 76 61 72  est override var
0820: 69 61 62 6c 65 73 2c 20 66 6f 72 20 6c 61 74 65  iables, for late
0830: 72 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20  r..      #      
0840: 20 75 73 65 20 62 79 20 74 68 65 20 74 65 73 74   use by the test
0850: 20 73 75 69 74 65 2e 20 20 54 68 69 73 20 6e 65   suite.  This ne
0860: 65 64 73 20 74 6f 20 62 65 20 64 6f 6e 65 20 61  eds to be done a
0870: 66 74 65 72 20 74 68 65 20 6c 6f 6f 70 0d 0a 20  fter the loop.. 
0880: 20 20 20 20 20 23 20 20 20 20 20 20 20 61 62 6f       #       abo
0890: 76 65 20 62 65 63 61 75 73 65 20 74 68 65 20 76  ve because the v
08a0: 61 72 69 61 62 6c 65 20 75 73 65 64 20 74 6f 20  ariable used to 
08b0: 6b 65 65 70 20 74 72 61 63 6b 20 69 73 20 6c 69  keep track is li
08c0: 73 74 65 64 20 77 69 74 68 0d 0a 20 20 20 20 20  sted with..     
08d0: 20 23 20 20 20 20 20 20 20 74 68 65 20 6f 74 68   #       the oth
08e0: 65 72 20 70 6f 73 73 69 62 6c 65 20 74 65 73 74  er possible test
08f0: 20 6f 76 65 72 72 69 64 65 20 76 61 72 69 61 62   override variab
0900: 6c 65 73 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20  les...      #.. 
0910: 20 20 20 20 20 69 66 20 7b 21 5b 75 70 6c 65 76       if {![uplev
0920: 65 6c 20 31 20 5b 6c 69 73 74 20 69 6e 66 6f 20  el 1 [list info 
0930: 65 78 69 73 74 73 20 74 65 73 74 5f 6f 76 65 72  exists test_over
0940: 72 69 64 65 73 5d 5d 7d 20 74 68 65 6e 20 7b 0d  rides]]} then {.
0950: 0a 20 20 20 20 20 20 20 20 75 70 6c 65 76 65 6c  .        uplevel
0960: 20 31 20 5b 6c 69 73 74 20 73 65 74 20 74 65 73   1 [list set tes
0970: 74 5f 6f 76 65 72 72 69 64 65 73 20 24 76 61 72  t_overrides $var
0980: 4e 61 6d 65 73 5d 0d 0a 20 20 20 20 20 20 7d 0d  Names]..      }.
0990: 0a 0d 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20  ...      return 
09a0: 24 72 65 73 75 6c 74 0d 0a 20 20 20 20 7d 0d 0a  $result..    }..
09b0: 0c 0d 0a 20 20 20 20 70 72 6f 63 20 72 65 66 72  ...    proc refr
09c0: 65 73 68 41 75 74 6f 50 61 74 68 20 7b 7d 20 7b  eshAutoPath {} {
09d0: 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 6c 6c 65  ..      if {[lle
09e0: 6e 67 74 68 20 5b 69 6e 66 6f 20 63 6f 6d 6d 61  ngth [info comma
09f0: 6e 64 73 20 64 65 62 75 67 5d 5d 20 3e 20 30 20  nds debug]] > 0 
0a00: 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  && \..          
0a10: 5b 6c 6c 65 6e 67 74 68 20 5b 69 6e 66 6f 20 73  [llength [info s
0a20: 75 62 63 6f 6d 6d 61 6e 64 73 20 64 65 62 75 67  ubcommands debug
0a30: 20 72 65 66 72 65 73 68 61 75 74 6f 70 61 74 68   refreshautopath
0a40: 5d 5d 20 3e 20 30 20 26 26 20 5c 0d 0a 20 20 20  ]] > 0 && \..   
0a50: 20 20 20 20 20 20 20 5b 63 61 74 63 68 20 7b 64         [catch {d
0a60: 65 62 75 67 20 72 65 66 72 65 73 68 61 75 74 6f  ebug refreshauto
0a70: 70 61 74 68 20 74 72 75 65 7d 5d 20 3d 3d 20 30  path true}] == 0
0a80: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..      
0a90: 20 20 72 65 74 75 72 6e 20 64 65 62 75 67 0d 0a    return debug..
0aa0: 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20        }....     
0ab0: 20 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 5b 69   if {[llength [i
0ac0: 6e 66 6f 20 63 6f 6d 6d 61 6e 64 73 20 6f 62 6a  nfo commands obj
0ad0: 65 63 74 5d 5d 20 3e 20 30 20 26 26 20 5c 0d 0a  ect]] > 0 && \..
0ae0: 20 20 20 20 20 20 20 20 20 20 5b 63 61 74 63 68            [catch
0af0: 20 7b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20   {object invoke 
0b00: 55 74 69 6c 69 74 79 20 52 65 66 72 65 73 68 41  Utility RefreshA
0b10: 75 74 6f 50 61 74 68 4c 69 73 74 20 74 72 75 65  utoPathList true
0b20: 7d 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d  }] == 0} then {.
0b30: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20  .        return 
0b40: 6f 62 6a 65 63 74 0d 0a 20 20 20 20 20 20 7d 0d  object..      }.
0b50: 0a 0d 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20  ...      return 
0b60: 22 22 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20  ""..    }.....  
0b70: 20 20 70 72 6f 63 20 61 64 64 54 65 73 74 53 75    proc addTestSu
0b80: 69 74 65 54 6f 41 75 74 6f 50 61 74 68 20 7b 20  iteToAutoPath { 
0b90: 63 68 61 6e 6e 65 6c 20 76 61 72 4e 61 6d 65 20  channel varName 
0ba0: 71 75 69 65 74 20 7d 20 7b 0d 0a 20 20 20 20 20  quiet } {..     
0bb0: 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45   #..      # NOTE
0bc0: 3a 20 53 74 61 72 74 20 77 69 74 68 20 74 68 65  : Start with the
0bd0: 20 64 69 72 65 63 74 6f 72 79 20 63 6f 6e 74 61   directory conta
0be0: 69 6e 69 6e 67 20 74 68 69 73 20 66 69 6c 65 2e  ining this file.
0bf0: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20  ..      #..     
0c00: 20 73 65 74 20 64 69 72 20 5b 66 69 6c 65 20 6e   set dir [file n
0c10: 6f 72 6d 61 6c 69 7a 65 20 5b 66 69 6c 65 20 64  ormalize [file d
0c20: 69 72 6e 61 6d 65 20 5b 69 6e 66 6f 20 73 63 72  irname [info scr
0c30: 69 70 74 5d 5d 5d 0d 0a 0d 0a 20 20 20 20 20 20  ipt]]]....      
0c40: 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a  #..      # NOTE:
0c50: 20 4b 65 65 70 20 67 6f 69 6e 67 20 75 6e 74 69   Keep going unti
0c60: 6c 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 20  l the directory 
0c70: 6e 61 6d 65 20 69 73 20 65 6d 70 74 79 20 4f 52  name is empty OR
0c80: 20 69 73 20 61 63 74 75 61 6c 6c 79 20 74 68 65   is actually the
0c90: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20  ..      #       
0ca0: 72 6f 6f 74 20 6f 66 20 74 68 65 20 61 73 73 6f  root of the asso
0cb0: 63 69 61 74 65 64 20 76 6f 6c 75 6d 65 2e 0d 0a  ciated volume...
0cc0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 77        #..      w
0cd0: 68 69 6c 65 20 7b 5b 73 74 72 69 6e 67 20 6c 65  hile {[string le
0ce0: 6e 67 74 68 20 24 64 69 72 5d 20 3e 20 30 20 26  ngth $dir] > 0 &
0cf0: 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 5b  & \..          [
0d00: 6c 73 65 61 72 63 68 20 2d 65 78 61 63 74 20 2d  lsearch -exact -
0d10: 6e 6f 63 61 73 65 20 2d 2d 20 5b 66 69 6c 65 20  nocase -- [file 
0d20: 76 6f 6c 75 6d 65 73 5d 20 24 64 69 72 5d 20 3d  volumes] $dir] =
0d30: 3d 20 2d 31 7d 20 7b 0d 0a 20 20 20 20 20 20 20  = -1} {..       
0d40: 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f   #..        # NO
0d50: 54 45 3a 20 53 65 74 20 74 68 65 20 73 75 62 2d  TE: Set the sub-
0d60: 64 69 72 65 63 74 6f 72 79 20 77 68 65 72 65 20  directory where 
0d70: 74 68 65 20 70 61 63 6b 61 67 65 20 69 6e 64 65  the package inde
0d80: 78 20 66 69 6c 65 20 73 68 6f 75 6c 64 0d 0a 20  x file should.. 
0d90: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 62         #       b
0da0: 65 20 6c 6f 63 61 74 65 64 20 77 69 74 68 69 6e  e located within
0db0: 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 20 74   the directory t
0dc0: 6f 20 62 65 20 73 65 61 72 63 68 65 64 2e 0d 0a  o be searched...
0dd0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..     
0de0: 20 20 20 73 65 74 20 64 69 72 32 20 5b 66 69 6c     set dir2 [fil
0df0: 65 20 6a 6f 69 6e 20 6c 69 62 20 53 79 73 74 65  e join lib Syste
0e00: 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 5d 0d 0a  m.Data.SQLite]..
0e10: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20  ..        #..   
0e20: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 44 6f 65       # NOTE: Doe
0e30: 73 20 74 68 69 73 20 64 69 72 65 63 74 6f 72 79  s this directory
0e40: 20 68 61 76 65 20 74 68 65 20 6e 65 63 65 73 73   have the necess
0e50: 61 72 79 20 73 75 62 2d 64 69 72 65 63 74 6f 72  ary sub-director
0e60: 79 20 74 68 61 74 0d 0a 20 20 20 20 20 20 20 20  y that..        
0e70: 23 20 20 20 20 20 20 20 63 6f 6e 74 61 69 6e 73  #       contains
0e80: 20 61 20 70 61 63 6b 61 67 65 20 69 6e 64 65 78   a package index
0e90: 20 66 69 6c 65 3f 0d 0a 20 20 20 20 20 20 20 20   file?..        
0ea0: 23 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b  #..        if {[
0eb0: 66 69 6c 65 20 65 78 69 73 74 73 20 5b 66 69 6c  file exists [fil
0ec0: 65 20 6a 6f 69 6e 20 24 64 69 72 20 24 64 69 72  e join $dir $dir
0ed0: 32 5d 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20 20  2]] && \..      
0ee0: 20 20 20 20 20 20 5b 66 69 6c 65 20 69 73 64 69        [file isdi
0ef0: 72 65 63 74 6f 72 79 20 5b 66 69 6c 65 20 6a 6f  rectory [file jo
0f00: 69 6e 20 24 64 69 72 20 24 64 69 72 32 5d 5d 20  in $dir $dir2]] 
0f10: 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  && \..          
0f20: 20 20 5b 66 69 6c 65 20 65 78 69 73 74 73 20 5b    [file exists [
0f30: 66 69 6c 65 20 6a 6f 69 6e 20 24 64 69 72 20 24  file join $dir $
0f40: 64 69 72 32 20 70 6b 67 49 6e 64 65 78 2e 65 61  dir2 pkgIndex.ea
0f50: 67 6c 65 5d 5d 20 26 26 20 5c 0d 0a 20 20 20 20  gle]] && \..    
0f60: 20 20 20 20 20 20 20 20 5b 66 69 6c 65 20 69 73          [file is
0f70: 66 69 6c 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20  file [file join 
0f80: 24 64 69 72 20 24 64 69 72 32 20 70 6b 67 49 6e  $dir $dir2 pkgIn
0f90: 64 65 78 2e 65 61 67 6c 65 5d 5d 7d 20 74 68 65  dex.eagle]]} the
0fa0: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23  n {..          #
0fb0: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f  ..          # NO
0fc0: 54 45 3a 20 49 66 20 72 65 71 75 65 73 74 65 64  TE: If requested
0fd0: 2c 20 67 69 76 65 20 6f 75 72 20 63 61 6c 6c 65  , give our calle
0fe0: 72 20 61 63 63 65 73 73 20 74 6f 20 74 68 65 20  r access to the 
0ff0: 6e 61 6d 65 20 6f 66 20 74 68 65 0d 0a 20 20 20  name of the..   
1000: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 64         #       d
1010: 69 72 65 63 74 6f 72 79 20 77 65 20 6a 75 73 74  irectory we just
1020: 20 66 6f 75 6e 64 2e 0d 0a 20 20 20 20 20 20 20   found...       
1030: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20     #..          
1040: 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67  if {[string leng
1050: 74 68 20 24 76 61 72 4e 61 6d 65 5d 20 3e 20 30  th $varName] > 0
1060: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..      
1070: 20 20 20 20 20 20 75 70 76 61 72 20 31 20 24 76        upvar 1 $v
1080: 61 72 4e 61 6d 65 20 64 69 72 33 0d 0a 20 20 20  arName dir3..   
1090: 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20         }....    
10a0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
10b0: 20 20 20 23 20 4e 4f 54 45 3a 20 4f 6b 2c 20 73     # NOTE: Ok, s
10c0: 68 6f 77 20 74 68 65 20 64 69 72 65 63 74 6f 72  how the director
10d0: 79 20 77 65 20 66 6f 75 6e 64 2e 0d 0a 20 20 20  y we found...   
10e0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..      
10f0: 20 20 20 20 73 65 74 20 64 69 72 33 20 5b 66 69      set dir3 [fi
1100: 6c 65 20 6a 6f 69 6e 20 24 64 69 72 20 24 64 69  le join $dir $di
1110: 72 32 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20  r2]....         
1120: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20   #..          # 
1130: 4e 4f 54 45 3a 20 57 65 20 66 6f 75 6e 64 20 74  NOTE: We found t
1140: 68 65 20 6e 65 63 65 73 73 61 72 79 20 64 69 72  he necessary dir
1150: 65 63 74 6f 72 79 20 74 6f 20 61 64 64 20 74 6f  ectory to add to
1160: 20 74 68 65 20 61 75 74 6f 2d 70 61 74 68 3b 0d   the auto-path;.
1170: 0a 20 20 20 20 20 20 20 20 20 20 23 20 20 20 20  .          #    
1180: 20 20 20 48 6f 77 65 76 65 72 2c 20 77 65 20 63     However, we c
1190: 61 6e 6e 6f 74 20 73 69 6d 70 6c 79 20 61 64 64  annot simply add
11a0: 20 69 74 20 74 6f 20 74 68 65 20 61 75 74 6f 2d   it to the auto-
11b0: 70 61 74 68 20 64 69 72 65 63 74 6c 79 0d 0a 20  path directly.. 
11c0: 20 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20           #      
11d0: 20 62 65 63 61 75 73 65 20 74 68 65 20 61 75 74   because the aut
11e0: 6f 2d 70 61 74 68 20 69 73 20 64 79 6e 61 6d 69  o-path is dynami
11f0: 63 61 6c 6c 79 20 63 6f 6e 73 74 72 75 63 74 65  cally constructe
1200: 64 20 61 66 74 65 72 20 74 68 69 73 0d 0a 20 20  d after this..  
1210: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20          #       
1220: 73 63 72 69 70 74 20 69 73 20 65 76 61 6c 75 61  script is evalua
1230: 74 65 64 3b 20 74 68 65 72 65 66 6f 72 65 2c 20  ted; therefore, 
1240: 73 65 74 20 74 68 65 20 45 61 67 6c 65 20 6c 69  set the Eagle li
1250: 62 72 61 72 79 20 70 61 74 68 0d 0a 20 20 20 20  brary path..    
1260: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 65 6e        #       en
1270: 76 69 72 6f 6e 6d 65 6e 74 20 76 61 72 69 61 62  vironment variab
1280: 6c 65 20 61 6e 64 20 66 6f 72 63 65 20 74 68 65  le and force the
1290: 20 61 70 70 72 6f 70 72 69 61 74 65 20 69 6e 74   appropriate int
12a0: 65 72 6e 61 6c 20 70 61 74 68 0d 0a 20 20 20 20  ernal path..    
12b0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 6c 69        #       li
12c0: 73 74 20 74 6f 20 62 65 20 72 65 66 72 65 73 68  st to be refresh
12d0: 65 64 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23  ed...          #
12e0: 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7b  ..          if {
12f0: 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a  ![info exists ::
1300: 65 6e 76 28 45 41 47 4c 45 4c 49 42 50 41 54 48  env(EAGLELIBPATH
1310: 29 5d 20 7c 7c 20 5c 0d 0a 20 20 20 20 20 20 20  )] || \..       
1320: 20 20 20 20 20 20 20 5b 6c 73 65 61 72 63 68 20         [lsearch 
1330: 2d 65 78 61 63 74 20 24 3a 3a 65 6e 76 28 45 41  -exact $::env(EA
1340: 47 4c 45 4c 49 42 50 41 54 48 29 20 24 64 69 72  GLELIBPATH) $dir
1350: 33 5d 20 3d 3d 20 2d 31 7d 20 74 68 65 6e 20 7b  3] == -1} then {
1360: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 0d  ..            #.
1370: 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 20 4e  .            # N
1380: 4f 54 45 3a 20 49 66 20 77 65 20 68 61 76 65 20  OTE: If we have 
1390: 4e 4f 54 20 62 65 65 6e 20 69 6e 73 74 72 75 63  NOT been instruc
13a0: 74 65 64 20 74 6f 20 62 65 20 71 75 69 65 74 2c  ted to be quiet,
13b0: 20 72 65 70 6f 72 74 20 6e 6f 77 2e 0d 0a 20 20   report now...  
13c0: 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20            #..   
13d0: 20 20 20 20 20 20 20 20 20 69 66 20 7b 21 24 71           if {!$q
13e0: 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  uiet} then {..  
13f0: 20 20 20 20 20 20 20 20 20 20 20 20 63 61 74 63              catc
1400: 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20  h {..           
1410: 20 20 20 20 20 74 71 70 75 74 73 20 24 63 68 61       tqputs $cha
1420: 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73  nnel [appendArgs
1430: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   \..            
1440: 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 66 6f          "---- fo
1450: 75 6e 64 20 76 65 6e 64 6f 72 2d 73 70 65 63 69  und vendor-speci
1460: 66 69 63 20 74 65 73 74 20 70 61 63 6b 61 67 65  fic test package
1470: 20 64 69 72 65 63 74 6f 72 79 20 5c 22 22 20 5c   directory \"" \
1480: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
1490: 20 20 20 20 20 20 24 64 69 72 33 20 22 5c 22 2c        $dir3 "\",
14a0: 20 61 64 64 69 6e 67 2e 2e 2e 5c 6e 22 5d 0d 0a   adding...\n"]..
14b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d                }.
14c0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a  .            }..
14d0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 0d  ..            #.
14e0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 20 4e  .            # N
14f0: 4f 54 45 3a 20 41 70 70 65 6e 64 20 74 68 65 20  OTE: Append the 
1500: 64 69 72 65 63 74 6f 72 79 20 74 6f 20 74 68 65  directory to the
1510: 20 6e 65 63 65 73 73 61 72 79 20 65 6e 76 69 72   necessary envir
1520: 6f 6e 6d 65 6e 74 20 76 61 72 69 61 62 6c 65 0d  onment variable.
1530: 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 20 20  .            #  
1540: 20 20 20 20 20 73 6f 20 74 68 61 74 20 69 74 20       so that it 
1550: 77 69 6c 6c 20 67 65 74 20 70 69 63 6b 65 64 20  will get picked 
1560: 75 70 20 77 68 65 6e 20 45 61 67 6c 65 20 61 63  up when Eagle ac
1570: 74 75 61 6c 6c 79 20 72 65 62 75 69 6c 64 73 0d  tually rebuilds.
1580: 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 20 20  .            #  
1590: 20 20 20 20 20 74 68 65 20 61 75 74 6f 2d 70 61       the auto-pa
15a0: 74 68 20 6c 69 73 74 20 28 62 65 6c 6f 77 29 2e  th list (below).
15b0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 0d  ..            #.
15c0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 61 70  .            lap
15d0: 70 65 6e 64 20 3a 3a 65 6e 76 28 45 41 47 4c 45  pend ::env(EAGLE
15e0: 4c 49 42 50 41 54 48 29 20 24 64 69 72 33 0d 0a  LIBPATH) $dir3..
15f0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 0d  ..            #.
1600: 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 20 4e  .            # N
1610: 4f 54 45 3a 20 41 74 74 65 6d 70 74 20 74 6f 20  OTE: Attempt to 
1620: 66 6f 72 63 65 20 45 61 67 6c 65 20 74 6f 20 72  force Eagle to r
1630: 65 62 75 69 6c 64 20 74 68 65 20 61 75 74 6f 2d  ebuild the auto-
1640: 70 61 74 68 20 66 6f 72 20 74 68 65 0d 0a 20 20  path for the..  
1650: 20 20 20 20 20 20 20 20 20 20 23 20 20 20 20 20            #     
1660: 20 20 63 75 72 72 65 6e 74 20 69 6e 74 65 72 70    current interp
1670: 72 65 74 65 72 20 72 69 67 68 74 20 6e 6f 77 2e  reter right now.
1680: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 0d  ..            #.
1690: 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74  .            set
16a0: 20 72 65 66 72 65 73 68 20 5b 72 65 66 72 65 73   refresh [refres
16b0: 68 41 75 74 6f 50 61 74 68 5d 0d 0a 0d 0a 20 20  hAutoPath]....  
16c0: 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 5b 73            if {[s
16d0: 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 72 65  tring length $re
16e0: 66 72 65 73 68 5d 20 3d 3d 20 30 7d 20 74 68 65  fresh] == 0} the
16f0: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20  n {..           
1700: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20     #..          
1710: 20 20 20 20 23 20 4e 4f 54 45 3a 20 4f 6b 2c 20      # NOTE: Ok, 
1720: 6d 61 79 62 65 20 74 68 65 20 5b 6f 62 6a 65 63  maybe the [objec
1730: 74 5d 20 63 6f 6d 6d 61 6e 64 20 69 73 20 6e 6f  t] command is no
1740: 74 20 61 76 61 69 6c 61 62 6c 65 2e 20 20 52 65  t available.  Re
1750: 73 63 61 6e 0d 0a 20 20 20 20 20 20 20 20 20 20  scan..          
1760: 20 20 20 20 23 20 20 20 20 20 20 20 74 68 65 20      #       the 
1770: 70 61 63 6b 61 67 65 20 69 6e 64 65 78 65 73 20  package indexes 
1780: 75 73 69 6e 67 20 74 68 65 20 5b 70 61 63 6b 61  using the [packa
1790: 67 65 20 73 63 61 6e 5d 20 73 75 62 2d 63 6f 6d  ge scan] sub-com
17a0: 6d 61 6e 64 0d 0a 20 20 20 20 20 20 20 20 20 20  mand..          
17b0: 20 20 20 20 23 20 20 20 20 20 20 20 69 6e 20 74      #       in t
17c0: 68 61 74 20 63 61 73 65 2e 20 20 54 68 65 20 64  hat case.  The d
17d0: 69 72 65 63 74 6f 72 69 65 73 20 77 69 74 68 69  irectories withi
17e0: 6e 20 45 41 47 4c 45 4c 49 42 50 41 54 48 20 77  n EAGLELIBPATH w
17f0: 69 6c 6c 0d 0a 20 20 20 20 20 20 20 20 20 20 20  ill..           
1800: 20 20 20 23 20 20 20 20 20 20 20 6e 6f 74 20 62     #       not b
1810: 65 20 61 64 64 65 64 20 74 6f 20 74 68 65 20 61  e added to the a
1820: 75 74 6f 2d 70 61 74 68 3b 20 68 6f 77 65 76 65  uto-path; howeve
1830: 72 2c 20 61 6c 6c 20 74 68 65 20 70 61 63 6b 61  r, all the packa
1840: 67 65 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  ge..            
1850: 20 20 23 20 20 20 20 20 20 20 69 6e 64 65 78 65    #       indexe
1860: 73 20 61 6e 64 20 74 68 65 69 72 20 61 73 73 6f  s and their asso
1870: 63 69 61 74 65 64 20 70 61 63 6b 61 67 65 73 20  ciated packages 
1880: 77 69 6c 6c 20 62 65 20 61 76 61 69 6c 61 62 6c  will be availabl
1890: 65 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  e...            
18a0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 20    #..           
18b0: 20 20 20 69 66 20 7b 21 24 71 75 69 65 74 7d 20     if {!$quiet} 
18c0: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20  then {..        
18d0: 20 20 20 20 20 20 20 20 63 61 74 63 68 20 7b 0d          catch {.
18e0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
18f0: 20 20 20 74 71 70 75 74 73 20 24 63 68 61 6e 6e     tqputs $chann
1900: 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c  el [appendArgs \
1910: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
1920: 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 75 6e          "---- un
1930: 61 62 6c 65 20 74 6f 20 66 6f 72 63 69 62 6c 79  able to forcibly
1940: 20 72 65 66 72 65 73 68 20 61 75 74 6f 2d 70 61   refresh auto-pa
1950: 74 68 20 6c 69 73 74 2c 20 22 20 5c 0d 0a 20 20  th list, " \..  
1960: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1970: 20 20 20 20 22 73 63 61 6e 6e 69 6e 67 20 5c 22      "scanning \"
1980: 22 20 24 3a 3a 65 6e 76 28 45 41 47 4c 45 4c 49  " $::env(EAGLELI
1990: 42 50 41 54 48 29 20 22 5c 22 20 69 6e 73 74 65  BPATH) "\" inste
19a0: 61 64 2e 2e 2e 5c 6e 22 5d 0d 0a 20 20 20 20 20  ad...\n"]..     
19b0: 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20             }..  
19c0: 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 0d              }...
19d0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23  .              #
19e0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
19f0: 23 20 4e 4f 54 45 3a 20 49 6e 20 74 68 65 6f 72  # NOTE: In theor
1a00: 79 2c 20 74 68 69 73 20 63 61 6c 6c 20 74 6f 20  y, this call to 
1a10: 74 68 65 20 5b 70 61 63 6b 61 67 65 20 73 63 61  the [package sca
1a20: 6e 5d 20 73 75 62 2d 63 6f 6d 6d 61 6e 64 0d 0a  n] sub-command..
1a30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 20                # 
1a40: 20 20 20 20 20 20 63 6f 75 6c 64 20 66 61 69 6c        could fail
1a50: 2c 20 72 61 69 73 69 6e 67 20 61 20 73 63 72 69  , raising a scri
1a60: 70 74 20 65 72 72 6f 72 20 68 65 72 65 3b 20 68  pt error here; h
1a70: 6f 77 65 76 65 72 2c 20 74 68 61 74 0d 0a 20 20  owever, that..  
1a80: 20 20 20 20 20 20 20 20 20 20 20 20 23 20 20 20              #   
1a90: 20 20 20 20 69 73 20 68 69 67 68 6c 79 20 75 6e      is highly un
1aa0: 6c 69 6b 65 6c 79 2e 0d 0a 20 20 20 20 20 20 20  likely...       
1ab0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..      
1ac0: 20 20 20 20 20 20 20 20 65 76 61 6c 20 70 61 63          eval pac
1ad0: 6b 61 67 65 20 73 63 61 6e 20 2d 68 6f 73 74 20  kage scan -host 
1ae0: 2d 6e 6f 72 6d 61 6c 20 2d 72 65 66 72 65 73 68  -normal -refresh
1af0: 20 2d 2d 20 24 3a 3a 65 6e 76 28 45 41 47 4c 45   -- $::env(EAGLE
1b00: 4c 49 42 50 41 54 48 29 0d 0a 20 20 20 20 20 20  LIBPATH)..      
1b10: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a        } else {..
1b20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66                if
1b30: 20 7b 21 24 71 75 69 65 74 7d 20 74 68 65 6e 20   {!$quiet} then 
1b40: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  {..             
1b50: 20 20 20 63 61 74 63 68 20 7b 0d 0a 20 20 20 20     catch {..    
1b60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 71                tq
1b70: 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61  puts $channel [a
1b80: 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20  ppendArgs \..   
1b90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1ba0: 20 20 20 22 2d 2d 2d 2d 20 66 6f 72 63 69 62 6c     "---- forcibl
1bb0: 79 20 72 65 66 72 65 73 68 65 64 20 61 75 74 6f  y refreshed auto
1bc0: 2d 70 61 74 68 20 6c 69 73 74 20 76 69 61 20 5c  -path list via \
1bd0: 22 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  "" \..          
1be0: 20 20 20 20 20 20 20 20 20 20 20 20 24 72 65 66              $ref
1bf0: 72 65 73 68 20 22 5c 22 20 63 6f 6d 6d 61 6e 64  resh "\" command
1c00: 5c 6e 22 5d 0d 0a 20 20 20 20 20 20 20 20 20 20  \n"]..          
1c10: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20        }..       
1c20: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20         }..      
1c30: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20        }..       
1c40: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20     }....        
1c50: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23    #..          #
1c60: 20 4e 4f 54 45 3a 20 57 65 20 61 72 65 20 64 6f   NOTE: We are do
1c70: 6e 65 2c 20 72 65 74 75 72 6e 20 73 75 63 63 65  ne, return succe
1c80: 73 73 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23  ss...          #
1c90: 0d 0a 20 20 20 20 20 20 20 20 20 20 72 65 74 75  ..          retu
1ca0: 72 6e 20 74 72 75 65 0d 0a 20 20 20 20 20 20 20  rn true..       
1cb0: 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d   }....        #.
1cc0: 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a  .        # NOTE:
1cd0: 20 4b 65 65 70 20 67 6f 69 6e 67 20 75 70 20 74   Keep going up t
1ce0: 68 65 20 64 69 72 65 63 74 6f 72 79 20 74 72 65  he directory tre
1cf0: 65 2e 2e 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d  e.....        #.
1d00: 0a 20 20 20 20 20 20 20 20 73 65 74 20 64 69 72  .        set dir
1d10: 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 24   [file dirname $
1d20: 64 69 72 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d  dir]..      }...
1d30: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20  .      #..      
1d40: 23 20 4e 4f 54 45 3a 20 49 66 20 77 65 20 68 61  # NOTE: If we ha
1d50: 76 65 20 4e 4f 54 20 62 65 65 6e 20 69 6e 73 74  ve NOT been inst
1d60: 72 75 63 74 65 64 20 74 6f 20 62 65 20 71 75 69  ructed to be qui
1d70: 65 74 2c 20 72 65 70 6f 72 74 20 6e 6f 77 2e 0d  et, report now..
1d80: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20  .      #..      
1d90: 69 66 20 7b 21 24 71 75 69 65 74 7d 20 74 68 65  if {!$quiet} the
1da0: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 63 61 74  n {..        cat
1db0: 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20  ch {..          
1dc0: 74 71 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20  tqputs $channel 
1dd0: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  \..             
1de0: 20 22 2d 2d 2d 2d 20 63 6f 75 6c 64 20 6e 6f 74   "---- could not
1df0: 20 66 69 6e 64 20 76 65 6e 64 6f 72 2d 73 70 65   find vendor-spe
1e00: 63 69 66 69 63 20 74 65 73 74 20 70 61 63 6b 61  cific test packa
1e10: 67 65 20 64 69 72 65 63 74 6f 72 79 5c 6e 22 0d  ge directory\n".
1e20: 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20  .        }..    
1e30: 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a    }....      #..
1e40: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 44 69        # NOTE: Di
1e50: 72 65 63 74 6f 72 79 20 6e 6f 74 20 66 6f 75 6e  rectory not foun
1e60: 64 2c 20 72 65 74 75 72 6e 20 66 61 69 6c 75 72  d, return failur
1e70: 65 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20  e...      #..   
1e80: 20 20 20 72 65 74 75 72 6e 20 66 61 6c 73 65 0d     return false.
1e90: 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70  .    }.....    p
1ea0: 72 6f 63 20 66 69 6e 64 49 6e 74 65 72 70 72 65  roc findInterpre
1eb0: 74 65 72 54 65 73 74 50 61 74 68 20 7b 20 63 68  terTestPath { ch
1ec0: 61 6e 6e 65 6c 20 64 69 72 20 76 61 72 4e 61 6d  annel dir varNam
1ed0: 65 20 71 75 69 65 74 20 7d 20 7b 0d 0a 20 20 20  e quiet } {..   
1ee0: 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f     #..      # NO
1ef0: 54 45 3a 20 53 74 61 72 74 20 77 69 74 68 20 74  TE: Start with t
1f00: 68 65 20 73 70 65 63 69 66 69 65 64 20 64 69 72  he specified dir
1f10: 65 63 74 6f 72 79 2e 0d 0a 20 20 20 20 20 20 23  ectory...      #
1f20: 0d 0a 20 20 20 20 20 20 73 65 74 20 64 69 72 32  ..      set dir2
1f30: 20 24 64 69 72 0d 0a 0d 0a 20 20 20 20 20 20 23   $dir....      #
1f40: 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20  ..      # NOTE: 
1f50: 4b 65 65 70 20 67 6f 69 6e 67 20 75 6e 74 69 6c  Keep going until
1f60: 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 20 6e   the directory n
1f70: 61 6d 65 20 69 73 20 65 6d 70 74 79 20 4f 52 20  ame is empty OR 
1f80: 69 73 20 61 63 74 75 61 6c 6c 79 20 74 68 65 0d  is actually the.
1f90: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 72  .      #       r
1fa0: 6f 6f 74 20 6f 66 20 74 68 65 20 61 73 73 6f 63  oot of the assoc
1fb0: 69 61 74 65 64 20 76 6f 6c 75 6d 65 2e 0d 0a 20  iated volume... 
1fc0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 77 68       #..      wh
1fd0: 69 6c 65 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e  ile {[string len
1fe0: 67 74 68 20 24 64 69 72 32 5d 20 3e 20 30 20 26  gth $dir2] > 0 &
1ff0: 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 5b  & \..          [
2000: 6c 73 65 61 72 63 68 20 2d 65 78 61 63 74 20 2d  lsearch -exact -
2010: 6e 6f 63 61 73 65 20 2d 2d 20 5b 66 69 6c 65 20  nocase -- [file 
2020: 76 6f 6c 75 6d 65 73 5d 20 24 64 69 72 32 5d 20  volumes] $dir2] 
2030: 3d 3d 20 2d 31 7d 20 7b 0d 0a 20 20 20 20 20 20  == -1} {..      
2040: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e    #..        # N
2050: 4f 54 45 3a 20 53 65 74 20 74 68 65 20 73 75 62  OTE: Set the sub
2060: 2d 64 69 72 65 63 74 6f 72 79 20 77 68 65 72 65  -directory where
2070: 20 74 68 65 20 74 65 73 74 20 73 75 69 74 65 20   the test suite 
2080: 66 69 6c 65 20 73 68 6f 75 6c 64 20 62 65 0d 0a  file should be..
2090: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20          #       
20a0: 6c 6f 63 61 74 65 64 20 77 69 74 68 69 6e 20 74  located within t
20b0: 68 65 20 64 69 72 65 63 74 6f 72 79 20 74 6f 20  he directory to 
20c0: 62 65 20 73 65 61 72 63 68 65 64 2e 0d 0a 20 20  be searched...  
20d0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
20e0: 20 73 65 74 20 64 69 72 33 20 54 65 73 74 73 0d   set dir3 Tests.
20f0: 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20  ...        #..  
2100: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 44 6f        # NOTE: Do
2110: 65 73 20 74 68 69 73 20 64 69 72 65 63 74 6f 72  es this director
2120: 79 20 68 61 76 65 20 74 68 65 20 6e 65 63 65 73  y have the neces
2130: 73 61 72 79 20 73 75 62 2d 64 69 72 65 63 74 6f  sary sub-directo
2140: 72 79 20 74 68 61 74 0d 0a 20 20 20 20 20 20 20  ry that..       
2150: 20 23 20 20 20 20 20 20 20 63 6f 6e 74 61 69 6e   #       contain
2160: 73 20 74 68 65 20 74 65 73 74 20 73 75 69 74 65  s the test suite
2170: 20 66 69 6c 65 3f 0d 0a 20 20 20 20 20 20 20 20   file?..        
2180: 23 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b  #..        if {[
2190: 66 69 6c 65 20 65 78 69 73 74 73 20 5b 66 69 6c  file exists [fil
21a0: 65 20 6a 6f 69 6e 20 24 64 69 72 32 20 24 64 69  e join $dir2 $di
21b0: 72 33 5d 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20  r3]] && \..     
21c0: 20 20 20 20 20 20 20 5b 66 69 6c 65 20 69 73 64         [file isd
21d0: 69 72 65 63 74 6f 72 79 20 5b 66 69 6c 65 20 6a  irectory [file j
21e0: 6f 69 6e 20 24 64 69 72 32 20 24 64 69 72 33 5d  oin $dir2 $dir3]
21f0: 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 20  ] && \..        
2200: 20 20 20 20 5b 66 69 6c 65 20 65 78 69 73 74 73      [file exists
2210: 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 64 69 72   [file join $dir
2220: 32 20 24 64 69 72 33 20 61 6c 6c 2e 65 61 67 6c  2 $dir3 all.eagl
2230: 65 5d 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20 20  e]] && \..      
2240: 20 20 20 20 20 20 5b 66 69 6c 65 20 69 73 66 69        [file isfi
2250: 6c 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 64  le [file join $d
2260: 69 72 32 20 24 64 69 72 33 20 61 6c 6c 2e 65 61  ir2 $dir3 all.ea
2270: 67 6c 65 5d 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20  gle]]} then {.. 
2280: 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20           #..    
2290: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 49 66        # NOTE: If
22a0: 20 72 65 71 75 65 73 74 65 64 2c 20 67 69 76 65   requested, give
22b0: 20 6f 75 72 20 63 61 6c 6c 65 72 20 61 63 63 65   our caller acce
22c0: 73 73 20 74 6f 20 74 68 65 20 6e 61 6d 65 20 6f  ss to the name o
22d0: 66 20 74 68 65 0d 0a 20 20 20 20 20 20 20 20 20  f the..         
22e0: 20 23 20 20 20 20 20 20 20 64 69 72 65 63 74 6f   #       directo
22f0: 72 79 20 77 65 20 6a 75 73 74 20 66 6f 75 6e 64  ry we just found
2300: 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a  ...          #..
2310: 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 5b 73            if {[s
2320: 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 76 61  tring length $va
2330: 72 4e 61 6d 65 5d 20 3e 20 30 7d 20 74 68 65 6e  rName] > 0} then
2340: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..            
2350: 75 70 76 61 72 20 31 20 24 76 61 72 4e 61 6d 65  upvar 1 $varName
2360: 20 64 69 72 34 0d 0a 20 20 20 20 20 20 20 20 20   dir4..         
2370: 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20   }....          
2380: 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e  #..          # N
2390: 4f 54 45 3a 20 4f 6b 2c 20 73 68 6f 77 20 74 68  OTE: Ok, show th
23a0: 65 20 64 69 72 65 63 74 6f 72 79 20 77 65 20 66  e directory we f
23b0: 6f 75 6e 64 2e 0d 0a 20 20 20 20 20 20 20 20 20  ound...         
23c0: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 73 65   #..          se
23d0: 74 20 64 69 72 34 20 5b 66 69 6c 65 20 6a 6f 69  t dir4 [file joi
23e0: 6e 20 24 64 69 72 32 20 24 64 69 72 33 5d 0d 0a  n $dir2 $dir3]..
23f0: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20  ..          #.. 
2400: 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a           # NOTE:
2410: 20 49 66 20 77 65 20 68 61 76 65 20 4e 4f 54 20   If we have NOT 
2420: 62 65 65 6e 20 69 6e 73 74 72 75 63 74 65 64 20  been instructed 
2430: 74 6f 20 62 65 20 71 75 69 65 74 2c 20 72 65 70  to be quiet, rep
2440: 6f 72 74 20 6e 6f 77 2e 0d 0a 20 20 20 20 20 20  ort now...      
2450: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20      #..         
2460: 20 69 66 20 7b 21 24 71 75 69 65 74 7d 20 74 68   if {!$quiet} th
2470: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20  en {..          
2480: 20 20 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 20    catch {..     
2490: 20 20 20 20 20 20 20 20 20 74 71 70 75 74 73 20           tqputs 
24a0: 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64  $channel [append
24b0: 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20  Args \..        
24c0: 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20            "---- 
24d0: 66 6f 75 6e 64 20 76 65 6e 64 6f 72 2d 73 70 65  found vendor-spe
24e0: 63 69 66 69 63 20 74 65 73 74 20 73 75 69 74 65  cific test suite
24f0: 20 64 69 72 65 63 74 6f 72 79 20 5c 22 22 20 5c   directory \"" \
2500: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
2510: 20 20 20 20 24 64 69 72 34 20 5c 22 5c 6e 5d 0d      $dir4 \"\n].
2520: 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a  .            }..
2530: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20            }.... 
2540: 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20           #..    
2550: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 57 65        # NOTE: We
2560: 20 61 72 65 20 64 6f 6e 65 2c 20 72 65 74 75 72   are done, retur
2570: 6e 20 73 75 63 63 65 73 73 2e 0d 0a 20 20 20 20  n success...    
2580: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
2590: 20 20 20 72 65 74 75 72 6e 20 74 72 75 65 0d 0a     return true..
25a0: 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20          }....   
25b0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..        
25c0: 23 20 4e 4f 54 45 3a 20 4b 65 65 70 20 67 6f 69  # NOTE: Keep goi
25d0: 6e 67 20 75 70 20 74 68 65 20 64 69 72 65 63 74  ng up the direct
25e0: 6f 72 79 20 74 72 65 65 2e 2e 2e 0d 0a 20 20 20  ory tree.....   
25f0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..        
2600: 73 65 74 20 64 69 72 32 20 5b 66 69 6c 65 20 64  set dir2 [file d
2610: 69 72 6e 61 6d 65 20 24 64 69 72 32 5d 0d 0a 20  irname $dir2].. 
2620: 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20       }....      
2630: 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a  #..      # NOTE:
2640: 20 49 66 20 77 65 20 68 61 76 65 20 4e 4f 54 20   If we have NOT 
2650: 62 65 65 6e 20 69 6e 73 74 72 75 63 74 65 64 20  been instructed 
2660: 74 6f 20 62 65 20 71 75 69 65 74 2c 20 72 65 70  to be quiet, rep
2670: 6f 72 74 20 6e 6f 77 2e 0d 0a 20 20 20 20 20 20  ort now...      
2680: 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 21 24 71  #..      if {!$q
2690: 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  uiet} then {..  
26a0: 20 20 20 20 20 20 63 61 74 63 68 20 7b 0d 0a 20        catch {.. 
26b0: 20 20 20 20 20 20 20 20 20 74 71 70 75 74 73 20           tqputs 
26c0: 24 63 68 61 6e 6e 65 6c 20 5c 0d 0a 20 20 20 20  $channel \..    
26d0: 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20            "---- 
26e0: 63 6f 75 6c 64 20 6e 6f 74 20 66 69 6e 64 20 76  could not find v
26f0: 65 6e 64 6f 72 2d 73 70 65 63 69 66 69 63 20 74  endor-specific t
2700: 65 73 74 20 73 75 69 74 65 20 64 69 72 65 63 74  est suite direct
2710: 6f 72 79 5c 6e 22 0d 0a 20 20 20 20 20 20 20 20  ory\n"..        
2720: 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20  }..      }....  
2730: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e      #..      # N
2740: 4f 54 45 3a 20 44 69 72 65 63 74 6f 72 79 20 6e  OTE: Directory n
2750: 6f 74 20 66 6f 75 6e 64 2c 20 72 65 74 75 72 6e  ot found, return
2760: 20 66 61 69 6c 75 72 65 2e 0d 0a 20 20 20 20 20   failure...     
2770: 20 23 0d 0a 20 20 20 20 20 20 72 65 74 75 72 6e   #..      return
2780: 20 66 61 6c 73 65 0d 0a 20 20 20 20 7d 0d 0a 0c   false..    }...
2790: 0d 0a 20 20 20 20 70 72 6f 63 20 73 65 74 75 70  ..    proc setup
27a0: 49 6e 74 65 72 70 72 65 74 65 72 54 65 73 74 50  InterpreterTestP
27b0: 61 74 68 20 7b 20 63 68 61 6e 6e 65 6c 20 64 69  ath { channel di
27c0: 72 20 71 75 69 65 74 20 7d 20 7b 0d 0a 20 20 20  r quiet } {..   
27d0: 20 20 20 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20     if {[llength 
27e0: 5b 69 6e 66 6f 20 63 6f 6d 6d 61 6e 64 73 20 64  [info commands d
27f0: 65 62 75 67 5d 5d 20 3e 20 30 20 26 26 20 5c 0d  ebug]] > 0 && \.
2800: 0a 20 20 20 20 20 20 20 20 20 20 5b 6c 6c 65 6e  .          [llen
2810: 67 74 68 20 5b 69 6e 66 6f 20 73 75 62 63 6f 6d  gth [info subcom
2820: 6d 61 6e 64 73 20 64 65 62 75 67 20 74 65 73 74  mands debug test
2830: 70 61 74 68 5d 5d 20 3e 20 30 20 26 26 20 5c 0d  path]] > 0 && \.
2840: 0a 20 20 20 20 20 20 20 20 20 20 5b 63 61 74 63  .          [catc
2850: 68 20 7b 64 65 62 75 67 20 74 65 73 74 70 61 74  h {debug testpat
2860: 68 7d 20 74 65 73 74 50 61 74 68 5d 20 3d 3d 20  h} testPath] == 
2870: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  0} then {..     
2880: 20 20 20 69 66 20 7b 24 64 69 72 20 6e 65 20 24     if {$dir ne $
2890: 74 65 73 74 50 61 74 68 7d 20 74 68 65 6e 20 7b  testPath} then {
28a0: 0d 0a 20 20 20 20 20 20 20 20 20 20 64 65 62 75  ..          debu
28b0: 67 20 74 65 73 74 70 61 74 68 20 24 64 69 72 0d  g testpath $dir.
28c0: 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66 20  ...          if 
28d0: 7b 21 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b  {!$quiet} then {
28e0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 61  ..            ca
28f0: 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  tch {..         
2900: 20 20 20 20 20 74 71 70 75 74 73 20 24 63 68 61       tqputs $cha
2910: 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73  nnel [appendArgs
2920: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   \..            
2930: 20 20 20 20 20 20 22 2d 2d 2d 2d 20 73 65 74 20        "---- set 
2940: 69 6e 74 65 72 70 72 65 74 65 72 20 74 65 73 74  interpreter test
2950: 20 70 61 74 68 20 74 6f 20 5c 22 22 20 24 64 69   path to \"" $di
2960: 72 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20  r \..           
2970: 20 20 20 20 20 20 20 22 5c 22 20 76 69 61 20 5c         "\" via \
2980: 22 64 65 62 75 67 5c 22 20 63 6f 6d 6d 61 6e 64  "debug\" command
2990: 5c 6e 22 5d 0d 0a 20 20 20 20 20 20 20 20 20 20  \n"]..          
29a0: 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 7d    }..          }
29b0: 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20  ..        }..   
29c0: 20 20 20 7d 20 65 6c 73 65 69 66 20 7b 5b 6c 6c     } elseif {[ll
29d0: 65 6e 67 74 68 20 5b 69 6e 66 6f 20 63 6f 6d 6d  ength [info comm
29e0: 61 6e 64 73 20 6f 62 6a 65 63 74 5d 5d 20 3e 20  ands object]] > 
29f0: 30 20 26 26 20 5b 63 61 74 63 68 20 7b 0d 0a 20  0 && [catch {.. 
2a00: 20 20 20 20 20 20 20 6f 62 6a 65 63 74 20 69 6e         object in
2a10: 76 6f 6b 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e  voke -flags +Non
2a20: 50 75 62 6c 69 63 20 49 6e 74 65 72 70 72 65 74  Public Interpret
2a30: 65 72 2e 47 65 74 41 63 74 69 76 65 20 54 65 73  er.GetActive Tes
2a40: 74 50 61 74 68 0d 0a 20 20 20 20 20 20 7d 20 74  tPath..      } t
2a50: 65 73 74 50 61 74 68 5d 20 3d 3d 20 30 7d 20 74  estPath] == 0} t
2a60: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 69  hen {..        i
2a70: 66 20 7b 24 64 69 72 20 6e 65 20 24 74 65 73 74  f {$dir ne $test
2a80: 50 61 74 68 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  Path} then {..  
2a90: 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74 20 69          object i
2aa0: 6e 76 6f 6b 65 20 2d 66 6c 61 67 73 20 2b 4e 6f  nvoke -flags +No
2ab0: 6e 50 75 62 6c 69 63 20 49 6e 74 65 72 70 72 65  nPublic Interpre
2ac0: 74 65 72 2e 47 65 74 41 63 74 69 76 65 20 54 65  ter.GetActive Te
2ad0: 73 74 50 61 74 68 20 24 64 69 72 0d 0a 0d 0a 20  stPath $dir.... 
2ae0: 20 20 20 20 20 20 20 20 20 69 66 20 7b 21 24 71           if {!$q
2af0: 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  uiet} then {..  
2b00: 20 20 20 20 20 20 20 20 20 20 63 61 74 63 68 20            catch 
2b10: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  {..             
2b20: 20 74 71 70 75 74 73 20 24 63 68 61 6e 6e 65 6c   tqputs $channel
2b30: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a   [appendArgs \..
2b40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2b50: 20 20 22 2d 2d 2d 2d 20 73 65 74 20 69 6e 74 65    "---- set inte
2b60: 72 70 72 65 74 65 72 20 74 65 73 74 20 70 61 74  rpreter test pat
2b70: 68 20 74 6f 20 5c 22 22 20 24 64 69 72 20 5c 0d  h to \"" $dir \.
2b80: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
2b90: 20 20 20 22 5c 22 20 76 69 61 20 5c 22 6f 62 6a     "\" via \"obj
2ba0: 65 63 74 5c 22 20 63 6f 6d 6d 61 6e 64 5c 6e 22  ect\" command\n"
2bb0: 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d  ]..            }
2bc0: 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20  ..          }.. 
2bd0: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20         }..      
2be0: 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20  } else {..      
2bf0: 20 20 69 66 20 7b 21 24 71 75 69 65 74 7d 20 74    if {!$quiet} t
2c00: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  hen {..         
2c10: 20 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 20   catch {..      
2c20: 20 20 20 20 20 20 74 71 70 75 74 73 20 24 63 68        tqputs $ch
2c30: 61 6e 6e 65 6c 20 22 2d 2d 2d 2d 20 63 61 6e 6e  annel "---- cann
2c40: 6f 74 20 73 65 74 20 69 6e 74 65 72 70 72 65 74  ot set interpret
2c50: 65 72 20 74 65 73 74 20 70 61 74 68 5c 6e 22 0d  er test path\n".
2c60: 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20  .          }..  
2c70: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d        }..      }
2c80: 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20  ..    }.....    
2c90: 23 0d 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20 43  #..    # NOTE: C
2ca0: 68 65 63 6b 20 66 6f 72 20 61 6e 79 20 6f 76 65  heck for any ove
2cb0: 72 72 69 64 64 65 6e 20 73 65 74 74 69 6e 67 73  rridden settings
2cc0: 20 74 68 61 74 20 6d 61 79 20 68 61 76 65 20 62   that may have b
2cd0: 65 65 6e 20 73 70 65 63 69 66 69 65 64 20 76 69  een specified vi
2ce0: 61 0d 0a 20 20 20 20 23 20 20 20 20 20 20 20 74  a..    #       t
2cf0: 68 65 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 2c  he command line,
2d00: 20 65 74 63 2e 0d 0a 20 20 20 20 23 0d 0a 20 20   etc...    #..  
2d10: 20 20 63 68 65 63 6b 46 6f 72 54 65 73 74 4f 76    checkForTestOv
2d20: 65 72 72 69 64 65 73 20 73 74 64 6f 75 74 20 5b  errides stdout [
2d30: 65 78 70 72 20 7b 5b 69 6e 66 6f 20 65 78 69 73  expr {[info exis
2d40: 74 73 20 74 65 73 74 5f 6f 76 65 72 72 69 64 65  ts test_override
2d50: 73 5d 20 3f 20 5c 0d 0a 20 20 20 20 20 20 20 20  s] ? \..        
2d60: 24 74 65 73 74 5f 6f 76 65 72 72 69 64 65 73 20  $test_overrides 
2d70: 3a 20 5b 6c 69 73 74 20 62 69 6e 61 72 79 5f 64  : [list binary_d
2d80: 69 72 65 63 74 6f 72 79 20 62 75 69 6c 64 5f 62  irectory build_b
2d90: 61 73 65 5f 64 69 72 65 63 74 6f 72 79 20 5c 0d  ase_directory \.
2da0: 0a 20 20 20 20 20 20 20 20 62 75 69 6c 64 5f 64  .        build_d
2db0: 69 72 65 63 74 6f 72 79 20 63 6f 6d 6d 6f 6e 5f  irectory common_
2dc0: 64 69 72 65 63 74 6f 72 79 20 63 6f 6e 6e 65 63  directory connec
2dd0: 74 69 6f 6e 5f 66 6c 61 67 73 20 64 61 74 61 62  tion_flags datab
2de0: 61 73 65 5f 64 69 72 65 63 74 6f 72 79 20 5c 0d  ase_directory \.
2df0: 0a 20 20 20 20 20 20 20 20 64 61 74 65 74 69 6d  .        datetim
2e00: 65 5f 66 6f 72 6d 61 74 20 64 65 66 69 6e 65 5f  e_format define_
2e10: 63 6f 6e 73 74 61 6e 74 5f 70 72 65 66 69 78 20  constant_prefix 
2e20: 65 78 65 63 75 74 65 5f 6f 6e 5f 73 65 74 75 70  execute_on_setup
2e30: 20 5c 0d 0a 20 20 20 20 20 20 20 20 69 6e 74 65   \..        inte
2e40: 72 6f 70 5f 61 73 73 65 6d 62 6c 79 5f 66 69 6c  rop_assembly_fil
2e50: 65 5f 6e 61 6d 65 73 20 6e 61 74 69 76 65 5f 6c  e_names native_l
2e60: 69 62 72 61 72 79 5f 66 69 6c 65 5f 6e 61 6d 65  ibrary_file_name
2e70: 73 20 72 65 6c 65 61 73 65 5f 76 65 72 73 69 6f  s release_versio
2e80: 6e 20 5c 0d 0a 20 20 20 20 20 20 20 20 73 63 72  n \..        scr
2e90: 61 74 63 68 5f 64 69 72 65 63 74 6f 72 79 20 74  atch_directory t
2ea0: 65 6d 70 6f 72 61 72 79 5f 64 69 72 65 63 74 6f  emporary_directo
2eb0: 72 79 20 74 65 73 74 5f 63 6c 72 20 74 65 73 74  ry test_clr test
2ec0: 5f 63 6c 72 5f 76 32 20 5c 0d 0a 20 20 20 20 20  _clr_v2 \..     
2ed0: 20 20 20 74 65 73 74 5f 63 6c 72 5f 76 34 20 74     test_clr_v4 t
2ee0: 65 73 74 5f 63 6f 6e 66 69 67 75 72 61 74 69 6f  est_configuratio
2ef0: 6e 20 74 65 73 74 5f 63 6f 6e 66 69 67 75 72 61  n test_configura
2f00: 74 69 6f 6e 73 20 74 65 73 74 5f 63 6f 6e 73 74  tions test_const
2f10: 72 61 69 6e 74 73 20 5c 0d 0a 20 20 20 20 20 20  raints \..      
2f20: 20 20 74 65 73 74 5f 6d 61 63 68 69 6e 65 20 74    test_machine t
2f30: 65 73 74 5f 6e 65 74 5f 66 78 20 74 65 73 74 5f  est_net_fx test_
2f40: 6e 65 74 5f 66 78 5f 32 30 30 35 20 74 65 73 74  net_fx_2005 test
2f50: 5f 6e 65 74 5f 66 78 5f 32 30 30 38 20 5c 0d 0a  _net_fx_2008 \..
2f60: 20 20 20 20 20 20 20 20 74 65 73 74 5f 6e 65 74          test_net
2f70: 5f 66 78 5f 32 30 31 30 20 74 65 73 74 5f 6e 65  _fx_2010 test_ne
2f80: 74 5f 66 78 5f 32 30 31 32 20 74 65 73 74 5f 6e  t_fx_2012 test_n
2f90: 65 74 5f 66 78 5f 32 30 31 33 20 74 65 73 74 5f  et_fx_2013 test_
2fa0: 6e 65 74 5f 66 78 5f 32 30 31 35 20 5c 0d 0a 20  net_fx_2015 \.. 
2fb0: 20 20 20 20 20 20 20 74 65 73 74 5f 6f 76 65 72         test_over
2fc0: 72 69 64 65 73 20 74 65 73 74 5f 70 6c 61 74 66  rides test_platf
2fd0: 6f 72 6d 20 74 65 73 74 5f 73 75 69 74 65 20 74  orm test_suite t
2fe0: 65 73 74 5f 79 65 61 72 20 74 65 73 74 5f 79 65  est_year test_ye
2ff0: 61 72 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 74  ars \..        t
3000: 65 73 74 5f 79 65 61 72 5f 63 6c 72 5f 76 32 20  est_year_clr_v2 
3010: 74 65 73 74 5f 79 65 61 72 5f 63 6c 72 5f 76 34  test_year_clr_v4
3020: 20 76 65 6e 64 6f 72 5f 64 69 72 65 63 74 6f 72   vendor_director
3030: 79 20 5c 0d 0a 20 20 20 20 20 20 20 20 76 65 6e  y \..        ven
3040: 64 6f 72 5f 74 65 73 74 5f 64 69 72 65 63 74 6f  dor_test_directo
3050: 72 79 5d 7d 5d 20 66 61 6c 73 65 0d 0a 0d 0a 20  ry]}] false.... 
3060: 20 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f 54 45     #..    # NOTE
3070: 3a 20 53 65 74 20 74 68 65 20 6e 61 6d 65 20 6f  : Set the name o
3080: 66 20 74 68 65 20 72 75 6e 6e 69 6e 67 20 74 65  f the running te
3090: 73 74 20 73 75 69 74 65 2c 20 69 66 20 6e 65 63  st suite, if nec
30a0: 65 73 73 61 72 79 2e 0d 0a 20 20 20 20 23 0d 0a  essary...    #..
30b0: 20 20 20 20 69 66 20 7b 21 5b 69 6e 66 6f 20 65      if {![info e
30c0: 78 69 73 74 73 20 74 65 73 74 5f 73 75 69 74 65  xists test_suite
30d0: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  ]} then {..     
30e0: 20 73 65 74 20 74 65 73 74 5f 73 75 69 74 65 20   set test_suite 
30f0: 22 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c  "System.Data.SQL
3100: 69 74 65 20 54 65 73 74 20 53 75 69 74 65 20 66  ite Test Suite f
3110: 6f 72 20 45 61 67 6c 65 22 0d 0a 20 20 20 20 7d  or Eagle"..    }
3120: 0d 0a 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 23  ....    #..    #
3130: 20 4e 4f 54 45 3a 20 57 68 65 6e 20 62 65 69 6e   NOTE: When bein
3140: 67 20 65 76 61 6c 75 61 74 65 64 20 69 6e 20 61  g evaluated in a
3150: 20 22 73 61 66 65 22 20 69 6e 74 65 72 70 72 65   "safe" interpre
3160: 74 65 72 2c 20 73 6f 6d 65 20 73 74 65 70 73 20  ter, some steps 
3170: 6d 75 73 74 20 62 65 0d 0a 20 20 20 20 23 20 20  must be..    #  
3180: 20 20 20 20 20 73 6b 69 70 70 65 64 20 64 75 65       skipped due
3190: 20 74 6f 20 6d 69 73 73 69 6e 67 20 63 6f 6d 6d   to missing comm
31a0: 61 6e 64 73 20 61 6e 64 2f 6f 72 20 73 75 62 2d  ands and/or sub-
31b0: 63 6f 6d 6d 61 6e 64 73 2e 0d 0a 20 20 20 20 23  commands...    #
31c0: 0d 0a 20 20 20 20 69 66 20 7b 21 5b 69 6e 74 65  ..    if {![inte
31d0: 72 70 20 69 73 73 61 66 65 5d 7d 20 74 68 65 6e  rp issafe]} then
31e0: 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20   {..      #..   
31f0: 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 69 73 20     # NOTE: This 
3200: 76 61 72 69 61 62 6c 65 20 77 69 6c 6c 20 63 6f  variable will co
3210: 6e 74 61 69 6e 20 74 68 65 20 6e 61 6d 65 20 6f  ntain the name o
3220: 66 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 20  f the directory 
3230: 63 6f 6e 74 61 69 6e 69 6e 67 0d 0a 20 20 20 20  containing..    
3240: 20 20 23 20 20 20 20 20 20 20 74 68 65 20 76 65    #       the ve
3250: 6e 64 6f 72 2d 73 70 65 63 69 66 69 63 20 74 65  ndor-specific te
3260: 73 74 69 6e 67 20 69 6e 66 72 61 73 74 72 75 63  sting infrastruc
3270: 74 75 72 65 2e 20 20 49 66 20 74 68 65 20 76 61  ture.  If the va
3280: 72 69 61 62 6c 65 20 64 6f 65 73 0d 0a 20 20 20  riable does..   
3290: 20 20 20 23 20 20 20 20 20 20 20 6e 6f 74 20 65     #       not e
32a0: 78 69 73 74 2c 20 63 72 65 61 74 65 20 69 74 3b  xist, create it;
32b0: 20 6f 74 68 65 72 77 69 73 65 2c 20 69 74 20 68   otherwise, it h
32c0: 61 73 20 62 65 65 6e 20 6f 76 65 72 72 69 64 64  as been overridd
32d0: 65 6e 20 61 6e 64 20 74 68 65 0d 0a 20 20 20 20  en and the..    
32e0: 20 20 23 20 20 20 20 20 20 20 65 78 69 73 74 69    #       existi
32f0: 6e 67 20 76 61 6c 75 65 20 73 68 6f 75 6c 64 20  ng value should 
3300: 62 65 20 6c 65 66 74 20 69 6e 74 61 63 74 2e 0d  be left intact..
3310: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20  .      #..      
3320: 73 65 74 20 68 61 76 65 5f 76 65 6e 64 6f 72 5f  set have_vendor_
3330: 64 69 72 65 63 74 6f 72 79 20 5b 69 6e 66 6f 20  directory [info 
3340: 65 78 69 73 74 73 20 76 65 6e 64 6f 72 5f 64 69  exists vendor_di
3350: 72 65 63 74 6f 72 79 5d 0d 0a 0d 0a 20 20 20 20  rectory]....    
3360: 20 20 69 66 20 7b 21 24 68 61 76 65 5f 76 65 6e    if {!$have_ven
3370: 64 6f 72 5f 64 69 72 65 63 74 6f 72 79 7d 20 74  dor_directory} t
3380: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 73  hen {..        s
3390: 65 74 20 76 65 6e 64 6f 72 5f 64 69 72 65 63 74  et vendor_direct
33a0: 6f 72 79 20 22 22 0d 0a 20 20 20 20 20 20 7d 0d  ory ""..      }.
33b0: 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20  ...      #..    
33c0: 20 20 23 20 4e 4f 54 45 3a 20 54 68 69 73 20 76    # NOTE: This v
33d0: 61 72 69 61 62 6c 65 20 77 69 6c 6c 20 63 6f 6e  ariable will con
33e0: 74 61 69 6e 20 74 68 65 20 6e 61 6d 65 20 6f 66  tain the name of
33f0: 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 20 63   the directory c
3400: 6f 6e 74 61 69 6e 69 6e 67 0d 0a 20 20 20 20 20  ontaining..     
3410: 20 23 20 20 20 20 20 20 20 74 68 65 20 76 65 6e   #       the ven
3420: 64 6f 72 2d 73 70 65 63 69 66 69 63 20 74 65 73  dor-specific tes
3430: 74 20 73 75 69 74 65 2e 20 20 49 66 20 74 68 65  t suite.  If the
3440: 20 76 61 72 69 61 62 6c 65 20 64 6f 65 73 20 6e   variable does n
3450: 6f 74 20 65 78 69 73 74 2c 0d 0a 20 20 20 20 20  ot exist,..     
3460: 20 23 20 20 20 20 20 20 20 63 72 65 61 74 65 20   #       create 
3470: 69 74 3b 20 6f 74 68 65 72 77 69 73 65 2c 20 69  it; otherwise, i
3480: 74 20 68 61 73 20 62 65 65 6e 20 6f 76 65 72 72  t has been overr
3490: 69 64 64 65 6e 20 61 6e 64 20 74 68 65 20 65 78  idden and the ex
34a0: 69 73 74 69 6e 67 0d 0a 20 20 20 20 20 20 23 20  isting..      # 
34b0: 20 20 20 20 20 20 76 61 6c 75 65 20 73 68 6f 75        value shou
34c0: 6c 64 20 62 65 20 6c 65 66 74 20 69 6e 74 61 63  ld be left intac
34d0: 74 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20  t...      #..   
34e0: 20 20 20 73 65 74 20 68 61 76 65 5f 76 65 6e 64     set have_vend
34f0: 6f 72 5f 74 65 73 74 5f 64 69 72 65 63 74 6f 72  or_test_director
3500: 79 20 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 76  y [info exists v
3510: 65 6e 64 6f 72 5f 74 65 73 74 5f 64 69 72 65 63  endor_test_direc
3520: 74 6f 72 79 5d 0d 0a 0d 0a 20 20 20 20 20 20 69  tory]....      i
3530: 66 20 7b 21 24 68 61 76 65 5f 76 65 6e 64 6f 72  f {!$have_vendor
3540: 5f 74 65 73 74 5f 64 69 72 65 63 74 6f 72 79 7d  _test_directory}
3550: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20   then {..       
3560: 20 73 65 74 20 76 65 6e 64 6f 72 5f 74 65 73 74   set vendor_test
3570: 5f 64 69 72 65 63 74 6f 72 79 20 22 22 0d 0a 20  _directory "".. 
3580: 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20       }....      
3590: 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a  #..      # NOTE:
35a0: 20 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20   This procedure 
35b0: 77 69 6c 6c 20 61 74 74 65 6d 70 74 20 74 6f 20  will attempt to 
35c0: 66 69 6e 64 20 74 68 65 20 76 65 6e 64 6f 72 2d  find the vendor-
35d0: 73 70 65 63 69 66 69 63 20 74 65 73 74 69 6e 67  specific testing
35e0: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20  ..      #       
35f0: 69 6e 66 72 61 73 74 72 75 63 74 75 72 65 20 64  infrastructure d
3600: 69 72 65 63 74 6f 72 79 20 61 6e 64 20 61 64 64  irectory and add
3610: 20 69 74 20 74 6f 20 74 68 65 20 61 75 74 6f 2d   it to the auto-
3620: 70 61 74 68 20 66 6f 72 20 74 68 65 0d 0a 20 20  path for the..  
3630: 20 20 20 20 23 20 20 20 20 20 20 20 63 75 72 72      #       curr
3640: 65 6e 74 20 69 6e 74 65 72 70 72 65 74 65 72 2e  ent interpreter.
3650: 20 20 4e 6f 72 6d 61 6c 6c 79 2c 20 74 68 69 73    Normally, this
3660: 20 77 69 6c 6c 20 61 6c 73 6f 20 73 65 74 20 74   will also set t
3670: 68 65 20 76 61 72 69 61 62 6c 65 0d 0a 20 20 20  he variable..   
3680: 20 20 20 23 20 20 20 20 20 20 20 63 72 65 61 74     #       creat
3690: 65 64 20 61 62 6f 76 65 20 74 6f 20 70 6f 69 6e  ed above to poin
36a0: 74 20 74 6f 20 74 68 65 20 64 69 72 65 63 74 6f  t to the directo
36b0: 72 79 20 61 64 64 65 64 20 74 6f 20 74 68 65 20  ry added to the 
36c0: 61 75 74 6f 2d 70 61 74 68 3b 0d 0a 20 20 20 20  auto-path;..    
36d0: 20 20 23 20 20 20 20 20 20 20 68 6f 77 65 76 65    #       howeve
36e0: 72 2c 20 74 68 69 73 20 77 69 6c 6c 20 6e 6f 74  r, this will not
36f0: 20 62 65 20 64 6f 6e 65 20 69 66 20 74 68 65 20   be done if the 
3700: 76 61 72 69 61 62 6c 65 20 77 61 73 20 6e 6f 74  variable was not
3710: 20 63 72 65 61 74 65 64 0d 0a 20 20 20 20 20 20   created..      
3720: 23 20 20 20 20 20 20 20 62 79 20 75 73 2e 0d 0a  #       by us...
3730: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 61        #..      a
3740: 64 64 54 65 73 74 53 75 69 74 65 54 6f 41 75 74  ddTestSuiteToAut
3750: 6f 50 61 74 68 20 73 74 64 6f 75 74 20 5c 0d 0a  oPath stdout \..
3760: 20 20 20 20 20 20 20 20 20 20 5b 65 78 70 72 20            [expr 
3770: 7b 24 68 61 76 65 5f 76 65 6e 64 6f 72 5f 64 69  {$have_vendor_di
3780: 72 65 63 74 6f 72 79 20 3f 20 22 22 20 3a 20 22  rectory ? "" : "
3790: 76 65 6e 64 6f 72 5f 64 69 72 65 63 74 6f 72 79  vendor_directory
37a0: 22 7d 5d 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  "}] \..         
37b0: 20 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a   [info exists ::
37c0: 65 6e 76 28 71 75 69 65 74 41 64 64 54 65 73 74  env(quietAddTest
37d0: 53 75 69 74 65 54 6f 41 75 74 6f 50 61 74 68 29  SuiteToAutoPath)
37e0: 5d 0d 0a 0d 0a 20 20 20 20 20 20 75 6e 73 65 74  ]....      unset
37f0: 20 68 61 76 65 5f 76 65 6e 64 6f 72 5f 64 69 72   have_vendor_dir
3800: 65 63 74 6f 72 79 0d 0a 0d 0a 20 20 20 20 20 20  ectory....      
3810: 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a  #..      # NOTE:
3820: 20 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20   This procedure 
3830: 77 69 6c 6c 20 61 74 74 65 6d 70 74 20 74 6f 20  will attempt to 
3840: 66 69 6e 64 20 74 68 65 20 76 65 6e 64 6f 72 2d  find the vendor-
3850: 73 70 65 63 69 66 69 63 20 74 65 73 74 69 6e 67  specific testing
3860: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20  ..      #       
3870: 64 69 72 65 63 74 6f 72 79 2e 20 20 4e 6f 72 6d  directory.  Norm
3880: 61 6c 6c 79 2c 20 74 68 69 73 20 77 69 6c 6c 20  ally, this will 
3890: 61 6c 73 6f 20 73 65 74 20 74 68 65 20 76 61 72  also set the var
38a0: 69 61 62 6c 65 20 63 72 65 61 74 65 64 0d 0a 20  iable created.. 
38b0: 20 20 20 20 20 23 20 20 20 20 20 20 20 61 62 6f       #       abo
38c0: 76 65 20 74 6f 20 70 6f 69 6e 74 20 74 6f 20 74  ve to point to t
38d0: 68 65 20 64 69 72 65 63 74 6f 72 79 3b 20 68 6f  he directory; ho
38e0: 77 65 76 65 72 2c 20 74 68 69 73 20 77 69 6c 6c  wever, this will
38f0: 20 6e 6f 74 20 62 65 20 64 6f 6e 65 0d 0a 20 20   not be done..  
3900: 20 20 20 20 23 20 20 20 20 20 20 20 69 66 20 74      #       if t
3910: 68 65 20 76 61 72 69 61 62 6c 65 20 77 61 73 20  he variable was 
3920: 6e 6f 74 20 63 72 65 61 74 65 64 20 62 79 20 75  not created by u
3930: 73 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20  s...      #..   
3940: 20 20 20 66 69 6e 64 49 6e 74 65 72 70 72 65 74     findInterpret
3950: 65 72 54 65 73 74 50 61 74 68 20 73 74 64 6f 75  erTestPath stdou
3960: 74 20 24 76 65 6e 64 6f 72 5f 64 69 72 65 63 74  t $vendor_direct
3970: 6f 72 79 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  ory \..         
3980: 20 5b 65 78 70 72 20 7b 24 68 61 76 65 5f 76 65   [expr {$have_ve
3990: 6e 64 6f 72 5f 74 65 73 74 5f 64 69 72 65 63 74  ndor_test_direct
39a0: 6f 72 79 20 3f 20 22 22 20 3a 20 22 76 65 6e 64  ory ? "" : "vend
39b0: 6f 72 5f 74 65 73 74 5f 64 69 72 65 63 74 6f 72  or_test_director
39c0: 79 22 7d 5d 20 5c 0d 0a 20 20 20 20 20 20 20 20  y"}] \..        
39d0: 20 20 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a    [info exists :
39e0: 3a 65 6e 76 28 71 75 69 65 74 46 69 6e 64 49 6e  :env(quietFindIn
39f0: 74 65 72 70 72 65 74 65 72 54 65 73 74 50 61 74  terpreterTestPat
3a00: 68 29 5d 0d 0a 0d 0a 20 20 20 20 20 20 75 6e 73  h)]....      uns
3a10: 65 74 20 68 61 76 65 5f 76 65 6e 64 6f 72 5f 74  et have_vendor_t
3a20: 65 73 74 5f 64 69 72 65 63 74 6f 72 79 0d 0a 0d  est_directory...
3a30: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20  .      #..      
3a40: 23 20 4e 4f 54 45 3a 20 49 66 20 77 65 20 61 63  # NOTE: If we ac
3a50: 74 75 61 6c 6c 79 20 66 6f 75 6e 64 20 61 20 76  tually found a v
3a60: 65 6e 64 6f 72 2d 73 70 65 63 69 66 69 63 20 74  endor-specific t
3a70: 65 73 74 69 6e 67 20 69 6e 66 72 61 73 74 72 75  esting infrastru
3a80: 63 74 75 72 65 0d 0a 20 20 20 20 20 20 23 20 20  cture..      #  
3a90: 20 20 20 20 20 64 69 72 65 63 74 6f 72 79 20 74       directory t
3aa0: 68 65 6e 20 6d 6f 64 69 66 79 20 74 68 65 20 54  hen modify the T
3ab0: 65 73 74 50 61 74 68 20 70 72 6f 70 65 72 74 79  estPath property
3ac0: 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 0d   of the current.
3ad0: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 69  .      #       i
3ae0: 6e 74 65 72 70 72 65 74 65 72 20 74 6f 20 70 6f  nterpreter to po
3af0: 69 6e 74 20 64 69 72 65 63 74 6c 79 20 74 6f 20  int directly to 
3b00: 69 74 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20  it...      #..  
3b10: 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20      if {[string 
3b20: 6c 65 6e 67 74 68 20 24 76 65 6e 64 6f 72 5f 74  length $vendor_t
3b30: 65 73 74 5f 64 69 72 65 63 74 6f 72 79 5d 20 3e  est_directory] >
3b40: 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20   0} then {..    
3b50: 20 20 20 20 73 65 74 75 70 49 6e 74 65 72 70 72      setupInterpr
3b60: 65 74 65 72 54 65 73 74 50 61 74 68 20 73 74 64  eterTestPath std
3b70: 6f 75 74 20 24 76 65 6e 64 6f 72 5f 74 65 73 74  out $vendor_test
3b80: 5f 64 69 72 65 63 74 6f 72 79 20 5b 69 6e 66 6f  _directory [info
3b90: 20 65 78 69 73 74 73 20 5c 0d 0a 20 20 20 20 20   exists \..     
3ba0: 20 20 20 20 20 20 20 3a 3a 65 6e 76 28 71 75 69         ::env(qui
3bb0: 65 74 53 65 74 75 70 49 6e 74 65 72 70 72 65 74  etSetupInterpret
3bc0: 65 72 54 65 73 74 50 61 74 68 29 5d 0d 0a 20 20  erTestPath)]..  
3bd0: 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0d 0a      }..    }....
3be0: 20 20 20 20 23 0d 0a 20 20 20 20 23 20 48 41 43      #..    # HAC
3bf0: 4b 3a 20 50 72 65 76 65 6e 74 20 74 68 65 20 45  K: Prevent the E
3c00: 61 67 6c 65 20 63 6f 72 65 20 74 65 73 74 20 73  agle core test s
3c10: 75 69 74 65 20 69 6e 66 72 61 73 74 72 75 63 74  uite infrastruct
3c20: 75 72 65 20 66 72 6f 6d 20 63 68 65 63 6b 69 6e  ure from checkin
3c30: 67 0d 0a 20 20 20 20 23 20 20 20 20 20 20 20 74  g..    #       t
3c40: 65 73 74 20 63 6f 6e 73 74 72 61 69 6e 74 73 20  est constraints 
3c50: 74 68 61 74 20 61 72 65 20 74 69 6d 65 2d 63 6f  that are time-co
3c60: 6e 73 75 6d 69 6e 67 20 61 6e 64 2f 6f 72 20 6d  nsuming and/or m
3c70: 6f 73 74 20 6c 69 6b 65 6c 79 20 74 6f 0d 0a 20  ost likely to.. 
3c80: 20 20 20 23 20 20 20 20 20 20 20 62 65 20 73 75     #       be su
3c90: 70 65 72 66 6c 75 6f 75 73 20 74 6f 20 74 68 69  perfluous to thi
3ca0: 72 64 2d 70 61 72 74 79 20 74 65 73 74 20 73 75  rd-party test su
3cb0: 69 74 65 73 20 28 69 2e 65 2e 20 74 68 6f 73 65  ites (i.e. those
3cc0: 20 74 68 61 74 20 61 72 65 0d 0a 20 20 20 20 23   that are..    #
3cd0: 20 20 20 20 20 20 20 6e 6f 74 20 74 65 73 74 69         not testi
3ce0: 6e 67 20 74 68 65 20 45 61 67 6c 65 20 63 6f 72  ng the Eagle cor
3cf0: 65 20 6c 69 62 72 61 72 79 20 69 74 73 65 6c 66  e library itself
3d00: 29 2e 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 73  )...    #..    s
3d10: 65 74 20 6e 6f 28 63 6f 72 65 29 20 31 0d 0a 0d  et no(core) 1...
3d20: 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f  .    #..    # NO
3d30: 54 45 3a 20 4d 61 6b 65 20 74 68 65 20 70 65 72  TE: Make the per
3d40: 2d 74 65 73 74 20 63 6f 6e 6e 65 63 74 69 6f 6e  -test connection
3d50: 20 66 6c 61 67 20 6f 75 74 70 75 74 20 61 20 6c   flag output a l
3d60: 69 74 74 6c 65 20 6c 65 73 73 20 6e 6f 69 73 79  ittle less noisy
3d70: 2e 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 73 65  ...    #..    se
3d80: 74 20 6e 6f 28 65 6d 69 74 4c 6f 63 61 6c 46 6c  t no(emitLocalFl
3d90: 61 67 73 49 66 4e 6f 6e 65 29 20 31 0d 0a 20 20  agsIfNone) 1..  
3da0: 20 20 73 65 74 20 6e 6f 28 65 6d 69 74 53 68 61    set no(emitSha
3db0: 72 65 64 46 6c 61 67 73 49 66 4e 6f 6e 65 29 20  redFlagsIfNone) 
3dc0: 31 0d 0a 20 20 20 20 73 65 74 20 6e 6f 28 65 6d  1..    set no(em
3dd0: 69 74 47 6c 6f 62 61 6c 46 6c 61 67 73 49 66 4e  itGlobalFlagsIfN
3de0: 6f 6e 65 29 20 31 0d 0a 20 20 20 20 73 65 74 20  one) 1..    set 
3df0: 6e 6f 28 65 6d 69 74 43 6f 6d 62 69 6e 65 64 46  no(emitCombinedF
3e00: 6c 61 67 73 49 66 4e 6f 6e 65 29 20 31 0d 0a 0d  lagsIfNone) 1...
3e10: 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f  .    #..    # NO
3e20: 54 45 3a 20 46 6f 72 63 65 20 75 73 65 20 6f 66  TE: Force use of
3e30: 20 74 68 65 20 6e 61 74 69 76 65 20 6c 69 62 72   the native libr
3e40: 61 72 79 20 70 72 65 2d 6c 6f 61 64 65 72 20 77  ary pre-loader w
3e50: 68 65 6e 20 61 70 70 6c 69 63 61 62 6c 65 2e 0d  hen applicable..
3e60: 0a 20 20 20 20 23 0d 0a 20 20 20 20 73 65 74 20  .    #..    set 
3e70: 6e 6f 28 64 65 6c 65 74 65 53 71 6c 69 74 65 49  no(deleteSqliteI
3e80: 6d 70 6c 69 63 69 74 46 69 6c 65 73 29 20 31 0d  mplicitFiles) 1.
3e90: 0a 20 20 20 20 73 65 74 20 6e 6f 28 63 6f 70 79  .    set no(copy
3ea0: 53 71 6c 69 74 65 49 6d 70 6c 69 63 69 74 46 69  SqliteImplicitFi
3eb0: 6c 65 73 29 20 31 0d 0a 20 20 7d 0d 0a 7d 0d 0a  les) 1..  }..}..
3ec0: 0c 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23 23  ...#############
3ed0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3ee0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3ef0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3f00: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3f10: 23 23 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23  ##..############
3f20: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3f30: 23 23 23 20 45 4e 44 20 56 45 4e 44 4f 52 20 43  ### END VENDOR C
3f40: 4f 44 45 20 23 23 23 23 23 23 23 23 23 23 23 23  ODE ############
3f50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3f60: 23 23 23 0d 0a 23 23 23 23 23 23 23 23 23 23 23  ###..###########
3f70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3f80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3f90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3fa0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3fb0: 23 23 23 23 0d 0a                                ####..