Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Update Eagle in externals to the latest trunk code. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | preRelease |
| Files: | files | file ages | folders |
| SHA1: |
8dc91be7249c5afb364c9409e17acf60 |
| User & Date: | mistachkin 2013-12-23 16:36:51 |
Context
|
2013-12-23
| ||
| 16:46 | Update downloads page to include Visual Studio 2013 and the .NET Framework 4.5.1. check-in: e02876e42d user: mistachkin tags: preRelease | |
| 16:36 | Update Eagle in externals to the latest trunk code. check-in: 8dc91be724 user: mistachkin tags: preRelease | |
| 15:53 | Update help file for 1.0.90.0. check-in: 13c62fc02f user: mistachkin tags: preRelease | |
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.
1860 1861 1862 1863 1864 1865 1866 1867 1868 1869 1870 1871 1872 1873 1874 .... 1899 1900 1901 1902 1903 1904 1905 1906 1907 1908 1909 1910 1911 1912 1913 1914 1915 1916 1917 1918 1919 .... 2538 2539 2540 2541 2542 2543 2544 2545 2546 2547 2548 2549 2550 2551 2552 .... 2606 2607 2608 2609 2610 2611 2612 2613 2614 2615 2616 2617 2618 2619 2620 |
#
# NOTE: Return non-zero if the test suite appears to be running.
#
return [expr {[info exists ::test_suite_running] && \
$::test_suite_running}]
}
proc configureTcltest { constraints imports force } {
if {[isEagle]} then {
#
# HACK: Flag the "test" and "runTest" script library procedures so
# that they use the script location of their caller and not
# their own.
#
# BUGBUG: Even this does not yet fix the script location issues in
................................................................................
#
# NOTE: Configure tcltest for our use (only when it was not loaded).
#
if {!$loaded} then {
::tcltest::configure -verbose bpste
}
#
# NOTE: We need to copy the Eagle test constraints over to Tcl.
#
if {[llength $constraints] > 0} then {
::tcltest::configure -constraints $constraints
}
#
# NOTE: We need the [test] command in the global namespace.
#
if {[llength $imports] > 0} then {
set command [list namespace import]
if {$force} then {
................................................................................
}
}
#
# NOTE: Fake having the tcltest package unless we are prevented.
#
if {![info exists ::no(configureTcltest)]} then {
configureTcltest [list] [list] false
}
###########################################################################
############################# END Eagle ONLY ##############################
###########################################################################
} else {
###########################################################################
................................................................................
}
}
#
# NOTE: Load and configure the tcltest package unless we are prevented.
#
if {![interp issafe] && ![info exists ::no(configureTcltest)]} then {
configureTcltest [list] [list test testConstraint] false
}
#
# NOTE: We need several of our test related commands in the global
# namespace as well.
#
exportAndImportPackageCommands [namespace current] [list \
|
| > > > > > > > > > > > > > > > > > > > > > | | |
1860 1861 1862 1863 1864 1865 1866 1867 1868 1869 1870 1871 1872 1873 1874 .... 1899 1900 1901 1902 1903 1904 1905 1906 1907 1908 1909 1910 1911 1912 1913 1914 1915 1916 1917 1918 1919 1920 1921 1922 1923 1924 1925 1926 1927 1928 1929 1930 1931 1932 1933 1934 1935 1936 1937 1938 1939 1940 .... 2559 2560 2561 2562 2563 2564 2565 2566 2567 2568 2569 2570 2571 2572 2573 .... 2627 2628 2629 2630 2631 2632 2633 2634 2635 2636 2637 2638 2639 2640 2641 |
#
# NOTE: Return non-zero if the test suite appears to be running.
#
return [expr {[info exists ::test_suite_running] && \
$::test_suite_running}]
}
proc configureTcltest { match skip constraints imports force } {
if {[isEagle]} then {
#
# HACK: Flag the "test" and "runTest" script library procedures so
# that they use the script location of their caller and not
# their own.
#
# BUGBUG: Even this does not yet fix the script location issues in
................................................................................
#
# NOTE: Configure tcltest for our use (only when it was not loaded).
#
if {!$loaded} then {
::tcltest::configure -verbose bpste
}
#
# NOTE: We need to copy the Eagle test names to match over to Tcl.
#
if {[llength $match] > 0} then {
::tcltest::configure -match $match
}
#
# NOTE: We need to copy the Eagle test names to skip over to Tcl.
#
if {[llength $skip] > 0} then {
::tcltest::configure -skip $skip
}
#
# NOTE: We need to copy the Eagle test constraints over to Tcl.
#
if {[llength $constraints] > 0} then {
::tcltest::configure -constraints $constraints
}
#
# NOTE: For the benefit of the Eagle test suite, always add the
# pseudo-constraints "fail.false" and "fail.true".
#
::tcltest::testConstraint fail.false 1
::tcltest::testConstraint fail.true 1
#
# NOTE: We need the [test] command in the global namespace.
#
if {[llength $imports] > 0} then {
set command [list namespace import]
if {$force} then {
................................................................................
}
}
#
# NOTE: Fake having the tcltest package unless we are prevented.
#
if {![info exists ::no(configureTcltest)]} then {
configureTcltest [list] [list] [list] [list] false
}
###########################################################################
############################# END Eagle ONLY ##############################
###########################################################################
} else {
###########################################################################
................................................................................
}
}
#
# NOTE: Load and configure the tcltest package unless we are prevented.
#
if {![interp issafe] && ![info exists ::no(configureTcltest)]} then {
configureTcltest [list] [list] [list] [list test testConstraint] false
}
#
# NOTE: We need several of our test related commands in the global
# namespace as well.
#
exportAndImportPackageCommands [namespace current] [list \
|
Changes to Externals/Eagle/lib/Test1.0/prologue.eagle.
721 722 723 724 725 726 727 728 729 730 731 732 733 734 735 .... 1868 1869 1870 1871 1872 1873 1874 1875 1876 1877 1878 1879 1880 1881 1882 .... 1964 1965 1966 1967 1968 1969 1970 1971 1972 1973 1974 1975 1976 1977 |
tputs $test_channel [appendArgs "---- disabled options: " \
[formatList [lsort [array names no]] <none>] \n]
#
# NOTE: Initialize the Eagle test constraints.
#
if {[isEagle]} then {
initializeTests; configureTcltest [list] [list] false
#
# NOTE: If the "no(mono)" variable is set (to anything) then any
# special test suite hacks for Mono will be disabled. This
# does not control or change any hacks for Mono that may
# be present in the library itself.
#
................................................................................
###########################################################################
########################## END Eagle Constraints ##########################
###########################################################################
} else {
#
# NOTE: Make sure that Tcl honors the Eagle test constraints.
#
configureTcltest $test_flags(-constraints) [list] false
#
# HACK: Reset the test counts for tcltest.
#
set ::tcltest::numTests(Total) 0
set ::tcltest::numTests(Skipped) 0
set ::tcltest::numTests(Passed) 0
................................................................................
}
#
# NOTE: Has checking for the extra files needed by various tests been
# disabled?
#
if {![info exists no(checkForFile)]} then {
#
# NOTE: For test "garuda-1.1".
#
if {![info exists no(pkgAll.tcl)]} then {
checkForFile $test_channel [file join $base_path Native Package \
Tests all.tcl] pkgAll.tcl
}
|
| > | > > > > > > > |
721 722 723 724 725 726 727 728 729 730 731 732 733 734 735 .... 1868 1869 1870 1871 1872 1873 1874 1875 1876 1877 1878 1879 1880 1881 1882 1883 .... 1965 1966 1967 1968 1969 1970 1971 1972 1973 1974 1975 1976 1977 1978 1979 1980 1981 1982 1983 1984 1985 |
tputs $test_channel [appendArgs "---- disabled options: " \
[formatList [lsort [array names no]] <none>] \n]
#
# NOTE: Initialize the Eagle test constraints.
#
if {[isEagle]} then {
initializeTests; configureTcltest [list] [list] [list] [list] false
#
# NOTE: If the "no(mono)" variable is set (to anything) then any
# special test suite hacks for Mono will be disabled. This
# does not control or change any hacks for Mono that may
# be present in the library itself.
#
................................................................................
###########################################################################
########################## END Eagle Constraints ##########################
###########################################################################
} else {
#
# NOTE: Make sure that Tcl honors the Eagle test constraints.
#
configureTcltest $test_flags(-match) $test_flags(-skip) \
$test_flags(-constraints) [list] false
#
# HACK: Reset the test counts for tcltest.
#
set ::tcltest::numTests(Total) 0
set ::tcltest::numTests(Skipped) 0
set ::tcltest::numTests(Passed) 0
................................................................................
}
#
# NOTE: Has checking for the extra files needed by various tests been
# disabled?
#
if {![info exists no(checkForFile)]} then {
#
# NOTE: For tests "benchmark-1.38" and "benchmark-1.39".
#
if {![info exists no(benchmark.txt)]} then {
checkForFile $test_channel [file join $test_path benchmark.txt]
}
#
# NOTE: For test "garuda-1.1".
#
if {![info exists no(pkgAll.tcl)]} then {
checkForFile $test_channel [file join $base_path Native Package \
Tests all.tcl] pkgAll.tcl
}
|