Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Update Eagle in externals to the beta 22 release. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
ec7620aec49c83ebeda1c5c72af9ec66 |
| User & Date: | mistachkin 2012-03-30 22:25:36 |
Context
|
2012-03-31
| ||
| 12:53 | Mono portability fixes for the test suite. check-in: 76b6dd766b user: mistachkin tags: trunk | |
|
2012-03-30
| ||
| 22:25 | Update Eagle in externals to the beta 22 release. check-in: ec7620aec4 user: mistachkin tags: trunk | |
|
2012-03-28
| ||
| 14:51 | Fix typo in version history. check-in: aae97713fa 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/lib/Eagle1.0/test.eagle.
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
...
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
|
}
proc fixConstraints { constraints } {
set result [string trim $constraints]
if {[string length $result] > 0} then {
#
# HACK: Fixup for the magic expression (via [expr]) test
# constraint syntax supported by Tcltest and not by
# EagleTest. This needs to happen for Tcl in test
# constraints that contain any characters that are
# not alphanumeric, not a period, and not a colon
# (e.g. in this case, the exclamation point);
# however, it should only be required when the
# number of test constraints is greater than one.
#
if {![isEagle]} then {
if {[string first ! $result] != -1} then {
#
# HACK: All of our test constraints assume they are
# "logically and-ed" together.
#
................................................................................
if {[isEagle]} then {
set array(scopes,$index) [llength [scope list]]
set array(objects,$index) [llength [info objects]]
set array(callbacks,$index) [llength [info callbacks]]
set array(types,$index) [llength [object types]]
set array(interfaces,$index) [llength [object interfaces]]
set array(namespaces,$index) [llength [object namespaces]]
set array(processes,$index,list) [getProcesses ""]; # volatile, external
set array(processes,$index) [llength $array(processes,$index,list)]
set array(assemblies,$index) [llength [object assemblies]]
#
# 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.
|
|
|
|
|
|
|
<
|
>
<
|
|
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
...
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
|
}
proc fixConstraints { constraints } {
set result [string trim $constraints]
if {[string length $result] > 0} then {
#
# HACK: Fixup for the semi-magical expression (via [expr]) test
# constraint syntax supported by the Tcltest package and not
# by the Eagle.Test package. This needs to happen for Tcl
# in test constraints that contain any characters that are
# not alphanumeric, not a period, and not a colon (e.g. in
# this case, the exclamation point); however, it should only
# be required when the number of test constraints is greater
# than one.
#
if {![isEagle]} then {
if {[string first ! $result] != -1} then {
#
# HACK: All of our test constraints assume they are
# "logically and-ed" together.
#
................................................................................
if {[isEagle]} then {
set array(scopes,$index) [llength [scope list]]
set array(objects,$index) [llength [info objects]]
set array(callbacks,$index) [llength [info callbacks]]
set array(types,$index) [llength [object types]]
set array(interfaces,$index) [llength [object interfaces]]
set array(namespaces,$index) [llength [object namespaces]]
set array(processes,$index) [llength [getProcesses ""]]
set array(assemblies,$index) [llength [object assemblies]]
#
# 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.
|
Changes to Externals/Eagle/lib/Test1.0/constraints.eagle.
31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 ... 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 ... 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 ... 743 744 745 746 747 748 749 750 751 752 753 754 755 756 .... 1058 1059 1060 1061 1062 1063 1064 1065 1066 1067 1068 1069 1070 1071 .... 1102 1103 1104 1105 1106 1107 1108 1109 1110 1111 1112 1113 1114 1115 1116 |
tputs $channel [appendArgs unknown \n]
}
###########################################################################
if {![isEagle]} then {
#
# BUGFIX: We do not want to skip any Mono bugs in Tcl.
# Also, fake the culture.
#
set constraints [list monoToDo monoBug monoCrash culture.en_US]
#
# NOTE: Add the necessary constraints for each version
# of Mono we know about.
#
foreach version [list 20 22 24 26 28 210 212 30] {
addConstraint [appendArgs monoToDo $version]
addConstraint [appendArgs monoBug $version]
addConstraint [appendArgs monoCrash $version]
}
foreach constraint $constraints {
addConstraint $constraint; # running in Tcl.
}
}
}
proc checkForWindowsCommandProcessor { channel pattern {constraint ""} } {
tputs $channel "---- checking for Windows Command Processor... "
................................................................................
# NOTE: We do not want to skip bugs or crashing
# issues for Eagle since we are not running
# in Eagle.
#
addConstraint eagleBug
addConstraint eagleCrash
#
# HACK: Needed by tests "socket-*.*".
#
if {![info exists ::no(compileNetwork)]} then {
addConstraint compile.NETWORK
}
tputs $channel no\n
}
}
proc checkForSymbols { channel name {constraint ""} } {
set fileName [file normalize [appendArgs [file rootname $name] .pdb]]
................................................................................
} else {
#
# NOTE: Tcl is always native code and can always execute native code.
#
addConstraint native
#
# HACK: Needed by test "benchmark-1.22".
#
if {![info exists ::no(compileNative)]} then {
addConstraint compile.NATIVE
}
tputs $channel yes\n
}
................................................................................
tputs $channel no\n
}
} 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 \"" \
................................................................................
#
# NOTE: Check for any Mono version higher than 2.10.
#
if {$majorVersion > 2 || $minorVersion > 10} then {
lappend monoVersions 210
}
#
# NOTE: Check for any Mono version higher than 2.12.
#
if {$majorVersion > 2 || $minorVersion > 12} then {
lappend monoVersions 212
}
}
................................................................................
}
#
# NOTE: We do not want to skip any Mono bugs on .NET. Add the
# necessary constraints for each version of Mono we know
# about.
#
foreach monoVersion [list 20 22 24 26 28 210 212 30] {
addConstraint [appendArgs monoToDo $monoVersion]
addConstraint [appendArgs monoBug $monoVersion]
addConstraint [appendArgs monoCrash $monoVersion]
}
}
tputs $channel [appendArgs $::eagle_platform(runtimeVersion) \
|
| < > | | | | | | | | | | > > > > | | > > > > > > > > > > > > > > > > > > > > > > < < < < < < < | > > > > > > > > > > > > > > | |
31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 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 ... 176 177 178 179 180 181 182 183 184 185 186 187 188 189 ... 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 ... 762 763 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 .... 1084 1085 1086 1087 1088 1089 1090 1091 1092 1093 1094 1095 1096 1097 1098 1099 1100 1101 1102 1103 1104 .... 1135 1136 1137 1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 |
tputs $channel [appendArgs unknown \n]
}
###########################################################################
if {![isEagle]} then {
#
# BUGFIX: We do not normally want to skip any Mono bugs in native Tcl.
#
if {![info exists ::no(runtimeVersion)]} then {
set constraints [list monoToDo monoBug monoCrash]
#
# NOTE: Add the necessary constraints for each version of Mono that
# we know about.
#
foreach version [list 20 22 24 26 28 210 211 212 30] {
addConstraint [appendArgs monoToDo $version]
addConstraint [appendArgs monoBug $version]
addConstraint [appendArgs monoCrash $version]
}
#
# 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... "
................................................................................
# NOTE: We do not want to skip bugs or crashing
# issues for Eagle since we are not running
# in Eagle.
#
addConstraint eagleBug
addConstraint eagleCrash
tputs $channel no\n
}
}
proc checkForSymbols { channel name {constraint ""} } {
set fileName [file normalize [appendArgs [file rootname $name] .pdb]]
................................................................................
} 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
}
................................................................................
tputs $channel no\n
}
} 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 \"" \
................................................................................
#
# NOTE: Check for any Mono version higher than 2.10.
#
if {$majorVersion > 2 || $minorVersion > 10} then {
lappend monoVersions 210
}
#
# NOTE: Check for any Mono version higher than 2.11.
#
if {$majorVersion > 2 || $minorVersion > 11} then {
lappend monoVersions 211
}
#
# NOTE: Check for any Mono version higher than 2.12.
#
if {$majorVersion > 2 || $minorVersion > 12} then {
lappend monoVersions 212
}
}
................................................................................
}
#
# NOTE: We do not want to skip any Mono bugs on .NET. Add the
# necessary constraints for each version of Mono we know
# about.
#
foreach monoVersion [list 20 22 24 26 28 210 211 212 30] {
addConstraint [appendArgs monoToDo $monoVersion]
addConstraint [appendArgs monoBug $monoVersion]
addConstraint [appendArgs monoCrash $monoVersion]
}
}
tputs $channel [appendArgs $::eagle_platform(runtimeVersion) \
|