diff options
author | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-01-08 17:29:26 +0000 |
---|---|---|
committer | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-01-08 17:29:26 +0000 |
commit | cf8da07d00143ce435a5aa625ce43f2e7adc6526 (patch) | |
tree | 507e118cc09dc55426410bc7ba3e50c369d88176 /lib/sbin | |
parent | 673f037abca59a419000b33a729a9fa611ba3191 (diff) |
First stab at a program to create build directories for thorns.
Tom
git-svn-id: http://svn.cactuscode.org/flesh/trunk@42 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin')
-rw-r--r-- | lib/sbin/configure_thorns.pl | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/lib/sbin/configure_thorns.pl b/lib/sbin/configure_thorns.pl new file mode 100644 index 00000000..b9797e1a --- /dev/null +++ b/lib/sbin/configure_thorns.pl @@ -0,0 +1,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 "toolkits"; + +foreach $thorn (keys %activethorns) +{ + if (! -d $activethorns{$thorn} && ! -l $activethorns{$thorn}) + { + mkdir($activethorns{$thorn}, 0755); + } + + chdir $activethorns{$thorn}; + + if (! -d $thorn && ! -l $thorn) + { + mkdir($thorn, 0755); + } + + |