URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
Rev 645 |
Rev 795 |
#!/usr/bin/perl
|
#!/usr/bin/perl
|
|
|
use warnings;
|
use warnings;
|
use strict;
|
use strict;
|
|
|
my @keys = qw(number date author comment);
|
my @keys = qw(number date author comment);
|
my @revs;
|
my @revs;
|
{
|
{
|
local $/ = '';
|
local $/ = '';
|
|
|
while (<>) {
|
while (<>) {
|
my @values = split(/\|/);
|
my @values = split(/\|/);
|
my %rev;
|
my %rev;
|
foreach (@keys) {
|
foreach (@keys) {
|
$rev{$_} = shift @values;
|
$rev{$_} = shift @values;
|
$rev{$_} =~ s/^\s+|\s+$//g;
|
$rev{$_} =~ s/^\s+|\s+$//g;
|
}
|
}
|
push @revs, \%rev;
|
push @revs, \%rev;
|
}
|
}
|
}
|
}
|
|
|
if (@revs) {
|
if (@revs) {
|
print "<revhistory>\n";
|
print "<revhistory>\n";
|
foreach my $rev (@revs) {
|
foreach my $rev (@revs) {
|
print " <revision>\n";
|
print " <revision>\n";
|
print " <revnumber>$rev->{number}</revnumber>\n";
|
print " <revnumber>$rev->{number}</revnumber>\n";
|
print " <date>$rev->{date}</date>\n";
|
print " <date>$rev->{date}</date>\n";
|
print " <authorinitials>$rev->{author}</authorinitials>\n";
|
print " <authorinitials>$rev->{author}</authorinitials>\n";
|
print " <revremark>\n";
|
print " <revremark>\n";
|
print " $rev->{comment}\n";
|
print " $rev->{comment}\n";
|
print " </revremark>\n";
|
print " </revremark>\n";
|
print " </revision>\n";
|
print " </revision>\n";
|
}
|
}
|
print "</revhistory>\n";
|
print "</revhistory>\n";
|
}
|
}
|
|
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.