From cad810f21b803229eb11403f9209855525a25d57 Mon Sep 17 00:00:00 2001
From: Steve Block <steveblock@google.com>
Date: Fri, 6 May 2011 11:45:16 +0100
Subject: Merge WebKit at r75315: Initial merge by git.

Change-Id: I570314b346ce101c935ed22a626b48c2af266b84
---
 JavaScriptCore/docs/make-bytecode-docs.pl | 43 -------------------------------
 1 file changed, 43 deletions(-)
 delete mode 100755 JavaScriptCore/docs/make-bytecode-docs.pl

(limited to 'JavaScriptCore/docs/make-bytecode-docs.pl')

diff --git a/JavaScriptCore/docs/make-bytecode-docs.pl b/JavaScriptCore/docs/make-bytecode-docs.pl
deleted file mode 100755
index 5a95195..0000000
--- a/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";
-}
-- 
cgit v1.1