1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
|
#!/usr/bin/perl -w
# Copyright (C) 2011 Igalia S.L.
# Copyright (C) 2012 Intel Corporation
#
# This library is free software; you can redistribute it and/or
# modify it under the terms of the GNU Lesser General Public
# License as published by the Free Software Foundation; either
# version 2 of the License, or (at your option) any later version.
#
# This library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser General Public
# License along with this library; if not, write to the Free Software
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
use FindBin;
use lib $FindBin::Bin;
use webkitdirs;
use Getopt::Long;
my $platformEfl = 0;
my $platformGtk = 0;
my $getOptionsResult = GetOptions(
'efl' => \$platformEfl,
'gtk' => \$platformGtk
);
my $platform = "";
if (!$getOptionsResult) {
die "No platform specified for " . basename($0) .". Use --gtk or --efl.\n";
} else {
if ($platformEfl) {
$platform = "efl";
}
if ($platformGtk) {
$platform = "gtk";
}
}
sub getMD5HashForFile($)
{
my $file = shift;
open(FILE_CONTENTS, $file);
my $contents = "";
while (<FILE_CONTENTS>) {
$contents .= $_;
}
close(FILE_CONTENTS);
return md5_hex($contents);
}
sub jhbuildConfigurationChanged()
{
foreach my $file (qw(jhbuildrc jhbuild.modules)) {
my $path = join('/', getJhbuildPath(), $file . '.md5sum');
if (! -e $path) {
return 1;
}
# Get the md5 sum of the file we're testing, look in the right platform directory.
my $actualFile = join('/', sourceDir(), 'Tools', $platform, $file);
my $currentSum = getMD5HashForFile($actualFile);
# Get our previous record.
open(PREVIOUS_MD5, $path);
chomp(my $previousSum = <PREVIOUS_MD5>);
close(PREVIOUS_MD5);
if ($previousSum ne $currentSum) {
return 1;
}
}
}
sub saveJhbuildMd5() {
# Save md5sum for jhbuild-related files.saveJhbuildMd5();
foreach my $file (qw(jhbuildrc jhbuild.modules)) {
my $source = join('/', sourceDir(), "Tools", $platform, $file);
my $destination = join('/', getJhbuildPath(), $file);
open(SUM, ">$destination" . ".md5sum");
print SUM getMD5HashForFile($source);
close(SUM);
}
}
sub runJhbuild
{
my $command = shift;
my @jhbuildArgs = ("./jhbuild-wrapper", "--".$platform, $command);
push(@jhbuildArgs, @ARGV[2..-1]);
system(@jhbuildArgs) == 0 or die "Running jhbuild-wrapper " . $command . " failed.\n";
}
sub cleanJhbuild()
{
# If the configuration changed, dependencies may have been removed.
# Since we lack a granular way of uninstalling those we wipe out the
# jhbuild root and start from scratch.
my $jhbuildPath = getJhbuildPath();
if (system("rm -rf $jhbuildPath/Root") ne 0) {
die "Cleaning jhbuild root failed!";
}
if (system("rm -rf $jhbuildPath/Source") ne 0) {
die "Cleaning jhbuild sources failed!";
}
}
delete $ENV{AR_FLAGS} if exists $ENV{AR_FLAGS};
chdir(relativeScriptsDir() . "/../jhbuild") or die $!;
my %prettyPlatform = ( "efl" => "EFL", "gtk" => "GTK+" );
if (-e getJhbuildPath() && jhbuildConfigurationChanged()) {
cleanJhbuild();
}
saveJhbuildMd5();
print "Updating " . $prettyPlatform{$platform} . " port dependencies using jhbuild...\n";
runJhbuild("build");
|
