NAME

Parrot opcodes summary

Parrot Opcodes by Category

EOH

foreach my $file ( sort keys %ops_in_file ) { print "=item $blurb_for_file{$file}\n"; print join ', ', map { "$_" } sort keys %{ $ops_in_file{$file} }; print "\n\n"; }

print << "EOH2"; =back

Alphabetical Listing of Parrot Opcodes

EOH2

foreach my $op ( sort keys %blurbs_for_op ) { my $op_has_description = grep { /^.+\n+./ } @{ $blurbs_for_op{$op} }; $blurbs_for_op{$op}[-1] .= "-\n" unless $op_has_description;

foreach my $syntax ( @{ $blurbs_for_op{$op} } ) {
    print "$syntax\n";
}
}

print << "EOH3"; =back

EOH3

# Local Variables: # mode: cperl # cperl-indent-level: 4 # fill-column: 100 # End: # vim: expandtab shiftwidth=4: