]>
git.siccegge.de Git - frida/frida.git/blob - src/gui/widgets/ScriptingDock.cxx
1 #include "ScriptingDock.hxx"
4 SCM
handler (void *data
, SCM tag
, SCM throw_args
) {
5 scm_handle_by_message_noexit ((void*)"foo", tag
, throw_args
);
10 void ScriptingDock::doEvaluate() {
11 QString text
= line
->text();
13 LOG4CXX_INFO(logger
, "Evaluating String \"" << text
.toStdString() << "\"");
14 browser
->append(QString("> ") + text
);
16 SCM result_obj
= scm_internal_catch(SCM_BOOL_T
,
17 (SCM (*)(void *))scm_c_eval_string
,
18 (void*)text
.toStdString().c_str(),
20 SCM result_str
= scm_object_to_string(result_obj
, SCM_UNDEFINED
);
22 SCM output
= scm_get_output_string(guile_output_port
);
23 QString output_q
= scm_to_locale_string(output
);
24 if (output_q
.endsWith("\n")) output_q
.chop(1);
25 if (output_q
!= "") browser
->append(output_q
);
27 output
= scm_get_output_string(guile_error_port
);
28 output_q
= scm_to_locale_string(output
);
29 if (output_q
.endsWith("\n")) output_q
.chop(1);
30 if (output_q
!= "") browser
->append(output_q
);
32 scm_truncate_file(guile_output_port
, scm_from_uint16(0));
33 scm_truncate_file(guile_error_port
, scm_from_uint16(0));
35 browser
->append(scm_to_locale_string(result_str
));