Artifact
569c8f8a173c10fd15b741770061d7c71fe7bb68:
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 73 74 72 61 test_constra
3110: 69 6e 74 73 20 74 65 73 74 5f 65 78 74 72 61 20 ints test_extra
3120: 74 65 73 74 5f 65 78 74 72 61 73 20 74 65 73 74 test_extras test
3130: 5f 6d 61 63 68 69 6e 65 20 5c 0d 0a 20 20 20 20 _machine \..
3140: 20 20 20 20 74 65 73 74 5f 6e 61 74 69 76 65 5f test_native_
3150: 79 65 61 72 20 74 65 73 74 5f 6e 65 74 5f 66 78 year test_net_fx
3160: 20 74 65 73 74 5f 6e 65 74 5f 66 78 5f 32 30 30 test_net_fx_200
3170: 35 20 74 65 73 74 5f 6e 65 74 5f 66 78 5f 32 30 5 test_net_fx_20
3180: 30 38 20 5c 0d 0a 20 20 20 20 20 20 20 20 74 65 08 \.. te
3190: 73 74 5f 6e 65 74 5f 66 78 5f 32 30 31 30 20 74 st_net_fx_2010 t
31a0: 65 73 74 5f 6e 65 74 5f 66 78 5f 32 30 31 32 20 est_net_fx_2012
31b0: 74 65 73 74 5f 6e 65 74 5f 66 78 5f 32 30 31 33 test_net_fx_2013
31c0: 20 5c 0d 0a 20 20 20 20 20 20 20 20 74 65 73 74 \.. test
31d0: 5f 6e 65 74 5f 66 78 5f 32 30 31 35 20 74 65 73 _net_fx_2015 tes
31e0: 74 5f 6f 76 65 72 72 69 64 65 73 20 74 65 73 74 t_overrides test
31f0: 5f 70 6c 61 74 66 6f 72 6d 20 74 65 73 74 5f 73 _platform test_s
3200: 75 69 74 65 20 5c 0d 0a 20 20 20 20 20 20 20 20 uite \..
3210: 74 65 73 74 5f 79 65 61 72 20 74 65 73 74 5f 79 test_year test_y
3220: 65 61 72 73 20 74 65 73 74 5f 79 65 61 72 5f 63 ears test_year_c
3230: 6c 72 5f 76 32 20 74 65 73 74 5f 79 65 61 72 5f lr_v2 test_year_
3240: 63 6c 72 5f 76 34 20 5c 0d 0a 20 20 20 20 20 20 clr_v4 \..
3250: 20 20 76 65 6e 64 6f 72 5f 64 69 72 65 63 74 6f vendor_directo
3260: 72 79 20 76 65 6e 64 6f 72 5f 74 65 73 74 5f 64 ry vendor_test_d
3270: 69 72 65 63 74 6f 72 79 5d 7d 5d 20 5c 0d 0a 20 irectory]}] \..
3280: 20 20 20 20 20 20 20 5b 63 68 65 63 6b 46 6f 72 [checkFor
3290: 56 65 6e 64 6f 72 51 75 69 65 74 20 63 68 65 63 VendorQuiet chec
32a0: 6b 46 6f 72 54 65 73 74 4f 76 65 72 72 69 64 65 kForTestOverride
32b0: 73 5d 0d 0a 0d 0a 20 20 20 20 23 0d 0a 20 20 20 s].... #..
32c0: 20 23 20 4e 4f 54 45 3a 20 53 65 74 20 74 68 65 # NOTE: Set the
32d0: 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 72 75 6e name of the run
32e0: 6e 69 6e 67 20 74 65 73 74 20 73 75 69 74 65 2c ning test suite,
32f0: 20 69 66 20 6e 65 63 65 73 73 61 72 79 2e 0d 0a if necessary...
3300: 20 20 20 20 23 0d 0a 20 20 20 20 69 66 20 7b 21 #.. if {!
3310: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 74 65 73 [info exists tes
3320: 74 5f 73 75 69 74 65 5d 7d 20 74 68 65 6e 20 7b t_suite]} then {
3330: 0d 0a 20 20 20 20 20 20 73 65 74 20 74 65 73 74 .. set test
3340: 5f 73 75 69 74 65 20 22 53 79 73 74 65 6d 2e 44 _suite "System.D
3350: 61 74 61 2e 53 51 4c 69 74 65 20 54 65 73 74 20 ata.SQLite Test
3360: 53 75 69 74 65 20 66 6f 72 20 45 61 67 6c 65 22 Suite for Eagle"
3370: 0d 0a 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 23 .. }.... #
3380: 0d 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20 57 68 .. # NOTE: Wh
3390: 65 6e 20 62 65 69 6e 67 20 65 76 61 6c 75 61 74 en being evaluat
33a0: 65 64 20 69 6e 20 61 20 22 73 61 66 65 22 20 69 ed in a "safe" i
33b0: 6e 74 65 72 70 72 65 74 65 72 2c 20 73 6f 6d 65 nterpreter, some
33c0: 20 73 74 65 70 73 20 6d 75 73 74 20 62 65 0d 0a steps must be..
33d0: 20 20 20 20 23 20 20 20 20 20 20 20 73 6b 69 70 # skip
33e0: 70 65 64 20 64 75 65 20 74 6f 20 6d 69 73 73 69 ped due to missi
33f0: 6e 67 20 63 6f 6d 6d 61 6e 64 73 20 61 6e 64 2f ng commands and/
3400: 6f 72 20 73 75 62 2d 63 6f 6d 6d 61 6e 64 73 2e or sub-commands.
3410: 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 69 66 20 .. #.. if
3420: 7b 21 5b 69 6e 74 65 72 70 20 69 73 73 61 66 65 {![interp issafe
3430: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 ]} then {..
3440: 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 #.. # NOTE
3450: 3a 20 54 68 69 73 20 76 61 72 69 61 62 6c 65 20 : This variable
3460: 77 69 6c 6c 20 63 6f 6e 74 61 69 6e 20 74 68 65 will contain the
3470: 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 64 69 72 name of the dir
3480: 65 63 74 6f 72 79 20 63 6f 6e 74 61 69 6e 69 6e ectory containin
3490: 67 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 g.. #
34a0: 20 74 68 65 20 76 65 6e 64 6f 72 2d 73 70 65 63 the vendor-spec
34b0: 69 66 69 63 20 74 65 73 74 69 6e 67 20 69 6e 66 ific testing inf
34c0: 72 61 73 74 72 75 63 74 75 72 65 2e 20 20 49 66 rastructure. If
34d0: 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 64 6f the variable do
34e0: 65 73 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 es.. #
34f0: 20 20 6e 6f 74 20 65 78 69 73 74 2c 20 63 72 65 not exist, cre
3500: 61 74 65 20 69 74 3b 20 6f 74 68 65 72 77 69 73 ate it; otherwis
3510: 65 2c 20 69 74 20 68 61 73 20 62 65 65 6e 20 6f e, it has been o
3520: 76 65 72 72 69 64 64 65 6e 20 61 6e 64 20 74 68 verridden and th
3530: 65 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 e.. #
3540: 20 65 78 69 73 74 69 6e 67 20 76 61 6c 75 65 20 existing value
3550: 73 68 6f 75 6c 64 20 62 65 20 6c 65 66 74 20 69 should be left i
3560: 6e 74 61 63 74 2e 0d 0a 20 20 20 20 20 20 23 0d ntact... #.
3570: 0a 20 20 20 20 20 20 73 65 74 20 68 61 76 65 5f . set have_
3580: 76 65 6e 64 6f 72 5f 64 69 72 65 63 74 6f 72 79 vendor_directory
3590: 20 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 76 65 [info exists ve
35a0: 6e 64 6f 72 5f 64 69 72 65 63 74 6f 72 79 5d 0d ndor_directory].
35b0: 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 21 24 68 ... if {!$h
35c0: 61 76 65 5f 76 65 6e 64 6f 72 5f 64 69 72 65 63 ave_vendor_direc
35d0: 74 6f 72 79 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 tory} then {..
35e0: 20 20 20 20 20 20 73 65 74 20 76 65 6e 64 6f 72 set vendor
35f0: 5f 64 69 72 65 63 74 6f 72 79 20 22 22 0d 0a 20 _directory ""..
3600: 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 }....
3610: 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a #.. # NOTE:
3620: 20 54 68 69 73 20 76 61 72 69 61 62 6c 65 20 77 This variable w
3630: 69 6c 6c 20 63 6f 6e 74 61 69 6e 20 74 68 65 20 ill contain the
3640: 6e 61 6d 65 20 6f 66 20 74 68 65 20 64 69 72 65 name of the dire
3650: 63 74 6f 72 79 20 63 6f 6e 74 61 69 6e 69 6e 67 ctory containing
3660: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. #
3670: 74 68 65 20 76 65 6e 64 6f 72 2d 73 70 65 63 69 the vendor-speci
3680: 66 69 63 20 74 65 73 74 20 73 75 69 74 65 2e 20 fic test suite.
3690: 20 49 66 20 74 68 65 20 76 61 72 69 61 62 6c 65 If the variable
36a0: 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 2c does not exist,
36b0: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. #
36c0: 63 72 65 61 74 65 20 69 74 3b 20 6f 74 68 65 72 create it; other
36d0: 77 69 73 65 2c 20 69 74 20 68 61 73 20 62 65 65 wise, it has bee
36e0: 6e 20 6f 76 65 72 72 69 64 64 65 6e 20 61 6e 64 n overridden and
36f0: 20 74 68 65 20 65 78 69 73 74 69 6e 67 0d 0a 20 the existing..
3700: 20 20 20 20 20 23 20 20 20 20 20 20 20 76 61 6c # val
3710: 75 65 20 73 68 6f 75 6c 64 20 62 65 20 6c 65 66 ue should be lef
3720: 74 20 69 6e 74 61 63 74 2e 0d 0a 20 20 20 20 20 t intact...
3730: 20 23 0d 0a 20 20 20 20 20 20 73 65 74 20 68 61 #.. set ha
3740: 76 65 5f 76 65 6e 64 6f 72 5f 74 65 73 74 5f 64 ve_vendor_test_d
3750: 69 72 65 63 74 6f 72 79 20 5b 69 6e 66 6f 20 65 irectory [info e
3760: 78 69 73 74 73 20 76 65 6e 64 6f 72 5f 74 65 73 xists vendor_tes
3770: 74 5f 64 69 72 65 63 74 6f 72 79 5d 0d 0a 0d 0a t_directory]....
3780: 20 20 20 20 20 20 69 66 20 7b 21 24 68 61 76 65 if {!$have
3790: 5f 76 65 6e 64 6f 72 5f 74 65 73 74 5f 64 69 72 _vendor_test_dir
37a0: 65 63 74 6f 72 79 7d 20 74 68 65 6e 20 7b 0d 0a ectory} then {..
37b0: 20 20 20 20 20 20 20 20 73 65 74 20 76 65 6e 64 set vend
37c0: 6f 72 5f 74 65 73 74 5f 64 69 72 65 63 74 6f 72 or_test_director
37d0: 79 20 22 22 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d y "".. }...
37e0: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 . #..
37f0: 23 20 4e 4f 54 45 3a 20 54 68 69 73 20 70 72 6f # NOTE: This pro
3800: 63 65 64 75 72 65 20 77 69 6c 6c 20 61 74 74 65 cedure will atte
3810: 6d 70 74 20 74 6f 20 66 69 6e 64 20 74 68 65 20 mpt to find the
3820: 76 65 6e 64 6f 72 2d 73 70 65 63 69 66 69 63 20 vendor-specific
3830: 74 65 73 74 69 6e 67 0d 0a 20 20 20 20 20 20 23 testing.. #
3840: 20 20 20 20 20 20 20 69 6e 66 72 61 73 74 72 75 infrastru
3850: 63 74 75 72 65 20 64 69 72 65 63 74 6f 72 79 20 cture directory
3860: 61 6e 64 20 61 64 64 20 69 74 20 74 6f 20 74 68 and add it to th
3870: 65 20 61 75 74 6f 2d 70 61 74 68 20 66 6f 72 20 e auto-path for
3880: 74 68 65 0d 0a 20 20 20 20 20 20 23 20 20 20 20 the.. #
3890: 20 20 20 63 75 72 72 65 6e 74 20 69 6e 74 65 72 current inter
38a0: 70 72 65 74 65 72 2e 20 20 4e 6f 72 6d 61 6c 6c preter. Normall
38b0: 79 2c 20 74 68 69 73 20 77 69 6c 6c 20 61 6c 73 y, this will als
38c0: 6f 20 73 65 74 20 74 68 65 20 76 61 72 69 61 62 o set the variab
38d0: 6c 65 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 le.. #
38e0: 20 20 63 72 65 61 74 65 64 20 61 62 6f 76 65 20 created above
38f0: 74 6f 20 70 6f 69 6e 74 20 74 6f 20 74 68 65 20 to point to the
3900: 64 69 72 65 63 74 6f 72 79 20 61 64 64 65 64 20 directory added
3910: 74 6f 20 74 68 65 20 61 75 74 6f 2d 70 61 74 68 to the auto-path
3920: 3b 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 ;.. #
3930: 20 68 6f 77 65 76 65 72 2c 20 74 68 69 73 20 77 however, this w
3940: 69 6c 6c 20 6e 6f 74 20 62 65 20 64 6f 6e 65 20 ill not be done
3950: 69 66 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 if the variable
3960: 77 61 73 20 6e 6f 74 20 63 72 65 61 74 65 64 0d was not created.
3970: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 62 . # b
3980: 79 20 75 73 2e 0d 0a 20 20 20 20 20 20 23 0d 0a y us... #..
3990: 20 20 20 20 20 20 61 64 64 54 65 73 74 53 75 69 addTestSui
39a0: 74 65 54 6f 41 75 74 6f 50 61 74 68 20 73 74 64 teToAutoPath std
39b0: 6f 75 74 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 out \..
39c0: 20 5b 65 78 70 72 20 7b 24 68 61 76 65 5f 76 65 [expr {$have_ve
39d0: 6e 64 6f 72 5f 64 69 72 65 63 74 6f 72 79 20 3f ndor_directory ?
39e0: 20 22 22 20 3a 20 22 76 65 6e 64 6f 72 5f 64 69 "" : "vendor_di
39f0: 72 65 63 74 6f 72 79 22 7d 5d 20 5c 0d 0a 20 20 rectory"}] \..
3a00: 20 20 20 20 20 20 20 20 5b 63 68 65 63 6b 46 6f [checkFo
3a10: 72 56 65 6e 64 6f 72 51 75 69 65 74 20 61 64 64 rVendorQuiet add
3a20: 54 65 73 74 53 75 69 74 65 54 6f 41 75 74 6f 50 TestSuiteToAutoP
3a30: 61 74 68 5d 0d 0a 0d 0a 20 20 20 20 20 20 75 6e ath].... un
3a40: 73 65 74 20 68 61 76 65 5f 76 65 6e 64 6f 72 5f set have_vendor_
3a50: 64 69 72 65 63 74 6f 72 79 0d 0a 0d 0a 20 20 20 directory....
3a60: 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f #.. # NO
3a70: 54 45 3a 20 54 68 69 73 20 70 72 6f 63 65 64 75 TE: This procedu
3a80: 72 65 20 77 69 6c 6c 20 61 74 74 65 6d 70 74 20 re will attempt
3a90: 74 6f 20 66 69 6e 64 20 74 68 65 20 76 65 6e 64 to find the vend
3aa0: 6f 72 2d 73 70 65 63 69 66 69 63 20 74 65 73 74 or-specific test
3ab0: 69 6e 67 0d 0a 20 20 20 20 20 20 23 20 20 20 20 ing.. #
3ac0: 20 20 20 64 69 72 65 63 74 6f 72 79 2e 20 20 4e directory. N
3ad0: 6f 72 6d 61 6c 6c 79 2c 20 74 68 69 73 20 77 69 ormally, this wi
3ae0: 6c 6c 20 61 6c 73 6f 20 73 65 74 20 74 68 65 20 ll also set the
3af0: 76 61 72 69 61 62 6c 65 20 63 72 65 61 74 65 64 variable created
3b00: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. #
3b10: 61 62 6f 76 65 20 74 6f 20 70 6f 69 6e 74 20 74 above to point t
3b20: 6f 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 3b o the directory;
3b30: 20 68 6f 77 65 76 65 72 2c 20 74 68 69 73 20 77 however, this w
3b40: 69 6c 6c 20 6e 6f 74 20 62 65 20 64 6f 6e 65 0d ill not be done.
3b50: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 69 . # i
3b60: 66 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 77 f the variable w
3b70: 61 73 20 6e 6f 74 20 63 72 65 61 74 65 64 20 62 as not created b
3b80: 79 20 75 73 2e 0d 0a 20 20 20 20 20 20 23 0d 0a y us... #..
3b90: 20 20 20 20 20 20 66 69 6e 64 49 6e 74 65 72 70 findInterp
3ba0: 72 65 74 65 72 54 65 73 74 50 61 74 68 20 73 74 reterTestPath st
3bb0: 64 6f 75 74 20 24 76 65 6e 64 6f 72 5f 64 69 72 dout $vendor_dir
3bc0: 65 63 74 6f 72 79 20 5c 0d 0a 20 20 20 20 20 20 ectory \..
3bd0: 20 20 20 20 5b 65 78 70 72 20 7b 24 68 61 76 65 [expr {$have
3be0: 5f 76 65 6e 64 6f 72 5f 74 65 73 74 5f 64 69 72 _vendor_test_dir
3bf0: 65 63 74 6f 72 79 20 3f 20 22 22 20 3a 20 22 76 ectory ? "" : "v
3c00: 65 6e 64 6f 72 5f 74 65 73 74 5f 64 69 72 65 63 endor_test_direc
3c10: 74 6f 72 79 22 7d 5d 20 5c 0d 0a 20 20 20 20 20 tory"}] \..
3c20: 20 20 20 20 20 5b 63 68 65 63 6b 46 6f 72 56 65 [checkForVe
3c30: 6e 64 6f 72 51 75 69 65 74 20 66 69 6e 64 49 6e ndorQuiet findIn
3c40: 74 65 72 70 72 65 74 65 72 54 65 73 74 50 61 74 terpreterTestPat
3c50: 68 5d 0d 0a 0d 0a 20 20 20 20 20 20 75 6e 73 65 h].... unse
3c60: 74 20 68 61 76 65 5f 76 65 6e 64 6f 72 5f 74 65 t have_vendor_te
3c70: 73 74 5f 64 69 72 65 63 74 6f 72 79 0d 0a 0d 0a st_directory....
3c80: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 #.. #
3c90: 20 4e 4f 54 45 3a 20 49 66 20 77 65 20 61 63 74 NOTE: If we act
3ca0: 75 61 6c 6c 79 20 66 6f 75 6e 64 20 61 20 76 65 ually found a ve
3cb0: 6e 64 6f 72 2d 73 70 65 63 69 66 69 63 20 74 65 ndor-specific te
3cc0: 73 74 69 6e 67 20 69 6e 66 72 61 73 74 72 75 63 sting infrastruc
3cd0: 74 75 72 65 0d 0a 20 20 20 20 20 20 23 20 20 20 ture.. #
3ce0: 20 20 20 20 64 69 72 65 63 74 6f 72 79 20 74 68 directory th
3cf0: 65 6e 20 6d 6f 64 69 66 79 20 74 68 65 20 54 65 en modify the Te
3d00: 73 74 50 61 74 68 20 70 72 6f 70 65 72 74 79 20 stPath property
3d10: 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 0d 0a of the current..
3d20: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 69 6e # in
3d30: 74 65 72 70 72 65 74 65 72 20 74 6f 20 70 6f 69 terpreter to poi
3d40: 6e 74 20 64 69 72 65 63 74 6c 79 20 74 6f 20 69 nt directly to i
3d50: 74 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 t... #..
3d60: 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c if {[string l
3d70: 65 6e 67 74 68 20 24 76 65 6e 64 6f 72 5f 74 65 ength $vendor_te
3d80: 73 74 5f 64 69 72 65 63 74 6f 72 79 5d 20 3e 20 st_directory] >
3d90: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 0} then {..
3da0: 20 20 20 73 65 74 75 70 49 6e 74 65 72 70 72 65 setupInterpre
3db0: 74 65 72 54 65 73 74 50 61 74 68 20 73 74 64 6f terTestPath stdo
3dc0: 75 74 20 24 76 65 6e 64 6f 72 5f 74 65 73 74 5f ut $vendor_test_
3dd0: 64 69 72 65 63 74 6f 72 79 20 5c 0d 0a 20 20 20 directory \..
3de0: 20 20 20 20 20 20 20 20 20 5b 63 68 65 63 6b 46 [checkF
3df0: 6f 72 56 65 6e 64 6f 72 51 75 69 65 74 20 73 65 orVendorQuiet se
3e00: 74 75 70 49 6e 74 65 72 70 72 65 74 65 72 54 65 tupInterpreterTe
3e10: 73 74 50 61 74 68 5d 0d 0a 20 20 20 20 20 20 7d stPath].. }
3e20: 0d 0a 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 23 .. }.... #
3e30: 0d 0a 20 20 20 20 23 20 48 41 43 4b 3a 20 50 72 .. # HACK: Pr
3e40: 65 76 65 6e 74 20 74 68 65 20 45 61 67 6c 65 20 event the Eagle
3e50: 63 6f 72 65 20 74 65 73 74 20 73 75 69 74 65 20 core test suite
3e60: 69 6e 66 72 61 73 74 72 75 63 74 75 72 65 20 66 infrastructure f
3e70: 72 6f 6d 20 63 68 65 63 6b 69 6e 67 0d 0a 20 20 rom checking..
3e80: 20 20 23 20 20 20 20 20 20 20 74 65 73 74 20 63 # test c
3e90: 6f 6e 73 74 72 61 69 6e 74 73 20 74 68 61 74 20 onstraints that
3ea0: 61 72 65 20 74 69 6d 65 2d 63 6f 6e 73 75 6d 69 are time-consumi
3eb0: 6e 67 20 61 6e 64 2f 6f 72 20 6d 6f 73 74 20 6c ng and/or most l
3ec0: 69 6b 65 6c 79 20 74 6f 0d 0a 20 20 20 20 23 20 ikely to.. #
3ed0: 20 20 20 20 20 20 62 65 20 73 75 70 65 72 66 6c be superfl
3ee0: 75 6f 75 73 20 74 6f 20 74 68 69 72 64 2d 70 61 uous to third-pa
3ef0: 72 74 79 20 74 65 73 74 20 73 75 69 74 65 73 20 rty test suites
3f00: 28 69 2e 65 2e 20 74 68 6f 73 65 20 74 68 61 74 (i.e. those that
3f10: 20 61 72 65 0d 0a 20 20 20 20 23 20 20 20 20 20 are.. #
3f20: 20 20 6e 6f 74 20 74 65 73 74 69 6e 67 20 74 68 not testing th
3f30: 65 20 45 61 67 6c 65 20 63 6f 72 65 20 6c 69 62 e Eagle core lib
3f40: 72 61 72 79 20 69 74 73 65 6c 66 29 2e 0d 0a 20 rary itself)...
3f50: 20 20 20 23 0d 0a 20 20 20 20 73 65 74 20 6e 6f #.. set no
3f60: 28 63 6f 72 65 29 20 31 0d 0a 0d 0a 20 20 20 20 (core) 1....
3f70: 23 0d 0a 20 20 20 20 23 20 48 41 43 4b 3a 20 50 #.. # HACK: P
3f80: 72 65 76 65 6e 74 20 74 68 65 20 45 61 67 6c 65 revent the Eagle
3f90: 20 63 6f 72 65 20 74 65 73 74 20 73 75 69 74 65 core test suite
3fa0: 20 69 6e 66 72 61 73 74 72 75 63 74 75 72 65 20 infrastructure
3fb0: 66 72 6f 6d 20 63 68 65 63 6b 69 6e 67 0d 0a 20 from checking..
3fc0: 20 20 20 23 20 20 20 20 20 20 20 66 6f 72 20 61 # for a
3fd0: 20 75 73 61 62 6c 65 20 69 6e 73 74 61 6e 63 65 usable instance
3fe0: 20 6f 66 20 45 78 63 65 6c 20 62 65 63 61 75 73 of Excel becaus
3ff0: 65 20 69 74 20 63 61 6e 20 62 65 20 71 75 69 74 e it can be quit
4000: 65 20 73 6c 6f 77 20 74 6f 0d 0a 20 20 20 20 23 e slow to.. #
4010: 20 20 20 20 20 20 20 64 6f 20 73 6f 2e 0d 0a 20 do so...
4020: 20 20 20 23 0d 0a 20 20 20 20 73 65 74 20 6e 6f #.. set no
4030: 28 65 78 63 65 6c 55 73 61 62 6c 65 29 20 31 0d (excelUsable) 1.
4040: 0a 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 20 ... #.. #
4050: 4e 4f 54 45 3a 20 4d 61 6b 65 20 74 68 65 20 70 NOTE: Make the p
4060: 65 72 2d 74 65 73 74 20 63 6f 6e 6e 65 63 74 69 er-test connecti
4070: 6f 6e 20 66 6c 61 67 20 6f 75 74 70 75 74 20 61 on flag output a
4080: 20 6c 69 74 74 6c 65 20 6c 65 73 73 20 6e 6f 69 little less noi
4090: 73 79 2e 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 sy... #..
40a0: 73 65 74 20 6e 6f 28 65 6d 69 74 4c 6f 63 61 6c set no(emitLocal
40b0: 46 6c 61 67 73 49 66 4e 6f 6e 65 29 20 31 0d 0a FlagsIfNone) 1..
40c0: 20 20 20 20 73 65 74 20 6e 6f 28 65 6d 69 74 53 set no(emitS
40d0: 68 61 72 65 64 46 6c 61 67 73 49 66 4e 6f 6e 65 haredFlagsIfNone
40e0: 29 20 31 0d 0a 20 20 20 20 73 65 74 20 6e 6f 28 ) 1.. set no(
40f0: 65 6d 69 74 47 6c 6f 62 61 6c 46 6c 61 67 73 49 emitGlobalFlagsI
4100: 66 4e 6f 6e 65 29 20 31 0d 0a 20 20 20 20 73 65 fNone) 1.. se
4110: 74 20 6e 6f 28 65 6d 69 74 43 6f 6d 62 69 6e 65 t no(emitCombine
4120: 64 46 6c 61 67 73 49 66 4e 6f 6e 65 29 20 31 0d dFlagsIfNone) 1.
4130: 0a 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 20 ... #.. #
4140: 4e 4f 54 45 3a 20 46 6f 72 63 65 20 75 73 65 20 NOTE: Force use
4150: 6f 66 20 74 68 65 20 6e 61 74 69 76 65 20 6c 69 of the native li
4160: 62 72 61 72 79 20 70 72 65 2d 6c 6f 61 64 65 72 brary pre-loader
4170: 20 77 68 65 6e 20 61 70 70 6c 69 63 61 62 6c 65 when applicable
4180: 2e 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 69 66 ... #.. if
4190: 20 7b 21 5b 69 73 4d 6f 6e 6f 5d 7d 20 74 68 65 {![isMono]} the
41a0: 6e 20 7b 0d 0a 20 20 20 20 20 20 73 65 74 20 6e n {.. set n
41b0: 6f 28 64 65 6c 65 74 65 53 71 6c 69 74 65 49 6d o(deleteSqliteIm
41c0: 70 6c 69 63 69 74 4e 61 74 69 76 65 46 69 6c 65 plicitNativeFile
41d0: 73 29 20 31 0d 0a 20 20 20 20 20 20 73 65 74 20 s) 1.. set
41e0: 6e 6f 28 63 6f 70 79 53 71 6c 69 74 65 49 6d 70 no(copySqliteImp
41f0: 6c 69 63 69 74 4e 61 74 69 76 65 46 69 6c 65 73 licitNativeFiles
4200: 29 20 31 0d 0a 20 20 20 20 7d 0d 0a 20 20 7d 0d ) 1.. }.. }.
4210: 0a 7d 0d 0a 0c 0d 0a 23 23 23 23 23 23 23 23 23 .}.....#########
4220: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
4230: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
4240: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
4250: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
4260: 23 23 23 23 23 23 0d 0a 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 20 45 4e 44 20 56 45 4e 44 ####### END VEND
4290: 4f 52 20 43 4f 44 45 20 23 23 23 23 23 23 23 23 OR CODE ########
42a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
42b0: 23 23 23 23 23 23 23 0d 0a 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 23 23 23 23 23 23 23 23 23 23 23 ################
42e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
42f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
4300: 23 23 23 23 23 23 23 23 0d 0a ########..