KitCreator
Check-in [49d6a04e90]
Login
HomeDownloadsSource CodeTicketsWiki
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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

#!/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]]

gets $fd line1

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



<
<
<

|








1
2



3
4
5
6
7
8
9
10
11

#!/usr/bin/env tclsh




# Open some file inside the tclkit that will be stored in compressed form
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

		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

	# 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









|
|
|








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::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
︙︙

Powered by Fossil · RSS