Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Update Eagle in externals to the official beta 18 release. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
a2cff58449ffabfc85e2104d310c8d9c |
| User & Date: | mistachkin 2011-10-02 07:26:55 |
Context
|
2011-10-02
| ||
| 23:56 | Update batch tools to allow precompiled static binaries to be built and packaged. Also, update test procedures web page. Finally, do not use ToLowerInvariant when compiling for the Compact Framework. check-in: 0b847e5208 user: mistachkin tags: trunk | |
| 23:37 | Prepare download page for the upcoming 1.0.75.0 release. Closed-Leaf check-in: 056e9c0c86 user: mistachkin tags: prep-1.0.75.0 | |
| 07:26 | Update Eagle in externals to the official beta 18 release. check-in: a2cff58449 user: mistachkin tags: trunk | |
|
2011-09-30
| ||
| 21:01 | Test for NULL/empty value handling of DATETIME columns, ticket [8554170e09]. check-in: e81a7d474c 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/Test1.0/constraints.eagle.
627 628 629 630 631 632 633 634 635 636 637 638 639 640 ... 974 975 976 977 978 979 980 981 982 983 984 985 986 987 988 989 990 991 992 993 994 995 996 997 998 999 1000 1001 1002 1003 1004 1005 .... 1586 1587 1588 1589 1590 1591 1592 1593 1594 1595 1596 1597 1598 1599 1600 1601 1602 1603 1604 1605 1606 |
# HACK: Running in Tcl, just assume we have network access.
#
addConstraint [appendArgs network_ $host]
tputs $channel yes\n
}
}
if {[isEagle]} then {
###########################################################################
############################ BEGIN Eagle ONLY #############################
###########################################################################
proc checkForSoftwareUpdateTrust { channel } {
................................................................................
[lsearch -exact -nocase $::eagle_platform(compileOptions) \
NOTIFY_OBJECT] != -1)} then {
#
# NOTE: Yes, support for object reference count tracking is present.
#
addConstraint refCount
tputs $channel yes\n
} else {
tputs $channel no\n
}
}
proc checkForCompileOption { channel option } {
tputs $channel [appendArgs "---- checking for compile option \"" \
$option "\"... "]
if {[info exists ::eagle_platform(compileOptions)] && \
[lsearch -exact -nocase $::eagle_platform(compileOptions) \
$option] != -1} then {
#
# NOTE: Yes, support for the compile option is present.
#
addConstraint [appendArgs compile. $option]
tputs $channel yes\n
} else {
tputs $channel no\n
}
}
proc checkForRuntimeOption { channel option } {
................................................................................
# global namespace.
#
exportAndImportPackageCommands [namespace current] [list checkForPlatform \
checkForEagle checkForGaruda checkForShell checkForDebug checkForTk \
checkForVersion checkForCommand checkForFile checkForNativeCode \
checkForTip127 checkForTip194 checkForTip241 checkForTip285 \
checkForPerformance checkForTiming checkForInteractive \
checkForUserInteraction checkForNetwork] false false
###########################################################################
############################## END Tcl ONLY ###############################
###########################################################################
}
#
# NOTE: Provide the Eagle test constraints package to the interpreter.
#
package provide EagleTestConstraints \
[expr {[isEagle] ? [info engine PatchLevel] : 1.0}]
}
|
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > < < < < < < < < < < < < < < < < < < | > |
627 628 629 630 631 632 633 634 635 636 637 638 639 640 641 642 643 644 645 646 647 648 649 650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676 677 678 679 680 681 682 683 684 685 686 687 688 .... 1022 1023 1024 1025 1026 1027 1028 1029 1030 1031 1032 1033 1034 1035 .... 1616 1617 1618 1619 1620 1621 1622 1623 1624 1625 1626 1627 1628 1629 1630 1631 1632 1633 1634 1635 1636 1637 |
# 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 "\"... "]
if {[isEagle]} then {
if {[info exists ::eagle_platform(compileOptions)] && \
[lsearch -exact -nocase $::eagle_platform(compileOptions) \
$option] != -1} then {
#
# NOTE: Yes, support for the Eagle compile option is present.
#
addConstraint [appendArgs compile. $option]
tputs $channel yes\n
} else {
tputs $channel no\n
}
} else {
#
# NOTE: We are running inside Tcl; however, we need to check for an
# Eagle compile option. This can now be accomplished via the
# [eagle] command supplied by the Eagle Package for Tcl, if
# it is actually loaded and available.
#
if {[llength [info commands eagle]] > 0} then {
set options [eagle [list expr {[info exists \
::eagle_platform(compileOptions)] ? \
$::eagle_platform(compileOptions) : [list]}]]
if {[lsearch -exact $options $option] != -1} then {
#
# NOTE: Yes, support for the Eagle compile option is present.
#
addConstraint [appendArgs compile. $option]
tputs $channel yes\n
#
# NOTE: We are done here, return now.
#
return
}
}
tputs $channel no\n
}
}
if {[isEagle]} then {
###########################################################################
############################ BEGIN Eagle ONLY #############################
###########################################################################
proc checkForSoftwareUpdateTrust { channel } {
................................................................................
[lsearch -exact -nocase $::eagle_platform(compileOptions) \
NOTIFY_OBJECT] != -1)} then {
#
# NOTE: Yes, support for object reference count tracking is present.
#
addConstraint refCount
tputs $channel yes\n
} else {
tputs $channel no\n
}
}
proc checkForRuntimeOption { channel option } {
................................................................................
# global namespace.
#
exportAndImportPackageCommands [namespace current] [list checkForPlatform \
checkForEagle checkForGaruda checkForShell checkForDebug checkForTk \
checkForVersion checkForCommand checkForFile checkForNativeCode \
checkForTip127 checkForTip194 checkForTip241 checkForTip285 \
checkForPerformance checkForTiming checkForInteractive \
checkForNetwork checkForCompileOption checkForUserInteraction] false \
false
###########################################################################
############################## END Tcl ONLY ###############################
###########################################################################
}
#
# NOTE: Provide the Eagle test constraints package to the interpreter.
#
package provide EagleTestConstraints \
[expr {[isEagle] ? [info engine PatchLevel] : 1.0}]
}
|
Changes to Externals/Eagle/lib/Test1.0/prologue.eagle.
1217
1218
1219
1220
1221
1222
1223
1224
1225
1226
1227
1228
1229
1230
....
1555
1556
1557
1558
1559
1560
1561
1562
1563
1564
1565
1566
1567
1568
1569
1570
1571
1572
1573
1574
1575
1576
|
set ::tcltest::numTests(Passed) 0
set ::tcltest::numTests(Failed) 0
#
# HACK: Reset the list of failed files.
#
set ::tcltest::failFiles [list]
}
#
# NOTE: For test "package-1.0".
#
if {![info exists no(pkgAll.tcl)]} then {
checkForFile $test_channel [file join $base_path Package Tests all.tcl] \
................................................................................
set timeStamp [clock format [clock scan $timeStamp] -iso]
}
} else {
set timeStamp <none>
}
tputs $test_channel [appendArgs "---- build: " \
[getPlatformInfo engine <none>] " " \
[getPlatformInfo patchLevel <none>] " " \
[getPlatformInfo tag <none>] " " \
[getPlatformInfo release <none>] " " \
[getPlatformInfo text <none>] " " \
[getPlatformInfo configuration <none>] " " \
[getPlatformInfo suffix <none>] " " \
$timeStamp \n]
tputs $test_channel [appendArgs "---- os: " \
[getPlatformInfo os <none>] \n]
tputs $test_channel [appendArgs "---- globalAssemblyCache: " \
[getPlatformInfo globalAssemblyCache <none>] \n]
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
|
|
|
|
|
|
|
|
1217
1218
1219
1220
1221
1222
1223
1224
1225
1226
1227
1228
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
....
1570
1571
1572
1573
1574
1575
1576
1577
1578
1579
1580
1581
1582
1583
1584
1585
1586
1587
1588
1589
1590
1591
|
set ::tcltest::numTests(Passed) 0
set ::tcltest::numTests(Failed) 0
#
# HACK: Reset the list of failed files.
#
set ::tcltest::failFiles [list]
#
# NOTE: Has compile/runtime option testing support been disabled?
#
if {![info exists no(compileOptions)]} then {
#
# NOTE: Has dedicated test support been enabled (at compile-time)?
#
if {![info exists no(compileTest)]} then {
#
# NOTE: For test "tclLoad-1.16.1".
#
checkForCompileOption $test_channel TEST
}
}
}
#
# NOTE: For test "package-1.0".
#
if {![info exists no(pkgAll.tcl)]} then {
checkForFile $test_channel [file join $base_path Package Tests all.tcl] \
................................................................................
set timeStamp [clock format [clock scan $timeStamp] -iso]
}
} else {
set timeStamp <none>
}
tputs $test_channel [appendArgs "---- build: " \
[list [getPlatformInfo engine <none>]] " " \
[list [getPlatformInfo patchLevel <none>]] " " \
[list [getPlatformInfo tag <none>]] " " \
[list [getPlatformInfo release <none>]] " " \
[list [getPlatformInfo text <none>]] " " \
[list [getPlatformInfo configuration <none>]] " " \
[list [getPlatformInfo suffix <none>]] " " \
[list $timeStamp] \n]
tputs $test_channel [appendArgs "---- os: " \
[getPlatformInfo os <none>] \n]
tputs $test_channel [appendArgs "---- globalAssemblyCache: " \
[getPlatformInfo globalAssemblyCache <none>] \n]
|
Changes to Tests/tkt-b4a7ddc83f.eagle.
35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 |
}] -body {
set appDomainId(2) [object invoke AppDomain.CurrentDomain Id]
package require EagleLibrary
package require EagleTest
package require System.Data.SQLite.Test
object load -loadtype File [file join [getBinaryDirectory] bin \
System.Data.SQLite.dll]
object invoke System.Data.SQLite.SQLiteLog Initialize
list $appDomainId(1) $appDomainId(2) \
[expr {$appDomainId(1) != $appDomainId(2)}] [setupDb $fileName]
} -cleanup {
|
| |
35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 |
}] -body {
set appDomainId(2) [object invoke AppDomain.CurrentDomain Id]
package require EagleLibrary
package require EagleTest
package require System.Data.SQLite.Test
object load -loadtype File [file join [getBinaryDirectory] \
System.Data.SQLite.dll]
object invoke System.Data.SQLite.SQLiteLog Initialize
list $appDomainId(1) $appDomainId(2) \
[expr {$appDomainId(1) != $appDomainId(2)}] [setupDb $fileName]
} -cleanup {
|