From: Jean-Claude Wippler <jcw@equi4.com>
Date: Tue, 1 Nov 2005 21:28:41 +0000 (+0000)
Subject: updated pkg dependency in mkclvfs, now at 1.1
X-Git-Tag: vfs-1-4~69
X-Git-Url: http://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=d7ea9dbfb3fc36fd12301f86fc2b2927d1eea887;p=tclvfs

updated pkg dependency in mkclvfs, now at 1.1
---

diff --git a/ChangeLog b/ChangeLog
index f6a3dc6..14833ea 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+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
diff --git a/library/mkclvfs.tcl b/library/mkclvfs.tcl
index 65966ed..95625c3 100644
--- a/library/mkclvfs.tcl
+++ b/library/mkclvfs.tcl
@@ -2,12 +2,12 @@
 # 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
@@ -19,7 +19,7 @@ namespace eval vfs::mkcl {
 # 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]
diff --git a/library/pkgIndex.tcl b/library/pkgIndex.tcl
index 031bbb8..2dbeed4 100644
--- a/library/pkgIndex.tcl
+++ b/library/pkgIndex.tcl
@@ -56,7 +56,7 @@ package ifneeded zipvfs       1.0 [list source [file join $dir zipvfs.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]]
diff --git a/pkgIndex.tcl.in b/pkgIndex.tcl.in
index 88dc31b..427cb8b 100644
--- a/pkgIndex.tcl.in
+++ b/pkgIndex.tcl.in
@@ -40,7 +40,7 @@ package ifneeded zipvfs       1.0 [list source [file join $dir zipvfs.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]]