[thirdparty/git.git] / git-sh-setup.sh

# This shell scriplet is meant to be included by other shell scripts
# to set up some variables pointing at the normal git directories and
# a few helper shell functions.

# Having this variable in your environment would break scripts because
# you would cause "cd" to be taken to unexpected places.  If you
# like CDPATH, define it for your interactive shell sessions without
# exporting it.
# But we protect ourselves from such a user mistake nevertheless.
unset CDPATH

# Similarly for IFS, but some shells (e.g. FreeBSD 7.2) are buggy and
# do not equate an unset IFS with IFS with the default, so here is
# an explicit SP HT LF.
IFS=' 	
'

git_broken_path_fix () {
	case ":$PATH:" in
	*:$1:*) : ok ;;
	*)
		PATH=$(
			SANE_TOOL_PATH="$1"
			IFS=: path= sep=
			set x $PATH
			shift
			for elem
			do
				case "$SANE_TOOL_PATH:$elem" in
				(?*:/bin | ?*:/usr/bin)
					path="$path$sep$SANE_TOOL_PATH"
					sep=:
					SANE_TOOL_PATH=
				esac
				path="$path$sep$elem"
				sep=:
			done
			echo "$path"
		)
		;;
	esac
}

# @@BROKEN_PATH_FIX@@

# Source git-sh-i18n for gettext support.
. "$(git --exec-path)/git-sh-i18n"

die () {
	die_with_status 1 "$@"
}

die_with_status () {
	status=$1
	shift
	printf >&2 '%s\n' "$*"
	exit "$status"
}

GIT_QUIET=

say () {
	if test -z "$GIT_QUIET"
	then
		printf '%s\n' "$*"
	fi
}

if test -n "$OPTIONS_SPEC"; then
	usage() {
		"$0" -h
		exit 1
	}

	parseopt_extra=
	[ -n "$OPTIONS_KEEPDASHDASH" ] &&
		parseopt_extra="--keep-dashdash"
	[ -n "$OPTIONS_STUCKLONG" ] &&
		parseopt_extra="$parseopt_extra --stuck-long"

	eval "$(
		echo "$OPTIONS_SPEC" |
			git rev-parse --parseopt $parseopt_extra -- "$@" ||
		echo exit $?
	)"
else
	dashless=$(basename -- "$0" | sed -e 's/-/ /')
	usage() {
		die "$(eval_gettext "usage: \$dashless \$USAGE")"
	}

	if [ -z "$LONG_USAGE" ]
	then
		LONG_USAGE="$(eval_gettext "usage: \$dashless \$USAGE")"
	else
		LONG_USAGE="$(eval_gettext "usage: \$dashless \$USAGE

$LONG_USAGE")"
	fi

	case "$1" in
		-h)
		echo "$LONG_USAGE"
		case "$0" in *git-legacy-stash) exit 129;; esac
		exit
	esac
fi

# Set the name of the end-user facing command in the reflog when the
# script may update refs.  When GIT_REFLOG_ACTION is already set, this
# will not overwrite it, so that a scripted Porcelain (e.g. "git
# rebase") can set it to its own name (e.g. "rebase") and then call
# another scripted Porcelain (e.g. "git am") and a call to this
# function in the latter will keep the name of the end-user facing
# program (e.g. "rebase") in GIT_REFLOG_ACTION, ensuring whatever it
# does will be record as actions done as part of the end-user facing
# operation (e.g. "rebase").
#
# NOTE NOTE NOTE: consequently, after assigning a specific message to
# GIT_REFLOG_ACTION when calling a "git" command to record a custom
# reflog message, do not leave that custom value in GIT_REFLOG_ACTION,
# after you are done.  Other callers of "git" commands that rely on
# writing the default "program name" in reflog expect the variable to
# contain the value set by this function.
#
# To use a custom reflog message, do either one of these three:
#
# (a) use a single-shot export form:
#     GIT_REFLOG_ACTION="$GIT_REFLOG_ACTION: preparing frotz" \
#         git command-that-updates-a-ref
#
# (b) save the original away and restore:
#     SAVED_ACTION=$GIT_REFLOG_ACTION
#     GIT_REFLOG_ACTION="$GIT_REFLOG_ACTION: preparing frotz"
#     git command-that-updates-a-ref
#     GIT_REFLOG_ACITON=$SAVED_ACTION
#
# (c) assign the variable in a subshell:
#     (
#         GIT_REFLOG_ACTION="$GIT_REFLOG_ACTION: preparing frotz"
#         git command-that-updates-a-ref
#     )
set_reflog_action() {
	if [ -z "${GIT_REFLOG_ACTION:+set}" ]
	then
		GIT_REFLOG_ACTION="$*"
		export GIT_REFLOG_ACTION
	fi
}

git_editor() {
	if test -z "${GIT_EDITOR:+set}"
	then
		GIT_EDITOR="$(git var GIT_EDITOR)" || return $?
	fi

	eval "$GIT_EDITOR" '"$@"'
}

git_pager() {
	if test -t 1
	then
		GIT_PAGER=$(git var GIT_PAGER)
	else
		GIT_PAGER=cat
	fi
	for vardef in @@PAGER_ENV@@
	do
		var=${vardef%%=*}
		eval ": \"\${$vardef}\" && export $var"
	done

	eval "$GIT_PAGER" '"$@"'
}

sane_grep () {
	GREP_OPTIONS= LC_ALL=C grep @@SANE_TEXT_GREP@@ "$@"
}

sane_egrep () {
	GREP_OPTIONS= LC_ALL=C egrep @@SANE_TEXT_GREP@@ "$@"
}

is_bare_repository () {
	git rev-parse --is-bare-repository
}

cd_to_toplevel () {
	cdup=$(git rev-parse --show-toplevel) &&
	cd "$cdup" || {
		gettextln "Cannot chdir to \$cdup, the toplevel of the working tree" >&2
		exit 1
	}
}

require_work_tree_exists () {
	if test "z$(git rev-parse --is-bare-repository)" != zfalse
	then
		program_name=$0
		die "$(eval_gettext "fatal: \$program_name cannot be used without a working tree.")"
	fi
}

require_work_tree () {
	test "$(git rev-parse --is-inside-work-tree 2>/dev/null)" = true || {
		program_name=$0
		die "$(eval_gettext "fatal: \$program_name cannot be used without a working tree.")"
	}
}

require_clean_work_tree () {
	git rev-parse --verify HEAD >/dev/null || exit 1
	git update-index -q --ignore-submodules --refresh
	err=0

	if ! git diff-files --quiet --ignore-submodules
	then
		action=$1
		case "$action" in
		rebase)
			gettextln "Cannot rebase: You have unstaged changes." >&2
			;;
		"rewrite branches")
			gettextln "Cannot rewrite branches: You have unstaged changes." >&2
			;;
		"pull with rebase")
			gettextln "Cannot pull with rebase: You have unstaged changes." >&2
			;;
		*)
			eval_gettextln "Cannot \$action: You have unstaged changes." >&2
			;;
		esac
		err=1
	fi

	if ! git diff-index --cached --quiet --ignore-submodules HEAD --
	then
		if test $err = 0
		then
			action=$1
			case "$action" in
			rebase)
				gettextln "Cannot rebase: Your index contains uncommitted changes." >&2
				;;
			"pull with rebase")
				gettextln "Cannot pull with rebase: Your index contains uncommitted changes." >&2
				;;
			*)
				eval_gettextln "Cannot \$action: Your index contains uncommitted changes." >&2
				;;
			esac
		else
		    gettextln "Additionally, your index contains uncommitted changes." >&2
		fi
		err=1
	fi

	if test $err = 1
	then
		test -n "$2" && echo "$2" >&2
		exit 1
	fi
}

# Generate a sed script to parse identities from a commit.
#
# Reads the commit from stdin, which should be in raw format (e.g., from
# cat-file or "--pretty=raw").
#
# The first argument specifies the ident line to parse (e.g., "author"), and
# the second specifies the environment variable to put it in (e.g., "AUTHOR"
# for "GIT_AUTHOR_*"). Multiple pairs can be given to parse author and
# committer.
pick_ident_script () {
	while test $# -gt 0
	do
		lid=$1; shift
		uid=$1; shift
		printf '%s' "
		/^$lid /{
			s/'/'\\\\''/g
			h
			s/^$lid "'\([^<]*\) <[^>]*> .*$/\1/'"
			s/.*/GIT_${uid}_NAME='&'/p

			g
			s/^$lid "'[^<]* <\([^>]*\)> .*$/\1/'"
			s/.*/GIT_${uid}_EMAIL='&'/p

			g
			s/^$lid "'[^<]* <[^>]*> \(.*\)$/@\1/'"
			s/.*/GIT_${uid}_DATE='&'/p
		}
		"
	done
	echo '/^$/q'
}

# Create a pick-script as above and feed it to sed. Stdout is suitable for
# feeding to eval.
parse_ident_from_commit () {
	LANG=C LC_ALL=C sed -ne "$(pick_ident_script "$@")"
}

# Parse the author from a commit given as an argument. Stdout is suitable for
# feeding to eval to set the usual GIT_* ident variables.
get_author_ident_from_commit () {
	encoding=$(git config i18n.commitencoding || echo UTF-8)
	git show -s --pretty=raw --encoding="$encoding" "$1" -- |
	parse_ident_from_commit author AUTHOR
}

# Clear repo-local GIT_* environment variables. Useful when switching to
# another repository (e.g. when entering a submodule). See also the env
# list in git_connect()
clear_local_git_env() {
	unset $(git rev-parse --local-env-vars)
}

# Generate a virtual base file for a two-file merge. Uses git apply to
# remove lines from $1 that are not in $2, leaving only common lines.
create_virtual_base() {
	sz0=$(wc -c <"$1")
	@@DIFF@@ -u -La/"$1" -Lb/"$1" "$1" "$2" | git apply --no-add
	sz1=$(wc -c <"$1")

	# If we do not have enough common material, it is not
	# worth trying two-file merge using common subsections.
	expr $sz0 \< $sz1 \* 2 >/dev/null || : >"$1"
}


# Platform specific tweaks to work around some commands
case $(uname -s) in
*MINGW*)
	# Windows has its own (incompatible) sort and find
	sort () {
		/usr/bin/sort "$@"
	}
	find () {
		/usr/bin/find "$@"
	}
	# git sees Windows-style pwd
	pwd () {
		builtin pwd -W
	}
	is_absolute_path () {
		case "$1" in
		[/\\]* | [A-Za-z]:*)
			return 0 ;;
		esac
		return 1
	}
	;;
*)
	is_absolute_path () {
		case "$1" in
		/*)
			return 0 ;;
		esac
		return 1
	}
esac

# Make sure we are in a valid repository of a vintage we understand,
# if we require to be in a git repository.
git_dir_init () {
	GIT_DIR=$(git rev-parse --git-dir) || exit
	if [ -z "$SUBDIRECTORY_OK" ]
	then
		test -z "$(git rev-parse --show-cdup)" || {
			exit=$?
			gettextln "You need to run this command from the toplevel of the working tree." >&2
			exit $exit
		}
	fi
	test -n "$GIT_DIR" && GIT_DIR=$(cd "$GIT_DIR" && pwd) || {
		gettextln "Unable to determine absolute path of git directory" >&2
		exit 1
	}
	: "${GIT_OBJECT_DIRECTORY="$(git rev-parse --git-path objects)"}"
}

if test -z "$NONGIT_OK"
then
	git_dir_init
fi

peel_committish () {
	case "$1" in
	:/*)
		peeltmp=$(git rev-parse --verify "$1") &&
		git rev-parse --verify "${peeltmp}^0"
		;;
	*)
		git rev-parse --verify "${1}^0"
		;;
	esac
}
Commit	Line	Data
	1	# This shell scriplet is meant to be included by other shell scripts
	2	# to set up some variables pointing at the normal git directories and
	3	# a few helper shell functions.
	4
	5	# Having this variable in your environment would break scripts because
	6	# you would cause "cd" to be taken to unexpected places. If you
	7	# like CDPATH, define it for your interactive shell sessions without
	8	# exporting it.
	9	# But we protect ourselves from such a user mistake nevertheless.
	10	unset CDPATH
	11
	12	# Similarly for IFS, but some shells (e.g. FreeBSD 7.2) are buggy and
	13	# do not equate an unset IFS with IFS with the default, so here is
	14	# an explicit SP HT LF.
	15	IFS='
	16	'
	17
	18	git_broken_path_fix () {
	19	case ":$PATH:" in
	20	:$1:) : ok ;;
	21	*)
	22	PATH=$(
	23	SANE_TOOL_PATH="$1"
	24	IFS=: path= sep=
	25	set x $PATH
	26	shift
	27	for elem
	28	do
	29	case "$SANE_TOOL_PATH:$elem" in
	30	(?:/bin \| ?:/usr/bin)
	31	path="$path$sep$SANE_TOOL_PATH"
	32	sep=:
	33	SANE_TOOL_PATH=
	34	esac
	35	path="$path$sep$elem"
	36	sep=:
	37	done
	38	echo "$path"
	39	)
	40	;;
	41	esac
	42	}
	43
	44	# @@BROKEN_PATH_FIX@@
	45
	46	# Source git-sh-i18n for gettext support.
	47	. "$(git --exec-path)/git-sh-i18n"
	48
	49	die () {
	50	die_with_status 1 "$@"
	51	}
	52
	53	die_with_status () {
	54	status=$1
	55	shift
	56	printf >&2 '%s\n' "$*"
	57	exit "$status"
	58	}
	59
	60	GIT_QUIET=
	61
	62	say () {
	63	if test -z "$GIT_QUIET"
	64	then
	65	printf '%s\n' "$*"
	66	fi
	67	}
	68
	69	if test -n "$OPTIONS_SPEC"; then
	70	usage() {
	71	"$0" -h
	72	exit 1
	73	}
	74
	75	parseopt_extra=
	76	[ -n "$OPTIONS_KEEPDASHDASH" ] &&
	77	parseopt_extra="--keep-dashdash"
	78	[ -n "$OPTIONS_STUCKLONG" ] &&
	79	parseopt_extra="$parseopt_extra --stuck-long"
	80
	81	eval "$(
	82	echo "$OPTIONS_SPEC" \|
	83	git rev-parse --parseopt $parseopt_extra -- "$@" \|\|
	84	echo exit $?
	85	)"
	86	else
	87	dashless=$(basename -- "$0" \| sed -e 's/-/ /')
	88	usage() {
	89	die "$(eval_gettext "usage: \$dashless \$USAGE")"
	90	}
	91
	92	if [ -z "$LONG_USAGE" ]
	93	then
	94	LONG_USAGE="$(eval_gettext "usage: \$dashless \$USAGE")"
	95	else
	96	LONG_USAGE="$(eval_gettext "usage: \$dashless \$USAGE
	97
	98	$LONG_USAGE")"
	99	fi
	100
	101	case "$1" in
	102	-h)
	103	echo "$LONG_USAGE"
	104	case "$0" in *git-legacy-stash) exit 129;; esac
	105	exit
	106	esac
	107	fi
	108
	109	# Set the name of the end-user facing command in the reflog when the
	110	# script may update refs. When GIT_REFLOG_ACTION is already set, this
	111	# will not overwrite it, so that a scripted Porcelain (e.g. "git
	112	# rebase") can set it to its own name (e.g. "rebase") and then call
	113	# another scripted Porcelain (e.g. "git am") and a call to this
	114	# function in the latter will keep the name of the end-user facing
	115	# program (e.g. "rebase") in GIT_REFLOG_ACTION, ensuring whatever it
	116	# does will be record as actions done as part of the end-user facing
	117	# operation (e.g. "rebase").
	118	#
	119	# NOTE NOTE NOTE: consequently, after assigning a specific message to
	120	# GIT_REFLOG_ACTION when calling a "git" command to record a custom
	121	# reflog message, do not leave that custom value in GIT_REFLOG_ACTION,
	122	# after you are done. Other callers of "git" commands that rely on
	123	# writing the default "program name" in reflog expect the variable to
	124	# contain the value set by this function.
	125	#
	126	# To use a custom reflog message, do either one of these three:
	127	#
	128	# (a) use a single-shot export form:
	129	# GIT_REFLOG_ACTION="$GIT_REFLOG_ACTION: preparing frotz" \
	130	# git command-that-updates-a-ref
	131	#
	132	# (b) save the original away and restore:
	133	# SAVED_ACTION=$GIT_REFLOG_ACTION
	134	# GIT_REFLOG_ACTION="$GIT_REFLOG_ACTION: preparing frotz"
	135	# git command-that-updates-a-ref
	136	# GIT_REFLOG_ACITON=$SAVED_ACTION
	137	#
	138	# (c) assign the variable in a subshell:
	139	# (
	140	# GIT_REFLOG_ACTION="$GIT_REFLOG_ACTION: preparing frotz"
	141	# git command-that-updates-a-ref
	142	# )
	143	set_reflog_action() {
	144	if [ -z "${GIT_REFLOG_ACTION:+set}" ]
	145	then
	146	GIT_REFLOG_ACTION="$*"
	147	export GIT_REFLOG_ACTION
	148	fi
	149	}
	150
	151	git_editor() {
	152	if test -z "${GIT_EDITOR:+set}"
	153	then
	154	GIT_EDITOR="$(git var GIT_EDITOR)" \|\| return $?
	155	fi
	156
	157	eval "$GIT_EDITOR" '"$@"'
	158	}
	159
	160	git_pager() {
	161	if test -t 1
	162	then
	163	GIT_PAGER=$(git var GIT_PAGER)
	164	else
	165	GIT_PAGER=cat
	166	fi
	167	for vardef in @@PAGER_ENV@@
	168	do
	169	var=${vardef%%=*}
	170	eval ": \"\${$vardef}\" && export $var"
	171	done
	172
	173	eval "$GIT_PAGER" '"$@"'
	174	}
	175
	176	sane_grep () {
	177	GREP_OPTIONS= LC_ALL=C grep @@SANE_TEXT_GREP@@ "$@"
	178	}
	179
	180	sane_egrep () {
	181	GREP_OPTIONS= LC_ALL=C egrep @@SANE_TEXT_GREP@@ "$@"
	182	}
	183
	184	is_bare_repository () {
	185	git rev-parse --is-bare-repository
	186	}
	187
	188	cd_to_toplevel () {
	189	cdup=$(git rev-parse --show-toplevel) &&
	190	cd "$cdup" \|\| {
	191	gettextln "Cannot chdir to \$cdup, the toplevel of the working tree" >&2
	192	exit 1
	193	}
	194	}
	195
	196	require_work_tree_exists () {
	197	if test "z$(git rev-parse --is-bare-repository)" != zfalse
	198	then
	199	program_name=$0
	200	die "$(eval_gettext "fatal: \$program_name cannot be used without a working tree.")"
	201	fi
	202	}
	203
	204	require_work_tree () {
	205	test "$(git rev-parse --is-inside-work-tree 2>/dev/null)" = true \|\| {
	206	program_name=$0
	207	die "$(eval_gettext "fatal: \$program_name cannot be used without a working tree.")"
	208	}
	209	}
	210
	211	require_clean_work_tree () {
	212	git rev-parse --verify HEAD >/dev/null \|\| exit 1
	213	git update-index -q --ignore-submodules --refresh
	214	err=0
	215
	216	if ! git diff-files --quiet --ignore-submodules
	217	then
	218	action=$1
	219	case "$action" in
	220	rebase)
	221	gettextln "Cannot rebase: You have unstaged changes." >&2
	222	;;
	223	"rewrite branches")
	224	gettextln "Cannot rewrite branches: You have unstaged changes." >&2
	225	;;
	226	"pull with rebase")
	227	gettextln "Cannot pull with rebase: You have unstaged changes." >&2
	228	;;
	229	*)
	230	eval_gettextln "Cannot \$action: You have unstaged changes." >&2
	231	;;
	232	esac
	233	err=1
	234	fi
	235
	236	if ! git diff-index --cached --quiet --ignore-submodules HEAD --
	237	then
	238	if test $err = 0
	239	then
	240	action=$1
	241	case "$action" in
	242	rebase)
	243	gettextln "Cannot rebase: Your index contains uncommitted changes." >&2
	244	;;
	245	"pull with rebase")
	246	gettextln "Cannot pull with rebase: Your index contains uncommitted changes." >&2
	247	;;
	248	*)
	249	eval_gettextln "Cannot \$action: Your index contains uncommitted changes." >&2
	250	;;
	251	esac
	252	else
	253	gettextln "Additionally, your index contains uncommitted changes." >&2
	254	fi
	255	err=1
	256	fi
	257
	258	if test $err = 1
	259	then
	260	test -n "$2" && echo "$2" >&2
	261	exit 1
	262	fi
	263	}
	264
	265	# Generate a sed script to parse identities from a commit.
	266	#
	267	# Reads the commit from stdin, which should be in raw format (e.g., from
	268	# cat-file or "--pretty=raw").
	269	#
	270	# The first argument specifies the ident line to parse (e.g., "author"), and
	271	# the second specifies the environment variable to put it in (e.g., "AUTHOR"
	272	# for "GIT_AUTHOR_*"). Multiple pairs can be given to parse author and
	273	# committer.
	274	pick_ident_script () {
	275	while test $# -gt 0
	276	do
	277	lid=$1; shift
	278	uid=$1; shift
	279	printf '%s' "
	280	/^$lid /{
	281	s/'/'\\\\''/g
	282	h
	283	s/^$lid "'\([^<]\) <[^>]> .*$/\1/'"
	284	s/.*/GIT_${uid}_NAME='&'/p
	285
	286	g
	287	s/^$lid "'[^<]* <\([^>]\)> .$/\1/'"
	288	s/.*/GIT_${uid}_EMAIL='&'/p
	289
	290	g
	291	s/^$lid "'[^<]* <[^>]> \(.\)$/@\1/'"
	292	s/.*/GIT_${uid}_DATE='&'/p
	293	}
	294	"
	295	done
	296	echo '/^$/q'
	297	}
	298
	299	# Create a pick-script as above and feed it to sed. Stdout is suitable for
	300	# feeding to eval.
	301	parse_ident_from_commit () {
	302	LANG=C LC_ALL=C sed -ne "$(pick_ident_script "$@")"
	303	}
	304
	305	# Parse the author from a commit given as an argument. Stdout is suitable for
	306	# feeding to eval to set the usual GIT_* ident variables.
	307	get_author_ident_from_commit () {
	308	encoding=$(git config i18n.commitencoding \|\| echo UTF-8)
	309	git show -s --pretty=raw --encoding="$encoding" "$1" -- \|
	310	parse_ident_from_commit author AUTHOR
	311	}
	312
	313	# Clear repo-local GIT_* environment variables. Useful when switching to
	314	# another repository (e.g. when entering a submodule). See also the env
	315	# list in git_connect()
	316	clear_local_git_env() {
	317	unset $(git rev-parse --local-env-vars)
	318	}
	319
	320	# Generate a virtual base file for a two-file merge. Uses git apply to
	321	# remove lines from $1 that are not in $2, leaving only common lines.
	322	create_virtual_base() {
	323	sz0=$(wc -c <"$1")
	324	@@DIFF@@ -u -La/"$1" -Lb/"$1" "$1" "$2" \| git apply --no-add
	325	sz1=$(wc -c <"$1")
	326
	327	# If we do not have enough common material, it is not
	328	# worth trying two-file merge using common subsections.
	329	expr $sz0 \< $sz1 \* 2 >/dev/null \|\| : >"$1"
	330	}
	331
	332
	333	# Platform specific tweaks to work around some commands
	334	case $(uname -s) in
	335	MINGW)
	336	# Windows has its own (incompatible) sort and find
	337	sort () {
	338	/usr/bin/sort "$@"
	339	}
	340	find () {
	341	/usr/bin/find "$@"
	342	}
	343	# git sees Windows-style pwd
	344	pwd () {
	345	builtin pwd -W
	346	}
	347	is_absolute_path () {
	348	case "$1" in
	349	[/\\]* \| [A-Za-z]:*)
	350	return 0 ;;
	351	esac
	352	return 1
	353	}
	354	;;
	355	*)
	356	is_absolute_path () {
	357	case "$1" in
	358	/*)
	359	return 0 ;;
	360	esac
	361	return 1
	362	}
	363	esac
	364
	365	# Make sure we are in a valid repository of a vintage we understand,
	366	# if we require to be in a git repository.
	367	git_dir_init () {
	368	GIT_DIR=$(git rev-parse --git-dir) \|\| exit
	369	if [ -z "$SUBDIRECTORY_OK" ]
	370	then
	371	test -z "$(git rev-parse --show-cdup)" \|\| {
	372	exit=$?
	373	gettextln "You need to run this command from the toplevel of the working tree." >&2
	374	exit $exit
	375	}
	376	fi
	377	test -n "$GIT_DIR" && GIT_DIR=$(cd "$GIT_DIR" && pwd) \|\| {
	378	gettextln "Unable to determine absolute path of git directory" >&2
	379	exit 1
	380	}
	381	: "${GIT_OBJECT_DIRECTORY="$(git rev-parse --git-path objects)"}"
	382	}
	383
	384	if test -z "$NONGIT_OK"
	385	then
	386	git_dir_init
	387	fi
	388
	389	peel_committish () {
	390	case "$1" in
	391	:/*)
	392	peeltmp=$(git rev-parse --verify "$1") &&
	393	git rev-parse --verify "${peeltmp}^0"
	394	;;
	395	*)
	396	git rev-parse --verify "${1}^0"
	397	;;
	398	esac
	399	}