lib/tools.tcl

   1 # git-gui Tools menu implementation
   2
   3 proc 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
  13 proc 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
  30 proc 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
  40 proc 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
  69 proc 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
 132 proc 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
 140 proc 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
 152 proc 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 }