die "Usage: $0 <text file> <html file> <TexInfo file>\n"
unless scalar @ARGV == 3;
print HTML "<html>";
sub analyze($) {
my ($line) = @_;
# command line options
# [Class::]function()
# `file'
# TS...
# CXXTEST_
}
my $line;
my $inRelease = 0;
chomp $line;
print HTML "<title>CxxTest Releases</title>\n";
print HTML "<h1>CxxTest Releases</h1>\n\n";
print TEXI "\@appendix Version history\n";
print TEXI "\@itemize \@bullet\n";
}
elsif ( $line =~ m/^(.*):$/ ) {
if ( $inRelease ) {
print HTML "</ul>\n\n";
print TEXI "\@end itemize\n";
}
print HTML "<h2>$1</h2>\n";
print HTML "<ul>\n";
print TEXI "\@item\n\@strong{$1}\n";
print TEXI "\@itemize \@minus\n";
$inRelease = 1;
}
elsif ( $line =~ m/^ - (.*)$/ ) {
print HTML "<li>$htmlLine</li>\n";
print TEXI "\@item\n$texiLine\n";
}
}
if ( $inRelease ) {
print HTML "</ul>\n\n";
print TEXI "\@end itemize\n\n";
}
print HTML "</html>\n";
print TEXI "\@end itemize\n";
close TEXT or die "Error closing text file \"$text\"\n";
close HTML or die "Error closing html file \"$html\"\n";
close TEXI or die "Error closing TexInfo file \"$texi\"\n";