Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Update Eagle in externals to the pending beta 29 release. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
c0de75b66ee1e5857d8b0c6b17031376 |
| User & Date: | mistachkin 2013-12-18 05:33:25 |
Context
|
2013-12-18
| ||
| 08:01 | Prefer the new -anyInitialize argument over -preInitialize when using the Eagle shell, where applicable. check-in: d0f59a690b user: mistachkin tags: trunk | |
| 05:33 | Update Eagle in externals to the pending beta 29 release. check-in: c0de75b66e user: mistachkin tags: trunk | |
|
2013-12-11
| ||
| 07:54 | Remove the now unused SQLiteConvert.ColumnToType method. Add TraceWarning connection flag to enable tracing of type mapping failures and disable tracing of them by default, pursuant to [6d45c782e4]. Update internal error message list to include SQLITE_NOTICE and SQLITE_WARNING. Update internal SQLiteConfigOpsEnum enumeration to include recently added values in the SQLite core library. check-in: 16f09dbc53 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/init.eagle.
1431 1431 # NOTE: The engine patch level from the line is greater, 1432 1432 # we are out-of-date. Return the result of our 1433 1433 # checking now. 1434 1434 # 1435 1435 if {$checkBuild} then { 1436 1436 return [list [appendArgs \ 1437 1437 "latest build " $patchLevel ", dated " $dateTime \ 1438 - ", is newer than running build " $enginePatchLevel \ 1438 + ", is newer than the running build " $enginePatchLevel \ 1439 1439 ", dated " $engineDateTime] [list $baseUri \ 1440 1440 $patchLevel] [list $notes]] 1441 1441 } 1442 1442 1443 1443 # 1444 1444 # NOTE: The script patch level from the line matches the 1445 1445 # current engine patch level exactly, this script ................................................................................ 1654 1654 } elseif {$checkBuild && $compare < 0} then { 1655 1655 # 1656 1656 # NOTE: The patch level from the line is less, we are more 1657 1657 # up-to-date than the latest version? 1658 1658 # 1659 1659 return [list [appendArgs \ 1660 1660 "running build " $enginePatchLevel ", dated " \ 1661 - $engineDateTime ", is newer than latest build " \ 1661 + $engineDateTime ", is newer than the latest build " \ 1662 1662 $patchLevel ", dated " $dateTime]] 1663 1663 } elseif {$checkBuild} then { 1664 1664 # 1665 1665 # NOTE: The patch levels are equal, we are up-to-date. 1666 1666 # 1667 1667 return [list [appendArgs \ 1668 1668 "running build " $enginePatchLevel ", dated " \ ................................................................................ 1686 1686 return [list [appendArgs \ 1687 1687 "processed " $scriptCount(total) " update scripts: " \ 1688 1688 [array get scriptCount]]] 1689 1689 } else { 1690 1690 return [list "no update scripts were processed"] 1691 1691 } 1692 1692 } else { 1693 - return [list "could not determine if running build is the latest"] 1693 + return [list \ 1694 + "could not determine if running build is the latest build"] 1694 1695 } 1695 1696 } 1696 1697 1697 1698 proc getReturnType { object member } { 1698 1699 if {[string length $object] == 0 || [string length $member] == 0} then { 1699 1700 return "" 1700 1701 }
Added Externals/Eagle/lib/Test1.0/all.eagle.
1 +############################################################################### 2 +# 3 +# all.eagle -- 4 +# 5 +# This file contains a top-level script to run all of the Eagle tests. 6 +# Execute it by invoking "source all.eagle". 7 +# 8 +# Extensible Adaptable Generalized Logic Engine (Eagle) 9 +# Test Suite File 10 +# 11 +# Copyright (c) 2007-2012 by Joe Mistachkin. All rights reserved. 12 +# 13 +# See the file "license.terms" for information on usage and redistribution of 14 +# this file, and for a DISCLAIMER OF ALL WARRANTIES. 15 +# 16 +# RCS: @(#) $Id: $ 17 +# 18 +############################################################################### 19 + 20 +# 21 +# NOTE: *WARNING* This file must be capable of being evaluated in both Tcl and 22 +# Eagle in a completely "clean" interpreter; therefore, no script library 23 +# procedures provided by the Eagle.Library or Eagle.Test packages may be 24 +# used, including [isEagle], until after the test prologue has been 25 +# evaluated (below). Unfortunately, this makes it somewhat impractical 26 +# to evaluate the test prologue using the abstracted [runTestPrologue] 27 +# script library procedure from the Eagle.Test package. Instead, we must 28 +# assume that the test prologue file exists in the same directory as this 29 +# file and evaluate it using [source]. For third-party applications and 30 +# plugins that are Eagle-specific (i.e. they cannot be used in Tcl), the 31 +# following code snippet may be used instead of setting the "test_path" 32 +# variable and then evaluating the "prologue.eagle" file directly: 33 +# 34 +# package require Eagle.Library 35 +# package require Eagle.Test 36 +# 37 +# runTestPrologue 38 +# 39 +# When using the above code snippet, the following code snippet may also 40 +# be used at the very end of the corresponding "all.eagle" file instead 41 +# of evaluating the "epilogue.eagle" file directly: 42 +# 43 +# runTestEpilogue 44 +# 45 +if {![info exists test_path]} then { 46 + set test_path [file normalize [file dirname [info script]]] 47 +} 48 + 49 +source [file join $test_path prologue.eagle] 50 + 51 +set no(prologue.eagle) true 52 +set no(epilogue.eagle) true 53 + 54 +set test_time [time { 55 + runAllTests $test_channel $test_path \ 56 + [getTestFiles [list $test_path] $test_flags(-file) \ 57 + $test_flags(-notFile)] \ 58 + [list [file tail [info script]] *.tcl pkgIndex.eagle \ 59 + constraints.eagle epilogue.eagle prologue.eagle] 60 +}] 61 + 62 +tputs $test_channel [appendArgs "---- all tests completed in " $test_time \n] 63 +unset test_time 64 + 65 +unset no(epilogue.eagle) 66 +unset no(prologue.eagle) 67 + 68 +if {[array size no] == 0} then {unset no} 69 + 70 +source [file join $test_path epilogue.eagle]
Changes to Externals/Eagle/lib/Test1.0/prologue.eagle.
398 398 # 399 399 # NOTE: Set the Tcl shell executable to use for those specialized 400 400 # tests that may require it, if necessary. 401 401 # 402 402 if {![info exists test_tclsh]} then { 403 403 # 404 404 # NOTE: When running in Eagle, more complex logic is required to 405 - # determine the Tcl shell to use for the various tests that 406 - # require it. Also, this same logic is used with Tcl when it 407 - # is not running from an instance of the Tcl shell executable. 405 + # determine the native Tcl shell to use for the various tests 406 + # that require it. Also, this same logic is used with Tcl 407 + # when it is not running from an instance of the Tcl shell 408 + # executable. 408 409 # 409 410 if {[isEagle] || ![string match tclsh* $bin_file]} then { 410 411 if {[info exists test_flags(-tclsh)] && \ 411 412 [string length $test_flags(-tclsh)] > 0} then { 412 413 # 413 - # NOTE: Use the Tcl shell specified via the command line. 414 + # NOTE: Use the native Tcl shell specified via the command line. 414 415 # 415 416 set test_tclsh $test_flags(-tclsh) 416 417 } else { 417 418 if {![info exists no(getTclShellFileName)]} then { 418 419 # 419 - # NOTE: Attempt to automatically select a Tcl shell to use. 420 + # NOTE: Attempt to automatically select the native Tcl shell 421 + # to use. 420 422 # 421 - tputs $test_channel \ 422 - "==== WARNING: attempting automatic Tcl shell selection...\n" 423 + if {![info exists no(warningForTclShell)]} then { 424 + tputs $test_channel \ 425 + "==== WARNING: attempting automatic Tcl shell selection...\n" 426 + } 423 427 424 428 set test_tclsh [getTclShellFileName true] 425 429 } else { 426 430 # 427 431 # NOTE: Skip detection and use the fallback default. 428 432 # 429 433 set test_tclsh tclsh ................................................................................ 438 442 # 439 443 # NOTE: When running in Eagle, check for any non-core plugins loaded into 440 444 # the interpreter and issue warnings if any are found. The warning 441 445 # may be used to explain subsequent test failures due to the extra 442 446 # plugins being loaded (i.e. there are some tests are sensitive to 443 447 # having "unexpected" plugins loaded). 444 448 # 445 - if {[isEagle]} then { 449 + if {[isEagle] && ![info exists no(warningForPlugin)]} then { 446 450 foreach loaded [info loaded] { 447 451 # 448 452 # HACK: This code assumes that all plugins in the "Eagle._Plugins" 449 453 # namespace belong to the Eagle core library itself. 450 454 # 451 455 if {![string match Eagle._Plugins.* [lindex $loaded 1]]} then { 452 456 tputs $test_channel [appendArgs \ ................................................................................ 542 546 [expr {[info exists test_configuration] ? \ 543 547 $test_configuration : "<none>"}] \n] 544 548 545 549 tputs $test_channel [appendArgs "---- test suffix: " \ 546 550 [expr {[info exists test_suffix] ? \ 547 551 $test_suffix : "<none>"}] \n] 548 552 549 - if {[isEagle]} then { 553 + if {[isEagle] && ![info exists no(warningForStrongName)]} then { 550 554 catch {info engine PublicKeyToken} publicKeyToken 551 555 552 556 if {[string length $publicKeyToken] == 0} then { 553 557 # 554 558 # NOTE: The Eagle core library is not strong name signed. This is not an 555 559 # error, per se; however, it may cause some tests to fail and it 556 560 # should be reported to the user and noted in the test suite log ................................................................................ 1398 1402 # 1399 1403 if {![info exists no(testShell)]} then { 1400 1404 # 1401 1405 # NOTE: For test "debug-1.3". 1402 1406 # 1403 1407 checkForObjectMember $test_channel Eagle._Tests.Default \ 1404 1408 *TestShellMainCore* 1409 + } 1405 1410 1411 + # 1412 + # NOTE: Has quiet property testing support been disabled? 1413 + # 1414 + if {![info exists no(testSetQuiet)]} then { 1406 1415 # 1407 1416 # NOTE: For tests "basic-1.36" and "debug-1.3". 1408 1417 # 1409 1418 checkForObjectMember $test_channel Eagle._Tests.Default \ 1410 1419 *TestSetQuiet* 1411 1420 } 1421 + 1422 + # 1423 + # NOTE: Has complaint testing support been disabled? 1424 + # 1425 + if {![info exists no(testSetComplain)]} then { 1426 + # 1427 + # NOTE: This is not currently used by any tests. 1428 + # 1429 + checkForObjectMember $test_channel Eagle._Tests.Default \ 1430 + *TestSetComplain* 1431 + } 1412 1432 1413 1433 # 1414 1434 # NOTE: Has linked variable testing support been disabled? 1415 1435 # 1416 1436 if {![info exists no(testLinkedVariables)]} then { 1417 1437 # 1418 1438 # NOTE: For tests "basic-1.39", "basic-1.40", "basic-1.41",