Index: client/1.0/neutral/common.tcl ================================================================== --- client/1.0/neutral/common.tcl +++ client/1.0/neutral/common.tcl @@ -12,23 +12,32 @@ # # RCS: @(#) $Id: $ # ############################################################################### +# +# NOTE: This script file uses features that are only present in Tcl 8.4 or +# higher (e.g. the "eq" operator for [expr], etc). +# if {![package vsatisfies [package provide Tcl] 8.4]} then { error "need Tcl 8.4 or higher" } +# +# NOTE: This script file uses features that are not available in Eagle (e.g. +# the "http" and "tls" packages). +# if {[catch {package present Eagle}] == 0} then { error "need native Tcl" } ############################################################################### namespace eval ::Eagle::Tools::Common { # - # NOTE: *HACK* Skip defining this procedure if it is already defined. + # NOTE: *HACK* Skip defining this procedure if it is already defined in the + # global namespace. # if {[llength [info commands ::appendArgs]] == 0} then { # # NOTE: This procedure was stolen from the "auxiliary.eagle" script. # This procedure accepts an any number of arguments. The arguments @@ -40,11 +49,12 @@ eval append result $args } } # - # NOTE: *HACK* Skip defining this procedure if it is already defined. + # NOTE: *HACK* Skip defining this procedure if it is already defined in the + # global namespace. # if {[llength [info commands ::makeBinaryChannel]] == 0} then { # # NOTE: This procedure was stolen from the "file1.eagle" script. This # procedure reconfigures the specified channel to full binary mode. @@ -53,11 +63,12 @@ fconfigure $channel -encoding binary -translation binary; # BINARY DATA } } # - # NOTE: *HACK* Skip defining this procedure if it is already defined. + # NOTE: *HACK* Skip defining this procedure if it is already defined in the + # global namespace. # if {[llength [info commands ::writeFile]] == 0} then { # # NOTE: This procedure was stolen from the "file1.eagle" script. This # procedure writes all data to the specified binary file and returns Index: client/1.0/neutral/common.tcl.asc ================================================================== --- client/1.0/neutral/common.tcl.asc +++ client/1.0/neutral/common.tcl.asc @@ -1,18 +1,18 @@ -----BEGIN PGP SIGNATURE----- Version: GnuPG v2 Comment: Eagle Package Repository -iQIcBAABCAAGBQJYmodbAAoJEFAslq9JXcLZcd4QALETnIRwfNC8+PS0FeHsJCM4 -X2+NlGn/BSaAm/c+cOuiTIapynUxB4EFXgz5aAgQgjWCOr8z19Zo+WPNXY/KUMMd -njuSK3Rx7dJqKpzLjEc2fYkCh6BeBfN//9J/S9uRfn4QEJe8ZG4QTIHK4+1fZPSJ -7aUuDW8H9HiMCASK+bv4/pzmuJjtZkL57Qv8nuSVCxpwZw8+by8mZw5pER3IP0x8 -tP8HhF/qtSqJwngBLlsLMtAWdlZ/XPF5Sa5DUywCRuBmb0p4GBP8XqPIhxfnYm28 -uhu8sTiaSmWJaOBQr55ASDoNxsblXCS/Gb2t06uf+AX/2sZyQswojIjOHc5agLBp -+rMX9R52+ifbDFQmcNOEdaEBevsZ6Mtqq9v9usAkCv/QYONOqq1Ng+wEpZ2NWc8O -ZOWTWd/0Aj/Hb++4ZE8WJ/cviX6tMyZsYW1lH5DA4zg/zIbIL+h20aE4xqRTIFkr -1KO1XJVNB+eGo6ciuXHs4SgmvFaxLBmUIGbFLLDxX8VzGQ3k93JQ4xPrC6cWPBxb -cBx5BywVPwT3z+Vbzy58sDpjIfn4arbj7g3rOL27jDkKWY4pHCMhXJ54mMmWmshq -F15qlIWevXAhfaHTTLaKlSrz8jdc1Hll58YtSD0xq0+gZsk5OZ3sgC6yYY6yBkhh -t50qvQGhkxxYuDssugMm -=jhWs +iQIcBAABCAAGBQJYnPcNAAoJEFAslq9JXcLZtuwP/jMzVMWZ9pEjPdPtVdQqeqX5 +eZkLxFRMgGhuoEeOcNTTmdHfhTKPiiUArfXu7GShre4hDBVvwPhkIPJJQvwFATlL +DO0JVY1MLlZuKHWTTept7679mUCjk67M+QCDgFE0XpFnVYlaiIgHHFiE+PMc6WTd +pimdRC0QmCpiv1+ufQVpRgvo30w+rrAmEFhtu96/wtfetPVuCLLhAVgqTiYzI9+U +1u3TCzJub3Kt0epo4NIO0figMYnmjXGfpTOv+Yyf0Y63BCIT8YFbF/hKm+qycf/U +l6Zy8xYi7q7zd3B+tNRwUVqxFOAGfjsJKDzBQAXB/xGHKNtn0ObgCmyeZw8/XsX+ +QYQszY6zxbQujxousJtyBSzashPfInsju+RjqLuCnnda5WrJWKPQT6mgeAukSc9F +nznq8hzz51SKHfgYKwF7yCNdjzlPCIZuiA3/b2IMBnk9Z3Xahs/Z79o4t5fOhZGC +kJddOqfYDEJLlFlJpYFykdqLuqSITxfA1MG68l108I3K61ISq1K1qgbEDAGvkGV9 +Se6s6nzLGi7XCxWEbrZ/ImqmoY3f/y0XJTcjwYo+GN4kweZ5GF4dmWvxKB/ZqZef +wBKpgN0BNw3fZVpdndBsR3PyDoQF3jHTeFadBxs+kTcjTyeJbdodDR18qM5qVSmi +8oSkeAorMFsoU0kKZb85 +=CAq0 -----END PGP SIGNATURE-----