URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [or1200/] [doc/] [gen-docinfo.pl] - Rev 744
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