Tools/Scripts/show-pretty-diff

   1 #!/usr/bin/perl -w
   2
   3 # Copyright (C) 2011 Apple Inc. All rights reserved.
   4 #
   5 # Redistribution and use in source and binary forms, with or without
   6 # modification, are permitted provided that the following conditions
   7 # are met:
   8 # 1. Redistributions of source code must retain the above copyright
   9 #    notice, this list of conditions and the following disclaimer.
  10 # 2. Redistributions in binary form must reproduce the above copyright
  11 #    notice, this list of conditions and the following disclaimer in the
  12 #    documentation and/or other materials provided with the distribution.
  13 #
  14 # THIS SOFTWARE IS PROVIDED BY APPLE INC. AND ITS CONTRIBUTORS ``AS IS''
  15 # AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
  16 # THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  17 # PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL APPLE INC. OR ITS CONTRIBUTORS
  18 # BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  19 # CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  20 # SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  21 # INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  22 # CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  23 # ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
  24 # THE POSSIBILITY OF SUCH DAMAGE.
  25
  26 use strict;
  27 use FindBin;
  28 use File::Temp qw(tempfile);
  29 use lib $FindBin::Bin;
  30 use webkitdirs;
  31
  32 my $inputPath = "";
  33 if ($ARGV[0]) {
  34     $inputPath = $ARGV[0]
  35 } else {
  36     # Create a temporary file for STDIN.
  37     # FIXME: We can probably avoid putting this on the disk by directly piping
  38     # to prettify.rb via IPC::Open2.
  39     my $inputTempFileHandle;
  40     ($inputTempFileHandle, $inputPath) = tempfile(
  41         "inputtemp-XXXXXXXX",
  42         DIR => File::Spec->tmpdir(),
  43         SUFFIX => ".diff",
  44         UNLINK => 0,
  45     );
  46
  47     while (<STDIN>) {
  48         print $inputTempFileHandle $_;
  49     }
  50
  51     close($inputTempFileHandle);
  52 }
  53
  54 # Create a temporary file for prettified patch.
  55 my ($prettydiffFileHandle, $prettydiffPath) = tempfile(
  56     "prettydiff-XXXXXXXX",
  57     DIR => File::Spec->tmpdir(),
  58     SUFFIX => ".html",
  59     UNLINK => 0,
  60 );
  61 close($prettydiffFileHandle);
  62
  63 my $prettyPatchDir = sourceDir() . "/Websites/bugs.webkit.org/PrettyPatch/";
  64 my $prettyPatchTool = sourceDir() . "/Websites/bugs.webkit.org/PrettyPatch/prettify.rb";
  65
  66 my $pathToPrettify = "ruby -I " . sourceDir() . "/Websites/bugs.webkit.org/PrettyPatch/ " . sourceDir() . "/Websites/bugs.webkit.org/PrettyPatch/prettify.rb";
  67 system "$pathToPrettify " . quotemeta($inputPath) . " > $prettydiffPath";
  68
  69 if (isAppleMacWebKit()) {
  70     system "open", $prettydiffPath;
  71 } elsif (isCygwin()) {
  72     system "cygstart",$prettydiffPath;
  73 } elsif (isWindows()) {
  74     system "start", $prettydiffPath;
  75 } elsif (isLinux() && `which xdg-open`) {
  76     system "xdg-open", $prettydiffPath;
  77 } else {
  78     print "Created prettified diff at " . $prettydiffPath . ".";
  79 }