Diff
Not logged in

Differences From Artifact [435b93f31e]:

To Artifact [9b97cc752a]:


1311
1312
1313
1314
1315
1316
1317
1318


1319
1320

1321
1322
1323
1324
1325
1326
1327
1328
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.
    #       valid Authenticode signature.  Other than that, it should also
    #       be easily loadable.
    #
    tcl load -findflags +TrustedOnly -loadflags +SetDllDirectory
    tcl load -findflags +TrustedOnly -robustify
    # tcl load -findflags =Typical -loadflags +SetDllDirectory

    #
    # 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
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 -architecture}] == 0} then {
      if {[isEagle] && [catch {
        tcl select -flags +TrustedOnly -robustify -architecture
      }] == 0} then {
        set autoLoadTcl true
      } else {
        set autoLoadTcl false
      }
    }

    #