Artifact
f6084b89acca7d8949a033a1d79472409d1c5993:
- File
Externals/Eagle/lib/Eagle1.0/vendor.eagle
— part of check-in
[51000d0070]
at
2012-07-12 08:18:21
on branch trunk
— Small changes to the unit testing infrastructure integration to allow the common and vendor directories to be overridden.
(user:
mistachkin
size: 7552)
0000: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0010: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0020: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0030: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0040: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d ###############.
0050: 0a 23 0d 0a 23 20 76 65 6e 64 6f 72 2e 65 61 67 .#..# vendor.eag
0060: 6c 65 20 2d 2d 0d 0a 23 0d 0a 23 20 45 78 74 65 le --..#..# Exte
0070: 6e 73 69 62 6c 65 20 41 64 61 70 74 61 62 6c 65 nsible Adaptable
0080: 20 47 65 6e 65 72 61 6c 69 7a 65 64 20 4c 6f 67 Generalized Log
0090: 69 63 20 45 6e 67 69 6e 65 20 28 45 61 67 6c 65 ic Engine (Eagle
00a0: 29 0d 0a 23 20 56 65 6e 64 6f 72 20 49 6e 69 74 )..# Vendor Init
00b0: 69 61 6c 69 7a 61 74 69 6f 6e 20 46 69 6c 65 0d ialization File.
00c0: 0a 23 0d 0a 23 20 43 6f 70 79 72 69 67 68 74 20 .#..# Copyright
00d0: 28 63 29 20 32 30 30 37 2d 32 30 31 32 20 62 79 (c) 2007-2012 by
00e0: 20 4a 6f 65 20 4d 69 73 74 61 63 68 6b 69 6e 2e Joe Mistachkin.
00f0: 20 20 41 6c 6c 20 72 69 67 68 74 73 20 72 65 73 All rights res
0100: 65 72 76 65 64 2e 0d 0a 23 0d 0a 23 20 53 65 65 erved...#..# See
0110: 20 74 68 65 20 66 69 6c 65 20 22 6c 69 63 65 6e the file "licen
0120: 73 65 2e 74 65 72 6d 73 22 20 66 6f 72 20 69 6e se.terms" for in
0130: 66 6f 72 6d 61 74 69 6f 6e 20 6f 6e 20 75 73 61 formation on usa
0140: 67 65 20 61 6e 64 20 72 65 64 69 73 74 72 69 62 ge and redistrib
0150: 75 74 69 6f 6e 20 6f 66 0d 0a 23 20 74 68 69 73 ution of..# this
0160: 20 66 69 6c 65 2c 20 61 6e 64 20 66 6f 72 20 61 file, and for a
0170: 20 44 49 53 43 4c 41 49 4d 45 52 20 4f 46 20 41 DISCLAIMER OF A
0180: 4c 4c 20 57 41 52 52 41 4e 54 49 45 53 2e 0d 0a LL WARRANTIES...
0190: 23 0d 0a 23 20 52 43 53 3a 20 40 28 23 29 20 24 #..# RCS: @(#) $
01a0: 49 64 3a 20 24 0d 0a 23 0d 0a 23 23 23 23 23 23 Id: $..#..######
01b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
01c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
01d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
01e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
01f0: 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 23 0d 0a #########....#..
0200: 23 20 53 54 55 42 3a 20 54 68 69 73 20 73 63 72 # STUB: This scr
0210: 69 70 74 20 66 69 6c 65 20 69 73 20 61 20 70 6c ipt file is a pl
0220: 61 63 65 68 6f 6c 64 65 72 2e 20 20 54 68 69 73 aceholder. This
0230: 20 66 69 6c 65 2c 20 77 68 65 6e 20 70 72 65 73 file, when pres
0240: 65 6e 74 2c 20 69 73 20 61 6c 77 61 79 73 0d 0a ent, is always..
0250: 23 20 20 20 20 20 20 20 65 76 61 6c 75 61 74 65 # evaluate
0260: 64 20 77 68 65 6e 20 61 6e 20 69 6e 74 65 72 70 d when an interp
0270: 72 65 74 65 72 20 69 73 20 69 6e 69 74 69 61 6c reter is initial
0280: 69 7a 65 64 2e 20 20 56 65 6e 64 6f 72 73 20 64 ized. Vendors d
0290: 69 73 74 72 69 62 75 74 69 6e 67 0d 0a 23 20 20 istributing..#
02a0: 20 20 20 20 20 45 61 67 6c 65 20 63 61 6e 20 70 Eagle can p
02b0: 6c 61 63 65 20 63 75 73 74 6f 6d 20 61 70 70 6c lace custom appl
02c0: 69 63 61 74 69 6f 6e 2d 73 70 65 63 69 66 69 63 ication-specific
02d0: 2c 20 69 6e 74 65 72 70 72 65 74 65 72 2d 73 70 , interpreter-sp
02e0: 65 63 69 66 69 63 0d 0a 23 20 20 20 20 20 20 20 ecific..#
02f0: 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 20 61 initialization a
0300: 6e 64 2f 6f 72 20 63 75 73 74 6f 6d 69 7a 61 74 nd/or customizat
0310: 69 6f 6e 73 20 69 6e 20 68 65 72 65 2e 20 20 41 ions in here. A
0320: 64 64 69 74 69 6f 6e 61 6c 6c 79 2c 20 74 68 69 dditionally, thi
0330: 73 20 66 69 6c 65 0d 0a 23 20 20 20 20 20 20 20 s file..#
0340: 6d 61 79 20 63 6f 6e 74 61 69 6e 20 70 65 72 2d may contain per-
0350: 69 6e 74 65 72 70 72 65 74 65 72 20 63 75 73 74 interpreter cust
0360: 6f 6d 69 7a 61 74 69 6f 6e 73 20 72 65 71 75 69 omizations requi
0370: 72 65 64 20 77 68 65 6e 20 70 6f 72 74 69 6e 67 red when porting
0380: 20 74 6f 0d 0a 23 20 20 20 20 20 20 20 6e 65 77 to..# new
0390: 20 70 6c 61 74 66 6f 72 6d 73 2c 20 6f 70 65 72 platforms, oper
03a0: 61 74 69 6e 67 20 73 79 73 74 65 6d 73 2c 20 65 ating systems, e
03b0: 74 63 2e 0d 0a 23 0d 0a 0c 0d 0a 23 23 23 23 23 tc...#.....#####
03c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
03d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
03e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
03f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0400: 23 23 23 23 23 23 23 23 23 23 0d 0a 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 23 23 23 20 42 45 47 49 4e ########## BEGIN
0430: 20 56 45 4e 44 4f 52 20 43 4f 44 45 20 23 23 23 VENDOR CODE ###
0440: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0450: 23 23 23 23 23 23 23 23 23 23 23 0d 0a 23 23 23 ###########..###
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 23 23 23 23 23 23 23 23 ################
0480: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0490: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
04a0: 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 23 0d ############..#.
04b0: 0a 23 20 4e 4f 54 45 3a 20 55 73 65 20 6f 75 72 .# NOTE: Use our
04c0: 20 6f 77 6e 20 6e 61 6d 65 73 70 61 63 65 20 68 own namespace h
04d0: 65 72 65 20 62 65 63 61 75 73 65 20 65 76 65 6e ere because even
04e0: 20 74 68 6f 75 67 68 20 77 65 20 64 6f 20 6e 6f though we do no
04f0: 74 20 64 69 72 65 63 74 6c 79 0d 0a 23 20 20 20 t directly..#
0500: 20 20 20 20 73 75 70 70 6f 72 74 20 6e 61 6d 65 support name
0510: 73 70 61 63 65 73 20 6f 75 72 73 65 6c 76 65 73 spaces ourselves
0520: 2c 20 77 65 20 64 6f 20 6e 6f 74 20 77 61 6e 74 , we do not want
0530: 20 74 6f 20 70 6f 6c 6c 75 74 65 20 74 68 65 20 to pollute the
0540: 67 6c 6f 62 61 6c 0d 0a 23 20 20 20 20 20 20 20 global..#
0550: 6e 61 6d 65 73 70 61 63 65 20 69 66 20 74 68 69 namespace if thi
0560: 73 20 73 63 72 69 70 74 20 61 63 74 75 61 6c 6c s script actuall
0570: 79 20 65 6e 64 73 20 75 70 20 62 65 69 6e 67 20 y ends up being
0580: 65 76 61 6c 75 61 74 65 64 20 69 6e 20 54 63 6c evaluated in Tcl
0590: 2e 0d 0a 23 0d 0a 6e 61 6d 65 73 70 61 63 65 20 ...#..namespace
05a0: 65 76 61 6c 20 3a 3a 45 61 67 6c 65 20 7b 0d 0a eval ::Eagle {..
05b0: 20 20 69 66 20 7b 5b 69 73 45 61 67 6c 65 5d 7d if {[isEagle]}
05c0: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 70 72 6f then {.. pro
05d0: 63 20 63 68 65 63 6b 46 6f 72 54 65 73 74 4f 76 c checkForTestOv
05e0: 65 72 72 69 64 65 73 20 7b 20 63 68 61 6e 6e 65 errides { channe
05f0: 6c 20 76 61 72 4e 61 6d 65 73 20 71 75 69 65 74 l varNames quiet
0600: 20 7d 20 7b 0d 0a 20 20 20 20 20 20 73 65 74 20 } {.. set
0610: 72 65 73 75 6c 74 20 30 0d 0a 0d 0a 20 20 20 20 result 0....
0620: 20 20 66 6f 72 65 61 63 68 20 76 61 72 4e 61 6d foreach varNam
0630: 65 20 24 76 61 72 4e 61 6d 65 73 20 7b 0d 0a 20 e $varNames {..
0640: 20 20 20 20 20 20 20 69 66 20 7b 5b 75 70 6c 65 if {[uple
0650: 76 65 6c 20 31 20 5b 6c 69 73 74 20 69 6e 66 6f vel 1 [list info
0660: 20 65 78 69 73 74 73 20 24 76 61 72 4e 61 6d 65 exists $varName
0670: 5d 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 ]]} then {..
0680: 20 20 20 20 20 20 69 6e 63 72 20 72 65 73 75 6c incr resul
0690: 74 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 69 t.... i
06a0: 66 20 7b 21 24 71 75 69 65 74 7d 20 74 68 65 6e f {!$quiet} then
06b0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 {..
06c0: 74 71 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 tqputs $channel
06d0: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 [appendArgs \..
06e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 "
06f0: 2d 2d 2d 2d 20 66 6f 75 6e 64 20 76 65 6e 64 6f ---- found vendo
0700: 72 2d 73 70 65 63 69 66 69 63 20 74 65 73 74 20 r-specific test
0710: 6f 76 65 72 72 69 64 65 20 5c 22 22 20 24 76 61 override \"" $va
0720: 72 4e 61 6d 65 20 22 5c 22 2e 5c 6e 22 5d 0d 0a rName "\".\n"]..
0730: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 }..
0740: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d }.. }.
0750: 0a 0d 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 ... return
0760: 24 72 65 73 75 6c 74 0d 0a 20 20 20 20 7d 0d 0a $result.. }..
0770: 0c 0d 0a 20 20 20 20 70 72 6f 63 20 61 64 64 54 ... proc addT
0780: 65 73 74 53 75 69 74 65 54 6f 41 75 74 6f 50 61 estSuiteToAutoPa
0790: 74 68 20 7b 20 63 68 61 6e 6e 65 6c 20 76 61 72 th { channel var
07a0: 4e 61 6d 65 20 71 75 69 65 74 20 7d 20 7b 0d 0a Name quiet } {..
07b0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 #.. #
07c0: 20 4e 4f 54 45 3a 20 53 74 61 72 74 20 77 69 74 NOTE: Start wit
07d0: 68 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 20 h the directory
07e0: 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 69 73 20 containing this
07f0: 66 69 6c 65 2e 0d 0a 20 20 20 20 20 20 23 0d 0a file... #..
0800: 20 20 20 20 20 20 73 65 74 20 64 69 72 20 5b 66 set dir [f
0810: 69 6c 65 20 6e 6f 72 6d 61 6c 69 7a 65 20 5b 66 ile normalize [f
0820: 69 6c 65 20 64 69 72 6e 61 6d 65 20 5b 69 6e 66 ile dirname [inf
0830: 6f 20 73 63 72 69 70 74 5d 5d 5d 0d 0a 0d 0a 20 o script]]]....
0840: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 #.. #
0850: 4e 4f 54 45 3a 20 4b 65 65 70 20 67 6f 69 6e 67 NOTE: Keep going
0860: 20 75 6e 74 69 6c 20 74 68 65 20 64 69 72 65 63 until the direc
0870: 74 6f 72 79 20 6e 61 6d 65 20 69 73 20 65 6d 70 tory name is emp
0880: 74 79 20 4f 52 20 69 73 20 61 63 74 75 61 6c 6c ty OR is actuall
0890: 79 20 74 68 65 0d 0a 20 20 20 20 20 20 23 20 20 y the.. #
08a0: 20 20 20 20 20 72 6f 6f 74 20 6f 66 20 74 68 65 root of the
08b0: 20 61 73 73 6f 63 69 61 74 65 64 20 76 6f 6c 75 associated volu
08c0: 6d 65 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 me... #..
08d0: 20 20 20 20 77 68 69 6c 65 20 7b 5b 73 74 72 69 while {[stri
08e0: 6e 67 20 6c 65 6e 67 74 68 20 24 64 69 72 5d 20 ng length $dir]
08f0: 3e 20 30 20 26 26 20 5c 0d 0a 20 20 20 20 20 20 > 0 && \..
0900: 20 20 20 20 5b 6c 73 65 61 72 63 68 20 2d 65 78 [lsearch -ex
0910: 61 63 74 20 2d 6e 6f 63 61 73 65 20 2d 2d 20 5b act -nocase -- [
0920: 66 69 6c 65 20 76 6f 6c 75 6d 65 73 5d 20 24 64 file volumes] $d
0930: 69 72 5d 20 3d 3d 20 2d 31 7d 20 7b 0d 0a 20 20 ir] == -1} {..
0940: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
0950: 20 23 20 4e 4f 54 45 3a 20 44 6f 65 73 20 74 68 # NOTE: Does th
0960: 69 73 20 64 69 72 65 63 74 6f 72 79 20 68 61 76 is directory hav
0970: 65 20 74 68 65 20 6e 65 63 65 73 73 61 72 79 20 e the necessary
0980: 73 75 62 2d 64 69 72 65 63 74 6f 72 79 20 74 68 sub-directory th
0990: 61 74 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 at.. #
09a0: 20 20 20 20 63 6f 6e 74 61 69 6e 73 20 61 20 70 contains a p
09b0: 61 63 6b 61 67 65 20 69 6e 64 65 78 20 66 69 6c ackage index fil
09c0: 65 3f 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 e?.. #..
09d0: 20 20 20 20 20 20 20 69 66 20 7b 5b 66 69 6c 65 if {[file
09e0: 20 65 78 69 73 74 73 20 5b 66 69 6c 65 20 6a 6f exists [file jo
09f0: 69 6e 20 24 64 69 72 20 54 65 73 74 73 5d 5d 20 in $dir Tests]]
0a00: 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 && \..
0a10: 20 20 5b 66 69 6c 65 20 69 73 64 69 72 65 63 74 [file isdirect
0a20: 6f 72 79 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 ory [file join $
0a30: 64 69 72 20 54 65 73 74 73 5d 5d 20 26 26 20 5c dir Tests]] && \
0a40: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 5b 66 .. [f
0a50: 69 6c 65 20 65 78 69 73 74 73 20 5b 66 69 6c 65 ile exists [file
0a60: 20 6a 6f 69 6e 20 24 64 69 72 20 54 65 73 74 73 join $dir Tests
0a70: 20 70 6b 67 49 6e 64 65 78 2e 65 61 67 6c 65 5d pkgIndex.eagle]
0a80: 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 ] && \..
0a90: 20 20 20 20 5b 66 69 6c 65 20 69 73 66 69 6c 65 [file isfile
0aa0: 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 64 69 72 [file join $dir
0ab0: 20 54 65 73 74 73 20 70 6b 67 49 6e 64 65 78 2e Tests pkgIndex.
0ac0: 65 61 67 6c 65 5d 5d 7d 20 74 68 65 6e 20 7b 0d eagle]]} then {.
0ad0: 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 . #..
0ae0: 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 # NOTE:
0af0: 49 66 20 72 65 71 75 65 73 74 65 64 2c 20 67 69 If requested, gi
0b00: 76 65 20 74 68 65 20 63 61 6c 6c 65 72 20 61 63 ve the caller ac
0b10: 63 65 73 73 20 74 6f 20 74 68 65 20 6e 61 6d 65 cess to the name
0b20: 20 6f 66 20 74 68 65 0d 0a 20 20 20 20 20 20 20 of the..
0b30: 20 20 20 23 20 20 20 20 20 20 20 64 69 72 65 63 # direc
0b40: 74 6f 72 79 20 77 65 20 6a 75 73 74 20 66 6f 75 tory we just fou
0b50: 6e 64 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23 nd... #
0b60: 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7b .. if {
0b70: 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 [string length $
0b80: 76 61 72 4e 61 6d 65 5d 20 3e 20 30 7d 20 74 68 varName] > 0} th
0b90: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 en {..
0ba0: 20 20 75 70 76 61 72 20 31 20 24 76 61 72 4e 61 upvar 1 $varNa
0bb0: 6d 65 20 64 69 72 32 0d 0a 20 20 20 20 20 20 20 me dir2..
0bc0: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 }....
0bd0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23 #.. #
0be0: 20 4e 4f 54 45 3a 20 4f 6b 2c 20 73 68 6f 77 20 NOTE: Ok, show
0bf0: 74 68 65 20 64 69 72 65 63 74 6f 72 79 20 77 65 the directory we
0c00: 20 66 6f 75 6e 64 2e 0d 0a 20 20 20 20 20 20 20 found...
0c10: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 #..
0c20: 73 65 74 20 64 69 72 32 20 5b 66 69 6c 65 20 6a set dir2 [file j
0c30: 6f 69 6e 20 24 64 69 72 20 54 65 73 74 73 5d 0d oin $dir Tests].
0c40: 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a ... #..
0c50: 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 # NOTE
0c60: 3a 20 57 65 20 66 6f 75 6e 64 20 74 68 65 20 6e : We found the n
0c70: 65 63 65 73 73 61 72 79 20 64 69 72 65 63 74 6f ecessary directo
0c80: 72 79 20 74 6f 20 61 64 64 20 74 6f 20 74 68 65 ry to add to the
0c90: 20 61 75 74 6f 2d 70 61 74 68 3b 0d 0a 20 20 20 auto-path;..
0ca0: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 48 # H
0cb0: 6f 77 65 76 65 72 2c 20 77 65 20 63 61 6e 6e 6f owever, we canno
0cc0: 74 20 73 69 6d 70 6c 79 20 61 64 64 20 69 74 20 t simply add it
0cd0: 74 6f 20 74 68 65 20 61 75 74 6f 2d 70 61 74 68 to the auto-path
0ce0: 20 64 69 72 65 63 74 6c 79 0d 0a 20 20 20 20 20 directly..
0cf0: 20 20 20 20 20 23 20 20 20 20 20 20 20 62 65 63 # bec
0d00: 61 75 73 65 20 74 68 65 20 61 75 74 6f 2d 70 61 ause the auto-pa
0d10: 74 68 20 69 73 20 64 79 6e 61 6d 69 63 61 6c 6c th is dynamicall
0d20: 79 20 63 6f 6e 73 74 72 75 63 74 65 64 20 61 66 y constructed af
0d30: 74 65 72 20 74 68 69 73 0d 0a 20 20 20 20 20 20 ter this..
0d40: 20 20 20 20 23 20 20 20 20 20 20 20 73 63 72 69 # scri
0d50: 70 74 20 69 73 20 65 76 61 6c 75 61 74 65 64 3b pt is evaluated;
0d60: 20 74 68 65 72 65 66 6f 72 65 2c 20 73 65 74 20 therefore, set
0d70: 74 68 65 20 45 61 67 6c 65 20 6c 69 62 72 61 72 the Eagle librar
0d80: 79 20 70 61 74 68 0d 0a 20 20 20 20 20 20 20 20 y path..
0d90: 20 20 23 20 20 20 20 20 20 20 65 6e 76 69 72 6f # enviro
0da0: 6e 6d 65 6e 74 20 76 61 72 69 61 62 6c 65 20 61 nment variable a
0db0: 6e 64 20 66 6f 72 63 65 20 74 68 65 20 61 70 70 nd force the app
0dc0: 72 6f 70 72 69 61 74 65 20 69 6e 74 65 72 6e 61 ropriate interna
0dd0: 6c 20 70 61 74 68 0d 0a 20 20 20 20 20 20 20 20 l path..
0de0: 20 20 23 20 20 20 20 20 20 20 6c 69 73 74 20 74 # list t
0df0: 6f 20 62 65 20 72 65 66 72 65 73 68 65 64 2e 0d o be refreshed..
0e00: 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 . #..
0e10: 20 20 20 20 20 20 20 20 69 66 20 7b 21 5b 69 6e if {![in
0e20: 66 6f 20 65 78 69 73 74 73 20 3a 3a 65 6e 76 28 fo exists ::env(
0e30: 45 41 47 4c 45 4c 49 42 50 41 54 48 29 5d 20 7c EAGLELIBPATH)] |
0e40: 7c 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 | \..
0e50: 20 20 20 5b 6c 73 65 61 72 63 68 20 2d 65 78 61 [lsearch -exa
0e60: 63 74 20 24 3a 3a 65 6e 76 28 45 41 47 4c 45 4c ct $::env(EAGLEL
0e70: 49 42 50 41 54 48 29 20 24 64 69 72 32 5d 20 3d IBPATH) $dir2] =
0e80: 3d 20 2d 31 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 = -1} then {..
0e90: 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 #..
0ea0: 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a # NOTE:
0eb0: 20 49 66 20 77 65 20 68 61 76 65 20 4e 4f 54 20 If we have NOT
0ec0: 62 65 65 6e 20 69 6e 73 74 72 75 63 74 65 64 20 been instructed
0ed0: 74 6f 20 62 65 20 71 75 69 65 74 2c 20 72 65 70 to be quiet, rep
0ee0: 6f 72 74 20 6e 6f 77 2e 0d 0a 20 20 20 20 20 20 ort now...
0ef0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
0f00: 20 20 20 20 20 69 66 20 7b 21 24 71 75 69 65 74 if {!$quiet
0f10: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {..
0f20: 20 20 20 20 20 20 20 20 74 71 70 75 74 73 20 24 tqputs $
0f30: 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 channel [appendA
0f40: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 rgs \..
0f50: 20 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 66 "---- f
0f60: 6f 75 6e 64 20 76 65 6e 64 6f 72 2d 73 70 65 63 ound vendor-spec
0f70: 69 66 69 63 20 74 65 73 74 20 70 61 63 6b 61 67 ific test packag
0f80: 65 20 64 69 72 65 63 74 6f 72 79 20 5c 22 22 20 e directory \""
0f90: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 \..
0fa0: 20 20 20 20 20 24 64 69 72 32 20 22 5c 22 2c 20 $dir2 "\",
0fb0: 61 64 64 69 6e 67 2e 2e 2e 5c 6e 22 5d 0d 0a 20 adding...\n"]..
0fc0: 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a }....
0fd0: 20 20 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 #..
0fe0: 20 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 # NOT
0ff0: 45 3a 20 41 70 70 65 6e 64 20 74 68 65 20 64 69 E: Append the di
1000: 72 65 63 74 6f 72 79 20 74 6f 20 74 68 65 20 6e rectory to the n
1010: 65 63 65 73 73 61 72 79 20 65 6e 76 69 72 6f 6e ecessary environ
1020: 6d 65 6e 74 20 76 61 72 69 61 62 6c 65 0d 0a 20 ment variable..
1030: 20 20 20 20 20 20 20 20 20 20 20 23 20 20 20 20 #
1040: 20 20 20 73 6f 20 74 68 61 74 20 69 74 20 77 69 so that it wi
1050: 6c 6c 20 67 65 74 20 70 69 63 6b 65 64 20 75 70 ll get picked up
1060: 20 77 68 65 6e 20 45 61 67 6c 65 20 61 63 74 75 when Eagle actu
1070: 61 6c 6c 79 20 72 65 62 75 69 6c 64 73 0d 0a 20 ally rebuilds..
1080: 20 20 20 20 20 20 20 20 20 20 20 23 20 20 20 20 #
1090: 20 20 20 74 68 65 20 61 75 74 6f 2d 70 61 74 68 the auto-path
10a0: 20 6c 69 73 74 20 28 62 65 6c 6f 77 29 2e 0d 0a list (below)...
10b0: 20 20 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 #..
10c0: 20 20 20 20 20 20 20 20 20 20 20 6c 61 70 70 65 lappe
10d0: 6e 64 20 3a 3a 65 6e 76 28 45 41 47 4c 45 4c 49 nd ::env(EAGLELI
10e0: 42 50 41 54 48 29 20 24 64 69 72 32 0d 0a 0d 0a BPATH) $dir2....
10f0: 20 20 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 #..
1100: 20 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 # NOT
1110: 45 3a 20 46 6f 72 63 65 20 45 61 67 6c 65 20 74 E: Force Eagle t
1120: 6f 20 72 65 62 75 69 6c 64 20 74 68 65 20 61 75 o rebuild the au
1130: 74 6f 2d 70 61 74 68 20 6c 69 73 74 20 66 6f 72 to-path list for
1140: 20 74 68 65 20 63 75 72 72 65 6e 74 0d 0a 20 20 the current..
1150: 20 20 20 20 20 20 20 20 20 20 23 20 20 20 20 20 #
1160: 20 20 69 6e 74 65 72 70 72 65 74 65 72 20 72 69 interpreter ri
1170: 67 68 74 20 6e 6f 77 2e 0d 0a 20 20 20 20 20 20 ght now...
1180: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
1190: 20 20 20 20 20 6f 62 6a 65 63 74 20 69 6e 76 6f object invo
11a0: 6b 65 20 55 74 69 6c 69 74 79 20 52 65 66 72 65 ke Utility Refre
11b0: 73 68 41 75 74 6f 50 61 74 68 4c 69 73 74 20 74 shAutoPathList t
11c0: 72 75 65 0d 0a 20 20 20 20 20 20 20 20 20 20 7d rue.. }
11d0: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d .... #.
11e0: 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 . # NOT
11f0: 45 3a 20 57 65 20 61 72 65 20 64 6f 6e 65 2c 20 E: We are done,
1200: 72 65 74 75 72 6e 20 73 75 63 63 65 73 73 2e 0d return success..
1210: 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 . #..
1220: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 74 return t
1230: 72 75 65 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a rue.. }..
1240: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #..
1250: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 4b 65 65 # NOTE: Kee
1260: 70 20 67 6f 69 6e 67 20 75 70 20 74 68 65 20 64 p going up the d
1270: 69 72 65 63 74 6f 72 79 20 74 72 65 65 2e 2e 2e irectory tree...
1280: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #..
1290: 20 20 20 20 20 73 65 74 20 64 69 72 20 5b 66 69 set dir [fi
12a0: 6c 65 20 64 69 72 6e 61 6d 65 20 24 64 69 72 5d le dirname $dir]
12b0: 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 .. }....
12c0: 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f #.. # NO
12d0: 54 45 3a 20 49 66 20 77 65 20 68 61 76 65 20 4e TE: If we have N
12e0: 4f 54 20 62 65 65 6e 20 69 6e 73 74 72 75 63 74 OT been instruct
12f0: 65 64 20 74 6f 20 62 65 20 71 75 69 65 74 2c 20 ed to be quiet,
1300: 72 65 70 6f 72 74 20 6e 6f 77 2e 0d 0a 20 20 20 report now...
1310: 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b #.. if {
1320: 21 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d !$quiet} then {.
1330: 0a 20 20 20 20 20 20 20 20 74 71 70 75 74 73 20 . tqputs
1340: 24 63 68 61 6e 6e 65 6c 20 5c 0d 0a 20 20 20 20 $channel \..
1350: 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 63 6f "---- co
1360: 75 6c 64 20 6e 6f 74 20 66 69 6e 64 20 76 65 6e uld not find ven
1370: 64 6f 72 2d 73 70 65 63 69 66 69 63 20 74 65 73 dor-specific tes
1380: 74 20 70 61 63 6b 61 67 65 20 64 69 72 65 63 74 t package direct
1390: 6f 72 79 2e 5c 6e 22 0d 0a 20 20 20 20 20 20 7d ory.\n".. }
13a0: 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 .... #..
13b0: 20 20 20 23 20 4e 4f 54 45 3a 20 44 69 72 65 63 # NOTE: Direc
13c0: 74 6f 72 79 20 6e 6f 74 20 66 6f 75 6e 64 2c 20 tory not found,
13d0: 72 65 74 75 72 6e 20 66 61 69 6c 75 72 65 2e 0d return failure..
13e0: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 . #..
13f0: 72 65 74 75 72 6e 20 66 61 6c 73 65 0d 0a 20 20 return false..
1400: 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 }..... proc
1410: 20 73 65 74 75 70 49 6e 74 65 72 70 72 65 74 65 setupInterprete
1420: 72 54 65 73 74 50 61 74 68 20 7b 20 63 68 61 6e rTestPath { chan
1430: 6e 65 6c 20 64 69 72 20 71 75 69 65 74 20 7d 20 nel dir quiet }
1440: 7b 0d 0a 20 20 20 20 20 20 73 65 74 20 74 65 73 {.. set tes
1450: 74 50 61 74 68 20 5b 6f 62 6a 65 63 74 20 69 6e tPath [object in
1460: 76 6f 6b 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e voke -flags +Non
1470: 50 75 62 6c 69 63 20 49 6e 74 65 72 70 72 65 74 Public Interpret
1480: 65 72 2e 47 65 74 41 63 74 69 76 65 20 5c 0d 0a er.GetActive \..
1490: 20 20 20 20 20 20 20 20 20 20 54 65 73 74 50 61 TestPa
14a0: 74 68 5d 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 th].... if
14b0: 7b 24 64 69 72 20 6e 65 20 24 74 65 73 74 50 61 {$dir ne $testPa
14c0: 74 68 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 th} then {..
14d0: 20 20 20 20 6f 62 6a 65 63 74 20 69 6e 76 6f 6b object invok
14e0: 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 e -flags +NonPub
14f0: 6c 69 63 20 49 6e 74 65 72 70 72 65 74 65 72 2e lic Interpreter.
1500: 47 65 74 41 63 74 69 76 65 20 54 65 73 74 50 61 GetActive TestPa
1510: 74 68 20 24 64 69 72 0d 0a 0d 0a 20 20 20 20 20 th $dir....
1520: 20 20 20 69 66 20 7b 21 24 71 75 69 65 74 7d 20 if {!$quiet}
1530: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 then {..
1540: 20 20 74 71 70 75 74 73 20 24 63 68 61 6e 6e 65 tqputs $channe
1550: 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d l [appendArgs \.
1560: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 . "
1570: 2d 2d 2d 2d 20 73 65 74 20 69 6e 74 65 72 70 72 ---- set interpr
1580: 65 74 65 72 20 74 65 73 74 20 70 61 74 68 20 74 eter test path t
1590: 6f 20 5c 22 22 20 24 64 69 72 20 5c 22 2e 5c 6e o \"" $dir \".\n
15a0: 5d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 ].. }..
15b0: 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d }.. }....
15c0: 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f . #.. # NO
15d0: 54 45 3a 20 43 68 65 63 6b 20 66 6f 72 20 61 6e TE: Check for an
15e0: 79 20 6f 76 65 72 72 69 64 64 65 6e 20 73 65 74 y overridden set
15f0: 74 69 6e 67 73 20 74 68 61 74 20 6d 61 79 20 68 tings that may h
1600: 61 76 65 20 62 65 65 6e 20 73 70 65 63 69 66 69 ave been specifi
1610: 65 64 20 76 69 61 0d 0a 20 20 20 20 23 20 20 20 ed via.. #
1620: 20 20 20 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 the command
1630: 6c 69 6e 65 2c 20 65 74 63 2e 0d 0a 20 20 20 20 line, etc...
1640: 23 0d 0a 20 20 20 20 63 68 65 63 6b 46 6f 72 54 #.. checkForT
1650: 65 73 74 4f 76 65 72 72 69 64 65 73 20 73 74 64 estOverrides std
1660: 6f 75 74 20 5b 6c 69 73 74 20 62 69 6e 61 72 79 out [list binary
1670: 5f 64 69 72 65 63 74 6f 72 79 20 62 75 69 6c 64 _directory build
1680: 5f 62 61 73 65 5f 64 69 72 65 63 74 6f 72 79 20 _base_directory
1690: 5c 0d 0a 20 20 20 20 20 20 20 20 62 75 69 6c 64 \.. build
16a0: 5f 64 69 72 65 63 74 6f 72 79 20 63 6f 6d 6d 6f _directory commo
16b0: 6e 5f 64 69 72 65 63 74 6f 72 79 20 63 6f 6e 6e n_directory conn
16c0: 65 63 74 69 6f 6e 5f 66 6c 61 67 73 20 64 61 74 ection_flags dat
16d0: 61 62 61 73 65 5f 64 69 72 65 63 74 6f 72 79 20 abase_directory
16e0: 5c 0d 0a 20 20 20 20 20 20 20 20 64 61 74 65 74 \.. datet
16f0: 69 6d 65 5f 66 6f 72 6d 61 74 20 74 65 73 74 5f ime_format test_
1700: 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 74 65 configuration te
1710: 73 74 5f 79 65 61 72 20 76 65 6e 64 6f 72 5f 64 st_year vendor_d
1720: 69 72 65 63 74 6f 72 79 5d 20 66 61 6c 73 65 0d irectory] false.
1730: 0a 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 20 ... #.. #
1740: 4e 4f 54 45 3a 20 54 68 69 73 20 76 61 72 69 61 NOTE: This varia
1750: 62 6c 65 20 77 69 6c 6c 20 63 6f 6e 74 61 69 6e ble will contain
1760: 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 the name of the
1770: 20 64 69 72 65 63 74 6f 72 79 20 63 6f 6e 74 61 directory conta
1780: 69 6e 69 6e 67 20 74 68 65 0d 0a 20 20 20 20 23 ining the.. #
1790: 20 20 20 20 20 20 20 76 65 6e 64 6f 72 2d 73 70 vendor-sp
17a0: 65 63 69 66 69 63 20 74 65 73 74 69 6e 67 20 69 ecific testing i
17b0: 6e 66 72 61 73 74 72 75 63 74 75 72 65 2e 20 20 nfrastructure.
17c0: 49 66 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 If the variable
17d0: 64 6f 65 73 20 6e 6f 74 0d 0a 20 20 20 20 23 20 does not.. #
17e0: 20 20 20 20 20 20 61 6c 72 65 61 64 79 20 65 78 already ex
17f0: 69 73 74 2c 20 63 72 65 61 74 65 20 69 74 3b 20 ist, create it;
1800: 6f 74 68 65 72 77 69 73 65 2c 20 69 74 20 68 61 otherwise, it ha
1810: 73 20 62 65 65 6e 20 6f 76 65 72 72 69 64 64 65 s been overridde
1820: 6e 20 61 6e 64 20 74 68 65 0d 0a 20 20 20 20 23 n and the.. #
1830: 20 20 20 20 20 20 20 65 78 69 73 74 69 6e 67 20 existing
1840: 76 61 6c 75 65 20 73 68 6f 75 6c 64 20 62 65 20 value should be
1850: 6c 65 66 74 20 69 6e 74 61 63 74 2e 0d 0a 20 20 left intact...
1860: 20 20 23 0d 0a 20 20 20 20 73 65 74 20 68 61 76 #.. set hav
1870: 65 5f 76 65 6e 64 6f 72 5f 64 69 72 65 63 74 6f e_vendor_directo
1880: 72 79 20 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 ry [info exists
1890: 3a 3a 76 65 6e 64 6f 72 5f 64 69 72 65 63 74 6f ::vendor_directo
18a0: 72 79 5d 0d 0a 0d 0a 20 20 20 20 69 66 20 7b 21 ry].... if {!
18b0: 24 68 61 76 65 5f 76 65 6e 64 6f 72 5f 64 69 72 $have_vendor_dir
18c0: 65 63 74 6f 72 79 7d 20 74 68 65 6e 20 7b 0d 0a ectory} then {..
18d0: 20 20 20 20 20 20 73 65 74 20 3a 3a 76 65 6e 64 set ::vend
18e0: 6f 72 5f 64 69 72 65 63 74 6f 72 79 20 22 22 0d or_directory "".
18f0: 0a 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 23 0d . }.... #.
1900: 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 69 . # NOTE: Thi
1910: 73 20 70 72 6f 63 65 64 75 72 65 20 77 69 6c 6c s procedure will
1920: 20 61 74 74 65 6d 70 74 20 74 6f 20 66 69 6e 64 attempt to find
1930: 20 74 68 65 20 76 65 6e 64 6f 72 2d 73 70 65 63 the vendor-spec
1940: 69 66 69 63 20 74 65 73 74 69 6e 67 0d 0a 20 20 ific testing..
1950: 20 20 23 20 20 20 20 20 20 20 69 6e 66 72 61 73 # infras
1960: 74 72 75 63 74 75 72 65 20 64 69 72 65 63 74 6f tructure directo
1970: 72 79 20 61 6e 64 20 61 64 64 20 69 74 20 74 6f ry and add it to
1980: 20 74 68 65 20 61 75 74 6f 2d 70 61 74 68 20 66 the auto-path f
1990: 6f 72 20 74 68 65 0d 0a 20 20 20 20 23 20 20 20 or the.. #
19a0: 20 20 20 20 63 75 72 72 65 6e 74 20 69 6e 74 65 current inte
19b0: 72 70 72 65 74 65 72 2e 20 20 4e 6f 72 6d 61 6c rpreter. Normal
19c0: 6c 79 2c 20 74 68 69 73 20 77 69 6c 6c 20 61 6c ly, this will al
19d0: 73 6f 20 73 65 74 20 74 68 65 20 76 61 72 69 61 so set the varia
19e0: 62 6c 65 0d 0a 20 20 20 20 23 20 20 20 20 20 20 ble.. #
19f0: 20 63 72 65 61 74 65 64 20 61 62 6f 76 65 20 74 created above t
1a00: 6f 20 70 6f 69 6e 74 20 74 6f 20 74 68 65 20 64 o point to the d
1a10: 69 72 65 63 74 6f 72 79 20 61 64 64 65 64 20 74 irectory added t
1a20: 6f 20 74 68 65 20 61 75 74 6f 2d 70 61 74 68 3b o the auto-path;
1a30: 0d 0a 20 20 20 20 23 20 20 20 20 20 20 20 68 6f .. # ho
1a40: 77 65 76 65 72 2c 20 74 68 69 73 20 77 69 6c 6c wever, this will
1a50: 20 6e 6f 74 20 62 65 20 64 6f 6e 65 20 69 66 20 not be done if
1a60: 74 68 65 20 76 61 72 69 61 62 6c 65 20 77 61 73 the variable was
1a70: 20 6e 6f 74 20 63 72 65 61 74 65 64 0d 0a 20 20 not created..
1a80: 20 20 23 20 20 20 20 20 20 20 62 79 20 75 73 2e # by us.
1a90: 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 61 64 64 .. #.. add
1aa0: 54 65 73 74 53 75 69 74 65 54 6f 41 75 74 6f 50 TestSuiteToAutoP
1ab0: 61 74 68 20 73 74 64 6f 75 74 20 5b 65 78 70 72 ath stdout [expr
1ac0: 20 7b 24 68 61 76 65 5f 76 65 6e 64 6f 72 5f 64 {$have_vendor_d
1ad0: 69 72 65 63 74 6f 72 79 20 3f 20 22 22 20 3a 20 irectory ? "" :
1ae0: 5c 0d 0a 20 20 20 20 20 20 20 20 22 3a 3a 76 65 \.. "::ve
1af0: 6e 64 6f 72 5f 64 69 72 65 63 74 6f 72 79 22 7d ndor_directory"}
1b00: 5d 20 66 61 6c 73 65 0d 0a 0d 0a 20 20 20 20 75 ] false.... u
1b10: 6e 73 65 74 20 68 61 76 65 5f 76 65 6e 64 6f 72 nset have_vendor
1b20: 5f 64 69 72 65 63 74 6f 72 79 0d 0a 0d 0a 20 20 _directory....
1b30: 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f 54 45 3a #.. # NOTE:
1b40: 20 49 66 20 77 65 20 61 63 74 75 61 6c 6c 79 20 If we actually
1b50: 66 6f 75 6e 64 20 61 20 76 65 6e 64 6f 72 2d 73 found a vendor-s
1b60: 70 65 63 69 66 69 63 20 74 65 73 74 69 6e 67 20 pecific testing
1b70: 69 6e 66 72 61 73 74 72 75 63 74 75 72 65 0d 0a infrastructure..
1b80: 20 20 20 20 23 20 20 20 20 20 20 20 64 69 72 65 # dire
1b90: 63 74 6f 72 79 20 74 68 65 6e 20 6d 6f 64 69 66 ctory then modif
1ba0: 79 20 74 68 65 20 54 65 73 74 50 61 74 68 20 70 y the TestPath p
1bb0: 72 6f 70 65 72 74 79 20 6f 66 20 74 68 65 20 63 roperty of the c
1bc0: 75 72 72 65 6e 74 0d 0a 20 20 20 20 23 20 20 20 urrent.. #
1bd0: 20 20 20 20 69 6e 74 65 72 70 72 65 74 65 72 20 interpreter
1be0: 74 6f 20 70 6f 69 6e 74 20 64 69 72 65 63 74 6c to point directl
1bf0: 79 20 74 6f 20 69 74 2e 0d 0a 20 20 20 20 23 0d y to it... #.
1c00: 0a 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 . if {[string
1c10: 20 6c 65 6e 67 74 68 20 24 3a 3a 76 65 6e 64 6f length $::vendo
1c20: 72 5f 64 69 72 65 63 74 6f 72 79 5d 20 3e 20 30 r_directory] > 0
1c30: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {..
1c40: 73 65 74 75 70 49 6e 74 65 72 70 72 65 74 65 72 setupInterpreter
1c50: 54 65 73 74 50 61 74 68 20 73 74 64 6f 75 74 20 TestPath stdout
1c60: 24 3a 3a 76 65 6e 64 6f 72 5f 64 69 72 65 63 74 $::vendor_direct
1c70: 6f 72 79 20 66 61 6c 73 65 0d 0a 20 20 20 20 7d ory false.. }
1c80: 0d 0a 20 20 7d 0d 0a 7d 0d 0a 0c 0d 0a 23 23 23 .. }..}.....###
1c90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
1ca0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
1cb0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
1cc0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
1cd0: 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 23 23 ############..##
1ce0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
1cf0: 23 23 23 23 23 23 23 23 23 23 23 23 23 20 45 4e ############# EN
1d00: 44 20 56 45 4e 44 4f 52 20 43 4f 44 45 20 23 23 D VENDOR CODE ##
1d10: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
1d20: 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 23 #############..#
1d30: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
1d40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
1d50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
1d60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
1d70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a ##############..