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      1   #!/usr/bin/env tclsh
     2      2   
     3         -package require starkit
     4         -starkit::startup
     5         -
     6      3   # Open some file inside the tclkit that will be stored in compressed form
     7         -set fd [open [file join $::starkit::topdir boot.tcl]]
            4  +set fd [open [file join $::tcl_library init.tcl]]
     8      5   
     9      6   gets $fd line1
    10      7   
    11      8   if {[catch {seek $fd 0} result]} {
    12      9       puts "Got:      $result"
    13     10       puts "Expected: <No Error>"
    14     11       exit 1

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

   140    140   		catch { clock scan }
   141    141   	}
   142    142     
   143    143   	# load config settings file if present
   144    144   	namespace eval ::vfs { variable tclkit_version 1 }
   145    145   	catch { uplevel #0 [list source [file join $mountpoint config.tcl]] }
   146    146   
   147         -	# Set-up starkit::topdir correctly
   148         -	namespace eval ::starkit { variable topdir }
   149         -	set ::starkit::topdir $mountpoint
          147  +	# Set-up starkit::tclkitroot
          148  +	namespace eval ::starkit { variable tclkitroot }
          149  +	set ::starkit::tclkitroot $mountpoint
   150    150   
   151    151   	# Perform expected initialization
   152    152   	uplevel #0 [list source [file join $tcl_library init.tcl]]
   153    153     
   154    154   	# reset auto_path, so that init.tcl's search outside of tclkit is cancelled
   155    155   	set auto_path $tcl_libPath
   156    156