20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
# namespace if this script actually ends up being evaluated in Tcl.
#
namespace eval ::Eagle {
#
# NOTE: This is the procedure that detects whether or not we are running
# in Eagle (otherwise, it is assumed that we are running in vanilla
# Tcl). This procedure must work correctly in both Tcl and Eagle
# and must return non-zero only when running in Eagle.
#
proc isEagle {} {
#
# NOTE: Nothing too fancy or expensive should be done here. In theory,
# use of this procedure should be rare; however, in practice, this
# procedure is actually used quite a bit (e.g. by the test suite).
#
|
|
>
|
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
# namespace if this script actually ends up being evaluated in Tcl.
#
namespace eval ::Eagle {
#
# NOTE: This is the procedure that detects whether or not we are running
# in Eagle (otherwise, it is assumed that we are running in vanilla
# Tcl). This procedure must work correctly in both Tcl and Eagle
# and must return non-zero only when running in Eagle. The same
# procedure is also defined in the "init.eagle" file.
#
proc isEagle {} {
#
# NOTE: Nothing too fancy or expensive should be done here. In theory,
# use of this procedure should be rare; however, in practice, this
# procedure is actually used quite a bit (e.g. by the test suite).
#
|