Differences From Artifact [19424b6588]:
- File kitsh/buildsrc/kitsh-0.0/boot.tcl — part of check-in [878ff79575] at 2011-05-24 06:05:19 on branch merge-kitdll-kitsh-common — Updated all references to the KitDLL VFS to be "CVFS" (user: rkeene, size: 5557) [annotate] [blame] [check-ins using] [more...]
To Artifact [fcd5a93523]:
- File
kitsh/buildsrc/kitsh-0.0/boot.tcl
— part of check-in
[d5ed5900eb]
at
2011-05-28 23:53:40
on branch trunk
— Updated to only mount VFS once
Updated to always load "vfs" (user: rkeene, size: 5496) [annotate] [blame] [check-ins using] [more...]
︙ | |||
10 11 12 13 14 15 16 | 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | - - - - | set mountpoint [file dirname [file normalize [file join $mountpoint __dummy__]]] set tcl_library [file join $mountpoint lib tcl$tcl_version] set tcl_libPath [list $tcl_library [file join $mountpoint lib]] # the following code only gets executed once on startup if {[info exists ::TCLKIT_INITVFS]} { |
︙ | |||
133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 | 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 | + + + + + - - - - - - + - + - | # Resolve symlinks set mountpoint [file dirname [file normalize [file join $mountpoint __dummy__]]] set tcl_library [file join $mountpoint lib tcl$tcl_version] set tcl_libPath [list $tcl_library [file join $mountpoint lib]] vfs::filesystem mount $mountpoint $vfsHandler # This loads everything needed for "clock scan" to work # "clock scan" is used within "vfs::zip", which may be # loaded before this is run causing the root VFS to break catch { clock scan } } # load config settings file if present namespace eval ::vfs { variable tclkit_version 1 } catch { uplevel #0 [list source [file join $mountpoint config.tcl]] } # Perform expected initialization uplevel #0 [list source [file join $tcl_library init.tcl]] # reset auto_path, so that init.tcl's search outside of tclkit is cancelled set auto_path $tcl_libPath |