Subversion Repositories gelsvn

use File::Path;

rmdirkeep("src",("CGLA"));

rmdirkeep("test",("CGLA-mat", "CGLA-vec", "CGLA-simple", "CGLA-ogl"));

rmdirkeep("apps", ());

#unlink <src/HMeshUtil/mesh_optimization.*>;

sub rmdirkeep {

   local($dir, @keeps) = @_;

   chdir($dir) || die "Cannot chdir to $dir\n";

   local(*DIR);

   opendir(DIR, ".");

   while ($f=readdir(DIR)) {

      next if ($f eq "." || $f eq ".." );

      next if ($f eq "CVS");

      next if (-f $f);

      $found = 0;

      for $keep (@keeps) {

        if ($f eq $keep) {

           $found = 1;

        }

      }

      next if ($found);

#      print "$f\n";

      rmtree($f, 1,1);

   }

   closedir(DIR);

   chdir("..");

}