fix vfs::zstream fwd seeking

diff --git a/ChangeLog b/ChangeLog
index 762e3c56e57973a1ce7729b946c9a10f64fdfee6..dd2558da578f2df17a968a81fdaf2ca0ec9285ae 100644 (file)
--- 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 57557293b84edb1df48e3480eb6945d51d9a4fa1..a01309be2ce5097a2fc8bf89fd2b8cd0980ce124 100644 (file)
--- 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
                }