#!/usr/bin/perl -w
# $Id: //info.ravenbrook.com/project/mps/version/1.112/test/test/script/dirs#1 $
#
# set directories up for testing
# n.b. this must happen _after_ options have been
# parsed, so we know what the value of $PLATFORM is
#
1;
sub set_dirs {
$testlib_dir = $test_dir."/testlib";
$obj_dir = $test_dir."/obj/".$PLATFORM;
&ensuredir($obj_dir);
&ensuredir($LOG_DIR);
}
sub ensuredir {
local ($dir, $tdir, $odir) = @_;
until (-e $dir) {
$tdir = $dir;
$odir = $dir;
until (-e $tdir) {
$odir = $tdir;
unless ($tdir =~ /\/[^\/]*$/) {
die "Failed to create dir: $dir.\n";
}
$tdir =~ s/\/[^\/]*$//; # assume / is separator;
}
mkdir($odir, 0777) || die "Failed to create dir: $dir.\n";
}
}