From 2c283377e4e2c9e71cc613d149cba715493ea214 Mon Sep 17 00:00:00 2001
From: Vince Darley <vincentdarley@sourceforge.net>
Date: Tue, 14 Jan 2003 16:05:36 +0000
Subject: [PATCH] updated tclIndex and pkgIndex.tcl for tar vfs

---
 ChangeLog            |  3 +++
 library/pkgIndex.tcl |  3 +++
 library/tclIndex     | 29 ++++++++++++++++++++++++++++-
 3 files changed, 34 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index ca7ee5a..de184e2 100644
--- 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 bd460b1..0c81802 100644
--- 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 239af8f..2cf833e 100644
--- 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]]
-- 
2.23.0