Check-in [0d35af4b22]
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:0d35af4b220ebdcd92c8764ca227323a9039b969
User & Date: rkeene on 2011-05-23 17:50:31
Other Links: 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     71   
    72     72   				seek $::tclKitStorage_fd 0
    73     73   				set vfsHandler [list ::vfs::zip::handler $::tclKitStorage_fd]
    74     74   				unset ::tclKitStorage_fd
    75     75   			}
    76     76   			"cvfs" {
    77     77   				set vfsHandler [list ::vfs::kitdll::vfshandler tcl]
           78  +
           79  +				# Load these, the original Tclkit does so it should be safe.
           80  +				foreach vfsfile [list vfsUtils vfslib] {
           81  +					unset -nocomplain s
           82  +
           83  +					catch {
           84  +						set s [::vfs::kitdll::data::getData tcl "lib/vfs/${vfsfile}.tcl"]
           85  +					}
           86  +
           87  +					if {![info exists s]} {
           88  +						continue
           89  +					}
           90  +
           91  +					uplevel #0 $s
           92  +				}
    78     93   			}
    79     94   		}
    80     95   
    81     96   		# mount the executable, i.e. make all runtime files available
    82     97   		vfs::filesystem mount $mountpoint $vfsHandler
    83     98   
    84     99   		# alter path to find encodings