blob: ac3564f23e02dd7626e95b87322dce28ed54ef27 (
plain)
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
|
// Copyright (c) 2017 The Qt Company Ltd.
// SPDX-License-Identifier: LicenseRef-Qt-Commercial OR GPL-3.0-only WITH Qt-GPL-exception-1.0
#include "haskellmanager.h"
#include "haskelltr.h"
#include <coreplugin/messagemanager.h>
#include <utils/algorithm.h>
#include <utils/commandline.h>
#include <utils/hostosinfo.h>
#include <utils/mimeutils.h>
#include <utils/processenums.h>
#include <utils/qtcprocess.h>
#include <QCoreApplication>
#include <QDir>
#include <QFileInfo>
#include <QSettings>
#include <unordered_map>
static const char kStackExecutableKey[] = "Haskell/StackExecutable";
using namespace Utils;
namespace Haskell {
namespace Internal {
class HaskellManagerPrivate
{
public:
FilePath stackExecutable;
};
Q_GLOBAL_STATIC(HaskellManagerPrivate, m_d)
Q_GLOBAL_STATIC(HaskellManager, m_instance)
HaskellManager *HaskellManager::instance()
{
return m_instance;
}
FilePath HaskellManager::findProjectDirectory(const FilePath &filePath)
{
if (filePath.isEmpty())
return {};
QDir directory(filePath.toFileInfo().isDir() ? filePath.toString()
: filePath.parentDir().toString());
directory.setNameFilters({"stack.yaml", "*.cabal"});
directory.setFilter(QDir::Files | QDir::Readable);
do {
if (!directory.entryList().isEmpty())
return FilePath::fromString(directory.path());
} while (!directory.isRoot() && directory.cdUp());
return {};
}
FilePath defaultStackExecutable()
{
// stack from brew or the installer script from https://docs.haskellstack.org
// install to /usr/local/bin.
if (HostOsInfo::isAnyUnixHost())
return FilePath::fromString("/usr/local/bin/stack");
return FilePath::fromString("stack");
}
FilePath HaskellManager::stackExecutable()
{
return m_d->stackExecutable;
}
void HaskellManager::setStackExecutable(const FilePath &filePath)
{
if (filePath == m_d->stackExecutable)
return;
m_d->stackExecutable = filePath;
emit m_instance->stackExecutableChanged(m_d->stackExecutable);
}
void HaskellManager::openGhci(const FilePath &haskellFile)
{
const QList<MimeType> mimeTypes = mimeTypesForFileName(haskellFile.toString());
const bool isHaskell = Utils::anyOf(mimeTypes, [](const MimeType &mt) {
return mt.inherits("text/x-haskell") || mt.inherits("text/x-literate-haskell");
});
const auto args = QStringList{"ghci"}
+ (isHaskell ? QStringList{haskellFile.fileName()} : QStringList());
auto p = new QtcProcess(m_instance);
p->setTerminalMode(TerminalMode::On);
p->setCommand({stackExecutable(), args});
p->setWorkingDirectory(haskellFile.absolutePath());
connect(p, &QtcProcess::done, p, [p] {
if (p->result() != ProcessResult::FinishedWithSuccess) {
Core::MessageManager::writeDisrupting(
Tr::tr("Failed to run GHCi: \"%1\".").arg(p->errorString()));
}
p->deleteLater();
});
p->start();
}
void HaskellManager::readSettings(QSettings *settings)
{
m_d->stackExecutable = FilePath::fromString(
settings->value(kStackExecutableKey,
defaultStackExecutable().toString()).toString());
emit m_instance->stackExecutableChanged(m_d->stackExecutable);
}
void HaskellManager::writeSettings(QSettings *settings)
{
if (m_d->stackExecutable == defaultStackExecutable())
settings->remove(kStackExecutableKey);
else
settings->setValue(kStackExecutableKey, m_d->stackExecutable.toString());
}
} // namespace Internal
} // namespace Haskell
|
