1 files changed, 69 insertions, 0 deletions
diff --git a/Source/WebInspectorUI/Scripts/fix-worker-imports-for-optimized-builds.pl b/Source/WebInspectorUI/Scripts/fix-worker-imports-for-optimized-builds.pl
new file mode 100755
index 000000000..8a8d25a2c
--- /dev/null
+++ b/Source/WebInspectorUI/Scripts/fix-worker-imports-for-optimized-builds.pl
@@ -0,0 +1,69 @@
+#!/usr/bin/perl -w
+
+use strict;
+use Getopt::Long;
+use File::Copy qw/move/;
+use File::Temp qw/tempfile/;
+use File::Spec;
+
+sub fixWorkerImportsInFile($$);
+sub fixWorkerImportsInDirectory($);
+
+our $inputDirectory;
+
+GetOptions('input-directory=s' => \$inputDirectory);
+
+if (defined $inputDirectory) {
+    fixWorkerImportsInDirectory($inputDirectory);
+    exit;
+}
+
+print "Usage: $0 --input-directory <path>\n";
+exit;
+
+sub fixWorkerImportsInFile($$)
+{
+    my $inputScriptFilename = shift;
+    my $outputScriptFilename = shift;
+
+    open IN, $inputScriptFilename or die "Couldn't open $inputScriptFilename: $!";
+    my ($out, $tempFilename) = tempfile(UNLINK => 0) or die;
+
+    my $previousLine = "";
+    while (<IN>) {
+        s|/External/Esprima/esprima.js|/Esprima.js|;
+        print $out $_;
+
+        # Error if there is an "External/" path that we did not rewrite.
+        if ($_ =~ /External\//) {
+            my $sanitizedPath = $inputScriptFilename;
+            $sanitizedPath =~ s/^.*?Workers/Workers/;
+            print "ERROR: $sanitizedPath: Unhandled External importScript in Worker script on line $.: $_";
+            exit 1;
+        }
+    }
+
+    close $out;
+    close IN;
+
+    move $tempFilename, $outputScriptFilename or die "$!";
+}
+
+sub fixWorkerImportsInDirectory($)
+{
+    my $inputDirectory = shift;
+
+    opendir(DIR, $inputDirectory) || die "$!";
+    my @files = grep { !/^\.{1,2}$/ } readdir (DIR);
+    closedir(DIR);
+
+    foreach my $file (@files) {
+        next if $file eq '.' or $file eq '..';
+        my $path = File::Spec->catdir($inputDirectory, $file);
+        if (-d $path) {
+            fixWorkerImportsInDirectory($path);
+        } elsif ($file =~ /\.js$/) {
+            fixWorkerImportsInFile($path, $path);
+        }
+    }
+}