#!/bin/sh
# Clone a wanted module if absent.
usage () { echo "Usage:" `basename $0` \
"[-h|-u] [-B] [-R dir] [-b branch] [-n name] -m part [--] [options...]";
}
# e.g. to set up a new branch's work-space:
# git clone -b X.Y ../bare/qt/qt5.git Qt-X.Y && cd Qt-X.Y
# qteach -b -o -Q . -t default qtclonew -R /home/eddy/bare/qt/ '${BRANCH:+-b $BRANCH}' -m
# ./init-repository -f --branch --mirror ssh://codereview.qt-project.org/
help () {
    usage
    cat <<EOF

 -m part
 --module part
	Specify which component to clone.  Required.
	If not an URL with scheme, only its basename is used.
	See -n and -R.

 -n name
 --name name
	Name to give the clone.  If this directory already exists
	(and, absent -B, has a .git sub-directory), nothing happens.
	Defaults to a name derived from -m, with suffix .git added (if
	missing) or removed (if present) according to -B.

 -R URL
 --root URL
	Ignored if -m's part is a URI that includes a protocol prefix.
	Otherwise, the basename of -m's part is appended to -R's URL
	to get the directory to be cloned (so URL usually needs a
	trailing / as separator).  Defaults to the usual .../qt/ URL
	on Gerrit.

 -b branch
 --branch branch
	Select the branch that the new clone shall deem current; see
	git clone -b.

 -B
 --bare
	Make a bare clone.

 -h
 --help
	Print this help summary and exit

 -u
 --usage
	Print short usage message (first line above) and exit.

 --
	Indicates the end of qtclonew's options; everything after is
	extra options for git clone.  Any non-option (i.e. anything
	not starting with a dash, aside from paramaters of the options
	above) is assumed to be the start of such [options...], if --
	is not specified first.

 options...
	All further options are forwarded to git clone verbatim (and
	not taken into account in determining the default --name),
	before its repository and directory arguments.

Designed to be used with qteach -o, to add any missing modules to a
checked out set of modules.  When the source repository is bare, the
part named with -m should include the .git suffix; so you would pass
qteach its -b option (and pass -m as qtclonew's last) even if the
clone to be made (if needed) isn't bare.  Note that some modules
(e.g. qtrepotools) don't have the usual branches; when specifying a
branch, you may need to do a second pass without branch to pick these
up; but see qteach's doc on BRANCH.
EOF
}
. "$EddySys/share/report.sh"

ROOT=
PART="$ORIGIN"
NAME=
OPTS=
BARE=
while [ $# -gt 0 ]
do  case $1 in
        -h|--help) help; exit 0 ;;
        -u|--usage) usage; exit 0 ;;
        --) shift; break ;;
        -m|--module) PART="$2"; shift 2 ;;
        -n|--name) NAME="$2"; shift 2 ;;
        -R|--root) ROOT="$2"; shift 2 ;;
        -B|--bare) BARE='--bare'; shift ;;
        -b|--branch) OPTS="$OPTS -b $2"; shift 2 ;;
        -*) usage >&2; die "Unrecognised option: $@" ;;
        *) break ;;
    esac
done
[ "$PART" ] || die "No module specified to clone"

if echo "$PART" | grep -q '^[a-z][a-z0-9]*://'
then
    if [ "$ROOT" ]
    then warn "Ignoring --root $ROOT as --module got a full URL"
    fi
    ROOT=
elif [ -z "$ROOT" ]
then ROOT='ssh://codereview.qt-project.org/qt/'
fi

STEM=`basename "$PART"`
if [ "$ROOT" ]
then PART="$ROOT$STEM"
fi

if [ -z "$BARE" ]
then
    [ -n "$NAME" ] || NAME="${STEM%.git}"
    [ -e "$NAME/.git" ]
else
    [ -n "$NAME" ] || NAME="${STEM%.git}.git"
    [ -d "$NAME" ]
# Do *not* enquote OPTS or BARE:
fi || if git clone $BARE $OPTS "$@" "$PART" "$NAME"
then
    if [ -z "$BARE" ]
    then qtrepoinit "$NAME"
    elif echo "$PART" | grep -q '^[a-z][a-z0-9]*://'
    then
         (if cd "$NAME"
          then
              # For some perverse reason, bare repos don't get any git branch -r
              git remote rm origin
              git remote add origin "$PART"
          fi)
    fi
fi