—

              
#! perl
use B::Disassembler qw(disassemble_fh);
use FileHandle;
HideShow 37 lines of Pod
=pod
=head1 NAME
disassemble
=head1 SYNOPSIS
  disassemble [--bare] [bytecode.plc] > bytecode.asm
  assemble bytecode.asm > bytecode.plc
=head1 DESCRIPTION
Decompiles binary bytecode to readable and recompilable
bytecode assembler.
byteocde is a binary file wih either the magic 4 bytes 'PLBC'
at the start, or something like "#! /usr/bin/perl\n
use ByteLoader '0.07'"
Without the filename uses STDIN.
=head1 OPTION --bare
Without the option --bare the output will be commented.
Note that older assembler, before B::Assembler version 0.07, i.e.
up to perl-5.8.x, will not be able to parse this commented
assembler.
But --bare is only optional, so the default is not backwards
compatible. Rationale: Disassembling is primarily done to make
binary bytecode readable, and not necessarily recompilable with
older assemblers.
=cut
BEGIN {
  if ($B::Disassembler::VERSION > '1.05') {
    B::Disassembler->import('print_insn');
  } else {
    sub print_insn {
      my ($insn, $arg) = @_;
      if (defined($arg)) {
        printf "%s %s\n", $insn, $arg;
      } else {
        print $insn, "\n";
      }
    }
  }
}
my $verbose = '1';
if ($ARGV[0] eq "--bare") {
  shift;
  $verbose = 0;
  *print_insn = *B::Disassembler::print_insn_bare;
}
my $fh;
if (@ARGV == 0) {
  $fh = \*STDIN;
} elsif (@ARGV == 1) {
  $fh = new FileHandle "<$ARGV[0]";
} else {
  die "Usage: disassemble [--bare] [filename]\n";
}
disassemble_fh($fh, \&print_insn, $verbose);