Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Update Eagle script library in externals to latest trunk. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
8c9b9e41a6f1ad4fe4f68ce02fd91033 |
| User & Date: | mistachkin 2012-05-08 23:59:52 |
Context
|
2012-05-09
| ||
| 04:26 | Update Eagle in externals to the beta 23 release. check-in: ef3da989ed user: mistachkin tags: trunk | |
|
2012-05-08
| ||
| 23:59 | Update Eagle script library in externals to latest trunk. check-in: 8c9b9e41a6 user: mistachkin tags: trunk | |
|
2012-05-06
| ||
| 18:43 | Update SQLite core library to the latest trunk code. check-in: e930be6c75 user: mistachkin tags: trunk | |
Changes
Changes to Externals/Eagle/lib/Test1.0/constraints.eagle.
54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 ... 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 ... 763 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 .... 1957 1958 1959 1960 1961 1962 1963 1964 1965 1966 1967 1968 1969 1970 1971 1972 1973 1974 1975 1976 1977 |
# NOTE: Also add just the generic Mono constraints that do not have
# a trailing version.
#
foreach constraint $constraints {
addConstraint $constraint
}
}
#
# NOTE: This test constraint is needed by test "benchmark-1.22".
#
if {![info exists ::no(compileWindows)]} then {
#
# NOTE: If the current platform is Windows the Tcl binary must have
# been compiled for Windows.
#
if {[info exists ::tcl_platform(platform)] && \
$::tcl_platform(platform) eq "windows"} then {
addConstraint compile.WINDOWS
}
}
#
# NOTE: Just fake the invariant culture when running in native Tcl.
#
if {![info exists ::no(culture)]} then {
addConstraint culture.invariant
}
}
}
proc checkForWindowsCommandProcessor { channel pattern {constraint ""} } {
tputs $channel "---- checking for Windows Command Processor... "
if {[info exists ::tcl_platform(platform)] && \
................................................................................
}
} else {
#
# NOTE: Tcl is always native code and can always execute native code.
#
addConstraint native
#
# NOTE: This test constraint is needed by test "benchmark-1.22".
#
if {![info exists ::no(compileNative)]} then {
addConstraint compile.NATIVE
}
tputs $channel yes\n
}
}
proc checkForTip127 { channel } {
tputs $channel "---- checking for TIP #127... "
................................................................................
}
} else {
#
# HACK: Running in Tcl, just assume we have network access.
#
addConstraint [appendArgs network_ $host]
#
# NOTE: This test constraint is needed by tests "socket-*.*".
#
if {![info exists ::no(compileNetwork)]} then {
addConstraint compile.NETWORK
}
tputs $channel yes\n
}
}
proc checkForCompileOption { channel option } {
tputs $channel [appendArgs "---- checking for compile option \"" \
$option "\"... "]
................................................................................
exportAndImportPackageCommands [namespace current] [list checkForPlatform \
checkForEagle checkForGaruda checkForShell checkForDebug checkForTk \
checkForVersion checkForCommand checkForFile checkForNativeCode \
checkForTip127 checkForTip194 checkForTip241 checkForTip285 \
checkForPerformance checkForTiming checkForInteractive checkForSymbols \
checkForLogFile checkForNetwork checkForCompileOption \
checkForWindowsCommandProcessor checkForUserInteraction \
checkForTestConfiguration] false false
###########################################################################
############################## END Tcl ONLY ###############################
###########################################################################
}
#
# NOTE: Provide the Eagle test constraints package to the interpreter.
#
package provide Eagle.Test.Constraints \
[expr {[isEagle] ? [info engine PatchLevel] : "1.0"}]
}
|
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > < < < < < < < < < < < < < < | |
54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 ... 581 582 583 584 585 586 587 588 589 590 591 592 593 594 ... 786 787 788 789 790 791 792 793 794 795 796 797 798 799 .... 1973 1974 1975 1976 1977 1978 1979 1980 1981 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 |
# NOTE: Also add just the generic Mono constraints that do not have
# a trailing version.
#
foreach constraint $constraints {
addConstraint $constraint
}
}
}
}
proc checkForTclOptions { channel } {
tputs $channel "---- checking for Tcl options..."
if {![isEagle]} then {
set result [list]
#
# NOTE: This test constraint is needed by test "benchmark-1.22".
#
if {![info exists ::no(compileNative)]} then {
lappend result compile.NATIVE
addConstraint compile.NATIVE
}
#
# NOTE: This test constraint is needed by test "benchmark-1.22".
#
if {![info exists ::no(compileWindows)]} then {
#
# NOTE: If the current platform is Windows the Tcl binary must have
# been compiled for Windows.
#
if {[info exists ::tcl_platform(platform)] && \
$::tcl_platform(platform) eq "windows"} then {
lappend result compile.WINDOWS
addConstraint compile.WINDOWS
}
}
#
# NOTE: This test constraint is needed by tests "socket-*.*".
#
if {![info exists ::no(compileNetwork)]} then {
lappend result compile.NETWORK
addConstraint compile.NETWORK
}
#
# NOTE: Just fake the invariant culture when running in native Tcl.
#
if {![info exists ::no(culture)]} then {
lappend result culture.invariant
addConstraint culture.invariant
}
tputs $channel [appendArgs "yes (" $result ")\n"]
} else {
tputs $channel no\n
}
}
proc checkForWindowsCommandProcessor { channel pattern {constraint ""} } {
tputs $channel "---- checking for Windows Command Processor... "
if {[info exists ::tcl_platform(platform)] && \
................................................................................
}
} else {
#
# NOTE: Tcl is always native code and can always execute native code.
#
addConstraint native
tputs $channel yes\n
}
}
proc checkForTip127 { channel } {
tputs $channel "---- checking for TIP #127... "
................................................................................
}
} else {
#
# HACK: Running in Tcl, just assume we have network access.
#
addConstraint [appendArgs network_ $host]
tputs $channel yes\n
}
}
proc checkForCompileOption { channel option } {
tputs $channel [appendArgs "---- checking for compile option \"" \
$option "\"... "]
................................................................................
exportAndImportPackageCommands [namespace current] [list checkForPlatform \
checkForEagle checkForGaruda checkForShell checkForDebug checkForTk \
checkForVersion checkForCommand checkForFile checkForNativeCode \
checkForTip127 checkForTip194 checkForTip241 checkForTip285 \
checkForPerformance checkForTiming checkForInteractive checkForSymbols \
checkForLogFile checkForNetwork checkForCompileOption \
checkForWindowsCommandProcessor checkForUserInteraction \
checkForTclOptions checkForTestConfiguration] false false
###########################################################################
############################## END Tcl ONLY ###############################
###########################################################################
}
#
# NOTE: Provide the Eagle test constraints package to the interpreter.
#
package provide Eagle.Test.Constraints \
[expr {[isEagle] ? [info engine PatchLevel] : "1.0"}]
}
|
Changes to Externals/Eagle/lib/Test1.0/prologue.eagle.
838
839
840
841
842
843
844
845
846
847
848
849
850
851
....
1774
1775
1776
1777
1778
1779
1780
1781
1782
1783
1784
1785
1786
1787
|
if {![info exists no(compileIsolatedInterpreters)]} then {
#
# NOTE: For test "xaml-1.2".
#
checkForCompileOption $test_channel ISOLATED_INTERPRETERS
}
#
# NOTE: Has isolated plugin support been enabled (at compile-time)?
#
if {![info exists no(compileIsolatedPlugins)]} then {
#
# NOTE: For test "load-1.1.1".
#
................................................................................
#
# NOTE: Check the core test constraints unless they have been
# explicitly disabled.
#
if {![info exists no(platform)]} then {
checkForPlatform $test_channel
}
if {![info exists no(windowsCommandProcessor)]} then {
checkForWindowsCommandProcessor $test_channel cmd.exe
}
if {![info exists no(version)]} then {
checkForVersion $test_channel
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
....
1784
1785
1786
1787
1788
1789
1790
1791
1792
1793
1794
1795
1796
1797
1798
1799
1800
1801
|
if {![info exists no(compileIsolatedInterpreters)]} then {
#
# NOTE: For test "xaml-1.2".
#
checkForCompileOption $test_channel ISOLATED_INTERPRETERS
}
#
# NOTE: Has expression flags support been enabled (at compile-time)?
#
if {![info exists no(compileExpressionFlags)]} then {
#
# NOTE: For test "function-2.16".
#
checkForCompileOption $test_channel EXPRESSION_FLAGS
}
#
# NOTE: Has isolated plugin support been enabled (at compile-time)?
#
if {![info exists no(compileIsolatedPlugins)]} then {
#
# NOTE: For test "load-1.1.1".
#
................................................................................
#
# NOTE: Check the core test constraints unless they have been
# explicitly disabled.
#
if {![info exists no(platform)]} then {
checkForPlatform $test_channel
}
if {![info exists no(tclOptions)]} then {
checkForTclOptions $test_channel
}
if {![info exists no(windowsCommandProcessor)]} then {
checkForWindowsCommandProcessor $test_channel cmd.exe
}
if {![info exists no(version)]} then {
checkForVersion $test_channel
|