lib/sbin/configure_thorns.pl


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
#/*@@
#  @file      configure_thorns.pl
#  @date      Fri Jan  8 18:19:00 1999
#  @author    Tom Goodale
#  @desc 
#  Configures the thorn directories for a build of the CCTK
#  @enddesc 
#@@*/

$top = shift(@ARGV);
$config = shift(@ARGV);

%activethorns = &GetActiveThorns($top, $config);

chdir $top;

chdir $config;

chdir "arrangements";

foreach $thorn (sort keys %activethorns)
{
  if (! -d $activethorns{$thorn} && ! -l $activethorns{$thorn})
  {
    mkdir($activethorns{$thorn}, 0755);
  }

  chdir $activethorns{$thorn};

  if (! -d $thorn && ! -l $thorn)
  {
    mkdir($thorn, 0755);
  }