#!/usr/bin/perl
# remove all the files recursively from current directory not under prcs control
require "prcs-parse.pl";
die "No project file present" unless ($project, $to)=&get_default_project;    
print "Cleaning project ",$project,"\n";

%allfiles = ();
open(ALLFILES, "find . -type f -print|") || die ("find failed");
while (<ALLFILES>) {
    chop;
    $allfiles{$_} = 1;
}

open(PRCSFILES, "prcs execute -q ./ |") || die ("prcs failed");
while (<PRCSFILES>) {
    chop;
    delete $allfiles{"./" . $_};
}

delete $allfiles{"./" . $project . ".prj"};
delete $allfiles{"./." . $project . ".prcs_aux"};

foreach $key (keys %allfiles) {
    print $progname,": deleting ",$key,"\n";
    unlink ($key) || warn ("unlink failed on $key");
}
