Re: 23.0.60; Womang hangs on some links

[Stefan Monnier <monnier@iro.umontreal.ca>]

> A side question : given the recent discussions about the state of the
> toolchain used, I did 'rm -fr emacs ; cvs -d... co emacs ; cd emacs ;
> ./configure ; make bootstrap'. Is there a method less network and
> CPU-hungry ?

You can use a cvs-clean script which just removes all
non-CVS-controlled files.  This is *much* faster and doesn't require any
network access.
E.g. I occasionally use the script below.


        Stefan


#!/usr/bin/perl

sub cvsclean {
    my($path) = @_;
    my(%files) = ();
    my(@subdirs);

    print STDOUT "Cleaning $path\n";
    opendir (DIR, "$path/") || die "No directory $path";
    open (ENTRIES, "$path/CVS/Entries") || die "No $path/CVS/Entries file";
    while (<ENTRIES>) {
	if (m[^D/([^/]+)]) {
	    push (@subdirs, "$path/$1");
	} elsif (m[^/([^/]+)/[^/-]]) {
	    $files{$1} = "managed";
	}
    }

    foreach $entry (readdir(DIR)) {
	if (!exists ($files{$entry})) {
	    $entry = "$path/$entry";
	    if (-f $entry) {
		print STDOUT "unlink $entry\n";
		unlink $entry;
	    }
	}
    }
    
    foreach $subdir (@subdirs) {
	&cvsclean ($subdir);
    }
}

&cvsclean (".");