mirrors/zsh
1
0
Fork 0
mirror of git://git.code.sf.net/p/zsh/code synced 2025-01-01 05:16:05 +01:00
Code Releases Activity

Diff by article number, not just by attribution line.

Browse source
This commit is contained in:
Bart Schaefer 2002-04-17 18:10:18 +00:00
parent 91edfa3b25
commit 75eca01e4f
1 changed files with 40 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

50
Util/difflog.pl
View file

@ -1,5 +1,6 @@
#!/usr/bin/perl #!/usr/bin/perl
use strict;
use IO::File; use IO::File;
my @differ = qw(diff -bw); my @differ = qw(diff -bw);
@ -10,6 +11,8 @@ my $newfn = pop(@ARGV);
my $oldfn = pop(@ARGV); my $oldfn = pop(@ARGV);
my (%oldhash, %newhash); my (%oldhash, %newhash);
my $article = q[(:?(:?workers?|users?)/)?\d{4,5}];
read_file($newfn, \%newhash); read_file($newfn, \%newhash);
read_file($oldfn, \%oldhash); read_file($oldfn, \%oldhash);
@ -68,6 +71,38 @@ while ($new < @newentries)
printf("only in %s: %s\n", $newfn, $newentries[$new++]); printf("only in %s: %s\n", $newfn, $newentries[$new++]);
} }
sub append_entry
{
my ($hashref, $entry, $tag, $block) = @_;
if (exists($hashref->{$entry})) {
$hashref->{$entry} .= "$tag\n$block";
} else {
$hashref->{$entry} = '';
if (defined($tag) || defined($block)) {
$hashref->{$entry} .= "$tag\n$block";
}
}
}
sub make_entries
{
my ($hashref, $entry, $tag, $block) = @_;
if ($entry =~ s/($article)/ARTICLE/) {
my $key = $1;
$key =~ s:workers?/::;
&append_entry($hashref, $key, $tag, $block);
while ($entry =~ s/($article)/ARTICLE/) {
$key = $1;
$key =~ s:workers?/::;
&append_entry($hashref, $key, $tag, $block);
}
} else {
&append_entry($hashref, $entry, $tag, $block);
}
}
sub read_file sub read_file
{ {
my $fn = shift; my $fn = shift;
@ -75,9 +110,8 @@ sub read_file
my $fh = new IO::File($fn, 'r'); my $fh = new IO::File($fn, 'r');
my ($tag, $date, $entry, $block); my ($tag, $date, $entry, $block);
my $attrib = q[(:?(:?workers?|users?)/)?\d+]; my $attrib = q[(?:\w+\s+)*] . $article;
$attrib = q[(?:\w+\s+)*] . $attrib; $attrib = q[(?:[^/]*\D[:,]\s*)?] . $attrib;
$attrib = q[(?:[^/]*\D:\s*)?] . $attrib;
$attrib = qq[(?:unposted|$attrib)]; $attrib = qq[(?:unposted|$attrib)];
$attrib = qq[(?:(?:$attrib,\\s*)*$attrib)]; $attrib = qq[(?:(?:$attrib,\\s*)*$attrib)];
@ -89,7 +123,7 @@ sub read_file
$date = $1; $date = $1;
$block =~ s/\n*\Z/\n/; $block =~ s/\n*\Z/\n/;
if ($entry) { if ($entry) {
$hashref->{$entry} .= "$tag\n$block"; &make_entries($hashref, $entry, $tag, $block);
} elsif ($tag) { } elsif ($tag) {
$hashref->{unattributed} .= "\n$tag$block"; $hashref->{unattributed} .= "\n$tag$block";
} }
@ -99,13 +133,9 @@ sub read_file
my $next = $1; my $next = $1;
if ($entry) { if ($entry) {
$block =~ s/\n*\Z/\n/; $block =~ s/\n*\Z/\n/;
$hashref->{$entry} .= "$tag\n$block"; &make_entries($hashref, $entry, $tag, $block);
}
if (exists($hashref->{$next})) {
$hashref->{$next} .= "\n";
} else {
$hashref->{$next} = '';
} }
&make_entries($hashref, $next);
$entry = $next; $entry = $next;
$block = $line; $block = $line;
} else { } else {