70 lines
2.1 KiB
Perl
Executable File
70 lines
2.1 KiB
Perl
Executable File
#!/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()) {
|
|
if ($productDir) {
|
|
for my $qmlsubdir ("lib/qml", "lib/qt5/qml") {
|
|
if (-d "$productDir/$qmlsubdir") {
|
|
$libPath = "$productDir/$qmlsubdir";
|
|
last;
|
|
}
|
|
}
|
|
}
|
|
$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;
|