src/gui/widgets/ScriptingDock.cxx

   1 #include "ScriptingDock.hxx"
   2
   3 void ScriptingDock::doEvaluate() {
   4     QString text = line->text();
   5     line->clear();
   6     LOG4CXX_INFO(logger, "Evaluating String \"" << text.toStdString() << "\"");
   7     browser->append(QString("> ") + text);
   8
   9     SCM result_obj = scm_c_eval_string(text.toStdString().c_str());
  10     SCM result_str = scm_object_to_string(result_obj, SCM_UNDEFINED);
  11
  12     SCM output = scm_get_output_string(guile_output_port);
  13     browser->append(scm_to_locale_string(output));
  14     browser->append(scm_to_locale_string(result_str));
  15 }