1311
1312
1313
1314
1315
1316
1317
1318
1319
1320
1321
1322
1323
1324
1325
1326
1327
1328
|
#
if {![isEagle]} then {
error "already running in Tcl language"
}
#
# NOTE: Load a native Tcl library. It absolutely must be signed with a
# valid Authenticode signature.
#
tcl load -findflags +TrustedOnly -loadflags +SetDllDirectory
# tcl load -findflags =Typical -loadflags +SetDllDirectory
#
# NOTE: Verify that the native Tcl library appears to have beed loaded
# into this interpreter.
#
tclMustBeReady
}
|
|
>
|
<
|
1311
1312
1313
1314
1315
1316
1317
1318
1319
1320
1321
1322
1323
1324
1325
1326
1327
1328
|
#
if {![isEagle]} then {
error "already running in Tcl language"
}
#
# NOTE: Load a native Tcl library. It absolutely must be signed with a
# valid Authenticode signature. Other than that, it should also
# be easily loadable.
#
tcl load -findflags +TrustedOnly -robustify
#
# NOTE: Verify that the native Tcl library appears to have beed loaded
# into this interpreter.
#
tclMustBeReady
}
|
2282
2283
2284
2285
2286
2287
2288
2289
2290
2291
2292
2293
2294
2295
2296
2297
|
#
variable autoLoadTcl; # DEFAULT: <automatic>
if {![info exists autoLoadTcl]} then {
#
# TODO: Better automatic detection of native Tcl installs here?
#
if {[isEagle] && \
[catch {tcl select -flags +TrustedOnly -architecture}] == 0} then {
set autoLoadTcl true
} else {
set autoLoadTcl false
}
}
#
|
|
|
>
|
2282
2283
2284
2285
2286
2287
2288
2289
2290
2291
2292
2293
2294
2295
2296
2297
2298
|
#
variable autoLoadTcl; # DEFAULT: <automatic>
if {![info exists autoLoadTcl]} then {
#
# TODO: Better automatic detection of native Tcl installs here?
#
if {[isEagle] && [catch {
tcl select -flags +TrustedOnly -robustify -architecture
}] == 0} then {
set autoLoadTcl true
} else {
set autoLoadTcl false
}
}
#
|