5 open MACHINE, "<" . $ARGV[0];
6 open OUTPUT, ">" . $ARGV[1];
10 print OUTPUT "<!-- Generated from Interpreter.cpp by make-bytecode-docs.pl. -->\n";
11 print OUTPUT "<style>p code \{ font-size: 14px; \}</style>\n";
14 if (/^ *DEFINE_OPCODE/) {
16 s/^ *DEFINE_OPCODE\(op_//;
23 $format =~ s|.* /\* ||;
32 print OUTPUT "<h2><code>${opcode}</code></h2>\n<p><b>Format: </b><code>\n${format}\n</code></p>\n<p>\n${doc}\n</p>\n";
34 push @undocumented, $opcode;
41 for my $undoc (@undocumented) {
42 print "UNDOCUMENTED: ${undoc}\n";