memchan, zip, etc

diff --git a/library/tclIndex b/library/tclIndex
index fc27b0a3682f1e349021dcaed8b7cbaea0a5945a..f057c0605e066763db675653e377053bf5d6647a 100644 (file)
--- a/library/tclIndex
+++ b/library/tclIndex
@@ -14,6 +14,7 @@ set auto_index(::vfs::ftp::access) [list source [file join $dir ftpvfs.tcl]]
 set auto_index(::vfs::ftp::open) [list source [file join $dir ftpvfs.tcl]]
 set auto_index(::vfs::ftp::_closing) [list source [file join $dir ftpvfs.tcl]]
 set auto_index(::vfs::ftp::_findFtpInfo) [list source [file join $dir ftpvfs.tcl]]
+set auto_index(::vfs::ftp::_parseListLine) [list source [file join $dir ftpvfs.tcl]]
 set auto_index(::vfs::ftp::matchindirectory) [list source [file join $dir ftpvfs.tcl]]
 set auto_index(::vfs::ftp::createdirectory) [list source [file join $dir ftpvfs.tcl]]
 set auto_index(::vfs::ftp::removedirectory) [list source [file join $dir ftpvfs.tcl]]
@@ -26,7 +27,6 @@ set auto_index(::vfs::http::handler) [list source [file join $dir httpvfs.tcl]]
 set auto_index(::vfs::http::stat) [list source [file join $dir httpvfs.tcl]]
 set auto_index(::vfs::http::access) [list source [file join $dir httpvfs.tcl]]
 set auto_index(::vfs::http::open) [list source [file join $dir httpvfs.tcl]]
-set auto_index(::vfs::http::_findHttpInfo) [list source [file join $dir httpvfs.tcl]]
 set auto_index(::vfs::http::matchindirectory) [list source [file join $dir httpvfs.tcl]]
 set auto_index(::vfs::http::createdirectory) [list source [file join $dir httpvfs.tcl]]
 set auto_index(::vfs::http::removedirectory) [list source [file join $dir httpvfs.tcl]]
@@ -47,19 +47,16 @@ set auto_index(::vfs::mk4::deletefile) [list source [file join $dir mk4vfs.tcl]]
 set auto_index(::vfs::mk4::fileattributes) [list source [file join $dir mk4vfs.tcl]]
 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::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::driver) [list source [file join $dir mk4vfs.tcl]]
 set auto_index(::mk4vfs::do_close) [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(::mk4vfs::find/file) [list source [file join $dir mk4vfs.tcl]]
-set auto_index(::mk4vfs::find/dir) [list source [file join $dir mk4vfs.tcl]]
-set auto_index(::scripdoc::init) [list source [file join $dir scripdoc.tcl]]
-set auto_index(::scripdoc::extendPath) [list source [file join $dir scripdoc.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]]
@@ -86,8 +83,9 @@ 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::debug) [list source [file join $dir vfs.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]]
 set auto_index(::vfs::urltype::handler) [list source [file join $dir vfsUrl.tcl]]
 set auto_index(::vfs::urltype::stat) [list source [file join $dir vfsUrl.tcl]]
 set auto_index(::vfs::urltype::open) [list source [file join $dir vfsUrl.tcl]]
@@ -98,9 +96,9 @@ set auto_index(::vfs::urltype::removedirectory) [list source [file join $dir vfs
 set auto_index(::vfs::urltype::deletefile) [list source [file join $dir vfsUrl.tcl]]
 set auto_index(::vfs::urltype::fileattributes) [list source [file join $dir vfsUrl.tcl]]
 set auto_index(::vfs::urltype::utime) [list source [file join $dir vfsUrl.tcl]]
-set auto_index(::vfs::listVolumes) [list source [file join $dir vfsUtils.tcl]]
-set auto_index(::vfs::addVolume) [list source [file join $dir vfsUtils.tcl]]
-set auto_index(::vfs::removeVolume) [list source [file join $dir vfsUtils.tcl]]
+set auto_index(::vfs::memchan) [list source [file join $dir vfsUtils.tcl]]
+set auto_index(::vfs::zlib) [list source [file join $dir vfsUtils.tcl]]
+set auto_index(::vfs::zip) [list source [file join $dir vfsUtils.tcl]]
 set auto_index(::vfs::autoMountExtension) [list source [file join $dir vfsUtils.tcl]]
 set auto_index(::vfs::autoMountUrl) [list source [file join $dir vfsUtils.tcl]]
 set auto_index(::vfs::log) [list source [file join $dir vfsUtils.tcl]]

diff --git a/library/vfsUtils.tcl b/library/vfsUtils.tcl
index 8f9802abd3c50b09b34488d0257aeb4baae12f1c..ee4a1ed4983764a66a56c647c13b8f66d9f30748 100644 (file)
--- a/library/vfsUtils.tcl
+++ b/library/vfsUtils.tcl
@@ -21,7 +21,7 @@ proc ::vfs::zlib {args} {
     uplevel 1 ::zlib $args
 }
 
-# This can be overridden to use a different zlib implementation
+# This can be overridden to use a different zip implementation
 proc ::vfs::zip {args} {
     ::package require Trf
     uplevel 1 ::zip $args

diff --git a/library/zipvfs.tcl b/library/zipvfs.tcl
index 49f103b4b9364e3e85fe64b86c0a903c863a8b51..830a592586fd49af23b1bdf122a18ca1b11aa01d 100644 (file)
--- a/library/zipvfs.tcl
+++ b/library/zipvfs.tcl
@@ -290,7 +290,7 @@ proc zip::Data {fd arr {varPtr ""} {verify 0}} {
 
     if { $sb(method) != 0 } {
        if { [catch {
-           set data [vfs::zlib decompress $data]
+           set data [vfs::zip -mode decompress -nowrap 1 $data]
        } err] } {
            ::vfs::log "$sb(name): inflate error: $err"
            binary scan $data H* x