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

Added account(_base) accessors to account_t

Browse source
This commit is contained in:
John Wiegley 2009-02-15 21:48:22 -04:00
parent a64a069a77
commit 503a96034e
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/account.cc
View file

@ -156,6 +156,14 @@ namespace {
return string_value(account.partial_name()); return string_value(account.partial_name());
} }
value_t get_account(account_t& account) { // this gets the name
return string_value(account.fullname());
}
value_t get_account_base(account_t& account) {
return string_value(account.name);
}
value_t get_total(account_t& account) { value_t get_total(account_t& account) {
assert(account.xdata_); assert(account.xdata_);
return account.xdata_->total; return account.xdata_->total;
@ -204,6 +212,10 @@ expr_t::ptr_op_t account_t::lookup(const string& name)
case 'a': case 'a':
if (name == "amount") if (name == "amount")
return WRAP_FUNCTOR(get_wrapper<&get_amount>); return WRAP_FUNCTOR(get_wrapper<&get_amount>);
else if (name == "account")
return WRAP_FUNCTOR(get_wrapper<&get_account>);
else if (name == "account_base")
return WRAP_FUNCTOR(get_wrapper<&get_account_base>);
break; break;
case 'c': case 'c':