From: Vince Darley Date: Tue, 14 Jan 2003 16:05:36 +0000 (+0000) Subject: updated tclIndex and pkgIndex.tcl for tar vfs X-Git-Tag: vfs-1-2~17 X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=2c283377e4e2c9e71cc613d149cba715493ea214;p=tclvfs updated tclIndex and pkgIndex.tcl for tar vfs --- 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 * 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]]