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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
#/usr/bin/perl
# Script that copies all files from src directory to src2 directory
# and extracts @Description and Input.description info into comments
# so that javadoc has access to them.
#
# build.xml has a javadoc target, which runs this script before running
# javadoc on the output. Results are stored in release/common/doc/develop/javadoc/
use Cwd;
mkdir("src2");
@list = `find src/|grep java|grep beast|grep -v "\.svn"|grep -v test|egrep -v BeerLikelihoodCore.+.java`;
print $#list;
# grab Description info for abstract classes
foreach $sFile (@list) {
chomp($sFile);
print "Processing $sFile\n";
$sClass = $sFile;
$sClass =~ s/src.//;
$sClass =~ s/.java$//;
$sClass =~ s/\//./g;
open(FIN,$sFile) or die "Cannot open file $sFile for reading";
while ($s = <FIN>) {
if ($s =~ /^\s*\@Description/) {
# extract Description text
$d = $s;
$d =~ s/.*\@Description\s*\(\s*"(.*)".*/$1/;
while (($s !~ /\bpublic.+class\b/) && ($s !~ /\bpublic.+interface\b/) && ($s = <FIN>)) {
if (($s !~ /\bpublic.+class\b/) && ($s !~ /\bpublic.+interface\b/)) {
$s =~ s/\s*"(.*)".*/$1/;
$d .= $s;
}
}
$map{"$sClass \@description"} = $d;
}
}
close FIN;
}
# grab description and input info from DocMaker
open (FIN,"java -cp build:lib/commons-math3-3.1.1.jar beast.app.DocMaker -javadoc |");
while ($s = <FIN>) {
$s =~ /^([^:]*):([^:]*):(.*)$/;
$map{"$1 $2"} = $3;
}
# process files: copy each Java class from src to src2
foreach $sFile (@list) {
chomp($sFile);
print "Processing $sFile\n";
$sClass = $sFile;
$sClass =~ s/src.//;
$sClass =~ s/.java$//;
$sClass =~ s/\//./g;
$sDir = $sFile;
$sDir =~ s/src/src2/;
$sDir =~ s/[^\/]*java$//;
`mkdir -p $sDir`;
open(FIN,$sFile) or die "Cannot open file $sFile for reading";
$sFile2 = $sFile;
$sFile2 =~ s/src/src2/;
open(FOUT,">$sFile2") or die "Cannot open file $sFile2 for writing";
while ($s = <FIN>) {
if ($s =~ /^\s*\@Description/) {
# extract Description text and insert as comment
while (($s !~ /\bpublic.+class\b/) && ($s !~ /\bpublic.+interface\b/) && ($s = <FIN>)) {
}
if (length($map{"$sClass \@description"}) > 1) {
print FOUT "\n/**\n * ".$map{"$sClass \@description"}." */\n";
}
}
# insert input description
if ($s =~ /new\s+Input<.*>\("([^"]*)"\s*,/) {
print FOUT "/** ".$map{"$sClass $1"}." **/\n";
}
print FOUT $s;
}
close FIN;
close FOUT;
}
#print `cp src/beast/core/Plugin.java src2/beast/core`;
print `cp src/beast/core/Description.java src2/beast/core`;
print `cp src/beast/core/Citation.java src2/beast/core`;
|
