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.709 |
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] |
︙ | ︙ |