System.Data.SQLite
Hex Artifact Content
Not logged in

Artifact bb0af743b816c7d73fe8f5444273e5506f17a87a:


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 45 61 67 6c 65 20 56 65 6e 64 6f  )..# Eagle Vendo
00b0: 72 20 49 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e  r Initialization
00c0: 20 46 69 6c 65 20 66 6f 72 20 53 79 73 74 65 6d   File for System
00d0: 2e 44 61 74 61 2e 53 51 4c 69 74 65 0d 0a 23 0d  .Data.SQLite..#.
00e0: 0a 23 20 43 6f 70 79 72 69 67 68 74 20 28 63 29  .# Copyright (c)
00f0: 20 32 30 30 37 2d 32 30 31 32 20 62 79 20 4a 6f   2007-2012 by Jo
0100: 65 20 4d 69 73 74 61 63 68 6b 69 6e 2e 20 20 41  e Mistachkin.  A
0110: 6c 6c 20 72 69 67 68 74 73 20 72 65 73 65 72 76  ll rights reserv
0120: 65 64 2e 0d 0a 23 0d 0a 23 20 53 65 65 20 74 68  ed...#..# See th
0130: 65 20 66 69 6c 65 20 22 6c 69 63 65 6e 73 65 2e  e file "license.
0140: 74 65 72 6d 73 22 20 66 6f 72 20 69 6e 66 6f 72  terms" for infor
0150: 6d 61 74 69 6f 6e 20 6f 6e 20 75 73 61 67 65 20  mation on usage 
0160: 61 6e 64 20 72 65 64 69 73 74 72 69 62 75 74 69  and redistributi
0170: 6f 6e 20 6f 66 0d 0a 23 20 74 68 69 73 20 66 69  on of..# this fi
0180: 6c 65 2c 20 61 6e 64 20 66 6f 72 20 61 20 44 49  le, and for a DI
0190: 53 43 4c 41 49 4d 45 52 20 4f 46 20 41 4c 4c 20  SCLAIMER OF ALL 
01a0: 57 41 52 52 41 4e 54 49 45 53 2e 0d 0a 23 0d 0a  WARRANTIES...#..
01b0: 23 20 52 43 53 3a 20 40 28 23 29 20 24 49 64 3a  # RCS: @(#) $Id:
01c0: 20 24 0d 0a 23 0d 0a 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: 23 23 23 23 23 23 0d 0a 0d 0a 23 0d 0a 23 20 53  ######....#..# S
0220: 54 55 42 3a 20 54 68 69 73 20 73 63 72 69 70 74  TUB: This script
0230: 20 66 69 6c 65 20 69 73 20 61 20 70 6c 61 63 65   file is a place
0240: 68 6f 6c 64 65 72 2e 20 20 54 68 69 73 20 66 69  holder.  This fi
0250: 6c 65 2c 20 77 68 65 6e 20 70 72 65 73 65 6e 74  le, when present
0260: 2c 20 69 73 20 61 6c 77 61 79 73 0d 0a 23 20 20  , is always..#  
0270: 20 20 20 20 20 65 76 61 6c 75 61 74 65 64 20 77       evaluated w
0280: 68 65 6e 20 61 6e 20 69 6e 74 65 72 70 72 65 74  hen an interpret
0290: 65 72 20 69 73 20 69 6e 69 74 69 61 6c 69 7a 65  er is initialize
02a0: 64 2e 20 20 56 65 6e 64 6f 72 73 20 64 69 73 74  d.  Vendors dist
02b0: 72 69 62 75 74 69 6e 67 0d 0a 23 20 20 20 20 20  ributing..#     
02c0: 20 20 45 61 67 6c 65 20 63 61 6e 20 70 6c 61 63    Eagle can plac
02d0: 65 20 63 75 73 74 6f 6d 20 61 70 70 6c 69 63 61  e custom applica
02e0: 74 69 6f 6e 2d 73 70 65 63 69 66 69 63 2c 20 69  tion-specific, i
02f0: 6e 74 65 72 70 72 65 74 65 72 2d 73 70 65 63 69  nterpreter-speci
0300: 66 69 63 0d 0a 23 20 20 20 20 20 20 20 69 6e 69  fic..#       ini
0310: 74 69 61 6c 69 7a 61 74 69 6f 6e 20 61 6e 64 2f  tialization and/
0320: 6f 72 20 63 75 73 74 6f 6d 69 7a 61 74 69 6f 6e  or customization
0330: 73 20 69 6e 20 68 65 72 65 2e 20 20 41 64 64 69  s in here.  Addi
0340: 74 69 6f 6e 61 6c 6c 79 2c 20 74 68 69 73 20 66  tionally, this f
0350: 69 6c 65 0d 0a 23 20 20 20 20 20 20 20 6d 61 79  ile..#       may
0360: 20 63 6f 6e 74 61 69 6e 20 70 65 72 2d 69 6e 74   contain per-int
0370: 65 72 70 72 65 74 65 72 20 63 75 73 74 6f 6d 69  erpreter customi
0380: 7a 61 74 69 6f 6e 73 20 72 65 71 75 69 72 65 64  zations required
0390: 20 77 68 65 6e 20 70 6f 72 74 69 6e 67 20 74 6f   when porting to
03a0: 0d 0a 23 20 20 20 20 20 20 20 6e 65 77 20 70 6c  ..#       new pl
03b0: 61 74 66 6f 72 6d 73 2c 20 6f 70 65 72 61 74 69  atforms, operati
03c0: 6e 67 20 73 79 73 74 65 6d 73 2c 20 65 74 63 2e  ng systems, etc.
03d0: 0d 0a 23 0d 0a 0c 0d 0a 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 23 23 23 23 23 23 0d 0a 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 23 23 23 23 23 23 20 42 45 47 49 4e 20 56 45  ####### BEGIN VE
0450: 4e 44 4f 52 20 43 4f 44 45 20 23 23 23 23 23 23  NDOR CODE ######
0460: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0470: 23 23 23 23 23 23 23 23 0d 0a 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 23 23 23 23 23 23 0d 0a 23 0d 0a 23 20  #########..#..# 
04d0: 4e 4f 54 45 3a 20 55 73 65 20 6f 75 72 20 6f 77  NOTE: Use our ow
04e0: 6e 20 6e 61 6d 65 73 70 61 63 65 20 68 65 72 65  n namespace here
04f0: 20 62 65 63 61 75 73 65 20 65 76 65 6e 20 74 68   because even th
0500: 6f 75 67 68 20 77 65 20 64 6f 20 6e 6f 74 20 64  ough we do not d
0510: 69 72 65 63 74 6c 79 0d 0a 23 20 20 20 20 20 20  irectly..#      
0520: 20 73 75 70 70 6f 72 74 20 6e 61 6d 65 73 70 61   support namespa
0530: 63 65 73 20 6f 75 72 73 65 6c 76 65 73 2c 20 77  ces ourselves, w
0540: 65 20 64 6f 20 6e 6f 74 20 77 61 6e 74 20 74 6f  e do not want to
0550: 20 70 6f 6c 6c 75 74 65 20 74 68 65 20 67 6c 6f   pollute the glo
0560: 62 61 6c 0d 0a 23 20 20 20 20 20 20 20 6e 61 6d  bal..#       nam
0570: 65 73 70 61 63 65 20 69 66 20 74 68 69 73 20 73  espace if this s
0580: 63 72 69 70 74 20 61 63 74 75 61 6c 6c 79 20 65  cript actually e
0590: 6e 64 73 20 75 70 20 62 65 69 6e 67 20 65 76 61  nds up being eva
05a0: 6c 75 61 74 65 64 20 69 6e 20 54 63 6c 2e 0d 0a  luated in Tcl...
05b0: 23 0d 0a 6e 61 6d 65 73 70 61 63 65 20 65 76 61  #..namespace eva
05c0: 6c 20 3a 3a 45 61 67 6c 65 20 7b 0d 0a 20 20 69  l ::Eagle {..  i
05d0: 66 20 7b 5b 69 73 45 61 67 6c 65 5d 7d 20 74 68  f {[isEagle]} th
05e0: 65 6e 20 7b 0d 0a 20 20 20 20 70 72 6f 63 20 63  en {..    proc c
05f0: 68 65 63 6b 46 6f 72 56 65 6e 64 6f 72 51 75 69  heckForVendorQui
0600: 65 74 20 7b 20 7b 6e 61 6d 65 20 22 22 7d 20 7d  et { {name ""} }
0610: 20 7b 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 69   {..      if {[i
0620: 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 65 6e 76  nfo exists ::env
0630: 28 63 68 65 63 6b 46 6f 72 56 65 6e 64 6f 72 51  (checkForVendorQ
0640: 75 69 65 74 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a  uiet)]} then {..
0650: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 74          return t
0660: 72 75 65 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a  rue..      }....
0670: 20 20 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e        if {[strin
0680: 67 20 6c 65 6e 67 74 68 20 24 6e 61 6d 65 5d 20  g length $name] 
0690: 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  > 0} then {..   
06a0: 20 20 20 20 20 73 65 74 20 65 6e 76 56 61 72 4e       set envVarN
06b0: 61 6d 65 20 5b 61 70 70 65 6e 64 41 72 67 73 20  ame [appendArgs 
06c0: 71 75 69 65 74 20 5b 73 74 72 69 6e 67 20 74 6f  quiet [string to
06d0: 75 70 70 65 72 20 5c 0d 0a 20 20 20 20 20 20 20  upper \..       
06e0: 20 20 20 20 20 5b 73 74 72 69 6e 67 20 69 6e 64       [string ind
06f0: 65 78 20 24 6e 61 6d 65 20 30 5d 5d 20 5b 73 74  ex $name 0]] [st
0700: 72 69 6e 67 20 72 61 6e 67 65 20 24 6e 61 6d 65  ring range $name
0710: 20 31 20 65 6e 64 5d 5d 0d 0a 0d 0a 20 20 20 20   1 end]]....    
0720: 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78      if {[info ex
0730: 69 73 74 73 20 3a 3a 65 6e 76 28 24 65 6e 76 56  ists ::env($envV
0740: 61 72 4e 61 6d 65 29 5d 7d 20 74 68 65 6e 20 7b  arName)]} then {
0750: 0d 0a 20 20 20 20 20 20 20 20 20 20 72 65 74 75  ..          retu
0760: 72 6e 20 74 72 75 65 0d 0a 20 20 20 20 20 20 20  rn true..       
0770: 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20   }..      }.... 
0780: 20 20 20 20 20 72 65 74 75 72 6e 20 66 61 6c 73       return fals
0790: 65 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20  e..    }.....   
07a0: 20 70 72 6f 63 20 63 68 65 63 6b 46 6f 72 54 65   proc checkForTe
07b0: 73 74 4f 76 65 72 72 69 64 65 73 20 7b 20 63 68  stOverrides { ch
07c0: 61 6e 6e 65 6c 20 76 61 72 4e 61 6d 65 73 20 71  annel varNames q
07d0: 75 69 65 74 20 7d 20 7b 0d 0a 20 20 20 20 20 20  uiet } {..      
07e0: 73 65 74 20 72 65 73 75 6c 74 20 30 0d 0a 0d 0a  set result 0....
07f0: 20 20 20 20 20 20 66 6f 72 65 61 63 68 20 76 61        foreach va
0800: 72 4e 61 6d 65 20 24 76 61 72 4e 61 6d 65 73 20  rName $varNames 
0810: 7b 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 21  {..        if {!
0820: 5b 75 70 6c 65 76 65 6c 20 31 20 5b 6c 69 73 74  [uplevel 1 [list
0830: 20 69 6e 66 6f 20 65 78 69 73 74 73 20 24 76 61   info exists $va
0840: 72 4e 61 6d 65 5d 5d 7d 20 74 68 65 6e 20 7b 0d  rName]]} then {.
0850: 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6e 74 69  .          conti
0860: 6e 75 65 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a  nue..        }..
0870: 0d 0a 20 20 20 20 20 20 20 20 69 6e 63 72 20 72  ..        incr r
0880: 65 73 75 6c 74 0d 0a 0d 0a 20 20 20 20 20 20 20  esult....       
0890: 20 69 66 20 7b 21 24 71 75 69 65 74 7d 20 74 68   if {!$quiet} th
08a0: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20  en {..          
08b0: 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 20  catch {..       
08c0: 20 20 20 20 20 74 71 70 75 74 73 20 24 63 68 61       tqputs $cha
08d0: 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73  nnel [appendArgs
08e0: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   \..            
08f0: 20 20 20 20 22 2d 2d 2d 2d 20 66 6f 75 6e 64 20      "---- found 
0900: 76 65 6e 64 6f 72 2d 73 70 65 63 69 66 69 63 20  vendor-specific 
0910: 74 65 73 74 20 6f 76 65 72 72 69 64 65 20 5c 22  test override \"
0920: 22 20 24 76 61 72 4e 61 6d 65 20 5c 0d 0a 20 20  " $varName \..  
0930: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5c                "\
0940: 22 20 77 69 74 68 20 76 61 6c 75 65 20 5c 22 22  " with value \""
0950: 20 5b 75 70 6c 65 76 65 6c 20 31 20 5b 6c 69 73   [uplevel 1 [lis
0960: 74 20 73 65 74 20 24 76 61 72 4e 61 6d 65 5d 5d  t set $varName]]
0970: 20 5c 22 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20   \"\n]..        
0980: 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a    }..        }..
0990: 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20        }....     
09a0: 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45   #..      # NOTE
09b0: 3a 20 4b 65 65 70 20 74 72 61 63 6b 20 6f 66 20  : Keep track of 
09c0: 74 68 65 20 6c 69 73 74 20 6f 66 20 74 65 73 74  the list of test
09d0: 20 6f 76 65 72 72 69 64 65 20 76 61 72 69 61 62   override variab
09e0: 6c 65 73 2c 20 66 6f 72 20 6c 61 74 65 72 0d 0a  les, for later..
09f0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 75 73        #       us
0a00: 65 20 62 79 20 74 68 65 20 74 65 73 74 20 73 75  e by the test su
0a10: 69 74 65 2e 20 20 54 68 69 73 20 6e 65 65 64 73  ite.  This needs
0a20: 20 74 6f 20 62 65 20 64 6f 6e 65 20 61 66 74 65   to be done afte
0a30: 72 20 74 68 65 20 6c 6f 6f 70 0d 0a 20 20 20 20  r the loop..    
0a40: 20 20 23 20 20 20 20 20 20 20 61 62 6f 76 65 20    #       above 
0a50: 62 65 63 61 75 73 65 20 74 68 65 20 76 61 72 69  because the vari
0a60: 61 62 6c 65 20 75 73 65 64 20 74 6f 20 6b 65 65  able used to kee
0a70: 70 20 74 72 61 63 6b 20 69 73 20 6c 69 73 74 65  p track is liste
0a80: 64 20 77 69 74 68 0d 0a 20 20 20 20 20 20 23 20  d with..      # 
0a90: 20 20 20 20 20 20 74 68 65 20 6f 74 68 65 72 20        the other 
0aa0: 70 6f 73 73 69 62 6c 65 20 74 65 73 74 20 6f 76  possible test ov
0ab0: 65 72 72 69 64 65 20 76 61 72 69 61 62 6c 65 73  erride variables
0ac0: 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20  ...      #..    
0ad0: 20 20 69 66 20 7b 21 5b 75 70 6c 65 76 65 6c 20    if {![uplevel 
0ae0: 31 20 5b 6c 69 73 74 20 69 6e 66 6f 20 65 78 69  1 [list info exi
0af0: 73 74 73 20 74 65 73 74 5f 6f 76 65 72 72 69 64  sts test_overrid
0b00: 65 73 5d 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  es]]} then {..  
0b10: 20 20 20 20 20 20 75 70 6c 65 76 65 6c 20 31 20        uplevel 1 
0b20: 5b 6c 69 73 74 20 73 65 74 20 74 65 73 74 5f 6f  [list set test_o
0b30: 76 65 72 72 69 64 65 73 20 24 76 61 72 4e 61 6d  verrides $varNam
0b40: 65 73 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a  es]..      }....
0b50: 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 72 65        return $re
0b60: 73 75 6c 74 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a  sult..    }.....
0b70: 20 20 20 20 70 72 6f 63 20 72 65 66 72 65 73 68      proc refresh
0b80: 41 75 74 6f 50 61 74 68 20 7b 7d 20 7b 0d 0a 20  AutoPath {} {.. 
0b90: 20 20 20 20 20 69 66 20 7b 5b 6c 6c 65 6e 67 74       if {[llengt
0ba0: 68 20 5b 69 6e 66 6f 20 63 6f 6d 6d 61 6e 64 73  h [info commands
0bb0: 20 64 65 62 75 67 5d 5d 20 3e 20 30 20 26 26 20   debug]] > 0 && 
0bc0: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 5b 6c 6c  \..          [ll
0bd0: 65 6e 67 74 68 20 5b 69 6e 66 6f 20 73 75 62 63  ength [info subc
0be0: 6f 6d 6d 61 6e 64 73 20 64 65 62 75 67 20 72 65  ommands debug re
0bf0: 66 72 65 73 68 61 75 74 6f 70 61 74 68 5d 5d 20  freshautopath]] 
0c00: 3e 20 30 20 26 26 20 5c 0d 0a 20 20 20 20 20 20  > 0 && \..      
0c10: 20 20 20 20 5b 63 61 74 63 68 20 7b 64 65 62 75      [catch {debu
0c20: 67 20 72 65 66 72 65 73 68 61 75 74 6f 70 61 74  g refreshautopat
0c30: 68 20 74 72 75 65 7d 5d 20 3d 3d 20 30 7d 20 74  h true}] == 0} t
0c40: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 72  hen {..        r
0c50: 65 74 75 72 6e 20 64 65 62 75 67 0d 0a 20 20 20  eturn debug..   
0c60: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 69 66     }....      if
0c70: 20 7b 5b 6c 6c 65 6e 67 74 68 20 5b 69 6e 66 6f   {[llength [info
0c80: 20 63 6f 6d 6d 61 6e 64 73 20 6f 62 6a 65 63 74   commands object
0c90: 5d 5d 20 3e 20 30 20 26 26 20 5c 0d 0a 20 20 20  ]] > 0 && \..   
0ca0: 20 20 20 20 20 20 20 5b 63 61 74 63 68 20 7b 6f         [catch {o
0cb0: 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 55 74 69  bject invoke Uti
0cc0: 6c 69 74 79 20 52 65 66 72 65 73 68 41 75 74 6f  lity RefreshAuto
0cd0: 50 61 74 68 4c 69 73 74 20 74 72 75 65 7d 5d 20  PathList true}] 
0ce0: 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  == 0} then {..  
0cf0: 20 20 20 20 20 20 72 65 74 75 72 6e 20 6f 62 6a        return obj
0d00: 65 63 74 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a  ect..      }....
0d10: 20 20 20 20 20 20 72 65 74 75 72 6e 20 22 22 0d        return "".
0d20: 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70  .    }.....    p
0d30: 72 6f 63 20 61 64 64 54 65 73 74 53 75 69 74 65  roc addTestSuite
0d40: 54 6f 41 75 74 6f 50 61 74 68 20 7b 20 63 68 61  ToAutoPath { cha
0d50: 6e 6e 65 6c 20 76 61 72 4e 61 6d 65 20 71 75 69  nnel varName qui
0d60: 65 74 20 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d  et } {..      #.
0d70: 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53  .      # NOTE: S
0d80: 74 61 72 74 20 77 69 74 68 20 74 68 65 20 64 69  tart with the di
0d90: 72 65 63 74 6f 72 79 20 63 6f 6e 74 61 69 6e 69  rectory containi
0da0: 6e 67 20 74 68 69 73 20 66 69 6c 65 2e 0d 0a 20  ng this file... 
0db0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 73 65       #..      se
0dc0: 74 20 64 69 72 20 5b 66 69 6c 65 20 6e 6f 72 6d  t dir [file norm
0dd0: 61 6c 69 7a 65 20 5b 66 69 6c 65 20 64 69 72 6e  alize [file dirn
0de0: 61 6d 65 20 5b 69 6e 66 6f 20 73 63 72 69 70 74  ame [info script
0df0: 5d 5d 5d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a  ]]]....      #..
0e00: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 4b 65        # NOTE: Ke
0e10: 65 70 20 67 6f 69 6e 67 20 75 6e 74 69 6c 20 74  ep going until t
0e20: 68 65 20 64 69 72 65 63 74 6f 72 79 20 6e 61 6d  he directory nam
0e30: 65 20 69 73 20 65 6d 70 74 79 20 4f 52 20 69 73  e is empty OR is
0e40: 20 61 63 74 75 61 6c 6c 79 20 74 68 65 0d 0a 20   actually the.. 
0e50: 20 20 20 20 20 23 20 20 20 20 20 20 20 72 6f 6f       #       roo
0e60: 74 20 6f 66 20 74 68 65 20 61 73 73 6f 63 69 61  t of the associa
0e70: 74 65 64 20 76 6f 6c 75 6d 65 2e 0d 0a 20 20 20  ted volume...   
0e80: 20 20 20 23 0d 0a 20 20 20 20 20 20 77 68 69 6c     #..      whil
0e90: 65 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74  e {[string lengt
0ea0: 68 20 24 64 69 72 5d 20 3e 20 30 20 26 26 20 5c  h $dir] > 0 && \
0eb0: 0d 0a 20 20 20 20 20 20 20 20 20 20 5b 6c 73 65  ..          [lse
0ec0: 61 72 63 68 20 2d 65 78 61 63 74 20 2d 6e 6f 63  arch -exact -noc
0ed0: 61 73 65 20 2d 2d 20 5b 66 69 6c 65 20 76 6f 6c  ase -- [file vol
0ee0: 75 6d 65 73 5d 20 24 64 69 72 5d 20 3d 3d 20 2d  umes] $dir] == -
0ef0: 31 7d 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d  1} {..        #.
0f00: 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a  .        # NOTE:
0f10: 20 53 65 74 20 74 68 65 20 73 75 62 2d 64 69 72   Set the sub-dir
0f20: 65 63 74 6f 72 79 20 77 68 65 72 65 20 74 68 65  ectory where the
0f30: 20 70 61 63 6b 61 67 65 20 69 6e 64 65 78 20 66   package index f
0f40: 69 6c 65 20 73 68 6f 75 6c 64 0d 0a 20 20 20 20  ile should..    
0f50: 20 20 20 20 23 20 20 20 20 20 20 20 62 65 20 6c      #       be l
0f60: 6f 63 61 74 65 64 20 77 69 74 68 69 6e 20 74 68  ocated within th
0f70: 65 20 64 69 72 65 63 74 6f 72 79 20 74 6f 20 62  e directory to b
0f80: 65 20 73 65 61 72 63 68 65 64 2e 0d 0a 20 20 20  e searched...   
0f90: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..        
0fa0: 73 65 74 20 64 69 72 32 20 5b 66 69 6c 65 20 6a  set dir2 [file j
0fb0: 6f 69 6e 20 6c 69 62 20 53 79 73 74 65 6d 2e 44  oin lib System.D
0fc0: 61 74 61 2e 53 51 4c 69 74 65 5d 0d 0a 0d 0a 20  ata.SQLite].... 
0fd0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..      
0fe0: 20 20 23 20 4e 4f 54 45 3a 20 44 6f 65 73 20 74    # NOTE: Does t
0ff0: 68 69 73 20 64 69 72 65 63 74 6f 72 79 20 68 61  his directory ha
1000: 76 65 20 74 68 65 20 6e 65 63 65 73 73 61 72 79  ve the necessary
1010: 20 73 75 62 2d 64 69 72 65 63 74 6f 72 79 20 74   sub-directory t
1020: 68 61 74 0d 0a 20 20 20 20 20 20 20 20 23 20 20  hat..        #  
1030: 20 20 20 20 20 63 6f 6e 74 61 69 6e 73 20 61 20       contains a 
1040: 70 61 63 6b 61 67 65 20 69 6e 64 65 78 20 66 69  package index fi
1050: 6c 65 3f 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a  le?..        #..
1060: 20 20 20 20 20 20 20 20 69 66 20 7b 5b 66 69 6c          if {[fil
1070: 65 20 65 78 69 73 74 73 20 5b 66 69 6c 65 20 6a  e exists [file j
1080: 6f 69 6e 20 24 64 69 72 20 24 64 69 72 32 5d 5d  oin $dir $dir2]]
1090: 20 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 20   && \..         
10a0: 20 20 20 5b 66 69 6c 65 20 69 73 64 69 72 65 63     [file isdirec
10b0: 74 6f 72 79 20 5b 66 69 6c 65 20 6a 6f 69 6e 20  tory [file join 
10c0: 24 64 69 72 20 24 64 69 72 32 5d 5d 20 26 26 20  $dir $dir2]] && 
10d0: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 5b  \..            [
10e0: 66 69 6c 65 20 65 78 69 73 74 73 20 5b 66 69 6c  file exists [fil
10f0: 65 20 6a 6f 69 6e 20 24 64 69 72 20 24 64 69 72  e join $dir $dir
1100: 32 20 70 6b 67 49 6e 64 65 78 2e 65 61 67 6c 65  2 pkgIndex.eagle
1110: 5d 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20 20 20  ]] && \..       
1120: 20 20 20 20 20 5b 66 69 6c 65 20 69 73 66 69 6c       [file isfil
1130: 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 64 69  e [file join $di
1140: 72 20 24 64 69 72 32 20 70 6b 67 49 6e 64 65 78  r $dir2 pkgIndex
1150: 2e 65 61 67 6c 65 5d 5d 7d 20 74 68 65 6e 20 7b  .eagle]]} then {
1160: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20  ..          #.. 
1170: 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a           # NOTE:
1180: 20 49 66 20 72 65 71 75 65 73 74 65 64 2c 20 67   If requested, g
1190: 69 76 65 20 6f 75 72 20 63 61 6c 6c 65 72 20 61  ive our caller a
11a0: 63 63 65 73 73 20 74 6f 20 74 68 65 20 6e 61 6d  ccess to the nam
11b0: 65 20 6f 66 20 74 68 65 0d 0a 20 20 20 20 20 20  e of the..      
11c0: 20 20 20 20 23 20 20 20 20 20 20 20 64 69 72 65      #       dire
11d0: 63 74 6f 72 79 20 77 65 20 6a 75 73 74 20 66 6f  ctory we just fo
11e0: 75 6e 64 2e 0d 0a 20 20 20 20 20 20 20 20 20 20  und...          
11f0: 23 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66 20  #..          if 
1200: 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20  {[string length 
1210: 24 76 61 72 4e 61 6d 65 5d 20 3e 20 30 7d 20 74  $varName] > 0} t
1220: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  hen {..         
1230: 20 20 20 75 70 76 61 72 20 31 20 24 76 61 72 4e     upvar 1 $varN
1240: 61 6d 65 20 64 69 72 33 0d 0a 20 20 20 20 20 20  ame dir3..      
1250: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20      }....       
1260: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20     #..          
1270: 23 20 4e 4f 54 45 3a 20 4f 6b 2c 20 73 68 6f 77  # NOTE: Ok, show
1280: 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 20 77   the directory w
1290: 65 20 66 6f 75 6e 64 2e 0d 0a 20 20 20 20 20 20  e found...      
12a0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20      #..         
12b0: 20 73 65 74 20 64 69 72 33 20 5b 66 69 6c 65 20   set dir3 [file 
12c0: 6a 6f 69 6e 20 24 64 69 72 20 24 64 69 72 32 5d  join $dir $dir2]
12d0: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d  ....          #.
12e0: 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54  .          # NOT
12f0: 45 3a 20 57 65 20 66 6f 75 6e 64 20 74 68 65 20  E: We found the 
1300: 6e 65 63 65 73 73 61 72 79 20 64 69 72 65 63 74  necessary direct
1310: 6f 72 79 20 74 6f 20 61 64 64 20 74 6f 20 74 68  ory to add to th
1320: 65 20 61 75 74 6f 2d 70 61 74 68 3b 0d 0a 20 20  e auto-path;..  
1330: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20          #       
1340: 48 6f 77 65 76 65 72 2c 20 77 65 20 63 61 6e 6e  However, we cann
1350: 6f 74 20 73 69 6d 70 6c 79 20 61 64 64 20 69 74  ot simply add it
1360: 20 74 6f 20 74 68 65 20 61 75 74 6f 2d 70 61 74   to the auto-pat
1370: 68 20 64 69 72 65 63 74 6c 79 0d 0a 20 20 20 20  h directly..    
1380: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 62 65        #       be
1390: 63 61 75 73 65 20 74 68 65 20 61 75 74 6f 2d 70  cause the auto-p
13a0: 61 74 68 20 69 73 20 64 79 6e 61 6d 69 63 61 6c  ath is dynamical
13b0: 6c 79 20 63 6f 6e 73 74 72 75 63 74 65 64 20 61  ly constructed a
13c0: 66 74 65 72 20 74 68 69 73 0d 0a 20 20 20 20 20  fter this..     
13d0: 20 20 20 20 20 23 20 20 20 20 20 20 20 73 63 72       #       scr
13e0: 69 70 74 20 69 73 20 65 76 61 6c 75 61 74 65 64  ipt is evaluated
13f0: 3b 20 74 68 65 72 65 66 6f 72 65 2c 20 73 65 74  ; therefore, set
1400: 20 74 68 65 20 45 61 67 6c 65 20 6c 69 62 72 61   the Eagle libra
1410: 72 79 20 70 61 74 68 0d 0a 20 20 20 20 20 20 20  ry path..       
1420: 20 20 20 23 20 20 20 20 20 20 20 65 6e 76 69 72     #       envir
1430: 6f 6e 6d 65 6e 74 20 76 61 72 69 61 62 6c 65 20  onment variable 
1440: 61 6e 64 20 66 6f 72 63 65 20 74 68 65 20 61 70  and force the ap
1450: 70 72 6f 70 72 69 61 74 65 20 69 6e 74 65 72 6e  propriate intern
1460: 61 6c 20 70 61 74 68 0d 0a 20 20 20 20 20 20 20  al path..       
1470: 20 20 20 23 20 20 20 20 20 20 20 6c 69 73 74 20     #       list 
1480: 74 6f 20 62 65 20 72 65 66 72 65 73 68 65 64 2e  to be refreshed.
1490: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20  ..          #.. 
14a0: 20 20 20 20 20 20 20 20 20 69 66 20 7b 21 5b 69           if {![i
14b0: 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 65 6e 76  nfo exists ::env
14c0: 28 45 41 47 4c 45 4c 49 42 50 41 54 48 29 5d 20  (EAGLELIBPATH)] 
14d0: 7c 7c 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  || \..          
14e0: 20 20 20 20 5b 6c 73 65 61 72 63 68 20 2d 65 78      [lsearch -ex
14f0: 61 63 74 20 24 3a 3a 65 6e 76 28 45 41 47 4c 45  act $::env(EAGLE
1500: 4c 49 42 50 41 54 48 29 20 24 64 69 72 33 5d 20  LIBPATH) $dir3] 
1510: 3d 3d 20 2d 31 7d 20 74 68 65 6e 20 7b 0d 0a 20  == -1} then {.. 
1520: 20 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20             #..  
1530: 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45            # NOTE
1540: 3a 20 49 66 20 77 65 20 68 61 76 65 20 4e 4f 54  : If we have NOT
1550: 20 62 65 65 6e 20 69 6e 73 74 72 75 63 74 65 64   been instructed
1560: 20 74 6f 20 62 65 20 71 75 69 65 74 2c 20 72 65   to be quiet, re
1570: 70 6f 72 74 20 6e 6f 77 2e 0d 0a 20 20 20 20 20  port now...     
1580: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..      
1590: 20 20 20 20 20 20 69 66 20 7b 21 24 71 75 69 65        if {!$quie
15a0: 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  t} then {..     
15b0: 20 20 20 20 20 20 20 20 20 63 61 74 63 68 20 7b           catch {
15c0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
15d0: 20 20 74 71 70 75 74 73 20 24 63 68 61 6e 6e 65    tqputs $channe
15e0: 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d  l [appendArgs \.
15f0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
1600: 20 20 20 20 20 22 2d 2d 2d 2d 20 66 6f 75 6e 64       "---- found
1610: 20 76 65 6e 64 6f 72 2d 73 70 65 63 69 66 69 63   vendor-specific
1620: 20 74 65 73 74 20 70 61 63 6b 61 67 65 20 64 69   test package di
1630: 72 65 63 74 6f 72 79 20 5c 22 22 20 5c 0d 0a 20  rectory \"" \.. 
1640: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1650: 20 20 20 24 64 69 72 33 20 22 5c 22 2c 20 61 64     $dir3 "\", ad
1660: 64 69 6e 67 2e 2e 2e 5c 6e 22 5d 0d 0a 20 20 20  ding...\n"]..   
1670: 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20             }..  
1680: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20            }.... 
1690: 20 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20             #..  
16a0: 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45            # NOTE
16b0: 3a 20 41 70 70 65 6e 64 20 74 68 65 20 64 69 72  : Append the dir
16c0: 65 63 74 6f 72 79 20 74 6f 20 74 68 65 20 6e 65  ectory to the ne
16d0: 63 65 73 73 61 72 79 20 65 6e 76 69 72 6f 6e 6d  cessary environm
16e0: 65 6e 74 20 76 61 72 69 61 62 6c 65 0d 0a 20 20  ent variable..  
16f0: 20 20 20 20 20 20 20 20 20 20 23 20 20 20 20 20            #     
1700: 20 20 73 6f 20 74 68 61 74 20 69 74 20 77 69 6c    so that it wil
1710: 6c 20 67 65 74 20 70 69 63 6b 65 64 20 75 70 20  l get picked up 
1720: 77 68 65 6e 20 45 61 67 6c 65 20 61 63 74 75 61  when Eagle actua
1730: 6c 6c 79 20 72 65 62 75 69 6c 64 73 0d 0a 20 20  lly rebuilds..  
1740: 20 20 20 20 20 20 20 20 20 20 23 20 20 20 20 20            #     
1750: 20 20 74 68 65 20 61 75 74 6f 2d 70 61 74 68 20    the auto-path 
1760: 6c 69 73 74 20 28 62 65 6c 6f 77 29 2e 0d 0a 20  list (below)... 
1770: 20 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20             #..  
1780: 20 20 20 20 20 20 20 20 20 20 6c 61 70 70 65 6e            lappen
1790: 64 20 3a 3a 65 6e 76 28 45 41 47 4c 45 4c 49 42  d ::env(EAGLELIB
17a0: 50 41 54 48 29 20 24 64 69 72 33 0d 0a 0d 0a 20  PATH) $dir3.... 
17b0: 20 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20             #..  
17c0: 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45            # NOTE
17d0: 3a 20 41 74 74 65 6d 70 74 20 74 6f 20 66 6f 72  : Attempt to for
17e0: 63 65 20 45 61 67 6c 65 20 74 6f 20 72 65 62 75  ce Eagle to rebu
17f0: 69 6c 64 20 74 68 65 20 61 75 74 6f 2d 70 61 74  ild the auto-pat
1800: 68 20 66 6f 72 20 74 68 65 0d 0a 20 20 20 20 20  h for the..     
1810: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 63         #       c
1820: 75 72 72 65 6e 74 20 69 6e 74 65 72 70 72 65 74  urrent interpret
1830: 65 72 20 72 69 67 68 74 20 6e 6f 77 2e 0d 0a 20  er right now... 
1840: 20 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20             #..  
1850: 20 20 20 20 20 20 20 20 20 20 73 65 74 20 72 65            set re
1860: 66 72 65 73 68 20 5b 72 65 66 72 65 73 68 41 75  fresh [refreshAu
1870: 74 6f 50 61 74 68 5d 0d 0a 0d 0a 20 20 20 20 20  toPath]....     
1880: 20 20 20 20 20 20 20 69 66 20 7b 5b 73 74 72 69         if {[stri
1890: 6e 67 20 6c 65 6e 67 74 68 20 24 72 65 66 72 65  ng length $refre
18a0: 73 68 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b  sh] == 0} then {
18b0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
18c0: 23 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  #..             
18d0: 20 23 20 4e 4f 54 45 3a 20 4f 6b 2c 20 6d 61 79   # NOTE: Ok, may
18e0: 62 65 20 74 68 65 20 5b 6f 62 6a 65 63 74 5d 20  be the [object] 
18f0: 63 6f 6d 6d 61 6e 64 20 69 73 20 6e 6f 74 20 61  command is not a
1900: 76 61 69 6c 61 62 6c 65 2e 20 20 52 65 73 63 61  vailable.  Resca
1910: 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  n..             
1920: 20 23 20 20 20 20 20 20 20 74 68 65 20 70 61 63   #       the pac
1930: 6b 61 67 65 20 69 6e 64 65 78 65 73 20 75 73 69  kage indexes usi
1940: 6e 67 20 74 68 65 20 5b 70 61 63 6b 61 67 65 20  ng the [package 
1950: 73 63 61 6e 5d 20 73 75 62 2d 63 6f 6d 6d 61 6e  scan] sub-comman
1960: 64 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  d..             
1970: 20 23 20 20 20 20 20 20 20 69 6e 20 74 68 61 74   #       in that
1980: 20 63 61 73 65 2e 20 20 54 68 65 20 64 69 72 65   case.  The dire
1990: 63 74 6f 72 69 65 73 20 77 69 74 68 69 6e 20 45  ctories within E
19a0: 41 47 4c 45 4c 49 42 50 41 54 48 20 77 69 6c 6c  AGLELIBPATH will
19b0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
19c0: 23 20 20 20 20 20 20 20 6e 6f 74 20 62 65 20 61  #       not be a
19d0: 64 64 65 64 20 74 6f 20 74 68 65 20 61 75 74 6f  dded to the auto
19e0: 2d 70 61 74 68 3b 20 68 6f 77 65 76 65 72 2c 20  -path; however, 
19f0: 61 6c 6c 20 74 68 65 20 70 61 63 6b 61 67 65 0d  all the package.
1a00: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23  .              #
1a10: 20 20 20 20 20 20 20 69 6e 64 65 78 65 73 20 61         indexes a
1a20: 6e 64 20 74 68 65 69 72 20 61 73 73 6f 63 69 61  nd their associa
1a30: 74 65 64 20 70 61 63 6b 61 67 65 73 20 77 69 6c  ted packages wil
1a40: 6c 20 62 65 20 61 76 61 69 6c 61 62 6c 65 2e 0d  l be available..
1a50: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23  .              #
1a60: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
1a70: 69 66 20 7b 21 24 71 75 69 65 74 7d 20 74 68 65  if {!$quiet} the
1a80: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20  n {..           
1a90: 20 20 20 20 20 63 61 74 63 68 20 7b 0d 0a 20 20       catch {..  
1aa0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1ab0: 74 71 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20  tqputs $channel 
1ac0: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20  [appendArgs \.. 
1ad0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1ae0: 20 20 20 20 20 22 2d 2d 2d 2d 20 75 6e 61 62 6c       "---- unabl
1af0: 65 20 74 6f 20 66 6f 72 63 69 62 6c 79 20 72 65  e to forcibly re
1b00: 66 72 65 73 68 20 61 75 74 6f 2d 70 61 74 68 20  fresh auto-path 
1b10: 6c 69 73 74 2c 20 22 20 5c 0d 0a 20 20 20 20 20  list, " \..     
1b20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1b30: 20 22 73 63 61 6e 6e 69 6e 67 20 5c 22 22 20 24   "scanning \"" $
1b40: 3a 3a 65 6e 76 28 45 41 47 4c 45 4c 49 42 50 41  ::env(EAGLELIBPA
1b50: 54 48 29 20 22 5c 22 20 69 6e 73 74 65 61 64 2e  TH) "\" instead.
1b60: 2e 2e 5c 6e 22 5d 0d 0a 20 20 20 20 20 20 20 20  ..\n"]..        
1b70: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20          }..     
1b80: 20 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20           }....  
1b90: 20 20 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20              #.. 
1ba0: 20 20 20 20 20 20 20 20 20 20 20 20 20 23 20 4e               # N
1bb0: 4f 54 45 3a 20 49 6e 20 74 68 65 6f 72 79 2c 20  OTE: In theory, 
1bc0: 74 68 69 73 20 63 61 6c 6c 20 74 6f 20 74 68 65  this call to the
1bd0: 20 5b 70 61 63 6b 61 67 65 20 73 63 61 6e 5d 20   [package scan] 
1be0: 73 75 62 2d 63 6f 6d 6d 61 6e 64 0d 0a 20 20 20  sub-command..   
1bf0: 20 20 20 20 20 20 20 20 20 20 20 23 20 20 20 20             #    
1c00: 20 20 20 63 6f 75 6c 64 20 66 61 69 6c 2c 20 72     could fail, r
1c10: 61 69 73 69 6e 67 20 61 20 73 63 72 69 70 74 20  aising a script 
1c20: 65 72 72 6f 72 20 68 65 72 65 3b 20 68 6f 77 65  error here; howe
1c30: 76 65 72 2c 20 74 68 61 74 0d 0a 20 20 20 20 20  ver, that..     
1c40: 20 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20           #      
1c50: 20 69 73 20 68 69 67 68 6c 79 20 75 6e 6c 69 6b   is highly unlik
1c60: 65 6c 79 2e 0d 0a 20 20 20 20 20 20 20 20 20 20  ely...          
1c70: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20      #..         
1c80: 20 20 20 20 20 65 76 61 6c 20 70 61 63 6b 61 67       eval packag
1c90: 65 20 73 63 61 6e 20 2d 68 6f 73 74 20 2d 6e 6f  e scan -host -no
1ca0: 72 6d 61 6c 20 2d 72 65 66 72 65 73 68 20 2d 2d  rmal -refresh --
1cb0: 20 24 3a 3a 65 6e 76 28 45 41 47 4c 45 4c 49 42   $::env(EAGLELIB
1cc0: 50 41 54 48 29 0d 0a 20 20 20 20 20 20 20 20 20  PATH)..         
1cd0: 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20     } else {..   
1ce0: 20 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 21             if {!
1cf0: 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a  $quiet} then {..
1d00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1d10: 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 20  catch {..       
1d20: 20 20 20 20 20 20 20 20 20 20 20 74 71 70 75 74             tqput
1d30: 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65  s $channel [appe
1d40: 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20  ndArgs \..      
1d50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1d60: 22 2d 2d 2d 2d 20 66 6f 72 63 69 62 6c 79 20 72  "---- forcibly r
1d70: 65 66 72 65 73 68 65 64 20 61 75 74 6f 2d 70 61  efreshed auto-pa
1d80: 74 68 20 6c 69 73 74 20 76 69 61 20 5c 22 22 20  th list via \"" 
1d90: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  \..             
1da0: 20 20 20 20 20 20 20 20 20 24 72 65 66 72 65 73           $refres
1db0: 68 20 22 5c 22 20 63 6f 6d 6d 61 6e 64 5c 6e 22  h "\" command\n"
1dc0: 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  ]..             
1dd0: 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20     }..          
1de0: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20      }..         
1df0: 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20     }..          
1e00: 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 23  }....          #
1e10: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f  ..          # NO
1e20: 54 45 3a 20 57 65 20 61 72 65 20 64 6f 6e 65 2c  TE: We are done,
1e30: 20 72 65 74 75 72 6e 20 73 75 63 63 65 73 73 2e   return success.
1e40: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20  ..          #.. 
1e50: 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20           return 
1e60: 74 72 75 65 0d 0a 20 20 20 20 20 20 20 20 7d 0d  true..        }.
1e70: 0a 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20  ...        #..  
1e80: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 4b 65        # NOTE: Ke
1e90: 65 70 20 67 6f 69 6e 67 20 75 70 20 74 68 65 20  ep going up the 
1ea0: 64 69 72 65 63 74 6f 72 79 20 74 72 65 65 2e 2e  directory tree..
1eb0: 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20  ...        #..  
1ec0: 20 20 20 20 20 20 73 65 74 20 64 69 72 20 5b 66        set dir [f
1ed0: 69 6c 65 20 64 69 72 6e 61 6d 65 20 24 64 69 72  ile dirname $dir
1ee0: 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20  ]..      }....  
1ef0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e      #..      # N
1f00: 4f 54 45 3a 20 49 66 20 77 65 20 68 61 76 65 20  OTE: If we have 
1f10: 4e 4f 54 20 62 65 65 6e 20 69 6e 73 74 72 75 63  NOT been instruc
1f20: 74 65 64 20 74 6f 20 62 65 20 71 75 69 65 74 2c  ted to be quiet,
1f30: 20 72 65 70 6f 72 74 20 6e 6f 77 2e 0d 0a 20 20   report now...  
1f40: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20      #..      if 
1f50: 7b 21 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b  {!$quiet} then {
1f60: 0d 0a 20 20 20 20 20 20 20 20 63 61 74 63 68 20  ..        catch 
1f70: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 74 71 70  {..          tqp
1f80: 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 5c 0d 0a  uts $channel \..
1f90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2d                "-
1fa0: 2d 2d 2d 20 63 6f 75 6c 64 20 6e 6f 74 20 66 69  --- could not fi
1fb0: 6e 64 20 76 65 6e 64 6f 72 2d 73 70 65 63 69 66  nd vendor-specif
1fc0: 69 63 20 74 65 73 74 20 70 61 63 6b 61 67 65 20  ic test package 
1fd0: 64 69 72 65 63 74 6f 72 79 5c 6e 22 0d 0a 20 20  directory\n"..  
1fe0: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d        }..      }
1ff0: 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20  ....      #..   
2000: 20 20 20 23 20 4e 4f 54 45 3a 20 44 69 72 65 63     # NOTE: Direc
2010: 74 6f 72 79 20 6e 6f 74 20 66 6f 75 6e 64 2c 20  tory not found, 
2020: 72 65 74 75 72 6e 20 66 61 69 6c 75 72 65 2e 0d  return failure..
2030: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20  .      #..      
2040: 72 65 74 75 72 6e 20 66 61 6c 73 65 0d 0a 20 20  return false..  
2050: 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63    }.....    proc
2060: 20 66 69 6e 64 49 6e 74 65 72 70 72 65 74 65 72   findInterpreter
2070: 54 65 73 74 50 61 74 68 20 7b 20 63 68 61 6e 6e  TestPath { chann
2080: 65 6c 20 64 69 72 20 76 61 72 4e 61 6d 65 20 71  el dir varName q
2090: 75 69 65 74 20 7d 20 7b 0d 0a 20 20 20 20 20 20  uiet } {..      
20a0: 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a  #..      # NOTE:
20b0: 20 53 74 61 72 74 20 77 69 74 68 20 74 68 65 20   Start with the 
20c0: 73 70 65 63 69 66 69 65 64 20 64 69 72 65 63 74  specified direct
20d0: 6f 72 79 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20  ory...      #.. 
20e0: 20 20 20 20 20 73 65 74 20 64 69 72 32 20 24 64       set dir2 $d
20f0: 69 72 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20  ir....      #.. 
2100: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 4b 65 65       # NOTE: Kee
2110: 70 20 67 6f 69 6e 67 20 75 6e 74 69 6c 20 74 68  p going until th
2120: 65 20 64 69 72 65 63 74 6f 72 79 20 6e 61 6d 65  e directory name
2130: 20 69 73 20 65 6d 70 74 79 20 4f 52 20 69 73 20   is empty OR is 
2140: 61 63 74 75 61 6c 6c 79 20 74 68 65 0d 0a 20 20  actually the..  
2150: 20 20 20 20 23 20 20 20 20 20 20 20 72 6f 6f 74      #       root
2160: 20 6f 66 20 74 68 65 20 61 73 73 6f 63 69 61 74   of the associat
2170: 65 64 20 76 6f 6c 75 6d 65 2e 0d 0a 20 20 20 20  ed volume...    
2180: 20 20 23 0d 0a 20 20 20 20 20 20 77 68 69 6c 65    #..      while
2190: 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68   {[string length
21a0: 20 24 64 69 72 32 5d 20 3e 20 30 20 26 26 20 5c   $dir2] > 0 && \
21b0: 0d 0a 20 20 20 20 20 20 20 20 20 20 5b 6c 73 65  ..          [lse
21c0: 61 72 63 68 20 2d 65 78 61 63 74 20 2d 6e 6f 63  arch -exact -noc
21d0: 61 73 65 20 2d 2d 20 5b 66 69 6c 65 20 76 6f 6c  ase -- [file vol
21e0: 75 6d 65 73 5d 20 24 64 69 72 32 5d 20 3d 3d 20  umes] $dir2] == 
21f0: 2d 31 7d 20 7b 0d 0a 20 20 20 20 20 20 20 20 23  -1} {..        #
2200: 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45  ..        # NOTE
2210: 3a 20 53 65 74 20 74 68 65 20 73 75 62 2d 64 69  : Set the sub-di
2220: 72 65 63 74 6f 72 79 20 77 68 65 72 65 20 74 68  rectory where th
2230: 65 20 74 65 73 74 20 73 75 69 74 65 20 66 69 6c  e test suite fil
2240: 65 20 73 68 6f 75 6c 64 20 62 65 0d 0a 20 20 20  e should be..   
2250: 20 20 20 20 20 23 20 20 20 20 20 20 20 6c 6f 63       #       loc
2260: 61 74 65 64 20 77 69 74 68 69 6e 20 74 68 65 20  ated within the 
2270: 64 69 72 65 63 74 6f 72 79 20 74 6f 20 62 65 20  directory to be 
2280: 73 65 61 72 63 68 65 64 2e 0d 0a 20 20 20 20 20  searched...     
2290: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 73 65     #..        se
22a0: 74 20 64 69 72 33 20 54 65 73 74 73 0d 0a 0d 0a  t dir3 Tests....
22b0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..     
22c0: 20 20 20 23 20 4e 4f 54 45 3a 20 44 6f 65 73 20     # NOTE: Does 
22d0: 74 68 69 73 20 64 69 72 65 63 74 6f 72 79 20 68  this directory h
22e0: 61 76 65 20 74 68 65 20 6e 65 63 65 73 73 61 72  ave the necessar
22f0: 79 20 73 75 62 2d 64 69 72 65 63 74 6f 72 79 20  y sub-directory 
2300: 74 68 61 74 0d 0a 20 20 20 20 20 20 20 20 23 20  that..        # 
2310: 20 20 20 20 20 20 63 6f 6e 74 61 69 6e 73 20 74        contains t
2320: 68 65 20 74 65 73 74 20 73 75 69 74 65 20 66 69  he test suite fi
2330: 6c 65 3f 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a  le?..        #..
2340: 20 20 20 20 20 20 20 20 69 66 20 7b 5b 66 69 6c          if {[fil
2350: 65 20 65 78 69 73 74 73 20 5b 66 69 6c 65 20 6a  e exists [file j
2360: 6f 69 6e 20 24 64 69 72 32 20 24 64 69 72 33 5d  oin $dir2 $dir3]
2370: 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 20  ] && \..        
2380: 20 20 20 20 5b 66 69 6c 65 20 69 73 64 69 72 65      [file isdire
2390: 63 74 6f 72 79 20 5b 66 69 6c 65 20 6a 6f 69 6e  ctory [file join
23a0: 20 24 64 69 72 32 20 24 64 69 72 33 5d 5d 20 26   $dir2 $dir3]] &
23b0: 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20  & \..           
23c0: 20 5b 66 69 6c 65 20 65 78 69 73 74 73 20 5b 66   [file exists [f
23d0: 69 6c 65 20 6a 6f 69 6e 20 24 64 69 72 32 20 24  ile join $dir2 $
23e0: 64 69 72 33 20 61 6c 6c 2e 65 61 67 6c 65 5d 5d  dir3 all.eagle]]
23f0: 20 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 20   && \..         
2400: 20 20 20 5b 66 69 6c 65 20 69 73 66 69 6c 65 20     [file isfile 
2410: 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 64 69 72 32  [file join $dir2
2420: 20 24 64 69 72 33 20 61 6c 6c 2e 65 61 67 6c 65   $dir3 all.eagle
2430: 5d 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20  ]]} then {..    
2440: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
2450: 20 20 20 23 20 4e 4f 54 45 3a 20 49 66 20 72 65     # NOTE: If re
2460: 71 75 65 73 74 65 64 2c 20 67 69 76 65 20 6f 75  quested, give ou
2470: 72 20 63 61 6c 6c 65 72 20 61 63 63 65 73 73 20  r caller access 
2480: 74 6f 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 74  to the name of t
2490: 68 65 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20  he..          # 
24a0: 20 20 20 20 20 20 64 69 72 65 63 74 6f 72 79 20        directory 
24b0: 77 65 20 6a 75 73 74 20 66 6f 75 6e 64 2e 0d 0a  we just found...
24c0: 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20            #..   
24d0: 20 20 20 20 20 20 20 69 66 20 7b 5b 73 74 72 69         if {[stri
24e0: 6e 67 20 6c 65 6e 67 74 68 20 24 76 61 72 4e 61  ng length $varNa
24f0: 6d 65 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d  me] > 0} then {.
2500: 0a 20 20 20 20 20 20 20 20 20 20 20 20 75 70 76  .            upv
2510: 61 72 20 31 20 24 76 61 72 4e 61 6d 65 20 64 69  ar 1 $varName di
2520: 72 34 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d  r4..          }.
2530: 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a  ...          #..
2540: 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45            # NOTE
2550: 3a 20 4f 6b 2c 20 73 68 6f 77 20 74 68 65 20 64  : Ok, show the d
2560: 69 72 65 63 74 6f 72 79 20 77 65 20 66 6f 75 6e  irectory we foun
2570: 64 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d  d...          #.
2580: 0a 20 20 20 20 20 20 20 20 20 20 73 65 74 20 64  .          set d
2590: 69 72 34 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24  ir4 [file join $
25a0: 64 69 72 32 20 24 64 69 72 33 5d 0d 0a 0d 0a 20  dir2 $dir3].... 
25b0: 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20           #..    
25c0: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 49 66        # NOTE: If
25d0: 20 77 65 20 68 61 76 65 20 4e 4f 54 20 62 65 65   we have NOT bee
25e0: 6e 20 69 6e 73 74 72 75 63 74 65 64 20 74 6f 20  n instructed to 
25f0: 62 65 20 71 75 69 65 74 2c 20 72 65 70 6f 72 74  be quiet, report
2600: 20 6e 6f 77 2e 0d 0a 20 20 20 20 20 20 20 20 20   now...         
2610: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66   #..          if
2620: 20 7b 21 24 71 75 69 65 74 7d 20 74 68 65 6e 20   {!$quiet} then 
2630: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 63  {..            c
2640: 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20  atch {..        
2650: 20 20 20 20 20 20 74 71 70 75 74 73 20 24 63 68        tqputs $ch
2660: 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67  annel [appendArg
2670: 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20  s \..           
2680: 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 66 6f 75         "---- fou
2690: 6e 64 20 76 65 6e 64 6f 72 2d 73 70 65 63 69 66  nd vendor-specif
26a0: 69 63 20 74 65 73 74 20 73 75 69 74 65 20 64 69  ic test suite di
26b0: 72 65 63 74 6f 72 79 20 5c 22 22 20 5c 0d 0a 20  rectory \"" \.. 
26c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
26d0: 20 24 64 69 72 34 20 5c 22 5c 6e 5d 0d 0a 20 20   $dir4 \"\n]..  
26e0: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20            }..   
26f0: 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20         }....    
2700: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
2710: 20 20 20 23 20 4e 4f 54 45 3a 20 57 65 20 61 72     # NOTE: We ar
2720: 65 20 64 6f 6e 65 2c 20 72 65 74 75 72 6e 20 73  e done, return s
2730: 75 63 63 65 73 73 2e 0d 0a 20 20 20 20 20 20 20  uccess...       
2740: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20     #..          
2750: 72 65 74 75 72 6e 20 74 72 75 65 0d 0a 20 20 20  return true..   
2760: 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20       }....      
2770: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e    #..        # N
2780: 4f 54 45 3a 20 4b 65 65 70 20 67 6f 69 6e 67 20  OTE: Keep going 
2790: 75 70 20 74 68 65 20 64 69 72 65 63 74 6f 72 79  up the directory
27a0: 20 74 72 65 65 2e 2e 2e 0d 0a 20 20 20 20 20 20   tree.....      
27b0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 73 65 74    #..        set
27c0: 20 64 69 72 32 20 5b 66 69 6c 65 20 64 69 72 6e   dir2 [file dirn
27d0: 61 6d 65 20 24 64 69 72 32 5d 0d 0a 20 20 20 20  ame $dir2]..    
27e0: 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a    }....      #..
27f0: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 49 66        # NOTE: If
2800: 20 77 65 20 68 61 76 65 20 4e 4f 54 20 62 65 65   we have NOT bee
2810: 6e 20 69 6e 73 74 72 75 63 74 65 64 20 74 6f 20  n instructed to 
2820: 62 65 20 71 75 69 65 74 2c 20 72 65 70 6f 72 74  be quiet, report
2830: 20 6e 6f 77 2e 0d 0a 20 20 20 20 20 20 23 0d 0a   now...      #..
2840: 20 20 20 20 20 20 69 66 20 7b 21 24 71 75 69 65        if {!$quie
2850: 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  t} then {..     
2860: 20 20 20 63 61 74 63 68 20 7b 0d 0a 20 20 20 20     catch {..    
2870: 20 20 20 20 20 20 74 71 70 75 74 73 20 24 63 68        tqputs $ch
2880: 61 6e 6e 65 6c 20 5c 0d 0a 20 20 20 20 20 20 20  annel \..       
2890: 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 63 6f 75         "---- cou
28a0: 6c 64 20 6e 6f 74 20 66 69 6e 64 20 76 65 6e 64  ld not find vend
28b0: 6f 72 2d 73 70 65 63 69 66 69 63 20 74 65 73 74  or-specific test
28c0: 20 73 75 69 74 65 20 64 69 72 65 63 74 6f 72 79   suite directory
28d0: 5c 6e 22 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a  \n"..        }..
28e0: 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20        }....     
28f0: 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45   #..      # NOTE
2900: 3a 20 44 69 72 65 63 74 6f 72 79 20 6e 6f 74 20  : Directory not 
2910: 66 6f 75 6e 64 2c 20 72 65 74 75 72 6e 20 66 61  found, return fa
2920: 69 6c 75 72 65 2e 0d 0a 20 20 20 20 20 20 23 0d  ilure...      #.
2930: 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 66 61  .      return fa
2940: 6c 73 65 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20  lse..    }..... 
2950: 20 20 20 70 72 6f 63 20 73 65 74 75 70 49 6e 74     proc setupInt
2960: 65 72 70 72 65 74 65 72 54 65 73 74 50 61 74 68  erpreterTestPath
2970: 20 7b 20 63 68 61 6e 6e 65 6c 20 64 69 72 20 71   { channel dir q
2980: 75 69 65 74 20 7d 20 7b 0d 0a 20 20 20 20 20 20  uiet } {..      
2990: 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 5b 69 6e  if {[llength [in
29a0: 66 6f 20 63 6f 6d 6d 61 6e 64 73 20 64 65 62 75  fo commands debu
29b0: 67 5d 5d 20 3e 20 30 20 26 26 20 5c 0d 0a 20 20  g]] > 0 && \..  
29c0: 20 20 20 20 20 20 20 20 5b 6c 6c 65 6e 67 74 68          [llength
29d0: 20 5b 69 6e 66 6f 20 73 75 62 63 6f 6d 6d 61 6e   [info subcomman
29e0: 64 73 20 64 65 62 75 67 20 74 65 73 74 70 61 74  ds debug testpat
29f0: 68 5d 5d 20 3e 20 30 20 26 26 20 5c 0d 0a 20 20  h]] > 0 && \..  
2a00: 20 20 20 20 20 20 20 20 5b 63 61 74 63 68 20 7b          [catch {
2a10: 64 65 62 75 67 20 74 65 73 74 70 61 74 68 7d 20  debug testpath} 
2a20: 74 65 73 74 50 61 74 68 5d 20 3d 3d 20 30 7d 20  testPath] == 0} 
2a30: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20  then {..        
2a40: 69 66 20 7b 24 64 69 72 20 6e 65 20 24 74 65 73  if {$dir ne $tes
2a50: 74 50 61 74 68 7d 20 74 68 65 6e 20 7b 0d 0a 20  tPath} then {.. 
2a60: 20 20 20 20 20 20 20 20 20 64 65 62 75 67 20 74           debug t
2a70: 65 73 74 70 61 74 68 20 24 64 69 72 0d 0a 0d 0a  estpath $dir....
2a80: 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 21 24            if {!$
2a90: 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a 20  quiet} then {.. 
2aa0: 20 20 20 20 20 20 20 20 20 20 20 63 61 74 63 68             catch
2ab0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..            
2ac0: 20 20 74 71 70 75 74 73 20 24 63 68 61 6e 6e 65    tqputs $channe
2ad0: 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d  l [appendArgs \.
2ae0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
2af0: 20 20 20 22 2d 2d 2d 2d 20 73 65 74 20 69 6e 74     "---- set int
2b00: 65 72 70 72 65 74 65 72 20 74 65 73 74 20 70 61  erpreter test pa
2b10: 74 68 20 74 6f 20 5c 22 22 20 24 64 69 72 20 5c  th to \"" $dir \
2b20: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
2b30: 20 20 20 20 22 5c 22 20 76 69 61 20 5c 22 64 65      "\" via \"de
2b40: 62 75 67 5c 22 20 63 6f 6d 6d 61 6e 64 5c 6e 22  bug\" command\n"
2b50: 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d  ]..            }
2b60: 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20  ..          }.. 
2b70: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20         }..      
2b80: 7d 20 65 6c 73 65 69 66 20 7b 5b 6c 6c 65 6e 67  } elseif {[lleng
2b90: 74 68 20 5b 69 6e 66 6f 20 63 6f 6d 6d 61 6e 64  th [info command
2ba0: 73 20 6f 62 6a 65 63 74 5d 5d 20 3e 20 30 20 26  s object]] > 0 &
2bb0: 26 20 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20 20  & [catch {..    
2bc0: 20 20 20 20 6f 62 6a 65 63 74 20 69 6e 76 6f 6b      object invok
2bd0: 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 62  e -flags +NonPub
2be0: 6c 69 63 20 49 6e 74 65 72 70 72 65 74 65 72 2e  lic Interpreter.
2bf0: 47 65 74 41 63 74 69 76 65 20 54 65 73 74 50 61  GetActive TestPa
2c00: 74 68 0d 0a 20 20 20 20 20 20 7d 20 74 65 73 74  th..      } test
2c10: 50 61 74 68 5d 20 3d 3d 20 30 7d 20 74 68 65 6e  Path] == 0} then
2c20: 20 7b 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b   {..        if {
2c30: 24 64 69 72 20 6e 65 20 24 74 65 73 74 50 61 74  $dir ne $testPat
2c40: 68 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  h} then {..     
2c50: 20 20 20 20 20 6f 62 6a 65 63 74 20 69 6e 76 6f       object invo
2c60: 6b 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75  ke -flags +NonPu
2c70: 62 6c 69 63 20 49 6e 74 65 72 70 72 65 74 65 72  blic Interpreter
2c80: 2e 47 65 74 41 63 74 69 76 65 20 54 65 73 74 50  .GetActive TestP
2c90: 61 74 68 20 24 64 69 72 0d 0a 0d 0a 20 20 20 20  ath $dir....    
2ca0: 20 20 20 20 20 20 69 66 20 7b 21 24 71 75 69 65        if {!$quie
2cb0: 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  t} then {..     
2cc0: 20 20 20 20 20 20 20 63 61 74 63 68 20 7b 0d 0a         catch {..
2cd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 71                tq
2ce0: 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61  puts $channel [a
2cf0: 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20  ppendArgs \..   
2d00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22                 "
2d10: 2d 2d 2d 2d 20 73 65 74 20 69 6e 74 65 72 70 72  ---- set interpr
2d20: 65 74 65 72 20 74 65 73 74 20 70 61 74 68 20 74  eter test path t
2d30: 6f 20 5c 22 22 20 24 64 69 72 20 5c 0d 0a 20 20  o \"" $dir \..  
2d40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2d50: 22 5c 22 20 76 69 61 20 5c 22 6f 62 6a 65 63 74  "\" via \"object
2d60: 5c 22 20 63 6f 6d 6d 61 6e 64 5c 6e 22 5d 0d 0a  \" command\n"]..
2d70: 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20              }.. 
2d80: 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20           }..    
2d90: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 20 65      }..      } e
2da0: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 69  lse {..        i
2db0: 66 20 7b 21 24 71 75 69 65 74 7d 20 74 68 65 6e  f {!$quiet} then
2dc0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 63 61   {..          ca
2dd0: 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  tch {..         
2de0: 20 20 20 74 71 70 75 74 73 20 24 63 68 61 6e 6e     tqputs $chann
2df0: 65 6c 20 22 2d 2d 2d 2d 20 63 61 6e 6e 6f 74 20  el "---- cannot 
2e00: 73 65 74 20 69 6e 74 65 72 70 72 65 74 65 72 20  set interpreter 
2e10: 74 65 73 74 20 70 61 74 68 5c 6e 22 0d 0a 20 20  test path\n"..  
2e20: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20          }..     
2e30: 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20     }..      }.. 
2e40: 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 23 0d 0a     }.....    #..
2e50: 20 20 20 20 23 20 4e 4f 54 45 3a 20 43 68 65 63      # NOTE: Chec
2e60: 6b 20 66 6f 72 20 61 6e 79 20 6f 76 65 72 72 69  k for any overri
2e70: 64 64 65 6e 20 73 65 74 74 69 6e 67 73 20 74 68  dden settings th
2e80: 61 74 20 6d 61 79 20 68 61 76 65 20 62 65 65 6e  at may have been
2e90: 20 73 70 65 63 69 66 69 65 64 20 76 69 61 0d 0a   specified via..
2ea0: 20 20 20 20 23 20 20 20 20 20 20 20 74 68 65 20      #       the 
2eb0: 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 2c 20 65 74  command line, et
2ec0: 63 2e 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 63  c...    #..    c
2ed0: 68 65 63 6b 46 6f 72 54 65 73 74 4f 76 65 72 72  heckForTestOverr
2ee0: 69 64 65 73 20 73 74 64 6f 75 74 20 5b 65 78 70  ides stdout [exp
2ef0: 72 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20  r {[info exists 
2f00: 74 65 73 74 5f 6f 76 65 72 72 69 64 65 73 5d 20  test_overrides] 
2f10: 3f 20 5c 0d 0a 20 20 20 20 20 20 20 20 24 74 65  ? \..        $te
2f20: 73 74 5f 6f 76 65 72 72 69 64 65 73 20 3a 20 5b  st_overrides : [
2f30: 6c 69 73 74 20 62 69 6e 61 72 79 5f 64 69 72 65  list binary_dire
2f40: 63 74 6f 72 79 20 62 75 69 6c 64 5f 62 61 73 65  ctory build_base
2f50: 5f 64 69 72 65 63 74 6f 72 79 20 5c 0d 0a 20 20  _directory \..  
2f60: 20 20 20 20 20 20 62 75 69 6c 64 5f 64 69 72 65        build_dire
2f70: 63 74 6f 72 79 20 63 6f 6d 6d 6f 6e 5f 64 69 72  ctory common_dir
2f80: 65 63 74 6f 72 79 20 63 6f 6d 70 69 6c 65 5f 6f  ectory compile_o
2f90: 70 74 69 6f 6e 5f 70 72 65 66 69 78 20 5c 0d 0a  ption_prefix \..
2fa0: 20 20 20 20 20 20 20 20 63 6f 6e 6e 65 63 74 69          connecti
2fb0: 6f 6e 5f 66 6c 61 67 73 20 63 6f 72 65 5f 6c 69  on_flags core_li
2fc0: 62 72 61 72 79 5f 76 65 72 73 69 6f 6e 20 64 61  brary_version da
2fd0: 74 61 62 61 73 65 5f 64 69 72 65 63 74 6f 72 79  tabase_directory
2fe0: 20 5c 0d 0a 20 20 20 20 20 20 20 20 64 61 74 65   \..        date
2ff0: 74 69 6d 65 5f 66 6f 72 6d 61 74 20 64 65 66 69  time_format defi
3000: 6e 65 5f 63 6f 6e 73 74 61 6e 74 5f 70 72 65 66  ne_constant_pref
3010: 69 78 20 65 78 65 63 75 74 65 5f 6f 6e 5f 73 65  ix execute_on_se
3020: 74 75 70 20 5c 0d 0a 20 20 20 20 20 20 20 20 69  tup \..        i
3030: 6e 74 65 72 6f 70 5f 61 73 73 65 6d 62 6c 79 5f  nterop_assembly_
3040: 66 69 6c 65 5f 6e 61 6d 65 73 20 6e 61 74 69 76  file_names nativ
3050: 65 5f 6c 69 62 72 61 72 79 5f 66 69 6c 65 5f 6e  e_library_file_n
3060: 61 6d 65 73 20 5c 0d 0a 20 20 20 20 20 20 20 20  ames \..        
3070: 72 65 6c 65 61 73 65 5f 76 65 72 73 69 6f 6e 20  release_version 
3080: 73 63 72 61 74 63 68 5f 64 69 72 65 63 74 6f 72  scratch_director
3090: 79 20 74 65 6d 70 6f 72 61 72 79 5f 64 69 72 65  y temporary_dire
30a0: 63 74 6f 72 79 20 74 65 73 74 5f 63 6c 72 20 5c  ctory test_clr \
30b0: 0d 0a 20 20 20 20 20 20 20 20 74 65 73 74 5f 63  ..        test_c
30c0: 6c 72 5f 76 32 20 74 65 73 74 5f 63 6c 72 5f 76  lr_v2 test_clr_v
30d0: 34 20 74 65 73 74 5f 63 6f 6e 66 69 67 75 72 61  4 test_configura
30e0: 74 69 6f 6e 20 74 65 73 74 5f 63 6f 6e 66 69 67  tion test_config
30f0: 75 72 61 74 69 6f 6e 73 20 5c 0d 0a 20 20 20 20  urations \..    
3100: 20 20 20 20 74 65 73 74 5f 63 6f 6e 66 69 67 75      test_configu
3110: 72 61 74 69 6f 6e 5f 73 75 66 66 69 78 20 74 65  ration_suffix te
3120: 73 74 5f 63 6f 6e 73 74 72 61 69 6e 74 73 20 74  st_constraints t
3130: 65 73 74 5f 65 78 74 72 61 20 74 65 73 74 5f 65  est_extra test_e
3140: 78 74 72 61 73 20 5c 0d 0a 20 20 20 20 20 20 20  xtras \..       
3150: 20 74 65 73 74 5f 6d 61 63 68 69 6e 65 20 74 65   test_machine te
3160: 73 74 5f 6e 61 74 69 76 65 5f 63 6f 6e 66 69 67  st_native_config
3170: 75 72 61 74 69 6f 6e 5f 73 75 66 66 69 78 20 74  uration_suffix t
3180: 65 73 74 5f 6e 61 74 69 76 65 5f 79 65 61 72 20  est_native_year 
3190: 5c 0d 0a 20 20 20 20 20 20 20 20 74 65 73 74 5f  \..        test_
31a0: 6e 65 74 5f 66 78 20 74 65 73 74 5f 6e 65 74 5f  net_fx test_net_
31b0: 66 78 5f 32 30 30 35 20 74 65 73 74 5f 6e 65 74  fx_2005 test_net
31c0: 5f 66 78 5f 32 30 30 38 20 74 65 73 74 5f 6e 65  _fx_2008 test_ne
31d0: 74 5f 66 78 5f 32 30 31 30 20 5c 0d 0a 20 20 20  t_fx_2010 \..   
31e0: 20 20 20 20 20 74 65 73 74 5f 6e 65 74 5f 66 78       test_net_fx
31f0: 5f 32 30 31 32 20 74 65 73 74 5f 6e 65 74 5f 66  _2012 test_net_f
3200: 78 5f 32 30 31 33 20 74 65 73 74 5f 6e 65 74 5f  x_2013 test_net_
3210: 66 78 5f 32 30 31 35 20 74 65 73 74 5f 6e 65 74  fx_2015 test_net
3220: 5f 66 78 5f 32 30 31 37 20 5c 0d 0a 20 20 20 20  _fx_2017 \..    
3230: 20 20 20 20 74 65 73 74 5f 6f 76 65 72 72 69 64      test_overrid
3240: 65 73 20 74 65 73 74 5f 70 6c 61 74 66 6f 72 6d  es test_platform
3250: 20 74 65 73 74 5f 73 75 69 74 65 20 74 65 73 74   test_suite test
3260: 5f 79 65 61 72 20 74 65 73 74 5f 79 65 61 72 73  _year test_years
3270: 20 5c 0d 0a 20 20 20 20 20 20 20 20 74 65 73 74   \..        test
3280: 5f 79 65 61 72 5f 63 6c 72 5f 76 32 20 74 65 73  _year_clr_v2 tes
3290: 74 5f 79 65 61 72 5f 63 6c 72 5f 76 34 20 76 65  t_year_clr_v4 ve
32a0: 6e 64 6f 72 5f 64 69 72 65 63 74 6f 72 79 20 5c  ndor_directory \
32b0: 0d 0a 20 20 20 20 20 20 20 20 76 65 6e 64 6f 72  ..        vendor
32c0: 5f 74 65 73 74 5f 64 69 72 65 63 74 6f 72 79 5d  _test_directory]
32d0: 7d 5d 20 5b 63 68 65 63 6b 46 6f 72 56 65 6e 64  }] [checkForVend
32e0: 6f 72 51 75 69 65 74 20 63 68 65 63 6b 46 6f 72  orQuiet checkFor
32f0: 54 65 73 74 4f 76 65 72 72 69 64 65 73 5d 0d 0a  TestOverrides]..
3300: 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 20 4e  ..    #..    # N
3310: 4f 54 45 3a 20 53 65 74 20 74 68 65 20 6e 61 6d  OTE: Set the nam
3320: 65 20 6f 66 20 74 68 65 20 72 75 6e 6e 69 6e 67  e of the running
3330: 20 74 65 73 74 20 73 75 69 74 65 2c 20 69 66 20   test suite, if 
3340: 6e 65 63 65 73 73 61 72 79 2e 0d 0a 20 20 20 20  necessary...    
3350: 23 0d 0a 20 20 20 20 69 66 20 7b 21 5b 69 6e 66  #..    if {![inf
3360: 6f 20 65 78 69 73 74 73 20 74 65 73 74 5f 73 75  o exists test_su
3370: 69 74 65 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  ite]} then {..  
3380: 20 20 20 20 73 65 74 20 74 65 73 74 5f 73 75 69      set test_sui
3390: 74 65 20 22 53 79 73 74 65 6d 2e 44 61 74 61 2e  te "System.Data.
33a0: 53 51 4c 69 74 65 20 54 65 73 74 20 53 75 69 74  SQLite Test Suit
33b0: 65 20 66 6f 72 20 45 61 67 6c 65 22 0d 0a 20 20  e for Eagle"..  
33c0: 20 20 7d 0d 0a 0d 0a 20 20 20 20 23 0d 0a 20 20    }....    #..  
33d0: 20 20 23 20 4e 4f 54 45 3a 20 57 68 65 6e 20 62    # NOTE: When b
33e0: 65 69 6e 67 20 65 76 61 6c 75 61 74 65 64 20 69  eing evaluated i
33f0: 6e 20 61 20 22 73 61 66 65 22 20 69 6e 74 65 72  n a "safe" inter
3400: 70 72 65 74 65 72 2c 20 73 6f 6d 65 20 73 74 65  preter, some ste
3410: 70 73 20 6d 75 73 74 20 62 65 0d 0a 20 20 20 20  ps must be..    
3420: 23 20 20 20 20 20 20 20 73 6b 69 70 70 65 64 20  #       skipped 
3430: 64 75 65 20 74 6f 20 6d 69 73 73 69 6e 67 20 63  due to missing c
3440: 6f 6d 6d 61 6e 64 73 20 61 6e 64 2f 6f 72 20 73  ommands and/or s
3450: 75 62 2d 63 6f 6d 6d 61 6e 64 73 2e 0d 0a 20 20  ub-commands...  
3460: 20 20 23 0d 0a 20 20 20 20 69 66 20 7b 21 5b 69    #..    if {![i
3470: 6e 74 65 72 70 20 69 73 73 61 66 65 5d 7d 20 74  nterp issafe]} t
3480: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a  hen {..      #..
3490: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 68        # NOTE: Th
34a0: 69 73 20 76 61 72 69 61 62 6c 65 20 77 69 6c 6c  is variable will
34b0: 20 63 6f 6e 74 61 69 6e 20 74 68 65 20 6e 61 6d   contain the nam
34c0: 65 20 6f 66 20 74 68 65 20 64 69 72 65 63 74 6f  e of the directo
34d0: 72 79 20 63 6f 6e 74 61 69 6e 69 6e 67 0d 0a 20  ry containing.. 
34e0: 20 20 20 20 20 23 20 20 20 20 20 20 20 74 68 65       #       the
34f0: 20 76 65 6e 64 6f 72 2d 73 70 65 63 69 66 69 63   vendor-specific
3500: 20 74 65 73 74 69 6e 67 20 69 6e 66 72 61 73 74   testing infrast
3510: 72 75 63 74 75 72 65 2e 20 20 49 66 20 74 68 65  ructure.  If the
3520: 20 76 61 72 69 61 62 6c 65 20 64 6f 65 73 0d 0a   variable does..
3530: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 6e 6f        #       no
3540: 74 20 65 78 69 73 74 2c 20 63 72 65 61 74 65 20  t exist, create 
3550: 69 74 3b 20 6f 74 68 65 72 77 69 73 65 2c 20 69  it; otherwise, i
3560: 74 20 68 61 73 20 62 65 65 6e 20 6f 76 65 72 72  t has been overr
3570: 69 64 64 65 6e 20 61 6e 64 20 74 68 65 0d 0a 20  idden and the.. 
3580: 20 20 20 20 20 23 20 20 20 20 20 20 20 65 78 69       #       exi
3590: 73 74 69 6e 67 20 76 61 6c 75 65 20 73 68 6f 75  sting value shou
35a0: 6c 64 20 62 65 20 6c 65 66 74 20 69 6e 74 61 63  ld be left intac
35b0: 74 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20  t...      #..   
35c0: 20 20 20 73 65 74 20 68 61 76 65 5f 76 65 6e 64     set have_vend
35d0: 6f 72 5f 64 69 72 65 63 74 6f 72 79 20 5b 69 6e  or_directory [in
35e0: 66 6f 20 65 78 69 73 74 73 20 76 65 6e 64 6f 72  fo exists vendor
35f0: 5f 64 69 72 65 63 74 6f 72 79 5d 0d 0a 0d 0a 20  _directory].... 
3600: 20 20 20 20 20 69 66 20 7b 21 24 68 61 76 65 5f       if {!$have_
3610: 76 65 6e 64 6f 72 5f 64 69 72 65 63 74 6f 72 79  vendor_directory
3620: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..      
3630: 20 20 73 65 74 20 76 65 6e 64 6f 72 5f 64 69 72    set vendor_dir
3640: 65 63 74 6f 72 79 20 22 22 0d 0a 20 20 20 20 20  ectory ""..     
3650: 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20   }....      #.. 
3660: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 69       # NOTE: Thi
3670: 73 20 76 61 72 69 61 62 6c 65 20 77 69 6c 6c 20  s variable will 
3680: 63 6f 6e 74 61 69 6e 20 74 68 65 20 6e 61 6d 65  contain the name
3690: 20 6f 66 20 74 68 65 20 64 69 72 65 63 74 6f 72   of the director
36a0: 79 20 63 6f 6e 74 61 69 6e 69 6e 67 0d 0a 20 20  y containing..  
36b0: 20 20 20 20 23 20 20 20 20 20 20 20 74 68 65 20      #       the 
36c0: 76 65 6e 64 6f 72 2d 73 70 65 63 69 66 69 63 20  vendor-specific 
36d0: 74 65 73 74 20 73 75 69 74 65 2e 20 20 49 66 20  test suite.  If 
36e0: 74 68 65 20 76 61 72 69 61 62 6c 65 20 64 6f 65  the variable doe
36f0: 73 20 6e 6f 74 20 65 78 69 73 74 2c 0d 0a 20 20  s not exist,..  
3700: 20 20 20 20 23 20 20 20 20 20 20 20 63 72 65 61      #       crea
3710: 74 65 20 69 74 3b 20 6f 74 68 65 72 77 69 73 65  te it; otherwise
3720: 2c 20 69 74 20 68 61 73 20 62 65 65 6e 20 6f 76  , it has been ov
3730: 65 72 72 69 64 64 65 6e 20 61 6e 64 20 74 68 65  erridden and the
3740: 20 65 78 69 73 74 69 6e 67 0d 0a 20 20 20 20 20   existing..     
3750: 20 23 20 20 20 20 20 20 20 76 61 6c 75 65 20 73   #       value s
3760: 68 6f 75 6c 64 20 62 65 20 6c 65 66 74 20 69 6e  hould be left in
3770: 74 61 63 74 2e 0d 0a 20 20 20 20 20 20 23 0d 0a  tact...      #..
3780: 20 20 20 20 20 20 73 65 74 20 68 61 76 65 5f 76        set have_v
3790: 65 6e 64 6f 72 5f 74 65 73 74 5f 64 69 72 65 63  endor_test_direc
37a0: 74 6f 72 79 20 5b 69 6e 66 6f 20 65 78 69 73 74  tory [info exist
37b0: 73 20 76 65 6e 64 6f 72 5f 74 65 73 74 5f 64 69  s vendor_test_di
37c0: 72 65 63 74 6f 72 79 5d 0d 0a 0d 0a 20 20 20 20  rectory]....    
37d0: 20 20 69 66 20 7b 21 24 68 61 76 65 5f 76 65 6e    if {!$have_ven
37e0: 64 6f 72 5f 74 65 73 74 5f 64 69 72 65 63 74 6f  dor_test_directo
37f0: 72 79 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20  ry} then {..    
3800: 20 20 20 20 73 65 74 20 76 65 6e 64 6f 72 5f 74      set vendor_t
3810: 65 73 74 5f 64 69 72 65 63 74 6f 72 79 20 22 22  est_directory ""
3820: 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20  ..      }....   
3830: 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f     #..      # NO
3840: 54 45 3a 20 54 68 69 73 20 70 72 6f 63 65 64 75  TE: This procedu
3850: 72 65 20 77 69 6c 6c 20 61 74 74 65 6d 70 74 20  re will attempt 
3860: 74 6f 20 66 69 6e 64 20 74 68 65 20 76 65 6e 64  to find the vend
3870: 6f 72 2d 73 70 65 63 69 66 69 63 20 74 65 73 74  or-specific test
3880: 69 6e 67 0d 0a 20 20 20 20 20 20 23 20 20 20 20  ing..      #    
3890: 20 20 20 69 6e 66 72 61 73 74 72 75 63 74 75 72     infrastructur
38a0: 65 20 64 69 72 65 63 74 6f 72 79 20 61 6e 64 20  e directory and 
38b0: 61 64 64 20 69 74 20 74 6f 20 74 68 65 20 61 75  add it to the au
38c0: 74 6f 2d 70 61 74 68 20 66 6f 72 20 74 68 65 0d  to-path for the.
38d0: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 63  .      #       c
38e0: 75 72 72 65 6e 74 20 69 6e 74 65 72 70 72 65 74  urrent interpret
38f0: 65 72 2e 20 20 4e 6f 72 6d 61 6c 6c 79 2c 20 74  er.  Normally, t
3900: 68 69 73 20 77 69 6c 6c 20 61 6c 73 6f 20 73 65  his will also se
3910: 74 20 74 68 65 20 76 61 72 69 61 62 6c 65 0d 0a  t the variable..
3920: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 63 72        #       cr
3930: 65 61 74 65 64 20 61 62 6f 76 65 20 74 6f 20 70  eated above to p
3940: 6f 69 6e 74 20 74 6f 20 74 68 65 20 64 69 72 65  oint to the dire
3950: 63 74 6f 72 79 20 61 64 64 65 64 20 74 6f 20 74  ctory added to t
3960: 68 65 20 61 75 74 6f 2d 70 61 74 68 3b 0d 0a 20  he auto-path;.. 
3970: 20 20 20 20 20 23 20 20 20 20 20 20 20 68 6f 77       #       how
3980: 65 76 65 72 2c 20 74 68 69 73 20 77 69 6c 6c 20  ever, this will 
3990: 6e 6f 74 20 62 65 20 64 6f 6e 65 20 69 66 20 74  not be done if t
39a0: 68 65 20 76 61 72 69 61 62 6c 65 20 77 61 73 20  he variable was 
39b0: 6e 6f 74 20 63 72 65 61 74 65 64 0d 0a 20 20 20  not created..   
39c0: 20 20 20 23 20 20 20 20 20 20 20 62 79 20 75 73     #       by us
39d0: 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20  ...      #..    
39e0: 20 20 61 64 64 54 65 73 74 53 75 69 74 65 54 6f    addTestSuiteTo
39f0: 41 75 74 6f 50 61 74 68 20 73 74 64 6f 75 74 20  AutoPath stdout 
3a00: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 5b 65 78  \..          [ex
3a10: 70 72 20 7b 24 68 61 76 65 5f 76 65 6e 64 6f 72  pr {$have_vendor
3a20: 5f 64 69 72 65 63 74 6f 72 79 20 3f 20 22 22 20  _directory ? "" 
3a30: 3a 20 22 76 65 6e 64 6f 72 5f 64 69 72 65 63 74  : "vendor_direct
3a40: 6f 72 79 22 7d 5d 20 5c 0d 0a 20 20 20 20 20 20  ory"}] \..      
3a50: 20 20 20 20 5b 63 68 65 63 6b 46 6f 72 56 65 6e      [checkForVen
3a60: 64 6f 72 51 75 69 65 74 20 61 64 64 54 65 73 74  dorQuiet addTest
3a70: 53 75 69 74 65 54 6f 41 75 74 6f 50 61 74 68 5d  SuiteToAutoPath]
3a80: 0d 0a 0d 0a 20 20 20 20 20 20 75 6e 73 65 74 20  ....      unset 
3a90: 68 61 76 65 5f 76 65 6e 64 6f 72 5f 64 69 72 65  have_vendor_dire
3aa0: 63 74 6f 72 79 0d 0a 0d 0a 20 20 20 20 20 20 23  ctory....      #
3ab0: 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20  ..      # NOTE: 
3ac0: 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 77  This procedure w
3ad0: 69 6c 6c 20 61 74 74 65 6d 70 74 20 74 6f 20 66  ill attempt to f
3ae0: 69 6e 64 20 74 68 65 20 76 65 6e 64 6f 72 2d 73  ind the vendor-s
3af0: 70 65 63 69 66 69 63 20 74 65 73 74 69 6e 67 0d  pecific testing.
3b00: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 64  .      #       d
3b10: 69 72 65 63 74 6f 72 79 2e 20 20 4e 6f 72 6d 61  irectory.  Norma
3b20: 6c 6c 79 2c 20 74 68 69 73 20 77 69 6c 6c 20 61  lly, this will a
3b30: 6c 73 6f 20 73 65 74 20 74 68 65 20 76 61 72 69  lso set the vari
3b40: 61 62 6c 65 20 63 72 65 61 74 65 64 0d 0a 20 20  able created..  
3b50: 20 20 20 20 23 20 20 20 20 20 20 20 61 62 6f 76      #       abov
3b60: 65 20 74 6f 20 70 6f 69 6e 74 20 74 6f 20 74 68  e to point to th
3b70: 65 20 64 69 72 65 63 74 6f 72 79 3b 20 68 6f 77  e directory; how
3b80: 65 76 65 72 2c 20 74 68 69 73 20 77 69 6c 6c 20  ever, this will 
3b90: 6e 6f 74 20 62 65 20 64 6f 6e 65 0d 0a 20 20 20  not be done..   
3ba0: 20 20 20 23 20 20 20 20 20 20 20 69 66 20 74 68     #       if th
3bb0: 65 20 76 61 72 69 61 62 6c 65 20 77 61 73 20 6e  e variable was n
3bc0: 6f 74 20 63 72 65 61 74 65 64 20 62 79 20 75 73  ot created by us
3bd0: 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20  ...      #..    
3be0: 20 20 66 69 6e 64 49 6e 74 65 72 70 72 65 74 65    findInterprete
3bf0: 72 54 65 73 74 50 61 74 68 20 73 74 64 6f 75 74  rTestPath stdout
3c00: 20 24 76 65 6e 64 6f 72 5f 64 69 72 65 63 74 6f   $vendor_directo
3c10: 72 79 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  ry \..          
3c20: 5b 65 78 70 72 20 7b 24 68 61 76 65 5f 76 65 6e  [expr {$have_ven
3c30: 64 6f 72 5f 74 65 73 74 5f 64 69 72 65 63 74 6f  dor_test_directo
3c40: 72 79 20 3f 20 22 22 20 3a 20 22 76 65 6e 64 6f  ry ? "" : "vendo
3c50: 72 5f 74 65 73 74 5f 64 69 72 65 63 74 6f 72 79  r_test_directory
3c60: 22 7d 5d 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  "}] \..         
3c70: 20 5b 63 68 65 63 6b 46 6f 72 56 65 6e 64 6f 72   [checkForVendor
3c80: 51 75 69 65 74 20 66 69 6e 64 49 6e 74 65 72 70  Quiet findInterp
3c90: 72 65 74 65 72 54 65 73 74 50 61 74 68 5d 0d 0a  reterTestPath]..
3ca0: 0d 0a 20 20 20 20 20 20 75 6e 73 65 74 20 68 61  ..      unset ha
3cb0: 76 65 5f 76 65 6e 64 6f 72 5f 74 65 73 74 5f 64  ve_vendor_test_d
3cc0: 69 72 65 63 74 6f 72 79 0d 0a 0d 0a 20 20 20 20  irectory....    
3cd0: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54    #..      # NOT
3ce0: 45 3a 20 49 66 20 77 65 20 61 63 74 75 61 6c 6c  E: If we actuall
3cf0: 79 20 66 6f 75 6e 64 20 61 20 76 65 6e 64 6f 72  y found a vendor
3d00: 2d 73 70 65 63 69 66 69 63 20 74 65 73 74 69 6e  -specific testin
3d10: 67 20 69 6e 66 72 61 73 74 72 75 63 74 75 72 65  g infrastructure
3d20: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20  ..      #       
3d30: 64 69 72 65 63 74 6f 72 79 20 74 68 65 6e 20 6d  directory then m
3d40: 6f 64 69 66 79 20 74 68 65 20 54 65 73 74 50 61  odify the TestPa
3d50: 74 68 20 70 72 6f 70 65 72 74 79 20 6f 66 20 74  th property of t
3d60: 68 65 20 63 75 72 72 65 6e 74 0d 0a 20 20 20 20  he current..    
3d70: 20 20 23 20 20 20 20 20 20 20 69 6e 74 65 72 70    #       interp
3d80: 72 65 74 65 72 20 74 6f 20 70 6f 69 6e 74 20 64  reter to point d
3d90: 69 72 65 63 74 6c 79 20 74 6f 20 69 74 2e 0d 0a  irectly to it...
3da0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69        #..      i
3db0: 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74  f {[string lengt
3dc0: 68 20 24 76 65 6e 64 6f 72 5f 74 65 73 74 5f 64  h $vendor_test_d
3dd0: 69 72 65 63 74 6f 72 79 5d 20 3e 20 30 7d 20 74  irectory] > 0} t
3de0: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 73  hen {..        s
3df0: 65 74 75 70 49 6e 74 65 72 70 72 65 74 65 72 54  etupInterpreterT
3e00: 65 73 74 50 61 74 68 20 73 74 64 6f 75 74 20 24  estPath stdout $
3e10: 76 65 6e 64 6f 72 5f 74 65 73 74 5f 64 69 72 65  vendor_test_dire
3e20: 63 74 6f 72 79 20 5c 0d 0a 20 20 20 20 20 20 20  ctory \..       
3e30: 20 20 20 20 20 5b 63 68 65 63 6b 46 6f 72 56 65       [checkForVe
3e40: 6e 64 6f 72 51 75 69 65 74 20 73 65 74 75 70 49  ndorQuiet setupI
3e50: 6e 74 65 72 70 72 65 74 65 72 54 65 73 74 50 61  nterpreterTestPa
3e60: 74 68 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20  th]..      }..  
3e70: 20 20 7d 0d 0a 0d 0a 20 20 20 20 23 0d 0a 20 20    }....    #..  
3e80: 20 20 23 20 48 41 43 4b 3a 20 50 72 65 76 65 6e    # HACK: Preven
3e90: 74 20 74 68 65 20 45 61 67 6c 65 20 63 6f 72 65  t the Eagle core
3ea0: 20 74 65 73 74 20 73 75 69 74 65 20 69 6e 66 72   test suite infr
3eb0: 61 73 74 72 75 63 74 75 72 65 20 66 72 6f 6d 20  astructure from 
3ec0: 63 68 65 63 6b 69 6e 67 0d 0a 20 20 20 20 23 20  checking..    # 
3ed0: 20 20 20 20 20 20 74 65 73 74 20 63 6f 6e 73 74        test const
3ee0: 72 61 69 6e 74 73 20 74 68 61 74 20 61 72 65 20  raints that are 
3ef0: 74 69 6d 65 2d 63 6f 6e 73 75 6d 69 6e 67 20 61  time-consuming a
3f00: 6e 64 2f 6f 72 20 6d 6f 73 74 20 6c 69 6b 65 6c  nd/or most likel
3f10: 79 20 74 6f 0d 0a 20 20 20 20 23 20 20 20 20 20  y to..    #     
3f20: 20 20 62 65 20 73 75 70 65 72 66 6c 75 6f 75 73    be superfluous
3f30: 20 74 6f 20 74 68 69 72 64 2d 70 61 72 74 79 20   to third-party 
3f40: 74 65 73 74 20 73 75 69 74 65 73 20 28 69 2e 65  test suites (i.e
3f50: 2e 20 74 68 6f 73 65 20 74 68 61 74 20 61 72 65  . those that are
3f60: 0d 0a 20 20 20 20 23 20 20 20 20 20 20 20 6e 6f  ..    #       no
3f70: 74 20 74 65 73 74 69 6e 67 20 74 68 65 20 45 61  t testing the Ea
3f80: 67 6c 65 20 63 6f 72 65 20 6c 69 62 72 61 72 79  gle core library
3f90: 20 69 74 73 65 6c 66 29 2e 0d 0a 20 20 20 20 23   itself)...    #
3fa0: 0d 0a 20 20 20 20 73 65 74 20 6e 6f 28 63 6f 72  ..    set no(cor
3fb0: 65 29 20 31 0d 0a 0d 0a 20 20 20 20 23 0d 0a 20  e) 1....    #.. 
3fc0: 20 20 20 23 20 48 41 43 4b 3a 20 50 72 65 76 65     # HACK: Preve
3fd0: 6e 74 20 74 68 65 20 45 61 67 6c 65 20 63 6f 72  nt the Eagle cor
3fe0: 65 20 74 65 73 74 20 73 75 69 74 65 20 69 6e 66  e test suite inf
3ff0: 72 61 73 74 72 75 63 74 75 72 65 20 66 72 6f 6d  rastructure from
4000: 20 63 68 65 63 6b 69 6e 67 0d 0a 20 20 20 20 23   checking..    #
4010: 20 20 20 20 20 20 20 66 6f 72 20 61 20 75 73 61         for a usa
4020: 62 6c 65 20 69 6e 73 74 61 6e 63 65 20 6f 66 20  ble instance of 
4030: 45 78 63 65 6c 20 62 65 63 61 75 73 65 20 69 74  Excel because it
4040: 20 63 61 6e 20 62 65 20 71 75 69 74 65 20 73 6c   can be quite sl
4050: 6f 77 20 74 6f 0d 0a 20 20 20 20 23 20 20 20 20  ow to..    #    
4060: 20 20 20 64 6f 20 73 6f 2e 0d 0a 20 20 20 20 23     do so...    #
4070: 0d 0a 20 20 20 20 73 65 74 20 6e 6f 28 65 78 63  ..    set no(exc
4080: 65 6c 55 73 61 62 6c 65 29 20 31 0d 0a 0d 0a 20  elUsable) 1.... 
4090: 20 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f 54 45     #..    # NOTE
40a0: 3a 20 4d 61 6b 65 20 74 68 65 20 70 65 72 2d 74  : Make the per-t
40b0: 65 73 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 66  est connection f
40c0: 6c 61 67 20 6f 75 74 70 75 74 20 61 20 6c 69 74  lag output a lit
40d0: 74 6c 65 20 6c 65 73 73 20 6e 6f 69 73 79 2e 0d  tle less noisy..
40e0: 0a 20 20 20 20 23 0d 0a 20 20 20 20 73 65 74 20  .    #..    set 
40f0: 6e 6f 28 65 6d 69 74 4c 6f 63 61 6c 46 6c 61 67  no(emitLocalFlag
4100: 73 49 66 4e 6f 6e 65 29 20 31 0d 0a 20 20 20 20  sIfNone) 1..    
4110: 73 65 74 20 6e 6f 28 65 6d 69 74 53 68 61 72 65  set no(emitShare
4120: 64 46 6c 61 67 73 49 66 4e 6f 6e 65 29 20 31 0d  dFlagsIfNone) 1.
4130: 0a 20 20 20 20 73 65 74 20 6e 6f 28 65 6d 69 74  .    set no(emit
4140: 47 6c 6f 62 61 6c 46 6c 61 67 73 49 66 4e 6f 6e  GlobalFlagsIfNon
4150: 65 29 20 31 0d 0a 20 20 20 20 73 65 74 20 6e 6f  e) 1..    set no
4160: 28 65 6d 69 74 43 6f 6d 62 69 6e 65 64 46 6c 61  (emitCombinedFla
4170: 67 73 49 66 4e 6f 6e 65 29 20 31 0d 0a 0d 0a 20  gsIfNone) 1.... 
4180: 20 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f 54 45     #..    # NOTE
4190: 3a 20 46 6f 72 63 65 20 75 73 65 20 6f 66 20 74  : Force use of t
41a0: 68 65 20 6e 61 74 69 76 65 20 6c 69 62 72 61 72  he native librar
41b0: 79 20 70 72 65 2d 6c 6f 61 64 65 72 20 77 68 65  y pre-loader whe
41c0: 6e 20 61 70 70 6c 69 63 61 62 6c 65 2e 0d 0a 20  n applicable... 
41d0: 20 20 20 23 0d 0a 20 20 20 20 69 66 20 7b 5b 69     #..    if {[i
41e0: 73 57 69 6e 64 6f 77 73 5d 7d 20 74 68 65 6e 20  sWindows]} then 
41f0: 7b 0d 0a 20 20 20 20 20 20 73 65 74 20 6e 6f 28  {..      set no(
4200: 64 65 6c 65 74 65 53 71 6c 69 74 65 49 6d 70 6c  deleteSqliteImpl
4210: 69 63 69 74 4e 61 74 69 76 65 46 69 6c 65 73 29  icitNativeFiles)
4220: 20 31 0d 0a 20 20 20 20 20 20 73 65 74 20 6e 6f   1..      set no
4230: 28 63 6f 70 79 53 71 6c 69 74 65 49 6d 70 6c 69  (copySqliteImpli
4240: 63 69 74 4e 61 74 69 76 65 46 69 6c 65 73 29 20  citNativeFiles) 
4250: 31 0d 0a 20 20 20 20 7d 0d 0a 20 20 7d 0d 0a 7d  1..    }..  }..}
4260: 0d 0a 0c 0d 0a 23 23 23 23 23 23 23 23 23 23 23  .....###########
4270: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4280: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4290: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
42a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
42b0: 23 23 23 23 0d 0a 23 23 23 23 23 23 23 23 23 23  ####..##########
42c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
42d0: 23 23 23 23 23 20 45 4e 44 20 56 45 4e 44 4f 52  ##### END VENDOR
42e0: 20 43 4f 44 45 20 23 23 23 23 23 23 23 23 23 23   CODE ##########
42f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4300: 23 23 23 23 23 0d 0a 23 23 23 23 23 23 23 23 23  #####..#########
4310: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4320: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4330: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4340: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4350: 23 23 23 23 23 23 0d 0a                          ######..