From owner-cvs-user  Sat Aug  5 06:59:32 1995
Return-Path: cvs-user-owner
Received: (from majordom@localhost)
          by freefall.cdrom.com (8.6.11/8.6.6) id GAA18706
          for cvs-user-outgoing; Sat, 5 Aug 1995 06:59:32 -0700
Received: from haywire.DIALix.COM (haywire.DIALix.COM [192.203.228.65])
          by freefall.cdrom.com (8.6.11/8.6.6) with ESMTP id GAA18700
          ; Sat, 5 Aug 1995 06:59:13 -0700
Received: (from peter@localhost) by haywire.DIALix.COM (8.6.12/8.6.12/DIALix) id VAA03026; Sat, 5 Aug 1995 21:58:54 +0800
Date: Sat, 5 Aug 1995 21:58:53 +0800 (WST)
From: Peter Wemm <peter@haywire.dialix.com>
To: "Jordan K. Hubbard" <jkh@time.cdrom.com>
cc: "Rodney W. Grimes" <rgrimes@gndrsh.aac.dev.com>,
        Garrett Wollman <wollman@halloran-eldar.lcs.mit.edu>,
        jkh@freefall.cdrom.com, CVS-commiters@freefall.cdrom.com,
        cvs-user@freefall.cdrom.com
Subject: Re: cvs commit: src/lib Makefile 
In-Reply-To: <13001.807586331@time.cdrom.com>
Message-ID: <Pine.SV4.3.91.950805215417.17645I-100000@haywire.DIALix.COM>
MIME-Version: 1.0
Content-Type: TEXT/PLAIN; charset=US-ASCII
Sender: cvs-user-owner@freebsd.org
Precedence: bulk

On Fri, 4 Aug 1995, Jordan K. Hubbard wrote:
> > > rm *
> > 
> > Does not handle deep branches, my comments above where correct, ``rm the
> > files'', rm * does not necessarily do what you wanted.
> 
> Indeed.  We're still waiting for Joerg to give us the perl script for
> going through a directory hierarchy and removing anything that's both
> a file and not a child of any CVS/ directory.  Then you could prep and
> remove in one operation, assuming that said perl script did one pass
> before the other for you.  I've always wanted this sort of thing, but
> also make it a habit of ignoring any and all such irrefutable
> reminders that I really have to learn perl, no matter how much I hate
> its syntax.. :-)
> 
> 						Jordan

Why reinvent the wheel? :-)  Check out 
/usr/src/gnu/usr.bin/cvs/contrib/descend and descend.man.

You could do:  descend -r 'cvs rm -f *' .

The "-f" means to cvs that it should unlink the file, and 'cvs rm' it at 
the same time.

You **must** use the "-r" to descend though, that causes it to skip the 
CVS directories.. :-)  If this were to be commonly used, it'd probably 
want this option forced to be on by default...

Oh, and it's not perl.. :-(

Cheers,
-Peter