Check-in [4dcaf5f047]
Not logged in

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: 4dcaf5f047bb76036e8b17dd9ef36ed7afb14285
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
Unified Diff Ignore Whitespace Patch
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]