Check-in [0d35af4b22]
Overview
SHA1:0d35af4b220ebdcd92c8764ca227323a9039b969
Date: 2011-05-23 17:50:31
User: rkeene
Comment:Updated to load vfs files from initial VFS
Timelines: family | ancestors | descendants | both | merge-kitdll-kitsh-common
Downloads: Tarball | ZIP archive
Other Links: files | file ages | folders | manifest
Tags And Properties
Context
2011-05-23
17:55
[3510b6d25d] Removed kitdll pre code (user: rkeene, tags: merge-kitdll-kitsh-common)
17:50
[0d35af4b22] Updated to load vfs files from initial VFS (user: rkeene, tags: merge-kitdll-kitsh-common)
17:30
[3b0581b604] Updated location to build "tclsh" to coorespond to new location (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