#!/usr/bin/perl

# Copyright (c) 2010 Symbian Foundation Ltd

# This component and the accompanying materials are made available

# under the terms of the License "Eclipse Public License v1.0"

# which accompanies this distribution, and is available

# at the URL "http://www.eclipse.org/legal/epl-v10.html".

#

# Initial Contributors:

# Mike Kinghan, mikek@symbian.org for Symbian Foundation Ltd - initial contribution.

# Script to clone the upstream package at the baseline revision.

use strict;

use Cwd;

use get_baseline;

use File::Spec;

if (!@ARGV or @ARGV > 1 or grep(/$ARGV[0]/,("-h","--help"))) {

    print "This script clones or updates the upstream package at the baseline revision " .

		"from http://developer.symbian.org/oss/MCL/sftools/dev/build\n";

    print "Valid arguments are -h, --help, or CLONEDIR, where CLONEDIR is the" .

		" name of the existing directory into which the upstream package will " .

		"be cloned if this does not seem to have been already done Otherwise " .

		"CLONEDIR/build will be updated.\n";

	exit 0;

}         

my $clonedir = $ARGV[0];

unless ( -d "$clonedir") {

	die "*** Error: directory \"$clonedir\" does not exist ***";

}

my $baseline_rev = get_baseline();

print ">>> Baseline revision is $baseline_rev\n"; 

my $cwd = cwd;

my $cmd;

chdir $clonedir or die $!;

print ">>> Changed to dir \"$clonedir\"\n";

my $hg_dir = File::Spec->catfile("build",".hg");

if ( -d $hg_dir) {

	print ">>> There seems to a repo of the build package in \"$clonedir\"\n";

	print ">>> Will try to update it\n";

	chdir "build" or die $!;

	print ">>> Changed to dir \"build\"\n";

	$cmd = "hg update -c -r $baseline_rev ";

}

else {

	print ">>> There is no existing repo in \"$clonedir\"\n";

	print ">>> Will clone fresh\n";

 	$cmd = "hg clone -r $baseline_rev " .

	"http://developer.symbian.org/oss/MCL/sftools/dev/build";

} 

print ">>> Executing: $cmd\n";

my $rc = system($cmd) >> 8;

chdir $cwd or die $!;

print ">>> Changed to dir \"$cwd\"\n";

exit $rc;