src/gui/widgets/ScriptingDock.cxx

   1 #include "ScriptingDock.hxx"
   2
   3 namespace {
   4         SCM handler (void*, SCM tag, SCM throw_args) {
   5                 scm_handle_by_message_noexit ((void*)"foo", tag, throw_args);
   6                 return SCM_BOOL_F;
   7         }
   8 }
   9
  10 ScriptingDock::ScriptingDock(const QString& title, QWidget * parent)
  11         : QDockWidget(title, parent)
  12         , logger(log4cxx::Logger::getLogger("ScriptingDock")) {
  13         QTabWidget * tab = new QTabWidget;
  14         QWidget * widget = new QWidget;
  15         widget->setLayout(layout = new QGridLayout);
  16         layout->addWidget(browser = new QTextBrowser, 0, 0, 1, 0);
  17         layout->addWidget(line = new QLineEdit, 1, 0);
  18         layout->addWidget(button = new QPushButton(tr("Evaluate")), 1, 1);
  19         tab->addTab(widget, "GUILE");
  20         ((QDockWidget*)this)->setWidget(tab);
  21         connect(button, SIGNAL(released()), this, SLOT(doEvaluate()));
  22         connect(line, SIGNAL(returnPressed()), this, SLOT(doEvaluate()));
  23         scm_init_guile();
  24         scm_internal_catch(SCM_BOOL_T,
  25                            (SCM (*)(void *))scm_c_eval_string,
  26                            (void*)"(use-modules (system repl server))",
  27                            handler, NULL);
  28         scm_internal_catch(SCM_BOOL_T,
  29                            (SCM (*)(void *))scm_c_eval_string,
  30                            (void*)"(spawn-server)",
  31                            handler, NULL);
  32
  33         guile_output_port = scm_open_output_string();
  34         guile_error_port = scm_open_output_string();
  35         scm_set_current_output_port(guile_output_port);
  36         scm_set_current_error_port(guile_error_port);
  37 }
  38
  39
  40 void ScriptingDock::doEvaluate() {
  41         QString text = line->text();
  42         line->clear();
  43         LOG4CXX_INFO(logger, "Evaluating String \"" << text.toStdString() << "\"");
  44         browser->append(QString("> ") + text);
  45
  46         SCM result_obj = scm_internal_catch(SCM_BOOL_T,
  47                                             (SCM (*)(void *))scm_c_eval_string,
  48                                             (void*)text.toStdString().c_str(),
  49                                             handler, NULL);
  50         SCM result_str = scm_object_to_string(result_obj, SCM_UNDEFINED);
  51
  52         SCM output = scm_get_output_string(guile_output_port);
  53         QString output_q = scm_to_locale_string(output);
  54         if (output_q.endsWith("\n")) output_q.chop(1);
  55         if (output_q != "") browser->append(output_q);
  56
  57         output =  scm_get_output_string(guile_error_port);
  58         output_q = scm_to_locale_string(output);
  59         if (output_q.endsWith("\n")) output_q.chop(1);
  60         if (output_q != "") browser->append(output_q);
  61
  62         scm_truncate_file(guile_output_port, scm_from_uint16(0));
  63         scm_truncate_file(guile_error_port, scm_from_uint16(0));
  64
  65         browser->append(scm_to_locale_string(result_str));
  66 }