#!/usr/bin/perl

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

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',

  							 'build/tools/bootstrap.pl');

  	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=clang CXX=clang++ ';

  	$python = 'python3';

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

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

  	$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);