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

$toolkit_dir = shift(@ARGV);

chdir $toolkit_dir;

open(TOOLKITS, "ls|");

while(<TOOLKITS>)
{
  chop;

  # Ignore CVS and backup stuff
  next if (m:^CVS$:);
  next if (m:^\#:);
  next if (m:~$:);

  # Just pick directories
  if( -d $_)
  {
    push (@toolkits, $_);
  }
}

close TOOLKITS;

foreach $toolkit (@toolkits)
{
  chdir $toolkit;

  open(THORNLIST, "ls|");
  
  while(<THORNLIST>)
  {
    chop;

    # Ignore CVS and backup stuff
    next if (m:^CVS$:);
    next if (m:^\#:);
    next if (m:~$:);
    
    # Allow each toolkit to have a documentation directory.
    next if (m:^doc$:);

    # Just pick directories
    if( -d $_)
    {
      push(@total_thornlist, "$toolkit/$_");
    }
  }
  chdir "..";
}

foreach $thorn (@total_thornlist)
{
  print "$thorn\n";
}