* [PATCH] git-gui: fix commit message comment line removal with older Tcl versions [not found] <https://lore.kernel.org/git/CAPig+cT-sfgMDi9-6AEKF85NtOiXeqddJjk-pYuhDtTVAE-UEw@mail.gmail.com/> @ 2021-02-28 23:11 ` Eric Sunshine 2021-03-01 6:48 ` Eric Sunshine 0 siblings, 1 reply; 2+ messages in thread From: Eric Sunshine @ 2021-02-28 23:11 UTC (permalink / raw) To: Pratyush Yadav; +Cc: git, Johannes Sixt, Junio C Hamano, Eric Sunshine git-gui was recently enhanced to remove comment lines from the commit message similar to the way git-commit does so (see `core.commentchar` and `git-stripspace`). Unfortunately, that change employs features which are unavailable in older versions of Tcl, such as 8.5.9 which is shipped with macOS (10.13), with the result that the commit operation errors out. There are two problems. First, to add a new informational message to the main window, it invokes string method `cat` which does not exist in older Tcl. Fix this by using `append` instead. Second, when passing the commit message through git-stripspace, it closes the "write" side of the bidirectional pipe after sending the commit message to git-stripspace in order to avoid deadlock before reading back the result, however the ability to close only one end of a pipe is not present in older Tcl. Fix this by employing a temporary file to received the output of git-stripspace. Signed-off-by: Eric Sunshine <sunshine@sunshineco.com> --- I'm not a Tcl programmer, so I may have overlooked better or more idiomatic ways to fix these problems. There might be some reliable and portable way to write and read a bidirectional pipe in older Tcl without deadlocking and without using non-blocking I/O and an event-loop, but I didn't find it, so I went with the simpler approach of using a temporary file. git-gui.sh | 3 +-- lib/commit.tcl | 12 +++++++----- 2 files changed, 8 insertions(+), 7 deletions(-) diff --git a/git-gui.sh b/git-gui.sh index 236bc4e61d..c04b37b9ee 100755 --- a/git-gui.sh +++ b/git-gui.sh @@ -3439,8 +3439,7 @@ proc trace_commit_type {varname args} { } set comment_char [get_config core.commentchar] - set txt [string cat $txt \ - [mc " (Lines starting with '$comment_char' will be ignored)"]] + append txt [mc " (Lines starting with '$comment_char' will be ignored)"] $ui_coml conf -text $txt } trace add variable commit_type write trace_commit_type diff --git a/lib/commit.tcl b/lib/commit.tcl index 23d67d4651..3a51e80b8a 100644 --- a/lib/commit.tcl +++ b/lib/commit.tcl @@ -142,16 +142,18 @@ proc setup_commit_encoding {msg_wt {quiet 0}} { } proc strip_msg {msg} { - set cmd [concat [list | ] [_git_cmd stripspace] --strip-comments] + set strip_p [gitdir GITGUI_EDITMSG_STRIP] + set cmd [concat [list | ] [_git_cmd stripspace] --strip-comments [list >$strip_p]] _trace_exec $cmd - set fd [open $cmd r+] + set fd [open $cmd w] fconfigure $fd -translation binary -encoding utf-8 - puts -nonewline $fd $msg - close $fd w - set result [read $fd] close $fd + set fd [open $strip_p r] + set result [read $fd] + close $fd + file delete $strip_p return $result } -- 2.31.0.rc0.1.g37593106bf ^ permalink raw reply related [flat|nested] 2+ messages in thread
* Re: [PATCH] git-gui: fix commit message comment line removal with older Tcl versions 2021-02-28 23:11 ` [PATCH] git-gui: fix commit message comment line removal with older Tcl versions Eric Sunshine @ 2021-03-01 6:48 ` Eric Sunshine 0 siblings, 0 replies; 2+ messages in thread From: Eric Sunshine @ 2021-03-01 6:48 UTC (permalink / raw) To: Pratyush Yadav; +Cc: Git List, Johannes Sixt, Junio C Hamano On Sun, Feb 28, 2021 at 6:12 PM Eric Sunshine <sunshine@sunshineco.com> wrote: > git-gui was recently enhanced to remove comment lines from the commit > message similar to the way git-commit does so (see `core.commentchar` > and `git-stripspace`). Unfortunately, that change employs features which > are unavailable in older versions of Tcl, such as 8.5.9 which is shipped > with macOS (10.13), with the result that the commit operation errors > out. > > There are two problems. First, to add a new informational message to the > main window, it invokes string method `cat` which does not exist in > older Tcl. Fix this by using `append` instead. > > Second, when passing the commit message through git-stripspace, it > closes the "write" side of the bidirectional pipe after sending the > commit message to git-stripspace in order to avoid deadlock before > reading back the result, however the ability to close only one end of a > pipe is not present in older Tcl. Fix this by employing a temporary file > to received the output of git-stripspace. s/received/receive/ (I noticed this immediately after sending the patch, of course.) > Signed-off-by: Eric Sunshine <sunshine@sunshineco.com> > --- > diff --git a/lib/commit.tcl b/lib/commit.tcl > @@ -142,16 +142,18 @@ proc setup_commit_encoding {msg_wt {quiet 0}} { > proc strip_msg {msg} { > - set cmd [concat [list | ] [_git_cmd stripspace] --strip-comments] > + set strip_p [gitdir GITGUI_EDITMSG_STRIP] > + set cmd [concat [list | ] [_git_cmd stripspace] --strip-comments [list >$strip_p]] > _trace_exec $cmd > - set fd [open $cmd r+] > + set fd [open $cmd w] > fconfigure $fd -translation binary -encoding utf-8 > - > puts -nonewline $fd $msg > - close $fd w > - set result [read $fd] > close $fd > > + set fd [open $strip_p r] I had meant to insert: fconfigure $fd -translation binary -encoding utf-8 here but forgot. Would you like me to resend the patch or can you tweak it locally? > + set result [read $fd] > + close $fd > + file delete $strip_p > return $result > } ^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2021-03-01 6:50 UTC | newest] Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed) -- links below jump to the message on this page -- [not found] <https://lore.kernel.org/git/CAPig+cT-sfgMDi9-6AEKF85NtOiXeqddJjk-pYuhDtTVAE-UEw@mail.gmail.com/> 2021-02-28 23:11 ` [PATCH] git-gui: fix commit message comment line removal with older Tcl versions Eric Sunshine 2021-03-01 6:48 ` Eric Sunshine
Code repositories for project(s) associated with this public inbox https://80x24.org/mirrors/git.git This is a public inbox, see mirroring instructions for how to clone and mirror all data and code used for this inbox; as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).