Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | 2011-11-28 Steve Huntley <[email protected]> * vfslib.tcl: Applied contributed patch for bug 3412801. Clean up watch timers for memchan vfs. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
d780b5303ac3c976ea42d8f501ecf350 |
User & Date: | blacksqr 2011-11-28 19:48:12.000 |
Context
2012-03-15
| ||
18:51 | 2012-03-15 Wojciech Kocjan <[email protected]> * zipvfs.tcl: Fix for zip symlinks not supported anymore, bug 3505283 check-in: 4f53c24936 user: zoro2 tags: trunk | |
2011-11-28
| ||
19:48 | 2011-11-28 Steve Huntley <[email protected]> * vfslib.tcl: Applied contributed patch for bug 3412801. Clean up watch timers for memchan vfs. check-in: d780b5303a user: blacksqr tags: trunk | |
19:26 | 2011-11-28 Steve Huntley <[email protected]> * zipvfs.tcl: Applied contributed patch for bug 3395782. Enables extraction of contents of zip files created using Fossil. check-in: e391911bd2 user: blacksqr tags: trunk | |
Changes
Changes to ChangeLog.
1 2 3 4 5 6 7 | 2011-11-28 Steve Huntley <[email protected]> * zipvfs.tcl: Applied contributed patch for bug 3395782. Enables extraction of contents of zip files created using Fossil. 2011-11-28 Steve Huntley <[email protected]> | > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 | 2011-11-28 Steve Huntley <[email protected]> * vfslib.tcl: Applied contributed patch for bug 3412801. Clean up watch timers for memchan vfs. 2011-11-28 Steve Huntley <[email protected]> * zipvfs.tcl: Applied contributed patch for bug 3395782. Enables extraction of contents of zip files created using Fossil. 2011-11-28 Steve Huntley <[email protected]> |
︙ | ︙ |
Changes to library/vfslib.tcl.
︙ | ︙ | |||
58 59 60 61 62 63 64 65 66 67 68 69 70 71 | set watch {} set name $filename if {![info exists timer]} { set timer "" } return {initialize finalize watch read write seek cget cgetall} } finalize { unset buf pos name } seek { foreach {offset base} $args break switch -exact -- $base { current { incr offset $pos } end { incr offset [string length $buf] } } | > > > > > > | 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 | set watch {} set name $filename if {![info exists timer]} { set timer "" } return {initialize finalize watch read write seek cget cgetall} } finalize { unset buf pos name foreach event {read write} { upvar #0 ::vfs::_memchan(watch,$event) watch if {[info exists watch] && ([set idx [lsearch -exact $watch $chan]] >= 0)} { set watch [lreplace $watch $idx $idx] } } } seek { foreach {offset base} $args break switch -exact -- $base { current { incr offset $pos } end { incr offset [string length $buf] } } |
︙ | ︙ |