Andrew's git - gitweb.git/blob - git-gui/windows/git-gui.sh

   1#!/bin/sh
   2# Tcl ignores the next line -*- tcl -*- \
   3exec wish "$0" -- "$@"
   4
   5if { $argc >=2 && [lindex $argv 0] == "--working-dir" } {
   6        cd [lindex $argv 1]
   7        set argv [lrange $argv 2 end]
   8        incr argc -2
   9}
  10
  11set bindir [file dirname \
  12            [file dirname \
  13             [file dirname [info script]]]]
  14set bindir [file join $bindir bin]
  15regsub -all ";" $bindir "\\;" bindir
  16set env(PATH) "$bindir;$env(PATH)"
  17unset bindir
  18
  19source [file join [file dirname [info script]] git-gui.tcl]