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
|
#!/usr/bin/perl
#
# This script parses the giza-pgplot.f90 file
# to produce html documentation of the current
# status of the PGPLOT interface to giza
# (that can be built as libpgplot)
#
open(FILE, "<../src/giza-cpgplot.c");
my $module;
my $desc;
my $link;
my $status;
my $ntot = 0;
my $ndone = 0;
my $npar = 0;
print STDOUT "<table>\n";
while (<FILE>) {
if ( m/(^.*cpg)/)
{
($module,$desc) = m/^.*(cpg.*) -- (.*)/;
($link) = m/^.*c(pg.*) --/;
print STDOUT "<tr><td><a href=\"http://www.astro.caltech.edu/~tjp/pgplot/subroutines.html#$link\">$module</a></td>";
}
elsif ( m/(^.*Status:)/)
{
($status) = m/^.*Status: (.*)/;
$_ = $status;
my $color = "#FF6600"; # default is orange
if ( m/.*(NOT).*/ )
{
$color = "#FF0000"; # red
}
elsif ( m/^IMPLEMENTED$/ )
{
$color = "#009900"; # green
$ndone = $ndone + 1;
$npar = $npar + 1;
}
else
{
$npar = $npar + 1;
}
$ntot = $ntot + 1;
print STDOUT "<td bgcolor=$color>$status</td><td>$desc</td></tr>\n";
}
}
print STDOUT "</table>\n";
print STDOUT "<p>$npar of $ntot routines implemented, $ndone of $ntot fully implemented.</p>\n";
|
