From b553a999ebe4ba5f2b4002cb311c8904bff4c3ba Mon Sep 17 00:00:00 2001 From: fuzzyray Date: Sun, 25 Mar 2007 05:40:22 +0000 Subject: [PATCH] Remove subversion/git patch due to many bugs svn path=/; revision=366 --- trunk/ChangeLog | 3 + trunk/src/echangelog/echangelog | 133 +++++++------------------------- 2 files changed, 33 insertions(+), 103 deletions(-) diff --git a/trunk/ChangeLog b/trunk/ChangeLog index d173909..c4eabac 100644 --- a/trunk/ChangeLog +++ b/trunk/ChangeLog @@ -1,3 +1,6 @@ +2007-03-25: Paul Varner + * echangelog: Remove subversion/git patch due to many bugs. + 2007-03-18 Paul Varner * revdep-rebuild: Change --no-color to --nocolor for consistency within gentoolkit. (Bug #165165) diff --git a/trunk/src/echangelog/echangelog b/trunk/src/echangelog/echangelog index 06c526d..1867ef6 100644 --- a/trunk/src/echangelog/echangelog +++ b/trunk/src/echangelog/echangelog @@ -20,38 +20,7 @@ $Text::Wrap::unexpand = 0; # Global variables my (@files, @ebuilds, @conflicts, @trivial, @unknown, @new_versions, %actions); -my ($input, $editor, $entry, $user, $date, $text, $version, $year, $vcs); - -my %vcs = ( cvs => { diff => "cvs -f diff -U0", - status => "cvs -fn up", - add => "cvs -f add", - skip => 6, - regex => qr/^Index: ()(([^\/]*?)\.ebuild)\s*$/ }, - svn => { diff => "svn diff -N", - status => "svn status", - add => "svn add", - skip => 6, - regex => qr/^Index: ()(([^\/]*?)\.ebuild)\s*$/ }, - git => { diff => "git diff", - status => "git diff-index HEAD --name-status", - add => "git add", - skip => 4, - regex => qr/^diff \-\-git \S*\/((\S*)\.ebuild)/ } - -); - -# Figure out what kind of repo we are in. - -if ( -d "CVS" ) { - $vcs = "cvs"; -} elsif ( -d '.svn' ) { - $vcs = "svn"; -} elsif ( open GIT, "git rev-parse --git-dir |" ) { - $vcs = "git"; - close GIT; -} else { - die "No CVS, .git, .svn directories found, what kind of repo is this?"; -} +my ($input, $editor, $entry, $user, $date, $text, $version, $year); # Read the current ChangeLog if (-f 'ChangeLog') { @@ -61,12 +30,8 @@ if (-f 'ChangeLog') { } else { # No ChangeLog here, maybe we should make one... if (<*.ebuild>) { - open C, "portageq envvar PORTDIR |" or die "Can't find PORTDIR"; - my ($new) = ; - close C; - $new =~ s/\s+$//; - open I, "< $new/skel.ChangeLog" - or die "Can't open $new/skel.ChangeLog for input: $!\n"; + open I, '<../../skel.ChangeLog' + or die "Can't open ../../skel.ChangeLog for input: $!\n"; { local $/ = undef; $text = ; } close I; my ($cwd) = getcwd(); @@ -81,47 +46,19 @@ if (-f 'ChangeLog') { } } - # Figure out what has changed around here -open C, $vcs{$vcs}{status}.' 2>&1 |' or die "Can't run ".$vcs{$vcs}{status}.": $!\n"; +open C, 'cvs -fn up 2>&1 |' or die "Can't run cvs -fn up: $!\n"; while () { - if (/^C\s+(\S+)/) { - if($vcs eq "git") { - my $filename = $2; - $filename =~ /\S*\/(\S*)/; - if( -d $1 ) { - next; - } - push @conflicts, $1; - next; - } - push @conflicts, $1; + if (/^C (\S+)/) { + push @conflicts, $1; next; - } elsif (/^\?\s+(\S+)/) { - if($vcs eq "git") { - my $filename = $2; - $filename =~ /\S*\/(\S*)/; - if( -d $1 ) { - next; - } - push @unknown, $1; - next; - } else { - push @unknown, $1; - } + } elsif (/^\? (\S+)/) { + push @unknown, $1; $actions{$1} = '+'; next; - } elsif (/^([ARMD])\s+(\S+)/) { - my ($status, $filename) = ($1,$2); - if($vcs eq "git") { - $filename =~ /\S*\/(\S*)/; - $filename = $1; - } - if( -d $filename ) { - next; - } - push @files, $filename; - ($actions{$filename} = $status) =~ tr/ARDM/+--/d; + } elsif (/^([ARM]) (\S+)/) { + push @files, $2; + ($actions{$2} = $1) =~ tr/ARM/+-/d; } } @@ -129,7 +66,6 @@ while () { @files = grep { !/files.digest|Manifest|ChangeLog/ or do { push @trivial, $_; 0; } } @files; - @unknown = grep { !/files.digest|Manifest|ChangeLog/ or do { push @trivial, $_; 0; } } @unknown; @@ -137,7 +73,7 @@ while () { # Don't allow any conflicts if (@conflicts) { print STDERR <&1 |" or die "Can't run: ".$vcs{$vcs}{diff}."$!\n"; - } else { - open C, $vcs{$vcs}{diff}." @ebuilds 2>&1 |" or die "Can't run: ".$vcs{$vcs}{diff}."$!\n"; - } + open C, "cvs -f diff -U0 @ebuilds 2>&1 |" or die "Can't run cvs diff: $!\n"; $_ = ; while (defined $_) { - # only possible with cvs - if (/^$vcs diff: (([^\/]*?)\.ebuild) was removed/) { + if (/^cvs diff: (([^\/]*?)\.ebuild) was removed/) { push @files, $1; } - - # We assume GNU diff output format here. - # git format: diff --git a/app-doc/repodoc/metadata.xml b/app-doc/repodoc/metadata.xml - elsif (/$vcs{$vcs}{regex}/) { - my ($f) = ($1); - # file was removed from git - if (/^deleted file mode/) { - $_ = ; # just eat the line - } + elsif (/^Index: (([^\/]*?)\.ebuild)\s*$/) { + my ($f, $v) = ($1, $2); # check if more than just copyright date changed. - # skip some lines (vcs dependent) - foreach(1..$vcs{$vcs}{skip}){ - $_ = ; - } + # skip some lines + $_ = ; # ==================================== + $_ = ; # RCS file: ... + $_ = ; # retrieving revision + $_ = ; # diff -u ... + $_ = ; # --- vim-6.2-r6.ebuild + $_ = ; # +++ vim-6.2-r6.ebuild while () { last if /^[A-Za-z]/; if (/^[-+](?!# Copyright)/) { @@ -282,7 +207,7 @@ if (@ebuilds) { # and we have the next line in $_ for processing next; } - elsif (/^$vcs.*?: (([^\/]*?)\.ebuild) is a new entry/) { + elsif (/^cvs.*?: (([^\/]*?)\.ebuild) is a new entry/) { push @files, $1; push @new_versions, $2; # new ebuild, will create a new entry } @@ -409,7 +334,7 @@ close O or die "Can't close ChangeLog.new: $!\n"; # Update affected ebuild copyright dates. There is no reason to update the # copyright lines on ebuilds that haven't changed. I verified this with an IP # lawyer. -for my $e (grep /\.ebuild$/, @files) { +for my $e (grep { /\.ebuild$/ && -e } @files) { my ($etext, $netext); open E, "<$e" or warn("Can't read $e to update copyright year\n"), next; { local $/ = undef; $etext = ; } @@ -435,7 +360,9 @@ rename 'ChangeLog.new', 'ChangeLog' or die "Can't rename ChangeLog.new: $!\n"; # Okay, now we have a starter ChangeLog to work with. # The text will be added just like with any other ChangeLog below. -# Add the new changelog to vcs, maybe it already is added, but who cares right? -system("$vcs{$vcs}{add} ChangeLog 2>&1 >> /dev/null") +# Add the new ChangeLog to cvs before continuing. +if (open F, "CVS/Entries") { + system("cvs -f add ChangeLog") unless (scalar grep /^\/ChangeLog\//, ); +} # vim:sw=4 ts=8 expandtab -- 2.26.2