29 lines
706 B
29 lines
706 B
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
|
|
|