diff options
Diffstat (limited to 'development/tclvfs/patches/01-encoding.patch')
| -rw-r--r-- | development/tclvfs/patches/01-encoding.patch | 179 |
1 files changed, 179 insertions, 0 deletions
diff --git a/development/tclvfs/patches/01-encoding.patch b/development/tclvfs/patches/01-encoding.patch new file mode 100644 index 0000000000..25261055ca --- /dev/null +++ b/development/tclvfs/patches/01-encoding.patch @@ -0,0 +1,179 @@ +Patch by Sergei Golovan (initially by Victor Wagner taken from +http://sourceforge.net/tracker/index.php?func=detail&aid=1011498&group_id=32692&atid=406308) +fixes -encoding and -eofchar of files opened on VFS. + +Probably, the patch is incomplete for mk4fs with ::mk4vfs::zstreamed set to 1. + +--- a/library/ftpvfs.tcl ++++ b/library/ftpvfs.tcl +@@ -133,10 +133,13 @@ + ftp::Get $fd $name -variable tmp + + set filed [vfs::memchan] ++ set encoding [fconfigure $filed -encoding] ++ set eofchar [fconfigure $filed -eofchar] ++ set translation [fconfigure $filed -translation] + fconfigure $filed -translation binary + puts -nonewline $filed $tmp + +- fconfigure $filed -translation auto ++ fconfigure $filed -translation $translation -encoding $encoding -eofchar $eofchar + seek $filed 0 + return [list $filed] + } +--- a/library/httpvfs.tcl ++++ b/library/httpvfs.tcl +@@ -357,11 +357,14 @@ + "r" { + set token [geturl "$dirurl$urlname" -headers $headers] + set filed [vfs::memchan] ++ set encoding [fconfigure $filed -encoding] ++ set eofchar [fconfigure $filed -eofchar] ++ set translation [fconfigure $filed -translation] + fconfigure $filed -translation binary + puts -nonewline $filed [::http::data $token] + http::cleanup $token + +- fconfigure $filed -translation auto ++ fconfigure $filed -translation $translation -encoding $encoding -eofchar $eofchar + seek $filed 0 + # XXX: the close command should free vfs::memchan somehow?? + return [list $filed] +--- a/library/tclprocvfs.tcl ++++ b/library/tclprocvfs.tcl +@@ -84,9 +84,12 @@ + "" - + "r" { + set nfd [vfs::memchan] ++ set encoding [fconfigure $nfd -encoding] ++ set eofchar [fconfigure $nfd -eofchar] ++ set translation [fconfigure $nfd -translation] + fconfigure $nfd -translation binary + puts -nonewline $nfd [_generate ::${ns}::${name}] +- fconfigure $nfd -translation auto ++ fconfigure $nfd -translation $translation -encoding $encoding -eofchar $eofchar + seek $nfd 0 + return [list $nfd] + } +--- a/library/webdavvfs.tcl ++++ b/library/webdavvfs.tcl +@@ -153,8 +153,12 @@ + upvar #0 $token state + + set filed [vfs::memchan] ++ set encoding [fconfigure $filed -encoding] ++ set eofchar [fconfigure $filed -eofchar] ++ set translation [fconfigure $filed -translation] + fconfigure $filed -encoding binary -translation binary + puts -nonewline $filed [::http::data $token] ++ fconfigure $filed -translation $translation -encoding $encoding -eofchar $eofchar + seek $filed 0 + ::http::cleanup $token + return [list $filed] +--- a/library/tkvfs.tcl ++++ b/library/tkvfs.tcl +@@ -72,9 +72,12 @@ + "" - + "r" { + set nfd [vfs::memchan] ++ set encoding [fconfigure $nfd -encoding] ++ set eofchar [fconfigure $nfd -eofchar] ++ set translation [fconfigure $nfd -translation] + fconfigure $nfd -translation binary + puts -nonewline $nfd [_generate ${widg}.${name}] +- fconfigure $nfd -translation auto ++ fconfigure $nfd -translation $translation -encoding $encoding -eofchar $eofchar + seek $nfd 0 + return [list $nfd] + } +--- a/library/tarvfs.tcl ++++ b/library/tarvfs.tcl +@@ -106,6 +106,9 @@ + vfs::tar::_stat $tarfd $name sb + + set nfd [vfs::memchan] ++ set encoding [fconfigure $nfd -encoding] ++ set eofchar [fconfigure $nfd -eofchar] ++ set translation [fconfigure $nfd -translation] + fconfigure $nfd -translation binary + + # get the starting point from structure +@@ -114,7 +117,7 @@ + + puts -nonewline $nfd $data + +- fconfigure $nfd -translation auto ++ fconfigure $nfd -translation $translation -encoding $encoding -eofchar $eofchar + seek $nfd 0 + return [list $nfd] + } +--- a/library/zipvfs.tcl ++++ b/library/zipvfs.tcl +@@ -108,6 +108,9 @@ + ::zip::stat $zipfd $name sb + + set nfd [vfs::memchan] ++ set encoding [fconfigure $nfd -encoding] ++ set eofchar [fconfigure $nfd -eofchar] ++ set translation [fconfigure $nfd -translation] + fconfigure $nfd -translation binary + + seek $zipfd $sb(ino) start +@@ -118,7 +115,7 @@ + + puts -nonewline $nfd $data + +- fconfigure $nfd -translation auto ++ fconfigure $nfd -translation $translation -encoding $encoding -eofchar $eofchar + seek $nfd 0 + return [list $nfd] + } +--- a/library/mk4vfs.tcl ++++ b/library/mk4vfs.tcl +@@ -171,19 +171,25 @@ + set fd [vfs::zstream decompress $fd $sb(csize) $sb(size)] + } else { + set fd [vfs::memchan] ++ set encoding [fconfigure $fd -encoding] ++ set eofchar [fconfigure $fd -eofchar] ++ set translation [fconfigure $fd -translation] + fconfigure $fd -translation binary + set s [mk::get $sb(ino) contents] + puts -nonewline $fd [vfs::zip -mode decompress $s] + +- fconfigure $fd -translation auto ++ fconfigure $fd -translation $translation -encoding $encoding -eofchar $eofchar + seek $fd 0 + } + } elseif { $::mk4vfs::direct } { + set fd [vfs::memchan] ++ set encoding [fconfigure $fd -encoding] ++ set eofchar [fconfigure $fd -eofchar] ++ set translation [fconfigure $fd -translation] + fconfigure $fd -translation binary + puts -nonewline $fd [mk::get $sb(ino) contents] + +- fconfigure $fd -translation auto ++ fconfigure $fd -translation $translation -encoding $encoding -eofchar $eofchar + seek $fd 0 + } else { + set fd [mk::channel $sb(ino) contents r] +@@ -214,6 +220,9 @@ + } + + set fd [vfs::memchan] ++ set encoding [fconfigure $fd -encoding] ++ set eofchar [fconfigure $fd -eofchar] ++ set translation [fconfigure $fd -translation] + fconfigure $fd -translation binary + set s [mk::get $sb(ino) contents] + +@@ -225,7 +234,7 @@ + puts -nonewline $fd $s + #set fd [mk::channel $sb(ino) contents a] + } +- fconfigure $fd -translation auto ++ fconfigure $fd -translation $translation -encoding $encoding -eofchar $eofchar + seek $fd 0 end + return [list $fd [list mk4vfs::do_close $db $fd $mode $sb(ino)]] + } |