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: |
fd95f9dd1d3610cae2543c8143bdbc05 |
| User & Date: | mistachkin 2012-05-02 18:52:40 |
Context
|
2012-05-02
| ||
| 22:29 | Update version history with all the latest changes. check-in: c063096071 user: mistachkin tags: trunk | |
| 18:52 | Update Eagle script library in externals to latest trunk. check-in: fd95f9dd1d user: mistachkin tags: trunk | |
| 18:38 | Merge all connection pool fixes and other changes to trunk. Fix for ticket [996d13cd87]. check-in: ae1f4354e4 user: mistachkin tags: trunk | |
Changes
Changes to Externals/Eagle/lib/Eagle1.0/init.eagle.
422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 ... 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 ... 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 ... 730 731 732 733 734 735 736 737 738 739 740 741 742 743 744 |
return [file normalize [file join [pwd] $path]]
}
}
proc addToPath { dir } {
#
# NOTE: This should work properly in both Tcl and Eagle.
#
# NOTE: Normalize to an operating system native path.
#
set dir [file nativename $dir]
#
# NOTE: On Windows, use PATH; otherwise (i.e. Unix), use
# LD_LIBRARY_PATH.
#
................................................................................
#
return false
}
proc removeFromPath { dir } {
#
# NOTE: This should work properly in both Tcl and Eagle.
#
# NOTE: Normalize to an operating system native path.
#
set dir [file nativename $dir]
#
# NOTE: On Windows, use PATH; otherwise (i.e. Unix), use
# LD_LIBRARY_PATH.
#
................................................................................
} elseif {$::tcl_platform(platform) eq "windows"} then {
set separator \;
} else {
set separator :
}
#
# NOTE: We need to separate the directories in the path
# so that we can selectively remove the one we are
# looking for.
#
set dirs [split $::env($name) $separator]
#
# BUGBUG: Consider exact case only for now.
#
set index [lsearch -exact $dirs $dir]
#
# NOTE: Is the directory in the loader search path?
#
if {$index != -1} then {
#
# NOTE: Remove the directory from the loader search path.
#
set dirs [lreplace $dirs $index $index]
#
# NOTE: Replace the original loader search path with
# our modified one.
#
set ::env($name) [join $dirs $separator]
#
# NOTE: Yes, we altered the search path.
#
return true
}
#
# NOTE: No, we did not alter the search path.
#
return false
}
................................................................................
#
# NOTE: Return the list of process Ids, which may be empty.
#
return $result
}
proc waitForProcesses { ids timeout } {
#
# NOTE: Wait for each process in the list to exit.
#
foreach id $ids {
#
# NOTE: Get the process object by its Id. If it does not exist,
# this will raise an error.
|
< | < | > > > > | | | | | | | | | | | | | | | | | | | | | | | | | | > | > > > > > > > > > > |
422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 ... 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 ... 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 ... 733 734 735 736 737 738 739 740 741 742 743 744 745 746 747 748 749 750 751 752 753 754 755 756 757 |
return [file normalize [file join [pwd] $path]]
}
}
proc addToPath { dir } {
#
# NOTE: This should work properly in both Tcl and Eagle.
# Normalize to an operating system native path.
#
set dir [file nativename $dir]
#
# NOTE: On Windows, use PATH; otherwise (i.e. Unix), use
# LD_LIBRARY_PATH.
#
................................................................................
#
return false
}
proc removeFromPath { dir } {
#
# NOTE: This should work properly in both Tcl and Eagle.
# Normalize to an operating system native path.
#
set dir [file nativename $dir]
#
# NOTE: On Windows, use PATH; otherwise (i.e. Unix), use
# LD_LIBRARY_PATH.
#
................................................................................
} elseif {$::tcl_platform(platform) eq "windows"} then {
set separator \;
} else {
set separator :
}
#
# NOTE: Does the necessary environment variable exist?
#
if {[info exists ::env($name)]} then {
#
# NOTE: We need to separate the directories in the path
# so that we can selectively remove the one we are
# looking for.
#
set dirs [split $::env($name) $separator]
#
# BUGBUG: Consider exact case only for now.
#
set index [lsearch -exact $dirs $dir]
#
# NOTE: Is the directory in the loader search path?
#
if {$index != -1} then {
#
# NOTE: Remove the directory from the loader search path.
#
set dirs [lreplace $dirs $index $index]
#
# NOTE: Replace the original loader search path with
# our modified one.
#
set ::env($name) [join $dirs $separator]
#
# NOTE: Yes, we altered the search path.
#
return true
}
}
#
# NOTE: No, we did not alter the search path.
#
return false
}
................................................................................
#
# NOTE: Return the list of process Ids, which may be empty.
#
return $result
}
proc waitForProcesses { ids timeout {collect true} } {
#
# NOTE: If requested, run the garbage collector now. This may be
# necessary to successfully wait for processes that are being
# kept alive via runtime callable wrappers for out-of-process
# COM servers (e.g. Excel).
#
if {$collect} then {
debug collect true true
}
#
# NOTE: Wait for each process in the list to exit.
#
foreach id $ids {
#
# NOTE: Get the process object by its Id. If it does not exist,
# this will raise an error.
|
Changes to Externals/Eagle/lib/Eagle1.0/test.eagle.
828 829 830 831 832 833 834 835 836 837 838 839 840 841 |
} else {
append result <noValue>
}
}
return [expr {[string length $result] > 0 ? $result : $default}]
}
proc inverseLsearchGlob { noCase patterns element } {
#
# NOTE: Perform the inverse of [lsearch -glob], attempt
# to match an element against a list of patterns.
#
set command [list string match]
|
> > > > > > > > > > > > > > > > > > > |
828 829 830 831 832 833 834 835 836 837 838 839 840 841 842 843 844 845 846 847 848 849 850 851 852 853 854 855 856 857 858 859 860 |
} else {
append result <noValue>
}
}
return [expr {[string length $result] > 0 ? $result : $default}]
}
proc pathToRegexp { path {list false} } {
#
# NOTE: This procedure needs to escape all characters that
# have any special meaning to the regular expression
# engine. Typically, the only characters we need to
# really worry about are the directory separator and
# the file extension separator (e.g. backslash and
# period on Windows and/or forward slash and period
# on Unix). Since the forward slash has no special
# meaning to the regular expression engine, Windows
# is somewhat more difficult to handle.
#
set map [list \
\\ \\\\ \$ \\\$ ( \\( ) \\) * \\* + \\+ - \\- . \\. \
? \\? \[ \\\[ \] \\\] ^ \\^ \{ \\\{ \} \\\}]
return [string map $map [expr {$list ? [list $path] : $path}]]
}
proc inverseLsearchGlob { noCase patterns element } {
#
# NOTE: Perform the inverse of [lsearch -glob], attempt
# to match an element against a list of patterns.
#
set command [list string match]
|
Changes to Externals/Eagle/lib/Test1.0/constraints.eagle.
909 910 911 912 913 914 915 916 917 918 919 920 921 922 |
tputs $channel open\n
} elseif {$code == 0} then {
tputs $channel closed\n
} else {
tlog $result; tputs $channel error\n]
}
}
proc checkForPrimaryThread { channel } {
tputs $channel "---- checking for primary thread... "
if {[catch {object invoke Interpreter.GetActive ThreadId} \
threadId] == 0 && \
[info tid] == $threadId} then {
|
> > > > > > > > > > > > > > > > > |
909 910 911 912 913 914 915 916 917 918 919 920 921 922 923 924 925 926 927 928 929 930 931 932 933 934 935 936 937 938 939 |
tputs $channel open\n
} elseif {$code == 0} then {
tputs $channel closed\n
} else {
tlog $result; tputs $channel error\n]
}
}
proc checkForHostType { channel } {
tputs $channel "---- checking for host type... "
if {[set code [catch {object invoke \
Interpreter.GetActive.Host.GetType ToString} hostType]] == 0 && \
[string length $hostType] > 0} then {
addConstraint [appendArgs hostType. [string map \
[list , _ + _ & _ * _ \[ _ \] _ . _ \\ _] $hostType]]
tputs $channel [appendArgs $hostType \n]
} elseif {$code == 0} then {
tputs $channel unknown\n
} else {
tputs $channel error\n
}
}
proc checkForPrimaryThread { channel } {
tputs $channel "---- checking for primary thread... "
if {[catch {object invoke Interpreter.GetActive ThreadId} \
threadId] == 0 && \
[info tid] == $threadId} then {
|
Changes to Externals/Eagle/lib/Test1.0/prologue.eagle.
66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 .. 95 96 97 98 99 100 101 102 103 104 105 106 107 108 ... 593 594 595 596 597 598 599 600 601 602 603 604 605 606 ... 682 683 684 685 686 687 688 689 690 691 692 693 694 695 696 .... 1034 1035 1036 1037 1038 1039 1040 1041 1042 1043 1044 1045 1046 1047 .... 1938 1939 1940 1941 1942 1943 1944 1945 1946 1947 1948 1949 1950 1951 .... 1965 1966 1967 1968 1969 1970 1971 1972 1973 1974 1975 1976 1977 1978 1979 |
#
set base_path [file dirname $base_path]
}
unset pkg_dir
}
#
# NOTE: Set the local root directory of the source checkout (i.e. of
# Eagle or whatever project the Eagle binaries are being used by).
#
if {![info exists root_path]} then {
set pattern {^local-root:\s+(.*?)\s+?$}
if {[catch {set exec [exec -- fossil info]}] || \
[regexp -line -- $pattern $exec dummy directory] == 0} then {
#
# NOTE: We could not query local root directory of the source checkout
# from Fossil; therefore, attempt to make an educated guess. This
# value will probably be wrong for any project(s) other than Eagle.
................................................................................
# trailing slashes.
#
set root_path [file normalize $directory]
}
unset -nocomplain directory dummy exec pattern
}
#
# NOTE: Set the executable file name for the process, if
# necessary.
#
if {![info exists bin_file]} then {
set bin_file [info nameofexecutable]
................................................................................
#
# NOTE: Has host detection support been disabled?
#
if {![info exists no(host)]} then {
checkForHost $test_channel
}
#
# NOTE: Has primary thread 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(primaryThread)]} then {
checkForPrimaryThread $test_channel
................................................................................
if {![info exists no(certificate)]} then {
checkForCertificate $test_channel
}
#
# NOTE: Has database testing support been disabled?
#
if {![info exists no(sql)]} then {
#
# NOTE: Set the server name, if necessary.
#
if {![info exists server]} then {
set server .
}
................................................................................
}
}
#
# NOTE: Has custom test method support been disabled?
#
if {![info exists no(test)]} then {
#
# NOTE: Has DateTime testing support been disabled?
#
if {![info exists no(testDateTime)]} then {
#
# NOTE: For test "vwait-1.11".
#
................................................................................
" the baseline\n"]
unset percent
}
###########################################################################
set timeStamp [getPlatformInfo timeStamp ""]
if {[string length $timeStamp] > 0} then {
#########################################################################
# MONO: Bug, see: https://bugzilla.novell.com/show_bug.cgi?id=479061
#########################################################################
................................................................................
[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]
unset timeStamp
tputs $test_channel [appendArgs "---- os: " \
[getPlatformInfo os <none>] \n]
tputs $test_channel [appendArgs "---- globalAssemblyCache: " \
|
> | > | | | | > > > > > > > > > | > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | > > |
66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 .. 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 ... 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616 617 ... 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 .... 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 1062 1063 1064 1065 1066 1067 1068 1069 .... 1960 1961 1962 1963 1964 1965 1966 1967 1968 1969 1970 1971 1972 1973 1974 1975 1976 1977 1978 1979 1980 1981 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 1995 1996 1997 1998 1999 2000 2001 2002 2003 .... 2017 2018 2019 2020 2021 2022 2023 2024 2025 2026 2027 2028 2029 2030 2031 2032 2033 |
#
set base_path [file dirname $base_path]
}
unset pkg_dir
}
#############################################################################
#
# NOTE: Set the local root directory of the source checkout (i.e. of Eagle or
# whatever project the Eagle binaries are being used by).
#
if {![info exists root_path] && ![info exists no(fossil)]} then {
set pattern {^local-root:\s+(.*?)\s+$}
if {[catch {set exec [exec -- fossil info]}] || \
[regexp -line -- $pattern $exec dummy directory] == 0} then {
#
# NOTE: We could not query local root directory of the source checkout
# from Fossil; therefore, attempt to make an educated guess. This
# value will probably be wrong for any project(s) other than Eagle.
................................................................................
# trailing slashes.
#
set root_path [file normalize $directory]
}
unset -nocomplain directory dummy exec pattern
}
#############################################################################
#
# NOTE: Set the executable file name for the process, if
# necessary.
#
if {![info exists bin_file]} then {
set bin_file [info nameofexecutable]
................................................................................
#
# NOTE: Has host detection support been disabled?
#
if {![info exists no(host)]} then {
checkForHost $test_channel
}
#
# NOTE: Has host type detection support been disabled?
#
if {![info exists no(hostType)]} then {
checkForHostType $test_channel
}
#
# NOTE: Has primary thread 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(primaryThread)]} then {
checkForPrimaryThread $test_channel
................................................................................
if {![info exists no(certificate)]} then {
checkForCertificate $test_channel
}
#
# NOTE: Has database testing support been disabled?
#
if {![info exists no(database)]} then {
#
# NOTE: Set the server name, if necessary.
#
if {![info exists server]} then {
set server .
}
................................................................................
}
}
#
# NOTE: Has custom test method support been disabled?
#
if {![info exists no(test)]} then {
#
# NOTE: Has script stream testing support been disabled?
#
if {![info exists no(testScriptStream)]} then {
#
# NOTE: For tests "basic-1.46" and "basic-1.47".
#
checkForObjectMember $test_channel Eagle._Tests.Default \
*TestScriptStream*
}
#
# NOTE: Has DateTime testing support been disabled?
#
if {![info exists no(testDateTime)]} then {
#
# NOTE: For test "vwait-1.11".
#
................................................................................
" the baseline\n"]
unset percent
}
###########################################################################
#
# NOTE: Get the source checkout (i.e. of Eagle or whatever project the
# Eagle binaries are being used by).
#
if {![info exists no(fossil)]} then {
set pattern {^checkout:\s+(.*?)\s+$}
if {[catch {set exec [exec -- fossil info]}] || \
[regexp -line -- $pattern $exec dummy checkout] == 0} then {
#
# NOTE: We could not query the source checkout from Fossil.
#
set checkout <none>
}
unset -nocomplain dummy exec pattern
} else {
#
# NOTE: Querying the source checkout from Fossil was disabled.
#
set checkout <none>
}
tputs $test_channel [appendArgs "---- checkout: " \
$checkout \n]
unset checkout
###########################################################################
set timeStamp [getPlatformInfo timeStamp ""]
if {[string length $timeStamp] > 0} then {
#########################################################################
# MONO: Bug, see: https://bugzilla.novell.com/show_bug.cgi?id=479061
#########################################################################
................................................................................
[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] " " \
[list [getPlatformInfo sourceId <none>]] " " \
[list [getPlatformInfo sourceTimeStamp <none>]] \n]
unset timeStamp
tputs $test_channel [appendArgs "---- os: " \
[getPlatformInfo os <none>] \n]
tputs $test_channel [appendArgs "---- globalAssemblyCache: " \
|