Re: Emacs in CVS as today does not build - emacs depends on *.elc, which cannot be built without emacs

["Stefan Monnier" <monnier+gnu/emacs@rum.cs.yale.edu>]

> "Stefan Monnier" <monnier+gnu/emacs@rum.cs.yale.edu> writes:
> 
> |> The question was: do you care whether you have to say
> |> 
> |> 	make bootstrap
> |> or
> |> 	make clean bootstrap
> |> 
> |> when you want to do your consistency-check bootstrap ?
> 
> make clean does not rm *.elc, only bootstrap-clean does.

I wouldn't know, I use cvsclean instead.


	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 (".");