Check-in [49d6a04e90]
Overview
Comment:Updated to not force setting of starkit::topdir, this would break starkits

Updated zipseek test to use $tcl_library to find Tclkit root

Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 49d6a04e90cf0395ab085272fa0be24ed10d39b9
User & Date: rkeene on 2011-07-19 19:08:27
Other Links: manifest | tags
Context
2011-07-20
22:52
Added missing build flag check-in: e125d9df77 user: rkeene tags: trunk
2011-07-19
19:08
Updated to not force setting of starkit::topdir, this would break starkits

Updated zipseek test to use $tcl_library to find Tclkit root check-in: 49d6a04e90 user: rkeene tags: trunk

2011-07-18
03:02
Updated to set "starkit::topdir" so that it is always correct, even with KitDLL

Updated mk4vfs zlib compressed seek test to use starkit::topdir check-in: f8234649a5 user: rkeene tags: trunk

Changes

Modified build/test/tests/17-zipseek.tcl from [46ce76b41e] to [4058010f56].

1
2
3
4
5
6
7

8
9
10
11
12
13
14
1
2



3

4
5
6
7
8
9
10
11


-
-
-

-
+







#!/usr/bin/env tclsh

package require starkit
starkit::startup

# Open some file inside the tclkit that will be stored in compressed form
set fd [open [file join $::starkit::topdir boot.tcl]]
set fd [open [file join $::tcl_library init.tcl]]

gets $fd line1

if {[catch {seek $fd 0} result]} {
    puts "Got:      $result"
    puts "Expected: <No Error>"
    exit 1

Modified kitsh/buildsrc/kitsh-0.0/boot.tcl from [1c8e83d483] to [63e41b84b9].

140
141
142
143
144
145
146
147
148
149



150
151
152
153
154
155
156
140
141
142
143
144
145
146



147
148
149
150
151
152
153
154
155
156







-
-
-
+
+
+







		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]] }

	# Set-up starkit::topdir correctly
	namespace eval ::starkit { variable topdir }
	set ::starkit::topdir $mountpoint
	# Set-up starkit::tclkitroot
	namespace eval ::starkit { variable tclkitroot }
	set ::starkit::tclkitroot $mountpoint

	# 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