1# git-gui Tools menu implementation 2 3proc tools_list {} { 4 global repo_config 5 6 set names {} 7 foreach item [array names repo_config guitool.*.cmd] { 8 lappend names [string range $item 8 end-4] 9 } 10 return [lsort $names] 11} 12 13proc tools_populate_all {} { 14 global tools_menubar tools_menutbl 15 global tools_tailcnt 16 17 set mbar_end [$tools_menubar index end] 18 set mbar_base [expr {$mbar_end - $tools_tailcnt}] 19 if {$mbar_base >= 0} { 20 $tools_menubar delete 0 $mbar_base 21 } 22 23 array unset tools_menutbl 24 25 foreach fullname [tools_list] { 26 tools_populate_one $fullname 27 } 28} 29 30proc tools_create_item {parent args} { 31 global tools_menubar tools_tailcnt 32 if {$parent eq $tools_menubar} { 33 set pos [expr {[$parent index end]-$tools_tailcnt+1}] 34 eval [list $parent insert $pos] $args 35 } else { 36 eval [list $parent add] $args 37 } 38} 39 40proc tools_populate_one {fullname} { 41 global tools_menubar tools_menutbl tools_id 42 43 if {![info exists tools_id]} { 44 set tools_id 0 45 } 46 47 set names [split $fullname '/'] 48 set parent $tools_menubar 49 for {set i 0} {$i < [llength $names]-1} {incr i} { 50 set subname [join [lrange $names 0 $i] '/'] 51 if {[info exists tools_menutbl($subname)]} { 52 set parent $tools_menutbl($subname) 53 } else { 54 set subid $parent.t$tools_id 55 tools_create_item $parent cascade \ 56 -label [lindex $names $i] -menu $subid 57 menu $subid 58 set tools_menutbl($subname) $subid 59 set parent $subid 60 incr tools_id 61 } 62 } 63 64 tools_create_item $parent command \ 65 -label [lindex $names end] \ 66 -command [list tools_exec $fullname] 67} 68 69proc tools_exec {fullname} { 70 global repo_config env current_diff_path 71 global current_branch is_detached 72 global selected_paths 73 74 if {[is_config_true "guitool.$fullname.needsfile"]} { 75 if {$current_diff_path eq {}} { 76 error_popup [mc "Running %s requires a selected file." $fullname] 77 return 78 } 79 } 80 81 catch { unset env(ARGS) } 82 catch { unset env(REVISION) } 83 84 if {[get_config "guitool.$fullname.revprompt"] ne {} || 85 [get_config "guitool.$fullname.argprompt"] ne {}} { 86 set dlg [tools_askdlg::dialog $fullname] 87 if {![tools_askdlg::execute $dlg]} { 88 return 89 } 90 } elseif {[is_config_true "guitool.$fullname.confirm"]} { 91 if {[is_config_true "guitool.$fullname.needsfile"]} { 92 if {[ask_popup [mc "Are you sure you want to run %1\$s on file \"%2\$s\"?" $fullname $current_diff_path]] ne {yes}} { 93 return 94 } 95 } else { 96 if {[ask_popup [mc "Are you sure you want to run %s?" $fullname]] ne {yes}} { 97 return 98 } 99 } 100 } 101 102 set env(GIT_GUITOOL) $fullname 103 set env(FILENAME) $current_diff_path 104 set env(FILENAMES) [join [array names selected_paths] \n] 105 if {$is_detached} { 106 set env(CUR_BRANCH) "" 107 } else { 108 set env(CUR_BRANCH) $current_branch 109 } 110 111 set cmdline $repo_config(guitool.$fullname.cmd) 112 if {[is_config_true "guitool.$fullname.noconsole"]} { 113 tools_run_silent [list sh -c $cmdline] \ 114 [list tools_complete $fullname {}] 115 } else { 116 regsub {/} $fullname { / } title 117 set w [console::new \ 118 [mc "Tool: %s" $title] \ 119 [mc "Running: %s" $cmdline]] 120 console::exec $w [list sh -c $cmdline] \ 121 [list tools_complete $fullname $w] 122 } 123 124 unset env(GIT_GUITOOL) 125 unset env(FILENAME) 126 unset env(FILENAMES) 127 unset env(CUR_BRANCH) 128 catch { unset env(ARGS) } 129 catch { unset env(REVISION) } 130} 131 132proc tools_run_silent {cmd after} { 133 lappend cmd 2>@1 134 set fd [_open_stdout_stderr $cmd] 135 136 fconfigure $fd -blocking 0 -translation binary 137 fileevent $fd readable [list tools_consume_input $fd $after] 138} 139 140proc tools_consume_input {fd after} { 141 read $fd 142 if {[eof $fd]} { 143 fconfigure $fd -blocking 1 144 if {[catch {close $fd}]} { 145 uplevel #0 $after 0 146 } else { 147 uplevel #0 $after 1 148 } 149 } 150} 151 152proc tools_complete {fullname w {ok 1}} { 153 if {$w ne {}} { 154 console::done $w $ok 155 } 156 157 if {$ok} { 158 set msg [mc "Tool completed successfully: %s" $fullname] 159 } else { 160 set msg [mc "Tool failed: %s" $fullname] 161 } 162 163 if {[is_config_true "guitool.$fullname.norescan"]} { 164 ui_status $msg 165 } else { 166 rescan [list ui_status $msg] 167 } 168} 169