From: Vince Darley <vincentdarley@sourceforge.net>
Date: Tue, 15 Jul 2003 17:42:34 +0000 (+0000)
Subject: minor fixes, new tests and update to 1.2.1
X-Git-Tag: vfs-1-3~10
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=e9dd0de1e7cedfb62c3983d0bffa86e00ccee86c;p=tclvfs

minor fixes, new tests and update to 1.2.1
---

diff --git a/ChangeLog b/ChangeLog
index c9344fc..de4e75b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,13 @@
+2003-07-15  Vince Darley <vincentdarley@sourceforge.net>
+
+	* 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 <vincentdarley@sourceforge.net>
 
 	* 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 0000000..28a7bdd
Binary files /dev/null and b/tests/vfsTar.test differ
diff --git a/tests/vfsZip.test b/tests/vfsZip.test
index c324d2e..b321323 100644
--- a/tests/vfsZip.test
+++ b/tests/vfsZip.test
@@ -17,3 +17,11 @@ if {[lsearch [namespace children] ::tcltest] == -1} {
 
 package require vfs::zip
 
+test vfsZip-1.1 {mount with error} {
+    set f [file join [temporaryDirectory] vfszip.zip]
+    close [open $f w]
+    set res [catch {vfs::zip::Mount $f localmount} err]
+    #lappend res $err
+    lappend res [catch {file delete $f}]
+    set res
+} {1 0}
diff --git a/win/makefile.vc b/win/makefile.vc
index 8b43bae..d6872fe 100644
--- a/win/makefile.vc
+++ b/win/makefile.vc
@@ -9,7 +9,7 @@
 #
 MACHINE		= IX86
 
-VFS_VERSION = 1.2
+VFS_VERSION = 1.2.1
 DLL_VERSION = 12
 
 # comment the following line to compile with symbols