home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Geek Gadgets 1
/
ADE-1.bin
/
ade-dist
/
man-1.0-bin.lha
/
man
/
makewhatis
next >
Wrap
Text File
|
1996-05-17
|
820b
|
54 lines
#!/bin/perl
foreach (</ade/man/cat?/*.0>)
{
open(IN, $_) || die "cannot open $_\n";
while (<IN>)
{
s/\r//g;
chop;
if ($naming)
{
s/_\cH//g;
if (/^\S/)
{
$_ = $name;
s/([a-z][A-z])-\s+/$1/;
s/([a-zA-Z0-9,])\s+/$1 /g;
s/\W*(\w*)\W*(.*)\s+-\s+(.*)\s*/$2 ($1) - $3/;
push(@list, "$_\n");
$naming = 0;
last;
}
else
{
$name .= $_;
}
}
elsif (/^\s*(\w+)\((\S+)\)\s.*\s(\w+)\(\S+\)\s*$/)
{
if ($1 eq $3)
{
$name = $2;
}
}
elsif (/^(N\cHNA\cHAM\cHME\cHE|NAME)/)
{
$naming = 1;
}
}
}
open(OUT, ">/ade/man/whatis.db") || die "cannot open /ade/man/whatis.db\n";
print OUT sort icmp @list;
exit 0;
sub icmp
{
$aa = $a;
$aa =~ tr/[A-Z]/[a-z]/;
$bb = $b;
$bb =~ tr/[A-Z]/[a-z]/;
$aa cmp $bb;
}