From: Stefan Monnier <monnier@iro.umontreal.ca>
Cc: info-cvs@nongnu.org, Bill Wohler <wohler@newt.com>, emacs-devel@gnu.org
Subject: Re: mh-e/mh-loaddefs.el removed from CVS
Date: Tue, 18 Oct 2005 10:27:42 -0400 [thread overview]
Message-ID: <jwvll0qsy3l.fsf-monnier+emacs@gnu.org> (raw)
In-Reply-To: <uzmp7et3b.fsf@jasonrumney.net> (Jason Rumney's message of "Mon, 17 Oct 2005 22:23:04 +0100")
> I'm not sure how important it is to be able to start from a clean CVS
> tree without checking it out fresh.
For some people, checking out the whole CVS tree takes a long time.
For subversions.gnu.org it also adds unnecessary load.
Admittedly, this is not specific to Emacs, and arguably CVS should come with
a tool to delete non-CVS-managed files to revert to the "fresh checkout"
state. I use a littel Perl script `cvsclean' to do that.
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 (".");
next prev parent reply other threads:[~2005-10-18 14:27 UTC|newest]
Thread overview: 18+ messages / expand[flat|nested] mbox.gz Atom feed top
2005-10-12 15:05 mh-e/mh-loaddefs.el removed from CVS Zhang Wei
2005-10-12 22:07 ` Bill Wohler
2005-10-12 22:50 ` Juanma Barranquero
2005-10-12 23:08 ` Bill Wohler
2005-10-17 21:23 ` Jason Rumney
2005-10-17 21:27 ` Bill Wohler
2005-10-18 14:27 ` Stefan Monnier [this message]
2005-11-10 18:56 ` Emilio Lopes
2005-10-20 12:10 ` Eli Zaretskii
2005-10-20 14:23 ` Bill Wohler
-- strict thread matches above, loose matches on Subject: below --
2005-10-07 5:00 Bill Wohler
2005-10-07 14:19 ` Stefan Monnier
2005-10-07 19:09 ` Richard M. Stallman
2005-10-08 20:03 ` Bill Wohler
2005-10-09 18:16 ` Richard M. Stallman
2005-10-09 19:36 ` Bill Wohler
2005-10-15 5:51 ` Bill Wohler
2005-10-15 16:40 ` Bill Wohler
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=jwvll0qsy3l.fsf-monnier+emacs@gnu.org \
--to=monnier@iro.umontreal.ca \
--cc=emacs-devel@gnu.org \
--cc=info-cvs@nongnu.org \
--cc=wohler@newt.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.