#!/usr/bin/perl

our %arguments =

(

	'config' => 'modules.versions',

	'major' => '1',

	'minor' => '0',

	'revision' => '0',

	'build' => undef,

	'svnrev' => 'global',

	'path' => '',

);

my $arg;

foreach $arg (@ARGV)

{

	$arg =~ s/--//;

	@arg = split(/=/, $arg);

	$arguments{$arg[0]} = $arg[1];

}

#Set up path info

if ($arguments{'path'} ne "")

{

	if (!(-d $arguments{'path'}))

	{

		die "Unable to find path: " . $arguments{'path'} ."\n";

	}

	chdir($arguments{'path'});

}

if (!open(CONFIG, $arguments{'config'}))

{

	die "Unable to open config file for reading: " . $arguments{'config'} . "\n";

}

our %modules;

my $cur_module = undef;

my $line;

while (<CONFIG>)

{

	chomp;

	$line = $_;

	if ($line =~ /^\[([^\]]+)\]$/)

	{

		$cur_module = $1;

		next;

	}

	if (!$cur_module)

	{

		next;

	}

	if ($line =~ /^([^=]+) = (.+)$/)

	{

		$modules{$cur_module}{$1} = $2;

	}

}

close(CONFIG);

#Copy global configuration options...

if (exists($modules{'PRODUCT'}))

{

	if (exists($modules{'PRODUCT'}{'major'}))

	{

		$arguments{'major'} = $modules{'PRODUCT'}{'major'};

	}

	if (exists($modules{'PRODUCT'}{'minor'}))

	{

		$arguments{'minor'} = $modules{'PRODUCT'}{'minor'};

	}

	if (exists($modules{'PRODUCT'}{'revision'}))

	{

		$arguments{'revision'} = $modules{'PRODUCT'}{'revision'};

	}

	if (exists($modules{'PRODUCT'}{'svnrev'}))

	{

		$arguments{'svnrev'} = $modules{'PRODUCT'}{'svnrev'};

	}

}

#Get the global SVN revision if we have none

my $rev;

if ($arguments{'build'} == undef)

{

	$rev = GetRevision(undef);

} else {

	$rev = int($arguments{'build'});

}

my $major = $arguments{'major'};

my $minor = $arguments{'minor'};

my $revision = $arguments{'revision'};

my $svnrev = $arguments{'svnrev'};

#Go through everything now

my $mod_i;

while ( ($cur_module, $mod_i) = each(%modules) )

{

	#Skip the magic one

	if ($cur_module eq "PRODUCT")

	{

		next;

	}

	#Prepare path

	my %mod = %{$mod_i};

	my $infile = $mod{'in'};

	my $outfile = $mod{'out'};

	if ($mod{'folder'})

	{

		if (!(-d $mod{'folder'}))

		{

			die "Folder " . $mod{'folder'} . " not found.\n";

		}

		$infile = $mod{'folder'} . '/' . $infile;

		$outfile = $mod{'folder'} . '/' . $outfile;

	}

	if (!(-f $infile))

	{

		die "File $infile is not a file.\n";

	}

	my $global_rev = $rev;

	my $local_rev = GetRevision($mod{'folder'});

	if ($arguments{'svnrev'} eq 'local')

	{

		$global_rev = $local_rev;

	}

	#Start rewriting

	open(INFILE, $infile) or die "Could not open file for reading: $infile\n";

	open(OUTFILE, '>'.$outfile) or die "Could not open file for writing: $outfile\n";

	while (<INFILE>)

	{

		s/\$PMAJOR\$/$major/g;

		s/\$PMINOR\$/$minor/g;

		s/\$PREVISION\$/$revision/g;

		s/\$GLOBAL_BUILD\$/$rev/g;

		s/\$LOCAL_BUILD\$/$local_rev/g;

		print OUTFILE $_;

	}

	close(OUTFILE);

	close(INFILE);

}

sub GetRevision

{

	my ($path)=(@_);

	my $rev;

	if (!$path)

	{

		$rev = `svnversion --committed`;

	} else {

		$rev = `svnversion --committed $path`;

	}

	if ($rev =~ /exported/)

	{

		die "Path specified is not a working copy\n";

	} elsif ($rev =~ /(\d+):(\d+)/) {

		$rev = int($2);

	} elsif ($rev =~ /(\d+)/) {

		$rev = int($1);

	} else {

		die "Unknown svnversion response: $rev\n";

	}

	return $rev;

}