Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Merge updates from trunk. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | tkt-d0116ee2c3 |
| Files: | files | file ages | folders |
| SHA1: |
f955bf7c484d06c350cef485b0c6821a |
| User & Date: | mistachkin 2014-04-16 21:00:13 |
Context
|
2014-04-16
| ||
| 21:00 | Merge updates from trunk. Closed-Leaf check-in: f955bf7c48 user: mistachkin tags: tkt-d0116ee2c3 | |
|
2014-04-15
| ||
| 04:54 | Update Eagle in externals to the beta 30 release. check-in: f9cacf60ea user: mistachkin tags: trunk | |
|
2014-04-10
| ||
| 19:47 | Add description for the test for ticket [d0116ee2c3]. check-in: 98ec9470c6 user: mistachkin tags: tkt-d0116ee2c3 | |
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/EagleShell32.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.
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182
1183
....
1226
1227
1228
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238
1239
1240
|
return [appendArgs "downloaded URI " [lindex $args 0] \
" to directory \"" $directory \"]
} else {
return "cannot fetch update, the URI is invalid"
}
}
proc runUpdateAndExit {} {
set directory [file dirname [info nameofexecutable]]
set command [list exec -shell -- \
[file join $directory Hippogriff.exe] -delay 2000]
eval $command &; exit -force
}
proc getUpdateData { uri } {
#
# NOTE: Temporarily start trusting ONLY our own self-signed
................................................................................
# "#check" command. To disable this functionality, simply
# redefine this procedure to do nothing.
#
proc checkForUpdate { {wantScripts false} {quiet false} } {
#
# NOTE: This should work properly in Eagle only.
#
set updateUri [appendArgs [info engine Uri] [info engine UpdateFile]]
#
# NOTE: Fetch the master update data from the distribution site
# and normalize to Unix-style line-endings.
#
set updateData [string map [list \r\n \n] [getUpdateData $updateUri]]
|
|
>
>
>
>
|
>
|
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
....
1230
1231
1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
|
return [appendArgs "downloaded URI " [lindex $args 0] \
" to directory \"" $directory \"]
} else {
return "cannot fetch update, the URI is invalid"
}
}
proc runUpdateAndExit { {automatic false} } {
set directory [file dirname [info nameofexecutable]]
set command [list exec -shell -- \
[file join $directory Hippogriff.exe] -delay 2000]
if {$automatic} then {
eval lappend command -silent true -confirm false
}
eval $command &; exit -force
}
proc getUpdateData { uri } {
#
# NOTE: Temporarily start trusting ONLY our own self-signed
................................................................................
# "#check" command. To disable this functionality, simply
# redefine this procedure to do nothing.
#
proc checkForUpdate { {wantScripts false} {quiet false} } {
#
# NOTE: This should work properly in Eagle only.
#
set updateUri [appendArgs \
[info engine UpdateBaseUri] [info engine UpdatePathAndQuery]]
#
# NOTE: Fetch the master update data from the distribution site
# and normalize to Unix-style line-endings.
#
set updateData [string map [list \r\n \n] [getUpdateData $updateUri]]
|
Changes to Externals/Eagle/lib/Eagle1.0/vendor.eagle.
233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 |
#
# HACK: Prevent the Eagle core test suite infrastructure from checking
# test constraints that are time-consuming and/or most likely to
# be superfluous to third-party test suites (i.e. those that are
# not testing the Eagle core library itself).
#
set no(core) 1
#
# HACK: Prevent the Eagle core test suite infrastructure from doing
# things that require beta 29 (or later) binaries. This section
# should be removed when the Eagle beta 29 binaries are checked
# into the System.Data.SQLite repository.
#
set no(bogoCops) 1; # NOTE: Lack of [interp readylimit].
}
}
###############################################################################
############################### END VENDOR CODE ###############################
###############################################################################
|
< < < < < < < < |
233 234 235 236 237 238 239 240 241 242 243 244 245 |
#
# HACK: Prevent the Eagle core test suite infrastructure from checking
# test constraints that are time-consuming and/or most likely to
# be superfluous to third-party test suites (i.e. those that are
# not testing the Eagle core library itself).
#
set no(core) 1
}
}
###############################################################################
############################### END VENDOR CODE ###############################
###############################################################################
|
Changes to Externals/Eagle/lib/Test1.0/constraints.eagle.
32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 ... 851 852 853 854 855 856 857 858 859 860 861 862 863 864 865 866 867 868 869 870 871 872 873 874 875 876 877 878 879 880 881 882 883 884 885 886 887 888 889 890 .... 1113 1114 1115 1116 1117 1118 1119 1120 1121 1122 1123 1124 1125 1126 .... 3057 3058 3059 3060 3061 3062 3063 3064 3065 3066 3067 3068 3069 3070 3071 3072 3073 3074 3075 3076 3077 3078 3079 3080 3081 |
EAGLE EMBEDDED_LIBRARY EXECUTE_CACHE EXPRESSION_FLAGS FAST_ERRORCODE \
FAST_ERRORINFO HAVE_SIZEOF HISTORY IA64 INTERACTIVE_COMMANDS \
INTERNALS_VISIBLE_TO ISOLATED_INTERPRETERS ISOLATED_PLUGINS LIBRARY \
LICENSING LIST_CACHE MONO MONO_BUILD MONO_HACKS MONO_LEGACY \
NATIVE NATIVE_PACKAGE NATIVE_UTILITY NATIVE_UTILITY_BSTR NETWORK \
NET_20 NET_20_FAST_ENUM NET_20_ONLY NET_20_SP1 NET_20_SP2 NET_30 \
NET_35 NET_40 NET_45 NET_451 NON_WORKING_CODE NOTIFY NOTIFY_ACTIVE \
NOTIFY_ARGUMENTS NOTIFY_GLOBAL NOTIFY_OBJECT OBSOLETE PARSE_CACHE \
PATCHLEVEL POLICY_TRACE PREVIOUS_RESULT RANDOMIZE_ID REMOTING SAMPLE \
SERIALIZATION SHARED_ID_POOL SHELL SOURCE_ID SOURCE_TIMESTAMP STATIC \
TCL TCL_KITS TCL_THREADED TCL_THREADS TCL_UNICODE TCL_WRAPPER TEST \
THREADING THROW_ON_DISPOSED TRACE TYPE_CACHE UNIX VERBOSE WEB \
WINDOWS WINFORMS WIX_30 WIX_35 WIX_36 WIX_37 WIX_38 X64 X86 XML]
}
proc getKnownMonoVersions {} {
#
# NOTE: This job of this procedure is to return the list of "known"
# versions of Mono supported by the test suite infrastructure.
#
................................................................................
}
}
proc checkForNamespaces { channel } {
tputs $channel "---- checking for namespace support... "
if {[isEagle]} then {
if {[catch {object invoke -flags +NonPublic Interpreter.GetActive \
AreNamespacesEnabled} enabled] == 0 && \
$enabled} then {
#
# NOTE: Yes, it appears that it is available.
#
addConstraint namespaces
tputs $channel yes\n
} else {
tputs $channel no\n
}
} else {
#
# NOTE: All supported versions of native Tcl have namespaces.
#
addConstraint namespaces
tputs $channel yes\n
}
}
proc checkForTestExec { channel } {
tputs $channel "---- checking for test use of \"exec\" command... "
if {![info exists ::no(testExec)]} then {
addConstraint testExec
tputs $channel yes\n
if {[info exists ::no(exec)]} then {
tputs $channel \
"==== WARNING: running with the \"testExec\" procedure disabled\n"
................................................................................
#
# NOTE: Is the interpreter TIP #194 ready?
#
catch {apply} error
if {$error ne {invalid command name "apply"}} then {
addConstraint tip194
tputs $channel yes\n
} else {
tputs $channel no\n
}
}
................................................................................
checkForWindowsVersion checkForScriptLibrary checkForVariable \
checkForTclOptions checkForWindowsCommandProcessor checkForFossil \
checkForEagle checkForSymbols checkForLogFile checkForGaruda \
checkForShell checkForDebug checkForTk checkForVersion \
checkForCommand checkForNamespaces checkForTestExec \
checkForTestMachine checkForTestPlatform checkForTestConfiguration \
checkForTestSuffix checkForFile checkForPathFile checkForNativeCode \
checkForTip127 checkForTip194 checkForTip241 checkForTip285 \
checkForTip405 checkForTip426 checkForTiming checkForPerformance \
checkForBigLists checkForStackIntensive checkForInteractive \
checkForInteractiveCommand checkForUserInteraction checkForNetwork \
checkForCompileOption checkForKnownCompileOptions] 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"}]
}
|
| | | | | | > > > > > > > > > > > > > > > | > > > > > | | | | | > > > > > > > > > > > > > > | > > > | | > > | > > | > > > > > > > > > > > > > > > > > | | | > | | |
32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 ... 852 853 854 855 856 857 858 859 860 861 862 863 864 865 866 867 868 869 870 871 872 873 874 875 876 877 878 879 880 881 882 883 884 885 886 887 888 889 890 891 892 893 894 895 896 897 898 899 900 901 902 903 904 905 906 907 908 909 910 911 912 913 914 915 916 917 918 919 920 921 922 923 924 925 926 927 928 929 930 931 .... 1154 1155 1156 1157 1158 1159 1160 1161 1162 1163 1164 1165 1166 1167 1168 1169 1170 1171 1172 1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 1183 1184 .... 3115 3116 3117 3118 3119 3120 3121 3122 3123 3124 3125 3126 3127 3128 3129 3130 3131 3132 3133 3134 3135 3136 3137 3138 3139 3140 |
EAGLE EMBEDDED_LIBRARY EXECUTE_CACHE EXPRESSION_FLAGS FAST_ERRORCODE \
FAST_ERRORINFO HAVE_SIZEOF HISTORY IA64 INTERACTIVE_COMMANDS \
INTERNALS_VISIBLE_TO ISOLATED_INTERPRETERS ISOLATED_PLUGINS LIBRARY \
LICENSING LIST_CACHE MONO MONO_BUILD MONO_HACKS MONO_LEGACY \
NATIVE NATIVE_PACKAGE NATIVE_UTILITY NATIVE_UTILITY_BSTR NETWORK \
NET_20 NET_20_FAST_ENUM NET_20_ONLY NET_20_SP1 NET_20_SP2 NET_30 \
NET_35 NET_40 NET_45 NET_451 NON_WORKING_CODE NOTIFY NOTIFY_ACTIVE \
NOTIFY_ARGUMENTS NOTIFY_GLOBAL NOTIFY_OBJECT OBSOLETE OFFICIAL \
PARSE_CACHE PATCHLEVEL POLICY_TRACE PREVIOUS_RESULT RANDOMIZE_ID \
REMOTING SAMPLE SERIALIZATION SHARED_ID_POOL SHELL SOURCE_ID \
SOURCE_TIMESTAMP STATIC TCL TCL_KITS TCL_THREADED TCL_THREADS \
TCL_UNICODE TCL_WRAPPER TEST THREADING THROW_ON_DISPOSED TRACE \
TYPE_CACHE UNIX VERBOSE WEB WINDOWS WINFORMS WIX_30 WIX_35 WIX_36 \
WIX_37 WIX_38 X64 X86 XML]
}
proc getKnownMonoVersions {} {
#
# NOTE: This job of this procedure is to return the list of "known"
# versions of Mono supported by the test suite infrastructure.
#
................................................................................
}
}
proc checkForNamespaces { channel } {
tputs $channel "---- checking for namespace support... "
if {[isEagle]} then {
#
# NOTE: Check if namespace support was compiled into the core library
# (i.e. this is beta 30 or later).
#
set available false
if {[catch {string length [object invoke \
Type GetType Eagle._Commands.Namespace2]} length] == 0 && \
[set available [expr {$length > 0}]]} then {
addConstraint namespaces.available
} else {
addConstraint namespaces.unavailable
}
if {[catch {object invoke -flags +NonPublic Interpreter.GetActive \
AreNamespacesEnabled} enabled] == 0} then {
#
# NOTE: We were able to query for namespace support (i.e. this
# must be beta 29 or later); however, we still need to
# check if it has been enabled at runtime.
#
if {$enabled} then {
#
# NOTE: Yes, it appears that it is available and enabled.
#
addConstraint namespaces
tputs $channel enabled\n
} else {
tputs $channel disabled\n
#
# NOTE: Check if namespace support was compiled into the core
# library (i.e. is this beta 30 or later).
#
if {$available} then {
#
# NOTE: The tests seem to be running with namespace support
# available, but disabled. Emit a warning into the
# test log file.
#
tputs $channel \
"==== WARNING: running with namespaces available and disabled\n"
}
}
} else {
tputs $channel error\n
}
} else {
#
# NOTE: All supported versions of native Tcl have namespaces enabled
# and available.
#
addConstraint namespaces.available
addConstraint namespaces
tputs $channel enabled\n
}
}
proc checkForTestExec { channel } {
tputs $channel "---- checking for test use of \"exec\" command... "
set procName [lindex [info level [info level]] 0]
if {![info exists ::no(testExec)] && [canTestExec $procName]} then {
addConstraint testExec
tputs $channel yes\n
if {[info exists ::no(exec)]} then {
tputs $channel \
"==== WARNING: running with the \"testExec\" procedure disabled\n"
................................................................................
#
# NOTE: Is the interpreter TIP #194 ready?
#
catch {apply} error
if {$error ne {invalid command name "apply"}} then {
addConstraint tip194
tputs $channel yes\n
} else {
tputs $channel no\n
}
}
proc checkForTip207 { channel } {
tputs $channel "---- checking for TIP #207... "
#
# NOTE: Is the interpreter TIP #207 ready?
#
catch {interp invokehidden {} -namespace -- info} error
if {![string match {bad option "-namespace": *} $error]} then {
addConstraint tip207
tputs $channel yes\n
} else {
tputs $channel no\n
}
}
................................................................................
checkForWindowsVersion checkForScriptLibrary checkForVariable \
checkForTclOptions checkForWindowsCommandProcessor checkForFossil \
checkForEagle checkForSymbols checkForLogFile checkForGaruda \
checkForShell checkForDebug checkForTk checkForVersion \
checkForCommand checkForNamespaces checkForTestExec \
checkForTestMachine checkForTestPlatform checkForTestConfiguration \
checkForTestSuffix checkForFile checkForPathFile checkForNativeCode \
checkForTip127 checkForTip194 checkForTip207 checkForTip241 \
checkForTip285 checkForTip405 checkForTip426 checkForTiming \
checkForPerformance checkForBigLists checkForStackIntensive \
checkForInteractive checkForInteractiveCommand \
checkForUserInteraction checkForNetwork checkForCompileOption \
checkForKnownCompileOptions] 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.
766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 .... 1937 1938 1939 1940 1941 1942 1943 1944 1945 1946 1947 1948 1949 1950 1951 1952 .... 1974 1975 1976 1977 1978 1979 1980 1981 1982 1983 1984 1985 1986 1987 1988 1989 .... 2362 2363 2364 2365 2366 2367 2368 2369 2370 2371 2372 2373 2374 2375 .... 2450 2451 2452 2453 2454 2455 2456 2457 2458 2459 2460 2461 2462 2463 2464 2465 .... 2470 2471 2472 2473 2474 2475 2476 2477 2478 2479 2480 2481 2482 2483 2484 2485 2486 2487 2488 2489 2490 2491 |
# set no(mono) true
# }
###########################################################################
######################### BEGIN Eagle Constraints #########################
###########################################################################
tputs $test_channel [appendArgs \
"---- start of Eagle specific test constraints...\n"]
#
# NOTE: Has administrator detection support been disabled? We do
# this check [nearly] first as it may [eventually] be used
# to help determine if other constraints should be skipped.
#
if {![info exists no(administrator)]} then {
................................................................................
#
set ::tcltest::failFiles [list]
###########################################################################
########################## BEGIN Tcl Constraints ##########################
###########################################################################
tputs $test_channel [appendArgs \
"---- start of Tcl specific test constraints...\n"]
#
# NOTE: Has compile/runtime option testing support been disabled?
#
if {![info exists no(compileOptions)]} then {
#
# NOTE: Has "known" compile option testing support been disabled?
................................................................................
###########################################################################
}
#############################################################################
####################### BEGIN Tcl & Eagle Constraints #######################
#############################################################################
tputs $test_channel [appendArgs \
"---- start of common (Tcl & Eagle) test constraints...\n"]
#
# NOTE: Check for the test suite infrastructure files...
#
if {![info exists no(testSuiteFiles)]} then {
checkForTestSuiteFiles $test_channel
}
................................................................................
if {![info exists no(tip127)]} then {
checkForTip127 $test_channel
}
if {![info exists no(tip194)]} then {
checkForTip194 $test_channel
}
if {![info exists no(tip241)]} then {
checkForTip241 $test_channel
}
if {![info exists no(tip285)]} then {
checkForTip285 $test_channel
................................................................................
checkForNetwork $test_channel $test_host $test_timeout
}
#
# NOTE: Figure out the approximate relative performance of this machine.
#
if {![info exists no(bogoCops)] && [haveConstraint performance]} then {
tputs $test_channel [appendArgs \
"---- checking for baseline BogoCops (commands-per-second)... "]
if {![info exists test_base_cops]} then {
#
# NOTE: The expected performance numbers for all the
# performance tests will be calibrated based on
# this number (which is based on the measured
# performance of the actual machine that was
................................................................................
set test_base_cops 36000.0; # NOTE: Eagle 1.0 Win32
} else {
set test_base_cops 1570000.0; # NOTE: Tcl 8.4.19 Win32
}
}
tputs $test_channel [appendArgs $test_base_cops \n]
tputs $test_channel [appendArgs \
"---- checking for current BogoCops (commands-per-second)... "]
if {![info exists test_cops]} then {
set test_cops [calculateBogoCops]
}
tputs $test_channel [appendArgs [formatDecimal $test_cops] \n]
set percent [expr {[calculateRelativePerformance iterations 1] * 100}]
tputs $test_channel [appendArgs \
"---- current BogoCops (commands-per-second) is " [formatDecimal \
[expr {$percent > 100 ? $percent - 100 : $percent}] 2] "% " \
[expr {$percent > 100 ? "faster than" : "as fast as"}] \
|
| | | | | | > > > > | | | | > > > > > > > > > > > > > > > > > > > > |
766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 .... 1937 1938 1939 1940 1941 1942 1943 1944 1945 1946 1947 1948 1949 1950 1951 1952 .... 1974 1975 1976 1977 1978 1979 1980 1981 1982 1983 1984 1985 1986 1987 1988 1989 .... 2362 2363 2364 2365 2366 2367 2368 2369 2370 2371 2372 2373 2374 2375 2376 2377 2378 2379 .... 2454 2455 2456 2457 2458 2459 2460 2461 2462 2463 2464 2465 2466 2467 2468 2469 .... 2474 2475 2476 2477 2478 2479 2480 2481 2482 2483 2484 2485 2486 2487 2488 2489 2490 2491 2492 2493 2494 2495 2496 2497 2498 2499 2500 2501 2502 2503 2504 2505 2506 2507 2508 2509 2510 2511 2512 2513 2514 2515 |
# set no(mono) true
# }
###########################################################################
######################### BEGIN Eagle Constraints #########################
###########################################################################
tputs $test_channel \
"---- start of Eagle specific test constraints...\n"
#
# NOTE: Has administrator detection support been disabled? We do
# this check [nearly] first as it may [eventually] be used
# to help determine if other constraints should be skipped.
#
if {![info exists no(administrator)]} then {
................................................................................
#
set ::tcltest::failFiles [list]
###########################################################################
########################## BEGIN Tcl Constraints ##########################
###########################################################################
tputs $test_channel \
"---- start of Tcl specific test constraints...\n"
#
# NOTE: Has compile/runtime option testing support been disabled?
#
if {![info exists no(compileOptions)]} then {
#
# NOTE: Has "known" compile option testing support been disabled?
................................................................................
###########################################################################
}
#############################################################################
####################### BEGIN Tcl & Eagle Constraints #######################
#############################################################################
tputs $test_channel \
"---- start of common (Tcl & Eagle) test constraints...\n"
#
# NOTE: Check for the test suite infrastructure files...
#
if {![info exists no(testSuiteFiles)]} then {
checkForTestSuiteFiles $test_channel
}
................................................................................
if {![info exists no(tip127)]} then {
checkForTip127 $test_channel
}
if {![info exists no(tip194)]} then {
checkForTip194 $test_channel
}
if {![info exists no(tip207)]} then {
checkForTip207 $test_channel
}
if {![info exists no(tip241)]} then {
checkForTip241 $test_channel
}
if {![info exists no(tip285)]} then {
checkForTip285 $test_channel
................................................................................
checkForNetwork $test_channel $test_host $test_timeout
}
#
# NOTE: Figure out the approximate relative performance of this machine.
#
if {![info exists no(bogoCops)] && [haveConstraint performance]} then {
tputs $test_channel \
"---- checking for baseline BogoCops (commands-per-second)... "
if {![info exists test_base_cops]} then {
#
# NOTE: The expected performance numbers for all the
# performance tests will be calibrated based on
# this number (which is based on the measured
# performance of the actual machine that was
................................................................................
set test_base_cops 36000.0; # NOTE: Eagle 1.0 Win32
} else {
set test_base_cops 1570000.0; # NOTE: Tcl 8.4.19 Win32
}
}
tputs $test_channel [appendArgs $test_base_cops \n]
tputs $test_channel \
"---- checking for current BogoCops (commands-per-second)... "
if {![info exists test_cops]} then {
set test_cops [calculateBogoCops]
}
tputs $test_channel [appendArgs [formatDecimal $test_cops] \n]
tputs $test_channel \
"---- checking for current BogoCops against baseline BogoCops... "
if {$test_cops > $test_base_cops} then {
addConstraint sameOrFasterBogoCops
addConstraint fasterBogoCops
tputs $test_channel faster\n
} elseif {$test_cops < $test_base_cops} then {
addConstraint sameOrSlowerBogoCops
addConstraint slowerBogoCops
tputs $test_channel slower\n
} else {
addConstraint sameOrFasterBogoCops
addConstraint sameOrSlowerBogoCops
addConstraint sameBogoCops
tputs $test_channel same\n
}
set percent [expr {[calculateRelativePerformance iterations 1] * 100}]
tputs $test_channel [appendArgs \
"---- current BogoCops (commands-per-second) is " [formatDecimal \
[expr {$percent > 100 ? $percent - 100 : $percent}] 2] "% " \
[expr {$percent > 100 ? "faster than" : "as fast as"}] \
|