src/bindings/Guile.cxx

   1 #include "Guile.hxx"
   2 #include "Config.hxx"
   3 #include "core/Settings.hxx"
   4
   5 namespace {
   6         SCM handler (void*, SCM tag, SCM throw_args) {
   7                 scm_handle_by_message_noexit ((void*)"foo", tag, throw_args);
   8                 return SCM_BOOL_F;
   9         }
  10 }
  11
  12 GuileInterpreter::GuileInterpreter()
  13         : logger(log4cxx::Logger::getLogger("bindings.Guile")) {
  14
  15         QString socketpath = Settings::get()->getRuntimeDirectory()->canonicalPath()
  16                 + "/frida." + QString::number(QCoreApplication::applicationPid(), 16) + ".geiser.sock";
  17
  18         scm_init_guile();
  19
  20         SCM scm_socketpath = scm_from_locale_string(socketpath.toStdString().c_str());
  21         scm_c_use_module("system repl server");
  22         SCM socket = scm_call_2(scm_c_public_ref("system repl server", "make-unix-domain-server-socket"),
  23                                 scm_from_locale_keyword("path"), scm_socketpath);
  24         scm_call_1(scm_c_public_ref("system repl server", "spawn-server"), socket);
  25         scm_c_load_extension("libguile-frida-binding",
  26                              "scm_init_frida_module");
  27
  28         guile_output_port = scm_open_output_string();
  29         guile_error_port = scm_open_output_string();
  30         scm_set_current_output_port(guile_output_port);
  31         scm_set_current_error_port(guile_error_port);
  32         LOG4CXX_INFO(logger, "Initializing GUILE finished");
  33 }
  34
  35 int GuileInterpreter::evaluate(const std::string& command,
  36                                std::ostream& stdout,
  37                                std::ostream& stderr,
  38                                std::string& result) {
  39
  40         SCM result_obj = scm_internal_catch(SCM_BOOL_T,
  41                                             (SCM (*)(void *))scm_c_eval_string,
  42                                             (void*)command.c_str(),
  43                                             handler, NULL);
  44
  45         SCM result_str = scm_object_to_string(result_obj, SCM_UNDEFINED);
  46
  47         SCM output = scm_get_output_string(guile_output_port);
  48         stdout << scm_to_locale_string(output);
  49
  50         output =  scm_get_output_string(guile_error_port);
  51         stderr << scm_to_locale_string(output);
  52
  53         result = scm_to_locale_string(result_str);
  54
  55         scm_truncate_file(guile_output_port, scm_from_uint16(0));
  56         scm_truncate_file(guile_error_port, scm_from_uint16(0));
  57
  58         return 0;
  59 }
  60
  61 int GuileInterpreter::loadFile(const std::string& filename,
  62                                std::ostream& stdout,
  63                                std::ostream& stderr,
  64                                std::string& result) {
  65         LOG4CXX_INFO(logger, "Loading file \"" << filename << "\"");
  66         scm_c_primitive_load(filename.c_str());
  67         LOG4CXX_INFO(logger, "Finished file \"" << filename << "\"");
  68         return 0;
  69 }