From 3a0f096cb64f581f0d8513c8b67ca41659982afa Mon Sep 17 00:00:00 2001
From: John Wiegley <johnw@newartisans.com>
Date: Thu, 3 Jun 2010 05:37:21 -0400
Subject: [PATCH] Added new "addr" value expression function

It returns the address of the given object as an integer.  This can be
used to uniquely compare entities.
---
 src/account.cc | 6 ++++++
 src/item.cc    | 6 ++++++
 2 files changed, 12 insertions(+)

diff --git a/src/account.cc b/src/account.cc
index 8d4341e7..e577c48e 100644
--- a/src/account.cc
+++ b/src/account.cc
@@ -218,6 +218,10 @@ namespace {
     return true;
   }
 
+  value_t get_addr(account_t& account) {
+    return long(&account);
+  }
+
   value_t get_depth_spacer(account_t& account)
   {
     std::size_t depth = 0;
@@ -296,6 +300,8 @@ expr_t::ptr_op_t account_t::lookup(const symbol_t::kind_t kind,
       return WRAP_FUNCTOR(get_wrapper<&get_account>);
     else if (name == "account_base")
       return WRAP_FUNCTOR(get_wrapper<&get_account_base>);
+    else if (name == "addr")
+      return WRAP_FUNCTOR(get_wrapper<&get_addr>);
     else if (name == "any")
       return WRAP_FUNCTOR(&fn_any);
     else if (name == "all")
diff --git a/src/item.cc b/src/item.cc
index 0a22b260..fea73066 100644
--- a/src/item.cc
+++ b/src/item.cc
@@ -323,6 +323,10 @@ namespace {
     return item.pos ? long(item.pos->sequence) : 0L;
   }
 
+  value_t get_addr(item_t& item) {
+    return long(&item);
+  }
+
   value_t get_depth(item_t&) {
     return 0L;
   }
@@ -376,6 +380,8 @@ expr_t::ptr_op_t item_t::lookup(const symbol_t::kind_t kind,
       return WRAP_FUNCTOR(get_wrapper<&get_actual>);
     else if (name == "actual_date")
       return WRAP_FUNCTOR(get_wrapper<&get_actual_date>);
+    else if (name == "addr")
+      return WRAP_FUNCTOR(get_wrapper<&get_addr>);
     break;
 
   case 'b':