2 # Copyright (C) 2011 Igalia S.L.
3 # Copyright (C) 2012 Intel Corporation
5 # This library is free software; you can redistribute it and/or
6 # modify it under the terms of the GNU Lesser General Public
7 # License as published by the Free Software Foundation; either
8 # version 2 of the License, or (at your option) any later version.
10 # This library is distributed in the hope that it will be useful,
11 # but WITHOUT ANY WARRANTY; without even the implied warranty of
12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 # Lesser General Public License for more details.
15 # You should have received a copy of the GNU Lesser General Public
16 # License along with this library; if not, write to the Free Software
17 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
20 use lib $FindBin::Bin;
27 my $getOptionsResult = GetOptions(
28 'efl' => \$platformEfl,
29 'gtk' => \$platformGtk
33 if (!$getOptionsResult) {
34 die "No platform specified for " . basename($0) .". Use --gtk or --efl.\n";
47 my @jhbuildArgs = ("./jhbuild-wrapper", "--".$platform, $command);
48 push(@jhbuildArgs, @ARGV[2..-1]);
49 system(@jhbuildArgs) == 0 or die "Running jhbuild-wrapper " . $command . " failed.\n";
52 delete $ENV{AR_FLAGS} if exists $ENV{AR_FLAGS};
54 chdir(relativeScriptsDir() . "/../jhbuild") or die $!;
56 my %prettyPlatform = ( "efl" => "EFL", "gtk" => "GTK+" );
57 print "Updating " . $prettyPlatform{$platform} . " port dependencies using jhbuild...\n";