diff options
Diffstat (limited to 'Source/JavaScriptCore/docs/make-bytecode-docs.pl')
-rwxr-xr-x | Source/JavaScriptCore/docs/make-bytecode-docs.pl | 43 |
1 files changed, 0 insertions, 43 deletions
diff --git a/Source/JavaScriptCore/docs/make-bytecode-docs.pl b/Source/JavaScriptCore/docs/make-bytecode-docs.pl deleted file mode 100755 index 5a95195a8..000000000 --- a/Source/JavaScriptCore/docs/make-bytecode-docs.pl +++ /dev/null @@ -1,43 +0,0 @@ -#!/usr/bin/perl -w - -use strict; - -open MACHINE, "<" . $ARGV[0]; -open OUTPUT, ">" . $ARGV[1]; - -my @undocumented = (); - -print OUTPUT "<!-- Generated from Interpreter.cpp by make-bytecode-docs.pl. -->\n"; -print OUTPUT "<style>p code \{ font-size: 14px; \}</style>\n"; - -while (<MACHINE>) { - if (/^ *DEFINE_OPCODE/) { - chomp; - s/^ *DEFINE_OPCODE\(op_//; - s/\).*$//; - my $opcode = $_; - $_ = <MACHINE>; - chomp; - if (m|/\* |) { - my $format = $_; - $format =~ s|.* /\* ||; - my $doc = ""; - while (<MACHINE>) { - if (m|\*/|) { - last; - } - $doc .= $_ . " "; - } - - 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"; - } else { - push @undocumented, $opcode; - } - } -} - -close OUTPUT; - -for my $undoc (@undocumented) { - print "UNDOCUMENTED: ${undoc}\n"; -} |