Shawn O. Pearce | 72a8e81 | 2007-09-27 02:30:51 -0400 | [diff] [blame] | 1 | set gitexecdir {@@gitexecdir@@} |
David Turner | a3b3ae3 | 2014-07-21 16:41:38 -0400 | [diff] [blame] | 2 | if { [info exists ::env(GIT_GUI_LIB_DIR) ] } { |
| 3 | set gitguilib $::env(GIT_GUI_LIB_DIR) |
| 4 | } else { |
| 5 | set gitguilib {@@GITGUI_LIBDIR@@} |
| 6 | } |
| 7 | |
Shawn O. Pearce | 72a8e81 | 2007-09-27 02:30:51 -0400 | [diff] [blame] | 8 | set env(PATH) "$gitexecdir:$env(PATH)" |
| 9 | |
| 10 | if {[string first -psn [lindex $argv 0]] == 0} { |
| 11 | lset argv 0 [file join $gitexecdir git-gui] |
| 12 | } |
| 13 | |
| 14 | if {[file tail [lindex $argv 0]] eq {gitk}} { |
Shawn O. Pearce | 7838d3f | 2008-07-25 15:08:33 -0700 | [diff] [blame] | 15 | set argv0 [lindex $argv 0] |
Shawn O. Pearce | 72a8e81 | 2007-09-27 02:30:51 -0400 | [diff] [blame] | 16 | set AppMain_source $argv0 |
| 17 | } else { |
| 18 | set argv0 [file join $gitexecdir [file tail [lindex $argv 0]]] |
| 19 | set AppMain_source [file join $gitguilib git-gui.tcl] |
Marcus Karlsson | 446f822 | 2012-03-10 00:17:22 +0100 | [diff] [blame] | 20 | if {[info exists env(PWD)]} { |
| 21 | cd $env(PWD) |
| 22 | } elseif {[pwd] eq {/}} { |
Shawn O. Pearce | 72a8e81 | 2007-09-27 02:30:51 -0400 | [diff] [blame] | 23 | cd $env(HOME) |
| 24 | } |
| 25 | } |
| 26 | |
| 27 | unset gitexecdir gitguilib |
| 28 | set argv [lrange $argv 1 end] |
| 29 | source $AppMain_source |