tools/buildbot/bootstrap.pl
author David Anderson <dvander@alliedmods.net>
Mon Dec 30 17:51:01 2013 -0500 (2013-12-30)
changeset 4192 52dec9cf90c3
parent 4083 a3d80595a075
child 4193 dc6688771f63
permissions -rwxr-xr-x
Switch buildbot scripts to AMBuild 2 (bug 5997 part 15, r=ds).
dvander@2251
     1
#!/usr/bin/perl
dvander@2783
     2
# vim: set ts=2 sw=2 tw=99 noet: 
dvander@2251
     3
dvander@2255
     4
use strict;
dvander@2255
     5
use Cwd;
dvander@2255
     6
use File::Basename;
ds@2820
     7
use File::Path;
dvander@2255
     8
dvander@2255
     9
my ($myself, $path) = fileparse($0);
dvander@2255
    10
chdir($path);
dvander@2255
    11
dvander@2254
    12
require 'helpers.pm';
dvander@2251
    13
dvander@2783
    14
#Go back above build dir
dvander@2783
    15
chdir(Build::PathFormat('../../..'));
dvander@2256
    16
dvander@2256
    17
#Get the source path.
dvander@2521
    18
our ($root) = getcwd();
dvander@2256
    19
dvander@2783
    20
my $reconf = 0;
dvander@2783
    21
dvander@4192
    22
if (!(-f 'OUTPUT/.ambuild2/graph') || !(-f 'OUTPUT/.ambuild2/vars')) {
ds@2820
    23
	rmtree('OUTPUT');
ds@2820
    24
	mkdir('OUTPUT') or die("Failed to create output folder: $!\n");
dvander@2783
    25
	chdir('OUTPUT');
ds@3267
    26
	my ($result, $argn);
ds@3267
    27
	$argn = $#ARGV + 1;
dvander@2783
    28
	print "Attempting to reconfigure...\n";
ds@3267
    29
	if ($argn > 0 && $^O !~ /MSWin/) {
dvander@4192
    30
		$result = `CC=$ARGV[0] CXX=$ARGV[0] python ../build/configure.py --enable-optimize`;
dvander@2783
    31
	} else {
skamonkey@4083
    32
		if ($^O =~ /MSWin/) {
dvander@4192
    33
			$result = `C:\\Python27\\Python.exe ..\\build\\configure.py --enable-optimize`;
skamonkey@4083
    34
		} else {
dvander@4192
    35
			$result = `CC=clang CXX=clang python ../build/configure.py --enable-optimize`;
ds@3267
    36
		}
dvander@2783
    37
	}
dvander@2783
    38
	print "$result\n";
dvander@2783
    39
	if ($? != 0) {
ds@3245
    40
		die("Could not configure: $!\n");
dvander@2783
    41
	}
dvander@2723
    42
}
dvander@2521
    43
dvander@2783
    44
sub IsNewer
dvander@2521
    45
{
dvander@2783
    46
	my ($file, $time) = (@_);
dvander@2783
    47
dvander@2783
    48
	my @s = stat($file);
dvander@2783
    49
	my $mtime = $s[9];
dvander@2783
    50
	return $mtime > $time;
dvander@2521
    51
}
dvander@2521
    52
dvander@2783
    53
exit(0);
dvander@2521
    54
dvander@2783
    55