commit: avoid race when creating orphan commits
[git.git] / git-gui / macosx / AppMain.tcl
blob738bdd03ed8a3940ae9bec362ddcfd16a3c48e9c
1 set gitexecdir {@@gitexecdir@@}
2 set gitguilib {@@GITGUI_LIBDIR@@}
3 set env(PATH) "$gitexecdir:$env(PATH)"
5 if {[string first -psn [lindex $argv 0]] == 0} {
6 lset argv 0 [file join $gitexecdir git-gui]
9 if {[file tail [lindex $argv 0]] eq {gitk}} {
10 set argv0 [lindex $argv 0]
11 set AppMain_source $argv0
12 } else {
13 set argv0 [file join $gitexecdir [file tail [lindex $argv 0]]]
14 set AppMain_source [file join $gitguilib git-gui.tcl]
15 if {[info exists env(PWD)]} {
16 cd $env(PWD)
17 } elseif {[pwd] eq {/}} {
18 cd $env(HOME)
22 unset gitexecdir gitguilib
23 set argv [lrange $argv 1 end]
24 source $AppMain_source