Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Correction to the new test suite helper procedures. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | customDataTypes |
| Files: | files | file ages | folders |
| SHA1: |
fd2ed795c186858f2fc5e4d0a1da8234 |
| User & Date: | mistachkin 2016-06-19 20:17:10 |
Context
|
2016-06-19
| ||
| 20:28 | When invoking a data reader callback, pass in the method name that was responsible for invoking it. check-in: 5bead76447 user: mistachkin tags: customDataTypes | |
| 20:17 | Correction to the new test suite helper procedures. check-in: fd2ed795c1 user: mistachkin tags: customDataTypes | |
| 08:22 | Add some procedures to the test suite infrastructure. check-in: d593d900ac user: mistachkin tags: customDataTypes | |
Changes
Changes to lib/System.Data.SQLite/common.eagle.
1828
1829
1830
1831
1832
1833
1834
1835
1836
1837
1838
1839
1840
1841
1842
....
1878
1879
1880
1881
1882
1883
1884
1885
1886
1887
1888
1889
1890
1891
|
}
}
proc getProperties { object varName } {
upvar 1 $varName properties
set count 0
set names [object members -membertypes Property -nameonly $object]
foreach name $names {
if {[catch {
object invoke -objectflags +NoDispose $object $name
} value] == 0} then {
if {[isObjectHandle $value]} then {
set error null; object invoke -flags +NonPublic \
................................................................................
set value [lindex [lindex $properties(objects) 0] end]
set properties(objects) [lrange $properties(objects) 1 end]
}
if {[info exists properties(seenObjects)]} then {
foreach value $properties(seenObjects) {
catch {object dispose $value}
}
unset properties(seenObjects)
}
}
|
>
>
|
>
>
>
>
|
1828
1829
1830
1831
1832
1833
1834
1835
1836
1837
1838
1839
1840
1841
1842
1843
1844
1845
1846
1847
....
1883
1884
1885
1886
1887
1888
1889
1890
1891
1892
1893
1894
1895
1896
1897
|
}
}
proc getProperties { object varName } {
upvar 1 $varName properties
set count 0
set 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]} then {
set error null; object invoke -flags +NonPublic \
................................................................................
set value [lindex [lindex $properties(objects) 0] end]
set properties(objects) [lrange $properties(objects) 1 end]
}
if {[info exists properties(seenObjects)]} then {
foreach value $properties(seenObjects) {
if {$value eq $object} continue
catch {object dispose $value}
}
unset properties(seenObjects)
}
}
|