Clean up ChunkedUpdateDrawingAreaProxy
[WebKit-https.git] / WebKitTools / Scripts / update-webkit-support-libs
1 #!/usr/bin/perl -w
2
3 # Copyright (C) 2005, 2006, 2007 Apple Computer, Inc.  All rights reserved.
4 # Copyright (C) Research In Motion Limited 2010. All rights reserved.
5 #
6 # Redistribution and use in source and binary forms, with or without
7 # modification, are permitted provided that the following conditions
8 # are met:
9 #
10 # 1.  Redistributions of source code must retain the above copyright
11 #     notice, this list of conditions and the following disclaimer. 
12 # 2.  Redistributions in binary form must reproduce the above copyright
13 #     notice, this list of conditions and the following disclaimer in the
14 #     documentation and/or other materials provided with the distribution. 
15 # 3.  Neither the name of Apple Computer, Inc. ("Apple") nor the names of
16 #     its contributors may be used to endorse or promote products derived
17 #     from this software without specific prior written permission. 
18 #
19 # THIS SOFTWARE IS PROVIDED BY APPLE AND ITS CONTRIBUTORS "AS IS" AND ANY
20 # EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
21 # WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
22 # DISCLAIMED. IN NO EVENT SHALL APPLE OR ITS CONTRIBUTORS BE LIABLE FOR ANY
23 # DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
24 # (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
25 # LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
26 # ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
27 # (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
28 # THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
29
30 # Updates a development environment to the new WebKitSupportLibrary
31
32 use strict;
33 use warnings;
34
35 use File::Find;
36 use File::Temp ();
37 use File::Spec;
38 use FindBin;
39 use lib $FindBin::Bin;
40 use webkitdirs;
41
42 use constant NOTAVERSION => "-1";
43
44 my $sourceDir = sourceDir();
45 my $file = "WebKitSupportLibrary";
46 my $zipFile = "$file.zip"; 
47 my $zipDirectory = toUnixPath($ENV{'WEBKITSUPPORTLIBRARIESZIPDIR'}) || $sourceDir;
48 my $pathToZip = File::Spec->catfile($zipDirectory, $zipFile);
49 my $webkitLibrariesDir = toUnixPath($ENV{'WEBKITLIBRARIESDIR'}) || "$sourceDir/WebKitLibraries/win";
50 my $versionFile = $file . "Version";
51 my $pathToVersionFile = File::Spec->catfile($webkitLibrariesDir, $versionFile);
52 my $tmpDir = File::Spec->rel2abs(File::Temp::tempdir("webkitlibsXXXXXXX", TMPDIR => 1, CLEANUP => 1));
53 my $versionFileURL = "http://developer.apple.com/opensource/internet/$versionFile";
54
55 my $extractedVersion = extractedVersion();
56
57 # Check whether the extracted library is up-to-date. If it is, we don't have anything to do.
58 my $expectedVersion = downloadExpectedVersionNumber();
59 if ($extractedVersion ne NOTAVERSION && $extractedVersion eq $expectedVersion) {
60     print "$file is up-to-date.\n";
61     exit;
62 }
63
64 # Check whether the downloaded library is up-to-date. If it isn't, the user needs to download it.
65 my $zipFileVersion = zipFileVersion();
66 dieAndInstructToDownload("$zipFile could not be found in $zipDirectory.") if $zipFileVersion eq NOTAVERSION;
67 dieAndInstructToDownload("$zipFile is out-of-date.") if $expectedVersion ne NOTAVERSION && $zipFileVersion ne $expectedVersion;
68 if ($zipFileVersion eq $extractedVersion) {
69     print "Falling back to existing version of $file.\n";
70     exit;
71 }
72
73 my $result = system "unzip", "-q", "-d", $tmpDir, $pathToZip;
74 die "Couldn't unzip $zipFile." if $result;
75
76 print "\nInstalling $file...\n";
77
78 sub wanted
79 {
80     my $relativeName = File::Spec->abs2rel($File::Find::name, "$tmpDir/$file/win");
81     my $destination = "$webkitLibrariesDir/$relativeName";
82
83     if (-d $_) {
84         mkdir $destination;
85         return;
86     }
87
88     system "cp", $_, $destination;
89 }
90
91 File::Find::find(\&wanted, "$tmpDir/$file");
92
93 print "The $file has been sucessfully installed in\n $webkitLibrariesDir\n";
94 exit;
95
96 sub toUnixPath
97 {
98     my $path = shift;
99     return unless $path;
100     chomp($path = `cygpath -u '$path'`);
101     return $path;
102 }
103
104 sub extractedVersion
105 {
106     if (open VERSION, "<", $pathToVersionFile) {
107         chomp(my $extractedVersion = <VERSION>);
108         close VERSION;
109         return $extractedVersion;
110     }
111     return NOTAVERSION;
112 }
113
114 sub downloadExpectedVersionNumber
115 {
116     chomp(my $expectedVersion = `curl -s $versionFileURL`);
117     return WEXITSTATUS($?) ? NOTAVERSION : $expectedVersion;
118 }
119
120 sub zipFileVersion
121 {
122     return NOTAVERSION unless -f $pathToZip;
123     chomp(my $zipFileVersion = `unzip -p "$pathToZip" $file/win/$versionFile`);
124     return $zipFileVersion;
125 }
126
127 sub dieAndInstructToDownload
128 {
129     my $message = shift;
130
131     die <<EOF;
132
133 ===============================================================================
134 $message
135 Please download $zipFile from:
136
137     http://developer.apple.com/opensource/internet/webkit_sptlib_agree.html
138
139 and place it in:
140
141     $sourceDir
142
143 Then run build-webkit again.
144 ===============================================================================
145
146 EOF
147
148 }