]>
git.siccegge.de Git - frida/frida.git/blob - src/gui/widgets/ScriptingDock.cxx
6600ee6608574b8829fe0833316f807ac58c3c08
1 #include "ScriptingDock.hxx"
4 SCM
handler (void*, SCM tag
, SCM throw_args
) {
5 scm_handle_by_message_noexit ((void*)"foo", tag
, throw_args
);
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()));
24 scm_internal_catch(SCM_BOOL_T
,
25 (SCM (*)(void *))scm_c_eval_string
,
26 (void*)"(use-modules (system repl server))",
28 scm_internal_catch(SCM_BOOL_T
,
29 (SCM (*)(void *))scm_c_eval_string
,
30 (void*)"(spawn-server)",
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
);
40 void ScriptingDock::doEvaluate() {
41 QString text
= line
->text();
43 LOG4CXX_INFO(logger
, "Evaluating String \"" << text
.toStdString() << "\"");
44 browser
->append(QString("> ") + text
);
46 SCM result_obj
= scm_internal_catch(SCM_BOOL_T
,
47 (SCM (*)(void *))scm_c_eval_string
,
48 (void*)text
.toStdString().c_str(),
50 SCM result_str
= scm_object_to_string(result_obj
, SCM_UNDEFINED
);
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
);
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
);
62 scm_truncate_file(guile_output_port
, scm_from_uint16(0));
63 scm_truncate_file(guile_error_port
, scm_from_uint16(0));
65 browser
->append(scm_to_locale_string(result_str
));