lib/sbin/BuildActiveThorns.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

#! /usr/bin/perl
#/*@@
#  @file      BuildActiveThorns.pl
#  @date      Tue Jan 19 14:02:07 1999
#  @author    Tom Goodale
#  @desc 
#  Creates an ActiveThornsList
#  @enddesc 
#  @version $Id$
#@@*/

if ($ENV{'CCTK_HOME'})
{
  require "$ENV{'CCTK_HOME'}/lib/sbin/MakeUtils.pl";
}
else
{
  require "lib/sbin/MakeUtils.pl";
}

$package_dir = shift(@ARGV);

%info = &buildthorns($package_dir,"thorns");

printf("# arrangement/thorn %-14s # implements (inherits) [friend] {shares}\n#\n");

foreach $thorn (sort keys %info)
{
  printf("%-34s # %s\n",$thorn,$info{$thorn});
}