]>
git.siccegge.de Git - frida/frida.git/blob - src/bindings/Guile.cxx
3 #include "core/Settings.hxx"
6 SCM
handler (void*, SCM tag
, SCM throw_args
) {
7 scm_handle_by_message_noexit ((void*)"foo", tag
, throw_args
);
12 GuileInterpreter::GuileInterpreter()
13 : logger(log4cxx::Logger::getLogger("bindings.Guile")) {
16 scm_c_use_module("system repl server");
18 guile::Geiser
* geiser
= new guile::Geiser(this);
21 scm_c_load_extension("libguile-frida-binding",
22 "scm_init_frida_module");
24 guile_output_port
= scm_open_output_string();
25 guile_error_port
= scm_open_output_string();
26 scm_set_current_output_port(guile_output_port
);
27 scm_set_current_error_port(guile_error_port
);
28 LOG4CXX_INFO(logger
, "Initializing GUILE finished");
31 int GuileInterpreter::evaluateWithErrorHandling(SCM (*fun
)(void *),
35 std::string
& result
) {
36 SCM result_obj
= scm_internal_catch(SCM_BOOL_T
,
41 SCM result_str
= scm_object_to_string(result_obj
, SCM_UNDEFINED
);
43 SCM output
= scm_get_output_string(guile_output_port
);
44 stdout
<< scm_to_locale_string(output
);
46 output
= scm_get_output_string(guile_error_port
);
47 stderr
<< scm_to_locale_string(output
);
49 result
= scm_to_locale_string(result_str
);
51 scm_truncate_file(guile_output_port
, scm_from_uint16(0));
52 scm_truncate_file(guile_error_port
, scm_from_uint16(0));
56 int GuileInterpreter::evaluate(const std::string
& command
,
59 std::string
& result
) {
61 return evaluateWithErrorHandling((SCM (*)(void *))scm_c_eval_string
,
62 (void*)command
.c_str(),
63 stdout
, stderr
, result
);
67 int GuileInterpreter::loadFile(const std::string
& filename
,
70 std::string
& result
) {
71 LOG4CXX_DEBUG(logger
, "Loading file \"" << filename
<< "\"");
72 evaluateWithErrorHandling((SCM (*)(void *))scm_c_primitive_load
,
73 (void*)filename
.c_str(),
74 stdout
, stderr
, result
);
75 LOG4CXX_DEBUG(logger
, "Finished file \"" << filename
<< "\"");
83 QString socketpath
= Settings::get()->getRuntimeDirectory()->canonicalPath()
84 + "/frida." + QString::number(QCoreApplication::applicationPid(), 16) + ".geiser.sock";
86 SCM scm_socketpath
= scm_from_locale_string(socketpath
.toStdString().c_str());
87 SCM socket
= scm_call_2(scm_c_public_ref("system repl server", "make-unix-domain-server-socket"),
88 scm_from_locale_keyword("path"), scm_socketpath
);
89 scm_call_1(scm_c_public_ref("system repl server", "run-server"), socket
);