fix vfs package index generation for version 1.4.

This is needed to fix loading the vfs package into child interpreters.

git-svn-id: svn://svn.equi4.com/kitgen/trunk@4471 9e558909-932a-0410-a563-af77432da1eb

diff --git a/setupvfs.tcl b/setupvfs.tcl
index ce10e37d7e5cf2bde1f050ca566657e75a162640..b62c44b2da4bd627933e7c162e0b56584ae95b6b 100644 (file)
--- a/setupvfs.tcl
+++ b/setupvfs.tcl
@@ -242,8 +242,12 @@ proc mk_tclvfs_index {src} {
   global versmap
   set fin [open $src r]
   set fout [open ${src}.tclkit w]
-  puts $fout [string map $versmap \
-    "package ifneeded vfs [package provide vfs] \[list load {} vfs\]"]
+  set script [string map [list @V [package provide vfs]] {
+      package ifneeded vfs @V "load {} vfs;\
+          source \[file join [list $dir] vfsUtils.tcl\];\
+          source \[file join [list $dir] vfslib.tcl\]"
+  }]
+  puts $fout $script
   while {[gets $fin line] != -1} {
     foreach pkg {starkit vfslib vfs::mk4 vfs::zip vfs::tar mk4vfs} {
       if {[string match "package ifneeded $pkg *" $line]} {