From db0689f547593f6904208939f21981a84c73b2c5 Mon Sep 17 00:00:00 2001
From: John Wiegley <johnw@newartisans.com>
Date: Mon, 16 Feb 2009 20:56:50 -0400
Subject: [PATCH] Added a "commodity" valexpr variable for xacts

---
 src/xact.cc | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/xact.cc b/src/xact.cc
index 1f5d4f47..bbe8ff47 100644
--- a/src/xact.cc
+++ b/src/xact.cc
@@ -154,6 +154,10 @@ namespace {
     }
   }
 
+  value_t get_commodity(xact_t& xact) {
+    return string_value(xact.amount.commodity().symbol());
+  }
+
   value_t get_cost(xact_t& xact) {
     if (xact.has_xdata() &&
 	xact.xdata().has_flags(XACT_EXT_COMPOUND)) {
@@ -237,6 +241,8 @@ expr_t::ptr_op_t xact_t::lookup(const string& name)
       return WRAP_FUNCTOR(get_wrapper<&get_count>);
     else if (name == "calculated")
       return WRAP_FUNCTOR(get_wrapper<&get_is_calculated>);
+    else if (name == "commodity")
+      return WRAP_FUNCTOR(get_wrapper<&get_commodity>);
     break;
 
   case 'd':