35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
|
#
return [expr {[info exists ::tcl_platform(engine)] && \
[string compare -nocase eagle $::tcl_platform(engine)] == 0}]
}
#
# NOTE: This is the procedure that detects whether or not we are running
# in Eagle on Mono (otherwise, we are running in Tcl or in Eagle on
# the .NET Framework). This procedure must function correctly in
# both Tcl and Eagle and must return non-zero only when running in
# Eagle on Mono.
# in Eagle on Mono (i.e. otherwise, we are running in Tcl or in Eagle
# on the .NET Framework or .NET Core). This procedure must function
# correctly in both Tcl and Eagle and must return non-zero only when
# running in Eagle on Mono.
#
proc isMono {} {
#
# 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).
#
return [expr {[info exists ::eagle_platform(runtime)] && \
[string compare -nocase mono $::eagle_platform(runtime)] == 0}]
}
#
# NOTE: This is the procedure that detects whether or not we are running
# in Eagle on .NET Core (i.e. otherwise, we are running in Tcl or in
# Eagle on the .NET Framework or Mono). This procedure must function
# correctly in both Tcl and Eagle and must return non-zero only when
# running in Eagle on .NET Core.
#
proc isDotNetCore {} {
#
# 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).
#
return [expr {[info exists ::eagle_platform(runtime)] && \
[string compare -nocase ".net core" $::eagle_platform(runtime)] == 0}]
}
#
# 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 {} {
|