56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
#
# NOTE: This procedure returns non-zero if the logged on user has full
# 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)}]
}
#
# 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
# flavor of Unix). This procedure must function correctly in both
# Tcl and Eagle and must return non-zero only when on Windows.
|
|
|
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
#
# NOTE: This procedure returns non-zero if the logged on user has full
# 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)] && \
[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
# flavor of Unix). This procedure must function correctly in both
# Tcl and Eagle and must return non-zero only when on Windows.
|
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
# is currently an interactive user that can respond to prompts and
# other requests for input.
#
proc isInteractive {} {
#
# TODO: Is something more complex required here?
#
return [expr {[info exists ::tcl_interactive] && $::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.
#
proc addToPath { dir } {
|
|
>
|
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
# is currently an interactive user that can respond to prompts and
# other requests for input.
#
proc isInteractive {} {
#
# TODO: Is something more complex required here?
#
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.
#
proc addToPath { dir } {
|