namespace {
SCM handler (void *data, SCM tag, SCM throw_args) {
scm_handle_by_message_noexit ((void*)"foo", tag, throw_args);
- return SCM_BOOL_F;
- }
+ return SCM_BOOL_F;
+ }
}
void ScriptingDock::doEvaluate() {
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 (*)(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);
+ QString output_q = scm_to_locale_string(output);
+ if (output_q.endsWith("\n")) output_q.chop(1);
+ if (output_q != "") browser->append(output_q);
- 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 = 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);
- scm_truncate_file(guile_output_port, scm_from_uint16(0));
- scm_truncate_file(guile_error_port, scm_from_uint16(0));
-
+ scm_truncate_file(guile_output_port, scm_from_uint16(0));
+ scm_truncate_file(guile_error_port, scm_from_uint16(0));
+
browser->append(scm_to_locale_string(result_str));
}