blob: c141a8fa7c52c75a31fcfb2c1333afead86a5f2d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
#! /usr/bin/perl
#/*@@
# @file BuildActiveThorns.pl
# @date Tue Jan 19 14:02:07 1999
# @author Tom Goodale
# @desc
# Creates an ActiveThornsList
# @enddesc
# @version $Id$
#@@*/
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});
}
|