diff options
| author | John Wiegley <johnw@newartisans.com> | 2012-03-08 00:55:06 -0600 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2012-03-08 00:55:06 -0600 |
| commit | 21e8b7f6f0a182f67899c5cd3689a5e646d8ed4a (patch) | |
| tree | 2f9124c1ca3584532c457eab2d7679d4821f0a05 /src/report.cc | |
| parent | 17a84642fbb4684d5a8415371003f12ccb760d99 (diff) | |
| download | fork-ledger-21e8b7f6f0a182f67899c5cd3689a5e646d8ed4a.tar.gz fork-ledger-21e8b7f6f0a182f67899c5cd3689a5e646d8ed4a.tar.bz2 fork-ledger-21e8b7f6f0a182f67899c5cd3689a5e646d8ed4a.zip | |
Added nail_down() for pinning market value exprs
Diffstat (limited to 'src/report.cc')
| -rw-r--r-- | src/report.cc | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/src/report.cc b/src/report.cc index 52e8c888..ba70d1d3 100644 --- a/src/report.cc +++ b/src/report.cc @@ -736,6 +736,24 @@ 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_nail_down(call_scope_t& args) +{ + value_t arg0(args[0]); + switch (arg0.type()) { + case value_t::AMOUNT: { + amount_t tmp(arg0.as_amount()); + if (tmp.has_commodity()) + tmp.set_commodity(tmp.commodity() + .nail_down(args[1].as_any<expr_t::ptr_op_t>())); + return tmp; + } + + default: + throw_(std::runtime_error, _("Attempting to nail down %1") + << args[0].label()); + } +} + value_t report_t::fn_lot_date(call_scope_t& args) { if (args[0].has_annotation()) { @@ -1261,6 +1279,8 @@ expr_t::ptr_op_t report_t::lookup(const symbol_t::kind_t kind, return WRAP_FUNCTOR(fn_null); else if (is_eq(p, "now")) return MAKE_FUNCTOR(report_t::fn_now); + else if (is_eq(p, "nail_down")) + return MAKE_FUNCTOR(report_t::fn_nail_down); break; case 'o': |