[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / 5.8.0 / B / disassemble

use B::Disassembler qw(disassemble_fh);
use FileHandle;

my $fh;
if (@ARGV == 0) {
    $fh = \*STDIN;
} elsif (@ARGV == 1) {
    $fh = new FileHandle "<$ARGV[0]";
} else {
    die "Usage: disassemble [filename]\n";
}

sub print_insn {
    my ($insn, $arg) = @_;
    if (defined($arg)) {
	printf "%s %s\n", $insn, $arg;
    } else {
	print $insn, "\n";
    }
}

disassemble_fh($fh, \&print_insn);
Commit	Line	Data
86530b38 AT	1	use B::Disassembler qw(disassemble_fh);
	2	use FileHandle;
	3
	4	my $fh;
	5	if (@ARGV == 0) {
	6	$fh = \*STDIN;
	7	} elsif (@ARGV == 1) {
	8	$fh = new FileHandle "<$ARGV[0]";
	9	} else {
	10	die "Usage: disassemble [filename]\n";
	11	}
	12
	13	sub print_insn {
	14	my ($insn, $arg) = @_;
	15	if (defined($arg)) {
	16	printf "%s %s\n", $insn, $arg;
	17	} else {
	18	print $insn, "\n";
	19	}
	20	}
	21
	22	disassemble_fh($fh, \&print_insn);