my $type = $pf->const_table->constant(0)->type; if ($type ne Parrot::PackFile::Constant->type_code('PFC_STRING')) { $type = Parrot::PackFile::Constant->type_name($type); warn "Disassembling without opcode table fingerprint (first constant isn't a string; type = '$type')!"; } my $ref = ref $pf->const_table->constant(0)->value; if ($ref ne 'Parrot::String') { warn "Cannot disassemble (malformed string as first constant; type = '$ref'!"; } my $data = ref $pf->const_table->constant(0)->value->data; if ($data ne $opcode_fingerprint) { warn "Cannot disassemble (differing opcode table; data = '$data')!"; }
disassemble.pl - disassemble the byte code from Parrot Pack Files
perl disassemble.pl FILE
Disassembles the Parrot Pack Files listed on the command line, or from standard input if no file is named.
Copyright (C) 2001 The Parrot Team. All rights reserved.
This program is free software. It is subject to the same license as the Parrot interpreter.
1 POD Error
The following errors were encountered while parsing the POD:
Unknown directive: =no
To install Scheme, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Scheme
CPAN shell
perl -MCPAN -e shell install Scheme
For more information on module installation, please visit the detailed CPAN module installation guide.