From 503a96034e623334a3c3708543cf74c3f254aaa1 Mon Sep 17 00:00:00 2001
From: John Wiegley <johnw@newartisans.com>
Date: Sun, 15 Feb 2009 21:48:22 -0400
Subject: [PATCH] Added account(_base) accessors to account_t

---
 src/account.cc | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/src/account.cc b/src/account.cc
index 38a3eae8..6331bfb2 100644
--- a/src/account.cc
+++ b/src/account.cc
@@ -156,6 +156,14 @@ namespace {
     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) {
     assert(account.xdata_);
     return account.xdata_->total;
@@ -204,6 +212,10 @@ expr_t::ptr_op_t account_t::lookup(const string& name)
   case 'a':
     if (name == "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;
 
   case 'c':