Index: Externals/Eagle/bin/Eagle.dll ================================================================== --- Externals/Eagle/bin/Eagle.dll +++ Externals/Eagle/bin/Eagle.dll cannot compute difference between binary files Index: Externals/Eagle/bin/EagleShell.exe ================================================================== --- Externals/Eagle/bin/EagleShell.exe +++ Externals/Eagle/bin/EagleShell.exe cannot compute difference between binary files Index: Externals/Eagle/bin/EagleShell32.exe ================================================================== --- Externals/Eagle/bin/EagleShell32.exe +++ Externals/Eagle/bin/EagleShell32.exe cannot compute difference between binary files Index: Externals/Eagle/bin/x64/Spilornis.dll ================================================================== --- Externals/Eagle/bin/x64/Spilornis.dll +++ Externals/Eagle/bin/x64/Spilornis.dll cannot compute difference between binary files Index: Externals/Eagle/bin/x86/Spilornis.dll ================================================================== --- Externals/Eagle/bin/x86/Spilornis.dll +++ Externals/Eagle/bin/x86/Spilornis.dll cannot compute difference between binary files Index: Externals/Eagle/lib/Eagle1.0/platform.eagle ================================================================== --- Externals/Eagle/lib/Eagle1.0/platform.eagle +++ Externals/Eagle/lib/Eagle1.0/platform.eagle @@ -58,11 +58,11 @@ # 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)}] + [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 @@ -86,11 +86,12 @@ # proc isInteractive {} { # # TODO: Is something more complex required here? # - return [expr {[info exists ::tcl_interactive] && $::tcl_interactive}] + 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. Index: Externals/Eagle/lib/Eagle1.0/test.eagle ================================================================== --- Externals/Eagle/lib/Eagle1.0/test.eagle +++ Externals/Eagle/lib/Eagle1.0/test.eagle @@ -94,11 +94,11 @@ } } proc getSoftwareRegistryKey { wow64 } { if {$wow64 && [info exists ::tcl_platform(machine)] && [lsearch -exact \ - [list ia64 amd64] $::tcl_platform(machine)] != -1} then { + [list ia64 amd64 arm64] $::tcl_platform(machine)] != -1} then { # # NOTE: Return the WoW64 registry key name because we are running on a # 64-bit operating system and the caller specifically requested # the WoW64 registry key name. # Index: Externals/Eagle/lib/Test1.0/constraints.eagle ================================================================== --- Externals/Eagle/lib/Test1.0/constraints.eagle +++ Externals/Eagle/lib/Test1.0/constraints.eagle @@ -117,11 +117,11 @@ } } # # NOTE: This procedure was adapted from the one listed on the Tcl Wiki page - # at "http://wiki.tcl.tk/43". It is only intended to be used on very + # at "https://wiki.tcl.tk/43". It is only intended to be used on very # small lists because of its heavy use of recursion and complexity on # the order of O(N!). # proc lpermute { list } { set length [llength $list] @@ -506,11 +506,11 @@ # BUGBUG: Apparently, the ActiveState tcllib sha1 package may # have a bug that produces the wrong values here. No # attempt is made here to work around any such bug. # For further information, please see: # - # http://core.tcl.tk/tcllib/info/ad20454023 + # https://core.tcl.tk/tcllib/info/ad20454023 # set sha1 [sha1::sha1 -hex -filename $fileName] } tputs $channel [appendArgs \