[thirdparty/git.git] / git-gui / windows / git-gui.sh

#!/bin/sh
# Tcl ignores the next line -*- tcl -*- \
exec wish "$0" -- "$@"

if { $argc >=2 && [lindex $argv 0] == "--working-dir" } {
	set workdir [lindex $argv 1]
	cd $workdir
	if {[lindex [file split $workdir] end] eq {.git}} {
		# Workaround for Explorer right click "Git GUI Here" on .git/
		cd ..
	}
	set argv [lrange $argv 2 end]
	incr argc -2
}

set bindir [file dirname \
            [file dirname \
             [file dirname [info script]]]]
set bindir [file join $bindir bin]
regsub -all ";" $bindir "\\;" bindir
set env(PATH) "$bindir;$env(PATH)"
unset bindir

source [file join [file dirname [info script]] git-gui.tcl]
Commit	Line	Data
99fe594d SP	1	#!/bin/sh
	2	# Tcl ignores the next line -- tcl -- \
	3	exec wish "$0" -- "$@"
	4
	5	if { $argc >=2 && [lindex $argv 0] == "--working-dir" } {
b01d4326 MH	6	set workdir [lindex $argv 1]
	7	cd $workdir
	8	if {[lindex [file split $workdir] end] eq {.git}} {
	9	# Workaround for Explorer right click "Git GUI Here" on .git/
	10	cd ..
	11	}
99fe594d SP	12	set argv [lrange $argv 2 end]
	13	incr argc -2
	14	}
	15
5fc6edab SP	16	set bindir [file dirname \
	17	[file dirname \
	18	[file dirname [info script]]]]
	19	set bindir [file join $bindir bin]
	20	regsub -all ";" $bindir "\\;" bindir
	21	set env(PATH) "$bindir;$env(PATH)"
	22	unset bindir
99fe594d SP	23
99fe594d SP	24	source [file join [file dirname [info script]] git-gui.tcl]