set appvers {@@GITGUI_VERSION@@}

set copyright [string map [list (c) \u00a9] {

Copyright (c) 2006-2010 Shawn Pearce, et. al.

This program is free software; you can redistribute it and/or modify

it under the terms of the GNU General Public License as published by

the Free Software Foundation; either version 2 of the License, or

(at your option) any later version.

This program is distributed in the hope that it will be useful,

but WITHOUT ANY WARRANTY; without even the implied warranty of

MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

GNU General Public License for more details.

You should have received a copy of the GNU General Public License

along with this program; if not, write to the Free Software

Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA}]

if {[catch {package require Tcl 8.4} err]

|| [catch {package require Tk 8.4} err]

} {

catch {wm withdraw .}

tk_messageBox \

-icon error \

-type ok \

-title "git-gui: fatal error" \

-message $err

exit 1

}

catch {rename send {}} ; # What an evil concept...

if { [info exists ::env(GIT_GUI_LIB_DIR) ] } {

set oguilib $::env(GIT_GUI_LIB_DIR)

} else {

set oguilib {@@GITGUI_LIBDIR@@}

}

set oguirel {@@GITGUI_RELATIVE@@}

if {$oguirel eq {1}} {

set oguilib [file dirname [file normalize $argv0]]

if {[file tail $oguilib] eq {git-core}} {

set oguilib [file dirname $oguilib]

}

set oguilib [file dirname $oguilib]

set oguilib [file join $oguilib share git-gui lib]

set oguimsg [file join $oguilib msgs]

} elseif {[string match @@* $oguirel]} {

set oguilib [file join [file dirname [file normalize $argv0]] lib]

set oguimsg [file join [file dirname [file normalize $argv0]] po]

} else {

set oguimsg [file join $oguilib msgs]

}

unset oguirel

if {![catch {set _verbose $env(GITGUI_VERBOSE)}]} {

unset _verbose

rename auto_load real__auto_load

proc auto_load {name args} {

puts stderr "auto_load $name"

return [uplevel 1 real__auto_load $name $args]

}

rename source real__source

proc source {args} {

puts stderr "source $args"

uplevel 1 [linsert $args 0 real__source]

}

if {[tk windowingsystem] eq "win32"} { console show }

}

package require msgcat

if {[tk windowingsystem] eq "win32"

&& [package vcompare [package provide msgcat] 1.4.4] < 0

} then {

proc _mc_update_locale {} {

set key {HKEY_CURRENT_USER\Control Panel\Desktop}

if {![catch {

package require registry

set uilocale [registry get $key "PreferredUILanguages"]

msgcat::ConvertLocale [string map {- _} [lindex $uilocale 0]]

} uilocale]} {

if {[string length $uilocale] > 0} {

msgcat::mclocale $uilocale

}

}

}

_mc_update_locale

}

proc _mc_trim {fmt} {

set cmk [string first @@ $fmt]

if {$cmk > 0} {

return [string range $fmt 0 [expr {$cmk - 1}]]

}

return $fmt

}

proc mc {en_fmt args} {

set fmt [_mc_trim [::msgcat::mc $en_fmt]]

if {[catch {set msg [eval [list format $fmt] $args]} err]} {

set msg [eval [list format [_mc_trim $en_fmt]] $args]

}

return $msg

}

proc strcat {args} {

return [join $args {}]

}

::msgcat::mcload $oguimsg

unset oguimsg

if {[tk windowingsystem] eq "aqua"} {

catch {

exec osascript -e [format {

tell application "System Events"

set frontmost of processes whose unix id is %d to true

end tell

} [pid]]

}

}

set _appname {Git Gui}

set _gitdir {}

set _gitworktree {}

set _isbare {}

set _gitexec {}

set _githtmldir {}

set _reponame {}

set _iscygwin {}

set _search_path {}

set _shellpath {@@SHELL_PATH@@}

set _trace [lsearch -exact $argv --trace]

if {$_trace >= 0} {

set argv [lreplace $argv $_trace $_trace]

set _trace 1

if {[tk windowingsystem] eq "win32"} { console show }

} else {

set _trace 0

}

set _last_merged_branch {}

proc shellpath {} {

global _shellpath env

if {[string match @@* $_shellpath]} {

if {[info exists env(SHELL)]} {

return $env(SHELL)

} else {

return /bin/sh

}

}

return $_shellpath

}

proc appname {} {

global _appname

return $_appname

}

proc gitdir {args} {

global _gitdir

if {$args eq {}} {

return $_gitdir

}

return [eval [list file join $_gitdir] $args]

}

proc gitexec {args} {

global _gitexec

if {$_gitexec eq {}} {

if {[catch {set _gitexec [git --exec-path]} err]} {

error "Git not installed?\n\n$err"

}

if {[is_Cygwin]} {

set _gitexec [exec cygpath \

--windows \

--absolute \

$_gitexec]

} else {

set _gitexec [file normalize $_gitexec]

}

}

if {$args eq {}} {

return $_gitexec

}

return [eval [list file join $_gitexec] $args]

}

proc githtmldir {args} {

global _githtmldir

if {$_githtmldir eq {}} {

if {[catch {set _githtmldir [git --html-path]}]} {

# Git not installed or option not yet supported

return {}

}

if {[is_Cygwin]} {

set _githtmldir [exec cygpath \

--windows \

--absolute \

$_githtmldir]

} else {

set _githtmldir [file normalize $_githtmldir]

}

}

if {$args eq {}} {

return $_githtmldir

}

return [eval [list file join $_githtmldir] $args]

}

proc reponame {} {

return $::_reponame

}

proc is_MacOSX {} {

if {[tk windowingsystem] eq {aqua}} {

return 1

}

return 0

}

proc is_Windows {} {

if {$::tcl_platform(platform) eq {windows}} {

return 1

}

return 0

}

proc is_Cygwin {} {

global _iscygwin

if {$_iscygwin eq {}} {

if {$::tcl_platform(platform) eq {windows}} {

if {[catch {set p [exec cygpath --windir]} err]} {

set _iscygwin 0

} else {

set _iscygwin 1

# Handle MSys2 which is only cygwin when MSYSTEM is MSYS.

if {[info exists ::env(MSYSTEM)] && $::env(MSYSTEM) ne "MSYS"} {

set _iscygwin 0

}

}

} else {

set _iscygwin 0

}

}

return $_iscygwin

}

proc is_enabled {option} {

global enabled_options

if {[catch {set on $enabled_options($option)}]} {return 0}

return $on

}

proc enable_option {option} {

global enabled_options

set enabled_options($option) 1

}

proc disable_option {option} {

global enabled_options

set enabled_options($option) 0

}

proc is_many_config {name} {

switch -glob -- $name {

gui.recentrepo -

remote.*.fetch -

remote.*.push

{return 1}

*

{return 0}

}

}

proc is_config_true {name} {

global repo_config

if {[catch {set v $repo_config($name)}]} {

return 0

}

set v [string tolower $v]

if {$v eq {} || $v eq {true} || $v eq {1} || $v eq {yes} || $v eq {on}} {

return 1

} else {

return 0

}

}

proc is_config_false {name} {

global repo_config

if {[catch {set v $repo_config($name)}]} {

return 0

}

set v [string tolower $v]

if {$v eq {false} || $v eq {0} || $v eq {no} || $v eq {off}} {

return 1

} else {

return 0

}

}

proc get_config {name} {

global repo_config

if {[catch {set v $repo_config($name)}]} {

return {}

} else {

return $v

}

}

proc is_bare {} {

global _isbare

global _gitdir

global _gitworktree

if {$_isbare eq {}} {

if {[catch {

set _bare [git rev-parse --is-bare-repository]

switch -- $_bare {

true { set _isbare 1 }

false { set _isbare 0}

default { throw }

}

}]} {

if {[is_config_true core.bare]

|| ($_gitworktree eq {}

&& [lindex [file split $_gitdir] end] ne {.git})} {

set _isbare 1

} else {

set _isbare 0

}

}

}

return $_isbare

}

proc _trace_exec {cmd} {

if {!$::_trace} return

set d {}

foreach v $cmd {

if {$d ne {}} {

append d { }

}

if {[regexp {[ \t\r\n'"$?*]} $v]} {

set v [sq $v]

}

append d $v

}

puts stderr $d

}

proc _git_cmd {name} {

global _git_cmd_path

if {[catch {set v $_git_cmd_path($name)}]} {

switch -- $name {

version -

--version -

--exec-path { return [list $::_git $name] }

}

set p [gitexec git-$name$::_search_exe]

if {[file exists $p]} {

set v [list $p]

} elseif {[is_Windows] && [file exists [gitexec git-$name]]} {

# Try to determine what sort of magic will make

# git-$name go and do its thing, because native

# Tcl on Windows doesn't know it.

#

set p [gitexec git-$name]

set f [open $p r]

set s [gets $f]

close $f

switch -glob -- [lindex $s 0] {

#!*sh { set i sh }

#!*perl { set i perl }

#!*python { set i python }

default { error "git-$name is not supported: $s" }

}

upvar #0 _$i interp

if {![info exists interp]} {

set interp [_which $i]

}

if {$interp eq {}} {

error "git-$name requires $i (not in PATH)"

}

set v [concat [list $interp] [lrange $s 1 end] [list $p]]

} else {

# Assume it is builtin to git somehow and we

# aren't actually able to see a file for it.

#

set v [list $::_git $name]

}

set _git_cmd_path($name) $v

}

return $v

}

proc _which {what args} {

global env _search_exe _search_path

if {$_search_path eq {}} {

if {[is_Cygwin] && [regexp {^(/|\.:)} $env(PATH)]} {

set _search_path [split [exec cygpath \

--windows \

--path \

--absolute \

$env(PATH)] {;}]

set _search_exe .exe

} elseif {[is_Windows]} {

set gitguidir [file dirname [info script]]

regsub -all ";" $gitguidir "\\;" gitguidir

set env(PATH) "$gitguidir;$env(PATH)"

# This is for use with textconv filters and uses sh -c "..." to allow it to

set run [linsert [auto_execok sh] end -c "$cmd \"\$0\"" $path]

set run [list [shellpath] -c "$cmd \"\$0\"" $path]

puts stderr "< $result"

&& $err eq {can not find channel named "1"}

error "hook execution requires sh (not in PATH)"

set scr {if test -x "$1";then exec "$@";fi}

regsub -all ' $value "'\\''" value

return "'$value'"

{fontui font_ui {mc "Main Font"}}

{fontdiff font_diff {mc "Diff/Console Font"}}

-message "Cannot determine Git version:

[appname] requires Git 1.5.0 or later."