Index: client/1.0/neutral/common.tcl ================================================================== --- client/1.0/neutral/common.tcl +++ client/1.0/neutral/common.tcl @@ -43,10 +43,11 @@ # This procedure accepts an any number of arguments. The arguments # are appended into one big string, verbatim. The resulting string # is returned. Normally, this procedure is used to avoid undesired # string interpolation operations. # + # proc appendArgs { args } { eval append result $args } } @@ -57,10 +58,11 @@ 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. # + # proc makeBinaryChannel { channel } { fconfigure $channel -encoding binary -translation binary; # BINARY DATA } } @@ -73,10 +75,11 @@ # NOTE: This procedure was stolen from the "file1.eagle" script. This # procedure writes all data to the specified binary file and returns # an empty string. Previous data contained in the file, if any, is # lost. # + # proc writeFile { fileName data } { set channel [open $fileName {WRONLY CREAT TRUNC}] makeBinaryChannel $channel puts -nonewline $channel $data close $channel @@ -208,10 +211,11 @@ # NOTE: This procedure was stolen from the "getEagle.tcl" script. It is # designed to process a single HTTP request, including any HTTP # 3XX redirects (up to the specified limit), and return the raw # HTTP response data. It may raise any number of script errors. # + # proc getFileViaHttp { uri redirectLimit channel quiet args } { # # NOTE: This global variable is used to check the running version of # Tcl. # 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 -iQIcBAABCAAGBQJZUyBQAAoJEFAslq9JXcLZ4I8QAJpIEuvMdWeYrQlXutuLmLmW -DmhQUs7XvpCDkXm2ldyU+6X7LvH3M/QzqcvAfbBvRYhLtLqsD0Vo8g9km7PNkz8w -pBaVtI0af7C3Fa92vfJT9qnxVrHmhNIS4kQq7FWdEh/HOajsP9umXbD2dr/sLqfm -UZCKOi7kCS2JdbPTLw2AC3Sb5x/Jl5LTptjxjCrTj+fRyHTzg6xIxGgrN0/sdq7S -ATH14YuGfI4R11sTqWpoMI31wPn1XNkrXTbDSrgfAIlCGApauElWIjfGTRrsFZpA -buzgpwWwcWcRvE0AzeLONW6HVryXgKt6caAVQG2j/KnTCPeQ5Xo/g5yeEl+sU+96 -MzGZweSHIG7N8BpZlqH1BQo6GNu+pQo90pPJlR0s2XT5NTIYPORKQBbAJs9+BWf7 -SdJ7Fbzuh9sgN2ZbcHFo5ScHMPZJGrjbX2pSsuqVIZ+PCSHRp5NYzDZNMTwK/jFP -/Ln2taIKHwDpZYA2pH0zHMgyez8H9/guNMUmaRfZAF0A+gVfLNMTvUDE77ebeVQ1 -uSMUxduqI9iwEwMC/bCZ0r6JRzC2AttGmxPgAdC4D/YgZhGGQs2a0cuyyJyESuYK -KmGR/uKs2pkeGGUPE4TF5rzchEL0aoZckzvqx5+vfFzefarDN9zs8ruEj3pLwquv -YaWsC2SK6589k/87lFY+ -=9Nm0 +iQIcBAABCAAGBQJdU5LuAAoJEFAslq9JXcLZCNIP+gOmRXU14f9Lna39qxq/96TF +K18uxKxDRnrRwA4ni5FW691zXQQdHz+DQ0I1sPGI23fGtbbDOc7jbLHqm0JMN3Td +MxBmkWflbidKm6i7tgCfl0itdsdabrJHR6i+vZyEAvhXaWiBZwpj5quaFQ6QT5s1 +ncbbQeUeAj6HbTcTkPH3h9Yyl8c3KYjXNhRtDbFS1kawnoP9e8inQ782W5y52UHe +Ma39nwHwh4Jj7EpCn4qGLz2wr/VU5kBZr8/Tceishk+qmyNa3/PspqSLtbpAsOdF +gAR0cFvmNk3dQovoUnHPKcszYYNbqkj+YjZ7v0+hThHOawJaaRSkqXQ4pI3Plyp+ +vfVeygadOQ4X+kjzrMAYh7GbLOb8LoFcOPsizySiARY1H0CqObn9hwljZwHo2YIZ +FZsn2ph3QXW7soKINX0teKtAqAU+J/akPSa5asT1cy0Up9b79VTdFUAsKLdGYWa3 +7jQdZ9XM1Lt8K6xY3okDYp66UBXAulUWvhe5f004Qk7t9DDuk0sIlqnKnsBMl1Tc +gb2zYQc7t5/xJbgh1JVUtoKJPQzNfsosvdjZBwl+5g+raO+Q4bd1aI+QT8aDwcXo +tHE1xH3TIZOtMe+T4y0lNJGAAUuuBDZmfEOU9dIpVTq9poTy17d12gtl7NICg1I3 +AZLZ88ZqlecpHvtelS+T +=LAil -----END PGP SIGNATURE-----