From e9dd0de1e7cedfb62c3983d0bffa86e00ccee86c Mon Sep 17 00:00:00 2001 From: Vince Darley Date: Tue, 15 Jul 2003 17:42:34 +0000 Subject: [PATCH] minor fixes, new tests and update to 1.2.1 --- ChangeLog | 10 ++++++++++ DESCRIPTION.txt | 2 +- doc/vfs.n | 4 ++-- doc/vfslib.n | 2 +- generic/vfs.c | 2 +- library/pkgIndex.tcl | 2 +- library/pkgIndex.tcl.in | 2 +- library/tarvfs.tcl | 2 +- make55.tcl | 2 +- tests/vfsTar.test | Bin 0 -> 1992 bytes tests/vfsZip.test | 8 ++++++++ win/makefile.vc | 2 +- 12 files changed, 28 insertions(+), 10 deletions(-) create mode 100644 tests/vfsTar.test diff --git a/ChangeLog b/ChangeLog index c9344fc..de4e75b 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,13 @@ +2003-07-15 Vince Darley + + * tests/vfsZip.test: + * tests/vfsTar.test: added some new tests for recently fixed + bugs. + * library/tarvfs.tcl: fix to bug when closing an empty archive. + + Also updated package to version 1.2.1 since a variety of bugs + have been fixed since the 1.2 release + 2003-07-06 Vince Darley * library/ftpvfs.tcl: fix to 'file stat' on a directory, which diff --git a/DESCRIPTION.txt b/DESCRIPTION.txt index d6ef0b6..2041e63 100644 --- a/DESCRIPTION.txt +++ b/DESCRIPTION.txt @@ -1,5 +1,5 @@ Identifier: vfs -Version: 1.2 +Version: 1.2.1 Title: Interface to Virtual File Systems for Tcl 8.4 Creator: Vince Darley Description: The goal of this extension is to expose Tcl 8.4's new diff --git a/doc/vfs.n b/doc/vfs.n index 0706a20..651aa9b 100644 --- a/doc/vfs.n +++ b/doc/vfs.n @@ -3,7 +3,7 @@ '\" '\" .so man.macros -.TH vfs n 1.2 Vfs "Tcl-only Virtual File Systems" +.TH vfs n 1.2.1 Vfs "Tcl-only Virtual File Systems" .BS '\" Note: do not modify the .sh NAME line immediately below! .SH NAME @@ -13,7 +13,7 @@ .sp \fBpackage require Tcl 8.4\fR .sp -\fBpackage require vfs ?1.2?\fR +\fBpackage require vfs ?1.2.1?\fR .sp \fBvfs::filesystem\fR \fIinfo\fR .sp diff --git a/doc/vfslib.n b/doc/vfslib.n index d3c9349..8d68219 100644 --- a/doc/vfslib.n +++ b/doc/vfslib.n @@ -13,7 +13,7 @@ .sp \fBpackage require Tcl 8.4\fR .sp -\fBpackage require vfs ?1.2?\fR +\fBpackage require vfs ?1.2.1?\fR .sp \fBpackage require vfs::zip ?1.0?\fR .sp diff --git a/generic/vfs.c b/generic/vfs.c index 1556935..1b3104a 100644 --- a/generic/vfs.c +++ b/generic/vfs.c @@ -333,7 +333,7 @@ Vfs_Init(interp) if (Tcl_IsSafe(interp)) { return TCL_ERROR; } - if (Tcl_PkgProvide(interp, "vfs", "1.2") == TCL_ERROR) { + if (Tcl_PkgProvide(interp, "vfs", "1.2.1") == TCL_ERROR) { return TCL_ERROR; } diff --git a/library/pkgIndex.tcl b/library/pkgIndex.tcl index 56e962b..3e4023e 100644 --- a/library/pkgIndex.tcl +++ b/library/pkgIndex.tcl @@ -38,7 +38,7 @@ proc loadvfs {dll} { load $dll } -package ifneeded vfs 1.2 [list loadvfs $dll] +package ifneeded vfs 1.2.1 [list loadvfs $dll] package ifneeded starkit 1.2 [list source [file join $dir starkit.tcl]] package ifneeded vfslib 1.3.1 [list source [file join $dir vfslib.tcl]] diff --git a/library/pkgIndex.tcl.in b/library/pkgIndex.tcl.in index 660c866..137c77c 100644 --- a/library/pkgIndex.tcl.in +++ b/library/pkgIndex.tcl.in @@ -25,7 +25,7 @@ proc loadvfs {dll} { load $dll } -package ifneeded vfs 1.0 [list loadvfs $vfs::dll] +package ifneeded vfs 1.2.1 [list loadvfs $vfs::dll] package ifneeded starkit 1.2 [list source [file join $dir starkit.tcl]] package ifneeded vfslib 1.3.1 [list source [file join $dir vfslib.tcl]] diff --git a/library/tarvfs.tcl b/library/tarvfs.tcl index 9e5ffcf..04135c9 100644 --- a/library/tarvfs.tcl +++ b/library/tarvfs.tcl @@ -433,6 +433,6 @@ proc tar::getdir {fd path {pat *}} { proc tar::_close {fd} { variable $fd.toc - unset $fd.toc + unset -nocomplain $fd.toc ::close $fd } diff --git a/make55.tcl b/make55.tcl index bddf075..621e554 100644 --- a/make55.tcl +++ b/make55.tcl @@ -66,4 +66,4 @@ close $config parray files -makepackage vfs1.0 +makepackage vfs1.2.1 diff --git a/tests/vfsTar.test b/tests/vfsTar.test new file mode 100644 index 0000000000000000000000000000000000000000..28a7bddadb9dee693f9b4dca7a1f3f779cccc508 GIT binary patch literal 1992 zcmd^AO>Y`85aqnTVib_lRt0$zLL{UdXh@|Qk9uNn|I}2{S_SW`>P{e=l*c%G; z<4{#ORJ8=_^}LyRejd*@;oKAj*O>!h9?)Xe2k>)*L(lCYJmjvEG?ONb=h8tg6%tH) zF0}(rQ>9RNX*8G|JUUMpW5H+ydKAXelMEDYEEGk#tEBR6smZfW+5s4u$_lAx1ly#L z+MD13wxT@2y^c*ZDaZ^pT23oqDqmJUrbKIvbrkN#Y?ce;JroUsjTf#@F1;UV9h07W|LLxy#q67y@3e*le9&O!(Lm9?T zMu9{kb68E3LvF+}-;A8PiB}s)R zRJ3j5$f7jXZ-eyvuab3={OC+IL3y}Ml8`Bs$e7!9+DTzmkh&hQDE$%$0fDJ}zzq$D zbXYKn8h$oZ1`|(MW4T=piI(ujE~gUdQLlzrmTF)kxF`PbtFMZWdv7|(i-xtc2m5hIN?;bu8~iM3O!PS_3we(93OPO)mEPErJ+*WqnFUu z8Kl5S$9=VqHfk-TpVuWy*n4dj`b{-}7!!=0_QHgv?6J$jBn*CZd~(uY zr>7Y^VaGkPHdxBLX)kR6doEhLajQ_D0FBrshP#&i`5-H#4tJkZVY_|XKm6AGKR+4k non{p8Lwx_kHuSweG