Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Changes to Externals/Eagle/bin/Eagle.dll.

cannot compute difference between binary files

Changes to Externals/Eagle/bin/EagleShell.exe.

cannot compute difference between binary files

Changes to Externals/Eagle/bin/EagleShell32.exe.

cannot compute difference between binary files

Changes to Externals/Eagle/bin/x64/Spilornis.dll.

cannot compute difference between binary files

Changes to Externals/Eagle/bin/x86/Spilornis.dll.

cannot compute difference between binary files

Changes to Externals/Eagle/lib/Eagle1.0/platform.eagle.

    56     56     #
    57     57     # NOTE: This procedure returns non-zero if the logged on user has full
    58     58     #       administrator rights on this machine.  Currently, this only works
    59     59     #       in Eagle; however, it may work from native Tcl in the future.
    60     60     #
    61     61     proc isAdministrator {} {
    62     62       return [expr {[info exists ::eagle_platform(administrator)] && \
    63         -        $::eagle_platform(administrator)}]
           63  +        [string is true -strict $::eagle_platform(administrator)]}]
    64     64     }
    65     65   
    66     66     #
    67     67     # NOTE: This is the procedure that detects whether or not we are running
    68     68     #       on Windows (otherwise, it is assumed that we are running on some
    69     69     #       flavor of Unix).  This procedure must function correctly in both
    70     70     #       Tcl and Eagle and must return non-zero only when on Windows.
................................................................................
    84     84     #       is currently an interactive user that can respond to prompts and
    85     85     #       other requests for input.
    86     86     #
    87     87     proc isInteractive {} {
    88     88       #
    89     89       # TODO: Is something more complex required here?
    90     90       #
    91         -    return [expr {[info exists ::tcl_interactive] && $::tcl_interactive}]
           91  +    return [expr {[info exists ::tcl_interactive] && \
           92  +        [string is true -strict $::tcl_interactive]}]
    92     93     }
    93     94   
    94     95     #
    95     96     # NOTE: This procedure adds the specified directory to the PATH.  It is
    96     97     #       designed to work on the various flavors of Windows and Unix.
    97     98     #
    98     99     proc addToPath { dir } {

Changes to Externals/Eagle/lib/Eagle1.0/test.eagle.

    92     92           appendSharedLogFile $fileName $string
    93     93         }
    94     94       }
    95     95     }
    96     96   
    97     97     proc getSoftwareRegistryKey { wow64 } {
    98     98       if {$wow64 && [info exists ::tcl_platform(machine)] && [lsearch -exact \
    99         -        [list ia64 amd64] $::tcl_platform(machine)] != -1} then {
           99  +        [list ia64 amd64 arm64] $::tcl_platform(machine)] != -1} then {
   100    100         #
   101    101         # NOTE: Return the WoW64 registry key name because we are running on a
   102    102         #       64-bit operating system and the caller specifically requested
   103    103         #       the WoW64 registry key name.
   104    104         #
   105    105         return Software\\Wow6432Node
   106    106       } else {

Changes to Externals/Eagle/lib/Test1.0/constraints.eagle.

   115    115           addConstraint $constraint
   116    116         }
   117    117       }
   118    118     }
   119    119   
   120    120     #
   121    121     # NOTE: This procedure was adapted from the one listed on the Tcl Wiki page
   122         -  #       at "http://wiki.tcl.tk/43".  It is only intended to be used on very
          122  +  #       at "https://wiki.tcl.tk/43".  It is only intended to be used on very
   123    123     #       small lists because of its heavy use of recursion and complexity on
   124    124     #       the order of O(N!).
   125    125     #
   126    126     proc lpermute { list } {
   127    127       set length [llength $list]
   128    128       if {$length < 2} {
   129    129         return [list $list]
................................................................................
   504    504             } else {
   505    505               #
   506    506               # BUGBUG: Apparently, the ActiveState tcllib sha1 package may
   507    507               #         have a bug that produces the wrong values here.  No
   508    508               #         attempt is made here to work around any such bug.
   509    509               #         For further information, please see:
   510    510               #
   511         -            #         http://core.tcl.tk/tcllib/info/ad20454023
          511  +            #         https://core.tcl.tk/tcllib/info/ad20454023
   512    512               #
   513    513               set sha1 [sha1::sha1 -hex -filename $fileName]
   514    514             }
   515    515   
   516    516             tputs $channel [appendArgs \
   517    517                 "---- file \"" $fileName "\"... sha1 (" $sha1 ")\n"]
   518    518           }