#!/usr/bin/perl
use strict;
use warnings;
# run this like "perl nh_htmlize.pl src/*.c" in the nethack src root dir.
my $indexfile = "index.html";
my $htmlized_prepend = "\n";
my $htmlized_append = "\n
";
my @filenames;
my %functions;
open(INDEXFILE, ">" . $indexfile);
print INDEXFILE "\n";
print INDEXFILE "\n";
print INDEXFILE "\n";
print INDEXFILE "\n";
sub process_file {
my $filu = shift;
my $curline = 1;
open(INFO, $filu) or die "Couldn't open file $filu: $!\n";
my @lines = ;
close(INFO);
open(HTMLIZED, ">".$filu.".html");
print HTMLIZED $htmlized_prepend;
foreach $a (@lines) {
print HTMLIZED ''.sprintf("%4u. ",$curline).$a;
if ($a =~ m/^([a-z_0-9]+\(.*\))\s*$/i) {
my $fnc = $1;
$functions{$fnc} = [$filu, ($curline-1)];
}
$curline++;
}
print HTMLIZED $htmlized_append;
close(HTMLIZED);
push @filenames, $filu;
}
while ($#::ARGV) { process_file($::ARGV[0]); shift; }
print INDEXFILE '';
foreach $a (@filenames) {
print INDEXFILE '- '.$a.''."\n";
}
print INDEXFILE "
";
print INDEXFILE '';
for my $key (sort { lc($a) cmp lc($b) } keys %functions) {
print INDEXFILE '- '.$key.''."\n";
}
print INDEXFILE "
";
print INDEXFILE "\n";
print INDEXFILE "\n";
close(INDEXFILE);