Added a simple print() value expression function

This is really for debugging more than anything else.

2 files changed, 17 insertions, 0 deletions

diff --git a/src/report.cc b/src/report.cc
index 2189812b..1180c019 100644
--- a/src/report.cc
+++ b/src/report.cc
@@ -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 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);
       else if (is_eq(p, "price"))
 	return MAKE_FUNCTOR(report_t::fn_price);
+      else if (is_eq(p, "print"))
+	return MAKE_FUNCTOR(report_t::fn_print);
       break;
 
     case 'q':
diff --git a/src/report.h b/src/report.h
index 50071940..6b10dbcc 100644
--- a/src/report.h
+++ b/src/report.h
@@ -144,6 +144,7 @@ public:
   value_t fn_is_seq(call_scope_t& scope);
   value_t fn_strip(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 fn_scrub(call_scope_t& scope);
   value_t fn_quantity(call_scope_t& scope);