From d7ea9dbfb3fc36fd12301f86fc2b2927d1eea887 Mon Sep 17 00:00:00 2001 From: Jean-Claude Wippler Date: Tue, 1 Nov 2005 21:28:41 +0000 Subject: [PATCH] updated pkg dependency in mkclvfs, now at 1.1 --- ChangeLog | 5 +++++ library/mkclvfs.tcl | 8 ++++---- library/pkgIndex.tcl | 2 +- pkgIndex.tcl.in | 2 +- 4 files changed, 11 insertions(+), 6 deletions(-) diff --git a/ChangeLog b/ChangeLog index f6a3dc6..14833ea 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2005-11-01 Jean-Claude Wippler + + * library/mkclvfs.tcl: renamed vlerq package to thrill + * pkgIndex.tcl.in, library/pkgIndex.tcl: bumped to 1.1 + 2005-10-19 Jean-Claude Wippler * 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]] -- 2.23.0