#!/usr/bin/perl
@files = <*.c>;
@files = sort {$a <=> $b} @files;
print "\n\nCSE 141 x86 Assembly DEMO\n";
print "\n";
print
"CSE 141 x86 assembly samples
| Code Snippet |
Source File |
side-by-side |
Assembly Code |
\n";
foreach $fname(@files)
{
print "\n";
open(source, $fname);
@lines = ;
close(source);
$label = "";
foreach $line(@lines)
{
if($line =~ /\/\/label:/)
{
$label = $line;
break;
}
}
$label =~ s/\/\/label://;
print "| $label | \n";
print "$fname | \n";
$html=$fname;
$html=~ s/\.c$/.html/g;
print "side-by-side | \n";
$t = $fname;
foreach $i ("x86", "MIPS") {
$fname = $t;
$fname =~ s/\.c/-$i.c/;
$fname =~ s/\.c/-debug.s/;
print "$fname | \n";
$fname =~ s/\-debug.s/-opt1-debug.s/;
print "$fname | \n";
$fname =~ s/-opt1-debug\.s/-opt4-debug.s/;
print "$fname | \n";
}
print "
\n";
}
print "\n\n";