doc/xmlize.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40

#!/usr/bin/perl

sub xml($) {
	$buffer = $_[0];
	$buffer =~ s/^File: (.*) \(row: (\d+)\) (.*)/\t\<Message file=\"$1\" row=\"$2\"\>\n\t\t$3\n\t\<\/Message\>\n/;
	return $buffer;
}

open(FIN,"doxygen.log");
open(FOUT,">doxygen.log.xml");

print FOUT "<Doxygen>\n";

$buffer = "";
while (<FIN>) {
	chop;
	$row = $_;

	$row =~ s/&/&#38;#38;/g;
	$row =~ s/</&#38;#60;/g;
	$row =~ s/>/&#x003E;/g;

	if ( $row =~ /^File: / ) {
		if (length($buffer)>0) {
			print FOUT xml($buffer);
			$buffer = "";
		} 
		$buffer .= $row;
	} else {
		$buffer .= $row;
	}

}
print FOUT "</Doxygen>\n";

close(FIN);
close(FOUT);