55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
}
#
# 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.
#
|
|
>
|
>
|
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
80
|
}
#
# 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. For the purposes of this procedure,
# the ".NET 5" and later runtimes are still treated as .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 \
|| [string compare -nocase ".net" $::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.
#
|