OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [or1200/] [doc/] [gen-docinfo.pl] - Rev 832

Go to most recent revision | Compare with Previous | Blame | View Log

#!/usr/bin/perl
 
use warnings;
use strict;
 
my @keys = qw(number date author comment);
my @revs;
{
    local $/ = '';
 
    while (<>) {
	my @values = split(/\|/);
	my %rev;
	foreach (@keys) {
	    $rev{$_} = shift @values;
	    $rev{$_} =~ s/^\s+|\s+$//g;
	}
	push @revs, \%rev;
    }
}
 
if (@revs) {
    print "<revhistory>\n";
    foreach my $rev (@revs) {
	print "  <revision>\n";
	print "    <revnumber>$rev->{number}</revnumber>\n";
	print "    <date>$rev->{date}</date>\n";
	print "    <authorinitials>$rev->{author}</authorinitials>\n";
	print "    <revremark>\n";
	print "    $rev->{comment}\n";
	print "    </revremark>\n";
	print "  </revision>\n";
    }
    print "</revhistory>\n";
}
 
 

Go to most recent revision | Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.