blob: 32cc11ff42a6aa79041994206e0cb288e60096c3 (
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
|
#! /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});
}
|