#!/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";