Merge branch 'jn/gitweb'
[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         foreach r $all_remotes {
99                 set enable 0
100                 if {![catch {set a $repo_config(remote.$r.url)}]} {
101                         if {![catch {set a $repo_config(remote.$r.fetch)}]} {
102                                 set enable 1
103                         }
104                 } else {
105                         catch {
106                                 set fd [open [gitdir remotes $r] r]
107                                 while {[gets $fd n] >= 0} {
108                                         if {[regexp {^Pull:[ \t]*([^:]+):} $n]} {
109                                                 set enable 1
110                                                 break
111                                         }
112                                 }
113                                 close $fd
114                         }
115                 }
116
117                 if {$enable} {
118                         $m add command \
119                                 -label "Fetch from $r..." \
120                                 -command [list fetch_from $r]
121                 }
122         }
123 }
124
125 proc populate_push_menu {} {
126         global all_remotes repo_config
127
128         set m .mbar.push
129         set fast_count 0
130         foreach r $all_remotes {
131                 set enable 0
132                 if {![catch {set a $repo_config(remote.$r.url)}]} {
133                         if {![catch {set a $repo_config(remote.$r.push)}]} {
134                                 set enable 1
135                         }
136                 } else {
137                         catch {
138                                 set fd [open [gitdir remotes $r] r]
139                                 while {[gets $fd n] >= 0} {
140                                         if {[regexp {^Push:[ \t]*([^:]+):} $n]} {
141                                                 set enable 1
142                                                 break
143                                         }
144                                 }
145                                 close $fd
146                         }
147                 }
148
149                 if {$enable} {
150                         if {!$fast_count} {
151                                 $m add separator
152                         }
153                         $m add command \
154                                 -label "Push to $r..." \
155                                 -command [list push_to $r]
156                         incr fast_count
157                 }
158         }
159 }