#!/usr/bin/perl

$file = $ARGV[0];
$base = $file;
$base =~ s/\.c$//g;

open(OUT,">$base.html")|| die;

print OUT "<html>\n<head>\n<title>$base</title></head><body>\n";

print OUT "<table border=\"1\">";
print OUT"
<tr>
<td>C code</td>
<td>x86 asm</td>
<td>MIPS asm</td>
<td>x86 asm -O1</td>
<td>MIPS asm -O1</td>
<td>x86 asm -O4</td>
<td>MIPS asm -O4</td>
</tr>
<tr>
";

foreach $i (".c",
	    "-x86.s",
	    "-MIPS.s",
	    "-x86-opt1.s",
	    "-MIPS-opt1.s",
	    "-x86-opt4.s",
	    "-MIPS-opt4.s"
) {
    print OUT "<td><pre>";
    open(IN,"<$base$i") || die "Can't open $base-$i";
    while(<IN>) {
#	s/\t/     /g;
	s/^(.{35}).*/$1.../;
	print OUT;
    }
    close(IN);
    print OUT "</pre></td>";
    
}


print OUT "</tr>";
print OUT "</table>";

print OUT "</body></html>\n";