1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
#!/usr/bin/perl -w
# $Id: //info.ravenbrook.com/project/mps/master/test/test/script/dirs#3 $
#
# 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";
 }
}