Overview
| Comment: | Updated to load vfs files from initial VFS |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | merge-kitdll-kitsh-common |
| Files: | files | file ages | folders |
| SHA1: |
0d35af4b220ebdcd92c8764ca227323a |
| User & Date: | rkeene on 2011-05-23 17:50:31 |
| Other Links: | branch diff | manifest | tags |
Context
|
2011-05-23
| ||
| 17:55 | Removed kitdll pre code check-in: 3510b6d25d user: rkeene tags: merge-kitdll-kitsh-common | |
| 17:50 | Updated to load vfs files from initial VFS check-in: 0d35af4b22 user: rkeene tags: merge-kitdll-kitsh-common | |
| 17:30 | Updated location to build "tclsh" to coorespond to new location check-in: 3b0581b604 user: rkeene tags: merge-kitdll-kitsh-common | |
Changes
Modified kitsh/buildsrc/kitsh-0.0/boot.tcl from [4987d39e91] to [29ebce96a4].
| ︙ | ︙ | |||
71 72 73 74 75 76 77 78 79 80 81 82 83 84 |
seek $::tclKitStorage_fd 0
set vfsHandler [list ::vfs::zip::handler $::tclKitStorage_fd]
unset ::tclKitStorage_fd
}
"cvfs" {
set vfsHandler [list ::vfs::kitdll::vfshandler tcl]
}
}
# mount the executable, i.e. make all runtime files available
vfs::filesystem mount $mountpoint $vfsHandler
# alter path to find encodings
| > > > > > > > > > > > > > > > | 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 |
seek $::tclKitStorage_fd 0
set vfsHandler [list ::vfs::zip::handler $::tclKitStorage_fd]
unset ::tclKitStorage_fd
}
"cvfs" {
set vfsHandler [list ::vfs::kitdll::vfshandler tcl]
# Load these, the original Tclkit does so it should be safe.
foreach vfsfile [list vfsUtils vfslib] {
unset -nocomplain s
catch {
set s [::vfs::kitdll::data::getData tcl "lib/vfs/${vfsfile}.tcl"]
}
if {![info exists s]} {
continue
}
uplevel #0 $s
}
}
}
# mount the executable, i.e. make all runtime files available
vfs::filesystem mount $mountpoint $vfsHandler
# alter path to find encodings
|
| ︙ | ︙ |