TclVFS

Check-in [0a4cd90315]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:2012-07-12 Wojciech Kocjan <[email protected]> * zipvfs.tcl: Fix for Tcl 8.6 not properly streaming large files with very big compression ratio, bug 3542959
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 0a4cd903159876eb541c5ffd4405035ef6c6a457
User & Date: zoro2 2012-07-12 13:36:18
Context
2012-12-12
21:24
* configure.in: Long overdue bump to version 1.4.2. * configure: (1.4.1 was in 2009-02-07). Regenerated. Please bump the patchlevel for any future bug fixes, of the relevant sub-package(s). check-in: 080107853b user: andreas_kupries tags: trunk
2012-07-12
13:36
2012-07-12 Wojciech Kocjan <[email protected]> * zipvfs.tcl: Fix for Tcl 8.6 not properly streaming large files with very big compression ratio, bug 3542959 check-in: 0a4cd90315 user: zoro2 tags: trunk
2012-07-04
12:40
* zipvfs.tcl: Fix for streaming not working properly in certain zip files; refactoring of zip::Data to reuse header parsing code for streams check-in: 85db155664 user: zoro2 tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ChangeLog.






1
2
3
4
5
6
7




2012-07-04  Wojciech Kocjan <[email protected]>

	* zipvfs.tcl: Fix for streaming not working properly in certain zip
	files; refactoring of zip::Data to reuse header parsing code for streams

2012-03-15  Wojciech Kocjan <[email protected]>

>
>
>
>
>







1
2
3
4
5
6
7
8
9
10
11
12
2012-07-12  Wojciech Kocjan <[email protected]>

	* zipvfs.tcl: Fix for Tcl 8.6 not properly streaming large files with
	very big compression ratio, bug 3542959

2012-07-04  Wojciech Kocjan <[email protected]>

	* zipvfs.tcl: Fix for streaming not working properly in certain zip
	files; refactoring of zip::Data to reuse header parsing code for streams

2012-03-15  Wojciech Kocjan <[email protected]>

Changes to library/zipvfs.tcl.

848
849
850
851
852
853
854

855

856
857
858
859
860
861
862
		    if {$c <= 0} {
			break
		    }
		    seek $ifd $tell start
		    set data [read $ifd $c]
		    set tell [tell $ifd]
		    zstream_put $fd $data

		    append buf [zstream_get $fd]

		}
	    }
	    return $r
	}
	close - finalize {
	    eventClean $fd
	    if {$zcmd != ""} {






>
|
>







848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
		    if {$c <= 0} {
			break
		    }
		    seek $ifd $tell start
		    set data [read $ifd $c]
		    set tell [tell $ifd]
		    zstream_put $fd $data
		    while {[string length [set bufdata [zstream_get $fd]]] > 0} {
			append buf $bufdata
		    }
		}
	    }
	    return $r
	}
	close - finalize {
	    eventClean $fd
	    if {$zcmd != ""} {