Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Further enhancements to the new test suite procedures. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | customDataTypes |
| Files: | files | file ages | folders |
| SHA1: |
3febc8dc31735beef21c0fe5bf5b8cd3 |
| User & Date: | mistachkin 2016-06-19 21:24:55.089 |
Context
|
2016-06-19
| ||
| 22:18 | Add and improve doc comments. check-in: 6e7940954d user: mistachkin tags: customDataTypes | |
| 21:24 | Further enhancements to the new test suite procedures. check-in: 3febc8dc31 user: mistachkin tags: customDataTypes | |
| 20:38 | Pass the original connection flags into the invoked parameter binding and data reader callbacks. check-in: 044e580886 user: mistachkin tags: customDataTypes | |
Changes
Changes to lib/System.Data.SQLite/common.eagle.
| ︙ | ︙ | |||
1828 1829 1830 1831 1832 1833 1834 1835 |
}
}
proc getProperties { object varName } {
upvar 1 $varName properties
set count 0
| > > | | | | > | | 1828 1829 1830 1831 1832 1833 1834 1835 1836 1837 1838 1839 1840 1841 1842 1843 1844 1845 1846 1847 1848 1849 1850 1851 1852 1853 1854 1855 1856 |
}
}
proc getProperties { object varName } {
upvar 1 $varName properties
set count 0
set names [list]
if {[isObjectHandle $object] && $object ne "null"} then {
eval lappend names [object members \
-membertypes Property -nameonly $object]
eval lappend names [object members \
-membertypes Field -nameonly $object]
}
foreach name $names {
if {[catch {
object invoke -objectflags +NoDispose $object $name
} value] == 0} then {
if {[isObjectHandle $value] && $value ne "null"} then {
set error null; object invoke -flags +NonPublic \
-marshalflags +NoHandle Interpreter.GetActive \
AddObjectReference Ok $value error
lappend properties(objects) [list $name $value]
} else {
lappend properties(values) [list $name $value]
|
| ︙ | ︙ | |||
1890 1891 1892 1893 1894 1895 1896 1897 1898 1899 1900 1901 1902 1903 |
if {$value eq $object} continue
catch {object dispose $value}
}
unset properties(seenObjects)
}
}
proc enumerableToList { enumerable } {
set result [list]
if {[string length $enumerable] == 0 || $enumerable eq "null"} then {
return $result
}
| > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 1893 1894 1895 1896 1897 1898 1899 1900 1901 1902 1903 1904 1905 1906 1907 1908 1909 1910 1911 1912 1913 1914 1915 1916 1917 1918 1919 1920 1921 1922 1923 1924 1925 1926 1927 1928 1929 1930 1931 1932 1933 1934 1935 1936 1937 1938 1939 1940 1941 1942 1943 |
if {$value eq $object} continue
catch {object dispose $value}
}
unset properties(seenObjects)
}
}
proc getVariables { varNames {objects false} } {
set result [list]
foreach varName $varNames {
if {[uplevel 1 [list array exists $varName]]} then {
set arrayName $varName
foreach elementName [uplevel 1 [list array names $arrayName]] {
set name [appendArgs $arrayName ( $elementName )]
set varValue [uplevel 1 [list set $name]]
if {$objects && [isObjectHandle $varValue]} then {
unset -nocomplain properties
getAllProperties $varValue properties
lappend result [list $name [array get properties]]
} else {
lappend result [list $name $varValue]
}
}
} else {
set varValue [uplevel 1 [list set $varName]]
if {$objects && [isObjectHandle $varValue]} then {
unset -nocomplain properties
getAllProperties $varValue properties
lappend result [list $varName [array get properties]]
} else {
lappend result [list $varName $varValue]
}
}
}
return $result
}
proc enumerableToList { enumerable } {
set result [list]
if {[string length $enumerable] == 0 || $enumerable eq "null"} then {
return $result
}
|
| ︙ | ︙ |