Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | better error handling w.r.t. check-in [f125b3dc59] |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
4dcaf5f047bb76036e8b17dd9ef36ed7 |
| User & Date: | chw 2019-07-13 20:55:07 |
Context
|
2019-07-16
| ||
| 04:55 | add tk upstream changes check-in: ac417d65fd user: chw tags: trunk | |
|
2019-07-13
| ||
| 20:56 | merge with trunk check-in: f7fcb93321 user: chw tags: wtf-8-experiment | |
| 20:55 | better error handling w.r.t. check-in [f125b3dc59] check-in: 4dcaf5f047 user: chw tags: trunk | |
| 13:56 | add snap7 and libmodbus to macosx build scripts check-in: 01b76f6c19 user: chw tags: trunk | |
Changes
Changes to jni/tclkit/vqtcl/library/mkclvfs.tcl.
32 33 34 35 36 37 38 39 40 41 42 43 44 45 |
set done 0
if {![catch {::file system $mkfile} fs] && ($fs ne "native")} {
if {![catch {::open $mkfile rb} f]} {
if {![catch {::read $f} data]} {
::close $f
set v::rootv($db) [vget [vload $data] 0 dirs]
set done 1
}
}
}
if {!$done} {
set v::rootv($db) [vget [vopen $mkfile] 0 dirs]
}
set v::dname($db) [vget $v::rootv($db) * name]
|
> > |
32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 |
set done 0
if {![catch {::file system $mkfile} fs] && ($fs ne "native")} {
if {![catch {::open $mkfile rb} f]} {
if {![catch {::read $f} data]} {
::close $f
set v::rootv($db) [vget [vload $data] 0 dirs]
set done 1
} else {
::close $f
}
}
}
if {!$done} {
set v::rootv($db) [vget [vopen $mkfile] 0 dirs]
}
set v::dname($db) [vget $v::rootv($db) * name]
|