#!/opt/local/bin/perl

@db = <STDIN>;

@db = sort(@db);

foreach $record (@db) {
   ($name,$category,$description) = split(/:/,$record);
   if (index($catlist,$category) == -1) {
      $catlist .= $category . ",";
      }
   }
chop($catlist);
@catlist = split(/,/,$catlist);
@catlist=sort(@catlist);

print "               Contents of Marc Buie's IDL library.\n";
print "\n";
print ("This listing generated: ",`date`,"\n");

foreach $category (@catlist) {
   print ($category,"\n");
   print "______________\n";
   print "--------------\n";
   foreach $record (@db) {
      ($name,$thiscat,$description) = split(/:/,$record);
      chop($description);
      if ($thiscat eq $category) {
         printf "  %-8s - %s\n",$name,$description;
         }
      }
   print "\n";
   print "---------------------------------------------------------------------\n";
   }

print "\n";
print "All routines in alphabetic order\n";
print "\n";
foreach $record (@db) {
   ($name,$thiscat,$description) = split(/:/,$record);
   chop($description);
   printf "  %-8s - %s\n",$name,$description;
   }
print "\n";
print "---------------------------------------------------------------------\n";