From: Jean-Claude Wippler <jcw@equi4.com>
Date: Sun, 9 Feb 2003 17:22:43 +0000 (+0000)
Subject: fix vfs::zstream fwd seeking
X-Git-Tag: vfs-1-3~58
X-Git-Url: http://privyetmir.co.uk/gitweb?a=commitdiff_plain;h=c9da1961f9dd597ca7d23f512430c97e04585c70;p=tclvfs

fix vfs::zstream fwd seeking
---

diff --git a/ChangeLog b/ChangeLog
index 762e3c5..dd2558d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-02-01  Jean-Claude Wippler  <jcw@equi4.com>
+
+	* library/vfslib.tcl: fixed bug in new vfs::zstream code,
+	preventing forward seeking from working properly
+
 2003-02-08  Vince Darley <vincentdarley@sourceforge.net>
 
 	* library/*.tcl: made all 'matchindirectory' implementations
diff --git a/library/vfslib.tcl b/library/vfslib.tcl
index 5755729..a01309b 100644
--- a/library/vfslib.tcl
+++ b/library/vfslib.tcl
@@ -103,7 +103,9 @@ namespace eval ::vfs {
 		    while {$pos < $a1} {
 		      set n [expr {$a1 - $pos}]
 		      if {$n > 4096} { set n 4096 }
-		      read $fd $n
+		      # 2003-02-09: read did not work (?), spell it out instead
+		      #read $fd $n
+		      zstream_handler $zcmd $ifd $clen $ilen $imode read $fd $n
 		    }
 		    return $pos
 		}