Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Update Eagle in externals to the beta 29 release. Fix typo in the versioning test. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
03d7d2a6c12b28116156755dc9265c41 |
User & Date: | mistachkin 2014-03-02 12:30:15.383 |
Context
2014-03-02
| ||
12:33 | Update 32-bit only Eagle shell executable. check-in: d6cb0e33bf user: mistachkin tags: trunk | |
12:30 | Update Eagle in externals to the beta 29 release. Fix typo in the versioning test. check-in: 03d7d2a6c1 user: mistachkin tags: trunk | |
2014-02-28
| ||
01:32 | Add warning message when a possibly malformed UNC file name is detected when attempting to open a database connection. Pursuant to [283344397b]. check-in: c632d5743c user: mistachkin tags: trunk | |
Changes
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/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/test.eagle.
︙ | ︙ | |||
1304 1305 1306 1307 1308 1309 1310 1311 1312 1313 1314 1315 1316 1317 1318 1319 1320 | upvar 1 $varName array set array(time,$index) [clock seconds] set array(afters,$index) [llength [after info]] set array(variables,$index) [llength [info globals]] set array(commands,$index) [llength [info commands]] set array(procedures,$index) [llength [info procs]] set array(files,$index) [llength [getFiles $::test_path *]] set array(temporaryFiles,$index) [llength [getFiles [getTemporaryPath] *]] set array(channels,$index) [llength [file channels]] set array(aliases,$index) [llength [interp aliases]] set array(interpreters,$index) [llength [interp slaves]] set array(environment,$index) [llength [array names env]] if {[isEagle]} then { set array(scopes,$index) [llength [scope list]] set array(objects,$index) [llength [info objects]] | > > > | | | | < < | | | | | | | | | > | | | 1304 1305 1306 1307 1308 1309 1310 1311 1312 1313 1314 1315 1316 1317 1318 1319 1320 1321 1322 1323 1324 1325 1326 1327 1328 1329 1330 1331 1332 1333 1334 1335 1336 1337 1338 1339 1340 1341 1342 1343 1344 1345 1346 1347 1348 1349 1350 1351 1352 1353 1354 1355 1356 1357 1358 1359 1360 1361 1362 1363 1364 1365 1366 1367 1368 1369 1370 1371 1372 1373 1374 1375 1376 1377 1378 1379 | upvar 1 $varName array set array(time,$index) [clock seconds] set array(afters,$index) [llength [after info]] set array(variables,$index) [llength [info globals]] set array(commands,$index) [llength [info commands]] set array(procedures,$index) [llength [info procs]] set array(namespaces,$index) [llength [namespace children ::]] set array(files,$index) [llength [getFiles $::test_path *]] set array(temporaryFiles,$index) [llength [getFiles [getTemporaryPath] *]] set array(channels,$index) [llength [file channels]] set array(aliases,$index) [llength [interp aliases]] set array(interpreters,$index) [llength [interp slaves]] set array(environment,$index) [llength [array names env]] if {[isEagle]} then { set array(scopes,$index) [llength [scope list]] set array(assemblies,$index) [llength [object assemblies]] set array(processes,$index) [llength [getProcesses ""]] set array(objects,$index) [llength [info objects]] set array(objectCallbacks,$index) [llength [info callbacks]] set array(objectTypes,$index) [llength [object types]] set array(objectInterfaces,$index) [llength [object interfaces]] set array(objectNamespaces,$index) [llength [object namespaces]] # # NOTE: Support for some of all of these entity types may not be # present in the interpreter, initialize all these counts # to zero and then try to query each one individually below # wrapped in a catch. # set array(connections,$index) 0 set array(transactions,$index) 0 set array(modules,$index) 0 set array(delegates,$index) 0 set array(tcl,$index) 0 set array(tclInterps,$index) 0 set array(tclThreads,$index) 0 set array(tclCommands,$index) 0 catch {set array(connections,$index) [llength [info connections]]} catch {set array(transactions,$index) [llength [info transactions]]} catch {set array(modules,$index) [llength [info modules]]} catch {set array(delegates,$index) [llength [info delegates]]} if {[llength [info commands tcl]] > 0} then { set array(tcl,$index) [tcl ready] } catch {set array(tclInterps,$index) [llength [tcl interps]]} catch {set array(tclThreads,$index) [llength [tcl threads]]} catch {set array(tclCommands,$index) [llength [tcl command list]]} } } proc reportTestStatistics { channel fileName statsVarName filesVarName } { set statistics [list afters variables commands procedures namespaces \ files temporaryFiles channels aliases interpreters environment] if {[isEagle]} then { # # TODO: For now, tracking "leaked" assemblies is meaningless because # the .NET Framework has no way to unload them without tearing # down the entire application domain. # lappend statistics scopes processes objects objectCallbacks \ objectTypes objectInterfaces objectNamespaces connections \ transactions modules delegates tcl tclInterps tclThreads \ tclCommands; # assemblies } # # NOTE: Show what leaked, if anything. # set count 0; upvar 1 $statsVarName array |
︙ | ︙ | |||
2218 2219 2220 2221 2222 2223 2224 2225 2226 2227 2228 2229 | proc ::tcltest::cleanupTests { args } {} if {!$quiet} then { tqputs [getTestChannelOrDefault] \ "---- added \"::tcltest::cleanupTests\" procedure\n" } } } else { # # NOTE: Remove the compatibility shim command aliases that we setup # earlier. # | > > > > > > > > > > > > > > > > > | > > > > > > | < | | | 2220 2221 2222 2223 2224 2225 2226 2227 2228 2229 2230 2231 2232 2233 2234 2235 2236 2237 2238 2239 2240 2241 2242 2243 2244 2245 2246 2247 2248 2249 2250 2251 2252 2253 2254 2255 2256 2257 2258 2259 2260 2261 2262 2263 2264 2265 2266 2267 2268 2269 2270 2271 2272 2273 2274 2275 2276 2277 2278 2279 2280 2281 | proc ::tcltest::cleanupTests { args } {} if {!$quiet} then { tqputs [getTestChannelOrDefault] \ "---- added \"::tcltest::cleanupTests\" procedure\n" } } # # NOTE: This is needed by some tests in the Tcl test suite. Make # sure this command does not already exist prior to adding it. # if {[llength [info commands \ ::tcltest::loadTestedCommands]] == 0} then { proc ::tcltest::loadTestedCommands { args } {} if {!$quiet} then { tqputs [getTestChannelOrDefault] \ "---- added \"::tcltest::loadTestedCommands\" procedure\n" } } } else { # # NOTE: Remove the compatibility shim command aliases that we setup # earlier. # if {[llength [info commands \ ::tcltest::loadTestedCommands]] > 0} then { rename ::tcltest::loadTestedCommands "" if {!$quiet} then { tqputs $::test_channel \ "---- removed \"::tcltest::loadTestedCommands\" procedure\n" } } if {[llength [info commands ::tcltest::cleanupTests]] > 0} then { rename ::tcltest::cleanupTests "" if {!$quiet} then { tqputs $::test_channel \ "---- removed \"::tcltest::cleanupTests\" procedure\n" } } if {[llength [interp aliases ::tcltest::testConstraint]] > 0} then { interp alias {} ::tcltest::testConstraint {} {} if {!$quiet} then { tqputs $::test_channel \ "---- removed \"::tcltest::testConstraint\" alias\n" } } if {[llength [interp aliases testConstraint]] > 0} then { interp alias {} testConstraint {} {} if {!$quiet} then { tqputs $::test_channel \ "---- removed \"testConstraint\" alias\n" } } |
︙ | ︙ |
Changes to Externals/Eagle/lib/Test1.0/epilogue.eagle.
︙ | ︙ | |||
27 28 29 30 31 32 33 | if {[isEagle]} then { # # NOTE: Check the name of the current call frame against the one # that should be used for evaluating this script file. # if {[object invoke -flags +NonPublic \ Interpreter.GetActive.CurrentFrame Name] ne \ | | | 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 | if {[isEagle]} then { # # NOTE: Check the name of the current call frame against the one # that should be used for evaluating this script file. # if {[object invoke -flags +NonPublic \ Interpreter.GetActive.CurrentFrame Name] ne \ [list source [file normalize [info script]]]} then { unset -nocomplain test_suite_running error "cannot run, current frame is not for this script" } } # # NOTE: Make sure all the variables used by this epilogue are unset. |
︙ | ︙ |
Changes to Externals/Eagle/lib/Test1.0/prologue.eagle.
︙ | ︙ | |||
201 202 203 204 205 206 207 | if {[isEagle]} then { # # NOTE: Check the name of the current call frame against the one # that should be used for evaluating this script file. # if {[object invoke -flags +NonPublic \ Interpreter.GetActive.CurrentFrame Name] ne \ | | | 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 | if {[isEagle]} then { # # NOTE: Check the name of the current call frame against the one # that should be used for evaluating this script file. # if {[object invoke -flags +NonPublic \ Interpreter.GetActive.CurrentFrame Name] ne \ [list source [file normalize [info script]]]} then { unset -nocomplain test_suite_running error "cannot run, current frame is not for this script" } } ############################################################################# |
︙ | ︙ |
Changes to Tests/version.eagle.
︙ | ︙ | |||
291 292 293 294 295 296 297 | "\" "] \ [appendArgs " targetFramework=\"net40\".*?\" version=\"" $version(nuget) \ "\" "] \ [appendArgs " targetFramework=\"net45\".*?\" version=\"" $version(nuget) \ "\" "] \ [appendArgs " targetFramework=\"net451\".*?\" version=\"" $version(nuget) \ "\" "] \ | < < | 291 292 293 294 295 296 297 298 299 300 301 302 303 304 | "\" "] \ [appendArgs " targetFramework=\"net40\".*?\" version=\"" $version(nuget) \ "\" "] \ [appendArgs " targetFramework=\"net45\".*?\" version=\"" $version(nuget) \ "\" "] \ [appendArgs " targetFramework=\"net451\".*?\" version=\"" $version(nuget) \ "\" "] \ [appendArgs <version> [string map [list . \\.] $version(nuget)] \ </version>] \ [appendArgs <version> [string map [list . \\.] $version(nuget)] \ </version>] \ [appendArgs <version> [string map [list . \\.] $version(nuget)] \ </version>] \ [appendArgs AssemblyVersion\\(\" [string map [list . \\.] \ |
︙ | ︙ |