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

Added a simple print() value expression function

Browse source 
This is really for debugging more than anything else.
This commit is contained in:
John Wiegley 2010-05-08 02:01:23 -04:00
parent 2d28b34ff3
commit 8acdb85a91
2 changed files with 17 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/report.cc
View file

@ -443,6 +443,20 @@ value_t report_t::fn_trim(call_scope_t& args)
} }
} }
value_t report_t::fn_print(call_scope_t& args)
{
std::ostream& out(output_stream);
bool first = true;
for (call_scope_t::iterator i = args.begin(); i != args.end(); i++) {
if (first)
first = false;
else
out << ' ';
(*i).print(out);
}
return true;
}
value_t report_t::scrub(value_t val) value_t report_t::scrub(value_t val)
{ {
value_t temp(val.strip_annotations(what_to_keep())); value_t temp(val.strip_annotations(what_to_keep()));
@ -1117,6 +1131,8 @@ expr_t::ptr_op_t report_t::lookup(const symbol_t::kind_t kind,
return MAKE_FUNCTOR(report_t::fn_percent); return MAKE_FUNCTOR(report_t::fn_percent);
else if (is_eq(p, "price")) else if (is_eq(p, "price"))
return MAKE_FUNCTOR(report_t::fn_price); return MAKE_FUNCTOR(report_t::fn_price);
else if (is_eq(p, "print"))
return MAKE_FUNCTOR(report_t::fn_print);
break; break;
case 'q': case 'q':

1
src/report.h
View file

@ -144,6 +144,7 @@ public:
value_t fn_is_seq(call_scope_t& scope); value_t fn_is_seq(call_scope_t& scope);
value_t fn_strip(call_scope_t& scope); value_t fn_strip(call_scope_t& scope);
value_t fn_trim(call_scope_t& scope); value_t fn_trim(call_scope_t& scope);
value_t fn_print(call_scope_t& scope);
value_t scrub(value_t val); value_t scrub(value_t val);
value_t fn_scrub(call_scope_t& scope); value_t fn_scrub(call_scope_t& scope);
value_t fn_quantity(call_scope_t& scope); value_t fn_quantity(call_scope_t& scope);