add more computer words

[home.git] / .bin / r

#!/bin/bash
g() { git "$@"; }
err() { printf '%b\n' "$*" 1>&2; exit 1; }
vr() { echo "$@"; "$@"; }

case $1 in
""|-*) ;;
l)
	cmd=list
	shift
	;;
s)
	cmd=sync
	shift
	;;
*)
	cmd=$1
	shift
	acmd=$(git config --get "alias.${cmd}" | sed 's: -.*::')
	;;
esac

mj_init() {
	pipe=$(mktemp)
	rm -f "${pipe}"
	mkfifo "${pipe}"
	exec {ctlfd}<>"${pipe}"
	rm -f "${pipe}"
	jobs=0
	jobs_max=${1:-$(getconf _NPROCESSORS_ONLN)}
}
_mj_child() { echo ${BASHPID} $? >&${ctlfd} ; }
mj_child() {
	(
	"$@"
	_mj_child
	) &
	mj_post_child
}
mj_post_child() {
	: $(( ++jobs ))
	if [[ ${jobs} -eq ${jobs_max} ]] ; then
		read -r -u ${ctlfd} pid ret
		: $(( --jobs ))
	fi
}
mj_finish() {
	wait
}

repo_root() {
	local root=${PWD}
	while [[ ! -d ${root}/.repo && ${root} != "/" ]] ; do
		root=${root%/*}
	done
	echo "${root}"
}

case ${acmd:-${cmd}} in
rebase)
	if [[ $1 == "all" ]] ; then
		shift
		if [[ $# -eq 0 ]] ; then
			root=$(repo_root)
			mj_init
			while read -a line ; do
				dir=${line[0]}
				proj=${line[2]}
				cd "${root}/${dir}"
				(
				out=$(env _proj=${proj} r rb all . 2>&1)
				[[ -n ${out} ]] && echo "${out}"
				_mj_child
				) &
				mj_post_child
			done < <(r l)
			mj_finish
			exit 0
			#exec r forall -p -c 'r rb all .' </dev/null
		fi

		branches=$(g b | awk '
			{
				if ($0 ~ "^[*] *[(]no branch[)]") {
					next
				} else if ($1 == "*") {
					b = $2
				} else {
					list = list $1 " "
				}
			}
			END { print list b }')
		[[ -z ${branches} ]] && exit 0

		eval $(bash-colors --env)
		#echo "${GOOD}### ${PWD}${NORMAL}"
		# Skip if rebase is in progress.
		if [[ -e .git/rebase-merge/interactive ]] ; then
			echo "# ${_proj}: skipping due to active rebase"
			exit 1
		fi
		for b in ${branches} ; do
			#echo " ${HILITE}### $b${NORMAL}"
			g co -q $b || exit 1
			if ! r rb -q "$@" ; then
				g rb-a
			fi
		done
		exit 0
	fi
	;;
sb-push)
	sync_branch="v"

	root=$(repo_root)
	cd "${root}" || exit 1

	if [[ ! -e .repo/sandbox-url ]] ; then
		err "Please configure remote url base in ${root}/.repo/sandbox-url"
	fi
	remote=$(<.repo/sandbox-url) || exit 1

	echo "pushing projects from ${root}"

	# ssh servers do not like it when you hammer them :)
	#	Received disconnect from 74.125.248.80: 7: Too many concurrent connections
	#	fatal: The remote end hung up unexpectedly
	mj_init 16

	rlist=$(r list)
	tcnt=$(echo "${rlist}" | wc -l)
	cnt=1
	while read line ; do
		line=( ${line} )
		path=${line[0]}
		export GIT_DIR=${path}/.git
		proj=${line[2]}
		printf '### (%*i/%i %3i%%) %s\n' \
			${#tcnt} $((cnt++)) ${tcnt} $(( cnt * 100 / tcnt )) ${proj}
		src="${sync_branch}"
		g l -1 ${src} >& /dev/null || src=
		mj_child g push --force ${remote}/${proj} ${src}:refs/sandbox/${USER}/${sync_branch} >/dev/null
	done < <(r list)
	mj_finish

	exit 0
	;;
g-push)
	# For the times when repo is being stupid, push directly to gerrit myself.
	if ! branch=$(g symbolic-ref -q HEAD) ; then
		err "could not figure out active branch"
	fi
	branch=${branch#refs/heads/}
	if ! remote_branch=$(g cfg --get "branch.${branch}.merge") ; then
		err "could not figure out remote branch"
	fi
	remote_branch=${remote_branch#refs/heads/}

	reviewers=""
	while [[ $# -gt 0 ]] ; do
		case $1 in
		--re)
			reviewers=$2
			shift
			;;
		*)
			err "unknown option: $1"
			;;
		esac
		shift
	done

	git_args=()
	if [[ -n ${reviewers} ]] ; then
		reviewers=( ${reviewers//,/ } )
		git_args+=( "--receive-pack=git receive-pack ${reviewers[*]/#/--reviewer=}" )
	fi

	for remote in cros-internal cros origin ; do
		if g cfg --get "remote.${remote}.url" >/dev/null ; then
			vr git push "${git_args[@]}" ${remote} ${branch}:refs/for/${remote_branch}
			exit $?
		fi
	done
	err "could not figure out remote to push to"
	;;
sync)
	set -- -j16 "$@"
	;;
upload)
	args=()
	while [[ $# -gt 0 ]] ; do
		case $1 in
		--re)
			if [[ $2 == *"OWNERS" ]] ; then
				owners=$(awk -F'@' '{list = list "," $1} END {print substr(list, 2)}' "$2")
				if [[ -z ${owners} ]] ; then
					err "cannot find OWNERS list"
				else
					echo "Auto setting reviewers to: ${owners}"
				fi
				args+=( --re "${owners}" )
				shift 2
				continue
			fi
			;;
		esac
		args+=( "$1" )
		shift
	done
	set -- "${args[@]}"
	;;
esac

exec repo ${acmd:-${cmd}} "$@"