Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | More improvements to test suite infrastructure helper procedures. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | customDataTypes |
| Files: | files | file ages | folders |
| SHA1: |
822b7c577c628e3bb3d6bbd5802ccf6c |
| User & Date: | mistachkin 2016-06-20 04:50:46 |
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
2120
2121
2122
2123
2124
2125
2126
2127
....
2187
2188
2189
2190
2191
2192
2193
2194
2195
2196
2197
2198
2199
2200
|
#
# 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}]
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 {
................................................................................
![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)] || \
|
|
>
>
>
>
>
>
>
>
|
2113
2114
2115
2116
2117
2118
2119
2120
2121
2122
2123
2124
2125
2126
2127
2128
....
2188
2189
2190
2191
2192
2193
2194
2195
2196
2197
2198
2199
2200
2201
2202
2203
2204
2205
2206
2207
2208
|
#
# 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 {
................................................................................
![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)] || \
|