git-gui: unicode file name support on windows

Assumes file names in git tree objects are UTF-8 encoded.

On most unix systems, the system encoding (and thus the TCL system
encoding) will be UTF-8, so file names will be displayed correctly.

On Windows, it is impossible to set the system encoding to UTF-8. Changing
the TCL system encoding (via 'encoding system ...', e.g. in the startup
code) is explicitly discouraged by the TCL docs.

Change git-gui functions dealing with file names to always convert
from and to UTF-8.

Signed-off-by: Karsten Blees <blees@dcon.de>
Signed-off-by: Pat Thoyts <patthoyts@users.sourceforge.net>

diff --git a/git-gui.sh b/git-gui.sh
index f9b323abff381be44d056ee56105270830a43146..1f5acc3c75cfae7a5354467c8060fe3d2f3ea7e5 100755 (executable)
--- a/git-gui.sh
+++ b/git-gui.sh
@@ -556,6 +556,9 @@ proc git {args} {
 
        _trace_exec [concat $opt $cmdp $args]
        set result [eval exec $opt $cmdp $args]
 
        _trace_exec [concat $opt $cmdp $args]
        set result [eval exec $opt $cmdp $args]

+       if {[encoding system] != "utf-8"} {
+               set result [encoding convertfrom utf-8 [encoding convertto $result]]
+       }

        if {$::_trace} {
                puts stderr "< $result"
        }
        if {$::_trace} {
                puts stderr "< $result"
        }


@@ -1111,7 +1114,7 @@ git-version proc _parse_config {arr_name args} {
                                [list git_read config] \
                                $args \
                                [list --null --list]]
                                [list git_read config] \
                                $args \
                                [list --null --list]]

-                       fconfigure $fd_rc -translation binary
+                       fconfigure $fd_rc -translation binary -encoding utf-8

                        set buf [read $fd_rc]
                        close $fd_rc
                }
                        set buf [read $fd_rc]
                        close $fd_rc
                }


@@ -1691,7 +1694,7 @@ proc read_diff_index {fd after} {
                set i [split [string range $buf_rdi $c [expr {$z1 - 2}]] { }]
                set p [string range $buf_rdi $z1 [expr {$z2 - 1}]]
                merge_state \
                set i [split [string range $buf_rdi $c [expr {$z1 - 2}]] { }]
                set p [string range $buf_rdi $z1 [expr {$z2 - 1}]]
                merge_state \

-                       [encoding convertfrom $p] \
+                       [encoding convertfrom utf-8 $p] \

                        [lindex $i 4]? \
                        [list [lindex $i 0] [lindex $i 2]] \
                        [list]
                        [lindex $i 4]? \
                        [list [lindex $i 0] [lindex $i 2]] \
                        [list]


@@ -1724,7 +1727,7 @@ proc read_diff_files {fd after} {
                set i [split [string range $buf_rdf $c [expr {$z1 - 2}]] { }]
                set p [string range $buf_rdf $z1 [expr {$z2 - 1}]]
                merge_state \
                set i [split [string range $buf_rdf $c [expr {$z1 - 2}]] { }]
                set p [string range $buf_rdf $z1 [expr {$z2 - 1}]]
                merge_state \

-                       [encoding convertfrom $p] \
+                       [encoding convertfrom utf-8 $p] \

                        ?[lindex $i 4] \
                        [list] \
                        [list [lindex $i 0] [lindex $i 2]]
                        ?[lindex $i 4] \
                        [list] \
                        [list [lindex $i 0] [lindex $i 2]]


@@ -1747,7 +1750,7 @@ proc read_ls_others {fd after} {
        set pck [split $buf_rlo "\0"]
        set buf_rlo [lindex $pck end]
        foreach p [lrange $pck 0 end-1] {
        set pck [split $buf_rlo "\0"]
        set buf_rlo [lindex $pck end]
        foreach p [lrange $pck 0 end-1] {

-               set p [encoding convertfrom $p]
+               set p [encoding convertfrom utf-8 $p]

                if {[string index $p end] eq {/}} {
                        set p [string range $p 0 end-1]
                }
                if {[string index $p end] eq {/}} {
                        set p [string range $p 0 end-1]
                }

diff --git a/lib/browser.tcl b/lib/browser.tcl
index 158049353f4eca4ed9079b157f9951ab0cc53542..a98298366763d841d3f88e4478f0afdc6e9a5653 100644 (file)
--- a/lib/browser.tcl
+++ b/lib/browser.tcl
@@ -197,7 +197,7 @@ method _ls {tree_id {name {}}} {
        $w conf -state disabled
 
        set fd [git_read ls-tree -z $tree_id]
        $w conf -state disabled
 
        set fd [git_read ls-tree -z $tree_id]

-       fconfigure $fd -blocking 0 -translation binary -encoding binary
+       fconfigure $fd -blocking 0 -translation binary -encoding utf-8

        fileevent $fd readable [cb _read $fd]
 }
 
        fileevent $fd readable [cb _read $fd]
 }
 

diff --git a/lib/index.tcl b/lib/index.tcl
index 3a3e534aeff723b080a7c9a758f51e81e88fae23..b588db11d9fc46b6c4c33274c3c5f969dfe43e5e 100644 (file)
--- a/lib/index.tcl
+++ b/lib/index.tcl
@@ -115,7 +115,7 @@ proc write_update_indexinfo {fd pathList totalCnt batch after} {
                set info [lindex $s 2]
                if {$info eq {}} continue
 
                set info [lindex $s 2]
                if {$info eq {}} continue
 

-               puts -nonewline $fd "$info\t[encoding convertto $path]\0"
+               puts -nonewline $fd "$info\t[encoding convertto utf-8 $path]\0"

                display_file $path $new
        }
 
                display_file $path $new
        }
 


@@ -186,7 +186,7 @@ proc write_update_index {fd pathList totalCnt batch after} {
                ?M {set new M_}
                ?? {continue}
                }
                ?M {set new M_}
                ?? {continue}
                }

-               puts -nonewline $fd "[encoding convertto $path]\0"
+               puts -nonewline $fd "[encoding convertto utf-8 $path]\0"

                display_file $path $new
        }
 
                display_file $path $new
        }
 


@@ -247,7 +247,7 @@ proc write_checkout_index {fd pathList totalCnt batch after} {
                ?M -
                ?T -
                ?D {
                ?M -
                ?T -
                ?D {

-                       puts -nonewline $fd "[encoding convertto $path]\0"
+                       puts -nonewline $fd "[encoding convertto utf-8 $path]\0"

                        display_file $path ?_
                }
                }
                        display_file $path ?_
                }
                }