+2005-11-01 Jean-Claude Wippler <jcw@equi4.com>
+
+ * library/mkclvfs.tcl: renamed vlerq package to thrill
+ * pkgIndex.tcl.in, library/pkgIndex.tcl: bumped to 1.1
+
2005-10-19 Jean-Claude Wippler <jcw@equi4.com>
* library/mk4vfs.tcl: added fallback to new vfs::mkcl
# Rewritten from mk4vfs.tcl, orig by by Matt Newman and Jean-Claude Wippler
# $Id$
-package provide vfs::mkcl 1.0
+package provide vfs::mkcl 1.1
package require vfs
-package require vlerq
+package require thrill
namespace eval vfs::mkcl {
- namespace import ::vlerq::*
+ namespace import ::thrill::*
namespace eval v {
variable seq 0 ;# used to generate a unique db handle
# public
proc Mount {mkfile local args} {
set db mkclvfs[incr v::seq]
- set v::rootv($db) [view [vlerq::vopen $mkfile] get 0 dirs]
+ set v::rootv($db) [view [vopen $mkfile] get 0 dirs]
set v::dname($db) [view $v::rootv($db) getcol 0]
set v::prows($db) [view $v::rootv($db) getcol 1]
::vfs::filesystem mount $local [list ::vfs::mkcl::handler $db]
package ifneeded vfs::ftp 1.0 [list source [file join $dir ftpvfs.tcl]]
package ifneeded vfs::http 0.5 [list source [file join $dir httpvfs.tcl]]
package ifneeded vfs::mk4 1.10 [list source [file join $dir mk4vfs.tcl]]
-package ifneeded vfs::mkcl 1.0 [list source [file join $dir mkclvfs.tcl]]
+package ifneeded vfs::mkcl 1.1 [list source [file join $dir mkclvfs.tcl]]
package ifneeded vfs::ns 0.5 [list source [file join $dir tclprocvfs.tcl]]
package ifneeded vfs::tar 0.9 [list source [file join $dir tarvfs.tcl]]
package ifneeded vfs::test 1.0 [list source [file join $dir testvfs.tcl]]
package ifneeded vfs::ftp 1.0 [list source [file join $dir ftpvfs.tcl]]
package ifneeded vfs::http 0.5 [list source [file join $dir httpvfs.tcl]]
package ifneeded vfs::mk4 1.10 [list source [file join $dir mk4vfs.tcl]]
-package ifneeded vfs::mkcl 1.0 [list source [file join $dir mkclvfs.tcl]]
+package ifneeded vfs::mkcl 1.1 [list source [file join $dir mkclvfs.tcl]]
package ifneeded vfs::ns 0.5 [list source [file join $dir tclprocvfs.tcl]]
package ifneeded vfs::tar 0.9 [list source [file join $dir tarvfs.tcl]]
package ifneeded vfs::test 1.0 [list source [file join $dir testvfs.tcl]]