Haskell: Import from superrepo

Change-Id: I83c6c817c78ccbf1aee65847777f2652e19275a5
Reviewed-by: Eike Ziller <eike.ziller@qt.io>

src/plugins/haskell/haskellrunconfiguration.cpp

@@ -0,0 +1,97 @@
+/****************************************************************************
+**
+** Copyright (C) 2017 The Qt Company Ltd.
+** Contact: https://www.qt.io/licensing/
+**
+** This file is part of Qt Creator.
+**
+** Commercial License Usage
+** Licensees holding valid commercial Qt licenses may use this file in
+** accordance with the commercial license agreement provided with the
+** Software or, alternatively, in accordance with the terms contained in
+** a written agreement between you and The Qt Company. For licensing terms
+** and conditions see https://www.qt.io/terms-conditions. For further
+** information use the contact form at https://www.qt.io/contact-us.
+**
+** GNU General Public License Usage
+** Alternatively, this file may be used under the terms of the GNU
+** General Public License version 3 as published by the Free Software
+** Foundation with exceptions as appearing in the file LICENSE.GPL3-EXCEPT
+** included in the packaging of this file. Please review the following
+** information to ensure the GNU General Public License requirements will
+** be met: https://www.gnu.org/licenses/gpl-3.0.html.
+**
+****************************************************************************/
+
+#include "haskellrunconfiguration.h"
+
+#include "haskellconstants.h"
+#include "haskellmanager.h"
+#include "haskellproject.h"
+
+#include <projectexplorer/buildconfiguration.h>
+#include <projectexplorer/localenvironmentaspect.h>
+#include <projectexplorer/runconfigurationaspects.h>
+#include <projectexplorer/runcontrol.h>
+#include <projectexplorer/target.h>
+
+using namespace ProjectExplorer;
+
+namespace Haskell {
+namespace Internal {
+
+HaskellRunConfigurationFactory::HaskellRunConfigurationFactory()
+{
+    registerRunConfiguration<HaskellRunConfiguration>(Constants::C_HASKELL_RUNCONFIG_ID);
+    addSupportedProjectType(Constants::C_HASKELL_PROJECT_ID);
+    addSupportedTargetDeviceType(ProjectExplorer::Constants::DESKTOP_DEVICE_TYPE);
+}
+
+HaskellExecutableAspect::HaskellExecutableAspect()
+{
+    setSettingsKey("Haskell.Executable");
+    setLabelText(tr("Executable"));
+}
+
+HaskellRunConfiguration::HaskellRunConfiguration(Target *target, Utils::Id id)
+    : RunConfiguration(target, id)
+{
+    auto envAspect = addAspect<LocalEnvironmentAspect>(target);
+
+    addAspect<HaskellExecutableAspect>();
+    addAspect<ArgumentsAspect>(macroExpander());
+
+    auto workingDirAspect = addAspect<WorkingDirectoryAspect>(macroExpander(), envAspect);
+    workingDirAspect->setDefaultWorkingDirectory(target->project()->projectDirectory());
+    workingDirAspect->setVisible(false);
+
+    addAspect<TerminalAspect>();
+
+    setUpdater([this] { aspect<HaskellExecutableAspect>()->setValue(buildTargetInfo().buildKey); });
+    connect(target, &Target::buildSystemUpdated, this, &RunConfiguration::update);
+    update();
+}
+
+Runnable HaskellRunConfiguration::runnable() const
+{
+    const Utils::FilePath projectDirectory = target()->project()->projectDirectory();
+    Runnable r;
+    QStringList args;
+    if (BuildConfiguration *buildConfiguration = target()->activeBuildConfiguration()) {
+        args << "--work-dir"
+             << QDir(projectDirectory.toString()).relativeFilePath(
+                    buildConfiguration->buildDirectory().toString());
+    }
+    args << "exec" << aspect<HaskellExecutableAspect>()->value();
+    const QString arguments = aspect<ArgumentsAspect>()->arguments();
+    if (!arguments.isEmpty())
+        args << "--" << arguments;
+
+    r.workingDirectory = projectDirectory;
+    r.environment = aspect<LocalEnvironmentAspect>()->environment();
+    r.command = {r.environment.searchInPath(HaskellManager::stackExecutable().toString()), args};
+    return r;
+}
+
+} // namespace Internal
+} // namespace Haskell