From c8bae7493d2f2910b57f13ded012e86bdcfb0532 Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Sun, 7 Apr 2024 16:47:53 +0200 Subject: Adding upstream version 1:2.39.2. Signed-off-by: Daniel Baumann --- git-gui/lib/branch.tcl | 40 ++++++++++++++++++++++++++++++++++++++++ 1 file changed, 40 insertions(+) create mode 100644 git-gui/lib/branch.tcl (limited to 'git-gui/lib/branch.tcl') diff --git a/git-gui/lib/branch.tcl b/git-gui/lib/branch.tcl new file mode 100644 index 0000000..8b0c485 --- /dev/null +++ b/git-gui/lib/branch.tcl @@ -0,0 +1,40 @@ +# git-gui branch (create/delete) support +# Copyright (C) 2006, 2007 Shawn Pearce + +proc load_all_heads {} { + global some_heads_tracking + + set rh refs/heads + set rh_len [expr {[string length $rh] + 1}] + set all_heads [list] + set fd [git_read for-each-ref --format=%(refname) $rh] + fconfigure $fd -translation binary -encoding utf-8 + while {[gets $fd line] > 0} { + if {!$some_heads_tracking || ![is_tracking_branch $line]} { + lappend all_heads [string range $line $rh_len end] + } + } + close $fd + + return [lsort $all_heads] +} + +proc load_all_tags {} { + set all_tags [list] + set fd [git_read for-each-ref \ + --sort=-taggerdate \ + --format=%(refname) \ + refs/tags] + fconfigure $fd -translation binary -encoding utf-8 + while {[gets $fd line] > 0} { + if {![regsub ^refs/tags/ $line {} name]} continue + lappend all_tags $name + } + close $fd + return $all_tags +} + +proc radio_selector {varname value args} { + upvar #0 $varname var + set var $value +} -- cgit v1.2.3