You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
28 lines
663 B
28 lines
663 B
15 years ago
|
#!/usr/bin/perl -w
|
||
|
|
# Extract author information from C++ files
|
||
|
|
# and print it out in DocBook format as a list
|
||
|
|
# Daniel Naber <daniel.naber@t-online.de>
|
||
|
|
# $Id$
|
||
|
|
|
||
|
|
my $file = $ARGV[0];
|
||
|
|
if( ! $file ) {
|
||
|
|
print "Usage: $0 <file.cpp>\n";
|
||
|
|
exit;
|
||
|
|
}
|
||
|
|
|
||
|
|
open(IN, $file) || die "Cannot open '$file': $!\n";
|
||
|
|
undef $/;
|
||
|
|
my $str = (<IN>);
|
||
|
|
close(IN);
|
||
|
|
|
||
|
|
print "<itemizedlist>\n";
|
||
|
|
while( $str =~ m/addAuthor\s*\(\s*"(.*?)",\s*.*?,\s*"(.*?)"/gs ) {
|
||
|
|
my ($name, $email) = ($1, $2);
|
||
|
|
print "<listitem><para>$name <email>$email</email></para></listitem>\n";
|
||
|
|
#print "$name, $email\n";
|
||
|
|
}
|
||
|
|
print "</itemizedlist>\n";
|
||
|
|
|
||
|
|
print STDERR "Warning: maybe you need to fix umlauts manually...\n";
|
||
|
|
exit;
|