From fbccb7149eae348182bef7ac9dcba756fe72381d Mon Sep 17 00:00:00 2001
From: John Wiegley <johnw@newartisans.com>
Date: Fri, 16 Feb 2018 23:03:44 -0800
Subject: Add (currently undocumented) function 'clear_commodity'

---
 src/report.cc | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'src/report.cc')

diff --git a/src/report.cc b/src/report.cc
index cb7f09dc..13e6a61f 100644
--- a/src/report.cc
+++ b/src/report.cc
@@ -841,6 +841,13 @@ value_t report_t::fn_commodity(call_scope_t& args)
   return string_value(args.get<amount_t>(0).commodity().symbol());
 }
 
+value_t report_t::fn_clear_commodity(call_scope_t& args)
+{
+  amount_t amt(args.get<amount_t>(0));
+  amt.clear_commodity();
+  return amt;
+}
+
 value_t report_t::fn_nail_down(call_scope_t& args)
 {
   value_t arg0(args[0]);
@@ -1384,6 +1391,8 @@ expr_t::ptr_op_t report_t::lookup(const symbol_t::kind_t kind,
         return MAKE_FUNCTOR(report_t::fn_commodity);
       else if (is_eq(p, "ceiling"))
         return MAKE_FUNCTOR(report_t::fn_ceiling);
+      else if (is_eq(p, "clear_commodity"))
+        return MAKE_FUNCTOR(report_t::fn_clear_commodity);
       break;
 
     case 'd':
-- 
cgit v1.2.3