477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
|
variable useRelativePath
variable verbose
#
# HACK: Scan for and then process the "-baseDirectory", "-configuration",
# "-suffix", "-preTest", and "-postTest" command line arguments. The
# first one may be used to override the base directory that is used
# when attempting to locate the package binaries and the master Eagle
# test suite file (e.g. "all.eagle"). The next two are needed by the
# "helper.tcl" script to locate the proper Eagle assembly to load and
# use for the tests. The final two may be needed to support various
# tests.
#
foreach {name value} $argv {
switch -exact -- $name {
-baseDirectory {
#
# NOTE: Use the base directory from the command line verbatim. This
# will be picked up and used later in this procedure to help
# locate the package binaries as well as the master Eagle test
# suite file (e.g. "all.eagle").
#
set [string trimleft $name -] $value
#
# NOTE: Show that we set this option (in the log).
#
if {$verbose} then {
|
|
|
|
|
|
|
|
|
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
|
variable useRelativePath
variable verbose
#
# HACK: Scan for and then process the "-baseDirectory", "-configuration",
# "-suffix", "-preTest", and "-postTest" command line arguments. The
# first one may be used to override the base directory that is used
# when attempting to locate the package binaries and the Eagle test
# suite entry point file (e.g. "all.eagle"). The next two are needed
# by the "helper.tcl" script to locate the proper Eagle assembly to
# load and use for the tests. The final two may be needed to support
# various tests.
#
foreach {name value} $argv {
switch -exact -- $name {
-baseDirectory {
#
# NOTE: Use the base directory from the command line verbatim. This
# will be picked up and used later in this procedure to help
# locate the package binaries as well as the Eagle test suite
# entry point file (e.g. "all.eagle").
#
set [string trimleft $name -] $value
#
# NOTE: Show that we set this option (in the log).
#
if {$verbose} then {
|