]>
git.siccegge.de Git - frida/frida.git/blob - src/gui/widgets/ScriptingDock.cxx
1 #include "ScriptingDock.hxx"
3 void ScriptingDock::doEvaluate() {
4 QString text
= line
->text();
6 LOG4CXX_INFO(logger
, "Evaluating String \"" << text
.toStdString() << "\"");
7 browser
->append(QString("> ") + text
);
9 SCM result_obj
= scm_c_eval_string(text
.toStdString().c_str());
10 SCM result_str
= scm_object_to_string(result_obj
, SCM_UNDEFINED
);
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
));