Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | More improvements to test suite infrastructure helper procedures. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | customDataTypes |
| Files: | files | file ages | folders |
| SHA1: |
822b7c577c628e3bb3d6bbd5802ccf6c |
| User & Date: | mistachkin 2016-06-20 04:50:46.102 |
Context
|
2016-06-20
| ||
| 04:51 | When looking up type callbacks, permit the parameter name to be used if the appropriate connection flag is set. check-in: e268cdb240 user: mistachkin tags: customDataTypes | |
| 04:50 | More improvements to test suite infrastructure helper procedures. check-in: 822b7c577c user: mistachkin tags: customDataTypes | |
| 03:25 | Fix typo in the BindValueUserData property. check-in: 9449fba6d8 user: mistachkin tags: customDataTypes | |
Changes
Changes to lib/System.Data.SQLite/common.eagle.
| ︙ | ︙ | |||
2113 2114 2115 2116 2117 2118 2119 |
#
# NOTE: If the string conforms to format of the normal exception
# error strings, extract and return only the error message
# portion itself.
#
set patterns [list \
{System\.Data\.SQLite\.SQLiteException \(0x80004005\): (.+?) (?: )?at} \
| | > | 2113 2114 2115 2116 2117 2118 2119 2120 2121 2122 2123 2124 2125 2126 2127 2128 |
#
# NOTE: If the string conforms to format of the normal exception
# error strings, extract and return only the error message
# portion itself.
#
set patterns [list \
{System\.Data\.SQLite\.SQLiteException \(0x80004005\): (.+?) (?: )?at} \
{System\.Data\.SQLite\.SQLiteException: (.+?) (?: )?at} \
{Eagle\._Components\.Public\.ScriptException: (.+?) (?: )?at}]
foreach pattern $patterns {
if {[regexp -- $pattern $value dummy message]} then {
set message [string map [list \r\n \n] [string trim $message]]
set lines [split $message \n]
if {[llength $lines] == 2} then {
|
| ︙ | ︙ | |||
2187 2188 2189 2190 2191 2192 2193 2194 2195 2196 2197 2198 2199 2200 |
![array exists ::dataSource]} then {
set database [appendArgs "data source \"" $::dataSource \"]
} else {
set database <unknown>
}
}
#
# NOTE: Show (and log) the local connection flags and the associated
# data source or file name.
#
if {!$quiet} then {
if {![info exists ::no(emitLocalFlags)] && \
(![info exists ::no(emitLocalFlagsIfNone)] || \
| > > > > > > > | 2188 2189 2190 2191 2192 2193 2194 2195 2196 2197 2198 2199 2200 2201 2202 2203 2204 2205 2206 2207 2208 |
![array exists ::dataSource]} then {
set database [appendArgs "data source \"" $::dataSource \"]
} else {
set database <unknown>
}
}
#
# NOTE: Even though there is only one source of flags so far, they
# must be combined using the correct syntax for enumerated
# flag values for the .NET Framework.
#
set flags [combineFlags $flags ""]
#
# NOTE: Show (and log) the local connection flags and the associated
# data source or file name.
#
if {!$quiet} then {
if {![info exists ::no(emitLocalFlags)] && \
(![info exists ::no(emitLocalFlagsIfNone)] || \
|
| ︙ | ︙ |