- tool for compiling bochs with many different configurations. My favorite is

the --parallel option, which spawns a separate xterm for each build so that
  you can keep them separate.
This commit is contained in:
Bryce Denney 2002-09-15 13:20:33 +00:00
parent 6d13447818
commit 96ac81caf8

146
bochs/build/batch-build.perl Executable file
View File

@ -0,0 +1,146 @@
#!/usr/bin/perl
#
# Batch build tool for multiple configurations
#
# switches:
# - show output vs. send it all to nohup. --nohup
# - serial or parallel. --parallel
#
# no args: serial, display output
# --nohup: serial, output to nohup.out. (Need summary.)
# --nohup --parallel: parallel, output to nohup.out
# --parallel: parallel, spawn xterm for each
#
# Testing:
# no args: good
# nohup: good
# parallel: ?
# nohup parallel: ?
sub usage {
print <<EOF;
Usage: $0 [--nohup] [--parallel]
--nohup causes the output of all compiles to go into nohup.out
--parallel causes all compiles to be run in parallel
no args: serial compile, output goes to stdout
--nohup: serial compile, output goes into individual nohup.out files
--nohup --parallel: parallel compile, output goes to individual nohup.out files
--parallel: parallel compile, spawn an xterm for each configuration
EOF
}
$DEBUG=0;
$pwd = `pwd`;
chop $pwd;
# create all the configurations that we should test
add_configuration ('normal',
'');
add_configuration ('debug',
'--enable-debugger');
add_configuration ('smp2',
'--enable-processors=2');
add_configuration ('smp2-d',
'--enable-debugger --enable-processors=2');
add_configuration ('64bit',
'--enable-x86-64');
add_configuration ('64bit-d',
'--enable-x86-64 --enable-debugger');
add_configuration ('wx',
'--with-wx');
add_configuration ('wx-d',
'--with-wx --enable-debugger --disable-readline');
add_configuration ('wx-64bit',
'--with-wx --enable-x86-64');
add_configuration ('wx-64bit-d',
'--with-wx --enable-x86-64 --enable-debugger --disable-readline');
$nohup = 0;
$parallel = 0;
foreach my $arg (@ARGV) {
if ($arg eq '--nohup') {
$nohup = 1;
} elsif ($arg eq '--parallel') {
$parallel = 1;
} else {
usage(); exit 1;
}
}
for (my $i=0; $i <= $#config_names; $i++) {
my $name = $config_names[$i];
my $options = $config_opts[$i];
die if (!defined $name || !defined $options);
print "Compiling '$name' with opts '$options'\n" if $DEBUG;
if (! -d $name) { mkdir $name, 0755; }
$maybe_nohup = $nohup? "nohup" : "";
open (BUILD, ">$name/build.sh");
print BUILD <<BUILD_EOF;
#!/bin/bash
echo Running the configure script
$maybe_nohup ../../configure $options
if test $? != 0; then
echo Configure failed.
exit 1
fi
echo Running make
$maybe_nohup make
if test $? != 0; then
echo Make failed.
exit 1
fi
BUILD_EOF
close BUILD;
chmod 0755, "$name/build.sh";
$gotodir = "cd $name";
$startcmd = "$maybe_nohup ./build.sh";
$header = <<HEADER_EOF;
====================================================================
Configuration name: $name
Directory: $pwd/$name
Config Options: $options
====================================================================
HEADER_EOF
print $header;
if ($parallel && !$nohup) {
# special case for parallel without nohup. If you're not careful,
# all output from all compiles will go into the window at once, which
# is impossible to read. Also very hard to kill them until they have
# run their course. Instead, start each compile in a different xterm!
# What's even more useful is that after the compile stops it goes into
# a bash shell so that you can fix things, run the make again, etc.
#
# To do this, put the start command in a little shell script called
# xterm-init.sh. Start the xterm with "-e xterm-init.sh" so that it
# runs the script as it starts.
open (XTI, ">$name/xterm-init.sh");
print XTI <<XTI_EOF;
#!/bin/bash
cat <<EOF
$header
EOF
$startcmd
bash
exit 0
XTI_EOF
close XTI;
chmod 0755, "$name/xterm-init.sh";
$startcmd = "xterm -title $name -name $name -e ./xterm-init.sh";
}
$cmd = "$gotodir && $startcmd";
$cmd .= "&" if $parallel;
print "Executing '$cmd'\n" if $DEBUG;
system $cmd;
}
sub add_configuration {
my ($name, $opts) = @_;
push @config_names, $name;
push @config_opts, $opts;
}