Check-in [64818401f4]
Overview
Comment:Updated KitDLL to load the vfslib, to make vfs::zip work
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 64818401f4db9114f3fd45219819e848672618bc
User & Date: rkeene on 2010-10-03 19:09:48
Other Links: manifest | tags
Context
2010-10-03
21:01
Added Metakit test check-in: bbc27a0fd1 user: rkeene tags: trunk
19:09
Updated KitDLL to load the vfslib, to make vfs::zip work check-in: 64818401f4 user: rkeene tags: trunk
2010-10-02
09:30
Updated to statically link to libz if possible check-in: 13e2385169 user: rkeene tags: trunk
Changes

Modified kitdll/buildsrc/kitdll-0.0/boot.tcl from [2b2126d5c0] to [fdb0ceb95b].

70
71
72
73
74
75
76

77

78
79
80
81
82
83
84

	# 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 these, the original Tclkit does so it should be safe.

	uplevel #0 [list source [file join $tcl_mountpoint lib vfs vfsUtils.tcl]]


	# Set a maximum seek to avoid reading the entire DLL looking for a
	# zip header
	catch {
		package require vfs::zip
		set ::zip::max_header_seek 8192
	}







>
|
>







70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86

	# 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 these, the original Tclkit does so it should be safe.
	foreach vfsfile [list vfsUtils vfslib] {
		uplevel #0 [list source [file join $tcl_mountpoint lib vfs ${vfsfile}.tcl]]
	}

	# Set a maximum seek to avoid reading the entire DLL looking for a
	# zip header
	catch {
		package require vfs::zip
		set ::zip::max_header_seek 8192
	}