| set gitexecdir {@@gitexecdir@@} |
| if { [info exists ::env(GIT_GUI_LIB_DIR) ] } { |
| set gitguilib $::env(GIT_GUI_LIB_DIR) |
| } else { |
| set gitguilib {@@GITGUI_LIBDIR@@} |
| } |
| |
| set env(PATH) "$gitexecdir:$env(PATH)" |
| |
| if {[string first -psn [lindex $argv 0]] == 0} { |
| lset argv 0 [file join $gitexecdir git-gui] |
| } |
| |
| if {[file tail [lindex $argv 0]] eq {gitk}} { |
| set argv0 [lindex $argv 0] |
| set AppMain_source $argv0 |
| } else { |
| set argv0 [file join $gitexecdir [file tail [lindex $argv 0]]] |
| set AppMain_source [file join $gitguilib git-gui.tcl] |
| if {[info exists env(PWD)]} { |
| cd $env(PWD) |
| } elseif {[pwd] eq {/}} { |
| cd $env(HOME) |
| } |
| } |
| |
| unset gitexecdir gitguilib |
| set argv [lrange $argv 1 end] |
| source $AppMain_source |
