Add basic Backlog to ScriptingDock

[frida/frida.git] / src / gui / widgets / ScriptingDock.cxx

diff --git a/src/gui/widgets/ScriptingDock.cxx b/src/gui/widgets/ScriptingDock.cxx
index 6600ee6608574b8829fe0833316f807ac58c3c08..4ec7f3bd3be451269b6ffefef377df1e7d6ce0bb 100644 (file)
--- a/src/gui/widgets/ScriptingDock.cxx
+++ b/src/gui/widgets/ScriptingDock.cxx
@@ -1,66 +1,61 @@
 #include "ScriptingDock.hxx"
+#include "FridaDock.hxx"
+
+#include "bindings/Interpreter.hxx"
+
+#include <sstream>
 
 namespace {
-       SCM handler (void*, SCM tag, SCM throw_args) {
-               scm_handle_by_message_noexit ((void*)"foo", tag, throw_args);
-               return SCM_BOOL_F;
-       }
+       class ScriptingLineEdit : public QObject, public QLineEdit {
+       public:
+               void keyPressEvent(QKeyEvent* event) {
+                       if (event->key() == Qt::Key_Up) {
+                               setText(backlog);
+                       }
+                       QLineEdit::keyPressEvent(event);
+               }
+
+               void clear() {
+                       backlog = text();
+                       QLineEdit::clear();
+               }
+       private:
+               QString backlog;
+       };
 }
 
-ScriptingDock::ScriptingDock(const QString& title, QWidget * parent)
-       : QDockWidget(title, parent)
-       , logger(log4cxx::Logger::getLogger("ScriptingDock")) {
-       QTabWidget * tab = new QTabWidget;
-       QWidget * widget = new QWidget;
-       widget->setLayout(layout = new QGridLayout);
+ScriptingDock::ScriptingDock(Interpreter* interpreter, FridaDock* parent)
+       : QWidget(parent)
+       , logger(log4cxx::Logger::getLogger("gui.ScriptingDock"))
+       , interpreter(interpreter) {
+       setLayout(layout = new QGridLayout);
        layout->addWidget(browser = new QTextBrowser, 0, 0, 1, 0);
-       layout->addWidget(line = new QLineEdit, 1, 0);
+       layout->addWidget(line = new ScriptingLineEdit, 1, 0);
        layout->addWidget(button = new QPushButton(tr("Evaluate")), 1, 1);
-       tab->addTab(widget, "GUILE");
-       ((QDockWidget*)this)->setWidget(tab);
        connect(button, SIGNAL(released()), this, SLOT(doEvaluate()));
        connect(line, SIGNAL(returnPressed()), this, SLOT(doEvaluate()));
-       scm_init_guile();
-       scm_internal_catch(SCM_BOOL_T,
-                          (SCM (*)(void *))scm_c_eval_string,
-                          (void*)"(use-modules (system repl server))",
-                          handler, NULL);
-       scm_internal_catch(SCM_BOOL_T,
-                          (SCM (*)(void *))scm_c_eval_string,
-                          (void*)"(spawn-server)",
-                          handler, NULL);
-
-       guile_output_port = scm_open_output_string();
-       guile_error_port = scm_open_output_string();
-       scm_set_current_output_port(guile_output_port);
-       scm_set_current_error_port(guile_error_port);
 }
 
 
 void ScriptingDock::doEvaluate() {
+       std::stringstream stdout, stderr;
+       std::string result;
+       QString output;
        QString text = line->text();
-       line->clear();
+
+       ((ScriptingLineEdit*)line)->clear();
        LOG4CXX_INFO(logger, "Evaluating String \"" << text.toStdString() << "\"");
        browser->append(QString("> ") + text);
 
-       SCM result_obj = scm_internal_catch(SCM_BOOL_T,
-                                           (SCM (*)(void *))scm_c_eval_string,
-                                           (void*)text.toStdString().c_str(),
-                                           handler, NULL);
-       SCM result_str = scm_object_to_string(result_obj, SCM_UNDEFINED);
-
-       SCM output = scm_get_output_string(guile_output_port);
-       QString output_q = scm_to_locale_string(output);
-       if (output_q.endsWith("\n")) output_q.chop(1);
-       if (output_q != "") browser->append(output_q);
+       interpreter->evaluate(text.toStdString(), stdout, stderr, result);
 
-       output =  scm_get_output_string(guile_error_port);
-       output_q = scm_to_locale_string(output);
-       if (output_q.endsWith("\n")) output_q.chop(1);
-       if (output_q != "") browser->append(output_q);
+       output = stdout.str().c_str();
+       if (output.endsWith("\n")) output.chop(1);
+       if (output != "") browser->append(output);
 
-       scm_truncate_file(guile_output_port, scm_from_uint16(0));
-       scm_truncate_file(guile_error_port, scm_from_uint16(0));
+       output = stderr.str().c_str();
+       if (output.endsWith("\n")) output.chop(1);
+       if (output != "") browser->append(output);
 
-       browser->append(scm_to_locale_string(result_str));
+       browser->append(result.c_str());
 }