e6c5adfa24
--HG-- extra : convert_revision : svn%3A39bc706e-5318-0410-9160-8a85361fbb7c/trunk%402504
60 lines
1.4 KiB
Perl
Executable File
60 lines
1.4 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use Cwd;
|
|
use File::Basename;
|
|
|
|
my ($myself, $path) = fileparse($0);
|
|
chdir($path);
|
|
|
|
require 'helpers.pm';
|
|
|
|
chdir(Build::PathFormat('../builder'));
|
|
if ($^O eq "linux")
|
|
{
|
|
Build::Command('make clean');
|
|
Build::Command('make');
|
|
}
|
|
else
|
|
{
|
|
Build::Command('"' . $ENV{'MSVC7'} . '" /Rebuild Release builder.csproj');
|
|
Build::Command('move ' . Build::PathFormat('bin/Release/builder.exe') . ' .');
|
|
}
|
|
|
|
die "Unable to build builder tool!\n" unless -e 'builder.exe';
|
|
|
|
#Go back to main source dir.
|
|
chdir(Build::PathFormat('../..'));
|
|
|
|
#Get the source path.
|
|
my ($root) = getcwd();
|
|
|
|
#Create output folder if it doesn't exist.
|
|
if (!(-d 'OUTPUT')) {
|
|
mkdir('OUTPUT') or die("Failed to create output folder: $!\n");
|
|
}
|
|
|
|
#Write the configuration file.
|
|
open(CONF, '>build.cfg') or die("Failed to write build.cfg: $!\n");
|
|
print CONF "OutputBase = " . Build::PathFormat($root . '/OUTPUT') . "\n";
|
|
print CONF "SourceBase = $root\n";
|
|
if ($^O eq "linux")
|
|
{
|
|
print CONF "BuilderPath = /usr/bin/make\n";
|
|
}
|
|
else
|
|
{
|
|
print CONF "BuilderPath = " . $ENV{'MSVC8'} . "\n";
|
|
}
|
|
close(CONF);
|
|
|
|
#Do the annoying revision bumping.
|
|
#Linux needs some help here.
|
|
if ($^O eq "linux")
|
|
{
|
|
Build::Command("flip -u modules.versions");
|
|
Build::Command("flip -u tools/versionchanger.pl");
|
|
Build::Command("chmod +x tools/versionchanger.pl");
|
|
}
|
|
Build::Command(Build::PathFormat('tools/versionchanger.pl'));
|