#!/usr/bin/perl

 # vim: set ts=2 sw=2 tw=99 noet: 

 use strict;

 use Cwd;

 use File::Basename;

 use File::Path;

 my ($myself, $path) = fileparse($0);

 chdir($path);

 require 'helpers.pm';

 #Go back above build dir

 chdir(Build::PathFormat('../../..'));

 #Get the source path.

 our ($root) = getcwd();

 my $reconf = 0;

 #Create output folder if it doesn't exist.

 if (!(-d 'OUTPUT')) {

 	$reconf = 1;

 } else {

 	if (-f 'OUTPUT/sentinel') {

 		my @s = stat('OUTPUT/sentinel');

 		my $mtime = $s[9];

 		my @files = ('build/pushbuild.txt', 'build/AMBuildScript', 'build/product.version');

 		my ($i);

 		for ($i = 0; $i <= $#files; $i++) {

 			if (IsNewer($files[$i], $mtime)) {

 				$reconf = 1;

 				last;

 			}

 		}

 	} else {

 		$reconf = 1;

 	}

 }

 if ($reconf) {

 	rmtree('OUTPUT');

 	mkdir('OUTPUT') or die("Failed to create output folder: $!\n");

 	chdir('OUTPUT');

 	print "Attempting to reconfigure...\n";

 	my ($os, $bits, $mode);

 	$os = $ARGV[0];

 	$bits = $ARGV[1];

 	$mode = $ARGV[2];

 	my ($prefix, $python);

 	if ($^O eq "darwin") {

 		$prefix = 'CC="ccache clang" CXX="ccache clang++" ';

 		$python = 'python3';

 	} elsif ($^O eq "linux") {

 		$prefix = 'CC="ccache gcc-4.4" CXX="ccache g++-4.4" ';

 		$python = 'python3';

 	} elsif ($^O =~ /MSWin/) {

 		$prefix = '';

 		$python = "C:\\Python31\\Python.exe";

 	}

 	my ($cmdstring);

 	$cmdstring = $prefix .

 							 $python . ' ' .

 							 Build::PathFormat('../build/configure.py') . ' ';

 	if ($mode eq 'release') {

 		$cmdstring .= '--enable-optimize ';

 	} else {

 		$cmdstring .= '--enable-debug ';

 	}

 	if ($bits eq '32') {

 		$cmdstring .= '--arch=x86 ';

 	} else {

 		$cmdstring .= '--arch-x64 ';

 	}

 	my ($result);

 	print "-> $cmdstring\n";

 	$result = `$cmdstring`;

 	print "$result\n";

 	if ($? != 0) {

 		die("Could not configure: $!\n");

 	}

 	open(FILE, '>sentinel');

 	print FILE "this is nothing.\n";

 	close(FILE);

 }

 sub IsNewer

 {

 	my ($file, $time) = (@_);

 	my @s = stat($file);

 	my $mtime = $s[9];

 	return $mtime > $time;

 }

 exit(0);