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

Added "price" value expression for posts

Browse source
This commit is contained in:
John Wiegley 2012-03-07 10:33:32 -06:00
parent 755495ee8a
commit a19578a607
1 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/post.cc
View file

@ -240,6 +240,15 @@ namespace {
return post.amount;
}
value_t get_price(post_t& post) {
if (post.amount.is_null())
return 0L;
if (post.amount.has_annotation() && post.amount.annotation().price)
return *post.amount.price();
else
return get_cost(post);
}
value_t get_total(post_t& post) {
if (post.xdata_ && ! post.xdata_->total.is_null())
return post.xdata_->total;
@ -475,6 +484,8 @@ expr_t::ptr_op_t post_t::lookup(const symbol_t::kind_t kind,
return WRAP_FUNCTOR(get_wrapper<&get_payee>);
else if (name == "primary")
return WRAP_FUNCTOR(get_wrapper<&get_commodity_is_primary>);
else if (name == "price")
return WRAP_FUNCTOR(get_wrapper<&get_price>);
else if (name == "parent")
return WRAP_FUNCTOR(get_wrapper<&get_xact>);
break;