Merge branch 'maint'
[git] / 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 }