From: Vince Darley Date: Thu, 25 Apr 2002 14:46:53 +0000 (+0000) Subject: memchan, zip, etc X-Git-Tag: vfs-1-2~54 X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=b3d4e7b3dd768795d7ca3f55f15e3acd2c31c3ea;p=tclvfs memchan, zip, etc --- diff --git a/library/tclIndex b/library/tclIndex index fc27b0a..f057c06 100644 --- 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 8f9802a..ee4a1ed 100644 --- 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 49f103b..830a592 100644 --- 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