Differential D2006 Diff 5956 src/backends/julia/juliaserver/juliaserver.cpp

Changeset View

Standalone View

View Options

src/backends/julia/juliaserver/juliaserver.cpp

  • This file was added.
1​/*
2​ * This program is free software; you can redistribute it and/or
3​ * modify it under the terms of the GNU General Public License
4​ * as published by the Free Software Foundation; either version 2
5​ * of the License, or (at your option) any later version.
6​ *
7​ * This program is distributed in the hope that it will be useful,
8​ * but WITHOUT ANY WARRANTY; without even the implied warranty of
9​ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
10​ * GNU General Public License for more details.
11​ *
12​ * You should have received a copy of the GNU General Public License
13​ * along with this program; if not, write to the Free Software
14​ * Foundation, Inc., 51 Franklin Street, Fifth Floor,
15​ * Boston, MA 02110-1301, USA.
16​ *
17​ * ---
18​ * Copyright (C) 2016 Ivan Lakhtanov <ivan.lakhtanov@gmail.com>
19​ */
20​#include "juliaserver.h"
21​
22​#include <julia/julia.h>
23​
24​#include <iostream>
25​#include <QFileInfo>
26​#include <QDir>
27​#include <QTemporaryFile>
28​#include <QDebug>
29​
30​JuliaServer::JuliaServer(QObject *parent)
31​ : QObject(parent)
32​{
33​}
34​
35​JuliaServer::~JuliaServer()
36​{
37​ jl_atexit_hook(0);
38​}
39​
filipesaraivaUnsubmitted
Done

Maybe you can fix it using settings widgets. Give a look at settings widgets in Octave Backend: open Cantor, go to Settings -> Settings Cantor -> Octave (maybe I am not using the correct names because my Cantor is in Portuguese). You will see the 'Path to Octave' line edit there.

Give a look in the implementation of this in octavebackend.kcfg. You can call the command configured using something like this.

You need to add something like this to the CMakeLists.txt of Julia Backend.

filipesaraiva: Maybe you can fix it using settings widgets. Give a look at settings widgets in Octave Backend…
40​void JuliaServer::login(const QString &path) const
41​{
42​ QString dir_path = QFileInfo(path).dir().absolutePath();
43​ jl_init(dir_path.toLatin1().constData());
44​}
45​
46​void JuliaServer::runJuliaCommand(const QString &command)
47​{
48​ QTemporaryFile output, error;
49​ if (not output.open() or not error.open()) {
50​ qFatal("Unable to create temprorary files for stdout/stderr");
51​ return;
52​ }
53​ jl_eval_string("const originalSTDOUT = STDOUT");
54​ jl_eval_string("const originalSTDERR = STDERR");
55​ jl_eval_string(
56​ QString::fromLatin1("redirect_stdout(open(\"%1\", \"w\"))")
57​ .arg(output.fileName()).toLatin1().constData()
58​ );
59​ jl_eval_string(
60​ QString::fromLatin1("redirect_stderr(open(\"%1\", \"w\"))")
61​ .arg(error.fileName()).toLatin1().constData()
62​ );
63​
64​ jl_value_t *val = static_cast<jl_value_t *>(
65​ jl_eval_string(command.toLatin1().constData())
66​ );
67​ if (jl_exception_occurred()) {
68​ jl_value_t *ex = jl_exception_in_transit;
69​ jl_printf(JL_STDERR, "error during run:\n");
70​ jl_function_t *showerror =
71​ jl_get_function(jl_base_module, "showerror");
72​ jl_value_t *bt = static_cast<jl_value_t *>(
73​ jl_eval_string("catch_backtrace()")
74​ );
75​ jl_value_t *err_stream = static_cast<jl_value_t *>(
76​ jl_eval_string("STDERR")
77​ );
78​ jl_call3(showerror, err_stream, ex, bt);
79​ jl_exception_clear();
80​ m_was_exception = true;
81​ } else if (val) {
82​ jl_function_t *equality = jl_get_function(jl_base_module, "==");
83​ jl_value_t *nothing =
84​ static_cast<jl_value_t *>(jl_eval_string("nothing"));
85​ bool is_nothing = jl_unbox_bool(
86​ static_cast<jl_value_t *>(jl_call2(equality, nothing, val))
87​ );
88​ if (not is_nothing) {
89​ jl_static_show(JL_STDOUT, val);
90​ }
91​ m_was_exception = false;
92​ }
93​ jl_eval_string("flush(STDOUT)");
94​ jl_eval_string("flush(STDERR)");
95​ jl_eval_string("redirect_stdout(originalSTDOUT)");
96​ jl_eval_string("redirect_stderr(originalSTDERR)");
97​
98​ m_output = QString::fromUtf8(output.readAll());
99​ m_error = QString::fromUtf8(error.readAll());
100​}
101​
102​QString JuliaServer::getError() const
103​{
104​ return m_error;
105​}
106​
107​QString JuliaServer::getOutput() const
108​{
109​ return m_output;
110​}
111​
112​bool JuliaServer::getWasException() const
113​{
114​ return m_was_exception;
115​}
116​
117​#include "juliaserver.moc"