git-gui/lib/remote.tcl

   1 # git-gui remote management
   2 # Copyright (C) 2006, 2007 Shawn Pearce
   3
   4 proc is_tracking_branch {name} {
   5         global tracking_branches
   6
   7         if {![catch {set info $tracking_branches($name)}]} {
   8                 return 1
   9         }
  10         foreach t [array names tracking_branches] {
  11                 if {[string match {*/\*} $t] && [string match $t $name]} {
  12                         return 1
  13                 }
  14         }
  15         return 0
  16 }
  17
  18 proc all_tracking_branches {} {
  19         global tracking_branches
  20
  21         set all_trackings {}
  22         set cmd {}
  23         foreach name [array names tracking_branches] {
  24                 if {[regsub {/\*$} $name {} name]} {
  25                         lappend cmd $name
  26                 } else {
  27                         regsub ^refs/(heads|remotes)/ $name {} name
  28                         lappend all_trackings $name
  29                 }
  30         }
  31
  32         if {$cmd ne {}} {
  33                 set fd [open "| git for-each-ref --format=%(refname) $cmd" r]
  34                 while {[gets $fd name] > 0} {
  35                         regsub ^refs/(heads|remotes)/ $name {} name
  36                         lappend all_trackings $name
  37                 }
  38                 close $fd
  39         }
  40
  41         return [lsort -unique $all_trackings]
  42 }
  43
  44 proc load_all_remotes {} {
  45         global repo_config
  46         global all_remotes tracking_branches
  47
  48         set all_remotes [list]
  49         array unset tracking_branches
  50
  51         set rm_dir [gitdir remotes]
  52         if {[file isdirectory $rm_dir]} {
  53                 set all_remotes [glob \
  54                         -types f \
  55                         -tails \
  56                         -nocomplain \
  57                         -directory $rm_dir *]
  58
  59                 foreach name $all_remotes {
  60                         catch {
  61                                 set fd [open [file join $rm_dir $name] r]
  62                                 while {[gets $fd line] >= 0} {
  63                                         if {![regexp {^Pull:[   ]*([^:]+):(.+)$} \
  64                                                 $line line src dst]} continue
  65                                         if {![regexp ^refs/ $dst]} {
  66                                                 set dst "refs/heads/$dst"
  67                                         }
  68                                         set tracking_branches($dst) [list $name $src]
  69                                 }
  70                                 close $fd
  71                         }
  72                 }
  73         }
  74
  75         foreach line [array names repo_config remote.*.url] {
  76                 if {![regexp ^remote\.(.*)\.url\$ $line line name]} continue
  77                 lappend all_remotes $name
  78
  79                 if {[catch {set fl $repo_config(remote.$name.fetch)}]} {
  80                         set fl {}
  81                 }
  82                 foreach line $fl {
  83                         if {![regexp {^([^:]+):(.+)$} $line line src dst]} continue
  84                         if {![regexp ^refs/ $dst]} {
  85                                 set dst "refs/heads/$dst"
  86                         }
  87                         set tracking_branches($dst) [list $name $src]
  88                 }
  89         }
  90
  91         set all_remotes [lsort -unique $all_remotes]
  92 }
  93
  94 proc populate_fetch_menu {} {
  95         global all_remotes repo_config
  96
  97         set m .mbar.fetch
  98         set prune_list [list]
  99         foreach r $all_remotes {
 100                 set enable 0
 101                 if {![catch {set a $repo_config(remote.$r.url)}]} {
 102                         if {![catch {set a $repo_config(remote.$r.fetch)}]} {
 103                                 set enable 1
 104                         }
 105                 } else {
 106                         catch {
 107                                 set fd [open [gitdir remotes $r] r]
 108                                 while {[gets $fd n] >= 0} {
 109                                         if {[regexp {^Pull:[ \t]*([^:]+):} $n]} {
 110                                                 set enable 1
 111                                                 break
 112                                         }
 113                                 }
 114                                 close $fd
 115                         }
 116                 }
 117
 118                 if {$enable} {
 119                         lappend prune_list $r
 120                         $m add command \
 121                                 -label "Fetch from $r..." \
 122                                 -command [list fetch_from $r]
 123                 }
 124         }
 125
 126         if {$prune_list ne {}} {
 127                 $m add separator
 128         }
 129         foreach r $prune_list {
 130                 $m add command \
 131                         -label "Prune from $r..." \
 132                         -command [list prune_from $r]
 133         }
 134 }
 135
 136 proc populate_push_menu {} {
 137         global all_remotes repo_config
 138
 139         set m .mbar.push
 140         set fast_count 0
 141         foreach r $all_remotes {
 142                 set enable 0
 143                 if {![catch {set a $repo_config(remote.$r.url)}]} {
 144                         if {![catch {set a $repo_config(remote.$r.push)}]} {
 145                                 set enable 1
 146                         }
 147                 } else {
 148                         catch {
 149                                 set fd [open [gitdir remotes $r] r]
 150                                 while {[gets $fd n] >= 0} {
 151                                         if {[regexp {^Push:[ \t]*([^:]+):} $n]} {
 152                                                 set enable 1
 153                                                 break
 154                                         }
 155                                 }
 156                                 close $fd
 157                         }
 158                 }
 159
 160                 if {$enable} {
 161                         if {!$fast_count} {
 162                                 $m add separator
 163                         }
 164                         $m add command \
 165                                 -label "Push to $r..." \
 166                                 -command [list push_to $r]
 167                         incr fast_count
 168                 }
 169         }
 170 }