sfos/ledger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added an "echo" command, for REPL testing

Browse source
This commit is contained in:
John Wiegley 2009-10-26 17:17:23 -04:00
parent 8999607408
commit 1ed22646f1
2 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/report.cc
View file

@ -408,6 +408,14 @@ value_t report_t::reload_command(call_scope_t&)
return true; return true;
} }
value_t report_t::echo_command(call_scope_t& scope)
{
interactive_t args(scope, "s");
std::ostream& out(output_stream);
out << args.get<string>(0) << std::endl;
return true;
}
bool report_t::maybe_import(const string& module) bool report_t::maybe_import(const string& module)
{ {
if (lookup(string(OPT_PREFIX) + "import_")) { if (lookup(string(OPT_PREFIX) + "import_")) {
@ -710,6 +718,8 @@ expr_t::ptr_op_t report_t::lookup(const string& name)
else if (is_eq(q, "emacs")) else if (is_eq(q, "emacs"))
return WRAP_FUNCTOR return WRAP_FUNCTOR
(reporter<>(new format_emacs_posts(output_stream), *this, "#emacs")); (reporter<>(new format_emacs_posts(output_stream), *this, "#emacs"));
else if (is_eq(q, "echo"))
return MAKE_FUNCTOR(report_t::echo_command);
break; break;
case 'p': case 'p':

1
src/report.h
View file

@ -178,6 +178,7 @@ public:
} }
value_t reload_command(call_scope_t&); value_t reload_command(call_scope_t&);
value_t echo_command(call_scope_t& scope);
keep_details_t what_to_keep() { keep_details_t what_to_keep() {
bool lots = HANDLED(lots) || HANDLED(lots_actual); bool lots = HANDLED(lots) || HANDLED(lots_actual);