From 906d8004aed96e8d1d91f5a1a56920528676e049 Mon Sep 17 00:00:00 2001
From: John Wiegley <johnw@newartisans.com>
Date: Mon, 19 Jan 2009 22:31:04 -0400
Subject: [PATCH] Added a function for account_t to get the account's total
 cost.

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

diff --git a/src/account.cc b/src/account.cc
index fc80a9d6..9014c015 100644
--- a/src/account.cc
+++ b/src/account.cc
@@ -138,6 +138,11 @@ namespace {
     return account.xdata_->total;
   }
 
+  value_t get_total_cost(account_t& account) {
+    assert(account.xdata_);
+    return account.xdata_->total.cost();
+  }
+
   value_t get_amount(account_t& account) {
     assert(account.xdata_);
     return account.xdata_->value;
@@ -187,6 +192,8 @@ expr_t::ptr_op_t account_t::lookup(const string& name)
   case 't':
     if (name == "total")
       return WRAP_FUNCTOR(get_wrapper<&get_total>);
+    else if (name == "total_cost")
+      return WRAP_FUNCTOR(get_wrapper<&get_total_cost>);
     break;
   }