Start geiser server inside the GUILE interpreter

[frida/frida.git] / src / gui / widgets / ScriptingDock.cxx

diff --git a/src/gui/widgets/ScriptingDock.cxx b/src/gui/widgets/ScriptingDock.cxx
index ce00030473be583013b5fc2eac81a9dbd8ec2591..6600ee6608574b8829fe0833316f807ac58c3c08 100644 (file)
--- a/src/gui/widgets/ScriptingDock.cxx
+++ b/src/gui/widgets/ScriptingDock.cxx
@@ -7,6 +7,36 @@ namespace {
        }
 }
 
+ScriptingDock::ScriptingDock(const QString& title, QWidget * parent)
+       : QDockWidget(title, parent)
+       , logger(log4cxx::Logger::getLogger("ScriptingDock")) {
+       QTabWidget * tab = new QTabWidget;
+       QWidget * widget = new QWidget;
+       widget->setLayout(layout = new QGridLayout);
+       layout->addWidget(browser = new QTextBrowser, 0, 0, 1, 0);
+       layout->addWidget(line = new QLineEdit, 1, 0);
+       layout->addWidget(button = new QPushButton(tr("Evaluate")), 1, 1);
+       tab->addTab(widget, "GUILE");
+       ((QDockWidget*)this)->setWidget(tab);
+       connect(button, SIGNAL(released()), this, SLOT(doEvaluate()));
+       connect(line, SIGNAL(returnPressed()), this, SLOT(doEvaluate()));
+       scm_init_guile();
+       scm_internal_catch(SCM_BOOL_T,
+                          (SCM (*)(void *))scm_c_eval_string,
+                          (void*)"(use-modules (system repl server))",
+                          handler, NULL);
+       scm_internal_catch(SCM_BOOL_T,
+                          (SCM (*)(void *))scm_c_eval_string,
+                          (void*)"(spawn-server)",
+                          handler, NULL);
+
+       guile_output_port = scm_open_output_string();
+       guile_error_port = scm_open_output_string();
+       scm_set_current_output_port(guile_output_port);
+       scm_set_current_error_port(guile_error_port);
+}
+
+
 void ScriptingDock::doEvaluate() {
        QString text = line->text();
        line->clear();