From 920b9ebc064142deffcb08f1195a382ea8057e16 Mon Sep 17 00:00:00 2001 From: Pat Thoyts Date: Thu, 5 Apr 2007 22:57:52 +0000 Subject: [PATCH] Fix vfs pkgIndex for tclkits which link this in statically git-svn-id: svn://svn.equi4.com/kitgen/trunk@1405 9e558909-932a-0410-a563-af77432da1eb --- files/vfs1.3-pkgIndex.tcl | 20 +------------------- 1 file changed, 1 insertion(+), 19 deletions(-) diff --git a/files/vfs1.3-pkgIndex.tcl b/files/vfs1.3-pkgIndex.tcl index 928659a..8fef31a 100644 --- a/files/vfs1.3-pkgIndex.tcl +++ b/files/vfs1.3-pkgIndex.tcl @@ -1,25 +1,7 @@ -namespace eval ::vfs {} -variable vfs::dll [file join $dir libvfs1.3.dylib] - -proc loadvfs {dll} { - global auto_path - if {![file exists $dll]} { return } - set dir [file dirname $dll] - if {[lsearch -exact $auto_path $dir] == -1} { - lappend auto_path $dir - } - load $dll -} - -package ifneeded vfs 1.3 [list loadvfs $vfs::dll] - -# Allow optional redirect of VFS_LIBRARY components. Only necessary -# for testing, but could be used elsewhere. -if {[info exists ::env(VFS_LIBRARY)]} { set dir $::env(VFS_LIBRARY) } +package ifneeded vfs 1.3 [list load {} vfs] package ifneeded starkit 1.3.1 [list source [file join $dir starkit.tcl]] package ifneeded vfslib 1.3.1 [list source [file join $dir vfslib.tcl]] package ifneeded vfs::mk4 1.10 [list source [file join $dir mk4vfs.tcl]] package ifneeded vfs::zip 1.0 [list source [file join $dir zipvfs.tcl]] - #compat package ifneeded mk4vfs 1.10 [list source [file join $dir mk4vfs.tcl]] -- 2.23.0