blob: 8c8ef7056a34ae98e72711da7fef7b512a21fcc8 [file] [log] [blame]
#!/usr/bin/env perl
# Copyright (C) 2018, 2019 Igalia S.L.
#
# This program 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.1 of the License, or (at your option) any later version.
#
# This program 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 program; if not, write to the
# Free Software Foundation, Inc., 51 Franklin St, Fifth Floor,
# Boston, MA 02110-1301, USA.
# Simplified "run" script for launching the QtWPE MiniBrowser.
use strict;
use warnings;
use File::Spec::Functions qw/catdir/;
use FindBin;
use lib $FindBin::Bin;
use webkitdirs;
setConfiguration();
if (!inFlatpakSandbox()) {
push @ARGV, "--wpe";
}
my $launcherName;
my $libPath;
my $launcherPath;
my @jhbuildWrapper;
my $configuration = passedConfiguration();
my $productDir = productDir();
if ($configuration) {
$libPath = File::Spec->catfile(sourceDir(), "WebKitBuild", "$configuration", "lib", "qt5", "qml");
$ENV{"QML2_IMPORT_PATH"} = "$libPath";
}
my @command = (File::Spec->catfile(sourceDir(), "Tools", "Scripts", "run-qt-wpe-minibrowser"));
runInFlatpakIfAvailable(@command);
# Check to see that all the frameworks are built.
checkFrameworks();
if (!inFlatpakSandbox()) {
$libPath = "$productDir/lib/qml" if $productDir;
$ENV{"QML2_IMPORT_PATH"} = "$libPath" if $libPath;
}
$launcherPath = catdir($productDir, "bin", "qt-wpe-mini-browser");
die "Can't find $launcherPath" unless -x $launcherPath;
@jhbuildWrapper = wrapperPrefixIfNeeded();
print "Starting MiniBrowser.\n";
exec @jhbuildWrapper, $launcherPath, @ARGV or die;