This is the mail archive of the
gcc@gcc.gnu.org
mailing list for the GCC project.
Re: [tree-ssa] More patch reversals. Branch closed temporarily
- From: Tom Tromey <tromey at redhat dot com>
- To: Jason Merrill <jason at redhat dot com>
- Cc: Diego Novillo <dnovillo at redhat dot com>, Jan Hubicka <jh at suse dot cz>, Richard Henderson <rth at redhat dot com>, Andrew Macleod <amacleod at redhat dot com>, Zdenek Dvorak <rakdver at atrey dot karlin dot mff dot cuni dot cz>, Steven Bosscher <stevenb at suse dot de>, "gcc at gcc dot gnu dot org" <gcc at gcc dot gnu dot org>
- Date: 18 Nov 2003 16:34:19 -0700
- Subject: Re: [tree-ssa] More patch reversals. Branch closed temporarily
- References: <200311182028.hAIKStCH001852@speedy.slc.redhat.com><wvlk75x5r50.fsf@prospero.boston.redhat.com>
- Reply-to: tromey at redhat dot com
>>>>> "Jason" == Jason Merrill <jason@redhat.com> writes:
Jason> Patch reversal is still pretty easy with cvs update -j.
Here's a script that takes a cvs commit message and generates a new
script which reverts the commit. It isn't perfect, and it hasn't been
heavily tested, but it ought to work ok. If you modify it, please
send me the updates.
Tom
#! /usr/bin/perl -n
# This takes a gcc-style cvs commit message, extracts the URLs from
# it, and generates a small shell script to revert the patch.
if (m,http://.*\.cgi/(.+)/([^/]+)\?cvsroot=[a-z]+\&r1=([^&]+)\&r2=([^&\n]+)$,)
{
$dir = $1;
$file = $2;
$r1 = $3;
$r2 = $4;
if ($file eq 'ChangeLog') {
# Don't revert ChangeLog entries.
} elsif ($r1 eq 'NONE') {
print "cvs rm -f $dir/$file\n";
} else {
print "(cd $dir; cvs update -j$r2 -j$r1 $file)\n";
}
}