From 313e55634f09bbae5e778d7120a4c3d02dd60390 Mon Sep 17 00:00:00 2001 From: Pat Thoyts Date: Thu, 16 Apr 2009 13:38:18 +0000 Subject: [PATCH] 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 --- setupvfs.tcl | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) 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]} { -- 2.23.0