From: Pat Thoyts <patthoyts@users.sourceforge.net>
Date: Thu, 16 Apr 2009 13:38:18 +0000 (+0000)
Subject: fix vfs package index generation for version 1.4.
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=313e55634f09bbae5e778d7120a4c3d02dd60390;p=kitgen

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 ce10e37..b62c44b 100644
--- 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]} {