58
59
60
61
62
63
64
65
66
67
68
|
58
59
60
61
62
63
64
65
66
67
68
|
-
+
|
# administrator rights on this machine. Currently, this only works
# in Eagle; however, it may work from native Tcl in the future.
#
proc isAdministrator {} {
return [expr {[info exists ::eagle_platform(administrator)] && \
$::eagle_platform(administrator)}]
[string is true -strict $::eagle_platform(administrator)]}]
}
#
# NOTE: This is the procedure that detects whether or not we are running
# on Windows (otherwise, it is assumed that we are running on some
|
86
87
88
89
90
91
92
93
94
95
96
|
86
87
88
89
90
91
92
93
94
95
96
97
|
-
+
+
|
#
proc isInteractive {} {
#
# TODO: Is something more complex required here?
#
return [expr {[info exists ::tcl_interactive] && $::tcl_interactive}]
return [expr {[info exists ::tcl_interactive] && \
[string is true -strict $::tcl_interactive]}]
}
#
# NOTE: This procedure adds the specified directory to the PATH. It is
# designed to work on the various flavors of Windows and Unix.
|