blob: 2ad5ac9b7d777bece6eddc39bc3e0fdcba9b4fb0 (
plain)
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);
}
|