REGRESSION (r236481): Move soft-linking of LocalAuthentication.framework out of Local...
[WebKit-https.git] / Tools / Scripts / fix-blink-patch
1 #!/usr/bin/env perl
2
3 # Copyright (C) 2014 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'' AND ANY
15 # EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
16 # WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
17 # DISCLAIMED. IN NO EVENT SHALL APPLE INC. OR ITS CONTRIBUTORS BE LIABLE FOR ANY
18 # DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
19 # (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
20 # LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
21 # ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
22 # (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
23 # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
24
25 # fix-blink-patch -- fixes paths of a Blink commit so they match up with WebKit
26
27 use strict;
28 use warnings;
29
30 use File::Basename;
31 use Getopt::Long;
32
33 my $showHelp = 0;
34
35 my $getOptionsResult = GetOptions(
36     'help'       => \$showHelp,
37 );
38
39 if (!$getOptionsResult || $showHelp) {
40     print STDERR "Usage: ", basename($0), " [options] < patch\n";
41     print STDERR "  -h|--help     Show help\n";
42     exit 1;
43 }
44
45 while (my $line = <>) {
46     $line =~ s#([ab]/| )Source/core/#$1Source/WebCore/#mg;
47     $line =~ s#([ab]/| )Source/bindings/#$1Source/WebCore/bindings/#mg;
48     print $line;
49 }
50
51 exit 0;