updated tclIndex and pkgIndex.tcl for tar vfs

diff --git a/ChangeLog b/ChangeLog
index ca7ee5afc6f327723842070d33b05df35c0d09f8..de184e2e24afd056b95af9e933ffa9a90f14025c 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,9 @@
        * library/tarvfs.tcl: new 'tar' filesystem courtesy of Stefan
        Vogel -- many thanks!  The tar vfs is currently read-only and
        doesn't support .tgz.
+       * library/tclIndex:
+       * library/pkgIndex.tcl:
+       * library/vfsUtils.tcl: updated for new tar vfs.
        
 2003-01-06  Vince Darley <vincentdarley@sourceforge.net>
        * library/ftpvfs.tcl: allow 'file mtime' to set the modified

diff --git a/library/pkgIndex.tcl b/library/pkgIndex.tcl
index bd460b13fd4ff95f5a2f5b290ef9808adc812e86..0c81802bf12e9270758399805d398bd4e50b9a66 100644 (file)
--- a/library/pkgIndex.tcl
+++ b/library/pkgIndex.tcl
@@ -41,3 +41,6 @@ package ifneeded vfs 1.0 [list loadvfs $dll]
 package ifneeded mk4vfs 1.6 [list source [file join $dir mk4vfs.tcl]]
 package ifneeded starkit 1.0 [list source [file join $dir starkit.tcl]]
 package ifneeded vfslib 1.3 [list source [file join $dir vfslib.tcl]]
+
+package ifneeded tarvfs 0.1 [list source [file join $dir tarvfs.tcl]]
+package ifneeded zipvfs 1.0 [list source [file join $dir zipvfs.tcl]]

diff --git a/library/tclIndex b/library/tclIndex
index 239af8f2b1481d1bf6f37c1114d090b78b25e7f8..2cf833eb91a87265feea7ece52c2c88ee061b450 100644 (file)
--- a/library/tclIndex
+++ b/library/tclIndex
@@ -48,16 +48,41 @@ set auto_index(::vfs::mk4::fileattributes) [list source [file join $dir mk4vfs.t
 set auto_index(::mk4vfs::init) [list source [file join $dir mk4vfs.tcl]]
 set auto_index(::mk4vfs::mount) [list source [file join $dir mk4vfs.tcl]]
 set auto_index(::mk4vfs::_mount) [list source [file join $dir mk4vfs.tcl]]
-set auto_index(::mk4vfs::_commit) [list source [file join $dir mk4vfs.tcl]]
+set auto_index(::mk4vfs::periodicCommit) [list source [file join $dir mk4vfs.tcl]]
 set auto_index(::mk4vfs::umount) [list source [file join $dir mk4vfs.tcl]]
 set auto_index(::mk4vfs::_umount) [list source [file join $dir mk4vfs.tcl]]
 set auto_index(::mk4vfs::stat) [list source [file join $dir mk4vfs.tcl]]
 set auto_index(::mk4vfs::do_close) [list source [file join $dir mk4vfs.tcl]]
+set auto_index(::mk4vfs::setupCommits) [list source [file join $dir mk4vfs.tcl]]
 set auto_index(::mk4vfs::mkdir) [list source [file join $dir mk4vfs.tcl]]
 set auto_index(::mk4vfs::getdir) [list source [file join $dir mk4vfs.tcl]]
 set auto_index(::mk4vfs::mtime) [list source [file join $dir mk4vfs.tcl]]
 set auto_index(::mk4vfs::delete) [list source [file join $dir mk4vfs.tcl]]
 set auto_index(loadvfs) [list source [file join $dir pkgIndex.tcl]]
+set auto_index(::starkit::header) [list source [file join $dir starkit.tcl]]
+set auto_index(::starkit::startup) [list source [file join $dir starkit.tcl]]
+set auto_index(::starkit::autoextend) [list source [file join $dir starkit.tcl]]
+set auto_index(::starkit::remount) [list source [file join $dir starkit.tcl]]
+set auto_index(::starkit::panic) [list source [file join $dir starkit.tcl]]
+set auto_index(::vfs::tar::Mount) [list source [file join $dir tarvfs.tcl]]
+set auto_index(::vfs::tar::Unmount) [list source [file join $dir tarvfs.tcl]]
+set auto_index(::vfs::tar::handler) [list source [file join $dir tarvfs.tcl]]
+set auto_index(::vfs::tar::matchindirectory) [list source [file join $dir tarvfs.tcl]]
+set auto_index(::vfs::tar::stat) [list source [file join $dir tarvfs.tcl]]
+set auto_index(::vfs::tar::access) [list source [file join $dir tarvfs.tcl]]
+set auto_index(::vfs::tar::open) [list source [file join $dir tarvfs.tcl]]
+set auto_index(::vfs::tar::createdirectory) [list source [file join $dir tarvfs.tcl]]
+set auto_index(::vfs::tar::removedirectory) [list source [file join $dir tarvfs.tcl]]
+set auto_index(::vfs::tar::deletefile) [list source [file join $dir tarvfs.tcl]]
+set auto_index(::vfs::tar::fileattributes) [list source [file join $dir tarvfs.tcl]]
+set auto_index(::vfs::tar::utime) [list source [file join $dir tarvfs.tcl]]
+set auto_index(::tar::Data) [list source [file join $dir tarvfs.tcl]]
+set auto_index(::tar::TOC) [list source [file join $dir tarvfs.tcl]]
+set auto_index(::tar::open) [list source [file join $dir tarvfs.tcl]]
+set auto_index(::tar::exists) [list source [file join $dir tarvfs.tcl]]
+set auto_index(::tar::stat) [list source [file join $dir tarvfs.tcl]]
+set auto_index(::tar::getdir) [list source [file join $dir tarvfs.tcl]]
+set auto_index(::tar::_close) [list source [file join $dir tarvfs.tcl]]
 set auto_index(::vfs::ns::Mount) [list source [file join $dir tclprocvfs.tcl]]
 set auto_index(::vfs::ns::Unmount) [list source [file join $dir tclprocvfs.tcl]]
 set auto_index(::vfs::ns::handler) [list source [file join $dir tclprocvfs.tcl]]
@@ -84,6 +109,7 @@ set auto_index(::vfs::test::removedirectory) [list source [file join $dir testvf
 set auto_index(::vfs::test::deletefile) [list source [file join $dir testvfs.tcl]]
 set auto_index(::vfs::test::fileattributes) [list source [file join $dir testvfs.tcl]]
 set auto_index(::vfs::test::utime) [list source [file join $dir testvfs.tcl]]
+set auto_index(::vfs::normalize) [list source [file join $dir vfslib.tcl]]
 set auto_index(::vfs::urltype::Mount) [list source [file join $dir vfsUrl.tcl]]
 set auto_index(::vfs::urltype::Unmount) [list source [file join $dir vfsUrl.tcl]]
 set auto_index(::vfs::urltype::_typeToMount) [list source [file join $dir vfsUrl.tcl]]
@@ -127,6 +153,7 @@ set auto_index(::vfs::webdav::stat) [list source [file join $dir webdavvfs.tcl]]
 set auto_index(::vfs::webdav::access) [list source [file join $dir webdavvfs.tcl]]
 set auto_index(::vfs::webdav::open) [list source [file join $dir webdavvfs.tcl]]
 set auto_index(::vfs::webdav::matchindirectory) [list source [file join $dir webdavvfs.tcl]]
+set auto_index(::vfs::webdav::_matchtypes) [list source [file join $dir webdavvfs.tcl]]
 set auto_index(::vfs::webdav::createdirectory) [list source [file join $dir webdavvfs.tcl]]
 set auto_index(::vfs::webdav::removedirectory) [list source [file join $dir webdavvfs.tcl]]
 set auto_index(::vfs::webdav::deletefile) [list source [file join $dir webdavvfs.tcl]]